commit 158dbc3665de0f2d37d18551846fbc54323af957 Author: Artyom Titov Date: Mon Jul 6 12:59:08 2026 +0300 Initial commit diff --git a/1course-9th_groupe/240Pu_33_F.xlsx b/1course-9th_groupe/240Pu_33_F.xlsx new file mode 100755 index 0000000..76df204 Binary files /dev/null and b/1course-9th_groupe/240Pu_33_F.xlsx differ diff --git a/1course-9th_groupe/AMPLIFI_distributions_v100_table(таблица2).xlsx b/1course-9th_groupe/AMPLIFI_distributions_v100_table(таблица2).xlsx new file mode 100755 index 0000000..3874567 Binary files /dev/null and b/1course-9th_groupe/AMPLIFI_distributions_v100_table(таблица2).xlsx differ diff --git a/1course-9th_groupe/ваш пустой файл.txt b/1course-9th_groupe/ваш пустой файл.txt new file mode 100755 index 0000000..d4006af --- /dev/null +++ b/1course-9th_groupe/ваш пустой файл.txt @@ -0,0 +1,13 @@ +____ +----------------------------- +________ +d= +v1 = +n1 = +vv1 = +nn1 = +v2 = +n2 = +vv2 = +nn2 = +----------------------------- \ No newline at end of file diff --git a/1course-9th_groupe/ваша пустая табличка.xlsx b/1course-9th_groupe/ваша пустая табличка.xlsx new file mode 100755 index 0000000..e888347 Binary files /dev/null and b/1course-9th_groupe/ваша пустая табличка.xlsx differ diff --git a/240Pu ansvers.xlsx b/240Pu ansvers.xlsx new file mode 100755 index 0000000..7ceb912 Binary files /dev/null and b/240Pu ansvers.xlsx differ diff --git a/AMPLIFI_distributions_v100_table.xlsx b/AMPLIFI_distributions_v100_table.xlsx new file mode 100755 index 0000000..ca794d6 Binary files /dev/null and b/AMPLIFI_distributions_v100_table.xlsx differ diff --git a/Orekhov.xlsx b/Orekhov.xlsx new file mode 100755 index 0000000..3ddc3d7 Binary files /dev/null and b/Orekhov.xlsx differ 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 new file mode 100755 index 0000000..78f75b1 --- /dev/null +++ b/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_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/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_gid_Qw2.nb b/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_gid_Qw2.nb new file mode 100755 index 0000000..1f902d9 --- /dev/null +++ b/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_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/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 new file mode 100755 index 0000000..f12ae18 --- /dev/null +++ b/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_osc_Qw1.nb @@ -0,0 +1,14427 @@ +(* 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[ 585889, 14419] +NotebookOptionsPosition[ 544146, 13754] +NotebookOutlinePosition[ 544605, 13772] +CellTagsIndexPosition[ 544562, 13769] +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", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.9921791748924236`*^9, 3.992179175479521*^9}}, + CellLabel->"In[2]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +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"], + +Cell[BoxData["174"], "Output", + CellChangeTimes->{3.992179213346216*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"56a25e73-0044-2e4f-a1d1-08f8b605dce1"] +}, 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[CellGroupData[{ + +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"], + +Cell[BoxData["0.787635594208527`"], "Output", + CellChangeTimes->{3.9921792420000687`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"d4a79d0a-c33e-7b48-a36a-baaf07895183"] +}, Open ]], + +Cell[CellGroupData[{ + +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"], + +Cell[BoxData["0.446333511300556`"], "Output", + CellChangeTimes->{3.9921792398346214`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"240ba6c8-e382-9640-a885-b1b92fc93d62"] +}, Open ]], + +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", "=", " ", "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[7]:=",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], + +Cell[BoxData["64"], "Output", + CellChangeTimes->{3.992179336847067*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"ce192b42-76d8-3a45-9997-3705d5a92d64"] +}, 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[6]:=",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"] +}, 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[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[8]:=",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], + +Cell[BoxData["1.73`"], "Output", + CellChangeTimes->{3.992179393619543*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"7e065166-098d-e64d-9755-0343fb91a7a3"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, + 3.991848639478634*^9}},ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-\ +bb644ea0ddfa"], + +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[9]:=",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], + +Cell[BoxData["0.76`"], "Output", + CellChangeTimes->{3.992179401201977*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"4568959e-8357-a941-86ee-9e0738db37d0"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, + 3.9918486410246162`*^9}},ExpressionUUID->"d35f11fe-a53c-8943-ac4f-\ +07cc8884f5b8"], + +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[10]:=",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], + +Cell[BoxData["2.4`"], "Output", + CellChangeTimes->{3.992179407540327*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"d1e0c0fb-c1fe-474d-b753-e32fec84425e"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, + 3.991848642146063*^9}},ExpressionUUID->"12665172-e21c-4e44-b1fc-\ +e81404b2a0db"], + +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[11]:=",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], + +Cell[BoxData["1.105`"], "Output", + CellChangeTimes->{3.992179415754301*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"5fde13cb-ad9a-b942-b5e7-0bfb84635642"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, + 3.991848643361412*^9}},ExpressionUUID->"78f54ff3-2505-5940-9b78-\ +ccc2627a783c"], + +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[12]:=",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], + +Cell[BoxData["1.4012`"], "Output", + CellChangeTimes->{3.9921794257836323`*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"a896dc51-a614-1542-a083-12b1fd350591"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, + 3.991848644757372*^9}},ExpressionUUID->"3908ad8b-9aa1-4d42-954c-\ +a3b9eef1576d"], + +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[13]:=",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], + +Cell[BoxData["0.5547`"], "Output", + CellChangeTimes->{3.9921794363325005`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"a1160edd-29d5-0643-a9b4-2a0c8687671e"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, + 3.991848648461731*^9}},ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-\ +7d827c4ef6de"], + +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[14]:=",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], + +Cell[BoxData["1.1338`"], "Output", + CellChangeTimes->{3.99217944657938*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"1d096934-3f2c-d145-a3ad-71fe8ddc39c4"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, + 3.9918486499632607`*^9}},ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-\ +01ae055dd38b"], + +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[15]:=",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], + +Cell[BoxData["0.85`"], "Output", + CellChangeTimes->{3.992179452410452*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"a2d62cc7-6150-7e4e-87be-073edbded81e"] +}, Open ]], + +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->{{195, Automatic}, {-0.75, Automatic}}, +CellContext->Notebook, +Magnification:>0.8 Inherited, +FrontEndVersion->"14.3 for Microsoft Windows (64-bit) (July 8, 2025)", +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, 248, 4, 22, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], +Cell[1245, 42, 174, 2, 25, "Output",ExpressionUUID->"4a4f3c62-bf4d-4f46-b820-7316e2b63cd1"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +Cell[19966, 657, 154, 3, 22, "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"] +}, Open ]], +Cell[20647, 676, 154, 3, 22, "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"] +}, Open ]], +Cell[21333, 695, 154, 3, 22, "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"] +}, Open ]], +Cell[22044, 714, 152, 3, 22, "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"] +}, Open ]], +Cell[22703, 733, 152, 3, 22, "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"] +}, Open ]], +Cell[23368, 752, 154, 3, 22, "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"] +}, Open ]], +Cell[24033, 771, 153, 3, 22, "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"] +}, Open ]], +Cell[24665, 789, 156, 3, 22, "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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, Open ]] +} +] +*) + diff --git a/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_osc_Qw2.nb b/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_osc_Qw2.nb new file mode 100755 index 0000000..a320d64 --- /dev/null +++ b/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_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/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 new file mode 100755 index 0000000..14330be --- /dev/null +++ b/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_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/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_pr_Qw2.nb b/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_pr_Qw2.nb new file mode 100755 index 0000000..1226680 --- /dev/null +++ b/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_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/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_фитирование.nb b/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_фитирование.nb new file mode 100755 index 0000000..4a49d50 --- /dev/null +++ b/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_фитирование.nb @@ -0,0 +1,11498 @@ +(* 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[ 543093, 11490] +NotebookOptionsPosition[ 532093, 11292] +NotebookOutlinePosition[ 532734, 11315] +CellTagsIndexPosition[ 532691, 11312] +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.9921644827731*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"ad4fdcf9-53d2-f145-9cfe-6a652f102b3d"] +}, 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.9921644831432858`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"9300781f-9afb-9448-b298-fd876fd535b6"] +}, 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.9921644831832867`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"c09add3f-60ab-e54c-a75f-a08ccac9cb80"] +}, 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.992164483217287*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"59f7de11-d07a-fa47-82c0-2282fd4b0e40"] +}, 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.9921644832492905`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"ec2a8a57-2cf3-d345-a77d-af4d96546b80"] +}, 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.992164483285284*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"510ec29e-dcd9-7048-ac5e-512da0cf016f"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{3.9917077685737076`*^9}, + CellLabel-> + "In[362]:=",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.9921628189929237`*^9, 3.9921628202493343`*^9}}, + CellLabel->"In[7]:=",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.992164586428604*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"f3ce5b6f-986e-b845-8e60-92593269ecec"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", " ", "174"}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.9919640953047657`*^9, + 3.991964095496088*^9}, 3.9919730324857025`*^9, {3.9921628262044086`*^9, + 3.992162828024767*^9}, {3.9921645164814224`*^9, 3.992164518792364*^9}}, + CellLabel->"In[8]:=",ExpressionUUID->"24bf6fdb-f0a0-774b-a5d1-1f910c97a298"], + +Cell[BoxData["174"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9919640965938797`*^9, 3.9919650679796085`*^9, + 3.9921645866084785`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"3017a89a-dccd-c142-8c57-f113cc6a629d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[9]:=",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.992164586638777*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"df7fb28c-fd1b-5244-a619-8363912e0051"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[10]:=",ExpressionUUID->"18b7ff08-61ef-0a43-a3b6-f39456c5d3bf"], + +Cell[BoxData["0.54325`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9, 3.9917078282275677`*^9, + 3.9917123414253197`*^9, 3.991964105132374*^9, 3.99196507082041*^9, + 3.9921645866427727`*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"e8b1de41-9edb-1b4d-adeb-2dc63058bc1d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[11]:=",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.992164586672804*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"83f02113-acc1-bc47-8d6f-20079637dfe7"] +}, 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[12]:=",ExpressionUUID->"f761fcb8-28f7-6340-a8c9-04643afe677c"], + +Cell[BoxData["6.4760133991237705`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9, 3.9917078282706223`*^9, + 3.9917123414384117`*^9, 3.991964105158039*^9, 3.9919650774986343`*^9, + 3.992164586700796*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"953a0163-33ee-0f43-8541-ed6074ba61b9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[13]:=",ExpressionUUID->"eb02623b-c429-f44e-955f-4ce148f45177"], + +Cell[BoxData["4.6878384239217405`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9, 3.9917078282785244`*^9, + 3.991712341447321*^9, 3.9919641051782207`*^9, 3.99196507853343*^9, + 3.992164586703802*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"81de82b0-d3e3-6042-99ad-2c0e926e017b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.7876"}]], "Input", + CellChangeTimes->{ + 3.9917123951294365`*^9, 3.99179305435186*^9, {3.99196410971159*^9, + 3.9919641153565598`*^9}, {3.991965091938593*^9, 3.9919650927835865`*^9}, + 3.991973034922682*^9, {3.9921645325787754`*^9, 3.992164553867136*^9}}, + CellLabel->"In[14]:=",ExpressionUUID->"5a7643d0-24aa-4445-a07d-8c03ae610a22"], + +Cell[BoxData["0.7876`"], "Output", + CellChangeTimes->{3.992164586733795*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"206fcf5a-1228-cf44-bb11-3fbcf5f0b882"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.4463"}]], "Input", + CellChangeTimes->{ + 3.9917124038115807`*^9, 3.991793052797516*^9, {3.9919641207252083`*^9, + 3.991964121458187*^9}, {3.991965119761894*^9, 3.9919651201266823`*^9}, + 3.9919730365316715`*^9, {3.992164547907772*^9, 3.992164549925516*^9}}, + CellLabel->"In[15]:=",ExpressionUUID->"0d6c01d9-da94-5e40-a1b9-b6cc52ad8d72"], + +Cell[BoxData["0.4463`"], "Output", + CellChangeTimes->{3.992164586768795*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"539f4b99-f4cd-e249-aef1-ae826fce11c2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[16]:=",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.9921645867948685`*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"39daedc0-f31e-4340-a35b-004f6b40ec4a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[17]:=",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.9921645867989273`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"2799c350-0f70-d94e-9eca-8e4b6896ba1b"] +}, Open ]], + +Cell[BoxData["8"], "Input", + CellChangeTimes->{ + 3.9921655102428894`*^9},ExpressionUUID->"a7f6de2d-0c54-e74a-b7d2-\ +d9434baefd68"], + +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.992165584812992*^9, 3.992165628972353*^9}, {3.992165710096678*^9, + 3.992165714883892*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"1df47ed4-968d-ab47-9cf0-8687993d44a2"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwVUXk01Yv3lSFDeY1UeNd4P5/7UUlI6ck5KNJk5l4V9xkKr8yJSMRV5rFI +Kcnc4IXMSShkSLykyZShDPfrPTLTz++Ps87a6+y91t77yNq6mjjw8vDwNK3M +/+/DVtcFeXho2OBdYis7xwWddFWN8lU0/Gx1z4w1y4U/Rrqdvfho2DhtVRg7 +wwWlS3tav6+m4fJi+bOln1wQS+lPfCdKQw/rDbVt/3Gh/6Om3ANJGrrz/Myy +GuOCP+tfTb29NITGqqr5bi7kM608Il1oOPvIo9GshgtC0v97/5cbDWc+al0y +eskF9mCwxlEPGn4LcbA+Ws2FjR6PeUS8adhmeLFKq4oLXhE8Mdcu03CwKKpF +spwLGlVZD69G0vD0YmDmk6dcqJWfHPDJo+Ewf7SkahoXPnAjLB2GaJid0L/m +xqUVfab7tMJ3GrIflH8478uF9acsbwz8oKHJidVvD/lw4XCjXIfdOA0LDLoO +TF7gQvmDshO2UzRkGfiIHnTnwl3m8CEbXmn8fvHcYuVZLpyp0VFj0aRRyLf/ +iJAZF6ZvzK0/biGNTZdmvAYpLsxf4u/krZPGbD2n9pdN49DjVxJ+9XcZ3LG1 +U1/KZBye14RvXmMug9W6nR6xTWPg9z7qs0acDIro6lu9lB6DHddscgybZXC1 +COjUsUaBqW3Yc45PFhtKEnXCQ0bAod7FVBlksdGOP/mQ/w8YN3+0e8FbFnOu +eCflOXwHx+BSscePZbFI+MborPow1PpPqQv8WOH7VtWz3w5CSsCJGnsZOZSQ +Dw0RPDMAxse6wp1PyaFeyX3aeH0/LJQqsyyT5PBvcTVRFbk+kFHKjjvaKoe8 +PalTYkQPEK7HBYeE5XFvuf56duNnyC7dMHxNWx6HVCSlx8u7QLhVgL/tsjxy +ip9vkop/D6evNhC/SuWRVz/UsPVRO+yE3MI9E/JYZuYVPancBl/ryy5v3KGA +y87Da1OCm0CY9f3ptJ0C2mzcnyHuUw9k2ODoyxQFbNv5hcdrphYIzkY71U4F +NLwte/1UbjWkhZ0++EiUjq7GUgIn+SthgdVl22RAx3bRKRkeWsnKf2WvvQuh +4zvl16eNNhYCefbk88ccOtrtjHC8xl8IqwVuTIaF0rFvx2Bq/XQB1KEQW+c6 +HYuNE7zsPheAdil3X2EEHTunHusLZRbA/uyKkcR4OrptH1Pn3V8AOzjmJ5hp +dMwrVuC74fwUNmiHifVU0LFmN3eT8Zt8kLlbMtBSScfHOsfMNzzNB6WFwcLK +53Qcns0yGUjKh2PPdExSXtBxbLOUSY1DPoRSi9HmtXSUn3WVOM2bD4sbXIWa +39CRt+9VHB88gaF+s4XSjyt+V7vy1b56BBUhMn3xM3RUl+bUxq3OgzHWTIv7 +LB1vZW7zFZnMBaldreVGcyt+0tV+i+vJhYCPfom/LdCxgdItqi/NBVT6oB++ +vOK/02vp41+5UPch6kmQAIHmon1L4f/kQKvigp/bJgKdD0kc/pafDb1t78VP +7CJwLoQaTo3MhMje2nsMZQLPxYXdu+ufCRoTTxl8uwlMldUuzDuXCfHroveX +qhA4oRj9duBYJuie0LOWUydQ/qHB+l7RTMhqKs6c1iRQL13FbiwuA869TlK7 +d4TAfI3FGMX0BzBTwTKZcCDQpyclo7zvPrSHa3p9PUOgoGWqxL6O+/CEJX3z +zVkCV71jjVTX3YczMwMfM5wI/LoDvaey70OnitufrPMEzlSEn+x3uQ/PckPd +arwIfEKuOdK+nAaeSYXRicEEKvMTMk1EGvzPQ7Rp330C2cmc9iHFVBgrSxYR +TydwXtYr6uHmVBjhUTgyuYKvln2oCFy+A0PR+xsfZxD4RcL80Kn2O9Cdd7Ze +LofAWQOBls5Ld6C5/2Xt2nwC257r/vO29TbkmHhX9lau9Hew2iDkagrYqvQ8 +vt5FYM269ntp4skQs88m1OfjSj+RDYJpvMlQqdVj7fiJwCKzucx8bhJsOdqz +7vAXAqfsCdNfr5Og2a7HXbCXQMksEzEbnyTYe6NnT+gwgUmBLb5i3Tdh7WzP +8+BpAv9qiQkUfnYDip/3tgRsJvGR6ezua9EJIKApXGctRqLCxy6Do1cSwKx8 +d7mWOIn+Ne38km4JMFl8NWt5C4nxl2e0vxongPLfClcCJEkcOBwyOiqWAHnp +jsoBciTOr1NLV0yLh7vXJuIvK5MYmas0M1kZBxxjHqb/MRLD9G71z4vFgpEI +jlgeJzElgr05WzgWpGqv+KueIPHmp4sKZfMxUKD2K23EkMToVwpPXjfGQPeW +5R9MUxK3D4/FVjnGgHr3gt8eKxLVftwbFMuLhiHnmXvcsyRWqaUoCe6PAv0Q +7jA7mMQua2MBtchw0FmU22QYQqKzf3jaJu9w0PSy1DrAIXHYQ9NVgB0OKvbV +iduukdj4qPmctFo4SB2M124PJ5FfyNh0+9cwmOBTv60bT+Kcp6r+TZUwSA6+ +fIK4T+Lxvf+9thi5BiNX1z4brVrJd0xlU2I4B1Z7/lhqfEEiOg2w6n05IG/3 +Wi+nmsT0xT1Jgk4cOKUb2GVfQ2KEcnLrE30OtPJNLXx9RSLbXVAmSYADBSGf +ddqaSSyijfe9Dg4B39C8tqJPJC6Vnh1nhwWDUPjhscvTJFZkV1tySoLATEOi +1WWGRM9GwyBOThCkfR/Nt5klkWRHacffCoJ9+jGe2vMk2n9JOvXOLwgc+Tvn ++ZdJ7P9u/GUAg6AhwE44UoCBD0pMtjJbAuG6ZwCRspmBwZ/qHpl2XwHB00Xs +YhUGTgWqv2zO8YdWvdTudFUGyrj0q0zE+sNN5dBTMWoM9Fvbb036+gPBz2Q6 +qjNwUDE5s83AH/QeLhhK7Gfgvz0NSqJjfhAypwMB2gxc1/GCLaPmBzw33/2u +Z8TAgUMKhrrtvjDbyv30/jwD91VUNOjoXoR+5UDvAhcGLo3aDijuvgjN8Rs2 +xrgy8M++Xcsy0hfhnoWawWF3BvqM+Kzau+ANet2+JeVeDAyQVP9duMgbEsb5 +E+/5MfDSsVJvTYY3KK2VPO4UxsD37cJFSRIXwMFA/8ViBgOddN145xQ8IcC5 +ZXI0k4GeB/3l2zZ7QnKEKeNzFgNjtBS6ivg94U2LTVxZDgN952hvswY8QMnE +x877EQMzXdLLtmd6wKxVruBEIQMFhrta8hkeEHlujdG3GgZqZTTtMtdwh4KY +t72NvQxcH7N7MnPJBcYZyyq5fSv338yzVAddgFGzg3O9n4FS8gkx/zS7wN2p +MEp/gIHtZv4NhndcIIJ10KNumIHzdBNVRU0XsJcv43vBZeDpw21rba+cB/GS +dKJokYGuDrDFd9M58Ou+cO7uVgqfNPjL6Lg6gUpBhZXvNgqr5NS1E046wXfO +KgMzCQptKo/FTeo7gcXOKLqIFIWJW4Xj+mRW+P4Z3RekKZz2575x73CEkW0d +RscJCvdtDSBYfzgC01x5z6IqhSJjR5R+ip0F9eaRJZYhhUUiqXJrpuxByobO +0TeiULXNLMq93x74/rNZu8eYwvPkaPFQmz20bXkvsd6UwqjiBLGlx/bgbPdi +72sLCt1Ctz/scrSH1PkEdxVrCl/Q+B9inx3wUwcGRc5TeFlo/E7QF1to58Q0 +V4RTuAWYB0zn2fAp1sP9VgSFP6/W3OYdZ8O32+biFyMpvO4+6FDZw4app5Js +lWgK60u7pQxfsUGsO3syJ45CIaMXqhOxbGCqV0vcTKaw0yhBREKRDd1DE45u +WRRu5u2IelhvDT/0TQToNRRKfrCVSh46CZu5O92laimkv9PtoFpPAiYKf91U +R6HxP8aDbc9OQnJvdRHv65U+3W+1WXNOwmHfXfa9jSv67q6qi/STkJW3tvb2 +OwqH8cDqaCcrsBWtD9zYR6FaGa39LQ8LogvTx4T7KfSdX9o4MsKEclYAc9U3 +CuVbP/puec+EDVl7lCcGVvr1fOv9MJcJ1VoZPS3fKXzH7ThdbMoEabcgrbAJ +Clv+2Bpr8NASjoifzgv8l8K80g7/6JuW4F25T9znPwpVpqUjBoMsoVVoYvzM +FIVnxDVaGpmWEHDfOvXgLIXUq3XKToKWkKe/X1hzjsKc6/HuByYtoHNc7ILq +PIXPizIs5XssYOf+lmNyiyt5BqY75EssgNmbU7pticJQkeSjWg8sICQ0RGHD +MoV/14UrOsdYwN872LFCvyjUqE37M9vPAr60/7H4awX/6i3t+3nWAv4PiaHP +Uw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVUXk01Yv3lSFDeY1UeNd4P5/7UUlI6ck5KNJk5l4V9xkKr8yJSMRV5rFI +Kcnc4IXMSShkSLykyZShDPfrPTLTz++Ps87a6+y91t77yNq6mjjw8vDwNK3M +/+/DVtcFeXho2OBdYis7xwWddFWN8lU0/Gx1z4w1y4U/Rrqdvfho2DhtVRg7 +wwWlS3tav6+m4fJi+bOln1wQS+lPfCdKQw/rDbVt/3Gh/6Om3ANJGrrz/Myy +GuOCP+tfTb29NITGqqr5bi7kM608Il1oOPvIo9GshgtC0v97/5cbDWc+al0y +eskF9mCwxlEPGn4LcbA+Ws2FjR6PeUS8adhmeLFKq4oLXhE8Mdcu03CwKKpF +spwLGlVZD69G0vD0YmDmk6dcqJWfHPDJo+Ewf7SkahoXPnAjLB2GaJid0L/m +xqUVfab7tMJ3GrIflH8478uF9acsbwz8oKHJidVvD/lw4XCjXIfdOA0LDLoO +TF7gQvmDshO2UzRkGfiIHnTnwl3m8CEbXmn8fvHcYuVZLpyp0VFj0aRRyLf/ +iJAZF6ZvzK0/biGNTZdmvAYpLsxf4u/krZPGbD2n9pdN49DjVxJ+9XcZ3LG1 +U1/KZBye14RvXmMug9W6nR6xTWPg9z7qs0acDIro6lu9lB6DHddscgybZXC1 +COjUsUaBqW3Yc45PFhtKEnXCQ0bAod7FVBlksdGOP/mQ/w8YN3+0e8FbFnOu +eCflOXwHx+BSscePZbFI+MborPow1PpPqQv8WOH7VtWz3w5CSsCJGnsZOZSQ +Dw0RPDMAxse6wp1PyaFeyX3aeH0/LJQqsyyT5PBvcTVRFbk+kFHKjjvaKoe8 +PalTYkQPEK7HBYeE5XFvuf56duNnyC7dMHxNWx6HVCSlx8u7QLhVgL/tsjxy +ip9vkop/D6evNhC/SuWRVz/UsPVRO+yE3MI9E/JYZuYVPancBl/ryy5v3KGA +y87Da1OCm0CY9f3ptJ0C2mzcnyHuUw9k2ODoyxQFbNv5hcdrphYIzkY71U4F +NLwte/1UbjWkhZ0++EiUjq7GUgIn+SthgdVl22RAx3bRKRkeWsnKf2WvvQuh +4zvl16eNNhYCefbk88ccOtrtjHC8xl8IqwVuTIaF0rFvx2Bq/XQB1KEQW+c6 +HYuNE7zsPheAdil3X2EEHTunHusLZRbA/uyKkcR4OrptH1Pn3V8AOzjmJ5hp +dMwrVuC74fwUNmiHifVU0LFmN3eT8Zt8kLlbMtBSScfHOsfMNzzNB6WFwcLK +53Qcns0yGUjKh2PPdExSXtBxbLOUSY1DPoRSi9HmtXSUn3WVOM2bD4sbXIWa +39CRt+9VHB88gaF+s4XSjyt+V7vy1b56BBUhMn3xM3RUl+bUxq3OgzHWTIv7 +LB1vZW7zFZnMBaldreVGcyt+0tV+i+vJhYCPfom/LdCxgdItqi/NBVT6oB++ +vOK/02vp41+5UPch6kmQAIHmon1L4f/kQKvigp/bJgKdD0kc/pafDb1t78VP +7CJwLoQaTo3MhMje2nsMZQLPxYXdu+ufCRoTTxl8uwlMldUuzDuXCfHroveX +qhA4oRj9duBYJuie0LOWUydQ/qHB+l7RTMhqKs6c1iRQL13FbiwuA869TlK7 +d4TAfI3FGMX0BzBTwTKZcCDQpyclo7zvPrSHa3p9PUOgoGWqxL6O+/CEJX3z +zVkCV71jjVTX3YczMwMfM5wI/LoDvaey70OnitufrPMEzlSEn+x3uQ/PckPd +arwIfEKuOdK+nAaeSYXRicEEKvMTMk1EGvzPQ7Rp330C2cmc9iHFVBgrSxYR +TydwXtYr6uHmVBjhUTgyuYKvln2oCFy+A0PR+xsfZxD4RcL80Kn2O9Cdd7Ze +LofAWQOBls5Ld6C5/2Xt2nwC257r/vO29TbkmHhX9lau9Hew2iDkagrYqvQ8 +vt5FYM269ntp4skQs88m1OfjSj+RDYJpvMlQqdVj7fiJwCKzucx8bhJsOdqz +7vAXAqfsCdNfr5Og2a7HXbCXQMksEzEbnyTYe6NnT+gwgUmBLb5i3Tdh7WzP +8+BpAv9qiQkUfnYDip/3tgRsJvGR6ezua9EJIKApXGctRqLCxy6Do1cSwKx8 +d7mWOIn+Ne38km4JMFl8NWt5C4nxl2e0vxongPLfClcCJEkcOBwyOiqWAHnp +jsoBciTOr1NLV0yLh7vXJuIvK5MYmas0M1kZBxxjHqb/MRLD9G71z4vFgpEI +jlgeJzElgr05WzgWpGqv+KueIPHmp4sKZfMxUKD2K23EkMToVwpPXjfGQPeW +5R9MUxK3D4/FVjnGgHr3gt8eKxLVftwbFMuLhiHnmXvcsyRWqaUoCe6PAv0Q +7jA7mMQua2MBtchw0FmU22QYQqKzf3jaJu9w0PSy1DrAIXHYQ9NVgB0OKvbV +iduukdj4qPmctFo4SB2M124PJ5FfyNh0+9cwmOBTv60bT+Kcp6r+TZUwSA6+ +fIK4T+Lxvf+9thi5BiNX1z4brVrJd0xlU2I4B1Z7/lhqfEEiOg2w6n05IG/3 +Wi+nmsT0xT1Jgk4cOKUb2GVfQ2KEcnLrE30OtPJNLXx9RSLbXVAmSYADBSGf +ddqaSSyijfe9Dg4B39C8tqJPJC6Vnh1nhwWDUPjhscvTJFZkV1tySoLATEOi +1WWGRM9GwyBOThCkfR/Nt5klkWRHacffCoJ9+jGe2vMk2n9JOvXOLwgc+Tvn ++ZdJ7P9u/GUAg6AhwE44UoCBD0pMtjJbAuG6ZwCRspmBwZ/qHpl2XwHB00Xs +YhUGTgWqv2zO8YdWvdTudFUGyrj0q0zE+sNN5dBTMWoM9Fvbb036+gPBz2Q6 +qjNwUDE5s83AH/QeLhhK7Gfgvz0NSqJjfhAypwMB2gxc1/GCLaPmBzw33/2u +Z8TAgUMKhrrtvjDbyv30/jwD91VUNOjoXoR+5UDvAhcGLo3aDijuvgjN8Rs2 +xrgy8M++Xcsy0hfhnoWawWF3BvqM+Kzau+ANet2+JeVeDAyQVP9duMgbEsb5 +E+/5MfDSsVJvTYY3KK2VPO4UxsD37cJFSRIXwMFA/8ViBgOddN145xQ8IcC5 +ZXI0k4GeB/3l2zZ7QnKEKeNzFgNjtBS6ivg94U2LTVxZDgN952hvswY8QMnE +x877EQMzXdLLtmd6wKxVruBEIQMFhrta8hkeEHlujdG3GgZqZTTtMtdwh4KY +t72NvQxcH7N7MnPJBcYZyyq5fSv338yzVAddgFGzg3O9n4FS8gkx/zS7wN2p +MEp/gIHtZv4NhndcIIJ10KNumIHzdBNVRU0XsJcv43vBZeDpw21rba+cB/GS +dKJokYGuDrDFd9M58Ou+cO7uVgqfNPjL6Lg6gUpBhZXvNgqr5NS1E046wXfO +KgMzCQptKo/FTeo7gcXOKLqIFIWJW4Xj+mRW+P4Z3RekKZz2575x73CEkW0d +RscJCvdtDSBYfzgC01x5z6IqhSJjR5R+ip0F9eaRJZYhhUUiqXJrpuxByobO +0TeiULXNLMq93x74/rNZu8eYwvPkaPFQmz20bXkvsd6UwqjiBLGlx/bgbPdi +72sLCt1Ctz/scrSH1PkEdxVrCl/Q+B9inx3wUwcGRc5TeFlo/E7QF1to58Q0 +V4RTuAWYB0zn2fAp1sP9VgSFP6/W3OYdZ8O32+biFyMpvO4+6FDZw4app5Js +lWgK60u7pQxfsUGsO3syJ45CIaMXqhOxbGCqV0vcTKaw0yhBREKRDd1DE45u +WRRu5u2IelhvDT/0TQToNRRKfrCVSh46CZu5O92laimkv9PtoFpPAiYKf91U +R6HxP8aDbc9OQnJvdRHv65U+3W+1WXNOwmHfXfa9jSv67q6qi/STkJW3tvb2 +OwqH8cDqaCcrsBWtD9zYR6FaGa39LQ8LogvTx4T7KfSdX9o4MsKEclYAc9U3 +CuVbP/puec+EDVl7lCcGVvr1fOv9MJcJ1VoZPS3fKXzH7ThdbMoEabcgrbAJ +Clv+2Bpr8NASjoifzgv8l8K80g7/6JuW4F25T9znPwpVpqUjBoMsoVVoYvzM +FIVnxDVaGpmWEHDfOvXgLIXUq3XKToKWkKe/X1hzjsKc6/HuByYtoHNc7ILq +PIXPizIs5XssYOf+lmNyiyt5BqY75EssgNmbU7pticJQkeSjWg8sICQ0RGHD +MoV/14UrOsdYwN872LFCvyjUqE37M9vPAr60/7H4awX/6i3t+3nWAv4PiaHP +Uw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 13}, {0., 0.9679114273128215}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{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.9679114273128215}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVUXk01Yv3lSFDeY1UeNd4P5/7UUlI6ck5KNJk5l4V9xkKr8yJSMRV5rFI +Kcnc4IXMSShkSLykyZShDPfrPTLTz++Ps87a6+y91t77yNq6mjjw8vDwNK3M +/+/DVtcFeXho2OBdYis7xwWddFWN8lU0/Gx1z4w1y4U/Rrqdvfho2DhtVRg7 +wwWlS3tav6+m4fJi+bOln1wQS+lPfCdKQw/rDbVt/3Gh/6Om3ANJGrrz/Myy +GuOCP+tfTb29NITGqqr5bi7kM608Il1oOPvIo9GshgtC0v97/5cbDWc+al0y +eskF9mCwxlEPGn4LcbA+Ws2FjR6PeUS8adhmeLFKq4oLXhE8Mdcu03CwKKpF +spwLGlVZD69G0vD0YmDmk6dcqJWfHPDJo+Ewf7SkahoXPnAjLB2GaJid0L/m +xqUVfab7tMJ3GrIflH8478uF9acsbwz8oKHJidVvD/lw4XCjXIfdOA0LDLoO +TF7gQvmDshO2UzRkGfiIHnTnwl3m8CEbXmn8fvHcYuVZLpyp0VFj0aRRyLf/ +iJAZF6ZvzK0/biGNTZdmvAYpLsxf4u/krZPGbD2n9pdN49DjVxJ+9XcZ3LG1 +U1/KZBye14RvXmMug9W6nR6xTWPg9z7qs0acDIro6lu9lB6DHddscgybZXC1 +COjUsUaBqW3Yc45PFhtKEnXCQ0bAod7FVBlksdGOP/mQ/w8YN3+0e8FbFnOu +eCflOXwHx+BSscePZbFI+MborPow1PpPqQv8WOH7VtWz3w5CSsCJGnsZOZSQ +Dw0RPDMAxse6wp1PyaFeyX3aeH0/LJQqsyyT5PBvcTVRFbk+kFHKjjvaKoe8 +PalTYkQPEK7HBYeE5XFvuf56duNnyC7dMHxNWx6HVCSlx8u7QLhVgL/tsjxy +ip9vkop/D6evNhC/SuWRVz/UsPVRO+yE3MI9E/JYZuYVPancBl/ryy5v3KGA +y87Da1OCm0CY9f3ptJ0C2mzcnyHuUw9k2ODoyxQFbNv5hcdrphYIzkY71U4F +NLwte/1UbjWkhZ0++EiUjq7GUgIn+SthgdVl22RAx3bRKRkeWsnKf2WvvQuh +4zvl16eNNhYCefbk88ccOtrtjHC8xl8IqwVuTIaF0rFvx2Bq/XQB1KEQW+c6 +HYuNE7zsPheAdil3X2EEHTunHusLZRbA/uyKkcR4OrptH1Pn3V8AOzjmJ5hp +dMwrVuC74fwUNmiHifVU0LFmN3eT8Zt8kLlbMtBSScfHOsfMNzzNB6WFwcLK +53Qcns0yGUjKh2PPdExSXtBxbLOUSY1DPoRSi9HmtXSUn3WVOM2bD4sbXIWa +39CRt+9VHB88gaF+s4XSjyt+V7vy1b56BBUhMn3xM3RUl+bUxq3OgzHWTIv7 +LB1vZW7zFZnMBaldreVGcyt+0tV+i+vJhYCPfom/LdCxgdItqi/NBVT6oB++ +vOK/02vp41+5UPch6kmQAIHmon1L4f/kQKvigp/bJgKdD0kc/pafDb1t78VP +7CJwLoQaTo3MhMje2nsMZQLPxYXdu+ufCRoTTxl8uwlMldUuzDuXCfHroveX +qhA4oRj9duBYJuie0LOWUydQ/qHB+l7RTMhqKs6c1iRQL13FbiwuA869TlK7 +d4TAfI3FGMX0BzBTwTKZcCDQpyclo7zvPrSHa3p9PUOgoGWqxL6O+/CEJX3z +zVkCV71jjVTX3YczMwMfM5wI/LoDvaey70OnitufrPMEzlSEn+x3uQ/PckPd +arwIfEKuOdK+nAaeSYXRicEEKvMTMk1EGvzPQ7Rp330C2cmc9iHFVBgrSxYR +TydwXtYr6uHmVBjhUTgyuYKvln2oCFy+A0PR+xsfZxD4RcL80Kn2O9Cdd7Ze +LofAWQOBls5Ld6C5/2Xt2nwC257r/vO29TbkmHhX9lau9Hew2iDkagrYqvQ8 +vt5FYM269ntp4skQs88m1OfjSj+RDYJpvMlQqdVj7fiJwCKzucx8bhJsOdqz +7vAXAqfsCdNfr5Og2a7HXbCXQMksEzEbnyTYe6NnT+gwgUmBLb5i3Tdh7WzP +8+BpAv9qiQkUfnYDip/3tgRsJvGR6ezua9EJIKApXGctRqLCxy6Do1cSwKx8 +d7mWOIn+Ne38km4JMFl8NWt5C4nxl2e0vxongPLfClcCJEkcOBwyOiqWAHnp +jsoBciTOr1NLV0yLh7vXJuIvK5MYmas0M1kZBxxjHqb/MRLD9G71z4vFgpEI +jlgeJzElgr05WzgWpGqv+KueIPHmp4sKZfMxUKD2K23EkMToVwpPXjfGQPeW +5R9MUxK3D4/FVjnGgHr3gt8eKxLVftwbFMuLhiHnmXvcsyRWqaUoCe6PAv0Q +7jA7mMQua2MBtchw0FmU22QYQqKzf3jaJu9w0PSy1DrAIXHYQ9NVgB0OKvbV +iduukdj4qPmctFo4SB2M124PJ5FfyNh0+9cwmOBTv60bT+Kcp6r+TZUwSA6+ +fIK4T+Lxvf+9thi5BiNX1z4brVrJd0xlU2I4B1Z7/lhqfEEiOg2w6n05IG/3 +Wi+nmsT0xT1Jgk4cOKUb2GVfQ2KEcnLrE30OtPJNLXx9RSLbXVAmSYADBSGf +ddqaSSyijfe9Dg4B39C8tqJPJC6Vnh1nhwWDUPjhscvTJFZkV1tySoLATEOi +1WWGRM9GwyBOThCkfR/Nt5klkWRHacffCoJ9+jGe2vMk2n9JOvXOLwgc+Tvn ++ZdJ7P9u/GUAg6AhwE44UoCBD0pMtjJbAuG6ZwCRspmBwZ/qHpl2XwHB00Xs +YhUGTgWqv2zO8YdWvdTudFUGyrj0q0zE+sNN5dBTMWoM9Fvbb036+gPBz2Q6 +qjNwUDE5s83AH/QeLhhK7Gfgvz0NSqJjfhAypwMB2gxc1/GCLaPmBzw33/2u +Z8TAgUMKhrrtvjDbyv30/jwD91VUNOjoXoR+5UDvAhcGLo3aDijuvgjN8Rs2 +xrgy8M++Xcsy0hfhnoWawWF3BvqM+Kzau+ANet2+JeVeDAyQVP9duMgbEsb5 +E+/5MfDSsVJvTYY3KK2VPO4UxsD37cJFSRIXwMFA/8ViBgOddN145xQ8IcC5 +ZXI0k4GeB/3l2zZ7QnKEKeNzFgNjtBS6ivg94U2LTVxZDgN952hvswY8QMnE +x877EQMzXdLLtmd6wKxVruBEIQMFhrta8hkeEHlujdG3GgZqZTTtMtdwh4KY +t72NvQxcH7N7MnPJBcYZyyq5fSv338yzVAddgFGzg3O9n4FS8gkx/zS7wN2p +MEp/gIHtZv4NhndcIIJ10KNumIHzdBNVRU0XsJcv43vBZeDpw21rba+cB/GS +dKJokYGuDrDFd9M58Ou+cO7uVgqfNPjL6Lg6gUpBhZXvNgqr5NS1E046wXfO +KgMzCQptKo/FTeo7gcXOKLqIFIWJW4Xj+mRW+P4Z3RekKZz2575x73CEkW0d +RscJCvdtDSBYfzgC01x5z6IqhSJjR5R+ip0F9eaRJZYhhUUiqXJrpuxByobO +0TeiULXNLMq93x74/rNZu8eYwvPkaPFQmz20bXkvsd6UwqjiBLGlx/bgbPdi +72sLCt1Ctz/scrSH1PkEdxVrCl/Q+B9inx3wUwcGRc5TeFlo/E7QF1to58Q0 +V4RTuAWYB0zn2fAp1sP9VgSFP6/W3OYdZ8O32+biFyMpvO4+6FDZw4app5Js +lWgK60u7pQxfsUGsO3syJ45CIaMXqhOxbGCqV0vcTKaw0yhBREKRDd1DE45u +WRRu5u2IelhvDT/0TQToNRRKfrCVSh46CZu5O92laimkv9PtoFpPAiYKf91U +R6HxP8aDbc9OQnJvdRHv65U+3W+1WXNOwmHfXfa9jSv67q6qi/STkJW3tvb2 +OwqH8cDqaCcrsBWtD9zYR6FaGa39LQ8LogvTx4T7KfSdX9o4MsKEclYAc9U3 +CuVbP/puec+EDVl7lCcGVvr1fOv9MJcJ1VoZPS3fKXzH7ThdbMoEabcgrbAJ +Clv+2Bpr8NASjoifzgv8l8K80g7/6JuW4F25T9znPwpVpqUjBoMsoVVoYvzM +FIVnxDVaGpmWEHDfOvXgLIXUq3XKToKWkKe/X1hzjsKc6/HuByYtoHNc7ILq +PIXPizIs5XssYOf+lmNyiyt5BqY75EssgNmbU7pticJQkeSjWg8sICQ0RGHD +MoV/14UrOsdYwN872LFCvyjUqE37M9vPAr60/7H4awX/6i3t+3nWAv4PiaHP +Uw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 13}, {0., 0.9679114273128215}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> 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}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{7.5, 13}, {0., 0.9679114273128215}}, + 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.992165520280733*^9, {3.9921655924327106`*^9, + 3.9921656296679287`*^9}, {3.9921657111669273`*^9, 3.9921657156549263`*^9}}, + CellLabel->"Out[26]=",ExpressionUUID->"ce0198a0-78ca-e145-8120-fc7eabacae13"] +}, 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", ",", "7.5", ",", "13", ",", "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.5", ",", "13", ",", "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.992166057832285*^9, + 3.9921660633452206`*^9}}, + CellLabel->"In[27]:=",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.1299335613993551`\\\", \\\" \\\", 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.12340750146489952`\\\", \\\" \\\", 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.1299335613993551`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.12340750146489952`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.631712350908745`\\\", \\\" \ +\\\", \\\"R1\\\"}], \\\"]\\\"}]}], \ +RowBox[{RowBox[{\\\"417991.53320241044`\\\", \\\"\[VeryThinSpace]\\\"}], \ +\\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\")\\\"}]}], \\\"+\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"49\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"6\ +\\\", \\\"\[RightSkeleton]\\\"}]}], \\\",\\\", RowBox[{RowBox[{\\\"2.`\\\", \ +\\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", FractionBox[RowBox[{\ +\\\"0.4023668639053254`\\\", \\\" \\\", SuperscriptBox[RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"18\\\", \\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]], \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"7.5`\\\", \\\"\[VeryThinSpace]\\\"}], \ +\\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \\\", \\\"R1\\\"}]}], \\\")\\\"}]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[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[{RowBox[{\\\"0.1299335613993551`\\\", \\\ +\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.12340750146489952`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.631712350908745`\\\", \\\" \ +\\\", \\\"R1\\\"}], \\\"]\\\"}]}], \ +RowBox[{RowBox[{\\\"417991.53320241044`\\\", \\\"\[VeryThinSpace]\\\"}], \ +\\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\")\\\"}]}], \\\"+\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"47\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"+\\\", RowBox[{\\\"2.`\\\", \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", FractionBox[RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]]}], \\\"-\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"6\\\", \\\"\[RightSkeleton]\\\"}]}]}], \ +\\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \\\",\\\", \\\"b0\\\"}], \\\"}\ +\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.`\\\", \\\",\\\", \ +\\\"0.65`\\\"}], \\\"}\\\"}]\\).\"", 2, 27, 1, 29225281869222108711, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9917125179761257`*^9, 3.991964171446245*^9, + 3.9919651511804237`*^9, 3.992166090223921*^9}, + CellLabel-> + "During evaluation of \ +In[27]:=",ExpressionUUID->"8a1ca449-8ade-e546-aba0-d9eaceafdc8b"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.8708347117234477`"}], ",", + RowBox[{"b0", "\[Rule]", "1.1433871617874625`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991712518051634*^9, 3.9919641715267353`*^9, + 3.99196515126849*^9, 3.992166090324852*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"4179cd76-b416-dd42-b386-0c47b2d2830d"] +}, 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.5", ",", "13", ",", "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.5", ",", "13", ",", "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.9921660761217575`*^9, 3.992166081873684*^9}}, + CellLabel->"In[28]:=",ExpressionUUID->"79d865b0-6c37-3243-a4e0-d7506dcfe14a"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{RowBox[{\\\"-\\\", \ +\\\"0.49680479358576957`\\\"}], \\\" \\\", \\\"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.12340750146489952`\\\", \\\" \\\", \ +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[{\\\"22497.02898178406`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.49680479358576957`\\\", \\\" \\\", \\\"R1\\\", \\\" \ +\\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\ +\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"+\\\", \ +RowBox[{\\\"0.12340750146489952`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.631712350908745`\\\", \\\" \ +\\\", \\\"R1\\\"}], \\\"]\\\"}]}], \ +RowBox[{RowBox[{\\\"417991.53320241044`\\\", \\\"\[VeryThinSpace]\\\"}], \ +\\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\")\\\"}]}], \\\"+\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"49\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"6\ +\\\", \\\"\[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, 28, 2, 29225281869222108711, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9917125235776978`*^9, 3.992166090439041*^9}, + CellLabel-> + "During evaluation of \ +In[28]:=",ExpressionUUID->"55e1fa9b-3f66-b14c-835a-80c79c94d039"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.8708417363423178`"}], ",", + RowBox[{"b0", "\[Rule]", "1.1433869992971433`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9917125237225304`*^9, 3.9921660906190414`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"bccd2d3f-ff04-d740-a952-a694e24bee97"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "1.73"}]], "Input", + CellChangeTimes->{{3.991712542905905*^9, 3.991712545766283*^9}, { + 3.9919641812561817`*^9, 3.9919641814730263`*^9}, {3.991965164548561*^9, + 3.9919651652528534`*^9}, {3.992166236170164*^9, 3.992166240880272*^9}, { + 3.9921668853751316`*^9, 3.9921668867027836`*^9}, {3.99216700439213*^9, + 3.9921670140922184`*^9}, {3.9921679301088276`*^9, 3.9921679856468735`*^9}, + 3.992168435502323*^9, {3.992168492803892*^9, 3.9921684939459896`*^9}, { + 3.992168525617737*^9, 3.99216854920619*^9}, {3.992168713847084*^9, + 3.992168716808363*^9}}, + CellLabel-> + "In[106]:=",ExpressionUUID->"b936a356-288b-fa49-9ce3-75db208c644a"], + +Cell[BoxData["1.73`"], "Output", + CellChangeTimes->{ + 3.991712577539974*^9, 3.9919641835911674`*^9, 3.991965166337839*^9, + 3.9921662621230106`*^9, 3.992166324418976*^9, 3.9921668885385017`*^9, + 3.9921670171260605`*^9, {3.9921679310032806`*^9, 3.992167987749914*^9}, + 3.992168436728285*^9, {3.992168501573597*^9, 3.99216855486648*^9}, + 3.992168717735914*^9}, + CellLabel-> + "Out[106]=",ExpressionUUID->"3803d881-b189-8048-84ea-7d7615e7429a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.76"}]], "Input", + CellChangeTimes->{{3.9917125549495907`*^9, 3.9917125609834213`*^9}, { + 3.9919641902090893`*^9, 3.9919641942126675`*^9}, {3.9919651710886517`*^9, + 3.991965171325409*^9}, {3.992166246661829*^9, 3.992166250558117*^9}, { + 3.992167844149521*^9, 3.992167844487095*^9}, {3.992167900704691*^9, + 3.992167915986267*^9}, {3.9921679740963593`*^9, 3.992167980344982*^9}, { + 3.992168430095152*^9, 3.9921685136438465`*^9}, {3.992168552036869*^9, + 3.992168566056875*^9}, {3.9921686976721554`*^9, 3.992168711650463*^9}}, + CellLabel-> + "In[107]:=",ExpressionUUID->"d5b02e93-37c6-e046-a015-cd95d27ec9f3"], + +Cell[BoxData["0.76`"], "Output", + CellChangeTimes->{ + 3.9917125776046295`*^9, {3.9919641919259663`*^9, 3.9919641946011486`*^9}, + 3.991965172422703*^9, 3.992166257987089*^9, 3.9921663244690895`*^9, + 3.9921678478409233`*^9, {3.9921679053739796`*^9, 3.992167917063181*^9}, + 3.9921679900955524`*^9, {3.9921684386424446`*^9, 3.9921685147708435`*^9}, { + 3.9921685527504635`*^9, 3.9921685667044125`*^9}, {3.9921687030282383`*^9, + 3.992168720067934*^9}}, + CellLabel-> + "Out[107]=",ExpressionUUID->"d2deb25f-9225-2d42-91e9-938274abf369"] +}, 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.5", ",", "13"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917168703228035`*^9, {3.991964206647356*^9, 3.9919642192992706`*^9}, { + 3.992166351518507*^9, 3.992166369071926*^9}}, + CellLabel-> + "In[108]:=",ExpressionUUID->"7cc2507c-877d-4b47-80a1-806136a93537"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVkWs01AkYhye3MQkRdlt2mhljzH+lEopc3le1YRmdtDJTaJAuTqj/YBVZ +l3HNZGtdWrHSdiilRGkipSQ5mUG7ZCtMWCnXVO7W2g+/83x4vj0/ZkCYZ5AS +hULhLe1/uuxNpVIodORlNCyMmlHxJn8vmRFKx1B3W5sEmhq+HD3tHTRAR/+7 +QwdiilRwMntmJW/PGmTuCXGotlbG2ZMqHUpP1mD5rHvk/fpl2BN9Nz3hWwZq +N1hFe6+nYO3jdD0NLwZ+JxHa+0YtQHS75LXtWQaWaw31uB2fhbUp+6/sbGZg +tG5q+LmiKeA77ew5qszEdEmdTYv5FwhqDN29AZjYXfJgvlM6ASNe1y3mIpmY +02L9a1fhOBxOlOqXlTHRWOI+cCtuBOpjPm9Sfc/EAhtHP3bHe8iL9Xh8gMHC +wx+pXEnDAOxy70wP9mGha57hT9TWPpiTbhB457LwoRT7OfAWGOtKzrrJWZhr +1FRwfms3cMJ41AGaMVqM3Kj4tOkVlEh13qU4GWPcbavK4wMdQJOrqrSeMsZg +/4qXrx/9Cb4JzziLUmOUfgrj0la1gTlcrbQeN8Z7q5tb/Bpl0NV475TuWjaa +Zafoy4qbgCYYvDUZyEbUSshO5j0F07R/hh7lsbGPHjJ2JKweOEm6gZYdbKxO +Kbfk19TBxTTf7dc1TfB+oRXrkEEtzAk6A567muDg8O6M2lkpuDQxU9rEJsha +zHEyi78DOk5p+j01Jij3/k17Y0UF1IgZb89NmeBKHq3fTbscFK3tBh7rOXji +5pfNOV3XYKpG4DkexMGcO1HBtg5XYIzUfG5TxEF3jWfmju2XIWBjT1lqJwc/ +xc/pzetfgqpahSxWzxT9hl4MalELIWkXhR/jborKvkxJYG8eOItH3wkTl3xn +omflvlz4kLDiztADU1Szznp5WjML1NNdhk9NmmJ4UC45EXgWqL63hVUbuVjV +YXWvWSaBafnoq/YQLs4UcnPZ+WkQ5Or8cP4yF2O4Q0c07JKhIrNF0aTgot/J +Y9S9OokQ3R1x9PevCWwr9NEuSoqDTc0fFgQ7CVQVD27bVxUDL5Iym2vSCTSi +RvcPFEfBe2dPVZPHBH5TCscU/hHw5oXd/OIigSKLN9jlQEKM4KP9js109LLw +Lyi+qIYBmo1xum8J1AhplQw/FEHv3/asPwzpuB9HJ3vfqWFx6Yr6C20Exgtn +Vz3KCIc1x+Id08YJnGEeFK6cI0E/rzerTZOOF6UHL3gup6LLifUHFE0E8s6U +0LdOhkOd4+Ue2SCBBtM/i8Q+Iogt8ivYPk3ggNsJcfIFEtadtJYPqtHxql9R +iZ0hFc8r6m4rPSXwel/mRLNZBOgUW28Y7yfwiZ1cOCMRgVx9fOTg56Ue2vlP +tZ6TYL5F5s6aJzAv/+qhyKMk2H3oDg5XpuNfVNlX+cZUxCxa16onBMoFsckN +OyKgWhDLX9ZH4GeBh2FfsQgi79sYRE0QaJbl4kXpI6FjRD/CcpbAYKNQ8Vgi +CeJkMVvnXwLDHgjUDb1I2HrJ0rZ6GR0j+K8cGk2pqDdqftyonsC57KEyjx8j +4EzlpWFaL4GZWhqvAytF8IOBb2ncRwKtDbtTVcZIKHXeQrOfIXB797Xv72aS +wFdcka5eIHC1zw2lBiEJ5WuFv6gv/bV8aloU5UrCf+Z7LzM= + "], {{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], 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:eJwVkWs01AkYhye3MQkRdlt2mhljzH+lEopc3le1YRmdtDJTaJAuTqj/YBVZ +l3HNZGtdWrHSdiilRGkipSQ5mUG7ZCtMWCnXVO7W2g+/83x4vj0/ZkCYZ5AS +hULhLe1/uuxNpVIodORlNCyMmlHxJn8vmRFKx1B3W5sEmhq+HD3tHTRAR/+7 +QwdiilRwMntmJW/PGmTuCXGotlbG2ZMqHUpP1mD5rHvk/fpl2BN9Nz3hWwZq +N1hFe6+nYO3jdD0NLwZ+JxHa+0YtQHS75LXtWQaWaw31uB2fhbUp+6/sbGZg +tG5q+LmiKeA77ew5qszEdEmdTYv5FwhqDN29AZjYXfJgvlM6ASNe1y3mIpmY +02L9a1fhOBxOlOqXlTHRWOI+cCtuBOpjPm9Sfc/EAhtHP3bHe8iL9Xh8gMHC +wx+pXEnDAOxy70wP9mGha57hT9TWPpiTbhB457LwoRT7OfAWGOtKzrrJWZhr +1FRwfms3cMJ41AGaMVqM3Kj4tOkVlEh13qU4GWPcbavK4wMdQJOrqrSeMsZg +/4qXrx/9Cb4JzziLUmOUfgrj0la1gTlcrbQeN8Z7q5tb/Bpl0NV475TuWjaa +Zafoy4qbgCYYvDUZyEbUSshO5j0F07R/hh7lsbGPHjJ2JKweOEm6gZYdbKxO +Kbfk19TBxTTf7dc1TfB+oRXrkEEtzAk6A567muDg8O6M2lkpuDQxU9rEJsha +zHEyi78DOk5p+j01Jij3/k17Y0UF1IgZb89NmeBKHq3fTbscFK3tBh7rOXji +5pfNOV3XYKpG4DkexMGcO1HBtg5XYIzUfG5TxEF3jWfmju2XIWBjT1lqJwc/ +xc/pzetfgqpahSxWzxT9hl4MalELIWkXhR/jborKvkxJYG8eOItH3wkTl3xn +omflvlz4kLDiztADU1Szznp5WjML1NNdhk9NmmJ4UC45EXgWqL63hVUbuVjV +YXWvWSaBafnoq/YQLs4UcnPZ+WkQ5Or8cP4yF2O4Q0c07JKhIrNF0aTgot/J +Y9S9OokQ3R1x9PevCWwr9NEuSoqDTc0fFgQ7CVQVD27bVxUDL5Iym2vSCTSi +RvcPFEfBe2dPVZPHBH5TCscU/hHw5oXd/OIigSKLN9jlQEKM4KP9js109LLw +Lyi+qIYBmo1xum8J1AhplQw/FEHv3/asPwzpuB9HJ3vfqWFx6Yr6C20Exgtn +Vz3KCIc1x+Id08YJnGEeFK6cI0E/rzerTZOOF6UHL3gup6LLifUHFE0E8s6U +0LdOhkOd4+Ue2SCBBtM/i8Q+Iogt8ivYPk3ggNsJcfIFEtadtJYPqtHxql9R +iZ0hFc8r6m4rPSXwel/mRLNZBOgUW28Y7yfwiZ1cOCMRgVx9fOTg56Ue2vlP +tZ6TYL5F5s6aJzAv/+qhyKMk2H3oDg5XpuNfVNlX+cZUxCxa16onBMoFsckN +OyKgWhDLX9ZH4GeBh2FfsQgi79sYRE0QaJbl4kXpI6FjRD/CcpbAYKNQ8Vgi +CeJkMVvnXwLDHgjUDb1I2HrJ0rZ6GR0j+K8cGk2pqDdqftyonsC57KEyjx8j +4EzlpWFaL4GZWhqvAytF8IOBb2ncRwKtDbtTVcZIKHXeQrOfIXB797Xv72aS +wFdcka5eIHC1zw2lBiEJ5WuFv6gv/bV8aloU5UrCf+Z7LzM= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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.5, 13}, {0., 2.8964519334709053`}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkHs0lAkchie3MQkRdlt2mhljzLdSCUUuv59qwzI6aWWm0CBdnFDfYBVZ +l3HNZGtdWrHSdiilRGkipSQ5mUG7ZCtMWCnXVO7W2j/e85znPP+9zIAwzyAl +CoXCW9r/dNmbSqVQ6MjLaFgYNaPi1kuWttXL6BjBf+XQaEpFuw/dweHKdPyL +Kvsq35iK605aywfV6HjVr6jEzpCK+nm9WW2adLwoPXjBczkVe/+2Z/1hSMf9 +ODrZ+04NYwQf7XdspqOXhX9B8UU1vMnfS2aE0jHU3dYmgaaGL0dPewcN0NH/ +7tCBmCIVnMyeWcnbswaZe0Icqq2VcfakSofSkzVYPuseeb9+GfZE301P+JaB +2g1W0d7rKVj7OF1Pw4uB30mE9r5RCxDdLnlte5aB5VpDPW7HZ2Ftyv4rO5sZ +GK2bGn6uaAr4Tjt7jiozMV1SZ9Ni/gWCGkN3bwAmdpc8mO+UTsCI13WLuUgm +5rRY/9pVOA6HE6X6ZWVMNJa4D9yKG4H6mM+bVN8zscDG0Y/d8R7yYj0eH2Cw +8PBHKlfSMAC73DvTg31Y6Jpn+BO1tQ/mpBsE3rksfCjFfg68Bca6krNuchbm +GjUVnN/aDZwwHnWAZowWIzcqPm16BSVSnXcpTsYYd9uq8vhAB9Dkqiqtp4wx +2L/i5etHf4JvwjPOotQYpZ/CuLRVbWAOVyutx43x3urmFr9GGXQ13julu5aN +Ztkp+rLiJqAJBm9NBrIRtRKyk3lPwTTtn6FHeWzso4eMHQmrB06SbqBlBxur +U8ot+TV1cDHNd/t1TRO8X2jFOmRQC3OCzoDnriY4OLw7o3ZWCi5NzJQ2sQmy +FnOczOLvgI5Tmn5PjQnKvX/T3lhRATVixttzUya4kkfrd9MuB0Vru4HHeg6e +uPllc07XNZiqEXiOB3Ew505UsK3DFRgjNZ/bFHHQXeOZuWP7ZQjY2FOW2snB +T/FzevP6l6CqViGL1TNFv6EXg1rUQkjaReHHuJuisi9TEtibB87i0XfCxKXe +mehZuS8XPiSsuDP0wBTVrLNentbMAvV0l+FTk6YYHpRLTgSeBarvbWHVRi5W +dVjda5ZJYFo++qo9hIszhdxcdn4aBLk6P5y/zMUY7tARDbtkqMhsUTQpuOh3 +8hh1r04iRHdHHP39awLbCn20i5LiYFPzhwXBTgJVxYPb9lXFwIukzOaadAKN +qNH9A8VR8N7ZU9XkMYHflMIxhX8E6I2aHzeqJ3Aue6jM48cIwCxa16onBMoF +sckNOyLgvKLuttJTAq/3ZU40m0WAy4n1BxRNBPLOlNC3ToZDcemK+gttBMYL +Z1c9ygiHAM3GON23BGqEtEqGH4rgTOWlYVovgZlaGq8DK0VQLYjlL+sj8LPA +w7CvWAQ6xdYbxvsJfGInF85IRFDneLlHNkigwfTPIrGPCNYci3dMGydwhnlQ +uHKOhB8MfEvjPhJobdidqjJGQuR9G4OoCQLNsly8KH0kyNXHRw5+XvpDO/+p +1nMSYov8CrZPEzjgdkKcfIGEUuctNPsZArd3X/v+biYJHSP6EZazBAYbhYrH +Ekkw3yJzZ80TmJd/9VDkURL4iivS1QsErva5odQgJEGcLGbr/Etg2AOBuqEX +CeVrhb+oLxK4fGpaFOVKwpsXdvOLSy6yeINdDiT8B/9WLzM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 13}, {0., 2.8964519334709053`}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkHs0lAkchie3MQkRdlt2mhljzLdSCUUuv59qwzI6aWWm0CBdnFDfYBVZ +l3HNZGtdWrHSdiilRGkipSQ5mUG7ZCtMWCnXVO7W2j/e85znPP+9zIAwzyAl +CoXCW9r/dNmbSqVQ6MjLaFgYNaPi1kuWttXL6BjBf+XQaEpFuw/dweHKdPyL +Kvsq35iK605aywfV6HjVr6jEzpCK+nm9WW2adLwoPXjBczkVe/+2Z/1hSMf9 +ODrZ+04NYwQf7XdspqOXhX9B8UU1vMnfS2aE0jHU3dYmgaaGL0dPewcN0NH/ +7tCBmCIVnMyeWcnbswaZe0Icqq2VcfakSofSkzVYPuseeb9+GfZE301P+JaB +2g1W0d7rKVj7OF1Pw4uB30mE9r5RCxDdLnlte5aB5VpDPW7HZ2Ftyv4rO5sZ +GK2bGn6uaAr4Tjt7jiozMV1SZ9Ni/gWCGkN3bwAmdpc8mO+UTsCI13WLuUgm +5rRY/9pVOA6HE6X6ZWVMNJa4D9yKG4H6mM+bVN8zscDG0Y/d8R7yYj0eH2Cw +8PBHKlfSMAC73DvTg31Y6Jpn+BO1tQ/mpBsE3rksfCjFfg68Bca6krNuchbm +GjUVnN/aDZwwHnWAZowWIzcqPm16BSVSnXcpTsYYd9uq8vhAB9Dkqiqtp4wx +2L/i5etHf4JvwjPOotQYpZ/CuLRVbWAOVyutx43x3urmFr9GGXQ13julu5aN +Ztkp+rLiJqAJBm9NBrIRtRKyk3lPwTTtn6FHeWzso4eMHQmrB06SbqBlBxur +U8ot+TV1cDHNd/t1TRO8X2jFOmRQC3OCzoDnriY4OLw7o3ZWCi5NzJQ2sQmy +FnOczOLvgI5Tmn5PjQnKvX/T3lhRATVixttzUya4kkfrd9MuB0Vru4HHeg6e +uPllc07XNZiqEXiOB3Ew505UsK3DFRgjNZ/bFHHQXeOZuWP7ZQjY2FOW2snB +T/FzevP6l6CqViGL1TNFv6EXg1rUQkjaReHHuJuisi9TEtibB87i0XfCxKXe +mehZuS8XPiSsuDP0wBTVrLNentbMAvV0l+FTk6YYHpRLTgSeBarvbWHVRi5W +dVjda5ZJYFo++qo9hIszhdxcdn4aBLk6P5y/zMUY7tARDbtkqMhsUTQpuOh3 +8hh1r04iRHdHHP39awLbCn20i5LiYFPzhwXBTgJVxYPb9lXFwIukzOaadAKN +qNH9A8VR8N7ZU9XkMYHflMIxhX8E6I2aHzeqJ3Aue6jM48cIwCxa16onBMoF +sckNOyLgvKLuttJTAq/3ZU40m0WAy4n1BxRNBPLOlNC3ToZDcemK+gttBMYL +Z1c9ygiHAM3GON23BGqEtEqGH4rgTOWlYVovgZlaGq8DK0VQLYjlL+sj8LPA +w7CvWAQ6xdYbxvsJfGInF85IRFDneLlHNkigwfTPIrGPCNYci3dMGydwhnlQ +uHKOhB8MfEvjPhJobdidqjJGQuR9G4OoCQLNsly8KH0kyNXHRw5+XvpDO/+p +1nMSYov8CrZPEzjgdkKcfIGEUuctNPsZArd3X/v+biYJHSP6EZazBAYbhYrH +Ekkw3yJzZ80TmJd/9VDkURL4iivS1QsErva5odQgJEGcLGbr/Etg2AOBuqEX +CeVrhb+oLxK4fGpaFOVKwpsXdvOLSy6yeINdDiT8B/9WLzM= + "]]}, "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:eJwVkWs01AkYhye3MQkRdlt2mhljzH+lEopc3le1YRmdtDJTaJAuTqj/YBVZ +l3HNZGtdWrHSdiilRGkipSQ5mUG7ZCtMWCnXVO7W2g+/83x4vj0/ZkCYZ5AS +hULhLe1/uuxNpVIodORlNCyMmlHxJn8vmRFKx1B3W5sEmhq+HD3tHTRAR/+7 +QwdiilRwMntmJW/PGmTuCXGotlbG2ZMqHUpP1mD5rHvk/fpl2BN9Nz3hWwZq +N1hFe6+nYO3jdD0NLwZ+JxHa+0YtQHS75LXtWQaWaw31uB2fhbUp+6/sbGZg +tG5q+LmiKeA77ew5qszEdEmdTYv5FwhqDN29AZjYXfJgvlM6ASNe1y3mIpmY +02L9a1fhOBxOlOqXlTHRWOI+cCtuBOpjPm9Sfc/EAhtHP3bHe8iL9Xh8gMHC +wx+pXEnDAOxy70wP9mGha57hT9TWPpiTbhB457LwoRT7OfAWGOtKzrrJWZhr +1FRwfms3cMJ41AGaMVqM3Kj4tOkVlEh13qU4GWPcbavK4wMdQJOrqrSeMsZg +/4qXrx/9Cb4JzziLUmOUfgrj0la1gTlcrbQeN8Z7q5tb/Bpl0NV475TuWjaa +Zafoy4qbgCYYvDUZyEbUSshO5j0F07R/hh7lsbGPHjJ2JKweOEm6gZYdbKxO +Kbfk19TBxTTf7dc1TfB+oRXrkEEtzAk6A567muDg8O6M2lkpuDQxU9rEJsha +zHEyi78DOk5p+j01Jij3/k17Y0UF1IgZb89NmeBKHq3fTbscFK3tBh7rOXji +5pfNOV3XYKpG4DkexMGcO1HBtg5XYIzUfG5TxEF3jWfmju2XIWBjT1lqJwc/ +xc/pzetfgqpahSxWzxT9hl4MalELIWkXhR/jborKvkxJYG8eOItH3wkTl3xn +omflvlz4kLDiztADU1Szznp5WjML1NNdhk9NmmJ4UC45EXgWqL63hVUbuVjV +YXWvWSaBafnoq/YQLs4UcnPZ+WkQ5Or8cP4yF2O4Q0c07JKhIrNF0aTgot/J +Y9S9OokQ3R1x9PevCWwr9NEuSoqDTc0fFgQ7CVQVD27bVxUDL5Iym2vSCTSi +RvcPFEfBe2dPVZPHBH5TCscU/hHw5oXd/OIigSKLN9jlQEKM4KP9js109LLw +Lyi+qIYBmo1xum8J1AhplQw/FEHv3/asPwzpuB9HJ3vfqWFx6Yr6C20Exgtn +Vz3KCIc1x+Id08YJnGEeFK6cI0E/rzerTZOOF6UHL3gup6LLifUHFE0E8s6U +0LdOhkOd4+Ue2SCBBtM/i8Q+Iogt8ivYPk3ggNsJcfIFEtadtJYPqtHxql9R +iZ0hFc8r6m4rPSXwel/mRLNZBOgUW28Y7yfwiZ1cOCMRgVx9fOTg56Ue2vlP +tZ6TYL5F5s6aJzAv/+qhyKMk2H3oDg5XpuNfVNlX+cZUxCxa16onBMoFsckN +OyKgWhDLX9ZH4GeBh2FfsQgi79sYRE0QaJbl4kXpI6FjRD/CcpbAYKNQ8Vgi +CeJkMVvnXwLDHgjUDb1I2HrJ0rZ6GR0j+K8cGk2pqDdqftyonsC57KEyjx8j +4EzlpWFaL4GZWhqvAytF8IOBb2ncRwKtDbtTVcZIKHXeQrOfIXB797Xv72aS +wFdcka5eIHC1zw2lBiEJ5WuFv6gv/bV8aloU5UrCf+Z7LzM= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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.5, 13}, {0., 2.8964519334709053`}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkHs0lAkchie3MQkRdlt2mhljzLdSCUUuv59qwzI6aWWm0CBdnFDfYBVZ +l3HNZGtdWrHSdiilRGkipSQ5mUG7ZCtMWCnXVO7W2j/e85znPP+9zIAwzyAl +CoXCW9r/dNmbSqVQ6MjLaFgYNaPi1kuWttXL6BjBf+XQaEpFuw/dweHKdPyL +Kvsq35iK605aywfV6HjVr6jEzpCK+nm9WW2adLwoPXjBczkVe/+2Z/1hSMf9 +ODrZ+04NYwQf7XdspqOXhX9B8UU1vMnfS2aE0jHU3dYmgaaGL0dPewcN0NH/ +7tCBmCIVnMyeWcnbswaZe0Icqq2VcfakSofSkzVYPuseeb9+GfZE301P+JaB +2g1W0d7rKVj7OF1Pw4uB30mE9r5RCxDdLnlte5aB5VpDPW7HZ2Ftyv4rO5sZ +GK2bGn6uaAr4Tjt7jiozMV1SZ9Ni/gWCGkN3bwAmdpc8mO+UTsCI13WLuUgm +5rRY/9pVOA6HE6X6ZWVMNJa4D9yKG4H6mM+bVN8zscDG0Y/d8R7yYj0eH2Cw +8PBHKlfSMAC73DvTg31Y6Jpn+BO1tQ/mpBsE3rksfCjFfg68Bca6krNuchbm +GjUVnN/aDZwwHnWAZowWIzcqPm16BSVSnXcpTsYYd9uq8vhAB9Dkqiqtp4wx +2L/i5etHf4JvwjPOotQYpZ/CuLRVbWAOVyutx43x3urmFr9GGXQ13julu5aN +Ztkp+rLiJqAJBm9NBrIRtRKyk3lPwTTtn6FHeWzso4eMHQmrB06SbqBlBxur +U8ot+TV1cDHNd/t1TRO8X2jFOmRQC3OCzoDnriY4OLw7o3ZWCi5NzJQ2sQmy +FnOczOLvgI5Tmn5PjQnKvX/T3lhRATVixttzUya4kkfrd9MuB0Vru4HHeg6e +uPllc07XNZiqEXiOB3Ew505UsK3DFRgjNZ/bFHHQXeOZuWP7ZQjY2FOW2snB +T/FzevP6l6CqViGL1TNFv6EXg1rUQkjaReHHuJuisi9TEtibB87i0XfCxKXe +mehZuS8XPiSsuDP0wBTVrLNentbMAvV0l+FTk6YYHpRLTgSeBarvbWHVRi5W +dVjda5ZJYFo++qo9hIszhdxcdn4aBLk6P5y/zMUY7tARDbtkqMhsUTQpuOh3 +8hh1r04iRHdHHP39awLbCn20i5LiYFPzhwXBTgJVxYPb9lXFwIukzOaadAKN +qNH9A8VR8N7ZU9XkMYHflMIxhX8E6I2aHzeqJ3Aue6jM48cIwCxa16onBMoF +sckNOyLgvKLuttJTAq/3ZU40m0WAy4n1BxRNBPLOlNC3ToZDcemK+gttBMYL +Z1c9ygiHAM3GON23BGqEtEqGH4rgTOWlYVovgZlaGq8DK0VQLYjlL+sj8LPA +w7CvWAQ6xdYbxvsJfGInF85IRFDneLlHNkigwfTPIrGPCNYci3dMGydwhnlQ +uHKOhB8MfEvjPhJobdidqjJGQuR9G4OoCQLNsly8KH0kyNXHRw5+XvpDO/+p +1nMSYov8CrZPEzjgdkKcfIGEUuctNPsZArd3X/v+biYJHSP6EZazBAYbhYrH +Ekkw3yJzZ80TmJd/9VDkURL4iivS1QsErva5odQgJEGcLGbr/Etg2AOBuqEX +CeVrhb+oLxK4fGpaFOVKwpsXdvOLSy6yeINdDiT8B/9WLzM= + "]]}, "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}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{7.5, 13}, {0., 2.8964519334709053`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9921669732331104`*^9, {3.992167022821558*^9, 3.9921670389680557`*^9}, { + 3.9921678504238663`*^9, 3.992167868550827*^9}, {3.992167908070513*^9, + 3.992167961632416*^9}, 3.992167992262882*^9, {3.9921684432304516`*^9, + 3.9921685692228985`*^9}, {3.99216870462418*^9, 3.992168722644966*^9}}, + CellLabel-> + "Out[108]=",ExpressionUUID->"69be3b89-cf1a-734d-887e-7df7742e3c43"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l1", ",", "l2"}], "]"}]], "Input", + CellLabel-> + "In[109]:=",ExpressionUUID->"9998eff2-8c55-9c49-a7ba-40c39d494e08"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwVUXk01Yv3lSFDeY1UeNd4P5/7UUlI6ck5KNJk5l4V9xkKr8yJSMRV5rFI +Kcnc4IXMSShkSLykyZShDPfrPTLTz++Ps87a6+y91t77yNq6mjjw8vDwNK3M +/+/DVtcFeXho2OBdYis7xwWddFWN8lU0/Gx1z4w1y4U/Rrqdvfho2DhtVRg7 +wwWlS3tav6+m4fJi+bOln1wQS+lPfCdKQw/rDbVt/3Gh/6Om3ANJGrrz/Myy +GuOCP+tfTb29NITGqqr5bi7kM608Il1oOPvIo9GshgtC0v97/5cbDWc+al0y +eskF9mCwxlEPGn4LcbA+Ws2FjR6PeUS8adhmeLFKq4oLXhE8Mdcu03CwKKpF +spwLGlVZD69G0vD0YmDmk6dcqJWfHPDJo+Ewf7SkahoXPnAjLB2GaJid0L/m +xqUVfab7tMJ3GrIflH8478uF9acsbwz8oKHJidVvD/lw4XCjXIfdOA0LDLoO +TF7gQvmDshO2UzRkGfiIHnTnwl3m8CEbXmn8fvHcYuVZLpyp0VFj0aRRyLf/ +iJAZF6ZvzK0/biGNTZdmvAYpLsxf4u/krZPGbD2n9pdN49DjVxJ+9XcZ3LG1 +U1/KZBye14RvXmMug9W6nR6xTWPg9z7qs0acDIro6lu9lB6DHddscgybZXC1 +COjUsUaBqW3Yc45PFhtKEnXCQ0bAod7FVBlksdGOP/mQ/w8YN3+0e8FbFnOu +eCflOXwHx+BSscePZbFI+MborPow1PpPqQv8WOH7VtWz3w5CSsCJGnsZOZSQ +Dw0RPDMAxse6wp1PyaFeyX3aeH0/LJQqsyyT5PBvcTVRFbk+kFHKjjvaKoe8 +PalTYkQPEK7HBYeE5XFvuf56duNnyC7dMHxNWx6HVCSlx8u7QLhVgL/tsjxy +ip9vkop/D6evNhC/SuWRVz/UsPVRO+yE3MI9E/JYZuYVPancBl/ryy5v3KGA +y87Da1OCm0CY9f3ptJ0C2mzcnyHuUw9k2ODoyxQFbNv5hcdrphYIzkY71U4F +NLwte/1UbjWkhZ0++EiUjq7GUgIn+SthgdVl22RAx3bRKRkeWsnKf2WvvQuh +4zvl16eNNhYCefbk88ccOtrtjHC8xl8IqwVuTIaF0rFvx2Bq/XQB1KEQW+c6 +HYuNE7zsPheAdil3X2EEHTunHusLZRbA/uyKkcR4OrptH1Pn3V8AOzjmJ5hp +dMwrVuC74fwUNmiHifVU0LFmN3eT8Zt8kLlbMtBSScfHOsfMNzzNB6WFwcLK +53Qcns0yGUjKh2PPdExSXtBxbLOUSY1DPoRSi9HmtXSUn3WVOM2bD4sbXIWa +39CRt+9VHB88gaF+s4XSjyt+V7vy1b56BBUhMn3xM3RUl+bUxq3OgzHWTIv7 +LB1vZW7zFZnMBaldreVGcyt+0tV+i+vJhYCPfom/LdCxgdItqi/NBVT6oB++ +vOK/02vp41+5UPch6kmQAIHmon1L4f/kQKvigp/bJgKdD0kc/pafDb1t78VP +7CJwLoQaTo3MhMje2nsMZQLPxYXdu+ufCRoTTxl8uwlMldUuzDuXCfHroveX +qhA4oRj9duBYJuie0LOWUydQ/qHB+l7RTMhqKs6c1iRQL13FbiwuA869TlK7 +d4TAfI3FGMX0BzBTwTKZcCDQpyclo7zvPrSHa3p9PUOgoGWqxL6O+/CEJX3z +zVkCV71jjVTX3YczMwMfM5wI/LoDvaey70OnitufrPMEzlSEn+x3uQ/PckPd +arwIfEKuOdK+nAaeSYXRicEEKvMTMk1EGvzPQ7Rp330C2cmc9iHFVBgrSxYR +TydwXtYr6uHmVBjhUTgyuYKvln2oCFy+A0PR+xsfZxD4RcL80Kn2O9Cdd7Ze +LofAWQOBls5Ld6C5/2Xt2nwC257r/vO29TbkmHhX9lau9Hew2iDkagrYqvQ8 +vt5FYM269ntp4skQs88m1OfjSj+RDYJpvMlQqdVj7fiJwCKzucx8bhJsOdqz +7vAXAqfsCdNfr5Og2a7HXbCXQMksEzEbnyTYe6NnT+gwgUmBLb5i3Tdh7WzP +8+BpAv9qiQkUfnYDip/3tgRsJvGR6ezua9EJIKApXGctRqLCxy6Do1cSwKx8 +d7mWOIn+Ne38km4JMFl8NWt5C4nxl2e0vxongPLfClcCJEkcOBwyOiqWAHnp +jsoBciTOr1NLV0yLh7vXJuIvK5MYmas0M1kZBxxjHqb/MRLD9G71z4vFgpEI +jlgeJzElgr05WzgWpGqv+KueIPHmp4sKZfMxUKD2K23EkMToVwpPXjfGQPeW +5R9MUxK3D4/FVjnGgHr3gt8eKxLVftwbFMuLhiHnmXvcsyRWqaUoCe6PAv0Q +7jA7mMQua2MBtchw0FmU22QYQqKzf3jaJu9w0PSy1DrAIXHYQ9NVgB0OKvbV +iduukdj4qPmctFo4SB2M124PJ5FfyNh0+9cwmOBTv60bT+Kcp6r+TZUwSA6+ +fIK4T+Lxvf+9thi5BiNX1z4brVrJd0xlU2I4B1Z7/lhqfEEiOg2w6n05IG/3 +Wi+nmsT0xT1Jgk4cOKUb2GVfQ2KEcnLrE30OtPJNLXx9RSLbXVAmSYADBSGf +ddqaSSyijfe9Dg4B39C8tqJPJC6Vnh1nhwWDUPjhscvTJFZkV1tySoLATEOi +1WWGRM9GwyBOThCkfR/Nt5klkWRHacffCoJ9+jGe2vMk2n9JOvXOLwgc+Tvn ++ZdJ7P9u/GUAg6AhwE44UoCBD0pMtjJbAuG6ZwCRspmBwZ/qHpl2XwHB00Xs +YhUGTgWqv2zO8YdWvdTudFUGyrj0q0zE+sNN5dBTMWoM9Fvbb036+gPBz2Q6 +qjNwUDE5s83AH/QeLhhK7Gfgvz0NSqJjfhAypwMB2gxc1/GCLaPmBzw33/2u +Z8TAgUMKhrrtvjDbyv30/jwD91VUNOjoXoR+5UDvAhcGLo3aDijuvgjN8Rs2 +xrgy8M++Xcsy0hfhnoWawWF3BvqM+Kzau+ANet2+JeVeDAyQVP9duMgbEsb5 +E+/5MfDSsVJvTYY3KK2VPO4UxsD37cJFSRIXwMFA/8ViBgOddN145xQ8IcC5 +ZXI0k4GeB/3l2zZ7QnKEKeNzFgNjtBS6ivg94U2LTVxZDgN952hvswY8QMnE +x877EQMzXdLLtmd6wKxVruBEIQMFhrta8hkeEHlujdG3GgZqZTTtMtdwh4KY +t72NvQxcH7N7MnPJBcYZyyq5fSv338yzVAddgFGzg3O9n4FS8gkx/zS7wN2p +MEp/gIHtZv4NhndcIIJ10KNumIHzdBNVRU0XsJcv43vBZeDpw21rba+cB/GS +dKJokYGuDrDFd9M58Ou+cO7uVgqfNPjL6Lg6gUpBhZXvNgqr5NS1E046wXfO +KgMzCQptKo/FTeo7gcXOKLqIFIWJW4Xj+mRW+P4Z3RekKZz2575x73CEkW0d +RscJCvdtDSBYfzgC01x5z6IqhSJjR5R+ip0F9eaRJZYhhUUiqXJrpuxByobO +0TeiULXNLMq93x74/rNZu8eYwvPkaPFQmz20bXkvsd6UwqjiBLGlx/bgbPdi +72sLCt1Ctz/scrSH1PkEdxVrCl/Q+B9inx3wUwcGRc5TeFlo/E7QF1to58Q0 +V4RTuAWYB0zn2fAp1sP9VgSFP6/W3OYdZ8O32+biFyMpvO4+6FDZw4app5Js +lWgK60u7pQxfsUGsO3syJ45CIaMXqhOxbGCqV0vcTKaw0yhBREKRDd1DE45u +WRRu5u2IelhvDT/0TQToNRRKfrCVSh46CZu5O92laimkv9PtoFpPAiYKf91U +R6HxP8aDbc9OQnJvdRHv65U+3W+1WXNOwmHfXfa9jSv67q6qi/STkJW3tvb2 +OwqH8cDqaCcrsBWtD9zYR6FaGa39LQ8LogvTx4T7KfSdX9o4MsKEclYAc9U3 +CuVbP/puec+EDVl7lCcGVvr1fOv9MJcJ1VoZPS3fKXzH7ThdbMoEabcgrbAJ +Clv+2Bpr8NASjoifzgv8l8K80g7/6JuW4F25T9znPwpVpqUjBoMsoVVoYvzM +FIVnxDVaGpmWEHDfOvXgLIXUq3XKToKWkKe/X1hzjsKc6/HuByYtoHNc7ILq +PIXPizIs5XssYOf+lmNyiyt5BqY75EssgNmbU7pticJQkeSjWg8sICQ0RGHD +MoV/14UrOsdYwN872LFCvyjUqE37M9vPAr60/7H4awX/6i3t+3nWAv4PiaHP +Uw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVUXk01Yv3lSFDeY1UeNd4P5/7UUlI6ck5KNJk5l4V9xkKr8yJSMRV5rFI +Kcnc4IXMSShkSLykyZShDPfrPTLTz++Ps87a6+y91t77yNq6mjjw8vDwNK3M +/+/DVtcFeXho2OBdYis7xwWddFWN8lU0/Gx1z4w1y4U/Rrqdvfho2DhtVRg7 +wwWlS3tav6+m4fJi+bOln1wQS+lPfCdKQw/rDbVt/3Gh/6Om3ANJGrrz/Myy +GuOCP+tfTb29NITGqqr5bi7kM608Il1oOPvIo9GshgtC0v97/5cbDWc+al0y +eskF9mCwxlEPGn4LcbA+Ws2FjR6PeUS8adhmeLFKq4oLXhE8Mdcu03CwKKpF +spwLGlVZD69G0vD0YmDmk6dcqJWfHPDJo+Ewf7SkahoXPnAjLB2GaJid0L/m +xqUVfab7tMJ3GrIflH8478uF9acsbwz8oKHJidVvD/lw4XCjXIfdOA0LDLoO +TF7gQvmDshO2UzRkGfiIHnTnwl3m8CEbXmn8fvHcYuVZLpyp0VFj0aRRyLf/ +iJAZF6ZvzK0/biGNTZdmvAYpLsxf4u/krZPGbD2n9pdN49DjVxJ+9XcZ3LG1 +U1/KZBye14RvXmMug9W6nR6xTWPg9z7qs0acDIro6lu9lB6DHddscgybZXC1 +COjUsUaBqW3Yc45PFhtKEnXCQ0bAod7FVBlksdGOP/mQ/w8YN3+0e8FbFnOu +eCflOXwHx+BSscePZbFI+MborPow1PpPqQv8WOH7VtWz3w5CSsCJGnsZOZSQ +Dw0RPDMAxse6wp1PyaFeyX3aeH0/LJQqsyyT5PBvcTVRFbk+kFHKjjvaKoe8 +PalTYkQPEK7HBYeE5XFvuf56duNnyC7dMHxNWx6HVCSlx8u7QLhVgL/tsjxy +ip9vkop/D6evNhC/SuWRVz/UsPVRO+yE3MI9E/JYZuYVPancBl/ryy5v3KGA +y87Da1OCm0CY9f3ptJ0C2mzcnyHuUw9k2ODoyxQFbNv5hcdrphYIzkY71U4F +NLwte/1UbjWkhZ0++EiUjq7GUgIn+SthgdVl22RAx3bRKRkeWsnKf2WvvQuh +4zvl16eNNhYCefbk88ccOtrtjHC8xl8IqwVuTIaF0rFvx2Bq/XQB1KEQW+c6 +HYuNE7zsPheAdil3X2EEHTunHusLZRbA/uyKkcR4OrptH1Pn3V8AOzjmJ5hp +dMwrVuC74fwUNmiHifVU0LFmN3eT8Zt8kLlbMtBSScfHOsfMNzzNB6WFwcLK +53Qcns0yGUjKh2PPdExSXtBxbLOUSY1DPoRSi9HmtXSUn3WVOM2bD4sbXIWa +39CRt+9VHB88gaF+s4XSjyt+V7vy1b56BBUhMn3xM3RUl+bUxq3OgzHWTIv7 +LB1vZW7zFZnMBaldreVGcyt+0tV+i+vJhYCPfom/LdCxgdItqi/NBVT6oB++ +vOK/02vp41+5UPch6kmQAIHmon1L4f/kQKvigp/bJgKdD0kc/pafDb1t78VP +7CJwLoQaTo3MhMje2nsMZQLPxYXdu+ufCRoTTxl8uwlMldUuzDuXCfHroveX +qhA4oRj9duBYJuie0LOWUydQ/qHB+l7RTMhqKs6c1iRQL13FbiwuA869TlK7 +d4TAfI3FGMX0BzBTwTKZcCDQpyclo7zvPrSHa3p9PUOgoGWqxL6O+/CEJX3z +zVkCV71jjVTX3YczMwMfM5wI/LoDvaey70OnitufrPMEzlSEn+x3uQ/PckPd +arwIfEKuOdK+nAaeSYXRicEEKvMTMk1EGvzPQ7Rp330C2cmc9iHFVBgrSxYR +TydwXtYr6uHmVBjhUTgyuYKvln2oCFy+A0PR+xsfZxD4RcL80Kn2O9Cdd7Ze +LofAWQOBls5Ld6C5/2Xt2nwC257r/vO29TbkmHhX9lau9Hew2iDkagrYqvQ8 +vt5FYM269ntp4skQs88m1OfjSj+RDYJpvMlQqdVj7fiJwCKzucx8bhJsOdqz +7vAXAqfsCdNfr5Og2a7HXbCXQMksEzEbnyTYe6NnT+gwgUmBLb5i3Tdh7WzP +8+BpAv9qiQkUfnYDip/3tgRsJvGR6ezua9EJIKApXGctRqLCxy6Do1cSwKx8 +d7mWOIn+Ne38km4JMFl8NWt5C4nxl2e0vxongPLfClcCJEkcOBwyOiqWAHnp +jsoBciTOr1NLV0yLh7vXJuIvK5MYmas0M1kZBxxjHqb/MRLD9G71z4vFgpEI +jlgeJzElgr05WzgWpGqv+KueIPHmp4sKZfMxUKD2K23EkMToVwpPXjfGQPeW +5R9MUxK3D4/FVjnGgHr3gt8eKxLVftwbFMuLhiHnmXvcsyRWqaUoCe6PAv0Q +7jA7mMQua2MBtchw0FmU22QYQqKzf3jaJu9w0PSy1DrAIXHYQ9NVgB0OKvbV +iduukdj4qPmctFo4SB2M124PJ5FfyNh0+9cwmOBTv60bT+Kcp6r+TZUwSA6+ +fIK4T+Lxvf+9thi5BiNX1z4brVrJd0xlU2I4B1Z7/lhqfEEiOg2w6n05IG/3 +Wi+nmsT0xT1Jgk4cOKUb2GVfQ2KEcnLrE30OtPJNLXx9RSLbXVAmSYADBSGf +ddqaSSyijfe9Dg4B39C8tqJPJC6Vnh1nhwWDUPjhscvTJFZkV1tySoLATEOi +1WWGRM9GwyBOThCkfR/Nt5klkWRHacffCoJ9+jGe2vMk2n9JOvXOLwgc+Tvn ++ZdJ7P9u/GUAg6AhwE44UoCBD0pMtjJbAuG6ZwCRspmBwZ/qHpl2XwHB00Xs +YhUGTgWqv2zO8YdWvdTudFUGyrj0q0zE+sNN5dBTMWoM9Fvbb036+gPBz2Q6 +qjNwUDE5s83AH/QeLhhK7Gfgvz0NSqJjfhAypwMB2gxc1/GCLaPmBzw33/2u +Z8TAgUMKhrrtvjDbyv30/jwD91VUNOjoXoR+5UDvAhcGLo3aDijuvgjN8Rs2 +xrgy8M++Xcsy0hfhnoWawWF3BvqM+Kzau+ANet2+JeVeDAyQVP9duMgbEsb5 +E+/5MfDSsVJvTYY3KK2VPO4UxsD37cJFSRIXwMFA/8ViBgOddN145xQ8IcC5 +ZXI0k4GeB/3l2zZ7QnKEKeNzFgNjtBS6ivg94U2LTVxZDgN952hvswY8QMnE +x877EQMzXdLLtmd6wKxVruBEIQMFhrta8hkeEHlujdG3GgZqZTTtMtdwh4KY +t72NvQxcH7N7MnPJBcYZyyq5fSv338yzVAddgFGzg3O9n4FS8gkx/zS7wN2p +MEp/gIHtZv4NhndcIIJ10KNumIHzdBNVRU0XsJcv43vBZeDpw21rba+cB/GS +dKJokYGuDrDFd9M58Ou+cO7uVgqfNPjL6Lg6gUpBhZXvNgqr5NS1E046wXfO +KgMzCQptKo/FTeo7gcXOKLqIFIWJW4Xj+mRW+P4Z3RekKZz2575x73CEkW0d +RscJCvdtDSBYfzgC01x5z6IqhSJjR5R+ip0F9eaRJZYhhUUiqXJrpuxByobO +0TeiULXNLMq93x74/rNZu8eYwvPkaPFQmz20bXkvsd6UwqjiBLGlx/bgbPdi +72sLCt1Ctz/scrSH1PkEdxVrCl/Q+B9inx3wUwcGRc5TeFlo/E7QF1to58Q0 +V4RTuAWYB0zn2fAp1sP9VgSFP6/W3OYdZ8O32+biFyMpvO4+6FDZw4app5Js +lWgK60u7pQxfsUGsO3syJ45CIaMXqhOxbGCqV0vcTKaw0yhBREKRDd1DE45u +WRRu5u2IelhvDT/0TQToNRRKfrCVSh46CZu5O92laimkv9PtoFpPAiYKf91U +R6HxP8aDbc9OQnJvdRHv65U+3W+1WXNOwmHfXfa9jSv67q6qi/STkJW3tvb2 +OwqH8cDqaCcrsBWtD9zYR6FaGa39LQ8LogvTx4T7KfSdX9o4MsKEclYAc9U3 +CuVbP/puec+EDVl7lCcGVvr1fOv9MJcJ1VoZPS3fKXzH7ThdbMoEabcgrbAJ +Clv+2Bpr8NASjoifzgv8l8K80g7/6JuW4F25T9znPwpVpqUjBoMsoVVoYvzM +FIVnxDVaGpmWEHDfOvXgLIXUq3XKToKWkKe/X1hzjsKc6/HuByYtoHNc7ILq +PIXPizIs5XssYOf+lmNyiyt5BqY75EssgNmbU7pticJQkeSjWg8sICQ0RGHD +MoV/14UrOsdYwN872LFCvyjUqE37M9vPAr60/7H4awX/6i3t+3nWAv4PiaHP +Uw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 13}, {0., 0.9679114273128215}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{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.9679114273128215}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVUXk01Yv3lSFDeY1UeNd4P5/7UUlI6ck5KNJk5l4V9xkKr8yJSMRV5rFI +Kcnc4IXMSShkSLykyZShDPfrPTLTz++Ps87a6+y91t77yNq6mjjw8vDwNK3M +/+/DVtcFeXho2OBdYis7xwWddFWN8lU0/Gx1z4w1y4U/Rrqdvfho2DhtVRg7 +wwWlS3tav6+m4fJi+bOln1wQS+lPfCdKQw/rDbVt/3Gh/6Om3ANJGrrz/Myy +GuOCP+tfTb29NITGqqr5bi7kM608Il1oOPvIo9GshgtC0v97/5cbDWc+al0y +eskF9mCwxlEPGn4LcbA+Ws2FjR6PeUS8adhmeLFKq4oLXhE8Mdcu03CwKKpF +spwLGlVZD69G0vD0YmDmk6dcqJWfHPDJo+Ewf7SkahoXPnAjLB2GaJid0L/m +xqUVfab7tMJ3GrIflH8478uF9acsbwz8oKHJidVvD/lw4XCjXIfdOA0LDLoO +TF7gQvmDshO2UzRkGfiIHnTnwl3m8CEbXmn8fvHcYuVZLpyp0VFj0aRRyLf/ +iJAZF6ZvzK0/biGNTZdmvAYpLsxf4u/krZPGbD2n9pdN49DjVxJ+9XcZ3LG1 +U1/KZBye14RvXmMug9W6nR6xTWPg9z7qs0acDIro6lu9lB6DHddscgybZXC1 +COjUsUaBqW3Yc45PFhtKEnXCQ0bAod7FVBlksdGOP/mQ/w8YN3+0e8FbFnOu +eCflOXwHx+BSscePZbFI+MborPow1PpPqQv8WOH7VtWz3w5CSsCJGnsZOZSQ +Dw0RPDMAxse6wp1PyaFeyX3aeH0/LJQqsyyT5PBvcTVRFbk+kFHKjjvaKoe8 +PalTYkQPEK7HBYeE5XFvuf56duNnyC7dMHxNWx6HVCSlx8u7QLhVgL/tsjxy +ip9vkop/D6evNhC/SuWRVz/UsPVRO+yE3MI9E/JYZuYVPancBl/ryy5v3KGA +y87Da1OCm0CY9f3ptJ0C2mzcnyHuUw9k2ODoyxQFbNv5hcdrphYIzkY71U4F +NLwte/1UbjWkhZ0++EiUjq7GUgIn+SthgdVl22RAx3bRKRkeWsnKf2WvvQuh +4zvl16eNNhYCefbk88ccOtrtjHC8xl8IqwVuTIaF0rFvx2Bq/XQB1KEQW+c6 +HYuNE7zsPheAdil3X2EEHTunHusLZRbA/uyKkcR4OrptH1Pn3V8AOzjmJ5hp +dMwrVuC74fwUNmiHifVU0LFmN3eT8Zt8kLlbMtBSScfHOsfMNzzNB6WFwcLK +53Qcns0yGUjKh2PPdExSXtBxbLOUSY1DPoRSi9HmtXSUn3WVOM2bD4sbXIWa +39CRt+9VHB88gaF+s4XSjyt+V7vy1b56BBUhMn3xM3RUl+bUxq3OgzHWTIv7 +LB1vZW7zFZnMBaldreVGcyt+0tV+i+vJhYCPfom/LdCxgdItqi/NBVT6oB++ +vOK/02vp41+5UPch6kmQAIHmon1L4f/kQKvigp/bJgKdD0kc/pafDb1t78VP +7CJwLoQaTo3MhMje2nsMZQLPxYXdu+ufCRoTTxl8uwlMldUuzDuXCfHroveX +qhA4oRj9duBYJuie0LOWUydQ/qHB+l7RTMhqKs6c1iRQL13FbiwuA869TlK7 +d4TAfI3FGMX0BzBTwTKZcCDQpyclo7zvPrSHa3p9PUOgoGWqxL6O+/CEJX3z +zVkCV71jjVTX3YczMwMfM5wI/LoDvaey70OnitufrPMEzlSEn+x3uQ/PckPd +arwIfEKuOdK+nAaeSYXRicEEKvMTMk1EGvzPQ7Rp330C2cmc9iHFVBgrSxYR +TydwXtYr6uHmVBjhUTgyuYKvln2oCFy+A0PR+xsfZxD4RcL80Kn2O9Cdd7Ze +LofAWQOBls5Ld6C5/2Xt2nwC257r/vO29TbkmHhX9lau9Hew2iDkagrYqvQ8 +vt5FYM269ntp4skQs88m1OfjSj+RDYJpvMlQqdVj7fiJwCKzucx8bhJsOdqz +7vAXAqfsCdNfr5Og2a7HXbCXQMksEzEbnyTYe6NnT+gwgUmBLb5i3Tdh7WzP +8+BpAv9qiQkUfnYDip/3tgRsJvGR6ezua9EJIKApXGctRqLCxy6Do1cSwKx8 +d7mWOIn+Ne38km4JMFl8NWt5C4nxl2e0vxongPLfClcCJEkcOBwyOiqWAHnp +jsoBciTOr1NLV0yLh7vXJuIvK5MYmas0M1kZBxxjHqb/MRLD9G71z4vFgpEI +jlgeJzElgr05WzgWpGqv+KueIPHmp4sKZfMxUKD2K23EkMToVwpPXjfGQPeW +5R9MUxK3D4/FVjnGgHr3gt8eKxLVftwbFMuLhiHnmXvcsyRWqaUoCe6PAv0Q +7jA7mMQua2MBtchw0FmU22QYQqKzf3jaJu9w0PSy1DrAIXHYQ9NVgB0OKvbV +iduukdj4qPmctFo4SB2M124PJ5FfyNh0+9cwmOBTv60bT+Kcp6r+TZUwSA6+ +fIK4T+Lxvf+9thi5BiNX1z4brVrJd0xlU2I4B1Z7/lhqfEEiOg2w6n05IG/3 +Wi+nmsT0xT1Jgk4cOKUb2GVfQ2KEcnLrE30OtPJNLXx9RSLbXVAmSYADBSGf +ddqaSSyijfe9Dg4B39C8tqJPJC6Vnh1nhwWDUPjhscvTJFZkV1tySoLATEOi +1WWGRM9GwyBOThCkfR/Nt5klkWRHacffCoJ9+jGe2vMk2n9JOvXOLwgc+Tvn ++ZdJ7P9u/GUAg6AhwE44UoCBD0pMtjJbAuG6ZwCRspmBwZ/qHpl2XwHB00Xs +YhUGTgWqv2zO8YdWvdTudFUGyrj0q0zE+sNN5dBTMWoM9Fvbb036+gPBz2Q6 +qjNwUDE5s83AH/QeLhhK7Gfgvz0NSqJjfhAypwMB2gxc1/GCLaPmBzw33/2u +Z8TAgUMKhrrtvjDbyv30/jwD91VUNOjoXoR+5UDvAhcGLo3aDijuvgjN8Rs2 +xrgy8M++Xcsy0hfhnoWawWF3BvqM+Kzau+ANet2+JeVeDAyQVP9duMgbEsb5 +E+/5MfDSsVJvTYY3KK2VPO4UxsD37cJFSRIXwMFA/8ViBgOddN145xQ8IcC5 +ZXI0k4GeB/3l2zZ7QnKEKeNzFgNjtBS6ivg94U2LTVxZDgN952hvswY8QMnE +x877EQMzXdLLtmd6wKxVruBEIQMFhrta8hkeEHlujdG3GgZqZTTtMtdwh4KY +t72NvQxcH7N7MnPJBcYZyyq5fSv338yzVAddgFGzg3O9n4FS8gkx/zS7wN2p +MEp/gIHtZv4NhndcIIJ10KNumIHzdBNVRU0XsJcv43vBZeDpw21rba+cB/GS +dKJokYGuDrDFd9M58Ou+cO7uVgqfNPjL6Lg6gUpBhZXvNgqr5NS1E046wXfO +KgMzCQptKo/FTeo7gcXOKLqIFIWJW4Xj+mRW+P4Z3RekKZz2575x73CEkW0d +RscJCvdtDSBYfzgC01x5z6IqhSJjR5R+ip0F9eaRJZYhhUUiqXJrpuxByobO +0TeiULXNLMq93x74/rNZu8eYwvPkaPFQmz20bXkvsd6UwqjiBLGlx/bgbPdi +72sLCt1Ctz/scrSH1PkEdxVrCl/Q+B9inx3wUwcGRc5TeFlo/E7QF1to58Q0 +V4RTuAWYB0zn2fAp1sP9VgSFP6/W3OYdZ8O32+biFyMpvO4+6FDZw4app5Js +lWgK60u7pQxfsUGsO3syJ45CIaMXqhOxbGCqV0vcTKaw0yhBREKRDd1DE45u +WRRu5u2IelhvDT/0TQToNRRKfrCVSh46CZu5O92laimkv9PtoFpPAiYKf91U +R6HxP8aDbc9OQnJvdRHv65U+3W+1WXNOwmHfXfa9jSv67q6qi/STkJW3tvb2 +OwqH8cDqaCcrsBWtD9zYR6FaGa39LQ8LogvTx4T7KfSdX9o4MsKEclYAc9U3 +CuVbP/puec+EDVl7lCcGVvr1fOv9MJcJ1VoZPS3fKXzH7ThdbMoEabcgrbAJ +Clv+2Bpr8NASjoifzgv8l8K80g7/6JuW4F25T9znPwpVpqUjBoMsoVVoYvzM +FIVnxDVaGpmWEHDfOvXgLIXUq3XKToKWkKe/X1hzjsKc6/HuByYtoHNc7ILq +PIXPizIs5XssYOf+lmNyiyt5BqY75EssgNmbU7pticJQkeSjWg8sICQ0RGHD +MoV/14UrOsdYwN872LFCvyjUqE37M9vPAr60/7H4awX/6i3t+3nWAv4PiaHP +Uw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 13}, {0., 0.9679114273128215}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (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:eJwVkWs01AkYhye3MQkRdlt2mhljzH+lEopc3le1YRmdtDJTaJAuTqj/YBVZ +l3HNZGtdWrHSdiilRGkipSQ5mUG7ZCtMWCnXVO7W2g+/83x4vj0/ZkCYZ5AS +hULhLe1/uuxNpVIodORlNCyMmlHxJn8vmRFKx1B3W5sEmhq+HD3tHTRAR/+7 +QwdiilRwMntmJW/PGmTuCXGotlbG2ZMqHUpP1mD5rHvk/fpl2BN9Nz3hWwZq +N1hFe6+nYO3jdD0NLwZ+JxHa+0YtQHS75LXtWQaWaw31uB2fhbUp+6/sbGZg +tG5q+LmiKeA77ew5qszEdEmdTYv5FwhqDN29AZjYXfJgvlM6ASNe1y3mIpmY +02L9a1fhOBxOlOqXlTHRWOI+cCtuBOpjPm9Sfc/EAhtHP3bHe8iL9Xh8gMHC +wx+pXEnDAOxy70wP9mGha57hT9TWPpiTbhB457LwoRT7OfAWGOtKzrrJWZhr +1FRwfms3cMJ41AGaMVqM3Kj4tOkVlEh13qU4GWPcbavK4wMdQJOrqrSeMsZg +/4qXrx/9Cb4JzziLUmOUfgrj0la1gTlcrbQeN8Z7q5tb/Bpl0NV475TuWjaa +Zafoy4qbgCYYvDUZyEbUSshO5j0F07R/hh7lsbGPHjJ2JKweOEm6gZYdbKxO +Kbfk19TBxTTf7dc1TfB+oRXrkEEtzAk6A567muDg8O6M2lkpuDQxU9rEJsha +zHEyi78DOk5p+j01Jij3/k17Y0UF1IgZb89NmeBKHq3fTbscFK3tBh7rOXji +5pfNOV3XYKpG4DkexMGcO1HBtg5XYIzUfG5TxEF3jWfmju2XIWBjT1lqJwc/ +xc/pzetfgqpahSxWzxT9hl4MalELIWkXhR/jborKvkxJYG8eOItH3wkTl3xn +omflvlz4kLDiztADU1Szznp5WjML1NNdhk9NmmJ4UC45EXgWqL63hVUbuVjV +YXWvWSaBafnoq/YQLs4UcnPZ+WkQ5Or8cP4yF2O4Q0c07JKhIrNF0aTgot/J +Y9S9OokQ3R1x9PevCWwr9NEuSoqDTc0fFgQ7CVQVD27bVxUDL5Iym2vSCTSi +RvcPFEfBe2dPVZPHBH5TCscU/hHw5oXd/OIigSKLN9jlQEKM4KP9js109LLw +Lyi+qIYBmo1xum8J1AhplQw/FEHv3/asPwzpuB9HJ3vfqWFx6Yr6C20Exgtn +Vz3KCIc1x+Id08YJnGEeFK6cI0E/rzerTZOOF6UHL3gup6LLifUHFE0E8s6U +0LdOhkOd4+Ue2SCBBtM/i8Q+Iogt8ivYPk3ggNsJcfIFEtadtJYPqtHxql9R +iZ0hFc8r6m4rPSXwel/mRLNZBOgUW28Y7yfwiZ1cOCMRgVx9fOTg56Ue2vlP +tZ6TYL5F5s6aJzAv/+qhyKMk2H3oDg5XpuNfVNlX+cZUxCxa16onBMoFsckN +OyKgWhDLX9ZH4GeBh2FfsQgi79sYRE0QaJbl4kXpI6FjRD/CcpbAYKNQ8Vgi +CeJkMVvnXwLDHgjUDb1I2HrJ0rZ6GR0j+K8cGk2pqDdqftyonsC57KEyjx8j +4EzlpWFaL4GZWhqvAytF8IOBb2ncRwKtDbtTVcZIKHXeQrOfIXB797Xv72aS +wFdcka5eIHC1zw2lBiEJ5WuFv6gv/bV8aloU5UrCf+Z7LzM= + "], {{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], 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:eJwVkWs01AkYhye3MQkRdlt2mhljzH+lEopc3le1YRmdtDJTaJAuTqj/YBVZ +l3HNZGtdWrHSdiilRGkipSQ5mUG7ZCtMWCnXVO7W2g+/83x4vj0/ZkCYZ5AS +hULhLe1/uuxNpVIodORlNCyMmlHxJn8vmRFKx1B3W5sEmhq+HD3tHTRAR/+7 +QwdiilRwMntmJW/PGmTuCXGotlbG2ZMqHUpP1mD5rHvk/fpl2BN9Nz3hWwZq +N1hFe6+nYO3jdD0NLwZ+JxHa+0YtQHS75LXtWQaWaw31uB2fhbUp+6/sbGZg +tG5q+LmiKeA77ew5qszEdEmdTYv5FwhqDN29AZjYXfJgvlM6ASNe1y3mIpmY +02L9a1fhOBxOlOqXlTHRWOI+cCtuBOpjPm9Sfc/EAhtHP3bHe8iL9Xh8gMHC +wx+pXEnDAOxy70wP9mGha57hT9TWPpiTbhB457LwoRT7OfAWGOtKzrrJWZhr +1FRwfms3cMJ41AGaMVqM3Kj4tOkVlEh13qU4GWPcbavK4wMdQJOrqrSeMsZg +/4qXrx/9Cb4JzziLUmOUfgrj0la1gTlcrbQeN8Z7q5tb/Bpl0NV475TuWjaa +Zafoy4qbgCYYvDUZyEbUSshO5j0F07R/hh7lsbGPHjJ2JKweOEm6gZYdbKxO +Kbfk19TBxTTf7dc1TfB+oRXrkEEtzAk6A567muDg8O6M2lkpuDQxU9rEJsha +zHEyi78DOk5p+j01Jij3/k17Y0UF1IgZb89NmeBKHq3fTbscFK3tBh7rOXji +5pfNOV3XYKpG4DkexMGcO1HBtg5XYIzUfG5TxEF3jWfmju2XIWBjT1lqJwc/ +xc/pzetfgqpahSxWzxT9hl4MalELIWkXhR/jborKvkxJYG8eOItH3wkTl3xn +omflvlz4kLDiztADU1Szznp5WjML1NNdhk9NmmJ4UC45EXgWqL63hVUbuVjV +YXWvWSaBafnoq/YQLs4UcnPZ+WkQ5Or8cP4yF2O4Q0c07JKhIrNF0aTgot/J +Y9S9OokQ3R1x9PevCWwr9NEuSoqDTc0fFgQ7CVQVD27bVxUDL5Iym2vSCTSi +RvcPFEfBe2dPVZPHBH5TCscU/hHw5oXd/OIigSKLN9jlQEKM4KP9js109LLw +Lyi+qIYBmo1xum8J1AhplQw/FEHv3/asPwzpuB9HJ3vfqWFx6Yr6C20Exgtn +Vz3KCIc1x+Id08YJnGEeFK6cI0E/rzerTZOOF6UHL3gup6LLifUHFE0E8s6U +0LdOhkOd4+Ue2SCBBtM/i8Q+Iogt8ivYPk3ggNsJcfIFEtadtJYPqtHxql9R +iZ0hFc8r6m4rPSXwel/mRLNZBOgUW28Y7yfwiZ1cOCMRgVx9fOTg56Ue2vlP +tZ6TYL5F5s6aJzAv/+qhyKMk2H3oDg5XpuNfVNlX+cZUxCxa16onBMoFsckN +OyKgWhDLX9ZH4GeBh2FfsQgi79sYRE0QaJbl4kXpI6FjRD/CcpbAYKNQ8Vgi +CeJkMVvnXwLDHgjUDb1I2HrJ0rZ6GR0j+K8cGk2pqDdqftyonsC57KEyjx8j +4EzlpWFaL4GZWhqvAytF8IOBb2ncRwKtDbtTVcZIKHXeQrOfIXB797Xv72aS +wFdcka5eIHC1zw2lBiEJ5WuFv6gv/bV8aloU5UrCf+Z7LzM= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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.5, 13}, {0., 2.8964519334709053`}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkHs0lAkchie3MQkRdlt2mhljzLdSCUUuv59qwzI6aWWm0CBdnFDfYBVZ +l3HNZGtdWrHSdiilRGkipSQ5mUG7ZCtMWCnXVO7W2j/e85znPP+9zIAwzyAl +CoXCW9r/dNmbSqVQ6MjLaFgYNaPi1kuWttXL6BjBf+XQaEpFuw/dweHKdPyL +Kvsq35iK605aywfV6HjVr6jEzpCK+nm9WW2adLwoPXjBczkVe/+2Z/1hSMf9 +ODrZ+04NYwQf7XdspqOXhX9B8UU1vMnfS2aE0jHU3dYmgaaGL0dPewcN0NH/ +7tCBmCIVnMyeWcnbswaZe0Icqq2VcfakSofSkzVYPuseeb9+GfZE301P+JaB +2g1W0d7rKVj7OF1Pw4uB30mE9r5RCxDdLnlte5aB5VpDPW7HZ2Ftyv4rO5sZ +GK2bGn6uaAr4Tjt7jiozMV1SZ9Ni/gWCGkN3bwAmdpc8mO+UTsCI13WLuUgm +5rRY/9pVOA6HE6X6ZWVMNJa4D9yKG4H6mM+bVN8zscDG0Y/d8R7yYj0eH2Cw +8PBHKlfSMAC73DvTg31Y6Jpn+BO1tQ/mpBsE3rksfCjFfg68Bca6krNuchbm +GjUVnN/aDZwwHnWAZowWIzcqPm16BSVSnXcpTsYYd9uq8vhAB9Dkqiqtp4wx +2L/i5etHf4JvwjPOotQYpZ/CuLRVbWAOVyutx43x3urmFr9GGXQ13julu5aN +Ztkp+rLiJqAJBm9NBrIRtRKyk3lPwTTtn6FHeWzso4eMHQmrB06SbqBlBxur +U8ot+TV1cDHNd/t1TRO8X2jFOmRQC3OCzoDnriY4OLw7o3ZWCi5NzJQ2sQmy +FnOczOLvgI5Tmn5PjQnKvX/T3lhRATVixttzUya4kkfrd9MuB0Vru4HHeg6e +uPllc07XNZiqEXiOB3Ew505UsK3DFRgjNZ/bFHHQXeOZuWP7ZQjY2FOW2snB +T/FzevP6l6CqViGL1TNFv6EXg1rUQkjaReHHuJuisi9TEtibB87i0XfCxKXe +mehZuS8XPiSsuDP0wBTVrLNentbMAvV0l+FTk6YYHpRLTgSeBarvbWHVRi5W +dVjda5ZJYFo++qo9hIszhdxcdn4aBLk6P5y/zMUY7tARDbtkqMhsUTQpuOh3 +8hh1r04iRHdHHP39awLbCn20i5LiYFPzhwXBTgJVxYPb9lXFwIukzOaadAKN +qNH9A8VR8N7ZU9XkMYHflMIxhX8E6I2aHzeqJ3Aue6jM48cIwCxa16onBMoF +sckNOyLgvKLuttJTAq/3ZU40m0WAy4n1BxRNBPLOlNC3ToZDcemK+gttBMYL +Z1c9ygiHAM3GON23BGqEtEqGH4rgTOWlYVovgZlaGq8DK0VQLYjlL+sj8LPA +w7CvWAQ6xdYbxvsJfGInF85IRFDneLlHNkigwfTPIrGPCNYci3dMGydwhnlQ +uHKOhB8MfEvjPhJobdidqjJGQuR9G4OoCQLNsly8KH0kyNXHRw5+XvpDO/+p +1nMSYov8CrZPEzjgdkKcfIGEUuctNPsZArd3X/v+biYJHSP6EZazBAYbhYrH +Ekkw3yJzZ80TmJd/9VDkURL4iivS1QsErva5odQgJEGcLGbr/Etg2AOBuqEX +CeVrhb+oLxK4fGpaFOVKwpsXdvOLSy6yeINdDiT8B/9WLzM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 13}, {0., 2.8964519334709053`}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkHs0lAkchie3MQkRdlt2mhljzLdSCUUuv59qwzI6aWWm0CBdnFDfYBVZ +l3HNZGtdWrHSdiilRGkipSQ5mUG7ZCtMWCnXVO7W2j/e85znPP+9zIAwzyAl +CoXCW9r/dNmbSqVQ6MjLaFgYNaPi1kuWttXL6BjBf+XQaEpFuw/dweHKdPyL +Kvsq35iK605aywfV6HjVr6jEzpCK+nm9WW2adLwoPXjBczkVe/+2Z/1hSMf9 +ODrZ+04NYwQf7XdspqOXhX9B8UU1vMnfS2aE0jHU3dYmgaaGL0dPewcN0NH/ +7tCBmCIVnMyeWcnbswaZe0Icqq2VcfakSofSkzVYPuseeb9+GfZE301P+JaB +2g1W0d7rKVj7OF1Pw4uB30mE9r5RCxDdLnlte5aB5VpDPW7HZ2Ftyv4rO5sZ +GK2bGn6uaAr4Tjt7jiozMV1SZ9Ni/gWCGkN3bwAmdpc8mO+UTsCI13WLuUgm +5rRY/9pVOA6HE6X6ZWVMNJa4D9yKG4H6mM+bVN8zscDG0Y/d8R7yYj0eH2Cw +8PBHKlfSMAC73DvTg31Y6Jpn+BO1tQ/mpBsE3rksfCjFfg68Bca6krNuchbm +GjUVnN/aDZwwHnWAZowWIzcqPm16BSVSnXcpTsYYd9uq8vhAB9Dkqiqtp4wx +2L/i5etHf4JvwjPOotQYpZ/CuLRVbWAOVyutx43x3urmFr9GGXQ13julu5aN +Ztkp+rLiJqAJBm9NBrIRtRKyk3lPwTTtn6FHeWzso4eMHQmrB06SbqBlBxur +U8ot+TV1cDHNd/t1TRO8X2jFOmRQC3OCzoDnriY4OLw7o3ZWCi5NzJQ2sQmy +FnOczOLvgI5Tmn5PjQnKvX/T3lhRATVixttzUya4kkfrd9MuB0Vru4HHeg6e +uPllc07XNZiqEXiOB3Ew505UsK3DFRgjNZ/bFHHQXeOZuWP7ZQjY2FOW2snB +T/FzevP6l6CqViGL1TNFv6EXg1rUQkjaReHHuJuisi9TEtibB87i0XfCxKXe +mehZuS8XPiSsuDP0wBTVrLNentbMAvV0l+FTk6YYHpRLTgSeBarvbWHVRi5W +dVjda5ZJYFo++qo9hIszhdxcdn4aBLk6P5y/zMUY7tARDbtkqMhsUTQpuOh3 +8hh1r04iRHdHHP39awLbCn20i5LiYFPzhwXBTgJVxYPb9lXFwIukzOaadAKN +qNH9A8VR8N7ZU9XkMYHflMIxhX8E6I2aHzeqJ3Aue6jM48cIwCxa16onBMoF +sckNOyLgvKLuttJTAq/3ZU40m0WAy4n1BxRNBPLOlNC3ToZDcemK+gttBMYL +Z1c9ygiHAM3GON23BGqEtEqGH4rgTOWlYVovgZlaGq8DK0VQLYjlL+sj8LPA +w7CvWAQ6xdYbxvsJfGInF85IRFDneLlHNkigwfTPIrGPCNYci3dMGydwhnlQ +uHKOhB8MfEvjPhJobdidqjJGQuR9G4OoCQLNsly8KH0kyNXHRw5+XvpDO/+p +1nMSYov8CrZPEzjgdkKcfIGEUuctNPsZArd3X/v+biYJHSP6EZazBAYbhYrH +Ekkw3yJzZ80TmJd/9VDkURL4iivS1QsErva5odQgJEGcLGbr/Etg2AOBuqEX +CeVrhb+oLxK4fGpaFOVKwpsXdvOLSy6yeINdDiT8B/9WLzM= + "]]}, "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:eJwVkWs01AkYhye3MQkRdlt2mhljzH+lEopc3le1YRmdtDJTaJAuTqj/YBVZ +l3HNZGtdWrHSdiilRGkipSQ5mUG7ZCtMWCnXVO7W2g+/83x4vj0/ZkCYZ5AS +hULhLe1/uuxNpVIodORlNCyMmlHxJn8vmRFKx1B3W5sEmhq+HD3tHTRAR/+7 +QwdiilRwMntmJW/PGmTuCXGotlbG2ZMqHUpP1mD5rHvk/fpl2BN9Nz3hWwZq +N1hFe6+nYO3jdD0NLwZ+JxHa+0YtQHS75LXtWQaWaw31uB2fhbUp+6/sbGZg +tG5q+LmiKeA77ew5qszEdEmdTYv5FwhqDN29AZjYXfJgvlM6ASNe1y3mIpmY +02L9a1fhOBxOlOqXlTHRWOI+cCtuBOpjPm9Sfc/EAhtHP3bHe8iL9Xh8gMHC +wx+pXEnDAOxy70wP9mGha57hT9TWPpiTbhB457LwoRT7OfAWGOtKzrrJWZhr +1FRwfms3cMJ41AGaMVqM3Kj4tOkVlEh13qU4GWPcbavK4wMdQJOrqrSeMsZg +/4qXrx/9Cb4JzziLUmOUfgrj0la1gTlcrbQeN8Z7q5tb/Bpl0NV475TuWjaa +Zafoy4qbgCYYvDUZyEbUSshO5j0F07R/hh7lsbGPHjJ2JKweOEm6gZYdbKxO +Kbfk19TBxTTf7dc1TfB+oRXrkEEtzAk6A567muDg8O6M2lkpuDQxU9rEJsha +zHEyi78DOk5p+j01Jij3/k17Y0UF1IgZb89NmeBKHq3fTbscFK3tBh7rOXji +5pfNOV3XYKpG4DkexMGcO1HBtg5XYIzUfG5TxEF3jWfmju2XIWBjT1lqJwc/ +xc/pzetfgqpahSxWzxT9hl4MalELIWkXhR/jborKvkxJYG8eOItH3wkTl3xn +omflvlz4kLDiztADU1Szznp5WjML1NNdhk9NmmJ4UC45EXgWqL63hVUbuVjV +YXWvWSaBafnoq/YQLs4UcnPZ+WkQ5Or8cP4yF2O4Q0c07JKhIrNF0aTgot/J +Y9S9OokQ3R1x9PevCWwr9NEuSoqDTc0fFgQ7CVQVD27bVxUDL5Iym2vSCTSi +RvcPFEfBe2dPVZPHBH5TCscU/hHw5oXd/OIigSKLN9jlQEKM4KP9js109LLw +Lyi+qIYBmo1xum8J1AhplQw/FEHv3/asPwzpuB9HJ3vfqWFx6Yr6C20Exgtn +Vz3KCIc1x+Id08YJnGEeFK6cI0E/rzerTZOOF6UHL3gup6LLifUHFE0E8s6U +0LdOhkOd4+Ue2SCBBtM/i8Q+Iogt8ivYPk3ggNsJcfIFEtadtJYPqtHxql9R +iZ0hFc8r6m4rPSXwel/mRLNZBOgUW28Y7yfwiZ1cOCMRgVx9fOTg56Ue2vlP +tZ6TYL5F5s6aJzAv/+qhyKMk2H3oDg5XpuNfVNlX+cZUxCxa16onBMoFsckN +OyKgWhDLX9ZH4GeBh2FfsQgi79sYRE0QaJbl4kXpI6FjRD/CcpbAYKNQ8Vgi +CeJkMVvnXwLDHgjUDb1I2HrJ0rZ6GR0j+K8cGk2pqDdqftyonsC57KEyjx8j +4EzlpWFaL4GZWhqvAytF8IOBb2ncRwKtDbtTVcZIKHXeQrOfIXB797Xv72aS +wFdcka5eIHC1zw2lBiEJ5WuFv6gv/bV8aloU5UrCf+Z7LzM= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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.5, 13}, {0., 2.8964519334709053`}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkHs0lAkchie3MQkRdlt2mhljzLdSCUUuv59qwzI6aWWm0CBdnFDfYBVZ +l3HNZGtdWrHSdiilRGkipSQ5mUG7ZCtMWCnXVO7W2j/e85znPP+9zIAwzyAl +CoXCW9r/dNmbSqVQ6MjLaFgYNaPi1kuWttXL6BjBf+XQaEpFuw/dweHKdPyL +Kvsq35iK605aywfV6HjVr6jEzpCK+nm9WW2adLwoPXjBczkVe/+2Z/1hSMf9 +ODrZ+04NYwQf7XdspqOXhX9B8UU1vMnfS2aE0jHU3dYmgaaGL0dPewcN0NH/ +7tCBmCIVnMyeWcnbswaZe0Icqq2VcfakSofSkzVYPuseeb9+GfZE301P+JaB +2g1W0d7rKVj7OF1Pw4uB30mE9r5RCxDdLnlte5aB5VpDPW7HZ2Ftyv4rO5sZ +GK2bGn6uaAr4Tjt7jiozMV1SZ9Ni/gWCGkN3bwAmdpc8mO+UTsCI13WLuUgm +5rRY/9pVOA6HE6X6ZWVMNJa4D9yKG4H6mM+bVN8zscDG0Y/d8R7yYj0eH2Cw +8PBHKlfSMAC73DvTg31Y6Jpn+BO1tQ/mpBsE3rksfCjFfg68Bca6krNuchbm +GjUVnN/aDZwwHnWAZowWIzcqPm16BSVSnXcpTsYYd9uq8vhAB9Dkqiqtp4wx +2L/i5etHf4JvwjPOotQYpZ/CuLRVbWAOVyutx43x3urmFr9GGXQ13julu5aN +Ztkp+rLiJqAJBm9NBrIRtRKyk3lPwTTtn6FHeWzso4eMHQmrB06SbqBlBxur +U8ot+TV1cDHNd/t1TRO8X2jFOmRQC3OCzoDnriY4OLw7o3ZWCi5NzJQ2sQmy +FnOczOLvgI5Tmn5PjQnKvX/T3lhRATVixttzUya4kkfrd9MuB0Vru4HHeg6e +uPllc07XNZiqEXiOB3Ew505UsK3DFRgjNZ/bFHHQXeOZuWP7ZQjY2FOW2snB +T/FzevP6l6CqViGL1TNFv6EXg1rUQkjaReHHuJuisi9TEtibB87i0XfCxKXe +mehZuS8XPiSsuDP0wBTVrLNentbMAvV0l+FTk6YYHpRLTgSeBarvbWHVRi5W +dVjda5ZJYFo++qo9hIszhdxcdn4aBLk6P5y/zMUY7tARDbtkqMhsUTQpuOh3 +8hh1r04iRHdHHP39awLbCn20i5LiYFPzhwXBTgJVxYPb9lXFwIukzOaadAKN +qNH9A8VR8N7ZU9XkMYHflMIxhX8E6I2aHzeqJ3Aue6jM48cIwCxa16onBMoF +sckNOyLgvKLuttJTAq/3ZU40m0WAy4n1BxRNBPLOlNC3ToZDcemK+gttBMYL +Z1c9ygiHAM3GON23BGqEtEqGH4rgTOWlYVovgZlaGq8DK0VQLYjlL+sj8LPA +w7CvWAQ6xdYbxvsJfGInF85IRFDneLlHNkigwfTPIrGPCNYci3dMGydwhnlQ +uHKOhB8MfEvjPhJobdidqjJGQuR9G4OoCQLNsly8KH0kyNXHRw5+XvpDO/+p +1nMSYov8CrZPEzjgdkKcfIGEUuctNPsZArd3X/v+biYJHSP6EZazBAYbhYrH +Ekkw3yJzZ80TmJd/9VDkURL4iivS1QsErva5odQgJEGcLGbr/Etg2AOBuqEX +CeVrhb+oLxK4fGpaFOVKwpsXdvOLSy6yeINdDiT8B/9WLzM= + "]]}, "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}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{7.5, 13}, {0., 0.9679114273128215}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9921678686338215`*^9, {3.9921679519729233`*^9, 3.992167994681988*^9}, { + 3.9921684457816715`*^9, 3.9921685720549984`*^9}, {3.9921687068610306`*^9, + 3.992168726508318*^9}}, + CellLabel-> + "Out[109]=",ExpressionUUID->"ebc68bb8-e46a-8c43-bf69-94b7a8f95558"] +}, 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.5"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.99196423637006*^9, 3.9919651876297417`*^9, {3.9921691246271114`*^9, + 3.992169135592695*^9}}, + CellLabel-> + "In[119]:=",ExpressionUUID->"c35d5cd1-71e8-0d46-9aff-241fa1902366"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Xk0Vl8XB3AS8oiEiOoxPPdeKQ1EmbK3qUyVISFPiDJEGTJXfkQImTKV +TEkZMpPSQFFKk4pUFCVDSYgypve+95+7Puusde86e3/3OTKOnuaHF3HQDycH +x//fyl7B3BwcTLTlS19XNTsCVzinsrQ5mTisc+5yxswIiJ4/vjV8ERMHRZln +Q6ZHYKLWw4WHm4nKUdx5Bn9GoGrO7slSBhNLNfImO8ZHYHOU7jkJUSYy4nzH +2odGYH320hVb1jIxnj/toOPbEZB9lk04mzKRM8Jf6nr5CDxlnDqTcI2JkUJr +O9rNR2Bm2Vf1X9NMvKsiViQ89gNE+uO17hhI4ZIfJ9UqT/+AoUsT4YY5UqjX +O60aOz8MOqs+rxEak8LL8qPO3p7DsF6ref4ZSxo/XftiWNP0HUre3kp6uFsa +nVjPhAt5vsOx1xNtH/ylsa2aP3Re5xvENzAqzS5Lo8zyCN731kMwvsxZo79V +Gh2Yn34pug2CkUGfx/Vf0iiyrelQxJEB4PTZDh1rZDA9PbS5CvthdqHrtuQO +GZyofLe/S/wrmJ2yen/fWwbbOsxqcpq+QHbfZNalSzIYbhtrz+v8GTaUvl2a +0iyDLju1ci6u6AVJ19TVI6MyGPvN5PqY7kcwjMx467hSFmPcqwX4Yz/A29RA +RXU9WeyI3lTZl9MJNueCt+h7yuKHwLbzQm/bgTnU2OORLovxQh3dBVavQVv5 +q8KfB7L4aauxCTPtJVztMyYuDcvi4+7sTS4KT2HRiY4HfiIsbLTV98OtLXCb +S3NRpRYL55ure47bNEHd6MDwEhcWTpu1bSmXbwSh58f8HySzsO8I8Oqa1YN9 +8srC8rssHLvs43zDsBYWGUe/3HOPha+uGpeFqtbCFa7pP6O0c7ZfWb5PrhaG +fDv1NzeycHZZ0ypZ7lrwsUrrq3jAQjefK2+07tdAxGpRqaoWFhZ4hgRGadRA +4dVlaTWvWHivJl5XXbUaxut5Im71s1DLq7VI16wSrAdnFF0GWDjekOJ0QrsS +GkVGekQHWYj9T+buKVZCoscbDa8hFjZ9Cq10E66EjczcCWqYhbpbF2eYtFeA +R5iaU8oYCx/mMIJ191fA0E4PHc85FqZviJ249LEMettfcZDLCeyYFn2yzacE +OoSPybTQdksfT5+yKYFWU4aOmzC9rkRlP9EugepnOuGlIgT+J9y37sryEohs +rubeKkbgmE7mdqWqYlCoSWXsXEXgQGUXd/GfIgg6byPqRhK4IUWM41FcIQib +f5YrVSNw7V1GS/ZwAVwVlxQ3USdQtM+uhuddAWh8NOcZps3hl9FzqrkADrk2 +f12rSeBocNizC1kFUBdyLe+KFoH7F73iizItAHbJ0VWXdAkcqT/htOnWFbi6 +eFYwdheBz0+OOQSn5oN6nfAf14MELg3PFV8RmAcpYy/cVzgSqHAv/lexcx78 +lI/9fJ82eV1NxdQyDy5f4noueYhAfnL60WOlPOA/PZn/zJlA49j1414/c6Hb +5K3ZZg8ChbzqRVJcc+HUlwulU/4E/nynfbvuZTY0Csgcjowj8O2d+SR76Uy4 +Zh25S+4cgZblqlb+PJkQnz+s8pj26yKhwPwfF4GtdoOHkUBgxmLqHN66CDOH +jAvPJRHYWGhoFGFxEZTu+A2npBHIbpw0JeIuwJUjrd75uXS97LRHbQQyILrl +eEhjDYGliwvKTUxSQTmSPXKslkCtMsUVTSqp8FlPn73mBoGCg11790ilgvoD +MfXgOgIVs0Ili36lwMidW7+31BPomDL/2P5iCphX/fO41kDg8LdZ2daR87Aq +K9Y2vpX+/l3H/SuvJMNjW99WzacEPhTa0C2XmAy+kgfUhmn3c/QxjE8mw4v0 +jeIGzwlc9FxA4dneZAhNfvWas43A7J9BxXU8yfA1StzIr4PAVV21MuSxJCjz +yVdl9xK4UfzYgSGjRBjSUZH8Rzt/R01ZgHoiyIi0zOV9JnBiuZiz2LpESKn+ +fm/wC4GHSm+0h/ElwolJRf3j/QSaB97PZyYngIF/o1nMd7q+HfBqIjUevgR9 +PHJzks5vjNiCZ3UcrDbyNLH9TeB7ho2zalocWEpyblygHbtwPnF1UBw8rifG +dacIFOcteL4N4qB8zj3g5QyBSVO2DnXPYuHkqdnwgQUCP+lVtz76EQNiYeJZ +onwkMsTa30XjWRh7p7+rhraGcqmWlNxZeLLZ968Fg8TRxunc5wJn4WRv24Hz +/CR6c87x+XRFwxeIYQoLkig4sl69MyAayhbmc5aJkFh26mg+Z20U6J/8cpmx +hsQ7xi/e7cJIYLYLWRTTdjrCkXFXPhKm1wOXEZPEPNv7/ToikVDclel0VorE +9eeufTk3cAaENCyJJbIkvvbrY7Piz0D3TEsBtxyJ39jBezU/R4BvQGkhhyKJ +OWcY84Vp4SCia99TSpslZpn7JzQcqgSXi9kqkbjTO5jT1j0cxgp8w2u3kLi0 +rCzfBcPBo13D7shWErXVfyyNHz4NToqtIu0aJNZHCbXP658G8+GBkGs7SEw0 +MKxuY4TB+I2M2r07SRyTeK72fCoUEk8b/eA0IHGfr8DQx6+h8EKizIZtSGKg +ofdRjYZQ+j7yU15uQmLSQ765r76hoF3A9T3YjMTPbqq5D1r+g8320pa72SQ+ +XS0sN5VzCtiaJxZGaW9buydnMPQUREu8vZZ0gESP3w5yUwdPQe+b2Nl2OxIl +9HdP+hCnINFgKsf2IImkL9vpQ/FJGFN88d3VmcS+9KmxPXdPQPnik6HhXiTK +FLGVV0wHwYfPb+VJbxLPzXs2VnYHAU+D4ptHtOVddo273Q8Cu6BBknGcRGOD +2+8VYoNA8Kf500Q/un+8NpMzUkFwrFNeLDuYxFRBV4HM3YGwsbiz5GYEiT1p +3/4YNfiD9Fxtl8sZEju/mfbKFfjDcpMUfvFIEpX6ArJlYv1hcsTU3S+K3u/a +zbLuVv5Qr9i6TimGRIvkwwIW436gf+tOUUkCiSUiL+bY6/yA/TjvWvZFEhWe +TQ8lVxyH3RKhnbsySSwOevXq9YXjAEfseP/S7ty2kl8h/DjILl3lYptFIneC +JPe6fcdhaE8KtTKXxE1ro7aZ/fWB452RBUkFdJ7uiw+rmPpAzIB7fkQFibrz +f8hCXm9Y1TCQt7mS7pdaTL3mpBdcTz+Y2017wES0aqDXC14aWGUpV5O4plTS +O7jeC0RLdNK/1pL4XqmvOfuYF2R7SsTq3SbRJPv90YRaT6iefuSz+BGJpynz +lQIRR0HvlbZ3Be0KcYMuDcej8Lbojie7hcTM+8myiXgUpvdXedQ8pv/PrZ1b ++NcDtO5mOR96SvdHnndZapAHPA7z3d/cRmJrddSIWqA7dDNkdSK66Dw0hLRf +T3CD2Un9aqKbnkdZa0rD1w1W9rgRD2nb+lxZPmDtBpbVlTw8n+i8JC7VTZJ1 +gxe22k+jeklskuWeV6tzhfvXHfbG9pMYsF3W506/C1zdneOcPEpiTWPo75Z9 +ztCs2tSpNEZid42FVY2WM/TJDhq8oR09t//PLcoZpKc2rhf9ReJQSG+k0NRh +uJBzbzR1ksSviT1KQxmHIW7sY+CFGRIddEv4FT4fAu/k1bG5XBR2tR4TPRDu +BHvHmk7vXkxh98JKyxMeTqC62z14nra644Pb1ZZOwMGod7PmoXBFb0C0z1on +SAyzMhDio3CxYQYX+dIRyrySuUMFKdwfNcahL+MI33cvCbWXoJDvxcxgVacD +vLheHiAgSaEwDIT1NjlAFcPK8zZtW96/X4gKBwh6VGAnvppCMatfqePRDrBE +S3f7SyaFwfZlXBkaDkBtCJnVIihsV9oxzmNkD078k77MTRRGW6TG2S47AO3B +ej2NtH+e3fTBdJQNet9TDJ02Uyhvn3nD9SUbqCcqzEJFCl3mBOP+JbDhe2RA +i6IyhQ0amx48FGaD16I5CX01CvPFJVJSmbYQMsPZ4K5LYdZZ51SL3TYw6mou +L6hHYW/xaKaVkg04vLt8voK21u/iiSAxG9Cu03X9rU9hidRlcYkea1jsd2b5 +fwYU7jDouXfX2xpix5YcSt5FYcUTPdszl6wgY3AZ3y0rCker7JLVefdB0ad5 +bWtrCj8E6LMMRi2hvuNb8BRtTsNkLc9OS+hqavqhsp9CDpe6Yr5CS2DmBrRV +sSlMyNhzwsPIEvKte9KvH6Swec2C45vze6HsSRmV607XWyAjy1/VAu41ZtqD +B4VqE+obI1gW8LIuOuMTbcsdHAqFghb0+ezIWHOMwrrenOVb+s1hy2mxnxe8 +KNw3z/XX7Lw53FQPqT3vR6GglKBd7oQZNJXs0ov6j8JJvkMbvzaZwkWxe1zK +oRRycVuF8VSYglfYxqZe2oK8ZXNwyRRWWy3TUT9N4V1f779Tvqbgu+gVjERQ +KMPx0zZIzhRIm70aFjEUNhUGKuyT2QNRPLZKUqkUbu8XcFAbMAE776fjT2nX +SCcpDDSZgHK3RmVgGr2fLR5St/NMoLdy9ebX6XR9nYcbuw+YgOqBTxvOXKTw +X4Dl3EynMXyrPig/nENhmuNDJb83RmB80FW6rpjCspN778GAAZR9DDO3LqHw +oJFTaFqrAQjvz4yYod143jyev9wA3pm/GNIopXD4luRS00ADOKSnXNlYTqH/ +QiYDlhpAiByHTmsNhV9w4/4LajuhYiTd6eM9Cs/NPlnpWqQPIkcqU0MaKNz5 +7sZ34yR98B9obZFqpPMveFDVKEgftvf8Xe94n8K4y7wdqYb60NrmNDnQRKGi +6vP5w8N60Fe96czYYzpfrVnlr7bogVhwy1WuNxTucghrkejUgV0uMhl1tE9E +y0sUNuhAxN4TZ93bKXxwY5GmRaEOTGzc5PGmg54vcD3yL0gH2vrSFPPf0fOR +cvdqCVMHYnY539H5RKH9j3SerUe1YUGa+3XYNwpdty0u2MBEUBG0b1L5TmFO +VF3jCgaCx9zNmm+0f5+t1N7wA6CrwyPd7AedF1WBo82XAG7GtLNlRun5amaP +qXMA+EzmDzZOUig0tSJ9Rdt2KPr8953vbwrXZlm0fyneDr0vrFrX/qHzfe39 +7Mcz22FPEX9p4hSFv/pXkgc0t4OC3XEfh1kKB4u3DASWaIKT8XMn0TkKrzdU +OZVHacJFVTnLx7SFiZciwoc0gU+ka9vmvxQ6X7dQsV2jCcihIv+V9mIPUU3t +WQ0IHImXzFigUFWGlWveqQHlH4b4Tf5ReCz6iUJCjQYMtOj8/Ue7piOh9E+S +BvwPGVQknQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk0Vl8XB3AS8oiEiOoxPPdeKQ1EmbK3qUyVISFPiDJEGTJXfkQImTKV +TEkZMpPSQFFKk4pUFCVDSYgypve+95+7Puusde86e3/3OTKOnuaHF3HQDycH +x//fyl7B3BwcTLTlS19XNTsCVzinsrQ5mTisc+5yxswIiJ4/vjV8ERMHRZln +Q6ZHYKLWw4WHm4nKUdx5Bn9GoGrO7slSBhNLNfImO8ZHYHOU7jkJUSYy4nzH +2odGYH320hVb1jIxnj/toOPbEZB9lk04mzKRM8Jf6nr5CDxlnDqTcI2JkUJr +O9rNR2Bm2Vf1X9NMvKsiViQ89gNE+uO17hhI4ZIfJ9UqT/+AoUsT4YY5UqjX +O60aOz8MOqs+rxEak8LL8qPO3p7DsF6ref4ZSxo/XftiWNP0HUre3kp6uFsa +nVjPhAt5vsOx1xNtH/ylsa2aP3Re5xvENzAqzS5Lo8zyCN731kMwvsxZo79V +Gh2Yn34pug2CkUGfx/Vf0iiyrelQxJEB4PTZDh1rZDA9PbS5CvthdqHrtuQO +GZyofLe/S/wrmJ2yen/fWwbbOsxqcpq+QHbfZNalSzIYbhtrz+v8GTaUvl2a +0iyDLju1ci6u6AVJ19TVI6MyGPvN5PqY7kcwjMx467hSFmPcqwX4Yz/A29RA +RXU9WeyI3lTZl9MJNueCt+h7yuKHwLbzQm/bgTnU2OORLovxQh3dBVavQVv5 +q8KfB7L4aauxCTPtJVztMyYuDcvi4+7sTS4KT2HRiY4HfiIsbLTV98OtLXCb +S3NRpRYL55ure47bNEHd6MDwEhcWTpu1bSmXbwSh58f8HySzsO8I8Oqa1YN9 +8srC8rssHLvs43zDsBYWGUe/3HOPha+uGpeFqtbCFa7pP6O0c7ZfWb5PrhaG +fDv1NzeycHZZ0ypZ7lrwsUrrq3jAQjefK2+07tdAxGpRqaoWFhZ4hgRGadRA +4dVlaTWvWHivJl5XXbUaxut5Im71s1DLq7VI16wSrAdnFF0GWDjekOJ0QrsS +GkVGekQHWYj9T+buKVZCoscbDa8hFjZ9Cq10E66EjczcCWqYhbpbF2eYtFeA +R5iaU8oYCx/mMIJ191fA0E4PHc85FqZviJ249LEMettfcZDLCeyYFn2yzacE +OoSPybTQdksfT5+yKYFWU4aOmzC9rkRlP9EugepnOuGlIgT+J9y37sryEohs +rubeKkbgmE7mdqWqYlCoSWXsXEXgQGUXd/GfIgg6byPqRhK4IUWM41FcIQib +f5YrVSNw7V1GS/ZwAVwVlxQ3USdQtM+uhuddAWh8NOcZps3hl9FzqrkADrk2 +f12rSeBocNizC1kFUBdyLe+KFoH7F73iizItAHbJ0VWXdAkcqT/htOnWFbi6 +eFYwdheBz0+OOQSn5oN6nfAf14MELg3PFV8RmAcpYy/cVzgSqHAv/lexcx78 +lI/9fJ82eV1NxdQyDy5f4noueYhAfnL60WOlPOA/PZn/zJlA49j1414/c6Hb +5K3ZZg8ChbzqRVJcc+HUlwulU/4E/nynfbvuZTY0Csgcjowj8O2d+SR76Uy4 +Zh25S+4cgZblqlb+PJkQnz+s8pj26yKhwPwfF4GtdoOHkUBgxmLqHN66CDOH +jAvPJRHYWGhoFGFxEZTu+A2npBHIbpw0JeIuwJUjrd75uXS97LRHbQQyILrl +eEhjDYGliwvKTUxSQTmSPXKslkCtMsUVTSqp8FlPn73mBoGCg11790ilgvoD +MfXgOgIVs0Ili36lwMidW7+31BPomDL/2P5iCphX/fO41kDg8LdZ2daR87Aq +K9Y2vpX+/l3H/SuvJMNjW99WzacEPhTa0C2XmAy+kgfUhmn3c/QxjE8mw4v0 +jeIGzwlc9FxA4dneZAhNfvWas43A7J9BxXU8yfA1StzIr4PAVV21MuSxJCjz +yVdl9xK4UfzYgSGjRBjSUZH8Rzt/R01ZgHoiyIi0zOV9JnBiuZiz2LpESKn+ +fm/wC4GHSm+0h/ElwolJRf3j/QSaB97PZyYngIF/o1nMd7q+HfBqIjUevgR9 +PHJzks5vjNiCZ3UcrDbyNLH9TeB7ho2zalocWEpyblygHbtwPnF1UBw8rifG +dacIFOcteL4N4qB8zj3g5QyBSVO2DnXPYuHkqdnwgQUCP+lVtz76EQNiYeJZ +onwkMsTa30XjWRh7p7+rhraGcqmWlNxZeLLZ968Fg8TRxunc5wJn4WRv24Hz +/CR6c87x+XRFwxeIYQoLkig4sl69MyAayhbmc5aJkFh26mg+Z20U6J/8cpmx +hsQ7xi/e7cJIYLYLWRTTdjrCkXFXPhKm1wOXEZPEPNv7/ToikVDclel0VorE +9eeufTk3cAaENCyJJbIkvvbrY7Piz0D3TEsBtxyJ39jBezU/R4BvQGkhhyKJ +OWcY84Vp4SCia99TSpslZpn7JzQcqgSXi9kqkbjTO5jT1j0cxgp8w2u3kLi0 +rCzfBcPBo13D7shWErXVfyyNHz4NToqtIu0aJNZHCbXP658G8+GBkGs7SEw0 +MKxuY4TB+I2M2r07SRyTeK72fCoUEk8b/eA0IHGfr8DQx6+h8EKizIZtSGKg +ofdRjYZQ+j7yU15uQmLSQ765r76hoF3A9T3YjMTPbqq5D1r+g8320pa72SQ+ +XS0sN5VzCtiaJxZGaW9buydnMPQUREu8vZZ0gESP3w5yUwdPQe+b2Nl2OxIl +9HdP+hCnINFgKsf2IImkL9vpQ/FJGFN88d3VmcS+9KmxPXdPQPnik6HhXiTK +FLGVV0wHwYfPb+VJbxLPzXs2VnYHAU+D4ptHtOVddo273Q8Cu6BBknGcRGOD +2+8VYoNA8Kf500Q/un+8NpMzUkFwrFNeLDuYxFRBV4HM3YGwsbiz5GYEiT1p +3/4YNfiD9Fxtl8sZEju/mfbKFfjDcpMUfvFIEpX6ArJlYv1hcsTU3S+K3u/a +zbLuVv5Qr9i6TimGRIvkwwIW436gf+tOUUkCiSUiL+bY6/yA/TjvWvZFEhWe +TQ8lVxyH3RKhnbsySSwOevXq9YXjAEfseP/S7ty2kl8h/DjILl3lYptFIneC +JPe6fcdhaE8KtTKXxE1ro7aZ/fWB452RBUkFdJ7uiw+rmPpAzIB7fkQFibrz +f8hCXm9Y1TCQt7mS7pdaTL3mpBdcTz+Y2017wES0aqDXC14aWGUpV5O4plTS +O7jeC0RLdNK/1pL4XqmvOfuYF2R7SsTq3SbRJPv90YRaT6iefuSz+BGJpynz +lQIRR0HvlbZ3Be0KcYMuDcej8Lbojie7hcTM+8myiXgUpvdXedQ8pv/PrZ1b ++NcDtO5mOR96SvdHnndZapAHPA7z3d/cRmJrddSIWqA7dDNkdSK66Dw0hLRf +T3CD2Un9aqKbnkdZa0rD1w1W9rgRD2nb+lxZPmDtBpbVlTw8n+i8JC7VTZJ1 +gxe22k+jeklskuWeV6tzhfvXHfbG9pMYsF3W506/C1zdneOcPEpiTWPo75Z9 +ztCs2tSpNEZid42FVY2WM/TJDhq8oR09t//PLcoZpKc2rhf9ReJQSG+k0NRh +uJBzbzR1ksSviT1KQxmHIW7sY+CFGRIddEv4FT4fAu/k1bG5XBR2tR4TPRDu +BHvHmk7vXkxh98JKyxMeTqC62z14nra644Pb1ZZOwMGod7PmoXBFb0C0z1on +SAyzMhDio3CxYQYX+dIRyrySuUMFKdwfNcahL+MI33cvCbWXoJDvxcxgVacD +vLheHiAgSaEwDIT1NjlAFcPK8zZtW96/X4gKBwh6VGAnvppCMatfqePRDrBE +S3f7SyaFwfZlXBkaDkBtCJnVIihsV9oxzmNkD078k77MTRRGW6TG2S47AO3B +ej2NtH+e3fTBdJQNet9TDJ02Uyhvn3nD9SUbqCcqzEJFCl3mBOP+JbDhe2RA +i6IyhQ0amx48FGaD16I5CX01CvPFJVJSmbYQMsPZ4K5LYdZZ51SL3TYw6mou +L6hHYW/xaKaVkg04vLt8voK21u/iiSAxG9Cu03X9rU9hidRlcYkea1jsd2b5 +fwYU7jDouXfX2xpix5YcSt5FYcUTPdszl6wgY3AZ3y0rCker7JLVefdB0ad5 +bWtrCj8E6LMMRi2hvuNb8BRtTsNkLc9OS+hqavqhsp9CDpe6Yr5CS2DmBrRV +sSlMyNhzwsPIEvKte9KvH6Swec2C45vze6HsSRmV607XWyAjy1/VAu41ZtqD +B4VqE+obI1gW8LIuOuMTbcsdHAqFghb0+ezIWHOMwrrenOVb+s1hy2mxnxe8 +KNw3z/XX7Lw53FQPqT3vR6GglKBd7oQZNJXs0ov6j8JJvkMbvzaZwkWxe1zK +oRRycVuF8VSYglfYxqZe2oK8ZXNwyRRWWy3TUT9N4V1f779Tvqbgu+gVjERQ +KMPx0zZIzhRIm70aFjEUNhUGKuyT2QNRPLZKUqkUbu8XcFAbMAE776fjT2nX +SCcpDDSZgHK3RmVgGr2fLR5St/NMoLdy9ebX6XR9nYcbuw+YgOqBTxvOXKTw +X4Dl3EynMXyrPig/nENhmuNDJb83RmB80FW6rpjCspN778GAAZR9DDO3LqHw +oJFTaFqrAQjvz4yYod143jyev9wA3pm/GNIopXD4luRS00ADOKSnXNlYTqH/ +QiYDlhpAiByHTmsNhV9w4/4LajuhYiTd6eM9Cs/NPlnpWqQPIkcqU0MaKNz5 +7sZ34yR98B9obZFqpPMveFDVKEgftvf8Xe94n8K4y7wdqYb60NrmNDnQRKGi +6vP5w8N60Fe96czYYzpfrVnlr7bogVhwy1WuNxTucghrkejUgV0uMhl1tE9E +y0sUNuhAxN4TZ93bKXxwY5GmRaEOTGzc5PGmg54vcD3yL0gH2vrSFPPf0fOR +cvdqCVMHYnY539H5RKH9j3SerUe1YUGa+3XYNwpdty0u2MBEUBG0b1L5TmFO +VF3jCgaCx9zNmm+0f5+t1N7wA6CrwyPd7AedF1WBo82XAG7GtLNlRun5amaP +qXMA+EzmDzZOUig0tSJ9Rdt2KPr8953vbwrXZlm0fyneDr0vrFrX/qHzfe39 +7Mcz22FPEX9p4hSFv/pXkgc0t4OC3XEfh1kKB4u3DASWaIKT8XMn0TkKrzdU +OZVHacJFVTnLx7SFiZciwoc0gU+ka9vmvxQ6X7dQsV2jCcihIv+V9mIPUU3t +WQ0IHImXzFigUFWGlWveqQHlH4b4Tf5ReCz6iUJCjQYMtOj8/Ue7piOh9E+S +BvwPGVQknQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 11.5}, {0., 0.9368525344691919}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{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.5}, {0., 0.9368525344691919}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk0Vl8XB3AS8oiEiOoxPPdeKQ1EmbK3qUyVISFPiDJEGTJXfkQImTKV +TEkZMpPSQFFKk4pUFCVDSYgypve+95+7Puusde86e3/3OTKOnuaHF3HQDycH +x//fyl7B3BwcTLTlS19XNTsCVzinsrQ5mTisc+5yxswIiJ4/vjV8ERMHRZln +Q6ZHYKLWw4WHm4nKUdx5Bn9GoGrO7slSBhNLNfImO8ZHYHOU7jkJUSYy4nzH +2odGYH320hVb1jIxnj/toOPbEZB9lk04mzKRM8Jf6nr5CDxlnDqTcI2JkUJr +O9rNR2Bm2Vf1X9NMvKsiViQ89gNE+uO17hhI4ZIfJ9UqT/+AoUsT4YY5UqjX +O60aOz8MOqs+rxEak8LL8qPO3p7DsF6ref4ZSxo/XftiWNP0HUre3kp6uFsa +nVjPhAt5vsOx1xNtH/ylsa2aP3Re5xvENzAqzS5Lo8zyCN731kMwvsxZo79V +Gh2Yn34pug2CkUGfx/Vf0iiyrelQxJEB4PTZDh1rZDA9PbS5CvthdqHrtuQO +GZyofLe/S/wrmJ2yen/fWwbbOsxqcpq+QHbfZNalSzIYbhtrz+v8GTaUvl2a +0iyDLju1ci6u6AVJ19TVI6MyGPvN5PqY7kcwjMx467hSFmPcqwX4Yz/A29RA +RXU9WeyI3lTZl9MJNueCt+h7yuKHwLbzQm/bgTnU2OORLovxQh3dBVavQVv5 +q8KfB7L4aauxCTPtJVztMyYuDcvi4+7sTS4KT2HRiY4HfiIsbLTV98OtLXCb +S3NRpRYL55ure47bNEHd6MDwEhcWTpu1bSmXbwSh58f8HySzsO8I8Oqa1YN9 +8srC8rssHLvs43zDsBYWGUe/3HOPha+uGpeFqtbCFa7pP6O0c7ZfWb5PrhaG +fDv1NzeycHZZ0ypZ7lrwsUrrq3jAQjefK2+07tdAxGpRqaoWFhZ4hgRGadRA +4dVlaTWvWHivJl5XXbUaxut5Im71s1DLq7VI16wSrAdnFF0GWDjekOJ0QrsS +GkVGekQHWYj9T+buKVZCoscbDa8hFjZ9Cq10E66EjczcCWqYhbpbF2eYtFeA +R5iaU8oYCx/mMIJ191fA0E4PHc85FqZviJ249LEMettfcZDLCeyYFn2yzacE +OoSPybTQdksfT5+yKYFWU4aOmzC9rkRlP9EugepnOuGlIgT+J9y37sryEohs +rubeKkbgmE7mdqWqYlCoSWXsXEXgQGUXd/GfIgg6byPqRhK4IUWM41FcIQib +f5YrVSNw7V1GS/ZwAVwVlxQ3USdQtM+uhuddAWh8NOcZps3hl9FzqrkADrk2 +f12rSeBocNizC1kFUBdyLe+KFoH7F73iizItAHbJ0VWXdAkcqT/htOnWFbi6 +eFYwdheBz0+OOQSn5oN6nfAf14MELg3PFV8RmAcpYy/cVzgSqHAv/lexcx78 +lI/9fJ82eV1NxdQyDy5f4noueYhAfnL60WOlPOA/PZn/zJlA49j1414/c6Hb +5K3ZZg8ChbzqRVJcc+HUlwulU/4E/nynfbvuZTY0Csgcjowj8O2d+SR76Uy4 +Zh25S+4cgZblqlb+PJkQnz+s8pj26yKhwPwfF4GtdoOHkUBgxmLqHN66CDOH +jAvPJRHYWGhoFGFxEZTu+A2npBHIbpw0JeIuwJUjrd75uXS97LRHbQQyILrl +eEhjDYGliwvKTUxSQTmSPXKslkCtMsUVTSqp8FlPn73mBoGCg11790ilgvoD +MfXgOgIVs0Ili36lwMidW7+31BPomDL/2P5iCphX/fO41kDg8LdZ2daR87Aq +K9Y2vpX+/l3H/SuvJMNjW99WzacEPhTa0C2XmAy+kgfUhmn3c/QxjE8mw4v0 +jeIGzwlc9FxA4dneZAhNfvWas43A7J9BxXU8yfA1StzIr4PAVV21MuSxJCjz +yVdl9xK4UfzYgSGjRBjSUZH8Rzt/R01ZgHoiyIi0zOV9JnBiuZiz2LpESKn+ +fm/wC4GHSm+0h/ElwolJRf3j/QSaB97PZyYngIF/o1nMd7q+HfBqIjUevgR9 +PHJzks5vjNiCZ3UcrDbyNLH9TeB7ho2zalocWEpyblygHbtwPnF1UBw8rifG +dacIFOcteL4N4qB8zj3g5QyBSVO2DnXPYuHkqdnwgQUCP+lVtz76EQNiYeJZ +onwkMsTa30XjWRh7p7+rhraGcqmWlNxZeLLZ968Fg8TRxunc5wJn4WRv24Hz +/CR6c87x+XRFwxeIYQoLkig4sl69MyAayhbmc5aJkFh26mg+Z20U6J/8cpmx +hsQ7xi/e7cJIYLYLWRTTdjrCkXFXPhKm1wOXEZPEPNv7/ToikVDclel0VorE +9eeufTk3cAaENCyJJbIkvvbrY7Piz0D3TEsBtxyJ39jBezU/R4BvQGkhhyKJ +OWcY84Vp4SCia99TSpslZpn7JzQcqgSXi9kqkbjTO5jT1j0cxgp8w2u3kLi0 +rCzfBcPBo13D7shWErXVfyyNHz4NToqtIu0aJNZHCbXP658G8+GBkGs7SEw0 +MKxuY4TB+I2M2r07SRyTeK72fCoUEk8b/eA0IHGfr8DQx6+h8EKizIZtSGKg +ofdRjYZQ+j7yU15uQmLSQ765r76hoF3A9T3YjMTPbqq5D1r+g8320pa72SQ+ +XS0sN5VzCtiaJxZGaW9buydnMPQUREu8vZZ0gESP3w5yUwdPQe+b2Nl2OxIl +9HdP+hCnINFgKsf2IImkL9vpQ/FJGFN88d3VmcS+9KmxPXdPQPnik6HhXiTK +FLGVV0wHwYfPb+VJbxLPzXs2VnYHAU+D4ptHtOVddo273Q8Cu6BBknGcRGOD +2+8VYoNA8Kf500Q/un+8NpMzUkFwrFNeLDuYxFRBV4HM3YGwsbiz5GYEiT1p +3/4YNfiD9Fxtl8sZEju/mfbKFfjDcpMUfvFIEpX6ArJlYv1hcsTU3S+K3u/a +zbLuVv5Qr9i6TimGRIvkwwIW436gf+tOUUkCiSUiL+bY6/yA/TjvWvZFEhWe +TQ8lVxyH3RKhnbsySSwOevXq9YXjAEfseP/S7ty2kl8h/DjILl3lYptFIneC +JPe6fcdhaE8KtTKXxE1ro7aZ/fWB452RBUkFdJ7uiw+rmPpAzIB7fkQFibrz +f8hCXm9Y1TCQt7mS7pdaTL3mpBdcTz+Y2017wES0aqDXC14aWGUpV5O4plTS +O7jeC0RLdNK/1pL4XqmvOfuYF2R7SsTq3SbRJPv90YRaT6iefuSz+BGJpynz +lQIRR0HvlbZ3Be0KcYMuDcej8Lbojie7hcTM+8myiXgUpvdXedQ8pv/PrZ1b ++NcDtO5mOR96SvdHnndZapAHPA7z3d/cRmJrddSIWqA7dDNkdSK66Dw0hLRf +T3CD2Un9aqKbnkdZa0rD1w1W9rgRD2nb+lxZPmDtBpbVlTw8n+i8JC7VTZJ1 +gxe22k+jeklskuWeV6tzhfvXHfbG9pMYsF3W506/C1zdneOcPEpiTWPo75Z9 +ztCs2tSpNEZid42FVY2WM/TJDhq8oR09t//PLcoZpKc2rhf9ReJQSG+k0NRh +uJBzbzR1ksSviT1KQxmHIW7sY+CFGRIddEv4FT4fAu/k1bG5XBR2tR4TPRDu +BHvHmk7vXkxh98JKyxMeTqC62z14nra644Pb1ZZOwMGod7PmoXBFb0C0z1on +SAyzMhDio3CxYQYX+dIRyrySuUMFKdwfNcahL+MI33cvCbWXoJDvxcxgVacD +vLheHiAgSaEwDIT1NjlAFcPK8zZtW96/X4gKBwh6VGAnvppCMatfqePRDrBE +S3f7SyaFwfZlXBkaDkBtCJnVIihsV9oxzmNkD078k77MTRRGW6TG2S47AO3B +ej2NtH+e3fTBdJQNet9TDJ02Uyhvn3nD9SUbqCcqzEJFCl3mBOP+JbDhe2RA +i6IyhQ0amx48FGaD16I5CX01CvPFJVJSmbYQMsPZ4K5LYdZZ51SL3TYw6mou +L6hHYW/xaKaVkg04vLt8voK21u/iiSAxG9Cu03X9rU9hidRlcYkea1jsd2b5 +fwYU7jDouXfX2xpix5YcSt5FYcUTPdszl6wgY3AZ3y0rCker7JLVefdB0ad5 +bWtrCj8E6LMMRi2hvuNb8BRtTsNkLc9OS+hqavqhsp9CDpe6Yr5CS2DmBrRV +sSlMyNhzwsPIEvKte9KvH6Swec2C45vze6HsSRmV607XWyAjy1/VAu41ZtqD +B4VqE+obI1gW8LIuOuMTbcsdHAqFghb0+ezIWHOMwrrenOVb+s1hy2mxnxe8 +KNw3z/XX7Lw53FQPqT3vR6GglKBd7oQZNJXs0ov6j8JJvkMbvzaZwkWxe1zK +oRRycVuF8VSYglfYxqZe2oK8ZXNwyRRWWy3TUT9N4V1f779Tvqbgu+gVjERQ +KMPx0zZIzhRIm70aFjEUNhUGKuyT2QNRPLZKUqkUbu8XcFAbMAE776fjT2nX +SCcpDDSZgHK3RmVgGr2fLR5St/NMoLdy9ebX6XR9nYcbuw+YgOqBTxvOXKTw +X4Dl3EynMXyrPig/nENhmuNDJb83RmB80FW6rpjCspN778GAAZR9DDO3LqHw +oJFTaFqrAQjvz4yYod143jyev9wA3pm/GNIopXD4luRS00ADOKSnXNlYTqH/ +QiYDlhpAiByHTmsNhV9w4/4LajuhYiTd6eM9Cs/NPlnpWqQPIkcqU0MaKNz5 +7sZ34yR98B9obZFqpPMveFDVKEgftvf8Xe94n8K4y7wdqYb60NrmNDnQRKGi +6vP5w8N60Fe96czYYzpfrVnlr7bogVhwy1WuNxTucghrkejUgV0uMhl1tE9E +y0sUNuhAxN4TZ93bKXxwY5GmRaEOTGzc5PGmg54vcD3yL0gH2vrSFPPf0fOR +cvdqCVMHYnY539H5RKH9j3SerUe1YUGa+3XYNwpdty0u2MBEUBG0b1L5TmFO +VF3jCgaCx9zNmm+0f5+t1N7wA6CrwyPd7AedF1WBo82XAG7GtLNlRun5amaP +qXMA+EzmDzZOUig0tSJ9Rdt2KPr8953vbwrXZlm0fyneDr0vrFrX/qHzfe39 +7Mcz22FPEX9p4hSFv/pXkgc0t4OC3XEfh1kKB4u3DASWaIKT8XMn0TkKrzdU +OZVHacJFVTnLx7SFiZciwoc0gU+ka9vmvxQ6X7dQsV2jCcihIv+V9mIPUU3t +WQ0IHImXzFigUFWGlWveqQHlH4b4Tf5ReCz6iUJCjQYMtOj8/Ue7piOh9E+S +BvwPGVQknQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 11.5}, {0., 0.9368525344691919}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> 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}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{7.5, 11.5}, {0., 0.9368525344691919}}, + 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.992169119526289*^9, + 3.9921691368135223`*^9}, 3.9921715327299824`*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"d6fa2f2f-3c56-3b4f-9f31-e6a5e4332e51"] +}, 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.5", ",", "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.5", ",", "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.9921691524763126`*^9, + 3.992169157715704*^9}}, + CellLabel-> + "In[113]:=",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.028715317069257486`\\\", \\\" \\\", 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.12340750146489952`\\\", \\\" \\\", 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.028715317069257486`\\\", \\\" \\\", RowBox[{\\\"Power\\\ +\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.12340750146489952`\\\", \\\" \\\", 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]\\\", \ +\\\"39\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", RowBox[{\\\"2.`\\\", \\\" \ +\\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.028715317069257486`\\\", \\\" \\\", 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.12340750146489952`\\\", \\\" \\\", 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.028715317069257486`\\\", \\\" \\\", RowBox[{\\\"Power\\\ +\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.12340750146489952`\\\", \\\" \\\", 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[{\\\"6.021057959004712`*^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, 113, 3, 29225281869222108711, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991964272641367*^9, 3.991965207078659*^9, + 3.9921691706135864`*^9}, + CellLabel-> + "During evaluation of \ +In[113]:=",ExpressionUUID->"0015c752-5462-024f-a5f6-0bb14ac8a9f8"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "\[Rule]", "1.504446945209379`"}], ",", + RowBox[{"bb0", "\[Rule]", "1.5444518632038227`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991964272691372*^9, 3.99196520714266*^9, + 3.992169170680586*^9}, + CellLabel-> + "Out[113]=",ExpressionUUID->"fd74a600-672d-fe49-b17e-345cc41e2a51"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "2.4"}]], "Input", + CellChangeTimes->{{3.991964278686388*^9, 3.9919642789396744`*^9}, + 3.991965211114523*^9, {3.9921691763354073`*^9, 3.9921691796369476`*^9}, { + 3.9921716105656605`*^9, 3.992171616758772*^9}, {3.9921716680761127`*^9, + 3.992171668632452*^9}, {3.9921717246874504`*^9, 3.992171724757452*^9}, { + 3.9921717940147095`*^9, + 3.9921718248897896`*^9}},ExpressionUUID->"e7f8a0fc-58ca-3c43-8050-\ +1041e5611e26"], + +Cell[BoxData["2.4`"], "Output", + CellChangeTimes->{ + 3.991964280066925*^9, 3.991965218521267*^9, 3.992169197781002*^9, + 3.992171633165718*^9, 3.992171669691431*^9, 3.992171725638872*^9, { + 3.992171794599943*^9, 3.9921718074488983`*^9}}, + CellLabel-> + "Out[157]=",ExpressionUUID->"593f0234-9885-574b-abab-682d67c1a482"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"bb0", "=", "1.105"}]], "Input", + CellChangeTimes->{{3.991964284161188*^9, 3.9919642845938396`*^9}, { + 3.9919652166473465`*^9, 3.991965216788891*^9}, {3.9921691817741833`*^9, + 3.992169193628704*^9}, {3.9921716200213947`*^9, 3.99217171365382*^9}, { + 3.9921717721445045`*^9, 3.992171846007412*^9}}, + CellLabel-> + "In[164]:=",ExpressionUUID->"8a3efd5c-480b-0b42-87de-a0381a89eb4a"], + +Cell[BoxData["1.105`"], "Output", + CellChangeTimes->{ + 3.991964285066065*^9, 3.9919652203929043`*^9, 3.992169194666956*^9, { + 3.9921716256031265`*^9, 3.9921717140442905`*^9}, {3.992171774189028*^9, + 3.9921718467600594`*^9}}, + CellLabel-> + "Out[164]=",ExpressionUUID->"83a961cb-be32-234e-a6a1-248b62e7be8c"] +}, 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", ",", "7.5", ",", "11.5"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917168848265095`*^9, {3.9919642917670784`*^9, 3.991964315141735*^9}, + 3.99216920755842*^9}, + CellLabel-> + "In[165]:=",ExpressionUUID->"a14f3f77-6d27-1048-853d-e35ac0579b5a"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVk3s01AkUx2cM1nisHtNjW6Z5+VVHxJE2le7Nqqi0kVKtE5nNI9Nr2Bpj +9JzYFAqVyqPYMzRCUpkJu/LYylDUeLctjWEUizCVITv7xz33fM/3nM/5nvs9 +lxl02Ge/AYlE8tLP/3v5EaERiURHLaXQ5NMbMrLqMznB2+goShlMcFGQUGEa +cy4pl46sHeH3x92n4Ytlz6qPn+mYXlbRkseYgtnqxLXlHgtxOsrKNXymDjTp +o2c9sxbiPUmhNFv9Gdy+77aeMbwQ/c27c0tGtGC7tmayns1Ad+ua9psfxiC/ +RX65disDU5JOZx2kjsKhV6ONHccYCIwinzeBI5D4p2mxdzYD5b6MFsugIRix +DF6trmNgXYjw6Hb+AGzyUPHufmSgOCHQSVzTD2S+KzRbM5Gl7O1Q0/pg4mtn +2YINTJz4+MVo4q8e8I7xa39ylImqFZ5TTTHvIFM1lpGezkTN+pHFiogusCto +MU+tYeLkY+NIEf9vWBB6xWpwiImSyJ2yDRYd4Bmb1hI0n4Wp5RJKqmMrtFwR +OK5yZ2HwyqagOWFK2J0gdFp/mIWUao0h/3MT0DWV//CusXAW66bE5O1LWLe8 +Z6m2ioVLLqjsfAcVIFFt5qR/YKG0rCSmJvcZGEQ3V/06m423BbQTaxS1UEZZ +Y1C8lo3GVrXjdqbVUDrU+8EkhI1ql+0BJjWVMKPh0LGqZDZmxWYH2NpXQEDy +/LyiCjb+0X5D5X1IDiOPjcVyNRu/DGkNQ3Y/gi5lE8lmJgcbublsXWgJzPLp +XlTgwkFxft/Nu6RiWFU6Sxu6j4O6+y4+RFsBVFow98de5OAtnax957s78NvT +iBOVDzhoJ+yZFyiRQCE/Z6V/FwfPmK3O0F7Jgbmn52XQqDZYoalXzZl3GyKP +F+SRHG1w0jqS0qDKAIcAxo6t/jb4kOvRu0Z5HeylrfkysQ06Hi5ysI27CvG9 +4Tnie3p/mXtH0oEUeGPKchN32uDFpPpeWe0lOJpsdeEWhcCwPRt3STABuGZj +kfRlBJ6g8S9bO5+HtD5LqtyPwOQLgk32/56D6nwv97iTBO5rrMrexjgLm/eF +Mkqlet16aVgSfQrmCp9KKK8JVBtS8UWRCHqfuk1NTxNIvD4g9UgUgG2m+Ryn +xXRM7jaSb/Ql41eG0avT/QRey6vtKI8XgkPcjwnf0fT/0zd3SXEaGeO9gsvd +3hL4Vm4RRkqLBv5YTl/lmD5vR1xJVlwU3NftfW5uSscb7eQt7Y/J2Ki66pjT +RuDu6pN5SSwRyOKV/swhAiWrTVKHvhHC0r0R/MAJAvdo8rc8oUbB6ENeiLER +HbPdjif1K8g4ar+M97qZwOaA6y5toSLobOZd8x4gsMkv57mRpxB+umNWcOkT +gZU/n7LgekQBdXbnDw5TBEa/ZE/KFAKgpUSsOGtAx7bC0LwjSjKKfaPPhysJ +rLOZjHC9KAKeTvag/z2B/gf49IYwIXS98KtbrCXw4ARvYDAkCm6sXLTjmY5A +59h4C+l7AQgGExekfSVQuov7fvCuAH4nf8pYR6ajeavBcEkbGb1CmGml+nsX +Fop/IWWKwPnbgGpnPV/pmjkAQiHc6Z5qixwn8PY5yvCT41HA3dzApen520Wn +ehwmBIAk5yU9+vyG43aPtpYLoKhDY7ZF35dTNzXlaoYA/gOctT4x + "], {{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], 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:eJwVk3s01AkUx2cM1nisHtNjW6Z5+VVHxJE2le7Nqqi0kVKtE5nNI9Nr2Bpj +9JzYFAqVyqPYMzRCUpkJu/LYylDUeLctjWEUizCVITv7xz33fM/3nM/5nvs9 +lxl02Ge/AYlE8tLP/3v5EaERiURHLaXQ5NMbMrLqMznB2+goShlMcFGQUGEa +cy4pl46sHeH3x92n4Ytlz6qPn+mYXlbRkseYgtnqxLXlHgtxOsrKNXymDjTp +o2c9sxbiPUmhNFv9Gdy+77aeMbwQ/c27c0tGtGC7tmayns1Ad+ua9psfxiC/ +RX65disDU5JOZx2kjsKhV6ONHccYCIwinzeBI5D4p2mxdzYD5b6MFsugIRix +DF6trmNgXYjw6Hb+AGzyUPHufmSgOCHQSVzTD2S+KzRbM5Gl7O1Q0/pg4mtn +2YINTJz4+MVo4q8e8I7xa39ylImqFZ5TTTHvIFM1lpGezkTN+pHFiogusCto +MU+tYeLkY+NIEf9vWBB6xWpwiImSyJ2yDRYd4Bmb1hI0n4Wp5RJKqmMrtFwR +OK5yZ2HwyqagOWFK2J0gdFp/mIWUao0h/3MT0DWV//CusXAW66bE5O1LWLe8 +Z6m2ioVLLqjsfAcVIFFt5qR/YKG0rCSmJvcZGEQ3V/06m423BbQTaxS1UEZZ +Y1C8lo3GVrXjdqbVUDrU+8EkhI1ql+0BJjWVMKPh0LGqZDZmxWYH2NpXQEDy +/LyiCjb+0X5D5X1IDiOPjcVyNRu/DGkNQ3Y/gi5lE8lmJgcbublsXWgJzPLp +XlTgwkFxft/Nu6RiWFU6Sxu6j4O6+y4+RFsBVFow98de5OAtnax957s78NvT +iBOVDzhoJ+yZFyiRQCE/Z6V/FwfPmK3O0F7Jgbmn52XQqDZYoalXzZl3GyKP +F+SRHG1w0jqS0qDKAIcAxo6t/jb4kOvRu0Z5HeylrfkysQ06Hi5ysI27CvG9 +4Tnie3p/mXtH0oEUeGPKchN32uDFpPpeWe0lOJpsdeEWhcCwPRt3STABuGZj +kfRlBJ6g8S9bO5+HtD5LqtyPwOQLgk32/56D6nwv97iTBO5rrMrexjgLm/eF +Mkqlet16aVgSfQrmCp9KKK8JVBtS8UWRCHqfuk1NTxNIvD4g9UgUgG2m+Ryn +xXRM7jaSb/Ql41eG0avT/QRey6vtKI8XgkPcjwnf0fT/0zd3SXEaGeO9gsvd +3hL4Vm4RRkqLBv5YTl/lmD5vR1xJVlwU3NftfW5uSscb7eQt7Y/J2Ki66pjT +RuDu6pN5SSwRyOKV/swhAiWrTVKHvhHC0r0R/MAJAvdo8rc8oUbB6ENeiLER +HbPdjif1K8g4ar+M97qZwOaA6y5toSLobOZd8x4gsMkv57mRpxB+umNWcOkT +gZU/n7LgekQBdXbnDw5TBEa/ZE/KFAKgpUSsOGtAx7bC0LwjSjKKfaPPhysJ +rLOZjHC9KAKeTvag/z2B/gf49IYwIXS98KtbrCXw4ARvYDAkCm6sXLTjmY5A +59h4C+l7AQgGExekfSVQuov7fvCuAH4nf8pYR6ajeavBcEkbGb1CmGml+nsX +Fop/IWWKwPnbgGpnPV/pmjkAQiHc6Z5qixwn8PY5yvCT41HA3dzApen520Wn +ehwmBIAk5yU9+vyG43aPtpYLoKhDY7ZF35dTNzXlaoYA/gOctT4x + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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.5, 11.5}, {0., 2.2328930547814663`}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVz30w1AkYB/Bdi7NeTi/by3Vs++ZXjYiRLpWeJ6ei0kVKdSayl5dsb8vV +WqvXjUuhUKm8FDdLKySV3XAnL1dZilrvXUdrWcUhbGXJ7f3xzHc+8535zjzM +oMM++w1IJJKX/v7P5UeERiQSHbWUQpNPb8j4O/lTxjoyHc1bDYZL2shIS4lY +cdaAjm2FoXlHlGQcfcgLMTaiY7bb8aR+BRnv6/Y+Nzel44128pb2x2R0iPsx +4Tuafq9v7pLiNDLaZprPcVpMx+RuI/lGXzKy6jM5wdvoKEoZTHBRkFBhGnMu +KZeOrB3h98fdp+GLZc+qj5/pmF5W0ZLHmILZ6sS15R4LcTrKyjV8pg406aNn +PbMW4j1JoTRb/Rncvu+2njG8EP3Nu3NLRrRgu7Zmsp7NQHfrmvabH8Ygv0V+ +uXYrA1OSTmcdpI7CoVejjR3HGAiMIp83gSOQ+KdpsXc2A+W+jBbLoCEYsQxe +ra5jYF2I8Oh2/gBs8lDx7n5koDgh0Elc0w9kvis0WzORpeztUNP6YOJrZ9mC +DUyc+PjFaOKvHvCO8Wt/cpSJqhWeU00x7yBTNZaRns5EzfqRxYqILrAraDFP +rWHi5GPjSBH/b1gQesVqcIiJksidsg0WHeAZm9YSNJ+FqeUSSqpjK7RcETiu +cmdh8MqmoDlhStidIHRaf5iFlGqNIf9zE9A1lf/wrrFwFuumxOTtS1i3vGep +toqFSy6o7HwHFSBRbeakf2ChtKwkpib3GRhEN1f9OpuNtwW0E2sUtVBGWWNQ +vJaNxla143am1VA61PvBJISNapftASY1lTCj4dCxqmQ2ZsVmB9jaV0BA8vy8 +ogo2/tF+Q+V9SA4jj43FcjUbvwxpDUN2P4IuZRPJZiYHG7m5bF1oCczy6V5U +4MJBcX7fzbukYlhVOksbuo+DuvsuPkRbAVRaMPfHXuTgLZ2sfee7O/Db04gT +lQ84aCfsmRcokUAhP2elfxcHz5itztBeyYG5p+dl0Kg2WKGpV82Zdxsijxfk +kRxtcNI6ktKgygCHAMaOrf42+JDr0btGeR3spa35MrENOh4ucrCNuwrxveE5 +4nv6fpl7R9KBFHhjynITd9rgxaT6XlntJTiabHXhFoXAsD0bd0kwAbhmY5H0 +ZQSeoPEvWzufh7Q+S6rcj8DkC4JN9v+eg+p8L/e4kwTua6zK3sY4C5v3hTJK +pXq3XhqWRJ+CucKnEsprAtWGVHxRJAKvEGZaqd6FheJfSJkiEPtGnw9XElhn +MxnhelEEo/bLeK+bCWwOuO7SFiqCRtVVx5w2AndXn8xLYokg3iu43O0tgW/l +FmGktGj4yjB6dbqfwGt5tR3l8UJw/jag2vk9gUrXzAEQCoGnkz3o19v/AJ/e +ECaEzmbeNe8BApv8cp4beQpBFq/0Zw4RKFltkjr0jRD4Yzl9lWP6/zviSrLi +ouBO91Rb5DiBt89Rhp8cj4KuF351i7UEHpzgDQyGRMFPd8wKLn0isPLnUxZc +jyhYujeCHzhB4B5N/pYn1Cjgbm7g0nQEbhed6nGYEMCNlYt2PNPbOTbeQvpe +ANTZnT84TBEY/ZI9KVMIAEnOS3r0Nhy3e7S1XACCwcQFaV8JlO7ivh+8K4Ci +Do3ZlmkCnbqpKVczBND71G1qWm/i9QGpR6IA/gO8sz4x + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 11.5}, {0., 2.2328930547814663`}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVz30w1AkYB/Bdi7NeTi/by3Vs++ZXjYiRLpWeJ6ei0kVKdSayl5dsb8vV +WqvXjUuhUKm8FDdLKySV3XAnL1dZilrvXUdrWcUhbGXJ7f3xzHc+8535zjzM +oMM++w1IJJKX/v7P5UeERiQSHbWUQpNPb8j4O/lTxjoyHc1bDYZL2shIS4lY +cdaAjm2FoXlHlGQcfcgLMTaiY7bb8aR+BRnv6/Y+Nzel44128pb2x2R0iPsx +4Tuafq9v7pLiNDLaZprPcVpMx+RuI/lGXzKy6jM5wdvoKEoZTHBRkFBhGnMu +KZeOrB3h98fdp+GLZc+qj5/pmF5W0ZLHmILZ6sS15R4LcTrKyjV8pg406aNn +PbMW4j1JoTRb/Rncvu+2njG8EP3Nu3NLRrRgu7Zmsp7NQHfrmvabH8Ygv0V+ +uXYrA1OSTmcdpI7CoVejjR3HGAiMIp83gSOQ+KdpsXc2A+W+jBbLoCEYsQxe +ra5jYF2I8Oh2/gBs8lDx7n5koDgh0Elc0w9kvis0WzORpeztUNP6YOJrZ9mC +DUyc+PjFaOKvHvCO8Wt/cpSJqhWeU00x7yBTNZaRns5EzfqRxYqILrAraDFP +rWHi5GPjSBH/b1gQesVqcIiJksidsg0WHeAZm9YSNJ+FqeUSSqpjK7RcETiu +cmdh8MqmoDlhStidIHRaf5iFlGqNIf9zE9A1lf/wrrFwFuumxOTtS1i3vGep +toqFSy6o7HwHFSBRbeakf2ChtKwkpib3GRhEN1f9OpuNtwW0E2sUtVBGWWNQ +vJaNxla143am1VA61PvBJISNapftASY1lTCj4dCxqmQ2ZsVmB9jaV0BA8vy8 +ogo2/tF+Q+V9SA4jj43FcjUbvwxpDUN2P4IuZRPJZiYHG7m5bF1oCczy6V5U +4MJBcX7fzbukYlhVOksbuo+DuvsuPkRbAVRaMPfHXuTgLZ2sfee7O/Db04gT +lQ84aCfsmRcokUAhP2elfxcHz5itztBeyYG5p+dl0Kg2WKGpV82Zdxsijxfk +kRxtcNI6ktKgygCHAMaOrf42+JDr0btGeR3spa35MrENOh4ucrCNuwrxveE5 +4nv6fpl7R9KBFHhjynITd9rgxaT6XlntJTiabHXhFoXAsD0bd0kwAbhmY5H0 +ZQSeoPEvWzufh7Q+S6rcj8DkC4JN9v+eg+p8L/e4kwTua6zK3sY4C5v3hTJK +pXq3XhqWRJ+CucKnEsprAtWGVHxRJAKvEGZaqd6FheJfSJkiEPtGnw9XElhn +MxnhelEEo/bLeK+bCWwOuO7SFiqCRtVVx5w2AndXn8xLYokg3iu43O0tgW/l +FmGktGj4yjB6dbqfwGt5tR3l8UJw/jag2vk9gUrXzAEQCoGnkz3o19v/AJ/e +ECaEzmbeNe8BApv8cp4beQpBFq/0Zw4RKFltkjr0jRD4Yzl9lWP6/zviSrLi +ouBO91Rb5DiBt89Rhp8cj4KuF351i7UEHpzgDQyGRMFPd8wKLn0isPLnUxZc +jyhYujeCHzhB4B5N/pYn1Cjgbm7g0nQEbhed6nGYEMCNlYt2PNPbOTbeQvpe +ANTZnT84TBEY/ZI9KVMIAEnOS3r0Nhy3e7S1XACCwcQFaV8JlO7ivh+8K4Ci +Do3ZlmkCnbqpKVczBND71G1qWm/i9QGpR6IA/gO8sz4x + "]]}, "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:eJwVk3s01AkUx2cM1nisHtNjW6Z5+VVHxJE2le7Nqqi0kVKtE5nNI9Nr2Bpj +9JzYFAqVyqPYMzRCUpkJu/LYylDUeLctjWEUizCVITv7xz33fM/3nM/5nvs9 +lxl02Ge/AYlE8tLP/3v5EaERiURHLaXQ5NMbMrLqMznB2+goShlMcFGQUGEa +cy4pl46sHeH3x92n4Ytlz6qPn+mYXlbRkseYgtnqxLXlHgtxOsrKNXymDjTp +o2c9sxbiPUmhNFv9Gdy+77aeMbwQ/c27c0tGtGC7tmayns1Ad+ua9psfxiC/ +RX65disDU5JOZx2kjsKhV6ONHccYCIwinzeBI5D4p2mxdzYD5b6MFsugIRix +DF6trmNgXYjw6Hb+AGzyUPHufmSgOCHQSVzTD2S+KzRbM5Gl7O1Q0/pg4mtn +2YINTJz4+MVo4q8e8I7xa39ylImqFZ5TTTHvIFM1lpGezkTN+pHFiogusCto +MU+tYeLkY+NIEf9vWBB6xWpwiImSyJ2yDRYd4Bmb1hI0n4Wp5RJKqmMrtFwR +OK5yZ2HwyqagOWFK2J0gdFp/mIWUao0h/3MT0DWV//CusXAW66bE5O1LWLe8 +Z6m2ioVLLqjsfAcVIFFt5qR/YKG0rCSmJvcZGEQ3V/06m423BbQTaxS1UEZZ +Y1C8lo3GVrXjdqbVUDrU+8EkhI1ql+0BJjWVMKPh0LGqZDZmxWYH2NpXQEDy +/LyiCjb+0X5D5X1IDiOPjcVyNRu/DGkNQ3Y/gi5lE8lmJgcbublsXWgJzPLp +XlTgwkFxft/Nu6RiWFU6Sxu6j4O6+y4+RFsBVFow98de5OAtnax957s78NvT +iBOVDzhoJ+yZFyiRQCE/Z6V/FwfPmK3O0F7Jgbmn52XQqDZYoalXzZl3GyKP +F+SRHG1w0jqS0qDKAIcAxo6t/jb4kOvRu0Z5HeylrfkysQ06Hi5ysI27CvG9 +4Tnie3p/mXtH0oEUeGPKchN32uDFpPpeWe0lOJpsdeEWhcCwPRt3STABuGZj +kfRlBJ6g8S9bO5+HtD5LqtyPwOQLgk32/56D6nwv97iTBO5rrMrexjgLm/eF +Mkqlet16aVgSfQrmCp9KKK8JVBtS8UWRCHqfuk1NTxNIvD4g9UgUgG2m+Ryn +xXRM7jaSb/Ql41eG0avT/QRey6vtKI8XgkPcjwnf0fT/0zd3SXEaGeO9gsvd +3hL4Vm4RRkqLBv5YTl/lmD5vR1xJVlwU3NftfW5uSscb7eQt7Y/J2Ki66pjT +RuDu6pN5SSwRyOKV/swhAiWrTVKHvhHC0r0R/MAJAvdo8rc8oUbB6ENeiLER +HbPdjif1K8g4ar+M97qZwOaA6y5toSLobOZd8x4gsMkv57mRpxB+umNWcOkT +gZU/n7LgekQBdXbnDw5TBEa/ZE/KFAKgpUSsOGtAx7bC0LwjSjKKfaPPhysJ +rLOZjHC9KAKeTvag/z2B/gf49IYwIXS98KtbrCXw4ARvYDAkCm6sXLTjmY5A +59h4C+l7AQgGExekfSVQuov7fvCuAH4nf8pYR6ajeavBcEkbGb1CmGml+nsX +Fop/IWWKwPnbgGpnPV/pmjkAQiHc6Z5qixwn8PY5yvCT41HA3dzApen520Wn +ehwmBIAk5yU9+vyG43aPtpYLoKhDY7ZF35dTNzXlaoYA/gOctT4x + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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.5, 11.5}, {0., 2.2328930547814663`}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVz30w1AkYB/Bdi7NeTi/by3Vs++ZXjYiRLpWeJ6ei0kVKdSayl5dsb8vV +WqvXjUuhUKm8FDdLKySV3XAnL1dZilrvXUdrWcUhbGXJ7f3xzHc+8535zjzM +oMM++w1IJJKX/v7P5UeERiQSHbWUQpNPb8j4O/lTxjoyHc1bDYZL2shIS4lY +cdaAjm2FoXlHlGQcfcgLMTaiY7bb8aR+BRnv6/Y+Nzel44128pb2x2R0iPsx +4Tuafq9v7pLiNDLaZprPcVpMx+RuI/lGXzKy6jM5wdvoKEoZTHBRkFBhGnMu +KZeOrB3h98fdp+GLZc+qj5/pmF5W0ZLHmILZ6sS15R4LcTrKyjV8pg406aNn +PbMW4j1JoTRb/Rncvu+2njG8EP3Nu3NLRrRgu7Zmsp7NQHfrmvabH8Ygv0V+ +uXYrA1OSTmcdpI7CoVejjR3HGAiMIp83gSOQ+KdpsXc2A+W+jBbLoCEYsQxe +ra5jYF2I8Oh2/gBs8lDx7n5koDgh0Elc0w9kvis0WzORpeztUNP6YOJrZ9mC +DUyc+PjFaOKvHvCO8Wt/cpSJqhWeU00x7yBTNZaRns5EzfqRxYqILrAraDFP +rWHi5GPjSBH/b1gQesVqcIiJksidsg0WHeAZm9YSNJ+FqeUSSqpjK7RcETiu +cmdh8MqmoDlhStidIHRaf5iFlGqNIf9zE9A1lf/wrrFwFuumxOTtS1i3vGep +toqFSy6o7HwHFSBRbeakf2ChtKwkpib3GRhEN1f9OpuNtwW0E2sUtVBGWWNQ +vJaNxla143am1VA61PvBJISNapftASY1lTCj4dCxqmQ2ZsVmB9jaV0BA8vy8 +ogo2/tF+Q+V9SA4jj43FcjUbvwxpDUN2P4IuZRPJZiYHG7m5bF1oCczy6V5U +4MJBcX7fzbukYlhVOksbuo+DuvsuPkRbAVRaMPfHXuTgLZ2sfee7O/Db04gT +lQ84aCfsmRcokUAhP2elfxcHz5itztBeyYG5p+dl0Kg2WKGpV82Zdxsijxfk +kRxtcNI6ktKgygCHAMaOrf42+JDr0btGeR3spa35MrENOh4ucrCNuwrxveE5 +4nv6fpl7R9KBFHhjynITd9rgxaT6XlntJTiabHXhFoXAsD0bd0kwAbhmY5H0 +ZQSeoPEvWzufh7Q+S6rcj8DkC4JN9v+eg+p8L/e4kwTua6zK3sY4C5v3hTJK +pXq3XhqWRJ+CucKnEsprAtWGVHxRJAKvEGZaqd6FheJfSJkiEPtGnw9XElhn +MxnhelEEo/bLeK+bCWwOuO7SFiqCRtVVx5w2AndXn8xLYokg3iu43O0tgW/l +FmGktGj4yjB6dbqfwGt5tR3l8UJw/jag2vk9gUrXzAEQCoGnkz3o19v/AJ/e +ECaEzmbeNe8BApv8cp4beQpBFq/0Zw4RKFltkjr0jRD4Yzl9lWP6/zviSrLi +ouBO91Rb5DiBt89Rhp8cj4KuF351i7UEHpzgDQyGRMFPd8wKLn0isPLnUxZc +jyhYujeCHzhB4B5N/pYn1Cjgbm7g0nQEbhed6nGYEMCNlYt2PNPbOTbeQvpe +ANTZnT84TBEY/ZI9KVMIAEnOS3r0Nhy3e7S1XACCwcQFaV8JlO7ivh+8K4Ci +Do3ZlmkCnbqpKVczBND71G1qWm/i9QGpR6IA/gO8sz4x + "]]}, "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}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{7.5, 11.5}, {0., 2.2328930547814663`}}, + 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.992169200000057*^9, 3.992169208542076*^9}, { + 3.992171640417225*^9, 3.992171727786623*^9}, {3.992171776807684*^9, + 3.9921718487362633`*^9}}, + CellLabel-> + "Out[165]=",ExpressionUUID->"9976a110-3b90-0140-9da3-64f7397f6359"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l11", ",", "l22"}], "]"}]], "Input", + CellLabel-> + "In[166]:=",ExpressionUUID->"7f7adb48-d16c-ff46-92de-216bf33e0dd7"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Xk0Vl8XB3AS8oiEiOoxPPdeKQ1EmbK3qUyVISFPiDJEGTJXfkQImTKV +TEkZMpPSQFFKk4pUFCVDSYgypve+95+7Puusde86e3/3OTKOnuaHF3HQDycH +x//fyl7B3BwcTLTlS19XNTsCVzinsrQ5mTisc+5yxswIiJ4/vjV8ERMHRZln +Q6ZHYKLWw4WHm4nKUdx5Bn9GoGrO7slSBhNLNfImO8ZHYHOU7jkJUSYy4nzH +2odGYH320hVb1jIxnj/toOPbEZB9lk04mzKRM8Jf6nr5CDxlnDqTcI2JkUJr +O9rNR2Bm2Vf1X9NMvKsiViQ89gNE+uO17hhI4ZIfJ9UqT/+AoUsT4YY5UqjX +O60aOz8MOqs+rxEak8LL8qPO3p7DsF6ref4ZSxo/XftiWNP0HUre3kp6uFsa +nVjPhAt5vsOx1xNtH/ylsa2aP3Re5xvENzAqzS5Lo8zyCN731kMwvsxZo79V +Gh2Yn34pug2CkUGfx/Vf0iiyrelQxJEB4PTZDh1rZDA9PbS5CvthdqHrtuQO +GZyofLe/S/wrmJ2yen/fWwbbOsxqcpq+QHbfZNalSzIYbhtrz+v8GTaUvl2a +0iyDLju1ci6u6AVJ19TVI6MyGPvN5PqY7kcwjMx467hSFmPcqwX4Yz/A29RA +RXU9WeyI3lTZl9MJNueCt+h7yuKHwLbzQm/bgTnU2OORLovxQh3dBVavQVv5 +q8KfB7L4aauxCTPtJVztMyYuDcvi4+7sTS4KT2HRiY4HfiIsbLTV98OtLXCb +S3NRpRYL55ure47bNEHd6MDwEhcWTpu1bSmXbwSh58f8HySzsO8I8Oqa1YN9 +8srC8rssHLvs43zDsBYWGUe/3HOPha+uGpeFqtbCFa7pP6O0c7ZfWb5PrhaG +fDv1NzeycHZZ0ypZ7lrwsUrrq3jAQjefK2+07tdAxGpRqaoWFhZ4hgRGadRA +4dVlaTWvWHivJl5XXbUaxut5Im71s1DLq7VI16wSrAdnFF0GWDjekOJ0QrsS +GkVGekQHWYj9T+buKVZCoscbDa8hFjZ9Cq10E66EjczcCWqYhbpbF2eYtFeA +R5iaU8oYCx/mMIJ191fA0E4PHc85FqZviJ249LEMettfcZDLCeyYFn2yzacE +OoSPybTQdksfT5+yKYFWU4aOmzC9rkRlP9EugepnOuGlIgT+J9y37sryEohs +rubeKkbgmE7mdqWqYlCoSWXsXEXgQGUXd/GfIgg6byPqRhK4IUWM41FcIQib +f5YrVSNw7V1GS/ZwAVwVlxQ3USdQtM+uhuddAWh8NOcZps3hl9FzqrkADrk2 +f12rSeBocNizC1kFUBdyLe+KFoH7F73iizItAHbJ0VWXdAkcqT/htOnWFbi6 +eFYwdheBz0+OOQSn5oN6nfAf14MELg3PFV8RmAcpYy/cVzgSqHAv/lexcx78 +lI/9fJ82eV1NxdQyDy5f4noueYhAfnL60WOlPOA/PZn/zJlA49j1414/c6Hb +5K3ZZg8ChbzqRVJcc+HUlwulU/4E/nynfbvuZTY0Csgcjowj8O2d+SR76Uy4 +Zh25S+4cgZblqlb+PJkQnz+s8pj26yKhwPwfF4GtdoOHkUBgxmLqHN66CDOH +jAvPJRHYWGhoFGFxEZTu+A2npBHIbpw0JeIuwJUjrd75uXS97LRHbQQyILrl +eEhjDYGliwvKTUxSQTmSPXKslkCtMsUVTSqp8FlPn73mBoGCg11790ilgvoD +MfXgOgIVs0Ili36lwMidW7+31BPomDL/2P5iCphX/fO41kDg8LdZ2daR87Aq +K9Y2vpX+/l3H/SuvJMNjW99WzacEPhTa0C2XmAy+kgfUhmn3c/QxjE8mw4v0 +jeIGzwlc9FxA4dneZAhNfvWas43A7J9BxXU8yfA1StzIr4PAVV21MuSxJCjz +yVdl9xK4UfzYgSGjRBjSUZH8Rzt/R01ZgHoiyIi0zOV9JnBiuZiz2LpESKn+ +fm/wC4GHSm+0h/ElwolJRf3j/QSaB97PZyYngIF/o1nMd7q+HfBqIjUevgR9 +PHJzks5vjNiCZ3UcrDbyNLH9TeB7ho2zalocWEpyblygHbtwPnF1UBw8rifG +dacIFOcteL4N4qB8zj3g5QyBSVO2DnXPYuHkqdnwgQUCP+lVtz76EQNiYeJZ +onwkMsTa30XjWRh7p7+rhraGcqmWlNxZeLLZ968Fg8TRxunc5wJn4WRv24Hz +/CR6c87x+XRFwxeIYQoLkig4sl69MyAayhbmc5aJkFh26mg+Z20U6J/8cpmx +hsQ7xi/e7cJIYLYLWRTTdjrCkXFXPhKm1wOXEZPEPNv7/ToikVDclel0VorE +9eeufTk3cAaENCyJJbIkvvbrY7Piz0D3TEsBtxyJ39jBezU/R4BvQGkhhyKJ +OWcY84Vp4SCia99TSpslZpn7JzQcqgSXi9kqkbjTO5jT1j0cxgp8w2u3kLi0 +rCzfBcPBo13D7shWErXVfyyNHz4NToqtIu0aJNZHCbXP658G8+GBkGs7SEw0 +MKxuY4TB+I2M2r07SRyTeK72fCoUEk8b/eA0IHGfr8DQx6+h8EKizIZtSGKg +ofdRjYZQ+j7yU15uQmLSQ765r76hoF3A9T3YjMTPbqq5D1r+g8320pa72SQ+ +XS0sN5VzCtiaJxZGaW9buydnMPQUREu8vZZ0gESP3w5yUwdPQe+b2Nl2OxIl +9HdP+hCnINFgKsf2IImkL9vpQ/FJGFN88d3VmcS+9KmxPXdPQPnik6HhXiTK +FLGVV0wHwYfPb+VJbxLPzXs2VnYHAU+D4ptHtOVddo273Q8Cu6BBknGcRGOD +2+8VYoNA8Kf500Q/un+8NpMzUkFwrFNeLDuYxFRBV4HM3YGwsbiz5GYEiT1p +3/4YNfiD9Fxtl8sZEju/mfbKFfjDcpMUfvFIEpX6ArJlYv1hcsTU3S+K3u/a +zbLuVv5Qr9i6TimGRIvkwwIW436gf+tOUUkCiSUiL+bY6/yA/TjvWvZFEhWe +TQ8lVxyH3RKhnbsySSwOevXq9YXjAEfseP/S7ty2kl8h/DjILl3lYptFIneC +JPe6fcdhaE8KtTKXxE1ro7aZ/fWB452RBUkFdJ7uiw+rmPpAzIB7fkQFibrz +f8hCXm9Y1TCQt7mS7pdaTL3mpBdcTz+Y2017wES0aqDXC14aWGUpV5O4plTS +O7jeC0RLdNK/1pL4XqmvOfuYF2R7SsTq3SbRJPv90YRaT6iefuSz+BGJpynz +lQIRR0HvlbZ3Be0KcYMuDcej8Lbojie7hcTM+8myiXgUpvdXedQ8pv/PrZ1b ++NcDtO5mOR96SvdHnndZapAHPA7z3d/cRmJrddSIWqA7dDNkdSK66Dw0hLRf +T3CD2Un9aqKbnkdZa0rD1w1W9rgRD2nb+lxZPmDtBpbVlTw8n+i8JC7VTZJ1 +gxe22k+jeklskuWeV6tzhfvXHfbG9pMYsF3W506/C1zdneOcPEpiTWPo75Z9 +ztCs2tSpNEZid42FVY2WM/TJDhq8oR09t//PLcoZpKc2rhf9ReJQSG+k0NRh +uJBzbzR1ksSviT1KQxmHIW7sY+CFGRIddEv4FT4fAu/k1bG5XBR2tR4TPRDu +BHvHmk7vXkxh98JKyxMeTqC62z14nra644Pb1ZZOwMGod7PmoXBFb0C0z1on +SAyzMhDio3CxYQYX+dIRyrySuUMFKdwfNcahL+MI33cvCbWXoJDvxcxgVacD +vLheHiAgSaEwDIT1NjlAFcPK8zZtW96/X4gKBwh6VGAnvppCMatfqePRDrBE +S3f7SyaFwfZlXBkaDkBtCJnVIihsV9oxzmNkD078k77MTRRGW6TG2S47AO3B +ej2NtH+e3fTBdJQNet9TDJ02Uyhvn3nD9SUbqCcqzEJFCl3mBOP+JbDhe2RA +i6IyhQ0amx48FGaD16I5CX01CvPFJVJSmbYQMsPZ4K5LYdZZ51SL3TYw6mou +L6hHYW/xaKaVkg04vLt8voK21u/iiSAxG9Cu03X9rU9hidRlcYkea1jsd2b5 +fwYU7jDouXfX2xpix5YcSt5FYcUTPdszl6wgY3AZ3y0rCker7JLVefdB0ad5 +bWtrCj8E6LMMRi2hvuNb8BRtTsNkLc9OS+hqavqhsp9CDpe6Yr5CS2DmBrRV +sSlMyNhzwsPIEvKte9KvH6Swec2C45vze6HsSRmV607XWyAjy1/VAu41ZtqD +B4VqE+obI1gW8LIuOuMTbcsdHAqFghb0+ezIWHOMwrrenOVb+s1hy2mxnxe8 +KNw3z/XX7Lw53FQPqT3vR6GglKBd7oQZNJXs0ov6j8JJvkMbvzaZwkWxe1zK +oRRycVuF8VSYglfYxqZe2oK8ZXNwyRRWWy3TUT9N4V1f779Tvqbgu+gVjERQ +KMPx0zZIzhRIm70aFjEUNhUGKuyT2QNRPLZKUqkUbu8XcFAbMAE776fjT2nX +SCcpDDSZgHK3RmVgGr2fLR5St/NMoLdy9ebX6XR9nYcbuw+YgOqBTxvOXKTw +X4Dl3EynMXyrPig/nENhmuNDJb83RmB80FW6rpjCspN778GAAZR9DDO3LqHw +oJFTaFqrAQjvz4yYod143jyev9wA3pm/GNIopXD4luRS00ADOKSnXNlYTqH/ +QiYDlhpAiByHTmsNhV9w4/4LajuhYiTd6eM9Cs/NPlnpWqQPIkcqU0MaKNz5 +7sZ34yR98B9obZFqpPMveFDVKEgftvf8Xe94n8K4y7wdqYb60NrmNDnQRKGi +6vP5w8N60Fe96czYYzpfrVnlr7bogVhwy1WuNxTucghrkejUgV0uMhl1tE9E +y0sUNuhAxN4TZ93bKXxwY5GmRaEOTGzc5PGmg54vcD3yL0gH2vrSFPPf0fOR +cvdqCVMHYnY539H5RKH9j3SerUe1YUGa+3XYNwpdty0u2MBEUBG0b1L5TmFO +VF3jCgaCx9zNmm+0f5+t1N7wA6CrwyPd7AedF1WBo82XAG7GtLNlRun5amaP +qXMA+EzmDzZOUig0tSJ9Rdt2KPr8953vbwrXZlm0fyneDr0vrFrX/qHzfe39 +7Mcz22FPEX9p4hSFv/pXkgc0t4OC3XEfh1kKB4u3DASWaIKT8XMn0TkKrzdU +OZVHacJFVTnLx7SFiZciwoc0gU+ka9vmvxQ6X7dQsV2jCcihIv+V9mIPUU3t +WQ0IHImXzFigUFWGlWveqQHlH4b4Tf5ReCz6iUJCjQYMtOj8/Ue7piOh9E+S +BvwPGVQknQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk0Vl8XB3AS8oiEiOoxPPdeKQ1EmbK3qUyVISFPiDJEGTJXfkQImTKV +TEkZMpPSQFFKk4pUFCVDSYgypve+95+7Puusde86e3/3OTKOnuaHF3HQDycH +x//fyl7B3BwcTLTlS19XNTsCVzinsrQ5mTisc+5yxswIiJ4/vjV8ERMHRZln +Q6ZHYKLWw4WHm4nKUdx5Bn9GoGrO7slSBhNLNfImO8ZHYHOU7jkJUSYy4nzH +2odGYH320hVb1jIxnj/toOPbEZB9lk04mzKRM8Jf6nr5CDxlnDqTcI2JkUJr +O9rNR2Bm2Vf1X9NMvKsiViQ89gNE+uO17hhI4ZIfJ9UqT/+AoUsT4YY5UqjX +O60aOz8MOqs+rxEak8LL8qPO3p7DsF6ref4ZSxo/XftiWNP0HUre3kp6uFsa +nVjPhAt5vsOx1xNtH/ylsa2aP3Re5xvENzAqzS5Lo8zyCN731kMwvsxZo79V +Gh2Yn34pug2CkUGfx/Vf0iiyrelQxJEB4PTZDh1rZDA9PbS5CvthdqHrtuQO +GZyofLe/S/wrmJ2yen/fWwbbOsxqcpq+QHbfZNalSzIYbhtrz+v8GTaUvl2a +0iyDLju1ci6u6AVJ19TVI6MyGPvN5PqY7kcwjMx467hSFmPcqwX4Yz/A29RA +RXU9WeyI3lTZl9MJNueCt+h7yuKHwLbzQm/bgTnU2OORLovxQh3dBVavQVv5 +q8KfB7L4aauxCTPtJVztMyYuDcvi4+7sTS4KT2HRiY4HfiIsbLTV98OtLXCb +S3NRpRYL55ure47bNEHd6MDwEhcWTpu1bSmXbwSh58f8HySzsO8I8Oqa1YN9 +8srC8rssHLvs43zDsBYWGUe/3HOPha+uGpeFqtbCFa7pP6O0c7ZfWb5PrhaG +fDv1NzeycHZZ0ypZ7lrwsUrrq3jAQjefK2+07tdAxGpRqaoWFhZ4hgRGadRA +4dVlaTWvWHivJl5XXbUaxut5Im71s1DLq7VI16wSrAdnFF0GWDjekOJ0QrsS +GkVGekQHWYj9T+buKVZCoscbDa8hFjZ9Cq10E66EjczcCWqYhbpbF2eYtFeA +R5iaU8oYCx/mMIJ191fA0E4PHc85FqZviJ249LEMettfcZDLCeyYFn2yzacE +OoSPybTQdksfT5+yKYFWU4aOmzC9rkRlP9EugepnOuGlIgT+J9y37sryEohs +rubeKkbgmE7mdqWqYlCoSWXsXEXgQGUXd/GfIgg6byPqRhK4IUWM41FcIQib +f5YrVSNw7V1GS/ZwAVwVlxQ3USdQtM+uhuddAWh8NOcZps3hl9FzqrkADrk2 +f12rSeBocNizC1kFUBdyLe+KFoH7F73iizItAHbJ0VWXdAkcqT/htOnWFbi6 +eFYwdheBz0+OOQSn5oN6nfAf14MELg3PFV8RmAcpYy/cVzgSqHAv/lexcx78 +lI/9fJ82eV1NxdQyDy5f4noueYhAfnL60WOlPOA/PZn/zJlA49j1414/c6Hb +5K3ZZg8ChbzqRVJcc+HUlwulU/4E/nynfbvuZTY0Csgcjowj8O2d+SR76Uy4 +Zh25S+4cgZblqlb+PJkQnz+s8pj26yKhwPwfF4GtdoOHkUBgxmLqHN66CDOH +jAvPJRHYWGhoFGFxEZTu+A2npBHIbpw0JeIuwJUjrd75uXS97LRHbQQyILrl +eEhjDYGliwvKTUxSQTmSPXKslkCtMsUVTSqp8FlPn73mBoGCg11790ilgvoD +MfXgOgIVs0Ili36lwMidW7+31BPomDL/2P5iCphX/fO41kDg8LdZ2daR87Aq +K9Y2vpX+/l3H/SuvJMNjW99WzacEPhTa0C2XmAy+kgfUhmn3c/QxjE8mw4v0 +jeIGzwlc9FxA4dneZAhNfvWas43A7J9BxXU8yfA1StzIr4PAVV21MuSxJCjz +yVdl9xK4UfzYgSGjRBjSUZH8Rzt/R01ZgHoiyIi0zOV9JnBiuZiz2LpESKn+ +fm/wC4GHSm+0h/ElwolJRf3j/QSaB97PZyYngIF/o1nMd7q+HfBqIjUevgR9 +PHJzks5vjNiCZ3UcrDbyNLH9TeB7ho2zalocWEpyblygHbtwPnF1UBw8rifG +dacIFOcteL4N4qB8zj3g5QyBSVO2DnXPYuHkqdnwgQUCP+lVtz76EQNiYeJZ +onwkMsTa30XjWRh7p7+rhraGcqmWlNxZeLLZ968Fg8TRxunc5wJn4WRv24Hz +/CR6c87x+XRFwxeIYQoLkig4sl69MyAayhbmc5aJkFh26mg+Z20U6J/8cpmx +hsQ7xi/e7cJIYLYLWRTTdjrCkXFXPhKm1wOXEZPEPNv7/ToikVDclel0VorE +9eeufTk3cAaENCyJJbIkvvbrY7Piz0D3TEsBtxyJ39jBezU/R4BvQGkhhyKJ +OWcY84Vp4SCia99TSpslZpn7JzQcqgSXi9kqkbjTO5jT1j0cxgp8w2u3kLi0 +rCzfBcPBo13D7shWErXVfyyNHz4NToqtIu0aJNZHCbXP658G8+GBkGs7SEw0 +MKxuY4TB+I2M2r07SRyTeK72fCoUEk8b/eA0IHGfr8DQx6+h8EKizIZtSGKg +ofdRjYZQ+j7yU15uQmLSQ765r76hoF3A9T3YjMTPbqq5D1r+g8320pa72SQ+ +XS0sN5VzCtiaJxZGaW9buydnMPQUREu8vZZ0gESP3w5yUwdPQe+b2Nl2OxIl +9HdP+hCnINFgKsf2IImkL9vpQ/FJGFN88d3VmcS+9KmxPXdPQPnik6HhXiTK +FLGVV0wHwYfPb+VJbxLPzXs2VnYHAU+D4ptHtOVddo273Q8Cu6BBknGcRGOD +2+8VYoNA8Kf500Q/un+8NpMzUkFwrFNeLDuYxFRBV4HM3YGwsbiz5GYEiT1p +3/4YNfiD9Fxtl8sZEju/mfbKFfjDcpMUfvFIEpX6ArJlYv1hcsTU3S+K3u/a +zbLuVv5Qr9i6TimGRIvkwwIW436gf+tOUUkCiSUiL+bY6/yA/TjvWvZFEhWe +TQ8lVxyH3RKhnbsySSwOevXq9YXjAEfseP/S7ty2kl8h/DjILl3lYptFIneC +JPe6fcdhaE8KtTKXxE1ro7aZ/fWB452RBUkFdJ7uiw+rmPpAzIB7fkQFibrz +f8hCXm9Y1TCQt7mS7pdaTL3mpBdcTz+Y2017wES0aqDXC14aWGUpV5O4plTS +O7jeC0RLdNK/1pL4XqmvOfuYF2R7SsTq3SbRJPv90YRaT6iefuSz+BGJpynz +lQIRR0HvlbZ3Be0KcYMuDcej8Lbojie7hcTM+8myiXgUpvdXedQ8pv/PrZ1b ++NcDtO5mOR96SvdHnndZapAHPA7z3d/cRmJrddSIWqA7dDNkdSK66Dw0hLRf +T3CD2Un9aqKbnkdZa0rD1w1W9rgRD2nb+lxZPmDtBpbVlTw8n+i8JC7VTZJ1 +gxe22k+jeklskuWeV6tzhfvXHfbG9pMYsF3W506/C1zdneOcPEpiTWPo75Z9 +ztCs2tSpNEZid42FVY2WM/TJDhq8oR09t//PLcoZpKc2rhf9ReJQSG+k0NRh +uJBzbzR1ksSviT1KQxmHIW7sY+CFGRIddEv4FT4fAu/k1bG5XBR2tR4TPRDu +BHvHmk7vXkxh98JKyxMeTqC62z14nra644Pb1ZZOwMGod7PmoXBFb0C0z1on +SAyzMhDio3CxYQYX+dIRyrySuUMFKdwfNcahL+MI33cvCbWXoJDvxcxgVacD +vLheHiAgSaEwDIT1NjlAFcPK8zZtW96/X4gKBwh6VGAnvppCMatfqePRDrBE +S3f7SyaFwfZlXBkaDkBtCJnVIihsV9oxzmNkD078k77MTRRGW6TG2S47AO3B +ej2NtH+e3fTBdJQNet9TDJ02Uyhvn3nD9SUbqCcqzEJFCl3mBOP+JbDhe2RA +i6IyhQ0amx48FGaD16I5CX01CvPFJVJSmbYQMsPZ4K5LYdZZ51SL3TYw6mou +L6hHYW/xaKaVkg04vLt8voK21u/iiSAxG9Cu03X9rU9hidRlcYkea1jsd2b5 +fwYU7jDouXfX2xpix5YcSt5FYcUTPdszl6wgY3AZ3y0rCker7JLVefdB0ad5 +bWtrCj8E6LMMRi2hvuNb8BRtTsNkLc9OS+hqavqhsp9CDpe6Yr5CS2DmBrRV +sSlMyNhzwsPIEvKte9KvH6Swec2C45vze6HsSRmV607XWyAjy1/VAu41ZtqD +B4VqE+obI1gW8LIuOuMTbcsdHAqFghb0+ezIWHOMwrrenOVb+s1hy2mxnxe8 +KNw3z/XX7Lw53FQPqT3vR6GglKBd7oQZNJXs0ov6j8JJvkMbvzaZwkWxe1zK +oRRycVuF8VSYglfYxqZe2oK8ZXNwyRRWWy3TUT9N4V1f779Tvqbgu+gVjERQ +KMPx0zZIzhRIm70aFjEUNhUGKuyT2QNRPLZKUqkUbu8XcFAbMAE776fjT2nX +SCcpDDSZgHK3RmVgGr2fLR5St/NMoLdy9ebX6XR9nYcbuw+YgOqBTxvOXKTw +X4Dl3EynMXyrPig/nENhmuNDJb83RmB80FW6rpjCspN778GAAZR9DDO3LqHw +oJFTaFqrAQjvz4yYod143jyev9wA3pm/GNIopXD4luRS00ADOKSnXNlYTqH/ +QiYDlhpAiByHTmsNhV9w4/4LajuhYiTd6eM9Cs/NPlnpWqQPIkcqU0MaKNz5 +7sZ34yR98B9obZFqpPMveFDVKEgftvf8Xe94n8K4y7wdqYb60NrmNDnQRKGi +6vP5w8N60Fe96czYYzpfrVnlr7bogVhwy1WuNxTucghrkejUgV0uMhl1tE9E +y0sUNuhAxN4TZ93bKXxwY5GmRaEOTGzc5PGmg54vcD3yL0gH2vrSFPPf0fOR +cvdqCVMHYnY539H5RKH9j3SerUe1YUGa+3XYNwpdty0u2MBEUBG0b1L5TmFO +VF3jCgaCx9zNmm+0f5+t1N7wA6CrwyPd7AedF1WBo82XAG7GtLNlRun5amaP +qXMA+EzmDzZOUig0tSJ9Rdt2KPr8953vbwrXZlm0fyneDr0vrFrX/qHzfe39 +7Mcz22FPEX9p4hSFv/pXkgc0t4OC3XEfh1kKB4u3DASWaIKT8XMn0TkKrzdU +OZVHacJFVTnLx7SFiZciwoc0gU+ka9vmvxQ6X7dQsV2jCcihIv+V9mIPUU3t +WQ0IHImXzFigUFWGlWveqQHlH4b4Tf5ReCz6iUJCjQYMtOj8/Ue7piOh9E+S +BvwPGVQknQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 11.5}, {0., 0.9368525344691919}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{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.5}, {0., 0.9368525344691919}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk0Vl8XB3AS8oiEiOoxPPdeKQ1EmbK3qUyVISFPiDJEGTJXfkQImTKV +TEkZMpPSQFFKk4pUFCVDSYgypve+95+7Puusde86e3/3OTKOnuaHF3HQDycH +x//fyl7B3BwcTLTlS19XNTsCVzinsrQ5mTisc+5yxswIiJ4/vjV8ERMHRZln +Q6ZHYKLWw4WHm4nKUdx5Bn9GoGrO7slSBhNLNfImO8ZHYHOU7jkJUSYy4nzH +2odGYH320hVb1jIxnj/toOPbEZB9lk04mzKRM8Jf6nr5CDxlnDqTcI2JkUJr +O9rNR2Bm2Vf1X9NMvKsiViQ89gNE+uO17hhI4ZIfJ9UqT/+AoUsT4YY5UqjX +O60aOz8MOqs+rxEak8LL8qPO3p7DsF6ref4ZSxo/XftiWNP0HUre3kp6uFsa +nVjPhAt5vsOx1xNtH/ylsa2aP3Re5xvENzAqzS5Lo8zyCN731kMwvsxZo79V +Gh2Yn34pug2CkUGfx/Vf0iiyrelQxJEB4PTZDh1rZDA9PbS5CvthdqHrtuQO +GZyofLe/S/wrmJ2yen/fWwbbOsxqcpq+QHbfZNalSzIYbhtrz+v8GTaUvl2a +0iyDLju1ci6u6AVJ19TVI6MyGPvN5PqY7kcwjMx467hSFmPcqwX4Yz/A29RA +RXU9WeyI3lTZl9MJNueCt+h7yuKHwLbzQm/bgTnU2OORLovxQh3dBVavQVv5 +q8KfB7L4aauxCTPtJVztMyYuDcvi4+7sTS4KT2HRiY4HfiIsbLTV98OtLXCb +S3NRpRYL55ure47bNEHd6MDwEhcWTpu1bSmXbwSh58f8HySzsO8I8Oqa1YN9 +8srC8rssHLvs43zDsBYWGUe/3HOPha+uGpeFqtbCFa7pP6O0c7ZfWb5PrhaG +fDv1NzeycHZZ0ypZ7lrwsUrrq3jAQjefK2+07tdAxGpRqaoWFhZ4hgRGadRA +4dVlaTWvWHivJl5XXbUaxut5Im71s1DLq7VI16wSrAdnFF0GWDjekOJ0QrsS +GkVGekQHWYj9T+buKVZCoscbDa8hFjZ9Cq10E66EjczcCWqYhbpbF2eYtFeA +R5iaU8oYCx/mMIJ191fA0E4PHc85FqZviJ249LEMettfcZDLCeyYFn2yzacE +OoSPybTQdksfT5+yKYFWU4aOmzC9rkRlP9EugepnOuGlIgT+J9y37sryEohs +rubeKkbgmE7mdqWqYlCoSWXsXEXgQGUXd/GfIgg6byPqRhK4IUWM41FcIQib +f5YrVSNw7V1GS/ZwAVwVlxQ3USdQtM+uhuddAWh8NOcZps3hl9FzqrkADrk2 +f12rSeBocNizC1kFUBdyLe+KFoH7F73iizItAHbJ0VWXdAkcqT/htOnWFbi6 +eFYwdheBz0+OOQSn5oN6nfAf14MELg3PFV8RmAcpYy/cVzgSqHAv/lexcx78 +lI/9fJ82eV1NxdQyDy5f4noueYhAfnL60WOlPOA/PZn/zJlA49j1414/c6Hb +5K3ZZg8ChbzqRVJcc+HUlwulU/4E/nynfbvuZTY0Csgcjowj8O2d+SR76Uy4 +Zh25S+4cgZblqlb+PJkQnz+s8pj26yKhwPwfF4GtdoOHkUBgxmLqHN66CDOH +jAvPJRHYWGhoFGFxEZTu+A2npBHIbpw0JeIuwJUjrd75uXS97LRHbQQyILrl +eEhjDYGliwvKTUxSQTmSPXKslkCtMsUVTSqp8FlPn73mBoGCg11790ilgvoD +MfXgOgIVs0Ili36lwMidW7+31BPomDL/2P5iCphX/fO41kDg8LdZ2daR87Aq +K9Y2vpX+/l3H/SuvJMNjW99WzacEPhTa0C2XmAy+kgfUhmn3c/QxjE8mw4v0 +jeIGzwlc9FxA4dneZAhNfvWas43A7J9BxXU8yfA1StzIr4PAVV21MuSxJCjz +yVdl9xK4UfzYgSGjRBjSUZH8Rzt/R01ZgHoiyIi0zOV9JnBiuZiz2LpESKn+ +fm/wC4GHSm+0h/ElwolJRf3j/QSaB97PZyYngIF/o1nMd7q+HfBqIjUevgR9 +PHJzks5vjNiCZ3UcrDbyNLH9TeB7ho2zalocWEpyblygHbtwPnF1UBw8rifG +dacIFOcteL4N4qB8zj3g5QyBSVO2DnXPYuHkqdnwgQUCP+lVtz76EQNiYeJZ +onwkMsTa30XjWRh7p7+rhraGcqmWlNxZeLLZ968Fg8TRxunc5wJn4WRv24Hz +/CR6c87x+XRFwxeIYQoLkig4sl69MyAayhbmc5aJkFh26mg+Z20U6J/8cpmx +hsQ7xi/e7cJIYLYLWRTTdjrCkXFXPhKm1wOXEZPEPNv7/ToikVDclel0VorE +9eeufTk3cAaENCyJJbIkvvbrY7Piz0D3TEsBtxyJ39jBezU/R4BvQGkhhyKJ +OWcY84Vp4SCia99TSpslZpn7JzQcqgSXi9kqkbjTO5jT1j0cxgp8w2u3kLi0 +rCzfBcPBo13D7shWErXVfyyNHz4NToqtIu0aJNZHCbXP658G8+GBkGs7SEw0 +MKxuY4TB+I2M2r07SRyTeK72fCoUEk8b/eA0IHGfr8DQx6+h8EKizIZtSGKg +ofdRjYZQ+j7yU15uQmLSQ765r76hoF3A9T3YjMTPbqq5D1r+g8320pa72SQ+ +XS0sN5VzCtiaJxZGaW9buydnMPQUREu8vZZ0gESP3w5yUwdPQe+b2Nl2OxIl +9HdP+hCnINFgKsf2IImkL9vpQ/FJGFN88d3VmcS+9KmxPXdPQPnik6HhXiTK +FLGVV0wHwYfPb+VJbxLPzXs2VnYHAU+D4ptHtOVddo273Q8Cu6BBknGcRGOD +2+8VYoNA8Kf500Q/un+8NpMzUkFwrFNeLDuYxFRBV4HM3YGwsbiz5GYEiT1p +3/4YNfiD9Fxtl8sZEju/mfbKFfjDcpMUfvFIEpX6ArJlYv1hcsTU3S+K3u/a +zbLuVv5Qr9i6TimGRIvkwwIW436gf+tOUUkCiSUiL+bY6/yA/TjvWvZFEhWe +TQ8lVxyH3RKhnbsySSwOevXq9YXjAEfseP/S7ty2kl8h/DjILl3lYptFIneC +JPe6fcdhaE8KtTKXxE1ro7aZ/fWB452RBUkFdJ7uiw+rmPpAzIB7fkQFibrz +f8hCXm9Y1TCQt7mS7pdaTL3mpBdcTz+Y2017wES0aqDXC14aWGUpV5O4plTS +O7jeC0RLdNK/1pL4XqmvOfuYF2R7SsTq3SbRJPv90YRaT6iefuSz+BGJpynz +lQIRR0HvlbZ3Be0KcYMuDcej8Lbojie7hcTM+8myiXgUpvdXedQ8pv/PrZ1b ++NcDtO5mOR96SvdHnndZapAHPA7z3d/cRmJrddSIWqA7dDNkdSK66Dw0hLRf +T3CD2Un9aqKbnkdZa0rD1w1W9rgRD2nb+lxZPmDtBpbVlTw8n+i8JC7VTZJ1 +gxe22k+jeklskuWeV6tzhfvXHfbG9pMYsF3W506/C1zdneOcPEpiTWPo75Z9 +ztCs2tSpNEZid42FVY2WM/TJDhq8oR09t//PLcoZpKc2rhf9ReJQSG+k0NRh +uJBzbzR1ksSviT1KQxmHIW7sY+CFGRIddEv4FT4fAu/k1bG5XBR2tR4TPRDu +BHvHmk7vXkxh98JKyxMeTqC62z14nra644Pb1ZZOwMGod7PmoXBFb0C0z1on +SAyzMhDio3CxYQYX+dIRyrySuUMFKdwfNcahL+MI33cvCbWXoJDvxcxgVacD +vLheHiAgSaEwDIT1NjlAFcPK8zZtW96/X4gKBwh6VGAnvppCMatfqePRDrBE +S3f7SyaFwfZlXBkaDkBtCJnVIihsV9oxzmNkD078k77MTRRGW6TG2S47AO3B +ej2NtH+e3fTBdJQNet9TDJ02Uyhvn3nD9SUbqCcqzEJFCl3mBOP+JbDhe2RA +i6IyhQ0amx48FGaD16I5CX01CvPFJVJSmbYQMsPZ4K5LYdZZ51SL3TYw6mou +L6hHYW/xaKaVkg04vLt8voK21u/iiSAxG9Cu03X9rU9hidRlcYkea1jsd2b5 +fwYU7jDouXfX2xpix5YcSt5FYcUTPdszl6wgY3AZ3y0rCker7JLVefdB0ad5 +bWtrCj8E6LMMRi2hvuNb8BRtTsNkLc9OS+hqavqhsp9CDpe6Yr5CS2DmBrRV +sSlMyNhzwsPIEvKte9KvH6Swec2C45vze6HsSRmV607XWyAjy1/VAu41ZtqD +B4VqE+obI1gW8LIuOuMTbcsdHAqFghb0+ezIWHOMwrrenOVb+s1hy2mxnxe8 +KNw3z/XX7Lw53FQPqT3vR6GglKBd7oQZNJXs0ov6j8JJvkMbvzaZwkWxe1zK +oRRycVuF8VSYglfYxqZe2oK8ZXNwyRRWWy3TUT9N4V1f779Tvqbgu+gVjERQ +KMPx0zZIzhRIm70aFjEUNhUGKuyT2QNRPLZKUqkUbu8XcFAbMAE776fjT2nX +SCcpDDSZgHK3RmVgGr2fLR5St/NMoLdy9ebX6XR9nYcbuw+YgOqBTxvOXKTw +X4Dl3EynMXyrPig/nENhmuNDJb83RmB80FW6rpjCspN778GAAZR9DDO3LqHw +oJFTaFqrAQjvz4yYod143jyev9wA3pm/GNIopXD4luRS00ADOKSnXNlYTqH/ +QiYDlhpAiByHTmsNhV9w4/4LajuhYiTd6eM9Cs/NPlnpWqQPIkcqU0MaKNz5 +7sZ34yR98B9obZFqpPMveFDVKEgftvf8Xe94n8K4y7wdqYb60NrmNDnQRKGi +6vP5w8N60Fe96czYYzpfrVnlr7bogVhwy1WuNxTucghrkejUgV0uMhl1tE9E +y0sUNuhAxN4TZ93bKXxwY5GmRaEOTGzc5PGmg54vcD3yL0gH2vrSFPPf0fOR +cvdqCVMHYnY539H5RKH9j3SerUe1YUGa+3XYNwpdty0u2MBEUBG0b1L5TmFO +VF3jCgaCx9zNmm+0f5+t1N7wA6CrwyPd7AedF1WBo82XAG7GtLNlRun5amaP +qXMA+EzmDzZOUig0tSJ9Rdt2KPr8953vbwrXZlm0fyneDr0vrFrX/qHzfe39 +7Mcz22FPEX9p4hSFv/pXkgc0t4OC3XEfh1kKB4u3DASWaIKT8XMn0TkKrzdU +OZVHacJFVTnLx7SFiZciwoc0gU+ka9vmvxQ6X7dQsV2jCcihIv+V9mIPUU3t +WQ0IHImXzFigUFWGlWveqQHlH4b4Tf5ReCz6iUJCjQYMtOj8/Ue7piOh9E+S +BvwPGVQknQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 11.5}, {0., 0.9368525344691919}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (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:eJwVk3s01AkUx2cM1nisHtNjW6Z5+VVHxJE2le7Nqqi0kVKtE5nNI9Nr2Bpj +9JzYFAqVyqPYMzRCUpkJu/LYylDUeLctjWEUizCVITv7xz33fM/3nM/5nvs9 +lxl02Ge/AYlE8tLP/3v5EaERiURHLaXQ5NMbMrLqMznB2+goShlMcFGQUGEa +cy4pl46sHeH3x92n4Ytlz6qPn+mYXlbRkseYgtnqxLXlHgtxOsrKNXymDjTp +o2c9sxbiPUmhNFv9Gdy+77aeMbwQ/c27c0tGtGC7tmayns1Ad+ua9psfxiC/ +RX65disDU5JOZx2kjsKhV6ONHccYCIwinzeBI5D4p2mxdzYD5b6MFsugIRix +DF6trmNgXYjw6Hb+AGzyUPHufmSgOCHQSVzTD2S+KzRbM5Gl7O1Q0/pg4mtn +2YINTJz4+MVo4q8e8I7xa39ylImqFZ5TTTHvIFM1lpGezkTN+pHFiogusCto +MU+tYeLkY+NIEf9vWBB6xWpwiImSyJ2yDRYd4Bmb1hI0n4Wp5RJKqmMrtFwR +OK5yZ2HwyqagOWFK2J0gdFp/mIWUao0h/3MT0DWV//CusXAW66bE5O1LWLe8 +Z6m2ioVLLqjsfAcVIFFt5qR/YKG0rCSmJvcZGEQ3V/06m423BbQTaxS1UEZZ +Y1C8lo3GVrXjdqbVUDrU+8EkhI1ql+0BJjWVMKPh0LGqZDZmxWYH2NpXQEDy +/LyiCjb+0X5D5X1IDiOPjcVyNRu/DGkNQ3Y/gi5lE8lmJgcbublsXWgJzPLp +XlTgwkFxft/Nu6RiWFU6Sxu6j4O6+y4+RFsBVFow98de5OAtnax957s78NvT +iBOVDzhoJ+yZFyiRQCE/Z6V/FwfPmK3O0F7Jgbmn52XQqDZYoalXzZl3GyKP +F+SRHG1w0jqS0qDKAIcAxo6t/jb4kOvRu0Z5HeylrfkysQ06Hi5ysI27CvG9 +4Tnie3p/mXtH0oEUeGPKchN32uDFpPpeWe0lOJpsdeEWhcCwPRt3STABuGZj +kfRlBJ6g8S9bO5+HtD5LqtyPwOQLgk32/56D6nwv97iTBO5rrMrexjgLm/eF +Mkqlet16aVgSfQrmCp9KKK8JVBtS8UWRCHqfuk1NTxNIvD4g9UgUgG2m+Ryn +xXRM7jaSb/Ql41eG0avT/QRey6vtKI8XgkPcjwnf0fT/0zd3SXEaGeO9gsvd +3hL4Vm4RRkqLBv5YTl/lmD5vR1xJVlwU3NftfW5uSscb7eQt7Y/J2Ki66pjT +RuDu6pN5SSwRyOKV/swhAiWrTVKHvhHC0r0R/MAJAvdo8rc8oUbB6ENeiLER +HbPdjif1K8g4ar+M97qZwOaA6y5toSLobOZd8x4gsMkv57mRpxB+umNWcOkT +gZU/n7LgekQBdXbnDw5TBEa/ZE/KFAKgpUSsOGtAx7bC0LwjSjKKfaPPhysJ +rLOZjHC9KAKeTvag/z2B/gf49IYwIXS98KtbrCXw4ARvYDAkCm6sXLTjmY5A +59h4C+l7AQgGExekfSVQuov7fvCuAH4nf8pYR6ajeavBcEkbGb1CmGml+nsX +Fop/IWWKwPnbgGpnPV/pmjkAQiHc6Z5qixwn8PY5yvCT41HA3dzApen520Wn +ehwmBIAk5yU9+vyG43aPtpYLoKhDY7ZF35dTNzXlaoYA/gOctT4x + "], {{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], 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:eJwVk3s01AkUx2cM1nisHtNjW6Z5+VVHxJE2le7Nqqi0kVKtE5nNI9Nr2Bpj +9JzYFAqVyqPYMzRCUpkJu/LYylDUeLctjWEUizCVITv7xz33fM/3nM/5nvs9 +lxl02Ge/AYlE8tLP/3v5EaERiURHLaXQ5NMbMrLqMznB2+goShlMcFGQUGEa +cy4pl46sHeH3x92n4Ytlz6qPn+mYXlbRkseYgtnqxLXlHgtxOsrKNXymDjTp +o2c9sxbiPUmhNFv9Gdy+77aeMbwQ/c27c0tGtGC7tmayns1Ad+ua9psfxiC/ +RX65disDU5JOZx2kjsKhV6ONHccYCIwinzeBI5D4p2mxdzYD5b6MFsugIRix +DF6trmNgXYjw6Hb+AGzyUPHufmSgOCHQSVzTD2S+KzRbM5Gl7O1Q0/pg4mtn +2YINTJz4+MVo4q8e8I7xa39ylImqFZ5TTTHvIFM1lpGezkTN+pHFiogusCto +MU+tYeLkY+NIEf9vWBB6xWpwiImSyJ2yDRYd4Bmb1hI0n4Wp5RJKqmMrtFwR +OK5yZ2HwyqagOWFK2J0gdFp/mIWUao0h/3MT0DWV//CusXAW66bE5O1LWLe8 +Z6m2ioVLLqjsfAcVIFFt5qR/YKG0rCSmJvcZGEQ3V/06m423BbQTaxS1UEZZ +Y1C8lo3GVrXjdqbVUDrU+8EkhI1ql+0BJjWVMKPh0LGqZDZmxWYH2NpXQEDy +/LyiCjb+0X5D5X1IDiOPjcVyNRu/DGkNQ3Y/gi5lE8lmJgcbublsXWgJzPLp +XlTgwkFxft/Nu6RiWFU6Sxu6j4O6+y4+RFsBVFow98de5OAtnax957s78NvT +iBOVDzhoJ+yZFyiRQCE/Z6V/FwfPmK3O0F7Jgbmn52XQqDZYoalXzZl3GyKP +F+SRHG1w0jqS0qDKAIcAxo6t/jb4kOvRu0Z5HeylrfkysQ06Hi5ysI27CvG9 +4Tnie3p/mXtH0oEUeGPKchN32uDFpPpeWe0lOJpsdeEWhcCwPRt3STABuGZj +kfRlBJ6g8S9bO5+HtD5LqtyPwOQLgk32/56D6nwv97iTBO5rrMrexjgLm/eF +Mkqlet16aVgSfQrmCp9KKK8JVBtS8UWRCHqfuk1NTxNIvD4g9UgUgG2m+Ryn +xXRM7jaSb/Ql41eG0avT/QRey6vtKI8XgkPcjwnf0fT/0zd3SXEaGeO9gsvd +3hL4Vm4RRkqLBv5YTl/lmD5vR1xJVlwU3NftfW5uSscb7eQt7Y/J2Ki66pjT +RuDu6pN5SSwRyOKV/swhAiWrTVKHvhHC0r0R/MAJAvdo8rc8oUbB6ENeiLER +HbPdjif1K8g4ar+M97qZwOaA6y5toSLobOZd8x4gsMkv57mRpxB+umNWcOkT +gZU/n7LgekQBdXbnDw5TBEa/ZE/KFAKgpUSsOGtAx7bC0LwjSjKKfaPPhysJ +rLOZjHC9KAKeTvag/z2B/gf49IYwIXS98KtbrCXw4ARvYDAkCm6sXLTjmY5A +59h4C+l7AQgGExekfSVQuov7fvCuAH4nf8pYR6ajeavBcEkbGb1CmGml+nsX +Fop/IWWKwPnbgGpnPV/pmjkAQiHc6Z5qixwn8PY5yvCT41HA3dzApen520Wn +ehwmBIAk5yU9+vyG43aPtpYLoKhDY7ZF35dTNzXlaoYA/gOctT4x + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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.5, 11.5}, {0., 2.2328930547814663`}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVz30w1AkYB/Bdi7NeTi/by3Vs++ZXjYiRLpWeJ6ei0kVKdSayl5dsb8vV +WqvXjUuhUKm8FDdLKySV3XAnL1dZilrvXUdrWcUhbGXJ7f3xzHc+8535zjzM +oMM++w1IJJKX/v7P5UeERiQSHbWUQpNPb8j4O/lTxjoyHc1bDYZL2shIS4lY +cdaAjm2FoXlHlGQcfcgLMTaiY7bb8aR+BRnv6/Y+Nzel44128pb2x2R0iPsx +4Tuafq9v7pLiNDLaZprPcVpMx+RuI/lGXzKy6jM5wdvoKEoZTHBRkFBhGnMu +KZeOrB3h98fdp+GLZc+qj5/pmF5W0ZLHmILZ6sS15R4LcTrKyjV8pg406aNn +PbMW4j1JoTRb/Rncvu+2njG8EP3Nu3NLRrRgu7Zmsp7NQHfrmvabH8Ygv0V+ +uXYrA1OSTmcdpI7CoVejjR3HGAiMIp83gSOQ+KdpsXc2A+W+jBbLoCEYsQxe +ra5jYF2I8Oh2/gBs8lDx7n5koDgh0Elc0w9kvis0WzORpeztUNP6YOJrZ9mC +DUyc+PjFaOKvHvCO8Wt/cpSJqhWeU00x7yBTNZaRns5EzfqRxYqILrAraDFP +rWHi5GPjSBH/b1gQesVqcIiJksidsg0WHeAZm9YSNJ+FqeUSSqpjK7RcETiu +cmdh8MqmoDlhStidIHRaf5iFlGqNIf9zE9A1lf/wrrFwFuumxOTtS1i3vGep +toqFSy6o7HwHFSBRbeakf2ChtKwkpib3GRhEN1f9OpuNtwW0E2sUtVBGWWNQ +vJaNxla143am1VA61PvBJISNapftASY1lTCj4dCxqmQ2ZsVmB9jaV0BA8vy8 +ogo2/tF+Q+V9SA4jj43FcjUbvwxpDUN2P4IuZRPJZiYHG7m5bF1oCczy6V5U +4MJBcX7fzbukYlhVOksbuo+DuvsuPkRbAVRaMPfHXuTgLZ2sfee7O/Db04gT +lQ84aCfsmRcokUAhP2elfxcHz5itztBeyYG5p+dl0Kg2WKGpV82Zdxsijxfk +kRxtcNI6ktKgygCHAMaOrf42+JDr0btGeR3spa35MrENOh4ucrCNuwrxveE5 +4nv6fpl7R9KBFHhjynITd9rgxaT6XlntJTiabHXhFoXAsD0bd0kwAbhmY5H0 +ZQSeoPEvWzufh7Q+S6rcj8DkC4JN9v+eg+p8L/e4kwTua6zK3sY4C5v3hTJK +pXq3XhqWRJ+CucKnEsprAtWGVHxRJAKvEGZaqd6FheJfSJkiEPtGnw9XElhn +MxnhelEEo/bLeK+bCWwOuO7SFiqCRtVVx5w2AndXn8xLYokg3iu43O0tgW/l +FmGktGj4yjB6dbqfwGt5tR3l8UJw/jag2vk9gUrXzAEQCoGnkz3o19v/AJ/e +ECaEzmbeNe8BApv8cp4beQpBFq/0Zw4RKFltkjr0jRD4Yzl9lWP6/zviSrLi +ouBO91Rb5DiBt89Rhp8cj4KuF351i7UEHpzgDQyGRMFPd8wKLn0isPLnUxZc +jyhYujeCHzhB4B5N/pYn1Cjgbm7g0nQEbhed6nGYEMCNlYt2PNPbOTbeQvpe +ANTZnT84TBEY/ZI9KVMIAEnOS3r0Nhy3e7S1XACCwcQFaV8JlO7ivh+8K4Ci +Do3ZlmkCnbqpKVczBND71G1qWm/i9QGpR6IA/gO8sz4x + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 11.5}, {0., 2.2328930547814663`}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVz30w1AkYB/Bdi7NeTi/by3Vs++ZXjYiRLpWeJ6ei0kVKdSayl5dsb8vV +WqvXjUuhUKm8FDdLKySV3XAnL1dZilrvXUdrWcUhbGXJ7f3xzHc+8535zjzM +oMM++w1IJJKX/v7P5UeERiQSHbWUQpNPb8j4O/lTxjoyHc1bDYZL2shIS4lY +cdaAjm2FoXlHlGQcfcgLMTaiY7bb8aR+BRnv6/Y+Nzel44128pb2x2R0iPsx +4Tuafq9v7pLiNDLaZprPcVpMx+RuI/lGXzKy6jM5wdvoKEoZTHBRkFBhGnMu +KZeOrB3h98fdp+GLZc+qj5/pmF5W0ZLHmILZ6sS15R4LcTrKyjV8pg406aNn +PbMW4j1JoTRb/Rncvu+2njG8EP3Nu3NLRrRgu7Zmsp7NQHfrmvabH8Ygv0V+ +uXYrA1OSTmcdpI7CoVejjR3HGAiMIp83gSOQ+KdpsXc2A+W+jBbLoCEYsQxe +ra5jYF2I8Oh2/gBs8lDx7n5koDgh0Elc0w9kvis0WzORpeztUNP6YOJrZ9mC +DUyc+PjFaOKvHvCO8Wt/cpSJqhWeU00x7yBTNZaRns5EzfqRxYqILrAraDFP +rWHi5GPjSBH/b1gQesVqcIiJksidsg0WHeAZm9YSNJ+FqeUSSqpjK7RcETiu +cmdh8MqmoDlhStidIHRaf5iFlGqNIf9zE9A1lf/wrrFwFuumxOTtS1i3vGep +toqFSy6o7HwHFSBRbeakf2ChtKwkpib3GRhEN1f9OpuNtwW0E2sUtVBGWWNQ +vJaNxla143am1VA61PvBJISNapftASY1lTCj4dCxqmQ2ZsVmB9jaV0BA8vy8 +ogo2/tF+Q+V9SA4jj43FcjUbvwxpDUN2P4IuZRPJZiYHG7m5bF1oCczy6V5U +4MJBcX7fzbukYlhVOksbuo+DuvsuPkRbAVRaMPfHXuTgLZ2sfee7O/Db04gT +lQ84aCfsmRcokUAhP2elfxcHz5itztBeyYG5p+dl0Kg2WKGpV82Zdxsijxfk +kRxtcNI6ktKgygCHAMaOrf42+JDr0btGeR3spa35MrENOh4ucrCNuwrxveE5 +4nv6fpl7R9KBFHhjynITd9rgxaT6XlntJTiabHXhFoXAsD0bd0kwAbhmY5H0 +ZQSeoPEvWzufh7Q+S6rcj8DkC4JN9v+eg+p8L/e4kwTua6zK3sY4C5v3hTJK +pXq3XhqWRJ+CucKnEsprAtWGVHxRJAKvEGZaqd6FheJfSJkiEPtGnw9XElhn +MxnhelEEo/bLeK+bCWwOuO7SFiqCRtVVx5w2AndXn8xLYokg3iu43O0tgW/l +FmGktGj4yjB6dbqfwGt5tR3l8UJw/jag2vk9gUrXzAEQCoGnkz3o19v/AJ/e +ECaEzmbeNe8BApv8cp4beQpBFq/0Zw4RKFltkjr0jRD4Yzl9lWP6/zviSrLi +ouBO91Rb5DiBt89Rhp8cj4KuF351i7UEHpzgDQyGRMFPd8wKLn0isPLnUxZc +jyhYujeCHzhB4B5N/pYn1Cjgbm7g0nQEbhed6nGYEMCNlYt2PNPbOTbeQvpe +ANTZnT84TBEY/ZI9KVMIAEnOS3r0Nhy3e7S1XACCwcQFaV8JlO7ivh+8K4Ci +Do3ZlmkCnbqpKVczBND71G1qWm/i9QGpR6IA/gO8sz4x + "]]}, "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:eJwVk3s01AkUx2cM1nisHtNjW6Z5+VVHxJE2le7Nqqi0kVKtE5nNI9Nr2Bpj +9JzYFAqVyqPYMzRCUpkJu/LYylDUeLctjWEUizCVITv7xz33fM/3nM/5nvs9 +lxl02Ge/AYlE8tLP/3v5EaERiURHLaXQ5NMbMrLqMznB2+goShlMcFGQUGEa +cy4pl46sHeH3x92n4Ytlz6qPn+mYXlbRkseYgtnqxLXlHgtxOsrKNXymDjTp +o2c9sxbiPUmhNFv9Gdy+77aeMbwQ/c27c0tGtGC7tmayns1Ad+ua9psfxiC/ +RX65disDU5JOZx2kjsKhV6ONHccYCIwinzeBI5D4p2mxdzYD5b6MFsugIRix +DF6trmNgXYjw6Hb+AGzyUPHufmSgOCHQSVzTD2S+KzRbM5Gl7O1Q0/pg4mtn +2YINTJz4+MVo4q8e8I7xa39ylImqFZ5TTTHvIFM1lpGezkTN+pHFiogusCto +MU+tYeLkY+NIEf9vWBB6xWpwiImSyJ2yDRYd4Bmb1hI0n4Wp5RJKqmMrtFwR +OK5yZ2HwyqagOWFK2J0gdFp/mIWUao0h/3MT0DWV//CusXAW66bE5O1LWLe8 +Z6m2ioVLLqjsfAcVIFFt5qR/YKG0rCSmJvcZGEQ3V/06m423BbQTaxS1UEZZ +Y1C8lo3GVrXjdqbVUDrU+8EkhI1ql+0BJjWVMKPh0LGqZDZmxWYH2NpXQEDy +/LyiCjb+0X5D5X1IDiOPjcVyNRu/DGkNQ3Y/gi5lE8lmJgcbublsXWgJzPLp +XlTgwkFxft/Nu6RiWFU6Sxu6j4O6+y4+RFsBVFow98de5OAtnax957s78NvT +iBOVDzhoJ+yZFyiRQCE/Z6V/FwfPmK3O0F7Jgbmn52XQqDZYoalXzZl3GyKP +F+SRHG1w0jqS0qDKAIcAxo6t/jb4kOvRu0Z5HeylrfkysQ06Hi5ysI27CvG9 +4Tnie3p/mXtH0oEUeGPKchN32uDFpPpeWe0lOJpsdeEWhcCwPRt3STABuGZj +kfRlBJ6g8S9bO5+HtD5LqtyPwOQLgk32/56D6nwv97iTBO5rrMrexjgLm/eF +Mkqlet16aVgSfQrmCp9KKK8JVBtS8UWRCHqfuk1NTxNIvD4g9UgUgG2m+Ryn +xXRM7jaSb/Ql41eG0avT/QRey6vtKI8XgkPcjwnf0fT/0zd3SXEaGeO9gsvd +3hL4Vm4RRkqLBv5YTl/lmD5vR1xJVlwU3NftfW5uSscb7eQt7Y/J2Ki66pjT +RuDu6pN5SSwRyOKV/swhAiWrTVKHvhHC0r0R/MAJAvdo8rc8oUbB6ENeiLER +HbPdjif1K8g4ar+M97qZwOaA6y5toSLobOZd8x4gsMkv57mRpxB+umNWcOkT +gZU/n7LgekQBdXbnDw5TBEa/ZE/KFAKgpUSsOGtAx7bC0LwjSjKKfaPPhysJ +rLOZjHC9KAKeTvag/z2B/gf49IYwIXS98KtbrCXw4ARvYDAkCm6sXLTjmY5A +59h4C+l7AQgGExekfSVQuov7fvCuAH4nf8pYR6ajeavBcEkbGb1CmGml+nsX +Fop/IWWKwPnbgGpnPV/pmjkAQiHc6Z5qixwn8PY5yvCT41HA3dzApen520Wn +ehwmBIAk5yU9+vyG43aPtpYLoKhDY7ZF35dTNzXlaoYA/gOctT4x + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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.5, 11.5}, {0., 2.2328930547814663`}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVz30w1AkYB/Bdi7NeTi/by3Vs++ZXjYiRLpWeJ6ei0kVKdSayl5dsb8vV +WqvXjUuhUKm8FDdLKySV3XAnL1dZilrvXUdrWcUhbGXJ7f3xzHc+8535zjzM +oMM++w1IJJKX/v7P5UeERiQSHbWUQpNPb8j4O/lTxjoyHc1bDYZL2shIS4lY +cdaAjm2FoXlHlGQcfcgLMTaiY7bb8aR+BRnv6/Y+Nzel44128pb2x2R0iPsx +4Tuafq9v7pLiNDLaZprPcVpMx+RuI/lGXzKy6jM5wdvoKEoZTHBRkFBhGnMu +KZeOrB3h98fdp+GLZc+qj5/pmF5W0ZLHmILZ6sS15R4LcTrKyjV8pg406aNn +PbMW4j1JoTRb/Rncvu+2njG8EP3Nu3NLRrRgu7Zmsp7NQHfrmvabH8Ygv0V+ +uXYrA1OSTmcdpI7CoVejjR3HGAiMIp83gSOQ+KdpsXc2A+W+jBbLoCEYsQxe +ra5jYF2I8Oh2/gBs8lDx7n5koDgh0Elc0w9kvis0WzORpeztUNP6YOJrZ9mC +DUyc+PjFaOKvHvCO8Wt/cpSJqhWeU00x7yBTNZaRns5EzfqRxYqILrAraDFP +rWHi5GPjSBH/b1gQesVqcIiJksidsg0WHeAZm9YSNJ+FqeUSSqpjK7RcETiu +cmdh8MqmoDlhStidIHRaf5iFlGqNIf9zE9A1lf/wrrFwFuumxOTtS1i3vGep +toqFSy6o7HwHFSBRbeakf2ChtKwkpib3GRhEN1f9OpuNtwW0E2sUtVBGWWNQ +vJaNxla143am1VA61PvBJISNapftASY1lTCj4dCxqmQ2ZsVmB9jaV0BA8vy8 +ogo2/tF+Q+V9SA4jj43FcjUbvwxpDUN2P4IuZRPJZiYHG7m5bF1oCczy6V5U +4MJBcX7fzbukYlhVOksbuo+DuvsuPkRbAVRaMPfHXuTgLZ2sfee7O/Db04gT +lQ84aCfsmRcokUAhP2elfxcHz5itztBeyYG5p+dl0Kg2WKGpV82Zdxsijxfk +kRxtcNI6ktKgygCHAMaOrf42+JDr0btGeR3spa35MrENOh4ucrCNuwrxveE5 +4nv6fpl7R9KBFHhjynITd9rgxaT6XlntJTiabHXhFoXAsD0bd0kwAbhmY5H0 +ZQSeoPEvWzufh7Q+S6rcj8DkC4JN9v+eg+p8L/e4kwTua6zK3sY4C5v3hTJK +pXq3XhqWRJ+CucKnEsprAtWGVHxRJAKvEGZaqd6FheJfSJkiEPtGnw9XElhn +MxnhelEEo/bLeK+bCWwOuO7SFiqCRtVVx5w2AndXn8xLYokg3iu43O0tgW/l +FmGktGj4yjB6dbqfwGt5tR3l8UJw/jag2vk9gUrXzAEQCoGnkz3o19v/AJ/e +ECaEzmbeNe8BApv8cp4beQpBFq/0Zw4RKFltkjr0jRD4Yzl9lWP6/zviSrLi +ouBO91Rb5DiBt89Rhp8cj4KuF351i7UEHpzgDQyGRMFPd8wKLn0isPLnUxZc +jyhYujeCHzhB4B5N/pYn1Cjgbm7g0nQEbhed6nGYEMCNlYt2PNPbOTbeQvpe +ANTZnT84TBEY/ZI9KVMIAEnOS3r0Nhy3e7S1XACCwcQFaV8JlO7ivh+8K4Ci +Do3ZlmkCnbqpKVczBND71G1qWm/i9QGpR6IA/gO8sz4x + "]]}, "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}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{7.5, 11.5}, {0., 0.9368525344691919}}, + 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.99216921604838*^9, { + 3.9921716438698006`*^9, 3.992171729875326*^9}, {3.992171778851469*^9, + 3.992171851101013*^9}}, + CellLabel-> + "Out[166]=",ExpressionUUID->"a32ac306-352e-4246-979d-aaccd9c4fd9c"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"b0", ",", "y", ",", "bb0", ",", "yy", ",", "r"}], "]"}]], "Input", + CellChangeTimes->{3.9918427409143257`*^9}, + CellLabel-> + "In[167]:=",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", ",", "9", ",", "12"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.992171967741379*^9, 3.9921719836249027`*^9}, { + 3.992172129636656*^9, 3.9921721406821003`*^9}, {3.9921721739340534`*^9, + 3.992172174015196*^9}}, + CellLabel-> + "In[184]:=",ExpressionUUID->"5f40daf9-1e74-0640-ab31-9384896fd730"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwVzns01HkYBvAZJkbLtGHqTFkyt19CnVl1TJbv95VCSMwmXUi5ZIZJylIN +uzWr2kqKIu2ZXBKb1d2aEmHsEZbtgjCSdLGNMDdbTaqpnf3jPc/5nPOc57zO +sTsFCWYkEmmN6f5P+3EbUzDBhupjcH8sxiVl3rK9Jk9cqhbevifGCyOTl+pN +Lm+rWxbUIsberR3bX5CZQNWcHMysEuO4kuyuVnMm3G0VUJ32iHGNYLrgqCUT +IjcXWMTRxTisYZSwm8WEZDf7oe6IZJx7vGEN19HU/7797MN/RNh6lNbTh5iQ +dzVhfS81ERsP0fs3RTPhkeIu5VRlPFYVphf5ZzIhMPfTyK2cWDywKTO/QcYE +oYVMPiTdipcnLf3Kop4JtfTpIs/iaHx+8enGwcdMaN/QQjsn2ITNtgW7239k +wsZXVW8Td0fivuGbDmwGCx6bswr9rSPw1VkdKxuXs6ClyVVEuy3A0znHJ103 +sGCk4saR7o4w7J1RHU7OYEGqj4sscWEoPkRP0cacYcGzCmGBRhmE4cuodUEt +C3z/ZER5zgnE5BJyXHgfC3y0Y1K9aBVuqN6Tkf6WBZaR0nU0ez+sIp+32mnH +BpE+4HWksy9m0FL79B5seD+bsr0kE+HG+KkFQQI2lBt61PER3+HE1HmVrmls +iGoKzJGu5uOZ47JXaafZIP2c5iwqW4adrj68mH+DDTnGqrcpQg/sRVw6z+9h +w5ZylAwreLh9nD9frmODWHK0eat2MQ5xWCA4S+PAvKJv9sk7XPGA2ZUWyhIO +FC6718OvX4gfeaiv+6/hwHTsKZcBdy4eYPQqZ6dwIKxTkbXnJgv37rBt8jvB +gQvxD/LenHDGvtYzWMGXOdBau4tuftgJy2OKFUN/c8AsbHzljzMdsMw4Nuw7 +wQFLfZAiisXAEqsTdTQrLjzM5hw8UzgHx3Qqu+JduFB48JqOPt8e3+zr35IX +wIWy4dPbqDNtsd0ZyaJVQi6wi5llCquv8Yuy7vQHh7ng6Z/oVN1ojX9n/PyT +ooILwtHJG/fvW+GMAGWz110uWO6u66p/Z4Hlzc8PHHvJhSenum+1FVHwh8k8 +SRyFAB+v3UkFIWaYf+RX3gU2Aft/6IlpCSbhsR0RwroVBPxWab1gORhRCfXW +wPo4AiyyBPJz5h9Qm7qrrVNKwFDBU5kxzIBU4JVWWUoAKWG+Ilv/BtFWh26w +UhAgSDXYEBVT6KKM3rjiKQFGAUnbXqdDeTaMmr9MdspqGLl8XYck+x0uho0Q +4EBf21RYpUMhcaz8Lc9M/4TH+qSd1SHdIl6C5AUBbhecaNF7dYhfH2JT84oA +mcht3ThfhzqV2dHOWgLI2nzVnX1a9EfQL4Iqk4vWu5Ezk7To3J1jAUt0BPDo +cw/AZi1KKcvn+egJcNx1pPS5txbZCktnbPzXtF+rImWRtGizof5KnoEArarK +g3ZUg1aKmsrnvifA1v25ASQatHiopajE5NyxJ2OSZA0iNXdIL08ToOF5+lFC +NajicH9Ex0cCPoUf2Cu206Dc94NBaz8RsF3e7aukaFBG0jDuN1lp5+cQ/E6N +AkNHXUaNBKgUve9WDaoRT6FyTP5MQPpSR929TjWa9+2E3ZTJNRNPJ6PuqJF5 +hYa67wsBYtm111NX1GiSPmX8YrK62PXlyVI1+g/jaiz/ + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVzns01HkYBvAZJkbLtGHqTFkyt19CnVl1TJbv95VCSMwmXUi5ZIZJylIN +uzWr2kqKIu2ZXBKb1d2aEmHsEZbtgjCSdLGNMDdbTaqpnf3jPc/5nPOc57zO +sTsFCWYkEmmN6f5P+3EbUzDBhupjcH8sxiVl3rK9Jk9cqhbevifGCyOTl+pN +Lm+rWxbUIsberR3bX5CZQNWcHMysEuO4kuyuVnMm3G0VUJ32iHGNYLrgqCUT +IjcXWMTRxTisYZSwm8WEZDf7oe6IZJx7vGEN19HU/7797MN/RNh6lNbTh5iQ +dzVhfS81ERsP0fs3RTPhkeIu5VRlPFYVphf5ZzIhMPfTyK2cWDywKTO/QcYE +oYVMPiTdipcnLf3Kop4JtfTpIs/iaHx+8enGwcdMaN/QQjsn2ITNtgW7239k +wsZXVW8Td0fivuGbDmwGCx6bswr9rSPw1VkdKxuXs6ClyVVEuy3A0znHJ103 +sGCk4saR7o4w7J1RHU7OYEGqj4sscWEoPkRP0cacYcGzCmGBRhmE4cuodUEt +C3z/ZER5zgnE5BJyXHgfC3y0Y1K9aBVuqN6Tkf6WBZaR0nU0ez+sIp+32mnH +BpE+4HWksy9m0FL79B5seD+bsr0kE+HG+KkFQQI2lBt61PER3+HE1HmVrmls +iGoKzJGu5uOZ47JXaafZIP2c5iwqW4adrj68mH+DDTnGqrcpQg/sRVw6z+9h +w5ZylAwreLh9nD9frmODWHK0eat2MQ5xWCA4S+PAvKJv9sk7XPGA2ZUWyhIO +FC6718OvX4gfeaiv+6/hwHTsKZcBdy4eYPQqZ6dwIKxTkbXnJgv37rBt8jvB +gQvxD/LenHDGvtYzWMGXOdBau4tuftgJy2OKFUN/c8AsbHzljzMdsMw4Nuw7 +wQFLfZAiisXAEqsTdTQrLjzM5hw8UzgHx3Qqu+JduFB48JqOPt8e3+zr35IX +wIWy4dPbqDNtsd0ZyaJVQi6wi5llCquv8Yuy7vQHh7ng6Z/oVN1ojX9n/PyT +ooILwtHJG/fvW+GMAGWz110uWO6u66p/Z4Hlzc8PHHvJhSenum+1FVHwh8k8 +SRyFAB+v3UkFIWaYf+RX3gU2Aft/6IlpCSbhsR0RwroVBPxWab1gORhRCfXW +wPo4AiyyBPJz5h9Qm7qrrVNKwFDBU5kxzIBU4JVWWUoAKWG+Ilv/BtFWh26w +UhAgSDXYEBVT6KKM3rjiKQFGAUnbXqdDeTaMmr9MdspqGLl8XYck+x0uho0Q +4EBf21RYpUMhcaz8Lc9M/4TH+qSd1SHdIl6C5AUBbhecaNF7dYhfH2JT84oA +mcht3ThfhzqV2dHOWgLI2nzVnX1a9EfQL4Iqk4vWu5Ezk7To3J1jAUt0BPDo +cw/AZi1KKcvn+egJcNx1pPS5txbZCktnbPzXtF+rImWRtGizof5KnoEArarK +g3ZUg1aKmsrnvifA1v25ASQatHiopajE5NyxJ2OSZA0iNXdIL08ToOF5+lFC +NajicH9Ex0cCPoUf2Cu206Dc94NBaz8RsF3e7aukaFBG0jDuN1lp5+cQ/E6N +AkNHXUaNBKgUve9WDaoRT6FyTP5MQPpSR929TjWa9+2E3ZTJNRNPJ6PuqJF5 +hYa67wsBYtm111NX1GiSPmX8YrK62PXlyVI1+g/jaiz/ + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{9, 12}, {0., 0.0035220048684161454`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{9, 12}, {0., 0.0035220048684161454`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVzns01HkYBvAZJkbLtGHqTFkyt19CnVl1TJbv95VCSMwmXUi5ZIZJylIN +uzWr2kqKIu2ZXBKb1d2aEmHsEZbtgjCSdLGNMDdbTaqpnf3jPc/5nPOc57zO +sTsFCWYkEmmN6f5P+3EbUzDBhupjcH8sxiVl3rK9Jk9cqhbevifGCyOTl+pN +Lm+rWxbUIsberR3bX5CZQNWcHMysEuO4kuyuVnMm3G0VUJ32iHGNYLrgqCUT +IjcXWMTRxTisYZSwm8WEZDf7oe6IZJx7vGEN19HU/7797MN/RNh6lNbTh5iQ +dzVhfS81ERsP0fs3RTPhkeIu5VRlPFYVphf5ZzIhMPfTyK2cWDywKTO/QcYE +oYVMPiTdipcnLf3Kop4JtfTpIs/iaHx+8enGwcdMaN/QQjsn2ITNtgW7239k +wsZXVW8Td0fivuGbDmwGCx6bswr9rSPw1VkdKxuXs6ClyVVEuy3A0znHJ103 +sGCk4saR7o4w7J1RHU7OYEGqj4sscWEoPkRP0cacYcGzCmGBRhmE4cuodUEt +C3z/ZER5zgnE5BJyXHgfC3y0Y1K9aBVuqN6Tkf6WBZaR0nU0ez+sIp+32mnH +BpE+4HWksy9m0FL79B5seD+bsr0kE+HG+KkFQQI2lBt61PER3+HE1HmVrmls +iGoKzJGu5uOZ47JXaafZIP2c5iwqW4adrj68mH+DDTnGqrcpQg/sRVw6z+9h +w5ZylAwreLh9nD9frmODWHK0eat2MQ5xWCA4S+PAvKJv9sk7XPGA2ZUWyhIO +FC6718OvX4gfeaiv+6/hwHTsKZcBdy4eYPQqZ6dwIKxTkbXnJgv37rBt8jvB +gQvxD/LenHDGvtYzWMGXOdBau4tuftgJy2OKFUN/c8AsbHzljzMdsMw4Nuw7 +wQFLfZAiisXAEqsTdTQrLjzM5hw8UzgHx3Qqu+JduFB48JqOPt8e3+zr35IX +wIWy4dPbqDNtsd0ZyaJVQi6wi5llCquv8Yuy7vQHh7ng6Z/oVN1ojX9n/PyT +ooILwtHJG/fvW+GMAGWz110uWO6u66p/Z4Hlzc8PHHvJhSenum+1FVHwh8k8 +SRyFAB+v3UkFIWaYf+RX3gU2Aft/6IlpCSbhsR0RwroVBPxWab1gORhRCfXW +wPo4AiyyBPJz5h9Qm7qrrVNKwFDBU5kxzIBU4JVWWUoAKWG+Ilv/BtFWh26w +UhAgSDXYEBVT6KKM3rjiKQFGAUnbXqdDeTaMmr9MdspqGLl8XYck+x0uho0Q +4EBf21RYpUMhcaz8Lc9M/4TH+qSd1SHdIl6C5AUBbhecaNF7dYhfH2JT84oA +mcht3ThfhzqV2dHOWgLI2nzVnX1a9EfQL4Iqk4vWu5Ezk7To3J1jAUt0BPDo +cw/AZi1KKcvn+egJcNx1pPS5txbZCktnbPzXtF+rImWRtGizof5KnoEArarK +g3ZUg1aKmsrnvifA1v25ASQatHiopajE5NyxJ2OSZA0iNXdIL08ToOF5+lFC +NajicH9Ex0cCPoUf2Cu206Dc94NBaz8RsF3e7aukaFBG0jDuN1lp5+cQ/E6N +AkNHXUaNBKgUve9WDaoRT6FyTP5MQPpSR929TjWa9+2E3ZTJNRNPJ6PuqJF5 +hYa67wsBYtm111NX1GiSPmX8YrK62PXlyVI1+g/jaiz/ + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{9, 12}, {0., 0.0035220048684161454`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{9.00000000000002, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{9, 12}, {0., 0.0035220048684161454`}}, + 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.9921718880048923`*^9, { + 3.9921719759369335`*^9, 3.992171984395319*^9}, {3.992172133301077*^9, + 3.992172141825596*^9}, 3.992172175241329*^9}, + CellLabel-> + "Out[184]=",ExpressionUUID->"e5282d54-6165-864d-b8c2-fd3ffb6951b0"] +}, 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", ",", "9", ",", "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", ",", "9", ",", "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.9921719986979465`*^9, 3.9921720029279613`*^9}}, + CellLabel-> + "In[171]:=",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.05982268361818487`\\\", \\\" \\\", \ +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.03962633605847965`\\\", \\\" \\\", 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.05982268361818487`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R2\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.03962633605847965`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.329807596357124`\\\", \\\" \ +\\\", \\\"R2\\\"}], \\\"]\\\"}]}], RowBox[{\\\"7.832645999497397`*^6\\\", \ +\\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\")\\\"}]}], \\\"+\ +\\\", RowBox[{\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"-\\\", FractionBox[RowBox[{\\\"0.05982268361818487`\\\", \ +\\\" \\\", 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.03962633605847965`\\\", \\\" \\\", 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.05982268361818487`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R2\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.03962633605847965`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.329807596357124`\\\", \\\" \ +\\\", \\\"R2\\\"}], \\\"]\\\"}]}], RowBox[{\\\"9.415692350412738`*^6\\\", \ +\\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\")\\\"}]}], \\\"+\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"28\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"+\\\", RowBox[{\\\"2.`\\\", \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.05982268361818487`\\\", \\\" \\\", \ +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.03962633605847965`\\\", \\\" \\\", 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.05982268361818487`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R2\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.03962633605847965`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.329807596357124`\\\", \\\" \ +\\\", \\\"R2\\\"}], \\\"]\\\"}]}], RowBox[{\\\"1.9598432176384625`*^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, 171, 4, 29225281869222108711, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99196434662237*^9, 3.991965267764641*^9, + 3.992172005431555*^9}, + CellLabel-> + "During evaluation of \ +In[171]:=",ExpressionUUID->"01509ccb-ee36-ac4c-a081-721482bb27eb"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "cvmit", + "\"Failed to converge to the requested accuracy or precision within \\!\\(\ +\\*RowBox[{\\\"100\\\"}]\\) iterations.\"", 2, 171, 5, 29225281869222108711, + "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99196434662237*^9, 3.991965267764641*^9, + 3.9921720055257645`*^9}, + CellLabel-> + "During evaluation of \ +In[171]:=",ExpressionUUID->"5722f784-d413-e945-9034-fa616412f19f"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "1.4011623901273043`"}], ",", + RowBox[{"b0", "\[Rule]", "0.5547529349193664`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9919643466702614`*^9, 3.9919652678273296`*^9, + 3.9921720055307636`*^9}, + CellLabel-> + "Out[171]=",ExpressionUUID->"2ac1d1fa-54fc-f240-9e62-dcd7d419d095"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "1.4012"}]], "Input", + CellChangeTimes->{{3.9919643517017803`*^9, 3.9919643518904247`*^9}, { + 3.991965271719015*^9, 3.991965272747534*^9}, {3.992172009277462*^9, + 3.992172016321312*^9}}, + CellLabel-> + "In[172]:=",ExpressionUUID->"dbdfb703-96b0-7646-a6d8-1714cb27d7e0"], + +Cell[BoxData["1.4012`"], "Output", + CellChangeTimes->{3.991964352345875*^9, 3.9919652787755985`*^9, + 3.992172020360428*^9}, + CellLabel-> + "Out[172]=",ExpressionUUID->"7bd1eab7-2301-8841-89a6-b024c8e5a5a5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.5547"}]], "Input", + CellChangeTimes->{{3.991964356946327*^9, 3.991964357098551*^9}, { + 3.9919652753355255`*^9, 3.991965275476549*^9}, {3.9921720268420353`*^9, + 3.9921720321017227`*^9}}, + CellLabel-> + "In[173]:=",ExpressionUUID->"b1797ad3-1841-6d4a-802c-01a83775cf12"], + +Cell[BoxData["0.5547`"], "Output", + CellChangeTimes->{3.99217204121789*^9}, + CellLabel-> + "Out[173]=",ExpressionUUID->"957cc7f6-d310-2648-8355-befae3b3ffde"] +}, 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", ",", "9", ",", "12"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{ + 3.9917169014568214`*^9, {3.9921720594492493`*^9, 3.9921720613313255`*^9}, { + 3.9921721478998566`*^9, 3.992172163520687*^9}}, + CellLabel-> + "In[183]:=",ExpressionUUID->"44ce8c70-9506-d44d-96f8-61e476c7c15f"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVk3s0lHkcxolEoeMy1UjJO5c3xBDlkn6/r0ujFIWVbiiGxYzLcaullFFI +aWeiy+4UFdU2pFLSZmWKSpdNS+7VukyRlHem9kwWa6c/nvP89znneZ7zWEYk +BkbN0NDQ8FPru5uOGKiNgEZdT+vcnwW48GidH3sxAflvTReMXIvF+nLD1nZE +AG3r8aLad9F46hCtY1soAdoWi+hTIh4eOpF2iptJQOqZR6WfhRG4c1umuE5C +gDn/q5UwZyd2jXOao3OXgNjkpDGH66H4vF1RfXcPAT1FIVoGKdvwjF3rbU0n +CCi2aODPPhuC29/cNmfSGbBdvqqDgYJx1dxm73pXBuh6qwIqqUA8fuToqM0W +Bry7ukBlpR2A3dOlAZrpDJjvT4x3lvnjQ7SEsfCTDOhZlTebHbIew7Rcv/gW +A4RNlzjLT6zFmiWakQHtDODEXzdjDq/BddLd6Wn/MMDZ+gcFR+SFhzTP6yWa +MMGzQLyp7FcPTDdMalc4MuGAauH8vGiM63nKJb6BTJiVZS82dHHHPyaZXbRJ +YYJzWdVxHuGKZ49I3qcUMWFmqxPdMnEltqh6eVl8gwkFN21f77B1wm5kxXmX +Vias1gqK50864McjLgtrKCYkbo/sfkHa4w3mSwJPG7LAzyirNJlmiztnXL2v +zWFB/6vnX52VVviV46frXD8W+NjJ3DWCSNxJb+sySmDB4QrVuPwxE7fFG9/z +OsaC0rkRi54UEthDfyZjfSULxBeGXdxvLME14Wdlvc9ZIPMqsC1vWoQlU8Nv +PD6ywJZS7bZoMMMZesfuGOqxQYs7xKTTFuDwp13PeFZskEo/OF3ZR8O32zvC +RD5sUNoPXXIMMsEmJzOs18Sw4Uhc8gdjVyM8cO6vtJZcNiyV5jdYjBniK3Rh +lqycDdy+LFZjxxyc7tPV4PaQDc2ClmjpK11c09B/oGCQDcWHI5zsA3Twv6Oi +jEhtEuycKyod+7WwS/4vDmVMEngvjLM/39PEw/HBMXc8SdjTv+LBtdFpVKJb +27k5kgS38aR5VNokevTp2aOn2STkTr6eYykeR0PglnKxlATPqepb+toqZLjO +f4uejITf47+cnsj/ii5LaPWeb0kYMOqhcdOVaJSmnJqeJkF7mVSzj0ehTXVy +0mQuAe2D+1InaHz8tCsn1HKMhJ0PJIzaKAWqDhwvPjyLgLwWPWOPl3zscneD +QfV7Eth3Dp789lGBtqvuXhWpSEjYP82PHKRQZEnOsyYtAjw4XiIPjgBT1g5R +GQMktPhmv5fYK5FxTOnMrV9I6G4TCoyYClSe2xHcPEHCoWU7Mq+UUci9qTl6 +QJOAh6Mc2qpwAd4QyRCH9ZGwo//a4MYgJUo4J3ZYrSAB6XHnPfRWII2G5uzK +cXX+P4/bxDRSaK2/3Eo+RYLOiYph9kEKLQ3hOynU/5+INY3avFuAM/abX970 +NwnhK7hVD3hKdOaPAh8ORUJ9psm6lcEKZNd7/1TJNxJEr48tD2ujUHrcG9wx +SYKwNK2mr4hCZss/mij/I6FX9URnbyqFSs65S/ao+av9PtXycwRYZECvfqLu +u/V2ip8wXolu+uYF/qbus3Fhsiw1VIG8Y+9dmK/md8cZDYf1UqjwW7fvRjXf +r3CXS6OEQg6yocV8Nd85BSQb91JIq/yz7k/qvWzqcqwqBRT6H0GGIpw= + "], {{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], 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:eJwVk3s0lHkcxolEoeMy1UjJO5c3xBDlkn6/r0ujFIWVbiiGxYzLcaullFFI +aWeiy+4UFdU2pFLSZmWKSpdNS+7VukyRlHem9kwWa6c/nvP89znneZ7zWEYk +BkbN0NDQ8FPru5uOGKiNgEZdT+vcnwW48GidH3sxAflvTReMXIvF+nLD1nZE +AG3r8aLad9F46hCtY1soAdoWi+hTIh4eOpF2iptJQOqZR6WfhRG4c1umuE5C +gDn/q5UwZyd2jXOao3OXgNjkpDGH66H4vF1RfXcPAT1FIVoGKdvwjF3rbU0n +CCi2aODPPhuC29/cNmfSGbBdvqqDgYJx1dxm73pXBuh6qwIqqUA8fuToqM0W +Bry7ukBlpR2A3dOlAZrpDJjvT4x3lvnjQ7SEsfCTDOhZlTebHbIew7Rcv/gW +A4RNlzjLT6zFmiWakQHtDODEXzdjDq/BddLd6Wn/MMDZ+gcFR+SFhzTP6yWa +MMGzQLyp7FcPTDdMalc4MuGAauH8vGiM63nKJb6BTJiVZS82dHHHPyaZXbRJ +YYJzWdVxHuGKZ49I3qcUMWFmqxPdMnEltqh6eVl8gwkFN21f77B1wm5kxXmX +Vias1gqK50864McjLgtrKCYkbo/sfkHa4w3mSwJPG7LAzyirNJlmiztnXL2v +zWFB/6vnX52VVviV46frXD8W+NjJ3DWCSNxJb+sySmDB4QrVuPwxE7fFG9/z +OsaC0rkRi54UEthDfyZjfSULxBeGXdxvLME14Wdlvc9ZIPMqsC1vWoQlU8Nv +PD6ywJZS7bZoMMMZesfuGOqxQYs7xKTTFuDwp13PeFZskEo/OF3ZR8O32zvC +RD5sUNoPXXIMMsEmJzOs18Sw4Uhc8gdjVyM8cO6vtJZcNiyV5jdYjBniK3Rh +lqycDdy+LFZjxxyc7tPV4PaQDc2ClmjpK11c09B/oGCQDcWHI5zsA3Twv6Oi +jEhtEuycKyod+7WwS/4vDmVMEngvjLM/39PEw/HBMXc8SdjTv+LBtdFpVKJb +27k5kgS38aR5VNokevTp2aOn2STkTr6eYykeR0PglnKxlATPqepb+toqZLjO +f4uejITf47+cnsj/ii5LaPWeb0kYMOqhcdOVaJSmnJqeJkF7mVSzj0ehTXVy +0mQuAe2D+1InaHz8tCsn1HKMhJ0PJIzaKAWqDhwvPjyLgLwWPWOPl3zscneD +QfV7Eth3Dp789lGBtqvuXhWpSEjYP82PHKRQZEnOsyYtAjw4XiIPjgBT1g5R +GQMktPhmv5fYK5FxTOnMrV9I6G4TCoyYClSe2xHcPEHCoWU7Mq+UUci9qTl6 +QJOAh6Mc2qpwAd4QyRCH9ZGwo//a4MYgJUo4J3ZYrSAB6XHnPfRWII2G5uzK +cXX+P4/bxDRSaK2/3Eo+RYLOiYph9kEKLQ3hOynU/5+INY3avFuAM/abX970 +NwnhK7hVD3hKdOaPAh8ORUJ9psm6lcEKZNd7/1TJNxJEr48tD2ujUHrcG9wx +SYKwNK2mr4hCZss/mij/I6FX9URnbyqFSs65S/ao+av9PtXycwRYZECvfqLu +u/V2ip8wXolu+uYF/qbus3Fhsiw1VIG8Y+9dmK/md8cZDYf1UqjwW7fvRjXf +r3CXS6OEQg6yocV8Nd85BSQb91JIq/yz7k/qvWzqcqwqBRT6H0GGIpw= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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" -> {{9, 12}, {0., 0.003486406365540069}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVz3s0lHkcBnATiULHZaqRkncub4ghypB+v69LlBqFlW4oMyxmXI5bLaVQ +SGlnosvuFBXVNqRS0mZFUemyacm9WrciKe9M7Zks1k5/POc5n/P89ViExfmH +z9DQ0OCr871NRvTVRUCDjrtV9s9iXHTOVbZH7dX8T9WiLDFeGiRyVKg9EWUS +vnm3GLs2NkX00wh4OMqlrwoVY0FR1rNGTQLcuB4SN64YV/qPFx6eRUBOs66R +20sR3lQzSBrPJaBtYF/SBF2E84/W8DmLCch9a7Jg5FoU1hs0aGlDBNC3Hi+o +fheBpw7R27cFE6BlvogxJRHioRPJp7zSCEg686j4c2YY7tiWJq2REWAm+mqZ +mbUTO0c7ztG+S0BUQvyY/fVgfN62oLarm4DugiBN/cRteMau9TYmEwQUmteJ +Zp8Nwm1vbpuxGEzYPriqnYkCccXcJs9aZyboeKr8yil/PH7k6Kj1Fia8u7pA +Zanlh11T5H60FCbM9yXGO0p88SF67FjoSSZ0r8qZzQlaj2F6UK/wFhMyGy9x +l59Yi2lFNIFfGxO4MddNWcNrcI18d0ryP0xwsvpBwZV44CHaed04Yxa450k3 +lfzqhhkG8W0KBxYcUC2cnxOBca1QucTHnwWz0u2kBjxX/GO86UXrRBY4lVQc +FxLOePaI7H1iAQtmtjgyLOJWYvOKl5elN1iQd9Pm9Q4bR+xClp3ntbBgtWZA +jGjSHj8e4S2solgQt13Q9YK0wxvMlvifNmAD3zC9OIFugztmXL2vxWVD36vn +X52UlviVw6frXnw2eNvWu2oEkLiD0dppGMuGw2Wq8cHHLNwaY3TP4xgbiueG +LXqST2A3vZnM9eVskF4Y5rneWIKrQs/W9zxnQ71Hnk1p4yIsmxp+4/aRDTaU +ard5nSlO1T12x0CXA5peQywGfQEOfdr5TGjJAbn8g+OVfXR8u609ROLNAaXd +0CWHAGNsfDLVak0kB45EJ3wwcjbE/ef+Sm7O5sBSeW6d+ZgBvsLITK8v5YBX +bzq7oX0OTvHurHN5yIEmcXOE/JUOrqrrO5A3wIHCw2GOdn7a+N9RSapAiwRb +p7Jyhz5NzMv9xb6ERYLwhVHG53s0PBwTGHnHnYQ9fSseXBudRkU61R2bBSS4 +jMfPo5In0aNPzx49zSAhe/L1HAvpOBoCl8SLxSS4T1Xe0tNSIYN1vlt060n4 +PebL6Yncr+iyjF7r/paEfsNuuleKEkn0GZVP1G65ncjPjFGi1P1mlzf9TULo +Cq+KB0Il2iBgSkN6SdjRd21gY4ASUVb24an9JDT7ZLyX2SkR7+4G/cr3JHDu +HDz57aMCPe3MCrYYI2HnAxmzOlyBbvrk+P+mdsPChPqkYAU680eeN5cioTbN +eN3KQAWKPSe1X60gAel6zXvoqUBGkcUzt34hoas1U2zIUqDtqrtXJSoSYvdP +iwQDFPKMundh/jf1Hm04HNJDIdue+6eK1Ja8PrY8pJVCGnVNGeXj6v9/HreO +bKBQaXZ7YNMECYeW7Ui7UkKh/G9dPhsnSeDn7+I1yCiUEv0Gt6udWZxc1VtA +obW+g5aDUyRonygb5hykkH390GLRfyQ4JYJs414KmS7/aKxUu0f1RHtvEoU0 +Sz/r/DRNgnVNlmW5mEKjdOXUtNpay+S0XiGF/gdetCKc + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{9, 12}, {0., 0.003486406365540069}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVz3s0lHkcBnATiULHZaqRkncub4ghypB+v69LlBqFlW4oMyxmXI5bLaVQ +SGlnosvuFBXVNqRS0mZFUemyacm9WrciKe9M7Zks1k5/POc5n/P89ViExfmH +z9DQ0OCr871NRvTVRUCDjrtV9s9iXHTOVbZH7dX8T9WiLDFeGiRyVKg9EWUS +vnm3GLs2NkX00wh4OMqlrwoVY0FR1rNGTQLcuB4SN64YV/qPFx6eRUBOs66R +20sR3lQzSBrPJaBtYF/SBF2E84/W8DmLCch9a7Jg5FoU1hs0aGlDBNC3Hi+o +fheBpw7R27cFE6BlvogxJRHioRPJp7zSCEg686j4c2YY7tiWJq2REWAm+mqZ +mbUTO0c7ztG+S0BUQvyY/fVgfN62oLarm4DugiBN/cRteMau9TYmEwQUmteJ +Zp8Nwm1vbpuxGEzYPriqnYkCccXcJs9aZyboeKr8yil/PH7k6Kj1Fia8u7pA +Zanlh11T5H60FCbM9yXGO0p88SF67FjoSSZ0r8qZzQlaj2F6UK/wFhMyGy9x +l59Yi2lFNIFfGxO4MddNWcNrcI18d0ryP0xwsvpBwZV44CHaed04Yxa450k3 +lfzqhhkG8W0KBxYcUC2cnxOBca1QucTHnwWz0u2kBjxX/GO86UXrRBY4lVQc +FxLOePaI7H1iAQtmtjgyLOJWYvOKl5elN1iQd9Pm9Q4bR+xClp3ntbBgtWZA +jGjSHj8e4S2solgQt13Q9YK0wxvMlvifNmAD3zC9OIFugztmXL2vxWVD36vn +X52UlviVw6frXnw2eNvWu2oEkLiD0dppGMuGw2Wq8cHHLNwaY3TP4xgbiueG +LXqST2A3vZnM9eVskF4Y5rneWIKrQs/W9zxnQ71Hnk1p4yIsmxp+4/aRDTaU +ard5nSlO1T12x0CXA5peQywGfQEOfdr5TGjJAbn8g+OVfXR8u609ROLNAaXd +0CWHAGNsfDLVak0kB45EJ3wwcjbE/ef+Sm7O5sBSeW6d+ZgBvsLITK8v5YBX +bzq7oX0OTvHurHN5yIEmcXOE/JUOrqrrO5A3wIHCw2GOdn7a+N9RSapAiwRb +p7Jyhz5NzMv9xb6ERYLwhVHG53s0PBwTGHnHnYQ9fSseXBudRkU61R2bBSS4 +jMfPo5In0aNPzx49zSAhe/L1HAvpOBoCl8SLxSS4T1Xe0tNSIYN1vlt060n4 +PebL6Yncr+iyjF7r/paEfsNuuleKEkn0GZVP1G65ncjPjFGi1P1mlzf9TULo +Cq+KB0Il2iBgSkN6SdjRd21gY4ASUVb24an9JDT7ZLyX2SkR7+4G/cr3JHDu +HDz57aMCPe3MCrYYI2HnAxmzOlyBbvrk+P+mdsPChPqkYAU680eeN5cioTbN +eN3KQAWKPSe1X60gAel6zXvoqUBGkcUzt34hoas1U2zIUqDtqrtXJSoSYvdP +iwQDFPKMundh/jf1Hm04HNJDIdue+6eK1Ja8PrY8pJVCGnVNGeXj6v9/HreO +bKBQaXZ7YNMECYeW7Ui7UkKh/G9dPhsnSeDn7+I1yCiUEv0Gt6udWZxc1VtA +obW+g5aDUyRonygb5hykkH390GLRfyQ4JYJs414KmS7/aKxUu0f1RHtvEoU0 +Sz/r/DRNgnVNlmW5mEKjdOXUtNpay+S0XiGF/gdetCKc + "]]}, "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:eJwVk3s0lHkcxolEoeMy1UjJO5c3xBDlkn6/r0ujFIWVbiiGxYzLcaullFFI +aWeiy+4UFdU2pFLSZmWKSpdNS+7VukyRlHem9kwWa6c/nvP89znneZ7zWEYk +BkbN0NDQ8FPru5uOGKiNgEZdT+vcnwW48GidH3sxAflvTReMXIvF+nLD1nZE +AG3r8aLad9F46hCtY1soAdoWi+hTIh4eOpF2iptJQOqZR6WfhRG4c1umuE5C +gDn/q5UwZyd2jXOao3OXgNjkpDGH66H4vF1RfXcPAT1FIVoGKdvwjF3rbU0n +CCi2aODPPhuC29/cNmfSGbBdvqqDgYJx1dxm73pXBuh6qwIqqUA8fuToqM0W +Bry7ukBlpR2A3dOlAZrpDJjvT4x3lvnjQ7SEsfCTDOhZlTebHbIew7Rcv/gW +A4RNlzjLT6zFmiWakQHtDODEXzdjDq/BddLd6Wn/MMDZ+gcFR+SFhzTP6yWa +MMGzQLyp7FcPTDdMalc4MuGAauH8vGiM63nKJb6BTJiVZS82dHHHPyaZXbRJ +YYJzWdVxHuGKZ49I3qcUMWFmqxPdMnEltqh6eVl8gwkFN21f77B1wm5kxXmX +Vias1gqK50864McjLgtrKCYkbo/sfkHa4w3mSwJPG7LAzyirNJlmiztnXL2v +zWFB/6vnX52VVviV46frXD8W+NjJ3DWCSNxJb+sySmDB4QrVuPwxE7fFG9/z +OsaC0rkRi54UEthDfyZjfSULxBeGXdxvLME14Wdlvc9ZIPMqsC1vWoQlU8Nv +PD6ywJZS7bZoMMMZesfuGOqxQYs7xKTTFuDwp13PeFZskEo/OF3ZR8O32zvC +RD5sUNoPXXIMMsEmJzOs18Sw4Uhc8gdjVyM8cO6vtJZcNiyV5jdYjBniK3Rh +lqycDdy+LFZjxxyc7tPV4PaQDc2ClmjpK11c09B/oGCQDcWHI5zsA3Twv6Oi +jEhtEuycKyod+7WwS/4vDmVMEngvjLM/39PEw/HBMXc8SdjTv+LBtdFpVKJb +27k5kgS38aR5VNokevTp2aOn2STkTr6eYykeR0PglnKxlATPqepb+toqZLjO +f4uejITf47+cnsj/ii5LaPWeb0kYMOqhcdOVaJSmnJqeJkF7mVSzj0ehTXVy +0mQuAe2D+1InaHz8tCsn1HKMhJ0PJIzaKAWqDhwvPjyLgLwWPWOPl3zscneD +QfV7Eth3Dp789lGBtqvuXhWpSEjYP82PHKRQZEnOsyYtAjw4XiIPjgBT1g5R +GQMktPhmv5fYK5FxTOnMrV9I6G4TCoyYClSe2xHcPEHCoWU7Mq+UUci9qTl6 +QJOAh6Mc2qpwAd4QyRCH9ZGwo//a4MYgJUo4J3ZYrSAB6XHnPfRWII2G5uzK +cXX+P4/bxDRSaK2/3Eo+RYLOiYph9kEKLQ3hOynU/5+INY3avFuAM/abX970 +NwnhK7hVD3hKdOaPAh8ORUJ9psm6lcEKZNd7/1TJNxJEr48tD2ujUHrcG9wx +SYKwNK2mr4hCZss/mij/I6FX9URnbyqFSs65S/ao+av9PtXycwRYZECvfqLu +u/V2ip8wXolu+uYF/qbus3Fhsiw1VIG8Y+9dmK/md8cZDYf1UqjwW7fvRjXf +r3CXS6OEQg6yocV8Nd85BSQb91JIq/yz7k/qvWzqcqwqBRT6H0GGIpw= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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" -> {{9, 12}, {0., 0.003486406365540069}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVz3s0lHkcBnATiULHZaqRkncub4ghypB+v69LlBqFlW4oMyxmXI5bLaVQ +SGlnosvuFBXVNqRS0mZFUemyacm9WrciKe9M7Zks1k5/POc5n/P89ViExfmH +z9DQ0OCr871NRvTVRUCDjrtV9s9iXHTOVbZH7dX8T9WiLDFeGiRyVKg9EWUS +vnm3GLs2NkX00wh4OMqlrwoVY0FR1rNGTQLcuB4SN64YV/qPFx6eRUBOs66R +20sR3lQzSBrPJaBtYF/SBF2E84/W8DmLCch9a7Jg5FoU1hs0aGlDBNC3Hi+o +fheBpw7R27cFE6BlvogxJRHioRPJp7zSCEg686j4c2YY7tiWJq2REWAm+mqZ +mbUTO0c7ztG+S0BUQvyY/fVgfN62oLarm4DugiBN/cRteMau9TYmEwQUmteJ +Zp8Nwm1vbpuxGEzYPriqnYkCccXcJs9aZyboeKr8yil/PH7k6Kj1Fia8u7pA +Zanlh11T5H60FCbM9yXGO0p88SF67FjoSSZ0r8qZzQlaj2F6UK/wFhMyGy9x +l59Yi2lFNIFfGxO4MddNWcNrcI18d0ryP0xwsvpBwZV44CHaed04Yxa450k3 +lfzqhhkG8W0KBxYcUC2cnxOBca1QucTHnwWz0u2kBjxX/GO86UXrRBY4lVQc +FxLOePaI7H1iAQtmtjgyLOJWYvOKl5elN1iQd9Pm9Q4bR+xClp3ntbBgtWZA +jGjSHj8e4S2solgQt13Q9YK0wxvMlvifNmAD3zC9OIFugztmXL2vxWVD36vn +X52UlviVw6frXnw2eNvWu2oEkLiD0dppGMuGw2Wq8cHHLNwaY3TP4xgbiueG +LXqST2A3vZnM9eVskF4Y5rneWIKrQs/W9zxnQ71Hnk1p4yIsmxp+4/aRDTaU +ard5nSlO1T12x0CXA5peQywGfQEOfdr5TGjJAbn8g+OVfXR8u609ROLNAaXd +0CWHAGNsfDLVak0kB45EJ3wwcjbE/ef+Sm7O5sBSeW6d+ZgBvsLITK8v5YBX +bzq7oX0OTvHurHN5yIEmcXOE/JUOrqrrO5A3wIHCw2GOdn7a+N9RSapAiwRb +p7Jyhz5NzMv9xb6ERYLwhVHG53s0PBwTGHnHnYQ9fSseXBudRkU61R2bBSS4 +jMfPo5In0aNPzx49zSAhe/L1HAvpOBoCl8SLxSS4T1Xe0tNSIYN1vlt060n4 +PebL6Yncr+iyjF7r/paEfsNuuleKEkn0GZVP1G65ncjPjFGi1P1mlzf9TULo +Cq+KB0Il2iBgSkN6SdjRd21gY4ASUVb24an9JDT7ZLyX2SkR7+4G/cr3JHDu +HDz57aMCPe3MCrYYI2HnAxmzOlyBbvrk+P+mdsPChPqkYAU680eeN5cioTbN +eN3KQAWKPSe1X60gAel6zXvoqUBGkcUzt34hoas1U2zIUqDtqrtXJSoSYvdP +iwQDFPKMundh/jf1Hm04HNJDIdue+6eK1Ja8PrY8pJVCGnVNGeXj6v9/HreO +bKBQaXZ7YNMECYeW7Ui7UkKh/G9dPhsnSeDn7+I1yCiUEv0Gt6udWZxc1VtA +obW+g5aDUyRonygb5hykkH390GLRfyQ4JYJs414KmS7/aKxUu0f1RHtvEoU0 +Sz/r/DRNgnVNlmW5mEKjdOXUtNpay+S0XiGF/gdetCKc + "]]}, "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->{9.00000000000002, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{9, 12}, {0., 0.003486406365540069}}, + 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.9921720496560574`*^9, + 3.9921720640770054`*^9}, {3.9921721492104263`*^9, 3.9921721640201645`*^9}}, + CellLabel-> + "Out[183]=",ExpressionUUID->"ccbe3c08-e6b2-c140-bd79-c8cb9e6ea713"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l111", ",", "l222"}], "]"}]], "Input", + CellLabel-> + "In[186]:=",ExpressionUUID->"299aaf37-7ffd-574a-9050-d17f2288bbc9"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwVzns01HkYBvAZJkbLtGHqTFkyt19CnVl1TJbv95VCSMwmXUi5ZIZJylIN +uzWr2kqKIu2ZXBKb1d2aEmHsEZbtgjCSdLGNMDdbTaqpnf3jPc/5nPOc57zO +sTsFCWYkEmmN6f5P+3EbUzDBhupjcH8sxiVl3rK9Jk9cqhbevifGCyOTl+pN +Lm+rWxbUIsberR3bX5CZQNWcHMysEuO4kuyuVnMm3G0VUJ32iHGNYLrgqCUT +IjcXWMTRxTisYZSwm8WEZDf7oe6IZJx7vGEN19HU/7797MN/RNh6lNbTh5iQ +dzVhfS81ERsP0fs3RTPhkeIu5VRlPFYVphf5ZzIhMPfTyK2cWDywKTO/QcYE +oYVMPiTdipcnLf3Kop4JtfTpIs/iaHx+8enGwcdMaN/QQjsn2ITNtgW7239k +wsZXVW8Td0fivuGbDmwGCx6bswr9rSPw1VkdKxuXs6ClyVVEuy3A0znHJ103 +sGCk4saR7o4w7J1RHU7OYEGqj4sscWEoPkRP0cacYcGzCmGBRhmE4cuodUEt +C3z/ZER5zgnE5BJyXHgfC3y0Y1K9aBVuqN6Tkf6WBZaR0nU0ez+sIp+32mnH +BpE+4HWksy9m0FL79B5seD+bsr0kE+HG+KkFQQI2lBt61PER3+HE1HmVrmls +iGoKzJGu5uOZ47JXaafZIP2c5iwqW4adrj68mH+DDTnGqrcpQg/sRVw6z+9h +w5ZylAwreLh9nD9frmODWHK0eat2MQ5xWCA4S+PAvKJv9sk7XPGA2ZUWyhIO +FC6718OvX4gfeaiv+6/hwHTsKZcBdy4eYPQqZ6dwIKxTkbXnJgv37rBt8jvB +gQvxD/LenHDGvtYzWMGXOdBau4tuftgJy2OKFUN/c8AsbHzljzMdsMw4Nuw7 +wQFLfZAiisXAEqsTdTQrLjzM5hw8UzgHx3Qqu+JduFB48JqOPt8e3+zr35IX +wIWy4dPbqDNtsd0ZyaJVQi6wi5llCquv8Yuy7vQHh7ng6Z/oVN1ojX9n/PyT +ooILwtHJG/fvW+GMAGWz110uWO6u66p/Z4Hlzc8PHHvJhSenum+1FVHwh8k8 +SRyFAB+v3UkFIWaYf+RX3gU2Aft/6IlpCSbhsR0RwroVBPxWab1gORhRCfXW +wPo4AiyyBPJz5h9Qm7qrrVNKwFDBU5kxzIBU4JVWWUoAKWG+Ilv/BtFWh26w +UhAgSDXYEBVT6KKM3rjiKQFGAUnbXqdDeTaMmr9MdspqGLl8XYck+x0uho0Q +4EBf21RYpUMhcaz8Lc9M/4TH+qSd1SHdIl6C5AUBbhecaNF7dYhfH2JT84oA +mcht3ThfhzqV2dHOWgLI2nzVnX1a9EfQL4Iqk4vWu5Ezk7To3J1jAUt0BPDo +cw/AZi1KKcvn+egJcNx1pPS5txbZCktnbPzXtF+rImWRtGizof5KnoEArarK +g3ZUg1aKmsrnvifA1v25ASQatHiopajE5NyxJ2OSZA0iNXdIL08ToOF5+lFC +NajicH9Ex0cCPoUf2Cu206Dc94NBaz8RsF3e7aukaFBG0jDuN1lp5+cQ/E6N +AkNHXUaNBKgUve9WDaoRT6FyTP5MQPpSR929TjWa9+2E3ZTJNRNPJ6PuqJF5 +hYa67wsBYtm111NX1GiSPmX8YrK62PXlyVI1+g/jaiz/ + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVzns01HkYBvAZJkbLtGHqTFkyt19CnVl1TJbv95VCSMwmXUi5ZIZJylIN +uzWr2kqKIu2ZXBKb1d2aEmHsEZbtgjCSdLGNMDdbTaqpnf3jPc/5nPOc57zO +sTsFCWYkEmmN6f5P+3EbUzDBhupjcH8sxiVl3rK9Jk9cqhbevifGCyOTl+pN +Lm+rWxbUIsberR3bX5CZQNWcHMysEuO4kuyuVnMm3G0VUJ32iHGNYLrgqCUT +IjcXWMTRxTisYZSwm8WEZDf7oe6IZJx7vGEN19HU/7797MN/RNh6lNbTh5iQ +dzVhfS81ERsP0fs3RTPhkeIu5VRlPFYVphf5ZzIhMPfTyK2cWDywKTO/QcYE +oYVMPiTdipcnLf3Kop4JtfTpIs/iaHx+8enGwcdMaN/QQjsn2ITNtgW7239k +wsZXVW8Td0fivuGbDmwGCx6bswr9rSPw1VkdKxuXs6ClyVVEuy3A0znHJ103 +sGCk4saR7o4w7J1RHU7OYEGqj4sscWEoPkRP0cacYcGzCmGBRhmE4cuodUEt +C3z/ZER5zgnE5BJyXHgfC3y0Y1K9aBVuqN6Tkf6WBZaR0nU0ez+sIp+32mnH +BpE+4HWksy9m0FL79B5seD+bsr0kE+HG+KkFQQI2lBt61PER3+HE1HmVrmls +iGoKzJGu5uOZ47JXaafZIP2c5iwqW4adrj68mH+DDTnGqrcpQg/sRVw6z+9h +w5ZylAwreLh9nD9frmODWHK0eat2MQ5xWCA4S+PAvKJv9sk7XPGA2ZUWyhIO +FC6718OvX4gfeaiv+6/hwHTsKZcBdy4eYPQqZ6dwIKxTkbXnJgv37rBt8jvB +gQvxD/LenHDGvtYzWMGXOdBau4tuftgJy2OKFUN/c8AsbHzljzMdsMw4Nuw7 +wQFLfZAiisXAEqsTdTQrLjzM5hw8UzgHx3Qqu+JduFB48JqOPt8e3+zr35IX +wIWy4dPbqDNtsd0ZyaJVQi6wi5llCquv8Yuy7vQHh7ng6Z/oVN1ojX9n/PyT +ooILwtHJG/fvW+GMAGWz110uWO6u66p/Z4Hlzc8PHHvJhSenum+1FVHwh8k8 +SRyFAB+v3UkFIWaYf+RX3gU2Aft/6IlpCSbhsR0RwroVBPxWab1gORhRCfXW +wPo4AiyyBPJz5h9Qm7qrrVNKwFDBU5kxzIBU4JVWWUoAKWG+Ilv/BtFWh26w +UhAgSDXYEBVT6KKM3rjiKQFGAUnbXqdDeTaMmr9MdspqGLl8XYck+x0uho0Q +4EBf21RYpUMhcaz8Lc9M/4TH+qSd1SHdIl6C5AUBbhecaNF7dYhfH2JT84oA +mcht3ThfhzqV2dHOWgLI2nzVnX1a9EfQL4Iqk4vWu5Ezk7To3J1jAUt0BPDo +cw/AZi1KKcvn+egJcNx1pPS5txbZCktnbPzXtF+rImWRtGizof5KnoEArarK +g3ZUg1aKmsrnvifA1v25ASQatHiopajE5NyxJ2OSZA0iNXdIL08ToOF5+lFC +NajicH9Ex0cCPoUf2Cu206Dc94NBaz8RsF3e7aukaFBG0jDuN1lp5+cQ/E6N +AkNHXUaNBKgUve9WDaoRT6FyTP5MQPpSR929TjWa9+2E3ZTJNRNPJ6PuqJF5 +hYa67wsBYtm111NX1GiSPmX8YrK62PXlyVI1+g/jaiz/ + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{9, 12}, {0., 0.0035220048684161454`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{9, 12}, {0., 0.0035220048684161454`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVzns01HkYBvAZJkbLtGHqTFkyt19CnVl1TJbv95VCSMwmXUi5ZIZJylIN +uzWr2kqKIu2ZXBKb1d2aEmHsEZbtgjCSdLGNMDdbTaqpnf3jPc/5nPOc57zO +sTsFCWYkEmmN6f5P+3EbUzDBhupjcH8sxiVl3rK9Jk9cqhbevifGCyOTl+pN +Lm+rWxbUIsberR3bX5CZQNWcHMysEuO4kuyuVnMm3G0VUJ32iHGNYLrgqCUT +IjcXWMTRxTisYZSwm8WEZDf7oe6IZJx7vGEN19HU/7797MN/RNh6lNbTh5iQ +dzVhfS81ERsP0fs3RTPhkeIu5VRlPFYVphf5ZzIhMPfTyK2cWDywKTO/QcYE +oYVMPiTdipcnLf3Kop4JtfTpIs/iaHx+8enGwcdMaN/QQjsn2ITNtgW7239k +wsZXVW8Td0fivuGbDmwGCx6bswr9rSPw1VkdKxuXs6ClyVVEuy3A0znHJ103 +sGCk4saR7o4w7J1RHU7OYEGqj4sscWEoPkRP0cacYcGzCmGBRhmE4cuodUEt +C3z/ZER5zgnE5BJyXHgfC3y0Y1K9aBVuqN6Tkf6WBZaR0nU0ez+sIp+32mnH +BpE+4HWksy9m0FL79B5seD+bsr0kE+HG+KkFQQI2lBt61PER3+HE1HmVrmls +iGoKzJGu5uOZ47JXaafZIP2c5iwqW4adrj68mH+DDTnGqrcpQg/sRVw6z+9h +w5ZylAwreLh9nD9frmODWHK0eat2MQ5xWCA4S+PAvKJv9sk7XPGA2ZUWyhIO +FC6718OvX4gfeaiv+6/hwHTsKZcBdy4eYPQqZ6dwIKxTkbXnJgv37rBt8jvB +gQvxD/LenHDGvtYzWMGXOdBau4tuftgJy2OKFUN/c8AsbHzljzMdsMw4Nuw7 +wQFLfZAiisXAEqsTdTQrLjzM5hw8UzgHx3Qqu+JduFB48JqOPt8e3+zr35IX +wIWy4dPbqDNtsd0ZyaJVQi6wi5llCquv8Yuy7vQHh7ng6Z/oVN1ojX9n/PyT +ooILwtHJG/fvW+GMAGWz110uWO6u66p/Z4Hlzc8PHHvJhSenum+1FVHwh8k8 +SRyFAB+v3UkFIWaYf+RX3gU2Aft/6IlpCSbhsR0RwroVBPxWab1gORhRCfXW +wPo4AiyyBPJz5h9Qm7qrrVNKwFDBU5kxzIBU4JVWWUoAKWG+Ilv/BtFWh26w +UhAgSDXYEBVT6KKM3rjiKQFGAUnbXqdDeTaMmr9MdspqGLl8XYck+x0uho0Q +4EBf21RYpUMhcaz8Lc9M/4TH+qSd1SHdIl6C5AUBbhecaNF7dYhfH2JT84oA +mcht3ThfhzqV2dHOWgLI2nzVnX1a9EfQL4Iqk4vWu5Ezk7To3J1jAUt0BPDo +cw/AZi1KKcvn+egJcNx1pPS5txbZCktnbPzXtF+rImWRtGizof5KnoEArarK +g3ZUg1aKmsrnvifA1v25ASQatHiopajE5NyxJ2OSZA0iNXdIL08ToOF5+lFC +NajicH9Ex0cCPoUf2Cu206Dc94NBaz8RsF3e7aukaFBG0jDuN1lp5+cQ/E6N +AkNHXUaNBKgUve9WDaoRT6FyTP5MQPpSR929TjWa9+2E3ZTJNRNPJ6PuqJF5 +hYa67wsBYtm111NX1GiSPmX8YrK62PXlyVI1+g/jaiz/ + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{9, 12}, {0., 0.0035220048684161454`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (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:eJwVk3s0lHkcxolEoeMy1UjJO5c3xBDlkn6/r0ujFIWVbiiGxYzLcaullFFI +aWeiy+4UFdU2pFLSZmWKSpdNS+7VukyRlHem9kwWa6c/nvP89znneZ7zWEYk +BkbN0NDQ8FPru5uOGKiNgEZdT+vcnwW48GidH3sxAflvTReMXIvF+nLD1nZE +AG3r8aLad9F46hCtY1soAdoWi+hTIh4eOpF2iptJQOqZR6WfhRG4c1umuE5C +gDn/q5UwZyd2jXOao3OXgNjkpDGH66H4vF1RfXcPAT1FIVoGKdvwjF3rbU0n +CCi2aODPPhuC29/cNmfSGbBdvqqDgYJx1dxm73pXBuh6qwIqqUA8fuToqM0W +Bry7ukBlpR2A3dOlAZrpDJjvT4x3lvnjQ7SEsfCTDOhZlTebHbIew7Rcv/gW +A4RNlzjLT6zFmiWakQHtDODEXzdjDq/BddLd6Wn/MMDZ+gcFR+SFhzTP6yWa +MMGzQLyp7FcPTDdMalc4MuGAauH8vGiM63nKJb6BTJiVZS82dHHHPyaZXbRJ +YYJzWdVxHuGKZ49I3qcUMWFmqxPdMnEltqh6eVl8gwkFN21f77B1wm5kxXmX +Vias1gqK50864McjLgtrKCYkbo/sfkHa4w3mSwJPG7LAzyirNJlmiztnXL2v +zWFB/6vnX52VVviV46frXD8W+NjJ3DWCSNxJb+sySmDB4QrVuPwxE7fFG9/z +OsaC0rkRi54UEthDfyZjfSULxBeGXdxvLME14Wdlvc9ZIPMqsC1vWoQlU8Nv +PD6ywJZS7bZoMMMZesfuGOqxQYs7xKTTFuDwp13PeFZskEo/OF3ZR8O32zvC +RD5sUNoPXXIMMsEmJzOs18Sw4Uhc8gdjVyM8cO6vtJZcNiyV5jdYjBniK3Rh +lqycDdy+LFZjxxyc7tPV4PaQDc2ClmjpK11c09B/oGCQDcWHI5zsA3Twv6Oi +jEhtEuycKyod+7WwS/4vDmVMEngvjLM/39PEw/HBMXc8SdjTv+LBtdFpVKJb +27k5kgS38aR5VNokevTp2aOn2STkTr6eYykeR0PglnKxlATPqepb+toqZLjO +f4uejITf47+cnsj/ii5LaPWeb0kYMOqhcdOVaJSmnJqeJkF7mVSzj0ehTXVy +0mQuAe2D+1InaHz8tCsn1HKMhJ0PJIzaKAWqDhwvPjyLgLwWPWOPl3zscneD +QfV7Eth3Dp789lGBtqvuXhWpSEjYP82PHKRQZEnOsyYtAjw4XiIPjgBT1g5R +GQMktPhmv5fYK5FxTOnMrV9I6G4TCoyYClSe2xHcPEHCoWU7Mq+UUci9qTl6 +QJOAh6Mc2qpwAd4QyRCH9ZGwo//a4MYgJUo4J3ZYrSAB6XHnPfRWII2G5uzK +cXX+P4/bxDRSaK2/3Eo+RYLOiYph9kEKLQ3hOynU/5+INY3avFuAM/abX970 +NwnhK7hVD3hKdOaPAh8ORUJ9psm6lcEKZNd7/1TJNxJEr48tD2ujUHrcG9wx +SYKwNK2mr4hCZss/mij/I6FX9URnbyqFSs65S/ao+av9PtXycwRYZECvfqLu +u/V2ip8wXolu+uYF/qbus3Fhsiw1VIG8Y+9dmK/md8cZDYf1UqjwW7fvRjXf +r3CXS6OEQg6yocV8Nd85BSQb91JIq/yz7k/qvWzqcqwqBRT6H0GGIpw= + "], {{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], 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:eJwVk3s0lHkcxolEoeMy1UjJO5c3xBDlkn6/r0ujFIWVbiiGxYzLcaullFFI +aWeiy+4UFdU2pFLSZmWKSpdNS+7VukyRlHem9kwWa6c/nvP89znneZ7zWEYk +BkbN0NDQ8FPru5uOGKiNgEZdT+vcnwW48GidH3sxAflvTReMXIvF+nLD1nZE +AG3r8aLad9F46hCtY1soAdoWi+hTIh4eOpF2iptJQOqZR6WfhRG4c1umuE5C +gDn/q5UwZyd2jXOao3OXgNjkpDGH66H4vF1RfXcPAT1FIVoGKdvwjF3rbU0n +CCi2aODPPhuC29/cNmfSGbBdvqqDgYJx1dxm73pXBuh6qwIqqUA8fuToqM0W +Bry7ukBlpR2A3dOlAZrpDJjvT4x3lvnjQ7SEsfCTDOhZlTebHbIew7Rcv/gW +A4RNlzjLT6zFmiWakQHtDODEXzdjDq/BddLd6Wn/MMDZ+gcFR+SFhzTP6yWa +MMGzQLyp7FcPTDdMalc4MuGAauH8vGiM63nKJb6BTJiVZS82dHHHPyaZXbRJ +YYJzWdVxHuGKZ49I3qcUMWFmqxPdMnEltqh6eVl8gwkFN21f77B1wm5kxXmX +Vias1gqK50864McjLgtrKCYkbo/sfkHa4w3mSwJPG7LAzyirNJlmiztnXL2v +zWFB/6vnX52VVviV46frXD8W+NjJ3DWCSNxJb+sySmDB4QrVuPwxE7fFG9/z +OsaC0rkRi54UEthDfyZjfSULxBeGXdxvLME14Wdlvc9ZIPMqsC1vWoQlU8Nv +PD6ywJZS7bZoMMMZesfuGOqxQYs7xKTTFuDwp13PeFZskEo/OF3ZR8O32zvC +RD5sUNoPXXIMMsEmJzOs18Sw4Uhc8gdjVyM8cO6vtJZcNiyV5jdYjBniK3Rh +lqycDdy+LFZjxxyc7tPV4PaQDc2ClmjpK11c09B/oGCQDcWHI5zsA3Twv6Oi +jEhtEuycKyod+7WwS/4vDmVMEngvjLM/39PEw/HBMXc8SdjTv+LBtdFpVKJb +27k5kgS38aR5VNokevTp2aOn2STkTr6eYykeR0PglnKxlATPqepb+toqZLjO +f4uejITf47+cnsj/ii5LaPWeb0kYMOqhcdOVaJSmnJqeJkF7mVSzj0ehTXVy +0mQuAe2D+1InaHz8tCsn1HKMhJ0PJIzaKAWqDhwvPjyLgLwWPWOPl3zscneD +QfV7Eth3Dp789lGBtqvuXhWpSEjYP82PHKRQZEnOsyYtAjw4XiIPjgBT1g5R +GQMktPhmv5fYK5FxTOnMrV9I6G4TCoyYClSe2xHcPEHCoWU7Mq+UUci9qTl6 +QJOAh6Mc2qpwAd4QyRCH9ZGwo//a4MYgJUo4J3ZYrSAB6XHnPfRWII2G5uzK +cXX+P4/bxDRSaK2/3Eo+RYLOiYph9kEKLQ3hOynU/5+INY3avFuAM/abX970 +NwnhK7hVD3hKdOaPAh8ORUJ9psm6lcEKZNd7/1TJNxJEr48tD2ujUHrcG9wx +SYKwNK2mr4hCZss/mij/I6FX9URnbyqFSs65S/ao+av9PtXycwRYZECvfqLu +u/V2ip8wXolu+uYF/qbus3Fhsiw1VIG8Y+9dmK/md8cZDYf1UqjwW7fvRjXf +r3CXS6OEQg6yocV8Nd85BSQb91JIq/yz7k/qvWzqcqwqBRT6H0GGIpw= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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" -> {{9, 12}, {0., 0.003486406365540069}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVz3s0lHkcBnATiULHZaqRkncub4ghypB+v69LlBqFlW4oMyxmXI5bLaVQ +SGlnosvuFBXVNqRS0mZFUemyacm9WrciKe9M7Zks1k5/POc5n/P89ViExfmH +z9DQ0OCr871NRvTVRUCDjrtV9s9iXHTOVbZH7dX8T9WiLDFeGiRyVKg9EWUS +vnm3GLs2NkX00wh4OMqlrwoVY0FR1rNGTQLcuB4SN64YV/qPFx6eRUBOs66R +20sR3lQzSBrPJaBtYF/SBF2E84/W8DmLCch9a7Jg5FoU1hs0aGlDBNC3Hi+o +fheBpw7R27cFE6BlvogxJRHioRPJp7zSCEg686j4c2YY7tiWJq2REWAm+mqZ +mbUTO0c7ztG+S0BUQvyY/fVgfN62oLarm4DugiBN/cRteMau9TYmEwQUmteJ +Zp8Nwm1vbpuxGEzYPriqnYkCccXcJs9aZyboeKr8yil/PH7k6Kj1Fia8u7pA +Zanlh11T5H60FCbM9yXGO0p88SF67FjoSSZ0r8qZzQlaj2F6UK/wFhMyGy9x +l59Yi2lFNIFfGxO4MddNWcNrcI18d0ryP0xwsvpBwZV44CHaed04Yxa450k3 +lfzqhhkG8W0KBxYcUC2cnxOBca1QucTHnwWz0u2kBjxX/GO86UXrRBY4lVQc +FxLOePaI7H1iAQtmtjgyLOJWYvOKl5elN1iQd9Pm9Q4bR+xClp3ntbBgtWZA +jGjSHj8e4S2solgQt13Q9YK0wxvMlvifNmAD3zC9OIFugztmXL2vxWVD36vn +X52UlviVw6frXnw2eNvWu2oEkLiD0dppGMuGw2Wq8cHHLNwaY3TP4xgbiueG +LXqST2A3vZnM9eVskF4Y5rneWIKrQs/W9zxnQ71Hnk1p4yIsmxp+4/aRDTaU +ard5nSlO1T12x0CXA5peQywGfQEOfdr5TGjJAbn8g+OVfXR8u609ROLNAaXd +0CWHAGNsfDLVak0kB45EJ3wwcjbE/ef+Sm7O5sBSeW6d+ZgBvsLITK8v5YBX +bzq7oX0OTvHurHN5yIEmcXOE/JUOrqrrO5A3wIHCw2GOdn7a+N9RSapAiwRb +p7Jyhz5NzMv9xb6ERYLwhVHG53s0PBwTGHnHnYQ9fSseXBudRkU61R2bBSS4 +jMfPo5In0aNPzx49zSAhe/L1HAvpOBoCl8SLxSS4T1Xe0tNSIYN1vlt060n4 +PebL6Yncr+iyjF7r/paEfsNuuleKEkn0GZVP1G65ncjPjFGi1P1mlzf9TULo +Cq+KB0Il2iBgSkN6SdjRd21gY4ASUVb24an9JDT7ZLyX2SkR7+4G/cr3JHDu +HDz57aMCPe3MCrYYI2HnAxmzOlyBbvrk+P+mdsPChPqkYAU680eeN5cioTbN +eN3KQAWKPSe1X60gAel6zXvoqUBGkcUzt34hoas1U2zIUqDtqrtXJSoSYvdP +iwQDFPKMundh/jf1Hm04HNJDIdue+6eK1Ja8PrY8pJVCGnVNGeXj6v9/HreO +bKBQaXZ7YNMECYeW7Ui7UkKh/G9dPhsnSeDn7+I1yCiUEv0Gt6udWZxc1VtA +obW+g5aDUyRonygb5hykkH390GLRfyQ4JYJs414KmS7/aKxUu0f1RHtvEoU0 +Sz/r/DRNgnVNlmW5mEKjdOXUtNpay+S0XiGF/gdetCKc + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{9, 12}, {0., 0.003486406365540069}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVz3s0lHkcBnATiULHZaqRkncub4ghypB+v69LlBqFlW4oMyxmXI5bLaVQ +SGlnosvuFBXVNqRS0mZFUemyacm9WrciKe9M7Zks1k5/POc5n/P89ViExfmH +z9DQ0OCr871NRvTVRUCDjrtV9s9iXHTOVbZH7dX8T9WiLDFeGiRyVKg9EWUS +vnm3GLs2NkX00wh4OMqlrwoVY0FR1rNGTQLcuB4SN64YV/qPFx6eRUBOs66R +20sR3lQzSBrPJaBtYF/SBF2E84/W8DmLCch9a7Jg5FoU1hs0aGlDBNC3Hi+o +fheBpw7R27cFE6BlvogxJRHioRPJp7zSCEg686j4c2YY7tiWJq2REWAm+mqZ +mbUTO0c7ztG+S0BUQvyY/fVgfN62oLarm4DugiBN/cRteMau9TYmEwQUmteJ +Zp8Nwm1vbpuxGEzYPriqnYkCccXcJs9aZyboeKr8yil/PH7k6Kj1Fia8u7pA +Zanlh11T5H60FCbM9yXGO0p88SF67FjoSSZ0r8qZzQlaj2F6UK/wFhMyGy9x +l59Yi2lFNIFfGxO4MddNWcNrcI18d0ryP0xwsvpBwZV44CHaed04Yxa450k3 +lfzqhhkG8W0KBxYcUC2cnxOBca1QucTHnwWz0u2kBjxX/GO86UXrRBY4lVQc +FxLOePaI7H1iAQtmtjgyLOJWYvOKl5elN1iQd9Pm9Q4bR+xClp3ntbBgtWZA +jGjSHj8e4S2solgQt13Q9YK0wxvMlvifNmAD3zC9OIFugztmXL2vxWVD36vn +X52UlviVw6frXnw2eNvWu2oEkLiD0dppGMuGw2Wq8cHHLNwaY3TP4xgbiueG +LXqST2A3vZnM9eVskF4Y5rneWIKrQs/W9zxnQ71Hnk1p4yIsmxp+4/aRDTaU +ard5nSlO1T12x0CXA5peQywGfQEOfdr5TGjJAbn8g+OVfXR8u609ROLNAaXd +0CWHAGNsfDLVak0kB45EJ3wwcjbE/ef+Sm7O5sBSeW6d+ZgBvsLITK8v5YBX +bzq7oX0OTvHurHN5yIEmcXOE/JUOrqrrO5A3wIHCw2GOdn7a+N9RSapAiwRb +p7Jyhz5NzMv9xb6ERYLwhVHG53s0PBwTGHnHnYQ9fSseXBudRkU61R2bBSS4 +jMfPo5In0aNPzx49zSAhe/L1HAvpOBoCl8SLxSS4T1Xe0tNSIYN1vlt060n4 +PebL6Yncr+iyjF7r/paEfsNuuleKEkn0GZVP1G65ncjPjFGi1P1mlzf9TULo +Cq+KB0Il2iBgSkN6SdjRd21gY4ASUVb24an9JDT7ZLyX2SkR7+4G/cr3JHDu +HDz57aMCPe3MCrYYI2HnAxmzOlyBbvrk+P+mdsPChPqkYAU680eeN5cioTbN +eN3KQAWKPSe1X60gAel6zXvoqUBGkcUzt34hoas1U2zIUqDtqrtXJSoSYvdP +iwQDFPKMundh/jf1Hm04HNJDIdue+6eK1Ja8PrY8pJVCGnVNGeXj6v9/HreO +bKBQaXZ7YNMECYeW7Ui7UkKh/G9dPhsnSeDn7+I1yCiUEv0Gt6udWZxc1VtA +obW+g5aDUyRonygb5hykkH390GLRfyQ4JYJs414KmS7/aKxUu0f1RHtvEoU0 +Sz/r/DRNgnVNlmW5mEKjdOXUtNpay+S0XiGF/gdetCKc + "]]}, "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:eJwVk3s0lHkcxolEoeMy1UjJO5c3xBDlkn6/r0ujFIWVbiiGxYzLcaullFFI +aWeiy+4UFdU2pFLSZmWKSpdNS+7VukyRlHem9kwWa6c/nvP89znneZ7zWEYk +BkbN0NDQ8FPru5uOGKiNgEZdT+vcnwW48GidH3sxAflvTReMXIvF+nLD1nZE +AG3r8aLad9F46hCtY1soAdoWi+hTIh4eOpF2iptJQOqZR6WfhRG4c1umuE5C +gDn/q5UwZyd2jXOao3OXgNjkpDGH66H4vF1RfXcPAT1FIVoGKdvwjF3rbU0n +CCi2aODPPhuC29/cNmfSGbBdvqqDgYJx1dxm73pXBuh6qwIqqUA8fuToqM0W +Bry7ukBlpR2A3dOlAZrpDJjvT4x3lvnjQ7SEsfCTDOhZlTebHbIew7Rcv/gW +A4RNlzjLT6zFmiWakQHtDODEXzdjDq/BddLd6Wn/MMDZ+gcFR+SFhzTP6yWa +MMGzQLyp7FcPTDdMalc4MuGAauH8vGiM63nKJb6BTJiVZS82dHHHPyaZXbRJ +YYJzWdVxHuGKZ49I3qcUMWFmqxPdMnEltqh6eVl8gwkFN21f77B1wm5kxXmX +Vias1gqK50864McjLgtrKCYkbo/sfkHa4w3mSwJPG7LAzyirNJlmiztnXL2v +zWFB/6vnX52VVviV46frXD8W+NjJ3DWCSNxJb+sySmDB4QrVuPwxE7fFG9/z +OsaC0rkRi54UEthDfyZjfSULxBeGXdxvLME14Wdlvc9ZIPMqsC1vWoQlU8Nv +PD6ywJZS7bZoMMMZesfuGOqxQYs7xKTTFuDwp13PeFZskEo/OF3ZR8O32zvC +RD5sUNoPXXIMMsEmJzOs18Sw4Uhc8gdjVyM8cO6vtJZcNiyV5jdYjBniK3Rh +lqycDdy+LFZjxxyc7tPV4PaQDc2ClmjpK11c09B/oGCQDcWHI5zsA3Twv6Oi +jEhtEuycKyod+7WwS/4vDmVMEngvjLM/39PEw/HBMXc8SdjTv+LBtdFpVKJb +27k5kgS38aR5VNokevTp2aOn2STkTr6eYykeR0PglnKxlATPqepb+toqZLjO +f4uejITf47+cnsj/ii5LaPWeb0kYMOqhcdOVaJSmnJqeJkF7mVSzj0ehTXVy +0mQuAe2D+1InaHz8tCsn1HKMhJ0PJIzaKAWqDhwvPjyLgLwWPWOPl3zscneD +QfV7Eth3Dp789lGBtqvuXhWpSEjYP82PHKRQZEnOsyYtAjw4XiIPjgBT1g5R +GQMktPhmv5fYK5FxTOnMrV9I6G4TCoyYClSe2xHcPEHCoWU7Mq+UUci9qTl6 +QJOAh6Mc2qpwAd4QyRCH9ZGwo//a4MYgJUo4J3ZYrSAB6XHnPfRWII2G5uzK +cXX+P4/bxDRSaK2/3Eo+RYLOiYph9kEKLQ3hOynU/5+INY3avFuAM/abX970 +NwnhK7hVD3hKdOaPAh8ORUJ9psm6lcEKZNd7/1TJNxJEr48tD2ujUHrcG9wx +SYKwNK2mr4hCZss/mij/I6FX9URnbyqFSs65S/ao+av9PtXycwRYZECvfqLu +u/V2ip8wXolu+uYF/qbus3Fhsiw1VIG8Y+9dmK/md8cZDYf1UqjwW7fvRjXf +r3CXS6OEQg6yocV8Nd85BSQb91JIq/yz7k/qvWzqcqwqBRT6H0GGIpw= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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" -> {{9, 12}, {0., 0.003486406365540069}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVz3s0lHkcBnATiULHZaqRkncub4ghypB+v69LlBqFlW4oMyxmXI5bLaVQ +SGlnosvuFBXVNqRS0mZFUemyacm9WrciKe9M7Zks1k5/POc5n/P89ViExfmH +z9DQ0OCr871NRvTVRUCDjrtV9s9iXHTOVbZH7dX8T9WiLDFeGiRyVKg9EWUS +vnm3GLs2NkX00wh4OMqlrwoVY0FR1rNGTQLcuB4SN64YV/qPFx6eRUBOs66R +20sR3lQzSBrPJaBtYF/SBF2E84/W8DmLCch9a7Jg5FoU1hs0aGlDBNC3Hi+o +fheBpw7R27cFE6BlvogxJRHioRPJp7zSCEg686j4c2YY7tiWJq2REWAm+mqZ +mbUTO0c7ztG+S0BUQvyY/fVgfN62oLarm4DugiBN/cRteMau9TYmEwQUmteJ +Zp8Nwm1vbpuxGEzYPriqnYkCccXcJs9aZyboeKr8yil/PH7k6Kj1Fia8u7pA +Zanlh11T5H60FCbM9yXGO0p88SF67FjoSSZ0r8qZzQlaj2F6UK/wFhMyGy9x +l59Yi2lFNIFfGxO4MddNWcNrcI18d0ryP0xwsvpBwZV44CHaed04Yxa450k3 +lfzqhhkG8W0KBxYcUC2cnxOBca1QucTHnwWz0u2kBjxX/GO86UXrRBY4lVQc +FxLOePaI7H1iAQtmtjgyLOJWYvOKl5elN1iQd9Pm9Q4bR+xClp3ntbBgtWZA +jGjSHj8e4S2solgQt13Q9YK0wxvMlvifNmAD3zC9OIFugztmXL2vxWVD36vn +X52UlviVw6frXnw2eNvWu2oEkLiD0dppGMuGw2Wq8cHHLNwaY3TP4xgbiueG +LXqST2A3vZnM9eVskF4Y5rneWIKrQs/W9zxnQ71Hnk1p4yIsmxp+4/aRDTaU +ard5nSlO1T12x0CXA5peQywGfQEOfdr5TGjJAbn8g+OVfXR8u609ROLNAaXd +0CWHAGNsfDLVak0kB45EJ3wwcjbE/ef+Sm7O5sBSeW6d+ZgBvsLITK8v5YBX +bzq7oX0OTvHurHN5yIEmcXOE/JUOrqrrO5A3wIHCw2GOdn7a+N9RSapAiwRb +p7Jyhz5NzMv9xb6ERYLwhVHG53s0PBwTGHnHnYQ9fSseXBudRkU61R2bBSS4 +jMfPo5In0aNPzx49zSAhe/L1HAvpOBoCl8SLxSS4T1Xe0tNSIYN1vlt060n4 +PebL6Yncr+iyjF7r/paEfsNuuleKEkn0GZVP1G65ncjPjFGi1P1mlzf9TULo +Cq+KB0Il2iBgSkN6SdjRd21gY4ASUVb24an9JDT7ZLyX2SkR7+4G/cr3JHDu +HDz57aMCPe3MCrYYI2HnAxmzOlyBbvrk+P+mdsPChPqkYAU680eeN5cioTbN +eN3KQAWKPSe1X60gAel6zXvoqUBGkcUzt34hoas1U2zIUqDtqrtXJSoSYvdP +iwQDFPKMundh/jf1Hm04HNJDIdue+6eK1Ja8PrY8pJVCGnVNGeXj6v9/HreO +bKBQaXZ7YNMECYeW7Ui7UkKh/G9dPhsnSeDn7+I1yCiUEv0Gt6udWZxc1VtA +obW+g5aDUyRonygb5hykkH390GLRfyQ4JYJs414KmS7/aKxUu0f1RHtvEoU0 +Sz/r/DRNgnVNlmW5mEKjdOXUtNpay+S0XiGF/gdetCKc + "]]}, "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->{9.00000000000002, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{9, 12}, {0., 0.0035220048684161454`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.992172181493864*^9}, + CellLabel-> + "Out[186]=",ExpressionUUID->"7f664d8d-810a-7546-9651-c7d232b8712f"] +}, 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", ",", "3.5", ",", "8"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.992172116624462*^9, 3.9921721169261513`*^9}, { + 3.992172216442732*^9, 3.992172248023657*^9}}, + CellLabel-> + "In[192]:=",ExpressionUUID->"f3943b5b-dc03-1343-88ab-8e6b6abbdcf4"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwVVmk0lg0TRqSkkkTPcj+3oiiSStnfGYrIFtmj7CU7EYqyhCxlJ0shS8nu +iXh7S8qSLSIqkiilrNmlfL4fc+bMmeXMdV3nzJkdVi56tmwsLCwrq/Z/73Xl +FDcLCzdm3tN8huoTUPbC4V4nGzduFON71qw2AWNcwXJ5HNxoEKDoabga29xm +ntfewI27+tnYHY5PgG7Ftro0fm4sqHbJjVaZAPHJHj/ZfdzITJTraVWagM/W +ZhPupqvx53u5m+QmQFPD9s1XJjc+EqYm390zAWrGJqNsPhtRkSHw6hjrBEwI +BbDvkNyEfb2iCtNd42Af9Dwyb2gT2p+ZzlHJGof1O76ct83djD0U5eYxy3HI +/yd9B68ED2bGaf58QhuHwYgqmahoHjx4Jpk+VjsG7EKDoQpTPDhz8EzUjNkY +XLktbOiosQWpW3Zt7xgfhbX7jdukC7cgI82Y+4vNKAzfy6kLWseL8cl6PE/b +f0KJ1crMGitejKiqr3ET+wmReKKNfMGLNXfG3VLO/oCnf4p2PyG24prdlfSq +sBFg+8C+Z+bqVkwQmCmyCfoOkiznrC0GtmIpW6rvYdtvwOQYomvJ8aHOys76 +1zAMJ/aevPY2lQ9ba5VyS79+gSMSPVb9c3xY+z6yIzh8CKR0dSYCTbbhWoVA +q9e/PwP9aWf56eptGGb9QviL1QCYcrnPM/n4sX/Rqye88iPke7J+feDFj4P/ +OWjFWX6AkzX5uuQbfkwqF1P9odUDA/oWc41iAlhtPV1EWHZB4DpOlU1RAtgo +/CRmzZkO8E1t4O36JoDbS2jDSYGtEKzlE374xHaspQr2rjdvBG91abnm/O3I +EAudzh58AbXCm+0/s1Nwd5lsYZdiDRSouUueX0vBV8WltaL7ayDB8e38OCcF +jdsNPUIEa+A8MzVkmYuCmoV1GWfW1MCmY6LZAlsouOu3IBd73DMwsVb6pEVQ +MD47VV2k+ClMZnoYVB+m4IrJg78Fs0+AQb5TirOj4I52946O6iq4ni+9geU8 +BUOfF7S03quC0cNJXY72FHz3/Fb6+8gqqNI0PKfqSMG4RCwSPFsF+r5dkYtu +q/O3qm1wZK+C8LftPWf9KGjecDttWvcxzEe8chKPp6BDo+GfewsV0L5Qfbvu +OQXNkjiP2ngw4cyjpUNiLyhYHMZRetOCCWNucm3RLylIdFzY0qDFBK6fVWxm +DRSsvD4UaynKhGMfHzv8aqHg0POpRYX+cqh8XqFIvlvdrzvHMEyzHO6El332 +Hqfgvqa13mqHysCRnr9HnEbFDwacvIRoCVxKjzlYQqeihFdb3VGBEghk+MhL +Mai4yFNG+KwtgSRBNS2FHVRsYr92kGwqXtVj2FVThIra7dwVb1WKYfu+nY8d +D1FxhM3iSa5yEbxQTFEt1KCizRqro7a6BUA9G24tcYWK2QNlnUXP7kPWcWfn +ZD8qmmhY7EzOvQ97JfV82K5S0dN3Ricp6j7IsVJvdQdQ8Xqf/Jae0/fB9N6D +av9QKrZbaReZLuZB6rfGLa9jqaia89vGTiYP6K6cNS4PqPjGPzpSsj4Hso1/ +Nr3Pp2KdWIXRv8U5IK70+u3RAiqqe8xpm97OAQXepJ8CxVRcv9gR0eWYA2bM +3QI1TCrWdFfUPebLgfQFFWeeGiqy2IdekjqfDYyAYHppNxWd+K9CKnEPdkrw +JMq+W+1ficYhznsg0pu6ufY9Ffti9FbwVxZIHi5n6+xbxXP1k7tiQxYojXz+ +PjNIRbeHK+Yy7llgowuPZCaoePOgQLlISyY82LGkVcNJQ78FyV7vWxlQ1Ha9 +QW09DRP7L/sYX8mAsstblDq4aJhylr1Bwz4Dqt+KSg1upOF3xUv7nY5mQMsN +Iyo7Hw17VCpGDk7dhfEp5vBxQRoedmf+u7X1DkjVulx9LUNDu8Lqp5UZaVDR +Pb+kKEfDluv9vuYBaSDz86pXgTwNx8ouCu60SgN5vminG//QcMI89SWncBoo +25WcPnqMhvzviv9VepAKOlxT0pU6NHxYfXLAtCoFLui5T96xo6F7wZoD3hPJ +MGq35LDxPA3197q0NXcmg/PlwG+X7Vfx3J3XkX+cDG7Zsf3GjjRUuVWb6RSQ +DN5zZS287jSU+ps0Td+WDNdTpu+H+NGQpf4xb6xSEmQMXrR0jqehYWXj2yNF +CXBC9GPh2wQangvkCNVPTIBpJ5UlhSQa7gw4oB3unwCqi9viNqTQkOE82ayo +kwA/N1e+vH+Xhn9ONanWTsXDEcVFkaF8GvJtc3PeLx8PzUl+40bPV/HNL8Zv ++hQLFz9+lXtWS8PKfZkLnE2xwBDSDt39cpWvrMuz/I9iwbWIIThbT0O2a9rO +nhGxwF/3TDe2hYbHPXKPH5SNBYtfrI9aemh4pE+MmpocA3OaIZeVxmkYNrNc +nWcXDXSjxCMNEzRcMZaJydCLBiXL3CnNKRpeH6VRS/6JhkjP+nPGMzRMvzMy +wisQDUJ31uq7LNFwk5Y82RRzC05OhIinr6VjSuHIwZOWNyE/JvTjAoOO6XmD +DkKCkdCempTsL0jH5H2FG53+RMBsTt4p9p10RKMTzP4PEYDVDa8276LjwFUv +R9nECOgZ5KzYLUZHWuNv/sZNEcAuFXZTX5qO6/4NOCDCGQ5nusOgRIeOd/mf +Tb7fGgasagnLNF06FnrsTO+eD4XsqsyqUD062tbQRqZ6Q+FHWvWhswZ0HBP/ +91tQdih4WY+KbDpNRwl+JQVe6VC4OanD42hHx8ePpzyeWobAf1wCn0X86Pi+ +K8EpoiUYLK4I3Ynzp6MkyqUKMYOBbXz/6ZWrdGzJ29bVnRoMah1qb7sD6fhQ +eWApyiEYupJ8X10Po2PZ7rI9CtzBMCrcXzoUR0eXF/89uaYXBHTICbybT8el +u+7PZqYCQN7TpGhPAR1rKC/6Zz8EgOnDjR/KC+lYXSs8zfsyAG4LeB1oLKFj +6o5+/4zEAOCfVB2YrKCj7/bOWg7FAODJ/K6o/IKOIhHxFv03rwH7GvHFL710 +/PFsV+NUhD8IyQ4Iu3yko06TroifjT8ou8SfXOynoxIHN0VW0R8CepfzNg7S +ceQTs0dpwg/+lrcaHvm+qk+daX20gR8s2LgwQ2foKB/BlJ/dewVG68tc9m4k +sPC283v7eR84JHHcsXATgY9meEYUu33AN6H3vCQPgT3syqFyj3xgnQ271ZGt +BAYP8VUWePiAEKuhvjKFwEbfvi8uv7zBVH5RxnQXgSf3evOcmL8Er4qBLVyR +wIefPgbSCC/gEej6yw0E7m6e8HrI4gWG/ud/30ICD2lGRJ754glfNGNmEo4S +mLLM6buvwBNYfgwOZ6oT+Oaftjl7RU+QEQ5prjIgMFVe46Wc3UXITW6JH3Ei +kJmlZSbR7g4XzpnH6bkQuEefzdu7yh0kjozH/OtKYIN0KcvHLHeo7Nx8K8qD +wOa3x77OeLpD46ZTNw74EAh9zj1mhDv8CH7v5xNM4C/bmPQZVzeQcBu2W59K +oFKiv3rQXlf4BZds3dMIfPKAyfGV3xUqNq2z6U0nsH19Z535GleAgj2WhRmr +9fIaPSJVLnDym+Np3VwCP0sn8wgKuoC7+bTO7VIC/QLbzaznnKBCnUV2TyOB +vy1ndwzWOsBcn0xuySsCA6Ubb0nccQBpV7etMs0E9r9Z5sj3cYDHiYNjqm0E +zgZc3b3vgANUD73Msuki0JrnFtuZrAvw1O8Gd8YAgSL1LBqyUfbQUMo7wL9I +oEpA7tDpoHOwTkVD684Ssfqv1HOQNudA7V1Q9a5lAjuq4vy4VM5B09+ZeKkV +Ap3+scgz4TwHLRo96nocDLRdtr/WGWUH7V9Ty6O2MDCFve0LV5YtvKPsCmXf +y8CGap1IHLaGRD7TOTcxBm5YwNCLrdagv/mW7SdxBrL/Zk2vZ1pDO/vi0er9 +DNzG+y7yZZA1NEy0sLgeZmBho1WpkJA1VNRd9O1FBsaYOO3SPWcF8W4vncqM +GPhqOXHhGrsl6Dku9pEmDDz74ZC49IQF8JyT0IwyZWClSMlZzg8WEGmWvPe8 +OQMfbt+hOVtsAUHHHb8R1gyMb5X6ucbcAtwJPssbzgycOiVpnX3pLJx8Za1v +cZ2Bh+/ms77hN4cjs97x9SEMFBBevVXTZkDbcbNLPIyB+WWRyZavzWDY+7H+ +YjgD7b0KOtPCzOCK6EaD2GgGmhAuLDx/TsP90AqDl6kMDM8W83o6ZgqsquuN +RMsYaOBRXD05agzDboykm+UMdC6v1NzTZgwt6Yd6ZpgMFLoQQQ8tNobkWXOj +55UMvF1+sKHU3RgkcsqMTP9joEiA1c2nS0Zgym5mHNnIwGLOpeLoLUZQVltk +MtnPwKqS+b3zxgbAV+6wznOAgbKn+ZbUFAzA655o5eJnBr4hD6TUkAYgG5zF +t+YrAzvM5iIEv+lDjUri620/GZjpcXYh/ZI+vG70U5GfX60/m9xoe/cUjLZp +HgjZTKLZ8qjvz3V6oP1s/QDXFhK7vt0dT5/UhZLi+pu3eEk8dcI3zvWdLnhE +42jyNhLVFhqaPO/rwpKuVN5DGonJ7kNuv9V1Yf1bGtEhQuKVhwzj9tiTsLv3 +xzo6rs5rjbgi6KkNHIeyq0KUSOzRspSs1NaGL+HmF6aUSRTx74/zE9WGLLn2 +5noVEtN/LQcm92kBmfLoppsGiZtlimpYjmvBdpNrfA2GJJqWjt+wF9aEDT3b +BN2dSPQ4FrJOkOUE/JB43d7nTKKyOK1c6ZM6NIWEBRx3JVE4Ols38qk6hB35 +PUj3IHFIV+Feqp86sCcO5DR4k2hY8uFA+h81+Kv/UIwIJjGbnhvMyqEGk29Q +ujGFxJqw2qdrJVXhoagGv3kaiZ18Ud/yeFTBzt9gdiqdxH3vgrouTqnAxz0X +ymmZJIots3LHlKtA07W4/S55JEp1tfq0yKpAjsSwCD+TxPVD1nF07WNgGh6x +3aaVxIkKQ0yNVwb+gYT5hTYS/c5sf6PqqwwdhzO6o9pJXLCfAwELZVD7zIyv +7CRxpe/x113iynBYpp9nwwcSJVqHPs3UKQHPsOT6suFVPjU10yRYlKBZXv67 +6ncShR4JvOT5jhASo9LQO0KigW/eE752hD8Kptc5xkgcWOCwC8hA+BEXxGoy +TaKl0ET0d2WE3JGogbEZErcP6Ut1iSFYQvKzwDkSVZdz5Qb4EN79KPArWCTR +6Lnu5dI2gDisNFP6vcrPwsUXNzIBtBOfy3cvk8j9a8458yIA12gz1eHvar7B +cvfCcYA6pe7FlZVVPdY+io2iAfwP3fwlbA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVVmk0lg0TRqSkkkTPcj+3oiiSStnfGYrIFtmj7CU7EYqyhCxlJ0shS8nu +iXh7S8qSLSIqkiilrNmlfL4fc+bMmeXMdV3nzJkdVi56tmwsLCwrq/Z/73Xl +FDcLCzdm3tN8huoTUPbC4V4nGzduFON71qw2AWNcwXJ5HNxoEKDoabga29xm +ntfewI27+tnYHY5PgG7Ftro0fm4sqHbJjVaZAPHJHj/ZfdzITJTraVWagM/W +ZhPupqvx53u5m+QmQFPD9s1XJjc+EqYm390zAWrGJqNsPhtRkSHw6hjrBEwI +BbDvkNyEfb2iCtNd42Af9Dwyb2gT2p+ZzlHJGof1O76ct83djD0U5eYxy3HI +/yd9B68ED2bGaf58QhuHwYgqmahoHjx4Jpk+VjsG7EKDoQpTPDhz8EzUjNkY +XLktbOiosQWpW3Zt7xgfhbX7jdukC7cgI82Y+4vNKAzfy6kLWseL8cl6PE/b +f0KJ1crMGitejKiqr3ET+wmReKKNfMGLNXfG3VLO/oCnf4p2PyG24prdlfSq +sBFg+8C+Z+bqVkwQmCmyCfoOkiznrC0GtmIpW6rvYdtvwOQYomvJ8aHOys76 +1zAMJ/aevPY2lQ9ba5VyS79+gSMSPVb9c3xY+z6yIzh8CKR0dSYCTbbhWoVA +q9e/PwP9aWf56eptGGb9QviL1QCYcrnPM/n4sX/Rqye88iPke7J+feDFj4P/ +OWjFWX6AkzX5uuQbfkwqF1P9odUDA/oWc41iAlhtPV1EWHZB4DpOlU1RAtgo +/CRmzZkO8E1t4O36JoDbS2jDSYGtEKzlE374xHaspQr2rjdvBG91abnm/O3I +EAudzh58AbXCm+0/s1Nwd5lsYZdiDRSouUueX0vBV8WltaL7ayDB8e38OCcF +jdsNPUIEa+A8MzVkmYuCmoV1GWfW1MCmY6LZAlsouOu3IBd73DMwsVb6pEVQ +MD47VV2k+ClMZnoYVB+m4IrJg78Fs0+AQb5TirOj4I52946O6iq4ni+9geU8 +BUOfF7S03quC0cNJXY72FHz3/Fb6+8gqqNI0PKfqSMG4RCwSPFsF+r5dkYtu +q/O3qm1wZK+C8LftPWf9KGjecDttWvcxzEe8chKPp6BDo+GfewsV0L5Qfbvu +OQXNkjiP2ngw4cyjpUNiLyhYHMZRetOCCWNucm3RLylIdFzY0qDFBK6fVWxm +DRSsvD4UaynKhGMfHzv8aqHg0POpRYX+cqh8XqFIvlvdrzvHMEyzHO6El332 +Hqfgvqa13mqHysCRnr9HnEbFDwacvIRoCVxKjzlYQqeihFdb3VGBEghk+MhL +Mai4yFNG+KwtgSRBNS2FHVRsYr92kGwqXtVj2FVThIra7dwVb1WKYfu+nY8d +D1FxhM3iSa5yEbxQTFEt1KCizRqro7a6BUA9G24tcYWK2QNlnUXP7kPWcWfn +ZD8qmmhY7EzOvQ97JfV82K5S0dN3Ricp6j7IsVJvdQdQ8Xqf/Jae0/fB9N6D +av9QKrZbaReZLuZB6rfGLa9jqaia89vGTiYP6K6cNS4PqPjGPzpSsj4Hso1/ +Nr3Pp2KdWIXRv8U5IK70+u3RAiqqe8xpm97OAQXepJ8CxVRcv9gR0eWYA2bM +3QI1TCrWdFfUPebLgfQFFWeeGiqy2IdekjqfDYyAYHppNxWd+K9CKnEPdkrw +JMq+W+1ficYhznsg0pu6ufY9Ffti9FbwVxZIHi5n6+xbxXP1k7tiQxYojXz+ +PjNIRbeHK+Yy7llgowuPZCaoePOgQLlISyY82LGkVcNJQ78FyV7vWxlQ1Ha9 +QW09DRP7L/sYX8mAsstblDq4aJhylr1Bwz4Dqt+KSg1upOF3xUv7nY5mQMsN +Iyo7Hw17VCpGDk7dhfEp5vBxQRoedmf+u7X1DkjVulx9LUNDu8Lqp5UZaVDR +Pb+kKEfDluv9vuYBaSDz86pXgTwNx8ouCu60SgN5vminG//QcMI89SWncBoo +25WcPnqMhvzviv9VepAKOlxT0pU6NHxYfXLAtCoFLui5T96xo6F7wZoD3hPJ +MGq35LDxPA3197q0NXcmg/PlwG+X7Vfx3J3XkX+cDG7Zsf3GjjRUuVWb6RSQ +DN5zZS287jSU+ps0Td+WDNdTpu+H+NGQpf4xb6xSEmQMXrR0jqehYWXj2yNF +CXBC9GPh2wQangvkCNVPTIBpJ5UlhSQa7gw4oB3unwCqi9viNqTQkOE82ayo +kwA/N1e+vH+Xhn9ONanWTsXDEcVFkaF8GvJtc3PeLx8PzUl+40bPV/HNL8Zv ++hQLFz9+lXtWS8PKfZkLnE2xwBDSDt39cpWvrMuz/I9iwbWIIThbT0O2a9rO +nhGxwF/3TDe2hYbHPXKPH5SNBYtfrI9aemh4pE+MmpocA3OaIZeVxmkYNrNc +nWcXDXSjxCMNEzRcMZaJydCLBiXL3CnNKRpeH6VRS/6JhkjP+nPGMzRMvzMy +wisQDUJ31uq7LNFwk5Y82RRzC05OhIinr6VjSuHIwZOWNyE/JvTjAoOO6XmD +DkKCkdCempTsL0jH5H2FG53+RMBsTt4p9p10RKMTzP4PEYDVDa8276LjwFUv +R9nECOgZ5KzYLUZHWuNv/sZNEcAuFXZTX5qO6/4NOCDCGQ5nusOgRIeOd/mf +Tb7fGgasagnLNF06FnrsTO+eD4XsqsyqUD062tbQRqZ6Q+FHWvWhswZ0HBP/ +91tQdih4WY+KbDpNRwl+JQVe6VC4OanD42hHx8ePpzyeWobAf1wCn0X86Pi+ +K8EpoiUYLK4I3Ynzp6MkyqUKMYOBbXz/6ZWrdGzJ29bVnRoMah1qb7sD6fhQ +eWApyiEYupJ8X10Po2PZ7rI9CtzBMCrcXzoUR0eXF/89uaYXBHTICbybT8el +u+7PZqYCQN7TpGhPAR1rKC/6Zz8EgOnDjR/KC+lYXSs8zfsyAG4LeB1oLKFj +6o5+/4zEAOCfVB2YrKCj7/bOWg7FAODJ/K6o/IKOIhHxFv03rwH7GvHFL710 +/PFsV+NUhD8IyQ4Iu3yko06TroifjT8ou8SfXOynoxIHN0VW0R8CepfzNg7S +ceQTs0dpwg/+lrcaHvm+qk+daX20gR8s2LgwQ2foKB/BlJ/dewVG68tc9m4k +sPC283v7eR84JHHcsXATgY9meEYUu33AN6H3vCQPgT3syqFyj3xgnQ271ZGt +BAYP8VUWePiAEKuhvjKFwEbfvi8uv7zBVH5RxnQXgSf3evOcmL8Er4qBLVyR +wIefPgbSCC/gEej6yw0E7m6e8HrI4gWG/ud/30ICD2lGRJ754glfNGNmEo4S +mLLM6buvwBNYfgwOZ6oT+Oaftjl7RU+QEQ5prjIgMFVe46Wc3UXITW6JH3Ei +kJmlZSbR7g4XzpnH6bkQuEefzdu7yh0kjozH/OtKYIN0KcvHLHeo7Nx8K8qD +wOa3x77OeLpD46ZTNw74EAh9zj1mhDv8CH7v5xNM4C/bmPQZVzeQcBu2W59K +oFKiv3rQXlf4BZds3dMIfPKAyfGV3xUqNq2z6U0nsH19Z535GleAgj2WhRmr +9fIaPSJVLnDym+Np3VwCP0sn8wgKuoC7+bTO7VIC/QLbzaznnKBCnUV2TyOB +vy1ndwzWOsBcn0xuySsCA6Ubb0nccQBpV7etMs0E9r9Z5sj3cYDHiYNjqm0E +zgZc3b3vgANUD73Msuki0JrnFtuZrAvw1O8Gd8YAgSL1LBqyUfbQUMo7wL9I +oEpA7tDpoHOwTkVD684Ssfqv1HOQNudA7V1Q9a5lAjuq4vy4VM5B09+ZeKkV +Ap3+scgz4TwHLRo96nocDLRdtr/WGWUH7V9Ty6O2MDCFve0LV5YtvKPsCmXf +y8CGap1IHLaGRD7TOTcxBm5YwNCLrdagv/mW7SdxBrL/Zk2vZ1pDO/vi0er9 +DNzG+y7yZZA1NEy0sLgeZmBho1WpkJA1VNRd9O1FBsaYOO3SPWcF8W4vncqM +GPhqOXHhGrsl6Dku9pEmDDz74ZC49IQF8JyT0IwyZWClSMlZzg8WEGmWvPe8 +OQMfbt+hOVtsAUHHHb8R1gyMb5X6ucbcAtwJPssbzgycOiVpnX3pLJx8Za1v +cZ2Bh+/ms77hN4cjs97x9SEMFBBevVXTZkDbcbNLPIyB+WWRyZavzWDY+7H+ +YjgD7b0KOtPCzOCK6EaD2GgGmhAuLDx/TsP90AqDl6kMDM8W83o6ZgqsquuN +RMsYaOBRXD05agzDboykm+UMdC6v1NzTZgwt6Yd6ZpgMFLoQQQ8tNobkWXOj +55UMvF1+sKHU3RgkcsqMTP9joEiA1c2nS0Zgym5mHNnIwGLOpeLoLUZQVltk +MtnPwKqS+b3zxgbAV+6wznOAgbKn+ZbUFAzA655o5eJnBr4hD6TUkAYgG5zF +t+YrAzvM5iIEv+lDjUri620/GZjpcXYh/ZI+vG70U5GfX60/m9xoe/cUjLZp +HgjZTKLZ8qjvz3V6oP1s/QDXFhK7vt0dT5/UhZLi+pu3eEk8dcI3zvWdLnhE +42jyNhLVFhqaPO/rwpKuVN5DGonJ7kNuv9V1Yf1bGtEhQuKVhwzj9tiTsLv3 +xzo6rs5rjbgi6KkNHIeyq0KUSOzRspSs1NaGL+HmF6aUSRTx74/zE9WGLLn2 +5noVEtN/LQcm92kBmfLoppsGiZtlimpYjmvBdpNrfA2GJJqWjt+wF9aEDT3b +BN2dSPQ4FrJOkOUE/JB43d7nTKKyOK1c6ZM6NIWEBRx3JVE4Ols38qk6hB35 +PUj3IHFIV+Feqp86sCcO5DR4k2hY8uFA+h81+Kv/UIwIJjGbnhvMyqEGk29Q +ujGFxJqw2qdrJVXhoagGv3kaiZ18Ud/yeFTBzt9gdiqdxH3vgrouTqnAxz0X +ymmZJIots3LHlKtA07W4/S55JEp1tfq0yKpAjsSwCD+TxPVD1nF07WNgGh6x +3aaVxIkKQ0yNVwb+gYT5hTYS/c5sf6PqqwwdhzO6o9pJXLCfAwELZVD7zIyv +7CRxpe/x113iynBYpp9nwwcSJVqHPs3UKQHPsOT6suFVPjU10yRYlKBZXv67 +6ncShR4JvOT5jhASo9LQO0KigW/eE752hD8Kptc5xkgcWOCwC8hA+BEXxGoy +TaKl0ET0d2WE3JGogbEZErcP6Ut1iSFYQvKzwDkSVZdz5Qb4EN79KPArWCTR +6Lnu5dI2gDisNFP6vcrPwsUXNzIBtBOfy3cvk8j9a8458yIA12gz1eHvar7B +cvfCcYA6pe7FlZVVPdY+io2iAfwP3fwlbA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3.5, 8}, {0., 0.9776920067134719}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{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.5, 8}, {0., 0.9776920067134719}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVVmk0lg0TRqSkkkTPcj+3oiiSStnfGYrIFtmj7CU7EYqyhCxlJ0shS8nu +iXh7S8qSLSIqkiilrNmlfL4fc+bMmeXMdV3nzJkdVi56tmwsLCwrq/Z/73Xl +FDcLCzdm3tN8huoTUPbC4V4nGzduFON71qw2AWNcwXJ5HNxoEKDoabga29xm +ntfewI27+tnYHY5PgG7Ftro0fm4sqHbJjVaZAPHJHj/ZfdzITJTraVWagM/W +ZhPupqvx53u5m+QmQFPD9s1XJjc+EqYm390zAWrGJqNsPhtRkSHw6hjrBEwI +BbDvkNyEfb2iCtNd42Af9Dwyb2gT2p+ZzlHJGof1O76ct83djD0U5eYxy3HI +/yd9B68ED2bGaf58QhuHwYgqmahoHjx4Jpk+VjsG7EKDoQpTPDhz8EzUjNkY +XLktbOiosQWpW3Zt7xgfhbX7jdukC7cgI82Y+4vNKAzfy6kLWseL8cl6PE/b +f0KJ1crMGitejKiqr3ET+wmReKKNfMGLNXfG3VLO/oCnf4p2PyG24prdlfSq +sBFg+8C+Z+bqVkwQmCmyCfoOkiznrC0GtmIpW6rvYdtvwOQYomvJ8aHOys76 +1zAMJ/aevPY2lQ9ba5VyS79+gSMSPVb9c3xY+z6yIzh8CKR0dSYCTbbhWoVA +q9e/PwP9aWf56eptGGb9QviL1QCYcrnPM/n4sX/Rqye88iPke7J+feDFj4P/ +OWjFWX6AkzX5uuQbfkwqF1P9odUDA/oWc41iAlhtPV1EWHZB4DpOlU1RAtgo +/CRmzZkO8E1t4O36JoDbS2jDSYGtEKzlE374xHaspQr2rjdvBG91abnm/O3I +EAudzh58AbXCm+0/s1Nwd5lsYZdiDRSouUueX0vBV8WltaL7ayDB8e38OCcF +jdsNPUIEa+A8MzVkmYuCmoV1GWfW1MCmY6LZAlsouOu3IBd73DMwsVb6pEVQ +MD47VV2k+ClMZnoYVB+m4IrJg78Fs0+AQb5TirOj4I52946O6iq4ni+9geU8 +BUOfF7S03quC0cNJXY72FHz3/Fb6+8gqqNI0PKfqSMG4RCwSPFsF+r5dkYtu +q/O3qm1wZK+C8LftPWf9KGjecDttWvcxzEe8chKPp6BDo+GfewsV0L5Qfbvu +OQXNkjiP2ngw4cyjpUNiLyhYHMZRetOCCWNucm3RLylIdFzY0qDFBK6fVWxm +DRSsvD4UaynKhGMfHzv8aqHg0POpRYX+cqh8XqFIvlvdrzvHMEyzHO6El332 +Hqfgvqa13mqHysCRnr9HnEbFDwacvIRoCVxKjzlYQqeihFdb3VGBEghk+MhL +Mai4yFNG+KwtgSRBNS2FHVRsYr92kGwqXtVj2FVThIra7dwVb1WKYfu+nY8d +D1FxhM3iSa5yEbxQTFEt1KCizRqro7a6BUA9G24tcYWK2QNlnUXP7kPWcWfn +ZD8qmmhY7EzOvQ97JfV82K5S0dN3Ricp6j7IsVJvdQdQ8Xqf/Jae0/fB9N6D +av9QKrZbaReZLuZB6rfGLa9jqaia89vGTiYP6K6cNS4PqPjGPzpSsj4Hso1/ +Nr3Pp2KdWIXRv8U5IK70+u3RAiqqe8xpm97OAQXepJ8CxVRcv9gR0eWYA2bM +3QI1TCrWdFfUPebLgfQFFWeeGiqy2IdekjqfDYyAYHppNxWd+K9CKnEPdkrw +JMq+W+1ficYhznsg0pu6ufY9Ffti9FbwVxZIHi5n6+xbxXP1k7tiQxYojXz+ +PjNIRbeHK+Yy7llgowuPZCaoePOgQLlISyY82LGkVcNJQ78FyV7vWxlQ1Ha9 +QW09DRP7L/sYX8mAsstblDq4aJhylr1Bwz4Dqt+KSg1upOF3xUv7nY5mQMsN +Iyo7Hw17VCpGDk7dhfEp5vBxQRoedmf+u7X1DkjVulx9LUNDu8Lqp5UZaVDR +Pb+kKEfDluv9vuYBaSDz86pXgTwNx8ouCu60SgN5vminG//QcMI89SWncBoo +25WcPnqMhvzviv9VepAKOlxT0pU6NHxYfXLAtCoFLui5T96xo6F7wZoD3hPJ +MGq35LDxPA3197q0NXcmg/PlwG+X7Vfx3J3XkX+cDG7Zsf3GjjRUuVWb6RSQ +DN5zZS287jSU+ps0Td+WDNdTpu+H+NGQpf4xb6xSEmQMXrR0jqehYWXj2yNF +CXBC9GPh2wQangvkCNVPTIBpJ5UlhSQa7gw4oB3unwCqi9viNqTQkOE82ayo +kwA/N1e+vH+Xhn9ONanWTsXDEcVFkaF8GvJtc3PeLx8PzUl+40bPV/HNL8Zv ++hQLFz9+lXtWS8PKfZkLnE2xwBDSDt39cpWvrMuz/I9iwbWIIThbT0O2a9rO +nhGxwF/3TDe2hYbHPXKPH5SNBYtfrI9aemh4pE+MmpocA3OaIZeVxmkYNrNc +nWcXDXSjxCMNEzRcMZaJydCLBiXL3CnNKRpeH6VRS/6JhkjP+nPGMzRMvzMy +wisQDUJ31uq7LNFwk5Y82RRzC05OhIinr6VjSuHIwZOWNyE/JvTjAoOO6XmD +DkKCkdCempTsL0jH5H2FG53+RMBsTt4p9p10RKMTzP4PEYDVDa8276LjwFUv +R9nECOgZ5KzYLUZHWuNv/sZNEcAuFXZTX5qO6/4NOCDCGQ5nusOgRIeOd/mf +Tb7fGgasagnLNF06FnrsTO+eD4XsqsyqUD062tbQRqZ6Q+FHWvWhswZ0HBP/ +91tQdih4WY+KbDpNRwl+JQVe6VC4OanD42hHx8ePpzyeWobAf1wCn0X86Pi+ +K8EpoiUYLK4I3Ynzp6MkyqUKMYOBbXz/6ZWrdGzJ29bVnRoMah1qb7sD6fhQ +eWApyiEYupJ8X10Po2PZ7rI9CtzBMCrcXzoUR0eXF/89uaYXBHTICbybT8el +u+7PZqYCQN7TpGhPAR1rKC/6Zz8EgOnDjR/KC+lYXSs8zfsyAG4LeB1oLKFj +6o5+/4zEAOCfVB2YrKCj7/bOWg7FAODJ/K6o/IKOIhHxFv03rwH7GvHFL710 +/PFsV+NUhD8IyQ4Iu3yko06TroifjT8ou8SfXOynoxIHN0VW0R8CepfzNg7S +ceQTs0dpwg/+lrcaHvm+qk+daX20gR8s2LgwQ2foKB/BlJ/dewVG68tc9m4k +sPC283v7eR84JHHcsXATgY9meEYUu33AN6H3vCQPgT3syqFyj3xgnQ271ZGt +BAYP8VUWePiAEKuhvjKFwEbfvi8uv7zBVH5RxnQXgSf3evOcmL8Er4qBLVyR +wIefPgbSCC/gEej6yw0E7m6e8HrI4gWG/ud/30ICD2lGRJ754glfNGNmEo4S +mLLM6buvwBNYfgwOZ6oT+Oaftjl7RU+QEQ5prjIgMFVe46Wc3UXITW6JH3Ei +kJmlZSbR7g4XzpnH6bkQuEefzdu7yh0kjozH/OtKYIN0KcvHLHeo7Nx8K8qD +wOa3x77OeLpD46ZTNw74EAh9zj1mhDv8CH7v5xNM4C/bmPQZVzeQcBu2W59K +oFKiv3rQXlf4BZds3dMIfPKAyfGV3xUqNq2z6U0nsH19Z535GleAgj2WhRmr +9fIaPSJVLnDym+Np3VwCP0sn8wgKuoC7+bTO7VIC/QLbzaznnKBCnUV2TyOB +vy1ndwzWOsBcn0xuySsCA6Ubb0nccQBpV7etMs0E9r9Z5sj3cYDHiYNjqm0E +zgZc3b3vgANUD73Msuki0JrnFtuZrAvw1O8Gd8YAgSL1LBqyUfbQUMo7wL9I +oEpA7tDpoHOwTkVD684Ssfqv1HOQNudA7V1Q9a5lAjuq4vy4VM5B09+ZeKkV +Ap3+scgz4TwHLRo96nocDLRdtr/WGWUH7V9Ty6O2MDCFve0LV5YtvKPsCmXf +y8CGap1IHLaGRD7TOTcxBm5YwNCLrdagv/mW7SdxBrL/Zk2vZ1pDO/vi0er9 +DNzG+y7yZZA1NEy0sLgeZmBho1WpkJA1VNRd9O1FBsaYOO3SPWcF8W4vncqM +GPhqOXHhGrsl6Dku9pEmDDz74ZC49IQF8JyT0IwyZWClSMlZzg8WEGmWvPe8 +OQMfbt+hOVtsAUHHHb8R1gyMb5X6ucbcAtwJPssbzgycOiVpnX3pLJx8Za1v +cZ2Bh+/ms77hN4cjs97x9SEMFBBevVXTZkDbcbNLPIyB+WWRyZavzWDY+7H+ +YjgD7b0KOtPCzOCK6EaD2GgGmhAuLDx/TsP90AqDl6kMDM8W83o6ZgqsquuN +RMsYaOBRXD05agzDboykm+UMdC6v1NzTZgwt6Yd6ZpgMFLoQQQ8tNobkWXOj +55UMvF1+sKHU3RgkcsqMTP9joEiA1c2nS0Zgym5mHNnIwGLOpeLoLUZQVltk +MtnPwKqS+b3zxgbAV+6wznOAgbKn+ZbUFAzA655o5eJnBr4hD6TUkAYgG5zF +t+YrAzvM5iIEv+lDjUri620/GZjpcXYh/ZI+vG70U5GfX60/m9xoe/cUjLZp +HgjZTKLZ8qjvz3V6oP1s/QDXFhK7vt0dT5/UhZLi+pu3eEk8dcI3zvWdLnhE +42jyNhLVFhqaPO/rwpKuVN5DGonJ7kNuv9V1Yf1bGtEhQuKVhwzj9tiTsLv3 +xzo6rs5rjbgi6KkNHIeyq0KUSOzRspSs1NaGL+HmF6aUSRTx74/zE9WGLLn2 +5noVEtN/LQcm92kBmfLoppsGiZtlimpYjmvBdpNrfA2GJJqWjt+wF9aEDT3b +BN2dSPQ4FrJOkOUE/JB43d7nTKKyOK1c6ZM6NIWEBRx3JVE4Ols38qk6hB35 +PUj3IHFIV+Feqp86sCcO5DR4k2hY8uFA+h81+Kv/UIwIJjGbnhvMyqEGk29Q +ujGFxJqw2qdrJVXhoagGv3kaiZ18Ud/yeFTBzt9gdiqdxH3vgrouTqnAxz0X +ymmZJIots3LHlKtA07W4/S55JEp1tfq0yKpAjsSwCD+TxPVD1nF07WNgGh6x +3aaVxIkKQ0yNVwb+gYT5hTYS/c5sf6PqqwwdhzO6o9pJXLCfAwELZVD7zIyv +7CRxpe/x113iynBYpp9nwwcSJVqHPs3UKQHPsOT6suFVPjU10yRYlKBZXv67 +6ncShR4JvOT5jhASo9LQO0KigW/eE752hD8Kptc5xkgcWOCwC8hA+BEXxGoy +TaKl0ET0d2WE3JGogbEZErcP6Ut1iSFYQvKzwDkSVZdz5Qb4EN79KPArWCTR +6Lnu5dI2gDisNFP6vcrPwsUXNzIBtBOfy3cvk8j9a8458yIA12gz1eHvar7B +cvfCcYA6pe7FlZVVPdY+io2iAfwP3fwlbA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3.5, 8}, {0., 0.9776920067134719}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{3.500000000000008, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{3.5, 8}, {0., 0.9776920067134719}}, + 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.9921721012390423`*^9, + 3.9921721174092846`*^9}, {3.992172217125965*^9, 3.9921722489337826`*^9}}, + CellLabel-> + "Out[192]=",ExpressionUUID->"2bd72462-22a0-2a4d-a133-83e57fd0ad31"] +}, 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", ",", "3.5", ",", "8", ",", "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", ",", "3.5", ",", "8", ",", "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.992173198428591*^9, 3.9921732013204174`*^9}}, + CellLabel-> + "In[198]:=",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.016271769944146287`\\\", \\\" \\\", 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.03962633605847965`\\\", \\\" \\\", 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.016271769944146287`\\\", \\\" \\\", RowBox[{\\\"Power\\\ +\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", \\\"R2\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.03962633605847965`\\\", \\\" \\\", 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[{\\\"314.05285214881405`\\\", \\\"\[VeryThinSpace]\\\"}], \ +\\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \ +\\\"2\\\"]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"44\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", RowBox[{\\\"2.`\\\", \\\" \ +\\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.016271769944146287`\\\", \\\" \\\", 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.03962633605847965`\\\", \\\" \\\", 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.016271769944146287`\\\", \\\" \\\", RowBox[{\\\"Power\\\ +\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", \\\"R2\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.03962633605847965`\\\", \\\" \\\", 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[{\\\"1.2429993121816667`*^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, 198, 8, 29225281869222108711, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9919643917585564`*^9, 3.991965364224392*^9, + 3.992173121430094*^9, 3.992173204473921*^9}, + CellLabel-> + "During evaluation of \ +In[198]:=",ExpressionUUID->"0dd5f937-ede2-434b-8299-b0b814b6dff2"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"2.7276`", "\[Rule]", "1.1238161165362892`"}], ",", + RowBox[{"0.5918`", "\[Rule]", "0.8672494562280016`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991964391814556*^9, 3.9919653643031864`*^9, + 3.9921731215231953`*^9, 3.9921732045499783`*^9}, + CellLabel-> + "Out[198]=",ExpressionUUID->"5af00825-043b-c145-b00d-613afc18508d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "1.1338"}]], "Input", + CellChangeTimes->{{3.9919643977866764`*^9, 3.991964402237297*^9}, { + 3.991965369034729*^9, 3.9919653692465267`*^9}, {3.992173133083788*^9, + 3.9921731409362965`*^9}, {3.992173209142124*^9, 3.9921732153015175`*^9}, { + 3.9921732647623234`*^9, 3.992173264830551*^9}}, + CellLabel-> + "In[203]:=",ExpressionUUID->"4524f895-5d5e-a74f-a717-0cd15a841249"], + +Cell[BoxData["1.1338`"], "Output", + CellChangeTimes->{3.9919644079976406`*^9, 3.9919653747711143`*^9, + 3.992173143766615*^9, 3.9921732165242825`*^9, 3.9921732655701237`*^9}, + CellLabel-> + "Out[203]=",ExpressionUUID->"c5b7003e-9a4f-6947-b438-174a60867cd0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"bb0", "=", "0.85"}]], "Input", + CellChangeTimes->{{3.9919644056263065`*^9, 3.991964406063389*^9}, { + 3.9919653725905457`*^9, 3.991965372909004*^9}, {3.9921731464128914`*^9, + 3.992173151377308*^9}, {3.992173219550167*^9, 3.9921732276551647`*^9}, { + 3.9921732585821514`*^9, 3.992173281057123*^9}}, + CellLabel-> + "In[207]:=",ExpressionUUID->"17f8190f-852b-fa46-bdc8-1bb243b31de3"], + +Cell[BoxData["0.85`"], "Output", + CellChangeTimes->{ + 3.9919644088621464`*^9, 3.991965373888151*^9, 3.992173152305666*^9, + 3.992173230592058*^9, {3.9921732685836735`*^9, 3.992173281640154*^9}}, + CellLabel-> + "Out[207]=",ExpressionUUID->"02848e2b-1bea-5048-ba45-74de0b1100c1"] +}, 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", ",", "3.5", ",", "8"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917169296319904`*^9, {3.9919653858356647`*^9, 3.991965385973503*^9}, { + 3.992173239867607*^9, 3.992173243006689*^9}}, + CellLabel-> + "In[208]:=",ExpressionUUID->"86a6c2bf-ff39-cc4d-a1c0-fb8141afbdb9"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVV3k4Vl8QRkjiu/ezhm9pE1GKIkucUVHZlYhS1ghlK0qUvShUJEJEloQk +yZIsyRLJFiJRpMh3Q0WqX/1Of93nfc7cmXnmvO/MmRUOnnucebi4uDS5ubj+ +ff0C9wpxcQlBhbJS87QrhYwMnbs+lApB7sDJJ0UXKLRrv/UUz2lhMMywJVkF +FPqyKoR3xUYaaNw+e128lUJHw+ou5Y7SQMyHpv52lEJLVoy5OucQEGIdYtfw +lUL5OmkrRJRIKDrXFGiK8fuLFeoxl0n401Cfq/CGQryr3p/fOkPCf16WT73z +KBSYvNrSw5AOndkDhRusKcS/YX/7lkI68Lf9srj5hoPGs7KfhQmIAMNTzvAh +cFCxw99vixxEYNFhWvRw8BS6BAbt7KciMNdt/+p++Gf05L+iNY+ZojATE3jJ +yXsS8Qzwrv12ThSeBhloNLMm0EYuF0e7EVFQSZa+M1P0EZXyjTKMNcXg2Eh+ +H+iMIwMFs+BXKWJgt3lT+UzyGFJT6nN4OycG+xZvf0rxjaLN5qZfQq3FgbjY ++nXU8B1iPOl+cKBSHPKFG3litYaRjaDPfKmYBKSnXbqvvf4Nyj/J/eGOnwRI +Hv6dcfxvPzKrzTdnd0nAlaQ8moRyLxqxsJtrVpSEDT+pCaWb3ShUYLEeLUYS +rC/t/Dst2IkCUppEej5KgqnEmGx56QsUbnw6WtVgGYyo5D2hH29Bp3Zv0WzN +XwbDHSX9Sg+eofrVxNF3vFIwbsZJVUyvRyx2v278ESloG3k5X+VYgzp+VCY/ +q5OCmNQ+wdqsSuTByF+7TkYazssUqcomlSHpw9GOSoHSQOjmf97WVYJYIeGM ++73SEPPSelw18x7aXO957qW6DByV9lPMkMlHGe9P2B9PkIH86u131tdnozmj +yDO6lAz0W9W+4ZbLRId6L6BiUwYc27Ba/mlNGmKg7ND0fAbIKsznTWcnoanG +Ek8FYSbst+L8JYkElJPUljBxjAlH/4bmq9hcRmW7uTTWNjMhaXfAWvPf0ahf +SvY8rwILXqS/qrw2HIHMWhwt7CJYYGVR5rH5WwgqqS+ynn7LAovzfsE1MUFo +zeCkAAPYwLu1SPj8B3803QVbmm+w4cIi4zs7EnzRM93ehb9/MV4q0PbdzBO9 +czz4xcdGCCQi9ZqjT1GIoXPsx5UeYeDMVkyLPqZQwd5bu8aiaPDO9kClaz+F +NLq6Avj1CNhx96NMAodC13MXu2dykdDuoXLt4XcK6TsrFpoeJkHLfa6b/plC +vn3GI2O1JHwWmzmk30ghOLTI04JFh6bUXue+cArpOumI7AmkwxO7+r0bl1PI +b+JPy9AAHeRye0xuxHOQYdieoe2qIjAfrKVf8GEK3ey8/e7KVRHYoZ4n6i8w +hVqvB1FWdTKgUyVgr/kuC+VfOT/0g8WA+TEHoDwzULWg5Du5IAaYb3GQmRVP +QbyL1i2MDTKg8rK4S7d2Imq5h3iitZlwnTvdMJJ5FSl5jx9ZksKEAf/Ss5ll +MajpvsiIxAITZiVWjg4ZXUAJ3g3HSqxYEDZi1TfbGYa49ZdYyZewIKgu2dDC +IBhNtRspRxJscApT79icEICW9okv9znGhjofDt/izJPIJvriMqcXbGj75bh8 +JtQbrZvuC9JYLwQih/rc87wopGLo6PM8Rxhu/tdqvLGUQu1aV3J4bGlg1zfZ +OdtJoU6F54usxAhIMVTcxZrA91V+mv2qm4CA5Xuea+P6/zB3+lisT8JTueSO +H19wf7ofJlSRR0KFw8b3Cl0Uyqz1OdO8mA7aR35w3bxOobdnlTcPO9JhY1ug +7k9tCulcUmwTbKCDzlBVhEUFByWJBnaOskRgd/3Bg65iHCQnveezQYAIuHwT +qZHSn0Jq2gtyo/ky4B76d/e9ttvI7EvkujR+BuiDqLOj/i0UO21KehxhQJ+h +j5ulYyoib33S3vaUARcFqhWc3K4jG60FdRtZJpSlaSTpkvFoMvx10OlwJrh4 +mrPK18WhJ0FRQhkjTBhU5reaSolCZc9OBAwCC6bKdYtCusJR3vmyfQ0pLNC8 +8/mrjnQIetkcpKc1zwKjARnXNYsD0TLrYLEmSzbQM9OGqh/7oWylcTmJUjYo +Vo2utw/3QdHu9yefldFg9Le+rctbCt06PTjz8CQBLgdq7srPUGi57x59G0kS +3P0ZyZK4vgmnZn0ofxLOiWgcCx6j0Nb/JEvJ1yRoDOTdci7H9fwV7zCymQ5S +bZrbhPF93t5tON2QgPm+ef5A3V8OIsc3LikZZ4MxzUNULc4LmZeJP0uVEIKE +lf7NjR4UqjY/dG88Thh03/9Zva4Y+9sQ9eqKPg2+TofJXm6nELNPb9ffXzQo +bdvOTByn0NUppR3MagJ0umWXZHyjkHlzcLi9Jgnvq8/F9uD8G2/eXJmVSkLM +i3fDzn0U6vbODwn9TcL+A4KKehkUWi+k+Czbig5fpT56jRtifgzpGt8qp0PV +b4sJ/VYOqhm83PpAVARQ2uT5Nwoc5PFE3kvuOJ4/Pxef7XecQp+JRw156TLw +NmvvWTn9bLTqJr+F508ZcK7Y2XHk4S3k5zglRzvAAHuanHImkYYkpvVHpssY +wNBdMAL+JLSK29JimxQTJFdXS7Ni41EzbW+U8mkmaHUaFZtScahytCHTqYcJ +Zr3r68Z3R6OmL21cXqos+Nhl9svbKgIFygvvu3qZBb5v1SRmIkJQrV7iS/HP +LGhpinekmgIR+8bDWG9DNqibpyTuM/VHz4PjN3jmsqEsn9xyStAXpRy+I7Uv +gwZ7PFwW/AcpxJG1UjtkS8C1M8k8gVg/B4UL9/9ZSkLOp9sJ0fj+ORSNTHcn +IdjkII3rE4X2T6o8/9mGcVfvQmINhYjCVtcba+kQGxfZ/CCAQrO9O0IuXqDD +f096fUxICqmqvyWXDrAhn+4Z6rrYG0WcNakpWkfAhk2B4764X2aHNfy8NEnA +obGm1Sk4XvrgTgOuvSTU6vn9Kcf9NrbBda69lIQHXZse+LVRaN+Lw4XCsQRw +tUgsvz5LoQ/985vKVpLQ/YNPwgbzQYun95V2OAn5vgcexI1QaDI+jNv6Kxtk +2A2ntkt7IafkUleTpUJQtW+T3oAbhXheDb44ES4MNvEy2muKKDS+lu+YtRYN +eIqXPn6F420vDHPr/kKDakr1O/qA+1NklGXdfQL2f/vZooHjnV1EdGtsJiFk +3uRzGs7HQrxgfVIiCbrClwd6X1PIw6AxfHiOhG0Xo3PcblOopytXOMqcDr+b +U3en78H2/C9ipkroQJN8PcnXw0FdKKVZhiYCTw5rmr5R5aBYMqFE3FUEJBDi +8vWZQvoL4vFLb8jAbIWLVH9YNrp0stFl/zcZeKLaED3CuYUmUys3Hd7HgIir +6zrVXNJQsqSfcnMxAzKis5NT9yUhASdeBzVRJtRvzMrZ1B6PHnUTcTG+TPjU +mJTiJH8ZlSe+5+i3M6F5wWbnpcxo1MG7sL1yAwsccrbpMVIi0PipcouFaMy/ +uuqimschSCM8U2zRBxbkVpW83KQQhDI1O1ob9fC8TbWrW0j2R0Nr3R7I3GJD +7bMk5XETX3TbWvY+4xoNTDzNN3/D9RH9nbBfxZyAL8kdO+MoCgXYDNib8ZPw +/H3y5zzMB2mFtEP+ziTQVW6fSsT9f9wOXn1pJKHQbejxn3oK5UV8dJ9fRQeu +jkM9r85R6EZaXcvxUDowp5vvWizD7913pQmPutmgk6+dUbvDG921uPQudDkB +y195JZpOUmiEyRZWHiYgmBZacALHa5PoTeo3IqH3g+XNDzgfhpYfd0MRCd8n +DJbbvaTQmay0l+9CCBhx2f3mI+43PGtktQWYJDiKOJjXYz64ajutljhLgkCa +sEviewr9t9Umgo/Dhqv86YqWFl7Iak+P8ulmAnw/h7fPYfvVMbOqUUDCpPPz +/2anKdRkKiUWfZSALbIrKGuMdWrPmRbQSSD9funY4PzcJo5++vSdgDbj5PfF +GG+YX3FR4wYBnT/5JNXwe7z54nMFJ3kSslpkr73FuH+yIKhggQ2D3J4X5+o8 +EUcwXDOXTwhEj0uv/nAU6y9ReqjqrDDkGnN5rCzEelnzVL1alQYLf21s5/A+ +YJmUeaZ6ggan6I/CLuP+P9Vddli0gIDMlfHfuXD+Yissf8oqk7D9IidnAfM/ +pUPlwdV4EqRquu14cX8pV7Pgp30joWCVw2/vHArJq43fDzChQ2PKw4ipfRQq +vCGiJFJMB7qtzbRlPwe98V7eZLpUBB4b3sw21uKg9IqWbiFnEcjS7uS9d3oK +fT2m93PrdRmobFdQpDKzka59zozRjAxs8y6RPSiYiW5X3Ko4v4cBrWdev7WN +T0M2d4UHHhQyQAcOB+UGJaGAa4OuG0km2OfzqUVR8UhJjbpS5cWEU+9f22no +XkZbvLxF1VuZcPVCbqLBy2hkQcQ5D69jQf3dvd91qiOQzIrYnnUXWMCVrqvo +3B+C/LLkHy28Y0HPH8n0jgNBaCza1m1mGxtcEtoks2r80ZGz+77PpLGhdEhE +0d/bF+VZjgYGx9Eg8Mjg0Q2Y/2s+PjjKMCSg0X9VgCjmmwC395HTi0gw4fzn +dR/fb/HOsQhHBxJ2JOeHWGG+rmM02Uw+JYG3HF3KaaDQN++THNkVdFCPss2z +CaUQxcV13O4cHRKq+Nt3MvD7STWjN6aDDR83MXKqHb3RE3R31kOagPEe26hy +rKc/bkYSYa8JiCZvbT+A4zlsZtY27MZ8hKxDPngeOM79jnxylwS7kkqzlg7c +j2Mfj7SeIcA9+qZWNOb/lbYqXWVpEr7YJZp8wXz4Y3PXkOcMCWn29guxeH+M +vKLXNDjBBucwbeMCby90Ip1bq7WegJ7YJXYvsH1lvobtSW0SuFYodh/B/gY0 +1WVPOBJw8O26/ikc/8URCYtXNBJY49VF//R5Qe36jOY0ARaSgsv/9Ydt7yF1 +VQIBK/s33v2E+WepYr8hRpaEtjDnpyzs3x4l1YTOsUHU4OwJoV+eqFjjoLHn +IwJ2GXR0H8fnnx9st5VbQsJO7+Gf/+ZPfcfMouExAs4FTvyMwvjEuVj1YTYJ +gk161y9je02+XHm5dgJcx1INGPj8ntSEQZgYCcvV1mlpYWyUunU48RcBj3Ye +cPi3H5gk1mn1/mbD44ymizuiPFHJU/esbh4hSA3QG3LD+vObr3AaPiMMFy+L +m2bgfdxDNpP1RYUG2Wqv10Ri/Y0Iq4SXjNOgodGvfAvWX0CAsdPWOwREyYas +HMX6Hr63IJy6gYRK8XpjWYx1lOa+E1dJaB4+4Z6E9fd2nczO7FkSbkUpdvrk +UqjLhS/8qxEdjnSUHIizwvV2Uv1zu4gOhL1f75kBDnon6Ng4sUQENBi2RTw6 +HCQf6+R0wVEEhLd5PNoVNIUM5IcKX12TAV6z8ooLJdmIYZWo1vRFBkKyTCrv +LMtE3Luu/ZYxZ8D3QflHF+6kIa2T1kVrC/D7J79sR8OVJLRJaadHIY0J/G7K +Lxv/xCM3F9v4PZ5MmE7h87lvfBnNvVHPKW5hgkbSy46GD9EoUcxmzluRBbyl +5R2O7RFI7fuphMZIFqA9GXE7x0OQ2AN3gZMjLOC89HpWfSII8W26XRGpy4Zr +XZYVMV3+6K68oYRtKhuo1i17e0N9kcK+eoeSSzSgtDVN2vB+V3xwuw99F+aT +0cGtPfi9YWbx+JMwDwkfX6TQSvH9nek9n/zajgTv0L7gh1h/Haej01zqSdgH +J0/4P8PzyXWrUjWbDtaU65IbYRRKUmHD6yA6JFfOO2qzKCQxcm3+RzsbrPM5 +sWa+3mjXQ81f9pIE0GWutrtj/cXQR6ULeglQbzgiYIzjrX9a2625iwSlD9ft +yjD/+S1qW7TySejRvC50Bu9Dy3iNJmpPEXBGs3faGuuln7244dkyEo7cubiE +F//fMmFy+NRpEnavMkkUwHxp1dL6pP8J5/Rar8wt2Ast0k9C32oIqFHnU36E ++RypMeT1WYuEgEY935vYn1Nx0/qjdgQkvkweK8XxxSrte48K4/i9u1WCsX+J +ofVzjhwCHg8OyWf+m5dWHbeXXSFgwbTVtRbr72ZEwf0Vq0lILY1YrI3950zE +jHC+scH0z8fot0u9EBqZNU8qJeBobm+zBT5XWRw3XLWYBEtuA+4s7M/c/4KA +wHsClPqz+85hXNX1utKXRUL8jQShfGzffFd7vVkrAXs2Bi0VxOdzHptfSIqS +kJGmbmaI8eC27tGaHwSsLT959wHG8fDooO4vNhyqE5K6ku2J6gplx8Z48f6u +KlZViM89Gx7Sbd4QsGm6JsAV40jR1k4gSShfVSXwDy/EcXHoXwm4d2vJkn/2 +t+1+DFwVJEF7XKwvHuPNCgf+PvxIgCIlKP4PV3/PHjj2h4BpJX7+MowFp1ql +3f+woVDpVDt5zBP9D3K9P2Y= + "], {{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwl1Hecz3UcwPETmWWPSjKPK/NOOqvIXklGaRCHQrnLCFEZlb3LrFRkhgql +oWRvWjSMIg1kV2bj+X70x/Ne3+/nc4/ffX/v7+dxJdMyWqdnSkhIqOlH9DLr +eZHHaE5VriIzV9jASzxOC24lC3+zkan04i6qUcAH79O3eI4uXM0/bGIa6bSk +qN/9SVcwltsoaG2/LuF5Et2f0E/oSnH3v+oqJpLk/rR+Rlb+ZTPTKW/vnGZQ +2vVx/ZjKrs/r3dzo+kh8L12pFfVPra7jtJyeimfTNZqsF7WGpmohPRBz06Va +Qf/QVH1By+rJmI1+qlX0gnajhOvf9AMquf5LJ3Gz6zO6lmzEy9oiM3iCMu5/ +19W0opj7n/U9xsezU9jaQV3GCB6hpLWj+iGTyR4fbW2rzqQ393CTtV/0fSbE +d6WItR/0bUbyKDnirFjfprPoQ+s4X1xn/Ud9h1F0J2ecK+vb9WX60oZaXG/9 +kL7LaHqQK86a9R36Cv1oS22uiXNlb6e+ypO043aujbNgb5fOpj/3cge5yUNe +8pGfAnHu4l3G3OK7xvPHM3EDReOcxJxjNnEG493FPCkVZyveCYnxvuOd+du7 +9TUGcB914izFzO19rq8zkPbUJSnmae8LfYOnuJ874zzE7Ox9qXMYxAPU45aY +k72vdC6DeZD6lI852fta3+RpHqIBFWJO9vboPJ6hAw2pGHOyt1fn8ywdaUSl +mJ+9b3QBQ3iYxlSOudr7VhcylE40oUrM2953uohhdKYpyfEe7H2vixlOGs1i +/tYP63LG0DNmbu2YfsSUmIH7s7qOFNeXEv7/H5ei/wFrN4hZ + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrsJgEAURNEnGtiGbRhqYGJkCQbCgrDg2j9+QLCIkwxc5nRrXra+iihN +RMypnNsdv6qfau9ZpmHMez7S86f4BsdxHMdxHMdxHMdxHMdxHMdxHMdxHMdx +HMdxHMdxHMdxHMdxHMdxHMdxHH/nAnuwKMg= + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVV3k4Vl8QRkjiu/ezhm9pE1GKIkucUVHZlYhS1ghlK0qUvShUJEJEloQk +yZIsyRLJFiJRpMh3Q0WqX/1Of93nfc7cmXnmvO/MmRUOnnucebi4uDS5ubj+ +ff0C9wpxcQlBhbJS87QrhYwMnbs+lApB7sDJJ0UXKLRrv/UUz2lhMMywJVkF +FPqyKoR3xUYaaNw+e128lUJHw+ou5Y7SQMyHpv52lEJLVoy5OucQEGIdYtfw +lUL5OmkrRJRIKDrXFGiK8fuLFeoxl0n401Cfq/CGQryr3p/fOkPCf16WT73z +KBSYvNrSw5AOndkDhRusKcS/YX/7lkI68Lf9srj5hoPGs7KfhQmIAMNTzvAh +cFCxw99vixxEYNFhWvRw8BS6BAbt7KciMNdt/+p++Gf05L+iNY+ZojATE3jJ +yXsS8Qzwrv12ThSeBhloNLMm0EYuF0e7EVFQSZa+M1P0EZXyjTKMNcXg2Eh+ +H+iMIwMFs+BXKWJgt3lT+UzyGFJT6nN4OycG+xZvf0rxjaLN5qZfQq3FgbjY ++nXU8B1iPOl+cKBSHPKFG3litYaRjaDPfKmYBKSnXbqvvf4Nyj/J/eGOnwRI +Hv6dcfxvPzKrzTdnd0nAlaQ8moRyLxqxsJtrVpSEDT+pCaWb3ShUYLEeLUYS +rC/t/Dst2IkCUppEej5KgqnEmGx56QsUbnw6WtVgGYyo5D2hH29Bp3Zv0WzN +XwbDHSX9Sg+eofrVxNF3vFIwbsZJVUyvRyx2v278ESloG3k5X+VYgzp+VCY/ +q5OCmNQ+wdqsSuTByF+7TkYazssUqcomlSHpw9GOSoHSQOjmf97WVYJYIeGM ++73SEPPSelw18x7aXO957qW6DByV9lPMkMlHGe9P2B9PkIH86u131tdnozmj +yDO6lAz0W9W+4ZbLRId6L6BiUwYc27Ba/mlNGmKg7ND0fAbIKsznTWcnoanG +Ek8FYSbst+L8JYkElJPUljBxjAlH/4bmq9hcRmW7uTTWNjMhaXfAWvPf0ahf +SvY8rwILXqS/qrw2HIHMWhwt7CJYYGVR5rH5WwgqqS+ynn7LAovzfsE1MUFo +zeCkAAPYwLu1SPj8B3803QVbmm+w4cIi4zs7EnzRM93ehb9/MV4q0PbdzBO9 +czz4xcdGCCQi9ZqjT1GIoXPsx5UeYeDMVkyLPqZQwd5bu8aiaPDO9kClaz+F +NLq6Avj1CNhx96NMAodC13MXu2dykdDuoXLt4XcK6TsrFpoeJkHLfa6b/plC +vn3GI2O1JHwWmzmk30ghOLTI04JFh6bUXue+cArpOumI7AmkwxO7+r0bl1PI +b+JPy9AAHeRye0xuxHOQYdieoe2qIjAfrKVf8GEK3ey8/e7KVRHYoZ4n6i8w +hVqvB1FWdTKgUyVgr/kuC+VfOT/0g8WA+TEHoDwzULWg5Du5IAaYb3GQmRVP +QbyL1i2MDTKg8rK4S7d2Imq5h3iitZlwnTvdMJJ5FSl5jx9ZksKEAf/Ss5ll +MajpvsiIxAITZiVWjg4ZXUAJ3g3HSqxYEDZi1TfbGYa49ZdYyZewIKgu2dDC +IBhNtRspRxJscApT79icEICW9okv9znGhjofDt/izJPIJvriMqcXbGj75bh8 +JtQbrZvuC9JYLwQih/rc87wopGLo6PM8Rxhu/tdqvLGUQu1aV3J4bGlg1zfZ +OdtJoU6F54usxAhIMVTcxZrA91V+mv2qm4CA5Xuea+P6/zB3+lisT8JTueSO +H19wf7ofJlSRR0KFw8b3Cl0Uyqz1OdO8mA7aR35w3bxOobdnlTcPO9JhY1ug +7k9tCulcUmwTbKCDzlBVhEUFByWJBnaOskRgd/3Bg65iHCQnveezQYAIuHwT +qZHSn0Jq2gtyo/ky4B76d/e9ttvI7EvkujR+BuiDqLOj/i0UO21KehxhQJ+h +j5ulYyoib33S3vaUARcFqhWc3K4jG60FdRtZJpSlaSTpkvFoMvx10OlwJrh4 +mrPK18WhJ0FRQhkjTBhU5reaSolCZc9OBAwCC6bKdYtCusJR3vmyfQ0pLNC8 +8/mrjnQIetkcpKc1zwKjARnXNYsD0TLrYLEmSzbQM9OGqh/7oWylcTmJUjYo +Vo2utw/3QdHu9yefldFg9Le+rctbCt06PTjz8CQBLgdq7srPUGi57x59G0kS +3P0ZyZK4vgmnZn0ofxLOiWgcCx6j0Nb/JEvJ1yRoDOTdci7H9fwV7zCymQ5S +bZrbhPF93t5tON2QgPm+ef5A3V8OIsc3LikZZ4MxzUNULc4LmZeJP0uVEIKE +lf7NjR4UqjY/dG88Thh03/9Zva4Y+9sQ9eqKPg2+TofJXm6nELNPb9ffXzQo +bdvOTByn0NUppR3MagJ0umWXZHyjkHlzcLi9Jgnvq8/F9uD8G2/eXJmVSkLM +i3fDzn0U6vbODwn9TcL+A4KKehkUWi+k+Czbig5fpT56jRtifgzpGt8qp0PV +b4sJ/VYOqhm83PpAVARQ2uT5Nwoc5PFE3kvuOJ4/Pxef7XecQp+JRw156TLw +NmvvWTn9bLTqJr+F508ZcK7Y2XHk4S3k5zglRzvAAHuanHImkYYkpvVHpssY +wNBdMAL+JLSK29JimxQTJFdXS7Ni41EzbW+U8mkmaHUaFZtScahytCHTqYcJ +Zr3r68Z3R6OmL21cXqos+Nhl9svbKgIFygvvu3qZBb5v1SRmIkJQrV7iS/HP +LGhpinekmgIR+8bDWG9DNqibpyTuM/VHz4PjN3jmsqEsn9xyStAXpRy+I7Uv +gwZ7PFwW/AcpxJG1UjtkS8C1M8k8gVg/B4UL9/9ZSkLOp9sJ0fj+ORSNTHcn +IdjkII3rE4X2T6o8/9mGcVfvQmINhYjCVtcba+kQGxfZ/CCAQrO9O0IuXqDD +f096fUxICqmqvyWXDrAhn+4Z6rrYG0WcNakpWkfAhk2B4764X2aHNfy8NEnA +obGm1Sk4XvrgTgOuvSTU6vn9Kcf9NrbBda69lIQHXZse+LVRaN+Lw4XCsQRw +tUgsvz5LoQ/985vKVpLQ/YNPwgbzQYun95V2OAn5vgcexI1QaDI+jNv6Kxtk +2A2ntkt7IafkUleTpUJQtW+T3oAbhXheDb44ES4MNvEy2muKKDS+lu+YtRYN +eIqXPn6F420vDHPr/kKDakr1O/qA+1NklGXdfQL2f/vZooHjnV1EdGtsJiFk +3uRzGs7HQrxgfVIiCbrClwd6X1PIw6AxfHiOhG0Xo3PcblOopytXOMqcDr+b +U3en78H2/C9ipkroQJN8PcnXw0FdKKVZhiYCTw5rmr5R5aBYMqFE3FUEJBDi +8vWZQvoL4vFLb8jAbIWLVH9YNrp0stFl/zcZeKLaED3CuYUmUys3Hd7HgIir +6zrVXNJQsqSfcnMxAzKis5NT9yUhASdeBzVRJtRvzMrZ1B6PHnUTcTG+TPjU +mJTiJH8ZlSe+5+i3M6F5wWbnpcxo1MG7sL1yAwsccrbpMVIi0PipcouFaMy/ +uuqimschSCM8U2zRBxbkVpW83KQQhDI1O1ob9fC8TbWrW0j2R0Nr3R7I3GJD +7bMk5XETX3TbWvY+4xoNTDzNN3/D9RH9nbBfxZyAL8kdO+MoCgXYDNib8ZPw +/H3y5zzMB2mFtEP+ziTQVW6fSsT9f9wOXn1pJKHQbejxn3oK5UV8dJ9fRQeu +jkM9r85R6EZaXcvxUDowp5vvWizD7913pQmPutmgk6+dUbvDG921uPQudDkB +y195JZpOUmiEyRZWHiYgmBZacALHa5PoTeo3IqH3g+XNDzgfhpYfd0MRCd8n +DJbbvaTQmay0l+9CCBhx2f3mI+43PGtktQWYJDiKOJjXYz64ajutljhLgkCa +sEviewr9t9Umgo/Dhqv86YqWFl7Iak+P8ulmAnw/h7fPYfvVMbOqUUDCpPPz +/2anKdRkKiUWfZSALbIrKGuMdWrPmRbQSSD9funY4PzcJo5++vSdgDbj5PfF +GG+YX3FR4wYBnT/5JNXwe7z54nMFJ3kSslpkr73FuH+yIKhggQ2D3J4X5+o8 +EUcwXDOXTwhEj0uv/nAU6y9ReqjqrDDkGnN5rCzEelnzVL1alQYLf21s5/A+ +YJmUeaZ6ggan6I/CLuP+P9Vddli0gIDMlfHfuXD+Yissf8oqk7D9IidnAfM/ +pUPlwdV4EqRquu14cX8pV7Pgp30joWCVw2/vHArJq43fDzChQ2PKw4ipfRQq +vCGiJFJMB7qtzbRlPwe98V7eZLpUBB4b3sw21uKg9IqWbiFnEcjS7uS9d3oK +fT2m93PrdRmobFdQpDKzka59zozRjAxs8y6RPSiYiW5X3Ko4v4cBrWdev7WN +T0M2d4UHHhQyQAcOB+UGJaGAa4OuG0km2OfzqUVR8UhJjbpS5cWEU+9f22no +XkZbvLxF1VuZcPVCbqLBy2hkQcQ5D69jQf3dvd91qiOQzIrYnnUXWMCVrqvo +3B+C/LLkHy28Y0HPH8n0jgNBaCza1m1mGxtcEtoks2r80ZGz+77PpLGhdEhE +0d/bF+VZjgYGx9Eg8Mjg0Q2Y/2s+PjjKMCSg0X9VgCjmmwC395HTi0gw4fzn +dR/fb/HOsQhHBxJ2JOeHWGG+rmM02Uw+JYG3HF3KaaDQN++THNkVdFCPss2z +CaUQxcV13O4cHRKq+Nt3MvD7STWjN6aDDR83MXKqHb3RE3R31kOagPEe26hy +rKc/bkYSYa8JiCZvbT+A4zlsZtY27MZ8hKxDPngeOM79jnxylwS7kkqzlg7c +j2Mfj7SeIcA9+qZWNOb/lbYqXWVpEr7YJZp8wXz4Y3PXkOcMCWn29guxeH+M +vKLXNDjBBucwbeMCby90Ip1bq7WegJ7YJXYvsH1lvobtSW0SuFYodh/B/gY0 +1WVPOBJw8O26/ikc/8URCYtXNBJY49VF//R5Qe36jOY0ARaSgsv/9Ydt7yF1 +VQIBK/s33v2E+WepYr8hRpaEtjDnpyzs3x4l1YTOsUHU4OwJoV+eqFjjoLHn +IwJ2GXR0H8fnnx9st5VbQsJO7+Gf/+ZPfcfMouExAs4FTvyMwvjEuVj1YTYJ +gk161y9je02+XHm5dgJcx1INGPj8ntSEQZgYCcvV1mlpYWyUunU48RcBj3Ye +cPi3H5gk1mn1/mbD44ymizuiPFHJU/esbh4hSA3QG3LD+vObr3AaPiMMFy+L +m2bgfdxDNpP1RYUG2Wqv10Ri/Y0Iq4SXjNOgodGvfAvWX0CAsdPWOwREyYas +HMX6Hr63IJy6gYRK8XpjWYx1lOa+E1dJaB4+4Z6E9fd2nczO7FkSbkUpdvrk +UqjLhS/8qxEdjnSUHIizwvV2Uv1zu4gOhL1f75kBDnon6Ng4sUQENBi2RTw6 +HCQf6+R0wVEEhLd5PNoVNIUM5IcKX12TAV6z8ooLJdmIYZWo1vRFBkKyTCrv +LMtE3Luu/ZYxZ8D3QflHF+6kIa2T1kVrC/D7J79sR8OVJLRJaadHIY0J/G7K +Lxv/xCM3F9v4PZ5MmE7h87lvfBnNvVHPKW5hgkbSy46GD9EoUcxmzluRBbyl +5R2O7RFI7fuphMZIFqA9GXE7x0OQ2AN3gZMjLOC89HpWfSII8W26XRGpy4Zr +XZYVMV3+6K68oYRtKhuo1i17e0N9kcK+eoeSSzSgtDVN2vB+V3xwuw99F+aT +0cGtPfi9YWbx+JMwDwkfX6TQSvH9nek9n/zajgTv0L7gh1h/Haej01zqSdgH +J0/4P8PzyXWrUjWbDtaU65IbYRRKUmHD6yA6JFfOO2qzKCQxcm3+RzsbrPM5 +sWa+3mjXQ81f9pIE0GWutrtj/cXQR6ULeglQbzgiYIzjrX9a2625iwSlD9ft +yjD/+S1qW7TySejRvC50Bu9Dy3iNJmpPEXBGs3faGuuln7244dkyEo7cubiE +F//fMmFy+NRpEnavMkkUwHxp1dL6pP8J5/Rar8wt2Ast0k9C32oIqFHnU36E ++RypMeT1WYuEgEY935vYn1Nx0/qjdgQkvkweK8XxxSrte48K4/i9u1WCsX+J +ofVzjhwCHg8OyWf+m5dWHbeXXSFgwbTVtRbr72ZEwf0Vq0lILY1YrI3950zE +jHC+scH0z8fot0u9EBqZNU8qJeBobm+zBT5XWRw3XLWYBEtuA+4s7M/c/4KA +wHsClPqz+85hXNX1utKXRUL8jQShfGzffFd7vVkrAXs2Bi0VxOdzHptfSIqS +kJGmbmaI8eC27tGaHwSsLT959wHG8fDooO4vNhyqE5K6ku2J6gplx8Z48f6u +KlZViM89Gx7Sbd4QsGm6JsAV40jR1k4gSShfVSXwDy/EcXHoXwm4d2vJkn/2 +t+1+DFwVJEF7XKwvHuPNCgf+PvxIgCIlKP4PV3/PHjj2h4BpJX7+MowFp1ql +3f+woVDpVDt5zBP9D3K9P2Y= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1Hecz3UcwPETmWWPSjKPK/NOOqvIXklGaRCHQrnLCFEZlb3LrFRkhgql +oWRvWjSMIg1kV2bj+X70x/Ne3+/nc4/ffX/v7+dxJdMyWqdnSkhIqOlH9DLr +eZHHaE5VriIzV9jASzxOC24lC3+zkan04i6qUcAH79O3eI4uXM0/bGIa6bSk +qN/9SVcwltsoaG2/LuF5Et2f0E/oSnH3v+oqJpLk/rR+Rlb+ZTPTKW/vnGZQ +2vVx/ZjKrs/r3dzo+kh8L12pFfVPra7jtJyeimfTNZqsF7WGpmohPRBz06Va +Qf/QVH1By+rJmI1+qlX0gnajhOvf9AMquf5LJ3Gz6zO6lmzEy9oiM3iCMu5/ +19W0opj7n/U9xsezU9jaQV3GCB6hpLWj+iGTyR4fbW2rzqQ393CTtV/0fSbE +d6WItR/0bUbyKDnirFjfprPoQ+s4X1xn/Ud9h1F0J2ecK+vb9WX60oZaXG/9 +kL7LaHqQK86a9R36Cv1oS22uiXNlb6e+ypO043aujbNgb5fOpj/3cge5yUNe +8pGfAnHu4l3G3OK7xvPHM3EDReOcxJxjNnEG493FPCkVZyveCYnxvuOd+du7 +9TUGcB914izFzO19rq8zkPbUJSnmae8LfYOnuJ874zzE7Ox9qXMYxAPU45aY +k72vdC6DeZD6lI852fta3+RpHqIBFWJO9vboPJ6hAw2pGHOyt1fn8ywdaUSl +mJ+9b3QBQ3iYxlSOudr7VhcylE40oUrM2953uohhdKYpyfEe7H2vixlOGs1i +/tYP63LG0DNmbu2YfsSUmIH7s7qOFNeXEv7/H5ei/wFrN4hZ + "], 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]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3.5, 8}, {0., 0.9674940221461537}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VU0YB3CEJO451xru0iaiFEWWmEdFZVciSlkjlK0oUfaiUJEIEaGE +hGRJlmSJZAuRKFLknlCR6q13+ut+vp87Z5t55vfMCgfPPc48XFxcmtxcXP9+ +/QL3CnFxCUGFslLztCuFip+6Z3XzCEFqgN6Q21EKcQTDNXP5hED0uPTqD9hO +yaWuJkuFoGrfJr0BNwqZl4k/S5UQgoSV/s2NHhRaN90XpLFeCEQO9bnf8aLQ +O8eDX3xshEAiUq85+hSFjAyduz6UCkHuwMknhRcotGu/9RTPaWEwzLAlWfkU +8puvcBo+IwwXL4ubZmBnJ0oPVZ0VhlxjLo+VBRTieTX44kS4MNjEy2ivKaRQ +tfmh++NxwqD7/s/qdUUUUjF09HmeIww3/2s13lhKIYbOsR9XeoSBM1sxLfqY +Ql9WhfCu2EgDjdtnr4u3UshDNpP1RYUG2Wqv10RiT655ql6tSoOFvza2c9jj +a/mOWWvRgKdo6eNXbRR6uyHq1RV9GnydDpO93E6hdq0rOTy2NLDrm+yc7aRQ +/t5bu8aiaPDO9kClaz+FFPbVOxRfogGlrWnShn3HcjQwOI4GgUcGj254TaHb +1rIPGNdoYOJpvvkbdsrhu1L7Mmiwx8NlwX+QQtHuDyafldFg9Le+rctbCh0N +q7uUO0oDMR+a+ttRCo0Iq4QXj9OgodGvfMsYhSyTMs9UT9DgFP1R2GXs7QVh +bt1faFBNqX5HHyjE7NPb9fcXDUrbtjMTxynUqfB8kZUYASmGirtYE3g9Hmr+ +spckgC5ztd0d+wm6N+shTcB4j21UOfY9i0vvQpcTsPyVV6LpJIUizprUFK4j +YMOmwHHfzxTS6OoK4NcjYMe9jzIJHAoVHdzuQ99FgIXRwa092Gs+lhxlGBLQ +6L8qQJSikOjvhP0q5gR8Se7YGYfNkbVSO2RLwLUzyTyBX3C9FTWtP2pHQOLL +5LFS7AFNddkTjgQcfLuufwq7yVRKLPooAVtkV1DW0xS6dXpw5uFJAlwO1NyT +n6HQMl6jidpTBJzR7J22xo6NfTzSeoYA9+ibWtHYZ7LSXr4LIWDEZfebj9j7 +XhwuEI4lgKtFYvn1WQq1WXXcXnaFgAXTVtda7G3vIXVVAgEr+zfe+4S9YX7F +RY0bBHT+5JNU+0qhJSvGXJ1zCAixDrFrwA4IMHbaepeAKNmQlaPYU91lh0Xz +CchcGf+d6xuun8goy7oHBOz/9rNFAxuNzJonlRJwNLe32QK7SOOgsecjAnYZ +dHQfx746pbSDWU2ATrfskgzsRfpJ6FsNATXqfMqPsE+kc2u11hPQE7vE7gW2 +1Z4e5dPNBPh+Dm+fw26+p73erJWAPRuDlgp+p5AmX668XDsBrmOpBgxsRvlp +9qtuAgKW73mujR1DH5XO7yVAveGIgDH2HzcjibDXBESTt7YfwPZseEi3eUPA +pumaAFfsESZbWHmYgGBaaP4JbHP/CwIC7wlQ6s/uO4dd3zGzaHiMgHOBEz+j +sDcrHPj78CMBipSgeDx2dljDz0uTBBwaa1qdgi0xtH7OkUPA48Eh+UzsC2rX +ZzSncT1JCi6/g70Qx8WhfyXg/q0lSwqw3SaOfvr0nYA24+T3RdiD27pHa34Q +sLb85L0SbKPUrcOJvwh4tPOAw0Ps6u/ZA8f+EDCtxM9fhn09d7F7JhcJ7R4q +1/79b2bx+JMwDwkfX6TQSrEFuL2PnF5EggnnP68H2HUFsmNjvHi8qljVv+cH +2AzYm/GT8Px98ud/76eyOG64ajEJltwG3FnYn0u228otIWGn9/DPf9932+7H +wFVBErTHxfr+ff9B4YL9f5aSkPPpdkI0tlilfe9RYRJ6enerBGO/OCJh8YpG +Amu8uvDf/EaKtnYCSUL5qiqBf/OvU3vONJ9OAun3S8cGe85j8wtJURIy0tTN +DLHvS00YhImRsFxtnZYW9nLfPfo2kiS4+zOSJbH72Ysbni0j4cjdi0t4sa+0 +VekqS5PwxS7R5AuuH541stoCTBIcRRzM67Grul5X+rJIiL+RIJT3r/7OxaoP +s0kQbNK7fhn7Q//8prKVJHT/4JOwwb4Zkf9gxWoSUksjFmtjW6rYb4iRJaEt +zPkp6199Xnyu4CRPQlaL7LW3eL/k6aStEFEiofBcU6Ap9vD9BeHUDSRUitcb +y2KLrbD8KatMwvaLnJwFvB/PLiK6NTaTEDJv8jkN27w5ONxek4T31edie/D+ +jtQY8vqsRUJAo57vTezKPA3bk9okcK1Q7D6CvTpmVjUKSJh0fv7fLM6TH+ZO +H4v0SXgql9zxA+fN+qe13Zq7SFD6cN2uDNthM7O2YTceD1mHfLDbJHqT+o1I +6P1gefMDzrP0wZ0GXHtJqNXz+1OO80/fWbHA9DAJWu5z3XScl2d6zye/tiPB +O7Qv+CHO06KdYxGODiTsSM4LscKWVkg75O9MAl3l9qlEnL8cikamu5MQbHKQ +xvWJQgmnZn0ofxLOiWgcC8Z53zJhcvjUaRJ2rzJJFMD+Y3PPkOcMCWn29gux +uF+4ajutljhLgkCasEviewpp8fS+0g4nIc/3QEncCIXeX6xQj7lMwp+G+lyF +N7ielOa+E1dJaB4+4Z6E+1FKh0rJ1XgSpGq67XixLcTz1yclkqArfHmgF/ev +xps3V2alkhDz4t2wcx9evwdhQhV3SKhw2PheoYtC/Ba1LVp5uJ41rwudwf3S +ce535JN7JNgVV5q1dOD80fLjbigk4fuEwXK7lzivG1zn2ktJKOnaVOKH+69v +n/HIWC0Jn8VmDuk3UqjjdHSaSz0J++DkCf9n+PzBaLKZfEoCbzm6lNOA+7cd +vPrSSEKB29DjP/UU2j+p8vxnG56/rt6FxBoKbf1PspR8TYLGwJ1bzuUU4l31 +/vzWGRL+87J86n0H9/t1MjuzZ0m4FaXY6ZNLoXI1C37aNxLyVzn89s7B5weD +xvDhORK2XYzOcbtNoW7vvJDQ3yTsPyCoqJdBocxanzPNi+mgfeQH183rFIJD +izwtWHRoSu117gvH6+u6VamaTQdrynXJjTAKffM+yZFdQQf1KNs7NqH4vBDx +0X1+FR24Og71vDpHIaKg1fXGWjrExkU2lwTg9/sV7zCymQ5SbZrbhPF5KzB5 +taWHIR06swcKNlhTqMuFL/yrER2OdBQfiLOikLza+IMAEzo0pjyMmNpHoZ6u +XOEoczr8bk7dnb4H17eQ4rNsKzp8lfroNW6I739WefOwIx02tgXq/tSmkK6T +jsieQDo8savfu3E5hZJU2PA6iA7JlfOO2iwKUVxcx+3O0SGhir99J4NCN9Lq +Wo6H0oE53XzPYhmFZnt3hFy8QIf/nvT6mJA4/3YbTjck4PnYPH+g7i8H8W/Y +376lgA78bb8sbr7hoAEn1T+3C+lA2Pv1nhngoIIbIkoiRXSg29pMW/ZzkAX/ +i5ipYjrQJF9P8vVwUOaQrvGtcjpU/baY0G/lIJ1Lim2CDXTQGaqKsKjgIL+J +Py1DA3SQy+0xuRHPQeNZ2c/CBESA4Sln+BA46J2gY+PEEhHQYNgW8uhw0Bvv +5U2mS0XgseHNbGMtDupCKc0yNBF4cljT9I0qB9UMXm4tERUBlDZ5/o0CByWJ +BnaOskRgd/3Bg65iHGQYtmdou6oIzAdr6ed/mEJFDn+/LXIQgUWHadHDwVNI +PtbJ6YKjCAhv83i0K2gKpVe0dAs5i0CWdifv/dNTKJZMKBZ3FQEJhLh8faaQ +xxN5L7njIjD3c/HZfscpJCe957NBgAi4fBOpkdKfQjc7b7+7clUEdqjfEfUX +mEKXwKCd/RSP77Z/9SD8M3ryX+Gax0xRmIkJvOTkPYl4BnjXfjsnCk+DDDSa +WRNoI5eLo92IKKgkS9+dKfyISvlGGcaaYnBsJK8PdMaRgYJZ8KsUMbDbvKl8 +JnkMqSn1ObydE4N9i7c/pfhG0WZz0y+h1uJAXGz9Omr4DjGedJccqBSHPOFG +nlitYWQj6DNfKiYB6WmXHmivf4PyTnJ/uOsnAZKHf2cc/9uPzGrzzNldEnAl +6Q5NQrkXjVjYzTUrSsKGn9SE0s1uFCqwWI8WIwnWl3b+nRbsRAEpTSI9HyXB +VGJMtrz0BQo3Ph2tarAMRlTuPKEfb0Gndm/RbM1bBsMdxf1KJc9Q/Wri6Dte +KRg346QqptcjFrtfN/6IFLSNvJyvcqxBHT8qk5/VSUFMap9gbVYl8mDkrV0n +Iw3nZQpVZZPKkPThaEelQGkgdPM+b+sqRqyQcMaDXmmIeWk9rpp5H22u9zz3 +Ul0Gjkr7KWbI5KGM9yfsjyfIQF719rvr67ORgfxQwatrMsBrVl5xoTgbfT2m +93PrdRmobFdQpDKzkf6CePzSGzIwW+Ei1R+WjT4TjxrupMvA26y9Z+X0s5Ga +9oLcaJ4MuIf+3X2/7TZqvR5EWdXJgE6VgL3muyw0ZxR5RpeSgX6r2jfccpmI +YZWo1vRFBkKyTCrvLstEuvY5M0YzMrDNu1j2oGAmunSy0WX/Nxl4otoQPcK5 +hVbd5Lfw/CkDzhU7O448vIXMvkSuS+NngD6IOjvq30J5V84P/WAxYH7MASjP +DHSo9wIqMmXAsQ2r5Z/WpCHuXdd+y5gz4Pug/KMLd9PQ7YpbFef3MKD1zOu3 +tvFpaDK1ctPhfQyIuLquU80lDfk5TsnRDjDAniannEmkodhpU9LjCAP6DH3c +LB1TUbWg5Du5IAaYb3GQmRVPQQyUHZqexwBZhfk709lJSOukdeHafAYw8sp2 +NFxJQjb3hAdKChigA4eDcoOSULKkn3JzEQMyorOTU/clIYlp/ZHpMjxed8EI ++JMQeeuT9ranDLgoUK3g5HYd8S5atzA2yIDKy+Iu3dqJaKqx2FNBmAn7rTh/ +SSIBbVLa6VFAYwK/m/LLxj/xKODaoOtGkgn2eXxqUVQ8EnDidVATZUL9xqyc +Te3xaBW3pcU2KSZIrq6WZsXGIxutBXUbWSaUpWkk6ZLxqOU+4onWZsJ17nTD +SOZVlJPUljBxjAlH/4bmqdhcRm4utvF7PJkwncLn88D4MlJSo65UeTHh1PvX +dhq6l9GjbiIuxpcJnxqTUpzkL6Nm2t4o5dNM0Oo0KjKl4tBk+Oug0+FMcPE0 +Z5Wvi0NK3uNHlqQwYcC/9GxmWQwq282lsbaZCUm7A9aa/45Gc2/Uc4pamKCR +9LKj4UM02uLlLareyoSrF3ITDV5Go/LE9xz9diY0L9jsvJQZjSpHGzKdephg +1ru+bnx3NHoSFCWUMcKEQWV+q6mUKNT0QGREYoEJsxIrR4eMLqB+KdnzvAos +eJH+qvLacARKFLOZ81ZkAW9peYdjewSyIOKch9exoP7e3u861RGog3dhe+UG +FjjkbNNjpESgpi9tXF6qLPjYZfbL2yoClT07ETAILJgq1y0M6QpHCd4Nx4qt +WBA2YtU32xmGzFocLewiWGBlUeax+VsIUvt+KqExkgVoT0bczvEQJLMitmfd +BRZwpesqOveHoPFT5RYL0SzwrasurHkcggLlhfddvYz9Vk1iJiIE3Tlftq8h +hQWadz9/1ZEOQdz6S6zki1kQVJdsaGEQjIrrC62n37LA4rxfcE1MEBIrcRc4 +OcICzkuvZ9UngpBflvyjhXcs6Pkjmd5xIAhphGeKLfrAgtyq4pebFIJQrV7i +S/HPLGhpinekmgLRy+YgPa15FhgNyLiuWRyIptqNlCMJNjiFqXdsTghAawYn +BRjABt6thcLnP/gjvk23KyJ12XCty7IipssfjUXbus1sY4NLQptkVo0/ytTs +aG3UY8OFVLu6hWR/xL7xMNbbkA3q5imJ+0z90TLrYLEmSzbQM9OGqh/7oaV9 +4st9jrGhzofDtzjzJJrugi3NN/D1i4zv7kjwRffkDSVsU9lAtW7Z2xvqi46c +3fd9Jo0NpUMiiv7evmhorVuJzC021D5LUh438UXPg+M3eOayoSyP3HJK0Bdl +K43LSZSyQbFqdL19uA+yib64zOkFG9p+OS6fCfVGEiPX5n+0s8E6jxNr5uuN +OlUzemM62PBxEyOn2tEb7XpXmvComw06edoZtTu8kar6W3LpABvy6J6hrou9 +ETm+cUnxOBuMaR6ianFeqFVL65P+J3xmea1X5hbshSKv6DUNTrDBOUzbON/b +C/231SaCj8OGq/zpipYWXmgyPozb+isbZNgNp7ZLe6GciZgRzjc2mP75GP12 +qReyR0k1oXNsEDU4e0Lolyfqn8wPyl9gwyC358W5Ok8UD48O6v5iw6E6Iakr +2Z7IJLFOq/c3Gx5nNF3cEeWJBKdapd3/sKFA6VQ7ecwTPdPtXfj7F8/vUoG2 +72ae6H/zkD9m + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3.5, 8}, {0., 0.9674940221461537}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VU0YB3CEJO451xru0iaiFEWWmEdFZVciSlkjlK0oUfaiUJEIEaGE +hGRJlmSJZAuRKFLknlCR6q13+ut+vp87Z5t55vfMCgfPPc48XFxcmtxcXP9+ +/QL3CnFxCUGFslLztCuFip+6Z3XzCEFqgN6Q21EKcQTDNXP5hED0uPTqD9hO +yaWuJkuFoGrfJr0BNwqZl4k/S5UQgoSV/s2NHhRaN90XpLFeCEQO9bnf8aLQ +O8eDX3xshEAiUq85+hSFjAyduz6UCkHuwMknhRcotGu/9RTPaWEwzLAlWfkU +8puvcBo+IwwXL4ubZmBnJ0oPVZ0VhlxjLo+VBRTieTX44kS4MNjEy2ivKaRQ +tfmh++NxwqD7/s/qdUUUUjF09HmeIww3/2s13lhKIYbOsR9XeoSBM1sxLfqY +Ql9WhfCu2EgDjdtnr4u3UshDNpP1RYUG2Wqv10RiT655ql6tSoOFvza2c9jj +a/mOWWvRgKdo6eNXbRR6uyHq1RV9GnydDpO93E6hdq0rOTy2NLDrm+yc7aRQ +/t5bu8aiaPDO9kClaz+FFPbVOxRfogGlrWnShn3HcjQwOI4GgUcGj254TaHb +1rIPGNdoYOJpvvkbdsrhu1L7Mmiwx8NlwX+QQtHuDyafldFg9Le+rctbCh0N +q7uUO0oDMR+a+ttRCo0Iq4QXj9OgodGvfMsYhSyTMs9UT9DgFP1R2GXs7QVh +bt1faFBNqX5HHyjE7NPb9fcXDUrbtjMTxynUqfB8kZUYASmGirtYE3g9Hmr+ +spckgC5ztd0d+wm6N+shTcB4j21UOfY9i0vvQpcTsPyVV6LpJIUizprUFK4j +YMOmwHHfzxTS6OoK4NcjYMe9jzIJHAoVHdzuQ99FgIXRwa092Gs+lhxlGBLQ +6L8qQJSikOjvhP0q5gR8Se7YGYfNkbVSO2RLwLUzyTyBX3C9FTWtP2pHQOLL +5LFS7AFNddkTjgQcfLuufwq7yVRKLPooAVtkV1DW0xS6dXpw5uFJAlwO1NyT +n6HQMl6jidpTBJzR7J22xo6NfTzSeoYA9+ibWtHYZ7LSXr4LIWDEZfebj9j7 +XhwuEI4lgKtFYvn1WQq1WXXcXnaFgAXTVtda7G3vIXVVAgEr+zfe+4S9YX7F +RY0bBHT+5JNU+0qhJSvGXJ1zCAixDrFrwA4IMHbaepeAKNmQlaPYU91lh0Xz +CchcGf+d6xuun8goy7oHBOz/9rNFAxuNzJonlRJwNLe32QK7SOOgsecjAnYZ +dHQfx746pbSDWU2ATrfskgzsRfpJ6FsNATXqfMqPsE+kc2u11hPQE7vE7gW2 +1Z4e5dPNBPh+Dm+fw26+p73erJWAPRuDlgp+p5AmX668XDsBrmOpBgxsRvlp +9qtuAgKW73mujR1DH5XO7yVAveGIgDH2HzcjibDXBESTt7YfwPZseEi3eUPA +pumaAFfsESZbWHmYgGBaaP4JbHP/CwIC7wlQ6s/uO4dd3zGzaHiMgHOBEz+j +sDcrHPj78CMBipSgeDx2dljDz0uTBBwaa1qdgi0xtH7OkUPA48Eh+UzsC2rX +ZzSncT1JCi6/g70Qx8WhfyXg/q0lSwqw3SaOfvr0nYA24+T3RdiD27pHa34Q +sLb85L0SbKPUrcOJvwh4tPOAw0Ps6u/ZA8f+EDCtxM9fhn09d7F7JhcJ7R4q +1/79b2bx+JMwDwkfX6TQSrEFuL2PnF5EggnnP68H2HUFsmNjvHi8qljVv+cH +2AzYm/GT8Px98ud/76eyOG64ajEJltwG3FnYn0u228otIWGn9/DPf9932+7H +wFVBErTHxfr+ff9B4YL9f5aSkPPpdkI0tlilfe9RYRJ6enerBGO/OCJh8YpG +Amu8uvDf/EaKtnYCSUL5qiqBf/OvU3vONJ9OAun3S8cGe85j8wtJURIy0tTN +DLHvS00YhImRsFxtnZYW9nLfPfo2kiS4+zOSJbH72Ysbni0j4cjdi0t4sa+0 +VekqS5PwxS7R5AuuH541stoCTBIcRRzM67Grul5X+rJIiL+RIJT3r/7OxaoP +s0kQbNK7fhn7Q//8prKVJHT/4JOwwb4Zkf9gxWoSUksjFmtjW6rYb4iRJaEt +zPkp6199Xnyu4CRPQlaL7LW3eL/k6aStEFEiofBcU6Ap9vD9BeHUDSRUitcb +y2KLrbD8KatMwvaLnJwFvB/PLiK6NTaTEDJv8jkN27w5ONxek4T31edie/D+ +jtQY8vqsRUJAo57vTezKPA3bk9okcK1Q7D6CvTpmVjUKSJh0fv7fLM6TH+ZO +H4v0SXgql9zxA+fN+qe13Zq7SFD6cN2uDNthM7O2YTceD1mHfLDbJHqT+o1I +6P1gefMDzrP0wZ0GXHtJqNXz+1OO80/fWbHA9DAJWu5z3XScl2d6zye/tiPB +O7Qv+CHO06KdYxGODiTsSM4LscKWVkg75O9MAl3l9qlEnL8cikamu5MQbHKQ +xvWJQgmnZn0ofxLOiWgcC8Z53zJhcvjUaRJ2rzJJFMD+Y3PPkOcMCWn29gux +uF+4ajutljhLgkCasEviewpp8fS+0g4nIc/3QEncCIXeX6xQj7lMwp+G+lyF +N7ielOa+E1dJaB4+4Z6E+1FKh0rJ1XgSpGq67XixLcTz1yclkqArfHmgF/ev +xps3V2alkhDz4t2wcx9evwdhQhV3SKhw2PheoYtC/Ba1LVp5uJ41rwudwf3S +ce535JN7JNgVV5q1dOD80fLjbigk4fuEwXK7lzivG1zn2ktJKOnaVOKH+69v +n/HIWC0Jn8VmDuk3UqjjdHSaSz0J++DkCf9n+PzBaLKZfEoCbzm6lNOA+7cd +vPrSSEKB29DjP/UU2j+p8vxnG56/rt6FxBoKbf1PspR8TYLGwJ1bzuUU4l31 +/vzWGRL+87J86n0H9/t1MjuzZ0m4FaXY6ZNLoXI1C37aNxLyVzn89s7B5weD +xvDhORK2XYzOcbtNoW7vvJDQ3yTsPyCoqJdBocxanzPNi+mgfeQH183rFIJD +izwtWHRoSu117gvH6+u6VamaTQdrynXJjTAKffM+yZFdQQf1KNs7NqH4vBDx +0X1+FR24Og71vDpHIaKg1fXGWjrExkU2lwTg9/sV7zCymQ5SbZrbhPF5KzB5 +taWHIR06swcKNlhTqMuFL/yrER2OdBQfiLOikLza+IMAEzo0pjyMmNpHoZ6u +XOEoczr8bk7dnb4H17eQ4rNsKzp8lfroNW6I739WefOwIx02tgXq/tSmkK6T +jsieQDo8savfu3E5hZJU2PA6iA7JlfOO2iwKUVxcx+3O0SGhir99J4NCN9Lq +Wo6H0oE53XzPYhmFZnt3hFy8QIf/nvT6mJA4/3YbTjck4PnYPH+g7i8H8W/Y +376lgA78bb8sbr7hoAEn1T+3C+lA2Pv1nhngoIIbIkoiRXSg29pMW/ZzkAX/ +i5ipYjrQJF9P8vVwUOaQrvGtcjpU/baY0G/lIJ1Lim2CDXTQGaqKsKjgIL+J +Py1DA3SQy+0xuRHPQeNZ2c/CBESA4Sln+BA46J2gY+PEEhHQYNgW8uhw0Bvv +5U2mS0XgseHNbGMtDupCKc0yNBF4cljT9I0qB9UMXm4tERUBlDZ5/o0CByWJ +BnaOskRgd/3Bg65iHGQYtmdou6oIzAdr6ed/mEJFDn+/LXIQgUWHadHDwVNI +PtbJ6YKjCAhv83i0K2gKpVe0dAs5i0CWdifv/dNTKJZMKBZ3FQEJhLh8faaQ +xxN5L7njIjD3c/HZfscpJCe957NBgAi4fBOpkdKfQjc7b7+7clUEdqjfEfUX +mEKXwKCd/RSP77Z/9SD8M3ryX+Gax0xRmIkJvOTkPYl4BnjXfjsnCk+DDDSa +WRNoI5eLo92IKKgkS9+dKfyISvlGGcaaYnBsJK8PdMaRgYJZ8KsUMbDbvKl8 +JnkMqSn1ObydE4N9i7c/pfhG0WZz0y+h1uJAXGz9Omr4DjGedJccqBSHPOFG +nlitYWQj6DNfKiYB6WmXHmivf4PyTnJ/uOsnAZKHf2cc/9uPzGrzzNldEnAl +6Q5NQrkXjVjYzTUrSsKGn9SE0s1uFCqwWI8WIwnWl3b+nRbsRAEpTSI9HyXB +VGJMtrz0BQo3Ph2tarAMRlTuPKEfb0Gndm/RbM1bBsMdxf1KJc9Q/Wri6Dte +KRg346QqptcjFrtfN/6IFLSNvJyvcqxBHT8qk5/VSUFMap9gbVYl8mDkrV0n +Iw3nZQpVZZPKkPThaEelQGkgdPM+b+sqRqyQcMaDXmmIeWk9rpp5H22u9zz3 +Ul0Gjkr7KWbI5KGM9yfsjyfIQF719rvr67ORgfxQwatrMsBrVl5xoTgbfT2m +93PrdRmobFdQpDKzkf6CePzSGzIwW+Ei1R+WjT4TjxrupMvA26y9Z+X0s5Ga +9oLcaJ4MuIf+3X2/7TZqvR5EWdXJgE6VgL3muyw0ZxR5RpeSgX6r2jfccpmI +YZWo1vRFBkKyTCrvLstEuvY5M0YzMrDNu1j2oGAmunSy0WX/Nxl4otoQPcK5 +hVbd5Lfw/CkDzhU7O448vIXMvkSuS+NngD6IOjvq30J5V84P/WAxYH7MASjP +DHSo9wIqMmXAsQ2r5Z/WpCHuXdd+y5gz4Pug/KMLd9PQ7YpbFef3MKD1zOu3 +tvFpaDK1ctPhfQyIuLquU80lDfk5TsnRDjDAniannEmkodhpU9LjCAP6DH3c +LB1TUbWg5Du5IAaYb3GQmRVPQQyUHZqexwBZhfk709lJSOukdeHafAYw8sp2 +NFxJQjb3hAdKChigA4eDcoOSULKkn3JzEQMyorOTU/clIYlp/ZHpMjxed8EI ++JMQeeuT9ranDLgoUK3g5HYd8S5atzA2yIDKy+Iu3dqJaKqx2FNBmAn7rTh/ +SSIBbVLa6VFAYwK/m/LLxj/xKODaoOtGkgn2eXxqUVQ8EnDidVATZUL9xqyc +Te3xaBW3pcU2KSZIrq6WZsXGIxutBXUbWSaUpWkk6ZLxqOU+4onWZsJ17nTD +SOZVlJPUljBxjAlH/4bmqdhcRm4utvF7PJkwncLn88D4MlJSo65UeTHh1PvX +dhq6l9GjbiIuxpcJnxqTUpzkL6Nm2t4o5dNM0Oo0KjKl4tBk+Oug0+FMcPE0 +Z5Wvi0NK3uNHlqQwYcC/9GxmWQwq282lsbaZCUm7A9aa/45Gc2/Uc4pamKCR +9LKj4UM02uLlLareyoSrF3ITDV5Go/LE9xz9diY0L9jsvJQZjSpHGzKdephg +1ru+bnx3NHoSFCWUMcKEQWV+q6mUKNT0QGREYoEJsxIrR4eMLqB+KdnzvAos +eJH+qvLacARKFLOZ81ZkAW9peYdjewSyIOKch9exoP7e3u861RGog3dhe+UG +FjjkbNNjpESgpi9tXF6qLPjYZfbL2yoClT07ETAILJgq1y0M6QpHCd4Nx4qt +WBA2YtU32xmGzFocLewiWGBlUeax+VsIUvt+KqExkgVoT0bczvEQJLMitmfd +BRZwpesqOveHoPFT5RYL0SzwrasurHkcggLlhfddvYz9Vk1iJiIE3Tlftq8h +hQWadz9/1ZEOQdz6S6zki1kQVJdsaGEQjIrrC62n37LA4rxfcE1MEBIrcRc4 +OcICzkuvZ9UngpBflvyjhXcs6Pkjmd5xIAhphGeKLfrAgtyq4pebFIJQrV7i +S/HPLGhpinekmgLRy+YgPa15FhgNyLiuWRyIptqNlCMJNjiFqXdsTghAawYn +BRjABt6thcLnP/gjvk23KyJ12XCty7IipssfjUXbus1sY4NLQptkVo0/ytTs +aG3UY8OFVLu6hWR/xL7xMNbbkA3q5imJ+0z90TLrYLEmSzbQM9OGqh/7oaV9 +4st9jrGhzofDtzjzJJrugi3NN/D1i4zv7kjwRffkDSVsU9lAtW7Z2xvqi46c +3fd9Jo0NpUMiiv7evmhorVuJzC021D5LUh438UXPg+M3eOayoSyP3HJK0Bdl +K43LSZSyQbFqdL19uA+yib64zOkFG9p+OS6fCfVGEiPX5n+0s8E6jxNr5uuN +OlUzemM62PBxEyOn2tEb7XpXmvComw06edoZtTu8kar6W3LpABvy6J6hrou9 +ETm+cUnxOBuMaR6ianFeqFVL65P+J3xmea1X5hbshSKv6DUNTrDBOUzbON/b +C/231SaCj8OGq/zpipYWXmgyPozb+isbZNgNp7ZLe6GciZgRzjc2mP75GP12 +qReyR0k1oXNsEDU4e0Lolyfqn8wPyl9gwyC358W5Ok8UD48O6v5iw6E6Iakr +2Z7IJLFOq/c3Gx5nNF3cEeWJBKdapd3/sKFA6VQ7ecwTPdPtXfj7F8/vUoG2 +72ae6H/zkD9m + "]]}, "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:eJwVV3k4Vl8QRkjiu/ezhm9pE1GKIkucUVHZlYhS1ghlK0qUvShUJEJEloQk +yZIsyRLJFiJRpMh3Q0WqX/1Of93nfc7cmXnmvO/MmRUOnnucebi4uDS5ubj+ +ff0C9wpxcQlBhbJS87QrhYwMnbs+lApB7sDJJ0UXKLRrv/UUz2lhMMywJVkF +FPqyKoR3xUYaaNw+e128lUJHw+ou5Y7SQMyHpv52lEJLVoy5OucQEGIdYtfw +lUL5OmkrRJRIKDrXFGiK8fuLFeoxl0n401Cfq/CGQryr3p/fOkPCf16WT73z +KBSYvNrSw5AOndkDhRusKcS/YX/7lkI68Lf9srj5hoPGs7KfhQmIAMNTzvAh +cFCxw99vixxEYNFhWvRw8BS6BAbt7KciMNdt/+p++Gf05L+iNY+ZojATE3jJ +yXsS8Qzwrv12ThSeBhloNLMm0EYuF0e7EVFQSZa+M1P0EZXyjTKMNcXg2Eh+ +H+iMIwMFs+BXKWJgt3lT+UzyGFJT6nN4OycG+xZvf0rxjaLN5qZfQq3FgbjY ++nXU8B1iPOl+cKBSHPKFG3litYaRjaDPfKmYBKSnXbqvvf4Nyj/J/eGOnwRI +Hv6dcfxvPzKrzTdnd0nAlaQ8moRyLxqxsJtrVpSEDT+pCaWb3ShUYLEeLUYS +rC/t/Dst2IkCUppEej5KgqnEmGx56QsUbnw6WtVgGYyo5D2hH29Bp3Zv0WzN +XwbDHSX9Sg+eofrVxNF3vFIwbsZJVUyvRyx2v278ESloG3k5X+VYgzp+VCY/ +q5OCmNQ+wdqsSuTByF+7TkYazssUqcomlSHpw9GOSoHSQOjmf97WVYJYIeGM ++73SEPPSelw18x7aXO957qW6DByV9lPMkMlHGe9P2B9PkIH86u131tdnozmj +yDO6lAz0W9W+4ZbLRId6L6BiUwYc27Ba/mlNGmKg7ND0fAbIKsznTWcnoanG +Ek8FYSbst+L8JYkElJPUljBxjAlH/4bmq9hcRmW7uTTWNjMhaXfAWvPf0ahf +SvY8rwILXqS/qrw2HIHMWhwt7CJYYGVR5rH5WwgqqS+ynn7LAovzfsE1MUFo +zeCkAAPYwLu1SPj8B3803QVbmm+w4cIi4zs7EnzRM93ehb9/MV4q0PbdzBO9 +czz4xcdGCCQi9ZqjT1GIoXPsx5UeYeDMVkyLPqZQwd5bu8aiaPDO9kClaz+F +NLq6Avj1CNhx96NMAodC13MXu2dykdDuoXLt4XcK6TsrFpoeJkHLfa6b/plC +vn3GI2O1JHwWmzmk30ghOLTI04JFh6bUXue+cArpOumI7AmkwxO7+r0bl1PI +b+JPy9AAHeRye0xuxHOQYdieoe2qIjAfrKVf8GEK3ey8/e7KVRHYoZ4n6i8w +hVqvB1FWdTKgUyVgr/kuC+VfOT/0g8WA+TEHoDwzULWg5Du5IAaYb3GQmRVP +QbyL1i2MDTKg8rK4S7d2Imq5h3iitZlwnTvdMJJ5FSl5jx9ZksKEAf/Ss5ll +MajpvsiIxAITZiVWjg4ZXUAJ3g3HSqxYEDZi1TfbGYa49ZdYyZewIKgu2dDC +IBhNtRspRxJscApT79icEICW9okv9znGhjofDt/izJPIJvriMqcXbGj75bh8 +JtQbrZvuC9JYLwQih/rc87wopGLo6PM8Rxhu/tdqvLGUQu1aV3J4bGlg1zfZ +OdtJoU6F54usxAhIMVTcxZrA91V+mv2qm4CA5Xuea+P6/zB3+lisT8JTueSO +H19wf7ofJlSRR0KFw8b3Cl0Uyqz1OdO8mA7aR35w3bxOobdnlTcPO9JhY1ug +7k9tCulcUmwTbKCDzlBVhEUFByWJBnaOskRgd/3Bg65iHCQnveezQYAIuHwT +qZHSn0Jq2gtyo/ky4B76d/e9ttvI7EvkujR+BuiDqLOj/i0UO21KehxhQJ+h +j5ulYyoib33S3vaUARcFqhWc3K4jG60FdRtZJpSlaSTpkvFoMvx10OlwJrh4 +mrPK18WhJ0FRQhkjTBhU5reaSolCZc9OBAwCC6bKdYtCusJR3vmyfQ0pLNC8 +8/mrjnQIetkcpKc1zwKjARnXNYsD0TLrYLEmSzbQM9OGqh/7oWylcTmJUjYo +Vo2utw/3QdHu9yefldFg9Le+rctbCt06PTjz8CQBLgdq7srPUGi57x59G0kS +3P0ZyZK4vgmnZn0ofxLOiWgcCx6j0Nb/JEvJ1yRoDOTdci7H9fwV7zCymQ5S +bZrbhPF93t5tON2QgPm+ef5A3V8OIsc3LikZZ4MxzUNULc4LmZeJP0uVEIKE +lf7NjR4UqjY/dG88Thh03/9Zva4Y+9sQ9eqKPg2+TofJXm6nELNPb9ffXzQo +bdvOTByn0NUppR3MagJ0umWXZHyjkHlzcLi9Jgnvq8/F9uD8G2/eXJmVSkLM +i3fDzn0U6vbODwn9TcL+A4KKehkUWi+k+Czbig5fpT56jRtifgzpGt8qp0PV +b4sJ/VYOqhm83PpAVARQ2uT5Nwoc5PFE3kvuOJ4/Pxef7XecQp+JRw156TLw +NmvvWTn9bLTqJr+F508ZcK7Y2XHk4S3k5zglRzvAAHuanHImkYYkpvVHpssY +wNBdMAL+JLSK29JimxQTJFdXS7Ni41EzbW+U8mkmaHUaFZtScahytCHTqYcJ +Zr3r68Z3R6OmL21cXqos+Nhl9svbKgIFygvvu3qZBb5v1SRmIkJQrV7iS/HP +LGhpinekmgIR+8bDWG9DNqibpyTuM/VHz4PjN3jmsqEsn9xyStAXpRy+I7Uv +gwZ7PFwW/AcpxJG1UjtkS8C1M8k8gVg/B4UL9/9ZSkLOp9sJ0fj+ORSNTHcn +IdjkII3rE4X2T6o8/9mGcVfvQmINhYjCVtcba+kQGxfZ/CCAQrO9O0IuXqDD +f096fUxICqmqvyWXDrAhn+4Z6rrYG0WcNakpWkfAhk2B4764X2aHNfy8NEnA +obGm1Sk4XvrgTgOuvSTU6vn9Kcf9NrbBda69lIQHXZse+LVRaN+Lw4XCsQRw +tUgsvz5LoQ/985vKVpLQ/YNPwgbzQYun95V2OAn5vgcexI1QaDI+jNv6Kxtk +2A2ntkt7IafkUleTpUJQtW+T3oAbhXheDb44ES4MNvEy2muKKDS+lu+YtRYN +eIqXPn6F420vDHPr/kKDakr1O/qA+1NklGXdfQL2f/vZooHjnV1EdGtsJiFk +3uRzGs7HQrxgfVIiCbrClwd6X1PIw6AxfHiOhG0Xo3PcblOopytXOMqcDr+b +U3en78H2/C9ipkroQJN8PcnXw0FdKKVZhiYCTw5rmr5R5aBYMqFE3FUEJBDi +8vWZQvoL4vFLb8jAbIWLVH9YNrp0stFl/zcZeKLaED3CuYUmUys3Hd7HgIir +6zrVXNJQsqSfcnMxAzKis5NT9yUhASdeBzVRJtRvzMrZ1B6PHnUTcTG+TPjU +mJTiJH8ZlSe+5+i3M6F5wWbnpcxo1MG7sL1yAwsccrbpMVIi0PipcouFaMy/ +uuqimschSCM8U2zRBxbkVpW83KQQhDI1O1ob9fC8TbWrW0j2R0Nr3R7I3GJD +7bMk5XETX3TbWvY+4xoNTDzNN3/D9RH9nbBfxZyAL8kdO+MoCgXYDNib8ZPw +/H3y5zzMB2mFtEP+ziTQVW6fSsT9f9wOXn1pJKHQbejxn3oK5UV8dJ9fRQeu +jkM9r85R6EZaXcvxUDowp5vvWizD7913pQmPutmgk6+dUbvDG921uPQudDkB +y195JZpOUmiEyRZWHiYgmBZacALHa5PoTeo3IqH3g+XNDzgfhpYfd0MRCd8n +DJbbvaTQmay0l+9CCBhx2f3mI+43PGtktQWYJDiKOJjXYz64ajutljhLgkCa +sEviewr9t9Umgo/Dhqv86YqWFl7Iak+P8ulmAnw/h7fPYfvVMbOqUUDCpPPz +/2anKdRkKiUWfZSALbIrKGuMdWrPmRbQSSD9funY4PzcJo5++vSdgDbj5PfF +GG+YX3FR4wYBnT/5JNXwe7z54nMFJ3kSslpkr73FuH+yIKhggQ2D3J4X5+o8 +EUcwXDOXTwhEj0uv/nAU6y9ReqjqrDDkGnN5rCzEelnzVL1alQYLf21s5/A+ +YJmUeaZ6ggan6I/CLuP+P9Vddli0gIDMlfHfuXD+Yissf8oqk7D9IidnAfM/ +pUPlwdV4EqRquu14cX8pV7Pgp30joWCVw2/vHArJq43fDzChQ2PKw4ipfRQq +vCGiJFJMB7qtzbRlPwe98V7eZLpUBB4b3sw21uKg9IqWbiFnEcjS7uS9d3oK +fT2m93PrdRmobFdQpDKzka59zozRjAxs8y6RPSiYiW5X3Ko4v4cBrWdev7WN +T0M2d4UHHhQyQAcOB+UGJaGAa4OuG0km2OfzqUVR8UhJjbpS5cWEU+9f22no +XkZbvLxF1VuZcPVCbqLBy2hkQcQ5D69jQf3dvd91qiOQzIrYnnUXWMCVrqvo +3B+C/LLkHy28Y0HPH8n0jgNBaCza1m1mGxtcEtoks2r80ZGz+77PpLGhdEhE +0d/bF+VZjgYGx9Eg8Mjg0Q2Y/2s+PjjKMCSg0X9VgCjmmwC395HTi0gw4fzn +dR/fb/HOsQhHBxJ2JOeHWGG+rmM02Uw+JYG3HF3KaaDQN++THNkVdFCPss2z +CaUQxcV13O4cHRKq+Nt3MvD7STWjN6aDDR83MXKqHb3RE3R31kOagPEe26hy +rKc/bkYSYa8JiCZvbT+A4zlsZtY27MZ8hKxDPngeOM79jnxylwS7kkqzlg7c +j2Mfj7SeIcA9+qZWNOb/lbYqXWVpEr7YJZp8wXz4Y3PXkOcMCWn29guxeH+M +vKLXNDjBBucwbeMCby90Ip1bq7WegJ7YJXYvsH1lvobtSW0SuFYodh/B/gY0 +1WVPOBJw8O26/ikc/8URCYtXNBJY49VF//R5Qe36jOY0ARaSgsv/9Ydt7yF1 +VQIBK/s33v2E+WepYr8hRpaEtjDnpyzs3x4l1YTOsUHU4OwJoV+eqFjjoLHn +IwJ2GXR0H8fnnx9st5VbQsJO7+Gf/+ZPfcfMouExAs4FTvyMwvjEuVj1YTYJ +gk161y9je02+XHm5dgJcx1INGPj8ntSEQZgYCcvV1mlpYWyUunU48RcBj3Ye +cPi3H5gk1mn1/mbD44ymizuiPFHJU/esbh4hSA3QG3LD+vObr3AaPiMMFy+L +m2bgfdxDNpP1RYUG2Wqv10Ri/Y0Iq4SXjNOgodGvfAvWX0CAsdPWOwREyYas +HMX6Hr63IJy6gYRK8XpjWYx1lOa+E1dJaB4+4Z6E9fd2nczO7FkSbkUpdvrk +UqjLhS/8qxEdjnSUHIizwvV2Uv1zu4gOhL1f75kBDnon6Ng4sUQENBi2RTw6 +HCQf6+R0wVEEhLd5PNoVNIUM5IcKX12TAV6z8ooLJdmIYZWo1vRFBkKyTCrv +LMtE3Luu/ZYxZ8D3QflHF+6kIa2T1kVrC/D7J79sR8OVJLRJaadHIY0J/G7K +Lxv/xCM3F9v4PZ5MmE7h87lvfBnNvVHPKW5hgkbSy46GD9EoUcxmzluRBbyl +5R2O7RFI7fuphMZIFqA9GXE7x0OQ2AN3gZMjLOC89HpWfSII8W26XRGpy4Zr +XZYVMV3+6K68oYRtKhuo1i17e0N9kcK+eoeSSzSgtDVN2vB+V3xwuw99F+aT +0cGtPfi9YWbx+JMwDwkfX6TQSvH9nek9n/zajgTv0L7gh1h/Haej01zqSdgH +J0/4P8PzyXWrUjWbDtaU65IbYRRKUmHD6yA6JFfOO2qzKCQxcm3+RzsbrPM5 +sWa+3mjXQ81f9pIE0GWutrtj/cXQR6ULeglQbzgiYIzjrX9a2625iwSlD9ft +yjD/+S1qW7TySejRvC50Bu9Dy3iNJmpPEXBGs3faGuuln7244dkyEo7cubiE +F//fMmFy+NRpEnavMkkUwHxp1dL6pP8J5/Rar8wt2Ast0k9C32oIqFHnU36E ++RypMeT1WYuEgEY935vYn1Nx0/qjdgQkvkweK8XxxSrte48K4/i9u1WCsX+J +ofVzjhwCHg8OyWf+m5dWHbeXXSFgwbTVtRbr72ZEwf0Vq0lILY1YrI3950zE +jHC+scH0z8fot0u9EBqZNU8qJeBobm+zBT5XWRw3XLWYBEtuA+4s7M/c/4KA +wHsClPqz+85hXNX1utKXRUL8jQShfGzffFd7vVkrAXs2Bi0VxOdzHptfSIqS +kJGmbmaI8eC27tGaHwSsLT959wHG8fDooO4vNhyqE5K6ku2J6gplx8Z48f6u +KlZViM89Gx7Sbd4QsGm6JsAV40jR1k4gSShfVSXwDy/EcXHoXwm4d2vJkn/2 +t+1+DFwVJEF7XKwvHuPNCgf+PvxIgCIlKP4PV3/PHjj2h4BpJX7+MowFp1ql +3f+woVDpVDt5zBP9D3K9P2Y= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1Hecz3UcwPETmWWPSjKPK/NOOqvIXklGaRCHQrnLCFEZlb3LrFRkhgql +oWRvWjSMIg1kV2bj+X70x/Ne3+/nc4/ffX/v7+dxJdMyWqdnSkhIqOlH9DLr +eZHHaE5VriIzV9jASzxOC24lC3+zkan04i6qUcAH79O3eI4uXM0/bGIa6bSk +qN/9SVcwltsoaG2/LuF5Et2f0E/oSnH3v+oqJpLk/rR+Rlb+ZTPTKW/vnGZQ +2vVx/ZjKrs/r3dzo+kh8L12pFfVPra7jtJyeimfTNZqsF7WGpmohPRBz06Va +Qf/QVH1By+rJmI1+qlX0gnajhOvf9AMquf5LJ3Gz6zO6lmzEy9oiM3iCMu5/ +19W0opj7n/U9xsezU9jaQV3GCB6hpLWj+iGTyR4fbW2rzqQ393CTtV/0fSbE +d6WItR/0bUbyKDnirFjfprPoQ+s4X1xn/Ud9h1F0J2ecK+vb9WX60oZaXG/9 +kL7LaHqQK86a9R36Cv1oS22uiXNlb6e+ypO043aujbNgb5fOpj/3cge5yUNe +8pGfAnHu4l3G3OK7xvPHM3EDReOcxJxjNnEG493FPCkVZyveCYnxvuOd+du7 +9TUGcB914izFzO19rq8zkPbUJSnmae8LfYOnuJ874zzE7Ox9qXMYxAPU45aY +k72vdC6DeZD6lI852fta3+RpHqIBFWJO9vboPJ6hAw2pGHOyt1fn8ywdaUSl +mJ+9b3QBQ3iYxlSOudr7VhcylE40oUrM2953uohhdKYpyfEe7H2vixlOGs1i +/tYP63LG0DNmbu2YfsSUmIH7s7qOFNeXEv7/H5ei/wFrN4hZ + "], 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]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3.5, 8}, {0., 0.9674940221461537}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VU0YB3CEJO451xru0iaiFEWWmEdFZVciSlkjlK0oUfaiUJEIEaGE +hGRJlmSJZAuRKFLknlCR6q13+ut+vp87Z5t55vfMCgfPPc48XFxcmtxcXP9+ +/QL3CnFxCUGFslLztCuFip+6Z3XzCEFqgN6Q21EKcQTDNXP5hED0uPTqD9hO +yaWuJkuFoGrfJr0BNwqZl4k/S5UQgoSV/s2NHhRaN90XpLFeCEQO9bnf8aLQ +O8eDX3xshEAiUq85+hSFjAyduz6UCkHuwMknhRcotGu/9RTPaWEwzLAlWfkU +8puvcBo+IwwXL4ubZmBnJ0oPVZ0VhlxjLo+VBRTieTX44kS4MNjEy2ivKaRQ +tfmh++NxwqD7/s/qdUUUUjF09HmeIww3/2s13lhKIYbOsR9XeoSBM1sxLfqY +Ql9WhfCu2EgDjdtnr4u3UshDNpP1RYUG2Wqv10RiT655ql6tSoOFvza2c9jj +a/mOWWvRgKdo6eNXbRR6uyHq1RV9GnydDpO93E6hdq0rOTy2NLDrm+yc7aRQ +/t5bu8aiaPDO9kClaz+FFPbVOxRfogGlrWnShn3HcjQwOI4GgUcGj254TaHb +1rIPGNdoYOJpvvkbdsrhu1L7Mmiwx8NlwX+QQtHuDyafldFg9Le+rctbCh0N +q7uUO0oDMR+a+ttRCo0Iq4QXj9OgodGvfMsYhSyTMs9UT9DgFP1R2GXs7QVh +bt1faFBNqX5HHyjE7NPb9fcXDUrbtjMTxynUqfB8kZUYASmGirtYE3g9Hmr+ +spckgC5ztd0d+wm6N+shTcB4j21UOfY9i0vvQpcTsPyVV6LpJIUizprUFK4j +YMOmwHHfzxTS6OoK4NcjYMe9jzIJHAoVHdzuQ99FgIXRwa092Gs+lhxlGBLQ +6L8qQJSikOjvhP0q5gR8Se7YGYfNkbVSO2RLwLUzyTyBX3C9FTWtP2pHQOLL +5LFS7AFNddkTjgQcfLuufwq7yVRKLPooAVtkV1DW0xS6dXpw5uFJAlwO1NyT +n6HQMl6jidpTBJzR7J22xo6NfTzSeoYA9+ibWtHYZ7LSXr4LIWDEZfebj9j7 +XhwuEI4lgKtFYvn1WQq1WXXcXnaFgAXTVtda7G3vIXVVAgEr+zfe+4S9YX7F +RY0bBHT+5JNU+0qhJSvGXJ1zCAixDrFrwA4IMHbaepeAKNmQlaPYU91lh0Xz +CchcGf+d6xuun8goy7oHBOz/9rNFAxuNzJonlRJwNLe32QK7SOOgsecjAnYZ +dHQfx746pbSDWU2ATrfskgzsRfpJ6FsNATXqfMqPsE+kc2u11hPQE7vE7gW2 +1Z4e5dPNBPh+Dm+fw26+p73erJWAPRuDlgp+p5AmX668XDsBrmOpBgxsRvlp +9qtuAgKW73mujR1DH5XO7yVAveGIgDH2HzcjibDXBESTt7YfwPZseEi3eUPA +pumaAFfsESZbWHmYgGBaaP4JbHP/CwIC7wlQ6s/uO4dd3zGzaHiMgHOBEz+j +sDcrHPj78CMBipSgeDx2dljDz0uTBBwaa1qdgi0xtH7OkUPA48Eh+UzsC2rX +ZzSncT1JCi6/g70Qx8WhfyXg/q0lSwqw3SaOfvr0nYA24+T3RdiD27pHa34Q +sLb85L0SbKPUrcOJvwh4tPOAw0Ps6u/ZA8f+EDCtxM9fhn09d7F7JhcJ7R4q +1/79b2bx+JMwDwkfX6TQSrEFuL2PnF5EggnnP68H2HUFsmNjvHi8qljVv+cH +2AzYm/GT8Px98ud/76eyOG64ajEJltwG3FnYn0u228otIWGn9/DPf9932+7H +wFVBErTHxfr+ff9B4YL9f5aSkPPpdkI0tlilfe9RYRJ6enerBGO/OCJh8YpG +Amu8uvDf/EaKtnYCSUL5qiqBf/OvU3vONJ9OAun3S8cGe85j8wtJURIy0tTN +DLHvS00YhImRsFxtnZYW9nLfPfo2kiS4+zOSJbH72Ysbni0j4cjdi0t4sa+0 +VekqS5PwxS7R5AuuH541stoCTBIcRRzM67Grul5X+rJIiL+RIJT3r/7OxaoP +s0kQbNK7fhn7Q//8prKVJHT/4JOwwb4Zkf9gxWoSUksjFmtjW6rYb4iRJaEt +zPkp6199Xnyu4CRPQlaL7LW3eL/k6aStEFEiofBcU6Ap9vD9BeHUDSRUitcb +y2KLrbD8KatMwvaLnJwFvB/PLiK6NTaTEDJv8jkN27w5ONxek4T31edie/D+ +jtQY8vqsRUJAo57vTezKPA3bk9okcK1Q7D6CvTpmVjUKSJh0fv7fLM6TH+ZO +H4v0SXgql9zxA+fN+qe13Zq7SFD6cN2uDNthM7O2YTceD1mHfLDbJHqT+o1I +6P1gefMDzrP0wZ0GXHtJqNXz+1OO80/fWbHA9DAJWu5z3XScl2d6zye/tiPB +O7Qv+CHO06KdYxGODiTsSM4LscKWVkg75O9MAl3l9qlEnL8cikamu5MQbHKQ +xvWJQgmnZn0ofxLOiWgcC8Z53zJhcvjUaRJ2rzJJFMD+Y3PPkOcMCWn29gux +uF+4ajutljhLgkCasEviewpp8fS+0g4nIc/3QEncCIXeX6xQj7lMwp+G+lyF +N7ielOa+E1dJaB4+4Z6E+1FKh0rJ1XgSpGq67XixLcTz1yclkqArfHmgF/ev +xps3V2alkhDz4t2wcx9evwdhQhV3SKhw2PheoYtC/Ba1LVp5uJ41rwudwf3S +ce535JN7JNgVV5q1dOD80fLjbigk4fuEwXK7lzivG1zn2ktJKOnaVOKH+69v +n/HIWC0Jn8VmDuk3UqjjdHSaSz0J++DkCf9n+PzBaLKZfEoCbzm6lNOA+7cd +vPrSSEKB29DjP/UU2j+p8vxnG56/rt6FxBoKbf1PspR8TYLGwJ1bzuUU4l31 +/vzWGRL+87J86n0H9/t1MjuzZ0m4FaXY6ZNLoXI1C37aNxLyVzn89s7B5weD +xvDhORK2XYzOcbtNoW7vvJDQ3yTsPyCoqJdBocxanzPNi+mgfeQH183rFIJD +izwtWHRoSu117gvH6+u6VamaTQdrynXJjTAKffM+yZFdQQf1KNs7NqH4vBDx +0X1+FR24Og71vDpHIaKg1fXGWjrExkU2lwTg9/sV7zCymQ5SbZrbhPF5KzB5 +taWHIR06swcKNlhTqMuFL/yrER2OdBQfiLOikLza+IMAEzo0pjyMmNpHoZ6u +XOEoczr8bk7dnb4H17eQ4rNsKzp8lfroNW6I739WefOwIx02tgXq/tSmkK6T +jsieQDo8savfu3E5hZJU2PA6iA7JlfOO2iwKUVxcx+3O0SGhir99J4NCN9Lq +Wo6H0oE53XzPYhmFZnt3hFy8QIf/nvT6mJA4/3YbTjck4PnYPH+g7i8H8W/Y +376lgA78bb8sbr7hoAEn1T+3C+lA2Pv1nhngoIIbIkoiRXSg29pMW/ZzkAX/ +i5ipYjrQJF9P8vVwUOaQrvGtcjpU/baY0G/lIJ1Lim2CDXTQGaqKsKjgIL+J +Py1DA3SQy+0xuRHPQeNZ2c/CBESA4Sln+BA46J2gY+PEEhHQYNgW8uhw0Bvv +5U2mS0XgseHNbGMtDupCKc0yNBF4cljT9I0qB9UMXm4tERUBlDZ5/o0CByWJ +BnaOskRgd/3Bg65iHGQYtmdou6oIzAdr6ed/mEJFDn+/LXIQgUWHadHDwVNI +PtbJ6YKjCAhv83i0K2gKpVe0dAs5i0CWdifv/dNTKJZMKBZ3FQEJhLh8faaQ +xxN5L7njIjD3c/HZfscpJCe957NBgAi4fBOpkdKfQjc7b7+7clUEdqjfEfUX +mEKXwKCd/RSP77Z/9SD8M3ryX+Gax0xRmIkJvOTkPYl4BnjXfjsnCk+DDDSa +WRNoI5eLo92IKKgkS9+dKfyISvlGGcaaYnBsJK8PdMaRgYJZ8KsUMbDbvKl8 +JnkMqSn1ObydE4N9i7c/pfhG0WZz0y+h1uJAXGz9Omr4DjGedJccqBSHPOFG +nlitYWQj6DNfKiYB6WmXHmivf4PyTnJ/uOsnAZKHf2cc/9uPzGrzzNldEnAl +6Q5NQrkXjVjYzTUrSsKGn9SE0s1uFCqwWI8WIwnWl3b+nRbsRAEpTSI9HyXB +VGJMtrz0BQo3Ph2tarAMRlTuPKEfb0Gndm/RbM1bBsMdxf1KJc9Q/Wri6Dte +KRg346QqptcjFrtfN/6IFLSNvJyvcqxBHT8qk5/VSUFMap9gbVYl8mDkrV0n +Iw3nZQpVZZPKkPThaEelQGkgdPM+b+sqRqyQcMaDXmmIeWk9rpp5H22u9zz3 +Ul0Gjkr7KWbI5KGM9yfsjyfIQF719rvr67ORgfxQwatrMsBrVl5xoTgbfT2m +93PrdRmobFdQpDKzkf6CePzSGzIwW+Ei1R+WjT4TjxrupMvA26y9Z+X0s5Ga +9oLcaJ4MuIf+3X2/7TZqvR5EWdXJgE6VgL3muyw0ZxR5RpeSgX6r2jfccpmI +YZWo1vRFBkKyTCrvLstEuvY5M0YzMrDNu1j2oGAmunSy0WX/Nxl4otoQPcK5 +hVbd5Lfw/CkDzhU7O448vIXMvkSuS+NngD6IOjvq30J5V84P/WAxYH7MASjP +DHSo9wIqMmXAsQ2r5Z/WpCHuXdd+y5gz4Pug/KMLd9PQ7YpbFef3MKD1zOu3 +tvFpaDK1ctPhfQyIuLquU80lDfk5TsnRDjDAniannEmkodhpU9LjCAP6DH3c +LB1TUbWg5Du5IAaYb3GQmRVPQQyUHZqexwBZhfk709lJSOukdeHafAYw8sp2 +NFxJQjb3hAdKChigA4eDcoOSULKkn3JzEQMyorOTU/clIYlp/ZHpMjxed8EI ++JMQeeuT9ranDLgoUK3g5HYd8S5atzA2yIDKy+Iu3dqJaKqx2FNBmAn7rTh/ +SSIBbVLa6VFAYwK/m/LLxj/xKODaoOtGkgn2eXxqUVQ8EnDidVATZUL9xqyc +Te3xaBW3pcU2KSZIrq6WZsXGIxutBXUbWSaUpWkk6ZLxqOU+4onWZsJ17nTD +SOZVlJPUljBxjAlH/4bmqdhcRm4utvF7PJkwncLn88D4MlJSo65UeTHh1PvX +dhq6l9GjbiIuxpcJnxqTUpzkL6Nm2t4o5dNM0Oo0KjKl4tBk+Oug0+FMcPE0 +Z5Wvi0NK3uNHlqQwYcC/9GxmWQwq282lsbaZCUm7A9aa/45Gc2/Uc4pamKCR +9LKj4UM02uLlLareyoSrF3ITDV5Go/LE9xz9diY0L9jsvJQZjSpHGzKdephg +1ru+bnx3NHoSFCWUMcKEQWV+q6mUKNT0QGREYoEJsxIrR4eMLqB+KdnzvAos +eJH+qvLacARKFLOZ81ZkAW9peYdjewSyIOKch9exoP7e3u861RGog3dhe+UG +FjjkbNNjpESgpi9tXF6qLPjYZfbL2yoClT07ETAILJgq1y0M6QpHCd4Nx4qt +WBA2YtU32xmGzFocLewiWGBlUeax+VsIUvt+KqExkgVoT0bczvEQJLMitmfd +BRZwpesqOveHoPFT5RYL0SzwrasurHkcggLlhfddvYz9Vk1iJiIE3Tlftq8h +hQWadz9/1ZEOQdz6S6zki1kQVJdsaGEQjIrrC62n37LA4rxfcE1MEBIrcRc4 +OcICzkuvZ9UngpBflvyjhXcs6Pkjmd5xIAhphGeKLfrAgtyq4pebFIJQrV7i +S/HPLGhpinekmgLRy+YgPa15FhgNyLiuWRyIptqNlCMJNjiFqXdsTghAawYn +BRjABt6thcLnP/gjvk23KyJ12XCty7IipssfjUXbus1sY4NLQptkVo0/ytTs +aG3UY8OFVLu6hWR/xL7xMNbbkA3q5imJ+0z90TLrYLEmSzbQM9OGqh/7oaV9 +4st9jrGhzofDtzjzJJrugi3NN/D1i4zv7kjwRffkDSVsU9lAtW7Z2xvqi46c +3fd9Jo0NpUMiiv7evmhorVuJzC021D5LUh438UXPg+M3eOayoSyP3HJK0Bdl +K43LSZSyQbFqdL19uA+yib64zOkFG9p+OS6fCfVGEiPX5n+0s8E6jxNr5uuN +OlUzemM62PBxEyOn2tEb7XpXmvComw06edoZtTu8kar6W3LpABvy6J6hrou9 +ETm+cUnxOBuMaR6ianFeqFVL65P+J3xmea1X5hbshSKv6DUNTrDBOUzbON/b +C/231SaCj8OGq/zpipYWXmgyPozb+isbZNgNp7ZLe6GciZgRzjc2mP75GP12 +qReyR0k1oXNsEDU4e0Lolyfqn8wPyl9gwyC358W5Ok8UD48O6v5iw6E6Iakr +2Z7IJLFOq/c3Gx5nNF3cEeWJBKdapd3/sKFA6VQ7ecwTPdPtXfj7F8/vUoG2 +72ae6H/zkD9m + "]]}, "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.500000000000008, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{3.5, 8}, {0., 0.9674940221461537}}, + 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.992173155245886*^9, {3.9921732454568195`*^9, 3.9921732838904247`*^9}}, + CellLabel-> + "Out[208]=",ExpressionUUID->"1b924d89-7cd3-6640-8cb3-e8756c3e322b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1111", ",", "l2222"}], "]"}], "\[IndentingNewLine]"}]], "Input", + CellLabel-> + "In[211]:=",ExpressionUUID->"8a3460c1-aa75-4842-9332-c34c99c08aa4"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwVVmk0lg0TRqSkkkTPcj+3oiiSStnfGYrIFtmj7CU7EYqyhCxlJ0shS8nu +iXh7S8qSLSIqkiilrNmlfL4fc+bMmeXMdV3nzJkdVi56tmwsLCwrq/Z/73Xl +FDcLCzdm3tN8huoTUPbC4V4nGzduFON71qw2AWNcwXJ5HNxoEKDoabga29xm +ntfewI27+tnYHY5PgG7Ftro0fm4sqHbJjVaZAPHJHj/ZfdzITJTraVWagM/W +ZhPupqvx53u5m+QmQFPD9s1XJjc+EqYm390zAWrGJqNsPhtRkSHw6hjrBEwI +BbDvkNyEfb2iCtNd42Af9Dwyb2gT2p+ZzlHJGof1O76ct83djD0U5eYxy3HI +/yd9B68ED2bGaf58QhuHwYgqmahoHjx4Jpk+VjsG7EKDoQpTPDhz8EzUjNkY +XLktbOiosQWpW3Zt7xgfhbX7jdukC7cgI82Y+4vNKAzfy6kLWseL8cl6PE/b +f0KJ1crMGitejKiqr3ET+wmReKKNfMGLNXfG3VLO/oCnf4p2PyG24prdlfSq +sBFg+8C+Z+bqVkwQmCmyCfoOkiznrC0GtmIpW6rvYdtvwOQYomvJ8aHOys76 +1zAMJ/aevPY2lQ9ba5VyS79+gSMSPVb9c3xY+z6yIzh8CKR0dSYCTbbhWoVA +q9e/PwP9aWf56eptGGb9QviL1QCYcrnPM/n4sX/Rqye88iPke7J+feDFj4P/ +OWjFWX6AkzX5uuQbfkwqF1P9odUDA/oWc41iAlhtPV1EWHZB4DpOlU1RAtgo +/CRmzZkO8E1t4O36JoDbS2jDSYGtEKzlE374xHaspQr2rjdvBG91abnm/O3I +EAudzh58AbXCm+0/s1Nwd5lsYZdiDRSouUueX0vBV8WltaL7ayDB8e38OCcF +jdsNPUIEa+A8MzVkmYuCmoV1GWfW1MCmY6LZAlsouOu3IBd73DMwsVb6pEVQ +MD47VV2k+ClMZnoYVB+m4IrJg78Fs0+AQb5TirOj4I52946O6iq4ni+9geU8 +BUOfF7S03quC0cNJXY72FHz3/Fb6+8gqqNI0PKfqSMG4RCwSPFsF+r5dkYtu +q/O3qm1wZK+C8LftPWf9KGjecDttWvcxzEe8chKPp6BDo+GfewsV0L5Qfbvu +OQXNkjiP2ngw4cyjpUNiLyhYHMZRetOCCWNucm3RLylIdFzY0qDFBK6fVWxm +DRSsvD4UaynKhGMfHzv8aqHg0POpRYX+cqh8XqFIvlvdrzvHMEyzHO6El332 +Hqfgvqa13mqHysCRnr9HnEbFDwacvIRoCVxKjzlYQqeihFdb3VGBEghk+MhL +Mai4yFNG+KwtgSRBNS2FHVRsYr92kGwqXtVj2FVThIra7dwVb1WKYfu+nY8d +D1FxhM3iSa5yEbxQTFEt1KCizRqro7a6BUA9G24tcYWK2QNlnUXP7kPWcWfn +ZD8qmmhY7EzOvQ97JfV82K5S0dN3Ricp6j7IsVJvdQdQ8Xqf/Jae0/fB9N6D +av9QKrZbaReZLuZB6rfGLa9jqaia89vGTiYP6K6cNS4PqPjGPzpSsj4Hso1/ +Nr3Pp2KdWIXRv8U5IK70+u3RAiqqe8xpm97OAQXepJ8CxVRcv9gR0eWYA2bM +3QI1TCrWdFfUPebLgfQFFWeeGiqy2IdekjqfDYyAYHppNxWd+K9CKnEPdkrw +JMq+W+1ficYhznsg0pu6ufY9Ffti9FbwVxZIHi5n6+xbxXP1k7tiQxYojXz+ +PjNIRbeHK+Yy7llgowuPZCaoePOgQLlISyY82LGkVcNJQ78FyV7vWxlQ1Ha9 +QW09DRP7L/sYX8mAsstblDq4aJhylr1Bwz4Dqt+KSg1upOF3xUv7nY5mQMsN +Iyo7Hw17VCpGDk7dhfEp5vBxQRoedmf+u7X1DkjVulx9LUNDu8Lqp5UZaVDR +Pb+kKEfDluv9vuYBaSDz86pXgTwNx8ouCu60SgN5vminG//QcMI89SWncBoo +25WcPnqMhvzviv9VepAKOlxT0pU6NHxYfXLAtCoFLui5T96xo6F7wZoD3hPJ +MGq35LDxPA3197q0NXcmg/PlwG+X7Vfx3J3XkX+cDG7Zsf3GjjRUuVWb6RSQ +DN5zZS287jSU+ps0Td+WDNdTpu+H+NGQpf4xb6xSEmQMXrR0jqehYWXj2yNF +CXBC9GPh2wQangvkCNVPTIBpJ5UlhSQa7gw4oB3unwCqi9viNqTQkOE82ayo +kwA/N1e+vH+Xhn9ONanWTsXDEcVFkaF8GvJtc3PeLx8PzUl+40bPV/HNL8Zv ++hQLFz9+lXtWS8PKfZkLnE2xwBDSDt39cpWvrMuz/I9iwbWIIThbT0O2a9rO +nhGxwF/3TDe2hYbHPXKPH5SNBYtfrI9aemh4pE+MmpocA3OaIZeVxmkYNrNc +nWcXDXSjxCMNEzRcMZaJydCLBiXL3CnNKRpeH6VRS/6JhkjP+nPGMzRMvzMy +wisQDUJ31uq7LNFwk5Y82RRzC05OhIinr6VjSuHIwZOWNyE/JvTjAoOO6XmD +DkKCkdCempTsL0jH5H2FG53+RMBsTt4p9p10RKMTzP4PEYDVDa8276LjwFUv +R9nECOgZ5KzYLUZHWuNv/sZNEcAuFXZTX5qO6/4NOCDCGQ5nusOgRIeOd/mf +Tb7fGgasagnLNF06FnrsTO+eD4XsqsyqUD062tbQRqZ6Q+FHWvWhswZ0HBP/ +91tQdih4WY+KbDpNRwl+JQVe6VC4OanD42hHx8ePpzyeWobAf1wCn0X86Pi+ +K8EpoiUYLK4I3Ynzp6MkyqUKMYOBbXz/6ZWrdGzJ29bVnRoMah1qb7sD6fhQ +eWApyiEYupJ8X10Po2PZ7rI9CtzBMCrcXzoUR0eXF/89uaYXBHTICbybT8el +u+7PZqYCQN7TpGhPAR1rKC/6Zz8EgOnDjR/KC+lYXSs8zfsyAG4LeB1oLKFj +6o5+/4zEAOCfVB2YrKCj7/bOWg7FAODJ/K6o/IKOIhHxFv03rwH7GvHFL710 +/PFsV+NUhD8IyQ4Iu3yko06TroifjT8ou8SfXOynoxIHN0VW0R8CepfzNg7S +ceQTs0dpwg/+lrcaHvm+qk+daX20gR8s2LgwQ2foKB/BlJ/dewVG68tc9m4k +sPC283v7eR84JHHcsXATgY9meEYUu33AN6H3vCQPgT3syqFyj3xgnQ271ZGt +BAYP8VUWePiAEKuhvjKFwEbfvi8uv7zBVH5RxnQXgSf3evOcmL8Er4qBLVyR +wIefPgbSCC/gEej6yw0E7m6e8HrI4gWG/ud/30ICD2lGRJ754glfNGNmEo4S +mLLM6buvwBNYfgwOZ6oT+Oaftjl7RU+QEQ5prjIgMFVe46Wc3UXITW6JH3Ei +kJmlZSbR7g4XzpnH6bkQuEefzdu7yh0kjozH/OtKYIN0KcvHLHeo7Nx8K8qD +wOa3x77OeLpD46ZTNw74EAh9zj1mhDv8CH7v5xNM4C/bmPQZVzeQcBu2W59K +oFKiv3rQXlf4BZds3dMIfPKAyfGV3xUqNq2z6U0nsH19Z535GleAgj2WhRmr +9fIaPSJVLnDym+Np3VwCP0sn8wgKuoC7+bTO7VIC/QLbzaznnKBCnUV2TyOB +vy1ndwzWOsBcn0xuySsCA6Ubb0nccQBpV7etMs0E9r9Z5sj3cYDHiYNjqm0E +zgZc3b3vgANUD73Msuki0JrnFtuZrAvw1O8Gd8YAgSL1LBqyUfbQUMo7wL9I +oEpA7tDpoHOwTkVD684Ssfqv1HOQNudA7V1Q9a5lAjuq4vy4VM5B09+ZeKkV +Ap3+scgz4TwHLRo96nocDLRdtr/WGWUH7V9Ty6O2MDCFve0LV5YtvKPsCmXf +y8CGap1IHLaGRD7TOTcxBm5YwNCLrdagv/mW7SdxBrL/Zk2vZ1pDO/vi0er9 +DNzG+y7yZZA1NEy0sLgeZmBho1WpkJA1VNRd9O1FBsaYOO3SPWcF8W4vncqM +GPhqOXHhGrsl6Dku9pEmDDz74ZC49IQF8JyT0IwyZWClSMlZzg8WEGmWvPe8 +OQMfbt+hOVtsAUHHHb8R1gyMb5X6ucbcAtwJPssbzgycOiVpnX3pLJx8Za1v +cZ2Bh+/ms77hN4cjs97x9SEMFBBevVXTZkDbcbNLPIyB+WWRyZavzWDY+7H+ +YjgD7b0KOtPCzOCK6EaD2GgGmhAuLDx/TsP90AqDl6kMDM8W83o6ZgqsquuN +RMsYaOBRXD05agzDboykm+UMdC6v1NzTZgwt6Yd6ZpgMFLoQQQ8tNobkWXOj +55UMvF1+sKHU3RgkcsqMTP9joEiA1c2nS0Zgym5mHNnIwGLOpeLoLUZQVltk +MtnPwKqS+b3zxgbAV+6wznOAgbKn+ZbUFAzA655o5eJnBr4hD6TUkAYgG5zF +t+YrAzvM5iIEv+lDjUri620/GZjpcXYh/ZI+vG70U5GfX60/m9xoe/cUjLZp +HgjZTKLZ8qjvz3V6oP1s/QDXFhK7vt0dT5/UhZLi+pu3eEk8dcI3zvWdLnhE +42jyNhLVFhqaPO/rwpKuVN5DGonJ7kNuv9V1Yf1bGtEhQuKVhwzj9tiTsLv3 +xzo6rs5rjbgi6KkNHIeyq0KUSOzRspSs1NaGL+HmF6aUSRTx74/zE9WGLLn2 +5noVEtN/LQcm92kBmfLoppsGiZtlimpYjmvBdpNrfA2GJJqWjt+wF9aEDT3b +BN2dSPQ4FrJOkOUE/JB43d7nTKKyOK1c6ZM6NIWEBRx3JVE4Ols38qk6hB35 +PUj3IHFIV+Feqp86sCcO5DR4k2hY8uFA+h81+Kv/UIwIJjGbnhvMyqEGk29Q +ujGFxJqw2qdrJVXhoagGv3kaiZ18Ud/yeFTBzt9gdiqdxH3vgrouTqnAxz0X +ymmZJIots3LHlKtA07W4/S55JEp1tfq0yKpAjsSwCD+TxPVD1nF07WNgGh6x +3aaVxIkKQ0yNVwb+gYT5hTYS/c5sf6PqqwwdhzO6o9pJXLCfAwELZVD7zIyv +7CRxpe/x113iynBYpp9nwwcSJVqHPs3UKQHPsOT6suFVPjU10yRYlKBZXv67 +6ncShR4JvOT5jhASo9LQO0KigW/eE752hD8Kptc5xkgcWOCwC8hA+BEXxGoy +TaKl0ET0d2WE3JGogbEZErcP6Ut1iSFYQvKzwDkSVZdz5Qb4EN79KPArWCTR +6Lnu5dI2gDisNFP6vcrPwsUXNzIBtBOfy3cvk8j9a8458yIA12gz1eHvar7B +cvfCcYA6pe7FlZVVPdY+io2iAfwP3fwlbA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVVmk0lg0TRqSkkkTPcj+3oiiSStnfGYrIFtmj7CU7EYqyhCxlJ0shS8nu +iXh7S8qSLSIqkiilrNmlfL4fc+bMmeXMdV3nzJkdVi56tmwsLCwrq/Z/73Xl +FDcLCzdm3tN8huoTUPbC4V4nGzduFON71qw2AWNcwXJ5HNxoEKDoabga29xm +ntfewI27+tnYHY5PgG7Ftro0fm4sqHbJjVaZAPHJHj/ZfdzITJTraVWagM/W +ZhPupqvx53u5m+QmQFPD9s1XJjc+EqYm390zAWrGJqNsPhtRkSHw6hjrBEwI +BbDvkNyEfb2iCtNd42Af9Dwyb2gT2p+ZzlHJGof1O76ct83djD0U5eYxy3HI +/yd9B68ED2bGaf58QhuHwYgqmahoHjx4Jpk+VjsG7EKDoQpTPDhz8EzUjNkY +XLktbOiosQWpW3Zt7xgfhbX7jdukC7cgI82Y+4vNKAzfy6kLWseL8cl6PE/b +f0KJ1crMGitejKiqr3ET+wmReKKNfMGLNXfG3VLO/oCnf4p2PyG24prdlfSq +sBFg+8C+Z+bqVkwQmCmyCfoOkiznrC0GtmIpW6rvYdtvwOQYomvJ8aHOys76 +1zAMJ/aevPY2lQ9ba5VyS79+gSMSPVb9c3xY+z6yIzh8CKR0dSYCTbbhWoVA +q9e/PwP9aWf56eptGGb9QviL1QCYcrnPM/n4sX/Rqye88iPke7J+feDFj4P/ +OWjFWX6AkzX5uuQbfkwqF1P9odUDA/oWc41iAlhtPV1EWHZB4DpOlU1RAtgo +/CRmzZkO8E1t4O36JoDbS2jDSYGtEKzlE374xHaspQr2rjdvBG91abnm/O3I +EAudzh58AbXCm+0/s1Nwd5lsYZdiDRSouUueX0vBV8WltaL7ayDB8e38OCcF +jdsNPUIEa+A8MzVkmYuCmoV1GWfW1MCmY6LZAlsouOu3IBd73DMwsVb6pEVQ +MD47VV2k+ClMZnoYVB+m4IrJg78Fs0+AQb5TirOj4I52946O6iq4ni+9geU8 +BUOfF7S03quC0cNJXY72FHz3/Fb6+8gqqNI0PKfqSMG4RCwSPFsF+r5dkYtu +q/O3qm1wZK+C8LftPWf9KGjecDttWvcxzEe8chKPp6BDo+GfewsV0L5Qfbvu +OQXNkjiP2ngw4cyjpUNiLyhYHMZRetOCCWNucm3RLylIdFzY0qDFBK6fVWxm +DRSsvD4UaynKhGMfHzv8aqHg0POpRYX+cqh8XqFIvlvdrzvHMEyzHO6El332 +Hqfgvqa13mqHysCRnr9HnEbFDwacvIRoCVxKjzlYQqeihFdb3VGBEghk+MhL +Mai4yFNG+KwtgSRBNS2FHVRsYr92kGwqXtVj2FVThIra7dwVb1WKYfu+nY8d +D1FxhM3iSa5yEbxQTFEt1KCizRqro7a6BUA9G24tcYWK2QNlnUXP7kPWcWfn +ZD8qmmhY7EzOvQ97JfV82K5S0dN3Ricp6j7IsVJvdQdQ8Xqf/Jae0/fB9N6D +av9QKrZbaReZLuZB6rfGLa9jqaia89vGTiYP6K6cNS4PqPjGPzpSsj4Hso1/ +Nr3Pp2KdWIXRv8U5IK70+u3RAiqqe8xpm97OAQXepJ8CxVRcv9gR0eWYA2bM +3QI1TCrWdFfUPebLgfQFFWeeGiqy2IdekjqfDYyAYHppNxWd+K9CKnEPdkrw +JMq+W+1ficYhznsg0pu6ufY9Ffti9FbwVxZIHi5n6+xbxXP1k7tiQxYojXz+ +PjNIRbeHK+Yy7llgowuPZCaoePOgQLlISyY82LGkVcNJQ78FyV7vWxlQ1Ha9 +QW09DRP7L/sYX8mAsstblDq4aJhylr1Bwz4Dqt+KSg1upOF3xUv7nY5mQMsN +Iyo7Hw17VCpGDk7dhfEp5vBxQRoedmf+u7X1DkjVulx9LUNDu8Lqp5UZaVDR +Pb+kKEfDluv9vuYBaSDz86pXgTwNx8ouCu60SgN5vminG//QcMI89SWncBoo +25WcPnqMhvzviv9VepAKOlxT0pU6NHxYfXLAtCoFLui5T96xo6F7wZoD3hPJ +MGq35LDxPA3197q0NXcmg/PlwG+X7Vfx3J3XkX+cDG7Zsf3GjjRUuVWb6RSQ +DN5zZS287jSU+ps0Td+WDNdTpu+H+NGQpf4xb6xSEmQMXrR0jqehYWXj2yNF +CXBC9GPh2wQangvkCNVPTIBpJ5UlhSQa7gw4oB3unwCqi9viNqTQkOE82ayo +kwA/N1e+vH+Xhn9ONanWTsXDEcVFkaF8GvJtc3PeLx8PzUl+40bPV/HNL8Zv ++hQLFz9+lXtWS8PKfZkLnE2xwBDSDt39cpWvrMuz/I9iwbWIIThbT0O2a9rO +nhGxwF/3TDe2hYbHPXKPH5SNBYtfrI9aemh4pE+MmpocA3OaIZeVxmkYNrNc +nWcXDXSjxCMNEzRcMZaJydCLBiXL3CnNKRpeH6VRS/6JhkjP+nPGMzRMvzMy +wisQDUJ31uq7LNFwk5Y82RRzC05OhIinr6VjSuHIwZOWNyE/JvTjAoOO6XmD +DkKCkdCempTsL0jH5H2FG53+RMBsTt4p9p10RKMTzP4PEYDVDa8276LjwFUv +R9nECOgZ5KzYLUZHWuNv/sZNEcAuFXZTX5qO6/4NOCDCGQ5nusOgRIeOd/mf +Tb7fGgasagnLNF06FnrsTO+eD4XsqsyqUD062tbQRqZ6Q+FHWvWhswZ0HBP/ +91tQdih4WY+KbDpNRwl+JQVe6VC4OanD42hHx8ePpzyeWobAf1wCn0X86Pi+ +K8EpoiUYLK4I3Ynzp6MkyqUKMYOBbXz/6ZWrdGzJ29bVnRoMah1qb7sD6fhQ +eWApyiEYupJ8X10Po2PZ7rI9CtzBMCrcXzoUR0eXF/89uaYXBHTICbybT8el +u+7PZqYCQN7TpGhPAR1rKC/6Zz8EgOnDjR/KC+lYXSs8zfsyAG4LeB1oLKFj +6o5+/4zEAOCfVB2YrKCj7/bOWg7FAODJ/K6o/IKOIhHxFv03rwH7GvHFL710 +/PFsV+NUhD8IyQ4Iu3yko06TroifjT8ou8SfXOynoxIHN0VW0R8CepfzNg7S +ceQTs0dpwg/+lrcaHvm+qk+daX20gR8s2LgwQ2foKB/BlJ/dewVG68tc9m4k +sPC283v7eR84JHHcsXATgY9meEYUu33AN6H3vCQPgT3syqFyj3xgnQ271ZGt +BAYP8VUWePiAEKuhvjKFwEbfvi8uv7zBVH5RxnQXgSf3evOcmL8Er4qBLVyR +wIefPgbSCC/gEej6yw0E7m6e8HrI4gWG/ud/30ICD2lGRJ754glfNGNmEo4S +mLLM6buvwBNYfgwOZ6oT+Oaftjl7RU+QEQ5prjIgMFVe46Wc3UXITW6JH3Ei +kJmlZSbR7g4XzpnH6bkQuEefzdu7yh0kjozH/OtKYIN0KcvHLHeo7Nx8K8qD +wOa3x77OeLpD46ZTNw74EAh9zj1mhDv8CH7v5xNM4C/bmPQZVzeQcBu2W59K +oFKiv3rQXlf4BZds3dMIfPKAyfGV3xUqNq2z6U0nsH19Z535GleAgj2WhRmr +9fIaPSJVLnDym+Np3VwCP0sn8wgKuoC7+bTO7VIC/QLbzaznnKBCnUV2TyOB +vy1ndwzWOsBcn0xuySsCA6Ubb0nccQBpV7etMs0E9r9Z5sj3cYDHiYNjqm0E +zgZc3b3vgANUD73Msuki0JrnFtuZrAvw1O8Gd8YAgSL1LBqyUfbQUMo7wL9I +oEpA7tDpoHOwTkVD684Ssfqv1HOQNudA7V1Q9a5lAjuq4vy4VM5B09+ZeKkV +Ap3+scgz4TwHLRo96nocDLRdtr/WGWUH7V9Ty6O2MDCFve0LV5YtvKPsCmXf +y8CGap1IHLaGRD7TOTcxBm5YwNCLrdagv/mW7SdxBrL/Zk2vZ1pDO/vi0er9 +DNzG+y7yZZA1NEy0sLgeZmBho1WpkJA1VNRd9O1FBsaYOO3SPWcF8W4vncqM +GPhqOXHhGrsl6Dku9pEmDDz74ZC49IQF8JyT0IwyZWClSMlZzg8WEGmWvPe8 +OQMfbt+hOVtsAUHHHb8R1gyMb5X6ucbcAtwJPssbzgycOiVpnX3pLJx8Za1v +cZ2Bh+/ms77hN4cjs97x9SEMFBBevVXTZkDbcbNLPIyB+WWRyZavzWDY+7H+ +YjgD7b0KOtPCzOCK6EaD2GgGmhAuLDx/TsP90AqDl6kMDM8W83o6ZgqsquuN +RMsYaOBRXD05agzDboykm+UMdC6v1NzTZgwt6Yd6ZpgMFLoQQQ8tNobkWXOj +55UMvF1+sKHU3RgkcsqMTP9joEiA1c2nS0Zgym5mHNnIwGLOpeLoLUZQVltk +MtnPwKqS+b3zxgbAV+6wznOAgbKn+ZbUFAzA655o5eJnBr4hD6TUkAYgG5zF +t+YrAzvM5iIEv+lDjUri620/GZjpcXYh/ZI+vG70U5GfX60/m9xoe/cUjLZp +HgjZTKLZ8qjvz3V6oP1s/QDXFhK7vt0dT5/UhZLi+pu3eEk8dcI3zvWdLnhE +42jyNhLVFhqaPO/rwpKuVN5DGonJ7kNuv9V1Yf1bGtEhQuKVhwzj9tiTsLv3 +xzo6rs5rjbgi6KkNHIeyq0KUSOzRspSs1NaGL+HmF6aUSRTx74/zE9WGLLn2 +5noVEtN/LQcm92kBmfLoppsGiZtlimpYjmvBdpNrfA2GJJqWjt+wF9aEDT3b +BN2dSPQ4FrJOkOUE/JB43d7nTKKyOK1c6ZM6NIWEBRx3JVE4Ols38qk6hB35 +PUj3IHFIV+Feqp86sCcO5DR4k2hY8uFA+h81+Kv/UIwIJjGbnhvMyqEGk29Q +ujGFxJqw2qdrJVXhoagGv3kaiZ18Ud/yeFTBzt9gdiqdxH3vgrouTqnAxz0X +ymmZJIots3LHlKtA07W4/S55JEp1tfq0yKpAjsSwCD+TxPVD1nF07WNgGh6x +3aaVxIkKQ0yNVwb+gYT5hTYS/c5sf6PqqwwdhzO6o9pJXLCfAwELZVD7zIyv +7CRxpe/x113iynBYpp9nwwcSJVqHPs3UKQHPsOT6suFVPjU10yRYlKBZXv67 +6ncShR4JvOT5jhASo9LQO0KigW/eE752hD8Kptc5xkgcWOCwC8hA+BEXxGoy +TaKl0ET0d2WE3JGogbEZErcP6Ut1iSFYQvKzwDkSVZdz5Qb4EN79KPArWCTR +6Lnu5dI2gDisNFP6vcrPwsUXNzIBtBOfy3cvk8j9a8458yIA12gz1eHvar7B +cvfCcYA6pe7FlZVVPdY+io2iAfwP3fwlbA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3.5, 8}, {0., 0.9776920067134719}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{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.5, 8}, {0., 0.9776920067134719}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVVmk0lg0TRqSkkkTPcj+3oiiSStnfGYrIFtmj7CU7EYqyhCxlJ0shS8nu +iXh7S8qSLSIqkiilrNmlfL4fc+bMmeXMdV3nzJkdVi56tmwsLCwrq/Z/73Xl +FDcLCzdm3tN8huoTUPbC4V4nGzduFON71qw2AWNcwXJ5HNxoEKDoabga29xm +ntfewI27+tnYHY5PgG7Ftro0fm4sqHbJjVaZAPHJHj/ZfdzITJTraVWagM/W +ZhPupqvx53u5m+QmQFPD9s1XJjc+EqYm390zAWrGJqNsPhtRkSHw6hjrBEwI +BbDvkNyEfb2iCtNd42Af9Dwyb2gT2p+ZzlHJGof1O76ct83djD0U5eYxy3HI +/yd9B68ED2bGaf58QhuHwYgqmahoHjx4Jpk+VjsG7EKDoQpTPDhz8EzUjNkY +XLktbOiosQWpW3Zt7xgfhbX7jdukC7cgI82Y+4vNKAzfy6kLWseL8cl6PE/b +f0KJ1crMGitejKiqr3ET+wmReKKNfMGLNXfG3VLO/oCnf4p2PyG24prdlfSq +sBFg+8C+Z+bqVkwQmCmyCfoOkiznrC0GtmIpW6rvYdtvwOQYomvJ8aHOys76 +1zAMJ/aevPY2lQ9ba5VyS79+gSMSPVb9c3xY+z6yIzh8CKR0dSYCTbbhWoVA +q9e/PwP9aWf56eptGGb9QviL1QCYcrnPM/n4sX/Rqye88iPke7J+feDFj4P/ +OWjFWX6AkzX5uuQbfkwqF1P9odUDA/oWc41iAlhtPV1EWHZB4DpOlU1RAtgo +/CRmzZkO8E1t4O36JoDbS2jDSYGtEKzlE374xHaspQr2rjdvBG91abnm/O3I +EAudzh58AbXCm+0/s1Nwd5lsYZdiDRSouUueX0vBV8WltaL7ayDB8e38OCcF +jdsNPUIEa+A8MzVkmYuCmoV1GWfW1MCmY6LZAlsouOu3IBd73DMwsVb6pEVQ +MD47VV2k+ClMZnoYVB+m4IrJg78Fs0+AQb5TirOj4I52946O6iq4ni+9geU8 +BUOfF7S03quC0cNJXY72FHz3/Fb6+8gqqNI0PKfqSMG4RCwSPFsF+r5dkYtu +q/O3qm1wZK+C8LftPWf9KGjecDttWvcxzEe8chKPp6BDo+GfewsV0L5Qfbvu +OQXNkjiP2ngw4cyjpUNiLyhYHMZRetOCCWNucm3RLylIdFzY0qDFBK6fVWxm +DRSsvD4UaynKhGMfHzv8aqHg0POpRYX+cqh8XqFIvlvdrzvHMEyzHO6El332 +Hqfgvqa13mqHysCRnr9HnEbFDwacvIRoCVxKjzlYQqeihFdb3VGBEghk+MhL +Mai4yFNG+KwtgSRBNS2FHVRsYr92kGwqXtVj2FVThIra7dwVb1WKYfu+nY8d +D1FxhM3iSa5yEbxQTFEt1KCizRqro7a6BUA9G24tcYWK2QNlnUXP7kPWcWfn +ZD8qmmhY7EzOvQ97JfV82K5S0dN3Ricp6j7IsVJvdQdQ8Xqf/Jae0/fB9N6D +av9QKrZbaReZLuZB6rfGLa9jqaia89vGTiYP6K6cNS4PqPjGPzpSsj4Hso1/ +Nr3Pp2KdWIXRv8U5IK70+u3RAiqqe8xpm97OAQXepJ8CxVRcv9gR0eWYA2bM +3QI1TCrWdFfUPebLgfQFFWeeGiqy2IdekjqfDYyAYHppNxWd+K9CKnEPdkrw +JMq+W+1ficYhznsg0pu6ufY9Ffti9FbwVxZIHi5n6+xbxXP1k7tiQxYojXz+ +PjNIRbeHK+Yy7llgowuPZCaoePOgQLlISyY82LGkVcNJQ78FyV7vWxlQ1Ha9 +QW09DRP7L/sYX8mAsstblDq4aJhylr1Bwz4Dqt+KSg1upOF3xUv7nY5mQMsN +Iyo7Hw17VCpGDk7dhfEp5vBxQRoedmf+u7X1DkjVulx9LUNDu8Lqp5UZaVDR +Pb+kKEfDluv9vuYBaSDz86pXgTwNx8ouCu60SgN5vminG//QcMI89SWncBoo +25WcPnqMhvzviv9VepAKOlxT0pU6NHxYfXLAtCoFLui5T96xo6F7wZoD3hPJ +MGq35LDxPA3197q0NXcmg/PlwG+X7Vfx3J3XkX+cDG7Zsf3GjjRUuVWb6RSQ +DN5zZS287jSU+ps0Td+WDNdTpu+H+NGQpf4xb6xSEmQMXrR0jqehYWXj2yNF +CXBC9GPh2wQangvkCNVPTIBpJ5UlhSQa7gw4oB3unwCqi9viNqTQkOE82ayo +kwA/N1e+vH+Xhn9ONanWTsXDEcVFkaF8GvJtc3PeLx8PzUl+40bPV/HNL8Zv ++hQLFz9+lXtWS8PKfZkLnE2xwBDSDt39cpWvrMuz/I9iwbWIIThbT0O2a9rO +nhGxwF/3TDe2hYbHPXKPH5SNBYtfrI9aemh4pE+MmpocA3OaIZeVxmkYNrNc +nWcXDXSjxCMNEzRcMZaJydCLBiXL3CnNKRpeH6VRS/6JhkjP+nPGMzRMvzMy +wisQDUJ31uq7LNFwk5Y82RRzC05OhIinr6VjSuHIwZOWNyE/JvTjAoOO6XmD +DkKCkdCempTsL0jH5H2FG53+RMBsTt4p9p10RKMTzP4PEYDVDa8276LjwFUv +R9nECOgZ5KzYLUZHWuNv/sZNEcAuFXZTX5qO6/4NOCDCGQ5nusOgRIeOd/mf +Tb7fGgasagnLNF06FnrsTO+eD4XsqsyqUD062tbQRqZ6Q+FHWvWhswZ0HBP/ +91tQdih4WY+KbDpNRwl+JQVe6VC4OanD42hHx8ePpzyeWobAf1wCn0X86Pi+ +K8EpoiUYLK4I3Ynzp6MkyqUKMYOBbXz/6ZWrdGzJ29bVnRoMah1qb7sD6fhQ +eWApyiEYupJ8X10Po2PZ7rI9CtzBMCrcXzoUR0eXF/89uaYXBHTICbybT8el +u+7PZqYCQN7TpGhPAR1rKC/6Zz8EgOnDjR/KC+lYXSs8zfsyAG4LeB1oLKFj +6o5+/4zEAOCfVB2YrKCj7/bOWg7FAODJ/K6o/IKOIhHxFv03rwH7GvHFL710 +/PFsV+NUhD8IyQ4Iu3yko06TroifjT8ou8SfXOynoxIHN0VW0R8CepfzNg7S +ceQTs0dpwg/+lrcaHvm+qk+daX20gR8s2LgwQ2foKB/BlJ/dewVG68tc9m4k +sPC283v7eR84JHHcsXATgY9meEYUu33AN6H3vCQPgT3syqFyj3xgnQ271ZGt +BAYP8VUWePiAEKuhvjKFwEbfvi8uv7zBVH5RxnQXgSf3evOcmL8Er4qBLVyR +wIefPgbSCC/gEej6yw0E7m6e8HrI4gWG/ud/30ICD2lGRJ754glfNGNmEo4S +mLLM6buvwBNYfgwOZ6oT+Oaftjl7RU+QEQ5prjIgMFVe46Wc3UXITW6JH3Ei +kJmlZSbR7g4XzpnH6bkQuEefzdu7yh0kjozH/OtKYIN0KcvHLHeo7Nx8K8qD +wOa3x77OeLpD46ZTNw74EAh9zj1mhDv8CH7v5xNM4C/bmPQZVzeQcBu2W59K +oFKiv3rQXlf4BZds3dMIfPKAyfGV3xUqNq2z6U0nsH19Z535GleAgj2WhRmr +9fIaPSJVLnDym+Np3VwCP0sn8wgKuoC7+bTO7VIC/QLbzaznnKBCnUV2TyOB +vy1ndwzWOsBcn0xuySsCA6Ubb0nccQBpV7etMs0E9r9Z5sj3cYDHiYNjqm0E +zgZc3b3vgANUD73Msuki0JrnFtuZrAvw1O8Gd8YAgSL1LBqyUfbQUMo7wL9I +oEpA7tDpoHOwTkVD684Ssfqv1HOQNudA7V1Q9a5lAjuq4vy4VM5B09+ZeKkV +Ap3+scgz4TwHLRo96nocDLRdtr/WGWUH7V9Ty6O2MDCFve0LV5YtvKPsCmXf +y8CGap1IHLaGRD7TOTcxBm5YwNCLrdagv/mW7SdxBrL/Zk2vZ1pDO/vi0er9 +DNzG+y7yZZA1NEy0sLgeZmBho1WpkJA1VNRd9O1FBsaYOO3SPWcF8W4vncqM +GPhqOXHhGrsl6Dku9pEmDDz74ZC49IQF8JyT0IwyZWClSMlZzg8WEGmWvPe8 +OQMfbt+hOVtsAUHHHb8R1gyMb5X6ucbcAtwJPssbzgycOiVpnX3pLJx8Za1v +cZ2Bh+/ms77hN4cjs97x9SEMFBBevVXTZkDbcbNLPIyB+WWRyZavzWDY+7H+ +YjgD7b0KOtPCzOCK6EaD2GgGmhAuLDx/TsP90AqDl6kMDM8W83o6ZgqsquuN +RMsYaOBRXD05agzDboykm+UMdC6v1NzTZgwt6Yd6ZpgMFLoQQQ8tNobkWXOj +55UMvF1+sKHU3RgkcsqMTP9joEiA1c2nS0Zgym5mHNnIwGLOpeLoLUZQVltk +MtnPwKqS+b3zxgbAV+6wznOAgbKn+ZbUFAzA655o5eJnBr4hD6TUkAYgG5zF +t+YrAzvM5iIEv+lDjUri620/GZjpcXYh/ZI+vG70U5GfX60/m9xoe/cUjLZp +HgjZTKLZ8qjvz3V6oP1s/QDXFhK7vt0dT5/UhZLi+pu3eEk8dcI3zvWdLnhE +42jyNhLVFhqaPO/rwpKuVN5DGonJ7kNuv9V1Yf1bGtEhQuKVhwzj9tiTsLv3 +xzo6rs5rjbgi6KkNHIeyq0KUSOzRspSs1NaGL+HmF6aUSRTx74/zE9WGLLn2 +5noVEtN/LQcm92kBmfLoppsGiZtlimpYjmvBdpNrfA2GJJqWjt+wF9aEDT3b +BN2dSPQ4FrJOkOUE/JB43d7nTKKyOK1c6ZM6NIWEBRx3JVE4Ols38qk6hB35 +PUj3IHFIV+Feqp86sCcO5DR4k2hY8uFA+h81+Kv/UIwIJjGbnhvMyqEGk29Q +ujGFxJqw2qdrJVXhoagGv3kaiZ18Ud/yeFTBzt9gdiqdxH3vgrouTqnAxz0X +ymmZJIots3LHlKtA07W4/S55JEp1tfq0yKpAjsSwCD+TxPVD1nF07WNgGh6x +3aaVxIkKQ0yNVwb+gYT5hTYS/c5sf6PqqwwdhzO6o9pJXLCfAwELZVD7zIyv +7CRxpe/x113iynBYpp9nwwcSJVqHPs3UKQHPsOT6suFVPjU10yRYlKBZXv67 +6ncShR4JvOT5jhASo9LQO0KigW/eE752hD8Kptc5xkgcWOCwC8hA+BEXxGoy +TaKl0ET0d2WE3JGogbEZErcP6Ut1iSFYQvKzwDkSVZdz5Qb4EN79KPArWCTR +6Lnu5dI2gDisNFP6vcrPwsUXNzIBtBOfy3cvk8j9a8458yIA12gz1eHvar7B +cvfCcYA6pe7FlZVVPdY+io2iAfwP3fwlbA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3.5, 8}, {0., 0.9776920067134719}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (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:eJwVV3k4Vl8QRkjiu/ezhm9pE1GKIkucUVHZlYhS1ghlK0qUvShUJEJEloQk +yZIsyRLJFiJRpMh3Q0WqX/1Of93nfc7cmXnmvO/MmRUOnnucebi4uDS5ubj+ +ff0C9wpxcQlBhbJS87QrhYwMnbs+lApB7sDJJ0UXKLRrv/UUz2lhMMywJVkF +FPqyKoR3xUYaaNw+e128lUJHw+ou5Y7SQMyHpv52lEJLVoy5OucQEGIdYtfw +lUL5OmkrRJRIKDrXFGiK8fuLFeoxl0n401Cfq/CGQryr3p/fOkPCf16WT73z +KBSYvNrSw5AOndkDhRusKcS/YX/7lkI68Lf9srj5hoPGs7KfhQmIAMNTzvAh +cFCxw99vixxEYNFhWvRw8BS6BAbt7KciMNdt/+p++Gf05L+iNY+ZojATE3jJ +yXsS8Qzwrv12ThSeBhloNLMm0EYuF0e7EVFQSZa+M1P0EZXyjTKMNcXg2Eh+ +H+iMIwMFs+BXKWJgt3lT+UzyGFJT6nN4OycG+xZvf0rxjaLN5qZfQq3FgbjY ++nXU8B1iPOl+cKBSHPKFG3litYaRjaDPfKmYBKSnXbqvvf4Nyj/J/eGOnwRI +Hv6dcfxvPzKrzTdnd0nAlaQ8moRyLxqxsJtrVpSEDT+pCaWb3ShUYLEeLUYS +rC/t/Dst2IkCUppEej5KgqnEmGx56QsUbnw6WtVgGYyo5D2hH29Bp3Zv0WzN +XwbDHSX9Sg+eofrVxNF3vFIwbsZJVUyvRyx2v278ESloG3k5X+VYgzp+VCY/ +q5OCmNQ+wdqsSuTByF+7TkYazssUqcomlSHpw9GOSoHSQOjmf97WVYJYIeGM ++73SEPPSelw18x7aXO957qW6DByV9lPMkMlHGe9P2B9PkIH86u131tdnozmj +yDO6lAz0W9W+4ZbLRId6L6BiUwYc27Ba/mlNGmKg7ND0fAbIKsznTWcnoanG +Ek8FYSbst+L8JYkElJPUljBxjAlH/4bmq9hcRmW7uTTWNjMhaXfAWvPf0ahf +SvY8rwILXqS/qrw2HIHMWhwt7CJYYGVR5rH5WwgqqS+ynn7LAovzfsE1MUFo +zeCkAAPYwLu1SPj8B3803QVbmm+w4cIi4zs7EnzRM93ehb9/MV4q0PbdzBO9 +czz4xcdGCCQi9ZqjT1GIoXPsx5UeYeDMVkyLPqZQwd5bu8aiaPDO9kClaz+F +NLq6Avj1CNhx96NMAodC13MXu2dykdDuoXLt4XcK6TsrFpoeJkHLfa6b/plC +vn3GI2O1JHwWmzmk30ghOLTI04JFh6bUXue+cArpOumI7AmkwxO7+r0bl1PI +b+JPy9AAHeRye0xuxHOQYdieoe2qIjAfrKVf8GEK3ey8/e7KVRHYoZ4n6i8w +hVqvB1FWdTKgUyVgr/kuC+VfOT/0g8WA+TEHoDwzULWg5Du5IAaYb3GQmRVP +QbyL1i2MDTKg8rK4S7d2Imq5h3iitZlwnTvdMJJ5FSl5jx9ZksKEAf/Ss5ll +MajpvsiIxAITZiVWjg4ZXUAJ3g3HSqxYEDZi1TfbGYa49ZdYyZewIKgu2dDC +IBhNtRspRxJscApT79icEICW9okv9znGhjofDt/izJPIJvriMqcXbGj75bh8 +JtQbrZvuC9JYLwQih/rc87wopGLo6PM8Rxhu/tdqvLGUQu1aV3J4bGlg1zfZ +OdtJoU6F54usxAhIMVTcxZrA91V+mv2qm4CA5Xuea+P6/zB3+lisT8JTueSO +H19wf7ofJlSRR0KFw8b3Cl0Uyqz1OdO8mA7aR35w3bxOobdnlTcPO9JhY1ug +7k9tCulcUmwTbKCDzlBVhEUFByWJBnaOskRgd/3Bg65iHCQnveezQYAIuHwT +qZHSn0Jq2gtyo/ky4B76d/e9ttvI7EvkujR+BuiDqLOj/i0UO21KehxhQJ+h +j5ulYyoib33S3vaUARcFqhWc3K4jG60FdRtZJpSlaSTpkvFoMvx10OlwJrh4 +mrPK18WhJ0FRQhkjTBhU5reaSolCZc9OBAwCC6bKdYtCusJR3vmyfQ0pLNC8 +8/mrjnQIetkcpKc1zwKjARnXNYsD0TLrYLEmSzbQM9OGqh/7oWylcTmJUjYo +Vo2utw/3QdHu9yefldFg9Le+rctbCt06PTjz8CQBLgdq7srPUGi57x59G0kS +3P0ZyZK4vgmnZn0ofxLOiWgcCx6j0Nb/JEvJ1yRoDOTdci7H9fwV7zCymQ5S +bZrbhPF93t5tON2QgPm+ef5A3V8OIsc3LikZZ4MxzUNULc4LmZeJP0uVEIKE +lf7NjR4UqjY/dG88Thh03/9Zva4Y+9sQ9eqKPg2+TofJXm6nELNPb9ffXzQo +bdvOTByn0NUppR3MagJ0umWXZHyjkHlzcLi9Jgnvq8/F9uD8G2/eXJmVSkLM +i3fDzn0U6vbODwn9TcL+A4KKehkUWi+k+Czbig5fpT56jRtifgzpGt8qp0PV +b4sJ/VYOqhm83PpAVARQ2uT5Nwoc5PFE3kvuOJ4/Pxef7XecQp+JRw156TLw +NmvvWTn9bLTqJr+F508ZcK7Y2XHk4S3k5zglRzvAAHuanHImkYYkpvVHpssY +wNBdMAL+JLSK29JimxQTJFdXS7Ni41EzbW+U8mkmaHUaFZtScahytCHTqYcJ +Zr3r68Z3R6OmL21cXqos+Nhl9svbKgIFygvvu3qZBb5v1SRmIkJQrV7iS/HP +LGhpinekmgIR+8bDWG9DNqibpyTuM/VHz4PjN3jmsqEsn9xyStAXpRy+I7Uv +gwZ7PFwW/AcpxJG1UjtkS8C1M8k8gVg/B4UL9/9ZSkLOp9sJ0fj+ORSNTHcn +IdjkII3rE4X2T6o8/9mGcVfvQmINhYjCVtcba+kQGxfZ/CCAQrO9O0IuXqDD +f096fUxICqmqvyWXDrAhn+4Z6rrYG0WcNakpWkfAhk2B4764X2aHNfy8NEnA +obGm1Sk4XvrgTgOuvSTU6vn9Kcf9NrbBda69lIQHXZse+LVRaN+Lw4XCsQRw +tUgsvz5LoQ/985vKVpLQ/YNPwgbzQYun95V2OAn5vgcexI1QaDI+jNv6Kxtk +2A2ntkt7IafkUleTpUJQtW+T3oAbhXheDb44ES4MNvEy2muKKDS+lu+YtRYN +eIqXPn6F420vDHPr/kKDakr1O/qA+1NklGXdfQL2f/vZooHjnV1EdGtsJiFk +3uRzGs7HQrxgfVIiCbrClwd6X1PIw6AxfHiOhG0Xo3PcblOopytXOMqcDr+b +U3en78H2/C9ipkroQJN8PcnXw0FdKKVZhiYCTw5rmr5R5aBYMqFE3FUEJBDi +8vWZQvoL4vFLb8jAbIWLVH9YNrp0stFl/zcZeKLaED3CuYUmUys3Hd7HgIir +6zrVXNJQsqSfcnMxAzKis5NT9yUhASdeBzVRJtRvzMrZ1B6PHnUTcTG+TPjU +mJTiJH8ZlSe+5+i3M6F5wWbnpcxo1MG7sL1yAwsccrbpMVIi0PipcouFaMy/ +uuqimschSCM8U2zRBxbkVpW83KQQhDI1O1ob9fC8TbWrW0j2R0Nr3R7I3GJD +7bMk5XETX3TbWvY+4xoNTDzNN3/D9RH9nbBfxZyAL8kdO+MoCgXYDNib8ZPw +/H3y5zzMB2mFtEP+ziTQVW6fSsT9f9wOXn1pJKHQbejxn3oK5UV8dJ9fRQeu +jkM9r85R6EZaXcvxUDowp5vvWizD7913pQmPutmgk6+dUbvDG921uPQudDkB +y195JZpOUmiEyRZWHiYgmBZacALHa5PoTeo3IqH3g+XNDzgfhpYfd0MRCd8n +DJbbvaTQmay0l+9CCBhx2f3mI+43PGtktQWYJDiKOJjXYz64ajutljhLgkCa +sEviewr9t9Umgo/Dhqv86YqWFl7Iak+P8ulmAnw/h7fPYfvVMbOqUUDCpPPz +/2anKdRkKiUWfZSALbIrKGuMdWrPmRbQSSD9funY4PzcJo5++vSdgDbj5PfF +GG+YX3FR4wYBnT/5JNXwe7z54nMFJ3kSslpkr73FuH+yIKhggQ2D3J4X5+o8 +EUcwXDOXTwhEj0uv/nAU6y9ReqjqrDDkGnN5rCzEelnzVL1alQYLf21s5/A+ +YJmUeaZ6ggan6I/CLuP+P9Vddli0gIDMlfHfuXD+Yissf8oqk7D9IidnAfM/ +pUPlwdV4EqRquu14cX8pV7Pgp30joWCVw2/vHArJq43fDzChQ2PKw4ipfRQq +vCGiJFJMB7qtzbRlPwe98V7eZLpUBB4b3sw21uKg9IqWbiFnEcjS7uS9d3oK +fT2m93PrdRmobFdQpDKzka59zozRjAxs8y6RPSiYiW5X3Ko4v4cBrWdev7WN +T0M2d4UHHhQyQAcOB+UGJaGAa4OuG0km2OfzqUVR8UhJjbpS5cWEU+9f22no +XkZbvLxF1VuZcPVCbqLBy2hkQcQ5D69jQf3dvd91qiOQzIrYnnUXWMCVrqvo +3B+C/LLkHy28Y0HPH8n0jgNBaCza1m1mGxtcEtoks2r80ZGz+77PpLGhdEhE +0d/bF+VZjgYGx9Eg8Mjg0Q2Y/2s+PjjKMCSg0X9VgCjmmwC395HTi0gw4fzn +dR/fb/HOsQhHBxJ2JOeHWGG+rmM02Uw+JYG3HF3KaaDQN++THNkVdFCPss2z +CaUQxcV13O4cHRKq+Nt3MvD7STWjN6aDDR83MXKqHb3RE3R31kOagPEe26hy +rKc/bkYSYa8JiCZvbT+A4zlsZtY27MZ8hKxDPngeOM79jnxylwS7kkqzlg7c +j2Mfj7SeIcA9+qZWNOb/lbYqXWVpEr7YJZp8wXz4Y3PXkOcMCWn29guxeH+M +vKLXNDjBBucwbeMCby90Ip1bq7WegJ7YJXYvsH1lvobtSW0SuFYodh/B/gY0 +1WVPOBJw8O26/ikc/8URCYtXNBJY49VF//R5Qe36jOY0ARaSgsv/9Ydt7yF1 +VQIBK/s33v2E+WepYr8hRpaEtjDnpyzs3x4l1YTOsUHU4OwJoV+eqFjjoLHn +IwJ2GXR0H8fnnx9st5VbQsJO7+Gf/+ZPfcfMouExAs4FTvyMwvjEuVj1YTYJ +gk161y9je02+XHm5dgJcx1INGPj8ntSEQZgYCcvV1mlpYWyUunU48RcBj3Ye +cPi3H5gk1mn1/mbD44ymizuiPFHJU/esbh4hSA3QG3LD+vObr3AaPiMMFy+L +m2bgfdxDNpP1RYUG2Wqv10Ri/Y0Iq4SXjNOgodGvfAvWX0CAsdPWOwREyYas +HMX6Hr63IJy6gYRK8XpjWYx1lOa+E1dJaB4+4Z6E9fd2nczO7FkSbkUpdvrk +UqjLhS/8qxEdjnSUHIizwvV2Uv1zu4gOhL1f75kBDnon6Ng4sUQENBi2RTw6 +HCQf6+R0wVEEhLd5PNoVNIUM5IcKX12TAV6z8ooLJdmIYZWo1vRFBkKyTCrv +LMtE3Luu/ZYxZ8D3QflHF+6kIa2T1kVrC/D7J79sR8OVJLRJaadHIY0J/G7K +Lxv/xCM3F9v4PZ5MmE7h87lvfBnNvVHPKW5hgkbSy46GD9EoUcxmzluRBbyl +5R2O7RFI7fuphMZIFqA9GXE7x0OQ2AN3gZMjLOC89HpWfSII8W26XRGpy4Zr +XZYVMV3+6K68oYRtKhuo1i17e0N9kcK+eoeSSzSgtDVN2vB+V3xwuw99F+aT +0cGtPfi9YWbx+JMwDwkfX6TQSvH9nek9n/zajgTv0L7gh1h/Haej01zqSdgH +J0/4P8PzyXWrUjWbDtaU65IbYRRKUmHD6yA6JFfOO2qzKCQxcm3+RzsbrPM5 +sWa+3mjXQ81f9pIE0GWutrtj/cXQR6ULeglQbzgiYIzjrX9a2625iwSlD9ft +yjD/+S1qW7TySejRvC50Bu9Dy3iNJmpPEXBGs3faGuuln7244dkyEo7cubiE +F//fMmFy+NRpEnavMkkUwHxp1dL6pP8J5/Rar8wt2Ast0k9C32oIqFHnU36E ++RypMeT1WYuEgEY935vYn1Nx0/qjdgQkvkweK8XxxSrte48K4/i9u1WCsX+J +ofVzjhwCHg8OyWf+m5dWHbeXXSFgwbTVtRbr72ZEwf0Vq0lILY1YrI3950zE +jHC+scH0z8fot0u9EBqZNU8qJeBobm+zBT5XWRw3XLWYBEtuA+4s7M/c/4KA +wHsClPqz+85hXNX1utKXRUL8jQShfGzffFd7vVkrAXs2Bi0VxOdzHptfSIqS +kJGmbmaI8eC27tGaHwSsLT959wHG8fDooO4vNhyqE5K6ku2J6gplx8Z48f6u +KlZViM89Gx7Sbd4QsGm6JsAV40jR1k4gSShfVSXwDy/EcXHoXwm4d2vJkn/2 +t+1+DFwVJEF7XKwvHuPNCgf+PvxIgCIlKP4PV3/PHjj2h4BpJX7+MowFp1ql +3f+woVDpVDt5zBP9D3K9P2Y= + "], {{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwl1Hecz3UcwPETmWWPSjKPK/NOOqvIXklGaRCHQrnLCFEZlb3LrFRkhgql +oWRvWjSMIg1kV2bj+X70x/Ne3+/nc4/ffX/v7+dxJdMyWqdnSkhIqOlH9DLr +eZHHaE5VriIzV9jASzxOC24lC3+zkan04i6qUcAH79O3eI4uXM0/bGIa6bSk +qN/9SVcwltsoaG2/LuF5Et2f0E/oSnH3v+oqJpLk/rR+Rlb+ZTPTKW/vnGZQ +2vVx/ZjKrs/r3dzo+kh8L12pFfVPra7jtJyeimfTNZqsF7WGpmohPRBz06Va +Qf/QVH1By+rJmI1+qlX0gnajhOvf9AMquf5LJ3Gz6zO6lmzEy9oiM3iCMu5/ +19W0opj7n/U9xsezU9jaQV3GCB6hpLWj+iGTyR4fbW2rzqQ393CTtV/0fSbE +d6WItR/0bUbyKDnirFjfprPoQ+s4X1xn/Ud9h1F0J2ecK+vb9WX60oZaXG/9 +kL7LaHqQK86a9R36Cv1oS22uiXNlb6e+ypO043aujbNgb5fOpj/3cge5yUNe +8pGfAnHu4l3G3OK7xvPHM3EDReOcxJxjNnEG493FPCkVZyveCYnxvuOd+du7 +9TUGcB914izFzO19rq8zkPbUJSnmae8LfYOnuJ874zzE7Ox9qXMYxAPU45aY +k72vdC6DeZD6lI852fta3+RpHqIBFWJO9vboPJ6hAw2pGHOyt1fn8ywdaUSl +mJ+9b3QBQ3iYxlSOudr7VhcylE40oUrM2953uohhdKYpyfEe7H2vixlOGs1i +/tYP63LG0DNmbu2YfsSUmIH7s7qOFNeXEv7/H5ei/wFrN4hZ + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrsJgEAURNEnGtiGbRhqYGJkCQbCgrDg2j9+QLCIkwxc5nRrXra+iihN +RMypnNsdv6qfau9ZpmHMez7S86f4BsdxHMdxHMdxHMdxHMdxHMdxHMdxHMdx +HMdxHMdxHMdxHMdxHMdxHMdxHH/nAnuwKMg= + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVV3k4Vl8QRkjiu/ezhm9pE1GKIkucUVHZlYhS1ghlK0qUvShUJEJEloQk +yZIsyRLJFiJRpMh3Q0WqX/1Of93nfc7cmXnmvO/MmRUOnnucebi4uDS5ubj+ +ff0C9wpxcQlBhbJS87QrhYwMnbs+lApB7sDJJ0UXKLRrv/UUz2lhMMywJVkF +FPqyKoR3xUYaaNw+e128lUJHw+ou5Y7SQMyHpv52lEJLVoy5OucQEGIdYtfw +lUL5OmkrRJRIKDrXFGiK8fuLFeoxl0n401Cfq/CGQryr3p/fOkPCf16WT73z +KBSYvNrSw5AOndkDhRusKcS/YX/7lkI68Lf9srj5hoPGs7KfhQmIAMNTzvAh +cFCxw99vixxEYNFhWvRw8BS6BAbt7KciMNdt/+p++Gf05L+iNY+ZojATE3jJ +yXsS8Qzwrv12ThSeBhloNLMm0EYuF0e7EVFQSZa+M1P0EZXyjTKMNcXg2Eh+ +H+iMIwMFs+BXKWJgt3lT+UzyGFJT6nN4OycG+xZvf0rxjaLN5qZfQq3FgbjY ++nXU8B1iPOl+cKBSHPKFG3litYaRjaDPfKmYBKSnXbqvvf4Nyj/J/eGOnwRI +Hv6dcfxvPzKrzTdnd0nAlaQ8moRyLxqxsJtrVpSEDT+pCaWb3ShUYLEeLUYS +rC/t/Dst2IkCUppEej5KgqnEmGx56QsUbnw6WtVgGYyo5D2hH29Bp3Zv0WzN +XwbDHSX9Sg+eofrVxNF3vFIwbsZJVUyvRyx2v278ESloG3k5X+VYgzp+VCY/ +q5OCmNQ+wdqsSuTByF+7TkYazssUqcomlSHpw9GOSoHSQOjmf97WVYJYIeGM ++73SEPPSelw18x7aXO957qW6DByV9lPMkMlHGe9P2B9PkIH86u131tdnozmj +yDO6lAz0W9W+4ZbLRId6L6BiUwYc27Ba/mlNGmKg7ND0fAbIKsznTWcnoanG +Ek8FYSbst+L8JYkElJPUljBxjAlH/4bmq9hcRmW7uTTWNjMhaXfAWvPf0ahf +SvY8rwILXqS/qrw2HIHMWhwt7CJYYGVR5rH5WwgqqS+ynn7LAovzfsE1MUFo +zeCkAAPYwLu1SPj8B3803QVbmm+w4cIi4zs7EnzRM93ehb9/MV4q0PbdzBO9 +czz4xcdGCCQi9ZqjT1GIoXPsx5UeYeDMVkyLPqZQwd5bu8aiaPDO9kClaz+F +NLq6Avj1CNhx96NMAodC13MXu2dykdDuoXLt4XcK6TsrFpoeJkHLfa6b/plC +vn3GI2O1JHwWmzmk30ghOLTI04JFh6bUXue+cArpOumI7AmkwxO7+r0bl1PI +b+JPy9AAHeRye0xuxHOQYdieoe2qIjAfrKVf8GEK3ey8/e7KVRHYoZ4n6i8w +hVqvB1FWdTKgUyVgr/kuC+VfOT/0g8WA+TEHoDwzULWg5Du5IAaYb3GQmRVP +QbyL1i2MDTKg8rK4S7d2Imq5h3iitZlwnTvdMJJ5FSl5jx9ZksKEAf/Ss5ll +MajpvsiIxAITZiVWjg4ZXUAJ3g3HSqxYEDZi1TfbGYa49ZdYyZewIKgu2dDC +IBhNtRspRxJscApT79icEICW9okv9znGhjofDt/izJPIJvriMqcXbGj75bh8 +JtQbrZvuC9JYLwQih/rc87wopGLo6PM8Rxhu/tdqvLGUQu1aV3J4bGlg1zfZ +OdtJoU6F54usxAhIMVTcxZrA91V+mv2qm4CA5Xuea+P6/zB3+lisT8JTueSO +H19wf7ofJlSRR0KFw8b3Cl0Uyqz1OdO8mA7aR35w3bxOobdnlTcPO9JhY1ug +7k9tCulcUmwTbKCDzlBVhEUFByWJBnaOskRgd/3Bg65iHCQnveezQYAIuHwT +qZHSn0Jq2gtyo/ky4B76d/e9ttvI7EvkujR+BuiDqLOj/i0UO21KehxhQJ+h +j5ulYyoib33S3vaUARcFqhWc3K4jG60FdRtZJpSlaSTpkvFoMvx10OlwJrh4 +mrPK18WhJ0FRQhkjTBhU5reaSolCZc9OBAwCC6bKdYtCusJR3vmyfQ0pLNC8 +8/mrjnQIetkcpKc1zwKjARnXNYsD0TLrYLEmSzbQM9OGqh/7oWylcTmJUjYo +Vo2utw/3QdHu9yefldFg9Le+rctbCt06PTjz8CQBLgdq7srPUGi57x59G0kS +3P0ZyZK4vgmnZn0ofxLOiWgcCx6j0Nb/JEvJ1yRoDOTdci7H9fwV7zCymQ5S +bZrbhPF93t5tON2QgPm+ef5A3V8OIsc3LikZZ4MxzUNULc4LmZeJP0uVEIKE +lf7NjR4UqjY/dG88Thh03/9Zva4Y+9sQ9eqKPg2+TofJXm6nELNPb9ffXzQo +bdvOTByn0NUppR3MagJ0umWXZHyjkHlzcLi9Jgnvq8/F9uD8G2/eXJmVSkLM +i3fDzn0U6vbODwn9TcL+A4KKehkUWi+k+Czbig5fpT56jRtifgzpGt8qp0PV +b4sJ/VYOqhm83PpAVARQ2uT5Nwoc5PFE3kvuOJ4/Pxef7XecQp+JRw156TLw +NmvvWTn9bLTqJr+F508ZcK7Y2XHk4S3k5zglRzvAAHuanHImkYYkpvVHpssY +wNBdMAL+JLSK29JimxQTJFdXS7Ni41EzbW+U8mkmaHUaFZtScahytCHTqYcJ +Zr3r68Z3R6OmL21cXqos+Nhl9svbKgIFygvvu3qZBb5v1SRmIkJQrV7iS/HP +LGhpinekmgIR+8bDWG9DNqibpyTuM/VHz4PjN3jmsqEsn9xyStAXpRy+I7Uv +gwZ7PFwW/AcpxJG1UjtkS8C1M8k8gVg/B4UL9/9ZSkLOp9sJ0fj+ORSNTHcn +IdjkII3rE4X2T6o8/9mGcVfvQmINhYjCVtcba+kQGxfZ/CCAQrO9O0IuXqDD +f096fUxICqmqvyWXDrAhn+4Z6rrYG0WcNakpWkfAhk2B4764X2aHNfy8NEnA +obGm1Sk4XvrgTgOuvSTU6vn9Kcf9NrbBda69lIQHXZse+LVRaN+Lw4XCsQRw +tUgsvz5LoQ/985vKVpLQ/YNPwgbzQYun95V2OAn5vgcexI1QaDI+jNv6Kxtk +2A2ntkt7IafkUleTpUJQtW+T3oAbhXheDb44ES4MNvEy2muKKDS+lu+YtRYN +eIqXPn6F420vDHPr/kKDakr1O/qA+1NklGXdfQL2f/vZooHjnV1EdGtsJiFk +3uRzGs7HQrxgfVIiCbrClwd6X1PIw6AxfHiOhG0Xo3PcblOopytXOMqcDr+b +U3en78H2/C9ipkroQJN8PcnXw0FdKKVZhiYCTw5rmr5R5aBYMqFE3FUEJBDi +8vWZQvoL4vFLb8jAbIWLVH9YNrp0stFl/zcZeKLaED3CuYUmUys3Hd7HgIir +6zrVXNJQsqSfcnMxAzKis5NT9yUhASdeBzVRJtRvzMrZ1B6PHnUTcTG+TPjU +mJTiJH8ZlSe+5+i3M6F5wWbnpcxo1MG7sL1yAwsccrbpMVIi0PipcouFaMy/ +uuqimschSCM8U2zRBxbkVpW83KQQhDI1O1ob9fC8TbWrW0j2R0Nr3R7I3GJD +7bMk5XETX3TbWvY+4xoNTDzNN3/D9RH9nbBfxZyAL8kdO+MoCgXYDNib8ZPw +/H3y5zzMB2mFtEP+ziTQVW6fSsT9f9wOXn1pJKHQbejxn3oK5UV8dJ9fRQeu +jkM9r85R6EZaXcvxUDowp5vvWizD7913pQmPutmgk6+dUbvDG921uPQudDkB +y195JZpOUmiEyRZWHiYgmBZacALHa5PoTeo3IqH3g+XNDzgfhpYfd0MRCd8n +DJbbvaTQmay0l+9CCBhx2f3mI+43PGtktQWYJDiKOJjXYz64ajutljhLgkCa +sEviewr9t9Umgo/Dhqv86YqWFl7Iak+P8ulmAnw/h7fPYfvVMbOqUUDCpPPz +/2anKdRkKiUWfZSALbIrKGuMdWrPmRbQSSD9funY4PzcJo5++vSdgDbj5PfF +GG+YX3FR4wYBnT/5JNXwe7z54nMFJ3kSslpkr73FuH+yIKhggQ2D3J4X5+o8 +EUcwXDOXTwhEj0uv/nAU6y9ReqjqrDDkGnN5rCzEelnzVL1alQYLf21s5/A+ +YJmUeaZ6ggan6I/CLuP+P9Vddli0gIDMlfHfuXD+Yissf8oqk7D9IidnAfM/ +pUPlwdV4EqRquu14cX8pV7Pgp30joWCVw2/vHArJq43fDzChQ2PKw4ipfRQq +vCGiJFJMB7qtzbRlPwe98V7eZLpUBB4b3sw21uKg9IqWbiFnEcjS7uS9d3oK +fT2m93PrdRmobFdQpDKzka59zozRjAxs8y6RPSiYiW5X3Ko4v4cBrWdev7WN +T0M2d4UHHhQyQAcOB+UGJaGAa4OuG0km2OfzqUVR8UhJjbpS5cWEU+9f22no +XkZbvLxF1VuZcPVCbqLBy2hkQcQ5D69jQf3dvd91qiOQzIrYnnUXWMCVrqvo +3B+C/LLkHy28Y0HPH8n0jgNBaCza1m1mGxtcEtoks2r80ZGz+77PpLGhdEhE +0d/bF+VZjgYGx9Eg8Mjg0Q2Y/2s+PjjKMCSg0X9VgCjmmwC395HTi0gw4fzn +dR/fb/HOsQhHBxJ2JOeHWGG+rmM02Uw+JYG3HF3KaaDQN++THNkVdFCPss2z +CaUQxcV13O4cHRKq+Nt3MvD7STWjN6aDDR83MXKqHb3RE3R31kOagPEe26hy +rKc/bkYSYa8JiCZvbT+A4zlsZtY27MZ8hKxDPngeOM79jnxylwS7kkqzlg7c +j2Mfj7SeIcA9+qZWNOb/lbYqXWVpEr7YJZp8wXz4Y3PXkOcMCWn29guxeH+M +vKLXNDjBBucwbeMCby90Ip1bq7WegJ7YJXYvsH1lvobtSW0SuFYodh/B/gY0 +1WVPOBJw8O26/ikc/8URCYtXNBJY49VF//R5Qe36jOY0ARaSgsv/9Ydt7yF1 +VQIBK/s33v2E+WepYr8hRpaEtjDnpyzs3x4l1YTOsUHU4OwJoV+eqFjjoLHn +IwJ2GXR0H8fnnx9st5VbQsJO7+Gf/+ZPfcfMouExAs4FTvyMwvjEuVj1YTYJ +gk161y9je02+XHm5dgJcx1INGPj8ntSEQZgYCcvV1mlpYWyUunU48RcBj3Ye +cPi3H5gk1mn1/mbD44ymizuiPFHJU/esbh4hSA3QG3LD+vObr3AaPiMMFy+L +m2bgfdxDNpP1RYUG2Wqv10Ri/Y0Iq4SXjNOgodGvfAvWX0CAsdPWOwREyYas +HMX6Hr63IJy6gYRK8XpjWYx1lOa+E1dJaB4+4Z6E9fd2nczO7FkSbkUpdvrk +UqjLhS/8qxEdjnSUHIizwvV2Uv1zu4gOhL1f75kBDnon6Ng4sUQENBi2RTw6 +HCQf6+R0wVEEhLd5PNoVNIUM5IcKX12TAV6z8ooLJdmIYZWo1vRFBkKyTCrv +LMtE3Luu/ZYxZ8D3QflHF+6kIa2T1kVrC/D7J79sR8OVJLRJaadHIY0J/G7K +Lxv/xCM3F9v4PZ5MmE7h87lvfBnNvVHPKW5hgkbSy46GD9EoUcxmzluRBbyl +5R2O7RFI7fuphMZIFqA9GXE7x0OQ2AN3gZMjLOC89HpWfSII8W26XRGpy4Zr +XZYVMV3+6K68oYRtKhuo1i17e0N9kcK+eoeSSzSgtDVN2vB+V3xwuw99F+aT +0cGtPfi9YWbx+JMwDwkfX6TQSvH9nek9n/zajgTv0L7gh1h/Haej01zqSdgH +J0/4P8PzyXWrUjWbDtaU65IbYRRKUmHD6yA6JFfOO2qzKCQxcm3+RzsbrPM5 +sWa+3mjXQ81f9pIE0GWutrtj/cXQR6ULeglQbzgiYIzjrX9a2625iwSlD9ft +yjD/+S1qW7TySejRvC50Bu9Dy3iNJmpPEXBGs3faGuuln7244dkyEo7cubiE +F//fMmFy+NRpEnavMkkUwHxp1dL6pP8J5/Rar8wt2Ast0k9C32oIqFHnU36E ++RypMeT1WYuEgEY935vYn1Nx0/qjdgQkvkweK8XxxSrte48K4/i9u1WCsX+J +ofVzjhwCHg8OyWf+m5dWHbeXXSFgwbTVtRbr72ZEwf0Vq0lILY1YrI3950zE +jHC+scH0z8fot0u9EBqZNU8qJeBobm+zBT5XWRw3XLWYBEtuA+4s7M/c/4KA +wHsClPqz+85hXNX1utKXRUL8jQShfGzffFd7vVkrAXs2Bi0VxOdzHptfSIqS +kJGmbmaI8eC27tGaHwSsLT959wHG8fDooO4vNhyqE5K6ku2J6gplx8Z48f6u +KlZViM89Gx7Sbd4QsGm6JsAV40jR1k4gSShfVSXwDy/EcXHoXwm4d2vJkn/2 +t+1+DFwVJEF7XKwvHuPNCgf+PvxIgCIlKP4PV3/PHjj2h4BpJX7+MowFp1ql +3f+woVDpVDt5zBP9D3K9P2Y= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1Hecz3UcwPETmWWPSjKPK/NOOqvIXklGaRCHQrnLCFEZlb3LrFRkhgql +oWRvWjSMIg1kV2bj+X70x/Ne3+/nc4/ffX/v7+dxJdMyWqdnSkhIqOlH9DLr +eZHHaE5VriIzV9jASzxOC24lC3+zkan04i6qUcAH79O3eI4uXM0/bGIa6bSk +qN/9SVcwltsoaG2/LuF5Et2f0E/oSnH3v+oqJpLk/rR+Rlb+ZTPTKW/vnGZQ +2vVx/ZjKrs/r3dzo+kh8L12pFfVPra7jtJyeimfTNZqsF7WGpmohPRBz06Va +Qf/QVH1By+rJmI1+qlX0gnajhOvf9AMquf5LJ3Gz6zO6lmzEy9oiM3iCMu5/ +19W0opj7n/U9xsezU9jaQV3GCB6hpLWj+iGTyR4fbW2rzqQ393CTtV/0fSbE +d6WItR/0bUbyKDnirFjfprPoQ+s4X1xn/Ud9h1F0J2ecK+vb9WX60oZaXG/9 +kL7LaHqQK86a9R36Cv1oS22uiXNlb6e+ypO043aujbNgb5fOpj/3cge5yUNe +8pGfAnHu4l3G3OK7xvPHM3EDReOcxJxjNnEG493FPCkVZyveCYnxvuOd+du7 +9TUGcB914izFzO19rq8zkPbUJSnmae8LfYOnuJ874zzE7Ox9qXMYxAPU45aY +k72vdC6DeZD6lI852fta3+RpHqIBFWJO9vboPJ6hAw2pGHOyt1fn8ywdaUSl +mJ+9b3QBQ3iYxlSOudr7VhcylE40oUrM2953uohhdKYpyfEe7H2vixlOGs1i +/tYP63LG0DNmbu2YfsSUmIH7s7qOFNeXEv7/H5ei/wFrN4hZ + "], 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]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3.5, 8}, {0., 0.9674940221461537}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VU0YB3CEJO451xru0iaiFEWWmEdFZVciSlkjlK0oUfaiUJEIEaGE +hGRJlmSJZAuRKFLknlCR6q13+ut+vp87Z5t55vfMCgfPPc48XFxcmtxcXP9+ +/QL3CnFxCUGFslLztCuFip+6Z3XzCEFqgN6Q21EKcQTDNXP5hED0uPTqD9hO +yaWuJkuFoGrfJr0BNwqZl4k/S5UQgoSV/s2NHhRaN90XpLFeCEQO9bnf8aLQ +O8eDX3xshEAiUq85+hSFjAyduz6UCkHuwMknhRcotGu/9RTPaWEwzLAlWfkU +8puvcBo+IwwXL4ubZmBnJ0oPVZ0VhlxjLo+VBRTieTX44kS4MNjEy2ivKaRQ +tfmh++NxwqD7/s/qdUUUUjF09HmeIww3/2s13lhKIYbOsR9XeoSBM1sxLfqY +Ql9WhfCu2EgDjdtnr4u3UshDNpP1RYUG2Wqv10RiT655ql6tSoOFvza2c9jj +a/mOWWvRgKdo6eNXbRR6uyHq1RV9GnydDpO93E6hdq0rOTy2NLDrm+yc7aRQ +/t5bu8aiaPDO9kClaz+FFPbVOxRfogGlrWnShn3HcjQwOI4GgUcGj254TaHb +1rIPGNdoYOJpvvkbdsrhu1L7Mmiwx8NlwX+QQtHuDyafldFg9Le+rctbCh0N +q7uUO0oDMR+a+ttRCo0Iq4QXj9OgodGvfMsYhSyTMs9UT9DgFP1R2GXs7QVh +bt1faFBNqX5HHyjE7NPb9fcXDUrbtjMTxynUqfB8kZUYASmGirtYE3g9Hmr+ +spckgC5ztd0d+wm6N+shTcB4j21UOfY9i0vvQpcTsPyVV6LpJIUizprUFK4j +YMOmwHHfzxTS6OoK4NcjYMe9jzIJHAoVHdzuQ99FgIXRwa092Gs+lhxlGBLQ +6L8qQJSikOjvhP0q5gR8Se7YGYfNkbVSO2RLwLUzyTyBX3C9FTWtP2pHQOLL +5LFS7AFNddkTjgQcfLuufwq7yVRKLPooAVtkV1DW0xS6dXpw5uFJAlwO1NyT +n6HQMl6jidpTBJzR7J22xo6NfTzSeoYA9+ibWtHYZ7LSXr4LIWDEZfebj9j7 +XhwuEI4lgKtFYvn1WQq1WXXcXnaFgAXTVtda7G3vIXVVAgEr+zfe+4S9YX7F +RY0bBHT+5JNU+0qhJSvGXJ1zCAixDrFrwA4IMHbaepeAKNmQlaPYU91lh0Xz +CchcGf+d6xuun8goy7oHBOz/9rNFAxuNzJonlRJwNLe32QK7SOOgsecjAnYZ +dHQfx746pbSDWU2ATrfskgzsRfpJ6FsNATXqfMqPsE+kc2u11hPQE7vE7gW2 +1Z4e5dPNBPh+Dm+fw26+p73erJWAPRuDlgp+p5AmX668XDsBrmOpBgxsRvlp +9qtuAgKW73mujR1DH5XO7yVAveGIgDH2HzcjibDXBESTt7YfwPZseEi3eUPA +pumaAFfsESZbWHmYgGBaaP4JbHP/CwIC7wlQ6s/uO4dd3zGzaHiMgHOBEz+j +sDcrHPj78CMBipSgeDx2dljDz0uTBBwaa1qdgi0xtH7OkUPA48Eh+UzsC2rX +ZzSncT1JCi6/g70Qx8WhfyXg/q0lSwqw3SaOfvr0nYA24+T3RdiD27pHa34Q +sLb85L0SbKPUrcOJvwh4tPOAw0Ps6u/ZA8f+EDCtxM9fhn09d7F7JhcJ7R4q +1/79b2bx+JMwDwkfX6TQSrEFuL2PnF5EggnnP68H2HUFsmNjvHi8qljVv+cH +2AzYm/GT8Px98ud/76eyOG64ajEJltwG3FnYn0u228otIWGn9/DPf9932+7H +wFVBErTHxfr+ff9B4YL9f5aSkPPpdkI0tlilfe9RYRJ6enerBGO/OCJh8YpG +Amu8uvDf/EaKtnYCSUL5qiqBf/OvU3vONJ9OAun3S8cGe85j8wtJURIy0tTN +DLHvS00YhImRsFxtnZYW9nLfPfo2kiS4+zOSJbH72Ysbni0j4cjdi0t4sa+0 +VekqS5PwxS7R5AuuH541stoCTBIcRRzM67Grul5X+rJIiL+RIJT3r/7OxaoP +s0kQbNK7fhn7Q//8prKVJHT/4JOwwb4Zkf9gxWoSUksjFmtjW6rYb4iRJaEt +zPkp6199Xnyu4CRPQlaL7LW3eL/k6aStEFEiofBcU6Ap9vD9BeHUDSRUitcb +y2KLrbD8KatMwvaLnJwFvB/PLiK6NTaTEDJv8jkN27w5ONxek4T31edie/D+ +jtQY8vqsRUJAo57vTezKPA3bk9okcK1Q7D6CvTpmVjUKSJh0fv7fLM6TH+ZO +H4v0SXgql9zxA+fN+qe13Zq7SFD6cN2uDNthM7O2YTceD1mHfLDbJHqT+o1I +6P1gefMDzrP0wZ0GXHtJqNXz+1OO80/fWbHA9DAJWu5z3XScl2d6zye/tiPB +O7Qv+CHO06KdYxGODiTsSM4LscKWVkg75O9MAl3l9qlEnL8cikamu5MQbHKQ +xvWJQgmnZn0ofxLOiWgcC8Z53zJhcvjUaRJ2rzJJFMD+Y3PPkOcMCWn29gux +uF+4ajutljhLgkCasEviewpp8fS+0g4nIc/3QEncCIXeX6xQj7lMwp+G+lyF +N7ielOa+E1dJaB4+4Z6E+1FKh0rJ1XgSpGq67XixLcTz1yclkqArfHmgF/ev +xps3V2alkhDz4t2wcx9evwdhQhV3SKhw2PheoYtC/Ba1LVp5uJ41rwudwf3S +ce535JN7JNgVV5q1dOD80fLjbigk4fuEwXK7lzivG1zn2ktJKOnaVOKH+69v +n/HIWC0Jn8VmDuk3UqjjdHSaSz0J++DkCf9n+PzBaLKZfEoCbzm6lNOA+7cd +vPrSSEKB29DjP/UU2j+p8vxnG56/rt6FxBoKbf1PspR8TYLGwJ1bzuUU4l31 +/vzWGRL+87J86n0H9/t1MjuzZ0m4FaXY6ZNLoXI1C37aNxLyVzn89s7B5weD +xvDhORK2XYzOcbtNoW7vvJDQ3yTsPyCoqJdBocxanzPNi+mgfeQH183rFIJD +izwtWHRoSu117gvH6+u6VamaTQdrynXJjTAKffM+yZFdQQf1KNs7NqH4vBDx +0X1+FR24Og71vDpHIaKg1fXGWjrExkU2lwTg9/sV7zCymQ5SbZrbhPF5KzB5 +taWHIR06swcKNlhTqMuFL/yrER2OdBQfiLOikLza+IMAEzo0pjyMmNpHoZ6u +XOEoczr8bk7dnb4H17eQ4rNsKzp8lfroNW6I739WefOwIx02tgXq/tSmkK6T +jsieQDo8savfu3E5hZJU2PA6iA7JlfOO2iwKUVxcx+3O0SGhir99J4NCN9Lq +Wo6H0oE53XzPYhmFZnt3hFy8QIf/nvT6mJA4/3YbTjck4PnYPH+g7i8H8W/Y +376lgA78bb8sbr7hoAEn1T+3C+lA2Pv1nhngoIIbIkoiRXSg29pMW/ZzkAX/ +i5ipYjrQJF9P8vVwUOaQrvGtcjpU/baY0G/lIJ1Lim2CDXTQGaqKsKjgIL+J +Py1DA3SQy+0xuRHPQeNZ2c/CBESA4Sln+BA46J2gY+PEEhHQYNgW8uhw0Bvv +5U2mS0XgseHNbGMtDupCKc0yNBF4cljT9I0qB9UMXm4tERUBlDZ5/o0CByWJ +BnaOskRgd/3Bg65iHGQYtmdou6oIzAdr6ed/mEJFDn+/LXIQgUWHadHDwVNI +PtbJ6YKjCAhv83i0K2gKpVe0dAs5i0CWdifv/dNTKJZMKBZ3FQEJhLh8faaQ +xxN5L7njIjD3c/HZfscpJCe957NBgAi4fBOpkdKfQjc7b7+7clUEdqjfEfUX +mEKXwKCd/RSP77Z/9SD8M3ryX+Gax0xRmIkJvOTkPYl4BnjXfjsnCk+DDDSa +WRNoI5eLo92IKKgkS9+dKfyISvlGGcaaYnBsJK8PdMaRgYJZ8KsUMbDbvKl8 +JnkMqSn1ObydE4N9i7c/pfhG0WZz0y+h1uJAXGz9Omr4DjGedJccqBSHPOFG +nlitYWQj6DNfKiYB6WmXHmivf4PyTnJ/uOsnAZKHf2cc/9uPzGrzzNldEnAl +6Q5NQrkXjVjYzTUrSsKGn9SE0s1uFCqwWI8WIwnWl3b+nRbsRAEpTSI9HyXB +VGJMtrz0BQo3Ph2tarAMRlTuPKEfb0Gndm/RbM1bBsMdxf1KJc9Q/Wri6Dte +KRg346QqptcjFrtfN/6IFLSNvJyvcqxBHT8qk5/VSUFMap9gbVYl8mDkrV0n +Iw3nZQpVZZPKkPThaEelQGkgdPM+b+sqRqyQcMaDXmmIeWk9rpp5H22u9zz3 +Ul0Gjkr7KWbI5KGM9yfsjyfIQF719rvr67ORgfxQwatrMsBrVl5xoTgbfT2m +93PrdRmobFdQpDKzkf6CePzSGzIwW+Ei1R+WjT4TjxrupMvA26y9Z+X0s5Ga +9oLcaJ4MuIf+3X2/7TZqvR5EWdXJgE6VgL3muyw0ZxR5RpeSgX6r2jfccpmI +YZWo1vRFBkKyTCrvLstEuvY5M0YzMrDNu1j2oGAmunSy0WX/Nxl4otoQPcK5 +hVbd5Lfw/CkDzhU7O448vIXMvkSuS+NngD6IOjvq30J5V84P/WAxYH7MASjP +DHSo9wIqMmXAsQ2r5Z/WpCHuXdd+y5gz4Pug/KMLd9PQ7YpbFef3MKD1zOu3 +tvFpaDK1ctPhfQyIuLquU80lDfk5TsnRDjDAniannEmkodhpU9LjCAP6DH3c +LB1TUbWg5Du5IAaYb3GQmRVPQQyUHZqexwBZhfk709lJSOukdeHafAYw8sp2 +NFxJQjb3hAdKChigA4eDcoOSULKkn3JzEQMyorOTU/clIYlp/ZHpMjxed8EI ++JMQeeuT9ranDLgoUK3g5HYd8S5atzA2yIDKy+Iu3dqJaKqx2FNBmAn7rTh/ +SSIBbVLa6VFAYwK/m/LLxj/xKODaoOtGkgn2eXxqUVQ8EnDidVATZUL9xqyc +Te3xaBW3pcU2KSZIrq6WZsXGIxutBXUbWSaUpWkk6ZLxqOU+4onWZsJ17nTD +SOZVlJPUljBxjAlH/4bmqdhcRm4utvF7PJkwncLn88D4MlJSo65UeTHh1PvX +dhq6l9GjbiIuxpcJnxqTUpzkL6Nm2t4o5dNM0Oo0KjKl4tBk+Oug0+FMcPE0 +Z5Wvi0NK3uNHlqQwYcC/9GxmWQwq282lsbaZCUm7A9aa/45Gc2/Uc4pamKCR +9LKj4UM02uLlLareyoSrF3ITDV5Go/LE9xz9diY0L9jsvJQZjSpHGzKdephg +1ru+bnx3NHoSFCWUMcKEQWV+q6mUKNT0QGREYoEJsxIrR4eMLqB+KdnzvAos +eJH+qvLacARKFLOZ81ZkAW9peYdjewSyIOKch9exoP7e3u861RGog3dhe+UG +FjjkbNNjpESgpi9tXF6qLPjYZfbL2yoClT07ETAILJgq1y0M6QpHCd4Nx4qt +WBA2YtU32xmGzFocLewiWGBlUeax+VsIUvt+KqExkgVoT0bczvEQJLMitmfd +BRZwpesqOveHoPFT5RYL0SzwrasurHkcggLlhfddvYz9Vk1iJiIE3Tlftq8h +hQWadz9/1ZEOQdz6S6zki1kQVJdsaGEQjIrrC62n37LA4rxfcE1MEBIrcRc4 +OcICzkuvZ9UngpBflvyjhXcs6Pkjmd5xIAhphGeKLfrAgtyq4pebFIJQrV7i +S/HPLGhpinekmgLRy+YgPa15FhgNyLiuWRyIptqNlCMJNjiFqXdsTghAawYn +BRjABt6thcLnP/gjvk23KyJ12XCty7IipssfjUXbus1sY4NLQptkVo0/ytTs +aG3UY8OFVLu6hWR/xL7xMNbbkA3q5imJ+0z90TLrYLEmSzbQM9OGqh/7oaV9 +4st9jrGhzofDtzjzJJrugi3NN/D1i4zv7kjwRffkDSVsU9lAtW7Z2xvqi46c +3fd9Jo0NpUMiiv7evmhorVuJzC021D5LUh438UXPg+M3eOayoSyP3HJK0Bdl +K43LSZSyQbFqdL19uA+yib64zOkFG9p+OS6fCfVGEiPX5n+0s8E6jxNr5uuN +OlUzemM62PBxEyOn2tEb7XpXmvComw06edoZtTu8kar6W3LpABvy6J6hrou9 +ETm+cUnxOBuMaR6ianFeqFVL65P+J3xmea1X5hbshSKv6DUNTrDBOUzbON/b +C/231SaCj8OGq/zpipYWXmgyPozb+isbZNgNp7ZLe6GciZgRzjc2mP75GP12 +qReyR0k1oXNsEDU4e0Lolyfqn8wPyl9gwyC358W5Ok8UD48O6v5iw6E6Iakr +2Z7IJLFOq/c3Gx5nNF3cEeWJBKdapd3/sKFA6VQ7ecwTPdPtXfj7F8/vUoG2 +72ae6H/zkD9m + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3.5, 8}, {0., 0.9674940221461537}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VU0YB3CEJO451xru0iaiFEWWmEdFZVciSlkjlK0oUfaiUJEIEaGE +hGRJlmSJZAuRKFLknlCR6q13+ut+vp87Z5t55vfMCgfPPc48XFxcmtxcXP9+ +/QL3CnFxCUGFslLztCuFip+6Z3XzCEFqgN6Q21EKcQTDNXP5hED0uPTqD9hO +yaWuJkuFoGrfJr0BNwqZl4k/S5UQgoSV/s2NHhRaN90XpLFeCEQO9bnf8aLQ +O8eDX3xshEAiUq85+hSFjAyduz6UCkHuwMknhRcotGu/9RTPaWEwzLAlWfkU +8puvcBo+IwwXL4ubZmBnJ0oPVZ0VhlxjLo+VBRTieTX44kS4MNjEy2ivKaRQ +tfmh++NxwqD7/s/qdUUUUjF09HmeIww3/2s13lhKIYbOsR9XeoSBM1sxLfqY +Ql9WhfCu2EgDjdtnr4u3UshDNpP1RYUG2Wqv10RiT655ql6tSoOFvza2c9jj +a/mOWWvRgKdo6eNXbRR6uyHq1RV9GnydDpO93E6hdq0rOTy2NLDrm+yc7aRQ +/t5bu8aiaPDO9kClaz+FFPbVOxRfogGlrWnShn3HcjQwOI4GgUcGj254TaHb +1rIPGNdoYOJpvvkbdsrhu1L7Mmiwx8NlwX+QQtHuDyafldFg9Le+rctbCh0N +q7uUO0oDMR+a+ttRCo0Iq4QXj9OgodGvfMsYhSyTMs9UT9DgFP1R2GXs7QVh +bt1faFBNqX5HHyjE7NPb9fcXDUrbtjMTxynUqfB8kZUYASmGirtYE3g9Hmr+ +spckgC5ztd0d+wm6N+shTcB4j21UOfY9i0vvQpcTsPyVV6LpJIUizprUFK4j +YMOmwHHfzxTS6OoK4NcjYMe9jzIJHAoVHdzuQ99FgIXRwa092Gs+lhxlGBLQ +6L8qQJSikOjvhP0q5gR8Se7YGYfNkbVSO2RLwLUzyTyBX3C9FTWtP2pHQOLL +5LFS7AFNddkTjgQcfLuufwq7yVRKLPooAVtkV1DW0xS6dXpw5uFJAlwO1NyT +n6HQMl6jidpTBJzR7J22xo6NfTzSeoYA9+ibWtHYZ7LSXr4LIWDEZfebj9j7 +XhwuEI4lgKtFYvn1WQq1WXXcXnaFgAXTVtda7G3vIXVVAgEr+zfe+4S9YX7F +RY0bBHT+5JNU+0qhJSvGXJ1zCAixDrFrwA4IMHbaepeAKNmQlaPYU91lh0Xz +CchcGf+d6xuun8goy7oHBOz/9rNFAxuNzJonlRJwNLe32QK7SOOgsecjAnYZ +dHQfx746pbSDWU2ATrfskgzsRfpJ6FsNATXqfMqPsE+kc2u11hPQE7vE7gW2 +1Z4e5dPNBPh+Dm+fw26+p73erJWAPRuDlgp+p5AmX668XDsBrmOpBgxsRvlp +9qtuAgKW73mujR1DH5XO7yVAveGIgDH2HzcjibDXBESTt7YfwPZseEi3eUPA +pumaAFfsESZbWHmYgGBaaP4JbHP/CwIC7wlQ6s/uO4dd3zGzaHiMgHOBEz+j +sDcrHPj78CMBipSgeDx2dljDz0uTBBwaa1qdgi0xtH7OkUPA48Eh+UzsC2rX +ZzSncT1JCi6/g70Qx8WhfyXg/q0lSwqw3SaOfvr0nYA24+T3RdiD27pHa34Q +sLb85L0SbKPUrcOJvwh4tPOAw0Ps6u/ZA8f+EDCtxM9fhn09d7F7JhcJ7R4q +1/79b2bx+JMwDwkfX6TQSrEFuL2PnF5EggnnP68H2HUFsmNjvHi8qljVv+cH +2AzYm/GT8Px98ud/76eyOG64ajEJltwG3FnYn0u228otIWGn9/DPf9932+7H +wFVBErTHxfr+ff9B4YL9f5aSkPPpdkI0tlilfe9RYRJ6enerBGO/OCJh8YpG +Amu8uvDf/EaKtnYCSUL5qiqBf/OvU3vONJ9OAun3S8cGe85j8wtJURIy0tTN +DLHvS00YhImRsFxtnZYW9nLfPfo2kiS4+zOSJbH72Ysbni0j4cjdi0t4sa+0 +VekqS5PwxS7R5AuuH541stoCTBIcRRzM67Grul5X+rJIiL+RIJT3r/7OxaoP +s0kQbNK7fhn7Q//8prKVJHT/4JOwwb4Zkf9gxWoSUksjFmtjW6rYb4iRJaEt +zPkp6199Xnyu4CRPQlaL7LW3eL/k6aStEFEiofBcU6Ap9vD9BeHUDSRUitcb +y2KLrbD8KatMwvaLnJwFvB/PLiK6NTaTEDJv8jkN27w5ONxek4T31edie/D+ +jtQY8vqsRUJAo57vTezKPA3bk9okcK1Q7D6CvTpmVjUKSJh0fv7fLM6TH+ZO +H4v0SXgql9zxA+fN+qe13Zq7SFD6cN2uDNthM7O2YTceD1mHfLDbJHqT+o1I +6P1gefMDzrP0wZ0GXHtJqNXz+1OO80/fWbHA9DAJWu5z3XScl2d6zye/tiPB +O7Qv+CHO06KdYxGODiTsSM4LscKWVkg75O9MAl3l9qlEnL8cikamu5MQbHKQ +xvWJQgmnZn0ofxLOiWgcC8Z53zJhcvjUaRJ2rzJJFMD+Y3PPkOcMCWn29gux +uF+4ajutljhLgkCasEviewpp8fS+0g4nIc/3QEncCIXeX6xQj7lMwp+G+lyF +N7ielOa+E1dJaB4+4Z6E+1FKh0rJ1XgSpGq67XixLcTz1yclkqArfHmgF/ev +xps3V2alkhDz4t2wcx9evwdhQhV3SKhw2PheoYtC/Ba1LVp5uJ41rwudwf3S +ce535JN7JNgVV5q1dOD80fLjbigk4fuEwXK7lzivG1zn2ktJKOnaVOKH+69v +n/HIWC0Jn8VmDuk3UqjjdHSaSz0J++DkCf9n+PzBaLKZfEoCbzm6lNOA+7cd +vPrSSEKB29DjP/UU2j+p8vxnG56/rt6FxBoKbf1PspR8TYLGwJ1bzuUU4l31 +/vzWGRL+87J86n0H9/t1MjuzZ0m4FaXY6ZNLoXI1C37aNxLyVzn89s7B5weD +xvDhORK2XYzOcbtNoW7vvJDQ3yTsPyCoqJdBocxanzPNi+mgfeQH183rFIJD +izwtWHRoSu117gvH6+u6VamaTQdrynXJjTAKffM+yZFdQQf1KNs7NqH4vBDx +0X1+FR24Og71vDpHIaKg1fXGWjrExkU2lwTg9/sV7zCymQ5SbZrbhPF5KzB5 +taWHIR06swcKNlhTqMuFL/yrER2OdBQfiLOikLza+IMAEzo0pjyMmNpHoZ6u +XOEoczr8bk7dnb4H17eQ4rNsKzp8lfroNW6I739WefOwIx02tgXq/tSmkK6T +jsieQDo8savfu3E5hZJU2PA6iA7JlfOO2iwKUVxcx+3O0SGhir99J4NCN9Lq +Wo6H0oE53XzPYhmFZnt3hFy8QIf/nvT6mJA4/3YbTjck4PnYPH+g7i8H8W/Y +376lgA78bb8sbr7hoAEn1T+3C+lA2Pv1nhngoIIbIkoiRXSg29pMW/ZzkAX/ +i5ipYjrQJF9P8vVwUOaQrvGtcjpU/baY0G/lIJ1Lim2CDXTQGaqKsKjgIL+J +Py1DA3SQy+0xuRHPQeNZ2c/CBESA4Sln+BA46J2gY+PEEhHQYNgW8uhw0Bvv +5U2mS0XgseHNbGMtDupCKc0yNBF4cljT9I0qB9UMXm4tERUBlDZ5/o0CByWJ +BnaOskRgd/3Bg65iHGQYtmdou6oIzAdr6ed/mEJFDn+/LXIQgUWHadHDwVNI +PtbJ6YKjCAhv83i0K2gKpVe0dAs5i0CWdifv/dNTKJZMKBZ3FQEJhLh8faaQ +xxN5L7njIjD3c/HZfscpJCe957NBgAi4fBOpkdKfQjc7b7+7clUEdqjfEfUX +mEKXwKCd/RSP77Z/9SD8M3ryX+Gax0xRmIkJvOTkPYl4BnjXfjsnCk+DDDSa +WRNoI5eLo92IKKgkS9+dKfyISvlGGcaaYnBsJK8PdMaRgYJZ8KsUMbDbvKl8 +JnkMqSn1ObydE4N9i7c/pfhG0WZz0y+h1uJAXGz9Omr4DjGedJccqBSHPOFG +nlitYWQj6DNfKiYB6WmXHmivf4PyTnJ/uOsnAZKHf2cc/9uPzGrzzNldEnAl +6Q5NQrkXjVjYzTUrSsKGn9SE0s1uFCqwWI8WIwnWl3b+nRbsRAEpTSI9HyXB +VGJMtrz0BQo3Ph2tarAMRlTuPKEfb0Gndm/RbM1bBsMdxf1KJc9Q/Wri6Dte +KRg346QqptcjFrtfN/6IFLSNvJyvcqxBHT8qk5/VSUFMap9gbVYl8mDkrV0n +Iw3nZQpVZZPKkPThaEelQGkgdPM+b+sqRqyQcMaDXmmIeWk9rpp5H22u9zz3 +Ul0Gjkr7KWbI5KGM9yfsjyfIQF719rvr67ORgfxQwatrMsBrVl5xoTgbfT2m +93PrdRmobFdQpDKzkf6CePzSGzIwW+Ei1R+WjT4TjxrupMvA26y9Z+X0s5Ga +9oLcaJ4MuIf+3X2/7TZqvR5EWdXJgE6VgL3muyw0ZxR5RpeSgX6r2jfccpmI +YZWo1vRFBkKyTCrvLstEuvY5M0YzMrDNu1j2oGAmunSy0WX/Nxl4otoQPcK5 +hVbd5Lfw/CkDzhU7O448vIXMvkSuS+NngD6IOjvq30J5V84P/WAxYH7MASjP +DHSo9wIqMmXAsQ2r5Z/WpCHuXdd+y5gz4Pug/KMLd9PQ7YpbFef3MKD1zOu3 +tvFpaDK1ctPhfQyIuLquU80lDfk5TsnRDjDAniannEmkodhpU9LjCAP6DH3c +LB1TUbWg5Du5IAaYb3GQmRVPQQyUHZqexwBZhfk709lJSOukdeHafAYw8sp2 +NFxJQjb3hAdKChigA4eDcoOSULKkn3JzEQMyorOTU/clIYlp/ZHpMjxed8EI ++JMQeeuT9ranDLgoUK3g5HYd8S5atzA2yIDKy+Iu3dqJaKqx2FNBmAn7rTh/ +SSIBbVLa6VFAYwK/m/LLxj/xKODaoOtGkgn2eXxqUVQ8EnDidVATZUL9xqyc +Te3xaBW3pcU2KSZIrq6WZsXGIxutBXUbWSaUpWkk6ZLxqOU+4onWZsJ17nTD +SOZVlJPUljBxjAlH/4bmqdhcRm4utvF7PJkwncLn88D4MlJSo65UeTHh1PvX +dhq6l9GjbiIuxpcJnxqTUpzkL6Nm2t4o5dNM0Oo0KjKl4tBk+Oug0+FMcPE0 +Z5Wvi0NK3uNHlqQwYcC/9GxmWQwq282lsbaZCUm7A9aa/45Gc2/Uc4pamKCR +9LKj4UM02uLlLareyoSrF3ITDV5Go/LE9xz9diY0L9jsvJQZjSpHGzKdephg +1ru+bnx3NHoSFCWUMcKEQWV+q6mUKNT0QGREYoEJsxIrR4eMLqB+KdnzvAos +eJH+qvLacARKFLOZ81ZkAW9peYdjewSyIOKch9exoP7e3u861RGog3dhe+UG +FjjkbNNjpESgpi9tXF6qLPjYZfbL2yoClT07ETAILJgq1y0M6QpHCd4Nx4qt +WBA2YtU32xmGzFocLewiWGBlUeax+VsIUvt+KqExkgVoT0bczvEQJLMitmfd +BRZwpesqOveHoPFT5RYL0SzwrasurHkcggLlhfddvYz9Vk1iJiIE3Tlftq8h +hQWadz9/1ZEOQdz6S6zki1kQVJdsaGEQjIrrC62n37LA4rxfcE1MEBIrcRc4 +OcICzkuvZ9UngpBflvyjhXcs6Pkjmd5xIAhphGeKLfrAgtyq4pebFIJQrV7i +S/HPLGhpinekmgLRy+YgPa15FhgNyLiuWRyIptqNlCMJNjiFqXdsTghAawYn +BRjABt6thcLnP/gjvk23KyJ12XCty7IipssfjUXbus1sY4NLQptkVo0/ytTs +aG3UY8OFVLu6hWR/xL7xMNbbkA3q5imJ+0z90TLrYLEmSzbQM9OGqh/7oaV9 +4st9jrGhzofDtzjzJJrugi3NN/D1i4zv7kjwRffkDSVsU9lAtW7Z2xvqi46c +3fd9Jo0NpUMiiv7evmhorVuJzC021D5LUh438UXPg+M3eOayoSyP3HJK0Bdl +K43LSZSyQbFqdL19uA+yib64zOkFG9p+OS6fCfVGEiPX5n+0s8E6jxNr5uuN +OlUzemM62PBxEyOn2tEb7XpXmvComw06edoZtTu8kar6W3LpABvy6J6hrou9 +ETm+cUnxOBuMaR6ianFeqFVL65P+J3xmea1X5hbshSKv6DUNTrDBOUzbON/b +C/231SaCj8OGq/zpipYWXmgyPozb+isbZNgNp7ZLe6GciZgRzjc2mP75GP12 +qReyR0k1oXNsEDU4e0Lolyfqn8wPyl9gwyC358W5Ok8UD48O6v5iw6E6Iakr +2Z7IJLFOq/c3Gx5nNF3cEeWJBKdapd3/sKFA6VQ7ecwTPdPtXfj7F8/vUoG2 +72ae6H/zkD9m + "]]}, "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:eJwVV3k4Vl8QRkjiu/ezhm9pE1GKIkucUVHZlYhS1ghlK0qUvShUJEJEloQk +yZIsyRLJFiJRpMh3Q0WqX/1Of93nfc7cmXnmvO/MmRUOnnucebi4uDS5ubj+ +ff0C9wpxcQlBhbJS87QrhYwMnbs+lApB7sDJJ0UXKLRrv/UUz2lhMMywJVkF +FPqyKoR3xUYaaNw+e128lUJHw+ou5Y7SQMyHpv52lEJLVoy5OucQEGIdYtfw +lUL5OmkrRJRIKDrXFGiK8fuLFeoxl0n401Cfq/CGQryr3p/fOkPCf16WT73z +KBSYvNrSw5AOndkDhRusKcS/YX/7lkI68Lf9srj5hoPGs7KfhQmIAMNTzvAh +cFCxw99vixxEYNFhWvRw8BS6BAbt7KciMNdt/+p++Gf05L+iNY+ZojATE3jJ +yXsS8Qzwrv12ThSeBhloNLMm0EYuF0e7EVFQSZa+M1P0EZXyjTKMNcXg2Eh+ +H+iMIwMFs+BXKWJgt3lT+UzyGFJT6nN4OycG+xZvf0rxjaLN5qZfQq3FgbjY ++nXU8B1iPOl+cKBSHPKFG3litYaRjaDPfKmYBKSnXbqvvf4Nyj/J/eGOnwRI +Hv6dcfxvPzKrzTdnd0nAlaQ8moRyLxqxsJtrVpSEDT+pCaWb3ShUYLEeLUYS +rC/t/Dst2IkCUppEej5KgqnEmGx56QsUbnw6WtVgGYyo5D2hH29Bp3Zv0WzN +XwbDHSX9Sg+eofrVxNF3vFIwbsZJVUyvRyx2v278ESloG3k5X+VYgzp+VCY/ +q5OCmNQ+wdqsSuTByF+7TkYazssUqcomlSHpw9GOSoHSQOjmf97WVYJYIeGM ++73SEPPSelw18x7aXO957qW6DByV9lPMkMlHGe9P2B9PkIH86u131tdnozmj +yDO6lAz0W9W+4ZbLRId6L6BiUwYc27Ba/mlNGmKg7ND0fAbIKsznTWcnoanG +Ek8FYSbst+L8JYkElJPUljBxjAlH/4bmq9hcRmW7uTTWNjMhaXfAWvPf0ahf +SvY8rwILXqS/qrw2HIHMWhwt7CJYYGVR5rH5WwgqqS+ynn7LAovzfsE1MUFo +zeCkAAPYwLu1SPj8B3803QVbmm+w4cIi4zs7EnzRM93ehb9/MV4q0PbdzBO9 +czz4xcdGCCQi9ZqjT1GIoXPsx5UeYeDMVkyLPqZQwd5bu8aiaPDO9kClaz+F +NLq6Avj1CNhx96NMAodC13MXu2dykdDuoXLt4XcK6TsrFpoeJkHLfa6b/plC +vn3GI2O1JHwWmzmk30ghOLTI04JFh6bUXue+cArpOumI7AmkwxO7+r0bl1PI +b+JPy9AAHeRye0xuxHOQYdieoe2qIjAfrKVf8GEK3ey8/e7KVRHYoZ4n6i8w +hVqvB1FWdTKgUyVgr/kuC+VfOT/0g8WA+TEHoDwzULWg5Du5IAaYb3GQmRVP +QbyL1i2MDTKg8rK4S7d2Imq5h3iitZlwnTvdMJJ5FSl5jx9ZksKEAf/Ss5ll +MajpvsiIxAITZiVWjg4ZXUAJ3g3HSqxYEDZi1TfbGYa49ZdYyZewIKgu2dDC +IBhNtRspRxJscApT79icEICW9okv9znGhjofDt/izJPIJvriMqcXbGj75bh8 +JtQbrZvuC9JYLwQih/rc87wopGLo6PM8Rxhu/tdqvLGUQu1aV3J4bGlg1zfZ +OdtJoU6F54usxAhIMVTcxZrA91V+mv2qm4CA5Xuea+P6/zB3+lisT8JTueSO +H19wf7ofJlSRR0KFw8b3Cl0Uyqz1OdO8mA7aR35w3bxOobdnlTcPO9JhY1ug +7k9tCulcUmwTbKCDzlBVhEUFByWJBnaOskRgd/3Bg65iHCQnveezQYAIuHwT +qZHSn0Jq2gtyo/ky4B76d/e9ttvI7EvkujR+BuiDqLOj/i0UO21KehxhQJ+h +j5ulYyoib33S3vaUARcFqhWc3K4jG60FdRtZJpSlaSTpkvFoMvx10OlwJrh4 +mrPK18WhJ0FRQhkjTBhU5reaSolCZc9OBAwCC6bKdYtCusJR3vmyfQ0pLNC8 +8/mrjnQIetkcpKc1zwKjARnXNYsD0TLrYLEmSzbQM9OGqh/7oWylcTmJUjYo +Vo2utw/3QdHu9yefldFg9Le+rctbCt06PTjz8CQBLgdq7srPUGi57x59G0kS +3P0ZyZK4vgmnZn0ofxLOiWgcCx6j0Nb/JEvJ1yRoDOTdci7H9fwV7zCymQ5S +bZrbhPF93t5tON2QgPm+ef5A3V8OIsc3LikZZ4MxzUNULc4LmZeJP0uVEIKE +lf7NjR4UqjY/dG88Thh03/9Zva4Y+9sQ9eqKPg2+TofJXm6nELNPb9ffXzQo +bdvOTByn0NUppR3MagJ0umWXZHyjkHlzcLi9Jgnvq8/F9uD8G2/eXJmVSkLM +i3fDzn0U6vbODwn9TcL+A4KKehkUWi+k+Czbig5fpT56jRtifgzpGt8qp0PV +b4sJ/VYOqhm83PpAVARQ2uT5Nwoc5PFE3kvuOJ4/Pxef7XecQp+JRw156TLw +NmvvWTn9bLTqJr+F508ZcK7Y2XHk4S3k5zglRzvAAHuanHImkYYkpvVHpssY +wNBdMAL+JLSK29JimxQTJFdXS7Ni41EzbW+U8mkmaHUaFZtScahytCHTqYcJ +Zr3r68Z3R6OmL21cXqos+Nhl9svbKgIFygvvu3qZBb5v1SRmIkJQrV7iS/HP +LGhpinekmgIR+8bDWG9DNqibpyTuM/VHz4PjN3jmsqEsn9xyStAXpRy+I7Uv +gwZ7PFwW/AcpxJG1UjtkS8C1M8k8gVg/B4UL9/9ZSkLOp9sJ0fj+ORSNTHcn +IdjkII3rE4X2T6o8/9mGcVfvQmINhYjCVtcba+kQGxfZ/CCAQrO9O0IuXqDD +f096fUxICqmqvyWXDrAhn+4Z6rrYG0WcNakpWkfAhk2B4764X2aHNfy8NEnA +obGm1Sk4XvrgTgOuvSTU6vn9Kcf9NrbBda69lIQHXZse+LVRaN+Lw4XCsQRw +tUgsvz5LoQ/985vKVpLQ/YNPwgbzQYun95V2OAn5vgcexI1QaDI+jNv6Kxtk +2A2ntkt7IafkUleTpUJQtW+T3oAbhXheDb44ES4MNvEy2muKKDS+lu+YtRYN +eIqXPn6F420vDHPr/kKDakr1O/qA+1NklGXdfQL2f/vZooHjnV1EdGtsJiFk +3uRzGs7HQrxgfVIiCbrClwd6X1PIw6AxfHiOhG0Xo3PcblOopytXOMqcDr+b +U3en78H2/C9ipkroQJN8PcnXw0FdKKVZhiYCTw5rmr5R5aBYMqFE3FUEJBDi +8vWZQvoL4vFLb8jAbIWLVH9YNrp0stFl/zcZeKLaED3CuYUmUys3Hd7HgIir +6zrVXNJQsqSfcnMxAzKis5NT9yUhASdeBzVRJtRvzMrZ1B6PHnUTcTG+TPjU +mJTiJH8ZlSe+5+i3M6F5wWbnpcxo1MG7sL1yAwsccrbpMVIi0PipcouFaMy/ +uuqimschSCM8U2zRBxbkVpW83KQQhDI1O1ob9fC8TbWrW0j2R0Nr3R7I3GJD +7bMk5XETX3TbWvY+4xoNTDzNN3/D9RH9nbBfxZyAL8kdO+MoCgXYDNib8ZPw +/H3y5zzMB2mFtEP+ziTQVW6fSsT9f9wOXn1pJKHQbejxn3oK5UV8dJ9fRQeu +jkM9r85R6EZaXcvxUDowp5vvWizD7913pQmPutmgk6+dUbvDG921uPQudDkB +y195JZpOUmiEyRZWHiYgmBZacALHa5PoTeo3IqH3g+XNDzgfhpYfd0MRCd8n +DJbbvaTQmay0l+9CCBhx2f3mI+43PGtktQWYJDiKOJjXYz64ajutljhLgkCa +sEviewr9t9Umgo/Dhqv86YqWFl7Iak+P8ulmAnw/h7fPYfvVMbOqUUDCpPPz +/2anKdRkKiUWfZSALbIrKGuMdWrPmRbQSSD9funY4PzcJo5++vSdgDbj5PfF +GG+YX3FR4wYBnT/5JNXwe7z54nMFJ3kSslpkr73FuH+yIKhggQ2D3J4X5+o8 +EUcwXDOXTwhEj0uv/nAU6y9ReqjqrDDkGnN5rCzEelnzVL1alQYLf21s5/A+ +YJmUeaZ6ggan6I/CLuP+P9Vddli0gIDMlfHfuXD+Yissf8oqk7D9IidnAfM/ +pUPlwdV4EqRquu14cX8pV7Pgp30joWCVw2/vHArJq43fDzChQ2PKw4ipfRQq +vCGiJFJMB7qtzbRlPwe98V7eZLpUBB4b3sw21uKg9IqWbiFnEcjS7uS9d3oK +fT2m93PrdRmobFdQpDKzka59zozRjAxs8y6RPSiYiW5X3Ko4v4cBrWdev7WN +T0M2d4UHHhQyQAcOB+UGJaGAa4OuG0km2OfzqUVR8UhJjbpS5cWEU+9f22no +XkZbvLxF1VuZcPVCbqLBy2hkQcQ5D69jQf3dvd91qiOQzIrYnnUXWMCVrqvo +3B+C/LLkHy28Y0HPH8n0jgNBaCza1m1mGxtcEtoks2r80ZGz+77PpLGhdEhE +0d/bF+VZjgYGx9Eg8Mjg0Q2Y/2s+PjjKMCSg0X9VgCjmmwC395HTi0gw4fzn +dR/fb/HOsQhHBxJ2JOeHWGG+rmM02Uw+JYG3HF3KaaDQN++THNkVdFCPss2z +CaUQxcV13O4cHRKq+Nt3MvD7STWjN6aDDR83MXKqHb3RE3R31kOagPEe26hy +rKc/bkYSYa8JiCZvbT+A4zlsZtY27MZ8hKxDPngeOM79jnxylwS7kkqzlg7c +j2Mfj7SeIcA9+qZWNOb/lbYqXWVpEr7YJZp8wXz4Y3PXkOcMCWn29guxeH+M +vKLXNDjBBucwbeMCby90Ip1bq7WegJ7YJXYvsH1lvobtSW0SuFYodh/B/gY0 +1WVPOBJw8O26/ikc/8URCYtXNBJY49VF//R5Qe36jOY0ARaSgsv/9Ydt7yF1 +VQIBK/s33v2E+WepYr8hRpaEtjDnpyzs3x4l1YTOsUHU4OwJoV+eqFjjoLHn +IwJ2GXR0H8fnnx9st5VbQsJO7+Gf/+ZPfcfMouExAs4FTvyMwvjEuVj1YTYJ +gk161y9je02+XHm5dgJcx1INGPj8ntSEQZgYCcvV1mlpYWyUunU48RcBj3Ye +cPi3H5gk1mn1/mbD44ymizuiPFHJU/esbh4hSA3QG3LD+vObr3AaPiMMFy+L +m2bgfdxDNpP1RYUG2Wqv10Ri/Y0Iq4SXjNOgodGvfAvWX0CAsdPWOwREyYas +HMX6Hr63IJy6gYRK8XpjWYx1lOa+E1dJaB4+4Z6E9fd2nczO7FkSbkUpdvrk +UqjLhS/8qxEdjnSUHIizwvV2Uv1zu4gOhL1f75kBDnon6Ng4sUQENBi2RTw6 +HCQf6+R0wVEEhLd5PNoVNIUM5IcKX12TAV6z8ooLJdmIYZWo1vRFBkKyTCrv +LMtE3Luu/ZYxZ8D3QflHF+6kIa2T1kVrC/D7J79sR8OVJLRJaadHIY0J/G7K +Lxv/xCM3F9v4PZ5MmE7h87lvfBnNvVHPKW5hgkbSy46GD9EoUcxmzluRBbyl +5R2O7RFI7fuphMZIFqA9GXE7x0OQ2AN3gZMjLOC89HpWfSII8W26XRGpy4Zr +XZYVMV3+6K68oYRtKhuo1i17e0N9kcK+eoeSSzSgtDVN2vB+V3xwuw99F+aT +0cGtPfi9YWbx+JMwDwkfX6TQSvH9nek9n/zajgTv0L7gh1h/Haej01zqSdgH +J0/4P8PzyXWrUjWbDtaU65IbYRRKUmHD6yA6JFfOO2qzKCQxcm3+RzsbrPM5 +sWa+3mjXQ81f9pIE0GWutrtj/cXQR6ULeglQbzgiYIzjrX9a2625iwSlD9ft +yjD/+S1qW7TySejRvC50Bu9Dy3iNJmpPEXBGs3faGuuln7244dkyEo7cubiE +F//fMmFy+NRpEnavMkkUwHxp1dL6pP8J5/Rar8wt2Ast0k9C32oIqFHnU36E ++RypMeT1WYuEgEY935vYn1Nx0/qjdgQkvkweK8XxxSrte48K4/i9u1WCsX+J +ofVzjhwCHg8OyWf+m5dWHbeXXSFgwbTVtRbr72ZEwf0Vq0lILY1YrI3950zE +jHC+scH0z8fot0u9EBqZNU8qJeBobm+zBT5XWRw3XLWYBEtuA+4s7M/c/4KA +wHsClPqz+85hXNX1utKXRUL8jQShfGzffFd7vVkrAXs2Bi0VxOdzHptfSIqS +kJGmbmaI8eC27tGaHwSsLT959wHG8fDooO4vNhyqE5K6ku2J6gplx8Z48f6u +KlZViM89Gx7Sbd4QsGm6JsAV40jR1k4gSShfVSXwDy/EcXHoXwm4d2vJkn/2 +t+1+DFwVJEF7XKwvHuPNCgf+PvxIgCIlKP4PV3/PHjj2h4BpJX7+MowFp1ql +3f+woVDpVDt5zBP9D3K9P2Y= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1Hecz3UcwPETmWWPSjKPK/NOOqvIXklGaRCHQrnLCFEZlb3LrFRkhgql +oWRvWjSMIg1kV2bj+X70x/Ne3+/nc4/ffX/v7+dxJdMyWqdnSkhIqOlH9DLr +eZHHaE5VriIzV9jASzxOC24lC3+zkan04i6qUcAH79O3eI4uXM0/bGIa6bSk +qN/9SVcwltsoaG2/LuF5Et2f0E/oSnH3v+oqJpLk/rR+Rlb+ZTPTKW/vnGZQ +2vVx/ZjKrs/r3dzo+kh8L12pFfVPra7jtJyeimfTNZqsF7WGpmohPRBz06Va +Qf/QVH1By+rJmI1+qlX0gnajhOvf9AMquf5LJ3Gz6zO6lmzEy9oiM3iCMu5/ +19W0opj7n/U9xsezU9jaQV3GCB6hpLWj+iGTyR4fbW2rzqQ393CTtV/0fSbE +d6WItR/0bUbyKDnirFjfprPoQ+s4X1xn/Ud9h1F0J2ecK+vb9WX60oZaXG/9 +kL7LaHqQK86a9R36Cv1oS22uiXNlb6e+ypO043aujbNgb5fOpj/3cge5yUNe +8pGfAnHu4l3G3OK7xvPHM3EDReOcxJxjNnEG493FPCkVZyveCYnxvuOd+du7 +9TUGcB914izFzO19rq8zkPbUJSnmae8LfYOnuJ874zzE7Ox9qXMYxAPU45aY +k72vdC6DeZD6lI852fta3+RpHqIBFWJO9vboPJ6hAw2pGHOyt1fn8ywdaUSl +mJ+9b3QBQ3iYxlSOudr7VhcylE40oUrM2953uohhdKYpyfEe7H2vixlOGs1i +/tYP63LG0DNmbu2YfsSUmIH7s7qOFNeXEv7/H5ei/wFrN4hZ + "], 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]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3.5, 8}, {0., 0.9674940221461537}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VU0YB3CEJO451xru0iaiFEWWmEdFZVciSlkjlK0oUfaiUJEIEaGE +hGRJlmSJZAuRKFLknlCR6q13+ut+vp87Z5t55vfMCgfPPc48XFxcmtxcXP9+ +/QL3CnFxCUGFslLztCuFip+6Z3XzCEFqgN6Q21EKcQTDNXP5hED0uPTqD9hO +yaWuJkuFoGrfJr0BNwqZl4k/S5UQgoSV/s2NHhRaN90XpLFeCEQO9bnf8aLQ +O8eDX3xshEAiUq85+hSFjAyduz6UCkHuwMknhRcotGu/9RTPaWEwzLAlWfkU +8puvcBo+IwwXL4ubZmBnJ0oPVZ0VhlxjLo+VBRTieTX44kS4MNjEy2ivKaRQ +tfmh++NxwqD7/s/qdUUUUjF09HmeIww3/2s13lhKIYbOsR9XeoSBM1sxLfqY +Ql9WhfCu2EgDjdtnr4u3UshDNpP1RYUG2Wqv10RiT655ql6tSoOFvza2c9jj +a/mOWWvRgKdo6eNXbRR6uyHq1RV9GnydDpO93E6hdq0rOTy2NLDrm+yc7aRQ +/t5bu8aiaPDO9kClaz+FFPbVOxRfogGlrWnShn3HcjQwOI4GgUcGj254TaHb +1rIPGNdoYOJpvvkbdsrhu1L7Mmiwx8NlwX+QQtHuDyafldFg9Le+rctbCh0N +q7uUO0oDMR+a+ttRCo0Iq4QXj9OgodGvfMsYhSyTMs9UT9DgFP1R2GXs7QVh +bt1faFBNqX5HHyjE7NPb9fcXDUrbtjMTxynUqfB8kZUYASmGirtYE3g9Hmr+ +spckgC5ztd0d+wm6N+shTcB4j21UOfY9i0vvQpcTsPyVV6LpJIUizprUFK4j +YMOmwHHfzxTS6OoK4NcjYMe9jzIJHAoVHdzuQ99FgIXRwa092Gs+lhxlGBLQ +6L8qQJSikOjvhP0q5gR8Se7YGYfNkbVSO2RLwLUzyTyBX3C9FTWtP2pHQOLL +5LFS7AFNddkTjgQcfLuufwq7yVRKLPooAVtkV1DW0xS6dXpw5uFJAlwO1NyT +n6HQMl6jidpTBJzR7J22xo6NfTzSeoYA9+ibWtHYZ7LSXr4LIWDEZfebj9j7 +XhwuEI4lgKtFYvn1WQq1WXXcXnaFgAXTVtda7G3vIXVVAgEr+zfe+4S9YX7F +RY0bBHT+5JNU+0qhJSvGXJ1zCAixDrFrwA4IMHbaepeAKNmQlaPYU91lh0Xz +CchcGf+d6xuun8goy7oHBOz/9rNFAxuNzJonlRJwNLe32QK7SOOgsecjAnYZ +dHQfx746pbSDWU2ATrfskgzsRfpJ6FsNATXqfMqPsE+kc2u11hPQE7vE7gW2 +1Z4e5dPNBPh+Dm+fw26+p73erJWAPRuDlgp+p5AmX668XDsBrmOpBgxsRvlp +9qtuAgKW73mujR1DH5XO7yVAveGIgDH2HzcjibDXBESTt7YfwPZseEi3eUPA +pumaAFfsESZbWHmYgGBaaP4JbHP/CwIC7wlQ6s/uO4dd3zGzaHiMgHOBEz+j +sDcrHPj78CMBipSgeDx2dljDz0uTBBwaa1qdgi0xtH7OkUPA48Eh+UzsC2rX +ZzSncT1JCi6/g70Qx8WhfyXg/q0lSwqw3SaOfvr0nYA24+T3RdiD27pHa34Q +sLb85L0SbKPUrcOJvwh4tPOAw0Ps6u/ZA8f+EDCtxM9fhn09d7F7JhcJ7R4q +1/79b2bx+JMwDwkfX6TQSrEFuL2PnF5EggnnP68H2HUFsmNjvHi8qljVv+cH +2AzYm/GT8Px98ud/76eyOG64ajEJltwG3FnYn0u228otIWGn9/DPf9932+7H +wFVBErTHxfr+ff9B4YL9f5aSkPPpdkI0tlilfe9RYRJ6enerBGO/OCJh8YpG +Amu8uvDf/EaKtnYCSUL5qiqBf/OvU3vONJ9OAun3S8cGe85j8wtJURIy0tTN +DLHvS00YhImRsFxtnZYW9nLfPfo2kiS4+zOSJbH72Ysbni0j4cjdi0t4sa+0 +VekqS5PwxS7R5AuuH541stoCTBIcRRzM67Grul5X+rJIiL+RIJT3r/7OxaoP +s0kQbNK7fhn7Q//8prKVJHT/4JOwwb4Zkf9gxWoSUksjFmtjW6rYb4iRJaEt +zPkp6199Xnyu4CRPQlaL7LW3eL/k6aStEFEiofBcU6Ap9vD9BeHUDSRUitcb +y2KLrbD8KatMwvaLnJwFvB/PLiK6NTaTEDJv8jkN27w5ONxek4T31edie/D+ +jtQY8vqsRUJAo57vTezKPA3bk9okcK1Q7D6CvTpmVjUKSJh0fv7fLM6TH+ZO +H4v0SXgql9zxA+fN+qe13Zq7SFD6cN2uDNthM7O2YTceD1mHfLDbJHqT+o1I +6P1gefMDzrP0wZ0GXHtJqNXz+1OO80/fWbHA9DAJWu5z3XScl2d6zye/tiPB +O7Qv+CHO06KdYxGODiTsSM4LscKWVkg75O9MAl3l9qlEnL8cikamu5MQbHKQ +xvWJQgmnZn0ofxLOiWgcC8Z53zJhcvjUaRJ2rzJJFMD+Y3PPkOcMCWn29gux +uF+4ajutljhLgkCasEviewpp8fS+0g4nIc/3QEncCIXeX6xQj7lMwp+G+lyF +N7ielOa+E1dJaB4+4Z6E+1FKh0rJ1XgSpGq67XixLcTz1yclkqArfHmgF/ev +xps3V2alkhDz4t2wcx9evwdhQhV3SKhw2PheoYtC/Ba1LVp5uJ41rwudwf3S +ce535JN7JNgVV5q1dOD80fLjbigk4fuEwXK7lzivG1zn2ktJKOnaVOKH+69v +n/HIWC0Jn8VmDuk3UqjjdHSaSz0J++DkCf9n+PzBaLKZfEoCbzm6lNOA+7cd +vPrSSEKB29DjP/UU2j+p8vxnG56/rt6FxBoKbf1PspR8TYLGwJ1bzuUU4l31 +/vzWGRL+87J86n0H9/t1MjuzZ0m4FaXY6ZNLoXI1C37aNxLyVzn89s7B5weD +xvDhORK2XYzOcbtNoW7vvJDQ3yTsPyCoqJdBocxanzPNi+mgfeQH183rFIJD +izwtWHRoSu117gvH6+u6VamaTQdrynXJjTAKffM+yZFdQQf1KNs7NqH4vBDx +0X1+FR24Og71vDpHIaKg1fXGWjrExkU2lwTg9/sV7zCymQ5SbZrbhPF5KzB5 +taWHIR06swcKNlhTqMuFL/yrER2OdBQfiLOikLza+IMAEzo0pjyMmNpHoZ6u +XOEoczr8bk7dnb4H17eQ4rNsKzp8lfroNW6I739WefOwIx02tgXq/tSmkK6T +jsieQDo8savfu3E5hZJU2PA6iA7JlfOO2iwKUVxcx+3O0SGhir99J4NCN9Lq +Wo6H0oE53XzPYhmFZnt3hFy8QIf/nvT6mJA4/3YbTjck4PnYPH+g7i8H8W/Y +376lgA78bb8sbr7hoAEn1T+3C+lA2Pv1nhngoIIbIkoiRXSg29pMW/ZzkAX/ +i5ipYjrQJF9P8vVwUOaQrvGtcjpU/baY0G/lIJ1Lim2CDXTQGaqKsKjgIL+J +Py1DA3SQy+0xuRHPQeNZ2c/CBESA4Sln+BA46J2gY+PEEhHQYNgW8uhw0Bvv +5U2mS0XgseHNbGMtDupCKc0yNBF4cljT9I0qB9UMXm4tERUBlDZ5/o0CByWJ +BnaOskRgd/3Bg65iHGQYtmdou6oIzAdr6ed/mEJFDn+/LXIQgUWHadHDwVNI +PtbJ6YKjCAhv83i0K2gKpVe0dAs5i0CWdifv/dNTKJZMKBZ3FQEJhLh8faaQ +xxN5L7njIjD3c/HZfscpJCe957NBgAi4fBOpkdKfQjc7b7+7clUEdqjfEfUX +mEKXwKCd/RSP77Z/9SD8M3ryX+Gax0xRmIkJvOTkPYl4BnjXfjsnCk+DDDSa +WRNoI5eLo92IKKgkS9+dKfyISvlGGcaaYnBsJK8PdMaRgYJZ8KsUMbDbvKl8 +JnkMqSn1ObydE4N9i7c/pfhG0WZz0y+h1uJAXGz9Omr4DjGedJccqBSHPOFG +nlitYWQj6DNfKiYB6WmXHmivf4PyTnJ/uOsnAZKHf2cc/9uPzGrzzNldEnAl +6Q5NQrkXjVjYzTUrSsKGn9SE0s1uFCqwWI8WIwnWl3b+nRbsRAEpTSI9HyXB +VGJMtrz0BQo3Ph2tarAMRlTuPKEfb0Gndm/RbM1bBsMdxf1KJc9Q/Wri6Dte +KRg346QqptcjFrtfN/6IFLSNvJyvcqxBHT8qk5/VSUFMap9gbVYl8mDkrV0n +Iw3nZQpVZZPKkPThaEelQGkgdPM+b+sqRqyQcMaDXmmIeWk9rpp5H22u9zz3 +Ul0Gjkr7KWbI5KGM9yfsjyfIQF719rvr67ORgfxQwatrMsBrVl5xoTgbfT2m +93PrdRmobFdQpDKzkf6CePzSGzIwW+Ei1R+WjT4TjxrupMvA26y9Z+X0s5Ga +9oLcaJ4MuIf+3X2/7TZqvR5EWdXJgE6VgL3muyw0ZxR5RpeSgX6r2jfccpmI +YZWo1vRFBkKyTCrvLstEuvY5M0YzMrDNu1j2oGAmunSy0WX/Nxl4otoQPcK5 +hVbd5Lfw/CkDzhU7O448vIXMvkSuS+NngD6IOjvq30J5V84P/WAxYH7MASjP +DHSo9wIqMmXAsQ2r5Z/WpCHuXdd+y5gz4Pug/KMLd9PQ7YpbFef3MKD1zOu3 +tvFpaDK1ctPhfQyIuLquU80lDfk5TsnRDjDAniannEmkodhpU9LjCAP6DH3c +LB1TUbWg5Du5IAaYb3GQmRVPQQyUHZqexwBZhfk709lJSOukdeHafAYw8sp2 +NFxJQjb3hAdKChigA4eDcoOSULKkn3JzEQMyorOTU/clIYlp/ZHpMjxed8EI ++JMQeeuT9ranDLgoUK3g5HYd8S5atzA2yIDKy+Iu3dqJaKqx2FNBmAn7rTh/ +SSIBbVLa6VFAYwK/m/LLxj/xKODaoOtGkgn2eXxqUVQ8EnDidVATZUL9xqyc +Te3xaBW3pcU2KSZIrq6WZsXGIxutBXUbWSaUpWkk6ZLxqOU+4onWZsJ17nTD +SOZVlJPUljBxjAlH/4bmqdhcRm4utvF7PJkwncLn88D4MlJSo65UeTHh1PvX +dhq6l9GjbiIuxpcJnxqTUpzkL6Nm2t4o5dNM0Oo0KjKl4tBk+Oug0+FMcPE0 +Z5Wvi0NK3uNHlqQwYcC/9GxmWQwq282lsbaZCUm7A9aa/45Gc2/Uc4pamKCR +9LKj4UM02uLlLareyoSrF3ITDV5Go/LE9xz9diY0L9jsvJQZjSpHGzKdephg +1ru+bnx3NHoSFCWUMcKEQWV+q6mUKNT0QGREYoEJsxIrR4eMLqB+KdnzvAos +eJH+qvLacARKFLOZ81ZkAW9peYdjewSyIOKch9exoP7e3u861RGog3dhe+UG +FjjkbNNjpESgpi9tXF6qLPjYZfbL2yoClT07ETAILJgq1y0M6QpHCd4Nx4qt +WBA2YtU32xmGzFocLewiWGBlUeax+VsIUvt+KqExkgVoT0bczvEQJLMitmfd +BRZwpesqOveHoPFT5RYL0SzwrasurHkcggLlhfddvYz9Vk1iJiIE3Tlftq8h +hQWadz9/1ZEOQdz6S6zki1kQVJdsaGEQjIrrC62n37LA4rxfcE1MEBIrcRc4 +OcICzkuvZ9UngpBflvyjhXcs6Pkjmd5xIAhphGeKLfrAgtyq4pebFIJQrV7i +S/HPLGhpinekmgLRy+YgPa15FhgNyLiuWRyIptqNlCMJNjiFqXdsTghAawYn +BRjABt6thcLnP/gjvk23KyJ12XCty7IipssfjUXbus1sY4NLQptkVo0/ytTs +aG3UY8OFVLu6hWR/xL7xMNbbkA3q5imJ+0z90TLrYLEmSzbQM9OGqh/7oaV9 +4st9jrGhzofDtzjzJJrugi3NN/D1i4zv7kjwRffkDSVsU9lAtW7Z2xvqi46c +3fd9Jo0NpUMiiv7evmhorVuJzC021D5LUh438UXPg+M3eOayoSyP3HJK0Bdl +K43LSZSyQbFqdL19uA+yib64zOkFG9p+OS6fCfVGEiPX5n+0s8E6jxNr5uuN +OlUzemM62PBxEyOn2tEb7XpXmvComw06edoZtTu8kar6W3LpABvy6J6hrou9 +ETm+cUnxOBuMaR6ianFeqFVL65P+J3xmea1X5hbshSKv6DUNTrDBOUzbON/b +C/231SaCj8OGq/zpipYWXmgyPozb+isbZNgNp7ZLe6GciZgRzjc2mP75GP12 +qReyR0k1oXNsEDU4e0Lolyfqn8wPyl9gwyC358W5Ok8UD48O6v5iw6E6Iakr +2Z7IJLFOq/c3Gx5nNF3cEeWJBKdapd3/sKFA6VQ7ecwTPdPtXfj7F8/vUoG2 +72ae6H/zkD9m + "]]}, "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.500000000000008, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{3.5, 8}, {0., 0.9776920067134719}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9921732978537045`*^9, 3.992173302834656*^9}}, + CellLabel-> + "Out[211]=",ExpressionUUID->"4485fa2e-2a24-6e40-9a50-c4f11989a3cb"] +}, Open ]] +}, +WindowSize->{1440, 747.75}, +WindowMargins->{{-6, Automatic}, {Automatic, -6}}, +PrintingCopies->1, +PrintingPageRange->{Automatic, Automatic}, +PrintingOptions->{"Magnification"->1., +"PaperOrientation"->"Portrait", +"PaperSize"->{595.2755905511812, 841.8897637795276}}, +CellContext->Notebook, +Magnification:>0.9 Inherited, +FrontEndVersion->"14.3 for Microsoft Windows (64-bit) (July 8, 2025)", +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, 73, "Input",ExpressionUUID->"ffae8b70-aa14-974a-9de2-11aa9ba7fa35"], +Cell[1731, 58, 1488, 46, 89, "Output",ExpressionUUID->"ad4fdcf9-53d2-f145-9cfe-6a652f102b3d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3256, 109, 720, 20, 56, "Input",ExpressionUUID->"583e80ed-08b1-3540-acb6-5c5ddc81ef63"], +Cell[3979, 131, 887, 25, 65, "Output",ExpressionUUID->"9300781f-9afb-9448-b298-fd876fd535b6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4903, 161, 1465, 41, 51, "Input",ExpressionUUID->"0d592b07-0bde-dd44-8769-c843b2d15343"], +Cell[6371, 204, 2575, 74, 136, "Output",ExpressionUUID->"c09add3f-60ab-e54c-a75f-a08ccac9cb80"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8983, 283, 1680, 48, 51, "Input",ExpressionUUID->"2ab4cb2f-3eb0-8f4d-b0e5-c0b0154d2f35"], +Cell[10666, 333, 2780, 81, 136, "Output",ExpressionUUID->"59f7de11-d07a-fa47-82c0-2282fd4b0e40"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13483, 419, 1843, 53, 58, "Input",ExpressionUUID->"80075296-619a-5348-a91f-42a62b35265a"], +Cell[15329, 474, 3714, 108, 92, "Output",ExpressionUUID->"ec2a8a57-2cf3-d345-a77d-af4d96546b80"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19080, 587, 2080, 59, 59, "Input",ExpressionUUID->"7e5ea904-38c2-8f45-b173-9fdd0d01cd3b"], +Cell[21163, 648, 4781, 137, 92, "Output",ExpressionUUID->"510ec29e-dcd9-7048-ac5e-512da0cf016f"] +}, Open ]], +Cell[25959, 788, 153, 3, 25, "Input",ExpressionUUID->"76dcb41c-d560-6240-8a0d-5f5c4dea74f7"], +Cell[CellGroupData[{ +Cell[26137, 795, 350, 5, 25, "Input",ExpressionUUID->"f25944e3-b412-7146-ac6d-f008d8c60ab5"], +Cell[26490, 802, 303, 5, 28, "Output",ExpressionUUID->"f3ce5b6f-986e-b845-8e60-92593269ecec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26830, 812, 382, 6, 25, "Input",ExpressionUUID->"24bf6fdb-f0a0-774b-a5d1-1f910c97a298"], +Cell[27215, 820, 305, 5, 28, "Output",ExpressionUUID->"3017a89a-dccd-c142-8c57-f113cc6a629d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27557, 830, 175, 3, 25, "Input",ExpressionUUID->"f86d7ec2-4b9e-cb4f-ac44-ab1d7c6b8c93"], +Cell[27735, 835, 274, 4, 28, "Output",ExpressionUUID->"df7fb28c-fd1b-5244-a619-8363912e0051"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28046, 844, 258, 7, 39, "Input",ExpressionUUID->"18b7ff08-61ef-0a43-a3b6-f39456c5d3bf"], +Cell[28307, 853, 279, 4, 28, "Output",ExpressionUUID->"e8b1de41-9edb-1b4d-adeb-2dc63058bc1d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28623, 862, 132, 2, 25, "Input",ExpressionUUID->"81606684-c7bc-8847-8110-4e7d8dadb4e3"], +Cell[28758, 866, 277, 4, 28, "Output",ExpressionUUID->"83f02113-acc1-bc47-8d6f-20079637dfe7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29072, 875, 277, 6, 25, "Input",ExpressionUUID->"f761fcb8-28f7-6340-a8c9-04643afe677c"], +Cell[29352, 883, 291, 4, 28, "Output",ExpressionUUID->"953a0163-33ee-0f43-8541-ed6074ba61b9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29680, 892, 258, 7, 25, "Input",ExpressionUUID->"eb02623b-c429-f44e-955f-4ce148f45177"], +Cell[29941, 901, 288, 4, 28, "Output",ExpressionUUID->"81de82b0-d3e3-6042-99ad-2c0e926e017b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[30266, 910, 375, 6, 25, "Input",ExpressionUUID->"5a7643d0-24aa-4445-a07d-8c03ae610a22"], +Cell[30644, 918, 155, 2, 28, "Output",ExpressionUUID->"206fcf5a-1228-cf44-bb11-3fbcf5f0b882"] +}, Open ]], +Cell[CellGroupData[{ +Cell[30836, 925, 377, 6, 25, "Input",ExpressionUUID->"0d6c01d9-da94-5e40-a1b9-b6cc52ad8d72"], +Cell[31216, 933, 155, 2, 28, "Output",ExpressionUUID->"539f4b99-f4cd-e249-aef1-ae826fce11c2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[31408, 940, 129, 2, 25, "Input",ExpressionUUID->"bdbca864-d729-6d45-83af-09286972fe2c"], +Cell[31540, 944, 275, 4, 28, "Output",ExpressionUUID->"39daedc0-f31e-4340-a35b-004f6b40ec4a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[31852, 953, 129, 2, 25, "Input",ExpressionUUID->"ff4d19af-9e5c-ef4d-abe6-b09a5488a2e8"], +Cell[31984, 957, 272, 4, 28, "Output",ExpressionUUID->"2799c350-0f70-d94e-9eca-8e4b6896ba1b"] +}, Open ]], +Cell[32271, 964, 131, 3, 25, "Input",ExpressionUUID->"a7f6de2d-0c54-e74a-b7d2-d9434baefd68"], +Cell[CellGroupData[{ +Cell[32427, 971, 2065, 52, 112, "Input",ExpressionUUID->"1df47ed4-968d-ab47-9cf0-8687993d44a2"], +Cell[34495, 1025, 19247, 365, 214, "Output",ExpressionUUID->"ce0198a0-78ca-e145-8120-fc7eabacae13"] +}, Open ]], +Cell[53757, 1393, 128, 3, 25, "Input",ExpressionUUID->"7b24a916-b850-f042-8ae8-50b3ad5aa448"], +Cell[CellGroupData[{ +Cell[53910, 1400, 2333, 60, 44, "Input",ExpressionUUID->"0fd1647e-55ba-6c45-ad3c-c7cf0756600e"], +Cell[56246, 1462, 6865, 99, 100, "Message",ExpressionUUID->"8a1ca449-8ade-e546-aba0-d9eaceafdc8b"], +Cell[63114, 1563, 361, 7, 28, "Output",ExpressionUUID->"4179cd76-b416-dd42-b386-0c47b2d2830d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[63512, 1575, 2232, 58, 44, "Input",ExpressionUUID->"79d865b0-6c37-3243-a4e0-d7506dcfe14a"], +Cell[65747, 1635, 4492, 66, 95, "Message",ExpressionUUID->"55e1fa9b-3f66-b14c-835a-80c79c94d039"], +Cell[70242, 1703, 317, 6, 28, "Output",ExpressionUUID->"bccd2d3f-ff04-d740-a952-a694e24bee97"] +}, Open ]], +Cell[CellGroupData[{ +Cell[70596, 1714, 681, 11, 25, "Input",ExpressionUUID->"b936a356-288b-fa49-9ce3-75db208c644a"], +Cell[71280, 1727, 453, 8, 28, "Output",ExpressionUUID->"3803d881-b189-8048-84ea-7d7615e7429a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[71770, 1740, 650, 10, 25, "Input",ExpressionUUID->"d5b02e93-37c6-e046-a015-cd95d27ec9f3"], +Cell[72423, 1752, 544, 9, 28, "Output",ExpressionUUID->"d2deb25f-9225-2d42-91e9-938274abf369"] +}, Open ]], +Cell[CellGroupData[{ +Cell[73004, 1766, 2577, 65, 80, "Input",ExpressionUUID->"7cc2507c-877d-4b47-80a1-806136a93537"], +Cell[75584, 1833, 24042, 520, 214, "Output",ExpressionUUID->"69be3b89-cf1a-734d-887e-7df7742e3c43"] +}, Open ]], +Cell[CellGroupData[{ +Cell[99663, 2358, 165, 4, 25, "Input",ExpressionUUID->"9998eff2-8c55-9c49-a7ba-40c39d494e08"], +Cell[99831, 2364, 41772, 838, 214, "Output",ExpressionUUID->"ebc68bb8-e46a-8c43-bf69-94b7a8f95558"] +}, Open ]], +Cell[CellGroupData[{ +Cell[141640, 3207, 974, 28, 42, "Input",ExpressionUUID->"c35d5cd1-71e8-0d46-9aff-241fa1902366"], +Cell[142617, 3237, 22341, 416, 213, "Output",ExpressionUUID->"d6fa2f2f-3c56-3b4f-9f31-e6a5e4332e51"] +}, Open ]], +Cell[CellGroupData[{ +Cell[164995, 3658, 2430, 63, 44, "Input",ExpressionUUID->"96e79a55-1eb8-2a4c-bbe6-5fbb4df97bf2"], +Cell[167428, 3723, 7075, 103, 109, "Message",ExpressionUUID->"0015c752-5462-024f-a5f6-0bb14ac8a9f8"], +Cell[174506, 3828, 342, 8, 28, "Output",ExpressionUUID->"fd74a600-672d-fe49-b17e-345cc41e2a51"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174885, 3841, 463, 8, 25, "Input",ExpressionUUID->"e7f8a0fc-58ca-3c43-8050-1041e5611e26"], +Cell[175351, 3851, 325, 6, 28, "Output",ExpressionUUID->"593f0234-9885-574b-abab-682d67c1a482"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175713, 3862, 406, 7, 25, "Input",ExpressionUUID->"8a3efd5c-480b-0b42-87de-a0381a89eb4a"], +Cell[176122, 3871, 313, 6, 28, "Output",ExpressionUUID->"83a961cb-be32-234e-a6a1-248b62e7be8c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176472, 3882, 1014, 28, 43, "Input",ExpressionUUID->"a14f3f77-6d27-1048-853d-e35ac0579b5a"], +Cell[177489, 3912, 23978, 519, 213, "Output",ExpressionUUID->"9976a110-3b90-0140-9da3-64f7397f6359"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201504, 4436, 167, 4, 25, "Input",ExpressionUUID->"7f7adb48-d16c-ff46-92de-216bf33e0dd7"], +Cell[201674, 4442, 44912, 889, 213, "Output",ExpressionUUID->"a32ac306-352e-4246-979d-aaccd9c4fd9c"] +}, Open ]], +Cell[246601, 5334, 242, 5, 25, "Input",ExpressionUUID->"1a4d7ad0-fdd7-c149-91c3-f4bf148c2ba8"], +Cell[CellGroupData[{ +Cell[246868, 5343, 947, 26, 42, "Input",ExpressionUUID->"5f40daf9-1e74-0640-ab31-9384896fd730"], +Cell[247818, 5371, 11478, 237, 227, "Output",ExpressionUUID->"e5282d54-6165-864d-b8c2-fd3ffb6951b0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[259333, 5613, 2230, 59, 44, "Input",ExpressionUUID->"90f0001a-9463-4d4f-9baf-b5d8df3a0ca0"], +Cell[261566, 5674, 9312, 132, 144, "Message",ExpressionUUID->"01509ccb-ee36-ac4c-a081-721482bb27eb"], +Cell[270881, 5808, 472, 12, 23, "Message",ExpressionUUID->"5722f784-d413-e945-9034-fa616412f19f"], +Cell[271356, 5822, 348, 8, 28, "Output",ExpressionUUID->"2ac1d1fa-54fc-f240-9e62-dcd7d419d095"] +}, Open ]], +Cell[CellGroupData[{ +Cell[271741, 5835, 305, 6, 25, "Input",ExpressionUUID->"dbdfb703-96b0-7646-a6d8-1714cb27d7e0"], +Cell[272049, 5843, 208, 4, 28, "Output",ExpressionUUID->"7bd1eab7-2301-8841-89a6-b024c8e5a5a5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[272294, 5852, 308, 6, 25, "Input",ExpressionUUID->"b1797ad3-1841-6d4a-802c-01a83775cf12"], +Cell[272605, 5860, 158, 3, 28, "Output",ExpressionUUID->"957cc7f6-d310-2648-8355-befae3b3ffde"] +}, Open ]], +Cell[CellGroupData[{ +Cell[272800, 5868, 2669, 67, 98, "Input",ExpressionUUID->"44ce8c70-9506-d44d-96f8-61e476c7c15f"], +Cell[275472, 5937, 23901, 518, 203, "Output",ExpressionUUID->"ccbe3c08-e6b2-c140-bd79-c8cb9e6ea713"] +}, Open ]], +Cell[CellGroupData[{ +Cell[299410, 6460, 169, 4, 25, "Input",ExpressionUUID->"299aaf37-7ffd-574a-9050-d17f2288bbc9"], +Cell[299582, 6466, 33874, 706, 203, "Output",ExpressionUUID->"7f664d8d-810a-7546-9651-c7d232b8712f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[333493, 7177, 973, 27, 42, "Input",ExpressionUUID->"f3943b5b-dc03-1343-88ab-8e6b6abbdcf4"], +Cell[334469, 7206, 22378, 416, 213, "Output",ExpressionUUID->"2bd72462-22a0-2a4d-a133-83e57fd0ad31"] +}, Open ]], +Cell[CellGroupData[{ +Cell[356884, 7627, 2390, 62, 61, "Input",ExpressionUUID->"821ca014-9c3d-214a-9c1a-0b2310271344"], +Cell[359277, 7691, 7095, 103, 126, "Message",ExpressionUUID->"0dd5f937-ede2-434b-8299-b0b814b6dff2"], +Cell[366375, 7796, 381, 8, 28, "Output",ExpressionUUID->"5af00825-043b-c145-b00d-613afc18508d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[366793, 7809, 407, 7, 25, "Input",ExpressionUUID->"4524f895-5d5e-a74f-a717-0cd15a841249"], +Cell[367203, 7818, 258, 4, 28, "Output",ExpressionUUID->"c5b7003e-9a4f-6947-b438-174a60867cd0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[367498, 7827, 406, 7, 25, "Input",ExpressionUUID->"17f8190f-852b-fa46-bdc8-1bb243b31de3"], +Cell[367907, 7836, 280, 5, 28, "Output",ExpressionUUID->"02848e2b-1bea-5048-ba45-74de0b1100c1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[368224, 7846, 2881, 73, 79, "Input",ExpressionUUID->"86a6c2bf-ff39-cc4d-a1c0-fb8141afbdb9"], +Cell[371108, 7921, 69655, 1494, 214, "Output",ExpressionUUID->"1b924d89-7cd3-6640-8cb3-e8756c3e322b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[440800, 9420, 208, 5, 42, "Input",ExpressionUUID->"8a3460c1-aa75-4842-9332-c34c99c08aa4"], +Cell[441011, 9427, 91066, 1862, 213, "Output",ExpressionUUID->"4485fa2e-2a24-6e40-9a50-c4f11989a3cb"] +}, Open ]] +} +] +*) + diff --git a/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_gid_Qw1.nb b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_gid_Qw1.nb new file mode 100755 index 0000000..78f75b1 --- /dev/null +++ b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_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/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_gid_Qw2.nb b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_gid_Qw2.nb new file mode 100755 index 0000000..1f902d9 --- /dev/null +++ b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_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/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 new file mode 100755 index 0000000..0b16837 --- /dev/null +++ b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_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/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_osc_Qw2.nb b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_osc_Qw2.nb new file mode 100755 index 0000000..a320d64 --- /dev/null +++ b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_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/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_pr_Qw1.nb b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_pr_Qw1.nb new file mode 100755 index 0000000..14330be --- /dev/null +++ b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_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/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_pr_Qw2.nb b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_pr_Qw2.nb new file mode 100755 index 0000000..1226680 --- /dev/null +++ b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_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/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_фитирование.nb b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_фитирование.nb new file mode 100755 index 0000000..6ee1b27 --- /dev/null +++ b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/h_176-64_Pu240_4-5_фитирование.nb @@ -0,0 +1,20443 @@ +(* 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[ 962410, 20435] +NotebookOptionsPosition[ 951655, 20243] +NotebookOutlinePosition[ 952107, 20261] +CellTagsIndexPosition[ 952064, 20258] +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.992176560730276*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"4f8c4e31-1677-5b44-8668-f79ef0baff23"] +}, 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.9921765610795765`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"64936e2b-d144-914f-8438-dae3716d39ef"] +}, 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.992176561108576*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"981953b5-3e6a-fa47-aaa9-66a2655973ac"] +}, 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.9921765611385765`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"782f0643-8b66-ce4d-b90f-e662c5cf0b59"] +}, 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.992176561172575*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"3598a914-7b0d-744b-a3cd-10bf6e4ac62d"] +}, 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.9921765612065716`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"d86e9608-3bb8-864e-8b70-6ed52f1f722a"] +}, 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.9921766217789116`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"79d0537a-a91e-7d45-8108-5985af961c44"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", " ", "176"}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.9919640953047657`*^9, + 3.991964095496088*^9}, 3.9919730324857025`*^9, {3.9921766725443707`*^9, + 3.9921766735927486`*^9}}, + CellLabel->"In[21]:=",ExpressionUUID->"24bf6fdb-f0a0-774b-a5d1-1f910c97a298"], + +Cell[BoxData["176"], "Output", + CellChangeTimes->{3.9921766835221252`*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"e192c454-3253-c84f-bd5c-7136ed904c78"] +}, 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.9921766218842583`*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"8b3a3082-da7c-d448-9274-7a89522164b6"] +}, 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[ + RowBox[{"0.55`", "\[VeryThinSpace]", "-", + RowBox[{"0.0000625`", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "240"}], "+", + RowBox[{"2", " ", "A1"}]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.9913196497965145`*^9, 3.9917078282275677`*^9, + 3.9917123414253197`*^9, 3.991964105132374*^9, 3.99196507082041*^9, + 3.992176621886284*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"d2919b6f-a964-b04b-9417-d5132049f6d5"] +}, 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.992176621890278*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"da26c7f5-8458-5d42-9e02-e1182884f575"] +}, 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[ + RowBox[{"1.16`", " ", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]], "Output", + CellChangeTimes->{3.9913196498225155`*^9, 3.9917078282706223`*^9, + 3.9917123414384117`*^9, 3.991964105158039*^9, 3.9919650774986343`*^9, + 3.992176621916416*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"969440ac-849b-534f-a88d-f7ecf003459f"] +}, 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[ + RowBox[{"1.16`", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"240", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]], "Output", + CellChangeTimes->{3.9913196498425236`*^9, 3.9917078282785244`*^9, + 3.991712341447321*^9, 3.9919641051782207`*^9, 3.99196507853343*^9, + 3.992176621920656*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"eb7a6f5e-3962-4947-ab38-44a1f86baab9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", " ", "0.7654"}]], "Input", + CellChangeTimes->{ + 3.9917123951294365`*^9, 3.99179305435186*^9, {3.99196410971159*^9, + 3.9919641153565598`*^9}, {3.991965091938593*^9, 3.9919650927835865`*^9}, + 3.991973034922682*^9, {3.992176585878969*^9, 3.992176596477005*^9}}, + CellLabel->"In[15]:=",ExpressionUUID->"5a7643d0-24aa-4445-a07d-8c03ae610a22"], + +Cell[BoxData["0.7654`"], "Output", + CellChangeTimes->{3.992176621923666*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"7e292156-80d0-3843-944d-b7792184780b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.4513"}]], "Input", + CellChangeTimes->{ + 3.9917124038115807`*^9, 3.991793052797516*^9, {3.9919641207252083`*^9, + 3.991964121458187*^9}, {3.991965119761894*^9, 3.9919651201266823`*^9}, + 3.9919730365316715`*^9, {3.992176607180008*^9, 3.992176610891943*^9}}, + CellLabel->"In[16]:=",ExpressionUUID->"0d6c01d9-da94-5e40-a1b9-b6cc52ad8d72"], + +Cell[BoxData["0.4513`"], "Output", + CellChangeTimes->{3.992176621948656*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"c98924ce-c08f-f84b-907d-05142b6d158e"] +}, 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.992176621951664*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"b5ca60ab-07df-8d45-bf5b-255df7f5d25c"] +}, 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.9921766219546585`*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"d3a00282-d9f1-d64b-9c8a-37108b20b2fb"] +}, 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.992176696215687*^9, 3.992176721292536*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"1df47ed4-968d-ab47-9cf0-8687993d44a2"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwVUnc41osXV5FdERr0Et7xvVcSIVLnkJUys97KXiUVRcNK2XvT5SbZGbeE +zMoqKWQko7xkj7xXlyTEz++P85zn85zz+XzOOc/Zb3vVyGEzCwtLz0b8P2uf +DWFnYSGhm96OddUJJqhlyClVbSKhL29Up8s4E45OM5zdt5Dw+egCZ/IYE6Q9 +5dsmt5JwMbUnY2qECYIpwwkdvCTUrTN3Cx5iwnCfinimMAkvdjVJZPcxwZv+ +XUVTkYQCEobjDu+Z8MT87LWIKyTUfi9gM1rIBA7Rf7svuZLwe90btQ8FTLAe +81c6dY2Eeif6T1XmM4H/WhEL1w0SBj6t7QjLY4J7OEt0sA8J1T+UpkpkMUHp +ZU7BvQgSivF4pv+ZyoQGifnRW/kkbFv5hxQbwoQeZriZwzgJvdPQJcp6g5/t +tig5SUIp2X3hxlZM2HHeLHF0ioQXhOOb91gyQbtZvMtuloQyQkKZj84xoSqz +Us92gYQRtb8qckyZkGY+oWG1WRTHTH3nA08zwbFe7TCdJIrWiYXFCYpMWEz8 +tUPXVBRt1gI4uriYsOzJ+mlzoyhObh3w/S9nFga9ysPu7RPDgXmTWlHKLLyo +DxPgNhHDywOYPZ/8Dby6Iz8rxYrhk5q+maHhGZAKtsrTbxFDlbpvAwz+GTBX +1R902bIfVUuM6zLkpsGh6coZGdiPfskMeUGxKZg1KTy0cmM/+ovc+DK1NgEX +/CsEi4r248LkfTntN+PQ4L2gwDa1H08cm6XOG49Biq9evb2YOF6vru3dNjoC +hqd7w5zPi2NPv4gpDw7DSoUM3SxZHFPbuVc0k4dATDo39lSbOB4pqd65tJ0B +lKu67OOcEqh1TO3354p+yK3gmwhWlcCYj/4XG0p7gLONjbXdRwLdDNs7v6R+ +BIt7bynrFRIYFtvSUNfcAQfgcYn8nARO7C4QLW1og4GmSh9+KUn8qTXgXsz/ +Djjpk8WLdpKodWKu6eqhN0ANHZupS5HEJ5HKzfW99UAJ5LeT+ySJPWo/mO6O +ryA91EK9kJeMA1/bEw9ZVMGwe0/t39vIuNKleHjrySqQsDY8FrmdjFazv30m +D1dBjoKGwhU+MjbQLX5181RB4YgUTUaQjIUrRM+ZF5VQfmyVu1SEjA+Edzp3 +i1VC2/eUruo/ydj5syC97ns5rNB7bd+fJOOEQ0bNu8oyqLhz0atch4x+Tz4p +kB+XwY3s5fjMU2R8N6qtEX6/DObmRF576ZJx+7MRNs+bZTAabEOVMiTjW//f +jl/ly6CtbHomwpyMf9aclussLYUMvt/uek5k/Hlx1m1HdcnGf+4P7gggI5Fo +Up4zUQxUp3MvigLJ+Ek51CK7vxi2siXOhwZt+PnL1hW2FkMjclirhZBRkX6v +qLukGFQrmEdKwsmoV50eF+1XDMq51dMJcRt+CX+aPRQuBqlAEz3zdDLGOC7q +8Zo/BT7VUMHBajKe3MyirNhZBGJp5aOtNWSUjpDnv1pVBNIrYyU1L8goLCZf +XpFRBKfL1IxSXpHRXqxK6e71IggiVqNMGshY6zc1NCZYBKt8Vzla3pFRzXDx +zbxFIYwPG69U9JGxdHXFvGs5H6oDxL7G/SSjPuO3mIpDHnyj/2x1WyKjdo6G +AcMoD0QOtlUZ/CLj5TXDzEjMA98+r4RtK2SsP6cRv1MkD1C6RytsjYwXm9SL +q7tyobEn8p+7bBR8v9U710MjF9r+WPFy3UlBrvfpRmayOTDU3i2kd5CCpsvP +PgnIZEHEUMNDmgwFl2vFinj3Z4HSXDFtyyEKdh8IP87HnwVx26OUK2QpuHvd ++caRhUw4oadpKa5AwX12T25urcyEnPfPsxdVKOitk/M8RT0TXN4kH36oQ8Hy +M+ux7nYZ8LOabjTnQMG6trj73i/ToTNMxX3AkYLXCsQdGU/T4R+6aNI7Jwp+ +z26c0MlMB8efo31ZFzfm3c4xeSIkHT7JutrQL1Pw4C6BLWVG6VD2OMi13p2C +UjqNrXu6HsL15JKoBH8Kfq5RYtYcS4N/r/G+P/KIgsDuUz50OhW+Vd7nEsrY +8P/O7GI/kgrTLJI68xuYO7DV5bhEKoxHKTcXZVFQLenWZN+vFGDkOzWJ51Ew +b3NU39vcFGgZrmvgeUJBnT+ctX22pkCe0Y2aoRoKxh741L/Ydh9sZQeLQnop ++Ejtr1c/QpMg+ohV0K2+Db3P5eKKN5Og5vig5YV+Cl6i2TcE2yfBrlOD27W/ +UJAhIR1lCknQYjfoxj5EwQbn9yyPfySCYuKgfNAEBQsH5qV3OSQCz9LgC/9F +CtpA2fJbvQR4/mKo1VeAirzuTAvSqThgU+FstBSkov7irQ99KnFgXHWo6rgQ +Fbv5daTTpeNg/vm9nLVdVKywj4zX5Y8DmaeSd3yFqWjxy0Hkj/5YyM+4IOMr +TsUTCQGKI5diIS14Ls5HhornbgRLiSbHQKAhi7n3aSpyvbz3WlEoCgy4cNpM +l4rlVySFJdYjQaThjrec3gZuOjcsOhkJzw6vp0/rU9FHxD1OtyoSGLvWpszP +ULGzKUbwllUkKDBWvOTPUjH0pWDOWmEEjDv/fMh0oqKyeHu2l3E4aAUwJ6z9 +qVhr2sWb1hkCaqviO/UDqKhESpebehECKu5mx48FUtFW8NxFjcchIGtfm7An +mIpp9PZWGb8QEFGPU+0Mo6LsUdffHdIhMLdFIfVEHBUVlkgHZaOD4b6/jx7l +ERVv1Y4W8Z4Pgul7PGUzL6m4p898+KpEAGy9PvW7+RUVVV7L367YGQASdm80 +82qpaFPJIc/LGgDnT/j12tdv3FPhw2L/qD+0bVlYGXhNxYxLHJlbc/3hWcBn +tfYWKl52FStLOuAPt4Py20v7qZir5dxy7sQ94AjT/uazSEWKZE5rWrQfGCvt +bbvyk4qagUZuyXf9IH1y5onVEhWbPicwUq/7wRGt6Ouqy1TcvjjDbDLzgwus +n5ZZ16hYPczZWyDmB2997Tgj2GiofK7zy+GLdyDkui8lRYCG8stziRnNPsBu +UWr9XJaGZ7gbwaHZE9o0HzAy5Gj4XCD0iGCJJyTJBJ2PPkzD3iFqXs/fnkBh +NTe/oEBDdscnT+JdPUGzYEV/r/JGv3FBzfhuTwj4pQa+qjRs2mb4ecblNrAk +dezTNKCh+CT3Dx7xW7DUxuzvvkzDZ69b8rNfeMCwjN+NZ1do6G3rIFtd6AEt +cXz80VdpGKkb2jGQ6gEPTQ+f1Haj4fqajbSOpwdoMm6XV7lv1OPvnXqp6AHx +s6wJD71o2PGXggd3mTtI8wjrXgyl4dsfM/yLFdfB4aTWq9UsGlq2+y2xj7qB +r3Pr/Ew2DcPDCzu+fXSD++FnaJ9zaOif3GvBeO0G71qtYivzaMh9YNx+ItcN +pI1u2d0o3LhfTD57jIsbLJ19zD5XQsOj6nfCZJdcIcKF22Cknoa862NxHrtd +4Vn0h6HmIRpqFgjJFv1wgVnamuzjrzTUXxV+0MVwAVq9VGDIMA1fjJ9Z537r +AmkLoYTW6AY/6LTbsxQXCKerX2ucoOHUFaPAj+gC9hKVW14xafhAVtHaJuYS +CJVnUEpXaRjAr5AKKs7gxfBwSdtNoLTOktCxRieQfVZ99vYeAukjvuU9xU4w +GbjppPFeArk+5of5PXQC0wORZC4RAlmvOT1Y9dzo985ieIgSOPnVTeOBrBNM +7+ky0KUQyPY5QO1mliOYm8jIr8oRWBSpVaAe5wAKLdO/6foEKow8uiyQYAci +VuRALQMCW7hPvXnkbwdb/rPikTfc0J+YnFC5bgftu7r37jhDYJLcNvO/jezA +2e6V4htTAttabArX+OzgwXK8m6wlga9Vt2hpxdsCK3FsjOsygd77HOVTH9pA +Z2B0S3UYgTHfczaxVVlBf8w1t7/CCbzWKOIo/sgKRlJNhG5GEBh+p1XjTIgV +LBQLW8tGEbjwnqL8r6kVCDJy5/NiCTzeo2yw7YclmCvU7k26T6D6wg7JL4ct +gTE+d8E1h8DljG1GBvXnYUrLiI1cT6Bt39EdUXxnQYB5wE2kgcCwtfaPlct0 +wATOgZ2NBA6EqUf/GqHD/aHa0s1vCNR0hfTS53TQvn3QfqiZQG3XPfq7LOiQ +k8/TkNpB4IG7r3/cKTIHW94mP/6vBH7hUNjmfN4MokoyvnEOE1hZVLA4r2UG +VXRf800jBPqNhTRGy5kBX468zNwogZLfdneucplB7fGswdZJAqe7+jcXVJmC +qOvd46FzBAoE8NB19pmCjpBFvt93AkdZde1nOE3hRs0RoVv/Eci8c9vmwaIJ +tHHMzTouEDhx/u6iXLsJ+D6yfKC+RGCHbeAcEWAC+VrKnCq/CNRgZZ0zcDOB +T7OCHnLLBOYURLuEWJrAAeXW0+KrBA6f18ukKZmA+VBexZ7fG/vWDGEsxQQC +ggIk+dYIZCk/Ls4lYAJPpaxjONYJ7F1QUIrfZAJfOo+urm/gkKtZN6X+NYb/ +AVJ8Mcg= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVUnc41osXV5FdERr0Et7xvVcSIVLnkJUys97KXiUVRcNK2XvT5SbZGbeE +zMoqKWQko7xkj7xXlyTEz++P85zn85zz+XzOOc/Zb3vVyGEzCwtLz0b8P2uf +DWFnYSGhm96OddUJJqhlyClVbSKhL29Up8s4E45OM5zdt5Dw+egCZ/IYE6Q9 +5dsmt5JwMbUnY2qECYIpwwkdvCTUrTN3Cx5iwnCfinimMAkvdjVJZPcxwZv+ +XUVTkYQCEobjDu+Z8MT87LWIKyTUfi9gM1rIBA7Rf7svuZLwe90btQ8FTLAe +81c6dY2Eeif6T1XmM4H/WhEL1w0SBj6t7QjLY4J7OEt0sA8J1T+UpkpkMUHp +ZU7BvQgSivF4pv+ZyoQGifnRW/kkbFv5hxQbwoQeZriZwzgJvdPQJcp6g5/t +tig5SUIp2X3hxlZM2HHeLHF0ioQXhOOb91gyQbtZvMtuloQyQkKZj84xoSqz +Us92gYQRtb8qckyZkGY+oWG1WRTHTH3nA08zwbFe7TCdJIrWiYXFCYpMWEz8 +tUPXVBRt1gI4uriYsOzJ+mlzoyhObh3w/S9nFga9ysPu7RPDgXmTWlHKLLyo +DxPgNhHDywOYPZ/8Dby6Iz8rxYrhk5q+maHhGZAKtsrTbxFDlbpvAwz+GTBX +1R902bIfVUuM6zLkpsGh6coZGdiPfskMeUGxKZg1KTy0cmM/+ovc+DK1NgEX +/CsEi4r248LkfTntN+PQ4L2gwDa1H08cm6XOG49Biq9evb2YOF6vru3dNjoC +hqd7w5zPi2NPv4gpDw7DSoUM3SxZHFPbuVc0k4dATDo39lSbOB4pqd65tJ0B +lKu67OOcEqh1TO3354p+yK3gmwhWlcCYj/4XG0p7gLONjbXdRwLdDNs7v6R+ +BIt7bynrFRIYFtvSUNfcAQfgcYn8nARO7C4QLW1og4GmSh9+KUn8qTXgXsz/ +Djjpk8WLdpKodWKu6eqhN0ANHZupS5HEJ5HKzfW99UAJ5LeT+ySJPWo/mO6O +ryA91EK9kJeMA1/bEw9ZVMGwe0/t39vIuNKleHjrySqQsDY8FrmdjFazv30m +D1dBjoKGwhU+MjbQLX5181RB4YgUTUaQjIUrRM+ZF5VQfmyVu1SEjA+Edzp3 +i1VC2/eUruo/ydj5syC97ns5rNB7bd+fJOOEQ0bNu8oyqLhz0atch4x+Tz4p +kB+XwY3s5fjMU2R8N6qtEX6/DObmRF576ZJx+7MRNs+bZTAabEOVMiTjW//f +jl/ly6CtbHomwpyMf9aclussLYUMvt/uek5k/Hlx1m1HdcnGf+4P7gggI5Fo +Up4zUQxUp3MvigLJ+Ek51CK7vxi2siXOhwZt+PnL1hW2FkMjclirhZBRkX6v +qLukGFQrmEdKwsmoV50eF+1XDMq51dMJcRt+CX+aPRQuBqlAEz3zdDLGOC7q +8Zo/BT7VUMHBajKe3MyirNhZBGJp5aOtNWSUjpDnv1pVBNIrYyU1L8goLCZf +XpFRBKfL1IxSXpHRXqxK6e71IggiVqNMGshY6zc1NCZYBKt8Vzla3pFRzXDx +zbxFIYwPG69U9JGxdHXFvGs5H6oDxL7G/SSjPuO3mIpDHnyj/2x1WyKjdo6G +AcMoD0QOtlUZ/CLj5TXDzEjMA98+r4RtK2SsP6cRv1MkD1C6RytsjYwXm9SL +q7tyobEn8p+7bBR8v9U710MjF9r+WPFy3UlBrvfpRmayOTDU3i2kd5CCpsvP +PgnIZEHEUMNDmgwFl2vFinj3Z4HSXDFtyyEKdh8IP87HnwVx26OUK2QpuHvd ++caRhUw4oadpKa5AwX12T25urcyEnPfPsxdVKOitk/M8RT0TXN4kH36oQ8Hy +M+ux7nYZ8LOabjTnQMG6trj73i/ToTNMxX3AkYLXCsQdGU/T4R+6aNI7Jwp+ +z26c0MlMB8efo31ZFzfm3c4xeSIkHT7JutrQL1Pw4C6BLWVG6VD2OMi13p2C +UjqNrXu6HsL15JKoBH8Kfq5RYtYcS4N/r/G+P/KIgsDuUz50OhW+Vd7nEsrY +8P/O7GI/kgrTLJI68xuYO7DV5bhEKoxHKTcXZVFQLenWZN+vFGDkOzWJ51Ew +b3NU39vcFGgZrmvgeUJBnT+ctX22pkCe0Y2aoRoKxh741L/Ydh9sZQeLQnop ++Ejtr1c/QpMg+ohV0K2+Db3P5eKKN5Og5vig5YV+Cl6i2TcE2yfBrlOD27W/ +UJAhIR1lCknQYjfoxj5EwQbn9yyPfySCYuKgfNAEBQsH5qV3OSQCz9LgC/9F +CtpA2fJbvQR4/mKo1VeAirzuTAvSqThgU+FstBSkov7irQ99KnFgXHWo6rgQ +Fbv5daTTpeNg/vm9nLVdVKywj4zX5Y8DmaeSd3yFqWjxy0Hkj/5YyM+4IOMr +TsUTCQGKI5diIS14Ls5HhornbgRLiSbHQKAhi7n3aSpyvbz3WlEoCgy4cNpM +l4rlVySFJdYjQaThjrec3gZuOjcsOhkJzw6vp0/rU9FHxD1OtyoSGLvWpszP +ULGzKUbwllUkKDBWvOTPUjH0pWDOWmEEjDv/fMh0oqKyeHu2l3E4aAUwJ6z9 +qVhr2sWb1hkCaqviO/UDqKhESpebehECKu5mx48FUtFW8NxFjcchIGtfm7An +mIpp9PZWGb8QEFGPU+0Mo6LsUdffHdIhMLdFIfVEHBUVlkgHZaOD4b6/jx7l +ERVv1Y4W8Z4Pgul7PGUzL6m4p898+KpEAGy9PvW7+RUVVV7L367YGQASdm80 +82qpaFPJIc/LGgDnT/j12tdv3FPhw2L/qD+0bVlYGXhNxYxLHJlbc/3hWcBn +tfYWKl52FStLOuAPt4Py20v7qZir5dxy7sQ94AjT/uazSEWKZE5rWrQfGCvt +bbvyk4qagUZuyXf9IH1y5onVEhWbPicwUq/7wRGt6Ouqy1TcvjjDbDLzgwus +n5ZZ16hYPczZWyDmB2997Tgj2GiofK7zy+GLdyDkui8lRYCG8stziRnNPsBu +UWr9XJaGZ7gbwaHZE9o0HzAy5Gj4XCD0iGCJJyTJBJ2PPkzD3iFqXs/fnkBh +NTe/oEBDdscnT+JdPUGzYEV/r/JGv3FBzfhuTwj4pQa+qjRs2mb4ecblNrAk +dezTNKCh+CT3Dx7xW7DUxuzvvkzDZ69b8rNfeMCwjN+NZ1do6G3rIFtd6AEt +cXz80VdpGKkb2jGQ6gEPTQ+f1Haj4fqajbSOpwdoMm6XV7lv1OPvnXqp6AHx +s6wJD71o2PGXggd3mTtI8wjrXgyl4dsfM/yLFdfB4aTWq9UsGlq2+y2xj7qB +r3Pr/Ew2DcPDCzu+fXSD++FnaJ9zaOif3GvBeO0G71qtYivzaMh9YNx+ItcN +pI1u2d0o3LhfTD57jIsbLJ19zD5XQsOj6nfCZJdcIcKF22Cknoa862NxHrtd +4Vn0h6HmIRpqFgjJFv1wgVnamuzjrzTUXxV+0MVwAVq9VGDIMA1fjJ9Z537r +AmkLoYTW6AY/6LTbsxQXCKerX2ucoOHUFaPAj+gC9hKVW14xafhAVtHaJuYS +CJVnUEpXaRjAr5AKKs7gxfBwSdtNoLTOktCxRieQfVZ99vYeAukjvuU9xU4w +GbjppPFeArk+5of5PXQC0wORZC4RAlmvOT1Y9dzo985ieIgSOPnVTeOBrBNM +7+ky0KUQyPY5QO1mliOYm8jIr8oRWBSpVaAe5wAKLdO/6foEKow8uiyQYAci +VuRALQMCW7hPvXnkbwdb/rPikTfc0J+YnFC5bgftu7r37jhDYJLcNvO/jezA +2e6V4htTAttabArX+OzgwXK8m6wlga9Vt2hpxdsCK3FsjOsygd77HOVTH9pA +Z2B0S3UYgTHfczaxVVlBf8w1t7/CCbzWKOIo/sgKRlJNhG5GEBh+p1XjTIgV +LBQLW8tGEbjwnqL8r6kVCDJy5/NiCTzeo2yw7YclmCvU7k26T6D6wg7JL4ct +gTE+d8E1h8DljG1GBvXnYUrLiI1cT6Bt39EdUXxnQYB5wE2kgcCwtfaPlct0 +wATOgZ2NBA6EqUf/GqHD/aHa0s1vCNR0hfTS53TQvn3QfqiZQG3XPfq7LOiQ +k8/TkNpB4IG7r3/cKTIHW94mP/6vBH7hUNjmfN4MokoyvnEOE1hZVLA4r2UG +VXRf800jBPqNhTRGy5kBX468zNwogZLfdneucplB7fGswdZJAqe7+jcXVJmC +qOvd46FzBAoE8NB19pmCjpBFvt93AkdZde1nOE3hRs0RoVv/Eci8c9vmwaIJ +tHHMzTouEDhx/u6iXLsJ+D6yfKC+RGCHbeAcEWAC+VrKnCq/CNRgZZ0zcDOB +T7OCHnLLBOYURLuEWJrAAeXW0+KrBA6f18ukKZmA+VBexZ7fG/vWDGEsxQQC +ggIk+dYIZCk/Ls4lYAJPpaxjONYJ7F1QUIrfZAJfOo+urm/gkKtZN6X+NYb/ +AVJ8Mcg= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 13}, {0., 0.965729711695941}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{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.965729711695941}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVUnc41osXV5FdERr0Et7xvVcSIVLnkJUys97KXiUVRcNK2XvT5SbZGbeE +zMoqKWQko7xkj7xXlyTEz++P85zn85zz+XzOOc/Zb3vVyGEzCwtLz0b8P2uf +DWFnYSGhm96OddUJJqhlyClVbSKhL29Up8s4E45OM5zdt5Dw+egCZ/IYE6Q9 +5dsmt5JwMbUnY2qECYIpwwkdvCTUrTN3Cx5iwnCfinimMAkvdjVJZPcxwZv+ +XUVTkYQCEobjDu+Z8MT87LWIKyTUfi9gM1rIBA7Rf7svuZLwe90btQ8FTLAe +81c6dY2Eeif6T1XmM4H/WhEL1w0SBj6t7QjLY4J7OEt0sA8J1T+UpkpkMUHp +ZU7BvQgSivF4pv+ZyoQGifnRW/kkbFv5hxQbwoQeZriZwzgJvdPQJcp6g5/t +tig5SUIp2X3hxlZM2HHeLHF0ioQXhOOb91gyQbtZvMtuloQyQkKZj84xoSqz +Us92gYQRtb8qckyZkGY+oWG1WRTHTH3nA08zwbFe7TCdJIrWiYXFCYpMWEz8 +tUPXVBRt1gI4uriYsOzJ+mlzoyhObh3w/S9nFga9ysPu7RPDgXmTWlHKLLyo +DxPgNhHDywOYPZ/8Dby6Iz8rxYrhk5q+maHhGZAKtsrTbxFDlbpvAwz+GTBX +1R902bIfVUuM6zLkpsGh6coZGdiPfskMeUGxKZg1KTy0cmM/+ovc+DK1NgEX +/CsEi4r248LkfTntN+PQ4L2gwDa1H08cm6XOG49Biq9evb2YOF6vru3dNjoC +hqd7w5zPi2NPv4gpDw7DSoUM3SxZHFPbuVc0k4dATDo39lSbOB4pqd65tJ0B +lKu67OOcEqh1TO3354p+yK3gmwhWlcCYj/4XG0p7gLONjbXdRwLdDNs7v6R+ +BIt7bynrFRIYFtvSUNfcAQfgcYn8nARO7C4QLW1og4GmSh9+KUn8qTXgXsz/ +Djjpk8WLdpKodWKu6eqhN0ANHZupS5HEJ5HKzfW99UAJ5LeT+ySJPWo/mO6O +ryA91EK9kJeMA1/bEw9ZVMGwe0/t39vIuNKleHjrySqQsDY8FrmdjFazv30m +D1dBjoKGwhU+MjbQLX5181RB4YgUTUaQjIUrRM+ZF5VQfmyVu1SEjA+Edzp3 +i1VC2/eUruo/ydj5syC97ns5rNB7bd+fJOOEQ0bNu8oyqLhz0atch4x+Tz4p +kB+XwY3s5fjMU2R8N6qtEX6/DObmRF576ZJx+7MRNs+bZTAabEOVMiTjW//f +jl/ly6CtbHomwpyMf9aclussLYUMvt/uek5k/Hlx1m1HdcnGf+4P7gggI5Fo +Up4zUQxUp3MvigLJ+Ek51CK7vxi2siXOhwZt+PnL1hW2FkMjclirhZBRkX6v +qLukGFQrmEdKwsmoV50eF+1XDMq51dMJcRt+CX+aPRQuBqlAEz3zdDLGOC7q +8Zo/BT7VUMHBajKe3MyirNhZBGJp5aOtNWSUjpDnv1pVBNIrYyU1L8goLCZf +XpFRBKfL1IxSXpHRXqxK6e71IggiVqNMGshY6zc1NCZYBKt8Vzla3pFRzXDx +zbxFIYwPG69U9JGxdHXFvGs5H6oDxL7G/SSjPuO3mIpDHnyj/2x1WyKjdo6G +AcMoD0QOtlUZ/CLj5TXDzEjMA98+r4RtK2SsP6cRv1MkD1C6RytsjYwXm9SL +q7tyobEn8p+7bBR8v9U710MjF9r+WPFy3UlBrvfpRmayOTDU3i2kd5CCpsvP +PgnIZEHEUMNDmgwFl2vFinj3Z4HSXDFtyyEKdh8IP87HnwVx26OUK2QpuHvd ++caRhUw4oadpKa5AwX12T25urcyEnPfPsxdVKOitk/M8RT0TXN4kH36oQ8Hy +M+ux7nYZ8LOabjTnQMG6trj73i/ToTNMxX3AkYLXCsQdGU/T4R+6aNI7Jwp+ +z26c0MlMB8efo31ZFzfm3c4xeSIkHT7JutrQL1Pw4C6BLWVG6VD2OMi13p2C +UjqNrXu6HsL15JKoBH8Kfq5RYtYcS4N/r/G+P/KIgsDuUz50OhW+Vd7nEsrY +8P/O7GI/kgrTLJI68xuYO7DV5bhEKoxHKTcXZVFQLenWZN+vFGDkOzWJ51Ew +b3NU39vcFGgZrmvgeUJBnT+ctX22pkCe0Y2aoRoKxh741L/Ydh9sZQeLQnop ++Ejtr1c/QpMg+ohV0K2+Db3P5eKKN5Og5vig5YV+Cl6i2TcE2yfBrlOD27W/ +UJAhIR1lCknQYjfoxj5EwQbn9yyPfySCYuKgfNAEBQsH5qV3OSQCz9LgC/9F +CtpA2fJbvQR4/mKo1VeAirzuTAvSqThgU+FstBSkov7irQ99KnFgXHWo6rgQ +Fbv5daTTpeNg/vm9nLVdVKywj4zX5Y8DmaeSd3yFqWjxy0Hkj/5YyM+4IOMr +TsUTCQGKI5diIS14Ls5HhornbgRLiSbHQKAhi7n3aSpyvbz3WlEoCgy4cNpM +l4rlVySFJdYjQaThjrec3gZuOjcsOhkJzw6vp0/rU9FHxD1OtyoSGLvWpszP +ULGzKUbwllUkKDBWvOTPUjH0pWDOWmEEjDv/fMh0oqKyeHu2l3E4aAUwJ6z9 +qVhr2sWb1hkCaqviO/UDqKhESpebehECKu5mx48FUtFW8NxFjcchIGtfm7An +mIpp9PZWGb8QEFGPU+0Mo6LsUdffHdIhMLdFIfVEHBUVlkgHZaOD4b6/jx7l +ERVv1Y4W8Z4Pgul7PGUzL6m4p898+KpEAGy9PvW7+RUVVV7L367YGQASdm80 +82qpaFPJIc/LGgDnT/j12tdv3FPhw2L/qD+0bVlYGXhNxYxLHJlbc/3hWcBn +tfYWKl52FStLOuAPt4Py20v7qZir5dxy7sQ94AjT/uazSEWKZE5rWrQfGCvt +bbvyk4qagUZuyXf9IH1y5onVEhWbPicwUq/7wRGt6Ouqy1TcvjjDbDLzgwus +n5ZZ16hYPczZWyDmB2997Tgj2GiofK7zy+GLdyDkui8lRYCG8stziRnNPsBu +UWr9XJaGZ7gbwaHZE9o0HzAy5Gj4XCD0iGCJJyTJBJ2PPkzD3iFqXs/fnkBh +NTe/oEBDdscnT+JdPUGzYEV/r/JGv3FBzfhuTwj4pQa+qjRs2mb4ecblNrAk +dezTNKCh+CT3Dx7xW7DUxuzvvkzDZ69b8rNfeMCwjN+NZ1do6G3rIFtd6AEt +cXz80VdpGKkb2jGQ6gEPTQ+f1Haj4fqajbSOpwdoMm6XV7lv1OPvnXqp6AHx +s6wJD71o2PGXggd3mTtI8wjrXgyl4dsfM/yLFdfB4aTWq9UsGlq2+y2xj7qB +r3Pr/Ew2DcPDCzu+fXSD++FnaJ9zaOif3GvBeO0G71qtYivzaMh9YNx+ItcN +pI1u2d0o3LhfTD57jIsbLJ19zD5XQsOj6nfCZJdcIcKF22Cknoa862NxHrtd +4Vn0h6HmIRpqFgjJFv1wgVnamuzjrzTUXxV+0MVwAVq9VGDIMA1fjJ9Z537r +AmkLoYTW6AY/6LTbsxQXCKerX2ucoOHUFaPAj+gC9hKVW14xafhAVtHaJuYS +CJVnUEpXaRjAr5AKKs7gxfBwSdtNoLTOktCxRieQfVZ99vYeAukjvuU9xU4w +GbjppPFeArk+5of5PXQC0wORZC4RAlmvOT1Y9dzo985ieIgSOPnVTeOBrBNM +7+ky0KUQyPY5QO1mliOYm8jIr8oRWBSpVaAe5wAKLdO/6foEKow8uiyQYAci +VuRALQMCW7hPvXnkbwdb/rPikTfc0J+YnFC5bgftu7r37jhDYJLcNvO/jezA +2e6V4htTAttabArX+OzgwXK8m6wlga9Vt2hpxdsCK3FsjOsygd77HOVTH9pA +Z2B0S3UYgTHfczaxVVlBf8w1t7/CCbzWKOIo/sgKRlJNhG5GEBh+p1XjTIgV +LBQLW8tGEbjwnqL8r6kVCDJy5/NiCTzeo2yw7YclmCvU7k26T6D6wg7JL4ct +gTE+d8E1h8DljG1GBvXnYUrLiI1cT6Bt39EdUXxnQYB5wE2kgcCwtfaPlct0 +wATOgZ2NBA6EqUf/GqHD/aHa0s1vCNR0hfTS53TQvn3QfqiZQG3XPfq7LOiQ +k8/TkNpB4IG7r3/cKTIHW94mP/6vBH7hUNjmfN4MokoyvnEOE1hZVLA4r2UG +VXRf800jBPqNhTRGy5kBX468zNwogZLfdneucplB7fGswdZJAqe7+jcXVJmC +qOvd46FzBAoE8NB19pmCjpBFvt93AkdZde1nOE3hRs0RoVv/Eci8c9vmwaIJ +tHHMzTouEDhx/u6iXLsJ+D6yfKC+RGCHbeAcEWAC+VrKnCq/CNRgZZ0zcDOB +T7OCHnLLBOYURLuEWJrAAeXW0+KrBA6f18ukKZmA+VBexZ7fG/vWDGEsxQQC +ggIk+dYIZCk/Ls4lYAJPpaxjONYJ7F1QUIrfZAJfOo+urm/gkKtZN6X+NYb/ +AVJ8Mcg= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 13}, {0., 0.965729711695941}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> 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}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{7.5, 13}, {0., 0.965729711695941}}, + 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.9921766349951954`*^9, 3.992176639225258*^9}, { + 3.9921766880795937`*^9, 3.9921767220667324`*^9}}, + CellLabel->"Out[26]=",ExpressionUUID->"d2072d0d-27c2-5c4e-823b-93492f869550"] +}, 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", ",", "7.5", ",", "13", ",", "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.5", ",", "13", ",", "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.9921767351974297`*^9, + 3.992176740086857*^9}}, + CellLabel->"In[27]:=",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.1262711375000843`\\\", \\\" \\\", 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.11654859982614699`\\\", \\\" \\\", 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.1262711375000843`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.11654859982614699`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.6112399421056343`\\\", \\\" \\\ +\", \\\"R1\\\"}], \\\"]\\\"}]}], RowBox[{RowBox[{\\\"417991.53320241044`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"6\\\", \\\"\[RightSkeleton]\\\"}]}], \ +\\\",\\\", RowBox[{RowBox[{\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"-\\\", FractionBox[RowBox[{\\\"0.4023668639053254`\\\", \ +\\\" \\\", SuperscriptBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"18\\\", \\\"\ +\[RightSkeleton]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}]], \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"7.5`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"-\\\", RowBox[{\ +\\\"1.`\\\", \\\" \\\", \\\"R1\\\"}]}], \\\")\\\"}]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\ +\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{RowBox[{\\\"-\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"20\\\", \\\"\[RightSkeleton]\\\"}]}], \\\" \\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\" \ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\" \\\", \\\"R1\\\"}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"4\\\", \\\"\[RightSkeleton]\\\"}]}], \\\")\\\"}]}]}], \\\")\\\"}], \\\" \ +\\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.17`\\\", RowBox[{RowBox[{\\\"1.`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.1262711375000843`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.11654859982614699`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.6112399421056343`\\\", \\\" \\\ +\", \\\"R1\\\"}], \\\"]\\\"}]}], RowBox[{RowBox[{\\\"417991.53320241044`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"6\\\", \\\"\[RightSkeleton]\\\"}]}]}], \ +\\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \\\",\\\", \\\"b0\\\"}], \\\"}\ +\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.`\\\", \\\",\\\", \ +\\\"0.65`\\\"}], \\\"}\\\"}]\\).\"", 2, 27, 3, 29225361075616413851, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9917125179761257`*^9, 3.991964171446245*^9, + 3.9919651511804237`*^9, 3.9921767965484467`*^9}, + CellLabel-> + "During evaluation of \ +In[27]:=",ExpressionUUID->"ca45e8e7-e1a3-d248-b200-5ce47d8cf72f"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.8725153706803607`"}], ",", + RowBox[{"b0", "\[Rule]", "1.1243791896196786`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991712518051634*^9, 3.9919641715267353`*^9, + 3.99196515126849*^9, 3.992176796696203*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"bc11fbe1-60e1-aa42-add1-6c2a7f9fd172"] +}, 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.5", ",", "13", ",", "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.5", ",", "13", ",", "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.992176782003208*^9, 3.9921767885641537`*^9}}, + CellLabel->"In[28]:=",ExpressionUUID->"79d865b0-6c37-3243-a4e0-d7506dcfe14a"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{RowBox[{\\\"-\\\", \ +\\\"0.48280140808855765`\\\"}], \\\" \\\", \\\"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.11654859982614699`\\\", \\\" \\\", \ +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[{\\\"22497.02898178406`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.48280140808855765`\\\", \\\" \\\", \\\"R1\\\", \\\" \ +\\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\ +\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"+\\\", \ +RowBox[{\\\"0.11654859982614699`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.6112399421056343`\\\", \\\" \\\ +\", \\\"R1\\\"}], \\\"]\\\"}]}], RowBox[{RowBox[{\\\"417991.53320241044`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"6\\\", \\\"\[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, 28, 4, 29225361075616413851, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9917125235776978`*^9, 3.992176796868759*^9}, + CellLabel-> + "During evaluation of \ +In[28]:=",ExpressionUUID->"371c10ce-45c3-dd44-b97d-a0639c9e2b90"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.8725209154849431`"}], ",", + RowBox[{"b0", "\[Rule]", "1.124379073462205`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9917125237225304`*^9, 3.9921767971303234`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"cda8f104-ce02-7b46-96b4-4a51fb2fb500"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "1.25"}]], "Input", + CellChangeTimes->{{3.991712542905905*^9, 3.991712545766283*^9}, { + 3.9919641812561817`*^9, 3.9919641814730263`*^9}, {3.991965164548561*^9, + 3.9919651652528534`*^9}, {3.9921768048199806`*^9, 3.99217681251923*^9}, { + 3.992176878319977*^9, 3.992176879421753*^9}, {3.9921769608693676`*^9, + 3.99217697588414*^9}, {3.9921770630008926`*^9, 3.992177094219658*^9}, { + 3.992177130697548*^9, 3.9921771312696342`*^9}}, + CellLabel->"In[76]:=",ExpressionUUID->"b936a356-288b-fa49-9ce3-75db208c644a"], + +Cell[BoxData["1.25`"], "Output", + CellChangeTimes->{ + 3.991712577539974*^9, 3.9919641835911674`*^9, 3.991965166337839*^9, + 3.992176818433687*^9, 3.9921768803984604`*^9, {3.992176963662958*^9, + 3.992176976372555*^9}, {3.9921770642700615`*^9, 3.992177094793085*^9}, + 3.9921771327597847`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"0165794f-2386-f148-a7d7-30e9a748c353"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.85"}]], "Input", + CellChangeTimes->{{3.9917125549495907`*^9, 3.9917125609834213`*^9}, { + 3.9919641902090893`*^9, 3.9919641942126675`*^9}, {3.9919651710886517`*^9, + 3.991965171325409*^9}, {3.9921768219812813`*^9, 3.9921768295280533`*^9}, { + 3.992176902659857*^9, 3.992176951237955*^9}, {3.9921770404838505`*^9, + 3.992177121234913*^9}}, + CellLabel->"In[73]:=",ExpressionUUID->"d5b02e93-37c6-e046-a015-cd95d27ec9f3"], + +Cell[BoxData["0.85`"], "Output", + CellChangeTimes->{{3.9921769220361595`*^9, 3.992176951788004*^9}, { + 3.992177041926792*^9, 3.9921771218821983`*^9}}, + CellLabel->"Out[73]=",ExpressionUUID->"6ebdd3bc-b14a-6c44-a85f-021a358d64e5"] +}, 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", ",", "13"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917168703228035`*^9, {3.991964206647356*^9, 3.9919642192992706`*^9}, { + 3.99217714570965*^9, 3.992177145802763*^9}}, + CellLabel->"In[79]:=",ExpressionUUID->"7cc2507c-877d-4b47-80a1-806136a93537"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVl3k8VO8Xx0UpkWVmrDNjX4YWESVL56RIIS2WFFoQ+ZKUlKJIG1mjRCRL +kij7msgSSRRZU5FmbAklu5nf/f11X/d178x9znnO8/58PnInPA84c3Nxcf1Z +xsX1/6uP30EBLi5hnNvOHeRZOQxmps6tzAJhvHdz86ay90Ngcsj2F7evCGqs +bW+wrhqEcYXA5XIbSRhp03u3opMFp4LehD4dIKHrQlqJhAwL+OR+ujqnk/HZ +HRHl1hwmWPrr7lC0o6BWg26+fzMTasXPeUnJiWJ5rGxsSzkLVhrXCvn+EEXB +r7E7H74cgn+au7O67ovhpVtNnHWxo8DnkJPgeVgc50M+Cc9Mj0PDLtM7K0Uk +UOXzh0zp4D9wuI49vLJWAv+ppF9wdPgHpMCYBLgpidlt5i29obPgvWBvflFP +Ch9VJsXU7l+AxXy+A0McKfSW8nysXLMENlzNb6uqqNglJTXYvY8D9vxvt8Z7 +01BEzGIp8CsHgi0fcz3fQscXT7UPaZ7nwDG7F3WvxujYck0b1uiywS7l0bcV ++dJY1uC0bANjEdb5PXUp9pbBG7u2rMxLnAPL1WdnCiiy+GBhPlWAawbSzi9j +PvORRXO3FetnxKdgT1XmfplWWQxpIWmB9yT0WB6bblgrhx97i3ym1vwGv1Ur +jQTD5FDXxtPpmNEweD+sJ30elEOSRWavzD4mXDH3DdHeI48Xjnb/CLvXD2d3 +b9F9nymPDiT5xbjfvfBKUehU/3IFLKmjWXEt6wIJma7t0ScV0HjN25DyG23Q +OFsWV/dGAWctR+AT/0c4SctUXUdVRO7EJ6lObo1AORriuMFPEa0npruTretA +IvA6LbdDERPVjToyvN/AhmrPqy06Stgo9NKYzfcK4n94Hz8do4Q77z9vz2wt +ggmzm5e3/1bCdsHWmW8peXCo4zbkWChjo+gpvw8/s0EMnlxLylTGyr1n34nu +zwDW2zxPtTUqyC53yHE9nQqPHzTFDHuo4NWtfb0aa5MgZzfXVtUGFbQK27tR +xD4OWiWVbi1XY2Cgxq+PVrtiYM87R8tjNxhovSXBrftcJGRVv7Cd+MZA7VCq +wJkPISD7ZWQVDVXxNylM6+G5GzDSilsa4lVxbSRvRal7INRt75jjcFRxxjA8 +d+TxZeh3tBs/e1gYJ1NeHWw3HgbaNo/ZqM8iKFUpX+NoMghZB5NNfgaTsC1b ++8FKbxZsbW29xGtExnlHH0+lbiZssBDq2LmMgnsuBMqdyGJCaKP14aTXFKyz +dbWPUGYB68XDqneBotiqTvppGTUIV17xfsvQF8OCfkGbq1wjcLXBTzFtVgwl +n/xXa5o0BkOtS9HlheIYkZY3dl5rEnZsm5v60ieJ53pVpc/Pz0FJZ75FTqIU +LrjRTRkpi6DW81+o5TEqZorM3TDIYEPPij0B2VI0FPQfal/I58Bf9U2J8h00 +PP3sg0PTOw54H1IZyL9Lx9dHFacixtngcFX5wPF90hjCSjL9ZbQEO4UUUr+R +ZZBhKxkhPz4P4ltS93d0ymP77YK/TfY9MJJ8zqpMWwH5r4qQz2e0w+Sddx7r +YhTQnD34N6TgEzwIyeu/+FsBw7IEbQpkPkCFQbxxtqkino13UDtbWQ9iZ1ZW +eT5TRM3Y18aPzGsgVW7evGqlEur5PRsd2FMJTgfOTjw6qYQ2gvHSTWalUBfr +/9vmjRJ2hW0tUXpcAGlRt77OSiujyEAGZ1luDhSvFu9X8VfG5TbHQ6KmM4HN +vW7u5xdl/PyRNShY8QRqXgJ3iIEKmiTlZ1BckoHhxTrJ91AF/5af2kGXToA3 +uaQ+sTkVdFtwOcDz4j6Ee9V65NkwkL+0WlZ6511YMOKzYeQxcDqaHpuVFwas +ZjONm0KquPD539Fb87dgRaeo7FkPVTw281+gt1UQHAq5I+H0QRWtrxfLvlx5 +FdZNdPpvXS+MWRfV19wOGgZNU8ezjekieEnsAiMzaBCa9aLSue1JaPqjbpNF +Ggs+qTXy2FDIaDhiHdozywRaia9MexvBW6vtbPVMJkykNjQfD6Ogb23TwIm/ +TLByXCl5dr8oBhTyr+miD4JhIHM6UkgMPfbPF3tYDEPZ0gnX1/ViOHq5ipcv +6hdclLB5IHpbHIvP2QtuiZmAzO9vG8LyJbHe2LK2x2gO7g/f3hvjLoXVSW35 +OzgLQK7X9ZTeSMWwXhnzYX02SPCEKhSPUZFMtWiJCuZARqLffw5PaJigVuYy ++4UDVzoGvNSd6ahBmjfP0eHAd48RfiEZaXwQNHYlr24JPnb14dkBaXT771av +esQC7MSxun1v5PF1cKzSjaQvcNBx+3dzugLuir6TUP2hA663f+w86q+AM/uv +xQ7EtkLumyIDmS4F5H112os7uhlI6+VL3DcR83TmVKmRwDu4N9gg0nJXEX/u +2GfUbVoLDvuhUGdcETWmvC4P36yC3asntxRbKGHonwCfhyllsNFgTmUgUwm/ +9e/RO51XCHvGb65L5FVGH/WY4Y2puXB7wkLY/aQytspZHZV3yoLVyUMGhjXK +qHQkvn90KR0s9eZ0DiupoA+LJ/mJYwr8vN7t73tdBf9p8C89i0+EEv9ggcd9 +KkjT4RpdXIiFnDrvS1+QgaVGzw/zQjSk3Cqyqn3IQD+nTZBvGAHvGvyN9GYY +WLC0fvWUbTCQbAMo9daq6Ppz13SA/XVI3sBSEStQxR360c5aXgHAq3Hhii03 +CZ0Gdmz5LTgIIf/ljtQVkbCS43DFcxcLkn2/TBaeJ+MlXd3i9iombGelhRZs +oGDUPTenzSVMYEz+ZPaOU9Dj5BY/vlMs8JlXd5XLE8UZdXnhVeJDUDajUld1 +SgyrtOh2/DUj0FP3bV9TsxTGpQykr9u6BDiW8Cwkkoo/s6J43ZZzIGHVqq+p +u2h4UIPMmmnhwLbq4WYWLx2LQzWuHX3KAbceN0udKjqSQ06Le8ezQZC1kS+P +pYr8U4N1L3f5w/4i0boEMWFcGe5yNzZ5GCr2O7xkRYjgc5lqdnfyIHxTD26P +MibhS6eA8mcVLKB3GplwFkj4lPS1Q5ufBXd/bdhJryBj85KS/jmCxymRy/hq +vCkY5Om1tOU7wWcDAyPjraK4KbtkS94IC9IGLHlWzIniCqqcz/GlITgkYR1i ++lIMN9MF6MEivwDLg+INvcTxQvdkYZ/xBDjkZOexEiTRadNZcvvwLNw4+9ec +11IKdeTtFaufLcBtg5RjPBJUPPLh9seGZWwoWbb+n14nFa3u0HwXT3PgmmXy +gcVQGvpdMjzQ8Y0D10UNt3rspaP2yZUvww9xQNa5aciZVxqH7vhvtCd+f7+i +Ukj/vTQK9iydedy7AF92krgEi+Txqp6atYNRL6zayUgTF1HAA+ECZQ+dO2Hv +pc+hc14K+KFX4LLvmjbY9rXkvz9NCujevdaBfrCF8AusM2Yqitj/TWubTOk7 +sEx9VnblliKOvl0xm9JSC3rD/UNTPxSRXPXOZfNiFeifzDmyY6cSBrH3cq2x +LAemUHFtRpIS/ggtP1SDRUB/xGvpOa+E8hsGn5rJ5cEZx18qgkeU8fQrd+cV +8tkgPGHcN1GkjIP97M0qT54CfZm1paGkCkroT8RrDaZAteDBYA1fFdQfcdjj +cOwRFAzUpjh9VsEEGd53pMwH8Ga8ieuMNgNN9V7z+7yJBh/GGqu7kQw8Yyfg +vJ0vEsqM7reIjjIwrvDNbmmREJCMLwz3MlXFYIHk7CrWdXgbEK3u+VQV+Sov +tCuOBUDUlrPl50dFUPfzrR6XtYPw8OgzSavHJDSwEivQt2fBmJLNZgd7Mi69 +ZhdyNzGhROpw7qI4BZULO5dW5zKh5ytddlsnBVX+5t9vNWLBi8/OMf/iRDFR +csC799Mg0A7HftI6KIaCSx8ioo+OwLu9u/dtK5JC7Us+n7eOL0Kh4/KHnhep ++LlDYsSwiw16K5+9YGjQUDR0bVBDDQckfAWLrv+moaXZ5vz7ZRzwlHxH9XlG +xyCr4BKft2zYpPNNmL9HFe8Gyr44o3gFblzZW/liHRn5vhsckhtiwpOg2vnQ +ETKu3v6gSo7Qi23FETFc6RRccrfIliHOh3Twp1+Jp0SRxOO9+4jVIDza1+a/ +1YSKaUY8KR7ebPBdPrpfczkNbz2O1I1+zIFmls31qgoa6sUU2E5+5oBv7I3M +yct0vJdBlcgU5YDVh6PZa8LJqL1HMrG8mAmNueMu7kYU5IFLt9lvmOCzPOv5 +5VWiOBIvF3UwkgVNPtolTzKo6FjS5pS8jgOLfC78Mg40XHO53T6kiwNO/HWD +JjJ0NPAxbN4SyYGR6KBltn9VMVY8TdLAyw+c4gpc9/ILo+3499qQnGHgbv/y +wfu6CI78Jd0Syh0EluoKD1s9EnZE7b+c2MiCHdlBbm3jJPR0Cf43Q2FB881g +6ze5ZOxzy/pw7AUTFnil08+5UrCyX/bL6Q4mZKgdOrJxvSgaLh5UL2tlQUdM +KF/lmCiamXlbTLcPQfoTCyopVQzlJE4qFLWNQppAPLXbWRzLFEv5xmUnoEQi +WSU6ShKXYoZ7vctnYbEow7xylxS2O8vKCF9ZgOpZq+5//FQUcvHWZP1YglWB +S/bs91T8GvzisN0xDky83GT8PoCGMRoDo3kEH3i1J2kCO+i4TJvGNnHhQNUx +AxuReTrW9ToHiEmzYU5dfUa2Uhpfbngf8YR7EZTrFRPdc+SRdMySERHXCycK +Ht5cXK2AsVS35C95nZBvZu1i7K6APso/Nu/c3QbLR0u57eoV8Hbwk92fClog +StbEXF9OEY3qWr9pijSC1jKpiI5ARax+sSWljFQHatr53G29inh61jSHT+cN +aFMiPYK3KeHzacb0uRflgHOi0fzxSlgjoeW5I7gIbp5/63JoSgld022DnxzP +g58JZZuOWimjzWJXb+O1bIgW99FoyFHGOy9bBG7OPwVup+UnNpNVsNamz/OQ +WirktglFhJ1TwSY9Xgn5ukeQd//HmHGzCj4Kbqz6wx0HjcvndpSpM9AgPPzq +NE8M9F0ssZwLYeCca/KuzdsiYdP1FAoPk/Bz4cJ/kk6HQILux/dvjVRRRJIl +UbruBnSpuuVTk1WxZr/Wat91gdBRNt7N0yeCDuYrPTq2DkKarVIu7R4J7cWY +d4NcWUBejDmkuZ+Mr7PGVGxamfC3oKDmsQAFrx6z7nMh5mmTpW7F70aCF7xH +ggq0WdD4JiDze5gorpUbvbaCmE9z/pbO37vEcPKcub6/+ghgNNti5pkUGps0 +hZHeLcKEdAn5hDsVhSnmrWVVbAi56Ss+qkRDE647jVavOHDz8+NnB3/QkM+m +pDivmgN/dC5yKI/oeGWANHD8CxuM+wtiittUUb7t7iaDe1fguWVo/zVZMo7t +dOAymWBCH11mjcZ3Mm5dTX3a94wJseuzNHLjKPh3jne+ic0EXZ9f3LftRfH8 +SrqLAFF/F/+t6bX6VNTO2xsua8uGhqDysqlZKko5Hzhy4x4H9AxHLkTk0jCr +TcZhjji/i0Va4ZFn6Dg2TP4XqcKBy6mJLf2BZLTtWXV++Ssm8JrtuSSsS8GD +tJu6dcR9y6UGk3WLFFx9uEBdzY8FvJrDGx8kUNEkxS97uSQHzIK3ePcfoGGh ++q6MAoI/n07afBEn03FlSP59kwTie/qHb6wYU0X75BcRL7/4gc2Bzxq+DWRM +v2UeI/CcCbulmP+RAiloPXpq11eCj67X7EJ9f1CxQPrk9lI/DojOCR5dH0fD +14N8smNfOVBvIUkJOUXGB03bc9a+ZYJfAOfRIQUK8k1ZVewtYMKvW11GJ/Vp +GBlt/ONgIwee0/2qC+dp+Md6wehSLuFvhk8NDf0jY09gZcA0wV+1G1LDnkI0 +LPEu+VaWyYFjd+oiJ9/RsOH33Kd+wh+pz8jd2RpPRqNjjaPsfCZEiN+zathH +QQEG1wNmPROyQu6n2J2iYarCU2tfwl93jWT5Z82pourvMy8PrPKDsdXXdZ+u +EMa458oL7OJheHJf6mv5FRFkvA5YlVsyCCPKNToV2iR8THekMj6xwPpByuWK +YRI+2jlfuCjJgl9tRUfJWWR8+n5WM/gl4QcNs6ZMT1Cw07I+5Agx35uTnU8q +qYji99OT/ynUs+C0R4YAbUgUW2xvfkuvHoK97k2O/xLEcNf9BFOTwlGw1lay +Uzwmjra7eVyUBCeA2SR1YviOJNbmSl1XT5sFHdugDw+3S+GBxUqNJZcFONrx +UnR8BRVPjoY3y7UtQU6V892jb6kYf932cDHhh9K/LlbmXaLh+3SdTfoEDxtq +G8KPGNCx7ROM2RB+KvLbecHBv3Qc2tzvqbaODWrDLDdyqTQGBNISfUUXwWzV +i9GH2fKotjCuN1fTCxHu7TO/Vyqg3ccZw0/dncDSjv3sfkoBgzr/arm5tMGg +l25zZK0CeljZCYmxWsBP2ldPS1oRr6onvXtq0AiKGw/4cl9VxM7zKxgxWnUg +9+WhUHU34ZdSPJPA+g1ojl71ydJTQm/B75cpveUw5mE0rx+rhLev3hDoyS4C +vePpk2aTSqjZ+IujdC0PHpUml946oIw3lspM0vKzwfL5mp78bCJvFAqFPlXK +AO97X1w3CqtgTvLHFkOzVGBs/h1VfkYFf5Ze0OGafQQaZ7zIOu9VsNzCfaBb +PQ72CkU4f1/HQK76QOkQpRgQlQv/vO42A9W7no1NHoqEM6mM4rl+BsL8GOtr +Ygh8C7F3mzRUxYpddlUC+27A8StW/yYTVVF8vVriZbNA8PXbMLynRwT7784c +kdw+CBnWA34BESRMHImgbDvNAuXB/FM0UzL+leLZ87KdCcLcP5r+8BI8DNII +3p/NhGMRDfz1tRQ0GSGTeTaw4JBOeOHnW6K4n3Hl3irCz7MGRnpMDcUweU7W +6Iv4CPhpd7e0pUrhstHtVwsLFyFsUWTfkZNUfJHSlRlfwAbNt/2mZrI0dJhq +LDAq4YA+t5uCXi8N434K/Tv6lgP5DRZeTg/oaEWXLItksqFF+3FH2EdV3Pg4 +nbq9+Qq8hud/3KXIuN1bi+v6FBPYbmZiQd1kLHX6eGGa4GGtq25AcDQFx6KP +0heI/N3wa26Nv40opjuvpVoQftFnuE9TaTMVpw+GcMubsuFMjcK41V8quggN +YkYEwWPP/Emf5zRU/OYjEd/DgQpjAa4+Nzru7igv3bqRA+Hhr/reXyZjXKPx +TrvXTFCMuxB0QouCFSBS6FrGhMVC69jl0xRs2Ph16eJZFqQK7fCIuk/F+pte +cx2CHJhqSMowNKehelH+unOtHLgdI2vFEaDjNu4THn+TOXAjyqj+y7AqHqnJ +vu8v4g/eScv03leT8QV3ctcLgoc+VufKRi5RcK1Mec/vAWK/qmurenqpuFli +2nrmPAealLu6KNE0lCzt0wsizluPro6StyOxv55NpivfMSH+w7qMTDoFc5ev +vvcgjwkx9XipfjMNPyzLkl5bz4ETpkb6iVM0vFmvd4pRRKxvc+yk7gQZ3cbN +L/oSPGytvUb/xEdDl4yWLzVPOCBeGr66u4aGhqeDPEKIegx/YIJCDBnNWwOC +3hcS/HOqdpAyJfLp21MKvbVMsGxkd1Q40pBR/f65NNHf4/Cg8tq0KrauuG4Q +q+8HOVvtzD2LyfhSZ9lhW2L+tl5zaxq4ScNzeX+2s4h6Olxule0lUXDfJWrE +E4J3P4xFBoLXEuuv7xFeV8WB6o+TPN9/EvPg5v/nNzEP1yly7KfFNMxxj3QS +6+SAa8mV1zO3yFgcvqWquZQJQ2ya12ugoEzAmL1ZJRPSdrdAwCEabj9udOxV +Bwd0VzxlqDSTMWCD7edQon6H90ZMoyQa9kgoylMIvXHY1HqPV5WCo/SA7+uL +mGCWoP/9/gIZdZJ3b48j9ivTflFs9UcaHrYVLZ9p4gBNgOeSxWMyJiR27bUm ++r/cdMPphdM03J8f7h7fy4G999/odSyq4o0+mVenP1+GvJr/Utu4hZGv7k9h +cfkw+MyUOn2/LIJxxRWOQa8GwV0pRXpck4SWuuQAr88s6FujeT2PRcJGSff2 +WzQWXLpk7qT/jIx/bFYkq+Yw4fXRv1SdoxRkhBrNOn9kgr/dr1EZRVHMjktQ +83rDgjLbzeF7mKIIZnVxEqVDkNKyetVgnBh+iF48sDF9FHLeuS3uthfHR6m5 +l5uWT8Bius1VSrAkSuTFvr/1YBasM8+sCdkmhUTcCmPaLcCGut78UW4qcvv6 +8619vwTX++LWRdZQsXO+M6vFksjT3v1+6RdoOFV0NXiQ6GdGaMGuIF06Op1N +Kn7vxYGLdNLIpwk6Rtnu5JHfxIaauuo0gSJprPy0ralTehG+Z/y5uylLHp8c +Kaox7O6FdJOzG115FXBwp2z88bFOuJq5hZ/LVQG3GDR4hfm0waHC+U1raxQw +ZrLcrI3dAl6JUZo5NEV04D2ouXSwERJ2nT79wF8Rj5wd9okxqgPaBuH7W7sU +MUWzu8nD+Q3kdMzMG+gqYfNIgQbX33LYyfia3X5PCQ+QpZT1qopAzOb+5vpx +JVRVa3K+fDcPFnbdW6TuV8YmUl7/hqZs0D5v+0I1Sxl7Pj5bbaWXAes37HLP +FlTBBvGk3XvtU8HJxT76gKcK/jf+OipcJAkmenXSc96pYJdszeX/jOMgknJ4 +2mstAzuyroy7bo6Bjf8uxry9ycA/Ya3rjp2MBMH8/1ad72NgRsgGt4TCEOBo +ppXe3K6KayMa45uO34B0hqmYfQKRrwPitaLtAmHP1w9nTneKYNO2VWkVOwdB +zar6RF4oCR3a783LerEgx27HWRETMvJHuqae7GRCUsbFT9TlFGxpGV36nMWE +6SyhTflvKMjcwL69XY0FSX8pei3XRfGPx0i8UtwgaH68aHcJxLAzXCdcUWAE +4m++Fap+LIUSaZv6pp4vgt3ott82jlQ8kzWfd+4FG3hZoiw/Og0vpK9kqxD8 +kYjb27ehm4ZiFvwm0g0ciInUUwu9R8fwA7R990fYQOm7NzPbrIo73u1pHhm5 +AiaFugvHxYnzNem38HyaCWEiA1JZHWS871bQKEic38M3A5+ej6RgcvOlzyrE +c8GMgOgLlqKYZFDcGqI4CDu71nyS20TF5Y9bWAI72bBzwCb45gQVRe2eaqSF +cuAD74MXbhk0VBpSiNxP+LlHgrMlK13pGJb7ce9lLWK9y82Gqy6ScfTBy48x +BE/yQPD2HQ1CHyoKzfYQvLnblvh64g/hz0i1gqUeLDjL9uQPj6airPqIYwYf +4Y+G2gzP7aHh+qdra/Q/ccBx7QrSXz46+v6MtcxN40Cjnt6Q8ZAqnprPpoes +8wce4wcwVUlGh/mmJgFiPwTOlfV3XKDglsKr10L7mfCzf/Ywfw8VP3lnLg88 +y4GnFa/urYqk4Qb+ftVCgqdOOfXrTx0jo0TgPsHARiaoetdktUlR8HleV0VT +LuG3B70ps5toyHWnnz+wjgMGP1TnIicJPqZdC3Mh9Fvs6/ppxzEy2lNbZk2I +/qb/LCpetpKGsk/IrzVTCT21OFffVEUj/G4e7W0boU82H9Mkosj4rSpOpZLg +pR6/reMOEwq6X9/f71JD+NcRTa/fx2iY9mNF2ZFuwj8Oh/WNTaliUW/k9Fdr +P4C+P/sfFJBxqO34eBehDxRJi+DOIBpO9vova/9/PYLSlReEKKhxFt8uI/Sh +6KSRfxmDhqZ7p1RMXnNg/4Xbq1b9IOPmxj7DAUIfjj1fUf6wgIa+Ve7KwkT+ ++bNesP7XdTI2hPZbMAk9v/Ak//ygPgU9Hw558RB6f/EUT0+OFQ1FYza+qmwn +9uu5wfp978l48IKXfQNRv+4JtZStCTQ041qzcJvg2Vi3a7y6MgVd3iYzthJ6 ++MWwbaBylli/T7DCDkIfbkz1tS010dDPOumPdzNRb+DdazsTyRgV7SymTOSJ +LrcTq9a503DE25gsQuhDNBbbbV9QxbL52GzL35fBfr3skZEXxPtM+6EJIr++ +N5bgqfQn9Ib1YOkq0Y9rR0wb3vFRUDTn4MdOol+etYUih3uJfKR8mDRI1C/W +3awV9IKGoWGLK1qJfrNm3Tan1JHxohy62xLrm4j4S5W7T8NYv0uhSPzfXATX +mMhfMrI/zJvmE/UGZDbqh52kYdKuWq02Qs8dRm8ITQTTUKf5d87/9VpL7Qin +cJCMq+Xrq3mI9587CCuyP5Ix9lPRisPEfZDWccaBFBouPhOJDyfqq/j3pMeD +TcZuxynWLPH9jWvn2xq9aNgWf9NJlOjn6l/vpf5jE/kppLX2cdll+B+RnrBC + + "], {{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwl1WV4l2UUB+BRSod0M7q7U+mO0aHAAKVHd1u02IqddIlYKN2dtogiiCiI +2O19Lj/cO79znnHtz/Oed0tMTkkanSohIeGGL1Hn+lKUY/JielOD1KRhnrNi +HJeX0IearDBrwU/ya8wmLXebJXJCXkpfarHSrCU/y5uZQzruMSvOSfkB+vG6 +Pik+H9v1tVklt+KXOGe/PIRczNW/q/YhAx8yif3mx9SRFOQ8s7jJ/F61BBc4 +pT+ljmGZvFsdyGWy8wlTucbtzreoXblEat5nAlfZ4fywOowr5OMcM7hOHeer +1dZc5Ff9GXUcW+QD6p3k5jOmM8/8PbUvGfmIyRwwP66OohA36+9TS3JafpA9 +cjI5uEP/htqNNOzU12WN3Ibf4jyeIdv0/cjEQX167pdLcUZ+iP68qe9OWnbp +67FWbsvvcR7PmAzMNyvNWflhBlCfdWbt+EN+K54NGVlgVibuV36EgTQgEwvN +y/KB/CjJNCQzWcjKIuflYh/kxxhEI7LFrpuXj7uUH2cwjVlv1p4/5bfjPske +u29WgY/lJxgSn1Xfg3Ts1jdhg9yBv+R34s7YHntDZg7pc8S7IVeM3ZKfZK88 +iFvi+cfPVnvGrrJHf0QdTn5u1W9UO/K3fFYdz1b5oHoXeZiv3xHPnSzx2ZnC +YfMTavwi+JbCfMFsfojPEO+iWomv+FR/Wh3LdyzX71MH8w0543uYxvfx8+P/ +rvbi69jLeE5MZK+zo+oICvA5M7nNfJPaiX/ifeaQPJS8LNDvVPuTlSP6nCyT +K8e7Ij/FULbqe5Oeffqm8TtK7sy/8S7F/pAr3hGzKpyTn2YYzcgdO25eNT6j +/AzDaU4e8pKP/BSgIIUoTJHYb/+uGuflZxlBC4rGLptXjzuXn2MkLSkWu2xe +gy/l5xlFKxJjh81rckF+gdG0pnjssHmteF7yi6TQhhKxr+a1uSi/xBjaUjJ2 +z7wOl+SXGUs7SrHcvG48Q/kVxtGe0nHX5vW4LL/KeDpQJu7RvH7shryCCXSk +bNyjeQOuyCuZSCfKxT2ZN4ydlFcxic6Uj3sybxT7J69mMl2oEPdk3pir8hqm +kETFuCfzJlyT1zKVrlSKe4p3KXZWXsc0ulE57il2kuvyeqbTnSpxT+ZN412R +NzCDHlSNezJvxg15IzPpSbW4J/Pm/ChvYha92GzWhfiDvE1ZxC55ANk4qj+p +plAkdoM5qf7/G17d2X9hl/X1 + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgEAURMEvGtiGrWhgYmQJBsKBcOBZuRWogWAJBpMsPHa6Jc/rWUWU +JiKmVI71jk/VT7X3zGM/5C3v6flTvIPjOI7jOI7jOI7jOI7jOI7jOI7jOI7j +OI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7j +P+IX4SKFKw== + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl3k8VO8Xx0UpkWVmrDNjX4YWESVL56RIIS2WFFoQ+ZKUlKJIG1mjRCRL +kij7msgSSRRZU5FmbAklu5nf/f11X/d178x9znnO8/58PnInPA84c3Nxcf1Z +xsX1/6uP30EBLi5hnNvOHeRZOQxmps6tzAJhvHdz86ay90Ngcsj2F7evCGqs +bW+wrhqEcYXA5XIbSRhp03u3opMFp4LehD4dIKHrQlqJhAwL+OR+ujqnk/HZ +HRHl1hwmWPrr7lC0o6BWg26+fzMTasXPeUnJiWJ5rGxsSzkLVhrXCvn+EEXB +r7E7H74cgn+au7O67ovhpVtNnHWxo8DnkJPgeVgc50M+Cc9Mj0PDLtM7K0Uk +UOXzh0zp4D9wuI49vLJWAv+ppF9wdPgHpMCYBLgpidlt5i29obPgvWBvflFP +Ch9VJsXU7l+AxXy+A0McKfSW8nysXLMENlzNb6uqqNglJTXYvY8D9vxvt8Z7 +01BEzGIp8CsHgi0fcz3fQscXT7UPaZ7nwDG7F3WvxujYck0b1uiywS7l0bcV ++dJY1uC0bANjEdb5PXUp9pbBG7u2rMxLnAPL1WdnCiiy+GBhPlWAawbSzi9j +PvORRXO3FetnxKdgT1XmfplWWQxpIWmB9yT0WB6bblgrhx97i3ym1vwGv1Ur +jQTD5FDXxtPpmNEweD+sJ30elEOSRWavzD4mXDH3DdHeI48Xjnb/CLvXD2d3 +b9F9nymPDiT5xbjfvfBKUehU/3IFLKmjWXEt6wIJma7t0ScV0HjN25DyG23Q +OFsWV/dGAWctR+AT/0c4SctUXUdVRO7EJ6lObo1AORriuMFPEa0npruTretA +IvA6LbdDERPVjToyvN/AhmrPqy06Stgo9NKYzfcK4n94Hz8do4Q77z9vz2wt +ggmzm5e3/1bCdsHWmW8peXCo4zbkWChjo+gpvw8/s0EMnlxLylTGyr1n34nu +zwDW2zxPtTUqyC53yHE9nQqPHzTFDHuo4NWtfb0aa5MgZzfXVtUGFbQK27tR +xD4OWiWVbi1XY2Cgxq+PVrtiYM87R8tjNxhovSXBrftcJGRVv7Cd+MZA7VCq +wJkPISD7ZWQVDVXxNylM6+G5GzDSilsa4lVxbSRvRal7INRt75jjcFRxxjA8 +d+TxZeh3tBs/e1gYJ1NeHWw3HgbaNo/ZqM8iKFUpX+NoMghZB5NNfgaTsC1b ++8FKbxZsbW29xGtExnlHH0+lbiZssBDq2LmMgnsuBMqdyGJCaKP14aTXFKyz +dbWPUGYB68XDqneBotiqTvppGTUIV17xfsvQF8OCfkGbq1wjcLXBTzFtVgwl +n/xXa5o0BkOtS9HlheIYkZY3dl5rEnZsm5v60ieJ53pVpc/Pz0FJZ75FTqIU +LrjRTRkpi6DW81+o5TEqZorM3TDIYEPPij0B2VI0FPQfal/I58Bf9U2J8h00 +PP3sg0PTOw54H1IZyL9Lx9dHFacixtngcFX5wPF90hjCSjL9ZbQEO4UUUr+R +ZZBhKxkhPz4P4ltS93d0ymP77YK/TfY9MJJ8zqpMWwH5r4qQz2e0w+Sddx7r +YhTQnD34N6TgEzwIyeu/+FsBw7IEbQpkPkCFQbxxtqkino13UDtbWQ9iZ1ZW +eT5TRM3Y18aPzGsgVW7evGqlEur5PRsd2FMJTgfOTjw6qYQ2gvHSTWalUBfr +/9vmjRJ2hW0tUXpcAGlRt77OSiujyEAGZ1luDhSvFu9X8VfG5TbHQ6KmM4HN +vW7u5xdl/PyRNShY8QRqXgJ3iIEKmiTlZ1BckoHhxTrJ91AF/5af2kGXToA3 +uaQ+sTkVdFtwOcDz4j6Ee9V65NkwkL+0WlZ6511YMOKzYeQxcDqaHpuVFwas +ZjONm0KquPD539Fb87dgRaeo7FkPVTw281+gt1UQHAq5I+H0QRWtrxfLvlx5 +FdZNdPpvXS+MWRfV19wOGgZNU8ezjekieEnsAiMzaBCa9aLSue1JaPqjbpNF +Ggs+qTXy2FDIaDhiHdozywRaia9MexvBW6vtbPVMJkykNjQfD6Ogb23TwIm/ +TLByXCl5dr8oBhTyr+miD4JhIHM6UkgMPfbPF3tYDEPZ0gnX1/ViOHq5ipcv +6hdclLB5IHpbHIvP2QtuiZmAzO9vG8LyJbHe2LK2x2gO7g/f3hvjLoXVSW35 +OzgLQK7X9ZTeSMWwXhnzYX02SPCEKhSPUZFMtWiJCuZARqLffw5PaJigVuYy ++4UDVzoGvNSd6ahBmjfP0eHAd48RfiEZaXwQNHYlr24JPnb14dkBaXT771av +esQC7MSxun1v5PF1cKzSjaQvcNBx+3dzugLuir6TUP2hA663f+w86q+AM/uv +xQ7EtkLumyIDmS4F5H112os7uhlI6+VL3DcR83TmVKmRwDu4N9gg0nJXEX/u +2GfUbVoLDvuhUGdcETWmvC4P36yC3asntxRbKGHonwCfhyllsNFgTmUgUwm/ +9e/RO51XCHvGb65L5FVGH/WY4Y2puXB7wkLY/aQytspZHZV3yoLVyUMGhjXK +qHQkvn90KR0s9eZ0DiupoA+LJ/mJYwr8vN7t73tdBf9p8C89i0+EEv9ggcd9 +KkjT4RpdXIiFnDrvS1+QgaVGzw/zQjSk3Cqyqn3IQD+nTZBvGAHvGvyN9GYY +WLC0fvWUbTCQbAMo9daq6Ppz13SA/XVI3sBSEStQxR360c5aXgHAq3Hhii03 +CZ0Gdmz5LTgIIf/ljtQVkbCS43DFcxcLkn2/TBaeJ+MlXd3i9iombGelhRZs +oGDUPTenzSVMYEz+ZPaOU9Dj5BY/vlMs8JlXd5XLE8UZdXnhVeJDUDajUld1 +SgyrtOh2/DUj0FP3bV9TsxTGpQykr9u6BDiW8Cwkkoo/s6J43ZZzIGHVqq+p +u2h4UIPMmmnhwLbq4WYWLx2LQzWuHX3KAbceN0udKjqSQ06Le8ezQZC1kS+P +pYr8U4N1L3f5w/4i0boEMWFcGe5yNzZ5GCr2O7xkRYjgc5lqdnfyIHxTD26P +MibhS6eA8mcVLKB3GplwFkj4lPS1Q5ufBXd/bdhJryBj85KS/jmCxymRy/hq +vCkY5Om1tOU7wWcDAyPjraK4KbtkS94IC9IGLHlWzIniCqqcz/GlITgkYR1i ++lIMN9MF6MEivwDLg+INvcTxQvdkYZ/xBDjkZOexEiTRadNZcvvwLNw4+9ec +11IKdeTtFaufLcBtg5RjPBJUPPLh9seGZWwoWbb+n14nFa3u0HwXT3PgmmXy +gcVQGvpdMjzQ8Y0D10UNt3rspaP2yZUvww9xQNa5aciZVxqH7vhvtCd+f7+i +Ukj/vTQK9iydedy7AF92krgEi+Txqp6atYNRL6zayUgTF1HAA+ECZQ+dO2Hv +pc+hc14K+KFX4LLvmjbY9rXkvz9NCujevdaBfrCF8AusM2Yqitj/TWubTOk7 +sEx9VnblliKOvl0xm9JSC3rD/UNTPxSRXPXOZfNiFeifzDmyY6cSBrH3cq2x +LAemUHFtRpIS/ggtP1SDRUB/xGvpOa+E8hsGn5rJ5cEZx18qgkeU8fQrd+cV +8tkgPGHcN1GkjIP97M0qT54CfZm1paGkCkroT8RrDaZAteDBYA1fFdQfcdjj +cOwRFAzUpjh9VsEEGd53pMwH8Ga8ieuMNgNN9V7z+7yJBh/GGqu7kQw8Yyfg +vJ0vEsqM7reIjjIwrvDNbmmREJCMLwz3MlXFYIHk7CrWdXgbEK3u+VQV+Sov +tCuOBUDUlrPl50dFUPfzrR6XtYPw8OgzSavHJDSwEivQt2fBmJLNZgd7Mi69 +ZhdyNzGhROpw7qI4BZULO5dW5zKh5ytddlsnBVX+5t9vNWLBi8/OMf/iRDFR +csC799Mg0A7HftI6KIaCSx8ioo+OwLu9u/dtK5JC7Us+n7eOL0Kh4/KHnhep ++LlDYsSwiw16K5+9YGjQUDR0bVBDDQckfAWLrv+moaXZ5vz7ZRzwlHxH9XlG +xyCr4BKft2zYpPNNmL9HFe8Gyr44o3gFblzZW/liHRn5vhsckhtiwpOg2vnQ +ETKu3v6gSo7Qi23FETFc6RRccrfIliHOh3Twp1+Jp0SRxOO9+4jVIDza1+a/ +1YSKaUY8KR7ebPBdPrpfczkNbz2O1I1+zIFmls31qgoa6sUU2E5+5oBv7I3M +yct0vJdBlcgU5YDVh6PZa8LJqL1HMrG8mAmNueMu7kYU5IFLt9lvmOCzPOv5 +5VWiOBIvF3UwkgVNPtolTzKo6FjS5pS8jgOLfC78Mg40XHO53T6kiwNO/HWD +JjJ0NPAxbN4SyYGR6KBltn9VMVY8TdLAyw+c4gpc9/ILo+3499qQnGHgbv/y +wfu6CI78Jd0Syh0EluoKD1s9EnZE7b+c2MiCHdlBbm3jJPR0Cf43Q2FB881g +6ze5ZOxzy/pw7AUTFnil08+5UrCyX/bL6Q4mZKgdOrJxvSgaLh5UL2tlQUdM +KF/lmCiamXlbTLcPQfoTCyopVQzlJE4qFLWNQppAPLXbWRzLFEv5xmUnoEQi +WSU6ShKXYoZ7vctnYbEow7xylxS2O8vKCF9ZgOpZq+5//FQUcvHWZP1YglWB +S/bs91T8GvzisN0xDky83GT8PoCGMRoDo3kEH3i1J2kCO+i4TJvGNnHhQNUx +AxuReTrW9ToHiEmzYU5dfUa2Uhpfbngf8YR7EZTrFRPdc+SRdMySERHXCycK +Ht5cXK2AsVS35C95nZBvZu1i7K6APso/Nu/c3QbLR0u57eoV8Hbwk92fClog +StbEXF9OEY3qWr9pijSC1jKpiI5ARax+sSWljFQHatr53G29inh61jSHT+cN +aFMiPYK3KeHzacb0uRflgHOi0fzxSlgjoeW5I7gIbp5/63JoSgld022DnxzP +g58JZZuOWimjzWJXb+O1bIgW99FoyFHGOy9bBG7OPwVup+UnNpNVsNamz/OQ +WirktglFhJ1TwSY9Xgn5ukeQd//HmHGzCj4Kbqz6wx0HjcvndpSpM9AgPPzq +NE8M9F0ssZwLYeCca/KuzdsiYdP1FAoPk/Bz4cJ/kk6HQILux/dvjVRRRJIl +UbruBnSpuuVTk1WxZr/Wat91gdBRNt7N0yeCDuYrPTq2DkKarVIu7R4J7cWY +d4NcWUBejDmkuZ+Mr7PGVGxamfC3oKDmsQAFrx6z7nMh5mmTpW7F70aCF7xH +ggq0WdD4JiDze5gorpUbvbaCmE9z/pbO37vEcPKcub6/+ghgNNti5pkUGps0 +hZHeLcKEdAn5hDsVhSnmrWVVbAi56Ss+qkRDE647jVavOHDz8+NnB3/QkM+m +pDivmgN/dC5yKI/oeGWANHD8CxuM+wtiittUUb7t7iaDe1fguWVo/zVZMo7t +dOAymWBCH11mjcZ3Mm5dTX3a94wJseuzNHLjKPh3jne+ic0EXZ9f3LftRfH8 +SrqLAFF/F/+t6bX6VNTO2xsua8uGhqDysqlZKko5Hzhy4x4H9AxHLkTk0jCr +TcZhjji/i0Va4ZFn6Dg2TP4XqcKBy6mJLf2BZLTtWXV++Ssm8JrtuSSsS8GD +tJu6dcR9y6UGk3WLFFx9uEBdzY8FvJrDGx8kUNEkxS97uSQHzIK3ePcfoGGh ++q6MAoI/n07afBEn03FlSP59kwTie/qHb6wYU0X75BcRL7/4gc2Bzxq+DWRM +v2UeI/CcCbulmP+RAiloPXpq11eCj67X7EJ9f1CxQPrk9lI/DojOCR5dH0fD +14N8smNfOVBvIUkJOUXGB03bc9a+ZYJfAOfRIQUK8k1ZVewtYMKvW11GJ/Vp +GBlt/ONgIwee0/2qC+dp+Md6wehSLuFvhk8NDf0jY09gZcA0wV+1G1LDnkI0 +LPEu+VaWyYFjd+oiJ9/RsOH33Kd+wh+pz8jd2RpPRqNjjaPsfCZEiN+zathH +QQEG1wNmPROyQu6n2J2iYarCU2tfwl93jWT5Z82pourvMy8PrPKDsdXXdZ+u +EMa458oL7OJheHJf6mv5FRFkvA5YlVsyCCPKNToV2iR8THekMj6xwPpByuWK +YRI+2jlfuCjJgl9tRUfJWWR8+n5WM/gl4QcNs6ZMT1Cw07I+5Agx35uTnU8q +qYji99OT/ynUs+C0R4YAbUgUW2xvfkuvHoK97k2O/xLEcNf9BFOTwlGw1lay +Uzwmjra7eVyUBCeA2SR1YviOJNbmSl1XT5sFHdugDw+3S+GBxUqNJZcFONrx +UnR8BRVPjoY3y7UtQU6V892jb6kYf932cDHhh9K/LlbmXaLh+3SdTfoEDxtq +G8KPGNCx7ROM2RB+KvLbecHBv3Qc2tzvqbaODWrDLDdyqTQGBNISfUUXwWzV +i9GH2fKotjCuN1fTCxHu7TO/Vyqg3ccZw0/dncDSjv3sfkoBgzr/arm5tMGg +l25zZK0CeljZCYmxWsBP2ldPS1oRr6onvXtq0AiKGw/4cl9VxM7zKxgxWnUg +9+WhUHU34ZdSPJPA+g1ojl71ydJTQm/B75cpveUw5mE0rx+rhLev3hDoyS4C +vePpk2aTSqjZ+IujdC0PHpUml946oIw3lspM0vKzwfL5mp78bCJvFAqFPlXK +AO97X1w3CqtgTvLHFkOzVGBs/h1VfkYFf5Ze0OGafQQaZ7zIOu9VsNzCfaBb +PQ72CkU4f1/HQK76QOkQpRgQlQv/vO42A9W7no1NHoqEM6mM4rl+BsL8GOtr +Ygh8C7F3mzRUxYpddlUC+27A8StW/yYTVVF8vVriZbNA8PXbMLynRwT7784c +kdw+CBnWA34BESRMHImgbDvNAuXB/FM0UzL+leLZ87KdCcLcP5r+8BI8DNII +3p/NhGMRDfz1tRQ0GSGTeTaw4JBOeOHnW6K4n3Hl3irCz7MGRnpMDcUweU7W +6Iv4CPhpd7e0pUrhstHtVwsLFyFsUWTfkZNUfJHSlRlfwAbNt/2mZrI0dJhq +LDAq4YA+t5uCXi8N434K/Tv6lgP5DRZeTg/oaEWXLItksqFF+3FH2EdV3Pg4 +nbq9+Qq8hud/3KXIuN1bi+v6FBPYbmZiQd1kLHX6eGGa4GGtq25AcDQFx6KP +0heI/N3wa26Nv40opjuvpVoQftFnuE9TaTMVpw+GcMubsuFMjcK41V8quggN +YkYEwWPP/Emf5zRU/OYjEd/DgQpjAa4+Nzru7igv3bqRA+Hhr/reXyZjXKPx +TrvXTFCMuxB0QouCFSBS6FrGhMVC69jl0xRs2Ph16eJZFqQK7fCIuk/F+pte +cx2CHJhqSMowNKehelH+unOtHLgdI2vFEaDjNu4THn+TOXAjyqj+y7AqHqnJ +vu8v4g/eScv03leT8QV3ctcLgoc+VufKRi5RcK1Mec/vAWK/qmurenqpuFli +2nrmPAealLu6KNE0lCzt0wsizluPro6StyOxv55NpivfMSH+w7qMTDoFc5ev +vvcgjwkx9XipfjMNPyzLkl5bz4ETpkb6iVM0vFmvd4pRRKxvc+yk7gQZ3cbN +L/oSPGytvUb/xEdDl4yWLzVPOCBeGr66u4aGhqeDPEKIegx/YIJCDBnNWwOC +3hcS/HOqdpAyJfLp21MKvbVMsGxkd1Q40pBR/f65NNHf4/Cg8tq0KrauuG4Q +q+8HOVvtzD2LyfhSZ9lhW2L+tl5zaxq4ScNzeX+2s4h6Olxule0lUXDfJWrE +E4J3P4xFBoLXEuuv7xFeV8WB6o+TPN9/EvPg5v/nNzEP1yly7KfFNMxxj3QS +6+SAa8mV1zO3yFgcvqWquZQJQ2ya12ugoEzAmL1ZJRPSdrdAwCEabj9udOxV +Bwd0VzxlqDSTMWCD7edQon6H90ZMoyQa9kgoylMIvXHY1HqPV5WCo/SA7+uL +mGCWoP/9/gIZdZJ3b48j9ivTflFs9UcaHrYVLZ9p4gBNgOeSxWMyJiR27bUm ++r/cdMPphdM03J8f7h7fy4G999/odSyq4o0+mVenP1+GvJr/Utu4hZGv7k9h +cfkw+MyUOn2/LIJxxRWOQa8GwV0pRXpck4SWuuQAr88s6FujeT2PRcJGSff2 +WzQWXLpk7qT/jIx/bFYkq+Yw4fXRv1SdoxRkhBrNOn9kgr/dr1EZRVHMjktQ +83rDgjLbzeF7mKIIZnVxEqVDkNKyetVgnBh+iF48sDF9FHLeuS3uthfHR6m5 +l5uWT8Bius1VSrAkSuTFvr/1YBasM8+sCdkmhUTcCmPaLcCGut78UW4qcvv6 +8619vwTX++LWRdZQsXO+M6vFksjT3v1+6RdoOFV0NXiQ6GdGaMGuIF06Op1N +Kn7vxYGLdNLIpwk6Rtnu5JHfxIaauuo0gSJprPy0ralTehG+Z/y5uylLHp8c +Kaox7O6FdJOzG115FXBwp2z88bFOuJq5hZ/LVQG3GDR4hfm0waHC+U1raxQw +ZrLcrI3dAl6JUZo5NEV04D2ouXSwERJ2nT79wF8Rj5wd9okxqgPaBuH7W7sU +MUWzu8nD+Q3kdMzMG+gqYfNIgQbX33LYyfia3X5PCQ+QpZT1qopAzOb+5vpx +JVRVa3K+fDcPFnbdW6TuV8YmUl7/hqZs0D5v+0I1Sxl7Pj5bbaWXAes37HLP +FlTBBvGk3XvtU8HJxT76gKcK/jf+OipcJAkmenXSc96pYJdszeX/jOMgknJ4 +2mstAzuyroy7bo6Bjf8uxry9ycA/Ya3rjp2MBMH8/1ad72NgRsgGt4TCEOBo +ppXe3K6KayMa45uO34B0hqmYfQKRrwPitaLtAmHP1w9nTneKYNO2VWkVOwdB +zar6RF4oCR3a783LerEgx27HWRETMvJHuqae7GRCUsbFT9TlFGxpGV36nMWE +6SyhTflvKMjcwL69XY0FSX8pei3XRfGPx0i8UtwgaH68aHcJxLAzXCdcUWAE +4m++Fap+LIUSaZv6pp4vgt3ott82jlQ8kzWfd+4FG3hZoiw/Og0vpK9kqxD8 +kYjb27ehm4ZiFvwm0g0ciInUUwu9R8fwA7R990fYQOm7NzPbrIo73u1pHhm5 +AiaFugvHxYnzNem38HyaCWEiA1JZHWS871bQKEic38M3A5+ej6RgcvOlzyrE +c8GMgOgLlqKYZFDcGqI4CDu71nyS20TF5Y9bWAI72bBzwCb45gQVRe2eaqSF +cuAD74MXbhk0VBpSiNxP+LlHgrMlK13pGJb7ce9lLWK9y82Gqy6ScfTBy48x +BE/yQPD2HQ1CHyoKzfYQvLnblvh64g/hz0i1gqUeLDjL9uQPj6airPqIYwYf +4Y+G2gzP7aHh+qdra/Q/ccBx7QrSXz46+v6MtcxN40Cjnt6Q8ZAqnprPpoes +8wce4wcwVUlGh/mmJgFiPwTOlfV3XKDglsKr10L7mfCzf/Ywfw8VP3lnLg88 +y4GnFa/urYqk4Qb+ftVCgqdOOfXrTx0jo0TgPsHARiaoetdktUlR8HleV0VT +LuG3B70ps5toyHWnnz+wjgMGP1TnIicJPqZdC3Mh9Fvs6/ppxzEy2lNbZk2I +/qb/LCpetpKGsk/IrzVTCT21OFffVEUj/G4e7W0boU82H9Mkosj4rSpOpZLg +pR6/reMOEwq6X9/f71JD+NcRTa/fx2iY9mNF2ZFuwj8Oh/WNTaliUW/k9Fdr +P4C+P/sfFJBxqO34eBehDxRJi+DOIBpO9vova/9/PYLSlReEKKhxFt8uI/Sh +6KSRfxmDhqZ7p1RMXnNg/4Xbq1b9IOPmxj7DAUIfjj1fUf6wgIa+Ve7KwkT+ ++bNesP7XdTI2hPZbMAk9v/Ak//ygPgU9Hw558RB6f/EUT0+OFQ1FYza+qmwn +9uu5wfp978l48IKXfQNRv+4JtZStCTQ041qzcJvg2Vi3a7y6MgVd3iYzthJ6 ++MWwbaBylli/T7DCDkIfbkz1tS010dDPOumPdzNRb+DdazsTyRgV7SymTOSJ +LrcTq9a503DE25gsQuhDNBbbbV9QxbL52GzL35fBfr3skZEXxPtM+6EJIr++ +N5bgqfQn9Ib1YOkq0Y9rR0wb3vFRUDTn4MdOol+etYUih3uJfKR8mDRI1C/W +3awV9IKGoWGLK1qJfrNm3Tan1JHxohy62xLrm4j4S5W7T8NYv0uhSPzfXATX +mMhfMrI/zJvmE/UGZDbqh52kYdKuWq02Qs8dRm8ITQTTUKf5d87/9VpL7Qin +cJCMq+Xrq3mI9587CCuyP5Ix9lPRisPEfZDWccaBFBouPhOJDyfqq/j3pMeD +TcZuxynWLPH9jWvn2xq9aNgWf9NJlOjn6l/vpf5jE/kppLX2cdll+B+RnrBC + + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1WV4l2UUB+BRSod0M7q7U+mO0aHAAKVHd1u02IqddIlYKN2dtogiiCiI +2O19Lj/cO79znnHtz/Oed0tMTkkanSohIeGGL1Hn+lKUY/JielOD1KRhnrNi +HJeX0IearDBrwU/ya8wmLXebJXJCXkpfarHSrCU/y5uZQzruMSvOSfkB+vG6 +Pik+H9v1tVklt+KXOGe/PIRczNW/q/YhAx8yif3mx9SRFOQ8s7jJ/F61BBc4 +pT+ljmGZvFsdyGWy8wlTucbtzreoXblEat5nAlfZ4fywOowr5OMcM7hOHeer +1dZc5Ff9GXUcW+QD6p3k5jOmM8/8PbUvGfmIyRwwP66OohA36+9TS3JafpA9 +cjI5uEP/htqNNOzU12WN3Ibf4jyeIdv0/cjEQX167pdLcUZ+iP68qe9OWnbp +67FWbsvvcR7PmAzMNyvNWflhBlCfdWbt+EN+K54NGVlgVibuV36EgTQgEwvN +y/KB/CjJNCQzWcjKIuflYh/kxxhEI7LFrpuXj7uUH2cwjVlv1p4/5bfjPske +u29WgY/lJxgSn1Xfg3Ts1jdhg9yBv+R34s7YHntDZg7pc8S7IVeM3ZKfZK88 +iFvi+cfPVnvGrrJHf0QdTn5u1W9UO/K3fFYdz1b5oHoXeZiv3xHPnSzx2ZnC +YfMTavwi+JbCfMFsfojPEO+iWomv+FR/Wh3LdyzX71MH8w0543uYxvfx8+P/ +rvbi69jLeE5MZK+zo+oICvA5M7nNfJPaiX/ifeaQPJS8LNDvVPuTlSP6nCyT +K8e7Ij/FULbqe5Oeffqm8TtK7sy/8S7F/pAr3hGzKpyTn2YYzcgdO25eNT6j +/AzDaU4e8pKP/BSgIIUoTJHYb/+uGuflZxlBC4rGLptXjzuXn2MkLSkWu2xe +gy/l5xlFKxJjh81rckF+gdG0pnjssHmteF7yi6TQhhKxr+a1uSi/xBjaUjJ2 +z7wOl+SXGUs7SrHcvG48Q/kVxtGe0nHX5vW4LL/KeDpQJu7RvH7shryCCXSk +bNyjeQOuyCuZSCfKxT2ZN4ydlFcxic6Uj3sybxT7J69mMl2oEPdk3pir8hqm +kETFuCfzJlyT1zKVrlSKe4p3KXZWXsc0ulE57il2kuvyeqbTnSpxT+ZN412R +NzCDHlSNezJvxg15IzPpSbW4J/Pm/ChvYha92GzWhfiDvE1ZxC55ANk4qj+p +plAkdoM5qf7/G17d2X9hl/X1 + "], 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]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 13}, {0., 1.991919222968944}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3k8lG8XxkUpkW3GOjP2ZUiJKFk6J0UKabGk0ILIj6SkFEVKkTVKRLIk +CdnXRJZIosiaijRjS5YW+8z7vH/N5/u5t+e+zrnOfUb2pOdBZ04ODo6ZFRwc +///18TvEx8EhiPM7OIM8q0ehoO6/tA5OQeRpmCkurRyFibU3dJ+uEsT450qL +rNJRcIovct3HK4i2k9/qQ/NG4UCJSEOiqCCujnC5G5cyCmpT3f7bNghi9iX1 +dbeDRmHQ0W7y3BFBnE59eajTeBTMTJ3bGUWCeC94y+aKdyNgctj2J6evEGqs +72yyrhkGn9lyp29XhDC+tMox6OUwPLkv+aXyqhDSXwWsyS8bBs7Oz++9bwjh +2G/hWwL5w1B1wOEFM1IIn0vXsnpThkHT1PFcc4YQXha9SM8KGgbqdo+56E9C +KFktV+doMgx7v7w/e6ZbCFu2r0mv2jUMvn4bR/f2CeHg3dmjEjuGoatispdr +QAgdzFd7dG0bhuit5yovjAuh7qdbfS7rh4Fb4+JVW05hdBraufUX/zBMygeu +lN0kjFE2/XerupngrpgqNakpjJa6pACvT0wYU6rTqdIWxsc0Rwr9IxOYKqs8 +bPWEsSv6wJWkZiZ8VQ/pjDYWxhdOAZXPqpjQqhedwWkvjKbfGzZbpDMh+1CK +yY8QYezI0X6w2psJqla1JwvChNGh896CjBcTMq2H/AIihTFpLJK8/QwT0m0V +86n3hNFelHE3yJUJD489k7B6LIwGVqJF+vZMCP0vf6yhRBir2Q5XPXcz4XTQ +67CnQ8LoupheJi7NhIF1mjcKmMLYLOHeeYvKBOsHqVeqRoXx0a6F4iUJJuzM +CXLrmBRGT5eQv7NkJtC6jUzYi8L4VPhLlzYvEz6qNnPZkEloOGYd1jfHAJNi +3cUTYiRMnPZbfP6PAa/g+Yy7JAl3eGtx3PjDgOeWYYPXZUg4scuBw2SKATev +7qvOVSMhzzeDw7IjDNjW3n6Z24iEC44+noq9DMiz23lOyISEvFGuaae6GaA0 +XHiaakrC35Jce190MoC0FHtY8wAJX2VPKNu0M2BC0WaLgz0Jl1+xijlbGOCU +17jh9HESigfu5w9sZkCfro6ityOx3rPFdPVbBjRaSJBDT5PwQcuOvPVvGJDi ++3m6+AIJL+vqlnbWMEB8pdlozSUSjj948SG2mgERES8H3l0hYXyz8S67Vwy4 +kpbUNhhIQtu+NRdWvmTAzAb+xp83SNgUNmjBqGCAa9nVV7O3SFgasbWmtZwB +Vu+P5ayLIKH2XomkylIGtNh8SBePJuHXmnjl6hIGGH7HRPlYEpq3BwS9K2aA ++qzsnW0JJDQ63jzOKmRARuDd67uSSBgd4yyqRDCVj+uyxWNC76SefdYFDOCR +/eHqnEHCZ3eElNrzGHD5srmT/jMSztisSlEh+GdHyTFSNgmfvpvTDHnBAPsN +MkfHcon9GPYjU7kMaA0OsX6dT8IBt+z3xwmGgZkDD4pIONJxYrInh4jHNjtz +z1ISvtBZccSW4Ls/N+6iVZGwdVlR/3w2A7iMH8CfahI6LLS08BHsnbxC710t +CXM5U3pynzOAOee2JbWBhJdk0d2WYJuDnzR8m0iYccs8lo/gpucGG/a/I+Gh +i172TVkM0F31lK7cSsKAjbafwgh+7iCowPpAwriPJauOEEwt85Xu7CDua7WD +pU5wuNCQZHYXCe+7FTXzE8xyMxMN6iVhudOHi/+eMcCzvljoSD8Rb6UjwsME +D9Ck12l8I+G2tZSnAwQfuHh7zZrvJNzSPGA4RHDth2mubz+I9W7+M78I1lI9 +yi4eJuFaucZaLmL/J0H1C2FjBO94UCNLsOiXDf8cJ0hoT2mbMyH49pa4ad0p +ErpNml/yJXg+kmNC6DcJWe8XTAsJdhs9PTLyl4R9gdUB/wj+bNgxVD1H6O0T +Ir+T0MMsUf/b/UUS6qTs2RFPcNXfJ30eLBL2Ov5hzhG80UKga9cKMu69GCh7 +ktA7OfPSR8pKMra1jS9/IliQ83vLDDcZrwVphBwg4nX9qGnTWx4yiuQd+tBN +8O+iorrHfMT4cesBFyLeTvxS1RcFyKhxDt+sIPKjy+VWxT5hMu6/TIl8QnCZ +5JH8JTEyKhV3L6/NZ4CKd112hyQZnxf0VLUQnPBeLTOLRsb8lWvvPSDy0S+A +/eiwPBl5/lhV7Ssi/NnrmqCuREaXNyn0bUR+O2xuv8etQsZxWsC3DUT+72Cm +hxVtJGP0PTenLWUMKAD+23c0yFhVVWy2l/CPQvzFoJNaBINQsSvhL26zvZcF +dcl4iBqs20D47+KTwgvD+mT0fDjixUX4c4RF9XoFZJQOmLA3I/zbnD/p4m5E +Ri64fJv1mgF6vLaOO03I6H7jwKBLHQOynWodJE3J6PHmtHx/PQMixe5ZNe0n +Ix+d4wGjkQGW/ro7FezIqNWkW+jfStS3Y78pOsfISA8zmnP+wAC6YfYf05Nk +7LZsDD1K1KNFbqmM865krB6U+XymiwGpUSt46rzJGOTptbz1GwP4zlcMdl0k +49bia9fDBhngY3W+YuwyGddLV/b9GmLAHknGf8KBZLQeP737C1Efp9KaWk+E +k9G3vmXo5G8GHAkOfHohiowprZc/KRP1tt5VNyAkhowTMcdoi0Q9jtuQrZEf +T8bf89wLLSwGbC+NjOXIIOOyu0WONFG/w5qtjyS/ImODrat9pBIT/mULbC58 +TUbGRtbtHapMOB7ZxNtYT0aTMRKJayMTNlvqVv1qJuLPfTSoSJsJfV9oMtu7 +yaj8u/B+uxET6NM/GP2ThH6ntvrxnGbC3Y6kV1MzhB7C9fzlHkxYKraOW/mP +jE2bvixfOseEtstNJmpLZFx7pEhd1Y8JPiuzn19ZI4JjCbLRh6KYUC923ktS +VgQr42Ti2iqZ4G/3c1xaQQRz4hNVvV4zYUuK8ylFZRH8dmb6P/lG4n1UPXx0 +0wYRNFw6pF7RTtzPwMDIeJsIbs4p21owxgQrx9US5w6IYEAx77oe2jDwZwbE +XLQUwWSD0vZQhWFo+jm/zt9GBDOc11MsiPdf1+cn5217EbywmubCR/QHUiEf +fyadFkFhLu89R62GgZn7sOZtoAi2qwv/sIwehuTfZL22GyI44zGWoBg/DId1 +Ioo/3RLBA/Sr99YQ/Urz64Csb+EiuF52/Poqop/J/eQc+zdeBJMkhrz7PxL9 +0IK6q2yBCM6qywmuERuB1cb1Ar7fRZD/S9yuhy9GoMJ2S8RehgiCWUO8ePkI +nPHI5KOOiGCbbfDXjNoR6IoN46meEEEzM2+Lf50jkD5kybVqXgRXUWR9TiyP +gGEg41+UgCh6HFgo9bAYhasvub9m6oti0SC/zTWOMdD8cMnuMohid4ROhALf +GDCHxvpMDUUxZV7G6LPYGJjztnX/2i2K0+fN9f3Vx4B6JO6j1iFR5F9+Hxlz +bAwqZpUbak6LYo0WzY63bgz+au7J7rkvipdvtbDV4sYhtW3tmuF4UXwfs3Rw +U8Y47HNvcfybKIq77yeamhSPQ8YTC4pwmijKip+SL+kYh8Pi1qGmL0RxC42P +FiL0EyqWT7q+ahTF8Ss13DzRP+Fak59C+pwoSjz5r940eQJ4HPISPY+I4ULo +R8HZf5OQ99ZtaY+9GD5Ky7/SsnIKrLUV7RSOi6HtHi4XRf4pSOdLoPQ6i2GF +QjnPpMwUYGVQgqGXGF7snS4eMJ6CS+I2D0Rui2HpeXv+rbFTMNK+HFNZLIaR +6QUTF7SmoWm36Z3VQuKo/Ol9llTIDBxpYI2urhfHv8oZFx0d/oJwYGwiBEtg +Tod5W3/YHCxl2Fwjh0igeEHcu1sP5oDRInly9I4E1udL3lBPn4My8RTlmGgJ +XI4d7feunAOHvJwCZqIEOm0+R+ocnYOsb2+awgslsNHYsr7PaB52bp//83lA +As/3q0hdWJgH70V780t6kvioOjm2/sAiWGedXRe6XRKJch3OsFsEHdug9w93 +SOLBpWqNZZdFWCrJNK/eLYmdzjLSglcX4ea53+bclpKoI2evUPtsEe6P3t4X +6y6JtckdhTvZi1DWXWiRlySJi240U3rqEiQEvxGofSyJ4umbB/48XwI/7d62 +jjRJXDG+41px8RJgDMti9pkkGpu0hAu/XYK3+/bs314iidqXfT5tm1yCvoav ++1taJTE+dShDbdsyLBXyHBxhS6K3pOdjpbpl2NjQXzjOSUFOX3+e9e+W4VjX +C5HJVRQ8NR7RKtuxDLVzVr1/eSko4OKtyfy+DLcNUo9ziVPw6PvbH5pWsIDU +qOsptYmC4f3S5qP6LNjVs+6j7GYKrnzcxuTbxQKf0QFNxS0U/HcolFPOlAU9 +vLf+rdenoHbBvggZWxY82t/hv82EgulGXKke3ixQ7fsvzPI4BbOE5m8aZLLA +bnz7LxtHCp7NXig4n8uC8CWh/UdPUTA3tScroYgFU1JlpJPuFBQkm7dX1LCg +2HHlQ89LFPzUJT5m2MMCnEh8FhpFwR/Z0dxuK9lwjuXJGxFDQRn1McdMHjak +Cez0iL5PwcZgr/kufjZwa45uepBIQZNUv5yVEmxo8dEue5JJQceyDqcUNTbY +cLS+qamhYI+k5HDvfjbcGIhXi6qjYPdCd3abJRvyapzvHntDwYQbtkdKD7Nh +TeCyPesdBb+E5B6xO86GshUb/up1U9DqDtV36QwbfgzOHeHto+BH76yVgefY +IFhbX9PXT8Et4v+sZy+wwfW6XZjvdwoWSZ3aUe7HBnGuMPnSCQqSKBZt0SFs +2DVkExI8RUERu6ca6WFsOFsnP2n1m4IuAsOYGcmGpqDKij9zFJR0Pnj05j02 ++K4cP6C5koq3HkfpxjxmQ8aPktIVq6ko84T0SjONDe3112kfeajoktn2ue4J +G1RvSo56ClCxzLvsa0UWG/pW7Q3IkaQiv/9I52IhoRdThOlHo+LFjNUs5RI2 +aL4ZNDWToaLDn+YiozI2hAb7io0rUtGE406z1Us2lJwy8q+gU9F03x9lk1ds ++G4sNBSynorvG/sE1WrYoLf6WS5dg4oiYeuDmuqI+w97k+c2U5HjziBvYAMb +YhvxcuMWYv6KbKn1jWz4eavH6JQ+FaNijL8famZD4po1X9J2U/GQBok520bc +f6TD8PxeKm54ur5O/yMb/jQlZxqaU1G9pFDtfDsbzEK2eg8epGKx+u7Mok9s +uHSaqy/Pijg/dtPL6k42pO9pg4DDVNxxwuj4yy42LPG48Eo7UHHdlU770B42 +0Mc0vX4dp2L691UVR3vZYNnM6qpypCK99t1zqT42BGQ164efomLy7nqtDoKz +Q++n2p2mYpr8U2vfz2zocTu5Rs2dimPexiShfjasNN14ZvEMFQ8URrgnELxp +/UJHsxcVOxKCnUS+sMGe9822BG8qColaLAcSfN170C/jIhX/lFwLGSY448tS +dcFlKr7L0Nms/5UN74zFuar9qXiE+WD5GsFTLzYbvwugYqzG0HgBwWQJi5Du +ICpO9/uv6CR423W3lqFgKp4vmNnBJNhh/KbAVAgVdVp/5f2fr1umHFwKo6Lf +ZcODXQQ/rXp5b00UFTfyDqoUE9yi1NNDjqGiRPmAXtD/z4v8TZG9T8U4v8th +SLDIPP+xDfFUfDXMIzNBfK/uSdXUbYlUNONYt3ibYId3RgyjZCr2iSvIkQkO +0jpBP5hKxaVnQgkRhB6ZSX7/OTyhYqJqhcscod977ge5bplUVByRjzpA8Ixn +4bTPcyoqfPURTyD0Fu1t1QrKpWJY+NKqdiI+eoZjFyPzqZjdIe0wT8Tv+PNV +lQ+LqOhb464kSPANsizraSkV89yjnES72dDKtLlRU0VFvdgi22kiP2Yszje2 +1FBR5VcB9U0HG8TKI9b21lHR8EyQRyiRT8fvNERNv6Vi06/5j4NE/t38M9Cx +3ELoZZ08493Khiz7JdG1H4h42IpUzraw4bf65iS5LiqeefbeoeUt4e/4fQMb +e6koasFrItXEBn1ON3m9firG/xD4e+wNG4I/PX526DsVeWzKSgtqifm+/CU3 +flHR0mxL4f0KNhh8V5mPmibyNf16uAvhv5OmRvpJf6gY3Kh3mk748znNr7Z4 +gYoz1otGl/PZsL12tJXJTcPSMI3rx56ywXH9KuHfPDT0/RFnmZ/OhtuxMlZs +Phpu5zzp8TuFDR9P2XwWI9FwdWjhfZNENjjxNgybSNPQwMewdWsUG0IsH3M8 +30rD3KfahzWJ+pUZVrQ7SJeGTueSS995EX6sb4o4akDDjo8wYUPUP27taSrf +Thqu0KayTFwI/UUMt3nso6H2qdUvIoj6ebVryEvdmYYawgvmeTpseMQ/V7ba +lYbh+R/2XdFiQ5UxH8eAGw33dFWWb9tE+LNEKyLqLA0nRkl/o5SJehd3M2v6 +Cg3vZVLEs0TY4H1YeajwLg1fHVP4EznJgtgoPdWwezSMOEjdf3+MBYVNFl5O +D2hoRZOoiGKwYEbnEpv8iIZXh4SHTnxmgafEW4rPMxoGWYWU+bxhgVufm6VO +DQ1JoWfEvBNYcNwut+HlBA3brmvDOl0WXKIJj32comG07S4uuc0siPp6gX/4 +Nw1Htgx6qqqxoOa4gY3QAg0b+p0DRKVYIOPcMuLMLYUjd/w32RPv6zePMV4B +aSl8EDRxtaBhGRyuKR08sV8KQ5nJpj+NlsEu9dHXVYVSWNHktGIjfQnqGmrT ++UqksPrj9pZuqSVQHWW6kcqlMCCQmuQrsgTz6uqzMtVS+GLju8gnnEtwv6pa +QP+dFPL3LZ993L8IH3oG8NyQFLr9d6tfPXIRdgnIp30lSSPdViJSbnIB1Pye +upR6S+PN3VtXFyTNg+Xac7NFZBl8sLiQxscxC+kXVjCe+ciguduqDbNif2Bv +TdYB6XYZDG0T1gLvaeizPP6vab0sfugv8fmz7hf4rVltxB8ui7o2nk7HjUbB ++2Gj8KdhWRS2yOqX3s+Aq+a+odp75fDisd7v4fcG4dyerbrvsuTQQVhuKf5X +P3zLnLm7OVsOnxwtqTPs7QezNbnjD3PkUHVxUm++rh+UGhWS3PPkUPi4JT0y +vh8+7xLm4C+Rw2t6qtYORv2wCyca9r+Ww1chcYo3kz+D2Na0A13dcth5u+h3 +i30fvFQQOD24Uh7LGqhWHCt6IMPk3CZXbnkc3iWTcGKiGyLdO2d/rZZHuw+z +hh97u+Fk0cPgpbXyGEdxS/lc0A1rdtHTxYTk8WAEX8VD52445LjjmzlNHnfH +3Emsfd8FYynnrSq05ZH3mhDpQmYniEv37Ig5JY/G696EVt7sgGtZW3k5XOVx +q0GTV7hPBzC14z65n5bHoO7fWm4uHVBoZu1i7C6PPkrft+za0wH7Ln8Km/eS +x/f9fFd813XAjc4P3cf85XH2wPW4obh2mL7z1kMtVh7NWcO/Q4s+QvNcRXzD +a3mcsxyDj7wf4HDxwub1dfIYO11p1sFqg2Ev3daoenn0sLITEGW2wcrxck67 +Rnm8HfJkz8eiNtj+pey/mRZ5dO9d70A71Ab5r0sMpHvkkfvlGS/OmFZ4EFow +eOmXPIZn89sUSb+HU9QsFTWKAnImPUlzcmsGr6RozTyqAjpwH9JcPtQMflK+ +elpSCnhNPfntU4NmiJYxMdeXVUCjhvavmkLNRDyYZ82UFXDwq9Z26fK3ILxB +rsx9swJqnj1dbsT3FqoMEoxzTBXwXIKD6rnqRiAfC3Xc6KeA1lP/elOsGyBx +95kzD/wV8Oi5UZ9YowZQ2HTQl/OaAnZfWEWP1WoArRWSkV2BClibuzW1QrgB +LNOeVVy9pYDjb1bNpbbVw73hJqG2uwr4Y+d+o17TehA9u7rG8xlxftwr40fm +dSAeeIOa36WASepGXZner4G6UfD+th4FTNXsbfFwfg2ynx8K1PYqICnVMxms +X4OqdiFnR78CnpkzzePReQ16o4Mjf74T4zVvXbYs1YDDASjWmVRAjT9eV0aD +ayBNdsG8ZrUi6vk9Gx/aWw0baz2vtekoYrPAC2MWz0vI65pdMNBVxNaxIg2O +35WgOX7NJ1tPEb35v10h91eCNjnKI2S7Ij7/R/93PrcS9E/lHd25SxGDWPs4 +1llWwp6101tLLRQxbCbA52FqBTgdPDf16JQi2vAnSLWYlUPCd+8TZ2IVcdf9 +551Z7SWwi/4lp/OeIh4kSSrp1ZTAhIfRgn6cIt6+dpOvL6cEcF4khjdBEevE +tTx3hpQAQ6C0PjNZEb+HVR6uwxLYZDCvPJSliF8H9+qdKSiGhjj/XzavFbEn +fFuZ4uMimDILvrLjlyJ28rfPfk0tAFGb+1saJxVRRbXF+crdAtA7kTFtNq2I +ms0/2YrXCyD4whuXw38U0TXDNuTJiQKgPeK29FxQRLmNw0/NZAtg72SwWhK3 +Evqox45uSsuH9OhbX+aklFBoKJO9Ij8PDnfdhjwLJWwWOe33/kcOLO6+t0Q5 +oIQtwgWDG1ty4FF5Svmtg0p4c7nCJL0wB34kVmw+ZqWENks9/c3Xc+Cs409l +/qNKeOalu/MquRy4PWUh6H5KCdtlrY7JOWVD6VqxQWV/JVxpcyI0+l8WiMKT +68lZSli979xbkQOZoH3BNlclWwn7Pjxba6WXCZbP1/UV5hDriwXCnipmQoyY +j0ZTnhLeedHGF7zwFASnjAemSpRweJC1RfnJU1ibMmJgWKeEikcTBseXM4DF +qTb/47MSfvrAHOavegLMNwWequuUkVXpkOd6Jg02bNztnsOvjE1iyXv22aeB +973PrpsElTEv5UOboVkacDqtPLmFpIz1NgOeh1XTgLbC2tJQQhnF9acStIZT +wVJvXueIojL6MLlSnjimQt0L4Aw1UEaT5MJMsksKPH7QEjvqoYzXtg30a6xP +BicX+5iDnsr43+Sr6AihZKBv+RVdeVYZf5Rf1OGYewT5HQKR4eeVsUWPW1yu +4RHU8h8K0fBVRv0xh70Oxx/Bjxu9/r43lPGvBu/ys4QkoHsxT/E8VMbflad3 +0qQSIW8PxzaVJmW0Ct+3Scg+Hqb6dTLy3ipjj0zdlf+M40HjrBdJ550yVlq4 +D/Wqx0PB/e8Txq3K+CikuWaGMx6KhupTnT4pY6I091vhrAdQ5h/C93hAGak6 +HONLi3HwOl94QHReGd0WXQ5y5d6HdgnFWytV6Rio8fOD1e5YiCIf+ee1no5d +2VcnXbfEwj6BSOdvanTkaAyUClWMheaV8zsr1OloEBFx7R9XLLyebOE4q01H +U71XvD6vYyCvwfvyZ6RjudHzI9wQAxFe9R4FNnTkLa+Vkdp1F/a+dbQ8fpOO +1lsT3XrPR8Gmv5di3wTTcSa8Xe34qSgQkY34pHabjuo9zyamD0fBwKUyy/lQ +Os67puzesj0KfOjrrO5G0fGsHZ/zDp4oSL1VYlX/kI5+Tpuh0DASFo14bOgF +dPwXQ4vLLgiH7Npc26mvdNQOo/CdfR8K/IX/rbkwQMfM0I1uicWhcDaNXjo/ +SEdYmGB+SQqFzTdSyVwM4nsjBGeSz4RChdH9NpFxOsYXv94jJRQKb5v8jfRm +6Vi0vGHtH9sQYLaaaQQLqODip7/Hbi3cApnPY2uI7hp/CYdrPTx/E9ia6eXB +O1RwfWRzQsuJm/A11N5t2lAFq3bb1fDtvwmJuh/evTFSQSEJpni52k2QSCiO +8DJVwRC+lJwa5g0Qtg0gN1qroOuP3f8C7G/Aqm4RmXMeKnh89r9Ab6sgGGvH +rU0JxP5R3FXl7oGQQTcVtU8k1gckaMXYBcKJq1Z/p5NUUGyDatIVs0DoUXEr +pKSoYN0BrbW+aoHwJiBG3fOpCvJUX+xUmAiAlI1MZdEiFdypH+Os5RUAh0Pv +iDu9V0HrG6UyL1ZfA/LAvdm5VmL87d7WsbGr0Kb9uCv8gwpuepxB2dF6FYwH +i2JLO1RQruPuZoN7V2GzzldB3j4VvBsok3tW4SrwMzfxFDBVkPfPcMOL3f7Q +rKc3YjyigqcXcmihav5wM9qo8fOoCh6ty7nvL+QPS/pHbq6aUEH7lNzIF5/9 +YCwmaIXtbxWME0uXMPDyg4zR8IGJPypY0h/174u1H5yAB9XX/6lg+6obBnH6 +ftAzlu2fPa9C/N85++LgGj+IwVK7HYsqWLEQl2P56wrsu/9ar2tJBW8OSL88 +8+kKrP35TvI/FjE/tL3+ccUVaNjRNc9mq+CsYUT+2OMr8D/Le7BC + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 13}, {0., 1.991919222968944}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3k8lG8XxkUpkW3GOjP2ZUiJKFk6J0UKabGk0ILIj6SkFEVKkTVKRLIk +CdnXRJZIosiaijRjS5YW+8z7vH/N5/u5t+e+zrnOfUb2pOdBZ04ODo6ZFRwc +///18TvEx8EhiPM7OIM8q0ehoO6/tA5OQeRpmCkurRyFibU3dJ+uEsT450qL +rNJRcIovct3HK4i2k9/qQ/NG4UCJSEOiqCCujnC5G5cyCmpT3f7bNghi9iX1 +dbeDRmHQ0W7y3BFBnE59eajTeBTMTJ3bGUWCeC94y+aKdyNgctj2J6evEGqs +72yyrhkGn9lyp29XhDC+tMox6OUwPLkv+aXyqhDSXwWsyS8bBs7Oz++9bwjh +2G/hWwL5w1B1wOEFM1IIn0vXsnpThkHT1PFcc4YQXha9SM8KGgbqdo+56E9C +KFktV+doMgx7v7w/e6ZbCFu2r0mv2jUMvn4bR/f2CeHg3dmjEjuGoatispdr +QAgdzFd7dG0bhuit5yovjAuh7qdbfS7rh4Fb4+JVW05hdBraufUX/zBMygeu +lN0kjFE2/XerupngrpgqNakpjJa6pACvT0wYU6rTqdIWxsc0Rwr9IxOYKqs8 +bPWEsSv6wJWkZiZ8VQ/pjDYWxhdOAZXPqpjQqhedwWkvjKbfGzZbpDMh+1CK +yY8QYezI0X6w2psJqla1JwvChNGh896CjBcTMq2H/AIihTFpLJK8/QwT0m0V +86n3hNFelHE3yJUJD489k7B6LIwGVqJF+vZMCP0vf6yhRBir2Q5XPXcz4XTQ +67CnQ8LoupheJi7NhIF1mjcKmMLYLOHeeYvKBOsHqVeqRoXx0a6F4iUJJuzM +CXLrmBRGT5eQv7NkJtC6jUzYi8L4VPhLlzYvEz6qNnPZkEloOGYd1jfHAJNi +3cUTYiRMnPZbfP6PAa/g+Yy7JAl3eGtx3PjDgOeWYYPXZUg4scuBw2SKATev +7qvOVSMhzzeDw7IjDNjW3n6Z24iEC44+noq9DMiz23lOyISEvFGuaae6GaA0 +XHiaakrC35Jce190MoC0FHtY8wAJX2VPKNu0M2BC0WaLgz0Jl1+xijlbGOCU +17jh9HESigfu5w9sZkCfro6ityOx3rPFdPVbBjRaSJBDT5PwQcuOvPVvGJDi ++3m6+AIJL+vqlnbWMEB8pdlozSUSjj948SG2mgERES8H3l0hYXyz8S67Vwy4 +kpbUNhhIQtu+NRdWvmTAzAb+xp83SNgUNmjBqGCAa9nVV7O3SFgasbWmtZwB +Vu+P5ayLIKH2XomkylIGtNh8SBePJuHXmnjl6hIGGH7HRPlYEpq3BwS9K2aA ++qzsnW0JJDQ63jzOKmRARuDd67uSSBgd4yyqRDCVj+uyxWNC76SefdYFDOCR +/eHqnEHCZ3eElNrzGHD5srmT/jMSztisSlEh+GdHyTFSNgmfvpvTDHnBAPsN +MkfHcon9GPYjU7kMaA0OsX6dT8IBt+z3xwmGgZkDD4pIONJxYrInh4jHNjtz +z1ISvtBZccSW4Ls/N+6iVZGwdVlR/3w2A7iMH8CfahI6LLS08BHsnbxC710t +CXM5U3pynzOAOee2JbWBhJdk0d2WYJuDnzR8m0iYccs8lo/gpucGG/a/I+Gh +i172TVkM0F31lK7cSsKAjbafwgh+7iCowPpAwriPJauOEEwt85Xu7CDua7WD +pU5wuNCQZHYXCe+7FTXzE8xyMxMN6iVhudOHi/+eMcCzvljoSD8Rb6UjwsME +D9Ck12l8I+G2tZSnAwQfuHh7zZrvJNzSPGA4RHDth2mubz+I9W7+M78I1lI9 +yi4eJuFaucZaLmL/J0H1C2FjBO94UCNLsOiXDf8cJ0hoT2mbMyH49pa4ad0p +ErpNml/yJXg+kmNC6DcJWe8XTAsJdhs9PTLyl4R9gdUB/wj+bNgxVD1H6O0T +Ir+T0MMsUf/b/UUS6qTs2RFPcNXfJ30eLBL2Ov5hzhG80UKga9cKMu69GCh7 +ktA7OfPSR8pKMra1jS9/IliQ83vLDDcZrwVphBwg4nX9qGnTWx4yiuQd+tBN +8O+iorrHfMT4cesBFyLeTvxS1RcFyKhxDt+sIPKjy+VWxT5hMu6/TIl8QnCZ +5JH8JTEyKhV3L6/NZ4CKd112hyQZnxf0VLUQnPBeLTOLRsb8lWvvPSDy0S+A +/eiwPBl5/lhV7Ssi/NnrmqCuREaXNyn0bUR+O2xuv8etQsZxWsC3DUT+72Cm +hxVtJGP0PTenLWUMKAD+23c0yFhVVWy2l/CPQvzFoJNaBINQsSvhL26zvZcF +dcl4iBqs20D47+KTwgvD+mT0fDjixUX4c4RF9XoFZJQOmLA3I/zbnD/p4m5E +Ri64fJv1mgF6vLaOO03I6H7jwKBLHQOynWodJE3J6PHmtHx/PQMixe5ZNe0n +Ix+d4wGjkQGW/ro7FezIqNWkW+jfStS3Y78pOsfISA8zmnP+wAC6YfYf05Nk +7LZsDD1K1KNFbqmM865krB6U+XymiwGpUSt46rzJGOTptbz1GwP4zlcMdl0k +49bia9fDBhngY3W+YuwyGddLV/b9GmLAHknGf8KBZLQeP737C1Efp9KaWk+E +k9G3vmXo5G8GHAkOfHohiowprZc/KRP1tt5VNyAkhowTMcdoi0Q9jtuQrZEf +T8bf89wLLSwGbC+NjOXIIOOyu0WONFG/w5qtjyS/ImODrat9pBIT/mULbC58 +TUbGRtbtHapMOB7ZxNtYT0aTMRKJayMTNlvqVv1qJuLPfTSoSJsJfV9oMtu7 +yaj8u/B+uxET6NM/GP2ThH6ntvrxnGbC3Y6kV1MzhB7C9fzlHkxYKraOW/mP +jE2bvixfOseEtstNJmpLZFx7pEhd1Y8JPiuzn19ZI4JjCbLRh6KYUC923ktS +VgQr42Ti2iqZ4G/3c1xaQQRz4hNVvV4zYUuK8ylFZRH8dmb6P/lG4n1UPXx0 +0wYRNFw6pF7RTtzPwMDIeJsIbs4p21owxgQrx9US5w6IYEAx77oe2jDwZwbE +XLQUwWSD0vZQhWFo+jm/zt9GBDOc11MsiPdf1+cn5217EbywmubCR/QHUiEf +fyadFkFhLu89R62GgZn7sOZtoAi2qwv/sIwehuTfZL22GyI44zGWoBg/DId1 +Ioo/3RLBA/Sr99YQ/Urz64Csb+EiuF52/Poqop/J/eQc+zdeBJMkhrz7PxL9 +0IK6q2yBCM6qywmuERuB1cb1Ar7fRZD/S9yuhy9GoMJ2S8RehgiCWUO8ePkI +nPHI5KOOiGCbbfDXjNoR6IoN46meEEEzM2+Lf50jkD5kybVqXgRXUWR9TiyP +gGEg41+UgCh6HFgo9bAYhasvub9m6oti0SC/zTWOMdD8cMnuMohid4ROhALf +GDCHxvpMDUUxZV7G6LPYGJjztnX/2i2K0+fN9f3Vx4B6JO6j1iFR5F9+Hxlz +bAwqZpUbak6LYo0WzY63bgz+au7J7rkvipdvtbDV4sYhtW3tmuF4UXwfs3Rw +U8Y47HNvcfybKIq77yeamhSPQ8YTC4pwmijKip+SL+kYh8Pi1qGmL0RxC42P +FiL0EyqWT7q+ahTF8Ss13DzRP+Fak59C+pwoSjz5r940eQJ4HPISPY+I4ULo +R8HZf5OQ99ZtaY+9GD5Ky7/SsnIKrLUV7RSOi6HtHi4XRf4pSOdLoPQ6i2GF +QjnPpMwUYGVQgqGXGF7snS4eMJ6CS+I2D0Rui2HpeXv+rbFTMNK+HFNZLIaR +6QUTF7SmoWm36Z3VQuKo/Ol9llTIDBxpYI2urhfHv8oZFx0d/oJwYGwiBEtg +Tod5W3/YHCxl2Fwjh0igeEHcu1sP5oDRInly9I4E1udL3lBPn4My8RTlmGgJ +XI4d7feunAOHvJwCZqIEOm0+R+ocnYOsb2+awgslsNHYsr7PaB52bp//83lA +As/3q0hdWJgH70V780t6kvioOjm2/sAiWGedXRe6XRKJch3OsFsEHdug9w93 +SOLBpWqNZZdFWCrJNK/eLYmdzjLSglcX4ea53+bclpKoI2evUPtsEe6P3t4X +6y6JtckdhTvZi1DWXWiRlySJi240U3rqEiQEvxGofSyJ4umbB/48XwI/7d62 +jjRJXDG+41px8RJgDMti9pkkGpu0hAu/XYK3+/bs314iidqXfT5tm1yCvoav ++1taJTE+dShDbdsyLBXyHBxhS6K3pOdjpbpl2NjQXzjOSUFOX3+e9e+W4VjX +C5HJVRQ8NR7RKtuxDLVzVr1/eSko4OKtyfy+DLcNUo9ziVPw6PvbH5pWsIDU +qOsptYmC4f3S5qP6LNjVs+6j7GYKrnzcxuTbxQKf0QFNxS0U/HcolFPOlAU9 +vLf+rdenoHbBvggZWxY82t/hv82EgulGXKke3ixQ7fsvzPI4BbOE5m8aZLLA +bnz7LxtHCp7NXig4n8uC8CWh/UdPUTA3tScroYgFU1JlpJPuFBQkm7dX1LCg +2HHlQ89LFPzUJT5m2MMCnEh8FhpFwR/Z0dxuK9lwjuXJGxFDQRn1McdMHjak +Cez0iL5PwcZgr/kufjZwa45uepBIQZNUv5yVEmxo8dEue5JJQceyDqcUNTbY +cLS+qamhYI+k5HDvfjbcGIhXi6qjYPdCd3abJRvyapzvHntDwYQbtkdKD7Nh +TeCyPesdBb+E5B6xO86GshUb/up1U9DqDtV36QwbfgzOHeHto+BH76yVgefY +IFhbX9PXT8Et4v+sZy+wwfW6XZjvdwoWSZ3aUe7HBnGuMPnSCQqSKBZt0SFs +2DVkExI8RUERu6ca6WFsOFsnP2n1m4IuAsOYGcmGpqDKij9zFJR0Pnj05j02 ++K4cP6C5koq3HkfpxjxmQ8aPktIVq6ko84T0SjONDe3112kfeajoktn2ue4J +G1RvSo56ClCxzLvsa0UWG/pW7Q3IkaQiv/9I52IhoRdThOlHo+LFjNUs5RI2 +aL4ZNDWToaLDn+YiozI2hAb7io0rUtGE406z1Us2lJwy8q+gU9F03x9lk1ds ++G4sNBSynorvG/sE1WrYoLf6WS5dg4oiYeuDmuqI+w97k+c2U5HjziBvYAMb +YhvxcuMWYv6KbKn1jWz4eavH6JQ+FaNijL8famZD4po1X9J2U/GQBok520bc +f6TD8PxeKm54ur5O/yMb/jQlZxqaU1G9pFDtfDsbzEK2eg8epGKx+u7Mok9s +uHSaqy/Pijg/dtPL6k42pO9pg4DDVNxxwuj4yy42LPG48Eo7UHHdlU770B42 +0Mc0vX4dp2L691UVR3vZYNnM6qpypCK99t1zqT42BGQ164efomLy7nqtDoKz +Q++n2p2mYpr8U2vfz2zocTu5Rs2dimPexiShfjasNN14ZvEMFQ8URrgnELxp +/UJHsxcVOxKCnUS+sMGe9822BG8qColaLAcSfN170C/jIhX/lFwLGSY448tS +dcFlKr7L0Nms/5UN74zFuar9qXiE+WD5GsFTLzYbvwugYqzG0HgBwWQJi5Du +ICpO9/uv6CR423W3lqFgKp4vmNnBJNhh/KbAVAgVdVp/5f2fr1umHFwKo6Lf +ZcODXQQ/rXp5b00UFTfyDqoUE9yi1NNDjqGiRPmAXtD/z4v8TZG9T8U4v8th +SLDIPP+xDfFUfDXMIzNBfK/uSdXUbYlUNONYt3ibYId3RgyjZCr2iSvIkQkO +0jpBP5hKxaVnQgkRhB6ZSX7/OTyhYqJqhcscod977ge5bplUVByRjzpA8Ixn +4bTPcyoqfPURTyD0Fu1t1QrKpWJY+NKqdiI+eoZjFyPzqZjdIe0wT8Tv+PNV +lQ+LqOhb464kSPANsizraSkV89yjnES72dDKtLlRU0VFvdgi22kiP2Yszje2 +1FBR5VcB9U0HG8TKI9b21lHR8EyQRyiRT8fvNERNv6Vi06/5j4NE/t38M9Cx +3ELoZZ08493Khiz7JdG1H4h42IpUzraw4bf65iS5LiqeefbeoeUt4e/4fQMb +e6koasFrItXEBn1ON3m9firG/xD4e+wNG4I/PX526DsVeWzKSgtqifm+/CU3 +flHR0mxL4f0KNhh8V5mPmibyNf16uAvhv5OmRvpJf6gY3Kh3mk748znNr7Z4 +gYoz1otGl/PZsL12tJXJTcPSMI3rx56ywXH9KuHfPDT0/RFnmZ/OhtuxMlZs +Phpu5zzp8TuFDR9P2XwWI9FwdWjhfZNENjjxNgybSNPQwMewdWsUG0IsH3M8 +30rD3KfahzWJ+pUZVrQ7SJeGTueSS995EX6sb4o4akDDjo8wYUPUP27taSrf +Thqu0KayTFwI/UUMt3nso6H2qdUvIoj6ebVryEvdmYYawgvmeTpseMQ/V7ba +lYbh+R/2XdFiQ5UxH8eAGw33dFWWb9tE+LNEKyLqLA0nRkl/o5SJehd3M2v6 +Cg3vZVLEs0TY4H1YeajwLg1fHVP4EznJgtgoPdWwezSMOEjdf3+MBYVNFl5O +D2hoRZOoiGKwYEbnEpv8iIZXh4SHTnxmgafEW4rPMxoGWYWU+bxhgVufm6VO +DQ1JoWfEvBNYcNwut+HlBA3brmvDOl0WXKIJj32comG07S4uuc0siPp6gX/4 +Nw1Htgx6qqqxoOa4gY3QAg0b+p0DRKVYIOPcMuLMLYUjd/w32RPv6zePMV4B +aSl8EDRxtaBhGRyuKR08sV8KQ5nJpj+NlsEu9dHXVYVSWNHktGIjfQnqGmrT ++UqksPrj9pZuqSVQHWW6kcqlMCCQmuQrsgTz6uqzMtVS+GLju8gnnEtwv6pa +QP+dFPL3LZ993L8IH3oG8NyQFLr9d6tfPXIRdgnIp30lSSPdViJSbnIB1Pye +upR6S+PN3VtXFyTNg+Xac7NFZBl8sLiQxscxC+kXVjCe+ciguduqDbNif2Bv +TdYB6XYZDG0T1gLvaeizPP6vab0sfugv8fmz7hf4rVltxB8ui7o2nk7HjUbB ++2Gj8KdhWRS2yOqX3s+Aq+a+odp75fDisd7v4fcG4dyerbrvsuTQQVhuKf5X +P3zLnLm7OVsOnxwtqTPs7QezNbnjD3PkUHVxUm++rh+UGhWS3PPkUPi4JT0y +vh8+7xLm4C+Rw2t6qtYORv2wCyca9r+Ww1chcYo3kz+D2Na0A13dcth5u+h3 +i30fvFQQOD24Uh7LGqhWHCt6IMPk3CZXbnkc3iWTcGKiGyLdO2d/rZZHuw+z +hh97u+Fk0cPgpbXyGEdxS/lc0A1rdtHTxYTk8WAEX8VD52445LjjmzlNHnfH +3Emsfd8FYynnrSq05ZH3mhDpQmYniEv37Ig5JY/G696EVt7sgGtZW3k5XOVx +q0GTV7hPBzC14z65n5bHoO7fWm4uHVBoZu1i7C6PPkrft+za0wH7Ln8Km/eS +x/f9fFd813XAjc4P3cf85XH2wPW4obh2mL7z1kMtVh7NWcO/Q4s+QvNcRXzD +a3mcsxyDj7wf4HDxwub1dfIYO11p1sFqg2Ev3daoenn0sLITEGW2wcrxck67 +Rnm8HfJkz8eiNtj+pey/mRZ5dO9d70A71Ab5r0sMpHvkkfvlGS/OmFZ4EFow +eOmXPIZn89sUSb+HU9QsFTWKAnImPUlzcmsGr6RozTyqAjpwH9JcPtQMflK+ +elpSCnhNPfntU4NmiJYxMdeXVUCjhvavmkLNRDyYZ82UFXDwq9Z26fK3ILxB +rsx9swJqnj1dbsT3FqoMEoxzTBXwXIKD6rnqRiAfC3Xc6KeA1lP/elOsGyBx +95kzD/wV8Oi5UZ9YowZQ2HTQl/OaAnZfWEWP1WoArRWSkV2BClibuzW1QrgB +LNOeVVy9pYDjb1bNpbbVw73hJqG2uwr4Y+d+o17TehA9u7rG8xlxftwr40fm +dSAeeIOa36WASepGXZner4G6UfD+th4FTNXsbfFwfg2ynx8K1PYqICnVMxms +X4OqdiFnR78CnpkzzePReQ16o4Mjf74T4zVvXbYs1YDDASjWmVRAjT9eV0aD +ayBNdsG8ZrUi6vk9Gx/aWw0baz2vtekoYrPAC2MWz0vI65pdMNBVxNaxIg2O +35WgOX7NJ1tPEb35v10h91eCNjnKI2S7Ij7/R/93PrcS9E/lHd25SxGDWPs4 +1llWwp6101tLLRQxbCbA52FqBTgdPDf16JQi2vAnSLWYlUPCd+8TZ2IVcdf9 +551Z7SWwi/4lp/OeIh4kSSrp1ZTAhIfRgn6cIt6+dpOvL6cEcF4khjdBEevE +tTx3hpQAQ6C0PjNZEb+HVR6uwxLYZDCvPJSliF8H9+qdKSiGhjj/XzavFbEn +fFuZ4uMimDILvrLjlyJ28rfPfk0tAFGb+1saJxVRRbXF+crdAtA7kTFtNq2I +ms0/2YrXCyD4whuXw38U0TXDNuTJiQKgPeK29FxQRLmNw0/NZAtg72SwWhK3 +Evqox45uSsuH9OhbX+aklFBoKJO9Ij8PDnfdhjwLJWwWOe33/kcOLO6+t0Q5 +oIQtwgWDG1ty4FF5Svmtg0p4c7nCJL0wB34kVmw+ZqWENks9/c3Xc+Cs409l +/qNKeOalu/MquRy4PWUh6H5KCdtlrY7JOWVD6VqxQWV/JVxpcyI0+l8WiMKT +68lZSli979xbkQOZoH3BNlclWwn7Pjxba6WXCZbP1/UV5hDriwXCnipmQoyY +j0ZTnhLeedHGF7zwFASnjAemSpRweJC1RfnJU1ibMmJgWKeEikcTBseXM4DF +qTb/47MSfvrAHOavegLMNwWequuUkVXpkOd6Jg02bNztnsOvjE1iyXv22aeB +973PrpsElTEv5UOboVkacDqtPLmFpIz1NgOeh1XTgLbC2tJQQhnF9acStIZT +wVJvXueIojL6MLlSnjimQt0L4Aw1UEaT5MJMsksKPH7QEjvqoYzXtg30a6xP +BicX+5iDnsr43+Sr6AihZKBv+RVdeVYZf5Rf1OGYewT5HQKR4eeVsUWPW1yu +4RHU8h8K0fBVRv0xh70Oxx/Bjxu9/r43lPGvBu/ys4QkoHsxT/E8VMbflad3 +0qQSIW8PxzaVJmW0Ct+3Scg+Hqb6dTLy3ipjj0zdlf+M40HjrBdJ550yVlq4 +D/Wqx0PB/e8Txq3K+CikuWaGMx6KhupTnT4pY6I091vhrAdQ5h/C93hAGak6 +HONLi3HwOl94QHReGd0WXQ5y5d6HdgnFWytV6Rio8fOD1e5YiCIf+ee1no5d +2VcnXbfEwj6BSOdvanTkaAyUClWMheaV8zsr1OloEBFx7R9XLLyebOE4q01H +U71XvD6vYyCvwfvyZ6RjudHzI9wQAxFe9R4FNnTkLa+Vkdp1F/a+dbQ8fpOO +1lsT3XrPR8Gmv5di3wTTcSa8Xe34qSgQkY34pHabjuo9zyamD0fBwKUyy/lQ +Os67puzesj0KfOjrrO5G0fGsHZ/zDp4oSL1VYlX/kI5+Tpuh0DASFo14bOgF +dPwXQ4vLLgiH7Npc26mvdNQOo/CdfR8K/IX/rbkwQMfM0I1uicWhcDaNXjo/ +SEdYmGB+SQqFzTdSyVwM4nsjBGeSz4RChdH9NpFxOsYXv94jJRQKb5v8jfRm +6Vi0vGHtH9sQYLaaaQQLqODip7/Hbi3cApnPY2uI7hp/CYdrPTx/E9ia6eXB +O1RwfWRzQsuJm/A11N5t2lAFq3bb1fDtvwmJuh/evTFSQSEJpni52k2QSCiO +8DJVwRC+lJwa5g0Qtg0gN1qroOuP3f8C7G/Aqm4RmXMeKnh89r9Ab6sgGGvH +rU0JxP5R3FXl7oGQQTcVtU8k1gckaMXYBcKJq1Z/p5NUUGyDatIVs0DoUXEr +pKSoYN0BrbW+aoHwJiBG3fOpCvJUX+xUmAiAlI1MZdEiFdypH+Os5RUAh0Pv +iDu9V0HrG6UyL1ZfA/LAvdm5VmL87d7WsbGr0Kb9uCv8gwpuepxB2dF6FYwH +i2JLO1RQruPuZoN7V2GzzldB3j4VvBsok3tW4SrwMzfxFDBVkPfPcMOL3f7Q +rKc3YjyigqcXcmihav5wM9qo8fOoCh6ty7nvL+QPS/pHbq6aUEH7lNzIF5/9 +YCwmaIXtbxWME0uXMPDyg4zR8IGJPypY0h/174u1H5yAB9XX/6lg+6obBnH6 +ftAzlu2fPa9C/N85++LgGj+IwVK7HYsqWLEQl2P56wrsu/9ar2tJBW8OSL88 +8+kKrP35TvI/FjE/tL3+ccUVaNjRNc9mq+CsYUT+2OMr8D/Le7BC + "]]}, "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:eJwVl3k8VO8Xx0UpkWVmrDNjX4YWESVL56RIIS2WFFoQ+ZKUlKJIG1mjRCRL +kij7msgSSRRZU5FmbAklu5nf/f11X/d178x9znnO8/58PnInPA84c3Nxcf1Z +xsX1/6uP30EBLi5hnNvOHeRZOQxmps6tzAJhvHdz86ay90Ngcsj2F7evCGqs +bW+wrhqEcYXA5XIbSRhp03u3opMFp4LehD4dIKHrQlqJhAwL+OR+ujqnk/HZ +HRHl1hwmWPrr7lC0o6BWg26+fzMTasXPeUnJiWJ5rGxsSzkLVhrXCvn+EEXB +r7E7H74cgn+au7O67ovhpVtNnHWxo8DnkJPgeVgc50M+Cc9Mj0PDLtM7K0Uk +UOXzh0zp4D9wuI49vLJWAv+ppF9wdPgHpMCYBLgpidlt5i29obPgvWBvflFP +Ch9VJsXU7l+AxXy+A0McKfSW8nysXLMENlzNb6uqqNglJTXYvY8D9vxvt8Z7 +01BEzGIp8CsHgi0fcz3fQscXT7UPaZ7nwDG7F3WvxujYck0b1uiywS7l0bcV ++dJY1uC0bANjEdb5PXUp9pbBG7u2rMxLnAPL1WdnCiiy+GBhPlWAawbSzi9j +PvORRXO3FetnxKdgT1XmfplWWQxpIWmB9yT0WB6bblgrhx97i3ym1vwGv1Ur +jQTD5FDXxtPpmNEweD+sJ30elEOSRWavzD4mXDH3DdHeI48Xjnb/CLvXD2d3 +b9F9nymPDiT5xbjfvfBKUehU/3IFLKmjWXEt6wIJma7t0ScV0HjN25DyG23Q +OFsWV/dGAWctR+AT/0c4SctUXUdVRO7EJ6lObo1AORriuMFPEa0npruTretA +IvA6LbdDERPVjToyvN/AhmrPqy06Stgo9NKYzfcK4n94Hz8do4Q77z9vz2wt +ggmzm5e3/1bCdsHWmW8peXCo4zbkWChjo+gpvw8/s0EMnlxLylTGyr1n34nu +zwDW2zxPtTUqyC53yHE9nQqPHzTFDHuo4NWtfb0aa5MgZzfXVtUGFbQK27tR +xD4OWiWVbi1XY2Cgxq+PVrtiYM87R8tjNxhovSXBrftcJGRVv7Cd+MZA7VCq +wJkPISD7ZWQVDVXxNylM6+G5GzDSilsa4lVxbSRvRal7INRt75jjcFRxxjA8 +d+TxZeh3tBs/e1gYJ1NeHWw3HgbaNo/ZqM8iKFUpX+NoMghZB5NNfgaTsC1b ++8FKbxZsbW29xGtExnlHH0+lbiZssBDq2LmMgnsuBMqdyGJCaKP14aTXFKyz +dbWPUGYB68XDqneBotiqTvppGTUIV17xfsvQF8OCfkGbq1wjcLXBTzFtVgwl +n/xXa5o0BkOtS9HlheIYkZY3dl5rEnZsm5v60ieJ53pVpc/Pz0FJZ75FTqIU +LrjRTRkpi6DW81+o5TEqZorM3TDIYEPPij0B2VI0FPQfal/I58Bf9U2J8h00 +PP3sg0PTOw54H1IZyL9Lx9dHFacixtngcFX5wPF90hjCSjL9ZbQEO4UUUr+R +ZZBhKxkhPz4P4ltS93d0ymP77YK/TfY9MJJ8zqpMWwH5r4qQz2e0w+Sddx7r +YhTQnD34N6TgEzwIyeu/+FsBw7IEbQpkPkCFQbxxtqkino13UDtbWQ9iZ1ZW +eT5TRM3Y18aPzGsgVW7evGqlEur5PRsd2FMJTgfOTjw6qYQ2gvHSTWalUBfr +/9vmjRJ2hW0tUXpcAGlRt77OSiujyEAGZ1luDhSvFu9X8VfG5TbHQ6KmM4HN +vW7u5xdl/PyRNShY8QRqXgJ3iIEKmiTlZ1BckoHhxTrJ91AF/5af2kGXToA3 +uaQ+sTkVdFtwOcDz4j6Ee9V65NkwkL+0WlZ6511YMOKzYeQxcDqaHpuVFwas +ZjONm0KquPD539Fb87dgRaeo7FkPVTw281+gt1UQHAq5I+H0QRWtrxfLvlx5 +FdZNdPpvXS+MWRfV19wOGgZNU8ezjekieEnsAiMzaBCa9aLSue1JaPqjbpNF +Ggs+qTXy2FDIaDhiHdozywRaia9MexvBW6vtbPVMJkykNjQfD6Ogb23TwIm/ +TLByXCl5dr8oBhTyr+miD4JhIHM6UkgMPfbPF3tYDEPZ0gnX1/ViOHq5ipcv +6hdclLB5IHpbHIvP2QtuiZmAzO9vG8LyJbHe2LK2x2gO7g/f3hvjLoXVSW35 +OzgLQK7X9ZTeSMWwXhnzYX02SPCEKhSPUZFMtWiJCuZARqLffw5PaJigVuYy ++4UDVzoGvNSd6ahBmjfP0eHAd48RfiEZaXwQNHYlr24JPnb14dkBaXT771av +esQC7MSxun1v5PF1cKzSjaQvcNBx+3dzugLuir6TUP2hA663f+w86q+AM/uv +xQ7EtkLumyIDmS4F5H112os7uhlI6+VL3DcR83TmVKmRwDu4N9gg0nJXEX/u +2GfUbVoLDvuhUGdcETWmvC4P36yC3asntxRbKGHonwCfhyllsNFgTmUgUwm/ +9e/RO51XCHvGb65L5FVGH/WY4Y2puXB7wkLY/aQytspZHZV3yoLVyUMGhjXK +qHQkvn90KR0s9eZ0DiupoA+LJ/mJYwr8vN7t73tdBf9p8C89i0+EEv9ggcd9 +KkjT4RpdXIiFnDrvS1+QgaVGzw/zQjSk3Cqyqn3IQD+nTZBvGAHvGvyN9GYY +WLC0fvWUbTCQbAMo9daq6Ppz13SA/XVI3sBSEStQxR360c5aXgHAq3Hhii03 +CZ0Gdmz5LTgIIf/ljtQVkbCS43DFcxcLkn2/TBaeJ+MlXd3i9iombGelhRZs +oGDUPTenzSVMYEz+ZPaOU9Dj5BY/vlMs8JlXd5XLE8UZdXnhVeJDUDajUld1 +SgyrtOh2/DUj0FP3bV9TsxTGpQykr9u6BDiW8Cwkkoo/s6J43ZZzIGHVqq+p +u2h4UIPMmmnhwLbq4WYWLx2LQzWuHX3KAbceN0udKjqSQ06Le8ezQZC1kS+P +pYr8U4N1L3f5w/4i0boEMWFcGe5yNzZ5GCr2O7xkRYjgc5lqdnfyIHxTD26P +MibhS6eA8mcVLKB3GplwFkj4lPS1Q5ufBXd/bdhJryBj85KS/jmCxymRy/hq +vCkY5Om1tOU7wWcDAyPjraK4KbtkS94IC9IGLHlWzIniCqqcz/GlITgkYR1i ++lIMN9MF6MEivwDLg+INvcTxQvdkYZ/xBDjkZOexEiTRadNZcvvwLNw4+9ec +11IKdeTtFaufLcBtg5RjPBJUPPLh9seGZWwoWbb+n14nFa3u0HwXT3PgmmXy +gcVQGvpdMjzQ8Y0D10UNt3rspaP2yZUvww9xQNa5aciZVxqH7vhvtCd+f7+i +Ukj/vTQK9iydedy7AF92krgEi+Txqp6atYNRL6zayUgTF1HAA+ECZQ+dO2Hv +pc+hc14K+KFX4LLvmjbY9rXkvz9NCujevdaBfrCF8AusM2Yqitj/TWubTOk7 +sEx9VnblliKOvl0xm9JSC3rD/UNTPxSRXPXOZfNiFeifzDmyY6cSBrH3cq2x +LAemUHFtRpIS/ggtP1SDRUB/xGvpOa+E8hsGn5rJ5cEZx18qgkeU8fQrd+cV +8tkgPGHcN1GkjIP97M0qT54CfZm1paGkCkroT8RrDaZAteDBYA1fFdQfcdjj +cOwRFAzUpjh9VsEEGd53pMwH8Ga8ieuMNgNN9V7z+7yJBh/GGqu7kQw8Yyfg +vJ0vEsqM7reIjjIwrvDNbmmREJCMLwz3MlXFYIHk7CrWdXgbEK3u+VQV+Sov +tCuOBUDUlrPl50dFUPfzrR6XtYPw8OgzSavHJDSwEivQt2fBmJLNZgd7Mi69 +ZhdyNzGhROpw7qI4BZULO5dW5zKh5ytddlsnBVX+5t9vNWLBi8/OMf/iRDFR +csC799Mg0A7HftI6KIaCSx8ioo+OwLu9u/dtK5JC7Us+n7eOL0Kh4/KHnhep ++LlDYsSwiw16K5+9YGjQUDR0bVBDDQckfAWLrv+moaXZ5vz7ZRzwlHxH9XlG +xyCr4BKft2zYpPNNmL9HFe8Gyr44o3gFblzZW/liHRn5vhsckhtiwpOg2vnQ +ETKu3v6gSo7Qi23FETFc6RRccrfIliHOh3Twp1+Jp0SRxOO9+4jVIDza1+a/ +1YSKaUY8KR7ebPBdPrpfczkNbz2O1I1+zIFmls31qgoa6sUU2E5+5oBv7I3M +yct0vJdBlcgU5YDVh6PZa8LJqL1HMrG8mAmNueMu7kYU5IFLt9lvmOCzPOv5 +5VWiOBIvF3UwkgVNPtolTzKo6FjS5pS8jgOLfC78Mg40XHO53T6kiwNO/HWD +JjJ0NPAxbN4SyYGR6KBltn9VMVY8TdLAyw+c4gpc9/ILo+3499qQnGHgbv/y +wfu6CI78Jd0Syh0EluoKD1s9EnZE7b+c2MiCHdlBbm3jJPR0Cf43Q2FB881g +6ze5ZOxzy/pw7AUTFnil08+5UrCyX/bL6Q4mZKgdOrJxvSgaLh5UL2tlQUdM +KF/lmCiamXlbTLcPQfoTCyopVQzlJE4qFLWNQppAPLXbWRzLFEv5xmUnoEQi +WSU6ShKXYoZ7vctnYbEow7xylxS2O8vKCF9ZgOpZq+5//FQUcvHWZP1YglWB +S/bs91T8GvzisN0xDky83GT8PoCGMRoDo3kEH3i1J2kCO+i4TJvGNnHhQNUx +AxuReTrW9ToHiEmzYU5dfUa2Uhpfbngf8YR7EZTrFRPdc+SRdMySERHXCycK +Ht5cXK2AsVS35C95nZBvZu1i7K6APso/Nu/c3QbLR0u57eoV8Hbwk92fClog +StbEXF9OEY3qWr9pijSC1jKpiI5ARax+sSWljFQHatr53G29inh61jSHT+cN +aFMiPYK3KeHzacb0uRflgHOi0fzxSlgjoeW5I7gIbp5/63JoSgld022DnxzP +g58JZZuOWimjzWJXb+O1bIgW99FoyFHGOy9bBG7OPwVup+UnNpNVsNamz/OQ +WirktglFhJ1TwSY9Xgn5ukeQd//HmHGzCj4Kbqz6wx0HjcvndpSpM9AgPPzq +NE8M9F0ssZwLYeCca/KuzdsiYdP1FAoPk/Bz4cJ/kk6HQILux/dvjVRRRJIl +UbruBnSpuuVTk1WxZr/Wat91gdBRNt7N0yeCDuYrPTq2DkKarVIu7R4J7cWY +d4NcWUBejDmkuZ+Mr7PGVGxamfC3oKDmsQAFrx6z7nMh5mmTpW7F70aCF7xH +ggq0WdD4JiDze5gorpUbvbaCmE9z/pbO37vEcPKcub6/+ghgNNti5pkUGps0 +hZHeLcKEdAn5hDsVhSnmrWVVbAi56Ss+qkRDE647jVavOHDz8+NnB3/QkM+m +pDivmgN/dC5yKI/oeGWANHD8CxuM+wtiittUUb7t7iaDe1fguWVo/zVZMo7t +dOAymWBCH11mjcZ3Mm5dTX3a94wJseuzNHLjKPh3jne+ic0EXZ9f3LftRfH8 +SrqLAFF/F/+t6bX6VNTO2xsua8uGhqDysqlZKko5Hzhy4x4H9AxHLkTk0jCr +TcZhjji/i0Va4ZFn6Dg2TP4XqcKBy6mJLf2BZLTtWXV++Ssm8JrtuSSsS8GD +tJu6dcR9y6UGk3WLFFx9uEBdzY8FvJrDGx8kUNEkxS97uSQHzIK3ePcfoGGh ++q6MAoI/n07afBEn03FlSP59kwTie/qHb6wYU0X75BcRL7/4gc2Bzxq+DWRM +v2UeI/CcCbulmP+RAiloPXpq11eCj67X7EJ9f1CxQPrk9lI/DojOCR5dH0fD +14N8smNfOVBvIUkJOUXGB03bc9a+ZYJfAOfRIQUK8k1ZVewtYMKvW11GJ/Vp +GBlt/ONgIwee0/2qC+dp+Md6wehSLuFvhk8NDf0jY09gZcA0wV+1G1LDnkI0 +LPEu+VaWyYFjd+oiJ9/RsOH33Kd+wh+pz8jd2RpPRqNjjaPsfCZEiN+zathH +QQEG1wNmPROyQu6n2J2iYarCU2tfwl93jWT5Z82pourvMy8PrPKDsdXXdZ+u +EMa458oL7OJheHJf6mv5FRFkvA5YlVsyCCPKNToV2iR8THekMj6xwPpByuWK +YRI+2jlfuCjJgl9tRUfJWWR8+n5WM/gl4QcNs6ZMT1Cw07I+5Agx35uTnU8q +qYji99OT/ynUs+C0R4YAbUgUW2xvfkuvHoK97k2O/xLEcNf9BFOTwlGw1lay +Uzwmjra7eVyUBCeA2SR1YviOJNbmSl1XT5sFHdugDw+3S+GBxUqNJZcFONrx +UnR8BRVPjoY3y7UtQU6V892jb6kYf932cDHhh9K/LlbmXaLh+3SdTfoEDxtq +G8KPGNCx7ROM2RB+KvLbecHBv3Qc2tzvqbaODWrDLDdyqTQGBNISfUUXwWzV +i9GH2fKotjCuN1fTCxHu7TO/Vyqg3ccZw0/dncDSjv3sfkoBgzr/arm5tMGg +l25zZK0CeljZCYmxWsBP2ldPS1oRr6onvXtq0AiKGw/4cl9VxM7zKxgxWnUg +9+WhUHU34ZdSPJPA+g1ojl71ydJTQm/B75cpveUw5mE0rx+rhLev3hDoyS4C +vePpk2aTSqjZ+IujdC0PHpUml946oIw3lspM0vKzwfL5mp78bCJvFAqFPlXK +AO97X1w3CqtgTvLHFkOzVGBs/h1VfkYFf5Ze0OGafQQaZ7zIOu9VsNzCfaBb +PQ72CkU4f1/HQK76QOkQpRgQlQv/vO42A9W7no1NHoqEM6mM4rl+BsL8GOtr +Ygh8C7F3mzRUxYpddlUC+27A8StW/yYTVVF8vVriZbNA8PXbMLynRwT7784c +kdw+CBnWA34BESRMHImgbDvNAuXB/FM0UzL+leLZ87KdCcLcP5r+8BI8DNII +3p/NhGMRDfz1tRQ0GSGTeTaw4JBOeOHnW6K4n3Hl3irCz7MGRnpMDcUweU7W +6Iv4CPhpd7e0pUrhstHtVwsLFyFsUWTfkZNUfJHSlRlfwAbNt/2mZrI0dJhq +LDAq4YA+t5uCXi8N434K/Tv6lgP5DRZeTg/oaEWXLItksqFF+3FH2EdV3Pg4 +nbq9+Qq8hud/3KXIuN1bi+v6FBPYbmZiQd1kLHX6eGGa4GGtq25AcDQFx6KP +0heI/N3wa26Nv40opjuvpVoQftFnuE9TaTMVpw+GcMubsuFMjcK41V8quggN +YkYEwWPP/Emf5zRU/OYjEd/DgQpjAa4+Nzru7igv3bqRA+Hhr/reXyZjXKPx +TrvXTFCMuxB0QouCFSBS6FrGhMVC69jl0xRs2Ph16eJZFqQK7fCIuk/F+pte +cx2CHJhqSMowNKehelH+unOtHLgdI2vFEaDjNu4THn+TOXAjyqj+y7AqHqnJ +vu8v4g/eScv03leT8QV3ctcLgoc+VufKRi5RcK1Mec/vAWK/qmurenqpuFli +2nrmPAealLu6KNE0lCzt0wsizluPro6StyOxv55NpivfMSH+w7qMTDoFc5ev +vvcgjwkx9XipfjMNPyzLkl5bz4ETpkb6iVM0vFmvd4pRRKxvc+yk7gQZ3cbN +L/oSPGytvUb/xEdDl4yWLzVPOCBeGr66u4aGhqeDPEKIegx/YIJCDBnNWwOC +3hcS/HOqdpAyJfLp21MKvbVMsGxkd1Q40pBR/f65NNHf4/Cg8tq0KrauuG4Q +q+8HOVvtzD2LyfhSZ9lhW2L+tl5zaxq4ScNzeX+2s4h6Olxule0lUXDfJWrE +E4J3P4xFBoLXEuuv7xFeV8WB6o+TPN9/EvPg5v/nNzEP1yly7KfFNMxxj3QS +6+SAa8mV1zO3yFgcvqWquZQJQ2ya12ugoEzAmL1ZJRPSdrdAwCEabj9udOxV +Bwd0VzxlqDSTMWCD7edQon6H90ZMoyQa9kgoylMIvXHY1HqPV5WCo/SA7+uL +mGCWoP/9/gIZdZJ3b48j9ivTflFs9UcaHrYVLZ9p4gBNgOeSxWMyJiR27bUm ++r/cdMPphdM03J8f7h7fy4G999/odSyq4o0+mVenP1+GvJr/Utu4hZGv7k9h +cfkw+MyUOn2/LIJxxRWOQa8GwV0pRXpck4SWuuQAr88s6FujeT2PRcJGSff2 +WzQWXLpk7qT/jIx/bFYkq+Yw4fXRv1SdoxRkhBrNOn9kgr/dr1EZRVHMjktQ +83rDgjLbzeF7mKIIZnVxEqVDkNKyetVgnBh+iF48sDF9FHLeuS3uthfHR6m5 +l5uWT8Bius1VSrAkSuTFvr/1YBasM8+sCdkmhUTcCmPaLcCGut78UW4qcvv6 +8619vwTX++LWRdZQsXO+M6vFksjT3v1+6RdoOFV0NXiQ6GdGaMGuIF06Op1N +Kn7vxYGLdNLIpwk6Rtnu5JHfxIaauuo0gSJprPy0ralTehG+Z/y5uylLHp8c +Kaox7O6FdJOzG115FXBwp2z88bFOuJq5hZ/LVQG3GDR4hfm0waHC+U1raxQw +ZrLcrI3dAl6JUZo5NEV04D2ouXSwERJ2nT79wF8Rj5wd9okxqgPaBuH7W7sU +MUWzu8nD+Q3kdMzMG+gqYfNIgQbX33LYyfia3X5PCQ+QpZT1qopAzOb+5vpx +JVRVa3K+fDcPFnbdW6TuV8YmUl7/hqZs0D5v+0I1Sxl7Pj5bbaWXAes37HLP +FlTBBvGk3XvtU8HJxT76gKcK/jf+OipcJAkmenXSc96pYJdszeX/jOMgknJ4 +2mstAzuyroy7bo6Bjf8uxry9ycA/Ya3rjp2MBMH8/1ad72NgRsgGt4TCEOBo +ppXe3K6KayMa45uO34B0hqmYfQKRrwPitaLtAmHP1w9nTneKYNO2VWkVOwdB +zar6RF4oCR3a783LerEgx27HWRETMvJHuqae7GRCUsbFT9TlFGxpGV36nMWE +6SyhTflvKMjcwL69XY0FSX8pei3XRfGPx0i8UtwgaH68aHcJxLAzXCdcUWAE +4m++Fap+LIUSaZv6pp4vgt3ott82jlQ8kzWfd+4FG3hZoiw/Og0vpK9kqxD8 +kYjb27ehm4ZiFvwm0g0ciInUUwu9R8fwA7R990fYQOm7NzPbrIo73u1pHhm5 +AiaFugvHxYnzNem38HyaCWEiA1JZHWS871bQKEic38M3A5+ej6RgcvOlzyrE +c8GMgOgLlqKYZFDcGqI4CDu71nyS20TF5Y9bWAI72bBzwCb45gQVRe2eaqSF +cuAD74MXbhk0VBpSiNxP+LlHgrMlK13pGJb7ce9lLWK9y82Gqy6ScfTBy48x +BE/yQPD2HQ1CHyoKzfYQvLnblvh64g/hz0i1gqUeLDjL9uQPj6airPqIYwYf +4Y+G2gzP7aHh+qdra/Q/ccBx7QrSXz46+v6MtcxN40Cjnt6Q8ZAqnprPpoes +8wce4wcwVUlGh/mmJgFiPwTOlfV3XKDglsKr10L7mfCzf/Ywfw8VP3lnLg88 +y4GnFa/urYqk4Qb+ftVCgqdOOfXrTx0jo0TgPsHARiaoetdktUlR8HleV0VT +LuG3B70ps5toyHWnnz+wjgMGP1TnIicJPqZdC3Mh9Fvs6/ppxzEy2lNbZk2I +/qb/LCpetpKGsk/IrzVTCT21OFffVEUj/G4e7W0boU82H9Mkosj4rSpOpZLg +pR6/reMOEwq6X9/f71JD+NcRTa/fx2iY9mNF2ZFuwj8Oh/WNTaliUW/k9Fdr +P4C+P/sfFJBxqO34eBehDxRJi+DOIBpO9vova/9/PYLSlReEKKhxFt8uI/Sh +6KSRfxmDhqZ7p1RMXnNg/4Xbq1b9IOPmxj7DAUIfjj1fUf6wgIa+Ve7KwkT+ ++bNesP7XdTI2hPZbMAk9v/Ak//ygPgU9Hw558RB6f/EUT0+OFQ1FYza+qmwn +9uu5wfp978l48IKXfQNRv+4JtZStCTQ041qzcJvg2Vi3a7y6MgVd3iYzthJ6 ++MWwbaBylli/T7DCDkIfbkz1tS010dDPOumPdzNRb+DdazsTyRgV7SymTOSJ +LrcTq9a503DE25gsQuhDNBbbbV9QxbL52GzL35fBfr3skZEXxPtM+6EJIr++ +N5bgqfQn9Ib1YOkq0Y9rR0wb3vFRUDTn4MdOol+etYUih3uJfKR8mDRI1C/W +3awV9IKGoWGLK1qJfrNm3Tan1JHxohy62xLrm4j4S5W7T8NYv0uhSPzfXATX +mMhfMrI/zJvmE/UGZDbqh52kYdKuWq02Qs8dRm8ITQTTUKf5d87/9VpL7Qin +cJCMq+Xrq3mI9587CCuyP5Ix9lPRisPEfZDWccaBFBouPhOJDyfqq/j3pMeD +TcZuxynWLPH9jWvn2xq9aNgWf9NJlOjn6l/vpf5jE/kppLX2cdll+B+RnrBC + + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1WV4l2UUB+BRSod0M7q7U+mO0aHAAKVHd1u02IqddIlYKN2dtogiiCiI +2O19Lj/cO79znnHtz/Oed0tMTkkanSohIeGGL1Hn+lKUY/JielOD1KRhnrNi +HJeX0IearDBrwU/ya8wmLXebJXJCXkpfarHSrCU/y5uZQzruMSvOSfkB+vG6 +Pik+H9v1tVklt+KXOGe/PIRczNW/q/YhAx8yif3mx9SRFOQ8s7jJ/F61BBc4 +pT+ljmGZvFsdyGWy8wlTucbtzreoXblEat5nAlfZ4fywOowr5OMcM7hOHeer +1dZc5Ff9GXUcW+QD6p3k5jOmM8/8PbUvGfmIyRwwP66OohA36+9TS3JafpA9 +cjI5uEP/htqNNOzU12WN3Ibf4jyeIdv0/cjEQX167pdLcUZ+iP68qe9OWnbp +67FWbsvvcR7PmAzMNyvNWflhBlCfdWbt+EN+K54NGVlgVibuV36EgTQgEwvN +y/KB/CjJNCQzWcjKIuflYh/kxxhEI7LFrpuXj7uUH2cwjVlv1p4/5bfjPske +u29WgY/lJxgSn1Xfg3Ts1jdhg9yBv+R34s7YHntDZg7pc8S7IVeM3ZKfZK88 +iFvi+cfPVnvGrrJHf0QdTn5u1W9UO/K3fFYdz1b5oHoXeZiv3xHPnSzx2ZnC +YfMTavwi+JbCfMFsfojPEO+iWomv+FR/Wh3LdyzX71MH8w0543uYxvfx8+P/ +rvbi69jLeE5MZK+zo+oICvA5M7nNfJPaiX/ifeaQPJS8LNDvVPuTlSP6nCyT +K8e7Ij/FULbqe5Oeffqm8TtK7sy/8S7F/pAr3hGzKpyTn2YYzcgdO25eNT6j +/AzDaU4e8pKP/BSgIIUoTJHYb/+uGuflZxlBC4rGLptXjzuXn2MkLSkWu2xe +gy/l5xlFKxJjh81rckF+gdG0pnjssHmteF7yi6TQhhKxr+a1uSi/xBjaUjJ2 +z7wOl+SXGUs7SrHcvG48Q/kVxtGe0nHX5vW4LL/KeDpQJu7RvH7shryCCXSk +bNyjeQOuyCuZSCfKxT2ZN4ydlFcxic6Uj3sybxT7J69mMl2oEPdk3pir8hqm +kETFuCfzJlyT1zKVrlSKe4p3KXZWXsc0ulE57il2kuvyeqbTnSpxT+ZN412R +NzCDHlSNezJvxg15IzPpSbW4J/Pm/ChvYha92GzWhfiDvE1ZxC55ANk4qj+p +plAkdoM5qf7/G17d2X9hl/X1 + "], 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]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 13}, {0., 1.991919222968944}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3k8lG8XxkUpkW3GOjP2ZUiJKFk6J0UKabGk0ILIj6SkFEVKkTVKRLIk +CdnXRJZIosiaijRjS5YW+8z7vH/N5/u5t+e+zrnOfUb2pOdBZ04ODo6ZFRwc +///18TvEx8EhiPM7OIM8q0ehoO6/tA5OQeRpmCkurRyFibU3dJ+uEsT450qL +rNJRcIovct3HK4i2k9/qQ/NG4UCJSEOiqCCujnC5G5cyCmpT3f7bNghi9iX1 +dbeDRmHQ0W7y3BFBnE59eajTeBTMTJ3bGUWCeC94y+aKdyNgctj2J6evEGqs +72yyrhkGn9lyp29XhDC+tMox6OUwPLkv+aXyqhDSXwWsyS8bBs7Oz++9bwjh +2G/hWwL5w1B1wOEFM1IIn0vXsnpThkHT1PFcc4YQXha9SM8KGgbqdo+56E9C +KFktV+doMgx7v7w/e6ZbCFu2r0mv2jUMvn4bR/f2CeHg3dmjEjuGoatispdr +QAgdzFd7dG0bhuit5yovjAuh7qdbfS7rh4Fb4+JVW05hdBraufUX/zBMygeu +lN0kjFE2/XerupngrpgqNakpjJa6pACvT0wYU6rTqdIWxsc0Rwr9IxOYKqs8 +bPWEsSv6wJWkZiZ8VQ/pjDYWxhdOAZXPqpjQqhedwWkvjKbfGzZbpDMh+1CK +yY8QYezI0X6w2psJqla1JwvChNGh896CjBcTMq2H/AIihTFpLJK8/QwT0m0V +86n3hNFelHE3yJUJD489k7B6LIwGVqJF+vZMCP0vf6yhRBir2Q5XPXcz4XTQ +67CnQ8LoupheJi7NhIF1mjcKmMLYLOHeeYvKBOsHqVeqRoXx0a6F4iUJJuzM +CXLrmBRGT5eQv7NkJtC6jUzYi8L4VPhLlzYvEz6qNnPZkEloOGYd1jfHAJNi +3cUTYiRMnPZbfP6PAa/g+Yy7JAl3eGtx3PjDgOeWYYPXZUg4scuBw2SKATev +7qvOVSMhzzeDw7IjDNjW3n6Z24iEC44+noq9DMiz23lOyISEvFGuaae6GaA0 +XHiaakrC35Jce190MoC0FHtY8wAJX2VPKNu0M2BC0WaLgz0Jl1+xijlbGOCU +17jh9HESigfu5w9sZkCfro6ityOx3rPFdPVbBjRaSJBDT5PwQcuOvPVvGJDi ++3m6+AIJL+vqlnbWMEB8pdlozSUSjj948SG2mgERES8H3l0hYXyz8S67Vwy4 +kpbUNhhIQtu+NRdWvmTAzAb+xp83SNgUNmjBqGCAa9nVV7O3SFgasbWmtZwB +Vu+P5ayLIKH2XomkylIGtNh8SBePJuHXmnjl6hIGGH7HRPlYEpq3BwS9K2aA ++qzsnW0JJDQ63jzOKmRARuDd67uSSBgd4yyqRDCVj+uyxWNC76SefdYFDOCR +/eHqnEHCZ3eElNrzGHD5srmT/jMSztisSlEh+GdHyTFSNgmfvpvTDHnBAPsN +MkfHcon9GPYjU7kMaA0OsX6dT8IBt+z3xwmGgZkDD4pIONJxYrInh4jHNjtz +z1ISvtBZccSW4Ls/N+6iVZGwdVlR/3w2A7iMH8CfahI6LLS08BHsnbxC710t +CXM5U3pynzOAOee2JbWBhJdk0d2WYJuDnzR8m0iYccs8lo/gpucGG/a/I+Gh +i172TVkM0F31lK7cSsKAjbafwgh+7iCowPpAwriPJauOEEwt85Xu7CDua7WD +pU5wuNCQZHYXCe+7FTXzE8xyMxMN6iVhudOHi/+eMcCzvljoSD8Rb6UjwsME +D9Ck12l8I+G2tZSnAwQfuHh7zZrvJNzSPGA4RHDth2mubz+I9W7+M78I1lI9 +yi4eJuFaucZaLmL/J0H1C2FjBO94UCNLsOiXDf8cJ0hoT2mbMyH49pa4ad0p +ErpNml/yJXg+kmNC6DcJWe8XTAsJdhs9PTLyl4R9gdUB/wj+bNgxVD1H6O0T +Ir+T0MMsUf/b/UUS6qTs2RFPcNXfJ30eLBL2Ov5hzhG80UKga9cKMu69GCh7 +ktA7OfPSR8pKMra1jS9/IliQ83vLDDcZrwVphBwg4nX9qGnTWx4yiuQd+tBN +8O+iorrHfMT4cesBFyLeTvxS1RcFyKhxDt+sIPKjy+VWxT5hMu6/TIl8QnCZ +5JH8JTEyKhV3L6/NZ4CKd112hyQZnxf0VLUQnPBeLTOLRsb8lWvvPSDy0S+A +/eiwPBl5/lhV7Ssi/NnrmqCuREaXNyn0bUR+O2xuv8etQsZxWsC3DUT+72Cm +hxVtJGP0PTenLWUMKAD+23c0yFhVVWy2l/CPQvzFoJNaBINQsSvhL26zvZcF +dcl4iBqs20D47+KTwgvD+mT0fDjixUX4c4RF9XoFZJQOmLA3I/zbnD/p4m5E +Ri64fJv1mgF6vLaOO03I6H7jwKBLHQOynWodJE3J6PHmtHx/PQMixe5ZNe0n +Ix+d4wGjkQGW/ro7FezIqNWkW+jfStS3Y78pOsfISA8zmnP+wAC6YfYf05Nk +7LZsDD1K1KNFbqmM865krB6U+XymiwGpUSt46rzJGOTptbz1GwP4zlcMdl0k +49bia9fDBhngY3W+YuwyGddLV/b9GmLAHknGf8KBZLQeP737C1Efp9KaWk+E +k9G3vmXo5G8GHAkOfHohiowprZc/KRP1tt5VNyAkhowTMcdoi0Q9jtuQrZEf +T8bf89wLLSwGbC+NjOXIIOOyu0WONFG/w5qtjyS/ImODrat9pBIT/mULbC58 +TUbGRtbtHapMOB7ZxNtYT0aTMRKJayMTNlvqVv1qJuLPfTSoSJsJfV9oMtu7 +yaj8u/B+uxET6NM/GP2ThH6ntvrxnGbC3Y6kV1MzhB7C9fzlHkxYKraOW/mP +jE2bvixfOseEtstNJmpLZFx7pEhd1Y8JPiuzn19ZI4JjCbLRh6KYUC923ktS +VgQr42Ti2iqZ4G/3c1xaQQRz4hNVvV4zYUuK8ylFZRH8dmb6P/lG4n1UPXx0 +0wYRNFw6pF7RTtzPwMDIeJsIbs4p21owxgQrx9US5w6IYEAx77oe2jDwZwbE +XLQUwWSD0vZQhWFo+jm/zt9GBDOc11MsiPdf1+cn5217EbywmubCR/QHUiEf +fyadFkFhLu89R62GgZn7sOZtoAi2qwv/sIwehuTfZL22GyI44zGWoBg/DId1 +Ioo/3RLBA/Sr99YQ/Urz64Csb+EiuF52/Poqop/J/eQc+zdeBJMkhrz7PxL9 +0IK6q2yBCM6qywmuERuB1cb1Ar7fRZD/S9yuhy9GoMJ2S8RehgiCWUO8ePkI +nPHI5KOOiGCbbfDXjNoR6IoN46meEEEzM2+Lf50jkD5kybVqXgRXUWR9TiyP +gGEg41+UgCh6HFgo9bAYhasvub9m6oti0SC/zTWOMdD8cMnuMohid4ROhALf +GDCHxvpMDUUxZV7G6LPYGJjztnX/2i2K0+fN9f3Vx4B6JO6j1iFR5F9+Hxlz +bAwqZpUbak6LYo0WzY63bgz+au7J7rkvipdvtbDV4sYhtW3tmuF4UXwfs3Rw +U8Y47HNvcfybKIq77yeamhSPQ8YTC4pwmijKip+SL+kYh8Pi1qGmL0RxC42P +FiL0EyqWT7q+ahTF8Ss13DzRP+Fak59C+pwoSjz5r940eQJ4HPISPY+I4ULo +R8HZf5OQ99ZtaY+9GD5Ky7/SsnIKrLUV7RSOi6HtHi4XRf4pSOdLoPQ6i2GF +QjnPpMwUYGVQgqGXGF7snS4eMJ6CS+I2D0Rui2HpeXv+rbFTMNK+HFNZLIaR +6QUTF7SmoWm36Z3VQuKo/Ol9llTIDBxpYI2urhfHv8oZFx0d/oJwYGwiBEtg +Tod5W3/YHCxl2Fwjh0igeEHcu1sP5oDRInly9I4E1udL3lBPn4My8RTlmGgJ +XI4d7feunAOHvJwCZqIEOm0+R+ocnYOsb2+awgslsNHYsr7PaB52bp//83lA +As/3q0hdWJgH70V780t6kvioOjm2/sAiWGedXRe6XRKJch3OsFsEHdug9w93 +SOLBpWqNZZdFWCrJNK/eLYmdzjLSglcX4ea53+bclpKoI2evUPtsEe6P3t4X +6y6JtckdhTvZi1DWXWiRlySJi240U3rqEiQEvxGofSyJ4umbB/48XwI/7d62 +jjRJXDG+41px8RJgDMti9pkkGpu0hAu/XYK3+/bs314iidqXfT5tm1yCvoav ++1taJTE+dShDbdsyLBXyHBxhS6K3pOdjpbpl2NjQXzjOSUFOX3+e9e+W4VjX +C5HJVRQ8NR7RKtuxDLVzVr1/eSko4OKtyfy+DLcNUo9ziVPw6PvbH5pWsIDU +qOsptYmC4f3S5qP6LNjVs+6j7GYKrnzcxuTbxQKf0QFNxS0U/HcolFPOlAU9 +vLf+rdenoHbBvggZWxY82t/hv82EgulGXKke3ixQ7fsvzPI4BbOE5m8aZLLA +bnz7LxtHCp7NXig4n8uC8CWh/UdPUTA3tScroYgFU1JlpJPuFBQkm7dX1LCg +2HHlQ89LFPzUJT5m2MMCnEh8FhpFwR/Z0dxuK9lwjuXJGxFDQRn1McdMHjak +Cez0iL5PwcZgr/kufjZwa45uepBIQZNUv5yVEmxo8dEue5JJQceyDqcUNTbY +cLS+qamhYI+k5HDvfjbcGIhXi6qjYPdCd3abJRvyapzvHntDwYQbtkdKD7Nh +TeCyPesdBb+E5B6xO86GshUb/up1U9DqDtV36QwbfgzOHeHto+BH76yVgefY +IFhbX9PXT8Et4v+sZy+wwfW6XZjvdwoWSZ3aUe7HBnGuMPnSCQqSKBZt0SFs +2DVkExI8RUERu6ca6WFsOFsnP2n1m4IuAsOYGcmGpqDKij9zFJR0Pnj05j02 ++K4cP6C5koq3HkfpxjxmQ8aPktIVq6ko84T0SjONDe3112kfeajoktn2ue4J +G1RvSo56ClCxzLvsa0UWG/pW7Q3IkaQiv/9I52IhoRdThOlHo+LFjNUs5RI2 +aL4ZNDWToaLDn+YiozI2hAb7io0rUtGE406z1Us2lJwy8q+gU9F03x9lk1ds ++G4sNBSynorvG/sE1WrYoLf6WS5dg4oiYeuDmuqI+w97k+c2U5HjziBvYAMb +YhvxcuMWYv6KbKn1jWz4eavH6JQ+FaNijL8famZD4po1X9J2U/GQBok520bc +f6TD8PxeKm54ur5O/yMb/jQlZxqaU1G9pFDtfDsbzEK2eg8epGKx+u7Mok9s +uHSaqy/Pijg/dtPL6k42pO9pg4DDVNxxwuj4yy42LPG48Eo7UHHdlU770B42 +0Mc0vX4dp2L691UVR3vZYNnM6qpypCK99t1zqT42BGQ164efomLy7nqtDoKz +Q++n2p2mYpr8U2vfz2zocTu5Rs2dimPexiShfjasNN14ZvEMFQ8URrgnELxp +/UJHsxcVOxKCnUS+sMGe9822BG8qColaLAcSfN170C/jIhX/lFwLGSY448tS +dcFlKr7L0Nms/5UN74zFuar9qXiE+WD5GsFTLzYbvwugYqzG0HgBwWQJi5Du +ICpO9/uv6CR423W3lqFgKp4vmNnBJNhh/KbAVAgVdVp/5f2fr1umHFwKo6Lf +ZcODXQQ/rXp5b00UFTfyDqoUE9yi1NNDjqGiRPmAXtD/z4v8TZG9T8U4v8th +SLDIPP+xDfFUfDXMIzNBfK/uSdXUbYlUNONYt3ibYId3RgyjZCr2iSvIkQkO +0jpBP5hKxaVnQgkRhB6ZSX7/OTyhYqJqhcscod977ge5bplUVByRjzpA8Ixn +4bTPcyoqfPURTyD0Fu1t1QrKpWJY+NKqdiI+eoZjFyPzqZjdIe0wT8Tv+PNV +lQ+LqOhb464kSPANsizraSkV89yjnES72dDKtLlRU0VFvdgi22kiP2Yszje2 +1FBR5VcB9U0HG8TKI9b21lHR8EyQRyiRT8fvNERNv6Vi06/5j4NE/t38M9Cx +3ELoZZ08493Khiz7JdG1H4h42IpUzraw4bf65iS5LiqeefbeoeUt4e/4fQMb +e6koasFrItXEBn1ON3m9firG/xD4e+wNG4I/PX526DsVeWzKSgtqifm+/CU3 +flHR0mxL4f0KNhh8V5mPmibyNf16uAvhv5OmRvpJf6gY3Kh3mk748znNr7Z4 +gYoz1otGl/PZsL12tJXJTcPSMI3rx56ywXH9KuHfPDT0/RFnmZ/OhtuxMlZs +Phpu5zzp8TuFDR9P2XwWI9FwdWjhfZNENjjxNgybSNPQwMewdWsUG0IsH3M8 +30rD3KfahzWJ+pUZVrQ7SJeGTueSS995EX6sb4o4akDDjo8wYUPUP27taSrf +Thqu0KayTFwI/UUMt3nso6H2qdUvIoj6ebVryEvdmYYawgvmeTpseMQ/V7ba +lYbh+R/2XdFiQ5UxH8eAGw33dFWWb9tE+LNEKyLqLA0nRkl/o5SJehd3M2v6 +Cg3vZVLEs0TY4H1YeajwLg1fHVP4EznJgtgoPdWwezSMOEjdf3+MBYVNFl5O +D2hoRZOoiGKwYEbnEpv8iIZXh4SHTnxmgafEW4rPMxoGWYWU+bxhgVufm6VO +DQ1JoWfEvBNYcNwut+HlBA3brmvDOl0WXKIJj32comG07S4uuc0siPp6gX/4 +Nw1Htgx6qqqxoOa4gY3QAg0b+p0DRKVYIOPcMuLMLYUjd/w32RPv6zePMV4B +aSl8EDRxtaBhGRyuKR08sV8KQ5nJpj+NlsEu9dHXVYVSWNHktGIjfQnqGmrT ++UqksPrj9pZuqSVQHWW6kcqlMCCQmuQrsgTz6uqzMtVS+GLju8gnnEtwv6pa +QP+dFPL3LZ993L8IH3oG8NyQFLr9d6tfPXIRdgnIp30lSSPdViJSbnIB1Pye +upR6S+PN3VtXFyTNg+Xac7NFZBl8sLiQxscxC+kXVjCe+ciguduqDbNif2Bv +TdYB6XYZDG0T1gLvaeizPP6vab0sfugv8fmz7hf4rVltxB8ui7o2nk7HjUbB ++2Gj8KdhWRS2yOqX3s+Aq+a+odp75fDisd7v4fcG4dyerbrvsuTQQVhuKf5X +P3zLnLm7OVsOnxwtqTPs7QezNbnjD3PkUHVxUm++rh+UGhWS3PPkUPi4JT0y +vh8+7xLm4C+Rw2t6qtYORv2wCyca9r+Ww1chcYo3kz+D2Na0A13dcth5u+h3 +i30fvFQQOD24Uh7LGqhWHCt6IMPk3CZXbnkc3iWTcGKiGyLdO2d/rZZHuw+z +hh97u+Fk0cPgpbXyGEdxS/lc0A1rdtHTxYTk8WAEX8VD52445LjjmzlNHnfH +3Emsfd8FYynnrSq05ZH3mhDpQmYniEv37Ig5JY/G696EVt7sgGtZW3k5XOVx +q0GTV7hPBzC14z65n5bHoO7fWm4uHVBoZu1i7C6PPkrft+za0wH7Ln8Km/eS +x/f9fFd813XAjc4P3cf85XH2wPW4obh2mL7z1kMtVh7NWcO/Q4s+QvNcRXzD +a3mcsxyDj7wf4HDxwub1dfIYO11p1sFqg2Ev3daoenn0sLITEGW2wcrxck67 +Rnm8HfJkz8eiNtj+pey/mRZ5dO9d70A71Ab5r0sMpHvkkfvlGS/OmFZ4EFow +eOmXPIZn89sUSb+HU9QsFTWKAnImPUlzcmsGr6RozTyqAjpwH9JcPtQMflK+ +elpSCnhNPfntU4NmiJYxMdeXVUCjhvavmkLNRDyYZ82UFXDwq9Z26fK3ILxB +rsx9swJqnj1dbsT3FqoMEoxzTBXwXIKD6rnqRiAfC3Xc6KeA1lP/elOsGyBx +95kzD/wV8Oi5UZ9YowZQ2HTQl/OaAnZfWEWP1WoArRWSkV2BClibuzW1QrgB +LNOeVVy9pYDjb1bNpbbVw73hJqG2uwr4Y+d+o17TehA9u7rG8xlxftwr40fm +dSAeeIOa36WASepGXZner4G6UfD+th4FTNXsbfFwfg2ynx8K1PYqICnVMxms +X4OqdiFnR78CnpkzzePReQ16o4Mjf74T4zVvXbYs1YDDASjWmVRAjT9eV0aD +ayBNdsG8ZrUi6vk9Gx/aWw0baz2vtekoYrPAC2MWz0vI65pdMNBVxNaxIg2O +35WgOX7NJ1tPEb35v10h91eCNjnKI2S7Ij7/R/93PrcS9E/lHd25SxGDWPs4 +1llWwp6101tLLRQxbCbA52FqBTgdPDf16JQi2vAnSLWYlUPCd+8TZ2IVcdf9 +551Z7SWwi/4lp/OeIh4kSSrp1ZTAhIfRgn6cIt6+dpOvL6cEcF4khjdBEevE +tTx3hpQAQ6C0PjNZEb+HVR6uwxLYZDCvPJSliF8H9+qdKSiGhjj/XzavFbEn +fFuZ4uMimDILvrLjlyJ28rfPfk0tAFGb+1saJxVRRbXF+crdAtA7kTFtNq2I +ms0/2YrXCyD4whuXw38U0TXDNuTJiQKgPeK29FxQRLmNw0/NZAtg72SwWhK3 +Evqox45uSsuH9OhbX+aklFBoKJO9Ij8PDnfdhjwLJWwWOe33/kcOLO6+t0Q5 +oIQtwgWDG1ty4FF5Svmtg0p4c7nCJL0wB34kVmw+ZqWENks9/c3Xc+Cs409l +/qNKeOalu/MquRy4PWUh6H5KCdtlrY7JOWVD6VqxQWV/JVxpcyI0+l8WiMKT +68lZSli979xbkQOZoH3BNlclWwn7Pjxba6WXCZbP1/UV5hDriwXCnipmQoyY +j0ZTnhLeedHGF7zwFASnjAemSpRweJC1RfnJU1ibMmJgWKeEikcTBseXM4DF +qTb/47MSfvrAHOavegLMNwWequuUkVXpkOd6Jg02bNztnsOvjE1iyXv22aeB +973PrpsElTEv5UOboVkacDqtPLmFpIz1NgOeh1XTgLbC2tJQQhnF9acStIZT +wVJvXueIojL6MLlSnjimQt0L4Aw1UEaT5MJMsksKPH7QEjvqoYzXtg30a6xP +BicX+5iDnsr43+Sr6AihZKBv+RVdeVYZf5Rf1OGYewT5HQKR4eeVsUWPW1yu +4RHU8h8K0fBVRv0xh70Oxx/Bjxu9/r43lPGvBu/ys4QkoHsxT/E8VMbflad3 +0qQSIW8PxzaVJmW0Ct+3Scg+Hqb6dTLy3ipjj0zdlf+M40HjrBdJ550yVlq4 +D/Wqx0PB/e8Txq3K+CikuWaGMx6KhupTnT4pY6I091vhrAdQ5h/C93hAGak6 +HONLi3HwOl94QHReGd0WXQ5y5d6HdgnFWytV6Rio8fOD1e5YiCIf+ee1no5d +2VcnXbfEwj6BSOdvanTkaAyUClWMheaV8zsr1OloEBFx7R9XLLyebOE4q01H +U71XvD6vYyCvwfvyZ6RjudHzI9wQAxFe9R4FNnTkLa+Vkdp1F/a+dbQ8fpOO +1lsT3XrPR8Gmv5di3wTTcSa8Xe34qSgQkY34pHabjuo9zyamD0fBwKUyy/lQ +Os67puzesj0KfOjrrO5G0fGsHZ/zDp4oSL1VYlX/kI5+Tpuh0DASFo14bOgF +dPwXQ4vLLgiH7Npc26mvdNQOo/CdfR8K/IX/rbkwQMfM0I1uicWhcDaNXjo/ +SEdYmGB+SQqFzTdSyVwM4nsjBGeSz4RChdH9NpFxOsYXv94jJRQKb5v8jfRm +6Vi0vGHtH9sQYLaaaQQLqODip7/Hbi3cApnPY2uI7hp/CYdrPTx/E9ia6eXB +O1RwfWRzQsuJm/A11N5t2lAFq3bb1fDtvwmJuh/evTFSQSEJpni52k2QSCiO +8DJVwRC+lJwa5g0Qtg0gN1qroOuP3f8C7G/Aqm4RmXMeKnh89r9Ab6sgGGvH +rU0JxP5R3FXl7oGQQTcVtU8k1gckaMXYBcKJq1Z/p5NUUGyDatIVs0DoUXEr +pKSoYN0BrbW+aoHwJiBG3fOpCvJUX+xUmAiAlI1MZdEiFdypH+Os5RUAh0Pv +iDu9V0HrG6UyL1ZfA/LAvdm5VmL87d7WsbGr0Kb9uCv8gwpuepxB2dF6FYwH +i2JLO1RQruPuZoN7V2GzzldB3j4VvBsok3tW4SrwMzfxFDBVkPfPcMOL3f7Q +rKc3YjyigqcXcmihav5wM9qo8fOoCh6ty7nvL+QPS/pHbq6aUEH7lNzIF5/9 +YCwmaIXtbxWME0uXMPDyg4zR8IGJPypY0h/174u1H5yAB9XX/6lg+6obBnH6 +ftAzlu2fPa9C/N85++LgGj+IwVK7HYsqWLEQl2P56wrsu/9ar2tJBW8OSL88 +8+kKrP35TvI/FjE/tL3+ccUVaNjRNc9mq+CsYUT+2OMr8D/Le7BC + "]]}, "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}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{4, 13}, {0., 1.991919222968944}}, + 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.9921768364643574`*^9, {3.992176882260401*^9, + 3.992176906284033*^9}, {3.9921769422224617`*^9, 3.992176979381048*^9}, { + 3.9921770246653214`*^9, 3.9921771472668457`*^9}}, + CellLabel->"Out[79]=",ExpressionUUID->"20124c6c-a3bb-f145-aefd-289c0ebb306c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l1", ",", "l2"}], "]"}]], "Input", + CellLabel->"In[80]:=",ExpressionUUID->"9998eff2-8c55-9c49-a7ba-40c39d494e08"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwVUnc41osXV5FdERr0Et7xvVcSIVLnkJUys97KXiUVRcNK2XvT5SbZGbeE +zMoqKWQko7xkj7xXlyTEz++P85zn85zz+XzOOc/Zb3vVyGEzCwtLz0b8P2uf +DWFnYSGhm96OddUJJqhlyClVbSKhL29Up8s4E45OM5zdt5Dw+egCZ/IYE6Q9 +5dsmt5JwMbUnY2qECYIpwwkdvCTUrTN3Cx5iwnCfinimMAkvdjVJZPcxwZv+ +XUVTkYQCEobjDu+Z8MT87LWIKyTUfi9gM1rIBA7Rf7svuZLwe90btQ8FTLAe +81c6dY2Eeif6T1XmM4H/WhEL1w0SBj6t7QjLY4J7OEt0sA8J1T+UpkpkMUHp +ZU7BvQgSivF4pv+ZyoQGifnRW/kkbFv5hxQbwoQeZriZwzgJvdPQJcp6g5/t +tig5SUIp2X3hxlZM2HHeLHF0ioQXhOOb91gyQbtZvMtuloQyQkKZj84xoSqz +Us92gYQRtb8qckyZkGY+oWG1WRTHTH3nA08zwbFe7TCdJIrWiYXFCYpMWEz8 +tUPXVBRt1gI4uriYsOzJ+mlzoyhObh3w/S9nFga9ysPu7RPDgXmTWlHKLLyo +DxPgNhHDywOYPZ/8Dby6Iz8rxYrhk5q+maHhGZAKtsrTbxFDlbpvAwz+GTBX +1R902bIfVUuM6zLkpsGh6coZGdiPfskMeUGxKZg1KTy0cmM/+ovc+DK1NgEX +/CsEi4r248LkfTntN+PQ4L2gwDa1H08cm6XOG49Biq9evb2YOF6vru3dNjoC +hqd7w5zPi2NPv4gpDw7DSoUM3SxZHFPbuVc0k4dATDo39lSbOB4pqd65tJ0B +lKu67OOcEqh1TO3354p+yK3gmwhWlcCYj/4XG0p7gLONjbXdRwLdDNs7v6R+ +BIt7bynrFRIYFtvSUNfcAQfgcYn8nARO7C4QLW1og4GmSh9+KUn8qTXgXsz/ +Djjpk8WLdpKodWKu6eqhN0ANHZupS5HEJ5HKzfW99UAJ5LeT+ySJPWo/mO6O +ryA91EK9kJeMA1/bEw9ZVMGwe0/t39vIuNKleHjrySqQsDY8FrmdjFazv30m +D1dBjoKGwhU+MjbQLX5181RB4YgUTUaQjIUrRM+ZF5VQfmyVu1SEjA+Edzp3 +i1VC2/eUruo/ydj5syC97ns5rNB7bd+fJOOEQ0bNu8oyqLhz0atch4x+Tz4p +kB+XwY3s5fjMU2R8N6qtEX6/DObmRF576ZJx+7MRNs+bZTAabEOVMiTjW//f +jl/ly6CtbHomwpyMf9aclussLYUMvt/uek5k/Hlx1m1HdcnGf+4P7gggI5Fo +Up4zUQxUp3MvigLJ+Ek51CK7vxi2siXOhwZt+PnL1hW2FkMjclirhZBRkX6v +qLukGFQrmEdKwsmoV50eF+1XDMq51dMJcRt+CX+aPRQuBqlAEz3zdDLGOC7q +8Zo/BT7VUMHBajKe3MyirNhZBGJp5aOtNWSUjpDnv1pVBNIrYyU1L8goLCZf +XpFRBKfL1IxSXpHRXqxK6e71IggiVqNMGshY6zc1NCZYBKt8Vzla3pFRzXDx +zbxFIYwPG69U9JGxdHXFvGs5H6oDxL7G/SSjPuO3mIpDHnyj/2x1WyKjdo6G +AcMoD0QOtlUZ/CLj5TXDzEjMA98+r4RtK2SsP6cRv1MkD1C6RytsjYwXm9SL +q7tyobEn8p+7bBR8v9U710MjF9r+WPFy3UlBrvfpRmayOTDU3i2kd5CCpsvP +PgnIZEHEUMNDmgwFl2vFinj3Z4HSXDFtyyEKdh8IP87HnwVx26OUK2QpuHvd ++caRhUw4oadpKa5AwX12T25urcyEnPfPsxdVKOitk/M8RT0TXN4kH36oQ8Hy +M+ux7nYZ8LOabjTnQMG6trj73i/ToTNMxX3AkYLXCsQdGU/T4R+6aNI7Jwp+ +z26c0MlMB8efo31ZFzfm3c4xeSIkHT7JutrQL1Pw4C6BLWVG6VD2OMi13p2C +UjqNrXu6HsL15JKoBH8Kfq5RYtYcS4N/r/G+P/KIgsDuUz50OhW+Vd7nEsrY +8P/O7GI/kgrTLJI68xuYO7DV5bhEKoxHKTcXZVFQLenWZN+vFGDkOzWJ51Ew +b3NU39vcFGgZrmvgeUJBnT+ctX22pkCe0Y2aoRoKxh741L/Ydh9sZQeLQnop ++Ejtr1c/QpMg+ohV0K2+Db3P5eKKN5Og5vig5YV+Cl6i2TcE2yfBrlOD27W/ +UJAhIR1lCknQYjfoxj5EwQbn9yyPfySCYuKgfNAEBQsH5qV3OSQCz9LgC/9F +CtpA2fJbvQR4/mKo1VeAirzuTAvSqThgU+FstBSkov7irQ99KnFgXHWo6rgQ +Fbv5daTTpeNg/vm9nLVdVKywj4zX5Y8DmaeSd3yFqWjxy0Hkj/5YyM+4IOMr +TsUTCQGKI5diIS14Ls5HhornbgRLiSbHQKAhi7n3aSpyvbz3WlEoCgy4cNpM +l4rlVySFJdYjQaThjrec3gZuOjcsOhkJzw6vp0/rU9FHxD1OtyoSGLvWpszP +ULGzKUbwllUkKDBWvOTPUjH0pWDOWmEEjDv/fMh0oqKyeHu2l3E4aAUwJ6z9 +qVhr2sWb1hkCaqviO/UDqKhESpebehECKu5mx48FUtFW8NxFjcchIGtfm7An +mIpp9PZWGb8QEFGPU+0Mo6LsUdffHdIhMLdFIfVEHBUVlkgHZaOD4b6/jx7l +ERVv1Y4W8Z4Pgul7PGUzL6m4p898+KpEAGy9PvW7+RUVVV7L367YGQASdm80 +82qpaFPJIc/LGgDnT/j12tdv3FPhw2L/qD+0bVlYGXhNxYxLHJlbc/3hWcBn +tfYWKl52FStLOuAPt4Py20v7qZir5dxy7sQ94AjT/uazSEWKZE5rWrQfGCvt +bbvyk4qagUZuyXf9IH1y5onVEhWbPicwUq/7wRGt6Ouqy1TcvjjDbDLzgwus +n5ZZ16hYPczZWyDmB2997Tgj2GiofK7zy+GLdyDkui8lRYCG8stziRnNPsBu +UWr9XJaGZ7gbwaHZE9o0HzAy5Gj4XCD0iGCJJyTJBJ2PPkzD3iFqXs/fnkBh +NTe/oEBDdscnT+JdPUGzYEV/r/JGv3FBzfhuTwj4pQa+qjRs2mb4ecblNrAk +dezTNKCh+CT3Dx7xW7DUxuzvvkzDZ69b8rNfeMCwjN+NZ1do6G3rIFtd6AEt +cXz80VdpGKkb2jGQ6gEPTQ+f1Haj4fqajbSOpwdoMm6XV7lv1OPvnXqp6AHx +s6wJD71o2PGXggd3mTtI8wjrXgyl4dsfM/yLFdfB4aTWq9UsGlq2+y2xj7qB +r3Pr/Ew2DcPDCzu+fXSD++FnaJ9zaOif3GvBeO0G71qtYivzaMh9YNx+ItcN +pI1u2d0o3LhfTD57jIsbLJ19zD5XQsOj6nfCZJdcIcKF22Cknoa862NxHrtd +4Vn0h6HmIRpqFgjJFv1wgVnamuzjrzTUXxV+0MVwAVq9VGDIMA1fjJ9Z537r +AmkLoYTW6AY/6LTbsxQXCKerX2ucoOHUFaPAj+gC9hKVW14xafhAVtHaJuYS +CJVnUEpXaRjAr5AKKs7gxfBwSdtNoLTOktCxRieQfVZ99vYeAukjvuU9xU4w +GbjppPFeArk+5of5PXQC0wORZC4RAlmvOT1Y9dzo985ieIgSOPnVTeOBrBNM +7+ky0KUQyPY5QO1mliOYm8jIr8oRWBSpVaAe5wAKLdO/6foEKow8uiyQYAci +VuRALQMCW7hPvXnkbwdb/rPikTfc0J+YnFC5bgftu7r37jhDYJLcNvO/jezA +2e6V4htTAttabArX+OzgwXK8m6wlga9Vt2hpxdsCK3FsjOsygd77HOVTH9pA +Z2B0S3UYgTHfczaxVVlBf8w1t7/CCbzWKOIo/sgKRlJNhG5GEBh+p1XjTIgV +LBQLW8tGEbjwnqL8r6kVCDJy5/NiCTzeo2yw7YclmCvU7k26T6D6wg7JL4ct +gTE+d8E1h8DljG1GBvXnYUrLiI1cT6Bt39EdUXxnQYB5wE2kgcCwtfaPlct0 +wATOgZ2NBA6EqUf/GqHD/aHa0s1vCNR0hfTS53TQvn3QfqiZQG3XPfq7LOiQ +k8/TkNpB4IG7r3/cKTIHW94mP/6vBH7hUNjmfN4MokoyvnEOE1hZVLA4r2UG +VXRf800jBPqNhTRGy5kBX468zNwogZLfdneucplB7fGswdZJAqe7+jcXVJmC +qOvd46FzBAoE8NB19pmCjpBFvt93AkdZde1nOE3hRs0RoVv/Eci8c9vmwaIJ +tHHMzTouEDhx/u6iXLsJ+D6yfKC+RGCHbeAcEWAC+VrKnCq/CNRgZZ0zcDOB +T7OCHnLLBOYURLuEWJrAAeXW0+KrBA6f18ukKZmA+VBexZ7fG/vWDGEsxQQC +ggIk+dYIZCk/Ls4lYAJPpaxjONYJ7F1QUIrfZAJfOo+urm/gkKtZN6X+NYb/ +AVJ8Mcg= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVUnc41osXV5FdERr0Et7xvVcSIVLnkJUys97KXiUVRcNK2XvT5SbZGbeE +zMoqKWQko7xkj7xXlyTEz++P85zn85zz+XzOOc/Zb3vVyGEzCwtLz0b8P2uf +DWFnYSGhm96OddUJJqhlyClVbSKhL29Up8s4E45OM5zdt5Dw+egCZ/IYE6Q9 +5dsmt5JwMbUnY2qECYIpwwkdvCTUrTN3Cx5iwnCfinimMAkvdjVJZPcxwZv+ +XUVTkYQCEobjDu+Z8MT87LWIKyTUfi9gM1rIBA7Rf7svuZLwe90btQ8FTLAe +81c6dY2Eeif6T1XmM4H/WhEL1w0SBj6t7QjLY4J7OEt0sA8J1T+UpkpkMUHp +ZU7BvQgSivF4pv+ZyoQGifnRW/kkbFv5hxQbwoQeZriZwzgJvdPQJcp6g5/t +tig5SUIp2X3hxlZM2HHeLHF0ioQXhOOb91gyQbtZvMtuloQyQkKZj84xoSqz +Us92gYQRtb8qckyZkGY+oWG1WRTHTH3nA08zwbFe7TCdJIrWiYXFCYpMWEz8 +tUPXVBRt1gI4uriYsOzJ+mlzoyhObh3w/S9nFga9ysPu7RPDgXmTWlHKLLyo +DxPgNhHDywOYPZ/8Dby6Iz8rxYrhk5q+maHhGZAKtsrTbxFDlbpvAwz+GTBX +1R902bIfVUuM6zLkpsGh6coZGdiPfskMeUGxKZg1KTy0cmM/+ovc+DK1NgEX +/CsEi4r248LkfTntN+PQ4L2gwDa1H08cm6XOG49Biq9evb2YOF6vru3dNjoC +hqd7w5zPi2NPv4gpDw7DSoUM3SxZHFPbuVc0k4dATDo39lSbOB4pqd65tJ0B +lKu67OOcEqh1TO3354p+yK3gmwhWlcCYj/4XG0p7gLONjbXdRwLdDNs7v6R+ +BIt7bynrFRIYFtvSUNfcAQfgcYn8nARO7C4QLW1og4GmSh9+KUn8qTXgXsz/ +Djjpk8WLdpKodWKu6eqhN0ANHZupS5HEJ5HKzfW99UAJ5LeT+ySJPWo/mO6O +ryA91EK9kJeMA1/bEw9ZVMGwe0/t39vIuNKleHjrySqQsDY8FrmdjFazv30m +D1dBjoKGwhU+MjbQLX5181RB4YgUTUaQjIUrRM+ZF5VQfmyVu1SEjA+Edzp3 +i1VC2/eUruo/ydj5syC97ns5rNB7bd+fJOOEQ0bNu8oyqLhz0atch4x+Tz4p +kB+XwY3s5fjMU2R8N6qtEX6/DObmRF576ZJx+7MRNs+bZTAabEOVMiTjW//f +jl/ly6CtbHomwpyMf9aclussLYUMvt/uek5k/Hlx1m1HdcnGf+4P7gggI5Fo +Up4zUQxUp3MvigLJ+Ek51CK7vxi2siXOhwZt+PnL1hW2FkMjclirhZBRkX6v +qLukGFQrmEdKwsmoV50eF+1XDMq51dMJcRt+CX+aPRQuBqlAEz3zdDLGOC7q +8Zo/BT7VUMHBajKe3MyirNhZBGJp5aOtNWSUjpDnv1pVBNIrYyU1L8goLCZf +XpFRBKfL1IxSXpHRXqxK6e71IggiVqNMGshY6zc1NCZYBKt8Vzla3pFRzXDx +zbxFIYwPG69U9JGxdHXFvGs5H6oDxL7G/SSjPuO3mIpDHnyj/2x1WyKjdo6G +AcMoD0QOtlUZ/CLj5TXDzEjMA98+r4RtK2SsP6cRv1MkD1C6RytsjYwXm9SL +q7tyobEn8p+7bBR8v9U710MjF9r+WPFy3UlBrvfpRmayOTDU3i2kd5CCpsvP +PgnIZEHEUMNDmgwFl2vFinj3Z4HSXDFtyyEKdh8IP87HnwVx26OUK2QpuHvd ++caRhUw4oadpKa5AwX12T25urcyEnPfPsxdVKOitk/M8RT0TXN4kH36oQ8Hy +M+ux7nYZ8LOabjTnQMG6trj73i/ToTNMxX3AkYLXCsQdGU/T4R+6aNI7Jwp+ +z26c0MlMB8efo31ZFzfm3c4xeSIkHT7JutrQL1Pw4C6BLWVG6VD2OMi13p2C +UjqNrXu6HsL15JKoBH8Kfq5RYtYcS4N/r/G+P/KIgsDuUz50OhW+Vd7nEsrY +8P/O7GI/kgrTLJI68xuYO7DV5bhEKoxHKTcXZVFQLenWZN+vFGDkOzWJ51Ew +b3NU39vcFGgZrmvgeUJBnT+ctX22pkCe0Y2aoRoKxh741L/Ydh9sZQeLQnop ++Ejtr1c/QpMg+ohV0K2+Db3P5eKKN5Og5vig5YV+Cl6i2TcE2yfBrlOD27W/ +UJAhIR1lCknQYjfoxj5EwQbn9yyPfySCYuKgfNAEBQsH5qV3OSQCz9LgC/9F +CtpA2fJbvQR4/mKo1VeAirzuTAvSqThgU+FstBSkov7irQ99KnFgXHWo6rgQ +Fbv5daTTpeNg/vm9nLVdVKywj4zX5Y8DmaeSd3yFqWjxy0Hkj/5YyM+4IOMr +TsUTCQGKI5diIS14Ls5HhornbgRLiSbHQKAhi7n3aSpyvbz3WlEoCgy4cNpM +l4rlVySFJdYjQaThjrec3gZuOjcsOhkJzw6vp0/rU9FHxD1OtyoSGLvWpszP +ULGzKUbwllUkKDBWvOTPUjH0pWDOWmEEjDv/fMh0oqKyeHu2l3E4aAUwJ6z9 +qVhr2sWb1hkCaqviO/UDqKhESpebehECKu5mx48FUtFW8NxFjcchIGtfm7An +mIpp9PZWGb8QEFGPU+0Mo6LsUdffHdIhMLdFIfVEHBUVlkgHZaOD4b6/jx7l +ERVv1Y4W8Z4Pgul7PGUzL6m4p898+KpEAGy9PvW7+RUVVV7L367YGQASdm80 +82qpaFPJIc/LGgDnT/j12tdv3FPhw2L/qD+0bVlYGXhNxYxLHJlbc/3hWcBn +tfYWKl52FStLOuAPt4Py20v7qZir5dxy7sQ94AjT/uazSEWKZE5rWrQfGCvt +bbvyk4qagUZuyXf9IH1y5onVEhWbPicwUq/7wRGt6Ouqy1TcvjjDbDLzgwus +n5ZZ16hYPczZWyDmB2997Tgj2GiofK7zy+GLdyDkui8lRYCG8stziRnNPsBu +UWr9XJaGZ7gbwaHZE9o0HzAy5Gj4XCD0iGCJJyTJBJ2PPkzD3iFqXs/fnkBh +NTe/oEBDdscnT+JdPUGzYEV/r/JGv3FBzfhuTwj4pQa+qjRs2mb4ecblNrAk +dezTNKCh+CT3Dx7xW7DUxuzvvkzDZ69b8rNfeMCwjN+NZ1do6G3rIFtd6AEt +cXz80VdpGKkb2jGQ6gEPTQ+f1Haj4fqajbSOpwdoMm6XV7lv1OPvnXqp6AHx +s6wJD71o2PGXggd3mTtI8wjrXgyl4dsfM/yLFdfB4aTWq9UsGlq2+y2xj7qB +r3Pr/Ew2DcPDCzu+fXSD++FnaJ9zaOif3GvBeO0G71qtYivzaMh9YNx+ItcN +pI1u2d0o3LhfTD57jIsbLJ19zD5XQsOj6nfCZJdcIcKF22Cknoa862NxHrtd +4Vn0h6HmIRpqFgjJFv1wgVnamuzjrzTUXxV+0MVwAVq9VGDIMA1fjJ9Z537r +AmkLoYTW6AY/6LTbsxQXCKerX2ucoOHUFaPAj+gC9hKVW14xafhAVtHaJuYS +CJVnUEpXaRjAr5AKKs7gxfBwSdtNoLTOktCxRieQfVZ99vYeAukjvuU9xU4w +GbjppPFeArk+5of5PXQC0wORZC4RAlmvOT1Y9dzo985ieIgSOPnVTeOBrBNM +7+ky0KUQyPY5QO1mliOYm8jIr8oRWBSpVaAe5wAKLdO/6foEKow8uiyQYAci +VuRALQMCW7hPvXnkbwdb/rPikTfc0J+YnFC5bgftu7r37jhDYJLcNvO/jezA +2e6V4htTAttabArX+OzgwXK8m6wlga9Vt2hpxdsCK3FsjOsygd77HOVTH9pA +Z2B0S3UYgTHfczaxVVlBf8w1t7/CCbzWKOIo/sgKRlJNhG5GEBh+p1XjTIgV +LBQLW8tGEbjwnqL8r6kVCDJy5/NiCTzeo2yw7YclmCvU7k26T6D6wg7JL4ct +gTE+d8E1h8DljG1GBvXnYUrLiI1cT6Bt39EdUXxnQYB5wE2kgcCwtfaPlct0 +wATOgZ2NBA6EqUf/GqHD/aHa0s1vCNR0hfTS53TQvn3QfqiZQG3XPfq7LOiQ +k8/TkNpB4IG7r3/cKTIHW94mP/6vBH7hUNjmfN4MokoyvnEOE1hZVLA4r2UG +VXRf800jBPqNhTRGy5kBX468zNwogZLfdneucplB7fGswdZJAqe7+jcXVJmC +qOvd46FzBAoE8NB19pmCjpBFvt93AkdZde1nOE3hRs0RoVv/Eci8c9vmwaIJ +tHHMzTouEDhx/u6iXLsJ+D6yfKC+RGCHbeAcEWAC+VrKnCq/CNRgZZ0zcDOB +T7OCHnLLBOYURLuEWJrAAeXW0+KrBA6f18ukKZmA+VBexZ7fG/vWDGEsxQQC +ggIk+dYIZCk/Ls4lYAJPpaxjONYJ7F1QUIrfZAJfOo+urm/gkKtZN6X+NYb/ +AVJ8Mcg= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 13}, {0., 0.965729711695941}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{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.965729711695941}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVUnc41osXV5FdERr0Et7xvVcSIVLnkJUys97KXiUVRcNK2XvT5SbZGbeE +zMoqKWQko7xkj7xXlyTEz++P85zn85zz+XzOOc/Zb3vVyGEzCwtLz0b8P2uf +DWFnYSGhm96OddUJJqhlyClVbSKhL29Up8s4E45OM5zdt5Dw+egCZ/IYE6Q9 +5dsmt5JwMbUnY2qECYIpwwkdvCTUrTN3Cx5iwnCfinimMAkvdjVJZPcxwZv+ +XUVTkYQCEobjDu+Z8MT87LWIKyTUfi9gM1rIBA7Rf7svuZLwe90btQ8FTLAe +81c6dY2Eeif6T1XmM4H/WhEL1w0SBj6t7QjLY4J7OEt0sA8J1T+UpkpkMUHp +ZU7BvQgSivF4pv+ZyoQGifnRW/kkbFv5hxQbwoQeZriZwzgJvdPQJcp6g5/t +tig5SUIp2X3hxlZM2HHeLHF0ioQXhOOb91gyQbtZvMtuloQyQkKZj84xoSqz +Us92gYQRtb8qckyZkGY+oWG1WRTHTH3nA08zwbFe7TCdJIrWiYXFCYpMWEz8 +tUPXVBRt1gI4uriYsOzJ+mlzoyhObh3w/S9nFga9ysPu7RPDgXmTWlHKLLyo +DxPgNhHDywOYPZ/8Dby6Iz8rxYrhk5q+maHhGZAKtsrTbxFDlbpvAwz+GTBX +1R902bIfVUuM6zLkpsGh6coZGdiPfskMeUGxKZg1KTy0cmM/+ovc+DK1NgEX +/CsEi4r248LkfTntN+PQ4L2gwDa1H08cm6XOG49Biq9evb2YOF6vru3dNjoC +hqd7w5zPi2NPv4gpDw7DSoUM3SxZHFPbuVc0k4dATDo39lSbOB4pqd65tJ0B +lKu67OOcEqh1TO3354p+yK3gmwhWlcCYj/4XG0p7gLONjbXdRwLdDNs7v6R+ +BIt7bynrFRIYFtvSUNfcAQfgcYn8nARO7C4QLW1og4GmSh9+KUn8qTXgXsz/ +Djjpk8WLdpKodWKu6eqhN0ANHZupS5HEJ5HKzfW99UAJ5LeT+ySJPWo/mO6O +ryA91EK9kJeMA1/bEw9ZVMGwe0/t39vIuNKleHjrySqQsDY8FrmdjFazv30m +D1dBjoKGwhU+MjbQLX5181RB4YgUTUaQjIUrRM+ZF5VQfmyVu1SEjA+Edzp3 +i1VC2/eUruo/ydj5syC97ns5rNB7bd+fJOOEQ0bNu8oyqLhz0atch4x+Tz4p +kB+XwY3s5fjMU2R8N6qtEX6/DObmRF576ZJx+7MRNs+bZTAabEOVMiTjW//f +jl/ly6CtbHomwpyMf9aclussLYUMvt/uek5k/Hlx1m1HdcnGf+4P7gggI5Fo +Up4zUQxUp3MvigLJ+Ek51CK7vxi2siXOhwZt+PnL1hW2FkMjclirhZBRkX6v +qLukGFQrmEdKwsmoV50eF+1XDMq51dMJcRt+CX+aPRQuBqlAEz3zdDLGOC7q +8Zo/BT7VUMHBajKe3MyirNhZBGJp5aOtNWSUjpDnv1pVBNIrYyU1L8goLCZf +XpFRBKfL1IxSXpHRXqxK6e71IggiVqNMGshY6zc1NCZYBKt8Vzla3pFRzXDx +zbxFIYwPG69U9JGxdHXFvGs5H6oDxL7G/SSjPuO3mIpDHnyj/2x1WyKjdo6G +AcMoD0QOtlUZ/CLj5TXDzEjMA98+r4RtK2SsP6cRv1MkD1C6RytsjYwXm9SL +q7tyobEn8p+7bBR8v9U710MjF9r+WPFy3UlBrvfpRmayOTDU3i2kd5CCpsvP +PgnIZEHEUMNDmgwFl2vFinj3Z4HSXDFtyyEKdh8IP87HnwVx26OUK2QpuHvd ++caRhUw4oadpKa5AwX12T25urcyEnPfPsxdVKOitk/M8RT0TXN4kH36oQ8Hy +M+ux7nYZ8LOabjTnQMG6trj73i/ToTNMxX3AkYLXCsQdGU/T4R+6aNI7Jwp+ +z26c0MlMB8efo31ZFzfm3c4xeSIkHT7JutrQL1Pw4C6BLWVG6VD2OMi13p2C +UjqNrXu6HsL15JKoBH8Kfq5RYtYcS4N/r/G+P/KIgsDuUz50OhW+Vd7nEsrY +8P/O7GI/kgrTLJI68xuYO7DV5bhEKoxHKTcXZVFQLenWZN+vFGDkOzWJ51Ew +b3NU39vcFGgZrmvgeUJBnT+ctX22pkCe0Y2aoRoKxh741L/Ydh9sZQeLQnop ++Ejtr1c/QpMg+ohV0K2+Db3P5eKKN5Og5vig5YV+Cl6i2TcE2yfBrlOD27W/ +UJAhIR1lCknQYjfoxj5EwQbn9yyPfySCYuKgfNAEBQsH5qV3OSQCz9LgC/9F +CtpA2fJbvQR4/mKo1VeAirzuTAvSqThgU+FstBSkov7irQ99KnFgXHWo6rgQ +Fbv5daTTpeNg/vm9nLVdVKywj4zX5Y8DmaeSd3yFqWjxy0Hkj/5YyM+4IOMr +TsUTCQGKI5diIS14Ls5HhornbgRLiSbHQKAhi7n3aSpyvbz3WlEoCgy4cNpM +l4rlVySFJdYjQaThjrec3gZuOjcsOhkJzw6vp0/rU9FHxD1OtyoSGLvWpszP +ULGzKUbwllUkKDBWvOTPUjH0pWDOWmEEjDv/fMh0oqKyeHu2l3E4aAUwJ6z9 +qVhr2sWb1hkCaqviO/UDqKhESpebehECKu5mx48FUtFW8NxFjcchIGtfm7An +mIpp9PZWGb8QEFGPU+0Mo6LsUdffHdIhMLdFIfVEHBUVlkgHZaOD4b6/jx7l +ERVv1Y4W8Z4Pgul7PGUzL6m4p898+KpEAGy9PvW7+RUVVV7L367YGQASdm80 +82qpaFPJIc/LGgDnT/j12tdv3FPhw2L/qD+0bVlYGXhNxYxLHJlbc/3hWcBn +tfYWKl52FStLOuAPt4Py20v7qZir5dxy7sQ94AjT/uazSEWKZE5rWrQfGCvt +bbvyk4qagUZuyXf9IH1y5onVEhWbPicwUq/7wRGt6Ouqy1TcvjjDbDLzgwus +n5ZZ16hYPczZWyDmB2997Tgj2GiofK7zy+GLdyDkui8lRYCG8stziRnNPsBu +UWr9XJaGZ7gbwaHZE9o0HzAy5Gj4XCD0iGCJJyTJBJ2PPkzD3iFqXs/fnkBh +NTe/oEBDdscnT+JdPUGzYEV/r/JGv3FBzfhuTwj4pQa+qjRs2mb4ecblNrAk +dezTNKCh+CT3Dx7xW7DUxuzvvkzDZ69b8rNfeMCwjN+NZ1do6G3rIFtd6AEt +cXz80VdpGKkb2jGQ6gEPTQ+f1Haj4fqajbSOpwdoMm6XV7lv1OPvnXqp6AHx +s6wJD71o2PGXggd3mTtI8wjrXgyl4dsfM/yLFdfB4aTWq9UsGlq2+y2xj7qB +r3Pr/Ew2DcPDCzu+fXSD++FnaJ9zaOif3GvBeO0G71qtYivzaMh9YNx+ItcN +pI1u2d0o3LhfTD57jIsbLJ19zD5XQsOj6nfCZJdcIcKF22Cknoa862NxHrtd +4Vn0h6HmIRpqFgjJFv1wgVnamuzjrzTUXxV+0MVwAVq9VGDIMA1fjJ9Z537r +AmkLoYTW6AY/6LTbsxQXCKerX2ucoOHUFaPAj+gC9hKVW14xafhAVtHaJuYS +CJVnUEpXaRjAr5AKKs7gxfBwSdtNoLTOktCxRieQfVZ99vYeAukjvuU9xU4w +GbjppPFeArk+5of5PXQC0wORZC4RAlmvOT1Y9dzo985ieIgSOPnVTeOBrBNM +7+ky0KUQyPY5QO1mliOYm8jIr8oRWBSpVaAe5wAKLdO/6foEKow8uiyQYAci +VuRALQMCW7hPvXnkbwdb/rPikTfc0J+YnFC5bgftu7r37jhDYJLcNvO/jezA +2e6V4htTAttabArX+OzgwXK8m6wlga9Vt2hpxdsCK3FsjOsygd77HOVTH9pA +Z2B0S3UYgTHfczaxVVlBf8w1t7/CCbzWKOIo/sgKRlJNhG5GEBh+p1XjTIgV +LBQLW8tGEbjwnqL8r6kVCDJy5/NiCTzeo2yw7YclmCvU7k26T6D6wg7JL4ct +gTE+d8E1h8DljG1GBvXnYUrLiI1cT6Bt39EdUXxnQYB5wE2kgcCwtfaPlct0 +wATOgZ2NBA6EqUf/GqHD/aHa0s1vCNR0hfTS53TQvn3QfqiZQG3XPfq7LOiQ +k8/TkNpB4IG7r3/cKTIHW94mP/6vBH7hUNjmfN4MokoyvnEOE1hZVLA4r2UG +VXRf800jBPqNhTRGy5kBX468zNwogZLfdneucplB7fGswdZJAqe7+jcXVJmC +qOvd46FzBAoE8NB19pmCjpBFvt93AkdZde1nOE3hRs0RoVv/Eci8c9vmwaIJ +tHHMzTouEDhx/u6iXLsJ+D6yfKC+RGCHbeAcEWAC+VrKnCq/CNRgZZ0zcDOB +T7OCHnLLBOYURLuEWJrAAeXW0+KrBA6f18ukKZmA+VBexZ7fG/vWDGEsxQQC +ggIk+dYIZCk/Ls4lYAJPpaxjONYJ7F1QUIrfZAJfOo+urm/gkKtZN6X+NYb/ +AVJ8Mcg= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 13}, {0., 0.965729711695941}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (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:eJwVl3k8VO8Xx0UpkWVmrDNjX4YWESVL56RIIS2WFFoQ+ZKUlKJIG1mjRCRL +kij7msgSSRRZU5FmbAklu5nf/f11X/d178x9znnO8/58PnInPA84c3Nxcf1Z +xsX1/6uP30EBLi5hnNvOHeRZOQxmps6tzAJhvHdz86ay90Ngcsj2F7evCGqs +bW+wrhqEcYXA5XIbSRhp03u3opMFp4LehD4dIKHrQlqJhAwL+OR+ujqnk/HZ +HRHl1hwmWPrr7lC0o6BWg26+fzMTasXPeUnJiWJ5rGxsSzkLVhrXCvn+EEXB +r7E7H74cgn+au7O67ovhpVtNnHWxo8DnkJPgeVgc50M+Cc9Mj0PDLtM7K0Uk +UOXzh0zp4D9wuI49vLJWAv+ppF9wdPgHpMCYBLgpidlt5i29obPgvWBvflFP +Ch9VJsXU7l+AxXy+A0McKfSW8nysXLMENlzNb6uqqNglJTXYvY8D9vxvt8Z7 +01BEzGIp8CsHgi0fcz3fQscXT7UPaZ7nwDG7F3WvxujYck0b1uiywS7l0bcV ++dJY1uC0bANjEdb5PXUp9pbBG7u2rMxLnAPL1WdnCiiy+GBhPlWAawbSzi9j +PvORRXO3FetnxKdgT1XmfplWWQxpIWmB9yT0WB6bblgrhx97i3ym1vwGv1Ur +jQTD5FDXxtPpmNEweD+sJ30elEOSRWavzD4mXDH3DdHeI48Xjnb/CLvXD2d3 +b9F9nymPDiT5xbjfvfBKUehU/3IFLKmjWXEt6wIJma7t0ScV0HjN25DyG23Q +OFsWV/dGAWctR+AT/0c4SctUXUdVRO7EJ6lObo1AORriuMFPEa0npruTretA +IvA6LbdDERPVjToyvN/AhmrPqy06Stgo9NKYzfcK4n94Hz8do4Q77z9vz2wt +ggmzm5e3/1bCdsHWmW8peXCo4zbkWChjo+gpvw8/s0EMnlxLylTGyr1n34nu +zwDW2zxPtTUqyC53yHE9nQqPHzTFDHuo4NWtfb0aa5MgZzfXVtUGFbQK27tR +xD4OWiWVbi1XY2Cgxq+PVrtiYM87R8tjNxhovSXBrftcJGRVv7Cd+MZA7VCq +wJkPISD7ZWQVDVXxNylM6+G5GzDSilsa4lVxbSRvRal7INRt75jjcFRxxjA8 +d+TxZeh3tBs/e1gYJ1NeHWw3HgbaNo/ZqM8iKFUpX+NoMghZB5NNfgaTsC1b ++8FKbxZsbW29xGtExnlHH0+lbiZssBDq2LmMgnsuBMqdyGJCaKP14aTXFKyz +dbWPUGYB68XDqneBotiqTvppGTUIV17xfsvQF8OCfkGbq1wjcLXBTzFtVgwl +n/xXa5o0BkOtS9HlheIYkZY3dl5rEnZsm5v60ieJ53pVpc/Pz0FJZ75FTqIU +LrjRTRkpi6DW81+o5TEqZorM3TDIYEPPij0B2VI0FPQfal/I58Bf9U2J8h00 +PP3sg0PTOw54H1IZyL9Lx9dHFacixtngcFX5wPF90hjCSjL9ZbQEO4UUUr+R +ZZBhKxkhPz4P4ltS93d0ymP77YK/TfY9MJJ8zqpMWwH5r4qQz2e0w+Sddx7r +YhTQnD34N6TgEzwIyeu/+FsBw7IEbQpkPkCFQbxxtqkino13UDtbWQ9iZ1ZW +eT5TRM3Y18aPzGsgVW7evGqlEur5PRsd2FMJTgfOTjw6qYQ2gvHSTWalUBfr +/9vmjRJ2hW0tUXpcAGlRt77OSiujyEAGZ1luDhSvFu9X8VfG5TbHQ6KmM4HN +vW7u5xdl/PyRNShY8QRqXgJ3iIEKmiTlZ1BckoHhxTrJ91AF/5af2kGXToA3 +uaQ+sTkVdFtwOcDz4j6Ee9V65NkwkL+0WlZ6511YMOKzYeQxcDqaHpuVFwas +ZjONm0KquPD539Fb87dgRaeo7FkPVTw281+gt1UQHAq5I+H0QRWtrxfLvlx5 +FdZNdPpvXS+MWRfV19wOGgZNU8ezjekieEnsAiMzaBCa9aLSue1JaPqjbpNF +Ggs+qTXy2FDIaDhiHdozywRaia9MexvBW6vtbPVMJkykNjQfD6Ogb23TwIm/ +TLByXCl5dr8oBhTyr+miD4JhIHM6UkgMPfbPF3tYDEPZ0gnX1/ViOHq5ipcv +6hdclLB5IHpbHIvP2QtuiZmAzO9vG8LyJbHe2LK2x2gO7g/f3hvjLoXVSW35 +OzgLQK7X9ZTeSMWwXhnzYX02SPCEKhSPUZFMtWiJCuZARqLffw5PaJigVuYy ++4UDVzoGvNSd6ahBmjfP0eHAd48RfiEZaXwQNHYlr24JPnb14dkBaXT771av +esQC7MSxun1v5PF1cKzSjaQvcNBx+3dzugLuir6TUP2hA663f+w86q+AM/uv +xQ7EtkLumyIDmS4F5H112os7uhlI6+VL3DcR83TmVKmRwDu4N9gg0nJXEX/u +2GfUbVoLDvuhUGdcETWmvC4P36yC3asntxRbKGHonwCfhyllsNFgTmUgUwm/ +9e/RO51XCHvGb65L5FVGH/WY4Y2puXB7wkLY/aQytspZHZV3yoLVyUMGhjXK +qHQkvn90KR0s9eZ0DiupoA+LJ/mJYwr8vN7t73tdBf9p8C89i0+EEv9ggcd9 +KkjT4RpdXIiFnDrvS1+QgaVGzw/zQjSk3Cqyqn3IQD+nTZBvGAHvGvyN9GYY +WLC0fvWUbTCQbAMo9daq6Ppz13SA/XVI3sBSEStQxR360c5aXgHAq3Hhii03 +CZ0Gdmz5LTgIIf/ljtQVkbCS43DFcxcLkn2/TBaeJ+MlXd3i9iombGelhRZs +oGDUPTenzSVMYEz+ZPaOU9Dj5BY/vlMs8JlXd5XLE8UZdXnhVeJDUDajUld1 +SgyrtOh2/DUj0FP3bV9TsxTGpQykr9u6BDiW8Cwkkoo/s6J43ZZzIGHVqq+p +u2h4UIPMmmnhwLbq4WYWLx2LQzWuHX3KAbceN0udKjqSQ06Le8ezQZC1kS+P +pYr8U4N1L3f5w/4i0boEMWFcGe5yNzZ5GCr2O7xkRYjgc5lqdnfyIHxTD26P +MibhS6eA8mcVLKB3GplwFkj4lPS1Q5ufBXd/bdhJryBj85KS/jmCxymRy/hq +vCkY5Om1tOU7wWcDAyPjraK4KbtkS94IC9IGLHlWzIniCqqcz/GlITgkYR1i ++lIMN9MF6MEivwDLg+INvcTxQvdkYZ/xBDjkZOexEiTRadNZcvvwLNw4+9ec +11IKdeTtFaufLcBtg5RjPBJUPPLh9seGZWwoWbb+n14nFa3u0HwXT3PgmmXy +gcVQGvpdMjzQ8Y0D10UNt3rspaP2yZUvww9xQNa5aciZVxqH7vhvtCd+f7+i +Ukj/vTQK9iydedy7AF92krgEi+Txqp6atYNRL6zayUgTF1HAA+ECZQ+dO2Hv +pc+hc14K+KFX4LLvmjbY9rXkvz9NCujevdaBfrCF8AusM2Yqitj/TWubTOk7 +sEx9VnblliKOvl0xm9JSC3rD/UNTPxSRXPXOZfNiFeifzDmyY6cSBrH3cq2x +LAemUHFtRpIS/ggtP1SDRUB/xGvpOa+E8hsGn5rJ5cEZx18qgkeU8fQrd+cV +8tkgPGHcN1GkjIP97M0qT54CfZm1paGkCkroT8RrDaZAteDBYA1fFdQfcdjj +cOwRFAzUpjh9VsEEGd53pMwH8Ga8ieuMNgNN9V7z+7yJBh/GGqu7kQw8Yyfg +vJ0vEsqM7reIjjIwrvDNbmmREJCMLwz3MlXFYIHk7CrWdXgbEK3u+VQV+Sov +tCuOBUDUlrPl50dFUPfzrR6XtYPw8OgzSavHJDSwEivQt2fBmJLNZgd7Mi69 +ZhdyNzGhROpw7qI4BZULO5dW5zKh5ytddlsnBVX+5t9vNWLBi8/OMf/iRDFR +csC799Mg0A7HftI6KIaCSx8ioo+OwLu9u/dtK5JC7Us+n7eOL0Kh4/KHnhep ++LlDYsSwiw16K5+9YGjQUDR0bVBDDQckfAWLrv+moaXZ5vz7ZRzwlHxH9XlG +xyCr4BKft2zYpPNNmL9HFe8Gyr44o3gFblzZW/liHRn5vhsckhtiwpOg2vnQ +ETKu3v6gSo7Qi23FETFc6RRccrfIliHOh3Twp1+Jp0SRxOO9+4jVIDza1+a/ +1YSKaUY8KR7ebPBdPrpfczkNbz2O1I1+zIFmls31qgoa6sUU2E5+5oBv7I3M +yct0vJdBlcgU5YDVh6PZa8LJqL1HMrG8mAmNueMu7kYU5IFLt9lvmOCzPOv5 +5VWiOBIvF3UwkgVNPtolTzKo6FjS5pS8jgOLfC78Mg40XHO53T6kiwNO/HWD +JjJ0NPAxbN4SyYGR6KBltn9VMVY8TdLAyw+c4gpc9/ILo+3499qQnGHgbv/y +wfu6CI78Jd0Syh0EluoKD1s9EnZE7b+c2MiCHdlBbm3jJPR0Cf43Q2FB881g +6ze5ZOxzy/pw7AUTFnil08+5UrCyX/bL6Q4mZKgdOrJxvSgaLh5UL2tlQUdM +KF/lmCiamXlbTLcPQfoTCyopVQzlJE4qFLWNQppAPLXbWRzLFEv5xmUnoEQi +WSU6ShKXYoZ7vctnYbEow7xylxS2O8vKCF9ZgOpZq+5//FQUcvHWZP1YglWB +S/bs91T8GvzisN0xDky83GT8PoCGMRoDo3kEH3i1J2kCO+i4TJvGNnHhQNUx +AxuReTrW9ToHiEmzYU5dfUa2Uhpfbngf8YR7EZTrFRPdc+SRdMySERHXCycK +Ht5cXK2AsVS35C95nZBvZu1i7K6APso/Nu/c3QbLR0u57eoV8Hbwk92fClog +StbEXF9OEY3qWr9pijSC1jKpiI5ARax+sSWljFQHatr53G29inh61jSHT+cN +aFMiPYK3KeHzacb0uRflgHOi0fzxSlgjoeW5I7gIbp5/63JoSgld022DnxzP +g58JZZuOWimjzWJXb+O1bIgW99FoyFHGOy9bBG7OPwVup+UnNpNVsNamz/OQ +WirktglFhJ1TwSY9Xgn5ukeQd//HmHGzCj4Kbqz6wx0HjcvndpSpM9AgPPzq +NE8M9F0ssZwLYeCca/KuzdsiYdP1FAoPk/Bz4cJ/kk6HQILux/dvjVRRRJIl +UbruBnSpuuVTk1WxZr/Wat91gdBRNt7N0yeCDuYrPTq2DkKarVIu7R4J7cWY +d4NcWUBejDmkuZ+Mr7PGVGxamfC3oKDmsQAFrx6z7nMh5mmTpW7F70aCF7xH +ggq0WdD4JiDze5gorpUbvbaCmE9z/pbO37vEcPKcub6/+ghgNNti5pkUGps0 +hZHeLcKEdAn5hDsVhSnmrWVVbAi56Ss+qkRDE647jVavOHDz8+NnB3/QkM+m +pDivmgN/dC5yKI/oeGWANHD8CxuM+wtiittUUb7t7iaDe1fguWVo/zVZMo7t +dOAymWBCH11mjcZ3Mm5dTX3a94wJseuzNHLjKPh3jne+ic0EXZ9f3LftRfH8 +SrqLAFF/F/+t6bX6VNTO2xsua8uGhqDysqlZKko5Hzhy4x4H9AxHLkTk0jCr +TcZhjji/i0Va4ZFn6Dg2TP4XqcKBy6mJLf2BZLTtWXV++Ssm8JrtuSSsS8GD +tJu6dcR9y6UGk3WLFFx9uEBdzY8FvJrDGx8kUNEkxS97uSQHzIK3ePcfoGGh ++q6MAoI/n07afBEn03FlSP59kwTie/qHb6wYU0X75BcRL7/4gc2Bzxq+DWRM +v2UeI/CcCbulmP+RAiloPXpq11eCj67X7EJ9f1CxQPrk9lI/DojOCR5dH0fD +14N8smNfOVBvIUkJOUXGB03bc9a+ZYJfAOfRIQUK8k1ZVewtYMKvW11GJ/Vp +GBlt/ONgIwee0/2qC+dp+Md6wehSLuFvhk8NDf0jY09gZcA0wV+1G1LDnkI0 +LPEu+VaWyYFjd+oiJ9/RsOH33Kd+wh+pz8jd2RpPRqNjjaPsfCZEiN+zathH +QQEG1wNmPROyQu6n2J2iYarCU2tfwl93jWT5Z82pourvMy8PrPKDsdXXdZ+u +EMa458oL7OJheHJf6mv5FRFkvA5YlVsyCCPKNToV2iR8THekMj6xwPpByuWK +YRI+2jlfuCjJgl9tRUfJWWR8+n5WM/gl4QcNs6ZMT1Cw07I+5Agx35uTnU8q +qYji99OT/ynUs+C0R4YAbUgUW2xvfkuvHoK97k2O/xLEcNf9BFOTwlGw1lay +Uzwmjra7eVyUBCeA2SR1YviOJNbmSl1XT5sFHdugDw+3S+GBxUqNJZcFONrx +UnR8BRVPjoY3y7UtQU6V892jb6kYf932cDHhh9K/LlbmXaLh+3SdTfoEDxtq +G8KPGNCx7ROM2RB+KvLbecHBv3Qc2tzvqbaODWrDLDdyqTQGBNISfUUXwWzV +i9GH2fKotjCuN1fTCxHu7TO/Vyqg3ccZw0/dncDSjv3sfkoBgzr/arm5tMGg +l25zZK0CeljZCYmxWsBP2ldPS1oRr6onvXtq0AiKGw/4cl9VxM7zKxgxWnUg +9+WhUHU34ZdSPJPA+g1ojl71ydJTQm/B75cpveUw5mE0rx+rhLev3hDoyS4C +vePpk2aTSqjZ+IujdC0PHpUml946oIw3lspM0vKzwfL5mp78bCJvFAqFPlXK +AO97X1w3CqtgTvLHFkOzVGBs/h1VfkYFf5Ze0OGafQQaZ7zIOu9VsNzCfaBb +PQ72CkU4f1/HQK76QOkQpRgQlQv/vO42A9W7no1NHoqEM6mM4rl+BsL8GOtr +Ygh8C7F3mzRUxYpddlUC+27A8StW/yYTVVF8vVriZbNA8PXbMLynRwT7784c +kdw+CBnWA34BESRMHImgbDvNAuXB/FM0UzL+leLZ87KdCcLcP5r+8BI8DNII +3p/NhGMRDfz1tRQ0GSGTeTaw4JBOeOHnW6K4n3Hl3irCz7MGRnpMDcUweU7W +6Iv4CPhpd7e0pUrhstHtVwsLFyFsUWTfkZNUfJHSlRlfwAbNt/2mZrI0dJhq +LDAq4YA+t5uCXi8N434K/Tv6lgP5DRZeTg/oaEWXLItksqFF+3FH2EdV3Pg4 +nbq9+Qq8hud/3KXIuN1bi+v6FBPYbmZiQd1kLHX6eGGa4GGtq25AcDQFx6KP +0heI/N3wa26Nv40opjuvpVoQftFnuE9TaTMVpw+GcMubsuFMjcK41V8quggN +YkYEwWPP/Emf5zRU/OYjEd/DgQpjAa4+Nzru7igv3bqRA+Hhr/reXyZjXKPx +TrvXTFCMuxB0QouCFSBS6FrGhMVC69jl0xRs2Ph16eJZFqQK7fCIuk/F+pte +cx2CHJhqSMowNKehelH+unOtHLgdI2vFEaDjNu4THn+TOXAjyqj+y7AqHqnJ +vu8v4g/eScv03leT8QV3ctcLgoc+VufKRi5RcK1Mec/vAWK/qmurenqpuFli +2nrmPAealLu6KNE0lCzt0wsizluPro6StyOxv55NpivfMSH+w7qMTDoFc5ev +vvcgjwkx9XipfjMNPyzLkl5bz4ETpkb6iVM0vFmvd4pRRKxvc+yk7gQZ3cbN +L/oSPGytvUb/xEdDl4yWLzVPOCBeGr66u4aGhqeDPEKIegx/YIJCDBnNWwOC +3hcS/HOqdpAyJfLp21MKvbVMsGxkd1Q40pBR/f65NNHf4/Cg8tq0KrauuG4Q +q+8HOVvtzD2LyfhSZ9lhW2L+tl5zaxq4ScNzeX+2s4h6Olxule0lUXDfJWrE +E4J3P4xFBoLXEuuv7xFeV8WB6o+TPN9/EvPg5v/nNzEP1yly7KfFNMxxj3QS +6+SAa8mV1zO3yFgcvqWquZQJQ2ya12ugoEzAmL1ZJRPSdrdAwCEabj9udOxV +Bwd0VzxlqDSTMWCD7edQon6H90ZMoyQa9kgoylMIvXHY1HqPV5WCo/SA7+uL +mGCWoP/9/gIZdZJ3b48j9ivTflFs9UcaHrYVLZ9p4gBNgOeSxWMyJiR27bUm ++r/cdMPphdM03J8f7h7fy4G999/odSyq4o0+mVenP1+GvJr/Utu4hZGv7k9h +cfkw+MyUOn2/LIJxxRWOQa8GwV0pRXpck4SWuuQAr88s6FujeT2PRcJGSff2 +WzQWXLpk7qT/jIx/bFYkq+Yw4fXRv1SdoxRkhBrNOn9kgr/dr1EZRVHMjktQ +83rDgjLbzeF7mKIIZnVxEqVDkNKyetVgnBh+iF48sDF9FHLeuS3uthfHR6m5 +l5uWT8Bius1VSrAkSuTFvr/1YBasM8+sCdkmhUTcCmPaLcCGut78UW4qcvv6 +8619vwTX++LWRdZQsXO+M6vFksjT3v1+6RdoOFV0NXiQ6GdGaMGuIF06Op1N +Kn7vxYGLdNLIpwk6Rtnu5JHfxIaauuo0gSJprPy0ralTehG+Z/y5uylLHp8c +Kaox7O6FdJOzG115FXBwp2z88bFOuJq5hZ/LVQG3GDR4hfm0waHC+U1raxQw +ZrLcrI3dAl6JUZo5NEV04D2ouXSwERJ2nT79wF8Rj5wd9okxqgPaBuH7W7sU +MUWzu8nD+Q3kdMzMG+gqYfNIgQbX33LYyfia3X5PCQ+QpZT1qopAzOb+5vpx +JVRVa3K+fDcPFnbdW6TuV8YmUl7/hqZs0D5v+0I1Sxl7Pj5bbaWXAes37HLP +FlTBBvGk3XvtU8HJxT76gKcK/jf+OipcJAkmenXSc96pYJdszeX/jOMgknJ4 +2mstAzuyroy7bo6Bjf8uxry9ycA/Ya3rjp2MBMH8/1ad72NgRsgGt4TCEOBo +ppXe3K6KayMa45uO34B0hqmYfQKRrwPitaLtAmHP1w9nTneKYNO2VWkVOwdB +zar6RF4oCR3a783LerEgx27HWRETMvJHuqae7GRCUsbFT9TlFGxpGV36nMWE +6SyhTflvKMjcwL69XY0FSX8pei3XRfGPx0i8UtwgaH68aHcJxLAzXCdcUWAE +4m++Fap+LIUSaZv6pp4vgt3ott82jlQ8kzWfd+4FG3hZoiw/Og0vpK9kqxD8 +kYjb27ehm4ZiFvwm0g0ciInUUwu9R8fwA7R990fYQOm7NzPbrIo73u1pHhm5 +AiaFugvHxYnzNem38HyaCWEiA1JZHWS871bQKEic38M3A5+ej6RgcvOlzyrE +c8GMgOgLlqKYZFDcGqI4CDu71nyS20TF5Y9bWAI72bBzwCb45gQVRe2eaqSF +cuAD74MXbhk0VBpSiNxP+LlHgrMlK13pGJb7ce9lLWK9y82Gqy6ScfTBy48x +BE/yQPD2HQ1CHyoKzfYQvLnblvh64g/hz0i1gqUeLDjL9uQPj6airPqIYwYf +4Y+G2gzP7aHh+qdra/Q/ccBx7QrSXz46+v6MtcxN40Cjnt6Q8ZAqnprPpoes +8wce4wcwVUlGh/mmJgFiPwTOlfV3XKDglsKr10L7mfCzf/Ywfw8VP3lnLg88 +y4GnFa/urYqk4Qb+ftVCgqdOOfXrTx0jo0TgPsHARiaoetdktUlR8HleV0VT +LuG3B70ps5toyHWnnz+wjgMGP1TnIicJPqZdC3Mh9Fvs6/ppxzEy2lNbZk2I +/qb/LCpetpKGsk/IrzVTCT21OFffVEUj/G4e7W0boU82H9Mkosj4rSpOpZLg +pR6/reMOEwq6X9/f71JD+NcRTa/fx2iY9mNF2ZFuwj8Oh/WNTaliUW/k9Fdr +P4C+P/sfFJBxqO34eBehDxRJi+DOIBpO9vova/9/PYLSlReEKKhxFt8uI/Sh +6KSRfxmDhqZ7p1RMXnNg/4Xbq1b9IOPmxj7DAUIfjj1fUf6wgIa+Ve7KwkT+ ++bNesP7XdTI2hPZbMAk9v/Ak//ygPgU9Hw558RB6f/EUT0+OFQ1FYza+qmwn +9uu5wfp978l48IKXfQNRv+4JtZStCTQ041qzcJvg2Vi3a7y6MgVd3iYzthJ6 ++MWwbaBylli/T7DCDkIfbkz1tS010dDPOumPdzNRb+DdazsTyRgV7SymTOSJ +LrcTq9a503DE25gsQuhDNBbbbV9QxbL52GzL35fBfr3skZEXxPtM+6EJIr++ +N5bgqfQn9Ib1YOkq0Y9rR0wb3vFRUDTn4MdOol+etYUih3uJfKR8mDRI1C/W +3awV9IKGoWGLK1qJfrNm3Tan1JHxohy62xLrm4j4S5W7T8NYv0uhSPzfXATX +mMhfMrI/zJvmE/UGZDbqh52kYdKuWq02Qs8dRm8ITQTTUKf5d87/9VpL7Qin +cJCMq+Xrq3mI9587CCuyP5Ix9lPRisPEfZDWccaBFBouPhOJDyfqq/j3pMeD +TcZuxynWLPH9jWvn2xq9aNgWf9NJlOjn6l/vpf5jE/kppLX2cdll+B+RnrBC + + "], {{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwl1WV4l2UUB+BRSod0M7q7U+mO0aHAAKVHd1u02IqddIlYKN2dtogiiCiI +2O19Lj/cO79znnHtz/Oed0tMTkkanSohIeGGL1Hn+lKUY/JielOD1KRhnrNi +HJeX0IearDBrwU/ya8wmLXebJXJCXkpfarHSrCU/y5uZQzruMSvOSfkB+vG6 +Pik+H9v1tVklt+KXOGe/PIRczNW/q/YhAx8yif3mx9SRFOQ8s7jJ/F61BBc4 +pT+ljmGZvFsdyGWy8wlTucbtzreoXblEat5nAlfZ4fywOowr5OMcM7hOHeer +1dZc5Ff9GXUcW+QD6p3k5jOmM8/8PbUvGfmIyRwwP66OohA36+9TS3JafpA9 +cjI5uEP/htqNNOzU12WN3Ibf4jyeIdv0/cjEQX167pdLcUZ+iP68qe9OWnbp +67FWbsvvcR7PmAzMNyvNWflhBlCfdWbt+EN+K54NGVlgVibuV36EgTQgEwvN +y/KB/CjJNCQzWcjKIuflYh/kxxhEI7LFrpuXj7uUH2cwjVlv1p4/5bfjPske +u29WgY/lJxgSn1Xfg3Ts1jdhg9yBv+R34s7YHntDZg7pc8S7IVeM3ZKfZK88 +iFvi+cfPVnvGrrJHf0QdTn5u1W9UO/K3fFYdz1b5oHoXeZiv3xHPnSzx2ZnC +YfMTavwi+JbCfMFsfojPEO+iWomv+FR/Wh3LdyzX71MH8w0543uYxvfx8+P/ +rvbi69jLeE5MZK+zo+oICvA5M7nNfJPaiX/ifeaQPJS8LNDvVPuTlSP6nCyT +K8e7Ij/FULbqe5Oeffqm8TtK7sy/8S7F/pAr3hGzKpyTn2YYzcgdO25eNT6j +/AzDaU4e8pKP/BSgIIUoTJHYb/+uGuflZxlBC4rGLptXjzuXn2MkLSkWu2xe +gy/l5xlFKxJjh81rckF+gdG0pnjssHmteF7yi6TQhhKxr+a1uSi/xBjaUjJ2 +z7wOl+SXGUs7SrHcvG48Q/kVxtGe0nHX5vW4LL/KeDpQJu7RvH7shryCCXSk +bNyjeQOuyCuZSCfKxT2ZN4ydlFcxic6Uj3sybxT7J69mMl2oEPdk3pir8hqm +kETFuCfzJlyT1zKVrlSKe4p3KXZWXsc0ulE57il2kuvyeqbTnSpxT+ZN412R +NzCDHlSNezJvxg15IzPpSbW4J/Pm/ChvYha92GzWhfiDvE1ZxC55ANk4qj+p +plAkdoM5qf7/G17d2X9hl/X1 + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgEAURMEvGtiGrWhgYmQJBsKBcOBZuRWogWAJBpMsPHa6Jc/rWUWU +JiKmVI71jk/VT7X3zGM/5C3v6flTvIPjOI7jOI7jOI7jOI7jOI7jOI7jOI7j +OI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7j +P+IX4SKFKw== + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl3k8VO8Xx0UpkWVmrDNjX4YWESVL56RIIS2WFFoQ+ZKUlKJIG1mjRCRL +kij7msgSSRRZU5FmbAklu5nf/f11X/d178x9znnO8/58PnInPA84c3Nxcf1Z +xsX1/6uP30EBLi5hnNvOHeRZOQxmps6tzAJhvHdz86ay90Ngcsj2F7evCGqs +bW+wrhqEcYXA5XIbSRhp03u3opMFp4LehD4dIKHrQlqJhAwL+OR+ujqnk/HZ +HRHl1hwmWPrr7lC0o6BWg26+fzMTasXPeUnJiWJ5rGxsSzkLVhrXCvn+EEXB +r7E7H74cgn+au7O67ovhpVtNnHWxo8DnkJPgeVgc50M+Cc9Mj0PDLtM7K0Uk +UOXzh0zp4D9wuI49vLJWAv+ppF9wdPgHpMCYBLgpidlt5i29obPgvWBvflFP +Ch9VJsXU7l+AxXy+A0McKfSW8nysXLMENlzNb6uqqNglJTXYvY8D9vxvt8Z7 +01BEzGIp8CsHgi0fcz3fQscXT7UPaZ7nwDG7F3WvxujYck0b1uiywS7l0bcV ++dJY1uC0bANjEdb5PXUp9pbBG7u2rMxLnAPL1WdnCiiy+GBhPlWAawbSzi9j +PvORRXO3FetnxKdgT1XmfplWWQxpIWmB9yT0WB6bblgrhx97i3ym1vwGv1Ur +jQTD5FDXxtPpmNEweD+sJ30elEOSRWavzD4mXDH3DdHeI48Xjnb/CLvXD2d3 +b9F9nymPDiT5xbjfvfBKUehU/3IFLKmjWXEt6wIJma7t0ScV0HjN25DyG23Q +OFsWV/dGAWctR+AT/0c4SctUXUdVRO7EJ6lObo1AORriuMFPEa0npruTretA +IvA6LbdDERPVjToyvN/AhmrPqy06Stgo9NKYzfcK4n94Hz8do4Q77z9vz2wt +ggmzm5e3/1bCdsHWmW8peXCo4zbkWChjo+gpvw8/s0EMnlxLylTGyr1n34nu +zwDW2zxPtTUqyC53yHE9nQqPHzTFDHuo4NWtfb0aa5MgZzfXVtUGFbQK27tR +xD4OWiWVbi1XY2Cgxq+PVrtiYM87R8tjNxhovSXBrftcJGRVv7Cd+MZA7VCq +wJkPISD7ZWQVDVXxNylM6+G5GzDSilsa4lVxbSRvRal7INRt75jjcFRxxjA8 +d+TxZeh3tBs/e1gYJ1NeHWw3HgbaNo/ZqM8iKFUpX+NoMghZB5NNfgaTsC1b ++8FKbxZsbW29xGtExnlHH0+lbiZssBDq2LmMgnsuBMqdyGJCaKP14aTXFKyz +dbWPUGYB68XDqneBotiqTvppGTUIV17xfsvQF8OCfkGbq1wjcLXBTzFtVgwl +n/xXa5o0BkOtS9HlheIYkZY3dl5rEnZsm5v60ieJ53pVpc/Pz0FJZ75FTqIU +LrjRTRkpi6DW81+o5TEqZorM3TDIYEPPij0B2VI0FPQfal/I58Bf9U2J8h00 +PP3sg0PTOw54H1IZyL9Lx9dHFacixtngcFX5wPF90hjCSjL9ZbQEO4UUUr+R +ZZBhKxkhPz4P4ltS93d0ymP77YK/TfY9MJJ8zqpMWwH5r4qQz2e0w+Sddx7r +YhTQnD34N6TgEzwIyeu/+FsBw7IEbQpkPkCFQbxxtqkino13UDtbWQ9iZ1ZW +eT5TRM3Y18aPzGsgVW7evGqlEur5PRsd2FMJTgfOTjw6qYQ2gvHSTWalUBfr +/9vmjRJ2hW0tUXpcAGlRt77OSiujyEAGZ1luDhSvFu9X8VfG5TbHQ6KmM4HN +vW7u5xdl/PyRNShY8QRqXgJ3iIEKmiTlZ1BckoHhxTrJ91AF/5af2kGXToA3 +uaQ+sTkVdFtwOcDz4j6Ee9V65NkwkL+0WlZ6511YMOKzYeQxcDqaHpuVFwas +ZjONm0KquPD539Fb87dgRaeo7FkPVTw281+gt1UQHAq5I+H0QRWtrxfLvlx5 +FdZNdPpvXS+MWRfV19wOGgZNU8ezjekieEnsAiMzaBCa9aLSue1JaPqjbpNF +Ggs+qTXy2FDIaDhiHdozywRaia9MexvBW6vtbPVMJkykNjQfD6Ogb23TwIm/ +TLByXCl5dr8oBhTyr+miD4JhIHM6UkgMPfbPF3tYDEPZ0gnX1/ViOHq5ipcv +6hdclLB5IHpbHIvP2QtuiZmAzO9vG8LyJbHe2LK2x2gO7g/f3hvjLoXVSW35 +OzgLQK7X9ZTeSMWwXhnzYX02SPCEKhSPUZFMtWiJCuZARqLffw5PaJigVuYy ++4UDVzoGvNSd6ahBmjfP0eHAd48RfiEZaXwQNHYlr24JPnb14dkBaXT771av +esQC7MSxun1v5PF1cKzSjaQvcNBx+3dzugLuir6TUP2hA663f+w86q+AM/uv +xQ7EtkLumyIDmS4F5H112os7uhlI6+VL3DcR83TmVKmRwDu4N9gg0nJXEX/u +2GfUbVoLDvuhUGdcETWmvC4P36yC3asntxRbKGHonwCfhyllsNFgTmUgUwm/ +9e/RO51XCHvGb65L5FVGH/WY4Y2puXB7wkLY/aQytspZHZV3yoLVyUMGhjXK +qHQkvn90KR0s9eZ0DiupoA+LJ/mJYwr8vN7t73tdBf9p8C89i0+EEv9ggcd9 +KkjT4RpdXIiFnDrvS1+QgaVGzw/zQjSk3Cqyqn3IQD+nTZBvGAHvGvyN9GYY +WLC0fvWUbTCQbAMo9daq6Ppz13SA/XVI3sBSEStQxR360c5aXgHAq3Hhii03 +CZ0Gdmz5LTgIIf/ljtQVkbCS43DFcxcLkn2/TBaeJ+MlXd3i9iombGelhRZs +oGDUPTenzSVMYEz+ZPaOU9Dj5BY/vlMs8JlXd5XLE8UZdXnhVeJDUDajUld1 +SgyrtOh2/DUj0FP3bV9TsxTGpQykr9u6BDiW8Cwkkoo/s6J43ZZzIGHVqq+p +u2h4UIPMmmnhwLbq4WYWLx2LQzWuHX3KAbceN0udKjqSQ06Le8ezQZC1kS+P +pYr8U4N1L3f5w/4i0boEMWFcGe5yNzZ5GCr2O7xkRYjgc5lqdnfyIHxTD26P +MibhS6eA8mcVLKB3GplwFkj4lPS1Q5ufBXd/bdhJryBj85KS/jmCxymRy/hq +vCkY5Om1tOU7wWcDAyPjraK4KbtkS94IC9IGLHlWzIniCqqcz/GlITgkYR1i ++lIMN9MF6MEivwDLg+INvcTxQvdkYZ/xBDjkZOexEiTRadNZcvvwLNw4+9ec +11IKdeTtFaufLcBtg5RjPBJUPPLh9seGZWwoWbb+n14nFa3u0HwXT3PgmmXy +gcVQGvpdMjzQ8Y0D10UNt3rspaP2yZUvww9xQNa5aciZVxqH7vhvtCd+f7+i +Ukj/vTQK9iydedy7AF92krgEi+Txqp6atYNRL6zayUgTF1HAA+ECZQ+dO2Hv +pc+hc14K+KFX4LLvmjbY9rXkvz9NCujevdaBfrCF8AusM2Yqitj/TWubTOk7 +sEx9VnblliKOvl0xm9JSC3rD/UNTPxSRXPXOZfNiFeifzDmyY6cSBrH3cq2x +LAemUHFtRpIS/ggtP1SDRUB/xGvpOa+E8hsGn5rJ5cEZx18qgkeU8fQrd+cV +8tkgPGHcN1GkjIP97M0qT54CfZm1paGkCkroT8RrDaZAteDBYA1fFdQfcdjj +cOwRFAzUpjh9VsEEGd53pMwH8Ga8ieuMNgNN9V7z+7yJBh/GGqu7kQw8Yyfg +vJ0vEsqM7reIjjIwrvDNbmmREJCMLwz3MlXFYIHk7CrWdXgbEK3u+VQV+Sov +tCuOBUDUlrPl50dFUPfzrR6XtYPw8OgzSavHJDSwEivQt2fBmJLNZgd7Mi69 +ZhdyNzGhROpw7qI4BZULO5dW5zKh5ytddlsnBVX+5t9vNWLBi8/OMf/iRDFR +csC799Mg0A7HftI6KIaCSx8ioo+OwLu9u/dtK5JC7Us+n7eOL0Kh4/KHnhep ++LlDYsSwiw16K5+9YGjQUDR0bVBDDQckfAWLrv+moaXZ5vz7ZRzwlHxH9XlG +xyCr4BKft2zYpPNNmL9HFe8Gyr44o3gFblzZW/liHRn5vhsckhtiwpOg2vnQ +ETKu3v6gSo7Qi23FETFc6RRccrfIliHOh3Twp1+Jp0SRxOO9+4jVIDza1+a/ +1YSKaUY8KR7ebPBdPrpfczkNbz2O1I1+zIFmls31qgoa6sUU2E5+5oBv7I3M +yct0vJdBlcgU5YDVh6PZa8LJqL1HMrG8mAmNueMu7kYU5IFLt9lvmOCzPOv5 +5VWiOBIvF3UwkgVNPtolTzKo6FjS5pS8jgOLfC78Mg40XHO53T6kiwNO/HWD +JjJ0NPAxbN4SyYGR6KBltn9VMVY8TdLAyw+c4gpc9/ILo+3499qQnGHgbv/y +wfu6CI78Jd0Syh0EluoKD1s9EnZE7b+c2MiCHdlBbm3jJPR0Cf43Q2FB881g +6ze5ZOxzy/pw7AUTFnil08+5UrCyX/bL6Q4mZKgdOrJxvSgaLh5UL2tlQUdM +KF/lmCiamXlbTLcPQfoTCyopVQzlJE4qFLWNQppAPLXbWRzLFEv5xmUnoEQi +WSU6ShKXYoZ7vctnYbEow7xylxS2O8vKCF9ZgOpZq+5//FQUcvHWZP1YglWB +S/bs91T8GvzisN0xDky83GT8PoCGMRoDo3kEH3i1J2kCO+i4TJvGNnHhQNUx +AxuReTrW9ToHiEmzYU5dfUa2Uhpfbngf8YR7EZTrFRPdc+SRdMySERHXCycK +Ht5cXK2AsVS35C95nZBvZu1i7K6APso/Nu/c3QbLR0u57eoV8Hbwk92fClog +StbEXF9OEY3qWr9pijSC1jKpiI5ARax+sSWljFQHatr53G29inh61jSHT+cN +aFMiPYK3KeHzacb0uRflgHOi0fzxSlgjoeW5I7gIbp5/63JoSgld022DnxzP +g58JZZuOWimjzWJXb+O1bIgW99FoyFHGOy9bBG7OPwVup+UnNpNVsNamz/OQ +WirktglFhJ1TwSY9Xgn5ukeQd//HmHGzCj4Kbqz6wx0HjcvndpSpM9AgPPzq +NE8M9F0ssZwLYeCca/KuzdsiYdP1FAoPk/Bz4cJ/kk6HQILux/dvjVRRRJIl +UbruBnSpuuVTk1WxZr/Wat91gdBRNt7N0yeCDuYrPTq2DkKarVIu7R4J7cWY +d4NcWUBejDmkuZ+Mr7PGVGxamfC3oKDmsQAFrx6z7nMh5mmTpW7F70aCF7xH +ggq0WdD4JiDze5gorpUbvbaCmE9z/pbO37vEcPKcub6/+ghgNNti5pkUGps0 +hZHeLcKEdAn5hDsVhSnmrWVVbAi56Ss+qkRDE647jVavOHDz8+NnB3/QkM+m +pDivmgN/dC5yKI/oeGWANHD8CxuM+wtiittUUb7t7iaDe1fguWVo/zVZMo7t +dOAymWBCH11mjcZ3Mm5dTX3a94wJseuzNHLjKPh3jne+ic0EXZ9f3LftRfH8 +SrqLAFF/F/+t6bX6VNTO2xsua8uGhqDysqlZKko5Hzhy4x4H9AxHLkTk0jCr +TcZhjji/i0Va4ZFn6Dg2TP4XqcKBy6mJLf2BZLTtWXV++Ssm8JrtuSSsS8GD +tJu6dcR9y6UGk3WLFFx9uEBdzY8FvJrDGx8kUNEkxS97uSQHzIK3ePcfoGGh ++q6MAoI/n07afBEn03FlSP59kwTie/qHb6wYU0X75BcRL7/4gc2Bzxq+DWRM +v2UeI/CcCbulmP+RAiloPXpq11eCj67X7EJ9f1CxQPrk9lI/DojOCR5dH0fD +14N8smNfOVBvIUkJOUXGB03bc9a+ZYJfAOfRIQUK8k1ZVewtYMKvW11GJ/Vp +GBlt/ONgIwee0/2qC+dp+Md6wehSLuFvhk8NDf0jY09gZcA0wV+1G1LDnkI0 +LPEu+VaWyYFjd+oiJ9/RsOH33Kd+wh+pz8jd2RpPRqNjjaPsfCZEiN+zathH +QQEG1wNmPROyQu6n2J2iYarCU2tfwl93jWT5Z82pourvMy8PrPKDsdXXdZ+u +EMa458oL7OJheHJf6mv5FRFkvA5YlVsyCCPKNToV2iR8THekMj6xwPpByuWK +YRI+2jlfuCjJgl9tRUfJWWR8+n5WM/gl4QcNs6ZMT1Cw07I+5Agx35uTnU8q +qYji99OT/ynUs+C0R4YAbUgUW2xvfkuvHoK97k2O/xLEcNf9BFOTwlGw1lay +Uzwmjra7eVyUBCeA2SR1YviOJNbmSl1XT5sFHdugDw+3S+GBxUqNJZcFONrx +UnR8BRVPjoY3y7UtQU6V892jb6kYf932cDHhh9K/LlbmXaLh+3SdTfoEDxtq +G8KPGNCx7ROM2RB+KvLbecHBv3Qc2tzvqbaODWrDLDdyqTQGBNISfUUXwWzV +i9GH2fKotjCuN1fTCxHu7TO/Vyqg3ccZw0/dncDSjv3sfkoBgzr/arm5tMGg +l25zZK0CeljZCYmxWsBP2ldPS1oRr6onvXtq0AiKGw/4cl9VxM7zKxgxWnUg +9+WhUHU34ZdSPJPA+g1ojl71ydJTQm/B75cpveUw5mE0rx+rhLev3hDoyS4C +vePpk2aTSqjZ+IujdC0PHpUml946oIw3lspM0vKzwfL5mp78bCJvFAqFPlXK +AO97X1w3CqtgTvLHFkOzVGBs/h1VfkYFf5Ze0OGafQQaZ7zIOu9VsNzCfaBb +PQ72CkU4f1/HQK76QOkQpRgQlQv/vO42A9W7no1NHoqEM6mM4rl+BsL8GOtr +Ygh8C7F3mzRUxYpddlUC+27A8StW/yYTVVF8vVriZbNA8PXbMLynRwT7784c +kdw+CBnWA34BESRMHImgbDvNAuXB/FM0UzL+leLZ87KdCcLcP5r+8BI8DNII +3p/NhGMRDfz1tRQ0GSGTeTaw4JBOeOHnW6K4n3Hl3irCz7MGRnpMDcUweU7W +6Iv4CPhpd7e0pUrhstHtVwsLFyFsUWTfkZNUfJHSlRlfwAbNt/2mZrI0dJhq +LDAq4YA+t5uCXi8N434K/Tv6lgP5DRZeTg/oaEWXLItksqFF+3FH2EdV3Pg4 +nbq9+Qq8hud/3KXIuN1bi+v6FBPYbmZiQd1kLHX6eGGa4GGtq25AcDQFx6KP +0heI/N3wa26Nv40opjuvpVoQftFnuE9TaTMVpw+GcMubsuFMjcK41V8quggN +YkYEwWPP/Emf5zRU/OYjEd/DgQpjAa4+Nzru7igv3bqRA+Hhr/reXyZjXKPx +TrvXTFCMuxB0QouCFSBS6FrGhMVC69jl0xRs2Ph16eJZFqQK7fCIuk/F+pte +cx2CHJhqSMowNKehelH+unOtHLgdI2vFEaDjNu4THn+TOXAjyqj+y7AqHqnJ +vu8v4g/eScv03leT8QV3ctcLgoc+VufKRi5RcK1Mec/vAWK/qmurenqpuFli +2nrmPAealLu6KNE0lCzt0wsizluPro6StyOxv55NpivfMSH+w7qMTDoFc5ev +vvcgjwkx9XipfjMNPyzLkl5bz4ETpkb6iVM0vFmvd4pRRKxvc+yk7gQZ3cbN +L/oSPGytvUb/xEdDl4yWLzVPOCBeGr66u4aGhqeDPEKIegx/YIJCDBnNWwOC +3hcS/HOqdpAyJfLp21MKvbVMsGxkd1Q40pBR/f65NNHf4/Cg8tq0KrauuG4Q +q+8HOVvtzD2LyfhSZ9lhW2L+tl5zaxq4ScNzeX+2s4h6Olxule0lUXDfJWrE +E4J3P4xFBoLXEuuv7xFeV8WB6o+TPN9/EvPg5v/nNzEP1yly7KfFNMxxj3QS +6+SAa8mV1zO3yFgcvqWquZQJQ2ya12ugoEzAmL1ZJRPSdrdAwCEabj9udOxV +Bwd0VzxlqDSTMWCD7edQon6H90ZMoyQa9kgoylMIvXHY1HqPV5WCo/SA7+uL +mGCWoP/9/gIZdZJ3b48j9ivTflFs9UcaHrYVLZ9p4gBNgOeSxWMyJiR27bUm ++r/cdMPphdM03J8f7h7fy4G999/odSyq4o0+mVenP1+GvJr/Utu4hZGv7k9h +cfkw+MyUOn2/LIJxxRWOQa8GwV0pRXpck4SWuuQAr88s6FujeT2PRcJGSff2 +WzQWXLpk7qT/jIx/bFYkq+Yw4fXRv1SdoxRkhBrNOn9kgr/dr1EZRVHMjktQ +83rDgjLbzeF7mKIIZnVxEqVDkNKyetVgnBh+iF48sDF9FHLeuS3uthfHR6m5 +l5uWT8Bius1VSrAkSuTFvr/1YBasM8+sCdkmhUTcCmPaLcCGut78UW4qcvv6 +8619vwTX++LWRdZQsXO+M6vFksjT3v1+6RdoOFV0NXiQ6GdGaMGuIF06Op1N +Kn7vxYGLdNLIpwk6Rtnu5JHfxIaauuo0gSJprPy0ralTehG+Z/y5uylLHp8c +Kaox7O6FdJOzG115FXBwp2z88bFOuJq5hZ/LVQG3GDR4hfm0waHC+U1raxQw +ZrLcrI3dAl6JUZo5NEV04D2ouXSwERJ2nT79wF8Rj5wd9okxqgPaBuH7W7sU +MUWzu8nD+Q3kdMzMG+gqYfNIgQbX33LYyfia3X5PCQ+QpZT1qopAzOb+5vpx +JVRVa3K+fDcPFnbdW6TuV8YmUl7/hqZs0D5v+0I1Sxl7Pj5bbaWXAes37HLP +FlTBBvGk3XvtU8HJxT76gKcK/jf+OipcJAkmenXSc96pYJdszeX/jOMgknJ4 +2mstAzuyroy7bo6Bjf8uxry9ycA/Ya3rjp2MBMH8/1ad72NgRsgGt4TCEOBo +ppXe3K6KayMa45uO34B0hqmYfQKRrwPitaLtAmHP1w9nTneKYNO2VWkVOwdB +zar6RF4oCR3a783LerEgx27HWRETMvJHuqae7GRCUsbFT9TlFGxpGV36nMWE +6SyhTflvKMjcwL69XY0FSX8pei3XRfGPx0i8UtwgaH68aHcJxLAzXCdcUWAE +4m++Fap+LIUSaZv6pp4vgt3ott82jlQ8kzWfd+4FG3hZoiw/Og0vpK9kqxD8 +kYjb27ehm4ZiFvwm0g0ciInUUwu9R8fwA7R990fYQOm7NzPbrIo73u1pHhm5 +AiaFugvHxYnzNem38HyaCWEiA1JZHWS871bQKEic38M3A5+ej6RgcvOlzyrE +c8GMgOgLlqKYZFDcGqI4CDu71nyS20TF5Y9bWAI72bBzwCb45gQVRe2eaqSF +cuAD74MXbhk0VBpSiNxP+LlHgrMlK13pGJb7ce9lLWK9y82Gqy6ScfTBy48x +BE/yQPD2HQ1CHyoKzfYQvLnblvh64g/hz0i1gqUeLDjL9uQPj6airPqIYwYf +4Y+G2gzP7aHh+qdra/Q/ccBx7QrSXz46+v6MtcxN40Cjnt6Q8ZAqnprPpoes +8wce4wcwVUlGh/mmJgFiPwTOlfV3XKDglsKr10L7mfCzf/Ywfw8VP3lnLg88 +y4GnFa/urYqk4Qb+ftVCgqdOOfXrTx0jo0TgPsHARiaoetdktUlR8HleV0VT +LuG3B70ps5toyHWnnz+wjgMGP1TnIicJPqZdC3Mh9Fvs6/ppxzEy2lNbZk2I +/qb/LCpetpKGsk/IrzVTCT21OFffVEUj/G4e7W0boU82H9Mkosj4rSpOpZLg +pR6/reMOEwq6X9/f71JD+NcRTa/fx2iY9mNF2ZFuwj8Oh/WNTaliUW/k9Fdr +P4C+P/sfFJBxqO34eBehDxRJi+DOIBpO9vova/9/PYLSlReEKKhxFt8uI/Sh +6KSRfxmDhqZ7p1RMXnNg/4Xbq1b9IOPmxj7DAUIfjj1fUf6wgIa+Ve7KwkT+ ++bNesP7XdTI2hPZbMAk9v/Ak//ygPgU9Hw558RB6f/EUT0+OFQ1FYza+qmwn +9uu5wfp978l48IKXfQNRv+4JtZStCTQ041qzcJvg2Vi3a7y6MgVd3iYzthJ6 ++MWwbaBylli/T7DCDkIfbkz1tS010dDPOumPdzNRb+DdazsTyRgV7SymTOSJ +LrcTq9a503DE25gsQuhDNBbbbV9QxbL52GzL35fBfr3skZEXxPtM+6EJIr++ +N5bgqfQn9Ib1YOkq0Y9rR0wb3vFRUDTn4MdOol+etYUih3uJfKR8mDRI1C/W +3awV9IKGoWGLK1qJfrNm3Tan1JHxohy62xLrm4j4S5W7T8NYv0uhSPzfXATX +mMhfMrI/zJvmE/UGZDbqh52kYdKuWq02Qs8dRm8ITQTTUKf5d87/9VpL7Qin +cJCMq+Xrq3mI9587CCuyP5Ix9lPRisPEfZDWccaBFBouPhOJDyfqq/j3pMeD +TcZuxynWLPH9jWvn2xq9aNgWf9NJlOjn6l/vpf5jE/kppLX2cdll+B+RnrBC + + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1WV4l2UUB+BRSod0M7q7U+mO0aHAAKVHd1u02IqddIlYKN2dtogiiCiI +2O19Lj/cO79znnHtz/Oed0tMTkkanSohIeGGL1Hn+lKUY/JielOD1KRhnrNi +HJeX0IearDBrwU/ya8wmLXebJXJCXkpfarHSrCU/y5uZQzruMSvOSfkB+vG6 +Pik+H9v1tVklt+KXOGe/PIRczNW/q/YhAx8yif3mx9SRFOQ8s7jJ/F61BBc4 +pT+ljmGZvFsdyGWy8wlTucbtzreoXblEat5nAlfZ4fywOowr5OMcM7hOHeer +1dZc5Ff9GXUcW+QD6p3k5jOmM8/8PbUvGfmIyRwwP66OohA36+9TS3JafpA9 +cjI5uEP/htqNNOzU12WN3Ibf4jyeIdv0/cjEQX167pdLcUZ+iP68qe9OWnbp +67FWbsvvcR7PmAzMNyvNWflhBlCfdWbt+EN+K54NGVlgVibuV36EgTQgEwvN +y/KB/CjJNCQzWcjKIuflYh/kxxhEI7LFrpuXj7uUH2cwjVlv1p4/5bfjPske +u29WgY/lJxgSn1Xfg3Ts1jdhg9yBv+R34s7YHntDZg7pc8S7IVeM3ZKfZK88 +iFvi+cfPVnvGrrJHf0QdTn5u1W9UO/K3fFYdz1b5oHoXeZiv3xHPnSzx2ZnC +YfMTavwi+JbCfMFsfojPEO+iWomv+FR/Wh3LdyzX71MH8w0543uYxvfx8+P/ +rvbi69jLeE5MZK+zo+oICvA5M7nNfJPaiX/ifeaQPJS8LNDvVPuTlSP6nCyT +K8e7Ij/FULbqe5Oeffqm8TtK7sy/8S7F/pAr3hGzKpyTn2YYzcgdO25eNT6j +/AzDaU4e8pKP/BSgIIUoTJHYb/+uGuflZxlBC4rGLptXjzuXn2MkLSkWu2xe +gy/l5xlFKxJjh81rckF+gdG0pnjssHmteF7yi6TQhhKxr+a1uSi/xBjaUjJ2 +z7wOl+SXGUs7SrHcvG48Q/kVxtGe0nHX5vW4LL/KeDpQJu7RvH7shryCCXSk +bNyjeQOuyCuZSCfKxT2ZN4ydlFcxic6Uj3sybxT7J69mMl2oEPdk3pir8hqm +kETFuCfzJlyT1zKVrlSKe4p3KXZWXsc0ulE57il2kuvyeqbTnSpxT+ZN412R +NzCDHlSNezJvxg15IzPpSbW4J/Pm/ChvYha92GzWhfiDvE1ZxC55ANk4qj+p +plAkdoM5qf7/G17d2X9hl/X1 + "], 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]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 13}, {0., 1.991919222968944}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3k8lG8XxkUpkW3GOjP2ZUiJKFk6J0UKabGk0ILIj6SkFEVKkTVKRLIk +CdnXRJZIosiaijRjS5YW+8z7vH/N5/u5t+e+zrnOfUb2pOdBZ04ODo6ZFRwc +///18TvEx8EhiPM7OIM8q0ehoO6/tA5OQeRpmCkurRyFibU3dJ+uEsT450qL +rNJRcIovct3HK4i2k9/qQ/NG4UCJSEOiqCCujnC5G5cyCmpT3f7bNghi9iX1 +dbeDRmHQ0W7y3BFBnE59eajTeBTMTJ3bGUWCeC94y+aKdyNgctj2J6evEGqs +72yyrhkGn9lyp29XhDC+tMox6OUwPLkv+aXyqhDSXwWsyS8bBs7Oz++9bwjh +2G/hWwL5w1B1wOEFM1IIn0vXsnpThkHT1PFcc4YQXha9SM8KGgbqdo+56E9C +KFktV+doMgx7v7w/e6ZbCFu2r0mv2jUMvn4bR/f2CeHg3dmjEjuGoatispdr +QAgdzFd7dG0bhuit5yovjAuh7qdbfS7rh4Fb4+JVW05hdBraufUX/zBMygeu +lN0kjFE2/XerupngrpgqNakpjJa6pACvT0wYU6rTqdIWxsc0Rwr9IxOYKqs8 +bPWEsSv6wJWkZiZ8VQ/pjDYWxhdOAZXPqpjQqhedwWkvjKbfGzZbpDMh+1CK +yY8QYezI0X6w2psJqla1JwvChNGh896CjBcTMq2H/AIihTFpLJK8/QwT0m0V +86n3hNFelHE3yJUJD489k7B6LIwGVqJF+vZMCP0vf6yhRBir2Q5XPXcz4XTQ +67CnQ8LoupheJi7NhIF1mjcKmMLYLOHeeYvKBOsHqVeqRoXx0a6F4iUJJuzM +CXLrmBRGT5eQv7NkJtC6jUzYi8L4VPhLlzYvEz6qNnPZkEloOGYd1jfHAJNi +3cUTYiRMnPZbfP6PAa/g+Yy7JAl3eGtx3PjDgOeWYYPXZUg4scuBw2SKATev +7qvOVSMhzzeDw7IjDNjW3n6Z24iEC44+noq9DMiz23lOyISEvFGuaae6GaA0 +XHiaakrC35Jce190MoC0FHtY8wAJX2VPKNu0M2BC0WaLgz0Jl1+xijlbGOCU +17jh9HESigfu5w9sZkCfro6ityOx3rPFdPVbBjRaSJBDT5PwQcuOvPVvGJDi ++3m6+AIJL+vqlnbWMEB8pdlozSUSjj948SG2mgERES8H3l0hYXyz8S67Vwy4 +kpbUNhhIQtu+NRdWvmTAzAb+xp83SNgUNmjBqGCAa9nVV7O3SFgasbWmtZwB +Vu+P5ayLIKH2XomkylIGtNh8SBePJuHXmnjl6hIGGH7HRPlYEpq3BwS9K2aA ++qzsnW0JJDQ63jzOKmRARuDd67uSSBgd4yyqRDCVj+uyxWNC76SefdYFDOCR +/eHqnEHCZ3eElNrzGHD5srmT/jMSztisSlEh+GdHyTFSNgmfvpvTDHnBAPsN +MkfHcon9GPYjU7kMaA0OsX6dT8IBt+z3xwmGgZkDD4pIONJxYrInh4jHNjtz +z1ISvtBZccSW4Ls/N+6iVZGwdVlR/3w2A7iMH8CfahI6LLS08BHsnbxC710t +CXM5U3pynzOAOee2JbWBhJdk0d2WYJuDnzR8m0iYccs8lo/gpucGG/a/I+Gh +i172TVkM0F31lK7cSsKAjbafwgh+7iCowPpAwriPJauOEEwt85Xu7CDua7WD +pU5wuNCQZHYXCe+7FTXzE8xyMxMN6iVhudOHi/+eMcCzvljoSD8Rb6UjwsME +D9Ck12l8I+G2tZSnAwQfuHh7zZrvJNzSPGA4RHDth2mubz+I9W7+M78I1lI9 +yi4eJuFaucZaLmL/J0H1C2FjBO94UCNLsOiXDf8cJ0hoT2mbMyH49pa4ad0p +ErpNml/yJXg+kmNC6DcJWe8XTAsJdhs9PTLyl4R9gdUB/wj+bNgxVD1H6O0T +Ir+T0MMsUf/b/UUS6qTs2RFPcNXfJ30eLBL2Ov5hzhG80UKga9cKMu69GCh7 +ktA7OfPSR8pKMra1jS9/IliQ83vLDDcZrwVphBwg4nX9qGnTWx4yiuQd+tBN +8O+iorrHfMT4cesBFyLeTvxS1RcFyKhxDt+sIPKjy+VWxT5hMu6/TIl8QnCZ +5JH8JTEyKhV3L6/NZ4CKd112hyQZnxf0VLUQnPBeLTOLRsb8lWvvPSDy0S+A +/eiwPBl5/lhV7Ssi/NnrmqCuREaXNyn0bUR+O2xuv8etQsZxWsC3DUT+72Cm +hxVtJGP0PTenLWUMKAD+23c0yFhVVWy2l/CPQvzFoJNaBINQsSvhL26zvZcF +dcl4iBqs20D47+KTwgvD+mT0fDjixUX4c4RF9XoFZJQOmLA3I/zbnD/p4m5E +Ri64fJv1mgF6vLaOO03I6H7jwKBLHQOynWodJE3J6PHmtHx/PQMixe5ZNe0n +Ix+d4wGjkQGW/ro7FezIqNWkW+jfStS3Y78pOsfISA8zmnP+wAC6YfYf05Nk +7LZsDD1K1KNFbqmM865krB6U+XymiwGpUSt46rzJGOTptbz1GwP4zlcMdl0k +49bia9fDBhngY3W+YuwyGddLV/b9GmLAHknGf8KBZLQeP737C1Efp9KaWk+E +k9G3vmXo5G8GHAkOfHohiowprZc/KRP1tt5VNyAkhowTMcdoi0Q9jtuQrZEf +T8bf89wLLSwGbC+NjOXIIOOyu0WONFG/w5qtjyS/ImODrat9pBIT/mULbC58 +TUbGRtbtHapMOB7ZxNtYT0aTMRKJayMTNlvqVv1qJuLPfTSoSJsJfV9oMtu7 +yaj8u/B+uxET6NM/GP2ThH6ntvrxnGbC3Y6kV1MzhB7C9fzlHkxYKraOW/mP +jE2bvixfOseEtstNJmpLZFx7pEhd1Y8JPiuzn19ZI4JjCbLRh6KYUC923ktS +VgQr42Ti2iqZ4G/3c1xaQQRz4hNVvV4zYUuK8ylFZRH8dmb6P/lG4n1UPXx0 +0wYRNFw6pF7RTtzPwMDIeJsIbs4p21owxgQrx9US5w6IYEAx77oe2jDwZwbE +XLQUwWSD0vZQhWFo+jm/zt9GBDOc11MsiPdf1+cn5217EbywmubCR/QHUiEf +fyadFkFhLu89R62GgZn7sOZtoAi2qwv/sIwehuTfZL22GyI44zGWoBg/DId1 +Ioo/3RLBA/Sr99YQ/Urz64Csb+EiuF52/Poqop/J/eQc+zdeBJMkhrz7PxL9 +0IK6q2yBCM6qywmuERuB1cb1Ar7fRZD/S9yuhy9GoMJ2S8RehgiCWUO8ePkI +nPHI5KOOiGCbbfDXjNoR6IoN46meEEEzM2+Lf50jkD5kybVqXgRXUWR9TiyP +gGEg41+UgCh6HFgo9bAYhasvub9m6oti0SC/zTWOMdD8cMnuMohid4ROhALf +GDCHxvpMDUUxZV7G6LPYGJjztnX/2i2K0+fN9f3Vx4B6JO6j1iFR5F9+Hxlz +bAwqZpUbak6LYo0WzY63bgz+au7J7rkvipdvtbDV4sYhtW3tmuF4UXwfs3Rw +U8Y47HNvcfybKIq77yeamhSPQ8YTC4pwmijKip+SL+kYh8Pi1qGmL0RxC42P +FiL0EyqWT7q+ahTF8Ss13DzRP+Fak59C+pwoSjz5r940eQJ4HPISPY+I4ULo +R8HZf5OQ99ZtaY+9GD5Ky7/SsnIKrLUV7RSOi6HtHi4XRf4pSOdLoPQ6i2GF +QjnPpMwUYGVQgqGXGF7snS4eMJ6CS+I2D0Rui2HpeXv+rbFTMNK+HFNZLIaR +6QUTF7SmoWm36Z3VQuKo/Ol9llTIDBxpYI2urhfHv8oZFx0d/oJwYGwiBEtg +Tod5W3/YHCxl2Fwjh0igeEHcu1sP5oDRInly9I4E1udL3lBPn4My8RTlmGgJ +XI4d7feunAOHvJwCZqIEOm0+R+ocnYOsb2+awgslsNHYsr7PaB52bp//83lA +As/3q0hdWJgH70V780t6kvioOjm2/sAiWGedXRe6XRKJch3OsFsEHdug9w93 +SOLBpWqNZZdFWCrJNK/eLYmdzjLSglcX4ea53+bclpKoI2evUPtsEe6P3t4X +6y6JtckdhTvZi1DWXWiRlySJi240U3rqEiQEvxGofSyJ4umbB/48XwI/7d62 +jjRJXDG+41px8RJgDMti9pkkGpu0hAu/XYK3+/bs314iidqXfT5tm1yCvoav ++1taJTE+dShDbdsyLBXyHBxhS6K3pOdjpbpl2NjQXzjOSUFOX3+e9e+W4VjX +C5HJVRQ8NR7RKtuxDLVzVr1/eSko4OKtyfy+DLcNUo9ziVPw6PvbH5pWsIDU +qOsptYmC4f3S5qP6LNjVs+6j7GYKrnzcxuTbxQKf0QFNxS0U/HcolFPOlAU9 +vLf+rdenoHbBvggZWxY82t/hv82EgulGXKke3ixQ7fsvzPI4BbOE5m8aZLLA +bnz7LxtHCp7NXig4n8uC8CWh/UdPUTA3tScroYgFU1JlpJPuFBQkm7dX1LCg +2HHlQ89LFPzUJT5m2MMCnEh8FhpFwR/Z0dxuK9lwjuXJGxFDQRn1McdMHjak +Cez0iL5PwcZgr/kufjZwa45uepBIQZNUv5yVEmxo8dEue5JJQceyDqcUNTbY +cLS+qamhYI+k5HDvfjbcGIhXi6qjYPdCd3abJRvyapzvHntDwYQbtkdKD7Nh +TeCyPesdBb+E5B6xO86GshUb/up1U9DqDtV36QwbfgzOHeHto+BH76yVgefY +IFhbX9PXT8Et4v+sZy+wwfW6XZjvdwoWSZ3aUe7HBnGuMPnSCQqSKBZt0SFs +2DVkExI8RUERu6ca6WFsOFsnP2n1m4IuAsOYGcmGpqDKij9zFJR0Pnj05j02 ++K4cP6C5koq3HkfpxjxmQ8aPktIVq6ko84T0SjONDe3112kfeajoktn2ue4J +G1RvSo56ClCxzLvsa0UWG/pW7Q3IkaQiv/9I52IhoRdThOlHo+LFjNUs5RI2 +aL4ZNDWToaLDn+YiozI2hAb7io0rUtGE406z1Us2lJwy8q+gU9F03x9lk1ds ++G4sNBSynorvG/sE1WrYoLf6WS5dg4oiYeuDmuqI+w97k+c2U5HjziBvYAMb +YhvxcuMWYv6KbKn1jWz4eavH6JQ+FaNijL8famZD4po1X9J2U/GQBok520bc +f6TD8PxeKm54ur5O/yMb/jQlZxqaU1G9pFDtfDsbzEK2eg8epGKx+u7Mok9s +uHSaqy/Pijg/dtPL6k42pO9pg4DDVNxxwuj4yy42LPG48Eo7UHHdlU770B42 +0Mc0vX4dp2L691UVR3vZYNnM6qpypCK99t1zqT42BGQ164efomLy7nqtDoKz +Q++n2p2mYpr8U2vfz2zocTu5Rs2dimPexiShfjasNN14ZvEMFQ8URrgnELxp +/UJHsxcVOxKCnUS+sMGe9822BG8qColaLAcSfN170C/jIhX/lFwLGSY448tS +dcFlKr7L0Nms/5UN74zFuar9qXiE+WD5GsFTLzYbvwugYqzG0HgBwWQJi5Du +ICpO9/uv6CR423W3lqFgKp4vmNnBJNhh/KbAVAgVdVp/5f2fr1umHFwKo6Lf +ZcODXQQ/rXp5b00UFTfyDqoUE9yi1NNDjqGiRPmAXtD/z4v8TZG9T8U4v8th +SLDIPP+xDfFUfDXMIzNBfK/uSdXUbYlUNONYt3ibYId3RgyjZCr2iSvIkQkO +0jpBP5hKxaVnQgkRhB6ZSX7/OTyhYqJqhcscod977ge5bplUVByRjzpA8Ixn +4bTPcyoqfPURTyD0Fu1t1QrKpWJY+NKqdiI+eoZjFyPzqZjdIe0wT8Tv+PNV +lQ+LqOhb464kSPANsizraSkV89yjnES72dDKtLlRU0VFvdgi22kiP2Yszje2 +1FBR5VcB9U0HG8TKI9b21lHR8EyQRyiRT8fvNERNv6Vi06/5j4NE/t38M9Cx +3ELoZZ08493Khiz7JdG1H4h42IpUzraw4bf65iS5LiqeefbeoeUt4e/4fQMb +e6koasFrItXEBn1ON3m9firG/xD4e+wNG4I/PX526DsVeWzKSgtqifm+/CU3 +flHR0mxL4f0KNhh8V5mPmibyNf16uAvhv5OmRvpJf6gY3Kh3mk748znNr7Z4 +gYoz1otGl/PZsL12tJXJTcPSMI3rx56ywXH9KuHfPDT0/RFnmZ/OhtuxMlZs +Phpu5zzp8TuFDR9P2XwWI9FwdWjhfZNENjjxNgybSNPQwMewdWsUG0IsH3M8 +30rD3KfahzWJ+pUZVrQ7SJeGTueSS995EX6sb4o4akDDjo8wYUPUP27taSrf +Thqu0KayTFwI/UUMt3nso6H2qdUvIoj6ebVryEvdmYYawgvmeTpseMQ/V7ba +lYbh+R/2XdFiQ5UxH8eAGw33dFWWb9tE+LNEKyLqLA0nRkl/o5SJehd3M2v6 +Cg3vZVLEs0TY4H1YeajwLg1fHVP4EznJgtgoPdWwezSMOEjdf3+MBYVNFl5O +D2hoRZOoiGKwYEbnEpv8iIZXh4SHTnxmgafEW4rPMxoGWYWU+bxhgVufm6VO +DQ1JoWfEvBNYcNwut+HlBA3brmvDOl0WXKIJj32comG07S4uuc0siPp6gX/4 +Nw1Htgx6qqqxoOa4gY3QAg0b+p0DRKVYIOPcMuLMLYUjd/w32RPv6zePMV4B +aSl8EDRxtaBhGRyuKR08sV8KQ5nJpj+NlsEu9dHXVYVSWNHktGIjfQnqGmrT ++UqksPrj9pZuqSVQHWW6kcqlMCCQmuQrsgTz6uqzMtVS+GLju8gnnEtwv6pa +QP+dFPL3LZ993L8IH3oG8NyQFLr9d6tfPXIRdgnIp30lSSPdViJSbnIB1Pye +upR6S+PN3VtXFyTNg+Xac7NFZBl8sLiQxscxC+kXVjCe+ciguduqDbNif2Bv +TdYB6XYZDG0T1gLvaeizPP6vab0sfugv8fmz7hf4rVltxB8ui7o2nk7HjUbB ++2Gj8KdhWRS2yOqX3s+Aq+a+odp75fDisd7v4fcG4dyerbrvsuTQQVhuKf5X +P3zLnLm7OVsOnxwtqTPs7QezNbnjD3PkUHVxUm++rh+UGhWS3PPkUPi4JT0y +vh8+7xLm4C+Rw2t6qtYORv2wCyca9r+Ww1chcYo3kz+D2Na0A13dcth5u+h3 +i30fvFQQOD24Uh7LGqhWHCt6IMPk3CZXbnkc3iWTcGKiGyLdO2d/rZZHuw+z +hh97u+Fk0cPgpbXyGEdxS/lc0A1rdtHTxYTk8WAEX8VD52445LjjmzlNHnfH +3Emsfd8FYynnrSq05ZH3mhDpQmYniEv37Ig5JY/G696EVt7sgGtZW3k5XOVx +q0GTV7hPBzC14z65n5bHoO7fWm4uHVBoZu1i7C6PPkrft+za0wH7Ln8Km/eS +x/f9fFd813XAjc4P3cf85XH2wPW4obh2mL7z1kMtVh7NWcO/Q4s+QvNcRXzD +a3mcsxyDj7wf4HDxwub1dfIYO11p1sFqg2Ev3daoenn0sLITEGW2wcrxck67 +Rnm8HfJkz8eiNtj+pey/mRZ5dO9d70A71Ab5r0sMpHvkkfvlGS/OmFZ4EFow +eOmXPIZn89sUSb+HU9QsFTWKAnImPUlzcmsGr6RozTyqAjpwH9JcPtQMflK+ +elpSCnhNPfntU4NmiJYxMdeXVUCjhvavmkLNRDyYZ82UFXDwq9Z26fK3ILxB +rsx9swJqnj1dbsT3FqoMEoxzTBXwXIKD6rnqRiAfC3Xc6KeA1lP/elOsGyBx +95kzD/wV8Oi5UZ9YowZQ2HTQl/OaAnZfWEWP1WoArRWSkV2BClibuzW1QrgB +LNOeVVy9pYDjb1bNpbbVw73hJqG2uwr4Y+d+o17TehA9u7rG8xlxftwr40fm +dSAeeIOa36WASepGXZner4G6UfD+th4FTNXsbfFwfg2ynx8K1PYqICnVMxms +X4OqdiFnR78CnpkzzePReQ16o4Mjf74T4zVvXbYs1YDDASjWmVRAjT9eV0aD +ayBNdsG8ZrUi6vk9Gx/aWw0baz2vtekoYrPAC2MWz0vI65pdMNBVxNaxIg2O +35WgOX7NJ1tPEb35v10h91eCNjnKI2S7Ij7/R/93PrcS9E/lHd25SxGDWPs4 +1llWwp6101tLLRQxbCbA52FqBTgdPDf16JQi2vAnSLWYlUPCd+8TZ2IVcdf9 +551Z7SWwi/4lp/OeIh4kSSrp1ZTAhIfRgn6cIt6+dpOvL6cEcF4khjdBEevE +tTx3hpQAQ6C0PjNZEb+HVR6uwxLYZDCvPJSliF8H9+qdKSiGhjj/XzavFbEn +fFuZ4uMimDILvrLjlyJ28rfPfk0tAFGb+1saJxVRRbXF+crdAtA7kTFtNq2I +ms0/2YrXCyD4whuXw38U0TXDNuTJiQKgPeK29FxQRLmNw0/NZAtg72SwWhK3 +Evqox45uSsuH9OhbX+aklFBoKJO9Ij8PDnfdhjwLJWwWOe33/kcOLO6+t0Q5 +oIQtwgWDG1ty4FF5Svmtg0p4c7nCJL0wB34kVmw+ZqWENks9/c3Xc+Cs409l +/qNKeOalu/MquRy4PWUh6H5KCdtlrY7JOWVD6VqxQWV/JVxpcyI0+l8WiMKT +68lZSli979xbkQOZoH3BNlclWwn7Pjxba6WXCZbP1/UV5hDriwXCnipmQoyY +j0ZTnhLeedHGF7zwFASnjAemSpRweJC1RfnJU1ibMmJgWKeEikcTBseXM4DF +qTb/47MSfvrAHOavegLMNwWequuUkVXpkOd6Jg02bNztnsOvjE1iyXv22aeB +973PrpsElTEv5UOboVkacDqtPLmFpIz1NgOeh1XTgLbC2tJQQhnF9acStIZT +wVJvXueIojL6MLlSnjimQt0L4Aw1UEaT5MJMsksKPH7QEjvqoYzXtg30a6xP +BicX+5iDnsr43+Sr6AihZKBv+RVdeVYZf5Rf1OGYewT5HQKR4eeVsUWPW1yu +4RHU8h8K0fBVRv0xh70Oxx/Bjxu9/r43lPGvBu/ys4QkoHsxT/E8VMbflad3 +0qQSIW8PxzaVJmW0Ct+3Scg+Hqb6dTLy3ipjj0zdlf+M40HjrBdJ550yVlq4 +D/Wqx0PB/e8Txq3K+CikuWaGMx6KhupTnT4pY6I091vhrAdQ5h/C93hAGak6 +HONLi3HwOl94QHReGd0WXQ5y5d6HdgnFWytV6Rio8fOD1e5YiCIf+ee1no5d +2VcnXbfEwj6BSOdvanTkaAyUClWMheaV8zsr1OloEBFx7R9XLLyebOE4q01H +U71XvD6vYyCvwfvyZ6RjudHzI9wQAxFe9R4FNnTkLa+Vkdp1F/a+dbQ8fpOO +1lsT3XrPR8Gmv5di3wTTcSa8Xe34qSgQkY34pHabjuo9zyamD0fBwKUyy/lQ +Os67puzesj0KfOjrrO5G0fGsHZ/zDp4oSL1VYlX/kI5+Tpuh0DASFo14bOgF +dPwXQ4vLLgiH7Npc26mvdNQOo/CdfR8K/IX/rbkwQMfM0I1uicWhcDaNXjo/ +SEdYmGB+SQqFzTdSyVwM4nsjBGeSz4RChdH9NpFxOsYXv94jJRQKb5v8jfRm +6Vi0vGHtH9sQYLaaaQQLqODip7/Hbi3cApnPY2uI7hp/CYdrPTx/E9ia6eXB +O1RwfWRzQsuJm/A11N5t2lAFq3bb1fDtvwmJuh/evTFSQSEJpni52k2QSCiO +8DJVwRC+lJwa5g0Qtg0gN1qroOuP3f8C7G/Aqm4RmXMeKnh89r9Ab6sgGGvH +rU0JxP5R3FXl7oGQQTcVtU8k1gckaMXYBcKJq1Z/p5NUUGyDatIVs0DoUXEr +pKSoYN0BrbW+aoHwJiBG3fOpCvJUX+xUmAiAlI1MZdEiFdypH+Os5RUAh0Pv +iDu9V0HrG6UyL1ZfA/LAvdm5VmL87d7WsbGr0Kb9uCv8gwpuepxB2dF6FYwH +i2JLO1RQruPuZoN7V2GzzldB3j4VvBsok3tW4SrwMzfxFDBVkPfPcMOL3f7Q +rKc3YjyigqcXcmihav5wM9qo8fOoCh6ty7nvL+QPS/pHbq6aUEH7lNzIF5/9 +YCwmaIXtbxWME0uXMPDyg4zR8IGJPypY0h/174u1H5yAB9XX/6lg+6obBnH6 +ftAzlu2fPa9C/N85++LgGj+IwVK7HYsqWLEQl2P56wrsu/9ar2tJBW8OSL88 +8+kKrP35TvI/FjE/tL3+ccUVaNjRNc9mq+CsYUT+2OMr8D/Le7BC + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 13}, {0., 1.991919222968944}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3k8lG8XxkUpkW3GOjP2ZUiJKFk6J0UKabGk0ILIj6SkFEVKkTVKRLIk +CdnXRJZIosiaijRjS5YW+8z7vH/N5/u5t+e+zrnOfUb2pOdBZ04ODo6ZFRwc +///18TvEx8EhiPM7OIM8q0ehoO6/tA5OQeRpmCkurRyFibU3dJ+uEsT450qL +rNJRcIovct3HK4i2k9/qQ/NG4UCJSEOiqCCujnC5G5cyCmpT3f7bNghi9iX1 +dbeDRmHQ0W7y3BFBnE59eajTeBTMTJ3bGUWCeC94y+aKdyNgctj2J6evEGqs +72yyrhkGn9lyp29XhDC+tMox6OUwPLkv+aXyqhDSXwWsyS8bBs7Oz++9bwjh +2G/hWwL5w1B1wOEFM1IIn0vXsnpThkHT1PFcc4YQXha9SM8KGgbqdo+56E9C +KFktV+doMgx7v7w/e6ZbCFu2r0mv2jUMvn4bR/f2CeHg3dmjEjuGoatispdr +QAgdzFd7dG0bhuit5yovjAuh7qdbfS7rh4Fb4+JVW05hdBraufUX/zBMygeu +lN0kjFE2/XerupngrpgqNakpjJa6pACvT0wYU6rTqdIWxsc0Rwr9IxOYKqs8 +bPWEsSv6wJWkZiZ8VQ/pjDYWxhdOAZXPqpjQqhedwWkvjKbfGzZbpDMh+1CK +yY8QYezI0X6w2psJqla1JwvChNGh896CjBcTMq2H/AIihTFpLJK8/QwT0m0V +86n3hNFelHE3yJUJD489k7B6LIwGVqJF+vZMCP0vf6yhRBir2Q5XPXcz4XTQ +67CnQ8LoupheJi7NhIF1mjcKmMLYLOHeeYvKBOsHqVeqRoXx0a6F4iUJJuzM +CXLrmBRGT5eQv7NkJtC6jUzYi8L4VPhLlzYvEz6qNnPZkEloOGYd1jfHAJNi +3cUTYiRMnPZbfP6PAa/g+Yy7JAl3eGtx3PjDgOeWYYPXZUg4scuBw2SKATev +7qvOVSMhzzeDw7IjDNjW3n6Z24iEC44+noq9DMiz23lOyISEvFGuaae6GaA0 +XHiaakrC35Jce190MoC0FHtY8wAJX2VPKNu0M2BC0WaLgz0Jl1+xijlbGOCU +17jh9HESigfu5w9sZkCfro6ityOx3rPFdPVbBjRaSJBDT5PwQcuOvPVvGJDi ++3m6+AIJL+vqlnbWMEB8pdlozSUSjj948SG2mgERES8H3l0hYXyz8S67Vwy4 +kpbUNhhIQtu+NRdWvmTAzAb+xp83SNgUNmjBqGCAa9nVV7O3SFgasbWmtZwB +Vu+P5ayLIKH2XomkylIGtNh8SBePJuHXmnjl6hIGGH7HRPlYEpq3BwS9K2aA ++qzsnW0JJDQ63jzOKmRARuDd67uSSBgd4yyqRDCVj+uyxWNC76SefdYFDOCR +/eHqnEHCZ3eElNrzGHD5srmT/jMSztisSlEh+GdHyTFSNgmfvpvTDHnBAPsN +MkfHcon9GPYjU7kMaA0OsX6dT8IBt+z3xwmGgZkDD4pIONJxYrInh4jHNjtz +z1ISvtBZccSW4Ls/N+6iVZGwdVlR/3w2A7iMH8CfahI6LLS08BHsnbxC710t +CXM5U3pynzOAOee2JbWBhJdk0d2WYJuDnzR8m0iYccs8lo/gpucGG/a/I+Gh +i172TVkM0F31lK7cSsKAjbafwgh+7iCowPpAwriPJauOEEwt85Xu7CDua7WD +pU5wuNCQZHYXCe+7FTXzE8xyMxMN6iVhudOHi/+eMcCzvljoSD8Rb6UjwsME +D9Ck12l8I+G2tZSnAwQfuHh7zZrvJNzSPGA4RHDth2mubz+I9W7+M78I1lI9 +yi4eJuFaucZaLmL/J0H1C2FjBO94UCNLsOiXDf8cJ0hoT2mbMyH49pa4ad0p +ErpNml/yJXg+kmNC6DcJWe8XTAsJdhs9PTLyl4R9gdUB/wj+bNgxVD1H6O0T +Ir+T0MMsUf/b/UUS6qTs2RFPcNXfJ30eLBL2Ov5hzhG80UKga9cKMu69GCh7 +ktA7OfPSR8pKMra1jS9/IliQ83vLDDcZrwVphBwg4nX9qGnTWx4yiuQd+tBN +8O+iorrHfMT4cesBFyLeTvxS1RcFyKhxDt+sIPKjy+VWxT5hMu6/TIl8QnCZ +5JH8JTEyKhV3L6/NZ4CKd112hyQZnxf0VLUQnPBeLTOLRsb8lWvvPSDy0S+A +/eiwPBl5/lhV7Ssi/NnrmqCuREaXNyn0bUR+O2xuv8etQsZxWsC3DUT+72Cm +hxVtJGP0PTenLWUMKAD+23c0yFhVVWy2l/CPQvzFoJNaBINQsSvhL26zvZcF +dcl4iBqs20D47+KTwgvD+mT0fDjixUX4c4RF9XoFZJQOmLA3I/zbnD/p4m5E +Ri64fJv1mgF6vLaOO03I6H7jwKBLHQOynWodJE3J6PHmtHx/PQMixe5ZNe0n +Ix+d4wGjkQGW/ro7FezIqNWkW+jfStS3Y78pOsfISA8zmnP+wAC6YfYf05Nk +7LZsDD1K1KNFbqmM865krB6U+XymiwGpUSt46rzJGOTptbz1GwP4zlcMdl0k +49bia9fDBhngY3W+YuwyGddLV/b9GmLAHknGf8KBZLQeP737C1Efp9KaWk+E +k9G3vmXo5G8GHAkOfHohiowprZc/KRP1tt5VNyAkhowTMcdoi0Q9jtuQrZEf +T8bf89wLLSwGbC+NjOXIIOOyu0WONFG/w5qtjyS/ImODrat9pBIT/mULbC58 +TUbGRtbtHapMOB7ZxNtYT0aTMRKJayMTNlvqVv1qJuLPfTSoSJsJfV9oMtu7 +yaj8u/B+uxET6NM/GP2ThH6ntvrxnGbC3Y6kV1MzhB7C9fzlHkxYKraOW/mP +jE2bvixfOseEtstNJmpLZFx7pEhd1Y8JPiuzn19ZI4JjCbLRh6KYUC923ktS +VgQr42Ti2iqZ4G/3c1xaQQRz4hNVvV4zYUuK8ylFZRH8dmb6P/lG4n1UPXx0 +0wYRNFw6pF7RTtzPwMDIeJsIbs4p21owxgQrx9US5w6IYEAx77oe2jDwZwbE +XLQUwWSD0vZQhWFo+jm/zt9GBDOc11MsiPdf1+cn5217EbywmubCR/QHUiEf +fyadFkFhLu89R62GgZn7sOZtoAi2qwv/sIwehuTfZL22GyI44zGWoBg/DId1 +Ioo/3RLBA/Sr99YQ/Urz64Csb+EiuF52/Poqop/J/eQc+zdeBJMkhrz7PxL9 +0IK6q2yBCM6qywmuERuB1cb1Ar7fRZD/S9yuhy9GoMJ2S8RehgiCWUO8ePkI +nPHI5KOOiGCbbfDXjNoR6IoN46meEEEzM2+Lf50jkD5kybVqXgRXUWR9TiyP +gGEg41+UgCh6HFgo9bAYhasvub9m6oti0SC/zTWOMdD8cMnuMohid4ROhALf +GDCHxvpMDUUxZV7G6LPYGJjztnX/2i2K0+fN9f3Vx4B6JO6j1iFR5F9+Hxlz +bAwqZpUbak6LYo0WzY63bgz+au7J7rkvipdvtbDV4sYhtW3tmuF4UXwfs3Rw +U8Y47HNvcfybKIq77yeamhSPQ8YTC4pwmijKip+SL+kYh8Pi1qGmL0RxC42P +FiL0EyqWT7q+ahTF8Ss13DzRP+Fak59C+pwoSjz5r940eQJ4HPISPY+I4ULo +R8HZf5OQ99ZtaY+9GD5Ky7/SsnIKrLUV7RSOi6HtHi4XRf4pSOdLoPQ6i2GF +QjnPpMwUYGVQgqGXGF7snS4eMJ6CS+I2D0Rui2HpeXv+rbFTMNK+HFNZLIaR +6QUTF7SmoWm36Z3VQuKo/Ol9llTIDBxpYI2urhfHv8oZFx0d/oJwYGwiBEtg +Tod5W3/YHCxl2Fwjh0igeEHcu1sP5oDRInly9I4E1udL3lBPn4My8RTlmGgJ +XI4d7feunAOHvJwCZqIEOm0+R+ocnYOsb2+awgslsNHYsr7PaB52bp//83lA +As/3q0hdWJgH70V780t6kvioOjm2/sAiWGedXRe6XRKJch3OsFsEHdug9w93 +SOLBpWqNZZdFWCrJNK/eLYmdzjLSglcX4ea53+bclpKoI2evUPtsEe6P3t4X +6y6JtckdhTvZi1DWXWiRlySJi240U3rqEiQEvxGofSyJ4umbB/48XwI/7d62 +jjRJXDG+41px8RJgDMti9pkkGpu0hAu/XYK3+/bs314iidqXfT5tm1yCvoav ++1taJTE+dShDbdsyLBXyHBxhS6K3pOdjpbpl2NjQXzjOSUFOX3+e9e+W4VjX +C5HJVRQ8NR7RKtuxDLVzVr1/eSko4OKtyfy+DLcNUo9ziVPw6PvbH5pWsIDU +qOsptYmC4f3S5qP6LNjVs+6j7GYKrnzcxuTbxQKf0QFNxS0U/HcolFPOlAU9 +vLf+rdenoHbBvggZWxY82t/hv82EgulGXKke3ixQ7fsvzPI4BbOE5m8aZLLA +bnz7LxtHCp7NXig4n8uC8CWh/UdPUTA3tScroYgFU1JlpJPuFBQkm7dX1LCg +2HHlQ89LFPzUJT5m2MMCnEh8FhpFwR/Z0dxuK9lwjuXJGxFDQRn1McdMHjak +Cez0iL5PwcZgr/kufjZwa45uepBIQZNUv5yVEmxo8dEue5JJQceyDqcUNTbY +cLS+qamhYI+k5HDvfjbcGIhXi6qjYPdCd3abJRvyapzvHntDwYQbtkdKD7Nh +TeCyPesdBb+E5B6xO86GshUb/up1U9DqDtV36QwbfgzOHeHto+BH76yVgefY +IFhbX9PXT8Et4v+sZy+wwfW6XZjvdwoWSZ3aUe7HBnGuMPnSCQqSKBZt0SFs +2DVkExI8RUERu6ca6WFsOFsnP2n1m4IuAsOYGcmGpqDKij9zFJR0Pnj05j02 ++K4cP6C5koq3HkfpxjxmQ8aPktIVq6ko84T0SjONDe3112kfeajoktn2ue4J +G1RvSo56ClCxzLvsa0UWG/pW7Q3IkaQiv/9I52IhoRdThOlHo+LFjNUs5RI2 +aL4ZNDWToaLDn+YiozI2hAb7io0rUtGE406z1Us2lJwy8q+gU9F03x9lk1ds ++G4sNBSynorvG/sE1WrYoLf6WS5dg4oiYeuDmuqI+w97k+c2U5HjziBvYAMb +YhvxcuMWYv6KbKn1jWz4eavH6JQ+FaNijL8famZD4po1X9J2U/GQBok520bc +f6TD8PxeKm54ur5O/yMb/jQlZxqaU1G9pFDtfDsbzEK2eg8epGKx+u7Mok9s +uHSaqy/Pijg/dtPL6k42pO9pg4DDVNxxwuj4yy42LPG48Eo7UHHdlU770B42 +0Mc0vX4dp2L691UVR3vZYNnM6qpypCK99t1zqT42BGQ164efomLy7nqtDoKz +Q++n2p2mYpr8U2vfz2zocTu5Rs2dimPexiShfjasNN14ZvEMFQ8URrgnELxp +/UJHsxcVOxKCnUS+sMGe9822BG8qColaLAcSfN170C/jIhX/lFwLGSY448tS +dcFlKr7L0Nms/5UN74zFuar9qXiE+WD5GsFTLzYbvwugYqzG0HgBwWQJi5Du +ICpO9/uv6CR423W3lqFgKp4vmNnBJNhh/KbAVAgVdVp/5f2fr1umHFwKo6Lf +ZcODXQQ/rXp5b00UFTfyDqoUE9yi1NNDjqGiRPmAXtD/z4v8TZG9T8U4v8th +SLDIPP+xDfFUfDXMIzNBfK/uSdXUbYlUNONYt3ibYId3RgyjZCr2iSvIkQkO +0jpBP5hKxaVnQgkRhB6ZSX7/OTyhYqJqhcscod977ge5bplUVByRjzpA8Ixn +4bTPcyoqfPURTyD0Fu1t1QrKpWJY+NKqdiI+eoZjFyPzqZjdIe0wT8Tv+PNV +lQ+LqOhb464kSPANsizraSkV89yjnES72dDKtLlRU0VFvdgi22kiP2Yszje2 +1FBR5VcB9U0HG8TKI9b21lHR8EyQRyiRT8fvNERNv6Vi06/5j4NE/t38M9Cx +3ELoZZ08493Khiz7JdG1H4h42IpUzraw4bf65iS5LiqeefbeoeUt4e/4fQMb +e6koasFrItXEBn1ON3m9firG/xD4e+wNG4I/PX526DsVeWzKSgtqifm+/CU3 +flHR0mxL4f0KNhh8V5mPmibyNf16uAvhv5OmRvpJf6gY3Kh3mk748znNr7Z4 +gYoz1otGl/PZsL12tJXJTcPSMI3rx56ywXH9KuHfPDT0/RFnmZ/OhtuxMlZs +Phpu5zzp8TuFDR9P2XwWI9FwdWjhfZNENjjxNgybSNPQwMewdWsUG0IsH3M8 +30rD3KfahzWJ+pUZVrQ7SJeGTueSS995EX6sb4o4akDDjo8wYUPUP27taSrf +Thqu0KayTFwI/UUMt3nso6H2qdUvIoj6ebVryEvdmYYawgvmeTpseMQ/V7ba +lYbh+R/2XdFiQ5UxH8eAGw33dFWWb9tE+LNEKyLqLA0nRkl/o5SJehd3M2v6 +Cg3vZVLEs0TY4H1YeajwLg1fHVP4EznJgtgoPdWwezSMOEjdf3+MBYVNFl5O +D2hoRZOoiGKwYEbnEpv8iIZXh4SHTnxmgafEW4rPMxoGWYWU+bxhgVufm6VO +DQ1JoWfEvBNYcNwut+HlBA3brmvDOl0WXKIJj32comG07S4uuc0siPp6gX/4 +Nw1Htgx6qqqxoOa4gY3QAg0b+p0DRKVYIOPcMuLMLYUjd/w32RPv6zePMV4B +aSl8EDRxtaBhGRyuKR08sV8KQ5nJpj+NlsEu9dHXVYVSWNHktGIjfQnqGmrT ++UqksPrj9pZuqSVQHWW6kcqlMCCQmuQrsgTz6uqzMtVS+GLju8gnnEtwv6pa +QP+dFPL3LZ993L8IH3oG8NyQFLr9d6tfPXIRdgnIp30lSSPdViJSbnIB1Pye +upR6S+PN3VtXFyTNg+Xac7NFZBl8sLiQxscxC+kXVjCe+ciguduqDbNif2Bv +TdYB6XYZDG0T1gLvaeizPP6vab0sfugv8fmz7hf4rVltxB8ui7o2nk7HjUbB ++2Gj8KdhWRS2yOqX3s+Aq+a+odp75fDisd7v4fcG4dyerbrvsuTQQVhuKf5X +P3zLnLm7OVsOnxwtqTPs7QezNbnjD3PkUHVxUm++rh+UGhWS3PPkUPi4JT0y +vh8+7xLm4C+Rw2t6qtYORv2wCyca9r+Ww1chcYo3kz+D2Na0A13dcth5u+h3 +i30fvFQQOD24Uh7LGqhWHCt6IMPk3CZXbnkc3iWTcGKiGyLdO2d/rZZHuw+z +hh97u+Fk0cPgpbXyGEdxS/lc0A1rdtHTxYTk8WAEX8VD52445LjjmzlNHnfH +3Emsfd8FYynnrSq05ZH3mhDpQmYniEv37Ig5JY/G696EVt7sgGtZW3k5XOVx +q0GTV7hPBzC14z65n5bHoO7fWm4uHVBoZu1i7C6PPkrft+za0wH7Ln8Km/eS +x/f9fFd813XAjc4P3cf85XH2wPW4obh2mL7z1kMtVh7NWcO/Q4s+QvNcRXzD +a3mcsxyDj7wf4HDxwub1dfIYO11p1sFqg2Ev3daoenn0sLITEGW2wcrxck67 +Rnm8HfJkz8eiNtj+pey/mRZ5dO9d70A71Ab5r0sMpHvkkfvlGS/OmFZ4EFow +eOmXPIZn89sUSb+HU9QsFTWKAnImPUlzcmsGr6RozTyqAjpwH9JcPtQMflK+ +elpSCnhNPfntU4NmiJYxMdeXVUCjhvavmkLNRDyYZ82UFXDwq9Z26fK3ILxB +rsx9swJqnj1dbsT3FqoMEoxzTBXwXIKD6rnqRiAfC3Xc6KeA1lP/elOsGyBx +95kzD/wV8Oi5UZ9YowZQ2HTQl/OaAnZfWEWP1WoArRWSkV2BClibuzW1QrgB +LNOeVVy9pYDjb1bNpbbVw73hJqG2uwr4Y+d+o17TehA9u7rG8xlxftwr40fm +dSAeeIOa36WASepGXZner4G6UfD+th4FTNXsbfFwfg2ynx8K1PYqICnVMxms +X4OqdiFnR78CnpkzzePReQ16o4Mjf74T4zVvXbYs1YDDASjWmVRAjT9eV0aD +ayBNdsG8ZrUi6vk9Gx/aWw0baz2vtekoYrPAC2MWz0vI65pdMNBVxNaxIg2O +35WgOX7NJ1tPEb35v10h91eCNjnKI2S7Ij7/R/93PrcS9E/lHd25SxGDWPs4 +1llWwp6101tLLRQxbCbA52FqBTgdPDf16JQi2vAnSLWYlUPCd+8TZ2IVcdf9 +551Z7SWwi/4lp/OeIh4kSSrp1ZTAhIfRgn6cIt6+dpOvL6cEcF4khjdBEevE +tTx3hpQAQ6C0PjNZEb+HVR6uwxLYZDCvPJSliF8H9+qdKSiGhjj/XzavFbEn +fFuZ4uMimDILvrLjlyJ28rfPfk0tAFGb+1saJxVRRbXF+crdAtA7kTFtNq2I +ms0/2YrXCyD4whuXw38U0TXDNuTJiQKgPeK29FxQRLmNw0/NZAtg72SwWhK3 +Evqox45uSsuH9OhbX+aklFBoKJO9Ij8PDnfdhjwLJWwWOe33/kcOLO6+t0Q5 +oIQtwgWDG1ty4FF5Svmtg0p4c7nCJL0wB34kVmw+ZqWENks9/c3Xc+Cs409l +/qNKeOalu/MquRy4PWUh6H5KCdtlrY7JOWVD6VqxQWV/JVxpcyI0+l8WiMKT +68lZSli979xbkQOZoH3BNlclWwn7Pjxba6WXCZbP1/UV5hDriwXCnipmQoyY +j0ZTnhLeedHGF7zwFASnjAemSpRweJC1RfnJU1ibMmJgWKeEikcTBseXM4DF +qTb/47MSfvrAHOavegLMNwWequuUkVXpkOd6Jg02bNztnsOvjE1iyXv22aeB +973PrpsElTEv5UOboVkacDqtPLmFpIz1NgOeh1XTgLbC2tJQQhnF9acStIZT +wVJvXueIojL6MLlSnjimQt0L4Aw1UEaT5MJMsksKPH7QEjvqoYzXtg30a6xP +BicX+5iDnsr43+Sr6AihZKBv+RVdeVYZf5Rf1OGYewT5HQKR4eeVsUWPW1yu +4RHU8h8K0fBVRv0xh70Oxx/Bjxu9/r43lPGvBu/ys4QkoHsxT/E8VMbflad3 +0qQSIW8PxzaVJmW0Ct+3Scg+Hqb6dTLy3ipjj0zdlf+M40HjrBdJ550yVlq4 +D/Wqx0PB/e8Txq3K+CikuWaGMx6KhupTnT4pY6I091vhrAdQ5h/C93hAGak6 +HONLi3HwOl94QHReGd0WXQ5y5d6HdgnFWytV6Rio8fOD1e5YiCIf+ee1no5d +2VcnXbfEwj6BSOdvanTkaAyUClWMheaV8zsr1OloEBFx7R9XLLyebOE4q01H +U71XvD6vYyCvwfvyZ6RjudHzI9wQAxFe9R4FNnTkLa+Vkdp1F/a+dbQ8fpOO +1lsT3XrPR8Gmv5di3wTTcSa8Xe34qSgQkY34pHabjuo9zyamD0fBwKUyy/lQ +Os67puzesj0KfOjrrO5G0fGsHZ/zDp4oSL1VYlX/kI5+Tpuh0DASFo14bOgF +dPwXQ4vLLgiH7Npc26mvdNQOo/CdfR8K/IX/rbkwQMfM0I1uicWhcDaNXjo/ +SEdYmGB+SQqFzTdSyVwM4nsjBGeSz4RChdH9NpFxOsYXv94jJRQKb5v8jfRm +6Vi0vGHtH9sQYLaaaQQLqODip7/Hbi3cApnPY2uI7hp/CYdrPTx/E9ia6eXB +O1RwfWRzQsuJm/A11N5t2lAFq3bb1fDtvwmJuh/evTFSQSEJpni52k2QSCiO +8DJVwRC+lJwa5g0Qtg0gN1qroOuP3f8C7G/Aqm4RmXMeKnh89r9Ab6sgGGvH +rU0JxP5R3FXl7oGQQTcVtU8k1gckaMXYBcKJq1Z/p5NUUGyDatIVs0DoUXEr +pKSoYN0BrbW+aoHwJiBG3fOpCvJUX+xUmAiAlI1MZdEiFdypH+Os5RUAh0Pv +iDu9V0HrG6UyL1ZfA/LAvdm5VmL87d7WsbGr0Kb9uCv8gwpuepxB2dF6FYwH +i2JLO1RQruPuZoN7V2GzzldB3j4VvBsok3tW4SrwMzfxFDBVkPfPcMOL3f7Q +rKc3YjyigqcXcmihav5wM9qo8fOoCh6ty7nvL+QPS/pHbq6aUEH7lNzIF5/9 +YCwmaIXtbxWME0uXMPDyg4zR8IGJPypY0h/174u1H5yAB9XX/6lg+6obBnH6 +ftAzlu2fPa9C/N85++LgGj+IwVK7HYsqWLEQl2P56wrsu/9ar2tJBW8OSL88 +8+kKrP35TvI/FjE/tL3+ccUVaNjRNc9mq+CsYUT+2OMr8D/Le7BC + "]]}, "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:eJwVl3k8VO8Xx0UpkWVmrDNjX4YWESVL56RIIS2WFFoQ+ZKUlKJIG1mjRCRL +kij7msgSSRRZU5FmbAklu5nf/f11X/d178x9znnO8/58PnInPA84c3Nxcf1Z +xsX1/6uP30EBLi5hnNvOHeRZOQxmps6tzAJhvHdz86ay90Ngcsj2F7evCGqs +bW+wrhqEcYXA5XIbSRhp03u3opMFp4LehD4dIKHrQlqJhAwL+OR+ujqnk/HZ +HRHl1hwmWPrr7lC0o6BWg26+fzMTasXPeUnJiWJ5rGxsSzkLVhrXCvn+EEXB +r7E7H74cgn+au7O67ovhpVtNnHWxo8DnkJPgeVgc50M+Cc9Mj0PDLtM7K0Uk +UOXzh0zp4D9wuI49vLJWAv+ppF9wdPgHpMCYBLgpidlt5i29obPgvWBvflFP +Ch9VJsXU7l+AxXy+A0McKfSW8nysXLMENlzNb6uqqNglJTXYvY8D9vxvt8Z7 +01BEzGIp8CsHgi0fcz3fQscXT7UPaZ7nwDG7F3WvxujYck0b1uiywS7l0bcV ++dJY1uC0bANjEdb5PXUp9pbBG7u2rMxLnAPL1WdnCiiy+GBhPlWAawbSzi9j +PvORRXO3FetnxKdgT1XmfplWWQxpIWmB9yT0WB6bblgrhx97i3ym1vwGv1Ur +jQTD5FDXxtPpmNEweD+sJ30elEOSRWavzD4mXDH3DdHeI48Xjnb/CLvXD2d3 +b9F9nymPDiT5xbjfvfBKUehU/3IFLKmjWXEt6wIJma7t0ScV0HjN25DyG23Q +OFsWV/dGAWctR+AT/0c4SctUXUdVRO7EJ6lObo1AORriuMFPEa0npruTretA +IvA6LbdDERPVjToyvN/AhmrPqy06Stgo9NKYzfcK4n94Hz8do4Q77z9vz2wt +ggmzm5e3/1bCdsHWmW8peXCo4zbkWChjo+gpvw8/s0EMnlxLylTGyr1n34nu +zwDW2zxPtTUqyC53yHE9nQqPHzTFDHuo4NWtfb0aa5MgZzfXVtUGFbQK27tR +xD4OWiWVbi1XY2Cgxq+PVrtiYM87R8tjNxhovSXBrftcJGRVv7Cd+MZA7VCq +wJkPISD7ZWQVDVXxNylM6+G5GzDSilsa4lVxbSRvRal7INRt75jjcFRxxjA8 +d+TxZeh3tBs/e1gYJ1NeHWw3HgbaNo/ZqM8iKFUpX+NoMghZB5NNfgaTsC1b ++8FKbxZsbW29xGtExnlHH0+lbiZssBDq2LmMgnsuBMqdyGJCaKP14aTXFKyz +dbWPUGYB68XDqneBotiqTvppGTUIV17xfsvQF8OCfkGbq1wjcLXBTzFtVgwl +n/xXa5o0BkOtS9HlheIYkZY3dl5rEnZsm5v60ieJ53pVpc/Pz0FJZ75FTqIU +LrjRTRkpi6DW81+o5TEqZorM3TDIYEPPij0B2VI0FPQfal/I58Bf9U2J8h00 +PP3sg0PTOw54H1IZyL9Lx9dHFacixtngcFX5wPF90hjCSjL9ZbQEO4UUUr+R +ZZBhKxkhPz4P4ltS93d0ymP77YK/TfY9MJJ8zqpMWwH5r4qQz2e0w+Sddx7r +YhTQnD34N6TgEzwIyeu/+FsBw7IEbQpkPkCFQbxxtqkino13UDtbWQ9iZ1ZW +eT5TRM3Y18aPzGsgVW7evGqlEur5PRsd2FMJTgfOTjw6qYQ2gvHSTWalUBfr +/9vmjRJ2hW0tUXpcAGlRt77OSiujyEAGZ1luDhSvFu9X8VfG5TbHQ6KmM4HN +vW7u5xdl/PyRNShY8QRqXgJ3iIEKmiTlZ1BckoHhxTrJ91AF/5af2kGXToA3 +uaQ+sTkVdFtwOcDz4j6Ee9V65NkwkL+0WlZ6511YMOKzYeQxcDqaHpuVFwas +ZjONm0KquPD539Fb87dgRaeo7FkPVTw281+gt1UQHAq5I+H0QRWtrxfLvlx5 +FdZNdPpvXS+MWRfV19wOGgZNU8ezjekieEnsAiMzaBCa9aLSue1JaPqjbpNF +Ggs+qTXy2FDIaDhiHdozywRaia9MexvBW6vtbPVMJkykNjQfD6Ogb23TwIm/ +TLByXCl5dr8oBhTyr+miD4JhIHM6UkgMPfbPF3tYDEPZ0gnX1/ViOHq5ipcv +6hdclLB5IHpbHIvP2QtuiZmAzO9vG8LyJbHe2LK2x2gO7g/f3hvjLoXVSW35 +OzgLQK7X9ZTeSMWwXhnzYX02SPCEKhSPUZFMtWiJCuZARqLffw5PaJigVuYy ++4UDVzoGvNSd6ahBmjfP0eHAd48RfiEZaXwQNHYlr24JPnb14dkBaXT771av +esQC7MSxun1v5PF1cKzSjaQvcNBx+3dzugLuir6TUP2hA663f+w86q+AM/uv +xQ7EtkLumyIDmS4F5H112os7uhlI6+VL3DcR83TmVKmRwDu4N9gg0nJXEX/u +2GfUbVoLDvuhUGdcETWmvC4P36yC3asntxRbKGHonwCfhyllsNFgTmUgUwm/ +9e/RO51XCHvGb65L5FVGH/WY4Y2puXB7wkLY/aQytspZHZV3yoLVyUMGhjXK +qHQkvn90KR0s9eZ0DiupoA+LJ/mJYwr8vN7t73tdBf9p8C89i0+EEv9ggcd9 +KkjT4RpdXIiFnDrvS1+QgaVGzw/zQjSk3Cqyqn3IQD+nTZBvGAHvGvyN9GYY +WLC0fvWUbTCQbAMo9daq6Ppz13SA/XVI3sBSEStQxR360c5aXgHAq3Hhii03 +CZ0Gdmz5LTgIIf/ljtQVkbCS43DFcxcLkn2/TBaeJ+MlXd3i9iombGelhRZs +oGDUPTenzSVMYEz+ZPaOU9Dj5BY/vlMs8JlXd5XLE8UZdXnhVeJDUDajUld1 +SgyrtOh2/DUj0FP3bV9TsxTGpQykr9u6BDiW8Cwkkoo/s6J43ZZzIGHVqq+p +u2h4UIPMmmnhwLbq4WYWLx2LQzWuHX3KAbceN0udKjqSQ06Le8ezQZC1kS+P +pYr8U4N1L3f5w/4i0boEMWFcGe5yNzZ5GCr2O7xkRYjgc5lqdnfyIHxTD26P +MibhS6eA8mcVLKB3GplwFkj4lPS1Q5ufBXd/bdhJryBj85KS/jmCxymRy/hq +vCkY5Om1tOU7wWcDAyPjraK4KbtkS94IC9IGLHlWzIniCqqcz/GlITgkYR1i ++lIMN9MF6MEivwDLg+INvcTxQvdkYZ/xBDjkZOexEiTRadNZcvvwLNw4+9ec +11IKdeTtFaufLcBtg5RjPBJUPPLh9seGZWwoWbb+n14nFa3u0HwXT3PgmmXy +gcVQGvpdMjzQ8Y0D10UNt3rspaP2yZUvww9xQNa5aciZVxqH7vhvtCd+f7+i +Ukj/vTQK9iydedy7AF92krgEi+Txqp6atYNRL6zayUgTF1HAA+ECZQ+dO2Hv +pc+hc14K+KFX4LLvmjbY9rXkvz9NCujevdaBfrCF8AusM2Yqitj/TWubTOk7 +sEx9VnblliKOvl0xm9JSC3rD/UNTPxSRXPXOZfNiFeifzDmyY6cSBrH3cq2x +LAemUHFtRpIS/ggtP1SDRUB/xGvpOa+E8hsGn5rJ5cEZx18qgkeU8fQrd+cV +8tkgPGHcN1GkjIP97M0qT54CfZm1paGkCkroT8RrDaZAteDBYA1fFdQfcdjj +cOwRFAzUpjh9VsEEGd53pMwH8Ga8ieuMNgNN9V7z+7yJBh/GGqu7kQw8Yyfg +vJ0vEsqM7reIjjIwrvDNbmmREJCMLwz3MlXFYIHk7CrWdXgbEK3u+VQV+Sov +tCuOBUDUlrPl50dFUPfzrR6XtYPw8OgzSavHJDSwEivQt2fBmJLNZgd7Mi69 +ZhdyNzGhROpw7qI4BZULO5dW5zKh5ytddlsnBVX+5t9vNWLBi8/OMf/iRDFR +csC799Mg0A7HftI6KIaCSx8ioo+OwLu9u/dtK5JC7Us+n7eOL0Kh4/KHnhep ++LlDYsSwiw16K5+9YGjQUDR0bVBDDQckfAWLrv+moaXZ5vz7ZRzwlHxH9XlG +xyCr4BKft2zYpPNNmL9HFe8Gyr44o3gFblzZW/liHRn5vhsckhtiwpOg2vnQ +ETKu3v6gSo7Qi23FETFc6RRccrfIliHOh3Twp1+Jp0SRxOO9+4jVIDza1+a/ +1YSKaUY8KR7ebPBdPrpfczkNbz2O1I1+zIFmls31qgoa6sUU2E5+5oBv7I3M +yct0vJdBlcgU5YDVh6PZa8LJqL1HMrG8mAmNueMu7kYU5IFLt9lvmOCzPOv5 +5VWiOBIvF3UwkgVNPtolTzKo6FjS5pS8jgOLfC78Mg40XHO53T6kiwNO/HWD +JjJ0NPAxbN4SyYGR6KBltn9VMVY8TdLAyw+c4gpc9/ILo+3499qQnGHgbv/y +wfu6CI78Jd0Syh0EluoKD1s9EnZE7b+c2MiCHdlBbm3jJPR0Cf43Q2FB881g +6ze5ZOxzy/pw7AUTFnil08+5UrCyX/bL6Q4mZKgdOrJxvSgaLh5UL2tlQUdM +KF/lmCiamXlbTLcPQfoTCyopVQzlJE4qFLWNQppAPLXbWRzLFEv5xmUnoEQi +WSU6ShKXYoZ7vctnYbEow7xylxS2O8vKCF9ZgOpZq+5//FQUcvHWZP1YglWB +S/bs91T8GvzisN0xDky83GT8PoCGMRoDo3kEH3i1J2kCO+i4TJvGNnHhQNUx +AxuReTrW9ToHiEmzYU5dfUa2Uhpfbngf8YR7EZTrFRPdc+SRdMySERHXCycK +Ht5cXK2AsVS35C95nZBvZu1i7K6APso/Nu/c3QbLR0u57eoV8Hbwk92fClog +StbEXF9OEY3qWr9pijSC1jKpiI5ARax+sSWljFQHatr53G29inh61jSHT+cN +aFMiPYK3KeHzacb0uRflgHOi0fzxSlgjoeW5I7gIbp5/63JoSgld022DnxzP +g58JZZuOWimjzWJXb+O1bIgW99FoyFHGOy9bBG7OPwVup+UnNpNVsNamz/OQ +WirktglFhJ1TwSY9Xgn5ukeQd//HmHGzCj4Kbqz6wx0HjcvndpSpM9AgPPzq +NE8M9F0ssZwLYeCca/KuzdsiYdP1FAoPk/Bz4cJ/kk6HQILux/dvjVRRRJIl +UbruBnSpuuVTk1WxZr/Wat91gdBRNt7N0yeCDuYrPTq2DkKarVIu7R4J7cWY +d4NcWUBejDmkuZ+Mr7PGVGxamfC3oKDmsQAFrx6z7nMh5mmTpW7F70aCF7xH +ggq0WdD4JiDze5gorpUbvbaCmE9z/pbO37vEcPKcub6/+ghgNNti5pkUGps0 +hZHeLcKEdAn5hDsVhSnmrWVVbAi56Ss+qkRDE647jVavOHDz8+NnB3/QkM+m +pDivmgN/dC5yKI/oeGWANHD8CxuM+wtiittUUb7t7iaDe1fguWVo/zVZMo7t +dOAymWBCH11mjcZ3Mm5dTX3a94wJseuzNHLjKPh3jne+ic0EXZ9f3LftRfH8 +SrqLAFF/F/+t6bX6VNTO2xsua8uGhqDysqlZKko5Hzhy4x4H9AxHLkTk0jCr +TcZhjji/i0Va4ZFn6Dg2TP4XqcKBy6mJLf2BZLTtWXV++Ssm8JrtuSSsS8GD +tJu6dcR9y6UGk3WLFFx9uEBdzY8FvJrDGx8kUNEkxS97uSQHzIK3ePcfoGGh ++q6MAoI/n07afBEn03FlSP59kwTie/qHb6wYU0X75BcRL7/4gc2Bzxq+DWRM +v2UeI/CcCbulmP+RAiloPXpq11eCj67X7EJ9f1CxQPrk9lI/DojOCR5dH0fD +14N8smNfOVBvIUkJOUXGB03bc9a+ZYJfAOfRIQUK8k1ZVewtYMKvW11GJ/Vp +GBlt/ONgIwee0/2qC+dp+Md6wehSLuFvhk8NDf0jY09gZcA0wV+1G1LDnkI0 +LPEu+VaWyYFjd+oiJ9/RsOH33Kd+wh+pz8jd2RpPRqNjjaPsfCZEiN+zathH +QQEG1wNmPROyQu6n2J2iYarCU2tfwl93jWT5Z82pourvMy8PrPKDsdXXdZ+u +EMa458oL7OJheHJf6mv5FRFkvA5YlVsyCCPKNToV2iR8THekMj6xwPpByuWK +YRI+2jlfuCjJgl9tRUfJWWR8+n5WM/gl4QcNs6ZMT1Cw07I+5Agx35uTnU8q +qYji99OT/ynUs+C0R4YAbUgUW2xvfkuvHoK97k2O/xLEcNf9BFOTwlGw1lay +Uzwmjra7eVyUBCeA2SR1YviOJNbmSl1XT5sFHdugDw+3S+GBxUqNJZcFONrx +UnR8BRVPjoY3y7UtQU6V892jb6kYf932cDHhh9K/LlbmXaLh+3SdTfoEDxtq +G8KPGNCx7ROM2RB+KvLbecHBv3Qc2tzvqbaODWrDLDdyqTQGBNISfUUXwWzV +i9GH2fKotjCuN1fTCxHu7TO/Vyqg3ccZw0/dncDSjv3sfkoBgzr/arm5tMGg +l25zZK0CeljZCYmxWsBP2ldPS1oRr6onvXtq0AiKGw/4cl9VxM7zKxgxWnUg +9+WhUHU34ZdSPJPA+g1ojl71ydJTQm/B75cpveUw5mE0rx+rhLev3hDoyS4C +vePpk2aTSqjZ+IujdC0PHpUml946oIw3lspM0vKzwfL5mp78bCJvFAqFPlXK +AO97X1w3CqtgTvLHFkOzVGBs/h1VfkYFf5Ze0OGafQQaZ7zIOu9VsNzCfaBb +PQ72CkU4f1/HQK76QOkQpRgQlQv/vO42A9W7no1NHoqEM6mM4rl+BsL8GOtr +Ygh8C7F3mzRUxYpddlUC+27A8StW/yYTVVF8vVriZbNA8PXbMLynRwT7784c +kdw+CBnWA34BESRMHImgbDvNAuXB/FM0UzL+leLZ87KdCcLcP5r+8BI8DNII +3p/NhGMRDfz1tRQ0GSGTeTaw4JBOeOHnW6K4n3Hl3irCz7MGRnpMDcUweU7W +6Iv4CPhpd7e0pUrhstHtVwsLFyFsUWTfkZNUfJHSlRlfwAbNt/2mZrI0dJhq +LDAq4YA+t5uCXi8N434K/Tv6lgP5DRZeTg/oaEWXLItksqFF+3FH2EdV3Pg4 +nbq9+Qq8hud/3KXIuN1bi+v6FBPYbmZiQd1kLHX6eGGa4GGtq25AcDQFx6KP +0heI/N3wa26Nv40opjuvpVoQftFnuE9TaTMVpw+GcMubsuFMjcK41V8quggN +YkYEwWPP/Emf5zRU/OYjEd/DgQpjAa4+Nzru7igv3bqRA+Hhr/reXyZjXKPx +TrvXTFCMuxB0QouCFSBS6FrGhMVC69jl0xRs2Ph16eJZFqQK7fCIuk/F+pte +cx2CHJhqSMowNKehelH+unOtHLgdI2vFEaDjNu4THn+TOXAjyqj+y7AqHqnJ +vu8v4g/eScv03leT8QV3ctcLgoc+VufKRi5RcK1Mec/vAWK/qmurenqpuFli +2nrmPAealLu6KNE0lCzt0wsizluPro6StyOxv55NpivfMSH+w7qMTDoFc5ev +vvcgjwkx9XipfjMNPyzLkl5bz4ETpkb6iVM0vFmvd4pRRKxvc+yk7gQZ3cbN +L/oSPGytvUb/xEdDl4yWLzVPOCBeGr66u4aGhqeDPEKIegx/YIJCDBnNWwOC +3hcS/HOqdpAyJfLp21MKvbVMsGxkd1Q40pBR/f65NNHf4/Cg8tq0KrauuG4Q +q+8HOVvtzD2LyfhSZ9lhW2L+tl5zaxq4ScNzeX+2s4h6Olxule0lUXDfJWrE +E4J3P4xFBoLXEuuv7xFeV8WB6o+TPN9/EvPg5v/nNzEP1yly7KfFNMxxj3QS +6+SAa8mV1zO3yFgcvqWquZQJQ2ya12ugoEzAmL1ZJRPSdrdAwCEabj9udOxV +Bwd0VzxlqDSTMWCD7edQon6H90ZMoyQa9kgoylMIvXHY1HqPV5WCo/SA7+uL +mGCWoP/9/gIZdZJ3b48j9ivTflFs9UcaHrYVLZ9p4gBNgOeSxWMyJiR27bUm ++r/cdMPphdM03J8f7h7fy4G999/odSyq4o0+mVenP1+GvJr/Utu4hZGv7k9h +cfkw+MyUOn2/LIJxxRWOQa8GwV0pRXpck4SWuuQAr88s6FujeT2PRcJGSff2 +WzQWXLpk7qT/jIx/bFYkq+Yw4fXRv1SdoxRkhBrNOn9kgr/dr1EZRVHMjktQ +83rDgjLbzeF7mKIIZnVxEqVDkNKyetVgnBh+iF48sDF9FHLeuS3uthfHR6m5 +l5uWT8Bius1VSrAkSuTFvr/1YBasM8+sCdkmhUTcCmPaLcCGut78UW4qcvv6 +8619vwTX++LWRdZQsXO+M6vFksjT3v1+6RdoOFV0NXiQ6GdGaMGuIF06Op1N +Kn7vxYGLdNLIpwk6Rtnu5JHfxIaauuo0gSJprPy0ralTehG+Z/y5uylLHp8c +Kaox7O6FdJOzG115FXBwp2z88bFOuJq5hZ/LVQG3GDR4hfm0waHC+U1raxQw +ZrLcrI3dAl6JUZo5NEV04D2ouXSwERJ2nT79wF8Rj5wd9okxqgPaBuH7W7sU +MUWzu8nD+Q3kdMzMG+gqYfNIgQbX33LYyfia3X5PCQ+QpZT1qopAzOb+5vpx +JVRVa3K+fDcPFnbdW6TuV8YmUl7/hqZs0D5v+0I1Sxl7Pj5bbaWXAes37HLP +FlTBBvGk3XvtU8HJxT76gKcK/jf+OipcJAkmenXSc96pYJdszeX/jOMgknJ4 +2mstAzuyroy7bo6Bjf8uxry9ycA/Ya3rjp2MBMH8/1ad72NgRsgGt4TCEOBo +ppXe3K6KayMa45uO34B0hqmYfQKRrwPitaLtAmHP1w9nTneKYNO2VWkVOwdB +zar6RF4oCR3a783LerEgx27HWRETMvJHuqae7GRCUsbFT9TlFGxpGV36nMWE +6SyhTflvKMjcwL69XY0FSX8pei3XRfGPx0i8UtwgaH68aHcJxLAzXCdcUWAE +4m++Fap+LIUSaZv6pp4vgt3ott82jlQ8kzWfd+4FG3hZoiw/Og0vpK9kqxD8 +kYjb27ehm4ZiFvwm0g0ciInUUwu9R8fwA7R990fYQOm7NzPbrIo73u1pHhm5 +AiaFugvHxYnzNem38HyaCWEiA1JZHWS871bQKEic38M3A5+ej6RgcvOlzyrE +c8GMgOgLlqKYZFDcGqI4CDu71nyS20TF5Y9bWAI72bBzwCb45gQVRe2eaqSF +cuAD74MXbhk0VBpSiNxP+LlHgrMlK13pGJb7ce9lLWK9y82Gqy6ScfTBy48x +BE/yQPD2HQ1CHyoKzfYQvLnblvh64g/hz0i1gqUeLDjL9uQPj6airPqIYwYf +4Y+G2gzP7aHh+qdra/Q/ccBx7QrSXz46+v6MtcxN40Cjnt6Q8ZAqnprPpoes +8wce4wcwVUlGh/mmJgFiPwTOlfV3XKDglsKr10L7mfCzf/Ywfw8VP3lnLg88 +y4GnFa/urYqk4Qb+ftVCgqdOOfXrTx0jo0TgPsHARiaoetdktUlR8HleV0VT +LuG3B70ps5toyHWnnz+wjgMGP1TnIicJPqZdC3Mh9Fvs6/ppxzEy2lNbZk2I +/qb/LCpetpKGsk/IrzVTCT21OFffVEUj/G4e7W0boU82H9Mkosj4rSpOpZLg +pR6/reMOEwq6X9/f71JD+NcRTa/fx2iY9mNF2ZFuwj8Oh/WNTaliUW/k9Fdr +P4C+P/sfFJBxqO34eBehDxRJi+DOIBpO9vova/9/PYLSlReEKKhxFt8uI/Sh +6KSRfxmDhqZ7p1RMXnNg/4Xbq1b9IOPmxj7DAUIfjj1fUf6wgIa+Ve7KwkT+ ++bNesP7XdTI2hPZbMAk9v/Ak//ygPgU9Hw558RB6f/EUT0+OFQ1FYza+qmwn +9uu5wfp978l48IKXfQNRv+4JtZStCTQ041qzcJvg2Vi3a7y6MgVd3iYzthJ6 ++MWwbaBylli/T7DCDkIfbkz1tS010dDPOumPdzNRb+DdazsTyRgV7SymTOSJ +LrcTq9a503DE25gsQuhDNBbbbV9QxbL52GzL35fBfr3skZEXxPtM+6EJIr++ +N5bgqfQn9Ib1YOkq0Y9rR0wb3vFRUDTn4MdOol+etYUih3uJfKR8mDRI1C/W +3awV9IKGoWGLK1qJfrNm3Tan1JHxohy62xLrm4j4S5W7T8NYv0uhSPzfXATX +mMhfMrI/zJvmE/UGZDbqh52kYdKuWq02Qs8dRm8ITQTTUKf5d87/9VpL7Qin +cJCMq+Xrq3mI9587CCuyP5Ix9lPRisPEfZDWccaBFBouPhOJDyfqq/j3pMeD +TcZuxynWLPH9jWvn2xq9aNgWf9NJlOjn6l/vpf5jE/kppLX2cdll+B+RnrBC + + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1WV4l2UUB+BRSod0M7q7U+mO0aHAAKVHd1u02IqddIlYKN2dtogiiCiI +2O19Lj/cO79znnHtz/Oed0tMTkkanSohIeGGL1Hn+lKUY/JielOD1KRhnrNi +HJeX0IearDBrwU/ya8wmLXebJXJCXkpfarHSrCU/y5uZQzruMSvOSfkB+vG6 +Pik+H9v1tVklt+KXOGe/PIRczNW/q/YhAx8yif3mx9SRFOQ8s7jJ/F61BBc4 +pT+ljmGZvFsdyGWy8wlTucbtzreoXblEat5nAlfZ4fywOowr5OMcM7hOHeer +1dZc5Ff9GXUcW+QD6p3k5jOmM8/8PbUvGfmIyRwwP66OohA36+9TS3JafpA9 +cjI5uEP/htqNNOzU12WN3Ibf4jyeIdv0/cjEQX167pdLcUZ+iP68qe9OWnbp +67FWbsvvcR7PmAzMNyvNWflhBlCfdWbt+EN+K54NGVlgVibuV36EgTQgEwvN +y/KB/CjJNCQzWcjKIuflYh/kxxhEI7LFrpuXj7uUH2cwjVlv1p4/5bfjPske +u29WgY/lJxgSn1Xfg3Ts1jdhg9yBv+R34s7YHntDZg7pc8S7IVeM3ZKfZK88 +iFvi+cfPVnvGrrJHf0QdTn5u1W9UO/K3fFYdz1b5oHoXeZiv3xHPnSzx2ZnC +YfMTavwi+JbCfMFsfojPEO+iWomv+FR/Wh3LdyzX71MH8w0543uYxvfx8+P/ +rvbi69jLeE5MZK+zo+oICvA5M7nNfJPaiX/ifeaQPJS8LNDvVPuTlSP6nCyT +K8e7Ij/FULbqe5Oeffqm8TtK7sy/8S7F/pAr3hGzKpyTn2YYzcgdO25eNT6j +/AzDaU4e8pKP/BSgIIUoTJHYb/+uGuflZxlBC4rGLptXjzuXn2MkLSkWu2xe +gy/l5xlFKxJjh81rckF+gdG0pnjssHmteF7yi6TQhhKxr+a1uSi/xBjaUjJ2 +z7wOl+SXGUs7SrHcvG48Q/kVxtGe0nHX5vW4LL/KeDpQJu7RvH7shryCCXSk +bNyjeQOuyCuZSCfKxT2ZN4ydlFcxic6Uj3sybxT7J69mMl2oEPdk3pir8hqm +kETFuCfzJlyT1zKVrlSKe4p3KXZWXsc0ulE57il2kuvyeqbTnSpxT+ZN412R +NzCDHlSNezJvxg15IzPpSbW4J/Pm/ChvYha92GzWhfiDvE1ZxC55ANk4qj+p +plAkdoM5qf7/G17d2X9hl/X1 + "], 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]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 13}, {0., 1.991919222968944}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3k8lG8XxkUpkW3GOjP2ZUiJKFk6J0UKabGk0ILIj6SkFEVKkTVKRLIk +CdnXRJZIosiaijRjS5YW+8z7vH/N5/u5t+e+zrnOfUb2pOdBZ04ODo6ZFRwc +///18TvEx8EhiPM7OIM8q0ehoO6/tA5OQeRpmCkurRyFibU3dJ+uEsT450qL +rNJRcIovct3HK4i2k9/qQ/NG4UCJSEOiqCCujnC5G5cyCmpT3f7bNghi9iX1 +dbeDRmHQ0W7y3BFBnE59eajTeBTMTJ3bGUWCeC94y+aKdyNgctj2J6evEGqs +72yyrhkGn9lyp29XhDC+tMox6OUwPLkv+aXyqhDSXwWsyS8bBs7Oz++9bwjh +2G/hWwL5w1B1wOEFM1IIn0vXsnpThkHT1PFcc4YQXha9SM8KGgbqdo+56E9C +KFktV+doMgx7v7w/e6ZbCFu2r0mv2jUMvn4bR/f2CeHg3dmjEjuGoatispdr +QAgdzFd7dG0bhuit5yovjAuh7qdbfS7rh4Fb4+JVW05hdBraufUX/zBMygeu +lN0kjFE2/XerupngrpgqNakpjJa6pACvT0wYU6rTqdIWxsc0Rwr9IxOYKqs8 +bPWEsSv6wJWkZiZ8VQ/pjDYWxhdOAZXPqpjQqhedwWkvjKbfGzZbpDMh+1CK +yY8QYezI0X6w2psJqla1JwvChNGh896CjBcTMq2H/AIihTFpLJK8/QwT0m0V +86n3hNFelHE3yJUJD489k7B6LIwGVqJF+vZMCP0vf6yhRBir2Q5XPXcz4XTQ +67CnQ8LoupheJi7NhIF1mjcKmMLYLOHeeYvKBOsHqVeqRoXx0a6F4iUJJuzM +CXLrmBRGT5eQv7NkJtC6jUzYi8L4VPhLlzYvEz6qNnPZkEloOGYd1jfHAJNi +3cUTYiRMnPZbfP6PAa/g+Yy7JAl3eGtx3PjDgOeWYYPXZUg4scuBw2SKATev +7qvOVSMhzzeDw7IjDNjW3n6Z24iEC44+noq9DMiz23lOyISEvFGuaae6GaA0 +XHiaakrC35Jce190MoC0FHtY8wAJX2VPKNu0M2BC0WaLgz0Jl1+xijlbGOCU +17jh9HESigfu5w9sZkCfro6ityOx3rPFdPVbBjRaSJBDT5PwQcuOvPVvGJDi ++3m6+AIJL+vqlnbWMEB8pdlozSUSjj948SG2mgERES8H3l0hYXyz8S67Vwy4 +kpbUNhhIQtu+NRdWvmTAzAb+xp83SNgUNmjBqGCAa9nVV7O3SFgasbWmtZwB +Vu+P5ayLIKH2XomkylIGtNh8SBePJuHXmnjl6hIGGH7HRPlYEpq3BwS9K2aA ++qzsnW0JJDQ63jzOKmRARuDd67uSSBgd4yyqRDCVj+uyxWNC76SefdYFDOCR +/eHqnEHCZ3eElNrzGHD5srmT/jMSztisSlEh+GdHyTFSNgmfvpvTDHnBAPsN +MkfHcon9GPYjU7kMaA0OsX6dT8IBt+z3xwmGgZkDD4pIONJxYrInh4jHNjtz +z1ISvtBZccSW4Ls/N+6iVZGwdVlR/3w2A7iMH8CfahI6LLS08BHsnbxC710t +CXM5U3pynzOAOee2JbWBhJdk0d2WYJuDnzR8m0iYccs8lo/gpucGG/a/I+Gh +i172TVkM0F31lK7cSsKAjbafwgh+7iCowPpAwriPJauOEEwt85Xu7CDua7WD +pU5wuNCQZHYXCe+7FTXzE8xyMxMN6iVhudOHi/+eMcCzvljoSD8Rb6UjwsME +D9Ck12l8I+G2tZSnAwQfuHh7zZrvJNzSPGA4RHDth2mubz+I9W7+M78I1lI9 +yi4eJuFaucZaLmL/J0H1C2FjBO94UCNLsOiXDf8cJ0hoT2mbMyH49pa4ad0p +ErpNml/yJXg+kmNC6DcJWe8XTAsJdhs9PTLyl4R9gdUB/wj+bNgxVD1H6O0T +Ir+T0MMsUf/b/UUS6qTs2RFPcNXfJ30eLBL2Ov5hzhG80UKga9cKMu69GCh7 +ktA7OfPSR8pKMra1jS9/IliQ83vLDDcZrwVphBwg4nX9qGnTWx4yiuQd+tBN +8O+iorrHfMT4cesBFyLeTvxS1RcFyKhxDt+sIPKjy+VWxT5hMu6/TIl8QnCZ +5JH8JTEyKhV3L6/NZ4CKd112hyQZnxf0VLUQnPBeLTOLRsb8lWvvPSDy0S+A +/eiwPBl5/lhV7Ssi/NnrmqCuREaXNyn0bUR+O2xuv8etQsZxWsC3DUT+72Cm +hxVtJGP0PTenLWUMKAD+23c0yFhVVWy2l/CPQvzFoJNaBINQsSvhL26zvZcF +dcl4iBqs20D47+KTwgvD+mT0fDjixUX4c4RF9XoFZJQOmLA3I/zbnD/p4m5E +Ri64fJv1mgF6vLaOO03I6H7jwKBLHQOynWodJE3J6PHmtHx/PQMixe5ZNe0n +Ix+d4wGjkQGW/ro7FezIqNWkW+jfStS3Y78pOsfISA8zmnP+wAC6YfYf05Nk +7LZsDD1K1KNFbqmM865krB6U+XymiwGpUSt46rzJGOTptbz1GwP4zlcMdl0k +49bia9fDBhngY3W+YuwyGddLV/b9GmLAHknGf8KBZLQeP737C1Efp9KaWk+E +k9G3vmXo5G8GHAkOfHohiowprZc/KRP1tt5VNyAkhowTMcdoi0Q9jtuQrZEf +T8bf89wLLSwGbC+NjOXIIOOyu0WONFG/w5qtjyS/ImODrat9pBIT/mULbC58 +TUbGRtbtHapMOB7ZxNtYT0aTMRKJayMTNlvqVv1qJuLPfTSoSJsJfV9oMtu7 +yaj8u/B+uxET6NM/GP2ThH6ntvrxnGbC3Y6kV1MzhB7C9fzlHkxYKraOW/mP +jE2bvixfOseEtstNJmpLZFx7pEhd1Y8JPiuzn19ZI4JjCbLRh6KYUC923ktS +VgQr42Ti2iqZ4G/3c1xaQQRz4hNVvV4zYUuK8ylFZRH8dmb6P/lG4n1UPXx0 +0wYRNFw6pF7RTtzPwMDIeJsIbs4p21owxgQrx9US5w6IYEAx77oe2jDwZwbE +XLQUwWSD0vZQhWFo+jm/zt9GBDOc11MsiPdf1+cn5217EbywmubCR/QHUiEf +fyadFkFhLu89R62GgZn7sOZtoAi2qwv/sIwehuTfZL22GyI44zGWoBg/DId1 +Ioo/3RLBA/Sr99YQ/Urz64Csb+EiuF52/Poqop/J/eQc+zdeBJMkhrz7PxL9 +0IK6q2yBCM6qywmuERuB1cb1Ar7fRZD/S9yuhy9GoMJ2S8RehgiCWUO8ePkI +nPHI5KOOiGCbbfDXjNoR6IoN46meEEEzM2+Lf50jkD5kybVqXgRXUWR9TiyP +gGEg41+UgCh6HFgo9bAYhasvub9m6oti0SC/zTWOMdD8cMnuMohid4ROhALf +GDCHxvpMDUUxZV7G6LPYGJjztnX/2i2K0+fN9f3Vx4B6JO6j1iFR5F9+Hxlz +bAwqZpUbak6LYo0WzY63bgz+au7J7rkvipdvtbDV4sYhtW3tmuF4UXwfs3Rw +U8Y47HNvcfybKIq77yeamhSPQ8YTC4pwmijKip+SL+kYh8Pi1qGmL0RxC42P +FiL0EyqWT7q+ahTF8Ss13DzRP+Fak59C+pwoSjz5r940eQJ4HPISPY+I4ULo +R8HZf5OQ99ZtaY+9GD5Ky7/SsnIKrLUV7RSOi6HtHi4XRf4pSOdLoPQ6i2GF +QjnPpMwUYGVQgqGXGF7snS4eMJ6CS+I2D0Rui2HpeXv+rbFTMNK+HFNZLIaR +6QUTF7SmoWm36Z3VQuKo/Ol9llTIDBxpYI2urhfHv8oZFx0d/oJwYGwiBEtg +Tod5W3/YHCxl2Fwjh0igeEHcu1sP5oDRInly9I4E1udL3lBPn4My8RTlmGgJ +XI4d7feunAOHvJwCZqIEOm0+R+ocnYOsb2+awgslsNHYsr7PaB52bp//83lA +As/3q0hdWJgH70V780t6kvioOjm2/sAiWGedXRe6XRKJch3OsFsEHdug9w93 +SOLBpWqNZZdFWCrJNK/eLYmdzjLSglcX4ea53+bclpKoI2evUPtsEe6P3t4X +6y6JtckdhTvZi1DWXWiRlySJi240U3rqEiQEvxGofSyJ4umbB/48XwI/7d62 +jjRJXDG+41px8RJgDMti9pkkGpu0hAu/XYK3+/bs314iidqXfT5tm1yCvoav ++1taJTE+dShDbdsyLBXyHBxhS6K3pOdjpbpl2NjQXzjOSUFOX3+e9e+W4VjX +C5HJVRQ8NR7RKtuxDLVzVr1/eSko4OKtyfy+DLcNUo9ziVPw6PvbH5pWsIDU +qOsptYmC4f3S5qP6LNjVs+6j7GYKrnzcxuTbxQKf0QFNxS0U/HcolFPOlAU9 +vLf+rdenoHbBvggZWxY82t/hv82EgulGXKke3ixQ7fsvzPI4BbOE5m8aZLLA +bnz7LxtHCp7NXig4n8uC8CWh/UdPUTA3tScroYgFU1JlpJPuFBQkm7dX1LCg +2HHlQ89LFPzUJT5m2MMCnEh8FhpFwR/Z0dxuK9lwjuXJGxFDQRn1McdMHjak +Cez0iL5PwcZgr/kufjZwa45uepBIQZNUv5yVEmxo8dEue5JJQceyDqcUNTbY +cLS+qamhYI+k5HDvfjbcGIhXi6qjYPdCd3abJRvyapzvHntDwYQbtkdKD7Nh +TeCyPesdBb+E5B6xO86GshUb/up1U9DqDtV36QwbfgzOHeHto+BH76yVgefY +IFhbX9PXT8Et4v+sZy+wwfW6XZjvdwoWSZ3aUe7HBnGuMPnSCQqSKBZt0SFs +2DVkExI8RUERu6ca6WFsOFsnP2n1m4IuAsOYGcmGpqDKij9zFJR0Pnj05j02 ++K4cP6C5koq3HkfpxjxmQ8aPktIVq6ko84T0SjONDe3112kfeajoktn2ue4J +G1RvSo56ClCxzLvsa0UWG/pW7Q3IkaQiv/9I52IhoRdThOlHo+LFjNUs5RI2 +aL4ZNDWToaLDn+YiozI2hAb7io0rUtGE406z1Us2lJwy8q+gU9F03x9lk1ds ++G4sNBSynorvG/sE1WrYoLf6WS5dg4oiYeuDmuqI+w97k+c2U5HjziBvYAMb +YhvxcuMWYv6KbKn1jWz4eavH6JQ+FaNijL8famZD4po1X9J2U/GQBok520bc +f6TD8PxeKm54ur5O/yMb/jQlZxqaU1G9pFDtfDsbzEK2eg8epGKx+u7Mok9s +uHSaqy/Pijg/dtPL6k42pO9pg4DDVNxxwuj4yy42LPG48Eo7UHHdlU770B42 +0Mc0vX4dp2L691UVR3vZYNnM6qpypCK99t1zqT42BGQ164efomLy7nqtDoKz +Q++n2p2mYpr8U2vfz2zocTu5Rs2dimPexiShfjasNN14ZvEMFQ8URrgnELxp +/UJHsxcVOxKCnUS+sMGe9822BG8qColaLAcSfN170C/jIhX/lFwLGSY448tS +dcFlKr7L0Nms/5UN74zFuar9qXiE+WD5GsFTLzYbvwugYqzG0HgBwWQJi5Du +ICpO9/uv6CR423W3lqFgKp4vmNnBJNhh/KbAVAgVdVp/5f2fr1umHFwKo6Lf +ZcODXQQ/rXp5b00UFTfyDqoUE9yi1NNDjqGiRPmAXtD/z4v8TZG9T8U4v8th +SLDIPP+xDfFUfDXMIzNBfK/uSdXUbYlUNONYt3ibYId3RgyjZCr2iSvIkQkO +0jpBP5hKxaVnQgkRhB6ZSX7/OTyhYqJqhcscod977ge5bplUVByRjzpA8Ixn +4bTPcyoqfPURTyD0Fu1t1QrKpWJY+NKqdiI+eoZjFyPzqZjdIe0wT8Tv+PNV +lQ+LqOhb464kSPANsizraSkV89yjnES72dDKtLlRU0VFvdgi22kiP2Yszje2 +1FBR5VcB9U0HG8TKI9b21lHR8EyQRyiRT8fvNERNv6Vi06/5j4NE/t38M9Cx +3ELoZZ08493Khiz7JdG1H4h42IpUzraw4bf65iS5LiqeefbeoeUt4e/4fQMb +e6koasFrItXEBn1ON3m9firG/xD4e+wNG4I/PX526DsVeWzKSgtqifm+/CU3 +flHR0mxL4f0KNhh8V5mPmibyNf16uAvhv5OmRvpJf6gY3Kh3mk748znNr7Z4 +gYoz1otGl/PZsL12tJXJTcPSMI3rx56ywXH9KuHfPDT0/RFnmZ/OhtuxMlZs +Phpu5zzp8TuFDR9P2XwWI9FwdWjhfZNENjjxNgybSNPQwMewdWsUG0IsH3M8 +30rD3KfahzWJ+pUZVrQ7SJeGTueSS995EX6sb4o4akDDjo8wYUPUP27taSrf +Thqu0KayTFwI/UUMt3nso6H2qdUvIoj6ebVryEvdmYYawgvmeTpseMQ/V7ba +lYbh+R/2XdFiQ5UxH8eAGw33dFWWb9tE+LNEKyLqLA0nRkl/o5SJehd3M2v6 +Cg3vZVLEs0TY4H1YeajwLg1fHVP4EznJgtgoPdWwezSMOEjdf3+MBYVNFl5O +D2hoRZOoiGKwYEbnEpv8iIZXh4SHTnxmgafEW4rPMxoGWYWU+bxhgVufm6VO +DQ1JoWfEvBNYcNwut+HlBA3brmvDOl0WXKIJj32comG07S4uuc0siPp6gX/4 +Nw1Htgx6qqqxoOa4gY3QAg0b+p0DRKVYIOPcMuLMLYUjd/w32RPv6zePMV4B +aSl8EDRxtaBhGRyuKR08sV8KQ5nJpj+NlsEu9dHXVYVSWNHktGIjfQnqGmrT ++UqksPrj9pZuqSVQHWW6kcqlMCCQmuQrsgTz6uqzMtVS+GLju8gnnEtwv6pa +QP+dFPL3LZ993L8IH3oG8NyQFLr9d6tfPXIRdgnIp30lSSPdViJSbnIB1Pye +upR6S+PN3VtXFyTNg+Xac7NFZBl8sLiQxscxC+kXVjCe+ciguduqDbNif2Bv +TdYB6XYZDG0T1gLvaeizPP6vab0sfugv8fmz7hf4rVltxB8ui7o2nk7HjUbB ++2Gj8KdhWRS2yOqX3s+Aq+a+odp75fDisd7v4fcG4dyerbrvsuTQQVhuKf5X +P3zLnLm7OVsOnxwtqTPs7QezNbnjD3PkUHVxUm++rh+UGhWS3PPkUPi4JT0y +vh8+7xLm4C+Rw2t6qtYORv2wCyca9r+Ww1chcYo3kz+D2Na0A13dcth5u+h3 +i30fvFQQOD24Uh7LGqhWHCt6IMPk3CZXbnkc3iWTcGKiGyLdO2d/rZZHuw+z +hh97u+Fk0cPgpbXyGEdxS/lc0A1rdtHTxYTk8WAEX8VD52445LjjmzlNHnfH +3Emsfd8FYynnrSq05ZH3mhDpQmYniEv37Ig5JY/G696EVt7sgGtZW3k5XOVx +q0GTV7hPBzC14z65n5bHoO7fWm4uHVBoZu1i7C6PPkrft+za0wH7Ln8Km/eS +x/f9fFd813XAjc4P3cf85XH2wPW4obh2mL7z1kMtVh7NWcO/Q4s+QvNcRXzD +a3mcsxyDj7wf4HDxwub1dfIYO11p1sFqg2Ev3daoenn0sLITEGW2wcrxck67 +Rnm8HfJkz8eiNtj+pey/mRZ5dO9d70A71Ab5r0sMpHvkkfvlGS/OmFZ4EFow +eOmXPIZn89sUSb+HU9QsFTWKAnImPUlzcmsGr6RozTyqAjpwH9JcPtQMflK+ +elpSCnhNPfntU4NmiJYxMdeXVUCjhvavmkLNRDyYZ82UFXDwq9Z26fK3ILxB +rsx9swJqnj1dbsT3FqoMEoxzTBXwXIKD6rnqRiAfC3Xc6KeA1lP/elOsGyBx +95kzD/wV8Oi5UZ9YowZQ2HTQl/OaAnZfWEWP1WoArRWSkV2BClibuzW1QrgB +LNOeVVy9pYDjb1bNpbbVw73hJqG2uwr4Y+d+o17TehA9u7rG8xlxftwr40fm +dSAeeIOa36WASepGXZner4G6UfD+th4FTNXsbfFwfg2ynx8K1PYqICnVMxms +X4OqdiFnR78CnpkzzePReQ16o4Mjf74T4zVvXbYs1YDDASjWmVRAjT9eV0aD +ayBNdsG8ZrUi6vk9Gx/aWw0baz2vtekoYrPAC2MWz0vI65pdMNBVxNaxIg2O +35WgOX7NJ1tPEb35v10h91eCNjnKI2S7Ij7/R/93PrcS9E/lHd25SxGDWPs4 +1llWwp6101tLLRQxbCbA52FqBTgdPDf16JQi2vAnSLWYlUPCd+8TZ2IVcdf9 +551Z7SWwi/4lp/OeIh4kSSrp1ZTAhIfRgn6cIt6+dpOvL6cEcF4khjdBEevE +tTx3hpQAQ6C0PjNZEb+HVR6uwxLYZDCvPJSliF8H9+qdKSiGhjj/XzavFbEn +fFuZ4uMimDILvrLjlyJ28rfPfk0tAFGb+1saJxVRRbXF+crdAtA7kTFtNq2I +ms0/2YrXCyD4whuXw38U0TXDNuTJiQKgPeK29FxQRLmNw0/NZAtg72SwWhK3 +Evqox45uSsuH9OhbX+aklFBoKJO9Ij8PDnfdhjwLJWwWOe33/kcOLO6+t0Q5 +oIQtwgWDG1ty4FF5Svmtg0p4c7nCJL0wB34kVmw+ZqWENks9/c3Xc+Cs409l +/qNKeOalu/MquRy4PWUh6H5KCdtlrY7JOWVD6VqxQWV/JVxpcyI0+l8WiMKT +68lZSli979xbkQOZoH3BNlclWwn7Pjxba6WXCZbP1/UV5hDriwXCnipmQoyY +j0ZTnhLeedHGF7zwFASnjAemSpRweJC1RfnJU1ibMmJgWKeEikcTBseXM4DF +qTb/47MSfvrAHOavegLMNwWequuUkVXpkOd6Jg02bNztnsOvjE1iyXv22aeB +973PrpsElTEv5UOboVkacDqtPLmFpIz1NgOeh1XTgLbC2tJQQhnF9acStIZT +wVJvXueIojL6MLlSnjimQt0L4Aw1UEaT5MJMsksKPH7QEjvqoYzXtg30a6xP +BicX+5iDnsr43+Sr6AihZKBv+RVdeVYZf5Rf1OGYewT5HQKR4eeVsUWPW1yu +4RHU8h8K0fBVRv0xh70Oxx/Bjxu9/r43lPGvBu/ys4QkoHsxT/E8VMbflad3 +0qQSIW8PxzaVJmW0Ct+3Scg+Hqb6dTLy3ipjj0zdlf+M40HjrBdJ550yVlq4 +D/Wqx0PB/e8Txq3K+CikuWaGMx6KhupTnT4pY6I091vhrAdQ5h/C93hAGak6 +HONLi3HwOl94QHReGd0WXQ5y5d6HdgnFWytV6Rio8fOD1e5YiCIf+ee1no5d +2VcnXbfEwj6BSOdvanTkaAyUClWMheaV8zsr1OloEBFx7R9XLLyebOE4q01H +U71XvD6vYyCvwfvyZ6RjudHzI9wQAxFe9R4FNnTkLa+Vkdp1F/a+dbQ8fpOO +1lsT3XrPR8Gmv5di3wTTcSa8Xe34qSgQkY34pHabjuo9zyamD0fBwKUyy/lQ +Os67puzesj0KfOjrrO5G0fGsHZ/zDp4oSL1VYlX/kI5+Tpuh0DASFo14bOgF +dPwXQ4vLLgiH7Npc26mvdNQOo/CdfR8K/IX/rbkwQMfM0I1uicWhcDaNXjo/ +SEdYmGB+SQqFzTdSyVwM4nsjBGeSz4RChdH9NpFxOsYXv94jJRQKb5v8jfRm +6Vi0vGHtH9sQYLaaaQQLqODip7/Hbi3cApnPY2uI7hp/CYdrPTx/E9ia6eXB +O1RwfWRzQsuJm/A11N5t2lAFq3bb1fDtvwmJuh/evTFSQSEJpni52k2QSCiO +8DJVwRC+lJwa5g0Qtg0gN1qroOuP3f8C7G/Aqm4RmXMeKnh89r9Ab6sgGGvH +rU0JxP5R3FXl7oGQQTcVtU8k1gckaMXYBcKJq1Z/p5NUUGyDatIVs0DoUXEr +pKSoYN0BrbW+aoHwJiBG3fOpCvJUX+xUmAiAlI1MZdEiFdypH+Os5RUAh0Pv +iDu9V0HrG6UyL1ZfA/LAvdm5VmL87d7WsbGr0Kb9uCv8gwpuepxB2dF6FYwH +i2JLO1RQruPuZoN7V2GzzldB3j4VvBsok3tW4SrwMzfxFDBVkPfPcMOL3f7Q +rKc3YjyigqcXcmihav5wM9qo8fOoCh6ty7nvL+QPS/pHbq6aUEH7lNzIF5/9 +YCwmaIXtbxWME0uXMPDyg4zR8IGJPypY0h/174u1H5yAB9XX/6lg+6obBnH6 +ftAzlu2fPa9C/N85++LgGj+IwVK7HYsqWLEQl2P56wrsu/9ar2tJBW8OSL88 +8+kKrP35TvI/FjE/tL3+ccUVaNjRNc9mq+CsYUT+2OMr8D/Le7BC + "]]}, "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}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{7.5, 13}, {0., 0.965729711695941}}, + 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.992176841988554*^9, {3.992176884690727*^9, + 3.992176910239174*^9}, {3.9921769447931767`*^9, 3.9921769816327457`*^9}, { + 3.992177027242647*^9, 3.9921771498258457`*^9}}, + CellLabel->"Out[80]=",ExpressionUUID->"f2c8553a-2489-d344-afa0-7cb8641eb5b4"] +}, 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", ",", "11.2"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.99196423637006*^9, 3.9919651876297417`*^9, {3.992177215942608*^9, + 3.9921772303634014`*^9}}, + CellLabel->"In[84]:=",ExpressionUUID->"c35d5cd1-71e8-0d46-9aff-241fa1902366"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV0nk01WsXB/CDax4KKcl8fr9TiVKqK8reRRRlOGYyJDIPKYkoQ4QiwzUP +mRKOTCUSldzQgEQuFaIyh8xKes/7x7Oe9Vlr72et/d2PjJ0n3YGVQqH0M8// +b5dbz9gpFHGUfC3hUiY2DY8aiioNWMQxVzqrZBvTXPPxNnms4qh1j5GTs3ka +CswcHmmyi2OV87+58aLTMCjD4x7NI468bw6vem2cBrMHhl1iIuLYqvBuWFJo +GjR7h3P3yYmjQbu0sxr3NFCp/OhqJI6D/12jhyxOQW3F9hMzZeIYLbvDheXl +FMT2va+3Z5fAgORqzifJU3DNK0BA3lwChb/K1yrYToHp2qwi/wMJ/CFnopQj +NgVO21dq+rgk0eKad/n79u9gptcu1GIviYUc27Ruen+Hs59u67A/lcQyXe1z +FO7vcJ+DMr5bWAqf/Uxl+SdlEvp3KFpc8pDCDU56B2r5J+HY1PSu0kYpvCvx +OC3VfwJGeY2903mlsfLuvoqgnnHYIplWNaksjZ0i6qJiwuMwtVbA2HdGGk8k +yTf6HR0Dxb70KN44aRRaCyV26I4CyzR/L88TaeRRMEiVPDIC59q1PrCMSmOe +09BIwe5h0L/n/G+YiAyqVQv3+c5+hXZzw9MsKIO914tjF+5/gXo2coTbQwZH +le59Q60hUBk8/0k1XQbDPq39tur4DCbRUdccXshgjvDYrdb3/TC4P1JEfE4G +2dsabvU+/wh8ZXrmryRkcfzl0v2C4R5oskjgy9WSxWPzr1aDad0wzfa0kMNH +FsM+up5U1+yEmsuVS3a3ZdFw7otb/eO3MDMTvetEqyyqdqKmnPkbqE4d7rb+ +KYtBn3a08Dc3g4Qg525ngoqsT/bmKc03wmzYugsUOhWtJSIvnTz5DBxfDjjf +CqDiMVOes0UPasEVFdq1Cqjo7p9yuuJpFRzcePbrKtMHf2SsG2FUgcBk1krF +XSpOjkSs35FSBZXJ6wnxIiqeaqhb6POqgp9Tc5dmGFSk9q+rnpKtgojMWtnU +Cire8BWkV0c+gPyfWhfH66hYKpE4Wn/6PvQ/sJOI7qRiLJH7yFKlAsaLzgru +76IiY6mOIrSjAhazXNgHmOYZqL/cuaUC1kV6f1fspuJfH3av+P4uB7QKqe/q +oeKqVX2oZkM55LLnWon3UzFLPdF2QbscHE0GMxmjVLQyn7adfFMKM0s2kq9+ +U/HjphXbp34MmL3JqRm8RkXljKNzRtYMmJcpc1f+Q0X7a/LNLOoMWNZZqyug +EKj7yP13Nh8DKNkZlqFsBEZw/rV1PrsY1h/rTTnITWBAoEj4YGsR7E6hC5dt +IDDfN2Czn3IheCsf5fpnB4FvtPzjck7egdLJagGQJxC07WUED9yBiWw5kXGm +AznL2eKJO2DPvV4WdxJ4yaYmoflXPph8+KA6qUjg7Is/ZRRGPqgEeHlq7Ccw +8huPYQ5fPrA+S++eRwLvl3H463/KhQSt2XxjEwKnD6XVrWNkQ9aMrMFvpjMO +xO16l5YNhamGv/NNCbTU46jNjcqGJxMPjOfNCAyWvDPl7pINY7d8ORIsCdQp +XmlmyGUD9Kw6vrUlsIi3JcvP8jZMOHHu0HElsGNs8NfQ5UxYFFT+b5bpqqKl +ohbrTKA8dgpNcyNw54VlWsvhTNjI/+rjmDuBUWtX1DdwZcLhips3I7wI1CiJ +pAwkZkDyiuDUCx8Crfgjzu18mA7qUeIVGESgCcyO7uNOA43OmdhFpmcbJbj+ +TKaChvgLr5JgZj1rc8+Xt0yXuiuKhjL3EXt7LyU1FTTfPSmbDiNwYkD2TLBc +KmiLnS7NukHgZ26CjKenAL34DmM1icDkuMa3hg+TgD7nd6MymcDo3hkrp8wk +MDyo6+qUQqC+qfRQ4rUkMGpblOtKJfCPqfxlVcMkMJnVKmZkEPjSiTe/9Eci +WKiMF1rkEhiefS1ZVikR7F7tLKi5R+CnVqXbFc0JkLmnzd6ulMDT+fv2Kt1P +gJ40dypfGYEpicP6LVkJoOtakm1TTmBeY8ig/MUEUOGTS+e4T6C/Y09uH5kA +QrpkrFENgWL1an3tEfHwvGOL/8xzAnm8A5uiTsXB7wOPldMaCRwOYBOy0Y4D +5VyLJfV/CYwXGVzSUI6DUu/UC8kvCGStNjU9uiEO0oQ3eaq1EPivq3TLxtZY +8DYWsr/ZSuA5H4OC6cOxINPLpbuth8Dl7Y8fbPeKAfqgDn5muvjnDUeDkzEQ +MhazJ6WXwFDHP4ey5GLg68qGTVwfCdwtcv5VwbdoKBCT+TzSR+Bqsn+yp1U0 +yJ864H33CzNPNl/W54Y3QXnAOYk2TWBWQ+v2qxZR4DxSEtHPdMVOai73wShI +m572T5ph/v+CLUJVElHw64+PDccsgcRyl7nHYCQ8kQ7ZNjxPYF1tk7CjSyRo +2KXV3vlJoHLzno/GIRGg9+1VP8FB4o+0X1/pL8NBd+j1xV6mPTrtlQ+WhcOJ +gTcCMZwkOleEFR9ODAft3ja1JS4SY26/DMw+HQ6are+yXvKSqMXLNVb8KwzU +qj5YewiSeEjkodXHvWGwM2y8v1qcxIFqmsdcbSgohExcdJMg8byNpI5CfijI +X50UkJEk0TRikD0oOhTk/KbUoqRITGvYXOlpGwo099msU7Iktj37vt+HMxQk +jH9as2wj8eJ7xQY2ixDgI3kGtJVIvFoydDZyfTBoHu42nmM60CVdhX0tCK5a +5b5J30tio9l68p+JIJhNVKmd3EfiDQW+xfGmIOjhcE2MUSbRaTYo3v9KEOSN +vtZ5d4hEqY0b3Iihq6BSEl1jfoxEdZmNW42aA+FCi/ku1uMkrl6qrmotCIR7 +X8mCYqY/d6SRzuGBIC3xJOGXNonbuvtp7JqBwBEz5ZF5kkT/KxpkW1MAdHjq +kYN0EifXJ4pGtF0GJyXBeCcrEpPaBv0bFvwgeTrooJQ1c75fNY87u/2giTEz +/J7pQ2s5yF3jByTxVlXdlum+w8F9/n4wtOHWN4kzzHycvNtprH5guch3oNOJ +RM1zbZnimy6B7iOuz4cukJh/wqAv3fwiBPpcippnWiCjt/Gt2kUo2T26l+HD +nC85MJQgLgJPcXOkqC+zf1WHe9u0DzSnhSvN+ZHIetfkn/RwH8CAv64XXiWx +63LRAdHHF0AJKDuFb5C4lnQ9K+rAecgQU62uZ/pod0LXN+p54Fj0QaebJLa8 +rrhmJnAePpRM0OujSVQps54L/eINQWL/+TrGksgzO+o1E+MNbQv3Gh4nkmi8 +oOfIO34OnEosje2zScwzSbxQVO4F764n9QvkkBjMaJNqzvSCg2c6HB8x7WCQ +5bkS5QXrxLT8BfJIXJKuvZvu4AUPr++5XXOHROm/Dbd3bfECtjPcY3wMEm2/ +5Z7iEPWErM3VAVVVJO75ZLg/acENusfKGKcekrhVW11H/70bCNQWfmCrJnGL +9dn9ClVucMUiTZleQ6K9ThRFz8cNrNID56dqSSzb6npt55IriEtouG17RqIw +XbZGjcUV0qU7LNNfkej3kPalSsEZ3s28jDrymsTNVt7sEYLOwNPw/NEY061y +319cWnAC/9MPNim3kvi96W5uVb0TWOQmd3a1k3ivwMAiVc8JxAhrHYH3JHL+ +ysj8fskRUrZOqAQPkMhGpesvfnaApuTrmfs/M/ebNZWr0+QAc5wEZZLpDA6h +xGcMB9AdPfXCZIjEKLOrLVy+DsBe1KYn/41EIequCIF1DuAtV2n/3ziJcbbs +zW817OGEgl+MwiKJ415cmUea7MA/U+THENN0Dz6p42V2cJe/0jBlicSQ4XIe +1xQ7YJ0aF2VbIVH1/ckciqsdPCo9ldfzi8SnBvr2noJ2QFPEmlAWGjYocHjj +mdPAosQ51MtHQ66FvPefN9uCy3MPaig/DRMN3BZdOW3hnUG3vbwADTsOU8I2 +jdtArtedkSvraChwtZlDKMcGjpSqf6cK0dBY4bff9HobCN0etOy+iYbstMo/ +5LIVsEuvCLDKMi1SGWz+xRI8ymz1GUxvlb7lr9VoCd1qLXFGVBrGm05GmedZ +QoFV8oa7BA077TWNx85Ygmb6PrETW2nYWC6ld3/YAq5v9CaT5GlYqSWq1z5r +Dtz8E6pyf9Nw6mb9fiphBvp+kfIjTJd7zQutZzeDpG9bJfKVaShbdZQghk2B +eGK/JqHCfO94Ca2h0BTUPPufCR6i4fnCPr+Xu0zhfEfH0ZUjzP5l1ohxDRPo +S6zRa9Gl4Qvzsfw9UUZAsJpimB4N5V+omN/zNAIXjwXFI/o0zJ4XLTlubATL +mnuE6gyYecpxRgxLG4HQMqOrzIiGdaUbM0seGYKWxW3zZAsaRhXqrWr+oENM +0yFtI0sapr2WSm3poUPXnk8qgqdo6Ox7zMj5GR3seDeL37Ciod7ZxRucsXQI +qIvvv2JLw1y7H92VinR4vm13u+ppGjpePae6fTMduBPbny4z3VkcequehQ5J +7nw53mdoOK923Bs6DaCvtzhulz0N/XttquXrDIDQPB4yyTQjrM3s7zsG4FI5 +4l3kQMMd95T22MQYQIVk+JmzZ2m4Omomle9rAP8DeegoXw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0nk01WsXB/CDax4KKcl8fr9TiVKqK8reRRRlOGYyJDIPKYkoQ4QiwzUP +mRKOTCUSldzQgEQuFaIyh8xKes/7x7Oe9Vlr72et/d2PjJ0n3YGVQqH0M8// +b5dbz9gpFHGUfC3hUiY2DY8aiioNWMQxVzqrZBvTXPPxNnms4qh1j5GTs3ka +CswcHmmyi2OV87+58aLTMCjD4x7NI468bw6vem2cBrMHhl1iIuLYqvBuWFJo +GjR7h3P3yYmjQbu0sxr3NFCp/OhqJI6D/12jhyxOQW3F9hMzZeIYLbvDheXl +FMT2va+3Z5fAgORqzifJU3DNK0BA3lwChb/K1yrYToHp2qwi/wMJ/CFnopQj +NgVO21dq+rgk0eKad/n79u9gptcu1GIviYUc27Ruen+Hs59u67A/lcQyXe1z +FO7vcJ+DMr5bWAqf/Uxl+SdlEvp3KFpc8pDCDU56B2r5J+HY1PSu0kYpvCvx +OC3VfwJGeY2903mlsfLuvoqgnnHYIplWNaksjZ0i6qJiwuMwtVbA2HdGGk8k +yTf6HR0Dxb70KN44aRRaCyV26I4CyzR/L88TaeRRMEiVPDIC59q1PrCMSmOe +09BIwe5h0L/n/G+YiAyqVQv3+c5+hXZzw9MsKIO914tjF+5/gXo2coTbQwZH +le59Q60hUBk8/0k1XQbDPq39tur4DCbRUdccXshgjvDYrdb3/TC4P1JEfE4G +2dsabvU+/wh8ZXrmryRkcfzl0v2C4R5oskjgy9WSxWPzr1aDad0wzfa0kMNH +FsM+up5U1+yEmsuVS3a3ZdFw7otb/eO3MDMTvetEqyyqdqKmnPkbqE4d7rb+ +KYtBn3a08Dc3g4Qg525ngoqsT/bmKc03wmzYugsUOhWtJSIvnTz5DBxfDjjf +CqDiMVOes0UPasEVFdq1Cqjo7p9yuuJpFRzcePbrKtMHf2SsG2FUgcBk1krF +XSpOjkSs35FSBZXJ6wnxIiqeaqhb6POqgp9Tc5dmGFSk9q+rnpKtgojMWtnU +Cire8BWkV0c+gPyfWhfH66hYKpE4Wn/6PvQ/sJOI7qRiLJH7yFKlAsaLzgru +76IiY6mOIrSjAhazXNgHmOYZqL/cuaUC1kV6f1fspuJfH3av+P4uB7QKqe/q +oeKqVX2oZkM55LLnWon3UzFLPdF2QbscHE0GMxmjVLQyn7adfFMKM0s2kq9+ +U/HjphXbp34MmL3JqRm8RkXljKNzRtYMmJcpc1f+Q0X7a/LNLOoMWNZZqyug +EKj7yP13Nh8DKNkZlqFsBEZw/rV1PrsY1h/rTTnITWBAoEj4YGsR7E6hC5dt +IDDfN2Czn3IheCsf5fpnB4FvtPzjck7egdLJagGQJxC07WUED9yBiWw5kXGm +AznL2eKJO2DPvV4WdxJ4yaYmoflXPph8+KA6qUjg7Is/ZRRGPqgEeHlq7Ccw +8huPYQ5fPrA+S++eRwLvl3H463/KhQSt2XxjEwKnD6XVrWNkQ9aMrMFvpjMO +xO16l5YNhamGv/NNCbTU46jNjcqGJxMPjOfNCAyWvDPl7pINY7d8ORIsCdQp +XmlmyGUD9Kw6vrUlsIi3JcvP8jZMOHHu0HElsGNs8NfQ5UxYFFT+b5bpqqKl +ohbrTKA8dgpNcyNw54VlWsvhTNjI/+rjmDuBUWtX1DdwZcLhips3I7wI1CiJ +pAwkZkDyiuDUCx8Crfgjzu18mA7qUeIVGESgCcyO7uNOA43OmdhFpmcbJbj+ +TKaChvgLr5JgZj1rc8+Xt0yXuiuKhjL3EXt7LyU1FTTfPSmbDiNwYkD2TLBc +KmiLnS7NukHgZ26CjKenAL34DmM1icDkuMa3hg+TgD7nd6MymcDo3hkrp8wk +MDyo6+qUQqC+qfRQ4rUkMGpblOtKJfCPqfxlVcMkMJnVKmZkEPjSiTe/9Eci +WKiMF1rkEhiefS1ZVikR7F7tLKi5R+CnVqXbFc0JkLmnzd6ulMDT+fv2Kt1P +gJ40dypfGYEpicP6LVkJoOtakm1TTmBeY8ig/MUEUOGTS+e4T6C/Y09uH5kA +QrpkrFENgWL1an3tEfHwvGOL/8xzAnm8A5uiTsXB7wOPldMaCRwOYBOy0Y4D +5VyLJfV/CYwXGVzSUI6DUu/UC8kvCGStNjU9uiEO0oQ3eaq1EPivq3TLxtZY +8DYWsr/ZSuA5H4OC6cOxINPLpbuth8Dl7Y8fbPeKAfqgDn5muvjnDUeDkzEQ +MhazJ6WXwFDHP4ey5GLg68qGTVwfCdwtcv5VwbdoKBCT+TzSR+Bqsn+yp1U0 +yJ864H33CzNPNl/W54Y3QXnAOYk2TWBWQ+v2qxZR4DxSEtHPdMVOai73wShI +m572T5ph/v+CLUJVElHw64+PDccsgcRyl7nHYCQ8kQ7ZNjxPYF1tk7CjSyRo +2KXV3vlJoHLzno/GIRGg9+1VP8FB4o+0X1/pL8NBd+j1xV6mPTrtlQ+WhcOJ +gTcCMZwkOleEFR9ODAft3ja1JS4SY26/DMw+HQ6are+yXvKSqMXLNVb8KwzU +qj5YewiSeEjkodXHvWGwM2y8v1qcxIFqmsdcbSgohExcdJMg8byNpI5CfijI +X50UkJEk0TRikD0oOhTk/KbUoqRITGvYXOlpGwo099msU7Iktj37vt+HMxQk +jH9as2wj8eJ7xQY2ixDgI3kGtJVIvFoydDZyfTBoHu42nmM60CVdhX0tCK5a +5b5J30tio9l68p+JIJhNVKmd3EfiDQW+xfGmIOjhcE2MUSbRaTYo3v9KEOSN +vtZ5d4hEqY0b3Iihq6BSEl1jfoxEdZmNW42aA+FCi/ku1uMkrl6qrmotCIR7 +X8mCYqY/d6SRzuGBIC3xJOGXNonbuvtp7JqBwBEz5ZF5kkT/KxpkW1MAdHjq +kYN0EifXJ4pGtF0GJyXBeCcrEpPaBv0bFvwgeTrooJQ1c75fNY87u/2giTEz +/J7pQ2s5yF3jByTxVlXdlum+w8F9/n4wtOHWN4kzzHycvNtprH5guch3oNOJ +RM1zbZnimy6B7iOuz4cukJh/wqAv3fwiBPpcippnWiCjt/Gt2kUo2T26l+HD +nC85MJQgLgJPcXOkqC+zf1WHe9u0DzSnhSvN+ZHIetfkn/RwH8CAv64XXiWx +63LRAdHHF0AJKDuFb5C4lnQ9K+rAecgQU62uZ/pod0LXN+p54Fj0QaebJLa8 +rrhmJnAePpRM0OujSVQps54L/eINQWL/+TrGksgzO+o1E+MNbQv3Gh4nkmi8 +oOfIO34OnEosje2zScwzSbxQVO4F764n9QvkkBjMaJNqzvSCg2c6HB8x7WCQ +5bkS5QXrxLT8BfJIXJKuvZvu4AUPr++5XXOHROm/Dbd3bfECtjPcY3wMEm2/ +5Z7iEPWErM3VAVVVJO75ZLg/acENusfKGKcekrhVW11H/70bCNQWfmCrJnGL +9dn9ClVucMUiTZleQ6K9ThRFz8cNrNID56dqSSzb6npt55IriEtouG17RqIw +XbZGjcUV0qU7LNNfkej3kPalSsEZ3s28jDrymsTNVt7sEYLOwNPw/NEY061y +319cWnAC/9MPNim3kvi96W5uVb0TWOQmd3a1k3ivwMAiVc8JxAhrHYH3JHL+ +ysj8fskRUrZOqAQPkMhGpesvfnaApuTrmfs/M/ebNZWr0+QAc5wEZZLpDA6h +xGcMB9AdPfXCZIjEKLOrLVy+DsBe1KYn/41EIequCIF1DuAtV2n/3ziJcbbs +zW817OGEgl+MwiKJ415cmUea7MA/U+THENN0Dz6p42V2cJe/0jBlicSQ4XIe +1xQ7YJ0aF2VbIVH1/ckciqsdPCo9ldfzi8SnBvr2noJ2QFPEmlAWGjYocHjj +mdPAosQ51MtHQ66FvPefN9uCy3MPaig/DRMN3BZdOW3hnUG3vbwADTsOU8I2 +jdtArtedkSvraChwtZlDKMcGjpSqf6cK0dBY4bff9HobCN0etOy+iYbstMo/ +5LIVsEuvCLDKMi1SGWz+xRI8ymz1GUxvlb7lr9VoCd1qLXFGVBrGm05GmedZ +QoFV8oa7BA077TWNx85Ygmb6PrETW2nYWC6ld3/YAq5v9CaT5GlYqSWq1z5r +Dtz8E6pyf9Nw6mb9fiphBvp+kfIjTJd7zQutZzeDpG9bJfKVaShbdZQghk2B +eGK/JqHCfO94Ca2h0BTUPPufCR6i4fnCPr+Xu0zhfEfH0ZUjzP5l1ohxDRPo +S6zRa9Gl4Qvzsfw9UUZAsJpimB4N5V+omN/zNAIXjwXFI/o0zJ4XLTlubATL +mnuE6gyYecpxRgxLG4HQMqOrzIiGdaUbM0seGYKWxW3zZAsaRhXqrWr+oENM +0yFtI0sapr2WSm3poUPXnk8qgqdo6Ox7zMj5GR3seDeL37Ciod7ZxRucsXQI +qIvvv2JLw1y7H92VinR4vm13u+ppGjpePae6fTMduBPbny4z3VkcequehQ5J +7nw53mdoOK923Bs6DaCvtzhulz0N/XttquXrDIDQPB4yyTQjrM3s7zsG4FI5 +4l3kQMMd95T22MQYQIVk+JmzZ2m4Omomle9rAP8DeegoXw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 11.2}, {0., 0.9720074722848471}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{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, 11.2}, {0., 0.9720074722848471}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0nk01WsXB/CDax4KKcl8fr9TiVKqK8reRRRlOGYyJDIPKYkoQ4QiwzUP +mRKOTCUSldzQgEQuFaIyh8xKes/7x7Oe9Vlr72et/d2PjJ0n3YGVQqH0M8// +b5dbz9gpFHGUfC3hUiY2DY8aiioNWMQxVzqrZBvTXPPxNnms4qh1j5GTs3ka +CswcHmmyi2OV87+58aLTMCjD4x7NI468bw6vem2cBrMHhl1iIuLYqvBuWFJo +GjR7h3P3yYmjQbu0sxr3NFCp/OhqJI6D/12jhyxOQW3F9hMzZeIYLbvDheXl +FMT2va+3Z5fAgORqzifJU3DNK0BA3lwChb/K1yrYToHp2qwi/wMJ/CFnopQj +NgVO21dq+rgk0eKad/n79u9gptcu1GIviYUc27Ruen+Hs59u67A/lcQyXe1z +FO7vcJ+DMr5bWAqf/Uxl+SdlEvp3KFpc8pDCDU56B2r5J+HY1PSu0kYpvCvx +OC3VfwJGeY2903mlsfLuvoqgnnHYIplWNaksjZ0i6qJiwuMwtVbA2HdGGk8k +yTf6HR0Dxb70KN44aRRaCyV26I4CyzR/L88TaeRRMEiVPDIC59q1PrCMSmOe +09BIwe5h0L/n/G+YiAyqVQv3+c5+hXZzw9MsKIO914tjF+5/gXo2coTbQwZH +le59Q60hUBk8/0k1XQbDPq39tur4DCbRUdccXshgjvDYrdb3/TC4P1JEfE4G +2dsabvU+/wh8ZXrmryRkcfzl0v2C4R5oskjgy9WSxWPzr1aDad0wzfa0kMNH +FsM+up5U1+yEmsuVS3a3ZdFw7otb/eO3MDMTvetEqyyqdqKmnPkbqE4d7rb+ +KYtBn3a08Dc3g4Qg525ngoqsT/bmKc03wmzYugsUOhWtJSIvnTz5DBxfDjjf +CqDiMVOes0UPasEVFdq1Cqjo7p9yuuJpFRzcePbrKtMHf2SsG2FUgcBk1krF +XSpOjkSs35FSBZXJ6wnxIiqeaqhb6POqgp9Tc5dmGFSk9q+rnpKtgojMWtnU +Cire8BWkV0c+gPyfWhfH66hYKpE4Wn/6PvQ/sJOI7qRiLJH7yFKlAsaLzgru +76IiY6mOIrSjAhazXNgHmOYZqL/cuaUC1kV6f1fspuJfH3av+P4uB7QKqe/q +oeKqVX2oZkM55LLnWon3UzFLPdF2QbscHE0GMxmjVLQyn7adfFMKM0s2kq9+ +U/HjphXbp34MmL3JqRm8RkXljKNzRtYMmJcpc1f+Q0X7a/LNLOoMWNZZqyug +EKj7yP13Nh8DKNkZlqFsBEZw/rV1PrsY1h/rTTnITWBAoEj4YGsR7E6hC5dt +IDDfN2Czn3IheCsf5fpnB4FvtPzjck7egdLJagGQJxC07WUED9yBiWw5kXGm +AznL2eKJO2DPvV4WdxJ4yaYmoflXPph8+KA6qUjg7Is/ZRRGPqgEeHlq7Ccw +8huPYQ5fPrA+S++eRwLvl3H463/KhQSt2XxjEwKnD6XVrWNkQ9aMrMFvpjMO +xO16l5YNhamGv/NNCbTU46jNjcqGJxMPjOfNCAyWvDPl7pINY7d8ORIsCdQp +XmlmyGUD9Kw6vrUlsIi3JcvP8jZMOHHu0HElsGNs8NfQ5UxYFFT+b5bpqqKl +ohbrTKA8dgpNcyNw54VlWsvhTNjI/+rjmDuBUWtX1DdwZcLhips3I7wI1CiJ +pAwkZkDyiuDUCx8Crfgjzu18mA7qUeIVGESgCcyO7uNOA43OmdhFpmcbJbj+ +TKaChvgLr5JgZj1rc8+Xt0yXuiuKhjL3EXt7LyU1FTTfPSmbDiNwYkD2TLBc +KmiLnS7NukHgZ26CjKenAL34DmM1icDkuMa3hg+TgD7nd6MymcDo3hkrp8wk +MDyo6+qUQqC+qfRQ4rUkMGpblOtKJfCPqfxlVcMkMJnVKmZkEPjSiTe/9Eci +WKiMF1rkEhiefS1ZVikR7F7tLKi5R+CnVqXbFc0JkLmnzd6ulMDT+fv2Kt1P +gJ40dypfGYEpicP6LVkJoOtakm1TTmBeY8ig/MUEUOGTS+e4T6C/Y09uH5kA +QrpkrFENgWL1an3tEfHwvGOL/8xzAnm8A5uiTsXB7wOPldMaCRwOYBOy0Y4D +5VyLJfV/CYwXGVzSUI6DUu/UC8kvCGStNjU9uiEO0oQ3eaq1EPivq3TLxtZY +8DYWsr/ZSuA5H4OC6cOxINPLpbuth8Dl7Y8fbPeKAfqgDn5muvjnDUeDkzEQ +MhazJ6WXwFDHP4ey5GLg68qGTVwfCdwtcv5VwbdoKBCT+TzSR+Bqsn+yp1U0 +yJ864H33CzNPNl/W54Y3QXnAOYk2TWBWQ+v2qxZR4DxSEtHPdMVOai73wShI +m572T5ph/v+CLUJVElHw64+PDccsgcRyl7nHYCQ8kQ7ZNjxPYF1tk7CjSyRo +2KXV3vlJoHLzno/GIRGg9+1VP8FB4o+0X1/pL8NBd+j1xV6mPTrtlQ+WhcOJ +gTcCMZwkOleEFR9ODAft3ja1JS4SY26/DMw+HQ6are+yXvKSqMXLNVb8KwzU +qj5YewiSeEjkodXHvWGwM2y8v1qcxIFqmsdcbSgohExcdJMg8byNpI5CfijI +X50UkJEk0TRikD0oOhTk/KbUoqRITGvYXOlpGwo099msU7Iktj37vt+HMxQk +jH9as2wj8eJ7xQY2ixDgI3kGtJVIvFoydDZyfTBoHu42nmM60CVdhX0tCK5a +5b5J30tio9l68p+JIJhNVKmd3EfiDQW+xfGmIOjhcE2MUSbRaTYo3v9KEOSN +vtZ5d4hEqY0b3Iihq6BSEl1jfoxEdZmNW42aA+FCi/ku1uMkrl6qrmotCIR7 +X8mCYqY/d6SRzuGBIC3xJOGXNonbuvtp7JqBwBEz5ZF5kkT/KxpkW1MAdHjq +kYN0EifXJ4pGtF0GJyXBeCcrEpPaBv0bFvwgeTrooJQ1c75fNY87u/2giTEz +/J7pQ2s5yF3jByTxVlXdlum+w8F9/n4wtOHWN4kzzHycvNtprH5guch3oNOJ +RM1zbZnimy6B7iOuz4cukJh/wqAv3fwiBPpcippnWiCjt/Gt2kUo2T26l+HD +nC85MJQgLgJPcXOkqC+zf1WHe9u0DzSnhSvN+ZHIetfkn/RwH8CAv64XXiWx +63LRAdHHF0AJKDuFb5C4lnQ9K+rAecgQU62uZ/pod0LXN+p54Fj0QaebJLa8 +rrhmJnAePpRM0OujSVQps54L/eINQWL/+TrGksgzO+o1E+MNbQv3Gh4nkmi8 +oOfIO34OnEosje2zScwzSbxQVO4F764n9QvkkBjMaJNqzvSCg2c6HB8x7WCQ +5bkS5QXrxLT8BfJIXJKuvZvu4AUPr++5XXOHROm/Dbd3bfECtjPcY3wMEm2/ +5Z7iEPWErM3VAVVVJO75ZLg/acENusfKGKcekrhVW11H/70bCNQWfmCrJnGL +9dn9ClVucMUiTZleQ6K9ThRFz8cNrNID56dqSSzb6npt55IriEtouG17RqIw +XbZGjcUV0qU7LNNfkej3kPalSsEZ3s28jDrymsTNVt7sEYLOwNPw/NEY061y +319cWnAC/9MPNim3kvi96W5uVb0TWOQmd3a1k3ivwMAiVc8JxAhrHYH3JHL+ +ysj8fskRUrZOqAQPkMhGpesvfnaApuTrmfs/M/ebNZWr0+QAc5wEZZLpDA6h +xGcMB9AdPfXCZIjEKLOrLVy+DsBe1KYn/41EIequCIF1DuAtV2n/3ziJcbbs +zW817OGEgl+MwiKJ415cmUea7MA/U+THENN0Dz6p42V2cJe/0jBlicSQ4XIe +1xQ7YJ0aF2VbIVH1/ckciqsdPCo9ldfzi8SnBvr2noJ2QFPEmlAWGjYocHjj +mdPAosQ51MtHQ66FvPefN9uCy3MPaig/DRMN3BZdOW3hnUG3vbwADTsOU8I2 +jdtArtedkSvraChwtZlDKMcGjpSqf6cK0dBY4bff9HobCN0etOy+iYbstMo/ +5LIVsEuvCLDKMi1SGWz+xRI8ymz1GUxvlb7lr9VoCd1qLXFGVBrGm05GmedZ +QoFV8oa7BA077TWNx85Ygmb6PrETW2nYWC6ld3/YAq5v9CaT5GlYqSWq1z5r +Dtz8E6pyf9Nw6mb9fiphBvp+kfIjTJd7zQutZzeDpG9bJfKVaShbdZQghk2B +eGK/JqHCfO94Ca2h0BTUPPufCR6i4fnCPr+Xu0zhfEfH0ZUjzP5l1ohxDRPo +S6zRa9Gl4Qvzsfw9UUZAsJpimB4N5V+omN/zNAIXjwXFI/o0zJ4XLTlubATL +mnuE6gyYecpxRgxLG4HQMqOrzIiGdaUbM0seGYKWxW3zZAsaRhXqrWr+oENM +0yFtI0sapr2WSm3poUPXnk8qgqdo6Ox7zMj5GR3seDeL37Ciod7ZxRucsXQI +qIvvv2JLw1y7H92VinR4vm13u+ppGjpePae6fTMduBPbny4z3VkcequehQ5J +7nw53mdoOK923Bs6DaCvtzhulz0N/XttquXrDIDQPB4yyTQjrM3s7zsG4FI5 +4l3kQMMd95T22MQYQIVk+JmzZ2m4Omomle9rAP8DeegoXw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 11.2}, {0., 0.9720074722848471}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> 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.000000000000016, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{7, 11.2}, {0., 0.9720074722848471}}, + 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.9921772127335033`*^9, + 3.992177230925968*^9}}, + CellLabel->"Out[84]=",ExpressionUUID->"c113d2ef-a3b8-8e44-8968-0928da6090e9"] +}, 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", ",", "11.2", ",", "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", ",", "11.2", ",", "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.9921772404969864`*^9, + 3.9921772538169518`*^9}}, + CellLabel->"In[85]:=",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.02790592138751864`\\\", \\\" \\\", \ +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.11654859982614699`\\\", \\\" \\\", 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.02790592138751864`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.11654859982614699`\\\", \\\" \\\", 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[{\\\"168404.7432096178`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"41\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ +RowBox[{\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.02790592138751864`\\\", \\\" \\\", \ +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.11654859982614699`\\\", \\\" \\\", 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.02790592138751864`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.11654859982614699`\\\", \\\" \\\", 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[{\\\"3.489674408343525`*^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, 85, 5, 29225361075616413851, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991964272641367*^9, 3.991965207078659*^9, + 3.992177257729761*^9}, + CellLabel-> + "During evaluation of \ +In[85]:=",ExpressionUUID->"6fc5b63a-32f7-c64c-9ef5-db5fe19ad5c4"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "\[Rule]", "1.434257390249463`"}], ",", + RowBox[{"bb0", "\[Rule]", "1.659551402733935`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991964272691372*^9, 3.99196520714266*^9, + 3.9921772578347683`*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"3bbed4a4-9896-e548-971b-e42c32c6a3e4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "2.3"}]], "Input", + CellChangeTimes->{{3.991964278686388*^9, 3.9919642789396744`*^9}, + 3.991965211114523*^9, {3.9921772672585735`*^9, 3.992177269964157*^9}, { + 3.9921774719605827`*^9, 3.9921775120893497`*^9}, {3.9921775729551144`*^9, + 3.9921775973070335`*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"e7f8a0fc-58ca-3c43-8050-1041e5611e26"], + +Cell[BoxData["2.3`"], "Output", + CellChangeTimes->{ + 3.991964280066925*^9, 3.991965218521267*^9, 3.9921772892773476`*^9, { + 3.992177472544777*^9, 3.99217751262339*^9}, {3.9921775773299236`*^9, + 3.992177598168333*^9}}, + CellLabel-> + "Out[120]=",ExpressionUUID->"c59cf26d-5f03-0346-bac6-8025db3262f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"bb0", "=", "1.1"}]], "Input", + CellChangeTimes->{{3.991964284161188*^9, 3.9919642845938396`*^9}, { + 3.9919652166473465`*^9, 3.991965216788891*^9}, {3.9921772753234234`*^9, + 3.9921772848898716`*^9}, {3.992177422547474*^9, 3.9921774662048187`*^9}, { + 3.9921775286827564`*^9, 3.992177564692211*^9}}, + CellLabel-> + "In[114]:=",ExpressionUUID->"8a3efd5c-480b-0b42-87de-a0381a89eb4a"], + +Cell[BoxData["1.1`"], "Output", + CellChangeTimes->{ + 3.991964285066065*^9, 3.9919652203929043`*^9, 3.992177292131098*^9, { + 3.992177429245756*^9, 3.9921774436328373`*^9}, 3.992177474352291*^9, { + 3.9921775291106834`*^9, 3.9921775652409153`*^9}}, + CellLabel-> + "Out[114]=",ExpressionUUID->"21709179-c03f-3747-9035-10b342e00cf8"] +}, 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[121]:=",ExpressionUUID->"a14f3f77-6d27-1048-853d-e35ac0579b5a"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVV3c4le8bP2Wcl9A5Rs55j3kGkhYSKs9tZEeDIiU0EFJWUqRC9krS1kCL +yl6ZWRHfJHtEysxKIqPf+/vrve7rep7Pc73PfX/GI+vgvv/kahKJdH4VifT/ +7xG9RD4SiQKx0jpHnc+MoJ3fxcoyIymwfeJDa4DDKBpsvrN+B4cKi1GZOnu+ +j6FZxtqhtCwq1Em+605q+YkGKH5uRkgYuHqofWfYU+jW/tHUslZhKKgczxj9 +bxrlTBqpSpwQgZsRoTd/5/1CdzsyvPYsi4DpGm+9Pvk5ZOvOH5B1QxSsNRq1 +24fnUbidZdeytBjEXd2u4VaxiPwfpIxJ5ouB3ewqVCz6D3Vs/27O1F8H9GbB ++ityq0DYn+Fv82kdjPWILXEVrgaRtYeOnnYSh+OBMpR/NtxwaelK3NHf4lCy +eZPSmmIeSFfL9JWLpkFcnU9+xl9eKJboUGCz6fBgwS1/21cyqNhOKvG+oYNE +c1os0xYDj3H+wXcGOPwOTWnZ6o8BvVVs0voLDpSaMH4/VQxCBeTS688wwCZg +9+ZePzJ8mVBS9eCRAOWG/kbt47wQrsRauxwnAZmz9+bvivEAOU/q/lFFSUgr +f2952J0Lxu/xXX6cLwlcN9o1hEpXwetNY+sl9KTg6VPxt2PcJNAQbL7u0iUF +WgfbT03qLSElg2caD52kYX/iYk9w2zz69UPbvIUkA0Y7l1fl7/+NEGnDqV8m +MlDvyd8izJpBqGZNGne8DDTt5CmCbxPoiap7OalXBhzSb7zyfzuCisw/8Eyy +ZUFI8NVaA6/vqKIsOeP8aVmQe7jO4kRHP1JqX9gyliML5RhkneDtQSb3jXv2 +LsnCaLFUYUpNG2rEpI4/MmSCLL97ai3/Z8TDHBEejGGC9GKt4poPjWhD3Gb5 +8i9MmDxe6SjzrRZlp86LhsmywOBc2LW+l5VoxrlASdeJBVGXok8bXShFNz4v +SQ5nsyCyc+mtfHI+Yt0o8pQnseHzpERPh3EWciR5/LLSZ0PjsyHrxNQMtFb0 +pal3PBveM/YE+janIdcvXU3XOthwVSajTuDDY5Q3fj1PSZoDh2te/2dReB+d +epHrW3aaA4bbbeXGuW6hOrGe4/pvOZAwPaDaSo9HzT2qi//+cUCF7m8klRqB +GkRbT1jrUyC7Uy2J0T2CKEfaZ+faKRA1ctvoufAYcv1jEXrOlQqTF5PTE+vH +kUui3gvfBSo0GV4wZy5NoOKtyvw8EcLALEhv75iYQnKyd9zOSIoAb9sfwfKC +GVQb7PrnW4Y46A0VePxH5YEEOs5ToU2D/iES6j7BC9nPq/ZyOmgwWFll1+1L +Bt9dg4pip+mwLWsbv6ciBvs5/tjAIh1O7PINKrqIgb597EhENA4HDbXDsJMY +7J2WbBRmMkD+0old2HcyZPg/n5IqZECeSUOnGjH/bwSfPcozkYAvMQY7NN/z +QLEmkyzVIQvS1R4ZJ4w7kcABVZkLTCbARd47r0y+oNM3uYp0XJmQenfo9xvZ +TyjJWuB+cyYTprceneXLrEdTDFGplEUmFFbYFu5nVaMDWIfMDz0W8PB92ka5 +U44qpGxSbkazIKQpJkaiswjZqHTXXu9kgXtt7eLcxxxUVZeoAiw2XBc5MsxS +eYt2hAvJOLqyYb0nMyyR/BKVeOlGL+WwgT6xIfbA+hQk3P9W12qJDcNqtrvX +5CWjaBPppDk9DvBzC+Umrb+DaF+NznBFc+AjderzvHMCalwI3fyknQMFSdMv +Hj+NQQlKanlKLAqE+ibFmj8eQaky5ztbMinwoMrW0iN3FCl8/2PVakiFL2Z7 +i3dZjKMtHc8NY1upIF9QKP/5+AQyl23dIX9SGLidVu4VhUyhXg2dcPG/wqC9 +3e7dK50ZdOaDvWJahDg8mvap3pbPDdgas/oYBg12Grj8eSbMC1umigZTsmhA +j9+nEbiTDHh673MJAzooirGvi2EYVGjn4rNf6FATXLTJ9SwG3akff7BdcFgt +78q1xQuD7G+3bXMXcZCV2qi4iYIBo2rIzDuBAWee9Ol67SKDTsDoaIKCBDx0 +Xir4T4wXvPiE7gXVyILpMY0a8qMupORbunJiLRN8+GIFV19tRRJNlLUeh5kQ +cL037AKlGTW++3vI5hETBMdIHmGqH1F06yNm1jATMlarj5dfqEFBbcN3tquw +wKTPZkHyXgU6rMfv7HqRBc25dYIO996h89dcf+XVsEDkyYBWilIe8tr0/HMW +lQ1Vty4vpm7PRPt2l/HZWbOB5LRms3jdK3RK7/xP9adscD+YvUfBKxWhrmq+ +iVE2jBaqBXEVPELMe5/TqMoEf6Oiu99/u4vQ7sBf9pc4oKr5MWdL+k3UQM6q +m33PAcfquDmv8VjEvewtHOJMAcdZrjwRiVHkd0tjLf0fBS6bJZUHnB9Db/gy +8wRiqdBZ8sX4gclPJKPwQ2vWkQYa9NcrZpm8oH68qfjpCg22Jrazr74mQ+vH +kZeCUXQYKlno2GCAwQCmN9cki4OknI0RKRCDN4wD4zNvcfDb5G9VbY7B+Mqj +Xe6GDFCNYsUrZ5Fh8Mc9/wpBDlxsXOP2NuQh+vv3dGjXIQ5QcrUKFMOT0JSf +yMjThxwo0zsVsVXjBvpvzPbmvnEOPFbOz/NMiEK+6qfsEqkU0Jx4Rnt6fQRN +X9X/WPmQAjvZcZ3eEaOI94hRObadCgGT0oPFjHEU79ctLlFFhSXpjULijAlE +oz+zUN8vDBEP3pd1W0whTf1EmuuwMASxgxdk+WZQmWt3JeYnDn5xwYbO4dxQ +weWU4YPRwOhF00D/EA+cEcnb9COZBqFlcgPaEmQYG7RxTt5Gh0+m6+I/z5Lh +b1Mza7mCDq3DUVYcJwzSjFxPnrPGYfi4gLjPBQx+dLfJhQ7jQFNbKdzKwqB5 +mDcg+QoDFnOkHYeOkCEyNyKGS1wCJCTsmqi7eOG/qWs/8kpk4dQnu4D2fd2o +mJ9nopOHCeWXA8L6mW3ot4t4Qdg+Jtgd23VxfWQzGp08l/MwiQl3hPz5epc+ +ou6sYbZmHxNc3VwP8yjVIonSqUN2iizQKqgy12JWIrm2/g9t51iQU6152eV6 +CQp+mY3tLWHBW1RlWfgtDzXYZT75ibEhrFHD17Y0E3Uzbwd0m7Ph05v7/ruy +05GmElXy0F020J6e4PlPJg0dtPo0rj7AhvzLxaNJ6DFyfZ+++aECB0ZbBsVO +1t9DzecZanGeHJjrI2sIHExEH4RqEyWLOLB9x4zQi8A4NIylFk0eosCkwKmC +PYsjqGoBW42NU6D2HIT+1R1D0YFcMiiACtGOLpaB/D9RpwyJ2WVBg9zZhAnl +SF7wCfnA+32MBhD7fnwkgQxpPI4ucRfpoBDitxysgQF+y+5fuxAOzTOB06UB +GFwsmT6Nkon55UvvW2+DgdR8H4/2NgYUiFr6TDWQYfF4mp0gDwdaikRue+9I +Rnqs3RRnMw6oMc+eeHLwNgpKz9jQksgBycCSwkNNN1DTjKeD3wAHTh3t/qGU +FI2MvO1Hk6zoYNlLbZ2jYxCedZs6NkwHI5tMi1kfDKjcm53aL+GQzIo+Y+eG +wdVRm8RBIQZ8Ux5f8FwkA3ei63jYAzqQpj0Z9gcweOEn/7NaFYfTAjLZFy9j +MOib7ZZaicPyxiGVrzoYfBo0qlWY48BmyW32W25HotNaK6r1GAX6a9ibOvxG +0DrVDP0diRRg+qvaFfqMIm9xj9+ym6jwyhQu6ZLGkW699z/7Yips6Pr5OvbP +T7QsSu0vMxSGTpnWkfM7p5CTadmxxD5hkOWrWegan0aj727HapwTh1t65WYG +ntwgTfotPboiDjMOx+rEm3lAKCX7QMgtGsQXGts8XkOGlkDcaECJDhRU1/x6 +lAzrxO2fXSmgg3/gTh2b4xgI3C16emsvDjuMjY2DCT8P7Jjjn+7FwSIjPFZQ +CYN0v0QxNV8GWKBPdcKuZHizv7tfU0gC9gV6upju5YWAwZKIfYWyYPuXfTj1 +ZTfibkn7LraKCTaa3+arvNqQQyEeLbaHCVcUSeZ4fTOaD904qJ3ABO6OTp52 +h0YUxBRI9e9kguPGD4pzIbVoONMrd5ZD6Lt/fvj9U5UoMvnjRUE3FhgKEQnp +XwmKLLUSuVfAgmWX6WJd7Xw0v5AbEc7Nhowqqvxj7iz0OI6nADdhg6/deetA +pQzElulV/ZHIhrWvfEmrL6Sh/sSDtr09bDiK3bW1DHqM4tvv/PrO4sBU7e+g +Se37SILq3KbgzgGjLeVHrF8lIuP4/ctbczlwMvh79oOGONQppBXLNqfA4m2h +oqtjI2j0xdmLlwcocPjZZy2BDWNoeYeShZU3FfiKSwOrRsfRdsmoG2YmNGhV +Y+/O8OUFMVrthuABQs/cB6yo18kQ+4hj8tmDDnMU9bH1yhio9U5cO8qDAzPW +eoMPkf+/rtV+cfIWDkcy304Z2WGQN7sy8nwDA37ItwRs7SBDyGOl5kwSB/jC +uJqbfJOR83blltdGHNBKP2FlUnobNeovNbjEc4Btrtq3TiIBmfms1Eb3cEBv +oSTbRDIGKVNlPnSa08GCeilSmYpB6l/5RPc+OmhE/9Ia9sTAxzIgbcUThx5N +LasFIg8whvz89vAwgHut0y0yLwY/t25oqL9JB7qJbKXXHgyqy3POmWzAwe2i +SMocwRfjD1zpDYU4uHQf97hmRORDp5ZNu6Y5IFubnFYjFoV6Q/Ue+jbQ4fO9 +G2cDXTHQmZeQM3HAAZ3vNOU+j8GKebOfBQ0HQVePN0kE3jq3xxvoz3FwR103 +n1licMZ1TdSpGTogsX+KsYTev8rsU8gMxqHqq4X7SWcMolVuO+lo4aDS9/ZM +DKE/++1L7UUXif/fstkhRSoSHdc2fniSmwJmPXW/bnqNoOcCDlzn4yjQoqOU +Hek6ipS8Q2Iy1lPh8HDumvyZMXTPU+cXdz4V/qXwcXP9+Imm4nfL8+gJQyWP +7ozjlikUaG55bUOXMAy3hZS1906jgFPzc59cxWGdn+v3NEduMAsoamf9FYeX +7Y3Z9Boe6HVTOdUaT/j/lsRFZS4y1DYuqF9ToMPIo84QfyI/P9V8NlqZTQfd +7GO5DUT/S3WPv1c0xaFb7cJ3x0sYNBzi9ed04uBZYFS+bwsGd3Rt+wM9GbBB +YW94kCcZKpK5I1r5JGCbpNnnJmtesLQ9YiuVLwtSp3YfHWrvRs/UL9hnrcjC +haB/pusetKEk+3u+XcZMYIz1ZHSMNqMAy4hF4XgmVL16rmOc2IjaO+6fkm5n +wtQ+wW/fsmtR46vc7yUsFgzpZ/MywyoRCta1eHaaBYOtD2M37CxFsXUvaDp5 +LFBX15cMP5uPovUL/lmtZgPbfdj8oXwW4q7b0VpgyAb7gJGIvc4ZCL/zviw9 +gQ2OJ5qcE1LSkJwaXfxtFxu2SNEuU9Meo6cOcZZhshzo85Wy/eF/H5X3rH02 +68qBZpXdlQttiYi/5daW4iwObBNg11B/xaHP1PC/JcYUoLgPllZ8G0H+19jq +RT0U4C2xP1snNYayb8PE4FkqMMw0nkl0jaNTdw+YhurTQLukvL3xDC8MftXX ++tJDg9lKrsOrA8kQNMm9w+sMHVY/am+w3oTB+1Vq1Q9JOCj1mEynEv24kT9c +Nx+Pw4rLB/ccBwy4PYWO9MoxIOyYgopiHxkatCfDg1fYUG5po/LpVjK6VK6g +dsCAA7PR1bM7Z28jT5En97fHcqD8k+OubzoJSChfd4nWxYHU/vSk13YxSO7Y +v4KLJnS4PG5Bey2AgaqUe/vbTjqkOUVsVffAYP0KpybOHYemisU/yUTtdDJ8 +/AqJAftsNCMV1hD58TJ/sWscHTyHNDttjDGw+L6UFSWHQ6QUVzIfkSeXPV42 +HMvFIfrik99vTDGgvKA71ExwYHkfV1SnRRRyfRXRX1hDhxUt+GB3GoPZ5Pe7 +e4/i4CF94ZqRLwaRnvR3iSI4bEpa9NQk+ForZmzy6ikOuWovj3pbYbAUs7/p +2U86XHn7wWQvsd7W5rrh7is4rBvr2OTugoHEoa8vgjRwcA1WKBYh9gs/4b75 +YJ4Dvrb3+p7bRKLDMyLB3JY4+Fyt5w73w+BZYZo2gx8H0U34xvUEv2ltXw9s +HKSDK/PhnkveGKg/OLOZbwsOcts6D9YQeGeVItSFJXGYcjB80knUXw3fG7P/ +0EFO+utoFoFHouyXI+nioEb+XT9B6G+8tN+m8GVi3rhbemQHItBXnbMtyqsp +UCio2nrp3AiamS/qF42hgNjo5cYrjqMIexrb7SVPhQLJkISVsTFUW6Pg1ppD +haOBOVeMen6ikU/HjNO0hcHTb02Uk+IUEvgkLTbXLgz3LWVF+tqmUW2hvOKD +0+Kwedt0Sos9N5x8J5VT9kccWm23XEoo5wH9Zg/3gFgaqNSref1a4YUK75E3 +B+ToEJL+0qx7gAyuDfVrTmbSQc9sROziMeI+aNstZo1waNNKm2ki5nNmnVBu +aRvxfpvsPu5M+A1VQcdA7hwD3s38tVc9T8xnTdKxp2QJMLANJEXY8gIwXtZw +58nCF663fg8mu9HfUXvpq8uyEGsgJ9Ga2YZUtvW4lRgxYS5UR7X+bzOq2KF5 +fTGWCTG6Gl0ybxrR1Zwf+lOtTHDLK9Wbr69F5c8PLT9hsmCV4MjDC3cqUdL5 +gDJvZxYszU8GvzpciuIbDzDEclmg2LP4Z09oPmp3LdSAVWyY9qv+pqqRhXIH +W0+EGbCBdVUrc/B6BhJtywuJu8GGx+IP1JaK0lBdsJ/nnU422E3sU7+e/xhl +pEXy2sgQ/mhGShS6dx+J6h2P7XThwLrMfy+HfyaiUS9N4yuZHAiXVq515o1H +e0XebI40pIDVu88i430jqNo9YJ11FwV69fr4c2hjKLbWeMfLM1RYb2i1z/Lz +OPLvzFXg6NFgvcDPiTZnXjDdHWLg30UDPmq5psclMgQkzmbqudJhn6Mociby +VMQN6yFYoYN2XE+ZKtGP8chi64pYHF6fTecbIPKYovK6m75sBlw/sRwtQfTT +PW7v0JllNvhUSco4piWjYF72EFufA+4awkE9QndQ9YW5YMkYws9K93acOJiA +Jqx+iPV2cCDlv0frb12NQTK8k1tNjeggILBD+CQ/Bouv4xf2t9Oh3Uktw/Ic +kX+bFw7auOGQePRarAvh99HseI7ECg5WqaY1GYLE+1/ur8quGDpUeqoUVxsS +/n9e5ssmNuHv6ysCMEIvDhpcPrI+Gwd10XcvtcwwmDIuvhj5kwMO7o6GiV5R +SEXr9eojVYQ/9+Dh+oQfm3knfUmzIfC/N/cPEPw/wLOrdzsVh91sKCIRfGSO +SnZ5P8YhImcyrdkag0pZnymjMTpI7iltTiHyQP5mm3ahyzjofODvO03khW/D +XA2c7ThwTTfrmBD7Z3TTMo7/4QAvS7LpiF8kyqoeEm3cj0OjWG4xP5Fv3U3r +HYrJOGQq3VL5TPC7z4nbu7GfDvwBb6tzvDD4tzl+74uNOOyx9wkdIPC2l2RY +Z+E4jITqq7wj6rTOIZeqWeI+NU1jOIRe1DzyNngEOCh//ZWmQ+iPR5mEofkS +B4Q8LsUdIEWiZXfhlJXVRB55zysmTJwXdaAjflwBh7va3a+4iPur6v9997cY +8R7aqMpwI/Atq4rDvu3AwdhRQuYLgdevECTjJ4DDziY9cV+iPidgIuSkjIPl +dwYlhVj//I6j+DlpHJaCxEnTRJ0Z0CZatcIB4+tsOcr7CPQ/iVYy3A== + "], {{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwl1He4zmUYB/BjO/be69h7NZBNQ/YWoTJS1rGiJKusaKlQFGWvlpkyiuxK +kVREGQ0RyUiSz3354/N+v8/9XOe8v/Fcb1KP5LYDUyQkJIzwEVnJx+/yXUbR +hltoZp6ez/XXSSYllc1Oy/d4irbcSnPzRL7QZzOIVFQx+0O+z2jacRstzDPw +pT6HwaSmqtkZ+QFjaM/tpKGavbNyFWPpQA3SUt3en3I14+hITdKRnkQykJFM +ZCZL3Ku/OyfXMJ5O1CJr3Je983ItT3Mfd9DSPCP79DcYQra4L7O/5DqeoTO1 +aWWeia/0NxlK9rgvswtyPRPoEt9hlpvv9cXUobV1Zr7W5zKMrtb5+VFfTo54 +FtZ/yw+ZyIPWhflZvz+uR8/DD3pfWYYlei+ZxCl9gCxP3TgLMguD2G/9qCzN +MOZZ95BFGcIJ6/6yHMN5zLqbLMBgjlr3k2VjjxXWD8sSDOVX6ziYFcgZ705e +lBt4RC/FJP0hWYTj8Qzimel5OawvpbdenF/0enE+9awc0N+ip16Mk/pwuusF +OaavJFe8f+tL8iMmx33E8zPLxxF9GfXjLFtn4xv9bUaQO86I2WX5MVPiO2hA +njgP9q7IjTzLAzQkL/nITwEKUojCFKEoxUiiOCXibPhf/8hNTI33TSNKUtfe +VbmZafHcaEypeC72/pVbeC7eI3dSOu7L3jX5Cc/H8+IuysQ92PtPfsoLcW64 +m7JxD/auy628GO+BeygX12Tvf7mNl+K904TycU3xI8RnYjp9uJcKcU3xG8V2 +/eU4BzSlYlyTeUp26K/E2aQZleKazFOxU381zjrNqRzXZJ6aXfqMOJO0oL1Z +dg7q83mcKnGdZmnYrc+kPy3pYJaDb/UFPEHVuHaztOzRZzGAVnSMc80hfSEj +qRb3Y5aOvfprDKQ1ncxy8Z2+iCfjrFgX4if9nXhWekl+05NlxRQ3f9erW98A +DjyeCA== + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgEAURMEvGtiGrWhgYmQJBsKBcOAJtq8GgpkNTLLw2OmWPK9nFVGa +iJhSOdY7PlU/1d4zj/2Qt7yn50/xDo7jOI7jOI7jOI7jOI7jOI7jOI7jOI7j +OI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7j+D+/AG5e77g= + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVV3c4le8bP2Wcl9A5Rs55j3kGkhYSKs9tZEeDIiU0EFJWUqRC9krS1kCL +yl6ZWRHfJHtEysxKIqPf+/vrve7rep7Pc73PfX/GI+vgvv/kahKJdH4VifT/ +7xG9RD4SiQKx0jpHnc+MoJ3fxcoyIymwfeJDa4DDKBpsvrN+B4cKi1GZOnu+ +j6FZxtqhtCwq1Em+605q+YkGKH5uRkgYuHqofWfYU+jW/tHUslZhKKgczxj9 +bxrlTBqpSpwQgZsRoTd/5/1CdzsyvPYsi4DpGm+9Pvk5ZOvOH5B1QxSsNRq1 +24fnUbidZdeytBjEXd2u4VaxiPwfpIxJ5ouB3ewqVCz6D3Vs/27O1F8H9GbB ++ityq0DYn+Fv82kdjPWILXEVrgaRtYeOnnYSh+OBMpR/NtxwaelK3NHf4lCy +eZPSmmIeSFfL9JWLpkFcnU9+xl9eKJboUGCz6fBgwS1/21cyqNhOKvG+oYNE +c1os0xYDj3H+wXcGOPwOTWnZ6o8BvVVs0voLDpSaMH4/VQxCBeTS688wwCZg +9+ZePzJ8mVBS9eCRAOWG/kbt47wQrsRauxwnAZmz9+bvivEAOU/q/lFFSUgr +f2952J0Lxu/xXX6cLwlcN9o1hEpXwetNY+sl9KTg6VPxt2PcJNAQbL7u0iUF +WgfbT03qLSElg2caD52kYX/iYk9w2zz69UPbvIUkA0Y7l1fl7/+NEGnDqV8m +MlDvyd8izJpBqGZNGne8DDTt5CmCbxPoiap7OalXBhzSb7zyfzuCisw/8Eyy +ZUFI8NVaA6/vqKIsOeP8aVmQe7jO4kRHP1JqX9gyliML5RhkneDtQSb3jXv2 +LsnCaLFUYUpNG2rEpI4/MmSCLL97ai3/Z8TDHBEejGGC9GKt4poPjWhD3Gb5 +8i9MmDxe6SjzrRZlp86LhsmywOBc2LW+l5VoxrlASdeJBVGXok8bXShFNz4v +SQ5nsyCyc+mtfHI+Yt0o8pQnseHzpERPh3EWciR5/LLSZ0PjsyHrxNQMtFb0 +pal3PBveM/YE+janIdcvXU3XOthwVSajTuDDY5Q3fj1PSZoDh2te/2dReB+d +epHrW3aaA4bbbeXGuW6hOrGe4/pvOZAwPaDaSo9HzT2qi//+cUCF7m8klRqB +GkRbT1jrUyC7Uy2J0T2CKEfaZ+faKRA1ctvoufAYcv1jEXrOlQqTF5PTE+vH +kUui3gvfBSo0GV4wZy5NoOKtyvw8EcLALEhv75iYQnKyd9zOSIoAb9sfwfKC +GVQb7PrnW4Y46A0VePxH5YEEOs5ToU2D/iES6j7BC9nPq/ZyOmgwWFll1+1L +Bt9dg4pip+mwLWsbv6ciBvs5/tjAIh1O7PINKrqIgb597EhENA4HDbXDsJMY +7J2WbBRmMkD+0old2HcyZPg/n5IqZECeSUOnGjH/bwSfPcozkYAvMQY7NN/z +QLEmkyzVIQvS1R4ZJ4w7kcABVZkLTCbARd47r0y+oNM3uYp0XJmQenfo9xvZ +TyjJWuB+cyYTprceneXLrEdTDFGplEUmFFbYFu5nVaMDWIfMDz0W8PB92ka5 +U44qpGxSbkazIKQpJkaiswjZqHTXXu9kgXtt7eLcxxxUVZeoAiw2XBc5MsxS +eYt2hAvJOLqyYb0nMyyR/BKVeOlGL+WwgT6xIfbA+hQk3P9W12qJDcNqtrvX +5CWjaBPppDk9DvBzC+Umrb+DaF+NznBFc+AjderzvHMCalwI3fyknQMFSdMv +Hj+NQQlKanlKLAqE+ibFmj8eQaky5ztbMinwoMrW0iN3FCl8/2PVakiFL2Z7 +i3dZjKMtHc8NY1upIF9QKP/5+AQyl23dIX9SGLidVu4VhUyhXg2dcPG/wqC9 +3e7dK50ZdOaDvWJahDg8mvap3pbPDdgas/oYBg12Grj8eSbMC1umigZTsmhA +j9+nEbiTDHh673MJAzooirGvi2EYVGjn4rNf6FATXLTJ9SwG3akff7BdcFgt +78q1xQuD7G+3bXMXcZCV2qi4iYIBo2rIzDuBAWee9Ol67SKDTsDoaIKCBDx0 +Xir4T4wXvPiE7gXVyILpMY0a8qMupORbunJiLRN8+GIFV19tRRJNlLUeh5kQ +cL037AKlGTW++3vI5hETBMdIHmGqH1F06yNm1jATMlarj5dfqEFBbcN3tquw +wKTPZkHyXgU6rMfv7HqRBc25dYIO996h89dcf+XVsEDkyYBWilIe8tr0/HMW +lQ1Vty4vpm7PRPt2l/HZWbOB5LRms3jdK3RK7/xP9adscD+YvUfBKxWhrmq+ +iVE2jBaqBXEVPELMe5/TqMoEf6Oiu99/u4vQ7sBf9pc4oKr5MWdL+k3UQM6q +m33PAcfquDmv8VjEvewtHOJMAcdZrjwRiVHkd0tjLf0fBS6bJZUHnB9Db/gy +8wRiqdBZ8sX4gclPJKPwQ2vWkQYa9NcrZpm8oH68qfjpCg22Jrazr74mQ+vH +kZeCUXQYKlno2GCAwQCmN9cki4OknI0RKRCDN4wD4zNvcfDb5G9VbY7B+Mqj +Xe6GDFCNYsUrZ5Fh8Mc9/wpBDlxsXOP2NuQh+vv3dGjXIQ5QcrUKFMOT0JSf +yMjThxwo0zsVsVXjBvpvzPbmvnEOPFbOz/NMiEK+6qfsEqkU0Jx4Rnt6fQRN +X9X/WPmQAjvZcZ3eEaOI94hRObadCgGT0oPFjHEU79ctLlFFhSXpjULijAlE +oz+zUN8vDBEP3pd1W0whTf1EmuuwMASxgxdk+WZQmWt3JeYnDn5xwYbO4dxQ +weWU4YPRwOhF00D/EA+cEcnb9COZBqFlcgPaEmQYG7RxTt5Gh0+m6+I/z5Lh +b1Mza7mCDq3DUVYcJwzSjFxPnrPGYfi4gLjPBQx+dLfJhQ7jQFNbKdzKwqB5 +mDcg+QoDFnOkHYeOkCEyNyKGS1wCJCTsmqi7eOG/qWs/8kpk4dQnu4D2fd2o +mJ9nopOHCeWXA8L6mW3ot4t4Qdg+Jtgd23VxfWQzGp08l/MwiQl3hPz5epc+ +ou6sYbZmHxNc3VwP8yjVIonSqUN2iizQKqgy12JWIrm2/g9t51iQU6152eV6 +CQp+mY3tLWHBW1RlWfgtDzXYZT75ibEhrFHD17Y0E3Uzbwd0m7Ph05v7/ruy +05GmElXy0F020J6e4PlPJg0dtPo0rj7AhvzLxaNJ6DFyfZ+++aECB0ZbBsVO +1t9DzecZanGeHJjrI2sIHExEH4RqEyWLOLB9x4zQi8A4NIylFk0eosCkwKmC +PYsjqGoBW42NU6D2HIT+1R1D0YFcMiiACtGOLpaB/D9RpwyJ2WVBg9zZhAnl +SF7wCfnA+32MBhD7fnwkgQxpPI4ucRfpoBDitxysgQF+y+5fuxAOzTOB06UB +GFwsmT6Nkon55UvvW2+DgdR8H4/2NgYUiFr6TDWQYfF4mp0gDwdaikRue+9I +Rnqs3RRnMw6oMc+eeHLwNgpKz9jQksgBycCSwkNNN1DTjKeD3wAHTh3t/qGU +FI2MvO1Hk6zoYNlLbZ2jYxCedZs6NkwHI5tMi1kfDKjcm53aL+GQzIo+Y+eG +wdVRm8RBIQZ8Ux5f8FwkA3ei63jYAzqQpj0Z9gcweOEn/7NaFYfTAjLZFy9j +MOib7ZZaicPyxiGVrzoYfBo0qlWY48BmyW32W25HotNaK6r1GAX6a9ibOvxG +0DrVDP0diRRg+qvaFfqMIm9xj9+ym6jwyhQu6ZLGkW699z/7Yips6Pr5OvbP +T7QsSu0vMxSGTpnWkfM7p5CTadmxxD5hkOWrWegan0aj727HapwTh1t65WYG +ntwgTfotPboiDjMOx+rEm3lAKCX7QMgtGsQXGts8XkOGlkDcaECJDhRU1/x6 +lAzrxO2fXSmgg3/gTh2b4xgI3C16emsvDjuMjY2DCT8P7Jjjn+7FwSIjPFZQ +CYN0v0QxNV8GWKBPdcKuZHizv7tfU0gC9gV6upju5YWAwZKIfYWyYPuXfTj1 +ZTfibkn7LraKCTaa3+arvNqQQyEeLbaHCVcUSeZ4fTOaD904qJ3ABO6OTp52 +h0YUxBRI9e9kguPGD4pzIbVoONMrd5ZD6Lt/fvj9U5UoMvnjRUE3FhgKEQnp +XwmKLLUSuVfAgmWX6WJd7Xw0v5AbEc7Nhowqqvxj7iz0OI6nADdhg6/deetA +pQzElulV/ZHIhrWvfEmrL6Sh/sSDtr09bDiK3bW1DHqM4tvv/PrO4sBU7e+g +Se37SILq3KbgzgGjLeVHrF8lIuP4/ctbczlwMvh79oOGONQppBXLNqfA4m2h +oqtjI2j0xdmLlwcocPjZZy2BDWNoeYeShZU3FfiKSwOrRsfRdsmoG2YmNGhV +Y+/O8OUFMVrthuABQs/cB6yo18kQ+4hj8tmDDnMU9bH1yhio9U5cO8qDAzPW +eoMPkf+/rtV+cfIWDkcy304Z2WGQN7sy8nwDA37ItwRs7SBDyGOl5kwSB/jC +uJqbfJOR83blltdGHNBKP2FlUnobNeovNbjEc4Btrtq3TiIBmfms1Eb3cEBv +oSTbRDIGKVNlPnSa08GCeilSmYpB6l/5RPc+OmhE/9Ia9sTAxzIgbcUThx5N +LasFIg8whvz89vAwgHut0y0yLwY/t25oqL9JB7qJbKXXHgyqy3POmWzAwe2i +SMocwRfjD1zpDYU4uHQf97hmRORDp5ZNu6Y5IFubnFYjFoV6Q/Ue+jbQ4fO9 +G2cDXTHQmZeQM3HAAZ3vNOU+j8GKebOfBQ0HQVePN0kE3jq3xxvoz3FwR103 +n1licMZ1TdSpGTogsX+KsYTev8rsU8gMxqHqq4X7SWcMolVuO+lo4aDS9/ZM +DKE/++1L7UUXif/fstkhRSoSHdc2fniSmwJmPXW/bnqNoOcCDlzn4yjQoqOU +Hek6ipS8Q2Iy1lPh8HDumvyZMXTPU+cXdz4V/qXwcXP9+Imm4nfL8+gJQyWP +7ozjlikUaG55bUOXMAy3hZS1906jgFPzc59cxWGdn+v3NEduMAsoamf9FYeX +7Y3Z9Boe6HVTOdUaT/j/lsRFZS4y1DYuqF9ToMPIo84QfyI/P9V8NlqZTQfd +7GO5DUT/S3WPv1c0xaFb7cJ3x0sYNBzi9ed04uBZYFS+bwsGd3Rt+wM9GbBB +YW94kCcZKpK5I1r5JGCbpNnnJmtesLQ9YiuVLwtSp3YfHWrvRs/UL9hnrcjC +haB/pusetKEk+3u+XcZMYIz1ZHSMNqMAy4hF4XgmVL16rmOc2IjaO+6fkm5n +wtQ+wW/fsmtR46vc7yUsFgzpZ/MywyoRCta1eHaaBYOtD2M37CxFsXUvaDp5 +LFBX15cMP5uPovUL/lmtZgPbfdj8oXwW4q7b0VpgyAb7gJGIvc4ZCL/zviw9 +gQ2OJ5qcE1LSkJwaXfxtFxu2SNEuU9Meo6cOcZZhshzo85Wy/eF/H5X3rH02 +68qBZpXdlQttiYi/5daW4iwObBNg11B/xaHP1PC/JcYUoLgPllZ8G0H+19jq +RT0U4C2xP1snNYayb8PE4FkqMMw0nkl0jaNTdw+YhurTQLukvL3xDC8MftXX ++tJDg9lKrsOrA8kQNMm9w+sMHVY/am+w3oTB+1Vq1Q9JOCj1mEynEv24kT9c +Nx+Pw4rLB/ccBwy4PYWO9MoxIOyYgopiHxkatCfDg1fYUG5po/LpVjK6VK6g +dsCAA7PR1bM7Z28jT5En97fHcqD8k+OubzoJSChfd4nWxYHU/vSk13YxSO7Y +v4KLJnS4PG5Bey2AgaqUe/vbTjqkOUVsVffAYP0KpybOHYemisU/yUTtdDJ8 +/AqJAftsNCMV1hD58TJ/sWscHTyHNDttjDGw+L6UFSWHQ6QUVzIfkSeXPV42 +HMvFIfrik99vTDGgvKA71ExwYHkfV1SnRRRyfRXRX1hDhxUt+GB3GoPZ5Pe7 +e4/i4CF94ZqRLwaRnvR3iSI4bEpa9NQk+ForZmzy6ikOuWovj3pbYbAUs7/p +2U86XHn7wWQvsd7W5rrh7is4rBvr2OTugoHEoa8vgjRwcA1WKBYh9gs/4b75 +YJ4Dvrb3+p7bRKLDMyLB3JY4+Fyt5w73w+BZYZo2gx8H0U34xvUEv2ltXw9s +HKSDK/PhnkveGKg/OLOZbwsOcts6D9YQeGeVItSFJXGYcjB80knUXw3fG7P/ +0EFO+utoFoFHouyXI+nioEb+XT9B6G+8tN+m8GVi3rhbemQHItBXnbMtyqsp +UCio2nrp3AiamS/qF42hgNjo5cYrjqMIexrb7SVPhQLJkISVsTFUW6Pg1ppD +haOBOVeMen6ikU/HjNO0hcHTb02Uk+IUEvgkLTbXLgz3LWVF+tqmUW2hvOKD +0+Kwedt0Sos9N5x8J5VT9kccWm23XEoo5wH9Zg/3gFgaqNSref1a4YUK75E3 +B+ToEJL+0qx7gAyuDfVrTmbSQc9sROziMeI+aNstZo1waNNKm2ki5nNmnVBu +aRvxfpvsPu5M+A1VQcdA7hwD3s38tVc9T8xnTdKxp2QJMLANJEXY8gIwXtZw +58nCF663fg8mu9HfUXvpq8uyEGsgJ9Ga2YZUtvW4lRgxYS5UR7X+bzOq2KF5 +fTGWCTG6Gl0ybxrR1Zwf+lOtTHDLK9Wbr69F5c8PLT9hsmCV4MjDC3cqUdL5 +gDJvZxYszU8GvzpciuIbDzDEclmg2LP4Z09oPmp3LdSAVWyY9qv+pqqRhXIH +W0+EGbCBdVUrc/B6BhJtywuJu8GGx+IP1JaK0lBdsJ/nnU422E3sU7+e/xhl +pEXy2sgQ/mhGShS6dx+J6h2P7XThwLrMfy+HfyaiUS9N4yuZHAiXVq515o1H +e0XebI40pIDVu88i430jqNo9YJ11FwV69fr4c2hjKLbWeMfLM1RYb2i1z/Lz +OPLvzFXg6NFgvcDPiTZnXjDdHWLg30UDPmq5psclMgQkzmbqudJhn6Mociby +VMQN6yFYoYN2XE+ZKtGP8chi64pYHF6fTecbIPKYovK6m75sBlw/sRwtQfTT +PW7v0JllNvhUSco4piWjYF72EFufA+4awkE9QndQ9YW5YMkYws9K93acOJiA +Jqx+iPV2cCDlv0frb12NQTK8k1tNjeggILBD+CQ/Bouv4xf2t9Oh3Uktw/Ic +kX+bFw7auOGQePRarAvh99HseI7ECg5WqaY1GYLE+1/ur8quGDpUeqoUVxsS +/n9e5ssmNuHv6ysCMEIvDhpcPrI+Gwd10XcvtcwwmDIuvhj5kwMO7o6GiV5R +SEXr9eojVYQ/9+Dh+oQfm3knfUmzIfC/N/cPEPw/wLOrdzsVh91sKCIRfGSO +SnZ5P8YhImcyrdkag0pZnymjMTpI7iltTiHyQP5mm3ahyzjofODvO03khW/D +XA2c7ThwTTfrmBD7Z3TTMo7/4QAvS7LpiF8kyqoeEm3cj0OjWG4xP5Fv3U3r +HYrJOGQq3VL5TPC7z4nbu7GfDvwBb6tzvDD4tzl+74uNOOyx9wkdIPC2l2RY +Z+E4jITqq7wj6rTOIZeqWeI+NU1jOIRe1DzyNngEOCh//ZWmQ+iPR5mEofkS +B4Q8LsUdIEWiZXfhlJXVRB55zysmTJwXdaAjflwBh7va3a+4iPur6v9997cY +8R7aqMpwI/Atq4rDvu3AwdhRQuYLgdevECTjJ4DDziY9cV+iPidgIuSkjIPl +dwYlhVj//I6j+DlpHJaCxEnTRJ0Z0CZatcIB4+tsOcr7CPQ/iVYy3A== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1He4zmUYB/BjO/be69h7NZBNQ/YWoTJS1rGiJKusaKlQFGWvlpkyiuxK +kVREGQ0RyUiSz3354/N+v8/9XOe8v/Fcb1KP5LYDUyQkJIzwEVnJx+/yXUbR +hltoZp6ez/XXSSYllc1Oy/d4irbcSnPzRL7QZzOIVFQx+0O+z2jacRstzDPw +pT6HwaSmqtkZ+QFjaM/tpKGavbNyFWPpQA3SUt3en3I14+hITdKRnkQykJFM +ZCZL3Ku/OyfXMJ5O1CJr3Je983ItT3Mfd9DSPCP79DcYQra4L7O/5DqeoTO1 +aWWeia/0NxlK9rgvswtyPRPoEt9hlpvv9cXUobV1Zr7W5zKMrtb5+VFfTo54 +FtZ/yw+ZyIPWhflZvz+uR8/DD3pfWYYlei+ZxCl9gCxP3TgLMguD2G/9qCzN +MOZZ95BFGcIJ6/6yHMN5zLqbLMBgjlr3k2VjjxXWD8sSDOVX6ziYFcgZ705e +lBt4RC/FJP0hWYTj8Qzimel5OawvpbdenF/0enE+9awc0N+ip16Mk/pwuusF +OaavJFe8f+tL8iMmx33E8zPLxxF9GfXjLFtn4xv9bUaQO86I2WX5MVPiO2hA +njgP9q7IjTzLAzQkL/nITwEKUojCFKEoxUiiOCXibPhf/8hNTI33TSNKUtfe +VbmZafHcaEypeC72/pVbeC7eI3dSOu7L3jX5Cc/H8+IuysQ92PtPfsoLcW64 +m7JxD/auy628GO+BeygX12Tvf7mNl+K904TycU3xI8RnYjp9uJcKcU3xG8V2 +/eU4BzSlYlyTeUp26K/E2aQZleKazFOxU381zjrNqRzXZJ6aXfqMOJO0oL1Z +dg7q83mcKnGdZmnYrc+kPy3pYJaDb/UFPEHVuHaztOzRZzGAVnSMc80hfSEj +qRb3Y5aOvfprDKQ1ncxy8Z2+iCfjrFgX4if9nXhWekl+05NlxRQ3f9erW98A +DjyeCA== + "], 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]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 3.062518358321375}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8Vf8fx28Z9xC618i955p3IEmFrMrnbWRHgyIlo0JIGSVFGspeSdoa +aFHZKzMr4ptkj4jMrKRk9Du/v87j+Tifz/t8zuf9er0+H1knr73HVpNIpLOr +SKT/Pw8ZJPKRSBSIldY77HZyFH3VO9WispoChYJqrRdOjyJnXdOHx7gpYNFT +9/Om7yg6obOiVo9RoL+GrdwRMIr8NY87JFIpoD35jPb0+ihKUFLPU2JRINQ/ +Kdby8ShqEG09amtIgexO9SRG9yjaLfJmU6QxBWzefRaZ6BtFn6nhf0tMKUDx +Giyt+DaKOoV0YtmWFFi8LVR0eXwUjWCpRVMHKDAlcLxg1+Io4l72E77mRgGX +Oa48EYkxtH1IrCwzkgIakx9ag5zG0Oyfon7RGAqIjV1svOQyhp4LOHGdjaNA +i55SdqTHGFqnlmG4LZECzEA1h8IzY2jmsuHHyocU2M6O6/SLGEOpMmc7WzIp +8KDK3to7dwxRDrXPzbdTIGr0tslz4XFU7RW0zraLAr0Gffw5tHEUeIWtWdRD +Ad4Sx1N1UuNo7MWp8xcHKHDw2WcdgQ3jqGoBW41NUKD2NIT+1R9HAbe01tL/ +UeCiRVJ50NlxNNh8Z/02DhUWozL1dg2NI+xpbLevPBUKJK8lrIyPIyW/azEZ +66lwcCR3Tf7sOPIT9/4lq0yFV+ZwQZ80gXgPmZRjGlQImpIeLGZMIIWh3zat +xlT4YrG7eIfVBPL4bRV62oMKU+eT0xPrJ1Bsrem2lyepsN7YZo/15wmUfRsm +B09RgWGh9UyiawItb1OysvGjAl9xaXDV2ASKDuaSQUFUiHZxtw7m/4He8GXm +CcRSobPki+kDsx9ojrF2OC2LCnWS77qTWn6g2hoFz9YcKhwOzrlk0vMD3fPR ++8mdT4V/KXzcXN9/IP16v3+OxVTY0PXjdezvHyg+oFtcoooKS9IbhcQZk2hz +x3Pj2FYqyBcUyn92nkTuiQYv/Beo0GR8zpK5NIkGKAGeJkgYuHqofSfZ02j0 +0xHTNF1h8AlYE+WqOI2m43fK8xgIQyWP/qzL5mm0LErtLzMWhk6Z1tGz26cR +jf7MSnOvMEQ8eF/WbTWNLGVbt8kfEwZu15V7RdemUfEWFX6eCGFgFqS3d0xO +o1t7x1LLWoWhoHIiY+y/GSTwSVpsvl0Y7lvLivS1zaBgS+srG7qEYaTtWll7 +7wxyNS87ktgnDLJ8NQtdEzNI2zCR5jEiDFfZIQuyfLOoV0svXPyvMOhqOLx7 +pTeL5GTveJ6UFAHett+C5QWzKGfKRE3iqAjcjAi9+SvvJ7rbkeG7a1kEzNf4 +GfTJzyN7L/6grBuiYKvVqNs+8geFO1h3LUuLQdxlDS3PikUU+CBlXDJfDBzm +VqFi0X+oQ2PIkmm4DujNgvWX5FaBcCAj0O7TOhjvEVviKlwNImsPHD7hKg7O +wTKUf3bcUFsor/jghDhs2jqT0uLIDUHH/8x/8hCHdQEeQ2ku3DD27nas1mlx +uGVQbmHkww1lHt2VWIA4BMSFGLuFc8PJD46KaRHi8GjmTPXWfKJeiMfvbxni +YDBc4P0flQcuLF2KO/xLHEo2KSutKeaBY++kcsp+i0Or/eYLCeU8YBFU1M76 +Kw4v2xuz6TU8IE36JT22Ig6zTkfqxJt5oILLNeMMRgOTF00D/cM8gK2xqI9h +0GC7kfvvZ8K8kEDHeSp0adA/TELdR3khsDNXgWNAg/UCPybb3Hjh+N195qGG +NNAtKW9vPMkLGpJRNyzMaNCqzt6Z4c9L6ITE7LKiQe5cwqRKJC/IKHzXmXOh +gRb99YpFJi+kq2f6y0XTIK7uTH7GX14wbPb2CoqlgWq9uu/PFV7o9VQ93hpP +jN+cuKjCRQahlOx9127RIL7Q1O7xGjKcFMlT/p5Mg9AyuQFdCTJsni4aTMmi +AT1+j1bwdjJkP6/azemgwWBllUO3PxnMd14zCuyiAR+1XNv7AhkGvxrqfOmh +wVwl18HVwWQQo9VuCBkg6nkN2FCvk+HMtQ+8Q+M0gNj3E6MJZNB0bip+ukKD +LYnt7MuvyVAs0aHAZtPhwYJn/tavZKjwG32zT44O19JfWnQPkKG2cUHzigId +Rh91XgscIkNLMG4yoEQHCqprfj1GhvFBO7fkrXT4ZL4u/vMcGfD03ucSRnRQ +FGNfF8MwkOGd2mJuQgcBgW3Cx/gxkDvyr+C8GR0uTljRXgtgoEKV+dBpSQcr +6oVIFSoGJn6OY0k2dLDupbbO0zHw3zGoKHaCDluztvL7KGIQlDiXaeBBhz0u +oshNCYOrU9zbfE/SYfWj9gZbZQxiH3HMPnvTYZ6iOb5eBYM0Hhf3uPN0ULgW +sByihUHrx9GXglF0GC5Z6NhghEG33F/VHTF0qPRRLa42xmDgIn+xRxwdfIa1 +O+1MMfixZUND/U060M1kK313YcCd6DER9oAOpBkfhuM+DFTtp5R439BBojkt +lmmPgUdD/ZpjmXQwsBgVO38Eg6faz8Yqs+mgn30kt8EBg3Xijs8uFdAhMHi7 +np0zBn+bmlnLFXRoHYmy4bgS9XRerz5URQfUg4cbuhH1XkX0F9bQYUUHPjic +wKA31OChfwMdPt+7cSrYA4MK3Vx87gsdakKKlD1OYbD4On5hbzsd2l3VM6xP +Y6Am5dX+tpMOaa4RWzS9MUj9K5/o1UcHreifOiM+GPS5cvs19tOBP+htdY4v +BrS2r/s2DtLBg/lw1wU/DMKzblPHR+hgYpdpNXcGg0rZM9Mm43SQ3FXanHIW +g6WYvU3PftDh0tsPZrv9MTjpsSbq+CyxfrF/irHniP3vHHavmiP6r20ewwnA +4Kvxe1P2bzrISX8dyyJ4LycQG1ikw9Ed/leLzmMQccN2GFbooBvXU6Z2AYP3 +q9SrH5JwUOoxm0kleNlLOGVlNQ5V73nFhAMxUO+dvHKYBwdmrO2GMwR7mdc7 +FZNxyFS6pfqZ4GeFaboMfhxElfGN64Mw6Fe4KhMggMP2JgNxf4LxWw7/2oVw +aJ4NnikleB/Pjl4NKg472VBEuohBpA/9XaIIDspJiz7aBFf1/7r7SwwHyY1q +DE+CVyybA6xoOAh6eL9JIlijJMM2C8dhNNRQ9R3Bp5QiNIUlcZh2Mn7SSfDz +Oy7ip6VxWLoqTpoheAAzmG+SJerJ2ZmQgjFgnJX5oszGwXN9RRBGsNXQUlaU +HA6RUlzJfARH7euIn1DA4a5u9ysugqvLc06bbSDGnxdJmSfq/dsUv/vFRhx2 +OZ4JHSBY88HJTXybcZDb2rm/huDTAmZCrio4WA8xKCkEvwiQ/1GthsMJAZns +8wR/G+Fq4GjgwDXTrGdGsMSBry+uauHgEaJQLEKwdVVx2LdtOJi6SMh8IfYr +WvW2q54ODqp9b0/GEFzzyM/oEeCg8vVnmh7BJMpeOZI+DurkX/WTRD+8J/gH +3xnh8Cs0pWULwTSahtWcCQ5tOmmzTUR/S/Wd3yua49Ctfm7IhWCBu0VPb+3G +YZupqWkIoY+s6mHRxr04NIrlFvMTfHBWJITbGoczl+u5wwk9pZl4HDtti8OI +s4D4GUJ/Fn5JX9LscLAZau4fIPQ5l/x+Z+9hHLylz10xIVjvj4ScmRMO6Gyn +OTeh5+7Uj9/Z7jislvfg2kz44XLzwn47TxwSD1+JdSf8sn6FUxPnhUNTxeLv +ZMJPZ6yD0lZ8cOjR1rFZIPxH5d7k2n4Bh2RW9EkHTwzyN9m1C13EQe8Df98J +wq/2dteNd17CYd14h7KXOwavMvsUMkMIPX+18jpG+N3QMXY0IhqH/ca6Ydgx +DCYii20rYnF4fSqdb4DIixv5I3V/4nFYcf/gleNE+Gmt7otjt3A4lPl22oTI +l/MlMydQMqEnvvS+9XYYMMcku/we4xCRM5XWbItBrZip2aunOOSqvzzsZ0Pk +kefjDfTnOHihrpvPrDF4w9g3MfsWhwDlQJtqSwz2G108tD4bB03Rdy91LAj/ +eb9sOJKLQ/T5J7/emGNg+oErvaEQB/duZ+8rJhgM+md7plbisLxxWPWrHgb0 +VrEp2y84UGrC+APUMJhdJ5Rb2oaD7FS3sxuRzw0HeAM5nTj4FJiU79mMQXDH +PP9MLw5WGeGxgkS+f+9ukwsdwYGmvlK4hYVB9rfb9rmLxHypjYrKFEJ/7HiO +xArR31TzmgxBDFyPhU9cIjFgj512pMIawk/DAQG7eBjAvdb1FpmX6OeYXeKg +EAO+qUws+CySYfeMZKMwkwHyF47uwIjzTVFl3U1/NgOuH12OliDOP24foUO9 +cgwIO6KgqthHhry5ldHnGxjwXb4laEsHGaT+9PHobmVAgaj1mekGMkysPNrh +ZcwAtShWvEoWGUIF5NLrTzLALmjnpt4AMlAV9IzkTjPg3exfR7WzZLijb98f +7MOADQq7w6/6kCE9IFFM3Z8BVuhTnbAHGZpHeIOSLzFgMUfaZfgQGRhVwxZ+ +CQw4+aRP33cHGTICn09LFTIgz6yhU524f3yZVFLz5pEAlYb+Rl1nXmioSTry +lCwBRvbBpAh7XqhI5o5o5ZOArZIWn5tseeHN3u5+bSEJ2BPs426+mxcicyNi +uMQlQELCoYm6gxf0gsbGEhQk4KHbUsF/YsR4wWeP8swk4EuM0Tbt9zwQrsRa +uxwnAZlz9/7cFeMBcp7U/cOKkpBW/t76oBcXTNzju/g4XxK4brRrCZWugtfK +4+slDKTg6VPxt+PcJNASbL7u3iUFOvvbj08ZLCElo2daD12lYW/iYk9I2x/0 +87uuZQtJBky2L6/K3/sLIdKG4z/NZKDeh79FmDWLUM2aNO54GWjazlME3ybR +EzWvclKvDDil33gV+HYUFVl+4Jliy4KQ4Ku1Rr5DqKIsOePsCVmQe7jO6mhH +P1JqX9g8niML5US0HOXtQcB4WcOdJwtfuN4GPJjqRtb2h+yl8mVB6vjOw8Pt +3ShosCRiT6Es2P9lH0x92Y3+m77yPa9EFo5/cghq39ONfPmE7l2tkQXzI1o1 +5EddqFibSZbqkAXpau+Mo6adyOy+ac/uJVkYK5YqTKlpQ3/HHKUvL8tCrJGc +RGtmG3qmec4xa0UWzl39Z77uQRvibkkbElvFBDvtb3+qfNtQMT/PZCcPE8ov +BoX1M9uQkn/pytG1TDjDFyu4+nIrEtinJnOOyQQ4z3vnldkX1IhJOT8yZoIs +v1dqLf9npLq1x7PEhAnzoXpq9X+bUZLjPf8uUyYwxnsyOsaakVMhHi22iwmX +FEmWeH0z+uUuXhC2hwkOR3acXx/ZjCSaKGu9DzIh6Hpv2DlKMzpxk6tIz4MJ +qXeHf72R/YR4mKPCgzFMkF6sVVzzoRFVbNO+vhjLhBh9rS6ZN40oyDpiUTie +CVWvnuuZJjaiP6EbB3UTmMDd0cnT7tSIxqZO5zxMYsIdoUC+3qWPqPHd3wN2 +j5ggOE7yDlP7iJJsBe43ZzJhZsvhOb7MerQhbpN8+RcmTDlXush8q0WXc74b +TrcywTOv1OBPfS1q77h/XLqdCdN7BL99y65FV5kCqYGdTHDZ+EFx/lot6s4a +YWv3McHD0+Mgj1Itim59xMwaYULGas2J8nM1aJohKpWyyITCCvvCvaxqlJ36 +RzRMlgVGp8Ou9L2sROXPDyw/YbJgleDow3N3KlHjq9yhEhYLhg2zeZlhlWgk +0zd3jsMCs8D88PvHK5FE6fQBB0UW6BRUWeowK9HVtpE7GqrE+z67Bcl7FWgf +1iHz3YAFPHyftlLulKNZtwIlfVcWRF2IPmFyrhQlnQ0q83NjwdKfqZBXB0sR +CtG3enaCBYOtD2M3bC9Fkckfzwt6ssBYSJUe+K8EybX1f2g7zYKcau2L7tdL +0EEDfjeP8yxozq0TdLr3DlVI2aXcjGbBtaaYGInOInTj85LkSDYLIjuX3son +56P4xn0MsVwWKPYs/t4Vmo9i617Q9PJYoKlpKBl+Kh9FltqI3CtgwbL7TLG+ +bj4KeZmN7S5hwVtUZV34LQ+dveLxM6+GBSJPBnRSlPKQnWp37fVOFnjV1i7O +f8xBrBtFPvIkNnyekujpMM1C7R6FWrCKDTMB1d/UtLJQtGHBP5vVbGB7jVg+ +lM9CfxZyI8K52ZBRRZV/zJ2FGhwyn/zA2BDWqOVvX5qJfJWff86isqHq1sXF +VI1MVFWXqAosNlwXOTTCUn2LXEjeP20M2dD4bNg2MTUD5Q62Hg0zYgPrsk7m +4PUMxF23rbXAmA2OQaMRu90y0OM4ngLcjA3+Dmdtg5UyUDfzdlC3JRs+vbkf +uCM7He3ZWcbnYMsGkuuaTeJ1r9C2cCEZFw82rPdhhiWSX6K1oi/N/eLZ8J6x +K9i/OQ2JtuVdi7vBhsfiD9SXitIQfud9WXoCG1yONrklpKQhtkyv2vdENqx9 +5U9afS4NaStRJQ/cZQPt6VGe/2TS0HGDsz80n7LBa3/2LgXfVFTiqx+9lMMG ++uSG2H3rU5DHl66mKx1suCyTUSfw4TGqCwnwudPJBofJPZrX8x8jOXW6+Nsu +NmyWol2kpj1G/Yn77Xt72HAYu2tvffUx2m/zaUJzgA35F4vHktBjhLqq+SbH +2DBWqH6Vq+AREu5/q2+zxIYRdfuda/KSkVfc7uGTy2w4UyUp45KWjBp0p8JD +VthQbm2n+ulWMrr2WKk5k8QBvjCu5ib/ZLTonOYgyMOBliKR237bktHg93uB +FYIcON+4xvPttYcob+J6npI0Bw7WvP7PqvA+ykiL5LWTIeZbkBKF7t1HT53i +rMNkOdDnL2X/PfA+im+/83OIxYHp2l9Xp3TvI4/36ZseKnBgrGVQ7Fj9PcS8 +9zmNqsIB46jo7vff7qJoM+mkeQMO8HML5Satv4NCeNnDbEMOeGkJX+0RuoMu +lCuo7zPiwFx09dz2udvITUOl5bUJB3TSj9qYld5GBqydFDcLDqgzTx19sv82 ++vv3RGjXAQ5QcnUKFMOT0PEXuf5lJ4jvadjLTXDdQqIGzrGd7hxYl/nv5ciP +RFTes/bZnAcHmlV3Vi60JSIJqlubghcHTDaXH7J9lYiazzLU43w4MN9H1hLY +n4jQzuCfjhc4oKb9MWdz+k1E+2pykiuaAx+p05//uCWg6nPzIZIxHDAo3d1x +dH8C8hF5cl8jlgPln1x2fNNLQI2GSw3u8RxgW6r1rZNIQFfTMza0JHJAMrik +8EDTDTQdIDL69CEHygyOR2zRuoHqxHqcDd9yIGFmQK2VHo/GfLVNL2VyIFxa +pdaNNx7xt9zaXJzFga0C7BrqzzhkGr93eUsuB46FDGU/aIhDH4RqEyWLOKCx +bVboRXAcaiBn1c2954BLddy870QsalwI3fSknQMFSTMvHj+NQZM238V6OziQ +8t+j9bcuxyChfP0lWhcHUvvTk147xCCLMyu10T3E/y2UZJtJxqCmWR+ngAEO +HD/c/V0pKRr9N25/c88EBx6r5Of5JEShadPi85E/OODk5WKc6BuFKC/oTjWT +HFjewxXVaRWFdru2KO+Y4YBsbXJajVgU+jRoUqswz4FNklsdN9+ORLP6aRnO +vznAy5JsOhQQiYSfcN988IcD/vb3+p7bRaK9jqWOoovEejZvckqRikTeZRLG +lkscEPK+ELePFInipQOUw5cJfXK39MgORKDMoDbRqhUOmF5ny1HeR6DmHrXF +f/84QKSziVRqBPofyP4y3A== + "]]}, "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., 3.062518358321375}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8Vf8fx28Z9xC618i955p3IEmFrMrnbWRHgyIlo0JIGSVFGspeSdoa +aFHZKzMr4ptkj4jMrKRk9Du/v87j+Tifz/t8zuf9er0+H1knr73HVpNIpLOr +SKT/Pw8ZJPKRSBSIldY77HZyFH3VO9WispoChYJqrRdOjyJnXdOHx7gpYNFT +9/Om7yg6obOiVo9RoL+GrdwRMIr8NY87JFIpoD35jPb0+ihKUFLPU2JRINQ/ +Kdby8ShqEG09amtIgexO9SRG9yjaLfJmU6QxBWzefRaZ6BtFn6nhf0tMKUDx +Giyt+DaKOoV0YtmWFFi8LVR0eXwUjWCpRVMHKDAlcLxg1+Io4l72E77mRgGX +Oa48EYkxtH1IrCwzkgIakx9ag5zG0Oyfon7RGAqIjV1svOQyhp4LOHGdjaNA +i55SdqTHGFqnlmG4LZECzEA1h8IzY2jmsuHHyocU2M6O6/SLGEOpMmc7WzIp +8KDK3to7dwxRDrXPzbdTIGr0tslz4XFU7RW0zraLAr0Gffw5tHEUeIWtWdRD +Ad4Sx1N1UuNo7MWp8xcHKHDw2WcdgQ3jqGoBW41NUKD2NIT+1R9HAbe01tL/ +UeCiRVJ50NlxNNh8Z/02DhUWozL1dg2NI+xpbLevPBUKJK8lrIyPIyW/azEZ +66lwcCR3Tf7sOPIT9/4lq0yFV+ZwQZ80gXgPmZRjGlQImpIeLGZMIIWh3zat +xlT4YrG7eIfVBPL4bRV62oMKU+eT0xPrJ1Bsrem2lyepsN7YZo/15wmUfRsm +B09RgWGh9UyiawItb1OysvGjAl9xaXDV2ASKDuaSQUFUiHZxtw7m/4He8GXm +CcRSobPki+kDsx9ojrF2OC2LCnWS77qTWn6g2hoFz9YcKhwOzrlk0vMD3fPR ++8mdT4V/KXzcXN9/IP16v3+OxVTY0PXjdezvHyg+oFtcoooKS9IbhcQZk2hz +x3Pj2FYqyBcUyn92nkTuiQYv/Beo0GR8zpK5NIkGKAGeJkgYuHqofSfZ02j0 +0xHTNF1h8AlYE+WqOI2m43fK8xgIQyWP/qzL5mm0LErtLzMWhk6Z1tGz26cR +jf7MSnOvMEQ8eF/WbTWNLGVbt8kfEwZu15V7RdemUfEWFX6eCGFgFqS3d0xO +o1t7x1LLWoWhoHIiY+y/GSTwSVpsvl0Y7lvLivS1zaBgS+srG7qEYaTtWll7 +7wxyNS87ktgnDLJ8NQtdEzNI2zCR5jEiDFfZIQuyfLOoV0svXPyvMOhqOLx7 +pTeL5GTveJ6UFAHett+C5QWzKGfKRE3iqAjcjAi9+SvvJ7rbkeG7a1kEzNf4 +GfTJzyN7L/6grBuiYKvVqNs+8geFO1h3LUuLQdxlDS3PikUU+CBlXDJfDBzm +VqFi0X+oQ2PIkmm4DujNgvWX5FaBcCAj0O7TOhjvEVviKlwNImsPHD7hKg7O +wTKUf3bcUFsor/jghDhs2jqT0uLIDUHH/8x/8hCHdQEeQ2ku3DD27nas1mlx +uGVQbmHkww1lHt2VWIA4BMSFGLuFc8PJD46KaRHi8GjmTPXWfKJeiMfvbxni +YDBc4P0flQcuLF2KO/xLHEo2KSutKeaBY++kcsp+i0Or/eYLCeU8YBFU1M76 +Kw4v2xuz6TU8IE36JT22Ig6zTkfqxJt5oILLNeMMRgOTF00D/cM8gK2xqI9h +0GC7kfvvZ8K8kEDHeSp0adA/TELdR3khsDNXgWNAg/UCPybb3Hjh+N195qGG +NNAtKW9vPMkLGpJRNyzMaNCqzt6Z4c9L6ITE7LKiQe5cwqRKJC/IKHzXmXOh +gRb99YpFJi+kq2f6y0XTIK7uTH7GX14wbPb2CoqlgWq9uu/PFV7o9VQ93hpP +jN+cuKjCRQahlOx9127RIL7Q1O7xGjKcFMlT/p5Mg9AyuQFdCTJsni4aTMmi +AT1+j1bwdjJkP6/azemgwWBllUO3PxnMd14zCuyiAR+1XNv7AhkGvxrqfOmh +wVwl18HVwWQQo9VuCBkg6nkN2FCvk+HMtQ+8Q+M0gNj3E6MJZNB0bip+ukKD +LYnt7MuvyVAs0aHAZtPhwYJn/tavZKjwG32zT44O19JfWnQPkKG2cUHzigId +Rh91XgscIkNLMG4yoEQHCqprfj1GhvFBO7fkrXT4ZL4u/vMcGfD03ucSRnRQ +FGNfF8MwkOGd2mJuQgcBgW3Cx/gxkDvyr+C8GR0uTljRXgtgoEKV+dBpSQcr +6oVIFSoGJn6OY0k2dLDupbbO0zHw3zGoKHaCDluztvL7KGIQlDiXaeBBhz0u +oshNCYOrU9zbfE/SYfWj9gZbZQxiH3HMPnvTYZ6iOb5eBYM0Hhf3uPN0ULgW +sByihUHrx9GXglF0GC5Z6NhghEG33F/VHTF0qPRRLa42xmDgIn+xRxwdfIa1 +O+1MMfixZUND/U060M1kK313YcCd6DER9oAOpBkfhuM+DFTtp5R439BBojkt +lmmPgUdD/ZpjmXQwsBgVO38Eg6faz8Yqs+mgn30kt8EBg3Xijs8uFdAhMHi7 +np0zBn+bmlnLFXRoHYmy4bgS9XRerz5URQfUg4cbuhH1XkX0F9bQYUUHPjic +wKA31OChfwMdPt+7cSrYA4MK3Vx87gsdakKKlD1OYbD4On5hbzsd2l3VM6xP +Y6Am5dX+tpMOaa4RWzS9MUj9K5/o1UcHreifOiM+GPS5cvs19tOBP+htdY4v +BrS2r/s2DtLBg/lw1wU/DMKzblPHR+hgYpdpNXcGg0rZM9Mm43SQ3FXanHIW +g6WYvU3PftDh0tsPZrv9MTjpsSbq+CyxfrF/irHniP3vHHavmiP6r20ewwnA +4Kvxe1P2bzrISX8dyyJ4LycQG1ikw9Ed/leLzmMQccN2GFbooBvXU6Z2AYP3 +q9SrH5JwUOoxm0kleNlLOGVlNQ5V73nFhAMxUO+dvHKYBwdmrO2GMwR7mdc7 +FZNxyFS6pfqZ4GeFaboMfhxElfGN64Mw6Fe4KhMggMP2JgNxf4LxWw7/2oVw +aJ4NnikleB/Pjl4NKg472VBEuohBpA/9XaIIDspJiz7aBFf1/7r7SwwHyY1q +DE+CVyybA6xoOAh6eL9JIlijJMM2C8dhNNRQ9R3Bp5QiNIUlcZh2Mn7SSfDz +Oy7ip6VxWLoqTpoheAAzmG+SJerJ2ZmQgjFgnJX5oszGwXN9RRBGsNXQUlaU +HA6RUlzJfARH7euIn1DA4a5u9ysugqvLc06bbSDGnxdJmSfq/dsUv/vFRhx2 +OZ4JHSBY88HJTXybcZDb2rm/huDTAmZCrio4WA8xKCkEvwiQ/1GthsMJAZns +8wR/G+Fq4GjgwDXTrGdGsMSBry+uauHgEaJQLEKwdVVx2LdtOJi6SMh8IfYr +WvW2q54ODqp9b0/GEFzzyM/oEeCg8vVnmh7BJMpeOZI+DurkX/WTRD+8J/gH +3xnh8Cs0pWULwTSahtWcCQ5tOmmzTUR/S/Wd3yua49Ctfm7IhWCBu0VPb+3G +YZupqWkIoY+s6mHRxr04NIrlFvMTfHBWJITbGoczl+u5wwk9pZl4HDtti8OI +s4D4GUJ/Fn5JX9LscLAZau4fIPQ5l/x+Z+9hHLylz10xIVjvj4ScmRMO6Gyn +OTeh5+7Uj9/Z7jislvfg2kz44XLzwn47TxwSD1+JdSf8sn6FUxPnhUNTxeLv +ZMJPZ6yD0lZ8cOjR1rFZIPxH5d7k2n4Bh2RW9EkHTwzyN9m1C13EQe8Df98J +wq/2dteNd17CYd14h7KXOwavMvsUMkMIPX+18jpG+N3QMXY0IhqH/ca6Ydgx +DCYii20rYnF4fSqdb4DIixv5I3V/4nFYcf/gleNE+Gmt7otjt3A4lPl22oTI +l/MlMydQMqEnvvS+9XYYMMcku/we4xCRM5XWbItBrZip2aunOOSqvzzsZ0Pk +kefjDfTnOHihrpvPrDF4w9g3MfsWhwDlQJtqSwz2G108tD4bB03Rdy91LAj/ +eb9sOJKLQ/T5J7/emGNg+oErvaEQB/duZ+8rJhgM+md7plbisLxxWPWrHgb0 +VrEp2y84UGrC+APUMJhdJ5Rb2oaD7FS3sxuRzw0HeAM5nTj4FJiU79mMQXDH +PP9MLw5WGeGxgkS+f+9ukwsdwYGmvlK4hYVB9rfb9rmLxHypjYrKFEJ/7HiO +xArR31TzmgxBDFyPhU9cIjFgj512pMIawk/DAQG7eBjAvdb1FpmX6OeYXeKg +EAO+qUws+CySYfeMZKMwkwHyF47uwIjzTVFl3U1/NgOuH12OliDOP24foUO9 +cgwIO6KgqthHhry5ldHnGxjwXb4laEsHGaT+9PHobmVAgaj1mekGMkysPNrh +ZcwAtShWvEoWGUIF5NLrTzLALmjnpt4AMlAV9IzkTjPg3exfR7WzZLijb98f +7MOADQq7w6/6kCE9IFFM3Z8BVuhTnbAHGZpHeIOSLzFgMUfaZfgQGRhVwxZ+ +CQw4+aRP33cHGTICn09LFTIgz6yhU524f3yZVFLz5pEAlYb+Rl1nXmioSTry +lCwBRvbBpAh7XqhI5o5o5ZOArZIWn5tseeHN3u5+bSEJ2BPs426+mxcicyNi +uMQlQELCoYm6gxf0gsbGEhQk4KHbUsF/YsR4wWeP8swk4EuM0Tbt9zwQrsRa +uxwnAZlz9/7cFeMBcp7U/cOKkpBW/t76oBcXTNzju/g4XxK4brRrCZWugtfK +4+slDKTg6VPxt+PcJNASbL7u3iUFOvvbj08ZLCElo2daD12lYW/iYk9I2x/0 +87uuZQtJBky2L6/K3/sLIdKG4z/NZKDeh79FmDWLUM2aNO54GWjazlME3ybR +EzWvclKvDDil33gV+HYUFVl+4Jliy4KQ4Ku1Rr5DqKIsOePsCVmQe7jO6mhH +P1JqX9g8niML5US0HOXtQcB4WcOdJwtfuN4GPJjqRtb2h+yl8mVB6vjOw8Pt +3ShosCRiT6Es2P9lH0x92Y3+m77yPa9EFo5/cghq39ONfPmE7l2tkQXzI1o1 +5EddqFibSZbqkAXpau+Mo6adyOy+ac/uJVkYK5YqTKlpQ3/HHKUvL8tCrJGc +RGtmG3qmec4xa0UWzl39Z77uQRvibkkbElvFBDvtb3+qfNtQMT/PZCcPE8ov +BoX1M9uQkn/pytG1TDjDFyu4+nIrEtinJnOOyQQ4z3vnldkX1IhJOT8yZoIs +v1dqLf9npLq1x7PEhAnzoXpq9X+bUZLjPf8uUyYwxnsyOsaakVMhHi22iwmX +FEmWeH0z+uUuXhC2hwkOR3acXx/ZjCSaKGu9DzIh6Hpv2DlKMzpxk6tIz4MJ +qXeHf72R/YR4mKPCgzFMkF6sVVzzoRFVbNO+vhjLhBh9rS6ZN40oyDpiUTie +CVWvnuuZJjaiP6EbB3UTmMDd0cnT7tSIxqZO5zxMYsIdoUC+3qWPqPHd3wN2 +j5ggOE7yDlP7iJJsBe43ZzJhZsvhOb7MerQhbpN8+RcmTDlXush8q0WXc74b +TrcywTOv1OBPfS1q77h/XLqdCdN7BL99y65FV5kCqYGdTHDZ+EFx/lot6s4a +YWv3McHD0+Mgj1Itim59xMwaYULGas2J8nM1aJohKpWyyITCCvvCvaxqlJ36 +RzRMlgVGp8Ou9L2sROXPDyw/YbJgleDow3N3KlHjq9yhEhYLhg2zeZlhlWgk +0zd3jsMCs8D88PvHK5FE6fQBB0UW6BRUWeowK9HVtpE7GqrE+z67Bcl7FWgf +1iHz3YAFPHyftlLulKNZtwIlfVcWRF2IPmFyrhQlnQ0q83NjwdKfqZBXB0sR +CtG3enaCBYOtD2M3bC9Fkckfzwt6ssBYSJUe+K8EybX1f2g7zYKcau2L7tdL +0EEDfjeP8yxozq0TdLr3DlVI2aXcjGbBtaaYGInOInTj85LkSDYLIjuX3son +56P4xn0MsVwWKPYs/t4Vmo9i617Q9PJYoKlpKBl+Kh9FltqI3CtgwbL7TLG+ +bj4KeZmN7S5hwVtUZV34LQ+dveLxM6+GBSJPBnRSlPKQnWp37fVOFnjV1i7O +f8xBrBtFPvIkNnyekujpMM1C7R6FWrCKDTMB1d/UtLJQtGHBP5vVbGB7jVg+ +lM9CfxZyI8K52ZBRRZV/zJ2FGhwyn/zA2BDWqOVvX5qJfJWff86isqHq1sXF +VI1MVFWXqAosNlwXOTTCUn2LXEjeP20M2dD4bNg2MTUD5Q62Hg0zYgPrsk7m +4PUMxF23rbXAmA2OQaMRu90y0OM4ngLcjA3+Dmdtg5UyUDfzdlC3JRs+vbkf +uCM7He3ZWcbnYMsGkuuaTeJ1r9C2cCEZFw82rPdhhiWSX6K1oi/N/eLZ8J6x +K9i/OQ2JtuVdi7vBhsfiD9SXitIQfud9WXoCG1yONrklpKQhtkyv2vdENqx9 +5U9afS4NaStRJQ/cZQPt6VGe/2TS0HGDsz80n7LBa3/2LgXfVFTiqx+9lMMG ++uSG2H3rU5DHl66mKx1suCyTUSfw4TGqCwnwudPJBofJPZrX8x8jOXW6+Nsu +NmyWol2kpj1G/Yn77Xt72HAYu2tvffUx2m/zaUJzgA35F4vHktBjhLqq+SbH +2DBWqH6Vq+AREu5/q2+zxIYRdfuda/KSkVfc7uGTy2w4UyUp45KWjBp0p8JD +VthQbm2n+ulWMrr2WKk5k8QBvjCu5ib/ZLTonOYgyMOBliKR237bktHg93uB +FYIcON+4xvPttYcob+J6npI0Bw7WvP7PqvA+ykiL5LWTIeZbkBKF7t1HT53i +rMNkOdDnL2X/PfA+im+/83OIxYHp2l9Xp3TvI4/36ZseKnBgrGVQ7Fj9PcS8 +9zmNqsIB46jo7vff7qJoM+mkeQMO8HML5Satv4NCeNnDbEMOeGkJX+0RuoMu +lCuo7zPiwFx09dz2udvITUOl5bUJB3TSj9qYld5GBqydFDcLDqgzTx19sv82 ++vv3RGjXAQ5QcnUKFMOT0PEXuf5lJ4jvadjLTXDdQqIGzrGd7hxYl/nv5ciP +RFTes/bZnAcHmlV3Vi60JSIJqlubghcHTDaXH7J9lYiazzLU43w4MN9H1hLY +n4jQzuCfjhc4oKb9MWdz+k1E+2pykiuaAx+p05//uCWg6nPzIZIxHDAo3d1x +dH8C8hF5cl8jlgPln1x2fNNLQI2GSw3u8RxgW6r1rZNIQFfTMza0JHJAMrik +8EDTDTQdIDL69CEHygyOR2zRuoHqxHqcDd9yIGFmQK2VHo/GfLVNL2VyIFxa +pdaNNx7xt9zaXJzFga0C7BrqzzhkGr93eUsuB46FDGU/aIhDH4RqEyWLOKCx +bVboRXAcaiBn1c2954BLddy870QsalwI3fSknQMFSTMvHj+NQZM238V6OziQ +8t+j9bcuxyChfP0lWhcHUvvTk147xCCLMyu10T3E/y2UZJtJxqCmWR+ngAEO +HD/c/V0pKRr9N25/c88EBx6r5Of5JEShadPi85E/OODk5WKc6BuFKC/oTjWT +HFjewxXVaRWFdru2KO+Y4YBsbXJajVgU+jRoUqswz4FNklsdN9+ORLP6aRnO +vznAy5JsOhQQiYSfcN988IcD/vb3+p7bRaK9jqWOoovEejZvckqRikTeZRLG +lkscEPK+ELePFInipQOUw5cJfXK39MgORKDMoDbRqhUOmF5ny1HeR6DmHrXF +f/84QKSziVRqBPofyP4y3A== + "]]}, "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:eJwVV3c4le8bP2Wcl9A5Rs55j3kGkhYSKs9tZEeDIiU0EFJWUqRC9krS1kCL +yl6ZWRHfJHtEysxKIqPf+/vrve7rep7Pc73PfX/GI+vgvv/kahKJdH4VifT/ +7xG9RD4SiQKx0jpHnc+MoJ3fxcoyIymwfeJDa4DDKBpsvrN+B4cKi1GZOnu+ +j6FZxtqhtCwq1Em+605q+YkGKH5uRkgYuHqofWfYU+jW/tHUslZhKKgczxj9 +bxrlTBqpSpwQgZsRoTd/5/1CdzsyvPYsi4DpGm+9Pvk5ZOvOH5B1QxSsNRq1 +24fnUbidZdeytBjEXd2u4VaxiPwfpIxJ5ouB3ewqVCz6D3Vs/27O1F8H9GbB ++ityq0DYn+Fv82kdjPWILXEVrgaRtYeOnnYSh+OBMpR/NtxwaelK3NHf4lCy +eZPSmmIeSFfL9JWLpkFcnU9+xl9eKJboUGCz6fBgwS1/21cyqNhOKvG+oYNE +c1os0xYDj3H+wXcGOPwOTWnZ6o8BvVVs0voLDpSaMH4/VQxCBeTS688wwCZg +9+ZePzJ8mVBS9eCRAOWG/kbt47wQrsRauxwnAZmz9+bvivEAOU/q/lFFSUgr +f2952J0Lxu/xXX6cLwlcN9o1hEpXwetNY+sl9KTg6VPxt2PcJNAQbL7u0iUF +WgfbT03qLSElg2caD52kYX/iYk9w2zz69UPbvIUkA0Y7l1fl7/+NEGnDqV8m +MlDvyd8izJpBqGZNGne8DDTt5CmCbxPoiap7OalXBhzSb7zyfzuCisw/8Eyy +ZUFI8NVaA6/vqKIsOeP8aVmQe7jO4kRHP1JqX9gyliML5RhkneDtQSb3jXv2 +LsnCaLFUYUpNG2rEpI4/MmSCLL97ai3/Z8TDHBEejGGC9GKt4poPjWhD3Gb5 +8i9MmDxe6SjzrRZlp86LhsmywOBc2LW+l5VoxrlASdeJBVGXok8bXShFNz4v +SQ5nsyCyc+mtfHI+Yt0o8pQnseHzpERPh3EWciR5/LLSZ0PjsyHrxNQMtFb0 +pal3PBveM/YE+janIdcvXU3XOthwVSajTuDDY5Q3fj1PSZoDh2te/2dReB+d +epHrW3aaA4bbbeXGuW6hOrGe4/pvOZAwPaDaSo9HzT2qi//+cUCF7m8klRqB +GkRbT1jrUyC7Uy2J0T2CKEfaZ+faKRA1ctvoufAYcv1jEXrOlQqTF5PTE+vH +kUui3gvfBSo0GV4wZy5NoOKtyvw8EcLALEhv75iYQnKyd9zOSIoAb9sfwfKC +GVQb7PrnW4Y46A0VePxH5YEEOs5ToU2D/iES6j7BC9nPq/ZyOmgwWFll1+1L +Bt9dg4pip+mwLWsbv6ciBvs5/tjAIh1O7PINKrqIgb597EhENA4HDbXDsJMY +7J2WbBRmMkD+0old2HcyZPg/n5IqZECeSUOnGjH/bwSfPcozkYAvMQY7NN/z +QLEmkyzVIQvS1R4ZJ4w7kcABVZkLTCbARd47r0y+oNM3uYp0XJmQenfo9xvZ +TyjJWuB+cyYTprceneXLrEdTDFGplEUmFFbYFu5nVaMDWIfMDz0W8PB92ka5 +U44qpGxSbkazIKQpJkaiswjZqHTXXu9kgXtt7eLcxxxUVZeoAiw2XBc5MsxS +eYt2hAvJOLqyYb0nMyyR/BKVeOlGL+WwgT6xIfbA+hQk3P9W12qJDcNqtrvX +5CWjaBPppDk9DvBzC+Umrb+DaF+NznBFc+AjderzvHMCalwI3fyknQMFSdMv +Hj+NQQlKanlKLAqE+ibFmj8eQaky5ztbMinwoMrW0iN3FCl8/2PVakiFL2Z7 +i3dZjKMtHc8NY1upIF9QKP/5+AQyl23dIX9SGLidVu4VhUyhXg2dcPG/wqC9 +3e7dK50ZdOaDvWJahDg8mvap3pbPDdgas/oYBg12Grj8eSbMC1umigZTsmhA +j9+nEbiTDHh673MJAzooirGvi2EYVGjn4rNf6FATXLTJ9SwG3akff7BdcFgt +78q1xQuD7G+3bXMXcZCV2qi4iYIBo2rIzDuBAWee9Ol67SKDTsDoaIKCBDx0 +Xir4T4wXvPiE7gXVyILpMY0a8qMupORbunJiLRN8+GIFV19tRRJNlLUeh5kQ +cL037AKlGTW++3vI5hETBMdIHmGqH1F06yNm1jATMlarj5dfqEFBbcN3tquw +wKTPZkHyXgU6rMfv7HqRBc25dYIO996h89dcf+XVsEDkyYBWilIe8tr0/HMW +lQ1Vty4vpm7PRPt2l/HZWbOB5LRms3jdK3RK7/xP9adscD+YvUfBKxWhrmq+ +iVE2jBaqBXEVPELMe5/TqMoEf6Oiu99/u4vQ7sBf9pc4oKr5MWdL+k3UQM6q +m33PAcfquDmv8VjEvewtHOJMAcdZrjwRiVHkd0tjLf0fBS6bJZUHnB9Db/gy +8wRiqdBZ8sX4gclPJKPwQ2vWkQYa9NcrZpm8oH68qfjpCg22Jrazr74mQ+vH +kZeCUXQYKlno2GCAwQCmN9cki4OknI0RKRCDN4wD4zNvcfDb5G9VbY7B+Mqj +Xe6GDFCNYsUrZ5Fh8Mc9/wpBDlxsXOP2NuQh+vv3dGjXIQ5QcrUKFMOT0JSf +yMjThxwo0zsVsVXjBvpvzPbmvnEOPFbOz/NMiEK+6qfsEqkU0Jx4Rnt6fQRN +X9X/WPmQAjvZcZ3eEaOI94hRObadCgGT0oPFjHEU79ctLlFFhSXpjULijAlE +oz+zUN8vDBEP3pd1W0whTf1EmuuwMASxgxdk+WZQmWt3JeYnDn5xwYbO4dxQ +weWU4YPRwOhF00D/EA+cEcnb9COZBqFlcgPaEmQYG7RxTt5Gh0+m6+I/z5Lh +b1Mza7mCDq3DUVYcJwzSjFxPnrPGYfi4gLjPBQx+dLfJhQ7jQFNbKdzKwqB5 +mDcg+QoDFnOkHYeOkCEyNyKGS1wCJCTsmqi7eOG/qWs/8kpk4dQnu4D2fd2o +mJ9nopOHCeWXA8L6mW3ot4t4Qdg+Jtgd23VxfWQzGp08l/MwiQl3hPz5epc+ +ou6sYbZmHxNc3VwP8yjVIonSqUN2iizQKqgy12JWIrm2/g9t51iQU6152eV6 +CQp+mY3tLWHBW1RlWfgtDzXYZT75ibEhrFHD17Y0E3Uzbwd0m7Ph05v7/ruy +05GmElXy0F020J6e4PlPJg0dtPo0rj7AhvzLxaNJ6DFyfZ+++aECB0ZbBsVO +1t9DzecZanGeHJjrI2sIHExEH4RqEyWLOLB9x4zQi8A4NIylFk0eosCkwKmC +PYsjqGoBW42NU6D2HIT+1R1D0YFcMiiACtGOLpaB/D9RpwyJ2WVBg9zZhAnl +SF7wCfnA+32MBhD7fnwkgQxpPI4ucRfpoBDitxysgQF+y+5fuxAOzTOB06UB +GFwsmT6Nkon55UvvW2+DgdR8H4/2NgYUiFr6TDWQYfF4mp0gDwdaikRue+9I +Rnqs3RRnMw6oMc+eeHLwNgpKz9jQksgBycCSwkNNN1DTjKeD3wAHTh3t/qGU +FI2MvO1Hk6zoYNlLbZ2jYxCedZs6NkwHI5tMi1kfDKjcm53aL+GQzIo+Y+eG +wdVRm8RBIQZ8Ux5f8FwkA3ei63jYAzqQpj0Z9gcweOEn/7NaFYfTAjLZFy9j +MOib7ZZaicPyxiGVrzoYfBo0qlWY48BmyW32W25HotNaK6r1GAX6a9ibOvxG +0DrVDP0diRRg+qvaFfqMIm9xj9+ym6jwyhQu6ZLGkW699z/7Yips6Pr5OvbP +T7QsSu0vMxSGTpnWkfM7p5CTadmxxD5hkOWrWegan0aj727HapwTh1t65WYG +ntwgTfotPboiDjMOx+rEm3lAKCX7QMgtGsQXGts8XkOGlkDcaECJDhRU1/x6 +lAzrxO2fXSmgg3/gTh2b4xgI3C16emsvDjuMjY2DCT8P7Jjjn+7FwSIjPFZQ +CYN0v0QxNV8GWKBPdcKuZHizv7tfU0gC9gV6upju5YWAwZKIfYWyYPuXfTj1 +ZTfibkn7LraKCTaa3+arvNqQQyEeLbaHCVcUSeZ4fTOaD904qJ3ABO6OTp52 +h0YUxBRI9e9kguPGD4pzIbVoONMrd5ZD6Lt/fvj9U5UoMvnjRUE3FhgKEQnp +XwmKLLUSuVfAgmWX6WJd7Xw0v5AbEc7Nhowqqvxj7iz0OI6nADdhg6/deetA +pQzElulV/ZHIhrWvfEmrL6Sh/sSDtr09bDiK3bW1DHqM4tvv/PrO4sBU7e+g +Se37SILq3KbgzgGjLeVHrF8lIuP4/ctbczlwMvh79oOGONQppBXLNqfA4m2h +oqtjI2j0xdmLlwcocPjZZy2BDWNoeYeShZU3FfiKSwOrRsfRdsmoG2YmNGhV +Y+/O8OUFMVrthuABQs/cB6yo18kQ+4hj8tmDDnMU9bH1yhio9U5cO8qDAzPW +eoMPkf+/rtV+cfIWDkcy304Z2WGQN7sy8nwDA37ItwRs7SBDyGOl5kwSB/jC +uJqbfJOR83blltdGHNBKP2FlUnobNeovNbjEc4Btrtq3TiIBmfms1Eb3cEBv +oSTbRDIGKVNlPnSa08GCeilSmYpB6l/5RPc+OmhE/9Ia9sTAxzIgbcUThx5N +LasFIg8whvz89vAwgHut0y0yLwY/t25oqL9JB7qJbKXXHgyqy3POmWzAwe2i +SMocwRfjD1zpDYU4uHQf97hmRORDp5ZNu6Y5IFubnFYjFoV6Q/Ue+jbQ4fO9 +G2cDXTHQmZeQM3HAAZ3vNOU+j8GKebOfBQ0HQVePN0kE3jq3xxvoz3FwR103 +n1licMZ1TdSpGTogsX+KsYTev8rsU8gMxqHqq4X7SWcMolVuO+lo4aDS9/ZM +DKE/++1L7UUXif/fstkhRSoSHdc2fniSmwJmPXW/bnqNoOcCDlzn4yjQoqOU +Hek6ipS8Q2Iy1lPh8HDumvyZMXTPU+cXdz4V/qXwcXP9+Imm4nfL8+gJQyWP +7ozjlikUaG55bUOXMAy3hZS1906jgFPzc59cxWGdn+v3NEduMAsoamf9FYeX +7Y3Z9Boe6HVTOdUaT/j/lsRFZS4y1DYuqF9ToMPIo84QfyI/P9V8NlqZTQfd +7GO5DUT/S3WPv1c0xaFb7cJ3x0sYNBzi9ed04uBZYFS+bwsGd3Rt+wM9GbBB +YW94kCcZKpK5I1r5JGCbpNnnJmtesLQ9YiuVLwtSp3YfHWrvRs/UL9hnrcjC +haB/pusetKEk+3u+XcZMYIz1ZHSMNqMAy4hF4XgmVL16rmOc2IjaO+6fkm5n +wtQ+wW/fsmtR46vc7yUsFgzpZ/MywyoRCta1eHaaBYOtD2M37CxFsXUvaDp5 +LFBX15cMP5uPovUL/lmtZgPbfdj8oXwW4q7b0VpgyAb7gJGIvc4ZCL/zviw9 +gQ2OJ5qcE1LSkJwaXfxtFxu2SNEuU9Meo6cOcZZhshzo85Wy/eF/H5X3rH02 +68qBZpXdlQttiYi/5daW4iwObBNg11B/xaHP1PC/JcYUoLgPllZ8G0H+19jq +RT0U4C2xP1snNYayb8PE4FkqMMw0nkl0jaNTdw+YhurTQLukvL3xDC8MftXX ++tJDg9lKrsOrA8kQNMm9w+sMHVY/am+w3oTB+1Vq1Q9JOCj1mEynEv24kT9c +Nx+Pw4rLB/ccBwy4PYWO9MoxIOyYgopiHxkatCfDg1fYUG5po/LpVjK6VK6g +dsCAA7PR1bM7Z28jT5En97fHcqD8k+OubzoJSChfd4nWxYHU/vSk13YxSO7Y +v4KLJnS4PG5Bey2AgaqUe/vbTjqkOUVsVffAYP0KpybOHYemisU/yUTtdDJ8 +/AqJAftsNCMV1hD58TJ/sWscHTyHNDttjDGw+L6UFSWHQ6QUVzIfkSeXPV42 +HMvFIfrik99vTDGgvKA71ExwYHkfV1SnRRRyfRXRX1hDhxUt+GB3GoPZ5Pe7 +e4/i4CF94ZqRLwaRnvR3iSI4bEpa9NQk+ForZmzy6ikOuWovj3pbYbAUs7/p +2U86XHn7wWQvsd7W5rrh7is4rBvr2OTugoHEoa8vgjRwcA1WKBYh9gs/4b75 +YJ4Dvrb3+p7bRKLDMyLB3JY4+Fyt5w73w+BZYZo2gx8H0U34xvUEv2ltXw9s +HKSDK/PhnkveGKg/OLOZbwsOcts6D9YQeGeVItSFJXGYcjB80knUXw3fG7P/ +0EFO+utoFoFHouyXI+nioEb+XT9B6G+8tN+m8GVi3rhbemQHItBXnbMtyqsp +UCio2nrp3AiamS/qF42hgNjo5cYrjqMIexrb7SVPhQLJkISVsTFUW6Pg1ppD +haOBOVeMen6ikU/HjNO0hcHTb02Uk+IUEvgkLTbXLgz3LWVF+tqmUW2hvOKD +0+Kwedt0Sos9N5x8J5VT9kccWm23XEoo5wH9Zg/3gFgaqNSref1a4YUK75E3 +B+ToEJL+0qx7gAyuDfVrTmbSQc9sROziMeI+aNstZo1waNNKm2ki5nNmnVBu +aRvxfpvsPu5M+A1VQcdA7hwD3s38tVc9T8xnTdKxp2QJMLANJEXY8gIwXtZw +58nCF663fg8mu9HfUXvpq8uyEGsgJ9Ga2YZUtvW4lRgxYS5UR7X+bzOq2KF5 +fTGWCTG6Gl0ybxrR1Zwf+lOtTHDLK9Wbr69F5c8PLT9hsmCV4MjDC3cqUdL5 +gDJvZxYszU8GvzpciuIbDzDEclmg2LP4Z09oPmp3LdSAVWyY9qv+pqqRhXIH +W0+EGbCBdVUrc/B6BhJtywuJu8GGx+IP1JaK0lBdsJ/nnU422E3sU7+e/xhl +pEXy2sgQ/mhGShS6dx+J6h2P7XThwLrMfy+HfyaiUS9N4yuZHAiXVq515o1H +e0XebI40pIDVu88i430jqNo9YJ11FwV69fr4c2hjKLbWeMfLM1RYb2i1z/Lz +OPLvzFXg6NFgvcDPiTZnXjDdHWLg30UDPmq5psclMgQkzmbqudJhn6Mociby +VMQN6yFYoYN2XE+ZKtGP8chi64pYHF6fTecbIPKYovK6m75sBlw/sRwtQfTT +PW7v0JllNvhUSco4piWjYF72EFufA+4awkE9QndQ9YW5YMkYws9K93acOJiA +Jqx+iPV2cCDlv0frb12NQTK8k1tNjeggILBD+CQ/Bouv4xf2t9Oh3Uktw/Ic +kX+bFw7auOGQePRarAvh99HseI7ECg5WqaY1GYLE+1/ur8quGDpUeqoUVxsS +/n9e5ssmNuHv6ysCMEIvDhpcPrI+Gwd10XcvtcwwmDIuvhj5kwMO7o6GiV5R +SEXr9eojVYQ/9+Dh+oQfm3knfUmzIfC/N/cPEPw/wLOrdzsVh91sKCIRfGSO +SnZ5P8YhImcyrdkag0pZnymjMTpI7iltTiHyQP5mm3ahyzjofODvO03khW/D +XA2c7ThwTTfrmBD7Z3TTMo7/4QAvS7LpiF8kyqoeEm3cj0OjWG4xP5Fv3U3r +HYrJOGQq3VL5TPC7z4nbu7GfDvwBb6tzvDD4tzl+74uNOOyx9wkdIPC2l2RY +Z+E4jITqq7wj6rTOIZeqWeI+NU1jOIRe1DzyNngEOCh//ZWmQ+iPR5mEofkS +B4Q8LsUdIEWiZXfhlJXVRB55zysmTJwXdaAjflwBh7va3a+4iPur6v9997cY +8R7aqMpwI/Atq4rDvu3AwdhRQuYLgdevECTjJ4DDziY9cV+iPidgIuSkjIPl +dwYlhVj//I6j+DlpHJaCxEnTRJ0Z0CZatcIB4+tsOcr7CPQ/iVYy3A== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1He4zmUYB/BjO/be69h7NZBNQ/YWoTJS1rGiJKusaKlQFGWvlpkyiuxK +kVREGQ0RyUiSz3354/N+v8/9XOe8v/Fcb1KP5LYDUyQkJIzwEVnJx+/yXUbR +hltoZp6ez/XXSSYllc1Oy/d4irbcSnPzRL7QZzOIVFQx+0O+z2jacRstzDPw +pT6HwaSmqtkZ+QFjaM/tpKGavbNyFWPpQA3SUt3en3I14+hITdKRnkQykJFM +ZCZL3Ku/OyfXMJ5O1CJr3Je983ItT3Mfd9DSPCP79DcYQra4L7O/5DqeoTO1 +aWWeia/0NxlK9rgvswtyPRPoEt9hlpvv9cXUobV1Zr7W5zKMrtb5+VFfTo54 +FtZ/yw+ZyIPWhflZvz+uR8/DD3pfWYYlei+ZxCl9gCxP3TgLMguD2G/9qCzN +MOZZ95BFGcIJ6/6yHMN5zLqbLMBgjlr3k2VjjxXWD8sSDOVX6ziYFcgZ705e +lBt4RC/FJP0hWYTj8Qzimel5OawvpbdenF/0enE+9awc0N+ip16Mk/pwuusF +OaavJFe8f+tL8iMmx33E8zPLxxF9GfXjLFtn4xv9bUaQO86I2WX5MVPiO2hA +njgP9q7IjTzLAzQkL/nITwEKUojCFKEoxUiiOCXibPhf/8hNTI33TSNKUtfe +VbmZafHcaEypeC72/pVbeC7eI3dSOu7L3jX5Cc/H8+IuysQ92PtPfsoLcW64 +m7JxD/auy628GO+BeygX12Tvf7mNl+K904TycU3xI8RnYjp9uJcKcU3xG8V2 +/eU4BzSlYlyTeUp26K/E2aQZleKazFOxU381zjrNqRzXZJ6aXfqMOJO0oL1Z +dg7q83mcKnGdZmnYrc+kPy3pYJaDb/UFPEHVuHaztOzRZzGAVnSMc80hfSEj +qRb3Y5aOvfprDKQ1ncxy8Z2+iCfjrFgX4if9nXhWekl+05NlxRQ3f9erW98A +DjyeCA== + "], 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]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 3.062518358321375}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8Vf8fx28Z9xC618i955p3IEmFrMrnbWRHgyIlo0JIGSVFGspeSdoa +aFHZKzMr4ptkj4jMrKRk9Du/v87j+Tifz/t8zuf9er0+H1knr73HVpNIpLOr +SKT/Pw8ZJPKRSBSIldY77HZyFH3VO9WispoChYJqrRdOjyJnXdOHx7gpYNFT +9/Om7yg6obOiVo9RoL+GrdwRMIr8NY87JFIpoD35jPb0+ihKUFLPU2JRINQ/ +Kdby8ShqEG09amtIgexO9SRG9yjaLfJmU6QxBWzefRaZ6BtFn6nhf0tMKUDx +Giyt+DaKOoV0YtmWFFi8LVR0eXwUjWCpRVMHKDAlcLxg1+Io4l72E77mRgGX +Oa48EYkxtH1IrCwzkgIakx9ag5zG0Oyfon7RGAqIjV1svOQyhp4LOHGdjaNA +i55SdqTHGFqnlmG4LZECzEA1h8IzY2jmsuHHyocU2M6O6/SLGEOpMmc7WzIp +8KDK3to7dwxRDrXPzbdTIGr0tslz4XFU7RW0zraLAr0Gffw5tHEUeIWtWdRD +Ad4Sx1N1UuNo7MWp8xcHKHDw2WcdgQ3jqGoBW41NUKD2NIT+1R9HAbe01tL/ +UeCiRVJ50NlxNNh8Z/02DhUWozL1dg2NI+xpbLevPBUKJK8lrIyPIyW/azEZ +66lwcCR3Tf7sOPIT9/4lq0yFV+ZwQZ80gXgPmZRjGlQImpIeLGZMIIWh3zat +xlT4YrG7eIfVBPL4bRV62oMKU+eT0xPrJ1Bsrem2lyepsN7YZo/15wmUfRsm +B09RgWGh9UyiawItb1OysvGjAl9xaXDV2ASKDuaSQUFUiHZxtw7m/4He8GXm +CcRSobPki+kDsx9ojrF2OC2LCnWS77qTWn6g2hoFz9YcKhwOzrlk0vMD3fPR ++8mdT4V/KXzcXN9/IP16v3+OxVTY0PXjdezvHyg+oFtcoooKS9IbhcQZk2hz +x3Pj2FYqyBcUyn92nkTuiQYv/Beo0GR8zpK5NIkGKAGeJkgYuHqofSfZ02j0 +0xHTNF1h8AlYE+WqOI2m43fK8xgIQyWP/qzL5mm0LErtLzMWhk6Z1tGz26cR +jf7MSnOvMEQ8eF/WbTWNLGVbt8kfEwZu15V7RdemUfEWFX6eCGFgFqS3d0xO +o1t7x1LLWoWhoHIiY+y/GSTwSVpsvl0Y7lvLivS1zaBgS+srG7qEYaTtWll7 +7wxyNS87ktgnDLJ8NQtdEzNI2zCR5jEiDFfZIQuyfLOoV0svXPyvMOhqOLx7 +pTeL5GTveJ6UFAHett+C5QWzKGfKRE3iqAjcjAi9+SvvJ7rbkeG7a1kEzNf4 +GfTJzyN7L/6grBuiYKvVqNs+8geFO1h3LUuLQdxlDS3PikUU+CBlXDJfDBzm +VqFi0X+oQ2PIkmm4DujNgvWX5FaBcCAj0O7TOhjvEVviKlwNImsPHD7hKg7O +wTKUf3bcUFsor/jghDhs2jqT0uLIDUHH/8x/8hCHdQEeQ2ku3DD27nas1mlx +uGVQbmHkww1lHt2VWIA4BMSFGLuFc8PJD46KaRHi8GjmTPXWfKJeiMfvbxni +YDBc4P0flQcuLF2KO/xLHEo2KSutKeaBY++kcsp+i0Or/eYLCeU8YBFU1M76 +Kw4v2xuz6TU8IE36JT22Ig6zTkfqxJt5oILLNeMMRgOTF00D/cM8gK2xqI9h +0GC7kfvvZ8K8kEDHeSp0adA/TELdR3khsDNXgWNAg/UCPybb3Hjh+N195qGG +NNAtKW9vPMkLGpJRNyzMaNCqzt6Z4c9L6ITE7LKiQe5cwqRKJC/IKHzXmXOh +gRb99YpFJi+kq2f6y0XTIK7uTH7GX14wbPb2CoqlgWq9uu/PFV7o9VQ93hpP +jN+cuKjCRQahlOx9127RIL7Q1O7xGjKcFMlT/p5Mg9AyuQFdCTJsni4aTMmi +AT1+j1bwdjJkP6/azemgwWBllUO3PxnMd14zCuyiAR+1XNv7AhkGvxrqfOmh +wVwl18HVwWQQo9VuCBkg6nkN2FCvk+HMtQ+8Q+M0gNj3E6MJZNB0bip+ukKD +LYnt7MuvyVAs0aHAZtPhwYJn/tavZKjwG32zT44O19JfWnQPkKG2cUHzigId +Rh91XgscIkNLMG4yoEQHCqprfj1GhvFBO7fkrXT4ZL4u/vMcGfD03ucSRnRQ +FGNfF8MwkOGd2mJuQgcBgW3Cx/gxkDvyr+C8GR0uTljRXgtgoEKV+dBpSQcr +6oVIFSoGJn6OY0k2dLDupbbO0zHw3zGoKHaCDluztvL7KGIQlDiXaeBBhz0u +oshNCYOrU9zbfE/SYfWj9gZbZQxiH3HMPnvTYZ6iOb5eBYM0Hhf3uPN0ULgW +sByihUHrx9GXglF0GC5Z6NhghEG33F/VHTF0qPRRLa42xmDgIn+xRxwdfIa1 +O+1MMfixZUND/U060M1kK313YcCd6DER9oAOpBkfhuM+DFTtp5R439BBojkt +lmmPgUdD/ZpjmXQwsBgVO38Eg6faz8Yqs+mgn30kt8EBg3Xijs8uFdAhMHi7 +np0zBn+bmlnLFXRoHYmy4bgS9XRerz5URQfUg4cbuhH1XkX0F9bQYUUHPjic +wKA31OChfwMdPt+7cSrYA4MK3Vx87gsdakKKlD1OYbD4On5hbzsd2l3VM6xP +Y6Am5dX+tpMOaa4RWzS9MUj9K5/o1UcHreifOiM+GPS5cvs19tOBP+htdY4v +BrS2r/s2DtLBg/lw1wU/DMKzblPHR+hgYpdpNXcGg0rZM9Mm43SQ3FXanHIW +g6WYvU3PftDh0tsPZrv9MTjpsSbq+CyxfrF/irHniP3vHHavmiP6r20ewwnA +4Kvxe1P2bzrISX8dyyJ4LycQG1ikw9Ed/leLzmMQccN2GFbooBvXU6Z2AYP3 +q9SrH5JwUOoxm0kleNlLOGVlNQ5V73nFhAMxUO+dvHKYBwdmrO2GMwR7mdc7 +FZNxyFS6pfqZ4GeFaboMfhxElfGN64Mw6Fe4KhMggMP2JgNxf4LxWw7/2oVw +aJ4NnikleB/Pjl4NKg472VBEuohBpA/9XaIIDspJiz7aBFf1/7r7SwwHyY1q +DE+CVyybA6xoOAh6eL9JIlijJMM2C8dhNNRQ9R3Bp5QiNIUlcZh2Mn7SSfDz +Oy7ip6VxWLoqTpoheAAzmG+SJerJ2ZmQgjFgnJX5oszGwXN9RRBGsNXQUlaU +HA6RUlzJfARH7euIn1DA4a5u9ysugqvLc06bbSDGnxdJmSfq/dsUv/vFRhx2 +OZ4JHSBY88HJTXybcZDb2rm/huDTAmZCrio4WA8xKCkEvwiQ/1GthsMJAZns +8wR/G+Fq4GjgwDXTrGdGsMSBry+uauHgEaJQLEKwdVVx2LdtOJi6SMh8IfYr +WvW2q54ODqp9b0/GEFzzyM/oEeCg8vVnmh7BJMpeOZI+DurkX/WTRD+8J/gH +3xnh8Cs0pWULwTSahtWcCQ5tOmmzTUR/S/Wd3yua49Ctfm7IhWCBu0VPb+3G +YZupqWkIoY+s6mHRxr04NIrlFvMTfHBWJITbGoczl+u5wwk9pZl4HDtti8OI +s4D4GUJ/Fn5JX9LscLAZau4fIPQ5l/x+Z+9hHLylz10xIVjvj4ScmRMO6Gyn +OTeh5+7Uj9/Z7jislvfg2kz44XLzwn47TxwSD1+JdSf8sn6FUxPnhUNTxeLv +ZMJPZ6yD0lZ8cOjR1rFZIPxH5d7k2n4Bh2RW9EkHTwzyN9m1C13EQe8Df98J +wq/2dteNd17CYd14h7KXOwavMvsUMkMIPX+18jpG+N3QMXY0IhqH/ca6Ydgx +DCYii20rYnF4fSqdb4DIixv5I3V/4nFYcf/gleNE+Gmt7otjt3A4lPl22oTI +l/MlMydQMqEnvvS+9XYYMMcku/we4xCRM5XWbItBrZip2aunOOSqvzzsZ0Pk +kefjDfTnOHihrpvPrDF4w9g3MfsWhwDlQJtqSwz2G108tD4bB03Rdy91LAj/ +eb9sOJKLQ/T5J7/emGNg+oErvaEQB/duZ+8rJhgM+md7plbisLxxWPWrHgb0 +VrEp2y84UGrC+APUMJhdJ5Rb2oaD7FS3sxuRzw0HeAM5nTj4FJiU79mMQXDH +PP9MLw5WGeGxgkS+f+9ukwsdwYGmvlK4hYVB9rfb9rmLxHypjYrKFEJ/7HiO +xArR31TzmgxBDFyPhU9cIjFgj512pMIawk/DAQG7eBjAvdb1FpmX6OeYXeKg +EAO+qUws+CySYfeMZKMwkwHyF47uwIjzTVFl3U1/NgOuH12OliDOP24foUO9 +cgwIO6KgqthHhry5ldHnGxjwXb4laEsHGaT+9PHobmVAgaj1mekGMkysPNrh +ZcwAtShWvEoWGUIF5NLrTzLALmjnpt4AMlAV9IzkTjPg3exfR7WzZLijb98f +7MOADQq7w6/6kCE9IFFM3Z8BVuhTnbAHGZpHeIOSLzFgMUfaZfgQGRhVwxZ+ +CQw4+aRP33cHGTICn09LFTIgz6yhU524f3yZVFLz5pEAlYb+Rl1nXmioSTry +lCwBRvbBpAh7XqhI5o5o5ZOArZIWn5tseeHN3u5+bSEJ2BPs426+mxcicyNi +uMQlQELCoYm6gxf0gsbGEhQk4KHbUsF/YsR4wWeP8swk4EuM0Tbt9zwQrsRa +uxwnAZlz9/7cFeMBcp7U/cOKkpBW/t76oBcXTNzju/g4XxK4brRrCZWugtfK +4+slDKTg6VPxt+PcJNASbL7u3iUFOvvbj08ZLCElo2daD12lYW/iYk9I2x/0 +87uuZQtJBky2L6/K3/sLIdKG4z/NZKDeh79FmDWLUM2aNO54GWjazlME3ybR +EzWvclKvDDil33gV+HYUFVl+4Jliy4KQ4Ku1Rr5DqKIsOePsCVmQe7jO6mhH +P1JqX9g8niML5US0HOXtQcB4WcOdJwtfuN4GPJjqRtb2h+yl8mVB6vjOw8Pt +3ShosCRiT6Es2P9lH0x92Y3+m77yPa9EFo5/cghq39ONfPmE7l2tkQXzI1o1 +5EddqFibSZbqkAXpau+Mo6adyOy+ac/uJVkYK5YqTKlpQ3/HHKUvL8tCrJGc +RGtmG3qmec4xa0UWzl39Z77uQRvibkkbElvFBDvtb3+qfNtQMT/PZCcPE8ov +BoX1M9uQkn/pytG1TDjDFyu4+nIrEtinJnOOyQQ4z3vnldkX1IhJOT8yZoIs +v1dqLf9npLq1x7PEhAnzoXpq9X+bUZLjPf8uUyYwxnsyOsaakVMhHi22iwmX +FEmWeH0z+uUuXhC2hwkOR3acXx/ZjCSaKGu9DzIh6Hpv2DlKMzpxk6tIz4MJ +qXeHf72R/YR4mKPCgzFMkF6sVVzzoRFVbNO+vhjLhBh9rS6ZN40oyDpiUTie +CVWvnuuZJjaiP6EbB3UTmMDd0cnT7tSIxqZO5zxMYsIdoUC+3qWPqPHd3wN2 +j5ggOE7yDlP7iJJsBe43ZzJhZsvhOb7MerQhbpN8+RcmTDlXush8q0WXc74b +TrcywTOv1OBPfS1q77h/XLqdCdN7BL99y65FV5kCqYGdTHDZ+EFx/lot6s4a +YWv3McHD0+Mgj1Itim59xMwaYULGas2J8nM1aJohKpWyyITCCvvCvaxqlJ36 +RzRMlgVGp8Ou9L2sROXPDyw/YbJgleDow3N3KlHjq9yhEhYLhg2zeZlhlWgk +0zd3jsMCs8D88PvHK5FE6fQBB0UW6BRUWeowK9HVtpE7GqrE+z67Bcl7FWgf +1iHz3YAFPHyftlLulKNZtwIlfVcWRF2IPmFyrhQlnQ0q83NjwdKfqZBXB0sR +CtG3enaCBYOtD2M3bC9Fkckfzwt6ssBYSJUe+K8EybX1f2g7zYKcau2L7tdL +0EEDfjeP8yxozq0TdLr3DlVI2aXcjGbBtaaYGInOInTj85LkSDYLIjuX3son +56P4xn0MsVwWKPYs/t4Vmo9i617Q9PJYoKlpKBl+Kh9FltqI3CtgwbL7TLG+ +bj4KeZmN7S5hwVtUZV34LQ+dveLxM6+GBSJPBnRSlPKQnWp37fVOFnjV1i7O +f8xBrBtFPvIkNnyekujpMM1C7R6FWrCKDTMB1d/UtLJQtGHBP5vVbGB7jVg+ +lM9CfxZyI8K52ZBRRZV/zJ2FGhwyn/zA2BDWqOVvX5qJfJWff86isqHq1sXF +VI1MVFWXqAosNlwXOTTCUn2LXEjeP20M2dD4bNg2MTUD5Q62Hg0zYgPrsk7m +4PUMxF23rbXAmA2OQaMRu90y0OM4ngLcjA3+Dmdtg5UyUDfzdlC3JRs+vbkf +uCM7He3ZWcbnYMsGkuuaTeJ1r9C2cCEZFw82rPdhhiWSX6K1oi/N/eLZ8J6x +K9i/OQ2JtuVdi7vBhsfiD9SXitIQfud9WXoCG1yONrklpKQhtkyv2vdENqx9 +5U9afS4NaStRJQ/cZQPt6VGe/2TS0HGDsz80n7LBa3/2LgXfVFTiqx+9lMMG ++uSG2H3rU5DHl66mKx1suCyTUSfw4TGqCwnwudPJBofJPZrX8x8jOXW6+Nsu +NmyWol2kpj1G/Yn77Xt72HAYu2tvffUx2m/zaUJzgA35F4vHktBjhLqq+SbH +2DBWqH6Vq+AREu5/q2+zxIYRdfuda/KSkVfc7uGTy2w4UyUp45KWjBp0p8JD +VthQbm2n+ulWMrr2WKk5k8QBvjCu5ib/ZLTonOYgyMOBliKR237bktHg93uB +FYIcON+4xvPttYcob+J6npI0Bw7WvP7PqvA+ykiL5LWTIeZbkBKF7t1HT53i +rMNkOdDnL2X/PfA+im+/83OIxYHp2l9Xp3TvI4/36ZseKnBgrGVQ7Fj9PcS8 +9zmNqsIB46jo7vff7qJoM+mkeQMO8HML5Satv4NCeNnDbEMOeGkJX+0RuoMu +lCuo7zPiwFx09dz2udvITUOl5bUJB3TSj9qYld5GBqydFDcLDqgzTx19sv82 ++vv3RGjXAQ5QcnUKFMOT0PEXuf5lJ4jvadjLTXDdQqIGzrGd7hxYl/nv5ciP +RFTes/bZnAcHmlV3Vi60JSIJqlubghcHTDaXH7J9lYiazzLU43w4MN9H1hLY +n4jQzuCfjhc4oKb9MWdz+k1E+2pykiuaAx+p05//uCWg6nPzIZIxHDAo3d1x +dH8C8hF5cl8jlgPln1x2fNNLQI2GSw3u8RxgW6r1rZNIQFfTMza0JHJAMrik +8EDTDTQdIDL69CEHygyOR2zRuoHqxHqcDd9yIGFmQK2VHo/GfLVNL2VyIFxa +pdaNNx7xt9zaXJzFga0C7BrqzzhkGr93eUsuB46FDGU/aIhDH4RqEyWLOKCx +bVboRXAcaiBn1c2954BLddy870QsalwI3fSknQMFSTMvHj+NQZM238V6OziQ +8t+j9bcuxyChfP0lWhcHUvvTk147xCCLMyu10T3E/y2UZJtJxqCmWR+ngAEO +HD/c/V0pKRr9N25/c88EBx6r5Of5JEShadPi85E/OODk5WKc6BuFKC/oTjWT +HFjewxXVaRWFdru2KO+Y4YBsbXJajVgU+jRoUqswz4FNklsdN9+ORLP6aRnO +vznAy5JsOhQQiYSfcN988IcD/vb3+p7bRaK9jqWOoovEejZvckqRikTeZRLG +lkscEPK+ELePFInipQOUw5cJfXK39MgORKDMoDbRqhUOmF5ny1HeR6DmHrXF +f/84QKSziVRqBPofyP4y3A== + "]]}, "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}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{4, 11}, {0., 3.062518358321375}}, + 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.9921772942614803`*^9, {3.9921774310967846`*^9, + 3.9921774452296104`*^9}, {3.9921774768845997`*^9, 3.992177485469591*^9}, { + 3.992177515575514*^9, 3.992177600595009*^9}}, + CellLabel-> + "Out[121]=",ExpressionUUID->"d2fc483e-eb0e-8343-8b3d-14d02bc983cc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l11", ",", "l22"}], "]"}]], "Input", + CellLabel-> + "In[122]:=",ExpressionUUID->"7f7adb48-d16c-ff46-92de-216bf33e0dd7"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV0nk01WsXB/CDax4KKcl8fr9TiVKqK8reRRRlOGYyJDIPKYkoQ4QiwzUP +mRKOTCUSldzQgEQuFaIyh8xKes/7x7Oe9Vlr72et/d2PjJ0n3YGVQqH0M8// +b5dbz9gpFHGUfC3hUiY2DY8aiioNWMQxVzqrZBvTXPPxNnms4qh1j5GTs3ka +CswcHmmyi2OV87+58aLTMCjD4x7NI468bw6vem2cBrMHhl1iIuLYqvBuWFJo +GjR7h3P3yYmjQbu0sxr3NFCp/OhqJI6D/12jhyxOQW3F9hMzZeIYLbvDheXl +FMT2va+3Z5fAgORqzifJU3DNK0BA3lwChb/K1yrYToHp2qwi/wMJ/CFnopQj +NgVO21dq+rgk0eKad/n79u9gptcu1GIviYUc27Ruen+Hs59u67A/lcQyXe1z +FO7vcJ+DMr5bWAqf/Uxl+SdlEvp3KFpc8pDCDU56B2r5J+HY1PSu0kYpvCvx +OC3VfwJGeY2903mlsfLuvoqgnnHYIplWNaksjZ0i6qJiwuMwtVbA2HdGGk8k +yTf6HR0Dxb70KN44aRRaCyV26I4CyzR/L88TaeRRMEiVPDIC59q1PrCMSmOe +09BIwe5h0L/n/G+YiAyqVQv3+c5+hXZzw9MsKIO914tjF+5/gXo2coTbQwZH +le59Q60hUBk8/0k1XQbDPq39tur4DCbRUdccXshgjvDYrdb3/TC4P1JEfE4G +2dsabvU+/wh8ZXrmryRkcfzl0v2C4R5oskjgy9WSxWPzr1aDad0wzfa0kMNH +FsM+up5U1+yEmsuVS3a3ZdFw7otb/eO3MDMTvetEqyyqdqKmnPkbqE4d7rb+ +KYtBn3a08Dc3g4Qg525ngoqsT/bmKc03wmzYugsUOhWtJSIvnTz5DBxfDjjf +CqDiMVOes0UPasEVFdq1Cqjo7p9yuuJpFRzcePbrKtMHf2SsG2FUgcBk1krF +XSpOjkSs35FSBZXJ6wnxIiqeaqhb6POqgp9Tc5dmGFSk9q+rnpKtgojMWtnU +Cire8BWkV0c+gPyfWhfH66hYKpE4Wn/6PvQ/sJOI7qRiLJH7yFKlAsaLzgru +76IiY6mOIrSjAhazXNgHmOYZqL/cuaUC1kV6f1fspuJfH3av+P4uB7QKqe/q +oeKqVX2oZkM55LLnWon3UzFLPdF2QbscHE0GMxmjVLQyn7adfFMKM0s2kq9+ +U/HjphXbp34MmL3JqRm8RkXljKNzRtYMmJcpc1f+Q0X7a/LNLOoMWNZZqyug +EKj7yP13Nh8DKNkZlqFsBEZw/rV1PrsY1h/rTTnITWBAoEj4YGsR7E6hC5dt +IDDfN2Czn3IheCsf5fpnB4FvtPzjck7egdLJagGQJxC07WUED9yBiWw5kXGm +AznL2eKJO2DPvV4WdxJ4yaYmoflXPph8+KA6qUjg7Is/ZRRGPqgEeHlq7Ccw +8huPYQ5fPrA+S++eRwLvl3H463/KhQSt2XxjEwKnD6XVrWNkQ9aMrMFvpjMO +xO16l5YNhamGv/NNCbTU46jNjcqGJxMPjOfNCAyWvDPl7pINY7d8ORIsCdQp +XmlmyGUD9Kw6vrUlsIi3JcvP8jZMOHHu0HElsGNs8NfQ5UxYFFT+b5bpqqKl +ohbrTKA8dgpNcyNw54VlWsvhTNjI/+rjmDuBUWtX1DdwZcLhips3I7wI1CiJ +pAwkZkDyiuDUCx8Crfgjzu18mA7qUeIVGESgCcyO7uNOA43OmdhFpmcbJbj+ +TKaChvgLr5JgZj1rc8+Xt0yXuiuKhjL3EXt7LyU1FTTfPSmbDiNwYkD2TLBc +KmiLnS7NukHgZ26CjKenAL34DmM1icDkuMa3hg+TgD7nd6MymcDo3hkrp8wk +MDyo6+qUQqC+qfRQ4rUkMGpblOtKJfCPqfxlVcMkMJnVKmZkEPjSiTe/9Eci +WKiMF1rkEhiefS1ZVikR7F7tLKi5R+CnVqXbFc0JkLmnzd6ulMDT+fv2Kt1P +gJ40dypfGYEpicP6LVkJoOtakm1TTmBeY8ig/MUEUOGTS+e4T6C/Y09uH5kA +QrpkrFENgWL1an3tEfHwvGOL/8xzAnm8A5uiTsXB7wOPldMaCRwOYBOy0Y4D +5VyLJfV/CYwXGVzSUI6DUu/UC8kvCGStNjU9uiEO0oQ3eaq1EPivq3TLxtZY +8DYWsr/ZSuA5H4OC6cOxINPLpbuth8Dl7Y8fbPeKAfqgDn5muvjnDUeDkzEQ +MhazJ6WXwFDHP4ey5GLg68qGTVwfCdwtcv5VwbdoKBCT+TzSR+Bqsn+yp1U0 +yJ864H33CzNPNl/W54Y3QXnAOYk2TWBWQ+v2qxZR4DxSEtHPdMVOai73wShI +m572T5ph/v+CLUJVElHw64+PDccsgcRyl7nHYCQ8kQ7ZNjxPYF1tk7CjSyRo +2KXV3vlJoHLzno/GIRGg9+1VP8FB4o+0X1/pL8NBd+j1xV6mPTrtlQ+WhcOJ +gTcCMZwkOleEFR9ODAft3ja1JS4SY26/DMw+HQ6are+yXvKSqMXLNVb8KwzU +qj5YewiSeEjkodXHvWGwM2y8v1qcxIFqmsdcbSgohExcdJMg8byNpI5CfijI +X50UkJEk0TRikD0oOhTk/KbUoqRITGvYXOlpGwo099msU7Iktj37vt+HMxQk +jH9as2wj8eJ7xQY2ixDgI3kGtJVIvFoydDZyfTBoHu42nmM60CVdhX0tCK5a +5b5J30tio9l68p+JIJhNVKmd3EfiDQW+xfGmIOjhcE2MUSbRaTYo3v9KEOSN +vtZ5d4hEqY0b3Iihq6BSEl1jfoxEdZmNW42aA+FCi/ku1uMkrl6qrmotCIR7 +X8mCYqY/d6SRzuGBIC3xJOGXNonbuvtp7JqBwBEz5ZF5kkT/KxpkW1MAdHjq +kYN0EifXJ4pGtF0GJyXBeCcrEpPaBv0bFvwgeTrooJQ1c75fNY87u/2giTEz +/J7pQ2s5yF3jByTxVlXdlum+w8F9/n4wtOHWN4kzzHycvNtprH5guch3oNOJ +RM1zbZnimy6B7iOuz4cukJh/wqAv3fwiBPpcippnWiCjt/Gt2kUo2T26l+HD +nC85MJQgLgJPcXOkqC+zf1WHe9u0DzSnhSvN+ZHIetfkn/RwH8CAv64XXiWx +63LRAdHHF0AJKDuFb5C4lnQ9K+rAecgQU62uZ/pod0LXN+p54Fj0QaebJLa8 +rrhmJnAePpRM0OujSVQps54L/eINQWL/+TrGksgzO+o1E+MNbQv3Gh4nkmi8 +oOfIO34OnEosje2zScwzSbxQVO4F764n9QvkkBjMaJNqzvSCg2c6HB8x7WCQ +5bkS5QXrxLT8BfJIXJKuvZvu4AUPr++5XXOHROm/Dbd3bfECtjPcY3wMEm2/ +5Z7iEPWErM3VAVVVJO75ZLg/acENusfKGKcekrhVW11H/70bCNQWfmCrJnGL +9dn9ClVucMUiTZleQ6K9ThRFz8cNrNID56dqSSzb6npt55IriEtouG17RqIw +XbZGjcUV0qU7LNNfkej3kPalSsEZ3s28jDrymsTNVt7sEYLOwNPw/NEY061y +319cWnAC/9MPNim3kvi96W5uVb0TWOQmd3a1k3ivwMAiVc8JxAhrHYH3JHL+ +ysj8fskRUrZOqAQPkMhGpesvfnaApuTrmfs/M/ebNZWr0+QAc5wEZZLpDA6h +xGcMB9AdPfXCZIjEKLOrLVy+DsBe1KYn/41EIequCIF1DuAtV2n/3ziJcbbs +zW817OGEgl+MwiKJ415cmUea7MA/U+THENN0Dz6p42V2cJe/0jBlicSQ4XIe +1xQ7YJ0aF2VbIVH1/ckciqsdPCo9ldfzi8SnBvr2noJ2QFPEmlAWGjYocHjj +mdPAosQ51MtHQ66FvPefN9uCy3MPaig/DRMN3BZdOW3hnUG3vbwADTsOU8I2 +jdtArtedkSvraChwtZlDKMcGjpSqf6cK0dBY4bff9HobCN0etOy+iYbstMo/ +5LIVsEuvCLDKMi1SGWz+xRI8ymz1GUxvlb7lr9VoCd1qLXFGVBrGm05GmedZ +QoFV8oa7BA077TWNx85Ygmb6PrETW2nYWC6ld3/YAq5v9CaT5GlYqSWq1z5r +Dtz8E6pyf9Nw6mb9fiphBvp+kfIjTJd7zQutZzeDpG9bJfKVaShbdZQghk2B +eGK/JqHCfO94Ca2h0BTUPPufCR6i4fnCPr+Xu0zhfEfH0ZUjzP5l1ohxDRPo +S6zRa9Gl4Qvzsfw9UUZAsJpimB4N5V+omN/zNAIXjwXFI/o0zJ4XLTlubATL +mnuE6gyYecpxRgxLG4HQMqOrzIiGdaUbM0seGYKWxW3zZAsaRhXqrWr+oENM +0yFtI0sapr2WSm3poUPXnk8qgqdo6Ox7zMj5GR3seDeL37Ciod7ZxRucsXQI +qIvvv2JLw1y7H92VinR4vm13u+ppGjpePae6fTMduBPbny4z3VkcequehQ5J +7nw53mdoOK923Bs6DaCvtzhulz0N/XttquXrDIDQPB4yyTQjrM3s7zsG4FI5 +4l3kQMMd95T22MQYQIVk+JmzZ2m4Omomle9rAP8DeegoXw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0nk01WsXB/CDax4KKcl8fr9TiVKqK8reRRRlOGYyJDIPKYkoQ4QiwzUP +mRKOTCUSldzQgEQuFaIyh8xKes/7x7Oe9Vlr72et/d2PjJ0n3YGVQqH0M8// +b5dbz9gpFHGUfC3hUiY2DY8aiioNWMQxVzqrZBvTXPPxNnms4qh1j5GTs3ka +CswcHmmyi2OV87+58aLTMCjD4x7NI468bw6vem2cBrMHhl1iIuLYqvBuWFJo +GjR7h3P3yYmjQbu0sxr3NFCp/OhqJI6D/12jhyxOQW3F9hMzZeIYLbvDheXl +FMT2va+3Z5fAgORqzifJU3DNK0BA3lwChb/K1yrYToHp2qwi/wMJ/CFnopQj +NgVO21dq+rgk0eKad/n79u9gptcu1GIviYUc27Ruen+Hs59u67A/lcQyXe1z +FO7vcJ+DMr5bWAqf/Uxl+SdlEvp3KFpc8pDCDU56B2r5J+HY1PSu0kYpvCvx +OC3VfwJGeY2903mlsfLuvoqgnnHYIplWNaksjZ0i6qJiwuMwtVbA2HdGGk8k +yTf6HR0Dxb70KN44aRRaCyV26I4CyzR/L88TaeRRMEiVPDIC59q1PrCMSmOe +09BIwe5h0L/n/G+YiAyqVQv3+c5+hXZzw9MsKIO914tjF+5/gXo2coTbQwZH +le59Q60hUBk8/0k1XQbDPq39tur4DCbRUdccXshgjvDYrdb3/TC4P1JEfE4G +2dsabvU+/wh8ZXrmryRkcfzl0v2C4R5oskjgy9WSxWPzr1aDad0wzfa0kMNH +FsM+up5U1+yEmsuVS3a3ZdFw7otb/eO3MDMTvetEqyyqdqKmnPkbqE4d7rb+ +KYtBn3a08Dc3g4Qg525ngoqsT/bmKc03wmzYugsUOhWtJSIvnTz5DBxfDjjf +CqDiMVOes0UPasEVFdq1Cqjo7p9yuuJpFRzcePbrKtMHf2SsG2FUgcBk1krF +XSpOjkSs35FSBZXJ6wnxIiqeaqhb6POqgp9Tc5dmGFSk9q+rnpKtgojMWtnU +Cire8BWkV0c+gPyfWhfH66hYKpE4Wn/6PvQ/sJOI7qRiLJH7yFKlAsaLzgru +76IiY6mOIrSjAhazXNgHmOYZqL/cuaUC1kV6f1fspuJfH3av+P4uB7QKqe/q +oeKqVX2oZkM55LLnWon3UzFLPdF2QbscHE0GMxmjVLQyn7adfFMKM0s2kq9+ +U/HjphXbp34MmL3JqRm8RkXljKNzRtYMmJcpc1f+Q0X7a/LNLOoMWNZZqyug +EKj7yP13Nh8DKNkZlqFsBEZw/rV1PrsY1h/rTTnITWBAoEj4YGsR7E6hC5dt +IDDfN2Czn3IheCsf5fpnB4FvtPzjck7egdLJagGQJxC07WUED9yBiWw5kXGm +AznL2eKJO2DPvV4WdxJ4yaYmoflXPph8+KA6qUjg7Is/ZRRGPqgEeHlq7Ccw +8huPYQ5fPrA+S++eRwLvl3H463/KhQSt2XxjEwKnD6XVrWNkQ9aMrMFvpjMO +xO16l5YNhamGv/NNCbTU46jNjcqGJxMPjOfNCAyWvDPl7pINY7d8ORIsCdQp +XmlmyGUD9Kw6vrUlsIi3JcvP8jZMOHHu0HElsGNs8NfQ5UxYFFT+b5bpqqKl +ohbrTKA8dgpNcyNw54VlWsvhTNjI/+rjmDuBUWtX1DdwZcLhips3I7wI1CiJ +pAwkZkDyiuDUCx8Crfgjzu18mA7qUeIVGESgCcyO7uNOA43OmdhFpmcbJbj+ +TKaChvgLr5JgZj1rc8+Xt0yXuiuKhjL3EXt7LyU1FTTfPSmbDiNwYkD2TLBc +KmiLnS7NukHgZ26CjKenAL34DmM1icDkuMa3hg+TgD7nd6MymcDo3hkrp8wk +MDyo6+qUQqC+qfRQ4rUkMGpblOtKJfCPqfxlVcMkMJnVKmZkEPjSiTe/9Eci +WKiMF1rkEhiefS1ZVikR7F7tLKi5R+CnVqXbFc0JkLmnzd6ulMDT+fv2Kt1P +gJ40dypfGYEpicP6LVkJoOtakm1TTmBeY8ig/MUEUOGTS+e4T6C/Y09uH5kA +QrpkrFENgWL1an3tEfHwvGOL/8xzAnm8A5uiTsXB7wOPldMaCRwOYBOy0Y4D +5VyLJfV/CYwXGVzSUI6DUu/UC8kvCGStNjU9uiEO0oQ3eaq1EPivq3TLxtZY +8DYWsr/ZSuA5H4OC6cOxINPLpbuth8Dl7Y8fbPeKAfqgDn5muvjnDUeDkzEQ +MhazJ6WXwFDHP4ey5GLg68qGTVwfCdwtcv5VwbdoKBCT+TzSR+Bqsn+yp1U0 +yJ864H33CzNPNl/W54Y3QXnAOYk2TWBWQ+v2qxZR4DxSEtHPdMVOai73wShI +m572T5ph/v+CLUJVElHw64+PDccsgcRyl7nHYCQ8kQ7ZNjxPYF1tk7CjSyRo +2KXV3vlJoHLzno/GIRGg9+1VP8FB4o+0X1/pL8NBd+j1xV6mPTrtlQ+WhcOJ +gTcCMZwkOleEFR9ODAft3ja1JS4SY26/DMw+HQ6are+yXvKSqMXLNVb8KwzU +qj5YewiSeEjkodXHvWGwM2y8v1qcxIFqmsdcbSgohExcdJMg8byNpI5CfijI +X50UkJEk0TRikD0oOhTk/KbUoqRITGvYXOlpGwo099msU7Iktj37vt+HMxQk +jH9as2wj8eJ7xQY2ixDgI3kGtJVIvFoydDZyfTBoHu42nmM60CVdhX0tCK5a +5b5J30tio9l68p+JIJhNVKmd3EfiDQW+xfGmIOjhcE2MUSbRaTYo3v9KEOSN +vtZ5d4hEqY0b3Iihq6BSEl1jfoxEdZmNW42aA+FCi/ku1uMkrl6qrmotCIR7 +X8mCYqY/d6SRzuGBIC3xJOGXNonbuvtp7JqBwBEz5ZF5kkT/KxpkW1MAdHjq +kYN0EifXJ4pGtF0GJyXBeCcrEpPaBv0bFvwgeTrooJQ1c75fNY87u/2giTEz +/J7pQ2s5yF3jByTxVlXdlum+w8F9/n4wtOHWN4kzzHycvNtprH5guch3oNOJ +RM1zbZnimy6B7iOuz4cukJh/wqAv3fwiBPpcippnWiCjt/Gt2kUo2T26l+HD +nC85MJQgLgJPcXOkqC+zf1WHe9u0DzSnhSvN+ZHIetfkn/RwH8CAv64XXiWx +63LRAdHHF0AJKDuFb5C4lnQ9K+rAecgQU62uZ/pod0LXN+p54Fj0QaebJLa8 +rrhmJnAePpRM0OujSVQps54L/eINQWL/+TrGksgzO+o1E+MNbQv3Gh4nkmi8 +oOfIO34OnEosje2zScwzSbxQVO4F764n9QvkkBjMaJNqzvSCg2c6HB8x7WCQ +5bkS5QXrxLT8BfJIXJKuvZvu4AUPr++5XXOHROm/Dbd3bfECtjPcY3wMEm2/ +5Z7iEPWErM3VAVVVJO75ZLg/acENusfKGKcekrhVW11H/70bCNQWfmCrJnGL +9dn9ClVucMUiTZleQ6K9ThRFz8cNrNID56dqSSzb6npt55IriEtouG17RqIw +XbZGjcUV0qU7LNNfkej3kPalSsEZ3s28jDrymsTNVt7sEYLOwNPw/NEY061y +319cWnAC/9MPNim3kvi96W5uVb0TWOQmd3a1k3ivwMAiVc8JxAhrHYH3JHL+ +ysj8fskRUrZOqAQPkMhGpesvfnaApuTrmfs/M/ebNZWr0+QAc5wEZZLpDA6h +xGcMB9AdPfXCZIjEKLOrLVy+DsBe1KYn/41EIequCIF1DuAtV2n/3ziJcbbs +zW817OGEgl+MwiKJ415cmUea7MA/U+THENN0Dz6p42V2cJe/0jBlicSQ4XIe +1xQ7YJ0aF2VbIVH1/ckciqsdPCo9ldfzi8SnBvr2noJ2QFPEmlAWGjYocHjj +mdPAosQ51MtHQ66FvPefN9uCy3MPaig/DRMN3BZdOW3hnUG3vbwADTsOU8I2 +jdtArtedkSvraChwtZlDKMcGjpSqf6cK0dBY4bff9HobCN0etOy+iYbstMo/ +5LIVsEuvCLDKMi1SGWz+xRI8ymz1GUxvlb7lr9VoCd1qLXFGVBrGm05GmedZ +QoFV8oa7BA077TWNx85Ygmb6PrETW2nYWC6ld3/YAq5v9CaT5GlYqSWq1z5r +Dtz8E6pyf9Nw6mb9fiphBvp+kfIjTJd7zQutZzeDpG9bJfKVaShbdZQghk2B +eGK/JqHCfO94Ca2h0BTUPPufCR6i4fnCPr+Xu0zhfEfH0ZUjzP5l1ohxDRPo +S6zRa9Gl4Qvzsfw9UUZAsJpimB4N5V+omN/zNAIXjwXFI/o0zJ4XLTlubATL +mnuE6gyYecpxRgxLG4HQMqOrzIiGdaUbM0seGYKWxW3zZAsaRhXqrWr+oENM +0yFtI0sapr2WSm3poUPXnk8qgqdo6Ox7zMj5GR3seDeL37Ciod7ZxRucsXQI +qIvvv2JLw1y7H92VinR4vm13u+ppGjpePae6fTMduBPbny4z3VkcequehQ5J +7nw53mdoOK923Bs6DaCvtzhulz0N/XttquXrDIDQPB4yyTQjrM3s7zsG4FI5 +4l3kQMMd95T22MQYQIVk+JmzZ2m4Omomle9rAP8DeegoXw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 11.2}, {0., 0.9720074722848471}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{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, 11.2}, {0., 0.9720074722848471}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0nk01WsXB/CDax4KKcl8fr9TiVKqK8reRRRlOGYyJDIPKYkoQ4QiwzUP +mRKOTCUSldzQgEQuFaIyh8xKes/7x7Oe9Vlr72et/d2PjJ0n3YGVQqH0M8// +b5dbz9gpFHGUfC3hUiY2DY8aiioNWMQxVzqrZBvTXPPxNnms4qh1j5GTs3ka +CswcHmmyi2OV87+58aLTMCjD4x7NI468bw6vem2cBrMHhl1iIuLYqvBuWFJo +GjR7h3P3yYmjQbu0sxr3NFCp/OhqJI6D/12jhyxOQW3F9hMzZeIYLbvDheXl +FMT2va+3Z5fAgORqzifJU3DNK0BA3lwChb/K1yrYToHp2qwi/wMJ/CFnopQj +NgVO21dq+rgk0eKad/n79u9gptcu1GIviYUc27Ruen+Hs59u67A/lcQyXe1z +FO7vcJ+DMr5bWAqf/Uxl+SdlEvp3KFpc8pDCDU56B2r5J+HY1PSu0kYpvCvx +OC3VfwJGeY2903mlsfLuvoqgnnHYIplWNaksjZ0i6qJiwuMwtVbA2HdGGk8k +yTf6HR0Dxb70KN44aRRaCyV26I4CyzR/L88TaeRRMEiVPDIC59q1PrCMSmOe +09BIwe5h0L/n/G+YiAyqVQv3+c5+hXZzw9MsKIO914tjF+5/gXo2coTbQwZH +le59Q60hUBk8/0k1XQbDPq39tur4DCbRUdccXshgjvDYrdb3/TC4P1JEfE4G +2dsabvU+/wh8ZXrmryRkcfzl0v2C4R5oskjgy9WSxWPzr1aDad0wzfa0kMNH +FsM+up5U1+yEmsuVS3a3ZdFw7otb/eO3MDMTvetEqyyqdqKmnPkbqE4d7rb+ +KYtBn3a08Dc3g4Qg525ngoqsT/bmKc03wmzYugsUOhWtJSIvnTz5DBxfDjjf +CqDiMVOes0UPasEVFdq1Cqjo7p9yuuJpFRzcePbrKtMHf2SsG2FUgcBk1krF +XSpOjkSs35FSBZXJ6wnxIiqeaqhb6POqgp9Tc5dmGFSk9q+rnpKtgojMWtnU +Cire8BWkV0c+gPyfWhfH66hYKpE4Wn/6PvQ/sJOI7qRiLJH7yFKlAsaLzgru +76IiY6mOIrSjAhazXNgHmOYZqL/cuaUC1kV6f1fspuJfH3av+P4uB7QKqe/q +oeKqVX2oZkM55LLnWon3UzFLPdF2QbscHE0GMxmjVLQyn7adfFMKM0s2kq9+ +U/HjphXbp34MmL3JqRm8RkXljKNzRtYMmJcpc1f+Q0X7a/LNLOoMWNZZqyug +EKj7yP13Nh8DKNkZlqFsBEZw/rV1PrsY1h/rTTnITWBAoEj4YGsR7E6hC5dt +IDDfN2Czn3IheCsf5fpnB4FvtPzjck7egdLJagGQJxC07WUED9yBiWw5kXGm +AznL2eKJO2DPvV4WdxJ4yaYmoflXPph8+KA6qUjg7Is/ZRRGPqgEeHlq7Ccw +8huPYQ5fPrA+S++eRwLvl3H463/KhQSt2XxjEwKnD6XVrWNkQ9aMrMFvpjMO +xO16l5YNhamGv/NNCbTU46jNjcqGJxMPjOfNCAyWvDPl7pINY7d8ORIsCdQp +XmlmyGUD9Kw6vrUlsIi3JcvP8jZMOHHu0HElsGNs8NfQ5UxYFFT+b5bpqqKl +ohbrTKA8dgpNcyNw54VlWsvhTNjI/+rjmDuBUWtX1DdwZcLhips3I7wI1CiJ +pAwkZkDyiuDUCx8Crfgjzu18mA7qUeIVGESgCcyO7uNOA43OmdhFpmcbJbj+ +TKaChvgLr5JgZj1rc8+Xt0yXuiuKhjL3EXt7LyU1FTTfPSmbDiNwYkD2TLBc +KmiLnS7NukHgZ26CjKenAL34DmM1icDkuMa3hg+TgD7nd6MymcDo3hkrp8wk +MDyo6+qUQqC+qfRQ4rUkMGpblOtKJfCPqfxlVcMkMJnVKmZkEPjSiTe/9Eci +WKiMF1rkEhiefS1ZVikR7F7tLKi5R+CnVqXbFc0JkLmnzd6ulMDT+fv2Kt1P +gJ40dypfGYEpicP6LVkJoOtakm1TTmBeY8ig/MUEUOGTS+e4T6C/Y09uH5kA +QrpkrFENgWL1an3tEfHwvGOL/8xzAnm8A5uiTsXB7wOPldMaCRwOYBOy0Y4D +5VyLJfV/CYwXGVzSUI6DUu/UC8kvCGStNjU9uiEO0oQ3eaq1EPivq3TLxtZY +8DYWsr/ZSuA5H4OC6cOxINPLpbuth8Dl7Y8fbPeKAfqgDn5muvjnDUeDkzEQ +MhazJ6WXwFDHP4ey5GLg68qGTVwfCdwtcv5VwbdoKBCT+TzSR+Bqsn+yp1U0 +yJ864H33CzNPNl/W54Y3QXnAOYk2TWBWQ+v2qxZR4DxSEtHPdMVOai73wShI +m572T5ph/v+CLUJVElHw64+PDccsgcRyl7nHYCQ8kQ7ZNjxPYF1tk7CjSyRo +2KXV3vlJoHLzno/GIRGg9+1VP8FB4o+0X1/pL8NBd+j1xV6mPTrtlQ+WhcOJ +gTcCMZwkOleEFR9ODAft3ja1JS4SY26/DMw+HQ6are+yXvKSqMXLNVb8KwzU +qj5YewiSeEjkodXHvWGwM2y8v1qcxIFqmsdcbSgohExcdJMg8byNpI5CfijI +X50UkJEk0TRikD0oOhTk/KbUoqRITGvYXOlpGwo099msU7Iktj37vt+HMxQk +jH9as2wj8eJ7xQY2ixDgI3kGtJVIvFoydDZyfTBoHu42nmM60CVdhX0tCK5a +5b5J30tio9l68p+JIJhNVKmd3EfiDQW+xfGmIOjhcE2MUSbRaTYo3v9KEOSN +vtZ5d4hEqY0b3Iihq6BSEl1jfoxEdZmNW42aA+FCi/ku1uMkrl6qrmotCIR7 +X8mCYqY/d6SRzuGBIC3xJOGXNonbuvtp7JqBwBEz5ZF5kkT/KxpkW1MAdHjq +kYN0EifXJ4pGtF0GJyXBeCcrEpPaBv0bFvwgeTrooJQ1c75fNY87u/2giTEz +/J7pQ2s5yF3jByTxVlXdlum+w8F9/n4wtOHWN4kzzHycvNtprH5guch3oNOJ +RM1zbZnimy6B7iOuz4cukJh/wqAv3fwiBPpcippnWiCjt/Gt2kUo2T26l+HD +nC85MJQgLgJPcXOkqC+zf1WHe9u0DzSnhSvN+ZHIetfkn/RwH8CAv64XXiWx +63LRAdHHF0AJKDuFb5C4lnQ9K+rAecgQU62uZ/pod0LXN+p54Fj0QaebJLa8 +rrhmJnAePpRM0OujSVQps54L/eINQWL/+TrGksgzO+o1E+MNbQv3Gh4nkmi8 +oOfIO34OnEosje2zScwzSbxQVO4F764n9QvkkBjMaJNqzvSCg2c6HB8x7WCQ +5bkS5QXrxLT8BfJIXJKuvZvu4AUPr++5XXOHROm/Dbd3bfECtjPcY3wMEm2/ +5Z7iEPWErM3VAVVVJO75ZLg/acENusfKGKcekrhVW11H/70bCNQWfmCrJnGL +9dn9ClVucMUiTZleQ6K9ThRFz8cNrNID56dqSSzb6npt55IriEtouG17RqIw +XbZGjcUV0qU7LNNfkej3kPalSsEZ3s28jDrymsTNVt7sEYLOwNPw/NEY061y +319cWnAC/9MPNim3kvi96W5uVb0TWOQmd3a1k3ivwMAiVc8JxAhrHYH3JHL+ +ysj8fskRUrZOqAQPkMhGpesvfnaApuTrmfs/M/ebNZWr0+QAc5wEZZLpDA6h +xGcMB9AdPfXCZIjEKLOrLVy+DsBe1KYn/41EIequCIF1DuAtV2n/3ziJcbbs +zW817OGEgl+MwiKJ415cmUea7MA/U+THENN0Dz6p42V2cJe/0jBlicSQ4XIe +1xQ7YJ0aF2VbIVH1/ckciqsdPCo9ldfzi8SnBvr2noJ2QFPEmlAWGjYocHjj +mdPAosQ51MtHQ66FvPefN9uCy3MPaig/DRMN3BZdOW3hnUG3vbwADTsOU8I2 +jdtArtedkSvraChwtZlDKMcGjpSqf6cK0dBY4bff9HobCN0etOy+iYbstMo/ +5LIVsEuvCLDKMi1SGWz+xRI8ymz1GUxvlb7lr9VoCd1qLXFGVBrGm05GmedZ +QoFV8oa7BA077TWNx85Ygmb6PrETW2nYWC6ld3/YAq5v9CaT5GlYqSWq1z5r +Dtz8E6pyf9Nw6mb9fiphBvp+kfIjTJd7zQutZzeDpG9bJfKVaShbdZQghk2B +eGK/JqHCfO94Ca2h0BTUPPufCR6i4fnCPr+Xu0zhfEfH0ZUjzP5l1ohxDRPo +S6zRa9Gl4Qvzsfw9UUZAsJpimB4N5V+omN/zNAIXjwXFI/o0zJ4XLTlubATL +mnuE6gyYecpxRgxLG4HQMqOrzIiGdaUbM0seGYKWxW3zZAsaRhXqrWr+oENM +0yFtI0sapr2WSm3poUPXnk8qgqdo6Ox7zMj5GR3seDeL37Ciod7ZxRucsXQI +qIvvv2JLw1y7H92VinR4vm13u+ppGjpePae6fTMduBPbny4z3VkcequehQ5J +7nw53mdoOK923Bs6DaCvtzhulz0N/XttquXrDIDQPB4yyTQjrM3s7zsG4FI5 +4l3kQMMd95T22MQYQIVk+JmzZ2m4Omomle9rAP8DeegoXw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 11.2}, {0., 0.9720074722848471}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (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:eJwVV3c4le8bP2Wcl9A5Rs55j3kGkhYSKs9tZEeDIiU0EFJWUqRC9krS1kCL +yl6ZWRHfJHtEysxKIqPf+/vrve7rep7Pc73PfX/GI+vgvv/kahKJdH4VifT/ +7xG9RD4SiQKx0jpHnc+MoJ3fxcoyIymwfeJDa4DDKBpsvrN+B4cKi1GZOnu+ +j6FZxtqhtCwq1Em+605q+YkGKH5uRkgYuHqofWfYU+jW/tHUslZhKKgczxj9 +bxrlTBqpSpwQgZsRoTd/5/1CdzsyvPYsi4DpGm+9Pvk5ZOvOH5B1QxSsNRq1 +24fnUbidZdeytBjEXd2u4VaxiPwfpIxJ5ouB3ewqVCz6D3Vs/27O1F8H9GbB ++ityq0DYn+Fv82kdjPWILXEVrgaRtYeOnnYSh+OBMpR/NtxwaelK3NHf4lCy +eZPSmmIeSFfL9JWLpkFcnU9+xl9eKJboUGCz6fBgwS1/21cyqNhOKvG+oYNE +c1os0xYDj3H+wXcGOPwOTWnZ6o8BvVVs0voLDpSaMH4/VQxCBeTS688wwCZg +9+ZePzJ8mVBS9eCRAOWG/kbt47wQrsRauxwnAZmz9+bvivEAOU/q/lFFSUgr +f2952J0Lxu/xXX6cLwlcN9o1hEpXwetNY+sl9KTg6VPxt2PcJNAQbL7u0iUF +WgfbT03qLSElg2caD52kYX/iYk9w2zz69UPbvIUkA0Y7l1fl7/+NEGnDqV8m +MlDvyd8izJpBqGZNGne8DDTt5CmCbxPoiap7OalXBhzSb7zyfzuCisw/8Eyy +ZUFI8NVaA6/vqKIsOeP8aVmQe7jO4kRHP1JqX9gyliML5RhkneDtQSb3jXv2 +LsnCaLFUYUpNG2rEpI4/MmSCLL97ai3/Z8TDHBEejGGC9GKt4poPjWhD3Gb5 +8i9MmDxe6SjzrRZlp86LhsmywOBc2LW+l5VoxrlASdeJBVGXok8bXShFNz4v +SQ5nsyCyc+mtfHI+Yt0o8pQnseHzpERPh3EWciR5/LLSZ0PjsyHrxNQMtFb0 +pal3PBveM/YE+janIdcvXU3XOthwVSajTuDDY5Q3fj1PSZoDh2te/2dReB+d +epHrW3aaA4bbbeXGuW6hOrGe4/pvOZAwPaDaSo9HzT2qi//+cUCF7m8klRqB +GkRbT1jrUyC7Uy2J0T2CKEfaZ+faKRA1ctvoufAYcv1jEXrOlQqTF5PTE+vH +kUui3gvfBSo0GV4wZy5NoOKtyvw8EcLALEhv75iYQnKyd9zOSIoAb9sfwfKC +GVQb7PrnW4Y46A0VePxH5YEEOs5ToU2D/iES6j7BC9nPq/ZyOmgwWFll1+1L +Bt9dg4pip+mwLWsbv6ciBvs5/tjAIh1O7PINKrqIgb597EhENA4HDbXDsJMY +7J2WbBRmMkD+0old2HcyZPg/n5IqZECeSUOnGjH/bwSfPcozkYAvMQY7NN/z +QLEmkyzVIQvS1R4ZJ4w7kcABVZkLTCbARd47r0y+oNM3uYp0XJmQenfo9xvZ +TyjJWuB+cyYTprceneXLrEdTDFGplEUmFFbYFu5nVaMDWIfMDz0W8PB92ka5 +U44qpGxSbkazIKQpJkaiswjZqHTXXu9kgXtt7eLcxxxUVZeoAiw2XBc5MsxS +eYt2hAvJOLqyYb0nMyyR/BKVeOlGL+WwgT6xIfbA+hQk3P9W12qJDcNqtrvX +5CWjaBPppDk9DvBzC+Umrb+DaF+NznBFc+AjderzvHMCalwI3fyknQMFSdMv +Hj+NQQlKanlKLAqE+ibFmj8eQaky5ztbMinwoMrW0iN3FCl8/2PVakiFL2Z7 +i3dZjKMtHc8NY1upIF9QKP/5+AQyl23dIX9SGLidVu4VhUyhXg2dcPG/wqC9 +3e7dK50ZdOaDvWJahDg8mvap3pbPDdgas/oYBg12Grj8eSbMC1umigZTsmhA +j9+nEbiTDHh673MJAzooirGvi2EYVGjn4rNf6FATXLTJ9SwG3akff7BdcFgt +78q1xQuD7G+3bXMXcZCV2qi4iYIBo2rIzDuBAWee9Ol67SKDTsDoaIKCBDx0 +Xir4T4wXvPiE7gXVyILpMY0a8qMupORbunJiLRN8+GIFV19tRRJNlLUeh5kQ +cL037AKlGTW++3vI5hETBMdIHmGqH1F06yNm1jATMlarj5dfqEFBbcN3tquw +wKTPZkHyXgU6rMfv7HqRBc25dYIO996h89dcf+XVsEDkyYBWilIe8tr0/HMW +lQ1Vty4vpm7PRPt2l/HZWbOB5LRms3jdK3RK7/xP9adscD+YvUfBKxWhrmq+ +iVE2jBaqBXEVPELMe5/TqMoEf6Oiu99/u4vQ7sBf9pc4oKr5MWdL+k3UQM6q +m33PAcfquDmv8VjEvewtHOJMAcdZrjwRiVHkd0tjLf0fBS6bJZUHnB9Db/gy +8wRiqdBZ8sX4gclPJKPwQ2vWkQYa9NcrZpm8oH68qfjpCg22Jrazr74mQ+vH +kZeCUXQYKlno2GCAwQCmN9cki4OknI0RKRCDN4wD4zNvcfDb5G9VbY7B+Mqj +Xe6GDFCNYsUrZ5Fh8Mc9/wpBDlxsXOP2NuQh+vv3dGjXIQ5QcrUKFMOT0JSf +yMjThxwo0zsVsVXjBvpvzPbmvnEOPFbOz/NMiEK+6qfsEqkU0Jx4Rnt6fQRN +X9X/WPmQAjvZcZ3eEaOI94hRObadCgGT0oPFjHEU79ctLlFFhSXpjULijAlE +oz+zUN8vDBEP3pd1W0whTf1EmuuwMASxgxdk+WZQmWt3JeYnDn5xwYbO4dxQ +weWU4YPRwOhF00D/EA+cEcnb9COZBqFlcgPaEmQYG7RxTt5Gh0+m6+I/z5Lh +b1Mza7mCDq3DUVYcJwzSjFxPnrPGYfi4gLjPBQx+dLfJhQ7jQFNbKdzKwqB5 +mDcg+QoDFnOkHYeOkCEyNyKGS1wCJCTsmqi7eOG/qWs/8kpk4dQnu4D2fd2o +mJ9nopOHCeWXA8L6mW3ot4t4Qdg+Jtgd23VxfWQzGp08l/MwiQl3hPz5epc+ +ou6sYbZmHxNc3VwP8yjVIonSqUN2iizQKqgy12JWIrm2/g9t51iQU6152eV6 +CQp+mY3tLWHBW1RlWfgtDzXYZT75ibEhrFHD17Y0E3Uzbwd0m7Ph05v7/ruy +05GmElXy0F020J6e4PlPJg0dtPo0rj7AhvzLxaNJ6DFyfZ+++aECB0ZbBsVO +1t9DzecZanGeHJjrI2sIHExEH4RqEyWLOLB9x4zQi8A4NIylFk0eosCkwKmC +PYsjqGoBW42NU6D2HIT+1R1D0YFcMiiACtGOLpaB/D9RpwyJ2WVBg9zZhAnl +SF7wCfnA+32MBhD7fnwkgQxpPI4ucRfpoBDitxysgQF+y+5fuxAOzTOB06UB +GFwsmT6Nkon55UvvW2+DgdR8H4/2NgYUiFr6TDWQYfF4mp0gDwdaikRue+9I +Rnqs3RRnMw6oMc+eeHLwNgpKz9jQksgBycCSwkNNN1DTjKeD3wAHTh3t/qGU +FI2MvO1Hk6zoYNlLbZ2jYxCedZs6NkwHI5tMi1kfDKjcm53aL+GQzIo+Y+eG +wdVRm8RBIQZ8Ux5f8FwkA3ei63jYAzqQpj0Z9gcweOEn/7NaFYfTAjLZFy9j +MOib7ZZaicPyxiGVrzoYfBo0qlWY48BmyW32W25HotNaK6r1GAX6a9ibOvxG +0DrVDP0diRRg+qvaFfqMIm9xj9+ym6jwyhQu6ZLGkW699z/7Yips6Pr5OvbP +T7QsSu0vMxSGTpnWkfM7p5CTadmxxD5hkOWrWegan0aj727HapwTh1t65WYG +ntwgTfotPboiDjMOx+rEm3lAKCX7QMgtGsQXGts8XkOGlkDcaECJDhRU1/x6 +lAzrxO2fXSmgg3/gTh2b4xgI3C16emsvDjuMjY2DCT8P7Jjjn+7FwSIjPFZQ +CYN0v0QxNV8GWKBPdcKuZHizv7tfU0gC9gV6upju5YWAwZKIfYWyYPuXfTj1 +ZTfibkn7LraKCTaa3+arvNqQQyEeLbaHCVcUSeZ4fTOaD904qJ3ABO6OTp52 +h0YUxBRI9e9kguPGD4pzIbVoONMrd5ZD6Lt/fvj9U5UoMvnjRUE3FhgKEQnp +XwmKLLUSuVfAgmWX6WJd7Xw0v5AbEc7Nhowqqvxj7iz0OI6nADdhg6/deetA +pQzElulV/ZHIhrWvfEmrL6Sh/sSDtr09bDiK3bW1DHqM4tvv/PrO4sBU7e+g +Se37SILq3KbgzgGjLeVHrF8lIuP4/ctbczlwMvh79oOGONQppBXLNqfA4m2h +oqtjI2j0xdmLlwcocPjZZy2BDWNoeYeShZU3FfiKSwOrRsfRdsmoG2YmNGhV +Y+/O8OUFMVrthuABQs/cB6yo18kQ+4hj8tmDDnMU9bH1yhio9U5cO8qDAzPW +eoMPkf+/rtV+cfIWDkcy304Z2WGQN7sy8nwDA37ItwRs7SBDyGOl5kwSB/jC +uJqbfJOR83blltdGHNBKP2FlUnobNeovNbjEc4Btrtq3TiIBmfms1Eb3cEBv +oSTbRDIGKVNlPnSa08GCeilSmYpB6l/5RPc+OmhE/9Ia9sTAxzIgbcUThx5N +LasFIg8whvz89vAwgHut0y0yLwY/t25oqL9JB7qJbKXXHgyqy3POmWzAwe2i +SMocwRfjD1zpDYU4uHQf97hmRORDp5ZNu6Y5IFubnFYjFoV6Q/Ue+jbQ4fO9 +G2cDXTHQmZeQM3HAAZ3vNOU+j8GKebOfBQ0HQVePN0kE3jq3xxvoz3FwR103 +n1licMZ1TdSpGTogsX+KsYTev8rsU8gMxqHqq4X7SWcMolVuO+lo4aDS9/ZM +DKE/++1L7UUXif/fstkhRSoSHdc2fniSmwJmPXW/bnqNoOcCDlzn4yjQoqOU +Hek6ipS8Q2Iy1lPh8HDumvyZMXTPU+cXdz4V/qXwcXP9+Imm4nfL8+gJQyWP +7ozjlikUaG55bUOXMAy3hZS1906jgFPzc59cxWGdn+v3NEduMAsoamf9FYeX +7Y3Z9Boe6HVTOdUaT/j/lsRFZS4y1DYuqF9ToMPIo84QfyI/P9V8NlqZTQfd +7GO5DUT/S3WPv1c0xaFb7cJ3x0sYNBzi9ed04uBZYFS+bwsGd3Rt+wM9GbBB +YW94kCcZKpK5I1r5JGCbpNnnJmtesLQ9YiuVLwtSp3YfHWrvRs/UL9hnrcjC +haB/pusetKEk+3u+XcZMYIz1ZHSMNqMAy4hF4XgmVL16rmOc2IjaO+6fkm5n +wtQ+wW/fsmtR46vc7yUsFgzpZ/MywyoRCta1eHaaBYOtD2M37CxFsXUvaDp5 +LFBX15cMP5uPovUL/lmtZgPbfdj8oXwW4q7b0VpgyAb7gJGIvc4ZCL/zviw9 +gQ2OJ5qcE1LSkJwaXfxtFxu2SNEuU9Meo6cOcZZhshzo85Wy/eF/H5X3rH02 +68qBZpXdlQttiYi/5daW4iwObBNg11B/xaHP1PC/JcYUoLgPllZ8G0H+19jq +RT0U4C2xP1snNYayb8PE4FkqMMw0nkl0jaNTdw+YhurTQLukvL3xDC8MftXX ++tJDg9lKrsOrA8kQNMm9w+sMHVY/am+w3oTB+1Vq1Q9JOCj1mEynEv24kT9c +Nx+Pw4rLB/ccBwy4PYWO9MoxIOyYgopiHxkatCfDg1fYUG5po/LpVjK6VK6g +dsCAA7PR1bM7Z28jT5En97fHcqD8k+OubzoJSChfd4nWxYHU/vSk13YxSO7Y +v4KLJnS4PG5Bey2AgaqUe/vbTjqkOUVsVffAYP0KpybOHYemisU/yUTtdDJ8 +/AqJAftsNCMV1hD58TJ/sWscHTyHNDttjDGw+L6UFSWHQ6QUVzIfkSeXPV42 +HMvFIfrik99vTDGgvKA71ExwYHkfV1SnRRRyfRXRX1hDhxUt+GB3GoPZ5Pe7 +e4/i4CF94ZqRLwaRnvR3iSI4bEpa9NQk+ForZmzy6ikOuWovj3pbYbAUs7/p +2U86XHn7wWQvsd7W5rrh7is4rBvr2OTugoHEoa8vgjRwcA1WKBYh9gs/4b75 +YJ4Dvrb3+p7bRKLDMyLB3JY4+Fyt5w73w+BZYZo2gx8H0U34xvUEv2ltXw9s +HKSDK/PhnkveGKg/OLOZbwsOcts6D9YQeGeVItSFJXGYcjB80knUXw3fG7P/ +0EFO+utoFoFHouyXI+nioEb+XT9B6G+8tN+m8GVi3rhbemQHItBXnbMtyqsp +UCio2nrp3AiamS/qF42hgNjo5cYrjqMIexrb7SVPhQLJkISVsTFUW6Pg1ppD +haOBOVeMen6ikU/HjNO0hcHTb02Uk+IUEvgkLTbXLgz3LWVF+tqmUW2hvOKD +0+Kwedt0Sos9N5x8J5VT9kccWm23XEoo5wH9Zg/3gFgaqNSref1a4YUK75E3 +B+ToEJL+0qx7gAyuDfVrTmbSQc9sROziMeI+aNstZo1waNNKm2ki5nNmnVBu +aRvxfpvsPu5M+A1VQcdA7hwD3s38tVc9T8xnTdKxp2QJMLANJEXY8gIwXtZw +58nCF663fg8mu9HfUXvpq8uyEGsgJ9Ga2YZUtvW4lRgxYS5UR7X+bzOq2KF5 +fTGWCTG6Gl0ybxrR1Zwf+lOtTHDLK9Wbr69F5c8PLT9hsmCV4MjDC3cqUdL5 +gDJvZxYszU8GvzpciuIbDzDEclmg2LP4Z09oPmp3LdSAVWyY9qv+pqqRhXIH +W0+EGbCBdVUrc/B6BhJtywuJu8GGx+IP1JaK0lBdsJ/nnU422E3sU7+e/xhl +pEXy2sgQ/mhGShS6dx+J6h2P7XThwLrMfy+HfyaiUS9N4yuZHAiXVq515o1H +e0XebI40pIDVu88i430jqNo9YJ11FwV69fr4c2hjKLbWeMfLM1RYb2i1z/Lz +OPLvzFXg6NFgvcDPiTZnXjDdHWLg30UDPmq5psclMgQkzmbqudJhn6Mociby +VMQN6yFYoYN2XE+ZKtGP8chi64pYHF6fTecbIPKYovK6m75sBlw/sRwtQfTT +PW7v0JllNvhUSco4piWjYF72EFufA+4awkE9QndQ9YW5YMkYws9K93acOJiA +Jqx+iPV2cCDlv0frb12NQTK8k1tNjeggILBD+CQ/Bouv4xf2t9Oh3Uktw/Ic +kX+bFw7auOGQePRarAvh99HseI7ECg5WqaY1GYLE+1/ur8quGDpUeqoUVxsS +/n9e5ssmNuHv6ysCMEIvDhpcPrI+Gwd10XcvtcwwmDIuvhj5kwMO7o6GiV5R +SEXr9eojVYQ/9+Dh+oQfm3knfUmzIfC/N/cPEPw/wLOrdzsVh91sKCIRfGSO +SnZ5P8YhImcyrdkag0pZnymjMTpI7iltTiHyQP5mm3ahyzjofODvO03khW/D +XA2c7ThwTTfrmBD7Z3TTMo7/4QAvS7LpiF8kyqoeEm3cj0OjWG4xP5Fv3U3r +HYrJOGQq3VL5TPC7z4nbu7GfDvwBb6tzvDD4tzl+74uNOOyx9wkdIPC2l2RY +Z+E4jITqq7wj6rTOIZeqWeI+NU1jOIRe1DzyNngEOCh//ZWmQ+iPR5mEofkS +B4Q8LsUdIEWiZXfhlJXVRB55zysmTJwXdaAjflwBh7va3a+4iPur6v9997cY +8R7aqMpwI/Atq4rDvu3AwdhRQuYLgdevECTjJ4DDziY9cV+iPidgIuSkjIPl +dwYlhVj//I6j+DlpHJaCxEnTRJ0Z0CZatcIB4+tsOcr7CPQ/iVYy3A== + "], {{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwl1He4zmUYB/BjO/be69h7NZBNQ/YWoTJS1rGiJKusaKlQFGWvlpkyiuxK +kVREGQ0RyUiSz3354/N+v8/9XOe8v/Fcb1KP5LYDUyQkJIzwEVnJx+/yXUbR +hltoZp6ez/XXSSYllc1Oy/d4irbcSnPzRL7QZzOIVFQx+0O+z2jacRstzDPw +pT6HwaSmqtkZ+QFjaM/tpKGavbNyFWPpQA3SUt3en3I14+hITdKRnkQykJFM +ZCZL3Ku/OyfXMJ5O1CJr3Je983ItT3Mfd9DSPCP79DcYQra4L7O/5DqeoTO1 +aWWeia/0NxlK9rgvswtyPRPoEt9hlpvv9cXUobV1Zr7W5zKMrtb5+VFfTo54 +FtZ/yw+ZyIPWhflZvz+uR8/DD3pfWYYlei+ZxCl9gCxP3TgLMguD2G/9qCzN +MOZZ95BFGcIJ6/6yHMN5zLqbLMBgjlr3k2VjjxXWD8sSDOVX6ziYFcgZ705e +lBt4RC/FJP0hWYTj8Qzimel5OawvpbdenF/0enE+9awc0N+ip16Mk/pwuusF +OaavJFe8f+tL8iMmx33E8zPLxxF9GfXjLFtn4xv9bUaQO86I2WX5MVPiO2hA +njgP9q7IjTzLAzQkL/nITwEKUojCFKEoxUiiOCXibPhf/8hNTI33TSNKUtfe +VbmZafHcaEypeC72/pVbeC7eI3dSOu7L3jX5Cc/H8+IuysQ92PtPfsoLcW64 +m7JxD/auy628GO+BeygX12Tvf7mNl+K904TycU3xI8RnYjp9uJcKcU3xG8V2 +/eU4BzSlYlyTeUp26K/E2aQZleKazFOxU381zjrNqRzXZJ6aXfqMOJO0oL1Z +dg7q83mcKnGdZmnYrc+kPy3pYJaDb/UFPEHVuHaztOzRZzGAVnSMc80hfSEj +qRb3Y5aOvfprDKQ1ncxy8Z2+iCfjrFgX4if9nXhWekl+05NlxRQ3f9erW98A +DjyeCA== + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgEAURMEvGtiGrWhgYmQJBsKBcOAJtq8GgpkNTLLw2OmWPK9nFVGa +iJhSOdY7PlU/1d4zj/2Qt7yn50/xDo7jOI7jOI7jOI7jOI7jOI7jOI7jOI7j +OI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7j+D+/AG5e77g= + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVV3c4le8bP2Wcl9A5Rs55j3kGkhYSKs9tZEeDIiU0EFJWUqRC9krS1kCL +yl6ZWRHfJHtEysxKIqPf+/vrve7rep7Pc73PfX/GI+vgvv/kahKJdH4VifT/ +7xG9RD4SiQKx0jpHnc+MoJ3fxcoyIymwfeJDa4DDKBpsvrN+B4cKi1GZOnu+ +j6FZxtqhtCwq1Em+605q+YkGKH5uRkgYuHqofWfYU+jW/tHUslZhKKgczxj9 +bxrlTBqpSpwQgZsRoTd/5/1CdzsyvPYsi4DpGm+9Pvk5ZOvOH5B1QxSsNRq1 +24fnUbidZdeytBjEXd2u4VaxiPwfpIxJ5ouB3ewqVCz6D3Vs/27O1F8H9GbB ++ityq0DYn+Fv82kdjPWILXEVrgaRtYeOnnYSh+OBMpR/NtxwaelK3NHf4lCy +eZPSmmIeSFfL9JWLpkFcnU9+xl9eKJboUGCz6fBgwS1/21cyqNhOKvG+oYNE +c1os0xYDj3H+wXcGOPwOTWnZ6o8BvVVs0voLDpSaMH4/VQxCBeTS688wwCZg +9+ZePzJ8mVBS9eCRAOWG/kbt47wQrsRauxwnAZmz9+bvivEAOU/q/lFFSUgr +f2952J0Lxu/xXX6cLwlcN9o1hEpXwetNY+sl9KTg6VPxt2PcJNAQbL7u0iUF +WgfbT03qLSElg2caD52kYX/iYk9w2zz69UPbvIUkA0Y7l1fl7/+NEGnDqV8m +MlDvyd8izJpBqGZNGne8DDTt5CmCbxPoiap7OalXBhzSb7zyfzuCisw/8Eyy +ZUFI8NVaA6/vqKIsOeP8aVmQe7jO4kRHP1JqX9gyliML5RhkneDtQSb3jXv2 +LsnCaLFUYUpNG2rEpI4/MmSCLL97ai3/Z8TDHBEejGGC9GKt4poPjWhD3Gb5 +8i9MmDxe6SjzrRZlp86LhsmywOBc2LW+l5VoxrlASdeJBVGXok8bXShFNz4v +SQ5nsyCyc+mtfHI+Yt0o8pQnseHzpERPh3EWciR5/LLSZ0PjsyHrxNQMtFb0 +pal3PBveM/YE+janIdcvXU3XOthwVSajTuDDY5Q3fj1PSZoDh2te/2dReB+d +epHrW3aaA4bbbeXGuW6hOrGe4/pvOZAwPaDaSo9HzT2qi//+cUCF7m8klRqB +GkRbT1jrUyC7Uy2J0T2CKEfaZ+faKRA1ctvoufAYcv1jEXrOlQqTF5PTE+vH +kUui3gvfBSo0GV4wZy5NoOKtyvw8EcLALEhv75iYQnKyd9zOSIoAb9sfwfKC +GVQb7PrnW4Y46A0VePxH5YEEOs5ToU2D/iES6j7BC9nPq/ZyOmgwWFll1+1L +Bt9dg4pip+mwLWsbv6ciBvs5/tjAIh1O7PINKrqIgb597EhENA4HDbXDsJMY +7J2WbBRmMkD+0old2HcyZPg/n5IqZECeSUOnGjH/bwSfPcozkYAvMQY7NN/z +QLEmkyzVIQvS1R4ZJ4w7kcABVZkLTCbARd47r0y+oNM3uYp0XJmQenfo9xvZ +TyjJWuB+cyYTprceneXLrEdTDFGplEUmFFbYFu5nVaMDWIfMDz0W8PB92ka5 +U44qpGxSbkazIKQpJkaiswjZqHTXXu9kgXtt7eLcxxxUVZeoAiw2XBc5MsxS +eYt2hAvJOLqyYb0nMyyR/BKVeOlGL+WwgT6xIfbA+hQk3P9W12qJDcNqtrvX +5CWjaBPppDk9DvBzC+Umrb+DaF+NznBFc+AjderzvHMCalwI3fyknQMFSdMv +Hj+NQQlKanlKLAqE+ibFmj8eQaky5ztbMinwoMrW0iN3FCl8/2PVakiFL2Z7 +i3dZjKMtHc8NY1upIF9QKP/5+AQyl23dIX9SGLidVu4VhUyhXg2dcPG/wqC9 +3e7dK50ZdOaDvWJahDg8mvap3pbPDdgas/oYBg12Grj8eSbMC1umigZTsmhA +j9+nEbiTDHh673MJAzooirGvi2EYVGjn4rNf6FATXLTJ9SwG3akff7BdcFgt +78q1xQuD7G+3bXMXcZCV2qi4iYIBo2rIzDuBAWee9Ol67SKDTsDoaIKCBDx0 +Xir4T4wXvPiE7gXVyILpMY0a8qMupORbunJiLRN8+GIFV19tRRJNlLUeh5kQ +cL037AKlGTW++3vI5hETBMdIHmGqH1F06yNm1jATMlarj5dfqEFBbcN3tquw +wKTPZkHyXgU6rMfv7HqRBc25dYIO996h89dcf+XVsEDkyYBWilIe8tr0/HMW +lQ1Vty4vpm7PRPt2l/HZWbOB5LRms3jdK3RK7/xP9adscD+YvUfBKxWhrmq+ +iVE2jBaqBXEVPELMe5/TqMoEf6Oiu99/u4vQ7sBf9pc4oKr5MWdL+k3UQM6q +m33PAcfquDmv8VjEvewtHOJMAcdZrjwRiVHkd0tjLf0fBS6bJZUHnB9Db/gy +8wRiqdBZ8sX4gclPJKPwQ2vWkQYa9NcrZpm8oH68qfjpCg22Jrazr74mQ+vH +kZeCUXQYKlno2GCAwQCmN9cki4OknI0RKRCDN4wD4zNvcfDb5G9VbY7B+Mqj +Xe6GDFCNYsUrZ5Fh8Mc9/wpBDlxsXOP2NuQh+vv3dGjXIQ5QcrUKFMOT0JSf +yMjThxwo0zsVsVXjBvpvzPbmvnEOPFbOz/NMiEK+6qfsEqkU0Jx4Rnt6fQRN +X9X/WPmQAjvZcZ3eEaOI94hRObadCgGT0oPFjHEU79ctLlFFhSXpjULijAlE +oz+zUN8vDBEP3pd1W0whTf1EmuuwMASxgxdk+WZQmWt3JeYnDn5xwYbO4dxQ +weWU4YPRwOhF00D/EA+cEcnb9COZBqFlcgPaEmQYG7RxTt5Gh0+m6+I/z5Lh +b1Mza7mCDq3DUVYcJwzSjFxPnrPGYfi4gLjPBQx+dLfJhQ7jQFNbKdzKwqB5 +mDcg+QoDFnOkHYeOkCEyNyKGS1wCJCTsmqi7eOG/qWs/8kpk4dQnu4D2fd2o +mJ9nopOHCeWXA8L6mW3ot4t4Qdg+Jtgd23VxfWQzGp08l/MwiQl3hPz5epc+ +ou6sYbZmHxNc3VwP8yjVIonSqUN2iizQKqgy12JWIrm2/g9t51iQU6152eV6 +CQp+mY3tLWHBW1RlWfgtDzXYZT75ibEhrFHD17Y0E3Uzbwd0m7Ph05v7/ruy +05GmElXy0F020J6e4PlPJg0dtPo0rj7AhvzLxaNJ6DFyfZ+++aECB0ZbBsVO +1t9DzecZanGeHJjrI2sIHExEH4RqEyWLOLB9x4zQi8A4NIylFk0eosCkwKmC +PYsjqGoBW42NU6D2HIT+1R1D0YFcMiiACtGOLpaB/D9RpwyJ2WVBg9zZhAnl +SF7wCfnA+32MBhD7fnwkgQxpPI4ucRfpoBDitxysgQF+y+5fuxAOzTOB06UB +GFwsmT6Nkon55UvvW2+DgdR8H4/2NgYUiFr6TDWQYfF4mp0gDwdaikRue+9I +Rnqs3RRnMw6oMc+eeHLwNgpKz9jQksgBycCSwkNNN1DTjKeD3wAHTh3t/qGU +FI2MvO1Hk6zoYNlLbZ2jYxCedZs6NkwHI5tMi1kfDKjcm53aL+GQzIo+Y+eG +wdVRm8RBIQZ8Ux5f8FwkA3ei63jYAzqQpj0Z9gcweOEn/7NaFYfTAjLZFy9j +MOib7ZZaicPyxiGVrzoYfBo0qlWY48BmyW32W25HotNaK6r1GAX6a9ibOvxG +0DrVDP0diRRg+qvaFfqMIm9xj9+ym6jwyhQu6ZLGkW699z/7Yips6Pr5OvbP +T7QsSu0vMxSGTpnWkfM7p5CTadmxxD5hkOWrWegan0aj727HapwTh1t65WYG +ntwgTfotPboiDjMOx+rEm3lAKCX7QMgtGsQXGts8XkOGlkDcaECJDhRU1/x6 +lAzrxO2fXSmgg3/gTh2b4xgI3C16emsvDjuMjY2DCT8P7Jjjn+7FwSIjPFZQ +CYN0v0QxNV8GWKBPdcKuZHizv7tfU0gC9gV6upju5YWAwZKIfYWyYPuXfTj1 +ZTfibkn7LraKCTaa3+arvNqQQyEeLbaHCVcUSeZ4fTOaD904qJ3ABO6OTp52 +h0YUxBRI9e9kguPGD4pzIbVoONMrd5ZD6Lt/fvj9U5UoMvnjRUE3FhgKEQnp +XwmKLLUSuVfAgmWX6WJd7Xw0v5AbEc7Nhowqqvxj7iz0OI6nADdhg6/deetA +pQzElulV/ZHIhrWvfEmrL6Sh/sSDtr09bDiK3bW1DHqM4tvv/PrO4sBU7e+g +Se37SILq3KbgzgGjLeVHrF8lIuP4/ctbczlwMvh79oOGONQppBXLNqfA4m2h +oqtjI2j0xdmLlwcocPjZZy2BDWNoeYeShZU3FfiKSwOrRsfRdsmoG2YmNGhV +Y+/O8OUFMVrthuABQs/cB6yo18kQ+4hj8tmDDnMU9bH1yhio9U5cO8qDAzPW +eoMPkf+/rtV+cfIWDkcy304Z2WGQN7sy8nwDA37ItwRs7SBDyGOl5kwSB/jC +uJqbfJOR83blltdGHNBKP2FlUnobNeovNbjEc4Btrtq3TiIBmfms1Eb3cEBv +oSTbRDIGKVNlPnSa08GCeilSmYpB6l/5RPc+OmhE/9Ia9sTAxzIgbcUThx5N +LasFIg8whvz89vAwgHut0y0yLwY/t25oqL9JB7qJbKXXHgyqy3POmWzAwe2i +SMocwRfjD1zpDYU4uHQf97hmRORDp5ZNu6Y5IFubnFYjFoV6Q/Ue+jbQ4fO9 +G2cDXTHQmZeQM3HAAZ3vNOU+j8GKebOfBQ0HQVePN0kE3jq3xxvoz3FwR103 +n1licMZ1TdSpGTogsX+KsYTev8rsU8gMxqHqq4X7SWcMolVuO+lo4aDS9/ZM +DKE/++1L7UUXif/fstkhRSoSHdc2fniSmwJmPXW/bnqNoOcCDlzn4yjQoqOU +Hek6ipS8Q2Iy1lPh8HDumvyZMXTPU+cXdz4V/qXwcXP9+Imm4nfL8+gJQyWP +7ozjlikUaG55bUOXMAy3hZS1906jgFPzc59cxWGdn+v3NEduMAsoamf9FYeX +7Y3Z9Boe6HVTOdUaT/j/lsRFZS4y1DYuqF9ToMPIo84QfyI/P9V8NlqZTQfd +7GO5DUT/S3WPv1c0xaFb7cJ3x0sYNBzi9ed04uBZYFS+bwsGd3Rt+wM9GbBB +YW94kCcZKpK5I1r5JGCbpNnnJmtesLQ9YiuVLwtSp3YfHWrvRs/UL9hnrcjC +haB/pusetKEk+3u+XcZMYIz1ZHSMNqMAy4hF4XgmVL16rmOc2IjaO+6fkm5n +wtQ+wW/fsmtR46vc7yUsFgzpZ/MywyoRCta1eHaaBYOtD2M37CxFsXUvaDp5 +LFBX15cMP5uPovUL/lmtZgPbfdj8oXwW4q7b0VpgyAb7gJGIvc4ZCL/zviw9 +gQ2OJ5qcE1LSkJwaXfxtFxu2SNEuU9Meo6cOcZZhshzo85Wy/eF/H5X3rH02 +68qBZpXdlQttiYi/5daW4iwObBNg11B/xaHP1PC/JcYUoLgPllZ8G0H+19jq +RT0U4C2xP1snNYayb8PE4FkqMMw0nkl0jaNTdw+YhurTQLukvL3xDC8MftXX ++tJDg9lKrsOrA8kQNMm9w+sMHVY/am+w3oTB+1Vq1Q9JOCj1mEynEv24kT9c +Nx+Pw4rLB/ccBwy4PYWO9MoxIOyYgopiHxkatCfDg1fYUG5po/LpVjK6VK6g +dsCAA7PR1bM7Z28jT5En97fHcqD8k+OubzoJSChfd4nWxYHU/vSk13YxSO7Y +v4KLJnS4PG5Bey2AgaqUe/vbTjqkOUVsVffAYP0KpybOHYemisU/yUTtdDJ8 +/AqJAftsNCMV1hD58TJ/sWscHTyHNDttjDGw+L6UFSWHQ6QUVzIfkSeXPV42 +HMvFIfrik99vTDGgvKA71ExwYHkfV1SnRRRyfRXRX1hDhxUt+GB3GoPZ5Pe7 +e4/i4CF94ZqRLwaRnvR3iSI4bEpa9NQk+ForZmzy6ikOuWovj3pbYbAUs7/p +2U86XHn7wWQvsd7W5rrh7is4rBvr2OTugoHEoa8vgjRwcA1WKBYh9gs/4b75 +YJ4Dvrb3+p7bRKLDMyLB3JY4+Fyt5w73w+BZYZo2gx8H0U34xvUEv2ltXw9s +HKSDK/PhnkveGKg/OLOZbwsOcts6D9YQeGeVItSFJXGYcjB80knUXw3fG7P/ +0EFO+utoFoFHouyXI+nioEb+XT9B6G+8tN+m8GVi3rhbemQHItBXnbMtyqsp +UCio2nrp3AiamS/qF42hgNjo5cYrjqMIexrb7SVPhQLJkISVsTFUW6Pg1ppD +haOBOVeMen6ikU/HjNO0hcHTb02Uk+IUEvgkLTbXLgz3LWVF+tqmUW2hvOKD +0+Kwedt0Sos9N5x8J5VT9kccWm23XEoo5wH9Zg/3gFgaqNSref1a4YUK75E3 +B+ToEJL+0qx7gAyuDfVrTmbSQc9sROziMeI+aNstZo1waNNKm2ki5nNmnVBu +aRvxfpvsPu5M+A1VQcdA7hwD3s38tVc9T8xnTdKxp2QJMLANJEXY8gIwXtZw +58nCF663fg8mu9HfUXvpq8uyEGsgJ9Ga2YZUtvW4lRgxYS5UR7X+bzOq2KF5 +fTGWCTG6Gl0ybxrR1Zwf+lOtTHDLK9Wbr69F5c8PLT9hsmCV4MjDC3cqUdL5 +gDJvZxYszU8GvzpciuIbDzDEclmg2LP4Z09oPmp3LdSAVWyY9qv+pqqRhXIH +W0+EGbCBdVUrc/B6BhJtywuJu8GGx+IP1JaK0lBdsJ/nnU422E3sU7+e/xhl +pEXy2sgQ/mhGShS6dx+J6h2P7XThwLrMfy+HfyaiUS9N4yuZHAiXVq515o1H +e0XebI40pIDVu88i430jqNo9YJ11FwV69fr4c2hjKLbWeMfLM1RYb2i1z/Lz +OPLvzFXg6NFgvcDPiTZnXjDdHWLg30UDPmq5psclMgQkzmbqudJhn6Mociby +VMQN6yFYoYN2XE+ZKtGP8chi64pYHF6fTecbIPKYovK6m75sBlw/sRwtQfTT +PW7v0JllNvhUSco4piWjYF72EFufA+4awkE9QndQ9YW5YMkYws9K93acOJiA +Jqx+iPV2cCDlv0frb12NQTK8k1tNjeggILBD+CQ/Bouv4xf2t9Oh3Uktw/Ic +kX+bFw7auOGQePRarAvh99HseI7ECg5WqaY1GYLE+1/ur8quGDpUeqoUVxsS +/n9e5ssmNuHv6ysCMEIvDhpcPrI+Gwd10XcvtcwwmDIuvhj5kwMO7o6GiV5R +SEXr9eojVYQ/9+Dh+oQfm3knfUmzIfC/N/cPEPw/wLOrdzsVh91sKCIRfGSO +SnZ5P8YhImcyrdkag0pZnymjMTpI7iltTiHyQP5mm3ahyzjofODvO03khW/D +XA2c7ThwTTfrmBD7Z3TTMo7/4QAvS7LpiF8kyqoeEm3cj0OjWG4xP5Fv3U3r +HYrJOGQq3VL5TPC7z4nbu7GfDvwBb6tzvDD4tzl+74uNOOyx9wkdIPC2l2RY +Z+E4jITqq7wj6rTOIZeqWeI+NU1jOIRe1DzyNngEOCh//ZWmQ+iPR5mEofkS +B4Q8LsUdIEWiZXfhlJXVRB55zysmTJwXdaAjflwBh7va3a+4iPur6v9997cY +8R7aqMpwI/Atq4rDvu3AwdhRQuYLgdevECTjJ4DDziY9cV+iPidgIuSkjIPl +dwYlhVj//I6j+DlpHJaCxEnTRJ0Z0CZatcIB4+tsOcr7CPQ/iVYy3A== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1He4zmUYB/BjO/be69h7NZBNQ/YWoTJS1rGiJKusaKlQFGWvlpkyiuxK +kVREGQ0RyUiSz3354/N+v8/9XOe8v/Fcb1KP5LYDUyQkJIzwEVnJx+/yXUbR +hltoZp6ez/XXSSYllc1Oy/d4irbcSnPzRL7QZzOIVFQx+0O+z2jacRstzDPw +pT6HwaSmqtkZ+QFjaM/tpKGavbNyFWPpQA3SUt3en3I14+hITdKRnkQykJFM +ZCZL3Ku/OyfXMJ5O1CJr3Je983ItT3Mfd9DSPCP79DcYQra4L7O/5DqeoTO1 +aWWeia/0NxlK9rgvswtyPRPoEt9hlpvv9cXUobV1Zr7W5zKMrtb5+VFfTo54 +FtZ/yw+ZyIPWhflZvz+uR8/DD3pfWYYlei+ZxCl9gCxP3TgLMguD2G/9qCzN +MOZZ95BFGcIJ6/6yHMN5zLqbLMBgjlr3k2VjjxXWD8sSDOVX6ziYFcgZ705e +lBt4RC/FJP0hWYTj8Qzimel5OawvpbdenF/0enE+9awc0N+ip16Mk/pwuusF +OaavJFe8f+tL8iMmx33E8zPLxxF9GfXjLFtn4xv9bUaQO86I2WX5MVPiO2hA +njgP9q7IjTzLAzQkL/nITwEKUojCFKEoxUiiOCXibPhf/8hNTI33TSNKUtfe +VbmZafHcaEypeC72/pVbeC7eI3dSOu7L3jX5Cc/H8+IuysQ92PtPfsoLcW64 +m7JxD/auy628GO+BeygX12Tvf7mNl+K904TycU3xI8RnYjp9uJcKcU3xG8V2 +/eU4BzSlYlyTeUp26K/E2aQZleKazFOxU381zjrNqRzXZJ6aXfqMOJO0oL1Z +dg7q83mcKnGdZmnYrc+kPy3pYJaDb/UFPEHVuHaztOzRZzGAVnSMc80hfSEj +qRb3Y5aOvfprDKQ1ncxy8Z2+iCfjrFgX4if9nXhWekl+05NlxRQ3f9erW98A +DjyeCA== + "], 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]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 3.062518358321375}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8Vf8fx28Z9xC618i955p3IEmFrMrnbWRHgyIlo0JIGSVFGspeSdoa +aFHZKzMr4ptkj4jMrKRk9Du/v87j+Tifz/t8zuf9er0+H1knr73HVpNIpLOr +SKT/Pw8ZJPKRSBSIldY77HZyFH3VO9WispoChYJqrRdOjyJnXdOHx7gpYNFT +9/Om7yg6obOiVo9RoL+GrdwRMIr8NY87JFIpoD35jPb0+ihKUFLPU2JRINQ/ +Kdby8ShqEG09amtIgexO9SRG9yjaLfJmU6QxBWzefRaZ6BtFn6nhf0tMKUDx +Giyt+DaKOoV0YtmWFFi8LVR0eXwUjWCpRVMHKDAlcLxg1+Io4l72E77mRgGX +Oa48EYkxtH1IrCwzkgIakx9ag5zG0Oyfon7RGAqIjV1svOQyhp4LOHGdjaNA +i55SdqTHGFqnlmG4LZECzEA1h8IzY2jmsuHHyocU2M6O6/SLGEOpMmc7WzIp +8KDK3to7dwxRDrXPzbdTIGr0tslz4XFU7RW0zraLAr0Gffw5tHEUeIWtWdRD +Ad4Sx1N1UuNo7MWp8xcHKHDw2WcdgQ3jqGoBW41NUKD2NIT+1R9HAbe01tL/ +UeCiRVJ50NlxNNh8Z/02DhUWozL1dg2NI+xpbLevPBUKJK8lrIyPIyW/azEZ +66lwcCR3Tf7sOPIT9/4lq0yFV+ZwQZ80gXgPmZRjGlQImpIeLGZMIIWh3zat +xlT4YrG7eIfVBPL4bRV62oMKU+eT0xPrJ1Bsrem2lyepsN7YZo/15wmUfRsm +B09RgWGh9UyiawItb1OysvGjAl9xaXDV2ASKDuaSQUFUiHZxtw7m/4He8GXm +CcRSobPki+kDsx9ojrF2OC2LCnWS77qTWn6g2hoFz9YcKhwOzrlk0vMD3fPR ++8mdT4V/KXzcXN9/IP16v3+OxVTY0PXjdezvHyg+oFtcoooKS9IbhcQZk2hz +x3Pj2FYqyBcUyn92nkTuiQYv/Beo0GR8zpK5NIkGKAGeJkgYuHqofSfZ02j0 +0xHTNF1h8AlYE+WqOI2m43fK8xgIQyWP/qzL5mm0LErtLzMWhk6Z1tGz26cR +jf7MSnOvMEQ8eF/WbTWNLGVbt8kfEwZu15V7RdemUfEWFX6eCGFgFqS3d0xO +o1t7x1LLWoWhoHIiY+y/GSTwSVpsvl0Y7lvLivS1zaBgS+srG7qEYaTtWll7 +7wxyNS87ktgnDLJ8NQtdEzNI2zCR5jEiDFfZIQuyfLOoV0svXPyvMOhqOLx7 +pTeL5GTveJ6UFAHett+C5QWzKGfKRE3iqAjcjAi9+SvvJ7rbkeG7a1kEzNf4 +GfTJzyN7L/6grBuiYKvVqNs+8geFO1h3LUuLQdxlDS3PikUU+CBlXDJfDBzm +VqFi0X+oQ2PIkmm4DujNgvWX5FaBcCAj0O7TOhjvEVviKlwNImsPHD7hKg7O +wTKUf3bcUFsor/jghDhs2jqT0uLIDUHH/8x/8hCHdQEeQ2ku3DD27nas1mlx +uGVQbmHkww1lHt2VWIA4BMSFGLuFc8PJD46KaRHi8GjmTPXWfKJeiMfvbxni +YDBc4P0flQcuLF2KO/xLHEo2KSutKeaBY++kcsp+i0Or/eYLCeU8YBFU1M76 +Kw4v2xuz6TU8IE36JT22Ig6zTkfqxJt5oILLNeMMRgOTF00D/cM8gK2xqI9h +0GC7kfvvZ8K8kEDHeSp0adA/TELdR3khsDNXgWNAg/UCPybb3Hjh+N195qGG +NNAtKW9vPMkLGpJRNyzMaNCqzt6Z4c9L6ITE7LKiQe5cwqRKJC/IKHzXmXOh +gRb99YpFJi+kq2f6y0XTIK7uTH7GX14wbPb2CoqlgWq9uu/PFV7o9VQ93hpP +jN+cuKjCRQahlOx9127RIL7Q1O7xGjKcFMlT/p5Mg9AyuQFdCTJsni4aTMmi +AT1+j1bwdjJkP6/azemgwWBllUO3PxnMd14zCuyiAR+1XNv7AhkGvxrqfOmh +wVwl18HVwWQQo9VuCBkg6nkN2FCvk+HMtQ+8Q+M0gNj3E6MJZNB0bip+ukKD +LYnt7MuvyVAs0aHAZtPhwYJn/tavZKjwG32zT44O19JfWnQPkKG2cUHzigId +Rh91XgscIkNLMG4yoEQHCqprfj1GhvFBO7fkrXT4ZL4u/vMcGfD03ucSRnRQ +FGNfF8MwkOGd2mJuQgcBgW3Cx/gxkDvyr+C8GR0uTljRXgtgoEKV+dBpSQcr +6oVIFSoGJn6OY0k2dLDupbbO0zHw3zGoKHaCDluztvL7KGIQlDiXaeBBhz0u +oshNCYOrU9zbfE/SYfWj9gZbZQxiH3HMPnvTYZ6iOb5eBYM0Hhf3uPN0ULgW +sByihUHrx9GXglF0GC5Z6NhghEG33F/VHTF0qPRRLa42xmDgIn+xRxwdfIa1 +O+1MMfixZUND/U060M1kK313YcCd6DER9oAOpBkfhuM+DFTtp5R439BBojkt +lmmPgUdD/ZpjmXQwsBgVO38Eg6faz8Yqs+mgn30kt8EBg3Xijs8uFdAhMHi7 +np0zBn+bmlnLFXRoHYmy4bgS9XRerz5URQfUg4cbuhH1XkX0F9bQYUUHPjic +wKA31OChfwMdPt+7cSrYA4MK3Vx87gsdakKKlD1OYbD4On5hbzsd2l3VM6xP +Y6Am5dX+tpMOaa4RWzS9MUj9K5/o1UcHreifOiM+GPS5cvs19tOBP+htdY4v +BrS2r/s2DtLBg/lw1wU/DMKzblPHR+hgYpdpNXcGg0rZM9Mm43SQ3FXanHIW +g6WYvU3PftDh0tsPZrv9MTjpsSbq+CyxfrF/irHniP3vHHavmiP6r20ewwnA +4Kvxe1P2bzrISX8dyyJ4LycQG1ikw9Ed/leLzmMQccN2GFbooBvXU6Z2AYP3 +q9SrH5JwUOoxm0kleNlLOGVlNQ5V73nFhAMxUO+dvHKYBwdmrO2GMwR7mdc7 +FZNxyFS6pfqZ4GeFaboMfhxElfGN64Mw6Fe4KhMggMP2JgNxf4LxWw7/2oVw +aJ4NnikleB/Pjl4NKg472VBEuohBpA/9XaIIDspJiz7aBFf1/7r7SwwHyY1q +DE+CVyybA6xoOAh6eL9JIlijJMM2C8dhNNRQ9R3Bp5QiNIUlcZh2Mn7SSfDz +Oy7ip6VxWLoqTpoheAAzmG+SJerJ2ZmQgjFgnJX5oszGwXN9RRBGsNXQUlaU +HA6RUlzJfARH7euIn1DA4a5u9ysugqvLc06bbSDGnxdJmSfq/dsUv/vFRhx2 +OZ4JHSBY88HJTXybcZDb2rm/huDTAmZCrio4WA8xKCkEvwiQ/1GthsMJAZns +8wR/G+Fq4GjgwDXTrGdGsMSBry+uauHgEaJQLEKwdVVx2LdtOJi6SMh8IfYr +WvW2q54ODqp9b0/GEFzzyM/oEeCg8vVnmh7BJMpeOZI+DurkX/WTRD+8J/gH +3xnh8Cs0pWULwTSahtWcCQ5tOmmzTUR/S/Wd3yua49Ctfm7IhWCBu0VPb+3G +YZupqWkIoY+s6mHRxr04NIrlFvMTfHBWJITbGoczl+u5wwk9pZl4HDtti8OI +s4D4GUJ/Fn5JX9LscLAZau4fIPQ5l/x+Z+9hHLylz10xIVjvj4ScmRMO6Gyn +OTeh5+7Uj9/Z7jislvfg2kz44XLzwn47TxwSD1+JdSf8sn6FUxPnhUNTxeLv +ZMJPZ6yD0lZ8cOjR1rFZIPxH5d7k2n4Bh2RW9EkHTwzyN9m1C13EQe8Df98J +wq/2dteNd17CYd14h7KXOwavMvsUMkMIPX+18jpG+N3QMXY0IhqH/ca6Ydgx +DCYii20rYnF4fSqdb4DIixv5I3V/4nFYcf/gleNE+Gmt7otjt3A4lPl22oTI +l/MlMydQMqEnvvS+9XYYMMcku/we4xCRM5XWbItBrZip2aunOOSqvzzsZ0Pk +kefjDfTnOHihrpvPrDF4w9g3MfsWhwDlQJtqSwz2G108tD4bB03Rdy91LAj/ +eb9sOJKLQ/T5J7/emGNg+oErvaEQB/duZ+8rJhgM+md7plbisLxxWPWrHgb0 +VrEp2y84UGrC+APUMJhdJ5Rb2oaD7FS3sxuRzw0HeAM5nTj4FJiU79mMQXDH +PP9MLw5WGeGxgkS+f+9ukwsdwYGmvlK4hYVB9rfb9rmLxHypjYrKFEJ/7HiO +xArR31TzmgxBDFyPhU9cIjFgj512pMIawk/DAQG7eBjAvdb1FpmX6OeYXeKg +EAO+qUws+CySYfeMZKMwkwHyF47uwIjzTVFl3U1/NgOuH12OliDOP24foUO9 +cgwIO6KgqthHhry5ldHnGxjwXb4laEsHGaT+9PHobmVAgaj1mekGMkysPNrh +ZcwAtShWvEoWGUIF5NLrTzLALmjnpt4AMlAV9IzkTjPg3exfR7WzZLijb98f +7MOADQq7w6/6kCE9IFFM3Z8BVuhTnbAHGZpHeIOSLzFgMUfaZfgQGRhVwxZ+ +CQw4+aRP33cHGTICn09LFTIgz6yhU524f3yZVFLz5pEAlYb+Rl1nXmioSTry +lCwBRvbBpAh7XqhI5o5o5ZOArZIWn5tseeHN3u5+bSEJ2BPs426+mxcicyNi +uMQlQELCoYm6gxf0gsbGEhQk4KHbUsF/YsR4wWeP8swk4EuM0Tbt9zwQrsRa +uxwnAZlz9/7cFeMBcp7U/cOKkpBW/t76oBcXTNzju/g4XxK4brRrCZWugtfK +4+slDKTg6VPxt+PcJNASbL7u3iUFOvvbj08ZLCElo2daD12lYW/iYk9I2x/0 +87uuZQtJBky2L6/K3/sLIdKG4z/NZKDeh79FmDWLUM2aNO54GWjazlME3ybR +EzWvclKvDDil33gV+HYUFVl+4Jliy4KQ4Ku1Rr5DqKIsOePsCVmQe7jO6mhH +P1JqX9g8niML5US0HOXtQcB4WcOdJwtfuN4GPJjqRtb2h+yl8mVB6vjOw8Pt +3ShosCRiT6Es2P9lH0x92Y3+m77yPa9EFo5/cghq39ONfPmE7l2tkQXzI1o1 +5EddqFibSZbqkAXpau+Mo6adyOy+ac/uJVkYK5YqTKlpQ3/HHKUvL8tCrJGc +RGtmG3qmec4xa0UWzl39Z77uQRvibkkbElvFBDvtb3+qfNtQMT/PZCcPE8ov +BoX1M9uQkn/pytG1TDjDFyu4+nIrEtinJnOOyQQ4z3vnldkX1IhJOT8yZoIs +v1dqLf9npLq1x7PEhAnzoXpq9X+bUZLjPf8uUyYwxnsyOsaakVMhHi22iwmX +FEmWeH0z+uUuXhC2hwkOR3acXx/ZjCSaKGu9DzIh6Hpv2DlKMzpxk6tIz4MJ +qXeHf72R/YR4mKPCgzFMkF6sVVzzoRFVbNO+vhjLhBh9rS6ZN40oyDpiUTie +CVWvnuuZJjaiP6EbB3UTmMDd0cnT7tSIxqZO5zxMYsIdoUC+3qWPqPHd3wN2 +j5ggOE7yDlP7iJJsBe43ZzJhZsvhOb7MerQhbpN8+RcmTDlXush8q0WXc74b +TrcywTOv1OBPfS1q77h/XLqdCdN7BL99y65FV5kCqYGdTHDZ+EFx/lot6s4a +YWv3McHD0+Mgj1Itim59xMwaYULGas2J8nM1aJohKpWyyITCCvvCvaxqlJ36 +RzRMlgVGp8Ou9L2sROXPDyw/YbJgleDow3N3KlHjq9yhEhYLhg2zeZlhlWgk +0zd3jsMCs8D88PvHK5FE6fQBB0UW6BRUWeowK9HVtpE7GqrE+z67Bcl7FWgf +1iHz3YAFPHyftlLulKNZtwIlfVcWRF2IPmFyrhQlnQ0q83NjwdKfqZBXB0sR +CtG3enaCBYOtD2M3bC9Fkckfzwt6ssBYSJUe+K8EybX1f2g7zYKcau2L7tdL +0EEDfjeP8yxozq0TdLr3DlVI2aXcjGbBtaaYGInOInTj85LkSDYLIjuX3son +56P4xn0MsVwWKPYs/t4Vmo9i617Q9PJYoKlpKBl+Kh9FltqI3CtgwbL7TLG+ +bj4KeZmN7S5hwVtUZV34LQ+dveLxM6+GBSJPBnRSlPKQnWp37fVOFnjV1i7O +f8xBrBtFPvIkNnyekujpMM1C7R6FWrCKDTMB1d/UtLJQtGHBP5vVbGB7jVg+ +lM9CfxZyI8K52ZBRRZV/zJ2FGhwyn/zA2BDWqOVvX5qJfJWff86isqHq1sXF +VI1MVFWXqAosNlwXOTTCUn2LXEjeP20M2dD4bNg2MTUD5Q62Hg0zYgPrsk7m +4PUMxF23rbXAmA2OQaMRu90y0OM4ngLcjA3+Dmdtg5UyUDfzdlC3JRs+vbkf +uCM7He3ZWcbnYMsGkuuaTeJ1r9C2cCEZFw82rPdhhiWSX6K1oi/N/eLZ8J6x +K9i/OQ2JtuVdi7vBhsfiD9SXitIQfud9WXoCG1yONrklpKQhtkyv2vdENqx9 +5U9afS4NaStRJQ/cZQPt6VGe/2TS0HGDsz80n7LBa3/2LgXfVFTiqx+9lMMG ++uSG2H3rU5DHl66mKx1suCyTUSfw4TGqCwnwudPJBofJPZrX8x8jOXW6+Nsu +NmyWol2kpj1G/Yn77Xt72HAYu2tvffUx2m/zaUJzgA35F4vHktBjhLqq+SbH +2DBWqH6Vq+AREu5/q2+zxIYRdfuda/KSkVfc7uGTy2w4UyUp45KWjBp0p8JD +VthQbm2n+ulWMrr2WKk5k8QBvjCu5ib/ZLTonOYgyMOBliKR237bktHg93uB +FYIcON+4xvPttYcob+J6npI0Bw7WvP7PqvA+ykiL5LWTIeZbkBKF7t1HT53i +rMNkOdDnL2X/PfA+im+/83OIxYHp2l9Xp3TvI4/36ZseKnBgrGVQ7Fj9PcS8 +9zmNqsIB46jo7vff7qJoM+mkeQMO8HML5Satv4NCeNnDbEMOeGkJX+0RuoMu +lCuo7zPiwFx09dz2udvITUOl5bUJB3TSj9qYld5GBqydFDcLDqgzTx19sv82 ++vv3RGjXAQ5QcnUKFMOT0PEXuf5lJ4jvadjLTXDdQqIGzrGd7hxYl/nv5ciP +RFTes/bZnAcHmlV3Vi60JSIJqlubghcHTDaXH7J9lYiazzLU43w4MN9H1hLY +n4jQzuCfjhc4oKb9MWdz+k1E+2pykiuaAx+p05//uCWg6nPzIZIxHDAo3d1x +dH8C8hF5cl8jlgPln1x2fNNLQI2GSw3u8RxgW6r1rZNIQFfTMza0JHJAMrik +8EDTDTQdIDL69CEHygyOR2zRuoHqxHqcDd9yIGFmQK2VHo/GfLVNL2VyIFxa +pdaNNx7xt9zaXJzFga0C7BrqzzhkGr93eUsuB46FDGU/aIhDH4RqEyWLOKCx +bVboRXAcaiBn1c2954BLddy870QsalwI3fSknQMFSTMvHj+NQZM238V6OziQ +8t+j9bcuxyChfP0lWhcHUvvTk147xCCLMyu10T3E/y2UZJtJxqCmWR+ngAEO +HD/c/V0pKRr9N25/c88EBx6r5Of5JEShadPi85E/OODk5WKc6BuFKC/oTjWT +HFjewxXVaRWFdru2KO+Y4YBsbXJajVgU+jRoUqswz4FNklsdN9+ORLP6aRnO +vznAy5JsOhQQiYSfcN988IcD/vb3+p7bRaK9jqWOoovEejZvckqRikTeZRLG +lkscEPK+ELePFInipQOUw5cJfXK39MgORKDMoDbRqhUOmF5ny1HeR6DmHrXF +f/84QKSziVRqBPofyP4y3A== + "]]}, "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., 3.062518358321375}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8Vf8fx28Z9xC618i955p3IEmFrMrnbWRHgyIlo0JIGSVFGspeSdoa +aFHZKzMr4ptkj4jMrKRk9Du/v87j+Tifz/t8zuf9er0+H1knr73HVpNIpLOr +SKT/Pw8ZJPKRSBSIldY77HZyFH3VO9WispoChYJqrRdOjyJnXdOHx7gpYNFT +9/Om7yg6obOiVo9RoL+GrdwRMIr8NY87JFIpoD35jPb0+ihKUFLPU2JRINQ/ +Kdby8ShqEG09amtIgexO9SRG9yjaLfJmU6QxBWzefRaZ6BtFn6nhf0tMKUDx +Giyt+DaKOoV0YtmWFFi8LVR0eXwUjWCpRVMHKDAlcLxg1+Io4l72E77mRgGX +Oa48EYkxtH1IrCwzkgIakx9ag5zG0Oyfon7RGAqIjV1svOQyhp4LOHGdjaNA +i55SdqTHGFqnlmG4LZECzEA1h8IzY2jmsuHHyocU2M6O6/SLGEOpMmc7WzIp +8KDK3to7dwxRDrXPzbdTIGr0tslz4XFU7RW0zraLAr0Gffw5tHEUeIWtWdRD +Ad4Sx1N1UuNo7MWp8xcHKHDw2WcdgQ3jqGoBW41NUKD2NIT+1R9HAbe01tL/ +UeCiRVJ50NlxNNh8Z/02DhUWozL1dg2NI+xpbLevPBUKJK8lrIyPIyW/azEZ +66lwcCR3Tf7sOPIT9/4lq0yFV+ZwQZ80gXgPmZRjGlQImpIeLGZMIIWh3zat +xlT4YrG7eIfVBPL4bRV62oMKU+eT0xPrJ1Bsrem2lyepsN7YZo/15wmUfRsm +B09RgWGh9UyiawItb1OysvGjAl9xaXDV2ASKDuaSQUFUiHZxtw7m/4He8GXm +CcRSobPki+kDsx9ojrF2OC2LCnWS77qTWn6g2hoFz9YcKhwOzrlk0vMD3fPR ++8mdT4V/KXzcXN9/IP16v3+OxVTY0PXjdezvHyg+oFtcoooKS9IbhcQZk2hz +x3Pj2FYqyBcUyn92nkTuiQYv/Beo0GR8zpK5NIkGKAGeJkgYuHqofSfZ02j0 +0xHTNF1h8AlYE+WqOI2m43fK8xgIQyWP/qzL5mm0LErtLzMWhk6Z1tGz26cR +jf7MSnOvMEQ8eF/WbTWNLGVbt8kfEwZu15V7RdemUfEWFX6eCGFgFqS3d0xO +o1t7x1LLWoWhoHIiY+y/GSTwSVpsvl0Y7lvLivS1zaBgS+srG7qEYaTtWll7 +7wxyNS87ktgnDLJ8NQtdEzNI2zCR5jEiDFfZIQuyfLOoV0svXPyvMOhqOLx7 +pTeL5GTveJ6UFAHett+C5QWzKGfKRE3iqAjcjAi9+SvvJ7rbkeG7a1kEzNf4 +GfTJzyN7L/6grBuiYKvVqNs+8geFO1h3LUuLQdxlDS3PikUU+CBlXDJfDBzm +VqFi0X+oQ2PIkmm4DujNgvWX5FaBcCAj0O7TOhjvEVviKlwNImsPHD7hKg7O +wTKUf3bcUFsor/jghDhs2jqT0uLIDUHH/8x/8hCHdQEeQ2ku3DD27nas1mlx +uGVQbmHkww1lHt2VWIA4BMSFGLuFc8PJD46KaRHi8GjmTPXWfKJeiMfvbxni +YDBc4P0flQcuLF2KO/xLHEo2KSutKeaBY++kcsp+i0Or/eYLCeU8YBFU1M76 +Kw4v2xuz6TU8IE36JT22Ig6zTkfqxJt5oILLNeMMRgOTF00D/cM8gK2xqI9h +0GC7kfvvZ8K8kEDHeSp0adA/TELdR3khsDNXgWNAg/UCPybb3Hjh+N195qGG +NNAtKW9vPMkLGpJRNyzMaNCqzt6Z4c9L6ITE7LKiQe5cwqRKJC/IKHzXmXOh +gRb99YpFJi+kq2f6y0XTIK7uTH7GX14wbPb2CoqlgWq9uu/PFV7o9VQ93hpP +jN+cuKjCRQahlOx9127RIL7Q1O7xGjKcFMlT/p5Mg9AyuQFdCTJsni4aTMmi +AT1+j1bwdjJkP6/azemgwWBllUO3PxnMd14zCuyiAR+1XNv7AhkGvxrqfOmh +wVwl18HVwWQQo9VuCBkg6nkN2FCvk+HMtQ+8Q+M0gNj3E6MJZNB0bip+ukKD +LYnt7MuvyVAs0aHAZtPhwYJn/tavZKjwG32zT44O19JfWnQPkKG2cUHzigId +Rh91XgscIkNLMG4yoEQHCqprfj1GhvFBO7fkrXT4ZL4u/vMcGfD03ucSRnRQ +FGNfF8MwkOGd2mJuQgcBgW3Cx/gxkDvyr+C8GR0uTljRXgtgoEKV+dBpSQcr +6oVIFSoGJn6OY0k2dLDupbbO0zHw3zGoKHaCDluztvL7KGIQlDiXaeBBhz0u +oshNCYOrU9zbfE/SYfWj9gZbZQxiH3HMPnvTYZ6iOb5eBYM0Hhf3uPN0ULgW +sByihUHrx9GXglF0GC5Z6NhghEG33F/VHTF0qPRRLa42xmDgIn+xRxwdfIa1 +O+1MMfixZUND/U060M1kK313YcCd6DER9oAOpBkfhuM+DFTtp5R439BBojkt +lmmPgUdD/ZpjmXQwsBgVO38Eg6faz8Yqs+mgn30kt8EBg3Xijs8uFdAhMHi7 +np0zBn+bmlnLFXRoHYmy4bgS9XRerz5URQfUg4cbuhH1XkX0F9bQYUUHPjic +wKA31OChfwMdPt+7cSrYA4MK3Vx87gsdakKKlD1OYbD4On5hbzsd2l3VM6xP +Y6Am5dX+tpMOaa4RWzS9MUj9K5/o1UcHreifOiM+GPS5cvs19tOBP+htdY4v +BrS2r/s2DtLBg/lw1wU/DMKzblPHR+hgYpdpNXcGg0rZM9Mm43SQ3FXanHIW +g6WYvU3PftDh0tsPZrv9MTjpsSbq+CyxfrF/irHniP3vHHavmiP6r20ewwnA +4Kvxe1P2bzrISX8dyyJ4LycQG1ikw9Ed/leLzmMQccN2GFbooBvXU6Z2AYP3 +q9SrH5JwUOoxm0kleNlLOGVlNQ5V73nFhAMxUO+dvHKYBwdmrO2GMwR7mdc7 +FZNxyFS6pfqZ4GeFaboMfhxElfGN64Mw6Fe4KhMggMP2JgNxf4LxWw7/2oVw +aJ4NnikleB/Pjl4NKg472VBEuohBpA/9XaIIDspJiz7aBFf1/7r7SwwHyY1q +DE+CVyybA6xoOAh6eL9JIlijJMM2C8dhNNRQ9R3Bp5QiNIUlcZh2Mn7SSfDz +Oy7ip6VxWLoqTpoheAAzmG+SJerJ2ZmQgjFgnJX5oszGwXN9RRBGsNXQUlaU +HA6RUlzJfARH7euIn1DA4a5u9ysugqvLc06bbSDGnxdJmSfq/dsUv/vFRhx2 +OZ4JHSBY88HJTXybcZDb2rm/huDTAmZCrio4WA8xKCkEvwiQ/1GthsMJAZns +8wR/G+Fq4GjgwDXTrGdGsMSBry+uauHgEaJQLEKwdVVx2LdtOJi6SMh8IfYr +WvW2q54ODqp9b0/GEFzzyM/oEeCg8vVnmh7BJMpeOZI+DurkX/WTRD+8J/gH +3xnh8Cs0pWULwTSahtWcCQ5tOmmzTUR/S/Wd3yua49Ctfm7IhWCBu0VPb+3G +YZupqWkIoY+s6mHRxr04NIrlFvMTfHBWJITbGoczl+u5wwk9pZl4HDtti8OI +s4D4GUJ/Fn5JX9LscLAZau4fIPQ5l/x+Z+9hHLylz10xIVjvj4ScmRMO6Gyn +OTeh5+7Uj9/Z7jislvfg2kz44XLzwn47TxwSD1+JdSf8sn6FUxPnhUNTxeLv +ZMJPZ6yD0lZ8cOjR1rFZIPxH5d7k2n4Bh2RW9EkHTwzyN9m1C13EQe8Df98J +wq/2dteNd17CYd14h7KXOwavMvsUMkMIPX+18jpG+N3QMXY0IhqH/ca6Ydgx +DCYii20rYnF4fSqdb4DIixv5I3V/4nFYcf/gleNE+Gmt7otjt3A4lPl22oTI +l/MlMydQMqEnvvS+9XYYMMcku/we4xCRM5XWbItBrZip2aunOOSqvzzsZ0Pk +kefjDfTnOHihrpvPrDF4w9g3MfsWhwDlQJtqSwz2G108tD4bB03Rdy91LAj/ +eb9sOJKLQ/T5J7/emGNg+oErvaEQB/duZ+8rJhgM+md7plbisLxxWPWrHgb0 +VrEp2y84UGrC+APUMJhdJ5Rb2oaD7FS3sxuRzw0HeAM5nTj4FJiU79mMQXDH +PP9MLw5WGeGxgkS+f+9ukwsdwYGmvlK4hYVB9rfb9rmLxHypjYrKFEJ/7HiO +xArR31TzmgxBDFyPhU9cIjFgj512pMIawk/DAQG7eBjAvdb1FpmX6OeYXeKg +EAO+qUws+CySYfeMZKMwkwHyF47uwIjzTVFl3U1/NgOuH12OliDOP24foUO9 +cgwIO6KgqthHhry5ldHnGxjwXb4laEsHGaT+9PHobmVAgaj1mekGMkysPNrh +ZcwAtShWvEoWGUIF5NLrTzLALmjnpt4AMlAV9IzkTjPg3exfR7WzZLijb98f +7MOADQq7w6/6kCE9IFFM3Z8BVuhTnbAHGZpHeIOSLzFgMUfaZfgQGRhVwxZ+ +CQw4+aRP33cHGTICn09LFTIgz6yhU524f3yZVFLz5pEAlYb+Rl1nXmioSTry +lCwBRvbBpAh7XqhI5o5o5ZOArZIWn5tseeHN3u5+bSEJ2BPs426+mxcicyNi +uMQlQELCoYm6gxf0gsbGEhQk4KHbUsF/YsR4wWeP8swk4EuM0Tbt9zwQrsRa +uxwnAZlz9/7cFeMBcp7U/cOKkpBW/t76oBcXTNzju/g4XxK4brRrCZWugtfK +4+slDKTg6VPxt+PcJNASbL7u3iUFOvvbj08ZLCElo2daD12lYW/iYk9I2x/0 +87uuZQtJBky2L6/K3/sLIdKG4z/NZKDeh79FmDWLUM2aNO54GWjazlME3ybR +EzWvclKvDDil33gV+HYUFVl+4Jliy4KQ4Ku1Rr5DqKIsOePsCVmQe7jO6mhH +P1JqX9g8niML5US0HOXtQcB4WcOdJwtfuN4GPJjqRtb2h+yl8mVB6vjOw8Pt +3ShosCRiT6Es2P9lH0x92Y3+m77yPa9EFo5/cghq39ONfPmE7l2tkQXzI1o1 +5EddqFibSZbqkAXpau+Mo6adyOy+ac/uJVkYK5YqTKlpQ3/HHKUvL8tCrJGc +RGtmG3qmec4xa0UWzl39Z77uQRvibkkbElvFBDvtb3+qfNtQMT/PZCcPE8ov +BoX1M9uQkn/pytG1TDjDFyu4+nIrEtinJnOOyQQ4z3vnldkX1IhJOT8yZoIs +v1dqLf9npLq1x7PEhAnzoXpq9X+bUZLjPf8uUyYwxnsyOsaakVMhHi22iwmX +FEmWeH0z+uUuXhC2hwkOR3acXx/ZjCSaKGu9DzIh6Hpv2DlKMzpxk6tIz4MJ +qXeHf72R/YR4mKPCgzFMkF6sVVzzoRFVbNO+vhjLhBh9rS6ZN40oyDpiUTie +CVWvnuuZJjaiP6EbB3UTmMDd0cnT7tSIxqZO5zxMYsIdoUC+3qWPqPHd3wN2 +j5ggOE7yDlP7iJJsBe43ZzJhZsvhOb7MerQhbpN8+RcmTDlXush8q0WXc74b +TrcywTOv1OBPfS1q77h/XLqdCdN7BL99y65FV5kCqYGdTHDZ+EFx/lot6s4a +YWv3McHD0+Mgj1Itim59xMwaYULGas2J8nM1aJohKpWyyITCCvvCvaxqlJ36 +RzRMlgVGp8Ou9L2sROXPDyw/YbJgleDow3N3KlHjq9yhEhYLhg2zeZlhlWgk +0zd3jsMCs8D88PvHK5FE6fQBB0UW6BRUWeowK9HVtpE7GqrE+z67Bcl7FWgf +1iHz3YAFPHyftlLulKNZtwIlfVcWRF2IPmFyrhQlnQ0q83NjwdKfqZBXB0sR +CtG3enaCBYOtD2M3bC9Fkckfzwt6ssBYSJUe+K8EybX1f2g7zYKcau2L7tdL +0EEDfjeP8yxozq0TdLr3DlVI2aXcjGbBtaaYGInOInTj85LkSDYLIjuX3son +56P4xn0MsVwWKPYs/t4Vmo9i617Q9PJYoKlpKBl+Kh9FltqI3CtgwbL7TLG+ +bj4KeZmN7S5hwVtUZV34LQ+dveLxM6+GBSJPBnRSlPKQnWp37fVOFnjV1i7O +f8xBrBtFPvIkNnyekujpMM1C7R6FWrCKDTMB1d/UtLJQtGHBP5vVbGB7jVg+ +lM9CfxZyI8K52ZBRRZV/zJ2FGhwyn/zA2BDWqOVvX5qJfJWff86isqHq1sXF +VI1MVFWXqAosNlwXOTTCUn2LXEjeP20M2dD4bNg2MTUD5Q62Hg0zYgPrsk7m +4PUMxF23rbXAmA2OQaMRu90y0OM4ngLcjA3+Dmdtg5UyUDfzdlC3JRs+vbkf +uCM7He3ZWcbnYMsGkuuaTeJ1r9C2cCEZFw82rPdhhiWSX6K1oi/N/eLZ8J6x +K9i/OQ2JtuVdi7vBhsfiD9SXitIQfud9WXoCG1yONrklpKQhtkyv2vdENqx9 +5U9afS4NaStRJQ/cZQPt6VGe/2TS0HGDsz80n7LBa3/2LgXfVFTiqx+9lMMG ++uSG2H3rU5DHl66mKx1suCyTUSfw4TGqCwnwudPJBofJPZrX8x8jOXW6+Nsu +NmyWol2kpj1G/Yn77Xt72HAYu2tvffUx2m/zaUJzgA35F4vHktBjhLqq+SbH +2DBWqH6Vq+AREu5/q2+zxIYRdfuda/KSkVfc7uGTy2w4UyUp45KWjBp0p8JD +VthQbm2n+ulWMrr2WKk5k8QBvjCu5ib/ZLTonOYgyMOBliKR237bktHg93uB +FYIcON+4xvPttYcob+J6npI0Bw7WvP7PqvA+ykiL5LWTIeZbkBKF7t1HT53i +rMNkOdDnL2X/PfA+im+/83OIxYHp2l9Xp3TvI4/36ZseKnBgrGVQ7Fj9PcS8 +9zmNqsIB46jo7vff7qJoM+mkeQMO8HML5Satv4NCeNnDbEMOeGkJX+0RuoMu +lCuo7zPiwFx09dz2udvITUOl5bUJB3TSj9qYld5GBqydFDcLDqgzTx19sv82 ++vv3RGjXAQ5QcnUKFMOT0PEXuf5lJ4jvadjLTXDdQqIGzrGd7hxYl/nv5ciP +RFTes/bZnAcHmlV3Vi60JSIJqlubghcHTDaXH7J9lYiazzLU43w4MN9H1hLY +n4jQzuCfjhc4oKb9MWdz+k1E+2pykiuaAx+p05//uCWg6nPzIZIxHDAo3d1x +dH8C8hF5cl8jlgPln1x2fNNLQI2GSw3u8RxgW6r1rZNIQFfTMza0JHJAMrik +8EDTDTQdIDL69CEHygyOR2zRuoHqxHqcDd9yIGFmQK2VHo/GfLVNL2VyIFxa +pdaNNx7xt9zaXJzFga0C7BrqzzhkGr93eUsuB46FDGU/aIhDH4RqEyWLOKCx +bVboRXAcaiBn1c2954BLddy870QsalwI3fSknQMFSTMvHj+NQZM238V6OziQ +8t+j9bcuxyChfP0lWhcHUvvTk147xCCLMyu10T3E/y2UZJtJxqCmWR+ngAEO +HD/c/V0pKRr9N25/c88EBx6r5Of5JEShadPi85E/OODk5WKc6BuFKC/oTjWT +HFjewxXVaRWFdru2KO+Y4YBsbXJajVgU+jRoUqswz4FNklsdN9+ORLP6aRnO +vznAy5JsOhQQiYSfcN988IcD/vb3+p7bRaK9jqWOoovEejZvckqRikTeZRLG +lkscEPK+ELePFInipQOUw5cJfXK39MgORKDMoDbRqhUOmF5ny1HeR6DmHrXF +f/84QKSziVRqBPofyP4y3A== + "]]}, "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:eJwVV3c4le8bP2Wcl9A5Rs55j3kGkhYSKs9tZEeDIiU0EFJWUqRC9krS1kCL +yl6ZWRHfJHtEysxKIqPf+/vrve7rep7Pc73PfX/GI+vgvv/kahKJdH4VifT/ +7xG9RD4SiQKx0jpHnc+MoJ3fxcoyIymwfeJDa4DDKBpsvrN+B4cKi1GZOnu+ +j6FZxtqhtCwq1Em+605q+YkGKH5uRkgYuHqofWfYU+jW/tHUslZhKKgczxj9 +bxrlTBqpSpwQgZsRoTd/5/1CdzsyvPYsi4DpGm+9Pvk5ZOvOH5B1QxSsNRq1 +24fnUbidZdeytBjEXd2u4VaxiPwfpIxJ5ouB3ewqVCz6D3Vs/27O1F8H9GbB ++ityq0DYn+Fv82kdjPWILXEVrgaRtYeOnnYSh+OBMpR/NtxwaelK3NHf4lCy +eZPSmmIeSFfL9JWLpkFcnU9+xl9eKJboUGCz6fBgwS1/21cyqNhOKvG+oYNE +c1os0xYDj3H+wXcGOPwOTWnZ6o8BvVVs0voLDpSaMH4/VQxCBeTS688wwCZg +9+ZePzJ8mVBS9eCRAOWG/kbt47wQrsRauxwnAZmz9+bvivEAOU/q/lFFSUgr +f2952J0Lxu/xXX6cLwlcN9o1hEpXwetNY+sl9KTg6VPxt2PcJNAQbL7u0iUF +WgfbT03qLSElg2caD52kYX/iYk9w2zz69UPbvIUkA0Y7l1fl7/+NEGnDqV8m +MlDvyd8izJpBqGZNGne8DDTt5CmCbxPoiap7OalXBhzSb7zyfzuCisw/8Eyy +ZUFI8NVaA6/vqKIsOeP8aVmQe7jO4kRHP1JqX9gyliML5RhkneDtQSb3jXv2 +LsnCaLFUYUpNG2rEpI4/MmSCLL97ai3/Z8TDHBEejGGC9GKt4poPjWhD3Gb5 +8i9MmDxe6SjzrRZlp86LhsmywOBc2LW+l5VoxrlASdeJBVGXok8bXShFNz4v +SQ5nsyCyc+mtfHI+Yt0o8pQnseHzpERPh3EWciR5/LLSZ0PjsyHrxNQMtFb0 +pal3PBveM/YE+janIdcvXU3XOthwVSajTuDDY5Q3fj1PSZoDh2te/2dReB+d +epHrW3aaA4bbbeXGuW6hOrGe4/pvOZAwPaDaSo9HzT2qi//+cUCF7m8klRqB +GkRbT1jrUyC7Uy2J0T2CKEfaZ+faKRA1ctvoufAYcv1jEXrOlQqTF5PTE+vH +kUui3gvfBSo0GV4wZy5NoOKtyvw8EcLALEhv75iYQnKyd9zOSIoAb9sfwfKC +GVQb7PrnW4Y46A0VePxH5YEEOs5ToU2D/iES6j7BC9nPq/ZyOmgwWFll1+1L +Bt9dg4pip+mwLWsbv6ciBvs5/tjAIh1O7PINKrqIgb597EhENA4HDbXDsJMY +7J2WbBRmMkD+0old2HcyZPg/n5IqZECeSUOnGjH/bwSfPcozkYAvMQY7NN/z +QLEmkyzVIQvS1R4ZJ4w7kcABVZkLTCbARd47r0y+oNM3uYp0XJmQenfo9xvZ +TyjJWuB+cyYTprceneXLrEdTDFGplEUmFFbYFu5nVaMDWIfMDz0W8PB92ka5 +U44qpGxSbkazIKQpJkaiswjZqHTXXu9kgXtt7eLcxxxUVZeoAiw2XBc5MsxS +eYt2hAvJOLqyYb0nMyyR/BKVeOlGL+WwgT6xIfbA+hQk3P9W12qJDcNqtrvX +5CWjaBPppDk9DvBzC+Umrb+DaF+NznBFc+AjderzvHMCalwI3fyknQMFSdMv +Hj+NQQlKanlKLAqE+ibFmj8eQaky5ztbMinwoMrW0iN3FCl8/2PVakiFL2Z7 +i3dZjKMtHc8NY1upIF9QKP/5+AQyl23dIX9SGLidVu4VhUyhXg2dcPG/wqC9 +3e7dK50ZdOaDvWJahDg8mvap3pbPDdgas/oYBg12Grj8eSbMC1umigZTsmhA +j9+nEbiTDHh673MJAzooirGvi2EYVGjn4rNf6FATXLTJ9SwG3akff7BdcFgt +78q1xQuD7G+3bXMXcZCV2qi4iYIBo2rIzDuBAWee9Ol67SKDTsDoaIKCBDx0 +Xir4T4wXvPiE7gXVyILpMY0a8qMupORbunJiLRN8+GIFV19tRRJNlLUeh5kQ +cL037AKlGTW++3vI5hETBMdIHmGqH1F06yNm1jATMlarj5dfqEFBbcN3tquw +wKTPZkHyXgU6rMfv7HqRBc25dYIO996h89dcf+XVsEDkyYBWilIe8tr0/HMW +lQ1Vty4vpm7PRPt2l/HZWbOB5LRms3jdK3RK7/xP9adscD+YvUfBKxWhrmq+ +iVE2jBaqBXEVPELMe5/TqMoEf6Oiu99/u4vQ7sBf9pc4oKr5MWdL+k3UQM6q +m33PAcfquDmv8VjEvewtHOJMAcdZrjwRiVHkd0tjLf0fBS6bJZUHnB9Db/gy +8wRiqdBZ8sX4gclPJKPwQ2vWkQYa9NcrZpm8oH68qfjpCg22Jrazr74mQ+vH +kZeCUXQYKlno2GCAwQCmN9cki4OknI0RKRCDN4wD4zNvcfDb5G9VbY7B+Mqj +Xe6GDFCNYsUrZ5Fh8Mc9/wpBDlxsXOP2NuQh+vv3dGjXIQ5QcrUKFMOT0JSf +yMjThxwo0zsVsVXjBvpvzPbmvnEOPFbOz/NMiEK+6qfsEqkU0Jx4Rnt6fQRN +X9X/WPmQAjvZcZ3eEaOI94hRObadCgGT0oPFjHEU79ctLlFFhSXpjULijAlE +oz+zUN8vDBEP3pd1W0whTf1EmuuwMASxgxdk+WZQmWt3JeYnDn5xwYbO4dxQ +weWU4YPRwOhF00D/EA+cEcnb9COZBqFlcgPaEmQYG7RxTt5Gh0+m6+I/z5Lh +b1Mza7mCDq3DUVYcJwzSjFxPnrPGYfi4gLjPBQx+dLfJhQ7jQFNbKdzKwqB5 +mDcg+QoDFnOkHYeOkCEyNyKGS1wCJCTsmqi7eOG/qWs/8kpk4dQnu4D2fd2o +mJ9nopOHCeWXA8L6mW3ot4t4Qdg+Jtgd23VxfWQzGp08l/MwiQl3hPz5epc+ +ou6sYbZmHxNc3VwP8yjVIonSqUN2iizQKqgy12JWIrm2/g9t51iQU6152eV6 +CQp+mY3tLWHBW1RlWfgtDzXYZT75ibEhrFHD17Y0E3Uzbwd0m7Ph05v7/ruy +05GmElXy0F020J6e4PlPJg0dtPo0rj7AhvzLxaNJ6DFyfZ+++aECB0ZbBsVO +1t9DzecZanGeHJjrI2sIHExEH4RqEyWLOLB9x4zQi8A4NIylFk0eosCkwKmC +PYsjqGoBW42NU6D2HIT+1R1D0YFcMiiACtGOLpaB/D9RpwyJ2WVBg9zZhAnl +SF7wCfnA+32MBhD7fnwkgQxpPI4ucRfpoBDitxysgQF+y+5fuxAOzTOB06UB +GFwsmT6Nkon55UvvW2+DgdR8H4/2NgYUiFr6TDWQYfF4mp0gDwdaikRue+9I +Rnqs3RRnMw6oMc+eeHLwNgpKz9jQksgBycCSwkNNN1DTjKeD3wAHTh3t/qGU +FI2MvO1Hk6zoYNlLbZ2jYxCedZs6NkwHI5tMi1kfDKjcm53aL+GQzIo+Y+eG +wdVRm8RBIQZ8Ux5f8FwkA3ei63jYAzqQpj0Z9gcweOEn/7NaFYfTAjLZFy9j +MOib7ZZaicPyxiGVrzoYfBo0qlWY48BmyW32W25HotNaK6r1GAX6a9ibOvxG +0DrVDP0diRRg+qvaFfqMIm9xj9+ym6jwyhQu6ZLGkW699z/7Yips6Pr5OvbP +T7QsSu0vMxSGTpnWkfM7p5CTadmxxD5hkOWrWegan0aj727HapwTh1t65WYG +ntwgTfotPboiDjMOx+rEm3lAKCX7QMgtGsQXGts8XkOGlkDcaECJDhRU1/x6 +lAzrxO2fXSmgg3/gTh2b4xgI3C16emsvDjuMjY2DCT8P7Jjjn+7FwSIjPFZQ +CYN0v0QxNV8GWKBPdcKuZHizv7tfU0gC9gV6upju5YWAwZKIfYWyYPuXfTj1 +ZTfibkn7LraKCTaa3+arvNqQQyEeLbaHCVcUSeZ4fTOaD904qJ3ABO6OTp52 +h0YUxBRI9e9kguPGD4pzIbVoONMrd5ZD6Lt/fvj9U5UoMvnjRUE3FhgKEQnp +XwmKLLUSuVfAgmWX6WJd7Xw0v5AbEc7Nhowqqvxj7iz0OI6nADdhg6/deetA +pQzElulV/ZHIhrWvfEmrL6Sh/sSDtr09bDiK3bW1DHqM4tvv/PrO4sBU7e+g +Se37SILq3KbgzgGjLeVHrF8lIuP4/ctbczlwMvh79oOGONQppBXLNqfA4m2h +oqtjI2j0xdmLlwcocPjZZy2BDWNoeYeShZU3FfiKSwOrRsfRdsmoG2YmNGhV +Y+/O8OUFMVrthuABQs/cB6yo18kQ+4hj8tmDDnMU9bH1yhio9U5cO8qDAzPW +eoMPkf+/rtV+cfIWDkcy304Z2WGQN7sy8nwDA37ItwRs7SBDyGOl5kwSB/jC +uJqbfJOR83blltdGHNBKP2FlUnobNeovNbjEc4Btrtq3TiIBmfms1Eb3cEBv +oSTbRDIGKVNlPnSa08GCeilSmYpB6l/5RPc+OmhE/9Ia9sTAxzIgbcUThx5N +LasFIg8whvz89vAwgHut0y0yLwY/t25oqL9JB7qJbKXXHgyqy3POmWzAwe2i +SMocwRfjD1zpDYU4uHQf97hmRORDp5ZNu6Y5IFubnFYjFoV6Q/Ue+jbQ4fO9 +G2cDXTHQmZeQM3HAAZ3vNOU+j8GKebOfBQ0HQVePN0kE3jq3xxvoz3FwR103 +n1licMZ1TdSpGTogsX+KsYTev8rsU8gMxqHqq4X7SWcMolVuO+lo4aDS9/ZM +DKE/++1L7UUXif/fstkhRSoSHdc2fniSmwJmPXW/bnqNoOcCDlzn4yjQoqOU +Hek6ipS8Q2Iy1lPh8HDumvyZMXTPU+cXdz4V/qXwcXP9+Imm4nfL8+gJQyWP +7ozjlikUaG55bUOXMAy3hZS1906jgFPzc59cxWGdn+v3NEduMAsoamf9FYeX +7Y3Z9Boe6HVTOdUaT/j/lsRFZS4y1DYuqF9ToMPIo84QfyI/P9V8NlqZTQfd +7GO5DUT/S3WPv1c0xaFb7cJ3x0sYNBzi9ed04uBZYFS+bwsGd3Rt+wM9GbBB +YW94kCcZKpK5I1r5JGCbpNnnJmtesLQ9YiuVLwtSp3YfHWrvRs/UL9hnrcjC +haB/pusetKEk+3u+XcZMYIz1ZHSMNqMAy4hF4XgmVL16rmOc2IjaO+6fkm5n +wtQ+wW/fsmtR46vc7yUsFgzpZ/MywyoRCta1eHaaBYOtD2M37CxFsXUvaDp5 +LFBX15cMP5uPovUL/lmtZgPbfdj8oXwW4q7b0VpgyAb7gJGIvc4ZCL/zviw9 +gQ2OJ5qcE1LSkJwaXfxtFxu2SNEuU9Meo6cOcZZhshzo85Wy/eF/H5X3rH02 +68qBZpXdlQttiYi/5daW4iwObBNg11B/xaHP1PC/JcYUoLgPllZ8G0H+19jq +RT0U4C2xP1snNYayb8PE4FkqMMw0nkl0jaNTdw+YhurTQLukvL3xDC8MftXX ++tJDg9lKrsOrA8kQNMm9w+sMHVY/am+w3oTB+1Vq1Q9JOCj1mEynEv24kT9c +Nx+Pw4rLB/ccBwy4PYWO9MoxIOyYgopiHxkatCfDg1fYUG5po/LpVjK6VK6g +dsCAA7PR1bM7Z28jT5En97fHcqD8k+OubzoJSChfd4nWxYHU/vSk13YxSO7Y +v4KLJnS4PG5Bey2AgaqUe/vbTjqkOUVsVffAYP0KpybOHYemisU/yUTtdDJ8 +/AqJAftsNCMV1hD58TJ/sWscHTyHNDttjDGw+L6UFSWHQ6QUVzIfkSeXPV42 +HMvFIfrik99vTDGgvKA71ExwYHkfV1SnRRRyfRXRX1hDhxUt+GB3GoPZ5Pe7 +e4/i4CF94ZqRLwaRnvR3iSI4bEpa9NQk+ForZmzy6ikOuWovj3pbYbAUs7/p +2U86XHn7wWQvsd7W5rrh7is4rBvr2OTugoHEoa8vgjRwcA1WKBYh9gs/4b75 +YJ4Dvrb3+p7bRKLDMyLB3JY4+Fyt5w73w+BZYZo2gx8H0U34xvUEv2ltXw9s +HKSDK/PhnkveGKg/OLOZbwsOcts6D9YQeGeVItSFJXGYcjB80knUXw3fG7P/ +0EFO+utoFoFHouyXI+nioEb+XT9B6G+8tN+m8GVi3rhbemQHItBXnbMtyqsp +UCio2nrp3AiamS/qF42hgNjo5cYrjqMIexrb7SVPhQLJkISVsTFUW6Pg1ppD +haOBOVeMen6ikU/HjNO0hcHTb02Uk+IUEvgkLTbXLgz3LWVF+tqmUW2hvOKD +0+Kwedt0Sos9N5x8J5VT9kccWm23XEoo5wH9Zg/3gFgaqNSref1a4YUK75E3 +B+ToEJL+0qx7gAyuDfVrTmbSQc9sROziMeI+aNstZo1waNNKm2ki5nNmnVBu +aRvxfpvsPu5M+A1VQcdA7hwD3s38tVc9T8xnTdKxp2QJMLANJEXY8gIwXtZw +58nCF663fg8mu9HfUXvpq8uyEGsgJ9Ga2YZUtvW4lRgxYS5UR7X+bzOq2KF5 +fTGWCTG6Gl0ybxrR1Zwf+lOtTHDLK9Wbr69F5c8PLT9hsmCV4MjDC3cqUdL5 +gDJvZxYszU8GvzpciuIbDzDEclmg2LP4Z09oPmp3LdSAVWyY9qv+pqqRhXIH +W0+EGbCBdVUrc/B6BhJtywuJu8GGx+IP1JaK0lBdsJ/nnU422E3sU7+e/xhl +pEXy2sgQ/mhGShS6dx+J6h2P7XThwLrMfy+HfyaiUS9N4yuZHAiXVq515o1H +e0XebI40pIDVu88i430jqNo9YJ11FwV69fr4c2hjKLbWeMfLM1RYb2i1z/Lz +OPLvzFXg6NFgvcDPiTZnXjDdHWLg30UDPmq5psclMgQkzmbqudJhn6Mociby +VMQN6yFYoYN2XE+ZKtGP8chi64pYHF6fTecbIPKYovK6m75sBlw/sRwtQfTT +PW7v0JllNvhUSco4piWjYF72EFufA+4awkE9QndQ9YW5YMkYws9K93acOJiA +Jqx+iPV2cCDlv0frb12NQTK8k1tNjeggILBD+CQ/Bouv4xf2t9Oh3Uktw/Ic +kX+bFw7auOGQePRarAvh99HseI7ECg5WqaY1GYLE+1/ur8quGDpUeqoUVxsS +/n9e5ssmNuHv6ysCMEIvDhpcPrI+Gwd10XcvtcwwmDIuvhj5kwMO7o6GiV5R +SEXr9eojVYQ/9+Dh+oQfm3knfUmzIfC/N/cPEPw/wLOrdzsVh91sKCIRfGSO +SnZ5P8YhImcyrdkag0pZnymjMTpI7iltTiHyQP5mm3ahyzjofODvO03khW/D +XA2c7ThwTTfrmBD7Z3TTMo7/4QAvS7LpiF8kyqoeEm3cj0OjWG4xP5Fv3U3r +HYrJOGQq3VL5TPC7z4nbu7GfDvwBb6tzvDD4tzl+74uNOOyx9wkdIPC2l2RY +Z+E4jITqq7wj6rTOIZeqWeI+NU1jOIRe1DzyNngEOCh//ZWmQ+iPR5mEofkS +B4Q8LsUdIEWiZXfhlJXVRB55zysmTJwXdaAjflwBh7va3a+4iPur6v9997cY +8R7aqMpwI/Atq4rDvu3AwdhRQuYLgdevECTjJ4DDziY9cV+iPidgIuSkjIPl +dwYlhVj//I6j+DlpHJaCxEnTRJ0Z0CZatcIB4+tsOcr7CPQ/iVYy3A== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1He4zmUYB/BjO/be69h7NZBNQ/YWoTJS1rGiJKusaKlQFGWvlpkyiuxK +kVREGQ0RyUiSz3354/N+v8/9XOe8v/Fcb1KP5LYDUyQkJIzwEVnJx+/yXUbR +hltoZp6ez/XXSSYllc1Oy/d4irbcSnPzRL7QZzOIVFQx+0O+z2jacRstzDPw +pT6HwaSmqtkZ+QFjaM/tpKGavbNyFWPpQA3SUt3en3I14+hITdKRnkQykJFM +ZCZL3Ku/OyfXMJ5O1CJr3Je983ItT3Mfd9DSPCP79DcYQra4L7O/5DqeoTO1 +aWWeia/0NxlK9rgvswtyPRPoEt9hlpvv9cXUobV1Zr7W5zKMrtb5+VFfTo54 +FtZ/yw+ZyIPWhflZvz+uR8/DD3pfWYYlei+ZxCl9gCxP3TgLMguD2G/9qCzN +MOZZ95BFGcIJ6/6yHMN5zLqbLMBgjlr3k2VjjxXWD8sSDOVX6ziYFcgZ705e +lBt4RC/FJP0hWYTj8Qzimel5OawvpbdenF/0enE+9awc0N+ip16Mk/pwuusF +OaavJFe8f+tL8iMmx33E8zPLxxF9GfXjLFtn4xv9bUaQO86I2WX5MVPiO2hA +njgP9q7IjTzLAzQkL/nITwEKUojCFKEoxUiiOCXibPhf/8hNTI33TSNKUtfe +VbmZafHcaEypeC72/pVbeC7eI3dSOu7L3jX5Cc/H8+IuysQ92PtPfsoLcW64 +m7JxD/auy628GO+BeygX12Tvf7mNl+K904TycU3xI8RnYjp9uJcKcU3xG8V2 +/eU4BzSlYlyTeUp26K/E2aQZleKazFOxU381zjrNqRzXZJ6aXfqMOJO0oL1Z +dg7q83mcKnGdZmnYrc+kPy3pYJaDb/UFPEHVuHaztOzRZzGAVnSMc80hfSEj +qRb3Y5aOvfprDKQ1ncxy8Z2+iCfjrFgX4if9nXhWekl+05NlxRQ3f9erW98A +DjyeCA== + "], 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]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 3.062518358321375}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8Vf8fx28Z9xC618i955p3IEmFrMrnbWRHgyIlo0JIGSVFGspeSdoa +aFHZKzMr4ptkj4jMrKRk9Du/v87j+Tifz/t8zuf9er0+H1knr73HVpNIpLOr +SKT/Pw8ZJPKRSBSIldY77HZyFH3VO9WispoChYJqrRdOjyJnXdOHx7gpYNFT +9/Om7yg6obOiVo9RoL+GrdwRMIr8NY87JFIpoD35jPb0+ihKUFLPU2JRINQ/ +Kdby8ShqEG09amtIgexO9SRG9yjaLfJmU6QxBWzefRaZ6BtFn6nhf0tMKUDx +Giyt+DaKOoV0YtmWFFi8LVR0eXwUjWCpRVMHKDAlcLxg1+Io4l72E77mRgGX +Oa48EYkxtH1IrCwzkgIakx9ag5zG0Oyfon7RGAqIjV1svOQyhp4LOHGdjaNA +i55SdqTHGFqnlmG4LZECzEA1h8IzY2jmsuHHyocU2M6O6/SLGEOpMmc7WzIp +8KDK3to7dwxRDrXPzbdTIGr0tslz4XFU7RW0zraLAr0Gffw5tHEUeIWtWdRD +Ad4Sx1N1UuNo7MWp8xcHKHDw2WcdgQ3jqGoBW41NUKD2NIT+1R9HAbe01tL/ +UeCiRVJ50NlxNNh8Z/02DhUWozL1dg2NI+xpbLevPBUKJK8lrIyPIyW/azEZ +66lwcCR3Tf7sOPIT9/4lq0yFV+ZwQZ80gXgPmZRjGlQImpIeLGZMIIWh3zat +xlT4YrG7eIfVBPL4bRV62oMKU+eT0xPrJ1Bsrem2lyepsN7YZo/15wmUfRsm +B09RgWGh9UyiawItb1OysvGjAl9xaXDV2ASKDuaSQUFUiHZxtw7m/4He8GXm +CcRSobPki+kDsx9ojrF2OC2LCnWS77qTWn6g2hoFz9YcKhwOzrlk0vMD3fPR ++8mdT4V/KXzcXN9/IP16v3+OxVTY0PXjdezvHyg+oFtcoooKS9IbhcQZk2hz +x3Pj2FYqyBcUyn92nkTuiQYv/Beo0GR8zpK5NIkGKAGeJkgYuHqofSfZ02j0 +0xHTNF1h8AlYE+WqOI2m43fK8xgIQyWP/qzL5mm0LErtLzMWhk6Z1tGz26cR +jf7MSnOvMEQ8eF/WbTWNLGVbt8kfEwZu15V7RdemUfEWFX6eCGFgFqS3d0xO +o1t7x1LLWoWhoHIiY+y/GSTwSVpsvl0Y7lvLivS1zaBgS+srG7qEYaTtWll7 +7wxyNS87ktgnDLJ8NQtdEzNI2zCR5jEiDFfZIQuyfLOoV0svXPyvMOhqOLx7 +pTeL5GTveJ6UFAHett+C5QWzKGfKRE3iqAjcjAi9+SvvJ7rbkeG7a1kEzNf4 +GfTJzyN7L/6grBuiYKvVqNs+8geFO1h3LUuLQdxlDS3PikUU+CBlXDJfDBzm +VqFi0X+oQ2PIkmm4DujNgvWX5FaBcCAj0O7TOhjvEVviKlwNImsPHD7hKg7O +wTKUf3bcUFsor/jghDhs2jqT0uLIDUHH/8x/8hCHdQEeQ2ku3DD27nas1mlx +uGVQbmHkww1lHt2VWIA4BMSFGLuFc8PJD46KaRHi8GjmTPXWfKJeiMfvbxni +YDBc4P0flQcuLF2KO/xLHEo2KSutKeaBY++kcsp+i0Or/eYLCeU8YBFU1M76 +Kw4v2xuz6TU8IE36JT22Ig6zTkfqxJt5oILLNeMMRgOTF00D/cM8gK2xqI9h +0GC7kfvvZ8K8kEDHeSp0adA/TELdR3khsDNXgWNAg/UCPybb3Hjh+N195qGG +NNAtKW9vPMkLGpJRNyzMaNCqzt6Z4c9L6ITE7LKiQe5cwqRKJC/IKHzXmXOh +gRb99YpFJi+kq2f6y0XTIK7uTH7GX14wbPb2CoqlgWq9uu/PFV7o9VQ93hpP +jN+cuKjCRQahlOx9127RIL7Q1O7xGjKcFMlT/p5Mg9AyuQFdCTJsni4aTMmi +AT1+j1bwdjJkP6/azemgwWBllUO3PxnMd14zCuyiAR+1XNv7AhkGvxrqfOmh +wVwl18HVwWQQo9VuCBkg6nkN2FCvk+HMtQ+8Q+M0gNj3E6MJZNB0bip+ukKD +LYnt7MuvyVAs0aHAZtPhwYJn/tavZKjwG32zT44O19JfWnQPkKG2cUHzigId +Rh91XgscIkNLMG4yoEQHCqprfj1GhvFBO7fkrXT4ZL4u/vMcGfD03ucSRnRQ +FGNfF8MwkOGd2mJuQgcBgW3Cx/gxkDvyr+C8GR0uTljRXgtgoEKV+dBpSQcr +6oVIFSoGJn6OY0k2dLDupbbO0zHw3zGoKHaCDluztvL7KGIQlDiXaeBBhz0u +oshNCYOrU9zbfE/SYfWj9gZbZQxiH3HMPnvTYZ6iOb5eBYM0Hhf3uPN0ULgW +sByihUHrx9GXglF0GC5Z6NhghEG33F/VHTF0qPRRLa42xmDgIn+xRxwdfIa1 +O+1MMfixZUND/U060M1kK313YcCd6DER9oAOpBkfhuM+DFTtp5R439BBojkt +lmmPgUdD/ZpjmXQwsBgVO38Eg6faz8Yqs+mgn30kt8EBg3Xijs8uFdAhMHi7 +np0zBn+bmlnLFXRoHYmy4bgS9XRerz5URQfUg4cbuhH1XkX0F9bQYUUHPjic +wKA31OChfwMdPt+7cSrYA4MK3Vx87gsdakKKlD1OYbD4On5hbzsd2l3VM6xP +Y6Am5dX+tpMOaa4RWzS9MUj9K5/o1UcHreifOiM+GPS5cvs19tOBP+htdY4v +BrS2r/s2DtLBg/lw1wU/DMKzblPHR+hgYpdpNXcGg0rZM9Mm43SQ3FXanHIW +g6WYvU3PftDh0tsPZrv9MTjpsSbq+CyxfrF/irHniP3vHHavmiP6r20ewwnA +4Kvxe1P2bzrISX8dyyJ4LycQG1ikw9Ed/leLzmMQccN2GFbooBvXU6Z2AYP3 +q9SrH5JwUOoxm0kleNlLOGVlNQ5V73nFhAMxUO+dvHKYBwdmrO2GMwR7mdc7 +FZNxyFS6pfqZ4GeFaboMfhxElfGN64Mw6Fe4KhMggMP2JgNxf4LxWw7/2oVw +aJ4NnikleB/Pjl4NKg472VBEuohBpA/9XaIIDspJiz7aBFf1/7r7SwwHyY1q +DE+CVyybA6xoOAh6eL9JIlijJMM2C8dhNNRQ9R3Bp5QiNIUlcZh2Mn7SSfDz +Oy7ip6VxWLoqTpoheAAzmG+SJerJ2ZmQgjFgnJX5oszGwXN9RRBGsNXQUlaU +HA6RUlzJfARH7euIn1DA4a5u9ysugqvLc06bbSDGnxdJmSfq/dsUv/vFRhx2 +OZ4JHSBY88HJTXybcZDb2rm/huDTAmZCrio4WA8xKCkEvwiQ/1GthsMJAZns +8wR/G+Fq4GjgwDXTrGdGsMSBry+uauHgEaJQLEKwdVVx2LdtOJi6SMh8IfYr +WvW2q54ODqp9b0/GEFzzyM/oEeCg8vVnmh7BJMpeOZI+DurkX/WTRD+8J/gH +3xnh8Cs0pWULwTSahtWcCQ5tOmmzTUR/S/Wd3yua49Ctfm7IhWCBu0VPb+3G +YZupqWkIoY+s6mHRxr04NIrlFvMTfHBWJITbGoczl+u5wwk9pZl4HDtti8OI +s4D4GUJ/Fn5JX9LscLAZau4fIPQ5l/x+Z+9hHLylz10xIVjvj4ScmRMO6Gyn +OTeh5+7Uj9/Z7jislvfg2kz44XLzwn47TxwSD1+JdSf8sn6FUxPnhUNTxeLv +ZMJPZ6yD0lZ8cOjR1rFZIPxH5d7k2n4Bh2RW9EkHTwzyN9m1C13EQe8Df98J +wq/2dteNd17CYd14h7KXOwavMvsUMkMIPX+18jpG+N3QMXY0IhqH/ca6Ydgx +DCYii20rYnF4fSqdb4DIixv5I3V/4nFYcf/gleNE+Gmt7otjt3A4lPl22oTI +l/MlMydQMqEnvvS+9XYYMMcku/we4xCRM5XWbItBrZip2aunOOSqvzzsZ0Pk +kefjDfTnOHihrpvPrDF4w9g3MfsWhwDlQJtqSwz2G108tD4bB03Rdy91LAj/ +eb9sOJKLQ/T5J7/emGNg+oErvaEQB/duZ+8rJhgM+md7plbisLxxWPWrHgb0 +VrEp2y84UGrC+APUMJhdJ5Rb2oaD7FS3sxuRzw0HeAM5nTj4FJiU79mMQXDH +PP9MLw5WGeGxgkS+f+9ukwsdwYGmvlK4hYVB9rfb9rmLxHypjYrKFEJ/7HiO +xArR31TzmgxBDFyPhU9cIjFgj512pMIawk/DAQG7eBjAvdb1FpmX6OeYXeKg +EAO+qUws+CySYfeMZKMwkwHyF47uwIjzTVFl3U1/NgOuH12OliDOP24foUO9 +cgwIO6KgqthHhry5ldHnGxjwXb4laEsHGaT+9PHobmVAgaj1mekGMkysPNrh +ZcwAtShWvEoWGUIF5NLrTzLALmjnpt4AMlAV9IzkTjPg3exfR7WzZLijb98f +7MOADQq7w6/6kCE9IFFM3Z8BVuhTnbAHGZpHeIOSLzFgMUfaZfgQGRhVwxZ+ +CQw4+aRP33cHGTICn09LFTIgz6yhU524f3yZVFLz5pEAlYb+Rl1nXmioSTry +lCwBRvbBpAh7XqhI5o5o5ZOArZIWn5tseeHN3u5+bSEJ2BPs426+mxcicyNi +uMQlQELCoYm6gxf0gsbGEhQk4KHbUsF/YsR4wWeP8swk4EuM0Tbt9zwQrsRa +uxwnAZlz9/7cFeMBcp7U/cOKkpBW/t76oBcXTNzju/g4XxK4brRrCZWugtfK +4+slDKTg6VPxt+PcJNASbL7u3iUFOvvbj08ZLCElo2daD12lYW/iYk9I2x/0 +87uuZQtJBky2L6/K3/sLIdKG4z/NZKDeh79FmDWLUM2aNO54GWjazlME3ybR +EzWvclKvDDil33gV+HYUFVl+4Jliy4KQ4Ku1Rr5DqKIsOePsCVmQe7jO6mhH +P1JqX9g8niML5US0HOXtQcB4WcOdJwtfuN4GPJjqRtb2h+yl8mVB6vjOw8Pt +3ShosCRiT6Es2P9lH0x92Y3+m77yPa9EFo5/cghq39ONfPmE7l2tkQXzI1o1 +5EddqFibSZbqkAXpau+Mo6adyOy+ac/uJVkYK5YqTKlpQ3/HHKUvL8tCrJGc +RGtmG3qmec4xa0UWzl39Z77uQRvibkkbElvFBDvtb3+qfNtQMT/PZCcPE8ov +BoX1M9uQkn/pytG1TDjDFyu4+nIrEtinJnOOyQQ4z3vnldkX1IhJOT8yZoIs +v1dqLf9npLq1x7PEhAnzoXpq9X+bUZLjPf8uUyYwxnsyOsaakVMhHi22iwmX +FEmWeH0z+uUuXhC2hwkOR3acXx/ZjCSaKGu9DzIh6Hpv2DlKMzpxk6tIz4MJ +qXeHf72R/YR4mKPCgzFMkF6sVVzzoRFVbNO+vhjLhBh9rS6ZN40oyDpiUTie +CVWvnuuZJjaiP6EbB3UTmMDd0cnT7tSIxqZO5zxMYsIdoUC+3qWPqPHd3wN2 +j5ggOE7yDlP7iJJsBe43ZzJhZsvhOb7MerQhbpN8+RcmTDlXush8q0WXc74b +TrcywTOv1OBPfS1q77h/XLqdCdN7BL99y65FV5kCqYGdTHDZ+EFx/lot6s4a +YWv3McHD0+Mgj1Itim59xMwaYULGas2J8nM1aJohKpWyyITCCvvCvaxqlJ36 +RzRMlgVGp8Ou9L2sROXPDyw/YbJgleDow3N3KlHjq9yhEhYLhg2zeZlhlWgk +0zd3jsMCs8D88PvHK5FE6fQBB0UW6BRUWeowK9HVtpE7GqrE+z67Bcl7FWgf +1iHz3YAFPHyftlLulKNZtwIlfVcWRF2IPmFyrhQlnQ0q83NjwdKfqZBXB0sR +CtG3enaCBYOtD2M3bC9Fkckfzwt6ssBYSJUe+K8EybX1f2g7zYKcau2L7tdL +0EEDfjeP8yxozq0TdLr3DlVI2aXcjGbBtaaYGInOInTj85LkSDYLIjuX3son +56P4xn0MsVwWKPYs/t4Vmo9i617Q9PJYoKlpKBl+Kh9FltqI3CtgwbL7TLG+ +bj4KeZmN7S5hwVtUZV34LQ+dveLxM6+GBSJPBnRSlPKQnWp37fVOFnjV1i7O +f8xBrBtFPvIkNnyekujpMM1C7R6FWrCKDTMB1d/UtLJQtGHBP5vVbGB7jVg+ +lM9CfxZyI8K52ZBRRZV/zJ2FGhwyn/zA2BDWqOVvX5qJfJWff86isqHq1sXF +VI1MVFWXqAosNlwXOTTCUn2LXEjeP20M2dD4bNg2MTUD5Q62Hg0zYgPrsk7m +4PUMxF23rbXAmA2OQaMRu90y0OM4ngLcjA3+Dmdtg5UyUDfzdlC3JRs+vbkf +uCM7He3ZWcbnYMsGkuuaTeJ1r9C2cCEZFw82rPdhhiWSX6K1oi/N/eLZ8J6x +K9i/OQ2JtuVdi7vBhsfiD9SXitIQfud9WXoCG1yONrklpKQhtkyv2vdENqx9 +5U9afS4NaStRJQ/cZQPt6VGe/2TS0HGDsz80n7LBa3/2LgXfVFTiqx+9lMMG ++uSG2H3rU5DHl66mKx1suCyTUSfw4TGqCwnwudPJBofJPZrX8x8jOXW6+Nsu +NmyWol2kpj1G/Yn77Xt72HAYu2tvffUx2m/zaUJzgA35F4vHktBjhLqq+SbH +2DBWqH6Vq+AREu5/q2+zxIYRdfuda/KSkVfc7uGTy2w4UyUp45KWjBp0p8JD +VthQbm2n+ulWMrr2WKk5k8QBvjCu5ib/ZLTonOYgyMOBliKR237bktHg93uB +FYIcON+4xvPttYcob+J6npI0Bw7WvP7PqvA+ykiL5LWTIeZbkBKF7t1HT53i +rMNkOdDnL2X/PfA+im+/83OIxYHp2l9Xp3TvI4/36ZseKnBgrGVQ7Fj9PcS8 +9zmNqsIB46jo7vff7qJoM+mkeQMO8HML5Satv4NCeNnDbEMOeGkJX+0RuoMu +lCuo7zPiwFx09dz2udvITUOl5bUJB3TSj9qYld5GBqydFDcLDqgzTx19sv82 ++vv3RGjXAQ5QcnUKFMOT0PEXuf5lJ4jvadjLTXDdQqIGzrGd7hxYl/nv5ciP +RFTes/bZnAcHmlV3Vi60JSIJqlubghcHTDaXH7J9lYiazzLU43w4MN9H1hLY +n4jQzuCfjhc4oKb9MWdz+k1E+2pykiuaAx+p05//uCWg6nPzIZIxHDAo3d1x +dH8C8hF5cl8jlgPln1x2fNNLQI2GSw3u8RxgW6r1rZNIQFfTMza0JHJAMrik +8EDTDTQdIDL69CEHygyOR2zRuoHqxHqcDd9yIGFmQK2VHo/GfLVNL2VyIFxa +pdaNNx7xt9zaXJzFga0C7BrqzzhkGr93eUsuB46FDGU/aIhDH4RqEyWLOKCx +bVboRXAcaiBn1c2954BLddy870QsalwI3fSknQMFSTMvHj+NQZM238V6OziQ +8t+j9bcuxyChfP0lWhcHUvvTk147xCCLMyu10T3E/y2UZJtJxqCmWR+ngAEO +HD/c/V0pKRr9N25/c88EBx6r5Of5JEShadPi85E/OODk5WKc6BuFKC/oTjWT +HFjewxXVaRWFdru2KO+Y4YBsbXJajVgU+jRoUqswz4FNklsdN9+ORLP6aRnO +vznAy5JsOhQQiYSfcN988IcD/vb3+p7bRaK9jqWOoovEejZvckqRikTeZRLG +lkscEPK+ELePFInipQOUw5cJfXK39MgORKDMoDbRqhUOmF5ny1HeR6DmHrXF +f/84QKSziVRqBPofyP4y3A== + "]]}, "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}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{7, 11.2}, {0., 0.9720074722848471}}, + 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.9921773062434673`*^9, { + 3.9921774393624897`*^9, 3.9921774479492188`*^9}, {3.992177479113079*^9, + 3.9921776031887894`*^9}}, + CellLabel-> + "Out[122]=",ExpressionUUID->"11955033-73ae-f948-b575-a8c98482b9bf"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"b0", ",", "y", ",", "bb0", ",", "yy", ",", "r"}], "]"}]], "Input", + CellChangeTimes->{3.9918427409143257`*^9}, + CellLabel-> + "In[123]:=",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.7", ",", "12"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.992177642949024*^9, 3.992177661579607*^9}}, + CellLabel-> + "In[126]:=",ExpressionUUID->"5f40daf9-1e74-0640-ab31-9384896fd730"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwVzns0lHkcBvBxS4sckiiJmXln3tC6T5Lt9/sqO10WzTFdJGdq2NGEkjYv +q01ySWKVs7aW2iy5FJJuW1My9sxRS42ktqnRHpoumHdMKodqXHb2j+c853Oe +fx5mXEqUxJTBYEQY839rBs9LExKYYLIwZljUR2EHJw972ugs+x6Twh4Kh/Ev +yFJ2MiG8hubd7KBwfc0Fqx+lTPhwv2SQ00LhZHFDU1EiE7xs3b1RPoXH1Y2j +LXuYsPuicvkOXwpbdzdnGCgmONsEz2w9loYDr107eqKACZ/27PulNnw/rrtH +KfMamTDw19t+w7NU/Cv/8mInJROSPt++XlKXgjVE93OGngmELNXCmpmMBeur +ZNfsWdA69o36sVyKQ/p0tbMCWJBqHjfBHpfgNVf1f7K2sIARHjA5vj4eX9b2 ++p3MZIFGPFTzdnIH/u1nH1n9aRYkHk4sDFgqwpXpqyS5cha43ip+Z1kQgwml +0nVqgAXB/dFe7flbsGVOCHSbsKF7mZjDHdqIrbK2F+zisOHIVb9VByRRuOiN +QV3NZ0PzjRXVhUIBXloWKaxLZENF3/GYrS3h2Ks6l2dSwoampOnGmdXrcL2L +H/GlmQ1dnW3H2Kl8HPaiLOhOLxva4jdtW9C6Gotmp25ZPMaG3BtxO//JDsXl +B8zOrHMmwLeEbfuxFWH/yIz1D0IIeFRwnHN/TgheWyyxGIklYHZnbMB88+U4 +y/6rN6psAtIUJzp4Ljzsb8p5tKOagNdHbS7suu6Pw6LYZKiCALF3gzy+0hdT +w6oq+i0BERrHJgH6GnN15h6Bszngad1V+PC9Bx7nDT3hL+XAq90erq2dXEz0 +X9S2bODAKbuBKy52BO75SNvI9nLgD5/g5Ic9THxmw4CwqIwDBRGCw5ZCN/xm +fkS94ToH8qf8Fmy/64KLV575XvGUAxOlc/p/v+SMNzZW8Td94UB01DMb2U1H +XJ7nxst34cKS6GVFdmsc8HSNcO0hzIVzfk2lc0ft8EtfhtRJzAVXx9LDLAtb +zFp0/P2sHC6ElVZ2VDRY4dzIJ5XttVw4ESo6vfcHSxynK41xvseFA5UehokH +5lj8yGLFCpoLmdanMs3DTHGbY2zuVVsSlIGHjrxyYODyDs/nXT4kqBcT5Nzi +SVTWeknYJCThxt3IoJVOn5GN20W1VxoJp3SfpO5oHGkGiu+bniRB5ZP3qU3x +ET0fZr08JyNBYcINIuPfowiRn9krNQkO895RI2o96i5xSU/vI0Hbnu6a0aVH +kXIL2voFCXZjCUXWt/RI4K7uDfyXhJ057Q3h5Xq0UZNTfaSfhHuDA/uDovUo +JuFJqOdrEtY2GjwbVSNIuic9O3XE+KfWFugXOjR8VjxmoSchjV84mq/UocSH +30krjE5OEaiWtOlQsq+7QPGOhPTNocsKKnUo5cPfbo4fjPtIhbw2TocoaqH8 +5jgJmhD/oAQtjSbqzAMiJkiQbBpandNHowyVvu6l0TaBdGjdAxplLleUWH0m +wUk0yJh1iUYHvySJYg0k/ESdn0fsp9G05+beUaMDhs/xDklolLUN+PmTJNxS +8bmazTTKbp3n3TxFQo1Zn0QeTCOTkemqVdMkdN4+2BTsRaMc12FHldFajeeV +24toZBb5uDBphgTvtvZ939rSKC/rztSM0WfvummfzmjRf+R7LXw= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVzns0lHkcBvBxS4sckiiJmXln3tC6T5Lt9/sqO10WzTFdJGdq2NGEkjYv +q01ySWKVs7aW2iy5FJJuW1My9sxRS42ktqnRHpoumHdMKodqXHb2j+c853Oe +fx5mXEqUxJTBYEQY839rBs9LExKYYLIwZljUR2EHJw972ugs+x6Twh4Kh/Ev +yFJ2MiG8hubd7KBwfc0Fqx+lTPhwv2SQ00LhZHFDU1EiE7xs3b1RPoXH1Y2j +LXuYsPuicvkOXwpbdzdnGCgmONsEz2w9loYDr107eqKACZ/27PulNnw/rrtH +KfMamTDw19t+w7NU/Cv/8mInJROSPt++XlKXgjVE93OGngmELNXCmpmMBeur +ZNfsWdA69o36sVyKQ/p0tbMCWJBqHjfBHpfgNVf1f7K2sIARHjA5vj4eX9b2 ++p3MZIFGPFTzdnIH/u1nH1n9aRYkHk4sDFgqwpXpqyS5cha43ip+Z1kQgwml +0nVqgAXB/dFe7flbsGVOCHSbsKF7mZjDHdqIrbK2F+zisOHIVb9VByRRuOiN +QV3NZ0PzjRXVhUIBXloWKaxLZENF3/GYrS3h2Ks6l2dSwoampOnGmdXrcL2L +H/GlmQ1dnW3H2Kl8HPaiLOhOLxva4jdtW9C6Gotmp25ZPMaG3BtxO//JDsXl +B8zOrHMmwLeEbfuxFWH/yIz1D0IIeFRwnHN/TgheWyyxGIklYHZnbMB88+U4 +y/6rN6psAtIUJzp4Ljzsb8p5tKOagNdHbS7suu6Pw6LYZKiCALF3gzy+0hdT +w6oq+i0BERrHJgH6GnN15h6Bszngad1V+PC9Bx7nDT3hL+XAq90erq2dXEz0 +X9S2bODAKbuBKy52BO75SNvI9nLgD5/g5Ic9THxmw4CwqIwDBRGCw5ZCN/xm +fkS94ToH8qf8Fmy/64KLV575XvGUAxOlc/p/v+SMNzZW8Td94UB01DMb2U1H +XJ7nxst34cKS6GVFdmsc8HSNcO0hzIVzfk2lc0ft8EtfhtRJzAVXx9LDLAtb +zFp0/P2sHC6ElVZ2VDRY4dzIJ5XttVw4ESo6vfcHSxynK41xvseFA5UehokH +5lj8yGLFCpoLmdanMs3DTHGbY2zuVVsSlIGHjrxyYODyDs/nXT4kqBcT5Nzi +SVTWeknYJCThxt3IoJVOn5GN20W1VxoJp3SfpO5oHGkGiu+bniRB5ZP3qU3x +ET0fZr08JyNBYcINIuPfowiRn9krNQkO895RI2o96i5xSU/vI0Hbnu6a0aVH +kXIL2voFCXZjCUXWt/RI4K7uDfyXhJ057Q3h5Xq0UZNTfaSfhHuDA/uDovUo +JuFJqOdrEtY2GjwbVSNIuic9O3XE+KfWFugXOjR8VjxmoSchjV84mq/UocSH +30krjE5OEaiWtOlQsq+7QPGOhPTNocsKKnUo5cPfbo4fjPtIhbw2TocoaqH8 +5jgJmhD/oAQtjSbqzAMiJkiQbBpandNHowyVvu6l0TaBdGjdAxplLleUWH0m +wUk0yJh1iUYHvySJYg0k/ESdn0fsp9G05+beUaMDhs/xDklolLUN+PmTJNxS +8bmazTTKbp3n3TxFQo1Zn0QeTCOTkemqVdMkdN4+2BTsRaMc12FHldFajeeV +24toZBb5uDBphgTvtvZ939rSKC/rztSM0WfvummfzmjRf+R7LXw= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8.7, 12}, {0., 0.005580301998298954}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.700000000000019, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{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.7, 12}, {0., 0.005580301998298954}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.700000000000019, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVzns0lHkcBvBxS4sckiiJmXln3tC6T5Lt9/sqO10WzTFdJGdq2NGEkjYv +q01ySWKVs7aW2iy5FJJuW1My9sxRS42ktqnRHpoumHdMKodqXHb2j+c853Oe +fx5mXEqUxJTBYEQY839rBs9LExKYYLIwZljUR2EHJw972ugs+x6Twh4Kh/Ev +yFJ2MiG8hubd7KBwfc0Fqx+lTPhwv2SQ00LhZHFDU1EiE7xs3b1RPoXH1Y2j +LXuYsPuicvkOXwpbdzdnGCgmONsEz2w9loYDr107eqKACZ/27PulNnw/rrtH +KfMamTDw19t+w7NU/Cv/8mInJROSPt++XlKXgjVE93OGngmELNXCmpmMBeur +ZNfsWdA69o36sVyKQ/p0tbMCWJBqHjfBHpfgNVf1f7K2sIARHjA5vj4eX9b2 ++p3MZIFGPFTzdnIH/u1nH1n9aRYkHk4sDFgqwpXpqyS5cha43ip+Z1kQgwml +0nVqgAXB/dFe7flbsGVOCHSbsKF7mZjDHdqIrbK2F+zisOHIVb9VByRRuOiN +QV3NZ0PzjRXVhUIBXloWKaxLZENF3/GYrS3h2Ks6l2dSwoampOnGmdXrcL2L +H/GlmQ1dnW3H2Kl8HPaiLOhOLxva4jdtW9C6Gotmp25ZPMaG3BtxO//JDsXl +B8zOrHMmwLeEbfuxFWH/yIz1D0IIeFRwnHN/TgheWyyxGIklYHZnbMB88+U4 +y/6rN6psAtIUJzp4Ljzsb8p5tKOagNdHbS7suu6Pw6LYZKiCALF3gzy+0hdT +w6oq+i0BERrHJgH6GnN15h6Bszngad1V+PC9Bx7nDT3hL+XAq90erq2dXEz0 +X9S2bODAKbuBKy52BO75SNvI9nLgD5/g5Ic9THxmw4CwqIwDBRGCw5ZCN/xm +fkS94ToH8qf8Fmy/64KLV575XvGUAxOlc/p/v+SMNzZW8Td94UB01DMb2U1H +XJ7nxst34cKS6GVFdmsc8HSNcO0hzIVzfk2lc0ft8EtfhtRJzAVXx9LDLAtb +zFp0/P2sHC6ElVZ2VDRY4dzIJ5XttVw4ESo6vfcHSxynK41xvseFA5UehokH +5lj8yGLFCpoLmdanMs3DTHGbY2zuVVsSlIGHjrxyYODyDs/nXT4kqBcT5Nzi +SVTWeknYJCThxt3IoJVOn5GN20W1VxoJp3SfpO5oHGkGiu+bniRB5ZP3qU3x +ET0fZr08JyNBYcINIuPfowiRn9krNQkO895RI2o96i5xSU/vI0Hbnu6a0aVH +kXIL2voFCXZjCUXWt/RI4K7uDfyXhJ057Q3h5Xq0UZNTfaSfhHuDA/uDovUo +JuFJqOdrEtY2GjwbVSNIuic9O3XE+KfWFugXOjR8VjxmoSchjV84mq/UocSH +30krjE5OEaiWtOlQsq+7QPGOhPTNocsKKnUo5cPfbo4fjPtIhbw2TocoaqH8 +5jgJmhD/oAQtjSbqzAMiJkiQbBpandNHowyVvu6l0TaBdGjdAxplLleUWH0m +wUk0yJh1iUYHvySJYg0k/ESdn0fsp9G05+beUaMDhs/xDklolLUN+PmTJNxS +8bmazTTKbp3n3TxFQo1Zn0QeTCOTkemqVdMkdN4+2BTsRaMc12FHldFajeeV +24toZBb5uDBphgTvtvZ939rSKC/rztSM0WfvummfzmjRf+R7LXw= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8.7, 12}, {0., 0.005580301998298954}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.700000000000019, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> 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.700000000000019, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{8.7, 12}, {0., 0.005580301998298954}}, + 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.9921776364309235`*^9, + 3.992177662131895*^9}}, + CellLabel-> + "Out[126]=",ExpressionUUID->"81b23e97-83f3-3c4a-9307-6b5f394668b0"] +}, 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.7", ",", "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.7", ",", "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.9921776729602585`*^9, 3.9921776795541286`*^9}}, + CellLabel-> + "In[127]:=",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.06049289069434648`\\\", \\\" \\\", \ +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.040519195289225186`\\\", \\\" \\\", 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.06049289069434648`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R2\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.040519195289225186`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.336030844716822`\\\", \\\" \ +\\\", \\\"R2\\\"}], \\\"]\\\"}]}], RowBox[{\\\"4.542337325546561`*^6\\\", \ +\\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\")\\\"}]}], \\\"+\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"32\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"+\\\", RowBox[{\\\"2.`\\\", \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.06049289069434648`\\\", \\\" \\\", \ +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.040519195289225186`\\\", \\\" \\\", 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.06049289069434648`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R2\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.040519195289225186`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.336030844716822`\\\", \\\" \ +\\\", \\\"R2\\\"}], \\\"]\\\"}]}], RowBox[{\\\"1.9798765540150924`*^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, 127, 22, 29225361075616413851, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99196434662237*^9, 3.991965267764641*^9, + 3.992177687194124*^9}, + CellLabel-> + "During evaluation of \ +In[127]:=",ExpressionUUID->"6642c920-3230-6c4a-8e34-c3b63cb9bba3"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "cvmit", + "\"Failed to converge to the requested accuracy or precision within \\!\\(\ +\\*RowBox[{\\\"100\\\"}]\\) iterations.\"", 2, 127, 23, 29225361075616413851, + "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99196434662237*^9, 3.991965267764641*^9, + 3.9921776873629246`*^9}, + CellLabel-> + "During evaluation of \ +In[127]:=",ExpressionUUID->"59e9b974-4e8d-9749-aeec-9262c2731a7f"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.8664207808720028`"}], ",", + RowBox[{"b0", "\[Rule]", "0.5924302783092033`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9919643466702614`*^9, 3.9919652678273296`*^9, + 3.9921776873709297`*^9}, + CellLabel-> + "Out[127]=",ExpressionUUID->"81c2f112-444c-aa4d-83cb-1ffee680db5d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "0.8664"}]], "Input", + CellChangeTimes->{{3.9919643517017803`*^9, 3.9919643518904247`*^9}, { + 3.991965271719015*^9, 3.991965272747534*^9}, {3.9921777943222237`*^9, + 3.9921777992545795`*^9}}, + CellLabel-> + "In[128]:=",ExpressionUUID->"dbdfb703-96b0-7646-a6d8-1714cb27d7e0"], + +Cell[BoxData["0.8664`"], "Output", + CellChangeTimes->{3.991964352345875*^9, 3.9919652787755985`*^9, + 3.992177800699053*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"98d052e9-8e49-cf4f-9b0f-9d5bace20b7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.5924"}]], "Input", + CellChangeTimes->{{3.991964356946327*^9, 3.991964357098551*^9}, { + 3.9919652753355255`*^9, 3.991965275476549*^9}, {3.9921778035649242`*^9, + 3.992177805899437*^9}}, + CellLabel-> + "In[129]:=",ExpressionUUID->"b1797ad3-1841-6d4a-802c-01a83775cf12"], + +Cell[BoxData["0.5924`"], "Output", + CellChangeTimes->{3.9919643574642944`*^9, 3.9919652764203777`*^9, + 3.9921778068568783`*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"efff023a-cf2e-7d4d-82c7-60a26d03fb25"] +}, 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[130]:=",ExpressionUUID->"44ce8c70-9506-d44d-96f8-61e476c7c15f"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJxNlWk8lHsbxyURLQpZQtwzczN3IpFIp///spUsFRpb0XamIpFlYqSyFUeL +FklxVCKi6ZTKrtLYCmEUUWTJmmimVBzL43n1PC+uz+/t9ft+Ptf1Jfb5ObLF +xcTEYmbnv0mc8ZkrJqYJ0ZUHbjnrhmNZ8xDR+bkEjLG/P+1yPYmlHt2Xk1lH +wPv8iriLT7n4if3Yhhc+BHTL1N42C+Vglh3z57E0AuL79sWJZvyxdJX+6Utv +CdClB1Y4x/jiAD979T4ZGpBF3D15MV545AqOS91IAw3hGd3sG2zsuVwt1sWP +BvyutqY/XfbhqDcL420yaHBBZaWzXJ4nLp4WeN9uocG6Bs2cFxLuOGsXb5vB +Yjrgi3fZb0tYOFYtoIJvQYfKkZcyviaOOMx14ZJCDh2a9RXUOwa2YvJl0f6B +HDqwJ+1/dbRtwV2Z6NzxDjpslWgavd9thR2Lm0utlzHgW37lqhZLc5yn7xau +aMuA7PV4Kv06wrq0R0rWJxhwvaB+THV0PXYzUy94/JgB7r/cQ1ruG+Gkj566 +UX0MEJOaWqnGMsA1rXGGTsok3LtygNOotho/lqgx99hKwkdBhq+G9Er8IKdT +qyachNon4WctF2phz3AZhcB8EuLW2TiletGweP6Ky6pfSbg84CHzsm0FLvSa +36utoQXWWTnmjtRyTNpImvmytICl2rpcpnMZTr/b6q8cqwX7+UXHr0XKYSX2 +NUN+oRaMC5/MFB+RxdjBazpzVAvEanlrfm2TwaGFS1K/EdrgnahsPWIjib23 +1W4KdNWGHdppl1bfEsdH9nqUu53VhrrP8lzVUzNo/7v3AijVBkfVJasG8ifQ +4uBDQ3u/a4NEtZ3OuNtPVJtQ19xHMmF+qXHa0mERwp2bajN2MaEuRkvBOGkU +3T2f7ci+zIQIxdDosmNDSDO/hxdbzgSXyKbEWN8+tG3xGrm+CSYYR0yITF50 +o0tdTraZuhQUGFo5U4WfUJXi3mVeuymgbj3+HTDchnK5kQN/XqVg5x8tZf/E +NqOHrtyL5VUULBqeXvBjWRP6xL0yOTNDgY8KfmyRV488Z7Zrsx0IKDw/kJ1x +KhhL1C2+nhxDgFD9ydaIe4E4VxfaB0U0+Ovc6w2G1S44qSRe5l8mHYTKRuav ++5zwjUcyZPc4HcR+B+l0TltgiZ9KN1frM0BlT33pTD5gyUSOukYKCalHNYJm +SAZ+mKzgtFlAgqgxJC2lTROfMY1z2GTGBOtsxFpkI0SivJD408FMWOMVq+c1 +NIzWDJ4oSXhAwZtv/ZZzSt8ia68zm7p7KMjlmm5gsxuRwfvplHwLAmxrFjpY +JoTgXYsih3RDCSgeWF3APxeE1yVKp1v10qCor7VqYacrvnVuBS9RdfY+Ztpk +b9fuwM/up7/XG6aDb4qJhsMXS5zjGqxXQmOAnJe0cF6oGW7T1KFxLpDgd0E5 +OEuexFIX4g3by0mYHJz2evI3ge/16yQkGjLh9dL4CFdFEUqq+cRb5s2EgIEu +iYL1IyhgTbhg8jYF56lj+vKp79Bk56nDTe8ouNH2hX/PRIAShOcIoZACofyp +jbnJDSil/F1L5x8EdBX/ddeWzsWxvA3ywYEEeL+VlForzsEhNr4xgR00aA7B +1Mujbjj9B/vkZwU6PKCnCQ5asPD2bH8DVi8dfGL8n19nW+Fpae1j4moMKHtw +c3Brhxm27DvNuBVDgvpDef2LF0hsIFVHZz4jweqIzttYcRo2fRb29NkqJvi1 +NIaKhYvQMEu+1GM/E0pvW+VK9o+gy6yI9ofJs31KdldQcs2oOWVyquYNBd7y +B/Mk7wqQL0/6yeAQBS0TA0l7ZhpQkdGS+N+/KZDYERRkZ9qABKZmHM56AhTX +JqB5PlyceiIpU/UoAfzIKty3kYNvpGtyZT7QYEvxLSWXIjd8N0v64NmldFhc ++09A9SkWVqZcdw900aEtRmruqztWOKt7+nqGMgOi2gNYNkvN8bj14wyjaBLG +rK9UytaRuJr/JbmuiATraZ/010Y0HEWRlY4UE5rtnKWLn4qQoiqvfM4eJhzU +jbQl8ChK65/TE5c0u6+erNQK+2bEnzDdbF1Dgeamoj3Z7QK0c4H1FLufggTv +YnMlg0aUeWXr+6AxCvqk61bkezeg2pZGq7BJCsbm+CUclWlAw2M/+c+NCXC1 +r4h9eJGL7/VWCo/4EtBjO8ab3snB2Y3jQlYrDZ4vvKDl/8kNZ0bu/NAhS4c3 +txN7TFJZOOxQzdiaTjp8VEuzYPCt8NSbIZ1figyo8/vEnV5pjndMbDkQHkmC +uMf5fVeGSSxP+9dFs5AEm1wDrbRtNMzczX2Tos0Epd2bCwQNIpQ9xa128mRC +oDTr73OHR1G2/sveX4kUGDloqjZ5N6Miqu3wmVcUdLj7uBSNC5CjaT+R3kuB +b/2i9Tm2jSj15dfJ3O8UqCx4FU2LakB8SX/vogkKSjwSK+xoDag5y4BA0xSY +HZ7r5tdbjyT3Fom/+j9/hjY5fPk868urJ1VGVO5w8QOVDsVrRwj4eta/aflh +DjY4dODB8fc0KB50NpITueEsv+ir82d5uHbzUASPhfXmzytz/kSHelm9gW6B +FWZWdP7QmOXBVNiE+ozN8Rynq5UZESS4fbAzOzBJYpNG8bwtBSSEnl2WnryL +hie4dwRlWkyY4u0wP9IhQj9897wO82DCYGn0SGvEKNJj0Q7qzfJwsmwPKeE2 +I6My6mRGNQWq25f/bJRqQnWN69byP1OQ40ZwolwbkYr7RlmBiILvxr5N7PgG +hFJfhLWOU3Dz0dyV1noNyAEiDT2mKGh/pMPRmKpH7kt7FmvM/l9Je8+qhrp6 +dG3quR0p/B+f/wAuaM5s + "], {{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[{135, 2, 3, 118, 101, 86, 72, 59, 47, 4, 119, 102, 87, 73, + 60, 48, 5, 6, 7, 8, 9, 10, 11, 120, 103, 88, 74, 61, 49, 12, 121, + 104, 89, 75, 62, 50, 13, 14, 15, 16, 122, 105, 90, 76, 63, 51, 17, + 123, 106, 91, 77, 64, 52, 18, 19, 20, 21, 22, 23, 24, 124, 107, 92, + 78, 65, 53, 25, 125, 108, 93, 79, 66, 54, 26, 27, 28, 29, 30, 31, + 32, 33, 34, 35, 36, 37, 126, 109, 94, 80, 67, 55, 38, 127, 110, 95, + 81, 68, 56, 39, 40, 41, 42, 43, 44, 128, 111, 96, 82, 69, 57, 45, + 129, 112, 97, 83, 70, 58, 130, 113, 98, 84, 71, 131, 114, 99, 85, + 132, 115, 100, 133, 116, 134, 46}, + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgDAARNGIFq7hKlrYWGUECyEgBIw7uLamsHABq9d8OO4Na47bFUIo +3ZMllXNrPqutq38S53HKez5S/VN4g+M4juM4juM4juM4juM4juM4/h+/AUCg +8p4= + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJxNlWk8lHsbxyURLQpZQtwzczN3IpFIp///spUsFRpb0XamIpFlYqSyFUeL +FklxVCKi6ZTKrtLYCmEUUWTJmmimVBzL43n1PC+uz+/t9ft+Ptf1Jfb5ObLF +xcTEYmbnv0mc8ZkrJqYJ0ZUHbjnrhmNZ8xDR+bkEjLG/P+1yPYmlHt2Xk1lH +wPv8iriLT7n4if3Yhhc+BHTL1N42C+Vglh3z57E0AuL79sWJZvyxdJX+6Utv +CdClB1Y4x/jiAD979T4ZGpBF3D15MV545AqOS91IAw3hGd3sG2zsuVwt1sWP +BvyutqY/XfbhqDcL420yaHBBZaWzXJ4nLp4WeN9uocG6Bs2cFxLuOGsXb5vB +Yjrgi3fZb0tYOFYtoIJvQYfKkZcyviaOOMx14ZJCDh2a9RXUOwa2YvJl0f6B +HDqwJ+1/dbRtwV2Z6NzxDjpslWgavd9thR2Lm0utlzHgW37lqhZLc5yn7xau +aMuA7PV4Kv06wrq0R0rWJxhwvaB+THV0PXYzUy94/JgB7r/cQ1ruG+Gkj566 +UX0MEJOaWqnGMsA1rXGGTsok3LtygNOotho/lqgx99hKwkdBhq+G9Er8IKdT +qyachNon4WctF2phz3AZhcB8EuLW2TiletGweP6Ky6pfSbg84CHzsm0FLvSa +36utoQXWWTnmjtRyTNpImvmytICl2rpcpnMZTr/b6q8cqwX7+UXHr0XKYSX2 +NUN+oRaMC5/MFB+RxdjBazpzVAvEanlrfm2TwaGFS1K/EdrgnahsPWIjib23 +1W4KdNWGHdppl1bfEsdH9nqUu53VhrrP8lzVUzNo/7v3AijVBkfVJasG8ifQ +4uBDQ3u/a4NEtZ3OuNtPVJtQ19xHMmF+qXHa0mERwp2bajN2MaEuRkvBOGkU +3T2f7ci+zIQIxdDosmNDSDO/hxdbzgSXyKbEWN8+tG3xGrm+CSYYR0yITF50 +o0tdTraZuhQUGFo5U4WfUJXi3mVeuymgbj3+HTDchnK5kQN/XqVg5x8tZf/E +NqOHrtyL5VUULBqeXvBjWRP6xL0yOTNDgY8KfmyRV488Z7Zrsx0IKDw/kJ1x +KhhL1C2+nhxDgFD9ydaIe4E4VxfaB0U0+Ovc6w2G1S44qSRe5l8mHYTKRuav ++5zwjUcyZPc4HcR+B+l0TltgiZ9KN1frM0BlT33pTD5gyUSOukYKCalHNYJm +SAZ+mKzgtFlAgqgxJC2lTROfMY1z2GTGBOtsxFpkI0SivJD408FMWOMVq+c1 +NIzWDJ4oSXhAwZtv/ZZzSt8ia68zm7p7KMjlmm5gsxuRwfvplHwLAmxrFjpY +JoTgXYsih3RDCSgeWF3APxeE1yVKp1v10qCor7VqYacrvnVuBS9RdfY+Ztpk +b9fuwM/up7/XG6aDb4qJhsMXS5zjGqxXQmOAnJe0cF6oGW7T1KFxLpDgd0E5 +OEuexFIX4g3by0mYHJz2evI3ge/16yQkGjLh9dL4CFdFEUqq+cRb5s2EgIEu +iYL1IyhgTbhg8jYF56lj+vKp79Bk56nDTe8ouNH2hX/PRIAShOcIoZACofyp +jbnJDSil/F1L5x8EdBX/ddeWzsWxvA3ywYEEeL+VlForzsEhNr4xgR00aA7B +1Mujbjj9B/vkZwU6PKCnCQ5asPD2bH8DVi8dfGL8n19nW+Fpae1j4moMKHtw +c3Brhxm27DvNuBVDgvpDef2LF0hsIFVHZz4jweqIzttYcRo2fRb29NkqJvi1 +NIaKhYvQMEu+1GM/E0pvW+VK9o+gy6yI9ofJs31KdldQcs2oOWVyquYNBd7y +B/Mk7wqQL0/6yeAQBS0TA0l7ZhpQkdGS+N+/KZDYERRkZ9qABKZmHM56AhTX +JqB5PlyceiIpU/UoAfzIKty3kYNvpGtyZT7QYEvxLSWXIjd8N0v64NmldFhc ++09A9SkWVqZcdw900aEtRmruqztWOKt7+nqGMgOi2gNYNkvN8bj14wyjaBLG +rK9UytaRuJr/JbmuiATraZ/010Y0HEWRlY4UE5rtnKWLn4qQoiqvfM4eJhzU +jbQl8ChK65/TE5c0u6+erNQK+2bEnzDdbF1Dgeamoj3Z7QK0c4H1FLufggTv +YnMlg0aUeWXr+6AxCvqk61bkezeg2pZGq7BJCsbm+CUclWlAw2M/+c+NCXC1 +r4h9eJGL7/VWCo/4EtBjO8ab3snB2Y3jQlYrDZ4vvKDl/8kNZ0bu/NAhS4c3 +txN7TFJZOOxQzdiaTjp8VEuzYPCt8NSbIZ1figyo8/vEnV5pjndMbDkQHkmC +uMf5fVeGSSxP+9dFs5AEm1wDrbRtNMzczX2Tos0Epd2bCwQNIpQ9xa128mRC +oDTr73OHR1G2/sveX4kUGDloqjZ5N6Miqu3wmVcUdLj7uBSNC5CjaT+R3kuB +b/2i9Tm2jSj15dfJ3O8UqCx4FU2LakB8SX/vogkKSjwSK+xoDag5y4BA0xSY +HZ7r5tdbjyT3Fom/+j9/hjY5fPk868urJ1VGVO5w8QOVDsVrRwj4eta/aflh +DjY4dODB8fc0KB50NpITueEsv+ir82d5uHbzUASPhfXmzytz/kSHelm9gW6B +FWZWdP7QmOXBVNiE+ozN8Rynq5UZESS4fbAzOzBJYpNG8bwtBSSEnl2WnryL +hie4dwRlWkyY4u0wP9IhQj9897wO82DCYGn0SGvEKNJj0Q7qzfJwsmwPKeE2 +I6My6mRGNQWq25f/bJRqQnWN69byP1OQ40ZwolwbkYr7RlmBiILvxr5N7PgG +hFJfhLWOU3Dz0dyV1noNyAEiDT2mKGh/pMPRmKpH7kt7FmvM/l9Je8+qhrp6 +dG3quR0p/B+f/wAuaM5s + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + + Line[{135, 2, 3, 118, 101, 86, 72, 59, 47, 4, 119, 102, 87, 73, + 60, 48, 5, 6, 7, 8, 9, 10, 11, 120, 103, 88, 74, 61, 49, 12, + 121, 104, 89, 75, 62, 50, 13, 14, 15, 16, 122, 105, 90, 76, 63, + 51, 17, 123, 106, 91, 77, 64, 52, 18, 19, 20, 21, 22, 23, 24, + 124, 107, 92, 78, 65, 53, 25, 125, 108, 93, 79, 66, 54, 26, 27, + 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 126, 109, 94, 80, 67, + 55, 38, 127, 110, 95, 81, 68, 56, 39, 40, 41, 42, 43, 44, 128, + 111, 96, 82, 69, 57, 45, 129, 112, 97, 83, 70, 58, 130, 113, + 98, 84, 71, 131, 114, 99, 85, 132, 115, 100, 133, 116, 134, + 46}, 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]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.007898976106704987}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0Gk8lOsfBnBJREohSxSzPMyTyJKSTvf9IzRZKjS2ItWZiixZpow6Zak4 +EhVJcVQiIp1CdhWDFvsoW5Ela6KZUnEsf/8X1+f6fN9cLy7KYV87tqiIiMjF +hfy/b86+sCYE6nCh5uhdB+0QLGMaJLyymAKT7O/Pep3OYYmnj2SlNlOgvbA6 +6uozLg5usf3yecE3zimPK9/n4rHJn7wXWyjgZFMd+eQqF/ONTTicrRRQ2BSP +lnhxcXLV+7aePyjQW/r3AysaF+u3zyUX7qCAVa20rVl8EHab36vJtqVA8ZXh +rPTzp3G+zeS2l14U6JOqu2cSzMGPlbsVbnpT4Otlv5Y1Jzj44UCNwNuHAv1W +kzlz+zk45a/EDJWTFOCFvcKD2zk4Mmeb3OkACni+E5fYJMrBB5aHjWoHU6B0 +eGMRLzoQi9WvuJUUQQHB2vzdoQ8DMMua8fNUKgViBw9HCef9sOQr3YvX3lFA +mxZQ7RDhg/19bdYOSlGBKOG6F0R44PE4HJWynQpqgkvaWbfZ2G2NaqSjLxV4 +vZ0tfzoexuEN0rGW6VSIUV7vIFvghkvn+J732qiwuUk9+6WYC9Y/fvTxmXYq +lI44GMoKnXFW85SA1UGFF9IxGn6fnPHtNHWu1Acq7Cq9q+hY4oyDLH0iArqp +0BqEycqTznhzgmSa+QAVSgY7Xkn3OOFcbegaEVLh7+i32wxeO+LMAzl79FfQ +AF99wH5XxsKZvhduLJWhgVNfDgrNYeGMsP0fuhfccC+h3yiFhR9kSh67vIoG +K+r+9X99noXTfrDPfZanwWNaKv/YDha+G70uJ0FlYW++U+Ze3T6cWBYr9R+D +BgIlQ9O3g/Y4UtW/mreDBjXjlVI+Rnb4rJP0ymIODVp15dd2D+/GRGXJkeFs +GrBnbH51d+7CvRko+kw3DXaLtUw86jPHOkuXVDh8okGjjM5wH98cnz1eO6nX +Q4OPqqk76DxzrEQ6HRzupUFnhMTiN/fN8d4sP33WAA28Ivxe3GKb4+eP0tp1 +xmjgk2ykZvvFDN9+KkX0TdFA5HegVs/cDmxX2lrOXE2Hb4U1G9rMTDGjuueH +mgIdGPIWaHCLKZ5tGNX6teB630/cufWmOLNv7la6Eh3Cu/xZlqtM8Zyk5ilR +VTpUPL4zsrvbBGc7ndYpo9JB1kNSsCTYBIv9VLyzUZcOyu6N5fOFgAt0nUMU +rOiQtRXPpt1CWJv6VJH5Fx1uFTVOqkxsxc4ma4vy8ujg8sslqO2RIU786KYd +PkgHEYnZ9aosfVzbEWVgr0TAw7ijnGbVjThPrNbUdTcBH/npPmqS6/Hj7B6N +2hAC6vJDLptJa+BF9jdq0kMJcP5gbXJ0hsD7pncdDQkjQNT1yuG4MQJPMfPS +DS8QMMmMq5GpJ7DZ4EX63QgC1j6R070aQ+BOdS0qJ4YA3xil05lyBBZP4KxV +SyYg5aRa4DxBx24hUvIBhQREbba0T/GgYqNm0YJdRQQEX16dlnSAiuWo/zmq +FxNgmauvkbqHil/zviTVlxDAnPNKe2tIxfoS9TTGcwLMvbXeRYpSsURMrEFX +FQEzI3Me+f9Q8JMkefudfAKEzUGpyZ3qWLRw3XWVrwRcH3aVquxch4s9lg5o +qmkAMzPb1I5cgwlLcRMflgawVDrWSPWsxmkPOvyUIjXgCK/kzM0wWazIvmnA +K9aAKUH+fKm3DMa2HnMZExogUpej92uPFA4uXpnyjaIJnglKzHFLcey5p84i +wEkT9mmmXtt4VxR7H3Ktcr6sCfWf5bgq5+fRkfftfCjXBDuVlRuGC6fRitPH +Rw991wSx19ZaU84/UV18fesgwYCl5VtSV40J0TT3Pr9CgwGzOftMvbuFiHGQ +25CsyQDFgzuL+E1CFE4SNXYkA1qtHSRLnwmR8fOzz55vYIBvW3OwSIgQPRzS +ik8wYMDbVbGhTgpCdMk4ytbChAHMLMRabilAuMeiLv0AA+ojNOS3JE6gHz7u +b8+6MmCk/MJ4R+gEyprlvrZ3Y0CAJOuf6BMTSEElp2qROwOOaYdZUfAEGmPJ +lbseYUD5PfNc8aFxlFj7KWe1JwP8h3vFiraOI2FBUOzF0wzQ84jU8RgdQw+u +ZNmxrzMgVCH4QsWpUaRe2J8TWcUAx7CWhEifQbRnhZ7s4DQDtoROC41e9qFr +vfZWGdokFBmYO5DFn9ArhUOrPQ6SQN7N++0/1olyuWHDf94gYf8fbRX/RrYi +HRb1mE4CCfZmXUFl3FaUpVs58GvBhrbqKi2erSh1aFF/VCIJYjoyEutsWtF1 +VmjXkyQSrpQdrCZlW5G/Xgh/5t6CyVO6cinvkd7IX2Xxj0lo+DZktqj8HXri +xL1a9YqE5WNzy36sbkGGFeS59NckqOxd87NZogWVkJ0nLr0hodvFy7Fkio94 +08Y7mbUkqFuUuGd18VFr8sxsbQMJnnLHCsQf8NFMz/kTLe9JuN35hffQiI+Y +Hpcs+vpJyOUab2Ozm1F98+ZNvM8kZDtTOOFOzcjOeIiSNkCCT+PyrdlWzWj/ +MuYse4iEeM9SU0X9ZuSTI5k/MkpC2/Rwovt8E4oXRFMEAhIEcue35yY1IWWX +7TJ8IQnft/i0sGObUErl15nc7yQoL3tzgRrehDLidrcHTpIwKFm/rtCzCZUY +roz9/Xvhr32BgdbGTQilvDzbMUXCnaeL1zN1mhBP3M+zZJqEMteEamtqE6pr +azY/O0PC5CLf+JNSTcgWwgxcZ0noeqrFUZttRK2Z+hQ0R4LJicXOvgONyGVV +/wq1eRLEbdxeNdU3ok/cuJn5BXsp47wdBY3of3FPw4Q= + "]]}, "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.007898976106704987}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0Gk8lOsfBnBJREohSxSzPMyTyJKSTvf9IzRZKjS2ItWZiixZpow6Zak4 +EhVJcVQiIp1CdhWDFvsoW5Ela6KZUnEsf/8X1+f6fN9cLy7KYV87tqiIiMjF +hfy/b86+sCYE6nCh5uhdB+0QLGMaJLyymAKT7O/Pep3OYYmnj2SlNlOgvbA6 +6uozLg5usf3yecE3zimPK9/n4rHJn7wXWyjgZFMd+eQqF/ONTTicrRRQ2BSP +lnhxcXLV+7aePyjQW/r3AysaF+u3zyUX7qCAVa20rVl8EHab36vJtqVA8ZXh +rPTzp3G+zeS2l14U6JOqu2cSzMGPlbsVbnpT4Otlv5Y1Jzj44UCNwNuHAv1W +kzlz+zk45a/EDJWTFOCFvcKD2zk4Mmeb3OkACni+E5fYJMrBB5aHjWoHU6B0 +eGMRLzoQi9WvuJUUQQHB2vzdoQ8DMMua8fNUKgViBw9HCef9sOQr3YvX3lFA +mxZQ7RDhg/19bdYOSlGBKOG6F0R44PE4HJWynQpqgkvaWbfZ2G2NaqSjLxV4 +vZ0tfzoexuEN0rGW6VSIUV7vIFvghkvn+J732qiwuUk9+6WYC9Y/fvTxmXYq +lI44GMoKnXFW85SA1UGFF9IxGn6fnPHtNHWu1Acq7Cq9q+hY4oyDLH0iArqp +0BqEycqTznhzgmSa+QAVSgY7Xkn3OOFcbegaEVLh7+i32wxeO+LMAzl79FfQ +AF99wH5XxsKZvhduLJWhgVNfDgrNYeGMsP0fuhfccC+h3yiFhR9kSh67vIoG +K+r+9X99noXTfrDPfZanwWNaKv/YDha+G70uJ0FlYW++U+Ze3T6cWBYr9R+D +BgIlQ9O3g/Y4UtW/mreDBjXjlVI+Rnb4rJP0ymIODVp15dd2D+/GRGXJkeFs +GrBnbH51d+7CvRko+kw3DXaLtUw86jPHOkuXVDh8okGjjM5wH98cnz1eO6nX +Q4OPqqk76DxzrEQ6HRzupUFnhMTiN/fN8d4sP33WAA28Ivxe3GKb4+eP0tp1 +xmjgk2ykZvvFDN9+KkX0TdFA5HegVs/cDmxX2lrOXE2Hb4U1G9rMTDGjuueH +mgIdGPIWaHCLKZ5tGNX6teB630/cufWmOLNv7la6Eh3Cu/xZlqtM8Zyk5ilR +VTpUPL4zsrvbBGc7ndYpo9JB1kNSsCTYBIv9VLyzUZcOyu6N5fOFgAt0nUMU +rOiQtRXPpt1CWJv6VJH5Fx1uFTVOqkxsxc4ma4vy8ujg8sslqO2RIU786KYd +PkgHEYnZ9aosfVzbEWVgr0TAw7ijnGbVjThPrNbUdTcBH/npPmqS6/Hj7B6N +2hAC6vJDLptJa+BF9jdq0kMJcP5gbXJ0hsD7pncdDQkjQNT1yuG4MQJPMfPS +DS8QMMmMq5GpJ7DZ4EX63QgC1j6R070aQ+BOdS0qJ4YA3xil05lyBBZP4KxV +SyYg5aRa4DxBx24hUvIBhQREbba0T/GgYqNm0YJdRQQEX16dlnSAiuWo/zmq +FxNgmauvkbqHil/zviTVlxDAnPNKe2tIxfoS9TTGcwLMvbXeRYpSsURMrEFX +FQEzI3Me+f9Q8JMkefudfAKEzUGpyZ3qWLRw3XWVrwRcH3aVquxch4s9lg5o +qmkAMzPb1I5cgwlLcRMflgawVDrWSPWsxmkPOvyUIjXgCK/kzM0wWazIvmnA +K9aAKUH+fKm3DMa2HnMZExogUpej92uPFA4uXpnyjaIJnglKzHFLcey5p84i +wEkT9mmmXtt4VxR7H3Ktcr6sCfWf5bgq5+fRkfftfCjXBDuVlRuGC6fRitPH +Rw991wSx19ZaU84/UV18fesgwYCl5VtSV40J0TT3Pr9CgwGzOftMvbuFiHGQ +25CsyQDFgzuL+E1CFE4SNXYkA1qtHSRLnwmR8fOzz55vYIBvW3OwSIgQPRzS +ik8wYMDbVbGhTgpCdMk4ytbChAHMLMRabilAuMeiLv0AA+ojNOS3JE6gHz7u +b8+6MmCk/MJ4R+gEyprlvrZ3Y0CAJOuf6BMTSEElp2qROwOOaYdZUfAEGmPJ +lbseYUD5PfNc8aFxlFj7KWe1JwP8h3vFiraOI2FBUOzF0wzQ84jU8RgdQw+u +ZNmxrzMgVCH4QsWpUaRe2J8TWcUAx7CWhEifQbRnhZ7s4DQDtoROC41e9qFr +vfZWGdokFBmYO5DFn9ArhUOrPQ6SQN7N++0/1olyuWHDf94gYf8fbRX/RrYi +HRb1mE4CCfZmXUFl3FaUpVs58GvBhrbqKi2erSh1aFF/VCIJYjoyEutsWtF1 +VmjXkyQSrpQdrCZlW5G/Xgh/5t6CyVO6cinvkd7IX2Xxj0lo+DZktqj8HXri +xL1a9YqE5WNzy36sbkGGFeS59NckqOxd87NZogWVkJ0nLr0hodvFy7Fkio94 +08Y7mbUkqFuUuGd18VFr8sxsbQMJnnLHCsQf8NFMz/kTLe9JuN35hffQiI+Y +Hpcs+vpJyOUab2Ozm1F98+ZNvM8kZDtTOOFOzcjOeIiSNkCCT+PyrdlWzWj/ +MuYse4iEeM9SU0X9ZuSTI5k/MkpC2/Rwovt8E4oXRFMEAhIEcue35yY1IWWX +7TJ8IQnft/i0sGObUErl15nc7yQoL3tzgRrehDLidrcHTpIwKFm/rtCzCZUY +roz9/Xvhr32BgdbGTQilvDzbMUXCnaeL1zN1mhBP3M+zZJqEMteEamtqE6pr +azY/O0PC5CLf+JNSTcgWwgxcZ0noeqrFUZttRK2Z+hQ0R4LJicXOvgONyGVV +/wq1eRLEbdxeNdU3ok/cuJn5BXsp47wdBY3of3FPw4Q= + "]]}, "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:eJxNlWk8lHsbxyURLQpZQtwzczN3IpFIp///spUsFRpb0XamIpFlYqSyFUeL +FklxVCKi6ZTKrtLYCmEUUWTJmmimVBzL43n1PC+uz+/t9ft+Ptf1Jfb5ObLF +xcTEYmbnv0mc8ZkrJqYJ0ZUHbjnrhmNZ8xDR+bkEjLG/P+1yPYmlHt2Xk1lH +wPv8iriLT7n4if3Yhhc+BHTL1N42C+Vglh3z57E0AuL79sWJZvyxdJX+6Utv +CdClB1Y4x/jiAD979T4ZGpBF3D15MV545AqOS91IAw3hGd3sG2zsuVwt1sWP +BvyutqY/XfbhqDcL420yaHBBZaWzXJ4nLp4WeN9uocG6Bs2cFxLuOGsXb5vB +Yjrgi3fZb0tYOFYtoIJvQYfKkZcyviaOOMx14ZJCDh2a9RXUOwa2YvJl0f6B +HDqwJ+1/dbRtwV2Z6NzxDjpslWgavd9thR2Lm0utlzHgW37lqhZLc5yn7xau +aMuA7PV4Kv06wrq0R0rWJxhwvaB+THV0PXYzUy94/JgB7r/cQ1ruG+Gkj566 +UX0MEJOaWqnGMsA1rXGGTsok3LtygNOotho/lqgx99hKwkdBhq+G9Er8IKdT +qyachNon4WctF2phz3AZhcB8EuLW2TiletGweP6Ky6pfSbg84CHzsm0FLvSa +36utoQXWWTnmjtRyTNpImvmytICl2rpcpnMZTr/b6q8cqwX7+UXHr0XKYSX2 +NUN+oRaMC5/MFB+RxdjBazpzVAvEanlrfm2TwaGFS1K/EdrgnahsPWIjib23 +1W4KdNWGHdppl1bfEsdH9nqUu53VhrrP8lzVUzNo/7v3AijVBkfVJasG8ifQ +4uBDQ3u/a4NEtZ3OuNtPVJtQ19xHMmF+qXHa0mERwp2bajN2MaEuRkvBOGkU +3T2f7ci+zIQIxdDosmNDSDO/hxdbzgSXyKbEWN8+tG3xGrm+CSYYR0yITF50 +o0tdTraZuhQUGFo5U4WfUJXi3mVeuymgbj3+HTDchnK5kQN/XqVg5x8tZf/E +NqOHrtyL5VUULBqeXvBjWRP6xL0yOTNDgY8KfmyRV488Z7Zrsx0IKDw/kJ1x +KhhL1C2+nhxDgFD9ydaIe4E4VxfaB0U0+Ovc6w2G1S44qSRe5l8mHYTKRuav ++5zwjUcyZPc4HcR+B+l0TltgiZ9KN1frM0BlT33pTD5gyUSOukYKCalHNYJm +SAZ+mKzgtFlAgqgxJC2lTROfMY1z2GTGBOtsxFpkI0SivJD408FMWOMVq+c1 +NIzWDJ4oSXhAwZtv/ZZzSt8ia68zm7p7KMjlmm5gsxuRwfvplHwLAmxrFjpY +JoTgXYsih3RDCSgeWF3APxeE1yVKp1v10qCor7VqYacrvnVuBS9RdfY+Ztpk +b9fuwM/up7/XG6aDb4qJhsMXS5zjGqxXQmOAnJe0cF6oGW7T1KFxLpDgd0E5 +OEuexFIX4g3by0mYHJz2evI3ge/16yQkGjLh9dL4CFdFEUqq+cRb5s2EgIEu +iYL1IyhgTbhg8jYF56lj+vKp79Bk56nDTe8ouNH2hX/PRIAShOcIoZACofyp +jbnJDSil/F1L5x8EdBX/ddeWzsWxvA3ywYEEeL+VlForzsEhNr4xgR00aA7B +1Mujbjj9B/vkZwU6PKCnCQ5asPD2bH8DVi8dfGL8n19nW+Fpae1j4moMKHtw +c3Brhxm27DvNuBVDgvpDef2LF0hsIFVHZz4jweqIzttYcRo2fRb29NkqJvi1 +NIaKhYvQMEu+1GM/E0pvW+VK9o+gy6yI9ofJs31KdldQcs2oOWVyquYNBd7y +B/Mk7wqQL0/6yeAQBS0TA0l7ZhpQkdGS+N+/KZDYERRkZ9qABKZmHM56AhTX +JqB5PlyceiIpU/UoAfzIKty3kYNvpGtyZT7QYEvxLSWXIjd8N0v64NmldFhc ++09A9SkWVqZcdw900aEtRmruqztWOKt7+nqGMgOi2gNYNkvN8bj14wyjaBLG +rK9UytaRuJr/JbmuiATraZ/010Y0HEWRlY4UE5rtnKWLn4qQoiqvfM4eJhzU +jbQl8ChK65/TE5c0u6+erNQK+2bEnzDdbF1Dgeamoj3Z7QK0c4H1FLufggTv +YnMlg0aUeWXr+6AxCvqk61bkezeg2pZGq7BJCsbm+CUclWlAw2M/+c+NCXC1 +r4h9eJGL7/VWCo/4EtBjO8ab3snB2Y3jQlYrDZ4vvKDl/8kNZ0bu/NAhS4c3 +txN7TFJZOOxQzdiaTjp8VEuzYPCt8NSbIZ1figyo8/vEnV5pjndMbDkQHkmC +uMf5fVeGSSxP+9dFs5AEm1wDrbRtNMzczX2Tos0Epd2bCwQNIpQ9xa128mRC +oDTr73OHR1G2/sveX4kUGDloqjZ5N6Miqu3wmVcUdLj7uBSNC5CjaT+R3kuB +b/2i9Tm2jSj15dfJ3O8UqCx4FU2LakB8SX/vogkKSjwSK+xoDag5y4BA0xSY +HZ7r5tdbjyT3Fom/+j9/hjY5fPk868urJ1VGVO5w8QOVDsVrRwj4eta/aflh +DjY4dODB8fc0KB50NpITueEsv+ir82d5uHbzUASPhfXmzytz/kSHelm9gW6B +FWZWdP7QmOXBVNiE+ozN8Rynq5UZESS4fbAzOzBJYpNG8bwtBSSEnl2WnryL +hie4dwRlWkyY4u0wP9IhQj9897wO82DCYGn0SGvEKNJj0Q7qzfJwsmwPKeE2 +I6My6mRGNQWq25f/bJRqQnWN69byP1OQ40ZwolwbkYr7RlmBiILvxr5N7PgG +hFJfhLWOU3Dz0dyV1noNyAEiDT2mKGh/pMPRmKpH7kt7FmvM/l9Je8+qhrp6 +dG3quR0p/B+f/wAuaM5s + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + + Line[{135, 2, 3, 118, 101, 86, 72, 59, 47, 4, 119, 102, 87, 73, 60, + 48, 5, 6, 7, 8, 9, 10, 11, 120, 103, 88, 74, 61, 49, 12, 121, 104, + 89, 75, 62, 50, 13, 14, 15, 16, 122, 105, 90, 76, 63, 51, 17, 123, + 106, 91, 77, 64, 52, 18, 19, 20, 21, 22, 23, 24, 124, 107, 92, 78, + 65, 53, 25, 125, 108, 93, 79, 66, 54, 26, 27, 28, 29, 30, 31, 32, + 33, 34, 35, 36, 37, 126, 109, 94, 80, 67, 55, 38, 127, 110, 95, 81, + 68, 56, 39, 40, 41, 42, 43, 44, 128, 111, 96, 82, 69, 57, 45, 129, + 112, 97, 83, 70, 58, 130, 113, 98, 84, 71, 131, 114, 99, 85, 132, + 115, 100, 133, 116, 134, 46}, 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]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.007898976106704987}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0Gk8lOsfBnBJREohSxSzPMyTyJKSTvf9IzRZKjS2ItWZiixZpow6Zak4 +EhVJcVQiIp1CdhWDFvsoW5Ela6KZUnEsf/8X1+f6fN9cLy7KYV87tqiIiMjF +hfy/b86+sCYE6nCh5uhdB+0QLGMaJLyymAKT7O/Pep3OYYmnj2SlNlOgvbA6 +6uozLg5usf3yecE3zimPK9/n4rHJn7wXWyjgZFMd+eQqF/ONTTicrRRQ2BSP +lnhxcXLV+7aePyjQW/r3AysaF+u3zyUX7qCAVa20rVl8EHab36vJtqVA8ZXh +rPTzp3G+zeS2l14U6JOqu2cSzMGPlbsVbnpT4Otlv5Y1Jzj44UCNwNuHAv1W +kzlz+zk45a/EDJWTFOCFvcKD2zk4Mmeb3OkACni+E5fYJMrBB5aHjWoHU6B0 +eGMRLzoQi9WvuJUUQQHB2vzdoQ8DMMua8fNUKgViBw9HCef9sOQr3YvX3lFA +mxZQ7RDhg/19bdYOSlGBKOG6F0R44PE4HJWynQpqgkvaWbfZ2G2NaqSjLxV4 +vZ0tfzoexuEN0rGW6VSIUV7vIFvghkvn+J732qiwuUk9+6WYC9Y/fvTxmXYq +lI44GMoKnXFW85SA1UGFF9IxGn6fnPHtNHWu1Acq7Cq9q+hY4oyDLH0iArqp +0BqEycqTznhzgmSa+QAVSgY7Xkn3OOFcbegaEVLh7+i32wxeO+LMAzl79FfQ +AF99wH5XxsKZvhduLJWhgVNfDgrNYeGMsP0fuhfccC+h3yiFhR9kSh67vIoG +K+r+9X99noXTfrDPfZanwWNaKv/YDha+G70uJ0FlYW++U+Ze3T6cWBYr9R+D +BgIlQ9O3g/Y4UtW/mreDBjXjlVI+Rnb4rJP0ymIODVp15dd2D+/GRGXJkeFs +GrBnbH51d+7CvRko+kw3DXaLtUw86jPHOkuXVDh8okGjjM5wH98cnz1eO6nX +Q4OPqqk76DxzrEQ6HRzupUFnhMTiN/fN8d4sP33WAA28Ivxe3GKb4+eP0tp1 +xmjgk2ykZvvFDN9+KkX0TdFA5HegVs/cDmxX2lrOXE2Hb4U1G9rMTDGjuueH +mgIdGPIWaHCLKZ5tGNX6teB630/cufWmOLNv7la6Eh3Cu/xZlqtM8Zyk5ilR +VTpUPL4zsrvbBGc7ndYpo9JB1kNSsCTYBIv9VLyzUZcOyu6N5fOFgAt0nUMU +rOiQtRXPpt1CWJv6VJH5Fx1uFTVOqkxsxc4ma4vy8ujg8sslqO2RIU786KYd +PkgHEYnZ9aosfVzbEWVgr0TAw7ijnGbVjThPrNbUdTcBH/npPmqS6/Hj7B6N +2hAC6vJDLptJa+BF9jdq0kMJcP5gbXJ0hsD7pncdDQkjQNT1yuG4MQJPMfPS +DS8QMMmMq5GpJ7DZ4EX63QgC1j6R070aQ+BOdS0qJ4YA3xil05lyBBZP4KxV +SyYg5aRa4DxBx24hUvIBhQREbba0T/GgYqNm0YJdRQQEX16dlnSAiuWo/zmq +FxNgmauvkbqHil/zviTVlxDAnPNKe2tIxfoS9TTGcwLMvbXeRYpSsURMrEFX +FQEzI3Me+f9Q8JMkefudfAKEzUGpyZ3qWLRw3XWVrwRcH3aVquxch4s9lg5o +qmkAMzPb1I5cgwlLcRMflgawVDrWSPWsxmkPOvyUIjXgCK/kzM0wWazIvmnA +K9aAKUH+fKm3DMa2HnMZExogUpej92uPFA4uXpnyjaIJnglKzHFLcey5p84i +wEkT9mmmXtt4VxR7H3Ktcr6sCfWf5bgq5+fRkfftfCjXBDuVlRuGC6fRitPH +Rw991wSx19ZaU84/UV18fesgwYCl5VtSV40J0TT3Pr9CgwGzOftMvbuFiHGQ +25CsyQDFgzuL+E1CFE4SNXYkA1qtHSRLnwmR8fOzz55vYIBvW3OwSIgQPRzS +ik8wYMDbVbGhTgpCdMk4ytbChAHMLMRabilAuMeiLv0AA+ojNOS3JE6gHz7u +b8+6MmCk/MJ4R+gEyprlvrZ3Y0CAJOuf6BMTSEElp2qROwOOaYdZUfAEGmPJ +lbseYUD5PfNc8aFxlFj7KWe1JwP8h3vFiraOI2FBUOzF0wzQ84jU8RgdQw+u +ZNmxrzMgVCH4QsWpUaRe2J8TWcUAx7CWhEifQbRnhZ7s4DQDtoROC41e9qFr +vfZWGdokFBmYO5DFn9ArhUOrPQ6SQN7N++0/1olyuWHDf94gYf8fbRX/RrYi +HRb1mE4CCfZmXUFl3FaUpVs58GvBhrbqKi2erSh1aFF/VCIJYjoyEutsWtF1 +VmjXkyQSrpQdrCZlW5G/Xgh/5t6CyVO6cinvkd7IX2Xxj0lo+DZktqj8HXri +xL1a9YqE5WNzy36sbkGGFeS59NckqOxd87NZogWVkJ0nLr0hodvFy7Fkio94 +08Y7mbUkqFuUuGd18VFr8sxsbQMJnnLHCsQf8NFMz/kTLe9JuN35hffQiI+Y +Hpcs+vpJyOUab2Ozm1F98+ZNvM8kZDtTOOFOzcjOeIiSNkCCT+PyrdlWzWj/ +MuYse4iEeM9SU0X9ZuSTI5k/MkpC2/Rwovt8E4oXRFMEAhIEcue35yY1IWWX +7TJ8IQnft/i0sGObUErl15nc7yQoL3tzgRrehDLidrcHTpIwKFm/rtCzCZUY +roz9/Xvhr32BgdbGTQilvDzbMUXCnaeL1zN1mhBP3M+zZJqEMteEamtqE6pr +azY/O0PC5CLf+JNSTcgWwgxcZ0noeqrFUZttRK2Z+hQ0R4LJicXOvgONyGVV +/wq1eRLEbdxeNdU3ok/cuJn5BXsp47wdBY3of3FPw4Q= + "]]}, "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}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{8, 13}, {0., 0.007898976106704987}}, + 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.992177810218912*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"02e112c3-1300-6949-b21f-09818b486806"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l111", ",", "l222"}], "]"}]], "Input", + CellLabel-> + "In[131]:=",ExpressionUUID->"299aaf37-7ffd-574a-9050-d17f2288bbc9"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwVzns0lHkcBvBxS4sckiiJmXln3tC6T5Lt9/sqO10WzTFdJGdq2NGEkjYv +q01ySWKVs7aW2iy5FJJuW1My9sxRS42ktqnRHpoumHdMKodqXHb2j+c853Oe +fx5mXEqUxJTBYEQY839rBs9LExKYYLIwZljUR2EHJw972ugs+x6Twh4Kh/Ev +yFJ2MiG8hubd7KBwfc0Fqx+lTPhwv2SQ00LhZHFDU1EiE7xs3b1RPoXH1Y2j +LXuYsPuicvkOXwpbdzdnGCgmONsEz2w9loYDr107eqKACZ/27PulNnw/rrtH +KfMamTDw19t+w7NU/Cv/8mInJROSPt++XlKXgjVE93OGngmELNXCmpmMBeur +ZNfsWdA69o36sVyKQ/p0tbMCWJBqHjfBHpfgNVf1f7K2sIARHjA5vj4eX9b2 ++p3MZIFGPFTzdnIH/u1nH1n9aRYkHk4sDFgqwpXpqyS5cha43ip+Z1kQgwml +0nVqgAXB/dFe7flbsGVOCHSbsKF7mZjDHdqIrbK2F+zisOHIVb9VByRRuOiN +QV3NZ0PzjRXVhUIBXloWKaxLZENF3/GYrS3h2Ks6l2dSwoampOnGmdXrcL2L +H/GlmQ1dnW3H2Kl8HPaiLOhOLxva4jdtW9C6Gotmp25ZPMaG3BtxO//JDsXl +B8zOrHMmwLeEbfuxFWH/yIz1D0IIeFRwnHN/TgheWyyxGIklYHZnbMB88+U4 +y/6rN6psAtIUJzp4Ljzsb8p5tKOagNdHbS7suu6Pw6LYZKiCALF3gzy+0hdT +w6oq+i0BERrHJgH6GnN15h6Bszngad1V+PC9Bx7nDT3hL+XAq90erq2dXEz0 +X9S2bODAKbuBKy52BO75SNvI9nLgD5/g5Ic9THxmw4CwqIwDBRGCw5ZCN/xm +fkS94ToH8qf8Fmy/64KLV575XvGUAxOlc/p/v+SMNzZW8Td94UB01DMb2U1H +XJ7nxst34cKS6GVFdmsc8HSNcO0hzIVzfk2lc0ft8EtfhtRJzAVXx9LDLAtb +zFp0/P2sHC6ElVZ2VDRY4dzIJ5XttVw4ESo6vfcHSxynK41xvseFA5UehokH +5lj8yGLFCpoLmdanMs3DTHGbY2zuVVsSlIGHjrxyYODyDs/nXT4kqBcT5Nzi +SVTWeknYJCThxt3IoJVOn5GN20W1VxoJp3SfpO5oHGkGiu+bniRB5ZP3qU3x +ET0fZr08JyNBYcINIuPfowiRn9krNQkO895RI2o96i5xSU/vI0Hbnu6a0aVH +kXIL2voFCXZjCUXWt/RI4K7uDfyXhJ057Q3h5Xq0UZNTfaSfhHuDA/uDovUo +JuFJqOdrEtY2GjwbVSNIuic9O3XE+KfWFugXOjR8VjxmoSchjV84mq/UocSH +30krjE5OEaiWtOlQsq+7QPGOhPTNocsKKnUo5cPfbo4fjPtIhbw2TocoaqH8 +5jgJmhD/oAQtjSbqzAMiJkiQbBpandNHowyVvu6l0TaBdGjdAxplLleUWH0m +wUk0yJh1iUYHvySJYg0k/ESdn0fsp9G05+beUaMDhs/xDklolLUN+PmTJNxS +8bmazTTKbp3n3TxFQo1Zn0QeTCOTkemqVdMkdN4+2BTsRaMc12FHldFajeeV +24toZBb5uDBphgTvtvZ939rSKC/rztSM0WfvummfzmjRf+R7LXw= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVzns0lHkcBvBxS4sckiiJmXln3tC6T5Lt9/sqO10WzTFdJGdq2NGEkjYv +q01ySWKVs7aW2iy5FJJuW1My9sxRS42ktqnRHpoumHdMKodqXHb2j+c853Oe +fx5mXEqUxJTBYEQY839rBs9LExKYYLIwZljUR2EHJw972ugs+x6Twh4Kh/Ev +yFJ2MiG8hubd7KBwfc0Fqx+lTPhwv2SQ00LhZHFDU1EiE7xs3b1RPoXH1Y2j +LXuYsPuicvkOXwpbdzdnGCgmONsEz2w9loYDr107eqKACZ/27PulNnw/rrtH +KfMamTDw19t+w7NU/Cv/8mInJROSPt++XlKXgjVE93OGngmELNXCmpmMBeur +ZNfsWdA69o36sVyKQ/p0tbMCWJBqHjfBHpfgNVf1f7K2sIARHjA5vj4eX9b2 ++p3MZIFGPFTzdnIH/u1nH1n9aRYkHk4sDFgqwpXpqyS5cha43ip+Z1kQgwml +0nVqgAXB/dFe7flbsGVOCHSbsKF7mZjDHdqIrbK2F+zisOHIVb9VByRRuOiN +QV3NZ0PzjRXVhUIBXloWKaxLZENF3/GYrS3h2Ks6l2dSwoampOnGmdXrcL2L +H/GlmQ1dnW3H2Kl8HPaiLOhOLxva4jdtW9C6Gotmp25ZPMaG3BtxO//JDsXl +B8zOrHMmwLeEbfuxFWH/yIz1D0IIeFRwnHN/TgheWyyxGIklYHZnbMB88+U4 +y/6rN6psAtIUJzp4Ljzsb8p5tKOagNdHbS7suu6Pw6LYZKiCALF3gzy+0hdT +w6oq+i0BERrHJgH6GnN15h6Bszngad1V+PC9Bx7nDT3hL+XAq90erq2dXEz0 +X9S2bODAKbuBKy52BO75SNvI9nLgD5/g5Ic9THxmw4CwqIwDBRGCw5ZCN/xm +fkS94ToH8qf8Fmy/64KLV575XvGUAxOlc/p/v+SMNzZW8Td94UB01DMb2U1H +XJ7nxst34cKS6GVFdmsc8HSNcO0hzIVzfk2lc0ft8EtfhtRJzAVXx9LDLAtb +zFp0/P2sHC6ElVZ2VDRY4dzIJ5XttVw4ESo6vfcHSxynK41xvseFA5UehokH +5lj8yGLFCpoLmdanMs3DTHGbY2zuVVsSlIGHjrxyYODyDs/nXT4kqBcT5Nzi +SVTWeknYJCThxt3IoJVOn5GN20W1VxoJp3SfpO5oHGkGiu+bniRB5ZP3qU3x +ET0fZr08JyNBYcINIuPfowiRn9krNQkO895RI2o96i5xSU/vI0Hbnu6a0aVH +kXIL2voFCXZjCUXWt/RI4K7uDfyXhJ057Q3h5Xq0UZNTfaSfhHuDA/uDovUo +JuFJqOdrEtY2GjwbVSNIuic9O3XE+KfWFugXOjR8VjxmoSchjV84mq/UocSH +30krjE5OEaiWtOlQsq+7QPGOhPTNocsKKnUo5cPfbo4fjPtIhbw2TocoaqH8 +5jgJmhD/oAQtjSbqzAMiJkiQbBpandNHowyVvu6l0TaBdGjdAxplLleUWH0m +wUk0yJh1iUYHvySJYg0k/ESdn0fsp9G05+beUaMDhs/xDklolLUN+PmTJNxS +8bmazTTKbp3n3TxFQo1Zn0QeTCOTkemqVdMkdN4+2BTsRaMc12FHldFajeeV +24toZBb5uDBphgTvtvZ939rSKC/rztSM0WfvummfzmjRf+R7LXw= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8.7, 12}, {0., 0.005580301998298954}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.700000000000019, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{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.7, 12}, {0., 0.005580301998298954}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.700000000000019, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVzns0lHkcBvBxS4sckiiJmXln3tC6T5Lt9/sqO10WzTFdJGdq2NGEkjYv +q01ySWKVs7aW2iy5FJJuW1My9sxRS42ktqnRHpoumHdMKodqXHb2j+c853Oe +fx5mXEqUxJTBYEQY839rBs9LExKYYLIwZljUR2EHJw972ugs+x6Twh4Kh/Ev +yFJ2MiG8hubd7KBwfc0Fqx+lTPhwv2SQ00LhZHFDU1EiE7xs3b1RPoXH1Y2j +LXuYsPuicvkOXwpbdzdnGCgmONsEz2w9loYDr107eqKACZ/27PulNnw/rrtH +KfMamTDw19t+w7NU/Cv/8mInJROSPt++XlKXgjVE93OGngmELNXCmpmMBeur +ZNfsWdA69o36sVyKQ/p0tbMCWJBqHjfBHpfgNVf1f7K2sIARHjA5vj4eX9b2 ++p3MZIFGPFTzdnIH/u1nH1n9aRYkHk4sDFgqwpXpqyS5cha43ip+Z1kQgwml +0nVqgAXB/dFe7flbsGVOCHSbsKF7mZjDHdqIrbK2F+zisOHIVb9VByRRuOiN +QV3NZ0PzjRXVhUIBXloWKaxLZENF3/GYrS3h2Ks6l2dSwoampOnGmdXrcL2L +H/GlmQ1dnW3H2Kl8HPaiLOhOLxva4jdtW9C6Gotmp25ZPMaG3BtxO//JDsXl +B8zOrHMmwLeEbfuxFWH/yIz1D0IIeFRwnHN/TgheWyyxGIklYHZnbMB88+U4 +y/6rN6psAtIUJzp4Ljzsb8p5tKOagNdHbS7suu6Pw6LYZKiCALF3gzy+0hdT +w6oq+i0BERrHJgH6GnN15h6Bszngad1V+PC9Bx7nDT3hL+XAq90erq2dXEz0 +X9S2bODAKbuBKy52BO75SNvI9nLgD5/g5Ic9THxmw4CwqIwDBRGCw5ZCN/xm +fkS94ToH8qf8Fmy/64KLV575XvGUAxOlc/p/v+SMNzZW8Td94UB01DMb2U1H +XJ7nxst34cKS6GVFdmsc8HSNcO0hzIVzfk2lc0ft8EtfhtRJzAVXx9LDLAtb +zFp0/P2sHC6ElVZ2VDRY4dzIJ5XttVw4ESo6vfcHSxynK41xvseFA5UehokH +5lj8yGLFCpoLmdanMs3DTHGbY2zuVVsSlIGHjrxyYODyDs/nXT4kqBcT5Nzi +SVTWeknYJCThxt3IoJVOn5GN20W1VxoJp3SfpO5oHGkGiu+bniRB5ZP3qU3x +ET0fZr08JyNBYcINIuPfowiRn9krNQkO895RI2o96i5xSU/vI0Hbnu6a0aVH +kXIL2voFCXZjCUXWt/RI4K7uDfyXhJ057Q3h5Xq0UZNTfaSfhHuDA/uDovUo +JuFJqOdrEtY2GjwbVSNIuic9O3XE+KfWFugXOjR8VjxmoSchjV84mq/UocSH +30krjE5OEaiWtOlQsq+7QPGOhPTNocsKKnUo5cPfbo4fjPtIhbw2TocoaqH8 +5jgJmhD/oAQtjSbqzAMiJkiQbBpandNHowyVvu6l0TaBdGjdAxplLleUWH0m +wUk0yJh1iUYHvySJYg0k/ESdn0fsp9G05+beUaMDhs/xDklolLUN+PmTJNxS +8bmazTTKbp3n3TxFQo1Zn0QeTCOTkemqVdMkdN4+2BTsRaMc12FHldFajeeV +24toZBb5uDBphgTvtvZ939rSKC/rztSM0WfvummfzmjRf+R7LXw= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8.7, 12}, {0., 0.005580301998298954}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.700000000000019, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (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:eJxNlWk8lHsbxyURLQpZQtwzczN3IpFIp///spUsFRpb0XamIpFlYqSyFUeL +FklxVCKi6ZTKrtLYCmEUUWTJmmimVBzL43n1PC+uz+/t9ft+Ptf1Jfb5ObLF +xcTEYmbnv0mc8ZkrJqYJ0ZUHbjnrhmNZ8xDR+bkEjLG/P+1yPYmlHt2Xk1lH +wPv8iriLT7n4if3Yhhc+BHTL1N42C+Vglh3z57E0AuL79sWJZvyxdJX+6Utv +CdClB1Y4x/jiAD979T4ZGpBF3D15MV545AqOS91IAw3hGd3sG2zsuVwt1sWP +BvyutqY/XfbhqDcL420yaHBBZaWzXJ4nLp4WeN9uocG6Bs2cFxLuOGsXb5vB +Yjrgi3fZb0tYOFYtoIJvQYfKkZcyviaOOMx14ZJCDh2a9RXUOwa2YvJl0f6B +HDqwJ+1/dbRtwV2Z6NzxDjpslWgavd9thR2Lm0utlzHgW37lqhZLc5yn7xau +aMuA7PV4Kv06wrq0R0rWJxhwvaB+THV0PXYzUy94/JgB7r/cQ1ruG+Gkj566 +UX0MEJOaWqnGMsA1rXGGTsok3LtygNOotho/lqgx99hKwkdBhq+G9Er8IKdT +qyachNon4WctF2phz3AZhcB8EuLW2TiletGweP6Ky6pfSbg84CHzsm0FLvSa +36utoQXWWTnmjtRyTNpImvmytICl2rpcpnMZTr/b6q8cqwX7+UXHr0XKYSX2 +NUN+oRaMC5/MFB+RxdjBazpzVAvEanlrfm2TwaGFS1K/EdrgnahsPWIjib23 +1W4KdNWGHdppl1bfEsdH9nqUu53VhrrP8lzVUzNo/7v3AijVBkfVJasG8ifQ +4uBDQ3u/a4NEtZ3OuNtPVJtQ19xHMmF+qXHa0mERwp2bajN2MaEuRkvBOGkU +3T2f7ci+zIQIxdDosmNDSDO/hxdbzgSXyKbEWN8+tG3xGrm+CSYYR0yITF50 +o0tdTraZuhQUGFo5U4WfUJXi3mVeuymgbj3+HTDchnK5kQN/XqVg5x8tZf/E +NqOHrtyL5VUULBqeXvBjWRP6xL0yOTNDgY8KfmyRV488Z7Zrsx0IKDw/kJ1x +KhhL1C2+nhxDgFD9ydaIe4E4VxfaB0U0+Ovc6w2G1S44qSRe5l8mHYTKRuav ++5zwjUcyZPc4HcR+B+l0TltgiZ9KN1frM0BlT33pTD5gyUSOukYKCalHNYJm +SAZ+mKzgtFlAgqgxJC2lTROfMY1z2GTGBOtsxFpkI0SivJD408FMWOMVq+c1 +NIzWDJ4oSXhAwZtv/ZZzSt8ia68zm7p7KMjlmm5gsxuRwfvplHwLAmxrFjpY +JoTgXYsih3RDCSgeWF3APxeE1yVKp1v10qCor7VqYacrvnVuBS9RdfY+Ztpk +b9fuwM/up7/XG6aDb4qJhsMXS5zjGqxXQmOAnJe0cF6oGW7T1KFxLpDgd0E5 +OEuexFIX4g3by0mYHJz2evI3ge/16yQkGjLh9dL4CFdFEUqq+cRb5s2EgIEu +iYL1IyhgTbhg8jYF56lj+vKp79Bk56nDTe8ouNH2hX/PRIAShOcIoZACofyp +jbnJDSil/F1L5x8EdBX/ddeWzsWxvA3ywYEEeL+VlForzsEhNr4xgR00aA7B +1Mujbjj9B/vkZwU6PKCnCQ5asPD2bH8DVi8dfGL8n19nW+Fpae1j4moMKHtw +c3Brhxm27DvNuBVDgvpDef2LF0hsIFVHZz4jweqIzttYcRo2fRb29NkqJvi1 +NIaKhYvQMEu+1GM/E0pvW+VK9o+gy6yI9ofJs31KdldQcs2oOWVyquYNBd7y +B/Mk7wqQL0/6yeAQBS0TA0l7ZhpQkdGS+N+/KZDYERRkZ9qABKZmHM56AhTX +JqB5PlyceiIpU/UoAfzIKty3kYNvpGtyZT7QYEvxLSWXIjd8N0v64NmldFhc ++09A9SkWVqZcdw900aEtRmruqztWOKt7+nqGMgOi2gNYNkvN8bj14wyjaBLG +rK9UytaRuJr/JbmuiATraZ/010Y0HEWRlY4UE5rtnKWLn4qQoiqvfM4eJhzU +jbQl8ChK65/TE5c0u6+erNQK+2bEnzDdbF1Dgeamoj3Z7QK0c4H1FLufggTv +YnMlg0aUeWXr+6AxCvqk61bkezeg2pZGq7BJCsbm+CUclWlAw2M/+c+NCXC1 +r4h9eJGL7/VWCo/4EtBjO8ab3snB2Y3jQlYrDZ4vvKDl/8kNZ0bu/NAhS4c3 +txN7TFJZOOxQzdiaTjp8VEuzYPCt8NSbIZ1figyo8/vEnV5pjndMbDkQHkmC +uMf5fVeGSSxP+9dFs5AEm1wDrbRtNMzczX2Tos0Epd2bCwQNIpQ9xa128mRC +oDTr73OHR1G2/sveX4kUGDloqjZ5N6Miqu3wmVcUdLj7uBSNC5CjaT+R3kuB +b/2i9Tm2jSj15dfJ3O8UqCx4FU2LakB8SX/vogkKSjwSK+xoDag5y4BA0xSY +HZ7r5tdbjyT3Fom/+j9/hjY5fPk868urJ1VGVO5w8QOVDsVrRwj4eta/aflh +DjY4dODB8fc0KB50NpITueEsv+ir82d5uHbzUASPhfXmzytz/kSHelm9gW6B +FWZWdP7QmOXBVNiE+ozN8Rynq5UZESS4fbAzOzBJYpNG8bwtBSSEnl2WnryL +hie4dwRlWkyY4u0wP9IhQj9897wO82DCYGn0SGvEKNJj0Q7qzfJwsmwPKeE2 +I6My6mRGNQWq25f/bJRqQnWN69byP1OQ40ZwolwbkYr7RlmBiILvxr5N7PgG +hFJfhLWOU3Dz0dyV1noNyAEiDT2mKGh/pMPRmKpH7kt7FmvM/l9Je8+qhrp6 +dG3quR0p/B+f/wAuaM5s + "], {{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[{135, 2, 3, 118, 101, 86, 72, 59, 47, 4, 119, 102, 87, 73, + 60, 48, 5, 6, 7, 8, 9, 10, 11, 120, 103, 88, 74, 61, 49, 12, 121, + 104, 89, 75, 62, 50, 13, 14, 15, 16, 122, 105, 90, 76, 63, 51, 17, + 123, 106, 91, 77, 64, 52, 18, 19, 20, 21, 22, 23, 24, 124, 107, + 92, 78, 65, 53, 25, 125, 108, 93, 79, 66, 54, 26, 27, 28, 29, 30, + 31, 32, 33, 34, 35, 36, 37, 126, 109, 94, 80, 67, 55, 38, 127, + 110, 95, 81, 68, 56, 39, 40, 41, 42, 43, 44, 128, 111, 96, 82, 69, + 57, 45, 129, 112, 97, 83, 70, 58, 130, 113, 98, 84, 71, 131, 114, + 99, 85, 132, 115, 100, 133, 116, 134, 46}, + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgDAARNGIFq7hKlrYWGUECyEgBIw7uLamsHABq9d8OO4Na47bFUIo +3ZMllXNrPqutq38S53HKez5S/VN4g+M4juM4juM4juM4juM4juM4/h+/AUCg +8p4= + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJxNlWk8lHsbxyURLQpZQtwzczN3IpFIp///spUsFRpb0XamIpFlYqSyFUeL +FklxVCKi6ZTKrtLYCmEUUWTJmmimVBzL43n1PC+uz+/t9ft+Ptf1Jfb5ObLF +xcTEYmbnv0mc8ZkrJqYJ0ZUHbjnrhmNZ8xDR+bkEjLG/P+1yPYmlHt2Xk1lH +wPv8iriLT7n4if3Yhhc+BHTL1N42C+Vglh3z57E0AuL79sWJZvyxdJX+6Utv +CdClB1Y4x/jiAD979T4ZGpBF3D15MV545AqOS91IAw3hGd3sG2zsuVwt1sWP +BvyutqY/XfbhqDcL420yaHBBZaWzXJ4nLp4WeN9uocG6Bs2cFxLuOGsXb5vB +Yjrgi3fZb0tYOFYtoIJvQYfKkZcyviaOOMx14ZJCDh2a9RXUOwa2YvJl0f6B +HDqwJ+1/dbRtwV2Z6NzxDjpslWgavd9thR2Lm0utlzHgW37lqhZLc5yn7xau +aMuA7PV4Kv06wrq0R0rWJxhwvaB+THV0PXYzUy94/JgB7r/cQ1ruG+Gkj566 +UX0MEJOaWqnGMsA1rXGGTsok3LtygNOotho/lqgx99hKwkdBhq+G9Er8IKdT +qyachNon4WctF2phz3AZhcB8EuLW2TiletGweP6Ky6pfSbg84CHzsm0FLvSa +36utoQXWWTnmjtRyTNpImvmytICl2rpcpnMZTr/b6q8cqwX7+UXHr0XKYSX2 +NUN+oRaMC5/MFB+RxdjBazpzVAvEanlrfm2TwaGFS1K/EdrgnahsPWIjib23 +1W4KdNWGHdppl1bfEsdH9nqUu53VhrrP8lzVUzNo/7v3AijVBkfVJasG8ifQ +4uBDQ3u/a4NEtZ3OuNtPVJtQ19xHMmF+qXHa0mERwp2bajN2MaEuRkvBOGkU +3T2f7ci+zIQIxdDosmNDSDO/hxdbzgSXyKbEWN8+tG3xGrm+CSYYR0yITF50 +o0tdTraZuhQUGFo5U4WfUJXi3mVeuymgbj3+HTDchnK5kQN/XqVg5x8tZf/E +NqOHrtyL5VUULBqeXvBjWRP6xL0yOTNDgY8KfmyRV488Z7Zrsx0IKDw/kJ1x +KhhL1C2+nhxDgFD9ydaIe4E4VxfaB0U0+Ovc6w2G1S44qSRe5l8mHYTKRuav ++5zwjUcyZPc4HcR+B+l0TltgiZ9KN1frM0BlT33pTD5gyUSOukYKCalHNYJm +SAZ+mKzgtFlAgqgxJC2lTROfMY1z2GTGBOtsxFpkI0SivJD408FMWOMVq+c1 +NIzWDJ4oSXhAwZtv/ZZzSt8ia68zm7p7KMjlmm5gsxuRwfvplHwLAmxrFjpY +JoTgXYsih3RDCSgeWF3APxeE1yVKp1v10qCor7VqYacrvnVuBS9RdfY+Ztpk +b9fuwM/up7/XG6aDb4qJhsMXS5zjGqxXQmOAnJe0cF6oGW7T1KFxLpDgd0E5 +OEuexFIX4g3by0mYHJz2evI3ge/16yQkGjLh9dL4CFdFEUqq+cRb5s2EgIEu +iYL1IyhgTbhg8jYF56lj+vKp79Bk56nDTe8ouNH2hX/PRIAShOcIoZACofyp +jbnJDSil/F1L5x8EdBX/ddeWzsWxvA3ywYEEeL+VlForzsEhNr4xgR00aA7B +1Mujbjj9B/vkZwU6PKCnCQ5asPD2bH8DVi8dfGL8n19nW+Fpae1j4moMKHtw +c3Brhxm27DvNuBVDgvpDef2LF0hsIFVHZz4jweqIzttYcRo2fRb29NkqJvi1 +NIaKhYvQMEu+1GM/E0pvW+VK9o+gy6yI9ofJs31KdldQcs2oOWVyquYNBd7y +B/Mk7wqQL0/6yeAQBS0TA0l7ZhpQkdGS+N+/KZDYERRkZ9qABKZmHM56AhTX +JqB5PlyceiIpU/UoAfzIKty3kYNvpGtyZT7QYEvxLSWXIjd8N0v64NmldFhc ++09A9SkWVqZcdw900aEtRmruqztWOKt7+nqGMgOi2gNYNkvN8bj14wyjaBLG +rK9UytaRuJr/JbmuiATraZ/010Y0HEWRlY4UE5rtnKWLn4qQoiqvfM4eJhzU +jbQl8ChK65/TE5c0u6+erNQK+2bEnzDdbF1Dgeamoj3Z7QK0c4H1FLufggTv +YnMlg0aUeWXr+6AxCvqk61bkezeg2pZGq7BJCsbm+CUclWlAw2M/+c+NCXC1 +r4h9eJGL7/VWCo/4EtBjO8ab3snB2Y3jQlYrDZ4vvKDl/8kNZ0bu/NAhS4c3 +txN7TFJZOOxQzdiaTjp8VEuzYPCt8NSbIZ1figyo8/vEnV5pjndMbDkQHkmC +uMf5fVeGSSxP+9dFs5AEm1wDrbRtNMzczX2Tos0Epd2bCwQNIpQ9xa128mRC +oDTr73OHR1G2/sveX4kUGDloqjZ5N6Miqu3wmVcUdLj7uBSNC5CjaT+R3kuB +b/2i9Tm2jSj15dfJ3O8UqCx4FU2LakB8SX/vogkKSjwSK+xoDag5y4BA0xSY +HZ7r5tdbjyT3Fom/+j9/hjY5fPk868urJ1VGVO5w8QOVDsVrRwj4eta/aflh +DjY4dODB8fc0KB50NpITueEsv+ir82d5uHbzUASPhfXmzytz/kSHelm9gW6B +FWZWdP7QmOXBVNiE+ozN8Rynq5UZESS4fbAzOzBJYpNG8bwtBSSEnl2WnryL +hie4dwRlWkyY4u0wP9IhQj9897wO82DCYGn0SGvEKNJj0Q7qzfJwsmwPKeE2 +I6My6mRGNQWq25f/bJRqQnWN69byP1OQ40ZwolwbkYr7RlmBiILvxr5N7PgG +hFJfhLWOU3Dz0dyV1noNyAEiDT2mKGh/pMPRmKpH7kt7FmvM/l9Je8+qhrp6 +dG3quR0p/B+f/wAuaM5s + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + + Line[{135, 2, 3, 118, 101, 86, 72, 59, 47, 4, 119, 102, 87, 73, + 60, 48, 5, 6, 7, 8, 9, 10, 11, 120, 103, 88, 74, 61, 49, 12, + 121, 104, 89, 75, 62, 50, 13, 14, 15, 16, 122, 105, 90, 76, + 63, 51, 17, 123, 106, 91, 77, 64, 52, 18, 19, 20, 21, 22, 23, + 24, 124, 107, 92, 78, 65, 53, 25, 125, 108, 93, 79, 66, 54, + 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 126, 109, 94, + 80, 67, 55, 38, 127, 110, 95, 81, 68, 56, 39, 40, 41, 42, 43, + 44, 128, 111, 96, 82, 69, 57, 45, 129, 112, 97, 83, 70, 58, + 130, 113, 98, 84, 71, 131, 114, 99, 85, 132, 115, 100, 133, + 116, 134, 46}, 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]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.007898976106704987}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0Gk8lOsfBnBJREohSxSzPMyTyJKSTvf9IzRZKjS2ItWZiixZpow6Zak4 +EhVJcVQiIp1CdhWDFvsoW5Ela6KZUnEsf/8X1+f6fN9cLy7KYV87tqiIiMjF +hfy/b86+sCYE6nCh5uhdB+0QLGMaJLyymAKT7O/Pep3OYYmnj2SlNlOgvbA6 +6uozLg5usf3yecE3zimPK9/n4rHJn7wXWyjgZFMd+eQqF/ONTTicrRRQ2BSP +lnhxcXLV+7aePyjQW/r3AysaF+u3zyUX7qCAVa20rVl8EHab36vJtqVA8ZXh +rPTzp3G+zeS2l14U6JOqu2cSzMGPlbsVbnpT4Otlv5Y1Jzj44UCNwNuHAv1W +kzlz+zk45a/EDJWTFOCFvcKD2zk4Mmeb3OkACni+E5fYJMrBB5aHjWoHU6B0 +eGMRLzoQi9WvuJUUQQHB2vzdoQ8DMMua8fNUKgViBw9HCef9sOQr3YvX3lFA +mxZQ7RDhg/19bdYOSlGBKOG6F0R44PE4HJWynQpqgkvaWbfZ2G2NaqSjLxV4 +vZ0tfzoexuEN0rGW6VSIUV7vIFvghkvn+J732qiwuUk9+6WYC9Y/fvTxmXYq +lI44GMoKnXFW85SA1UGFF9IxGn6fnPHtNHWu1Acq7Cq9q+hY4oyDLH0iArqp +0BqEycqTznhzgmSa+QAVSgY7Xkn3OOFcbegaEVLh7+i32wxeO+LMAzl79FfQ +AF99wH5XxsKZvhduLJWhgVNfDgrNYeGMsP0fuhfccC+h3yiFhR9kSh67vIoG +K+r+9X99noXTfrDPfZanwWNaKv/YDha+G70uJ0FlYW++U+Ze3T6cWBYr9R+D +BgIlQ9O3g/Y4UtW/mreDBjXjlVI+Rnb4rJP0ymIODVp15dd2D+/GRGXJkeFs +GrBnbH51d+7CvRko+kw3DXaLtUw86jPHOkuXVDh8okGjjM5wH98cnz1eO6nX +Q4OPqqk76DxzrEQ6HRzupUFnhMTiN/fN8d4sP33WAA28Ivxe3GKb4+eP0tp1 +xmjgk2ykZvvFDN9+KkX0TdFA5HegVs/cDmxX2lrOXE2Hb4U1G9rMTDGjuueH +mgIdGPIWaHCLKZ5tGNX6teB630/cufWmOLNv7la6Eh3Cu/xZlqtM8Zyk5ilR +VTpUPL4zsrvbBGc7ndYpo9JB1kNSsCTYBIv9VLyzUZcOyu6N5fOFgAt0nUMU +rOiQtRXPpt1CWJv6VJH5Fx1uFTVOqkxsxc4ma4vy8ujg8sslqO2RIU786KYd +PkgHEYnZ9aosfVzbEWVgr0TAw7ijnGbVjThPrNbUdTcBH/npPmqS6/Hj7B6N +2hAC6vJDLptJa+BF9jdq0kMJcP5gbXJ0hsD7pncdDQkjQNT1yuG4MQJPMfPS +DS8QMMmMq5GpJ7DZ4EX63QgC1j6R070aQ+BOdS0qJ4YA3xil05lyBBZP4KxV +SyYg5aRa4DxBx24hUvIBhQREbba0T/GgYqNm0YJdRQQEX16dlnSAiuWo/zmq +FxNgmauvkbqHil/zviTVlxDAnPNKe2tIxfoS9TTGcwLMvbXeRYpSsURMrEFX +FQEzI3Me+f9Q8JMkefudfAKEzUGpyZ3qWLRw3XWVrwRcH3aVquxch4s9lg5o +qmkAMzPb1I5cgwlLcRMflgawVDrWSPWsxmkPOvyUIjXgCK/kzM0wWazIvmnA +K9aAKUH+fKm3DMa2HnMZExogUpej92uPFA4uXpnyjaIJnglKzHFLcey5p84i +wEkT9mmmXtt4VxR7H3Ktcr6sCfWf5bgq5+fRkfftfCjXBDuVlRuGC6fRitPH +Rw991wSx19ZaU84/UV18fesgwYCl5VtSV40J0TT3Pr9CgwGzOftMvbuFiHGQ +25CsyQDFgzuL+E1CFE4SNXYkA1qtHSRLnwmR8fOzz55vYIBvW3OwSIgQPRzS +ik8wYMDbVbGhTgpCdMk4ytbChAHMLMRabilAuMeiLv0AA+ojNOS3JE6gHz7u +b8+6MmCk/MJ4R+gEyprlvrZ3Y0CAJOuf6BMTSEElp2qROwOOaYdZUfAEGmPJ +lbseYUD5PfNc8aFxlFj7KWe1JwP8h3vFiraOI2FBUOzF0wzQ84jU8RgdQw+u +ZNmxrzMgVCH4QsWpUaRe2J8TWcUAx7CWhEifQbRnhZ7s4DQDtoROC41e9qFr +vfZWGdokFBmYO5DFn9ArhUOrPQ6SQN7N++0/1olyuWHDf94gYf8fbRX/RrYi +HRb1mE4CCfZmXUFl3FaUpVs58GvBhrbqKi2erSh1aFF/VCIJYjoyEutsWtF1 +VmjXkyQSrpQdrCZlW5G/Xgh/5t6CyVO6cinvkd7IX2Xxj0lo+DZktqj8HXri +xL1a9YqE5WNzy36sbkGGFeS59NckqOxd87NZogWVkJ0nLr0hodvFy7Fkio94 +08Y7mbUkqFuUuGd18VFr8sxsbQMJnnLHCsQf8NFMz/kTLe9JuN35hffQiI+Y +Hpcs+vpJyOUab2Ozm1F98+ZNvM8kZDtTOOFOzcjOeIiSNkCCT+PyrdlWzWj/ +MuYse4iEeM9SU0X9ZuSTI5k/MkpC2/Rwovt8E4oXRFMEAhIEcue35yY1IWWX +7TJ8IQnft/i0sGObUErl15nc7yQoL3tzgRrehDLidrcHTpIwKFm/rtCzCZUY +roz9/Xvhr32BgdbGTQilvDzbMUXCnaeL1zN1mhBP3M+zZJqEMteEamtqE6pr +azY/O0PC5CLf+JNSTcgWwgxcZ0noeqrFUZttRK2Z+hQ0R4LJicXOvgONyGVV +/wq1eRLEbdxeNdU3ok/cuJn5BXsp47wdBY3of3FPw4Q= + "]]}, "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.007898976106704987}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0Gk8lOsfBnBJREohSxSzPMyTyJKSTvf9IzRZKjS2ItWZiixZpow6Zak4 +EhVJcVQiIp1CdhWDFvsoW5Ela6KZUnEsf/8X1+f6fN9cLy7KYV87tqiIiMjF +hfy/b86+sCYE6nCh5uhdB+0QLGMaJLyymAKT7O/Pep3OYYmnj2SlNlOgvbA6 +6uozLg5usf3yecE3zimPK9/n4rHJn7wXWyjgZFMd+eQqF/ONTTicrRRQ2BSP +lnhxcXLV+7aePyjQW/r3AysaF+u3zyUX7qCAVa20rVl8EHab36vJtqVA8ZXh +rPTzp3G+zeS2l14U6JOqu2cSzMGPlbsVbnpT4Otlv5Y1Jzj44UCNwNuHAv1W +kzlz+zk45a/EDJWTFOCFvcKD2zk4Mmeb3OkACni+E5fYJMrBB5aHjWoHU6B0 +eGMRLzoQi9WvuJUUQQHB2vzdoQ8DMMua8fNUKgViBw9HCef9sOQr3YvX3lFA +mxZQ7RDhg/19bdYOSlGBKOG6F0R44PE4HJWynQpqgkvaWbfZ2G2NaqSjLxV4 +vZ0tfzoexuEN0rGW6VSIUV7vIFvghkvn+J732qiwuUk9+6WYC9Y/fvTxmXYq +lI44GMoKnXFW85SA1UGFF9IxGn6fnPHtNHWu1Acq7Cq9q+hY4oyDLH0iArqp +0BqEycqTznhzgmSa+QAVSgY7Xkn3OOFcbegaEVLh7+i32wxeO+LMAzl79FfQ +AF99wH5XxsKZvhduLJWhgVNfDgrNYeGMsP0fuhfccC+h3yiFhR9kSh67vIoG +K+r+9X99noXTfrDPfZanwWNaKv/YDha+G70uJ0FlYW++U+Ze3T6cWBYr9R+D +BgIlQ9O3g/Y4UtW/mreDBjXjlVI+Rnb4rJP0ymIODVp15dd2D+/GRGXJkeFs +GrBnbH51d+7CvRko+kw3DXaLtUw86jPHOkuXVDh8okGjjM5wH98cnz1eO6nX +Q4OPqqk76DxzrEQ6HRzupUFnhMTiN/fN8d4sP33WAA28Ivxe3GKb4+eP0tp1 +xmjgk2ykZvvFDN9+KkX0TdFA5HegVs/cDmxX2lrOXE2Hb4U1G9rMTDGjuueH +mgIdGPIWaHCLKZ5tGNX6teB630/cufWmOLNv7la6Eh3Cu/xZlqtM8Zyk5ilR +VTpUPL4zsrvbBGc7ndYpo9JB1kNSsCTYBIv9VLyzUZcOyu6N5fOFgAt0nUMU +rOiQtRXPpt1CWJv6VJH5Fx1uFTVOqkxsxc4ma4vy8ujg8sslqO2RIU786KYd +PkgHEYnZ9aosfVzbEWVgr0TAw7ijnGbVjThPrNbUdTcBH/npPmqS6/Hj7B6N +2hAC6vJDLptJa+BF9jdq0kMJcP5gbXJ0hsD7pncdDQkjQNT1yuG4MQJPMfPS +DS8QMMmMq5GpJ7DZ4EX63QgC1j6R070aQ+BOdS0qJ4YA3xil05lyBBZP4KxV +SyYg5aRa4DxBx24hUvIBhQREbba0T/GgYqNm0YJdRQQEX16dlnSAiuWo/zmq +FxNgmauvkbqHil/zviTVlxDAnPNKe2tIxfoS9TTGcwLMvbXeRYpSsURMrEFX +FQEzI3Me+f9Q8JMkefudfAKEzUGpyZ3qWLRw3XWVrwRcH3aVquxch4s9lg5o +qmkAMzPb1I5cgwlLcRMflgawVDrWSPWsxmkPOvyUIjXgCK/kzM0wWazIvmnA +K9aAKUH+fKm3DMa2HnMZExogUpej92uPFA4uXpnyjaIJnglKzHFLcey5p84i +wEkT9mmmXtt4VxR7H3Ktcr6sCfWf5bgq5+fRkfftfCjXBDuVlRuGC6fRitPH +Rw991wSx19ZaU84/UV18fesgwYCl5VtSV40J0TT3Pr9CgwGzOftMvbuFiHGQ +25CsyQDFgzuL+E1CFE4SNXYkA1qtHSRLnwmR8fOzz55vYIBvW3OwSIgQPRzS +ik8wYMDbVbGhTgpCdMk4ytbChAHMLMRabilAuMeiLv0AA+ojNOS3JE6gHz7u +b8+6MmCk/MJ4R+gEyprlvrZ3Y0CAJOuf6BMTSEElp2qROwOOaYdZUfAEGmPJ +lbseYUD5PfNc8aFxlFj7KWe1JwP8h3vFiraOI2FBUOzF0wzQ84jU8RgdQw+u +ZNmxrzMgVCH4QsWpUaRe2J8TWcUAx7CWhEifQbRnhZ7s4DQDtoROC41e9qFr +vfZWGdokFBmYO5DFn9ArhUOrPQ6SQN7N++0/1olyuWHDf94gYf8fbRX/RrYi +HRb1mE4CCfZmXUFl3FaUpVs58GvBhrbqKi2erSh1aFF/VCIJYjoyEutsWtF1 +VmjXkyQSrpQdrCZlW5G/Xgh/5t6CyVO6cinvkd7IX2Xxj0lo+DZktqj8HXri +xL1a9YqE5WNzy36sbkGGFeS59NckqOxd87NZogWVkJ0nLr0hodvFy7Fkio94 +08Y7mbUkqFuUuGd18VFr8sxsbQMJnnLHCsQf8NFMz/kTLe9JuN35hffQiI+Y +Hpcs+vpJyOUab2Ozm1F98+ZNvM8kZDtTOOFOzcjOeIiSNkCCT+PyrdlWzWj/ +MuYse4iEeM9SU0X9ZuSTI5k/MkpC2/Rwovt8E4oXRFMEAhIEcue35yY1IWWX +7TJ8IQnft/i0sGObUErl15nc7yQoL3tzgRrehDLidrcHTpIwKFm/rtCzCZUY +roz9/Xvhr32BgdbGTQilvDzbMUXCnaeL1zN1mhBP3M+zZJqEMteEamtqE6pr +azY/O0PC5CLf+JNSTcgWwgxcZ0noeqrFUZttRK2Z+hQ0R4LJicXOvgONyGVV +/wq1eRLEbdxeNdU3ok/cuJn5BXsp47wdBY3of3FPw4Q= + "]]}, "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:eJxNlWk8lHsbxyURLQpZQtwzczN3IpFIp///spUsFRpb0XamIpFlYqSyFUeL +FklxVCKi6ZTKrtLYCmEUUWTJmmimVBzL43n1PC+uz+/t9ft+Ptf1Jfb5ObLF +xcTEYmbnv0mc8ZkrJqYJ0ZUHbjnrhmNZ8xDR+bkEjLG/P+1yPYmlHt2Xk1lH +wPv8iriLT7n4if3Yhhc+BHTL1N42C+Vglh3z57E0AuL79sWJZvyxdJX+6Utv +CdClB1Y4x/jiAD979T4ZGpBF3D15MV545AqOS91IAw3hGd3sG2zsuVwt1sWP +BvyutqY/XfbhqDcL420yaHBBZaWzXJ4nLp4WeN9uocG6Bs2cFxLuOGsXb5vB +Yjrgi3fZb0tYOFYtoIJvQYfKkZcyviaOOMx14ZJCDh2a9RXUOwa2YvJl0f6B +HDqwJ+1/dbRtwV2Z6NzxDjpslWgavd9thR2Lm0utlzHgW37lqhZLc5yn7xau +aMuA7PV4Kv06wrq0R0rWJxhwvaB+THV0PXYzUy94/JgB7r/cQ1ruG+Gkj566 +UX0MEJOaWqnGMsA1rXGGTsok3LtygNOotho/lqgx99hKwkdBhq+G9Er8IKdT +qyachNon4WctF2phz3AZhcB8EuLW2TiletGweP6Ky6pfSbg84CHzsm0FLvSa +36utoQXWWTnmjtRyTNpImvmytICl2rpcpnMZTr/b6q8cqwX7+UXHr0XKYSX2 +NUN+oRaMC5/MFB+RxdjBazpzVAvEanlrfm2TwaGFS1K/EdrgnahsPWIjib23 +1W4KdNWGHdppl1bfEsdH9nqUu53VhrrP8lzVUzNo/7v3AijVBkfVJasG8ifQ +4uBDQ3u/a4NEtZ3OuNtPVJtQ19xHMmF+qXHa0mERwp2bajN2MaEuRkvBOGkU +3T2f7ci+zIQIxdDosmNDSDO/hxdbzgSXyKbEWN8+tG3xGrm+CSYYR0yITF50 +o0tdTraZuhQUGFo5U4WfUJXi3mVeuymgbj3+HTDchnK5kQN/XqVg5x8tZf/E +NqOHrtyL5VUULBqeXvBjWRP6xL0yOTNDgY8KfmyRV488Z7Zrsx0IKDw/kJ1x +KhhL1C2+nhxDgFD9ydaIe4E4VxfaB0U0+Ovc6w2G1S44qSRe5l8mHYTKRuav ++5zwjUcyZPc4HcR+B+l0TltgiZ9KN1frM0BlT33pTD5gyUSOukYKCalHNYJm +SAZ+mKzgtFlAgqgxJC2lTROfMY1z2GTGBOtsxFpkI0SivJD408FMWOMVq+c1 +NIzWDJ4oSXhAwZtv/ZZzSt8ia68zm7p7KMjlmm5gsxuRwfvplHwLAmxrFjpY +JoTgXYsih3RDCSgeWF3APxeE1yVKp1v10qCor7VqYacrvnVuBS9RdfY+Ztpk +b9fuwM/up7/XG6aDb4qJhsMXS5zjGqxXQmOAnJe0cF6oGW7T1KFxLpDgd0E5 +OEuexFIX4g3by0mYHJz2evI3ge/16yQkGjLh9dL4CFdFEUqq+cRb5s2EgIEu +iYL1IyhgTbhg8jYF56lj+vKp79Bk56nDTe8ouNH2hX/PRIAShOcIoZACofyp +jbnJDSil/F1L5x8EdBX/ddeWzsWxvA3ywYEEeL+VlForzsEhNr4xgR00aA7B +1Mujbjj9B/vkZwU6PKCnCQ5asPD2bH8DVi8dfGL8n19nW+Fpae1j4moMKHtw +c3Brhxm27DvNuBVDgvpDef2LF0hsIFVHZz4jweqIzttYcRo2fRb29NkqJvi1 +NIaKhYvQMEu+1GM/E0pvW+VK9o+gy6yI9ofJs31KdldQcs2oOWVyquYNBd7y +B/Mk7wqQL0/6yeAQBS0TA0l7ZhpQkdGS+N+/KZDYERRkZ9qABKZmHM56AhTX +JqB5PlyceiIpU/UoAfzIKty3kYNvpGtyZT7QYEvxLSWXIjd8N0v64NmldFhc ++09A9SkWVqZcdw900aEtRmruqztWOKt7+nqGMgOi2gNYNkvN8bj14wyjaBLG +rK9UytaRuJr/JbmuiATraZ/010Y0HEWRlY4UE5rtnKWLn4qQoiqvfM4eJhzU +jbQl8ChK65/TE5c0u6+erNQK+2bEnzDdbF1Dgeamoj3Z7QK0c4H1FLufggTv +YnMlg0aUeWXr+6AxCvqk61bkezeg2pZGq7BJCsbm+CUclWlAw2M/+c+NCXC1 +r4h9eJGL7/VWCo/4EtBjO8ab3snB2Y3jQlYrDZ4vvKDl/8kNZ0bu/NAhS4c3 +txN7TFJZOOxQzdiaTjp8VEuzYPCt8NSbIZ1figyo8/vEnV5pjndMbDkQHkmC +uMf5fVeGSSxP+9dFs5AEm1wDrbRtNMzczX2Tos0Epd2bCwQNIpQ9xa128mRC +oDTr73OHR1G2/sveX4kUGDloqjZ5N6Miqu3wmVcUdLj7uBSNC5CjaT+R3kuB +b/2i9Tm2jSj15dfJ3O8UqCx4FU2LakB8SX/vogkKSjwSK+xoDag5y4BA0xSY +HZ7r5tdbjyT3Fom/+j9/hjY5fPk868urJ1VGVO5w8QOVDsVrRwj4eta/aflh +DjY4dODB8fc0KB50NpITueEsv+ir82d5uHbzUASPhfXmzytz/kSHelm9gW6B +FWZWdP7QmOXBVNiE+ozN8Rynq5UZESS4fbAzOzBJYpNG8bwtBSSEnl2WnryL +hie4dwRlWkyY4u0wP9IhQj9897wO82DCYGn0SGvEKNJj0Q7qzfJwsmwPKeE2 +I6My6mRGNQWq25f/bJRqQnWN69byP1OQ40ZwolwbkYr7RlmBiILvxr5N7PgG +hFJfhLWOU3Dz0dyV1noNyAEiDT2mKGh/pMPRmKpH7kt7FmvM/l9Je8+qhrp6 +dG3quR0p/B+f/wAuaM5s + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + + Line[{135, 2, 3, 118, 101, 86, 72, 59, 47, 4, 119, 102, 87, 73, 60, + 48, 5, 6, 7, 8, 9, 10, 11, 120, 103, 88, 74, 61, 49, 12, 121, + 104, 89, 75, 62, 50, 13, 14, 15, 16, 122, 105, 90, 76, 63, 51, 17, + 123, 106, 91, 77, 64, 52, 18, 19, 20, 21, 22, 23, 24, 124, 107, + 92, 78, 65, 53, 25, 125, 108, 93, 79, 66, 54, 26, 27, 28, 29, 30, + 31, 32, 33, 34, 35, 36, 37, 126, 109, 94, 80, 67, 55, 38, 127, + 110, 95, 81, 68, 56, 39, 40, 41, 42, 43, 44, 128, 111, 96, 82, 69, + 57, 45, 129, 112, 97, 83, 70, 58, 130, 113, 98, 84, 71, 131, 114, + 99, 85, 132, 115, 100, 133, 116, 134, 46}, 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]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.007898976106704987}}, + "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.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0Gk8lOsfBnBJREohSxSzPMyTyJKSTvf9IzRZKjS2ItWZiixZpow6Zak4 +EhVJcVQiIp1CdhWDFvsoW5Ela6KZUnEsf/8X1+f6fN9cLy7KYV87tqiIiMjF +hfy/b86+sCYE6nCh5uhdB+0QLGMaJLyymAKT7O/Pep3OYYmnj2SlNlOgvbA6 +6uozLg5usf3yecE3zimPK9/n4rHJn7wXWyjgZFMd+eQqF/ONTTicrRRQ2BSP +lnhxcXLV+7aePyjQW/r3AysaF+u3zyUX7qCAVa20rVl8EHab36vJtqVA8ZXh +rPTzp3G+zeS2l14U6JOqu2cSzMGPlbsVbnpT4Otlv5Y1Jzj44UCNwNuHAv1W +kzlz+zk45a/EDJWTFOCFvcKD2zk4Mmeb3OkACni+E5fYJMrBB5aHjWoHU6B0 +eGMRLzoQi9WvuJUUQQHB2vzdoQ8DMMua8fNUKgViBw9HCef9sOQr3YvX3lFA +mxZQ7RDhg/19bdYOSlGBKOG6F0R44PE4HJWynQpqgkvaWbfZ2G2NaqSjLxV4 +vZ0tfzoexuEN0rGW6VSIUV7vIFvghkvn+J732qiwuUk9+6WYC9Y/fvTxmXYq +lI44GMoKnXFW85SA1UGFF9IxGn6fnPHtNHWu1Acq7Cq9q+hY4oyDLH0iArqp +0BqEycqTznhzgmSa+QAVSgY7Xkn3OOFcbegaEVLh7+i32wxeO+LMAzl79FfQ +AF99wH5XxsKZvhduLJWhgVNfDgrNYeGMsP0fuhfccC+h3yiFhR9kSh67vIoG +K+r+9X99noXTfrDPfZanwWNaKv/YDha+G70uJ0FlYW++U+Ze3T6cWBYr9R+D +BgIlQ9O3g/Y4UtW/mreDBjXjlVI+Rnb4rJP0ymIODVp15dd2D+/GRGXJkeFs +GrBnbH51d+7CvRko+kw3DXaLtUw86jPHOkuXVDh8okGjjM5wH98cnz1eO6nX +Q4OPqqk76DxzrEQ6HRzupUFnhMTiN/fN8d4sP33WAA28Ivxe3GKb4+eP0tp1 +xmjgk2ykZvvFDN9+KkX0TdFA5HegVs/cDmxX2lrOXE2Hb4U1G9rMTDGjuueH +mgIdGPIWaHCLKZ5tGNX6teB630/cufWmOLNv7la6Eh3Cu/xZlqtM8Zyk5ilR +VTpUPL4zsrvbBGc7ndYpo9JB1kNSsCTYBIv9VLyzUZcOyu6N5fOFgAt0nUMU +rOiQtRXPpt1CWJv6VJH5Fx1uFTVOqkxsxc4ma4vy8ujg8sslqO2RIU786KYd +PkgHEYnZ9aosfVzbEWVgr0TAw7ijnGbVjThPrNbUdTcBH/npPmqS6/Hj7B6N +2hAC6vJDLptJa+BF9jdq0kMJcP5gbXJ0hsD7pncdDQkjQNT1yuG4MQJPMfPS +DS8QMMmMq5GpJ7DZ4EX63QgC1j6R070aQ+BOdS0qJ4YA3xil05lyBBZP4KxV +SyYg5aRa4DxBx24hUvIBhQREbba0T/GgYqNm0YJdRQQEX16dlnSAiuWo/zmq +FxNgmauvkbqHil/zviTVlxDAnPNKe2tIxfoS9TTGcwLMvbXeRYpSsURMrEFX +FQEzI3Me+f9Q8JMkefudfAKEzUGpyZ3qWLRw3XWVrwRcH3aVquxch4s9lg5o +qmkAMzPb1I5cgwlLcRMflgawVDrWSPWsxmkPOvyUIjXgCK/kzM0wWazIvmnA +K9aAKUH+fKm3DMa2HnMZExogUpej92uPFA4uXpnyjaIJnglKzHFLcey5p84i +wEkT9mmmXtt4VxR7H3Ktcr6sCfWf5bgq5+fRkfftfCjXBDuVlRuGC6fRitPH +Rw991wSx19ZaU84/UV18fesgwYCl5VtSV40J0TT3Pr9CgwGzOftMvbuFiHGQ +25CsyQDFgzuL+E1CFE4SNXYkA1qtHSRLnwmR8fOzz55vYIBvW3OwSIgQPRzS +ik8wYMDbVbGhTgpCdMk4ytbChAHMLMRabilAuMeiLv0AA+ojNOS3JE6gHz7u +b8+6MmCk/MJ4R+gEyprlvrZ3Y0CAJOuf6BMTSEElp2qROwOOaYdZUfAEGmPJ +lbseYUD5PfNc8aFxlFj7KWe1JwP8h3vFiraOI2FBUOzF0wzQ84jU8RgdQw+u +ZNmxrzMgVCH4QsWpUaRe2J8TWcUAx7CWhEifQbRnhZ7s4DQDtoROC41e9qFr +vfZWGdokFBmYO5DFn9ArhUOrPQ6SQN7N++0/1olyuWHDf94gYf8fbRX/RrYi +HRb1mE4CCfZmXUFl3FaUpVs58GvBhrbqKi2erSh1aFF/VCIJYjoyEutsWtF1 +VmjXkyQSrpQdrCZlW5G/Xgh/5t6CyVO6cinvkd7IX2Xxj0lo+DZktqj8HXri +xL1a9YqE5WNzy36sbkGGFeS59NckqOxd87NZogWVkJ0nLr0hodvFy7Fkio94 +08Y7mbUkqFuUuGd18VFr8sxsbQMJnnLHCsQf8NFMz/kTLe9JuN35hffQiI+Y +Hpcs+vpJyOUab2Ozm1F98+ZNvM8kZDtTOOFOzcjOeIiSNkCCT+PyrdlWzWj/ +MuYse4iEeM9SU0X9ZuSTI5k/MkpC2/Rwovt8E4oXRFMEAhIEcue35yY1IWWX +7TJ8IQnft/i0sGObUErl15nc7yQoL3tzgRrehDLidrcHTpIwKFm/rtCzCZUY +roz9/Xvhr32BgdbGTQilvDzbMUXCnaeL1zN1mhBP3M+zZJqEMteEamtqE6pr +azY/O0PC5CLf+JNSTcgWwgxcZ0noeqrFUZttRK2Z+hQ0R4LJicXOvgONyGVV +/wq1eRLEbdxeNdU3ok/cuJn5BXsp47wdBY3of3FPw4Q= + "]]}, "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.700000000000019, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{8.7, 12}, {0., 0.005580301998298954}}, + 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.9921778148357544`*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"1c9ff204-4b4a-5240-aa27-cd8a73d88a0f"] +}, 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.3", ",", "8.5"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.992177846641865*^9, 3.992177866953274*^9}}, + CellLabel-> + "In[135]:=",ExpressionUUID->"f3943b5b-dc03-1343-88ab-8e6b6abbdcf4"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV0HlY03UcB/BxeBCU/AaE237bvgjCY4yzRITk88EmoJEcEjBAZ+S44gh0 +oHiAzovJ0dRA3IMQTHGFTjEUSM40AfMgMDXBwAg51GCkCAq0/vg87+f1vP96 +f6yiU4Il+gwGY43u/s+B6u5fZ6+w0KTV2alsRzW0Lyzq4l1loVo2ovQRVoOL +S9wSvSEW3rHqkSbgBWB/KShXWrLRRpXccTi/CuZue/YuFLJREFXS7ABq2CL0 +Wuu4jY17ZqcKI43OgNad9Tytgo09ZqdeJ39cAbtiwV9+h411FqvWeQ6XwaHS +8B7RHBuN9yuZN0UlkE812L215+DiE+mcTnUxNOhPf98QxsHW0juZC9ILIWlm +mXjFIQ7aDHX0mMYeA5br6duySxycWK1Z6zj4Dfh8bZZy+C8OzllXO1u/mwdK +hwjfKiaNV5o2G+UxcuCZzbM/yr1o5Jamj0TUHIDGpamlQck0Fik8xT8W74Pc +zd78rpM0hoQLrqdbZMMjleFdk5s0Hu03NCtM2wnBcWW1kmkaNzlX3vJNz4Dr +kkNRClsuOhwLbKqBbVCX+IWLNJSLR+q7L+V4pYL63MEWexkXJwaHBkTqJGhN +2p+jp+Gi0niyaZ0iHiJXSPcVPOYi3SCf5DRJYMzjotvYOzxs28h9kK2Jhvl+ +fRwjTx5GqJb3e2jEIOx+6u6dwMOOVQKrvc8jIOukB+VfyEP36HFDUxIGHgnZ +7EW/8NAK18crTmwA7VbqT5WWhweaD3aRtkD47W3mIxGPj4uvtU1qO/3BteD+ +whuf8dFekNtGvvKDgsis8fmZfNxRL2Gph4WQ6MI2nlPz8WHEi084Vd7g483o +a/+dj3HZb4bzXLzAJk78SqRH8AE/c0lD70qQfORuYc8iKOf0iYJ7l4Oq5LJC +4kRQdnFN23GNK6iOnLfd5Usw1ehgbJHMCdzrjoYtERMMWepUefnMB9Ahowdd +pAT/8ZwMFXTYAt3Fz+PmEZQWDNjne1hDYlObIq2CYNAube69WAJBoxtdw+oI +0qMG4w/NaHilTBy17CT4uby8hF9jCcXDRH/1U4IZWy1WOniZg1DMnFbp7Hrc +yWbYyRxedBtoFwwRnKm/QGmsdH3zYP8tnVtl8x6EzzOHscKqFtEIwXJ1V4D1 +LTPwE7rvTX1OcLutdCRvkxm8PhXA+G6C4KC9oEZ+mAkV5t6vDf4l+CRAfm3H +Tiasl7uOxeisYi5jpCUzQSW16BO81P3nxvEnu0OYEOj/qKn2FcGXi5jl+lZM +ODsVk3V3imBj5Zac+p8o2JASnvHhNMH41oKYlRoKZgfWphTq3Dd5xrilnIKQ +uwJx1BuCNTacb0dyKGBUar2G3hK86qyYPh1OwQ/0gNunMwQNZ6WJCf4UhB69 +53heZ9rvinQFUlC1u5a3bVa392Wo26gdBWET6vfv61x04Of+Tg4F+vHK9zzm +CC79+6xJyyIKzj3OnV+ic+X2xRdrDSgID9kzO6dzdqNde+2kKfwHlWrgAw== + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0HlY03UcB/BxeBCU/AaE237bvgjCY4yzRITk88EmoJEcEjBAZ+S44gh0 +oHiAzovJ0dRA3IMQTHGFTjEUSM40AfMgMDXBwAg51GCkCAq0/vg87+f1vP96 +f6yiU4Il+gwGY43u/s+B6u5fZ6+w0KTV2alsRzW0Lyzq4l1loVo2ovQRVoOL +S9wSvSEW3rHqkSbgBWB/KShXWrLRRpXccTi/CuZue/YuFLJREFXS7ABq2CL0 +Wuu4jY17ZqcKI43OgNad9Tytgo09ZqdeJ39cAbtiwV9+h411FqvWeQ6XwaHS +8B7RHBuN9yuZN0UlkE812L215+DiE+mcTnUxNOhPf98QxsHW0juZC9ILIWlm +mXjFIQ7aDHX0mMYeA5br6duySxycWK1Z6zj4Dfh8bZZy+C8OzllXO1u/mwdK +hwjfKiaNV5o2G+UxcuCZzbM/yr1o5Jamj0TUHIDGpamlQck0Fik8xT8W74Pc +zd78rpM0hoQLrqdbZMMjleFdk5s0Hu03NCtM2wnBcWW1kmkaNzlX3vJNz4Dr +kkNRClsuOhwLbKqBbVCX+IWLNJSLR+q7L+V4pYL63MEWexkXJwaHBkTqJGhN +2p+jp+Gi0niyaZ0iHiJXSPcVPOYi3SCf5DRJYMzjotvYOzxs28h9kK2Jhvl+ +fRwjTx5GqJb3e2jEIOx+6u6dwMOOVQKrvc8jIOukB+VfyEP36HFDUxIGHgnZ +7EW/8NAK18crTmwA7VbqT5WWhweaD3aRtkD47W3mIxGPj4uvtU1qO/3BteD+ +whuf8dFekNtGvvKDgsis8fmZfNxRL2Gph4WQ6MI2nlPz8WHEi084Vd7g483o +a/+dj3HZb4bzXLzAJk78SqRH8AE/c0lD70qQfORuYc8iKOf0iYJ7l4Oq5LJC +4kRQdnFN23GNK6iOnLfd5Usw1ehgbJHMCdzrjoYtERMMWepUefnMB9Ahowdd +pAT/8ZwMFXTYAt3Fz+PmEZQWDNjne1hDYlObIq2CYNAube69WAJBoxtdw+oI +0qMG4w/NaHilTBy17CT4uby8hF9jCcXDRH/1U4IZWy1WOniZg1DMnFbp7Hrc +yWbYyRxedBtoFwwRnKm/QGmsdH3zYP8tnVtl8x6EzzOHscKqFtEIwXJ1V4D1 +LTPwE7rvTX1OcLutdCRvkxm8PhXA+G6C4KC9oEZ+mAkV5t6vDf4l+CRAfm3H +Tiasl7uOxeisYi5jpCUzQSW16BO81P3nxvEnu0OYEOj/qKn2FcGXi5jl+lZM +ODsVk3V3imBj5Zac+p8o2JASnvHhNMH41oKYlRoKZgfWphTq3Dd5xrilnIKQ +uwJx1BuCNTacb0dyKGBUar2G3hK86qyYPh1OwQ/0gNunMwQNZ6WJCf4UhB69 +53heZ9rvinQFUlC1u5a3bVa392Wo26gdBWET6vfv61x04Of+Tg4F+vHK9zzm +CC79+6xJyyIKzj3OnV+ic+X2xRdrDSgID9kzO6dzdqNde+2kKfwHlWrgAw== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6.3, 8.5}, {0., 0.07216836120711195}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.300000000000014, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{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.3, 8.5}, {0., 0.07216836120711195}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.300000000000014, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0HlY03UcB/BxeBCU/AaE237bvgjCY4yzRITk88EmoJEcEjBAZ+S44gh0 +oHiAzovJ0dRA3IMQTHGFTjEUSM40AfMgMDXBwAg51GCkCAq0/vg87+f1vP96 +f6yiU4Il+gwGY43u/s+B6u5fZ6+w0KTV2alsRzW0Lyzq4l1loVo2ovQRVoOL +S9wSvSEW3rHqkSbgBWB/KShXWrLRRpXccTi/CuZue/YuFLJREFXS7ABq2CL0 +Wuu4jY17ZqcKI43OgNad9Tytgo09ZqdeJ39cAbtiwV9+h411FqvWeQ6XwaHS +8B7RHBuN9yuZN0UlkE812L215+DiE+mcTnUxNOhPf98QxsHW0juZC9ILIWlm +mXjFIQ7aDHX0mMYeA5br6duySxycWK1Z6zj4Dfh8bZZy+C8OzllXO1u/mwdK +hwjfKiaNV5o2G+UxcuCZzbM/yr1o5Jamj0TUHIDGpamlQck0Fik8xT8W74Pc +zd78rpM0hoQLrqdbZMMjleFdk5s0Hu03NCtM2wnBcWW1kmkaNzlX3vJNz4Dr +kkNRClsuOhwLbKqBbVCX+IWLNJSLR+q7L+V4pYL63MEWexkXJwaHBkTqJGhN +2p+jp+Gi0niyaZ0iHiJXSPcVPOYi3SCf5DRJYMzjotvYOzxs28h9kK2Jhvl+ +fRwjTx5GqJb3e2jEIOx+6u6dwMOOVQKrvc8jIOukB+VfyEP36HFDUxIGHgnZ +7EW/8NAK18crTmwA7VbqT5WWhweaD3aRtkD47W3mIxGPj4uvtU1qO/3BteD+ +whuf8dFekNtGvvKDgsis8fmZfNxRL2Gph4WQ6MI2nlPz8WHEi084Vd7g483o +a/+dj3HZb4bzXLzAJk78SqRH8AE/c0lD70qQfORuYc8iKOf0iYJ7l4Oq5LJC +4kRQdnFN23GNK6iOnLfd5Usw1ehgbJHMCdzrjoYtERMMWepUefnMB9Ahowdd +pAT/8ZwMFXTYAt3Fz+PmEZQWDNjne1hDYlObIq2CYNAube69WAJBoxtdw+oI +0qMG4w/NaHilTBy17CT4uby8hF9jCcXDRH/1U4IZWy1WOniZg1DMnFbp7Hrc +yWbYyRxedBtoFwwRnKm/QGmsdH3zYP8tnVtl8x6EzzOHscKqFtEIwXJ1V4D1 +LTPwE7rvTX1OcLutdCRvkxm8PhXA+G6C4KC9oEZ+mAkV5t6vDf4l+CRAfm3H +Tiasl7uOxeisYi5jpCUzQSW16BO81P3nxvEnu0OYEOj/qKn2FcGXi5jl+lZM +ODsVk3V3imBj5Zac+p8o2JASnvHhNMH41oKYlRoKZgfWphTq3Dd5xrilnIKQ +uwJx1BuCNTacb0dyKGBUar2G3hK86qyYPh1OwQ/0gNunMwQNZ6WJCf4UhB69 +53heZ9rvinQFUlC1u5a3bVa392Wo26gdBWET6vfv61x04Of+Tg4F+vHK9zzm +CC79+6xJyyIKzj3OnV+ic+X2xRdrDSgID9kzO6dzdqNde+2kKfwHlWrgAw== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6.3, 8.5}, {0., 0.07216836120711195}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.300000000000014, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> 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.300000000000014, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{6.3, 8.5}, {0., 0.07216836120711195}}, + 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.992177842329321*^9, + 3.9921778684671593`*^9}}, + CellLabel-> + "Out[135]=",ExpressionUUID->"1bc59528-256a-944e-b9bf-b3449d66d373"] +}, 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.3", ",", "8.5", ",", "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.3", ",", "8.5", ",", "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.9921778841744785`*^9, 3.99217788753166*^9}}, + CellLabel-> + "In[136]:=",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.016454066268862245`\\\", \\\" \\\", 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.040519195289225186`\\\", \\\" \\\", 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.016454066268862245`\\\", \\\" \\\", RowBox[{\\\"Power\\\ +\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", \\\"R2\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.040519195289225186`\\\", \\\" \\\", 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[{\\\"54669.58299993504`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ +RowBox[{\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.016454066268862245`\\\", \\\" \\\", 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.040519195289225186`\\\", \\\" \\\", 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.016454066268862245`\\\", \\\" \\\", RowBox[{\\\"Power\\\ +\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", \\\"R2\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.040519195289225186`\\\", \\\" \\\", 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[{\\\"3.1428108786321003`*^6\\\", \ +\\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \ +\\\"2\\\"]]}], \\\")\\\"}]}]}], \\\",\\\", \ +RowBox[{RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"21\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", RowBox[{\\\"2.`\\\", \\\" \ +\\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", FractionBox[RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]]}], \\\"-\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\")\\\"}]}]}]}], \\\"}\\\"}]\\) is \ +not a list of numbers with dimensions \\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \ +\\\"}\\\"}]\\) at \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"yy\\\", \\\",\\\", \ +\\\"bb0\\\"}], \\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"2.`\\\ +\", \\\",\\\", \\\"1.`\\\"}], \\\"}\\\"}]\\).\"", 2, 136, 24, + 29225361075616413851, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9919643917585564`*^9, 3.991965364224392*^9, + 3.992177890024563*^9}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"24e74e05-1b54-8243-9778-90cab512ae81"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "\[Rule]", "1.8879328273552702`"}], ",", + RowBox[{"bb0", "\[Rule]", "0.6346741273067865`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991964391814556*^9, 3.9919653643031864`*^9, + 3.9921778901137047`*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"7be73d9c-fd9f-ba47-978b-81882c33696c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "1.8880"}]], "Input", + CellChangeTimes->{{3.9919643977866764`*^9, 3.991964402237297*^9}, { + 3.991965369034729*^9, 3.9919653692465267`*^9}, {3.9921778976385593`*^9, + 3.9921779016394444`*^9}}, + CellLabel-> + "In[137]:=",ExpressionUUID->"4524f895-5d5e-a74f-a717-0cd15a841249"], + +Cell[BoxData["1.888`"], "Output", + CellChangeTimes->{3.9919644079976406`*^9, 3.9919653747711143`*^9, + 3.9921779062351475`*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"97ffa157-0fe8-d144-9273-a25f3ec28d04"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"bb0", "=", "0.6347"}]], "Input", + CellChangeTimes->{{3.9919644056263065`*^9, 3.991964406063389*^9}, { + 3.9919653725905457`*^9, 3.991965372909004*^9}, {3.992177910354536*^9, + 3.992177917331482*^9}}, + CellLabel-> + "In[138]:=",ExpressionUUID->"17f8190f-852b-fa46-bdc8-1bb243b31de3"], + +Cell[BoxData["0.6347`"], "Output", + CellChangeTimes->{3.9919644088621464`*^9, 3.991965373888151*^9, + 3.992177918780449*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"d0799b1e-e4a6-1e4d-a1c3-abd1eaac63ef"] +}, 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", ",", "5", ",", "13"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917169296319904`*^9, {3.9919653858356647`*^9, 3.991965385973503*^9}, { + 3.9921779363674335`*^9, 3.9921779517437153`*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"86a6c2bf-ff39-cc4d-a1c0-fb8141afbdb9"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJxFmnc4F17Yxo2sQrKyffcQGRXl1/ecJzuVpEIiskdRNkUqs8yoNJSdNJBs +kRUNI5VdVnYJRUJ6vf+87z/nXM/1/Hufz33f13WIth4mDhxsbGx31o7/vV0G +fq1nYxMFm+cf5VkCr/HTRaGf2+Ik4Pm6ppVysXpcYDGmJ/6fJCiHh7oW3SvD +VXtbtd16JYGyUvXwblI+3rOqUK8XJQVKf2JzApwzcQtO/p60RRoy3/jS9Z/e +wtuJMYUFb6SBvHchYHVrPBZqml854icDIi+9bnqdu4wXlj1+uErIwvyXdHMZ +qj82mbdy4GmUhVe3LS1VU0/hiNgPfp6ecpDBaDUOFjmJXz232GYsLA/FvJMf +uPmP4nOpRz2fV8sD1co7aU+PAb7Lr/qkQYUA8hUHbZQtEC7ZMmvrHUkA76W4 +vV/qVHGV1LzjlS8EsOr4mzqzRMGGbReru7cSYTtKCVr3QBInODcd+xZGhGOu +Yu5uIoLYqvGmwc5OItxNGjxwQYsDiy3khk3RSPA3yzBbx3YBRfL4r7MNIkGU +fkb/hkOTKKS/uXNTCwmWtldcec49gLbf/vwtlEoGelplQmlpO/pIUTW2PkcG +5bc1khZir9AfHwFer7dk2HumaofM33LU/TCD3ZBEgcxblvEaGXkIZdYetPCi +QHlfxK009QwU50799r6WAn9vdWp8jb+J7khrveGXpMIBXuWhhrKrSDFubCXE +hQp/KpqT9EZDkP+I3tnSl1Sw+ZguOVzrhfZyKGsyhWmw7OM6EDrrhHh+WBxi +t6XBi+qmqaV9ViikCnLvltLgQdF0prnqIRR8JM/sLB8dlHwUwyvHdZBGc6ce +30k6zJttCLa234n6xHRCeUvowLYny+d0pSLipu4S38PDgJnYuVXBK0Q0JT4+ +sfsEA75Hsf9MjxJFR1vlhT3zGGDtQR/bPsWLHpvdiRT8xwCFMfLy2chVVlVt +G7gfZcJLg2/pYbOzrKO/Yg/wZDPBfE5MybJnhPUuLmzp3z8m/Lnev/2IfDcr +n7kiQx2RgA376jmVRF/inSbHG+CqJFSf2NLHzHqO2Sh/OY+pScFusVf9aoK5 +mPf+YNfpHinYSAkPuLk9FV/Mv2ZMPicNp5RblllOSTjde485J1EGaiKIrmeJ +UZhzSG2hv1EGBKhXRzTyg3HmoqNCmYcsnNC8LaN/yxN/q0merpSRg19Su18t +yDribOLNoydr5eCN/d4e4nsLnKrQZcLhIg9brjyu+qVojE9PK/08yEuAYuXX +7l6ntLGCzCbeFEsCWEgrBB3fpYE1yT/tLxQS4IhrhinTaAsO9flP5Bk3EQZV +xUqrnQjYXSaL386CCFeexjSaZorg35tVDl17SoSFzlG1IA8eXHaCOLbpHxF2 +3eskRN5cQS3BmxpoJiQwNYtqu8GcRaE/SdNlWSSoMyT6nY/6inoqj9q+/UOC +XnO3qS0XulCodYScpzEZyvpdgvxr3iHHA/KKLhlkuOP7edFQuwZNxHWFflkg +Q9rkr+rEh88RP72Q0W5IgYEVx5SCBznIke+XrPgdCvDsUTn8YvM9JNaw7fiP +7xRQOKmaKStyDdl/ShrW20OFMpssZ4esMGSiublE5joVyjmiH4l0BaCBn+Wf +zkxQYXmhs1Gqzh3lLNbrimnSYOhjcZNpuS2q72j+axRDg4Z4l6gzZ03RBb5F +Np5BGkwu+JXtazNEPfHaB1k76GD49Z0HYQajK7MxI7zRdNi7WFR3qVQNnU1B +zZT+Nf3uCnNCXjS0mCLEVq3GAKVEeoZWpxQi/OQM7gxnQMI2dj3l1Y0oJNHq +AHQyQN28pZF4kRPtECi2RwpMyG6ODBB1/s260qvcWB7EBOL7bgMR9m8sIa31 +mZwfmCBlyehwSRhgKSdwRyqWS8DcXWlst1yDvU2J4VvsJMFRWkBVnaME96uP +koe4peC+cuJ5cecnONMo3KinQAoqzDj3fFVJxwx/MXnLw9LQmVq79N/IDTxl +OBbWMy8N4Mf1+kl4NF5/NCng9n0ZCDiSUd5qeBEfCJziF9aRBeNDwjvSVH3w +/ePLzKFZWVghPfPmVXDB4uZFoy635UDw154dn7VP4EIPSe2HLHkQEVRUfuNl +gnOrzBUVxuVhg7PWudZFXWwnmmZRoEeA9Dj78Q0xmtifPjf8J4UAF+aLS+ap +yphoIMG6N0eAon58xzeGhC19RRzv6RBhYokpEOIpjnXg/FF8mwjB48nbb0Sv +xxsS+zZTp4igNWhVy2SwYU/NE9So3SQYu12UlX3rJwoPOvAnJoEE24L2XAnG +Y0ipZVPK9DAJNO5sPX+Kqw/1nX8WtqxJhpeSRdJSzm1IdhcD2ceRwc15c6J9 +eB2a5fB6xRgkgzUtW94qpQR5Om8Ri1WnwOJMZ9v7749Qu2mv+s4ICpwRKN73 +jC0Ntd96nGHTRYGrbzmjfTKSUIj/VAdTiQrGDw8ygy9Eomr7f91GF6jgE79x +nUxsEHr8LSRD9BMV/uMRzqd4nEX+f/9geRoNyLyJkUuKDmjUNome40eDVNnU +kWOZxxCb/d1P79/RIMD0zFMjKyP02DPgsJk8HeZauHh6dbWQTb+aeJQvHRQT +uV6dP7EDZR+ryRF/S4e/p8WKkCMTXRikbGCTZQCv1lXH3XlyiJtrYdsVTwbU +xRmKShKEkWtBlfKxOgb4cJxlb9zAjc48y/HNFmWCcWih7ouKJRblIFtokgsT +Xo3ziicV/mCp3XnnH1bJBGeBkUQyzzCLbMDi8rCTgBxLW9cxz1dYpXa2QFZI +EsgLS07qpZV4+cD1daaFkhC+LH7T4NIzTNgk+rXVSgq8fhFKT296gN1+7LZj +55SGQLqEeHTvXdwzvvHSZLo0OO53mmtQvIaP3bujoLhfBm5JNShcIobjFff3 +ntQZGRB6/tnWatc5vOw7pG9zRxaCcq7l6R86gzUZ6oU39eXgvZCCeYCHHVaf +8q83n5SDj8tZpqjWDMeO3LA9niQPu+8fmNI9vh+HBim3XZEhgMsdXeXTW/bg +GfLFokhPAvzMCvzAZ7wdr8j9Gln3mgAdh043e/yg47H0ExMNUkTY7P1PVZhT +FofUqhfSzxDhycj56LfKm3Duj+H9I7VEONHNvb4+bx12UnAsXhUmQXi0j+DJ +/X/Qlrp6+3on0tp7+C6wVXAaXXJZHBopI8Fj84rvlpQhFPHoFj1nIxk4uViD +Fq6fkKKWZcm4AxlCzYjGlG2vUf5JcSn3EjLYVfK/jgqvQoMySDuJnwLX9ybm +aok+Q1kjmrvFrSkg0SZJb67LQksV/Fy/nlLAgmK/7nDabWQ+Uy4czEkFSdsL +Obdy4pCBGpqxO0qF16fm8/YSLqORjcpJk7lUeP9z4vfhW75IdPkXT/NfKnzd +6y1SRHZDXT/j9m0wokFoN2s7Kd4GpRvyfJxPp8HVj6EJeZmH0erTw4q752kw +f2OR6/oTfcSbJ7CPvI8OX7ry7mlP/IcKOSeeR6bRYdsRq5xYRxW0e7BiVu0n +HZAhz5nxTjLytFj5FWTAgPEq5v4rgZuR5uCmJsodBqzeLrLetpsf3fBZcaVP +reUD+69cF/awoyWnOpMOzAT+B5o2TsG/WDNO1usHE5jwdsfHqfnKcdb0uH7r +xQkmWGwtD1Lt6WNN119l5WdKwJSRTc4Eex2+Zh46SjgoCQEXx18pG5Rio5c9 +hbRZSQjmnvMT+y8Pe2abR8WnSIGjxcumYZ0MvNxrGu6PpWH2+i3iAE7GQurl +MnoD0hCazbd7p10sjhHUrfC7KgPj9eefzVpcwqQKpWC0VRYSN28fgvu+2D/n +caN3nyysy7ZR5uh0xUZeOsru4XJwzMvcVkfEBu8W1qxYocvD8jZVX6Giw/ia +stnBHx/k4crZ9TWsE/o4RGjicsV/BOi+9uKRi91unPzwLFkjkQDbUn1Oa6ar +4DMF3CZJ4wSw1yXWPC4n48MZb4QrdxGhWnXfS8l/m7HrkfROsXgi/A060/5z +Dz/erqSZv3WQCAJbfNqlldixTnLo0XJVEmSdExCmzv1CEbVDq34RJJh4ebBG +unIcdXR4aLJ1k0DHdcdGicXPKHKDwS5QIUPsltldmeHv0eJTxcaTYWRYXaRo +vaurRz67YexABxnsoz5nfEBliBbltOGUIgVs4v9Ulpc9QZF/jbT3BlFARUNz +H5dIOlJZN6F/q5kC0zwWh2sEbiDBNzeMpclUWKdW19Gz8QpaCPCacvKmQvjW +XSOydy4g4Qm7K6NvqDAQGPNffpwnGrggyqLI0EDhU8pF61BHtJDjV/nxFA1a +Vbqu33A+jiBhGpfU0mDpUeUZNoYxum6XdNRelA5p4mLe01e10X7TsK2v3eiw +NbC2PP2jOqopuXRjYw0dSrn3+zDXbUFanHnxBGEGxKPGJncnAloU+BFr58yA +gpvOVbv2iSAb+JHqUMYAwaYljd1neJAgV/qFHr41Xg70Jc4krLBmI51tL1oz +oSPtyw2LzzOs+kYlO70CJqSHp59h2X9lffE4HBt9QAIe3ZvYdrK0Ec/M+zql +LUmAeJF4yrJ9FZYyXrTfd18SlMrHiQ3RhTj+Nq+3qIEUMMXfKL4KzcGa+hvv +lUxLwUzQe+Gn1+/hp/sPTXDHSUOTp1kch1YiDo5yr7mpLgMOtW33Y69H4BDG +peccfTLQphEp9HLsPG4roZRFh8nC8x95Bb1uZ7GIz5ixgpocNGX3vamqsMfu +3LwCVh1y8Oy884MfrGN4c2RJz9NgebgULp/Vs9cILxY9PXlamABpXyeo4tpa +WIDw+ss1JwKwP2S81indgaXTvKhaVQQ4m5dsnBHPxOr8B1YrhIhQGJEebNUj +h/1+fLfWdSDC+0GOtmRrYdzGub61opQIiz8L/B+t48bx9XVGvHwkYHz51Cs8 +soRWCFNJ85Zr/q6/KVNv4wy6/DRmvDWPBJ8PYBH3A8NI5fnv+rJ1ZLDpSlsM +HetAXW2zrkrHydAY/6Rz39QbdLVTKsPtCRn0Nnw45/TfS+RgusG+jJ0Cd+rn +gocOFyJzbj+1X0coQOE/VLBT4QHKtw3ZxJVFAYcSeYtVo7uo2OJ3cfEiBYxH +rjpvnYxHHZcnXI7uowI05UV+Ng9FMtSMLM5UKizOnnR4peCPAn93Tt/7SYWx +5nVLQ19PIfDNNRDSocHJQ32l5XdPosL4SWdSMg0ePzklSvx3BKG+rBvEKRqI +df1b8VXbi2bvMw6oAB0kI26Imfay0L3A/5qbbtBB8K5pZ3GYKjLFQf1bJujQ +reAVbiBNRTvOhwfeYzEgWvLo84tSkkhpcj15NZ4BouPbjBUFBdHVdUp92wYZ +wMGT3xxizoGSyyuPr9/BhD3ppNXe0XnWi7TG8eYIJjzOl6zcaDLJuiD2sEzr +CxM0LjQ9vDL1hfXKWvSH+wYZ2OucI5H+6gr23/XwzsgxWZAfLNeu7/HCrwQN +ow/yyAEtImFj7E0n/GU37Z7DUznYJBt7WSfIEis0L745elge2KsGzLv0DuHa +AxZ8Divy8Cmc62Vajg7Wkzim+uAQAV6MtPtyfNqJj2V5ZlbmECC4y7hniqmE +278wGTkrBDg+K7+k6EnEDnsty0IOEiG1V/enzz9RLKdo+sE5kwh71I1IabO8 +eGgx+IL0PBHmOk4sWDusotQ+jXkzfRKYnG+P0zWbQ2E7S39m3CGBe1bolaru +ERTaUPivb5oEX53yrtO29SCVaZn2Yl0yiJlxSxeXtCCtOnKR4y0yvInOMfhx +vBadfp2VxfmNDKod6y36xItRtf4PuXygwFmpIetCVi6SyXdSoCdQYH0286HO +3/vIW/nMP/owBXirOaecjRPRHA2sdmpQ4VqcoBmdJwJFHrzatOMKFU4Png9X +yDiH9GZSKrX6qXBS2ipMzuYMEjrXryWlQgPhNobu+kk79Emm4Nq5SzSg8Y91 +av01Qy/VDd2+ddCAX1ft1+PI/aju4olDhgp04Bjok+AR24N8nAf+GlykwxuX +JgNDtu0oevlfuewnOlTYXoyQHKSjyurbYf10BlQoYqm3z2SQyMpKV/55BnT7 +tK6K8WxCPqTYqv3Na/6svWUguHIdarfOO+0pzwQHbTvHes4/LDOx5KwHXkwY +PxcwnvP2OyvN3S22vpEJcZ0dOrY1gyyrytGvL38x4QmnSx761sNqOWEkMXdL +AlZ3fM8jXKnD6d1FN6R1JeFW77Xeo7OlmJvr07LBqCQ8zg0/bro5H1u012S7 +JUrBB41qlbyPGfhrzO+y8B3SsPqAP/PKr2Sc/og8fu6TNAy3PUgrtozDRm6y +lo4XZaBzlK1i88QlHN3bUnyELAu7Xno/EbT2wyNGYeJV72WhNA3lLJS44Um2 +6MNnzsuB7qjZQ98EG3zRztCPJisPb0UWeKqtjmBu546B96/lwa3mSbeppAGO +FYxJBnUCFOQ8+HbXgoVzXFXrPsUQYPaklvdjFVW8eTTIMm6YAInfErZbmFNw +yy7ahOF2Ivwn6lEW0SqBg08USbBfJUJo4d1dQnQBbLDkfH5bHxFaCQyNvCJ2 +rNh487uJIglaLmj70h/MI16HJ+ynL5HgvHLr1rOXJ9CWXjm+qA9rPPS3sNFb +/YK+tAsnDimQ4UyNgBlDth2NTjy9ahNChqrNMqeXXBqQRne230AbGSLtdmci +qXIUciuM+zidAtZ7Y+dycp+i4bbI14f8KTAx/HfPrfR0ZLOL5/aOJgpkRoUZ +y767gT56nhIQlaPCke81wmGDV1BCqJL3L3cqNHZ814g3C0G6Tp+CWhuoMLXH +cGKQ5oVEa9IqaJvX+viK9B3KTie0um+C282JBmkX54y1TC3RwIPN8w9f0EDd +WuPe3VxjtL4vrWNScI1nh3d6OWjooNqEp5oujnSoHRH9pXZLA7U42gnwV9Kh +nddDfLRvC6KIen/I52dA+LtjacYLBOR5zW23sR0DSr7N9MyOiaCeiIhut+cM +qNfgHn2vwIusnsqFeq9jgim9fnhd1F9WV9bd934WTJjY1rBtv8Msi//Eia7s +R0xYfKCxR0hmhFVx+YvJHS0J0Knu5RY/2YTb4nZpDf+QgGXJpENN2tWY+Z4p +pnddErydTC6rbH6ODfo5KtVZUuC7fWnfA72HmOjlX3HtqxQEwvljSufv4+TV +WRmxMGnoHox6eq09EQv964xu3iIDwhIx2N08EmuFWRydfS8DqvWJ+9OagrBm +V8NseqAsbCj9oE9m88Qh0i/ve9HlwLRxvyq3qwNen3RQ1fqdHOzYnLDl0joL +bNndeKPLSx5obyoa4g4cxGom7rknBAigcvhG7/lPWlhG7vTPzbYE8FVT2njb +Rx0r2G5rGChd20vHkarcFPBnqOct2bDGy6gf28Tfy+O5sL3qH62JIC75GGv/ +E8ZfBWSFHhQS4XTXHZE9Jdw4M2FOSmAdCVpf+Rctly+jkYOrirFmJJg7ba+3 ++fYMWnfIfKo+lwQehV4POSaGUVhpdqLWPxIos+vTvuV1oq3JlfWtR8mwbcuu +5Ivtb5G/cIqTaw4ZdOY1gg69eInoP8/+2rdCBq99ZOXB5UL0TPy60vBBCqSi +rEMrIw/QBvXymwKpFBAcelQ8oJyCRuPE+A7/pIBjmOqM8vkElKJYTTPSo0Jh +1QGhuJVQVKJstTX+NhWM+h9Hfvjrj5747B2KmF7Lm35lB6HtNPIu0WgUxjTw +/Tzta8a0RZXbLAtLr9Fg+6K967aio+jLXMs+0VEaaMt/+Mdc3YscJdRbijXp +oHvPJRINIiRabN/tnECHn+9v2STKqCH7aStTxlc65PInat2tpyLxmH0vtu5k +AOyIHGPOS6Js94i2yasMkKs/a2DEsRFx728Q1exjgFmq/erVSQ40arfLJlOZ +CbLu4dt1MxdYmVXLZvWXmLAhxMJOkzbFanrUvTWjiwnKeYHOZPYBlvmnoPJM +NhnQbs3vV8u4ioeOGX5cNpIF3cBZ0bOXvbFaEak3eUUWArv7C65bOePAN6dr +nTLl4FxPxGeGlRV2l+OLuGAgD2zp49d7ew5h9fDu2/pz8lBVqiBMNdLFR8T/ +6iruJ0Ces2yE5ZNd2NlRTed4BgG8und0NZC34kCRNLWM3wToKX5xP+svEQ/0 +l8RtNCTCD6GXq8NFYlhV3UX0yP01/VQsPxiv4MMLDU/2EWbWZr7NmZJm/1DU +hn0xM3tI4Na6lPd6fg5x915aSL5BgjxrJ4vuqFHU9dq2xWGCBJp88ybWEr0o +vGhsyzEgA1+Y/6PI6lakspoV4JBEhoWIXNKX6Vqk7MivfmOUDOu4LsX3dBQj +CXMBqfv/UeDMWatX9sKPkN/ltHzlaApcoeoWFQSlogz72EP1nynQ7Hbwrfzv +RFTWKialqkaFV08VUlxeRiCKhe6h2lAqrLhd9A9LOo8C3Dfmb+mhwpk3rhaX +Rs4gncpTNTJbaFAVulrDE2WPvlSTPm8KooHXt3Z/g2ZzZHPAi9D/ngYnUnvc +j3kcQDuX3NrbKHTg9/fq6M/dgyYz+NZPnKODQNnW3cGPt6NbuQOqUm10mH7S +mP8olYHutVk3eZAYEJKiLF/3WBZFhwSEp/gxwN52otkhYROacaH9NmliQO0r +1kjCSS5E5FP05Jdign+UtqNk3x8WUnsnes+dCe2dpwI7KqZZk+vuclJrmZD0 +zuPc2ZNDrGyTzRbEH0yIXpWiz33pZYnSij1slpiwMJaZ+469h1X1KI8rMUkC +4m952IW01mGF2y3TEiAJ6UYcvEH6ZdiW3i7fMyAJzr3hDZFH87GRs++OY7FS +kCOuPyUsl4m7Rxs/xKhIw8PrG8LrjW9hN8euZvE2aaC6nSVa9cXhvFtRj63O +y0Dz+HeuF6qXcY2b/Id+WVkYu+ptZ1jjh2XSZ1/YvpMF77n0JPqWU7i0Mc/h +rJ8cSFgLsq2+t8GUaJOjFZvloS5Arl/x+REM624w6+rlQSKOobgxwABfF+gn +Xd5GgOSqkndHu1lYZd8mEepVArhFZY7lBqhi15CyQf5BApwfnBjiekjB/FxH +jlxTJUJYy75gG01JHDmMynwj1/zbsczS5K4AbrcJGSrqJsIBtpnkmGV2nHoi +bdd9JgnEqmV9fnAuIINi4ctjF0jAXi9Y4zkxgUytfM80t5GAv8XX4nloP4pS +X6zexiDD7H53nf2u7ciKZ+Z7fxAZBD66XWKvbkDJ9J5qZgsZHgk0ylRcKUeP +00RD2ykUEKp3tVuk5qH48iz+Dh8KEPOVnvF/S0eLh8XrLjdQYGqhfzlP6Sba +qd/pFi9Nhd9X+G1b919FX6KulGqeWvNnfyFNk3sh6AQt9rd2HRW+1qRQ9by9 +0NOT40sPRGkQSjmXJJfkhC7JkhSL7dfyZXxYoUSbJVLZ9vgguYIGwQdVb3p/ +N0Y6yYzNW/npEJoj+O5QnA46r1wHZXZ0CBZ+vGXurwY6WvXB4EoZHYKikoSa +9ymi63c7fi3yMWCDRlR6Aiaipx+Zia9sGDDR2dPE2CmKkh99mJ8uYADfn/xB +vSu8aB2nVXgNOxOMDvwefMSzytr3XJ3vp9lafrzs3Po5d5al8nBBuDOHCaPM +nYF2gSOsXAFKEYklAdvoN48uFDfhl323lUMnJeDVLXTXtKga5ydondaOl4Qn +vklK5VbPcSY720CjhhQILyY7FD18iEX5lAxD+qWgzj2c0jt7H0eb1arLhEgD +227zrXYySbi7LNrTmSYDjnO/zzIqI3F64aus8Xcy4PK+tvvaf8HYw1lccKuP +LASbJW3bvN8TF7sr6kuQ5OCY8niAXp0D7rLw0rZplAPX4+vPC7ha4FX2Nu/T +7vJwcKtkbEb7QWxMaDHqXE+APQO0aTuCNibLVgdZWBOguefHx4cd6viZloiY +SjEB1p/u6uLqU8Aqvf9itvOt9WlL7qAcOgGrHPJLk7YiQtLU0IrMIRE8fS07 +X6aACDJ7HUIeCPPgrYt8F+PYScDS/qbhylhBFmM8AT1HSOAXQspHgzNIJ/3F +KZxDgocXjgam7vyK8jVXl8JXSCB/qUjniXgX6l5OmyUcJsPW0tI3bHvfoR/K +X15PZJGBZks3fPPvJYrck7X7+h8ynNz+8hubyXPUL0d5ZHGAAvbPYprE9HJQ +qXxnT0IKBWxbLxp/S09BwbkUtbQZChBq3LK4GxMQG7tC2BvtNT9OFxU9bByG +1u0o9+y4SYWnAnzH+FwD0KvtHJYrU1T4nsdNLjdwR4LmwdxJu2lg/LYow+Cs +LQKu612c8TQ4+OjL4ShhU7Q12C47ZpgGgXGXW10cDVHqx0rBJQ06HGgbPXvV +CaPWwwH9pbF0kB54tm7URQ1N6rYkZA/S4XRB+ShI01CE2NMvvjsYIBlwebuO +gxQazteln4xigCtnJqf2hY2ozmOT6otuBvDk7TyivYMTxZb62c4qMsGgozvX +kus3a3Pz9TgcwgTa4ZLy5mtTrG8LZ10+fGICYZdDd7bBAIsUr5aKl6XBLmO8 +YaNoNJaYvD0TvlcWpI93zH3q9sbOvHGXWL9lQad+zmu11hkbJCR8dL4vB1ES +xs1ZrVZYSH+Tg6i2PFQQ944/o5ngM6Rbwzu/y4O4x+n+9nRdbCl2sM19LwG+ +Rhpl68po4hk94aTcVAI8/TX6qCVjK2550ldCmCdAunXKDJsuCcs9Glky1SfC +KwGlP84i4lizYu7567tEmK59c86DvB6HKDYUpH8nQt0kc7C2/R9aTT/SvRuv +6eNbsMZ6/Z9IT3HcTySJBDEiR0Z+D48ijv3lO3JHSfDbXIM4FtOLVCWbzXNZ +ZJg+oHbImtyGsqXHer8mkIGVp03m16xD8c9xcP8wGaJvxrfo7ypBujZ3b4rv +WuObU7g/XHiEKKerfhZGUcDu0r3JgqpUpHkhJVC4lwLzd3a+T9yfhGQyQ/yf +KFPh7RGOYnX5SORpnX6d9xIV5FiOvTpCQeiaUhMztZMKz5xuXHvNPIu+WBay +3WPQoLRaaL1Njz2yTTjOYRVIg1slp2emNI6h/C6ec+atNOie/2LiNHIAeRbP +CYuS6ODO1WVe/HsPytojJ7QrgA5f5TykatbtQASOQ6eTm+mw/siY7DMOJhI8 +VjtRIr+mFxtl3ilFOfS6VuOziA8D/jsQ0aLStQk9ifEU6WhgwEtTei5XMRdq +snL1PraZCYpBrol/DZdYBeC4X/IUEy5vXrlUrf6DJWi8HR2tZsLDovV8iYVD +rDcpeUmHvjHB5+/n6+eO97F2njXKjf/NhL++nzZw+PawZnpkd6j8ZUKY2amM +63HdLAPO6f8uc/z//w11E5vzwwkSkLzMpnZprg67L/XcvsmSBGG7+q8LnmU4 +vrStgPRFEuxGhI4veOdjg8K2ldarUmDvxCiiamfiIyL5Npu2SoMf/9ZAywu3 +cFvdM7Bvlgb/tMrnvoLxeCC/+kh3gAz8Z8E/7mN6GfcV6p+kSstCzxNrFbaf +frjk7YNNRa9lIelt1egZh1OY8KhmetZbDhg7TVruzdlgn1TTei4xeWi9c+33 +VP8RfKJ9vvm/Wnk49SCmxv+hAZYQ4HWmqBEgwCX5R5Akwt7/sVe8iyLAL53F +hyn3VHHSAbPMt/0EmNjzedOH9xT8aHKST11lzc+HXe/6n5HE/NmXo1QjiKDG +f+JaRqcAlhCNFvPrIsLwdFHDsBwHtlDIttZlkOBTwOzfMbUFNH6ioS4zmAQj +QpV/NshOIjc5UqZH6xpPz4tpNzT1oxPjrqZ9tP/loQnvsYR2JHFD6P7982QY +e5BqyDnZgJpaftq1vCNDQXVi4tO6clRL7dOKJVNg5VdS+DH7POSkvH1rsjcF +htvF8tU2ZSCdwZROhXoKyO5o9RezvolcC/jvGElRIbqpo0D08lUUxl/W89mV +CkEaq6+ptSFoKsx1+2oNFVzrGJqn73ihlYKrt51FaLB426cjo9YJ6YRXVR23 +o8FortDrRgEr1OW/sNJfRoPZ+YddOhsPoZMLbiWt6+lwvfXJfEeFDrIIbtY+ +aUsHh2Tf+3MqO5HE5FXHvaV02OSemDNyWRG1DERwpfAyYNL3/JkceyJ6Nx9Z +ddGaATpX/akvbESR74s/l/PzGeC99MAxtpwXmSud53FmY4I0Z2TgG/1VVmgF +Z1a+KRMqEjc8EWyZZdW2aKl4PGDC1P7APIXcEVZau56jo6YE/L5W+NNgqAnv +vLwv++OYBPgFX/B4OF2Nf80aSdbGSMKr5Czpoxef4/Zrq2eFdkjBusi8iYbe +h1jwSMSm331SUOjb+OeBeCrmDs2tux8kDQ/60oXz9iRhtNlppIgsA1kKK0W3 +pyNx+5uVA/ZvZEDATyX6qU8wvpKP7np5ygIxM9w8wtMTH0oeuu0qLwd6+IvW +mRkHjFHYu4H6NR5XblJ0TLHAB8U/Dpe4yQPhqm3nv/XG+ATPamoiHwGGl8zN +9fS0cbbMeO2yFQGUTdP+NvNo4AU1zhedzwlwk102vVd0C7bISTH+yUOEgzX7 +05P0CbhVXdCs+jgRguUrLsUEimDPo1MhnXlEiHVwFfsKPNj7kdhzYzYSKC0K +dNRaryDRQv77IYdJoP002lyHaxZ9NTzzZCWbBE0NRvajNl9Rw/LDrczltdmX +7PHcsAs9fSIa+foQGRzvFAr+DX2HcqtWAx9mksFQd6e9C7EGlY5XDexaJEP2 +jZPxd4Keo4X0KRfx/Wv8jXzBXeibg+KSHFYO313rT7TSIunPKeiNxmM9gx8U +eLsp6NXEtwSk5mb9PFKLCvZpVsRngWHoUcl4UsANKlyxEvD+kBqADid9SS6e +pIJyCQ/xSZg7Op5DzD7yHw1emm14/+i6LeJwV3V7GEuDDX5/jr3ZY4o66p4c +Nhxa6988XJK0O4bohRpb3h11OvQ7XzWOfoTR4/TLQzYxdFhdMXq9PkENPT0b +nucwQAfHBlAX1aehl8esf0htZ8A+rlcO3PekEEd7polMJAP2C/YWBVRtROkX +NaqDuxjQ96f3pMBxTjQ0dGP45hYmOGlpSYSq/2YZf7Td8jeYCa89+FrLXk+x +gmWqwt0+MsE2MV1g4NQAK/w7v0jMojQcrzLaRTsQjdXU6oLf6cmCapPK6Vgu +H7xOTbcj7pcsHKwtGDZacMZ53hlWE3flwHqz0+sovhPY9rjYxxMgD31zSpri +B0xwzMxiRMGkPFQTxtkfNOviAVF/MSEDAnQ46maeOqKJt2tw7Da5T4DPP9v6 +Ur5uxYuBgYH9PwnAYxC5Q8KFhF/En89f0iXC5fDhjzVa4rg6SCMs9A4RROr+ +eLWYrcev+tu+2n0jwgojcCyblw2Xuh/7N8Qiwb7DltcVz/xEox9vl7ZdI8EW +s529MZvGkISAo8v+kbU+7smZ5PK6F3G/xT9MdpOhMvHSmWTdNmSbyxOTGU+G +roMFdcI2dejl8WOk0CEyuDrs5ZR1K0GWX+1M2zUoILGSwmFS/AgtD+4X842k +QLT8n46E/lQUzk+NK+umwEurthsdfknISLD4gdtWKoSpRr1SOBiJJIbaSh6F +UOHku1+j34yCkHxMpqNFBxU+rHeyPrL/LNryxDT1BJ0G7pU7CkM5HRBl6XcS +RwANdNeNEiZOH0PmciYMsRYaeIiWH5cnGqE4UfXCIgIdZOW2x9+T00KX4hki +g350+JSW5emhugMNK/FdNXtHh5sXX2jrb2civRSvpeNyDOjRxL+aT8uh8eEb +vK1eDKi+acbOvrIJRd9PTrtZz4DZyNRDlQNcSCYyav6fGBOyPXWCiJeXWJP6 +28Y7XJnQEyswOOX9g5XqE3L8+wsmCP5d4VX6PMSyrFsumJhkgj6vtk387T7W +mxu3GxkLTDihASNf8ntYl9hcTZqWmZAu2jh+tqmbdaLo/ebkVSbE1qXXqZt1 +s5DIb+ZzDYn/8/f/AS9edUs= + "], {{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwl1me40GMcx+HT3nvvvRMNaaId2ktFpRQl2nvvvQvtoj0RZWVEtqRIAy0V +7WgRxf27vLjP9Xw/V696rud/TqEuvVv0SpSQkLAocULCEhryldCMH/SxSAn5 +/XhJK85m+1Hu4iH9a605B+1xJKGA/rJWgi12W8rxsL5Ha8EhezxJKaiv0kqy +1W7H3Tyif6O15LA9gWQU0ldrpXjFbs89NNL3aq04Yk8kOYX1NVppXrUfozyN +9W+11vxoTyIFRfS1Whlesx+nv3bDHk4iKmhNtH3ObfjJnkxKiurrtLJssztQ +kab6fu1RfrankIpi+nrtLl63OzJAu2mPIDGVtGbad85tOWpPJTXF9Q1aOd6w +OzFQ+9MeSRLu1Zpr3zu345g9jTSU0Ddqd7PdfoJB2l/2KJJSWWuhHXBuz3F7 +OmkpqW/S7mGH3ZnB2i17NMm4T2up/eD8GCfsGaSjlL5ZK8+bdheGaH/bY0hO +Fa2VdtD5cU7aM0lPaX1L3Alv2U8yVPvHHksKqmqttUPOHfjFnkUGyuhbtYq8 +bXdlmHbbHkdKqmlttMPOHTllzyYjZfVX4o54x+7GcO2OPZ5UVI93ox1x7sRp +ew6Z4i3pr8Yd8a79FCO0f+0JpKZGvCPtR+cnOGPPJXO8Lf21uCN22k8zMvH/ +j3eiloaa8a7sn5w786s9jyzx1vRtcUe8Z3dnlJaISVpa7o93Zv/s3IXf7Plk +jbenvx53xPt2D0ZriZmspeOBeHf2UecnOWsvIFu8Rf2NuCM+sJ9hjJaEKVp6 +Hox3aB9z7so5+3myU0HfHnfEh3ZPxmpJmaploFa8Q/u4czfO2y+QI96mviPu +iF32s4zTkjFNy0jteJf2CeenuGC/SE4q6W/GHfGR/RzjteRM1zJRJ96lfdL5 +aS7aC8nFvfpbcUd8bPdigpaCGVpm6sa7tH9x7s4lexG5qay/HXfEbrs3E7WU +zNSyUC/epX3KuQeX7cXk4T79nbgjPrH7MElLxSwtK/XjXdqnnZ/hir2EvFTR +34074lO7L5O11MzWstEg3qV9xrknv9tLyUdVfWfcEZ/Z/ZiipWGOlp2G8S7t +X52f5Q97Gfmppr8Xd8Tndn+mammZq+XgoXiX9m/Oz3HVXk4Bquvvxx3xhT2A +aVo65mk5eTjepX3WOX5pXrNXUJAa+gdxR3xpD4xvo5ae+VouHol3aZ9z7s11 +eyWFqKl/GHfEV/YgZmgZWKDlplG8S/u8cx9u2C9RmPv1XXFHfG0PZqaWkee1 +PDSOd2lfcO7LTftlivCA/lHcEXvsIczSMvGClpcm8S7ti879+NNeRVEe1D+O +O+Ibeyiztcy8qOWjabxL+5Jzf/6yV1OMWvruuCP22sOYo2VhoZafZvEu7cvO +A7hlr6E4tfVP4o741h7OXC0ri7QCNI93aV9xHsjf9lpKUEf/NO6IffaI+DZq +2VisFaRFvEv7d+dB/GOvoyR19c/ijthvj4xvo5adJVohWsa7tP9wHsxtez2l +qKd/HnfEd/ao+DZqOViqFaZVvEv7qvMQ7tgbKE19/Yu4I763R8e3UcvJMq0I +reNd2tech/KvvZEyNNC/jDvigD0mvo1aLpZrRWkT79K+7jyMBDbFN1DLzQq7 +GAud87Ay0f9/V+aN/0PK+rf/AX1fMrA= + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrsJgFAURMHrJ7ANW9HAxMgSDIQHwgO1G5tVA8EGzCZZOOy0c56Ws4zY +64gY034sRXyreqq5Zxq6Pq95S8+f4h0cx3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3Ec +x3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3Ec +x3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3H8D34B1tdwtA== + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJxFmnc4F17Yxo2sQrKyffcQGRXl1/ecJzuVpEIiskdRNkUqs8yoNJSdNJBs +kRUNI5VdVnYJRUJ6vf+87z/nXM/1/Hufz33f13WIth4mDhxsbGx31o7/vV0G +fq1nYxMFm+cf5VkCr/HTRaGf2+Ik4Pm6ppVysXpcYDGmJ/6fJCiHh7oW3SvD +VXtbtd16JYGyUvXwblI+3rOqUK8XJQVKf2JzApwzcQtO/p60RRoy3/jS9Z/e +wtuJMYUFb6SBvHchYHVrPBZqml854icDIi+9bnqdu4wXlj1+uErIwvyXdHMZ +qj82mbdy4GmUhVe3LS1VU0/hiNgPfp6ecpDBaDUOFjmJXz232GYsLA/FvJMf +uPmP4nOpRz2fV8sD1co7aU+PAb7Lr/qkQYUA8hUHbZQtEC7ZMmvrHUkA76W4 +vV/qVHGV1LzjlS8EsOr4mzqzRMGGbReru7cSYTtKCVr3QBInODcd+xZGhGOu +Yu5uIoLYqvGmwc5OItxNGjxwQYsDiy3khk3RSPA3yzBbx3YBRfL4r7MNIkGU +fkb/hkOTKKS/uXNTCwmWtldcec49gLbf/vwtlEoGelplQmlpO/pIUTW2PkcG +5bc1khZir9AfHwFer7dk2HumaofM33LU/TCD3ZBEgcxblvEaGXkIZdYetPCi +QHlfxK009QwU50799r6WAn9vdWp8jb+J7khrveGXpMIBXuWhhrKrSDFubCXE +hQp/KpqT9EZDkP+I3tnSl1Sw+ZguOVzrhfZyKGsyhWmw7OM6EDrrhHh+WBxi +t6XBi+qmqaV9ViikCnLvltLgQdF0prnqIRR8JM/sLB8dlHwUwyvHdZBGc6ce +30k6zJttCLa234n6xHRCeUvowLYny+d0pSLipu4S38PDgJnYuVXBK0Q0JT4+ +sfsEA75Hsf9MjxJFR1vlhT3zGGDtQR/bPsWLHpvdiRT8xwCFMfLy2chVVlVt +G7gfZcJLg2/pYbOzrKO/Yg/wZDPBfE5MybJnhPUuLmzp3z8m/Lnev/2IfDcr +n7kiQx2RgA376jmVRF/inSbHG+CqJFSf2NLHzHqO2Sh/OY+pScFusVf9aoK5 +mPf+YNfpHinYSAkPuLk9FV/Mv2ZMPicNp5RblllOSTjde485J1EGaiKIrmeJ +UZhzSG2hv1EGBKhXRzTyg3HmoqNCmYcsnNC8LaN/yxN/q0merpSRg19Su18t +yDribOLNoydr5eCN/d4e4nsLnKrQZcLhIg9brjyu+qVojE9PK/08yEuAYuXX +7l6ntLGCzCbeFEsCWEgrBB3fpYE1yT/tLxQS4IhrhinTaAsO9flP5Bk3EQZV +xUqrnQjYXSaL386CCFeexjSaZorg35tVDl17SoSFzlG1IA8eXHaCOLbpHxF2 +3eskRN5cQS3BmxpoJiQwNYtqu8GcRaE/SdNlWSSoMyT6nY/6inoqj9q+/UOC +XnO3qS0XulCodYScpzEZyvpdgvxr3iHHA/KKLhlkuOP7edFQuwZNxHWFflkg +Q9rkr+rEh88RP72Q0W5IgYEVx5SCBznIke+XrPgdCvDsUTn8YvM9JNaw7fiP +7xRQOKmaKStyDdl/ShrW20OFMpssZ4esMGSiublE5joVyjmiH4l0BaCBn+Wf +zkxQYXmhs1Gqzh3lLNbrimnSYOhjcZNpuS2q72j+axRDg4Z4l6gzZ03RBb5F +Np5BGkwu+JXtazNEPfHaB1k76GD49Z0HYQajK7MxI7zRdNi7WFR3qVQNnU1B +zZT+Nf3uCnNCXjS0mCLEVq3GAKVEeoZWpxQi/OQM7gxnQMI2dj3l1Y0oJNHq +AHQyQN28pZF4kRPtECi2RwpMyG6ODBB1/s260qvcWB7EBOL7bgMR9m8sIa31 +mZwfmCBlyehwSRhgKSdwRyqWS8DcXWlst1yDvU2J4VvsJMFRWkBVnaME96uP +koe4peC+cuJ5cecnONMo3KinQAoqzDj3fFVJxwx/MXnLw9LQmVq79N/IDTxl +OBbWMy8N4Mf1+kl4NF5/NCng9n0ZCDiSUd5qeBEfCJziF9aRBeNDwjvSVH3w +/ePLzKFZWVghPfPmVXDB4uZFoy635UDw154dn7VP4EIPSe2HLHkQEVRUfuNl +gnOrzBUVxuVhg7PWudZFXWwnmmZRoEeA9Dj78Q0xmtifPjf8J4UAF+aLS+ap +yphoIMG6N0eAon58xzeGhC19RRzv6RBhYokpEOIpjnXg/FF8mwjB48nbb0Sv +xxsS+zZTp4igNWhVy2SwYU/NE9So3SQYu12UlX3rJwoPOvAnJoEE24L2XAnG +Y0ipZVPK9DAJNO5sPX+Kqw/1nX8WtqxJhpeSRdJSzm1IdhcD2ceRwc15c6J9 +eB2a5fB6xRgkgzUtW94qpQR5Om8Ri1WnwOJMZ9v7749Qu2mv+s4ICpwRKN73 +jC0Ntd96nGHTRYGrbzmjfTKSUIj/VAdTiQrGDw8ygy9Eomr7f91GF6jgE79x +nUxsEHr8LSRD9BMV/uMRzqd4nEX+f/9geRoNyLyJkUuKDmjUNome40eDVNnU +kWOZxxCb/d1P79/RIMD0zFMjKyP02DPgsJk8HeZauHh6dbWQTb+aeJQvHRQT +uV6dP7EDZR+ryRF/S4e/p8WKkCMTXRikbGCTZQCv1lXH3XlyiJtrYdsVTwbU +xRmKShKEkWtBlfKxOgb4cJxlb9zAjc48y/HNFmWCcWih7ouKJRblIFtokgsT +Xo3ziicV/mCp3XnnH1bJBGeBkUQyzzCLbMDi8rCTgBxLW9cxz1dYpXa2QFZI +EsgLS07qpZV4+cD1daaFkhC+LH7T4NIzTNgk+rXVSgq8fhFKT296gN1+7LZj +55SGQLqEeHTvXdwzvvHSZLo0OO53mmtQvIaP3bujoLhfBm5JNShcIobjFff3 +ntQZGRB6/tnWatc5vOw7pG9zRxaCcq7l6R86gzUZ6oU39eXgvZCCeYCHHVaf +8q83n5SDj8tZpqjWDMeO3LA9niQPu+8fmNI9vh+HBim3XZEhgMsdXeXTW/bg +GfLFokhPAvzMCvzAZ7wdr8j9Gln3mgAdh043e/yg47H0ExMNUkTY7P1PVZhT +FofUqhfSzxDhycj56LfKm3Duj+H9I7VEONHNvb4+bx12UnAsXhUmQXi0j+DJ +/X/Qlrp6+3on0tp7+C6wVXAaXXJZHBopI8Fj84rvlpQhFPHoFj1nIxk4uViD +Fq6fkKKWZcm4AxlCzYjGlG2vUf5JcSn3EjLYVfK/jgqvQoMySDuJnwLX9ybm +aok+Q1kjmrvFrSkg0SZJb67LQksV/Fy/nlLAgmK/7nDabWQ+Uy4czEkFSdsL +Obdy4pCBGpqxO0qF16fm8/YSLqORjcpJk7lUeP9z4vfhW75IdPkXT/NfKnzd +6y1SRHZDXT/j9m0wokFoN2s7Kd4GpRvyfJxPp8HVj6EJeZmH0erTw4q752kw +f2OR6/oTfcSbJ7CPvI8OX7ry7mlP/IcKOSeeR6bRYdsRq5xYRxW0e7BiVu0n +HZAhz5nxTjLytFj5FWTAgPEq5v4rgZuR5uCmJsodBqzeLrLetpsf3fBZcaVP +reUD+69cF/awoyWnOpMOzAT+B5o2TsG/WDNO1usHE5jwdsfHqfnKcdb0uH7r +xQkmWGwtD1Lt6WNN119l5WdKwJSRTc4Eex2+Zh46SjgoCQEXx18pG5Rio5c9 +hbRZSQjmnvMT+y8Pe2abR8WnSIGjxcumYZ0MvNxrGu6PpWH2+i3iAE7GQurl +MnoD0hCazbd7p10sjhHUrfC7KgPj9eefzVpcwqQKpWC0VRYSN28fgvu+2D/n +caN3nyysy7ZR5uh0xUZeOsru4XJwzMvcVkfEBu8W1qxYocvD8jZVX6Giw/ia +stnBHx/k4crZ9TWsE/o4RGjicsV/BOi+9uKRi91unPzwLFkjkQDbUn1Oa6ar +4DMF3CZJ4wSw1yXWPC4n48MZb4QrdxGhWnXfS8l/m7HrkfROsXgi/A060/5z +Dz/erqSZv3WQCAJbfNqlldixTnLo0XJVEmSdExCmzv1CEbVDq34RJJh4ebBG +unIcdXR4aLJ1k0DHdcdGicXPKHKDwS5QIUPsltldmeHv0eJTxcaTYWRYXaRo +vaurRz67YexABxnsoz5nfEBliBbltOGUIgVs4v9Ulpc9QZF/jbT3BlFARUNz +H5dIOlJZN6F/q5kC0zwWh2sEbiDBNzeMpclUWKdW19Gz8QpaCPCacvKmQvjW +XSOydy4g4Qm7K6NvqDAQGPNffpwnGrggyqLI0EDhU8pF61BHtJDjV/nxFA1a +Vbqu33A+jiBhGpfU0mDpUeUZNoYxum6XdNRelA5p4mLe01e10X7TsK2v3eiw +NbC2PP2jOqopuXRjYw0dSrn3+zDXbUFanHnxBGEGxKPGJncnAloU+BFr58yA +gpvOVbv2iSAb+JHqUMYAwaYljd1neJAgV/qFHr41Xg70Jc4krLBmI51tL1oz +oSPtyw2LzzOs+kYlO70CJqSHp59h2X9lffE4HBt9QAIe3ZvYdrK0Ec/M+zql +LUmAeJF4yrJ9FZYyXrTfd18SlMrHiQ3RhTj+Nq+3qIEUMMXfKL4KzcGa+hvv +lUxLwUzQe+Gn1+/hp/sPTXDHSUOTp1kch1YiDo5yr7mpLgMOtW33Y69H4BDG +peccfTLQphEp9HLsPG4roZRFh8nC8x95Bb1uZ7GIz5ixgpocNGX3vamqsMfu +3LwCVh1y8Oy884MfrGN4c2RJz9NgebgULp/Vs9cILxY9PXlamABpXyeo4tpa +WIDw+ss1JwKwP2S81indgaXTvKhaVQQ4m5dsnBHPxOr8B1YrhIhQGJEebNUj +h/1+fLfWdSDC+0GOtmRrYdzGub61opQIiz8L/B+t48bx9XVGvHwkYHz51Cs8 +soRWCFNJ85Zr/q6/KVNv4wy6/DRmvDWPBJ8PYBH3A8NI5fnv+rJ1ZLDpSlsM +HetAXW2zrkrHydAY/6Rz39QbdLVTKsPtCRn0Nnw45/TfS+RgusG+jJ0Cd+rn +gocOFyJzbj+1X0coQOE/VLBT4QHKtw3ZxJVFAYcSeYtVo7uo2OJ3cfEiBYxH +rjpvnYxHHZcnXI7uowI05UV+Ng9FMtSMLM5UKizOnnR4peCPAn93Tt/7SYWx +5nVLQ19PIfDNNRDSocHJQ32l5XdPosL4SWdSMg0ePzklSvx3BKG+rBvEKRqI +df1b8VXbi2bvMw6oAB0kI26Imfay0L3A/5qbbtBB8K5pZ3GYKjLFQf1bJujQ +reAVbiBNRTvOhwfeYzEgWvLo84tSkkhpcj15NZ4BouPbjBUFBdHVdUp92wYZ +wMGT3xxizoGSyyuPr9/BhD3ppNXe0XnWi7TG8eYIJjzOl6zcaDLJuiD2sEzr +CxM0LjQ9vDL1hfXKWvSH+wYZ2OucI5H+6gr23/XwzsgxWZAfLNeu7/HCrwQN +ow/yyAEtImFj7E0n/GU37Z7DUznYJBt7WSfIEis0L745elge2KsGzLv0DuHa +AxZ8Divy8Cmc62Vajg7Wkzim+uAQAV6MtPtyfNqJj2V5ZlbmECC4y7hniqmE +278wGTkrBDg+K7+k6EnEDnsty0IOEiG1V/enzz9RLKdo+sE5kwh71I1IabO8 +eGgx+IL0PBHmOk4sWDusotQ+jXkzfRKYnG+P0zWbQ2E7S39m3CGBe1bolaru +ERTaUPivb5oEX53yrtO29SCVaZn2Yl0yiJlxSxeXtCCtOnKR4y0yvInOMfhx +vBadfp2VxfmNDKod6y36xItRtf4PuXygwFmpIetCVi6SyXdSoCdQYH0286HO +3/vIW/nMP/owBXirOaecjRPRHA2sdmpQ4VqcoBmdJwJFHrzatOMKFU4Png9X +yDiH9GZSKrX6qXBS2ipMzuYMEjrXryWlQgPhNobu+kk79Emm4Nq5SzSg8Y91 +av01Qy/VDd2+ddCAX1ft1+PI/aju4olDhgp04Bjok+AR24N8nAf+GlykwxuX +JgNDtu0oevlfuewnOlTYXoyQHKSjyurbYf10BlQoYqm3z2SQyMpKV/55BnT7 +tK6K8WxCPqTYqv3Na/6svWUguHIdarfOO+0pzwQHbTvHes4/LDOx5KwHXkwY +PxcwnvP2OyvN3S22vpEJcZ0dOrY1gyyrytGvL38x4QmnSx761sNqOWEkMXdL +AlZ3fM8jXKnD6d1FN6R1JeFW77Xeo7OlmJvr07LBqCQ8zg0/bro5H1u012S7 +JUrBB41qlbyPGfhrzO+y8B3SsPqAP/PKr2Sc/og8fu6TNAy3PUgrtozDRm6y +lo4XZaBzlK1i88QlHN3bUnyELAu7Xno/EbT2wyNGYeJV72WhNA3lLJS44Um2 +6MNnzsuB7qjZQ98EG3zRztCPJisPb0UWeKqtjmBu546B96/lwa3mSbeppAGO +FYxJBnUCFOQ8+HbXgoVzXFXrPsUQYPaklvdjFVW8eTTIMm6YAInfErZbmFNw +yy7ahOF2Ivwn6lEW0SqBg08USbBfJUJo4d1dQnQBbLDkfH5bHxFaCQyNvCJ2 +rNh487uJIglaLmj70h/MI16HJ+ynL5HgvHLr1rOXJ9CWXjm+qA9rPPS3sNFb +/YK+tAsnDimQ4UyNgBlDth2NTjy9ahNChqrNMqeXXBqQRne230AbGSLtdmci +qXIUciuM+zidAtZ7Y+dycp+i4bbI14f8KTAx/HfPrfR0ZLOL5/aOJgpkRoUZ +y767gT56nhIQlaPCke81wmGDV1BCqJL3L3cqNHZ814g3C0G6Tp+CWhuoMLXH +cGKQ5oVEa9IqaJvX+viK9B3KTie0um+C282JBmkX54y1TC3RwIPN8w9f0EDd +WuPe3VxjtL4vrWNScI1nh3d6OWjooNqEp5oujnSoHRH9pXZLA7U42gnwV9Kh +nddDfLRvC6KIen/I52dA+LtjacYLBOR5zW23sR0DSr7N9MyOiaCeiIhut+cM +qNfgHn2vwIusnsqFeq9jgim9fnhd1F9WV9bd934WTJjY1rBtv8Msi//Eia7s +R0xYfKCxR0hmhFVx+YvJHS0J0Knu5RY/2YTb4nZpDf+QgGXJpENN2tWY+Z4p +pnddErydTC6rbH6ODfo5KtVZUuC7fWnfA72HmOjlX3HtqxQEwvljSufv4+TV +WRmxMGnoHox6eq09EQv964xu3iIDwhIx2N08EmuFWRydfS8DqvWJ+9OagrBm +V8NseqAsbCj9oE9m88Qh0i/ve9HlwLRxvyq3qwNen3RQ1fqdHOzYnLDl0joL +bNndeKPLSx5obyoa4g4cxGom7rknBAigcvhG7/lPWlhG7vTPzbYE8FVT2njb +Rx0r2G5rGChd20vHkarcFPBnqOct2bDGy6gf28Tfy+O5sL3qH62JIC75GGv/ +E8ZfBWSFHhQS4XTXHZE9Jdw4M2FOSmAdCVpf+Rctly+jkYOrirFmJJg7ba+3 ++fYMWnfIfKo+lwQehV4POSaGUVhpdqLWPxIos+vTvuV1oq3JlfWtR8mwbcuu +5Ivtb5G/cIqTaw4ZdOY1gg69eInoP8/+2rdCBq99ZOXB5UL0TPy60vBBCqSi +rEMrIw/QBvXymwKpFBAcelQ8oJyCRuPE+A7/pIBjmOqM8vkElKJYTTPSo0Jh +1QGhuJVQVKJstTX+NhWM+h9Hfvjrj5747B2KmF7Lm35lB6HtNPIu0WgUxjTw +/Tzta8a0RZXbLAtLr9Fg+6K967aio+jLXMs+0VEaaMt/+Mdc3YscJdRbijXp +oHvPJRINIiRabN/tnECHn+9v2STKqCH7aStTxlc65PInat2tpyLxmH0vtu5k +AOyIHGPOS6Js94i2yasMkKs/a2DEsRFx728Q1exjgFmq/erVSQ40arfLJlOZ +CbLu4dt1MxdYmVXLZvWXmLAhxMJOkzbFanrUvTWjiwnKeYHOZPYBlvmnoPJM +NhnQbs3vV8u4ioeOGX5cNpIF3cBZ0bOXvbFaEak3eUUWArv7C65bOePAN6dr +nTLl4FxPxGeGlRV2l+OLuGAgD2zp49d7ew5h9fDu2/pz8lBVqiBMNdLFR8T/ +6iruJ0Ces2yE5ZNd2NlRTed4BgG8und0NZC34kCRNLWM3wToKX5xP+svEQ/0 +l8RtNCTCD6GXq8NFYlhV3UX0yP01/VQsPxiv4MMLDU/2EWbWZr7NmZJm/1DU +hn0xM3tI4Na6lPd6fg5x915aSL5BgjxrJ4vuqFHU9dq2xWGCBJp88ybWEr0o +vGhsyzEgA1+Y/6PI6lakspoV4JBEhoWIXNKX6Vqk7MivfmOUDOu4LsX3dBQj +CXMBqfv/UeDMWatX9sKPkN/ltHzlaApcoeoWFQSlogz72EP1nynQ7Hbwrfzv +RFTWKialqkaFV08VUlxeRiCKhe6h2lAqrLhd9A9LOo8C3Dfmb+mhwpk3rhaX +Rs4gncpTNTJbaFAVulrDE2WPvlSTPm8KooHXt3Z/g2ZzZHPAi9D/ngYnUnvc +j3kcQDuX3NrbKHTg9/fq6M/dgyYz+NZPnKODQNnW3cGPt6NbuQOqUm10mH7S +mP8olYHutVk3eZAYEJKiLF/3WBZFhwSEp/gxwN52otkhYROacaH9NmliQO0r +1kjCSS5E5FP05Jdign+UtqNk3x8WUnsnes+dCe2dpwI7KqZZk+vuclJrmZD0 +zuPc2ZNDrGyTzRbEH0yIXpWiz33pZYnSij1slpiwMJaZ+469h1X1KI8rMUkC +4m952IW01mGF2y3TEiAJ6UYcvEH6ZdiW3i7fMyAJzr3hDZFH87GRs++OY7FS +kCOuPyUsl4m7Rxs/xKhIw8PrG8LrjW9hN8euZvE2aaC6nSVa9cXhvFtRj63O +y0Dz+HeuF6qXcY2b/Id+WVkYu+ptZ1jjh2XSZ1/YvpMF77n0JPqWU7i0Mc/h +rJ8cSFgLsq2+t8GUaJOjFZvloS5Arl/x+REM624w6+rlQSKOobgxwABfF+gn +Xd5GgOSqkndHu1lYZd8mEepVArhFZY7lBqhi15CyQf5BApwfnBjiekjB/FxH +jlxTJUJYy75gG01JHDmMynwj1/zbsczS5K4AbrcJGSrqJsIBtpnkmGV2nHoi +bdd9JgnEqmV9fnAuIINi4ctjF0jAXi9Y4zkxgUytfM80t5GAv8XX4nloP4pS +X6zexiDD7H53nf2u7ciKZ+Z7fxAZBD66XWKvbkDJ9J5qZgsZHgk0ylRcKUeP +00RD2ykUEKp3tVuk5qH48iz+Dh8KEPOVnvF/S0eLh8XrLjdQYGqhfzlP6Sba +qd/pFi9Nhd9X+G1b919FX6KulGqeWvNnfyFNk3sh6AQt9rd2HRW+1qRQ9by9 +0NOT40sPRGkQSjmXJJfkhC7JkhSL7dfyZXxYoUSbJVLZ9vgguYIGwQdVb3p/ +N0Y6yYzNW/npEJoj+O5QnA46r1wHZXZ0CBZ+vGXurwY6WvXB4EoZHYKikoSa +9ymi63c7fi3yMWCDRlR6Aiaipx+Zia9sGDDR2dPE2CmKkh99mJ8uYADfn/xB +vSu8aB2nVXgNOxOMDvwefMSzytr3XJ3vp9lafrzs3Po5d5al8nBBuDOHCaPM +nYF2gSOsXAFKEYklAdvoN48uFDfhl323lUMnJeDVLXTXtKga5ydondaOl4Qn +vklK5VbPcSY720CjhhQILyY7FD18iEX5lAxD+qWgzj2c0jt7H0eb1arLhEgD +227zrXYySbi7LNrTmSYDjnO/zzIqI3F64aus8Xcy4PK+tvvaf8HYw1lccKuP +LASbJW3bvN8TF7sr6kuQ5OCY8niAXp0D7rLw0rZplAPX4+vPC7ha4FX2Nu/T +7vJwcKtkbEb7QWxMaDHqXE+APQO0aTuCNibLVgdZWBOguefHx4cd6viZloiY +SjEB1p/u6uLqU8Aqvf9itvOt9WlL7qAcOgGrHPJLk7YiQtLU0IrMIRE8fS07 +X6aACDJ7HUIeCPPgrYt8F+PYScDS/qbhylhBFmM8AT1HSOAXQspHgzNIJ/3F +KZxDgocXjgam7vyK8jVXl8JXSCB/qUjniXgX6l5OmyUcJsPW0tI3bHvfoR/K +X15PZJGBZks3fPPvJYrck7X7+h8ynNz+8hubyXPUL0d5ZHGAAvbPYprE9HJQ +qXxnT0IKBWxbLxp/S09BwbkUtbQZChBq3LK4GxMQG7tC2BvtNT9OFxU9bByG +1u0o9+y4SYWnAnzH+FwD0KvtHJYrU1T4nsdNLjdwR4LmwdxJu2lg/LYow+Cs +LQKu612c8TQ4+OjL4ShhU7Q12C47ZpgGgXGXW10cDVHqx0rBJQ06HGgbPXvV +CaPWwwH9pbF0kB54tm7URQ1N6rYkZA/S4XRB+ShI01CE2NMvvjsYIBlwebuO +gxQazteln4xigCtnJqf2hY2ozmOT6otuBvDk7TyivYMTxZb62c4qMsGgozvX +kus3a3Pz9TgcwgTa4ZLy5mtTrG8LZ10+fGICYZdDd7bBAIsUr5aKl6XBLmO8 +YaNoNJaYvD0TvlcWpI93zH3q9sbOvHGXWL9lQad+zmu11hkbJCR8dL4vB1ES +xs1ZrVZYSH+Tg6i2PFQQ944/o5ngM6Rbwzu/y4O4x+n+9nRdbCl2sM19LwG+ +Rhpl68po4hk94aTcVAI8/TX6qCVjK2550ldCmCdAunXKDJsuCcs9Glky1SfC +KwGlP84i4lizYu7567tEmK59c86DvB6HKDYUpH8nQt0kc7C2/R9aTT/SvRuv +6eNbsMZ6/Z9IT3HcTySJBDEiR0Z+D48ijv3lO3JHSfDbXIM4FtOLVCWbzXNZ +ZJg+oHbImtyGsqXHer8mkIGVp03m16xD8c9xcP8wGaJvxrfo7ypBujZ3b4rv +WuObU7g/XHiEKKerfhZGUcDu0r3JgqpUpHkhJVC4lwLzd3a+T9yfhGQyQ/yf +KFPh7RGOYnX5SORpnX6d9xIV5FiOvTpCQeiaUhMztZMKz5xuXHvNPIu+WBay +3WPQoLRaaL1Njz2yTTjOYRVIg1slp2emNI6h/C6ec+atNOie/2LiNHIAeRbP +CYuS6ODO1WVe/HsPytojJ7QrgA5f5TykatbtQASOQ6eTm+mw/siY7DMOJhI8 +VjtRIr+mFxtl3ilFOfS6VuOziA8D/jsQ0aLStQk9ifEU6WhgwEtTei5XMRdq +snL1PraZCYpBrol/DZdYBeC4X/IUEy5vXrlUrf6DJWi8HR2tZsLDovV8iYVD +rDcpeUmHvjHB5+/n6+eO97F2njXKjf/NhL++nzZw+PawZnpkd6j8ZUKY2amM +63HdLAPO6f8uc/z//w11E5vzwwkSkLzMpnZprg67L/XcvsmSBGG7+q8LnmU4 +vrStgPRFEuxGhI4veOdjg8K2ldarUmDvxCiiamfiIyL5Npu2SoMf/9ZAywu3 +cFvdM7Bvlgb/tMrnvoLxeCC/+kh3gAz8Z8E/7mN6GfcV6p+kSstCzxNrFbaf +frjk7YNNRa9lIelt1egZh1OY8KhmetZbDhg7TVruzdlgn1TTei4xeWi9c+33 +VP8RfKJ9vvm/Wnk49SCmxv+hAZYQ4HWmqBEgwCX5R5Akwt7/sVe8iyLAL53F +hyn3VHHSAbPMt/0EmNjzedOH9xT8aHKST11lzc+HXe/6n5HE/NmXo1QjiKDG +f+JaRqcAlhCNFvPrIsLwdFHDsBwHtlDIttZlkOBTwOzfMbUFNH6ioS4zmAQj +QpV/NshOIjc5UqZH6xpPz4tpNzT1oxPjrqZ9tP/loQnvsYR2JHFD6P7982QY +e5BqyDnZgJpaftq1vCNDQXVi4tO6clRL7dOKJVNg5VdS+DH7POSkvH1rsjcF +htvF8tU2ZSCdwZROhXoKyO5o9RezvolcC/jvGElRIbqpo0D08lUUxl/W89mV +CkEaq6+ptSFoKsx1+2oNFVzrGJqn73ihlYKrt51FaLB426cjo9YJ6YRXVR23 +o8FortDrRgEr1OW/sNJfRoPZ+YddOhsPoZMLbiWt6+lwvfXJfEeFDrIIbtY+ +aUsHh2Tf+3MqO5HE5FXHvaV02OSemDNyWRG1DERwpfAyYNL3/JkceyJ6Nx9Z +ddGaATpX/akvbESR74s/l/PzGeC99MAxtpwXmSud53FmY4I0Z2TgG/1VVmgF +Z1a+KRMqEjc8EWyZZdW2aKl4PGDC1P7APIXcEVZau56jo6YE/L5W+NNgqAnv +vLwv++OYBPgFX/B4OF2Nf80aSdbGSMKr5Czpoxef4/Zrq2eFdkjBusi8iYbe +h1jwSMSm331SUOjb+OeBeCrmDs2tux8kDQ/60oXz9iRhtNlppIgsA1kKK0W3 +pyNx+5uVA/ZvZEDATyX6qU8wvpKP7np5ygIxM9w8wtMTH0oeuu0qLwd6+IvW +mRkHjFHYu4H6NR5XblJ0TLHAB8U/Dpe4yQPhqm3nv/XG+ATPamoiHwGGl8zN +9fS0cbbMeO2yFQGUTdP+NvNo4AU1zhedzwlwk102vVd0C7bISTH+yUOEgzX7 +05P0CbhVXdCs+jgRguUrLsUEimDPo1MhnXlEiHVwFfsKPNj7kdhzYzYSKC0K +dNRaryDRQv77IYdJoP002lyHaxZ9NTzzZCWbBE0NRvajNl9Rw/LDrczltdmX +7PHcsAs9fSIa+foQGRzvFAr+DX2HcqtWAx9mksFQd6e9C7EGlY5XDexaJEP2 +jZPxd4Keo4X0KRfx/Wv8jXzBXeibg+KSHFYO313rT7TSIunPKeiNxmM9gx8U +eLsp6NXEtwSk5mb9PFKLCvZpVsRngWHoUcl4UsANKlyxEvD+kBqADid9SS6e +pIJyCQ/xSZg7Op5DzD7yHw1emm14/+i6LeJwV3V7GEuDDX5/jr3ZY4o66p4c +Nhxa6988XJK0O4bohRpb3h11OvQ7XzWOfoTR4/TLQzYxdFhdMXq9PkENPT0b +nucwQAfHBlAX1aehl8esf0htZ8A+rlcO3PekEEd7polMJAP2C/YWBVRtROkX +NaqDuxjQ96f3pMBxTjQ0dGP45hYmOGlpSYSq/2YZf7Td8jeYCa89+FrLXk+x +gmWqwt0+MsE2MV1g4NQAK/w7v0jMojQcrzLaRTsQjdXU6oLf6cmCapPK6Vgu +H7xOTbcj7pcsHKwtGDZacMZ53hlWE3flwHqz0+sovhPY9rjYxxMgD31zSpri +B0xwzMxiRMGkPFQTxtkfNOviAVF/MSEDAnQ46maeOqKJt2tw7Da5T4DPP9v6 +Ur5uxYuBgYH9PwnAYxC5Q8KFhF/En89f0iXC5fDhjzVa4rg6SCMs9A4RROr+ +eLWYrcev+tu+2n0jwgojcCyblw2Xuh/7N8Qiwb7DltcVz/xEox9vl7ZdI8EW +s529MZvGkISAo8v+kbU+7smZ5PK6F3G/xT9MdpOhMvHSmWTdNmSbyxOTGU+G +roMFdcI2dejl8WOk0CEyuDrs5ZR1K0GWX+1M2zUoILGSwmFS/AgtD+4X842k +QLT8n46E/lQUzk+NK+umwEurthsdfknISLD4gdtWKoSpRr1SOBiJJIbaSh6F +UOHku1+j34yCkHxMpqNFBxU+rHeyPrL/LNryxDT1BJ0G7pU7CkM5HRBl6XcS +RwANdNeNEiZOH0PmciYMsRYaeIiWH5cnGqE4UfXCIgIdZOW2x9+T00KX4hki +g350+JSW5emhugMNK/FdNXtHh5sXX2jrb2civRSvpeNyDOjRxL+aT8uh8eEb +vK1eDKi+acbOvrIJRd9PTrtZz4DZyNRDlQNcSCYyav6fGBOyPXWCiJeXWJP6 +28Y7XJnQEyswOOX9g5XqE3L8+wsmCP5d4VX6PMSyrFsumJhkgj6vtk387T7W +mxu3GxkLTDihASNf8ntYl9hcTZqWmZAu2jh+tqmbdaLo/ebkVSbE1qXXqZt1 +s5DIb+ZzDYn/8/f/AS9edUs= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1me40GMcx+HT3nvvvRMNaaId2ktFpRQl2nvvvQvtoj0RZWVEtqRIAy0V +7WgRxf27vLjP9Xw/V696rud/TqEuvVv0SpSQkLAocULCEhryldCMH/SxSAn5 +/XhJK85m+1Hu4iH9a605B+1xJKGA/rJWgi12W8rxsL5Ha8EhezxJKaiv0kqy +1W7H3Tyif6O15LA9gWQU0ldrpXjFbs89NNL3aq04Yk8kOYX1NVppXrUfozyN +9W+11vxoTyIFRfS1Whlesx+nv3bDHk4iKmhNtH3ObfjJnkxKiurrtLJssztQ +kab6fu1RfrankIpi+nrtLl63OzJAu2mPIDGVtGbad85tOWpPJTXF9Q1aOd6w +OzFQ+9MeSRLu1Zpr3zu345g9jTSU0Ddqd7PdfoJB2l/2KJJSWWuhHXBuz3F7 +OmkpqW/S7mGH3ZnB2i17NMm4T2up/eD8GCfsGaSjlL5ZK8+bdheGaH/bY0hO +Fa2VdtD5cU7aM0lPaX1L3Alv2U8yVPvHHksKqmqttUPOHfjFnkUGyuhbtYq8 +bXdlmHbbHkdKqmlttMPOHTllzyYjZfVX4o54x+7GcO2OPZ5UVI93ox1x7sRp +ew6Z4i3pr8Yd8a79FCO0f+0JpKZGvCPtR+cnOGPPJXO8Lf21uCN22k8zMvH/ +j3eiloaa8a7sn5w786s9jyzx1vRtcUe8Z3dnlJaISVpa7o93Zv/s3IXf7Plk +jbenvx53xPt2D0ZriZmspeOBeHf2UecnOWsvIFu8Rf2NuCM+sJ9hjJaEKVp6 +Hox3aB9z7so5+3myU0HfHnfEh3ZPxmpJmaploFa8Q/u4czfO2y+QI96mviPu +iF32s4zTkjFNy0jteJf2CeenuGC/SE4q6W/GHfGR/RzjteRM1zJRJ96lfdL5 +aS7aC8nFvfpbcUd8bPdigpaCGVpm6sa7tH9x7s4lexG5qay/HXfEbrs3E7WU +zNSyUC/epX3KuQeX7cXk4T79nbgjPrH7MElLxSwtK/XjXdqnnZ/hir2EvFTR +34074lO7L5O11MzWstEg3qV9xrknv9tLyUdVfWfcEZ/Z/ZiipWGOlp2G8S7t +X52f5Q97Gfmppr8Xd8Tndn+mammZq+XgoXiX9m/Oz3HVXk4Bquvvxx3xhT2A +aVo65mk5eTjepX3WOX5pXrNXUJAa+gdxR3xpD4xvo5ae+VouHol3aZ9z7s11 +eyWFqKl/GHfEV/YgZmgZWKDlplG8S/u8cx9u2C9RmPv1XXFHfG0PZqaWkee1 +PDSOd2lfcO7LTftlivCA/lHcEXvsIczSMvGClpcm8S7ti879+NNeRVEe1D+O +O+Ibeyiztcy8qOWjabxL+5Jzf/6yV1OMWvruuCP22sOYo2VhoZafZvEu7cvO +A7hlr6E4tfVP4o741h7OXC0ri7QCNI93aV9xHsjf9lpKUEf/NO6IffaI+DZq +2VisFaRFvEv7d+dB/GOvoyR19c/ijthvj4xvo5adJVohWsa7tP9wHsxtez2l +qKd/HnfEd/ao+DZqOViqFaZVvEv7qvMQ7tgbKE19/Yu4I763R8e3UcvJMq0I +reNd2tech/KvvZEyNNC/jDvigD0mvo1aLpZrRWkT79K+7jyMBDbFN1DLzQq7 +GAud87Ay0f9/V+aN/0PK+rf/AX1fMrA= + "], 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]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + 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" -> {{5, 13}, {0., 0.1957165151046949}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8V+8bxu1RSFa2zx6yK8q3z/Pc2akkFRKRHUXZhFRmmVFpKDtpULJF +VjSMVHZZ2Q0UCenn9885r+d1n+fc13Xd7/M65xDtPc2cONjY2G6sHf5/RqK/ +mc+0JMHu2QcFluArnNFh4OysLQm/rxT9NBpuxvmClGISSxK20K8fXihpxpUX +P5vd0pEEvZo+Honjzfiz58H42H2S8ODO5JbjZU2YbMTi9nSQhDxre7dxr5f4 +8aLwzy0JkvCMq3mlQrwBa5rZBY8kSULqMpvGhbl6XP2ggDs5RRISb3g6hLXV +49ZjJpJzNyRhddu3AsKlevy94TKrMFsSpk3s8ibZ67FqEk+0UoUkzN2WwQ7L +tbiQuSJLHZWE9XsaOJXFXuDtF/fkfhiXBP/Qc573v9fgF/03VcOnJOHlDXTb +vLgGtyfs0Bn5IQnLUikHmnVr8My8n0vGkiRIFEukLTtWY7W62SdywlJAXlhy +0Syrwk+sxg0k/pMC1chwt+I75dhjqffmdZYUiDg0fFnwKseKN1u/S4IUZJpw +8IUYluPMnuJrMvpScKPvSt/h2TJ8xTJ8jLBfCgLPT7xUNSrDPubEyM0OUuAs +I6iuyVGKt5sdbYTLUlBzbHM/M+cZ/jVrIlUXJwUvU3NkDp9/hguTdE7pJkrB +I78U5QqbZ5j5jilucFUKfFzMLqpteoalTRcd99yVAuWKCWJjbBFe3neVy7xI +CiKXJa4bXXiKq3e36br3SQFlpfr+7ZRCnFjW/oT0WQocRoWPLvgUYnt6h0Lv +oBS49kU2Rh8uxDzcH5eNxqTgYX7kUfNNhdjkRW8RbVYKQnnm/MX/K8ADmmPk +YR5puKuaHCzh+gizUf5yHtGQhp3iLwc0hPJxx5XVM8LbpIErumCyse8+zmZn +G2zSkgaRxVSn4vv3sdEAR5UmSxr8ti7tuWdwHyfe5PMRM5IGpsRrpZfheZiw +UexLm400eP8ilJ3aeA/vWlVsMIiRBuU/8XmBrtnYqKh9pe2yNDi6MIqputnY +xNVv25F4aciTMJwWkc/GVh21ue7J0vBeq0at4EMW9sq1jElMkwZnqxfNI3pZ +ONsk0qT3iTRUWnDu+qKWifnuDnWf6pWGDZTIwOtb07HQoaiNv/ulociv6c89 +iXQsxq9sHDYgDfUekZS+2buY6B1QeeWLNARB8BHl4LtY23DDndLv0jAT8k7k +8dU72P3HTgd2ThkIoktKxPbdxq049VvKZhnIfu1HN3x8Ax8SLbTbqCID/gIq +QdbnbuCesab3cWoycP/q+sgG0xv4S9zv8shtMrB6TyD70q9UvNxnHhmAZWD2 +6g3iIE7FjABxBeuDMtCVXrf03+g1fL7wiin5rAycVG1dZrmkYJ7w/Pq7ITJw +rz9TpGBXCo61qNOUDZMBtp2WKg6yKTh1dVZWPEIGeoZiHl/pSMaP9x6Y5EmQ +gWYviwQOnWTcO7HhwlSmDDjvdZlrVLqCtxLjip68lgHy7oXAVZVE3F7/FBxb +ZCAgo+qZn1AidnfubpFolwGq+xmiTX8CznxAnjj7UQZG2u9llFgnYGHNClmD +QRkIz+Xfud0hHk8bj0f0zssA+HO/ehQZiyO/CYjGLcrA0WqTHbR9sZiUqJGO +l2XAIWuicYNYLLb8GFKRzSYLum2FAxpZl/FLW7EfHutlYbdrnmTmy0s402eX +JSdRFmqjiG5niDEYbXIZLSbLQo7iSvHN79G4pzzWy5UmC85zv88wqqKx8L+u +2JbNsiAiGYc9LKNxaIxH7XVNWXCqa78bfzUKH7lzS1FpryzckG5UvECMxMLN +8yuH/GVB9IX3de+zF/FgYc2hnkBZ+M9KYMLX/CIuuBHz0CZYFlomvnE/V7+I +TdzlrJ3Py0LXGFvlpskLOE5Iv9L/sixMNAQ/nbW6gNcdTgm8eVcWAg9lVbQZ +n8ecwxoLA02yIEi9PKpVGIo7Xq/sc3y9tvZXi33sG4ozi17mTLyVhRPv6nqu +/BeKdSKsDs++kwX1huS9Gc0hOIxx4RlHvyy0a0ULvxgPxise77yoM7Ig/OyT +vc2Os3hh2fOHm6QczH/OtJSlBuD+IsPjVBk56H1kq8b20x/Xuiu8H5CTg/HL +Pg7Gtf44tq+15BBZDna88HkkZOuPSZXKoUhFDpI3bR2Gu354X9C0gIieHJge +ENmWoe6LNTTqQ98ayIF6s9qpeG5fLDl1cyZytxzIHO2c+9jjg4ePGH9YNpED +/aBZsTMXfXDAjvu3Ro/IgcJQhW5DrzfOXnRWLPeUg2PaN2UNb3jhS4XotreX +HBCzIy2jvLywp6uEkIqvHIRapGzZtNcLa3c3zmYGycH6sveGZDYv3F5KKY+N +kINnPwqe9Lmfwct+w4Z2t+QgJO9KgeGB09hs3saJt0kOXt60tlZPP4lL39zb +WPxKDlLeVI+ddjqJZTNnn9u/lQOfucwU+uaTeNQkQqL6nRyUZaC8hVJ3HJD3 +sMmnXw64cu1UObrc8N2jy8zhWTlYIT314VM8gbk09DsTfsnB/ronIyYLrtiV +L+EC67cc6DXMea/WuWKNYlJf6oocBPUMPLlq44pfChnH7ueVB1pU0ob46y74 +a23q9ypZefglvfPlgpwzPpA6fNNNQR4M8Ged0zNOuMRDyVCSJA9HVCcCDeqd +cJjMi7vedHkwb9qrzuPmhEV9x00VNeShObf/dXWlI9ZmaBZdN5SHd8KKloGe +Djgq/r2/l5c8ZDHaTENFj2PCg9rvsz7ywNhu1npnzg6XNRU4nfGXB0lbIbbV +d3Z4ii324OlgedAfs7jvl2SHTbz1VD0i1/p7W9rridphCcvisRM35UHo165t +n3SP4QKfLJvJ2/Jgu8nlVQz/MWyUlPTB9a48xEiatuS02eCg16fqXLLl4Wxv +1CeGjQ3+vJN2x+mxPGyUi7+oF2KNc4nXDx+vk4fXjrt7ie+sMEYRbwcb1vZX +bVRyTrPC3VbeunZN8uB2dF2woJsVXpeyX932rTxs25S0+QKXFfbg4RO06ZSH +p8Gu936wjmDN6YAGyyl5+LCcY47qLPDLZ1ZbTEUUoIRv6j2PwGHsm27ewC2u +AG23rvyeHjiEKbFmhys3KUB9oPyA0rND+LyDsT9NTgHeiC7w1tgcwjtFtCtX +6AqwvEXdT7j4IC7ylNK9z1IAUSEl1dfeZtj+qPiHY6AA/XPK2hL7zLCw4UYn +MV0FqCTunnhKM8Me8vxR54wUgC1z4mpf7wGs2LL4+vBBBWCvHrTsNjiA0xW7 +zThOKMDmSw+rfymZ4v0SH0ZK3RWAcNm+6986U7zK3u5zykMB9qtIxWd17MfW +PU3Xur0VgPa6sjFh3368Kbq093GoAlyIVMjp3W2C40ev2R9NUYCdd/dN6x/d +i8+mH/Z6VqMAVBuflF29RvhYx3zLf3UKcPJeXG3AfSMMXNeY9Q0KIJnAUNoQ +aIR5XDsH371SAPfaRz3mUkb4iqrF/h/vFeDSmXW1rGOGOL/aUklxQgHWu+qc +bVvUx3Ezi1FPphSghjDBfq9FH58m3RjZ/k0BJDxPDXRk6mPNyJ6bhnMKUF2m +KEI10cd1+6z4nVYU4GMk94uMPD186rvyz/18BChRfeXhfVIXH+NdTU/mJ8DI +kqWlgYEuNiW0mnStI8CuQdp3B4Iu1jDzyD8mSAC1g9f6gj/q4MXix8dPiRAg +48skVUJXB4eHqLZfkiXAiVv6qqc278K3BdQfNaoRQKFyv52qFcKSgnyuFA0C +BJ5I/REihfBVwQHSxS0ESK0ufXu4h4XjheJSQZMAT/Lufb1txcJhwpMXK/8j +QM+V5w9OOOzEDmIZVk8MCJCZ4DixPk4bD4oFiAsbEaDTWT/75CFtbC2+v91j +NwG+RJvk6stq40MSf/WV9hKgwFUuyvrRDmwgeUT93gECPB/t8OP4uB0rym7k +S7MmgJWMYsjRHVo4V3aibtmGAKrmGX9beLUwWa4mxMqWAC29Pz7c79TEsvKn +fm6yJ4CfhvKGm76aWJDw6vMVFwKw32e80ivbhmfI54ujvQjwMyfoPb/pVly6 +edbeJ5oAPksJuz/Xq2Of/9gr38YQ4Jfe4v20O+pYbc9GUeplArjHZI/nB6rj +PDf1+o9xBJg9ruPzUE0dp94/Q9ZKJsCWdN9T2plqOIA+N/InjQDn5ktK56mq +eKsWx06zuwT49LO9P+2LCp4xEEnJTyfA419jD1qzVLCrs4be0SwCePds624k +q+AjOV7ZVXkECO027Z1mKmNt8k/Hc0UEOOSWZc402YwXNDifdz0jwHV2ucw+ +sc34qY6ouFoJAdad6u7m7lfEivZbGgfL1uYvk0CqdlfEMhneVJ1qApwpSDXN +SmTiFflfo1yv1uZx4FSL5w86rpaed770mQA2nX/TZ5YoOGWfRfabAQJM7vq0 +8f07CnYLKx8SGCJA8NDkMPd9Ct40FmKdMEKA5K9JW60sKfj0Ex6zlAkCOOoT +ax9WkDHRSJJ1Z44AxQP4ll8cCS8GBQUN/CQAr1H0NskTJNz6qL+UML/Gh23a +DJs+CQeJZmhk/SZAb8nzuzl/ibjjM5ORt0KAo7MKS0peRBzu+5/oUx4iDKmL +l9W4ELBVXprpT14i7K/dm5liSMBqff/itvITociaJySPTsCfoIGvdD0R5mJ+ +bJF4p4A1BfatVgqv1aMyQ2165fF45rHJRmkibPL5py7CKYeN28/X9KgQYStK +C+G6J4UfTE3xa6oRIWLE7XbAaSkswH3o0BX1tXXrnlA7bSncuoM2abyVCP+J +eZZHtUnig1mvRap2EKFGfc8LqX+bsLWfqPMdPSJMLjEFw7wk8PPE4MIlfSJc +jBz5UKsjgeUfjC6ZGxLhpaDyH1dRCTw4UJqwwZgIP4RfrI4Ui2On3dblYfuJ +kN6n/9P3nxj2kM0RcLAiwqXHcU3m2aK4TVPIouYoEUIVKi/EBYlitQP+GTI2 +REiZHl6RPSCK5yJ2a36wJYKE1EOs+08E+//4ZqvvRIR3QxztqbYiOKxOs4h+ +mgiPRoNj36huxEmuzUe+RhDhiJu4h7uoEBbIvRijHkUEDYFjV7K6BHH0CCr3 +i17z61xubXZbEIceK5Zkv0yE8KLbO4TpgtjtUGaXeCIR/oac7vi5SwDrQfBh +fHNN30Tq1mux63BNiFZE+C0iiNb/8W61WIe1K+eevbpNhO91r896ktdhdc0T +YofuEuFU5fK9iUp+LK9k/t41mwi7NE1IGbN8+PcmtQNXHhNhoWtMI8STF3sd +ng7rKiBCvJOb+Bfgxd+v5BbKPiGC7G6nsHsivPiLoJzwvaK1+3XfEt1VyoPb +Ode1VZYRYfHnk4AHXDw4/8fI3tE6Ihzr4VnXUMCFbZquG23vIsLtlKF953Q4 +sKRYrLh/NxFGvhc3jshz4A67sOHiHiLsY5tJjVtmx0ZLrsFb+onQRmBoFRSz +463K2oUqQ0QQ3OzbIaPMjtcn92+iThNBZ8imjslgwy8H2r84fCXCCiNoPJeP +DYcpNT7J/EaE+inmUF3HP7TQ+GgPYWZNL/+mbCmLf2h4MfSczPwav53HFmyd +VlH5MeL4xn9E2HGnixB9fQX5PBB/ZspGAuVFwc462xWkssh/PoGdBCzdr1pu +jBWUnTQnLchFgraXAcXLFcsosaHehI+fBIzPH/tERpeQi6JzyaoICSJjfYWO +7/2DxBfyI6ZpJPibY5yrZ7+ArBRzbfUZJPgYOPt3XGMBpR/L2HGXSQLxGjnf +H5wLSKnp+jczJRK0ntP1o9+bR3qp4Ycr1EmQc1ZQhDr3C3lpH6PG7CTB+M3i +nNwbP1GZx5F/wywS7DlofVXp9E+0mnmoZycmgcLXUK11hj9RzPo9cTO7SODe +tlTwan4OpfdrzVsYksAsuCNB32IOtYZubKSZkcDcIqb9GnMWiRUJ3A07SALd +x7GWetyzyGqcN7D3EAn8w0iFaGgGje5fVYq3IMHcKUeDTTdn0AphOmXemgRa +hhuzDTbMoM31DY4NLqS199M3QRWh7yiaN4DLPoQEMYZZA+sPTKGJY4312aEk +GBWu+rNebgoZlYhcHD9HAvYGoVqvyUnE5/SI/dQFEgSrtqmcuTiJouqGV/2j +SDD5Yn+tTNUEigzZ9ycuiQRbQnZdCsXjaOzDzbL2KyTYbLG9L27jODJQmvAX +TSFBnOih0d8jY4in78JC6jUSFNi6WPXEjKGI7WU/s26RwCMn/FJ1zygK/0n6 +Xp5Dgnpjon9wzBf0xfj0o5VcEjQ3mjiO2X1BepnPT+I8Etw/dzgoffsXxHXA +crohnwSeRd73OSZH0MXHcRNtBST4tA+LeuwbQRdOLA6PlpPgoWXlN2vKMAob +aOna2EqCpa2Vl57xDCJ3eVK2Z9saT8Hiuo3NA8jcxu90SzsJBFr9rJ6FD6DN +ffL8Me/X8gywsjNY/Yw6Oz212XpIoOe2bYPk4iek3Lox7fvIWv2WSvBJ7n4k +Keh8Yu/omj8vzpQTr/oQx96KbfljJPhtqUUcj+tD3a/sW50mSaDNP29mK9mH +whuL/vV/J8EXl4KrtC29qLfqsP2bPyTos3Sf3nyuGzUu31dhLq/59yN7PjPu +RoXaq0uRK2s8XSjWeyTRjSLKcpN1/pFAld2Q9rWgC6k9+91QzkUGu+6MxfDx +ThT14AY9bwMZOLlZQ1ZuH9HWm5++hlPJQM+oSior60DHJtzM+2lkoNmb8R1J +6kAxmos1WxhkmN3robfXrQN97hBJHlYkw+laQQuGXAeKXm+0A9TIEL95dkd2 +5DvUH/w0YlmbDC+kimWkXdsRzxv8w2wnGaqSL5xO1W9H6lItlvksMnzfp3HA +ltyOIovHNx8BMvBHBDyIrmlDat9lO0r0ySBuwSNTUtqKwm2j5L1MyVA+cCIk +oPYtevxILPrVATI43yoS+hv+FvUsZ8wSDpJBpazsNdvut0gltaqh7TAZtmze +kXq+4w3qbp91Uz5KhqbER117pl8jJR3r0gknMoRbEE0pW16hDxR1U9uzZFB9 +UytlJf4SSV4Tvns3mAzj99KNOacakQ3vzLeBEDIIfnC/wF7TiMYmH1+2CyND +9SbZU0snGtHiY6Wm4xFkWF2k6Lytb0ByOxjIMYEM7q6bkh0j65F9Pm9cdiIZ +uvc/qRexq0e5MuN9X5LIwCrQJQto1yO11ZxApxQyLETlkz5/r0M69eRi5xtk +eB2bZ/TjaB1y3qegdCKLDLf8Pi0a69ai/OrVoPvZZDDW3+54gliLfqh+fjWZ +8/950Y1f/3uBAkTSXNzyyKA3rxVy4PkLdLlLOsv9ERkM1r8/6/LfC1R4XELa +o5QMDlUCr2Iiq9EfX0E+7zdk2H26epvs3wrU3PrTofUtGZ7UJCc/rq9AqfTe +GmYrGR4INslWXqpAWj25/oPtZIh22JmNpCuQ704Y39dJBseYT1nvUTma5fB+ +yRgigy0tV8EmrRS9OHqEFD5MBjen3Zxy7qUo8RkOHRghQ+z1xFbDHaVI1VlA +89oYGbi4LyT2dpagU69ycji/kkG9c51Vv0QJmkzoDv+8QIaMqV81yfefobKJ +6sEdi2TIvXY88VbIMxS9K2fn1T9kOL71xVc2s2eI/vPMrz0rZPDeQ1YdWi5C +TubrHcvZKXCrYS50+GARGpJFuikCFLi6OzlfR+wp6rmfxW5MokD2DetErawC +VEft14knU2DlV0rkEccC9DBDLLyDQgHhBjeHRWoBCrsRwXOUTgHb3fFzefmP +ES3GZf1JJQrYJf6pqih/hLxcN4vHa1Jgcaar/d23B8j6i4N5hxYFJFfSOMxK +HiB9u9vXJXZQgOgSGQDnHiBJS0Hpu/9R4PQZm5eOIg9QjeEP+UKgwBnpYdsi +Vj4SoBcxOowpMLjinPbkXh5ayJw+IbGXAg7Rz3mK/PLQgDzlgdU+Cjg+jWsW +N8hDTyWuKo/sp0A6yjmwMnoPWfL4a/w6RAGKwIEn2xXvoZxR7Z0Stmt62qXo +LfU5CGXX7bfypkBFf9SNDM0s5KK6VSXVhwIjHeKFGhuzUGJFjkCn75reQuWn +Al8z0Uj72uMXQIHJkb+7bmRmoui/Jrq7QyigpqW9h1s0E3WY92luj1rzI1iy +5ylbBloe2ivuF02BWIU/nUkD6YhyqvpnUcya/gt3pp5UpyP/ixmFqrEUuETV +L34Sko5kC10U6UkUWJfLvK/39y5y5v8lJ3GLAry71A4+33QHJaQ4rRy8vXY9 +raxY5lMaKlPo6k1Ko4B923nTr5lpaL1mxXXBdAoIDT8oGVRNQ4X2YRu5cyjg +VKpgtWpyGy1VCnD/ekwBK4oj18GMmyjBg/r1XR0F/t7o0vqSeB3pDaV1KTZQ +QG5bW4C47XW0eFCi/mIjBaYXBpYLlK8jux28N7c1r/ESE2Eq9/YaUuOaNLzR +QoHvvFYHawWvoY4bD7Psuilw+Q1nrG9WCooUoCaU91DghU37tU7/FKR9Li1I +pI8C87e2v0vem4KyHOMPNHyiQIv7/jcKv5ORj+rpf/QRCvDVcE67miYj8cYt +R398o4DicfVsOdEr6LXWQwOjHxR4szHk5eTXJBSaT9HImKEAodY9h6cpCY0l +iPMf/EkB5wj1GdXgJFRi9bukZJECpqOXXVWmEpHlTIVIKCcVpOzP5d3IS0C3 +ZHReC0hRYR+f6nBj+WXk9kTglok0FWKbO5+IXbyMtht2uSfKUOH3JQH7tr2X +0Qevk4Ji8lQ49K1WJGLoEhJ6fc1UhkwFLo36zt4Nl1BYwHQnU5kKpvf3M0PP +RSMToZJ77ipUiFCPeam4PxrJZocFPFKlwptDHCWaCtGovE1cWl2DCi8fK6ad +eBGF5mhgs12LClcShCzovFHI8WPKiMEuKpTb5bg65UQgDXfbZ9E6VHDMsCE+ +DYpAbOyKEa911/pniokdNI1AaUo1NBMDKhRV7xNOWAlHnRcnTxzeQwVoLoj+ +ZBmOjDTQjMNhKrw6OV+wm3ARKSWMr4SdoMKfypYUg7EwFCFQ3vvJjQohWquv +qHVh6HPMpTLtk1SYDhDWNrsThpLClX1+eVChqfObVqJFGFoI9J528aFCpMqO +Ublb51CN478ek3NU8E3cwCUbH4Ikh9tLH4RR4fjbX2NfTUKQl23mVb4LVJBn +OffpCYcgipX+gbpwKqy4nw+ISAlG0fsvN2+7RIVTQ8GRillnkZn2plLZq1So +4Ih9INodiB6UTqQEXqPCJRtBn/fpgYhrW4VX53UqPBbkP8LvFohKVW1UEm9S +wWTgYfT7vwFIlpqVw5lOhcXZ404vFQPQ6AbVlKl8Krz7Ofn74A0/FDBqcKbs +BRXsPmRKjdR5o+kIt62rtVRwq2don7rljY7R4n/r1lPhS20a1cDHG+m7fAxp +a1zLY5fx5BDNG4lMOlwae02FwaC4/woTvNDDr2FZYh+p8B+vSCHF8wxSiMt2 +tuqkwvt1LraH9p5BV5SbmeldVHjqcu3KK+YZFOixoXBzLxVOv3azujB6GhnM +pFXpDKzlJWMTIW93Gg3+rPh4epIKywtdTdL1HuhgyufUkikqqJbyEh9FeKCX +WzmsV6ap8K2Ah1xh5IEe+e4ejvq+xoN/+X5oP4WCfnd9v/OTCuMtXEvDX04i +seVfvC1/1/zs9hEtJruj3Ryq2kwRGiz7ug2Gz7qglSeXb7qK0mDxpm9nVp0L +enx8YumeGA3CKWdT5FNckFhtRiVtEw2GV2RuUba7oMFzYiyKLA0UP6adtw13 +RgF//2AFGg3IfMnRS0pOaPMj8/RjdBp4VG0rCud0Qp+ti9juMGhQViO8zq7X +EelVnayV3UyD6vDVWt4YRyR8dkBHWo0GIu0M/XVTDihvsUFfXHut34eSZvMK +e3Q0j5h76D8avLBY/+7BVXskZBnKk7KTBqZvirOMztgjn1KtJhFMA79P3/0s +mPYI/PKNhPVocPxAf1nF7eOo+2fCnvUma356WFtJiXaI94fVAXZ7GjyvaZ5e +2mOD9CKrq4860GAsX/hVk6ANuiBHUipxpAEtMaJIst0are6Z5HF3oUHG+TlT +HXNrtJDnX/XhJA3a1LqvXnM9isbsU+h5/jRIl0sfPZJ9BFGWfqdwBNJAn2uM +MHnqCLJPOsphE0SDG6WnZqa1jqDPNaRPG0No4P21I8CoxRJ9lH1y5eyFtX4C +4106fy1QQ2fLX5M4GjQmnog5fcYccXiou9+Pp8F6/z9HXu8yR8B9tZszkQb7 +H3w+GCNijqq2WBeVXaHB1kVHty3Fh1FR4pQrKZUGDx+dFCP+O4QyjXk/zGfS +4PKH8KSC7IMorBryb5fR4F7x92xL9QOoO2BhZaCcBrPz97v1NhxAalse7idX +0iB0v/p1n2+maPDepvn7z2mgaat153a+KYKk77i0jgZLD6pOszFMEZvj7Y/v +3tIg0Pz0YxMbE2Qpb8YQb6WBp1jFUQWiCSrs5j1r2UaDnvnPZi6j+5DdPm/C +wDsaHEvv9TjiuQ+90DR2/9pJAwF9jV8Po/eic/yLbLxDNJha8C/f026MOusf +HTQepoEuL7cU7ZYxUgl1yI0boUFQwsW2E87G6PNc6x6xsbW6wvt/zNXdCPXn +XCNO00C8+9+Kn8ZutPr4oNLOeRrMX1vkvvrIEIUeKrA4w08HZV+lyKoJPXR8 +wb20bR0drrY9mu+s1Fv7v2VsUhGgQ3ie0NsDCXpoXX9G55QQHXoObvd20tJD +Vx1SDjuK0SFDQtzn+2Vd9NAr8KCFAh3mWrl5+/R1UIKYZlExgQ5y8lsT78jr +IK+SORExEh08uLstS37vQtuX3DvaKXQQCPDuHMjfherPHztgrEgHjsF+SV7x +Xag3UXc/axsdjL+89STMYPRcg63gliYdBlwvm8Y+wCj9Q5XQkhYd9rWPnbns +gpGzpGZriTYd9O+ciEZDCM3eZexTAzpIRV0TN+9jIb4CwT3kPXT43F1wR3fy +P6TV0mXAf5wO8xbrQ20dtyOr0Bbd4/Z0cEr1uzunth0Fq9ZDuQMdQkUebp77 +q4Xqkh5rn3CmQ92o2C+NG1por3mEyit3OqgE1VVkftBEdgMaEjF+dFBK5n4Z +fGwbupDIEB3yp8PHjBwvT/VtKGeXvPCOQDp8kfeUruXahqay+NdNnqWDYLnK +ztCHW5Gv6+Bfo/N0eH2i2ciYbSu6NBs3yhdLh92LxfUXyjTQw8yLw3ZxdFhd +MXm1LkkDtR0MHCiLp4PM4FOusRMaSKzEscc1iQ4/392wS5bVQHeC/mtpvkYH +odvmXSUR6qiIc/JZdAYdthyyyYt3VkP94nrhfKV0YNuV43uqSglJTl123l1G +h40eyXmjF5XQ4er3RpfK6RASkyLcskcJtTo7CApU0aGDz1NirH8zqi29cG1D +LR3KePb6Mrk2o9wjtXkSb+jw95R4MXJmohFl/ssWb+lw/fxzXcOtTETgOHAq +tYUO6w6Nyz3lYKIb+YPq0u10+P6oqfBBOgPFLv+rkPtIh0r781FSQ3R0Jg21 +UAbW5rMjwgV509DjM5EFToN0cG4ETTFDGprSb03KHaLDqScVYyBDQ47fbcwZ +X+iQL5Csc7uBisxxyMDmyTVeFb0jjWSoaOdQ5azGTzogY97TE11kxEPdIbGL +lwEz8XOrQpeIqHUwijuNjwFTfsGn8xyJ6Ortzl+L/AxYrxWTmYSJiCLm875Q +gAGRb49kmC4QkA5nQSJBhAGJqKnZw4WAzg1R1rPJMYBP57LzzgJ5ZJDmvXRU +ngG92vhXyyl5JHSkbrJUgQFudqp800ry6E67bbMniQFhaaoK9Q/lUFXNzYgB +OgMqlbD0m6eyaDFNmK1GgwHKyfQsnS5p9OKI7Q/prQzYw/3SieeONIoSf/zZ +bxsDpAIvbtVzkkYScXueq2xnAGyLHmfOS6FtwZFBd1gMiJU6/Oy8tBTyslr5 +FWLEgIlq5t5LQZvQtMTE5M5jDPgWw/4zM0YMvZ2Prj5vywC9ywHU53Zi6PEH +ZvJLOwZMdvU2M7aLIa8r7jtNHRhQ+nWmd3ZcFC0K/oh3cGXAk+uu1Tv2iCIe +7oUtl7wYUJ9gLCZFEEETI9f42rwZUHPdgp19ZSN6Vaf1SdSXAf/ti2pV696I +YsMCI9P8GeBoP9nilLQRia6sdBcGM6DHt21VnHcjIvzkDO2KZEDSFnYD1dUN +iKMj20w2mgF7hfqKA6s3oJFCffrxmLU8ObM5dc9tQLkeUe1Tlxkg33DGyIRj +A1KeWkdeTWSA2MQWUyUhIaQ9tLGZcosBqzeLbbfsFECH2xREvAoYYOtJH986 +zYf8nv+5WFjIAJ+le87xFXwo9cH7+e9PGMD/p3DI4BIf6o2K6nF/xoAGLZ6x +d4p8yA5+pDuVM0CoeUlr52nete/natUj9Qzw5TjD3rSeB8XeTc243sCA2ej0 +A1WD3OhRnJdoZyMDXpjT87lLuNHMCdpvs2YG1L1kjSYd50a+pPjqvS1r+nQ3 +D4ZWcaGwZJt90MUATcvWJuJ5TpR5XqsmtJsB/X/6jgse5UT1nhvVn/cwgLdg ++yHdbZyIZ2+jmHY/AyzSHVcvT3Ggy1zK/VuGGMDBW9gSZsmBrvmuuNGn13h3 +/MJ9bhc7emhxK1roHwMUx8nLZ6JXWZbKwbyubEyQ4YwOem24yuLitImsZWeC +yb7fQw94V1k2j+XDfbiYYE5vGOGK+csS4s4818vPBNfB/uSZpBXW6ad5frli +TDANL9J/XrnEko2Omf8nzoRcL70Q4sUlVrONm8+RTUxQCnFL/mu8xCLyK3kJ +SDMhIEbXWar/D6vDtuCUlwITnHQdnBs4/7C2CZY4IsW1/S3RgWKuv1nDw9dG +rm9mgouOjmS45m9WfJm//awSE4w6e/KtuX+zxhx22GWrMkHOI3KrfvYCK7Wi +6ui6bUzYlUla7RubZy251Jt1YiYI3NO2cwn9xaquawePw0x4YfQ1M2J2lhVe +yZlTaM6EyuT1j4RaZ1l7nmny/7RgwqOLrm2f8mdZ3Tm33/lbMWFyS+OWvU6z +rNloV/vztkzozPh8zerTDIuyny085QQTXk7wSaQU/WBNGW6Z6HRjQm+84NC0 +zw/WE3DeK3WSCRc3rVyo0fzBQhpvxe54MKGj62RQZ+V3loV4as49byZMnA2c +yHvzjXWpT7WpIoQJxHc9RqLsX1mmH+w3/w1lwitP/rbyV9OsTS1XE3AYE2gH +SytarkyzsquXLRouMGF9mJWDNm2a9TyjaaIligkPC6WqNphNsWZcbNcNJTHh +zbYP0/NVE6zDv+L38eYywXJOXNm6d5RV16qj5nmPCdN7gwoU80dZavcXRLry +mDDG3B7kEDTKEjh2rDv3ARMW72ntEpYdZTU0KTsYPGFCZmTmaZbjF5bGrbcB +EVVrPAiOJpN5R1jpvmFHvz1ngtDfFT7lT8MsIdOt6HANE+4Xr+NPLhpmTXHd +5qTWMSHlrefZM8eHWRke7vENTUxI6OrUs68dYgnrrMvmfM8EaWtG54mkQVao +bHWk+wcm2CdnCg6eHGR9XThz4v1HJhB2OPXkGg2ymh/0qGR1M0G1IMiVzD7I +Oid+v1znMxO0zjXfvzT9mfV9wrDt/CQTrFQqQtR7+1nW9ctPJqeYYMina5d4 +s5/1Oq0g5cBXJvj+/XT17NF+Vq7ZJiviDybErkrT5z73sWyqxr68+LXGA+eJ +AvS1l/X62s0mxgITjmnB6OfCXtb2Myb5ib+Z8Nfv43oOv16WGK3E026JCQvj +2flv2XtZF9jczJqX1/ISa5o409zDmumV26b2lwkRFiezrib0sI4Vv9uUusqE ++PrMek2LHtbbhIilf/+Y8OfqwNZDCj2s/wG+1mmv + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{5, 13}, {0., 0.1957165151046949}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8V+8bxu1RSFa2zx6yK8q3z/Pc2akkFRKRHUXZhFRmmVFpKDtpULJF +VjSMVHZZ2Q0UCenn9885r+d1n+fc13Xd7/M65xDtPc2cONjY2G6sHf5/RqK/ +mc+0JMHu2QcFluArnNFh4OysLQm/rxT9NBpuxvmClGISSxK20K8fXihpxpUX +P5vd0pEEvZo+Honjzfiz58H42H2S8ODO5JbjZU2YbMTi9nSQhDxre7dxr5f4 +8aLwzy0JkvCMq3mlQrwBa5rZBY8kSULqMpvGhbl6XP2ggDs5RRISb3g6hLXV +49ZjJpJzNyRhddu3AsKlevy94TKrMFsSpk3s8ibZ67FqEk+0UoUkzN2WwQ7L +tbiQuSJLHZWE9XsaOJXFXuDtF/fkfhiXBP/Qc573v9fgF/03VcOnJOHlDXTb +vLgGtyfs0Bn5IQnLUikHmnVr8My8n0vGkiRIFEukLTtWY7W62SdywlJAXlhy +0Syrwk+sxg0k/pMC1chwt+I75dhjqffmdZYUiDg0fFnwKseKN1u/S4IUZJpw +8IUYluPMnuJrMvpScKPvSt/h2TJ8xTJ8jLBfCgLPT7xUNSrDPubEyM0OUuAs +I6iuyVGKt5sdbYTLUlBzbHM/M+cZ/jVrIlUXJwUvU3NkDp9/hguTdE7pJkrB +I78U5QqbZ5j5jilucFUKfFzMLqpteoalTRcd99yVAuWKCWJjbBFe3neVy7xI +CiKXJa4bXXiKq3e36br3SQFlpfr+7ZRCnFjW/oT0WQocRoWPLvgUYnt6h0Lv +oBS49kU2Rh8uxDzcH5eNxqTgYX7kUfNNhdjkRW8RbVYKQnnm/MX/K8ADmmPk +YR5puKuaHCzh+gizUf5yHtGQhp3iLwc0hPJxx5XVM8LbpIErumCyse8+zmZn +G2zSkgaRxVSn4vv3sdEAR5UmSxr8ti7tuWdwHyfe5PMRM5IGpsRrpZfheZiw +UexLm400eP8ilJ3aeA/vWlVsMIiRBuU/8XmBrtnYqKh9pe2yNDi6MIqputnY +xNVv25F4aciTMJwWkc/GVh21ue7J0vBeq0at4EMW9sq1jElMkwZnqxfNI3pZ +ONsk0qT3iTRUWnDu+qKWifnuDnWf6pWGDZTIwOtb07HQoaiNv/ulociv6c89 +iXQsxq9sHDYgDfUekZS+2buY6B1QeeWLNARB8BHl4LtY23DDndLv0jAT8k7k +8dU72P3HTgd2ThkIoktKxPbdxq049VvKZhnIfu1HN3x8Ax8SLbTbqCID/gIq +QdbnbuCesab3cWoycP/q+sgG0xv4S9zv8shtMrB6TyD70q9UvNxnHhmAZWD2 +6g3iIE7FjABxBeuDMtCVXrf03+g1fL7wiin5rAycVG1dZrmkYJ7w/Pq7ITJw +rz9TpGBXCo61qNOUDZMBtp2WKg6yKTh1dVZWPEIGeoZiHl/pSMaP9x6Y5EmQ +gWYviwQOnWTcO7HhwlSmDDjvdZlrVLqCtxLjip68lgHy7oXAVZVE3F7/FBxb +ZCAgo+qZn1AidnfubpFolwGq+xmiTX8CznxAnjj7UQZG2u9llFgnYGHNClmD +QRkIz+Xfud0hHk8bj0f0zssA+HO/ehQZiyO/CYjGLcrA0WqTHbR9sZiUqJGO +l2XAIWuicYNYLLb8GFKRzSYLum2FAxpZl/FLW7EfHutlYbdrnmTmy0s402eX +JSdRFmqjiG5niDEYbXIZLSbLQo7iSvHN79G4pzzWy5UmC85zv88wqqKx8L+u +2JbNsiAiGYc9LKNxaIxH7XVNWXCqa78bfzUKH7lzS1FpryzckG5UvECMxMLN +8yuH/GVB9IX3de+zF/FgYc2hnkBZ+M9KYMLX/CIuuBHz0CZYFlomvnE/V7+I +TdzlrJ3Py0LXGFvlpskLOE5Iv9L/sixMNAQ/nbW6gNcdTgm8eVcWAg9lVbQZ +n8ecwxoLA02yIEi9PKpVGIo7Xq/sc3y9tvZXi33sG4ozi17mTLyVhRPv6nqu +/BeKdSKsDs++kwX1huS9Gc0hOIxx4RlHvyy0a0ULvxgPxise77yoM7Ig/OyT +vc2Os3hh2fOHm6QczH/OtJSlBuD+IsPjVBk56H1kq8b20x/Xuiu8H5CTg/HL +Pg7Gtf44tq+15BBZDna88HkkZOuPSZXKoUhFDpI3bR2Gu354X9C0gIieHJge +ENmWoe6LNTTqQ98ayIF6s9qpeG5fLDl1cyZytxzIHO2c+9jjg4ePGH9YNpED +/aBZsTMXfXDAjvu3Ro/IgcJQhW5DrzfOXnRWLPeUg2PaN2UNb3jhS4XotreX +HBCzIy2jvLywp6uEkIqvHIRapGzZtNcLa3c3zmYGycH6sveGZDYv3F5KKY+N +kINnPwqe9Lmfwct+w4Z2t+QgJO9KgeGB09hs3saJt0kOXt60tlZPP4lL39zb +WPxKDlLeVI+ddjqJZTNnn9u/lQOfucwU+uaTeNQkQqL6nRyUZaC8hVJ3HJD3 +sMmnXw64cu1UObrc8N2jy8zhWTlYIT314VM8gbk09DsTfsnB/ronIyYLrtiV +L+EC67cc6DXMea/WuWKNYlJf6oocBPUMPLlq44pfChnH7ueVB1pU0ob46y74 +a23q9ypZefglvfPlgpwzPpA6fNNNQR4M8Ged0zNOuMRDyVCSJA9HVCcCDeqd +cJjMi7vedHkwb9qrzuPmhEV9x00VNeShObf/dXWlI9ZmaBZdN5SHd8KKloGe +Djgq/r2/l5c8ZDHaTENFj2PCg9rvsz7ywNhu1npnzg6XNRU4nfGXB0lbIbbV +d3Z4ii324OlgedAfs7jvl2SHTbz1VD0i1/p7W9rridphCcvisRM35UHo165t +n3SP4QKfLJvJ2/Jgu8nlVQz/MWyUlPTB9a48xEiatuS02eCg16fqXLLl4Wxv +1CeGjQ3+vJN2x+mxPGyUi7+oF2KNc4nXDx+vk4fXjrt7ie+sMEYRbwcb1vZX +bVRyTrPC3VbeunZN8uB2dF2woJsVXpeyX932rTxs25S0+QKXFfbg4RO06ZSH +p8Gu936wjmDN6YAGyyl5+LCcY47qLPDLZ1ZbTEUUoIRv6j2PwGHsm27ewC2u +AG23rvyeHjiEKbFmhys3KUB9oPyA0rND+LyDsT9NTgHeiC7w1tgcwjtFtCtX +6AqwvEXdT7j4IC7ylNK9z1IAUSEl1dfeZtj+qPiHY6AA/XPK2hL7zLCw4UYn +MV0FqCTunnhKM8Me8vxR54wUgC1z4mpf7wGs2LL4+vBBBWCvHrTsNjiA0xW7 +zThOKMDmSw+rfymZ4v0SH0ZK3RWAcNm+6986U7zK3u5zykMB9qtIxWd17MfW +PU3Xur0VgPa6sjFh3368Kbq093GoAlyIVMjp3W2C40ev2R9NUYCdd/dN6x/d +i8+mH/Z6VqMAVBuflF29RvhYx3zLf3UKcPJeXG3AfSMMXNeY9Q0KIJnAUNoQ +aIR5XDsH371SAPfaRz3mUkb4iqrF/h/vFeDSmXW1rGOGOL/aUklxQgHWu+qc +bVvUx3Ezi1FPphSghjDBfq9FH58m3RjZ/k0BJDxPDXRk6mPNyJ6bhnMKUF2m +KEI10cd1+6z4nVYU4GMk94uMPD186rvyz/18BChRfeXhfVIXH+NdTU/mJ8DI +kqWlgYEuNiW0mnStI8CuQdp3B4Iu1jDzyD8mSAC1g9f6gj/q4MXix8dPiRAg +48skVUJXB4eHqLZfkiXAiVv6qqc278K3BdQfNaoRQKFyv52qFcKSgnyuFA0C +BJ5I/REihfBVwQHSxS0ESK0ufXu4h4XjheJSQZMAT/Lufb1txcJhwpMXK/8j +QM+V5w9OOOzEDmIZVk8MCJCZ4DixPk4bD4oFiAsbEaDTWT/75CFtbC2+v91j +NwG+RJvk6stq40MSf/WV9hKgwFUuyvrRDmwgeUT93gECPB/t8OP4uB0rym7k +S7MmgJWMYsjRHVo4V3aibtmGAKrmGX9beLUwWa4mxMqWAC29Pz7c79TEsvKn +fm6yJ4CfhvKGm76aWJDw6vMVFwKw32e80ivbhmfI54ujvQjwMyfoPb/pVly6 +edbeJ5oAPksJuz/Xq2Of/9gr38YQ4Jfe4v20O+pYbc9GUeplArjHZI/nB6rj +PDf1+o9xBJg9ruPzUE0dp94/Q9ZKJsCWdN9T2plqOIA+N/InjQDn5ktK56mq +eKsWx06zuwT49LO9P+2LCp4xEEnJTyfA419jD1qzVLCrs4be0SwCePds624k +q+AjOV7ZVXkECO027Z1mKmNt8k/Hc0UEOOSWZc402YwXNDifdz0jwHV2ucw+ +sc34qY6ouFoJAdad6u7m7lfEivZbGgfL1uYvk0CqdlfEMhneVJ1qApwpSDXN +SmTiFflfo1yv1uZx4FSL5w86rpaed770mQA2nX/TZ5YoOGWfRfabAQJM7vq0 +8f07CnYLKx8SGCJA8NDkMPd9Ct40FmKdMEKA5K9JW60sKfj0Ex6zlAkCOOoT +ax9WkDHRSJJ1Z44AxQP4ll8cCS8GBQUN/CQAr1H0NskTJNz6qL+UML/Gh23a +DJs+CQeJZmhk/SZAb8nzuzl/ibjjM5ORt0KAo7MKS0peRBzu+5/oUx4iDKmL +l9W4ELBVXprpT14i7K/dm5liSMBqff/itvITociaJySPTsCfoIGvdD0R5mJ+ +bJF4p4A1BfatVgqv1aMyQ2165fF45rHJRmkibPL5py7CKYeN28/X9KgQYStK +C+G6J4UfTE3xa6oRIWLE7XbAaSkswH3o0BX1tXXrnlA7bSncuoM2abyVCP+J +eZZHtUnig1mvRap2EKFGfc8LqX+bsLWfqPMdPSJMLjEFw7wk8PPE4MIlfSJc +jBz5UKsjgeUfjC6ZGxLhpaDyH1dRCTw4UJqwwZgIP4RfrI4Ui2On3dblYfuJ +kN6n/9P3nxj2kM0RcLAiwqXHcU3m2aK4TVPIouYoEUIVKi/EBYlitQP+GTI2 +REiZHl6RPSCK5yJ2a36wJYKE1EOs+08E+//4ZqvvRIR3QxztqbYiOKxOs4h+ +mgiPRoNj36huxEmuzUe+RhDhiJu4h7uoEBbIvRijHkUEDYFjV7K6BHH0CCr3 +i17z61xubXZbEIceK5Zkv0yE8KLbO4TpgtjtUGaXeCIR/oac7vi5SwDrQfBh +fHNN30Tq1mux63BNiFZE+C0iiNb/8W61WIe1K+eevbpNhO91r896ktdhdc0T +YofuEuFU5fK9iUp+LK9k/t41mwi7NE1IGbN8+PcmtQNXHhNhoWtMI8STF3sd +ng7rKiBCvJOb+Bfgxd+v5BbKPiGC7G6nsHsivPiLoJzwvaK1+3XfEt1VyoPb +Ode1VZYRYfHnk4AHXDw4/8fI3tE6Ihzr4VnXUMCFbZquG23vIsLtlKF953Q4 +sKRYrLh/NxFGvhc3jshz4A67sOHiHiLsY5tJjVtmx0ZLrsFb+onQRmBoFRSz +463K2oUqQ0QQ3OzbIaPMjtcn92+iThNBZ8imjslgwy8H2r84fCXCCiNoPJeP +DYcpNT7J/EaE+inmUF3HP7TQ+GgPYWZNL/+mbCmLf2h4MfSczPwav53HFmyd +VlH5MeL4xn9E2HGnixB9fQX5PBB/ZspGAuVFwc462xWkssh/PoGdBCzdr1pu +jBWUnTQnLchFgraXAcXLFcsosaHehI+fBIzPH/tERpeQi6JzyaoICSJjfYWO +7/2DxBfyI6ZpJPibY5yrZ7+ArBRzbfUZJPgYOPt3XGMBpR/L2HGXSQLxGjnf +H5wLSKnp+jczJRK0ntP1o9+bR3qp4Ycr1EmQc1ZQhDr3C3lpH6PG7CTB+M3i +nNwbP1GZx5F/wywS7DlofVXp9E+0mnmoZycmgcLXUK11hj9RzPo9cTO7SODe +tlTwan4OpfdrzVsYksAsuCNB32IOtYZubKSZkcDcIqb9GnMWiRUJ3A07SALd +x7GWetyzyGqcN7D3EAn8w0iFaGgGje5fVYq3IMHcKUeDTTdn0AphOmXemgRa +hhuzDTbMoM31DY4NLqS199M3QRWh7yiaN4DLPoQEMYZZA+sPTKGJY4312aEk +GBWu+rNebgoZlYhcHD9HAvYGoVqvyUnE5/SI/dQFEgSrtqmcuTiJouqGV/2j +SDD5Yn+tTNUEigzZ9ycuiQRbQnZdCsXjaOzDzbL2KyTYbLG9L27jODJQmvAX +TSFBnOih0d8jY4in78JC6jUSFNi6WPXEjKGI7WU/s26RwCMn/FJ1zygK/0n6 +Xp5Dgnpjon9wzBf0xfj0o5VcEjQ3mjiO2X1BepnPT+I8Etw/dzgoffsXxHXA +crohnwSeRd73OSZH0MXHcRNtBST4tA+LeuwbQRdOLA6PlpPgoWXlN2vKMAob +aOna2EqCpa2Vl57xDCJ3eVK2Z9saT8Hiuo3NA8jcxu90SzsJBFr9rJ6FD6DN +ffL8Me/X8gywsjNY/Yw6Oz212XpIoOe2bYPk4iek3Lox7fvIWv2WSvBJ7n4k +Keh8Yu/omj8vzpQTr/oQx96KbfljJPhtqUUcj+tD3a/sW50mSaDNP29mK9mH +whuL/vV/J8EXl4KrtC29qLfqsP2bPyTos3Sf3nyuGzUu31dhLq/59yN7PjPu +RoXaq0uRK2s8XSjWeyTRjSLKcpN1/pFAld2Q9rWgC6k9+91QzkUGu+6MxfDx +ThT14AY9bwMZOLlZQ1ZuH9HWm5++hlPJQM+oSior60DHJtzM+2lkoNmb8R1J +6kAxmos1WxhkmN3robfXrQN97hBJHlYkw+laQQuGXAeKXm+0A9TIEL95dkd2 +5DvUH/w0YlmbDC+kimWkXdsRzxv8w2wnGaqSL5xO1W9H6lItlvksMnzfp3HA +ltyOIovHNx8BMvBHBDyIrmlDat9lO0r0ySBuwSNTUtqKwm2j5L1MyVA+cCIk +oPYtevxILPrVATI43yoS+hv+FvUsZ8wSDpJBpazsNdvut0gltaqh7TAZtmze +kXq+4w3qbp91Uz5KhqbER117pl8jJR3r0gknMoRbEE0pW16hDxR1U9uzZFB9 +UytlJf4SSV4Tvns3mAzj99KNOacakQ3vzLeBEDIIfnC/wF7TiMYmH1+2CyND +9SbZU0snGtHiY6Wm4xFkWF2k6Lytb0ByOxjIMYEM7q6bkh0j65F9Pm9cdiIZ +uvc/qRexq0e5MuN9X5LIwCrQJQto1yO11ZxApxQyLETlkz5/r0M69eRi5xtk +eB2bZ/TjaB1y3qegdCKLDLf8Pi0a69ai/OrVoPvZZDDW3+54gliLfqh+fjWZ +8/950Y1f/3uBAkTSXNzyyKA3rxVy4PkLdLlLOsv9ERkM1r8/6/LfC1R4XELa +o5QMDlUCr2Iiq9EfX0E+7zdk2H26epvs3wrU3PrTofUtGZ7UJCc/rq9AqfTe +GmYrGR4INslWXqpAWj25/oPtZIh22JmNpCuQ704Y39dJBseYT1nvUTma5fB+ +yRgigy0tV8EmrRS9OHqEFD5MBjen3Zxy7qUo8RkOHRghQ+z1xFbDHaVI1VlA +89oYGbi4LyT2dpagU69ycji/kkG9c51Vv0QJmkzoDv+8QIaMqV81yfefobKJ +6sEdi2TIvXY88VbIMxS9K2fn1T9kOL71xVc2s2eI/vPMrz0rZPDeQ1YdWi5C +TubrHcvZKXCrYS50+GARGpJFuikCFLi6OzlfR+wp6rmfxW5MokD2DetErawC +VEft14knU2DlV0rkEccC9DBDLLyDQgHhBjeHRWoBCrsRwXOUTgHb3fFzefmP +ES3GZf1JJQrYJf6pqih/hLxcN4vHa1Jgcaar/d23B8j6i4N5hxYFJFfSOMxK +HiB9u9vXJXZQgOgSGQDnHiBJS0Hpu/9R4PQZm5eOIg9QjeEP+UKgwBnpYdsi +Vj4SoBcxOowpMLjinPbkXh5ayJw+IbGXAg7Rz3mK/PLQgDzlgdU+Cjg+jWsW +N8hDTyWuKo/sp0A6yjmwMnoPWfL4a/w6RAGKwIEn2xXvoZxR7Z0Stmt62qXo +LfU5CGXX7bfypkBFf9SNDM0s5KK6VSXVhwIjHeKFGhuzUGJFjkCn75reQuWn +Al8z0Uj72uMXQIHJkb+7bmRmoui/Jrq7QyigpqW9h1s0E3WY92luj1rzI1iy +5ylbBloe2ivuF02BWIU/nUkD6YhyqvpnUcya/gt3pp5UpyP/ixmFqrEUuETV +L34Sko5kC10U6UkUWJfLvK/39y5y5v8lJ3GLAry71A4+33QHJaQ4rRy8vXY9 +raxY5lMaKlPo6k1Ko4B923nTr5lpaL1mxXXBdAoIDT8oGVRNQ4X2YRu5cyjg +VKpgtWpyGy1VCnD/ekwBK4oj18GMmyjBg/r1XR0F/t7o0vqSeB3pDaV1KTZQ +QG5bW4C47XW0eFCi/mIjBaYXBpYLlK8jux28N7c1r/ESE2Eq9/YaUuOaNLzR +QoHvvFYHawWvoY4bD7Psuilw+Q1nrG9WCooUoCaU91DghU37tU7/FKR9Li1I +pI8C87e2v0vem4KyHOMPNHyiQIv7/jcKv5ORj+rpf/QRCvDVcE67miYj8cYt +R398o4DicfVsOdEr6LXWQwOjHxR4szHk5eTXJBSaT9HImKEAodY9h6cpCY0l +iPMf/EkB5wj1GdXgJFRi9bukZJECpqOXXVWmEpHlTIVIKCcVpOzP5d3IS0C3 +ZHReC0hRYR+f6nBj+WXk9kTglok0FWKbO5+IXbyMtht2uSfKUOH3JQH7tr2X +0Qevk4Ji8lQ49K1WJGLoEhJ6fc1UhkwFLo36zt4Nl1BYwHQnU5kKpvf3M0PP +RSMToZJ77ipUiFCPeam4PxrJZocFPFKlwptDHCWaCtGovE1cWl2DCi8fK6ad +eBGF5mhgs12LClcShCzovFHI8WPKiMEuKpTb5bg65UQgDXfbZ9E6VHDMsCE+ +DYpAbOyKEa911/pniokdNI1AaUo1NBMDKhRV7xNOWAlHnRcnTxzeQwVoLoj+ +ZBmOjDTQjMNhKrw6OV+wm3ARKSWMr4SdoMKfypYUg7EwFCFQ3vvJjQohWquv +qHVh6HPMpTLtk1SYDhDWNrsThpLClX1+eVChqfObVqJFGFoI9J528aFCpMqO +Ublb51CN478ek3NU8E3cwCUbH4Ikh9tLH4RR4fjbX2NfTUKQl23mVb4LVJBn +OffpCYcgipX+gbpwKqy4nw+ISAlG0fsvN2+7RIVTQ8GRillnkZn2plLZq1So +4Ih9INodiB6UTqQEXqPCJRtBn/fpgYhrW4VX53UqPBbkP8LvFohKVW1UEm9S +wWTgYfT7vwFIlpqVw5lOhcXZ404vFQPQ6AbVlKl8Krz7Ofn74A0/FDBqcKbs +BRXsPmRKjdR5o+kIt62rtVRwq2don7rljY7R4n/r1lPhS20a1cDHG+m7fAxp +a1zLY5fx5BDNG4lMOlwae02FwaC4/woTvNDDr2FZYh+p8B+vSCHF8wxSiMt2 +tuqkwvt1LraH9p5BV5SbmeldVHjqcu3KK+YZFOixoXBzLxVOv3azujB6GhnM +pFXpDKzlJWMTIW93Gg3+rPh4epIKywtdTdL1HuhgyufUkikqqJbyEh9FeKCX +WzmsV6ap8K2Ah1xh5IEe+e4ejvq+xoN/+X5oP4WCfnd9v/OTCuMtXEvDX04i +seVfvC1/1/zs9hEtJruj3Ryq2kwRGiz7ug2Gz7qglSeXb7qK0mDxpm9nVp0L +enx8YumeGA3CKWdT5FNckFhtRiVtEw2GV2RuUba7oMFzYiyKLA0UP6adtw13 +RgF//2AFGg3IfMnRS0pOaPMj8/RjdBp4VG0rCud0Qp+ti9juMGhQViO8zq7X +EelVnayV3UyD6vDVWt4YRyR8dkBHWo0GIu0M/XVTDihvsUFfXHut34eSZvMK +e3Q0j5h76D8avLBY/+7BVXskZBnKk7KTBqZvirOMztgjn1KtJhFMA79P3/0s +mPYI/PKNhPVocPxAf1nF7eOo+2fCnvUma356WFtJiXaI94fVAXZ7GjyvaZ5e +2mOD9CKrq4860GAsX/hVk6ANuiBHUipxpAEtMaJIst0are6Z5HF3oUHG+TlT +HXNrtJDnX/XhJA3a1LqvXnM9isbsU+h5/jRIl0sfPZJ9BFGWfqdwBNJAn2uM +MHnqCLJPOsphE0SDG6WnZqa1jqDPNaRPG0No4P21I8CoxRJ9lH1y5eyFtX4C +4106fy1QQ2fLX5M4GjQmnog5fcYccXiou9+Pp8F6/z9HXu8yR8B9tZszkQb7 +H3w+GCNijqq2WBeVXaHB1kVHty3Fh1FR4pQrKZUGDx+dFCP+O4QyjXk/zGfS +4PKH8KSC7IMorBryb5fR4F7x92xL9QOoO2BhZaCcBrPz97v1NhxAalse7idX +0iB0v/p1n2+maPDepvn7z2mgaat153a+KYKk77i0jgZLD6pOszFMEZvj7Y/v +3tIg0Pz0YxMbE2Qpb8YQb6WBp1jFUQWiCSrs5j1r2UaDnvnPZi6j+5DdPm/C +wDsaHEvv9TjiuQ+90DR2/9pJAwF9jV8Po/eic/yLbLxDNJha8C/f026MOusf +HTQepoEuL7cU7ZYxUgl1yI0boUFQwsW2E87G6PNc6x6xsbW6wvt/zNXdCPXn +XCNO00C8+9+Kn8ZutPr4oNLOeRrMX1vkvvrIEIUeKrA4w08HZV+lyKoJPXR8 +wb20bR0drrY9mu+s1Fv7v2VsUhGgQ3ie0NsDCXpoXX9G55QQHXoObvd20tJD +Vx1SDjuK0SFDQtzn+2Vd9NAr8KCFAh3mWrl5+/R1UIKYZlExgQ5y8lsT78jr +IK+SORExEh08uLstS37vQtuX3DvaKXQQCPDuHMjfherPHztgrEgHjsF+SV7x +Xag3UXc/axsdjL+89STMYPRcg63gliYdBlwvm8Y+wCj9Q5XQkhYd9rWPnbns +gpGzpGZriTYd9O+ciEZDCM3eZexTAzpIRV0TN+9jIb4CwT3kPXT43F1wR3fy +P6TV0mXAf5wO8xbrQ20dtyOr0Bbd4/Z0cEr1uzunth0Fq9ZDuQMdQkUebp77 +q4Xqkh5rn3CmQ92o2C+NG1por3mEyit3OqgE1VVkftBEdgMaEjF+dFBK5n4Z +fGwbupDIEB3yp8PHjBwvT/VtKGeXvPCOQDp8kfeUruXahqay+NdNnqWDYLnK +ztCHW5Gv6+Bfo/N0eH2i2ciYbSu6NBs3yhdLh92LxfUXyjTQw8yLw3ZxdFhd +MXm1LkkDtR0MHCiLp4PM4FOusRMaSKzEscc1iQ4/392wS5bVQHeC/mtpvkYH +odvmXSUR6qiIc/JZdAYdthyyyYt3VkP94nrhfKV0YNuV43uqSglJTl123l1G +h40eyXmjF5XQ4er3RpfK6RASkyLcskcJtTo7CApU0aGDz1NirH8zqi29cG1D +LR3KePb6Mrk2o9wjtXkSb+jw95R4MXJmohFl/ssWb+lw/fxzXcOtTETgOHAq +tYUO6w6Nyz3lYKIb+YPq0u10+P6oqfBBOgPFLv+rkPtIh0r781FSQ3R0Jg21 +UAbW5rMjwgV509DjM5EFToN0cG4ETTFDGprSb03KHaLDqScVYyBDQ47fbcwZ +X+iQL5Csc7uBisxxyMDmyTVeFb0jjWSoaOdQ5azGTzogY97TE11kxEPdIbGL +lwEz8XOrQpeIqHUwijuNjwFTfsGn8xyJ6Ortzl+L/AxYrxWTmYSJiCLm875Q +gAGRb49kmC4QkA5nQSJBhAGJqKnZw4WAzg1R1rPJMYBP57LzzgJ5ZJDmvXRU +ngG92vhXyyl5JHSkbrJUgQFudqp800ry6E67bbMniQFhaaoK9Q/lUFXNzYgB +OgMqlbD0m6eyaDFNmK1GgwHKyfQsnS5p9OKI7Q/prQzYw/3SieeONIoSf/zZ +bxsDpAIvbtVzkkYScXueq2xnAGyLHmfOS6FtwZFBd1gMiJU6/Oy8tBTyslr5 +FWLEgIlq5t5LQZvQtMTE5M5jDPgWw/4zM0YMvZ2Prj5vywC9ywHU53Zi6PEH +ZvJLOwZMdvU2M7aLIa8r7jtNHRhQ+nWmd3ZcFC0K/oh3cGXAk+uu1Tv2iCIe +7oUtl7wYUJ9gLCZFEEETI9f42rwZUHPdgp19ZSN6Vaf1SdSXAf/ti2pV696I +YsMCI9P8GeBoP9nilLQRia6sdBcGM6DHt21VnHcjIvzkDO2KZEDSFnYD1dUN +iKMj20w2mgF7hfqKA6s3oJFCffrxmLU8ObM5dc9tQLkeUe1Tlxkg33DGyIRj +A1KeWkdeTWSA2MQWUyUhIaQ9tLGZcosBqzeLbbfsFECH2xREvAoYYOtJH986 +zYf8nv+5WFjIAJ+le87xFXwo9cH7+e9PGMD/p3DI4BIf6o2K6nF/xoAGLZ6x +d4p8yA5+pDuVM0CoeUlr52nete/natUj9Qzw5TjD3rSeB8XeTc243sCA2ej0 +A1WD3OhRnJdoZyMDXpjT87lLuNHMCdpvs2YG1L1kjSYd50a+pPjqvS1r+nQ3 +D4ZWcaGwZJt90MUATcvWJuJ5TpR5XqsmtJsB/X/6jgse5UT1nhvVn/cwgLdg ++yHdbZyIZ2+jmHY/AyzSHVcvT3Ggy1zK/VuGGMDBW9gSZsmBrvmuuNGn13h3 +/MJ9bhc7emhxK1roHwMUx8nLZ6JXWZbKwbyubEyQ4YwOem24yuLitImsZWeC +yb7fQw94V1k2j+XDfbiYYE5vGOGK+csS4s4818vPBNfB/uSZpBXW6ad5frli +TDANL9J/XrnEko2Omf8nzoRcL70Q4sUlVrONm8+RTUxQCnFL/mu8xCLyK3kJ +SDMhIEbXWar/D6vDtuCUlwITnHQdnBs4/7C2CZY4IsW1/S3RgWKuv1nDw9dG +rm9mgouOjmS45m9WfJm//awSE4w6e/KtuX+zxhx22GWrMkHOI3KrfvYCK7Wi +6ui6bUzYlUla7RubZy251Jt1YiYI3NO2cwn9xaquawePw0x4YfQ1M2J2lhVe +yZlTaM6EyuT1j4RaZ1l7nmny/7RgwqOLrm2f8mdZ3Tm33/lbMWFyS+OWvU6z +rNloV/vztkzozPh8zerTDIuyny085QQTXk7wSaQU/WBNGW6Z6HRjQm+84NC0 +zw/WE3DeK3WSCRc3rVyo0fzBQhpvxe54MKGj62RQZ+V3loV4as49byZMnA2c +yHvzjXWpT7WpIoQJxHc9RqLsX1mmH+w3/w1lwitP/rbyV9OsTS1XE3AYE2gH +SytarkyzsquXLRouMGF9mJWDNm2a9TyjaaIligkPC6WqNphNsWZcbNcNJTHh +zbYP0/NVE6zDv+L38eYywXJOXNm6d5RV16qj5nmPCdN7gwoU80dZavcXRLry +mDDG3B7kEDTKEjh2rDv3ARMW72ntEpYdZTU0KTsYPGFCZmTmaZbjF5bGrbcB +EVVrPAiOJpN5R1jpvmFHvz1ngtDfFT7lT8MsIdOt6HANE+4Xr+NPLhpmTXHd +5qTWMSHlrefZM8eHWRke7vENTUxI6OrUs68dYgnrrMvmfM8EaWtG54mkQVao +bHWk+wcm2CdnCg6eHGR9XThz4v1HJhB2OPXkGg2ymh/0qGR1M0G1IMiVzD7I +Oid+v1znMxO0zjXfvzT9mfV9wrDt/CQTrFQqQtR7+1nW9ctPJqeYYMina5d4 +s5/1Oq0g5cBXJvj+/XT17NF+Vq7ZJiviDybErkrT5z73sWyqxr68+LXGA+eJ +AvS1l/X62s0mxgITjmnB6OfCXtb2Myb5ib+Z8Nfv43oOv16WGK3E026JCQvj +2flv2XtZF9jczJqX1/ISa5o409zDmumV26b2lwkRFiezrib0sI4Vv9uUusqE ++PrMek2LHtbbhIilf/+Y8OfqwNZDCj2s/wG+1mmv + "]]}, "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:eJxFmnc4F17Yxo2sQrKyffcQGRXl1/ecJzuVpEIiskdRNkUqs8yoNJSdNJBs +kRUNI5VdVnYJRUJ6vf+87z/nXM/1/Hufz33f13WIth4mDhxsbGx31o7/vV0G +fq1nYxMFm+cf5VkCr/HTRaGf2+Ik4Pm6ppVysXpcYDGmJ/6fJCiHh7oW3SvD +VXtbtd16JYGyUvXwblI+3rOqUK8XJQVKf2JzApwzcQtO/p60RRoy3/jS9Z/e +wtuJMYUFb6SBvHchYHVrPBZqml854icDIi+9bnqdu4wXlj1+uErIwvyXdHMZ +qj82mbdy4GmUhVe3LS1VU0/hiNgPfp6ecpDBaDUOFjmJXz232GYsLA/FvJMf +uPmP4nOpRz2fV8sD1co7aU+PAb7Lr/qkQYUA8hUHbZQtEC7ZMmvrHUkA76W4 +vV/qVHGV1LzjlS8EsOr4mzqzRMGGbReru7cSYTtKCVr3QBInODcd+xZGhGOu +Yu5uIoLYqvGmwc5OItxNGjxwQYsDiy3khk3RSPA3yzBbx3YBRfL4r7MNIkGU +fkb/hkOTKKS/uXNTCwmWtldcec49gLbf/vwtlEoGelplQmlpO/pIUTW2PkcG +5bc1khZir9AfHwFer7dk2HumaofM33LU/TCD3ZBEgcxblvEaGXkIZdYetPCi +QHlfxK009QwU50799r6WAn9vdWp8jb+J7khrveGXpMIBXuWhhrKrSDFubCXE +hQp/KpqT9EZDkP+I3tnSl1Sw+ZguOVzrhfZyKGsyhWmw7OM6EDrrhHh+WBxi +t6XBi+qmqaV9ViikCnLvltLgQdF0prnqIRR8JM/sLB8dlHwUwyvHdZBGc6ce +30k6zJttCLa234n6xHRCeUvowLYny+d0pSLipu4S38PDgJnYuVXBK0Q0JT4+ +sfsEA75Hsf9MjxJFR1vlhT3zGGDtQR/bPsWLHpvdiRT8xwCFMfLy2chVVlVt +G7gfZcJLg2/pYbOzrKO/Yg/wZDPBfE5MybJnhPUuLmzp3z8m/Lnev/2IfDcr +n7kiQx2RgA376jmVRF/inSbHG+CqJFSf2NLHzHqO2Sh/OY+pScFusVf9aoK5 +mPf+YNfpHinYSAkPuLk9FV/Mv2ZMPicNp5RblllOSTjde485J1EGaiKIrmeJ +UZhzSG2hv1EGBKhXRzTyg3HmoqNCmYcsnNC8LaN/yxN/q0merpSRg19Su18t +yDribOLNoydr5eCN/d4e4nsLnKrQZcLhIg9brjyu+qVojE9PK/08yEuAYuXX +7l6ntLGCzCbeFEsCWEgrBB3fpYE1yT/tLxQS4IhrhinTaAsO9flP5Bk3EQZV +xUqrnQjYXSaL386CCFeexjSaZorg35tVDl17SoSFzlG1IA8eXHaCOLbpHxF2 +3eskRN5cQS3BmxpoJiQwNYtqu8GcRaE/SdNlWSSoMyT6nY/6inoqj9q+/UOC +XnO3qS0XulCodYScpzEZyvpdgvxr3iHHA/KKLhlkuOP7edFQuwZNxHWFflkg +Q9rkr+rEh88RP72Q0W5IgYEVx5SCBznIke+XrPgdCvDsUTn8YvM9JNaw7fiP +7xRQOKmaKStyDdl/ShrW20OFMpssZ4esMGSiublE5joVyjmiH4l0BaCBn+Wf +zkxQYXmhs1Gqzh3lLNbrimnSYOhjcZNpuS2q72j+axRDg4Z4l6gzZ03RBb5F +Np5BGkwu+JXtazNEPfHaB1k76GD49Z0HYQajK7MxI7zRdNi7WFR3qVQNnU1B +zZT+Nf3uCnNCXjS0mCLEVq3GAKVEeoZWpxQi/OQM7gxnQMI2dj3l1Y0oJNHq +AHQyQN28pZF4kRPtECi2RwpMyG6ODBB1/s260qvcWB7EBOL7bgMR9m8sIa31 +mZwfmCBlyehwSRhgKSdwRyqWS8DcXWlst1yDvU2J4VvsJMFRWkBVnaME96uP +koe4peC+cuJ5cecnONMo3KinQAoqzDj3fFVJxwx/MXnLw9LQmVq79N/IDTxl +OBbWMy8N4Mf1+kl4NF5/NCng9n0ZCDiSUd5qeBEfCJziF9aRBeNDwjvSVH3w +/ePLzKFZWVghPfPmVXDB4uZFoy635UDw154dn7VP4EIPSe2HLHkQEVRUfuNl +gnOrzBUVxuVhg7PWudZFXWwnmmZRoEeA9Dj78Q0xmtifPjf8J4UAF+aLS+ap +yphoIMG6N0eAon58xzeGhC19RRzv6RBhYokpEOIpjnXg/FF8mwjB48nbb0Sv +xxsS+zZTp4igNWhVy2SwYU/NE9So3SQYu12UlX3rJwoPOvAnJoEE24L2XAnG +Y0ipZVPK9DAJNO5sPX+Kqw/1nX8WtqxJhpeSRdJSzm1IdhcD2ceRwc15c6J9 +eB2a5fB6xRgkgzUtW94qpQR5Om8Ri1WnwOJMZ9v7749Qu2mv+s4ICpwRKN73 +jC0Ntd96nGHTRYGrbzmjfTKSUIj/VAdTiQrGDw8ygy9Eomr7f91GF6jgE79x +nUxsEHr8LSRD9BMV/uMRzqd4nEX+f/9geRoNyLyJkUuKDmjUNome40eDVNnU +kWOZxxCb/d1P79/RIMD0zFMjKyP02DPgsJk8HeZauHh6dbWQTb+aeJQvHRQT +uV6dP7EDZR+ryRF/S4e/p8WKkCMTXRikbGCTZQCv1lXH3XlyiJtrYdsVTwbU +xRmKShKEkWtBlfKxOgb4cJxlb9zAjc48y/HNFmWCcWih7ouKJRblIFtokgsT +Xo3ziicV/mCp3XnnH1bJBGeBkUQyzzCLbMDi8rCTgBxLW9cxz1dYpXa2QFZI +EsgLS07qpZV4+cD1daaFkhC+LH7T4NIzTNgk+rXVSgq8fhFKT296gN1+7LZj +55SGQLqEeHTvXdwzvvHSZLo0OO53mmtQvIaP3bujoLhfBm5JNShcIobjFff3 +ntQZGRB6/tnWatc5vOw7pG9zRxaCcq7l6R86gzUZ6oU39eXgvZCCeYCHHVaf +8q83n5SDj8tZpqjWDMeO3LA9niQPu+8fmNI9vh+HBim3XZEhgMsdXeXTW/bg +GfLFokhPAvzMCvzAZ7wdr8j9Gln3mgAdh043e/yg47H0ExMNUkTY7P1PVZhT +FofUqhfSzxDhycj56LfKm3Duj+H9I7VEONHNvb4+bx12UnAsXhUmQXi0j+DJ +/X/Qlrp6+3on0tp7+C6wVXAaXXJZHBopI8Fj84rvlpQhFPHoFj1nIxk4uViD +Fq6fkKKWZcm4AxlCzYjGlG2vUf5JcSn3EjLYVfK/jgqvQoMySDuJnwLX9ybm +aok+Q1kjmrvFrSkg0SZJb67LQksV/Fy/nlLAgmK/7nDabWQ+Uy4czEkFSdsL +Obdy4pCBGpqxO0qF16fm8/YSLqORjcpJk7lUeP9z4vfhW75IdPkXT/NfKnzd +6y1SRHZDXT/j9m0wokFoN2s7Kd4GpRvyfJxPp8HVj6EJeZmH0erTw4q752kw +f2OR6/oTfcSbJ7CPvI8OX7ry7mlP/IcKOSeeR6bRYdsRq5xYRxW0e7BiVu0n +HZAhz5nxTjLytFj5FWTAgPEq5v4rgZuR5uCmJsodBqzeLrLetpsf3fBZcaVP +reUD+69cF/awoyWnOpMOzAT+B5o2TsG/WDNO1usHE5jwdsfHqfnKcdb0uH7r +xQkmWGwtD1Lt6WNN119l5WdKwJSRTc4Eex2+Zh46SjgoCQEXx18pG5Rio5c9 +hbRZSQjmnvMT+y8Pe2abR8WnSIGjxcumYZ0MvNxrGu6PpWH2+i3iAE7GQurl +MnoD0hCazbd7p10sjhHUrfC7KgPj9eefzVpcwqQKpWC0VRYSN28fgvu+2D/n +caN3nyysy7ZR5uh0xUZeOsru4XJwzMvcVkfEBu8W1qxYocvD8jZVX6Giw/ia +stnBHx/k4crZ9TWsE/o4RGjicsV/BOi+9uKRi91unPzwLFkjkQDbUn1Oa6ar +4DMF3CZJ4wSw1yXWPC4n48MZb4QrdxGhWnXfS8l/m7HrkfROsXgi/A060/5z +Dz/erqSZv3WQCAJbfNqlldixTnLo0XJVEmSdExCmzv1CEbVDq34RJJh4ebBG +unIcdXR4aLJ1k0DHdcdGicXPKHKDwS5QIUPsltldmeHv0eJTxcaTYWRYXaRo +vaurRz67YexABxnsoz5nfEBliBbltOGUIgVs4v9Ulpc9QZF/jbT3BlFARUNz +H5dIOlJZN6F/q5kC0zwWh2sEbiDBNzeMpclUWKdW19Gz8QpaCPCacvKmQvjW +XSOydy4g4Qm7K6NvqDAQGPNffpwnGrggyqLI0EDhU8pF61BHtJDjV/nxFA1a +Vbqu33A+jiBhGpfU0mDpUeUZNoYxum6XdNRelA5p4mLe01e10X7TsK2v3eiw +NbC2PP2jOqopuXRjYw0dSrn3+zDXbUFanHnxBGEGxKPGJncnAloU+BFr58yA +gpvOVbv2iSAb+JHqUMYAwaYljd1neJAgV/qFHr41Xg70Jc4krLBmI51tL1oz +oSPtyw2LzzOs+kYlO70CJqSHp59h2X9lffE4HBt9QAIe3ZvYdrK0Ec/M+zql +LUmAeJF4yrJ9FZYyXrTfd18SlMrHiQ3RhTj+Nq+3qIEUMMXfKL4KzcGa+hvv +lUxLwUzQe+Gn1+/hp/sPTXDHSUOTp1kch1YiDo5yr7mpLgMOtW33Y69H4BDG +peccfTLQphEp9HLsPG4roZRFh8nC8x95Bb1uZ7GIz5ixgpocNGX3vamqsMfu +3LwCVh1y8Oy884MfrGN4c2RJz9NgebgULp/Vs9cILxY9PXlamABpXyeo4tpa +WIDw+ss1JwKwP2S81indgaXTvKhaVQQ4m5dsnBHPxOr8B1YrhIhQGJEebNUj +h/1+fLfWdSDC+0GOtmRrYdzGub61opQIiz8L/B+t48bx9XVGvHwkYHz51Cs8 +soRWCFNJ85Zr/q6/KVNv4wy6/DRmvDWPBJ8PYBH3A8NI5fnv+rJ1ZLDpSlsM +HetAXW2zrkrHydAY/6Rz39QbdLVTKsPtCRn0Nnw45/TfS+RgusG+jJ0Cd+rn +gocOFyJzbj+1X0coQOE/VLBT4QHKtw3ZxJVFAYcSeYtVo7uo2OJ3cfEiBYxH +rjpvnYxHHZcnXI7uowI05UV+Ng9FMtSMLM5UKizOnnR4peCPAn93Tt/7SYWx +5nVLQ19PIfDNNRDSocHJQ32l5XdPosL4SWdSMg0ePzklSvx3BKG+rBvEKRqI +df1b8VXbi2bvMw6oAB0kI26Imfay0L3A/5qbbtBB8K5pZ3GYKjLFQf1bJujQ +reAVbiBNRTvOhwfeYzEgWvLo84tSkkhpcj15NZ4BouPbjBUFBdHVdUp92wYZ +wMGT3xxizoGSyyuPr9/BhD3ppNXe0XnWi7TG8eYIJjzOl6zcaDLJuiD2sEzr +CxM0LjQ9vDL1hfXKWvSH+wYZ2OucI5H+6gr23/XwzsgxWZAfLNeu7/HCrwQN +ow/yyAEtImFj7E0n/GU37Z7DUznYJBt7WSfIEis0L745elge2KsGzLv0DuHa +AxZ8Divy8Cmc62Vajg7Wkzim+uAQAV6MtPtyfNqJj2V5ZlbmECC4y7hniqmE +278wGTkrBDg+K7+k6EnEDnsty0IOEiG1V/enzz9RLKdo+sE5kwh71I1IabO8 +eGgx+IL0PBHmOk4sWDusotQ+jXkzfRKYnG+P0zWbQ2E7S39m3CGBe1bolaru +ERTaUPivb5oEX53yrtO29SCVaZn2Yl0yiJlxSxeXtCCtOnKR4y0yvInOMfhx +vBadfp2VxfmNDKod6y36xItRtf4PuXygwFmpIetCVi6SyXdSoCdQYH0286HO +3/vIW/nMP/owBXirOaecjRPRHA2sdmpQ4VqcoBmdJwJFHrzatOMKFU4Png9X +yDiH9GZSKrX6qXBS2ipMzuYMEjrXryWlQgPhNobu+kk79Emm4Nq5SzSg8Y91 +av01Qy/VDd2+ddCAX1ft1+PI/aju4olDhgp04Bjok+AR24N8nAf+GlykwxuX +JgNDtu0oevlfuewnOlTYXoyQHKSjyurbYf10BlQoYqm3z2SQyMpKV/55BnT7 +tK6K8WxCPqTYqv3Na/6svWUguHIdarfOO+0pzwQHbTvHes4/LDOx5KwHXkwY +PxcwnvP2OyvN3S22vpEJcZ0dOrY1gyyrytGvL38x4QmnSx761sNqOWEkMXdL +AlZ3fM8jXKnD6d1FN6R1JeFW77Xeo7OlmJvr07LBqCQ8zg0/bro5H1u012S7 +JUrBB41qlbyPGfhrzO+y8B3SsPqAP/PKr2Sc/og8fu6TNAy3PUgrtozDRm6y +lo4XZaBzlK1i88QlHN3bUnyELAu7Xno/EbT2wyNGYeJV72WhNA3lLJS44Um2 +6MNnzsuB7qjZQ98EG3zRztCPJisPb0UWeKqtjmBu546B96/lwa3mSbeppAGO +FYxJBnUCFOQ8+HbXgoVzXFXrPsUQYPaklvdjFVW8eTTIMm6YAInfErZbmFNw +yy7ahOF2Ivwn6lEW0SqBg08USbBfJUJo4d1dQnQBbLDkfH5bHxFaCQyNvCJ2 +rNh487uJIglaLmj70h/MI16HJ+ynL5HgvHLr1rOXJ9CWXjm+qA9rPPS3sNFb +/YK+tAsnDimQ4UyNgBlDth2NTjy9ahNChqrNMqeXXBqQRne230AbGSLtdmci +qXIUciuM+zidAtZ7Y+dycp+i4bbI14f8KTAx/HfPrfR0ZLOL5/aOJgpkRoUZ +y767gT56nhIQlaPCke81wmGDV1BCqJL3L3cqNHZ814g3C0G6Tp+CWhuoMLXH +cGKQ5oVEa9IqaJvX+viK9B3KTie0um+C282JBmkX54y1TC3RwIPN8w9f0EDd +WuPe3VxjtL4vrWNScI1nh3d6OWjooNqEp5oujnSoHRH9pXZLA7U42gnwV9Kh +nddDfLRvC6KIen/I52dA+LtjacYLBOR5zW23sR0DSr7N9MyOiaCeiIhut+cM +qNfgHn2vwIusnsqFeq9jgim9fnhd1F9WV9bd934WTJjY1rBtv8Msi//Eia7s +R0xYfKCxR0hmhFVx+YvJHS0J0Knu5RY/2YTb4nZpDf+QgGXJpENN2tWY+Z4p +pnddErydTC6rbH6ODfo5KtVZUuC7fWnfA72HmOjlX3HtqxQEwvljSufv4+TV +WRmxMGnoHox6eq09EQv964xu3iIDwhIx2N08EmuFWRydfS8DqvWJ+9OagrBm +V8NseqAsbCj9oE9m88Qh0i/ve9HlwLRxvyq3qwNen3RQ1fqdHOzYnLDl0joL +bNndeKPLSx5obyoa4g4cxGom7rknBAigcvhG7/lPWlhG7vTPzbYE8FVT2njb +Rx0r2G5rGChd20vHkarcFPBnqOct2bDGy6gf28Tfy+O5sL3qH62JIC75GGv/ +E8ZfBWSFHhQS4XTXHZE9Jdw4M2FOSmAdCVpf+Rctly+jkYOrirFmJJg7ba+3 ++fYMWnfIfKo+lwQehV4POSaGUVhpdqLWPxIos+vTvuV1oq3JlfWtR8mwbcuu +5Ivtb5G/cIqTaw4ZdOY1gg69eInoP8/+2rdCBq99ZOXB5UL0TPy60vBBCqSi +rEMrIw/QBvXymwKpFBAcelQ8oJyCRuPE+A7/pIBjmOqM8vkElKJYTTPSo0Jh +1QGhuJVQVKJstTX+NhWM+h9Hfvjrj5747B2KmF7Lm35lB6HtNPIu0WgUxjTw +/Tzta8a0RZXbLAtLr9Fg+6K967aio+jLXMs+0VEaaMt/+Mdc3YscJdRbijXp +oHvPJRINIiRabN/tnECHn+9v2STKqCH7aStTxlc65PInat2tpyLxmH0vtu5k +AOyIHGPOS6Js94i2yasMkKs/a2DEsRFx728Q1exjgFmq/erVSQ40arfLJlOZ +CbLu4dt1MxdYmVXLZvWXmLAhxMJOkzbFanrUvTWjiwnKeYHOZPYBlvmnoPJM +NhnQbs3vV8u4ioeOGX5cNpIF3cBZ0bOXvbFaEak3eUUWArv7C65bOePAN6dr +nTLl4FxPxGeGlRV2l+OLuGAgD2zp49d7ew5h9fDu2/pz8lBVqiBMNdLFR8T/ +6iruJ0Ces2yE5ZNd2NlRTed4BgG8und0NZC34kCRNLWM3wToKX5xP+svEQ/0 +l8RtNCTCD6GXq8NFYlhV3UX0yP01/VQsPxiv4MMLDU/2EWbWZr7NmZJm/1DU +hn0xM3tI4Na6lPd6fg5x915aSL5BgjxrJ4vuqFHU9dq2xWGCBJp88ybWEr0o +vGhsyzEgA1+Y/6PI6lakspoV4JBEhoWIXNKX6Vqk7MivfmOUDOu4LsX3dBQj +CXMBqfv/UeDMWatX9sKPkN/ltHzlaApcoeoWFQSlogz72EP1nynQ7Hbwrfzv +RFTWKialqkaFV08VUlxeRiCKhe6h2lAqrLhd9A9LOo8C3Dfmb+mhwpk3rhaX +Rs4gncpTNTJbaFAVulrDE2WPvlSTPm8KooHXt3Z/g2ZzZHPAi9D/ngYnUnvc +j3kcQDuX3NrbKHTg9/fq6M/dgyYz+NZPnKODQNnW3cGPt6NbuQOqUm10mH7S +mP8olYHutVk3eZAYEJKiLF/3WBZFhwSEp/gxwN52otkhYROacaH9NmliQO0r +1kjCSS5E5FP05Jdign+UtqNk3x8WUnsnes+dCe2dpwI7KqZZk+vuclJrmZD0 +zuPc2ZNDrGyTzRbEH0yIXpWiz33pZYnSij1slpiwMJaZ+469h1X1KI8rMUkC +4m952IW01mGF2y3TEiAJ6UYcvEH6ZdiW3i7fMyAJzr3hDZFH87GRs++OY7FS +kCOuPyUsl4m7Rxs/xKhIw8PrG8LrjW9hN8euZvE2aaC6nSVa9cXhvFtRj63O +y0Dz+HeuF6qXcY2b/Id+WVkYu+ptZ1jjh2XSZ1/YvpMF77n0JPqWU7i0Mc/h +rJ8cSFgLsq2+t8GUaJOjFZvloS5Arl/x+REM624w6+rlQSKOobgxwABfF+gn +Xd5GgOSqkndHu1lYZd8mEepVArhFZY7lBqhi15CyQf5BApwfnBjiekjB/FxH +jlxTJUJYy75gG01JHDmMynwj1/zbsczS5K4AbrcJGSrqJsIBtpnkmGV2nHoi +bdd9JgnEqmV9fnAuIINi4ctjF0jAXi9Y4zkxgUytfM80t5GAv8XX4nloP4pS +X6zexiDD7H53nf2u7ciKZ+Z7fxAZBD66XWKvbkDJ9J5qZgsZHgk0ylRcKUeP +00RD2ykUEKp3tVuk5qH48iz+Dh8KEPOVnvF/S0eLh8XrLjdQYGqhfzlP6Sba +qd/pFi9Nhd9X+G1b919FX6KulGqeWvNnfyFNk3sh6AQt9rd2HRW+1qRQ9by9 +0NOT40sPRGkQSjmXJJfkhC7JkhSL7dfyZXxYoUSbJVLZ9vgguYIGwQdVb3p/ +N0Y6yYzNW/npEJoj+O5QnA46r1wHZXZ0CBZ+vGXurwY6WvXB4EoZHYKikoSa +9ymi63c7fi3yMWCDRlR6Aiaipx+Zia9sGDDR2dPE2CmKkh99mJ8uYADfn/xB +vSu8aB2nVXgNOxOMDvwefMSzytr3XJ3vp9lafrzs3Po5d5al8nBBuDOHCaPM +nYF2gSOsXAFKEYklAdvoN48uFDfhl323lUMnJeDVLXTXtKga5ydondaOl4Qn +vklK5VbPcSY720CjhhQILyY7FD18iEX5lAxD+qWgzj2c0jt7H0eb1arLhEgD +227zrXYySbi7LNrTmSYDjnO/zzIqI3F64aus8Xcy4PK+tvvaf8HYw1lccKuP +LASbJW3bvN8TF7sr6kuQ5OCY8niAXp0D7rLw0rZplAPX4+vPC7ha4FX2Nu/T +7vJwcKtkbEb7QWxMaDHqXE+APQO0aTuCNibLVgdZWBOguefHx4cd6viZloiY +SjEB1p/u6uLqU8Aqvf9itvOt9WlL7qAcOgGrHPJLk7YiQtLU0IrMIRE8fS07 +X6aACDJ7HUIeCPPgrYt8F+PYScDS/qbhylhBFmM8AT1HSOAXQspHgzNIJ/3F +KZxDgocXjgam7vyK8jVXl8JXSCB/qUjniXgX6l5OmyUcJsPW0tI3bHvfoR/K +X15PZJGBZks3fPPvJYrck7X7+h8ynNz+8hubyXPUL0d5ZHGAAvbPYprE9HJQ +qXxnT0IKBWxbLxp/S09BwbkUtbQZChBq3LK4GxMQG7tC2BvtNT9OFxU9bByG +1u0o9+y4SYWnAnzH+FwD0KvtHJYrU1T4nsdNLjdwR4LmwdxJu2lg/LYow+Cs +LQKu612c8TQ4+OjL4ShhU7Q12C47ZpgGgXGXW10cDVHqx0rBJQ06HGgbPXvV +CaPWwwH9pbF0kB54tm7URQ1N6rYkZA/S4XRB+ShI01CE2NMvvjsYIBlwebuO +gxQazteln4xigCtnJqf2hY2ozmOT6otuBvDk7TyivYMTxZb62c4qMsGgozvX +kus3a3Pz9TgcwgTa4ZLy5mtTrG8LZ10+fGICYZdDd7bBAIsUr5aKl6XBLmO8 +YaNoNJaYvD0TvlcWpI93zH3q9sbOvHGXWL9lQad+zmu11hkbJCR8dL4vB1ES +xs1ZrVZYSH+Tg6i2PFQQ944/o5ngM6Rbwzu/y4O4x+n+9nRdbCl2sM19LwG+ +Rhpl68po4hk94aTcVAI8/TX6qCVjK2550ldCmCdAunXKDJsuCcs9Glky1SfC +KwGlP84i4lizYu7567tEmK59c86DvB6HKDYUpH8nQt0kc7C2/R9aTT/SvRuv +6eNbsMZ6/Z9IT3HcTySJBDEiR0Z+D48ijv3lO3JHSfDbXIM4FtOLVCWbzXNZ +ZJg+oHbImtyGsqXHer8mkIGVp03m16xD8c9xcP8wGaJvxrfo7ypBujZ3b4rv +WuObU7g/XHiEKKerfhZGUcDu0r3JgqpUpHkhJVC4lwLzd3a+T9yfhGQyQ/yf +KFPh7RGOYnX5SORpnX6d9xIV5FiOvTpCQeiaUhMztZMKz5xuXHvNPIu+WBay +3WPQoLRaaL1Njz2yTTjOYRVIg1slp2emNI6h/C6ec+atNOie/2LiNHIAeRbP +CYuS6ODO1WVe/HsPytojJ7QrgA5f5TykatbtQASOQ6eTm+mw/siY7DMOJhI8 +VjtRIr+mFxtl3ilFOfS6VuOziA8D/jsQ0aLStQk9ifEU6WhgwEtTei5XMRdq +snL1PraZCYpBrol/DZdYBeC4X/IUEy5vXrlUrf6DJWi8HR2tZsLDovV8iYVD +rDcpeUmHvjHB5+/n6+eO97F2njXKjf/NhL++nzZw+PawZnpkd6j8ZUKY2amM +63HdLAPO6f8uc/z//w11E5vzwwkSkLzMpnZprg67L/XcvsmSBGG7+q8LnmU4 +vrStgPRFEuxGhI4veOdjg8K2ldarUmDvxCiiamfiIyL5Npu2SoMf/9ZAywu3 +cFvdM7Bvlgb/tMrnvoLxeCC/+kh3gAz8Z8E/7mN6GfcV6p+kSstCzxNrFbaf +frjk7YNNRa9lIelt1egZh1OY8KhmetZbDhg7TVruzdlgn1TTei4xeWi9c+33 +VP8RfKJ9vvm/Wnk49SCmxv+hAZYQ4HWmqBEgwCX5R5Akwt7/sVe8iyLAL53F +hyn3VHHSAbPMt/0EmNjzedOH9xT8aHKST11lzc+HXe/6n5HE/NmXo1QjiKDG +f+JaRqcAlhCNFvPrIsLwdFHDsBwHtlDIttZlkOBTwOzfMbUFNH6ioS4zmAQj +QpV/NshOIjc5UqZH6xpPz4tpNzT1oxPjrqZ9tP/loQnvsYR2JHFD6P7982QY +e5BqyDnZgJpaftq1vCNDQXVi4tO6clRL7dOKJVNg5VdS+DH7POSkvH1rsjcF +htvF8tU2ZSCdwZROhXoKyO5o9RezvolcC/jvGElRIbqpo0D08lUUxl/W89mV +CkEaq6+ptSFoKsx1+2oNFVzrGJqn73ihlYKrt51FaLB426cjo9YJ6YRXVR23 +o8FortDrRgEr1OW/sNJfRoPZ+YddOhsPoZMLbiWt6+lwvfXJfEeFDrIIbtY+ +aUsHh2Tf+3MqO5HE5FXHvaV02OSemDNyWRG1DERwpfAyYNL3/JkceyJ6Nx9Z +ddGaATpX/akvbESR74s/l/PzGeC99MAxtpwXmSud53FmY4I0Z2TgG/1VVmgF +Z1a+KRMqEjc8EWyZZdW2aKl4PGDC1P7APIXcEVZau56jo6YE/L5W+NNgqAnv +vLwv++OYBPgFX/B4OF2Nf80aSdbGSMKr5Czpoxef4/Zrq2eFdkjBusi8iYbe +h1jwSMSm331SUOjb+OeBeCrmDs2tux8kDQ/60oXz9iRhtNlppIgsA1kKK0W3 +pyNx+5uVA/ZvZEDATyX6qU8wvpKP7np5ygIxM9w8wtMTH0oeuu0qLwd6+IvW +mRkHjFHYu4H6NR5XblJ0TLHAB8U/Dpe4yQPhqm3nv/XG+ATPamoiHwGGl8zN +9fS0cbbMeO2yFQGUTdP+NvNo4AU1zhedzwlwk102vVd0C7bISTH+yUOEgzX7 +05P0CbhVXdCs+jgRguUrLsUEimDPo1MhnXlEiHVwFfsKPNj7kdhzYzYSKC0K +dNRaryDRQv77IYdJoP002lyHaxZ9NTzzZCWbBE0NRvajNl9Rw/LDrczltdmX +7PHcsAs9fSIa+foQGRzvFAr+DX2HcqtWAx9mksFQd6e9C7EGlY5XDexaJEP2 +jZPxd4Keo4X0KRfx/Wv8jXzBXeibg+KSHFYO313rT7TSIunPKeiNxmM9gx8U +eLsp6NXEtwSk5mb9PFKLCvZpVsRngWHoUcl4UsANKlyxEvD+kBqADid9SS6e +pIJyCQ/xSZg7Op5DzD7yHw1emm14/+i6LeJwV3V7GEuDDX5/jr3ZY4o66p4c +Nhxa6988XJK0O4bohRpb3h11OvQ7XzWOfoTR4/TLQzYxdFhdMXq9PkENPT0b +nucwQAfHBlAX1aehl8esf0htZ8A+rlcO3PekEEd7polMJAP2C/YWBVRtROkX +NaqDuxjQ96f3pMBxTjQ0dGP45hYmOGlpSYSq/2YZf7Td8jeYCa89+FrLXk+x +gmWqwt0+MsE2MV1g4NQAK/w7v0jMojQcrzLaRTsQjdXU6oLf6cmCapPK6Vgu +H7xOTbcj7pcsHKwtGDZacMZ53hlWE3flwHqz0+sovhPY9rjYxxMgD31zSpri +B0xwzMxiRMGkPFQTxtkfNOviAVF/MSEDAnQ46maeOqKJt2tw7Da5T4DPP9v6 +Ur5uxYuBgYH9PwnAYxC5Q8KFhF/En89f0iXC5fDhjzVa4rg6SCMs9A4RROr+ +eLWYrcev+tu+2n0jwgojcCyblw2Xuh/7N8Qiwb7DltcVz/xEox9vl7ZdI8EW +s529MZvGkISAo8v+kbU+7smZ5PK6F3G/xT9MdpOhMvHSmWTdNmSbyxOTGU+G +roMFdcI2dejl8WOk0CEyuDrs5ZR1K0GWX+1M2zUoILGSwmFS/AgtD+4X842k +QLT8n46E/lQUzk+NK+umwEurthsdfknISLD4gdtWKoSpRr1SOBiJJIbaSh6F +UOHku1+j34yCkHxMpqNFBxU+rHeyPrL/LNryxDT1BJ0G7pU7CkM5HRBl6XcS +RwANdNeNEiZOH0PmciYMsRYaeIiWH5cnGqE4UfXCIgIdZOW2x9+T00KX4hki +g350+JSW5emhugMNK/FdNXtHh5sXX2jrb2civRSvpeNyDOjRxL+aT8uh8eEb +vK1eDKi+acbOvrIJRd9PTrtZz4DZyNRDlQNcSCYyav6fGBOyPXWCiJeXWJP6 +28Y7XJnQEyswOOX9g5XqE3L8+wsmCP5d4VX6PMSyrFsumJhkgj6vtk387T7W +mxu3GxkLTDihASNf8ntYl9hcTZqWmZAu2jh+tqmbdaLo/ebkVSbE1qXXqZt1 +s5DIb+ZzDYn/8/f/AS9edUs= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1me40GMcx+HT3nvvvRMNaaId2ktFpRQl2nvvvQvtoj0RZWVEtqRIAy0V +7WgRxf27vLjP9Xw/V696rud/TqEuvVv0SpSQkLAocULCEhryldCMH/SxSAn5 +/XhJK85m+1Hu4iH9a605B+1xJKGA/rJWgi12W8rxsL5Ha8EhezxJKaiv0kqy +1W7H3Tyif6O15LA9gWQU0ldrpXjFbs89NNL3aq04Yk8kOYX1NVppXrUfozyN +9W+11vxoTyIFRfS1Whlesx+nv3bDHk4iKmhNtH3ObfjJnkxKiurrtLJssztQ +kab6fu1RfrankIpi+nrtLl63OzJAu2mPIDGVtGbad85tOWpPJTXF9Q1aOd6w +OzFQ+9MeSRLu1Zpr3zu345g9jTSU0Ddqd7PdfoJB2l/2KJJSWWuhHXBuz3F7 +OmkpqW/S7mGH3ZnB2i17NMm4T2up/eD8GCfsGaSjlL5ZK8+bdheGaH/bY0hO +Fa2VdtD5cU7aM0lPaX1L3Alv2U8yVPvHHksKqmqttUPOHfjFnkUGyuhbtYq8 +bXdlmHbbHkdKqmlttMPOHTllzyYjZfVX4o54x+7GcO2OPZ5UVI93ox1x7sRp +ew6Z4i3pr8Yd8a79FCO0f+0JpKZGvCPtR+cnOGPPJXO8Lf21uCN22k8zMvH/ +j3eiloaa8a7sn5w786s9jyzx1vRtcUe8Z3dnlJaISVpa7o93Zv/s3IXf7Plk +jbenvx53xPt2D0ZriZmspeOBeHf2UecnOWsvIFu8Rf2NuCM+sJ9hjJaEKVp6 +Hox3aB9z7so5+3myU0HfHnfEh3ZPxmpJmaploFa8Q/u4czfO2y+QI96mviPu +iF32s4zTkjFNy0jteJf2CeenuGC/SE4q6W/GHfGR/RzjteRM1zJRJ96lfdL5 +aS7aC8nFvfpbcUd8bPdigpaCGVpm6sa7tH9x7s4lexG5qay/HXfEbrs3E7WU +zNSyUC/epX3KuQeX7cXk4T79nbgjPrH7MElLxSwtK/XjXdqnnZ/hir2EvFTR +34074lO7L5O11MzWstEg3qV9xrknv9tLyUdVfWfcEZ/Z/ZiipWGOlp2G8S7t +X52f5Q97Gfmppr8Xd8Tndn+mammZq+XgoXiX9m/Oz3HVXk4Bquvvxx3xhT2A +aVo65mk5eTjepX3WOX5pXrNXUJAa+gdxR3xpD4xvo5ae+VouHol3aZ9z7s11 +eyWFqKl/GHfEV/YgZmgZWKDlplG8S/u8cx9u2C9RmPv1XXFHfG0PZqaWkee1 +PDSOd2lfcO7LTftlivCA/lHcEXvsIczSMvGClpcm8S7ti879+NNeRVEe1D+O +O+Ibeyiztcy8qOWjabxL+5Jzf/6yV1OMWvruuCP22sOYo2VhoZafZvEu7cvO +A7hlr6E4tfVP4o741h7OXC0ri7QCNI93aV9xHsjf9lpKUEf/NO6IffaI+DZq +2VisFaRFvEv7d+dB/GOvoyR19c/ijthvj4xvo5adJVohWsa7tP9wHsxtez2l +qKd/HnfEd/ao+DZqOViqFaZVvEv7qvMQ7tgbKE19/Yu4I763R8e3UcvJMq0I +reNd2tech/KvvZEyNNC/jDvigD0mvo1aLpZrRWkT79K+7jyMBDbFN1DLzQq7 +GAud87Ay0f9/V+aN/0PK+rf/AX1fMrA= + "], 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]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + 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" -> {{5, 13}, {0., 0.1957165151046949}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8V+8bxu1RSFa2zx6yK8q3z/Pc2akkFRKRHUXZhFRmmVFpKDtpULJF +VjSMVHZZ2Q0UCenn9885r+d1n+fc13Xd7/M65xDtPc2cONjY2G6sHf5/RqK/ +mc+0JMHu2QcFluArnNFh4OysLQm/rxT9NBpuxvmClGISSxK20K8fXihpxpUX +P5vd0pEEvZo+Honjzfiz58H42H2S8ODO5JbjZU2YbMTi9nSQhDxre7dxr5f4 +8aLwzy0JkvCMq3mlQrwBa5rZBY8kSULqMpvGhbl6XP2ggDs5RRISb3g6hLXV +49ZjJpJzNyRhddu3AsKlevy94TKrMFsSpk3s8ibZ67FqEk+0UoUkzN2WwQ7L +tbiQuSJLHZWE9XsaOJXFXuDtF/fkfhiXBP/Qc573v9fgF/03VcOnJOHlDXTb +vLgGtyfs0Bn5IQnLUikHmnVr8My8n0vGkiRIFEukLTtWY7W62SdywlJAXlhy +0Syrwk+sxg0k/pMC1chwt+I75dhjqffmdZYUiDg0fFnwKseKN1u/S4IUZJpw +8IUYluPMnuJrMvpScKPvSt/h2TJ8xTJ8jLBfCgLPT7xUNSrDPubEyM0OUuAs +I6iuyVGKt5sdbYTLUlBzbHM/M+cZ/jVrIlUXJwUvU3NkDp9/hguTdE7pJkrB +I78U5QqbZ5j5jilucFUKfFzMLqpteoalTRcd99yVAuWKCWJjbBFe3neVy7xI +CiKXJa4bXXiKq3e36br3SQFlpfr+7ZRCnFjW/oT0WQocRoWPLvgUYnt6h0Lv +oBS49kU2Rh8uxDzcH5eNxqTgYX7kUfNNhdjkRW8RbVYKQnnm/MX/K8ADmmPk +YR5puKuaHCzh+gizUf5yHtGQhp3iLwc0hPJxx5XVM8LbpIErumCyse8+zmZn +G2zSkgaRxVSn4vv3sdEAR5UmSxr8ti7tuWdwHyfe5PMRM5IGpsRrpZfheZiw +UexLm400eP8ilJ3aeA/vWlVsMIiRBuU/8XmBrtnYqKh9pe2yNDi6MIqputnY +xNVv25F4aciTMJwWkc/GVh21ue7J0vBeq0at4EMW9sq1jElMkwZnqxfNI3pZ +ONsk0qT3iTRUWnDu+qKWifnuDnWf6pWGDZTIwOtb07HQoaiNv/ulociv6c89 +iXQsxq9sHDYgDfUekZS+2buY6B1QeeWLNARB8BHl4LtY23DDndLv0jAT8k7k +8dU72P3HTgd2ThkIoktKxPbdxq049VvKZhnIfu1HN3x8Ax8SLbTbqCID/gIq +QdbnbuCesab3cWoycP/q+sgG0xv4S9zv8shtMrB6TyD70q9UvNxnHhmAZWD2 +6g3iIE7FjABxBeuDMtCVXrf03+g1fL7wiin5rAycVG1dZrmkYJ7w/Pq7ITJw +rz9TpGBXCo61qNOUDZMBtp2WKg6yKTh1dVZWPEIGeoZiHl/pSMaP9x6Y5EmQ +gWYviwQOnWTcO7HhwlSmDDjvdZlrVLqCtxLjip68lgHy7oXAVZVE3F7/FBxb +ZCAgo+qZn1AidnfubpFolwGq+xmiTX8CznxAnjj7UQZG2u9llFgnYGHNClmD +QRkIz+Xfud0hHk8bj0f0zssA+HO/ehQZiyO/CYjGLcrA0WqTHbR9sZiUqJGO +l2XAIWuicYNYLLb8GFKRzSYLum2FAxpZl/FLW7EfHutlYbdrnmTmy0s402eX +JSdRFmqjiG5niDEYbXIZLSbLQo7iSvHN79G4pzzWy5UmC85zv88wqqKx8L+u +2JbNsiAiGYc9LKNxaIxH7XVNWXCqa78bfzUKH7lzS1FpryzckG5UvECMxMLN +8yuH/GVB9IX3de+zF/FgYc2hnkBZ+M9KYMLX/CIuuBHz0CZYFlomvnE/V7+I +TdzlrJ3Py0LXGFvlpskLOE5Iv9L/sixMNAQ/nbW6gNcdTgm8eVcWAg9lVbQZ +n8ecwxoLA02yIEi9PKpVGIo7Xq/sc3y9tvZXi33sG4ozi17mTLyVhRPv6nqu +/BeKdSKsDs++kwX1huS9Gc0hOIxx4RlHvyy0a0ULvxgPxise77yoM7Ig/OyT +vc2Os3hh2fOHm6QczH/OtJSlBuD+IsPjVBk56H1kq8b20x/Xuiu8H5CTg/HL +Pg7Gtf44tq+15BBZDna88HkkZOuPSZXKoUhFDpI3bR2Gu354X9C0gIieHJge +ENmWoe6LNTTqQ98ayIF6s9qpeG5fLDl1cyZytxzIHO2c+9jjg4ePGH9YNpED +/aBZsTMXfXDAjvu3Ro/IgcJQhW5DrzfOXnRWLPeUg2PaN2UNb3jhS4XotreX +HBCzIy2jvLywp6uEkIqvHIRapGzZtNcLa3c3zmYGycH6sveGZDYv3F5KKY+N +kINnPwqe9Lmfwct+w4Z2t+QgJO9KgeGB09hs3saJt0kOXt60tlZPP4lL39zb +WPxKDlLeVI+ddjqJZTNnn9u/lQOfucwU+uaTeNQkQqL6nRyUZaC8hVJ3HJD3 +sMmnXw64cu1UObrc8N2jy8zhWTlYIT314VM8gbk09DsTfsnB/ronIyYLrtiV +L+EC67cc6DXMea/WuWKNYlJf6oocBPUMPLlq44pfChnH7ueVB1pU0ob46y74 +a23q9ypZefglvfPlgpwzPpA6fNNNQR4M8Ged0zNOuMRDyVCSJA9HVCcCDeqd +cJjMi7vedHkwb9qrzuPmhEV9x00VNeShObf/dXWlI9ZmaBZdN5SHd8KKloGe +Djgq/r2/l5c8ZDHaTENFj2PCg9rvsz7ywNhu1npnzg6XNRU4nfGXB0lbIbbV +d3Z4ii324OlgedAfs7jvl2SHTbz1VD0i1/p7W9rridphCcvisRM35UHo165t +n3SP4QKfLJvJ2/Jgu8nlVQz/MWyUlPTB9a48xEiatuS02eCg16fqXLLl4Wxv +1CeGjQ3+vJN2x+mxPGyUi7+oF2KNc4nXDx+vk4fXjrt7ie+sMEYRbwcb1vZX +bVRyTrPC3VbeunZN8uB2dF2woJsVXpeyX932rTxs25S0+QKXFfbg4RO06ZSH +p8Gu936wjmDN6YAGyyl5+LCcY47qLPDLZ1ZbTEUUoIRv6j2PwGHsm27ewC2u +AG23rvyeHjiEKbFmhys3KUB9oPyA0rND+LyDsT9NTgHeiC7w1tgcwjtFtCtX +6AqwvEXdT7j4IC7ylNK9z1IAUSEl1dfeZtj+qPiHY6AA/XPK2hL7zLCw4UYn +MV0FqCTunnhKM8Me8vxR54wUgC1z4mpf7wGs2LL4+vBBBWCvHrTsNjiA0xW7 +zThOKMDmSw+rfymZ4v0SH0ZK3RWAcNm+6986U7zK3u5zykMB9qtIxWd17MfW +PU3Xur0VgPa6sjFh3368Kbq093GoAlyIVMjp3W2C40ev2R9NUYCdd/dN6x/d +i8+mH/Z6VqMAVBuflF29RvhYx3zLf3UKcPJeXG3AfSMMXNeY9Q0KIJnAUNoQ +aIR5XDsH371SAPfaRz3mUkb4iqrF/h/vFeDSmXW1rGOGOL/aUklxQgHWu+qc +bVvUx3Ezi1FPphSghjDBfq9FH58m3RjZ/k0BJDxPDXRk6mPNyJ6bhnMKUF2m +KEI10cd1+6z4nVYU4GMk94uMPD186rvyz/18BChRfeXhfVIXH+NdTU/mJ8DI +kqWlgYEuNiW0mnStI8CuQdp3B4Iu1jDzyD8mSAC1g9f6gj/q4MXix8dPiRAg +48skVUJXB4eHqLZfkiXAiVv6qqc278K3BdQfNaoRQKFyv52qFcKSgnyuFA0C +BJ5I/REihfBVwQHSxS0ESK0ufXu4h4XjheJSQZMAT/Lufb1txcJhwpMXK/8j +QM+V5w9OOOzEDmIZVk8MCJCZ4DixPk4bD4oFiAsbEaDTWT/75CFtbC2+v91j +NwG+RJvk6stq40MSf/WV9hKgwFUuyvrRDmwgeUT93gECPB/t8OP4uB0rym7k +S7MmgJWMYsjRHVo4V3aibtmGAKrmGX9beLUwWa4mxMqWAC29Pz7c79TEsvKn +fm6yJ4CfhvKGm76aWJDw6vMVFwKw32e80ivbhmfI54ujvQjwMyfoPb/pVly6 +edbeJ5oAPksJuz/Xq2Of/9gr38YQ4Jfe4v20O+pYbc9GUeplArjHZI/nB6rj +PDf1+o9xBJg9ruPzUE0dp94/Q9ZKJsCWdN9T2plqOIA+N/InjQDn5ktK56mq +eKsWx06zuwT49LO9P+2LCp4xEEnJTyfA419jD1qzVLCrs4be0SwCePds624k +q+AjOV7ZVXkECO027Z1mKmNt8k/Hc0UEOOSWZc402YwXNDifdz0jwHV2ucw+ +sc34qY6ouFoJAdad6u7m7lfEivZbGgfL1uYvk0CqdlfEMhneVJ1qApwpSDXN +SmTiFflfo1yv1uZx4FSL5w86rpaed770mQA2nX/TZ5YoOGWfRfabAQJM7vq0 +8f07CnYLKx8SGCJA8NDkMPd9Ct40FmKdMEKA5K9JW60sKfj0Ex6zlAkCOOoT +ax9WkDHRSJJ1Z44AxQP4ll8cCS8GBQUN/CQAr1H0NskTJNz6qL+UML/Gh23a +DJs+CQeJZmhk/SZAb8nzuzl/ibjjM5ORt0KAo7MKS0peRBzu+5/oUx4iDKmL +l9W4ELBVXprpT14i7K/dm5liSMBqff/itvITociaJySPTsCfoIGvdD0R5mJ+ +bJF4p4A1BfatVgqv1aMyQ2165fF45rHJRmkibPL5py7CKYeN28/X9KgQYStK +C+G6J4UfTE3xa6oRIWLE7XbAaSkswH3o0BX1tXXrnlA7bSncuoM2abyVCP+J +eZZHtUnig1mvRap2EKFGfc8LqX+bsLWfqPMdPSJMLjEFw7wk8PPE4MIlfSJc +jBz5UKsjgeUfjC6ZGxLhpaDyH1dRCTw4UJqwwZgIP4RfrI4Ui2On3dblYfuJ +kN6n/9P3nxj2kM0RcLAiwqXHcU3m2aK4TVPIouYoEUIVKi/EBYlitQP+GTI2 +REiZHl6RPSCK5yJ2a36wJYKE1EOs+08E+//4ZqvvRIR3QxztqbYiOKxOs4h+ +mgiPRoNj36huxEmuzUe+RhDhiJu4h7uoEBbIvRijHkUEDYFjV7K6BHH0CCr3 +i17z61xubXZbEIceK5Zkv0yE8KLbO4TpgtjtUGaXeCIR/oac7vi5SwDrQfBh +fHNN30Tq1mux63BNiFZE+C0iiNb/8W61WIe1K+eevbpNhO91r896ktdhdc0T +YofuEuFU5fK9iUp+LK9k/t41mwi7NE1IGbN8+PcmtQNXHhNhoWtMI8STF3sd +ng7rKiBCvJOb+Bfgxd+v5BbKPiGC7G6nsHsivPiLoJzwvaK1+3XfEt1VyoPb +Ode1VZYRYfHnk4AHXDw4/8fI3tE6Ihzr4VnXUMCFbZquG23vIsLtlKF953Q4 +sKRYrLh/NxFGvhc3jshz4A67sOHiHiLsY5tJjVtmx0ZLrsFb+onQRmBoFRSz +463K2oUqQ0QQ3OzbIaPMjtcn92+iThNBZ8imjslgwy8H2r84fCXCCiNoPJeP +DYcpNT7J/EaE+inmUF3HP7TQ+GgPYWZNL/+mbCmLf2h4MfSczPwav53HFmyd +VlH5MeL4xn9E2HGnixB9fQX5PBB/ZspGAuVFwc462xWkssh/PoGdBCzdr1pu +jBWUnTQnLchFgraXAcXLFcsosaHehI+fBIzPH/tERpeQi6JzyaoICSJjfYWO +7/2DxBfyI6ZpJPibY5yrZ7+ArBRzbfUZJPgYOPt3XGMBpR/L2HGXSQLxGjnf +H5wLSKnp+jczJRK0ntP1o9+bR3qp4Ycr1EmQc1ZQhDr3C3lpH6PG7CTB+M3i +nNwbP1GZx5F/wywS7DlofVXp9E+0mnmoZycmgcLXUK11hj9RzPo9cTO7SODe +tlTwan4OpfdrzVsYksAsuCNB32IOtYZubKSZkcDcIqb9GnMWiRUJ3A07SALd +x7GWetyzyGqcN7D3EAn8w0iFaGgGje5fVYq3IMHcKUeDTTdn0AphOmXemgRa +hhuzDTbMoM31DY4NLqS199M3QRWh7yiaN4DLPoQEMYZZA+sPTKGJY4312aEk +GBWu+rNebgoZlYhcHD9HAvYGoVqvyUnE5/SI/dQFEgSrtqmcuTiJouqGV/2j +SDD5Yn+tTNUEigzZ9ycuiQRbQnZdCsXjaOzDzbL2KyTYbLG9L27jODJQmvAX +TSFBnOih0d8jY4in78JC6jUSFNi6WPXEjKGI7WU/s26RwCMn/FJ1zygK/0n6 +Xp5Dgnpjon9wzBf0xfj0o5VcEjQ3mjiO2X1BepnPT+I8Etw/dzgoffsXxHXA +crohnwSeRd73OSZH0MXHcRNtBST4tA+LeuwbQRdOLA6PlpPgoWXlN2vKMAob +aOna2EqCpa2Vl57xDCJ3eVK2Z9saT8Hiuo3NA8jcxu90SzsJBFr9rJ6FD6DN +ffL8Me/X8gywsjNY/Yw6Oz212XpIoOe2bYPk4iek3Lox7fvIWv2WSvBJ7n4k +Keh8Yu/omj8vzpQTr/oQx96KbfljJPhtqUUcj+tD3a/sW50mSaDNP29mK9mH +whuL/vV/J8EXl4KrtC29qLfqsP2bPyTos3Sf3nyuGzUu31dhLq/59yN7PjPu +RoXaq0uRK2s8XSjWeyTRjSLKcpN1/pFAld2Q9rWgC6k9+91QzkUGu+6MxfDx +ThT14AY9bwMZOLlZQ1ZuH9HWm5++hlPJQM+oSior60DHJtzM+2lkoNmb8R1J +6kAxmos1WxhkmN3robfXrQN97hBJHlYkw+laQQuGXAeKXm+0A9TIEL95dkd2 +5DvUH/w0YlmbDC+kimWkXdsRzxv8w2wnGaqSL5xO1W9H6lItlvksMnzfp3HA +ltyOIovHNx8BMvBHBDyIrmlDat9lO0r0ySBuwSNTUtqKwm2j5L1MyVA+cCIk +oPYtevxILPrVATI43yoS+hv+FvUsZ8wSDpJBpazsNdvut0gltaqh7TAZtmze +kXq+4w3qbp91Uz5KhqbER117pl8jJR3r0gknMoRbEE0pW16hDxR1U9uzZFB9 +UytlJf4SSV4Tvns3mAzj99KNOacakQ3vzLeBEDIIfnC/wF7TiMYmH1+2CyND +9SbZU0snGtHiY6Wm4xFkWF2k6Lytb0ByOxjIMYEM7q6bkh0j65F9Pm9cdiIZ +uvc/qRexq0e5MuN9X5LIwCrQJQto1yO11ZxApxQyLETlkz5/r0M69eRi5xtk +eB2bZ/TjaB1y3qegdCKLDLf8Pi0a69ai/OrVoPvZZDDW3+54gliLfqh+fjWZ +8/950Y1f/3uBAkTSXNzyyKA3rxVy4PkLdLlLOsv9ERkM1r8/6/LfC1R4XELa +o5QMDlUCr2Iiq9EfX0E+7zdk2H26epvs3wrU3PrTofUtGZ7UJCc/rq9AqfTe +GmYrGR4INslWXqpAWj25/oPtZIh22JmNpCuQ704Y39dJBseYT1nvUTma5fB+ +yRgigy0tV8EmrRS9OHqEFD5MBjen3Zxy7qUo8RkOHRghQ+z1xFbDHaVI1VlA +89oYGbi4LyT2dpagU69ycji/kkG9c51Vv0QJmkzoDv+8QIaMqV81yfefobKJ +6sEdi2TIvXY88VbIMxS9K2fn1T9kOL71xVc2s2eI/vPMrz0rZPDeQ1YdWi5C +TubrHcvZKXCrYS50+GARGpJFuikCFLi6OzlfR+wp6rmfxW5MokD2DetErawC +VEft14knU2DlV0rkEccC9DBDLLyDQgHhBjeHRWoBCrsRwXOUTgHb3fFzefmP +ES3GZf1JJQrYJf6pqih/hLxcN4vHa1Jgcaar/d23B8j6i4N5hxYFJFfSOMxK +HiB9u9vXJXZQgOgSGQDnHiBJS0Hpu/9R4PQZm5eOIg9QjeEP+UKgwBnpYdsi +Vj4SoBcxOowpMLjinPbkXh5ayJw+IbGXAg7Rz3mK/PLQgDzlgdU+Cjg+jWsW +N8hDTyWuKo/sp0A6yjmwMnoPWfL4a/w6RAGKwIEn2xXvoZxR7Z0Stmt62qXo +LfU5CGXX7bfypkBFf9SNDM0s5KK6VSXVhwIjHeKFGhuzUGJFjkCn75reQuWn +Al8z0Uj72uMXQIHJkb+7bmRmoui/Jrq7QyigpqW9h1s0E3WY92luj1rzI1iy +5ylbBloe2ivuF02BWIU/nUkD6YhyqvpnUcya/gt3pp5UpyP/ixmFqrEUuETV +L34Sko5kC10U6UkUWJfLvK/39y5y5v8lJ3GLAry71A4+33QHJaQ4rRy8vXY9 +raxY5lMaKlPo6k1Ko4B923nTr5lpaL1mxXXBdAoIDT8oGVRNQ4X2YRu5cyjg +VKpgtWpyGy1VCnD/ekwBK4oj18GMmyjBg/r1XR0F/t7o0vqSeB3pDaV1KTZQ +QG5bW4C47XW0eFCi/mIjBaYXBpYLlK8jux28N7c1r/ESE2Eq9/YaUuOaNLzR +QoHvvFYHawWvoY4bD7Psuilw+Q1nrG9WCooUoCaU91DghU37tU7/FKR9Li1I +pI8C87e2v0vem4KyHOMPNHyiQIv7/jcKv5ORj+rpf/QRCvDVcE67miYj8cYt +R398o4DicfVsOdEr6LXWQwOjHxR4szHk5eTXJBSaT9HImKEAodY9h6cpCY0l +iPMf/EkB5wj1GdXgJFRi9bukZJECpqOXXVWmEpHlTIVIKCcVpOzP5d3IS0C3 +ZHReC0hRYR+f6nBj+WXk9kTglok0FWKbO5+IXbyMtht2uSfKUOH3JQH7tr2X +0Qevk4Ji8lQ49K1WJGLoEhJ6fc1UhkwFLo36zt4Nl1BYwHQnU5kKpvf3M0PP +RSMToZJ77ipUiFCPeam4PxrJZocFPFKlwptDHCWaCtGovE1cWl2DCi8fK6ad +eBGF5mhgs12LClcShCzovFHI8WPKiMEuKpTb5bg65UQgDXfbZ9E6VHDMsCE+ +DYpAbOyKEa911/pniokdNI1AaUo1NBMDKhRV7xNOWAlHnRcnTxzeQwVoLoj+ +ZBmOjDTQjMNhKrw6OV+wm3ARKSWMr4SdoMKfypYUg7EwFCFQ3vvJjQohWquv +qHVh6HPMpTLtk1SYDhDWNrsThpLClX1+eVChqfObVqJFGFoI9J528aFCpMqO +Ublb51CN478ek3NU8E3cwCUbH4Ikh9tLH4RR4fjbX2NfTUKQl23mVb4LVJBn +OffpCYcgipX+gbpwKqy4nw+ISAlG0fsvN2+7RIVTQ8GRillnkZn2plLZq1So +4Ih9INodiB6UTqQEXqPCJRtBn/fpgYhrW4VX53UqPBbkP8LvFohKVW1UEm9S +wWTgYfT7vwFIlpqVw5lOhcXZ404vFQPQ6AbVlKl8Krz7Ofn74A0/FDBqcKbs +BRXsPmRKjdR5o+kIt62rtVRwq2don7rljY7R4n/r1lPhS20a1cDHG+m7fAxp +a1zLY5fx5BDNG4lMOlwae02FwaC4/woTvNDDr2FZYh+p8B+vSCHF8wxSiMt2 +tuqkwvt1LraH9p5BV5SbmeldVHjqcu3KK+YZFOixoXBzLxVOv3azujB6GhnM +pFXpDKzlJWMTIW93Gg3+rPh4epIKywtdTdL1HuhgyufUkikqqJbyEh9FeKCX +WzmsV6ap8K2Ah1xh5IEe+e4ejvq+xoN/+X5oP4WCfnd9v/OTCuMtXEvDX04i +seVfvC1/1/zs9hEtJruj3Ryq2kwRGiz7ug2Gz7qglSeXb7qK0mDxpm9nVp0L +enx8YumeGA3CKWdT5FNckFhtRiVtEw2GV2RuUba7oMFzYiyKLA0UP6adtw13 +RgF//2AFGg3IfMnRS0pOaPMj8/RjdBp4VG0rCud0Qp+ti9juMGhQViO8zq7X +EelVnayV3UyD6vDVWt4YRyR8dkBHWo0GIu0M/XVTDihvsUFfXHut34eSZvMK +e3Q0j5h76D8avLBY/+7BVXskZBnKk7KTBqZvirOMztgjn1KtJhFMA79P3/0s +mPYI/PKNhPVocPxAf1nF7eOo+2fCnvUma356WFtJiXaI94fVAXZ7GjyvaZ5e +2mOD9CKrq4860GAsX/hVk6ANuiBHUipxpAEtMaJIst0are6Z5HF3oUHG+TlT +HXNrtJDnX/XhJA3a1LqvXnM9isbsU+h5/jRIl0sfPZJ9BFGWfqdwBNJAn2uM +MHnqCLJPOsphE0SDG6WnZqa1jqDPNaRPG0No4P21I8CoxRJ9lH1y5eyFtX4C +4106fy1QQ2fLX5M4GjQmnog5fcYccXiou9+Pp8F6/z9HXu8yR8B9tZszkQb7 +H3w+GCNijqq2WBeVXaHB1kVHty3Fh1FR4pQrKZUGDx+dFCP+O4QyjXk/zGfS +4PKH8KSC7IMorBryb5fR4F7x92xL9QOoO2BhZaCcBrPz97v1NhxAalse7idX +0iB0v/p1n2+maPDepvn7z2mgaat153a+KYKk77i0jgZLD6pOszFMEZvj7Y/v +3tIg0Pz0YxMbE2Qpb8YQb6WBp1jFUQWiCSrs5j1r2UaDnvnPZi6j+5DdPm/C +wDsaHEvv9TjiuQ+90DR2/9pJAwF9jV8Po/eic/yLbLxDNJha8C/f026MOusf +HTQepoEuL7cU7ZYxUgl1yI0boUFQwsW2E87G6PNc6x6xsbW6wvt/zNXdCPXn +XCNO00C8+9+Kn8ZutPr4oNLOeRrMX1vkvvrIEIUeKrA4w08HZV+lyKoJPXR8 +wb20bR0drrY9mu+s1Fv7v2VsUhGgQ3ie0NsDCXpoXX9G55QQHXoObvd20tJD +Vx1SDjuK0SFDQtzn+2Vd9NAr8KCFAh3mWrl5+/R1UIKYZlExgQ5y8lsT78jr +IK+SORExEh08uLstS37vQtuX3DvaKXQQCPDuHMjfherPHztgrEgHjsF+SV7x +Xag3UXc/axsdjL+89STMYPRcg63gliYdBlwvm8Y+wCj9Q5XQkhYd9rWPnbns +gpGzpGZriTYd9O+ciEZDCM3eZexTAzpIRV0TN+9jIb4CwT3kPXT43F1wR3fy +P6TV0mXAf5wO8xbrQ20dtyOr0Bbd4/Z0cEr1uzunth0Fq9ZDuQMdQkUebp77 +q4Xqkh5rn3CmQ92o2C+NG1por3mEyit3OqgE1VVkftBEdgMaEjF+dFBK5n4Z +fGwbupDIEB3yp8PHjBwvT/VtKGeXvPCOQDp8kfeUruXahqay+NdNnqWDYLnK +ztCHW5Gv6+Bfo/N0eH2i2ciYbSu6NBs3yhdLh92LxfUXyjTQw8yLw3ZxdFhd +MXm1LkkDtR0MHCiLp4PM4FOusRMaSKzEscc1iQ4/392wS5bVQHeC/mtpvkYH +odvmXSUR6qiIc/JZdAYdthyyyYt3VkP94nrhfKV0YNuV43uqSglJTl123l1G +h40eyXmjF5XQ4er3RpfK6RASkyLcskcJtTo7CApU0aGDz1NirH8zqi29cG1D +LR3KePb6Mrk2o9wjtXkSb+jw95R4MXJmohFl/ssWb+lw/fxzXcOtTETgOHAq +tYUO6w6Nyz3lYKIb+YPq0u10+P6oqfBBOgPFLv+rkPtIh0r781FSQ3R0Jg21 +UAbW5rMjwgV509DjM5EFToN0cG4ETTFDGprSb03KHaLDqScVYyBDQ47fbcwZ +X+iQL5Csc7uBisxxyMDmyTVeFb0jjWSoaOdQ5azGTzogY97TE11kxEPdIbGL +lwEz8XOrQpeIqHUwijuNjwFTfsGn8xyJ6Ortzl+L/AxYrxWTmYSJiCLm875Q +gAGRb49kmC4QkA5nQSJBhAGJqKnZw4WAzg1R1rPJMYBP57LzzgJ5ZJDmvXRU +ngG92vhXyyl5JHSkbrJUgQFudqp800ry6E67bbMniQFhaaoK9Q/lUFXNzYgB +OgMqlbD0m6eyaDFNmK1GgwHKyfQsnS5p9OKI7Q/prQzYw/3SieeONIoSf/zZ +bxsDpAIvbtVzkkYScXueq2xnAGyLHmfOS6FtwZFBd1gMiJU6/Oy8tBTyslr5 +FWLEgIlq5t5LQZvQtMTE5M5jDPgWw/4zM0YMvZ2Prj5vywC9ywHU53Zi6PEH +ZvJLOwZMdvU2M7aLIa8r7jtNHRhQ+nWmd3ZcFC0K/oh3cGXAk+uu1Tv2iCIe +7oUtl7wYUJ9gLCZFEEETI9f42rwZUHPdgp19ZSN6Vaf1SdSXAf/ti2pV696I +YsMCI9P8GeBoP9nilLQRia6sdBcGM6DHt21VnHcjIvzkDO2KZEDSFnYD1dUN +iKMj20w2mgF7hfqKA6s3oJFCffrxmLU8ObM5dc9tQLkeUe1Tlxkg33DGyIRj +A1KeWkdeTWSA2MQWUyUhIaQ9tLGZcosBqzeLbbfsFECH2xREvAoYYOtJH986 +zYf8nv+5WFjIAJ+le87xFXwo9cH7+e9PGMD/p3DI4BIf6o2K6nF/xoAGLZ6x +d4p8yA5+pDuVM0CoeUlr52nete/natUj9Qzw5TjD3rSeB8XeTc243sCA2ej0 +A1WD3OhRnJdoZyMDXpjT87lLuNHMCdpvs2YG1L1kjSYd50a+pPjqvS1r+nQ3 +D4ZWcaGwZJt90MUATcvWJuJ5TpR5XqsmtJsB/X/6jgse5UT1nhvVn/cwgLdg ++yHdbZyIZ2+jmHY/AyzSHVcvT3Ggy1zK/VuGGMDBW9gSZsmBrvmuuNGn13h3 +/MJ9bhc7emhxK1roHwMUx8nLZ6JXWZbKwbyubEyQ4YwOem24yuLitImsZWeC +yb7fQw94V1k2j+XDfbiYYE5vGOGK+csS4s4818vPBNfB/uSZpBXW6ad5frli +TDANL9J/XrnEko2Omf8nzoRcL70Q4sUlVrONm8+RTUxQCnFL/mu8xCLyK3kJ +SDMhIEbXWar/D6vDtuCUlwITnHQdnBs4/7C2CZY4IsW1/S3RgWKuv1nDw9dG +rm9mgouOjmS45m9WfJm//awSE4w6e/KtuX+zxhx22GWrMkHOI3KrfvYCK7Wi +6ui6bUzYlUla7RubZy251Jt1YiYI3NO2cwn9xaquawePw0x4YfQ1M2J2lhVe +yZlTaM6EyuT1j4RaZ1l7nmny/7RgwqOLrm2f8mdZ3Tm33/lbMWFyS+OWvU6z +rNloV/vztkzozPh8zerTDIuyny085QQTXk7wSaQU/WBNGW6Z6HRjQm+84NC0 +zw/WE3DeK3WSCRc3rVyo0fzBQhpvxe54MKGj62RQZ+V3loV4as49byZMnA2c +yHvzjXWpT7WpIoQJxHc9RqLsX1mmH+w3/w1lwitP/rbyV9OsTS1XE3AYE2gH +SytarkyzsquXLRouMGF9mJWDNm2a9TyjaaIligkPC6WqNphNsWZcbNcNJTHh +zbYP0/NVE6zDv+L38eYywXJOXNm6d5RV16qj5nmPCdN7gwoU80dZavcXRLry +mDDG3B7kEDTKEjh2rDv3ARMW72ntEpYdZTU0KTsYPGFCZmTmaZbjF5bGrbcB +EVVrPAiOJpN5R1jpvmFHvz1ngtDfFT7lT8MsIdOt6HANE+4Xr+NPLhpmTXHd +5qTWMSHlrefZM8eHWRke7vENTUxI6OrUs68dYgnrrMvmfM8EaWtG54mkQVao +bHWk+wcm2CdnCg6eHGR9XThz4v1HJhB2OPXkGg2ymh/0qGR1M0G1IMiVzD7I +Oid+v1znMxO0zjXfvzT9mfV9wrDt/CQTrFQqQtR7+1nW9ctPJqeYYMina5d4 +s5/1Oq0g5cBXJvj+/XT17NF+Vq7ZJiviDybErkrT5z73sWyqxr68+LXGA+eJ +AvS1l/X62s0mxgITjmnB6OfCXtb2Myb5ib+Z8Nfv43oOv16WGK3E026JCQvj +2flv2XtZF9jczJqX1/ISa5o409zDmumV26b2lwkRFiezrib0sI4Vv9uUusqE ++PrMek2LHtbbhIilf/+Y8OfqwNZDCj2s/wG+1mmv + "]]}, "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->{5.000000000000011, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{5, 13}, {0., 0.1957165151046949}}, + 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.9921779228140335`*^9, 3.992177953050804*^9}}, + CellLabel-> + "Out[143]=",ExpressionUUID->"be2d5f60-d499-7d4a-8cd5-74ff5ca1817a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1111", ",", "l2222"}], "]"}], "\[IndentingNewLine]"}]], "Input", + CellLabel-> + "In[144]:=",ExpressionUUID->"8a3460c1-aa75-4842-9332-c34c99c08aa4"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV0HlY03UcB/BxeBCU/AaE237bvgjCY4yzRITk88EmoJEcEjBAZ+S44gh0 +oHiAzovJ0dRA3IMQTHGFTjEUSM40AfMgMDXBwAg51GCkCAq0/vg87+f1vP96 +f6yiU4Il+gwGY43u/s+B6u5fZ6+w0KTV2alsRzW0Lyzq4l1loVo2ovQRVoOL +S9wSvSEW3rHqkSbgBWB/KShXWrLRRpXccTi/CuZue/YuFLJREFXS7ABq2CL0 +Wuu4jY17ZqcKI43OgNad9Tytgo09ZqdeJ39cAbtiwV9+h411FqvWeQ6XwaHS +8B7RHBuN9yuZN0UlkE812L215+DiE+mcTnUxNOhPf98QxsHW0juZC9ILIWlm +mXjFIQ7aDHX0mMYeA5br6duySxycWK1Z6zj4Dfh8bZZy+C8OzllXO1u/mwdK +hwjfKiaNV5o2G+UxcuCZzbM/yr1o5Jamj0TUHIDGpamlQck0Fik8xT8W74Pc +zd78rpM0hoQLrqdbZMMjleFdk5s0Hu03NCtM2wnBcWW1kmkaNzlX3vJNz4Dr +kkNRClsuOhwLbKqBbVCX+IWLNJSLR+q7L+V4pYL63MEWexkXJwaHBkTqJGhN +2p+jp+Gi0niyaZ0iHiJXSPcVPOYi3SCf5DRJYMzjotvYOzxs28h9kK2Jhvl+ +fRwjTx5GqJb3e2jEIOx+6u6dwMOOVQKrvc8jIOukB+VfyEP36HFDUxIGHgnZ +7EW/8NAK18crTmwA7VbqT5WWhweaD3aRtkD47W3mIxGPj4uvtU1qO/3BteD+ +whuf8dFekNtGvvKDgsis8fmZfNxRL2Gph4WQ6MI2nlPz8WHEi084Vd7g483o +a/+dj3HZb4bzXLzAJk78SqRH8AE/c0lD70qQfORuYc8iKOf0iYJ7l4Oq5LJC +4kRQdnFN23GNK6iOnLfd5Usw1ehgbJHMCdzrjoYtERMMWepUefnMB9Ahowdd +pAT/8ZwMFXTYAt3Fz+PmEZQWDNjne1hDYlObIq2CYNAube69WAJBoxtdw+oI +0qMG4w/NaHilTBy17CT4uby8hF9jCcXDRH/1U4IZWy1WOniZg1DMnFbp7Hrc +yWbYyRxedBtoFwwRnKm/QGmsdH3zYP8tnVtl8x6EzzOHscKqFtEIwXJ1V4D1 +LTPwE7rvTX1OcLutdCRvkxm8PhXA+G6C4KC9oEZ+mAkV5t6vDf4l+CRAfm3H +Tiasl7uOxeisYi5jpCUzQSW16BO81P3nxvEnu0OYEOj/qKn2FcGXi5jl+lZM +ODsVk3V3imBj5Zac+p8o2JASnvHhNMH41oKYlRoKZgfWphTq3Dd5xrilnIKQ +uwJx1BuCNTacb0dyKGBUar2G3hK86qyYPh1OwQ/0gNunMwQNZ6WJCf4UhB69 +53heZ9rvinQFUlC1u5a3bVa392Wo26gdBWET6vfv61x04Of+Tg4F+vHK9zzm +CC79+6xJyyIKzj3OnV+ic+X2xRdrDSgID9kzO6dzdqNde+2kKfwHlWrgAw== + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0HlY03UcB/BxeBCU/AaE237bvgjCY4yzRITk88EmoJEcEjBAZ+S44gh0 +oHiAzovJ0dRA3IMQTHGFTjEUSM40AfMgMDXBwAg51GCkCAq0/vg87+f1vP96 +f6yiU4Il+gwGY43u/s+B6u5fZ6+w0KTV2alsRzW0Lyzq4l1loVo2ovQRVoOL +S9wSvSEW3rHqkSbgBWB/KShXWrLRRpXccTi/CuZue/YuFLJREFXS7ABq2CL0 +Wuu4jY17ZqcKI43OgNad9Tytgo09ZqdeJ39cAbtiwV9+h411FqvWeQ6XwaHS +8B7RHBuN9yuZN0UlkE812L215+DiE+mcTnUxNOhPf98QxsHW0juZC9ILIWlm +mXjFIQ7aDHX0mMYeA5br6duySxycWK1Z6zj4Dfh8bZZy+C8OzllXO1u/mwdK +hwjfKiaNV5o2G+UxcuCZzbM/yr1o5Jamj0TUHIDGpamlQck0Fik8xT8W74Pc +zd78rpM0hoQLrqdbZMMjleFdk5s0Hu03NCtM2wnBcWW1kmkaNzlX3vJNz4Dr +kkNRClsuOhwLbKqBbVCX+IWLNJSLR+q7L+V4pYL63MEWexkXJwaHBkTqJGhN +2p+jp+Gi0niyaZ0iHiJXSPcVPOYi3SCf5DRJYMzjotvYOzxs28h9kK2Jhvl+ +fRwjTx5GqJb3e2jEIOx+6u6dwMOOVQKrvc8jIOukB+VfyEP36HFDUxIGHgnZ +7EW/8NAK18crTmwA7VbqT5WWhweaD3aRtkD47W3mIxGPj4uvtU1qO/3BteD+ +whuf8dFekNtGvvKDgsis8fmZfNxRL2Gph4WQ6MI2nlPz8WHEi084Vd7g483o +a/+dj3HZb4bzXLzAJk78SqRH8AE/c0lD70qQfORuYc8iKOf0iYJ7l4Oq5LJC +4kRQdnFN23GNK6iOnLfd5Usw1ehgbJHMCdzrjoYtERMMWepUefnMB9Ahowdd +pAT/8ZwMFXTYAt3Fz+PmEZQWDNjne1hDYlObIq2CYNAube69WAJBoxtdw+oI +0qMG4w/NaHilTBy17CT4uby8hF9jCcXDRH/1U4IZWy1WOniZg1DMnFbp7Hrc +yWbYyRxedBtoFwwRnKm/QGmsdH3zYP8tnVtl8x6EzzOHscKqFtEIwXJ1V4D1 +LTPwE7rvTX1OcLutdCRvkxm8PhXA+G6C4KC9oEZ+mAkV5t6vDf4l+CRAfm3H +Tiasl7uOxeisYi5jpCUzQSW16BO81P3nxvEnu0OYEOj/qKn2FcGXi5jl+lZM +ODsVk3V3imBj5Zac+p8o2JASnvHhNMH41oKYlRoKZgfWphTq3Dd5xrilnIKQ +uwJx1BuCNTacb0dyKGBUar2G3hK86qyYPh1OwQ/0gNunMwQNZ6WJCf4UhB69 +53heZ9rvinQFUlC1u5a3bVa392Wo26gdBWET6vfv61x04Of+Tg4F+vHK9zzm +CC79+6xJyyIKzj3OnV+ic+X2xRdrDSgID9kzO6dzdqNde+2kKfwHlWrgAw== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6.3, 8.5}, {0., 0.07216836120711195}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.300000000000014, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{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.3, 8.5}, {0., 0.07216836120711195}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.300000000000014, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0HlY03UcB/BxeBCU/AaE237bvgjCY4yzRITk88EmoJEcEjBAZ+S44gh0 +oHiAzovJ0dRA3IMQTHGFTjEUSM40AfMgMDXBwAg51GCkCAq0/vg87+f1vP96 +f6yiU4Il+gwGY43u/s+B6u5fZ6+w0KTV2alsRzW0Lyzq4l1loVo2ovQRVoOL +S9wSvSEW3rHqkSbgBWB/KShXWrLRRpXccTi/CuZue/YuFLJREFXS7ABq2CL0 +Wuu4jY17ZqcKI43OgNad9Tytgo09ZqdeJ39cAbtiwV9+h411FqvWeQ6XwaHS +8B7RHBuN9yuZN0UlkE812L215+DiE+mcTnUxNOhPf98QxsHW0juZC9ILIWlm +mXjFIQ7aDHX0mMYeA5br6duySxycWK1Z6zj4Dfh8bZZy+C8OzllXO1u/mwdK +hwjfKiaNV5o2G+UxcuCZzbM/yr1o5Jamj0TUHIDGpamlQck0Fik8xT8W74Pc +zd78rpM0hoQLrqdbZMMjleFdk5s0Hu03NCtM2wnBcWW1kmkaNzlX3vJNz4Dr +kkNRClsuOhwLbKqBbVCX+IWLNJSLR+q7L+V4pYL63MEWexkXJwaHBkTqJGhN +2p+jp+Gi0niyaZ0iHiJXSPcVPOYi3SCf5DRJYMzjotvYOzxs28h9kK2Jhvl+ +fRwjTx5GqJb3e2jEIOx+6u6dwMOOVQKrvc8jIOukB+VfyEP36HFDUxIGHgnZ +7EW/8NAK18crTmwA7VbqT5WWhweaD3aRtkD47W3mIxGPj4uvtU1qO/3BteD+ +whuf8dFekNtGvvKDgsis8fmZfNxRL2Gph4WQ6MI2nlPz8WHEi084Vd7g483o +a/+dj3HZb4bzXLzAJk78SqRH8AE/c0lD70qQfORuYc8iKOf0iYJ7l4Oq5LJC +4kRQdnFN23GNK6iOnLfd5Usw1ehgbJHMCdzrjoYtERMMWepUefnMB9Ahowdd +pAT/8ZwMFXTYAt3Fz+PmEZQWDNjne1hDYlObIq2CYNAube69WAJBoxtdw+oI +0qMG4w/NaHilTBy17CT4uby8hF9jCcXDRH/1U4IZWy1WOniZg1DMnFbp7Hrc +yWbYyRxedBtoFwwRnKm/QGmsdH3zYP8tnVtl8x6EzzOHscKqFtEIwXJ1V4D1 +LTPwE7rvTX1OcLutdCRvkxm8PhXA+G6C4KC9oEZ+mAkV5t6vDf4l+CRAfm3H +Tiasl7uOxeisYi5jpCUzQSW16BO81P3nxvEnu0OYEOj/qKn2FcGXi5jl+lZM +ODsVk3V3imBj5Zac+p8o2JASnvHhNMH41oKYlRoKZgfWphTq3Dd5xrilnIKQ +uwJx1BuCNTacb0dyKGBUar2G3hK86qyYPh1OwQ/0gNunMwQNZ6WJCf4UhB69 +53heZ9rvinQFUlC1u5a3bVa392Wo26gdBWET6vfv61x04Of+Tg4F+vHK9zzm +CC79+6xJyyIKzj3OnV+ic+X2xRdrDSgID9kzO6dzdqNde+2kKfwHlWrgAw== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6.3, 8.5}, {0., 0.07216836120711195}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.300000000000014, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (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:eJxFmnc4F17Yxo2sQrKyffcQGRXl1/ecJzuVpEIiskdRNkUqs8yoNJSdNJBs +kRUNI5VdVnYJRUJ6vf+87z/nXM/1/Hufz33f13WIth4mDhxsbGx31o7/vV0G +fq1nYxMFm+cf5VkCr/HTRaGf2+Ik4Pm6ppVysXpcYDGmJ/6fJCiHh7oW3SvD +VXtbtd16JYGyUvXwblI+3rOqUK8XJQVKf2JzApwzcQtO/p60RRoy3/jS9Z/e +wtuJMYUFb6SBvHchYHVrPBZqml854icDIi+9bnqdu4wXlj1+uErIwvyXdHMZ +qj82mbdy4GmUhVe3LS1VU0/hiNgPfp6ecpDBaDUOFjmJXz232GYsLA/FvJMf +uPmP4nOpRz2fV8sD1co7aU+PAb7Lr/qkQYUA8hUHbZQtEC7ZMmvrHUkA76W4 +vV/qVHGV1LzjlS8EsOr4mzqzRMGGbReru7cSYTtKCVr3QBInODcd+xZGhGOu +Yu5uIoLYqvGmwc5OItxNGjxwQYsDiy3khk3RSPA3yzBbx3YBRfL4r7MNIkGU +fkb/hkOTKKS/uXNTCwmWtldcec49gLbf/vwtlEoGelplQmlpO/pIUTW2PkcG +5bc1khZir9AfHwFer7dk2HumaofM33LU/TCD3ZBEgcxblvEaGXkIZdYetPCi +QHlfxK009QwU50799r6WAn9vdWp8jb+J7khrveGXpMIBXuWhhrKrSDFubCXE +hQp/KpqT9EZDkP+I3tnSl1Sw+ZguOVzrhfZyKGsyhWmw7OM6EDrrhHh+WBxi +t6XBi+qmqaV9ViikCnLvltLgQdF0prnqIRR8JM/sLB8dlHwUwyvHdZBGc6ce +30k6zJttCLa234n6xHRCeUvowLYny+d0pSLipu4S38PDgJnYuVXBK0Q0JT4+ +sfsEA75Hsf9MjxJFR1vlhT3zGGDtQR/bPsWLHpvdiRT8xwCFMfLy2chVVlVt +G7gfZcJLg2/pYbOzrKO/Yg/wZDPBfE5MybJnhPUuLmzp3z8m/Lnev/2IfDcr +n7kiQx2RgA376jmVRF/inSbHG+CqJFSf2NLHzHqO2Sh/OY+pScFusVf9aoK5 +mPf+YNfpHinYSAkPuLk9FV/Mv2ZMPicNp5RblllOSTjde485J1EGaiKIrmeJ +UZhzSG2hv1EGBKhXRzTyg3HmoqNCmYcsnNC8LaN/yxN/q0merpSRg19Su18t +yDribOLNoydr5eCN/d4e4nsLnKrQZcLhIg9brjyu+qVojE9PK/08yEuAYuXX +7l6ntLGCzCbeFEsCWEgrBB3fpYE1yT/tLxQS4IhrhinTaAsO9flP5Bk3EQZV +xUqrnQjYXSaL386CCFeexjSaZorg35tVDl17SoSFzlG1IA8eXHaCOLbpHxF2 +3eskRN5cQS3BmxpoJiQwNYtqu8GcRaE/SdNlWSSoMyT6nY/6inoqj9q+/UOC +XnO3qS0XulCodYScpzEZyvpdgvxr3iHHA/KKLhlkuOP7edFQuwZNxHWFflkg +Q9rkr+rEh88RP72Q0W5IgYEVx5SCBznIke+XrPgdCvDsUTn8YvM9JNaw7fiP +7xRQOKmaKStyDdl/ShrW20OFMpssZ4esMGSiublE5joVyjmiH4l0BaCBn+Wf +zkxQYXmhs1Gqzh3lLNbrimnSYOhjcZNpuS2q72j+axRDg4Z4l6gzZ03RBb5F +Np5BGkwu+JXtazNEPfHaB1k76GD49Z0HYQajK7MxI7zRdNi7WFR3qVQNnU1B +zZT+Nf3uCnNCXjS0mCLEVq3GAKVEeoZWpxQi/OQM7gxnQMI2dj3l1Y0oJNHq +AHQyQN28pZF4kRPtECi2RwpMyG6ODBB1/s260qvcWB7EBOL7bgMR9m8sIa31 +mZwfmCBlyehwSRhgKSdwRyqWS8DcXWlst1yDvU2J4VvsJMFRWkBVnaME96uP +koe4peC+cuJ5cecnONMo3KinQAoqzDj3fFVJxwx/MXnLw9LQmVq79N/IDTxl +OBbWMy8N4Mf1+kl4NF5/NCng9n0ZCDiSUd5qeBEfCJziF9aRBeNDwjvSVH3w +/ePLzKFZWVghPfPmVXDB4uZFoy635UDw154dn7VP4EIPSe2HLHkQEVRUfuNl +gnOrzBUVxuVhg7PWudZFXWwnmmZRoEeA9Dj78Q0xmtifPjf8J4UAF+aLS+ap +yphoIMG6N0eAon58xzeGhC19RRzv6RBhYokpEOIpjnXg/FF8mwjB48nbb0Sv +xxsS+zZTp4igNWhVy2SwYU/NE9So3SQYu12UlX3rJwoPOvAnJoEE24L2XAnG +Y0ipZVPK9DAJNO5sPX+Kqw/1nX8WtqxJhpeSRdJSzm1IdhcD2ceRwc15c6J9 +eB2a5fB6xRgkgzUtW94qpQR5Om8Ri1WnwOJMZ9v7749Qu2mv+s4ICpwRKN73 +jC0Ntd96nGHTRYGrbzmjfTKSUIj/VAdTiQrGDw8ygy9Eomr7f91GF6jgE79x +nUxsEHr8LSRD9BMV/uMRzqd4nEX+f/9geRoNyLyJkUuKDmjUNome40eDVNnU +kWOZxxCb/d1P79/RIMD0zFMjKyP02DPgsJk8HeZauHh6dbWQTb+aeJQvHRQT +uV6dP7EDZR+ryRF/S4e/p8WKkCMTXRikbGCTZQCv1lXH3XlyiJtrYdsVTwbU +xRmKShKEkWtBlfKxOgb4cJxlb9zAjc48y/HNFmWCcWih7ouKJRblIFtokgsT +Xo3ziicV/mCp3XnnH1bJBGeBkUQyzzCLbMDi8rCTgBxLW9cxz1dYpXa2QFZI +EsgLS07qpZV4+cD1daaFkhC+LH7T4NIzTNgk+rXVSgq8fhFKT296gN1+7LZj +55SGQLqEeHTvXdwzvvHSZLo0OO53mmtQvIaP3bujoLhfBm5JNShcIobjFff3 +ntQZGRB6/tnWatc5vOw7pG9zRxaCcq7l6R86gzUZ6oU39eXgvZCCeYCHHVaf +8q83n5SDj8tZpqjWDMeO3LA9niQPu+8fmNI9vh+HBim3XZEhgMsdXeXTW/bg +GfLFokhPAvzMCvzAZ7wdr8j9Gln3mgAdh043e/yg47H0ExMNUkTY7P1PVZhT +FofUqhfSzxDhycj56LfKm3Duj+H9I7VEONHNvb4+bx12UnAsXhUmQXi0j+DJ +/X/Qlrp6+3on0tp7+C6wVXAaXXJZHBopI8Fj84rvlpQhFPHoFj1nIxk4uViD +Fq6fkKKWZcm4AxlCzYjGlG2vUf5JcSn3EjLYVfK/jgqvQoMySDuJnwLX9ybm +aok+Q1kjmrvFrSkg0SZJb67LQksV/Fy/nlLAgmK/7nDabWQ+Uy4czEkFSdsL +Obdy4pCBGpqxO0qF16fm8/YSLqORjcpJk7lUeP9z4vfhW75IdPkXT/NfKnzd +6y1SRHZDXT/j9m0wokFoN2s7Kd4GpRvyfJxPp8HVj6EJeZmH0erTw4q752kw +f2OR6/oTfcSbJ7CPvI8OX7ry7mlP/IcKOSeeR6bRYdsRq5xYRxW0e7BiVu0n +HZAhz5nxTjLytFj5FWTAgPEq5v4rgZuR5uCmJsodBqzeLrLetpsf3fBZcaVP +reUD+69cF/awoyWnOpMOzAT+B5o2TsG/WDNO1usHE5jwdsfHqfnKcdb0uH7r +xQkmWGwtD1Lt6WNN119l5WdKwJSRTc4Eex2+Zh46SjgoCQEXx18pG5Rio5c9 +hbRZSQjmnvMT+y8Pe2abR8WnSIGjxcumYZ0MvNxrGu6PpWH2+i3iAE7GQurl +MnoD0hCazbd7p10sjhHUrfC7KgPj9eefzVpcwqQKpWC0VRYSN28fgvu+2D/n +caN3nyysy7ZR5uh0xUZeOsru4XJwzMvcVkfEBu8W1qxYocvD8jZVX6Giw/ia +stnBHx/k4crZ9TWsE/o4RGjicsV/BOi+9uKRi91unPzwLFkjkQDbUn1Oa6ar +4DMF3CZJ4wSw1yXWPC4n48MZb4QrdxGhWnXfS8l/m7HrkfROsXgi/A060/5z +Dz/erqSZv3WQCAJbfNqlldixTnLo0XJVEmSdExCmzv1CEbVDq34RJJh4ebBG +unIcdXR4aLJ1k0DHdcdGicXPKHKDwS5QIUPsltldmeHv0eJTxcaTYWRYXaRo +vaurRz67YexABxnsoz5nfEBliBbltOGUIgVs4v9Ulpc9QZF/jbT3BlFARUNz +H5dIOlJZN6F/q5kC0zwWh2sEbiDBNzeMpclUWKdW19Gz8QpaCPCacvKmQvjW +XSOydy4g4Qm7K6NvqDAQGPNffpwnGrggyqLI0EDhU8pF61BHtJDjV/nxFA1a +Vbqu33A+jiBhGpfU0mDpUeUZNoYxum6XdNRelA5p4mLe01e10X7TsK2v3eiw +NbC2PP2jOqopuXRjYw0dSrn3+zDXbUFanHnxBGEGxKPGJncnAloU+BFr58yA +gpvOVbv2iSAb+JHqUMYAwaYljd1neJAgV/qFHr41Xg70Jc4krLBmI51tL1oz +oSPtyw2LzzOs+kYlO70CJqSHp59h2X9lffE4HBt9QAIe3ZvYdrK0Ec/M+zql +LUmAeJF4yrJ9FZYyXrTfd18SlMrHiQ3RhTj+Nq+3qIEUMMXfKL4KzcGa+hvv +lUxLwUzQe+Gn1+/hp/sPTXDHSUOTp1kch1YiDo5yr7mpLgMOtW33Y69H4BDG +peccfTLQphEp9HLsPG4roZRFh8nC8x95Bb1uZ7GIz5ixgpocNGX3vamqsMfu +3LwCVh1y8Oy884MfrGN4c2RJz9NgebgULp/Vs9cILxY9PXlamABpXyeo4tpa +WIDw+ss1JwKwP2S81indgaXTvKhaVQQ4m5dsnBHPxOr8B1YrhIhQGJEebNUj +h/1+fLfWdSDC+0GOtmRrYdzGub61opQIiz8L/B+t48bx9XVGvHwkYHz51Cs8 +soRWCFNJ85Zr/q6/KVNv4wy6/DRmvDWPBJ8PYBH3A8NI5fnv+rJ1ZLDpSlsM +HetAXW2zrkrHydAY/6Rz39QbdLVTKsPtCRn0Nnw45/TfS+RgusG+jJ0Cd+rn +gocOFyJzbj+1X0coQOE/VLBT4QHKtw3ZxJVFAYcSeYtVo7uo2OJ3cfEiBYxH +rjpvnYxHHZcnXI7uowI05UV+Ng9FMtSMLM5UKizOnnR4peCPAn93Tt/7SYWx +5nVLQ19PIfDNNRDSocHJQ32l5XdPosL4SWdSMg0ePzklSvx3BKG+rBvEKRqI +df1b8VXbi2bvMw6oAB0kI26Imfay0L3A/5qbbtBB8K5pZ3GYKjLFQf1bJujQ +reAVbiBNRTvOhwfeYzEgWvLo84tSkkhpcj15NZ4BouPbjBUFBdHVdUp92wYZ +wMGT3xxizoGSyyuPr9/BhD3ppNXe0XnWi7TG8eYIJjzOl6zcaDLJuiD2sEzr +CxM0LjQ9vDL1hfXKWvSH+wYZ2OucI5H+6gr23/XwzsgxWZAfLNeu7/HCrwQN +ow/yyAEtImFj7E0n/GU37Z7DUznYJBt7WSfIEis0L745elge2KsGzLv0DuHa +AxZ8Divy8Cmc62Vajg7Wkzim+uAQAV6MtPtyfNqJj2V5ZlbmECC4y7hniqmE +278wGTkrBDg+K7+k6EnEDnsty0IOEiG1V/enzz9RLKdo+sE5kwh71I1IabO8 +eGgx+IL0PBHmOk4sWDusotQ+jXkzfRKYnG+P0zWbQ2E7S39m3CGBe1bolaru +ERTaUPivb5oEX53yrtO29SCVaZn2Yl0yiJlxSxeXtCCtOnKR4y0yvInOMfhx +vBadfp2VxfmNDKod6y36xItRtf4PuXygwFmpIetCVi6SyXdSoCdQYH0286HO +3/vIW/nMP/owBXirOaecjRPRHA2sdmpQ4VqcoBmdJwJFHrzatOMKFU4Png9X +yDiH9GZSKrX6qXBS2ipMzuYMEjrXryWlQgPhNobu+kk79Emm4Nq5SzSg8Y91 +av01Qy/VDd2+ddCAX1ft1+PI/aju4olDhgp04Bjok+AR24N8nAf+GlykwxuX +JgNDtu0oevlfuewnOlTYXoyQHKSjyurbYf10BlQoYqm3z2SQyMpKV/55BnT7 +tK6K8WxCPqTYqv3Na/6svWUguHIdarfOO+0pzwQHbTvHes4/LDOx5KwHXkwY +PxcwnvP2OyvN3S22vpEJcZ0dOrY1gyyrytGvL38x4QmnSx761sNqOWEkMXdL +AlZ3fM8jXKnD6d1FN6R1JeFW77Xeo7OlmJvr07LBqCQ8zg0/bro5H1u012S7 +JUrBB41qlbyPGfhrzO+y8B3SsPqAP/PKr2Sc/og8fu6TNAy3PUgrtozDRm6y +lo4XZaBzlK1i88QlHN3bUnyELAu7Xno/EbT2wyNGYeJV72WhNA3lLJS44Um2 +6MNnzsuB7qjZQ98EG3zRztCPJisPb0UWeKqtjmBu546B96/lwa3mSbeppAGO +FYxJBnUCFOQ8+HbXgoVzXFXrPsUQYPaklvdjFVW8eTTIMm6YAInfErZbmFNw +yy7ahOF2Ivwn6lEW0SqBg08USbBfJUJo4d1dQnQBbLDkfH5bHxFaCQyNvCJ2 +rNh487uJIglaLmj70h/MI16HJ+ynL5HgvHLr1rOXJ9CWXjm+qA9rPPS3sNFb +/YK+tAsnDimQ4UyNgBlDth2NTjy9ahNChqrNMqeXXBqQRne230AbGSLtdmci +qXIUciuM+zidAtZ7Y+dycp+i4bbI14f8KTAx/HfPrfR0ZLOL5/aOJgpkRoUZ +y767gT56nhIQlaPCke81wmGDV1BCqJL3L3cqNHZ814g3C0G6Tp+CWhuoMLXH +cGKQ5oVEa9IqaJvX+viK9B3KTie0um+C282JBmkX54y1TC3RwIPN8w9f0EDd +WuPe3VxjtL4vrWNScI1nh3d6OWjooNqEp5oujnSoHRH9pXZLA7U42gnwV9Kh +nddDfLRvC6KIen/I52dA+LtjacYLBOR5zW23sR0DSr7N9MyOiaCeiIhut+cM +qNfgHn2vwIusnsqFeq9jgim9fnhd1F9WV9bd934WTJjY1rBtv8Msi//Eia7s +R0xYfKCxR0hmhFVx+YvJHS0J0Knu5RY/2YTb4nZpDf+QgGXJpENN2tWY+Z4p +pnddErydTC6rbH6ODfo5KtVZUuC7fWnfA72HmOjlX3HtqxQEwvljSufv4+TV +WRmxMGnoHox6eq09EQv964xu3iIDwhIx2N08EmuFWRydfS8DqvWJ+9OagrBm +V8NseqAsbCj9oE9m88Qh0i/ve9HlwLRxvyq3qwNen3RQ1fqdHOzYnLDl0joL +bNndeKPLSx5obyoa4g4cxGom7rknBAigcvhG7/lPWlhG7vTPzbYE8FVT2njb +Rx0r2G5rGChd20vHkarcFPBnqOct2bDGy6gf28Tfy+O5sL3qH62JIC75GGv/ +E8ZfBWSFHhQS4XTXHZE9Jdw4M2FOSmAdCVpf+Rctly+jkYOrirFmJJg7ba+3 ++fYMWnfIfKo+lwQehV4POSaGUVhpdqLWPxIos+vTvuV1oq3JlfWtR8mwbcuu +5Ivtb5G/cIqTaw4ZdOY1gg69eInoP8/+2rdCBq99ZOXB5UL0TPy60vBBCqSi +rEMrIw/QBvXymwKpFBAcelQ8oJyCRuPE+A7/pIBjmOqM8vkElKJYTTPSo0Jh +1QGhuJVQVKJstTX+NhWM+h9Hfvjrj5747B2KmF7Lm35lB6HtNPIu0WgUxjTw +/Tzta8a0RZXbLAtLr9Fg+6K967aio+jLXMs+0VEaaMt/+Mdc3YscJdRbijXp +oHvPJRINIiRabN/tnECHn+9v2STKqCH7aStTxlc65PInat2tpyLxmH0vtu5k +AOyIHGPOS6Js94i2yasMkKs/a2DEsRFx728Q1exjgFmq/erVSQ40arfLJlOZ +CbLu4dt1MxdYmVXLZvWXmLAhxMJOkzbFanrUvTWjiwnKeYHOZPYBlvmnoPJM +NhnQbs3vV8u4ioeOGX5cNpIF3cBZ0bOXvbFaEak3eUUWArv7C65bOePAN6dr +nTLl4FxPxGeGlRV2l+OLuGAgD2zp49d7ew5h9fDu2/pz8lBVqiBMNdLFR8T/ +6iruJ0Ces2yE5ZNd2NlRTed4BgG8und0NZC34kCRNLWM3wToKX5xP+svEQ/0 +l8RtNCTCD6GXq8NFYlhV3UX0yP01/VQsPxiv4MMLDU/2EWbWZr7NmZJm/1DU +hn0xM3tI4Na6lPd6fg5x915aSL5BgjxrJ4vuqFHU9dq2xWGCBJp88ybWEr0o +vGhsyzEgA1+Y/6PI6lakspoV4JBEhoWIXNKX6Vqk7MivfmOUDOu4LsX3dBQj +CXMBqfv/UeDMWatX9sKPkN/ltHzlaApcoeoWFQSlogz72EP1nynQ7Hbwrfzv +RFTWKialqkaFV08VUlxeRiCKhe6h2lAqrLhd9A9LOo8C3Dfmb+mhwpk3rhaX +Rs4gncpTNTJbaFAVulrDE2WPvlSTPm8KooHXt3Z/g2ZzZHPAi9D/ngYnUnvc +j3kcQDuX3NrbKHTg9/fq6M/dgyYz+NZPnKODQNnW3cGPt6NbuQOqUm10mH7S +mP8olYHutVk3eZAYEJKiLF/3WBZFhwSEp/gxwN52otkhYROacaH9NmliQO0r +1kjCSS5E5FP05Jdign+UtqNk3x8WUnsnes+dCe2dpwI7KqZZk+vuclJrmZD0 +zuPc2ZNDrGyTzRbEH0yIXpWiz33pZYnSij1slpiwMJaZ+469h1X1KI8rMUkC +4m952IW01mGF2y3TEiAJ6UYcvEH6ZdiW3i7fMyAJzr3hDZFH87GRs++OY7FS +kCOuPyUsl4m7Rxs/xKhIw8PrG8LrjW9hN8euZvE2aaC6nSVa9cXhvFtRj63O +y0Dz+HeuF6qXcY2b/Id+WVkYu+ptZ1jjh2XSZ1/YvpMF77n0JPqWU7i0Mc/h +rJ8cSFgLsq2+t8GUaJOjFZvloS5Arl/x+REM624w6+rlQSKOobgxwABfF+gn +Xd5GgOSqkndHu1lYZd8mEepVArhFZY7lBqhi15CyQf5BApwfnBjiekjB/FxH +jlxTJUJYy75gG01JHDmMynwj1/zbsczS5K4AbrcJGSrqJsIBtpnkmGV2nHoi +bdd9JgnEqmV9fnAuIINi4ctjF0jAXi9Y4zkxgUytfM80t5GAv8XX4nloP4pS +X6zexiDD7H53nf2u7ciKZ+Z7fxAZBD66XWKvbkDJ9J5qZgsZHgk0ylRcKUeP +00RD2ykUEKp3tVuk5qH48iz+Dh8KEPOVnvF/S0eLh8XrLjdQYGqhfzlP6Sba +qd/pFi9Nhd9X+G1b919FX6KulGqeWvNnfyFNk3sh6AQt9rd2HRW+1qRQ9by9 +0NOT40sPRGkQSjmXJJfkhC7JkhSL7dfyZXxYoUSbJVLZ9vgguYIGwQdVb3p/ +N0Y6yYzNW/npEJoj+O5QnA46r1wHZXZ0CBZ+vGXurwY6WvXB4EoZHYKikoSa +9ymi63c7fi3yMWCDRlR6Aiaipx+Zia9sGDDR2dPE2CmKkh99mJ8uYADfn/xB +vSu8aB2nVXgNOxOMDvwefMSzytr3XJ3vp9lafrzs3Po5d5al8nBBuDOHCaPM +nYF2gSOsXAFKEYklAdvoN48uFDfhl323lUMnJeDVLXTXtKga5ydondaOl4Qn +vklK5VbPcSY720CjhhQILyY7FD18iEX5lAxD+qWgzj2c0jt7H0eb1arLhEgD +227zrXYySbi7LNrTmSYDjnO/zzIqI3F64aus8Xcy4PK+tvvaf8HYw1lccKuP +LASbJW3bvN8TF7sr6kuQ5OCY8niAXp0D7rLw0rZplAPX4+vPC7ha4FX2Nu/T +7vJwcKtkbEb7QWxMaDHqXE+APQO0aTuCNibLVgdZWBOguefHx4cd6viZloiY +SjEB1p/u6uLqU8Aqvf9itvOt9WlL7qAcOgGrHPJLk7YiQtLU0IrMIRE8fS07 +X6aACDJ7HUIeCPPgrYt8F+PYScDS/qbhylhBFmM8AT1HSOAXQspHgzNIJ/3F +KZxDgocXjgam7vyK8jVXl8JXSCB/qUjniXgX6l5OmyUcJsPW0tI3bHvfoR/K +X15PZJGBZks3fPPvJYrck7X7+h8ynNz+8hubyXPUL0d5ZHGAAvbPYprE9HJQ +qXxnT0IKBWxbLxp/S09BwbkUtbQZChBq3LK4GxMQG7tC2BvtNT9OFxU9bByG +1u0o9+y4SYWnAnzH+FwD0KvtHJYrU1T4nsdNLjdwR4LmwdxJu2lg/LYow+Cs +LQKu612c8TQ4+OjL4ShhU7Q12C47ZpgGgXGXW10cDVHqx0rBJQ06HGgbPXvV +CaPWwwH9pbF0kB54tm7URQ1N6rYkZA/S4XRB+ShI01CE2NMvvjsYIBlwebuO +gxQazteln4xigCtnJqf2hY2ozmOT6otuBvDk7TyivYMTxZb62c4qMsGgozvX +kus3a3Pz9TgcwgTa4ZLy5mtTrG8LZ10+fGICYZdDd7bBAIsUr5aKl6XBLmO8 +YaNoNJaYvD0TvlcWpI93zH3q9sbOvHGXWL9lQad+zmu11hkbJCR8dL4vB1ES +xs1ZrVZYSH+Tg6i2PFQQ944/o5ngM6Rbwzu/y4O4x+n+9nRdbCl2sM19LwG+ +Rhpl68po4hk94aTcVAI8/TX6qCVjK2550ldCmCdAunXKDJsuCcs9Glky1SfC +KwGlP84i4lizYu7567tEmK59c86DvB6HKDYUpH8nQt0kc7C2/R9aTT/SvRuv +6eNbsMZ6/Z9IT3HcTySJBDEiR0Z+D48ijv3lO3JHSfDbXIM4FtOLVCWbzXNZ +ZJg+oHbImtyGsqXHer8mkIGVp03m16xD8c9xcP8wGaJvxrfo7ypBujZ3b4rv +WuObU7g/XHiEKKerfhZGUcDu0r3JgqpUpHkhJVC4lwLzd3a+T9yfhGQyQ/yf +KFPh7RGOYnX5SORpnX6d9xIV5FiOvTpCQeiaUhMztZMKz5xuXHvNPIu+WBay +3WPQoLRaaL1Njz2yTTjOYRVIg1slp2emNI6h/C6ec+atNOie/2LiNHIAeRbP +CYuS6ODO1WVe/HsPytojJ7QrgA5f5TykatbtQASOQ6eTm+mw/siY7DMOJhI8 +VjtRIr+mFxtl3ilFOfS6VuOziA8D/jsQ0aLStQk9ifEU6WhgwEtTei5XMRdq +snL1PraZCYpBrol/DZdYBeC4X/IUEy5vXrlUrf6DJWi8HR2tZsLDovV8iYVD +rDcpeUmHvjHB5+/n6+eO97F2njXKjf/NhL++nzZw+PawZnpkd6j8ZUKY2amM +63HdLAPO6f8uc/z//w11E5vzwwkSkLzMpnZprg67L/XcvsmSBGG7+q8LnmU4 +vrStgPRFEuxGhI4veOdjg8K2ldarUmDvxCiiamfiIyL5Npu2SoMf/9ZAywu3 +cFvdM7Bvlgb/tMrnvoLxeCC/+kh3gAz8Z8E/7mN6GfcV6p+kSstCzxNrFbaf +frjk7YNNRa9lIelt1egZh1OY8KhmetZbDhg7TVruzdlgn1TTei4xeWi9c+33 +VP8RfKJ9vvm/Wnk49SCmxv+hAZYQ4HWmqBEgwCX5R5Akwt7/sVe8iyLAL53F +hyn3VHHSAbPMt/0EmNjzedOH9xT8aHKST11lzc+HXe/6n5HE/NmXo1QjiKDG +f+JaRqcAlhCNFvPrIsLwdFHDsBwHtlDIttZlkOBTwOzfMbUFNH6ioS4zmAQj +QpV/NshOIjc5UqZH6xpPz4tpNzT1oxPjrqZ9tP/loQnvsYR2JHFD6P7982QY +e5BqyDnZgJpaftq1vCNDQXVi4tO6clRL7dOKJVNg5VdS+DH7POSkvH1rsjcF +htvF8tU2ZSCdwZROhXoKyO5o9RezvolcC/jvGElRIbqpo0D08lUUxl/W89mV +CkEaq6+ptSFoKsx1+2oNFVzrGJqn73ihlYKrt51FaLB426cjo9YJ6YRXVR23 +o8FortDrRgEr1OW/sNJfRoPZ+YddOhsPoZMLbiWt6+lwvfXJfEeFDrIIbtY+ +aUsHh2Tf+3MqO5HE5FXHvaV02OSemDNyWRG1DERwpfAyYNL3/JkceyJ6Nx9Z +ddGaATpX/akvbESR74s/l/PzGeC99MAxtpwXmSud53FmY4I0Z2TgG/1VVmgF +Z1a+KRMqEjc8EWyZZdW2aKl4PGDC1P7APIXcEVZau56jo6YE/L5W+NNgqAnv +vLwv++OYBPgFX/B4OF2Nf80aSdbGSMKr5Czpoxef4/Zrq2eFdkjBusi8iYbe +h1jwSMSm331SUOjb+OeBeCrmDs2tux8kDQ/60oXz9iRhtNlppIgsA1kKK0W3 +pyNx+5uVA/ZvZEDATyX6qU8wvpKP7np5ygIxM9w8wtMTH0oeuu0qLwd6+IvW +mRkHjFHYu4H6NR5XblJ0TLHAB8U/Dpe4yQPhqm3nv/XG+ATPamoiHwGGl8zN +9fS0cbbMeO2yFQGUTdP+NvNo4AU1zhedzwlwk102vVd0C7bISTH+yUOEgzX7 +05P0CbhVXdCs+jgRguUrLsUEimDPo1MhnXlEiHVwFfsKPNj7kdhzYzYSKC0K +dNRaryDRQv77IYdJoP002lyHaxZ9NTzzZCWbBE0NRvajNl9Rw/LDrczltdmX +7PHcsAs9fSIa+foQGRzvFAr+DX2HcqtWAx9mksFQd6e9C7EGlY5XDexaJEP2 +jZPxd4Keo4X0KRfx/Wv8jXzBXeibg+KSHFYO313rT7TSIunPKeiNxmM9gx8U +eLsp6NXEtwSk5mb9PFKLCvZpVsRngWHoUcl4UsANKlyxEvD+kBqADid9SS6e +pIJyCQ/xSZg7Op5DzD7yHw1emm14/+i6LeJwV3V7GEuDDX5/jr3ZY4o66p4c +Nhxa6988XJK0O4bohRpb3h11OvQ7XzWOfoTR4/TLQzYxdFhdMXq9PkENPT0b +nucwQAfHBlAX1aehl8esf0htZ8A+rlcO3PekEEd7polMJAP2C/YWBVRtROkX +NaqDuxjQ96f3pMBxTjQ0dGP45hYmOGlpSYSq/2YZf7Td8jeYCa89+FrLXk+x +gmWqwt0+MsE2MV1g4NQAK/w7v0jMojQcrzLaRTsQjdXU6oLf6cmCapPK6Vgu +H7xOTbcj7pcsHKwtGDZacMZ53hlWE3flwHqz0+sovhPY9rjYxxMgD31zSpri +B0xwzMxiRMGkPFQTxtkfNOviAVF/MSEDAnQ46maeOqKJt2tw7Da5T4DPP9v6 +Ur5uxYuBgYH9PwnAYxC5Q8KFhF/En89f0iXC5fDhjzVa4rg6SCMs9A4RROr+ +eLWYrcev+tu+2n0jwgojcCyblw2Xuh/7N8Qiwb7DltcVz/xEox9vl7ZdI8EW +s529MZvGkISAo8v+kbU+7smZ5PK6F3G/xT9MdpOhMvHSmWTdNmSbyxOTGU+G +roMFdcI2dejl8WOk0CEyuDrs5ZR1K0GWX+1M2zUoILGSwmFS/AgtD+4X842k +QLT8n46E/lQUzk+NK+umwEurthsdfknISLD4gdtWKoSpRr1SOBiJJIbaSh6F +UOHku1+j34yCkHxMpqNFBxU+rHeyPrL/LNryxDT1BJ0G7pU7CkM5HRBl6XcS +RwANdNeNEiZOH0PmciYMsRYaeIiWH5cnGqE4UfXCIgIdZOW2x9+T00KX4hki +g350+JSW5emhugMNK/FdNXtHh5sXX2jrb2civRSvpeNyDOjRxL+aT8uh8eEb +vK1eDKi+acbOvrIJRd9PTrtZz4DZyNRDlQNcSCYyav6fGBOyPXWCiJeXWJP6 +28Y7XJnQEyswOOX9g5XqE3L8+wsmCP5d4VX6PMSyrFsumJhkgj6vtk387T7W +mxu3GxkLTDihASNf8ntYl9hcTZqWmZAu2jh+tqmbdaLo/ebkVSbE1qXXqZt1 +s5DIb+ZzDYn/8/f/AS9edUs= + "], {{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwl1me40GMcx+HT3nvvvRMNaaId2ktFpRQl2nvvvQvtoj0RZWVEtqRIAy0V +7WgRxf27vLjP9Xw/V696rud/TqEuvVv0SpSQkLAocULCEhryldCMH/SxSAn5 +/XhJK85m+1Hu4iH9a605B+1xJKGA/rJWgi12W8rxsL5Ha8EhezxJKaiv0kqy +1W7H3Tyif6O15LA9gWQU0ldrpXjFbs89NNL3aq04Yk8kOYX1NVppXrUfozyN +9W+11vxoTyIFRfS1Whlesx+nv3bDHk4iKmhNtH3ObfjJnkxKiurrtLJssztQ +kab6fu1RfrankIpi+nrtLl63OzJAu2mPIDGVtGbad85tOWpPJTXF9Q1aOd6w +OzFQ+9MeSRLu1Zpr3zu345g9jTSU0Ddqd7PdfoJB2l/2KJJSWWuhHXBuz3F7 +OmkpqW/S7mGH3ZnB2i17NMm4T2up/eD8GCfsGaSjlL5ZK8+bdheGaH/bY0hO +Fa2VdtD5cU7aM0lPaX1L3Alv2U8yVPvHHksKqmqttUPOHfjFnkUGyuhbtYq8 +bXdlmHbbHkdKqmlttMPOHTllzyYjZfVX4o54x+7GcO2OPZ5UVI93ox1x7sRp +ew6Z4i3pr8Yd8a79FCO0f+0JpKZGvCPtR+cnOGPPJXO8Lf21uCN22k8zMvH/ +j3eiloaa8a7sn5w786s9jyzx1vRtcUe8Z3dnlJaISVpa7o93Zv/s3IXf7Plk +jbenvx53xPt2D0ZriZmspeOBeHf2UecnOWsvIFu8Rf2NuCM+sJ9hjJaEKVp6 +Hox3aB9z7so5+3myU0HfHnfEh3ZPxmpJmaploFa8Q/u4czfO2y+QI96mviPu +iF32s4zTkjFNy0jteJf2CeenuGC/SE4q6W/GHfGR/RzjteRM1zJRJ96lfdL5 +aS7aC8nFvfpbcUd8bPdigpaCGVpm6sa7tH9x7s4lexG5qay/HXfEbrs3E7WU +zNSyUC/epX3KuQeX7cXk4T79nbgjPrH7MElLxSwtK/XjXdqnnZ/hir2EvFTR +34074lO7L5O11MzWstEg3qV9xrknv9tLyUdVfWfcEZ/Z/ZiipWGOlp2G8S7t +X52f5Q97Gfmppr8Xd8Tndn+mammZq+XgoXiX9m/Oz3HVXk4Bquvvxx3xhT2A +aVo65mk5eTjepX3WOX5pXrNXUJAa+gdxR3xpD4xvo5ae+VouHol3aZ9z7s11 +eyWFqKl/GHfEV/YgZmgZWKDlplG8S/u8cx9u2C9RmPv1XXFHfG0PZqaWkee1 +PDSOd2lfcO7LTftlivCA/lHcEXvsIczSMvGClpcm8S7ti879+NNeRVEe1D+O +O+Ibeyiztcy8qOWjabxL+5Jzf/6yV1OMWvruuCP22sOYo2VhoZafZvEu7cvO +A7hlr6E4tfVP4o741h7OXC0ri7QCNI93aV9xHsjf9lpKUEf/NO6IffaI+DZq +2VisFaRFvEv7d+dB/GOvoyR19c/ijthvj4xvo5adJVohWsa7tP9wHsxtez2l +qKd/HnfEd/ao+DZqOViqFaZVvEv7qvMQ7tgbKE19/Yu4I763R8e3UcvJMq0I +reNd2tech/KvvZEyNNC/jDvigD0mvo1aLpZrRWkT79K+7jyMBDbFN1DLzQq7 +GAud87Ay0f9/V+aN/0PK+rf/AX1fMrA= + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrsJgFAURMHrJ7ANW9HAxMgSDIQHwgO1G5tVA8EGzCZZOOy0c56Ws4zY +64gY034sRXyreqq5Zxq6Pq95S8+f4h0cx3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3Ec +x3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3Ec +x3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3Ecx3H8D34B1tdwtA== + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJxFmnc4F17Yxo2sQrKyffcQGRXl1/ecJzuVpEIiskdRNkUqs8yoNJSdNJBs +kRUNI5VdVnYJRUJ6vf+87z/nXM/1/Hufz33f13WIth4mDhxsbGx31o7/vV0G +fq1nYxMFm+cf5VkCr/HTRaGf2+Ik4Pm6ppVysXpcYDGmJ/6fJCiHh7oW3SvD +VXtbtd16JYGyUvXwblI+3rOqUK8XJQVKf2JzApwzcQtO/p60RRoy3/jS9Z/e +wtuJMYUFb6SBvHchYHVrPBZqml854icDIi+9bnqdu4wXlj1+uErIwvyXdHMZ +qj82mbdy4GmUhVe3LS1VU0/hiNgPfp6ecpDBaDUOFjmJXz232GYsLA/FvJMf +uPmP4nOpRz2fV8sD1co7aU+PAb7Lr/qkQYUA8hUHbZQtEC7ZMmvrHUkA76W4 +vV/qVHGV1LzjlS8EsOr4mzqzRMGGbReru7cSYTtKCVr3QBInODcd+xZGhGOu +Yu5uIoLYqvGmwc5OItxNGjxwQYsDiy3khk3RSPA3yzBbx3YBRfL4r7MNIkGU +fkb/hkOTKKS/uXNTCwmWtldcec49gLbf/vwtlEoGelplQmlpO/pIUTW2PkcG +5bc1khZir9AfHwFer7dk2HumaofM33LU/TCD3ZBEgcxblvEaGXkIZdYetPCi +QHlfxK009QwU50799r6WAn9vdWp8jb+J7khrveGXpMIBXuWhhrKrSDFubCXE +hQp/KpqT9EZDkP+I3tnSl1Sw+ZguOVzrhfZyKGsyhWmw7OM6EDrrhHh+WBxi +t6XBi+qmqaV9ViikCnLvltLgQdF0prnqIRR8JM/sLB8dlHwUwyvHdZBGc6ce +30k6zJttCLa234n6xHRCeUvowLYny+d0pSLipu4S38PDgJnYuVXBK0Q0JT4+ +sfsEA75Hsf9MjxJFR1vlhT3zGGDtQR/bPsWLHpvdiRT8xwCFMfLy2chVVlVt +G7gfZcJLg2/pYbOzrKO/Yg/wZDPBfE5MybJnhPUuLmzp3z8m/Lnev/2IfDcr +n7kiQx2RgA376jmVRF/inSbHG+CqJFSf2NLHzHqO2Sh/OY+pScFusVf9aoK5 +mPf+YNfpHinYSAkPuLk9FV/Mv2ZMPicNp5RblllOSTjde485J1EGaiKIrmeJ +UZhzSG2hv1EGBKhXRzTyg3HmoqNCmYcsnNC8LaN/yxN/q0merpSRg19Su18t +yDribOLNoydr5eCN/d4e4nsLnKrQZcLhIg9brjyu+qVojE9PK/08yEuAYuXX +7l6ntLGCzCbeFEsCWEgrBB3fpYE1yT/tLxQS4IhrhinTaAsO9flP5Bk3EQZV +xUqrnQjYXSaL386CCFeexjSaZorg35tVDl17SoSFzlG1IA8eXHaCOLbpHxF2 +3eskRN5cQS3BmxpoJiQwNYtqu8GcRaE/SdNlWSSoMyT6nY/6inoqj9q+/UOC +XnO3qS0XulCodYScpzEZyvpdgvxr3iHHA/KKLhlkuOP7edFQuwZNxHWFflkg +Q9rkr+rEh88RP72Q0W5IgYEVx5SCBznIke+XrPgdCvDsUTn8YvM9JNaw7fiP +7xRQOKmaKStyDdl/ShrW20OFMpssZ4esMGSiublE5joVyjmiH4l0BaCBn+Wf +zkxQYXmhs1Gqzh3lLNbrimnSYOhjcZNpuS2q72j+axRDg4Z4l6gzZ03RBb5F +Np5BGkwu+JXtazNEPfHaB1k76GD49Z0HYQajK7MxI7zRdNi7WFR3qVQNnU1B +zZT+Nf3uCnNCXjS0mCLEVq3GAKVEeoZWpxQi/OQM7gxnQMI2dj3l1Y0oJNHq +AHQyQN28pZF4kRPtECi2RwpMyG6ODBB1/s260qvcWB7EBOL7bgMR9m8sIa31 +mZwfmCBlyehwSRhgKSdwRyqWS8DcXWlst1yDvU2J4VvsJMFRWkBVnaME96uP +koe4peC+cuJ5cecnONMo3KinQAoqzDj3fFVJxwx/MXnLw9LQmVq79N/IDTxl +OBbWMy8N4Mf1+kl4NF5/NCng9n0ZCDiSUd5qeBEfCJziF9aRBeNDwjvSVH3w +/ePLzKFZWVghPfPmVXDB4uZFoy635UDw154dn7VP4EIPSe2HLHkQEVRUfuNl +gnOrzBUVxuVhg7PWudZFXWwnmmZRoEeA9Dj78Q0xmtifPjf8J4UAF+aLS+ap +yphoIMG6N0eAon58xzeGhC19RRzv6RBhYokpEOIpjnXg/FF8mwjB48nbb0Sv +xxsS+zZTp4igNWhVy2SwYU/NE9So3SQYu12UlX3rJwoPOvAnJoEE24L2XAnG +Y0ipZVPK9DAJNO5sPX+Kqw/1nX8WtqxJhpeSRdJSzm1IdhcD2ceRwc15c6J9 +eB2a5fB6xRgkgzUtW94qpQR5Om8Ri1WnwOJMZ9v7749Qu2mv+s4ICpwRKN73 +jC0Ntd96nGHTRYGrbzmjfTKSUIj/VAdTiQrGDw8ygy9Eomr7f91GF6jgE79x +nUxsEHr8LSRD9BMV/uMRzqd4nEX+f/9geRoNyLyJkUuKDmjUNome40eDVNnU +kWOZxxCb/d1P79/RIMD0zFMjKyP02DPgsJk8HeZauHh6dbWQTb+aeJQvHRQT +uV6dP7EDZR+ryRF/S4e/p8WKkCMTXRikbGCTZQCv1lXH3XlyiJtrYdsVTwbU +xRmKShKEkWtBlfKxOgb4cJxlb9zAjc48y/HNFmWCcWih7ouKJRblIFtokgsT +Xo3ziicV/mCp3XnnH1bJBGeBkUQyzzCLbMDi8rCTgBxLW9cxz1dYpXa2QFZI +EsgLS07qpZV4+cD1daaFkhC+LH7T4NIzTNgk+rXVSgq8fhFKT296gN1+7LZj +55SGQLqEeHTvXdwzvvHSZLo0OO53mmtQvIaP3bujoLhfBm5JNShcIobjFff3 +ntQZGRB6/tnWatc5vOw7pG9zRxaCcq7l6R86gzUZ6oU39eXgvZCCeYCHHVaf +8q83n5SDj8tZpqjWDMeO3LA9niQPu+8fmNI9vh+HBim3XZEhgMsdXeXTW/bg +GfLFokhPAvzMCvzAZ7wdr8j9Gln3mgAdh043e/yg47H0ExMNUkTY7P1PVZhT +FofUqhfSzxDhycj56LfKm3Duj+H9I7VEONHNvb4+bx12UnAsXhUmQXi0j+DJ +/X/Qlrp6+3on0tp7+C6wVXAaXXJZHBopI8Fj84rvlpQhFPHoFj1nIxk4uViD +Fq6fkKKWZcm4AxlCzYjGlG2vUf5JcSn3EjLYVfK/jgqvQoMySDuJnwLX9ybm +aok+Q1kjmrvFrSkg0SZJb67LQksV/Fy/nlLAgmK/7nDabWQ+Uy4czEkFSdsL +Obdy4pCBGpqxO0qF16fm8/YSLqORjcpJk7lUeP9z4vfhW75IdPkXT/NfKnzd +6y1SRHZDXT/j9m0wokFoN2s7Kd4GpRvyfJxPp8HVj6EJeZmH0erTw4q752kw +f2OR6/oTfcSbJ7CPvI8OX7ry7mlP/IcKOSeeR6bRYdsRq5xYRxW0e7BiVu0n +HZAhz5nxTjLytFj5FWTAgPEq5v4rgZuR5uCmJsodBqzeLrLetpsf3fBZcaVP +reUD+69cF/awoyWnOpMOzAT+B5o2TsG/WDNO1usHE5jwdsfHqfnKcdb0uH7r +xQkmWGwtD1Lt6WNN119l5WdKwJSRTc4Eex2+Zh46SjgoCQEXx18pG5Rio5c9 +hbRZSQjmnvMT+y8Pe2abR8WnSIGjxcumYZ0MvNxrGu6PpWH2+i3iAE7GQurl +MnoD0hCazbd7p10sjhHUrfC7KgPj9eefzVpcwqQKpWC0VRYSN28fgvu+2D/n +caN3nyysy7ZR5uh0xUZeOsru4XJwzMvcVkfEBu8W1qxYocvD8jZVX6Giw/ia +stnBHx/k4crZ9TWsE/o4RGjicsV/BOi+9uKRi91unPzwLFkjkQDbUn1Oa6ar +4DMF3CZJ4wSw1yXWPC4n48MZb4QrdxGhWnXfS8l/m7HrkfROsXgi/A060/5z +Dz/erqSZv3WQCAJbfNqlldixTnLo0XJVEmSdExCmzv1CEbVDq34RJJh4ebBG +unIcdXR4aLJ1k0DHdcdGicXPKHKDwS5QIUPsltldmeHv0eJTxcaTYWRYXaRo +vaurRz67YexABxnsoz5nfEBliBbltOGUIgVs4v9Ulpc9QZF/jbT3BlFARUNz +H5dIOlJZN6F/q5kC0zwWh2sEbiDBNzeMpclUWKdW19Gz8QpaCPCacvKmQvjW +XSOydy4g4Qm7K6NvqDAQGPNffpwnGrggyqLI0EDhU8pF61BHtJDjV/nxFA1a +Vbqu33A+jiBhGpfU0mDpUeUZNoYxum6XdNRelA5p4mLe01e10X7TsK2v3eiw +NbC2PP2jOqopuXRjYw0dSrn3+zDXbUFanHnxBGEGxKPGJncnAloU+BFr58yA +gpvOVbv2iSAb+JHqUMYAwaYljd1neJAgV/qFHr41Xg70Jc4krLBmI51tL1oz +oSPtyw2LzzOs+kYlO70CJqSHp59h2X9lffE4HBt9QAIe3ZvYdrK0Ec/M+zql +LUmAeJF4yrJ9FZYyXrTfd18SlMrHiQ3RhTj+Nq+3qIEUMMXfKL4KzcGa+hvv +lUxLwUzQe+Gn1+/hp/sPTXDHSUOTp1kch1YiDo5yr7mpLgMOtW33Y69H4BDG +peccfTLQphEp9HLsPG4roZRFh8nC8x95Bb1uZ7GIz5ixgpocNGX3vamqsMfu +3LwCVh1y8Oy884MfrGN4c2RJz9NgebgULp/Vs9cILxY9PXlamABpXyeo4tpa +WIDw+ss1JwKwP2S81indgaXTvKhaVQQ4m5dsnBHPxOr8B1YrhIhQGJEebNUj +h/1+fLfWdSDC+0GOtmRrYdzGub61opQIiz8L/B+t48bx9XVGvHwkYHz51Cs8 +soRWCFNJ85Zr/q6/KVNv4wy6/DRmvDWPBJ8PYBH3A8NI5fnv+rJ1ZLDpSlsM +HetAXW2zrkrHydAY/6Rz39QbdLVTKsPtCRn0Nnw45/TfS+RgusG+jJ0Cd+rn +gocOFyJzbj+1X0coQOE/VLBT4QHKtw3ZxJVFAYcSeYtVo7uo2OJ3cfEiBYxH +rjpvnYxHHZcnXI7uowI05UV+Ng9FMtSMLM5UKizOnnR4peCPAn93Tt/7SYWx +5nVLQ19PIfDNNRDSocHJQ32l5XdPosL4SWdSMg0ePzklSvx3BKG+rBvEKRqI +df1b8VXbi2bvMw6oAB0kI26Imfay0L3A/5qbbtBB8K5pZ3GYKjLFQf1bJujQ +reAVbiBNRTvOhwfeYzEgWvLo84tSkkhpcj15NZ4BouPbjBUFBdHVdUp92wYZ +wMGT3xxizoGSyyuPr9/BhD3ppNXe0XnWi7TG8eYIJjzOl6zcaDLJuiD2sEzr +CxM0LjQ9vDL1hfXKWvSH+wYZ2OucI5H+6gr23/XwzsgxWZAfLNeu7/HCrwQN +ow/yyAEtImFj7E0n/GU37Z7DUznYJBt7WSfIEis0L745elge2KsGzLv0DuHa +AxZ8Divy8Cmc62Vajg7Wkzim+uAQAV6MtPtyfNqJj2V5ZlbmECC4y7hniqmE +278wGTkrBDg+K7+k6EnEDnsty0IOEiG1V/enzz9RLKdo+sE5kwh71I1IabO8 +eGgx+IL0PBHmOk4sWDusotQ+jXkzfRKYnG+P0zWbQ2E7S39m3CGBe1bolaru +ERTaUPivb5oEX53yrtO29SCVaZn2Yl0yiJlxSxeXtCCtOnKR4y0yvInOMfhx +vBadfp2VxfmNDKod6y36xItRtf4PuXygwFmpIetCVi6SyXdSoCdQYH0286HO +3/vIW/nMP/owBXirOaecjRPRHA2sdmpQ4VqcoBmdJwJFHrzatOMKFU4Png9X +yDiH9GZSKrX6qXBS2ipMzuYMEjrXryWlQgPhNobu+kk79Emm4Nq5SzSg8Y91 +av01Qy/VDd2+ddCAX1ft1+PI/aju4olDhgp04Bjok+AR24N8nAf+GlykwxuX +JgNDtu0oevlfuewnOlTYXoyQHKSjyurbYf10BlQoYqm3z2SQyMpKV/55BnT7 +tK6K8WxCPqTYqv3Na/6svWUguHIdarfOO+0pzwQHbTvHes4/LDOx5KwHXkwY +PxcwnvP2OyvN3S22vpEJcZ0dOrY1gyyrytGvL38x4QmnSx761sNqOWEkMXdL +AlZ3fM8jXKnD6d1FN6R1JeFW77Xeo7OlmJvr07LBqCQ8zg0/bro5H1u012S7 +JUrBB41qlbyPGfhrzO+y8B3SsPqAP/PKr2Sc/og8fu6TNAy3PUgrtozDRm6y +lo4XZaBzlK1i88QlHN3bUnyELAu7Xno/EbT2wyNGYeJV72WhNA3lLJS44Um2 +6MNnzsuB7qjZQ98EG3zRztCPJisPb0UWeKqtjmBu546B96/lwa3mSbeppAGO +FYxJBnUCFOQ8+HbXgoVzXFXrPsUQYPaklvdjFVW8eTTIMm6YAInfErZbmFNw +yy7ahOF2Ivwn6lEW0SqBg08USbBfJUJo4d1dQnQBbLDkfH5bHxFaCQyNvCJ2 +rNh487uJIglaLmj70h/MI16HJ+ynL5HgvHLr1rOXJ9CWXjm+qA9rPPS3sNFb +/YK+tAsnDimQ4UyNgBlDth2NTjy9ahNChqrNMqeXXBqQRne230AbGSLtdmci +qXIUciuM+zidAtZ7Y+dycp+i4bbI14f8KTAx/HfPrfR0ZLOL5/aOJgpkRoUZ +y767gT56nhIQlaPCke81wmGDV1BCqJL3L3cqNHZ814g3C0G6Tp+CWhuoMLXH +cGKQ5oVEa9IqaJvX+viK9B3KTie0um+C282JBmkX54y1TC3RwIPN8w9f0EDd +WuPe3VxjtL4vrWNScI1nh3d6OWjooNqEp5oujnSoHRH9pXZLA7U42gnwV9Kh +nddDfLRvC6KIen/I52dA+LtjacYLBOR5zW23sR0DSr7N9MyOiaCeiIhut+cM +qNfgHn2vwIusnsqFeq9jgim9fnhd1F9WV9bd934WTJjY1rBtv8Msi//Eia7s +R0xYfKCxR0hmhFVx+YvJHS0J0Knu5RY/2YTb4nZpDf+QgGXJpENN2tWY+Z4p +pnddErydTC6rbH6ODfo5KtVZUuC7fWnfA72HmOjlX3HtqxQEwvljSufv4+TV +WRmxMGnoHox6eq09EQv964xu3iIDwhIx2N08EmuFWRydfS8DqvWJ+9OagrBm +V8NseqAsbCj9oE9m88Qh0i/ve9HlwLRxvyq3qwNen3RQ1fqdHOzYnLDl0joL +bNndeKPLSx5obyoa4g4cxGom7rknBAigcvhG7/lPWlhG7vTPzbYE8FVT2njb +Rx0r2G5rGChd20vHkarcFPBnqOct2bDGy6gf28Tfy+O5sL3qH62JIC75GGv/ +E8ZfBWSFHhQS4XTXHZE9Jdw4M2FOSmAdCVpf+Rctly+jkYOrirFmJJg7ba+3 ++fYMWnfIfKo+lwQehV4POSaGUVhpdqLWPxIos+vTvuV1oq3JlfWtR8mwbcuu +5Ivtb5G/cIqTaw4ZdOY1gg69eInoP8/+2rdCBq99ZOXB5UL0TPy60vBBCqSi +rEMrIw/QBvXymwKpFBAcelQ8oJyCRuPE+A7/pIBjmOqM8vkElKJYTTPSo0Jh +1QGhuJVQVKJstTX+NhWM+h9Hfvjrj5747B2KmF7Lm35lB6HtNPIu0WgUxjTw +/Tzta8a0RZXbLAtLr9Fg+6K967aio+jLXMs+0VEaaMt/+Mdc3YscJdRbijXp +oHvPJRINIiRabN/tnECHn+9v2STKqCH7aStTxlc65PInat2tpyLxmH0vtu5k +AOyIHGPOS6Js94i2yasMkKs/a2DEsRFx728Q1exjgFmq/erVSQ40arfLJlOZ +CbLu4dt1MxdYmVXLZvWXmLAhxMJOkzbFanrUvTWjiwnKeYHOZPYBlvmnoPJM +NhnQbs3vV8u4ioeOGX5cNpIF3cBZ0bOXvbFaEak3eUUWArv7C65bOePAN6dr +nTLl4FxPxGeGlRV2l+OLuGAgD2zp49d7ew5h9fDu2/pz8lBVqiBMNdLFR8T/ +6iruJ0Ces2yE5ZNd2NlRTed4BgG8und0NZC34kCRNLWM3wToKX5xP+svEQ/0 +l8RtNCTCD6GXq8NFYlhV3UX0yP01/VQsPxiv4MMLDU/2EWbWZr7NmZJm/1DU +hn0xM3tI4Na6lPd6fg5x915aSL5BgjxrJ4vuqFHU9dq2xWGCBJp88ybWEr0o +vGhsyzEgA1+Y/6PI6lakspoV4JBEhoWIXNKX6Vqk7MivfmOUDOu4LsX3dBQj +CXMBqfv/UeDMWatX9sKPkN/ltHzlaApcoeoWFQSlogz72EP1nynQ7Hbwrfzv +RFTWKialqkaFV08VUlxeRiCKhe6h2lAqrLhd9A9LOo8C3Dfmb+mhwpk3rhaX +Rs4gncpTNTJbaFAVulrDE2WPvlSTPm8KooHXt3Z/g2ZzZHPAi9D/ngYnUnvc +j3kcQDuX3NrbKHTg9/fq6M/dgyYz+NZPnKODQNnW3cGPt6NbuQOqUm10mH7S +mP8olYHutVk3eZAYEJKiLF/3WBZFhwSEp/gxwN52otkhYROacaH9NmliQO0r +1kjCSS5E5FP05Jdign+UtqNk3x8WUnsnes+dCe2dpwI7KqZZk+vuclJrmZD0 +zuPc2ZNDrGyTzRbEH0yIXpWiz33pZYnSij1slpiwMJaZ+469h1X1KI8rMUkC +4m952IW01mGF2y3TEiAJ6UYcvEH6ZdiW3i7fMyAJzr3hDZFH87GRs++OY7FS +kCOuPyUsl4m7Rxs/xKhIw8PrG8LrjW9hN8euZvE2aaC6nSVa9cXhvFtRj63O +y0Dz+HeuF6qXcY2b/Id+WVkYu+ptZ1jjh2XSZ1/YvpMF77n0JPqWU7i0Mc/h +rJ8cSFgLsq2+t8GUaJOjFZvloS5Arl/x+REM624w6+rlQSKOobgxwABfF+gn +Xd5GgOSqkndHu1lYZd8mEepVArhFZY7lBqhi15CyQf5BApwfnBjiekjB/FxH +jlxTJUJYy75gG01JHDmMynwj1/zbsczS5K4AbrcJGSrqJsIBtpnkmGV2nHoi +bdd9JgnEqmV9fnAuIINi4ctjF0jAXi9Y4zkxgUytfM80t5GAv8XX4nloP4pS +X6zexiDD7H53nf2u7ciKZ+Z7fxAZBD66XWKvbkDJ9J5qZgsZHgk0ylRcKUeP +00RD2ykUEKp3tVuk5qH48iz+Dh8KEPOVnvF/S0eLh8XrLjdQYGqhfzlP6Sba +qd/pFi9Nhd9X+G1b919FX6KulGqeWvNnfyFNk3sh6AQt9rd2HRW+1qRQ9by9 +0NOT40sPRGkQSjmXJJfkhC7JkhSL7dfyZXxYoUSbJVLZ9vgguYIGwQdVb3p/ +N0Y6yYzNW/npEJoj+O5QnA46r1wHZXZ0CBZ+vGXurwY6WvXB4EoZHYKikoSa +9ymi63c7fi3yMWCDRlR6Aiaipx+Zia9sGDDR2dPE2CmKkh99mJ8uYADfn/xB +vSu8aB2nVXgNOxOMDvwefMSzytr3XJ3vp9lafrzs3Po5d5al8nBBuDOHCaPM +nYF2gSOsXAFKEYklAdvoN48uFDfhl323lUMnJeDVLXTXtKga5ydondaOl4Qn +vklK5VbPcSY720CjhhQILyY7FD18iEX5lAxD+qWgzj2c0jt7H0eb1arLhEgD +227zrXYySbi7LNrTmSYDjnO/zzIqI3F64aus8Xcy4PK+tvvaf8HYw1lccKuP +LASbJW3bvN8TF7sr6kuQ5OCY8niAXp0D7rLw0rZplAPX4+vPC7ha4FX2Nu/T +7vJwcKtkbEb7QWxMaDHqXE+APQO0aTuCNibLVgdZWBOguefHx4cd6viZloiY +SjEB1p/u6uLqU8Aqvf9itvOt9WlL7qAcOgGrHPJLk7YiQtLU0IrMIRE8fS07 +X6aACDJ7HUIeCPPgrYt8F+PYScDS/qbhylhBFmM8AT1HSOAXQspHgzNIJ/3F +KZxDgocXjgam7vyK8jVXl8JXSCB/qUjniXgX6l5OmyUcJsPW0tI3bHvfoR/K +X15PZJGBZks3fPPvJYrck7X7+h8ynNz+8hubyXPUL0d5ZHGAAvbPYprE9HJQ +qXxnT0IKBWxbLxp/S09BwbkUtbQZChBq3LK4GxMQG7tC2BvtNT9OFxU9bByG +1u0o9+y4SYWnAnzH+FwD0KvtHJYrU1T4nsdNLjdwR4LmwdxJu2lg/LYow+Cs +LQKu612c8TQ4+OjL4ShhU7Q12C47ZpgGgXGXW10cDVHqx0rBJQ06HGgbPXvV +CaPWwwH9pbF0kB54tm7URQ1N6rYkZA/S4XRB+ShI01CE2NMvvjsYIBlwebuO +gxQazteln4xigCtnJqf2hY2ozmOT6otuBvDk7TyivYMTxZb62c4qMsGgozvX +kus3a3Pz9TgcwgTa4ZLy5mtTrG8LZ10+fGICYZdDd7bBAIsUr5aKl6XBLmO8 +YaNoNJaYvD0TvlcWpI93zH3q9sbOvHGXWL9lQad+zmu11hkbJCR8dL4vB1ES +xs1ZrVZYSH+Tg6i2PFQQ944/o5ngM6Rbwzu/y4O4x+n+9nRdbCl2sM19LwG+ +Rhpl68po4hk94aTcVAI8/TX6qCVjK2550ldCmCdAunXKDJsuCcs9Glky1SfC +KwGlP84i4lizYu7567tEmK59c86DvB6HKDYUpH8nQt0kc7C2/R9aTT/SvRuv +6eNbsMZ6/Z9IT3HcTySJBDEiR0Z+D48ijv3lO3JHSfDbXIM4FtOLVCWbzXNZ +ZJg+oHbImtyGsqXHer8mkIGVp03m16xD8c9xcP8wGaJvxrfo7ypBujZ3b4rv +WuObU7g/XHiEKKerfhZGUcDu0r3JgqpUpHkhJVC4lwLzd3a+T9yfhGQyQ/yf +KFPh7RGOYnX5SORpnX6d9xIV5FiOvTpCQeiaUhMztZMKz5xuXHvNPIu+WBay +3WPQoLRaaL1Njz2yTTjOYRVIg1slp2emNI6h/C6ec+atNOie/2LiNHIAeRbP +CYuS6ODO1WVe/HsPytojJ7QrgA5f5TykatbtQASOQ6eTm+mw/siY7DMOJhI8 +VjtRIr+mFxtl3ilFOfS6VuOziA8D/jsQ0aLStQk9ifEU6WhgwEtTei5XMRdq +snL1PraZCYpBrol/DZdYBeC4X/IUEy5vXrlUrf6DJWi8HR2tZsLDovV8iYVD +rDcpeUmHvjHB5+/n6+eO97F2njXKjf/NhL++nzZw+PawZnpkd6j8ZUKY2amM +63HdLAPO6f8uc/z//w11E5vzwwkSkLzMpnZprg67L/XcvsmSBGG7+q8LnmU4 +vrStgPRFEuxGhI4veOdjg8K2ldarUmDvxCiiamfiIyL5Npu2SoMf/9ZAywu3 +cFvdM7Bvlgb/tMrnvoLxeCC/+kh3gAz8Z8E/7mN6GfcV6p+kSstCzxNrFbaf +frjk7YNNRa9lIelt1egZh1OY8KhmetZbDhg7TVruzdlgn1TTei4xeWi9c+33 +VP8RfKJ9vvm/Wnk49SCmxv+hAZYQ4HWmqBEgwCX5R5Akwt7/sVe8iyLAL53F +hyn3VHHSAbPMt/0EmNjzedOH9xT8aHKST11lzc+HXe/6n5HE/NmXo1QjiKDG +f+JaRqcAlhCNFvPrIsLwdFHDsBwHtlDIttZlkOBTwOzfMbUFNH6ioS4zmAQj +QpV/NshOIjc5UqZH6xpPz4tpNzT1oxPjrqZ9tP/loQnvsYR2JHFD6P7982QY +e5BqyDnZgJpaftq1vCNDQXVi4tO6clRL7dOKJVNg5VdS+DH7POSkvH1rsjcF +htvF8tU2ZSCdwZROhXoKyO5o9RezvolcC/jvGElRIbqpo0D08lUUxl/W89mV +CkEaq6+ptSFoKsx1+2oNFVzrGJqn73ihlYKrt51FaLB426cjo9YJ6YRXVR23 +o8FortDrRgEr1OW/sNJfRoPZ+YddOhsPoZMLbiWt6+lwvfXJfEeFDrIIbtY+ +aUsHh2Tf+3MqO5HE5FXHvaV02OSemDNyWRG1DERwpfAyYNL3/JkceyJ6Nx9Z +ddGaATpX/akvbESR74s/l/PzGeC99MAxtpwXmSud53FmY4I0Z2TgG/1VVmgF +Z1a+KRMqEjc8EWyZZdW2aKl4PGDC1P7APIXcEVZau56jo6YE/L5W+NNgqAnv +vLwv++OYBPgFX/B4OF2Nf80aSdbGSMKr5Czpoxef4/Zrq2eFdkjBusi8iYbe +h1jwSMSm331SUOjb+OeBeCrmDs2tux8kDQ/60oXz9iRhtNlppIgsA1kKK0W3 +pyNx+5uVA/ZvZEDATyX6qU8wvpKP7np5ygIxM9w8wtMTH0oeuu0qLwd6+IvW +mRkHjFHYu4H6NR5XblJ0TLHAB8U/Dpe4yQPhqm3nv/XG+ATPamoiHwGGl8zN +9fS0cbbMeO2yFQGUTdP+NvNo4AU1zhedzwlwk102vVd0C7bISTH+yUOEgzX7 +05P0CbhVXdCs+jgRguUrLsUEimDPo1MhnXlEiHVwFfsKPNj7kdhzYzYSKC0K +dNRaryDRQv77IYdJoP002lyHaxZ9NTzzZCWbBE0NRvajNl9Rw/LDrczltdmX +7PHcsAs9fSIa+foQGRzvFAr+DX2HcqtWAx9mksFQd6e9C7EGlY5XDexaJEP2 +jZPxd4Keo4X0KRfx/Wv8jXzBXeibg+KSHFYO313rT7TSIunPKeiNxmM9gx8U +eLsp6NXEtwSk5mb9PFKLCvZpVsRngWHoUcl4UsANKlyxEvD+kBqADid9SS6e +pIJyCQ/xSZg7Op5DzD7yHw1emm14/+i6LeJwV3V7GEuDDX5/jr3ZY4o66p4c +Nhxa6988XJK0O4bohRpb3h11OvQ7XzWOfoTR4/TLQzYxdFhdMXq9PkENPT0b +nucwQAfHBlAX1aehl8esf0htZ8A+rlcO3PekEEd7polMJAP2C/YWBVRtROkX +NaqDuxjQ96f3pMBxTjQ0dGP45hYmOGlpSYSq/2YZf7Td8jeYCa89+FrLXk+x +gmWqwt0+MsE2MV1g4NQAK/w7v0jMojQcrzLaRTsQjdXU6oLf6cmCapPK6Vgu +H7xOTbcj7pcsHKwtGDZacMZ53hlWE3flwHqz0+sovhPY9rjYxxMgD31zSpri +B0xwzMxiRMGkPFQTxtkfNOviAVF/MSEDAnQ46maeOqKJt2tw7Da5T4DPP9v6 +Ur5uxYuBgYH9PwnAYxC5Q8KFhF/En89f0iXC5fDhjzVa4rg6SCMs9A4RROr+ +eLWYrcev+tu+2n0jwgojcCyblw2Xuh/7N8Qiwb7DltcVz/xEox9vl7ZdI8EW +s529MZvGkISAo8v+kbU+7smZ5PK6F3G/xT9MdpOhMvHSmWTdNmSbyxOTGU+G +roMFdcI2dejl8WOk0CEyuDrs5ZR1K0GWX+1M2zUoILGSwmFS/AgtD+4X842k +QLT8n46E/lQUzk+NK+umwEurthsdfknISLD4gdtWKoSpRr1SOBiJJIbaSh6F +UOHku1+j34yCkHxMpqNFBxU+rHeyPrL/LNryxDT1BJ0G7pU7CkM5HRBl6XcS +RwANdNeNEiZOH0PmciYMsRYaeIiWH5cnGqE4UfXCIgIdZOW2x9+T00KX4hki +g350+JSW5emhugMNK/FdNXtHh5sXX2jrb2civRSvpeNyDOjRxL+aT8uh8eEb +vK1eDKi+acbOvrIJRd9PTrtZz4DZyNRDlQNcSCYyav6fGBOyPXWCiJeXWJP6 +28Y7XJnQEyswOOX9g5XqE3L8+wsmCP5d4VX6PMSyrFsumJhkgj6vtk387T7W +mxu3GxkLTDihASNf8ntYl9hcTZqWmZAu2jh+tqmbdaLo/ebkVSbE1qXXqZt1 +s5DIb+ZzDYn/8/f/AS9edUs= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1me40GMcx+HT3nvvvRMNaaId2ktFpRQl2nvvvQvtoj0RZWVEtqRIAy0V +7WgRxf27vLjP9Xw/V696rud/TqEuvVv0SpSQkLAocULCEhryldCMH/SxSAn5 +/XhJK85m+1Hu4iH9a605B+1xJKGA/rJWgi12W8rxsL5Ha8EhezxJKaiv0kqy +1W7H3Tyif6O15LA9gWQU0ldrpXjFbs89NNL3aq04Yk8kOYX1NVppXrUfozyN +9W+11vxoTyIFRfS1Whlesx+nv3bDHk4iKmhNtH3ObfjJnkxKiurrtLJssztQ +kab6fu1RfrankIpi+nrtLl63OzJAu2mPIDGVtGbad85tOWpPJTXF9Q1aOd6w +OzFQ+9MeSRLu1Zpr3zu345g9jTSU0Ddqd7PdfoJB2l/2KJJSWWuhHXBuz3F7 +OmkpqW/S7mGH3ZnB2i17NMm4T2up/eD8GCfsGaSjlL5ZK8+bdheGaH/bY0hO +Fa2VdtD5cU7aM0lPaX1L3Alv2U8yVPvHHksKqmqttUPOHfjFnkUGyuhbtYq8 +bXdlmHbbHkdKqmlttMPOHTllzyYjZfVX4o54x+7GcO2OPZ5UVI93ox1x7sRp +ew6Z4i3pr8Yd8a79FCO0f+0JpKZGvCPtR+cnOGPPJXO8Lf21uCN22k8zMvH/ +j3eiloaa8a7sn5w786s9jyzx1vRtcUe8Z3dnlJaISVpa7o93Zv/s3IXf7Plk +jbenvx53xPt2D0ZriZmspeOBeHf2UecnOWsvIFu8Rf2NuCM+sJ9hjJaEKVp6 +Hox3aB9z7so5+3myU0HfHnfEh3ZPxmpJmaploFa8Q/u4czfO2y+QI96mviPu +iF32s4zTkjFNy0jteJf2CeenuGC/SE4q6W/GHfGR/RzjteRM1zJRJ96lfdL5 +aS7aC8nFvfpbcUd8bPdigpaCGVpm6sa7tH9x7s4lexG5qay/HXfEbrs3E7WU +zNSyUC/epX3KuQeX7cXk4T79nbgjPrH7MElLxSwtK/XjXdqnnZ/hir2EvFTR +34074lO7L5O11MzWstEg3qV9xrknv9tLyUdVfWfcEZ/Z/ZiipWGOlp2G8S7t +X52f5Q97Gfmppr8Xd8Tndn+mammZq+XgoXiX9m/Oz3HVXk4Bquvvxx3xhT2A +aVo65mk5eTjepX3WOX5pXrNXUJAa+gdxR3xpD4xvo5ae+VouHol3aZ9z7s11 +eyWFqKl/GHfEV/YgZmgZWKDlplG8S/u8cx9u2C9RmPv1XXFHfG0PZqaWkee1 +PDSOd2lfcO7LTftlivCA/lHcEXvsIczSMvGClpcm8S7ti879+NNeRVEe1D+O +O+Ibeyiztcy8qOWjabxL+5Jzf/6yV1OMWvruuCP22sOYo2VhoZafZvEu7cvO +A7hlr6E4tfVP4o741h7OXC0ri7QCNI93aV9xHsjf9lpKUEf/NO6IffaI+DZq +2VisFaRFvEv7d+dB/GOvoyR19c/ijthvj4xvo5adJVohWsa7tP9wHsxtez2l +qKd/HnfEd/ao+DZqOViqFaZVvEv7qvMQ7tgbKE19/Yu4I763R8e3UcvJMq0I +reNd2tech/KvvZEyNNC/jDvigD0mvo1aLpZrRWkT79K+7jyMBDbFN1DLzQq7 +GAud87Ay0f9/V+aN/0PK+rf/AX1fMrA= + "], 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]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + 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" -> {{5, 13}, {0., 0.1957165151046949}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8V+8bxu1RSFa2zx6yK8q3z/Pc2akkFRKRHUXZhFRmmVFpKDtpULJF +VjSMVHZZ2Q0UCenn9885r+d1n+fc13Xd7/M65xDtPc2cONjY2G6sHf5/RqK/ +mc+0JMHu2QcFluArnNFh4OysLQm/rxT9NBpuxvmClGISSxK20K8fXihpxpUX +P5vd0pEEvZo+Honjzfiz58H42H2S8ODO5JbjZU2YbMTi9nSQhDxre7dxr5f4 +8aLwzy0JkvCMq3mlQrwBa5rZBY8kSULqMpvGhbl6XP2ggDs5RRISb3g6hLXV +49ZjJpJzNyRhddu3AsKlevy94TKrMFsSpk3s8ibZ67FqEk+0UoUkzN2WwQ7L +tbiQuSJLHZWE9XsaOJXFXuDtF/fkfhiXBP/Qc573v9fgF/03VcOnJOHlDXTb +vLgGtyfs0Bn5IQnLUikHmnVr8My8n0vGkiRIFEukLTtWY7W62SdywlJAXlhy +0Syrwk+sxg0k/pMC1chwt+I75dhjqffmdZYUiDg0fFnwKseKN1u/S4IUZJpw +8IUYluPMnuJrMvpScKPvSt/h2TJ8xTJ8jLBfCgLPT7xUNSrDPubEyM0OUuAs +I6iuyVGKt5sdbYTLUlBzbHM/M+cZ/jVrIlUXJwUvU3NkDp9/hguTdE7pJkrB +I78U5QqbZ5j5jilucFUKfFzMLqpteoalTRcd99yVAuWKCWJjbBFe3neVy7xI +CiKXJa4bXXiKq3e36br3SQFlpfr+7ZRCnFjW/oT0WQocRoWPLvgUYnt6h0Lv +oBS49kU2Rh8uxDzcH5eNxqTgYX7kUfNNhdjkRW8RbVYKQnnm/MX/K8ADmmPk +YR5puKuaHCzh+gizUf5yHtGQhp3iLwc0hPJxx5XVM8LbpIErumCyse8+zmZn +G2zSkgaRxVSn4vv3sdEAR5UmSxr8ti7tuWdwHyfe5PMRM5IGpsRrpZfheZiw +UexLm400eP8ilJ3aeA/vWlVsMIiRBuU/8XmBrtnYqKh9pe2yNDi6MIqputnY +xNVv25F4aciTMJwWkc/GVh21ue7J0vBeq0at4EMW9sq1jElMkwZnqxfNI3pZ +ONsk0qT3iTRUWnDu+qKWifnuDnWf6pWGDZTIwOtb07HQoaiNv/ulociv6c89 +iXQsxq9sHDYgDfUekZS+2buY6B1QeeWLNARB8BHl4LtY23DDndLv0jAT8k7k +8dU72P3HTgd2ThkIoktKxPbdxq049VvKZhnIfu1HN3x8Ax8SLbTbqCID/gIq +QdbnbuCesab3cWoycP/q+sgG0xv4S9zv8shtMrB6TyD70q9UvNxnHhmAZWD2 +6g3iIE7FjABxBeuDMtCVXrf03+g1fL7wiin5rAycVG1dZrmkYJ7w/Pq7ITJw +rz9TpGBXCo61qNOUDZMBtp2WKg6yKTh1dVZWPEIGeoZiHl/pSMaP9x6Y5EmQ +gWYviwQOnWTcO7HhwlSmDDjvdZlrVLqCtxLjip68lgHy7oXAVZVE3F7/FBxb +ZCAgo+qZn1AidnfubpFolwGq+xmiTX8CznxAnjj7UQZG2u9llFgnYGHNClmD +QRkIz+Xfud0hHk8bj0f0zssA+HO/ehQZiyO/CYjGLcrA0WqTHbR9sZiUqJGO +l2XAIWuicYNYLLb8GFKRzSYLum2FAxpZl/FLW7EfHutlYbdrnmTmy0s402eX +JSdRFmqjiG5niDEYbXIZLSbLQo7iSvHN79G4pzzWy5UmC85zv88wqqKx8L+u +2JbNsiAiGYc9LKNxaIxH7XVNWXCqa78bfzUKH7lzS1FpryzckG5UvECMxMLN +8yuH/GVB9IX3de+zF/FgYc2hnkBZ+M9KYMLX/CIuuBHz0CZYFlomvnE/V7+I +TdzlrJ3Py0LXGFvlpskLOE5Iv9L/sixMNAQ/nbW6gNcdTgm8eVcWAg9lVbQZ +n8ecwxoLA02yIEi9PKpVGIo7Xq/sc3y9tvZXi33sG4ozi17mTLyVhRPv6nqu +/BeKdSKsDs++kwX1huS9Gc0hOIxx4RlHvyy0a0ULvxgPxise77yoM7Ig/OyT +vc2Os3hh2fOHm6QczH/OtJSlBuD+IsPjVBk56H1kq8b20x/Xuiu8H5CTg/HL +Pg7Gtf44tq+15BBZDna88HkkZOuPSZXKoUhFDpI3bR2Gu354X9C0gIieHJge +ENmWoe6LNTTqQ98ayIF6s9qpeG5fLDl1cyZytxzIHO2c+9jjg4ePGH9YNpED +/aBZsTMXfXDAjvu3Ro/IgcJQhW5DrzfOXnRWLPeUg2PaN2UNb3jhS4XotreX +HBCzIy2jvLywp6uEkIqvHIRapGzZtNcLa3c3zmYGycH6sveGZDYv3F5KKY+N +kINnPwqe9Lmfwct+w4Z2t+QgJO9KgeGB09hs3saJt0kOXt60tlZPP4lL39zb +WPxKDlLeVI+ddjqJZTNnn9u/lQOfucwU+uaTeNQkQqL6nRyUZaC8hVJ3HJD3 +sMmnXw64cu1UObrc8N2jy8zhWTlYIT314VM8gbk09DsTfsnB/ronIyYLrtiV +L+EC67cc6DXMea/WuWKNYlJf6oocBPUMPLlq44pfChnH7ueVB1pU0ob46y74 +a23q9ypZefglvfPlgpwzPpA6fNNNQR4M8Ged0zNOuMRDyVCSJA9HVCcCDeqd +cJjMi7vedHkwb9qrzuPmhEV9x00VNeShObf/dXWlI9ZmaBZdN5SHd8KKloGe +Djgq/r2/l5c8ZDHaTENFj2PCg9rvsz7ywNhu1npnzg6XNRU4nfGXB0lbIbbV +d3Z4ii324OlgedAfs7jvl2SHTbz1VD0i1/p7W9rridphCcvisRM35UHo165t +n3SP4QKfLJvJ2/Jgu8nlVQz/MWyUlPTB9a48xEiatuS02eCg16fqXLLl4Wxv +1CeGjQ3+vJN2x+mxPGyUi7+oF2KNc4nXDx+vk4fXjrt7ie+sMEYRbwcb1vZX +bVRyTrPC3VbeunZN8uB2dF2woJsVXpeyX932rTxs25S0+QKXFfbg4RO06ZSH +p8Gu936wjmDN6YAGyyl5+LCcY47qLPDLZ1ZbTEUUoIRv6j2PwGHsm27ewC2u +AG23rvyeHjiEKbFmhys3KUB9oPyA0rND+LyDsT9NTgHeiC7w1tgcwjtFtCtX +6AqwvEXdT7j4IC7ylNK9z1IAUSEl1dfeZtj+qPiHY6AA/XPK2hL7zLCw4UYn +MV0FqCTunnhKM8Me8vxR54wUgC1z4mpf7wGs2LL4+vBBBWCvHrTsNjiA0xW7 +zThOKMDmSw+rfymZ4v0SH0ZK3RWAcNm+6986U7zK3u5zykMB9qtIxWd17MfW +PU3Xur0VgPa6sjFh3368Kbq093GoAlyIVMjp3W2C40ev2R9NUYCdd/dN6x/d +i8+mH/Z6VqMAVBuflF29RvhYx3zLf3UKcPJeXG3AfSMMXNeY9Q0KIJnAUNoQ +aIR5XDsH371SAPfaRz3mUkb4iqrF/h/vFeDSmXW1rGOGOL/aUklxQgHWu+qc +bVvUx3Ezi1FPphSghjDBfq9FH58m3RjZ/k0BJDxPDXRk6mPNyJ6bhnMKUF2m +KEI10cd1+6z4nVYU4GMk94uMPD186rvyz/18BChRfeXhfVIXH+NdTU/mJ8DI +kqWlgYEuNiW0mnStI8CuQdp3B4Iu1jDzyD8mSAC1g9f6gj/q4MXix8dPiRAg +48skVUJXB4eHqLZfkiXAiVv6qqc278K3BdQfNaoRQKFyv52qFcKSgnyuFA0C +BJ5I/REihfBVwQHSxS0ESK0ufXu4h4XjheJSQZMAT/Lufb1txcJhwpMXK/8j +QM+V5w9OOOzEDmIZVk8MCJCZ4DixPk4bD4oFiAsbEaDTWT/75CFtbC2+v91j +NwG+RJvk6stq40MSf/WV9hKgwFUuyvrRDmwgeUT93gECPB/t8OP4uB0rym7k +S7MmgJWMYsjRHVo4V3aibtmGAKrmGX9beLUwWa4mxMqWAC29Pz7c79TEsvKn +fm6yJ4CfhvKGm76aWJDw6vMVFwKw32e80ivbhmfI54ujvQjwMyfoPb/pVly6 +edbeJ5oAPksJuz/Xq2Of/9gr38YQ4Jfe4v20O+pYbc9GUeplArjHZI/nB6rj +PDf1+o9xBJg9ruPzUE0dp94/Q9ZKJsCWdN9T2plqOIA+N/InjQDn5ktK56mq +eKsWx06zuwT49LO9P+2LCp4xEEnJTyfA419jD1qzVLCrs4be0SwCePds624k +q+AjOV7ZVXkECO027Z1mKmNt8k/Hc0UEOOSWZc402YwXNDifdz0jwHV2ucw+ +sc34qY6ouFoJAdad6u7m7lfEivZbGgfL1uYvk0CqdlfEMhneVJ1qApwpSDXN +SmTiFflfo1yv1uZx4FSL5w86rpaed770mQA2nX/TZ5YoOGWfRfabAQJM7vq0 +8f07CnYLKx8SGCJA8NDkMPd9Ct40FmKdMEKA5K9JW60sKfj0Ex6zlAkCOOoT +ax9WkDHRSJJ1Z44AxQP4ll8cCS8GBQUN/CQAr1H0NskTJNz6qL+UML/Gh23a +DJs+CQeJZmhk/SZAb8nzuzl/ibjjM5ORt0KAo7MKS0peRBzu+5/oUx4iDKmL +l9W4ELBVXprpT14i7K/dm5liSMBqff/itvITociaJySPTsCfoIGvdD0R5mJ+ +bJF4p4A1BfatVgqv1aMyQ2165fF45rHJRmkibPL5py7CKYeN28/X9KgQYStK +C+G6J4UfTE3xa6oRIWLE7XbAaSkswH3o0BX1tXXrnlA7bSncuoM2abyVCP+J +eZZHtUnig1mvRap2EKFGfc8LqX+bsLWfqPMdPSJMLjEFw7wk8PPE4MIlfSJc +jBz5UKsjgeUfjC6ZGxLhpaDyH1dRCTw4UJqwwZgIP4RfrI4Ui2On3dblYfuJ +kN6n/9P3nxj2kM0RcLAiwqXHcU3m2aK4TVPIouYoEUIVKi/EBYlitQP+GTI2 +REiZHl6RPSCK5yJ2a36wJYKE1EOs+08E+//4ZqvvRIR3QxztqbYiOKxOs4h+ +mgiPRoNj36huxEmuzUe+RhDhiJu4h7uoEBbIvRijHkUEDYFjV7K6BHH0CCr3 +i17z61xubXZbEIceK5Zkv0yE8KLbO4TpgtjtUGaXeCIR/oac7vi5SwDrQfBh +fHNN30Tq1mux63BNiFZE+C0iiNb/8W61WIe1K+eevbpNhO91r896ktdhdc0T +YofuEuFU5fK9iUp+LK9k/t41mwi7NE1IGbN8+PcmtQNXHhNhoWtMI8STF3sd +ng7rKiBCvJOb+Bfgxd+v5BbKPiGC7G6nsHsivPiLoJzwvaK1+3XfEt1VyoPb +Ode1VZYRYfHnk4AHXDw4/8fI3tE6Ihzr4VnXUMCFbZquG23vIsLtlKF953Q4 +sKRYrLh/NxFGvhc3jshz4A67sOHiHiLsY5tJjVtmx0ZLrsFb+onQRmBoFRSz +463K2oUqQ0QQ3OzbIaPMjtcn92+iThNBZ8imjslgwy8H2r84fCXCCiNoPJeP +DYcpNT7J/EaE+inmUF3HP7TQ+GgPYWZNL/+mbCmLf2h4MfSczPwav53HFmyd +VlH5MeL4xn9E2HGnixB9fQX5PBB/ZspGAuVFwc462xWkssh/PoGdBCzdr1pu +jBWUnTQnLchFgraXAcXLFcsosaHehI+fBIzPH/tERpeQi6JzyaoICSJjfYWO +7/2DxBfyI6ZpJPibY5yrZ7+ArBRzbfUZJPgYOPt3XGMBpR/L2HGXSQLxGjnf +H5wLSKnp+jczJRK0ntP1o9+bR3qp4Ycr1EmQc1ZQhDr3C3lpH6PG7CTB+M3i +nNwbP1GZx5F/wywS7DlofVXp9E+0mnmoZycmgcLXUK11hj9RzPo9cTO7SODe +tlTwan4OpfdrzVsYksAsuCNB32IOtYZubKSZkcDcIqb9GnMWiRUJ3A07SALd +x7GWetyzyGqcN7D3EAn8w0iFaGgGje5fVYq3IMHcKUeDTTdn0AphOmXemgRa +hhuzDTbMoM31DY4NLqS199M3QRWh7yiaN4DLPoQEMYZZA+sPTKGJY4312aEk +GBWu+rNebgoZlYhcHD9HAvYGoVqvyUnE5/SI/dQFEgSrtqmcuTiJouqGV/2j +SDD5Yn+tTNUEigzZ9ycuiQRbQnZdCsXjaOzDzbL2KyTYbLG9L27jODJQmvAX +TSFBnOih0d8jY4in78JC6jUSFNi6WPXEjKGI7WU/s26RwCMn/FJ1zygK/0n6 +Xp5Dgnpjon9wzBf0xfj0o5VcEjQ3mjiO2X1BepnPT+I8Etw/dzgoffsXxHXA +crohnwSeRd73OSZH0MXHcRNtBST4tA+LeuwbQRdOLA6PlpPgoWXlN2vKMAob +aOna2EqCpa2Vl57xDCJ3eVK2Z9saT8Hiuo3NA8jcxu90SzsJBFr9rJ6FD6DN +ffL8Me/X8gywsjNY/Yw6Oz212XpIoOe2bYPk4iek3Lox7fvIWv2WSvBJ7n4k +Keh8Yu/omj8vzpQTr/oQx96KbfljJPhtqUUcj+tD3a/sW50mSaDNP29mK9mH +whuL/vV/J8EXl4KrtC29qLfqsP2bPyTos3Sf3nyuGzUu31dhLq/59yN7PjPu +RoXaq0uRK2s8XSjWeyTRjSLKcpN1/pFAld2Q9rWgC6k9+91QzkUGu+6MxfDx +ThT14AY9bwMZOLlZQ1ZuH9HWm5++hlPJQM+oSior60DHJtzM+2lkoNmb8R1J +6kAxmos1WxhkmN3robfXrQN97hBJHlYkw+laQQuGXAeKXm+0A9TIEL95dkd2 +5DvUH/w0YlmbDC+kimWkXdsRzxv8w2wnGaqSL5xO1W9H6lItlvksMnzfp3HA +ltyOIovHNx8BMvBHBDyIrmlDat9lO0r0ySBuwSNTUtqKwm2j5L1MyVA+cCIk +oPYtevxILPrVATI43yoS+hv+FvUsZ8wSDpJBpazsNdvut0gltaqh7TAZtmze +kXq+4w3qbp91Uz5KhqbER117pl8jJR3r0gknMoRbEE0pW16hDxR1U9uzZFB9 +UytlJf4SSV4Tvns3mAzj99KNOacakQ3vzLeBEDIIfnC/wF7TiMYmH1+2CyND +9SbZU0snGtHiY6Wm4xFkWF2k6Lytb0ByOxjIMYEM7q6bkh0j65F9Pm9cdiIZ +uvc/qRexq0e5MuN9X5LIwCrQJQto1yO11ZxApxQyLETlkz5/r0M69eRi5xtk +eB2bZ/TjaB1y3qegdCKLDLf8Pi0a69ai/OrVoPvZZDDW3+54gliLfqh+fjWZ +8/950Y1f/3uBAkTSXNzyyKA3rxVy4PkLdLlLOsv9ERkM1r8/6/LfC1R4XELa +o5QMDlUCr2Iiq9EfX0E+7zdk2H26epvs3wrU3PrTofUtGZ7UJCc/rq9AqfTe +GmYrGR4INslWXqpAWj25/oPtZIh22JmNpCuQ704Y39dJBseYT1nvUTma5fB+ +yRgigy0tV8EmrRS9OHqEFD5MBjen3Zxy7qUo8RkOHRghQ+z1xFbDHaVI1VlA +89oYGbi4LyT2dpagU69ycji/kkG9c51Vv0QJmkzoDv+8QIaMqV81yfefobKJ +6sEdi2TIvXY88VbIMxS9K2fn1T9kOL71xVc2s2eI/vPMrz0rZPDeQ1YdWi5C +TubrHcvZKXCrYS50+GARGpJFuikCFLi6OzlfR+wp6rmfxW5MokD2DetErawC +VEft14knU2DlV0rkEccC9DBDLLyDQgHhBjeHRWoBCrsRwXOUTgHb3fFzefmP +ES3GZf1JJQrYJf6pqih/hLxcN4vHa1Jgcaar/d23B8j6i4N5hxYFJFfSOMxK +HiB9u9vXJXZQgOgSGQDnHiBJS0Hpu/9R4PQZm5eOIg9QjeEP+UKgwBnpYdsi +Vj4SoBcxOowpMLjinPbkXh5ayJw+IbGXAg7Rz3mK/PLQgDzlgdU+Cjg+jWsW +N8hDTyWuKo/sp0A6yjmwMnoPWfL4a/w6RAGKwIEn2xXvoZxR7Z0Stmt62qXo +LfU5CGXX7bfypkBFf9SNDM0s5KK6VSXVhwIjHeKFGhuzUGJFjkCn75reQuWn +Al8z0Uj72uMXQIHJkb+7bmRmoui/Jrq7QyigpqW9h1s0E3WY92luj1rzI1iy +5ylbBloe2ivuF02BWIU/nUkD6YhyqvpnUcya/gt3pp5UpyP/ixmFqrEUuETV +L34Sko5kC10U6UkUWJfLvK/39y5y5v8lJ3GLAry71A4+33QHJaQ4rRy8vXY9 +raxY5lMaKlPo6k1Ko4B923nTr5lpaL1mxXXBdAoIDT8oGVRNQ4X2YRu5cyjg +VKpgtWpyGy1VCnD/ekwBK4oj18GMmyjBg/r1XR0F/t7o0vqSeB3pDaV1KTZQ +QG5bW4C47XW0eFCi/mIjBaYXBpYLlK8jux28N7c1r/ESE2Eq9/YaUuOaNLzR +QoHvvFYHawWvoY4bD7Psuilw+Q1nrG9WCooUoCaU91DghU37tU7/FKR9Li1I +pI8C87e2v0vem4KyHOMPNHyiQIv7/jcKv5ORj+rpf/QRCvDVcE67miYj8cYt +R398o4DicfVsOdEr6LXWQwOjHxR4szHk5eTXJBSaT9HImKEAodY9h6cpCY0l +iPMf/EkB5wj1GdXgJFRi9bukZJECpqOXXVWmEpHlTIVIKCcVpOzP5d3IS0C3 +ZHReC0hRYR+f6nBj+WXk9kTglok0FWKbO5+IXbyMtht2uSfKUOH3JQH7tr2X +0Qevk4Ji8lQ49K1WJGLoEhJ6fc1UhkwFLo36zt4Nl1BYwHQnU5kKpvf3M0PP +RSMToZJ77ipUiFCPeam4PxrJZocFPFKlwptDHCWaCtGovE1cWl2DCi8fK6ad +eBGF5mhgs12LClcShCzovFHI8WPKiMEuKpTb5bg65UQgDXfbZ9E6VHDMsCE+ +DYpAbOyKEa911/pniokdNI1AaUo1NBMDKhRV7xNOWAlHnRcnTxzeQwVoLoj+ +ZBmOjDTQjMNhKrw6OV+wm3ARKSWMr4SdoMKfypYUg7EwFCFQ3vvJjQohWquv +qHVh6HPMpTLtk1SYDhDWNrsThpLClX1+eVChqfObVqJFGFoI9J528aFCpMqO +Ublb51CN478ek3NU8E3cwCUbH4Ikh9tLH4RR4fjbX2NfTUKQl23mVb4LVJBn +OffpCYcgipX+gbpwKqy4nw+ISAlG0fsvN2+7RIVTQ8GRillnkZn2plLZq1So +4Ih9INodiB6UTqQEXqPCJRtBn/fpgYhrW4VX53UqPBbkP8LvFohKVW1UEm9S +wWTgYfT7vwFIlpqVw5lOhcXZ404vFQPQ6AbVlKl8Krz7Ofn74A0/FDBqcKbs +BRXsPmRKjdR5o+kIt62rtVRwq2don7rljY7R4n/r1lPhS20a1cDHG+m7fAxp +a1zLY5fx5BDNG4lMOlwae02FwaC4/woTvNDDr2FZYh+p8B+vSCHF8wxSiMt2 +tuqkwvt1LraH9p5BV5SbmeldVHjqcu3KK+YZFOixoXBzLxVOv3azujB6GhnM +pFXpDKzlJWMTIW93Gg3+rPh4epIKywtdTdL1HuhgyufUkikqqJbyEh9FeKCX +WzmsV6ap8K2Ah1xh5IEe+e4ejvq+xoN/+X5oP4WCfnd9v/OTCuMtXEvDX04i +seVfvC1/1/zs9hEtJruj3Ryq2kwRGiz7ug2Gz7qglSeXb7qK0mDxpm9nVp0L +enx8YumeGA3CKWdT5FNckFhtRiVtEw2GV2RuUba7oMFzYiyKLA0UP6adtw13 +RgF//2AFGg3IfMnRS0pOaPMj8/RjdBp4VG0rCud0Qp+ti9juMGhQViO8zq7X +EelVnayV3UyD6vDVWt4YRyR8dkBHWo0GIu0M/XVTDihvsUFfXHut34eSZvMK +e3Q0j5h76D8avLBY/+7BVXskZBnKk7KTBqZvirOMztgjn1KtJhFMA79P3/0s +mPYI/PKNhPVocPxAf1nF7eOo+2fCnvUma356WFtJiXaI94fVAXZ7GjyvaZ5e +2mOD9CKrq4860GAsX/hVk6ANuiBHUipxpAEtMaJIst0are6Z5HF3oUHG+TlT +HXNrtJDnX/XhJA3a1LqvXnM9isbsU+h5/jRIl0sfPZJ9BFGWfqdwBNJAn2uM +MHnqCLJPOsphE0SDG6WnZqa1jqDPNaRPG0No4P21I8CoxRJ9lH1y5eyFtX4C +4106fy1QQ2fLX5M4GjQmnog5fcYccXiou9+Pp8F6/z9HXu8yR8B9tZszkQb7 +H3w+GCNijqq2WBeVXaHB1kVHty3Fh1FR4pQrKZUGDx+dFCP+O4QyjXk/zGfS +4PKH8KSC7IMorBryb5fR4F7x92xL9QOoO2BhZaCcBrPz97v1NhxAalse7idX +0iB0v/p1n2+maPDepvn7z2mgaat153a+KYKk77i0jgZLD6pOszFMEZvj7Y/v +3tIg0Pz0YxMbE2Qpb8YQb6WBp1jFUQWiCSrs5j1r2UaDnvnPZi6j+5DdPm/C +wDsaHEvv9TjiuQ+90DR2/9pJAwF9jV8Po/eic/yLbLxDNJha8C/f026MOusf +HTQepoEuL7cU7ZYxUgl1yI0boUFQwsW2E87G6PNc6x6xsbW6wvt/zNXdCPXn +XCNO00C8+9+Kn8ZutPr4oNLOeRrMX1vkvvrIEIUeKrA4w08HZV+lyKoJPXR8 +wb20bR0drrY9mu+s1Fv7v2VsUhGgQ3ie0NsDCXpoXX9G55QQHXoObvd20tJD +Vx1SDjuK0SFDQtzn+2Vd9NAr8KCFAh3mWrl5+/R1UIKYZlExgQ5y8lsT78jr +IK+SORExEh08uLstS37vQtuX3DvaKXQQCPDuHMjfherPHztgrEgHjsF+SV7x +Xag3UXc/axsdjL+89STMYPRcg63gliYdBlwvm8Y+wCj9Q5XQkhYd9rWPnbns +gpGzpGZriTYd9O+ciEZDCM3eZexTAzpIRV0TN+9jIb4CwT3kPXT43F1wR3fy +P6TV0mXAf5wO8xbrQ20dtyOr0Bbd4/Z0cEr1uzunth0Fq9ZDuQMdQkUebp77 +q4Xqkh5rn3CmQ92o2C+NG1por3mEyit3OqgE1VVkftBEdgMaEjF+dFBK5n4Z +fGwbupDIEB3yp8PHjBwvT/VtKGeXvPCOQDp8kfeUruXahqay+NdNnqWDYLnK +ztCHW5Gv6+Bfo/N0eH2i2ciYbSu6NBs3yhdLh92LxfUXyjTQw8yLw3ZxdFhd +MXm1LkkDtR0MHCiLp4PM4FOusRMaSKzEscc1iQ4/392wS5bVQHeC/mtpvkYH +odvmXSUR6qiIc/JZdAYdthyyyYt3VkP94nrhfKV0YNuV43uqSglJTl123l1G +h40eyXmjF5XQ4er3RpfK6RASkyLcskcJtTo7CApU0aGDz1NirH8zqi29cG1D +LR3KePb6Mrk2o9wjtXkSb+jw95R4MXJmohFl/ssWb+lw/fxzXcOtTETgOHAq +tYUO6w6Nyz3lYKIb+YPq0u10+P6oqfBBOgPFLv+rkPtIh0r781FSQ3R0Jg21 +UAbW5rMjwgV509DjM5EFToN0cG4ETTFDGprSb03KHaLDqScVYyBDQ47fbcwZ +X+iQL5Csc7uBisxxyMDmyTVeFb0jjWSoaOdQ5azGTzogY97TE11kxEPdIbGL +lwEz8XOrQpeIqHUwijuNjwFTfsGn8xyJ6Ortzl+L/AxYrxWTmYSJiCLm875Q +gAGRb49kmC4QkA5nQSJBhAGJqKnZw4WAzg1R1rPJMYBP57LzzgJ5ZJDmvXRU +ngG92vhXyyl5JHSkbrJUgQFudqp800ry6E67bbMniQFhaaoK9Q/lUFXNzYgB +OgMqlbD0m6eyaDFNmK1GgwHKyfQsnS5p9OKI7Q/prQzYw/3SieeONIoSf/zZ +bxsDpAIvbtVzkkYScXueq2xnAGyLHmfOS6FtwZFBd1gMiJU6/Oy8tBTyslr5 +FWLEgIlq5t5LQZvQtMTE5M5jDPgWw/4zM0YMvZ2Prj5vywC9ywHU53Zi6PEH +ZvJLOwZMdvU2M7aLIa8r7jtNHRhQ+nWmd3ZcFC0K/oh3cGXAk+uu1Tv2iCIe +7oUtl7wYUJ9gLCZFEEETI9f42rwZUHPdgp19ZSN6Vaf1SdSXAf/ti2pV696I +YsMCI9P8GeBoP9nilLQRia6sdBcGM6DHt21VnHcjIvzkDO2KZEDSFnYD1dUN +iKMj20w2mgF7hfqKA6s3oJFCffrxmLU8ObM5dc9tQLkeUe1Tlxkg33DGyIRj +A1KeWkdeTWSA2MQWUyUhIaQ9tLGZcosBqzeLbbfsFECH2xREvAoYYOtJH986 +zYf8nv+5WFjIAJ+le87xFXwo9cH7+e9PGMD/p3DI4BIf6o2K6nF/xoAGLZ6x +d4p8yA5+pDuVM0CoeUlr52nete/natUj9Qzw5TjD3rSeB8XeTc243sCA2ej0 +A1WD3OhRnJdoZyMDXpjT87lLuNHMCdpvs2YG1L1kjSYd50a+pPjqvS1r+nQ3 +D4ZWcaGwZJt90MUATcvWJuJ5TpR5XqsmtJsB/X/6jgse5UT1nhvVn/cwgLdg ++yHdbZyIZ2+jmHY/AyzSHVcvT3Ggy1zK/VuGGMDBW9gSZsmBrvmuuNGn13h3 +/MJ9bhc7emhxK1roHwMUx8nLZ6JXWZbKwbyubEyQ4YwOem24yuLitImsZWeC +yb7fQw94V1k2j+XDfbiYYE5vGOGK+csS4s4818vPBNfB/uSZpBXW6ad5frli +TDANL9J/XrnEko2Omf8nzoRcL70Q4sUlVrONm8+RTUxQCnFL/mu8xCLyK3kJ +SDMhIEbXWar/D6vDtuCUlwITnHQdnBs4/7C2CZY4IsW1/S3RgWKuv1nDw9dG +rm9mgouOjmS45m9WfJm//awSE4w6e/KtuX+zxhx22GWrMkHOI3KrfvYCK7Wi +6ui6bUzYlUla7RubZy251Jt1YiYI3NO2cwn9xaquawePw0x4YfQ1M2J2lhVe +yZlTaM6EyuT1j4RaZ1l7nmny/7RgwqOLrm2f8mdZ3Tm33/lbMWFyS+OWvU6z +rNloV/vztkzozPh8zerTDIuyny085QQTXk7wSaQU/WBNGW6Z6HRjQm+84NC0 +zw/WE3DeK3WSCRc3rVyo0fzBQhpvxe54MKGj62RQZ+V3loV4as49byZMnA2c +yHvzjXWpT7WpIoQJxHc9RqLsX1mmH+w3/w1lwitP/rbyV9OsTS1XE3AYE2gH +SytarkyzsquXLRouMGF9mJWDNm2a9TyjaaIligkPC6WqNphNsWZcbNcNJTHh +zbYP0/NVE6zDv+L38eYywXJOXNm6d5RV16qj5nmPCdN7gwoU80dZavcXRLry +mDDG3B7kEDTKEjh2rDv3ARMW72ntEpYdZTU0KTsYPGFCZmTmaZbjF5bGrbcB +EVVrPAiOJpN5R1jpvmFHvz1ngtDfFT7lT8MsIdOt6HANE+4Xr+NPLhpmTXHd +5qTWMSHlrefZM8eHWRke7vENTUxI6OrUs68dYgnrrMvmfM8EaWtG54mkQVao +bHWk+wcm2CdnCg6eHGR9XThz4v1HJhB2OPXkGg2ymh/0qGR1M0G1IMiVzD7I +Oid+v1znMxO0zjXfvzT9mfV9wrDt/CQTrFQqQtR7+1nW9ctPJqeYYMina5d4 +s5/1Oq0g5cBXJvj+/XT17NF+Vq7ZJiviDybErkrT5z73sWyqxr68+LXGA+eJ +AvS1l/X62s0mxgITjmnB6OfCXtb2Myb5ib+Z8Nfv43oOv16WGK3E026JCQvj +2flv2XtZF9jczJqX1/ISa5o409zDmumV26b2lwkRFiezrib0sI4Vv9uUusqE ++PrMek2LHtbbhIilf/+Y8OfqwNZDCj2s/wG+1mmv + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{5, 13}, {0., 0.1957165151046949}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8V+8bxu1RSFa2zx6yK8q3z/Pc2akkFRKRHUXZhFRmmVFpKDtpULJF +VjSMVHZZ2Q0UCenn9885r+d1n+fc13Xd7/M65xDtPc2cONjY2G6sHf5/RqK/ +mc+0JMHu2QcFluArnNFh4OysLQm/rxT9NBpuxvmClGISSxK20K8fXihpxpUX +P5vd0pEEvZo+Honjzfiz58H42H2S8ODO5JbjZU2YbMTi9nSQhDxre7dxr5f4 +8aLwzy0JkvCMq3mlQrwBa5rZBY8kSULqMpvGhbl6XP2ggDs5RRISb3g6hLXV +49ZjJpJzNyRhddu3AsKlevy94TKrMFsSpk3s8ibZ67FqEk+0UoUkzN2WwQ7L +tbiQuSJLHZWE9XsaOJXFXuDtF/fkfhiXBP/Qc573v9fgF/03VcOnJOHlDXTb +vLgGtyfs0Bn5IQnLUikHmnVr8My8n0vGkiRIFEukLTtWY7W62SdywlJAXlhy +0Syrwk+sxg0k/pMC1chwt+I75dhjqffmdZYUiDg0fFnwKseKN1u/S4IUZJpw +8IUYluPMnuJrMvpScKPvSt/h2TJ8xTJ8jLBfCgLPT7xUNSrDPubEyM0OUuAs +I6iuyVGKt5sdbYTLUlBzbHM/M+cZ/jVrIlUXJwUvU3NkDp9/hguTdE7pJkrB +I78U5QqbZ5j5jilucFUKfFzMLqpteoalTRcd99yVAuWKCWJjbBFe3neVy7xI +CiKXJa4bXXiKq3e36br3SQFlpfr+7ZRCnFjW/oT0WQocRoWPLvgUYnt6h0Lv +oBS49kU2Rh8uxDzcH5eNxqTgYX7kUfNNhdjkRW8RbVYKQnnm/MX/K8ADmmPk +YR5puKuaHCzh+gizUf5yHtGQhp3iLwc0hPJxx5XVM8LbpIErumCyse8+zmZn +G2zSkgaRxVSn4vv3sdEAR5UmSxr8ti7tuWdwHyfe5PMRM5IGpsRrpZfheZiw +UexLm400eP8ilJ3aeA/vWlVsMIiRBuU/8XmBrtnYqKh9pe2yNDi6MIqputnY +xNVv25F4aciTMJwWkc/GVh21ue7J0vBeq0at4EMW9sq1jElMkwZnqxfNI3pZ +ONsk0qT3iTRUWnDu+qKWifnuDnWf6pWGDZTIwOtb07HQoaiNv/ulociv6c89 +iXQsxq9sHDYgDfUekZS+2buY6B1QeeWLNARB8BHl4LtY23DDndLv0jAT8k7k +8dU72P3HTgd2ThkIoktKxPbdxq049VvKZhnIfu1HN3x8Ax8SLbTbqCID/gIq +QdbnbuCesab3cWoycP/q+sgG0xv4S9zv8shtMrB6TyD70q9UvNxnHhmAZWD2 +6g3iIE7FjABxBeuDMtCVXrf03+g1fL7wiin5rAycVG1dZrmkYJ7w/Pq7ITJw +rz9TpGBXCo61qNOUDZMBtp2WKg6yKTh1dVZWPEIGeoZiHl/pSMaP9x6Y5EmQ +gWYviwQOnWTcO7HhwlSmDDjvdZlrVLqCtxLjip68lgHy7oXAVZVE3F7/FBxb +ZCAgo+qZn1AidnfubpFolwGq+xmiTX8CznxAnjj7UQZG2u9llFgnYGHNClmD +QRkIz+Xfud0hHk8bj0f0zssA+HO/ehQZiyO/CYjGLcrA0WqTHbR9sZiUqJGO +l2XAIWuicYNYLLb8GFKRzSYLum2FAxpZl/FLW7EfHutlYbdrnmTmy0s402eX +JSdRFmqjiG5niDEYbXIZLSbLQo7iSvHN79G4pzzWy5UmC85zv88wqqKx8L+u +2JbNsiAiGYc9LKNxaIxH7XVNWXCqa78bfzUKH7lzS1FpryzckG5UvECMxMLN +8yuH/GVB9IX3de+zF/FgYc2hnkBZ+M9KYMLX/CIuuBHz0CZYFlomvnE/V7+I +TdzlrJ3Py0LXGFvlpskLOE5Iv9L/sixMNAQ/nbW6gNcdTgm8eVcWAg9lVbQZ +n8ecwxoLA02yIEi9PKpVGIo7Xq/sc3y9tvZXi33sG4ozi17mTLyVhRPv6nqu +/BeKdSKsDs++kwX1huS9Gc0hOIxx4RlHvyy0a0ULvxgPxise77yoM7Ig/OyT +vc2Os3hh2fOHm6QczH/OtJSlBuD+IsPjVBk56H1kq8b20x/Xuiu8H5CTg/HL +Pg7Gtf44tq+15BBZDna88HkkZOuPSZXKoUhFDpI3bR2Gu354X9C0gIieHJge +ENmWoe6LNTTqQ98ayIF6s9qpeG5fLDl1cyZytxzIHO2c+9jjg4ePGH9YNpED +/aBZsTMXfXDAjvu3Ro/IgcJQhW5DrzfOXnRWLPeUg2PaN2UNb3jhS4XotreX +HBCzIy2jvLywp6uEkIqvHIRapGzZtNcLa3c3zmYGycH6sveGZDYv3F5KKY+N +kINnPwqe9Lmfwct+w4Z2t+QgJO9KgeGB09hs3saJt0kOXt60tlZPP4lL39zb +WPxKDlLeVI+ddjqJZTNnn9u/lQOfucwU+uaTeNQkQqL6nRyUZaC8hVJ3HJD3 +sMmnXw64cu1UObrc8N2jy8zhWTlYIT314VM8gbk09DsTfsnB/ronIyYLrtiV +L+EC67cc6DXMea/WuWKNYlJf6oocBPUMPLlq44pfChnH7ueVB1pU0ob46y74 +a23q9ypZefglvfPlgpwzPpA6fNNNQR4M8Ged0zNOuMRDyVCSJA9HVCcCDeqd +cJjMi7vedHkwb9qrzuPmhEV9x00VNeShObf/dXWlI9ZmaBZdN5SHd8KKloGe +Djgq/r2/l5c8ZDHaTENFj2PCg9rvsz7ywNhu1npnzg6XNRU4nfGXB0lbIbbV +d3Z4ii324OlgedAfs7jvl2SHTbz1VD0i1/p7W9rridphCcvisRM35UHo165t +n3SP4QKfLJvJ2/Jgu8nlVQz/MWyUlPTB9a48xEiatuS02eCg16fqXLLl4Wxv +1CeGjQ3+vJN2x+mxPGyUi7+oF2KNc4nXDx+vk4fXjrt7ie+sMEYRbwcb1vZX +bVRyTrPC3VbeunZN8uB2dF2woJsVXpeyX932rTxs25S0+QKXFfbg4RO06ZSH +p8Gu936wjmDN6YAGyyl5+LCcY47qLPDLZ1ZbTEUUoIRv6j2PwGHsm27ewC2u +AG23rvyeHjiEKbFmhys3KUB9oPyA0rND+LyDsT9NTgHeiC7w1tgcwjtFtCtX +6AqwvEXdT7j4IC7ylNK9z1IAUSEl1dfeZtj+qPiHY6AA/XPK2hL7zLCw4UYn +MV0FqCTunnhKM8Me8vxR54wUgC1z4mpf7wGs2LL4+vBBBWCvHrTsNjiA0xW7 +zThOKMDmSw+rfymZ4v0SH0ZK3RWAcNm+6986U7zK3u5zykMB9qtIxWd17MfW +PU3Xur0VgPa6sjFh3368Kbq093GoAlyIVMjp3W2C40ev2R9NUYCdd/dN6x/d +i8+mH/Z6VqMAVBuflF29RvhYx3zLf3UKcPJeXG3AfSMMXNeY9Q0KIJnAUNoQ +aIR5XDsH371SAPfaRz3mUkb4iqrF/h/vFeDSmXW1rGOGOL/aUklxQgHWu+qc +bVvUx3Ezi1FPphSghjDBfq9FH58m3RjZ/k0BJDxPDXRk6mPNyJ6bhnMKUF2m +KEI10cd1+6z4nVYU4GMk94uMPD186rvyz/18BChRfeXhfVIXH+NdTU/mJ8DI +kqWlgYEuNiW0mnStI8CuQdp3B4Iu1jDzyD8mSAC1g9f6gj/q4MXix8dPiRAg +48skVUJXB4eHqLZfkiXAiVv6qqc278K3BdQfNaoRQKFyv52qFcKSgnyuFA0C +BJ5I/REihfBVwQHSxS0ESK0ufXu4h4XjheJSQZMAT/Lufb1txcJhwpMXK/8j +QM+V5w9OOOzEDmIZVk8MCJCZ4DixPk4bD4oFiAsbEaDTWT/75CFtbC2+v91j +NwG+RJvk6stq40MSf/WV9hKgwFUuyvrRDmwgeUT93gECPB/t8OP4uB0rym7k +S7MmgJWMYsjRHVo4V3aibtmGAKrmGX9beLUwWa4mxMqWAC29Pz7c79TEsvKn +fm6yJ4CfhvKGm76aWJDw6vMVFwKw32e80ivbhmfI54ujvQjwMyfoPb/pVly6 +edbeJ5oAPksJuz/Xq2Of/9gr38YQ4Jfe4v20O+pYbc9GUeplArjHZI/nB6rj +PDf1+o9xBJg9ruPzUE0dp94/Q9ZKJsCWdN9T2plqOIA+N/InjQDn5ktK56mq +eKsWx06zuwT49LO9P+2LCp4xEEnJTyfA419jD1qzVLCrs4be0SwCePds624k +q+AjOV7ZVXkECO027Z1mKmNt8k/Hc0UEOOSWZc402YwXNDifdz0jwHV2ucw+ +sc34qY6ouFoJAdad6u7m7lfEivZbGgfL1uYvk0CqdlfEMhneVJ1qApwpSDXN +SmTiFflfo1yv1uZx4FSL5w86rpaed770mQA2nX/TZ5YoOGWfRfabAQJM7vq0 +8f07CnYLKx8SGCJA8NDkMPd9Ct40FmKdMEKA5K9JW60sKfj0Ex6zlAkCOOoT +ax9WkDHRSJJ1Z44AxQP4ll8cCS8GBQUN/CQAr1H0NskTJNz6qL+UML/Gh23a +DJs+CQeJZmhk/SZAb8nzuzl/ibjjM5ORt0KAo7MKS0peRBzu+5/oUx4iDKmL +l9W4ELBVXprpT14i7K/dm5liSMBqff/itvITociaJySPTsCfoIGvdD0R5mJ+ +bJF4p4A1BfatVgqv1aMyQ2165fF45rHJRmkibPL5py7CKYeN28/X9KgQYStK +C+G6J4UfTE3xa6oRIWLE7XbAaSkswH3o0BX1tXXrnlA7bSncuoM2abyVCP+J +eZZHtUnig1mvRap2EKFGfc8LqX+bsLWfqPMdPSJMLjEFw7wk8PPE4MIlfSJc +jBz5UKsjgeUfjC6ZGxLhpaDyH1dRCTw4UJqwwZgIP4RfrI4Ui2On3dblYfuJ +kN6n/9P3nxj2kM0RcLAiwqXHcU3m2aK4TVPIouYoEUIVKi/EBYlitQP+GTI2 +REiZHl6RPSCK5yJ2a36wJYKE1EOs+08E+//4ZqvvRIR3QxztqbYiOKxOs4h+ +mgiPRoNj36huxEmuzUe+RhDhiJu4h7uoEBbIvRijHkUEDYFjV7K6BHH0CCr3 +i17z61xubXZbEIceK5Zkv0yE8KLbO4TpgtjtUGaXeCIR/oac7vi5SwDrQfBh +fHNN30Tq1mux63BNiFZE+C0iiNb/8W61WIe1K+eevbpNhO91r896ktdhdc0T +YofuEuFU5fK9iUp+LK9k/t41mwi7NE1IGbN8+PcmtQNXHhNhoWtMI8STF3sd +ng7rKiBCvJOb+Bfgxd+v5BbKPiGC7G6nsHsivPiLoJzwvaK1+3XfEt1VyoPb +Ode1VZYRYfHnk4AHXDw4/8fI3tE6Ihzr4VnXUMCFbZquG23vIsLtlKF953Q4 +sKRYrLh/NxFGvhc3jshz4A67sOHiHiLsY5tJjVtmx0ZLrsFb+onQRmBoFRSz +463K2oUqQ0QQ3OzbIaPMjtcn92+iThNBZ8imjslgwy8H2r84fCXCCiNoPJeP +DYcpNT7J/EaE+inmUF3HP7TQ+GgPYWZNL/+mbCmLf2h4MfSczPwav53HFmyd +VlH5MeL4xn9E2HGnixB9fQX5PBB/ZspGAuVFwc462xWkssh/PoGdBCzdr1pu +jBWUnTQnLchFgraXAcXLFcsosaHehI+fBIzPH/tERpeQi6JzyaoICSJjfYWO +7/2DxBfyI6ZpJPibY5yrZ7+ArBRzbfUZJPgYOPt3XGMBpR/L2HGXSQLxGjnf +H5wLSKnp+jczJRK0ntP1o9+bR3qp4Ycr1EmQc1ZQhDr3C3lpH6PG7CTB+M3i +nNwbP1GZx5F/wywS7DlofVXp9E+0mnmoZycmgcLXUK11hj9RzPo9cTO7SODe +tlTwan4OpfdrzVsYksAsuCNB32IOtYZubKSZkcDcIqb9GnMWiRUJ3A07SALd +x7GWetyzyGqcN7D3EAn8w0iFaGgGje5fVYq3IMHcKUeDTTdn0AphOmXemgRa +hhuzDTbMoM31DY4NLqS199M3QRWh7yiaN4DLPoQEMYZZA+sPTKGJY4312aEk +GBWu+rNebgoZlYhcHD9HAvYGoVqvyUnE5/SI/dQFEgSrtqmcuTiJouqGV/2j +SDD5Yn+tTNUEigzZ9ycuiQRbQnZdCsXjaOzDzbL2KyTYbLG9L27jODJQmvAX +TSFBnOih0d8jY4in78JC6jUSFNi6WPXEjKGI7WU/s26RwCMn/FJ1zygK/0n6 +Xp5Dgnpjon9wzBf0xfj0o5VcEjQ3mjiO2X1BepnPT+I8Etw/dzgoffsXxHXA +crohnwSeRd73OSZH0MXHcRNtBST4tA+LeuwbQRdOLA6PlpPgoWXlN2vKMAob +aOna2EqCpa2Vl57xDCJ3eVK2Z9saT8Hiuo3NA8jcxu90SzsJBFr9rJ6FD6DN +ffL8Me/X8gywsjNY/Yw6Oz212XpIoOe2bYPk4iek3Lox7fvIWv2WSvBJ7n4k +Keh8Yu/omj8vzpQTr/oQx96KbfljJPhtqUUcj+tD3a/sW50mSaDNP29mK9mH +whuL/vV/J8EXl4KrtC29qLfqsP2bPyTos3Sf3nyuGzUu31dhLq/59yN7PjPu +RoXaq0uRK2s8XSjWeyTRjSLKcpN1/pFAld2Q9rWgC6k9+91QzkUGu+6MxfDx +ThT14AY9bwMZOLlZQ1ZuH9HWm5++hlPJQM+oSior60DHJtzM+2lkoNmb8R1J +6kAxmos1WxhkmN3robfXrQN97hBJHlYkw+laQQuGXAeKXm+0A9TIEL95dkd2 +5DvUH/w0YlmbDC+kimWkXdsRzxv8w2wnGaqSL5xO1W9H6lItlvksMnzfp3HA +ltyOIovHNx8BMvBHBDyIrmlDat9lO0r0ySBuwSNTUtqKwm2j5L1MyVA+cCIk +oPYtevxILPrVATI43yoS+hv+FvUsZ8wSDpJBpazsNdvut0gltaqh7TAZtmze +kXq+4w3qbp91Uz5KhqbER117pl8jJR3r0gknMoRbEE0pW16hDxR1U9uzZFB9 +UytlJf4SSV4Tvns3mAzj99KNOacakQ3vzLeBEDIIfnC/wF7TiMYmH1+2CyND +9SbZU0snGtHiY6Wm4xFkWF2k6Lytb0ByOxjIMYEM7q6bkh0j65F9Pm9cdiIZ +uvc/qRexq0e5MuN9X5LIwCrQJQto1yO11ZxApxQyLETlkz5/r0M69eRi5xtk +eB2bZ/TjaB1y3qegdCKLDLf8Pi0a69ai/OrVoPvZZDDW3+54gliLfqh+fjWZ +8/950Y1f/3uBAkTSXNzyyKA3rxVy4PkLdLlLOsv9ERkM1r8/6/LfC1R4XELa +o5QMDlUCr2Iiq9EfX0E+7zdk2H26epvs3wrU3PrTofUtGZ7UJCc/rq9AqfTe +GmYrGR4INslWXqpAWj25/oPtZIh22JmNpCuQ704Y39dJBseYT1nvUTma5fB+ +yRgigy0tV8EmrRS9OHqEFD5MBjen3Zxy7qUo8RkOHRghQ+z1xFbDHaVI1VlA +89oYGbi4LyT2dpagU69ycji/kkG9c51Vv0QJmkzoDv+8QIaMqV81yfefobKJ +6sEdi2TIvXY88VbIMxS9K2fn1T9kOL71xVc2s2eI/vPMrz0rZPDeQ1YdWi5C +TubrHcvZKXCrYS50+GARGpJFuikCFLi6OzlfR+wp6rmfxW5MokD2DetErawC +VEft14knU2DlV0rkEccC9DBDLLyDQgHhBjeHRWoBCrsRwXOUTgHb3fFzefmP +ES3GZf1JJQrYJf6pqih/hLxcN4vHa1Jgcaar/d23B8j6i4N5hxYFJFfSOMxK +HiB9u9vXJXZQgOgSGQDnHiBJS0Hpu/9R4PQZm5eOIg9QjeEP+UKgwBnpYdsi +Vj4SoBcxOowpMLjinPbkXh5ayJw+IbGXAg7Rz3mK/PLQgDzlgdU+Cjg+jWsW +N8hDTyWuKo/sp0A6yjmwMnoPWfL4a/w6RAGKwIEn2xXvoZxR7Z0Stmt62qXo +LfU5CGXX7bfypkBFf9SNDM0s5KK6VSXVhwIjHeKFGhuzUGJFjkCn75reQuWn +Al8z0Uj72uMXQIHJkb+7bmRmoui/Jrq7QyigpqW9h1s0E3WY92luj1rzI1iy +5ylbBloe2ivuF02BWIU/nUkD6YhyqvpnUcya/gt3pp5UpyP/ixmFqrEUuETV +L34Sko5kC10U6UkUWJfLvK/39y5y5v8lJ3GLAry71A4+33QHJaQ4rRy8vXY9 +raxY5lMaKlPo6k1Ko4B923nTr5lpaL1mxXXBdAoIDT8oGVRNQ4X2YRu5cyjg +VKpgtWpyGy1VCnD/ekwBK4oj18GMmyjBg/r1XR0F/t7o0vqSeB3pDaV1KTZQ +QG5bW4C47XW0eFCi/mIjBaYXBpYLlK8jux28N7c1r/ESE2Eq9/YaUuOaNLzR +QoHvvFYHawWvoY4bD7Psuilw+Q1nrG9WCooUoCaU91DghU37tU7/FKR9Li1I +pI8C87e2v0vem4KyHOMPNHyiQIv7/jcKv5ORj+rpf/QRCvDVcE67miYj8cYt +R398o4DicfVsOdEr6LXWQwOjHxR4szHk5eTXJBSaT9HImKEAodY9h6cpCY0l +iPMf/EkB5wj1GdXgJFRi9bukZJECpqOXXVWmEpHlTIVIKCcVpOzP5d3IS0C3 +ZHReC0hRYR+f6nBj+WXk9kTglok0FWKbO5+IXbyMtht2uSfKUOH3JQH7tr2X +0Qevk4Ji8lQ49K1WJGLoEhJ6fc1UhkwFLo36zt4Nl1BYwHQnU5kKpvf3M0PP +RSMToZJ77ipUiFCPeam4PxrJZocFPFKlwptDHCWaCtGovE1cWl2DCi8fK6ad +eBGF5mhgs12LClcShCzovFHI8WPKiMEuKpTb5bg65UQgDXfbZ9E6VHDMsCE+ +DYpAbOyKEa911/pniokdNI1AaUo1NBMDKhRV7xNOWAlHnRcnTxzeQwVoLoj+ +ZBmOjDTQjMNhKrw6OV+wm3ARKSWMr4SdoMKfypYUg7EwFCFQ3vvJjQohWquv +qHVh6HPMpTLtk1SYDhDWNrsThpLClX1+eVChqfObVqJFGFoI9J528aFCpMqO +Ublb51CN478ek3NU8E3cwCUbH4Ikh9tLH4RR4fjbX2NfTUKQl23mVb4LVJBn +OffpCYcgipX+gbpwKqy4nw+ISAlG0fsvN2+7RIVTQ8GRillnkZn2plLZq1So +4Ih9INodiB6UTqQEXqPCJRtBn/fpgYhrW4VX53UqPBbkP8LvFohKVW1UEm9S +wWTgYfT7vwFIlpqVw5lOhcXZ404vFQPQ6AbVlKl8Krz7Ofn74A0/FDBqcKbs +BRXsPmRKjdR5o+kIt62rtVRwq2don7rljY7R4n/r1lPhS20a1cDHG+m7fAxp +a1zLY5fx5BDNG4lMOlwae02FwaC4/woTvNDDr2FZYh+p8B+vSCHF8wxSiMt2 +tuqkwvt1LraH9p5BV5SbmeldVHjqcu3KK+YZFOixoXBzLxVOv3azujB6GhnM +pFXpDKzlJWMTIW93Gg3+rPh4epIKywtdTdL1HuhgyufUkikqqJbyEh9FeKCX +WzmsV6ap8K2Ah1xh5IEe+e4ejvq+xoN/+X5oP4WCfnd9v/OTCuMtXEvDX04i +seVfvC1/1/zs9hEtJruj3Ryq2kwRGiz7ug2Gz7qglSeXb7qK0mDxpm9nVp0L +enx8YumeGA3CKWdT5FNckFhtRiVtEw2GV2RuUba7oMFzYiyKLA0UP6adtw13 +RgF//2AFGg3IfMnRS0pOaPMj8/RjdBp4VG0rCud0Qp+ti9juMGhQViO8zq7X +EelVnayV3UyD6vDVWt4YRyR8dkBHWo0GIu0M/XVTDihvsUFfXHut34eSZvMK +e3Q0j5h76D8avLBY/+7BVXskZBnKk7KTBqZvirOMztgjn1KtJhFMA79P3/0s +mPYI/PKNhPVocPxAf1nF7eOo+2fCnvUma356WFtJiXaI94fVAXZ7GjyvaZ5e +2mOD9CKrq4860GAsX/hVk6ANuiBHUipxpAEtMaJIst0are6Z5HF3oUHG+TlT +HXNrtJDnX/XhJA3a1LqvXnM9isbsU+h5/jRIl0sfPZJ9BFGWfqdwBNJAn2uM +MHnqCLJPOsphE0SDG6WnZqa1jqDPNaRPG0No4P21I8CoxRJ9lH1y5eyFtX4C +4106fy1QQ2fLX5M4GjQmnog5fcYccXiou9+Pp8F6/z9HXu8yR8B9tZszkQb7 +H3w+GCNijqq2WBeVXaHB1kVHty3Fh1FR4pQrKZUGDx+dFCP+O4QyjXk/zGfS +4PKH8KSC7IMorBryb5fR4F7x92xL9QOoO2BhZaCcBrPz97v1NhxAalse7idX +0iB0v/p1n2+maPDepvn7z2mgaat153a+KYKk77i0jgZLD6pOszFMEZvj7Y/v +3tIg0Pz0YxMbE2Qpb8YQb6WBp1jFUQWiCSrs5j1r2UaDnvnPZi6j+5DdPm/C +wDsaHEvv9TjiuQ+90DR2/9pJAwF9jV8Po/eic/yLbLxDNJha8C/f026MOusf +HTQepoEuL7cU7ZYxUgl1yI0boUFQwsW2E87G6PNc6x6xsbW6wvt/zNXdCPXn +XCNO00C8+9+Kn8ZutPr4oNLOeRrMX1vkvvrIEIUeKrA4w08HZV+lyKoJPXR8 +wb20bR0drrY9mu+s1Fv7v2VsUhGgQ3ie0NsDCXpoXX9G55QQHXoObvd20tJD +Vx1SDjuK0SFDQtzn+2Vd9NAr8KCFAh3mWrl5+/R1UIKYZlExgQ5y8lsT78jr +IK+SORExEh08uLstS37vQtuX3DvaKXQQCPDuHMjfherPHztgrEgHjsF+SV7x +Xag3UXc/axsdjL+89STMYPRcg63gliYdBlwvm8Y+wCj9Q5XQkhYd9rWPnbns +gpGzpGZriTYd9O+ciEZDCM3eZexTAzpIRV0TN+9jIb4CwT3kPXT43F1wR3fy +P6TV0mXAf5wO8xbrQ20dtyOr0Bbd4/Z0cEr1uzunth0Fq9ZDuQMdQkUebp77 +q4Xqkh5rn3CmQ92o2C+NG1por3mEyit3OqgE1VVkftBEdgMaEjF+dFBK5n4Z +fGwbupDIEB3yp8PHjBwvT/VtKGeXvPCOQDp8kfeUruXahqay+NdNnqWDYLnK +ztCHW5Gv6+Bfo/N0eH2i2ciYbSu6NBs3yhdLh92LxfUXyjTQw8yLw3ZxdFhd +MXm1LkkDtR0MHCiLp4PM4FOusRMaSKzEscc1iQ4/392wS5bVQHeC/mtpvkYH +odvmXSUR6qiIc/JZdAYdthyyyYt3VkP94nrhfKV0YNuV43uqSglJTl123l1G +h40eyXmjF5XQ4er3RpfK6RASkyLcskcJtTo7CApU0aGDz1NirH8zqi29cG1D +LR3KePb6Mrk2o9wjtXkSb+jw95R4MXJmohFl/ssWb+lw/fxzXcOtTETgOHAq +tYUO6w6Nyz3lYKIb+YPq0u10+P6oqfBBOgPFLv+rkPtIh0r781FSQ3R0Jg21 +UAbW5rMjwgV509DjM5EFToN0cG4ETTFDGprSb03KHaLDqScVYyBDQ47fbcwZ +X+iQL5Csc7uBisxxyMDmyTVeFb0jjWSoaOdQ5azGTzogY97TE11kxEPdIbGL +lwEz8XOrQpeIqHUwijuNjwFTfsGn8xyJ6Ortzl+L/AxYrxWTmYSJiCLm875Q +gAGRb49kmC4QkA5nQSJBhAGJqKnZw4WAzg1R1rPJMYBP57LzzgJ5ZJDmvXRU +ngG92vhXyyl5JHSkbrJUgQFudqp800ry6E67bbMniQFhaaoK9Q/lUFXNzYgB +OgMqlbD0m6eyaDFNmK1GgwHKyfQsnS5p9OKI7Q/prQzYw/3SieeONIoSf/zZ +bxsDpAIvbtVzkkYScXueq2xnAGyLHmfOS6FtwZFBd1gMiJU6/Oy8tBTyslr5 +FWLEgIlq5t5LQZvQtMTE5M5jDPgWw/4zM0YMvZ2Prj5vywC9ywHU53Zi6PEH +ZvJLOwZMdvU2M7aLIa8r7jtNHRhQ+nWmd3ZcFC0K/oh3cGXAk+uu1Tv2iCIe +7oUtl7wYUJ9gLCZFEEETI9f42rwZUHPdgp19ZSN6Vaf1SdSXAf/ti2pV696I +YsMCI9P8GeBoP9nilLQRia6sdBcGM6DHt21VnHcjIvzkDO2KZEDSFnYD1dUN +iKMj20w2mgF7hfqKA6s3oJFCffrxmLU8ObM5dc9tQLkeUe1Tlxkg33DGyIRj +A1KeWkdeTWSA2MQWUyUhIaQ9tLGZcosBqzeLbbfsFECH2xREvAoYYOtJH986 +zYf8nv+5WFjIAJ+le87xFXwo9cH7+e9PGMD/p3DI4BIf6o2K6nF/xoAGLZ6x +d4p8yA5+pDuVM0CoeUlr52nete/natUj9Qzw5TjD3rSeB8XeTc243sCA2ej0 +A1WD3OhRnJdoZyMDXpjT87lLuNHMCdpvs2YG1L1kjSYd50a+pPjqvS1r+nQ3 +D4ZWcaGwZJt90MUATcvWJuJ5TpR5XqsmtJsB/X/6jgse5UT1nhvVn/cwgLdg ++yHdbZyIZ2+jmHY/AyzSHVcvT3Ggy1zK/VuGGMDBW9gSZsmBrvmuuNGn13h3 +/MJ9bhc7emhxK1roHwMUx8nLZ6JXWZbKwbyubEyQ4YwOem24yuLitImsZWeC +yb7fQw94V1k2j+XDfbiYYE5vGOGK+csS4s4818vPBNfB/uSZpBXW6ad5frli +TDANL9J/XrnEko2Omf8nzoRcL70Q4sUlVrONm8+RTUxQCnFL/mu8xCLyK3kJ +SDMhIEbXWar/D6vDtuCUlwITnHQdnBs4/7C2CZY4IsW1/S3RgWKuv1nDw9dG +rm9mgouOjmS45m9WfJm//awSE4w6e/KtuX+zxhx22GWrMkHOI3KrfvYCK7Wi +6ui6bUzYlUla7RubZy251Jt1YiYI3NO2cwn9xaquawePw0x4YfQ1M2J2lhVe +yZlTaM6EyuT1j4RaZ1l7nmny/7RgwqOLrm2f8mdZ3Tm33/lbMWFyS+OWvU6z +rNloV/vztkzozPh8zerTDIuyny085QQTXk7wSaQU/WBNGW6Z6HRjQm+84NC0 +zw/WE3DeK3WSCRc3rVyo0fzBQhpvxe54MKGj62RQZ+V3loV4as49byZMnA2c +yHvzjXWpT7WpIoQJxHc9RqLsX1mmH+w3/w1lwitP/rbyV9OsTS1XE3AYE2gH +SytarkyzsquXLRouMGF9mJWDNm2a9TyjaaIligkPC6WqNphNsWZcbNcNJTHh +zbYP0/NVE6zDv+L38eYywXJOXNm6d5RV16qj5nmPCdN7gwoU80dZavcXRLry +mDDG3B7kEDTKEjh2rDv3ARMW72ntEpYdZTU0KTsYPGFCZmTmaZbjF5bGrbcB +EVVrPAiOJpN5R1jpvmFHvz1ngtDfFT7lT8MsIdOt6HANE+4Xr+NPLhpmTXHd +5qTWMSHlrefZM8eHWRke7vENTUxI6OrUs68dYgnrrMvmfM8EaWtG54mkQVao +bHWk+wcm2CdnCg6eHGR9XThz4v1HJhB2OPXkGg2ymh/0qGR1M0G1IMiVzD7I +Oid+v1znMxO0zjXfvzT9mfV9wrDt/CQTrFQqQtR7+1nW9ctPJqeYYMina5d4 +s5/1Oq0g5cBXJvj+/XT17NF+Vq7ZJiviDybErkrT5z73sWyqxr68+LXGA+eJ +AvS1l/X62s0mxgITjmnB6OfCXtb2Myb5ib+Z8Nfv43oOv16WGK3E026JCQvj +2flv2XtZF9jczJqX1/ISa5o409zDmumV26b2lwkRFiezrib0sI4Vv9uUusqE ++PrMek2LHtbbhIilf/+Y8OfqwNZDCj2s/wG+1mmv + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{220.38505564221367`, + 295.0352468016282}, {-35.23557090350529, 82.7623854610158}}], + Selectable->False]}, + Annotation[{ + GraphicsComplex[CompressedData[" +1:eJxFmnc4F17Yxo2sQrKyffcQGRXl1/ecJzuVpEIiskdRNkUqs8yoNJSdNJBs +kRUNI5VdVnYJRUJ6vf+87z/nXM/1/Hufz33f13WIth4mDhxsbGx31o7/vV0G +fq1nYxMFm+cf5VkCr/HTRaGf2+Ik4Pm6ppVysXpcYDGmJ/6fJCiHh7oW3SvD +VXtbtd16JYGyUvXwblI+3rOqUK8XJQVKf2JzApwzcQtO/p60RRoy3/jS9Z/e +wtuJMYUFb6SBvHchYHVrPBZqml854icDIi+9bnqdu4wXlj1+uErIwvyXdHMZ +qj82mbdy4GmUhVe3LS1VU0/hiNgPfp6ecpDBaDUOFjmJXz232GYsLA/FvJMf +uPmP4nOpRz2fV8sD1co7aU+PAb7Lr/qkQYUA8hUHbZQtEC7ZMmvrHUkA76W4 +vV/qVHGV1LzjlS8EsOr4mzqzRMGGbReru7cSYTtKCVr3QBInODcd+xZGhGOu +Yu5uIoLYqvGmwc5OItxNGjxwQYsDiy3khk3RSPA3yzBbx3YBRfL4r7MNIkGU +fkb/hkOTKKS/uXNTCwmWtldcec49gLbf/vwtlEoGelplQmlpO/pIUTW2PkcG +5bc1khZir9AfHwFer7dk2HumaofM33LU/TCD3ZBEgcxblvEaGXkIZdYetPCi +QHlfxK009QwU50799r6WAn9vdWp8jb+J7khrveGXpMIBXuWhhrKrSDFubCXE +hQp/KpqT9EZDkP+I3tnSl1Sw+ZguOVzrhfZyKGsyhWmw7OM6EDrrhHh+WBxi +t6XBi+qmqaV9ViikCnLvltLgQdF0prnqIRR8JM/sLB8dlHwUwyvHdZBGc6ce +30k6zJttCLa234n6xHRCeUvowLYny+d0pSLipu4S38PDgJnYuVXBK0Q0JT4+ +sfsEA75Hsf9MjxJFR1vlhT3zGGDtQR/bPsWLHpvdiRT8xwCFMfLy2chVVlVt +G7gfZcJLg2/pYbOzrKO/Yg/wZDPBfE5MybJnhPUuLmzp3z8m/Lnev/2IfDcr +n7kiQx2RgA376jmVRF/inSbHG+CqJFSf2NLHzHqO2Sh/OY+pScFusVf9aoK5 +mPf+YNfpHinYSAkPuLk9FV/Mv2ZMPicNp5RblllOSTjde485J1EGaiKIrmeJ +UZhzSG2hv1EGBKhXRzTyg3HmoqNCmYcsnNC8LaN/yxN/q0merpSRg19Su18t +yDribOLNoydr5eCN/d4e4nsLnKrQZcLhIg9brjyu+qVojE9PK/08yEuAYuXX +7l6ntLGCzCbeFEsCWEgrBB3fpYE1yT/tLxQS4IhrhinTaAsO9flP5Bk3EQZV +xUqrnQjYXSaL386CCFeexjSaZorg35tVDl17SoSFzlG1IA8eXHaCOLbpHxF2 +3eskRN5cQS3BmxpoJiQwNYtqu8GcRaE/SdNlWSSoMyT6nY/6inoqj9q+/UOC +XnO3qS0XulCodYScpzEZyvpdgvxr3iHHA/KKLhlkuOP7edFQuwZNxHWFflkg +Q9rkr+rEh88RP72Q0W5IgYEVx5SCBznIke+XrPgdCvDsUTn8YvM9JNaw7fiP +7xRQOKmaKStyDdl/ShrW20OFMpssZ4esMGSiublE5joVyjmiH4l0BaCBn+Wf +zkxQYXmhs1Gqzh3lLNbrimnSYOhjcZNpuS2q72j+axRDg4Z4l6gzZ03RBb5F +Np5BGkwu+JXtazNEPfHaB1k76GD49Z0HYQajK7MxI7zRdNi7WFR3qVQNnU1B +zZT+Nf3uCnNCXjS0mCLEVq3GAKVEeoZWpxQi/OQM7gxnQMI2dj3l1Y0oJNHq +AHQyQN28pZF4kRPtECi2RwpMyG6ODBB1/s260qvcWB7EBOL7bgMR9m8sIa31 +mZwfmCBlyehwSRhgKSdwRyqWS8DcXWlst1yDvU2J4VvsJMFRWkBVnaME96uP +koe4peC+cuJ5cecnONMo3KinQAoqzDj3fFVJxwx/MXnLw9LQmVq79N/IDTxl +OBbWMy8N4Mf1+kl4NF5/NCng9n0ZCDiSUd5qeBEfCJziF9aRBeNDwjvSVH3w +/ePLzKFZWVghPfPmVXDB4uZFoy635UDw154dn7VP4EIPSe2HLHkQEVRUfuNl +gnOrzBUVxuVhg7PWudZFXWwnmmZRoEeA9Dj78Q0xmtifPjf8J4UAF+aLS+ap +yphoIMG6N0eAon58xzeGhC19RRzv6RBhYokpEOIpjnXg/FF8mwjB48nbb0Sv +xxsS+zZTp4igNWhVy2SwYU/NE9So3SQYu12UlX3rJwoPOvAnJoEE24L2XAnG +Y0ipZVPK9DAJNO5sPX+Kqw/1nX8WtqxJhpeSRdJSzm1IdhcD2ceRwc15c6J9 +eB2a5fB6xRgkgzUtW94qpQR5Om8Ri1WnwOJMZ9v7749Qu2mv+s4ICpwRKN73 +jC0Ntd96nGHTRYGrbzmjfTKSUIj/VAdTiQrGDw8ygy9Eomr7f91GF6jgE79x +nUxsEHr8LSRD9BMV/uMRzqd4nEX+f/9geRoNyLyJkUuKDmjUNome40eDVNnU +kWOZxxCb/d1P79/RIMD0zFMjKyP02DPgsJk8HeZauHh6dbWQTb+aeJQvHRQT +uV6dP7EDZR+ryRF/S4e/p8WKkCMTXRikbGCTZQCv1lXH3XlyiJtrYdsVTwbU +xRmKShKEkWtBlfKxOgb4cJxlb9zAjc48y/HNFmWCcWih7ouKJRblIFtokgsT +Xo3ziicV/mCp3XnnH1bJBGeBkUQyzzCLbMDi8rCTgBxLW9cxz1dYpXa2QFZI +EsgLS07qpZV4+cD1daaFkhC+LH7T4NIzTNgk+rXVSgq8fhFKT296gN1+7LZj +55SGQLqEeHTvXdwzvvHSZLo0OO53mmtQvIaP3bujoLhfBm5JNShcIobjFff3 +ntQZGRB6/tnWatc5vOw7pG9zRxaCcq7l6R86gzUZ6oU39eXgvZCCeYCHHVaf +8q83n5SDj8tZpqjWDMeO3LA9niQPu+8fmNI9vh+HBim3XZEhgMsdXeXTW/bg +GfLFokhPAvzMCvzAZ7wdr8j9Gln3mgAdh043e/yg47H0ExMNUkTY7P1PVZhT +FofUqhfSzxDhycj56LfKm3Duj+H9I7VEONHNvb4+bx12UnAsXhUmQXi0j+DJ +/X/Qlrp6+3on0tp7+C6wVXAaXXJZHBopI8Fj84rvlpQhFPHoFj1nIxk4uViD +Fq6fkKKWZcm4AxlCzYjGlG2vUf5JcSn3EjLYVfK/jgqvQoMySDuJnwLX9ybm +aok+Q1kjmrvFrSkg0SZJb67LQksV/Fy/nlLAgmK/7nDabWQ+Uy4czEkFSdsL +Obdy4pCBGpqxO0qF16fm8/YSLqORjcpJk7lUeP9z4vfhW75IdPkXT/NfKnzd +6y1SRHZDXT/j9m0wokFoN2s7Kd4GpRvyfJxPp8HVj6EJeZmH0erTw4q752kw +f2OR6/oTfcSbJ7CPvI8OX7ry7mlP/IcKOSeeR6bRYdsRq5xYRxW0e7BiVu0n +HZAhz5nxTjLytFj5FWTAgPEq5v4rgZuR5uCmJsodBqzeLrLetpsf3fBZcaVP +reUD+69cF/awoyWnOpMOzAT+B5o2TsG/WDNO1usHE5jwdsfHqfnKcdb0uH7r +xQkmWGwtD1Lt6WNN119l5WdKwJSRTc4Eex2+Zh46SjgoCQEXx18pG5Rio5c9 +hbRZSQjmnvMT+y8Pe2abR8WnSIGjxcumYZ0MvNxrGu6PpWH2+i3iAE7GQurl +MnoD0hCazbd7p10sjhHUrfC7KgPj9eefzVpcwqQKpWC0VRYSN28fgvu+2D/n +caN3nyysy7ZR5uh0xUZeOsru4XJwzMvcVkfEBu8W1qxYocvD8jZVX6Giw/ia +stnBHx/k4crZ9TWsE/o4RGjicsV/BOi+9uKRi91unPzwLFkjkQDbUn1Oa6ar +4DMF3CZJ4wSw1yXWPC4n48MZb4QrdxGhWnXfS8l/m7HrkfROsXgi/A060/5z +Dz/erqSZv3WQCAJbfNqlldixTnLo0XJVEmSdExCmzv1CEbVDq34RJJh4ebBG +unIcdXR4aLJ1k0DHdcdGicXPKHKDwS5QIUPsltldmeHv0eJTxcaTYWRYXaRo +vaurRz67YexABxnsoz5nfEBliBbltOGUIgVs4v9Ulpc9QZF/jbT3BlFARUNz +H5dIOlJZN6F/q5kC0zwWh2sEbiDBNzeMpclUWKdW19Gz8QpaCPCacvKmQvjW +XSOydy4g4Qm7K6NvqDAQGPNffpwnGrggyqLI0EDhU8pF61BHtJDjV/nxFA1a +Vbqu33A+jiBhGpfU0mDpUeUZNoYxum6XdNRelA5p4mLe01e10X7TsK2v3eiw +NbC2PP2jOqopuXRjYw0dSrn3+zDXbUFanHnxBGEGxKPGJncnAloU+BFr58yA +gpvOVbv2iSAb+JHqUMYAwaYljd1neJAgV/qFHr41Xg70Jc4krLBmI51tL1oz +oSPtyw2LzzOs+kYlO70CJqSHp59h2X9lffE4HBt9QAIe3ZvYdrK0Ec/M+zql +LUmAeJF4yrJ9FZYyXrTfd18SlMrHiQ3RhTj+Nq+3qIEUMMXfKL4KzcGa+hvv +lUxLwUzQe+Gn1+/hp/sPTXDHSUOTp1kch1YiDo5yr7mpLgMOtW33Y69H4BDG +peccfTLQphEp9HLsPG4roZRFh8nC8x95Bb1uZ7GIz5ixgpocNGX3vamqsMfu +3LwCVh1y8Oy884MfrGN4c2RJz9NgebgULp/Vs9cILxY9PXlamABpXyeo4tpa +WIDw+ss1JwKwP2S81indgaXTvKhaVQQ4m5dsnBHPxOr8B1YrhIhQGJEebNUj +h/1+fLfWdSDC+0GOtmRrYdzGub61opQIiz8L/B+t48bx9XVGvHwkYHz51Cs8 +soRWCFNJ85Zr/q6/KVNv4wy6/DRmvDWPBJ8PYBH3A8NI5fnv+rJ1ZLDpSlsM +HetAXW2zrkrHydAY/6Rz39QbdLVTKsPtCRn0Nnw45/TfS+RgusG+jJ0Cd+rn +gocOFyJzbj+1X0coQOE/VLBT4QHKtw3ZxJVFAYcSeYtVo7uo2OJ3cfEiBYxH +rjpvnYxHHZcnXI7uowI05UV+Ng9FMtSMLM5UKizOnnR4peCPAn93Tt/7SYWx +5nVLQ19PIfDNNRDSocHJQ32l5XdPosL4SWdSMg0ePzklSvx3BKG+rBvEKRqI +df1b8VXbi2bvMw6oAB0kI26Imfay0L3A/5qbbtBB8K5pZ3GYKjLFQf1bJujQ +reAVbiBNRTvOhwfeYzEgWvLo84tSkkhpcj15NZ4BouPbjBUFBdHVdUp92wYZ +wMGT3xxizoGSyyuPr9/BhD3ppNXe0XnWi7TG8eYIJjzOl6zcaDLJuiD2sEzr +CxM0LjQ9vDL1hfXKWvSH+wYZ2OucI5H+6gr23/XwzsgxWZAfLNeu7/HCrwQN +ow/yyAEtImFj7E0n/GU37Z7DUznYJBt7WSfIEis0L745elge2KsGzLv0DuHa +AxZ8Divy8Cmc62Vajg7Wkzim+uAQAV6MtPtyfNqJj2V5ZlbmECC4y7hniqmE +278wGTkrBDg+K7+k6EnEDnsty0IOEiG1V/enzz9RLKdo+sE5kwh71I1IabO8 +eGgx+IL0PBHmOk4sWDusotQ+jXkzfRKYnG+P0zWbQ2E7S39m3CGBe1bolaru +ERTaUPivb5oEX53yrtO29SCVaZn2Yl0yiJlxSxeXtCCtOnKR4y0yvInOMfhx +vBadfp2VxfmNDKod6y36xItRtf4PuXygwFmpIetCVi6SyXdSoCdQYH0286HO +3/vIW/nMP/owBXirOaecjRPRHA2sdmpQ4VqcoBmdJwJFHrzatOMKFU4Png9X +yDiH9GZSKrX6qXBS2ipMzuYMEjrXryWlQgPhNobu+kk79Emm4Nq5SzSg8Y91 +av01Qy/VDd2+ddCAX1ft1+PI/aju4olDhgp04Bjok+AR24N8nAf+GlykwxuX +JgNDtu0oevlfuewnOlTYXoyQHKSjyurbYf10BlQoYqm3z2SQyMpKV/55BnT7 +tK6K8WxCPqTYqv3Na/6svWUguHIdarfOO+0pzwQHbTvHes4/LDOx5KwHXkwY +PxcwnvP2OyvN3S22vpEJcZ0dOrY1gyyrytGvL38x4QmnSx761sNqOWEkMXdL +AlZ3fM8jXKnD6d1FN6R1JeFW77Xeo7OlmJvr07LBqCQ8zg0/bro5H1u012S7 +JUrBB41qlbyPGfhrzO+y8B3SsPqAP/PKr2Sc/og8fu6TNAy3PUgrtozDRm6y +lo4XZaBzlK1i88QlHN3bUnyELAu7Xno/EbT2wyNGYeJV72WhNA3lLJS44Um2 +6MNnzsuB7qjZQ98EG3zRztCPJisPb0UWeKqtjmBu546B96/lwa3mSbeppAGO +FYxJBnUCFOQ8+HbXgoVzXFXrPsUQYPaklvdjFVW8eTTIMm6YAInfErZbmFNw +yy7ahOF2Ivwn6lEW0SqBg08USbBfJUJo4d1dQnQBbLDkfH5bHxFaCQyNvCJ2 +rNh487uJIglaLmj70h/MI16HJ+ynL5HgvHLr1rOXJ9CWXjm+qA9rPPS3sNFb +/YK+tAsnDimQ4UyNgBlDth2NTjy9ahNChqrNMqeXXBqQRne230AbGSLtdmci +qXIUciuM+zidAtZ7Y+dycp+i4bbI14f8KTAx/HfPrfR0ZLOL5/aOJgpkRoUZ +y767gT56nhIQlaPCke81wmGDV1BCqJL3L3cqNHZ814g3C0G6Tp+CWhuoMLXH +cGKQ5oVEa9IqaJvX+viK9B3KTie0um+C282JBmkX54y1TC3RwIPN8w9f0EDd +WuPe3VxjtL4vrWNScI1nh3d6OWjooNqEp5oujnSoHRH9pXZLA7U42gnwV9Kh +nddDfLRvC6KIen/I52dA+LtjacYLBOR5zW23sR0DSr7N9MyOiaCeiIhut+cM +qNfgHn2vwIusnsqFeq9jgim9fnhd1F9WV9bd934WTJjY1rBtv8Msi//Eia7s +R0xYfKCxR0hmhFVx+YvJHS0J0Knu5RY/2YTb4nZpDf+QgGXJpENN2tWY+Z4p +pnddErydTC6rbH6ODfo5KtVZUuC7fWnfA72HmOjlX3HtqxQEwvljSufv4+TV +WRmxMGnoHox6eq09EQv964xu3iIDwhIx2N08EmuFWRydfS8DqvWJ+9OagrBm +V8NseqAsbCj9oE9m88Qh0i/ve9HlwLRxvyq3qwNen3RQ1fqdHOzYnLDl0joL +bNndeKPLSx5obyoa4g4cxGom7rknBAigcvhG7/lPWlhG7vTPzbYE8FVT2njb +Rx0r2G5rGChd20vHkarcFPBnqOct2bDGy6gf28Tfy+O5sL3qH62JIC75GGv/ +E8ZfBWSFHhQS4XTXHZE9Jdw4M2FOSmAdCVpf+Rctly+jkYOrirFmJJg7ba+3 ++fYMWnfIfKo+lwQehV4POSaGUVhpdqLWPxIos+vTvuV1oq3JlfWtR8mwbcuu +5Ivtb5G/cIqTaw4ZdOY1gg69eInoP8/+2rdCBq99ZOXB5UL0TPy60vBBCqSi +rEMrIw/QBvXymwKpFBAcelQ8oJyCRuPE+A7/pIBjmOqM8vkElKJYTTPSo0Jh +1QGhuJVQVKJstTX+NhWM+h9Hfvjrj5747B2KmF7Lm35lB6HtNPIu0WgUxjTw +/Tzta8a0RZXbLAtLr9Fg+6K967aio+jLXMs+0VEaaMt/+Mdc3YscJdRbijXp +oHvPJRINIiRabN/tnECHn+9v2STKqCH7aStTxlc65PInat2tpyLxmH0vtu5k +AOyIHGPOS6Js94i2yasMkKs/a2DEsRFx728Q1exjgFmq/erVSQ40arfLJlOZ +CbLu4dt1MxdYmVXLZvWXmLAhxMJOkzbFanrUvTWjiwnKeYHOZPYBlvmnoPJM +NhnQbs3vV8u4ioeOGX5cNpIF3cBZ0bOXvbFaEak3eUUWArv7C65bOePAN6dr +nTLl4FxPxGeGlRV2l+OLuGAgD2zp49d7ew5h9fDu2/pz8lBVqiBMNdLFR8T/ +6iruJ0Ces2yE5ZNd2NlRTed4BgG8und0NZC34kCRNLWM3wToKX5xP+svEQ/0 +l8RtNCTCD6GXq8NFYlhV3UX0yP01/VQsPxiv4MMLDU/2EWbWZr7NmZJm/1DU +hn0xM3tI4Na6lPd6fg5x915aSL5BgjxrJ4vuqFHU9dq2xWGCBJp88ybWEr0o +vGhsyzEgA1+Y/6PI6lakspoV4JBEhoWIXNKX6Vqk7MivfmOUDOu4LsX3dBQj +CXMBqfv/UeDMWatX9sKPkN/ltHzlaApcoeoWFQSlogz72EP1nynQ7Hbwrfzv +RFTWKialqkaFV08VUlxeRiCKhe6h2lAqrLhd9A9LOo8C3Dfmb+mhwpk3rhaX +Rs4gncpTNTJbaFAVulrDE2WPvlSTPm8KooHXt3Z/g2ZzZHPAi9D/ngYnUnvc +j3kcQDuX3NrbKHTg9/fq6M/dgyYz+NZPnKODQNnW3cGPt6NbuQOqUm10mH7S +mP8olYHutVk3eZAYEJKiLF/3WBZFhwSEp/gxwN52otkhYROacaH9NmliQO0r +1kjCSS5E5FP05Jdign+UtqNk3x8WUnsnes+dCe2dpwI7KqZZk+vuclJrmZD0 +zuPc2ZNDrGyTzRbEH0yIXpWiz33pZYnSij1slpiwMJaZ+469h1X1KI8rMUkC +4m952IW01mGF2y3TEiAJ6UYcvEH6ZdiW3i7fMyAJzr3hDZFH87GRs++OY7FS +kCOuPyUsl4m7Rxs/xKhIw8PrG8LrjW9hN8euZvE2aaC6nSVa9cXhvFtRj63O +y0Dz+HeuF6qXcY2b/Id+WVkYu+ptZ1jjh2XSZ1/YvpMF77n0JPqWU7i0Mc/h +rJ8cSFgLsq2+t8GUaJOjFZvloS5Arl/x+REM624w6+rlQSKOobgxwABfF+gn +Xd5GgOSqkndHu1lYZd8mEepVArhFZY7lBqhi15CyQf5BApwfnBjiekjB/FxH +jlxTJUJYy75gG01JHDmMynwj1/zbsczS5K4AbrcJGSrqJsIBtpnkmGV2nHoi +bdd9JgnEqmV9fnAuIINi4ctjF0jAXi9Y4zkxgUytfM80t5GAv8XX4nloP4pS +X6zexiDD7H53nf2u7ciKZ+Z7fxAZBD66XWKvbkDJ9J5qZgsZHgk0ylRcKUeP +00RD2ykUEKp3tVuk5qH48iz+Dh8KEPOVnvF/S0eLh8XrLjdQYGqhfzlP6Sba +qd/pFi9Nhd9X+G1b919FX6KulGqeWvNnfyFNk3sh6AQt9rd2HRW+1qRQ9by9 +0NOT40sPRGkQSjmXJJfkhC7JkhSL7dfyZXxYoUSbJVLZ9vgguYIGwQdVb3p/ +N0Y6yYzNW/npEJoj+O5QnA46r1wHZXZ0CBZ+vGXurwY6WvXB4EoZHYKikoSa +9ymi63c7fi3yMWCDRlR6Aiaipx+Zia9sGDDR2dPE2CmKkh99mJ8uYADfn/xB +vSu8aB2nVXgNOxOMDvwefMSzytr3XJ3vp9lafrzs3Po5d5al8nBBuDOHCaPM +nYF2gSOsXAFKEYklAdvoN48uFDfhl323lUMnJeDVLXTXtKga5ydondaOl4Qn +vklK5VbPcSY720CjhhQILyY7FD18iEX5lAxD+qWgzj2c0jt7H0eb1arLhEgD +227zrXYySbi7LNrTmSYDjnO/zzIqI3F64aus8Xcy4PK+tvvaf8HYw1lccKuP +LASbJW3bvN8TF7sr6kuQ5OCY8niAXp0D7rLw0rZplAPX4+vPC7ha4FX2Nu/T +7vJwcKtkbEb7QWxMaDHqXE+APQO0aTuCNibLVgdZWBOguefHx4cd6viZloiY +SjEB1p/u6uLqU8Aqvf9itvOt9WlL7qAcOgGrHPJLk7YiQtLU0IrMIRE8fS07 +X6aACDJ7HUIeCPPgrYt8F+PYScDS/qbhylhBFmM8AT1HSOAXQspHgzNIJ/3F +KZxDgocXjgam7vyK8jVXl8JXSCB/qUjniXgX6l5OmyUcJsPW0tI3bHvfoR/K +X15PZJGBZks3fPPvJYrck7X7+h8ynNz+8hubyXPUL0d5ZHGAAvbPYprE9HJQ +qXxnT0IKBWxbLxp/S09BwbkUtbQZChBq3LK4GxMQG7tC2BvtNT9OFxU9bByG +1u0o9+y4SYWnAnzH+FwD0KvtHJYrU1T4nsdNLjdwR4LmwdxJu2lg/LYow+Cs +LQKu612c8TQ4+OjL4ShhU7Q12C47ZpgGgXGXW10cDVHqx0rBJQ06HGgbPXvV +CaPWwwH9pbF0kB54tm7URQ1N6rYkZA/S4XRB+ShI01CE2NMvvjsYIBlwebuO +gxQazteln4xigCtnJqf2hY2ozmOT6otuBvDk7TyivYMTxZb62c4qMsGgozvX +kus3a3Pz9TgcwgTa4ZLy5mtTrG8LZ10+fGICYZdDd7bBAIsUr5aKl6XBLmO8 +YaNoNJaYvD0TvlcWpI93zH3q9sbOvHGXWL9lQad+zmu11hkbJCR8dL4vB1ES +xs1ZrVZYSH+Tg6i2PFQQ944/o5ngM6Rbwzu/y4O4x+n+9nRdbCl2sM19LwG+ +Rhpl68po4hk94aTcVAI8/TX6qCVjK2550ldCmCdAunXKDJsuCcs9Glky1SfC +KwGlP84i4lizYu7567tEmK59c86DvB6HKDYUpH8nQt0kc7C2/R9aTT/SvRuv +6eNbsMZ6/Z9IT3HcTySJBDEiR0Z+D48ijv3lO3JHSfDbXIM4FtOLVCWbzXNZ +ZJg+oHbImtyGsqXHer8mkIGVp03m16xD8c9xcP8wGaJvxrfo7ypBujZ3b4rv +WuObU7g/XHiEKKerfhZGUcDu0r3JgqpUpHkhJVC4lwLzd3a+T9yfhGQyQ/yf +KFPh7RGOYnX5SORpnX6d9xIV5FiOvTpCQeiaUhMztZMKz5xuXHvNPIu+WBay +3WPQoLRaaL1Njz2yTTjOYRVIg1slp2emNI6h/C6ec+atNOie/2LiNHIAeRbP +CYuS6ODO1WVe/HsPytojJ7QrgA5f5TykatbtQASOQ6eTm+mw/siY7DMOJhI8 +VjtRIr+mFxtl3ilFOfS6VuOziA8D/jsQ0aLStQk9ifEU6WhgwEtTei5XMRdq +snL1PraZCYpBrol/DZdYBeC4X/IUEy5vXrlUrf6DJWi8HR2tZsLDovV8iYVD +rDcpeUmHvjHB5+/n6+eO97F2njXKjf/NhL++nzZw+PawZnpkd6j8ZUKY2amM +63HdLAPO6f8uc/z//w11E5vzwwkSkLzMpnZprg67L/XcvsmSBGG7+q8LnmU4 +vrStgPRFEuxGhI4veOdjg8K2ldarUmDvxCiiamfiIyL5Npu2SoMf/9ZAywu3 +cFvdM7Bvlgb/tMrnvoLxeCC/+kh3gAz8Z8E/7mN6GfcV6p+kSstCzxNrFbaf +frjk7YNNRa9lIelt1egZh1OY8KhmetZbDhg7TVruzdlgn1TTei4xeWi9c+33 +VP8RfKJ9vvm/Wnk49SCmxv+hAZYQ4HWmqBEgwCX5R5Akwt7/sVe8iyLAL53F +hyn3VHHSAbPMt/0EmNjzedOH9xT8aHKST11lzc+HXe/6n5HE/NmXo1QjiKDG +f+JaRqcAlhCNFvPrIsLwdFHDsBwHtlDIttZlkOBTwOzfMbUFNH6ioS4zmAQj +QpV/NshOIjc5UqZH6xpPz4tpNzT1oxPjrqZ9tP/loQnvsYR2JHFD6P7982QY +e5BqyDnZgJpaftq1vCNDQXVi4tO6clRL7dOKJVNg5VdS+DH7POSkvH1rsjcF +htvF8tU2ZSCdwZROhXoKyO5o9RezvolcC/jvGElRIbqpo0D08lUUxl/W89mV +CkEaq6+ptSFoKsx1+2oNFVzrGJqn73ihlYKrt51FaLB426cjo9YJ6YRXVR23 +o8FortDrRgEr1OW/sNJfRoPZ+YddOhsPoZMLbiWt6+lwvfXJfEeFDrIIbtY+ +aUsHh2Tf+3MqO5HE5FXHvaV02OSemDNyWRG1DERwpfAyYNL3/JkceyJ6Nx9Z +ddGaATpX/akvbESR74s/l/PzGeC99MAxtpwXmSud53FmY4I0Z2TgG/1VVmgF +Z1a+KRMqEjc8EWyZZdW2aKl4PGDC1P7APIXcEVZau56jo6YE/L5W+NNgqAnv +vLwv++OYBPgFX/B4OF2Nf80aSdbGSMKr5Czpoxef4/Zrq2eFdkjBusi8iYbe +h1jwSMSm331SUOjb+OeBeCrmDs2tux8kDQ/60oXz9iRhtNlppIgsA1kKK0W3 +pyNx+5uVA/ZvZEDATyX6qU8wvpKP7np5ygIxM9w8wtMTH0oeuu0qLwd6+IvW +mRkHjFHYu4H6NR5XblJ0TLHAB8U/Dpe4yQPhqm3nv/XG+ATPamoiHwGGl8zN +9fS0cbbMeO2yFQGUTdP+NvNo4AU1zhedzwlwk102vVd0C7bISTH+yUOEgzX7 +05P0CbhVXdCs+jgRguUrLsUEimDPo1MhnXlEiHVwFfsKPNj7kdhzYzYSKC0K +dNRaryDRQv77IYdJoP002lyHaxZ9NTzzZCWbBE0NRvajNl9Rw/LDrczltdmX +7PHcsAs9fSIa+foQGRzvFAr+DX2HcqtWAx9mksFQd6e9C7EGlY5XDexaJEP2 +jZPxd4Keo4X0KRfx/Wv8jXzBXeibg+KSHFYO313rT7TSIunPKeiNxmM9gx8U +eLsp6NXEtwSk5mb9PFKLCvZpVsRngWHoUcl4UsANKlyxEvD+kBqADid9SS6e +pIJyCQ/xSZg7Op5DzD7yHw1emm14/+i6LeJwV3V7GEuDDX5/jr3ZY4o66p4c +Nhxa6988XJK0O4bohRpb3h11OvQ7XzWOfoTR4/TLQzYxdFhdMXq9PkENPT0b +nucwQAfHBlAX1aehl8esf0htZ8A+rlcO3PekEEd7polMJAP2C/YWBVRtROkX +NaqDuxjQ96f3pMBxTjQ0dGP45hYmOGlpSYSq/2YZf7Td8jeYCa89+FrLXk+x +gmWqwt0+MsE2MV1g4NQAK/w7v0jMojQcrzLaRTsQjdXU6oLf6cmCapPK6Vgu +H7xOTbcj7pcsHKwtGDZacMZ53hlWE3flwHqz0+sovhPY9rjYxxMgD31zSpri +B0xwzMxiRMGkPFQTxtkfNOviAVF/MSEDAnQ46maeOqKJt2tw7Da5T4DPP9v6 +Ur5uxYuBgYH9PwnAYxC5Q8KFhF/En89f0iXC5fDhjzVa4rg6SCMs9A4RROr+ +eLWYrcev+tu+2n0jwgojcCyblw2Xuh/7N8Qiwb7DltcVz/xEox9vl7ZdI8EW +s529MZvGkISAo8v+kbU+7smZ5PK6F3G/xT9MdpOhMvHSmWTdNmSbyxOTGU+G +roMFdcI2dejl8WOk0CEyuDrs5ZR1K0GWX+1M2zUoILGSwmFS/AgtD+4X842k +QLT8n46E/lQUzk+NK+umwEurthsdfknISLD4gdtWKoSpRr1SOBiJJIbaSh6F +UOHku1+j34yCkHxMpqNFBxU+rHeyPrL/LNryxDT1BJ0G7pU7CkM5HRBl6XcS +RwANdNeNEiZOH0PmciYMsRYaeIiWH5cnGqE4UfXCIgIdZOW2x9+T00KX4hki +g350+JSW5emhugMNK/FdNXtHh5sXX2jrb2civRSvpeNyDOjRxL+aT8uh8eEb +vK1eDKi+acbOvrIJRd9PTrtZz4DZyNRDlQNcSCYyav6fGBOyPXWCiJeXWJP6 +28Y7XJnQEyswOOX9g5XqE3L8+wsmCP5d4VX6PMSyrFsumJhkgj6vtk387T7W +mxu3GxkLTDihASNf8ntYl9hcTZqWmZAu2jh+tqmbdaLo/ebkVSbE1qXXqZt1 +s5DIb+ZzDYn/8/f/AS9edUs= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1me40GMcx+HT3nvvvRMNaaId2ktFpRQl2nvvvQvtoj0RZWVEtqRIAy0V +7WgRxf27vLjP9Xw/V696rud/TqEuvVv0SpSQkLAocULCEhryldCMH/SxSAn5 +/XhJK85m+1Hu4iH9a605B+1xJKGA/rJWgi12W8rxsL5Ha8EhezxJKaiv0kqy +1W7H3Tyif6O15LA9gWQU0ldrpXjFbs89NNL3aq04Yk8kOYX1NVppXrUfozyN +9W+11vxoTyIFRfS1Whlesx+nv3bDHk4iKmhNtH3ObfjJnkxKiurrtLJssztQ +kab6fu1RfrankIpi+nrtLl63OzJAu2mPIDGVtGbad85tOWpPJTXF9Q1aOd6w +OzFQ+9MeSRLu1Zpr3zu345g9jTSU0Ddqd7PdfoJB2l/2KJJSWWuhHXBuz3F7 +OmkpqW/S7mGH3ZnB2i17NMm4T2up/eD8GCfsGaSjlL5ZK8+bdheGaH/bY0hO +Fa2VdtD5cU7aM0lPaX1L3Alv2U8yVPvHHksKqmqttUPOHfjFnkUGyuhbtYq8 +bXdlmHbbHkdKqmlttMPOHTllzyYjZfVX4o54x+7GcO2OPZ5UVI93ox1x7sRp +ew6Z4i3pr8Yd8a79FCO0f+0JpKZGvCPtR+cnOGPPJXO8Lf21uCN22k8zMvH/ +j3eiloaa8a7sn5w786s9jyzx1vRtcUe8Z3dnlJaISVpa7o93Zv/s3IXf7Plk +jbenvx53xPt2D0ZriZmspeOBeHf2UecnOWsvIFu8Rf2NuCM+sJ9hjJaEKVp6 +Hox3aB9z7so5+3myU0HfHnfEh3ZPxmpJmaploFa8Q/u4czfO2y+QI96mviPu +iF32s4zTkjFNy0jteJf2CeenuGC/SE4q6W/GHfGR/RzjteRM1zJRJ96lfdL5 +aS7aC8nFvfpbcUd8bPdigpaCGVpm6sa7tH9x7s4lexG5qay/HXfEbrs3E7WU +zNSyUC/epX3KuQeX7cXk4T79nbgjPrH7MElLxSwtK/XjXdqnnZ/hir2EvFTR +34074lO7L5O11MzWstEg3qV9xrknv9tLyUdVfWfcEZ/Z/ZiipWGOlp2G8S7t +X52f5Q97Gfmppr8Xd8Tndn+mammZq+XgoXiX9m/Oz3HVXk4Bquvvxx3xhT2A +aVo65mk5eTjepX3WOX5pXrNXUJAa+gdxR3xpD4xvo5ae+VouHol3aZ9z7s11 +eyWFqKl/GHfEV/YgZmgZWKDlplG8S/u8cx9u2C9RmPv1XXFHfG0PZqaWkee1 +PDSOd2lfcO7LTftlivCA/lHcEXvsIczSMvGClpcm8S7ti879+NNeRVEe1D+O +O+Ibeyiztcy8qOWjabxL+5Jzf/6yV1OMWvruuCP22sOYo2VhoZafZvEu7cvO +A7hlr6E4tfVP4o741h7OXC0ri7QCNI93aV9xHsjf9lpKUEf/NO6IffaI+DZq +2VisFaRFvEv7d+dB/GOvoyR19c/ijthvj4xvo5adJVohWsa7tP9wHsxtez2l +qKd/HnfEd/ao+DZqOViqFaZVvEv7qvMQ7tgbKE19/Yu4I763R8e3UcvJMq0I +reNd2tech/KvvZEyNNC/jDvigD0mvo1aLpZrRWkT79K+7jyMBDbFN1DLzQq7 +GAud87Ay0f9/V+aN/0PK+rf/AX1fMrA= + "], 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]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + 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" -> {{5, 13}, {0., 0.1957165151046949}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8V+8bxu1RSFa2zx6yK8q3z/Pc2akkFRKRHUXZhFRmmVFpKDtpULJF +VjSMVHZZ2Q0UCenn9885r+d1n+fc13Xd7/M65xDtPc2cONjY2G6sHf5/RqK/ +mc+0JMHu2QcFluArnNFh4OysLQm/rxT9NBpuxvmClGISSxK20K8fXihpxpUX +P5vd0pEEvZo+Honjzfiz58H42H2S8ODO5JbjZU2YbMTi9nSQhDxre7dxr5f4 +8aLwzy0JkvCMq3mlQrwBa5rZBY8kSULqMpvGhbl6XP2ggDs5RRISb3g6hLXV +49ZjJpJzNyRhddu3AsKlevy94TKrMFsSpk3s8ibZ67FqEk+0UoUkzN2WwQ7L +tbiQuSJLHZWE9XsaOJXFXuDtF/fkfhiXBP/Qc573v9fgF/03VcOnJOHlDXTb +vLgGtyfs0Bn5IQnLUikHmnVr8My8n0vGkiRIFEukLTtWY7W62SdywlJAXlhy +0Syrwk+sxg0k/pMC1chwt+I75dhjqffmdZYUiDg0fFnwKseKN1u/S4IUZJpw +8IUYluPMnuJrMvpScKPvSt/h2TJ8xTJ8jLBfCgLPT7xUNSrDPubEyM0OUuAs +I6iuyVGKt5sdbYTLUlBzbHM/M+cZ/jVrIlUXJwUvU3NkDp9/hguTdE7pJkrB +I78U5QqbZ5j5jilucFUKfFzMLqpteoalTRcd99yVAuWKCWJjbBFe3neVy7xI +CiKXJa4bXXiKq3e36br3SQFlpfr+7ZRCnFjW/oT0WQocRoWPLvgUYnt6h0Lv +oBS49kU2Rh8uxDzcH5eNxqTgYX7kUfNNhdjkRW8RbVYKQnnm/MX/K8ADmmPk +YR5puKuaHCzh+gizUf5yHtGQhp3iLwc0hPJxx5XVM8LbpIErumCyse8+zmZn +G2zSkgaRxVSn4vv3sdEAR5UmSxr8ti7tuWdwHyfe5PMRM5IGpsRrpZfheZiw +UexLm400eP8ilJ3aeA/vWlVsMIiRBuU/8XmBrtnYqKh9pe2yNDi6MIqputnY +xNVv25F4aciTMJwWkc/GVh21ue7J0vBeq0at4EMW9sq1jElMkwZnqxfNI3pZ +ONsk0qT3iTRUWnDu+qKWifnuDnWf6pWGDZTIwOtb07HQoaiNv/ulociv6c89 +iXQsxq9sHDYgDfUekZS+2buY6B1QeeWLNARB8BHl4LtY23DDndLv0jAT8k7k +8dU72P3HTgd2ThkIoktKxPbdxq049VvKZhnIfu1HN3x8Ax8SLbTbqCID/gIq +QdbnbuCesab3cWoycP/q+sgG0xv4S9zv8shtMrB6TyD70q9UvNxnHhmAZWD2 +6g3iIE7FjABxBeuDMtCVXrf03+g1fL7wiin5rAycVG1dZrmkYJ7w/Pq7ITJw +rz9TpGBXCo61qNOUDZMBtp2WKg6yKTh1dVZWPEIGeoZiHl/pSMaP9x6Y5EmQ +gWYviwQOnWTcO7HhwlSmDDjvdZlrVLqCtxLjip68lgHy7oXAVZVE3F7/FBxb +ZCAgo+qZn1AidnfubpFolwGq+xmiTX8CznxAnjj7UQZG2u9llFgnYGHNClmD +QRkIz+Xfud0hHk8bj0f0zssA+HO/ehQZiyO/CYjGLcrA0WqTHbR9sZiUqJGO +l2XAIWuicYNYLLb8GFKRzSYLum2FAxpZl/FLW7EfHutlYbdrnmTmy0s402eX +JSdRFmqjiG5niDEYbXIZLSbLQo7iSvHN79G4pzzWy5UmC85zv88wqqKx8L+u +2JbNsiAiGYc9LKNxaIxH7XVNWXCqa78bfzUKH7lzS1FpryzckG5UvECMxMLN +8yuH/GVB9IX3de+zF/FgYc2hnkBZ+M9KYMLX/CIuuBHz0CZYFlomvnE/V7+I +TdzlrJ3Py0LXGFvlpskLOE5Iv9L/sixMNAQ/nbW6gNcdTgm8eVcWAg9lVbQZ +n8ecwxoLA02yIEi9PKpVGIo7Xq/sc3y9tvZXi33sG4ozi17mTLyVhRPv6nqu +/BeKdSKsDs++kwX1huS9Gc0hOIxx4RlHvyy0a0ULvxgPxise77yoM7Ig/OyT +vc2Os3hh2fOHm6QczH/OtJSlBuD+IsPjVBk56H1kq8b20x/Xuiu8H5CTg/HL +Pg7Gtf44tq+15BBZDna88HkkZOuPSZXKoUhFDpI3bR2Gu354X9C0gIieHJge +ENmWoe6LNTTqQ98ayIF6s9qpeG5fLDl1cyZytxzIHO2c+9jjg4ePGH9YNpED +/aBZsTMXfXDAjvu3Ro/IgcJQhW5DrzfOXnRWLPeUg2PaN2UNb3jhS4XotreX +HBCzIy2jvLywp6uEkIqvHIRapGzZtNcLa3c3zmYGycH6sveGZDYv3F5KKY+N +kINnPwqe9Lmfwct+w4Z2t+QgJO9KgeGB09hs3saJt0kOXt60tlZPP4lL39zb +WPxKDlLeVI+ddjqJZTNnn9u/lQOfucwU+uaTeNQkQqL6nRyUZaC8hVJ3HJD3 +sMmnXw64cu1UObrc8N2jy8zhWTlYIT314VM8gbk09DsTfsnB/ronIyYLrtiV +L+EC67cc6DXMea/WuWKNYlJf6oocBPUMPLlq44pfChnH7ueVB1pU0ob46y74 +a23q9ypZefglvfPlgpwzPpA6fNNNQR4M8Ged0zNOuMRDyVCSJA9HVCcCDeqd +cJjMi7vedHkwb9qrzuPmhEV9x00VNeShObf/dXWlI9ZmaBZdN5SHd8KKloGe +Djgq/r2/l5c8ZDHaTENFj2PCg9rvsz7ywNhu1npnzg6XNRU4nfGXB0lbIbbV +d3Z4ii324OlgedAfs7jvl2SHTbz1VD0i1/p7W9rridphCcvisRM35UHo165t +n3SP4QKfLJvJ2/Jgu8nlVQz/MWyUlPTB9a48xEiatuS02eCg16fqXLLl4Wxv +1CeGjQ3+vJN2x+mxPGyUi7+oF2KNc4nXDx+vk4fXjrt7ie+sMEYRbwcb1vZX +bVRyTrPC3VbeunZN8uB2dF2woJsVXpeyX932rTxs25S0+QKXFfbg4RO06ZSH +p8Gu936wjmDN6YAGyyl5+LCcY47qLPDLZ1ZbTEUUoIRv6j2PwGHsm27ewC2u +AG23rvyeHjiEKbFmhys3KUB9oPyA0rND+LyDsT9NTgHeiC7w1tgcwjtFtCtX +6AqwvEXdT7j4IC7ylNK9z1IAUSEl1dfeZtj+qPiHY6AA/XPK2hL7zLCw4UYn +MV0FqCTunnhKM8Me8vxR54wUgC1z4mpf7wGs2LL4+vBBBWCvHrTsNjiA0xW7 +zThOKMDmSw+rfymZ4v0SH0ZK3RWAcNm+6986U7zK3u5zykMB9qtIxWd17MfW +PU3Xur0VgPa6sjFh3368Kbq093GoAlyIVMjp3W2C40ev2R9NUYCdd/dN6x/d +i8+mH/Z6VqMAVBuflF29RvhYx3zLf3UKcPJeXG3AfSMMXNeY9Q0KIJnAUNoQ +aIR5XDsH371SAPfaRz3mUkb4iqrF/h/vFeDSmXW1rGOGOL/aUklxQgHWu+qc +bVvUx3Ezi1FPphSghjDBfq9FH58m3RjZ/k0BJDxPDXRk6mPNyJ6bhnMKUF2m +KEI10cd1+6z4nVYU4GMk94uMPD186rvyz/18BChRfeXhfVIXH+NdTU/mJ8DI +kqWlgYEuNiW0mnStI8CuQdp3B4Iu1jDzyD8mSAC1g9f6gj/q4MXix8dPiRAg +48skVUJXB4eHqLZfkiXAiVv6qqc278K3BdQfNaoRQKFyv52qFcKSgnyuFA0C +BJ5I/REihfBVwQHSxS0ESK0ufXu4h4XjheJSQZMAT/Lufb1txcJhwpMXK/8j +QM+V5w9OOOzEDmIZVk8MCJCZ4DixPk4bD4oFiAsbEaDTWT/75CFtbC2+v91j +NwG+RJvk6stq40MSf/WV9hKgwFUuyvrRDmwgeUT93gECPB/t8OP4uB0rym7k +S7MmgJWMYsjRHVo4V3aibtmGAKrmGX9beLUwWa4mxMqWAC29Pz7c79TEsvKn +fm6yJ4CfhvKGm76aWJDw6vMVFwKw32e80ivbhmfI54ujvQjwMyfoPb/pVly6 +edbeJ5oAPksJuz/Xq2Of/9gr38YQ4Jfe4v20O+pYbc9GUeplArjHZI/nB6rj +PDf1+o9xBJg9ruPzUE0dp94/Q9ZKJsCWdN9T2plqOIA+N/InjQDn5ktK56mq +eKsWx06zuwT49LO9P+2LCp4xEEnJTyfA419jD1qzVLCrs4be0SwCePds624k +q+AjOV7ZVXkECO027Z1mKmNt8k/Hc0UEOOSWZc402YwXNDifdz0jwHV2ucw+ +sc34qY6ouFoJAdad6u7m7lfEivZbGgfL1uYvk0CqdlfEMhneVJ1qApwpSDXN +SmTiFflfo1yv1uZx4FSL5w86rpaed770mQA2nX/TZ5YoOGWfRfabAQJM7vq0 +8f07CnYLKx8SGCJA8NDkMPd9Ct40FmKdMEKA5K9JW60sKfj0Ex6zlAkCOOoT +ax9WkDHRSJJ1Z44AxQP4ll8cCS8GBQUN/CQAr1H0NskTJNz6qL+UML/Gh23a +DJs+CQeJZmhk/SZAb8nzuzl/ibjjM5ORt0KAo7MKS0peRBzu+5/oUx4iDKmL +l9W4ELBVXprpT14i7K/dm5liSMBqff/itvITociaJySPTsCfoIGvdD0R5mJ+ +bJF4p4A1BfatVgqv1aMyQ2165fF45rHJRmkibPL5py7CKYeN28/X9KgQYStK +C+G6J4UfTE3xa6oRIWLE7XbAaSkswH3o0BX1tXXrnlA7bSncuoM2abyVCP+J +eZZHtUnig1mvRap2EKFGfc8LqX+bsLWfqPMdPSJMLjEFw7wk8PPE4MIlfSJc +jBz5UKsjgeUfjC6ZGxLhpaDyH1dRCTw4UJqwwZgIP4RfrI4Ui2On3dblYfuJ +kN6n/9P3nxj2kM0RcLAiwqXHcU3m2aK4TVPIouYoEUIVKi/EBYlitQP+GTI2 +REiZHl6RPSCK5yJ2a36wJYKE1EOs+08E+//4ZqvvRIR3QxztqbYiOKxOs4h+ +mgiPRoNj36huxEmuzUe+RhDhiJu4h7uoEBbIvRijHkUEDYFjV7K6BHH0CCr3 +i17z61xubXZbEIceK5Zkv0yE8KLbO4TpgtjtUGaXeCIR/oac7vi5SwDrQfBh +fHNN30Tq1mux63BNiFZE+C0iiNb/8W61WIe1K+eevbpNhO91r896ktdhdc0T +YofuEuFU5fK9iUp+LK9k/t41mwi7NE1IGbN8+PcmtQNXHhNhoWtMI8STF3sd +ng7rKiBCvJOb+Bfgxd+v5BbKPiGC7G6nsHsivPiLoJzwvaK1+3XfEt1VyoPb +Ode1VZYRYfHnk4AHXDw4/8fI3tE6Ihzr4VnXUMCFbZquG23vIsLtlKF953Q4 +sKRYrLh/NxFGvhc3jshz4A67sOHiHiLsY5tJjVtmx0ZLrsFb+onQRmBoFRSz +463K2oUqQ0QQ3OzbIaPMjtcn92+iThNBZ8imjslgwy8H2r84fCXCCiNoPJeP +DYcpNT7J/EaE+inmUF3HP7TQ+GgPYWZNL/+mbCmLf2h4MfSczPwav53HFmyd +VlH5MeL4xn9E2HGnixB9fQX5PBB/ZspGAuVFwc462xWkssh/PoGdBCzdr1pu +jBWUnTQnLchFgraXAcXLFcsosaHehI+fBIzPH/tERpeQi6JzyaoICSJjfYWO +7/2DxBfyI6ZpJPibY5yrZ7+ArBRzbfUZJPgYOPt3XGMBpR/L2HGXSQLxGjnf +H5wLSKnp+jczJRK0ntP1o9+bR3qp4Ycr1EmQc1ZQhDr3C3lpH6PG7CTB+M3i +nNwbP1GZx5F/wywS7DlofVXp9E+0mnmoZycmgcLXUK11hj9RzPo9cTO7SODe +tlTwan4OpfdrzVsYksAsuCNB32IOtYZubKSZkcDcIqb9GnMWiRUJ3A07SALd +x7GWetyzyGqcN7D3EAn8w0iFaGgGje5fVYq3IMHcKUeDTTdn0AphOmXemgRa +hhuzDTbMoM31DY4NLqS199M3QRWh7yiaN4DLPoQEMYZZA+sPTKGJY4312aEk +GBWu+rNebgoZlYhcHD9HAvYGoVqvyUnE5/SI/dQFEgSrtqmcuTiJouqGV/2j +SDD5Yn+tTNUEigzZ9ycuiQRbQnZdCsXjaOzDzbL2KyTYbLG9L27jODJQmvAX +TSFBnOih0d8jY4in78JC6jUSFNi6WPXEjKGI7WU/s26RwCMn/FJ1zygK/0n6 +Xp5Dgnpjon9wzBf0xfj0o5VcEjQ3mjiO2X1BepnPT+I8Etw/dzgoffsXxHXA +crohnwSeRd73OSZH0MXHcRNtBST4tA+LeuwbQRdOLA6PlpPgoWXlN2vKMAob +aOna2EqCpa2Vl57xDCJ3eVK2Z9saT8Hiuo3NA8jcxu90SzsJBFr9rJ6FD6DN +ffL8Me/X8gywsjNY/Yw6Oz212XpIoOe2bYPk4iek3Lox7fvIWv2WSvBJ7n4k +Keh8Yu/omj8vzpQTr/oQx96KbfljJPhtqUUcj+tD3a/sW50mSaDNP29mK9mH +whuL/vV/J8EXl4KrtC29qLfqsP2bPyTos3Sf3nyuGzUu31dhLq/59yN7PjPu +RoXaq0uRK2s8XSjWeyTRjSLKcpN1/pFAld2Q9rWgC6k9+91QzkUGu+6MxfDx +ThT14AY9bwMZOLlZQ1ZuH9HWm5++hlPJQM+oSior60DHJtzM+2lkoNmb8R1J +6kAxmos1WxhkmN3robfXrQN97hBJHlYkw+laQQuGXAeKXm+0A9TIEL95dkd2 +5DvUH/w0YlmbDC+kimWkXdsRzxv8w2wnGaqSL5xO1W9H6lItlvksMnzfp3HA +ltyOIovHNx8BMvBHBDyIrmlDat9lO0r0ySBuwSNTUtqKwm2j5L1MyVA+cCIk +oPYtevxILPrVATI43yoS+hv+FvUsZ8wSDpJBpazsNdvut0gltaqh7TAZtmze +kXq+4w3qbp91Uz5KhqbER117pl8jJR3r0gknMoRbEE0pW16hDxR1U9uzZFB9 +UytlJf4SSV4Tvns3mAzj99KNOacakQ3vzLeBEDIIfnC/wF7TiMYmH1+2CyND +9SbZU0snGtHiY6Wm4xFkWF2k6Lytb0ByOxjIMYEM7q6bkh0j65F9Pm9cdiIZ +uvc/qRexq0e5MuN9X5LIwCrQJQto1yO11ZxApxQyLETlkz5/r0M69eRi5xtk +eB2bZ/TjaB1y3qegdCKLDLf8Pi0a69ai/OrVoPvZZDDW3+54gliLfqh+fjWZ +8/950Y1f/3uBAkTSXNzyyKA3rxVy4PkLdLlLOsv9ERkM1r8/6/LfC1R4XELa +o5QMDlUCr2Iiq9EfX0E+7zdk2H26epvs3wrU3PrTofUtGZ7UJCc/rq9AqfTe +GmYrGR4INslWXqpAWj25/oPtZIh22JmNpCuQ704Y39dJBseYT1nvUTma5fB+ +yRgigy0tV8EmrRS9OHqEFD5MBjen3Zxy7qUo8RkOHRghQ+z1xFbDHaVI1VlA +89oYGbi4LyT2dpagU69ycji/kkG9c51Vv0QJmkzoDv+8QIaMqV81yfefobKJ +6sEdi2TIvXY88VbIMxS9K2fn1T9kOL71xVc2s2eI/vPMrz0rZPDeQ1YdWi5C +TubrHcvZKXCrYS50+GARGpJFuikCFLi6OzlfR+wp6rmfxW5MokD2DetErawC +VEft14knU2DlV0rkEccC9DBDLLyDQgHhBjeHRWoBCrsRwXOUTgHb3fFzefmP +ES3GZf1JJQrYJf6pqih/hLxcN4vHa1Jgcaar/d23B8j6i4N5hxYFJFfSOMxK +HiB9u9vXJXZQgOgSGQDnHiBJS0Hpu/9R4PQZm5eOIg9QjeEP+UKgwBnpYdsi +Vj4SoBcxOowpMLjinPbkXh5ayJw+IbGXAg7Rz3mK/PLQgDzlgdU+Cjg+jWsW +N8hDTyWuKo/sp0A6yjmwMnoPWfL4a/w6RAGKwIEn2xXvoZxR7Z0Stmt62qXo +LfU5CGXX7bfypkBFf9SNDM0s5KK6VSXVhwIjHeKFGhuzUGJFjkCn75reQuWn +Al8z0Uj72uMXQIHJkb+7bmRmoui/Jrq7QyigpqW9h1s0E3WY92luj1rzI1iy +5ylbBloe2ivuF02BWIU/nUkD6YhyqvpnUcya/gt3pp5UpyP/ixmFqrEUuETV +L34Sko5kC10U6UkUWJfLvK/39y5y5v8lJ3GLAry71A4+33QHJaQ4rRy8vXY9 +raxY5lMaKlPo6k1Ko4B923nTr5lpaL1mxXXBdAoIDT8oGVRNQ4X2YRu5cyjg +VKpgtWpyGy1VCnD/ekwBK4oj18GMmyjBg/r1XR0F/t7o0vqSeB3pDaV1KTZQ +QG5bW4C47XW0eFCi/mIjBaYXBpYLlK8jux28N7c1r/ESE2Eq9/YaUuOaNLzR +QoHvvFYHawWvoY4bD7Psuilw+Q1nrG9WCooUoCaU91DghU37tU7/FKR9Li1I +pI8C87e2v0vem4KyHOMPNHyiQIv7/jcKv5ORj+rpf/QRCvDVcE67miYj8cYt +R398o4DicfVsOdEr6LXWQwOjHxR4szHk5eTXJBSaT9HImKEAodY9h6cpCY0l +iPMf/EkB5wj1GdXgJFRi9bukZJECpqOXXVWmEpHlTIVIKCcVpOzP5d3IS0C3 +ZHReC0hRYR+f6nBj+WXk9kTglok0FWKbO5+IXbyMtht2uSfKUOH3JQH7tr2X +0Qevk4Ji8lQ49K1WJGLoEhJ6fc1UhkwFLo36zt4Nl1BYwHQnU5kKpvf3M0PP +RSMToZJ77ipUiFCPeam4PxrJZocFPFKlwptDHCWaCtGovE1cWl2DCi8fK6ad +eBGF5mhgs12LClcShCzovFHI8WPKiMEuKpTb5bg65UQgDXfbZ9E6VHDMsCE+ +DYpAbOyKEa911/pniokdNI1AaUo1NBMDKhRV7xNOWAlHnRcnTxzeQwVoLoj+ +ZBmOjDTQjMNhKrw6OV+wm3ARKSWMr4SdoMKfypYUg7EwFCFQ3vvJjQohWquv +qHVh6HPMpTLtk1SYDhDWNrsThpLClX1+eVChqfObVqJFGFoI9J528aFCpMqO +Ublb51CN478ek3NU8E3cwCUbH4Ikh9tLH4RR4fjbX2NfTUKQl23mVb4LVJBn +OffpCYcgipX+gbpwKqy4nw+ISAlG0fsvN2+7RIVTQ8GRillnkZn2plLZq1So +4Ih9INodiB6UTqQEXqPCJRtBn/fpgYhrW4VX53UqPBbkP8LvFohKVW1UEm9S +wWTgYfT7vwFIlpqVw5lOhcXZ404vFQPQ6AbVlKl8Krz7Ofn74A0/FDBqcKbs +BRXsPmRKjdR5o+kIt62rtVRwq2don7rljY7R4n/r1lPhS20a1cDHG+m7fAxp +a1zLY5fx5BDNG4lMOlwae02FwaC4/woTvNDDr2FZYh+p8B+vSCHF8wxSiMt2 +tuqkwvt1LraH9p5BV5SbmeldVHjqcu3KK+YZFOixoXBzLxVOv3azujB6GhnM +pFXpDKzlJWMTIW93Gg3+rPh4epIKywtdTdL1HuhgyufUkikqqJbyEh9FeKCX +WzmsV6ap8K2Ah1xh5IEe+e4ejvq+xoN/+X5oP4WCfnd9v/OTCuMtXEvDX04i +seVfvC1/1/zs9hEtJruj3Ryq2kwRGiz7ug2Gz7qglSeXb7qK0mDxpm9nVp0L +enx8YumeGA3CKWdT5FNckFhtRiVtEw2GV2RuUba7oMFzYiyKLA0UP6adtw13 +RgF//2AFGg3IfMnRS0pOaPMj8/RjdBp4VG0rCud0Qp+ti9juMGhQViO8zq7X +EelVnayV3UyD6vDVWt4YRyR8dkBHWo0GIu0M/XVTDihvsUFfXHut34eSZvMK +e3Q0j5h76D8avLBY/+7BVXskZBnKk7KTBqZvirOMztgjn1KtJhFMA79P3/0s +mPYI/PKNhPVocPxAf1nF7eOo+2fCnvUma356WFtJiXaI94fVAXZ7GjyvaZ5e +2mOD9CKrq4860GAsX/hVk6ANuiBHUipxpAEtMaJIst0are6Z5HF3oUHG+TlT +HXNrtJDnX/XhJA3a1LqvXnM9isbsU+h5/jRIl0sfPZJ9BFGWfqdwBNJAn2uM +MHnqCLJPOsphE0SDG6WnZqa1jqDPNaRPG0No4P21I8CoxRJ9lH1y5eyFtX4C +4106fy1QQ2fLX5M4GjQmnog5fcYccXiou9+Pp8F6/z9HXu8yR8B9tZszkQb7 +H3w+GCNijqq2WBeVXaHB1kVHty3Fh1FR4pQrKZUGDx+dFCP+O4QyjXk/zGfS +4PKH8KSC7IMorBryb5fR4F7x92xL9QOoO2BhZaCcBrPz97v1NhxAalse7idX +0iB0v/p1n2+maPDepvn7z2mgaat153a+KYKk77i0jgZLD6pOszFMEZvj7Y/v +3tIg0Pz0YxMbE2Qpb8YQb6WBp1jFUQWiCSrs5j1r2UaDnvnPZi6j+5DdPm/C +wDsaHEvv9TjiuQ+90DR2/9pJAwF9jV8Po/eic/yLbLxDNJha8C/f026MOusf +HTQepoEuL7cU7ZYxUgl1yI0boUFQwsW2E87G6PNc6x6xsbW6wvt/zNXdCPXn +XCNO00C8+9+Kn8ZutPr4oNLOeRrMX1vkvvrIEIUeKrA4w08HZV+lyKoJPXR8 +wb20bR0drrY9mu+s1Fv7v2VsUhGgQ3ie0NsDCXpoXX9G55QQHXoObvd20tJD +Vx1SDjuK0SFDQtzn+2Vd9NAr8KCFAh3mWrl5+/R1UIKYZlExgQ5y8lsT78jr +IK+SORExEh08uLstS37vQtuX3DvaKXQQCPDuHMjfherPHztgrEgHjsF+SV7x +Xag3UXc/axsdjL+89STMYPRcg63gliYdBlwvm8Y+wCj9Q5XQkhYd9rWPnbns +gpGzpGZriTYd9O+ciEZDCM3eZexTAzpIRV0TN+9jIb4CwT3kPXT43F1wR3fy +P6TV0mXAf5wO8xbrQ20dtyOr0Bbd4/Z0cEr1uzunth0Fq9ZDuQMdQkUebp77 +q4Xqkh5rn3CmQ92o2C+NG1por3mEyit3OqgE1VVkftBEdgMaEjF+dFBK5n4Z +fGwbupDIEB3yp8PHjBwvT/VtKGeXvPCOQDp8kfeUruXahqay+NdNnqWDYLnK +ztCHW5Gv6+Bfo/N0eH2i2ciYbSu6NBs3yhdLh92LxfUXyjTQw8yLw3ZxdFhd +MXm1LkkDtR0MHCiLp4PM4FOusRMaSKzEscc1iQ4/392wS5bVQHeC/mtpvkYH +odvmXSUR6qiIc/JZdAYdthyyyYt3VkP94nrhfKV0YNuV43uqSglJTl123l1G +h40eyXmjF5XQ4er3RpfK6RASkyLcskcJtTo7CApU0aGDz1NirH8zqi29cG1D +LR3KePb6Mrk2o9wjtXkSb+jw95R4MXJmohFl/ssWb+lw/fxzXcOtTETgOHAq +tYUO6w6Nyz3lYKIb+YPq0u10+P6oqfBBOgPFLv+rkPtIh0r781FSQ3R0Jg21 +UAbW5rMjwgV509DjM5EFToN0cG4ETTFDGprSb03KHaLDqScVYyBDQ47fbcwZ +X+iQL5Csc7uBisxxyMDmyTVeFb0jjWSoaOdQ5azGTzogY97TE11kxEPdIbGL +lwEz8XOrQpeIqHUwijuNjwFTfsGn8xyJ6Ortzl+L/AxYrxWTmYSJiCLm875Q +gAGRb49kmC4QkA5nQSJBhAGJqKnZw4WAzg1R1rPJMYBP57LzzgJ5ZJDmvXRU +ngG92vhXyyl5JHSkbrJUgQFudqp800ry6E67bbMniQFhaaoK9Q/lUFXNzYgB +OgMqlbD0m6eyaDFNmK1GgwHKyfQsnS5p9OKI7Q/prQzYw/3SieeONIoSf/zZ +bxsDpAIvbtVzkkYScXueq2xnAGyLHmfOS6FtwZFBd1gMiJU6/Oy8tBTyslr5 +FWLEgIlq5t5LQZvQtMTE5M5jDPgWw/4zM0YMvZ2Prj5vywC9ywHU53Zi6PEH +ZvJLOwZMdvU2M7aLIa8r7jtNHRhQ+nWmd3ZcFC0K/oh3cGXAk+uu1Tv2iCIe +7oUtl7wYUJ9gLCZFEEETI9f42rwZUHPdgp19ZSN6Vaf1SdSXAf/ti2pV696I +YsMCI9P8GeBoP9nilLQRia6sdBcGM6DHt21VnHcjIvzkDO2KZEDSFnYD1dUN +iKMj20w2mgF7hfqKA6s3oJFCffrxmLU8ObM5dc9tQLkeUe1Tlxkg33DGyIRj +A1KeWkdeTWSA2MQWUyUhIaQ9tLGZcosBqzeLbbfsFECH2xREvAoYYOtJH986 +zYf8nv+5WFjIAJ+le87xFXwo9cH7+e9PGMD/p3DI4BIf6o2K6nF/xoAGLZ6x +d4p8yA5+pDuVM0CoeUlr52nete/natUj9Qzw5TjD3rSeB8XeTc243sCA2ej0 +A1WD3OhRnJdoZyMDXpjT87lLuNHMCdpvs2YG1L1kjSYd50a+pPjqvS1r+nQ3 +D4ZWcaGwZJt90MUATcvWJuJ5TpR5XqsmtJsB/X/6jgse5UT1nhvVn/cwgLdg ++yHdbZyIZ2+jmHY/AyzSHVcvT3Ggy1zK/VuGGMDBW9gSZsmBrvmuuNGn13h3 +/MJ9bhc7emhxK1roHwMUx8nLZ6JXWZbKwbyubEyQ4YwOem24yuLitImsZWeC +yb7fQw94V1k2j+XDfbiYYE5vGOGK+csS4s4818vPBNfB/uSZpBXW6ad5frli +TDANL9J/XrnEko2Omf8nzoRcL70Q4sUlVrONm8+RTUxQCnFL/mu8xCLyK3kJ +SDMhIEbXWar/D6vDtuCUlwITnHQdnBs4/7C2CZY4IsW1/S3RgWKuv1nDw9dG +rm9mgouOjmS45m9WfJm//awSE4w6e/KtuX+zxhx22GWrMkHOI3KrfvYCK7Wi +6ui6bUzYlUla7RubZy251Jt1YiYI3NO2cwn9xaquawePw0x4YfQ1M2J2lhVe +yZlTaM6EyuT1j4RaZ1l7nmny/7RgwqOLrm2f8mdZ3Tm33/lbMWFyS+OWvU6z +rNloV/vztkzozPh8zerTDIuyny085QQTXk7wSaQU/WBNGW6Z6HRjQm+84NC0 +zw/WE3DeK3WSCRc3rVyo0fzBQhpvxe54MKGj62RQZ+V3loV4as49byZMnA2c +yHvzjXWpT7WpIoQJxHc9RqLsX1mmH+w3/w1lwitP/rbyV9OsTS1XE3AYE2gH +SytarkyzsquXLRouMGF9mJWDNm2a9TyjaaIligkPC6WqNphNsWZcbNcNJTHh +zbYP0/NVE6zDv+L38eYywXJOXNm6d5RV16qj5nmPCdN7gwoU80dZavcXRLry +mDDG3B7kEDTKEjh2rDv3ARMW72ntEpYdZTU0KTsYPGFCZmTmaZbjF5bGrbcB +EVVrPAiOJpN5R1jpvmFHvz1ngtDfFT7lT8MsIdOt6HANE+4Xr+NPLhpmTXHd +5qTWMSHlrefZM8eHWRke7vENTUxI6OrUs68dYgnrrMvmfM8EaWtG54mkQVao +bHWk+wcm2CdnCg6eHGR9XThz4v1HJhB2OPXkGg2ymh/0qGR1M0G1IMiVzD7I +Oid+v1znMxO0zjXfvzT9mfV9wrDt/CQTrFQqQtR7+1nW9ctPJqeYYMina5d4 +s5/1Oq0g5cBXJvj+/XT17NF+Vq7ZJiviDybErkrT5z73sWyqxr68+LXGA+eJ +AvS1l/X62s0mxgITjmnB6OfCXtb2Myb5ib+Z8Nfv43oOv16WGK3E026JCQvj +2flv2XtZF9jczJqX1/ISa5o409zDmumV26b2lwkRFiezrib0sI4Vv9uUusqE ++PrMek2LHtbbhIilf/+Y8OfqwNZDCj2s/wG+1mmv + "]]}, "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.300000000000014, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{6.3, 8.5}, {0., 0.07216836120711195}}, + 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.992177929245716*^9, 3.992177956626644*^9}}, + CellLabel-> + "Out[144]=",ExpressionUUID->"3cded3ee-c90d-864d-af1a-164f4964e47d"] +}, Open ]] +}, +WindowSize->{1428, 735.75}, +WindowMargins->{{0, Automatic}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>0.9 Inherited, +FrontEndVersion->"14.3 for Microsoft Windows (64-bit) (July 8, 2025)", +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, 73, "Input",ExpressionUUID->"ffae8b70-aa14-974a-9de2-11aa9ba7fa35"], +Cell[1731, 58, 1490, 46, 89, "Output",ExpressionUUID->"4f8c4e31-1677-5b44-8668-f79ef0baff23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3258, 109, 720, 20, 56, "Input",ExpressionUUID->"583e80ed-08b1-3540-acb6-5c5ddc81ef63"], +Cell[3981, 131, 887, 25, 65, "Output",ExpressionUUID->"64936e2b-d144-914f-8438-dae3716d39ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4905, 161, 1465, 41, 51, "Input",ExpressionUUID->"0d592b07-0bde-dd44-8769-c843b2d15343"], +Cell[6373, 204, 2573, 74, 136, "Output",ExpressionUUID->"981953b5-3e6a-fa47-aaa9-66a2655973ac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8983, 283, 1680, 48, 51, "Input",ExpressionUUID->"2ab4cb2f-3eb0-8f4d-b0e5-c0b0154d2f35"], +Cell[10666, 333, 2782, 81, 136, "Output",ExpressionUUID->"782f0643-8b66-ce4d-b90f-e662c5cf0b59"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13485, 419, 1843, 53, 58, "Input",ExpressionUUID->"80075296-619a-5348-a91f-42a62b35265a"], +Cell[15331, 474, 3712, 108, 141, "Output",ExpressionUUID->"3598a914-7b0d-744b-a3cd-10bf6e4ac62d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19080, 587, 2080, 59, 79, "Input",ExpressionUUID->"7e5ea904-38c2-8f45-b173-9fdd0d01cd3b"], +Cell[21163, 648, 4783, 137, 171, "Output",ExpressionUUID->"d86e9608-3bb8-864e-8b70-6ed52f1f722a"] +}, Open ]], +Cell[25961, 788, 148, 2, 25, "Input",ExpressionUUID->"76dcb41c-d560-6240-8a0d-5f5c4dea74f7"], +Cell[CellGroupData[{ +Cell[26134, 794, 348, 5, 25, "Input",ExpressionUUID->"f25944e3-b412-7146-ac6d-f008d8c60ab5"], +Cell[26485, 801, 305, 5, 28, "Output",ExpressionUUID->"79d0537a-a91e-7d45-8108-5985af961c44"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26827, 811, 337, 6, 25, "Input",ExpressionUUID->"24bf6fdb-f0a0-774b-a5d1-1f910c97a298"], +Cell[27167, 819, 153, 2, 28, "Output",ExpressionUUID->"e192c454-3253-c84f-bd5c-7136ed904c78"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27357, 826, 176, 3, 25, "Input",ExpressionUUID->"f86d7ec2-4b9e-cb4f-ac44-ab1d7c6b8c93"], +Cell[27536, 831, 277, 4, 28, "Output",ExpressionUUID->"8b3a3082-da7c-d448-9274-7a89522164b6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27850, 840, 258, 7, 38, "Input",ExpressionUUID->"18b7ff08-61ef-0a43-a3b6-f39456c5d3bf"], +Cell[28111, 849, 447, 10, 28, "Output",ExpressionUUID->"d2919b6f-a964-b04b-9417-d5132049f6d5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28595, 864, 132, 2, 25, "Input",ExpressionUUID->"81606684-c7bc-8847-8110-4e7d8dadb4e3"], +Cell[28730, 868, 277, 4, 28, "Output",ExpressionUUID->"da26c7f5-8458-5d42-9e02-e1182884f575"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29044, 877, 277, 6, 25, "Input",ExpressionUUID->"f761fcb8-28f7-6340-a8c9-04643afe677c"], +Cell[29324, 885, 348, 7, 28, "Output",ExpressionUUID->"969440ac-849b-534f-a88d-f7ecf003459f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29709, 897, 258, 7, 25, "Input",ExpressionUUID->"eb02623b-c429-f44e-955f-4ce148f45177"], +Cell[29970, 906, 396, 9, 28, "Output",ExpressionUUID->"eb7a6f5e-3962-4947-ab38-44a1f86baab9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[30403, 920, 378, 6, 25, "Input",ExpressionUUID->"5a7643d0-24aa-4445-a07d-8c03ae610a22"], +Cell[30784, 928, 155, 2, 28, "Output",ExpressionUUID->"7e292156-80d0-3843-944d-b7792184780b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[30976, 935, 377, 6, 25, "Input",ExpressionUUID->"0d6c01d9-da94-5e40-a1b9-b6cc52ad8d72"], +Cell[31356, 943, 155, 2, 28, "Output",ExpressionUUID->"c98924ce-c08f-f84b-907d-05142b6d158e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[31548, 950, 129, 2, 25, "Input",ExpressionUUID->"bdbca864-d729-6d45-83af-09286972fe2c"], +Cell[31680, 954, 273, 4, 28, "Output",ExpressionUUID->"b5ca60ab-07df-8d45-bf5b-255df7f5d25c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[31990, 963, 129, 2, 25, "Input",ExpressionUUID->"ff4d19af-9e5c-ef4d-abe6-b09a5488a2e8"], +Cell[32122, 967, 272, 4, 28, "Output",ExpressionUUID->"d3a00282-d9f1-d64b-9c8a-37108b20b2fb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[32431, 976, 2016, 51, 109, "Input",ExpressionUUID->"1df47ed4-968d-ab47-9cf0-8687993d44a2"], +Cell[34450, 1029, 19963, 377, 214, "Output",ExpressionUUID->"d2072d0d-27c2-5c4e-823b-93492f869550"] +}, Open ]], +Cell[54428, 1409, 128, 3, 25, "Input",ExpressionUUID->"7b24a916-b850-f042-8ae8-50b3ad5aa448"], +Cell[CellGroupData[{ +Cell[54581, 1416, 2333, 60, 44, "Input",ExpressionUUID->"0fd1647e-55ba-6c45-ad3c-c7cf0756600e"], +Cell[56917, 1478, 6631, 96, 100, "Message",ExpressionUUID->"ca45e8e7-e1a3-d248-b200-5ce47d8cf72f"], +Cell[63551, 1576, 361, 7, 28, "Output",ExpressionUUID->"bc11fbe1-60e1-aa42-add1-6c2a7f9fd172"] +}, Open ]], +Cell[CellGroupData[{ +Cell[63949, 1588, 2232, 58, 44, "Input",ExpressionUUID->"79d865b0-6c37-3243-a4e0-d7506dcfe14a"], +Cell[66184, 1648, 4491, 65, 93, "Message",ExpressionUUID->"371c10ce-45c3-dd44-b97d-a0639c9e2b90"], +Cell[70678, 1715, 316, 6, 28, "Output",ExpressionUUID->"cda8f104-ce02-7b46-96b4-4a51fb2fb500"] +}, Open ]], +Cell[CellGroupData[{ +Cell[71031, 1726, 546, 8, 25, "Input",ExpressionUUID->"b936a356-288b-fa49-9ce3-75db208c644a"], +Cell[71580, 1736, 378, 6, 28, "Output",ExpressionUUID->"0165794f-2386-f148-a7d7-30e9a748c353"] +}, Open ]], +Cell[CellGroupData[{ +Cell[71995, 1747, 456, 7, 25, "Input",ExpressionUUID->"d5b02e93-37c6-e046-a015-cd95d27ec9f3"], +Cell[72454, 1756, 230, 3, 28, "Output",ExpressionUUID->"6ebdd3bc-b14a-6c44-a85f-021a358d64e5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[72721, 1764, 2570, 64, 78, "Input",ExpressionUUID->"7cc2507c-877d-4b47-80a1-806136a93537"], +Cell[75294, 1830, 106448, 2266, 213, "Output",ExpressionUUID->"20124c6c-a3bb-f145-aefd-289c0ebb306c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181779, 4101, 161, 3, 25, "Input",ExpressionUUID->"9998eff2-8c55-9c49-a7ba-40c39d494e08"], +Cell[181943, 4106, 125842, 2596, 214, "Output",ExpressionUUID->"f2c8553a-2489-d344-afa0-7cb8641eb5b4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[307822, 6707, 968, 27, 41, "Input",ExpressionUUID->"c35d5cd1-71e8-0d46-9aff-241fa1902366"], +Cell[308793, 6736, 20215, 379, 213, "Output",ExpressionUUID->"c113d2ef-a3b8-8e44-8968-0928da6090e9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[329045, 7120, 2424, 62, 44, "Input",ExpressionUUID->"96e79a55-1eb8-2a4c-bbe6-5fbb4df97bf2"], +Cell[331472, 7184, 7064, 102, 126, "Message",ExpressionUUID->"6fc5b63a-32f7-c64c-9ef5-db5fe19ad5c4"], +Cell[338539, 7288, 339, 7, 28, "Output",ExpressionUUID->"3bbed4a4-9896-e548-971b-e42c32c6a3e4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[338915, 7300, 385, 7, 25, "Input",ExpressionUUID->"e7f8a0fc-58ca-3c43-8050-1041e5611e26"], +Cell[339303, 7309, 306, 6, 28, "Output",ExpressionUUID->"c59cf26d-5f03-0346-bac6-8025db3262f5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[339646, 7320, 407, 7, 25, "Input",ExpressionUUID->"8a3efd5c-480b-0b42-87de-a0381a89eb4a"], +Cell[340056, 7329, 333, 6, 28, "Output",ExpressionUUID->"21709179-c03f-3747-9035-10b342e00cf8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[340426, 7340, 985, 27, 42, "Input",ExpressionUUID->"a14f3f77-6d27-1048-853d-e35ac0579b5a"], +Cell[341414, 7369, 82218, 1755, 213, "Output",ExpressionUUID->"d2fc483e-eb0e-8343-8b3d-14d02bc983cc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[423669, 9129, 167, 4, 25, "Input",ExpressionUUID->"7f7adb48-d16c-ff46-92de-216bf33e0dd7"], +Cell[423839, 9135, 101625, 2089, 213, "Output",ExpressionUUID->"11955033-73ae-f948-b575-a8c98482b9bf"] +}, Open ]], +Cell[525479, 11227, 242, 5, 25, "Input",ExpressionUUID->"1a4d7ad0-fdd7-c149-91c3-f4bf148c2ba8"], +Cell[CellGroupData[{ +Cell[525746, 11236, 845, 24, 41, "Input",ExpressionUUID->"5f40daf9-1e74-0640-ab31-9384896fd730"], +Cell[526594, 11262, 11410, 236, 206, "Output",ExpressionUUID->"81b23e97-83f3-3c4a-9307-6b5f394668b0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[538041, 11503, 2236, 59, 44, "Input",ExpressionUUID->"90f0001a-9463-4d4f-9baf-b5d8df3a0ca0"], +Cell[540280, 11564, 6509, 94, 119, "Message",ExpressionUUID->"6642c920-3230-6c4a-8e34-c3b63cb9bba3"], +Cell[546792, 11660, 473, 12, 23, "Message",ExpressionUUID->"59e9b974-4e8d-9749-aeec-9262c2731a7f"], +Cell[547268, 11674, 348, 8, 28, "Output",ExpressionUUID->"81c2f112-444c-aa4d-83cb-1ffee680db5d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[547653, 11687, 309, 6, 25, "Input",ExpressionUUID->"dbdfb703-96b0-7646-a6d8-1714cb27d7e0"], +Cell[547965, 11695, 208, 4, 28, "Output",ExpressionUUID->"98d052e9-8e49-cf4f-9b0f-9d5bace20b7c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[548210, 11704, 306, 6, 25, "Input",ExpressionUUID->"b1797ad3-1841-6d4a-802c-01a83775cf12"], +Cell[548519, 11712, 212, 4, 28, "Output",ExpressionUUID->"efff023a-cf2e-7d4d-82c7-60a26d03fb25"] +}, Open ]], +Cell[CellGroupData[{ +Cell[548768, 11721, 2564, 65, 96, "Input",ExpressionUUID->"44ce8c70-9506-d44d-96f8-61e476c7c15f"], +Cell[551335, 11788, 35639, 763, 207, "Output",ExpressionUUID->"02e112c3-1300-6949-b21f-09818b486806"] +}, Open ]], +Cell[CellGroupData[{ +Cell[587011, 12556, 169, 4, 25, "Input",ExpressionUUID->"299aaf37-7ffd-574a-9050-d17f2288bbc9"], +Cell[587183, 12562, 45902, 953, 206, "Output",ExpressionUUID->"1c9ff204-4b4a-5240-aa27-cd8a73d88a0f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[633122, 13520, 924, 26, 41, "Input",ExpressionUUID->"f3943b5b-dc03-1343-88ab-8e6b6abbdcf4"], +Cell[634049, 13548, 10886, 230, 210, "Output",ExpressionUUID->"1bc59528-256a-944e-b9bf-b3449d66d373"] +}, Open ]], +Cell[CellGroupData[{ +Cell[644972, 13783, 2395, 62, 61, "Input",ExpressionUUID->"821ca014-9c3d-214a-9c1a-0b2310271344"], +Cell[647370, 13847, 7652, 111, 126, "Message",ExpressionUUID->"24e74e05-1b54-8243-9778-90cab512ae81"], +Cell[655025, 13960, 348, 8, 28, "Output",ExpressionUUID->"7be73d9c-fd9f-ba47-978b-81882c33696c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[655410, 13973, 310, 6, 25, "Input",ExpressionUUID->"4524f895-5d5e-a74f-a717-0cd15a841249"], +Cell[655723, 13981, 211, 4, 28, "Output",ExpressionUUID->"97ffa157-0fe8-d144-9273-a25f3ec28d04"] +}, Open ]], +Cell[CellGroupData[{ +Cell[655971, 13990, 307, 6, 25, "Input",ExpressionUUID->"17f8190f-852b-fa46-bdc8-1bb243b31de3"], +Cell[656281, 13998, 208, 4, 28, "Output",ExpressionUUID->"d0799b1e-e4a6-1e4d-a1c3-abd1eaac63ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[656526, 14007, 2884, 73, 79, "Input",ExpressionUUID->"86a6c2bf-ff39-cc4d-a1c0-fb8141afbdb9"], +Cell[659413, 14082, 140610, 2981, 210, "Output",ExpressionUUID->"be2d5f60-d499-7d4a-8cd5-74ff5ca1817a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[800060, 17068, 208, 5, 42, "Input",ExpressionUUID->"8a3460c1-aa75-4842-9332-c34c99c08aa4"], +Cell[800271, 17075, 151368, 3165, 231, "Output",ExpressionUUID->"3cded3ee-c90d-864d-af1a-164f4964e47d"] +}, Open ]] +} +] +*) + diff --git a/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/rename.bat b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/rename.bat new file mode 100755 index 0000000..19235ed --- /dev/null +++ b/Pu240_798-811_TitovAA/176-64_h_Pu240_4-5/rename.bat @@ -0,0 +1,47 @@ +@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/Pu240_798-811_TitovAA/коэффициенты_Pu240_2-24.txt b/Pu240_798-811_TitovAA/коэффициенты_Pu240_2-24.txt new file mode 100755 index 0000000..122f797 --- /dev/null +++ b/Pu240_798-811_TitovAA/коэффициенты_Pu240_2-24.txt @@ -0,0 +1,34 @@ +Pu240 +----------------------------- +174-66_2-3 +d = +v1 = 1.7300 +n1 = 0.7600 +vv1 = 2.4000 +nn1 = 1.1050 +v2 = 1.4012 +n2 = 0.5547 +vv2 = 1.1338 +nn2 = 0.8500 +----------------------------- +176-64_4-5 +d = +v1 = 1.2500 +n1 = 0.8500 +vv1 = 2.3000 +nn1 = 1.1000 +v2 = 0.8664 +n2 = 0.5924 +vv2 = 1.8880 +nn2 = 0.6347 +----------------------------- +__ +d = +v1 = +n1 = +vv1 = +nn1 = +v2 = +n2 = +vv2 = +nn2 = diff --git a/Titov.xlsx b/Titov.xlsx new file mode 100755 index 0000000..a826aee Binary files /dev/null and b/Titov.xlsx differ diff --git a/media/fitting_sheet_big b/media/fitting_sheet_big new file mode 100755 index 0000000..35e4806 Binary files /dev/null and b/media/fitting_sheet_big differ diff --git a/media/fitting_sheet_small.pdf b/media/fitting_sheet_small.pdf new file mode 100755 index 0000000..1447487 Binary files /dev/null and b/media/fitting_sheet_small.pdf differ diff --git a/media/графики_фитирования образцы.pdf b/media/графики_фитирования образцы.pdf new file mode 100755 index 0000000..c1696be --- /dev/null +++ b/media/графики_фитирования образцы.pdf @@ -0,0 +1,407 @@ +%PDF-1.4 +% ReportLab Generated PDF document (opensource) +1 0 obj +<< +/F1 2 0 R /F2+0 17 0 R /F3+0 21 0 R +>> +endobj +2 0 obj +<< +/BaseFont /Helvetica /Encoding /WinAnsiEncoding /Name /F1 /Subtype /Type1 /Type /Font +>> +endobj +3 0 obj +<< +/BitsPerComponent 8 /ColorSpace /DeviceRGB /Filter [ /ASCII85Decode /DCTDecode ] /Height 364 /Length 14863 /Subtype /Image + /Type /XObject /Width 616 +>> +stream +s4IA0!"_al8O`[\!WW3$!!*'"s1eUH#Q\`CBEJ5Y!!*Z4!YGJ5gAjS@#R1J<"pG8;#6tPA#RUtS%1EUP$lKZk%hp$&+!)F@*#p(H/ghbc/0c,S-oWS+0JPC@1`n)*4ZG2Z/i,=>s4[N@!=9&=$k!I\%1O.0+WMX\1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1B58m*rl9A"T\W)!10ZOeE%*6F"?A;UOtZ1LbBV#mqFa(`=5<-7:2j.Ps"@2`NfY6UX@47n?3D;cHat='/U/@q9._B4u!oF*)PJGBeCZK7nr5LPUeEP*;,qQC!u,R\HRQV5C/hWN*81['d?O\@K2f_o0O6a2lBFdaQ^rf%8R-g>V&OjQ5OekiqC&o(2MHp@n@XqZ"J6*ru?D!%;)SAnPdkC3+K>G'A1VH@gd&KnbA=M2II[Pa.Q$R$jD;USO``Vl6SpZEppG[^WcW]#)A'`Q#s>ai`&\eCE.%f\,!,AF!'^JXqC&-b!(f-OJ/4#of(R\k,;#b92\C\L]M9GZdit]_!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!%Q;bX*BrN$dof/F:NmbZnc?tQ`*Y-HM!c/&Wg5qe-dcpDEt5;'-6(X0,//4fDp+^t"HC;%irc-"eik1-b2V8b[9ZP9aN895bb\_QN\I,t36MuS:,Je.O5$PARc6`]OHPk8%XRLL#@uoo>fj6Xpm0SZ+@5Ff=MTqQT%]"=Iclt5T%TFe'bX=,ggU*.&)T^_MTb7!fAD!!fADN!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#8!l\#o1a!7Nn=Fb<"a.5lLeZ^e/_gKYra:-'!O5T:D770"(>hqm2aF5dA9QPWRaPH'Zp/pjisc9=K>Y/6WX%5lH&suZ>]fo?IPc?k3(_SY<3#jL8*,37/^=4S;-`:9FjmMgFt"acm;RO:iD0S;pHMsnFEADOUFJ,A3UVKV.%nX0U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5ArQW*4Va::R\&?8";GDbd&b_eBd/T0q"B/n7?"o]N]C`'a"5V*Voca5T:JkZ*]&>F7$j0;eOY7k^3E'Q:7/D.&9e39Wl/<+Tpsacp[!7e'6AX^X8d0jOI)?5rD,r$uZhore^:]#c_5(bWCVio.64lhp&[C-Ed0R1$!fe?mSA/ed]Hp\t6ZrcNUNQbiD0biA46]cF,=S#Y.Vp;2/*ej]Q\3iV`r[9]lfCIW!.cT[OV&GV-gIEaQPiOok4rZqLDj2]T]"EH;'rrA"b+g:ZaHXn5_1&gn&]8%CepZ_J%Hkiga!,m+.)5TR^E;o.]:BWZM*rUR,Su88dp\9!a>K>Qdrn@A=5"On9U5ETT'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%Cr"TU+h^ffula7aD9id#Z9HTajh30'M;N(4jCalUNBK(%POKU-'W=C?-.Y8HPK3c2eG73gB.>V+cWd95Z?0kW!_:"3&LX8$L1YN3Y%Qn"mr\+&_TUe,aDNa$D?G^Ob:UQDUL:p;QKm%@"[=%M?)_F56mRY%\_kWc&LZEb>X5SgE"%q[7R0=\37n+G./"7Dq>*Si?UVDT?H*&Ra'D?3ur4k_flYC#K\IbaF0-AX]3fWTAF2>f!.'CMY#F!!/a/'+E+fel[0dBR"'rWq"M1!LJcSa)`l\fJaYFiE>?o\R)bp#!"[9$[/9IeEM`4MW]@'Y5\K?G^:7(5O!0:lJYMA3;3+4pt%r4B3LOue9'lb$7MX$+JO`A!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2/m2U4>4m:CCq-_-s'3ej%f1(Me")b9Inc7"+Sp@k4s1[bS)sOM(jCe(-A#;!Vc`p5\Us"]qIbpIEqsm`7f+/`f*JocNeD^T#/q9R5Qqj!5S;?-NTZK3&r#l-PhfkEkG%]r$qPAA#74)G[_[l?Ml;#@]c*T>u/`HA>@(ET<)^1tK!?B^q2AlQ4kF8+A#*q"NdZ*s;:t4@>c0dPs1i%kcg:?,OG;fCSX2,a7tG4W:fJ@H1SZ8)9O2gA^J'7nlDd<1EtX'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng5SfIb1O^CZZ!3[f#oDr--(L8BM%2*&):;-$*h2[5JlHSrguPEG1>ioer;_\ZhS+,oR20mP'DJp(>AGJR31kb'8`D1PX"-q>4pu\3P<)Tf3HdFRam<5Dsd)o[#V8KjFPD?F50iiBKG7h]r-dEIT[JD@OICYnFST6U718*a$"0XTiP-*])59+.&+$j.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.l5)8ngirHp#Q_`J1FC"r$uglc\;#;,&$*/m:)(K3,Pf1Ei0o`oUlYN.&)5!.&)5!.&)5!.&)5SpK%U9r]>a6?^FL;8;?HX,jaF?rq`\Lk*:"^?_7nnMoT&&@F<];a7K6-COa9K/6`%.F/R34jtFg.qlDd_o;l:!lS@A^123*9rr?`sc=!2MW<;R\aCF_>K\RZKhc_NFKiL=d1k(u;bAXoSFH'JY=jtgeeZuTk[-uRJ@W-ri'*q4IU29G[(;"cdQN/4SST(S=5WKZD:^6;$;*Y:!;*Y:!;*Y:!;*Y;1rr@pdIg^M$e&=61I`XScpZeNYkhkRMHInfi4]bC2;sq0'#5-H6M&_CegJTcTF!Ysf@'!C[]!!C[]!!C[]!!C[]!#7KRm$1uuQ:DRZdrfLZ0E23D97!e%\T@Z6,Yg]f6eF`MhD4c23+E]lfVOA@i+F%Hon[aus,D$ADIMJ:K/`LQL$=,C`/>UUi],hNV6/BZ```uDe6rrB6.*HGI9dOm->'>uq..sl3YWk\,P#@*;eI\06d%7tS)Ol]/;o-:B3Zh/*<%;S[uo%`.^%Yq&CE,.eHBr>QHG?7(!'N,cF72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`&B88_4=40>!argQ^e/_gKYra:-'!O5T:D770"$!70"$!70"$!70"$!70"(Fpu=W+=45Oba"+.A\".@$pPBlTr,MO`>u_,l6*2'RUJY!Fkeutf^DD^53,]T@0_m)Wqi3^ulh!'D??^ag"*i@7QfZW&B%o,CZT_rWd>"m3n]d`6]p,M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#.__k6KMko]T[&,q)0:9j^IEs9mDoZn^pjmqeJNV5>KXq>]P*=2;1%>lR.J-m^!J-m^!J-m^!J-m^!J-m^!J2=UX*oC8O/i;<][)Bls/6TAS#_Wsclb#hJY7`ItpWkCQCcKB]"XkDHgECDPXlP6LocAiWpUF-k"E7CcEga9Eu#DI<\XB;hg,A$hYffC/\,E:@U!'Jj2EP)/)uZ6c7eOieJ(k`Q5!1b!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:$:'PA4BWj>"\[tQD7Ib/.2pHQF?G\%?XrX/i:FM/k+t$je%&>QXZFlBbT$(KkV:2Q?K$H6C;S848[#"A1N0eJV'P3?S"-P(sE9h"?ZTL8J!$].>rr?A%rrD6aZTJ=Ih#7knC[8NKmR5Y4o?)MpgG?!\\/dYQX$.Yq'B>a%TN-Hg`#=&'s-3F>YX1*@$.BjE>,hZ[YqC3\0%Wqdb+2lJ$m\tX5f8[k.44IZhZDbFBK3fu"o'NC;2;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1J*G.nKtJm2GLeQ)674-Of*AhCI4)f]FiQ[TeeN^*p^$^,IMYBQXRqS['Ym[pBAD%jI9c"=$h8`0U1\\J3-N00V?Q)d=o/0/V;G[&'DIML9@T4j;ddn)(&:^FNG@R`WT">A.md]@\7r^D5[rk+s)!71m`ej"k+@(Gd@RH.'^^0Rg;^;g\j_CegJTcTF!Ysf@'!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!F27VHoWgWD\f=L'-=>dI)m1M/dE[5q>P!;as_S)d&ec4'hE5$0+)ra0+mFVE#6[-N;7Z/SuC\QiEN_QhB^S!CqU^9^-2JrrI)q6g2<[&X(h([g.3K@=/57Xn9n764/3>*\g4a^a/\C]-DP5FWEua&S9t89qT!p1nG]m,];;@P@:^N3Z%Mcir&lQ2\:%iC?O:M#>I$repFHsF(&ehmO6/V#mor<>>d&UKjE]2J?SX^#.Q`!5Y-$`U#7hN+)-Cu'eK8O,?R_PlLMf`(qYJ$!o0Q`oVWCV"$0bCu%*d7KD/hS2iib4):94H1\EWVi3EVotAjlP+R;5Kn1PbMQRJI_Y#b06Qj!Ni%[^XGm:=.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gXJ4?!+&M%!9aKklQ=!Q#sX.9c&3_8m:&Gs2GB3jdr60Giun3F#/q9R5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5T-$aLM>`W/mB:%b.,TulAaJP]lIF#f<9Q`WMbJu7eo1uY>HNJVFrEb0R"_;k9_q&-=diQg%3U7Z;mmc0.P?j4(/g:WTKl;P@l1\Pbl>)$7>gJ;7)/iP=:JJuHG/#dIi5c.AYG^L=Z1JP=hWPl8G]1OFM)ngHT=ZlP"T&,uPOI@\O];^t];$?H(0"kg/Q:?pCUu7u3NklSl2G9W]9p<8ipNr7oJNs[B8CZaSJ+m#!/-D)>iYfIi#NhbTCMjXCT#VR4)J>#Nq1`+N]A-0pBTQXEE;4^a"1fq?KKOf(dDjc?(@@NFl:/5hGpf@A3oGojG'')/u;.RAILkc>4L1L^A!cuqD)miI2!t$HNJ-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J24P4!"[`WMbSO[f^]P$j6n4=K3Y"3Y?uNDq(t;L3I=]DVP8P*%n8^Co)3@NC6kos=mIsY=l2QO_W-`(KB`tW9#kfk'Vca[=^DX-?>KDD/V9/+ObQ=I:do?tf(8YeNMS[H(;iA:pdU1Rd\gFhrK(dbWRqWX/A/SEH_5XJgrr>[\-DUK[kZ8;f0X:WX5EFC-GUJC2"I]Qu,&t.r:-fTW%UE,U,\;BFjHNM16"*1r:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:^8@`i;8lf[Bt?^?UV622cfW]gMDGM(0,'miK77'!2/hl-O2GPO2JQ3^M@\'rMsKL&^Jg#"L]s/="0c(*CQnu*"k&^+CkM<4Z*pqY][KL9SZJsfVYKfBlPP>Q*"n,"Ufm4[A87to:NmnnE9_,qFCL06iR.Z$Ic)+$I4k1?VK+X%kcEY46'kn#e`.tOmXt8XT30772,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,bBd)Bu475Sd*DD95N+HLMI%I]'p?O,E/WVBhBp25(MVQn4_WdF`[?Bs_R:it[d;knKJ?KphV!3Z3hmZ$3h+3!pdgPg&$[X1T#*IeUb.iL@Zn0Rgq0)LV8BDGo6KV.l2rGu.+,4J=(XZ4f]ASV`T%ck0UNQ;!khtbhc4tF1m:\HH$m"2['NW$;^BU;b_XH>_64*r&:`#R)5%^4)G9[UV8cJeVI8+dKIO$s$VXdp0-Cm&EdPT.KKl;'CfA"';7=-=mCE=SH2=#`>:p`eZqlS84kXQhs&olZDa)f2I`+b*ght&LZkL'9X@l-smf^%,cm@P#irT#R)Qi'@eCKHd9*tNLb%cC[gEr"i'Ej3X>?%%?I5H!OFg,Hs+j-XQ[-+9"4]O!_@64poWVq7aXjkU7$.Q,I>o<0bFCNI7bUOqJEQr[<88L&5?A7.\E`h]Rn6Ad1a!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!jb!Lrr=7WOoGDf;#^OZ!jq88_RBh9L%NWJ+S+o/6bYHPOGhS,)'7f\qToGc'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!:t9Yn4'K$MqLu"l-Z-bd5+qQ`IYnJkjTj$HApItf!.hQ8%EeEo(t^\3A>B?[D_P,MFQL3j[E8CMt;_**R6lDS9B-:p9YS1%`FhO5a`Q]86->-W&9!Te]#.rd5CTrr?A%rrD6aO6u6tq;\FR!8tPMl0fg?NY6h+lbTNC4GX:5Pa?;!.rsdrZ[EjlTb4*W;ckU[c@AfLnG2<.i-UP..FLQ[D,9qf`2DX>[q/^&H0Mg?)R5[d\m*$Zi:#s3fj7JDEmoR!7R[K5I[`o!9]B;rr@Z*O8^>r\+'e^f0Xggoo3Ma!]95%Z>MKF82AZL4ntQElB*3+%5,Z)!rnb!]!1l64rX3U.pkf(#U9d(nXT&:`NhcUSK%l@c,+q^CTtd!6f)/^-ON.;#g".)o9C<&GkQ"B6cX+C+<*!Z*oq20Pe:6slEW6$W;>n1@rr>0(+8co0J+43RVaY'mLf!!QNGEtp6qCg;m-BUs-2.N4F9!\+kHAV"!4T'0!9]B;rr@Z*O8^>R2!D$emH["4j/DtXi3q\G!/RQq`$d:t7CBlgVC+,`p3"ABJt#%$3Y5Z-@FM^jeJ4MN]k@?F4EVbD(>OE0'Rt%(rrC@c8,iPm[ibN:!,9h_YMp64n=nXoRo9ug+8\+Z+i-mGI%:NrgT]r!J*lPdq;\FR!8t$Mi8()HsentZ@4B-VCk5)6NGDp_^[gX^lGa&2j:_/76m!"h`poq20Pe:6slEW6$W:^3IXF(oK:&W5]Vk)BBQ7Cg`"HXtd/j%Y!?s0&u_Nku7T^Dd!)?cQ,OU!!ThRr'^qH?nsA4"f=j=SRX5E1CfBXOpBojr.qA6V"hPt"@7NUWPa[?G6=0-kPkO>Y)E1'ci/1S5PQh?rrD%.$bm7I6Di>brT*Q["?)fjNJ5/hpBMjc+2biceQ%rA85Qb"d,H^OZn-^8r",p$^GVr=rrA_l!:a']*J];l(U2H_I3&7g0cBmEIp2L5mH["4j/DtXi3q\G!/RYa2ju>]r-[b<;h*Cn-?fB.d_.$@D4JO8Th)lUNNbr[*MIq))oOUAe3kXBGQ'K\p+Dir9"ppS/a4#4k'@rj8`r7nSa"p;^%:5P3M:5Fkb7A^j!DS&@AQO7'`OFFU4\W90Gbf$HFce?5q]Tdl4>;ru:a+#HB,mV#Ss8IaZuZJLLGP5bMDS'ZORn?i*&94@I;SUXNl=qLJD_pa\lenhX=)3c5mf*cQ/go>hNVa5Q!r]M;ir8JG\CFb2!r##V6a/;\)b7o:PG@,STi#:(8I$=R1,M$;Qlu"Q=h8(Ff]-&tDHN*tiIWaX%Tdu.N)0Dc>@ufW"1284"5B.Yk#)BBN-IK?>js\M8j3'UM3cjlh`i7mm[8stNr_9!I\9a#f4[jUWe$Z^c!7XHsW;ckbUn?$<48p`)61V1doHU#lhFIQSN_+El^W\mD61%i?2)"N5[S^?^R]h_1!/p5=:-(;*S:4q=4A4_5^s1-ArrBg3j7t9&/@uV#;/8eNqqq2jbscm0nXkffS?-Xh\[6kUVuHb6IH)Uuro[5#PG&4ia7ODmq@h*TQ*DOAbDY?5PPqBbk7tdb#dSO\j$+FNUEmcnE=THih!54piAYkO8f1n84tV;e^_G(./s:8l?$*oO,CN!qq`6$rr?sBrr@kQ-cKlZ=NTOQ.Sn2&@Q'/T&'N)?H/khDZ9^SVA\GkJ./s:8l-re'O,C:a37]@:r,iC@/8\uprG6+?07"_lP2JK0dHF%_BiA7k*HK=p\a]$hBlSA,!MC>,!MC>,!MC>,!MC>,+h.KoD7(%nT@[_RTQ!f4#"U7PoDMktI%KRiq6+Ct9&5o-#&I4`[/DeFD:Z!I]hOk[.`DO!d8]#,7l#f(9;@j77k^=.G2CYH^nn_`)+Qm%4H#e[ZY0ro1H%F+HTZ(9.*%F-X-[CA$"U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!XNc*!dsO$L8Z:p@.g-0oceaeh_PmG\3&guHlOUt]6RRSq8S!];Ot/!*DTW8P@pj8&A8t4:afnE8D`gYrX;Z.IB6SWBW%Rso95pJ4-rA.+].0`ZN0;)A!6HFfB_o-N[AP>4ZH.Q^7uC=#nN)i7N&r^9K@FnW,F[[3lJG+^Hn28_1WO@1Iq;8df/#*_ifSmH]9r)u&[2DuSiVrCa+CWTL7tOuo5/u,28uh/NR8@?YkDqGLSu?G25r%gNgbhRUejoW'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ES6e~>endstream +endobj +4 0 obj +<< +/BitsPerComponent 8 /ColorSpace /DeviceRGB /Filter [ /ASCII85Decode /DCTDecode ] /Height 420 /Length 20006 /Subtype /Image + /Type /XObject /Width 644 +>> +stream +s4IA0!"_al8O`[\!WW3$!!*'"s1eUH#Q^_&KED2u!!*Z4!YGJ5gAjS@#R1J<"pG8;#6tPA#RUtS%1EUP$lKZk%hp$&+!)F@*#p(H/ghbc/0c,S-oWS+0JPC@1`n)*4ZG2Z/i,=>s4[N@!=9&=$k!I\%1O.0+WMX\1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1B58m*rl9A"T\W)!10ZOeE%*6F"?A;UOtZ1LbBV#mqFa(`=5<-7:2j.Ps"@2`NfY6UX@47n?3D;cHat='/U/@q9._B4u!oF*)PJGBeCZK7nr5LPUeEP*;,qQC!u,R\HRQV5C/hWN*81['d?O\@K2f_o0O6a2lBFdaQ^rf%8R-g>V&OjQ5OekiqC&o(2MHp@n@XqZ"J6*ru?D!%;)SAnPdkC3+K>G'A1VH@gd&KnbA=M2II[Pa.Q$R$jD;USO``Vl6SpZEppG[^WcW]#)A'`Q#s>ai`&\eCE.%f\,!,AF!'^JXqC&(g$7MX!$7MX!12iq%*qg6egLl@>3_-[i\c-_`I5ro-%jV"D6UJtVTs;mm$G/_gM6!&lBsNN'(DgCoG3:TYO(fsY"cdlDoE(d^'Ls&iS<&fmP_K#"`11u.N:j;V.(]sgAIU-JT$5<&V/8cUW=I^BA"HI\k7o/hAt!DelKCjFX+f:L`]Jo83QFo\.n5CK_j))a8@U0_)r@QSe^]d_*,`e:oBGLs\<_J!)/fArq2q[oa%U-9r\\GJ0#9so;!Bb]G0n?ONslYHMA@D;:H6JOI=3VHMC>t\@%rN-$n.j-!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%>!s;iYX1In+Un\FQJeU[eKjNDr=/(]\31&'^VSN)_HUFrIdB>[1U:8S0$sCo))JrbSool-XHWjQl87b"IlK;-]s`hqYAik!OQ=Y6-r6p3cjAB%ja@_^NMr,Nei&JZ9sYp6PPB:%k'iaUksoGD?#2jI;('e.G+>r6f*"@J>gGLZMfHRYB0pR$U@WF:F9k?6,hfo,p$j1II.TVfP1^.&eaGU5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5ArEH)I.t]ftMu@lBLW]*d_E;3r0H++$0I;aQ^aJ`>%aZ@iT12g-K9kR=Y*WKeKKjJZYcL,stP0h&R+FMtMG)p:m$fi5:7e%i%X1DXFT3#O*$fV4CPZ8FKoVj]LdZ[V9D++ZkZkKF(7Pg3qaP_^"]fJfs'3VcM!IVFpk*:cCjVfg-mIQsuJ1a\f'ED!!'ED!!'ED!8B"tJ5?6&K@PkS5uoIJ8CZBS0.PHiChNr5MVC@$Mm"Air5KW2gEHV8;-HAb3+:gt,970"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70$kCP=^C0dH.dIP'+7MBd8@!Jml%aN(5sTaT.:[#E4::^jkoNHoq?.@,$20(:Cn$/"C*Wk1N6IW:CmSoB"+BO-+ji;+LE![.8`UL#E'gWm,>V>gORc[3@2F6Z+RT59DO[2J&7nK+:l>"s+Ydc>4tTHJ0.T:M3VnaB56_O<;b\+Z7o\@D-6E2Imh9.LDg"@]a(+IoZ@np0u4X/cQ=C3>ZLOsG41ULm=p2DV2Wi/sY*2!X,6mi:&([^!Ica<2Se["#quXBKVBG])RCe`%j8j@AN>HRX'dT4kg,N>9UjHpQ.,+A?FV5P3AdO8O2Z\S80[QhV?*f(-*F&E@uretKrXh$lq=R5#)oT=T'a""ugIlbI9#-g&:SM$&'A84/8Gqt+:ZAo[5qI;_Bmp1Wd*\W7D%=!cV`KmNOP!g,M^VknXhokRo:V#[shmS3BZKnTA`W#oAC$T9DU8*WTl^5G'$`29DhECnlt'b*gu$D)cX\nF"![Hl(?H8e_O;hG`0Kgg5VE/'ss9Q`h*&TJ\"JrEM%,n5,YN/VOr8@V5M.VD#9oo"0(uORu;p*4Y0qlBZChu[D.rlrr@NJ!-r16.&:ec'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!A)>/ppnLO9E?mUtDA_^IGC]11Vf4a?C`dY$'q%;aN>_-S@sd%K3=C71M-+8FkYP.lTjS9bj+p$1RbJ#(CBKGr^>`hB7oS:hEcT>WnkIm7+af(1u-1Q-:kc.XuO+%Q0R1N,\O-D.G0rf8DJ_"lo;)1TSOMV#!^Bf7"bd]Kq%/cN_:lb#k.a3H`#a)H&S3Vq7:=,LXt\f+A#U\d4$i@YWI-_Vocj4!6r3%6AqmPlPi8o>@YRaCBaTH&oNPZC-Y.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!/"#iG8UKG+(IS'oc+UO3T&S_2VJ'L_Lb96"ONIqj-Nk*l)8RH1_H.Cfeb%Ot-Fat2o34X7lrl`11m(-[jbOOdalMAm-ROPG4V!X[mpJ`b;5S8G#FB4Fj(++:+lM[nN/qJ1I4L&[eF#f2%,]bWJ^kiGOpP:SJ*cmQp-eORm[r[hHIl`.kn[IQTsq[mHM(;Y1*9>.(WT\fR`:3Ig14q6:$:7dp"VRCqW%/KYBWuPO2O'_^$=NKNKYLa(EH$=q@Q,"MpV)N9C!9m,HfJfkl,Af9Yn*c0>&0IRWb^U5*Y4A>lgLfa8A.Om@on,U01rJGhck5:-fU8jd!OXX4poJZGPW*>.Cr&n%bBBMGkh@LHBmeeA>#Wr-J%&"gJbm^mFk+Pfp?!.7Y+H1DM5lgcrdPP1!.L^a:3USLP>2oBkJ<)[o`Xi@M!5\c-h^[ZLF'CIt%o\UO_3[du^6\W&B0s&;>DTD8Xsa$PbZ&;#i2CIA!+GpI\s'Tfr/DI6p#U8p!2754FcUlgOEdNohQe4Yf&6hSg$hYNf4[,bk5]hUd_KZr72,`!72,`!72,`!72,`!72,_6O^<@%n7Rg)IEa-C3?R(;Dsc;Bu$9hGm"'HFiR;Ir+S!2@-^:Pga[[adJj3=am*c(77295"nes_f.j@ga=tb`f0/&?IJ(8b-.Z,rdCbC%4a.Alq#:=Vf2#+)W5?4c;5ia*FE!Pp>^.>j>:ZUcFBb%p<2Z?:qu6Y'cdo_)AT\EW16IYaa*>&b"lLNOi$6VMDOPP=,:'E!X7*jiMMN;in3E9_pf)F$4RIk@;6m;"@^d3.%_a0h6A+Shaq*2A"=X_L^4Rni2=>.V%#D[Pf/]?-d^T-g=Inq+p\@ZLHNq2Tl=WNKmQH5*iNa/S=V9hs=&6G6V6hd91&]jL9s\K8AZXhXsL?^>C*!4q(GHWH>&9:^IOMeVag?A^/4N<4tcTE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE;GIrrA1U_u@FJlE7#MH,n$#X(U'Y&n*Q\ePqR>uu1!&QiAUW7XC]CuO?@"06beZX/.?8`]BMM(X0)G3%CK9\OlRd&H*0f<=0EXa1-WgoOcb7\ujJ(TMo4rjD>)i\d)Ln>`$,:fF]MCJr?.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5G[I$lg$iN"VdZ(P>?Sm]f\W*DF.,t<6'NS,P,ub>kmq4aj^VdXjcD,<'%JmrNee]oTE+$aW+9kkC8K\aZ3$dN0AE,#OLb/!n=OM>m$R`W70/b7rUNB"NjU76JaBXHg3$`L8F2;dMD""Hko'Z(c8FA?Nk.$QgOW3Z1jf0s)]*.M\F0g)7gggiA>s\*<1p7eSlM?d@gK`sG%Fj8fPU-D(/boHg`_7G)p&t8jL*Uii:]CD>7>Lhe>lOffE*!n^L:%k?I3ZVuke:#"Fo52odp$G?8WT`=@!8;-L1\d9@rE%'T0_k16=d>"B*]2isWh0(\ZFJqk'2J"25!F###*%gP;.p\oH?lJd1Y"MPi,@dt2%PA_sf]T%:$^Z57-orVZk/k>IgQb*!TgJLi&cP>!CF2HnqO[CW/KGp#Z1^YY*J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-sMmr^MeVqXV2s!79Z+3leqBK'1)kB:fTQq0'4[-M.bT_nh'FkXV`TCf*V8!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!*'J@8[d4BX,@@^b]9jBh+qKC_<.rK5uEi(;N%kO&`A(@k14=/$gPrbh-n5sht#>N`-hhS%"$TE>\B)(>Cs)(LIrM.4ZMp+7SL)]?[i"TYH;a6]4kIpsPmu9F=14:H:4_Di9!CL6VP9LAS6q"gVU5!]]JY)tW$UgVA+u5ZO2nHU2;2+lip@KR.gu2@et^hRM!d_8bOS?!h-p6m>1S/nk?g#)qlc9RoMJ%fBG=<4!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#:QAE0,=>9]!&s1=kCgaP$&U_:N?[*p3NLf#;5srr=94L])L'rrD8%:^3I);*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y."(cCJ8.c(0qBA1]ET^$HPLM/",p)haIK"W)$lM=Mh[AD2XG+54kE.(%=8%:\0B^3HD'e)"'@4`Ds\ujA&)-m=n"\?]YQFK]plIS'sr14PP,l[j:[i)Q;oU7DbpB1?`?/7@*:+$P8<9/A-e*ae$Xrd?[#^E1g"9`FbK5I/L7"8S0q:BUc[9Y[2?VR!3EUq2`2E=^gO/6,BEkQWVAK.a1/h7-&b!?/@&`/ha0*gc@7+6C1:cQ+n3'pEu:>#D_p^peK.E@_+,:fgK'N%b);+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;-B@-[hb&WPO,apQWI(1G4rA\9TfrBEOh?"!"qjGIO#!n+'4(uZ8W?8/523`;aE0i,Vggd.f`,]p*:28"G.'_BN@:_Y8<'Qc'Iop]%5h8_P:Kl#L%B(_"PnDVd=V+:U0EoSYA[#f@T!81dR5'W`ZTR"+gcWqA_\Kq&1eKlcSDj!(2?g2!CZk!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!9QCTiO@D)A%Aj_-WRK:A[J4bOj;C'%8#LX!"u2cFMm7%0)jZ%G>OERX?5Ihj8"_cdFSQ]]diV?eVB&><6HE'osj6;IG=$OVL';\VPg2DP]7E:X#I68I@kFJpbTUXW9G5.Y-k.EI:j[IV&B"4\3AoU;`H'>(?6]QN_@A1Csb('+Oe=`/<3s9pX?j*SGiZC6`"NolIp&5YTK#sa^"D7\3EToar*gU"\?H7]l=g!]H-!TZ&k*EC(7`i4X5GPj?AqgWqYPseJQ&E=6RrhMC>Qc!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!%TCra3t-664ZT[RMACa84M0r$,LcR!T[0Q=l#L(cl8-U8`-R)q=aZP:6C:6m7-HCH6-]iO?,!&"DrNoB=j7@1I?NbF1aYIWpisSckGL>BWm%+77Z.fRo""c#d,:[qK<B(#bA-ebIH[4$!"0:/iV:uuY[n6@+SQSX8[RoH/Z\*\CVh"6\$hH6f@aFraR#$nX!lmJk^WI%daoN!]*\,Qpq07t0CN>b\Vu$]7-Tp1E.7uD\pZX=%8ObZb@]QMMim98E.,]>;((h7R4rgY=_`gBXG[E6U48"]"V^#t%@3;bk@aBm-:/2*Kd*Ke$"VpcCE!.lsV2dF_rr'@2O@s]9XDH2HkDT!W#jE*P.qnfq%G^IAh9I0#3^HZkmZE`bGcb1ok8l/XB\rcn8h08HsIFl^ao:j8dZu@J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-s?1[Y!\])J>ZNEqsmf&gm5[[DTh8)"(I-9TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE;ImSJKCSe)[gKLcfP$pJ]^sf[b`j'cG.,;N%kOSa"kYpOY'YdC_ai9r9r*BrDX<8,$Bgnau)08Ku<7keWO=5mJNiXf6$#R^J*?GH`XFa=pW/R.N8P$+3Qa2bOk)>ON$5@:[AagHCV,q;CaCa.hT6EkF60eT@.Hm/*s!3unQa1eFSWCDq-5W7h*dDcmctpHQud>(.REi7E(h\W7+Hq.5UOEPKE>Y$#,cl;j&'>"k,I+Nh88K3X_O@m>]j@H%_O12U:Unce91hu*+2>1tX#EkV;j9]G!-=eQ1Be#e#-1)K,%',C`;`PjgC1R>EnhaHuf9O\]LBV`4g0.kKH@L^W)dp+C:%I,s?0&=.kfTXT1I;0.fRbWU%"qu6XGP/d'"#%+L/b`+fCEd(aC%Xbq\rrDB_a)P>>HdIoZU.C$sW`j/(VkeemmEX8RD,R"lZ5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5SQ(]*lhE83,bO7&\*u_MH>[+fRFOF&B\r_i/S*a%4.U&@Ahi6>?XNB0\a.#G*#s5>L8'otW[kX$JjL:aGO$Z:*_&b&Rch:Cqb48F[U1mL>K_@;[:b>^ej8L:G41nNXq#BjiAhd;tXL6Ql'BDlCbMX-C0&H^_#n$JOJ#b5VI-?_cQ[*XFU0:^=kq0U@8(+YEB&9`g.!-Iouh*.+Lko/02FDI(O(!*s@S/XQ][Jl'H^Tg!gCY5[@=Rc<^Y!]M_+5R$OPrNp_+6[IgMpbsXeI6S6a-'JfHV7_XWqdY5LW"U$VY`!PDa'A.3i0\6^Op$o\H9A.Hb4X7l]1Mj`(0)WXt)T-b:g#`i47HalhP;0B^Fr_[X*q!Tb*OaORV-;,"M5IXg72/Q@U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!XNCJBjCkdt!3[oFr=01`XF&]DT>_^\p5jQC[gk;eac[\T]1C$:3=!u_2CP;W!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%SR]n=GoHDL#X\Va'b+09rm4f`!b=76&E.h$KnO32'jAcOYt;ga9(8]crg3Jb\j4'D//o'^2!Iq]CVNZY_,KV8PIFI[M:CG4f20`mXi>0(.FBPL;i('rO0*nLqCLkGI]C<]IGD0+;T3DKK[)/S,pjZFJ19mERb>;>l(+D(#UH/\L6t`UNPKH25KiF-b-FNZ&-R)oB5eHk=tK4Qq,ge3,de`i0[rBl_"/+Qa;>>?g)[7dh/=SPh2@"n_`jdT+uU_9,Q2A/CUQ`/Y&tcoYYi/+f(BtJSiiL$W;O4)C)UkWMH$g$^F_pg=6cFAGIaHX:\[DlARk`?*^2+g.-S,o"8S.E8a$"@ZTg=EQ[B&4(o]`f"8&F/qMj%a;D73Or@&u(U:=S*9KZ*b`UAG^%Q^s1DuBZ#cB*EJ[YKds'32I50*_UP'O:gaECjG*rf'.aZb)sAkWUBh?lOf&eEnO-pEii;C?eS/K..uuoaD9cSYh5lUti`A+.X8jU4E\@)&,mJ72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q&FIN2g%'LAV[=Ur.eDE1d(b7B+p8,Z-A!.s.2@J4NPZjRh\@<)u&6C-&Gp$CS]0bJ4cD',H"/+rXq@%re"BurWO\Eet!KUMe1nM)X>2ria#'KrL-hu8`'EO,+iiO-Y(3qc!#Zs_D"`'pU$KXWtkWfUPpSn/mi?Q^akV]8fi)5&aC"4e*=0U+N#/@a0!HC/)_AfS>3Pq]sP"GS+8`1Kec-ndNV9*K>Ffa4%"iT[b>U#_j'KrL-hu1p[u*#%'&Z'*F!=3;q91(mP$]h(j*ZOpKO!^&C^pt<)V7J^&R?5/YfIsJ&O72aSgr-j+_R!;Y_@b9+BH'IOKMPA?A&=9O*[Gt&j6X%K3EKu"Xj)rSJ2*_#E#m&VRf:Ilm#VD#`NYb&e0`QLHRE3Hi;DlrrBo+TmtF):B(=0V#LE5e"V@I@.@9W1tP:pSV1beTb3:4@R78'E9F*#YCF,uJ+uS,0DZ,lhtRnXj'$P$"tFl$7Vhh%cDP%p8[G993::]CEJcWQ2)@*iEd]&#s'r^URp:I,b4aOC%r,G>7JN-!`tL+_Vs>&s!(4]M^SjKhMglRM3jW7RQAP0k';*![c3NB-rrBo=Y/W\Mil%&6m*L5Sp-TO2eJ.usdqo-O"D@]8./,jDZO373#QFdAYOXf'puB;T!(OAnbK(MSYW[KlVm"#l&h!n=kmVtI8c:0jc'>9oD$g4BJ-p#>m#P@A&,igK>!??aamVhdFh]0D8&W^b-f9tWJ+km_k%T>(C$UZA:7l"<1QWn-5HT7(p0OASI`$$K-hg9[kstGJSc8[R(;KV*J&77j^Z8#+;SCm'rUTsg1WsD*XfG#$U1o]Um"JJ+0Of_-C_;;[\F3a`#Dr(ED<$cOI6AI4&uOak)'(ce'g+Q1Y9oR$p()Qc6>7SSWFS>?-]TrN/Vf1iC[9rWg"\ud*[oJrXG>$-\3[DYHkPpkg("@u^`Kng70"$!70"$!70"$!70"$!70"(@C2%s7j./GLGBWh2bW9!E4I:'`M_&]8'e#`Xh5!!UP!3[s36cX>T;h$X7^_?-C?]nChH!="C:?cXB,S_IEL[Q^P?.g@Jg>qT"DFoS$c;tO7?&?_j8^ktC^o(;F+KkR'u*!6$kAM%2g-G\;+2X^'N%+!'N%+!Eull6O&41UmAIBspobPeTt2k]>Si77+a$i!Wi@N54sC)!(G>D=^[Rndk'r5[l^:1L_`>qj-:l0F<*Looa!iP'MpKXMC8J!MC8J+IhQNs3i7lj^:$[fJQca8:02[@!0ubfS;cV9#H.j8.B\RQ1-1.Z(b/!@*gE,)YTo=ZoW'!:iP(-hrN]Zu'nd4$EcSdF6NjS^`cHcpS0"=A^#2-N-f,mD!3g=Trejt8MV\VUP1hM!M&0ieu+;*0CQ;qY7bSNm:=f[XhCQp@sh*%/\4W*)\\d;Kbtf"f$23mV;9kOCNHB+cYYe9Cs^?,Z:On@bQu$I%Srar[,2@,H8Nr+Q_S9g1:ljs[C&P`%_*fMaJ!^cXeR`:U5B-h;+1I!;+1I!;+1J)H>]'ZV#3fs9.OP,A^a'<%[>[#CG)kSV&cIrp>X0cbuo:A8Xq2]:K&kVn=?,tWkqbarqA,APf/BbD\BR,9771=[+(r%XgG,GDs#B6FWJ%EYF\MP""-&K9aa@A]/1q1M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!M?#'!\Li0IR\lY8]+#!;nFuXPQOk*m?gXm!P8J88Yf#VCiP7IKa:>Y9MWWn[93H.E4(=$S\]/RgafJ8EG_Z+6\o[-q)D%=oS>BQ6Upru7iYED5._fr_+"8Oe3XR:0J-m^!J-mfidQ_i>0p@"u/[8(74M$MHVVGr&B2*/'@2:G,MFO&rRDP4i$j%J8?^:21-j-ZIRZ(AaMNoH"#IQUC$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!._Vq0GdFONb!nGHWlMBYUoA:Rdk:!i/gV#DWHW*M@q7)%#N+]65HS4cS],'/c'7gU`-S!1[aB\9=H%6GNYp^8$uo&3hhOGT*4)*kqe'!\4P/KQC6r7RY8G-H$kI+-U4o6W4s09bLPIPUHcnFPjHEQRqb6!pGD0pZ?8rr!am%+d]gWV8=!o)?/?Q:m@`H_pea1S^I+QhP>21ZM7c].f0O>QS@-$7;CTO7\\]oA;_@PV;R:REcnHPkRW)FJ2G-e+lTjNlr4aJ(hq7t$D72,`$(RF4Ob'S9&CNCs>'1+s+aN!WT]u^g3'%]G+3>]p7$u4+uPG-\UF%jJW7n0amNoEBND=rBXQkGheJ2!m/gg7fZ^El0q@>qJ&8SVUTMDO(RD%KANd,kKQBW1Z!O(8K9+#-omCM^HL8p6U&^s!9H%e"?qsLrr?b__HGl6dW]T;]tHu[D#XL?YQ9d=EK@"4e^6ec'N%:!An`/([Z*2A/\I9'C):`20:5$4j]-90",nYoT<1Vapj*rqlI'CS%8u"6pLY?pfe(WgO5hWU*-E)Ch_hT+!,#uV:\HE4/H5^W0CP,e12i`J(iP%/P:ZeItf@HFMq#%kk2\EsAYkUTDc!%=S!!6NWq#]roo/bZ)f/?DLdI=!6q=HF7hg7W(#-l`8Xf!Q2g!Dm*,^"&XW7s-\i]&69ehd!]0KRVkSsF*7'C&*r[.kQ>to&&F*sRm4dgLCH;tm14Y#L,*T9HWef11R;l9FG8d=[l2*Q!'o_;nV5eCDJO/"^5TcMesr7]I4VY:b,O_Ia,aOt/2P-#@sX"4k<(]^-h,p_3:S?1W[+Wt(9)D^Wh.1)^qfX,E-'+bNfJuF!2>?!!u&V%*IeZ*`;nM4N@baO';eO/Z_#iZV6E)`".jSQ1>B]f>Bk#WAapPCjQ$^5AW?+X:J`%OO'Y@.1Vr!ZHAV^c4?)4HnD*UpnKu#N,ccP5WH>JHT#FI?_"Ho1F3*U+Nf#4bU5C?$TCF:_ho&tMrr@_1>ghYnSXNj$6+HO.D2"$WRE)aO7n1rL8CJcgI7Es-nqI;AY-08qKp>,VVk6k%r=gg`.&)S!.&)S!.iV4Pc'F^U/Rr":>DB]=I'5\=JOT.ZWpKcf3'?8jfqO!Or'R-lLb+kBFfe_<9]_m@Q"#le&3#k"FR2JDk*O!>'6nuBXW(En2+9+-ACRJZA7'2i5pP]fC=f211,Q`V_k^Vogd-Fi9TuK[O`u4"`,V'g.HV7/3TloO3`1=agJ(=IZ.3b=Smu49\$]fh8k=HnY2!Qt*!/k>:&mE-]bCHD72,`!72,`!72,c/p=\m#jaoS)m2a1Ln87$Rj)VC%_5n.Wpbht2GkV.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!s4I~>endstream +endobj +5 0 obj +<< +/BitsPerComponent 8 /ColorSpace /DeviceRGB /Filter [ /ASCII85Decode /DCTDecode ] /Height 364 /Length 17936 /Subtype /Image + /Type /XObject /Width 616 +>> +stream +s4IA0!"_al8O`[\!WW3$!!*'"s1eUH#Q\`CBEJ5Y!!*Z4!YGJ5gAjS@#R1J<"pG8;#6tPA#RUtS%1EUP$lKZk%hp$&+!)F@*#p(H/ghbc/0c,S-oWS+0JPC@1`n)*4ZG2Z/i,=>s4[N@!=9&=$k!I\%1O.0+WMX\1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1B58m*rl9A"T\W)!10ZOeE%*6F"?A;UOtZ1LbBV#mqFa(`=5<-7:2j.Ps"@2`NfY6UX@47n?3D;cHat='/U/@q9._B4u!oF*)PJGBeCZK7nr5LPUeEP*;,qQC!u,R\HRQV5C/hWN*81['d?O\@K2f_o0O6a2lBFdaQ^rf%8R-g>V&OjQ5OekiqC&o(2MHp@n@XqZ"J6*ru?D!%;)SAnPdkC3+K>G'A1VH@gd&KnbA=M2II[Pa.Q$R$jD;USO``Vl6SpZEppG[^WcW]#)A'`Q#s>ai`&\eCE.%f\,!,AF!'^JXqC&(g$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$AL(0B:a?XIF:BsA/HP*+;+;)MOM(=9#>A!ePP!mn]e"9&VWG)%kho*Fr35&Yua[?mbcURp2&U9YMW*\'1WDS,>0"KN;EfbJrH3>FnDXcFUMt4[Z9WQNa%nS;(j;&oNc@kFlnsRL+hdan[D3Su#R\lQN\Sfbo$0"9/X+h1XWpRrj\)ZS!&$Pm)Np=/jjc$MTtN@pVnmTNBd[Fe7_dT@,Z1EG;9EZI_U\N]TmJ[.A\>[oWVWM[gFG!\cVZS_\Oo5PTqB%K=%b-D05b'\dl7&!pq1kt4to1,+FD$igDM0d@eLB*,KD4=bKTr'p2*^*h?1:eQ3BMlC"lpAY,-cQMb^SlgMl\>@XJli)C![Hb?k2P'c\YN^6o*VGsU4Xb'KWEHBo<%tp?W.tN6*Vm]2a'+KDIn$rRNqNoc_HTSX&>\Q2N>kD`!X8l5Zc5&XMF6@9;VT!9)Ns^0Qe1pLB!ZJ7k)d%7b]oQ.,7';g!M&2D#Lb#s4rr-*FIs:`\ke'![#5f>/8d!qQF>I&]FG=RJU[$4^`@aL^Uqe`tT7K1tu;4>ig]#^=bhds,e&OC8t^a_qOHWOcmrr=?Pi(#n0m)LH5,hH'Q^q2f@J1t=F4)sOpZrZ(q2G!BcOnE%rl"DB'PIm%4t,qK`>`"H9o?^*32SFC<]pjoU)2iVn[D;e8'h8Q*q)<[UG:,5
9"AQ"#+/NI0U>(X7b&l(j2\Q>h0?d9!9"&biSe\f[$-6O(2Ki1i==9pZ>SV\lg?8RiL[N$V>N8V45UKlJd\+fhrfki'!61I0uP2r>`SbDMKO@!.m:W.fDZ9WIHGXJbo#@;%JI9gjgic`-cO\D/!!Y6m2u3TlV>&MZGH6s5KjfTo)K#Eg%s<#?<-LD=1fS%nI.?_)=\/nC>+?-Yg7N$@Ykb3q-Aj9N]IUICTar4HX6P8eGLaBR3X--eLmW.o0]UZE"5hXPEX!]:'opEDX=sLo"X7D[Z1"\!';2)m'dO.>YT!Np8`k+ROC+Jo2lJ=EStBtPL@"F"aIcU`=8k6W+`s!2k"hr*rK5WC7CE9;<:cEC7J8e.O+!n]*F2p9G(sR(g`7Okc!01p"[I4=pZ"tsD5N5a[(7)rtF2sn/()^Q+!#SSgSncT4p&.B\nIb9hf7j,s08?U^?Kq+L3MgNb(a:Ze!Fj>07S1TZlVeTI'lEF1[CZ$7h=n=?f0`2"9%$E[^O?&BIQG.Sg?[TBenjBQ4s'3qf!]I*oCr3\4*].9fsC9j5$W+acN^5m]N!`5n5ATKAt(%#4AJqs8HLW3#mNQUJb':f5?n\`b]rHm]$qW^Rq&.:F'h>bD:RgZ[aU[JCn`0B"9\`YC_?gHf1Y$H@_NJ_[aVU#:J%t&-5KIQV(Io!PP`d=dZ]i2pO@g(72/^i"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!&R8OEhE]Fn5nriJ=QMfjIfiRK'gei!!ItDi=t/:]_QpklTn:_Hg#[H1iecf7dPPVO]6]ui2)Q)&'N%:!1)X,;;H1rn!JY=]O)8lXre5+i_LUA9Kqs[:9FPmXes=ob]=f!Ma5eML&XGpt,sVlW@tY0Rnkjlp8oT;mP1dqlu4^O_>+>f5?^'Ri0n8sA]s'23c0!sVFuWX=Oo(oh+ERGUl_[8_,pcZmfV.!Mu0GH151Y/Pb8:^M)iRrr$qC"4_bpq>%hM0A[[jlWf8!<]57]2QNmNf&PnQ]q2*6Pni!GJ`ON\^d?`Ub[OW>,6:<@2"J.gW!$+,L[-^mU\0)Dq-^Ab*)_.'/Bd3lP-B_*(Tsg/iUI>kp(fiPGiB7RclYn[t3\+-Lraa:^1V*6l,ic$3E&)iWAr8Y)3a87S72,`!72,`$G7Z(F]T>Zp#pPXE*/tm;I2PQuqgo8K70$041g:t-c)l*_j@GkCRJb0uj3;DM4AOE(Uhqc3JAh29:H\j`Pt?_"'OiZX>+#!!t+k*U6mbYlFRX04-P4N6*j3Qg_X(_6KVRL99/9aWsYdKQtUt_/60NBk6fi?,I0M#);8c\0#f.=(HHYl[6g1soYNFHI('>;6kK7Yd]T&U$]]J\]2Y2%pegtF@G3HS@Ds)><^qXPGecp)f&N?*2gDV!E#:MDcs*M>!5*b:YIjB$rseHT<+I0?&)N4qlMK]NoGq4jpE`*CJ$V$V#(9_CCU_Ok4G]<`4NJ>:oeG2na8/sc_ZHa4s.7B&eNNSmIOoPI4t_:jg2/Ya17Ui&96mD72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,cjYCFVS0DbXSrrCK'lV=a56mOfcLm_:2GAFUSG6!$cn4:XAp;j?TFe)o;F!Pd#cKC3CML"4^PE%fi!tWePi-XD5Uh2t,)-'^(UN3DQ!;?KOA:*62"/qrO!:t&Tcer^Za0"&Kr(=@dfm+3j"J3?Go`s)lCXDHdTtRjok2!qo,48JH='X0*p"^PL9t;@XSM2"o[nt!+E,3[F)m#\hZ_\^dgP0]O;Q+X5aX67n['%X)hilF=lqCB]44OU/9+A'&,bn/jG;eiLg[U?N1"eFC4_4\l:.!i&<,N-QHVUY,9M0CRtHAL!?LMA'Sc5n#"-CT(qV:(9!sb!%ZCp,A:nF*tm6n,aQqr]SdltT^SMNYAV$=Y<\tr/[gHP.Y.ckks#Xbo?:P77k];;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1Iqa5NR5*FJ\@/P*JE)Guom`j.;93lXq6EX;o""Q]0rUq#p>PB1RL&mNGO#Bu$a\<8is/opi"M*V4QBmXa2XoO+,]TdA5b:$jXIg(b9dO(TBc1gU84CO#q=3r05gRr;dC5D'JRjr#96N>>EYU.n'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'EOW*J&jZ(qYdf$!7H\h:9o79+H&fo(bo"%[:0kD*!tZh#:00Re;cgG8Krlrl50_'V[(]m62!,8l6rBW$7MX!$B"!&/%\r$Va0aoKcNrUUgT(GM?*7O%`nV`nI5C-eB*nJ]\N@2P2N<KlrNQh+1;1FN(>XA,`S(6;RFt,IPpWUqF7JISR0P,S.Y?CNYXqZEUGk+c@hH3HRX=qDsPTEOm1n9ou]L)LW:D^]_Y:/V6eq5f;[P&>jmETC#q-aqO,@"B>YD_!%h-UO'^_24mSiEV["#MGu9`f\5>[0,m=u[5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5T-$br.CaD!3b-Qr@!]5lR0VK7h1]fb3G+ch5`?:^ecD>,bDl\,Eb']8Rcgeh*W]laC'<*H\qfG'N%+!'N%+!'N%+!E*bBM0!nn^*uSbU9\/tTd'$$8kXkU\Vm$0pY4e!C>tV=0UgSd0#cO^s:,Y/;Gc>+dWek"tf1)@rqYpQ33DDt"nICmui_9JPD]rEUO>(3OnZ_]Pa4,=XD$QM"R>"uSLeMm:g3:-%ueEa'16SruuUsQVrjA=":Ta.9hdV?fN;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;-[?i.b,f1b>NTO`fGDE[[eC)2tPN(Gh,diZ-/g9G46=gf!gQb6J`d2-(`g*\^VW>>2,7#m&F0OceVS)O0HF\JNt"Dn+d2Wrr?E7TDDD*C"GR4gmA!SddJIh,e0#SkSDNmA=_40t6nhbl-0p)3%q1JHAsR5F[k@of1H-]-nOJXD93"5b2S?+eTdk3QBkF`D&6jnWa=)fk87J3tgs%WHEZ:Gif!2T"1r.qrY(CIVon=I9j-J_cmUJ^/:V3n)]Hhq.c`^YskF/,oTRIWsDmYlOeo%+^)<++bGY32=$p3h;h4bV+)0_n:8eGkVWV#O.\WG"JZVrF>j-#/j:)Bs#/KX+#^?Ctc;bJrM)K;9lX+V8^582TDo;j9-'d!9A7JHD*DlH_];"h(ZCmW^ZVSQ]5#%,9hZn!![]d!+]L3X\\^\X:n3i::=jg@?shCL(us\jsOlcOB7r[Ne8?$Dfi&ED=*uhZZN6j'[J)K.P`J-Ca_ii3QHMqC?W1,-MG%L5HXqc6Rn4fK3I0hrI;#_9j"]:]/>)CH.kO^i(^>Pibj81T$G('Xf7C5"D`4O*q\+"pNq8giJJUuCJepJV>+h*WoqX.R9:[HP6UKLhaEGT556Op"=B(&X49'YW91RXFs9f'V3G*+SMQ&8d*A2>s(J+)F=q7;TZ%nm>cZdW`4rVlk,ZF74!NW)UDS$CF%*;)Oee['g4/?TFf.J.'N%+!'N%+!'N%+!'N%+!'N%+8B8jJZF#;8=Ma>9beX+P$8^k8C;if.5H=@_0,Oqpn%^VucK3YW?1%]$pk]>DJN:GDDf5k1-M=`=S#?Cd(KWi:5rq(]\rM#@=FQus=?XM.238RVIm:!J(qYpPfF4I$F@qdJ?I3cN5J*jG_ZhlDtSR.#O`N<5K<-`ZnG#&GAdD'WhC"EU`ph#@FA`;V1`kuZlY&HoP8KF1Jp&/sc=Phft2Gmc6a;u3'<;uqcmp.\GBhfU'a`3k3\oea`[k(BF'a"dkU4"H73$A_.hnqc)r95K,7K;2Gk)...oJ@eL*VX%''aA72,`!72,`!72,`!72,`!72,_u5U-Mr72,dc>1Sa]i2piW:X?h_-#p"AYCH9++.MWhm=J1A]^#k\nsi4LkL>A:fG\@WDfQUI;nQKo2sR,?8Lrr?A\NqTrHD.]?ffq([4\B.mU)LJ=q;+4"Z'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+54sGqYUo\B7/)ApY.`G-knan&fIDoqk(lBSu9,0l&$Sc.Bl;&]&Ra0O"j;f'8IbK;97!5Cm"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"U"l\Gna+@*b42Z$!_.Bc`-,ok2T+,k.T50^`VsakXTH2l,Y,NO+I49%G4B1H]]Gd(:1O)>]rRWQuqZ]cNO!Mk2%feId8hZa+knY_]@4ZK8#NfV"ASDbL"0LZ+=,Xo^1eU<-jS#1$L16QE&>*UqEW$.=M0@8YW_%"*iLAFoKV"Ejr=OWmYk2O5XpT!#P7CmQ'^8m[C_28"WhI8i(SSX%@3$p&>"&\dBj[K.s$W-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!Hj7,m,0!"r>[hs0#MAStG(9oJU45l(3gH4C1$?k1"+BL:.0_gPlC`mNrJul*t.kkhWSWZ,>YQ0&c@MsiFhK_4YhLne_AY.M**GhGb2ss]oNf'9J`U(M#/8iDY8p@U@1nGkl1Y)rr>abki4,BJt\-)8QeW4;=3Zk-auR)W[l=Fr(X9f,5lVe'Q1S4cha.+f.7.,B@IFi`d@5^M._0PW*2]6B0:7O+NheFA/_u&921l>rI/BC-O2[JQ2.*HP1fj8P?h,;Fsj#A.aC;RMC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8SNCmE8BNT%7PS8)).oTp3n$NQ9iZ:\]`#2QA^TH*N0*HPFk-h1^_B$k_aR;[!@aG-B7N/k?/X)3#&0'56^j^&$$P&N1'8gje)K$qdP!a&Z@G8D?6qb=RnM'FN$0tC$(6a'D,Rur_W@_+W_=fo1/\+_h.Z&^nT)h+7gHMcm%e['g4/?TFf.J.'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+0[9Y-&=g<!knHZtV8DIp#n$A:nj+:^'^'O]Rj4Dle]oo.^hA`C7$]'sJS7.Q"6)@Zk"n"HegMhO"B;MfA06m..fWKIhab3nK,I(lSQ,B^ULQnKf9Tna2Pe6*-M2M5ME*/4XGAh*p`K)59m0fH5O^%b5#]JP&('t-'m!OG(-?f;-@'UM"Ik^g\JEti^uJZ8";Vg=/c*uX&PO&kk!t4FQDC>e;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20"PN!`/dSrWWZ5^D]XNS*UkJr0D7RsmUC.9H\+I/4f$9'`CcqeZd:'\4%B5?Dq%ZC>$D*RZe3n'`'MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!\ZJZF%_$AUk];Y4oCp]U\sR[M4+Ek"f1SP3-K+R%WFd5JQ-\c!%*/`pt)XiDM+>'X.9?3:Slf2>!+42<#\K>9I@`&TedH*h-0[#5ik18A)oPoUL`l;2gXtZ(b9oeeWh)`OX\/3ZnDAr4;`EHQH^E2=2>N/7+"b>%.K)d"8hU$]iFXTaDS@9u*@6AUSO^11Ij=Wf>j"i8XF=s]\i*Y?(nGVg0)kp;<_qfU(\aigGP"riU\mCHriX*[[2V3/m4_h,/V3Q?:Y**r6NBCT*^Lh48BN\hMn-Z-Kj#,MWtuT*Ws_?1<>brS;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Z!_+u0TR9M2E0]=$@ogHe#NGQcs_Hf3JNAj[1KX@iO.TA:e%K@AUVr`GioWJmM\Y9sLgjp:lehC0,.boI79/'ieI^ZJ=u2>-0*lgV+Ho64-,U2p%k_ko4\t%!=i8&/hLm]DIhBp>8kBebUO7Q_0L%51\t)p?RU33)]!bHpBqtK/+'ai@N^[M;S)S90SMsB+;1Jb)0*fcc!,hf:M#t#L)N@83(MEJk/+l!&k*W_6p20CgZV!mYH[Ld7j*qX(NO-R;)Onnfc..m#QlY_Jkn:]s@_"5s?QTl&MC0TPC)1FBtqqUfm!q%U*(,g?7tcoNI;lf>eZA+3;4`f[RONqrH]7Q#Nc1r%@.j,6<\>lWTd8mae"Z`k<'`=r`)^'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mo!0Ll?sX;\H-%0(!h_2UG6l*W\5[*r%UfDUYs"DI\\e\_N=g>t7"bO>Fqb;:iSD*>e['g4/?TFf.J.'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+)F@f<)LouMbX>15mh=rp"\m1s_W@3-FR6i[b*4"g8.+8Ft%^?K8@lTMA%Y*r@P(,2Zrrh^0XSrOqDRQC8ZF'W3Ia1ZTr".o\Y*/*HZFp6D>!Y>5H*N+Ek?-=W#LK=oUUGM`%m/^7JKI-t#N\f4<%;+?IH`PbL,0X$9i@HRag>N,_R>oOPG3;o<3cH'A_VP15ck+.i]`im-WAJO.*"V7D.E7S+3q9Di>'ioNbggLIi'1AJ)6-1@j$5b/06UUcJ-T!m70r0$BtJiI"4Fbcg#KL!1.c7]\i%KfDW$Z9tKuW484X1j(J.TB>sj&e&F6u#0Snc]pu^Te,UH`e!&dgN>q\>KoW'=rP['&qAfL"Uq4m0/_$8n%P5+SH4-#$kW(JZimK"prrBsJWXa[f2m9,XN71mF7e)bqao5!@j)Xra7W]VWGfd/+8mdu4Vo0)QhIFa[?p]36)E`N,5ZZFDX/B9Ra0#koen:'9IK`Lo-7\FBqq(%2^U!#JTi,l:C,5]dQfNHm($;LRXUSJQ:Q2J/T-FD!jD98I#-K>-4B2[CVtfCWLJd6R^\&nQ'hR.^5K!E>//B,GeF=-"Wb_V7D/8Z'l77NGIhJl4k,"k[O7qVfImjJ4U\e9T490Z@*n,!3r@sfqo6M-npJ$%&kEXPX_,:p*nb%f;`NG2r>,`]%Q"pT9<$"#KgPoDX8$O8]!crrD)dIqi;>cj*GJ!5Fj"!;q#Ikb&?,eMTS!8\7:%q``!PM'1]j/\=6\`\FqEO0qXZWHnLD5TNAor`fC&n_2HdJ29Et00eY&W;ckTbCBLQ;-W=ST9arRT\f.oq"!Ku)`JeNAa?fCpW[MO5T-3JQ_3mNe:6rK^]+9SW318;:[GE9QU/=^7`P#3fc\t_*,`^*`d6XQ.%h!pm7Ye%!9ufCo&'HINm[g)H2dk0*Cp,.>Q4]ng=)dH0Jtq]qqG)-4UV*Bgd*CF-,)'rX.T3'f*Z9Up8-sN!-KC\q/?95a(gp>iZ#LX@SJLKd`(mt(9;Y!^>M>VN6J<%E-F;jp]gn]8B@oM2c.!6[(B%%eVdYf6Baf._(*54T>8eWDs^3Dq>feFp[[5A!05Q'WbR#uO)BSsp3hq81-r[(=)L6LN+7$\%slm&J29Et00eY&W;ckTbCBLQ8+reBr;^s^qtY11!68kMM?(\T<7Lifr9X^_B(=sKOpp^255&RR]6@$&WIMtL$^R"m"r-"f?;cEQmS$X-lZg:tbOq%Q4]ng-;tu5Ni3JrrCs"J,VN5FAN0(>,J4[:ZlCM]/PcuA<:G9dJ't#?/)r6`Cp0/H2dk0*Cp,.>Q4]ng=)dH1I&9#5Ni3JrrCs"J,VN,>ABV!fjXbYK7!no,/P26KmPjOJg0#n+Q!L(=!N9)(IS5\5`D>&ZtFZlKIKPj[ER'a\?JN"pr(`8V:`D:B9O5ZWYL'ND)2"t4Q^T>tdUNj'R>>3Q>#I1qML;N(D$uZM1c4s=Ab6)]2G70"KGMl]pk.!N@Umpmg/Z(-JJAX9(WK'H,m`.]co]I9mWE,t3dj@W[h8g--:g$JQi(6-sa8)Fs(r8!@7OCP>gfrFFsDIq3sM80RjgAqSk2[M<;MlnG`KGFH(V#mckfjHUs&1Lu1\tb)eS8!T`G5Y=#e6\XIZ$9d9;e:3.\A$!$$"fa7B1<]-M-B@ORTFZV_rn`O]-ZqE@R>SW?tkmoiU_'cBKc!Si*WO5k^m;D9EV,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,)\+Y;h[n+!pgGDgk)>fRIj71lb`iW*,!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!--jGdB@IGFLng,Uq/-kd!:`<%;Ksr+XP#8d!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!ES?2&DssfU=V?!Waf&O^F_8p>UrNlDDT$"Y3Hd7_gS%5O]o-8,CHT\c:[.+QN.#8LF3tTkieZ@MC>,!MC>,!MC>,!MC>,!MC>,!MC>,+57VCo3c(86>cOa7eE+6!%@j+k!2!&uC&T"!Y&qoLl5QQ,nnL+M$\lr)98Oomrr@GNXdUX\s@mNmj]7Dr%p1Ht^q"bMkj4jQ8A;o2R5C"c3a8YsU>i^3(^>cdL$4*&b2NiZ#]qdTU+2lNANMC>,!MC>,!MC>,!MC>,!MC>,.s4I~>endstream +endobj +6 0 obj +<< +/BitsPerComponent 8 /ColorSpace /DeviceRGB /Filter [ /ASCII85Decode /DCTDecode ] /Height 392 /Length 20818 /Subtype /Image + /Type /XObject /Width 700 +>> +stream +s4IA0!"_al8O`[\!WW3$!!*'"s1eUH#Q]__]E8-X!!*Z4!YGJ5gAjS@#R1J<"pG8;#6tPA#RUtS%1EUP$lKZk%hp$&+!)F@*#p(H/ghbc/0c,S-oWS+0JPC@1`n)*4ZG2Z/i,=>s4[N@!=9&=$k!I\%1O.0+WMX\1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1B58m*rl9A"T\W)!10ZOeE%*6F"?A;UOtZ1LbBV#mqFa(`=5<-7:2j.Ps"@2`NfY6UX@47n?3D;cHat='/U/@q9._B4u!oF*)PJGBeCZK7nr5LPUeEP*;,qQC!u,R\HRQV5C/hWN*81['d?O\@K2f_o0O6a2lBFdaQ^rf%8R-g>V&OjQ5OekiqC&o(2MHp@n@XqZ"J6*ru?D!%;)SAnPdkC3+K>G'A1VH@gd&KnbA=M2II[Pa.Q$R$jD;USO``Vl6SpZEppG[^WcW]#)A'`Q#s>ai`&\eCE.%f\,!,AF!'^JXqC&(g$7[R,Qu)/$\[['L`22:o:&sUqk+)q(4=M`b$KE@W'fbpj!^@S'I2#[l^UJVX9*!6i&Hme]C]Rm>`*iQKRSE,XgN(OQ;+LbGk57g2mgJn[G[T,\B^KE"9-dt*Ogb+JJ<2o#`c,qEe^NN;'L%\Sr>YW@5@GtA_JCjbJd)H$\=kGP?T52P2sl*Xh>/@&MC>,!MCT3DnV2\TMlRe6@f,N@?TCbjnm2!O5fQf!3FUM[BFA)#U:JNia.=4=hQLdmC>,$-n#hpZ(qb\IE+UR["=VG7/H?qYd5m&C(u5+i=C*9.6i9_"a122qfGEm%OmI53!7[h9>kN/l+$"aZ3(S<$ij1tm;N;b\\mT#U.4c?OEN^)6BVQP&GM[!+90Y5&XKnZZA*3!>:^duR[f9_ab/%;/s-/t]<$ggB,r798.'FkYnnDnqmk):[&9GJ5cXFRKjrG]rNPbLLL[1`$'`S`&Q>QnHe\:K,uV.-Y]b[L+FWJ-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-tErMj^[>/Rmkup.Zs1P$Xh;Y@/\Fhh:G'a44-uS(qMn>moUYi(r_3^"gXUac/ZR!>'ooV3F*dROg1Qub`emWRi'?!$*BN9Ye\-H-e*eNj[VH7B0CO^NAp@=H&.GmUN:=Bu\J;H!VV>J3gd*-$oAMC1L]DCLYW2BT_eC)[-[\WNEVX'h'mGr21'$Wk^qd&c=24F[oWnJs1Gp%Q.;Q]tgY^76A*]F=n]dk%Lr#k!L,9k%WinQ%3!\=YWMN(J`Jf^"7*VV@*<=7]o;K_To+eGS;9QGmN?;X8?-3Z.*=2D>D5>'%UG_-#o6IS9"pk?u_Ik-()*'mVe])@Xn#t`P.8tH%gYMcJb*n^I(?#G'C@$KO-J.UR8b_h%cdRd(9^H$I39PH@pu@63e.iq`97)ofHqNNYW_OPJLRAN[T'_;:sLq1_@.;^\4T3NO5rqX;GTIgn#,^5$]V4j(+b/e!4Y%+48+mJr>o`o)-]HN'\um0d-d-Ih[93rW7$`I"(bPc2nn=<)D9X\G_H>Yf2neopUWC.YmYM+^0+_'hkMGiO\,1&-%*48cXlp"s+\?X4*\\)lnIc1:G+o`"oBVPf9sYNrbAK)AJU*kS@B*L=@LJ+fG^q:"*Q2UKd^)9C,/[Woh,8UYquFlFtp_]CV`[I$(i1>]FgQeuJ>f&9EI(1bE?#Mg-^,=p9a/%CpAZk;/Xf1I2k:.W2R1%Q#;k;:@&%nP.9A[U"ZWuF]WZ=SpMh'5G2_;#"jn]*JTP>+!ahh,;*Dni1/9kjQLriCB5^CW8.HK.WHTg*.te1[p'!42*1j^BIRBY[l-+h7T)39(74m^5jd.K1@f!3gn?re1eu`LpnkI?2Lu/0k$-n$;;g62#`aHY*N+T(pb)a"'"Qi%LZ4D,*N/*ZmfkN$YJ))[C/%0jtlD+;r8_5Q)3D;KCJ#fN7IdW;mMcV?!+`qn#:V=57oHMWqplTL6M=O(QC?DK33&n>EGPur=o2P)KrkGZ&Z-;t^=Rc6\$ab)ie?m9)Za@2GP;MfoJj:$KI%2\k!u^8]XM9E,^6Lm?X]d?PAL,;q]=9POe@1TCI/@uUSFu,Pb[)(SoG/*B7A/mbfhTA\[nA^!EY6[(irkEh>7V,:InH!fe$L\^c:JSemr)n[AWZR_<"+cl't*L.;ghSOHVa:CccCrY(rlG7rXF=kJ`kl(f/u/Z0R/:&[7rIDe(NEjB!C&\Z9kQ\aRF.g^qf2.nK,7"bi]uHHWGcQU^K+[C+;`I3#CJ1Fs*L!l:FY+E.eq#EusrX_Qqp=5^VO>BOQ^hQJ2.$mf5.1-9UX!(_5m;IhngkR)m^*P0j)"pP<)Om74A`(b_NLW80[MHsQ),dPpfmZFYK(_k$,EM&J93od>Xpts+q5DSXnM?!V]DW!Se_$Gn@q\CoijRWhTW3Y>A$Mil[i6CO.6<<@FS\-`AbUL3\@dkiZ2r>eb!"?e0[,cS//RGcOHU&_T(>%$ucJ"pl9?cVmCj[G]HF_llSL@R`[QE7rE/'0r#ek(DmD6Lcd3HgKRmO>C?THL>(\h4>GO/W@/aG^^N+aktg0LQ`&[<0"QJJKR%G0rVllHl)odLi9b/MnSaJ+4B?SV3Wa,WStDp=R*Ef@)gb4-JkDPn(U22"U%'4[]Og,o+q$P08[?aN)m\uM\;iR&DFhX?.@g3AT=p1f3HVS)ht_s?;+T%^U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5ArqNpp5Pa5k>mc#G.3O)JVX\J4_eU1>*mD`#UG&E.gK*IHfKf/6_cZJSl:l5gn$R?W>e%doicQVFuIDmW!])-5`g'j-P8=CVKoKD6@)f73*qAD1eUf)Ga>$-')co']^+@j=Ici+30la#s"0l8)0RK/@9+@s%UsIKHI`mF?a/o]oK68!<"7QK6%Yc=E&:S1*'u6C`'d#t!FNrr?:'!13B*[+_loAkRf/iSeJJ`c.RR*r.%Q@@D>YVQ_Smp03l;!+qKq"TtrK$2as)rli"n>ZO[f^+Fs\qpd;V?2*C9-_QD&NSqYn3?kLB4\U]Sj#g-AdJPf!OZQM2D7c)o,o`m0-c=(FD+6,BK'SA/mIS+#`eHIKg.g5JU:GaSCU._^*(@JKDsZ-2gkJ$OjlfLiI\>:i;[KGB8Tcr0iTGrt.PomFl)uJG$7MXI^aPq7!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!9&&R&o/&e\Z=IX#h*mB['ja.LN?4`+dMeSnt4bMUSl4tf+kRN/S]\I9XU<.Qn;?caP`BD<8M(R#F/!EgE6n5od:Rkm#e?!d%rr?NA[^k(Nr_0?hF43*2F?c%3e*(F:n99[We\YVJ?7j.X`.BWo%#$AnTe3VOMi1Ra1oC]=A>1L+(.\%4Ij95Jlu#PXJZ&,uW:X_A%iBmiO:S9ejl'NJF':pnh*(@'1VQ6tW:W'5lX2/9I4g+pu;\3KJ=Hq]R\Pg]6Tf_j]+E-OA=Ok9Ktl!B'KrrA%#!TGa@>hUD%!2Q:ZXj:u2oH/n1r+WkOfDbj0+n3aib`/+%^N4E+?SQkjob]oQ@1RCRLI\BCJ'@S*$gTcCiYTQA7UD]qmFaJ2^5KPL;+251jTQ>q5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5T-.)C.4Uc^IfBE1B%)L>gUHu!-$f'4i;We6/AH7"f7lei:(R"Frr=,6Y.I-S/[_WgnHP"aq.>3WoPNA%cLJW#FoMFO9b]tn/e?joYj*6UIQ]3I]f@C:`4rLooWm3Cj&_D=rS6!ToQrh"FkQ\QP)@'EDS/)!iQHSG5NsWoX+`](Nk_2ihl;?oihX/Upkfa&eWhVB=M"_N;,h!=;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1IsG`VhmI:)udVZ-YC%:6NSK'if6g1]W&ZaNE[17T=(&ar\H8,iQ5^9@P:?;l@;#.3RoU5C?$S_!F)f'mHY2A8rKn&P>b$g<$;lU++lXnA_^/3q6**OA$2!.$!a5N>pIc"l$-e/(JWd6JMqO5E8/(CB:qF8GkYTbG5aW\n!_VmumUSQHEIR'3:Ji>/5D[/RCQ0]6USf`UYLS*"Z\WB5KSCs@'Q"_;mBZVU/+ZEEd8<=IZ/l-';*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Z"j,Q@b+?W[7-Y:76Y"';Vm@(Uu&[[K4MD!dBE%&X=8"FJZ@&cVjPYH.['f9G1h!NeB_.&)S!.&)S!j`R+XI2;eZ6_u,VhV*tmX5/QGF8>[qS?^R\Zk".oIq\i^nK[Q?"ChKPJ9fJ7angDJYcgd)2=\_A7AY^f[^#!k\7"bBrrAC"HUs`YoHW67QusY@TT])9hL8h*eX+mB*j\jrLGd7.,l4VacHkQt<>E]%$cGQR*Ze[q2u7Zjnh'r',`[lZrr=`gWMkK7j33=tiTGus.TJE7e^p#@Gm+mZ<+$D;70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70"$!70%J)8YS,e:6%N>e:1P)pr@F&7:r*SG1csY>^L1ha%qWGq&VhsM;^d_ef&;'*,$5=)8_qqBX4qPE>T2E"S:k<_J;X-?5\=O=E6D4K20K?uG@lYN?O#;8bd.JDSin!X;XWtL-Y?Kr(Ql)^<&WENJ+]=qL=\]eeg'q.:t<"_q+<>k7anXAb,!2>?!!2>?!!2djV9bYJq/&pjSQ%hR0W&3cf"3Y>aPMt\aT[XOXd.J(59\baJm@SCQe-"KpoajIj5m/5p*U>dndGWXK>HKgDKpaWsN9kH,p`(4649OS'f7/NtN2E@Z9Ie88p`0V$d.\WbGA=2Xp:if+IfBCnl-1bS%9-[T4"'25ZMsplfC&JpSa@+g=rq'K72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,cji]m5Romci/S,WIR20..=df(ICS^]S1L>#rO"+YeT47XknM#RJ9=4R&+oLt9;laq@D9(:f&e\4'-TkEg_#093:e^\l0(Xj8PRe;dr<.i+I8d:K._E6rtr`s1)5jUT2&(8-0]['NbMnsinGpS8*LGd!2gdXb6),Ga"kNSU)=nDM.o=p"Crr>N7PTf_d5Li![jDQGbYOb9I](JJEkE6%FMIc3K*kI@\#\"%_HjMkHG.&)TNJr1tL!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!%*oOc!6D@ErrCZ8htdASQC#%HnJQ02Tt$%>ddYJb8.:[QBL1mg\S_KA(m4i=bS09P=q^`qFbu&>n6"SWMXDgqQ?G*jg/ib6.>l&![Tq3d%;J7@J@W@ZT@*6C>NjXeFbmg;$o]s]`=R=HR;.YjJ,F%T88`15TJ1'U!e^JZ@CEQ1S$rKgKT/mo_uJr3p@uK'b)^MJX@i:^grXZ5,?^Eeu`Go]7t?6Nmhp7EAO?0Q2lK!F.Re1QbT+$9#gSi9?A7'*F9blV9:>>J%EbC+CgR#m@95@h:(JC%9Hf&j8p#M0lkqJ6pTp"8gR3O.DERXTB\C19sraRgAMI24\imkhtASdCRpjMjN=[84Yq`28quq>[^FPZe>!69g,t[:Ak'QU'?^AqO'L4P-Ijd9B>)!0,lZ186PQI)&J)CI+)ZP'ek6"W!7cT"!;Bk%rr?>2ZCU$)p,%c*.'AQaqYQ;_*.WHOCD0Onmd;]n88\*uco6Gi>[.4.j+sO]*qcs&H7.r1%hdPY7=mVY^Lr91p%,Xhgs+bX?hN,Cdo:JpWOf.I\A9&`rVdW^$cYascb<^=3)5E"uj35PI>.*o9Nm^;M;f/fJh;+5OhNPU`#cIF$ui+JY3f2iu(iTK^N_bEKlP3,Do'%Z0tg.#MnZ,5[s`]3Y5mp.NBPGZu)A[BkQ/`\Fh]J->u4Yd7;"TVf%MC8J!MC8J!MC8J!MC8J!MC8J.35%iWGN*\B^kDK,;LD^nnh&rf`!<2FIO!:S*ieL/FgeEM:LSGaOpTL1!]k[hERYoPXZglM]%HDcimo/f9jSI\9=j]c>Gp9=-=Pk=>\Xf]g)cp&bHm<=SrPQ'-enPLYZ;1+P_,]A&^].#G]McMMqa9oG_Co^E.5VZn0O%c>kU9jG6a1$gsE4%d5<0-h*K43hQWOM!6[e0n'liYe\!AYG]S;0^\-^a(h3!<#@!p''N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!K.os'h=(kt0.`f`(@T7qL[995S:>2?C!s4?.TE:!!TFB-YrrC-DX8`1OPi)<LY:'ttlj(bBT:narreJ8HHWNA+?FPl8R<3jUr>W\$>B8e4L'Ib"Z/?\Z#jkrN>\B#.3HZXd?6mmb`N34&"I7k.KL=Q`is'Y@hM'fC7q/-DPJP\'*lJG,Joi6suWV*lm%3MVP?9/OXiD`\/%i8n6Cfa-V!`HE[L:,JUMPo`H5#PH%jQ)K]&Hc18C+F36F\II!`>c75VJB:2Y_>WkSDZF#tkrI*e].&*A#72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q&B8HQfjB'n3!:.dGr;bE>ApBC97=APB]Vb]/cja6eZF$il`Firq]OePdL+n.M>RpZ=!1o&rTE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TFX9W/rt;:SRoH\4Ck>YnoD.tpKt,sl?][nEuK%l-Yh&W&,DR_^H^h.IM^B'BP*:a'Ufh@,B+N':-fTji;>a?>Np1FZ!DY3+20bBR?.8m^NeM^nbW+6H!M)C[9BK74J-mX)66>Bf4G^o76n_I.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%gX!.%h!p&cVjPYH.['f9G1h!NeE,nK7[dqS2uS:&b3d)SL'+"f)M0Zn]H*kA5.2<>deV"5\PSU5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!Ui]`OOjl.j_,<#ooVJ:44L;tt*1+MtghIaM]3P,[kl1X\=K1ErrUfa&A)!^;VXK/M9,khSRr`VU`p[f627qKD8H"#rMTFnQp8ql_X5bJU>YKnF#7%/q5+\OZr+iL<>-[2315)00XOcY(Jr1tP85Vei!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!QSpr0#+g(eScY>[Q6=1Euh[34#!*i65^XF0ng5M3S[WF**3'HEN6nZ$)?3?4j;@XB=Mue^mHCZA!Zi>FM=]7)TRGW5hC!@PM3.hXGq,pifKmr=\7\#&:+mX33K^#?a=!?Hp?,_0._5B0.+tTMAmG)=Mf>r"LB;Cg!4j:aj"oCH>S\7^[,!%f%]`0ab`r>3bJPdVt6Ph<)H'a'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!H2!2D"QJ[R^C:^[hl.+ZaEFY\G@0dIkuupQnUu?6[qeXQp3g-%jdHDn=Q@+[R/U+9f.l97#$U?3Df+QN*F9>FD^$K&7mP_l4o1&ZQ;I?7mJ=!CPPe3O31>r`UWnmq-.Ui!W0Dk\EVb>SEGe%"EfhAd=WqXL'Ji^>,Y.iC&\/9ji$+-iMC7j*mJGlRX79JY+j<4'k]3t72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,cji]m5Romci/S,WIR25aTK,Q@b+?W[7-Y:76Y"';VlTX98X[Y?bM>j[P.$DSsr!.3&qZr'6l'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!@ec/)`dLh[ksm!FnS%bV])MafjnBctHu2J1jCq3qh8SaYf3#dFo=?DrJ&PSeM/E1853*RqA`/'(7/Ds?EQ)crPA;3W)L_O%WSC3^2KApBC97=APB]Vb]/cjacIZdEpcbDp6p_Vf>SU4#?fF5?dC:X+]8Mh0(,B^:d<#Mo.S>ZR]c3'u$#%eWW)Q6aQn)#\<9cS9)d=<`@!Z+n3s+4tP,c=9eq)Z5]&*Yj)/fT`$CpT39>SPql"^PFJUeRj8-I0*pkrn@APT>n3^BXc5Pg%PFGJc8\_UpF3!4IG@07FCKK^Y7SJdcO$EOl@B/?AHbRDk`k_PQq]5B&mI@F5glUeZ0GqNSd#O2MC0Is?6^9lB5'3X-YE=r10U^fUDr?>R36>d+/-W)ltfC9$1O=8`'h2c'6k0I#"o3T?NNL/5,1n,EBR(CE*Rljr\&NH=U,8m@L%UY]>A2]Rq1dZVA-kO?`G#Q.0$faM?j6$bJm5.KYB!je16NEpl+rrAKL0_q"j$Fslmo'<1=?gbP$0C6Fc1e%Q'm`ShD;8AP)j?Lh[`6s^&oBE"k,4OH_@GB%dGK+q$3;kX:^Y>>&Y\\&X"&+7:/W9&WrSC?5MOG%pBQKduC#l[cToS+VUj[6FqUBpoZuq"Equ6ZSr[150Q56WgkceXunr-*tX#uVOqhGEpsVZo0Nmt8as>bL/T^gW9RPsSO\f&_#4$,CHcL\hC8:coD\eGrK^ejqit_%51FJapq-P+jJR&fE*r*oq!1`%p4%tZ\mER,(N6Gnd[ab)-%Sp7TNGPDlIODN-hD9@8%)"dd;.kC8LI-+-%GA/ronI0]V;o#pfQ-KV])alom8ueQ:0TER1#IgDt-cCdi;##EGX=E'0t?$G34L7V#JdW9V3C3B1>\E?%)#%m3o%TD]8C_n,6:rA3]CUJj92A'ru8Of\PTSf9Z#@VjAmAIj8-oR^tI+:3>U@1t2%Id7"bj$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MjU/YK_,TXfe;TknV,6k#su,9Zm1"Wn?V!6D@ErrCZ8htdAU3p-,6"%J'`R\[3&2@1R29$6I9J>ifn6,s2:J)MBo^ZZ''J)Df+K`GFpLmI;i49#9];uA$FosM_>G-Kc;gYnP96u3I#,9YqA;(]^_aTQWBet($)N"`b1QH-HA:Z59&i>g4ZkR4;1_(al@#_:q2EghCIi>*^!!q_@rr>;i49#9];uA)JiU$\'B71jr<)Jrn[Yt2L:D,fi%^_:ppeEt<2#"?()VLC`>0"M^'hb$H7NUqQ#'F/S9LL3MCrL(Jau1^f:=6$:!Jhd(ecPVgmVSIt[l/[^_4_ef0tqHnutfNIip]A/l\+)WE'SNnCceOW$Yn*`YgaF7j,BlAtifRMYo'FRT,2:[k.Y&^:^_J@]t(!iPfi#+\2$E>?u886^+iGfdcD19jk"q@H(mrr@^n6N7%Y/tN"BJ>rM^a`JU85mtpqPGQ;4!mL+O(^`Dt,DlK3IsL`,FI-V:XUk4h`GD((nFm?":Q3$m(Nu/d/MA^1bZ<#DqVQdk%>ROhRt<>E[usCP'H#(bl`d_(aEg5%?GrT+3'5.Loi7@\Xg/r$8ddq-OL&L_"Ocmn;_0hoEE^Yn.e1)O8)4%0DYb7htRPNiBS<('3mr7;;2l)dN_;`K?C/i:4B:ZSPfCeKQBK[!2(s8rr@SKrY0k!3MCrL(Jau1^f:=6$38PRXf`k[[>*fJh[IT3,@HJ0)$^E#W;ck73MCrL(Jau1^f:=6$ARk:nC4>":Q3+$P*PL?I*2$Bqe=E#Q!X/N[B#N!8^O-58jOTMW-(\SiGJG5iOd.#hn$#A)E"GnY5%&.p0`R2UsFBK7\Pa@&c3Z,RU=H!!q_@rr>;i49#9];uA'D!/,D[rrA]ESc8\?WW!S4Vbo%a9m%bdCsbn=U4OMV@&?]3&rYD=Gc-+uT_LOcXO1WfR'&RMYo'FRT,2:[kC9\mL/ugN.@aA#!5C%QqklM&/@D,8:0T-0EHMhTKMYfO^CuH>I+/a1hQRd\OF\[_.[E]!mQ=laBb$5?aa&L\s@fCF"3qR-_?&F,R\\RSIa(Jr>l<,EK4/-k3>?gs(h?h=NN^[Mt&_N4I^1b\\,l/27CTA`t#C"ghhf2@$eDgN@=V>.@R+(s3mmJuI[(?'?-+;7U)U#PSfn],LCh6jkNj:R\U)ea&!L`ITfGfNUMXkD"eM2(p2NdZC+1PCO0P;,+6BV^#(.L%F?-D1n\U,.Beq*72Ia$`AL4.Y!.A1bT?,g&\$aAn=g+(q5QF;FgqLB*3Y2;[&$^(e>-QHmZC\S)pmU)9VG)gXCI#M@FDVg)+fjpPso4VeupK=2VnMBusIU4P.M$Gk*,^#Ad:Om#:mb[T%$jn!?gD"H0(]Gh^FA`Bh(f0"S[YWjBJ-^Pfa7BaY37<7$X4>O\C25Vt;k1+7P;(?h=NN^[Mt&_N4I]oIp%Bl/27CTA`]37e]fDq>UH1/S;#.!0dE_nn0'E!"2.lKU&%EcoZfA,LdADmDoOZnONL/``%_A3H@@>S3R"r>t('5i=/O@QGV*E\rBsi27Zcqh8.fi51L+nOl2.%['R?)8V6'o[M^AjG0^6m3B=$[lL^_,^Yg+E`o&H;@@,,W?_,D/ppY!'hk=d0rP07LbOK4;rrA@R7]rZ96APR@Aei^C_AV=Yq?5RP8,R'?_-S'hK;??Y&jNKrNCZ_1NT0#3R")p&chnpb)ZKf19OIPCIuPQ>KD96]JMDZ3:&ZtQYBBSh_&'JorrCBUrrCtmrrA=PC%5-=c9V8#j,ER3EDKr!4q^#$#oDoG-hp`'r#ktWrrA]c?h`$!NC(>dn>4#n,LbRl)f0JW2p0du%NC%P5<H,VJ7TuUP@J=Es:@>#NZiFi:%1t[+QZq@qaplFDt6FL-Z'C,(MYF$^7K5X'T($o"o+pf$['[brh@*#FMHD$#QlqjK[JGhuG8H:m)UB[InSOp>>cnYUi.\&si,tnpUN1d5AX%`[:$/EUO:Xc+i%h5!A.4FXFgT8aMWP.qG`l1);Qh%SPn>DcVW*`!N9e?>KL\5!_T;bIDe--[mh1\!if!U#.rMESMo'M.pIEcdMmG'b`3P!-)a4,P&^V+HfUrIhkf;3BYo>/M36]@;c]j'Vlusb\BBG0;-*$4XrNF1JcJIhltbf>5>;3:Eh)ZkLAF1BEH]u;*Y:!;*Y;1`Q"?gm=3.gl(;X)\[33M="_olo+Q8!PEVMe!$)%>$k-44e7&\aiU.I0`6P%p5biBKc2g(!)*aO^%MqX%8r(?6)`gVra(l`I1X=C%$6]i`Qam!Ab^[G,lBd;K:NPRi]kGWnVF59hQu7/-/[NV`:[^qd+2gZj?2PU1R;3h]G5??W.))c9BH:rG@5(VWT^(,$7MX!!\t&,4iM\Hrg+C]iVrn62Ki\UNI7%[jI)T2'qmuF1R!tm/`+0AUKA[0Q.@A6jWMX\5V>=;c`[o@ZcP*K"PB)jZ;YNEaVV0-kL#?.ekkC;SP5)J5u.*Ic=5e*_*^^4J;mVR6<\D_<;;K<`]sG:?CJ[si>\0PMG:[B,\&qK8T7dPg9C3#,;OW;p=p=Z!fUD*gBP>74NGLi&12Ti3-G5hO0CBEI!(;*Y:!;*YPY00T[dhW_^Gmu=QpOc4qFf-0)n,1Ue=&SY)[iO1eD`-IAe&cb8Zn':=UT:7k8Y0*.P0gi^uM%e*Bn$PF9a/M8#hLIUNL]7?ce%@%R>GHf,4];,)__qMp!)&GS7XkCg!Bd4-?j`n3Z@#nMJE+iqktFm#j6YIZqnCVEa%rupLeX_\PU,jPH"1ajgUCZ7HZqL9SnXrne(7Fqck\OVpMSlqLmQ?+VX.q0!G[K?TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TE:!!TF_(U~>endstream +endobj +7 0 obj +<< +/BitsPerComponent 8 /ColorSpace /DeviceRGB /Filter [ /ASCII85Decode /DCTDecode ] /Height 392 /Length 19516 /Subtype /Image + /Type /XObject /Width 616 +>> +stream +s4IA0!"_al8O`[\!WW3$!!*'"s1eUH#Q]__BEJ5Y!!*Z4!YGJ5gAjS@#R1J<"pG8;#6tPA#RUtS%1EUP$lKZk%hp$&+!)F@*#p(H/ghbc/0c,S-oWS+0JPC@1`n)*4ZG2Z/i,=>s4[N@!=9&=$k!I\%1O.0+WMX\1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1B58m*rl9A"T\W)!10ZOeE%*6F"?A;UOtZ1LbBV#mqFa(`=5<-7:2j.Ps"@2`NfY6UX@47n?3D;cHat='/U/@q9._B4u!oF*)PJGBeCZK7nr5LPUeEP*;,qQC!u,R\HRQV5C/hWN*81['d?O\@K2f_o0O6a2lBFdaQ^rf%8R-g>V&OjQ5OekiqC&o(2MHp@n@XqZ"J6*ru?D!%;)SAnPdkC3+K>G'A1VH@gd&KnbA=M2II[Pa.Q$R$jD;USO``Vl6SpZEppG[^WcW]#)A'`Q#s>ai`&\eCE.%f\,!,AF!'^JXqC&(g$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$ARhaZeo;nenF,)nT(^[?BB5_'Bk7VjpY/[Y%fLAt;]^hAE"AXR`Ksg*V$-?ltQ(H?o)MFdk='_[,XgarCMjZ!8BS#-?(H`AtI[ndi)q+`%b]W6\4%bp53Qa/Voq&c"'m+qVe8mEZWh48RM!/+*:Nrr<%W9>C.tr"PX2XaIX1loj=;98RmCTW3kd-\sQWn"JRHZYMJH"!?$55"g`#(J+b'WNXK/jR6b`_X>h;UVt'iP$`8Ioc(LK4bCVC\IO3]1Hotca=^A[R<0Rr/>]LamG[m$K,f>oH3j,?80hbI4nIFVm?sSbprEWJ$Za%3C:ZTXb4q;`c*`[Xn\7#&9sZ#"FWd=e#%]>7rtQ_QmD`k(![(-n]!Xk4C8LR3;bY6kg+=L:>3/*H`0_Z,eBIZb2p^b*=![i23d,M6?2IDSsHj`PJ4W/1KnisS/^\DU=WK4DQ@*)6Pi&YYDDiLAMh^HC&2X(c(h_DDRN=//4c0(,U_\ca7ji'O&JnC6*@_$A]r*dWl#)n&o5W!+W0,H;]!^i_L27*n0O7=CVl?[=_^Q(hHrD1jK1d5f*-g;3Z[-]3fmU"U_7ZIXods1bVr@FZXS>:PDZlUJf`(ri^;^q8BRJG-)-*n^]-jTC9i^[WP3QB^1qP]8GSY(#VFu1A3rI$n%[F/sB]m>q4:th'C>(ZqHcKuBOiu+'N`<KOJ,CT.2Q1,oK3+?ecnRU]!!(,$WrX"T:A74$BIgsY&3jsmf_2p7AUfri)*#?A65CD<94[=#FMIJ&$\H`]#e)l:a$eNTNLTB2c7ia!>NbMka@2)T[?]">Y;4%h(X6kSpE%gokha/LnC?.!M%nD'J>YAhtFZmc>"S'"'.!3f4fLcE_X.plHSHY]bKrrCbOle;87X7(`b]F'`?@/430g\;\R?go)>Lu>aoo3'Y-#[p8_;-a1-PrT?4W=8Ukm7NXYEKphjYBB0+d;Re1lL3jq`O@I%]iTZlIXRjDXk=^mrPA-&Y!ZLC[4O>QPN_jKV=06%\6"7#m[teg@tU(&*+TKZgV>-N\YP`%mef)W@!m?XEZ5;gJaPCXHqQh-7Ls21'@`8+HMbGkPB>!Gb;iLGcE1N]%$CG=;=tF.m&9<-oh+^Jf>QdWDDF[4.cm&&):q]eCK@_+d,KkdU3IhnlHb7!S`X/]4oPS_D.0Xl34,/uS&MtO\ne4+U:/Cl,g!h)&>4.j".o3M,A9+gX5(!dh0=tLM"Jbdl1ZHU*2;U'U[Jh?*ndY4IMpjD?I*b4i_L1Q-,dN6_COQ=7fNI($.%X1l@0=]2*VXJXoAB=CUTRn+H2d_Yo$FWq,c\!>`@]+BgSU0WW)YN>Pm%:md6b4\*Eh\Rr%0]DtdE#^\)K&b_O61*OOA2);W977J=?O$O=1E4N:acUb23-7X<;bO)!qO5PZ,fhtm#(rr>;!OlB"QfR+!LUZqK]qR+PuE`s]pdJ8I&AOFPe1'>fW7Sc/tDb>aWD'$h+QY`p2`f@UT#Z(fd]_OF2RqgO/IBC6p^m,\3"g3]aITr-%U5I1M.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!Wm_6WVD:[T-&!2%CaeDUVo*jsE(GTC)+ojLOp8`".mI$nj\+Zo);Nsn'h1djR\SC"B=PIA72%TF5bj8B47ZH:\=m[(-LGa;\+uJLHYG$L,^3(r8,(\I">A9uV0fgfp[>VKG%6!a")`Etdl!&^,Mn9Q[^DN'Cu-tZ,,L,@$3;.,#Gir!Wmt8R!G:r4S!*l7J6.I*Ih4_^e'b:`>CU#3p#\o4Q2Q1?J"QB*2?iKIJBfcU0S>!#ODP6g6f-P;$I&5uXAARqa8g.PXF"3m/``*]GfoTV8Qsmc+"fM10D*RQMJPLkKd-K>Yp2)bp47$d?erZ$RH'Kir/M:/]N-"QoD\f!(sEX"51dD^-d@]+*8h6Io\ua]o:sj6Pof?UgSdSr%kod@GX!YVP]H&UJ+C*jkhl'HNOgSiAsKKmC"+]Q!HfC`a#,GAB_^7FlE?#&4$K&VN&.kKFo3gNh[lkhljLcCTj^rj#)(Nf>CV+a[W;:6[-.MYT4:d8iYsD/$m-$'PZb-#>WS/Kie7N@O:U1N&4Uu'cdj5RZ118S\S%hdW5^CMZ^0GS&RA$b]"$V>\B5A.+*_qI:kM8e]o!a#2[B%J2Qt+&[nZbelNc3elNr*9=.cCE7$Zg*2t&#Y9WV_>0qc[*A@A?h>[K>7$Z#A5=1Q/f4DS$d&57_k-7IS\"7`-Vjo]g_e[!o]7rl[mch\VA#AR\Cm&PA(Gfe;-.U(P.;*U=-$:I5G-O"SVc1AXW\NZ$9V&a6?8:rTpkqpN/YC,7/Ur%]E4cb"SYYqpr=:b-K7$Snj:^,11&[_IZh\KH,6[%di-Kl(qhihLr(3gP,fLG(=%f+Xnr9fJFo'Z"N4_)kDBeU'Jpa\,ct1`tr-Tl7,ItkW3:s:&;jAeQV6g\'Y@QH,V$N9Jc5l75GDJr1tV1C>P)J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-sNIJ)hV'rI3T&!9ln:Vc`p>[n,nhVH/ec\$nGO8BdhBa9E?K0>7G4H2r,niThLsCWrmqb'hI#:>$HRmOKG<4_)At7BI`Hdt-5^nIM$XDQ#5VjI*5"tL10>,hok7h-Cq;4i-u>0)VSj]]8+AUMf\T)3;M%R:N(,8\kWp:m$js`@/'*%rB'u@YsrL_VPmJBZrNjs9eWjP-2)]PqB!aI1)ZgsJiVePA;WeaNi+%OkX@\:ns["G.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.&)S!.l0Kk!0D<;p%rt5!2UR9Dr*hV@N.,;P3R+;e!q^A%dnkQ>:O.%gXJFe&`S?*l:l_AM3aOF?39U<58r@>imXXml-MI2meu5#iY3'R2iJFqR!9,1u.XaHNr'k^BdNG,3QkF'X=X%jNF?'J(/T4%_nHP=3L&?;WIZ-6sDTiW$?=0L7leVp!5I#*%S>EP#A0&-Pe)^.NDesH6S8$$,>`It@rr=_Cqi=pq/io3""oHsM8U[H5ld,BnrOq"[)Cmm?f'KfVD`Z[n,nhVH/ec\$nGO8BdhBa9E?K0>7G4H2uTlMC8J!MC8J+588?Sf>QBG\!Qi51&TVS$hpBEa6DkRX_q!7.&eh%ChlMJ8ei(EDUM`Fb4M"4]@<:dnoL^R[`j-)oLn6c1]?@S?K7tI]58M*@eSpUm6Vo"C6=T#AjLVIcRN7Dh`GYriSCmS1`p2+-_q3JJt_;%$X:SrL44Sp+h-MlW>p.qT$nXCU3fH6Kab32.glg:3QIU.pIW`c?%[cmScr=7%O$?bUGAeeIPN]e'E+7?oAQ0G]:p57t5Fk`H2nT:B72Akt&Hq"`WmX$"#rI%I?>0[U>Sn)B.YYdh("U,T;5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5T'@;^\sRGDe!WmEN!6j)pGbAm#&Y:^h4tG!&D\[8O$HS%_\dbiQpo[1o?irg?%/?Jr$(caRpB1*n?OWV<4?.]010T3p-Fo=NtV:>*Uif(Iq@Y:]f3tm1mYVZlBcL<[oSR-7,s9E4HB@4*@`J@DnI/Q>&$b*>!oMrDYg^BZEX?/52Ll5(3jHV$fU)p%fYosKBAUF1:Jco5p!PrhR5O0iXJ,kqD63K]04mFT#>gXS0%\1:hZV0`VV-rrk<0o])<,/Ae(?iot2ZgeSa=B54O,7?RMh`*/QLf,]9cD19@ArO(1qf3T@dB>i'%taa'SlAk;`1[e1d>J,509-`aYeK(dkM/YuTZEKt)m]]!FEW]\AFqE;s!U5I1!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!XN_"L6.5c5fBqJpPY#&$MrEtmdQ5JAeWr?#&%>17UE?!>3"m3LR&rb?e33uYS5[\os-kdPK2kV7Z.S#[joAHTN(a6EAF*N^Pf[FVDlma:U'L-t]t]a\m.=`[)5rGHncT"M7Ir=i+3Q5!1b!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#/:!!#:oprrC,$?i'`5rrCK(.o*?s4_Yg)F*&==1%+IoWL_1Am17SNg(,2hp%:-B[7(d+!C[]!!C[]!!C[]!!C[]!!F-,HTjN%O;j5/6)NSuWc2ONQC>RUbQ0@bIhMh:C=dmWmG@c*ShLY6'k;O16_/ML+lhpVPl]'m7%q#*M;h#I*?9IC&HXOU36.E3$k!'G`?\a"tA)^cG05R978=9>&\"Wg%*qZD^P\&#irr<7_EL85)c!iBpo\\OBg&@%E8YU!Dg?"Zn##[lOAVIkjD,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!ZSWd"#>>'s?akO];'fr-08HYS8FCAJ:$+UpdZlW!9RWW2+Zi!MW#i[MJ2X@#M?#'!M?#'!M?#'!M?#'!M?#'!M?#/[nILAXFBq?5:#SMIF?-t<;>[tZmQus5h>3.XpN0A0$>RfL_d]O!T/:[dFS9LV?e9G"M;b'?f_D4:qaIYtR6Fd@h#,PYU%KI^^UGD\f/+A@\f/SKiZ2&CaQU)@rRU`;r;.(kidV8@/bni@L)aF_ao8Rsi@Yqnp(.4VFf1'=GaT#DV[""rEWR*h69m\'IhCP&)Ua;LB>9&@Y'XOFr0NVEWMRZfoiO4U*!o.0>PW`'Ng;LBGr9j')<3XOKH*d*g^nm(\+9HRl'rDlnD!Lr\B1Yl/^9_4U9ZDY3tn'r[!a'pRjjfZsN!U**%Z=;-<)2X+"YN;8W./j?@VqI6R2>Y-1m,cVSL+G&$AVOC3`X)[jb;-lWP_TYq)IUjpK%M&[E;cXp3\Jdo1Kl6K)Bis-c=o")'o00jg?J%6H:GBjs*;R3jIQMfPW)(KO=df,p],m;YDebS>GLr/gnjdP1WaB4FF->mi!8O?5aWM"\[AE.hg;]IrW7eFkH\fUr=CC(\,I&7>$X.8O^D>LXoH3l69E,!![t"6O-$*B#d5@I:`-TS_7;!WlL>"V9cP*=e`5()0M80u63@']-la*>=:@ZLgl??qagTF?*eRI3_E;X7?C`fj00gH]M;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I"a`s`"hqE,\?V$OM>3%fd3hHLYU6Lb-BAkPdqrlqE.`4#(2a/H,O_q2O`\tMd?8Uej^_9=h?^\]VJ5F9,-VMF.5HR!8$KR[R`@H'g[rVllkQdfN;rjOc8.)noK+*$>[[-])]MC>Qc!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!hjs&BkLT0[tWsLD39nq+%&t(5S.1'g>*K&(=:9,VjSBg'&0f8-6+S+8H.7rr?E8J,3"gC"=qmXlNUPB/algD0L(*\I#N:g)lDCm`uoql@#l;[7(d+!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!En.-LLK0O3UF-Z(.cb$Iu,,p:LdQb;JA"#<$s/9;hMD^:H*o(ec$R_[X,`Q:s]O'"laRl%a)][j75@6W7:IO*u%gCIpmGniTGb,:.2&";I5kQ+&>XYk-?/^mIc2T+7Ynpe$W0T!)YppmQC#(P[eq!aGtfUg-]?cTE7t!8+$'-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ibA%K?123?2/OFdn,&Jku1BkD#'2*QmNl5]Re-E#!K<;G>qO:&XMTT)])Qb-L&2blZC`jSrFdYT_Puqn;Z^IHL7NU6r!l*F<'j]DM3)[VnQrsm-cOpm?6V_AX4.rb>;rb5+et1RnZB&/g3?-h,O6'e/r[80_!\Mr"X2&4rg'h923]<_Ig^GrLUt)p%C4'P$]-BRc!8B$QHX&"q6U_k1]..E6@r]Nrf4oIA4WVcGE%FC@TP<>^E(;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Z"F[_6OR:MXk;?!Q2kD_XOn(AB;GgrHWr\OK0U^iubZ>1;@prnJ;4Bu8Z])2LL.@S?2uu&cP;A>(=Kj.A$+!mF#BAiRa%;Pg#mV8\iSqL(>?Sqc7tD:N7E=\ia34@1)kSb-N6Z:m:X.K=DcbjP9Fo]7RrmgP!gV<\8P.AmC?H]A6f/eqiDlH7,b5bh3C%L*6gI)uE;Da7i2GQnfCifYd[WEHk[``[aqk#D+[t!VrA+KX"f>p#>h=(*Lqf+k?Zr'6l'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!EaC`GA5]MIJoZ);?Fn#4$h!>th6"4IZ7]RG?aHJMEJFF-/_eA6>MEVC_b*]*)Z[n;u^&pN%'?`NGfp1JLfI7Qe)WkG2EfmQ*%pQ*Kml'/Os([/RY61t\ooN6fPO^j\MWaUr)X(B(`3m6[mTYaY:%ClJ5Wer_Y(Ef3;HHQMX%K3+E`@rmZd:+pMIp9c'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng5RLf=KV>gP!gV<\8P-jNs_pLML>tEQ[3kaq+f[qh/nN<5Z!'Kp7-ef=9Ysf@'!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!Y?1[5ToP^Y$1//GC!94htUq`$SgHhPFp[SNl+"Ard5;`<>BJBNl9'i>FZ/ALPEHI0sfE;o;6:q8GR^+$2"ad5INlOoqq`hB)(9#a:=\b*k>[L/adkO=3qr`Hi=c3lImPE[/c*T/@,5r=,000J#>oWhlh9742dT-QoZr$!+-<3rp]pf%b2(!:8?sLm`YJ&5FL>#1rN=JZE7l'm4E2>eU3f/dlo&@pJWZHV]>P-mm@iD&-;e2HQUH=lm%fVUKJd`FCCGG34#-iX2Ss!1Q+5CsY?nj^jPGJ(KhN%U9ba$f*0@]H(YB8L^8\:IBajbM&7l::X:Y(K:8[thAnX)"\&ZCgr(1%O3cQp#p-duA$4gA:O.@p^k,d>tYS]RQ>b+2(s.k4EI\Q_:.b/u!,PM$'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ENuhGZr9eSDD!LAUZWU2Wnf#W?)!=T=nn;!,HB,+6-J2qgFY-!6aK&q3632rB>khf3(OWWp+4JU)Z&'FCd$_=0U5Ko5(R-:cbO7AbqF]ZZVlDpjZSm?>7dnM9h^uo%]jX3rV.;C-E<[De1j=/(n6A,(!h(kL>(!rdON1cLFAZOYeMgg('/[aY4dr^[(Qh.Q$Fk/UX2`@p0_Lph=e9:+s1parUlZ*f*,OkDA2cP74mUco$6neaOa')M(E)qF`_Lg.EFB3Wd%lZeYT=V8;-X\t&[ZS'e+KY0"/KsIfD%gb3XGtN(^dXC5IEj:[n.o"21G>lOP"\B2U4fqRsC[^fduUc_ntjDoX%p(jOkB)j&3_%;ct3/#RH?XW!G#a\j`EZW:S7U5EPk72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!=dfm!K;JSJYM6hj.$Ct'+2cJe>?seO&j!_ncIgc%f^V(l`W/-o3@EPq!O5'-:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:]X!!:^%k,7anbFgO!QI`u#4S(k!6A.hHr8;:>9e[>A@OA;b5s^-BF,+,540WM6bZ=[cPg%M=#W^\f>qesZlpoJmos=mSoVqX*\FO]Spi!#B7ZQ3::1OrsL42op()cNO2&>?+#e7+4"9IbA3>XEqE^2uWA/rFtk%H`MIB?`:(aZakGp7R>+k+>CV3O$d0iGV2'o[ZRRsC$hGX=UV.e]P$ak)#RfNpEm/piuO\1@I*hV#GF:W(f2-ifTd'//K%5?aZ1`juW1dItrq2t5%FEV2IZ>/jYip#Q"bboVQik7n0CWj]@BeU>lWr!Y7F+!9a8q[\O#YN$_BGnp_aE6%XEGa$0OGPm+V-QUolp[%&'qqr5SV09<$KpCj!HX4HPrGmuYnuELlZ"r<^?]X>cZPmnjX[3Z0AE)MG!n-uV&Ul0CYV8dM9%>cm5P*G95F=[3CKbu_!5d?`#kaPrT$mn%+,^+LUh*V*X8rR),-l,L/YHI6f/c'YZ0L1o%CLs$,a0>Qf-AC1B"WZS`n=pg_5`NU^d6]=KX:>iFdkB,fOU`X*)WB\,OX@XoAA.k3gTG`37.k[BH6IhEN,`T05U8LYVn0cGKF\%T'egg%LY6rrCJmNqS@g^TbEpfoV()gI\#Mr+YDS98Um$iY]Qo;*NC[.oY7[!c9-qRsDZo*=o]@OX6OrVCtO/=RXso."U\mb2%E:!W0ajtpuupj6;]MT3s(?aWOtOh<5$J4\o@kRW"(lU];V=,XW.>7Xbf\SB+&q51n\U5CFZ6Ad1a!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!ja^*q$0Rm!+33bqGAO\fls(\*n5].h7rsi)Q`f7H3*%M"a-Gqjq+q:7'q,#eH2dk1m770Sg]%9DWf#h(T'A$Mg?,-P*@(_t"6NVmVhhqr%013A=eFAkTCa2SJ+)4.rrKA)CbqmZS*j&?&W7:Y(cF4sg8D$IPLUbJO_MmZL:$A4fJA\hn+C;2*`(%<]]GcXji[^>gu0i,0%m5%TQ.51$*_fIW[=;?0D.k[3,;?DuTgWVuoePa-T/bBcrR5F&?P#b`SHX%B["?J(8VX&bskjfls(\*n5].h7rsi)P@O#.j!k@T'k0FC%]_>iL(TC?'#Jo(aC4X8sfE-oDXBrO8\sbrrD(Y!N/@uIq@Jdd!JXi!5E^W!;pT+\'XWf^0'&3])\j&g&PXP@`nQpe&]cXqf%M&ar%L?p;?"bOrrA_cU]1=CmJd1]eO:7/4>K\XHKLs(4,G4E+?Q'+>lOf(j+RU)TFHc/1]&frre&pcrVO)(!97&mBQLT2G:-YF9[TV)Xg/EOMNT^UHE-sD!O5(*Iq@Jdd!JXi!5E^W!;pT+\BsEMN(5e:W3V1M!8.AJQ%LOF0#RiW)\c=cp0Hk[#IPZNpM^'3`i:P[%XYfjXf'c.(PZI6h0)%=UgT.;]dNtlMTl(C]`.u)p7qWfIdR.8psgJ>GG"LKe:6rC^]+9PTFEq4*oB>Veh\:,k+\k]j@P8,iJArrDSh!5,cQ2:Rr.ZSZ@$1>qZ'=9G1q\)gN=3p:Xee<_Cbe3q_/`m(e!@P8,iJArrDSh!7R[K5I0`BkWPmE!8kD>(+Zn2Ks=a:F*2-Waprg!/1I>hrc)`1]&frre&pcrVO)(!97&mBQLT2G:-YF9[TV)Xg/EOMNT^UHE-sDdqRVEV"Z%Bn6^t==dcYi7QodT>^c\5oW#gFM#u\W=k.ADEYW60O2D%,5I0`BkWPmE!8kDHTRU8gX2"fmfV@PTLf/UE`@@qJQW8$Io'u]`.u)p7qWfIdR.8pshfSU!Ipu2735BU@?Bd)m76dGG"LKe:6rC^]+9PThZBS5Dp26\k'tn*8&,!\C7iV1"=<_!$D"/8=hs5qi5RM4dm2dK!&>AF5"WDLKr>/9>#poJGdX1R.D,78ZiG^<,RP)o@4EW!dY:D2lSIGIrNJ%[7;k>]4T&\$XJ2>tE1RsXV5[VVM.Hc=#*FT/Yri4C0eDI;n?Zlf07X7nf-JA6Bj?\;2%DD`hO\%&Z.n\[J<;-%Qqni@a4W>Y=cX'F2iK'b..UV4.O]8GT%_-J7o>Q`T/(+W_J_WD`e8MtkLKc/*T,U$BPqdTlgK35LEpJ"oS.s!K='N%,IMC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!ZSWd"#>>'s?akO];'fr*@u`O5XD"Q/M\)Wc,ikSs,bN),*CUZ=!C[]!!C[]!!C[]!!FB39CDs!t-.K)lRo0&7Stg-0hFB3Q.ql\@-:q],0&JH*_,q/io.JKuT3Ud@K/EJ;gPMB]odt'Y>DoNrPR&Y!EJ@jjiV-Cs8-^,ePE5q;4I6^r)A\SQbkBE@h7DB5"GIhi6LV-4j`3]Y#WN&'^(?mtXS!M_Ru&bIZg["`MKrEI]O36Bk3bKO\aR#!C=W'6@+6DbD=-o<[moZ>FHd$=EeQ4h7KVs.0L5q`c?!$.I3RQ:e&A/qbq<:tP%ig$P.M^?1%%X0!RLfN-j'>];*Y:!;*Y:!;*Y:!;*Z14ir)qXO2Ms[=jP^4mTV=RU+"Rr!9u#!Qo[1;"6r8H8ijl5gnPe7"Xl/oMt5/5jCI8/LX;*]BD*0KO4a6-TC.n9)m\3e`NNW(22IEO+RSla(P"<&0\cnqBUZU!@[/V6'&37^peYEu^B>EH[4/8HFK5e]rdaflIot$`.;7X0=uQY9Mtp2_2;HlTc<]qW7D%_ego$NaljOW[3=8.KBlHi^f3aB;#@\*etJO_u=5&M05@#?/45i>JY)r&\4=,F>A-AbIraA1DXq*)ico9BO(=UcL09CdRe<[Up*>j5a#tT2B8bfN`CYHc@:Ln<16R?(6[9)rMJ`Fk2h4iEH8md[YuX15QCi;!S!9a*!<''rT9J-&:iF-5@13W[a%\u?]&h6iBF*ThjX)f00KfNWPq>`&O@oG`_`-Lc0Ug5Xq4g?]7"aXkZ`mV"`@;*O8^/$s-qK?d7MIp$!8?c:ZhL\@S#PT"_3'uXHkRA)leNA05D:WsM@^F@7bj;QCo4<(3_="qf,`T*f%D]P?'8d\`PrU2:IfE%N#$k*QmhKVNHoc`.jl>atT^LNRCk5n;4]87$S:FG9A,B:O;TF9Tqe7@,-/Ym-&!%#:`L>g".!7$.U5<@8j6O\.b7g(4Q.+BFboMktn$@Mmg;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1I!;+1J7s4I~>endstream +endobj +8 0 obj +<< +/BitsPerComponent 8 /ColorSpace /DeviceRGB /Filter [ /ASCII85Decode /DCTDecode ] /Height 392 /Length 13892 /Subtype /Image + /Type /XObject /Width 616 +>> +stream +s4IA0!"_al8O`[\!WW3$!!*'"s1eUH#Q]__BEJ5Y!!*Z4!YGJ5gAjS@#R1J<"pG8;#6tPA#RUtS%1EUP$lKZk%hp$&+!)F@*#p(H/ghbc/0c,S-oWS+0JPC@1`n)*4ZG2Z/i,=>s4[N@!=9&=$k!I\%1O.0+WMX\1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1B58m*rl9A"T\W)!10ZOeE%*6F"?A;UOtZ1LbBV#mqFa(`=5<-7:2j.Ps"@2`NfY6UX@47n?3D;cHat='/U/@q9._B4u!oF*)PJGBeCZK7nr5LPUeEP*;,qQC!u,R\HRQV5C/hWN*81['d?O\@K2f_o0O6a2lBFdaQ^rf%8R-g>V&OjQ5OekiqC&o(2MHp@n@XqZ"J6*ru?D!%;)SAnPdkC3+K>G'A1VH@gd&KnbA=M2II[Pa.Q$R$jD;USO``Vl6SpZEppG[^WcW]#)A'`Q#s>ai`&\eCE.%f\,!,AF!'^JXRsV2_T]Y*UV?k-\`o4A1l4,isC9J,TV;0jaBJh;#B-`$BF/q5?GR$*qiT6()f$sgl*-\Iaql6;YT9-(a4I>n$>!8Fpp/b;(>GG6-7Km"1E8.ZcJcY$Be/GJf3K;APXXidNe7r$=kB>/s9VqK0D9d4i;HW3Bg6?V@ZT/W.NPic`Q!r/R^`MLGb8G6j=D_SaM[QR9]B;L';HS4)`";a^@$-SYI<__BB:@N`Ak6J'htp-fn$5N)fmePY5E-YVc)K4?=h6cGpJFK1c/oaW"83ULZ1pj]5>bTa/Qeh:'N%:$$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!/&>e8Ct"b]g1QMh0-osp!7*jE2$,DiP)#3?Qb"("cH"_'lh*4i3()U`cCh-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ijfsEF*3gi;>b-]qW)d]P=cQVSglb5laeIYG$V3Zdd)QP[QJ!11)'kAa4\7$kTa@L8Hi\:HLZ7CDj`%H]6BZ`641Ckoa#nB^hn=@WGk[+IhT&1VVhcJk>!#hqOau]e##kO%Tmi9lqJGM43c2:cIs,MCA'jrlJ`<:h^DRb7_R+d?f@=R7!70e2U5CB>+[m)A!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!#8H#8Mc9CeQI-S=CPrI/;'aHF3hU'<(m(LUL+9+<]jpGU/@p4gqoa0P2pnE$LgD:/UYj?N#A1\cnN`jVqkIMZ`S=l8(L='mM9`,.Z.3$\"o!75N2WhmE+M\AV5es/GFnE:Q`77i#,72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,`!72,cjiQq<7oT/k>L]7?>'rP0J'Xs5I%Va5_F&'#E6<,9:"CkiuG,RC`\NMHXJ38b/n4V`4Lc5+:$aqRu828K&nAFc5rrBcmHH!;1G?3*r7,+K%"0(qrB";i9g,J`/Kk?W.-K<8Fn`-epG^`fnKgG4[=W3?VrlWKR/WU#4PPte3nu>m6d-no%p4Or=?L.E(phB:\=t$,@i!Lm,J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-'[?J@!ibO6k[Q`:E2Pp3M_ZE?.$V(lgRePKSoc"lHt(#qX"7Ye]9>q;bTjC#No83%QmXR`G:8_X24bR:KeiLl]7ub[kt#f%ZK!EYG+l!o+j:rk:$[Uht%M7A\_5(VICtS)];R5:5kr*9/>r!,'##>J^03qS%d;'&7o<1q8i"0/fj/W\n6$9J-Q0`]sOa+94i+W3;!u4*gJeYp@]?hIWM2T.]+U5g4g8aMWbk8Bs^MRV.BIMlegN2`IT;]$r?lb`LSaBVIRg!*13X3)E7UA\H69r`J&&&&g"i4o(XD,tIr/ob[9r%e4YDW2n><9ET+B]3(>UGN/mn@.J&Gao275ePFuVD8.&)Sa'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!@e`jh4-'kcdA"i'.nE[!O?*Gd&%YjC_iCKVX_h*OLHjj$dQd'?+8l1?SH'Bt=4?LrrCCLC!ZlL'MnuUMf^iH#DXq5E'2R\U*m:-8,.NjaF#Sjfogb)jHYj!A6.t4E5VJncFkjCK>k:)peSqLCA+^:hXUN[Ne0RkJbnR&2,S\QofM[#^8!5D[[1;?e"X=_L1qd;Kk3g9$tD@($jT/9lfhVQ!)Z0!!*;8B>m,D)_flm[T\ROLfFOa;hiB#PY)7kQT[K)s;OXR*eu,,;0A!qiVb*`1fTmM_"6lGFIXM,PkZ-\-,diuTSi_R)ZsC,,Drq$\#Q?%IF8Gc8XBODuH"e#;/\3B-3hKn]oiF1/[%eM=Pl;Qc^K'iN'2_15-Q#]L'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED,=ot;hl;GAbq:KSlp/5@3*H@e+6RBOl2But4nl=a?o-6gqfAof2V]28giG0\Gg:F@/W=7Cs8G@b3,F+"DM:T.R@G\pE3/be948Dprp@QQsj?L[.UMY]jAGshT3TF0/L%h)%/*=k_E/M.aim#baG\RP?d0Qq_LB;Z]YpT=8r'N%:!'N%:!@/.K%:D%htim._Q"+1N,Ku[!8VpO$QnAARHm3^5`a]j[D8h5&Mo+00>`;3Q/f9?!X_LDpfZJWTd,A\//%l==(am\T65Hh1GqD6L8rr/.dc[Fj>eU6!.][']SWp/.)l?[goYT1\5L*#3Hn2s^N:IEG8.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!`e2-s286-iV%p%hJKmjgB9:&p0Z,ri>@OkZb68%0o?#;&'R>7fW-DB9eJcu@`To[gZ:b=_l4_2-Zfc<:Xq*ia)8HB+J]1sEFN](^h4V6?mEqDC2ck%T2K/m1,;B:\RDiF*J29;Jrr=7WOoGDf;#^OZ!jq80_Nsa[iQXC>mV16F84o\/!/t_60%C1HpEueS:]X!!:]X!!:]X_qhNMl[knb7daSjo;N8p0dM"_.Cd%Z,e-Q+@%fqZc?*bq#[5-K1hD+O&[2a18oVn(Q@JuKKAK$mm!9<[6a2JAhB7fZCT'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'EOW\chS=JO8AF&rr>;!Vc^YIZF%%/k++*;X>%aZUb++;(fMU13FY%@:L@;ZTE:!!TE:!!TE:!!TE`Jq,]&L7Q%fPh+H#a"I*[R32Y('rp*QG];L0]R5N!gd7_N!1HrK"f4@u8?AM+a*]aTR,@uc?@I16En%^]Xl:8bo[+.$X22H>AXAKZR[#k(Dk(W67Q&5S^A261Uh7`^ihkEeKhh]L#VhU#b=KW%jhQi&o4Jr1tL`$h@;!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!6+H(gijeZe"]@!1ff^=)'F#(llU>R!J_[bIp1R-cOPHGYG?["PX#!EXZ?G1U5Aq!U5Aq!U5Aq!U5As0I!ahqM0uK=B_b@ta6,NFaFg,'O47]do#NSYd0=UB_0A2EV/ZLClFtag$h+&Oo)"JAU8mJSKsmsh%IKsc81%Wb_u02.<$$.Uip?CH.&)7r'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'H5tJ4B&<&"bsKAf`(q[hqbEI:onI\N?.^]+cs.`gtQkC7K[cmjRNg;[\C+9]h3]+9kj!:l1GFJo#5MW#3NbAjuajXb9!4[E"$%heL/rG/Z%a!.2l!+Cm.DpKE)X!0>!RG.nsFNPs2c)751A=Q(Z-C`G/\G939)5Jq6B4?!+&M%!9aKkkQ%?7-ig!!-ig!!-ig!!-ig3K/`O@NP2:H78>K.dN%tZ%78$&LSW>@S>G$Y!+DY]haa?0pq2P7H/cPh%n*2q,Y>0gcmNG/qFa2_0.k/O^oHL@$RU)eqVb:NH&<[n8&#_XIoJPeMArObU0hLLs'glorE.E[>"rQFkT)OU.g`G#s/'2dH0'dd+Cq9b2W?_O1Dj6B:e9Aai"3"mI5/QJUn90k$HP_rgDeU23VVp32-j4'k+2YJMTF;>>BokiYkr26]foXoUgKO#G9U$X7>AcIcN]U;?@e`jpdd+f>FB8-4bp4'dXJm1jN+ZPWJEV5@I4K&_$7MX!$7MX!$7MX!$7MX!$7MX!$I.0Z4$A'gHTT,$q*(cnG6RZHG;dmFYfJaRTu\FXlT-Vh];N?5jEm-ief@T`MXp+L^C<%c'6Vli,@njm,^QZg>MJuHVebRY9(_YS?ZrX30CjUF4bej;d.R?%`"jkG@5)ifb'7G\KQ]5P8Fr_c6;B::BIKU4#mr)TJ-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J29;Jrr=7WOoGDf;#^OZ!jq80_N/ls*7KV[0ZP$;LWX;m/m)p0YUVQ&S-"2\C4HX>U4.q>n9.V\UTeh_@upjrY,-V.eK'k4/7[m=K6V2HYkC9r7@/.1Vrr?A%rrD6a[-JOFQL[E%brOYKC">pJ8u."@VoonG^VB]lYA]2ur+PXbn_<4Ko!.Ifk)/\UD1BNR)40^Y43\]D!6`(PS_3XR^XB]a45uQtj^Zj.-a7[3r-=Eglpj::7&&`3+F"6V>gurGo&&lmn2pIrNhF&![e?rC,kd>,Y8gtELLB5"l?PO@CMJA,.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)58\[8iYLrFEcbT=gV9!5n2u1]W4KHs]KAMJ:9Od0'AYQQ#?ML2TA6"^1&-]gf!_aZ0;;e6c)3q=ok;@_q5u4PoAQR1E"A-pnRqW$%_n,DrFiQEcgUl6J3Rn)T>sO,nA!B.o/^Y=DbJSFq]5XBrmAjprcNR,4iM\PkJC@fc*c*6j/1b^T@5YnrXf)0)/3_AGB]`N5o%IPrrBc)+3KU6d_Y:SZ]Uik>/&*ckA8Tl3*AH)Xb36VtFVmK,ZX2MG;:miVCm2HAVhW'U^#LZiErl'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'EJBn`0TouMUH:;/WGjV":nk1P[j7P<;us+00eY&W;ckTbCBLQ>'*RG2kXne8`@oG(IZ$#mnuI6ai0C0I@VFD&uSg,>04!.0*nCf!Frk?YpMI\Z*SnE9_,qFCL06iR.Z$IbXVcg=BOq>feFp[[5A!05J*WHnLD5TNAor`fC&n_2HdJ2(lJ/Q"&NddolAP3HFQ1TT9hT*''T]GtQIKhqZHH2dk0*Cp,.>Q4]ng=)dH0Jtq_6MAqRO$^Si[h)/U8T0P5Wos@botm0.rMb)B!'hPprr-.%!:ecu?.="&1+0W?ZdU2+L*Iu8?=1C[^c=M.09M:j+%hm;g6Lg(T\=,sg4.a&\4uu'BCefN'`HgMWcCQ=#R"cS!5I6STC`06J+)L6rr=(<+&^Vur%>Q,ppC\nOZ2%U\LFnHhK/`^IcIVKW[Is*qbm%bJ3&bir3u\+j0X;N?@U<,;?$X2QN$s_G-pJ+$s5A=;.dBqka1ZU8dk\_^/['>+TCu8i9.jPoFq6)C0lD:#>tL$^R"m"r-#I2TFB069@*G7l9G%6hu<\:e.u5RW0S4`H(nZfFKm6^ea;kPJ[gct%Ps]n[]#i-cg=BOq>feFp[[5A!05PF)O@>N>*q->oo3N0E*hEQRhu,iH.R%'gS+HaW[Is*qbm%bJ3&bir3u\+j0X;N?@U<,;?$X2QN$s_G-pJ+$jc9>doj5o3YhYpQS#j)-k]bI.+/d$hXpWalW6^U4"7c/7XN0l4kU1Zcp[pY1_!D&k5M7VDFkkPYC'+8bkPrrC)S$Va8n86B/2QgZ;k+U)30)[hg]rF"\=dJ.qO>?"E'BD/1br;^s^qtY11!68g^h+L^o$\Yk60B9WWQpU05pfG;c:[\f3a(&=Q:^1S+V<@dWFW^MVDuTgXB`?MorrA]%U]1=D/cPhGm:js5(q1ELW7+q;1e[M$AL;A&h^k66!'bb\EC8KSqAK;5[4ac."/u5"hogNK4'H`&#&!Y+kPYB<+8bK`rrA)0=RS*PQL!pa"lupFTYRD+Nmu^SKDWs+K:`$3cu.6"_T+SeXebm:i9?X*mBt:'k#EjP%5)S4i;;L4m*Ms,R_'K]fCbd&9fPn6m;m7uWFhugg[e$fDBgoYc>!Z7+)-f1FA6J!mB*Sl!#JqDPH8"phVDo"NLX%cO"10Hd=1*Phrg.->qPUPc5cL2D=a,J!SaN.^KNDQ"LpkBgFnDFX&Wou;"?ktrOWF.pf3C5RG*!WN/-le#mIFkGM^GfB[_0-B%qp\Z/*+H-1dR_noMrY>E1dXT+aj-YnqDRF;1[0m9#._!Db_DL$9ZgDr(p_.(6.utrf'O]O2T]#.FRT/^rGNkPOsgNLnH*uQV3aHVh/+U+2M9+"aj85\%Y%+C[rmZJh1DYcP"kulbA$rT53us!&MoUMYq4q1Ui*EOJi47Xb@mfSDu`mJ)[Rmu5kld=LOIrN.aKp\;(Grr@`D_um2pYCH#?5PWbtET=578Sp"tpdY)d=ULt>4)A@cC`)Y\H,Y(F"W/;F#IU?,!'^D_(2uM-TBi-A-=;8[;Le5J5N-!c?2PXirr@I3rr="@rrFE>WMBlBcD-Tn];##m,PcPrrj#qU<'X[T77Y1H56g`!T>][Aq4#DUgc%$F09$gecOJ0_D8!"s9:V`HD50XLF/Xmb[iSR[jS]sgq1aWnZ&Gji(-Ij%mnVNlT.Vki#'H%',S?qGNZcJ?VQ1Z,<=TrVjJ-ZsMF;+1Qo.&)5!.&)5!.&)5!.&)5!.&)5!.&)5IHol&@=_QBPp[UXS.sR1dNZt>U(BcO3@)o/i*Bi^lMC8J!MC8J!MC8RsnV+@HNM`8D7g,"0h;?/[>7cn#Te\Op76:R@rr@Bdl_5@+=ssBFMC8J!MC8J!MC8J!MC8J!MC8J!MC8SM7\=bqLt-H+>[=O!FU!7N]=iIG(f%U5B_D_:IR6'Mng!'Mng!'Mng!'Mng!'Mng44u'MC:PU7r!(4<.1!(E.>!CW7g>Mdhn96pAi4(kRNcU*7U4>5<$0h0sG`u(WjI9&9$#SY/MJYrt%+B$*AoB>3Cf.hnq%l"qHCEV$TTkak)CFPgX/Y3AD-I^@qrrDEQSmKmXGF+7uY&i=+W2XOrY2Rne0>hd$#DP(6VN%@5/L"7d(b.i\Jian#U5HDImO5+d"Vag)@7:l,!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!#QNH~>endstream +endobj +9 0 obj +<< +/Contents 25 0 R /MediaBox [ 0 0 595.2756 841.8898 ] /Parent 24 0 R /Resources << +/Font 1 0 R /ProcSet [ /PDF /Text /ImageB /ImageC /ImageI ] /XObject << +/FormXob.06da41808571d8ec86d5acf0c91cded6 4 0 R /FormXob.0a593fbc6ba598c33616e1fcb9c0bb46 6 0 R /FormXob.1bcea46b0aedde6fe3a1234c40841d02 3 0 R /FormXob.711cef74a3d023976423588117269d1e 5 0 R /FormXob.cc768689e08309357223b461060589da 7 0 R /FormXob.e3ff9d78364f2abb31bf43802f6a8104 8 0 R +>> +>> /Rotate 0 /Trans << + +>> + /Type /Page +>> +endobj +10 0 obj +<< +/BitsPerComponent 8 /ColorSpace /DeviceRGB /Filter [ /ASCII85Decode /DCTDecode ] /Height 308 /Length 11520 /Subtype /Image + /Type /XObject /Width 448 +>> +stream +s4IA0!"_al8O`[\!WW3$!!*'"s1eUH#QZa_^]OQ\!!*Z4!YGJ5gAjS@#R1J<"pG8;#6tPA#RUtS%1EUP$lKZk%hp$&+!)F@*#p(H/ghbc/0c,S-oWS+0JPC@1`n)*4ZG2Z/i,=>s4[N@!=9&=$k!I\%1O.0+WMX\1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1B58m*rl9A"T\W)!10ZOeE%*6F"?A;UOtZ1LbBV#mqFa(`=5<-7:2j.Ps"@2`NfY6UX@47n?3D;cHat='/U/@q9._B4u!oF*)PJGBeCZK7nr5LPUeEP*;,qQC!u,R\HRQV5C/hWN*81['d?O\@K2f_o0O6a2lBFdaQ^rf%8R-g>V&OjQ5OekiqC&o(2MHp@n@XqZ"J6*ru?D!%;)SAnPdkC3+K>G'A1VH@gd&KnbA=M2II[Pa.Q$R$jD;USO``Vl6SpZEppG[^WcW]#)A'`Q#s>ai`&\eCE.%f\,!,AF!'^JXqC&(g$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7h/U`hdZcDcZ2Hq`Ud_m1MmbAS3B0Ck=pfirjfgXe\NL4mE)[MEAo\Br>F]]0QF03TmXi&(7GnXiXL8g7klpT+G4B'2';O[)OkNIghtG/_H-)'YYiJ<4MGSTb`J?_l:9W/Ym2j4uhlWlVd@V.;EVF?8J\JWo"?b8Y]NnCA&RZZki5f>&%-@Fq3a:%iiQXEh$Ot!"nrkc#2?^o3'NqFZgf..g`U#Y,lKBAWA]?K3[RY_.$LndW,]_oND7eROcZ1nc#G]pjud)(uEt8;[[_WdP"Y!$c@08qC?I]4CO(-n:IpAd;O:0tY`g?Z-o1/j\4/S(-Qb5Q"$"-5"*VG@QD^NU>fVKi78J[W/uP`,"Wq-08a`aYa!F2XSWE&1FK"LL#=]-'1'flC;ejUp:?/:U"%]Z&YkZDCXduO/b:\t]Z3XqG*R(g#N]NBZoqK;`fA]1Vg.&'?h:l+#0Dn`"a;6lUomS5fG@X]X\+s6GDE5"H4d@'b/MS^Xl-Ana^Aq]Z"]qJKt;Gri^kDYecXRX!]F6UldF'+Ee?2g/I!l?K(hJs%Cp[-9gF`=])$E?rS]KLb`mnu`._P`,5X(HCqeATPBk)bO:F4OnV8cKt(r=tQ?>@t.MD`T2g_aIj8-&k(h3"9a!W=EdlGT,FmsGXXh@l6n>&:P"@YSo-@QGO-!/Bf+kn*$"Z:d!>"LNgp5Qh(+0oetA;,6IY7Vc\B0Oa[ENNO(BgqPc)\ka3A9;G!?rr=s&g_DQ;+EDP<)FQ=Ai\E(RR9.e4#%Vqo]S$`Q;'4_\S4acKkFJ#`ndGn1#"jHHFlT^@:U'L73R@!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:oGf'%3:[ih8GAAXbGcdO&:bkt1^%`(e$JVGh/;VC4)&Qb\)$G7^#:Z?@EFup2Z\D\BLb(.[g-*C#47`Sm<3m4^L1A`)\F!P`PrNVAjPJbYQZf"Res`CpRZ-ImiV^s:=^3_:g-.bgq?ljf9d;OuO1W8'!cZ!R#!`:HVGXDORm+DaMpT/jA$ghG!#Amu39;.aep?=3f/,JX.Y`Ffi9$?>(*G/`aBNSAudNbKkU4O+%OMCPt8Zki1;ej-\]3f9.oS5B/;r!?'qS[O;-MM@%)C!#/F;*CeLU[or)G8Rm2'83Lp2Io2*25h]r*KbRBLJr1tL!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAG0lP_Rk"[s:[:&l?B!9u&9L8AC[g9&qsH#ItE`.aZ:D+F3*CH@U8GAbaqW(F0cArrh&mMWSCe5IAbPR-BD?P<,.q6'6C?nRC/bE82j_>]][q1,F5I@5=ad3,6#Br@^oZq:9kQ%D'+Gs>N"3bjJK?>8GegJ%-KSt_YOr*b*rjGC/QrUS5/=/b[;S++P>+R+e4]Zr`FD:!(p<)Bj'lAne"h3E[V-:Qa=*i\lfm+D6_Sh5=p#grCCU*:?AY/u,!l`!l2'=dnDI29q7&G7n,b]kg7W;TnroH>Wk4E[tUL$7MX!38]Q.IW(!>oOg('Ul7fLLZNI%^Im,IQ/C=Y0k05AaIZ=W'g$o,'mj#d>u*u&Z@BJK9V5"=[Dr+t^1Yp_XC]J92A0H0kO,hE^TCDa1j$KZ%\N=,_-hoep>>6Qrr?mtipmN4^Mtki5RBR2o_5KA^sk$+olN:-#[*Sa)e=/,-*dIM;(t(a-KX^HH/mL6^H_r:;*Y0C@_C/b+4qYLmVRF>2f)WBm3'_NpXK1bl#l0=&oH@Jqaf;s!'F0T:>bj;ri1H/W:"cd^#pk`m4ZFn^FO]X7&$EaSM%$R\;]Mq5jS%e2(_DD'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'p7LH2LSrLqNZc=6Tjin`ZOW7l2gTA.pe)5j`IO2q$sfRF^mS0CD6WMaRQOE-!!:;B1Ek];"+YeLMEe;S%Q;J]=bBDpik(GoH2XKmLg;+01f5+Q.#u-XFpW[oj3Mo6HJ$`>pYC27skbPXQR`hhWeE)'^@@m<_`oJlb!WNSAPJ3!pqFaXG-=Cj[4"5E8E56AalY=5IWpGBh)6E?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>@OWG4?f:761%?+F0dGg)<^12mGB*R+RfU9_/.Fra?3l:8=Tb$.FGG7\%rh\"QZA>:oAPhXA[`-S]XoAB@+?`"sT;F(03iDGnN4R&"kk/;_q&M=,;+TdU.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!.&)5!c1):0qU^Mk[+OIP8T>+^84GqT@RkF.:3=EkndBZKhDU%V&c[^EJs9g.%NM#h2ui`O?TbeWS]").LiGB?Xd&It$'JY6Zl)U>5(Z!TMSi6EM#R&1u25aWOPcQ(PJDf1lF/2=MjX.1%QBcF4#AgF"een2HC_fMTp*P@^I03]%.<&9!_?CQ`lr0l92!fAD!!fAD!!/uk<"f%.R7t)]?l%Eo\eJ%=(H3YO:J*:7,Y4fB_LfSPnT4tI^YPM"\0UQ@]A8WL1r;idUX>PuJh?FF[FEE>]WPde`k(:4UCB!CI]\!%/F1b1qd)XqXRa#Z18J@OSG2US:;ML59alLMTtZ$W;80&n$OS''1m*M3^ujH2dfEiS5_Rl/LT&rU:KY5>J+YBQo.56[sD#cAMu['%"p2O3+1TZ.j12$8E6)o[b$Ztl9B8@EWI'W0H=au2lQK?140J-m^!J-m^!J-q=r#juQjJlE7#MH,o5+H-n1;*Z+&JS(*>\^\8DEl?(.-Mqh0]Ih2hL4?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!33VrSStQCQTBQK(:Uf4`ukTl"Cm):eZ(#"+&;>'FqDfuHZaHW`26ba"1UF.DhHe)f=e#goUD53+_L$NSI,UfSb''CMBN]jFPJ-m^!J-m^!J-m^!J1KL0_l-\^BlJX^R0l!Hi/C_fi-WSIg@N2uc^V$oYnJ1a6@S1s3dYjPQ#V71[%C%)Zgh=Q(7N;)\Vu$]85EU95M*:J?5]`?6NAe\*2!X^?MJ-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^+NtgkXkoLYjYO.2Ri.7=Prr@."5YnWM5T98r0;E8`YV*\+H$(_9l#QkG`5mb_.>9%bCfO_l`+/ng44Z$JWp9=u4;Y^VH[+W#D08E'I#(:SZ>\V='"^L.K*B.(1QkK=!:$u5Snjl<3:8'$@sZdn0Vt-1'(jrbp>f8nEGG4a)D6j&+bf?8^Q[cBcZG>hjiumC`2ge@g;F.34dR!+ID*L'5dNqc.^j:ANMCC$j]DRK&O6uV72,`!72,`!72,`#-&Et*ifQSQWE)sEK@Ei`TFM4EZTj,U9g=AMSGe3(N7rZ=ctAN0rr>06lWs1)hCnBXG`,*A);0?;o.?dD"^#ro^\CbL$h5`_J*0MlX8D[=AaqF3r;QcCcd_5.U5DGX;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!;+20!<&[j^?Wp0>EtZY!aAPR]A29:!%8B7kB38hJ)Is3jW_=*tARd%1Ou/+edTr8tIQ7.[`WeI4BE%tK&YP%O[7b;&i\DdSbJ'Mb8nVV6#7RQA4&?K`YSGO45TKIiRq[LC\'rmjAA)i3o(#9u0MS(YqqK^CI5nBaZ1Z),Y&nZ#,]V%H>AM=uFW\,[3<5$.mopJ+;+20!;+20!;+20!;+20!$>6:*$;d1B:u[AEB-_=iARl=j*a'TQRqMC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MSenUg-=O)ec*bSq;5b2Gs?cqkAS'jdXX8iXrG7Kfu7g3-ANnABp2g;dT5%c7d]nk/gA==D[oN%aDZCFn:e9XeYVnACon/Akn_$OHWSl"!,WciRN7/-;Ds:m36:/#)?B.e88VA6PC%1Bm18139&l+pP*rMJo/`h8N=X:J>h2ZOrKhF'^p6%T61to:?PI`'7MCAr^U5Aq!U5Aq!U5Aq!U5Aq]Yt$oP'WA2SNNB3:#d6)91_!*oRZZ1.-SK./n"FVgha[>3DPOt]Vc#:*;QKms0L6ZsC"l!I8J.>K]Bg?h\t=q^78b625ti,1u5F/T(UA-cRBPkh5igf^\E)a/V(?@oqN\rr@TB?Cf^.hmqT@9h/8]b.rTa#W1h1O=6i\!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!6<\,G.H#Og.:7khR;%!1?q)D/ogt1j5.3p$cIeM>=gc_+(r([C#:S8@GC[9EV"bfk6%oqDU8DQ'Mng!'Mng!'Mng!'Mng!'Mng!'Mng4HLHQpml[PNsq>$Q_]"3Vs"29B/DSK:>hjLAWEfT%_\S+dQfgd(Vpf#;]VPhO6ndPof\"rD-\$eHMn,$kfJ\/M?)A)ZTS21rdidIrWg4THP74^4qfDABOQSf'D4dp1DUDUYI_5U[5j^Z5!!D-Y!0#Dc\/)LS1l9VRqg=c?`<]uNY+o\O5D]:])cTjNT"ni?2A#XpqLaNT*?.IbuIdWH)*il`&YE:Z3CG#1XHVkNfnT%b&2^4oYNWbuM04>dh/UQg?bSIB$^.52>19,=KTKSpogO)?ATfZTS21rdidIrWg46u'Z6_^(G0c8QD[!q><<4?eYBEN"DT%XRNb]aW=.NdW36P%8g+$X'2!2+M+rr@W=rrC&R$\.qB+e%ZPf"skE;!=eU9L^oim2rq(PqCbZ)??[bi%GVuLI_((6A!>UWQ47/LS(aL!73f&rrBk/rrD(:"fM8D(@\V$CLK":A8oeC-9u2p(]@E##[bKW=#9,Y$q48K7S_dN*4OS7,3bj6hco!4oN)BL?^0$+`P+"1rrA,[!"541lHg;Dr/^HP]?f)YkT-RNi-YJ(nX>'YrXoT`=X:AYR>eF2B"sNP1R8FJX.TSKiS'3m`h-C0j+;b2ITAJIpn)C:"hi2>`=1O&Nl%&g&]]JWF)]h1r4IoSBKm(FVhj^>!"]\?d\KdY6+_J7r]fIi%2J&iG^JEb`*ta>6)V:!^ob5mHnEYrrA2<;PtYuFAA?H4,tdfVYik)o,?%QquH`snJ#58pWT8g5eW'SFnkt:OkA&dA(^SU7u<6)MEJB'!r8KJb!m>17leVg#IR.sIu#31r\iF_EFH>=G)lMFbCihH9=gWB?G`ke4ZZ%YiD+8`_/edaB!+nBfstLH_([Y8qo5"A)bMjiT!GJjP>CTE:!!TE:!!TE:!!TF?6h-^s3gN]W(Lf\X%^N%&?:`4\)24h2<472,`!72,`',Hg5k5-a,'1-,!-.5"R=\ZT8l)FC]o#b/oV"dgC+&^]-873+WAU5Aq!U5Aq!U5Aq!U5Aq$b^:N+7Idu]$H@!3(P_37g\:E^c;Fhn`a:kRaBbj.2ij>PFVHFq*@qn%70"$!70"$!70"$!70$fl\fX/R3i#7*m,>)$1)46ua#VoGD'O[nE(seh4CKFKmqW-"#+0:->0!M^k$"_rW.-8)W+!<$6@lafjFU0C73+WAU5Aq!U5Aq!U5Aq!U5As1[>T=*pkr]G'@-3mV-`t2?fXN^(^dq],a*JDno+RC4rfK1[RbMf+5'DWC%fuBceEqpk4tDE!1(.L^HXYNf:l,:4!8j''N%C&MC>,!MC>,!K@5W*",#!CrrA\2Q=f^[rrArLl+HWM\,%pLr7tF:rS1e"]5TL6i%q!\hAmuIp2.SDMd#=XTfkU.^`K1<'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mng!'Mo&7f`~>endstream +endobj +11 0 obj +<< +/BitsPerComponent 8 /ColorSpace /DeviceRGB /Filter [ /ASCII85Decode /DCTDecode ] /Height 364 /Length 14612 /Subtype /Image + /Type /XObject /Width 588 +>> +stream +s4IA0!"_al8O`[\!WW3$!!*'"s1eUH#Q\`C9EP8=!!*Z4!YGJ5gAjS@#R1J<"pG8;#6tPA#RUtS%1EUP$lKZk%hp$&+!)F@*#p(H/ghbc/0c,S-oWS+0JPC@1`n)*4ZG2Z/i,=>s4[N@!=9&=$k!I\%1O.0+WMX\1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1B58m*rl9A"T\W)!10ZOeE%*6F"?A;UOtZ1LbBV#mqFa(`=5<-7:2j.Ps"@2`NfY6UX@47n?3D;cHat='/U/@q9._B4u!oF*)PJGBeCZK7nr5LPUeEP*;,qQC!u,R\HRQV5C/hWN*81['d?O\@K2f_o0O6a2lBFdaQ^rf%8R-g>V&OjQ5OekiqC&o(2MHp@n@XqZ"J6*ru?D!%;)SAnPdkC3+K>G'A1VH@gd&KnbA=M2II[Pa.Q$R$jD;USO``Vl6SpZEppG[^WcW]#)A'`Q#s>ai`&\eCE.%f\,!,AF!'^JXqC&(g$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!3=S#rbsTH*Mt5b9]!*q9PanHpn-7u:DBkA)iN72(^-@P=?'.P;L[uge6b96cobSmDC_k_OnCof)ji,1J:g"2+Q9#oN`@$iLJZ1eFsbu[&Soffu]YFqVpI-n\lbK@jn8r)7M;/(m"`(5phNR[6&5Se&3#j4jD?BaP0tQ,d=At*S\s&S07n##7]Hu2+A$.+5D/ca"VjN%"Q1'?aJ9_.G:7ItnH5*r&W[oI/0unD>RX?p2A@I:r"Hb1@N2k`::kW]g#E4?OUB[31Vt^X(Hg'$2]=@:sjb[2\Lr^HcB=S*EOiB]++4p2V&_'ue>$+1%ZaGPE1>@[R(dLm"#CZhP<:)N52SrBEStB_8+^Lr'Ki!orO?.>F._.g]MC>,!MC>,!\F1&;*C%P)'Tu_.G4LfMG7^j%FRFTmltam1/:Q_5(A%NM>a(f$rr>Zi]/uKjkUQ788\89"O$t7@`VNK^R'<D(/hUf)cfG:WJ#J,7^Q=!dAd+#h"0XoAA`b!5kf#PFbR_98/W:0j[11S`DH(HQ-/^urpu>-(L*9BUOe8UTUtQ8!c]5lR%X5rb8&esq(Gq1TM[6&8B,'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED0HM#RJ9=4R.tgb^^P`]Z"Y\a.OUH@jQ4hBHk]L)DphYfpVpouU4sY8F8&!2>?!!2>?!!3AC&62$?ElB1*k\7YZLrft#noiQ[jUY`nIq2dZ:C.1"ij"=B)@gCu2hKON-i_M$EIj\Z1]!\n(Q59=<>U?c@*]B.QDXs]W<"&hSD`omZ(08!kpgH#j'8F3+dc\3I\$inG3^26M,9[==jk?C/jRR'$-&lb2C99Jj;PB@#ctd;4GA0VG/YDokd=Aq_g?7"C=cSF+*9`RiCKWc^SZaA$OKldh^XFX*JO?5cGHt(cYfo!i4n0JWOn;3>JDQ--<"BB:-+bAVL'D&^:eV5:Wo;/("<,`T@qG#i3u4int5p#?.3Tc1A+ZeS/N>r(iu6K`a@&HqrXNlOA>C:R/E?,q:(OsQMq2V_"/`,kQi%QWiRdMPhM'ED!!'ED#b%"o[T;UI`NGOVPuA(L!B=>%_nq#:?ICXFZXr")<#Nr2sjGhk'98%.R[!9/]Y,mSU'X^s-M0E2"u5t)JaE.o!'5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5QtbEO8_Rr?iI^8rrCCTC"?pQrrD+]ec,X8b&@4YciqTcgIq=#[WbR'7N6&dA.AY4aR@3Lkb;DE-E9$jHd-*R]]#']H]"\I$kS-l_#67Ui'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!,h-@p1Bf4E-[MVi^mHC3RRch&]'Am)%=@]=S$Y=7U`mS!\[m"RI%GN17THf]sYR:pXB7Z-SSr1G9oujsa;Vt*pX$dSZl;rF`qg4g).3K0dQRQV`><%!Y_OTdO%+On6j'(q!WH;N`H'[%D.H"^"'SmW0F51:G*odHT2m"X5/0ZfOg;@hHD8dZW+=GbC^B1=3/M/3QLrU0&b$0%$S`Mm.\L/A=WTX>VMC8J!MC8J!MC8SQ4FR3gir8uc?B.7uI'u5nQi'R(&EF2V4tNC%$Gu=^otB@HI52?.$L_G3nKTL(.L7jOoq+,TPO.AF-i/muMC:FcMC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,!MC>,+m=.oK>Jn%,Pnj`hmMN7K,beT?3Lf1Sb2:"DuoUB.-Y,!-mQ+H2'!?1e*Jq:UW6q/Mlo'A^s%Z:.@L)l<0&j$bam41!2J+>,Tht?(ird\YsMXEhKd4["sX^Tpe^21bb<:4YU$Llcs6k"r'p'!#/:!!#/:!!-1::mDSu-^,X5nUQ<6HoHq"o1NE,l$u'cq-1,1fqs>8uGcork?51p5`_!V#JaO57qMNMlEH1]5!pSd9Z3NbaLEM&5T^P[G!nV.8C]4@bd7"`h!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!C[]!!El!=rrA0g=8r9(.DPKW>'67m5PZ&eJ,8`*rr>;@!HQTUhBHk]L)DphYfpVpouU4sY8F8($VQ=/+tkODeuTf0-7DG,^EYGQj4^E(!fAD!!fAD!!fAD!##-#Z"Hfq2ZB.S]'uBeqOKO4aAEW-a]O`>7&3m*Nh]>43pOYWV]Q)r53OgXpR0U!+J!2GhIMq`clU/cY\_Hd?$Ap7)i!Lm,J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-m^!J-meg?dp#dnF!-OU5"#!=XF.C.]!(E9'*-`\BqW:%7kUlqkquR_g8dN0.K)U91g4)N[)A,0RsQj:'Lm&#'X$J-`\KX4u%g^QKn#K-nJQdf$`[Ig.,f.\TB"!!+UuGOu&V/-2++n)io_4o%<5A%E3k2ML4"iFO%*IMPWSR%bh1l[j2CB$Mn!CVk_gUM#RJ9=4P(Ob&@4Yf.Z,2e8Agdc+I(\h;tu`,hIP!QR2nrN!0_FR2>pi-O%'8d+3eSf\QHfe=06L^FhTPR,0pHSlqeM6O-+oAgE,Pl:4M\0i$HT=468'Bm1Ta7S&hV:totH%h[.8^c:MZ:K6^=D)VAl'qV+5E?JQ++dlSdl[X;%5?_MTb7!fAD!!fAD!!ke%Z@I^?_H=,@dIKTTM[@6_Ko?S;,@IXH:qMM^DaUAT+[fQDsd!+UGFX9b1W6'K)r6a_M;;-m;!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!ZS1RYAE@/STdFV(u9U>N"K=gQf3;W>It2!%:Lntdj&Pm@p<:hJLe3WXh=+1S7DaBZ,\(04VRqC?g([XpQf!RSu6FBWl"pCbq%JSON`]9Is:#VUbDq!k8>E*2"13.dm^!-)nbI>]XeX;FZ%%[]3!9^J+eX>D]q%`RPqXU-U!'iAG<]'$=/M+"T+u*6S_f$E0`?C0_-eAI8!iM]"72/Q!72/Q!72/Q!>R/5m=`c/EpqcPRDUGp'^k;T/f7.&gO)5?pJos&n.j?Krlpb_nkI_=Np?r3"P*=&*,QhjcN6SbbSB2VRmfMP'O)$L^O5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5Qqj!5QtbEO8_Rr?iI^8rrCCTC"?pQrrD+]ec,X8b&@4YciqTc8F3'*`7$K-h3k0d:4B?;`uQXUK$r(/.#`.&bb_d\C#2d\X-.JC8tLP?.&)5!.&)5!.&)5!K(@_MXQI!RAL0f8*lMNcT^iNlE$#E>+8Z-.:Qt`gV9:;/RK!9QK3eG$c\2o'=2`Drl%J#55CU@GLAjqt.eIHcr6&>4WVjk2moKiEU4[tEU5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq;6@qeE*D*>\0?%*YZZl+Y)lIrg)'e#AOfZV6$V&@58>)*f&ih#-TAk[0-h*_2'qco8m&!m:p"WC(or`:I\%B6@+81)EYhJ[KLEo,:R7[)kRPFKS$W[]#okf%Od7app,i3(n]VqL4P'J-_b7Kf:2?t*Z^rZ0_Z>7$V3Z%MFQdDn&+qoC#\')#J5Q,K1ij%TR&&cOmFp]PD?!o4&$!BQU%t#'U6!V@^AX91^Ro[/3[uTH-^U3F19+7Pq4N/=2:V(SEYWPgu]5Ur[^!o/1VWjE?dp1'F(Io$,"h^$j-QBd!74`C<4E95YC7"Y*Vh-c6lRA-8BriXlFm_.HA&pfh4G1U`6puJ]nDh`3P%aI+#sA]dTje8;:f#J56)B\kJG`,(AQmf%[0M8II&r$oOm38.F5EmuCaAX74%jiNi[HJ7f1]C1jp256T-C5SiSLK4G*2&].6!T:P=N*9L=r=^ouW?+lc(F9+b^V-5Qqj!5Qqj!5Qqj!5TXq)>j21f'_FO]m`0Lb6_AbaPP?p4/*K+B3f0h2=@(GL#/#%EFf>:X*JQEj,X9EC6='u`t`IY/Yo^g3?X0\R67p3O;'.&D(F'PitXEc!D`M_drd`0Zd^i/9=n1HX>^]lL^<3fOcCog]*q`s&CfWi1l<^J,t*_,.]SdSjeLmuIoL/$GS1DpB[E`IDN`[Z:ddc*oUMp#flWs6ScM@rF_aNQC6p8R6UU5C?!U5C?!U5C?!U5C?$,K0Fue\!c<=TOkP(>(k**3\W2@=0`X^>7`bi+C0d\VuRDl9C^7X0X#nMXsUKTBmYU]$?,PCf?NC9E,!Q%"/hP69FC[o*\HgCIrtNo3ZM%PYjjS!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!*3`grrD+]ec,X8b&@4Yet$DtO8_Rr?iI^8rrCCT!*lnCNqO\C9/,!MC>,!MC>,!MC>,!]Z]:;D5)9]7e%0[K&0J:mt6]d&4l^LdqbHCerfp;iB,+XG>0"Od:9?@k6(!)58k$E%7O%'k1Sts*hS2M6PQL^.4f>H*CD7r_jL-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-ig!!-j#^>W%O:.heFdUQIamT/*[j@a6?jST6[PQ\qYgjSugPCX9M7(BOaK?Qcj)5PYja"Kk8/f5BQ(kHC[OF/Pf'OYb+*RbY8K*qlC&fcFM1Y6e>k^dT]g7J!$M$Gn4g.#02)&HmglA.atsYWYpHa/1kjCZ0,77=@6oe!eGJ;+TkCf^:"u,+-V&R`qk5j`\C(6->D41bV)ZHO]B@I*@M0(MXRQU1s5aGF#]iFa4/P`gL9/M'WquVWEl^PA"E*O3>Qg2:K`g%H#(hq4Q7"e>$e.nT-acaN&(,19.!F&'@Ag7PK,4=0^/c6_[]:)[YkKk@^Ajqe;G6'XGm\@<@SUZL&p9"EG#4,*Zd3khZKodcO*WlK0V/X+Lu##p]qt/pY7X13kk*)5\eBFd,lf9d`Z>Pfm^;g0;X"Bm=&c,^Nu2S.EcF;A`8"'ED!!'ED!!'ED!!'ED#CO@:`8!Tc@(T*B[7\^MWN@sl)2kQ;kj,KJ7jlIE`K:=.kh8;gNW>hnT,H,isErU7o0rcPj2rI$doTYit_DBf0/*V7q_5L21\8"kiIesnHFY)h+_Rb.!ekb;AVcfT9rrA0g=8r9(.DPKW5Sl"(,I3-G'26PQG%R<,3Vp96*-A1F$VPasi[HJ7f1]C1jp256T-C5SiSLK*!fAD!!fAD!!fAD!!fAD!!fAD!#0;]RClY3SL'T"HMXjDQQf6PUg=c3@.e)RVfAt7RWh8n-HL5-cZbpa,Rmq`p+XUQf)0,Bir!u.h3us\\d#3"Gr"@o1Zh]&O2WKoGNF\$$,CmqPn3QM.lMgkWjZ!0hCJM2u8,iQ5^9@P:?;l@;#(S=0-/(aUjNu-umMZp9@ih!gh"Bhf4[EcUD\4pi_[N$E=Cs;sHK;*tf8N]$!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!Qt2T_3Y'HJS'al)N7&X;rb(Y/a>QcEo%o.V>#`55I!=F%#>RMPk%*4#PaY`qcBcJB!n:G])AP[oa>>r8)8'ALX[BpdlV8Q@46IB6G-@DDS8-8,42ef(Q^3Adj21W7RN;:=-cS=mhC"EGI[.uo3FV-_W1sBd/:$FGcQ!0'Y_gG[IF`p24VQEAPt^a.K4Uf6-B:+Y%fV]5$Rs9kk'`_(;n,&%\s?_[7auLpg*SPjDeBRlG+-B60LV1ECqi9bue-tU4EI^;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y:!;*Y[ugduDqGc`=(@bB??5X>#')eS>6%B3Lb,3,\+5V.q*;A_^Jq*/\ch[Y,5POa+rrA)1SJ2*_BrPj($Oa'LrT*Q\+KO8W@<,1oX;lrJ57[X*^!sG[Ydd=h')jtiM1dM-DhWQZV#KlRS9?ct70$qLC0lD:#>tL$^R"m"r-"aFe?qf#7BVJrP'OtL$^R"m"r-#'rgu$mmC!rl4IMUYqb5%4X,T*=P5C;!75?csI='5!0et7/cMbPWQXRqmC>PXlVbB6\j&K5L0a?dG(;9/a/Dum0@WHnLD5TNAoqmZS*j0\sR3j7<#G0t6QWJLal^>C*MIDl-VT`mOO4ZhuK.SgCE)9P!p;sFfUJ29Et00eY&W;ckTG5hR?G-g7FS'uR&V;]%URs1)6,Cd$XeC^FHR6'aEHhAIHdEt6WPDd(ZRHJeN#LT^]AFR%,C?PAb\:B$_;EmdoK>;fPZmaLglZSJV*b\&pQZbC*'.LqBN7Y406.iL`8lfuIXe4ctb!q`f*neTeY:jHarr>3R*<*+k4E>gKO7,@;SGrR,L\_ThT1'M#NkY/Grr@T(niYKKIO*`9,+D-/.^DPm`/6`hE9$`iAO^Flp:%t^+LZi/7rYaEr[t\Q*I@[,a3o'X1)nu(/_9(CVn2F2'oN2k69/X>)iObOf:(4;ob_h"0&$:.Fc(8N'uh,>62(U,r?sFDinh&oj8N["rZUh0DnWeJ%MTM[5p56I*i.k)N]?+_V+<^Oj#(>Y_Ouj2/cHLK1f,i@9<8rdcT5DLpr+On+2[TSZt]_O3!r,qg"W*=3'Z6n2*_!cSga'cl2L_gJ,UY(ljl]B-m,jlrr>7_!#Bk@*]*=cC.,cL\WlMk)"(W1`.>dK(`De$pSgZC4@h_%n:obKhbX7P`)hAZ?$1MgRslBt&7U_A@3MLgD:`\_FV+S8@AjH9MS1F..T:X`[DS>\LRSdkl#/dP]c.=P]8918[RdK902TOcF_&-WZ+3#NEs'peH3*O80GArrDMcrrD)%*1f(Y1W^"PKW`^"o'>n>0m8\grEgP+E^.0rorV`a$]D!#DPY]Y4Vpq^_/";)4/=6pN:H68MWb,.h_]q8\dZW8!ptSj>A$hT'C'/.Y?,4X^hT6hrq^E'Ni_pkKs^-=-'L`pKE-j(BA_V3f00UW)r@*eN*[V3JR9E"oBMZH'^li\8SB#6UV]p'!'r?"k+5/A+1V[+!8]\kP.^,(YD:5c(`?E\MZsJE5a@6$ld"anW1DD]Vqg_._B0E7jpeJIhrr>Ashu33I!;p`Hg^d"^%nZrX;>sA1SpMiE]M.l_al+bkeK8k9c@!I8NOeWTjF`Tngio`IiApE=r<\g?pXB-Bn[e1.4Xi'J-m,gkr1Am0q7LS(@rd_C$!mn&)-S\ck$hC$T._E+,9?N*<57pmpkSj%bJ3r=rrDiMGIS]YQl_J"g/7iF`L_K"NP%rJ9OGY,]33o[XA?$fPWT(L]L6K6G10_5-kC#^q*,X65Ob32jp4cn!q-EU\L3*O5Y32ZK[+\.Zt!b6?*q;:i_ks(QZfAF46C44-e%."3W(s=b+k`sEGJ`@VPO@"7roN/,NEh-W&Wf[jDjEcW%eW-U4?!!2>?!".Zd+Rch`FL&Jq&#]2.;[^:6F!A7O:.SjB5K9,HP7n"*l;+20!;+20!;+20!=.8oE_p?jjrrDF*%9?]VKLF9Q_/CR91'AOs?),SP,VP:"PlQb^9mTeRRKBph/k2CJ06VcEb$R5Ch;RX3=`?WZ1m3r'U/-/"qEd?MCF7e\5>[/$n.j-!%=S!!9^bZC$"l/L8KtK*[k@Xc&khf9Z;Rmp;u?`9m569]MILC@YRC1)k#D]<$WS?3!G@ZOp=1Yd8<01'N%:$$7MX!$7MX!$KjN[D*?.8R'uKU.8<^g7M2V:W[.eQa'^nS\iM5Q=&q:F'^CaXlL1D$gZnLd1hroYCMbih@sa?1,p#%u.V%qUEc\TtOumGH'3[`L7Uq+E.#f+'WoJZ;J61r"`D&c'$7MX!$7MX!$7MX!3WB(!gJ<%ONF(Jq)((eFEiC$n=d]$c3AhV/mikK;I\iq,P%g6pI+MPGT$FJLggu"]M?s26LQHr\=t!ceGWO^Tf>=sM?US=c2._dlWi[6aO-H^^JAOI"j1$tY724Ld"Vag)!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!&-(;~>endstream +endobj +12 0 obj +<< +/BitsPerComponent 8 /ColorSpace /DeviceRGB /Filter [ /ASCII85Decode /DCTDecode ] /Height 364 /Length 15117 /Subtype /Image + /Type /XObject /Width 644 +>> +stream +s4IA0!"_al8O`[\!WW3$!!*'"s1eUH#Q\`CKED2u!!*Z4!YGJ5gAjS@#R1J<"pG8;#6tPA#RUtS%1EUP$lKZk%hp$&+!)F@*#p(H/ghbc/0c,S-oWS+0JPC@1`n)*4ZG2Z/i,=>s4[N@!=9&=$k!I\%1O.0+WMX\1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1,:U?1B58m*rl9A"T\W)!10ZOeE%*6F"?A;UOtZ1LbBV#mqFa(`=5<-7:2j.Ps"@2`NfY6UX@47n?3D;cHat='/U/@q9._B4u!oF*)PJGBeCZK7nr5LPUeEP*;,qQC!u,R\HRQV5C/hWN*81['d?O\@K2f_o0O6a2lBFdaQ^rf%8R-g>V&OjQ5OekiqC&o(2MHp@n@XqZ"J6*ru?D!%;)SAnPdkC3+K>G'A1VH@gd&KnbA=M2II[Pa.Q$R$jD;USO``Vl6SpZEppG[^WcW]#)A'`Q#s>ai`&\eCE.%f\,!,AF!'^JXqC;d=`/P7nFa"RYH+%_r\@8u07d6FNJt[b:+HCI1>L`#XRUJW!;A`8"'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'EQ&*aKg&?`,-4'CP9?3Dn%uVq*F(hVf"6[J3C6-kVYLao&fG`%C_^o5i)CBEGtjWNZsQK[A0[7[b@Reg$[DI/EEhRa:Hm:)'6hU[oDFE;&Koq&h+Y?!(Pu*WT="loMJLg;+20!;,)<\NKIMs>"74rS/+(3"4Z6Bp_n8T'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!Eo&_Qr&R<:-;C?9UDt(#SfU%tjU\[3$:f&+mtu%=D4o<>=fuHS(@,h8,So!/_&D^$2j;He#c!(Yb>Wu38Nk=8lP`4+[:!iaH"%rJ8>_)kOsq+,>tG00+&G8e5m3(IVtbXRa`>M&?H[V:.SDqk^0-ar\,gO[+C#=`<-9RfbmUJGnhO5L?2*>!a7Na:i['a;4hS=QLu^+KhZ1E-t^kE:A9\6K`:*lOHM!+![*-9]1lC[VYd6Hsi^\"+4e"B5[U5Aq!U:L4u`VP%IY=#-lXKfFCH&F<1U#_/Pc?T!%]`gkf.Q.[Hh^j6k#t)8k),@Xbt0N(3[79`O(cJ0thG-,\>JSi`tOG1WR1F:]X!!:]Xm4nRC+nT1@BF@r.,4+0GnK7_Ljmrr@na?Yf.:b^a9lh'HFDi;SDWHYR_8o!TkOp!`BYof?A6kO#i\V9X*mKj=RI'lLRS!8`.1_A7ne1%%F)jF2b`9iWKOc<8-+:+r8;727)%'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'N%+!'nPAH7deRU`mVk8"kKGlQAIfP`ZRW)0F*1rULQE!)$cjIK6_eZ\#O+cf?\iqM%.C)1*Ruu3HpIc&QMC3)fbr:NoMBgJ^I>"T"1of[_=B@m3.2i1lI9e%'m2DQJhQki%!dK:fifTid(Sb2>gD//>T>E'Q\l=f+4D[trq_Q)`)7jRWSes3*!V>Nee4/d$A%CEc'#6=U2GN;R'oMJ$W'h;E4)NK`$Aq/pL/t\LTY>QE@M?]PFkjtF"=,$:Ib;S=RE7dAM#Pe`!HLfAdB1_l^XD*HDOlY0/`:"e@Y>_=p*LVdl=d56#fC)cJ.&)jB'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!@ec-Y\CE/_Up>62qT@nPXo.O=AmBqh7S!rhbE*2iS0!F!Q_s&p?YULmlo$4f]P(dF,+X[45oDe1K`Pf]h7i(mJ]HWMMM`1"@r#7AqNdtOgd:P2=C.JR6]qa_.R_/3Fj#fTj#)[7V"g6o'hPFMVs,#egU8rkk1$5`>HTYbTRhZUoCHMNE&#HtV%a$]bLEllr=a,MrNWX/chtE">*Y/O7.X[In],Vq],T>>ObG@$\R73dI6U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Aq!U5Arkf,AeBdET%X*WG2`mQgBM+7oGPP>L;TE:!!TE:!!TFP>g%>XY4K(%1t]LjMXD5ScR#*4Pkrr@!,Fdj&2M_V^!F8UisNoh%c[[%d8;:MWW:doZe_Ps!OomI`Wo@lrX5(op7PgSA!hI,Fej_=\i5KOt172/WZ!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!!fAD!$ssW^f,@qk[!#"S?XDNaXhUEiMTq;eJAEC/=g/1W0p0sA6e(Sde?p;A*;noSk3T9T[t6>Sq?3B),7F.GQ1Y3FhXNf\/B,:DEIT'5K&q\#@q*O7ln;q^.&2fZeKB6cr9DKhO")!j.W`3!Qe'6)S!qC;(aXhC\9O?^[fRJCpGeX.E*LZAq(`"&dQ)W1`Z%MeAnEc+^Y34BJ7ZeiRk$"I%&-_9#pt)ae6\EQnmfr!*!<4oC3qhM!-nX51)al4(DVX]TnOPYBdOR;#&um&ji`UML<`EUtU^FS2b?91Z/D0uVNrQJIt,Gtrgk8]Mi"@TsMn72-.YU5Aq$bjGE1i^r[+B`@@%N-g?>5PV'4l':Dg'-h?Y=O;33L)LrB[QfRZr_5m]^G#>]8sf-VTp`NmZ/QJTT*r`H=T]^+N^_qRV[k`_Xqg"[7%a(bK;Y=5>cRcA*3=Gb"6I6BUp'N%E_$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7MX!$7dc9ej$F@A!/p'[,"M5>MDHY@$3u=!4EBa3@*P@"2X5!kdo$XrQX_iTk'I8KpbjbEQi!ROhiO2j]%=\_j(?>5/_tf;-][dN%StEe8?DWQ@0uOPXTq@DKa+!!4bYo*Qiqa,dO!\!99#2#0"U4kJ>jRSnU"IC,_Ak$\Z-+bF"!hn=5h4I=@'mJlkII$@@9_==,`WU/@$D(`mopNnWK>a.+WV$PJ*B)GWB^V$;*Y:!;*Y:!;*Z1;5N5'#N/tRTW>FNV1&h6I0C)r0??u'5ejqCbc#NeP[Pn:6FpFQ:@"*7T=^7fjN#,?]UsZ9%oHQ15poiOOV-D-.qT!Nk`:Qnq#67Ui'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'ED!!'EQJR_V00c9[k2:>EA.*jLUL&<3rrY=W;+9=FfJjEcHYo`E1ILo=RAjG_)tMTsV@'CH)I*Z7M/T0:27PmoA0r1;J=dGT>=<712@nS8'b7>A8O6nC$RQdbO,ob&$1"g"I35^]g0'2Q">q+c&*TJ9!GE>gjuSl`j5oWlqJ9h_6fRO@Q&_WfF%Ti<)Yl5MTIrFh00Y:q$7kh/1ER]Gm+,+k`A.`-hiF"c4nLIbiO38!joAT$HnR-bG@K-<.T^TetpC1#eU?MtO#2b>.c.U%EO:`)U/Ae+,lRkR.l10)!0E4trr?E.rrAkd*U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?!U5C?$5?QJ'oNME?3_LnSZ,I,$%$J]P$Ao,l,l3T-;EtB7H9SeRY&7],[l/GRXqH(cOM517APQ*j80a3^,H0l5).#6"`&^Aa-:ObcUE'"[NY4LXL!R&k$r:7;m@&Yre?!RN:T`rE?U4HeO]kmVFlj2a=]EM)NLVp_U?$e>7o;V(iapm%)-PX!gr+$4V6mUl,.kUH:r.&:K8.PR3"2UJ;AVHXK7q`:Bk:^oGbWLWimtr20A*?"3fmEG'#^mqtPY"Dj"HPS-8,L"LI*X'`gLT_gEF(=g1&_@+ANd4:>kob%#f.l61k/jo?fG*'(4pPM:t4SH?kBKNPEt8G\&"Y^t-J5lD!i=d.TRV?(80dGfuaEB9t^b"S_@g[Y]0i&U?2h8\9_3',Ui#"e2*rk*lu2U5C?9;+20!;+20!:jEnPM?*7=#lanA2=Wn/dS6LDqo=8Am4BVL@p4=Hq]!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!%=S!!6<\;G]%VK,I`ipL$N2-b(aii9@Ik_hih7ZRAtbX7n!@WYL`^RdWqlgJ-m^!J-m^!J-m^!J-m^!J1BhB0ksm/c'76C:E(O-,.PCB\+89BJ)RHGMk)n@#S2#)\)[JgTaL7hc2:lYL&>ebpmrTs[DDDdn^Gr7nE9)$*ek'sZ(;j3X]P:`hgVNrMCGL?d90!_N.O.?W''RDMC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!MC8J!U:IgdcItp\WM>%NPe<1%_,V1l,b>"7lno_&]=H>I\V<,8<4%7.]3tn],Vq],T>>ObG@$\MYM+l^%R37A_'<FY!A;oHWk.f"B2EW88!ReZXe&;CjJ^QZfAg"SG"$^7a)Sa!/\F\hI]'#U&1?6/.EYAC_qD:L?WBIJWdpe58X>!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!R#`3H&nUa+:W0?XU(=j63=bI5O^O&G*4tk*r(UPSa<+cB(Em"Mf6::M`'q8d*5HD+BtPXP_=o5I>0oIIZ`B\1t9p5R%l[-Ym%U3RM7=[(k.@=gKV(b>t1*eLTQl.2;n0uJ8QR$#W5l8K<17Ll>Kfml'H7!,o'LX=AuA=1W9a_MM\.D-s)B/,&9M0b_gN]jF5j4sVoaHpEuQ4[ER<;fnCq02m*k`N:aIc2#ujtgZ=j"T5+&MP]\CK\;=:2`d(M<+)l!^K8OW4,i^K';+203'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!'N%:!Anmt/&^`i/otU-jC=B84Enr@NFEh>1'jC:9A!*O)ob*i680dU]Ys8I,;*Y:!;*Y:!;*Y:!;*Y:!;*Y:RF_qlTXL?TNGbn<>VmnT9'ER:k:"8&1r*(e?HH5n,nb4;^E2;tBqB)WCHFg=l$k>SeCCA+Q)M>u>6ef*Pi;mUsp-,*9>d&[j:HbPtG[jodQS=trcR2`qp^an%rrCX3gT!CdTC%lVUAcE=^2(K`lh@!572/W^d%ZCG!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2>?!!2@#B)h.c,,>F@Kdf0;ENXM,u%j'>CLY7Og,If"C`A>E?ctOOPf//BnFgfb^$Yu^!NHW>]alY+,;8RtIWPIO>T&ta*4V"cTo)22'hY0G.Iu*9A>?KAB-T60:IeMDZTZ3pVWfdZ2E8/ZZR^_:i,>D]g":"22]!DXGRDVg($nC\Q=WnIEAS1YgCX)u[5Np4\#GW5:;Jn6[1jmQ]$4mAQnQMks_@8Dlm+\=l*8:Fcn2I?mLUu3EK*E)$eY&H4W@dX(hPT)KK)gC0.^t>tU:+HS:[rPAU@o":,eG(f_SJl>p/d:^9"-i7g?Jl^:K7oN%9;+1[472/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q!72/Q&5.M?OF/-br`0Tb.>7sC>ZMriiRt2X9MV,"YEMm$3*8GenA27^]KbEu#<@2VjmF]*5#D4;A,Y8ZnGMV'kc3dZk>`L->"b,Ba0XSGS=q,PQc".RfJr>G(2L.tjfQ92Nf,39)-j@V1Qi+.E6MUDG(KTAJ"!2.o6rr@UAr\SA^ne'86lh/$bSnc`I$sEL.UI-o=-Dt8rbpc.kFI8#'B&%[rPmc@8$D7;14U_7A>'KrL-hu8`'EO+VMR7&/[7&O2,[$rlln4J6NJuVQ4Yi^XIGn-)!5_7"J'_t+rrBj1rr'*RF/H.-HTpjLF;m;BrPbYIo9L^orDERR6L$eVg:]CD$*ejUo6*36K!!8A^CJK`e^qK8%QBtcq_5u:7DfAa)>Tk%KWSZ%(JD%_V:H<]Ldpek"V&(^=#>O?r(rTF?,D]d&j6X%K3EKu"Xj)rSJ2*_5Dlg]B!k%Vlm,`1.-rRM&WMb(O$,7lH[XjOrrBo+TmtF):B(=0V#LE5e"V@IDZ!M0>JdQbVdVA!@m[5O_#YrrBo+TmtF):B(=0V#LE5e"V@H2*Vc=EE],@lS\r7E<;]?#fgA=6h-b;968ji>lOeWO$`jHT[o\6!.d`@1u2*KH=i.!G5$%$DBqRn_f'BD`1$r3@^2sFTTD)EN1/,&\;'G*/":6NBI-LFaVtFc;DJM&W$6aIY5D:p>JdQbVdVA!@m[5O_#Y*t`03@-]jf*qr8*25s"EEdFkNKB.\VmA&IK9,qInd=q[m<45:V!1*OET0/WGqmhPDSk"U'l;nFob?EH/28["QCHC'83)[o@kQG4L4/8;Is`l1;);VZFl977'*6MOaFrb%>7rP,3WR;M!/3oCfSg29pCDBX)m"2N2XYU6"@[GrY\j2BXt_L^S+!"\WXl-S_h(E0F$QOVA+mA_Fq`4VJTkAGVJE)&IS#Ipd[Iu:UM;Z?a`KRP-p?Fd9]PZZo;N-1tgnPoc#7DpFgT;q"O5`]pn$CGIj/QBtci4"3C1[1TB?'<_m!@TB?BKg&.)>Hh=c(bI\,7oWR@\X&!"4!Gf\:M[mJ&b/$3<;qF27OdWCOqP)ubEbOT,eb.,(T'r2H)EiS4,Lhuo=*u8rcf$dJD9VS9:g8=h0C=FBgm%'laMPNgDs>%tb"Nj(@$2?Tn'-K)ZU/0i5Aa3\ATB.Ot:o"P,(^EGGIA,a"lpeVdEp4%Dg!$d_pig,2#8C4K_P(b1oU+.%c^s?nFe:Zb1LGSq8li-qcg:D4hI5Ls(bWaYXr3,lnIq%Yfch;LZrV9giTJ))erq67\0fR&^&$-C#/TE&08P%&VTpm#1j,BT&0DmBY%=c]NO8K64n?.QD'1tL\%C?'7^C1#TT@eHcr<"VN!:Rf)!/1Nh+1(kT?N1#b?A@0Ndb.o$[q6Ef'5lG5K=@f">]m(lia7F9r4L<>mFhL>_R,mF%&U9FOOh!mp4TZWlMuK/H"oSqGi3,mT"O*WWY+-52I/^QV5:WoR)$"u4bO7mc;76Ab:SfF"(ra:UD*t15G-k$5K)Fi-+p>gdn;0a.2dih4(Ei3EKf7Trr@bY4;qYpP,=b#?jrr@a#r$2%sr;s(8n/Xa1JH#U]oDB"'r[)l4/`h4)QHZ[!!/nq!9.d,rXnN3$k4Q(rr<)Kr$d-S*moK$'4_%BJEd%I#Q$IS^B5;O(.X)Y!9a2cr!&Ab!/[ZAr[%>Zm@nmoA;4\]?82SBZ*DBk?>t8Bn,+EA/p$uTA,cOZl2DBH_E4Ll!73(5rr<)Kr$W*LDsr,Z2uG4f$i^4QoY:/1-iX/[3!7[Zj7*V3@t)!O13lWX#]UTcq%:^'Ls1Et[<%K$OpTo'jCC'Gm&g/sr9S3&?J8c)A[At&i\9+[_]Wn/VFQ)(:IPs8"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!"Vag!)*6<9]q7oUXPR.:QB@ka6DMYeB6')!aTJ_oGHGU.TE:!!TE:!!TE:!!TE:!!TFMc:Nq2MU>0lnRmC&WD3b1g&pM&ar:mhZr%#pa*@D)"G4JCNTmt0YQDZj`lD$.TTZ%pM[8)DC^!!@BKmQ9?>Xp&+\F=e_>BU_uLm&sS4R#TA%8lI^ph8&'Dl02@l-s@a>]7gqr5Qqj!5Qqj!5Qqj!5TG6Of+oDeCX"nW5$OFscmQ99RG\GeEY9Zi!]W.l6S8UD3?@L75$NTrI6"H7F3#Vl>@u.$dPE$SfG,Oh[;>+h2OCKrCT6R,GH2BpN*O0("?rT"3&PoV$Xe=8'N%+!'N%+!'N%+!'N%+8"h'P3VKfGc[X(BJ5gj?8\CpVJ3@=[,@6^4HoI%0F%STDl$S#T+g6CG0(EQBt"aLj-GhOd?7Xn-a!Z"$itkYY.s>MIAgFs1&[amQfdZSp?+MYf,<`c)e]]/h&'W\$AL8fdC^nNQ-W]G"-714QMLNU[2-a5>dP*MnZ*j+:_m&IA-:<`JW]:L-9h]Z=t>lKO2H9)>U,(@?ud))\^#KF*P?rmFAYI,'N%:!'N%:!'N%:!EOr$4@qkHD5e_j'(@LT`K07sqnHK!8li>rR3q:=lSh%C]T1#:69Y%S."br\)rlH9;brk;I[_V_7=LQ]Q$%.[C)`?DBD$72a4HRSR_k/C26"J'Q_*1<`]/?VE.)D(TbkPd#*t,p(f<^9!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!)Z0!!WUg~>endstream +endobj +13 0 obj +<< +/Contents 26 0 R /MediaBox [ 0 0 595.2756 841.8898 ] /Parent 24 0 R /Resources << +/Font 1 0 R /ProcSet [ /PDF /Text /ImageB /ImageC /ImageI ] /XObject << +/FormXob.1577948ad13523dd0662ce97901de603 11 0 R /FormXob.158972ddd808f79257e14092e8aa22e6 12 0 R /FormXob.7c0918e9d0391ed727001637de5c25af 10 0 R +>> +>> /Rotate 0 /Trans << + +>> + /Type /Page +>> +endobj +14 0 obj +<< +/Filter [ /FlateDecode ] /Length 726 +>> +stream +x}Ko@ +<] )^T3TXe+fr~lr?5t)vק7|JχB;4ۻ9]1n޾/O|^N /kn_W㺭e|w?vK:RNŢܥ>ɿ{Ke+.I}>b>.ʹoEjw}Vy7?6w:CWh":<sqA+ghc/9=Ǘ5z=s+T ujʾCWoߥ +Qm>٨Fj^aԛ|!71x.C?\?`*^.CFu Q?H?ҟ:G#y#H?ҟX?u?H'?HއDŽυDŽ~__~_~_~_~_~_/J¯+J¯+J¯+J¯+J¯+J¯+J¯+J¯+FoFoFoFoFoFoFoFoN;N;N;N;N;N;N;NNIޟpF1<8rms|vw7> +stream +x |E\s'G'a @ )GB2!\XE\Dd1"*jt=`t]qu5zĤ^U@t]~ߗ{_z]3 RfL]7\y)%usa.]ب_!!yW + DH̫Z\>~ֻޒ>!4Tlpޫ/;Ғ~[ V\]'#4. jo}ܽ9QWxM׳u޺%>@X\+F.mO6*B, +1'qAU("RP]t_  T?,F… O [+U(ˆ22!HCfcE6dGNQr`BQ +G(EhĢ8z!7P~( G(( ( Be( AC04]F B#(4e4Eh&t*DPhDl442Eh@h>ZP5A)8o6P9\e{pjsJ\$1!t*h0:>WUXi9`}-=2L4Mĕ>$+Q337M5q 0ylgxxGx4ãcY^^E' \=E)xO}1p!dscx=zL4pv?B_ t=>@oucQt/.e+ 9+ ߢV|ScܜM[.p $ĐpzH'F/~l[ + O@.iMsQ(NCo1Gm6yZї$ǐ[zL!4N@8u@ "c^Hzؠ"Gubpe~蘐IM|[Gk1,D(Iw4 ܲfOTwfTl]?~B41B,E6,?O_0M]<.NMvzh~,_nq^Z5~ȭL:\^b#6ȸAH"Ji9:9oM t:ݱr7:ۯDhBB)lqI Χ]P|\SL Mo8 +\$XȘ0ִ4CWzmzJ{gΞO; ]M;dWPpz`gX4t@Rc'i!R }e -ܗxqւÇw5kwͧM]Ȣ][ \\s1-7qT:2}! t+D *Ccd:33Φef=2P9{/FzDXcXܱG(Bόr}S4şNo0Q$ roBGs[䭎jʰAЏ(US% +pXJabg|(O28(!O&^r kK7^&бl |fC7o7y6HMj/ ^jr(\@X﷐-$fQXJyoEf52v8ihA azO4ynlϾ^Mc1n}Rן"4~>av,{sP?Cv̿Dxv6J[ł4q0)ngہX'%>锦 +^:=KKL0>7n!c'7a̡:t;ܧ~ա'}l~ر% K4/秞:u'ߔ'zwz䮥 ˖5/5zɅ@oy[lWͮJR_c'&kS,j9MQ^QA}{YBD,!}NpL-U/`(3k̋g+bM94;?wkMۧ$`4s.]sj0,Z S(sdh)fw4^o2>u!L6f'<3uZڜ2T)3*JsYiIYK3'5g3"SR3b<8snBnx0|ee_EgH A\ׂ&[; V`VB&[BP+YDS7 ;P&p${+.?wIz{p=B+# Op(]E܀Z#qWZeB{U%T'(TfȖ<%.}ߊ5X,>~y r3@_(͓DI Q$PdnID . ٔ`0ǻ㛭EӞ@‘˦C4eSgf̞Oo!opB-D + Cq!q(#$#t$'gYԆR Bj. + w}i[^-8Wp׎\1!׿k|x u>(G{d}]#{7Â#,#jtl K E|eXcz 7M0=&>ļ ؾq]wzg׿_3VNxv{8q^9k쾉8\ן9r<5вQZ!}%Fl U*h)%\ nkY"5<3Nscc5^HF<x?؂G86|ɱι6hiUx&qk1 O9m$Ms+cIT¤hp*}%ל*}'NЏ>X翢ᔜ[ܯ?r/^:Uh'& DZY:m\ﶨa\ G[L2l@Q59-X ^/^8gW#4}7y \9<`=Kz߂+q=~@g wx*lO&A #DpKNi8xϷƳu{~ޝOӋOSd?hC ٛhh^+]6p+}K{YA6p0$Cq qBUsяq&6^Co*rPX䝖хt=N]wo7]#8\3ba/%,(xx |W#\Ia;ѝ8k6t{,׈ȧ#(A!J[ /6. K?nxKS$|`" 5[! QҩaJ9FЃmVI "|ZA^Io'%Ajg~C|d #I|00҉O`fqrh1\VŀDX4֓. fGG;l \}.K*ClAB4,!ر<,O {Ĭ4fv ^(r/:Ql辆L +2pfrQ#}{g^>* &Sw Լ 05nlp]Z>0/\ G}8px>K &8xK-Ӝ;n拙uM2ҍnB^f]̈Bd1>Ww`d0x2r fLo??471d3o&km`= 7|xq͒!v,^3^j+s]+{8K_~t-lJ]l} +ReKo~h܏_5&hQEɒ)J%-J$DaWH(UEDWWɂ*&n L C_݄iᷕ}A]aъP-Ekr\Y6jjg`{ 3#@Tc,n[ri2VFSr˥yr-׈MQEQQE *Ճ9zNN()<"oD9.B"]ֱ o8KD[?-=XaIn5;=aZ~"|D h] M$8rHg/[fGEq8a2ȺabVWΞ}剿4656Ef.}c0!dMA+hKGҒXܪ?N~z)7f/CC=ıWDև _f$8^0N=1'B|l$̙Y3i.<|7-7 /(|ފol0}5w4鷣sʙ!(BGUH"kHHF*1f}KW vB ݷwEx¢ʫi3l}W}zOp|I~ocI=f O G*分%$EB_~k {hulv|¾1^1TC|?\g8]qOmϏƒ "Sa,(%/Ƃ>'j&}sbnpl>Y=eiN߬˾Y<=l^g´ڜ.J|?z);p{y!}}'P8<-U pnyV,X-.eɮXE+X%Ƣ?`ËIwzp>'Nz =+q`<^4Qt%L\6ݘP#H 8Vrnj(4p0aad Q([G|vrz +'q9 ?75MwD$8qh'4J"$ M ?f5-\X䴚Xmv&#s|St<WCl M \ c,0 &3=k+jZ0F5"r_=)( @{-ևIWI3 + t :m yGp^O+`±ē3ڎZCh]K2 &1\Ch'زdދVVVEd8E}ȅ,`簰G0;'ꮹL::ħ겲*Epk^kڄ"mEU ƜXPTRX&Y-EE&tti͕֫- +IdZ+|s~:xY+?~x=b,NIex̎D7y"…ȰШ`wX^˪-808"d8TSD + '3moKd95(8ە<5% G;0!9/ %3++o˅<W9q Z~pUɈʧѕ/upC]!]k %<}[ +ujх]χu{ݛDk8mm9^e*jO}3L%̨̘L}\q4mV1#kjkc*Z&hi.Y/]groƘM؝杖Qww"WOVC)(]K>M;=E߼ejl^zW޼װmK(-/+6*46o>(gM(ɋMӾ3_9`n!stM6e\&w|áC,exG +TLt9u+j}F<;iV`,WѪ%Xd/ӛg.?'.ps?:g" ,mՓ9p_+ؼ }%}M|$< Ռ(,H 2qtp3,Y:jiߴc$!!B !!8!R+c<qT$A#ђbA&ʩT%Mq3 a,N +BS2CleEV!bɫT sֲ,RVlApQK Un]5t  t4yq8!N~!P!_z(HQ 6)7#}h*{%dA [fHLϊLfl,~s3I9lݖ\'nS"4؉"58[a$]C +d iV CjBDh̛^[r3!ZՋ˵'GGCZ8` 2NZ --d&9nCƔ +Bp.9ZOvI)Ln`HhIkb򹢀gnPT#`LP! +7K2Mj5\ė; +;;3V!}KmB!{*AF@* {$G$i!.KyX=+xb$bV\$\qDeTFsXey +c5ۍ366!}Fb![`zoe'9Jb+(=E!0G%NV/M4}LY㰎5rm[>##]%[W揄qoU@0{02[Nj|X^.|۱яa>ٸ]G_z4"bD.14HXﴜJP&d@o +FcfǏbWlKo驧~s?_D//SHpy.sl:f7/q@NY =r9_mӾu>O_UFa1fͶםјW#7ǿ\oA!$ԪZc5hho +mHhW@=L_0\;"a>!v>+kkcnoO/cҟuEƌL.).!zE̚;cEo`=pAʨb{.]u[YEx쁕{Ob;{;^I#NVm޸NcYn{32 Γ=1Cz'Bjyݎ_z pO8!1M\ꁉѬo L jXaɒ%4Kdql냛7?(;˿ vmrϾ5v( h;j=mu[C@LᦑV4g9?9Y+5n71#wu<O7n?L{HNMK}N@OCfwGWV͹Uz]Yo{o'A" +桌_Lg9{llKXRL3p'[0n_q6ƿŋaawJgW jqX.l7[`~4\Q帴قe}dKP\V4ZڇFr [c;*Q#X%Wt$(iOZ7~˖C:}qX靋+~˯vhښ:g֔/kd1]tHآlf&ׄ@2՚m7aZZB4*/H+L+ ; ża8nܷ[rgG_@[H10-͑lbl4;NhQ`+[Ady\Hyh70\8&- }}_5_dnDN1z[5j=\R:;Zk^PtsgQm㬙;۝+CelA6nޱvZoZES^qla8V  +x3z8lE΁ d,Vklr +fWyeawǔZaMMx|7t:v͝u/p`xwy09 J-=jZ֩+Tk.-_f;[+Q.aa fw,"[Ղވcwlgιi$bG./y?yO hhEijXF rIi%O3%dP^b $fLJ{MO`!XH),edK^iP',*7 7K)U\=Kl&㴐OxQj u~7h#1]`hwHRB򉀳_հqJOb+@MHMS`A* F9z\(fX[F;lYz4/eE=Ԅ w&<`ֹ_NF?Y+t=9])W#׸쬨>aa52|т];Z}'s:K@66sی̽wm0LV WXo=t wpp1l}}Ee5-]j 3=C|QsٞU,+Rke36VUUSf٪ڥpK5jORd-ٜlI&Pu6<2:^35C!v|r6M6jl8'QenE:1u)ؿ 쩻~|Ӣ{6oƽFFKa޼Hzny웵^i`U)BBS"4#|0 A$XC $bo # 4gL1UA9X\-߄o&7I7:lJ] ~/@xCmD~B -7Ł8h}%달`kt-CȐR18GҖkl0QzC{]J_h!B{$0jl{ DOev[Rl(JC!e1QNL'S)ʕjye\(JrX)ӊMB u:Q3[ͷYVVi)x K&lYl `NT7:H5 SGF __(kߡ!F3g 5Z| ^ B<=:t<݅.}G!;XJllnn&8$mV!hn3 +I~uH!$$SXY+4 +7Ӻq +J$ 4$)%dKeb6v$2e2(#l)['x园7Tcum=h&j W^%|$dv66fK#pfi☧}I!`\ِ1ÿ|'fy Qs?"Q=Ӆ)JܴXXh޴Ƥ+ #0$QI18e~j ++V%/67: B~ǫbq[ M(G`tIlπ0,p+,-P ~fQ5Wp0f܎ÎBOc9˜UIe. $D}h +`QlA;/U1|U/s2{5'#4;Lc}wEܱiꩌXQc9} +QQ(G}˾JݝbOZ;"bW"̮0(E[ݑaˎDT,rڇ5DN`塜TGdIwpڰ~PgΘ|{Nwګ޹鎈;y~غ3M<})RxhEDXFhKA[mu.$fVf;$mtjm~i{.gv; )<_=D&D>aRgsIG}it<i2 *w"c} tL_=.3Or"{r07pJ^*C3- g M&>!0}~Th)h7xW@(mS+%h,HHZ>95 +H4E//hH6 ;x$zG|*Η*i쐇:F~}ʹtV4*TE^=~Ej#2fNK;hku-6Vc;j^cp;8:v X8#|дmA-A﹐+5U68'B\r6Oha_® {.\ 3/wD|ugtULcӮַ^EQ?t5;@B,|21üɯq! b}kq׆@kK"\k.:kc_/|mtL}m_[BB-h6_[Aq“ k[Cx_ۆ*}m +k;24 +բ:գJJHG}P)J4 +[:B47^U$j2Pl:hV?§Y2QuZ#-35ЛQk#|xn +jзC'J8E:@c p+%Шں*>zZjj>w>[R֔&YUUz!ՠz e-*YX=f>G_2I/(mKze^4T/.z8'H +HB#k~[_.`-oH$ =-9}pO~/&>R^[l $ !(2#zë + p hlR@6%76՗zkykp;~+McJk"QVi Y }*p q?LA]x'/zQv) (Vw-h|~ܥEs%x_aZXyՂ.C2JS5RzO 3=U˥_ß1B-@mXO J8 Ӛf#b}*>.{MKسeU +ϔӸVs(?ЪYRNF`>kh?'J2?ǦSum.mw1!gͥYbdׁ +}׺S䧡V6q&ukWsyֺyx:GH3{C6]jO4~ujt#ǫK(ZQF[C95> +F,G6Fd=J9<_~</R>vǸ҇nE>Xr%?'.}УV8tN4p5{ #MzZy񴬛̻k?X}F?:)*2ytƼqCKb4SXj> +4csq)ܒ|U7:Sl +]pW:5o/Gy9qqqt_66wQ|M>;B[y yaJ1wlF*Dw8h +u5.x$rίKqUƹ2u%~k[:sz=!q^y>iUǩ병F_<,XǙግ3ΊT# \CWw\.Yǭq*ĉh2e(#=0:?gg>bfi|l6 0m{\̓l_?(2Y{ bY1"n;9i\'V|D?fe? 1x~>< rG 29 +0gd,~8?8oВ10$a`4tރ4u3ˑ3?F{MI$xi?sI'wjXωߎ~0`)\|NC ʆV9~g5veΤn{&`x1oE%#fuunagF.zwsYoύ3+y`mgfuImyα Wlp nx~03eo72F_/~Ea2/)?-˻7fdn=˺x8`ݪ/z1hCUƃy0/֐Qccj_k\U_Tzԃ.μs \~V=g&_ Zϫ^¢ՕԕԭUaf]IaJ%fk u%u.;u%'պR[_eo=J?}dύLեKW7;%'wvI:l_eLEUʤ*_2iBIU4΃)uvՎKvvՎuՀ#_lY;KF(/bʸtzW뭪]Upu zeu]m}L/ֳ }cUwMƪhZS%Z=Oi?\\٠%ezmP4[_]U6z/5HOځ,x 8V?ϛ7%5:o}1GʟgO+(̞4IXN(͆k&'yrhDTn$lBvᨱp527/hz[0B=K/*,59/P/\X0qR6 `ss +a @5`zaEIP\LҊ +FgO*@rλ$CϞ46+/O[40;k˸3&l-gYE@Jȼl7 eT^V$}tք1 AN;4¬$}RA\>f*=< $ml>Fq8@.S4IL"9]&ω9\&?}2k?Ş8:;+NbhG_ЮKuL}mFF ߙĵpcjpk a ,Gûul h7D"-l`^edQetյFJ`0xY +kDAi`XW_ ,lg4k|a8zl.`_m(U[8ֳX1)W8ğ*48F~^i=s4{xҠ%G^[{ +zj\arAeJ%8*R|}]3.uFFN8± Bmp6:c4Hpίc(?c0?pT?cmy;؆};?cm؂nkV~͊ [Mk +f G\cWV +?{@,s$~y/)̏sap9$S}ioH-#ߎ!ߴ)%)$_QwJhr[5sJZ5?T>K#jom䓻O(|'Qr) %P>%g(y~7T:]F %DK;';m䤛 6[A rAiM3Sy&m^'1Hz7AX9 +FW+/?)B/͒^~B|snY%7yH˝#s쁏=CMd%Pid%۷٤lmq+0jkl&cs?Gɦ{6QrYҽO{WWF)'E{.Zm!kҚ[J>Ltnr%(([(&t3%7ɍ@iu7dEYk)YFRJkbJ-)-dN!5Fꗑ(MjHMn#Umd%)"Uyo&y))HG,I2W#%.d)NEhd6%( 3)rFt%%3lFNɴ62)p0ɔEIA0\7#ä621)M #N2!\d84>˵I$Fƶ19A "md(4NF,4d,7KJF\nF62|ULY22 r%ɠpid 2Iqf+4D=b H) $$)H' $[JBe$>.IoIx`@^$IUk#v h&EnaM\ %MBi!Ll{k uad69W _!6Gj#Y:O]#JhqdZIk4k.';F90|<+jV`{C)-I 3 cX1 +2T0Ȁ !W^T@ffOu_E2endstream +endobj +16 0 obj +<< +/Ascent 759.7656 /CapHeight 759.7656 /Descent -240.2344 /Flags 262148 /FontBBox [ -1069.336 -415.0391 1975.098 1175.293 ] /FontFile2 15 0 R + /FontName /AAAAAA+DejaVuSans-Bold /ItalicAngle 0 /MissingWidth 600.0977 /StemV 165 /Type /FontDescriptor +>> +endobj +17 0 obj +<< +/BaseFont /AAAAAA+DejaVuSans-Bold /FirstChar 0 /FontDescriptor 16 0 R /LastChar 127 /Name /F2+0 /Subtype /TrueType + /ToUnicode 14 0 R /Type /Font /Widths [ 600.0977 637.207 715.8203 674.8047 992.1875 700.6836 678.7109 579.5898 687.0117 632.8125 + 690.918 642.0898 690.918 732.4219 592.7734 678.2227 700.6836 600.0977 600.0977 600.0977 + 600.0977 600.0977 600.0977 600.0977 600.0977 600.0977 600.0977 600.0977 600.0977 600.0977 + 600.0977 600.0977 348.1445 456.0547 520.9961 837.8906 695.8008 1001.953 872.0703 306.1523 + 457.0312 457.0312 522.9492 837.8906 379.8828 415.0391 379.8828 365.2344 695.8008 695.8008 + 695.8008 695.8008 695.8008 695.8008 695.8008 695.8008 695.8008 695.8008 399.9023 399.9023 + 837.8906 837.8906 837.8906 580.0781 1000 773.9258 762.207 733.8867 830.0781 683.1055 + 683.1055 820.8008 836.9141 372.0703 372.0703 774.9023 637.207 995.1172 836.9141 850.0977 + 732.9102 850.0977 770.0195 720.2148 682.1289 812.0117 773.9258 1103.027 770.9961 724.1211 + 725.0977 457.0312 365.2344 457.0312 837.8906 500 500 674.8047 715.8203 592.7734 + 715.8203 678.2227 435.0586 715.8203 711.9141 342.7734 342.7734 665.0391 342.7734 1041.992 + 711.9141 687.0117 715.8203 715.8203 493.1641 595.2148 478.0273 711.9141 651.8555 923.8281 + 645.0195 651.8555 582.0312 711.9141 365.2344 711.9141 837.8906 600.0977 ] +>> +endobj +18 0 obj +<< +/Filter [ /FlateDecode ] /Length 760 +>> +stream +xmKo@=V]gHG"eчJսcd`_=("%: 3 wzZ?K52MT}xR=}?Swh|[y=_GY5z|^wx}XGö nӯr(j[v[|lOC,3T)Tvm9ڮ mRFd^J:gyu?>wr{oFz"Ybp|1nKdp<9xYp|d~D^17kfE~ȏ̘SOkdsBXK6dkj5Eߑ闸kLu?aSOL RfI2f3Óf7MigOKfKZ1ҚgQϕse,28Lo?<zGd2Q{L^?9&Gm QKBg*GQB/ BԪ/  ?;B/ Bԕү+QJ¯+J¯+J¯+J¯+J¯+J¯+J¯+FoFoFoFoFoFoFoFoN;N;N;N;N;N;N;N; m_F?S?<Eg#Ww[kFM jߗ^{: +gendstream +endobj +19 0 obj +<< +/Filter [ /FlateDecode ] /Length 21851 /Length1 40412 +>> +stream +x̽ |E8\U]}=}L29WBBc9Ap$!*PQ 8 ;zח?U=}y ! ZT0rtZFQ= SfT:lRpo8/APnB@fhGh݆4;(4AcQ!D/݉B$t7*F%h2JQ*GS44@h*P%AUh.>-B~z_ R-Cqj@G6ڍpU:(5jGjv8\)·G)Kx }`Α% =*z*)<+;z6Oڃ7BDS+T8&F_(?֢r +TQPsH<q ^N'Jm$u cbLR[PI!t:ƚ̿cIԪN$Qvwqա]½iz.:5( TSz' h1ލd=Q $;Vn :&JyA~FBW=h!lDk'GJ?Gɏ0䴜^Zh*K"F=v?IV1AQ|]zǏ +W (/F$O{t`6dp!Ńnx(+!=6_LÊ)<{^LAFZ.͕QL +Vń-DˉG#)_NQkQ)U7$O:%:^Σp]tv I6 d"(jR%5_V|L ܒI|NP4UpȊL*vh*b($^{{[<# I.\m)TkU pppNJi|MM̫z #5-RKzfVvlG1m&lЫO^ޫ0ڱ +?2ItLC&5fCz$և^zF6΄PK ?_҃|ѹs9xIڻzvځtKa<Jz`il+TU T6aϴdp:Rz dƶrz|Jm?Oj{ +z& dg>POJ.g2p9du[En~mcwv}z] |vZ/7I +z =6@tХЭh{?` AhW,(HV|w `cȗ&8TUQ +a.M@LvU[-n],,m\uc|/$Cb')&cVR/d\MOb|TkЈO5]3c(8p=*N2X 33?ސL}&Tyz'H' Zvd$CX̅{!=4x0!$Dp„I[oSŸq{MF>*(0Dsk.N779Vt!#hY 41wAuH|wvL~}~k3]'Z3Q8J + C!2 +Η쭭gBi=nBiLaxA!9Z5ѶR/'!^:7KJJHtۚysvWc zmkL\mɰeǑMÊ awffjpfa'ބ ZguՓ̙\| |9EYI.uJ.ə4g4|IwsdĤC)hֲPPqy-S\haSTPۚ0#`Ce8DJ!*J#sswv; l5T +ZK*/W*Uv@_7ܿ} AOvgF.y=8Jnž VXaɎEN, ~SB](f՞k|p')ثL, |>}O_ګ+Go(6dY>${m?p|5`kDRhLol%|(MvB.a$;g 5,^A+>)Ͽd%4oRwa~?;Ŀd47o/?1ȏyy \:$h{ մ~BϾpרeO1bAb?s+5!L3\KCc#|grWSp{T ĭn6ݩj(I_joc|kԥ"f NRY0pVJ&HrSXf*;? +'ܲ{7<5w# nyd_G +bDGT9a=Oy!@-V+:MU4Fb7I C$6$So?AOp(<@jZTg1xzB'Kvdo>ocf9]_~Gsq܃w3$&i\]{R}wwm[,3G:fO?ɦ|*^$ yQ +_}ىd[JbJzDGßH0?\%q]$Uofzzc +s'|ؗ}Y8z16@g!.?k AЩٝ27=L7vʔtZ7NѰ̟Z4ӵuʯմׂe0O6 jj4q$u~si* ҧVlRjMݵ {ĩ&լ8).$J0E#ѮhwhL\F +J5;-ۙ20Vu6w~ȌB7MápuwWyA8uKCMMzF??vܶӗw<3wڶyHԿ\_4|)}i*gN|ྡྷO9 z']xP'bX'JH贏&=6Y-2 +Ѭ3SS3,;a TX"n3̛Lz;eWmݰIr~8wNշ>-0'cdrxOtvf&;ڍu+/-z +w~qUxt1hwńY)Pa0oְuS1k-9,QHN #gF\ +ӱI,O̓wxj??GSp\@?}Gx3^~\ٺeп o?όO֟ /ϑ^n=Z#+h/1DB3 CיW'^dNP#bC$04 Hg9zC|#>F %a)<& BPcp=cQަ_8jSB>k<{,lHLп7QۯpC5?k^vLMHh/\t +vCK2L܌ ]گL0caɜdO"s<)Cũ%d8~VDZޖ),TdXGƏp{a6ȗNb{9ŮIy.=ܜ5ڝmS9G +NܠP<3;RԛWHy/[S}''C-_~{[VT-}K^ӟ^YϓSϟZ>.l\8=] 8sqEi::4ξ.tM-\lZgPjB#މ|+bމmw;8>\Ɲ!e>6~f~_/`_ ߊ$*dg]8;dSPNApޥ^sYt'wWd0qpB\<~zՍ<=*J@4!oN8:x'< 9ʼtFxj;INIiABV);,J"*y"%.H2$aE`B}J8 L˺H:} SX<-<!i+emedhh_>D ;a&mE Vm8H*JJzN=yr)\%ƪbB(rՄ׆DZTjI(92$y3![T6<6qÅKǠE#L!m0SaW9ޛ}'L\>s+%ޞ RIunKٲ¢Ifj Ӳ"ܹO*+> 6d8e>%δ^Rb}AgD]RKd.ÜݺvgZ@D3.dґ FRۯ>>q#F Aw7ilr`idRmiQ(e0c FcW?kI|SS_/NMO(~zoլ_Mx@?dްdIͪQT6RG?O">5Ї>>|mOT}ޮcƴY([XrO䯫_?Iv(zw3rAdk5"MА@̢JRun@#ײFdYC4TE "f#gxDsb|tGY φm&J2V$4GB<i>㻇p ]8ݓC_SIw:o lcOժ@AB#,(ZN>=4f_q'X%s*/?׏y0>Q%bڕ8qN}DP\8$]-Uj4lVU/3pmP[u -w}/_I9߁kFZks„JR:tw[%bPσ(\+D*g{ܵuʚXifxVxζ6T?MZ pu/}W?@gy< ,WT>_п!yϮxζţx7bHf]Ԅ\J-EK5 8HVA䞅BNN\HVڶ^ƨy '|ϴy,频Z+n%;^rޏ BLɵ-5>rq->KزֲK9}y0zK7N<_𽯋 EvH|;`9>*sa +.taƐ)3ODUBI҇d[H8HKd*S9)R!`pM*gl1[ʒ7 >:DI>g, b@4?"<">&ךOKO  oyO/Rl\݆i[ؖx,h%c[`F'F3W-C嬌t.K%B!n FRaFoza@TءboHԤh:@[Q'us ;WZ TKђI쑓5[ҦIP[B˴I(&!G ^]HQqPe uB-~JpTsq^{/>/nO*ϗq˟_gs@eM OրI_y(EN%D*qIx OJ+R-"k!k` N66f4B0fNu:QËe +n{8SLK1RmX8scߧc9Vqޠ78G;;mlwfA_D(biB7`eX-C,xgw_v/o +ݲQ/ +'V<ӟ|ѶB9@4a'6lb1b͜8@K%nD'QlB؛9r:PpL^'҅K$p .}=k2^0gy0"reF{}Y `A-Pwꪵ,5QQ#ZE-":h3nfv?ۙ9cCE!XD"! +a4 %$,Hrzbq6d8VOJOqy/,vUxNy#QOԧ'O~GmV._$W? MAr-fb5ظXE%Fb4Sluc~Ƶ!Akц$κj(%DEX{.3lbKMTu6qi#S#㉂$5p0{BVW\'/n󻦕[s^2JY\DSN}!}\x^|l2a0sg c'*g[r=HǷ5_Rx~IAJ08d'UZnWՉB`C߷]8v'Yv }`SRa<B0!ֺFEKJ<Η 2a"6d{܊1Cfhʾ#{}gSPOλxEֻ3G+Nd0Fz՗BD0:7XTNbX)UKRC5OX@ RϼؼZCV +jqiun}z'EK^{3%:vǜ; >_h>B%AgX#A3y~?`T*0؆mʈD$lE0x)\=ҋF܁G?B `3q_%c"@?L<HD>rk*4&."q,NҁsG|O!ޡzbőBS>`*'Tj5 "p6ԩG-2bػq<{O%B"(4ec%/HYGt,r.˩^!PELBb7eVeiP ӕ +>ei)4g t8ֶ$['\ؽk_/nhԣ0u uT-j |'DY>7ޏw]Cki]f-lD +@oւ!xb0[ ֳ t]D+D8z໯8 0L +H>%_+ѵ,_+OsTAP DC 08~DGz09ncK pՃݧvK`{uKk^$rh˧* ~&C##iG +#Ƞ8r~P*3`P/%"ZQ}huxj-5af&[T'(!@'d%},NIMKǧ' Lb}q>/ޗPS[W)/H(HLY2veJ ԥ\L >|(@qlq\822S$vIϒke7>Dj5eƧ/-0iKGڮ`¦cޘIfySS-]^\HϞSRZ?@ ?&W"FMm w5Dm@N-fI1i%[8V޿~8vIl]p_{|1/xv=ooQtIڑsAFMi*)#( EZk,Fm k`; u &,% lZeZxT];}^B 't+J#n~bD1=4YRn_;en!+v~^>Wb{'v^j5 m[NӐbj^,͓xf&³ *zmrvd/-JK`gp0b EJ_"jJtcь_ ot6DGVmiAll"b,^2RT)b8 @(ݵ +T+H"Jx/#q<;ң 2'L3{uơSt~I?S[ry~ՖF+4C{O7߳م4 @TجKx%d4"#Y4ƌ0V^[[sƶ Ζ䁮]s)ڛԋr;Ny]rm.6emk#^{Z/&"{o9Fuք6ڄdoCJh{=2&9)[$3$|$_y躤k](N:&7de +>_7>ߠK^m~?ghmrM93gտп}{߼sdjwSvߧ) "VGy!l W\+vGQ0rƀ>|5dwxk6MĦMlĦM*vS + DJY .#ǔdIy8Y6M"P&ӄbjaDЏJk-&yx@~OHI(D/Hl퉿_mrŶCu:RK W&°i^ʋd0 %~i JI@|ɒS !)FvWx6E + :܎BZ[[UܳxB /$= 2:iDXn,B64u[^~qμ;,xtgc@E/ +/>,So>׶:w8K}4XgufnrָLiHe/"5:Q ;{u{|ށըZZ,/VŦjbbbbbG.b8l +>!||ck;"9`]>5|QA`]_b/=dh~l=T?~KĤvBkBƎH HN6 n9|X&ޗA޿_-p9[ⴠ&U_CC{Ӷ/ˏ +9 wI&ڠ6ɚS|'s#6>q9!CT1NH !=NǑ7@OE>^X`t.HˍHA쵚jܫYБXeŕ0 5y9odڼ\0-RaE=!nnM5$͕%K\'5>1F1՘k,N!&`M B%D5%-u`ݩS>Zz15f^N} +##vMXz ,dٚ}/>Ӂ{t37,u7 ɖXlK}g}@~H**69pR3AN+Q6q1dY֞ }iH*P*&hY02L|ڝNqV&rm!pcX\I6' Zi@ cD +5bRdv!FQJ2lKRx$&H r&j&9GȦJ;B>_?(`Ǖ:ac 6 r&uTf'b;P5N& DFui2T#9( ]# Ժ\#EZFIZvZ6/ڣtn'ǵLhM")Rpn5Ҕ*$IjW}27[ VRĴ BH.T +"Sr^ly +o_;d取O-W-il%-O+S8O Pr+ k-3}F6oՁl٬Yf b'ͳT;2+׭&*6j3ك P8Mn26sf,]wa%$**XB0dYi# mҲIJflaM.i.iDS.jhJ4XZ<>`-H:Mj٦ls_K5ǖ40Obff9Ơ;dP@ ?c?qcE"[itt[Zzm5zX]aZa^mYm]m֚۬j[[l;L;/Z_t|(^VlLb@֏pd ;E[֌#Z73 <wXE*~pP<5 "`D6x׋kIsFoML&ahRlp!JxLBnb5H')wq1)i8YYlZbzuM^aFpj=~`a0KD |#lnF1&/ S[>doY!ą<4's5'7M* .pINYdr +be6t{0;gWL(|7|kj/~~G~Ƕxc)W1~b/m!{vK1?#NXˎK +5۔(;FE"P([coRtDۆ!t{EƹҤ$jP&H ic1j'HA +xSf섊 c兙 ~Fڟ>??6nO.VO6=xZbg(3 +[Bc-ζ/28Ӟ)Ӟ8 eP<=ODԤ/MfW5Q>5^oG9$?Jj|Ä,;oDx<7y٤WT3;iE(eْ='V,Y@&Wg['Xl&/];cנzn1N4٭w'}S_z?; +?^4[@]Ty = H7Ksz^D@hEMธ,"Bq*-rc:mng(88Ox_DQ7(r7 +h_qK-8q4ç$#ջ*/ m5$hϬ*R,d2*Pio\+QoWV۵)}SHr}o ߇&;` ܄BM՝78G~ma%oIXߢxG=fK5?w x~OS^w{ 47ca1~W~ɍ~"˾/2`ؤc}@u?f@ɒ-{%sAciƔˮ]@Os9Gd$fP.x-H()5 vvKj ֋Тfa7YXbЬeok~}\mXv A`\vEYYlW_Lw\#Ч"NV;{=lǧN}kr2_}}JptI{筽Ԓ1u8WWaN~ʹDЛ ,(c DΦ]IRT))F6톆X:`b# k7g5]2z +.d0~?D`u]1]Qʲ1ux1Z/dkBjn-RO` 9yUwXZCEW^хJ*:Hϡj1 bΙFi 6((C[Ǩ/^P>Gf [{TI}azOڏah+݄L6$OAmKT +dB~%ñpY .8c)6GzJq!FT% +mAL]츺Qᨊ7Zs o4Aj˫p`!>>xv^(E':Hr$iQ>3N +=#<0"0eg>WhoCy=6*P6`:>򑀺 =jtGdggn>I6YD6 +0J EiC1RO'$Iʕvcj>Vm'bZej5O0$[fZ>Uf׶cDG̩9'98!lsE*]\?r:9tK虰]{Ā"ވ,Q(jxԓ$zD 11cb#vxؿu[3S"~nBwhb I$)2$MK9%]]~Lŵg0<4dogmf3&pf)ؓ8#PȄ L~ aOe +~̤8PF +rePlq>eBlEOa@فh`DLUx,#2A +>P^) +% I~,!(+(<(P?([ MslG7 1AOEMAp@ɄdhAyf.-9 Y;C}O(݌fǃFUů\̇Rhf:Fc_G %lPB쁑AVƟ(y] m&CӡK= A L:m˔TOFzzgBOUs甕6{JO3gzFVUQeUes旕~h6{tLY3*fOL()2dԲ*Oɜ2ٞygN)U2}6@v-9UPm<׻np͐1C޻s*8g+kP > Jk>r()C`s_3`m Y. +o^B')Icϖsk +v)xz~\;c[tE%`cn@iԕupK8ʚA × ~Vp/ ~?w؏s'b$Qk(e4Y-Ҁ$r:ƀѴ;K]Ѓp8یJkǨC55^W6K!1Oտ)CJ8szz~M ksg%ܮtjȠ\=vciǪ?pЎOhp/m:I3ï/Wtu^@r2N}γ\ {pZDg0kj4n=\KoIvrO03nDU:Vq$9l=J. ȤJk7-oc59#sRC>H48#j q(~oy w +]/7;~qPf=Dcy_F]5ofWA{vFB};@;  ׬| bQ1Tc,cckG Bv;\5#VӠ(;9 ίXX8@ќ7s hGpᾁ A/noqT`# ̟g[ p;zaȣ9f?oPvn=05N9Fx;FEF7Wqz11n}CLu΍CkNhh?ƐaAZ}roNqdF9łi 7uYGg y 2f:c% vȮoPaZ4<vj-ѯa_9ssv;w# +κ]G1[2|V\svvpvl#0l1'܈ڣ +VG& ^ȝT\3c#p߽}/ˈ+KxF5CiVro"߼@[Vp0kxnȃ .7:we`.5Sœ=AyYM۬!}~NrZk15n9N9?僴kAG^A}+n:Nl GlR }$׶l+%# Nڵ-"k])}$-W)]P>iлPg^]ɲb8ㄙjvOؔ|_`>͈*G >ԩvx%>Wb&J%+JlOkĦJ- Ħ Wb+uO^ovKsIn(gf7]bdO21&ga2}Xg݅d+L|X&v,?h,srsuؔs~#6;⇌;bJpG=Qqe2a`|&491>?͎ax`h2TؑW瀖<&l}F^38ɑCi:!Z! ]=H7 c% Kkؚi_lXNLKӍ!}0cXC 94adkRbhe0dZƔaHȐu6BBDBPR:٠E~eŤ!ݰ)ǍWiP-NJl9菽%'aZrj1E?JȽTr'&9XFJre[&RK= 9r n>lXlF'e43BIRk@dwؖZ:M% 474)Zj6i4Re9UWngSzᒫq΍pYͤjg$i<)Wꕢ`Zo(0ÔdXQ\4ҩ.?b<mT#~HxC(]7z@+$QCM<&>jr=4 t/j Bƅ1 tb4vTQiK5 6yYG "\GmA5{z#=᨟tP !+n?A="ή覗"j[rR#񑗤7.5䭁X4RVf3po]!P֠Bi n/oWNNшs)?^xHP!t'}"TGnfi 8c3tO1 VA|8MAE>h{X\/b%vx`%AJm9a%6X%Vbe`X+c%6+Ml2D9-X.9%Vq!K|ΐ+dbgؾ2)!?bua5+tJ":sAGl":BGlJt炎d58a>rʀ&Soq@\~3v[Ýηz>4+p_6 '$XmMsVU\X1k-{+o) yu<`r<>&Q|fW긗D]#pwsr;U\;j~ ܞVnU6t[Rܺ +yܼsLY`1ܾdMefhYr7 +pOAz0Sq5ʵ WӍu\Eʃ++.S lx@KGGKFG.Ė)xp Wa+CV ;H ) "pQ]rQ Q E! xGof \(lW(A," EJDpz*u*!Zӓʺ8Z Ԣ9shh[Fiˣu zUsp9Ksq9-{jxYg6(gqʙ 8JZ^7ě|Z,pZ%NmTNFS%|kT|Xs$8drW+'{N(TJĥToh\(u>JW8qV82ur| 4%POuk]+jGTG@urZRH#H65:%T@w!ZT,ڳHE^ځi_endstream +endobj +20 0 obj +<< +/Ascent 759.7656 /CapHeight 759.7656 /Descent -240.2344 /Flags 4 /FontBBox [ -1020.508 -462.8906 1793.457 1232.422 ] /FontFile2 19 0 R + /FontName /AAAAAA+DejaVuSans /ItalicAngle 0 /MissingWidth 600.0977 /StemV 87 /Type /FontDescriptor +>> +endobj +21 0 obj +<< +/BaseFont /AAAAAA+DejaVuSans /FirstChar 0 /FontDescriptor 20 0 R /LastChar 132 /Name /F3+0 /Subtype /TrueType + /ToUnicode 18 0 R /Type /Font /Widths [ 600.0977 751.9531 611.8164 634.7656 754.3945 612.793 639.1602 589.3555 653.8086 789.5508 + 649.9023 653.8086 649.9023 615.2344 591.7969 915.0391 549.8047 589.3555 691.4062 525.3906 + 854.9805 604.0039 610.8398 900.8789 751.9531 615.2344 582.5195 531.7383 591.7969 601.5625 + 748.0469 616.6992 317.8711 400.8789 459.9609 837.8906 636.2305 950.1953 779.7852 274.9023 + 390.1367 390.1367 500 837.8906 317.8711 360.8398 317.8711 336.9141 636.2305 636.2305 + 636.2305 636.2305 636.2305 636.2305 636.2305 636.2305 636.2305 636.2305 336.9141 336.9141 + 837.8906 837.8906 837.8906 530.7617 1000 684.082 686.0352 698.2422 770.0195 631.8359 + 575.1953 774.9023 751.9531 294.9219 294.9219 655.7617 557.1289 862.793 748.0469 787.1094 + 603.0273 787.1094 694.8242 634.7656 610.8398 731.9336 684.082 988.7695 685.0586 610.8398 + 685.0586 390.1367 336.9141 390.1367 837.8906 500 500 612.793 634.7656 549.8047 + 634.7656 615.2344 352.0508 634.7656 633.7891 277.832 277.832 579.1016 277.832 974.1211 + 633.7891 611.8164 634.7656 634.7656 411.1328 520.9961 392.0898 633.7891 591.7969 817.8711 + 591.7969 591.7969 524.9023 636.2305 336.9141 636.2305 837.8906 600.0977 611.8164 611.8164 + 837.8906 590.8203 1040.039 ] +>> +endobj +22 0 obj +<< +/PageMode /UseNone /Pages 24 0 R /Type /Catalog +>> +endobj +23 0 obj +<< +/Author (\(anonymous\)) /CreationDate (D:20260703100300+00'00') /Creator (\(unspecified\)) /Keywords () /ModDate (D:20260703100300+00'00') /Producer (ReportLab PDF Library - \(opensource\)) + /Subject (\(unspecified\)) /Title (\(anonymous\)) /Trapped /False +>> +endobj +24 0 obj +<< +/Count 2 /Kids [ 9 0 R 13 0 R ] /Type /Pages +>> +endobj +25 0 obj +<< +/Filter [ /ASCII85Decode /FlateDecode ] /Length 1177 +>> +stream +Gatn%9on$e&;KZQ'g*iA@-3(]P!'Rt$5C1Loc])soGJdmG0sRkpH'QJ=gD+hD(KM+UsVh-47D2IU&k4#rnBRRoCLABH]JBQ*(PY,3ck5:r-CL'HbcY'd<\KL9F,Gp!9u\[%Jf_L:Bt/+QUQ&nPAt-Ta5HUdf^&,#^##"rDrI^i:quBBeI*XsqCbf48UsGT+k/l]7CL8kXSGZ@VA7RRK'k+O?c$`M2S(FZ&64LUffH4i;O5oFY.g=/FC\qd:[l"p^WJLA0$NYFrqC1c.'W[.)j"$()DC2Diq9NIYlqH[r4d]7h]J&m8NJVrqT5?'$Hh%1jBiq`r(,'S:jrWG`h*MipNIX#4VF2-iN.LYCI&"^/7=b_?:J%W^SJ0[R<&33HN6taTnk.-bKgF!`t=`Og2iBK'c8112IoWIPlaZl@4/f%6TZM&!=hje?gf;4$&BeUGNS!4hb\E24"r)Wr]r=oA95nhq@][af!:fIA:#U7!&II'"`-V7,N`-,FW$h7s"GIU9$]c~>endstream +endobj +26 0 obj +<< +/Filter [ /ASCII85Decode /FlateDecode ] /Length 552 +>> +stream +Gb!;`4)`k-&Dm45DX7I:m_RMW7@O?IQa@YlG]?Hg5Z$'GQN$iS7+mmm#"Xh,!D/-\qi88bpk],eNQ1-n#OoH[X(qcGkdEam#O&n;a3OX'1a)tu8=C6gTF\nUETY9gIJ;22G//)&^5VgAi^q[Y@X;QIJm\uFOF3e[oU6Mop;mg.V+X.H,RGrsnMWJDU[:@13(*^Q&e!'s,`]?%GpY,aFP0o6TkNRlCVd=$at`W):q87F205Br]GAB5[#eeXD16F/gV^D&7,Obn3N-Y#`i'UKO`MROdU:)`:ssUZ%1_eJ(,g)!~>endstream +endobj +xref +0 27 +0000000000 65535 f +0000000061 00000 n +0000000118 00000 n +0000000225 00000 n +0000015278 00000 n +0000035474 00000 n +0000053600 00000 n +0000074608 00000 n +0000094314 00000 n +0000108396 00000 n +0000108904 00000 n +0000120615 00000 n +0000135418 00000 n +0000150726 00000 n +0000151094 00000 n +0000151896 00000 n +0000171312 00000 n +0000171582 00000 n +0000172933 00000 n +0000173769 00000 n +0000195713 00000 n +0000195972 00000 n +0000197358 00000 n +0000197428 00000 n +0000197709 00000 n +0000197776 00000 n +0000199045 00000 n +trailer +<< +/ID +[<30002700dc996f1d3f86437d77811bdb><30002700dc996f1d3f86437d77811bdb>] +% ReportLab generated PDF document -- digest (opensource) + +/Info 23 0 R +/Root 22 0 R +/Size 27 +>> +startxref +199688 +%%EOF diff --git a/templates/P240_2-51_YakuninDA/118-122_l_Pu240_394-395/l_118-122_Pu240_394-395_gid_Qw1.nb b/templates/P240_2-51_YakuninDA/118-122_l_Pu240_394-395/l_118-122_Pu240_394-395_gid_Qw1.nb new file mode 100755 index 0000000..c62371d --- /dev/null +++ b/templates/P240_2-51_YakuninDA/118-122_l_Pu240_394-395/l_118-122_Pu240_394-395_gid_Qw1.nb @@ -0,0 +1,15821 @@ +(* 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[ 665596, 15813] +NotebookOptionsPosition[ 625029, 15165] +NotebookOutlinePosition[ 625453, 15182] +CellTagsIndexPosition[ 625410, 15179] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "1.487"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.992091380220339*^9, 3.9920914023498554`*^9}, { + 3.992091432390732*^9, 3.9920914336565914`*^9}, {3.992091487909664*^9, + 3.992091509884199*^9}, {3.9920915487606087`*^9, 3.992091575705059*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"51e1ee3b-1506-2142-ada4-49148beae057"], + +Cell[BoxData["1.487`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.9920912460731335`*^9, {3.9920913913099537`*^9, + 3.9920914454062786`*^9}, {3.992091501746458*^9, 3.992091521168392*^9}, { + 3.992091560465807*^9, 3.9920915871378555`*^9}, 3.9921230199512253`*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"ec2b1cc1-84f6-d844-9c4d-a0c1622e7d43"] +}, Open ]], + +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.992090953169281*^9, 3.992090953674198*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"9a1e6247-d6ef-d041-a217-04fe824aeedf"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.992091246132065*^9, {3.992091391344839*^9, + 3.992091445453377*^9}, {3.9920915017833214`*^9, 3.9920915212033978`*^9}, { + 3.9920915605023823`*^9, 3.9920915871716385`*^9}, 3.9921230200111485`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"e2e47008-48c2-1046-af97-35aee60d9198"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "118"}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.992090962010214*^9, + 3.9920909641549644`*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"b1981f79-e30c-0f46-bc08-bc23f24386b0"], + +Cell[BoxData["118"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9920912461812153`*^9, {3.9920913913677273`*^9, + 3.9920914454793377`*^9}, {3.99209150180954*^9, 3.992091521232403*^9}, { + 3.9920915605245724`*^9, 3.9920915871936207`*^9}, 3.9921230200251236`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"5a70f56e-dcfa-984c-b6e6-07f4ddb7cc4b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"2cf4b208-12a6-2d43-9458-3ba8417cd31d"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.991707828219631*^9, 3.9917123414174232`*^9, + 3.992091246203041*^9, {3.9920913913887367`*^9, 3.9920914455115204`*^9}, { + 3.992091501832567*^9, 3.992091521255453*^9}, {3.992091560553467*^9, + 3.992091587215521*^9}, 3.9921230200361385`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"5804ddab-2638-1c43-9156-f9674592d854"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"44509503-dcd5-9b43-ae6b-657d6ac1a4f3"], + +Cell[BoxData["0.55025`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.9917078282275677`*^9, 3.9917123414253197`*^9, + 3.9920912462096825`*^9, {3.9920913913957386`*^9, 3.9920914455344753`*^9}, { + 3.992091501855606*^9, 3.9920915212775517`*^9}, {3.9920915605785923`*^9, + 3.992091587240816*^9}, 3.992123020052801*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"8a6eeb7c-6433-1d47-8e60-4ec266ab2f57"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"5c080ea3-32bb-6249-a84c-4d97dd3d3662"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9917078282485256`*^9, 3.9917123414324265`*^9, + 3.9920912462325726`*^9, {3.992091391402746*^9, 3.9920914455405865`*^9}, { + 3.992091501883623*^9, 3.992091521300558*^9}, {3.992091560585478*^9, + 3.992091587269293*^9}, 3.9921230200658035`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"7f18923b-040c-3545-b655-8601c2a7d2e1"] +}, 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->"5630ec94-a3e3-0543-8c94-ad813bf68fd8"], + +Cell[BoxData["5.6896470325678585`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.9917078282706223`*^9, 3.9917123414384117`*^9, + 3.992091246239073*^9, {3.9920913914237976`*^9, 3.9920914455615807`*^9}, { + 3.992091501905611*^9, 3.9920915213065586`*^9}, {3.992091560607477*^9, + 3.99209158727639*^9}, 3.9921230200795345`*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"9d1479c1-8d44-a14e-879e-2c2b78a318a3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"cab53dc3-45b4-d741-b47a-f58de81d260f"], + +Cell[BoxData["5.753223770057068`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.9917078282785244`*^9, 3.991712341447321*^9, + 3.992091246266403*^9, {3.9920913914307785`*^9, 3.9920914455675926`*^9}, { + 3.9920915019126167`*^9, 3.992091521328596*^9}, {3.992091560630516*^9, + 3.9920915872983055`*^9}, 3.992123020095957*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"5f22ef26-0302-ba44-abfc-e9ba76d754d6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.912564762497319"}]], "Input", + CellChangeTimes->{3.9917123951294365`*^9, 3.99179305435186*^9, + 3.9920909790636597`*^9}, + CellLabel->"In[9]:=",ExpressionUUID->"eb13a85a-c251-344e-98f5-49628a713293"], + +Cell[BoxData["0.912564762497319`"], "Output", + CellChangeTimes->{ + 3.991319649862606*^9, 3.991707828301527*^9, 3.9917123414573193`*^9, + 3.991712407248003*^9, 3.9920912462732334`*^9, {3.992091391454897*^9, + 3.992091445574003*^9}, {3.992091501939644*^9, 3.9920915213345757`*^9}, { + 3.9920915606593704`*^9, 3.9920915873053074`*^9}, 3.9921230201069565`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"9fa98580-3426-7648-8f2c-6bbdf66c3739"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.619150671620403"}]], "Input", + CellChangeTimes->{3.9917124038115807`*^9, 3.991793052797516*^9, + 3.992090983698309*^9}, + CellLabel->"In[10]:=",ExpressionUUID->"b7aa99cf-e8e0-2646-9000-f47826a5fa8c"], + +Cell[BoxData["0.619150671620403`"], "Output", + CellChangeTimes->{ + 3.9913196498716316`*^9, 3.991707828308525*^9, 3.99171234146842*^9, + 3.9917124073213234`*^9, 3.9920912462944527`*^9, {3.992091391461418*^9, + 3.992091445598377*^9}, {3.992091501946205*^9, 3.9920915213588047`*^9}, { + 3.9920915606653767`*^9, 3.992091587327593*^9}, 3.9921230201175823`*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"ee5f1c98-d9f1-7f4b-8d88-dbf62acebd4a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"9a43e466-eb20-c349-aad0-f7d9399eabc4"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.9917078283276424`*^9, 3.991712341478319*^9, + 3.992091246314249*^9, {3.992091391486412*^9, 3.9920914456043663`*^9}, { + 3.9920915019684505`*^9, 3.992091521368332*^9}, {3.9920915606893826`*^9, + 3.9920915873371162`*^9}, 3.992123020130581*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"095ee166-2c94-074c-8c87-575f1f82cc4e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"8924849f-4efb-3441-8ea9-a8131ad1b117"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.99170782834754*^9, 3.9917123414863186`*^9, + 3.992091246321356*^9, {3.992091391511833*^9, 3.992091445629402*^9}, { + 3.992091501974474*^9, 3.9920915213903313`*^9}, {3.9920915606973896`*^9, + 3.992091587358549*^9}, 3.992123020140583*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"0a271413-9305-9a43-a968-96aebff6dc78"] +}, 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->"c8a986cd-c226-6845-b1ed-f25d53b15276"], + +Cell[BoxData["2.3367797709113582`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.991707968406042*^9, 3.9920912463416023`*^9, { + 3.992091391536875*^9, 3.9920914456353855`*^9}, {3.992091501999426*^9, + 3.9920915213963375`*^9}, {3.992091560721428*^9, 3.9920915873665257`*^9}, + 3.9921230201510983`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"517d52f4-d5a3-674b-bc64-0037d9999e72"] +}, 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->"61e96f72-be15-2348-902e-b95bef1b0970"], + +Cell[BoxData["1.7566650946816267`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.9917079684291363`*^9, 3.992091246349119*^9, { + 3.9920913915428715`*^9, 3.992091445656397*^9}, {3.9920915020104103`*^9, + 3.9920915214180527`*^9}, {3.9920915607274265`*^9, 3.9920915873885345`*^9}, + 3.9921230201600914`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"1e5daa67-0d5f-1c44-b14f-fc7302bdda06"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"6c8db003-b459-1046-8b0d-aacf7bcf5e64"], + +Cell[BoxData["0.4127308494837588`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.991707968457081*^9, 3.9920912463708134`*^9, { + 3.9920913915624123`*^9, 3.9920914456634007`*^9}, {3.992091502031412*^9, + 3.9920915214423656`*^9}, {3.992091560753374*^9, 3.9920915873955364`*^9}, + 3.992123020169039*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"86e8e71e-2f9c-5948-8dd4-0c011671075b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"c0d9835e-ba01-d644-a425-af04f76c79f9"], + +Cell[BoxData[ + RowBox[{"-", "0.1731065192411402`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.9917079684650364`*^9, 3.992091246395151*^9, { + 3.9920913915704136`*^9, 3.99209144568738*^9}, {3.9920915020386753`*^9, + 3.9920915214493656`*^9}, {3.9920915607803288`*^9, 3.9920915874025383`*^9}, + 3.992123020183052*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"3d033d3e-75d6-664e-b11b-86b5fbeccb3e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"822bd092-10b9-364b-ac38-0c8ef3850844"], + +Cell[BoxData[ + RowBox[{"-", "0.4062816230025426`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.9917079684860363`*^9, 3.9920912464020443`*^9, { + 3.992091391594614*^9, 3.9920914456933784`*^9}, {3.9920915020645943`*^9, + 3.9920915214756165`*^9}, {3.9920915607873363`*^9, 3.9920915874245453`*^9}, + 3.9921230201971455`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"03197a32-9eec-b740-abd6-081bb36095de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"61086478-44f3-9142-816e-4d817646b2bb"], + +Cell[BoxData["0.6303744483208076`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9917079684940376`*^9, 3.992091246410055*^9, { + 3.992091391600609*^9, 3.992091445718569*^9}, {3.9920915020705986`*^9, + 3.992091521497614*^9}, {3.9920915608113365`*^9, 3.992091587431551*^9}, + 3.992123020206751*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"1cacd460-055d-8146-a728-16fff0275ec5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"36bbc0e0-8c8a-f14c-9773-382765630ba0"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9917079685140343`*^9, 3.992091246419077*^9, { + 3.9920913916226387`*^9, 3.992091445728756*^9}, {3.992091502098713*^9, + 3.9920915215232697`*^9}, {3.9920915608188477`*^9, 3.9920915874605484`*^9}, + 3.992123020216406*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"aa6fd636-7066-c049-bf62-c94331f0c273"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellChangeTimes->{3.9918430951178913`*^9}, + CellLabel->"In[20]:=",ExpressionUUID->"51619abf-47d4-9b4b-aa7f-ed8e6b2189e2"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.991707968535036*^9, 3.992091246425289*^9, { + 3.9920913916286793`*^9, 3.9920914457553444`*^9}, {3.992091502104719*^9, + 3.992091521546232*^9}, {3.992091560843672*^9, 3.9920915874835606`*^9}, + 3.9921230202252903`*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"562ae0ff-76e2-f342-9dde-226cca7fa091"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"e8ab3625-4c98-ff41-bd2a-4380cabf35bd"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.9917079685410557`*^9, 3.9920912464323254`*^9, { + 3.9920913916372147`*^9, 3.992091445775835*^9}, {3.9920915021291866`*^9, + 3.992091521553232*^9}, {3.9920915608516827`*^9, 3.9920915874905663`*^9}, + 3.99212302023641*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"0bd0faad-c762-ee47-a10d-0a8207f9bd70"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"3e9e91c8-ecd3-7547-9f08-c67c9d54935c"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.991707968561041*^9, 3.992091246440319*^9, { + 3.9920913916577415`*^9, 3.992091445800337*^9}, {3.9920915021357*^9, + 3.992091521578417*^9}, {3.9920915608854294`*^9, 3.992091587511568*^9}, + 3.9921230202473335`*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"824dddfa-469d-a147-9f5f-69ca7c28146b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"13f6143e-a294-1a44-8481-e8ec0c34082c"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.9917079685810375`*^9, 3.9920912464478264`*^9, { + 3.992091391664732*^9, 3.992091445806362*^9}, {3.9920915021607113`*^9, + 3.992091521584406*^9}, {3.9920915609120617`*^9, 3.992091587533596*^9}, + 3.9921230202562523`*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"8c8f3fb4-9c88-e04c-95e3-fc1cb2a839ce"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "46"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.9917930777342243`*^9, + 3.9920909943046665`*^9}, + CellLabel->"In[24]:=",ExpressionUUID->"1e64de56-807e-5f48-9109-aae8f8179740"], + +Cell[BoxData["46"], "Output", + CellChangeTimes->{ + 3.9920912464541206`*^9, {3.9920913916852074`*^9, 3.99209144582835*^9}, { + 3.9920915021677265`*^9, 3.992091521614517*^9}, {3.992091560933424*^9, + 3.9920915875599613`*^9}, 3.992123020267212*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"88789b77-20e9-e547-9ac1-8b4f6eee86ed"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431115646553`*^9, 3.991843111569187*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"12c1abcb-3110-5541-9b35-702e2880e2ed"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, { + 3.991644237125025*^9, 3.991644237304865*^9}, 3.9920910015266705`*^9}, + CellLabel->"In[26]:=",ExpressionUUID->"82665774-5610-794b-9343-af19ebbf36d7"], + +Cell[BoxData["48"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.991707968608036*^9, 3.992091246462631*^9, { + 3.992091391693775*^9, 3.992091445837349*^9}, {3.9920915021987267`*^9, + 3.992091521643547*^9}, {3.9920915609663124`*^9, 3.992091587583498*^9}, + 3.9921230202832127`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"0f0e6ea5-9498-134c-9df5-4e5c6c4adc5b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"43d368ca-7cc5-cb47-a72e-72a16a3eeb08"], + +Cell[BoxData["122"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.9917079686284103`*^9, 3.992091246474682*^9, { + 3.992091391720581*^9, 3.9920914458603497`*^9}, {3.99209150222027*^9, + 3.992091521651558*^9}, {3.9920915609955387`*^9, 3.9920915876045036`*^9}, + 3.9921230202967243`*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"dc34ae61-8d75-2f4e-a4de-aec991074b77"] +}, 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->"69631857-3e93-8f48-962b-d79e311ee489"], + +Cell[BoxData["0.10972214504028896`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9917079686354065`*^9, 3.992091246481163*^9, { + 3.992091391726591*^9, 3.9920914458677864`*^9}, {3.992091502227312*^9, + 3.992091521675709*^9}, {3.992091561028263*^9, 3.9920915876295033`*^9}, + 3.9921230203121567`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"c4f8c635-3fc0-4346-ac40-ae13389869a6"] +}, 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->"c2b5dd01-b270-3440-b344-4e3f7685886d"], + +Cell[BoxData[ + RowBox[{"-", "2.564642956376771`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.991707968658518*^9, 3.992091246487665*^9, { + 3.9920913917495956`*^9, 3.992091445888296*^9}, {3.9920915022568245`*^9, + 3.9920915216830196`*^9}, {3.99209156103529*^9, 3.99209158763678*^9}, + 3.992123020328188*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"fd2fa645-9d8a-3549-89aa-934d28b30b2e"] +}, 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.991972093618887*^9, 3.9919720982596817`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"42e9fe7c-3531-db43-b44b-753d7b09e6e8"], + +Cell[BoxData["17.899365062297456`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.991707968678421*^9, 3.9920912464957485`*^9, { + 3.992091391759611*^9, 3.9920914459163265`*^9}, {3.9920915022773495`*^9, + 3.992091521707552*^9}, {3.9920915610422688`*^9, 3.9920915876663055`*^9}, + 3.9921230203428535`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"6c642156-09e3-a64d-ae2d-c4f4942435dc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"15232d79-b562-2743-b703-c588fe35ef64"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.9917079686854057`*^9, 3.9920912465018635`*^9, { + 3.9920913917806015`*^9, 3.992091445936638*^9}, {3.992091502299345*^9, + 3.9920915217152386`*^9}, {3.9920915610632706`*^9, 3.9920915876903477`*^9}, + 3.9921230203598423`*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"dfda3edd-1093-4b4c-909f-188be4f12aba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.196"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.991793106556059*^9, 3.9920910273198013`*^9}, + CellLabel->"In[32]:=",ExpressionUUID->"f397495f-3be4-2d45-8dc9-e47bce79df5e"], + +Cell[BoxData["1.196`"], "Output", + CellChangeTimes->{ + 3.9920912465078697`*^9, {3.9920913917876263`*^9, 3.9920914459436436`*^9}, { + 3.9920915023063526`*^9, 3.992091521742319*^9}, {3.9920915610702686`*^9, + 3.9920915876973457`*^9}, 3.9921230203758698`*^9}, + CellLabel->"Out[32]=",ExpressionUUID->"e758d57d-3b48-8c4a-b76b-e479470520db"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431193859673`*^9, 3.9918431193894367`*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"924aa44e-e680-714d-bc09-d33df054cfe8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.867"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917169698218613`*^9, 3.991717907758713*^9, + 3.991793107839529*^9, 3.992091031242695*^9}, + CellLabel->"In[34]:=",ExpressionUUID->"fd53a751-2574-9543-8d06-c3063423da3a"], + +Cell[BoxData["0.867`"], "Output", + CellChangeTimes->{ + 3.9920912465181103`*^9, {3.9920913918106594`*^9, 3.992091445969261*^9}, { + 3.9920915023426647`*^9, 3.9920915217668476`*^9}, {3.9920915610932617`*^9, + 3.9920915877213497`*^9}, 3.992123020393673*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"eca98b90-302c-4449-a341-650cab59bd04"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843120757866*^9, 3.9918431207603054`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"4dbd4d7e-b600-9d42-9e69-07e52d42665d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv1", "=", "2.100"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.991717916696951*^9, + 3.991793108990593*^9, 3.992091034612562*^9}, + CellLabel->"In[36]:=",ExpressionUUID->"3539c2af-4482-0546-9f46-a3fc5627e0fe"], + +Cell[BoxData["2.1`"], "Output", + CellChangeTimes->{ + 3.992091246526657*^9, {3.992091391835745*^9, 3.9920914459788876`*^9}, { + 3.992091502366289*^9, 3.992091521799389*^9}, {3.9920915611022453`*^9, + 3.9920915877303467`*^9}, 3.9921230204139957`*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"671c551e-a9b7-2140-880f-7973ee2106a7"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431220200443`*^9, 3.9918431220220585`*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"463df9d5-d39e-4648-8f37-4249afa5e486"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn1", "=", "1.164"}], "\n"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.991716995355715*^9, + 3.9917931103354855`*^9, 3.992091037709795*^9}, + CellLabel->"In[38]:=",ExpressionUUID->"5f5a763c-a957-644f-8e0d-38698f3fd1f6"], + +Cell[BoxData["1.164`"], "Output", + CellChangeTimes->{ + 3.9920912465361576`*^9, {3.9920913918577538`*^9, 3.9920914460063896`*^9}, { + 3.9920915023973026`*^9, 3.9920915218073883`*^9}, {3.992091561133566*^9, + 3.9920915877534084`*^9}, 3.992123020431738*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"4ace6427-95ef-d04f-a3a6-1ddd7c43acd6"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431237966404`*^9, 3.9918431238010616`*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"17a6622d-2b65-6644-b343-e379f6f7d132"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.092"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991717006317978*^9, 3.9917931115739956`*^9, 3.992091043143379*^9}, + CellLabel->"In[40]:=",ExpressionUUID->"fae08226-5d13-2f40-8b87-bce8d385afcc"], + +Cell[BoxData["1.092`"], "Output", + CellChangeTimes->{ + 3.992091246544861*^9, {3.992091391881483*^9, 3.992091446029396*^9}, { + 3.9920915024203033`*^9, 3.992091521830391*^9}, {3.9920915611575603`*^9, + 3.9920915877614*^9}, 3.9921230204426136`*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"3f4809f7-5e31-bc46-be9a-e7fc9a8e7128"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431249171696`*^9, 3.991843124921198*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"3731ab86-9ed6-0f4b-9170-2e63032d3966"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.745"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917170151233826`*^9, 3.9917931128910503`*^9, 3.9920910468211155`*^9}, + CellLabel->"In[42]:=",ExpressionUUID->"ddbf80bb-8754-d74d-bcd8-15b09ab81fba"], + +Cell[BoxData["0.745`"], "Output", + CellChangeTimes->{ + 3.99209124655336*^9, {3.9920913919080105`*^9, 3.9920914460524216`*^9}, { + 3.9920915024468384`*^9, 3.992091521861906*^9}, {3.992091561166565*^9, + 3.9920915877864456`*^9}, 3.9921230204563065`*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"e40e10c1-07df-824e-b5c2-da141b7c50ec"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843126102844*^9, 3.991843126104536*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"a5684cf8-f643-4344-ab61-217cc4468b84"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv2", "=", "1.690"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, { + 3.9917170243815575`*^9, 3.991717046491377*^9}, 3.991793114539028*^9, + 3.9920910516142616`*^9}, + CellLabel->"In[44]:=",ExpressionUUID->"c6e6adfa-b3db-aa45-854a-05917a15c0ab"], + +Cell[BoxData["1.69`"], "Output", + CellChangeTimes->{ + 3.992091246563381*^9, {3.9920913919170284`*^9, 3.992091446078829*^9}, { + 3.992091502472595*^9, 3.992091521870432*^9}, {3.992091561191597*^9, + 3.992091587811405*^9}, 3.992123020469528*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"65a56fcc-c8e3-6b4c-88db-4a6447466691"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431274420605`*^9, 3.9918431274461517`*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"1e2435eb-4249-7e41-81f4-31171b52cb70"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn2", "=", "0.942"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.991793116134735*^9, 3.9920910554773026`*^9}, + CellLabel->"In[46]:=",ExpressionUUID->"7b318c34-83e9-604a-a9b2-7f6629abfa5e"], + +Cell[BoxData["0.942`"], "Output", + CellChangeTimes->{ + 3.99209124657098*^9, {3.9920913919423637`*^9, 3.992091446105234*^9}, { + 3.9920915024975986`*^9, 3.992091521894394*^9}, {3.992091561218664*^9, + 3.992091587820408*^9}, 3.992123020482538*^9}, + CellLabel->"Out[46]=",ExpressionUUID->"ef154d48-dae1-ca40-8c8c-811ec46ecb91"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843129570627*^9, 3.991843129574024*^9}}, + CellLabel->"In[47]:=",ExpressionUUID->"3a2429fb-bb8b-9d4f-b030-479fc57cb517"], + +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[48]:=",ExpressionUUID->"4ee1e263-49b4-bf40-a4a9-882d032c6916"], + +Cell[BoxData["1.3673914803678473`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.991707979950527*^9, 3.992091246629711*^9, { + 3.9920913919803658`*^9, 3.9920914461628*^9}, {3.992091502550644*^9, + 3.992091521950554*^9}, {3.992091561270252*^9, 3.9920915878786583`*^9}, + 3.9921230206001396`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"c5471fee-11ae-5148-bd4a-d2a262e9e91b"] +}, 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[49]:=",ExpressionUUID->"d023b0f4-8dd6-4a49-9024-9a69501357ce"], + +Cell[BoxData["5.915425097815979`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9917079908393784`*^9, 3.9920912466771107`*^9, { + 3.992091392014946*^9, 3.9920914461978245`*^9}, {3.9920915025839367`*^9, + 3.9920915219846897`*^9}, {3.992091561308256*^9, 3.992091587913206*^9}, + 3.9921230207718487`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"364258f2-2fae-eb49-b67e-551fb2294f9e"] +}, 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[50]:=",ExpressionUUID->"b2731a76-acd3-8241-b9c8-3635cc882723"], + +Cell[BoxData[ + RowBox[{"-", "65.3826470755978`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.991707995240637*^9, 3.9920912467196655`*^9, { + 3.9920913920504456`*^9, 3.9920914462375107`*^9}, {3.9920915026205044`*^9, + 3.9920915220203133`*^9}, {3.992091561346586*^9, 3.992091587949417*^9}, + 3.9921230209402695`*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"6acf89d2-eadb-fa4d-a479-e1743000b48e"] +}, 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[51]:=",ExpressionUUID->"63750d53-5152-cf41-9a77-f56920963875"], + +Cell[BoxData[ + RowBox[{"-", "125.53393710893079`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.991707999380541*^9, 3.992091246775194*^9, { + 3.9920913920914593`*^9, 3.992091446285513*^9}, {3.9920915026595116`*^9, + 3.9920915220597553`*^9}, {3.9920915613875847`*^9, 3.9920915879934235`*^9}, + 3.992123021305847*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"abfd65cc-a96d-a442-883b-03d29641587f"] +}, 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[52]:=",ExpressionUUID->"30b656fb-53e6-4a45-b82d-938a5e8b7bf5"], + +Cell[BoxData[ + RowBox[{"-", "181.77206655859075`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.991708001954468*^9, 3.9920912468259945`*^9, { + 3.9920913921325283`*^9, 3.99209144632465*^9}, {3.9920915027005463`*^9, + 3.99209152210231*^9}, {3.9920915614267483`*^9, 3.992091588035942*^9}, + 3.992123021483032*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"686e733b-5aef-214d-a950-9d27ce005fe2"] +}, 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[53]:=",ExpressionUUID->"87579211-75ea-2d43-aff0-8fdd1be0f6b1"], + +Cell[BoxData[ + RowBox[{"-", "695.190548511538`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.9917080040838356`*^9, 3.9920912468861237`*^9, { + 3.9920913921795197`*^9, 3.992091446372057*^9}, {3.9920915027450676`*^9, + 3.992091522149296*^9}, {3.992091561473261*^9, 3.99209158808547*^9}, + 3.992123021708004*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"6eebbbe6-2b6c-e941-b95d-61abacb0bfd0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"57172bc7-7934-2d44-9f21-47e3571cc6dc"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.991708067458639*^9, 3.9920912469088554`*^9, { + 3.9920913921995106`*^9, 3.992091446393757*^9}, {3.9920915027683907`*^9, + 3.992091522174301*^9}, {3.992091561495289*^9, 3.9920915881082993`*^9}, + 3.9921230217422123`*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"3849a70b-bacd-4245-8d61-eb0a1c1e5087"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"c109df64-296c-584f-9343-3947e57e041c"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.9917080674805565`*^9, 3.9920912469163704`*^9, { + 3.992091392229389*^9, 3.992091446400278*^9}, {3.992091502799368*^9, + 3.9920915221803036`*^9}, {3.992091561520315*^9, 3.992091588115286*^9}, + 3.992123021770174*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"1d3b01c5-7ed8-9948-9945-16a918a385e0"] +}, 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[56]:=",ExpressionUUID->"45d48833-509e-944c-808a-1d89fec3f581"], + +Cell[BoxData["361.2471433722319`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9917080675026455`*^9, 3.992091246940546*^9, { + 3.9920913922633686`*^9, 3.992091446426317*^9}, {3.9920915028063927`*^9, + 3.9920915222063217`*^9}, {3.9920915615442753`*^9, 3.9920915881375065`*^9}, + 3.992123021794012*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"26ce41cb-a131-4e43-ae90-9f96e9d7f468"] +}, 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[57]:=",ExpressionUUID->"ea6a429f-2646-2c40-8688-b02a128db931"], + +Cell[BoxData[ + RowBox[{"-", "349.7981011803344`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.991708067510544*^9, 3.992091246946535*^9, { + 3.992091392294138*^9, 3.9920914464543114`*^9}, {3.9920915028279285`*^9, + 3.99209152222933*^9}, {3.9920915615682793`*^9, 3.992091588163168*^9}, + 3.9921230218159904`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"a13b0229-5a9a-6647-bedd-7fc5c5670142"] +}, 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[58]:=",ExpressionUUID->"2bfc48a8-dedc-aa4f-a2b7-ca795070780e"], + +Cell[BoxData["454.36412518953205`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9917080675337753`*^9, 3.992091246972496*^9, { + 3.9920913923294888`*^9, 3.9920914464768276`*^9}, {3.9920915028354263`*^9, + 3.9920915222513294`*^9}, {3.992091561598337*^9, 3.9920915881942825`*^9}, + 3.992123021833996*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"3bbc144e-f838-ba40-a511-016c6ebfd9bd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"930aa359-1419-634d-979d-3cfbf13740c9"], + +Cell[BoxData["0.4127308494837588`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.991708067540825*^9, 3.992091246979046*^9, { + 3.9920913923595943`*^9, 3.9920914465043583`*^9}, {3.992091502857462*^9, + 3.9920915222583466`*^9}, {3.992091561628416*^9, 3.992091588216179*^9}, + 3.992123021849264*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"98ad5379-f1b7-b348-a4a3-19f3a5e0b1be"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"6cdbd642-1293-c94e-8040-d9a4b21f4986"], + +Cell[BoxData[ + RowBox[{"-", "0.1731065192411402`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.991708067561775*^9, 3.9920912470023327`*^9, { + 3.992091392382597*^9, 3.992091446511343*^9}, {3.992091502867462*^9, + 3.9920915222823963`*^9}, {3.992091561635437*^9, 3.9920915882387123`*^9}, + 3.9921230218615704`*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"b6447702-69ac-1c42-befb-46a813553c86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"90c1cd94-63bf-f14d-8aa6-fa016f974c6e"], + +Cell[BoxData[ + RowBox[{"-", "0.4062816230025426`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.9917080675837746`*^9, 3.9920912470088387`*^9, { + 3.992091392404505*^9, 3.9920914465343437`*^9}, {3.992091502893507*^9, + 3.992091522288412*^9}, {3.9920915616594143`*^9, 3.9920915882452965`*^9}, + 3.9921230218739033`*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"db2baff8-021c-f347-b2ce-64538e683180"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"97b297c6-20ce-dd4e-b240-af5fb4a06ed9"], + +Cell[BoxData["0.6303744483208076`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.9917080675917854`*^9, 3.992091247032854*^9, { + 3.9920913924115047`*^9, 3.9920914465403423`*^9}, {3.992091502900509*^9, + 3.9920915223143997`*^9}, {3.9920915616654167`*^9, 3.9920915882721863`*^9}, + 3.992123021896143*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"cd64b7ff-4d01-b44b-a034-6bec5cfecd84"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"8b178920-0a22-3248-a51a-25018db09dee"], + +Cell[BoxData["2.3367797709113582`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.991708067612774*^9, 3.992091247040392*^9, { + 3.9920913924180164`*^9, 3.992091446562351*^9}, {3.99209150292482*^9, + 3.992091522321432*^9}, {3.992091561687416*^9, 3.9920915882941914`*^9}, + 3.992123021911125*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"28a6bcdd-7bcc-a749-8b93-037e3fe89d29"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"a9f46b26-b963-0945-a122-8f47cdddee9f"], + +Cell[BoxData["1.7566650946816267`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.991708067619776*^9, 3.992091247064493*^9, { + 3.992091392438549*^9, 3.9920914465698586`*^9}, {3.992091502931345*^9, + 3.9920915223446445`*^9}, {3.9920915616934185`*^9, 3.99209158830122*^9}, + 3.9921230219242477`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"cd9b107a-7d16-0941-b645-a33c7452273e"] +}, 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[65]:=",ExpressionUUID->"c4460c85-e9e9-5b47-b4b5-8a120c4f5d4d"], + +Cell[BoxData[ + RowBox[{"-", "30.830767993153184`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.991708067640772*^9, 3.992091247071554*^9, { + 3.99209139244553*^9, 3.99209144659474*^9}, {3.992091502953377*^9, + 3.992091522351671*^9}, {3.9920915617147236`*^9, 3.9920915883242016`*^9}, + 3.9921230219378567`*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"cb554bce-4e74-d941-baab-e8a373c1d4b0"] +}, 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[66]:=",ExpressionUUID->"6f52c35a-72c0-6a40-a4de-1fe66e6b12b6"], + +Cell[BoxData[ + RowBox[{"-", "18.659127233530825`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.991708067662775*^9, 3.9920912471162415`*^9, { + 3.9920913924683304`*^9, 3.9920914466022835`*^9}, {3.9920915029593945`*^9, + 3.99209152238122*^9}, {3.992091561736267*^9, 3.9920915883505287`*^9}, + 3.9921230219495068`*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"3c2dd5c3-b45e-3744-91a6-29d83c81c30a"] +}, 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[67]:=",ExpressionUUID->"5f84d9a8-b5ba-ec45-a21d-742f1c6fd667"], + +Cell[BoxData["330.4163753790787`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.991708067669775*^9, 3.9920912472323074`*^9, { + 3.9920913924753494`*^9, 3.9920914466254234`*^9}, {3.992091502983383*^9, + 3.992091522409233*^9}, {3.992091561743267*^9, 3.9920915883765354`*^9}, + 3.992123021963009*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"14188b91-5685-c94d-a441-f8f0851bb3b8"] +}, 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[68]:=",ExpressionUUID->"dc0e6255-0d47-9f4a-a7a1-2f5cd2b1f9a8"], + +Cell[BoxData[ + RowBox[{"-", "349.7981011803344`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.991708067690773*^9, 3.992091247257927*^9, { + 3.9920913925043335`*^9, 3.992091446632412*^9}, {3.9920915029893856`*^9, + 3.992091522416319*^9}, {3.9920915617668056`*^9, 3.992091588383543*^9}, + 3.9921230220171165`*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"1d54019e-45a8-de4a-b463-f2c3d5e5e99e"] +}, 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[69]:=",ExpressionUUID->"6d7e267b-31be-5647-9506-8d23d7f1a57b"], + +Cell[BoxData["435.7049979560012`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.991708067697775*^9, 3.992091247289015*^9, { + 3.9920913925103607`*^9, 3.992091446661234*^9}, {3.9920915030163956`*^9, + 3.9920915224431896`*^9}, {3.992091561773327*^9, 3.9920915884085503`*^9}, + 3.9921230220376625`*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"44b31ed4-1d5a-174b-b417-7df2e572f4b7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"b088688f-c895-ba45-9000-5cd0b7365a87"], + +Cell[BoxData["87.42511720990086`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.9917080677197742`*^9, 3.992091247312895*^9, { + 3.9920913925353565`*^9, 3.9920914466682186`*^9}, {3.9920915030234013`*^9, + 3.992091522463722*^9}, {3.992091561798332*^9, 3.992091588416548*^9}, + 3.9921230220541096`*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"1ccd1393-5194-8b48-b534-c651e848bbc7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"709eaad5-e0c3-244a-b98d-7cf0c2e9d765"], + +Cell[BoxData["1623.0724592455672`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.991708067726776*^9, 3.992091247321451*^9, { + 3.992091392542387*^9, 3.992091446690258*^9}, {3.992091503048933*^9, + 3.99209152248625*^9}, {3.992091561805361*^9, 3.9920915884453773`*^9}, + 3.9921230220708675`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"e80bb094-ff67-5e41-a766-4026ef44ee45"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.436538242446606"}]], "Input", + CellChangeTimes->{3.9918455833864365`*^9, 3.99209193256851*^9}, + CellLabel->"In[72]:=",ExpressionUUID->"e6c462cd-8982-3c4a-8614-a4032c2a753f"], + +Cell[BoxData["0.436538242446606`"], "Output", + CellChangeTimes->{3.9921230220811996`*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"638a6b29-5864-914f-8009-d2d295617a6b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991845586273697*^9, 3.9918455862781773`*^9}}, + CellLabel->"In[73]:=",ExpressionUUID->"abfd70d0-05dc-ae40-8117-a301872389cf"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.248236755663187"}]], "Input", + CellChangeTimes->{3.9918455848875866`*^9, 3.992091937358841*^9}, + CellLabel->"In[74]:=",ExpressionUUID->"ab6f3c19-7b16-eb44-924b-0479fa42666f"], + +Cell[BoxData["0.248236755663187`"], "Output", + CellChangeTimes->{3.9921230220993576`*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"6102c73e-4b77-1549-9278-57347a920caf"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991845587327196*^9, 3.991845587331728*^9}}, + CellLabel->"In[75]:=",ExpressionUUID->"6e63ff1c-fb16-304a-8e59-6a9d82a9fa7a"], + +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[76]:=",ExpressionUUID->"764f2b72-583f-404a-86dd-302e46704fa0"], + +Cell[BoxData["1.722331582108792`*^-53"], "Output", + CellChangeTimes->{3.9913335367025833`*^9, 3.9921230221147156`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"8076c605-08bc-6c46-9008-0f94ad030692"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + 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"]}]], "*", "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, {3.9915581188955975`*^9, 3.9915581216343517`*^9}}, + CellLabel->"In[77]:=",ExpressionUUID->"296c29c6-b9f9-1d4a-99c7-5d23057d1dfa"], + +Cell[BoxData["1.6512396330593036`*^-54"], "Output", + CellChangeTimes->{3.991333536726557*^9, 3.992123022139082*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"080b1d35-8854-a048-a706-0b6b144aab53"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + 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"]}]], "*", + 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}, + 3.9915581158968887`*^9}, + CellLabel->"In[78]:=",ExpressionUUID->"da02f8be-1800-4945-83f1-7acaa76423f4"], + +Cell[BoxData["8.569634978288592`*^-55"], "Output", + CellChangeTimes->{3.9913335367515736`*^9, 3.9921230221510773`*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"fa85162e-36ad-7140-a057-29cf420249c8"] +}, 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[79]:=",ExpressionUUID->"c6346807-3d42-e948-8c5a-115ea1f6a2c2"], + +Cell[BoxData["11.847189572801934`"], "Output", + CellChangeTimes->{3.9913335367605553`*^9, 3.992123022162176*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"02f9f95c-cf7c-9d4e-a5e8-c8b44d34ce29"] +}, 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[80]:=",ExpressionUUID->"474c5dd1-c344-a04c-8714-ada3650bf998"], + +Cell[BoxData["31.773154636448737`"], "Output", + CellChangeTimes->{3.991333536783556*^9, 3.992123022174637*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"af72a712-0f97-7449-8d3d-1e978d6219f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[81]:=",ExpressionUUID->"2305be88-628a-524a-b468-85b3cc42efc7"], + +Cell[BoxData["2.7165045868413826`"], "Output", + CellChangeTimes->{3.9913335367915726`*^9, 3.9921230221863327`*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"54d6e7d4-e392-d248-9770-173549363c92"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"426f7e1e-7abd-a446-8679-e422e283f98f"], + +Cell[BoxData["7.147246918334579`"], "Output", + CellChangeTimes->{3.99133353681583*^9, 3.992123022198406*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"e197485c-ffd1-ea46-97de-368fe564603d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[83]:=",ExpressionUUID->"933badd0-5ce1-e645-bb03-d046b1312945"], + +Cell[BoxData["227.09058156112627`"], "Output", + CellChangeTimes->{3.991333536826782*^9, 3.9921230222160854`*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"90f969a5-c51d-f847-827f-9e8c9a8dcaea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[84]:=",ExpressionUUID->"2d8a17a7-6a4c-d94e-b0e2-4da7c60ebbeb"], + +Cell[BoxData["32.182944815695855`"], "Output", + CellChangeTimes->{3.9913335368508377`*^9, 3.9921230222282753`*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"88f8bc53-3e5f-fa43-8217-70583ca4d1e6"] +}, 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[85]:=",ExpressionUUID->"042e7197-09fd-dc46-b3fd-dc1740a81970"], + +Cell[BoxData["0.007656654912554381`"], "Output", + CellChangeTimes->{3.9913335368758316`*^9, 3.992123022243908*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"ff9c23e8-354d-2a4d-9a32-a66716583f70"] +}, 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[86]:=",ExpressionUUID->"bccf6e25-da00-4449-8f0f-f2b61c58f67f"], + +Cell[BoxData["10.128039904518797`"], "Output", + CellChangeTimes->{3.991333536973074*^9, 3.9921230225139256`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"cfb87130-3ad2-304c-b3d5-862495422509"] +}, 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[87]:=",ExpressionUUID->"9f9260b3-ca67-3f4a-a0c4-5bf2cb98e110"], + +Cell[BoxData["0.01703802437006219`"], "Output", + CellChangeTimes->{3.9913335369870644`*^9, 3.992123022548071*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"fb7c9eae-d8fc-c441-998e-c8f3ccc7f57a"] +}, 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[88]:=",ExpressionUUID->"52f82243-9920-3742-90e6-48395671d171"], + +Cell[BoxData["6.789461393121026`"], "Output", + CellChangeTimes->{3.9913335370800858`*^9, 3.9921230227365017`*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"e43fcc6b-9b8f-c34d-8ab9-4e9938574f85"] +}, 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[89]:=",ExpressionUUID->"a147c908-551b-8647-9cf0-48614f0cb274"], + +Cell[BoxData["0.34166431230209243`"], "Output", + CellChangeTimes->{3.9913335370930634`*^9, 3.9921230227585335`*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"1a1983ff-a439-ab44-8789-c549ec9b262b"] +}, 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[90]:=",ExpressionUUID->"4c078cff-433d-8245-900f-0a3b49ecb9e6"], + +Cell[BoxData["0.6583356876979076`"], "Output", + CellChangeTimes->{3.991333537118065*^9, 3.992123022777771*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"e8e4862a-1e51-0f47-b167-66dc1c71b562"] +}, 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[91]:=",ExpressionUUID->"f07c74eb-272f-1743-a996-1dc503a54262"], + +Cell[BoxData["0.22492981000123072`"], "Output", + CellChangeTimes->{3.9913335371420746`*^9, 3.9921230228064327`*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"10359d70-3999-e74f-acf1-2edd1fe8b009"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[92]:=",ExpressionUUID->"c5ebf9ff-e333-7b4d-b8d5-46482917dc06"], + +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.991845612037445*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"e7569d02-bed5-3743-8058-837bf8cfd65c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.754977905110695`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 93, 878, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335371540604`*^9, 3.992123022873377*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"2e4ca3f2-d33f-154c-bc26-821a4b280c57"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.5158209254036043`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 879, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335371540604`*^9, 3.9921230229292374`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"a39674e9-c4f8-9141-b86e-c079c1d58bc6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0189053046175556`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 880, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335371540604`*^9, 3.992123022948229*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"a515df5a-5c17-b646-b329-6a72d919e6d1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 93, 881, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335371540604`*^9, 3.9921230229793396`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"4f51a0a9-79ef-d844-a67f-287b6f8484a3"], + +Cell[BoxData["10.128039904518808`"], "Output", + CellChangeTimes->{3.9913335399194164`*^9, 3.99212303155492*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"10366214-e92c-4a4f-ac64-c685c92ad67a"] +}, 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.9918456299851303`*^9}, + CellLabel->"In[94]:=",ExpressionUUID->"71739d4a-f3fc-9d4f-b803-99b4407cdc6f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.754977905110695`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 94, 882, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335399544125`*^9, 3.9921230317027283`*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"0fb69354-c371-1745-a1c8-c904afc829c8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.5158209254036043`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 94, 883, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335399544125`*^9, 3.992123031731571*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"6dca8854-c61c-3949-98e1-2e4ef2bf2d4f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0189053046175556`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 94, 884, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335399544125`*^9, 3.9921230317495575`*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"1c57ecff-3c5b-3242-9068-fd3214ccd556"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 94, 885, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335399544125`*^9, 3.992123031769518*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"4b13eeec-8db9-594b-a2ab-f537dbf1b163"], + +Cell[BoxData["6.789461393121033`"], "Output", + CellChangeTimes->{3.991333542631773*^9, 3.9921230399229794`*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"79c727d5-8d14-fd44-9708-b275327f8e53"] +}, 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.991845637746252*^9}, + CellLabel->"In[95]:=",ExpressionUUID->"762274ee-d7cb-9644-9b5c-516685cd7481"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk0VO8fB3ApJJIlZN8VNZKRyPJ8RGTfi4ovY+aSbCEp2RIVKknf9P0l +wiBZEpUkqVQqRZa02cKlsQ8zWlS/xx/33PM6zznv+34+57n3XBVamCuDl4eH +ZwxfS/dDb3XW32t/azZUGf9dwY2LzKaKttIsy1GowaOKJQ/kGWSrWzagFnbK +G3lsZ/obfmHqM2Qs0rlHDrs6JuEpn2Ur2tRWbC+Dfeb5uqaEsndIO2dZuRT2 +/fZD1xb1utH86NBhCWzWp1fHjz74gEK9HMvWYMuOqO3jWnxBhYXmNkLYdtPH +jSJb+9HLK42u/NiNiyyhmLJBBBufP+fBfp8kHXs3dAid8/di/nTloil+S9a8 +3gjyCTo6NYfNnxHuRV0gUUry+oIJbEWx3JZDD8bQogijaRjbUY5bPGUxgdLO +ZJt0YhP5qlKUlVPI8dmZ/15iJ2g4pRxsnUaNwpL+j7A/SHdtiSqbRRlnOdQb +2PS9QQcuZrBR+byjSS72zFWe67dD5xD/U6uqTOyVqhTRWT0OstWU6z6MnU1/ +ai0qyUVzLxdPBWArl3glbF7goj3sVKYntuGm1KmQB9/RhFq+shF2oEF/K8ti +Ed2OMJaec+Gi+ZjDK1Zp/kZn+u8oDWAnPhAy0Vr5B3U5s7NasXPA8GZA618k +ItV0vxCbzmyxjChbBjJqCoJ22GXPLw4kyfHCstG1gVTsmVGf4xcyeEGKOr1F +Dvu4NqfmVuhyUKv35v/mjPtWqahN6/HB3b+lt+OwP7VPNP4p5IPJhu0H/LCV +2ff2ikjyw6XU92mW2OX6jlmUBX5grt2xRhC7+f6xZcEPVkL66tMK6U5cxHna +2T9mIQzZp1Q9Ih25SNxeWDS2URhmgn6fs8XW7bKE1UarITbJWFYFO2j4Tv4W +HRGIEuHXaHXgonDeVl1TYVG4Gt0nLIs9olo5m8IVA1p6oM4lOzwf4pVgG1Uc +plUlk/2weW+SKusOicOf/S+1KNjKVCXXsnFxaBc6EvLElov2WmTefjsgAcks +atuwDRe1+UdESr+WhIGOtQKCu7ior+Rcuu9KKeAMLCS9suaiifGywhs7pUBc +uMIpHXtV1FCncZMUME48G1qFbXnSXd/3jjS0l5jOLLPiovoiA05pngyIVRuX +tFlwUdHIz+jtUQqwJip38ZsZF+3yONUXWaEAbKIx9X/YE80SVhWkAkTVFsXa +Y+sXbZJU9lIE5c+/meWmeJ40nxo+MyVY337+D8OEi9jTA0fGkpVBVflHa4MR +F0mEWNbWOKhCaluj6y8qF5FFqwKdg1RB2G3Q/T/sui/tcpOpqsC4NvjUEHu/ +vXeyZpMqeD18Nhaph/ttjHa9oqcGPu5azkO6+Pmskpl4aXW4kadUXEzhIvcA +IYrtoAbkhtv9fKTJRSjaQ2/Pbw2oTlTmdcLWTsnbRpfRhEk6J75Xg4t4Cqk7 +4l00YYB3tue7OhdV9O3bc/uxJmSbHBbUUsPv5+7yJNmC9VDTvykuTAn3s3R4 +z6JpQZCJAFyS5iI51fMJ6cObQELznqUNPxc1pM1r/eClANHHbbrBh/vPeXUR +KhRw7czIF8S+1qyutcOHAtE15mkvlnORakB9x/ceCkhkJwmZLMP9ykc0iNc6 +YKDkMCSwyEEKcoqEspcuODiU9W6c5aBNzCjhX0gP1jPoAhUfOYhGT+ZQHPWg +UbiyZP4DB+WoZfX57teDqJ6sF8bYywuqbj2P0QOplOrUlvcc9Okayz2rWg/6 +rQb5vnRy0Jkc31wtNSqsLDXSGH/DQWS6vY4nvz7UT2/oLnvMQdcj1J3vtG6F +ddPt+fdKOKg9Gm07yTSC2U0JSZoHOEjFp9vRO9gUFq8aK06rcRDj791KhaMA +6bVrnyr2ziPp8ToBadoOqPq5ddYtbR5FUU2+ZGlbwrtshR/ahvOINrnYIsHa +CavyNA1eDs2hih2RAnlt1mA2/Sm24eQcKpoPelyebQMbYn+tTdSaQ9/N171p +TrCDXeGC7681s1Evz/LZQT8HOHVlm/puXzYKlQ/LTFJzgtnpvM9uvGxUeaCl +6VKKM0Qyf3XHXJ1Fx+ZkFjYecAHD09NUQbNZxLG12v3iH1dISD4gMvNhBhnt +u2A+4uIGfNNaZYFHZlCHTG5QM9UdQrK/dXsqziDZ4uSG0g0eQHM92nwscRrV +DWjbO67eDUVxD3dNdE8hxa6ZgOjJ3bB5nxzBqz+FqJculBcO7AHnkjnN22mT +KHfFnE7WU0+YtHDz4LAn0F3zzZ9S7ntBkjaNkusxgXK2pYktlu2Feno4z7kn +46jtMzOVmrEPQs6Gv9aEcXTH4ap6eOJ++CvWzGNYz0KzIW48oXRv+KBvqrLL +koU4VlqBUxY+0MOeS9jd8w2VTn78HmnwD8jU6QldCfyGPK8z/b2FfeFSEIWw +WvkN1dy2+2f5KV8Qbf5wNbJkDBnJdfw488MXUoRS/ii7jyG1gYBP7w74gU+Z +/OWVgmNoWOig09UhPxg3/OE00jiK2s85+lt70GCFa2bFicRRlB2TJ3S4nQaf +Uo0vmluOoobGvz/8bfxhg9gX1hHRUbRmP5yi1vtDgWBUUSVJIuW1L9rkG/zh +q6fhNgFs3VaHdfyN/lAsegT5jpDI1WTfjQ+P/SG5wP2WxDCJsuWjX8e99IdZ +2fUSiYMkku29uablgz+065IfQ7+QSN1HOmf/gj/MfZZ3LeogkZHvVGmKPh0a +/Os0Q5tIVHxlJtLRgA7apu/UJx+RaG0n20zakA5lzWmng7Gndi50lRrTwc2x +OzG4kcTfG55lrTvooNMUr3+ogUQiC2Je4i50eH/oC/NsHYmGz24VzAuhw01B +1jXxahK5vNjWFRBGB+YGeftrt0jUyLM9T/cQHZQ7c320sa9Emm19EkUHe8XU +GosqEjl6WfuNxNLB37REPraCRPfVve5vTKNDh6o0a/EGic49OH6grhh7MsjP +vpBEIXqXjWJK6fCnua2BLCCR/Y1qQcMyOmgl2R1Nwl51mbxxr4IOiwcTJOuu +4/+KCGfW3Vo6vGnJ+6SVT6LjWuoH7zyhQ7H7n0tKuSQKuvw6+HYfHYo2hD51 +u0wiGxHSJGKADuJ8XaY//yXRhhSe1XpfcX87cZnr2GTE1orqETr8fijKnr5E +Ij/HvMlbE3SQsvlKycomkSdfZGjVTzr8dLF6PXaBRNaRsuHlUgyQNCcz+zJI +9CQv1TZrHQO+fbhwMQ3bpJWtHiPLgNz6XwLbsHU1Xn+0UGSAqw6v1YV0Esn0 +xFp81mDA103XpezSSDS+vVdq1VYGjHYHrew6RaLzvPkPA9wY0Lq2Q9k4Ge9/ +s3COgwcDwl6c2MM5QaKT+2IiqHsY4OZ/528Vdkyt8/q/exkQE3elSBPbj1h2 +4V8aAxIHKCCTRCLqKxr92SEG7CIkH0okkKjngoaQWiYDZH/1PvGOJVElWh04 +doEBecz1n7WwT07ON1dcZIBupdxu7jES6dk0xxteZkAh7U9kJvY5Hn+2wzUG +PDl/3unlURJZheV/jCnH6+mzJx1iSKSgcNrArJIBAcn/vFDCnn8VdnH5LQZ4 +zhLB7CMkKtBEDudqGDBoZtaXg/27t7epsB7PM3nOlxVNolp7udK3LQy4W1w8 +mHeYROk/efmyXzHAeeN2hxhsWinLz6uVARs9PeVcsEVX1MsNtzFgi/mW/uXY +wQ88z/94z4CIYVO+0CgSqWn/G60+woBXfCKv3CNJ9LMnrvMbyYANkixvKnZ7 +CkO3aowB/fKW7uLY8YP6LKMJBrylhgW+iyDRp5xOb6c5BqxoPavjjp0lILbz +2DICeFbt3hJ8iEQN7N59UcsJqGu3e+GAPdpbFhHKR0CTykzPZmyTWst8miAB +V1XMD3DC8XnzjfllK0bA69NTdqnYovY7xXdKYMfuuHcQ23ibuBaSJIDbapbr +gp25unw3VYaAoduUj4pL6/X91XIqBHQEvBN9FEYiglneIqlGwOk1Hi6l2JmZ +R/vXaBAQ0hgrnIVNEhKrV2gRwHxWxSaW1iWsAyd0CeiDgngp7Po/+FToEeD7 +jpK9HHvk28ClAX0C3o3uUZ8NJdH2pmNPuwwJCGWm1L7BHg6uVHwIBIRJb8/O +wBbxjN16bwcB3ZHl8XHYRha77KstCeC/eX8oFPuczNejzF0EPJEoVHDDrltR +lZlnS0DNiXj2Tuyh6diSK/YE6FjPmRthGz6X7D7rTEBOeImzCjat+uv4KVcC +blHINVLYZ69W8Z5wJ6BxpsFGCPtrhI1utCcB8j5bKAshJFrtI2UdvpeAxNi3 +7yexDW2GvIP2E9BzkvfXMPZZpbh0H18C6gmdmi7sulW2BZ40ApTeaFi/wf7K +kbrvSifA0LjG4/lS3uBQmz1BQEzi+75HS3mtt0irQALOhJ3/eh+bdi/uNwQR +QOvr9a1dyi+wXWscjOdf/Nirain/rPTGraEExBVtf1O2lB8zbL45nICLdbse +FGML06s9tSIIMHg+rlaIvc0pPkwtioAttWoC+Uv52+1SFaIJqA2eoediZ2is +y5WOIcCy18X0f9h3RUdqxI4R0MK1zryCPfir+pXQcQKiKzq8c5byR+MH+eIJ +WPg+y7yMbdBh9/1vAgFmXczAJf8fPgrqqQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0VO8fB3ApJJIlZN8VNZKRyPJ8RGTfi4ovY+aSbCEp2RIVKknf9P0l +wiBZEpUkqVQqRZa02cKlsQ8zWlS/xx/33PM6zznv+34+57n3XBVamCuDl4eH +ZwxfS/dDb3XW32t/azZUGf9dwY2LzKaKttIsy1GowaOKJQ/kGWSrWzagFnbK +G3lsZ/obfmHqM2Qs0rlHDrs6JuEpn2Ur2tRWbC+Dfeb5uqaEsndIO2dZuRT2 +/fZD1xb1utH86NBhCWzWp1fHjz74gEK9HMvWYMuOqO3jWnxBhYXmNkLYdtPH +jSJb+9HLK42u/NiNiyyhmLJBBBufP+fBfp8kHXs3dAid8/di/nTloil+S9a8 +3gjyCTo6NYfNnxHuRV0gUUry+oIJbEWx3JZDD8bQogijaRjbUY5bPGUxgdLO +ZJt0YhP5qlKUlVPI8dmZ/15iJ2g4pRxsnUaNwpL+j7A/SHdtiSqbRRlnOdQb +2PS9QQcuZrBR+byjSS72zFWe67dD5xD/U6uqTOyVqhTRWT0OstWU6z6MnU1/ +ai0qyUVzLxdPBWArl3glbF7goj3sVKYntuGm1KmQB9/RhFq+shF2oEF/K8ti +Ed2OMJaec+Gi+ZjDK1Zp/kZn+u8oDWAnPhAy0Vr5B3U5s7NasXPA8GZA618k +ItV0vxCbzmyxjChbBjJqCoJ22GXPLw4kyfHCstG1gVTsmVGf4xcyeEGKOr1F +Dvu4NqfmVuhyUKv35v/mjPtWqahN6/HB3b+lt+OwP7VPNP4p5IPJhu0H/LCV +2ff2ikjyw6XU92mW2OX6jlmUBX5grt2xRhC7+f6xZcEPVkL66tMK6U5cxHna +2T9mIQzZp1Q9Ih25SNxeWDS2URhmgn6fs8XW7bKE1UarITbJWFYFO2j4Tv4W +HRGIEuHXaHXgonDeVl1TYVG4Gt0nLIs9olo5m8IVA1p6oM4lOzwf4pVgG1Uc +plUlk/2weW+SKusOicOf/S+1KNjKVCXXsnFxaBc6EvLElov2WmTefjsgAcks +atuwDRe1+UdESr+WhIGOtQKCu7ior+Rcuu9KKeAMLCS9suaiifGywhs7pUBc +uMIpHXtV1FCncZMUME48G1qFbXnSXd/3jjS0l5jOLLPiovoiA05pngyIVRuX +tFlwUdHIz+jtUQqwJip38ZsZF+3yONUXWaEAbKIx9X/YE80SVhWkAkTVFsXa +Y+sXbZJU9lIE5c+/meWmeJ40nxo+MyVY337+D8OEi9jTA0fGkpVBVflHa4MR +F0mEWNbWOKhCaluj6y8qF5FFqwKdg1RB2G3Q/T/sui/tcpOpqsC4NvjUEHu/ +vXeyZpMqeD18Nhaph/ttjHa9oqcGPu5azkO6+Pmskpl4aXW4kadUXEzhIvcA +IYrtoAbkhtv9fKTJRSjaQ2/Pbw2oTlTmdcLWTsnbRpfRhEk6J75Xg4t4Cqk7 +4l00YYB3tue7OhdV9O3bc/uxJmSbHBbUUsPv5+7yJNmC9VDTvykuTAn3s3R4 +z6JpQZCJAFyS5iI51fMJ6cObQELznqUNPxc1pM1r/eClANHHbbrBh/vPeXUR +KhRw7czIF8S+1qyutcOHAtE15mkvlnORakB9x/ceCkhkJwmZLMP9ykc0iNc6 +YKDkMCSwyEEKcoqEspcuODiU9W6c5aBNzCjhX0gP1jPoAhUfOYhGT+ZQHPWg +UbiyZP4DB+WoZfX57teDqJ6sF8bYywuqbj2P0QOplOrUlvcc9Okayz2rWg/6 +rQb5vnRy0Jkc31wtNSqsLDXSGH/DQWS6vY4nvz7UT2/oLnvMQdcj1J3vtG6F +ddPt+fdKOKg9Gm07yTSC2U0JSZoHOEjFp9vRO9gUFq8aK06rcRDj791KhaMA +6bVrnyr2ziPp8ToBadoOqPq5ddYtbR5FUU2+ZGlbwrtshR/ahvOINrnYIsHa +CavyNA1eDs2hih2RAnlt1mA2/Sm24eQcKpoPelyebQMbYn+tTdSaQ9/N171p +TrCDXeGC7681s1Evz/LZQT8HOHVlm/puXzYKlQ/LTFJzgtnpvM9uvGxUeaCl +6VKKM0Qyf3XHXJ1Fx+ZkFjYecAHD09NUQbNZxLG12v3iH1dISD4gMvNhBhnt +u2A+4uIGfNNaZYFHZlCHTG5QM9UdQrK/dXsqziDZ4uSG0g0eQHM92nwscRrV +DWjbO67eDUVxD3dNdE8hxa6ZgOjJ3bB5nxzBqz+FqJculBcO7AHnkjnN22mT +KHfFnE7WU0+YtHDz4LAn0F3zzZ9S7ntBkjaNkusxgXK2pYktlu2Feno4z7kn +46jtMzOVmrEPQs6Gv9aEcXTH4ap6eOJ++CvWzGNYz0KzIW48oXRv+KBvqrLL +koU4VlqBUxY+0MOeS9jd8w2VTn78HmnwD8jU6QldCfyGPK8z/b2FfeFSEIWw +WvkN1dy2+2f5KV8Qbf5wNbJkDBnJdfw488MXUoRS/ii7jyG1gYBP7w74gU+Z +/OWVgmNoWOig09UhPxg3/OE00jiK2s85+lt70GCFa2bFicRRlB2TJ3S4nQaf +Uo0vmluOoobGvz/8bfxhg9gX1hHRUbRmP5yi1vtDgWBUUSVJIuW1L9rkG/zh +q6fhNgFs3VaHdfyN/lAsegT5jpDI1WTfjQ+P/SG5wP2WxDCJsuWjX8e99IdZ +2fUSiYMkku29uablgz+065IfQ7+QSN1HOmf/gj/MfZZ3LeogkZHvVGmKPh0a +/Os0Q5tIVHxlJtLRgA7apu/UJx+RaG0n20zakA5lzWmng7Gndi50lRrTwc2x +OzG4kcTfG55lrTvooNMUr3+ogUQiC2Je4i50eH/oC/NsHYmGz24VzAuhw01B +1jXxahK5vNjWFRBGB+YGeftrt0jUyLM9T/cQHZQ7c320sa9Emm19EkUHe8XU +GosqEjl6WfuNxNLB37REPraCRPfVve5vTKNDh6o0a/EGic49OH6grhh7MsjP +vpBEIXqXjWJK6fCnua2BLCCR/Y1qQcMyOmgl2R1Nwl51mbxxr4IOiwcTJOuu +4/+KCGfW3Vo6vGnJ+6SVT6LjWuoH7zyhQ7H7n0tKuSQKuvw6+HYfHYo2hD51 +u0wiGxHSJGKADuJ8XaY//yXRhhSe1XpfcX87cZnr2GTE1orqETr8fijKnr5E +Ij/HvMlbE3SQsvlKycomkSdfZGjVTzr8dLF6PXaBRNaRsuHlUgyQNCcz+zJI +9CQv1TZrHQO+fbhwMQ3bpJWtHiPLgNz6XwLbsHU1Xn+0UGSAqw6v1YV0Esn0 +xFp81mDA103XpezSSDS+vVdq1VYGjHYHrew6RaLzvPkPA9wY0Lq2Q9k4Ge9/ +s3COgwcDwl6c2MM5QaKT+2IiqHsY4OZ/528Vdkyt8/q/exkQE3elSBPbj1h2 +4V8aAxIHKCCTRCLqKxr92SEG7CIkH0okkKjngoaQWiYDZH/1PvGOJVElWh04 +doEBecz1n7WwT07ON1dcZIBupdxu7jES6dk0xxteZkAh7U9kJvY5Hn+2wzUG +PDl/3unlURJZheV/jCnH6+mzJx1iSKSgcNrArJIBAcn/vFDCnn8VdnH5LQZ4 +zhLB7CMkKtBEDudqGDBoZtaXg/27t7epsB7PM3nOlxVNolp7udK3LQy4W1w8 +mHeYROk/efmyXzHAeeN2hxhsWinLz6uVARs9PeVcsEVX1MsNtzFgi/mW/uXY +wQ88z/94z4CIYVO+0CgSqWn/G60+woBXfCKv3CNJ9LMnrvMbyYANkixvKnZ7 +CkO3aowB/fKW7uLY8YP6LKMJBrylhgW+iyDRp5xOb6c5BqxoPavjjp0lILbz +2DICeFbt3hJ8iEQN7N59UcsJqGu3e+GAPdpbFhHKR0CTykzPZmyTWst8miAB +V1XMD3DC8XnzjfllK0bA69NTdqnYovY7xXdKYMfuuHcQ23ibuBaSJIDbapbr +gp25unw3VYaAoduUj4pL6/X91XIqBHQEvBN9FEYiglneIqlGwOk1Hi6l2JmZ +R/vXaBAQ0hgrnIVNEhKrV2gRwHxWxSaW1iWsAyd0CeiDgngp7Po/+FToEeD7 +jpK9HHvk28ClAX0C3o3uUZ8NJdH2pmNPuwwJCGWm1L7BHg6uVHwIBIRJb8/O +wBbxjN16bwcB3ZHl8XHYRha77KstCeC/eX8oFPuczNejzF0EPJEoVHDDrltR +lZlnS0DNiXj2Tuyh6diSK/YE6FjPmRthGz6X7D7rTEBOeImzCjat+uv4KVcC +blHINVLYZ69W8Z5wJ6BxpsFGCPtrhI1utCcB8j5bKAshJFrtI2UdvpeAxNi3 +7yexDW2GvIP2E9BzkvfXMPZZpbh0H18C6gmdmi7sulW2BZ40ApTeaFi/wf7K +kbrvSifA0LjG4/lS3uBQmz1BQEzi+75HS3mtt0irQALOhJ3/eh+bdi/uNwQR +QOvr9a1dyi+wXWscjOdf/Nirain/rPTGraEExBVtf1O2lB8zbL45nICLdbse +FGML06s9tSIIMHg+rlaIvc0pPkwtioAttWoC+Uv52+1SFaIJqA2eoediZ2is +y5WOIcCy18X0f9h3RUdqxI4R0MK1zryCPfir+pXQcQKiKzq8c5byR+MH+eIJ +WPg+y7yMbdBh9/1vAgFmXczAJf8fPgrqqQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7008778613950495, + 1.3952922541456523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.700877861395051}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.7008778613950495, + 1.3952922541456523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.700877861395051}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0VO8fB3ApJJIlZN8VNZKRyPJ8RGTfi4ovY+aSbCEp2RIVKknf9P0l +wiBZEpUkqVQqRZa02cKlsQ8zWlS/xx/33PM6zznv+34+57n3XBVamCuDl4eH +ZwxfS/dDb3XW32t/azZUGf9dwY2LzKaKttIsy1GowaOKJQ/kGWSrWzagFnbK +G3lsZ/obfmHqM2Qs0rlHDrs6JuEpn2Ur2tRWbC+Dfeb5uqaEsndIO2dZuRT2 +/fZD1xb1utH86NBhCWzWp1fHjz74gEK9HMvWYMuOqO3jWnxBhYXmNkLYdtPH +jSJb+9HLK42u/NiNiyyhmLJBBBufP+fBfp8kHXs3dAid8/di/nTloil+S9a8 +3gjyCTo6NYfNnxHuRV0gUUry+oIJbEWx3JZDD8bQogijaRjbUY5bPGUxgdLO +ZJt0YhP5qlKUlVPI8dmZ/15iJ2g4pRxsnUaNwpL+j7A/SHdtiSqbRRlnOdQb +2PS9QQcuZrBR+byjSS72zFWe67dD5xD/U6uqTOyVqhTRWT0OstWU6z6MnU1/ +ai0qyUVzLxdPBWArl3glbF7goj3sVKYntuGm1KmQB9/RhFq+shF2oEF/K8ti +Ed2OMJaec+Gi+ZjDK1Zp/kZn+u8oDWAnPhAy0Vr5B3U5s7NasXPA8GZA618k +ItV0vxCbzmyxjChbBjJqCoJ22GXPLw4kyfHCstG1gVTsmVGf4xcyeEGKOr1F +Dvu4NqfmVuhyUKv35v/mjPtWqahN6/HB3b+lt+OwP7VPNP4p5IPJhu0H/LCV +2ff2ikjyw6XU92mW2OX6jlmUBX5grt2xRhC7+f6xZcEPVkL66tMK6U5cxHna +2T9mIQzZp1Q9Ih25SNxeWDS2URhmgn6fs8XW7bKE1UarITbJWFYFO2j4Tv4W +HRGIEuHXaHXgonDeVl1TYVG4Gt0nLIs9olo5m8IVA1p6oM4lOzwf4pVgG1Uc +plUlk/2weW+SKusOicOf/S+1KNjKVCXXsnFxaBc6EvLElov2WmTefjsgAcks +atuwDRe1+UdESr+WhIGOtQKCu7ior+Rcuu9KKeAMLCS9suaiifGywhs7pUBc +uMIpHXtV1FCncZMUME48G1qFbXnSXd/3jjS0l5jOLLPiovoiA05pngyIVRuX +tFlwUdHIz+jtUQqwJip38ZsZF+3yONUXWaEAbKIx9X/YE80SVhWkAkTVFsXa +Y+sXbZJU9lIE5c+/meWmeJ40nxo+MyVY337+D8OEi9jTA0fGkpVBVflHa4MR +F0mEWNbWOKhCaluj6y8qF5FFqwKdg1RB2G3Q/T/sui/tcpOpqsC4NvjUEHu/ +vXeyZpMqeD18Nhaph/ttjHa9oqcGPu5azkO6+Pmskpl4aXW4kadUXEzhIvcA +IYrtoAbkhtv9fKTJRSjaQ2/Pbw2oTlTmdcLWTsnbRpfRhEk6J75Xg4t4Cqk7 +4l00YYB3tue7OhdV9O3bc/uxJmSbHBbUUsPv5+7yJNmC9VDTvykuTAn3s3R4 +z6JpQZCJAFyS5iI51fMJ6cObQELznqUNPxc1pM1r/eClANHHbbrBh/vPeXUR +KhRw7czIF8S+1qyutcOHAtE15mkvlnORakB9x/ceCkhkJwmZLMP9ykc0iNc6 +YKDkMCSwyEEKcoqEspcuODiU9W6c5aBNzCjhX0gP1jPoAhUfOYhGT+ZQHPWg +UbiyZP4DB+WoZfX57teDqJ6sF8bYywuqbj2P0QOplOrUlvcc9Okayz2rWg/6 +rQb5vnRy0Jkc31wtNSqsLDXSGH/DQWS6vY4nvz7UT2/oLnvMQdcj1J3vtG6F +ddPt+fdKOKg9Gm07yTSC2U0JSZoHOEjFp9vRO9gUFq8aK06rcRDj791KhaMA +6bVrnyr2ziPp8ToBadoOqPq5ddYtbR5FUU2+ZGlbwrtshR/ahvOINrnYIsHa +CavyNA1eDs2hih2RAnlt1mA2/Sm24eQcKpoPelyebQMbYn+tTdSaQ9/N171p +TrCDXeGC7681s1Evz/LZQT8HOHVlm/puXzYKlQ/LTFJzgtnpvM9uvGxUeaCl +6VKKM0Qyf3XHXJ1Fx+ZkFjYecAHD09NUQbNZxLG12v3iH1dISD4gMvNhBhnt +u2A+4uIGfNNaZYFHZlCHTG5QM9UdQrK/dXsqziDZ4uSG0g0eQHM92nwscRrV +DWjbO67eDUVxD3dNdE8hxa6ZgOjJ3bB5nxzBqz+FqJculBcO7AHnkjnN22mT +KHfFnE7WU0+YtHDz4LAn0F3zzZ9S7ntBkjaNkusxgXK2pYktlu2Feno4z7kn +46jtMzOVmrEPQs6Gv9aEcXTH4ap6eOJ++CvWzGNYz0KzIW48oXRv+KBvqrLL +koU4VlqBUxY+0MOeS9jd8w2VTn78HmnwD8jU6QldCfyGPK8z/b2FfeFSEIWw +WvkN1dy2+2f5KV8Qbf5wNbJkDBnJdfw488MXUoRS/ii7jyG1gYBP7w74gU+Z +/OWVgmNoWOig09UhPxg3/OE00jiK2s85+lt70GCFa2bFicRRlB2TJ3S4nQaf +Uo0vmluOoobGvz/8bfxhg9gX1hHRUbRmP5yi1vtDgWBUUSVJIuW1L9rkG/zh +q6fhNgFs3VaHdfyN/lAsegT5jpDI1WTfjQ+P/SG5wP2WxDCJsuWjX8e99IdZ +2fUSiYMkku29uablgz+065IfQ7+QSN1HOmf/gj/MfZZ3LeogkZHvVGmKPh0a +/Os0Q5tIVHxlJtLRgA7apu/UJx+RaG0n20zakA5lzWmng7Gndi50lRrTwc2x +OzG4kcTfG55lrTvooNMUr3+ogUQiC2Je4i50eH/oC/NsHYmGz24VzAuhw01B +1jXxahK5vNjWFRBGB+YGeftrt0jUyLM9T/cQHZQ7c320sa9Emm19EkUHe8XU +GosqEjl6WfuNxNLB37REPraCRPfVve5vTKNDh6o0a/EGic49OH6grhh7MsjP +vpBEIXqXjWJK6fCnua2BLCCR/Y1qQcMyOmgl2R1Nwl51mbxxr4IOiwcTJOuu +4/+KCGfW3Vo6vGnJ+6SVT6LjWuoH7zyhQ7H7n0tKuSQKuvw6+HYfHYo2hD51 +u0wiGxHSJGKADuJ8XaY//yXRhhSe1XpfcX87cZnr2GTE1orqETr8fijKnr5E +Ij/HvMlbE3SQsvlKycomkSdfZGjVTzr8dLF6PXaBRNaRsuHlUgyQNCcz+zJI +9CQv1TZrHQO+fbhwMQ3bpJWtHiPLgNz6XwLbsHU1Xn+0UGSAqw6v1YV0Esn0 +xFp81mDA103XpezSSDS+vVdq1VYGjHYHrew6RaLzvPkPA9wY0Lq2Q9k4Ge9/ +s3COgwcDwl6c2MM5QaKT+2IiqHsY4OZ/528Vdkyt8/q/exkQE3elSBPbj1h2 +4V8aAxIHKCCTRCLqKxr92SEG7CIkH0okkKjngoaQWiYDZH/1PvGOJVElWh04 +doEBecz1n7WwT07ON1dcZIBupdxu7jES6dk0xxteZkAh7U9kJvY5Hn+2wzUG +PDl/3unlURJZheV/jCnH6+mzJx1iSKSgcNrArJIBAcn/vFDCnn8VdnH5LQZ4 +zhLB7CMkKtBEDudqGDBoZtaXg/27t7epsB7PM3nOlxVNolp7udK3LQy4W1w8 +mHeYROk/efmyXzHAeeN2hxhsWinLz6uVARs9PeVcsEVX1MsNtzFgi/mW/uXY +wQ88z/94z4CIYVO+0CgSqWn/G60+woBXfCKv3CNJ9LMnrvMbyYANkixvKnZ7 +CkO3aowB/fKW7uLY8YP6LKMJBrylhgW+iyDRp5xOb6c5BqxoPavjjp0lILbz +2DICeFbt3hJ8iEQN7N59UcsJqGu3e+GAPdpbFhHKR0CTykzPZmyTWst8miAB +V1XMD3DC8XnzjfllK0bA69NTdqnYovY7xXdKYMfuuHcQ23ibuBaSJIDbapbr +gp25unw3VYaAoduUj4pL6/X91XIqBHQEvBN9FEYiglneIqlGwOk1Hi6l2JmZ +R/vXaBAQ0hgrnIVNEhKrV2gRwHxWxSaW1iWsAyd0CeiDgngp7Po/+FToEeD7 +jpK9HHvk28ClAX0C3o3uUZ8NJdH2pmNPuwwJCGWm1L7BHg6uVHwIBIRJb8/O +wBbxjN16bwcB3ZHl8XHYRha77KstCeC/eX8oFPuczNejzF0EPJEoVHDDrltR +lZlnS0DNiXj2Tuyh6diSK/YE6FjPmRthGz6X7D7rTEBOeImzCjat+uv4KVcC +blHINVLYZ69W8Z5wJ6BxpsFGCPtrhI1utCcB8j5bKAshJFrtI2UdvpeAxNi3 +7yexDW2GvIP2E9BzkvfXMPZZpbh0H18C6gmdmi7sulW2BZ40ApTeaFi/wf7K +kbrvSifA0LjG4/lS3uBQmz1BQEzi+75HS3mtt0irQALOhJ3/eh+bdi/uNwQR +QOvr9a1dyi+wXWscjOdf/Nirain/rPTGraEExBVtf1O2lB8zbL45nICLdbse +FGML06s9tSIIMHg+rlaIvc0pPkwtioAttWoC+Uv52+1SFaIJqA2eoediZ2is +y5WOIcCy18X0f9h3RUdqxI4R0MK1zryCPfir+pXQcQKiKzq8c5byR+MH+eIJ +WPg+y7yMbdBh9/1vAgFmXczAJf8fPgrqqQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7008778613950495, 1.3952922541456523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.700877861395051}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.700877861395051}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "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.7008778613950495, 1.3952922541456523`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991333813212965*^9, 3.9921236350754967`*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"5a3382f4-9f8a-bb4a-a67c-4b0288429337"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918456416071854`*^9, 3.991845656553877*^9}}, + CellLabel->"In[96]:=",ExpressionUUID->"c4af1473-2d54-b047-b3e2-18c19d38cfdd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.247158344418867`*^-275\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 96, + 886, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333813432829*^9, 3.992123635453945*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"872e7c16-901b-0647-8868-984caa4a1bf7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3917792646533707`*^-287\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 96, + 887, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333813432829*^9, 3.9921236354799347`*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"5f1fb2c6-4228-eb46-9dc5-ae28c376d872"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5531704776602976`*^-299\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 96, + 888, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333813432829*^9, 3.992123635501934*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"bc5a06d9-dd5c-7a49-9294-36e8b1e41b80"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 96, 889, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333813432829*^9, 3.99212363552404*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"629c076e-1cb1-9a4d-b997-a61cff5cfb8d"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k8VN0fB3BbkqiRiDFm7gzZlxhU6ul8RcqSFrQgRbKEpCJFm5IsY0vI +TojIcgdlK2tKorJESNEiLY9dlie/8/vrvt6vc17nnnvvOZ/vuUxHr/0n+Hh4 +eFby8vD8/5py2VFQyylpG/Pwo6w9PfrbGjsI84PEBRTcdSNeMF0KLT17cp0g +QtDAk+5r7WlKKKWWw1hG3EVOvYckitI2IY9/fDxnGXno9kLyobC0XahjwTV2 +jFGBAhvZDqpph9DyviHFX4wXaM/aXtGGFFeU0ZLm/YPRi34cnjDRSPBDhUUh +fR4ao0ibbyFfPjgEuaA3d3+emURmz+/2lvXEoFNflIdLC+cQZQevYNHDBCTM +vKE4uIkHZMPqKM3tqSiC8lIl4xg/PP4SSpdVykSOfVZP+VsFoStpJ7z+m4W8 +m244eikKwxW7R0o7Uu+jktMillImojB8V4Ym/C0PZfi7j244SIH4p/++nNQs +QIFpi/umfopBkLvW+1aiEPF0fITqi+JgNi0u5/uuCCmcc/azUpGANQlXdqXW +FCN1/UHLtA0SoDItZuFTW4x0eA5pjupJwLOZ8RLThmK0Pdzk6xVDCVDNV4gd +e16M7LPUrPLtJOB0n+FTpc5iFNc5ockXKQFIXyvBdLQYLdO98q1oUgLChIsy +LCVK0Ofp+AMrayTB/kWzla9zCco0YJ8daJCEec24A1JuJegopy2yqAW3F/i4 +PHYvQe/ll72w7JGEmlql8onTJeiN5ZktyZOSsEW9Ytle/xL0pMScUFdZB6UW +/g4PI0tQvCfvqEX8OvAof1MzUV6CTL+cvBTjLQXW3wUbcpZKkPEluQIjPynY +9/DWP/W8JNou0f9+5rIUBBZPvevjJ5H+jt2bbMOl4NaWLI8VQiRSydaclLsv +BQkZhKQFhUQrT0y5lvVLwdX5mNOXCBK1fr5k1bNTGi4kioefQyR6HqB3PdRC +Gsa57ySsDEjUuPbfkq3W0vDN9mutliGJqo2Orc5wlAZfe3n/b8YkKsja3uJ2 +SRpodQvXtlqQiOO0HBZIaWDEfBwJtyORxecoVTqdCp6m43nN5/H9VD932slT +YWusmPGeCyQyO7vxcpIKFeZWyRh1XSTRLr4Pr6U2UuGI8Dbn/kv4+QhVX/G9 +VJASIna8u04iXbumWqFA3N41cfVKJIlonXPWk1+o8J9Iwd3EbBIlyuxe0vpJ +Bes5ufTfOSSSPp6ee3qCCs814lca5JJIcsJ44ddfKhjWfBT79IBEFEps+sg6 +Gdjasn5QtJhE/OYaPwZMZKBO1y6OWkmi0QbHq88fyoDtLvn9vK9IxIjuORlR +KgM2ofLR+m0ksrK3sLaqkoEkJYtx73YSPfmzWeXjcxmIbn8j0feGRDHqYp2z +wzLQUn53Kq6bRFvinyoqUmnwc7+MdtkgiU476a75RdCAOuN19/VHEuVo5S+S +ijRYvPZJfvQTnl9r3JttujToPz+Uu+4ziT7znPI/sJcGnjIfTtqNkCj8JK09 +6CYNhNXr+DljJKrbGFNhxqFBIl9nY+g4iWYEhLLEYmnA7DZ4eHOCRMfSJv1S +Mmiwb7nQtN8UiXQ6W1hl1TSo9DJw3vmHRAP/XPD9PEEDcSFPnvAlEmmIdcsa +HpWFXtFbD8pEuOgr52vgnROywGo/1+kuykUpwrPfvrnLwleFv67EKi4SEZAi +w/1koep46dsbq7lodOawcXe0LEgzbQv113BRdv/AKbdGWfjjnlpqs46L7A7/ +7qhqkYWc1YPps9hru/9uWvVGFm7qrVyIkeKiwHYGP3dAFma/8sw3SnPRsXqH ++MUZWXi+3E1JksZFtNwvTyOV6VCtt8rPk+CiTvkZ+SFNOhx+LnlkHDssQzBU +R48OB/043LNMLppPVLTq3U6HmtaCsrMsLurhuI2w7Ohw5by4hIM8F0UJX9zt +40iHwZYfYT3YO4NDyWZXOvwIFvS1WM9F5VfzAzx86KBGHc/SVeCi22d/Ucoj +6HDcT+HcuCIXmY795yN0hw7Gd5LD7JS4iM9zVZ9NEh1Y73WlnmGfdtbMXrpP +B8nPTdGxylxkcdh7s0kdHUZH14gyVLlIGE079E/SgbPpsc2oOhf5GSgJlc/T +gWJpUmaogd+/oW1hJC8DlD90GSVh1++qm9++mgFJpooCOzS56OJ+zu08FQYs +zN8Tub6Bi0asajdf12KAmulyqTbsAwcnB+02McC66o/NOi0u0rY7rEYxZoAn +u/NWFvaPE+ubfB0YMDWWysnT5iIb10Pue10ZkPI30/4r9vOTYWIqXgxwo/W4 +MdlclOU1fmQgALc3qG6IwV5zRl7g0XUGiAjP/GjGvnru4IOoUAa4vN81vIBt +d6FmxjCBAYW7h4LsdbioxX8sWTaNAcy8bi0O9qbLcoaz2QzYv1RIrcReez0k +8gGXAUS9W9YqXbwegqp1b1QygPthYYce9ljwv31H6hhQZv1mvR12a7i1klg7 +A7wcczMysfUjb7WNdjHAL8l2WwN2bnTVucZ+Blj4lFGHsCVjf1NThxmQbLd6 +4xL2jThm3flRBvQu1N+m6nHRRIKVy75xBqzboqKlg30sKVhU9Q8DZlHaanPs +tpRKrsASHt8zQNMRm/56Ru1fPgL6j9OifbGt91F47AQJuMXzXicEO/ytcsfz +FQQMHKHIJGI3WBrm6IoSINtBNcrDnu+0u5BJIcBoyqq4HFvrgK/56rUEjEVT +j9Vju76LZASsI0C7otmyFTvtUN7ECJWAi9zHYZ3Y3b31TdZ0AjwETYX6sEVt ++xPqmQQ0ne15MYht1D/trrmeAM252tdD2P5HVqNkJQJ0Xx+T/YxNflBas0KN +gJWnJIqHsb8f3f7FR5MA7+tbQz5hE59sHw9pE3B3kZ03gH3Q0Sdsjx4BQrw2 +lB7siOEI++rNBDhOijx9jd3klKul/A8B9t75Zc3Yi1/qBOKAgDuWsVPV2GyX +vnd8RgS4PVQIKMY+OTL1wGsnAb2tdeaZ2Bluqy73m+Ln0W9yjsHuGVXcZ2KB +51cR1XIVm+JhIF++j4CuHTf8PLF3/rKZZVkTICjF430IO3Xt9Y4rhwiQPG3M +2o49tSW/qN+WgE/X4jRUsNNDF1ziHAlofFl/eBp//5kSOaPJE7i/4MELPdi7 +e82IvW4EWP51mq7AnldM7llxmgAz32MCfth79zSWOp8l4EDG8gQr7Bzfn1EN +vgRkfUwK0cS2bNpqcukSARl6vLc+4vVc4DhQMRZKQOoY76IGNl/osrjdEQT8 +XNwf8hfvj0Ml6mceRBPglHHtfCv2Mp7LKk4JBPi3T54/jm2fQk96l03ATHOS ++GW8H0sbjc/r5BHwXnsXCdjCP09ZRhcQsDervZQX+5H+05VmXAL4qBNfL+P9 +Tek5GvCklgDiLVPYGeeB81LwIZlGAi5FGryVwa5WKNbxayZg0cOY9zXOEzcf +nl9abQSomN66w8auX5NxJLuPgPm80oxvOJ+k9F9s5hvE60OpMT8K+5TDuMTR +IQLEzNsZm7Blig3apL4TcNzFZWegGhed2z20LXyGAOln0Wn8OO9azgnLfJ8j +QGrMSyBdBa+vZO3ZHf8R8MjLo1sf+9VoYNESPxPmDlg3uOO8VLglR5wVY4LO +ef7WSpy3PfVOvDZqTHjcvndCFOf1mMF76iVNJiRcD6q7K8dFy+v26KRrM8Eo +PGejPLbeU32Xr5uYcLBmSVoX539sFeXVmR1MCFplXWuM68We0uqEMHsmqPZq +fFDG9cWZrU0WOjDhv6DVRukyXHSZvP/yjRMTjP11DkhgFxTH/F3nzgRWR/bV +BVyfhB+6OmWdZ8JOv/uzj3A9e5a9dkNNFBOSm5Iqx3H9+yAfavLxNhNeUTJF +LbGn7y058scz4XPFiTVcMS6Szxy9Y5LCBN32YG0vCs671NqFrjwmqIePdb/D +9XZbvEfz73omOH24+fekEBeV3Wq0J6aZ8CjpHiQtkijX9KVU8B8mcJ4uxdcv +4POQyNu3vxaY4L2+8ezIPImuRg0aV/GxoHLZkUrNORKZJ8xrHKCwYG9/ZVTB +NImG7m9YClNlQdkPgZajv0m0qjk5bdaBBWcuxpYVfSARb8i9w/YnWCDcSL2W +O0CiKdMH4k2uLBC/IvIxrZ9EvW2PgmO8WDC2i2YT+p5EWd1vvdQv4f7tNuYW ++Pyj/1UIjiew4I+09p0YfJ5yXubzsa2NBdxn6+mUKhJRGS/eLbxhQWJScM1Y +BYnaNsm2K3WxoPRBptrrxyTS82iqCexjAe+9dP+wchIJdkgk6Y2wYJ+B4Mhk +CYmy08utU3nlIDBawjocn/c+b/nT4qkjBwfc6w9/iCXR8TP+ZSKJciA8f5ZO +P4nH0/5QppwiBznVw/PVriQSnoBy43Q5UOHZ3mrjQqJib8FHV3PkoPyUw57b +TiRaPB39eIqUgykpy6FZexLFed2v6n8pB7yxnrGRliR64dFRV/CfHHzK/T67 +sIVEmi6qbeYO8mAzcdpucAWJ2teorfTZvB626IOYd1QJqioMTFLjV4CMHU9c +ZiglyJ9XZW/rgAIwDZPkPC8UI+H+i7tOlSrCoKeQixtZhL7kMGPTApRA0KK3 +ocq3EMUqSQtUWCuDtLTzhQmxhygq0bnZgVABz/yCwIbKfGQTe6RN5JsKbKE6 +7vp+/AH6Y5Q9l/ZEFdpqGh+N/MhFw1+2+9UHq8GGui53jfD7KPMfLZlXDupw +fNTXpp2Sgx4G+Yi5qGtAaojXizYyCwVbHzfjn9aAa3cybpQ43EO6/Rl5wa80 +wdhz+OGLxQyUoJz08JXZBpikjzaEV6SjK7WcBLOKDTCdLrZVBf8f7paxzm6R +14LgY3pUimUyMjjVbCsWogUfbwuFStMSURrNUb51WgvCFMU35XXEI/mG+3EW +ttoQxBHxvdh+B0Wp16u8faIN1fc3+iSO30bOkwJvXqiw4Xrot6CfwjHIsWSC +CIlkQ5bMy/XRjlHII9By0TSaDeY3C9nutlHIx7L0nchtNiRoB/vttIpCt6Z9 +IqLi2FD982KOoHEUKtw8txCfwoZhy5WRacpRaK5uqTsnnw0HTE4M+A5Foqi3 +IpzGZjYE+r1z1xGIRIn3PF1vvmCDcs9Yms9MBLp3rs1w10s2HNo+oFc1EoHK +JaPmX7axYco2I8zyVQTqtxF37ehig/O/b5sex0UgxWFpw6FhNjRuq2BZq0Sg +DaUX6Vlf2KAnJGvVT4tA+kF9cye+sWFiY9cnl9URyFwxpfj7KBs0JziU8CkO +OuNO0MfH2eB9T7RI6CkHBWy9NkdOsqE2c9kjsoSDgkSHOs9NsyFoomedQxYH +JRTdC/vzhw0Br0yGWkI4KPOqgEvlPBtcV/CZ3QzgoPx9J7YHLLLh52yLsLEX +B5Wynslu+8uGnssbmMKOHPRkUmFuaYkNXmM1nLdWHPQ/zOGPlw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VN0fB3BbkqiRiDFm7gzZlxhU6ul8RcqSFrQgRbKEpCJFm5IsY0vI +TojIcgdlK2tKorJESNEiLY9dlie/8/vrvt6vc17nnnvvOZ/vuUxHr/0n+Hh4 +eFby8vD8/5py2VFQyylpG/Pwo6w9PfrbGjsI84PEBRTcdSNeMF0KLT17cp0g +QtDAk+5r7WlKKKWWw1hG3EVOvYckitI2IY9/fDxnGXno9kLyobC0XahjwTV2 +jFGBAhvZDqpph9DyviHFX4wXaM/aXtGGFFeU0ZLm/YPRi34cnjDRSPBDhUUh +fR4ao0ibbyFfPjgEuaA3d3+emURmz+/2lvXEoFNflIdLC+cQZQevYNHDBCTM +vKE4uIkHZMPqKM3tqSiC8lIl4xg/PP4SSpdVykSOfVZP+VsFoStpJ7z+m4W8 +m244eikKwxW7R0o7Uu+jktMillImojB8V4Ym/C0PZfi7j244SIH4p/++nNQs +QIFpi/umfopBkLvW+1aiEPF0fITqi+JgNi0u5/uuCCmcc/azUpGANQlXdqXW +FCN1/UHLtA0SoDItZuFTW4x0eA5pjupJwLOZ8RLThmK0Pdzk6xVDCVDNV4gd +e16M7LPUrPLtJOB0n+FTpc5iFNc5ockXKQFIXyvBdLQYLdO98q1oUgLChIsy +LCVK0Ofp+AMrayTB/kWzla9zCco0YJ8daJCEec24A1JuJegopy2yqAW3F/i4 +PHYvQe/ll72w7JGEmlql8onTJeiN5ZktyZOSsEW9Ytle/xL0pMScUFdZB6UW +/g4PI0tQvCfvqEX8OvAof1MzUV6CTL+cvBTjLQXW3wUbcpZKkPEluQIjPynY +9/DWP/W8JNou0f9+5rIUBBZPvevjJ5H+jt2bbMOl4NaWLI8VQiRSydaclLsv +BQkZhKQFhUQrT0y5lvVLwdX5mNOXCBK1fr5k1bNTGi4kioefQyR6HqB3PdRC +Gsa57ySsDEjUuPbfkq3W0vDN9mutliGJqo2Orc5wlAZfe3n/b8YkKsja3uJ2 +SRpodQvXtlqQiOO0HBZIaWDEfBwJtyORxecoVTqdCp6m43nN5/H9VD932slT +YWusmPGeCyQyO7vxcpIKFeZWyRh1XSTRLr4Pr6U2UuGI8Dbn/kv4+QhVX/G9 +VJASIna8u04iXbumWqFA3N41cfVKJIlonXPWk1+o8J9Iwd3EbBIlyuxe0vpJ +Bes5ufTfOSSSPp6ee3qCCs814lca5JJIcsJ44ddfKhjWfBT79IBEFEps+sg6 +Gdjasn5QtJhE/OYaPwZMZKBO1y6OWkmi0QbHq88fyoDtLvn9vK9IxIjuORlR +KgM2ofLR+m0ksrK3sLaqkoEkJYtx73YSPfmzWeXjcxmIbn8j0feGRDHqYp2z +wzLQUn53Kq6bRFvinyoqUmnwc7+MdtkgiU476a75RdCAOuN19/VHEuVo5S+S +ijRYvPZJfvQTnl9r3JttujToPz+Uu+4ziT7znPI/sJcGnjIfTtqNkCj8JK09 +6CYNhNXr+DljJKrbGFNhxqFBIl9nY+g4iWYEhLLEYmnA7DZ4eHOCRMfSJv1S +Mmiwb7nQtN8UiXQ6W1hl1TSo9DJw3vmHRAP/XPD9PEEDcSFPnvAlEmmIdcsa +HpWFXtFbD8pEuOgr52vgnROywGo/1+kuykUpwrPfvrnLwleFv67EKi4SEZAi +w/1koep46dsbq7lodOawcXe0LEgzbQv113BRdv/AKbdGWfjjnlpqs46L7A7/ +7qhqkYWc1YPps9hru/9uWvVGFm7qrVyIkeKiwHYGP3dAFma/8sw3SnPRsXqH ++MUZWXi+3E1JksZFtNwvTyOV6VCtt8rPk+CiTvkZ+SFNOhx+LnlkHDssQzBU +R48OB/043LNMLppPVLTq3U6HmtaCsrMsLurhuI2w7Ohw5by4hIM8F0UJX9zt +40iHwZYfYT3YO4NDyWZXOvwIFvS1WM9F5VfzAzx86KBGHc/SVeCi22d/Ucoj +6HDcT+HcuCIXmY795yN0hw7Gd5LD7JS4iM9zVZ9NEh1Y73WlnmGfdtbMXrpP +B8nPTdGxylxkcdh7s0kdHUZH14gyVLlIGE079E/SgbPpsc2oOhf5GSgJlc/T +gWJpUmaogd+/oW1hJC8DlD90GSVh1++qm9++mgFJpooCOzS56OJ+zu08FQYs +zN8Tub6Bi0asajdf12KAmulyqTbsAwcnB+02McC66o/NOi0u0rY7rEYxZoAn +u/NWFvaPE+ubfB0YMDWWysnT5iIb10Pue10ZkPI30/4r9vOTYWIqXgxwo/W4 +MdlclOU1fmQgALc3qG6IwV5zRl7g0XUGiAjP/GjGvnru4IOoUAa4vN81vIBt +d6FmxjCBAYW7h4LsdbioxX8sWTaNAcy8bi0O9qbLcoaz2QzYv1RIrcReez0k +8gGXAUS9W9YqXbwegqp1b1QygPthYYce9ljwv31H6hhQZv1mvR12a7i1klg7 +A7wcczMysfUjb7WNdjHAL8l2WwN2bnTVucZ+Blj4lFGHsCVjf1NThxmQbLd6 +4xL2jThm3flRBvQu1N+m6nHRRIKVy75xBqzboqKlg30sKVhU9Q8DZlHaanPs +tpRKrsASHt8zQNMRm/56Ru1fPgL6j9OifbGt91F47AQJuMXzXicEO/ytcsfz +FQQMHKHIJGI3WBrm6IoSINtBNcrDnu+0u5BJIcBoyqq4HFvrgK/56rUEjEVT +j9Vju76LZASsI0C7otmyFTvtUN7ECJWAi9zHYZ3Y3b31TdZ0AjwETYX6sEVt ++xPqmQQ0ne15MYht1D/trrmeAM252tdD2P5HVqNkJQJ0Xx+T/YxNflBas0KN +gJWnJIqHsb8f3f7FR5MA7+tbQz5hE59sHw9pE3B3kZ03gH3Q0Sdsjx4BQrw2 +lB7siOEI++rNBDhOijx9jd3klKul/A8B9t75Zc3Yi1/qBOKAgDuWsVPV2GyX +vnd8RgS4PVQIKMY+OTL1wGsnAb2tdeaZ2Bluqy73m+Ln0W9yjsHuGVXcZ2KB +51cR1XIVm+JhIF++j4CuHTf8PLF3/rKZZVkTICjF430IO3Xt9Y4rhwiQPG3M +2o49tSW/qN+WgE/X4jRUsNNDF1ziHAlofFl/eBp//5kSOaPJE7i/4MELPdi7 +e82IvW4EWP51mq7AnldM7llxmgAz32MCfth79zSWOp8l4EDG8gQr7Bzfn1EN +vgRkfUwK0cS2bNpqcukSARl6vLc+4vVc4DhQMRZKQOoY76IGNl/osrjdEQT8 +XNwf8hfvj0Ml6mceRBPglHHtfCv2Mp7LKk4JBPi3T54/jm2fQk96l03ATHOS ++GW8H0sbjc/r5BHwXnsXCdjCP09ZRhcQsDervZQX+5H+05VmXAL4qBNfL+P9 +Tek5GvCklgDiLVPYGeeB81LwIZlGAi5FGryVwa5WKNbxayZg0cOY9zXOEzcf +nl9abQSomN66w8auX5NxJLuPgPm80oxvOJ+k9F9s5hvE60OpMT8K+5TDuMTR +IQLEzNsZm7Blig3apL4TcNzFZWegGhed2z20LXyGAOln0Wn8OO9azgnLfJ8j +QGrMSyBdBa+vZO3ZHf8R8MjLo1sf+9VoYNESPxPmDlg3uOO8VLglR5wVY4LO +ef7WSpy3PfVOvDZqTHjcvndCFOf1mMF76iVNJiRcD6q7K8dFy+v26KRrM8Eo +PGejPLbeU32Xr5uYcLBmSVoX539sFeXVmR1MCFplXWuM68We0uqEMHsmqPZq +fFDG9cWZrU0WOjDhv6DVRukyXHSZvP/yjRMTjP11DkhgFxTH/F3nzgRWR/bV +BVyfhB+6OmWdZ8JOv/uzj3A9e5a9dkNNFBOSm5Iqx3H9+yAfavLxNhNeUTJF +LbGn7y058scz4XPFiTVcMS6Szxy9Y5LCBN32YG0vCs671NqFrjwmqIePdb/D +9XZbvEfz73omOH24+fekEBeV3Wq0J6aZ8CjpHiQtkijX9KVU8B8mcJ4uxdcv +4POQyNu3vxaY4L2+8ezIPImuRg0aV/GxoHLZkUrNORKZJ8xrHKCwYG9/ZVTB +NImG7m9YClNlQdkPgZajv0m0qjk5bdaBBWcuxpYVfSARb8i9w/YnWCDcSL2W +O0CiKdMH4k2uLBC/IvIxrZ9EvW2PgmO8WDC2i2YT+p5EWd1vvdQv4f7tNuYW ++Pyj/1UIjiew4I+09p0YfJ5yXubzsa2NBdxn6+mUKhJRGS/eLbxhQWJScM1Y +BYnaNsm2K3WxoPRBptrrxyTS82iqCexjAe+9dP+wchIJdkgk6Y2wYJ+B4Mhk +CYmy08utU3nlIDBawjocn/c+b/nT4qkjBwfc6w9/iCXR8TP+ZSKJciA8f5ZO +P4nH0/5QppwiBznVw/PVriQSnoBy43Q5UOHZ3mrjQqJib8FHV3PkoPyUw57b +TiRaPB39eIqUgykpy6FZexLFed2v6n8pB7yxnrGRliR64dFRV/CfHHzK/T67 +sIVEmi6qbeYO8mAzcdpucAWJ2teorfTZvB626IOYd1QJqioMTFLjV4CMHU9c +ZiglyJ9XZW/rgAIwDZPkPC8UI+H+i7tOlSrCoKeQixtZhL7kMGPTApRA0KK3 +ocq3EMUqSQtUWCuDtLTzhQmxhygq0bnZgVABz/yCwIbKfGQTe6RN5JsKbKE6 +7vp+/AH6Y5Q9l/ZEFdpqGh+N/MhFw1+2+9UHq8GGui53jfD7KPMfLZlXDupw +fNTXpp2Sgx4G+Yi5qGtAaojXizYyCwVbHzfjn9aAa3cybpQ43EO6/Rl5wa80 +wdhz+OGLxQyUoJz08JXZBpikjzaEV6SjK7WcBLOKDTCdLrZVBf8f7paxzm6R +14LgY3pUimUyMjjVbCsWogUfbwuFStMSURrNUb51WgvCFMU35XXEI/mG+3EW +ttoQxBHxvdh+B0Wp16u8faIN1fc3+iSO30bOkwJvXqiw4Xrot6CfwjHIsWSC +CIlkQ5bMy/XRjlHII9By0TSaDeY3C9nutlHIx7L0nchtNiRoB/vttIpCt6Z9 +IqLi2FD982KOoHEUKtw8txCfwoZhy5WRacpRaK5uqTsnnw0HTE4M+A5Foqi3 +IpzGZjYE+r1z1xGIRIn3PF1vvmCDcs9Yms9MBLp3rs1w10s2HNo+oFc1EoHK +JaPmX7axYco2I8zyVQTqtxF37ehig/O/b5sex0UgxWFpw6FhNjRuq2BZq0Sg +DaUX6Vlf2KAnJGvVT4tA+kF9cye+sWFiY9cnl9URyFwxpfj7KBs0JziU8CkO +OuNO0MfH2eB9T7RI6CkHBWy9NkdOsqE2c9kjsoSDgkSHOs9NsyFoomedQxYH +JRTdC/vzhw0Br0yGWkI4KPOqgEvlPBtcV/CZ3QzgoPx9J7YHLLLh52yLsLEX +B5Wynslu+8uGnssbmMKOHPRkUmFuaYkNXmM1nLdWHPQ/zOGPlw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07505632130852365}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07505632130852365}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VN0fB3BbkqiRiDFm7gzZlxhU6ul8RcqSFrQgRbKEpCJFm5IsY0vI +TojIcgdlK2tKorJESNEiLY9dlie/8/vrvt6vc17nnnvvOZ/vuUxHr/0n+Hh4 +eFby8vD8/5py2VFQyylpG/Pwo6w9PfrbGjsI84PEBRTcdSNeMF0KLT17cp0g +QtDAk+5r7WlKKKWWw1hG3EVOvYckitI2IY9/fDxnGXno9kLyobC0XahjwTV2 +jFGBAhvZDqpph9DyviHFX4wXaM/aXtGGFFeU0ZLm/YPRi34cnjDRSPBDhUUh +fR4ao0ibbyFfPjgEuaA3d3+emURmz+/2lvXEoFNflIdLC+cQZQevYNHDBCTM +vKE4uIkHZMPqKM3tqSiC8lIl4xg/PP4SSpdVykSOfVZP+VsFoStpJ7z+m4W8 +m244eikKwxW7R0o7Uu+jktMillImojB8V4Ym/C0PZfi7j244SIH4p/++nNQs +QIFpi/umfopBkLvW+1aiEPF0fITqi+JgNi0u5/uuCCmcc/azUpGANQlXdqXW +FCN1/UHLtA0SoDItZuFTW4x0eA5pjupJwLOZ8RLThmK0Pdzk6xVDCVDNV4gd +e16M7LPUrPLtJOB0n+FTpc5iFNc5ockXKQFIXyvBdLQYLdO98q1oUgLChIsy +LCVK0Ofp+AMrayTB/kWzla9zCco0YJ8daJCEec24A1JuJegopy2yqAW3F/i4 +PHYvQe/ll72w7JGEmlql8onTJeiN5ZktyZOSsEW9Ytle/xL0pMScUFdZB6UW +/g4PI0tQvCfvqEX8OvAof1MzUV6CTL+cvBTjLQXW3wUbcpZKkPEluQIjPynY +9/DWP/W8JNou0f9+5rIUBBZPvevjJ5H+jt2bbMOl4NaWLI8VQiRSydaclLsv +BQkZhKQFhUQrT0y5lvVLwdX5mNOXCBK1fr5k1bNTGi4kioefQyR6HqB3PdRC +Gsa57ySsDEjUuPbfkq3W0vDN9mutliGJqo2Orc5wlAZfe3n/b8YkKsja3uJ2 +SRpodQvXtlqQiOO0HBZIaWDEfBwJtyORxecoVTqdCp6m43nN5/H9VD932slT +YWusmPGeCyQyO7vxcpIKFeZWyRh1XSTRLr4Pr6U2UuGI8Dbn/kv4+QhVX/G9 +VJASIna8u04iXbumWqFA3N41cfVKJIlonXPWk1+o8J9Iwd3EbBIlyuxe0vpJ +Bes5ufTfOSSSPp6ee3qCCs814lca5JJIcsJ44ddfKhjWfBT79IBEFEps+sg6 +Gdjasn5QtJhE/OYaPwZMZKBO1y6OWkmi0QbHq88fyoDtLvn9vK9IxIjuORlR +KgM2ofLR+m0ksrK3sLaqkoEkJYtx73YSPfmzWeXjcxmIbn8j0feGRDHqYp2z +wzLQUn53Kq6bRFvinyoqUmnwc7+MdtkgiU476a75RdCAOuN19/VHEuVo5S+S +ijRYvPZJfvQTnl9r3JttujToPz+Uu+4ziT7znPI/sJcGnjIfTtqNkCj8JK09 +6CYNhNXr+DljJKrbGFNhxqFBIl9nY+g4iWYEhLLEYmnA7DZ4eHOCRMfSJv1S +Mmiwb7nQtN8UiXQ6W1hl1TSo9DJw3vmHRAP/XPD9PEEDcSFPnvAlEmmIdcsa +HpWFXtFbD8pEuOgr52vgnROywGo/1+kuykUpwrPfvrnLwleFv67EKi4SEZAi +w/1koep46dsbq7lodOawcXe0LEgzbQv113BRdv/AKbdGWfjjnlpqs46L7A7/ +7qhqkYWc1YPps9hru/9uWvVGFm7qrVyIkeKiwHYGP3dAFma/8sw3SnPRsXqH ++MUZWXi+3E1JksZFtNwvTyOV6VCtt8rPk+CiTvkZ+SFNOhx+LnlkHDssQzBU +R48OB/043LNMLppPVLTq3U6HmtaCsrMsLurhuI2w7Ohw5by4hIM8F0UJX9zt +40iHwZYfYT3YO4NDyWZXOvwIFvS1WM9F5VfzAzx86KBGHc/SVeCi22d/Ucoj +6HDcT+HcuCIXmY795yN0hw7Gd5LD7JS4iM9zVZ9NEh1Y73WlnmGfdtbMXrpP +B8nPTdGxylxkcdh7s0kdHUZH14gyVLlIGE079E/SgbPpsc2oOhf5GSgJlc/T +gWJpUmaogd+/oW1hJC8DlD90GSVh1++qm9++mgFJpooCOzS56OJ+zu08FQYs +zN8Tub6Bi0asajdf12KAmulyqTbsAwcnB+02McC66o/NOi0u0rY7rEYxZoAn +u/NWFvaPE+ubfB0YMDWWysnT5iIb10Pue10ZkPI30/4r9vOTYWIqXgxwo/W4 +MdlclOU1fmQgALc3qG6IwV5zRl7g0XUGiAjP/GjGvnru4IOoUAa4vN81vIBt +d6FmxjCBAYW7h4LsdbioxX8sWTaNAcy8bi0O9qbLcoaz2QzYv1RIrcReez0k +8gGXAUS9W9YqXbwegqp1b1QygPthYYce9ljwv31H6hhQZv1mvR12a7i1klg7 +A7wcczMysfUjb7WNdjHAL8l2WwN2bnTVucZ+Blj4lFGHsCVjf1NThxmQbLd6 +4xL2jThm3flRBvQu1N+m6nHRRIKVy75xBqzboqKlg30sKVhU9Q8DZlHaanPs +tpRKrsASHt8zQNMRm/56Ru1fPgL6j9OifbGt91F47AQJuMXzXicEO/ytcsfz +FQQMHKHIJGI3WBrm6IoSINtBNcrDnu+0u5BJIcBoyqq4HFvrgK/56rUEjEVT +j9Vju76LZASsI0C7otmyFTvtUN7ECJWAi9zHYZ3Y3b31TdZ0AjwETYX6sEVt ++xPqmQQ0ne15MYht1D/trrmeAM252tdD2P5HVqNkJQJ0Xx+T/YxNflBas0KN +gJWnJIqHsb8f3f7FR5MA7+tbQz5hE59sHw9pE3B3kZ03gH3Q0Sdsjx4BQrw2 +lB7siOEI++rNBDhOijx9jd3klKul/A8B9t75Zc3Yi1/qBOKAgDuWsVPV2GyX +vnd8RgS4PVQIKMY+OTL1wGsnAb2tdeaZ2Bluqy73m+Ln0W9yjsHuGVXcZ2KB +51cR1XIVm+JhIF++j4CuHTf8PLF3/rKZZVkTICjF430IO3Xt9Y4rhwiQPG3M +2o49tSW/qN+WgE/X4jRUsNNDF1ziHAlofFl/eBp//5kSOaPJE7i/4MELPdi7 +e82IvW4EWP51mq7AnldM7llxmgAz32MCfth79zSWOp8l4EDG8gQr7Bzfn1EN +vgRkfUwK0cS2bNpqcukSARl6vLc+4vVc4DhQMRZKQOoY76IGNl/osrjdEQT8 +XNwf8hfvj0Ml6mceRBPglHHtfCv2Mp7LKk4JBPi3T54/jm2fQk96l03ATHOS ++GW8H0sbjc/r5BHwXnsXCdjCP09ZRhcQsDervZQX+5H+05VmXAL4qBNfL+P9 +Tek5GvCklgDiLVPYGeeB81LwIZlGAi5FGryVwa5WKNbxayZg0cOY9zXOEzcf +nl9abQSomN66w8auX5NxJLuPgPm80oxvOJ+k9F9s5hvE60OpMT8K+5TDuMTR +IQLEzNsZm7Blig3apL4TcNzFZWegGhed2z20LXyGAOln0Wn8OO9azgnLfJ8j +QGrMSyBdBa+vZO3ZHf8R8MjLo1sf+9VoYNESPxPmDlg3uOO8VLglR5wVY4LO +ef7WSpy3PfVOvDZqTHjcvndCFOf1mMF76iVNJiRcD6q7K8dFy+v26KRrM8Eo +PGejPLbeU32Xr5uYcLBmSVoX539sFeXVmR1MCFplXWuM68We0uqEMHsmqPZq +fFDG9cWZrU0WOjDhv6DVRukyXHSZvP/yjRMTjP11DkhgFxTH/F3nzgRWR/bV +BVyfhB+6OmWdZ8JOv/uzj3A9e5a9dkNNFBOSm5Iqx3H9+yAfavLxNhNeUTJF +LbGn7y058scz4XPFiTVcMS6Szxy9Y5LCBN32YG0vCs671NqFrjwmqIePdb/D +9XZbvEfz73omOH24+fekEBeV3Wq0J6aZ8CjpHiQtkijX9KVU8B8mcJ4uxdcv +4POQyNu3vxaY4L2+8ezIPImuRg0aV/GxoHLZkUrNORKZJ8xrHKCwYG9/ZVTB +NImG7m9YClNlQdkPgZajv0m0qjk5bdaBBWcuxpYVfSARb8i9w/YnWCDcSL2W +O0CiKdMH4k2uLBC/IvIxrZ9EvW2PgmO8WDC2i2YT+p5EWd1vvdQv4f7tNuYW ++Pyj/1UIjiew4I+09p0YfJ5yXubzsa2NBdxn6+mUKhJRGS/eLbxhQWJScM1Y +BYnaNsm2K3WxoPRBptrrxyTS82iqCexjAe+9dP+wchIJdkgk6Y2wYJ+B4Mhk +CYmy08utU3nlIDBawjocn/c+b/nT4qkjBwfc6w9/iCXR8TP+ZSKJciA8f5ZO +P4nH0/5QppwiBznVw/PVriQSnoBy43Q5UOHZ3mrjQqJib8FHV3PkoPyUw57b +TiRaPB39eIqUgykpy6FZexLFed2v6n8pB7yxnrGRliR64dFRV/CfHHzK/T67 +sIVEmi6qbeYO8mAzcdpucAWJ2teorfTZvB626IOYd1QJqioMTFLjV4CMHU9c +ZiglyJ9XZW/rgAIwDZPkPC8UI+H+i7tOlSrCoKeQixtZhL7kMGPTApRA0KK3 +ocq3EMUqSQtUWCuDtLTzhQmxhygq0bnZgVABz/yCwIbKfGQTe6RN5JsKbKE6 +7vp+/AH6Y5Q9l/ZEFdpqGh+N/MhFw1+2+9UHq8GGui53jfD7KPMfLZlXDupw +fNTXpp2Sgx4G+Yi5qGtAaojXizYyCwVbHzfjn9aAa3cybpQ43EO6/Rl5wa80 +wdhz+OGLxQyUoJz08JXZBpikjzaEV6SjK7WcBLOKDTCdLrZVBf8f7paxzm6R +14LgY3pUimUyMjjVbCsWogUfbwuFStMSURrNUb51WgvCFMU35XXEI/mG+3EW +ttoQxBHxvdh+B0Wp16u8faIN1fc3+iSO30bOkwJvXqiw4Xrot6CfwjHIsWSC +CIlkQ5bMy/XRjlHII9By0TSaDeY3C9nutlHIx7L0nchtNiRoB/vttIpCt6Z9 +IqLi2FD982KOoHEUKtw8txCfwoZhy5WRacpRaK5uqTsnnw0HTE4M+A5Foqi3 +IpzGZjYE+r1z1xGIRIn3PF1vvmCDcs9Yms9MBLp3rs1w10s2HNo+oFc1EoHK +JaPmX7axYco2I8zyVQTqtxF37ehig/O/b5sex0UgxWFpw6FhNjRuq2BZq0Sg +DaUX6Vlf2KAnJGvVT4tA+kF9cye+sWFiY9cnl9URyFwxpfj7KBs0JziU8CkO +OuNO0MfH2eB9T7RI6CkHBWy9NkdOsqE2c9kjsoSDgkSHOs9NsyFoomedQxYH +JRTdC/vzhw0Br0yGWkI4KPOqgEvlPBtcV/CZ3QzgoPx9J7YHLLLh52yLsLEX +B5Wynslu+8uGnssbmMKOHPRkUmFuaYkNXmM1nLdWHPQ/zOGPlw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07505632130852365}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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, 20}, {0., 0.07505632130852365}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991334471589432*^9, 3.9921242359843464`*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"5c16b638-e912-e347-bb80-e40d3e392a2b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.009784"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.02687"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.043601"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.05335"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.062849"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.065087"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.067708"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.065141"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.063585"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.059029"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.055695"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.050792"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.046991"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.042372"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.03863"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.034472"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.031001"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.027323"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.024229"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.021057"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.018401"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991714709387436*^9, 3.991714738003292*^9}, { + 3.991714834117689*^9, 3.991714842328617*^9}, 3.991793311407936*^9, + 3.9917953263701286`*^9, 3.992091832175211*^9}, + CellLabel->"In[97]:=",ExpressionUUID->"7383cf4d-77c8-1d41-ab20-d4ea9a390940"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, + 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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, 20.}, {0, 0.067708}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9917148467316074`*^9, 3.9921242361528606`*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"c87c3822-f8ef-b841-a9f9-258e2c7f8223"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel->"In[98]:=",ExpressionUUID->"e431227d-0e31-a446-ad0d-76902a9a3bd8"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k8VN0fB3BbkqiRiDFm7gzZlxhU6ul8RcqSFrQgRbKEpCJFm5IsY0vI +TojIcgdlK2tKorJESNEiLY9dlie/8/vrvt6vc17nnnvvOZ/vuUxHr/0n+Hh4 +eFby8vD8/5py2VFQyylpG/Pwo6w9PfrbGjsI84PEBRTcdSNeMF0KLT17cp0g +QtDAk+5r7WlKKKWWw1hG3EVOvYckitI2IY9/fDxnGXno9kLyobC0XahjwTV2 +jFGBAhvZDqpph9DyviHFX4wXaM/aXtGGFFeU0ZLm/YPRi34cnjDRSPBDhUUh +fR4ao0ibbyFfPjgEuaA3d3+emURmz+/2lvXEoFNflIdLC+cQZQevYNHDBCTM +vKE4uIkHZMPqKM3tqSiC8lIl4xg/PP4SSpdVykSOfVZP+VsFoStpJ7z+m4W8 +m244eikKwxW7R0o7Uu+jktMillImojB8V4Ym/C0PZfi7j244SIH4p/++nNQs +QIFpi/umfopBkLvW+1aiEPF0fITqi+JgNi0u5/uuCCmcc/azUpGANQlXdqXW +FCN1/UHLtA0SoDItZuFTW4x0eA5pjupJwLOZ8RLThmK0Pdzk6xVDCVDNV4gd +e16M7LPUrPLtJOB0n+FTpc5iFNc5ockXKQFIXyvBdLQYLdO98q1oUgLChIsy +LCVK0Ofp+AMrayTB/kWzla9zCco0YJ8daJCEec24A1JuJegopy2yqAW3F/i4 +PHYvQe/ll72w7JGEmlql8onTJeiN5ZktyZOSsEW9Ytle/xL0pMScUFdZB6UW +/g4PI0tQvCfvqEX8OvAof1MzUV6CTL+cvBTjLQXW3wUbcpZKkPEluQIjPynY +9/DWP/W8JNou0f9+5rIUBBZPvevjJ5H+jt2bbMOl4NaWLI8VQiRSydaclLsv +BQkZhKQFhUQrT0y5lvVLwdX5mNOXCBK1fr5k1bNTGi4kioefQyR6HqB3PdRC +Gsa57ySsDEjUuPbfkq3W0vDN9mutliGJqo2Orc5wlAZfe3n/b8YkKsja3uJ2 +SRpodQvXtlqQiOO0HBZIaWDEfBwJtyORxecoVTqdCp6m43nN5/H9VD932slT +YWusmPGeCyQyO7vxcpIKFeZWyRh1XSTRLr4Pr6U2UuGI8Dbn/kv4+QhVX/G9 +VJASIna8u04iXbumWqFA3N41cfVKJIlonXPWk1+o8J9Iwd3EbBIlyuxe0vpJ +Bes5ufTfOSSSPp6ee3qCCs814lca5JJIcsJ44ddfKhjWfBT79IBEFEps+sg6 +Gdjasn5QtJhE/OYaPwZMZKBO1y6OWkmi0QbHq88fyoDtLvn9vK9IxIjuORlR +KgM2ofLR+m0ksrK3sLaqkoEkJYtx73YSPfmzWeXjcxmIbn8j0feGRDHqYp2z +wzLQUn53Kq6bRFvinyoqUmnwc7+MdtkgiU476a75RdCAOuN19/VHEuVo5S+S +ijRYvPZJfvQTnl9r3JttujToPz+Uu+4ziT7znPI/sJcGnjIfTtqNkCj8JK09 +6CYNhNXr+DljJKrbGFNhxqFBIl9nY+g4iWYEhLLEYmnA7DZ4eHOCRMfSJv1S +Mmiwb7nQtN8UiXQ6W1hl1TSo9DJw3vmHRAP/XPD9PEEDcSFPnvAlEmmIdcsa +HpWFXtFbD8pEuOgr52vgnROywGo/1+kuykUpwrPfvrnLwleFv67EKi4SEZAi +w/1koep46dsbq7lodOawcXe0LEgzbQv113BRdv/AKbdGWfjjnlpqs46L7A7/ +7qhqkYWc1YPps9hru/9uWvVGFm7qrVyIkeKiwHYGP3dAFma/8sw3SnPRsXqH ++MUZWXi+3E1JksZFtNwvTyOV6VCtt8rPk+CiTvkZ+SFNOhx+LnlkHDssQzBU +R48OB/043LNMLppPVLTq3U6HmtaCsrMsLurhuI2w7Ohw5by4hIM8F0UJX9zt +40iHwZYfYT3YO4NDyWZXOvwIFvS1WM9F5VfzAzx86KBGHc/SVeCi22d/Ucoj +6HDcT+HcuCIXmY795yN0hw7Gd5LD7JS4iM9zVZ9NEh1Y73WlnmGfdtbMXrpP +B8nPTdGxylxkcdh7s0kdHUZH14gyVLlIGE079E/SgbPpsc2oOhf5GSgJlc/T +gWJpUmaogd+/oW1hJC8DlD90GSVh1++qm9++mgFJpooCOzS56OJ+zu08FQYs +zN8Tub6Bi0asajdf12KAmulyqTbsAwcnB+02McC66o/NOi0u0rY7rEYxZoAn +u/NWFvaPE+ubfB0YMDWWysnT5iIb10Pue10ZkPI30/4r9vOTYWIqXgxwo/W4 +MdlclOU1fmQgALc3qG6IwV5zRl7g0XUGiAjP/GjGvnru4IOoUAa4vN81vIBt +d6FmxjCBAYW7h4LsdbioxX8sWTaNAcy8bi0O9qbLcoaz2QzYv1RIrcReez0k +8gGXAUS9W9YqXbwegqp1b1QygPthYYce9ljwv31H6hhQZv1mvR12a7i1klg7 +A7wcczMysfUjb7WNdjHAL8l2WwN2bnTVucZ+Blj4lFGHsCVjf1NThxmQbLd6 +4xL2jThm3flRBvQu1N+m6nHRRIKVy75xBqzboqKlg30sKVhU9Q8DZlHaanPs +tpRKrsASHt8zQNMRm/56Ru1fPgL6j9OifbGt91F47AQJuMXzXicEO/ytcsfz +FQQMHKHIJGI3WBrm6IoSINtBNcrDnu+0u5BJIcBoyqq4HFvrgK/56rUEjEVT +j9Vju76LZASsI0C7otmyFTvtUN7ECJWAi9zHYZ3Y3b31TdZ0AjwETYX6sEVt ++xPqmQQ0ne15MYht1D/trrmeAM252tdD2P5HVqNkJQJ0Xx+T/YxNflBas0KN +gJWnJIqHsb8f3f7FR5MA7+tbQz5hE59sHw9pE3B3kZ03gH3Q0Sdsjx4BQrw2 +lB7siOEI++rNBDhOijx9jd3klKul/A8B9t75Zc3Yi1/qBOKAgDuWsVPV2GyX +vnd8RgS4PVQIKMY+OTL1wGsnAb2tdeaZ2Bluqy73m+Ln0W9yjsHuGVXcZ2KB +51cR1XIVm+JhIF++j4CuHTf8PLF3/rKZZVkTICjF430IO3Xt9Y4rhwiQPG3M +2o49tSW/qN+WgE/X4jRUsNNDF1ziHAlofFl/eBp//5kSOaPJE7i/4MELPdi7 +e82IvW4EWP51mq7AnldM7llxmgAz32MCfth79zSWOp8l4EDG8gQr7Bzfn1EN +vgRkfUwK0cS2bNpqcukSARl6vLc+4vVc4DhQMRZKQOoY76IGNl/osrjdEQT8 +XNwf8hfvj0Ml6mceRBPglHHtfCv2Mp7LKk4JBPi3T54/jm2fQk96l03ATHOS ++GW8H0sbjc/r5BHwXnsXCdjCP09ZRhcQsDervZQX+5H+05VmXAL4qBNfL+P9 +Tek5GvCklgDiLVPYGeeB81LwIZlGAi5FGryVwa5WKNbxayZg0cOY9zXOEzcf +nl9abQSomN66w8auX5NxJLuPgPm80oxvOJ+k9F9s5hvE60OpMT8K+5TDuMTR +IQLEzNsZm7Blig3apL4TcNzFZWegGhed2z20LXyGAOln0Wn8OO9azgnLfJ8j +QGrMSyBdBa+vZO3ZHf8R8MjLo1sf+9VoYNESPxPmDlg3uOO8VLglR5wVY4LO +ef7WSpy3PfVOvDZqTHjcvndCFOf1mMF76iVNJiRcD6q7K8dFy+v26KRrM8Eo +PGejPLbeU32Xr5uYcLBmSVoX539sFeXVmR1MCFplXWuM68We0uqEMHsmqPZq +fFDG9cWZrU0WOjDhv6DVRukyXHSZvP/yjRMTjP11DkhgFxTH/F3nzgRWR/bV +BVyfhB+6OmWdZ8JOv/uzj3A9e5a9dkNNFBOSm5Iqx3H9+yAfavLxNhNeUTJF +LbGn7y058scz4XPFiTVcMS6Szxy9Y5LCBN32YG0vCs671NqFrjwmqIePdb/D +9XZbvEfz73omOH24+fekEBeV3Wq0J6aZ8CjpHiQtkijX9KVU8B8mcJ4uxdcv +4POQyNu3vxaY4L2+8ezIPImuRg0aV/GxoHLZkUrNORKZJ8xrHKCwYG9/ZVTB +NImG7m9YClNlQdkPgZajv0m0qjk5bdaBBWcuxpYVfSARb8i9w/YnWCDcSL2W +O0CiKdMH4k2uLBC/IvIxrZ9EvW2PgmO8WDC2i2YT+p5EWd1vvdQv4f7tNuYW ++Pyj/1UIjiew4I+09p0YfJ5yXubzsa2NBdxn6+mUKhJRGS/eLbxhQWJScM1Y +BYnaNsm2K3WxoPRBptrrxyTS82iqCexjAe+9dP+wchIJdkgk6Y2wYJ+B4Mhk +CYmy08utU3nlIDBawjocn/c+b/nT4qkjBwfc6w9/iCXR8TP+ZSKJciA8f5ZO +P4nH0/5QppwiBznVw/PVriQSnoBy43Q5UOHZ3mrjQqJib8FHV3PkoPyUw57b +TiRaPB39eIqUgykpy6FZexLFed2v6n8pB7yxnrGRliR64dFRV/CfHHzK/T67 +sIVEmi6qbeYO8mAzcdpucAWJ2teorfTZvB626IOYd1QJqioMTFLjV4CMHU9c +ZiglyJ9XZW/rgAIwDZPkPC8UI+H+i7tOlSrCoKeQixtZhL7kMGPTApRA0KK3 +ocq3EMUqSQtUWCuDtLTzhQmxhygq0bnZgVABz/yCwIbKfGQTe6RN5JsKbKE6 +7vp+/AH6Y5Q9l/ZEFdpqGh+N/MhFw1+2+9UHq8GGui53jfD7KPMfLZlXDupw +fNTXpp2Sgx4G+Yi5qGtAaojXizYyCwVbHzfjn9aAa3cybpQ43EO6/Rl5wa80 +wdhz+OGLxQyUoJz08JXZBpikjzaEV6SjK7WcBLOKDTCdLrZVBf8f7paxzm6R +14LgY3pUimUyMjjVbCsWogUfbwuFStMSURrNUb51WgvCFMU35XXEI/mG+3EW +ttoQxBHxvdh+B0Wp16u8faIN1fc3+iSO30bOkwJvXqiw4Xrot6CfwjHIsWSC +CIlkQ5bMy/XRjlHII9By0TSaDeY3C9nutlHIx7L0nchtNiRoB/vttIpCt6Z9 +IqLi2FD982KOoHEUKtw8txCfwoZhy5WRacpRaK5uqTsnnw0HTE4M+A5Foqi3 +IpzGZjYE+r1z1xGIRIn3PF1vvmCDcs9Yms9MBLp3rs1w10s2HNo+oFc1EoHK +JaPmX7axYco2I8zyVQTqtxF37ehig/O/b5sex0UgxWFpw6FhNjRuq2BZq0Sg +DaUX6Vlf2KAnJGvVT4tA+kF9cye+sWFiY9cnl9URyFwxpfj7KBs0JziU8CkO +OuNO0MfH2eB9T7RI6CkHBWy9NkdOsqE2c9kjsoSDgkSHOs9NsyFoomedQxYH +JRTdC/vzhw0Br0yGWkI4KPOqgEvlPBtcV/CZ3QzgoPx9J7YHLLLh52yLsLEX +B5Wynslu+8uGnssbmMKOHPRkUmFuaYkNXmM1nLdWHPQ/zOGPlw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VN0fB3BbkqiRiDFm7gzZlxhU6ul8RcqSFrQgRbKEpCJFm5IsY0vI +TojIcgdlK2tKorJESNEiLY9dlie/8/vrvt6vc17nnnvvOZ/vuUxHr/0n+Hh4 +eFby8vD8/5py2VFQyylpG/Pwo6w9PfrbGjsI84PEBRTcdSNeMF0KLT17cp0g +QtDAk+5r7WlKKKWWw1hG3EVOvYckitI2IY9/fDxnGXno9kLyobC0XahjwTV2 +jFGBAhvZDqpph9DyviHFX4wXaM/aXtGGFFeU0ZLm/YPRi34cnjDRSPBDhUUh +fR4ao0ibbyFfPjgEuaA3d3+emURmz+/2lvXEoFNflIdLC+cQZQevYNHDBCTM +vKE4uIkHZMPqKM3tqSiC8lIl4xg/PP4SSpdVykSOfVZP+VsFoStpJ7z+m4W8 +m244eikKwxW7R0o7Uu+jktMillImojB8V4Ym/C0PZfi7j244SIH4p/++nNQs +QIFpi/umfopBkLvW+1aiEPF0fITqi+JgNi0u5/uuCCmcc/azUpGANQlXdqXW +FCN1/UHLtA0SoDItZuFTW4x0eA5pjupJwLOZ8RLThmK0Pdzk6xVDCVDNV4gd +e16M7LPUrPLtJOB0n+FTpc5iFNc5ockXKQFIXyvBdLQYLdO98q1oUgLChIsy +LCVK0Ofp+AMrayTB/kWzla9zCco0YJ8daJCEec24A1JuJegopy2yqAW3F/i4 +PHYvQe/ll72w7JGEmlql8onTJeiN5ZktyZOSsEW9Ytle/xL0pMScUFdZB6UW +/g4PI0tQvCfvqEX8OvAof1MzUV6CTL+cvBTjLQXW3wUbcpZKkPEluQIjPynY +9/DWP/W8JNou0f9+5rIUBBZPvevjJ5H+jt2bbMOl4NaWLI8VQiRSydaclLsv +BQkZhKQFhUQrT0y5lvVLwdX5mNOXCBK1fr5k1bNTGi4kioefQyR6HqB3PdRC +Gsa57ySsDEjUuPbfkq3W0vDN9mutliGJqo2Orc5wlAZfe3n/b8YkKsja3uJ2 +SRpodQvXtlqQiOO0HBZIaWDEfBwJtyORxecoVTqdCp6m43nN5/H9VD932slT +YWusmPGeCyQyO7vxcpIKFeZWyRh1XSTRLr4Pr6U2UuGI8Dbn/kv4+QhVX/G9 +VJASIna8u04iXbumWqFA3N41cfVKJIlonXPWk1+o8J9Iwd3EbBIlyuxe0vpJ +Bes5ufTfOSSSPp6ee3qCCs814lca5JJIcsJ44ddfKhjWfBT79IBEFEps+sg6 +Gdjasn5QtJhE/OYaPwZMZKBO1y6OWkmi0QbHq88fyoDtLvn9vK9IxIjuORlR +KgM2ofLR+m0ksrK3sLaqkoEkJYtx73YSPfmzWeXjcxmIbn8j0feGRDHqYp2z +wzLQUn53Kq6bRFvinyoqUmnwc7+MdtkgiU476a75RdCAOuN19/VHEuVo5S+S +ijRYvPZJfvQTnl9r3JttujToPz+Uu+4ziT7znPI/sJcGnjIfTtqNkCj8JK09 +6CYNhNXr+DljJKrbGFNhxqFBIl9nY+g4iWYEhLLEYmnA7DZ4eHOCRMfSJv1S +Mmiwb7nQtN8UiXQ6W1hl1TSo9DJw3vmHRAP/XPD9PEEDcSFPnvAlEmmIdcsa +HpWFXtFbD8pEuOgr52vgnROywGo/1+kuykUpwrPfvrnLwleFv67EKi4SEZAi +w/1koep46dsbq7lodOawcXe0LEgzbQv113BRdv/AKbdGWfjjnlpqs46L7A7/ +7qhqkYWc1YPps9hru/9uWvVGFm7qrVyIkeKiwHYGP3dAFma/8sw3SnPRsXqH ++MUZWXi+3E1JksZFtNwvTyOV6VCtt8rPk+CiTvkZ+SFNOhx+LnlkHDssQzBU +R48OB/043LNMLppPVLTq3U6HmtaCsrMsLurhuI2w7Ohw5by4hIM8F0UJX9zt +40iHwZYfYT3YO4NDyWZXOvwIFvS1WM9F5VfzAzx86KBGHc/SVeCi22d/Ucoj +6HDcT+HcuCIXmY795yN0hw7Gd5LD7JS4iM9zVZ9NEh1Y73WlnmGfdtbMXrpP +B8nPTdGxylxkcdh7s0kdHUZH14gyVLlIGE079E/SgbPpsc2oOhf5GSgJlc/T +gWJpUmaogd+/oW1hJC8DlD90GSVh1++qm9++mgFJpooCOzS56OJ+zu08FQYs +zN8Tub6Bi0asajdf12KAmulyqTbsAwcnB+02McC66o/NOi0u0rY7rEYxZoAn +u/NWFvaPE+ubfB0YMDWWysnT5iIb10Pue10ZkPI30/4r9vOTYWIqXgxwo/W4 +MdlclOU1fmQgALc3qG6IwV5zRl7g0XUGiAjP/GjGvnru4IOoUAa4vN81vIBt +d6FmxjCBAYW7h4LsdbioxX8sWTaNAcy8bi0O9qbLcoaz2QzYv1RIrcReez0k +8gGXAUS9W9YqXbwegqp1b1QygPthYYce9ljwv31H6hhQZv1mvR12a7i1klg7 +A7wcczMysfUjb7WNdjHAL8l2WwN2bnTVucZ+Blj4lFGHsCVjf1NThxmQbLd6 +4xL2jThm3flRBvQu1N+m6nHRRIKVy75xBqzboqKlg30sKVhU9Q8DZlHaanPs +tpRKrsASHt8zQNMRm/56Ru1fPgL6j9OifbGt91F47AQJuMXzXicEO/ytcsfz +FQQMHKHIJGI3WBrm6IoSINtBNcrDnu+0u5BJIcBoyqq4HFvrgK/56rUEjEVT +j9Vju76LZASsI0C7otmyFTvtUN7ECJWAi9zHYZ3Y3b31TdZ0AjwETYX6sEVt ++xPqmQQ0ne15MYht1D/trrmeAM252tdD2P5HVqNkJQJ0Xx+T/YxNflBas0KN +gJWnJIqHsb8f3f7FR5MA7+tbQz5hE59sHw9pE3B3kZ03gH3Q0Sdsjx4BQrw2 +lB7siOEI++rNBDhOijx9jd3klKul/A8B9t75Zc3Yi1/qBOKAgDuWsVPV2GyX +vnd8RgS4PVQIKMY+OTL1wGsnAb2tdeaZ2Bluqy73m+Ln0W9yjsHuGVXcZ2KB +51cR1XIVm+JhIF++j4CuHTf8PLF3/rKZZVkTICjF430IO3Xt9Y4rhwiQPG3M +2o49tSW/qN+WgE/X4jRUsNNDF1ziHAlofFl/eBp//5kSOaPJE7i/4MELPdi7 +e82IvW4EWP51mq7AnldM7llxmgAz32MCfth79zSWOp8l4EDG8gQr7Bzfn1EN +vgRkfUwK0cS2bNpqcukSARl6vLc+4vVc4DhQMRZKQOoY76IGNl/osrjdEQT8 +XNwf8hfvj0Ml6mceRBPglHHtfCv2Mp7LKk4JBPi3T54/jm2fQk96l03ATHOS ++GW8H0sbjc/r5BHwXnsXCdjCP09ZRhcQsDervZQX+5H+05VmXAL4qBNfL+P9 +Tek5GvCklgDiLVPYGeeB81LwIZlGAi5FGryVwa5WKNbxayZg0cOY9zXOEzcf +nl9abQSomN66w8auX5NxJLuPgPm80oxvOJ+k9F9s5hvE60OpMT8K+5TDuMTR +IQLEzNsZm7Blig3apL4TcNzFZWegGhed2z20LXyGAOln0Wn8OO9azgnLfJ8j +QGrMSyBdBa+vZO3ZHf8R8MjLo1sf+9VoYNESPxPmDlg3uOO8VLglR5wVY4LO +ef7WSpy3PfVOvDZqTHjcvndCFOf1mMF76iVNJiRcD6q7K8dFy+v26KRrM8Eo +PGejPLbeU32Xr5uYcLBmSVoX539sFeXVmR1MCFplXWuM68We0uqEMHsmqPZq +fFDG9cWZrU0WOjDhv6DVRukyXHSZvP/yjRMTjP11DkhgFxTH/F3nzgRWR/bV +BVyfhB+6OmWdZ8JOv/uzj3A9e5a9dkNNFBOSm5Iqx3H9+yAfavLxNhNeUTJF +LbGn7y058scz4XPFiTVcMS6Szxy9Y5LCBN32YG0vCs671NqFrjwmqIePdb/D +9XZbvEfz73omOH24+fekEBeV3Wq0J6aZ8CjpHiQtkijX9KVU8B8mcJ4uxdcv +4POQyNu3vxaY4L2+8ezIPImuRg0aV/GxoHLZkUrNORKZJ8xrHKCwYG9/ZVTB +NImG7m9YClNlQdkPgZajv0m0qjk5bdaBBWcuxpYVfSARb8i9w/YnWCDcSL2W +O0CiKdMH4k2uLBC/IvIxrZ9EvW2PgmO8WDC2i2YT+p5EWd1vvdQv4f7tNuYW ++Pyj/1UIjiew4I+09p0YfJ5yXubzsa2NBdxn6+mUKhJRGS/eLbxhQWJScM1Y +BYnaNsm2K3WxoPRBptrrxyTS82iqCexjAe+9dP+wchIJdkgk6Y2wYJ+B4Mhk +CYmy08utU3nlIDBawjocn/c+b/nT4qkjBwfc6w9/iCXR8TP+ZSKJciA8f5ZO +P4nH0/5QppwiBznVw/PVriQSnoBy43Q5UOHZ3mrjQqJib8FHV3PkoPyUw57b +TiRaPB39eIqUgykpy6FZexLFed2v6n8pB7yxnrGRliR64dFRV/CfHHzK/T67 +sIVEmi6qbeYO8mAzcdpucAWJ2teorfTZvB626IOYd1QJqioMTFLjV4CMHU9c +ZiglyJ9XZW/rgAIwDZPkPC8UI+H+i7tOlSrCoKeQixtZhL7kMGPTApRA0KK3 +ocq3EMUqSQtUWCuDtLTzhQmxhygq0bnZgVABz/yCwIbKfGQTe6RN5JsKbKE6 +7vp+/AH6Y5Q9l/ZEFdpqGh+N/MhFw1+2+9UHq8GGui53jfD7KPMfLZlXDupw +fNTXpp2Sgx4G+Yi5qGtAaojXizYyCwVbHzfjn9aAa3cybpQ43EO6/Rl5wa80 +wdhz+OGLxQyUoJz08JXZBpikjzaEV6SjK7WcBLOKDTCdLrZVBf8f7paxzm6R +14LgY3pUimUyMjjVbCsWogUfbwuFStMSURrNUb51WgvCFMU35XXEI/mG+3EW +ttoQxBHxvdh+B0Wp16u8faIN1fc3+iSO30bOkwJvXqiw4Xrot6CfwjHIsWSC +CIlkQ5bMy/XRjlHII9By0TSaDeY3C9nutlHIx7L0nchtNiRoB/vttIpCt6Z9 +IqLi2FD982KOoHEUKtw8txCfwoZhy5WRacpRaK5uqTsnnw0HTE4M+A5Foqi3 +IpzGZjYE+r1z1xGIRIn3PF1vvmCDcs9Yms9MBLp3rs1w10s2HNo+oFc1EoHK +JaPmX7axYco2I8zyVQTqtxF37ehig/O/b5sex0UgxWFpw6FhNjRuq2BZq0Sg +DaUX6Vlf2KAnJGvVT4tA+kF9cye+sWFiY9cnl9URyFwxpfj7KBs0JziU8CkO +OuNO0MfH2eB9T7RI6CkHBWy9NkdOsqE2c9kjsoSDgkSHOs9NsyFoomedQxYH +JRTdC/vzhw0Br0yGWkI4KPOqgEvlPBtcV/CZ3QzgoPx9J7YHLLLh52yLsLEX +B5Wynslu+8uGnssbmMKOHPRkUmFuaYkNXmM1nLdWHPQ/zOGPlw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07505632130852365}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07505632130852365}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VN0fB3BbkqiRiDFm7gzZlxhU6ul8RcqSFrQgRbKEpCJFm5IsY0vI +TojIcgdlK2tKorJESNEiLY9dlie/8/vrvt6vc17nnnvvOZ/vuUxHr/0n+Hh4 +eFby8vD8/5py2VFQyylpG/Pwo6w9PfrbGjsI84PEBRTcdSNeMF0KLT17cp0g +QtDAk+5r7WlKKKWWw1hG3EVOvYckitI2IY9/fDxnGXno9kLyobC0XahjwTV2 +jFGBAhvZDqpph9DyviHFX4wXaM/aXtGGFFeU0ZLm/YPRi34cnjDRSPBDhUUh +fR4ao0ibbyFfPjgEuaA3d3+emURmz+/2lvXEoFNflIdLC+cQZQevYNHDBCTM +vKE4uIkHZMPqKM3tqSiC8lIl4xg/PP4SSpdVykSOfVZP+VsFoStpJ7z+m4W8 +m244eikKwxW7R0o7Uu+jktMillImojB8V4Ym/C0PZfi7j244SIH4p/++nNQs +QIFpi/umfopBkLvW+1aiEPF0fITqi+JgNi0u5/uuCCmcc/azUpGANQlXdqXW +FCN1/UHLtA0SoDItZuFTW4x0eA5pjupJwLOZ8RLThmK0Pdzk6xVDCVDNV4gd +e16M7LPUrPLtJOB0n+FTpc5iFNc5ockXKQFIXyvBdLQYLdO98q1oUgLChIsy +LCVK0Ofp+AMrayTB/kWzla9zCco0YJ8daJCEec24A1JuJegopy2yqAW3F/i4 +PHYvQe/ll72w7JGEmlql8onTJeiN5ZktyZOSsEW9Ytle/xL0pMScUFdZB6UW +/g4PI0tQvCfvqEX8OvAof1MzUV6CTL+cvBTjLQXW3wUbcpZKkPEluQIjPynY +9/DWP/W8JNou0f9+5rIUBBZPvevjJ5H+jt2bbMOl4NaWLI8VQiRSydaclLsv +BQkZhKQFhUQrT0y5lvVLwdX5mNOXCBK1fr5k1bNTGi4kioefQyR6HqB3PdRC +Gsa57ySsDEjUuPbfkq3W0vDN9mutliGJqo2Orc5wlAZfe3n/b8YkKsja3uJ2 +SRpodQvXtlqQiOO0HBZIaWDEfBwJtyORxecoVTqdCp6m43nN5/H9VD932slT +YWusmPGeCyQyO7vxcpIKFeZWyRh1XSTRLr4Pr6U2UuGI8Dbn/kv4+QhVX/G9 +VJASIna8u04iXbumWqFA3N41cfVKJIlonXPWk1+o8J9Iwd3EbBIlyuxe0vpJ +Bes5ufTfOSSSPp6ee3qCCs814lca5JJIcsJ44ddfKhjWfBT79IBEFEps+sg6 +Gdjasn5QtJhE/OYaPwZMZKBO1y6OWkmi0QbHq88fyoDtLvn9vK9IxIjuORlR +KgM2ofLR+m0ksrK3sLaqkoEkJYtx73YSPfmzWeXjcxmIbn8j0feGRDHqYp2z +wzLQUn53Kq6bRFvinyoqUmnwc7+MdtkgiU476a75RdCAOuN19/VHEuVo5S+S +ijRYvPZJfvQTnl9r3JttujToPz+Uu+4ziT7znPI/sJcGnjIfTtqNkCj8JK09 +6CYNhNXr+DljJKrbGFNhxqFBIl9nY+g4iWYEhLLEYmnA7DZ4eHOCRMfSJv1S +Mmiwb7nQtN8UiXQ6W1hl1TSo9DJw3vmHRAP/XPD9PEEDcSFPnvAlEmmIdcsa +HpWFXtFbD8pEuOgr52vgnROywGo/1+kuykUpwrPfvrnLwleFv67EKi4SEZAi +w/1koep46dsbq7lodOawcXe0LEgzbQv113BRdv/AKbdGWfjjnlpqs46L7A7/ +7qhqkYWc1YPps9hru/9uWvVGFm7qrVyIkeKiwHYGP3dAFma/8sw3SnPRsXqH ++MUZWXi+3E1JksZFtNwvTyOV6VCtt8rPk+CiTvkZ+SFNOhx+LnlkHDssQzBU +R48OB/043LNMLppPVLTq3U6HmtaCsrMsLurhuI2w7Ohw5by4hIM8F0UJX9zt +40iHwZYfYT3YO4NDyWZXOvwIFvS1WM9F5VfzAzx86KBGHc/SVeCi22d/Ucoj +6HDcT+HcuCIXmY795yN0hw7Gd5LD7JS4iM9zVZ9NEh1Y73WlnmGfdtbMXrpP +B8nPTdGxylxkcdh7s0kdHUZH14gyVLlIGE079E/SgbPpsc2oOhf5GSgJlc/T +gWJpUmaogd+/oW1hJC8DlD90GSVh1++qm9++mgFJpooCOzS56OJ+zu08FQYs +zN8Tub6Bi0asajdf12KAmulyqTbsAwcnB+02McC66o/NOi0u0rY7rEYxZoAn +u/NWFvaPE+ubfB0YMDWWysnT5iIb10Pue10ZkPI30/4r9vOTYWIqXgxwo/W4 +MdlclOU1fmQgALc3qG6IwV5zRl7g0XUGiAjP/GjGvnru4IOoUAa4vN81vIBt +d6FmxjCBAYW7h4LsdbioxX8sWTaNAcy8bi0O9qbLcoaz2QzYv1RIrcReez0k +8gGXAUS9W9YqXbwegqp1b1QygPthYYce9ljwv31H6hhQZv1mvR12a7i1klg7 +A7wcczMysfUjb7WNdjHAL8l2WwN2bnTVucZ+Blj4lFGHsCVjf1NThxmQbLd6 +4xL2jThm3flRBvQu1N+m6nHRRIKVy75xBqzboqKlg30sKVhU9Q8DZlHaanPs +tpRKrsASHt8zQNMRm/56Ru1fPgL6j9OifbGt91F47AQJuMXzXicEO/ytcsfz +FQQMHKHIJGI3WBrm6IoSINtBNcrDnu+0u5BJIcBoyqq4HFvrgK/56rUEjEVT +j9Vju76LZASsI0C7otmyFTvtUN7ECJWAi9zHYZ3Y3b31TdZ0AjwETYX6sEVt ++xPqmQQ0ne15MYht1D/trrmeAM252tdD2P5HVqNkJQJ0Xx+T/YxNflBas0KN +gJWnJIqHsb8f3f7FR5MA7+tbQz5hE59sHw9pE3B3kZ03gH3Q0Sdsjx4BQrw2 +lB7siOEI++rNBDhOijx9jd3klKul/A8B9t75Zc3Yi1/qBOKAgDuWsVPV2GyX +vnd8RgS4PVQIKMY+OTL1wGsnAb2tdeaZ2Bluqy73m+Ln0W9yjsHuGVXcZ2KB +51cR1XIVm+JhIF++j4CuHTf8PLF3/rKZZVkTICjF430IO3Xt9Y4rhwiQPG3M +2o49tSW/qN+WgE/X4jRUsNNDF1ziHAlofFl/eBp//5kSOaPJE7i/4MELPdi7 +e82IvW4EWP51mq7AnldM7llxmgAz32MCfth79zSWOp8l4EDG8gQr7Bzfn1EN +vgRkfUwK0cS2bNpqcukSARl6vLc+4vVc4DhQMRZKQOoY76IGNl/osrjdEQT8 +XNwf8hfvj0Ml6mceRBPglHHtfCv2Mp7LKk4JBPi3T54/jm2fQk96l03ATHOS ++GW8H0sbjc/r5BHwXnsXCdjCP09ZRhcQsDervZQX+5H+05VmXAL4qBNfL+P9 +Tek5GvCklgDiLVPYGeeB81LwIZlGAi5FGryVwa5WKNbxayZg0cOY9zXOEzcf +nl9abQSomN66w8auX5NxJLuPgPm80oxvOJ+k9F9s5hvE60OpMT8K+5TDuMTR +IQLEzNsZm7Blig3apL4TcNzFZWegGhed2z20LXyGAOln0Wn8OO9azgnLfJ8j +QGrMSyBdBa+vZO3ZHf8R8MjLo1sf+9VoYNESPxPmDlg3uOO8VLglR5wVY4LO +ef7WSpy3PfVOvDZqTHjcvndCFOf1mMF76iVNJiRcD6q7K8dFy+v26KRrM8Eo +PGejPLbeU32Xr5uYcLBmSVoX539sFeXVmR1MCFplXWuM68We0uqEMHsmqPZq +fFDG9cWZrU0WOjDhv6DVRukyXHSZvP/yjRMTjP11DkhgFxTH/F3nzgRWR/bV +BVyfhB+6OmWdZ8JOv/uzj3A9e5a9dkNNFBOSm5Iqx3H9+yAfavLxNhNeUTJF +LbGn7y058scz4XPFiTVcMS6Szxy9Y5LCBN32YG0vCs671NqFrjwmqIePdb/D +9XZbvEfz73omOH24+fekEBeV3Wq0J6aZ8CjpHiQtkijX9KVU8B8mcJ4uxdcv +4POQyNu3vxaY4L2+8ezIPImuRg0aV/GxoHLZkUrNORKZJ8xrHKCwYG9/ZVTB +NImG7m9YClNlQdkPgZajv0m0qjk5bdaBBWcuxpYVfSARb8i9w/YnWCDcSL2W +O0CiKdMH4k2uLBC/IvIxrZ9EvW2PgmO8WDC2i2YT+p5EWd1vvdQv4f7tNuYW ++Pyj/1UIjiew4I+09p0YfJ5yXubzsa2NBdxn6+mUKhJRGS/eLbxhQWJScM1Y +BYnaNsm2K3WxoPRBptrrxyTS82iqCexjAe+9dP+wchIJdkgk6Y2wYJ+B4Mhk +CYmy08utU3nlIDBawjocn/c+b/nT4qkjBwfc6w9/iCXR8TP+ZSKJciA8f5ZO +P4nH0/5QppwiBznVw/PVriQSnoBy43Q5UOHZ3mrjQqJib8FHV3PkoPyUw57b +TiRaPB39eIqUgykpy6FZexLFed2v6n8pB7yxnrGRliR64dFRV/CfHHzK/T67 +sIVEmi6qbeYO8mAzcdpucAWJ2teorfTZvB626IOYd1QJqioMTFLjV4CMHU9c +ZiglyJ9XZW/rgAIwDZPkPC8UI+H+i7tOlSrCoKeQixtZhL7kMGPTApRA0KK3 +ocq3EMUqSQtUWCuDtLTzhQmxhygq0bnZgVABz/yCwIbKfGQTe6RN5JsKbKE6 +7vp+/AH6Y5Q9l/ZEFdpqGh+N/MhFw1+2+9UHq8GGui53jfD7KPMfLZlXDupw +fNTXpp2Sgx4G+Yi5qGtAaojXizYyCwVbHzfjn9aAa3cybpQ43EO6/Rl5wa80 +wdhz+OGLxQyUoJz08JXZBpikjzaEV6SjK7WcBLOKDTCdLrZVBf8f7paxzm6R +14LgY3pUimUyMjjVbCsWogUfbwuFStMSURrNUb51WgvCFMU35XXEI/mG+3EW +ttoQxBHxvdh+B0Wp16u8faIN1fc3+iSO30bOkwJvXqiw4Xrot6CfwjHIsWSC +CIlkQ5bMy/XRjlHII9By0TSaDeY3C9nutlHIx7L0nchtNiRoB/vttIpCt6Z9 +IqLi2FD982KOoHEUKtw8txCfwoZhy5WRacpRaK5uqTsnnw0HTE4M+A5Foqi3 +IpzGZjYE+r1z1xGIRIn3PF1vvmCDcs9Yms9MBLp3rs1w10s2HNo+oFc1EoHK +JaPmX7axYco2I8zyVQTqtxF37ehig/O/b5sex0UgxWFpw6FhNjRuq2BZq0Sg +DaUX6Vlf2KAnJGvVT4tA+kF9cye+sWFiY9cnl9URyFwxpfj7KBs0JziU8CkO +OuNO0MfH2eB9T7RI6CkHBWy9NkdOsqE2c9kjsoSDgkSHOs9NsyFoomedQxYH +JRTdC/vzhw0Br0yGWkI4KPOqgEvlPBtcV/CZ3QzgoPx9J7YHLLLh52yLsLEX +B5Wynslu+8uGnssbmMKOHPRkUmFuaYkNXmM1nLdWHPQ/zOGPlw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07505632130852365}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, + 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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, 20}, {0., 0.07505632130852365}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.992124236212303*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"ca6a27f2-e363-894a-a030-c07dc233af3a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{3.991846110594208*^9}, + CellLabel->"In[99]:=",ExpressionUUID->"4e5b3330-e10a-4342-8f3d-b24f9b16b9de"], + +Cell[BoxData["13.355018745137238`"], "Output", + CellChangeTimes->{3.991334803166374*^9, 3.9921242362892513`*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"f9b9a3d6-345c-514f-bfc0-2318aebff7d4"] +}, 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.991846112020672*^9}, + CellLabel-> + "In[100]:=",ExpressionUUID->"bb5f3a72-8528-7a48-a67a-a23038fc5b71"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2746919409279075`*^-255\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 100, 890, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133480336051*^9, 3.992124236584585*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"80a5b597-3c03-754c-bcbe-34458286b68e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.0033968198562457`*^-265\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 100, 891, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133480336051*^9, 3.992124236608486*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"2de6819f-78ef-c349-9e7a-cf907965a0a0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.148681409947907`*^-275\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 100, 892, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133480336051*^9, 3.99212423662685*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"f1c547dc-697e-694e-93f0-d100bcc31e77"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 100, 893, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133480336051*^9, 3.992124236642412*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"3a58558b-4e57-1b43-b80e-3c97d1b35f87"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nc8Vf8fB/BCpWFEstd1zrVnRuJ6v0lEQ4Q0qYykKBnJN6Myky7aoZSM +e89N+pYiRUZUSkNmXyMN2bJC8ju/P87jPJ7/nPM+n8/n/Xof5X0BTl588+bN +45tPX/R9ov1lFXE22+Lt8x8ZOWomFg2ZUmGWzacgP1J7xMtCAlCifp9UcyoU +zLddbmxBQsgWThN/8y04JW5/V8rCCJYPSqZONd0HycFXemOsddBRujlgrKkC +zHZtrExkuYAN0fvfSNMHEH2dsn/KzAummkwuDjd9AebN1ZplRsFQuTY3+/2t +URhLwlD72RiQ6yj+vk9rFjYUT873NGTDikPunEVr+dHv+43HeRoXIVXf5slm +F0HsEXg7Nu1yDVqu6JWPiAph0Uz/pqjeTDibHVnPJ70cH/38WVpbmwWSF7oT +0jLEMRENehd+vQ1xznYWHyYk8Jiobmz03TtwzDTL/eUpKYxz4ySx/XLBemj6 +hH+3DO5uONB/pSkPwtZf0HjeL4MRtpI9Lz7nwd0s7VbxCRl8dKvs9UhXHkg5 +e5gWC8riBeendhb9edD/uHqSX0cWG8ReS96flw9pp9hBV4/L4rYlpsUC6vnw +RYLpXyUkhy3tMzLOofkQbe64V2a1PHZ6r35ybgkH1u/J/GViJY825mKGW0U4 +IBzVd9plozymEqUTK1ZwIL0yJoftIY+N+Q/dzslz4LF9Sd/CBHn8Hv89wVGP +A8NuKiGjLfK4fcohTNWFA3uCxxPrwhVQJF/jhGA6B8jLVnK9MQr4Z8KuzfUm +h673PG8RWwFlTc5GZ2Vz4MQf9XdW2QpoeUQyQ5PHgYun90gU1yngbPN8YfFn +HKhLqblxR14ROyWsa3Q6OLDm7tUHEWWKOOGzZd1VBS5YN72dHaxVxBc+wbE6 +DC5snidg6/5BEXcWqMaVk1zY7+TfAt8UcZ6IZU2rFhdswpUjoxYooXRgtVXP +Gi4cUZy4bamphI9BTtvHlQtVPjcGKkOU8B3hrjSeyAW7P6Zi/4QrYVOHjxcj +mQtv2Q3GhlFKqJl31W9jChdaihdHZScoYcabT08uXebC4NIgsZh0JRxS3usv +kM0FqXvrTWwqlDDH3nGVdSkXDv0eiaoVUsYb5o7Srr1cWHPUe+V3MWWcEt+s +tW2AC4K9rVx+KWUcN/l+zHmYC3faKhstGMr45m5l1toJLrQ/u6j10FgZnw95 +RIzNp8AhxrQ5y10ZJ0TsA25KUWAgFq0bXqiMdy/CH8ZaCuadHa+6UqSMgSFh +ctx1FLzlP7ij6IkyHhgtCdNdT4HfuFPMSLUyljZc6dfaREF2M9Hm06qM2jkv +S6ddKVh5ozbWmZ+BOxx7Hb/4UjClKdqu7cLA6HH5d91JFExkyESv2sHAk5Va +6b3JFIyJkISpOwMd9fd8HGBTMDhqetDal4ExL0vO/LxAwZcn+yd2nGRg1mTk +34fpFLza8Eg4/g4Da2Ye5d/mUlDz9HnhOQ4D7/yOdjvKo6BKt845rYCBvscE +w8wKKHgm3nUts5iBWxctWV59n4L7bUtUH75h4LJyzOcVU3DNbw98GWdg1YO6 +joYXFFz+78CXH9MMPBBk1OlbS8EFh2MxA3MMDKjO3T7zkoLkVfGvfy9WwZnQ +C8Xibyg4NVO4TURBBTfWqpjJfKTX5+yCI+Y2KlgROe9BRDsFB2ZFxK02qKBy +wd/Itg4KvANkimy3qKCPJ98bwy4KPLbq/nHaoYLhLXr9n7spcJbdHu/rr4LH +9vZv4v9JgTmXunnpkgqWPpSVzP9FQZsS98a66yoI7OjkklEKTlzKzxy7oYJT +adN8L8coeBSdk+6Ur4IhB6e+fp6g99ft5hXhUhV8M7LsWuc0BeoLLrBju1Sw +xHC1vhsfD2pPpJ43+q6CKH6p0JSfB97D7OSvvXQ93CRjKQEeZLedS7IaU8EF +YLylbgEPlO7Hxf9dSOCYgNE70cU8WOkeHhWiRWCiuUXgUhEePGwIiyT1CWTd +PhP6lLaz/fGIBiMCtzjuTzgkyoNUo+B/DIBA8fKphufLeSC0LOD4oCOB1L6V +MnYreEBFHw7NcCVQFnNTu2nbT/qFbNxJYHvDH9lwCR7EfzkQxPEkkC0isT9r +JQ8Eivcd8Q4l0CK37/0rKR7c1tkbIPEPgZG97I5N0jywynb3r4oicMEZa763 +tCPP7zrESCQwWkYgoVqGB9Nergfa0wkcOW3GTZHjwdU2Z59zWQQCX+6RWdqr +Hbd6m+cQ+FQ/zsFbngch5ls8rxUQ6IJdO3UVeDAiZu/hWkFg/IKiZ5mKPGg+ +xHh3sIZA/wG29zTt8hfTEFlH4EMfW46TEg/YJ7iKeY0ERlw0EJyifbzh9PnS +NgLrE9pVbJV54KGza+5dJ4GHU5zbU2jrfVnWMdVL4Mf+NAN5Bg+kzL9tFh4m +cLlNy5vdtOddevqMMU5gWWnnkuu0e4Yu6phME2j+1re3gXa9nX/mhjkCnyUb +Hl6qwoOi2zbCHgIkjuXNv2BBO3NWISJoMYn5u1Pd/Wn7F9bvzhAn8XDswp5K +2q5L894USpGY7BOQ85O2hVcU64U8ifdKc5YtI3jALHPjtTJInCs4IqtJW0ha +X35IlcSbcykfbWiPBS4+x69Not9svZE77c91XX8kDUhMSh62CqJdxSw5pGVC +4jzNkpkY2lRU6mc0JzH2v1GPC7QvtB7c6GJJYp+V17EbtP8xXFvqa0PissTG +Vbm0PZNltSI2kCh9TPQ2l/aGntHrqVtIZDt8fk7RNrCqW5rrQtc7XyCFQ1sm +PTv8yQ4SFf84Lr9Dm2/in756dxJzLVPWptPudXDZ+dWTxNee59TYtD/ka7/+ +7Uvizjix51G0S/gXmgkFkKi3Y0DIn/at3e0c5SASm+X6RNxoJzwqkjEOI1Es +o6XGgvaR5ecT7SPo9TOOM2bQdvPzmd5zmsS0DxW7+GhjNRw8Fk/ipR87zTro +9VVTlGqNO0fil+OMj49pi4YN26Wnkmiw8gdxnvbvD7XF9y7T+9N2Qn8f7U6t +LPXqdBKJIwVT+rRrY8OutmTR9S7aFvGX3v97nY6LB3NIFHW3Lq+hfWWNRhgf +ReK3Mvvyc7R9BlvdNItIvBX4a1aE9ub1/9bCExJrF7FYdfT5M751drVzOYkN +mqOsGNoLXc2lTr4isTRxOnaAPr+DBSviU+rp9zlMvUun3bh4YPJOA4mVD591 +rKed8zSj6W07iXWb/26+TPdDsmSIbXc3fV7WaRSa0g45uvnRZA+JO3yi2prp +flpHzl1SGiWxJWhFkhDtr0keroGLmLhuuCVoC92P/r1aDL1lTGxaPmLWJcuD +SdupgQFRJp5caWkWQHsJf2qMrwwTe1Tcv52i+1svrPKBhzYTv/gemYmn86Gk +8XyUggGT7lf1K/y01xru2vjZmH6e2evAcEn6vA+NdW9DJlavpL7uo/PlpBdT +3GErE435xepF6TxaWPmrfZkbE6/b2AYEi9P9rFTGebWLiVpaulubxP6fl9us +bLyZ2BfO9zOVzrdXjglHWWFMTNVj7f0pTOelRX+95g0mWqd4q6+g8/Pm9cfX +f95mYsEYsXuTIA/Up8745OYxEZv8O08v4oH5A/k5xn0mOv7Mbe6h83e/hoOO +TDUTN95tzE6l8/veyvtJgn1M3J0Y5+o9Q8GaoAi3F0NMTClf2h5E533le3vi +zBgThwmH51FTFDQmdT+Zm2XiB0+tTPYkBX/4JPomRFVxZCFfDZueJ3ZDoXbf +jFVxTtnsjHgfBXL6CrGC5qpY4XHVrZOeR4OBVRWalqqYs6ZCmdNDz8cJUfPA +Dao4mhB5yfA7Be2z+Tpz7qpYWCjOJOn5Frjss7h0girOd/KpCG6k5606tm9s +U8V3eYTW52cUHPL7LnOkUxXdL2VftntKAfCStqV9U8VNfnLSD55Q8FWv5V3L +kCreeGy4L+oxBTqrAyu9BdTwqOhXjYlC+vtssvOitNXwrapH7LZsCvr3Cx57 +EKlG/58enP4dS9ebaf207IwafuOYwIoYCoZaoha9TlDDmnT3Rq3TFPxymLre +laaGOmdH5lwiKZg0660SzlNDx3Ps3fGhFPCtqFvp+04Nsz456/r7UCBddb5E +XlkdVRd5Z62j/49sCEm+uAp1PBXx3yaPKS783GebZ1ajji6lUyoCk1xIygrd +PPxaHal/87vujHHho0Lzte2f1HFViKdk9xAXPKSvrtLqUcduKSrG+jsXwoRl +vd4LaeCODkvT7A9coH4r1Mpu18AE9+v7/svngtgbZvK9IQ1ctFbd+6ATF+Ti +C7YYG2vhr0id7PJwDlzRNBUV99FGocS7tV8u58MrGUuj0RQd/PvR6s69W3mw +Rq6CrduoiwOPLvbcPJMLwvy3gvae0sPW3TtffzqYAwrRiubbmfq4ZriCP0X7 +DiwmdxU51ehjlN+qH2aDt0GHJV0QutsA7T3YQh/Lb0Fgu1il/bxV6LQwhUwI +y4Kh0SQXuyurcESwqP6U/U2w1X1xzU7bENUPhIgc2pgJz0bNZibfGuL17dWH +Qrqug7+WQet7LyP8kaC4evX9q8Aa9GzYvtgY8wQjDgT7XYZ1hNQmoVvGOCdJ +Di7wvAhqUYnHK0xM0LjayOpbZBpoeJmWka0muCDeqSiYnQJezw6ceXB0Nb5X +E5X8+PQ8lN1s8ByRMMU67LTWc0qCsby5Sd1Hprjw/UBvgEkC7Ce5i69tWoM+ +nG6/4LOxMKKRZnx/eA2+PM5oF+k+DY+zZ7rG482wCz6npN6Ihh3WKmimYI5z +nvsabFdFguzhuGKdcnM882qty+E14SCx5FDhpm0sLB8GPPM1FLLXnjwxvJ2F +8v9W9nk3hoLByeS1abtYaJVhuH5LbShsHr73qXkvC+tXzyw1oUIhtnF8av8h +FrYkNsc5B4XC71uRVieiWZi7/f3FNwtCodUs7WMOl4WTpgtJjnYIHAjOTre7 +y8KbDRsl3ZVCYOLuQ6/+eyz82913QkY8BMQYzZP6RSyMitRPzv4dDBsE5eWe +lrOw7WEFtaAqGEobcjw/fmLhs+7bgtM7g8Fe+LF2SDMLO9SbFCUcgqHZ9uWE +VBsLR9xs4o2tgmGspC9+TycLr0a/tk5SCwbtLD3ez14WSqwSNjw9HgSlrZYh +SQMsrBQqS3/XEwT2K7aC7jAL44yTbYjPQeAdF/w+aJyFJqIhLu0VQTBWHntN +8jcLU8piiqyLguDU9OX9JdMstHuStaUwPwhEDfO1ds+y0NWoWpnICILMwyXj +c3MsPGrZp5rBDoL/AVecT58= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Vf8fB/BCpWFEstd1zrVnRuJ6v0lEQ4Q0qYykKBnJN6Myky7aoZSM +e89N+pYiRUZUSkNmXyMN2bJC8ju/P87jPJ7/nPM+n8/n/Xof5X0BTl588+bN +45tPX/R9ov1lFXE22+Lt8x8ZOWomFg2ZUmGWzacgP1J7xMtCAlCifp9UcyoU +zLddbmxBQsgWThN/8y04JW5/V8rCCJYPSqZONd0HycFXemOsddBRujlgrKkC +zHZtrExkuYAN0fvfSNMHEH2dsn/KzAummkwuDjd9AebN1ZplRsFQuTY3+/2t +URhLwlD72RiQ6yj+vk9rFjYUT873NGTDikPunEVr+dHv+43HeRoXIVXf5slm +F0HsEXg7Nu1yDVqu6JWPiAph0Uz/pqjeTDibHVnPJ70cH/38WVpbmwWSF7oT +0jLEMRENehd+vQ1xznYWHyYk8Jiobmz03TtwzDTL/eUpKYxz4ySx/XLBemj6 +hH+3DO5uONB/pSkPwtZf0HjeL4MRtpI9Lz7nwd0s7VbxCRl8dKvs9UhXHkg5 +e5gWC8riBeendhb9edD/uHqSX0cWG8ReS96flw9pp9hBV4/L4rYlpsUC6vnw +RYLpXyUkhy3tMzLOofkQbe64V2a1PHZ6r35ybgkH1u/J/GViJY825mKGW0U4 +IBzVd9plozymEqUTK1ZwIL0yJoftIY+N+Q/dzslz4LF9Sd/CBHn8Hv89wVGP +A8NuKiGjLfK4fcohTNWFA3uCxxPrwhVQJF/jhGA6B8jLVnK9MQr4Z8KuzfUm +h673PG8RWwFlTc5GZ2Vz4MQf9XdW2QpoeUQyQ5PHgYun90gU1yngbPN8YfFn +HKhLqblxR14ROyWsa3Q6OLDm7tUHEWWKOOGzZd1VBS5YN72dHaxVxBc+wbE6 +DC5snidg6/5BEXcWqMaVk1zY7+TfAt8UcZ6IZU2rFhdswpUjoxYooXRgtVXP +Gi4cUZy4bamphI9BTtvHlQtVPjcGKkOU8B3hrjSeyAW7P6Zi/4QrYVOHjxcj +mQtv2Q3GhlFKqJl31W9jChdaihdHZScoYcabT08uXebC4NIgsZh0JRxS3usv +kM0FqXvrTWwqlDDH3nGVdSkXDv0eiaoVUsYb5o7Srr1cWHPUe+V3MWWcEt+s +tW2AC4K9rVx+KWUcN/l+zHmYC3faKhstGMr45m5l1toJLrQ/u6j10FgZnw95 +RIzNp8AhxrQ5y10ZJ0TsA25KUWAgFq0bXqiMdy/CH8ZaCuadHa+6UqSMgSFh +ctx1FLzlP7ij6IkyHhgtCdNdT4HfuFPMSLUyljZc6dfaREF2M9Hm06qM2jkv +S6ddKVh5ozbWmZ+BOxx7Hb/4UjClKdqu7cLA6HH5d91JFExkyESv2sHAk5Va +6b3JFIyJkISpOwMd9fd8HGBTMDhqetDal4ExL0vO/LxAwZcn+yd2nGRg1mTk +34fpFLza8Eg4/g4Da2Ye5d/mUlDz9HnhOQ4D7/yOdjvKo6BKt845rYCBvscE +w8wKKHgm3nUts5iBWxctWV59n4L7bUtUH75h4LJyzOcVU3DNbw98GWdg1YO6 +joYXFFz+78CXH9MMPBBk1OlbS8EFh2MxA3MMDKjO3T7zkoLkVfGvfy9WwZnQ +C8Xibyg4NVO4TURBBTfWqpjJfKTX5+yCI+Y2KlgROe9BRDsFB2ZFxK02qKBy +wd/Itg4KvANkimy3qKCPJ98bwy4KPLbq/nHaoYLhLXr9n7spcJbdHu/rr4LH +9vZv4v9JgTmXunnpkgqWPpSVzP9FQZsS98a66yoI7OjkklEKTlzKzxy7oYJT +adN8L8coeBSdk+6Ur4IhB6e+fp6g99ft5hXhUhV8M7LsWuc0BeoLLrBju1Sw +xHC1vhsfD2pPpJ43+q6CKH6p0JSfB97D7OSvvXQ93CRjKQEeZLedS7IaU8EF +YLylbgEPlO7Hxf9dSOCYgNE70cU8WOkeHhWiRWCiuUXgUhEePGwIiyT1CWTd +PhP6lLaz/fGIBiMCtzjuTzgkyoNUo+B/DIBA8fKphufLeSC0LOD4oCOB1L6V +MnYreEBFHw7NcCVQFnNTu2nbT/qFbNxJYHvDH9lwCR7EfzkQxPEkkC0isT9r +JQ8Eivcd8Q4l0CK37/0rKR7c1tkbIPEPgZG97I5N0jywynb3r4oicMEZa763 +tCPP7zrESCQwWkYgoVqGB9Nergfa0wkcOW3GTZHjwdU2Z59zWQQCX+6RWdqr +Hbd6m+cQ+FQ/zsFbngch5ls8rxUQ6IJdO3UVeDAiZu/hWkFg/IKiZ5mKPGg+ +xHh3sIZA/wG29zTt8hfTEFlH4EMfW46TEg/YJ7iKeY0ERlw0EJyifbzh9PnS +NgLrE9pVbJV54KGza+5dJ4GHU5zbU2jrfVnWMdVL4Mf+NAN5Bg+kzL9tFh4m +cLlNy5vdtOddevqMMU5gWWnnkuu0e4Yu6phME2j+1re3gXa9nX/mhjkCnyUb +Hl6qwoOi2zbCHgIkjuXNv2BBO3NWISJoMYn5u1Pd/Wn7F9bvzhAn8XDswp5K +2q5L894USpGY7BOQ85O2hVcU64U8ifdKc5YtI3jALHPjtTJInCs4IqtJW0ha +X35IlcSbcykfbWiPBS4+x69Not9svZE77c91XX8kDUhMSh62CqJdxSw5pGVC +4jzNkpkY2lRU6mc0JzH2v1GPC7QvtB7c6GJJYp+V17EbtP8xXFvqa0PissTG +Vbm0PZNltSI2kCh9TPQ2l/aGntHrqVtIZDt8fk7RNrCqW5rrQtc7XyCFQ1sm +PTv8yQ4SFf84Lr9Dm2/in756dxJzLVPWptPudXDZ+dWTxNee59TYtD/ka7/+ +7Uvizjix51G0S/gXmgkFkKi3Y0DIn/at3e0c5SASm+X6RNxoJzwqkjEOI1Es +o6XGgvaR5ecT7SPo9TOOM2bQdvPzmd5zmsS0DxW7+GhjNRw8Fk/ipR87zTro +9VVTlGqNO0fil+OMj49pi4YN26Wnkmiw8gdxnvbvD7XF9y7T+9N2Qn8f7U6t +LPXqdBKJIwVT+rRrY8OutmTR9S7aFvGX3v97nY6LB3NIFHW3Lq+hfWWNRhgf +ReK3Mvvyc7R9BlvdNItIvBX4a1aE9ub1/9bCExJrF7FYdfT5M751drVzOYkN +mqOsGNoLXc2lTr4isTRxOnaAPr+DBSviU+rp9zlMvUun3bh4YPJOA4mVD591 +rKed8zSj6W07iXWb/26+TPdDsmSIbXc3fV7WaRSa0g45uvnRZA+JO3yi2prp +flpHzl1SGiWxJWhFkhDtr0keroGLmLhuuCVoC92P/r1aDL1lTGxaPmLWJcuD +SdupgQFRJp5caWkWQHsJf2qMrwwTe1Tcv52i+1svrPKBhzYTv/gemYmn86Gk +8XyUggGT7lf1K/y01xru2vjZmH6e2evAcEn6vA+NdW9DJlavpL7uo/PlpBdT +3GErE435xepF6TxaWPmrfZkbE6/b2AYEi9P9rFTGebWLiVpaulubxP6fl9us +bLyZ2BfO9zOVzrdXjglHWWFMTNVj7f0pTOelRX+95g0mWqd4q6+g8/Pm9cfX +f95mYsEYsXuTIA/Up8745OYxEZv8O08v4oH5A/k5xn0mOv7Mbe6h83e/hoOO +TDUTN95tzE6l8/veyvtJgn1M3J0Y5+o9Q8GaoAi3F0NMTClf2h5E533le3vi +zBgThwmH51FTFDQmdT+Zm2XiB0+tTPYkBX/4JPomRFVxZCFfDZueJ3ZDoXbf +jFVxTtnsjHgfBXL6CrGC5qpY4XHVrZOeR4OBVRWalqqYs6ZCmdNDz8cJUfPA +Dao4mhB5yfA7Be2z+Tpz7qpYWCjOJOn5Frjss7h0girOd/KpCG6k5606tm9s +U8V3eYTW52cUHPL7LnOkUxXdL2VftntKAfCStqV9U8VNfnLSD55Q8FWv5V3L +kCreeGy4L+oxBTqrAyu9BdTwqOhXjYlC+vtssvOitNXwrapH7LZsCvr3Cx57 +EKlG/58enP4dS9ebaf207IwafuOYwIoYCoZaoha9TlDDmnT3Rq3TFPxymLre +laaGOmdH5lwiKZg0660SzlNDx3Ps3fGhFPCtqFvp+04Nsz456/r7UCBddb5E +XlkdVRd5Z62j/49sCEm+uAp1PBXx3yaPKS783GebZ1ajji6lUyoCk1xIygrd +PPxaHal/87vujHHho0Lzte2f1HFViKdk9xAXPKSvrtLqUcduKSrG+jsXwoRl +vd4LaeCODkvT7A9coH4r1Mpu18AE9+v7/svngtgbZvK9IQ1ctFbd+6ATF+Ti +C7YYG2vhr0id7PJwDlzRNBUV99FGocS7tV8u58MrGUuj0RQd/PvR6s69W3mw +Rq6CrduoiwOPLvbcPJMLwvy3gvae0sPW3TtffzqYAwrRiubbmfq4ZriCP0X7 +DiwmdxU51ehjlN+qH2aDt0GHJV0QutsA7T3YQh/Lb0Fgu1il/bxV6LQwhUwI +y4Kh0SQXuyurcESwqP6U/U2w1X1xzU7bENUPhIgc2pgJz0bNZibfGuL17dWH +Qrqug7+WQet7LyP8kaC4evX9q8Aa9GzYvtgY8wQjDgT7XYZ1hNQmoVvGOCdJ +Di7wvAhqUYnHK0xM0LjayOpbZBpoeJmWka0muCDeqSiYnQJezw6ceXB0Nb5X +E5X8+PQ8lN1s8ByRMMU67LTWc0qCsby5Sd1Hprjw/UBvgEkC7Ce5i69tWoM+ +nG6/4LOxMKKRZnx/eA2+PM5oF+k+DY+zZ7rG482wCz6npN6Ihh3WKmimYI5z +nvsabFdFguzhuGKdcnM882qty+E14SCx5FDhpm0sLB8GPPM1FLLXnjwxvJ2F +8v9W9nk3hoLByeS1abtYaJVhuH5LbShsHr73qXkvC+tXzyw1oUIhtnF8av8h +FrYkNsc5B4XC71uRVieiWZi7/f3FNwtCodUs7WMOl4WTpgtJjnYIHAjOTre7 +y8KbDRsl3ZVCYOLuQ6/+eyz82913QkY8BMQYzZP6RSyMitRPzv4dDBsE5eWe +lrOw7WEFtaAqGEobcjw/fmLhs+7bgtM7g8Fe+LF2SDMLO9SbFCUcgqHZ9uWE +VBsLR9xs4o2tgmGspC9+TycLr0a/tk5SCwbtLD3ez14WSqwSNjw9HgSlrZYh +SQMsrBQqS3/XEwT2K7aC7jAL44yTbYjPQeAdF/w+aJyFJqIhLu0VQTBWHntN +8jcLU8piiqyLguDU9OX9JdMstHuStaUwPwhEDfO1ds+y0NWoWpnICILMwyXj +c3MsPGrZp5rBDoL/AVecT58= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.056920431770918545`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.056920431770918545`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Vf8fB/BCpWFEstd1zrVnRuJ6v0lEQ4Q0qYykKBnJN6Myky7aoZSM +e89N+pYiRUZUSkNmXyMN2bJC8ju/P87jPJ7/nPM+n8/n/Xof5X0BTl588+bN +45tPX/R9ov1lFXE22+Lt8x8ZOWomFg2ZUmGWzacgP1J7xMtCAlCifp9UcyoU +zLddbmxBQsgWThN/8y04JW5/V8rCCJYPSqZONd0HycFXemOsddBRujlgrKkC +zHZtrExkuYAN0fvfSNMHEH2dsn/KzAummkwuDjd9AebN1ZplRsFQuTY3+/2t +URhLwlD72RiQ6yj+vk9rFjYUT873NGTDikPunEVr+dHv+43HeRoXIVXf5slm +F0HsEXg7Nu1yDVqu6JWPiAph0Uz/pqjeTDibHVnPJ70cH/38WVpbmwWSF7oT +0jLEMRENehd+vQ1xznYWHyYk8Jiobmz03TtwzDTL/eUpKYxz4ySx/XLBemj6 +hH+3DO5uONB/pSkPwtZf0HjeL4MRtpI9Lz7nwd0s7VbxCRl8dKvs9UhXHkg5 +e5gWC8riBeendhb9edD/uHqSX0cWG8ReS96flw9pp9hBV4/L4rYlpsUC6vnw +RYLpXyUkhy3tMzLOofkQbe64V2a1PHZ6r35ybgkH1u/J/GViJY825mKGW0U4 +IBzVd9plozymEqUTK1ZwIL0yJoftIY+N+Q/dzslz4LF9Sd/CBHn8Hv89wVGP +A8NuKiGjLfK4fcohTNWFA3uCxxPrwhVQJF/jhGA6B8jLVnK9MQr4Z8KuzfUm +h673PG8RWwFlTc5GZ2Vz4MQf9XdW2QpoeUQyQ5PHgYun90gU1yngbPN8YfFn +HKhLqblxR14ROyWsa3Q6OLDm7tUHEWWKOOGzZd1VBS5YN72dHaxVxBc+wbE6 +DC5snidg6/5BEXcWqMaVk1zY7+TfAt8UcZ6IZU2rFhdswpUjoxYooXRgtVXP +Gi4cUZy4bamphI9BTtvHlQtVPjcGKkOU8B3hrjSeyAW7P6Zi/4QrYVOHjxcj +mQtv2Q3GhlFKqJl31W9jChdaihdHZScoYcabT08uXebC4NIgsZh0JRxS3usv +kM0FqXvrTWwqlDDH3nGVdSkXDv0eiaoVUsYb5o7Srr1cWHPUe+V3MWWcEt+s +tW2AC4K9rVx+KWUcN/l+zHmYC3faKhstGMr45m5l1toJLrQ/u6j10FgZnw95 +RIzNp8AhxrQ5y10ZJ0TsA25KUWAgFq0bXqiMdy/CH8ZaCuadHa+6UqSMgSFh +ctx1FLzlP7ij6IkyHhgtCdNdT4HfuFPMSLUyljZc6dfaREF2M9Hm06qM2jkv +S6ddKVh5ozbWmZ+BOxx7Hb/4UjClKdqu7cLA6HH5d91JFExkyESv2sHAk5Va +6b3JFIyJkISpOwMd9fd8HGBTMDhqetDal4ExL0vO/LxAwZcn+yd2nGRg1mTk +34fpFLza8Eg4/g4Da2Ye5d/mUlDz9HnhOQ4D7/yOdjvKo6BKt845rYCBvscE +w8wKKHgm3nUts5iBWxctWV59n4L7bUtUH75h4LJyzOcVU3DNbw98GWdg1YO6 +joYXFFz+78CXH9MMPBBk1OlbS8EFh2MxA3MMDKjO3T7zkoLkVfGvfy9WwZnQ +C8Xibyg4NVO4TURBBTfWqpjJfKTX5+yCI+Y2KlgROe9BRDsFB2ZFxK02qKBy +wd/Itg4KvANkimy3qKCPJ98bwy4KPLbq/nHaoYLhLXr9n7spcJbdHu/rr4LH +9vZv4v9JgTmXunnpkgqWPpSVzP9FQZsS98a66yoI7OjkklEKTlzKzxy7oYJT +adN8L8coeBSdk+6Ur4IhB6e+fp6g99ft5hXhUhV8M7LsWuc0BeoLLrBju1Sw +xHC1vhsfD2pPpJ43+q6CKH6p0JSfB97D7OSvvXQ93CRjKQEeZLedS7IaU8EF +YLylbgEPlO7Hxf9dSOCYgNE70cU8WOkeHhWiRWCiuUXgUhEePGwIiyT1CWTd +PhP6lLaz/fGIBiMCtzjuTzgkyoNUo+B/DIBA8fKphufLeSC0LOD4oCOB1L6V +MnYreEBFHw7NcCVQFnNTu2nbT/qFbNxJYHvDH9lwCR7EfzkQxPEkkC0isT9r +JQ8Eivcd8Q4l0CK37/0rKR7c1tkbIPEPgZG97I5N0jywynb3r4oicMEZa763 +tCPP7zrESCQwWkYgoVqGB9Nergfa0wkcOW3GTZHjwdU2Z59zWQQCX+6RWdqr +Hbd6m+cQ+FQ/zsFbngch5ls8rxUQ6IJdO3UVeDAiZu/hWkFg/IKiZ5mKPGg+ +xHh3sIZA/wG29zTt8hfTEFlH4EMfW46TEg/YJ7iKeY0ERlw0EJyifbzh9PnS +NgLrE9pVbJV54KGza+5dJ4GHU5zbU2jrfVnWMdVL4Mf+NAN5Bg+kzL9tFh4m +cLlNy5vdtOddevqMMU5gWWnnkuu0e4Yu6phME2j+1re3gXa9nX/mhjkCnyUb +Hl6qwoOi2zbCHgIkjuXNv2BBO3NWISJoMYn5u1Pd/Wn7F9bvzhAn8XDswp5K +2q5L894USpGY7BOQ85O2hVcU64U8ifdKc5YtI3jALHPjtTJInCs4IqtJW0ha +X35IlcSbcykfbWiPBS4+x69Not9svZE77c91XX8kDUhMSh62CqJdxSw5pGVC +4jzNkpkY2lRU6mc0JzH2v1GPC7QvtB7c6GJJYp+V17EbtP8xXFvqa0PissTG +Vbm0PZNltSI2kCh9TPQ2l/aGntHrqVtIZDt8fk7RNrCqW5rrQtc7XyCFQ1sm +PTv8yQ4SFf84Lr9Dm2/in756dxJzLVPWptPudXDZ+dWTxNee59TYtD/ka7/+ +7Uvizjix51G0S/gXmgkFkKi3Y0DIn/at3e0c5SASm+X6RNxoJzwqkjEOI1Es +o6XGgvaR5ecT7SPo9TOOM2bQdvPzmd5zmsS0DxW7+GhjNRw8Fk/ipR87zTro +9VVTlGqNO0fil+OMj49pi4YN26Wnkmiw8gdxnvbvD7XF9y7T+9N2Qn8f7U6t +LPXqdBKJIwVT+rRrY8OutmTR9S7aFvGX3v97nY6LB3NIFHW3Lq+hfWWNRhgf +ReK3Mvvyc7R9BlvdNItIvBX4a1aE9ub1/9bCExJrF7FYdfT5M751drVzOYkN +mqOsGNoLXc2lTr4isTRxOnaAPr+DBSviU+rp9zlMvUun3bh4YPJOA4mVD591 +rKed8zSj6W07iXWb/26+TPdDsmSIbXc3fV7WaRSa0g45uvnRZA+JO3yi2prp +flpHzl1SGiWxJWhFkhDtr0keroGLmLhuuCVoC92P/r1aDL1lTGxaPmLWJcuD +SdupgQFRJp5caWkWQHsJf2qMrwwTe1Tcv52i+1svrPKBhzYTv/gemYmn86Gk +8XyUggGT7lf1K/y01xru2vjZmH6e2evAcEn6vA+NdW9DJlavpL7uo/PlpBdT +3GErE435xepF6TxaWPmrfZkbE6/b2AYEi9P9rFTGebWLiVpaulubxP6fl9us +bLyZ2BfO9zOVzrdXjglHWWFMTNVj7f0pTOelRX+95g0mWqd4q6+g8/Pm9cfX +f95mYsEYsXuTIA/Up8745OYxEZv8O08v4oH5A/k5xn0mOv7Mbe6h83e/hoOO +TDUTN95tzE6l8/veyvtJgn1M3J0Y5+o9Q8GaoAi3F0NMTClf2h5E533le3vi +zBgThwmH51FTFDQmdT+Zm2XiB0+tTPYkBX/4JPomRFVxZCFfDZueJ3ZDoXbf +jFVxTtnsjHgfBXL6CrGC5qpY4XHVrZOeR4OBVRWalqqYs6ZCmdNDz8cJUfPA +Dao4mhB5yfA7Be2z+Tpz7qpYWCjOJOn5Frjss7h0girOd/KpCG6k5606tm9s +U8V3eYTW52cUHPL7LnOkUxXdL2VftntKAfCStqV9U8VNfnLSD55Q8FWv5V3L +kCreeGy4L+oxBTqrAyu9BdTwqOhXjYlC+vtssvOitNXwrapH7LZsCvr3Cx57 +EKlG/58enP4dS9ebaf207IwafuOYwIoYCoZaoha9TlDDmnT3Rq3TFPxymLre +laaGOmdH5lwiKZg0660SzlNDx3Ps3fGhFPCtqFvp+04Nsz456/r7UCBddb5E +XlkdVRd5Z62j/49sCEm+uAp1PBXx3yaPKS783GebZ1ajji6lUyoCk1xIygrd +PPxaHal/87vujHHho0Lzte2f1HFViKdk9xAXPKSvrtLqUcduKSrG+jsXwoRl +vd4LaeCODkvT7A9coH4r1Mpu18AE9+v7/svngtgbZvK9IQ1ctFbd+6ATF+Ti +C7YYG2vhr0id7PJwDlzRNBUV99FGocS7tV8u58MrGUuj0RQd/PvR6s69W3mw +Rq6CrduoiwOPLvbcPJMLwvy3gvae0sPW3TtffzqYAwrRiubbmfq4ZriCP0X7 +DiwmdxU51ehjlN+qH2aDt0GHJV0QutsA7T3YQh/Lb0Fgu1il/bxV6LQwhUwI +y4Kh0SQXuyurcESwqP6U/U2w1X1xzU7bENUPhIgc2pgJz0bNZibfGuL17dWH +Qrqug7+WQet7LyP8kaC4evX9q8Aa9GzYvtgY8wQjDgT7XYZ1hNQmoVvGOCdJ +Di7wvAhqUYnHK0xM0LjayOpbZBpoeJmWka0muCDeqSiYnQJezw6ceXB0Nb5X +E5X8+PQ8lN1s8ByRMMU67LTWc0qCsby5Sd1Hprjw/UBvgEkC7Ce5i69tWoM+ +nG6/4LOxMKKRZnx/eA2+PM5oF+k+DY+zZ7rG482wCz6npN6Ihh3WKmimYI5z +nvsabFdFguzhuGKdcnM882qty+E14SCx5FDhpm0sLB8GPPM1FLLXnjwxvJ2F +8v9W9nk3hoLByeS1abtYaJVhuH5LbShsHr73qXkvC+tXzyw1oUIhtnF8av8h +FrYkNsc5B4XC71uRVieiWZi7/f3FNwtCodUs7WMOl4WTpgtJjnYIHAjOTre7 +y8KbDRsl3ZVCYOLuQ6/+eyz82913QkY8BMQYzZP6RSyMitRPzv4dDBsE5eWe +lrOw7WEFtaAqGEobcjw/fmLhs+7bgtM7g8Fe+LF2SDMLO9SbFCUcgqHZ9uWE +VBsLR9xs4o2tgmGspC9+TycLr0a/tk5SCwbtLD3ez14WSqwSNjw9HgSlrZYh +SQMsrBQqS3/XEwT2K7aC7jAL44yTbYjPQeAdF/w+aJyFJqIhLu0VQTBWHntN +8jcLU8piiqyLguDU9OX9JdMstHuStaUwPwhEDfO1ds+y0NWoWpnICILMwyXj +c3MsPGrZp5rBDoL/AVecT58= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.056920431770918545`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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.056920431770918545`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991335257344549*^9, 3.99212504074489*^9}, + CellLabel-> + "Out[100]=",ExpressionUUID->"fb6d53fb-f8ae-7b41-9a94-72761a5670cd"] +}, 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[101]:=",ExpressionUUID->"0da19810-21b5-1440-b6da-efec04765d71"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1156715906573954`*^-176\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 101, 894, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335257395241*^9, 3.9921250408805885`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"bbfb9d42-e45a-5d43-aec3-90cd6a1372b2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.853020910920497`*^-180\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 101, 895, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335257395241*^9, 3.992125040914463*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"40269fe9-13cb-1341-8017-8f3f0c723a4c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.7045437295323366`*^-183\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 101, 896, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335257395241*^9, 3.99212504093557*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"b77a3845-b1af-c14b-9912-81d30675142e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 101, 897, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335257395241*^9, 3.9921250409534664`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"e9e3ac3c-3418-774d-92cc-9ed202ad8ef2"], + +Cell[BoxData["13.355005590946895`"], "Output", + CellChangeTimes->{3.991335263670042*^9, 3.992125115796116*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"141c5be7-8c8a-da45-bd6d-decbdafaa7fb"] +}, 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.991845708089321*^9, 3.9918457122231236`*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"d3b2932a-2d3f-fa41-a705-f816ef30ba1b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.754977905110695`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 102, 898, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335263710146*^9, 3.99212511589307*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"6e4818f4-1248-9549-ba8e-addc0d0d2046"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.5158209254036043`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 899, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335263710146*^9, 3.9921251159110165`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"44b07bad-27a9-614e-9e07-8a49093a044e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0189053046175556`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 900, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335263710146*^9, 3.9921251159311047`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"8781683c-bc28-0d41-b472-1b93da651374"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 102, 901, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335263710146*^9, 3.9921251159501095`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"c4896610-9cab-6b49-ad86-04c8a69c01e4"], + +Cell[BoxData["0.8031545973600654`"], "Output", + CellChangeTimes->{3.991335268779545*^9, 3.992125127390209*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"f6d33b40-d7cc-894e-824e-fe26bbd52f1d"] +}, 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.9918457167596684`*^9, 3.991845720288498*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"3a5379d3-3adc-3844-bbe2-4530809b7b8c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.754977905110695`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 103, 902, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335268812542*^9, 3.9921251274892235`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"87d18dc9-16e8-6a41-b604-9492ac551854"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.5158209254036043`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 103, 903, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335268812542*^9, 3.992125127527117*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"9ef22a08-0315-9844-a0ee-7fbfd8fb3e15"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0189053046175556`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 103, 904, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335268812542*^9, 3.9921251275511684`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"5b17d4bb-242b-4842-b1eb-b2195f668b1d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 103, 905, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335268812542*^9, 3.9921251275711136`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"ea74cff4-3654-cc41-b08b-547a4ce6b891"], + +Cell[BoxData["28.028145326319372`"], "Output", + CellChangeTimes->{3.991335272704685*^9, 3.9921251381514072`*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"303c1110-0d55-9649-8d09-9e96681e479d"] +}, 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.991845728758301*^9, 3.9918461210058537`*^9}, + CellLabel-> + "In[104]:=",ExpressionUUID->"208e04c0-4af7-a344-9e86-ceb616bf22d8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.754977905110695`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 104, 906, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352727386665`*^9, 3.992125138253519*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"ec2a1d33-796d-1a4f-a99f-18faa89af8f2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.5158209254036043`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 104, 907, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352727386665`*^9, 3.9921251382845078`*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"968ce380-63fe-da42-9d09-27cea9ed9413"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0189053046175556`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 104, 908, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352727386665`*^9, 3.992125138312416*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"13c17ddb-e755-4d45-bdda-2a03f506a9c6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 104, 909, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352727386665`*^9, 3.992125138330509*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"72bbfb2c-fe18-2645-ad41-c5e450741d01"], + +Cell[BoxData["12.595464822766223`"], "Output", + CellChangeTimes->{3.991335275154251*^9, 3.9921251467469063`*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"17eb7b4a-ad36-ae42-9634-ad7eb9c1e565"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991846126007372*^9, 3.9918461306014214`*^9}}, + CellLabel-> + "In[105]:=",ExpressionUUID->"53a3c067-888b-bc49-a5e6-f228162e6070"], + +Cell[BoxData["0.04274593978781623`"], "Output", + CellChangeTimes->{3.991335275186266*^9, 3.992125146823387*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"44b7c31b-b17d-d64c-a84e-668fae7bb60b"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991846134278736*^9, 3.9918461363904533`*^9}, + 3.9919238355720615`*^9}, + CellLabel-> + "In[106]:=",ExpressionUUID->"0c2ac2c8-096e-e64a-aaeb-bb84e7548fdc"], + +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[107]:=",ExpressionUUID->"5c8cab9c-f39b-364c-ae6b-c415e4dbcf46"], + +Cell[BoxData["8.187496107757514`"], "Output", + CellChangeTimes->{3.9913352752142563`*^9, 3.992125146848507*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"b8acaa68-3b44-6343-a4d0-1ad35bbeb4ad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"106a4571-94f1-5343-b4a9-78f21d5e84b3"], + +Cell[BoxData["3.267702860921432`"], "Output", + CellChangeTimes->{3.9913352752482567`*^9, 3.992125146862484*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"442fd59b-d5bd-d342-9fe5-35a97d3ca38a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[109]:=",ExpressionUUID->"b7c1808d-73a9-d645-bf95-223de85093e2"], + +Cell[BoxData["26.754304455102318`"], "Output", + CellChangeTimes->{3.9913352753089123`*^9, 3.9921251468807735`*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"2511195b-719e-6848-bc8e-639037dd2f43"] +}, 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[110]:=",ExpressionUUID->"e9c41729-285f-7d42-bb43-ee09dea88444"], + +Cell[BoxData["0.007988707337573198`"], "Output", + CellChangeTimes->{3.9913352753341656`*^9, 3.992125146898691*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"d849c970-8009-8149-8f6c-454eff1ad3f9"] +}, 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[111]:=",ExpressionUUID->"efa9c5ac-4baa-3e4e-9760-1e46cf5c01c0"], + +Cell[BoxData["9.915318862173317`"], "Output", + CellChangeTimes->{3.9913352754296722`*^9, 3.992125147127451*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"8373c32c-b854-7044-959e-cf8efb4ecb02"] +}, 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[112]:=",ExpressionUUID->"7dcb74da-1357-7e4e-a03d-852f8e740128"], + +Cell[BoxData["0.018774544030341494`"], "Output", + CellChangeTimes->{3.9913352754426765`*^9, 3.99212514716045*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"41ccbe00-b303-754f-9668-fec3888800cc"] +}, 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[113]:=",ExpressionUUID->"4c537c9f-ce6a-8f4c-9e68-01e12e3017b7"], + +Cell[BoxData["6.4678545005067605`"], "Output", + CellChangeTimes->{3.991335275540678*^9, 3.9921251473862095`*^9}, + CellLabel-> + "Out[113]=",ExpressionUUID->"b5b0bb0e-acb6-9941-9c8d-78e97ea742b7"] +}, 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[114]:=",ExpressionUUID->"1e3d1dc2-d9ac-9045-a648-58006d1d6cf6"], + +Cell[BoxData["0.34166431230209243`"], "Output", + CellChangeTimes->{3.9913352755566807`*^9, 3.992125147408535*^9}, + CellLabel-> + "Out[114]=",ExpressionUUID->"0b4c4b74-8a09-3f49-81fe-fff5b453bdb3"] +}, 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[115]:=",ExpressionUUID->"2371743b-ee83-9146-bf98-330cb0fb7e0a"], + +Cell[BoxData["0.6583356876979076`"], "Output", + CellChangeTimes->{3.991335275581682*^9, 3.9921251474321747`*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"19b400a9-1e26-ed48-a0eb-2345b4395009"] +}, 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[116]:=",ExpressionUUID->"8b6de8d6-9524-3347-a11b-48bba48b07d0"], + +Cell[BoxData["0.22492981000123072`"], "Output", + CellChangeTimes->{3.9913352756087036`*^9, 3.992125147462076*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"a31bdfde-ffac-cc42-bc87-09cfc15f713a"] +}, 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.991846151022602*^9}, + CellLabel-> + "In[117]:=",ExpressionUUID->"a41abb59-b808-8547-b1d9-a574acad5c53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.482992303230055`*^-207\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 117, 910, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335275636673*^9, 3.99212514751614*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"d692952a-9232-1e4f-a1a6-b7c3265f4170"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0392033014164352`*^-211\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 117, 911, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335275636673*^9, 3.992125147557131*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"634fb45e-5387-c840-8d53-c5b959596934"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6658102480497348`*^-216\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 117, 912, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335275636673*^9, 3.9921251475800343`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"b4792b68-b0fe-e940-b63d-4b53a03c6206"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 117, 913, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335275636673*^9, 3.9921251476010303`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"e787a2f2-de6a-9b4f-93c3-6cbf33f50a9d"], + +Cell[BoxData["9.915318862173308`"], "Output", + CellChangeTimes->{3.991335279487499*^9, 3.9921251556800194`*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"2f77f69d-1883-0d46-8e3f-bf55794e632a"] +}, 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.9918461538845863`*^9}, + CellLabel-> + "In[118]:=",ExpressionUUID->"779c8db8-6bae-9046-915d-05cf0a3cee42"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.482992303230055`*^-207\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 118, 914, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335279522499*^9, 3.992125155787985*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"3b328b74-1dee-1348-b744-1e41a8241f27"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0392033014164352`*^-211\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 118, 915, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335279522499*^9, 3.992125155820921*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"9f813110-4a79-6d48-a1d0-ecb6900aefb4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6658102480497348`*^-216\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 118, 916, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335279522499*^9, 3.992125155846031*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"fa325720-d896-d849-a31e-c78aaf9fe132"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 118, 917, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335279522499*^9, 3.9921251558629227`*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"508b4dab-c6bd-a24f-be6d-fce97436c892"], + +Cell[BoxData["6.467854500506761`"], "Output", + CellChangeTimes->{3.991335283631424*^9, 3.992125163890587*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"575e33d7-ae0d-5945-8ef4-bc243ee162ce"] +}, 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.991846157029255*^9}, + CellLabel-> + "In[119]:=",ExpressionUUID->"2fa4bc1d-3549-0e49-9fa0-9e5dc16aa40f"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk0VesbB3AplKFMEVLmUqicTCXPU6YyU2SO45xNkjIkF9GAJknR9Cs0 +iWQWEtdVuXKlKERuIts5XGOJOEr9Xn/stddnvXt99/d599qvMvOQE5ufj4+v +j1zz95A3OmsqWt6Y3Eue5k9254HJ2H09plkehBQFHr9A3Jupn6ZmVg3WK1/P +nCd2YL0WFGX8DYsNVgedJS6OjHshYNYECTm+XQnEZ+tX1MblvoWPHldMTxBX +toRk/NRtB4e4quxo4qGuxpg/qjphW3y74BFieY6qx3fTj7B1NcfnILH1eIxR +WFMP8O0cKWMR1/wcEonM/Qz7jEYFPIjfn5CNLg+mgRky5OBAPCZoNjSpywGl +Yu5VM2LBpMNujGkuDPzs7zAgXiWR3hBSNQjitwal1hHbKXx/MGY6AmXblx4T +IaZuq8hoLx6DeA3D3Fk3HsSp2yccaBoHJ4Wj7waJO2XbNoXnfoVTrRbSz4lZ +7oH7U5MmoP3CZ+184i+3+O6UBH+DRRZZO64RL1bRFv+qOwUQV+MVQJzGemEp +vvw7xCxTYtkTK2W7xW2Y/g6TVc/ZesSGWoljB6tmoCyA6/7LlQcB+j1NQ6Y/ +gb84VCyeeDLyyCJhjTnwHn0wxiQ+XiVirLn4F7DE3V4h8XU0fOTf9Bv8KPej +vL2kX1aDWWjuAvxfSMf/vIlz61N7TyjwI0/nt6se8ZcB75hLSfxY7TQhKUIc +s26qtCh4If59nIoqdSF9C5VVx3UFsHa8fsWMMw+6WkZqft0TwLDEM+X1xEoT +Fe5LlwuiYH6YQxpx3ma7y9rTgihfMBupRVxXGbUgqGoxJqtYZDjs4cHUi9ae +QVNR9PA5YRHgxANJG1Hx6BpRfP9WXVGZeGObGYoZieGo2/EXnY48COwvu71J +ZymWGxbGmREf5m/auE1UHPd0Bz0Rc+ABR6Xga8J3CeysdEF/W7I/VOOSZoYk +9he6K4oR8z/iKq8IkUSx2Zuvim1IX8Zqp9xhSTQpMbs1bc0Dd9OUkje9UugT +aC5xxIoHzX6hYbKvlmNYao+fgSUPPmUnn/dZLIM/Rt2ZjRY8GBnOvffQXAbb +X04yPImFw+nWrbUy6Bmy2DHGnAdm8Xs2+5TJouA2ZkSBKQ+e3tefysmUw3yp +q0ldwIP7nNmILeGK6Ls5e8zJgAc7nU9/CstXxLY6792N+iS/Tsoin6uIwSZj +ZUi8+b7WciW3VZgrpnZknR7ZT6Z3qYDJakxdS/d81eXBxHjv0cFTSvhIx/S0 +gw4PpA6aPS61VUHBaLMNdmo84N4XDnAIVMHaxUtuZKny4MnHFoXRRBXM9rgu +8FOFB542Xqc0alVwk3r9QJYy6bc+wumGrirqXWO0j64i7x/K/hIrq4YSoo3R +dnI82OMvom31WR0nhedgjxgPIMJZd++cOo5KH7FKEeXBuoRMA5acBmbWGvu/ +EuEB3z3GjlhHDWxaFtNpIsyD/E8ee0ueaeDW92KZ8kLk/3TJOyF/dw0yP7wc +yOIj/cxs3w8xNVFjuLJJ9NsMKKhcjDvfr4XB92PK17TPQPW5SU0evzY6ygFb +um0GPL+5tVHK2nhIii3K1zoDGXVqmju8tdE1VNK8rWUGVPyfvpvp0MYv3ccD +DjfNwLo8jjr1Sgclu0aqj76YAUWFVZSS20ZcFdP4rq5oBrSywkV/gC5Gxstr +HzgzA3dC1RzKmvQw5mZuiTxjBloiwCA+ywjNTNMfaP8zDcre7XZeQdtQ3Ct7 +VMt5Gti/ywsU/0Bsyty2qq7nO8gOPxGSZe5Adnpbo4LrdwhnGH+8vM4M9zg6 +BWxonQLm6M8GqSFz/NXSrB1gMwX5O8KEMpstsVMnoCivfBLuTwY+y0vbhWtm +Kyz5NCdhZvuK13Vx1ihY0tSek/wNuvkWfv3sa4viiSn6N6YnIHjloZQTqvbY +47VnUj5oAgr2N9ReSXDAu/naadDxFaK+yU2v3++IzUnKq3fbf4UpKwuXl/uc +8JKlVA9/7Rcw8ri0neO4G0G1JqLP4Au8k0sPrGPsQa/Jcq9nUeMg/+BUdc5a +Z6x4L/z4QvQYPOldZ2Mn5oIPjSXOnLk2CqvavvhHjLqgUOSST33PRoBx5VLe +vd69uLJ7805fzjCkL/qmc/mFK0pIFKmaqgxD+fYNXQmVbtjQtOaKv/sQXDc4 +J/Ez1x2fH9sq2X3nP2j+NyuRkeSBGZ+cvYT4/oMy21tqh497YuStoD9TPAbh +68HdfMEsL/zR3TLLaBqAKQvNgDFTb4zXOho0u3MAckY/zITp78PSlMq2ujou +uN7J8vMS9cFxLvNKlRMXSkus9y087YPcjJafv3s5YKTwjneW54M6lScdOuI4 +oNrr3/V2vy8WLOXJdazlQL/IAftbtC+q6n8pjWzth5ZkOz9LZyayo+rdlyT1 +Q1pkpsiRFiYuOLop0M+yH6prfvP8dvnh2gZF5xzRfljmiacZT/0w66+Eq2Hd +NChJv2xeWe2Hzxh19eUfadjYZLtCsMYPjx6XjZ39lwYnY4+Hnc/8UCOr/cSp +LhrSVka8OvaPH/46d/vjzQ4a5LsfLWvo9ENj4yUdnLc0qHnLXvec9sPCc1vS +P9XTYOQzlpOwmYXDdiPhviU0PLjxJcxOn4Va6d8PthTTIN06YSJryMIteo1d +QDxmPt2Ws5WFrY0ly5SKaHIe8C1o2sHCvz3fcjj5NCydlnCTdGRhmlDqttMP +aei/oLck8yALJ0ceBCvdocHxpUGb/yEWGn+j2tJv01DDtyVzYwgLrSU08hWI +b4SZ6D0PZ2FB5tmKFZk02LlZ+nKiWageCBtWpNNQqeZWuf4cC/dHbM/SukFD +clXM/icPWBisd/rUo0s0HNS9ZhSZw8LKuF8JRsQ2D4uXGOayMOGr9feXKTQI +X+M+rMhnochKZyXuRRoSQh2Gyh+zcLl52o01yTTEaKodKHvOwotKYSv/OkdD +4LVXQSWfyDxB0jswnoZdS7nGob0snEvsm/r3FA1rE/jEdPtYOG45JhNJzA3V +yy/msNB8KO928UkafO0yR4tGWHhuwuqd5gkaXAXCggtnWVhbvjVXJ5YGyzD5 +w3kybDS+F7HsXCQNzzMTrS6vYKNiUruwFrFx04RapDwbT53UTnxzlHx/9Vcf +TFexcaL38U9pYrmOaNN/1dlY03F9MPsIDcNbumWE9di4ci6xghNKw0X+23/6 +72ajMLNP4tlBMv8G0eu2ziTv9O6FYcTxHpGhjL1s/HhfK1ydOPKxw5rf7mw0 +8RVsOx9E+lMLLl1lsvHbWe557wM0MBqZrL9D2BhV3d+psJ+GjkvqIqopbHQ1 +ufh6ikVDAYgFDF5i44HfTxuqiONHJ+vyU9n41P2Q7kli3V11sYbX2PgI/B3F +iZP5/CZsM9hoFmX15yY/GiwO3f4QmUf6LMuyOutLg6LiGX2TAja6KGtouxBP +Nh5KXVjExuNXhWJVie9qgG1yKRvf2PcF/uVDw1x3d+29p2wcTy0//HMfDY9t +FHLeNLBR9unAuvPeNJyf5RdIa2RjYYXPhDcxM2fI162JjamTMmsZxOKLnir0 +N7PRSprx6aMXDUFVrhd579m4njURrkesuu5qhBqHjbeKP1v98KBhtuNY639c +8jxlMdVO3JLA3lg4yMb4XY1ixcSxnzcPGY2wMeaftWcDiLuut3rZf2NjrKjk +w4/uNFwWkjCPWkDhKv1NSR/caKie6PYIX0jhrtpNaRXEA925ocECFL55YqN+ +ldj4sdlt5hIKQ3c09u0h5vpE/rCSoDD9UmFjpyvpb2MuaS5F4d2N9gpVxFsN +JDVhOYWZD2Yn04lTxPJcGHIUNvoGm7Ln15/2FCsoUxjw4abN7F4aqKy8huWq +FJZXB3F6iVNS/uhZpk5hzAdjoQZiLiUltkiTQn2hds61+XUpy4CRjRS+6qtZ +akL89JdUHFeXwhxhv/G1xJz/eq/0bqaQ0/DDVZp4S23UizZDCudsBF+OuJDz +Iahg1Z9IobW4z9L7xEtdo/UqdlCYYX9WP5XYyHSnTbEZhWdjMgZOEifL9f2R +tZPCwd4z/X7ETxYVpmRaUbjG1nOjMzE9Hp19w4bCy+IrBCyJDeuXt19woNDS +y3yXFjGzuG/4tBOFRe5lT1YTX7hVyH9yD4WB14SLpYj7QndtjHAl8y1lGs85 +0yDmLWN52J3COz+YzRPEhrtor0BPCs0uWgwPEl9Yfey8tw+Fov6lf74nfiJs +ddeVSaFIxtbwN8R9UzKVTiwKa33ul9bP532mm20oCn2MR6P/ms9rKuJaBFAo +Vb/89RNiZsWxOQyk8O3/FLNL5vPvWklvDaIwcd8i4fz5/Auy6/WCKZR59s9U +9nx+ZP/2DYcpdAo/GHiPWJRV7KoZSuFrvXH/TGID+9hDquEUYqPd2M35/C3W +iYoRFCr8Oj93nThJfUW6bCSFfVkPrlwlLhfnlEpEkf1NzyhPI/78o7hRJIbC +E41hPqnz+QOxnwViKWyT1Ui9TKz/znrmdxyFwlFldvP+P8wcuxQ= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk0VesbB3AplKFMEVLmUqicTCXPU6YyU2SO45xNkjIkF9GAJknR9Cs0 +iWQWEtdVuXKlKERuIts5XGOJOEr9Xn/stddnvXt99/d599qvMvOQE5ufj4+v +j1zz95A3OmsqWt6Y3Eue5k9254HJ2H09plkehBQFHr9A3Jupn6ZmVg3WK1/P +nCd2YL0WFGX8DYsNVgedJS6OjHshYNYECTm+XQnEZ+tX1MblvoWPHldMTxBX +toRk/NRtB4e4quxo4qGuxpg/qjphW3y74BFieY6qx3fTj7B1NcfnILH1eIxR +WFMP8O0cKWMR1/wcEonM/Qz7jEYFPIjfn5CNLg+mgRky5OBAPCZoNjSpywGl +Yu5VM2LBpMNujGkuDPzs7zAgXiWR3hBSNQjitwal1hHbKXx/MGY6AmXblx4T +IaZuq8hoLx6DeA3D3Fk3HsSp2yccaBoHJ4Wj7waJO2XbNoXnfoVTrRbSz4lZ +7oH7U5MmoP3CZ+184i+3+O6UBH+DRRZZO64RL1bRFv+qOwUQV+MVQJzGemEp +vvw7xCxTYtkTK2W7xW2Y/g6TVc/ZesSGWoljB6tmoCyA6/7LlQcB+j1NQ6Y/ +gb84VCyeeDLyyCJhjTnwHn0wxiQ+XiVirLn4F7DE3V4h8XU0fOTf9Bv8KPej +vL2kX1aDWWjuAvxfSMf/vIlz61N7TyjwI0/nt6se8ZcB75hLSfxY7TQhKUIc +s26qtCh4If59nIoqdSF9C5VVx3UFsHa8fsWMMw+6WkZqft0TwLDEM+X1xEoT +Fe5LlwuiYH6YQxpx3ma7y9rTgihfMBupRVxXGbUgqGoxJqtYZDjs4cHUi9ae +QVNR9PA5YRHgxANJG1Hx6BpRfP9WXVGZeGObGYoZieGo2/EXnY48COwvu71J +ZymWGxbGmREf5m/auE1UHPd0Bz0Rc+ABR6Xga8J3CeysdEF/W7I/VOOSZoYk +9he6K4oR8z/iKq8IkUSx2Zuvim1IX8Zqp9xhSTQpMbs1bc0Dd9OUkje9UugT +aC5xxIoHzX6hYbKvlmNYao+fgSUPPmUnn/dZLIM/Rt2ZjRY8GBnOvffQXAbb +X04yPImFw+nWrbUy6Bmy2DHGnAdm8Xs2+5TJouA2ZkSBKQ+e3tefysmUw3yp +q0ldwIP7nNmILeGK6Ls5e8zJgAc7nU9/CstXxLY6792N+iS/Tsoin6uIwSZj +ZUi8+b7WciW3VZgrpnZknR7ZT6Z3qYDJakxdS/d81eXBxHjv0cFTSvhIx/S0 +gw4PpA6aPS61VUHBaLMNdmo84N4XDnAIVMHaxUtuZKny4MnHFoXRRBXM9rgu +8FOFB542Xqc0alVwk3r9QJYy6bc+wumGrirqXWO0j64i7x/K/hIrq4YSoo3R +dnI82OMvom31WR0nhedgjxgPIMJZd++cOo5KH7FKEeXBuoRMA5acBmbWGvu/ +EuEB3z3GjlhHDWxaFtNpIsyD/E8ee0ueaeDW92KZ8kLk/3TJOyF/dw0yP7wc +yOIj/cxs3w8xNVFjuLJJ9NsMKKhcjDvfr4XB92PK17TPQPW5SU0evzY6ygFb +um0GPL+5tVHK2nhIii3K1zoDGXVqmju8tdE1VNK8rWUGVPyfvpvp0MYv3ccD +DjfNwLo8jjr1Sgclu0aqj76YAUWFVZSS20ZcFdP4rq5oBrSywkV/gC5Gxstr +HzgzA3dC1RzKmvQw5mZuiTxjBloiwCA+ywjNTNMfaP8zDcre7XZeQdtQ3Ct7 +VMt5Gti/ywsU/0Bsyty2qq7nO8gOPxGSZe5Adnpbo4LrdwhnGH+8vM4M9zg6 +BWxonQLm6M8GqSFz/NXSrB1gMwX5O8KEMpstsVMnoCivfBLuTwY+y0vbhWtm +Kyz5NCdhZvuK13Vx1ihY0tSek/wNuvkWfv3sa4viiSn6N6YnIHjloZQTqvbY +47VnUj5oAgr2N9ReSXDAu/naadDxFaK+yU2v3++IzUnKq3fbf4UpKwuXl/uc +8JKlVA9/7Rcw8ri0neO4G0G1JqLP4Au8k0sPrGPsQa/Jcq9nUeMg/+BUdc5a +Z6x4L/z4QvQYPOldZ2Mn5oIPjSXOnLk2CqvavvhHjLqgUOSST33PRoBx5VLe +vd69uLJ7805fzjCkL/qmc/mFK0pIFKmaqgxD+fYNXQmVbtjQtOaKv/sQXDc4 +J/Ez1x2fH9sq2X3nP2j+NyuRkeSBGZ+cvYT4/oMy21tqh497YuStoD9TPAbh +68HdfMEsL/zR3TLLaBqAKQvNgDFTb4zXOho0u3MAckY/zITp78PSlMq2ujou +uN7J8vMS9cFxLvNKlRMXSkus9y087YPcjJafv3s5YKTwjneW54M6lScdOuI4 +oNrr3/V2vy8WLOXJdazlQL/IAftbtC+q6n8pjWzth5ZkOz9LZyayo+rdlyT1 +Q1pkpsiRFiYuOLop0M+yH6prfvP8dvnh2gZF5xzRfljmiacZT/0w66+Eq2Hd +NChJv2xeWe2Hzxh19eUfadjYZLtCsMYPjx6XjZ39lwYnY4+Hnc/8UCOr/cSp +LhrSVka8OvaPH/46d/vjzQ4a5LsfLWvo9ENj4yUdnLc0qHnLXvec9sPCc1vS +P9XTYOQzlpOwmYXDdiPhviU0PLjxJcxOn4Va6d8PthTTIN06YSJryMIteo1d +QDxmPt2Ws5WFrY0ly5SKaHIe8C1o2sHCvz3fcjj5NCydlnCTdGRhmlDqttMP +aei/oLck8yALJ0ceBCvdocHxpUGb/yEWGn+j2tJv01DDtyVzYwgLrSU08hWI +b4SZ6D0PZ2FB5tmKFZk02LlZ+nKiWageCBtWpNNQqeZWuf4cC/dHbM/SukFD +clXM/icPWBisd/rUo0s0HNS9ZhSZw8LKuF8JRsQ2D4uXGOayMOGr9feXKTQI +X+M+rMhnochKZyXuRRoSQh2Gyh+zcLl52o01yTTEaKodKHvOwotKYSv/OkdD +4LVXQSWfyDxB0jswnoZdS7nGob0snEvsm/r3FA1rE/jEdPtYOG45JhNJzA3V +yy/msNB8KO928UkafO0yR4tGWHhuwuqd5gkaXAXCggtnWVhbvjVXJ5YGyzD5 +w3kybDS+F7HsXCQNzzMTrS6vYKNiUruwFrFx04RapDwbT53UTnxzlHx/9Vcf +TFexcaL38U9pYrmOaNN/1dlY03F9MPsIDcNbumWE9di4ci6xghNKw0X+23/6 +72ajMLNP4tlBMv8G0eu2ziTv9O6FYcTxHpGhjL1s/HhfK1ydOPKxw5rf7mw0 +8RVsOx9E+lMLLl1lsvHbWe557wM0MBqZrL9D2BhV3d+psJ+GjkvqIqopbHQ1 +ufh6ikVDAYgFDF5i44HfTxuqiONHJ+vyU9n41P2Q7kli3V11sYbX2PgI/B3F +iZP5/CZsM9hoFmX15yY/GiwO3f4QmUf6LMuyOutLg6LiGX2TAja6KGtouxBP +Nh5KXVjExuNXhWJVie9qgG1yKRvf2PcF/uVDw1x3d+29p2wcTy0//HMfDY9t +FHLeNLBR9unAuvPeNJyf5RdIa2RjYYXPhDcxM2fI162JjamTMmsZxOKLnir0 +N7PRSprx6aMXDUFVrhd579m4njURrkesuu5qhBqHjbeKP1v98KBhtuNY639c +8jxlMdVO3JLA3lg4yMb4XY1ixcSxnzcPGY2wMeaftWcDiLuut3rZf2NjrKjk +w4/uNFwWkjCPWkDhKv1NSR/caKie6PYIX0jhrtpNaRXEA925ocECFL55YqN+ +ldj4sdlt5hIKQ3c09u0h5vpE/rCSoDD9UmFjpyvpb2MuaS5F4d2N9gpVxFsN +JDVhOYWZD2Yn04lTxPJcGHIUNvoGm7Ln15/2FCsoUxjw4abN7F4aqKy8huWq +FJZXB3F6iVNS/uhZpk5hzAdjoQZiLiUltkiTQn2hds61+XUpy4CRjRS+6qtZ +akL89JdUHFeXwhxhv/G1xJz/eq/0bqaQ0/DDVZp4S23UizZDCudsBF+OuJDz +Iahg1Z9IobW4z9L7xEtdo/UqdlCYYX9WP5XYyHSnTbEZhWdjMgZOEifL9f2R +tZPCwd4z/X7ETxYVpmRaUbjG1nOjMzE9Hp19w4bCy+IrBCyJDeuXt19woNDS +y3yXFjGzuG/4tBOFRe5lT1YTX7hVyH9yD4WB14SLpYj7QndtjHAl8y1lGs85 +0yDmLWN52J3COz+YzRPEhrtor0BPCs0uWgwPEl9Yfey8tw+Fov6lf74nfiJs +ddeVSaFIxtbwN8R9UzKVTiwKa33ul9bP532mm20oCn2MR6P/ms9rKuJaBFAo +Vb/89RNiZsWxOQyk8O3/FLNL5vPvWklvDaIwcd8i4fz5/Auy6/WCKZR59s9U +9nx+ZP/2DYcpdAo/GHiPWJRV7KoZSuFrvXH/TGID+9hDquEUYqPd2M35/C3W +iYoRFCr8Oj93nThJfUW6bCSFfVkPrlwlLhfnlEpEkf1NzyhPI/78o7hRJIbC +E41hPqnz+QOxnwViKWyT1Ui9TKz/znrmdxyFwlFldvP+P8wcuxQ= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6041957413943362, + 1.5846080890559413`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6041957413943375}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.6041957413943362, + 1.5846080890559413`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6041957413943375}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk0VesbB3AplKFMEVLmUqicTCXPU6YyU2SO45xNkjIkF9GAJknR9Cs0 +iWQWEtdVuXKlKERuIts5XGOJOEr9Xn/stddnvXt99/d599qvMvOQE5ufj4+v +j1zz95A3OmsqWt6Y3Eue5k9254HJ2H09plkehBQFHr9A3Jupn6ZmVg3WK1/P +nCd2YL0WFGX8DYsNVgedJS6OjHshYNYECTm+XQnEZ+tX1MblvoWPHldMTxBX +toRk/NRtB4e4quxo4qGuxpg/qjphW3y74BFieY6qx3fTj7B1NcfnILH1eIxR +WFMP8O0cKWMR1/wcEonM/Qz7jEYFPIjfn5CNLg+mgRky5OBAPCZoNjSpywGl +Yu5VM2LBpMNujGkuDPzs7zAgXiWR3hBSNQjitwal1hHbKXx/MGY6AmXblx4T +IaZuq8hoLx6DeA3D3Fk3HsSp2yccaBoHJ4Wj7waJO2XbNoXnfoVTrRbSz4lZ +7oH7U5MmoP3CZ+184i+3+O6UBH+DRRZZO64RL1bRFv+qOwUQV+MVQJzGemEp +vvw7xCxTYtkTK2W7xW2Y/g6TVc/ZesSGWoljB6tmoCyA6/7LlQcB+j1NQ6Y/ +gb84VCyeeDLyyCJhjTnwHn0wxiQ+XiVirLn4F7DE3V4h8XU0fOTf9Bv8KPej +vL2kX1aDWWjuAvxfSMf/vIlz61N7TyjwI0/nt6se8ZcB75hLSfxY7TQhKUIc +s26qtCh4If59nIoqdSF9C5VVx3UFsHa8fsWMMw+6WkZqft0TwLDEM+X1xEoT +Fe5LlwuiYH6YQxpx3ma7y9rTgihfMBupRVxXGbUgqGoxJqtYZDjs4cHUi9ae +QVNR9PA5YRHgxANJG1Hx6BpRfP9WXVGZeGObGYoZieGo2/EXnY48COwvu71J +ZymWGxbGmREf5m/auE1UHPd0Bz0Rc+ABR6Xga8J3CeysdEF/W7I/VOOSZoYk +9he6K4oR8z/iKq8IkUSx2Zuvim1IX8Zqp9xhSTQpMbs1bc0Dd9OUkje9UugT +aC5xxIoHzX6hYbKvlmNYao+fgSUPPmUnn/dZLIM/Rt2ZjRY8GBnOvffQXAbb +X04yPImFw+nWrbUy6Bmy2DHGnAdm8Xs2+5TJouA2ZkSBKQ+e3tefysmUw3yp +q0ldwIP7nNmILeGK6Ls5e8zJgAc7nU9/CstXxLY6792N+iS/Tsoin6uIwSZj +ZUi8+b7WciW3VZgrpnZknR7ZT6Z3qYDJakxdS/d81eXBxHjv0cFTSvhIx/S0 +gw4PpA6aPS61VUHBaLMNdmo84N4XDnAIVMHaxUtuZKny4MnHFoXRRBXM9rgu +8FOFB542Xqc0alVwk3r9QJYy6bc+wumGrirqXWO0j64i7x/K/hIrq4YSoo3R +dnI82OMvom31WR0nhedgjxgPIMJZd++cOo5KH7FKEeXBuoRMA5acBmbWGvu/ +EuEB3z3GjlhHDWxaFtNpIsyD/E8ee0ueaeDW92KZ8kLk/3TJOyF/dw0yP7wc +yOIj/cxs3w8xNVFjuLJJ9NsMKKhcjDvfr4XB92PK17TPQPW5SU0evzY6ygFb +um0GPL+5tVHK2nhIii3K1zoDGXVqmju8tdE1VNK8rWUGVPyfvpvp0MYv3ccD +DjfNwLo8jjr1Sgclu0aqj76YAUWFVZSS20ZcFdP4rq5oBrSywkV/gC5Gxstr +HzgzA3dC1RzKmvQw5mZuiTxjBloiwCA+ywjNTNMfaP8zDcre7XZeQdtQ3Ct7 +VMt5Gti/ywsU/0Bsyty2qq7nO8gOPxGSZe5Adnpbo4LrdwhnGH+8vM4M9zg6 +BWxonQLm6M8GqSFz/NXSrB1gMwX5O8KEMpstsVMnoCivfBLuTwY+y0vbhWtm +Kyz5NCdhZvuK13Vx1ihY0tSek/wNuvkWfv3sa4viiSn6N6YnIHjloZQTqvbY +47VnUj5oAgr2N9ReSXDAu/naadDxFaK+yU2v3++IzUnKq3fbf4UpKwuXl/uc +8JKlVA9/7Rcw8ri0neO4G0G1JqLP4Au8k0sPrGPsQa/Jcq9nUeMg/+BUdc5a +Z6x4L/z4QvQYPOldZ2Mn5oIPjSXOnLk2CqvavvhHjLqgUOSST33PRoBx5VLe +vd69uLJ7805fzjCkL/qmc/mFK0pIFKmaqgxD+fYNXQmVbtjQtOaKv/sQXDc4 +J/Ez1x2fH9sq2X3nP2j+NyuRkeSBGZ+cvYT4/oMy21tqh497YuStoD9TPAbh +68HdfMEsL/zR3TLLaBqAKQvNgDFTb4zXOho0u3MAckY/zITp78PSlMq2ujou +uN7J8vMS9cFxLvNKlRMXSkus9y087YPcjJafv3s5YKTwjneW54M6lScdOuI4 +oNrr3/V2vy8WLOXJdazlQL/IAftbtC+q6n8pjWzth5ZkOz9LZyayo+rdlyT1 +Q1pkpsiRFiYuOLop0M+yH6prfvP8dvnh2gZF5xzRfljmiacZT/0w66+Eq2Hd +NChJv2xeWe2Hzxh19eUfadjYZLtCsMYPjx6XjZ39lwYnY4+Hnc/8UCOr/cSp +LhrSVka8OvaPH/46d/vjzQ4a5LsfLWvo9ENj4yUdnLc0qHnLXvec9sPCc1vS +P9XTYOQzlpOwmYXDdiPhviU0PLjxJcxOn4Va6d8PthTTIN06YSJryMIteo1d +QDxmPt2Ws5WFrY0ly5SKaHIe8C1o2sHCvz3fcjj5NCydlnCTdGRhmlDqttMP +aei/oLck8yALJ0ceBCvdocHxpUGb/yEWGn+j2tJv01DDtyVzYwgLrSU08hWI +b4SZ6D0PZ2FB5tmKFZk02LlZ+nKiWageCBtWpNNQqeZWuf4cC/dHbM/SukFD +clXM/icPWBisd/rUo0s0HNS9ZhSZw8LKuF8JRsQ2D4uXGOayMOGr9feXKTQI +X+M+rMhnochKZyXuRRoSQh2Gyh+zcLl52o01yTTEaKodKHvOwotKYSv/OkdD +4LVXQSWfyDxB0jswnoZdS7nGob0snEvsm/r3FA1rE/jEdPtYOG45JhNJzA3V +yy/msNB8KO928UkafO0yR4tGWHhuwuqd5gkaXAXCggtnWVhbvjVXJ5YGyzD5 +w3kybDS+F7HsXCQNzzMTrS6vYKNiUruwFrFx04RapDwbT53UTnxzlHx/9Vcf +TFexcaL38U9pYrmOaNN/1dlY03F9MPsIDcNbumWE9di4ci6xghNKw0X+23/6 +72ajMLNP4tlBMv8G0eu2ziTv9O6FYcTxHpGhjL1s/HhfK1ydOPKxw5rf7mw0 +8RVsOx9E+lMLLl1lsvHbWe557wM0MBqZrL9D2BhV3d+psJ+GjkvqIqopbHQ1 +ufh6ikVDAYgFDF5i44HfTxuqiONHJ+vyU9n41P2Q7kli3V11sYbX2PgI/B3F +iZP5/CZsM9hoFmX15yY/GiwO3f4QmUf6LMuyOutLg6LiGX2TAja6KGtouxBP +Nh5KXVjExuNXhWJVie9qgG1yKRvf2PcF/uVDw1x3d+29p2wcTy0//HMfDY9t +FHLeNLBR9unAuvPeNJyf5RdIa2RjYYXPhDcxM2fI162JjamTMmsZxOKLnir0 +N7PRSprx6aMXDUFVrhd579m4njURrkesuu5qhBqHjbeKP1v98KBhtuNY639c +8jxlMdVO3JLA3lg4yMb4XY1ixcSxnzcPGY2wMeaftWcDiLuut3rZf2NjrKjk +w4/uNFwWkjCPWkDhKv1NSR/caKie6PYIX0jhrtpNaRXEA925ocECFL55YqN+ +ldj4sdlt5hIKQ3c09u0h5vpE/rCSoDD9UmFjpyvpb2MuaS5F4d2N9gpVxFsN +JDVhOYWZD2Yn04lTxPJcGHIUNvoGm7Ln15/2FCsoUxjw4abN7F4aqKy8huWq +FJZXB3F6iVNS/uhZpk5hzAdjoQZiLiUltkiTQn2hds61+XUpy4CRjRS+6qtZ +akL89JdUHFeXwhxhv/G1xJz/eq/0bqaQ0/DDVZp4S23UizZDCudsBF+OuJDz +Iahg1Z9IobW4z9L7xEtdo/UqdlCYYX9WP5XYyHSnTbEZhWdjMgZOEifL9f2R +tZPCwd4z/X7ETxYVpmRaUbjG1nOjMzE9Hp19w4bCy+IrBCyJDeuXt19woNDS +y3yXFjGzuG/4tBOFRe5lT1YTX7hVyH9yD4WB14SLpYj7QndtjHAl8y1lGs85 +0yDmLWN52J3COz+YzRPEhrtor0BPCs0uWgwPEl9Yfey8tw+Fov6lf74nfiJs +ddeVSaFIxtbwN8R9UzKVTiwKa33ul9bP532mm20oCn2MR6P/ms9rKuJaBFAo +Vb/89RNiZsWxOQyk8O3/FLNL5vPvWklvDaIwcd8i4fz5/Auy6/WCKZR59s9U +9nx+ZP/2DYcpdAo/GHiPWJRV7KoZSuFrvXH/TGID+9hDquEUYqPd2M35/C3W +iYoRFCr8Oj93nThJfUW6bCSFfVkPrlwlLhfnlEpEkf1NzyhPI/78o7hRJIbC +E41hPqnz+QOxnwViKWyT1Ui9TKz/znrmdxyFwlFldvP+P8wcuxQ= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6041957413943362, 1.5846080890559413`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6041957413943375}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.6041957413943375}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "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.6041957413943362, 1.5846080890559413`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913355426284504`*^9, 3.9921257431019096`*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"dd68e5e3-be98-c546-86f3-57ddf0b63d3b"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918461617737026`*^9, 3.9918461709620533`*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"6e23e6bb-e46c-1c43-a88f-db092cf7ac8d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.785829664360261`*^-267\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 120, + 918, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913355428514004`*^9, 3.99212574348472*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"21516349-23e0-1743-bc77-fa2c2fea8b3b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8157830257707058`*^-278\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 120, + 919, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913355428514004`*^9, 3.992125743512724*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"dd24d7bb-71b8-7c4e-8f18-f73eba1fc3b6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.8587544335123704`*^-290\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 120, 920, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913355428514004`*^9, 3.992125743533819*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"818dcae9-27e4-7446-a529-d0d9eb2c5825"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 120, 921, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913355428514004`*^9, 3.9921257435557194`*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"5eb800ed-d170-8d45-9090-460657588ba0"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk8VVsbB3Cz0kRlPs7eB1HIdCJK1oPKLGUsVIRQCSFjRFLHLFNmilIu +ztmqt5RSVOZbFF0a3lDoksxTedf71/58P/uz99p7rfX8nsVwO3vIg4eLi4ub +m4vr/9eCC24CGu55+qvJ1YqHefT0G7tICwcyFH2pNf/qw5ZEKy/rY0nyKpoM ++uaowd6GCp4lEfzkdSRd3Wm0ga2LTu8JOjNHVCCzc+/mhmtMUdeSV8YE8RBd +UpNrj645jAT7viqOEc3oWpkKNV/ljUpaivx/EB+QRUV9wNDtUFRVfbXvtOoo +sqTFTAiVsNBJ9Ob6vwFTKIirxD/s1jXkO7RtoLZqAYVpdw4KPrqOhBiXFD/r +cMFlufejB9YVo2ThVqWS47wQdEhwDIZLkVuf7VPeNgHQSedhdfSWIf+mS25n +FYXg+YJoqGzybcT2W2sjYboORHNWWQ59v4NKwk+NqjsIQ5bx12BT9BeKKVo+ +OP2vCKw02Vm161Yjrq4v8DhsE+T8ZeHCCK9BCoGeIbZKovBHZU5C0oqNtu/6 +bFOkLgrZp0nahDUb7eByVBvVFgWToA3Hm2zYyDDR9FuUkSjE+ryr8DnMRkdv +qtjedRYF+4+qhsXubJTVPanGkyIKUuvC/R6EsRG/VtT36ilRENdq2JJZxkaD +M9n2a56IQaWp5dzqWTYqNWCe+/hCDCyuOAvfnGejY0kdKdUtYnCf972Y3hIb +/SPP32zTKwYX1T7/8ODioDc2Abvzp8Rg24O994qFOKiebUFuVxKHi/bn6zl0 +Dso+wz1qlS0Oqpb18Sb7OMj2Yb4Ao1Ac7JffGhQbc9BGfh25qZvicOdx6/CM +KQcl5/s6Z3PEofxawO9cKw661NrX8bldHCLX/jBoc+Agv233KT8+CdD0CNzd +6s1BZkM+ken+EsBf7CC/O5GD9kfKVe4NkQBF/uCW/ckcZCja/8/sBQkQ52f7 +W6dy0K59ljpOiRIw5Eu9cMngIKUytSm5WxJAFoafP57PQWs8pr3u9UvAroEW +ZYFKDmobjLTtNZYEg19ixl3NHPQ6QjuWZSUJuZ0vNYpaOahx80+2np0kFLZP +EN7tHPR47/ENJW6ScL5DVHDubw6qvGnY4h0pCR9PevMu9XBQkrsgLHEk4fLq +qNYbQxxkNZiqTKdLAUmZeISu4PGUB7ud5aXAW6LS/AcXhczP7byQpyQFB0tW +wpx4KGTC8+lviZ1ScOH+SK02P4UMSeXgTdZSQPAv5vQKUUjLuenZqhgp+CXg +rNciSiFa94Ld1JAU0HSvd3ooUShX2nJF418pyNm6XbhEmUKSJ4pv+01KwV3l ++oJ/VCgkNrl/aeyPFJQ6eRebqFFIWDijeFhcGqJcfxoL76AQr4Xqj4+m0tCp +0AdWeyg0+sIt+vVf0hD34P7POCsKEWm9Psm10qAuwEeWHKCQ7VErO9s6aTgz +EGX/yJpC9fO6Sl9eS4MuDL7/dohC6dtFuucGpEFcPUd5qwOFdmc/VVSUosE4 +7YKDxTEK+blrbRwjabDO9RG/yXEKlWvcXeYo0sCXu+OJgSv+vrasN/paNHDO +87NQO0GhQS7fcHtrGmzL9x6d9KRQog+tM+4yDVyGTxyn+VKoYWf6Q/MkGkw7 +hDbPY8/yrbopkkEDa7tj0HWWQseLpkIKSmigL1buGONPoR3dLbL3HtMgN+/s +ruZACn3cExo8OEmDl+zQPwthFNq45ufxOws0aP5k5v4gHK9Pr7u5H5cMmBza +0R8QQSFOgDW5vE4G6q6c5h2MpNDlW4otm7bJwGtzs53V0RRSFXkvY3RMBrS0 +ggJH4ij0LelbTKaHDPhH9udGXqZQgdDc9++nZKD+7pSYcDyF1vJJcBJDZGDe +YquI+hU8/7OH979Pk4H45cDNziwKlfV/9PVulAEn/VtJ7skUcj483lXXIgNS +sZ4qn7A3v/+js/6NDHR7NMvbp1AoppPgpT7KQGXyBTmDVPz/z12zl2dl4ILu +22O86Xj/3B56mrKNDjMD6ut1MynULT8r/1WNDg3Zcp452AklAqwd2nRQfTco +PYu9mKto+8GQDisbhkoqsyjUm+Q9LOtMB5bGSUIgh0KpQmGWQW50yPdwOOOI +bRzP4rzyosPr90i6Avt+9N2I00F0uKG3MWffdQpdOzcmfD+ZDl92BsucyqWQ +2cTvoFWZdGjj+RJQg81zZn3fkTw6DC6HKE1j+3mqla3cogOnz6EhOI9CVof9 +dU0b6KCtUZPplU8hgfcXC/Ne0eHBdAhfCfaTQ+m84+10iP5e29ODrWJBtaf/ +Q4cM9cpKKKCQEJpx7Z+iQ9PRSokV7BCDravuL9LBLTxsn2ohXi8jp6oUbgLO +O71Jc8J+btKwaLiBgFWR2awabHXz6WKaGAHbQ17u7MUutFQ0nqUR0FTxm/8P +dtihpGsVSgTU0gUF9xZRaNj2mW6sBgGD+/J2uWPbO0x9dtYh4KdPXWoMduNh +hcvaiIA25ebVRdiazodVhPcTMOOjUP4Qu/ho4tsRCwIsDmh5vsVe7/o05IUN +AXNGjmYj2BEnJukFRwhQn/916A/2D48tTcGuBCgf84gWKabQES/HU9ZeBIxW +i3bJYr/2SRBROkuAmIenuSa29pn6B7zBBHzWqxtB2DfP/nL5GEFAh05IlTn2 +xgB5vgexBFQUcOfaYUcHOtxJZRGwd6qu0gV7PJhl7ZNGgBvf2u8nsJ1Dn8wa +5RBw5ZO9qRd2S/hEvkwRAR/ecHf7YOtckDOaKyPgt19A/Cns8mj7kb8rCfia +ut79//c3x15NuUPh8Uz0fE5ix8Q91rr0iIDQX665btgT8T/7XBoIcFH4Nu2E +fZQlG7PzNQHijWphNthtiXZbRToJWB4uUzLF3pVypWP0HQHd09UCe7Bvp9UF +NvYTUH7l3no1bLGMcanCAQKKLtONCOxLWYyG86MEDIvY3FyHPZlje/LgLwLC +kus0F/H8Hs+LX6c8j99f/Gx8EJv+96zKTx4Svjvv/VWLbXdQmMtZgISytEyd +XOzEt9u6Xq8moSpga3Uk9mK3c2ipMAnBwnXKCFvDPthiw2b8vEOKpgy2V08K +ESFOwr3jVj4LeD+9//C8yY5OwoE4Hd9K7HVO/TnPGSSYKuzaHYu9t3/mlNoW +Eu6nd+1yxOZ82rpxtQoJmxIiu5bx/h45ZjgUpEbCuzTPM23Y5H+d/vNVkwSX +wzm7c7GTB5KPPtYlwbftarA6dpP7bY1te0i4MiA3OI/rZ3mogS8LSFBPr4t/ +iu0zPH3nrDEJOZp5AcbYxmNH5mTtSDA02T5ggOuzcHNsV5QjCeNKh+1/4/qd +3n23ut+JhNOVzpseYBezlk5muZHgX5h2egv2omJ+72o//D0/rW+N4bywPtBY +63mOhMyJd4F52OXB/6a+CCYh4fDlFGNsmyY908hIElYfE6/KzaZQpdvHhxMs +Ej6se52ngvOJh8WfZZlMwqOSwE9tOL8c2dsD7qSRYEKr8j+Fzc91Qck9hwTR ++IiEGxl4/xTQ83rKSPikeilnBeejcO+xiPpneDyv7pCTOE89V+IdpRtJ0Fj4 +MfcvztvHCjU7Ql6RoH86vMMP2zuIa0yjg4SVnhex55JwXmwscSnrI8FPyEba +I4FCgZZf9RNnSTjL7HJdwPnfEigkPbJAwitxVpI7NpmvObfvNwkChj3iHbhf +tI/GVK/wMuBhJ49Z/iUKKVyRI8+JMEDxoJXGlhicv8/duY+oMMCa9cZ/BPej +CYN/pCLVGECmq8buxxZsOLCjWJMBFSq5aqW4f2k/3XXymw4DjJXpTna4v2XU +CbcH7GOAc4SX4N3zFDpQ+zgn4SgDLC0mV28OoNDLss3qT1IZkN2j7/HZg0Kf +5FmmX64xoEghKlMYe+bGihtvNgM0/yt+BtwpJF86mmlawIC26MFN+W64Xguf +Lb2rYED8w3EzI9zv9bNPvxp/jsdbc/DBQUcK3bvSeJScYcCmW5M2/qa4Hs1a +JeLnGcARqFA6YYLPM2vfvh1bYsDAI8twG2OcN6mf99fxyEL5i6BEtX0UsshZ +VLUXloU1Hm8j3gGFvt5SX0lQloWlvnahDztxPr7KL5pzlYXNoyKJz+Xx+vEH +fenokIXgC53SexY5SIpo7ll6g++LCTSOzHNQh45M59Z3ssCbJKmdOcdB2qeb +nsT0yQKt50bo8DQHCXSJ5mkPy8Lv8QFW9E8OKiu+b1fILQfWt8x2nx/koMHd +8y1ndshBlPDf3DH4vHgiIPze2lw5SI9v6lHA50+1k8odFq7ysMxQN+5V5aDO +jSprgnS3QKlQp6P+LTaqq4rJU+FVgIBCdtgDKTYK51aybvuoAFoRa5x8gmqQ +UH+YiW+tItxOOsAbnFqNhsoZGUURW+HaqG9c754qlLFVku+h3TYgZb1aWxsq +UWqu5ytXUgk6rlY9vG5/Fx3JcOlY+10Jfju2tn8aq0Dze8sWiuqVIeOLd/ZV +99toYMgw5Hm8CjD0ioVuz5aj0j0a0u2u2yG4O9NFzbcM/RUXJHJyuyrQfq8I +CgvcRPF2J8x5Z1Qh8UPjuaXKUqTVX1IR364Gtr07NdMMSlDOtry/2s3V4WvW +MN+R6SIU9Swpx/yhOpwyRuPHzQuQpbRdWYu8BnzO2KOysSMXGfi+chK5qgHm +T00M11/PQUU0N/m2GQ2Y/rRw84VdFpJ/cSvLykkTWrYs1Iw7ZqDU7c+V3tZr +gmRVbrzTpXTkOcX3plmJCYs+RZubK1KRG3uSvJrChMa8tfaltGR0OsZm2SyN +CVpp8yWd65NRkE1tz9prTIgUDEzi5k5GV2aCklOzmDBjSzM4N5SEqnQXlrIL +mOA/ILsuuSoJLTSsvC+/y4RLrNCmYoMklPp2bVLjKybUizny7DyViHJvnPG6 +3MyEte0te+ZcEtGNwA4jk1YmhCbdE3xsnYjui6UutnYwoVXw9l4b7UTUf2ST +V9c7JizEvD30H+5EpDggafR1gAl1YyN6ztcTkHptGP3mEBPwBEh6JCagXXF9 +Cx7fmVCj+TE8ICoBWSgW1IyMMsF4Oa4t1yMBBZwi6b9+MeHBxaMpDM0EFKF3 +cYEzxYTAkeBYqy0JKG7d1+7AGSZ8yLk7FyWRgHKqbyTMzzPBZtWIy8QfFiqN +5jv5aJEJZutrrNQmWejuQQ/DiGUmXB3e8CRgiIVqZV/K6P9hAp+H5+1HvSxU +P6WwsLLCBP4WYWHBNhb6H766V9Q= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VVsbB3Cz0kRlPs7eB1HIdCJK1oPKLGUsVIRQCSFjRFLHLFNmilIu +ztmqt5RSVOZbFF0a3lDoksxTedf71/58P/uz99p7rfX8nsVwO3vIg4eLi4ub +m4vr/9eCC24CGu55+qvJ1YqHefT0G7tICwcyFH2pNf/qw5ZEKy/rY0nyKpoM ++uaowd6GCp4lEfzkdSRd3Wm0ga2LTu8JOjNHVCCzc+/mhmtMUdeSV8YE8RBd +UpNrj645jAT7viqOEc3oWpkKNV/ljUpaivx/EB+QRUV9wNDtUFRVfbXvtOoo +sqTFTAiVsNBJ9Ob6vwFTKIirxD/s1jXkO7RtoLZqAYVpdw4KPrqOhBiXFD/r +cMFlufejB9YVo2ThVqWS47wQdEhwDIZLkVuf7VPeNgHQSedhdfSWIf+mS25n +FYXg+YJoqGzybcT2W2sjYboORHNWWQ59v4NKwk+NqjsIQ5bx12BT9BeKKVo+ +OP2vCKw02Vm161Yjrq4v8DhsE+T8ZeHCCK9BCoGeIbZKovBHZU5C0oqNtu/6 +bFOkLgrZp0nahDUb7eByVBvVFgWToA3Hm2zYyDDR9FuUkSjE+ryr8DnMRkdv +qtjedRYF+4+qhsXubJTVPanGkyIKUuvC/R6EsRG/VtT36ilRENdq2JJZxkaD +M9n2a56IQaWp5dzqWTYqNWCe+/hCDCyuOAvfnGejY0kdKdUtYnCf972Y3hIb +/SPP32zTKwYX1T7/8ODioDc2Abvzp8Rg24O994qFOKiebUFuVxKHi/bn6zl0 +Dso+wz1qlS0Oqpb18Sb7OMj2Yb4Ao1Ac7JffGhQbc9BGfh25qZvicOdx6/CM +KQcl5/s6Z3PEofxawO9cKw661NrX8bldHCLX/jBoc+Agv233KT8+CdD0CNzd +6s1BZkM+ken+EsBf7CC/O5GD9kfKVe4NkQBF/uCW/ckcZCja/8/sBQkQ52f7 +W6dy0K59ljpOiRIw5Eu9cMngIKUytSm5WxJAFoafP57PQWs8pr3u9UvAroEW +ZYFKDmobjLTtNZYEg19ixl3NHPQ6QjuWZSUJuZ0vNYpaOahx80+2np0kFLZP +EN7tHPR47/ENJW6ScL5DVHDubw6qvGnY4h0pCR9PevMu9XBQkrsgLHEk4fLq +qNYbQxxkNZiqTKdLAUmZeISu4PGUB7ud5aXAW6LS/AcXhczP7byQpyQFB0tW +wpx4KGTC8+lviZ1ScOH+SK02P4UMSeXgTdZSQPAv5vQKUUjLuenZqhgp+CXg +rNciSiFa94Ld1JAU0HSvd3ooUShX2nJF418pyNm6XbhEmUKSJ4pv+01KwV3l ++oJ/VCgkNrl/aeyPFJQ6eRebqFFIWDijeFhcGqJcfxoL76AQr4Xqj4+m0tCp +0AdWeyg0+sIt+vVf0hD34P7POCsKEWm9Psm10qAuwEeWHKCQ7VErO9s6aTgz +EGX/yJpC9fO6Sl9eS4MuDL7/dohC6dtFuucGpEFcPUd5qwOFdmc/VVSUosE4 +7YKDxTEK+blrbRwjabDO9RG/yXEKlWvcXeYo0sCXu+OJgSv+vrasN/paNHDO +87NQO0GhQS7fcHtrGmzL9x6d9KRQog+tM+4yDVyGTxyn+VKoYWf6Q/MkGkw7 +hDbPY8/yrbopkkEDa7tj0HWWQseLpkIKSmigL1buGONPoR3dLbL3HtMgN+/s +ruZACn3cExo8OEmDl+zQPwthFNq45ufxOws0aP5k5v4gHK9Pr7u5H5cMmBza +0R8QQSFOgDW5vE4G6q6c5h2MpNDlW4otm7bJwGtzs53V0RRSFXkvY3RMBrS0 +ggJH4ij0LelbTKaHDPhH9udGXqZQgdDc9++nZKD+7pSYcDyF1vJJcBJDZGDe +YquI+hU8/7OH979Pk4H45cDNziwKlfV/9PVulAEn/VtJ7skUcj483lXXIgNS +sZ4qn7A3v/+js/6NDHR7NMvbp1AoppPgpT7KQGXyBTmDVPz/z12zl2dl4ILu +22O86Xj/3B56mrKNDjMD6ut1MynULT8r/1WNDg3Zcp452AklAqwd2nRQfTco +PYu9mKto+8GQDisbhkoqsyjUm+Q9LOtMB5bGSUIgh0KpQmGWQW50yPdwOOOI +bRzP4rzyosPr90i6Avt+9N2I00F0uKG3MWffdQpdOzcmfD+ZDl92BsucyqWQ +2cTvoFWZdGjj+RJQg81zZn3fkTw6DC6HKE1j+3mqla3cogOnz6EhOI9CVof9 +dU0b6KCtUZPplU8hgfcXC/Ne0eHBdAhfCfaTQ+m84+10iP5e29ODrWJBtaf/ +Q4cM9cpKKKCQEJpx7Z+iQ9PRSokV7BCDravuL9LBLTxsn2ohXi8jp6oUbgLO +O71Jc8J+btKwaLiBgFWR2awabHXz6WKaGAHbQ17u7MUutFQ0nqUR0FTxm/8P +dtihpGsVSgTU0gUF9xZRaNj2mW6sBgGD+/J2uWPbO0x9dtYh4KdPXWoMduNh +hcvaiIA25ebVRdiazodVhPcTMOOjUP4Qu/ho4tsRCwIsDmh5vsVe7/o05IUN +AXNGjmYj2BEnJukFRwhQn/916A/2D48tTcGuBCgf84gWKabQES/HU9ZeBIxW +i3bJYr/2SRBROkuAmIenuSa29pn6B7zBBHzWqxtB2DfP/nL5GEFAh05IlTn2 +xgB5vgexBFQUcOfaYUcHOtxJZRGwd6qu0gV7PJhl7ZNGgBvf2u8nsJ1Dn8wa +5RBw5ZO9qRd2S/hEvkwRAR/ecHf7YOtckDOaKyPgt19A/Cns8mj7kb8rCfia +ut79//c3x15NuUPh8Uz0fE5ix8Q91rr0iIDQX665btgT8T/7XBoIcFH4Nu2E +fZQlG7PzNQHijWphNthtiXZbRToJWB4uUzLF3pVypWP0HQHd09UCe7Bvp9UF +NvYTUH7l3no1bLGMcanCAQKKLtONCOxLWYyG86MEDIvY3FyHPZlje/LgLwLC +kus0F/H8Hs+LX6c8j99f/Gx8EJv+96zKTx4Svjvv/VWLbXdQmMtZgISytEyd +XOzEt9u6Xq8moSpga3Uk9mK3c2ipMAnBwnXKCFvDPthiw2b8vEOKpgy2V08K +ESFOwr3jVj4LeD+9//C8yY5OwoE4Hd9K7HVO/TnPGSSYKuzaHYu9t3/mlNoW +Eu6nd+1yxOZ82rpxtQoJmxIiu5bx/h45ZjgUpEbCuzTPM23Y5H+d/vNVkwSX +wzm7c7GTB5KPPtYlwbftarA6dpP7bY1te0i4MiA3OI/rZ3mogS8LSFBPr4t/ +iu0zPH3nrDEJOZp5AcbYxmNH5mTtSDA02T5ggOuzcHNsV5QjCeNKh+1/4/qd +3n23ut+JhNOVzpseYBezlk5muZHgX5h2egv2omJ+72o//D0/rW+N4bywPtBY +63mOhMyJd4F52OXB/6a+CCYh4fDlFGNsmyY908hIElYfE6/KzaZQpdvHhxMs +Ej6se52ngvOJh8WfZZlMwqOSwE9tOL8c2dsD7qSRYEKr8j+Fzc91Qck9hwTR ++IiEGxl4/xTQ83rKSPikeilnBeejcO+xiPpneDyv7pCTOE89V+IdpRtJ0Fj4 +MfcvztvHCjU7Ql6RoH86vMMP2zuIa0yjg4SVnhex55JwXmwscSnrI8FPyEba +I4FCgZZf9RNnSTjL7HJdwPnfEigkPbJAwitxVpI7NpmvObfvNwkChj3iHbhf +tI/GVK/wMuBhJ49Z/iUKKVyRI8+JMEDxoJXGlhicv8/duY+oMMCa9cZ/BPej +CYN/pCLVGECmq8buxxZsOLCjWJMBFSq5aqW4f2k/3XXymw4DjJXpTna4v2XU +CbcH7GOAc4SX4N3zFDpQ+zgn4SgDLC0mV28OoNDLss3qT1IZkN2j7/HZg0Kf +5FmmX64xoEghKlMYe+bGihtvNgM0/yt+BtwpJF86mmlawIC26MFN+W64Xguf +Lb2rYED8w3EzI9zv9bNPvxp/jsdbc/DBQUcK3bvSeJScYcCmW5M2/qa4Hs1a +JeLnGcARqFA6YYLPM2vfvh1bYsDAI8twG2OcN6mf99fxyEL5i6BEtX0UsshZ +VLUXloU1Hm8j3gGFvt5SX0lQloWlvnahDztxPr7KL5pzlYXNoyKJz+Xx+vEH +fenokIXgC53SexY5SIpo7ll6g++LCTSOzHNQh45M59Z3ssCbJKmdOcdB2qeb +nsT0yQKt50bo8DQHCXSJ5mkPy8Lv8QFW9E8OKiu+b1fILQfWt8x2nx/koMHd +8y1ndshBlPDf3DH4vHgiIPze2lw5SI9v6lHA50+1k8odFq7ysMxQN+5V5aDO +jSprgnS3QKlQp6P+LTaqq4rJU+FVgIBCdtgDKTYK51aybvuoAFoRa5x8gmqQ +UH+YiW+tItxOOsAbnFqNhsoZGUURW+HaqG9c754qlLFVku+h3TYgZb1aWxsq +UWqu5ytXUgk6rlY9vG5/Fx3JcOlY+10Jfju2tn8aq0Dze8sWiuqVIeOLd/ZV +99toYMgw5Hm8CjD0ioVuz5aj0j0a0u2u2yG4O9NFzbcM/RUXJHJyuyrQfq8I +CgvcRPF2J8x5Z1Qh8UPjuaXKUqTVX1IR364Gtr07NdMMSlDOtry/2s3V4WvW +MN+R6SIU9Swpx/yhOpwyRuPHzQuQpbRdWYu8BnzO2KOysSMXGfi+chK5qgHm +T00M11/PQUU0N/m2GQ2Y/rRw84VdFpJ/cSvLykkTWrYs1Iw7ZqDU7c+V3tZr +gmRVbrzTpXTkOcX3plmJCYs+RZubK1KRG3uSvJrChMa8tfaltGR0OsZm2SyN +CVpp8yWd65NRkE1tz9prTIgUDEzi5k5GV2aCklOzmDBjSzM4N5SEqnQXlrIL +mOA/ILsuuSoJLTSsvC+/y4RLrNCmYoMklPp2bVLjKybUizny7DyViHJvnPG6 +3MyEte0te+ZcEtGNwA4jk1YmhCbdE3xsnYjui6UutnYwoVXw9l4b7UTUf2ST +V9c7JizEvD30H+5EpDggafR1gAl1YyN6ztcTkHptGP3mEBPwBEh6JCagXXF9 +Cx7fmVCj+TE8ICoBWSgW1IyMMsF4Oa4t1yMBBZwi6b9+MeHBxaMpDM0EFKF3 +cYEzxYTAkeBYqy0JKG7d1+7AGSZ8yLk7FyWRgHKqbyTMzzPBZtWIy8QfFiqN +5jv5aJEJZutrrNQmWejuQQ/DiGUmXB3e8CRgiIVqZV/K6P9hAp+H5+1HvSxU +P6WwsLLCBP4WYWHBNhb6H766V9Q= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07666656548321167}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07666656548321167}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VVsbB3Cz0kRlPs7eB1HIdCJK1oPKLGUsVIRQCSFjRFLHLFNmilIu +ztmqt5RSVOZbFF0a3lDoksxTedf71/58P/uz99p7rfX8nsVwO3vIg4eLi4ub +m4vr/9eCC24CGu55+qvJ1YqHefT0G7tICwcyFH2pNf/qw5ZEKy/rY0nyKpoM ++uaowd6GCp4lEfzkdSRd3Wm0ga2LTu8JOjNHVCCzc+/mhmtMUdeSV8YE8RBd +UpNrj645jAT7viqOEc3oWpkKNV/ljUpaivx/EB+QRUV9wNDtUFRVfbXvtOoo +sqTFTAiVsNBJ9Ob6vwFTKIirxD/s1jXkO7RtoLZqAYVpdw4KPrqOhBiXFD/r +cMFlufejB9YVo2ThVqWS47wQdEhwDIZLkVuf7VPeNgHQSedhdfSWIf+mS25n +FYXg+YJoqGzybcT2W2sjYboORHNWWQ59v4NKwk+NqjsIQ5bx12BT9BeKKVo+ +OP2vCKw02Vm161Yjrq4v8DhsE+T8ZeHCCK9BCoGeIbZKovBHZU5C0oqNtu/6 +bFOkLgrZp0nahDUb7eByVBvVFgWToA3Hm2zYyDDR9FuUkSjE+ryr8DnMRkdv +qtjedRYF+4+qhsXubJTVPanGkyIKUuvC/R6EsRG/VtT36ilRENdq2JJZxkaD +M9n2a56IQaWp5dzqWTYqNWCe+/hCDCyuOAvfnGejY0kdKdUtYnCf972Y3hIb +/SPP32zTKwYX1T7/8ODioDc2Abvzp8Rg24O994qFOKiebUFuVxKHi/bn6zl0 +Dso+wz1qlS0Oqpb18Sb7OMj2Yb4Ao1Ac7JffGhQbc9BGfh25qZvicOdx6/CM +KQcl5/s6Z3PEofxawO9cKw661NrX8bldHCLX/jBoc+Agv233KT8+CdD0CNzd +6s1BZkM+ken+EsBf7CC/O5GD9kfKVe4NkQBF/uCW/ckcZCja/8/sBQkQ52f7 +W6dy0K59ljpOiRIw5Eu9cMngIKUytSm5WxJAFoafP57PQWs8pr3u9UvAroEW +ZYFKDmobjLTtNZYEg19ixl3NHPQ6QjuWZSUJuZ0vNYpaOahx80+2np0kFLZP +EN7tHPR47/ENJW6ScL5DVHDubw6qvGnY4h0pCR9PevMu9XBQkrsgLHEk4fLq +qNYbQxxkNZiqTKdLAUmZeISu4PGUB7ud5aXAW6LS/AcXhczP7byQpyQFB0tW +wpx4KGTC8+lviZ1ScOH+SK02P4UMSeXgTdZSQPAv5vQKUUjLuenZqhgp+CXg +rNciSiFa94Ld1JAU0HSvd3ooUShX2nJF418pyNm6XbhEmUKSJ4pv+01KwV3l ++oJ/VCgkNrl/aeyPFJQ6eRebqFFIWDijeFhcGqJcfxoL76AQr4Xqj4+m0tCp +0AdWeyg0+sIt+vVf0hD34P7POCsKEWm9Psm10qAuwEeWHKCQ7VErO9s6aTgz +EGX/yJpC9fO6Sl9eS4MuDL7/dohC6dtFuucGpEFcPUd5qwOFdmc/VVSUosE4 +7YKDxTEK+blrbRwjabDO9RG/yXEKlWvcXeYo0sCXu+OJgSv+vrasN/paNHDO +87NQO0GhQS7fcHtrGmzL9x6d9KRQog+tM+4yDVyGTxyn+VKoYWf6Q/MkGkw7 +hDbPY8/yrbopkkEDa7tj0HWWQseLpkIKSmigL1buGONPoR3dLbL3HtMgN+/s +ruZACn3cExo8OEmDl+zQPwthFNq45ufxOws0aP5k5v4gHK9Pr7u5H5cMmBza +0R8QQSFOgDW5vE4G6q6c5h2MpNDlW4otm7bJwGtzs53V0RRSFXkvY3RMBrS0 +ggJH4ij0LelbTKaHDPhH9udGXqZQgdDc9++nZKD+7pSYcDyF1vJJcBJDZGDe +YquI+hU8/7OH979Pk4H45cDNziwKlfV/9PVulAEn/VtJ7skUcj483lXXIgNS +sZ4qn7A3v/+js/6NDHR7NMvbp1AoppPgpT7KQGXyBTmDVPz/z12zl2dl4ILu +22O86Xj/3B56mrKNDjMD6ut1MynULT8r/1WNDg3Zcp452AklAqwd2nRQfTco +PYu9mKto+8GQDisbhkoqsyjUm+Q9LOtMB5bGSUIgh0KpQmGWQW50yPdwOOOI +bRzP4rzyosPr90i6Avt+9N2I00F0uKG3MWffdQpdOzcmfD+ZDl92BsucyqWQ +2cTvoFWZdGjj+RJQg81zZn3fkTw6DC6HKE1j+3mqla3cogOnz6EhOI9CVof9 +dU0b6KCtUZPplU8hgfcXC/Ne0eHBdAhfCfaTQ+m84+10iP5e29ODrWJBtaf/ +Q4cM9cpKKKCQEJpx7Z+iQ9PRSokV7BCDravuL9LBLTxsn2ohXi8jp6oUbgLO +O71Jc8J+btKwaLiBgFWR2awabHXz6WKaGAHbQ17u7MUutFQ0nqUR0FTxm/8P +dtihpGsVSgTU0gUF9xZRaNj2mW6sBgGD+/J2uWPbO0x9dtYh4KdPXWoMduNh +hcvaiIA25ebVRdiazodVhPcTMOOjUP4Qu/ho4tsRCwIsDmh5vsVe7/o05IUN +AXNGjmYj2BEnJukFRwhQn/916A/2D48tTcGuBCgf84gWKabQES/HU9ZeBIxW +i3bJYr/2SRBROkuAmIenuSa29pn6B7zBBHzWqxtB2DfP/nL5GEFAh05IlTn2 +xgB5vgexBFQUcOfaYUcHOtxJZRGwd6qu0gV7PJhl7ZNGgBvf2u8nsJ1Dn8wa +5RBw5ZO9qRd2S/hEvkwRAR/ecHf7YOtckDOaKyPgt19A/Cns8mj7kb8rCfia +ut79//c3x15NuUPh8Uz0fE5ix8Q91rr0iIDQX665btgT8T/7XBoIcFH4Nu2E +fZQlG7PzNQHijWphNthtiXZbRToJWB4uUzLF3pVypWP0HQHd09UCe7Bvp9UF +NvYTUH7l3no1bLGMcanCAQKKLtONCOxLWYyG86MEDIvY3FyHPZlje/LgLwLC +kus0F/H8Hs+LX6c8j99f/Gx8EJv+96zKTx4Svjvv/VWLbXdQmMtZgISytEyd +XOzEt9u6Xq8moSpga3Uk9mK3c2ipMAnBwnXKCFvDPthiw2b8vEOKpgy2V08K +ESFOwr3jVj4LeD+9//C8yY5OwoE4Hd9K7HVO/TnPGSSYKuzaHYu9t3/mlNoW +Eu6nd+1yxOZ82rpxtQoJmxIiu5bx/h45ZjgUpEbCuzTPM23Y5H+d/vNVkwSX +wzm7c7GTB5KPPtYlwbftarA6dpP7bY1te0i4MiA3OI/rZ3mogS8LSFBPr4t/ +iu0zPH3nrDEJOZp5AcbYxmNH5mTtSDA02T5ggOuzcHNsV5QjCeNKh+1/4/qd +3n23ut+JhNOVzpseYBezlk5muZHgX5h2egv2omJ+72o//D0/rW+N4bywPtBY +63mOhMyJd4F52OXB/6a+CCYh4fDlFGNsmyY908hIElYfE6/KzaZQpdvHhxMs +Ej6se52ngvOJh8WfZZlMwqOSwE9tOL8c2dsD7qSRYEKr8j+Fzc91Qck9hwTR ++IiEGxl4/xTQ83rKSPikeilnBeejcO+xiPpneDyv7pCTOE89V+IdpRtJ0Fj4 +MfcvztvHCjU7Ql6RoH86vMMP2zuIa0yjg4SVnhex55JwXmwscSnrI8FPyEba +I4FCgZZf9RNnSTjL7HJdwPnfEigkPbJAwitxVpI7NpmvObfvNwkChj3iHbhf +tI/GVK/wMuBhJ49Z/iUKKVyRI8+JMEDxoJXGlhicv8/duY+oMMCa9cZ/BPej +CYN/pCLVGECmq8buxxZsOLCjWJMBFSq5aqW4f2k/3XXymw4DjJXpTna4v2XU +CbcH7GOAc4SX4N3zFDpQ+zgn4SgDLC0mV28OoNDLss3qT1IZkN2j7/HZg0Kf +5FmmX64xoEghKlMYe+bGihtvNgM0/yt+BtwpJF86mmlawIC26MFN+W64Xguf +Lb2rYED8w3EzI9zv9bNPvxp/jsdbc/DBQUcK3bvSeJScYcCmW5M2/qa4Hs1a +JeLnGcARqFA6YYLPM2vfvh1bYsDAI8twG2OcN6mf99fxyEL5i6BEtX0UsshZ +VLUXloU1Hm8j3gGFvt5SX0lQloWlvnahDztxPr7KL5pzlYXNoyKJz+Xx+vEH +fenokIXgC53SexY5SIpo7ll6g++LCTSOzHNQh45M59Z3ssCbJKmdOcdB2qeb +nsT0yQKt50bo8DQHCXSJ5mkPy8Lv8QFW9E8OKiu+b1fILQfWt8x2nx/koMHd +8y1ndshBlPDf3DH4vHgiIPze2lw5SI9v6lHA50+1k8odFq7ysMxQN+5V5aDO +jSprgnS3QKlQp6P+LTaqq4rJU+FVgIBCdtgDKTYK51aybvuoAFoRa5x8gmqQ +UH+YiW+tItxOOsAbnFqNhsoZGUURW+HaqG9c754qlLFVku+h3TYgZb1aWxsq +UWqu5ytXUgk6rlY9vG5/Fx3JcOlY+10Jfju2tn8aq0Dze8sWiuqVIeOLd/ZV +99toYMgw5Hm8CjD0ioVuz5aj0j0a0u2u2yG4O9NFzbcM/RUXJHJyuyrQfq8I +CgvcRPF2J8x5Z1Qh8UPjuaXKUqTVX1IR364Gtr07NdMMSlDOtry/2s3V4WvW +MN+R6SIU9Swpx/yhOpwyRuPHzQuQpbRdWYu8BnzO2KOysSMXGfi+chK5qgHm +T00M11/PQUU0N/m2GQ2Y/rRw84VdFpJ/cSvLykkTWrYs1Iw7ZqDU7c+V3tZr +gmRVbrzTpXTkOcX3plmJCYs+RZubK1KRG3uSvJrChMa8tfaltGR0OsZm2SyN +CVpp8yWd65NRkE1tz9prTIgUDEzi5k5GV2aCklOzmDBjSzM4N5SEqnQXlrIL +mOA/ILsuuSoJLTSsvC+/y4RLrNCmYoMklPp2bVLjKybUizny7DyViHJvnPG6 +3MyEte0te+ZcEtGNwA4jk1YmhCbdE3xsnYjui6UutnYwoVXw9l4b7UTUf2ST +V9c7JizEvD30H+5EpDggafR1gAl1YyN6ztcTkHptGP3mEBPwBEh6JCagXXF9 +Cx7fmVCj+TE8ICoBWSgW1IyMMsF4Oa4t1yMBBZwi6b9+MeHBxaMpDM0EFKF3 +cYEzxYTAkeBYqy0JKG7d1+7AGSZ8yLk7FyWRgHKqbyTMzzPBZtWIy8QfFiqN +5jv5aJEJZutrrNQmWejuQQ/DiGUmXB3e8CRgiIVqZV/K6P9hAp+H5+1HvSxU +P6WwsLLCBP4WYWHBNhb6H766V9Q= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07666656548321167}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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, 20}, {0., 0.07666656548321167}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991336179267145*^9, 3.992126362938036*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"a132378a-9f95-0943-97fd-8e3988a0194e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel-> + "In[121]:=",ExpressionUUID->"028f7072-05bf-cf40-ac60-9f298ef86e88"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk8VVsbB3Cz0kRlPs7eB1HIdCJK1oPKLGUsVIRQCSFjRFLHLFNmilIu +ztmqt5RSVOZbFF0a3lDoksxTedf71/58P/uz99p7rfX8nsVwO3vIg4eLi4ub +m4vr/9eCC24CGu55+qvJ1YqHefT0G7tICwcyFH2pNf/qw5ZEKy/rY0nyKpoM ++uaowd6GCp4lEfzkdSRd3Wm0ga2LTu8JOjNHVCCzc+/mhmtMUdeSV8YE8RBd +UpNrj645jAT7viqOEc3oWpkKNV/ljUpaivx/EB+QRUV9wNDtUFRVfbXvtOoo +sqTFTAiVsNBJ9Ob6vwFTKIirxD/s1jXkO7RtoLZqAYVpdw4KPrqOhBiXFD/r +cMFlufejB9YVo2ThVqWS47wQdEhwDIZLkVuf7VPeNgHQSedhdfSWIf+mS25n +FYXg+YJoqGzybcT2W2sjYboORHNWWQ59v4NKwk+NqjsIQ5bx12BT9BeKKVo+ +OP2vCKw02Vm161Yjrq4v8DhsE+T8ZeHCCK9BCoGeIbZKovBHZU5C0oqNtu/6 +bFOkLgrZp0nahDUb7eByVBvVFgWToA3Hm2zYyDDR9FuUkSjE+ryr8DnMRkdv +qtjedRYF+4+qhsXubJTVPanGkyIKUuvC/R6EsRG/VtT36ilRENdq2JJZxkaD +M9n2a56IQaWp5dzqWTYqNWCe+/hCDCyuOAvfnGejY0kdKdUtYnCf972Y3hIb +/SPP32zTKwYX1T7/8ODioDc2Abvzp8Rg24O994qFOKiebUFuVxKHi/bn6zl0 +Dso+wz1qlS0Oqpb18Sb7OMj2Yb4Ao1Ac7JffGhQbc9BGfh25qZvicOdx6/CM +KQcl5/s6Z3PEofxawO9cKw661NrX8bldHCLX/jBoc+Agv233KT8+CdD0CNzd +6s1BZkM+ken+EsBf7CC/O5GD9kfKVe4NkQBF/uCW/ckcZCja/8/sBQkQ52f7 +W6dy0K59ljpOiRIw5Eu9cMngIKUytSm5WxJAFoafP57PQWs8pr3u9UvAroEW +ZYFKDmobjLTtNZYEg19ixl3NHPQ6QjuWZSUJuZ0vNYpaOahx80+2np0kFLZP +EN7tHPR47/ENJW6ScL5DVHDubw6qvGnY4h0pCR9PevMu9XBQkrsgLHEk4fLq +qNYbQxxkNZiqTKdLAUmZeISu4PGUB7ud5aXAW6LS/AcXhczP7byQpyQFB0tW +wpx4KGTC8+lviZ1ScOH+SK02P4UMSeXgTdZSQPAv5vQKUUjLuenZqhgp+CXg +rNciSiFa94Ld1JAU0HSvd3ooUShX2nJF418pyNm6XbhEmUKSJ4pv+01KwV3l ++oJ/VCgkNrl/aeyPFJQ6eRebqFFIWDijeFhcGqJcfxoL76AQr4Xqj4+m0tCp +0AdWeyg0+sIt+vVf0hD34P7POCsKEWm9Psm10qAuwEeWHKCQ7VErO9s6aTgz +EGX/yJpC9fO6Sl9eS4MuDL7/dohC6dtFuucGpEFcPUd5qwOFdmc/VVSUosE4 +7YKDxTEK+blrbRwjabDO9RG/yXEKlWvcXeYo0sCXu+OJgSv+vrasN/paNHDO +87NQO0GhQS7fcHtrGmzL9x6d9KRQog+tM+4yDVyGTxyn+VKoYWf6Q/MkGkw7 +hDbPY8/yrbopkkEDa7tj0HWWQseLpkIKSmigL1buGONPoR3dLbL3HtMgN+/s +ruZACn3cExo8OEmDl+zQPwthFNq45ufxOws0aP5k5v4gHK9Pr7u5H5cMmBza +0R8QQSFOgDW5vE4G6q6c5h2MpNDlW4otm7bJwGtzs53V0RRSFXkvY3RMBrS0 +ggJH4ij0LelbTKaHDPhH9udGXqZQgdDc9++nZKD+7pSYcDyF1vJJcBJDZGDe +YquI+hU8/7OH979Pk4H45cDNziwKlfV/9PVulAEn/VtJ7skUcj483lXXIgNS +sZ4qn7A3v/+js/6NDHR7NMvbp1AoppPgpT7KQGXyBTmDVPz/z12zl2dl4ILu +22O86Xj/3B56mrKNDjMD6ut1MynULT8r/1WNDg3Zcp452AklAqwd2nRQfTco +PYu9mKto+8GQDisbhkoqsyjUm+Q9LOtMB5bGSUIgh0KpQmGWQW50yPdwOOOI +bRzP4rzyosPr90i6Avt+9N2I00F0uKG3MWffdQpdOzcmfD+ZDl92BsucyqWQ +2cTvoFWZdGjj+RJQg81zZn3fkTw6DC6HKE1j+3mqla3cogOnz6EhOI9CVof9 +dU0b6KCtUZPplU8hgfcXC/Ne0eHBdAhfCfaTQ+m84+10iP5e29ODrWJBtaf/ +Q4cM9cpKKKCQEJpx7Z+iQ9PRSokV7BCDravuL9LBLTxsn2ohXi8jp6oUbgLO +O71Jc8J+btKwaLiBgFWR2awabHXz6WKaGAHbQ17u7MUutFQ0nqUR0FTxm/8P +dtihpGsVSgTU0gUF9xZRaNj2mW6sBgGD+/J2uWPbO0x9dtYh4KdPXWoMduNh +hcvaiIA25ebVRdiazodVhPcTMOOjUP4Qu/ho4tsRCwIsDmh5vsVe7/o05IUN +AXNGjmYj2BEnJukFRwhQn/916A/2D48tTcGuBCgf84gWKabQES/HU9ZeBIxW +i3bJYr/2SRBROkuAmIenuSa29pn6B7zBBHzWqxtB2DfP/nL5GEFAh05IlTn2 +xgB5vgexBFQUcOfaYUcHOtxJZRGwd6qu0gV7PJhl7ZNGgBvf2u8nsJ1Dn8wa +5RBw5ZO9qRd2S/hEvkwRAR/ecHf7YOtckDOaKyPgt19A/Cns8mj7kb8rCfia +ut79//c3x15NuUPh8Uz0fE5ix8Q91rr0iIDQX665btgT8T/7XBoIcFH4Nu2E +fZQlG7PzNQHijWphNthtiXZbRToJWB4uUzLF3pVypWP0HQHd09UCe7Bvp9UF +NvYTUH7l3no1bLGMcanCAQKKLtONCOxLWYyG86MEDIvY3FyHPZlje/LgLwLC +kus0F/H8Hs+LX6c8j99f/Gx8EJv+96zKTx4Svjvv/VWLbXdQmMtZgISytEyd +XOzEt9u6Xq8moSpga3Uk9mK3c2ipMAnBwnXKCFvDPthiw2b8vEOKpgy2V08K +ESFOwr3jVj4LeD+9//C8yY5OwoE4Hd9K7HVO/TnPGSSYKuzaHYu9t3/mlNoW +Eu6nd+1yxOZ82rpxtQoJmxIiu5bx/h45ZjgUpEbCuzTPM23Y5H+d/vNVkwSX +wzm7c7GTB5KPPtYlwbftarA6dpP7bY1te0i4MiA3OI/rZ3mogS8LSFBPr4t/ +iu0zPH3nrDEJOZp5AcbYxmNH5mTtSDA02T5ggOuzcHNsV5QjCeNKh+1/4/qd +3n23ut+JhNOVzpseYBezlk5muZHgX5h2egv2omJ+72o//D0/rW+N4bywPtBY +63mOhMyJd4F52OXB/6a+CCYh4fDlFGNsmyY908hIElYfE6/KzaZQpdvHhxMs +Ej6se52ngvOJh8WfZZlMwqOSwE9tOL8c2dsD7qSRYEKr8j+Fzc91Qck9hwTR ++IiEGxl4/xTQ83rKSPikeilnBeejcO+xiPpneDyv7pCTOE89V+IdpRtJ0Fj4 +MfcvztvHCjU7Ql6RoH86vMMP2zuIa0yjg4SVnhex55JwXmwscSnrI8FPyEba +I4FCgZZf9RNnSTjL7HJdwPnfEigkPbJAwitxVpI7NpmvObfvNwkChj3iHbhf +tI/GVK/wMuBhJ49Z/iUKKVyRI8+JMEDxoJXGlhicv8/duY+oMMCa9cZ/BPej +CYN/pCLVGECmq8buxxZsOLCjWJMBFSq5aqW4f2k/3XXymw4DjJXpTna4v2XU +CbcH7GOAc4SX4N3zFDpQ+zgn4SgDLC0mV28OoNDLss3qT1IZkN2j7/HZg0Kf +5FmmX64xoEghKlMYe+bGihtvNgM0/yt+BtwpJF86mmlawIC26MFN+W64Xguf +Lb2rYED8w3EzI9zv9bNPvxp/jsdbc/DBQUcK3bvSeJScYcCmW5M2/qa4Hs1a +JeLnGcARqFA6YYLPM2vfvh1bYsDAI8twG2OcN6mf99fxyEL5i6BEtX0UsshZ +VLUXloU1Hm8j3gGFvt5SX0lQloWlvnahDztxPr7KL5pzlYXNoyKJz+Xx+vEH +fenokIXgC53SexY5SIpo7ll6g++LCTSOzHNQh45M59Z3ssCbJKmdOcdB2qeb +nsT0yQKt50bo8DQHCXSJ5mkPy8Lv8QFW9E8OKiu+b1fILQfWt8x2nx/koMHd +8y1ndshBlPDf3DH4vHgiIPze2lw5SI9v6lHA50+1k8odFq7ysMxQN+5V5aDO +jSprgnS3QKlQp6P+LTaqq4rJU+FVgIBCdtgDKTYK51aybvuoAFoRa5x8gmqQ +UH+YiW+tItxOOsAbnFqNhsoZGUURW+HaqG9c754qlLFVku+h3TYgZb1aWxsq +UWqu5ytXUgk6rlY9vG5/Fx3JcOlY+10Jfju2tn8aq0Dze8sWiuqVIeOLd/ZV +99toYMgw5Hm8CjD0ioVuz5aj0j0a0u2u2yG4O9NFzbcM/RUXJHJyuyrQfq8I +CgvcRPF2J8x5Z1Qh8UPjuaXKUqTVX1IR364Gtr07NdMMSlDOtry/2s3V4WvW +MN+R6SIU9Swpx/yhOpwyRuPHzQuQpbRdWYu8BnzO2KOysSMXGfi+chK5qgHm +T00M11/PQUU0N/m2GQ2Y/rRw84VdFpJ/cSvLykkTWrYs1Iw7ZqDU7c+V3tZr +gmRVbrzTpXTkOcX3plmJCYs+RZubK1KRG3uSvJrChMa8tfaltGR0OsZm2SyN +CVpp8yWd65NRkE1tz9prTIgUDEzi5k5GV2aCklOzmDBjSzM4N5SEqnQXlrIL +mOA/ILsuuSoJLTSsvC+/y4RLrNCmYoMklPp2bVLjKybUizny7DyViHJvnPG6 +3MyEte0te+ZcEtGNwA4jk1YmhCbdE3xsnYjui6UutnYwoVXw9l4b7UTUf2ST +V9c7JizEvD30H+5EpDggafR1gAl1YyN6ztcTkHptGP3mEBPwBEh6JCagXXF9 +Cx7fmVCj+TE8ICoBWSgW1IyMMsF4Oa4t1yMBBZwi6b9+MeHBxaMpDM0EFKF3 +cYEzxYTAkeBYqy0JKG7d1+7AGSZ8yLk7FyWRgHKqbyTMzzPBZtWIy8QfFiqN +5jv5aJEJZutrrNQmWejuQQ/DiGUmXB3e8CRgiIVqZV/K6P9hAp+H5+1HvSxU +P6WwsLLCBP4WYWHBNhb6H766V9Q= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VVsbB3Cz0kRlPs7eB1HIdCJK1oPKLGUsVIRQCSFjRFLHLFNmilIu +ztmqt5RSVOZbFF0a3lDoksxTedf71/58P/uz99p7rfX8nsVwO3vIg4eLi4ub +m4vr/9eCC24CGu55+qvJ1YqHefT0G7tICwcyFH2pNf/qw5ZEKy/rY0nyKpoM ++uaowd6GCp4lEfzkdSRd3Wm0ga2LTu8JOjNHVCCzc+/mhmtMUdeSV8YE8RBd +UpNrj645jAT7viqOEc3oWpkKNV/ljUpaivx/EB+QRUV9wNDtUFRVfbXvtOoo +sqTFTAiVsNBJ9Ob6vwFTKIirxD/s1jXkO7RtoLZqAYVpdw4KPrqOhBiXFD/r +cMFlufejB9YVo2ThVqWS47wQdEhwDIZLkVuf7VPeNgHQSedhdfSWIf+mS25n +FYXg+YJoqGzybcT2W2sjYboORHNWWQ59v4NKwk+NqjsIQ5bx12BT9BeKKVo+ +OP2vCKw02Vm161Yjrq4v8DhsE+T8ZeHCCK9BCoGeIbZKovBHZU5C0oqNtu/6 +bFOkLgrZp0nahDUb7eByVBvVFgWToA3Hm2zYyDDR9FuUkSjE+ryr8DnMRkdv +qtjedRYF+4+qhsXubJTVPanGkyIKUuvC/R6EsRG/VtT36ilRENdq2JJZxkaD +M9n2a56IQaWp5dzqWTYqNWCe+/hCDCyuOAvfnGejY0kdKdUtYnCf972Y3hIb +/SPP32zTKwYX1T7/8ODioDc2Abvzp8Rg24O994qFOKiebUFuVxKHi/bn6zl0 +Dso+wz1qlS0Oqpb18Sb7OMj2Yb4Ao1Ac7JffGhQbc9BGfh25qZvicOdx6/CM +KQcl5/s6Z3PEofxawO9cKw661NrX8bldHCLX/jBoc+Agv233KT8+CdD0CNzd +6s1BZkM+ken+EsBf7CC/O5GD9kfKVe4NkQBF/uCW/ckcZCja/8/sBQkQ52f7 +W6dy0K59ljpOiRIw5Eu9cMngIKUytSm5WxJAFoafP57PQWs8pr3u9UvAroEW +ZYFKDmobjLTtNZYEg19ixl3NHPQ6QjuWZSUJuZ0vNYpaOahx80+2np0kFLZP +EN7tHPR47/ENJW6ScL5DVHDubw6qvGnY4h0pCR9PevMu9XBQkrsgLHEk4fLq +qNYbQxxkNZiqTKdLAUmZeISu4PGUB7ud5aXAW6LS/AcXhczP7byQpyQFB0tW +wpx4KGTC8+lviZ1ScOH+SK02P4UMSeXgTdZSQPAv5vQKUUjLuenZqhgp+CXg +rNciSiFa94Ld1JAU0HSvd3ooUShX2nJF418pyNm6XbhEmUKSJ4pv+01KwV3l ++oJ/VCgkNrl/aeyPFJQ6eRebqFFIWDijeFhcGqJcfxoL76AQr4Xqj4+m0tCp +0AdWeyg0+sIt+vVf0hD34P7POCsKEWm9Psm10qAuwEeWHKCQ7VErO9s6aTgz +EGX/yJpC9fO6Sl9eS4MuDL7/dohC6dtFuucGpEFcPUd5qwOFdmc/VVSUosE4 +7YKDxTEK+blrbRwjabDO9RG/yXEKlWvcXeYo0sCXu+OJgSv+vrasN/paNHDO +87NQO0GhQS7fcHtrGmzL9x6d9KRQog+tM+4yDVyGTxyn+VKoYWf6Q/MkGkw7 +hDbPY8/yrbopkkEDa7tj0HWWQseLpkIKSmigL1buGONPoR3dLbL3HtMgN+/s +ruZACn3cExo8OEmDl+zQPwthFNq45ufxOws0aP5k5v4gHK9Pr7u5H5cMmBza +0R8QQSFOgDW5vE4G6q6c5h2MpNDlW4otm7bJwGtzs53V0RRSFXkvY3RMBrS0 +ggJH4ij0LelbTKaHDPhH9udGXqZQgdDc9++nZKD+7pSYcDyF1vJJcBJDZGDe +YquI+hU8/7OH979Pk4H45cDNziwKlfV/9PVulAEn/VtJ7skUcj483lXXIgNS +sZ4qn7A3v/+js/6NDHR7NMvbp1AoppPgpT7KQGXyBTmDVPz/z12zl2dl4ILu +22O86Xj/3B56mrKNDjMD6ut1MynULT8r/1WNDg3Zcp452AklAqwd2nRQfTco +PYu9mKto+8GQDisbhkoqsyjUm+Q9LOtMB5bGSUIgh0KpQmGWQW50yPdwOOOI +bRzP4rzyosPr90i6Avt+9N2I00F0uKG3MWffdQpdOzcmfD+ZDl92BsucyqWQ +2cTvoFWZdGjj+RJQg81zZn3fkTw6DC6HKE1j+3mqla3cogOnz6EhOI9CVof9 +dU0b6KCtUZPplU8hgfcXC/Ne0eHBdAhfCfaTQ+m84+10iP5e29ODrWJBtaf/ +Q4cM9cpKKKCQEJpx7Z+iQ9PRSokV7BCDravuL9LBLTxsn2ohXi8jp6oUbgLO +O71Jc8J+btKwaLiBgFWR2awabHXz6WKaGAHbQ17u7MUutFQ0nqUR0FTxm/8P +dtihpGsVSgTU0gUF9xZRaNj2mW6sBgGD+/J2uWPbO0x9dtYh4KdPXWoMduNh +hcvaiIA25ebVRdiazodVhPcTMOOjUP4Qu/ho4tsRCwIsDmh5vsVe7/o05IUN +AXNGjmYj2BEnJukFRwhQn/916A/2D48tTcGuBCgf84gWKabQES/HU9ZeBIxW +i3bJYr/2SRBROkuAmIenuSa29pn6B7zBBHzWqxtB2DfP/nL5GEFAh05IlTn2 +xgB5vgexBFQUcOfaYUcHOtxJZRGwd6qu0gV7PJhl7ZNGgBvf2u8nsJ1Dn8wa +5RBw5ZO9qRd2S/hEvkwRAR/ecHf7YOtckDOaKyPgt19A/Cns8mj7kb8rCfia +ut79//c3x15NuUPh8Uz0fE5ix8Q91rr0iIDQX665btgT8T/7XBoIcFH4Nu2E +fZQlG7PzNQHijWphNthtiXZbRToJWB4uUzLF3pVypWP0HQHd09UCe7Bvp9UF +NvYTUH7l3no1bLGMcanCAQKKLtONCOxLWYyG86MEDIvY3FyHPZlje/LgLwLC +kus0F/H8Hs+LX6c8j99f/Gx8EJv+96zKTx4Svjvv/VWLbXdQmMtZgISytEyd +XOzEt9u6Xq8moSpga3Uk9mK3c2ipMAnBwnXKCFvDPthiw2b8vEOKpgy2V08K +ESFOwr3jVj4LeD+9//C8yY5OwoE4Hd9K7HVO/TnPGSSYKuzaHYu9t3/mlNoW +Eu6nd+1yxOZ82rpxtQoJmxIiu5bx/h45ZjgUpEbCuzTPM23Y5H+d/vNVkwSX +wzm7c7GTB5KPPtYlwbftarA6dpP7bY1te0i4MiA3OI/rZ3mogS8LSFBPr4t/ +iu0zPH3nrDEJOZp5AcbYxmNH5mTtSDA02T5ggOuzcHNsV5QjCeNKh+1/4/qd +3n23ut+JhNOVzpseYBezlk5muZHgX5h2egv2omJ+72o//D0/rW+N4bywPtBY +63mOhMyJd4F52OXB/6a+CCYh4fDlFGNsmyY908hIElYfE6/KzaZQpdvHhxMs +Ej6se52ngvOJh8WfZZlMwqOSwE9tOL8c2dsD7qSRYEKr8j+Fzc91Qck9hwTR ++IiEGxl4/xTQ83rKSPikeilnBeejcO+xiPpneDyv7pCTOE89V+IdpRtJ0Fj4 +MfcvztvHCjU7Ql6RoH86vMMP2zuIa0yjg4SVnhex55JwXmwscSnrI8FPyEba +I4FCgZZf9RNnSTjL7HJdwPnfEigkPbJAwitxVpI7NpmvObfvNwkChj3iHbhf +tI/GVK/wMuBhJ49Z/iUKKVyRI8+JMEDxoJXGlhicv8/duY+oMMCa9cZ/BPej +CYN/pCLVGECmq8buxxZsOLCjWJMBFSq5aqW4f2k/3XXymw4DjJXpTna4v2XU +CbcH7GOAc4SX4N3zFDpQ+zgn4SgDLC0mV28OoNDLss3qT1IZkN2j7/HZg0Kf +5FmmX64xoEghKlMYe+bGihtvNgM0/yt+BtwpJF86mmlawIC26MFN+W64Xguf +Lb2rYED8w3EzI9zv9bNPvxp/jsdbc/DBQUcK3bvSeJScYcCmW5M2/qa4Hs1a +JeLnGcARqFA6YYLPM2vfvh1bYsDAI8twG2OcN6mf99fxyEL5i6BEtX0UsshZ +VLUXloU1Hm8j3gGFvt5SX0lQloWlvnahDztxPr7KL5pzlYXNoyKJz+Xx+vEH +fenokIXgC53SexY5SIpo7ll6g++LCTSOzHNQh45M59Z3ssCbJKmdOcdB2qeb +nsT0yQKt50bo8DQHCXSJ5mkPy8Lv8QFW9E8OKiu+b1fILQfWt8x2nx/koMHd +8y1ndshBlPDf3DH4vHgiIPze2lw5SI9v6lHA50+1k8odFq7ysMxQN+5V5aDO +jSprgnS3QKlQp6P+LTaqq4rJU+FVgIBCdtgDKTYK51aybvuoAFoRa5x8gmqQ +UH+YiW+tItxOOsAbnFqNhsoZGUURW+HaqG9c754qlLFVku+h3TYgZb1aWxsq +UWqu5ytXUgk6rlY9vG5/Fx3JcOlY+10Jfju2tn8aq0Dze8sWiuqVIeOLd/ZV +99toYMgw5Hm8CjD0ioVuz5aj0j0a0u2u2yG4O9NFzbcM/RUXJHJyuyrQfq8I +CgvcRPF2J8x5Z1Qh8UPjuaXKUqTVX1IR364Gtr07NdMMSlDOtry/2s3V4WvW +MN+R6SIU9Swpx/yhOpwyRuPHzQuQpbRdWYu8BnzO2KOysSMXGfi+chK5qgHm +T00M11/PQUU0N/m2GQ2Y/rRw84VdFpJ/cSvLykkTWrYs1Iw7ZqDU7c+V3tZr +gmRVbrzTpXTkOcX3plmJCYs+RZubK1KRG3uSvJrChMa8tfaltGR0OsZm2SyN +CVpp8yWd65NRkE1tz9prTIgUDEzi5k5GV2aCklOzmDBjSzM4N5SEqnQXlrIL +mOA/ILsuuSoJLTSsvC+/y4RLrNCmYoMklPp2bVLjKybUizny7DyViHJvnPG6 +3MyEte0te+ZcEtGNwA4jk1YmhCbdE3xsnYjui6UutnYwoVXw9l4b7UTUf2ST +V9c7JizEvD30H+5EpDggafR1gAl1YyN6ztcTkHptGP3mEBPwBEh6JCagXXF9 +Cx7fmVCj+TE8ICoBWSgW1IyMMsF4Oa4t1yMBBZwi6b9+MeHBxaMpDM0EFKF3 +cYEzxYTAkeBYqy0JKG7d1+7AGSZ8yLk7FyWRgHKqbyTMzzPBZtWIy8QfFiqN +5jv5aJEJZutrrNQmWejuQQ/DiGUmXB3e8CRgiIVqZV/K6P9hAp+H5+1HvSxU +P6WwsLLCBP4WYWHBNhb6H766V9Q= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07666656548321167}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07666656548321167}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VVsbB3Cz0kRlPs7eB1HIdCJK1oPKLGUsVIRQCSFjRFLHLFNmilIu +ztmqt5RSVOZbFF0a3lDoksxTedf71/58P/uz99p7rfX8nsVwO3vIg4eLi4ub +m4vr/9eCC24CGu55+qvJ1YqHefT0G7tICwcyFH2pNf/qw5ZEKy/rY0nyKpoM ++uaowd6GCp4lEfzkdSRd3Wm0ga2LTu8JOjNHVCCzc+/mhmtMUdeSV8YE8RBd +UpNrj645jAT7viqOEc3oWpkKNV/ljUpaivx/EB+QRUV9wNDtUFRVfbXvtOoo +sqTFTAiVsNBJ9Ob6vwFTKIirxD/s1jXkO7RtoLZqAYVpdw4KPrqOhBiXFD/r +cMFlufejB9YVo2ThVqWS47wQdEhwDIZLkVuf7VPeNgHQSedhdfSWIf+mS25n +FYXg+YJoqGzybcT2W2sjYboORHNWWQ59v4NKwk+NqjsIQ5bx12BT9BeKKVo+ +OP2vCKw02Vm161Yjrq4v8DhsE+T8ZeHCCK9BCoGeIbZKovBHZU5C0oqNtu/6 +bFOkLgrZp0nahDUb7eByVBvVFgWToA3Hm2zYyDDR9FuUkSjE+ryr8DnMRkdv +qtjedRYF+4+qhsXubJTVPanGkyIKUuvC/R6EsRG/VtT36ilRENdq2JJZxkaD +M9n2a56IQaWp5dzqWTYqNWCe+/hCDCyuOAvfnGejY0kdKdUtYnCf972Y3hIb +/SPP32zTKwYX1T7/8ODioDc2Abvzp8Rg24O994qFOKiebUFuVxKHi/bn6zl0 +Dso+wz1qlS0Oqpb18Sb7OMj2Yb4Ao1Ac7JffGhQbc9BGfh25qZvicOdx6/CM +KQcl5/s6Z3PEofxawO9cKw661NrX8bldHCLX/jBoc+Agv233KT8+CdD0CNzd +6s1BZkM+ken+EsBf7CC/O5GD9kfKVe4NkQBF/uCW/ckcZCja/8/sBQkQ52f7 +W6dy0K59ljpOiRIw5Eu9cMngIKUytSm5WxJAFoafP57PQWs8pr3u9UvAroEW +ZYFKDmobjLTtNZYEg19ixl3NHPQ6QjuWZSUJuZ0vNYpaOahx80+2np0kFLZP +EN7tHPR47/ENJW6ScL5DVHDubw6qvGnY4h0pCR9PevMu9XBQkrsgLHEk4fLq +qNYbQxxkNZiqTKdLAUmZeISu4PGUB7ud5aXAW6LS/AcXhczP7byQpyQFB0tW +wpx4KGTC8+lviZ1ScOH+SK02P4UMSeXgTdZSQPAv5vQKUUjLuenZqhgp+CXg +rNciSiFa94Ld1JAU0HSvd3ooUShX2nJF418pyNm6XbhEmUKSJ4pv+01KwV3l ++oJ/VCgkNrl/aeyPFJQ6eRebqFFIWDijeFhcGqJcfxoL76AQr4Xqj4+m0tCp +0AdWeyg0+sIt+vVf0hD34P7POCsKEWm9Psm10qAuwEeWHKCQ7VErO9s6aTgz +EGX/yJpC9fO6Sl9eS4MuDL7/dohC6dtFuucGpEFcPUd5qwOFdmc/VVSUosE4 +7YKDxTEK+blrbRwjabDO9RG/yXEKlWvcXeYo0sCXu+OJgSv+vrasN/paNHDO +87NQO0GhQS7fcHtrGmzL9x6d9KRQog+tM+4yDVyGTxyn+VKoYWf6Q/MkGkw7 +hDbPY8/yrbopkkEDa7tj0HWWQseLpkIKSmigL1buGONPoR3dLbL3HtMgN+/s +ruZACn3cExo8OEmDl+zQPwthFNq45ufxOws0aP5k5v4gHK9Pr7u5H5cMmBza +0R8QQSFOgDW5vE4G6q6c5h2MpNDlW4otm7bJwGtzs53V0RRSFXkvY3RMBrS0 +ggJH4ij0LelbTKaHDPhH9udGXqZQgdDc9++nZKD+7pSYcDyF1vJJcBJDZGDe +YquI+hU8/7OH979Pk4H45cDNziwKlfV/9PVulAEn/VtJ7skUcj483lXXIgNS +sZ4qn7A3v/+js/6NDHR7NMvbp1AoppPgpT7KQGXyBTmDVPz/z12zl2dl4ILu +22O86Xj/3B56mrKNDjMD6ut1MynULT8r/1WNDg3Zcp452AklAqwd2nRQfTco +PYu9mKto+8GQDisbhkoqsyjUm+Q9LOtMB5bGSUIgh0KpQmGWQW50yPdwOOOI +bRzP4rzyosPr90i6Avt+9N2I00F0uKG3MWffdQpdOzcmfD+ZDl92BsucyqWQ +2cTvoFWZdGjj+RJQg81zZn3fkTw6DC6HKE1j+3mqla3cogOnz6EhOI9CVof9 +dU0b6KCtUZPplU8hgfcXC/Ne0eHBdAhfCfaTQ+m84+10iP5e29ODrWJBtaf/ +Q4cM9cpKKKCQEJpx7Z+iQ9PRSokV7BCDravuL9LBLTxsn2ohXi8jp6oUbgLO +O71Jc8J+btKwaLiBgFWR2awabHXz6WKaGAHbQ17u7MUutFQ0nqUR0FTxm/8P +dtihpGsVSgTU0gUF9xZRaNj2mW6sBgGD+/J2uWPbO0x9dtYh4KdPXWoMduNh +hcvaiIA25ebVRdiazodVhPcTMOOjUP4Qu/ho4tsRCwIsDmh5vsVe7/o05IUN +AXNGjmYj2BEnJukFRwhQn/916A/2D48tTcGuBCgf84gWKabQES/HU9ZeBIxW +i3bJYr/2SRBROkuAmIenuSa29pn6B7zBBHzWqxtB2DfP/nL5GEFAh05IlTn2 +xgB5vgexBFQUcOfaYUcHOtxJZRGwd6qu0gV7PJhl7ZNGgBvf2u8nsJ1Dn8wa +5RBw5ZO9qRd2S/hEvkwRAR/ecHf7YOtckDOaKyPgt19A/Cns8mj7kb8rCfia +ut79//c3x15NuUPh8Uz0fE5ix8Q91rr0iIDQX665btgT8T/7XBoIcFH4Nu2E +fZQlG7PzNQHijWphNthtiXZbRToJWB4uUzLF3pVypWP0HQHd09UCe7Bvp9UF +NvYTUH7l3no1bLGMcanCAQKKLtONCOxLWYyG86MEDIvY3FyHPZlje/LgLwLC +kus0F/H8Hs+LX6c8j99f/Gx8EJv+96zKTx4Svjvv/VWLbXdQmMtZgISytEyd +XOzEt9u6Xq8moSpga3Uk9mK3c2ipMAnBwnXKCFvDPthiw2b8vEOKpgy2V08K +ESFOwr3jVj4LeD+9//C8yY5OwoE4Hd9K7HVO/TnPGSSYKuzaHYu9t3/mlNoW +Eu6nd+1yxOZ82rpxtQoJmxIiu5bx/h45ZjgUpEbCuzTPM23Y5H+d/vNVkwSX +wzm7c7GTB5KPPtYlwbftarA6dpP7bY1te0i4MiA3OI/rZ3mogS8LSFBPr4t/ +iu0zPH3nrDEJOZp5AcbYxmNH5mTtSDA02T5ggOuzcHNsV5QjCeNKh+1/4/qd +3n23ut+JhNOVzpseYBezlk5muZHgX5h2egv2omJ+72o//D0/rW+N4bywPtBY +63mOhMyJd4F52OXB/6a+CCYh4fDlFGNsmyY908hIElYfE6/KzaZQpdvHhxMs +Ej6se52ngvOJh8WfZZlMwqOSwE9tOL8c2dsD7qSRYEKr8j+Fzc91Qck9hwTR ++IiEGxl4/xTQ83rKSPikeilnBeejcO+xiPpneDyv7pCTOE89V+IdpRtJ0Fj4 +MfcvztvHCjU7Ql6RoH86vMMP2zuIa0yjg4SVnhex55JwXmwscSnrI8FPyEba +I4FCgZZf9RNnSTjL7HJdwPnfEigkPbJAwitxVpI7NpmvObfvNwkChj3iHbhf +tI/GVK/wMuBhJ49Z/iUKKVyRI8+JMEDxoJXGlhicv8/duY+oMMCa9cZ/BPej +CYN/pCLVGECmq8buxxZsOLCjWJMBFSq5aqW4f2k/3XXymw4DjJXpTna4v2XU +CbcH7GOAc4SX4N3zFDpQ+zgn4SgDLC0mV28OoNDLss3qT1IZkN2j7/HZg0Kf +5FmmX64xoEghKlMYe+bGihtvNgM0/yt+BtwpJF86mmlawIC26MFN+W64Xguf +Lb2rYED8w3EzI9zv9bNPvxp/jsdbc/DBQUcK3bvSeJScYcCmW5M2/qa4Hs1a +JeLnGcARqFA6YYLPM2vfvh1bYsDAI8twG2OcN6mf99fxyEL5i6BEtX0UsshZ +VLUXloU1Hm8j3gGFvt5SX0lQloWlvnahDztxPr7KL5pzlYXNoyKJz+Xx+vEH +fenokIXgC53SexY5SIpo7ll6g++LCTSOzHNQh45M59Z3ssCbJKmdOcdB2qeb +nsT0yQKt50bo8DQHCXSJ5mkPy8Lv8QFW9E8OKiu+b1fILQfWt8x2nx/koMHd +8y1ndshBlPDf3DH4vHgiIPze2lw5SI9v6lHA50+1k8odFq7ysMxQN+5V5aDO +jSprgnS3QKlQp6P+LTaqq4rJU+FVgIBCdtgDKTYK51aybvuoAFoRa5x8gmqQ +UH+YiW+tItxOOsAbnFqNhsoZGUURW+HaqG9c754qlLFVku+h3TYgZb1aWxsq +UWqu5ytXUgk6rlY9vG5/Fx3JcOlY+10Jfju2tn8aq0Dze8sWiuqVIeOLd/ZV +99toYMgw5Hm8CjD0ioVuz5aj0j0a0u2u2yG4O9NFzbcM/RUXJHJyuyrQfq8I +CgvcRPF2J8x5Z1Qh8UPjuaXKUqTVX1IR364Gtr07NdMMSlDOtry/2s3V4WvW +MN+R6SIU9Swpx/yhOpwyRuPHzQuQpbRdWYu8BnzO2KOysSMXGfi+chK5qgHm +T00M11/PQUU0N/m2GQ2Y/rRw84VdFpJ/cSvLykkTWrYs1Iw7ZqDU7c+V3tZr +gmRVbrzTpXTkOcX3plmJCYs+RZubK1KRG3uSvJrChMa8tfaltGR0OsZm2SyN +CVpp8yWd65NRkE1tz9prTIgUDEzi5k5GV2aCklOzmDBjSzM4N5SEqnQXlrIL +mOA/ILsuuSoJLTSsvC+/y4RLrNCmYoMklPp2bVLjKybUizny7DyViHJvnPG6 +3MyEte0te+ZcEtGNwA4jk1YmhCbdE3xsnYjui6UutnYwoVXw9l4b7UTUf2ST +V9c7JizEvD30H+5EpDggafR1gAl1YyN6ztcTkHptGP3mEBPwBEh6JCagXXF9 +Cx7fmVCj+TE8ICoBWSgW1IyMMsF4Oa4t1yMBBZwi6b9+MeHBxaMpDM0EFKF3 +cYEzxYTAkeBYqy0JKG7d1+7AGSZ8yLk7FyWRgHKqbyTMzzPBZtWIy8QfFiqN +5jv5aJEJZutrrNQmWejuQQ/DiGUmXB3e8CRgiIVqZV/K6P9hAp+H5+1HvSxU +P6WwsLLCBP4WYWHBNhb6H766V9Q= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07666656548321167}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, + 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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, 20}, {0., 0.07666656548321167}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}, + 3.9921263630586586`*^9}, + CellLabel-> + "Out[121]=",ExpressionUUID->"56be564d-7855-cf40-994a-aa9176b0e36d"] +}, 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[122]:=",ExpressionUUID->"e94e1ddb-0658-3b45-ad00-7392c646ee51"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.8294091308162`*^-171\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 122, 922, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337269930374*^9, 3.992126363149664*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"7b8718c6-1580-d04a-8cda-09635dc07a50"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7131808757003826`*^-174\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 122, 923, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337269930374*^9, 3.9921263631667576`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"1d59fcdd-8fc2-dd4f-a705-fc4321f3acfb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0373150637351874`*^-177\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 122, 924, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337269930374*^9, 3.9921263631836624`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"a213095b-84e2-aa47-9aef-1e51a0e9a713"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 122, 925, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337269930374*^9, 3.9921263632006702`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"7b41f8ea-f093-4a4f-8d6f-f830304f4d53"], + +Cell[BoxData["13.354921881756548`"], "Output", + CellChangeTimes->{3.9913372766841774`*^9, 3.992126436494192*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"9feefa86-5bb3-2f49-8ed0-0996e2db6981"] +}, 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.991846210534153*^9, 3.991846213941681*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"23c7e6b2-69d5-1a4e-bd5f-947421a54e26"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.482992303230055`*^-207\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 123, 926, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372767181473`*^9, 3.992126436610508*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"b238244e-a1c6-6442-88d9-6a5c529a2ea6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0392033014164352`*^-211\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 123, 927, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372767181473`*^9, 3.9921264366574535`*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"0eb0ab96-b391-024f-9c1f-a2d64a3dccb5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6658102480497348`*^-216\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 123, 928, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372767181473`*^9, 3.9921264366773987`*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"d5ed2796-3209-9944-8565-d6332b08f6ce"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 123, 929, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372767181473`*^9, 3.992126436698456*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"c5f4f7ca-b08c-c848-9381-10591edc148b"], + +Cell[BoxData["1.4309378172313763`"], "Output", + CellChangeTimes->{3.991337284091696*^9, 3.992126448497612*^9}, + CellLabel-> + "Out[123]=",ExpressionUUID->"ddef88b5-d1a2-194e-8764-47da954e6339"] +}, 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.991846217504902*^9, 3.991846220659443*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"38ca1203-b2e6-3044-aa85-97017d76bb30"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.482992303230055`*^-207\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 124, 930, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337284131695*^9, 3.9921264485864964`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"c41958a9-1e38-cd42-9ce6-6a9dfc5c186f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0392033014164352`*^-211\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 124, 931, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337284131695*^9, 3.9921264486165905`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"098c9199-d97e-5346-9b1a-8033ecb73865"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6658102480497348`*^-216\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 124, 932, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337284131695*^9, 3.992126448641594*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"3850bc34-a5f2-6f4b-809c-ba3120e8a5d4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 124, 933, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337284131695*^9, 3.9921264486595955`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"5999f431-a62d-0c49-87ed-911d90a16e13"], + +Cell[BoxData["26.863149134681333`"], "Output", + CellChangeTimes->{3.9913372907074146`*^9, 3.992126459638359*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"a149ac3f-0655-1f43-82da-34362fb754e5"] +}, 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.9918462258948135`*^9, 3.9918462291469593`*^9}}, + CellLabel-> + "In[125]:=",ExpressionUUID->"087e4064-7024-cb41-8231-fe78ad70afda"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.482992303230055`*^-207\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 125, 934, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337290744484*^9, 3.9921264597763977`*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"c9329f86-045d-6a41-9332-2c0d5097aea0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0392033014164352`*^-211\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 125, 935, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337290744484*^9, 3.99212645980937*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"e5c10c2d-30ce-bc40-a1d8-cbb18e1963bf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6658102480497348`*^-216\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 125, 936, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337290744484*^9, 3.9921264598263626`*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"159a6a81-ad3b-014a-b67f-29ea097d2797"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 125, 937, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337290744484*^9, 3.9921264598443546`*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"30dfb4d0-1c71-e242-a02c-5a49be503483"], + +Cell[BoxData["11.430468631128104`"], "Output", + CellChangeTimes->{3.991337294569908*^9, 3.992126469324089*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"03eaf7af-0cb0-2c44-a02c-abb0e12d0243"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918462331551914`*^9, 3.991846236994051*^9}}, + CellLabel-> + "In[126]:=",ExpressionUUID->"cd9a77e7-d597-394b-a710-f971fc40d827"], + +Cell[BoxData["0.08166017040335423`"], "Output", + CellChangeTimes->{3.9913372946009064`*^9, 3.9921264693912354`*^9}, + CellLabel-> + "Out[126]=",ExpressionUUID->"5f31b3c7-23d0-6040-9d81-08d2e6fc8c43"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991846241790388*^9, 3.9918462437859745`*^9}, + 3.9919238532202225`*^9}, + CellLabel-> + "In[127]:=",ExpressionUUID->"13a90bf7-f7dc-7e48-845e-80048a92ff15"], + +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->"ce764b10-5670-7a4e-86ae-3f77893f67b3"], + +Cell[BoxData["21.867116672252532`"], "Output", + CellChangeTimes->{3.991337294629921*^9, 3.9921264694207687`*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"c8856762-b05e-664e-81da-0a3f30ee6b4f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[129]:=",ExpressionUUID->"717d3ead-30a8-ec47-9afe-f9884217d594"], + +Cell[BoxData["1.9995043373561299`"], "Output", + CellChangeTimes->{3.9913372946629753`*^9, 3.992126469435663*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"63141c66-17fc-3a4c-ae91-9eebad52febc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[130]:=",ExpressionUUID->"c43d0cec-6a64-9643-a5bb-27ab984c3bb2"], + +Cell[BoxData["43.723394631641476`"], "Output", + CellChangeTimes->{3.9913372947367725`*^9, 3.9921264694498367`*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"3ef2b44b-f892-ff48-9315-d92af2cc8d1c"] +}, 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->"e15da858-b31b-c344-a560-00b30705c2c2"], + +Cell[BoxData["0.0070350308506555445`"], "Output", + CellChangeTimes->{3.9913372947513313`*^9, 3.9921264694701633`*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"c238d73c-27f6-a449-8c2e-e6687feed257"] +}, 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->"f53a321d-2180-024b-b925-7b08c74c1c33"], + +Cell[BoxData["10.566032386745235`"], "Output", + CellChangeTimes->{3.9913372948636913`*^9, 3.992126469727127*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"e9f32580-1adf-4742-98a8-5cd7d92a474b"] +}, 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->"6fc2e120-104b-274c-a69b-ff643539124b"], + +Cell[BoxData["0.014238381705134136`"], "Output", + CellChangeTimes->{3.991337294877693*^9, 3.9921264697594566`*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"03cc3e31-4429-9247-a562-34efd5f42ae0"] +}, 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->"1ebbe4bd-69b2-ba4a-b880-612b325b749b"], + +Cell[BoxData["7.427020539819797`"], "Output", + CellChangeTimes->{3.991337294976324*^9, 3.9921264699680214`*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"33246853-54d9-6d41-8d0e-719091b2ed3c"] +}, 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->"1efe60b3-9182-2c4c-bd13-9e4d244d7e70"], + +Cell[BoxData["0.34166431230209243`"], "Output", + CellChangeTimes->{3.9913372950022793`*^9, 3.99212647000947*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"952ec08a-fdcd-9c47-aa54-49132d327b49"] +}, 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->"66f987a0-c978-3745-b4d7-87ccf5fea6cf"], + +Cell[BoxData["0.6583356876979076`"], "Output", + CellChangeTimes->{3.991337295013279*^9, 3.992126470032646*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"b37ed3f6-488e-db45-b507-d91ea6ebbab1"] +}, 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->"696f9a62-0454-0540-abef-a5c123c32f5f"], + +Cell[BoxData["0.22492981000123072`"], "Output", + CellChangeTimes->{3.991337295041279*^9, 3.992126470057644*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"23650272-004e-8d45-a904-fa55e03a9dd4"] +}, 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.991846260820032*^9}, + CellLabel-> + "In[138]:=",ExpressionUUID->"efacefcd-90be-574d-92a2-eec47ae06964"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.175099949954135`*^-226\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 138, 938, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950662746`*^9, 3.9921264701246433`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"384614e4-1585-de4e-bd42-13cb5dd957df"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.2915526797635894`*^-232\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 138, 939, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950662746`*^9, 3.99212647014674*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"6674553a-661d-6b44-b8d2-e65e638b7b41"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2577456221591466`*^-238\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 138, 940, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950662746`*^9, 3.992126470164751*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"1d4744bf-5173-9d48-bb15-852f40d3174d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 138, 941, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950662746`*^9, 3.992126470182741*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"935d7895-4d61-c248-a582-8648f8679c12"], + +Cell[BoxData["10.566032386745244`"], "Output", + CellChangeTimes->{3.991337298790371*^9, 3.992126477619892*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"8848f211-1d94-7d4f-8355-477dc70c7fd3"] +}, 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.991846268674473*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"113e0d2a-28bc-cb46-97f5-cf1d438fc6f4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.175099949954135`*^-226\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 139, 942, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988243732`*^9, 3.9921264777931614`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"ecc71c69-b26b-254d-9174-718e4de8e961"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.2915526797635894`*^-232\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 139, 943, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988243732`*^9, 3.992126477830059*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"435ae24f-8020-b649-bd6a-b66d42eeff0d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2577456221591466`*^-238\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 139, 944, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988243732`*^9, 3.9921264778460636`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"b1a08edc-bb1e-8c47-a82a-d7d186e410b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 139, 945, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988243732`*^9, 3.9921264778640537`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"3f2926e1-c22a-7b4b-ab18-5f34fd75c9d9"], + +Cell[BoxData["7.4270205398197895`"], "Output", + CellChangeTimes->{3.991337302457178*^9, 3.992126485191698*^9}, + CellLabel-> + "Out[139]=",ExpressionUUID->"26edd716-985d-7649-b267-e666e7d8808f"] +}, 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.9918462728234997`*^9}, + CellLabel-> + "In[140]:=",ExpressionUUID->"1fd4421d-3fcd-2d4f-bd05-28d15302273b"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk0FvsfB3DZKksl2ZNdUbLv5fspT9klVGS5POYZS6JsSaJuUVG2ZPkl +ZCdkK1G5KpVbQqGuUGTJMh4ekrX6ff0xZ87rfGfe5/09n5k5I0P3t2Wws7Gx +TeJj9Xy6dff22vZWo88Xm4eBxUJGzDxtOq0UiWW6dq66P0snWZ72BB2Ul81e +tQ3xjptP8yUKFhM0W3VlaOQLLloLUo1Wb0PY116JNkaWvEcuIec1Vl3Xfjpz +RaMLmS/+DDDCHv/8Jvzs4/9QrUxmwl5s8WE5p5/GvaiRKzB2D7bFVLh+YMtX +NNEQ7GGI3bAyzhtaMoC2+xSIGmB/vChy7qHfIGrZznVPD5vJTRv/oTGMkiSS +xHWxua+fctScH0G5vlae2tjbBO40n348iq4e0E3UxLaW+FnANKbQsllquCo2 +mS0rrLKOiQp7+I1UsCMVDkWdaJlCjs+qe5Wx/xPpVA8qYaHwsLhKBWziuI/3 +zeszyKjtxXdZ7OkMtrtVfrOoNExpWQp7nazKJpbGHMr5FV0nhp1MvDDZJPQT +1ZyOJISxpQsdI1Xnf6LLwcXUZmy9XdHMk48X0NeYm8m82F46X1vGjVeQMbzZ +vzzNQj9Cgzl5FH8hCz/HTz+xLzzm3aO07jfy2ydpNoOdBnr3PFv+IIscWtMo +NpHfTAsoWQPxt6XEOrFLXt3svyjBDu+3u6e2Yk9/dw1PvM4OfKY9M83Y4cpz +1RV+HOAVfm7fU+zk+zJyUxpckLZ0bm8e9ud2quF3Lhe8sE/Kv4MtPVN7fIMQ +N2zlHRlPwS7Vsk5SmeeGLjVT/mvYTXVha3wfr4NTmTyVJ7DnXnR8HTXmA3KT +SrAy9mZLvk3nGvigRUBqVhpbrZMG/Pr84PmaZiqC7TP0IFt99wbY1qQayoF9 +ir1FbS/fJhA2zGN2T7HQsGw5K+qnADioiOpGYv8g36xv09wMPq2dOwKx2e+N +yIie3gxJW7pZJLa0ppRtycRmiFNtWG+Nfdw4oaq1XxBus8kdFsdu8wgIFHkr +BB/ti9E9Jgt9KYyLdVsnDGdTkgoysKmJktziA8KgINw7dAObJ2iww7BRGCzS +Ur77Y9Mu22u5PRABrx2fuTSw6/N05oqyxOD3vd2F5ZMslDe8FGIQJAk3nNNj +rlEsZHrkypfAMknoObaoegabahI8WDYiCYMSClUEtlbeLiFpx20QT/9uibCb +6K7VXEZSIOtr0TszwUIzU/1nRi9Jw+gIEHbYgidpNdVWshBoKLh9aYyFRvJ4 +vGx8ZMEq+rn3IPaj3naJyWhZYDhGXmvBdrZ0uaTYKAthtcpumdh5O0Ns0zXk +4OXkVR/A1hovnI4QkQetI4Fz50dZyN6TV8V8QAEq5zTnvoywEAo5onHslwK4 +xGeSTdjKUVm6hJgicKQ0PCzGZsvV3B9xWBHYJJVmA7HLvjgdq3qmCD1y073c +2NxHSy+K52yHfz4nhCgO4340q4/jdCWobxPqshxkoVy71J75CCUYN3WU3Y0d +Rx/o57ytBPNlxdYbsYkLwRPbOpSgdzGc9v4bCwk8ucNmZ6wMcyGQb4fto8lU +fiy3ExgLPXttB1hIQjY+MnZoF9DW8A3ofGWhJzE/lBbZVcA4ykNGANt51rGT +lFGB+p0nDCe+sFBmk7zSflcVOPfu9komtqxn/YeFTyoQ/u9iNSe2cumwAvl2 +N2janV5q7mUhSYltpLSjGgTQT3Bpf2ahXflBfMtIA2pMGsQyOlmITlyaU7HW +gLYia4FT2GlySV/cnDUg5+WVUWNsjpz7Fa9CNeC2LpfORAd+3zLH7ZMqNQBe +5VnpYV9Lc7ujJKcJNyOMAlve4/nGWu524NaCaN0HD3tbWehugLzNgxZt6Fia +2JbZzELtIUj3cr4+NH4YNfCtYyEZ1y5rF9+94EZrVXcvYiHGn4flkmcBVhLZ +mOUpLCQy8WitCH0/NCU/rym4yEJBmnt6k5RpsLP/dbCnL+4/udIsOH4AMg/H +W+8+iue5P3BtVpsJ0O+pL+Ttwc/PD59npclmcFjUm5khx0IL+0TfNUVaQNhE +tqztWhbqY+NgDbhbwft0qe4r49PIb6t/wkW5Q1A2oOky3jqNyr2bG29F2YCl +5FN/04ppFDYrNr/T+zA0Rf2yVb85jebMDx59/ZcttLkfzjcNnEb6Ton7hg/b +QX1dV2et3TT6IHbHp0nTHrqW2GXUdaaReMGlJ0U7jgBP3Ef5PcLT6FG/sqU1 +/1HwNpyIVWRNoW2d054hk0fBcBEe3qidQpq3Ektz+48BZNl0Mc9OoTucs7uT +XjhAbJTYcOC+KfRwn+rnqDpH0JsjviRzTaE03RiBlZLj8OWSUIpbCxO19eRH +a153gimtt06305jogVWG/KkLzsAqnVB1ozMR66Qdmx/hAs5tbV3V6kw0d1DJ +i2nsCupJp6NnOZioaLJ7IVDnL6gKEhbM75xEDnfzPVz43OAOk9/8Q8kkqq6y ++IvjihvY0B03ylyYRPoSHxavLbqByq2t7p+PTyK5fs/P773dIbRO6uQHvUk0 +xHviUMagO1jYJv/dJjyJ2uOsPUyO0EGKNyqqb5FCyaFZvMHtdPgkcXU+s49C +Txr+LHqYecBcT2Kc5EsKbXSGK5r1HvBjRdJftZJC0ltet2194gEVhS7mXyso +pNZiJcrd4AHOYUlO8di2e5yK/3vmAd2i36Wm7+P8rSFvz//rAZ4W19Vqyikk +3ndvY/N/HvB4HAUdLKWQvKtImvO8B4hm5qfdLKSQvhuzKEqLgDjLXWPtmRQq +SJ8OtNYhYFJ/uTEJe0vHjJGIHgES3h7N9tjMA/OdRYYEPFdZS3bfofD3i21N +y34C+Fzf9w5lUGjDvIDj5sME/EgVrOe8TaGhG9rrs04SoE4Ig1cqhQ6/1u30 +9CfAPvvuBjXsBjaDLLXTBHDIsfEvpFAoPdBI+3kQAbc69qZfxbZ2NHEfPkfA +Fd+JqXu3KFQn71i3M4YA/cbo1OWbFIp7HO79qICA+4RiT0MChU5qpOqHFhHw +MTgi9wa2ZXHler0SAgz7f6c7Y/OkjhTXlhHQcSZCYDmeQlEBNuMPawi4RmYr +G2CHK8mfePAc5xsUcT+7QSGf1Le+VV8I2GR+wJ8VQyGzDSN7AvoJOJNk++cl +9o4oNn6NbwSw7a1++j/skQDtssphAr7WB76kYbtbZ01WUDhfasua29co5MAV +6Hd/iYBgmSElm6sUMgkUP1UqzMB9Oc37oij0PCvaPEmUAc+MwkJqsPe0zMiH +ijNg8ldudyy2msLbbuNtDHjTL0ozxBb7dM64R4EBdMfy4ozLFJow6BPm0WZA ++8eqR96XKBTPnv3U044BOzoFp3ZdxPtX5UuzOsKAb/LxP3iwLzuFBmgeY4Dv +xxG1sQsUCq2x2f7nOAMCxlStC7DdyTWJKXQGjB40lZDD1nxDJ16eZkAC4wrb +9kgKfUpU4JVLYECF6dXfx85TqBzxe40mMqC+TKDCCPvy5I+mspsMeOcbnqiA +rWHWFKGXygD5sYXB2XA8PzaPGatMBnBJ5LxOwj7on90dWsoA4qltTPc5CklK +XtUxKmdA2MxBgxfYP9743+SoYMBQxnbxMuwcRWQVV82AtyMV3hexf/X1NebW +M+CD4JzJLuwaS4mi1mYGhNu/WxMbRqHYJXau5DcMUDzRUXEGm1407u7YwoDS +wrZ4AnsTZ73EUBsDYlpK+4ywfR87xC9+xPsXWF83d5ZCcsopIfLDuB/tHz9f +7KVP5zvGRhjAf89T0hm7PYqhdn+UAaYRG1YssCMGtMb1KQaAhaPZLuzPaR0u +h2YZQNlOy02FUihprcCBsDUkjIlHd5/HfjLT5xTEQcJ1tfHfftjf+0oC/LhI +0LBVcHPD3lNDy6avJ0Hmk+xHY+wRt9BlcwESrA3NEvixN1ke2HxAkIT4LUHJ +bNiGupuVkBAJv5bPds6eoVACf+lRTTESYt6JruvBNqz/WikhQwJtpHxvKTaZ +X9osJEdCaWmD9N3V6xPOft2oQILCQilKwR4hBfk5lUiQrlBUv7i6LmjiRamR ++P8r/Zsjdv1vwcgRDRKsSgrzbLCHx/pv9WuR8E9Gao4JtkFj2ItOPRKcpCRt +dbCHfMu3PQUS9PVeRwpjb3A4p127n4SvY2PSG7H1jU0tK2m4n+/0r7XYcWLf +zuabktA8VnxiKYRCjzjvJ2SZkzBId1mZxR6cOleYbknCg6K55klsvVdCXTds +SNga0SX0DZte+W3iii0JxmGSKb3YNzLus/9tT4LdVgvbT9jfAszUQhxImNrs +EPEOm99V2OTUcRIanusym1fzzAZdfJxJ+Lf1V3rT6v1S52Nd3UjoTN+b/2S1 +D495jgOdhNacWs661bw54TpbgoT/3RbNfrCaNzDYZkmS8DTX7UzVal5LxchB +LxJO/hcfc3+1X+35X+CD52Vf0F26mp9jvsXQl4QjGnlEyWr+DZGd2n54P1eu +7SxazQ8d2qd6igRtr6O7C7D5iEoHpQDc5zvPyTxs3UMR/nJBJAQIF37PWc03 +sIiWDCFhI/vOzLvY1xVE74iEklD2MCUhG/vhpuFqgTAS2IzGG7KwB5Yr3/CG +k1CVpaC0ar7vEQNcESQoDZi2ZWLrfLBY+BNJwiMu+8pV/x+XFkpO + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0FvsfB3DZKksl2ZNdUbLv5fspT9klVGS5POYZS6JsSaJuUVG2ZPkl +ZCdkK1G5KpVbQqGuUGTJMh4ekrX6ff0xZ87rfGfe5/09n5k5I0P3t2Wws7Gx +TeJj9Xy6dff22vZWo88Xm4eBxUJGzDxtOq0UiWW6dq66P0snWZ72BB2Ul81e +tQ3xjptP8yUKFhM0W3VlaOQLLloLUo1Wb0PY116JNkaWvEcuIec1Vl3Xfjpz +RaMLmS/+DDDCHv/8Jvzs4/9QrUxmwl5s8WE5p5/GvaiRKzB2D7bFVLh+YMtX +NNEQ7GGI3bAyzhtaMoC2+xSIGmB/vChy7qHfIGrZznVPD5vJTRv/oTGMkiSS +xHWxua+fctScH0G5vlae2tjbBO40n348iq4e0E3UxLaW+FnANKbQsllquCo2 +mS0rrLKOiQp7+I1UsCMVDkWdaJlCjs+qe5Wx/xPpVA8qYaHwsLhKBWziuI/3 +zeszyKjtxXdZ7OkMtrtVfrOoNExpWQp7nazKJpbGHMr5FV0nhp1MvDDZJPQT +1ZyOJISxpQsdI1Xnf6LLwcXUZmy9XdHMk48X0NeYm8m82F46X1vGjVeQMbzZ +vzzNQj9Cgzl5FH8hCz/HTz+xLzzm3aO07jfy2ydpNoOdBnr3PFv+IIscWtMo +NpHfTAsoWQPxt6XEOrFLXt3svyjBDu+3u6e2Yk9/dw1PvM4OfKY9M83Y4cpz +1RV+HOAVfm7fU+zk+zJyUxpckLZ0bm8e9ud2quF3Lhe8sE/Kv4MtPVN7fIMQ +N2zlHRlPwS7Vsk5SmeeGLjVT/mvYTXVha3wfr4NTmTyVJ7DnXnR8HTXmA3KT +SrAy9mZLvk3nGvigRUBqVhpbrZMG/Pr84PmaZiqC7TP0IFt99wbY1qQayoF9 +ir1FbS/fJhA2zGN2T7HQsGw5K+qnADioiOpGYv8g36xv09wMPq2dOwKx2e+N +yIie3gxJW7pZJLa0ppRtycRmiFNtWG+Nfdw4oaq1XxBus8kdFsdu8wgIFHkr +BB/ti9E9Jgt9KYyLdVsnDGdTkgoysKmJktziA8KgINw7dAObJ2iww7BRGCzS +Ur77Y9Mu22u5PRABrx2fuTSw6/N05oqyxOD3vd2F5ZMslDe8FGIQJAk3nNNj +rlEsZHrkypfAMknoObaoegabahI8WDYiCYMSClUEtlbeLiFpx20QT/9uibCb +6K7VXEZSIOtr0TszwUIzU/1nRi9Jw+gIEHbYgidpNdVWshBoKLh9aYyFRvJ4 +vGx8ZMEq+rn3IPaj3naJyWhZYDhGXmvBdrZ0uaTYKAthtcpumdh5O0Ns0zXk +4OXkVR/A1hovnI4QkQetI4Fz50dZyN6TV8V8QAEq5zTnvoywEAo5onHslwK4 +xGeSTdjKUVm6hJgicKQ0PCzGZsvV3B9xWBHYJJVmA7HLvjgdq3qmCD1y073c +2NxHSy+K52yHfz4nhCgO4340q4/jdCWobxPqshxkoVy71J75CCUYN3WU3Y0d +Rx/o57ytBPNlxdYbsYkLwRPbOpSgdzGc9v4bCwk8ucNmZ6wMcyGQb4fto8lU +fiy3ExgLPXttB1hIQjY+MnZoF9DW8A3ofGWhJzE/lBbZVcA4ykNGANt51rGT +lFGB+p0nDCe+sFBmk7zSflcVOPfu9komtqxn/YeFTyoQ/u9iNSe2cumwAvl2 +N2janV5q7mUhSYltpLSjGgTQT3Bpf2ahXflBfMtIA2pMGsQyOlmITlyaU7HW +gLYia4FT2GlySV/cnDUg5+WVUWNsjpz7Fa9CNeC2LpfORAd+3zLH7ZMqNQBe +5VnpYV9Lc7ujJKcJNyOMAlve4/nGWu524NaCaN0HD3tbWehugLzNgxZt6Fia +2JbZzELtIUj3cr4+NH4YNfCtYyEZ1y5rF9+94EZrVXcvYiHGn4flkmcBVhLZ +mOUpLCQy8WitCH0/NCU/rym4yEJBmnt6k5RpsLP/dbCnL+4/udIsOH4AMg/H +W+8+iue5P3BtVpsJ0O+pL+Ttwc/PD59npclmcFjUm5khx0IL+0TfNUVaQNhE +tqztWhbqY+NgDbhbwft0qe4r49PIb6t/wkW5Q1A2oOky3jqNyr2bG29F2YCl +5FN/04ppFDYrNr/T+zA0Rf2yVb85jebMDx59/ZcttLkfzjcNnEb6Ton7hg/b +QX1dV2et3TT6IHbHp0nTHrqW2GXUdaaReMGlJ0U7jgBP3Ef5PcLT6FG/sqU1 +/1HwNpyIVWRNoW2d054hk0fBcBEe3qidQpq3Ektz+48BZNl0Mc9OoTucs7uT +XjhAbJTYcOC+KfRwn+rnqDpH0JsjviRzTaE03RiBlZLj8OWSUIpbCxO19eRH +a153gimtt06305jogVWG/KkLzsAqnVB1ozMR66Qdmx/hAs5tbV3V6kw0d1DJ +i2nsCupJp6NnOZioaLJ7IVDnL6gKEhbM75xEDnfzPVz43OAOk9/8Q8kkqq6y ++IvjihvY0B03ylyYRPoSHxavLbqByq2t7p+PTyK5fs/P773dIbRO6uQHvUk0 +xHviUMagO1jYJv/dJjyJ2uOsPUyO0EGKNyqqb5FCyaFZvMHtdPgkcXU+s49C +Txr+LHqYecBcT2Kc5EsKbXSGK5r1HvBjRdJftZJC0ltet2194gEVhS7mXyso +pNZiJcrd4AHOYUlO8di2e5yK/3vmAd2i36Wm7+P8rSFvz//rAZ4W19Vqyikk +3ndvY/N/HvB4HAUdLKWQvKtImvO8B4hm5qfdLKSQvhuzKEqLgDjLXWPtmRQq +SJ8OtNYhYFJ/uTEJe0vHjJGIHgES3h7N9tjMA/OdRYYEPFdZS3bfofD3i21N +y34C+Fzf9w5lUGjDvIDj5sME/EgVrOe8TaGhG9rrs04SoE4Ig1cqhQ6/1u30 +9CfAPvvuBjXsBjaDLLXTBHDIsfEvpFAoPdBI+3kQAbc69qZfxbZ2NHEfPkfA +Fd+JqXu3KFQn71i3M4YA/cbo1OWbFIp7HO79qICA+4RiT0MChU5qpOqHFhHw +MTgi9wa2ZXHler0SAgz7f6c7Y/OkjhTXlhHQcSZCYDmeQlEBNuMPawi4RmYr +G2CHK8mfePAc5xsUcT+7QSGf1Le+VV8I2GR+wJ8VQyGzDSN7AvoJOJNk++cl +9o4oNn6NbwSw7a1++j/skQDtssphAr7WB76kYbtbZ01WUDhfasua29co5MAV +6Hd/iYBgmSElm6sUMgkUP1UqzMB9Oc37oij0PCvaPEmUAc+MwkJqsPe0zMiH +ijNg8ldudyy2msLbbuNtDHjTL0ozxBb7dM64R4EBdMfy4ozLFJow6BPm0WZA ++8eqR96XKBTPnv3U044BOzoFp3ZdxPtX5UuzOsKAb/LxP3iwLzuFBmgeY4Dv +xxG1sQsUCq2x2f7nOAMCxlStC7DdyTWJKXQGjB40lZDD1nxDJ16eZkAC4wrb +9kgKfUpU4JVLYECF6dXfx85TqBzxe40mMqC+TKDCCPvy5I+mspsMeOcbnqiA +rWHWFKGXygD5sYXB2XA8PzaPGatMBnBJ5LxOwj7on90dWsoA4qltTPc5CklK +XtUxKmdA2MxBgxfYP9743+SoYMBQxnbxMuwcRWQVV82AtyMV3hexf/X1NebW +M+CD4JzJLuwaS4mi1mYGhNu/WxMbRqHYJXau5DcMUDzRUXEGm1407u7YwoDS +wrZ4AnsTZ73EUBsDYlpK+4ywfR87xC9+xPsXWF83d5ZCcsopIfLDuB/tHz9f +7KVP5zvGRhjAf89T0hm7PYqhdn+UAaYRG1YssCMGtMb1KQaAhaPZLuzPaR0u +h2YZQNlOy02FUihprcCBsDUkjIlHd5/HfjLT5xTEQcJ1tfHfftjf+0oC/LhI +0LBVcHPD3lNDy6avJ0Hmk+xHY+wRt9BlcwESrA3NEvixN1ke2HxAkIT4LUHJ +bNiGupuVkBAJv5bPds6eoVACf+lRTTESYt6JruvBNqz/WikhQwJtpHxvKTaZ +X9osJEdCaWmD9N3V6xPOft2oQILCQilKwR4hBfk5lUiQrlBUv7i6LmjiRamR ++P8r/Zsjdv1vwcgRDRKsSgrzbLCHx/pv9WuR8E9Gao4JtkFj2ItOPRKcpCRt +dbCHfMu3PQUS9PVeRwpjb3A4p127n4SvY2PSG7H1jU0tK2m4n+/0r7XYcWLf +zuabktA8VnxiKYRCjzjvJ2SZkzBId1mZxR6cOleYbknCg6K55klsvVdCXTds +SNga0SX0DZte+W3iii0JxmGSKb3YNzLus/9tT4LdVgvbT9jfAszUQhxImNrs +EPEOm99V2OTUcRIanusym1fzzAZdfJxJ+Lf1V3rT6v1S52Nd3UjoTN+b/2S1 +D495jgOdhNacWs661bw54TpbgoT/3RbNfrCaNzDYZkmS8DTX7UzVal5LxchB +LxJO/hcfc3+1X+35X+CD52Vf0F26mp9jvsXQl4QjGnlEyWr+DZGd2n54P1eu +7SxazQ8d2qd6igRtr6O7C7D5iEoHpQDc5zvPyTxs3UMR/nJBJAQIF37PWc03 +sIiWDCFhI/vOzLvY1xVE74iEklD2MCUhG/vhpuFqgTAS2IzGG7KwB5Yr3/CG +k1CVpaC0ar7vEQNcESQoDZi2ZWLrfLBY+BNJwiMu+8pV/x+XFkpO + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.8894799674455305, + 1.1213997817904926`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.8894799674455325}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.8894799674455305, + 1.1213997817904926`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.8894799674455325}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0FvsfB3DZKksl2ZNdUbLv5fspT9klVGS5POYZS6JsSaJuUVG2ZPkl +ZCdkK1G5KpVbQqGuUGTJMh4ekrX6ff0xZ87rfGfe5/09n5k5I0P3t2Wws7Gx +TeJj9Xy6dff22vZWo88Xm4eBxUJGzDxtOq0UiWW6dq66P0snWZ72BB2Ul81e +tQ3xjptP8yUKFhM0W3VlaOQLLloLUo1Wb0PY116JNkaWvEcuIec1Vl3Xfjpz +RaMLmS/+DDDCHv/8Jvzs4/9QrUxmwl5s8WE5p5/GvaiRKzB2D7bFVLh+YMtX +NNEQ7GGI3bAyzhtaMoC2+xSIGmB/vChy7qHfIGrZznVPD5vJTRv/oTGMkiSS +xHWxua+fctScH0G5vlae2tjbBO40n348iq4e0E3UxLaW+FnANKbQsllquCo2 +mS0rrLKOiQp7+I1UsCMVDkWdaJlCjs+qe5Wx/xPpVA8qYaHwsLhKBWziuI/3 +zeszyKjtxXdZ7OkMtrtVfrOoNExpWQp7nazKJpbGHMr5FV0nhp1MvDDZJPQT +1ZyOJISxpQsdI1Xnf6LLwcXUZmy9XdHMk48X0NeYm8m82F46X1vGjVeQMbzZ +vzzNQj9Cgzl5FH8hCz/HTz+xLzzm3aO07jfy2ydpNoOdBnr3PFv+IIscWtMo +NpHfTAsoWQPxt6XEOrFLXt3svyjBDu+3u6e2Yk9/dw1PvM4OfKY9M83Y4cpz +1RV+HOAVfm7fU+zk+zJyUxpckLZ0bm8e9ud2quF3Lhe8sE/Kv4MtPVN7fIMQ +N2zlHRlPwS7Vsk5SmeeGLjVT/mvYTXVha3wfr4NTmTyVJ7DnXnR8HTXmA3KT +SrAy9mZLvk3nGvigRUBqVhpbrZMG/Pr84PmaZiqC7TP0IFt99wbY1qQayoF9 +ir1FbS/fJhA2zGN2T7HQsGw5K+qnADioiOpGYv8g36xv09wMPq2dOwKx2e+N +yIie3gxJW7pZJLa0ppRtycRmiFNtWG+Nfdw4oaq1XxBus8kdFsdu8wgIFHkr +BB/ti9E9Jgt9KYyLdVsnDGdTkgoysKmJktziA8KgINw7dAObJ2iww7BRGCzS +Ur77Y9Mu22u5PRABrx2fuTSw6/N05oqyxOD3vd2F5ZMslDe8FGIQJAk3nNNj +rlEsZHrkypfAMknoObaoegabahI8WDYiCYMSClUEtlbeLiFpx20QT/9uibCb +6K7VXEZSIOtr0TszwUIzU/1nRi9Jw+gIEHbYgidpNdVWshBoKLh9aYyFRvJ4 +vGx8ZMEq+rn3IPaj3naJyWhZYDhGXmvBdrZ0uaTYKAthtcpumdh5O0Ns0zXk +4OXkVR/A1hovnI4QkQetI4Fz50dZyN6TV8V8QAEq5zTnvoywEAo5onHslwK4 +xGeSTdjKUVm6hJgicKQ0PCzGZsvV3B9xWBHYJJVmA7HLvjgdq3qmCD1y073c +2NxHSy+K52yHfz4nhCgO4340q4/jdCWobxPqshxkoVy71J75CCUYN3WU3Y0d +Rx/o57ytBPNlxdYbsYkLwRPbOpSgdzGc9v4bCwk8ucNmZ6wMcyGQb4fto8lU +fiy3ExgLPXttB1hIQjY+MnZoF9DW8A3ofGWhJzE/lBbZVcA4ykNGANt51rGT +lFGB+p0nDCe+sFBmk7zSflcVOPfu9komtqxn/YeFTyoQ/u9iNSe2cumwAvl2 +N2janV5q7mUhSYltpLSjGgTQT3Bpf2ahXflBfMtIA2pMGsQyOlmITlyaU7HW +gLYia4FT2GlySV/cnDUg5+WVUWNsjpz7Fa9CNeC2LpfORAd+3zLH7ZMqNQBe +5VnpYV9Lc7ujJKcJNyOMAlve4/nGWu524NaCaN0HD3tbWehugLzNgxZt6Fia +2JbZzELtIUj3cr4+NH4YNfCtYyEZ1y5rF9+94EZrVXcvYiHGn4flkmcBVhLZ +mOUpLCQy8WitCH0/NCU/rym4yEJBmnt6k5RpsLP/dbCnL+4/udIsOH4AMg/H +W+8+iue5P3BtVpsJ0O+pL+Ttwc/PD59npclmcFjUm5khx0IL+0TfNUVaQNhE +tqztWhbqY+NgDbhbwft0qe4r49PIb6t/wkW5Q1A2oOky3jqNyr2bG29F2YCl +5FN/04ppFDYrNr/T+zA0Rf2yVb85jebMDx59/ZcttLkfzjcNnEb6Ton7hg/b +QX1dV2et3TT6IHbHp0nTHrqW2GXUdaaReMGlJ0U7jgBP3Ef5PcLT6FG/sqU1 +/1HwNpyIVWRNoW2d054hk0fBcBEe3qidQpq3Ektz+48BZNl0Mc9OoTucs7uT +XjhAbJTYcOC+KfRwn+rnqDpH0JsjviRzTaE03RiBlZLj8OWSUIpbCxO19eRH +a153gimtt06305jogVWG/KkLzsAqnVB1ozMR66Qdmx/hAs5tbV3V6kw0d1DJ +i2nsCupJp6NnOZioaLJ7IVDnL6gKEhbM75xEDnfzPVz43OAOk9/8Q8kkqq6y ++IvjihvY0B03ylyYRPoSHxavLbqByq2t7p+PTyK5fs/P773dIbRO6uQHvUk0 +xHviUMagO1jYJv/dJjyJ2uOsPUyO0EGKNyqqb5FCyaFZvMHtdPgkcXU+s49C +Txr+LHqYecBcT2Kc5EsKbXSGK5r1HvBjRdJftZJC0ltet2194gEVhS7mXyso +pNZiJcrd4AHOYUlO8di2e5yK/3vmAd2i36Wm7+P8rSFvz//rAZ4W19Vqyikk +3ndvY/N/HvB4HAUdLKWQvKtImvO8B4hm5qfdLKSQvhuzKEqLgDjLXWPtmRQq +SJ8OtNYhYFJ/uTEJe0vHjJGIHgES3h7N9tjMA/OdRYYEPFdZS3bfofD3i21N +y34C+Fzf9w5lUGjDvIDj5sME/EgVrOe8TaGhG9rrs04SoE4Ig1cqhQ6/1u30 +9CfAPvvuBjXsBjaDLLXTBHDIsfEvpFAoPdBI+3kQAbc69qZfxbZ2NHEfPkfA +Fd+JqXu3KFQn71i3M4YA/cbo1OWbFIp7HO79qICA+4RiT0MChU5qpOqHFhHw +MTgi9wa2ZXHler0SAgz7f6c7Y/OkjhTXlhHQcSZCYDmeQlEBNuMPawi4RmYr +G2CHK8mfePAc5xsUcT+7QSGf1Le+VV8I2GR+wJ8VQyGzDSN7AvoJOJNk++cl +9o4oNn6NbwSw7a1++j/skQDtssphAr7WB76kYbtbZ01WUDhfasua29co5MAV +6Hd/iYBgmSElm6sUMgkUP1UqzMB9Oc37oij0PCvaPEmUAc+MwkJqsPe0zMiH +ijNg8ldudyy2msLbbuNtDHjTL0ozxBb7dM64R4EBdMfy4ozLFJow6BPm0WZA ++8eqR96XKBTPnv3U044BOzoFp3ZdxPtX5UuzOsKAb/LxP3iwLzuFBmgeY4Dv +xxG1sQsUCq2x2f7nOAMCxlStC7DdyTWJKXQGjB40lZDD1nxDJ16eZkAC4wrb +9kgKfUpU4JVLYECF6dXfx85TqBzxe40mMqC+TKDCCPvy5I+mspsMeOcbnqiA +rWHWFKGXygD5sYXB2XA8PzaPGatMBnBJ5LxOwj7on90dWsoA4qltTPc5CklK +XtUxKmdA2MxBgxfYP9743+SoYMBQxnbxMuwcRWQVV82AtyMV3hexf/X1NebW +M+CD4JzJLuwaS4mi1mYGhNu/WxMbRqHYJXau5DcMUDzRUXEGm1407u7YwoDS +wrZ4AnsTZ73EUBsDYlpK+4ywfR87xC9+xPsXWF83d5ZCcsopIfLDuB/tHz9f +7KVP5zvGRhjAf89T0hm7PYqhdn+UAaYRG1YssCMGtMb1KQaAhaPZLuzPaR0u +h2YZQNlOy02FUihprcCBsDUkjIlHd5/HfjLT5xTEQcJ1tfHfftjf+0oC/LhI +0LBVcHPD3lNDy6avJ0Hmk+xHY+wRt9BlcwESrA3NEvixN1ke2HxAkIT4LUHJ +bNiGupuVkBAJv5bPds6eoVACf+lRTTESYt6JruvBNqz/WikhQwJtpHxvKTaZ +X9osJEdCaWmD9N3V6xPOft2oQILCQilKwR4hBfk5lUiQrlBUv7i6LmjiRamR ++P8r/Zsjdv1vwcgRDRKsSgrzbLCHx/pv9WuR8E9Gao4JtkFj2ItOPRKcpCRt +dbCHfMu3PQUS9PVeRwpjb3A4p127n4SvY2PSG7H1jU0tK2m4n+/0r7XYcWLf +zuabktA8VnxiKYRCjzjvJ2SZkzBId1mZxR6cOleYbknCg6K55klsvVdCXTds +SNga0SX0DZte+W3iii0JxmGSKb3YNzLus/9tT4LdVgvbT9jfAszUQhxImNrs +EPEOm99V2OTUcRIanusym1fzzAZdfJxJ+Lf1V3rT6v1S52Nd3UjoTN+b/2S1 +D495jgOdhNacWs661bw54TpbgoT/3RbNfrCaNzDYZkmS8DTX7UzVal5LxchB +LxJO/hcfc3+1X+35X+CD52Vf0F26mp9jvsXQl4QjGnlEyWr+DZGd2n54P1eu +7SxazQ8d2qd6igRtr6O7C7D5iEoHpQDc5zvPyTxs3UMR/nJBJAQIF37PWc03 +sIiWDCFhI/vOzLvY1xVE74iEklD2MCUhG/vhpuFqgTAS2IzGG7KwB5Yr3/CG +k1CVpaC0ar7vEQNcESQoDZi2ZWLrfLBY+BNJwiMu+8pV/x+XFkpO + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.8894799674455305, 1.1213997817904926`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.8894799674455325}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.8894799674455325}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> A\ +bsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.8894799674455305, 1.1213997817904926`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991337564416748*^9, 3.9921270942178535`*^9}, + CellLabel-> + "Out[140]=",ExpressionUUID->"7f87d733-150e-1042-b860-78b7fb2b06e1"] +}, 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", ",", "15"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.991846277689621*^9}, + CellLabel-> + "In[141]:=",ExpressionUUID->"0a8036ea-ac95-654b-96a9-78af964912a2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.006397650975132`*^-280\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 946, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337564646551*^9, 3.9921270945865097`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"edab1838-e2c8-204e-adfc-834fce377da5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.641652245918893`*^-293\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 947, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337564646551*^9, 3.9921270946085224`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"fc785ec1-71eb-164b-a00a-54afb54c6286"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3921812479278223`*^-306\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 948, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337564646551*^9, 3.992127094628418*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"32b7ace4-e30e-644c-a5be-30a7d1062080"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 141, 949, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337564646551*^9, 3.9921270946455097`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"d87f9d91-35b8-1342-bcc4-42de9edde7aa"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk8VF8bAPCiBW9SUrbBvTO2MArZUs4TWkhliR9SyV5UaNNqSdqkECFk +mWaEcG8lKZHKFkXIlqW02JfIUug9/prP9zNzz5x7nuc8z0M6H7Vy45s3b57g +/Hnz5j7H2yveyF+/bfjubgCUBmga1idJnN7U5Id0pjlCKpPLEKz84CzRFIzo +6IHrCyYJdNIio5G/KRK56geKDE+sRcsHxSOnGlNRKu9/be0TgDpe7Dw61kij +lnahYwUTFmiLfG/bSGMJEvTYPqM34YSmGnWjhxs/opfmuS4Gv33Qa2Mepza1 +C/VPHLaMTQ1CjI5nP5zVBhD9wtJoTOYaEvPen7HYeBSlBzlbblaNQJEaW57v +tJlEwbaL/VrDo1Fz7NrikWUzqG/5mqXZkXHoOifgA5/kfPh8RK0oqjYRid/u +uhqVyA9U0gPFmMFkdHm3qeHH8YUQm58Gr16lomP6KfsrggWArWf8Ah5wkMnQ +nzNHuoRAChK7vjhyUdAGywNSesLAtTOV+G+Mh9Znxz2+UCQCNXdnxxh3HiDv +yZHAcuHl4Gr1auvHRZloSnVZO9tGFCZWmO5nnc1CGzKzkmNiVkBPl7qDWPVD +NCJq5mRbIgaSzhzJH4PZ6FuYk63f4lXQHBptc3pRLjIdOmX6XUccCgauR/tf +yEX9LgLHHgdIwErJwKv3RnLxeYrzXS6RhFJKy/CGNYV6nLemG5RJwrraom3t +uykUlnJq5/A7SWg9EBusbkuhOtmmePsGSeAc0g+psqOQk2Scllq3JGxKvVI0 +u5dCp5dKu9UKS8FF3WmJDZ4UypqULZe2l4LJ+AtHpc5RSLRaMTx3SAo84kaT +3VMoNDu09n7lmBQI/fWMuptKoV5RgxffpqSgI+VrxIc0CpXY7eqVWCANadsX +PFrHpdCxb6e2BElIw4+bw6GjGRSq/1s+a7lJGuqS1c8bP6bQHRWvo6OR0uB/ +h/tdrZRCITtOhArHSkOA54lDxmUU8vEJSFRKlIZ36Py0XTmFtuVFvdvDk4Zq +SddtQZUUmtz0QunNc2mQzysLLH1PIQd74c7b36RBO3nsPKuRQowrORY6Ogxo +crg9q/STQhnZD19PrWfAzKKfNSLdFNJryNQpRAyQE+mvGcfezUxnmJgyoNdP +36GkF5/ni+RuS0cGaPGkonYNUujvcETg4WAGlFn94hn9plCL/fFcznsGCDCm +cq/z0cgz0I/lWceADErZwp6fRuNcnxjVJga0d12VVVxAI9Ex73P0FwYY8600 +LVxII7Nwt23FYwzYRr349EWARs9KbDtbpWSgOWSig1+ERrGq+stWeMiAoqCD +UJYUjWy2V9966SUDedGT8o7SeD2vA8sP+cjAj+wI//8xaHQ946roq9MyOP/7 +Kj1kaHRhdYvY0TAZ0PIrkxEnaOSqdFbyHSUDb3YmX7FQoJEGq5B5cVoGDJ/e +aFZfQ6NBI8s09fmy4Fp5a00pdobzd1bLQlkgzT2KHdfSSD5VWEFDRBYc1lVH +XtagkQS5T6mDlIXUdO3pOi0azcr+UzXYKgsKr72HturRqFJqk/ZoBP79zZcV +CUCjGtkcxQV3ZCG7V8pacRONPjFlJFYmyIJAfMN4NvYXlak/OlxZ2KHz8kah +EY0m11PFZwpkwWZp5d8PJjRS3EOa83XJAs/pWH/FNhqp7b+5cUW3LFzV0FDc +bEojTZcZdfkBWTC0yztbhL3Rq3n5lgm8P/NjZygzGu0+G9F49X9yYKJgUnHN +nEbBd+e7LF8nB9eE2opFLWh05d7R3Ux9OTAOEikJwA5Pa9usZSgHF55f7OzD +jst8pmyzTQ5GjkaeeGVJo9znvoOxjnLww2yUz9maRu2tX04Tl+Sgg7mz2N+W +RusZJbfWfJKDKbb+iZk9NPrKkm/vaZGDsQb5oW2ONLqqGqrK6ZAD/WQ7bhR2 +03qzUokeOfDWGKxS3EujU/Yf/86flgMXCdUZ4300ctjuq9W7jIDh9V3T9k40 +Ut/FdNi6goAcUz+bOGw+67pAzkoCHh2939+I/cBB+/0+KQI+P7RotDqAz/Pg +lGcdi4CHu1WSkTONYq4EJb3QIUBx240Vv11odChM862kPgHamq1Oyq40MrzV +1XfSgIBv7tqDDtjf72zW1wD8vMuhikLsdTzB+vumBAho7gk540YjgcyCP3zm +BChxbtbzsD9ne5FOOwl4P3vFrR77Yl71ESlr/Pt7Smaq7jT6+DZC8KYjAVvO +pRE12NwKo7X9+wjwqblxegL7TPWorekBAi6mTa6Q9aAR2WDD4XcnIMU3W/gg +ts83SeR/lIBzA1ri49gm3ZVuDb4EqCg+vyDuifOz/2yY5nECqlyDlPWwi0bb +mvv9CWCtVDU+hb2UP/X4gWACfj2OudOPvWiqyHokBD+v1m4ndBDn82CbZtBl +AjaQihuUsIdaJEeSwwioLdU6uA+7u0a3Zu1NAnqLdB/5Y3eW2uQURxDwtyxf +LhK7ho443BlDgIhJjlMJdnl6jrlPHAGzF1y0m7GLk6pV5yUQkG0ryh7Cpq4J +9sqlEDBPvP2SxCF8/wKVKnLS8H5N1v9UxU49uTkdcQmYjhHxNsSOdA5y359J +AO8rp9MJ+5rdvc1DD/H+Ejg1PtjBOwvlA3IJ2PUv4VsA9hmTVn6RRwSkL89m +hGMfWz/1NekJAR97J/zvYnuvFS9RzydgExU/xcN2VdROeVlAQH18XtIjbEeG +deDOQgJa+r08X2LvFvXd315EwILpFttybHOBm4ZHSghwVpM/VIttMpslM/uG +AMcRj9Rm7A1jldM3ygjIrC7914mt3dvdKlNJgI31geCf2Oqdi54/rML5xbJT +GcBW/CQfv/EDAfpD7yZGsGWrjE5X1xLw9kRb72/sVSVOdnvrCdgW+pB/Cntp +/gXdgU8EDM06Gv3FXpSdsOp8MwFC1Ut409izaQW/l3zGHmjTmMGeiGuqT2gn +IODQyNe574dvjj9S+0KAoJNnwdzz3ZfEol50EeA04ZI/t37nWU0/8x8EGBxc +2DaO3eRrYfm5m4C9M4eVR7FrPI6s9e4jIEioKH4Qu3xvmMj0AAF7xiXX9WAX +W2cMXh8mIAw3qK/Yz0zLq6VHcTy2H/vcik2jH1mZvwmQefe4r24u/toLwgwm +CUA2ocx3c/FXZXq9+0OATrxg0CvseBLM9swQMGPntPjpXD6I71vd9w/vZ3/W +k8y5fBA+J3CWj4SuqyJh97DPTj0tjV9MguniNCoE+/hQw30VIRJ+OorPPzkX +/++jIQVLSJD5rHLafS7etWuMW5aTID37tMtkLt5lO5iHxEhokzj5SXMu3oVe +8/+sImHZDsdfctgbH/CKJBkk8EeqcCdwPssGyW2wVyThcebt+YnY2ccEmG3K +JCSLDeeFYBu6jyw+oEqC637jJC/svdtf13muJcHb34ZfFzthpYeX/3oSntBv +Vd7g+6kmYGE5vQHvr+z8sfvYz//o6QYiEiw+6gxdwm7pEOK/YkLCJSuNQBNs +yYzs+Ds7SRAKGPlfPq4P6Ql3AqUtSdjq5zAcia13M9D9njUJ8c9rBA5j2x23 +0uTZkfD+lPenuXoTYzhekedMwtPzK7v9cT0Sq9s41XCSBI7GP77FuJ5x3ip2 +2J8mwbhKXa8B10OtfJG3bWdJqFULT0vFtkr8cut7IAnWce4yBtgRHpeUf18j +QdfaNMUZ19ul01X/id0jwbnfTiAM1+ekwScbY1NISLJsyN2Brf4licXgkDB6 +PTdiKfaOUp8h1gMS/MaWzdzA9T3slthlrUck5Pg6XLi4n0aCCo55VmV4P02G +Zqa4fxySRGaZFSRM2S6+w49dKcxs568iYeN7Ub1C3G/Cxn8ufFJDwrnPHqfU +sZeWH7MRbyGhtBsGBfbMzRfXx1r7SZh/LeBToh2NGFSBppsoE96JhRzYhvvd +ufuJpYViTFAwl/QZsKJRW1ygwypxJrRPZ36KwE4K3hJcJs2Ewr3GWU24XxK7 +P9auVmBCwUz4uX24nypM9PgM6jJBYrNjldkO/L4bJXNO7WXCWypmHm8LjR6x +Dv7lc2JCWhynjo2tJ/Rsa7gzEyqEMr4/2kwjo0a7To4HEw43GpQV4vnA1jd2 ++UdfJuzjdISU4/kh4L74cbVQJmxZ5CNcYIjvp/Aq/S/ZTLi5QNFnqQ6ep8bc +LnlT+P/qYnzOa+P8aXlSO/EIv5/wqid962j0jWdzaOkzJkQ7fBcqxfPN5Kbo +uwavmZDwzGLQF88/5Emx2ehGJmxML83nqtHIr130tdk8FoTvjw26xMT3v9Sx +MIOPBU9ERa91k/g+5HCfCi1kwYiq7agZdmXA+qxKQRbYri/vFsbzGZN0jjZb +wQLlSTmXMDy/1bpQHmaKLPh8d9VjLwkare3ZtcTMnAXfPS1fPBbG/Wg0zMY0 +lgVsn1AF/3EKfW5KsU2MZ4G7VZ9lPp5PKwvz/htJYIGlyqeBiTEKcS532sel +sOBXaOnxE6N4XpZet68ngwV8z2pKDg5T6K1Rq/vVQhY4Lok6r4vn37sRq/0r +vrKgx195v2cbhbauKY03ZctDxyM4olRCoZejBn8n3ssDs1FiYVUAhY6oabbU +uimAVZGkYKA+hTYOutbbCyrC7bi+85+/5aLN8hI7hFMVoVM65HJkeC5SDrzm +X6KrBHt1XgpVa+UiFTf9IoUWJYiuN1IyiclBbi89Qx77KkOT+y/hsPJsVJRc +7zqycjXERQf8rOp4iMbS/02seboagmZKBWp+ZSEXhUzB+B0qMKDel3JYJAuN +qETp0MMqkGjc02C1IhPlc/5++X1FFVYfNjg6xMpADiYsMJBVA/nvnNownQdI ++vDlZ+rFarDky3c5Ga10tFLIm9rxHxtcUuKjNwMPcYzPnxm2Z8Mf37NLBDfw +kOb5cOMoRzaI2L69XKXLQzuHcxuaDrChxL46zHoND4V++j3l4s0Gvyi95gOy +PDSZGmB0JogNgntCiwKmuajFIKqOm8kGh+KGtpJ8LvI8wUkwzWbDxxtNpy4/ +5qLx7Cdu/blscHv2Vc48l4tEmU0TGnls4K4xuNvA46LtAjKMwmI2aHbob+2J +4aIX9VzXugY2HAwXyVtxgovMluazTzaxIePdS+tmHy5q2loxLtHKhjvurAX3 +vLlorKDvyr5ONrxR1k5SceUidsrahz29bBAjI4qMrPF6LZtOhg2w4ZoK31+B +XXg9MWu0ZpgNmzVPbf9gxkXul0/UHv/Nhq6vkWqORni94tB48Uk2VCpWFTIN +uSj4zx2Xgj/4vJLU3Xr0uWjZugdqe2fYUO7Ez8rV5qKkwwW///1jw3yvqImT +Glz0f9N7ndQ= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VF8bAPCiBW9SUrbBvTO2MArZUs4TWkhliR9SyV5UaNNqSdqkECFk +mWaEcG8lKZHKFkXIlqW02JfIUug9/prP9zNzz5x7nuc8z0M6H7Vy45s3b57g +/Hnz5j7H2yveyF+/bfjubgCUBmga1idJnN7U5Id0pjlCKpPLEKz84CzRFIzo +6IHrCyYJdNIio5G/KRK56geKDE+sRcsHxSOnGlNRKu9/be0TgDpe7Dw61kij +lnahYwUTFmiLfG/bSGMJEvTYPqM34YSmGnWjhxs/opfmuS4Gv33Qa2Mepza1 +C/VPHLaMTQ1CjI5nP5zVBhD9wtJoTOYaEvPen7HYeBSlBzlbblaNQJEaW57v +tJlEwbaL/VrDo1Fz7NrikWUzqG/5mqXZkXHoOifgA5/kfPh8RK0oqjYRid/u +uhqVyA9U0gPFmMFkdHm3qeHH8YUQm58Gr16lomP6KfsrggWArWf8Ah5wkMnQ +nzNHuoRAChK7vjhyUdAGywNSesLAtTOV+G+Mh9Znxz2+UCQCNXdnxxh3HiDv +yZHAcuHl4Gr1auvHRZloSnVZO9tGFCZWmO5nnc1CGzKzkmNiVkBPl7qDWPVD +NCJq5mRbIgaSzhzJH4PZ6FuYk63f4lXQHBptc3pRLjIdOmX6XUccCgauR/tf +yEX9LgLHHgdIwErJwKv3RnLxeYrzXS6RhFJKy/CGNYV6nLemG5RJwrraom3t +uykUlnJq5/A7SWg9EBusbkuhOtmmePsGSeAc0g+psqOQk2Scllq3JGxKvVI0 +u5dCp5dKu9UKS8FF3WmJDZ4UypqULZe2l4LJ+AtHpc5RSLRaMTx3SAo84kaT +3VMoNDu09n7lmBQI/fWMuptKoV5RgxffpqSgI+VrxIc0CpXY7eqVWCANadsX +PFrHpdCxb6e2BElIw4+bw6GjGRSq/1s+a7lJGuqS1c8bP6bQHRWvo6OR0uB/ +h/tdrZRCITtOhArHSkOA54lDxmUU8vEJSFRKlIZ36Py0XTmFtuVFvdvDk4Zq +SddtQZUUmtz0QunNc2mQzysLLH1PIQd74c7b36RBO3nsPKuRQowrORY6Ogxo +crg9q/STQhnZD19PrWfAzKKfNSLdFNJryNQpRAyQE+mvGcfezUxnmJgyoNdP +36GkF5/ni+RuS0cGaPGkonYNUujvcETg4WAGlFn94hn9plCL/fFcznsGCDCm +cq/z0cgz0I/lWceADErZwp6fRuNcnxjVJga0d12VVVxAI9Ex73P0FwYY8600 +LVxII7Nwt23FYwzYRr349EWARs9KbDtbpWSgOWSig1+ERrGq+stWeMiAoqCD +UJYUjWy2V9966SUDedGT8o7SeD2vA8sP+cjAj+wI//8xaHQ946roq9MyOP/7 +Kj1kaHRhdYvY0TAZ0PIrkxEnaOSqdFbyHSUDb3YmX7FQoJEGq5B5cVoGDJ/e +aFZfQ6NBI8s09fmy4Fp5a00pdobzd1bLQlkgzT2KHdfSSD5VWEFDRBYc1lVH +XtagkQS5T6mDlIXUdO3pOi0azcr+UzXYKgsKr72HturRqFJqk/ZoBP79zZcV +CUCjGtkcxQV3ZCG7V8pacRONPjFlJFYmyIJAfMN4NvYXlak/OlxZ2KHz8kah +EY0m11PFZwpkwWZp5d8PJjRS3EOa83XJAs/pWH/FNhqp7b+5cUW3LFzV0FDc +bEojTZcZdfkBWTC0yztbhL3Rq3n5lgm8P/NjZygzGu0+G9F49X9yYKJgUnHN +nEbBd+e7LF8nB9eE2opFLWh05d7R3Ux9OTAOEikJwA5Pa9usZSgHF55f7OzD +jst8pmyzTQ5GjkaeeGVJo9znvoOxjnLww2yUz9maRu2tX04Tl+Sgg7mz2N+W +RusZJbfWfJKDKbb+iZk9NPrKkm/vaZGDsQb5oW2ONLqqGqrK6ZAD/WQ7bhR2 +03qzUokeOfDWGKxS3EujU/Yf/86flgMXCdUZ4300ctjuq9W7jIDh9V3T9k40 +Ut/FdNi6goAcUz+bOGw+67pAzkoCHh2939+I/cBB+/0+KQI+P7RotDqAz/Pg +lGcdi4CHu1WSkTONYq4EJb3QIUBx240Vv11odChM862kPgHamq1Oyq40MrzV +1XfSgIBv7tqDDtjf72zW1wD8vMuhikLsdTzB+vumBAho7gk540YjgcyCP3zm +BChxbtbzsD9ne5FOOwl4P3vFrR77Yl71ESlr/Pt7Smaq7jT6+DZC8KYjAVvO +pRE12NwKo7X9+wjwqblxegL7TPWorekBAi6mTa6Q9aAR2WDD4XcnIMU3W/gg +ts83SeR/lIBzA1ri49gm3ZVuDb4EqCg+vyDuifOz/2yY5nECqlyDlPWwi0bb +mvv9CWCtVDU+hb2UP/X4gWACfj2OudOPvWiqyHokBD+v1m4ndBDn82CbZtBl +AjaQihuUsIdaJEeSwwioLdU6uA+7u0a3Zu1NAnqLdB/5Y3eW2uQURxDwtyxf +LhK7ho443BlDgIhJjlMJdnl6jrlPHAGzF1y0m7GLk6pV5yUQkG0ryh7Cpq4J +9sqlEDBPvP2SxCF8/wKVKnLS8H5N1v9UxU49uTkdcQmYjhHxNsSOdA5y359J +AO8rp9MJ+5rdvc1DD/H+Ejg1PtjBOwvlA3IJ2PUv4VsA9hmTVn6RRwSkL89m +hGMfWz/1NekJAR97J/zvYnuvFS9RzydgExU/xcN2VdROeVlAQH18XtIjbEeG +deDOQgJa+r08X2LvFvXd315EwILpFttybHOBm4ZHSghwVpM/VIttMpslM/uG +AMcRj9Rm7A1jldM3ygjIrC7914mt3dvdKlNJgI31geCf2Oqdi54/rML5xbJT +GcBW/CQfv/EDAfpD7yZGsGWrjE5X1xLw9kRb72/sVSVOdnvrCdgW+pB/Cntp +/gXdgU8EDM06Gv3FXpSdsOp8MwFC1Ut409izaQW/l3zGHmjTmMGeiGuqT2gn +IODQyNe574dvjj9S+0KAoJNnwdzz3ZfEol50EeA04ZI/t37nWU0/8x8EGBxc +2DaO3eRrYfm5m4C9M4eVR7FrPI6s9e4jIEioKH4Qu3xvmMj0AAF7xiXX9WAX +W2cMXh8mIAw3qK/Yz0zLq6VHcTy2H/vcik2jH1mZvwmQefe4r24u/toLwgwm +CUA2ocx3c/FXZXq9+0OATrxg0CvseBLM9swQMGPntPjpXD6I71vd9w/vZ3/W +k8y5fBA+J3CWj4SuqyJh97DPTj0tjV9MguniNCoE+/hQw30VIRJ+OorPPzkX +/++jIQVLSJD5rHLafS7etWuMW5aTID37tMtkLt5lO5iHxEhokzj5SXMu3oVe +8/+sImHZDsdfctgbH/CKJBkk8EeqcCdwPssGyW2wVyThcebt+YnY2ccEmG3K +JCSLDeeFYBu6jyw+oEqC637jJC/svdtf13muJcHb34ZfFzthpYeX/3oSntBv +Vd7g+6kmYGE5vQHvr+z8sfvYz//o6QYiEiw+6gxdwm7pEOK/YkLCJSuNQBNs +yYzs+Ds7SRAKGPlfPq4P6Ql3AqUtSdjq5zAcia13M9D9njUJ8c9rBA5j2x23 +0uTZkfD+lPenuXoTYzhekedMwtPzK7v9cT0Sq9s41XCSBI7GP77FuJ5x3ip2 +2J8mwbhKXa8B10OtfJG3bWdJqFULT0vFtkr8cut7IAnWce4yBtgRHpeUf18j +QdfaNMUZ19ul01X/id0jwbnfTiAM1+ekwScbY1NISLJsyN2Brf4licXgkDB6 +PTdiKfaOUp8h1gMS/MaWzdzA9T3slthlrUck5Pg6XLi4n0aCCo55VmV4P02G +Zqa4fxySRGaZFSRM2S6+w49dKcxs568iYeN7Ub1C3G/Cxn8ufFJDwrnPHqfU +sZeWH7MRbyGhtBsGBfbMzRfXx1r7SZh/LeBToh2NGFSBppsoE96JhRzYhvvd +ufuJpYViTFAwl/QZsKJRW1ygwypxJrRPZ36KwE4K3hJcJs2Ewr3GWU24XxK7 +P9auVmBCwUz4uX24nypM9PgM6jJBYrNjldkO/L4bJXNO7WXCWypmHm8LjR6x +Dv7lc2JCWhynjo2tJ/Rsa7gzEyqEMr4/2kwjo0a7To4HEw43GpQV4vnA1jd2 ++UdfJuzjdISU4/kh4L74cbVQJmxZ5CNcYIjvp/Aq/S/ZTLi5QNFnqQ6ep8bc +LnlT+P/qYnzOa+P8aXlSO/EIv5/wqid962j0jWdzaOkzJkQ7fBcqxfPN5Kbo +uwavmZDwzGLQF88/5Emx2ehGJmxML83nqtHIr130tdk8FoTvjw26xMT3v9Sx +MIOPBU9ERa91k/g+5HCfCi1kwYiq7agZdmXA+qxKQRbYri/vFsbzGZN0jjZb +wQLlSTmXMDy/1bpQHmaKLPh8d9VjLwkare3ZtcTMnAXfPS1fPBbG/Wg0zMY0 +lgVsn1AF/3EKfW5KsU2MZ4G7VZ9lPp5PKwvz/htJYIGlyqeBiTEKcS532sel +sOBXaOnxE6N4XpZet68ngwV8z2pKDg5T6K1Rq/vVQhY4Lok6r4vn37sRq/0r +vrKgx195v2cbhbauKY03ZctDxyM4olRCoZejBn8n3ssDs1FiYVUAhY6oabbU +uimAVZGkYKA+hTYOutbbCyrC7bi+85+/5aLN8hI7hFMVoVM65HJkeC5SDrzm +X6KrBHt1XgpVa+UiFTf9IoUWJYiuN1IyiclBbi89Qx77KkOT+y/hsPJsVJRc +7zqycjXERQf8rOp4iMbS/02seboagmZKBWp+ZSEXhUzB+B0qMKDel3JYJAuN +qETp0MMqkGjc02C1IhPlc/5++X1FFVYfNjg6xMpADiYsMJBVA/nvnNownQdI ++vDlZ+rFarDky3c5Ga10tFLIm9rxHxtcUuKjNwMPcYzPnxm2Z8Mf37NLBDfw +kOb5cOMoRzaI2L69XKXLQzuHcxuaDrChxL46zHoND4V++j3l4s0Gvyi95gOy +PDSZGmB0JogNgntCiwKmuajFIKqOm8kGh+KGtpJ8LvI8wUkwzWbDxxtNpy4/ +5qLx7Cdu/blscHv2Vc48l4tEmU0TGnls4K4xuNvA46LtAjKMwmI2aHbob+2J +4aIX9VzXugY2HAwXyVtxgovMluazTzaxIePdS+tmHy5q2loxLtHKhjvurAX3 +vLlorKDvyr5ONrxR1k5SceUidsrahz29bBAjI4qMrPF6LZtOhg2w4ZoK31+B +XXg9MWu0ZpgNmzVPbf9gxkXul0/UHv/Nhq6vkWqORni94tB48Uk2VCpWFTIN +uSj4zx2Xgj/4vJLU3Xr0uWjZugdqe2fYUO7Ez8rV5qKkwwW///1jw3yvqImT +Glz0f9N7ndQ= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.07194502322629517}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.07194502322629517}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VF8bAPCiBW9SUrbBvTO2MArZUs4TWkhliR9SyV5UaNNqSdqkECFk +mWaEcG8lKZHKFkXIlqW02JfIUug9/prP9zNzz5x7nuc8z0M6H7Vy45s3b57g +/Hnz5j7H2yveyF+/bfjubgCUBmga1idJnN7U5Id0pjlCKpPLEKz84CzRFIzo +6IHrCyYJdNIio5G/KRK56geKDE+sRcsHxSOnGlNRKu9/be0TgDpe7Dw61kij +lnahYwUTFmiLfG/bSGMJEvTYPqM34YSmGnWjhxs/opfmuS4Gv33Qa2Mepza1 +C/VPHLaMTQ1CjI5nP5zVBhD9wtJoTOYaEvPen7HYeBSlBzlbblaNQJEaW57v +tJlEwbaL/VrDo1Fz7NrikWUzqG/5mqXZkXHoOifgA5/kfPh8RK0oqjYRid/u +uhqVyA9U0gPFmMFkdHm3qeHH8YUQm58Gr16lomP6KfsrggWArWf8Ah5wkMnQ +nzNHuoRAChK7vjhyUdAGywNSesLAtTOV+G+Mh9Znxz2+UCQCNXdnxxh3HiDv +yZHAcuHl4Gr1auvHRZloSnVZO9tGFCZWmO5nnc1CGzKzkmNiVkBPl7qDWPVD +NCJq5mRbIgaSzhzJH4PZ6FuYk63f4lXQHBptc3pRLjIdOmX6XUccCgauR/tf +yEX9LgLHHgdIwErJwKv3RnLxeYrzXS6RhFJKy/CGNYV6nLemG5RJwrraom3t +uykUlnJq5/A7SWg9EBusbkuhOtmmePsGSeAc0g+psqOQk2Scllq3JGxKvVI0 +u5dCp5dKu9UKS8FF3WmJDZ4UypqULZe2l4LJ+AtHpc5RSLRaMTx3SAo84kaT +3VMoNDu09n7lmBQI/fWMuptKoV5RgxffpqSgI+VrxIc0CpXY7eqVWCANadsX +PFrHpdCxb6e2BElIw4+bw6GjGRSq/1s+a7lJGuqS1c8bP6bQHRWvo6OR0uB/ +h/tdrZRCITtOhArHSkOA54lDxmUU8vEJSFRKlIZ36Py0XTmFtuVFvdvDk4Zq +SddtQZUUmtz0QunNc2mQzysLLH1PIQd74c7b36RBO3nsPKuRQowrORY6Ogxo +crg9q/STQhnZD19PrWfAzKKfNSLdFNJryNQpRAyQE+mvGcfezUxnmJgyoNdP +36GkF5/ni+RuS0cGaPGkonYNUujvcETg4WAGlFn94hn9plCL/fFcznsGCDCm +cq/z0cgz0I/lWceADErZwp6fRuNcnxjVJga0d12VVVxAI9Ex73P0FwYY8600 +LVxII7Nwt23FYwzYRr349EWARs9KbDtbpWSgOWSig1+ERrGq+stWeMiAoqCD +UJYUjWy2V9966SUDedGT8o7SeD2vA8sP+cjAj+wI//8xaHQ946roq9MyOP/7 +Kj1kaHRhdYvY0TAZ0PIrkxEnaOSqdFbyHSUDb3YmX7FQoJEGq5B5cVoGDJ/e +aFZfQ6NBI8s09fmy4Fp5a00pdobzd1bLQlkgzT2KHdfSSD5VWEFDRBYc1lVH +XtagkQS5T6mDlIXUdO3pOi0azcr+UzXYKgsKr72HturRqFJqk/ZoBP79zZcV +CUCjGtkcxQV3ZCG7V8pacRONPjFlJFYmyIJAfMN4NvYXlak/OlxZ2KHz8kah +EY0m11PFZwpkwWZp5d8PJjRS3EOa83XJAs/pWH/FNhqp7b+5cUW3LFzV0FDc +bEojTZcZdfkBWTC0yztbhL3Rq3n5lgm8P/NjZygzGu0+G9F49X9yYKJgUnHN +nEbBd+e7LF8nB9eE2opFLWh05d7R3Ux9OTAOEikJwA5Pa9usZSgHF55f7OzD +jst8pmyzTQ5GjkaeeGVJo9znvoOxjnLww2yUz9maRu2tX04Tl+Sgg7mz2N+W +RusZJbfWfJKDKbb+iZk9NPrKkm/vaZGDsQb5oW2ONLqqGqrK6ZAD/WQ7bhR2 +03qzUokeOfDWGKxS3EujU/Yf/86flgMXCdUZ4300ctjuq9W7jIDh9V3T9k40 +Ut/FdNi6goAcUz+bOGw+67pAzkoCHh2939+I/cBB+/0+KQI+P7RotDqAz/Pg +lGcdi4CHu1WSkTONYq4EJb3QIUBx240Vv11odChM862kPgHamq1Oyq40MrzV +1XfSgIBv7tqDDtjf72zW1wD8vMuhikLsdTzB+vumBAho7gk540YjgcyCP3zm +BChxbtbzsD9ne5FOOwl4P3vFrR77Yl71ESlr/Pt7Smaq7jT6+DZC8KYjAVvO +pRE12NwKo7X9+wjwqblxegL7TPWorekBAi6mTa6Q9aAR2WDD4XcnIMU3W/gg +ts83SeR/lIBzA1ri49gm3ZVuDb4EqCg+vyDuifOz/2yY5nECqlyDlPWwi0bb +mvv9CWCtVDU+hb2UP/X4gWACfj2OudOPvWiqyHokBD+v1m4ndBDn82CbZtBl +AjaQihuUsIdaJEeSwwioLdU6uA+7u0a3Zu1NAnqLdB/5Y3eW2uQURxDwtyxf +LhK7ho443BlDgIhJjlMJdnl6jrlPHAGzF1y0m7GLk6pV5yUQkG0ryh7Cpq4J +9sqlEDBPvP2SxCF8/wKVKnLS8H5N1v9UxU49uTkdcQmYjhHxNsSOdA5y359J +AO8rp9MJ+5rdvc1DD/H+Ejg1PtjBOwvlA3IJ2PUv4VsA9hmTVn6RRwSkL89m +hGMfWz/1NekJAR97J/zvYnuvFS9RzydgExU/xcN2VdROeVlAQH18XtIjbEeG +deDOQgJa+r08X2LvFvXd315EwILpFttybHOBm4ZHSghwVpM/VIttMpslM/uG +AMcRj9Rm7A1jldM3ygjIrC7914mt3dvdKlNJgI31geCf2Oqdi54/rML5xbJT +GcBW/CQfv/EDAfpD7yZGsGWrjE5X1xLw9kRb72/sVSVOdnvrCdgW+pB/Cntp +/gXdgU8EDM06Gv3FXpSdsOp8MwFC1Ut409izaQW/l3zGHmjTmMGeiGuqT2gn +IODQyNe574dvjj9S+0KAoJNnwdzz3ZfEol50EeA04ZI/t37nWU0/8x8EGBxc +2DaO3eRrYfm5m4C9M4eVR7FrPI6s9e4jIEioKH4Qu3xvmMj0AAF7xiXX9WAX +W2cMXh8mIAw3qK/Yz0zLq6VHcTy2H/vcik2jH1mZvwmQefe4r24u/toLwgwm +CUA2ocx3c/FXZXq9+0OATrxg0CvseBLM9swQMGPntPjpXD6I71vd9w/vZ3/W +k8y5fBA+J3CWj4SuqyJh97DPTj0tjV9MguniNCoE+/hQw30VIRJ+OorPPzkX +/++jIQVLSJD5rHLafS7etWuMW5aTID37tMtkLt5lO5iHxEhokzj5SXMu3oVe +8/+sImHZDsdfctgbH/CKJBkk8EeqcCdwPssGyW2wVyThcebt+YnY2ccEmG3K +JCSLDeeFYBu6jyw+oEqC637jJC/svdtf13muJcHb34ZfFzthpYeX/3oSntBv +Vd7g+6kmYGE5vQHvr+z8sfvYz//o6QYiEiw+6gxdwm7pEOK/YkLCJSuNQBNs +yYzs+Ds7SRAKGPlfPq4P6Ql3AqUtSdjq5zAcia13M9D9njUJ8c9rBA5j2x23 +0uTZkfD+lPenuXoTYzhekedMwtPzK7v9cT0Sq9s41XCSBI7GP77FuJ5x3ip2 +2J8mwbhKXa8B10OtfJG3bWdJqFULT0vFtkr8cut7IAnWce4yBtgRHpeUf18j +QdfaNMUZ19ul01X/id0jwbnfTiAM1+ekwScbY1NISLJsyN2Brf4licXgkDB6 +PTdiKfaOUp8h1gMS/MaWzdzA9T3slthlrUck5Pg6XLi4n0aCCo55VmV4P02G +Zqa4fxySRGaZFSRM2S6+w49dKcxs568iYeN7Ub1C3G/Cxn8ufFJDwrnPHqfU +sZeWH7MRbyGhtBsGBfbMzRfXx1r7SZh/LeBToh2NGFSBppsoE96JhRzYhvvd +ufuJpYViTFAwl/QZsKJRW1ygwypxJrRPZ36KwE4K3hJcJs2Ewr3GWU24XxK7 +P9auVmBCwUz4uX24nypM9PgM6jJBYrNjldkO/L4bJXNO7WXCWypmHm8LjR6x +Dv7lc2JCWhynjo2tJ/Rsa7gzEyqEMr4/2kwjo0a7To4HEw43GpQV4vnA1jd2 ++UdfJuzjdISU4/kh4L74cbVQJmxZ5CNcYIjvp/Aq/S/ZTLi5QNFnqQ6ep8bc +LnlT+P/qYnzOa+P8aXlSO/EIv5/wqid962j0jWdzaOkzJkQ7fBcqxfPN5Kbo +uwavmZDwzGLQF88/5Emx2ehGJmxML83nqtHIr130tdk8FoTvjw26xMT3v9Sx +MIOPBU9ERa91k/g+5HCfCi1kwYiq7agZdmXA+qxKQRbYri/vFsbzGZN0jjZb +wQLlSTmXMDy/1bpQHmaKLPh8d9VjLwkare3ZtcTMnAXfPS1fPBbG/Wg0zMY0 +lgVsn1AF/3EKfW5KsU2MZ4G7VZ9lPp5PKwvz/htJYIGlyqeBiTEKcS532sel +sOBXaOnxE6N4XpZet68ngwV8z2pKDg5T6K1Rq/vVQhY4Lok6r4vn37sRq/0r +vrKgx195v2cbhbauKY03ZctDxyM4olRCoZejBn8n3ssDs1FiYVUAhY6oabbU +uimAVZGkYKA+hTYOutbbCyrC7bi+85+/5aLN8hI7hFMVoVM65HJkeC5SDrzm +X6KrBHt1XgpVa+UiFTf9IoUWJYiuN1IyiclBbi89Qx77KkOT+y/hsPJsVJRc +7zqycjXERQf8rOp4iMbS/02seboagmZKBWp+ZSEXhUzB+B0qMKDel3JYJAuN +qETp0MMqkGjc02C1IhPlc/5++X1FFVYfNjg6xMpADiYsMJBVA/nvnNownQdI ++vDlZ+rFarDky3c5Ga10tFLIm9rxHxtcUuKjNwMPcYzPnxm2Z8Mf37NLBDfw +kOb5cOMoRzaI2L69XKXLQzuHcxuaDrChxL46zHoND4V++j3l4s0Gvyi95gOy +PDSZGmB0JogNgntCiwKmuajFIKqOm8kGh+KGtpJ8LvI8wUkwzWbDxxtNpy4/ +5qLx7Cdu/blscHv2Vc48l4tEmU0TGnls4K4xuNvA46LtAjKMwmI2aHbob+2J +4aIX9VzXugY2HAwXyVtxgovMluazTzaxIePdS+tmHy5q2loxLtHKhjvurAX3 +vLlorKDvyr5ONrxR1k5SceUidsrahz29bBAjI4qMrPF6LZtOhg2w4ZoK31+B +XXg9MWu0ZpgNmzVPbf9gxkXul0/UHv/Nhq6vkWqORni94tB48Uk2VCpWFTIN +uSj4zx2Xgj/4vJLU3Xr0uWjZugdqe2fYUO7Ez8rV5qKkwwW///1jw3yvqImT +Glz0f9N7ndQ= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.07194502322629517}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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.07194502322629517}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913381496467495`*^9, 3.992127609657795*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"7011dccc-e2d1-9b4f-9c60-bbdf8a6f7004"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel-> + "In[142]:=",ExpressionUUID->"936846c9-ebd9-0340-9945-b210a517ddeb"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk8VF8bAPCiBW9SUrbBvTO2MArZUs4TWkhliR9SyV5UaNNqSdqkECFk +mWaEcG8lKZHKFkXIlqW02JfIUug9/prP9zNzz5x7nuc8z0M6H7Vy45s3b57g +/Hnz5j7H2yveyF+/bfjubgCUBmga1idJnN7U5Id0pjlCKpPLEKz84CzRFIzo +6IHrCyYJdNIio5G/KRK56geKDE+sRcsHxSOnGlNRKu9/be0TgDpe7Dw61kij +lnahYwUTFmiLfG/bSGMJEvTYPqM34YSmGnWjhxs/opfmuS4Gv33Qa2Mepza1 +C/VPHLaMTQ1CjI5nP5zVBhD9wtJoTOYaEvPen7HYeBSlBzlbblaNQJEaW57v +tJlEwbaL/VrDo1Fz7NrikWUzqG/5mqXZkXHoOifgA5/kfPh8RK0oqjYRid/u +uhqVyA9U0gPFmMFkdHm3qeHH8YUQm58Gr16lomP6KfsrggWArWf8Ah5wkMnQ +nzNHuoRAChK7vjhyUdAGywNSesLAtTOV+G+Mh9Znxz2+UCQCNXdnxxh3HiDv +yZHAcuHl4Gr1auvHRZloSnVZO9tGFCZWmO5nnc1CGzKzkmNiVkBPl7qDWPVD +NCJq5mRbIgaSzhzJH4PZ6FuYk63f4lXQHBptc3pRLjIdOmX6XUccCgauR/tf +yEX9LgLHHgdIwErJwKv3RnLxeYrzXS6RhFJKy/CGNYV6nLemG5RJwrraom3t +uykUlnJq5/A7SWg9EBusbkuhOtmmePsGSeAc0g+psqOQk2Scllq3JGxKvVI0 +u5dCp5dKu9UKS8FF3WmJDZ4UypqULZe2l4LJ+AtHpc5RSLRaMTx3SAo84kaT +3VMoNDu09n7lmBQI/fWMuptKoV5RgxffpqSgI+VrxIc0CpXY7eqVWCANadsX +PFrHpdCxb6e2BElIw4+bw6GjGRSq/1s+a7lJGuqS1c8bP6bQHRWvo6OR0uB/ +h/tdrZRCITtOhArHSkOA54lDxmUU8vEJSFRKlIZ36Py0XTmFtuVFvdvDk4Zq +SddtQZUUmtz0QunNc2mQzysLLH1PIQd74c7b36RBO3nsPKuRQowrORY6Ogxo +crg9q/STQhnZD19PrWfAzKKfNSLdFNJryNQpRAyQE+mvGcfezUxnmJgyoNdP +36GkF5/ni+RuS0cGaPGkonYNUujvcETg4WAGlFn94hn9plCL/fFcznsGCDCm +cq/z0cgz0I/lWceADErZwp6fRuNcnxjVJga0d12VVVxAI9Ex73P0FwYY8600 +LVxII7Nwt23FYwzYRr349EWARs9KbDtbpWSgOWSig1+ERrGq+stWeMiAoqCD +UJYUjWy2V9966SUDedGT8o7SeD2vA8sP+cjAj+wI//8xaHQ946roq9MyOP/7 +Kj1kaHRhdYvY0TAZ0PIrkxEnaOSqdFbyHSUDb3YmX7FQoJEGq5B5cVoGDJ/e +aFZfQ6NBI8s09fmy4Fp5a00pdobzd1bLQlkgzT2KHdfSSD5VWEFDRBYc1lVH +XtagkQS5T6mDlIXUdO3pOi0azcr+UzXYKgsKr72HturRqFJqk/ZoBP79zZcV +CUCjGtkcxQV3ZCG7V8pacRONPjFlJFYmyIJAfMN4NvYXlak/OlxZ2KHz8kah +EY0m11PFZwpkwWZp5d8PJjRS3EOa83XJAs/pWH/FNhqp7b+5cUW3LFzV0FDc +bEojTZcZdfkBWTC0yztbhL3Rq3n5lgm8P/NjZygzGu0+G9F49X9yYKJgUnHN +nEbBd+e7LF8nB9eE2opFLWh05d7R3Ux9OTAOEikJwA5Pa9usZSgHF55f7OzD +jst8pmyzTQ5GjkaeeGVJo9znvoOxjnLww2yUz9maRu2tX04Tl+Sgg7mz2N+W +RusZJbfWfJKDKbb+iZk9NPrKkm/vaZGDsQb5oW2ONLqqGqrK6ZAD/WQ7bhR2 +03qzUokeOfDWGKxS3EujU/Yf/86flgMXCdUZ4300ctjuq9W7jIDh9V3T9k40 +Ut/FdNi6goAcUz+bOGw+67pAzkoCHh2939+I/cBB+/0+KQI+P7RotDqAz/Pg +lGcdi4CHu1WSkTONYq4EJb3QIUBx240Vv11odChM862kPgHamq1Oyq40MrzV +1XfSgIBv7tqDDtjf72zW1wD8vMuhikLsdTzB+vumBAho7gk540YjgcyCP3zm +BChxbtbzsD9ne5FOOwl4P3vFrR77Yl71ESlr/Pt7Smaq7jT6+DZC8KYjAVvO +pRE12NwKo7X9+wjwqblxegL7TPWorekBAi6mTa6Q9aAR2WDD4XcnIMU3W/gg +ts83SeR/lIBzA1ri49gm3ZVuDb4EqCg+vyDuifOz/2yY5nECqlyDlPWwi0bb +mvv9CWCtVDU+hb2UP/X4gWACfj2OudOPvWiqyHokBD+v1m4ndBDn82CbZtBl +AjaQihuUsIdaJEeSwwioLdU6uA+7u0a3Zu1NAnqLdB/5Y3eW2uQURxDwtyxf +LhK7ho443BlDgIhJjlMJdnl6jrlPHAGzF1y0m7GLk6pV5yUQkG0ryh7Cpq4J +9sqlEDBPvP2SxCF8/wKVKnLS8H5N1v9UxU49uTkdcQmYjhHxNsSOdA5y359J +AO8rp9MJ+5rdvc1DD/H+Ejg1PtjBOwvlA3IJ2PUv4VsA9hmTVn6RRwSkL89m +hGMfWz/1NekJAR97J/zvYnuvFS9RzydgExU/xcN2VdROeVlAQH18XtIjbEeG +deDOQgJa+r08X2LvFvXd315EwILpFttybHOBm4ZHSghwVpM/VIttMpslM/uG +AMcRj9Rm7A1jldM3ygjIrC7914mt3dvdKlNJgI31geCf2Oqdi54/rML5xbJT +GcBW/CQfv/EDAfpD7yZGsGWrjE5X1xLw9kRb72/sVSVOdnvrCdgW+pB/Cntp +/gXdgU8EDM06Gv3FXpSdsOp8MwFC1Ut409izaQW/l3zGHmjTmMGeiGuqT2gn +IODQyNe574dvjj9S+0KAoJNnwdzz3ZfEol50EeA04ZI/t37nWU0/8x8EGBxc +2DaO3eRrYfm5m4C9M4eVR7FrPI6s9e4jIEioKH4Qu3xvmMj0AAF7xiXX9WAX +W2cMXh8mIAw3qK/Yz0zLq6VHcTy2H/vcik2jH1mZvwmQefe4r24u/toLwgwm +CUA2ocx3c/FXZXq9+0OATrxg0CvseBLM9swQMGPntPjpXD6I71vd9w/vZ3/W +k8y5fBA+J3CWj4SuqyJh97DPTj0tjV9MguniNCoE+/hQw30VIRJ+OorPPzkX +/++jIQVLSJD5rHLafS7etWuMW5aTID37tMtkLt5lO5iHxEhokzj5SXMu3oVe +8/+sImHZDsdfctgbH/CKJBkk8EeqcCdwPssGyW2wVyThcebt+YnY2ccEmG3K +JCSLDeeFYBu6jyw+oEqC637jJC/svdtf13muJcHb34ZfFzthpYeX/3oSntBv +Vd7g+6kmYGE5vQHvr+z8sfvYz//o6QYiEiw+6gxdwm7pEOK/YkLCJSuNQBNs +yYzs+Ds7SRAKGPlfPq4P6Ql3AqUtSdjq5zAcia13M9D9njUJ8c9rBA5j2x23 +0uTZkfD+lPenuXoTYzhekedMwtPzK7v9cT0Sq9s41XCSBI7GP77FuJ5x3ip2 +2J8mwbhKXa8B10OtfJG3bWdJqFULT0vFtkr8cut7IAnWce4yBtgRHpeUf18j +QdfaNMUZ19ul01X/id0jwbnfTiAM1+ekwScbY1NISLJsyN2Brf4licXgkDB6 +PTdiKfaOUp8h1gMS/MaWzdzA9T3slthlrUck5Pg6XLi4n0aCCo55VmV4P02G +Zqa4fxySRGaZFSRM2S6+w49dKcxs568iYeN7Ub1C3G/Cxn8ufFJDwrnPHqfU +sZeWH7MRbyGhtBsGBfbMzRfXx1r7SZh/LeBToh2NGFSBppsoE96JhRzYhvvd +ufuJpYViTFAwl/QZsKJRW1ygwypxJrRPZ36KwE4K3hJcJs2Ewr3GWU24XxK7 +P9auVmBCwUz4uX24nypM9PgM6jJBYrNjldkO/L4bJXNO7WXCWypmHm8LjR6x +Dv7lc2JCWhynjo2tJ/Rsa7gzEyqEMr4/2kwjo0a7To4HEw43GpQV4vnA1jd2 ++UdfJuzjdISU4/kh4L74cbVQJmxZ5CNcYIjvp/Aq/S/ZTLi5QNFnqQ6ep8bc +LnlT+P/qYnzOa+P8aXlSO/EIv5/wqid962j0jWdzaOkzJkQ7fBcqxfPN5Kbo +uwavmZDwzGLQF88/5Emx2ehGJmxML83nqtHIr130tdk8FoTvjw26xMT3v9Sx +MIOPBU9ERa91k/g+5HCfCi1kwYiq7agZdmXA+qxKQRbYri/vFsbzGZN0jjZb +wQLlSTmXMDy/1bpQHmaKLPh8d9VjLwkare3ZtcTMnAXfPS1fPBbG/Wg0zMY0 +lgVsn1AF/3EKfW5KsU2MZ4G7VZ9lPp5PKwvz/htJYIGlyqeBiTEKcS532sel +sOBXaOnxE6N4XpZet68ngwV8z2pKDg5T6K1Rq/vVQhY4Lok6r4vn37sRq/0r +vrKgx195v2cbhbauKY03ZctDxyM4olRCoZejBn8n3ssDs1FiYVUAhY6oabbU +uimAVZGkYKA+hTYOutbbCyrC7bi+85+/5aLN8hI7hFMVoVM65HJkeC5SDrzm +X6KrBHt1XgpVa+UiFTf9IoUWJYiuN1IyiclBbi89Qx77KkOT+y/hsPJsVJRc +7zqycjXERQf8rOp4iMbS/02seboagmZKBWp+ZSEXhUzB+B0qMKDel3JYJAuN +qETp0MMqkGjc02C1IhPlc/5++X1FFVYfNjg6xMpADiYsMJBVA/nvnNownQdI ++vDlZ+rFarDky3c5Ga10tFLIm9rxHxtcUuKjNwMPcYzPnxm2Z8Mf37NLBDfw +kOb5cOMoRzaI2L69XKXLQzuHcxuaDrChxL46zHoND4V++j3l4s0Gvyi95gOy +PDSZGmB0JogNgntCiwKmuajFIKqOm8kGh+KGtpJ8LvI8wUkwzWbDxxtNpy4/ +5qLx7Cdu/blscHv2Vc48l4tEmU0TGnls4K4xuNvA46LtAjKMwmI2aHbob+2J +4aIX9VzXugY2HAwXyVtxgovMluazTzaxIePdS+tmHy5q2loxLtHKhjvurAX3 +vLlorKDvyr5ONrxR1k5SceUidsrahz29bBAjI4qMrPF6LZtOhg2w4ZoK31+B +XXg9MWu0ZpgNmzVPbf9gxkXul0/UHv/Nhq6vkWqORni94tB48Uk2VCpWFTIN +uSj4zx2Xgj/4vJLU3Xr0uWjZugdqe2fYUO7Ez8rV5qKkwwW///1jw3yvqImT +Glz0f9N7ndQ= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VF8bAPCiBW9SUrbBvTO2MArZUs4TWkhliR9SyV5UaNNqSdqkECFk +mWaEcG8lKZHKFkXIlqW02JfIUug9/prP9zNzz5x7nuc8z0M6H7Vy45s3b57g +/Hnz5j7H2yveyF+/bfjubgCUBmga1idJnN7U5Id0pjlCKpPLEKz84CzRFIzo +6IHrCyYJdNIio5G/KRK56geKDE+sRcsHxSOnGlNRKu9/be0TgDpe7Dw61kij +lnahYwUTFmiLfG/bSGMJEvTYPqM34YSmGnWjhxs/opfmuS4Gv33Qa2Mepza1 +C/VPHLaMTQ1CjI5nP5zVBhD9wtJoTOYaEvPen7HYeBSlBzlbblaNQJEaW57v +tJlEwbaL/VrDo1Fz7NrikWUzqG/5mqXZkXHoOifgA5/kfPh8RK0oqjYRid/u +uhqVyA9U0gPFmMFkdHm3qeHH8YUQm58Gr16lomP6KfsrggWArWf8Ah5wkMnQ +nzNHuoRAChK7vjhyUdAGywNSesLAtTOV+G+Mh9Znxz2+UCQCNXdnxxh3HiDv +yZHAcuHl4Gr1auvHRZloSnVZO9tGFCZWmO5nnc1CGzKzkmNiVkBPl7qDWPVD +NCJq5mRbIgaSzhzJH4PZ6FuYk63f4lXQHBptc3pRLjIdOmX6XUccCgauR/tf +yEX9LgLHHgdIwErJwKv3RnLxeYrzXS6RhFJKy/CGNYV6nLemG5RJwrraom3t +uykUlnJq5/A7SWg9EBusbkuhOtmmePsGSeAc0g+psqOQk2Scllq3JGxKvVI0 +u5dCp5dKu9UKS8FF3WmJDZ4UypqULZe2l4LJ+AtHpc5RSLRaMTx3SAo84kaT +3VMoNDu09n7lmBQI/fWMuptKoV5RgxffpqSgI+VrxIc0CpXY7eqVWCANadsX +PFrHpdCxb6e2BElIw4+bw6GjGRSq/1s+a7lJGuqS1c8bP6bQHRWvo6OR0uB/ +h/tdrZRCITtOhArHSkOA54lDxmUU8vEJSFRKlIZ36Py0XTmFtuVFvdvDk4Zq +SddtQZUUmtz0QunNc2mQzysLLH1PIQd74c7b36RBO3nsPKuRQowrORY6Ogxo +crg9q/STQhnZD19PrWfAzKKfNSLdFNJryNQpRAyQE+mvGcfezUxnmJgyoNdP +36GkF5/ni+RuS0cGaPGkonYNUujvcETg4WAGlFn94hn9plCL/fFcznsGCDCm +cq/z0cgz0I/lWceADErZwp6fRuNcnxjVJga0d12VVVxAI9Ex73P0FwYY8600 +LVxII7Nwt23FYwzYRr349EWARs9KbDtbpWSgOWSig1+ERrGq+stWeMiAoqCD +UJYUjWy2V9966SUDedGT8o7SeD2vA8sP+cjAj+wI//8xaHQ946roq9MyOP/7 +Kj1kaHRhdYvY0TAZ0PIrkxEnaOSqdFbyHSUDb3YmX7FQoJEGq5B5cVoGDJ/e +aFZfQ6NBI8s09fmy4Fp5a00pdobzd1bLQlkgzT2KHdfSSD5VWEFDRBYc1lVH +XtagkQS5T6mDlIXUdO3pOi0azcr+UzXYKgsKr72HturRqFJqk/ZoBP79zZcV +CUCjGtkcxQV3ZCG7V8pacRONPjFlJFYmyIJAfMN4NvYXlak/OlxZ2KHz8kah +EY0m11PFZwpkwWZp5d8PJjRS3EOa83XJAs/pWH/FNhqp7b+5cUW3LFzV0FDc +bEojTZcZdfkBWTC0yztbhL3Rq3n5lgm8P/NjZygzGu0+G9F49X9yYKJgUnHN +nEbBd+e7LF8nB9eE2opFLWh05d7R3Ux9OTAOEikJwA5Pa9usZSgHF55f7OzD +jst8pmyzTQ5GjkaeeGVJo9znvoOxjnLww2yUz9maRu2tX04Tl+Sgg7mz2N+W +RusZJbfWfJKDKbb+iZk9NPrKkm/vaZGDsQb5oW2ONLqqGqrK6ZAD/WQ7bhR2 +03qzUokeOfDWGKxS3EujU/Yf/86flgMXCdUZ4300ctjuq9W7jIDh9V3T9k40 +Ut/FdNi6goAcUz+bOGw+67pAzkoCHh2939+I/cBB+/0+KQI+P7RotDqAz/Pg +lGcdi4CHu1WSkTONYq4EJb3QIUBx240Vv11odChM862kPgHamq1Oyq40MrzV +1XfSgIBv7tqDDtjf72zW1wD8vMuhikLsdTzB+vumBAho7gk540YjgcyCP3zm +BChxbtbzsD9ne5FOOwl4P3vFrR77Yl71ESlr/Pt7Smaq7jT6+DZC8KYjAVvO +pRE12NwKo7X9+wjwqblxegL7TPWorekBAi6mTa6Q9aAR2WDD4XcnIMU3W/gg +ts83SeR/lIBzA1ri49gm3ZVuDb4EqCg+vyDuifOz/2yY5nECqlyDlPWwi0bb +mvv9CWCtVDU+hb2UP/X4gWACfj2OudOPvWiqyHokBD+v1m4ndBDn82CbZtBl +AjaQihuUsIdaJEeSwwioLdU6uA+7u0a3Zu1NAnqLdB/5Y3eW2uQURxDwtyxf +LhK7ho443BlDgIhJjlMJdnl6jrlPHAGzF1y0m7GLk6pV5yUQkG0ryh7Cpq4J +9sqlEDBPvP2SxCF8/wKVKnLS8H5N1v9UxU49uTkdcQmYjhHxNsSOdA5y359J +AO8rp9MJ+5rdvc1DD/H+Ejg1PtjBOwvlA3IJ2PUv4VsA9hmTVn6RRwSkL89m +hGMfWz/1NekJAR97J/zvYnuvFS9RzydgExU/xcN2VdROeVlAQH18XtIjbEeG +deDOQgJa+r08X2LvFvXd315EwILpFttybHOBm4ZHSghwVpM/VIttMpslM/uG +AMcRj9Rm7A1jldM3ygjIrC7914mt3dvdKlNJgI31geCf2Oqdi54/rML5xbJT +GcBW/CQfv/EDAfpD7yZGsGWrjE5X1xLw9kRb72/sVSVOdnvrCdgW+pB/Cntp +/gXdgU8EDM06Gv3FXpSdsOp8MwFC1Ut409izaQW/l3zGHmjTmMGeiGuqT2gn +IODQyNe574dvjj9S+0KAoJNnwdzz3ZfEol50EeA04ZI/t37nWU0/8x8EGBxc +2DaO3eRrYfm5m4C9M4eVR7FrPI6s9e4jIEioKH4Qu3xvmMj0AAF7xiXX9WAX +W2cMXh8mIAw3qK/Yz0zLq6VHcTy2H/vcik2jH1mZvwmQefe4r24u/toLwgwm +CUA2ocx3c/FXZXq9+0OATrxg0CvseBLM9swQMGPntPjpXD6I71vd9w/vZ3/W +k8y5fBA+J3CWj4SuqyJh97DPTj0tjV9MguniNCoE+/hQw30VIRJ+OorPPzkX +/++jIQVLSJD5rHLafS7etWuMW5aTID37tMtkLt5lO5iHxEhokzj5SXMu3oVe +8/+sImHZDsdfctgbH/CKJBkk8EeqcCdwPssGyW2wVyThcebt+YnY2ccEmG3K +JCSLDeeFYBu6jyw+oEqC637jJC/svdtf13muJcHb34ZfFzthpYeX/3oSntBv +Vd7g+6kmYGE5vQHvr+z8sfvYz//o6QYiEiw+6gxdwm7pEOK/YkLCJSuNQBNs +yYzs+Ds7SRAKGPlfPq4P6Ql3AqUtSdjq5zAcia13M9D9njUJ8c9rBA5j2x23 +0uTZkfD+lPenuXoTYzhekedMwtPzK7v9cT0Sq9s41XCSBI7GP77FuJ5x3ip2 +2J8mwbhKXa8B10OtfJG3bWdJqFULT0vFtkr8cut7IAnWce4yBtgRHpeUf18j +QdfaNMUZ19ul01X/id0jwbnfTiAM1+ekwScbY1NISLJsyN2Brf4licXgkDB6 +PTdiKfaOUp8h1gMS/MaWzdzA9T3slthlrUck5Pg6XLi4n0aCCo55VmV4P02G +Zqa4fxySRGaZFSRM2S6+w49dKcxs568iYeN7Ub1C3G/Cxn8ufFJDwrnPHqfU +sZeWH7MRbyGhtBsGBfbMzRfXx1r7SZh/LeBToh2NGFSBppsoE96JhRzYhvvd +ufuJpYViTFAwl/QZsKJRW1ygwypxJrRPZ36KwE4K3hJcJs2Ewr3GWU24XxK7 +P9auVmBCwUz4uX24nypM9PgM6jJBYrNjldkO/L4bJXNO7WXCWypmHm8LjR6x +Dv7lc2JCWhynjo2tJ/Rsa7gzEyqEMr4/2kwjo0a7To4HEw43GpQV4vnA1jd2 ++UdfJuzjdISU4/kh4L74cbVQJmxZ5CNcYIjvp/Aq/S/ZTLi5QNFnqQ6ep8bc +LnlT+P/qYnzOa+P8aXlSO/EIv5/wqid962j0jWdzaOkzJkQ7fBcqxfPN5Kbo +uwavmZDwzGLQF88/5Emx2ehGJmxML83nqtHIr130tdk8FoTvjw26xMT3v9Sx +MIOPBU9ERa91k/g+5HCfCi1kwYiq7agZdmXA+qxKQRbYri/vFsbzGZN0jjZb +wQLlSTmXMDy/1bpQHmaKLPh8d9VjLwkare3ZtcTMnAXfPS1fPBbG/Wg0zMY0 +lgVsn1AF/3EKfW5KsU2MZ4G7VZ9lPp5PKwvz/htJYIGlyqeBiTEKcS532sel +sOBXaOnxE6N4XpZet68ngwV8z2pKDg5T6K1Rq/vVQhY4Lok6r4vn37sRq/0r +vrKgx195v2cbhbauKY03ZctDxyM4olRCoZejBn8n3ssDs1FiYVUAhY6oabbU +uimAVZGkYKA+hTYOutbbCyrC7bi+85+/5aLN8hI7hFMVoVM65HJkeC5SDrzm +X6KrBHt1XgpVa+UiFTf9IoUWJYiuN1IyiclBbi89Qx77KkOT+y/hsPJsVJRc +7zqycjXERQf8rOp4iMbS/02seboagmZKBWp+ZSEXhUzB+B0qMKDel3JYJAuN +qETp0MMqkGjc02C1IhPlc/5++X1FFVYfNjg6xMpADiYsMJBVA/nvnNownQdI ++vDlZ+rFarDky3c5Ga10tFLIm9rxHxtcUuKjNwMPcYzPnxm2Z8Mf37NLBDfw +kOb5cOMoRzaI2L69XKXLQzuHcxuaDrChxL46zHoND4V++j3l4s0Gvyi95gOy +PDSZGmB0JogNgntCiwKmuajFIKqOm8kGh+KGtpJ8LvI8wUkwzWbDxxtNpy4/ +5qLx7Cdu/blscHv2Vc48l4tEmU0TGnls4K4xuNvA46LtAjKMwmI2aHbob+2J +4aIX9VzXugY2HAwXyVtxgovMluazTzaxIePdS+tmHy5q2loxLtHKhjvurAX3 +vLlorKDvyr5ONrxR1k5SceUidsrahz29bBAjI4qMrPF6LZtOhg2w4ZoK31+B +XXg9MWu0ZpgNmzVPbf9gxkXul0/UHv/Nhq6vkWqORni94tB48Uk2VCpWFTIN +uSj4zx2Xgj/4vJLU3Xr0uWjZugdqe2fYUO7Ez8rV5qKkwwW///1jw3yvqImT +Glz0f9N7ndQ= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.07194502322629517}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.07194502322629517}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VF8bAPCiBW9SUrbBvTO2MArZUs4TWkhliR9SyV5UaNNqSdqkECFk +mWaEcG8lKZHKFkXIlqW02JfIUug9/prP9zNzz5x7nuc8z0M6H7Vy45s3b57g +/Hnz5j7H2yveyF+/bfjubgCUBmga1idJnN7U5Id0pjlCKpPLEKz84CzRFIzo +6IHrCyYJdNIio5G/KRK56geKDE+sRcsHxSOnGlNRKu9/be0TgDpe7Dw61kij +lnahYwUTFmiLfG/bSGMJEvTYPqM34YSmGnWjhxs/opfmuS4Gv33Qa2Mepza1 +C/VPHLaMTQ1CjI5nP5zVBhD9wtJoTOYaEvPen7HYeBSlBzlbblaNQJEaW57v +tJlEwbaL/VrDo1Fz7NrikWUzqG/5mqXZkXHoOifgA5/kfPh8RK0oqjYRid/u +uhqVyA9U0gPFmMFkdHm3qeHH8YUQm58Gr16lomP6KfsrggWArWf8Ah5wkMnQ +nzNHuoRAChK7vjhyUdAGywNSesLAtTOV+G+Mh9Znxz2+UCQCNXdnxxh3HiDv +yZHAcuHl4Gr1auvHRZloSnVZO9tGFCZWmO5nnc1CGzKzkmNiVkBPl7qDWPVD +NCJq5mRbIgaSzhzJH4PZ6FuYk63f4lXQHBptc3pRLjIdOmX6XUccCgauR/tf +yEX9LgLHHgdIwErJwKv3RnLxeYrzXS6RhFJKy/CGNYV6nLemG5RJwrraom3t +uykUlnJq5/A7SWg9EBusbkuhOtmmePsGSeAc0g+psqOQk2Scllq3JGxKvVI0 +u5dCp5dKu9UKS8FF3WmJDZ4UypqULZe2l4LJ+AtHpc5RSLRaMTx3SAo84kaT +3VMoNDu09n7lmBQI/fWMuptKoV5RgxffpqSgI+VrxIc0CpXY7eqVWCANadsX +PFrHpdCxb6e2BElIw4+bw6GjGRSq/1s+a7lJGuqS1c8bP6bQHRWvo6OR0uB/ +h/tdrZRCITtOhArHSkOA54lDxmUU8vEJSFRKlIZ36Py0XTmFtuVFvdvDk4Zq +SddtQZUUmtz0QunNc2mQzysLLH1PIQd74c7b36RBO3nsPKuRQowrORY6Ogxo +crg9q/STQhnZD19PrWfAzKKfNSLdFNJryNQpRAyQE+mvGcfezUxnmJgyoNdP +36GkF5/ni+RuS0cGaPGkonYNUujvcETg4WAGlFn94hn9plCL/fFcznsGCDCm +cq/z0cgz0I/lWceADErZwp6fRuNcnxjVJga0d12VVVxAI9Ex73P0FwYY8600 +LVxII7Nwt23FYwzYRr349EWARs9KbDtbpWSgOWSig1+ERrGq+stWeMiAoqCD +UJYUjWy2V9966SUDedGT8o7SeD2vA8sP+cjAj+wI//8xaHQ946roq9MyOP/7 +Kj1kaHRhdYvY0TAZ0PIrkxEnaOSqdFbyHSUDb3YmX7FQoJEGq5B5cVoGDJ/e +aFZfQ6NBI8s09fmy4Fp5a00pdobzd1bLQlkgzT2KHdfSSD5VWEFDRBYc1lVH +XtagkQS5T6mDlIXUdO3pOi0azcr+UzXYKgsKr72HturRqFJqk/ZoBP79zZcV +CUCjGtkcxQV3ZCG7V8pacRONPjFlJFYmyIJAfMN4NvYXlak/OlxZ2KHz8kah +EY0m11PFZwpkwWZp5d8PJjRS3EOa83XJAs/pWH/FNhqp7b+5cUW3LFzV0FDc +bEojTZcZdfkBWTC0yztbhL3Rq3n5lgm8P/NjZygzGu0+G9F49X9yYKJgUnHN +nEbBd+e7LF8nB9eE2opFLWh05d7R3Ux9OTAOEikJwA5Pa9usZSgHF55f7OzD +jst8pmyzTQ5GjkaeeGVJo9znvoOxjnLww2yUz9maRu2tX04Tl+Sgg7mz2N+W +RusZJbfWfJKDKbb+iZk9NPrKkm/vaZGDsQb5oW2ONLqqGqrK6ZAD/WQ7bhR2 +03qzUokeOfDWGKxS3EujU/Yf/86flgMXCdUZ4300ctjuq9W7jIDh9V3T9k40 +Ut/FdNi6goAcUz+bOGw+67pAzkoCHh2939+I/cBB+/0+KQI+P7RotDqAz/Pg +lGcdi4CHu1WSkTONYq4EJb3QIUBx240Vv11odChM862kPgHamq1Oyq40MrzV +1XfSgIBv7tqDDtjf72zW1wD8vMuhikLsdTzB+vumBAho7gk540YjgcyCP3zm +BChxbtbzsD9ne5FOOwl4P3vFrR77Yl71ESlr/Pt7Smaq7jT6+DZC8KYjAVvO +pRE12NwKo7X9+wjwqblxegL7TPWorekBAi6mTa6Q9aAR2WDD4XcnIMU3W/gg +ts83SeR/lIBzA1ri49gm3ZVuDb4EqCg+vyDuifOz/2yY5nECqlyDlPWwi0bb +mvv9CWCtVDU+hb2UP/X4gWACfj2OudOPvWiqyHokBD+v1m4ndBDn82CbZtBl +AjaQihuUsIdaJEeSwwioLdU6uA+7u0a3Zu1NAnqLdB/5Y3eW2uQURxDwtyxf +LhK7ho443BlDgIhJjlMJdnl6jrlPHAGzF1y0m7GLk6pV5yUQkG0ryh7Cpq4J +9sqlEDBPvP2SxCF8/wKVKnLS8H5N1v9UxU49uTkdcQmYjhHxNsSOdA5y359J +AO8rp9MJ+5rdvc1DD/H+Ejg1PtjBOwvlA3IJ2PUv4VsA9hmTVn6RRwSkL89m +hGMfWz/1NekJAR97J/zvYnuvFS9RzydgExU/xcN2VdROeVlAQH18XtIjbEeG +deDOQgJa+r08X2LvFvXd315EwILpFttybHOBm4ZHSghwVpM/VIttMpslM/uG +AMcRj9Rm7A1jldM3ygjIrC7914mt3dvdKlNJgI31geCf2Oqdi54/rML5xbJT +GcBW/CQfv/EDAfpD7yZGsGWrjE5X1xLw9kRb72/sVSVOdnvrCdgW+pB/Cntp +/gXdgU8EDM06Gv3FXpSdsOp8MwFC1Ut409izaQW/l3zGHmjTmMGeiGuqT2gn +IODQyNe574dvjj9S+0KAoJNnwdzz3ZfEol50EeA04ZI/t37nWU0/8x8EGBxc +2DaO3eRrYfm5m4C9M4eVR7FrPI6s9e4jIEioKH4Qu3xvmMj0AAF7xiXX9WAX +W2cMXh8mIAw3qK/Yz0zLq6VHcTy2H/vcik2jH1mZvwmQefe4r24u/toLwgwm +CUA2ocx3c/FXZXq9+0OATrxg0CvseBLM9swQMGPntPjpXD6I71vd9w/vZ3/W +k8y5fBA+J3CWj4SuqyJh97DPTj0tjV9MguniNCoE+/hQw30VIRJ+OorPPzkX +/++jIQVLSJD5rHLafS7etWuMW5aTID37tMtkLt5lO5iHxEhokzj5SXMu3oVe +8/+sImHZDsdfctgbH/CKJBkk8EeqcCdwPssGyW2wVyThcebt+YnY2ccEmG3K +JCSLDeeFYBu6jyw+oEqC637jJC/svdtf13muJcHb34ZfFzthpYeX/3oSntBv +Vd7g+6kmYGE5vQHvr+z8sfvYz//o6QYiEiw+6gxdwm7pEOK/YkLCJSuNQBNs +yYzs+Ds7SRAKGPlfPq4P6Ql3AqUtSdjq5zAcia13M9D9njUJ8c9rBA5j2x23 +0uTZkfD+lPenuXoTYzhekedMwtPzK7v9cT0Sq9s41XCSBI7GP77FuJ5x3ip2 +2J8mwbhKXa8B10OtfJG3bWdJqFULT0vFtkr8cut7IAnWce4yBtgRHpeUf18j +QdfaNMUZ19ul01X/id0jwbnfTiAM1+ekwScbY1NISLJsyN2Brf4licXgkDB6 +PTdiKfaOUp8h1gMS/MaWzdzA9T3slthlrUck5Pg6XLi4n0aCCo55VmV4P02G +Zqa4fxySRGaZFSRM2S6+w49dKcxs568iYeN7Ub1C3G/Cxn8ufFJDwrnPHqfU +sZeWH7MRbyGhtBsGBfbMzRfXx1r7SZh/LeBToh2NGFSBppsoE96JhRzYhvvd +ufuJpYViTFAwl/QZsKJRW1ygwypxJrRPZ36KwE4K3hJcJs2Ewr3GWU24XxK7 +P9auVmBCwUz4uX24nypM9PgM6jJBYrNjldkO/L4bJXNO7WXCWypmHm8LjR6x +Dv7lc2JCWhynjo2tJ/Rsa7gzEyqEMr4/2kwjo0a7To4HEw43GpQV4vnA1jd2 ++UdfJuzjdISU4/kh4L74cbVQJmxZ5CNcYIjvp/Aq/S/ZTLi5QNFnqQ6ep8bc +LnlT+P/qYnzOa+P8aXlSO/EIv5/wqid962j0jWdzaOkzJkQ7fBcqxfPN5Kbo +uwavmZDwzGLQF88/5Emx2ehGJmxML83nqtHIr130tdk8FoTvjw26xMT3v9Sx +MIOPBU9ERa91k/g+5HCfCi1kwYiq7agZdmXA+qxKQRbYri/vFsbzGZN0jjZb +wQLlSTmXMDy/1bpQHmaKLPh8d9VjLwkare3ZtcTMnAXfPS1fPBbG/Wg0zMY0 +lgVsn1AF/3EKfW5KsU2MZ4G7VZ9lPp5PKwvz/htJYIGlyqeBiTEKcS532sel +sOBXaOnxE6N4XpZet68ngwV8z2pKDg5T6K1Rq/vVQhY4Lok6r4vn37sRq/0r +vrKgx195v2cbhbauKY03ZctDxyM4olRCoZejBn8n3ssDs1FiYVUAhY6oabbU +uimAVZGkYKA+hTYOutbbCyrC7bi+85+/5aLN8hI7hFMVoVM65HJkeC5SDrzm +X6KrBHt1XgpVa+UiFTf9IoUWJYiuN1IyiclBbi89Qx77KkOT+y/hsPJsVJRc +7zqycjXERQf8rOp4iMbS/02seboagmZKBWp+ZSEXhUzB+B0qMKDel3JYJAuN +qETp0MMqkGjc02C1IhPlc/5++X1FFVYfNjg6xMpADiYsMJBVA/nvnNownQdI ++vDlZ+rFarDky3c5Ga10tFLIm9rxHxtcUuKjNwMPcYzPnxm2Z8Mf37NLBDfw +kOb5cOMoRzaI2L69XKXLQzuHcxuaDrChxL46zHoND4V++j3l4s0Gvyi95gOy +PDSZGmB0JogNgntCiwKmuajFIKqOm8kGh+KGtpJ8LvI8wUkwzWbDxxtNpy4/ +5qLx7Cdu/blscHv2Vc48l4tEmU0TGnls4K4xuNvA46LtAjKMwmI2aHbob+2J +4aIX9VzXugY2HAwXyVtxgovMluazTzaxIePdS+tmHy5q2loxLtHKhjvurAX3 +vLlorKDvyr5ONrxR1k5SceUidsrahz29bBAjI4qMrPF6LZtOhg2w4ZoK31+B +XXg9MWu0ZpgNmzVPbf9gxkXul0/UHv/Nhq6vkWqORni94tB48Uk2VCpWFTIN +uSj4zx2Xgj/4vJLU3Xr0uWjZugdqe2fYUO7Ez8rV5qKkwwW///1jw3yvqImT +Glz0f9N7ndQ= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.07194502322629517}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, + 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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, 15}, {0., 0.07194502322629517}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}, + 3.9921276097938023`*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"fa5f8941-1d61-0e4d-a082-5eef6b8bf7b8"] +}, 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[143]:=",ExpressionUUID->"2b7767f9-449f-c646-ae0c-43037957b685"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.934068699685951`*^-183\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 143, 950, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133920579224*^9, 3.992127609910677*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"d5211864-c5b7-704c-9ddf-8261fe243798"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3453014841305455`*^-186\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 143, 951, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133920579224*^9, 3.9921276099286537`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"a07dbd08-99bb-0a45-855a-d28958512a9b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0499075335943276`*^-190\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 143, 952, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133920579224*^9, 3.9921276099457474`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"209e2588-fe8e-4545-a28e-0171f2b30b4e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 143, 953, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133920579224*^9, 3.9921276099617615`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"897546b7-2efc-cd48-a2c8-35bdf728242e"], + +Cell[BoxData["13.35501843668308`"], "Output", + CellChangeTimes->{3.9913392124888554`*^9, 3.9921276798170567`*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"e31face5-1ec7-b846-b9e0-a1069a7d7dbd"] +}, 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.99184628914184*^9, 3.9918462932986107`*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"8304a1af-5a77-304f-9cc7-82724e2b3df7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.175099949954135`*^-226\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 144, 954, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125258827`*^9, 3.9921276799060745`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"c8979d66-3db9-1f4b-89fd-f5b33635060c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.2915526797635894`*^-232\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 144, 955, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125258827`*^9, 3.9921276799276905`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"0764be87-0c35-9441-bbb4-fcde4475a9fb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2577456221591466`*^-238\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 144, 956, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125258827`*^9, 3.992127679950327*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"9ad1c381-407f-4343-9739-f9519bf0bdd0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 144, 957, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125258827`*^9, 3.992127679966383*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"b85d2551-8b93-ba4e-9904-798d371b3e38"], + +Cell[BoxData["0.1063725243347252`"], "Output", + CellChangeTimes->{3.9913392196090164`*^9, 3.9921276905428925`*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"7572dae7-9073-3242-9916-5afbcefef2fb"] +}, 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.9918462963096733`*^9, 3.991846299126808*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"3ed977a3-b24a-0644-a438-d2ebbf0c1dea"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.175099949954135`*^-226\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 145, 958, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392196440163`*^9, 3.992127690639988*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"16f35669-dc0f-ca46-a314-5b8246613e72"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.2915526797635894`*^-232\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 145, 959, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392196440163`*^9, 3.992127690668991*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"bb240544-02f2-ca42-9bb4-ce727b9d4b83"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2577456221591466`*^-238\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 145, 960, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392196440163`*^9, 3.9921276906919384`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"f7c521db-9fcd-8d43-8124-e93bb900e618"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 145, 961, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392196440163`*^9, 3.992127690707983*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"c2d9131a-0554-944c-8919-447498e86e5a"], + +Cell[BoxData["30.504747052040845`"], "Output", + CellChangeTimes->{3.9913392268711624`*^9, 3.9921277009377155`*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"bbaa708d-88c2-4948-bcf9-4edb569086eb"] +}, 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.991846303469427*^9, 3.991846306205721*^9}}, + CellLabel-> + "In[146]:=",ExpressionUUID->"0a258b12-85fc-2a47-9b1a-8264aa20d65c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.175099949954135`*^-226\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 146, 962, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339226907137*^9, 3.9921277010416164`*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"88ec87c7-bce5-3841-bd4d-eb3882d41f76"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.2915526797635894`*^-232\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 146, 963, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339226907137*^9, 3.992127701062725*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"5a4b712e-899c-b94b-9846-fcd9df68f58f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2577456221591466`*^-238\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 146, 964, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339226907137*^9, 3.992127701085615*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"cd37bfcb-b8f4-7f45-ae8f-c862c6a025c1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 146, 965, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339226907137*^9, 3.9921277011057205`*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"301fbef2-ad3a-684d-9c2c-17be03fab629"], + +Cell[BoxData["15.072066548487765`"], "Output", + CellChangeTimes->{3.9913392304284153`*^9, 3.992127708657654*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"33d64f78-2e92-0c49-8a9d-37a41d5a1b6b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991846309734665*^9, 3.991846313322897*^9}}, + CellLabel-> + "In[147]:=",ExpressionUUID->"1cb0d12f-90a8-b449-9dd4-8435ee411a7c"], + +Cell[BoxData["0.004960887175393437`"], "Output", + CellChangeTimes->{3.9913392304624157`*^9, 3.992127708730072*^9}, + CellLabel-> + "Out[147]=",ExpressionUUID->"bf2cbee9-9b2b-9548-b69e-9b38f98a67d4"] +}, 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->"1d8c20c2-003a-2a4c-a42e-33895f032914" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 452, 7, 28, "Input",ExpressionUUID->"51e1ee3b-1506-2142-ada4-49148beae057"], +Cell[1031, 31, 356, 5, 32, "Output",ExpressionUUID->"ec2b1cc1-84f6-d844-9c4d-a0c1622e7d43"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1424, 41, 346, 5, 28, "Input",ExpressionUUID->"9a1e6247-d6ef-d041-a217-04fe824aeedf"], +Cell[1773, 48, 431, 6, 32, "Output",ExpressionUUID->"e2e47008-48c2-1046-af97-35aee60d9198"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2241, 59, 253, 5, 28, "Input",ExpressionUUID->"b1981f79-e30c-0f46-bc08-bc23f24386b0"], +Cell[2497, 66, 430, 6, 32, "Output",ExpressionUUID->"5a70f56e-dcfa-984c-b6e6-07f4ddb7cc4b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2964, 77, 175, 3, 28, "Input",ExpressionUUID->"2cf4b208-12a6-2d43-9458-3ba8417cd31d"], +Cell[3142, 82, 401, 6, 32, "Output",ExpressionUUID->"5804ddab-2638-1c43-9156-f9674592d854"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3580, 93, 257, 7, 43, "Input",ExpressionUUID->"44509503-dcd5-9b43-ae6b-657d6ac1a4f3"], +Cell[3840, 102, 412, 6, 32, "Output",ExpressionUUID->"8a6eeb7c-6433-1d47-8e60-4ec266ab2f57"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4289, 113, 131, 2, 28, "Input",ExpressionUUID->"5c080ea3-32bb-6249-a84c-4d97dd3d3662"], +Cell[4423, 117, 405, 6, 32, "Output",ExpressionUUID->"7f18923b-040c-3545-b655-8601c2a7d2e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4865, 128, 276, 6, 28, "Input",ExpressionUUID->"5630ec94-a3e3-0543-8c94-ad813bf68fd8"], +Cell[5144, 136, 420, 6, 32, "Output",ExpressionUUID->"9d1479c1-8d44-a14e-879e-2c2b78a318a3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5601, 147, 257, 7, 28, "Input",ExpressionUUID->"cab53dc3-45b4-d741-b47a-f58de81d260f"], +Cell[5861, 156, 418, 6, 32, "Output",ExpressionUUID->"5f22ef26-0302-ba44-abfc-e9ba76d754d6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6316, 167, 236, 4, 28, "Input",ExpressionUUID->"eb13a85a-c251-344e-98f5-49628a713293"], +Cell[6555, 173, 440, 6, 32, "Output",ExpressionUUID->"9fa98580-3426-7648-8f2c-6bbdf66c3739"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7032, 184, 236, 4, 28, "Input",ExpressionUUID->"b7aa99cf-e8e0-2646-9000-f47826a5fa8c"], +Cell[7271, 190, 440, 6, 32, "Output",ExpressionUUID->"ee5f1c98-d9f1-7f4b-8d88-dbf62acebd4a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7748, 201, 129, 2, 28, "Input",ExpressionUUID->"9a43e466-eb20-c349-aad0-f7d9399eabc4"], +Cell[7880, 205, 402, 6, 32, "Output",ExpressionUUID->"095ee166-2c94-074c-8c87-575f1f82cc4e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8319, 216, 129, 2, 28, "Input",ExpressionUUID->"8924849f-4efb-3441-8ea9-a8131ad1b117"], +Cell[8451, 220, 397, 6, 32, "Output",ExpressionUUID->"0a271413-9305-9a43-a968-96aebff6dc78"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8885, 231, 557, 19, 79, "Input",ExpressionUUID->"c8a986cd-c226-6845-b1ed-f25d53b15276"], +Cell[9445, 252, 398, 6, 32, "Output",ExpressionUUID->"517d52f4-d5a3-674b-bc64-0037d9999e72"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9880, 263, 557, 19, 79, "Input",ExpressionUUID->"61e96f72-be15-2348-902e-b95bef1b0970"], +Cell[10440, 284, 402, 6, 32, "Output",ExpressionUUID->"1e5daa67-0d5f-1c44-b14f-fc7302bdda06"] +}, Open ]], +Cell[CellGroupData[{ +Cell[10879, 295, 1492, 48, 80, "Input",ExpressionUUID->"6c8db003-b459-1046-8b0d-aacf7bcf5e64"], +Cell[12374, 345, 396, 6, 32, "Output",ExpressionUUID->"86e8e71e-2f9c-5948-8dd4-0c011671075b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[12807, 356, 1331, 44, 80, "Input",ExpressionUUID->"c0d9835e-ba01-d644-a425-af04f76c79f9"], +Cell[14141, 402, 414, 7, 32, "Output",ExpressionUUID->"3d033d3e-75d6-664e-b11b-86b5fbeccb3e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14592, 414, 1331, 44, 80, "Input",ExpressionUUID->"822bd092-10b9-364b-ac38-0c8ef3850844"], +Cell[15926, 460, 421, 7, 32, "Output",ExpressionUUID->"03197a32-9eec-b740-abd6-081bb36095de"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16384, 472, 1492, 48, 80, "Input",ExpressionUUID->"61086478-44f3-9142-816e-4d817646b2bb"], +Cell[17879, 522, 390, 6, 32, "Output",ExpressionUUID->"1cacd460-055d-8146-a728-16fff0275ec5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18306, 533, 131, 2, 28, "Input",ExpressionUUID->"36bbc0e0-8c8a-f14c-9773-382765630ba0"], +Cell[18440, 537, 380, 6, 32, "Output",ExpressionUUID->"aa6fd636-7066-c049-bf62-c94331f0c273"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18857, 548, 177, 3, 28, "Input",ExpressionUUID->"51619abf-47d4-9b4b-aa7f-ed8e6b2189e2"], +Cell[19037, 553, 380, 6, 32, "Output",ExpressionUUID->"562ae0ff-76e2-f342-9dde-226cca7fa091"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19454, 564, 134, 2, 28, "Input",ExpressionUUID->"e8ab3625-4c98-ff41-bd2a-4380cabf35bd"], +Cell[19591, 568, 385, 6, 32, "Output",ExpressionUUID->"0bd0faad-c762-ee47-a10d-0a8207f9bd70"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20013, 579, 219, 4, 28, "Input",ExpressionUUID->"3e9e91c8-ecd3-7547-9f08-c67c9d54935c"], +Cell[20235, 585, 391, 7, 32, "Output",ExpressionUUID->"824dddfa-469d-a147-9f5f-69ca7c28146b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20663, 597, 134, 2, 28, "Input",ExpressionUUID->"13f6143e-a294-1a44-8481-e8ec0c34082c"], +Cell[20800, 601, 384, 6, 32, "Output",ExpressionUUID->"8c8f3fb4-9c88-e04c-95e3-fc1cb2a839ce"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21221, 612, 302, 5, 28, "Input",ExpressionUUID->"1e64de56-807e-5f48-9109-aae8f8179740"], +Cell[21526, 619, 328, 5, 32, "Output",ExpressionUUID->"88789b77-20e9-e547-9ac1-8b4f6eee86ed"] +}, Open ]], +Cell[21869, 627, 173, 2, 22, "Input",ExpressionUUID->"12c1abcb-3110-5541-9b35-702e2880e2ed"], +Cell[CellGroupData[{ +Cell[22067, 633, 296, 5, 28, "Input",ExpressionUUID->"82665774-5610-794b-9343-af19ebbf36d7"], +Cell[22366, 640, 377, 6, 32, "Output",ExpressionUUID->"0f0e6ea5-9498-134c-9df5-4e5c6c4adc5b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22780, 651, 219, 4, 28, "Input",ExpressionUUID->"43d368ca-7cc5-cb47-a72e-72a16a3eeb08"], +Cell[23002, 657, 379, 6, 32, "Output",ExpressionUUID->"dc34ae61-8d75-2f4e-a4de-aec991074b77"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23418, 668, 350, 10, 43, "Input",ExpressionUUID->"69631857-3e93-8f48-962b-d79e311ee489"], +Cell[23771, 680, 397, 6, 32, "Output",ExpressionUUID->"c4f8c635-3fc0-4346-ac40-ae13389869a6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24205, 691, 350, 10, 43, "Input",ExpressionUUID->"c2b5dd01-b270-3440-b344-4e3f7685886d"], +Cell[24558, 703, 408, 7, 32, "Output",ExpressionUUID->"fd2fa645-9d8a-3549-89aa-934d28b30b2e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[25003, 715, 992, 26, 113, "Input",ExpressionUUID->"42e9fe7c-3531-db43-b44b-753d7b09e6e8"], +Cell[25998, 743, 400, 6, 32, "Output",ExpressionUUID->"6c642156-09e3-a64d-ae2d-c4f4942435dc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26435, 754, 199, 3, 28, "Input",ExpressionUUID->"15232d79-b562-2743-b703-c588fe35ef64"], +Cell[26637, 759, 384, 6, 32, "Output",ExpressionUUID->"dfda3edd-1093-4b4c-909f-188be4f12aba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27058, 770, 275, 4, 28, "Input",ExpressionUUID->"f397495f-3be4-2d45-8dc9-e47bce79df5e"], +Cell[27336, 776, 339, 5, 32, "Output",ExpressionUUID->"e758d57d-3b48-8c4a-b76b-e479470520db"] +}, Open ]], +Cell[27690, 784, 175, 2, 22, "Input",ExpressionUUID->"924aa44e-e680-714d-bc09-d33df054cfe8"], +Cell[CellGroupData[{ +Cell[27890, 790, 323, 5, 28, "Input",ExpressionUUID->"fd53a751-2574-9543-8d06-c3063423da3a"], +Cell[28216, 797, 337, 5, 32, "Output",ExpressionUUID->"eca98b90-302c-4449-a341-650cab59bd04"] +}, Open ]], +Cell[28568, 805, 173, 2, 22, "Input",ExpressionUUID->"4dbd4d7e-b600-9d42-9e69-07e52d42665d"], +Cell[CellGroupData[{ +Cell[28766, 811, 343, 6, 47, "Input",ExpressionUUID->"3539c2af-4482-0546-9f46-a3fc5627e0fe"], +Cell[29112, 819, 331, 5, 32, "Output",ExpressionUUID->"671c551e-a9b7-2140-880f-7973ee2106a7"] +}, Open ]], +Cell[29458, 827, 175, 2, 22, "Input",ExpressionUUID->"463df9d5-d39e-4648-8f37-4249afa5e486"], +Cell[CellGroupData[{ +Cell[29658, 833, 347, 6, 47, "Input",ExpressionUUID->"5f5a763c-a957-644f-8e0d-38698f3fd1f6"], +Cell[30008, 841, 337, 5, 32, "Output",ExpressionUUID->"4ace6427-95ef-d04f-a3a6-1ddd7c43acd6"] +}, Open ]], +Cell[30360, 849, 175, 2, 22, "Input",ExpressionUUID->"17a6622d-2b65-6644-b343-e379f6f7d132"], +Cell[CellGroupData[{ +Cell[30560, 855, 273, 4, 28, "Input",ExpressionUUID->"fae08226-5d13-2f40-8b87-bce8d385afcc"], +Cell[30836, 861, 329, 5, 32, "Output",ExpressionUUID->"3f4809f7-5e31-bc46-be9a-e7fc9a8e7128"] +}, Open ]], +Cell[31180, 869, 173, 2, 22, "Input",ExpressionUUID->"3731ab86-9ed6-0f4b-9170-2e63032d3966"], +Cell[CellGroupData[{ +Cell[31378, 875, 277, 4, 28, "Input",ExpressionUUID->"ddbf80bb-8754-d74d-bcd8-15b09ab81fba"], +Cell[31658, 881, 334, 5, 32, "Output",ExpressionUUID->"e40e10c1-07df-824e-b5c2-da141b7c50ec"] +}, Open ]], +Cell[32007, 889, 171, 2, 22, "Input",ExpressionUUID->"a5684cf8-f643-4344-ab61-217cc4468b84"], +Cell[CellGroupData[{ +Cell[32203, 895, 325, 6, 47, "Input",ExpressionUUID->"c6e6adfa-b3db-aa45-854a-05917a15c0ab"], +Cell[32531, 903, 326, 5, 32, "Output",ExpressionUUID->"65a56fcc-c8e3-6b4c-88db-4a6447466691"] +}, Open ]], +Cell[32872, 911, 175, 2, 22, "Input",ExpressionUUID->"1e2435eb-4249-7e41-81f4-31171b52cb70"], +Cell[CellGroupData[{ +Cell[33072, 917, 270, 5, 47, "Input",ExpressionUUID->"7b318c34-83e9-604a-a9b2-7f6629abfa5e"], +Cell[33345, 924, 328, 5, 32, "Output",ExpressionUUID->"ef154d48-dae1-ca40-8c8c-811ec46ecb91"] +}, Open ]], +Cell[33688, 932, 171, 2, 22, "Input",ExpressionUUID->"3a2429fb-bb8b-9d4f-b030-479fc57cb517"], +Cell[CellGroupData[{ +Cell[33884, 938, 19809, 485, 2217, "Input",ExpressionUUID->"4ee1e263-49b4-bf40-a4a9-882d032c6916"], +Cell[53696, 1425, 390, 6, 32, "Output",ExpressionUUID->"c5471fee-11ae-5148-bd4a-d2a262e9e91b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[54123, 1436, 19748, 489, 2216, "Input",ExpressionUUID->"d023b0f4-8dd6-4a49-9024-9a69501357ce"], +Cell[73874, 1927, 397, 6, 32, "Output",ExpressionUUID->"364258f2-2fae-eb49-b67e-551fb2294f9e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[74308, 1938, 19748, 483, 2216, "Input",ExpressionUUID->"b2731a76-acd3-8241-b9c8-3635cc882723"], +Cell[94059, 2423, 413, 7, 32, "Output",ExpressionUUID->"6acf89d2-eadb-fa4d-a479-e1743000b48e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[94509, 2435, 22534, 553, 2523, "Input",ExpressionUUID->"63750d53-5152-cf41-9a77-f56920963875"], +Cell[117046, 2990, 413, 7, 32, "Output",ExpressionUUID->"abfd65cc-a96d-a442-883b-03d29641587f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[117496, 3002, 22535, 553, 2523, "Input",ExpressionUUID->"30b656fb-53e6-4a45-b82d-938a5e8b7bf5"], +Cell[140034, 3557, 411, 7, 32, "Output",ExpressionUUID->"686e733b-5aef-214d-a950-9d27ce005fe2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[140482, 3569, 25491, 626, 2830, "Input",ExpressionUUID->"87579211-75ea-2d43-aff0-8fdd1be0f6b1"], +Cell[165976, 4197, 408, 7, 32, "Output",ExpressionUUID->"6eebbbe6-2b6c-e941-b95d-61abacb0bfd0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166421, 4209, 130, 2, 28, "Input",ExpressionUUID->"57172bc7-7934-2d44-9f21-47e3571cc6dc"], +Cell[166554, 4213, 380, 6, 32, "Output",ExpressionUUID->"3849a70b-bacd-4245-8d61-eb0a1c1e5087"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166971, 4224, 130, 2, 28, "Input",ExpressionUUID->"c109df64-296c-584f-9343-3947e57e041c"], +Cell[167104, 4228, 376, 6, 32, "Output",ExpressionUUID->"1d3b01c5-7ed8-9948-9945-16a918a385e0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[167517, 4239, 1144, 39, 110, "Input",ExpressionUUID->"45d48833-509e-944c-808a-1d89fec3f581"], +Cell[168664, 4280, 397, 6, 32, "Output",ExpressionUUID->"26ce41cb-a131-4e43-ae90-9f96e9d7f468"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169098, 4291, 1041, 35, 110, "Input",ExpressionUUID->"ea6a429f-2646-2c40-8688-b02a128db931"], +Cell[170142, 4328, 409, 7, 32, "Output",ExpressionUUID->"a13b0229-5a9a-6647-bedd-7fc5c5670142"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170588, 4340, 1144, 39, 110, "Input",ExpressionUUID->"2bfc48a8-dedc-aa4f-a2b7-ca795070780e"], +Cell[171735, 4381, 400, 6, 32, "Output",ExpressionUUID->"3bbc144e-f838-ba40-a511-016c6ebfd9bd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172172, 4392, 108, 1, 28, "Input",ExpressionUUID->"930aa359-1419-634d-979d-3cfbf13740c9"], +Cell[172283, 4395, 394, 6, 32, "Output",ExpressionUUID->"98ad5379-f1b7-b348-a4a3-19f3a5e0b1be"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172714, 4406, 108, 1, 28, "Input",ExpressionUUID->"6cdbd642-1293-c94e-8040-d9a4b21f4986"], +Cell[172825, 4409, 413, 7, 32, "Output",ExpressionUUID->"b6447702-69ac-1c42-befb-46a813553c86"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173275, 4421, 108, 1, 28, "Input",ExpressionUUID->"90c1cd94-63bf-f14d-8aa6-fa016f974c6e"], +Cell[173386, 4424, 415, 7, 32, "Output",ExpressionUUID->"db2baff8-021c-f347-b2ce-64538e683180"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173838, 4436, 108, 1, 28, "Input",ExpressionUUID->"97b297c6-20ce-dd4e-b240-af5fb4a06ed9"], +Cell[173949, 4439, 398, 6, 32, "Output",ExpressionUUID->"cd64b7ff-4d01-b44b-a034-6bec5cfecd84"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174384, 4450, 107, 1, 28, "Input",ExpressionUUID->"8b178920-0a22-3248-a51a-25018db09dee"], +Cell[174494, 4453, 391, 6, 32, "Output",ExpressionUUID->"28a6bcdd-7bcc-a749-8b93-037e3fe89d29"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174922, 4464, 107, 1, 28, "Input",ExpressionUUID->"a9f46b26-b963-0945-a122-8f47cdddee9f"], +Cell[175032, 4467, 395, 6, 32, "Output",ExpressionUUID->"cd9b107a-7d16-0941-b645-a33c7452273e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175464, 4478, 497, 16, 56, "Input",ExpressionUUID->"c4460c85-e9e9-5b47-b4b5-8a120c4f5d4d"], +Cell[175964, 4496, 409, 7, 32, "Output",ExpressionUUID->"cb554bce-4e74-d941-baab-e8a373c1d4b0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176410, 4508, 497, 16, 56, "Input",ExpressionUUID->"6f52c35a-72c0-6a40-a4de-1fe66e6b12b6"], +Cell[176910, 4526, 414, 7, 32, "Output",ExpressionUUID->"3c2dd5c3-b45e-3744-91a6-29d83c81c30a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[177361, 4538, 1788, 60, 188, "Input",ExpressionUUID->"5f84d9a8-b5ba-ec45-a21d-742f1c6fd667"], +Cell[179152, 4600, 395, 6, 32, "Output",ExpressionUUID->"14188b91-5685-c94d-a441-f8f0851bb3b8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[179584, 4611, 1101, 36, 133, "Input",ExpressionUUID->"dc0e6255-0d47-9f4a-a7a1-2f5cd2b1f9a8"], +Cell[180688, 4649, 412, 7, 32, "Output",ExpressionUUID->"1d54019e-45a8-de4a-b463-f2c3d5e5e99e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181137, 4661, 1818, 61, 165, "Input",ExpressionUUID->"6d7e267b-31be-5647-9506-8d23d7f1a57b"], +Cell[182958, 4724, 395, 6, 32, "Output",ExpressionUUID->"44b31ed4-1d5a-174b-b417-7df2e572f4b7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183390, 4735, 2499, 77, 133, "Input",ExpressionUUID->"b088688f-c895-ba45-9000-5cd0b7365a87"], +Cell[185892, 4814, 397, 6, 32, "Output",ExpressionUUID->"1ccd1393-5194-8b48-b534-c651e848bbc7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186326, 4825, 2499, 77, 133, "Input",ExpressionUUID->"709eaad5-e0c3-244a-b98d-7cf0c2e9d765"], +Cell[188828, 4904, 389, 6, 32, "Output",ExpressionUUID->"e80bb094-ff67-5e41-a766-4026ef44ee45"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189254, 4915, 210, 3, 28, "Input",ExpressionUUID->"e6c462cd-8982-3c4a-8614-a4032c2a753f"], +Cell[189467, 4920, 168, 2, 32, "Output",ExpressionUUID->"638a6b29-5864-914f-8009-d2d295617a6b"] +}, Open ]], +Cell[189650, 4925, 173, 2, 28, "Input",ExpressionUUID->"abfd70d0-05dc-ae40-8117-a301872389cf"], +Cell[CellGroupData[{ +Cell[189848, 4931, 211, 3, 28, "Input",ExpressionUUID->"ab6f3c19-7b16-eb44-924b-0479fa42666f"], +Cell[190062, 4936, 168, 2, 32, "Output",ExpressionUUID->"6102c73e-4b77-1549-9278-57347a920caf"] +}, Open ]], +Cell[190245, 4941, 171, 2, 28, "Input",ExpressionUUID->"6e63ff1c-fb16-304a-8e59-6a9d82a9fa7a"], +Cell[CellGroupData[{ +Cell[190441, 4947, 1297, 42, 113, "Input",ExpressionUUID->"764f2b72-583f-404a-86dd-302e46704fa0"], +Cell[191741, 4991, 197, 2, 32, "Output",ExpressionUUID->"8076c605-08bc-6c46-9008-0f94ad030692"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191975, 4998, 931, 29, 56, "Input",ExpressionUUID->"296c29c6-b9f9-1d4a-99c7-5d23057d1dfa"], +Cell[192909, 5029, 194, 2, 32, "Output",ExpressionUUID->"080b1d35-8854-a048-a706-0b6b144aab53"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193140, 5036, 983, 32, 56, "Input",ExpressionUUID->"da02f8be-1800-4945-83f1-7acaa76423f4"], +Cell[194126, 5070, 197, 2, 32, "Output",ExpressionUUID->"fa85162e-36ad-7140-a057-29cf420249c8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194360, 5077, 554, 18, 52, "Input",ExpressionUUID->"c6346807-3d42-e948-8c5a-115ea1f6a2c2"], +Cell[194917, 5097, 191, 2, 32, "Output",ExpressionUUID->"02f9f95c-cf7c-9d4e-a5e8-c8b44d34ce29"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195145, 5104, 619, 20, 52, "Input",ExpressionUUID->"474c5dd1-c344-a04c-8714-ada3650bf998"], +Cell[195767, 5126, 189, 2, 32, "Output",ExpressionUUID->"af72a712-0f97-7449-8d3d-1e978d6219f5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195993, 5133, 166, 4, 56, "Input",ExpressionUUID->"2305be88-628a-524a-b468-85b3cc42efc7"], +Cell[196162, 5139, 193, 2, 32, "Output",ExpressionUUID->"54d6e7d4-e392-d248-9770-173549363c92"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196392, 5146, 166, 4, 55, "Input",ExpressionUUID->"426f7e1e-7abd-a446-8679-e422e283f98f"], +Cell[196561, 5152, 187, 2, 32, "Output",ExpressionUUID->"e197485c-ffd1-ea46-97de-368fe564603d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196785, 5159, 177, 4, 43, "Input",ExpressionUUID->"933badd0-5ce1-e645-bb03-d046b1312945"], +Cell[196965, 5165, 191, 2, 32, "Output",ExpressionUUID->"90f969a5-c51d-f847-827f-9e8c9a8dcaea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197193, 5172, 177, 4, 43, "Input",ExpressionUUID->"2d8a17a7-6a4c-d94e-b0e2-4da7c60ebbeb"], +Cell[197373, 5178, 193, 2, 32, "Output",ExpressionUUID->"88f8bc53-3e5f-fa43-8217-70583ca4d1e6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197603, 5185, 6051, 184, 491, "Input",ExpressionUUID->"042e7197-09fd-dc46-b3fd-dc1740a81970"], +Cell[203657, 5371, 193, 2, 32, "Output",ExpressionUUID->"ff9c23e8-354d-2a4d-9a32-a66716583f70"] +}, Open ]], +Cell[CellGroupData[{ +Cell[203887, 5378, 364, 8, 42, "Input",ExpressionUUID->"bccf6e25-da00-4449-8f0f-f2b61c58f67f"], +Cell[204254, 5388, 191, 2, 32, "Output",ExpressionUUID->"cfb87130-3ad2-304c-b3d5-862495422509"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204482, 5395, 6118, 186, 512, "Input",ExpressionUUID->"9f9260b3-ca67-3f4a-a0c4-5bf2cb98e110"], +Cell[210603, 5583, 192, 2, 32, "Output",ExpressionUUID->"fb7c9eae-d8fc-c441-998e-c8f3ccc7f57a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210832, 5590, 364, 8, 42, "Input",ExpressionUUID->"52f82243-9920-3742-90e6-48395671d171"], +Cell[211199, 5600, 192, 2, 32, "Output",ExpressionUUID->"e43fcc6b-9b8f-c34d-8ab9-4e9938574f85"] +}, Open ]], +Cell[CellGroupData[{ +Cell[211428, 5607, 2659, 87, 165, "Input",ExpressionUUID->"a147c908-551b-8647-9cf0-48614f0cb274"], +Cell[214090, 5696, 194, 2, 32, "Output",ExpressionUUID->"1a1983ff-a439-ab44-8789-c549ec9b262b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[214321, 5703, 2599, 84, 165, "Input",ExpressionUUID->"4c078cff-433d-8245-900f-0a3b49ecb9e6"], +Cell[216923, 5789, 189, 2, 32, "Output",ExpressionUUID->"e8e4862a-1e51-0f47-b167-66dc1c71b562"] +}, Open ]], +Cell[CellGroupData[{ +Cell[217149, 5796, 3708, 117, 294, "Input",ExpressionUUID->"f07c74eb-272f-1743-a996-1dc503a54262"], +Cell[220860, 5915, 194, 2, 32, "Output",ExpressionUUID->"10359d70-3999-e74f-acf1-2edd1fe8b009"] +}, Open ]], +Cell[221069, 5920, 160, 3, 42, "Input",ExpressionUUID->"c5ebf9ff-e333-7b4d-b8d5-46482917dc06"], +Cell[CellGroupData[{ +Cell[221254, 5927, 2071, 58, 228, "Input",ExpressionUUID->"e7569d02-bed5-3743-8058-837bf8cfd65c"], +Cell[223328, 5987, 576, 12, 66, "Message",ExpressionUUID->"2e4ca3f2-d33f-154c-bc26-821a4b280c57"], +Cell[223907, 6001, 582, 12, 66, "Message",ExpressionUUID->"a39674e9-c4f8-9141-b86e-c079c1d58bc6"], +Cell[224492, 6015, 583, 12, 66, "Message",ExpressionUUID->"a515df5a-5c17-b646-b329-6a72d919e6d1"], +Cell[225078, 6029, 480, 10, 26, "Message",ExpressionUUID->"4f51a0a9-79ef-d844-a67f-287b6f8484a3"], +Cell[225561, 6041, 190, 2, 32, "Output",ExpressionUUID->"10366214-e92c-4a4f-ac64-c685c92ad67a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[225788, 6048, 2073, 58, 228, "Input",ExpressionUUID->"71739d4a-f3fc-9d4f-b803-99b4407cdc6f"], +Cell[227864, 6108, 578, 12, 66, "Message",ExpressionUUID->"0fb69354-c371-1745-a1c8-c904afc829c8"], +Cell[228445, 6122, 580, 12, 66, "Message",ExpressionUUID->"6dca8854-c61c-3949-98e1-2e4ef2bf2d4f"], +Cell[229028, 6136, 585, 12, 66, "Message",ExpressionUUID->"1c57ecff-3c5b-3242-9068-fd3214ccd556"], +Cell[229616, 6150, 478, 10, 26, "Message",ExpressionUUID->"4b13eeec-8db9-594b-a2ab-f537dbf1b163"], +Cell[230097, 6162, 190, 2, 32, "Output",ExpressionUUID->"79c727d5-8d14-fd44-9708-b275327f8e53"] +}, Open ]], +Cell[CellGroupData[{ +Cell[230324, 6169, 1955, 52, 115, "Input",ExpressionUUID->"762274ee-d7cb-9644-9b5c-516685cd7481"], +Cell[232282, 6223, 20316, 380, 237, "Output",ExpressionUUID->"5a3382f4-9f8a-bb4a-a67c-4b0288429337"] +}, Open ]], +Cell[CellGroupData[{ +Cell[252635, 6608, 2137, 59, 211, "Input",ExpressionUUID->"c4af1473-2d54-b047-b3e2-18c19d38cfdd"], +Cell[254775, 6669, 517, 11, 60, "Message",ExpressionUUID->"872e7c16-901b-0647-8868-984caa4a1bf7"], +Cell[255295, 6682, 523, 11, 60, "Message",ExpressionUUID->"5f1fb2c6-4228-eb46-9dc5-ae28c376d872"], +Cell[255821, 6695, 524, 11, 60, "Message",ExpressionUUID->"bc5a06d9-dd5c-7a49-9294-36e8b1e41b80"], +Cell[256348, 6708, 475, 10, 26, "Message",ExpressionUUID->"629c076e-1cb1-9a4d-b997-a61cff5cfb8d"], +Cell[256826, 6720, 22553, 414, 233, "Output",ExpressionUUID->"5c16b638-e912-e347-bb80-e40d3e392a2b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[279416, 7139, 1859, 50, 120, "Input",ExpressionUUID->"7383cf4d-77c8-1d41-ab20-d4ea9a390940"], +Cell[281278, 7191, 8995, 209, 241, "Output",ExpressionUUID->"c87c3822-f8ef-b841-a9f9-258e2c7f8223"] +}, Open ]], +Cell[CellGroupData[{ +Cell[290310, 7405, 276, 5, 42, "Input",ExpressionUUID->"e431227d-0e31-a446-ad0d-76902a9a3bd8"], +Cell[290589, 7412, 28512, 538, 233, "Output",ExpressionUUID->"ca6a27f2-e363-894a-a030-c07dc233af3a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[319138, 7955, 234, 6, 48, "Input",ExpressionUUID->"4e5b3330-e10a-4342-8f3d-b24f9b16b9de"], +Cell[319375, 7963, 191, 2, 32, "Output",ExpressionUUID->"f9b9a3d6-345c-514f-bfc0-2318aebff7d4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[319603, 7970, 1837, 53, 156, "Input",ExpressionUUID->"bb5f3a72-8528-7a48-a67a-a23038fc5b71"], +Cell[321443, 8025, 528, 11, 60, "Message",ExpressionUUID->"80a5b597-3c03-754c-bcbe-34458286b68e"], +Cell[321974, 8038, 531, 11, 60, "Message",ExpressionUUID->"2de6819f-78ef-c349-9e7a-cf907965a0a0"], +Cell[322508, 8051, 529, 11, 60, "Message",ExpressionUUID->"f1c547dc-697e-694e-93f0-d100bcc31e77"], +Cell[323040, 8064, 477, 10, 26, "Message",ExpressionUUID->"3a58558b-4e57-1b43-b80e-3c97d1b35f87"], +Cell[323520, 8076, 22112, 409, 238, "Output",ExpressionUUID->"fb6d53fb-f8ae-7b41-9a94-72761a5670cd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[345669, 8490, 1616, 48, 106, "Input",ExpressionUUID->"0da19810-21b5-1440-b6da-efec04765d71"], +Cell[347288, 8540, 615, 12, 85, "Message",ExpressionUUID->"bbfb9d42-e45a-5d43-aec3-90cd6a1372b2"], +Cell[347906, 8554, 614, 12, 85, "Message",ExpressionUUID->"40269fe9-13cb-1341-8017-8f3f0c723a4c"], +Cell[348523, 8568, 617, 12, 85, "Message",ExpressionUUID->"b77a3845-b1af-c14b-9912-81d30675142e"], +Cell[349143, 8582, 480, 10, 26, "Message",ExpressionUUID->"e9e3ac3c-3418-774d-92cc-9ed202ad8ef2"], +Cell[349626, 8594, 193, 3, 32, "Output",ExpressionUUID->"141c5be7-8c8a-da45-bd6d-decbdafaa7fb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[349856, 8602, 2272, 64, 223, "Input",ExpressionUUID->"d3b2932a-2d3f-fa41-a705-f816ef30ba1b"], +Cell[352131, 8668, 575, 12, 66, "Message",ExpressionUUID->"6e4818f4-1248-9549-ba8e-addc0d0d2046"], +Cell[352709, 8682, 582, 12, 66, "Message",ExpressionUUID->"44b07bad-27a9-614e-9e07-8a49093a044e"], +Cell[353294, 8696, 585, 12, 66, "Message",ExpressionUUID->"8781683c-bc28-0d41-b472-1b93da651374"], +Cell[353882, 8710, 480, 10, 26, "Message",ExpressionUUID->"c4896610-9cab-6b49-ad86-04c8a69c01e4"], +Cell[354365, 8722, 193, 3, 32, "Output",ExpressionUUID->"f6d33b40-d7cc-894e-824e-fe26bbd52f1d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[354595, 8730, 2244, 64, 162, "Input",ExpressionUUID->"3a5379d3-3adc-3844-bbe2-4530809b7b8c"], +Cell[356842, 8796, 578, 12, 66, "Message",ExpressionUUID->"87d18dc9-16e8-6a41-b604-9492ac551854"], +Cell[357423, 8810, 580, 12, 66, "Message",ExpressionUUID->"9ef22a08-0315-9844-a0ee-7fbfd8fb3e15"], +Cell[358006, 8824, 585, 12, 66, "Message",ExpressionUUID->"5b17d4bb-242b-4842-b1eb-b2195f668b1d"], +Cell[358594, 8838, 480, 10, 26, "Message",ExpressionUUID->"ea74cff4-3654-cc41-b08b-547a4ce6b891"], +Cell[359077, 8850, 195, 3, 32, "Output",ExpressionUUID->"303c1110-0d55-9649-8d09-9e96681e479d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[359309, 8858, 2242, 64, 162, "Input",ExpressionUUID->"208e04c0-4af7-a344-9e86-ceb616bf22d8"], +Cell[361554, 8924, 578, 12, 66, "Message",ExpressionUUID->"ec2a1d33-796d-1a4f-a99f-18faa89af8f2"], +Cell[362135, 8938, 584, 12, 66, "Message",ExpressionUUID->"968ce380-63fe-da42-9d09-27cea9ed9413"], +Cell[362722, 8952, 585, 12, 66, "Message",ExpressionUUID->"13c17ddb-e755-4d45-bdda-2a03f506a9c6"], +Cell[363310, 8966, 480, 10, 26, "Message",ExpressionUUID->"72bbfb2c-fe18-2645-ad41-c5e450741d01"], +Cell[363793, 8978, 195, 3, 32, "Output",ExpressionUUID->"17eb7b4a-ad36-ae42-9634-ad7eb9c1e565"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364025, 8986, 236, 6, 47, "Input",ExpressionUUID->"53a3c067-888b-bc49-a5e6-f228162e6070"], +Cell[364264, 8994, 194, 3, 32, "Output",ExpressionUUID->"44b7c31b-b17d-d64c-a84e-668fae7bb60b"] +}, Open ]], +Cell[364473, 9000, 273, 6, 70, "Input",ExpressionUUID->"0c2ac2c8-096e-e64a-aaeb-bb84e7548fdc"], +Cell[CellGroupData[{ +Cell[364771, 9010, 558, 19, 52, "Input",ExpressionUUID->"5c8cab9c-f39b-364c-ae6b-c415e4dbcf46"], +Cell[365332, 9031, 194, 3, 32, "Output",ExpressionUUID->"b8acaa68-3b44-6343-a4d0-1ad35bbeb4ad"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365563, 9039, 170, 5, 56, "Input",ExpressionUUID->"106a4571-94f1-5343-b4a9-78f21d5e84b3"], +Cell[365736, 9046, 194, 3, 32, "Output",ExpressionUUID->"442fd59b-d5bd-d342-9fe5-35a97d3ca38a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365967, 9054, 181, 5, 43, "Input",ExpressionUUID->"b7c1808d-73a9-d645-bf95-223de85093e2"], +Cell[366151, 9061, 197, 3, 32, "Output",ExpressionUUID->"2511195b-719e-6848-bc8e-639037dd2f43"] +}, Open ]], +Cell[CellGroupData[{ +Cell[366385, 9069, 6055, 185, 491, "Input",ExpressionUUID->"e9c41729-285f-7d42-bb43-ee09dea88444"], +Cell[372443, 9256, 197, 3, 32, "Output",ExpressionUUID->"d849c970-8009-8149-8f6c-454eff1ad3f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[372677, 9264, 368, 9, 42, "Input",ExpressionUUID->"efa9c5ac-4baa-3e4e-9760-1e46cf5c01c0"], +Cell[373048, 9275, 194, 3, 32, "Output",ExpressionUUID->"8373c32c-b854-7044-959e-cf8efb4ecb02"] +}, Open ]], +Cell[CellGroupData[{ +Cell[373279, 9283, 6122, 187, 512, "Input",ExpressionUUID->"7dcb74da-1357-7e4e-a03d-852f8e740128"], +Cell[379404, 9472, 196, 3, 32, "Output",ExpressionUUID->"41ccbe00-b303-754f-9668-fec3888800cc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[379637, 9480, 368, 9, 42, "Input",ExpressionUUID->"4c537c9f-ce6a-8f4c-9e68-01e12e3017b7"], +Cell[380008, 9491, 195, 3, 32, "Output",ExpressionUUID->"b5b0bb0e-acb6-9941-9c8d-78e97ea742b7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[380240, 9499, 2663, 88, 165, "Input",ExpressionUUID->"1e3d1dc2-d9ac-9045-a648-58006d1d6cf6"], +Cell[382906, 9589, 196, 3, 32, "Output",ExpressionUUID->"0b4c4b74-8a09-3f49-81fe-fff5b453bdb3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[383139, 9597, 2603, 85, 165, "Input",ExpressionUUID->"2371743b-ee83-9146-bf98-330cb0fb7e0a"], +Cell[385745, 9684, 195, 3, 32, "Output",ExpressionUUID->"19b400a9-1e26-ed48-a0eb-2345b4395009"] +}, Open ]], +Cell[CellGroupData[{ +Cell[385977, 9692, 3712, 118, 294, "Input",ExpressionUUID->"8b6de8d6-9524-3347-a11b-48bba48b07d0"], +Cell[389692, 9812, 196, 3, 32, "Output",ExpressionUUID->"a31bdfde-ffac-cc42-bc87-09cfc15f713a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[389925, 9820, 2075, 59, 228, "Input",ExpressionUUID->"a41abb59-b808-8547-b1d9-a574acad5c53"], +Cell[392003, 9881, 581, 12, 66, "Message",ExpressionUUID->"d692952a-9232-1e4f-a1a6-b7c3265f4170"], +Cell[392587, 9895, 586, 12, 66, "Message",ExpressionUUID->"634fb45e-5387-c840-8d53-c5b959596934"], +Cell[393176, 9909, 592, 12, 85, "Message",ExpressionUUID->"b4792b68-b0fe-e940-b63d-4b53a03c6206"], +Cell[393771, 9923, 480, 10, 26, "Message",ExpressionUUID->"e787a2f2-de6a-9b4f-93c3-6cbf33f50a9d"], +Cell[394254, 9935, 194, 3, 32, "Output",ExpressionUUID->"2f77f69d-1883-0d46-8e3f-bf55794e632a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[394485, 9943, 2077, 59, 228, "Input",ExpressionUUID->"779c8db8-6bae-9046-915d-05cf0a3cee42"], +Cell[396565, 10004, 582, 12, 66, "Message",ExpressionUUID->"3b328b74-1dee-1348-b744-1e41a8241f27"], +Cell[397150, 10018, 586, 12, 66, "Message",ExpressionUUID->"9f813110-4a79-6d48-a1d0-ecb6900aefb4"], +Cell[397739, 10032, 590, 12, 85, "Message",ExpressionUUID->"fa325720-d896-d849-a31e-c78aaf9fe132"], +Cell[398332, 10046, 480, 10, 26, "Message",ExpressionUUID->"508b4dab-c6bd-a24f-be6d-fce97436c892"], +Cell[398815, 10058, 192, 3, 32, "Output",ExpressionUUID->"575e33d7-ae0d-5945-8ef4-bc243ee162ce"] +}, Open ]], +Cell[CellGroupData[{ +Cell[399044, 10066, 2051, 55, 131, "Input",ExpressionUUID->"2fa4bc1d-3549-0e49-9fa0-9e5dc16aa40f"], +Cell[401098, 10123, 20008, 375, 237, "Output",ExpressionUUID->"dd68e5e3-be98-c546-86f3-57ddf0b63d3b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[421143, 10503, 2143, 60, 211, "Input",ExpressionUUID->"6e23e6bb-e46c-1c43-a88f-db092cf7ac8d"], +Cell[423289, 10565, 520, 11, 60, "Message",ExpressionUUID->"21516349-23e0-1743-bc77-fa2c2fea8b3b"], +Cell[423812, 10578, 525, 11, 60, "Message",ExpressionUUID->"dd24d7bb-71b8-7c4e-8f18-f73eba1fc3b6"], +Cell[424340, 10591, 528, 11, 60, "Message",ExpressionUUID->"818dcae9-27e4-7446-a529-d0d9eb2c5825"], +Cell[424871, 10604, 482, 10, 26, "Message",ExpressionUUID->"5eb800ed-d170-8d45-9090-460657588ba0"], +Cell[425356, 10616, 21934, 406, 236, "Output",ExpressionUUID->"a132378a-9f95-0943-97fd-8e3988a0194e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[447327, 11027, 280, 6, 42, "Input",ExpressionUUID->"028f7072-05bf-cf40-ac60-9f298ef86e88"], +Cell[447610, 11035, 27949, 531, 236, "Output",ExpressionUUID->"56be564d-7855-cf40-994a-aa9176b0e36d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[475596, 11571, 1616, 48, 106, "Input",ExpressionUUID->"e94e1ddb-0658-3b45-ad00-7392c646ee51"], +Cell[477215, 11621, 612, 12, 85, "Message",ExpressionUUID->"7b8718c6-1580-d04a-8cda-09635dc07a50"], +Cell[477830, 11635, 620, 12, 85, "Message",ExpressionUUID->"1d59fcdd-8fc2-dd4f-a705-fc4321f3acfb"], +Cell[478453, 11649, 624, 12, 85, "Message",ExpressionUUID->"a213095b-84e2-aa47-9aef-1e51a0e9a713"], +Cell[479080, 11663, 480, 10, 26, "Message",ExpressionUUID->"7b41f8ea-f093-4a4f-8d6f-f830304f4d53"], +Cell[479563, 11675, 195, 3, 32, "Output",ExpressionUUID->"9feefa86-5bb3-2f49-8ed0-0996e2db6981"] +}, Open ]], +Cell[CellGroupData[{ +Cell[479795, 11683, 2270, 64, 223, "Input",ExpressionUUID->"23c7e6b2-69d5-1a4e-bd5f-947421a54e26"], +Cell[482068, 11749, 584, 12, 66, "Message",ExpressionUUID->"b238244e-a1c6-6442-88d9-6a5c529a2ea6"], +Cell[482655, 11763, 590, 12, 66, "Message",ExpressionUUID->"0eb0ab96-b391-024f-9c1f-a2d64a3dccb5"], +Cell[483248, 11777, 594, 12, 85, "Message",ExpressionUUID->"d5ed2796-3209-9944-8565-d6332b08f6ce"], +Cell[483845, 11791, 480, 10, 26, "Message",ExpressionUUID->"c5f4f7ca-b08c-c848-9381-10591edc148b"], +Cell[484328, 11803, 193, 3, 32, "Output",ExpressionUUID->"ddef88b5-d1a2-194e-8764-47da954e6339"] +}, Open ]], +Cell[CellGroupData[{ +Cell[484558, 11811, 2242, 64, 162, "Input",ExpressionUUID->"38ca1203-b2e6-3044-aa85-97017d76bb30"], +Cell[486803, 11877, 584, 12, 66, "Message",ExpressionUUID->"c41958a9-1e38-cd42-9ce6-6a9dfc5c186f"], +Cell[487390, 11891, 588, 12, 66, "Message",ExpressionUUID->"098c9199-d97e-5346-9b1a-8033ecb73865"], +Cell[487981, 11905, 590, 12, 85, "Message",ExpressionUUID->"3850bc34-a5f2-6f4b-809c-ba3120e8a5d4"], +Cell[488574, 11919, 480, 10, 26, "Message",ExpressionUUID->"5999f431-a62d-0c49-87ed-911d90a16e13"], +Cell[489057, 11931, 195, 3, 32, "Output",ExpressionUUID->"a149ac3f-0655-1f43-82da-34362fb754e5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[489289, 11939, 2246, 64, 162, "Input",ExpressionUUID->"087e4064-7024-cb41-8231-fe78ad70afda"], +Cell[491538, 12005, 584, 12, 66, "Message",ExpressionUUID->"c9329f86-045d-6a41-9332-2c0d5097aea0"], +Cell[492125, 12019, 585, 12, 66, "Message",ExpressionUUID->"e5c10c2d-30ce-bc40-a1d8-cbb18e1963bf"], +Cell[492713, 12033, 592, 12, 85, "Message",ExpressionUUID->"159a6a81-ad3b-014a-b67f-29ea097d2797"], +Cell[493308, 12047, 480, 10, 26, "Message",ExpressionUUID->"30dfb4d0-1c71-e242-a02c-5a49be503483"], +Cell[493791, 12059, 193, 3, 32, "Output",ExpressionUUID->"03eaf7af-0cb0-2c44-a02c-abb0e12d0243"] +}, Open ]], +Cell[CellGroupData[{ +Cell[494021, 12067, 236, 6, 47, "Input",ExpressionUUID->"cd9a77e7-d597-394b-a710-f971fc40d827"], +Cell[494260, 12075, 198, 3, 32, "Output",ExpressionUUID->"5f31b3c7-23d0-6040-9d81-08d2e6fc8c43"] +}, Open ]], +Cell[494473, 12081, 273, 6, 70, "Input",ExpressionUUID->"13a90bf7-f7dc-7e48-845e-80048a92ff15"], +Cell[CellGroupData[{ +Cell[494771, 12091, 558, 19, 52, "Input",ExpressionUUID->"ce764b10-5670-7a4e-86ae-3f77893f67b3"], +Cell[495332, 12112, 195, 3, 32, "Output",ExpressionUUID->"c8856762-b05e-664e-81da-0a3f30ee6b4f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495564, 12120, 170, 5, 56, "Input",ExpressionUUID->"717d3ead-30a8-ec47-9afe-f9884217d594"], +Cell[495737, 12127, 195, 3, 32, "Output",ExpressionUUID->"63141c66-17fc-3a4c-ae91-9eebad52febc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495969, 12135, 181, 5, 43, "Input",ExpressionUUID->"c43d0cec-6a64-9643-a5bb-27ab984c3bb2"], +Cell[496153, 12142, 197, 3, 32, "Output",ExpressionUUID->"3ef2b44b-f892-ff48-9315-d92af2cc8d1c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[496387, 12150, 6055, 185, 491, "Input",ExpressionUUID->"e15da858-b31b-c344-a560-00b30705c2c2"], +Cell[502445, 12337, 200, 3, 32, "Output",ExpressionUUID->"c238d73c-27f6-a449-8c2e-e6687feed257"] +}, Open ]], +Cell[CellGroupData[{ +Cell[502682, 12345, 368, 9, 42, "Input",ExpressionUUID->"f53a321d-2180-024b-b925-7b08c74c1c33"], +Cell[503053, 12356, 195, 3, 32, "Output",ExpressionUUID->"e9f32580-1adf-4742-98a8-5cd7d92a474b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[503285, 12364, 6122, 187, 512, "Input",ExpressionUUID->"6fc2e120-104b-274c-a69b-ff643539124b"], +Cell[509410, 12553, 197, 3, 32, "Output",ExpressionUUID->"03cc3e31-4429-9247-a562-34efd5f42ae0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[509644, 12561, 368, 9, 42, "Input",ExpressionUUID->"1ebbe4bd-69b2-ba4a-b880-612b325b749b"], +Cell[510015, 12572, 194, 3, 32, "Output",ExpressionUUID->"33246853-54d9-6d41-8d0e-719091b2ed3c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[510246, 12580, 2663, 88, 165, "Input",ExpressionUUID->"1efe60b3-9182-2c4c-bd13-9e4d244d7e70"], +Cell[512912, 12670, 195, 3, 32, "Output",ExpressionUUID->"952ec08a-fdcd-9c47-aa54-49132d327b49"] +}, Open ]], +Cell[CellGroupData[{ +Cell[513144, 12678, 2603, 85, 165, "Input",ExpressionUUID->"66f987a0-c978-3745-b4d7-87ccf5fea6cf"], +Cell[515750, 12765, 193, 3, 32, "Output",ExpressionUUID->"b37ed3f6-488e-db45-b507-d91ea6ebbab1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[515980, 12773, 3712, 118, 294, "Input",ExpressionUUID->"696f9a62-0454-0540-abef-a5c123c32f5f"], +Cell[519695, 12893, 194, 3, 32, "Output",ExpressionUUID->"23650272-004e-8d45-a904-fa55e03a9dd4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[519926, 12901, 2075, 59, 228, "Input",ExpressionUUID->"efacefcd-90be-574d-92a2-eec47ae06964"], +Cell[522004, 12962, 560, 11, 60, "Message",ExpressionUUID->"384614e4-1585-de4e-bd42-13cb5dd957df"], +Cell[522567, 12975, 561, 11, 60, "Message",ExpressionUUID->"6674553a-661d-6b44-b8d2-e65e638b7b41"], +Cell[523131, 12988, 565, 11, 60, "Message",ExpressionUUID->"1d4744bf-5173-9d48-bb15-852f40d3174d"], +Cell[523699, 13001, 480, 10, 26, "Message",ExpressionUUID->"935d7895-4d61-c248-a582-8648f8679c12"], +Cell[524182, 13013, 193, 3, 32, "Output",ExpressionUUID->"8848f211-1d94-7d4f-8355-477dc70c7fd3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[524412, 13021, 2075, 59, 228, "Input",ExpressionUUID->"113e0d2a-28bc-cb46-97f5-cf1d438fc6f4"], +Cell[526490, 13082, 560, 11, 60, "Message",ExpressionUUID->"ecc71c69-b26b-254d-9174-718e4de8e961"], +Cell[527053, 13095, 562, 11, 60, "Message",ExpressionUUID->"435ae24f-8020-b649-bd6a-b66d42eeff0d"], +Cell[527618, 13108, 567, 11, 60, "Message",ExpressionUUID->"b1a08edc-bb1e-8c47-a82a-d7d186e410b7"], +Cell[528188, 13121, 482, 10, 26, "Message",ExpressionUUID->"3f2926e1-c22a-7b4b-ab18-5f34fd75c9d9"], +Cell[528673, 13133, 193, 3, 32, "Output",ExpressionUUID->"26edd716-985d-7649-b267-e666e7d8808f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[528903, 13141, 2053, 55, 131, "Input",ExpressionUUID->"1fd4421d-3fcd-2d4f-bd05-28d15302273b"], +Cell[530959, 13198, 20369, 381, 233, "Output",ExpressionUUID->"7f87d733-150e-1042-b860-78b7fb2b06e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[551365, 13584, 2115, 60, 211, "Input",ExpressionUUID->"0a8036ea-ac95-654b-96a9-78af964912a2"], +Cell[553483, 13646, 516, 11, 60, "Message",ExpressionUUID->"edab1838-e2c8-204e-adfc-834fce377da5"], +Cell[554002, 13659, 519, 11, 60, "Message",ExpressionUUID->"fc785ec1-71eb-164b-a00a-54afb54c6286"], +Cell[554524, 13672, 520, 11, 60, "Message",ExpressionUUID->"32b7ace4-e30e-644c-a5be-30a7d1062080"], +Cell[555047, 13685, 480, 10, 26, "Message",ExpressionUUID->"d87f9d91-35b8-1342-bcc4-42de9edde7aa"], +Cell[555530, 13697, 22254, 412, 233, "Output",ExpressionUUID->"7011dccc-e2d1-9b4f-9c60-bbdf8a6f7004"] +}, Open ]], +Cell[CellGroupData[{ +Cell[577821, 14114, 280, 6, 42, "Input",ExpressionUUID->"936846c9-ebd9-0340-9945-b210a517ddeb"], +Cell[578104, 14122, 28267, 537, 233, "Output",ExpressionUUID->"fa5f8941-1d61-0e4d-a082-5eef6b8bf7b8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[606408, 14664, 1616, 48, 106, "Input",ExpressionUUID->"2b7767f9-449f-c646-ae0c-43037957b685"], +Cell[608027, 14714, 604, 12, 85, "Message",ExpressionUUID->"d5211864-c5b7-704c-9ddf-8261fe243798"], +Cell[608634, 14728, 611, 12, 85, "Message",ExpressionUUID->"a07dbd08-99bb-0a45-855a-d28958512a9b"], +Cell[609248, 14742, 614, 12, 85, "Message",ExpressionUUID->"209e2588-fe8e-4545-a28e-0171f2b30b4e"], +Cell[609865, 14756, 479, 10, 26, "Message",ExpressionUUID->"897546b7-2efc-cd48-a2c8-35bdf728242e"], +Cell[610347, 14768, 196, 3, 32, "Output",ExpressionUUID->"e31face5-1ec7-b846-b9e0-a1069a7d7dbd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[610580, 14776, 2271, 64, 223, "Input",ExpressionUUID->"8304a1af-5a77-304f-9cc7-82724e2b3df7"], +Cell[612854, 14842, 560, 11, 60, "Message",ExpressionUUID->"c8979d66-3db9-1f4b-89fd-f5b33635060c"], +Cell[613417, 14855, 564, 11, 60, "Message",ExpressionUUID->"0764be87-0c35-9441-bbb4-fcde4475a9fb"], +Cell[613984, 14868, 565, 11, 60, "Message",ExpressionUUID->"9ad1c381-407f-4343-9739-f9519bf0bdd0"], +Cell[614552, 14881, 480, 10, 26, "Message",ExpressionUUID->"b85d2551-8b93-ba4e-9904-798d371b3e38"], +Cell[615035, 14893, 197, 3, 32, "Output",ExpressionUUID->"7572dae7-9073-3242-9916-5afbcefef2fb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[615269, 14901, 2244, 64, 162, "Input",ExpressionUUID->"3ed977a3-b24a-0644-a438-d2ebbf0c1dea"], +Cell[617516, 14967, 558, 11, 60, "Message",ExpressionUUID->"16f35669-dc0f-ca46-a314-5b8246613e72"], +Cell[618077, 14980, 562, 11, 60, "Message",ExpressionUUID->"bb240544-02f2-ca42-9bb4-ce727b9d4b83"], +Cell[618642, 14993, 567, 11, 60, "Message",ExpressionUUID->"f7c521db-9fcd-8d43-8124-e93bb900e618"], +Cell[619212, 15006, 480, 10, 26, "Message",ExpressionUUID->"c2d9131a-0554-944c-8919-447498e86e5a"], +Cell[619695, 15018, 197, 3, 32, "Output",ExpressionUUID->"bbaa708d-88c2-4948-bcf9-4edb569086eb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[619929, 15026, 2242, 64, 162, "Input",ExpressionUUID->"0a258b12-85fc-2a47-9b1a-8264aa20d65c"], +Cell[622174, 15092, 558, 11, 60, "Message",ExpressionUUID->"88ec87c7-bce5-3841-bd4d-eb3882d41f76"], +Cell[622735, 15105, 560, 11, 60, "Message",ExpressionUUID->"5a4b712e-899c-b94b-9846-fcd9df68f58f"], +Cell[623298, 15118, 563, 11, 60, "Message",ExpressionUUID->"cd37bfcb-b8f4-7f45-ae8f-c862c6a025c1"], +Cell[623864, 15131, 480, 10, 26, "Message",ExpressionUUID->"301fbef2-ad3a-684d-9c2c-17be03fab629"], +Cell[624347, 15143, 195, 3, 32, "Output",ExpressionUUID->"33d64f78-2e92-0c49-8a9d-37a41d5a1b6b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[624579, 15151, 234, 6, 47, "Input",ExpressionUUID->"1cb0d12f-90a8-b449-9dd4-8435ee411a7c"], +Cell[624816, 15159, 197, 3, 32, "Output",ExpressionUUID->"bf2cbee9-9b2b-9548-b69e-9b38f98a67d4"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/118-122_l_Pu240_394-395/l_118-122_Pu240_394-395_gid_Qw2.nb b/templates/P240_2-51_YakuninDA/118-122_l_Pu240_394-395/l_118-122_Pu240_394-395_gid_Qw2.nb new file mode 100755 index 0000000..b51b28e --- /dev/null +++ b/templates/P240_2-51_YakuninDA/118-122_l_Pu240_394-395/l_118-122_Pu240_394-395_gid_Qw2.nb @@ -0,0 +1,14286 @@ +(* 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[ 497469, 14278] +NotebookOptionsPosition[ 458064, 13646] +NotebookOutlinePosition[ 458518, 13664] +CellTagsIndexPosition[ 458475, 13661] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "1.487"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.992091380220339*^9, 3.9920914023498554`*^9}, { + 3.992091432390732*^9, 3.9920914336565914`*^9}, {3.992091487909664*^9, + 3.992091509884199*^9}, {3.9920915487606087`*^9, 3.992091575705059*^9}}, + CellLabel-> + "In[594]:=",ExpressionUUID->"a5f529d8-308a-8844-abd0-99c83fafbe2a"], + +Cell[BoxData["1.487`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.9920912460731335`*^9, {3.9920913913099537`*^9, + 3.9920914454062786`*^9}, {3.992091501746458*^9, 3.992091521168392*^9}, { + 3.992091560465807*^9, 3.9920915871378555`*^9}}, + CellLabel-> + "Out[594]=",ExpressionUUID->"c19df2a5-9ae0-a14c-92cd-2b2d86933693"] +}, Open ]], + +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.992090953169281*^9, 3.992090953674198*^9}}, + CellLabel-> + "In[595]:=",ExpressionUUID->"c3b7e508-7723-b740-9754-e20d9a1945ff"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.992091246132065*^9, {3.992091391344839*^9, + 3.992091445453377*^9}, {3.9920915017833214`*^9, 3.9920915212033978`*^9}, { + 3.9920915605023823`*^9, 3.9920915871716385`*^9}}, + CellLabel-> + "Out[595]=",ExpressionUUID->"c34fd377-c3a2-ec40-ac2b-7ca7f9f2b178"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "118"}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.992090962010214*^9, + 3.9920909641549644`*^9}}, + CellLabel-> + "In[596]:=",ExpressionUUID->"81f68db5-daee-3d4a-96b1-13fd1265c302"], + +Cell[BoxData["118"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9920912461812153`*^9, {3.9920913913677273`*^9, + 3.9920914454793377`*^9}, {3.99209150180954*^9, 3.992091521232403*^9}, { + 3.9920915605245724`*^9, 3.9920915871936207`*^9}}, + CellLabel-> + "Out[596]=",ExpressionUUID->"34f8a128-d630-274d-a63a-0621c4adc9a4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[597]:=",ExpressionUUID->"0743e86a-5b0a-d844-8639-13049a8b22fb"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.991707828219631*^9, 3.9917123414174232`*^9, + 3.992091246203041*^9, {3.9920913913887367`*^9, 3.9920914455115204`*^9}, { + 3.992091501832567*^9, 3.992091521255453*^9}, {3.992091560553467*^9, + 3.992091587215521*^9}}, + CellLabel-> + "Out[597]=",ExpressionUUID->"3e9cc233-eb63-c841-8bd9-773473bd0aa0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[598]:=",ExpressionUUID->"8cdc3db3-c51c-074d-b115-c49145994657"], + +Cell[BoxData["0.55025`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.9917078282275677`*^9, 3.9917123414253197`*^9, + 3.9920912462096825`*^9, {3.9920913913957386`*^9, 3.9920914455344753`*^9}, { + 3.992091501855606*^9, 3.9920915212775517`*^9}, {3.9920915605785923`*^9, + 3.992091587240816*^9}}, + CellLabel-> + "Out[598]=",ExpressionUUID->"925906ed-a50d-3c40-93be-03b5be9bd1cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[599]:=",ExpressionUUID->"f53a9070-8fa4-1b4b-8519-94485ba1649a"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9917078282485256`*^9, 3.9917123414324265`*^9, + 3.9920912462325726`*^9, {3.992091391402746*^9, 3.9920914455405865`*^9}, { + 3.992091501883623*^9, 3.992091521300558*^9}, {3.992091560585478*^9, + 3.992091587269293*^9}}, + CellLabel-> + "Out[599]=",ExpressionUUID->"d13100ba-db90-3341-a7d3-a33a69f83f5f"] +}, 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[600]:=",ExpressionUUID->"4fde1924-b4ef-444f-9273-8917c48e3279"], + +Cell[BoxData["5.6896470325678585`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.9917078282706223`*^9, 3.9917123414384117`*^9, + 3.992091246239073*^9, {3.9920913914237976`*^9, 3.9920914455615807`*^9}, { + 3.992091501905611*^9, 3.9920915213065586`*^9}, {3.992091560607477*^9, + 3.99209158727639*^9}}, + CellLabel-> + "Out[600]=",ExpressionUUID->"95f2cee7-e7b8-3a46-bf2a-7862d148424a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[601]:=",ExpressionUUID->"4f31084d-525f-9840-8b4d-fc6e260804c8"], + +Cell[BoxData["5.753223770057068`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.9917078282785244`*^9, 3.991712341447321*^9, + 3.992091246266403*^9, {3.9920913914307785`*^9, 3.9920914455675926`*^9}, { + 3.9920915019126167`*^9, 3.992091521328596*^9}, {3.992091560630516*^9, + 3.9920915872983055`*^9}}, + CellLabel-> + "Out[601]=",ExpressionUUID->"2971c2d9-ce25-1342-bd56-cac85cbc1d9d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.912564762497319"}]], "Input", + CellChangeTimes->{3.9917123951294365`*^9, 3.99179305435186*^9, + 3.9920909790636597`*^9}, + CellLabel-> + "In[602]:=",ExpressionUUID->"20374ff4-2bcf-5541-8bbb-2c5de601a94d"], + +Cell[BoxData["0.912564762497319`"], "Output", + CellChangeTimes->{ + 3.991319649862606*^9, 3.991707828301527*^9, 3.9917123414573193`*^9, + 3.991712407248003*^9, 3.9920912462732334`*^9, {3.992091391454897*^9, + 3.992091445574003*^9}, {3.992091501939644*^9, 3.9920915213345757`*^9}, { + 3.9920915606593704`*^9, 3.9920915873053074`*^9}}, + CellLabel-> + "Out[602]=",ExpressionUUID->"1d6f0762-4404-2d4f-b2c6-b058b209d7e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.619150671620403"}]], "Input", + CellChangeTimes->{3.9917124038115807`*^9, 3.991793052797516*^9, + 3.992090983698309*^9}, + CellLabel-> + "In[603]:=",ExpressionUUID->"ee4ada3d-3364-a349-93ea-e6f66d59827d"], + +Cell[BoxData["0.619150671620403`"], "Output", + CellChangeTimes->{ + 3.9913196498716316`*^9, 3.991707828308525*^9, 3.99171234146842*^9, + 3.9917124073213234`*^9, 3.9920912462944527`*^9, {3.992091391461418*^9, + 3.992091445598377*^9}, {3.992091501946205*^9, 3.9920915213588047`*^9}, { + 3.9920915606653767`*^9, 3.992091587327593*^9}}, + CellLabel-> + "Out[603]=",ExpressionUUID->"8954d695-ca64-494b-9313-dffbc1ea860e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[604]:=",ExpressionUUID->"8a7c2b33-2c22-3747-9e4f-082df49160a5"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.9917078283276424`*^9, 3.991712341478319*^9, + 3.992091246314249*^9, {3.992091391486412*^9, 3.9920914456043663`*^9}, { + 3.9920915019684505`*^9, 3.992091521368332*^9}, {3.9920915606893826`*^9, + 3.9920915873371162`*^9}}, + CellLabel-> + "Out[604]=",ExpressionUUID->"23484763-51aa-9b41-918c-e9792d02d3ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[605]:=",ExpressionUUID->"2980c168-5679-7a47-9db6-1e93d9b0b0d4"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.99170782834754*^9, 3.9917123414863186`*^9, + 3.992091246321356*^9, {3.992091391511833*^9, 3.992091445629402*^9}, { + 3.992091501974474*^9, 3.9920915213903313`*^9}, {3.9920915606973896`*^9, + 3.992091587358549*^9}}, + CellLabel-> + "Out[605]=",ExpressionUUID->"f6141979-7d51-6e41-a11b-8dc09b55a9ca"] +}, 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[606]:=",ExpressionUUID->"caa1154b-40b5-e346-8e6b-d0e27118f754"], + +Cell[BoxData["2.3367797709113582`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.991707968406042*^9, 3.9920912463416023`*^9, { + 3.992091391536875*^9, 3.9920914456353855`*^9}, {3.992091501999426*^9, + 3.9920915213963375`*^9}, {3.992091560721428*^9, 3.9920915873665257`*^9}}, + CellLabel-> + "Out[606]=",ExpressionUUID->"373743b8-c19d-544f-97e2-5b5892acf546"] +}, 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[607]:=",ExpressionUUID->"95f3c12e-1072-8041-8d95-71b25e347812"], + +Cell[BoxData["1.7566650946816267`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.9917079684291363`*^9, 3.992091246349119*^9, { + 3.9920913915428715`*^9, 3.992091445656397*^9}, {3.9920915020104103`*^9, + 3.9920915214180527`*^9}, {3.9920915607274265`*^9, 3.9920915873885345`*^9}}, + CellLabel-> + "Out[607]=",ExpressionUUID->"df0acbc0-8c21-ea4e-af4b-046064495779"] +}, 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[608]:=",ExpressionUUID->"428b0fb6-d157-d340-bbf5-8bc1d0621a11"], + +Cell[BoxData["0.4127308494837588`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.991707968457081*^9, 3.9920912463708134`*^9, { + 3.9920913915624123`*^9, 3.9920914456634007`*^9}, {3.992091502031412*^9, + 3.9920915214423656`*^9}, {3.992091560753374*^9, 3.9920915873955364`*^9}}, + CellLabel-> + "Out[608]=",ExpressionUUID->"10e756ee-2b6b-8747-b091-0ae318f41527"] +}, 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[609]:=",ExpressionUUID->"37c038be-3a87-2049-a55e-c48c3db4a7ee"], + +Cell[BoxData[ + RowBox[{"-", "0.1731065192411402`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.9917079684650364`*^9, 3.992091246395151*^9, { + 3.9920913915704136`*^9, 3.99209144568738*^9}, {3.9920915020386753`*^9, + 3.9920915214493656`*^9}, {3.9920915607803288`*^9, 3.9920915874025383`*^9}}, + CellLabel-> + "Out[609]=",ExpressionUUID->"454e05bb-3efd-104a-9066-66bf80b94526"] +}, 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[610]:=",ExpressionUUID->"8be7c98b-7162-1b49-8c84-2e3ca7ff14b6"], + +Cell[BoxData[ + RowBox[{"-", "0.4062816230025426`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.9917079684860363`*^9, 3.9920912464020443`*^9, { + 3.992091391594614*^9, 3.9920914456933784`*^9}, {3.9920915020645943`*^9, + 3.9920915214756165`*^9}, {3.9920915607873363`*^9, 3.9920915874245453`*^9}}, + CellLabel-> + "Out[610]=",ExpressionUUID->"5077385d-055d-2a45-9a50-ad50f26d79d4"] +}, 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[611]:=",ExpressionUUID->"e375bcd8-164f-6445-b8e7-4835e290d5f6"], + +Cell[BoxData["0.6303744483208076`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9917079684940376`*^9, 3.992091246410055*^9, { + 3.992091391600609*^9, 3.992091445718569*^9}, {3.9920915020705986`*^9, + 3.992091521497614*^9}, {3.9920915608113365`*^9, 3.992091587431551*^9}}, + CellLabel-> + "Out[611]=",ExpressionUUID->"c2b43585-64dc-5f4e-ae8e-9bf8a29535b3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[612]:=",ExpressionUUID->"51ced7fc-0cfd-ec4a-98f2-7f5b3792cb23"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9917079685140343`*^9, 3.992091246419077*^9, { + 3.9920913916226387`*^9, 3.992091445728756*^9}, {3.992091502098713*^9, + 3.9920915215232697`*^9}, {3.9920915608188477`*^9, 3.9920915874605484`*^9}}, + CellLabel-> + "Out[612]=",ExpressionUUID->"a38acdb3-c11d-234c-a3b9-6ebd4b74e353"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellChangeTimes->{3.9918430951178913`*^9}, + CellLabel-> + "In[613]:=",ExpressionUUID->"a50da5c0-55c1-694a-acb7-6b3e67aa4fea"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.991707968535036*^9, 3.992091246425289*^9, { + 3.9920913916286793`*^9, 3.9920914457553444`*^9}, {3.992091502104719*^9, + 3.992091521546232*^9}, {3.992091560843672*^9, 3.9920915874835606`*^9}}, + CellLabel-> + "Out[613]=",ExpressionUUID->"379763e9-3319-074f-8ca4-bea2a3a86232"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel-> + "In[614]:=",ExpressionUUID->"66f78ab8-80e8-4149-89c9-4a2ca4549417"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.9917079685410557`*^9, 3.9920912464323254`*^9, { + 3.9920913916372147`*^9, 3.992091445775835*^9}, {3.9920915021291866`*^9, + 3.992091521553232*^9}, {3.9920915608516827`*^9, 3.9920915874905663`*^9}}, + CellLabel-> + "Out[614]=",ExpressionUUID->"093f1308-365e-5a4c-898b-9b9d12ce395c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[615]:=",ExpressionUUID->"2628ead6-9386-cf48-bdf8-74b97df1e485"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.991707968561041*^9, 3.992091246440319*^9, { + 3.9920913916577415`*^9, 3.992091445800337*^9}, {3.9920915021357*^9, + 3.992091521578417*^9}, {3.9920915608854294`*^9, 3.992091587511568*^9}}, + CellLabel-> + "Out[615]=",ExpressionUUID->"e4b9c1de-c4e2-be47-8891-124a8f6116a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[616]:=",ExpressionUUID->"3edcc0bc-d1e7-9845-8b3a-1b8d371e8b02"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.9917079685810375`*^9, 3.9920912464478264`*^9, { + 3.992091391664732*^9, 3.992091445806362*^9}, {3.9920915021607113`*^9, + 3.992091521584406*^9}, {3.9920915609120617`*^9, 3.992091587533596*^9}}, + CellLabel-> + "Out[616]=",ExpressionUUID->"f88f0645-8761-684d-9e14-40d370b86b94"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "46"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.9917930777342243`*^9, + 3.9920909943046665`*^9}, + CellLabel-> + "In[617]:=",ExpressionUUID->"29adee66-4e94-3d4e-adb3-2a2fb3a740e3"], + +Cell[BoxData["46"], "Output", + CellChangeTimes->{ + 3.9920912464541206`*^9, {3.9920913916852074`*^9, 3.99209144582835*^9}, { + 3.9920915021677265`*^9, 3.992091521614517*^9}, {3.992091560933424*^9, + 3.9920915875599613`*^9}}, + CellLabel-> + "Out[617]=",ExpressionUUID->"574eac92-a758-ea41-adb9-dcd0609f8f1f"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431115646553`*^9, 3.991843111569187*^9}}, + CellLabel-> + "In[618]:=",ExpressionUUID->"115233fa-3431-3242-8da0-0984e04ecf60"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, { + 3.991644237125025*^9, 3.991644237304865*^9}, 3.9920910015266705`*^9}, + CellLabel-> + "In[619]:=",ExpressionUUID->"6905c326-c5f8-b244-ab70-abe3ab6035c0"], + +Cell[BoxData["48"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.991707968608036*^9, 3.992091246462631*^9, { + 3.992091391693775*^9, 3.992091445837349*^9}, {3.9920915021987267`*^9, + 3.992091521643547*^9}, {3.9920915609663124`*^9, 3.992091587583498*^9}}, + CellLabel-> + "Out[619]=",ExpressionUUID->"c701ab36-3417-2646-bbec-8edac19f5bf9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[620]:=",ExpressionUUID->"fe9c2db8-186a-ec4e-8753-26fcd9b35e1e"], + +Cell[BoxData["122"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.9917079686284103`*^9, 3.992091246474682*^9, { + 3.992091391720581*^9, 3.9920914458603497`*^9}, {3.99209150222027*^9, + 3.992091521651558*^9}, {3.9920915609955387`*^9, 3.9920915876045036`*^9}}, + CellLabel-> + "Out[620]=",ExpressionUUID->"561a7e5e-701f-c64f-a4d3-a4148a28490d"] +}, 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[621]:=",ExpressionUUID->"13830c4e-14d3-254b-ae35-8e7d06217275"], + +Cell[BoxData["0.10972214504028896`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9917079686354065`*^9, 3.992091246481163*^9, { + 3.992091391726591*^9, 3.9920914458677864`*^9}, {3.992091502227312*^9, + 3.992091521675709*^9}, {3.992091561028263*^9, 3.9920915876295033`*^9}}, + CellLabel-> + "Out[621]=",ExpressionUUID->"76f86e6b-37c5-0842-875e-d3012f42b987"] +}, 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[622]:=",ExpressionUUID->"ef7eac52-f317-614e-8deb-8cf20eff77ea"], + +Cell[BoxData[ + RowBox[{"-", "2.564642956376771`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.991707968658518*^9, 3.992091246487665*^9, { + 3.9920913917495956`*^9, 3.992091445888296*^9}, {3.9920915022568245`*^9, + 3.9920915216830196`*^9}, {3.99209156103529*^9, 3.99209158763678*^9}}, + CellLabel-> + "Out[622]=",ExpressionUUID->"5c2ff160-416e-c144-a357-891a4a14a9b1"] +}, 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.991972093618887*^9, 3.9919720982596817`*^9}}, + CellLabel-> + "In[623]:=",ExpressionUUID->"8cc0876c-3ef8-f748-9363-4952a942b6b7"], + +Cell[BoxData["17.899365062297456`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.991707968678421*^9, 3.9920912464957485`*^9, { + 3.992091391759611*^9, 3.9920914459163265`*^9}, {3.9920915022773495`*^9, + 3.992091521707552*^9}, {3.9920915610422688`*^9, 3.9920915876663055`*^9}}, + CellLabel-> + "Out[623]=",ExpressionUUID->"672bcff7-ec25-de46-8bcb-0153a202a030"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[624]:=",ExpressionUUID->"c26f4d6b-33a6-c74b-8e58-8c872bf2d377"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.9917079686854057`*^9, 3.9920912465018635`*^9, { + 3.9920913917806015`*^9, 3.992091445936638*^9}, {3.992091502299345*^9, + 3.9920915217152386`*^9}, {3.9920915610632706`*^9, 3.9920915876903477`*^9}}, + CellLabel-> + "Out[624]=",ExpressionUUID->"a352656a-5f43-bd49-bae2-efb450813e58"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.196"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.991793106556059*^9, 3.9920910273198013`*^9}, + CellLabel-> + "In[625]:=",ExpressionUUID->"4c0d8459-e5b2-7c4c-9056-2a7e0d198597"], + +Cell[BoxData["1.196`"], "Output", + CellChangeTimes->{ + 3.9920912465078697`*^9, {3.9920913917876263`*^9, 3.9920914459436436`*^9}, { + 3.9920915023063526`*^9, 3.992091521742319*^9}, {3.9920915610702686`*^9, + 3.9920915876973457`*^9}}, + CellLabel-> + "Out[625]=",ExpressionUUID->"92a8c255-9df0-bf4c-bc19-d7c1c1a4cc1e"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431193859673`*^9, 3.9918431193894367`*^9}}, + CellLabel-> + "In[626]:=",ExpressionUUID->"1e8b25bc-6dad-1342-b302-dda533b2ee00"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.867"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917169698218613`*^9, 3.991717907758713*^9, + 3.991793107839529*^9, 3.992091031242695*^9}, + CellLabel-> + "In[627]:=",ExpressionUUID->"7add0d03-f6a6-8f42-af17-7cc7d0fe8b4d"], + +Cell[BoxData["0.867`"], "Output", + CellChangeTimes->{ + 3.9920912465181103`*^9, {3.9920913918106594`*^9, 3.992091445969261*^9}, { + 3.9920915023426647`*^9, 3.9920915217668476`*^9}, {3.9920915610932617`*^9, + 3.9920915877213497`*^9}}, + CellLabel-> + "Out[627]=",ExpressionUUID->"fa655a22-1978-3843-a1ca-62e98ddb5510"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843120757866*^9, 3.9918431207603054`*^9}}, + CellLabel-> + "In[628]:=",ExpressionUUID->"c1ffd3ec-f920-5647-a85c-c943fcb4fe28"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv1", "=", "2.100"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.991717916696951*^9, + 3.991793108990593*^9, 3.992091034612562*^9}, + CellLabel-> + "In[629]:=",ExpressionUUID->"e581c85e-5f1c-4641-8ed7-2390c9ffe77a"], + +Cell[BoxData["2.1`"], "Output", + CellChangeTimes->{ + 3.992091246526657*^9, {3.992091391835745*^9, 3.9920914459788876`*^9}, { + 3.992091502366289*^9, 3.992091521799389*^9}, {3.9920915611022453`*^9, + 3.9920915877303467`*^9}}, + CellLabel-> + "Out[629]=",ExpressionUUID->"f9e2793b-e40b-044b-b274-5b2f5a53ef10"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431220200443`*^9, 3.9918431220220585`*^9}}, + CellLabel-> + "In[630]:=",ExpressionUUID->"89aa1de8-8133-6e4d-8a2c-68e61766e0f5"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn1", "=", "1.164"}], "\n"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.991716995355715*^9, + 3.9917931103354855`*^9, 3.992091037709795*^9}, + CellLabel-> + "In[631]:=",ExpressionUUID->"2bff1631-5bc3-3641-9d9e-483f6feaf8ee"], + +Cell[BoxData["1.164`"], "Output", + CellChangeTimes->{ + 3.9920912465361576`*^9, {3.9920913918577538`*^9, 3.9920914460063896`*^9}, { + 3.9920915023973026`*^9, 3.9920915218073883`*^9}, {3.992091561133566*^9, + 3.9920915877534084`*^9}}, + CellLabel-> + "Out[631]=",ExpressionUUID->"84c3fe99-4f38-a243-9651-721b7cce6f03"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431237966404`*^9, 3.9918431238010616`*^9}}, + CellLabel-> + "In[632]:=",ExpressionUUID->"6f0b7298-a6c1-194d-b5e7-a1eb74a869c9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.092"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991717006317978*^9, 3.9917931115739956`*^9, 3.992091043143379*^9}, + CellLabel-> + "In[633]:=",ExpressionUUID->"cf0d3cb6-bad0-4a40-9515-190eada3ee67"], + +Cell[BoxData["1.092`"], "Output", + CellChangeTimes->{ + 3.992091246544861*^9, {3.992091391881483*^9, 3.992091446029396*^9}, { + 3.9920915024203033`*^9, 3.992091521830391*^9}, {3.9920915611575603`*^9, + 3.9920915877614*^9}}, + CellLabel-> + "Out[633]=",ExpressionUUID->"e74ca7b2-e187-e144-9258-4f3ee7852c4c"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431249171696`*^9, 3.991843124921198*^9}}, + CellLabel-> + "In[634]:=",ExpressionUUID->"ce0fb70b-425b-d34a-9fc1-6d950153e2bb"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.745"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917170151233826`*^9, 3.9917931128910503`*^9, 3.9920910468211155`*^9}, + CellLabel-> + "In[635]:=",ExpressionUUID->"fb2b1c25-8414-9f47-8633-194c7a1fb9dd"], + +Cell[BoxData["0.745`"], "Output", + CellChangeTimes->{ + 3.99209124655336*^9, {3.9920913919080105`*^9, 3.9920914460524216`*^9}, { + 3.9920915024468384`*^9, 3.992091521861906*^9}, {3.992091561166565*^9, + 3.9920915877864456`*^9}}, + CellLabel-> + "Out[635]=",ExpressionUUID->"a3feffd1-fda2-754a-ab88-68ced4111c84"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843126102844*^9, 3.991843126104536*^9}}, + CellLabel-> + "In[636]:=",ExpressionUUID->"d0b85d76-4098-c744-8479-861aa7e0be1b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv2", "=", "1.690"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, { + 3.9917170243815575`*^9, 3.991717046491377*^9}, 3.991793114539028*^9, + 3.9920910516142616`*^9}, + CellLabel-> + "In[637]:=",ExpressionUUID->"b66e9432-ee26-214b-8c2d-c00236dba601"], + +Cell[BoxData["1.69`"], "Output", + CellChangeTimes->{ + 3.992091246563381*^9, {3.9920913919170284`*^9, 3.992091446078829*^9}, { + 3.992091502472595*^9, 3.992091521870432*^9}, {3.992091561191597*^9, + 3.992091587811405*^9}}, + CellLabel-> + "Out[637]=",ExpressionUUID->"62a9892b-736f-5347-8d9d-3ac7d0841777"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431274420605`*^9, 3.9918431274461517`*^9}}, + CellLabel-> + "In[638]:=",ExpressionUUID->"629fd618-c0d5-3044-9d12-e76a4b791186"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn2", "=", "0.942"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.991793116134735*^9, 3.9920910554773026`*^9}, + CellLabel-> + "In[639]:=",ExpressionUUID->"2612834b-3ea0-f045-8732-d622210f6481"], + +Cell[BoxData["0.942`"], "Output", + CellChangeTimes->{ + 3.99209124657098*^9, {3.9920913919423637`*^9, 3.992091446105234*^9}, { + 3.9920915024975986`*^9, 3.992091521894394*^9}, {3.992091561218664*^9, + 3.992091587820408*^9}}, + CellLabel-> + "Out[639]=",ExpressionUUID->"83e1d6a7-33b2-9c48-96af-91ba4d4eb6f0"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843129570627*^9, 3.991843129574024*^9}}, + CellLabel-> + "In[640]:=",ExpressionUUID->"bf581c25-0b9f-9e41-a3fb-674d26ac9698"], + +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[641]:=",ExpressionUUID->"87c2def5-dc96-e149-a4a5-46987b5d952d"], + +Cell[BoxData["1.3673914803678473`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.991707979950527*^9, 3.992091246629711*^9, { + 3.9920913919803658`*^9, 3.9920914461628*^9}, {3.992091502550644*^9, + 3.992091521950554*^9}, {3.992091561270252*^9, 3.9920915878786583`*^9}}, + CellLabel-> + "Out[641]=",ExpressionUUID->"1e7d327a-73b9-dd45-b3f9-bb14ef14cae8"] +}, 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[642]:=",ExpressionUUID->"07545136-5e1b-d840-b11e-4e0a5675c4ba"], + +Cell[BoxData["5.915425097815979`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9917079908393784`*^9, 3.9920912466771107`*^9, { + 3.992091392014946*^9, 3.9920914461978245`*^9}, {3.9920915025839367`*^9, + 3.9920915219846897`*^9}, {3.992091561308256*^9, 3.992091587913206*^9}}, + CellLabel-> + "Out[642]=",ExpressionUUID->"c83cc283-04ef-a84e-9af7-fd205e2af9d2"] +}, 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[643]:=",ExpressionUUID->"61628fce-333a-434b-8353-4629a3d5a494"], + +Cell[BoxData[ + RowBox[{"-", "65.3826470755978`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.991707995240637*^9, 3.9920912467196655`*^9, { + 3.9920913920504456`*^9, 3.9920914462375107`*^9}, {3.9920915026205044`*^9, + 3.9920915220203133`*^9}, {3.992091561346586*^9, 3.992091587949417*^9}}, + CellLabel-> + "Out[643]=",ExpressionUUID->"4d8850b2-a7e1-ad45-aa23-e3a188950012"] +}, 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[644]:=",ExpressionUUID->"8c9b1b0e-96cf-b048-a7b2-c1561c32b332"], + +Cell[BoxData[ + RowBox[{"-", "125.53393710893079`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.991707999380541*^9, 3.992091246775194*^9, { + 3.9920913920914593`*^9, 3.992091446285513*^9}, {3.9920915026595116`*^9, + 3.9920915220597553`*^9}, {3.9920915613875847`*^9, 3.9920915879934235`*^9}}, + CellLabel-> + "Out[644]=",ExpressionUUID->"26297e6a-1f5c-2140-884f-738b07fc9e95"] +}, 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[645]:=",ExpressionUUID->"c3e5b585-085a-5145-bb1a-b3d59c2656db"], + +Cell[BoxData[ + RowBox[{"-", "181.77206655859075`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.991708001954468*^9, 3.9920912468259945`*^9, { + 3.9920913921325283`*^9, 3.99209144632465*^9}, {3.9920915027005463`*^9, + 3.99209152210231*^9}, {3.9920915614267483`*^9, 3.992091588035942*^9}}, + CellLabel-> + "Out[645]=",ExpressionUUID->"af3d0815-e741-6c44-a8a9-ef219b324d8d"] +}, 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[646]:=",ExpressionUUID->"100184bc-6307-034a-bdc4-d82d46dec26f"], + +Cell[BoxData[ + RowBox[{"-", "695.190548511538`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.9917080040838356`*^9, 3.9920912468861237`*^9, { + 3.9920913921795197`*^9, 3.992091446372057*^9}, {3.9920915027450676`*^9, + 3.992091522149296*^9}, {3.992091561473261*^9, 3.99209158808547*^9}}, + CellLabel-> + "Out[646]=",ExpressionUUID->"8560a457-458b-e146-bcf5-bb20dbe97a00"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[647]:=",ExpressionUUID->"3eba58c9-518f-c24a-bf8f-092970b23695"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.991708067458639*^9, 3.9920912469088554`*^9, { + 3.9920913921995106`*^9, 3.992091446393757*^9}, {3.9920915027683907`*^9, + 3.992091522174301*^9}, {3.992091561495289*^9, 3.9920915881082993`*^9}}, + CellLabel-> + "Out[647]=",ExpressionUUID->"4a5f9cb1-4b77-5746-9cd1-6705a57c5707"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[648]:=",ExpressionUUID->"3b99dd68-65ea-204d-928f-93a8fbe02f95"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.9917080674805565`*^9, 3.9920912469163704`*^9, { + 3.992091392229389*^9, 3.992091446400278*^9}, {3.992091502799368*^9, + 3.9920915221803036`*^9}, {3.992091561520315*^9, 3.992091588115286*^9}}, + CellLabel-> + "Out[648]=",ExpressionUUID->"3b7c22bd-d8f8-4940-ac9f-e5afd4ee658e"] +}, 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[649]:=",ExpressionUUID->"fa83543e-05d1-7f42-9c7c-6efbc13926c2"], + +Cell[BoxData["361.2471433722319`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9917080675026455`*^9, 3.992091246940546*^9, { + 3.9920913922633686`*^9, 3.992091446426317*^9}, {3.9920915028063927`*^9, + 3.9920915222063217`*^9}, {3.9920915615442753`*^9, 3.9920915881375065`*^9}}, + CellLabel-> + "Out[649]=",ExpressionUUID->"5413702b-a4d4-7a4b-be6d-e780bc824ce5"] +}, 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[650]:=",ExpressionUUID->"8b73b587-5bc3-2b42-8807-abf7d5c3d6d5"], + +Cell[BoxData[ + RowBox[{"-", "349.7981011803344`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.991708067510544*^9, 3.992091246946535*^9, { + 3.992091392294138*^9, 3.9920914464543114`*^9}, {3.9920915028279285`*^9, + 3.99209152222933*^9}, {3.9920915615682793`*^9, 3.992091588163168*^9}}, + CellLabel-> + "Out[650]=",ExpressionUUID->"7315f5ec-72da-8246-94cf-8f6008fe5301"] +}, 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[651]:=",ExpressionUUID->"7a571710-fc1f-844e-9091-0854a5e9f4ae"], + +Cell[BoxData["454.36412518953205`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9917080675337753`*^9, 3.992091246972496*^9, { + 3.9920913923294888`*^9, 3.9920914464768276`*^9}, {3.9920915028354263`*^9, + 3.9920915222513294`*^9}, {3.992091561598337*^9, 3.9920915881942825`*^9}}, + CellLabel-> + "Out[651]=",ExpressionUUID->"8433489d-9c0e-ed43-a856-cd455a63c2c8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[652]:=",ExpressionUUID->"453f64ba-d48f-9e42-aebc-5f2b6a2001b5"], + +Cell[BoxData["0.4127308494837588`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.991708067540825*^9, 3.992091246979046*^9, { + 3.9920913923595943`*^9, 3.9920914465043583`*^9}, {3.992091502857462*^9, + 3.9920915222583466`*^9}, {3.992091561628416*^9, 3.992091588216179*^9}}, + CellLabel-> + "Out[652]=",ExpressionUUID->"15a3b0e4-b53e-b449-a04a-cbdb7412ed06"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[653]:=",ExpressionUUID->"912b52c9-0396-f648-8718-011647317699"], + +Cell[BoxData[ + RowBox[{"-", "0.1731065192411402`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.991708067561775*^9, 3.9920912470023327`*^9, { + 3.992091392382597*^9, 3.992091446511343*^9}, {3.992091502867462*^9, + 3.9920915222823963`*^9}, {3.992091561635437*^9, 3.9920915882387123`*^9}}, + CellLabel-> + "Out[653]=",ExpressionUUID->"4c9d7b26-0ba9-db4f-aabe-757a75058def"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[654]:=",ExpressionUUID->"44afcb94-b4b8-c044-ad08-a30ff78d6179"], + +Cell[BoxData[ + RowBox[{"-", "0.4062816230025426`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.9917080675837746`*^9, 3.9920912470088387`*^9, { + 3.992091392404505*^9, 3.9920914465343437`*^9}, {3.992091502893507*^9, + 3.992091522288412*^9}, {3.9920915616594143`*^9, 3.9920915882452965`*^9}}, + CellLabel-> + "Out[654]=",ExpressionUUID->"8ed6f279-dd2a-3b4a-9a29-3976b9998319"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[655]:=",ExpressionUUID->"8817f247-18cf-884a-9f0f-366ab32d0b5a"], + +Cell[BoxData["0.6303744483208076`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.9917080675917854`*^9, 3.992091247032854*^9, { + 3.9920913924115047`*^9, 3.9920914465403423`*^9}, {3.992091502900509*^9, + 3.9920915223143997`*^9}, {3.9920915616654167`*^9, 3.9920915882721863`*^9}}, + CellLabel-> + "Out[655]=",ExpressionUUID->"cd702f15-51f1-b144-8fa4-81c1dd8e0f65"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[656]:=",ExpressionUUID->"cb905081-daca-294f-a379-eb52a42d05cb"], + +Cell[BoxData["2.3367797709113582`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.991708067612774*^9, 3.992091247040392*^9, { + 3.9920913924180164`*^9, 3.992091446562351*^9}, {3.99209150292482*^9, + 3.992091522321432*^9}, {3.992091561687416*^9, 3.9920915882941914`*^9}}, + CellLabel-> + "Out[656]=",ExpressionUUID->"de0197f0-556f-7e4c-a4ef-f429b7726bff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[657]:=",ExpressionUUID->"f730cbe7-c985-0b4f-a634-4a9f872b5055"], + +Cell[BoxData["1.7566650946816267`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.991708067619776*^9, 3.992091247064493*^9, { + 3.992091392438549*^9, 3.9920914465698586`*^9}, {3.992091502931345*^9, + 3.9920915223446445`*^9}, {3.9920915616934185`*^9, 3.99209158830122*^9}}, + CellLabel-> + "Out[657]=",ExpressionUUID->"24c7a942-1360-2948-8ee4-d813a34c26da"] +}, 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[658]:=",ExpressionUUID->"4251bb2d-fcf6-9345-8a15-6625ed02aad9"], + +Cell[BoxData[ + RowBox[{"-", "30.830767993153184`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.991708067640772*^9, 3.992091247071554*^9, { + 3.99209139244553*^9, 3.99209144659474*^9}, {3.992091502953377*^9, + 3.992091522351671*^9}, {3.9920915617147236`*^9, 3.9920915883242016`*^9}}, + CellLabel-> + "Out[658]=",ExpressionUUID->"f40a9922-53d9-c54c-bc76-c2121bddce74"] +}, 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[659]:=",ExpressionUUID->"70a8bb5e-093b-e746-9123-396abd5cb2f9"], + +Cell[BoxData[ + RowBox[{"-", "18.659127233530825`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.991708067662775*^9, 3.9920912471162415`*^9, { + 3.9920913924683304`*^9, 3.9920914466022835`*^9}, {3.9920915029593945`*^9, + 3.99209152238122*^9}, {3.992091561736267*^9, 3.9920915883505287`*^9}}, + CellLabel-> + "Out[659]=",ExpressionUUID->"9847b04f-3fe3-4844-8048-53e0cf5961b8"] +}, 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[660]:=",ExpressionUUID->"e438d836-5137-6443-94d2-6b4cb3907304"], + +Cell[BoxData["330.4163753790787`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.991708067669775*^9, 3.9920912472323074`*^9, { + 3.9920913924753494`*^9, 3.9920914466254234`*^9}, {3.992091502983383*^9, + 3.992091522409233*^9}, {3.992091561743267*^9, 3.9920915883765354`*^9}}, + CellLabel-> + "Out[660]=",ExpressionUUID->"1c01b3cd-6698-f243-92a2-41c80f70f702"] +}, 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[661]:=",ExpressionUUID->"e960d34b-36c1-944f-86eb-59e8107f4b15"], + +Cell[BoxData[ + RowBox[{"-", "349.7981011803344`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.991708067690773*^9, 3.992091247257927*^9, { + 3.9920913925043335`*^9, 3.992091446632412*^9}, {3.9920915029893856`*^9, + 3.992091522416319*^9}, {3.9920915617668056`*^9, 3.992091588383543*^9}}, + CellLabel-> + "Out[661]=",ExpressionUUID->"e4b6ee48-d977-b247-9b13-ffb715b8a25c"] +}, 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[662]:=",ExpressionUUID->"95ecef4f-1365-0b49-bf71-7ca7ecff7d58"], + +Cell[BoxData["435.7049979560012`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.991708067697775*^9, 3.992091247289015*^9, { + 3.9920913925103607`*^9, 3.992091446661234*^9}, {3.9920915030163956`*^9, + 3.9920915224431896`*^9}, {3.992091561773327*^9, 3.9920915884085503`*^9}}, + CellLabel-> + "Out[662]=",ExpressionUUID->"9c303e44-3554-554e-b437-499a62a925ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel-> + "In[663]:=",ExpressionUUID->"7025431a-6673-534b-9709-76775da87e45"], + +Cell[BoxData["87.42511720990086`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.9917080677197742`*^9, 3.992091247312895*^9, { + 3.9920913925353565`*^9, 3.9920914466682186`*^9}, {3.9920915030234013`*^9, + 3.992091522463722*^9}, {3.992091561798332*^9, 3.992091588416548*^9}}, + CellLabel-> + "Out[663]=",ExpressionUUID->"e2be4920-6049-344d-b4ef-7ae85fe830f0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel-> + "In[664]:=",ExpressionUUID->"de3fc435-4b50-b14e-887b-8da83a47a57b"], + +Cell[BoxData["1623.0724592455672`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.991708067726776*^9, 3.992091247321451*^9, { + 3.992091392542387*^9, 3.992091446690258*^9}, {3.992091503048933*^9, + 3.99209152248625*^9}, {3.992091561805361*^9, 3.9920915884453773`*^9}}, + CellLabel-> + "Out[664]=",ExpressionUUID->"2508147f-5665-c946-9df2-8ea1a52b0b48"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.436538242446606"}]], "Input", + CellChangeTimes->{3.991847456288412*^9, + 3.9920919719348717`*^9},ExpressionUUID->"02c50ee4-f89d-e84b-babb-\ +c4951c25ae7a"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991847457119114*^9, + 3.991847457122698*^9}},ExpressionUUID->"a3744ee1-3657-ed40-afd1-\ +ad7c272f2bae"], + +Cell[BoxData[ + RowBox[{"f2", "=", "0.248236755663187"}]], "Input", + CellChangeTimes->{3.9918474584496803`*^9, + 3.992091975710621*^9},ExpressionUUID->"fea443da-bb80-5942-940a-\ +8bd97c50a7b3"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918474591039295`*^9, + 3.9918474591064377`*^9}},ExpressionUUID->"4a8ede4b-c349-9d4b-b8be-\ +a33659ac7670"], + +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->"c66d12ee-7a7e-014a-a59f-f5290f75e383"], + +Cell[BoxData["2.3793916761039806`*^-53"], "Output",ExpressionUUID->"d2a98016-4c83-3943-8fb1-133b89183d61"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + 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"]}]], "*", "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, {3.9915584375659084`*^9, + 3.9915584522049637`*^9}},ExpressionUUID->"f4d1663f-2f7d-a640-9003-\ +22515624ffcb"], + +Cell[BoxData["5.0207251137958644`*^-55"], "Output",ExpressionUUID->"25b3586e-dddb-8148-8247-2a53a0816ad5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + 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"]}]], "*", + 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}, + 3.9915584476498585`*^9},ExpressionUUID->"85637b45-1c33-1f4e-90c3-\ +07deba1b9b3a"], + +Cell[BoxData["1.8713726427856714`*^-54"], "Output",ExpressionUUID->"c7915de2-f678-2240-8907-4f119bfb9ca2"] +}, 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->"8f97c456-7671-\ +cb44-95b8-323a276088fe"], + +Cell[BoxData["25.178011816139865`"], "Output",ExpressionUUID->"c28337c4-580d-004c-bc3c-26abc607c115"] +}, 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->"e2507f75-9610-1346-854c-33db9330e900"], + +Cell[BoxData["37.88040277230648`"], "Output",ExpressionUUID->"eca6de54-61a8-eb4b-9203-3f4b34d3dfbd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input",ExpressionUUID->"148e44ba-fb40-0e42-\ +959d-44858270229f"], + +Cell[BoxData["0.7475613664924765`"], "Output",ExpressionUUID->"0fa81d47-3764-044a-bf93-ee5d1211e37a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input",ExpressionUUID->"0c021142-f067-b94a-\ +bf73-69c3aa281aca"], + +Cell[BoxData["3.219272026986442`"], "Output",ExpressionUUID->"f8ee43a7-a683-0f4c-8e84-b8ddc45a142b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input",ExpressionUUID->"827e3da4-\ +16db-854c-89ad-c94762d57459"], + +Cell[BoxData["121.94732101586592`"], "Output",ExpressionUUID->"3013ddc9-2d77-3941-8182-c74c4e917958"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"9149adf7-\ +16ac-794c-81f7-04a88d48bdc9"], + +Cell[BoxData["18.822108918837237`"], "Output",ExpressionUUID->"69944b55-6116-8240-914e-d57996010b53"] +}, 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->"14dc1278-8ac3-2246-\ +90ef-ba23d2bdffaa"], + +Cell[BoxData["0.04118782656518991`"], "Output",ExpressionUUID->"10e3cc8a-ad3e-4e41-ba26-c1acab07fa26"] +}, 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->"6c632312-\ +3007-0b42-93b3-6c1b961afeb6"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"606843ec-0d7b-f541-9ba3-5b67b435945d"], + +Cell[BoxData["4.366771860185336`"], "Output",ExpressionUUID->"859b213d-5319-f746-82ea-75944d21baab"] +}, 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->"60d1b3b3-12f2-2644-\ +8ed8-788b5437fdfb"], + +Cell[BoxData["0.010567083454288358`"], "Output",ExpressionUUID->"b3e0a85b-a4aa-ef42-9511-fc38e8dcde9a"] +}, 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->"8bbc8f7a-\ +f751-794c-9337-a97f1bdae578"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"390798a4-00bb-054f-8ee2-e80440f44497"], + +Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"ae91cf0f-72ea-5348-859e-dc6121354f77"] +}, 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->"9338c89c-67a3-6e41-be9a-\ +1cf34020b040"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"d0d3835d-fdd0-8c42-8864-83afb328c4cf"] +}, 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->"ae8d22a0-13a2-9d41-b648-\ +0faf6caf2253"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"751398e6-9533-bb47-8958-7a1def21254b"] +}, 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->"7d419d4a-7a13-\ +e94d-beb1-cf3b1cd962e0"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"1aeb1149-722c-dc42-812b-49cc813a09fb"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"5ded2365-6100-\ +7b43-ad8b-c1b09dc62d32"], + +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.991847477953953*^9},ExpressionUUID->"4fe3e3d4-6e7a-b544-8531-\ +81ac5c3a022e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2ce305f1-c638-b640-9e67-d7f6ae2bda61"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"b0af1054-fb47-e740-95af-24928a790ba1"], + +Cell[BoxData["4.366771860185332`"], "Output",ExpressionUUID->"66158712-c3f0-e64f-90ca-4bc93914d109"] +}, 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.991847481589756*^9},ExpressionUUID->"2e2efe37-106e-8a4d-98e1-\ +c6d073c59256"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"ddbb5dc1-4246-b141-8007-17d96bea04a9"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"1cbe63d8-1cf3-164a-9de9-78e410d01cd1"], + +Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"4bc5c73f-64dd-7843-be37-b49a7d1b54f0"] +}, 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.991847486086582*^9},ExpressionUUID->"5ef8c446-ea46-eb49-90ca-\ +5a9d2703a626"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"ce9fdda1-e376-7b48-b042-8c3b4f405fcb"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"66a78cc9-892b-204f-b904-4d54d4d3ebd0"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"77cccd91-6a05-1146-b314-0aa4f406152c"], + +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->"72ad5b3e-6607-7741-ad4a-54927ade8695"], + +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., 206.88000000000005}, \ +{127.62000000000003, 0.}} -> {-19.394, 0.892147, 0.709611, \ +0.0012616}},ExpressionUUID->"f8427134-7951-8548-ae28-485a485148a2"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"5446bdee-36aa-604e-a81f-\ +f7b281aa780e"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991847500514847*^9, {3.991847890840927*^9, + 3.991847891020767*^9}},ExpressionUUID->"b7386bff-07bb-694b-b11c-\ +7d3ff3a35bae"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"1b40a6b1-b8e0-af43-829a-2ca3d7ae070e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2360947f-22ea-fb4f-90b8-fd6f79665669"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"281ea8ed-b5ba-8045-83d3-97b36671a021"], + +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->"a4dfac90-0844-364a-8cdf-0596249bd283"], + +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., 206.88000000000005}, \ +{127.62000000000003, 0.}} -> {-3.23234, -0.00806918, 0.118269, \ +0.000558628}},ExpressionUUID->"42a070d0-1a40-f841-bc5a-496bce3f6168"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"c9fc5a7b-2d38-ba43-857f-\ +9aa96e6b3d16"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.009784"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.02687"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.043601"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.05335"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.062849"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.065087"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.067708"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.065141"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.063585"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.059029"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.055695"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.050792"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.046991"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.042372"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.03863"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.034472"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.031001"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.027323"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.024229"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.021057"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.018401"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991714709387436*^9, 3.991714738003292*^9}, { + 3.991714834117689*^9, 3.991714842328617*^9}, 3.991793311407936*^9, + 3.9917953263701286`*^9, {3.9920917695105457`*^9, + 3.9920917707588196`*^9}},ExpressionUUID->"08cc1ff9-b63b-d741-9dab-\ +b5604b3208c2"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.011000000000000001`], AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, + 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.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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->{{94.07049642219837, + 205.01757834806736`}, {-15.23616859338814, 2.101331406611859}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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, 52.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9917148467316074`*^9}, + CellLabel-> + "Out[529]=",ExpressionUUID->"d769d980-5c09-fe4c-baf0-fe9ddf32668b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, + 3.99179533223897*^9}},ExpressionUUID->"c833855b-86a8-7349-9ccf-\ +32b52052d827"], + +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"x130\\\", \\\",\\\", \ +GraphicsBox[List[List[], List[List[TagBox[List[Skeleton[2]], \ +Function[Annotation[Slot[1], \\\"Charting`Private`Tag#1\\\"]]]]], \ +List[List[], List[]]], List[Rule[DisplayFunction, Identity], \ +Rule[DisplayFunction, Identity], Rule[DisplayFunction, Identity], \ +Rule[AspectRatio, NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], \ +Rule[Axes, List[True, True]], Rule[AxesLabel, List[None, None]], \ +Rule[AxesOrigin, List[0, 0]], RuleDelayed[DisplayFunction, Identity], \ +Rule[Frame, List[List[False, False], List[False, False]]], Rule[FrameLabel, \ +List[List[None, None], List[None, None]]], Rule[FrameTicks, \ +List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ +Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"AxisPadding\\\", Scaled[0.02`]], \ +Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ +AbsolutePointSize[6]], Rule[\\\"DefaultPlotStyle\\\", \ +List[Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]]]], \ +Rule[\\\"DomainPadding\\\", Scaled[0.02`]], Rule[\\\"PointSizeFunction\\\", \ +\\\"SmallPointSize\\\"], Rule[\\\"RangePadding\\\", Scaled[0.05`]], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"IncludeHighlighting\\\", \\\ +\"CurrentPoint\\\"], Rule[\\\"HighlightStyle\\\", Automatic], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"CoordinatesToolOptions\\\", \ +List[Rule[Skeleton[2]], Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[0, \ +52.`], List[0, 0.120683`]]], Rule[PlotRangeClipping, True], \ +Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ +List[Scaled[0.02`], Scaled[0.05`]]]], Rule[Ticks, List[Automatic, \ +Automatic]]]]}], \\\"]\\\"}]\\).\"", 2, 532, 171, 24485846962764810879, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{{3.9917148948888054`*^9, 3.991714918948065*^9}}, + CellLabel-> + "During evaluation of \ +In[532]:=",ExpressionUUID->"876d039d-4206-f648-bcad-3d1cc1c9375e"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x130", ",", + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.011000000000000001`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, + 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.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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->{{29.72195338368416, + 78.6184367454052}, {-18.964692186399834`, 2.2071828136001663`}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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, 52.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]}], "]"}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}}, + CellLabel-> + "Out[532]=",ExpressionUUID->"d3e123dc-41cb-7141-a991-a4f7fbe6f12f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918480149621506`*^9},ExpressionUUID->"c6de3c8b-ad61-c04a-b1df-\ +f10741068cd1"], + +Cell[BoxData["9.786582751762749`"], "Output",ExpressionUUID->"38637efc-803d-8640-9e6e-276437831f52"] +}, 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.9918480132941303`*^9},ExpressionUUID->"e95bae90-91f9-c74f-b890-\ +1d51c0908f7e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"c023352e-b521-e84e-9cb3-97c71ad6a25e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"7309d20d-7fd9-4f4d-a7f3-0872cdf1105f"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"43ff04d1-726c-9a4f-a3ef-930184afcb3e"], + +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->"3fd3a11a-bede-e144-8b42-539dbe9249ba"], + +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., 206.88000000000005}, \ +{127.62000000000003, 0.}} -> {-3.23234, -0.00443741, 0.118269, \ +0.000307202}},ExpressionUUID->"960bbf59-2015-8349-bffe-e4d767d8aeeb"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"a75c82b0-dce2-dd4f-b864-\ +2a6b5c402da4"] +}, 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->"b292bf25-9f2c-1b44-bd26-31940b3b367d"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"bd49935b-c0f9-f44f-af7a-e4ad6a7bc2ad"], + +Cell[BoxData["15.784298544249623`"], "Output",ExpressionUUID->"43a947d2-2d74-d447-89ff-92c212e98dc4"] +}, 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.9918475382015915`*^9, + 3.9918475423636837`*^9}},ExpressionUUID->"101ef0da-c6f5-1c49-9804-\ +85fb5ed316b5"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"131678ec-17c0-f049-b9b0-aed329dc5583"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"a6fc1549-2fa3-f649-b6cc-c7168f9393cf"], + +Cell[BoxData["0.009432406283458074`"], "Output",ExpressionUUID->"0f29d6b0-abda-0849-9008-4443dea42d94"] +}, 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.991847547003359*^9, + 3.9918475498243904`*^9}},ExpressionUUID->"087f1adc-ca17-4a4e-8be3-\ +617724431d54"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"ffb3115b-8086-8941-bf0d-81ed4818f26f"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"6eb50ae6-c8bd-6941-a71f-82927d1c1d5c"], + +Cell[BoxData["5.210321944589433`"], "Output",ExpressionUUID->"e9e8685d-f821-c64d-930c-bdbceafb1970"] +}, 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.9918475561652145`*^9, + 3.991847558757557*^9}},ExpressionUUID->"562762dd-8337-c248-84ed-\ +48f09efe77cb"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"88848fa9-89c0-7441-a937-117af52a31e7"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"3e81b6c4-2244-bf42-b8b5-0fa000d4a037"], + +Cell[BoxData["20.308521034293705`"], "Output",ExpressionUUID->"75996429-631f-a540-8db3-d3eecf498491"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991847567835865*^9, + 3.9918475715285187`*^9}},ExpressionUUID->"b22d48b0-99f1-fc43-8d66-\ +dfdcb64caaf4"], + +Cell[BoxData["0.0009169614351270098`"], "Output",ExpressionUUID->"8631572e-009c-e547-9adf-d000b75a3b80"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991847581296728*^9, 3.991847583342928*^9}, + 3.9919236579457912`*^9},ExpressionUUID->"324c5332-372a-9346-847e-\ +b48a2f85529f"], + +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->"3aa52613-e091-\ +4440-b97b-cbff40fea673"], + +Cell[BoxData["5.744985073726742`"], "Output",ExpressionUUID->"0bfccaf4-b419-7b47-a5b9-ad617225ded2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input",ExpressionUUID->"00409e7b-892c-b145-\ +91f2-fd5d9616a547"], + +Cell[BoxData["1.564995573098341`"], "Output",ExpressionUUID->"0910edf9-27aa-f943-bd90-76d5bfb56389"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"eb9f1869-\ +8c47-4c47-ad8f-589aa7e556b3"], + +Cell[BoxData["8.990876207898397`"], "Output",ExpressionUUID->"50a3d579-8928-2343-996d-237ad0eb297d"] +}, 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->"a68db5dc-89e4-f247-\ +a519-53dcbe6905b1"], + +Cell[BoxData["0.06921475857237179`"], "Output",ExpressionUUID->"6b11f8d3-6b54-614d-a4c0-669be8c0ee7f"] +}, 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->"d3d0889a-\ +1b29-9a4d-af3d-093ef0359f4b"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"465a75ef-6b20-9848-9eff-c4e675672ad8"], + +Cell[BoxData["3.36857007702114`"], "Output",ExpressionUUID->"8931c974-5816-9e48-9ac0-0532e1ef18b1"] +}, 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->"9fe1a567-82b8-a345-\ +b4b0-80b2c100f9f3"], + +Cell[BoxData["0.01179213875658184`"], "Output",ExpressionUUID->"13c9a29c-6a6d-ff49-88af-96394780a9e2"] +}, 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->"3372ffe6-\ +5d5a-b247-8795-4c6a022053d0"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"5f5967c2-a14c-de46-b55b-52a0b7afbab3"], + +Cell[BoxData["8.161099076568318`"], "Output",ExpressionUUID->"bd025469-aef5-2448-a097-d2409dcee75d"] +}, 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->"367b34da-973d-2d45-8020-\ +5f24b7ad9501"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"98cac926-ef59-1342-b091-1b565c5978b3"] +}, 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->"112859ae-f114-4041-84e8-\ +1ba64a91ebc1"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"36a7aeca-f2a3-e949-b0ca-f804c0163692"] +}, 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->"695320bc-fa3e-\ +3547-be92-70a745b298b2"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"0abac473-9a99-bd43-b50e-e41bacfd95b6"] +}, 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.9918476180917797`*^9},ExpressionUUID->"b1722e07-c26a-4d47-97af-\ +4f4eb5664e3b"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"7ab7ec2a-fa78-4845-8b94-ac80bbb482ff"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"1e16a028-2ecd-3143-835f-f92cd0016663"], + +Cell[BoxData["3.3685700770211437`"], "Output",ExpressionUUID->"eadd70e7-26a1-4b46-8240-f3dce9859a07"] +}, 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.9918476209740715`*^9},ExpressionUUID->"e785cfe1-8cd5-4a44-8f18-\ +a3bdb03abf99"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"62adfe6c-817a-8644-a989-225720cd7059"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"cbaa115f-bf0d-1e4f-b5c7-1d35bae46521"], + +Cell[BoxData["8.161099076568323`"], "Output",ExpressionUUID->"e9a05a92-f41b-934a-a923-0dffa18fc100"] +}, 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.9918476243275547`*^9},ExpressionUUID->"39feef99-fcf4-8440-bed1-\ +25beef5a0630"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"56c86859-71bc-bf4d-8ea6-a152a4a828d3"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"47fbb3e0-458c-4d48-bc65-cfbd454ebd8b"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"a25aaf8c-9a35-1543-b0b4-c881fe78844a"], + +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->"d9cbee06-5ef4-e14d-b8da-4a8591142866"], + +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., 206.88000000000005}, \ +{127.62000000000003, 0.}} -> {-14.8518, 0.65382, 0.693802, \ +0.00448812}},ExpressionUUID->"2f0c6d62-d79c-fe40-ae18-5a4696a4ccbb"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"1b36cfb9-6a09-4c41-9a4d-\ +068e88bb9e2c"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918476306797314`*^9, {3.9918479463234234`*^9, + 3.9918479465064144`*^9}},ExpressionUUID->"e605439d-19dd-2645-8993-\ +c76100de5ed2"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"c359dea9-9ece-cf49-b7df-ef6b53440b08"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"df87c0d2-a345-c048-8631-aeba4b69c5c2"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"991abcb1-81ce-9b40-bdbb-a15d386b1b78"], + +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->"9aaae4b6-fac0-394d-b0b6-90b588c1351a"], + +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., 206.88000000000005}, \ +{127.62000000000003, 0.}} -> {-1.61617, -0.0100934, 0.0591342, \ +0.000698765}},ExpressionUUID->"9a870480-d3d4-8843-9f49-e5fc868c350b"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"954422c5-4061-764e-bf48-\ +99c016a64c85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, + 3.99179533223897*^9}},ExpressionUUID->"3e01852b-fa23-2642-abab-\ +f1f489e06059"], + +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"x130\\\", \\\",\\\", \ +GraphicsBox[List[List[], List[List[TagBox[List[Skeleton[2]], \ +Function[Annotation[Slot[1], \\\"Charting`Private`Tag#1\\\"]]]]], \ +List[List[], List[]]], List[Rule[DisplayFunction, Identity], \ +Rule[DisplayFunction, Identity], Rule[DisplayFunction, Identity], \ +Rule[AspectRatio, NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], \ +Rule[Axes, List[True, True]], Rule[AxesLabel, List[None, None]], \ +Rule[AxesOrigin, List[0, 0]], RuleDelayed[DisplayFunction, Identity], \ +Rule[Frame, List[List[False, False], List[False, False]]], Rule[FrameLabel, \ +List[List[None, None], List[None, None]]], Rule[FrameTicks, \ +List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ +Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"AxisPadding\\\", Scaled[0.02`]], \ +Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ +AbsolutePointSize[6]], Rule[\\\"DefaultPlotStyle\\\", \ +List[Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]]]], \ +Rule[\\\"DomainPadding\\\", Scaled[0.02`]], Rule[\\\"PointSizeFunction\\\", \ +\\\"SmallPointSize\\\"], Rule[\\\"RangePadding\\\", Scaled[0.05`]], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"IncludeHighlighting\\\", \\\ +\"CurrentPoint\\\"], Rule[\\\"HighlightStyle\\\", Automatic], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"CoordinatesToolOptions\\\", \ +List[Rule[Skeleton[2]], Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[0, \ +52.`], List[0, 0.120683`]]], Rule[PlotRangeClipping, True], \ +Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ +List[Scaled[0.02`], Scaled[0.05`]]]], Rule[Ticks, List[Automatic, \ +Automatic]]]]}], \\\"]\\\"}]\\).\"", 2, 532, 171, 24485846962764810879, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{{3.9917148948888054`*^9, 3.991714918948065*^9}}, + CellLabel-> + "During evaluation of \ +In[532]:=",ExpressionUUID->"745689c4-10fa-1143-9aff-0dfee3349f79"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x130", ",", + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.011000000000000001`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, + 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.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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, 52.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]}], "]"}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}}, + CellLabel-> + "Out[532]=",ExpressionUUID->"ec18a0ba-e266-a343-9325-0845f1736c56"] +}, Closed]], + +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->"cec9d659-40a4-9344-876a-cec895b68137"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"c8a425da-4684-ff4d-913f-cc5851265bc3"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"62616100-cef9-c34a-90ec-7024e73a21ef"] +}, 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.991847653697838*^9, + 3.991847658442892*^9}},ExpressionUUID->"dcfb8a1f-77bf-c54a-8dd4-\ +08e72b48e971"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"3bf07443-b608-4243-b971-51f82147ad62"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"e747471f-596a-2242-a829-0d8e6535227a"], + +Cell[BoxData["0.7273353591556563`"], "Output",ExpressionUUID->"89855e7d-6748-6649-99fc-db6c764ac3a4"] +}, 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.991847661764683*^9, + 3.991847664668476*^9}},ExpressionUUID->"b256ae65-c9c8-994b-815e-\ +de484a821375"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"ce81120b-8f1e-dd40-9437-7d92ce72052d"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"8dc8593d-acd4-c74f-aea6-e734c994e283"], + +Cell[BoxData["3.1005213487548544`"], "Output",ExpressionUUID->"6dc23113-bc95-494e-93a5-cd6a253efc0a"] +}, 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.9918476677400265`*^9, + 3.9918476736757298`*^9}},ExpressionUUID->"8fd338d4-a1be-6841-b853-\ +e94a67cb9612"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"6d8f0be9-093a-3b41-85dc-708af7e242e1"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2079ef2d-a37e-f54c-92b8-a37a53f349ad"], + +Cell[BoxData["18.198720438459198`"], "Output",ExpressionUUID->"554a4ded-bde6-2a46-af18-bac29cb48d9d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918476765269012`*^9, + 3.9918476808687553`*^9}},ExpressionUUID->"9231c462-6016-ac42-bd11-\ +cb0c7e92fda2"], + +Cell[BoxData["0.09682709699983048`"], "Output",ExpressionUUID->"682bcc08-531d-5f43-acd9-aafef153314e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918476877717896`*^9, 3.9918476906207848`*^9}, + 3.9919236729399815`*^9},ExpressionUUID->"7b4f4188-e9b4-a249-91fe-\ +f977b92c20b2"], + +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->"e639aabf-9918-\ +b148-b52f-1037c590e22d"], + +Cell[BoxData["7.1357426619652635`"], "Output",ExpressionUUID->"e8a065a4-9b1c-1e46-9347-2538ec1d0d92"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input",ExpressionUUID->"9f21bdcd-6887-bf47-\ +af20-cb6fe2ae22d1"], + +Cell[BoxData["1.4042291233210182`"], "Output",ExpressionUUID->"50446e68-3d8c-8d45-9164-a3f05e953b7b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"807c9644-\ +b813-4545-bd97-a39923ad2c85"], + +Cell[BoxData["10.02021766245587`"], "Output",ExpressionUUID->"c53e1eb9-111c-1c4f-83a4-760a21ed4b09"] +}, 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->"c029bbe7-1e0d-6c47-\ +9817-6aab8cca4349"], + +Cell[BoxData["0.06461147402889976`"], "Output",ExpressionUUID->"23daa51b-d813-3040-bd45-0d347c7122da"] +}, 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->"02414061-\ +9268-3a40-809c-791f7b1bc727"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"c6830ba9-9f74-4c4c-9b97-dded42b0d0cf"], + +Cell[BoxData["3.486503585502317`"], "Output",ExpressionUUID->"7cdd740f-da8e-1847-901d-4e38334c4602"] +}, 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->"0cf6ee00-990f-aa48-\ +80f8-a2822701e626"], + +Cell[BoxData["0.01165072070943232`"], "Output",ExpressionUUID->"bb8b113c-f7cc-4f4e-b883-2112fdc5e77e"] +}, 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->"0e7a310e-\ +8267-084b-8d71-ceb0b816dd18"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"23da22f8-8350-eb48-95d4-6a0bc4f515a3"], + +Cell[BoxData["8.21047995098231`"], "Output",ExpressionUUID->"0dd898e7-1224-8c4b-9b4a-44bf5a45b446"] +}, 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->"16870642-9452-a14f-a1b7-\ +576792706e56"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"09f95964-259e-d442-8b4d-9152a060f55e"] +}, 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->"207b673b-eb18-904e-8dba-\ +9c1c1dd6034c"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"cd37bbf1-e49a-6647-92bf-66da4b35a93e"] +}, 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->"fcc33f59-ac5d-\ +dc44-a6a0-01cb1397795c"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"a8990ed0-d980-fe49-b54f-af15cdaca5a8"] +}, 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.9918477038948536`*^9},ExpressionUUID->"c2bffed8-3648-ee47-bc6e-\ +be191758bd92"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"9353aa27-5dd8-6249-9acf-27d71a8dfe31"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"7a16941e-3686-3c49-a9bf-a8f0d031eb03"], + +Cell[BoxData["3.486503585502321`"], "Output",ExpressionUUID->"abe399c8-88d7-1f45-b974-4e13120badf7"] +}, 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.9918477072468624`*^9},ExpressionUUID->"162c1d78-b731-9743-923d-\ +e14e238c88c0"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"3884f153-af14-6b4b-904c-75f8499cadb1"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"decb9285-274f-5646-8622-e985a1ccc581"], + +Cell[BoxData["8.210479950982325`"], "Output",ExpressionUUID->"26b8d6b5-120d-b94f-8e05-d4bbf530818b"] +}, 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.991847711887806*^9},ExpressionUUID->"e062485f-eb72-5b44-8f24-\ +f29169102337"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"b65eca92-46bf-1d45-b9d4-7717f8601dca"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"43097017-8d6b-ed44-885b-d7dcc2918c11"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2c60786a-2040-fe49-981b-8347dab8e699"], + +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->"b9098ed1-26b0-e14f-83e6-f3cf126236c4"], + +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., 206.88000000000005}, \ +{127.62000000000003, 0.}} -> {-14.8518, 0.65382, 0.693802, \ +0.00448812}},ExpressionUUID->"d219667d-634a-2440-aa6f-10d194554a17"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"33e2e3bc-779e-de42-82b8-\ +f8c295872460"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918477165865707`*^9, {3.991847931067129*^9, + 3.9918479312310715`*^9}},ExpressionUUID->"d8f392d3-6c9e-3f4d-9982-\ +5d019384c724"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"77187be0-9434-894a-bf72-82e8f3e36aa6"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"dae11eea-bf2c-ea41-8cfc-910dacad7d02"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"3a91b588-c1b9-514a-8b35-49bc5a04ab45"], + +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->"90d10efd-2d21-7342-aab1-c6fb4c5c2e48"], + +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., 206.88000000000005}, \ +{127.62000000000003, 0.}} -> {-1.61617, -0.0100934, 0.0591342, \ +0.000698765}},ExpressionUUID->"b4689af7-5bf9-8d45-aba9-b2818f315461"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"ee661a5c-41cb-6a4f-9f2e-\ +fbc4cfed7c63"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, + 3.99179533223897*^9}},ExpressionUUID->"b7cf0d21-5483-ac4b-a7be-\ +b13fedb5cf43"], + +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"x130\\\", \\\",\\\", \ +GraphicsBox[List[List[], List[List[TagBox[List[Skeleton[2]], \ +Function[Annotation[Slot[1], \\\"Charting`Private`Tag#1\\\"]]]]], \ +List[List[], List[]]], List[Rule[DisplayFunction, Identity], \ +Rule[DisplayFunction, Identity], Rule[DisplayFunction, Identity], \ +Rule[AspectRatio, NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], \ +Rule[Axes, List[True, True]], Rule[AxesLabel, List[None, None]], \ +Rule[AxesOrigin, List[0, 0]], RuleDelayed[DisplayFunction, Identity], \ +Rule[Frame, List[List[False, False], List[False, False]]], Rule[FrameLabel, \ +List[List[None, None], List[None, None]]], Rule[FrameTicks, \ +List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ +Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"AxisPadding\\\", Scaled[0.02`]], \ +Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ +AbsolutePointSize[6]], Rule[\\\"DefaultPlotStyle\\\", \ +List[Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]]]], \ +Rule[\\\"DomainPadding\\\", Scaled[0.02`]], Rule[\\\"PointSizeFunction\\\", \ +\\\"SmallPointSize\\\"], Rule[\\\"RangePadding\\\", Scaled[0.05`]], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"IncludeHighlighting\\\", \\\ +\"CurrentPoint\\\"], Rule[\\\"HighlightStyle\\\", Automatic], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"CoordinatesToolOptions\\\", \ +List[Rule[Skeleton[2]], Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[0, \ +52.`], List[0, 0.120683`]]], Rule[PlotRangeClipping, True], \ +Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ +List[Scaled[0.02`], Scaled[0.05`]]]], Rule[Ticks, List[Automatic, \ +Automatic]]]]}], \\\"]\\\"}]\\).\"", 2, 532, 171, 24485846962764810879, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{{3.9917148948888054`*^9, 3.991714918948065*^9}}, + CellLabel-> + "During evaluation of \ +In[532]:=",ExpressionUUID->"aeed560b-6305-9b4b-9f36-1a15d67dc4b8"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x130", ",", + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.011000000000000001`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, + 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.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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, 52.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]}], "]"}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}}, + CellLabel-> + "Out[532]=",ExpressionUUID->"a8995578-961d-6b40-b936-9720a58b42d1"] +}, Closed]], + +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->"f102c80c-cb19-a64b-98f1-a3bbc351ff15"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"c6924563-b651-4446-bbba-bad311e0a4eb"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"41fd5ce1-50b0-1948-bce9-3bc136a88f8f"] +}, 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.991847745338249*^9, + 3.9918477508965435`*^9}},ExpressionUUID->"ad23855f-c99b-a44c-9a12-\ +deb534d421e5"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2f629e0d-1c2c-9343-bec2-dbe5570a25a9"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"60a5b48a-ad17-af47-8d95-10c332a921c3"], + +Cell[BoxData["0.576602516746911`"], "Output",ExpressionUUID->"780ecdd0-ef7b-2043-b88a-49c80ff7e9ca"] +}, 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.9918477556924458`*^9, + 3.991847758600897*^9}},ExpressionUUID->"04adbbfb-46b7-244b-ac81-\ +2150361c4bc9"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"62097c16-216f-f945-9c34-ad16941760e6"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"79915e14-0d67-a548-bfdc-6ae38b0a0207"], + +Cell[BoxData["3.32141991539404`"], "Output",ExpressionUUID->"ccc68cfe-df29-974a-9d22-9001e3d52ce6"] +}, 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.991847762058655*^9, + 3.9918477649417477`*^9}},ExpressionUUID->"a64b278e-5de9-3f4d-8a34-\ +31c8693c1f49"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"e9cd5f2e-f4c7-8e4d-9d92-9849542cfa72"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"7d087d1e-2fe7-8744-a225-ab71c2e4e591"], + +Cell[BoxData["18.419619005098298`"], "Output",ExpressionUUID->"f6f65fa9-4786-a04a-8ffc-0bc012202e10"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918477668459435`*^9, + 3.99184777089764*^9}},ExpressionUUID->"4be81bbf-81c0-3047-be62-\ +a85883f3e3bb"], + +Cell[BoxData["0.07371813161570438`"], "Output",ExpressionUUID->"c3918187-e898-c949-b542-e24802c9ee53"] +}, 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->"1e6d0353-69f5-de4f-ae7f-57aae5493e4a" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 457, 8, 22, "Input",ExpressionUUID->"a5f529d8-308a-8844-abd0-99c83fafbe2a"], +Cell[1036, 32, 337, 6, 25, "Output",ExpressionUUID->"c19df2a5-9ae0-a14c-92cd-2b2d86933693"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1410, 43, 351, 6, 22, "Input",ExpressionUUID->"c3b7e508-7723-b740-9754-e20d9a1945ff"], +Cell[1764, 51, 412, 7, 25, "Output",ExpressionUUID->"c34fd377-c3a2-ec40-ac2b-7ca7f9f2b178"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2213, 63, 258, 6, 22, "Input",ExpressionUUID->"81f68db5-daee-3d4a-96b1-13fd1265c302"], +Cell[2474, 71, 411, 7, 25, "Output",ExpressionUUID->"34f8a128-d630-274d-a63a-0621c4adc9a4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2922, 83, 180, 4, 22, "Input",ExpressionUUID->"0743e86a-5b0a-d844-8639-13049a8b22fb"], +Cell[3105, 89, 382, 7, 25, "Output",ExpressionUUID->"3e9cc233-eb63-c841-8bd9-773473bd0aa0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3524, 101, 262, 8, 35, "Input",ExpressionUUID->"8cdc3db3-c51c-074d-b115-c49145994657"], +Cell[3789, 111, 395, 7, 25, "Output",ExpressionUUID->"925906ed-a50d-3c40-93be-03b5be9bd1cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4221, 123, 136, 3, 22, "Input",ExpressionUUID->"f53a9070-8fa4-1b4b-8519-94485ba1649a"], +Cell[4360, 128, 386, 7, 25, "Output",ExpressionUUID->"d13100ba-db90-3341-a7d3-a33a69f83f5f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4783, 140, 281, 7, 22, "Input",ExpressionUUID->"4fde1924-b4ef-444f-9273-8917c48e3279"], +Cell[5067, 149, 401, 7, 25, "Output",ExpressionUUID->"95f2cee7-e7b8-3a46-bf2a-7862d148424a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5505, 161, 262, 8, 22, "Input",ExpressionUUID->"4f31084d-525f-9840-8b4d-fc6e260804c8"], +Cell[5770, 171, 401, 7, 25, "Output",ExpressionUUID->"2971c2d9-ce25-1342-bd56-cac85cbc1d9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6208, 183, 241, 5, 22, "Input",ExpressionUUID->"20374ff4-2bcf-5541-8bbb-2c5de601a94d"], +Cell[6452, 190, 421, 7, 25, "Output",ExpressionUUID->"1d6f0762-4404-2d4f-b2c6-b058b209d7e9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6910, 202, 240, 5, 22, "Input",ExpressionUUID->"ee4ada3d-3364-a349-93ea-e6f66d59827d"], +Cell[7153, 209, 420, 7, 25, "Output",ExpressionUUID->"8954d695-ca64-494b-9313-dffbc1ea860e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7610, 221, 133, 3, 22, "Input",ExpressionUUID->"8a7c2b33-2c22-3747-9e4f-082df49160a5"], +Cell[7746, 226, 384, 7, 25, "Output",ExpressionUUID->"23484763-51aa-9b41-918c-e9792d02d3ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8167, 238, 133, 3, 22, "Input",ExpressionUUID->"2980c168-5679-7a47-9db6-1e93d9b0b0d4"], +Cell[8303, 243, 379, 7, 25, "Output",ExpressionUUID->"f6141979-7d51-6e41-a11b-8dc09b55a9ca"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8719, 255, 561, 20, 65, "Input",ExpressionUUID->"caa1154b-40b5-e346-8e6b-d0e27118f754"], +Cell[9283, 277, 374, 6, 25, "Output",ExpressionUUID->"373743b8-c19d-544f-97e2-5b5892acf546"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9694, 288, 561, 20, 65, "Input",ExpressionUUID->"95f3c12e-1072-8041-8d95-71b25e347812"], +Cell[10258, 310, 378, 6, 25, "Output",ExpressionUUID->"df0acbc0-8c21-ea4e-af4b-046064495779"] +}, Open ]], +Cell[CellGroupData[{ +Cell[10673, 321, 1496, 49, 65, "Input",ExpressionUUID->"428b0fb6-d157-d340-bbf5-8bc1d0621a11"], +Cell[12172, 372, 374, 6, 25, "Output",ExpressionUUID->"10e756ee-2b6b-8747-b091-0ae318f41527"] +}, Open ]], +Cell[CellGroupData[{ +Cell[12583, 383, 1335, 45, 65, "Input",ExpressionUUID->"37c038be-3a87-2049-a55e-c48c3db4a7ee"], +Cell[13921, 430, 392, 7, 25, "Output",ExpressionUUID->"454e05bb-3efd-104a-9066-66bf80b94526"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14350, 442, 1335, 45, 65, "Input",ExpressionUUID->"8be7c98b-7162-1b49-8c84-2e3ca7ff14b6"], +Cell[15688, 489, 397, 7, 25, "Output",ExpressionUUID->"5077385d-055d-2a45-9a50-ad50f26d79d4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16122, 501, 1496, 49, 65, "Input",ExpressionUUID->"e375bcd8-164f-6445-b8e7-4835e290d5f6"], +Cell[17621, 552, 368, 6, 25, "Output",ExpressionUUID->"c2b43585-64dc-5f4e-ae8e-9bf8a29535b3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18026, 563, 135, 3, 22, "Input",ExpressionUUID->"51ced7fc-0cfd-ec4a-98f2-7f5b3792cb23"], +Cell[18164, 568, 358, 6, 25, "Output",ExpressionUUID->"a38acdb3-c11d-234c-a3b9-6ebd4b74e353"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18559, 579, 181, 4, 22, "Input",ExpressionUUID->"a50da5c0-55c1-694a-acb7-6b3e67aa4fea"], +Cell[18743, 585, 356, 6, 25, "Output",ExpressionUUID->"379763e9-3319-074f-8ca4-bea2a3a86232"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19136, 596, 138, 3, 22, "Input",ExpressionUUID->"66f78ab8-80e8-4149-89c9-4a2ca4549417"], +Cell[19277, 601, 364, 6, 25, "Output",ExpressionUUID->"093f1308-365e-5a4c-898b-9b9d12ce395c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19678, 612, 223, 5, 22, "Input",ExpressionUUID->"2628ead6-9386-cf48-bdf8-74b97df1e485"], +Cell[19904, 619, 367, 7, 25, "Output",ExpressionUUID->"e4b9c1de-c4e2-be47-8891-124a8f6116a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20308, 631, 138, 3, 22, "Input",ExpressionUUID->"3edcc0bc-d1e7-9845-8b3a-1b8d371e8b02"], +Cell[20449, 636, 360, 6, 25, "Output",ExpressionUUID->"f88f0645-8761-684d-9e14-40d370b86b94"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20846, 647, 306, 6, 22, "Input",ExpressionUUID->"29adee66-4e94-3d4e-adb3-2a2fb3a740e3"], +Cell[21155, 655, 310, 6, 25, "Output",ExpressionUUID->"574eac92-a758-ea41-adb9-dcd0609f8f1f"] +}, Open ]], +Cell[21480, 664, 177, 3, 22, "Input",ExpressionUUID->"115233fa-3431-3242-8da0-0984e04ecf60"], +Cell[CellGroupData[{ +Cell[21682, 671, 300, 6, 22, "Input",ExpressionUUID->"6905c326-c5f8-b244-ab70-abe3ab6035c0"], +Cell[21985, 679, 353, 6, 25, "Output",ExpressionUUID->"c701ab36-3417-2646-bbec-8edac19f5bf9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22375, 690, 223, 5, 22, "Input",ExpressionUUID->"fe9c2db8-186a-ec4e-8753-26fcd9b35e1e"], +Cell[22601, 697, 355, 6, 25, "Output",ExpressionUUID->"561a7e5e-701f-c64f-a4d3-a4148a28490d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22993, 708, 354, 11, 35, "Input",ExpressionUUID->"13830c4e-14d3-254b-ae35-8e7d06217275"], +Cell[23350, 721, 373, 6, 25, "Output",ExpressionUUID->"76f86e6b-37c5-0842-875e-d3012f42b987"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23760, 732, 354, 11, 35, "Input",ExpressionUUID->"ef7eac52-f317-614e-8deb-8cf20eff77ea"], +Cell[24117, 745, 386, 7, 25, "Output",ExpressionUUID->"5c2ff160-416e-c144-a357-891a4a14a9b1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24540, 757, 996, 27, 92, "Input",ExpressionUUID->"8cc0876c-3ef8-f748-9363-4952a942b6b7"], +Cell[25539, 786, 376, 6, 25, "Output",ExpressionUUID->"672bcff7-ec25-de46-8bcb-0153a202a030"] +}, Open ]], +Cell[CellGroupData[{ +Cell[25952, 797, 203, 4, 22, "Input",ExpressionUUID->"c26f4d6b-33a6-c74b-8e58-8c872bf2d377"], +Cell[26158, 803, 360, 6, 25, "Output",ExpressionUUID->"a352656a-5f43-bd49-bae2-efb450813e58"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26555, 814, 279, 5, 22, "Input",ExpressionUUID->"4c0d8459-e5b2-7c4c-9056-2a7e0d198597"], +Cell[26837, 821, 319, 6, 25, "Output",ExpressionUUID->"92a8c255-9df0-bf4c-bc19-d7c1c1a4cc1e"] +}, Open ]], +Cell[27171, 830, 179, 3, 22, "Input",ExpressionUUID->"1e8b25bc-6dad-1342-b302-dda533b2ee00"], +Cell[CellGroupData[{ +Cell[27375, 837, 327, 6, 22, "Input",ExpressionUUID->"7add0d03-f6a6-8f42-af17-7cc7d0fe8b4d"], +Cell[27705, 845, 319, 6, 25, "Output",ExpressionUUID->"fa655a22-1978-3843-a1ca-62e98ddb5510"] +}, Open ]], +Cell[28039, 854, 177, 3, 22, "Input",ExpressionUUID->"c1ffd3ec-f920-5647-a85c-c943fcb4fe28"], +Cell[CellGroupData[{ +Cell[28241, 861, 347, 7, 37, "Input",ExpressionUUID->"e581c85e-5f1c-4641-8ed7-2390c9ffe77a"], +Cell[28591, 870, 311, 6, 25, "Output",ExpressionUUID->"f9e2793b-e40b-044b-b274-5b2f5a53ef10"] +}, Open ]], +Cell[28917, 879, 179, 3, 22, "Input",ExpressionUUID->"89aa1de8-8133-6e4d-8a2c-68e61766e0f5"], +Cell[CellGroupData[{ +Cell[29121, 886, 351, 7, 37, "Input",ExpressionUUID->"2bff1631-5bc3-3641-9d9e-483f6feaf8ee"], +Cell[29475, 895, 319, 6, 25, "Output",ExpressionUUID->"84c3fe99-4f38-a243-9651-721b7cce6f03"] +}, Open ]], +Cell[29809, 904, 179, 3, 22, "Input",ExpressionUUID->"6f0b7298-a6c1-194d-b5e7-a1eb74a869c9"], +Cell[CellGroupData[{ +Cell[30013, 911, 277, 5, 22, "Input",ExpressionUUID->"cf0d3cb6-bad0-4a40-9515-190eada3ee67"], +Cell[30293, 918, 309, 6, 25, "Output",ExpressionUUID->"e74ca7b2-e187-e144-9258-4f3ee7852c4c"] +}, Open ]], +Cell[30617, 927, 177, 3, 22, "Input",ExpressionUUID->"ce0fb70b-425b-d34a-9fc1-6d950153e2bb"], +Cell[CellGroupData[{ +Cell[30819, 934, 281, 5, 22, "Input",ExpressionUUID->"fb2b1c25-8414-9f47-8633-194c7a1fb9dd"], +Cell[31103, 941, 314, 6, 25, "Output",ExpressionUUID->"a3feffd1-fda2-754a-ab88-68ced4111c84"] +}, Open ]], +Cell[31432, 950, 175, 3, 22, "Input",ExpressionUUID->"d0b85d76-4098-c744-8479-861aa7e0be1b"], +Cell[CellGroupData[{ +Cell[31632, 957, 329, 7, 37, "Input",ExpressionUUID->"b66e9432-ee26-214b-8c2d-c00236dba601"], +Cell[31964, 966, 308, 6, 25, "Output",ExpressionUUID->"62a9892b-736f-5347-8d9d-3ac7d0841777"] +}, Open ]], +Cell[32287, 975, 179, 3, 22, "Input",ExpressionUUID->"629fd618-c0d5-3044-9d12-e76a4b791186"], +Cell[CellGroupData[{ +Cell[32491, 982, 274, 6, 37, "Input",ExpressionUUID->"2612834b-3ea0-f045-8732-d622210f6481"], +Cell[32768, 990, 310, 6, 25, "Output",ExpressionUUID->"83e1d6a7-33b2-9c48-96af-91ba4d4eb6f0"] +}, Open ]], +Cell[33093, 999, 175, 3, 22, "Input",ExpressionUUID->"bf581c25-0b9f-9e41-a3fb-674d26ac9698"], +Cell[CellGroupData[{ +Cell[33293, 1006, 19813, 486, 1553, "Input",ExpressionUUID->"87c2def5-dc96-e149-a4a5-46987b5d952d"], +Cell[53109, 1494, 366, 6, 25, "Output",ExpressionUUID->"1e7d327a-73b9-dd45-b3f9-bb14ef14cae8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[53512, 1505, 19752, 490, 1579, "Input",ExpressionUUID->"07545136-5e1b-d840-b11e-4e0a5675c4ba"], +Cell[73267, 1997, 373, 6, 25, "Output",ExpressionUUID->"c83cc283-04ef-a84e-9af7-fd205e2af9d2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[73677, 2008, 19752, 484, 1572, "Input",ExpressionUUID->"61628fce-333a-434b-8353-4629a3d5a494"], +Cell[93432, 2494, 389, 7, 25, "Output",ExpressionUUID->"4d8850b2-a7e1-ad45-aa23-e3a188950012"] +}, Open ]], +Cell[CellGroupData[{ +Cell[93858, 2506, 22538, 554, 1766, "Input",ExpressionUUID->"8c9b1b0e-96cf-b048-a7b2-c1561c32b332"], +Cell[116399, 3062, 391, 7, 25, "Output",ExpressionUUID->"26297e6a-1f5c-2140-884f-738b07fc9e95"] +}, Open ]], +Cell[CellGroupData[{ +Cell[116827, 3074, 22539, 554, 1773, "Input",ExpressionUUID->"c3e5b585-085a-5145-bb1a-b3d59c2656db"], +Cell[139369, 3630, 389, 7, 25, "Output",ExpressionUUID->"af3d0815-e741-6c44-a8a9-ef219b324d8d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[139795, 3642, 25495, 627, 1984, "Input",ExpressionUUID->"100184bc-6307-034a-bdc4-d82d46dec26f"], +Cell[165293, 4271, 386, 7, 25, "Output",ExpressionUUID->"8560a457-458b-e146-bcf5-bb20dbe97a00"] +}, Open ]], +Cell[CellGroupData[{ +Cell[165716, 4283, 134, 3, 22, "Input",ExpressionUUID->"3eba58c9-518f-c24a-bf8f-092970b23695"], +Cell[165853, 4288, 356, 6, 25, "Output",ExpressionUUID->"4a5f9cb1-4b77-5746-9cd1-6705a57c5707"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166246, 4299, 134, 3, 22, "Input",ExpressionUUID->"3b99dd68-65ea-204d-928f-93a8fbe02f95"], +Cell[166383, 4304, 354, 6, 25, "Output",ExpressionUUID->"3b7c22bd-d8f8-4940-ac9f-e5afd4ee658e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166774, 4315, 1148, 40, 46, "Input",ExpressionUUID->"fa83543e-05d1-7f42-9c7c-6efbc13926c2"], +Cell[167925, 4357, 375, 6, 25, "Output",ExpressionUUID->"5413702b-a4d4-7a4b-be6d-e780bc824ce5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[168337, 4368, 1045, 36, 46, "Input",ExpressionUUID->"8b73b587-5bc3-2b42-8807-abf7d5c3d6d5"], +Cell[169385, 4406, 385, 7, 25, "Output",ExpressionUUID->"7315f5ec-72da-8246-94cf-8f6008fe5301"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169807, 4418, 1148, 40, 46, "Input",ExpressionUUID->"7a571710-fc1f-844e-9091-0854a5e9f4ae"], +Cell[170958, 4460, 378, 6, 25, "Output",ExpressionUUID->"8433489d-9c0e-ed43-a856-cd455a63c2c8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[171373, 4471, 112, 2, 22, "Input",ExpressionUUID->"453f64ba-d48f-9e42-aebc-5f2b6a2001b5"], +Cell[171488, 4475, 372, 6, 25, "Output",ExpressionUUID->"15a3b0e4-b53e-b449-a04a-cbdb7412ed06"] +}, Open ]], +Cell[CellGroupData[{ +Cell[171897, 4486, 112, 2, 22, "Input",ExpressionUUID->"912b52c9-0396-f648-8718-011647317699"], +Cell[172012, 4490, 389, 7, 25, "Output",ExpressionUUID->"4c9d7b26-0ba9-db4f-aabe-757a75058def"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172438, 4502, 112, 2, 22, "Input",ExpressionUUID->"44afcb94-b4b8-c044-ad08-a30ff78d6179"], +Cell[172553, 4506, 391, 7, 25, "Output",ExpressionUUID->"8ed6f279-dd2a-3b4a-9a29-3976b9998319"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172981, 4518, 112, 2, 22, "Input",ExpressionUUID->"8817f247-18cf-884a-9f0f-366ab32d0b5a"], +Cell[173096, 4522, 376, 6, 25, "Output",ExpressionUUID->"cd702f15-51f1-b144-8fa4-81c1dd8e0f65"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173509, 4533, 111, 2, 22, "Input",ExpressionUUID->"cb905081-daca-294f-a379-eb52a42d05cb"], +Cell[173623, 4537, 369, 6, 25, "Output",ExpressionUUID->"de0197f0-556f-7e4c-a4ef-f429b7726bff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174029, 4548, 111, 2, 22, "Input",ExpressionUUID->"f730cbe7-c985-0b4f-a634-4a9f872b5055"], +Cell[174143, 4552, 371, 6, 25, "Output",ExpressionUUID->"24c7a942-1360-2948-8ee4-d813a34c26da"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174551, 4563, 501, 17, 46, "Input",ExpressionUUID->"4251bb2d-fcf6-9345-8a15-6625ed02aad9"], +Cell[175055, 4582, 385, 7, 25, "Output",ExpressionUUID->"f40a9922-53d9-c54c-bc76-c2121bddce74"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175477, 4594, 501, 17, 46, "Input",ExpressionUUID->"70a8bb5e-093b-e746-9123-396abd5cb2f9"], +Cell[175981, 4613, 390, 7, 25, "Output",ExpressionUUID->"9847b04f-3fe3-4844-8048-53e0cf5961b8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176408, 4625, 1792, 61, 109, "Input",ExpressionUUID->"e438d836-5137-6443-94d2-6b4cb3907304"], +Cell[178203, 4688, 373, 6, 25, "Output",ExpressionUUID->"1c01b3cd-6698-f243-92a2-41c80f70f702"] +}, Open ]], +Cell[CellGroupData[{ +Cell[178613, 4699, 1105, 37, 64, "Input",ExpressionUUID->"e960d34b-36c1-944f-86eb-59e8107f4b15"], +Cell[179721, 4738, 388, 7, 25, "Output",ExpressionUUID->"e4b6ee48-d977-b247-9b13-ffb715b8a25c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[180146, 4750, 1822, 62, 90, "Input",ExpressionUUID->"95ecef4f-1365-0b49-bf71-7ca7ecff7d58"], +Cell[181971, 4814, 371, 6, 25, "Output",ExpressionUUID->"9c303e44-3554-554e-b437-499a62a925ff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[182379, 4825, 2503, 78, 72, "Input",ExpressionUUID->"7025431a-6673-534b-9709-76775da87e45"], +Cell[184885, 4905, 373, 6, 25, "Output",ExpressionUUID->"e2be4920-6049-344d-b4ef-7ae85fe830f0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185295, 4916, 2503, 78, 72, "Input",ExpressionUUID->"de3fc435-4b50-b14e-887b-8da83a47a57b"], +Cell[187801, 4996, 365, 6, 25, "Output",ExpressionUUID->"2508147f-5665-c946-9df2-8ea1a52b0b48"] +}, Open ]], +Cell[188181, 5005, 192, 4, 22, "Input",ExpressionUUID->"02c50ee4-f89d-e84b-babb-c4951c25ae7a"], +Cell[188376, 5011, 152, 3, 22, "Input",ExpressionUUID->"a3744ee1-3657-ed40-afd1-ad7c272f2bae"], +Cell[188531, 5016, 192, 4, 22, "Input",ExpressionUUID->"fea443da-bb80-5942-940a-8bd97c50a7b3"], +Cell[188726, 5022, 156, 3, 22, "Input",ExpressionUUID->"4a8ede4b-c349-9d4b-b8be-a33659ac7670"], +Cell[CellGroupData[{ +Cell[188907, 5029, 1273, 41, 39, "Input",ExpressionUUID->"c66d12ee-7a7e-014a-a59f-f5290f75e383"], +Cell[190183, 5072, 106, 0, 25, "Output",ExpressionUUID->"d2a98016-4c83-3943-8fb1-133b89183d61"] +}, Open ]], +Cell[CellGroupData[{ +Cell[190326, 5077, 913, 30, 46, "Input",ExpressionUUID->"f4d1663f-2f7d-a640-9003-22515624ffcb"], +Cell[191242, 5109, 106, 0, 25, "Output",ExpressionUUID->"25b3586e-dddb-8148-8247-2a53a0816ad5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191385, 5114, 961, 32, 46, "Input",ExpressionUUID->"85637b45-1c33-1f4e-90c3-07deba1b9b3a"], +Cell[192349, 5148, 106, 0, 25, "Output",ExpressionUUID->"c7915de2-f678-2240-8907-4f119bfb9ca2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192492, 5153, 532, 18, 42, "Input",ExpressionUUID->"8f97c456-7671-cb44-95b8-323a276088fe"], +Cell[193027, 5173, 101, 0, 25, "Output",ExpressionUUID->"c28337c4-580d-004c-bc3c-26abc607c115"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193165, 5178, 625, 21, 42, "Input",ExpressionUUID->"e2507f75-9610-1346-854c-33db9330e900"], +Cell[193793, 5201, 100, 0, 25, "Output",ExpressionUUID->"eca6de54-61a8-eb4b-9203-3f4b34d3dfbd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193930, 5206, 144, 4, 46, "Input",ExpressionUUID->"148e44ba-fb40-0e42-959d-44858270229f"], +Cell[194077, 5212, 101, 0, 25, "Output",ExpressionUUID->"0fa81d47-3764-044a-bf93-ee5d1211e37a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194215, 5217, 144, 4, 45, "Input",ExpressionUUID->"0c021142-f067-b94a-bf73-69c3aa281aca"], +Cell[194362, 5223, 100, 0, 25, "Output",ExpressionUUID->"f8ee43a7-a683-0f4c-8e84-b8ddc45a142b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194499, 5228, 155, 4, 35, "Input",ExpressionUUID->"827e3da4-16db-854c-89ad-c94762d57459"], +Cell[194657, 5234, 101, 0, 25, "Output",ExpressionUUID->"3013ddc9-2d77-3941-8182-c74c4e917958"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194795, 5239, 155, 4, 35, "Input",ExpressionUUID->"9149adf7-16ac-794c-81f7-04a88d48bdc9"], +Cell[194953, 5245, 101, 0, 25, "Output",ExpressionUUID->"69944b55-6116-8240-914e-d57996010b53"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195091, 5250, 6029, 184, 310, "Input",ExpressionUUID->"14dc1278-8ac3-2246-90ef-ba23d2bdffaa"], +Cell[201123, 5436, 102, 0, 25, "Output",ExpressionUUID->"10e3cc8a-ad3e-4e41-ba26-c1acab07fa26"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201262, 5441, 342, 8, 33, "Input",ExpressionUUID->"6c632312-3007-0b42-93b3-6c1b961afeb6"], +Cell[201607, 5451, 342, 6, 18, "Message",ExpressionUUID->"606843ec-0d7b-f541-9ba3-5b67b435945d"], +Cell[201952, 5459, 100, 0, 25, "Output",ExpressionUUID->"859b213d-5319-f746-82ea-75944d21baab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202089, 5464, 6096, 186, 353, "Input",ExpressionUUID->"60d1b3b3-12f2-2644-8ed8-788b5437fdfb"], +Cell[208188, 5652, 103, 0, 25, "Output",ExpressionUUID->"b3e0a85b-a4aa-ef42-9511-fc38e8dcde9a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208328, 5657, 342, 8, 33, "Input",ExpressionUUID->"8bbc8f7a-f751-794c-9337-a97f1bdae578"], +Cell[208673, 5667, 342, 6, 18, "Message",ExpressionUUID->"390798a4-00bb-054f-8ee2-e80440f44497"], +Cell[209018, 5675, 100, 0, 25, "Output",ExpressionUUID->"ae91cf0f-72ea-5348-859e-dc6121354f77"] +}, Open ]], +Cell[CellGroupData[{ +Cell[209155, 5680, 2637, 87, 135, "Input",ExpressionUUID->"9338c89c-67a3-6e41-be9a-1cf34020b040"], +Cell[211795, 5769, 101, 0, 25, "Output",ExpressionUUID->"d0d3835d-fdd0-8c42-8864-83afb328c4cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[211933, 5774, 2577, 84, 135, "Input",ExpressionUUID->"ae8d22a0-13a2-9d41-b648-0faf6caf2253"], +Cell[214513, 5860, 102, 0, 25, "Output",ExpressionUUID->"751398e6-9533-bb47-8958-7a1def21254b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[214652, 5865, 3686, 117, 197, "Input",ExpressionUUID->"7d419d4a-7a13-e94d-beb1-cf3b1cd962e0"], +Cell[218341, 5984, 102, 0, 25, "Output",ExpressionUUID->"1aeb1149-722c-dc42-812b-49cc813a09fb"] +}, Open ]], +Cell[218458, 5987, 138, 3, 34, "Input",ExpressionUUID->"5ded2365-6100-7b43-ad8b-c1b09dc62d32"], +Cell[CellGroupData[{ +Cell[218621, 5994, 2052, 59, 92, "Input",ExpressionUUID->"4fe3e3d4-6e7a-b544-8531-81ac5c3a022e"], +Cell[220676, 6055, 342, 6, 18, "Message",ExpressionUUID->"2ce305f1-c638-b640-9e67-d7f6ae2bda61"], +Cell[221021, 6063, 342, 6, 18, "Message",ExpressionUUID->"b0af1054-fb47-e740-95af-24928a790ba1"], +Cell[221366, 6071, 100, 0, 25, "Output",ExpressionUUID->"66158712-c3f0-e64f-90ca-4bc93914d109"] +}, Open ]], +Cell[CellGroupData[{ +Cell[221503, 6076, 2052, 59, 92, "Input",ExpressionUUID->"2e2efe37-106e-8a4d-98e1-c6d073c59256"], +Cell[223558, 6137, 342, 6, 18, "Message",ExpressionUUID->"ddbb5dc1-4246-b141-8007-17d96bea04a9"], +Cell[223903, 6145, 342, 6, 18, "Message",ExpressionUUID->"1cbe63d8-1cf3-164a-9de9-78e410d01cd1"], +Cell[224248, 6153, 100, 0, 25, "Output",ExpressionUUID->"4bc5c73f-64dd-7843-be37-b49a7d1b54f0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[224385, 6158, 1936, 53, 69, "Input",ExpressionUUID->"5ef8c446-ea46-eb49-90ca-5a9d2703a626"], +Cell[226324, 6213, 342, 6, 18, "Message",ExpressionUUID->"ce9fdda1-e376-7b48-b042-8c3b4f405fcb"], +Cell[226669, 6221, 342, 6, 18, "Message",ExpressionUUID->"66a78cc9-892b-204f-b904-4d54d4d3ebd0"], +Cell[227014, 6229, 342, 6, 18, "Message",ExpressionUUID->"77cccd91-6a05-1146-b314-0aa4f406152c"], +Cell[227359, 6237, 407, 7, 18, "Message",ExpressionUUID->"72ad5b3e-6607-7741-ad4a-54927ade8695"], +Cell[227769, 6246, 8042, 364, 148, 4231, 300, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"f8427134-7951-8548-ae28-485a485148a2"], +Cell[235814, 6612, 191, 5, 25, "Output",ExpressionUUID->"5446bdee-36aa-604e-a81f-f7b281aa780e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[236042, 6622, 2142, 61, 92, "Input",ExpressionUUID->"b7386bff-07bb-694b-b11c-7d3ff3a35bae"], +Cell[238187, 6685, 342, 6, 18, "Message",ExpressionUUID->"1b40a6b1-b8e0-af43-829a-2ca3d7ae070e"], +Cell[238532, 6693, 342, 6, 18, "Message",ExpressionUUID->"2360947f-22ea-fb4f-90b8-fd6f79665669"], +Cell[238877, 6701, 342, 6, 18, "Message",ExpressionUUID->"281ea8ed-b5ba-8045-83d3-97b36671a021"], +Cell[239222, 6709, 407, 7, 18, "Message",ExpressionUUID->"a4dfac90-0844-364a-8cdf-0596249bd283"], +Cell[239632, 6718, 8048, 353, 148, 4113, 287, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"42a070d0-1a40-f841-bc5a-496bce3f6168"], +Cell[247683, 7073, 191, 5, 25, "Output",ExpressionUUID->"c9fc5a7b-2d38-ba43-857f-9aa96e6b3d16"] +}, Open ]], +Cell[CellGroupData[{ +Cell[247911, 7083, 1869, 51, 81, "Input",ExpressionUUID->"08cc1ff9-b63b-d741-9dab-b5604b3208c2"], +Cell[249783, 7136, 9692, 222, 192, "Output",ExpressionUUID->"d769d980-5c09-fe4c-baf0-fe9ddf32668b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[259512, 7363, 257, 6, 34, "Input",ExpressionUUID->"c833855b-86a8-7349-9ccf-32b52052d827"], +Cell[259772, 7371, 2580, 42, 53, "Message",ExpressionUUID->"876d039d-4206-f648-bcad-3d1cc1c9375e"], +Cell[262355, 7415, 10187, 227, 60, "Output",ExpressionUUID->"d3e123dc-41cb-7141-a991-a4f7fbe6f12f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[272579, 7647, 217, 7, 39, "Input",ExpressionUUID->"c6de3c8b-ad61-c04a-b1df-f10741068cd1"], +Cell[272799, 7656, 100, 0, 25, "Output",ExpressionUUID->"38637efc-803d-8640-9e6e-276437831f52"] +}, Open ]], +Cell[CellGroupData[{ +Cell[272936, 7661, 1816, 53, 92, "Input",ExpressionUUID->"e95bae90-91f9-c74f-b890-1d51c0908f7e"], +Cell[274755, 7716, 342, 6, 18, "Message",ExpressionUUID->"c023352e-b521-e84e-9cb3-97c71ad6a25e"], +Cell[275100, 7724, 342, 6, 18, "Message",ExpressionUUID->"7309d20d-7fd9-4f4d-a7f3-0872cdf1105f"], +Cell[275445, 7732, 342, 6, 18, "Message",ExpressionUUID->"43ff04d1-726c-9a4f-a3ef-930184afcb3e"], +Cell[275790, 7740, 407, 7, 18, "Message",ExpressionUUID->"3fd3a11a-bede-e144-8b42-539dbe9249ba"], +Cell[276200, 7749, 8211, 365, 148, 4186, 297, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"960bbf59-2015-8349-bffe-e4d767d8aeeb"], +Cell[284414, 8116, 191, 5, 25, "Output",ExpressionUUID->"a75c82b0-dce2-dd4f-b864-2a6b5c402da4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[284642, 8126, 1590, 47, 69, "Input",ExpressionUUID->"b292bf25-9f2c-1b44-bd26-31940b3b367d"], +Cell[286235, 8175, 342, 6, 18, "Message",ExpressionUUID->"bd49935b-c0f9-f44f-af7a-e4ad6a7bc2ad"], +Cell[286580, 8183, 101, 0, 25, "Output",ExpressionUUID->"43a947d2-2d74-d447-89ff-92c212e98dc4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[286718, 8188, 2251, 64, 131, "Input",ExpressionUUID->"101ef0da-c6f5-1c49-9804-85fb5ed316b5"], +Cell[288972, 8254, 342, 6, 18, "Message",ExpressionUUID->"131678ec-17c0-f049-b9b0-aed329dc5583"], +Cell[289317, 8262, 342, 6, 18, "Message",ExpressionUUID->"a6fc1549-2fa3-f649-b6cc-c7168f9393cf"], +Cell[289662, 8270, 103, 0, 25, "Output",ExpressionUUID->"0f29d6b0-abda-0849-9008-4443dea42d94"] +}, Open ]], +Cell[CellGroupData[{ +Cell[289802, 8275, 2221, 64, 131, "Input",ExpressionUUID->"087f1adc-ca17-4a4e-8be3-617724431d54"], +Cell[292026, 8341, 342, 6, 18, "Message",ExpressionUUID->"ffb3115b-8086-8941-bf0d-81ed4818f26f"], +Cell[292371, 8349, 342, 6, 18, "Message",ExpressionUUID->"6eb50ae6-c8bd-6941-a71f-82927d1c1d5c"], +Cell[292716, 8357, 100, 0, 25, "Output",ExpressionUUID->"e9e8685d-f821-c64d-930c-bdbceafb1970"] +}, Open ]], +Cell[CellGroupData[{ +Cell[292853, 8362, 2221, 64, 131, "Input",ExpressionUUID->"562762dd-8337-c248-84ed-48f09efe77cb"], +Cell[295077, 8428, 342, 6, 18, "Message",ExpressionUUID->"88848fa9-89c0-7441-a937-117af52a31e7"], +Cell[295422, 8436, 342, 6, 18, "Message",ExpressionUUID->"3e81b6c4-2244-bf42-b8b5-0fa000d4a037"], +Cell[295767, 8444, 101, 0, 25, "Output",ExpressionUUID->"75996429-631f-a540-8db3-d3eecf498491"] +}, Open ]], +Cell[CellGroupData[{ +Cell[295905, 8449, 213, 6, 38, "Input",ExpressionUUID->"b22d48b0-99f1-fc43-8d66-dfdcb64caaf4"], +Cell[296121, 8457, 104, 0, 25, "Output",ExpressionUUID->"8631572e-009c-e547-9adf-d000b75a3b80"] +}, Open ]], +Cell[296240, 8460, 245, 5, 34, "Input",ExpressionUUID->"324c5332-372a-9346-847e-b48a2f85529f"], +Cell[CellGroupData[{ +Cell[296510, 8469, 532, 18, 42, "Input",ExpressionUUID->"3aa52613-e091-4440-b97b-cbff40fea673"], +Cell[297045, 8489, 100, 0, 25, "Output",ExpressionUUID->"0bfccaf4-b419-7b47-a5b9-ad617225ded2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[297182, 8494, 144, 4, 46, "Input",ExpressionUUID->"00409e7b-892c-b145-91f2-fd5d9616a547"], +Cell[297329, 8500, 100, 0, 25, "Output",ExpressionUUID->"0910edf9-27aa-f943-bd90-76d5bfb56389"] +}, Open ]], +Cell[CellGroupData[{ +Cell[297466, 8505, 155, 4, 35, "Input",ExpressionUUID->"eb9f1869-8c47-4c47-ad8f-589aa7e556b3"], +Cell[297624, 8511, 100, 0, 25, "Output",ExpressionUUID->"50a3d579-8928-2343-996d-237ad0eb297d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[297761, 8516, 6029, 184, 310, "Input",ExpressionUUID->"a68db5dc-89e4-f247-a519-53dcbe6905b1"], +Cell[303793, 8702, 102, 0, 25, "Output",ExpressionUUID->"6b11f8d3-6b54-614d-a4c0-669be8c0ee7f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[303932, 8707, 342, 8, 33, "Input",ExpressionUUID->"d3d0889a-1b29-9a4d-af3d-093ef0359f4b"], +Cell[304277, 8717, 342, 6, 18, "Message",ExpressionUUID->"465a75ef-6b20-9848-9eff-c4e675672ad8"], +Cell[304622, 8725, 99, 0, 25, "Output",ExpressionUUID->"8931c974-5816-9e48-9ac0-0532e1ef18b1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[304758, 8730, 6096, 186, 353, "Input",ExpressionUUID->"9fe1a567-82b8-a345-b4b0-80b2c100f9f3"], +Cell[310857, 8918, 102, 0, 25, "Output",ExpressionUUID->"13c9a29c-6a6d-ff49-88af-96394780a9e2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[310996, 8923, 342, 8, 33, "Input",ExpressionUUID->"3372ffe6-5d5a-b247-8795-4c6a022053d0"], +Cell[311341, 8933, 342, 6, 18, "Message",ExpressionUUID->"5f5967c2-a14c-de46-b55b-52a0b7afbab3"], +Cell[311686, 8941, 100, 0, 25, "Output",ExpressionUUID->"bd025469-aef5-2448-a097-d2409dcee75d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[311823, 8946, 2637, 87, 135, "Input",ExpressionUUID->"367b34da-973d-2d45-8020-5f24b7ad9501"], +Cell[314463, 9035, 101, 0, 25, "Output",ExpressionUUID->"98cac926-ef59-1342-b091-1b565c5978b3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[314601, 9040, 2577, 84, 135, "Input",ExpressionUUID->"112859ae-f114-4041-84e8-1ba64a91ebc1"], +Cell[317181, 9126, 102, 0, 25, "Output",ExpressionUUID->"36a7aeca-f2a3-e949-b0ca-f804c0163692"] +}, Open ]], +Cell[CellGroupData[{ +Cell[317320, 9131, 3686, 117, 197, "Input",ExpressionUUID->"695320bc-fa3e-3547-be92-70a745b298b2"], +Cell[321009, 9250, 102, 0, 25, "Output",ExpressionUUID->"0abac473-9a99-bd43-b50e-e41bacfd95b6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[321148, 9255, 2054, 59, 92, "Input",ExpressionUUID->"b1722e07-c26a-4d47-97af-4f4eb5664e3b"], +Cell[323205, 9316, 342, 6, 18, "Message",ExpressionUUID->"7ab7ec2a-fa78-4845-8b94-ac80bbb482ff"], +Cell[323550, 9324, 342, 6, 18, "Message",ExpressionUUID->"1e16a028-2ecd-3143-835f-f92cd0016663"], +Cell[323895, 9332, 101, 0, 25, "Output",ExpressionUUID->"eadd70e7-26a1-4b46-8240-f3dce9859a07"] +}, Open ]], +Cell[CellGroupData[{ +Cell[324033, 9337, 2054, 59, 92, "Input",ExpressionUUID->"e785cfe1-8cd5-4a44-8f18-a3bdb03abf99"], +Cell[326090, 9398, 342, 6, 18, "Message",ExpressionUUID->"62adfe6c-817a-8644-a989-225720cd7059"], +Cell[326435, 9406, 342, 6, 18, "Message",ExpressionUUID->"cbaa115f-bf0d-1e4f-b5c7-1d35bae46521"], +Cell[326780, 9414, 100, 0, 25, "Output",ExpressionUUID->"e9a05a92-f41b-934a-a923-0dffa18fc100"] +}, Open ]], +Cell[CellGroupData[{ +Cell[326917, 9419, 2030, 55, 54, "Input",ExpressionUUID->"39feef99-fcf4-8440-bed1-25beef5a0630"], +Cell[328950, 9476, 342, 6, 18, "Message",ExpressionUUID->"56c86859-71bc-bf4d-8ea6-a152a4a828d3"], +Cell[329295, 9484, 342, 6, 18, "Message",ExpressionUUID->"47fbb3e0-458c-4d48-bc65-cfbd454ebd8b"], +Cell[329640, 9492, 342, 6, 18, "Message",ExpressionUUID->"a25aaf8c-9a35-1543-b0b4-c881fe78844a"], +Cell[329985, 9500, 407, 7, 18, "Message",ExpressionUUID->"d9cbee06-5ef4-e14d-b8da-4a8591142866"], +Cell[330395, 9509, 9456, 438, 148, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"2f0c6d62-d79c-fe40-ae18-5a4696a4ccbb"], +Cell[339854, 9949, 191, 5, 25, "Output",ExpressionUUID->"1b36cfb9-6a09-4c41-9a4d-068e88bb9e2c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[340082, 9959, 2148, 61, 92, "Input",ExpressionUUID->"e605439d-19dd-2645-8993-c76100de5ed2"], +Cell[342233, 10022, 342, 6, 18, "Message",ExpressionUUID->"c359dea9-9ece-cf49-b7df-ef6b53440b08"], +Cell[342578, 10030, 342, 6, 18, "Message",ExpressionUUID->"df87c0d2-a345-c048-8631-aeba4b69c5c2"], +Cell[342923, 10038, 342, 6, 18, "Message",ExpressionUUID->"991abcb1-81ce-9b40-bdbb-a15d386b1b78"], +Cell[343268, 10046, 407, 7, 18, "Message",ExpressionUUID->"9aaae4b6-fac0-394d-b0b6-90b588c1351a"], +Cell[343678, 10055, 8570, 368, 148, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"9a870480-d3d4-8843-9f49-e5fc868c350b"], +Cell[352251, 10425, 191, 5, 25, "Output",ExpressionUUID->"954422c5-4061-764e-bf48-99c016a64c85"] +}, Open ]], +Cell[CellGroupData[{ +Cell[352479, 10435, 257, 6, 34, "Input",ExpressionUUID->"3e01852b-fa23-2642-abab-f1f489e06059"], +Cell[352739, 10443, 2580, 42, 56, "Message",ExpressionUUID->"745689c4-10fa-1143-9aff-0dfee3349f79"], +Cell[355322, 10487, 10201, 227, 56, "Output",ExpressionUUID->"ec18a0ba-e266-a343-9325-0845f1736c56"] +}, Closed]], +Cell[CellGroupData[{ +Cell[365560, 10719, 1590, 47, 67, "Input",ExpressionUUID->"cec9d659-40a4-9344-876a-cec895b68137"], +Cell[367153, 10768, 342, 6, 18, "Message",ExpressionUUID->"c8a425da-4684-ff4d-913f-cc5851265bc3"], +Cell[367498, 10776, 101, 0, 25, "Output",ExpressionUUID->"62616100-cef9-c34a-90ec-7024e73a21ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[367636, 10781, 2247, 64, 131, "Input",ExpressionUUID->"dcfb8a1f-77bf-c54a-8dd4-08e72b48e971"], +Cell[369886, 10847, 342, 6, 18, "Message",ExpressionUUID->"3bf07443-b608-4243-b971-51f82147ad62"], +Cell[370231, 10855, 342, 6, 18, "Message",ExpressionUUID->"e747471f-596a-2242-a829-0d8e6535227a"], +Cell[370576, 10863, 101, 0, 25, "Output",ExpressionUUID->"89855e7d-6748-6649-99fc-db6c764ac3a4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[370714, 10868, 2219, 64, 131, "Input",ExpressionUUID->"b256ae65-c9c8-994b-815e-de484a821375"], +Cell[372936, 10934, 342, 6, 18, "Message",ExpressionUUID->"ce81120b-8f1e-dd40-9437-7d92ce72052d"], +Cell[373281, 10942, 342, 6, 18, "Message",ExpressionUUID->"8dc8593d-acd4-c74f-aea6-e734c994e283"], +Cell[373626, 10950, 101, 0, 25, "Output",ExpressionUUID->"6dc23113-bc95-494e-93a5-cd6a253efc0a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[373764, 10955, 2223, 64, 131, "Input",ExpressionUUID->"8fd338d4-a1be-6841-b853-e94a67cb9612"], +Cell[375990, 11021, 342, 6, 56, "Message",ExpressionUUID->"6d8f0be9-093a-3b41-85dc-708af7e242e1"], +Cell[376335, 11029, 342, 6, 56, "Message",ExpressionUUID->"2079ef2d-a37e-f54c-92b8-a37a53f349ad"], +Cell[376680, 11037, 101, 0, 56, "Output",ExpressionUUID->"554a4ded-bde6-2a46-af18-bac29cb48d9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[376818, 11042, 215, 6, 56, "Input",ExpressionUUID->"9231c462-6016-ac42-bd11-cb0c7e92fda2"], +Cell[377036, 11050, 102, 0, 56, "Output",ExpressionUUID->"682bcc08-531d-5f43-acd9-aafef153314e"] +}, Open ]], +Cell[377153, 11053, 249, 5, 56, "Input",ExpressionUUID->"7b4f4188-e9b4-a249-91fe-f977b92c20b2"], +Cell[CellGroupData[{ +Cell[377427, 11062, 532, 18, 56, "Input",ExpressionUUID->"e639aabf-9918-b148-b52f-1037c590e22d"], +Cell[377962, 11082, 101, 0, 56, "Output",ExpressionUUID->"e8a065a4-9b1c-1e46-9347-2538ec1d0d92"] +}, Open ]], +Cell[CellGroupData[{ +Cell[378100, 11087, 144, 4, 56, "Input",ExpressionUUID->"9f21bdcd-6887-bf47-af20-cb6fe2ae22d1"], +Cell[378247, 11093, 101, 0, 56, "Output",ExpressionUUID->"50446e68-3d8c-8d45-9164-a3f05e953b7b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[378385, 11098, 155, 4, 56, "Input",ExpressionUUID->"807c9644-b813-4545-bd97-a39923ad2c85"], +Cell[378543, 11104, 100, 0, 56, "Output",ExpressionUUID->"c53e1eb9-111c-1c4f-83a4-760a21ed4b09"] +}, Open ]], +Cell[CellGroupData[{ +Cell[378680, 11109, 6029, 184, 56, "Input",ExpressionUUID->"c029bbe7-1e0d-6c47-9817-6aab8cca4349"], +Cell[384712, 11295, 102, 0, 56, "Output",ExpressionUUID->"23daa51b-d813-3040-bd45-0d347c7122da"] +}, Open ]], +Cell[CellGroupData[{ +Cell[384851, 11300, 342, 8, 56, "Input",ExpressionUUID->"02414061-9268-3a40-809c-791f7b1bc727"], +Cell[385196, 11310, 342, 6, 56, "Message",ExpressionUUID->"c6830ba9-9f74-4c4c-9b97-dded42b0d0cf"], +Cell[385541, 11318, 100, 0, 56, "Output",ExpressionUUID->"7cdd740f-da8e-1847-901d-4e38334c4602"] +}, Open ]], +Cell[CellGroupData[{ +Cell[385678, 11323, 6096, 186, 56, "Input",ExpressionUUID->"0cf6ee00-990f-aa48-80f8-a2822701e626"], +Cell[391777, 11511, 102, 0, 56, "Output",ExpressionUUID->"bb8b113c-f7cc-4f4e-b883-2112fdc5e77e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[391916, 11516, 342, 8, 56, "Input",ExpressionUUID->"0e7a310e-8267-084b-8d71-ceb0b816dd18"], +Cell[392261, 11526, 342, 6, 56, "Message",ExpressionUUID->"23da22f8-8350-eb48-95d4-6a0bc4f515a3"], +Cell[392606, 11534, 99, 0, 56, "Output",ExpressionUUID->"0dd898e7-1224-8c4b-9b4a-44bf5a45b446"] +}, Open ]], +Cell[CellGroupData[{ +Cell[392742, 11539, 2637, 87, 56, "Input",ExpressionUUID->"16870642-9452-a14f-a1b7-576792706e56"], +Cell[395382, 11628, 101, 0, 56, "Output",ExpressionUUID->"09f95964-259e-d442-8b4d-9152a060f55e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[395520, 11633, 2577, 84, 56, "Input",ExpressionUUID->"207b673b-eb18-904e-8dba-9c1c1dd6034c"], +Cell[398100, 11719, 102, 0, 56, "Output",ExpressionUUID->"cd37bbf1-e49a-6647-92bf-66da4b35a93e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[398239, 11724, 3686, 117, 56, "Input",ExpressionUUID->"fcc33f59-ac5d-dc44-a6a0-01cb1397795c"], +Cell[401928, 11843, 102, 0, 56, "Output",ExpressionUUID->"a8990ed0-d980-fe49-b54f-af15cdaca5a8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[402067, 11848, 2054, 59, 56, "Input",ExpressionUUID->"c2bffed8-3648-ee47-bc6e-be191758bd92"], +Cell[404124, 11909, 342, 6, 56, "Message",ExpressionUUID->"9353aa27-5dd8-6249-9acf-27d71a8dfe31"], +Cell[404469, 11917, 342, 6, 56, "Message",ExpressionUUID->"7a16941e-3686-3c49-a9bf-a8f0d031eb03"], +Cell[404814, 11925, 100, 0, 56, "Output",ExpressionUUID->"abe399c8-88d7-1f45-b974-4e13120badf7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[404951, 11930, 2054, 59, 56, "Input",ExpressionUUID->"162c1d78-b731-9743-923d-e14e238c88c0"], +Cell[407008, 11991, 342, 6, 56, "Message",ExpressionUUID->"3884f153-af14-6b4b-904c-75f8499cadb1"], +Cell[407353, 11999, 342, 6, 56, "Message",ExpressionUUID->"decb9285-274f-5646-8622-e985a1ccc581"], +Cell[407698, 12007, 100, 0, 56, "Output",ExpressionUUID->"26b8d6b5-120d-b94f-8e05-d4bbf530818b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[407835, 12012, 2028, 55, 56, "Input",ExpressionUUID->"e062485f-eb72-5b44-8f24-f29169102337"], +Cell[409866, 12069, 342, 6, 56, "Message",ExpressionUUID->"b65eca92-46bf-1d45-b9d4-7717f8601dca"], +Cell[410211, 12077, 342, 6, 56, "Message",ExpressionUUID->"43097017-8d6b-ed44-885b-d7dcc2918c11"], +Cell[410556, 12085, 342, 6, 56, "Message",ExpressionUUID->"2c60786a-2040-fe49-981b-8347dab8e699"], +Cell[410901, 12093, 407, 7, 56, "Message",ExpressionUUID->"b9098ed1-26b0-e14f-83e6-f3cf126236c4"], +Cell[411311, 12102, 9456, 438, 56, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"d219667d-634a-2440-aa6f-10d194554a17"], +Cell[420770, 12542, 191, 5, 56, "Output",ExpressionUUID->"33e2e3bc-779e-de42-82b8-f8c295872460"] +}, Open ]], +Cell[CellGroupData[{ +Cell[420998, 12552, 2146, 61, 56, "Input",ExpressionUUID->"d8f392d3-6c9e-3f4d-9982-5d019384c724"], +Cell[423147, 12615, 342, 6, 56, "Message",ExpressionUUID->"77187be0-9434-894a-bf72-82e8f3e36aa6"], +Cell[423492, 12623, 342, 6, 56, "Message",ExpressionUUID->"dae11eea-bf2c-ea41-8cfc-910dacad7d02"], +Cell[423837, 12631, 342, 6, 56, "Message",ExpressionUUID->"3a91b588-c1b9-514a-8b35-49bc5a04ab45"], +Cell[424182, 12639, 407, 7, 56, "Message",ExpressionUUID->"90d10efd-2d21-7342-aab1-c6fb4c5c2e48"], +Cell[424592, 12648, 8570, 368, 56, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"b4689af7-5bf9-8d45-aba9-b2818f315461"], +Cell[433165, 13018, 191, 5, 56, "Output",ExpressionUUID->"ee661a5c-41cb-6a4f-9f2e-fbc4cfed7c63"] +}, Open ]], +Cell[CellGroupData[{ +Cell[433393, 13028, 257, 6, 56, "Input",ExpressionUUID->"b7cf0d21-5483-ac4b-a7be-b13fedb5cf43"], +Cell[433653, 13036, 2580, 42, 56, "Message",ExpressionUUID->"aeed560b-6305-9b4b-9f36-1a15d67dc4b8"], +Cell[436236, 13080, 10201, 227, 56, "Output",ExpressionUUID->"a8995578-961d-6b40-b936-9720a58b42d1"] +}, Closed]], +Cell[CellGroupData[{ +Cell[446474, 13312, 1590, 47, 56, "Input",ExpressionUUID->"f102c80c-cb19-a64b-98f1-a3bbc351ff15"], +Cell[448067, 13361, 342, 6, 56, "Message",ExpressionUUID->"c6924563-b651-4446-bbba-bad311e0a4eb"], +Cell[448412, 13369, 101, 0, 56, "Output",ExpressionUUID->"41fd5ce1-50b0-1948-bce9-3bc136a88f8f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[448550, 13374, 2249, 64, 56, "Input",ExpressionUUID->"ad23855f-c99b-a44c-9a12-deb534d421e5"], +Cell[450802, 13440, 342, 6, 56, "Message",ExpressionUUID->"2f629e0d-1c2c-9343-bec2-dbe5570a25a9"], +Cell[451147, 13448, 342, 6, 56, "Message",ExpressionUUID->"60a5b48a-ad17-af47-8d95-10c332a921c3"], +Cell[451492, 13456, 100, 0, 56, "Output",ExpressionUUID->"780ecdd0-ef7b-2043-b88a-49c80ff7e9ca"] +}, Open ]], +Cell[CellGroupData[{ +Cell[451629, 13461, 2221, 64, 56, "Input",ExpressionUUID->"04adbbfb-46b7-244b-ac81-2150361c4bc9"], +Cell[453853, 13527, 342, 6, 56, "Message",ExpressionUUID->"62097c16-216f-f945-9c34-ad16941760e6"], +Cell[454198, 13535, 342, 6, 56, "Message",ExpressionUUID->"79915e14-0d67-a548-bfdc-6ae38b0a0207"], +Cell[454543, 13543, 99, 0, 56, "Output",ExpressionUUID->"ccc68cfe-df29-974a-9d22-9001e3d52ce6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[454679, 13548, 2221, 64, 56, "Input",ExpressionUUID->"a64b278e-5de9-3f4d-8a34-31c8693c1f49"], +Cell[456903, 13614, 342, 6, 56, "Message",ExpressionUUID->"e9cd5f2e-f4c7-8e4d-9d92-9849542cfa72"], +Cell[457248, 13622, 342, 6, 56, "Message",ExpressionUUID->"7d087d1e-2fe7-8744-a225-ab71c2e4e591"], +Cell[457593, 13630, 101, 0, 56, "Output",ExpressionUUID->"f6f65fa9-4786-a04a-8ffc-0bc012202e10"] +}, Open ]], +Cell[CellGroupData[{ +Cell[457731, 13635, 212, 6, 56, "Input",ExpressionUUID->"4be81bbf-81c0-3047-be62-a85883f3e3bb"], +Cell[457946, 13643, 102, 0, 56, "Output",ExpressionUUID->"c3918187-e898-c949-b542-e24802c9ee53"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/118-122_l_Pu240_394-395/l_118-122_Pu240_394-395_osc_Qw1.nb b/templates/P240_2-51_YakuninDA/118-122_l_Pu240_394-395/l_118-122_Pu240_394-395_osc_Qw1.nb new file mode 100755 index 0000000..84cfb36 --- /dev/null +++ b/templates/P240_2-51_YakuninDA/118-122_l_Pu240_394-395/l_118-122_Pu240_394-395_osc_Qw1.nb @@ -0,0 +1,15528 @@ +(* 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[ 641301, 15520] +NotebookOptionsPosition[ 599261, 14844] +NotebookOutlinePosition[ 599716, 14862] +CellTagsIndexPosition[ 599673, 14859] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "1.487"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.992091380220339*^9, 3.9920914023498554`*^9}, { + 3.992091432390732*^9, 3.9920914336565914`*^9}, {3.992091487909664*^9, + 3.992091509884199*^9}, {3.9920915487606087`*^9, 3.992091575705059*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"05f0731c-d41f-bc4e-b3a5-fe37ee9edd84"], + +Cell[BoxData["1.487`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.9920912460731335`*^9, {3.9920913913099537`*^9, + 3.9920914454062786`*^9}, {3.992091501746458*^9, 3.992091521168392*^9}, { + 3.992091560465807*^9, 3.9920915871378555`*^9}, 3.992114961553047*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"a7299129-bbf4-5c4c-9d26-8eca0c38b246"] +}, Open ]], + +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.992090953169281*^9, 3.992090953674198*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"12aae3bb-3c18-fc49-a0b1-b91fdc1bbe34"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.992091246132065*^9, {3.992091391344839*^9, + 3.992091445453377*^9}, {3.9920915017833214`*^9, 3.9920915212033978`*^9}, { + 3.9920915605023823`*^9, 3.9920915871716385`*^9}, 3.992114961635933*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"9269ae25-8e84-5f4a-ae7b-5271046d2399"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "118"}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.992090962010214*^9, + 3.9920909641549644`*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"93a900cf-d755-b944-921b-a609f0a955d2"], + +Cell[BoxData["118"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9920912461812153`*^9, {3.9920913913677273`*^9, + 3.9920914454793377`*^9}, {3.99209150180954*^9, 3.992091521232403*^9}, { + 3.9920915605245724`*^9, 3.9920915871936207`*^9}, 3.992114961649296*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"37c37e51-de29-2c4c-a106-a9712e22f3bb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"ad2e1847-77bb-2547-a825-69fabcda8ddf"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.991707828219631*^9, 3.9917123414174232`*^9, + 3.992091246203041*^9, {3.9920913913887367`*^9, 3.9920914455115204`*^9}, { + 3.992091501832567*^9, 3.992091521255453*^9}, {3.992091560553467*^9, + 3.992091587215521*^9}, 3.9921149616622944`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"ed34d0f4-b2cb-4846-b577-5fab7b27974b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"4cc840b0-88d4-374e-a12e-54b8464f3172"], + +Cell[BoxData["0.55025`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.9917078282275677`*^9, 3.9917123414253197`*^9, + 3.9920912462096825`*^9, {3.9920913913957386`*^9, 3.9920914455344753`*^9}, { + 3.992091501855606*^9, 3.9920915212775517`*^9}, {3.9920915605785923`*^9, + 3.992091587240816*^9}, 3.992114961679119*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"aa7f3430-612b-8b48-95d4-3c4d1b88c329"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"7e4318c8-0990-ce41-a87a-43c5428155f4"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9917078282485256`*^9, 3.9917123414324265`*^9, + 3.9920912462325726`*^9, {3.992091391402746*^9, 3.9920914455405865`*^9}, { + 3.992091501883623*^9, 3.992091521300558*^9}, {3.992091560585478*^9, + 3.992091587269293*^9}, 3.9921149616961193`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"22721aad-1be3-364e-a18c-701f91ea77f5"] +}, 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->"c991c4ea-4c61-ff4f-8dd1-a921864ebed7"], + +Cell[BoxData["5.6896470325678585`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.9917078282706223`*^9, 3.9917123414384117`*^9, + 3.992091246239073*^9, {3.9920913914237976`*^9, 3.9920914455615807`*^9}, { + 3.992091501905611*^9, 3.9920915213065586`*^9}, {3.992091560607477*^9, + 3.99209158727639*^9}, 3.99211496170912*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"b868e38d-b64a-dc43-a954-7c8e98e8a678"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"c0ebd7fd-cfec-df46-a449-f750a93384d0"], + +Cell[BoxData["5.753223770057068`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.9917078282785244`*^9, 3.991712341447321*^9, + 3.992091246266403*^9, {3.9920913914307785`*^9, 3.9920914455675926`*^9}, { + 3.9920915019126167`*^9, 3.992091521328596*^9}, {3.992091560630516*^9, + 3.9920915872983055`*^9}, 3.992114961726118*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"47088bbd-8358-3343-badb-22bbe4a2a8f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.912564762497319"}]], "Input", + CellChangeTimes->{3.9917123951294365`*^9, 3.99179305435186*^9, + 3.9920909790636597`*^9}, + CellLabel->"In[9]:=",ExpressionUUID->"4df260b6-0d11-1441-9e2e-22f951821193"], + +Cell[BoxData["0.912564762497319`"], "Output", + CellChangeTimes->{ + 3.991319649862606*^9, 3.991707828301527*^9, 3.9917123414573193`*^9, + 3.991712407248003*^9, 3.9920912462732334`*^9, {3.992091391454897*^9, + 3.992091445574003*^9}, {3.992091501939644*^9, 3.9920915213345757`*^9}, { + 3.9920915606593704`*^9, 3.9920915873053074`*^9}, 3.992114961738119*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"7b2868a6-0a88-e843-a499-e9f7fc635e75"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.619150671620403"}]], "Input", + CellChangeTimes->{3.9917124038115807`*^9, 3.991793052797516*^9, + 3.992090983698309*^9}, + CellLabel->"In[10]:=",ExpressionUUID->"2d27be30-fef3-4449-b748-886004fbb723"], + +Cell[BoxData["0.619150671620403`"], "Output", + CellChangeTimes->{ + 3.9913196498716316`*^9, 3.991707828308525*^9, 3.99171234146842*^9, + 3.9917124073213234`*^9, 3.9920912462944527`*^9, {3.992091391461418*^9, + 3.992091445598377*^9}, {3.992091501946205*^9, 3.9920915213588047`*^9}, { + 3.9920915606653767`*^9, 3.992091587327593*^9}, 3.992114961750044*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"5534dd71-3278-4046-ac2f-3c1afc8610d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"58f05ac2-9a5b-b743-b028-7f6094b06d91"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.9917078283276424`*^9, 3.991712341478319*^9, + 3.992091246314249*^9, {3.992091391486412*^9, 3.9920914456043663`*^9}, { + 3.9920915019684505`*^9, 3.992091521368332*^9}, {3.9920915606893826`*^9, + 3.9920915873371162`*^9}, 3.992114961762701*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"befc3b7b-561e-5444-9b7c-d2fe90c13c4c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"b018faa3-5a51-4f49-9b0d-7936087c5070"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.99170782834754*^9, 3.9917123414863186`*^9, + 3.992091246321356*^9, {3.992091391511833*^9, 3.992091445629402*^9}, { + 3.992091501974474*^9, 3.9920915213903313`*^9}, {3.9920915606973896`*^9, + 3.992091587358549*^9}, 3.9921149617766857`*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"9d5744b8-9530-584b-9e97-63f23041e347"] +}, 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->"44764fb1-9da1-4d4e-a570-89126d15f894"], + +Cell[BoxData["2.3367797709113582`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.991707968406042*^9, 3.9920912463416023`*^9, { + 3.992091391536875*^9, 3.9920914456353855`*^9}, {3.992091501999426*^9, + 3.9920915213963375`*^9}, {3.992091560721428*^9, 3.9920915873665257`*^9}, + 3.9921149617898808`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"092186ce-5ed2-5145-8e33-3cbb5611da0d"] +}, 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->"3281618b-d4a7-c942-98be-b78c0b986321"], + +Cell[BoxData["1.7566650946816267`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.9917079684291363`*^9, 3.992091246349119*^9, { + 3.9920913915428715`*^9, 3.992091445656397*^9}, {3.9920915020104103`*^9, + 3.9920915214180527`*^9}, {3.9920915607274265`*^9, 3.9920915873885345`*^9}, + 3.992114961803507*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"e500737c-497e-3f45-92da-5a8b2f159efb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"fed40061-6b4e-1748-b42c-03e683b18808"], + +Cell[BoxData["0.4127308494837588`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.991707968457081*^9, 3.9920912463708134`*^9, { + 3.9920913915624123`*^9, 3.9920914456634007`*^9}, {3.992091502031412*^9, + 3.9920915214423656`*^9}, {3.992091560753374*^9, 3.9920915873955364`*^9}, + 3.992114961818239*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"6094b55c-c9cc-ec46-be7c-13c57a67e950"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"f615b39c-9820-5147-95ce-618baa4e4991"], + +Cell[BoxData[ + RowBox[{"-", "0.1731065192411402`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.9917079684650364`*^9, 3.992091246395151*^9, { + 3.9920913915704136`*^9, 3.99209144568738*^9}, {3.9920915020386753`*^9, + 3.9920915214493656`*^9}, {3.9920915607803288`*^9, 3.9920915874025383`*^9}, + 3.992114961827215*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"69bfbdb2-54df-b542-8b02-6309ae33c809"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"7b2f9469-8c15-d349-a2c9-fcf9fcf6e8df"], + +Cell[BoxData[ + RowBox[{"-", "0.4062816230025426`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.9917079684860363`*^9, 3.9920912464020443`*^9, { + 3.992091391594614*^9, 3.9920914456933784`*^9}, {3.9920915020645943`*^9, + 3.9920915214756165`*^9}, {3.9920915607873363`*^9, 3.9920915874245453`*^9}, + 3.9921149618351135`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"a3d828d3-a0a4-7a4c-a93a-e57bb9a8e67d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"e673379f-2460-4e49-90d0-35742055e8f6"], + +Cell[BoxData["0.6303744483208076`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9917079684940376`*^9, 3.992091246410055*^9, { + 3.992091391600609*^9, 3.992091445718569*^9}, {3.9920915020705986`*^9, + 3.992091521497614*^9}, {3.9920915608113365`*^9, 3.992091587431551*^9}, + 3.99211496184577*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"5cd22d93-c8ea-0f41-a118-9acab3b2ac73"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"f65ba40e-adc9-4340-8c19-3a5692a89c19"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9917079685140343`*^9, 3.992091246419077*^9, { + 3.9920913916226387`*^9, 3.992091445728756*^9}, {3.992091502098713*^9, + 3.9920915215232697`*^9}, {3.9920915608188477`*^9, 3.9920915874605484`*^9}, + 3.9921149618545456`*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"e8996af0-ee91-6c4e-afb5-235b878a6abe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellChangeTimes->{3.9918430951178913`*^9}, + CellLabel->"In[20]:=",ExpressionUUID->"da90429f-71c9-fb44-900f-54f9ecb15c0c"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.991707968535036*^9, 3.992091246425289*^9, { + 3.9920913916286793`*^9, 3.9920914457553444`*^9}, {3.992091502104719*^9, + 3.992091521546232*^9}, {3.992091560843672*^9, 3.9920915874835606`*^9}, + 3.992114961867546*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"d1a06ca9-f385-b841-8587-d5915182226e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"ba9e3c3f-c755-9949-abdf-5c8716be163d"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.9917079685410557`*^9, 3.9920912464323254`*^9, { + 3.9920913916372147`*^9, 3.992091445775835*^9}, {3.9920915021291866`*^9, + 3.992091521553232*^9}, {3.9920915608516827`*^9, 3.9920915874905663`*^9}, + 3.9921149618755703`*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"a10bd39f-b904-2642-bcf2-3664c2271221"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"1df1d99a-14d1-664a-9952-fc0ffe17d214"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.991707968561041*^9, 3.992091246440319*^9, { + 3.9920913916577415`*^9, 3.992091445800337*^9}, {3.9920915021357*^9, + 3.992091521578417*^9}, {3.9920915608854294`*^9, 3.992091587511568*^9}, + 3.992114961883545*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"03af447f-ab2e-c24f-91dc-6e09874be799"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"934f8f71-5ebb-8a42-88af-b686f4e3e457"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.9917079685810375`*^9, 3.9920912464478264`*^9, { + 3.992091391664732*^9, 3.992091445806362*^9}, {3.9920915021607113`*^9, + 3.992091521584406*^9}, {3.9920915609120617`*^9, 3.992091587533596*^9}, + 3.992114961893547*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"58de734c-1e92-884e-9be4-944ff658977b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "46"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.9917930777342243`*^9, + 3.9920909943046665`*^9}, + CellLabel->"In[24]:=",ExpressionUUID->"6e10280b-ebb3-f646-bb1d-00a00fc0ed1c"], + +Cell[BoxData["46"], "Output", + CellChangeTimes->{ + 3.9920912464541206`*^9, {3.9920913916852074`*^9, 3.99209144582835*^9}, { + 3.9920915021677265`*^9, 3.992091521614517*^9}, {3.992091560933424*^9, + 3.9920915875599613`*^9}, 3.992114961902502*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"eb44e01b-ef45-4246-aece-bb00cd4c806f"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431115646553`*^9, 3.991843111569187*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"b89c6b57-db32-1742-8cc6-85b9a16d9dd6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, { + 3.991644237125025*^9, 3.991644237304865*^9}, 3.9920910015266705`*^9}, + CellLabel->"In[26]:=",ExpressionUUID->"f0485430-2764-5f40-9255-6cf8c0e180ff"], + +Cell[BoxData["48"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.991707968608036*^9, 3.992091246462631*^9, { + 3.992091391693775*^9, 3.992091445837349*^9}, {3.9920915021987267`*^9, + 3.992091521643547*^9}, {3.9920915609663124`*^9, 3.992091587583498*^9}, + 3.9921149619155617`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"7ea0ef79-4a03-344e-965f-7f88119ca068"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"a5017589-44b9-f144-b351-bb9b15123fd4"], + +Cell[BoxData["122"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.9917079686284103`*^9, 3.992091246474682*^9, { + 3.992091391720581*^9, 3.9920914458603497`*^9}, {3.99209150222027*^9, + 3.992091521651558*^9}, {3.9920915609955387`*^9, 3.9920915876045036`*^9}, + 3.9921149619251347`*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"0a87ec08-a4cb-a045-9f2c-abc494ad5759"] +}, 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->"7ab41717-55b0-584a-809f-945d0d693a80"], + +Cell[BoxData["0.10972214504028896`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9917079686354065`*^9, 3.992091246481163*^9, { + 3.992091391726591*^9, 3.9920914458677864`*^9}, {3.992091502227312*^9, + 3.992091521675709*^9}, {3.992091561028263*^9, 3.9920915876295033`*^9}, + 3.9921149619380913`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"3fc8b509-a69e-274e-839d-d5113dee41be"] +}, 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->"fde3e1f9-4cc1-8049-ba69-a2294a6452b9"], + +Cell[BoxData[ + RowBox[{"-", "2.564642956376771`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.991707968658518*^9, 3.992091246487665*^9, { + 3.9920913917495956`*^9, 3.992091445888296*^9}, {3.9920915022568245`*^9, + 3.9920915216830196`*^9}, {3.99209156103529*^9, 3.99209158763678*^9}, + 3.992114961949091*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"36a3c2cb-54af-1840-a768-081b59a68041"] +}, 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.991972093618887*^9, 3.9919720982596817`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"622e209c-a48d-e442-88d4-31c1022a52c8"], + +Cell[BoxData["17.899365062297456`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.991707968678421*^9, 3.9920912464957485`*^9, { + 3.992091391759611*^9, 3.9920914459163265`*^9}, {3.9920915022773495`*^9, + 3.992091521707552*^9}, {3.9920915610422688`*^9, 3.9920915876663055`*^9}, + 3.9921149619650097`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"a8a7631d-7922-e848-996e-504fdebb79d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"10ba819b-2025-9a47-9ea5-95a5611cda6a"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.9917079686854057`*^9, 3.9920912465018635`*^9, { + 3.9920913917806015`*^9, 3.992091445936638*^9}, {3.992091502299345*^9, + 3.9920915217152386`*^9}, {3.9920915610632706`*^9, 3.9920915876903477`*^9}, + 3.9921149619806023`*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"2fefc9ae-0743-8d44-90d4-ada0cb184848"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.196"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.991793106556059*^9, 3.9920910273198013`*^9}, + CellLabel->"In[32]:=",ExpressionUUID->"8e0c7ad3-3b58-ea40-9983-94e32bbe2818"], + +Cell[BoxData["1.196`"], "Output", + CellChangeTimes->{ + 3.9920912465078697`*^9, {3.9920913917876263`*^9, 3.9920914459436436`*^9}, { + 3.9920915023063526`*^9, 3.992091521742319*^9}, {3.9920915610702686`*^9, + 3.9920915876973457`*^9}, 3.9921149619936104`*^9}, + CellLabel->"Out[32]=",ExpressionUUID->"d317f5e9-e51f-3b49-b75e-fd85d0fa1e27"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431193859673`*^9, 3.9918431193894367`*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"eb8d52d1-9df0-c54e-85b2-4b5b928d8058"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.867"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917169698218613`*^9, 3.991717907758713*^9, + 3.991793107839529*^9, 3.992091031242695*^9}, + CellLabel->"In[34]:=",ExpressionUUID->"59432052-36a9-0e4a-b136-b5ef6e1cf7dc"], + +Cell[BoxData["0.867`"], "Output", + CellChangeTimes->{ + 3.9920912465181103`*^9, {3.9920913918106594`*^9, 3.992091445969261*^9}, { + 3.9920915023426647`*^9, 3.9920915217668476`*^9}, {3.9920915610932617`*^9, + 3.9920915877213497`*^9}, 3.9921149620107117`*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"aed84488-ec8a-9044-9deb-e084090e93e4"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843120757866*^9, 3.9918431207603054`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"7620191d-049f-d749-807c-ff7994d2bf64"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv1", "=", "2.100"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.991717916696951*^9, + 3.991793108990593*^9, 3.992091034612562*^9}, + CellLabel->"In[36]:=",ExpressionUUID->"2838c52a-e621-824e-8a28-6ddd911b4320"], + +Cell[BoxData["2.1`"], "Output", + CellChangeTimes->{ + 3.992091246526657*^9, {3.992091391835745*^9, 3.9920914459788876`*^9}, { + 3.992091502366289*^9, 3.992091521799389*^9}, {3.9920915611022453`*^9, + 3.9920915877303467`*^9}, 3.992114962029068*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"d0456ac0-ca41-9546-a020-1117c1dbbadb"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431220200443`*^9, 3.9918431220220585`*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"42e257a2-6901-9d4f-a831-1954f32e9186"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn1", "=", "1.164"}], "\n"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.991716995355715*^9, + 3.9917931103354855`*^9, 3.992091037709795*^9}, + CellLabel->"In[38]:=",ExpressionUUID->"26236e3a-fdac-eb4e-a22f-56d02cebcf41"], + +Cell[BoxData["1.164`"], "Output", + CellChangeTimes->{ + 3.9920912465361576`*^9, {3.9920913918577538`*^9, 3.9920914460063896`*^9}, { + 3.9920915023973026`*^9, 3.9920915218073883`*^9}, {3.992091561133566*^9, + 3.9920915877534084`*^9}, 3.9921149620421715`*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"989f46a1-fdd4-f748-b6bc-db8b261ca169"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431237966404`*^9, 3.9918431238010616`*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"dd3588b2-9ab9-a34a-afe1-cdd040915619"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.092"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991717006317978*^9, 3.9917931115739956`*^9, 3.992091043143379*^9}, + CellLabel->"In[40]:=",ExpressionUUID->"02fa1476-84ef-ac4d-a088-22546d6249ff"], + +Cell[BoxData["1.092`"], "Output", + CellChangeTimes->{ + 3.992091246544861*^9, {3.992091391881483*^9, 3.992091446029396*^9}, { + 3.9920915024203033`*^9, 3.992091521830391*^9}, {3.9920915611575603`*^9, + 3.9920915877614*^9}, 3.9921149620531063`*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"d7059119-5bbe-8a41-a391-ffa3cabf696b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431249171696`*^9, 3.991843124921198*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"5841a374-f07b-3948-b1fb-c9f1f2e2508c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.745"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917170151233826`*^9, 3.9917931128910503`*^9, 3.9920910468211155`*^9}, + CellLabel->"In[42]:=",ExpressionUUID->"2fad32fe-2323-a247-8df8-53787ce8fe84"], + +Cell[BoxData["0.745`"], "Output", + CellChangeTimes->{ + 3.99209124655336*^9, {3.9920913919080105`*^9, 3.9920914460524216`*^9}, { + 3.9920915024468384`*^9, 3.992091521861906*^9}, {3.992091561166565*^9, + 3.9920915877864456`*^9}, 3.9921149620640697`*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"1878c857-f241-364e-a54d-70012c656632"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843126102844*^9, 3.991843126104536*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"1b7179f5-adc5-4a42-8f8b-65c9268fc5eb"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv2", "=", "1.690"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, { + 3.9917170243815575`*^9, 3.991717046491377*^9}, 3.991793114539028*^9, + 3.9920910516142616`*^9}, + CellLabel->"In[44]:=",ExpressionUUID->"00d82cf5-fe39-a24b-bb7b-1d0e115472c2"], + +Cell[BoxData["1.69`"], "Output", + CellChangeTimes->{ + 3.992091246563381*^9, {3.9920913919170284`*^9, 3.992091446078829*^9}, { + 3.992091502472595*^9, 3.992091521870432*^9}, {3.992091561191597*^9, + 3.992091587811405*^9}, 3.9921149620750637`*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"84fca45a-258b-214b-aeb9-3b84e9e5ceb7"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431274420605`*^9, 3.9918431274461517`*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"dfb148c5-f80e-3f46-b88b-570a723a95bc"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn2", "=", "0.942"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.991793116134735*^9, 3.9920910554773026`*^9}, + CellLabel->"In[46]:=",ExpressionUUID->"db5cb55e-0710-c147-81f4-1d5b600a6284"], + +Cell[BoxData["0.942`"], "Output", + CellChangeTimes->{ + 3.99209124657098*^9, {3.9920913919423637`*^9, 3.992091446105234*^9}, { + 3.9920915024975986`*^9, 3.992091521894394*^9}, {3.992091561218664*^9, + 3.992091587820408*^9}, 3.9921149620860634`*^9}, + CellLabel->"Out[46]=",ExpressionUUID->"b0002b9a-206a-6f48-9692-7365276facb1"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843129570627*^9, 3.991843129574024*^9}}, + CellLabel->"In[47]:=",ExpressionUUID->"bc012921-2f5f-014d-9378-a2fad1ed7321"], + +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[48]:=",ExpressionUUID->"c0e79410-fc92-1e45-af3b-c110ed8e3abb"], + +Cell[BoxData["1.3673914803678473`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.991707979950527*^9, 3.992091246629711*^9, { + 3.9920913919803658`*^9, 3.9920914461628*^9}, {3.992091502550644*^9, + 3.992091521950554*^9}, {3.992091561270252*^9, 3.9920915878786583`*^9}, + 3.9921149621386833`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"f5bec4c8-09de-4d4a-ba58-1c0532454743"] +}, 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[49]:=",ExpressionUUID->"5dd2eacd-c52a-fd43-adfd-9865b6491968"], + +Cell[BoxData["5.915425097815979`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9917079908393784`*^9, 3.9920912466771107`*^9, { + 3.992091392014946*^9, 3.9920914461978245`*^9}, {3.9920915025839367`*^9, + 3.9920915219846897`*^9}, {3.992091561308256*^9, 3.992091587913206*^9}, + 3.992114962268324*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"b56001e8-6d06-4643-ab3f-522e44e6796e"] +}, 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[50]:=",ExpressionUUID->"4ed88227-1e87-3c47-8347-5fd8655168bd"], + +Cell[BoxData[ + RowBox[{"-", "65.3826470755978`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.991707995240637*^9, 3.9920912467196655`*^9, { + 3.9920913920504456`*^9, 3.9920914462375107`*^9}, {3.9920915026205044`*^9, + 3.9920915220203133`*^9}, {3.992091561346586*^9, 3.992091587949417*^9}, + 3.99211496239394*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"1f1d1e30-b864-8849-a0ea-c33281d27c3f"] +}, 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[51]:=",ExpressionUUID->"69c9ca34-ec1f-344d-935e-d99be87c6a30"], + +Cell[BoxData[ + RowBox[{"-", "125.53393710893079`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.991707999380541*^9, 3.992091246775194*^9, { + 3.9920913920914593`*^9, 3.992091446285513*^9}, {3.9920915026595116`*^9, + 3.9920915220597553`*^9}, {3.9920915613875847`*^9, 3.9920915879934235`*^9}, + 3.992114962531828*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"53836eec-bf48-9d41-bd56-30b38e1666df"] +}, 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[52]:=",ExpressionUUID->"8f86ffe3-4c00-0445-be01-9f9c3bf740a4"], + +Cell[BoxData[ + RowBox[{"-", "181.77206655859075`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.991708001954468*^9, 3.9920912468259945`*^9, { + 3.9920913921325283`*^9, 3.99209144632465*^9}, {3.9920915027005463`*^9, + 3.99209152210231*^9}, {3.9920915614267483`*^9, 3.992091588035942*^9}, + 3.9921149627173805`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"76ea087b-5888-d841-a2ec-fda57dccca77"] +}, 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[53]:=",ExpressionUUID->"5220f60f-abac-c041-83b6-4ff9b963c510"], + +Cell[BoxData[ + RowBox[{"-", "695.190548511538`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.9917080040838356`*^9, 3.9920912468861237`*^9, { + 3.9920913921795197`*^9, 3.992091446372057*^9}, {3.9920915027450676`*^9, + 3.992091522149296*^9}, {3.992091561473261*^9, 3.99209158808547*^9}, + 3.992114962837641*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"4eb7aed1-2543-6048-822b-7d761058dc7f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"50a59971-b8b3-904a-9a20-2d0c4a200469"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.991708067458639*^9, 3.9920912469088554`*^9, { + 3.9920913921995106`*^9, 3.992091446393757*^9}, {3.9920915027683907`*^9, + 3.992091522174301*^9}, {3.992091561495289*^9, 3.9920915881082993`*^9}, + 3.992114962849848*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"e2f15be6-df3a-684b-979d-d9a00f7e3324"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"99b95585-fb4d-4c4e-a0a1-a7cadcf4974c"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.9917080674805565`*^9, 3.9920912469163704`*^9, { + 3.992091392229389*^9, 3.992091446400278*^9}, {3.992091502799368*^9, + 3.9920915221803036`*^9}, {3.992091561520315*^9, 3.992091588115286*^9}, + 3.9921149628616543`*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"a22559fa-1db7-4946-8110-42f5b22aa2e4"] +}, 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[56]:=",ExpressionUUID->"15d5ff38-e0ad-194f-988e-5bba229258a0"], + +Cell[BoxData["361.2471433722319`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9917080675026455`*^9, 3.992091246940546*^9, { + 3.9920913922633686`*^9, 3.992091446426317*^9}, {3.9920915028063927`*^9, + 3.9920915222063217`*^9}, {3.9920915615442753`*^9, 3.9920915881375065`*^9}, + 3.9921149628727016`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"25633aec-b044-8043-99e4-c87838e73c6f"] +}, 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[57]:=",ExpressionUUID->"f50ed71d-f500-b142-b06c-d815a3ba2272"], + +Cell[BoxData[ + RowBox[{"-", "349.7981011803344`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.991708067510544*^9, 3.992091246946535*^9, { + 3.992091392294138*^9, 3.9920914464543114`*^9}, {3.9920915028279285`*^9, + 3.99209152222933*^9}, {3.9920915615682793`*^9, 3.992091588163168*^9}, + 3.9921149628825397`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"050c7604-8434-024c-86dc-1532d8971cb0"] +}, 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[58]:=",ExpressionUUID->"1492aaaf-0df6-6745-bf76-b9050e5655e5"], + +Cell[BoxData["454.36412518953205`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9917080675337753`*^9, 3.992091246972496*^9, { + 3.9920913923294888`*^9, 3.9920914464768276`*^9}, {3.9920915028354263`*^9, + 3.9920915222513294`*^9}, {3.992091561598337*^9, 3.9920915881942825`*^9}, + 3.992114962894562*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"874b9837-c1eb-5649-8b32-2dd1fb9c7053"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"226872db-ad1d-a848-a1b9-669b9495ae40"], + +Cell[BoxData["0.4127308494837588`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.991708067540825*^9, 3.992091246979046*^9, { + 3.9920913923595943`*^9, 3.9920914465043583`*^9}, {3.992091502857462*^9, + 3.9920915222583466`*^9}, {3.992091561628416*^9, 3.992091588216179*^9}, + 3.992114962904213*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"6dfece24-4f8a-064c-8a36-9a6722a1ac6b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"3724e999-16ab-c946-a14b-a24ab296bb76"], + +Cell[BoxData[ + RowBox[{"-", "0.1731065192411402`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.991708067561775*^9, 3.9920912470023327`*^9, { + 3.992091392382597*^9, 3.992091446511343*^9}, {3.992091502867462*^9, + 3.9920915222823963`*^9}, {3.992091561635437*^9, 3.9920915882387123`*^9}, + 3.9921149629193115`*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"a10c6a76-bac1-3744-b703-c3f77f19c318"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"7429d55c-fb1b-6c4a-a07c-c882ac4f265b"], + +Cell[BoxData[ + RowBox[{"-", "0.4062816230025426`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.9917080675837746`*^9, 3.9920912470088387`*^9, { + 3.992091392404505*^9, 3.9920914465343437`*^9}, {3.992091502893507*^9, + 3.992091522288412*^9}, {3.9920915616594143`*^9, 3.9920915882452965`*^9}, + 3.9921149629333344`*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"0bd1ebca-715c-ce40-84c3-ee0b2350597b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"53189e64-dda1-f24f-bb2a-e33cc334a386"], + +Cell[BoxData["0.6303744483208076`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.9917080675917854`*^9, 3.992091247032854*^9, { + 3.9920913924115047`*^9, 3.9920914465403423`*^9}, {3.992091502900509*^9, + 3.9920915223143997`*^9}, {3.9920915616654167`*^9, 3.9920915882721863`*^9}, + 3.992114962946615*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"6b794901-2dbb-ef4c-8f51-4925d762d279"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"2dcc97af-d52c-a140-9d24-7e2362d14431"], + +Cell[BoxData["2.3367797709113582`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.991708067612774*^9, 3.992091247040392*^9, { + 3.9920913924180164`*^9, 3.992091446562351*^9}, {3.99209150292482*^9, + 3.992091522321432*^9}, {3.992091561687416*^9, 3.9920915882941914`*^9}, + 3.9921149629581833`*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"eff83fce-9861-0640-949e-3302abd83e10"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"047bb9cd-1320-254a-81b6-dbbd5bc6927e"], + +Cell[BoxData["1.7566650946816267`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.991708067619776*^9, 3.992091247064493*^9, { + 3.992091392438549*^9, 3.9920914465698586`*^9}, {3.992091502931345*^9, + 3.9920915223446445`*^9}, {3.9920915616934185`*^9, 3.99209158830122*^9}, + 3.992114962968355*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"1ee5bb66-fca1-9847-b774-7f7c10477e0b"] +}, 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[65]:=",ExpressionUUID->"5f91a530-4680-9547-ba69-eda72b5cd542"], + +Cell[BoxData[ + RowBox[{"-", "30.830767993153184`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.991708067640772*^9, 3.992091247071554*^9, { + 3.99209139244553*^9, 3.99209144659474*^9}, {3.992091502953377*^9, + 3.992091522351671*^9}, {3.9920915617147236`*^9, 3.9920915883242016`*^9}, + 3.992114962979376*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"cc159df2-a55d-6b4c-a8a6-83ce26668e2d"] +}, 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[66]:=",ExpressionUUID->"79bd53a9-815b-6b44-a1c8-9e184a9e2d7f"], + +Cell[BoxData[ + RowBox[{"-", "18.659127233530825`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.991708067662775*^9, 3.9920912471162415`*^9, { + 3.9920913924683304`*^9, 3.9920914466022835`*^9}, {3.9920915029593945`*^9, + 3.99209152238122*^9}, {3.992091561736267*^9, 3.9920915883505287`*^9}, + 3.992114962996706*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"de38b97c-b3ef-8a4b-b46d-a158a1f84bc8"] +}, 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[67]:=",ExpressionUUID->"4d60ea42-135b-0945-9bc8-ff7080f68cbd"], + +Cell[BoxData["330.4163753790787`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.991708067669775*^9, 3.9920912472323074`*^9, { + 3.9920913924753494`*^9, 3.9920914466254234`*^9}, {3.992091502983383*^9, + 3.992091522409233*^9}, {3.992091561743267*^9, 3.9920915883765354`*^9}, + 3.9921149630141315`*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"c6a60c2a-4688-0845-a409-a6208a34959f"] +}, 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[68]:=",ExpressionUUID->"86e3af8c-1e9e-fe48-be10-5811d3ed2f2c"], + +Cell[BoxData[ + RowBox[{"-", "349.7981011803344`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.991708067690773*^9, 3.992091247257927*^9, { + 3.9920913925043335`*^9, 3.992091446632412*^9}, {3.9920915029893856`*^9, + 3.992091522416319*^9}, {3.9920915617668056`*^9, 3.992091588383543*^9}, + 3.9921149630366325`*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"79874302-a496-ea43-aa8e-0e99fcffd480"] +}, 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[69]:=",ExpressionUUID->"5e5f8981-ef44-174f-9ab1-8170c09512bd"], + +Cell[BoxData["435.7049979560012`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.991708067697775*^9, 3.992091247289015*^9, { + 3.9920913925103607`*^9, 3.992091446661234*^9}, {3.9920915030163956`*^9, + 3.9920915224431896`*^9}, {3.992091561773327*^9, 3.9920915884085503`*^9}, + 3.9921149630576153`*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"4f9faacb-4bf7-1c4e-98e5-3353a4723c3e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"92a8600d-0ef6-b048-81ca-4cef74274975"], + +Cell[BoxData["87.42511720990086`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.9917080677197742`*^9, 3.992091247312895*^9, { + 3.9920913925353565`*^9, 3.9920914466682186`*^9}, {3.9920915030234013`*^9, + 3.992091522463722*^9}, {3.992091561798332*^9, 3.992091588416548*^9}, + 3.9921149630824547`*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"9269d1ee-afc2-b64a-8dff-bdc793a4d183"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"7e943660-5e34-9e41-8f70-f1ec78ba3955"], + +Cell[BoxData["1623.0724592455672`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.991708067726776*^9, 3.992091247321451*^9, { + 3.992091392542387*^9, 3.992091446690258*^9}, {3.992091503048933*^9, + 3.99209152248625*^9}, {3.992091561805361*^9, 3.9920915884453773`*^9}, + 3.992114963115473*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"685851a8-93ab-ab43-a567-cad58342b74f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.837971312644379"}]], "Input", + CellChangeTimes->{3.991708306458519*^9, 3.991793259431082*^9, + 3.9920910722151566`*^9}, + CellLabel->"In[72]:=",ExpressionUUID->"3ae683e0-3adf-504a-90dd-615dd0a61fd8"], + +Cell[BoxData["0.837971312644379`"], "Output", + CellChangeTimes->{ + 3.99209124734313*^9, {3.9920913925663643`*^9, 3.9920914467149734`*^9}, { + 3.9920915030564556`*^9, 3.99209152249325*^9}, {3.992091561833349*^9, + 3.9920915884773655`*^9}, 3.9921149631390553`*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"8b6161e6-dfbf-5646-84a1-63b48af9d759"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.720943705549018"}]], "Input", + CellChangeTimes->{{3.991708314438408*^9, 3.9917083191838818`*^9}, + 3.9917932613989296`*^9, 3.9920910762805347`*^9}, + CellLabel->"In[73]:=",ExpressionUUID->"4fc0783d-23dd-314f-a326-64b7548d9620"], + +Cell[BoxData["0.720943705549018`"], "Output", + CellChangeTimes->{ + 3.9920912473496227`*^9, {3.9920913925723667`*^9, 3.99209144673744*^9}, { + 3.992091503081442*^9, 3.992091522517254*^9}, {3.992091561840351*^9, + 3.992091588500368*^9}, 3.9921149631583366`*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"0494f0f2-8968-a949-9255-e862eecd53df"] +}, Open ]], + +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[74]:=",ExpressionUUID->"dbbed097-5dfd-0340-bc2d-0bce9785fa70"], + +Cell[BoxData["1.722331582108792`*^-53"], "Output", + CellChangeTimes->{ + 3.99132042156752*^9, 3.991708376806082*^9, 3.992091247379696*^9, { + 3.9920913926003895`*^9, 3.992091446744587*^9}, {3.992091503088442*^9, + 3.9920915225432396`*^9}, {3.992091561865589*^9, 3.99209158850737*^9}, + 3.99211496317482*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"7d2ce0d6-9ea8-4844-a69c-e9a62ec33eb0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + 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"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellLabel->"In[75]:=",ExpressionUUID->"b04428b7-7b5e-9b48-87ae-3e90ee72682c"], + +Cell[BoxData["3.169691239535262`*^-54"], "Output", + CellChangeTimes->{ + 3.99132042159643*^9, 3.9917083768301735`*^9, 3.9920912474028854`*^9, { + 3.9920913926258183`*^9, 3.992091446771284*^9}, {3.9920915031104393`*^9, + 3.992091522564749*^9}, {3.992091561887459*^9, 3.992091588533552*^9}, + 3.9921149631995945`*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"f7d38545-b985-494c-ac35-0d80b059cb71"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + 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"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellLabel->"In[76]:=",ExpressionUUID->"46474706-75cc-0e49-8a10-fd571fd984c5"], + +Cell[BoxData["2.4888435155157298`*^-54"], "Output", + CellChangeTimes->{ + 3.9913204216085243`*^9, 3.99170837683708*^9, 3.9920912474331017`*^9, { + 3.9920913926342983`*^9, 3.992091446798294*^9}, {3.9920915031184406`*^9, + 3.9920915225742664`*^9}, {3.9920915619149227`*^9, 3.9920915885415783`*^9}, + 3.992114963229204*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"51df2d1c-b4dd-6448-86ec-f6668dbf47a6"] +}, 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[77]:=",ExpressionUUID->"6c7f131a-588c-d84f-805a-1b114b97ab2e"], + +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}, 3.992114963241251*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"99c71b79-8f14-1540-8215-5b58e433357d"] +}, 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[78]:=",ExpressionUUID->"8f6a5672-c9b6-a24d-b043-0295522643ff"], + +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}, 3.992114963252428*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"9cf7168f-b9e7-094e-aa3b-d8c3de3f9e55"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel->"In[79]:=",ExpressionUUID->"2cd16002-2250-9c44-87bb-4d4306484886"], + +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}, 3.9921149632648296`*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"17340104-5339-4348-bc1d-5060c0fbe074"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw2"]]}]], "Input", + CellChangeTimes->{{3.992086303949501*^9, 3.992086304210249*^9}}, + CellLabel->"In[80]:=",ExpressionUUID->"56eef390-47c4-9d43-b3ba-9976fee79488"], + +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}, + 3.992114963283415*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"b93a7d42-939d-054a-af67-a774de2af813"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw2", "*", "hw"}], "1"]}]], "Input", + CellChangeTimes->{3.992086167409481*^9}, + CellLabel->"In[81]:=",ExpressionUUID->"b6011101-322c-1d46-bf96-e6c81db8eb4e"], + +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}, 3.9921149632990303`*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"f98847e2-4874-0a47-bcbc-f52a151671f8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"32af0bf4-8b8c-3246-9fed-2c6465d35f47"], + +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}, 3.9921149633151894`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"ddb97a74-9eb8-e54a-8130-56745d6dcfe6"] +}, 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[83]:=",ExpressionUUID->"6aa7b23d-87fe-a147-ac22-171857e1023a"], + +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}, 3.992114963352579*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"41596472-9f7b-894f-bb36-0f6f119cc229"] +}, 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[84]:=",ExpressionUUID->"e8f9eb4e-3dfc-e54e-92f2-5edd25517c2d"], + +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}, + 3.9921149635934334`*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"f1c89d1a-829e-d04d-a6f5-ad2c57f1c770"] +}, 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[85]:=",ExpressionUUID->"2e619d97-78a3-1c4c-a6c4-66adaa1daf07"], + +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[86]:=",ExpressionUUID->"8968449c-8b0e-4c43-b89b-9661a6b4b7b4"], + +Cell[BoxData["31.55887696424881`"], "Output", + CellChangeTimes->{3.991320421637537*^9, 3.991708376860197*^9, + 3.9921149636595955`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"16a50347-89b7-ba45-b3fb-d1f8c6e6bd49"] +}, 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[87]:=",ExpressionUUID->"4070e408-f242-2749-a9a3-2554c0750a47"], + +Cell[BoxData["61.811743284264836`"], "Output", + CellChangeTimes->{3.9913204216685333`*^9, 3.9917083768681793`*^9, + 3.992114963696701*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"75d0f30a-953b-6e4c-9f11-c404ebe221d7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[88]:=",ExpressionUUID->"ea836fa5-3993-364c-859c-f1e1426f90c2"], + +Cell[BoxData["1.6643985987346277`"], "Output", + CellChangeTimes->{3.991320421698473*^9, 3.9917083768895397`*^9, + 3.992114963711876*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"db69398b-af0e-cc42-b365-9503d4f94707"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[89]:=",ExpressionUUID->"c1eb9e5a-df42-e143-87eb-a7c14cd6489c"], + +Cell[BoxData["5.12428714806174`"], "Output", + CellChangeTimes->{3.991320421726494*^9, 3.9917083769120636`*^9, + 3.9921149637232647`*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"0ad9d1d3-ea94-7647-854d-73d9763bf78b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[90]:=",ExpressionUUID->"fc11a4dc-800e-1040-b016-a172a6dca5d1"], + +Cell[BoxData["316.7411217108498`"], "Output", + CellChangeTimes->{3.9913204217554817`*^9, 3.9917083769190636`*^9, + 3.9921149637358055`*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"dae97f8e-f163-5e4a-9d9d-bd206c80d59b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[91]:=",ExpressionUUID->"f158f63a-620a-8b45-93fe-de96c59131c3"], + +Cell[BoxData["52.52655059693424`"], "Output", + CellChangeTimes->{3.9913204217855225`*^9, 3.9917083769420624`*^9, + 3.9921149637548046`*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"be7d5b09-48e4-7f46-8e7c-608be448bb98"] +}, 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[92]:=",ExpressionUUID->"290356b5-801a-1742-8269-ff0ab0e7a72f"], + +Cell[BoxData["0.006582683191332945`"], "Output", + CellChangeTimes->{3.9913204218154297`*^9, 3.991708376966078*^9, + 3.99211496378574*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"61ecf1ac-a087-0942-8477-6e25ab082012"] +}, 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[93]:=",ExpressionUUID->"637830a9-4b17-0d47-8e69-3e6d73475803"], + +Cell[BoxData["10.923038481432918`"], "Output", + CellChangeTimes->{3.991320422776104*^9, 3.9917083773418655`*^9, + 3.992114964016569*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"699b6c15-ad22-7f4b-9f4b-bb93a7f1ea8a"] +}, 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[94]:=",ExpressionUUID->"245e55e0-c025-d748-aa5b-d3f5a26f897a"], + +Cell[BoxData["0.008787135652237422`"], "Output", + CellChangeTimes->{3.9913204229248886`*^9, 3.9917083773678513`*^9, + 3.992114964049124*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"aa54252b-8e62-4c49-b39f-f9a7d897d5e8"] +}, 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[95]:=",ExpressionUUID->"87d3f053-a210-4945-9497-51f3b35fe58a"], + +Cell[BoxData["9.454123587003904`"], "Output", + CellChangeTimes->{3.9913204230053368`*^9, 3.9917083774558525`*^9, + 3.9921149642589684`*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"fe642b82-14c3-8145-9c72-7bfa90a46fb6"] +}, 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[96]:=",ExpressionUUID->"407f3978-d419-be4a-9b05-517d07c044f1"], + +Cell[BoxData["0.4398388669954015`"], "Output", + CellChangeTimes->{3.9913204230393543`*^9, 3.9917083774798565`*^9, + 3.9921149642945004`*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"74ca47c7-7d6f-dd46-b2ab-4813288b30d3"] +}, 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[97]:=",ExpressionUUID->"98c81204-47e0-fd47-9c8b-67e8ab12c7de"], + +Cell[BoxData["0.5601611330045986`"], "Output", + CellChangeTimes->{3.9913204230728855`*^9, 3.9917083775008526`*^9, + 3.9921149643195877`*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"c5056b66-835c-a74f-b6c7-b8093f65121e"] +}, 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[98]:=",ExpressionUUID->"f8815c5a-68ac-6143-b710-ab82cbe388c2"], + +Cell[BoxData["0.24638063807560304`"], "Output", + CellChangeTimes->{3.9913204231038837`*^9, 3.9917083775258636`*^9, + 3.9921149643537025`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"53458e37-bd9c-f842-bca8-7ee48efe443c"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellChangeTimes->{{3.991972340255615*^9, 3.9919723414591656`*^9}, { + 3.99197238607337*^9, 3.991972394033249*^9}}, + CellLabel->"In[99]:=",ExpressionUUID->"c3247e8e-1dc6-bd47-b085-4abc2b2cf1d2"], + +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.991795120812044*^9}, + CellLabel-> + "In[100]:=",ExpressionUUID->"9522bfa2-96cd-564e-b4a1-30bc1fcf4125"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.033950725576728`*^-220\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 100, 702, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204231548862`*^9, 3.9917083775522175`*^9, + 3.9921149644185143`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"bc8ffb3a-8f1c-454d-bf6a-edb3ab23f2ab"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.134147348497568`*^-226\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 100, 703, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204231548862`*^9, 3.9917083775522175`*^9, + 3.9921149644673977`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"59404741-e0d7-8645-a9a2-be1a9ba31c1a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6775505930604716`*^-231\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 100, 704, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204231548862`*^9, 3.9917083775522175`*^9, + 3.992114964489395*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"82f165cd-3bba-cc4e-9a13-d2393577cf8e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 100, 705, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204231548862`*^9, 3.9917083775522175`*^9, + 3.992114964508398*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"f41e6c2b-26cc-3843-949a-35e2586ba40d"], + +Cell[BoxData["10.923038481432927`"], "Output", + CellChangeTimes->{3.9913204260017204`*^9, 3.9917083806494102`*^9, + 3.992114972152315*^9}, + CellLabel-> + "Out[100]=",ExpressionUUID->"f77cbfd2-72b8-9a4b-b63f-a079f858694d"] +}, 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.991795125308359*^9}, + CellLabel-> + "In[101]:=",ExpressionUUID->"61b1cdf2-7f57-2647-9828-9108456d2e21"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.033950725576728`*^-220\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 101, 706, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204262354183`*^9, 3.991708380747463*^9, + 3.992114972290001*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"87eb4fe7-d283-f544-94f0-f155eb63b459"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.134147348497568`*^-226\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 101, 707, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204262354183`*^9, 3.991708380747463*^9, + 3.9921149723231087`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"bf0e76f5-eced-b244-961c-15f6a2399486"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6775505930604716`*^-231\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 101, 708, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204262354183`*^9, 3.991708380747463*^9, + 3.992114972346998*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"ebe7231f-1de4-cd4a-bec5-660806bdfdbd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 101, 709, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204262354183`*^9, 3.991708380747463*^9, + 3.9921149723661118`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"7a273a32-9466-ce4d-9076-9c2991fa1c65"], + +Cell[BoxData["9.45412358700391`"], "Output", + CellChangeTimes->{3.991320428882721*^9, 3.991708383647377*^9, + 3.9921149797436237`*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"f3591d1a-d1d1-4f49-a593-c37d65ae85a4"] +}, 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.9917951318268585`*^9}, + CellLabel-> + "In[102]:=",ExpressionUUID->"0ab9b507-fb4e-e24c-9d9d-abe222e3c5e2"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk4F9sfB3ARJZRdaLEXZYnIVucTIvua7PH1nbFLSLJGUaGyVu6tKEuS +sifEj7hxcaOibooojH3/Uq74HX/MM8/rOTPvec85M0ecdtaKYGZiYhrFx8b5 +3FuFfVVdb49N753Y23abgY5N56rS9IoQ72D+wN/YA1lq6VJ6r9BAVL/Ehi3o +/7BxqvyFdoikjrRgl4ZGN7HqdSCFscYDb7Cvv9nZEF34DqWr+883YVd3nXuw +qtyDwrzvaDZij/e2RVys/Rd9Xjq6uR5bZFjScUn3K7riQzOvwTaeidAI6viG +xHxZd73Arl8d5wgtHERiZfu8S7E/xgiFv/D/gZo52zSKsKfZ9MYXlYeRjNtU +Qj42W1KAvcryCNpVmOqcjb2H537rudpR5PmzpjQT20x0KX9adxK9sMnsT8Am +syUE5bdOI9k5y6pY7Ghp8zifjhnUWJzKE4b9r1D3oeDCOcSfXWbkgU138PZK +S5pHD7dnyDpjz95jeljmv4BWd7IlWGFvlZDnnlNmoHDvPzu1sNPpTQbcAkuo +4V5ThSK22GP7aMXlJSRxPFZUElv9YPy0X+1PJJjf7rcV21PtW8e47ipCXO+k +/8lgoMXQ85u3yfxG1vRpoTrsS7Uc2rJb1xCaqUwswr4L6k89OtbR+B7zn9ex +6XmteoGFm6BLZH34GHbhm7SBGFFmqHr2elgOe5ZyiUhJYoa9+YYegtgRcozy +En8WWFwtnplIx32LxSVnlFnhaai+YAp2b9dk/VoOK0T3JEldxBabr3LYLsAG +U2qVFa7YRYfNUuWX2WDHwisHBezm6rBNvrVbYUukZH1TGgMxmj58G9XlhJNq +fiMfUxmI14STO7yeE2xFhWkV2ErdesClwQUyDSOGKdjeQ5XZhxS2w/rfLC6G +2AHMHUpHOblhbZg3syyFgYYlns/FLfGA2JStm1cynh+yjb1ThRcue5U/OorN +/HREfOc5XljZVWrBgy2msteqcIIXTvFVzL+4xUAOusllbwf4YE241/y/mwzU +6R4YJNQuAK1Cghc8bzBQ/+Obia5bBeFN2M94FezJicKcJycEwVVAePNaEgNt +C/7xQatBEIYPg34Ktt4Vm8OulULQa+84UZLIQDW5aoyCLGHoff/2dfd1Bsod +XgnRDN4NEckTq8/jGOjkqav9Qc92g1PJ9FVf7MlmPv1nI7vBNNMxXRb7cO5B +ATH7PdDw8uGhR1fwfNJcylmP7YW2xIPRNy4z0PzMwIXRy2JQ7zodYBLDQHx+ +ehXlphJwKFyE3TeCgUZyt3laeEvAusnTz8LYL792iU7FS8DVC/ryLeEM5GTi +fFmmQQI0w3ucxbBzD4RYZSpLQpLt9HDHRfz88cezUUJSMDvPnbX9AgPZeHDI +Gw1KQ8ObRHHVcwyEQk4pn/4tDeFsWU49AQwkF5d1hC4sA0ZkqPh5bKYcFZ0o +Sxn4nF53svwsAz3rdzxd1igDdfK2O+T88f9pWxQj8mgf9F0TT9zkg/vpmX4c +p8mCWcZSuR2dgUQlbkUnDh2E+HHmuqenGOhVwqLsL2Z58KN7OUhhOy3Yd5Pi +8nD6C0/gPRsGetAsJavjIg8fo1K4E60ZSMKj5v3PT/Ig8luei2aJ+xUNS5Pt +CqBIae1aNmGg3aJ7SDF7JZg66m9Zr8tAB/OCOf9DynCpPsm1RZGBaPTLDHkz +ZViLupgrh31XMrXf1UkZtH6pht1QYCCWR8Ulb0KVoVkv7oulPP4/HozbpJYq +A2erVWiPHN7/7rrel5VUAY6Ja4dapfF6JJoo2LEdBoXJaCcnUQZ6GChlUdmh +Cpbv1G+fYGWgrhB05EqeBgQEBHRPdS4icZceM2ffo7D/tGvBm/RFRKy/eL77 +IsAdd2cvEbtFJDTxcosQTQeaJ04/XuZeRMEq2l9T5fTAOlx4ZH/bAqJNrbby +jZ+ARz+a9NViFtAznaAtWZ0GYHUynqVZYQHlLno3FqUbwthtrdP23+bRz+M7 +/2mONoY8/k76kavzqI+JZW7QzRTYfQK26CnOI/9dZ5NjJM3hwQPBzbFf59Bz +r9aGjDgLqOpIq4yOnUNhC8LLB7wsoc+BQ6BaYQ4xjPRtW85YgX+278/i7lmk +4ZhyfNjSGpIHbteGR86i98L3vZtVbEBOoNs4SX4WieRfflWw/xScXdcuulY6 +g14OyJmYcdlCVsIQj7nQDNrTPesRMmULnz7+WnG/Mo1UMlKKcgZOg+rV8gz1 +8Sl0f/OCQmqTHRhu5bPLODOFXhxX7I2rtodRr8xEu85JdPdIAs9qoQO0dKX9 +IXRyEnV+yYtXSXKEt3dr9No7J1Cl6T2pgEtOsIeVzWDQegLN+Vkz+dOdoekL +f/v5kXHE0Jf1nNZ1gQB181yxmHFUMPX5Z5DaGYhxME7qFx5Hdg/z3J05XYEl +K3ny0//GUHmZ8RmWq65gE2RzQYYYQxqi739d/+UKbl9y2eYEx5DkgEfvOy83 +8KddiLPuGkVDHD7m9364AXiL/hGZMIq6bpq5G5yiQcVqdctD81GUHprFcb6L +BmekdOrKBUfRq/r1X+6G7mD/aY2jcphCO5zgqkqNOxhbVIeJ11NIjL+lc9cr +d7CYafwQW0chpQ7TnWz17uAcEfHn0CsKWWk7Pvm30R3OW6yFPKmlUPqukPbI +v92hMofhrF5NIZG+pzta/3WHeL5XY94VFJJyEbrrtOwO90IkxySeUkjDdbog +7jAdmjZnbO/PpFB+5myQmRodimL2l7tj83+YPyakTocI1oaqsbsUmj6x3F2g +RYfJrMWBpTsU3m+YNnXo0IG3Tb9c4DaFti/z2PNa0mHJbp8tkUqhoRuq7Fl+ +dBCX67xukkghy5Yj3R5n6fCg7e2B/gQK1TNpZimdo0OGVrZ8AHZm0DHV18F0 +SE4os8i4TiEzewO34XA6yK948w9dpVC1lH31gQQ6SJ77lpx2hUI3ayO8XubT +IeTvEmvNKAr5Kd/RCC2gwx+Wbl8+R1LI5Ekpu3ohHY66r9ZfxN52Z+RJ1TM6 +MP+azKyJoFBcoMX4iwo6sDKnP4BwCkXISvlUvsZ9U/oGnUMp5H2n3besnw7A +/8KgL5BChttHtAMHcL/DxkbXsPfHMXEpf6dDwq2cAhXskUDVZ6XDdAi2zgxN +PEchN7OsqZJJOvj+CCVQAIXsWIP8i1fo0GywLfClH4UMgkQCigQJ0B9pNJvx +pNDrrHij1J0EfL/Sk5SFrd0xLxUqQkB2UZOaBbaSdPtn3T0EnCTl3pZ5UEj4 +U7juF2kC2GN/b4skKTSh2Se4TZUA3idZtdJ0Ct1izq7zsCZA5r71bMsZ/P6K +nHdNTxEQLWD9OA77imNooMppApzz2dp0sUMrLPatOxDwrjTOqtEF9yc3pdym +EZCp/NfZRmcKqbTR6H+dI2DognNvjyOFPqVIc0gmE5C6a8zT3I5CzxGX52gK +AesakcJ7sK9MLTY/SyPgVmzdvqnTFFI2bI5Sv0OAxUvknIR9k8l93vQBAcd/ +qR3stKWQ/tnsz6FFBBTi7Yw8RaHdu6+pHXtOgNGsw5Am9mLb2TSWEgIuLa93 +7MB+JINMb5YTIBVyoKrGhkK/+/oacmoI0GpbmubHrjARLXjbSsDBb58meq0o +lLjCzJreRoBe1mOLSmxawbibfQcBswo7+JKxuTfXiA51ElCSmFOij+1ba3fr +10cCCuTem720pJCk3O0QqWECvs6+F3xmQaGVT5EfxkYIsH48YHMDuyuOUCoe +JWCFJWrWDztq8PC4xiQBe3sIUMLuvfvB2XyBgKR9fTrV5hRK3cJzImwTCb9v +sb//akahV/N9jsEsJEx+iJr4HzbVVxjoz0qCmm3sxRxs7Qq9bBo7CYWrhxZ8 +sEdcQ/8z4iEhL1PamRmb2+QE7wk+Eoqvr4mMmVJI6wivLBIg4Xadm2kXdjJX +ka2KMAmuu/7akb0xXvOtVFScBHWXhW0nsMm8olYBSRLM2Hj9FDeuT774bYc0 +Cf2XqnRFsEdIPq7NsjjfOcNszgSP8xl4TiqRsBWl9uZi16zxRY8ok+DC+DqQ +ij08NpAxcJgE89tPHWOwNRvCmrrVSTA1/fD8DPaQ7/M9dUDC4opuuzj2drtw +1Sod3Mc97zwftobuSZNSPRIO2V1LZ8W+Kfz9Yt5JEny/v1OcMKbQy83FyVlG +JPCvHCnqx/4xE/4404QEyNlz/z22+huBnhsWJCy98f1ai00r/T5x1YoEsZ4P +cqXYN+4VM8fakOB4r2YqH/t7oKFSiB0Jw+ls79KwuVwEDQIcSND28ZlL2Mgz +/OHs7URCtp55fOzG/XsjE11cSUC0NK6gjT7bjB7Z0UhocVpY99nIYwhWW9FJ +YG95RxIbeYM/Ok1IEhJiFHTObOR1lIzoe+L192dPtd/oVxX5G7zx/AXTbG02 +8h8Z8Wv5ktAQqnHLfCP/htABVX/cl7ipbbyRHzp0XDGAhERpNxcDbE56qZ1s +IAnMj0sXdbGPmEedlQwmwelz9Dps5Gsax+8Owd/P8/aoY9hJ0jvvC4WS0C2S +EaiN/YJ7uJwnjAQd/q+9mtiD/5W2cUSQoJuWXaWxkU9FDbJGkRCS+n3rhtXe +G/9cjyYhafujt+rY/wfYqfVn + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4F9sfB3ARJZRdaLEXZYnIVucTIvua7PH1nbFLSLJGUaGyVu6tKEuS +sifEj7hxcaOibooojH3/Uq74HX/MM8/rOTPvec85M0ecdtaKYGZiYhrFx8b5 +3FuFfVVdb49N753Y23abgY5N56rS9IoQ72D+wN/YA1lq6VJ6r9BAVL/Ehi3o +/7BxqvyFdoikjrRgl4ZGN7HqdSCFscYDb7Cvv9nZEF34DqWr+883YVd3nXuw +qtyDwrzvaDZij/e2RVys/Rd9Xjq6uR5bZFjScUn3K7riQzOvwTaeidAI6viG +xHxZd73Arl8d5wgtHERiZfu8S7E/xgiFv/D/gZo52zSKsKfZ9MYXlYeRjNtU +Qj42W1KAvcryCNpVmOqcjb2H537rudpR5PmzpjQT20x0KX9adxK9sMnsT8Am +syUE5bdOI9k5y6pY7Ghp8zifjhnUWJzKE4b9r1D3oeDCOcSfXWbkgU138PZK +S5pHD7dnyDpjz95jeljmv4BWd7IlWGFvlZDnnlNmoHDvPzu1sNPpTQbcAkuo +4V5ThSK22GP7aMXlJSRxPFZUElv9YPy0X+1PJJjf7rcV21PtW8e47ipCXO+k +/8lgoMXQ85u3yfxG1vRpoTrsS7Uc2rJb1xCaqUwswr4L6k89OtbR+B7zn9ex +6XmteoGFm6BLZH34GHbhm7SBGFFmqHr2elgOe5ZyiUhJYoa9+YYegtgRcozy +En8WWFwtnplIx32LxSVnlFnhaai+YAp2b9dk/VoOK0T3JEldxBabr3LYLsAG +U2qVFa7YRYfNUuWX2WDHwisHBezm6rBNvrVbYUukZH1TGgMxmj58G9XlhJNq +fiMfUxmI14STO7yeE2xFhWkV2ErdesClwQUyDSOGKdjeQ5XZhxS2w/rfLC6G +2AHMHUpHOblhbZg3syyFgYYlns/FLfGA2JStm1cynh+yjb1ThRcue5U/OorN +/HREfOc5XljZVWrBgy2msteqcIIXTvFVzL+4xUAOusllbwf4YE241/y/mwzU +6R4YJNQuAK1Cghc8bzBQ/+Obia5bBeFN2M94FezJicKcJycEwVVAePNaEgNt +C/7xQatBEIYPg34Ktt4Vm8OulULQa+84UZLIQDW5aoyCLGHoff/2dfd1Bsod +XgnRDN4NEckTq8/jGOjkqav9Qc92g1PJ9FVf7MlmPv1nI7vBNNMxXRb7cO5B +ATH7PdDw8uGhR1fwfNJcylmP7YW2xIPRNy4z0PzMwIXRy2JQ7zodYBLDQHx+ +ehXlphJwKFyE3TeCgUZyt3laeEvAusnTz8LYL792iU7FS8DVC/ryLeEM5GTi +fFmmQQI0w3ucxbBzD4RYZSpLQpLt9HDHRfz88cezUUJSMDvPnbX9AgPZeHDI +Gw1KQ8ObRHHVcwyEQk4pn/4tDeFsWU49AQwkF5d1hC4sA0ZkqPh5bKYcFZ0o +Sxn4nF53svwsAz3rdzxd1igDdfK2O+T88f9pWxQj8mgf9F0TT9zkg/vpmX4c +p8mCWcZSuR2dgUQlbkUnDh2E+HHmuqenGOhVwqLsL2Z58KN7OUhhOy3Yd5Pi +8nD6C0/gPRsGetAsJavjIg8fo1K4E60ZSMKj5v3PT/Ig8luei2aJ+xUNS5Pt +CqBIae1aNmGg3aJ7SDF7JZg66m9Zr8tAB/OCOf9DynCpPsm1RZGBaPTLDHkz +ZViLupgrh31XMrXf1UkZtH6pht1QYCCWR8Ulb0KVoVkv7oulPP4/HozbpJYq +A2erVWiPHN7/7rrel5VUAY6Ja4dapfF6JJoo2LEdBoXJaCcnUQZ6GChlUdmh +Cpbv1G+fYGWgrhB05EqeBgQEBHRPdS4icZceM2ffo7D/tGvBm/RFRKy/eL77 +IsAdd2cvEbtFJDTxcosQTQeaJ04/XuZeRMEq2l9T5fTAOlx4ZH/bAqJNrbby +jZ+ARz+a9NViFtAznaAtWZ0GYHUynqVZYQHlLno3FqUbwthtrdP23+bRz+M7 +/2mONoY8/k76kavzqI+JZW7QzRTYfQK26CnOI/9dZ5NjJM3hwQPBzbFf59Bz +r9aGjDgLqOpIq4yOnUNhC8LLB7wsoc+BQ6BaYQ4xjPRtW85YgX+278/i7lmk +4ZhyfNjSGpIHbteGR86i98L3vZtVbEBOoNs4SX4WieRfflWw/xScXdcuulY6 +g14OyJmYcdlCVsIQj7nQDNrTPesRMmULnz7+WnG/Mo1UMlKKcgZOg+rV8gz1 +8Sl0f/OCQmqTHRhu5bPLODOFXhxX7I2rtodRr8xEu85JdPdIAs9qoQO0dKX9 +IXRyEnV+yYtXSXKEt3dr9No7J1Cl6T2pgEtOsIeVzWDQegLN+Vkz+dOdoekL +f/v5kXHE0Jf1nNZ1gQB181yxmHFUMPX5Z5DaGYhxME7qFx5Hdg/z3J05XYEl +K3ny0//GUHmZ8RmWq65gE2RzQYYYQxqi739d/+UKbl9y2eYEx5DkgEfvOy83 +8KddiLPuGkVDHD7m9364AXiL/hGZMIq6bpq5G5yiQcVqdctD81GUHprFcb6L +BmekdOrKBUfRq/r1X+6G7mD/aY2jcphCO5zgqkqNOxhbVIeJ11NIjL+lc9cr +d7CYafwQW0chpQ7TnWz17uAcEfHn0CsKWWk7Pvm30R3OW6yFPKmlUPqukPbI +v92hMofhrF5NIZG+pzta/3WHeL5XY94VFJJyEbrrtOwO90IkxySeUkjDdbog +7jAdmjZnbO/PpFB+5myQmRodimL2l7tj83+YPyakTocI1oaqsbsUmj6x3F2g +RYfJrMWBpTsU3m+YNnXo0IG3Tb9c4DaFti/z2PNa0mHJbp8tkUqhoRuq7Fl+ +dBCX67xukkghy5Yj3R5n6fCg7e2B/gQK1TNpZimdo0OGVrZ8AHZm0DHV18F0 +SE4os8i4TiEzewO34XA6yK948w9dpVC1lH31gQQ6SJ77lpx2hUI3ayO8XubT +IeTvEmvNKAr5Kd/RCC2gwx+Wbl8+R1LI5Ekpu3ohHY66r9ZfxN52Z+RJ1TM6 +MP+azKyJoFBcoMX4iwo6sDKnP4BwCkXISvlUvsZ9U/oGnUMp5H2n3besnw7A +/8KgL5BChttHtAMHcL/DxkbXsPfHMXEpf6dDwq2cAhXskUDVZ6XDdAi2zgxN +PEchN7OsqZJJOvj+CCVQAIXsWIP8i1fo0GywLfClH4UMgkQCigQJ0B9pNJvx +pNDrrHij1J0EfL/Sk5SFrd0xLxUqQkB2UZOaBbaSdPtn3T0EnCTl3pZ5UEj4 +U7juF2kC2GN/b4skKTSh2Se4TZUA3idZtdJ0Ct1izq7zsCZA5r71bMsZ/P6K +nHdNTxEQLWD9OA77imNooMppApzz2dp0sUMrLPatOxDwrjTOqtEF9yc3pdym +EZCp/NfZRmcKqbTR6H+dI2DognNvjyOFPqVIc0gmE5C6a8zT3I5CzxGX52gK +AesakcJ7sK9MLTY/SyPgVmzdvqnTFFI2bI5Sv0OAxUvknIR9k8l93vQBAcd/ +qR3stKWQ/tnsz6FFBBTi7Yw8RaHdu6+pHXtOgNGsw5Am9mLb2TSWEgIuLa93 +7MB+JINMb5YTIBVyoKrGhkK/+/oacmoI0GpbmubHrjARLXjbSsDBb58meq0o +lLjCzJreRoBe1mOLSmxawbibfQcBswo7+JKxuTfXiA51ElCSmFOij+1ba3fr +10cCCuTem720pJCk3O0QqWECvs6+F3xmQaGVT5EfxkYIsH48YHMDuyuOUCoe +JWCFJWrWDztq8PC4xiQBe3sIUMLuvfvB2XyBgKR9fTrV5hRK3cJzImwTCb9v +sb//akahV/N9jsEsJEx+iJr4HzbVVxjoz0qCmm3sxRxs7Qq9bBo7CYWrhxZ8 +sEdcQ/8z4iEhL1PamRmb2+QE7wk+Eoqvr4mMmVJI6wivLBIg4Xadm2kXdjJX +ka2KMAmuu/7akb0xXvOtVFScBHWXhW0nsMm8olYBSRLM2Hj9FDeuT774bYc0 +Cf2XqnRFsEdIPq7NsjjfOcNszgSP8xl4TiqRsBWl9uZi16zxRY8ok+DC+DqQ +ij08NpAxcJgE89tPHWOwNRvCmrrVSTA1/fD8DPaQ7/M9dUDC4opuuzj2drtw +1Sod3Mc97zwftobuSZNSPRIO2V1LZ8W+Kfz9Yt5JEny/v1OcMKbQy83FyVlG +JPCvHCnqx/4xE/4404QEyNlz/z22+huBnhsWJCy98f1ai00r/T5x1YoEsZ4P +cqXYN+4VM8fakOB4r2YqH/t7oKFSiB0Jw+ls79KwuVwEDQIcSND28ZlL2Mgz +/OHs7URCtp55fOzG/XsjE11cSUC0NK6gjT7bjB7Z0UhocVpY99nIYwhWW9FJ +YG95RxIbeYM/Ok1IEhJiFHTObOR1lIzoe+L192dPtd/oVxX5G7zx/AXTbG02 +8h8Z8Wv5ktAQqnHLfCP/htABVX/cl7ipbbyRHzp0XDGAhERpNxcDbE56qZ1s +IAnMj0sXdbGPmEedlQwmwelz9Dps5Gsax+8Owd/P8/aoY9hJ0jvvC4WS0C2S +EaiN/YJ7uJwnjAQd/q+9mtiD/5W2cUSQoJuWXaWxkU9FDbJGkRCS+n3rhtXe +G/9cjyYhafujt+rY/wfYqfVn + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7279323612023787, + 1.3493138548674284`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7279323612023804}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.7279323612023787, + 1.3493138548674284`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7279323612023804}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4F9sfB3ARJZRdaLEXZYnIVucTIvua7PH1nbFLSLJGUaGyVu6tKEuS +sifEj7hxcaOibooojH3/Uq74HX/MM8/rOTPvec85M0ecdtaKYGZiYhrFx8b5 +3FuFfVVdb49N753Y23abgY5N56rS9IoQ72D+wN/YA1lq6VJ6r9BAVL/Ehi3o +/7BxqvyFdoikjrRgl4ZGN7HqdSCFscYDb7Cvv9nZEF34DqWr+883YVd3nXuw +qtyDwrzvaDZij/e2RVys/Rd9Xjq6uR5bZFjScUn3K7riQzOvwTaeidAI6viG +xHxZd73Arl8d5wgtHERiZfu8S7E/xgiFv/D/gZo52zSKsKfZ9MYXlYeRjNtU +Qj42W1KAvcryCNpVmOqcjb2H537rudpR5PmzpjQT20x0KX9adxK9sMnsT8Am +syUE5bdOI9k5y6pY7Ghp8zifjhnUWJzKE4b9r1D3oeDCOcSfXWbkgU138PZK +S5pHD7dnyDpjz95jeljmv4BWd7IlWGFvlZDnnlNmoHDvPzu1sNPpTQbcAkuo +4V5ThSK22GP7aMXlJSRxPFZUElv9YPy0X+1PJJjf7rcV21PtW8e47ipCXO+k +/8lgoMXQ85u3yfxG1vRpoTrsS7Uc2rJb1xCaqUwswr4L6k89OtbR+B7zn9ex +6XmteoGFm6BLZH34GHbhm7SBGFFmqHr2elgOe5ZyiUhJYoa9+YYegtgRcozy +En8WWFwtnplIx32LxSVnlFnhaai+YAp2b9dk/VoOK0T3JEldxBabr3LYLsAG +U2qVFa7YRYfNUuWX2WDHwisHBezm6rBNvrVbYUukZH1TGgMxmj58G9XlhJNq +fiMfUxmI14STO7yeE2xFhWkV2ErdesClwQUyDSOGKdjeQ5XZhxS2w/rfLC6G +2AHMHUpHOblhbZg3syyFgYYlns/FLfGA2JStm1cynh+yjb1ThRcue5U/OorN +/HREfOc5XljZVWrBgy2msteqcIIXTvFVzL+4xUAOusllbwf4YE241/y/mwzU +6R4YJNQuAK1Cghc8bzBQ/+Obia5bBeFN2M94FezJicKcJycEwVVAePNaEgNt +C/7xQatBEIYPg34Ktt4Vm8OulULQa+84UZLIQDW5aoyCLGHoff/2dfd1Bsod +XgnRDN4NEckTq8/jGOjkqav9Qc92g1PJ9FVf7MlmPv1nI7vBNNMxXRb7cO5B +ATH7PdDw8uGhR1fwfNJcylmP7YW2xIPRNy4z0PzMwIXRy2JQ7zodYBLDQHx+ +ehXlphJwKFyE3TeCgUZyt3laeEvAusnTz8LYL792iU7FS8DVC/ryLeEM5GTi +fFmmQQI0w3ucxbBzD4RYZSpLQpLt9HDHRfz88cezUUJSMDvPnbX9AgPZeHDI +Gw1KQ8ObRHHVcwyEQk4pn/4tDeFsWU49AQwkF5d1hC4sA0ZkqPh5bKYcFZ0o +Sxn4nF53svwsAz3rdzxd1igDdfK2O+T88f9pWxQj8mgf9F0TT9zkg/vpmX4c +p8mCWcZSuR2dgUQlbkUnDh2E+HHmuqenGOhVwqLsL2Z58KN7OUhhOy3Yd5Pi +8nD6C0/gPRsGetAsJavjIg8fo1K4E60ZSMKj5v3PT/Ig8luei2aJ+xUNS5Pt +CqBIae1aNmGg3aJ7SDF7JZg66m9Zr8tAB/OCOf9DynCpPsm1RZGBaPTLDHkz +ZViLupgrh31XMrXf1UkZtH6pht1QYCCWR8Ulb0KVoVkv7oulPP4/HozbpJYq +A2erVWiPHN7/7rrel5VUAY6Ja4dapfF6JJoo2LEdBoXJaCcnUQZ6GChlUdmh +Cpbv1G+fYGWgrhB05EqeBgQEBHRPdS4icZceM2ffo7D/tGvBm/RFRKy/eL77 +IsAdd2cvEbtFJDTxcosQTQeaJ04/XuZeRMEq2l9T5fTAOlx4ZH/bAqJNrbby +jZ+ARz+a9NViFtAznaAtWZ0GYHUynqVZYQHlLno3FqUbwthtrdP23+bRz+M7 +/2mONoY8/k76kavzqI+JZW7QzRTYfQK26CnOI/9dZ5NjJM3hwQPBzbFf59Bz +r9aGjDgLqOpIq4yOnUNhC8LLB7wsoc+BQ6BaYQ4xjPRtW85YgX+278/i7lmk +4ZhyfNjSGpIHbteGR86i98L3vZtVbEBOoNs4SX4WieRfflWw/xScXdcuulY6 +g14OyJmYcdlCVsIQj7nQDNrTPesRMmULnz7+WnG/Mo1UMlKKcgZOg+rV8gz1 +8Sl0f/OCQmqTHRhu5bPLODOFXhxX7I2rtodRr8xEu85JdPdIAs9qoQO0dKX9 +IXRyEnV+yYtXSXKEt3dr9No7J1Cl6T2pgEtOsIeVzWDQegLN+Vkz+dOdoekL +f/v5kXHE0Jf1nNZ1gQB181yxmHFUMPX5Z5DaGYhxME7qFx5Hdg/z3J05XYEl +K3ny0//GUHmZ8RmWq65gE2RzQYYYQxqi739d/+UKbl9y2eYEx5DkgEfvOy83 +8KddiLPuGkVDHD7m9364AXiL/hGZMIq6bpq5G5yiQcVqdctD81GUHprFcb6L +BmekdOrKBUfRq/r1X+6G7mD/aY2jcphCO5zgqkqNOxhbVIeJ11NIjL+lc9cr +d7CYafwQW0chpQ7TnWz17uAcEfHn0CsKWWk7Pvm30R3OW6yFPKmlUPqukPbI +v92hMofhrF5NIZG+pzta/3WHeL5XY94VFJJyEbrrtOwO90IkxySeUkjDdbog +7jAdmjZnbO/PpFB+5myQmRodimL2l7tj83+YPyakTocI1oaqsbsUmj6x3F2g +RYfJrMWBpTsU3m+YNnXo0IG3Tb9c4DaFti/z2PNa0mHJbp8tkUqhoRuq7Fl+ +dBCX67xukkghy5Yj3R5n6fCg7e2B/gQK1TNpZimdo0OGVrZ8AHZm0DHV18F0 +SE4os8i4TiEzewO34XA6yK948w9dpVC1lH31gQQ6SJ77lpx2hUI3ayO8XubT +IeTvEmvNKAr5Kd/RCC2gwx+Wbl8+R1LI5Ekpu3ohHY66r9ZfxN52Z+RJ1TM6 +MP+azKyJoFBcoMX4iwo6sDKnP4BwCkXISvlUvsZ9U/oGnUMp5H2n3besnw7A +/8KgL5BChttHtAMHcL/DxkbXsPfHMXEpf6dDwq2cAhXskUDVZ6XDdAi2zgxN +PEchN7OsqZJJOvj+CCVQAIXsWIP8i1fo0GywLfClH4UMgkQCigQJ0B9pNJvx +pNDrrHij1J0EfL/Sk5SFrd0xLxUqQkB2UZOaBbaSdPtn3T0EnCTl3pZ5UEj4 +U7juF2kC2GN/b4skKTSh2Se4TZUA3idZtdJ0Ct1izq7zsCZA5r71bMsZ/P6K +nHdNTxEQLWD9OA77imNooMppApzz2dp0sUMrLPatOxDwrjTOqtEF9yc3pdym +EZCp/NfZRmcKqbTR6H+dI2DognNvjyOFPqVIc0gmE5C6a8zT3I5CzxGX52gK +AesakcJ7sK9MLTY/SyPgVmzdvqnTFFI2bI5Sv0OAxUvknIR9k8l93vQBAcd/ +qR3stKWQ/tnsz6FFBBTi7Yw8RaHdu6+pHXtOgNGsw5Am9mLb2TSWEgIuLa93 +7MB+JINMb5YTIBVyoKrGhkK/+/oacmoI0GpbmubHrjARLXjbSsDBb58meq0o +lLjCzJreRoBe1mOLSmxawbibfQcBswo7+JKxuTfXiA51ElCSmFOij+1ba3fr +10cCCuTem720pJCk3O0QqWECvs6+F3xmQaGVT5EfxkYIsH48YHMDuyuOUCoe +JWCFJWrWDztq8PC4xiQBe3sIUMLuvfvB2XyBgKR9fTrV5hRK3cJzImwTCb9v +sb//akahV/N9jsEsJEx+iJr4HzbVVxjoz0qCmm3sxRxs7Qq9bBo7CYWrhxZ8 +sEdcQ/8z4iEhL1PamRmb2+QE7wk+Eoqvr4mMmVJI6wivLBIg4Xadm2kXdjJX +ka2KMAmuu/7akb0xXvOtVFScBHWXhW0nsMm8olYBSRLM2Hj9FDeuT774bYc0 +Cf2XqnRFsEdIPq7NsjjfOcNszgSP8xl4TiqRsBWl9uZi16zxRY8ok+DC+DqQ +ij08NpAxcJgE89tPHWOwNRvCmrrVSTA1/fD8DPaQ7/M9dUDC4opuuzj2drtw +1Sod3Mc97zwftobuSZNSPRIO2V1LZ8W+Kfz9Yt5JEny/v1OcMKbQy83FyVlG +JPCvHCnqx/4xE/4404QEyNlz/z22+huBnhsWJCy98f1ai00r/T5x1YoEsZ4P +cqXYN+4VM8fakOB4r2YqH/t7oKFSiB0Jw+ls79KwuVwEDQIcSND28ZlL2Mgz +/OHs7URCtp55fOzG/XsjE11cSUC0NK6gjT7bjB7Z0UhocVpY99nIYwhWW9FJ +YG95RxIbeYM/Ok1IEhJiFHTObOR1lIzoe+L192dPtd/oVxX5G7zx/AXTbG02 +8h8Z8Wv5ktAQqnHLfCP/htABVX/cl7ipbbyRHzp0XDGAhERpNxcDbE56qZ1s +IAnMj0sXdbGPmEedlQwmwelz9Dps5Gsax+8Owd/P8/aoY9hJ0jvvC4WS0C2S +EaiN/YJ7uJwnjAQd/q+9mtiD/5W2cUSQoJuWXaWxkU9FDbJGkRCS+n3rhtXe +G/9cjyYhafujt+rY/wfYqfVn + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7279323612023787, 1.3493138548674284`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7279323612023804}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.7279323612023804}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "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.7279323612023787, 1.3493138548674284`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913206956809444`*^9, 3.9921155677681904`*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"e71ee3e7-9e19-e74e-9d61-cf680a4008b9"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.9917947276636543`*^9, 3.991795135217745*^9}, + CellLabel-> + "In[103]:=",ExpressionUUID->"859f11c8-3e2a-dc42-8ed3-71283b73bfa7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.161795896769515`*^-273\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 710, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9, 3.991714940248539*^9, + 3.9921155681240807`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"71ef9892-163e-b943-9a8a-4368ab0bbe1e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.560362611386894`*^-286\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 711, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9, 3.991714940248539*^9, + 3.9921155681479855`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"33a053fe-29f6-264e-81b1-14b63d8a9a25"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.790065467192926`*^-298\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 712, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9, 3.991714940248539*^9, + 3.992115568165083*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"dfcf296f-7abc-7b4f-8fa8-8328fce927ca"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 103, 713, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9, 3.991714940248539*^9, + 3.9921155681880474`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"421b7d08-c781-0e47-ad3e-8cb8b25739f9"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4lF0bAHCikjaijHWeZ2YsDbIMiuTcVFoQLUqULVtSWiiv0GYpIZqx +ZAlFkW2esmSpEMkSSqRQfYoiKkQi+Y6/5vpd9zVzzplz7oV09t7lOk9AQGCx +oIDA3GdKkPMCLZcko5iSoI12kmuNatoI833Ef2jkIdfxuepKNPvs8SWCuIKa +boxq3FBVRCmVkfT5xA307tTEdKCqLvLa4Hv0Nz0bVZk5jDmpbkZt0x68n/RS +tPKtqa6MqjVa2NWrPEyvR2IlwmeWs11RekPqiW/0t8jte7/UD0VflF9wpctr +zSA6rWDaGDIRgtzRyxtDJ8dQk1dyVKRBNDrWt/pTYf4fJNtGM+CaxiJRMlj5 +wzoBGDRf6O6WlIiixBrZ6Y5CoKgTPtnomYqcu/Y8EWpaAP/apMaddG+hE7XB +zt7KosCjtflqhWcg6viS3bRtSyE56+v+mPg7KP3skUHNfWLwdIskayYnC11M +/bvz15A4KKzsbwo9cw8JtH2ECn8JCK6fQh8kc5GSj5vfHvZKqL3+sG0oOw99 +Ho/fu/jRKtgTIy5V/ycfbe/zDLx+ggak+6iijywfmQYyczf50SDCTuIWJc9H +Jiu7300E0SD0Q3TaMJ2PDDZbrLOLoEH3pZMsJxYfsTM1xph3aaDgwTXVU+ej +xa6/PIq6aZCUxviWYMRHTZ8D93RukQZ5q3l+yJGPdnyOVlVQkIGHiZYnxFJx +XPXz6wMsGRArWsRqTuMjs1Nrg5LYMpCU3Hgl/BYfbZ33vpW2VgY+dR87NpuJ +90OonpawkoFl+T7Jb3P5SPdAbaXIRRnQ/ykZZVnGR3Kv/1iP9cnAeKton/Fr +PkqUtZjVGpKBk9+rZtvb+Uj6UFrW8VG8fop4s8cbPlo1ajo9/E8GdtfEh4S/ +4yMxMV7aVylZcGqRcHr8kY+EzNd869kmC8slJlu/DPHR4FPn88/zZOHz8b0d +xsIUosd0ekYVyoJ/2TzJxvkU2mO/w3pPuSzoyUg17VpIoceT+uyPz2VhR3JJ +zkFRCl1XF3/9+5MsuAemsZ3EKLQ+/omysowchEWI6dHlKBThKdcSEioHKjnt +C/y0KVS19nqpWaQcfK/3KGzlUGhCWCRDnCcH+y81vFfWpZBj6phfSroclElY +33u5lkI6rxsYRRVyYFAjTpfYQKGeDf+d/jwqB3WWujyLLRRaI94hv9FBHrKt +Mx3TbSnUH9l/MdZVHk7dLWUW21EoRfT3ly9H5OEIe2dC/QEKLRGm3Y/wk4cv +Hw7HDdlTaHBiv2lHjDz4J3/7yjhEoczunmOHa+ShPktgxuoIheSy+p5cW60A +oT5kwgN/Cr1mTbB6NRRgl6H8o5tnKXQ1fUG4jp4CLGAMxF0OoNBUovKetyYK +oLXO9bBNEIU6Iw9/ZRxQgJ25jMivFyjEPTUsVhylAC9+vhpouEwhUTTu1D2m +AFbqo60JsRTyM1YRKZ5SAI7U2lHPOHyejXb51wTp8N5kPXd9PIWqt1ZNmSyn +g4qdunVnAoX8d0Vys9l02Fd1pmc2iULfXBVrTzvRwXJyi9LCWxSy9bA5YuVB +h/8MJGyqsJ97XhVne9Nh4p/LEv/bFMrwHjnYE0CHc117ZvozKHTgv0cTGxPo +oBkVNL/gLoWaIqxVxFvoYMtz6fydSyGDa5ebB9vpcN4za2tiHoWyYsp9arrp +cOOZl9H6fAoFx5FVZwbpUOtmWO5XQCGF1gm1H/MISPdxn/0fRaGOt9W11goE +JL1a/v5oMYWW2nUnVJME5Ov0PprE3tQ9fkRDkQBU5ah0sYRC99+rrFikRkD2 +D8716IcUivoUZV+hT4Co+eS7pDIKbRm2/c2wJsBIusbB6zGFbkpeajtnQ0D4 +dZ2mHuxf63MKuu0IENtJe2XxhEJp4dPucc4EbILFOasr8X0pJ3cuOk7AyLdD +8a1VFLKyrCl0O0XAqIN2u141he6cHop+epqALc2y+UnYu2sNtwUGEgAFq7Sd +nlIo17mn9Gc4AYci4i931VBoXvj8OIsoAj7lKmfq1VLIhlI/eS+GAIU9IfbR +2PMFgtguCQSszgvJQs8oZJ+ikPQmkwAB2ZzUyDoKiXU6BDyuJKArP8HsSz2F +3GbDbGRrCHgkpmGp1kChCiW+jl8d3t9C2pg39mFfgWGtZgIMHz6XG8OuXpF+ +MLOLgAcmszNfGylEM6jXn/eBABeLS6LMJgodcxpZ6dBLwDkltVI7bFm+cTNt +gADJ450zz7F9LHqNIiYIKLwircp9QaEGH1HZgT8ElIgZW1ZjE8navzfPEHDm +82Gpn9gvBi8WzAqR0FDE521pphBrRc7VAwtJYJZt2X4C21+/zb1UlIQ7tFcZ +N7CVLjOJU+Ik+OUWbuvHDigw+9siSYIaO4wn2kKhVx2nOtVoJBReNw5Rxz6n +WBPdr0DCaS+X/d7YHeZDXhsZJDi4bt0Qha3mI7ktTZGE9TaLn+dgd1a7CNqq +keD8Q6mtF/un8TuZQA0SJj/dz5rCXlhlqZOmTUJ0f9Eu8Vb8PqHW4qkuCTaD +zi+VsPWeGLj3ryPBSGCYtR57hxH//CJDEt7sDbPYge36SDFRDZFgb+Bq5ojN +Kxd7cXIzCe1epXXnsXMNQvtjt5LQ+iXO9Br209Lp2YdmJJRuCU1Kxn637oR0 +9w4SJLzKn2Vhj5b0a8/uJKFgp+fzB9iL1h4wZ1iTcGtFXdojbKL4petmGxLY +/fOtnmGv091yzsOOhBLCruMFtmVhRcJVexIqOdOc19huHO37+U4kNOfJHH6L +HXT/buNLFxLcDb779mDHasn3/XIn4Vf6PduPc/vlX/8ndQTfX32wVC92jYYI +bf0xEhYWUrlz7soP1LI/QULMOTeZOY+qj22/4EOCkEen49z3RfM8XDLOkHC7 +1vD83O8z1N4H1vmTYLa03m9uff2c3fGDgSQcbb2/fW5/Vux6/tILJPyo0JiY +279HtlGDZjAJ2im+Z+fOd16l8NPuMBzfV/Zu7vzxd1fPnA4nwfgnR7IQO18p +dVViJAnBITSVbOxnmZKaj6JJMN99c1UK9ntW+LaPXBIOUtMf5v7/8duzzkLx +JCRJuAdfwF7C9A1QSiRhZJGU8Els1q3B2G0p+P7BxMEJ25B0LPBKI+FBED3O +Ent3Wvvza7dJeJnVl2WIffFm5XR7Ngll70QOSWAnyuut/JNLAkP3tegMfl9U +cs4aOT4JnoTrtT7sj4lxTs7FOH6uSOMBtlG8V933ahLS1ym3AfbeVb0fxZ+R +UM/RdSexj8bum9Kpx3GdurcC2MlcE/WzLfi9Xraxq8D5MnWNxl3YTYLVGocO +RewVy6Ny2R9IWGxR7jKD83F1lNAzi14S0H3HtjZsm4jvk9yv+P1+P7IrELvo +co09MU4C/UBDTzXO96ztjbSwSRL0PC8YRWInLnn1aniaBAUTRcu92OejP5iW +z2MAZ9r2wmdcT8wTptbsFWOA+5pkrRFcb5Ct4ECFBANYKh3SFLa2nMhtphQD +tIctC+fqk1TaSqkReQYsF9IQHMD1rPeu5uxVVQY0mXbOa3pOofbDa0tH1zAg ++4p5yAXs56pGp/ZrM0Ag+ECFLnZegdkXJX0GhGmd35aI66NfiVtLlSkD9Jdr +f92N6+eyuuTU304MaNGM8r+C67Hgldv77V0Z4FJZ7MnG/rX9nkStBwOsxswl +G3D9fttcEnbdG6/vOs2bj53R8cpbPZABE1W/9xzF/cCgXwQOJTAgzy1WUuAR +hdSzlk/VJzFg2aprlREVOB89VxVqpjLg8u8BNg17/nemyr9MBjjmChuqllOo +ddxI7MYDBvw7dNPGpBTn43zfj83NDLC7a1mtU0QhGXr9m+mXDHjv7x1YXEih +5nXyLSrtDCCXJbLWYut51T662MWAUAfZdboPKLSgbWWS3lcGjBkon2Xh/pmZ +Vmx9U5AJC/V9cltwP/68frLhqA4TbBkrbtjifp5gbV6duJYJHuWC+8twvzf3 +TiutM2ACrTd0qTR24a2tWaQxE+r+eli3peF+vehGSLsFE6wlOB7rb+J8eKMP +G9yZwEnf/+Ytni8OnTxbtCSRCQk5ok07I/H+tN8XrU5hwmq5Tz68CJz/o1Bs +msaE/3yMFDuuUoh/YkHJ+TtMqL0QlbI3nEJ/j8c8/HWfCV/OLfllFkahOO+7 +5d2NTHhYFugjgueheq+2qtwZJky237/TcIpCGu6qzeZOLHjZJ8K8tBfn82G6 +d54LC+Sm0lN8rPE86SUhtsyDBQV0PxHXPRQaODG9s+UYC+Ldzfkmuyh0O6Cx +fWcAC/aW5+8ascDv7/qRnr3xLHjV78GR20yh2YqcIccXLBgSEx25h+fRlhVq +i331FWE48uRUJZ5njY4eHUgyVIS3Q086wxbhelOXX1eNFGHXr8H3FiJ4/gjQ +ChYzVQT9RAmXN3g+Nu/Xm8nZpQinf26y/SiA+2Wp8Y/eI4pw02rSoGGCj2od +97VZ3VSE3es2Tcz+j4/K8y8mqQkpgdnevw+Fi/norCDbqqlHCXz6HwjYmvOR +aLf/1mOFypDx5kXxNn4B6rtD8lIDVEAouDV1+mk+4qlIC5dar4Z9KofneVB5 +KDrRrc6JYMPIYqNzKbdykS3vYPOSL2wI+ntSWjIqB01uyvyT+lgVVHzmbzK3 +uYc+9Zn4VYepAddEtYanmY1ubdCSfeGkDiJ1w2OW3+6ivBBfcXf1NVDbrnzz +aOkdFGZ9yExofA1slB2UDYjMRLrd6dlhLzRgnAoNl96egRJWJ+W9MNMEYU+J ++1302+hcZWSCWakmOMeuYe/sTUcWstaZDSwtEJHRSXpHpSHjY3V24le0ICIj +XER5fSpKlXNmNY3j+BPVEdXfyYj19G7cDjtt4HlV3fIZTkTR6tXsV4+14coZ +Zd1uwRvIbUz4ZT2bA9JPzvC/C8UjZ2qUuHKNA3mF1LIho1jkdXH33+0xHFCq ++IjWrY1FvrsL3yzhciClqYATqhGLLo/7RkXHcWDbpceHlIlYlK//Zzo+hQNF +y4MGggRj0Z+q2Y47ORx4n+aQfbGGh6JfLYmsqePAgibnNz1mPJR4+6hHaD0H +opqEkp038dBtn+aNWxs5cMmeUB4w5KHiVdFTjc0c0BrUjJlW56FuWwmPtnYO +SPUeLNEV4yHlT9Ibez9x4MmIiePsay7SLPRXyOjjQIxWWXzaCy4yCOn64/qF +A43u0vEbn3GRuXIKf2AQe9eH4agSLjp5hFAYGeHAB62MGYNELgowvPDn/hiO +B/idHrzORSFLe1/7jHNAOKyxJOkqFyUU3L46OYnPI8vhCQVy0a3zwu5lUxxw +9D+sUebLRTk7XU0C/nLAGJy5J49xUSHjmbzRPw7khKtXqrlz0eMxpT+zsxyQ +V+wq+urARf8HJBTBpQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4lF0bAHCikjaijHWeZ2YsDbIMiuTcVFoQLUqULVtSWiiv0GYpIZqx +ZAlFkW2esmSpEMkSSqRQfYoiKkQi+Y6/5vpd9zVzzplz7oV09t7lOk9AQGCx +oIDA3GdKkPMCLZcko5iSoI12kmuNatoI833Ef2jkIdfxuepKNPvs8SWCuIKa +boxq3FBVRCmVkfT5xA307tTEdKCqLvLa4Hv0Nz0bVZk5jDmpbkZt0x68n/RS +tPKtqa6MqjVa2NWrPEyvR2IlwmeWs11RekPqiW/0t8jte7/UD0VflF9wpctr +zSA6rWDaGDIRgtzRyxtDJ8dQk1dyVKRBNDrWt/pTYf4fJNtGM+CaxiJRMlj5 +wzoBGDRf6O6WlIiixBrZ6Y5CoKgTPtnomYqcu/Y8EWpaAP/apMaddG+hE7XB +zt7KosCjtflqhWcg6viS3bRtSyE56+v+mPg7KP3skUHNfWLwdIskayYnC11M +/bvz15A4KKzsbwo9cw8JtH2ECn8JCK6fQh8kc5GSj5vfHvZKqL3+sG0oOw99 +Ho/fu/jRKtgTIy5V/ycfbe/zDLx+ggak+6iijywfmQYyczf50SDCTuIWJc9H +Jiu7300E0SD0Q3TaMJ2PDDZbrLOLoEH3pZMsJxYfsTM1xph3aaDgwTXVU+ej +xa6/PIq6aZCUxviWYMRHTZ8D93RukQZ5q3l+yJGPdnyOVlVQkIGHiZYnxFJx +XPXz6wMsGRArWsRqTuMjs1Nrg5LYMpCU3Hgl/BYfbZ33vpW2VgY+dR87NpuJ +90OonpawkoFl+T7Jb3P5SPdAbaXIRRnQ/ykZZVnGR3Kv/1iP9cnAeKton/Fr +PkqUtZjVGpKBk9+rZtvb+Uj6UFrW8VG8fop4s8cbPlo1ajo9/E8GdtfEh4S/ +4yMxMV7aVylZcGqRcHr8kY+EzNd869kmC8slJlu/DPHR4FPn88/zZOHz8b0d +xsIUosd0ekYVyoJ/2TzJxvkU2mO/w3pPuSzoyUg17VpIoceT+uyPz2VhR3JJ +zkFRCl1XF3/9+5MsuAemsZ3EKLQ+/omysowchEWI6dHlKBThKdcSEioHKjnt +C/y0KVS19nqpWaQcfK/3KGzlUGhCWCRDnCcH+y81vFfWpZBj6phfSroclElY +33u5lkI6rxsYRRVyYFAjTpfYQKGeDf+d/jwqB3WWujyLLRRaI94hv9FBHrKt +Mx3TbSnUH9l/MdZVHk7dLWUW21EoRfT3ly9H5OEIe2dC/QEKLRGm3Y/wk4cv +Hw7HDdlTaHBiv2lHjDz4J3/7yjhEoczunmOHa+ShPktgxuoIheSy+p5cW60A +oT5kwgN/Cr1mTbB6NRRgl6H8o5tnKXQ1fUG4jp4CLGAMxF0OoNBUovKetyYK +oLXO9bBNEIU6Iw9/ZRxQgJ25jMivFyjEPTUsVhylAC9+vhpouEwhUTTu1D2m +AFbqo60JsRTyM1YRKZ5SAI7U2lHPOHyejXb51wTp8N5kPXd9PIWqt1ZNmSyn +g4qdunVnAoX8d0Vys9l02Fd1pmc2iULfXBVrTzvRwXJyi9LCWxSy9bA5YuVB +h/8MJGyqsJ97XhVne9Nh4p/LEv/bFMrwHjnYE0CHc117ZvozKHTgv0cTGxPo +oBkVNL/gLoWaIqxVxFvoYMtz6fydSyGDa5ebB9vpcN4za2tiHoWyYsp9arrp +cOOZl9H6fAoFx5FVZwbpUOtmWO5XQCGF1gm1H/MISPdxn/0fRaGOt9W11goE +JL1a/v5oMYWW2nUnVJME5Ov0PprE3tQ9fkRDkQBU5ah0sYRC99+rrFikRkD2 +D8716IcUivoUZV+hT4Co+eS7pDIKbRm2/c2wJsBIusbB6zGFbkpeajtnQ0D4 +dZ2mHuxf63MKuu0IENtJe2XxhEJp4dPucc4EbILFOasr8X0pJ3cuOk7AyLdD +8a1VFLKyrCl0O0XAqIN2u141he6cHop+epqALc2y+UnYu2sNtwUGEgAFq7Sd +nlIo17mn9Gc4AYci4i931VBoXvj8OIsoAj7lKmfq1VLIhlI/eS+GAIU9IfbR +2PMFgtguCQSszgvJQs8oZJ+ikPQmkwAB2ZzUyDoKiXU6BDyuJKArP8HsSz2F +3GbDbGRrCHgkpmGp1kChCiW+jl8d3t9C2pg39mFfgWGtZgIMHz6XG8OuXpF+ +MLOLgAcmszNfGylEM6jXn/eBABeLS6LMJgodcxpZ6dBLwDkltVI7bFm+cTNt +gADJ450zz7F9LHqNIiYIKLwircp9QaEGH1HZgT8ElIgZW1ZjE8navzfPEHDm +82Gpn9gvBi8WzAqR0FDE521pphBrRc7VAwtJYJZt2X4C21+/zb1UlIQ7tFcZ +N7CVLjOJU+Ik+OUWbuvHDigw+9siSYIaO4wn2kKhVx2nOtVoJBReNw5Rxz6n +WBPdr0DCaS+X/d7YHeZDXhsZJDi4bt0Qha3mI7ktTZGE9TaLn+dgd1a7CNqq +keD8Q6mtF/un8TuZQA0SJj/dz5rCXlhlqZOmTUJ0f9Eu8Vb8PqHW4qkuCTaD +zi+VsPWeGLj3ryPBSGCYtR57hxH//CJDEt7sDbPYge36SDFRDZFgb+Bq5ojN +Kxd7cXIzCe1epXXnsXMNQvtjt5LQ+iXO9Br209Lp2YdmJJRuCU1Kxn637oR0 +9w4SJLzKn2Vhj5b0a8/uJKFgp+fzB9iL1h4wZ1iTcGtFXdojbKL4petmGxLY +/fOtnmGv091yzsOOhBLCruMFtmVhRcJVexIqOdOc19huHO37+U4kNOfJHH6L +HXT/buNLFxLcDb779mDHasn3/XIn4Vf6PduPc/vlX/8ndQTfX32wVC92jYYI +bf0xEhYWUrlz7soP1LI/QULMOTeZOY+qj22/4EOCkEen49z3RfM8XDLOkHC7 +1vD83O8z1N4H1vmTYLa03m9uff2c3fGDgSQcbb2/fW5/Vux6/tILJPyo0JiY +279HtlGDZjAJ2im+Z+fOd16l8NPuMBzfV/Zu7vzxd1fPnA4nwfgnR7IQO18p +dVViJAnBITSVbOxnmZKaj6JJMN99c1UK9ntW+LaPXBIOUtMf5v7/8duzzkLx +JCRJuAdfwF7C9A1QSiRhZJGU8Els1q3B2G0p+P7BxMEJ25B0LPBKI+FBED3O +Ent3Wvvza7dJeJnVl2WIffFm5XR7Ngll70QOSWAnyuut/JNLAkP3tegMfl9U +cs4aOT4JnoTrtT7sj4lxTs7FOH6uSOMBtlG8V933ahLS1ym3AfbeVb0fxZ+R +UM/RdSexj8bum9Kpx3GdurcC2MlcE/WzLfi9Xraxq8D5MnWNxl3YTYLVGocO +RewVy6Ny2R9IWGxR7jKD83F1lNAzi14S0H3HtjZsm4jvk9yv+P1+P7IrELvo +co09MU4C/UBDTzXO96ztjbSwSRL0PC8YRWInLnn1aniaBAUTRcu92OejP5iW +z2MAZ9r2wmdcT8wTptbsFWOA+5pkrRFcb5Ct4ECFBANYKh3SFLa2nMhtphQD +tIctC+fqk1TaSqkReQYsF9IQHMD1rPeu5uxVVQY0mXbOa3pOofbDa0tH1zAg ++4p5yAXs56pGp/ZrM0Ag+ECFLnZegdkXJX0GhGmd35aI66NfiVtLlSkD9Jdr +f92N6+eyuuTU304MaNGM8r+C67Hgldv77V0Z4FJZ7MnG/rX9nkStBwOsxswl +G3D9fttcEnbdG6/vOs2bj53R8cpbPZABE1W/9xzF/cCgXwQOJTAgzy1WUuAR +hdSzlk/VJzFg2aprlREVOB89VxVqpjLg8u8BNg17/nemyr9MBjjmChuqllOo +ddxI7MYDBvw7dNPGpBTn43zfj83NDLC7a1mtU0QhGXr9m+mXDHjv7x1YXEih +5nXyLSrtDCCXJbLWYut51T662MWAUAfZdboPKLSgbWWS3lcGjBkon2Xh/pmZ +Vmx9U5AJC/V9cltwP/68frLhqA4TbBkrbtjifp5gbV6duJYJHuWC+8twvzf3 +TiutM2ACrTd0qTR24a2tWaQxE+r+eli3peF+vehGSLsFE6wlOB7rb+J8eKMP +G9yZwEnf/+Ytni8OnTxbtCSRCQk5ok07I/H+tN8XrU5hwmq5Tz68CJz/o1Bs +msaE/3yMFDuuUoh/YkHJ+TtMqL0QlbI3nEJ/j8c8/HWfCV/OLfllFkahOO+7 +5d2NTHhYFugjgueheq+2qtwZJky237/TcIpCGu6qzeZOLHjZJ8K8tBfn82G6 +d54LC+Sm0lN8rPE86SUhtsyDBQV0PxHXPRQaODG9s+UYC+Ldzfkmuyh0O6Cx +fWcAC/aW5+8ascDv7/qRnr3xLHjV78GR20yh2YqcIccXLBgSEx25h+fRlhVq +i331FWE48uRUJZ5njY4eHUgyVIS3Q086wxbhelOXX1eNFGHXr8H3FiJ4/gjQ +ChYzVQT9RAmXN3g+Nu/Xm8nZpQinf26y/SiA+2Wp8Y/eI4pw02rSoGGCj2od +97VZ3VSE3es2Tcz+j4/K8y8mqQkpgdnevw+Fi/norCDbqqlHCXz6HwjYmvOR +aLf/1mOFypDx5kXxNn4B6rtD8lIDVEAouDV1+mk+4qlIC5dar4Z9KofneVB5 +KDrRrc6JYMPIYqNzKbdykS3vYPOSL2wI+ntSWjIqB01uyvyT+lgVVHzmbzK3 +uYc+9Zn4VYepAddEtYanmY1ubdCSfeGkDiJ1w2OW3+6ivBBfcXf1NVDbrnzz +aOkdFGZ9yExofA1slB2UDYjMRLrd6dlhLzRgnAoNl96egRJWJ+W9MNMEYU+J ++1302+hcZWSCWakmOMeuYe/sTUcWstaZDSwtEJHRSXpHpSHjY3V24le0ICIj +XER5fSpKlXNmNY3j+BPVEdXfyYj19G7cDjtt4HlV3fIZTkTR6tXsV4+14coZ +Zd1uwRvIbUz4ZT2bA9JPzvC/C8UjZ2qUuHKNA3mF1LIho1jkdXH33+0xHFCq ++IjWrY1FvrsL3yzhciClqYATqhGLLo/7RkXHcWDbpceHlIlYlK//Zzo+hQNF +y4MGggRj0Z+q2Y47ORx4n+aQfbGGh6JfLYmsqePAgibnNz1mPJR4+6hHaD0H +opqEkp038dBtn+aNWxs5cMmeUB4w5KHiVdFTjc0c0BrUjJlW56FuWwmPtnYO +SPUeLNEV4yHlT9Ibez9x4MmIiePsay7SLPRXyOjjQIxWWXzaCy4yCOn64/qF +A43u0vEbn3GRuXIKf2AQe9eH4agSLjp5hFAYGeHAB62MGYNELgowvPDn/hiO +B/idHrzORSFLe1/7jHNAOKyxJOkqFyUU3L46OYnPI8vhCQVy0a3zwu5lUxxw +9D+sUebLRTk7XU0C/nLAGJy5J49xUSHjmbzRPw7khKtXqrlz0eMxpT+zsxyQ +V+wq+urARf8HJBTBpQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.0695935889832101}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.0695935889832101}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4lF0bAHCikjaijHWeZ2YsDbIMiuTcVFoQLUqULVtSWiiv0GYpIZqx +ZAlFkW2esmSpEMkSSqRQfYoiKkQi+Y6/5vpd9zVzzplz7oV09t7lOk9AQGCx +oIDA3GdKkPMCLZcko5iSoI12kmuNatoI833Ef2jkIdfxuepKNPvs8SWCuIKa +boxq3FBVRCmVkfT5xA307tTEdKCqLvLa4Hv0Nz0bVZk5jDmpbkZt0x68n/RS +tPKtqa6MqjVa2NWrPEyvR2IlwmeWs11RekPqiW/0t8jte7/UD0VflF9wpctr +zSA6rWDaGDIRgtzRyxtDJ8dQk1dyVKRBNDrWt/pTYf4fJNtGM+CaxiJRMlj5 +wzoBGDRf6O6WlIiixBrZ6Y5CoKgTPtnomYqcu/Y8EWpaAP/apMaddG+hE7XB +zt7KosCjtflqhWcg6viS3bRtSyE56+v+mPg7KP3skUHNfWLwdIskayYnC11M +/bvz15A4KKzsbwo9cw8JtH2ECn8JCK6fQh8kc5GSj5vfHvZKqL3+sG0oOw99 +Ho/fu/jRKtgTIy5V/ycfbe/zDLx+ggak+6iijywfmQYyczf50SDCTuIWJc9H +Jiu7300E0SD0Q3TaMJ2PDDZbrLOLoEH3pZMsJxYfsTM1xph3aaDgwTXVU+ej +xa6/PIq6aZCUxviWYMRHTZ8D93RukQZ5q3l+yJGPdnyOVlVQkIGHiZYnxFJx +XPXz6wMsGRArWsRqTuMjs1Nrg5LYMpCU3Hgl/BYfbZ33vpW2VgY+dR87NpuJ +90OonpawkoFl+T7Jb3P5SPdAbaXIRRnQ/ykZZVnGR3Kv/1iP9cnAeKton/Fr +PkqUtZjVGpKBk9+rZtvb+Uj6UFrW8VG8fop4s8cbPlo1ajo9/E8GdtfEh4S/ +4yMxMV7aVylZcGqRcHr8kY+EzNd869kmC8slJlu/DPHR4FPn88/zZOHz8b0d +xsIUosd0ekYVyoJ/2TzJxvkU2mO/w3pPuSzoyUg17VpIoceT+uyPz2VhR3JJ +zkFRCl1XF3/9+5MsuAemsZ3EKLQ+/omysowchEWI6dHlKBThKdcSEioHKjnt +C/y0KVS19nqpWaQcfK/3KGzlUGhCWCRDnCcH+y81vFfWpZBj6phfSroclElY +33u5lkI6rxsYRRVyYFAjTpfYQKGeDf+d/jwqB3WWujyLLRRaI94hv9FBHrKt +Mx3TbSnUH9l/MdZVHk7dLWUW21EoRfT3ly9H5OEIe2dC/QEKLRGm3Y/wk4cv +Hw7HDdlTaHBiv2lHjDz4J3/7yjhEoczunmOHa+ShPktgxuoIheSy+p5cW60A +oT5kwgN/Cr1mTbB6NRRgl6H8o5tnKXQ1fUG4jp4CLGAMxF0OoNBUovKetyYK +oLXO9bBNEIU6Iw9/ZRxQgJ25jMivFyjEPTUsVhylAC9+vhpouEwhUTTu1D2m +AFbqo60JsRTyM1YRKZ5SAI7U2lHPOHyejXb51wTp8N5kPXd9PIWqt1ZNmSyn +g4qdunVnAoX8d0Vys9l02Fd1pmc2iULfXBVrTzvRwXJyi9LCWxSy9bA5YuVB +h/8MJGyqsJ97XhVne9Nh4p/LEv/bFMrwHjnYE0CHc117ZvozKHTgv0cTGxPo +oBkVNL/gLoWaIqxVxFvoYMtz6fydSyGDa5ebB9vpcN4za2tiHoWyYsp9arrp +cOOZl9H6fAoFx5FVZwbpUOtmWO5XQCGF1gm1H/MISPdxn/0fRaGOt9W11goE +JL1a/v5oMYWW2nUnVJME5Ov0PprE3tQ9fkRDkQBU5ah0sYRC99+rrFikRkD2 +D8716IcUivoUZV+hT4Co+eS7pDIKbRm2/c2wJsBIusbB6zGFbkpeajtnQ0D4 +dZ2mHuxf63MKuu0IENtJe2XxhEJp4dPucc4EbILFOasr8X0pJ3cuOk7AyLdD +8a1VFLKyrCl0O0XAqIN2u141he6cHop+epqALc2y+UnYu2sNtwUGEgAFq7Sd +nlIo17mn9Gc4AYci4i931VBoXvj8OIsoAj7lKmfq1VLIhlI/eS+GAIU9IfbR +2PMFgtguCQSszgvJQs8oZJ+ikPQmkwAB2ZzUyDoKiXU6BDyuJKArP8HsSz2F +3GbDbGRrCHgkpmGp1kChCiW+jl8d3t9C2pg39mFfgWGtZgIMHz6XG8OuXpF+ +MLOLgAcmszNfGylEM6jXn/eBABeLS6LMJgodcxpZ6dBLwDkltVI7bFm+cTNt +gADJ450zz7F9LHqNIiYIKLwircp9QaEGH1HZgT8ElIgZW1ZjE8navzfPEHDm +82Gpn9gvBi8WzAqR0FDE521pphBrRc7VAwtJYJZt2X4C21+/zb1UlIQ7tFcZ +N7CVLjOJU+Ik+OUWbuvHDigw+9siSYIaO4wn2kKhVx2nOtVoJBReNw5Rxz6n +WBPdr0DCaS+X/d7YHeZDXhsZJDi4bt0Qha3mI7ktTZGE9TaLn+dgd1a7CNqq +keD8Q6mtF/un8TuZQA0SJj/dz5rCXlhlqZOmTUJ0f9Eu8Vb8PqHW4qkuCTaD +zi+VsPWeGLj3ryPBSGCYtR57hxH//CJDEt7sDbPYge36SDFRDZFgb+Bq5ojN +Kxd7cXIzCe1epXXnsXMNQvtjt5LQ+iXO9Br209Lp2YdmJJRuCU1Kxn637oR0 +9w4SJLzKn2Vhj5b0a8/uJKFgp+fzB9iL1h4wZ1iTcGtFXdojbKL4petmGxLY +/fOtnmGv091yzsOOhBLCruMFtmVhRcJVexIqOdOc19huHO37+U4kNOfJHH6L +HXT/buNLFxLcDb779mDHasn3/XIn4Vf6PduPc/vlX/8ndQTfX32wVC92jYYI +bf0xEhYWUrlz7soP1LI/QULMOTeZOY+qj22/4EOCkEen49z3RfM8XDLOkHC7 +1vD83O8z1N4H1vmTYLa03m9uff2c3fGDgSQcbb2/fW5/Vux6/tILJPyo0JiY +279HtlGDZjAJ2im+Z+fOd16l8NPuMBzfV/Zu7vzxd1fPnA4nwfgnR7IQO18p +dVViJAnBITSVbOxnmZKaj6JJMN99c1UK9ntW+LaPXBIOUtMf5v7/8duzzkLx +JCRJuAdfwF7C9A1QSiRhZJGU8Els1q3B2G0p+P7BxMEJ25B0LPBKI+FBED3O +Ent3Wvvza7dJeJnVl2WIffFm5XR7Ngll70QOSWAnyuut/JNLAkP3tegMfl9U +cs4aOT4JnoTrtT7sj4lxTs7FOH6uSOMBtlG8V933ahLS1ym3AfbeVb0fxZ+R +UM/RdSexj8bum9Kpx3GdurcC2MlcE/WzLfi9Xraxq8D5MnWNxl3YTYLVGocO +RewVy6Ny2R9IWGxR7jKD83F1lNAzi14S0H3HtjZsm4jvk9yv+P1+P7IrELvo +co09MU4C/UBDTzXO96ztjbSwSRL0PC8YRWInLnn1aniaBAUTRcu92OejP5iW +z2MAZ9r2wmdcT8wTptbsFWOA+5pkrRFcb5Ct4ECFBANYKh3SFLa2nMhtphQD +tIctC+fqk1TaSqkReQYsF9IQHMD1rPeu5uxVVQY0mXbOa3pOofbDa0tH1zAg ++4p5yAXs56pGp/ZrM0Ag+ECFLnZegdkXJX0GhGmd35aI66NfiVtLlSkD9Jdr +f92N6+eyuuTU304MaNGM8r+C67Hgldv77V0Z4FJZ7MnG/rX9nkStBwOsxswl +G3D9fttcEnbdG6/vOs2bj53R8cpbPZABE1W/9xzF/cCgXwQOJTAgzy1WUuAR +hdSzlk/VJzFg2aprlREVOB89VxVqpjLg8u8BNg17/nemyr9MBjjmChuqllOo +ddxI7MYDBvw7dNPGpBTn43zfj83NDLC7a1mtU0QhGXr9m+mXDHjv7x1YXEih +5nXyLSrtDCCXJbLWYut51T662MWAUAfZdboPKLSgbWWS3lcGjBkon2Xh/pmZ +Vmx9U5AJC/V9cltwP/68frLhqA4TbBkrbtjifp5gbV6duJYJHuWC+8twvzf3 +TiutM2ACrTd0qTR24a2tWaQxE+r+eli3peF+vehGSLsFE6wlOB7rb+J8eKMP +G9yZwEnf/+Ytni8OnTxbtCSRCQk5ok07I/H+tN8XrU5hwmq5Tz68CJz/o1Bs +msaE/3yMFDuuUoh/YkHJ+TtMqL0QlbI3nEJ/j8c8/HWfCV/OLfllFkahOO+7 +5d2NTHhYFugjgueheq+2qtwZJky237/TcIpCGu6qzeZOLHjZJ8K8tBfn82G6 +d54LC+Sm0lN8rPE86SUhtsyDBQV0PxHXPRQaODG9s+UYC+Ldzfkmuyh0O6Cx +fWcAC/aW5+8ascDv7/qRnr3xLHjV78GR20yh2YqcIccXLBgSEx25h+fRlhVq +i331FWE48uRUJZ5njY4eHUgyVIS3Q086wxbhelOXX1eNFGHXr8H3FiJ4/gjQ +ChYzVQT9RAmXN3g+Nu/Xm8nZpQinf26y/SiA+2Wp8Y/eI4pw02rSoGGCj2od +97VZ3VSE3es2Tcz+j4/K8y8mqQkpgdnevw+Fi/norCDbqqlHCXz6HwjYmvOR +aLf/1mOFypDx5kXxNn4B6rtD8lIDVEAouDV1+mk+4qlIC5dar4Z9KofneVB5 +KDrRrc6JYMPIYqNzKbdykS3vYPOSL2wI+ntSWjIqB01uyvyT+lgVVHzmbzK3 +uYc+9Zn4VYepAddEtYanmY1ubdCSfeGkDiJ1w2OW3+6ivBBfcXf1NVDbrnzz +aOkdFGZ9yExofA1slB2UDYjMRLrd6dlhLzRgnAoNl96egRJWJ+W9MNMEYU+J ++1302+hcZWSCWakmOMeuYe/sTUcWstaZDSwtEJHRSXpHpSHjY3V24le0ICIj +XER5fSpKlXNmNY3j+BPVEdXfyYj19G7cDjtt4HlV3fIZTkTR6tXsV4+14coZ +Zd1uwRvIbUz4ZT2bA9JPzvC/C8UjZ2qUuHKNA3mF1LIho1jkdXH33+0xHFCq ++IjWrY1FvrsL3yzhciClqYATqhGLLo/7RkXHcWDbpceHlIlYlK//Zzo+hQNF +y4MGggRj0Z+q2Y47ORx4n+aQfbGGh6JfLYmsqePAgibnNz1mPJR4+6hHaD0H +opqEkp038dBtn+aNWxs5cMmeUB4w5KHiVdFTjc0c0BrUjJlW56FuWwmPtnYO +SPUeLNEV4yHlT9Ibez9x4MmIiePsay7SLPRXyOjjQIxWWXzaCy4yCOn64/qF +A43u0vEbn3GRuXIKf2AQe9eH4agSLjp5hFAYGeHAB62MGYNELgowvPDn/hiO +B/idHrzORSFLe1/7jHNAOKyxJOkqFyUU3L46OYnPI8vhCQVy0a3zwu5lUxxw +9D+sUebLRTk7XU0C/nLAGJy5J49xUSHjmbzRPw7khKtXqrlz0eMxpT+zsxyQ +V+wq+urARf8HJBTBpQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.0695935889832101}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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, 20}, {0., 0.0695935889832101}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913218813523655`*^9, 3.991716043222481*^9, + 3.992116143007641*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"cef69751-8b66-d544-a398-e65e42baae93"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.009784"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.02687"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.043601"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.05335"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.062849"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.065087"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.067708"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.065141"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.063585"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.059029"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.055695"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.050792"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.046991"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.042372"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.03863"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.034472"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.031001"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.027323"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.024229"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.021057"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.018401"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991714709387436*^9, 3.991714738003292*^9}, { + 3.991714834117689*^9, 3.991714842328617*^9}, 3.991793311407936*^9, + 3.9917953263701286`*^9, {3.9920917354887085`*^9, 3.992091736687666*^9}}, + CellLabel-> + "In[104]:=",ExpressionUUID->"60c27e2c-7c95-1e4a-ab78-642e76a08b0b"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, + 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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, 20.}, {0, 0.067708}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9917148467316074`*^9, 3.9921161431730633`*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"cdb77bc3-bb49-814f-892e-c6cb28989706"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel-> + "In[105]:=",ExpressionUUID->"7b17964f-3903-af4c-a72d-552615ef4a37"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4lF0bAHCikjaijHWeZ2YsDbIMiuTcVFoQLUqULVtSWiiv0GYpIZqx +ZAlFkW2esmSpEMkSSqRQfYoiKkQi+Y6/5vpd9zVzzplz7oV09t7lOk9AQGCx +oIDA3GdKkPMCLZcko5iSoI12kmuNatoI833Ef2jkIdfxuepKNPvs8SWCuIKa +boxq3FBVRCmVkfT5xA307tTEdKCqLvLa4Hv0Nz0bVZk5jDmpbkZt0x68n/RS +tPKtqa6MqjVa2NWrPEyvR2IlwmeWs11RekPqiW/0t8jte7/UD0VflF9wpctr +zSA6rWDaGDIRgtzRyxtDJ8dQk1dyVKRBNDrWt/pTYf4fJNtGM+CaxiJRMlj5 +wzoBGDRf6O6WlIiixBrZ6Y5CoKgTPtnomYqcu/Y8EWpaAP/apMaddG+hE7XB +zt7KosCjtflqhWcg6viS3bRtSyE56+v+mPg7KP3skUHNfWLwdIskayYnC11M +/bvz15A4KKzsbwo9cw8JtH2ECn8JCK6fQh8kc5GSj5vfHvZKqL3+sG0oOw99 +Ho/fu/jRKtgTIy5V/ycfbe/zDLx+ggak+6iijywfmQYyczf50SDCTuIWJc9H +Jiu7300E0SD0Q3TaMJ2PDDZbrLOLoEH3pZMsJxYfsTM1xph3aaDgwTXVU+ej +xa6/PIq6aZCUxviWYMRHTZ8D93RukQZ5q3l+yJGPdnyOVlVQkIGHiZYnxFJx +XPXz6wMsGRArWsRqTuMjs1Nrg5LYMpCU3Hgl/BYfbZ33vpW2VgY+dR87NpuJ +90OonpawkoFl+T7Jb3P5SPdAbaXIRRnQ/ykZZVnGR3Kv/1iP9cnAeKton/Fr +PkqUtZjVGpKBk9+rZtvb+Uj6UFrW8VG8fop4s8cbPlo1ajo9/E8GdtfEh4S/ +4yMxMV7aVylZcGqRcHr8kY+EzNd869kmC8slJlu/DPHR4FPn88/zZOHz8b0d +xsIUosd0ekYVyoJ/2TzJxvkU2mO/w3pPuSzoyUg17VpIoceT+uyPz2VhR3JJ +zkFRCl1XF3/9+5MsuAemsZ3EKLQ+/omysowchEWI6dHlKBThKdcSEioHKjnt +C/y0KVS19nqpWaQcfK/3KGzlUGhCWCRDnCcH+y81vFfWpZBj6phfSroclElY +33u5lkI6rxsYRRVyYFAjTpfYQKGeDf+d/jwqB3WWujyLLRRaI94hv9FBHrKt +Mx3TbSnUH9l/MdZVHk7dLWUW21EoRfT3ly9H5OEIe2dC/QEKLRGm3Y/wk4cv +Hw7HDdlTaHBiv2lHjDz4J3/7yjhEoczunmOHa+ShPktgxuoIheSy+p5cW60A +oT5kwgN/Cr1mTbB6NRRgl6H8o5tnKXQ1fUG4jp4CLGAMxF0OoNBUovKetyYK +oLXO9bBNEIU6Iw9/ZRxQgJ25jMivFyjEPTUsVhylAC9+vhpouEwhUTTu1D2m +AFbqo60JsRTyM1YRKZ5SAI7U2lHPOHyejXb51wTp8N5kPXd9PIWqt1ZNmSyn +g4qdunVnAoX8d0Vys9l02Fd1pmc2iULfXBVrTzvRwXJyi9LCWxSy9bA5YuVB +h/8MJGyqsJ97XhVne9Nh4p/LEv/bFMrwHjnYE0CHc117ZvozKHTgv0cTGxPo +oBkVNL/gLoWaIqxVxFvoYMtz6fydSyGDa5ebB9vpcN4za2tiHoWyYsp9arrp +cOOZl9H6fAoFx5FVZwbpUOtmWO5XQCGF1gm1H/MISPdxn/0fRaGOt9W11goE +JL1a/v5oMYWW2nUnVJME5Ov0PprE3tQ9fkRDkQBU5ah0sYRC99+rrFikRkD2 +D8716IcUivoUZV+hT4Co+eS7pDIKbRm2/c2wJsBIusbB6zGFbkpeajtnQ0D4 +dZ2mHuxf63MKuu0IENtJe2XxhEJp4dPucc4EbILFOasr8X0pJ3cuOk7AyLdD +8a1VFLKyrCl0O0XAqIN2u141he6cHop+epqALc2y+UnYu2sNtwUGEgAFq7Sd +nlIo17mn9Gc4AYci4i931VBoXvj8OIsoAj7lKmfq1VLIhlI/eS+GAIU9IfbR +2PMFgtguCQSszgvJQs8oZJ+ikPQmkwAB2ZzUyDoKiXU6BDyuJKArP8HsSz2F +3GbDbGRrCHgkpmGp1kChCiW+jl8d3t9C2pg39mFfgWGtZgIMHz6XG8OuXpF+ +MLOLgAcmszNfGylEM6jXn/eBABeLS6LMJgodcxpZ6dBLwDkltVI7bFm+cTNt +gADJ450zz7F9LHqNIiYIKLwircp9QaEGH1HZgT8ElIgZW1ZjE8navzfPEHDm +82Gpn9gvBi8WzAqR0FDE521pphBrRc7VAwtJYJZt2X4C21+/zb1UlIQ7tFcZ +N7CVLjOJU+Ik+OUWbuvHDigw+9siSYIaO4wn2kKhVx2nOtVoJBReNw5Rxz6n +WBPdr0DCaS+X/d7YHeZDXhsZJDi4bt0Qha3mI7ktTZGE9TaLn+dgd1a7CNqq +keD8Q6mtF/un8TuZQA0SJj/dz5rCXlhlqZOmTUJ0f9Eu8Vb8PqHW4qkuCTaD +zi+VsPWeGLj3ryPBSGCYtR57hxH//CJDEt7sDbPYge36SDFRDZFgb+Bq5ojN +Kxd7cXIzCe1epXXnsXMNQvtjt5LQ+iXO9Br209Lp2YdmJJRuCU1Kxn637oR0 +9w4SJLzKn2Vhj5b0a8/uJKFgp+fzB9iL1h4wZ1iTcGtFXdojbKL4petmGxLY +/fOtnmGv091yzsOOhBLCruMFtmVhRcJVexIqOdOc19huHO37+U4kNOfJHH6L +HXT/buNLFxLcDb779mDHasn3/XIn4Vf6PduPc/vlX/8ndQTfX32wVC92jYYI +bf0xEhYWUrlz7soP1LI/QULMOTeZOY+qj22/4EOCkEen49z3RfM8XDLOkHC7 +1vD83O8z1N4H1vmTYLa03m9uff2c3fGDgSQcbb2/fW5/Vux6/tILJPyo0JiY +279HtlGDZjAJ2im+Z+fOd16l8NPuMBzfV/Zu7vzxd1fPnA4nwfgnR7IQO18p +dVViJAnBITSVbOxnmZKaj6JJMN99c1UK9ntW+LaPXBIOUtMf5v7/8duzzkLx +JCRJuAdfwF7C9A1QSiRhZJGU8Els1q3B2G0p+P7BxMEJ25B0LPBKI+FBED3O +Ent3Wvvza7dJeJnVl2WIffFm5XR7Ngll70QOSWAnyuut/JNLAkP3tegMfl9U +cs4aOT4JnoTrtT7sj4lxTs7FOH6uSOMBtlG8V933ahLS1ym3AfbeVb0fxZ+R +UM/RdSexj8bum9Kpx3GdurcC2MlcE/WzLfi9Xraxq8D5MnWNxl3YTYLVGocO +RewVy6Ny2R9IWGxR7jKD83F1lNAzi14S0H3HtjZsm4jvk9yv+P1+P7IrELvo +co09MU4C/UBDTzXO96ztjbSwSRL0PC8YRWInLnn1aniaBAUTRcu92OejP5iW +z2MAZ9r2wmdcT8wTptbsFWOA+5pkrRFcb5Ct4ECFBANYKh3SFLa2nMhtphQD +tIctC+fqk1TaSqkReQYsF9IQHMD1rPeu5uxVVQY0mXbOa3pOofbDa0tH1zAg ++4p5yAXs56pGp/ZrM0Ag+ECFLnZegdkXJX0GhGmd35aI66NfiVtLlSkD9Jdr +f92N6+eyuuTU304MaNGM8r+C67Hgldv77V0Z4FJZ7MnG/rX9nkStBwOsxswl +G3D9fttcEnbdG6/vOs2bj53R8cpbPZABE1W/9xzF/cCgXwQOJTAgzy1WUuAR +hdSzlk/VJzFg2aprlREVOB89VxVqpjLg8u8BNg17/nemyr9MBjjmChuqllOo +ddxI7MYDBvw7dNPGpBTn43zfj83NDLC7a1mtU0QhGXr9m+mXDHjv7x1YXEih +5nXyLSrtDCCXJbLWYut51T662MWAUAfZdboPKLSgbWWS3lcGjBkon2Xh/pmZ +Vmx9U5AJC/V9cltwP/68frLhqA4TbBkrbtjifp5gbV6duJYJHuWC+8twvzf3 +TiutM2ACrTd0qTR24a2tWaQxE+r+eli3peF+vehGSLsFE6wlOB7rb+J8eKMP +G9yZwEnf/+Ytni8OnTxbtCSRCQk5ok07I/H+tN8XrU5hwmq5Tz68CJz/o1Bs +msaE/3yMFDuuUoh/YkHJ+TtMqL0QlbI3nEJ/j8c8/HWfCV/OLfllFkahOO+7 +5d2NTHhYFugjgueheq+2qtwZJky237/TcIpCGu6qzeZOLHjZJ8K8tBfn82G6 +d54LC+Sm0lN8rPE86SUhtsyDBQV0PxHXPRQaODG9s+UYC+Ldzfkmuyh0O6Cx +fWcAC/aW5+8ascDv7/qRnr3xLHjV78GR20yh2YqcIccXLBgSEx25h+fRlhVq +i331FWE48uRUJZ5njY4eHUgyVIS3Q086wxbhelOXX1eNFGHXr8H3FiJ4/gjQ +ChYzVQT9RAmXN3g+Nu/Xm8nZpQinf26y/SiA+2Wp8Y/eI4pw02rSoGGCj2od +97VZ3VSE3es2Tcz+j4/K8y8mqQkpgdnevw+Fi/norCDbqqlHCXz6HwjYmvOR +aLf/1mOFypDx5kXxNn4B6rtD8lIDVEAouDV1+mk+4qlIC5dar4Z9KofneVB5 +KDrRrc6JYMPIYqNzKbdykS3vYPOSL2wI+ntSWjIqB01uyvyT+lgVVHzmbzK3 +uYc+9Zn4VYepAddEtYanmY1ubdCSfeGkDiJ1w2OW3+6ivBBfcXf1NVDbrnzz +aOkdFGZ9yExofA1slB2UDYjMRLrd6dlhLzRgnAoNl96egRJWJ+W9MNMEYU+J ++1302+hcZWSCWakmOMeuYe/sTUcWstaZDSwtEJHRSXpHpSHjY3V24le0ICIj +XER5fSpKlXNmNY3j+BPVEdXfyYj19G7cDjtt4HlV3fIZTkTR6tXsV4+14coZ +Zd1uwRvIbUz4ZT2bA9JPzvC/C8UjZ2qUuHKNA3mF1LIho1jkdXH33+0xHFCq ++IjWrY1FvrsL3yzhciClqYATqhGLLo/7RkXHcWDbpceHlIlYlK//Zzo+hQNF +y4MGggRj0Z+q2Y47ORx4n+aQfbGGh6JfLYmsqePAgibnNz1mPJR4+6hHaD0H +opqEkp038dBtn+aNWxs5cMmeUB4w5KHiVdFTjc0c0BrUjJlW56FuWwmPtnYO +SPUeLNEV4yHlT9Ibez9x4MmIiePsay7SLPRXyOjjQIxWWXzaCy4yCOn64/qF +A43u0vEbn3GRuXIKf2AQe9eH4agSLjp5hFAYGeHAB62MGYNELgowvPDn/hiO +B/idHrzORSFLe1/7jHNAOKyxJOkqFyUU3L46OYnPI8vhCQVy0a3zwu5lUxxw +9D+sUebLRTk7XU0C/nLAGJy5J49xUSHjmbzRPw7khKtXqrlz0eMxpT+zsxyQ +V+wq+urARf8HJBTBpQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4lF0bAHCikjaijHWeZ2YsDbIMiuTcVFoQLUqULVtSWiiv0GYpIZqx +ZAlFkW2esmSpEMkSSqRQfYoiKkQi+Y6/5vpd9zVzzplz7oV09t7lOk9AQGCx +oIDA3GdKkPMCLZcko5iSoI12kmuNatoI833Ef2jkIdfxuepKNPvs8SWCuIKa +boxq3FBVRCmVkfT5xA307tTEdKCqLvLa4Hv0Nz0bVZk5jDmpbkZt0x68n/RS +tPKtqa6MqjVa2NWrPEyvR2IlwmeWs11RekPqiW/0t8jte7/UD0VflF9wpctr +zSA6rWDaGDIRgtzRyxtDJ8dQk1dyVKRBNDrWt/pTYf4fJNtGM+CaxiJRMlj5 +wzoBGDRf6O6WlIiixBrZ6Y5CoKgTPtnomYqcu/Y8EWpaAP/apMaddG+hE7XB +zt7KosCjtflqhWcg6viS3bRtSyE56+v+mPg7KP3skUHNfWLwdIskayYnC11M +/bvz15A4KKzsbwo9cw8JtH2ECn8JCK6fQh8kc5GSj5vfHvZKqL3+sG0oOw99 +Ho/fu/jRKtgTIy5V/ycfbe/zDLx+ggak+6iijywfmQYyczf50SDCTuIWJc9H +Jiu7300E0SD0Q3TaMJ2PDDZbrLOLoEH3pZMsJxYfsTM1xph3aaDgwTXVU+ej +xa6/PIq6aZCUxviWYMRHTZ8D93RukQZ5q3l+yJGPdnyOVlVQkIGHiZYnxFJx +XPXz6wMsGRArWsRqTuMjs1Nrg5LYMpCU3Hgl/BYfbZ33vpW2VgY+dR87NpuJ +90OonpawkoFl+T7Jb3P5SPdAbaXIRRnQ/ykZZVnGR3Kv/1iP9cnAeKton/Fr +PkqUtZjVGpKBk9+rZtvb+Uj6UFrW8VG8fop4s8cbPlo1ajo9/E8GdtfEh4S/ +4yMxMV7aVylZcGqRcHr8kY+EzNd869kmC8slJlu/DPHR4FPn88/zZOHz8b0d +xsIUosd0ekYVyoJ/2TzJxvkU2mO/w3pPuSzoyUg17VpIoceT+uyPz2VhR3JJ +zkFRCl1XF3/9+5MsuAemsZ3EKLQ+/omysowchEWI6dHlKBThKdcSEioHKjnt +C/y0KVS19nqpWaQcfK/3KGzlUGhCWCRDnCcH+y81vFfWpZBj6phfSroclElY +33u5lkI6rxsYRRVyYFAjTpfYQKGeDf+d/jwqB3WWujyLLRRaI94hv9FBHrKt +Mx3TbSnUH9l/MdZVHk7dLWUW21EoRfT3ly9H5OEIe2dC/QEKLRGm3Y/wk4cv +Hw7HDdlTaHBiv2lHjDz4J3/7yjhEoczunmOHa+ShPktgxuoIheSy+p5cW60A +oT5kwgN/Cr1mTbB6NRRgl6H8o5tnKXQ1fUG4jp4CLGAMxF0OoNBUovKetyYK +oLXO9bBNEIU6Iw9/ZRxQgJ25jMivFyjEPTUsVhylAC9+vhpouEwhUTTu1D2m +AFbqo60JsRTyM1YRKZ5SAI7U2lHPOHyejXb51wTp8N5kPXd9PIWqt1ZNmSyn +g4qdunVnAoX8d0Vys9l02Fd1pmc2iULfXBVrTzvRwXJyi9LCWxSy9bA5YuVB +h/8MJGyqsJ97XhVne9Nh4p/LEv/bFMrwHjnYE0CHc117ZvozKHTgv0cTGxPo +oBkVNL/gLoWaIqxVxFvoYMtz6fydSyGDa5ebB9vpcN4za2tiHoWyYsp9arrp +cOOZl9H6fAoFx5FVZwbpUOtmWO5XQCGF1gm1H/MISPdxn/0fRaGOt9W11goE +JL1a/v5oMYWW2nUnVJME5Ov0PprE3tQ9fkRDkQBU5ah0sYRC99+rrFikRkD2 +D8716IcUivoUZV+hT4Co+eS7pDIKbRm2/c2wJsBIusbB6zGFbkpeajtnQ0D4 +dZ2mHuxf63MKuu0IENtJe2XxhEJp4dPucc4EbILFOasr8X0pJ3cuOk7AyLdD +8a1VFLKyrCl0O0XAqIN2u141he6cHop+epqALc2y+UnYu2sNtwUGEgAFq7Sd +nlIo17mn9Gc4AYci4i931VBoXvj8OIsoAj7lKmfq1VLIhlI/eS+GAIU9IfbR +2PMFgtguCQSszgvJQs8oZJ+ikPQmkwAB2ZzUyDoKiXU6BDyuJKArP8HsSz2F +3GbDbGRrCHgkpmGp1kChCiW+jl8d3t9C2pg39mFfgWGtZgIMHz6XG8OuXpF+ +MLOLgAcmszNfGylEM6jXn/eBABeLS6LMJgodcxpZ6dBLwDkltVI7bFm+cTNt +gADJ450zz7F9LHqNIiYIKLwircp9QaEGH1HZgT8ElIgZW1ZjE8navzfPEHDm +82Gpn9gvBi8WzAqR0FDE521pphBrRc7VAwtJYJZt2X4C21+/zb1UlIQ7tFcZ +N7CVLjOJU+Ik+OUWbuvHDigw+9siSYIaO4wn2kKhVx2nOtVoJBReNw5Rxz6n +WBPdr0DCaS+X/d7YHeZDXhsZJDi4bt0Qha3mI7ktTZGE9TaLn+dgd1a7CNqq +keD8Q6mtF/un8TuZQA0SJj/dz5rCXlhlqZOmTUJ0f9Eu8Vb8PqHW4qkuCTaD +zi+VsPWeGLj3ryPBSGCYtR57hxH//CJDEt7sDbPYge36SDFRDZFgb+Bq5ojN +Kxd7cXIzCe1epXXnsXMNQvtjt5LQ+iXO9Br209Lp2YdmJJRuCU1Kxn637oR0 +9w4SJLzKn2Vhj5b0a8/uJKFgp+fzB9iL1h4wZ1iTcGtFXdojbKL4petmGxLY +/fOtnmGv091yzsOOhBLCruMFtmVhRcJVexIqOdOc19huHO37+U4kNOfJHH6L +HXT/buNLFxLcDb779mDHasn3/XIn4Vf6PduPc/vlX/8ndQTfX32wVC92jYYI +bf0xEhYWUrlz7soP1LI/QULMOTeZOY+qj22/4EOCkEen49z3RfM8XDLOkHC7 +1vD83O8z1N4H1vmTYLa03m9uff2c3fGDgSQcbb2/fW5/Vux6/tILJPyo0JiY +279HtlGDZjAJ2im+Z+fOd16l8NPuMBzfV/Zu7vzxd1fPnA4nwfgnR7IQO18p +dVViJAnBITSVbOxnmZKaj6JJMN99c1UK9ntW+LaPXBIOUtMf5v7/8duzzkLx +JCRJuAdfwF7C9A1QSiRhZJGU8Els1q3B2G0p+P7BxMEJ25B0LPBKI+FBED3O +Ent3Wvvza7dJeJnVl2WIffFm5XR7Ngll70QOSWAnyuut/JNLAkP3tegMfl9U +cs4aOT4JnoTrtT7sj4lxTs7FOH6uSOMBtlG8V933ahLS1ym3AfbeVb0fxZ+R +UM/RdSexj8bum9Kpx3GdurcC2MlcE/WzLfi9Xraxq8D5MnWNxl3YTYLVGocO +RewVy6Ny2R9IWGxR7jKD83F1lNAzi14S0H3HtjZsm4jvk9yv+P1+P7IrELvo +co09MU4C/UBDTzXO96ztjbSwSRL0PC8YRWInLnn1aniaBAUTRcu92OejP5iW +z2MAZ9r2wmdcT8wTptbsFWOA+5pkrRFcb5Ct4ECFBANYKh3SFLa2nMhtphQD +tIctC+fqk1TaSqkReQYsF9IQHMD1rPeu5uxVVQY0mXbOa3pOofbDa0tH1zAg ++4p5yAXs56pGp/ZrM0Ag+ECFLnZegdkXJX0GhGmd35aI66NfiVtLlSkD9Jdr +f92N6+eyuuTU304MaNGM8r+C67Hgldv77V0Z4FJZ7MnG/rX9nkStBwOsxswl +G3D9fttcEnbdG6/vOs2bj53R8cpbPZABE1W/9xzF/cCgXwQOJTAgzy1WUuAR +hdSzlk/VJzFg2aprlREVOB89VxVqpjLg8u8BNg17/nemyr9MBjjmChuqllOo +ddxI7MYDBvw7dNPGpBTn43zfj83NDLC7a1mtU0QhGXr9m+mXDHjv7x1YXEih +5nXyLSrtDCCXJbLWYut51T662MWAUAfZdboPKLSgbWWS3lcGjBkon2Xh/pmZ +Vmx9U5AJC/V9cltwP/68frLhqA4TbBkrbtjifp5gbV6duJYJHuWC+8twvzf3 +TiutM2ACrTd0qTR24a2tWaQxE+r+eli3peF+vehGSLsFE6wlOB7rb+J8eKMP +G9yZwEnf/+Ytni8OnTxbtCSRCQk5ok07I/H+tN8XrU5hwmq5Tz68CJz/o1Bs +msaE/3yMFDuuUoh/YkHJ+TtMqL0QlbI3nEJ/j8c8/HWfCV/OLfllFkahOO+7 +5d2NTHhYFugjgueheq+2qtwZJky237/TcIpCGu6qzeZOLHjZJ8K8tBfn82G6 +d54LC+Sm0lN8rPE86SUhtsyDBQV0PxHXPRQaODG9s+UYC+Ldzfkmuyh0O6Cx +fWcAC/aW5+8ascDv7/qRnr3xLHjV78GR20yh2YqcIccXLBgSEx25h+fRlhVq +i331FWE48uRUJZ5njY4eHUgyVIS3Q086wxbhelOXX1eNFGHXr8H3FiJ4/gjQ +ChYzVQT9RAmXN3g+Nu/Xm8nZpQinf26y/SiA+2Wp8Y/eI4pw02rSoGGCj2od +97VZ3VSE3es2Tcz+j4/K8y8mqQkpgdnevw+Fi/norCDbqqlHCXz6HwjYmvOR +aLf/1mOFypDx5kXxNn4B6rtD8lIDVEAouDV1+mk+4qlIC5dar4Z9KofneVB5 +KDrRrc6JYMPIYqNzKbdykS3vYPOSL2wI+ntSWjIqB01uyvyT+lgVVHzmbzK3 +uYc+9Zn4VYepAddEtYanmY1ubdCSfeGkDiJ1w2OW3+6ivBBfcXf1NVDbrnzz +aOkdFGZ9yExofA1slB2UDYjMRLrd6dlhLzRgnAoNl96egRJWJ+W9MNMEYU+J ++1302+hcZWSCWakmOMeuYe/sTUcWstaZDSwtEJHRSXpHpSHjY3V24le0ICIj +XER5fSpKlXNmNY3j+BPVEdXfyYj19G7cDjtt4HlV3fIZTkTR6tXsV4+14coZ +Zd1uwRvIbUz4ZT2bA9JPzvC/C8UjZ2qUuHKNA3mF1LIho1jkdXH33+0xHFCq ++IjWrY1FvrsL3yzhciClqYATqhGLLo/7RkXHcWDbpceHlIlYlK//Zzo+hQNF +y4MGggRj0Z+q2Y47ORx4n+aQfbGGh6JfLYmsqePAgibnNz1mPJR4+6hHaD0H +opqEkp038dBtn+aNWxs5cMmeUB4w5KHiVdFTjc0c0BrUjJlW56FuWwmPtnYO +SPUeLNEV4yHlT9Ibez9x4MmIiePsay7SLPRXyOjjQIxWWXzaCy4yCOn64/qF +A43u0vEbn3GRuXIKf2AQe9eH4agSLjp5hFAYGeHAB62MGYNELgowvPDn/hiO +B/idHrzORSFLe1/7jHNAOKyxJOkqFyUU3L46OYnPI8vhCQVy0a3zwu5lUxxw +9D+sUebLRTk7XU0C/nLAGJy5J49xUSHjmbzRPw7khKtXqrlz0eMxpT+zsxyQ +V+wq+urARf8HJBTBpQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.0695935889832101}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.0695935889832101}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4lF0bAHCikjaijHWeZ2YsDbIMiuTcVFoQLUqULVtSWiiv0GYpIZqx +ZAlFkW2esmSpEMkSSqRQfYoiKkQi+Y6/5vpd9zVzzplz7oV09t7lOk9AQGCx +oIDA3GdKkPMCLZcko5iSoI12kmuNatoI833Ef2jkIdfxuepKNPvs8SWCuIKa +boxq3FBVRCmVkfT5xA307tTEdKCqLvLa4Hv0Nz0bVZk5jDmpbkZt0x68n/RS +tPKtqa6MqjVa2NWrPEyvR2IlwmeWs11RekPqiW/0t8jte7/UD0VflF9wpctr +zSA6rWDaGDIRgtzRyxtDJ8dQk1dyVKRBNDrWt/pTYf4fJNtGM+CaxiJRMlj5 +wzoBGDRf6O6WlIiixBrZ6Y5CoKgTPtnomYqcu/Y8EWpaAP/apMaddG+hE7XB +zt7KosCjtflqhWcg6viS3bRtSyE56+v+mPg7KP3skUHNfWLwdIskayYnC11M +/bvz15A4KKzsbwo9cw8JtH2ECn8JCK6fQh8kc5GSj5vfHvZKqL3+sG0oOw99 +Ho/fu/jRKtgTIy5V/ycfbe/zDLx+ggak+6iijywfmQYyczf50SDCTuIWJc9H +Jiu7300E0SD0Q3TaMJ2PDDZbrLOLoEH3pZMsJxYfsTM1xph3aaDgwTXVU+ej +xa6/PIq6aZCUxviWYMRHTZ8D93RukQZ5q3l+yJGPdnyOVlVQkIGHiZYnxFJx +XPXz6wMsGRArWsRqTuMjs1Nrg5LYMpCU3Hgl/BYfbZ33vpW2VgY+dR87NpuJ +90OonpawkoFl+T7Jb3P5SPdAbaXIRRnQ/ykZZVnGR3Kv/1iP9cnAeKton/Fr +PkqUtZjVGpKBk9+rZtvb+Uj6UFrW8VG8fop4s8cbPlo1ajo9/E8GdtfEh4S/ +4yMxMV7aVylZcGqRcHr8kY+EzNd869kmC8slJlu/DPHR4FPn88/zZOHz8b0d +xsIUosd0ekYVyoJ/2TzJxvkU2mO/w3pPuSzoyUg17VpIoceT+uyPz2VhR3JJ +zkFRCl1XF3/9+5MsuAemsZ3EKLQ+/omysowchEWI6dHlKBThKdcSEioHKjnt +C/y0KVS19nqpWaQcfK/3KGzlUGhCWCRDnCcH+y81vFfWpZBj6phfSroclElY +33u5lkI6rxsYRRVyYFAjTpfYQKGeDf+d/jwqB3WWujyLLRRaI94hv9FBHrKt +Mx3TbSnUH9l/MdZVHk7dLWUW21EoRfT3ly9H5OEIe2dC/QEKLRGm3Y/wk4cv +Hw7HDdlTaHBiv2lHjDz4J3/7yjhEoczunmOHa+ShPktgxuoIheSy+p5cW60A +oT5kwgN/Cr1mTbB6NRRgl6H8o5tnKXQ1fUG4jp4CLGAMxF0OoNBUovKetyYK +oLXO9bBNEIU6Iw9/ZRxQgJ25jMivFyjEPTUsVhylAC9+vhpouEwhUTTu1D2m +AFbqo60JsRTyM1YRKZ5SAI7U2lHPOHyejXb51wTp8N5kPXd9PIWqt1ZNmSyn +g4qdunVnAoX8d0Vys9l02Fd1pmc2iULfXBVrTzvRwXJyi9LCWxSy9bA5YuVB +h/8MJGyqsJ97XhVne9Nh4p/LEv/bFMrwHjnYE0CHc117ZvozKHTgv0cTGxPo +oBkVNL/gLoWaIqxVxFvoYMtz6fydSyGDa5ebB9vpcN4za2tiHoWyYsp9arrp +cOOZl9H6fAoFx5FVZwbpUOtmWO5XQCGF1gm1H/MISPdxn/0fRaGOt9W11goE +JL1a/v5oMYWW2nUnVJME5Ov0PprE3tQ9fkRDkQBU5ah0sYRC99+rrFikRkD2 +D8716IcUivoUZV+hT4Co+eS7pDIKbRm2/c2wJsBIusbB6zGFbkpeajtnQ0D4 +dZ2mHuxf63MKuu0IENtJe2XxhEJp4dPucc4EbILFOasr8X0pJ3cuOk7AyLdD +8a1VFLKyrCl0O0XAqIN2u141he6cHop+epqALc2y+UnYu2sNtwUGEgAFq7Sd +nlIo17mn9Gc4AYci4i931VBoXvj8OIsoAj7lKmfq1VLIhlI/eS+GAIU9IfbR +2PMFgtguCQSszgvJQs8oZJ+ikPQmkwAB2ZzUyDoKiXU6BDyuJKArP8HsSz2F +3GbDbGRrCHgkpmGp1kChCiW+jl8d3t9C2pg39mFfgWGtZgIMHz6XG8OuXpF+ +MLOLgAcmszNfGylEM6jXn/eBABeLS6LMJgodcxpZ6dBLwDkltVI7bFm+cTNt +gADJ450zz7F9LHqNIiYIKLwircp9QaEGH1HZgT8ElIgZW1ZjE8navzfPEHDm +82Gpn9gvBi8WzAqR0FDE521pphBrRc7VAwtJYJZt2X4C21+/zb1UlIQ7tFcZ +N7CVLjOJU+Ik+OUWbuvHDigw+9siSYIaO4wn2kKhVx2nOtVoJBReNw5Rxz6n +WBPdr0DCaS+X/d7YHeZDXhsZJDi4bt0Qha3mI7ktTZGE9TaLn+dgd1a7CNqq +keD8Q6mtF/un8TuZQA0SJj/dz5rCXlhlqZOmTUJ0f9Eu8Vb8PqHW4qkuCTaD +zi+VsPWeGLj3ryPBSGCYtR57hxH//CJDEt7sDbPYge36SDFRDZFgb+Bq5ojN +Kxd7cXIzCe1epXXnsXMNQvtjt5LQ+iXO9Br209Lp2YdmJJRuCU1Kxn637oR0 +9w4SJLzKn2Vhj5b0a8/uJKFgp+fzB9iL1h4wZ1iTcGtFXdojbKL4petmGxLY +/fOtnmGv091yzsOOhBLCruMFtmVhRcJVexIqOdOc19huHO37+U4kNOfJHH6L +HXT/buNLFxLcDb779mDHasn3/XIn4Vf6PduPc/vlX/8ndQTfX32wVC92jYYI +bf0xEhYWUrlz7soP1LI/QULMOTeZOY+qj22/4EOCkEen49z3RfM8XDLOkHC7 +1vD83O8z1N4H1vmTYLa03m9uff2c3fGDgSQcbb2/fW5/Vux6/tILJPyo0JiY +279HtlGDZjAJ2im+Z+fOd16l8NPuMBzfV/Zu7vzxd1fPnA4nwfgnR7IQO18p +dVViJAnBITSVbOxnmZKaj6JJMN99c1UK9ntW+LaPXBIOUtMf5v7/8duzzkLx +JCRJuAdfwF7C9A1QSiRhZJGU8Els1q3B2G0p+P7BxMEJ25B0LPBKI+FBED3O +Ent3Wvvza7dJeJnVl2WIffFm5XR7Ngll70QOSWAnyuut/JNLAkP3tegMfl9U +cs4aOT4JnoTrtT7sj4lxTs7FOH6uSOMBtlG8V933ahLS1ym3AfbeVb0fxZ+R +UM/RdSexj8bum9Kpx3GdurcC2MlcE/WzLfi9Xraxq8D5MnWNxl3YTYLVGocO +RewVy6Ny2R9IWGxR7jKD83F1lNAzi14S0H3HtjZsm4jvk9yv+P1+P7IrELvo +co09MU4C/UBDTzXO96ztjbSwSRL0PC8YRWInLnn1aniaBAUTRcu92OejP5iW +z2MAZ9r2wmdcT8wTptbsFWOA+5pkrRFcb5Ct4ECFBANYKh3SFLa2nMhtphQD +tIctC+fqk1TaSqkReQYsF9IQHMD1rPeu5uxVVQY0mXbOa3pOofbDa0tH1zAg ++4p5yAXs56pGp/ZrM0Ag+ECFLnZegdkXJX0GhGmd35aI66NfiVtLlSkD9Jdr +f92N6+eyuuTU304MaNGM8r+C67Hgldv77V0Z4FJZ7MnG/rX9nkStBwOsxswl +G3D9fttcEnbdG6/vOs2bj53R8cpbPZABE1W/9xzF/cCgXwQOJTAgzy1WUuAR +hdSzlk/VJzFg2aprlREVOB89VxVqpjLg8u8BNg17/nemyr9MBjjmChuqllOo +ddxI7MYDBvw7dNPGpBTn43zfj83NDLC7a1mtU0QhGXr9m+mXDHjv7x1YXEih +5nXyLSrtDCCXJbLWYut51T662MWAUAfZdboPKLSgbWWS3lcGjBkon2Xh/pmZ +Vmx9U5AJC/V9cltwP/68frLhqA4TbBkrbtjifp5gbV6duJYJHuWC+8twvzf3 +TiutM2ACrTd0qTR24a2tWaQxE+r+eli3peF+vehGSLsFE6wlOB7rb+J8eKMP +G9yZwEnf/+Ytni8OnTxbtCSRCQk5ok07I/H+tN8XrU5hwmq5Tz68CJz/o1Bs +msaE/3yMFDuuUoh/YkHJ+TtMqL0QlbI3nEJ/j8c8/HWfCV/OLfllFkahOO+7 +5d2NTHhYFugjgueheq+2qtwZJky237/TcIpCGu6qzeZOLHjZJ8K8tBfn82G6 +d54LC+Sm0lN8rPE86SUhtsyDBQV0PxHXPRQaODG9s+UYC+Ldzfkmuyh0O6Cx +fWcAC/aW5+8ascDv7/qRnr3xLHjV78GR20yh2YqcIccXLBgSEx25h+fRlhVq +i331FWE48uRUJZ5njY4eHUgyVIS3Q086wxbhelOXX1eNFGHXr8H3FiJ4/gjQ +ChYzVQT9RAmXN3g+Nu/Xm8nZpQinf26y/SiA+2Wp8Y/eI4pw02rSoGGCj2od +97VZ3VSE3es2Tcz+j4/K8y8mqQkpgdnevw+Fi/norCDbqqlHCXz6HwjYmvOR +aLf/1mOFypDx5kXxNn4B6rtD8lIDVEAouDV1+mk+4qlIC5dar4Z9KofneVB5 +KDrRrc6JYMPIYqNzKbdykS3vYPOSL2wI+ntSWjIqB01uyvyT+lgVVHzmbzK3 +uYc+9Zn4VYepAddEtYanmY1ubdCSfeGkDiJ1w2OW3+6ivBBfcXf1NVDbrnzz +aOkdFGZ9yExofA1slB2UDYjMRLrd6dlhLzRgnAoNl96egRJWJ+W9MNMEYU+J ++1302+hcZWSCWakmOMeuYe/sTUcWstaZDSwtEJHRSXpHpSHjY3V24le0ICIj +XER5fSpKlXNmNY3j+BPVEdXfyYj19G7cDjtt4HlV3fIZTkTR6tXsV4+14coZ +Zd1uwRvIbUz4ZT2bA9JPzvC/C8UjZ2qUuHKNA3mF1LIho1jkdXH33+0xHFCq ++IjWrY1FvrsL3yzhciClqYATqhGLLo/7RkXHcWDbpceHlIlYlK//Zzo+hQNF +y4MGggRj0Z+q2Y47ORx4n+aQfbGGh6JfLYmsqePAgibnNz1mPJR4+6hHaD0H +opqEkp038dBtn+aNWxs5cMmeUB4w5KHiVdFTjc0c0BrUjJlW56FuWwmPtnYO +SPUeLNEV4yHlT9Ibez9x4MmIiePsay7SLPRXyOjjQIxWWXzaCy4yCOn64/qF +A43u0vEbn3GRuXIKf2AQe9eH4agSLjp5hFAYGeHAB62MGYNELgowvPDn/hiO +B/idHrzORSFLe1/7jHNAOKyxJOkqFyUU3L46OYnPI8vhCQVy0a3zwu5lUxxw +9D+sUebLRTk7XU0C/nLAGJy5J49xUSHjmbzRPw7khKtXqrlz0eMxpT+zsxyQ +V+wq+urARf8HJBTBpQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.0695935889832101}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, + 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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, 20}, {0., 0.0695935889832101}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}, + 3.992116143249792*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"3ff2b36c-292a-fa4c-b578-330f46ddc49f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{ + FractionBox["1", "2"], + RowBox[{"(", + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"Cw", "*", "\[Pi]"}], ")"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{3.9917953353381157`*^9}, + CellLabel-> + "In[106]:=",ExpressionUUID->"982133ce-0d36-4d45-a387-ff35350b5cb9"], + +Cell[BoxData["15.77237760339731`"], "Output", + CellChangeTimes->{3.9913229040054893`*^9, 3.9917087761038074`*^9, + 3.9921161433258743`*^9}, + CellLabel-> + "Out[106]=",ExpressionUUID->"61122fc0-29e6-ad4a-bf3e-4d56f90cc913"] +}, 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.991795437556492*^9}, + CellLabel-> + "In[107]:=",ExpressionUUID->"90b7f5f1-808a-1b4d-aa45-edfd6d6a25f8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.8165720655564655`*^-260\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 107, 714, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9, 3.9921161435943527`*^9}, + CellLabel-> + "During evaluation of \ +In[107]:=",ExpressionUUID->"8ac3137f-9f13-664a-8477-3a4565990417"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.484584649924521`*^-270\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 107, 715, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9, 3.9921161436153297`*^9}, + CellLabel-> + "During evaluation of \ +In[107]:=",ExpressionUUID->"5ef1aa89-df87-6d45-bde2-dd580e1a353d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0613056647566823`*^-280\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 107, 716, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9, 3.992116143635332*^9}, + CellLabel-> + "During evaluation of \ +In[107]:=",ExpressionUUID->"d06032c5-0937-9742-b2a0-7d5e1e6c1331"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 107, 717, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9, 3.992116143653328*^9}, + CellLabel-> + "During evaluation of \ +In[107]:=",ExpressionUUID->"daddf468-7583-bf44-91fd-bd930c4f908f"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nlcjNsbAHBUEqkUbTepMU2ztmpvep7oCqWQuhWJSpYSRZEQoZlWVEIp +aZl5iSQUaVPkVq60b9aiX0J0S5tLv+OP9/N+vp/5zHnOe87zPOdo++zdsH3W +jBkzZs0kD3mPva57TI/LtTGMO+OdlmZg05qpGm7bGQUbSlb6W4TJAS5q9FHt +TIJ9IQt9vodqQti66x0Sndnwv+0NT/4J1YMFQypJkx1FEGIocyYn1AbelDnt +He2ohjPtnOZloU6wkj74arijGQqmmT9S92+ByQ6z8986eoEue+SX3p4gqFkh +zm3KHoGoOsfwxRciQePNg34f7k+ofmwlwXQVwMJA7+vSKyTw/A5a6IqkREgy +XPnQyXUO2vSn36tTS4auiwZVwwrzcVZ5eF6UMBXiciMbZ6ktwC6p1Q9uK6eB +SkpfTHKGEv5P4Z9zJb4ZINi42qZ5bBGeeXnVqHdpFuy3uOpdF6WK8/SEicKL +V8Hu69ThoD51lJ1JiyvryIYT1uu3qZsvxomNbYvdRnPAsuDS3WOVS/C/1/RV +S+fkQeDE8PG/52ujLeuZWs7HPLAM9lfuV9RGr+w3iw2+5MGcwe58CVVtlBdL +tpV+y4O8npp2G5o2OvwpvbluPA9eV5zn3jPVxsP5WXX1UiJwPm3RedVbG31r +p2W8tUVgpHhCP+K2NvZLLQh45iaCSY7Ca54rDUvd3d2KS0UwlqF+wtiThrES +2aeulotgVF6HbuFNQx/jlrDYKhEMjVjstttFw9klbSLXWhH0PvQd8zxKQ//w +5mVNTSKodyiRE+bR8IneOSmvARGkBWyB3u80XHBf6cBTJTFY59/ISk1ditw7 +vscGfMXQo5V/5c/0pdg4nT9fw18Mh1OvZY5eWYpxlxJvrN0phpITossbri3F +2lgPtfxAMRi5Z12UK1uKFZ0phU6hYmBJpZyNfrcUjehfe82jxaDsHXE8jEtH +box54yWRGO61hkfqGNJxw0kMPkOJYeOaQ8daTeho0qCic/K6GJJMQo8YAR3v +qMRX+xWIYb7s3kND6+nocG1Gh0KxGCQf+OzzP0jHmR9SD8s+EcOw4pqtbtV0 +zLXK8kp6J4bOQNqL3U/pmNxilLC3TwxVtVMQ+YyO9W6WEWs+iOHs4fwlVDuJ +v9U2eXJADAa9sm8mB+nIDt5fYv1NDEG3G70ylHSwJT5vxO2XGAadXTe999PB +xtEf/i9VKWi+xmuY2KWDP6HlXrA6BaUSs63m79XBe+8T/5bUoCCmpFjdNFwH +Z14+aElfQgFziWq3IEEHM4YiXVfpULBjqNudU6yDV6znntcxpOB9/Fa3EGkG +1idrF5rYUxA0yKUZyDLwf9tOF+xZRcG4/eSXLwoMtHH0rspZTcFciaTTu9QZ +KN9pumSuIwUG4TV3t/IYqCDx7HnlOgqObmcoObswMGGfonajBwWza/59LevO +QAFzZtCAJwVntSqv129mYMlOQdP0Jgpye/5avtKfgUJzzivmFgrq18cE88MZ +WOCeJOvnQ4GyzedGzhUGmjUWTx3bTUFW+v30jzkM1L+gUB8eQAFr8tQOMcXA +uWpb74QEUmB9d/E0rYiBr6WrWrcEUeDLdtZTf8LAzooCd60QCgqVi+LnfCKe +5XthVTgFq78eXP3BVBd/Wcsk6EdToGGoGT3HWhfve1W8+0k8FPK4mmOrizu6 +T0vWCyhIGVOwDnEgfpRwb1MMBa9/XtOb9tZFm03ez/3iKQiRfamkFqOLtr8m +aXJJFNg5Ra2zTtRFXg8v8gGxyllmgneyLo6WZxb4JFNQphQ6W5Shi2kN8cKC +FLJef8hNGhXp4rTJtCH3AgVpLHzt2KOLriXe4sp0CgID+tX3vdXFgdyf3qsu +UwA34/9K/qCLNxuch58TvzfoetH1lYzXfuhKWwYFeuYhNf6STDxyuda47goF +Mw6rzoiVYeIhiS8PMYuClocV1jflmHh17ZUlxcSHYF7xiCoTvbtUI9KuUlCz +Mpc6zmOi8ogwfnUOBanCNR9yjJh4J8Xkxy3infXftJ+aMXGHlvuqhbkUyDnx +0+cvZ2LalvDIdmJ31/aENDcmaqidD7AVUcC+cKS+fBMTq4v+6kwl/tlJk363 +lYnTbvGMQeLszXuP6wYw0VercWesmILPvnP2341k4rrBbWduU2Q/Mu3KK08x +0SmwvWOU+GvXcemGGCYm3ENV02sU/Os8mf4umYlP4/dEFRGPxJr0f77IxP+W +fb7xhXj0SbDBRAYTr3V2vmBcJ/ltNfhYjmJimMLB2cnEE2EMefWbTNR60q9a +Szx128dDp4iJS4uRMU78n27PF6syJm7ZYGTskk/BLx8Vc/tHTIzUijU+Rjyd +4RK1oZaJgn2OBmLiWQufKe96wcTStGStEWJJ5znbDrQxkZvavVD5BgVSsXb5 +kd1MfOGqIG1GPPvJ8e+xb5jYJEwddyWeM6McUt8zcc/ixv4Q4rlWkzFXPzJR +ylajLYF4XphJ640hJnZ7v60WEcveDta8P8LESfqxwnJiuc83d9ZMMFH9sHtm +M7GC7mDR859MPClojv9AvMCH8bNrFgt77zgfGSNWzPCx/yDNQl6u8R6pmxQs +7Mw8902Whceter0ViRcp9fT8WMBC+fTKjYuJlZ1UGNIqLHyrbeDIIFaNcdmn +qMHC1sCLK3nEao/PlC7WZuEuNy87I2L16QZJFoOF+WN9f5oQa1jOcV7GYaFk +zjkHU+LFoXaXwIDEH2pw/f27ZuHxvjUmLJwWT/j9/r/WpzKemyULHV8dDf89 +vjZj8uA2YOGHjkfJv+PTtplUB9qxkK/Juft7fvTLwbKHVrMwdr9Wz+/5Mzpu +up10YmFAxxyZ2cS6ioNZiS4s7D/tYDNOvp+5lvHpkjsLV4w7R/QTs4U+Jnle +LPz45mhVCzG3JjOy0IeF5gZ8uUpi3q/uuoc7WLh/4ZgfRWxwwGVLczAL9Q6M +6YUSG906Q70KY+H6EPkcd2LjwYZ/ByJIfJkn2pbEplvtBNOnWTg7JR/HSX6Y +pR9vmhtH5tN3610zsXl72R/KZ1locXo88QaxlaNJIZc0hZM/JuU9ia0FwVNm +V8h4s2Lf84htqm/arcglrpB+Ok3yFc0ZXR4FLAy0DC/JIF5JV5klqGYhR//H ++mpSDx997Cmrpyy033G4KJY4/upBp28NLNw9Y5ffeuIWzc40jzYWzls/Vt5F +6m2r2iVj7gAL20qE69tJfUq413W9/czCwoUW9ueIRamTkeeHWVjJ0D635nf9 +Knk++zXFwvSqadp9Ut/hcn9sb5rPxsBdLasi88j+r3WYF63Ixid9GoNc4qq4 +iNuWKmyslQnu7ST9Y7bMy585WmzsGc7r4hAnSWSkhhmzUTNixefybApuTGj+ +/YcHG+Ot3/ybRPqbs5lz0AsvNl6W7tNnEP8bGrnwtA8bXZOK60oyKbAYebN1 +KICNqeUrFrWT/lj7JWuy6hgbS+RBeZr01ze9NI5/LhvbNpxQlLhIQZS2S5P6 +NTay6qpWHSH9mLH15MHGm2xM8Sx/N5JK+vGrvhrzEjZKRgXxX58n/aMjd/O8 +ejbGWdmIrpD+rvgPI7HwKxt/5EQktSWSfvHVIK9+lI2VL+7H6xIPKlqVvZ9k +Y7K3J3UwgYJqd+dBVUkOvtB69KciOU/2vz+48oQqB4uef2AYkvOm9cffv9bb +ctBt9sHhRSfJemm2LApcyUFH5kr+miiyHravuNEOHNRP2F105AQFpwXDnqWu +HHTXLVZ/GUnyTUm9hLabg8+OHRo+dYSCC+yAvSNJHDQOsmdFhlJwam1o9PyL +HLQZYdmnHqBg377IDN0MDg4Wn0zN30/BquLkhk1iDr4cy294EUy+17ZM9/FD +Dp4MXJ4pRc5bT4/5b1Pec5B6XOyu5k/2V3hrnakpF+8/CP/n80YKrhfcrJm0 +5GJlmKnPaxeS3235puXAxf0aXiHPN1CwkUZp2K3m4nop8ezr5D4RX5Y1sH4z +F5vDAuc5k/vGj2/nju+J4mKrk+bAuhUUdHscKMx9zsU3JcHSZgYUXORYKCjt +4KFtrImMSIoCV4d/zlYE8NB+5Vu6rSTZj4BtC3bv42GRb21/9ywK4q7HKD4K +5+HjEknvuTMoOMbqXrg3nodxwkSex5QY/HQj1Bpu87DrrX1e8ZAYDJeW007+ +x8Nx4W6VA+1iqFe3NRk5p4e5LX6yitlieKF5iyF5QQ/3O5S1LcsSQzttseqi +y3oYd6uf5ZYphnfsySlTkR7my88NTUkTw4Tl7arDpXr4XvujaDpJDIxN2o6z ++vTwA9j9d/akGKLSZ/ouWKaPx9hv43LI/dhSo/qsfrs+vlB+HnptiRjkJLIP +bIsywAhp8b2fSSLQPLHE2oNhiL4WuMlgIA9kdDYXb3hqiOxfMfluBnmgx1e7 +ddDLCH2/b0iIP5QLIa8Va9bMMMb5T+/0qopy4OtIvOvqi8ZYckVxEb8rG+z1 +a9NW85Yht3+51/a52VAxYvVj/PkyrHVvMjXSuQpBXKPupu0mmB2UNpHnmAX8 +Ib9WDxlTDAhr1s58lAl/0lXXzs82xR2xQjnHuRnAPB57qNrMDI0f/Erz9E4H +9naLSp1uM/SXWmS27MIl2F6x89TdYHPc3q8k7zh2ASqzWv2GF1lgeQmvxscm +FUap6XH9Egt0VQhZcehyCvjq5MukrbXE3fofd6XQk2GYnWxa9M0SDW64NAsy +zsH93B/vvgutUGUqI+gTngVPu6VopWmN66YErjFjCfDHHsEDvSpr/Mgfq5t2 +j4NFcwNvr/2Lj3RNU5fL82Igd8XRw988+Pj4L/+U7JkxYHQ0cUXyZj56DNRF +5Y8LwelbYVvnNj4OB+nteNInhOj275O+gXw8u223k1qZECayI5cfPsFH5efy +5233CKHbKrlFlM9H+UO9r5KbBLAzNPfy6gI+pkd4Vnx9KoCxgnvbPxfysSwA +HJwqBKBI6xw3LOZj4XfV3Ur5AnCYs1ijvIqP54z2lZafEkBZq8ivpY2PR6QC +LiSZC2CN3H1eWCcfn5e6mKnpC6DTvm5MtYfE10yLytYRwGjpJ+GWt3wM+v5Z +vVxRALyrBjc/DvJxr4HTOsUv0VDWbRsW/4WPj67Uryroi4Y1C11A/xsfDe+P +fHLsjgZ/QWjTge98LHb9ZJj0NBpGq6LTVCb4KIwWtppXREPU1AXf0ik+mt7f +q917NxoUll3jev0k4y0TqCbmR0PmntLv09N8XNJz94F1djT8H9MQVl8= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nlcjNsbAHBUEqkUbTepMU2ztmpvep7oCqWQuhWJSpYSRZEQoZlWVEIp +aZl5iSQUaVPkVq60b9aiX0J0S5tLv+OP9/N+vp/5zHnOe87zPOdo++zdsH3W +jBkzZs0kD3mPva57TI/LtTGMO+OdlmZg05qpGm7bGQUbSlb6W4TJAS5q9FHt +TIJ9IQt9vodqQti66x0Sndnwv+0NT/4J1YMFQypJkx1FEGIocyYn1AbelDnt +He2ohjPtnOZloU6wkj74arijGQqmmT9S92+ByQ6z8986eoEue+SX3p4gqFkh +zm3KHoGoOsfwxRciQePNg34f7k+ofmwlwXQVwMJA7+vSKyTw/A5a6IqkREgy +XPnQyXUO2vSn36tTS4auiwZVwwrzcVZ5eF6UMBXiciMbZ6ktwC6p1Q9uK6eB +SkpfTHKGEv5P4Z9zJb4ZINi42qZ5bBGeeXnVqHdpFuy3uOpdF6WK8/SEicKL +V8Hu69ThoD51lJ1JiyvryIYT1uu3qZsvxomNbYvdRnPAsuDS3WOVS/C/1/RV +S+fkQeDE8PG/52ujLeuZWs7HPLAM9lfuV9RGr+w3iw2+5MGcwe58CVVtlBdL +tpV+y4O8npp2G5o2OvwpvbluPA9eV5zn3jPVxsP5WXX1UiJwPm3RedVbG31r +p2W8tUVgpHhCP+K2NvZLLQh45iaCSY7Ca54rDUvd3d2KS0UwlqF+wtiThrES +2aeulotgVF6HbuFNQx/jlrDYKhEMjVjstttFw9klbSLXWhH0PvQd8zxKQ//w +5mVNTSKodyiRE+bR8IneOSmvARGkBWyB3u80XHBf6cBTJTFY59/ISk1ditw7 +vscGfMXQo5V/5c/0pdg4nT9fw18Mh1OvZY5eWYpxlxJvrN0phpITossbri3F +2lgPtfxAMRi5Z12UK1uKFZ0phU6hYmBJpZyNfrcUjehfe82jxaDsHXE8jEtH +box54yWRGO61hkfqGNJxw0kMPkOJYeOaQ8daTeho0qCic/K6GJJMQo8YAR3v +qMRX+xWIYb7s3kND6+nocG1Gh0KxGCQf+OzzP0jHmR9SD8s+EcOw4pqtbtV0 +zLXK8kp6J4bOQNqL3U/pmNxilLC3TwxVtVMQ+YyO9W6WEWs+iOHs4fwlVDuJ +v9U2eXJADAa9sm8mB+nIDt5fYv1NDEG3G70ylHSwJT5vxO2XGAadXTe999PB +xtEf/i9VKWi+xmuY2KWDP6HlXrA6BaUSs63m79XBe+8T/5bUoCCmpFjdNFwH +Z14+aElfQgFziWq3IEEHM4YiXVfpULBjqNudU6yDV6znntcxpOB9/Fa3EGkG +1idrF5rYUxA0yKUZyDLwf9tOF+xZRcG4/eSXLwoMtHH0rspZTcFciaTTu9QZ +KN9pumSuIwUG4TV3t/IYqCDx7HnlOgqObmcoObswMGGfonajBwWza/59LevO +QAFzZtCAJwVntSqv129mYMlOQdP0Jgpye/5avtKfgUJzzivmFgrq18cE88MZ +WOCeJOvnQ4GyzedGzhUGmjUWTx3bTUFW+v30jzkM1L+gUB8eQAFr8tQOMcXA +uWpb74QEUmB9d/E0rYiBr6WrWrcEUeDLdtZTf8LAzooCd60QCgqVi+LnfCKe +5XthVTgFq78eXP3BVBd/Wcsk6EdToGGoGT3HWhfve1W8+0k8FPK4mmOrizu6 +T0vWCyhIGVOwDnEgfpRwb1MMBa9/XtOb9tZFm03ez/3iKQiRfamkFqOLtr8m +aXJJFNg5Ra2zTtRFXg8v8gGxyllmgneyLo6WZxb4JFNQphQ6W5Shi2kN8cKC +FLJef8hNGhXp4rTJtCH3AgVpLHzt2KOLriXe4sp0CgID+tX3vdXFgdyf3qsu +UwA34/9K/qCLNxuch58TvzfoetH1lYzXfuhKWwYFeuYhNf6STDxyuda47goF +Mw6rzoiVYeIhiS8PMYuClocV1jflmHh17ZUlxcSHYF7xiCoTvbtUI9KuUlCz +Mpc6zmOi8ogwfnUOBanCNR9yjJh4J8Xkxy3infXftJ+aMXGHlvuqhbkUyDnx +0+cvZ2LalvDIdmJ31/aENDcmaqidD7AVUcC+cKS+fBMTq4v+6kwl/tlJk363 +lYnTbvGMQeLszXuP6wYw0VercWesmILPvnP2341k4rrBbWduU2Q/Mu3KK08x +0SmwvWOU+GvXcemGGCYm3ENV02sU/Os8mf4umYlP4/dEFRGPxJr0f77IxP+W +fb7xhXj0SbDBRAYTr3V2vmBcJ/ltNfhYjmJimMLB2cnEE2EMefWbTNR60q9a +Szx128dDp4iJS4uRMU78n27PF6syJm7ZYGTskk/BLx8Vc/tHTIzUijU+Rjyd +4RK1oZaJgn2OBmLiWQufKe96wcTStGStEWJJ5znbDrQxkZvavVD5BgVSsXb5 +kd1MfOGqIG1GPPvJ8e+xb5jYJEwddyWeM6McUt8zcc/ixv4Q4rlWkzFXPzJR +ylajLYF4XphJ640hJnZ7v60WEcveDta8P8LESfqxwnJiuc83d9ZMMFH9sHtm +M7GC7mDR859MPClojv9AvMCH8bNrFgt77zgfGSNWzPCx/yDNQl6u8R6pmxQs +7Mw8902Whceter0ViRcp9fT8WMBC+fTKjYuJlZ1UGNIqLHyrbeDIIFaNcdmn +qMHC1sCLK3nEao/PlC7WZuEuNy87I2L16QZJFoOF+WN9f5oQa1jOcV7GYaFk +zjkHU+LFoXaXwIDEH2pw/f27ZuHxvjUmLJwWT/j9/r/WpzKemyULHV8dDf89 +vjZj8uA2YOGHjkfJv+PTtplUB9qxkK/Juft7fvTLwbKHVrMwdr9Wz+/5Mzpu +up10YmFAxxyZ2cS6ioNZiS4s7D/tYDNOvp+5lvHpkjsLV4w7R/QTs4U+Jnle +LPz45mhVCzG3JjOy0IeF5gZ8uUpi3q/uuoc7WLh/4ZgfRWxwwGVLczAL9Q6M +6YUSG906Q70KY+H6EPkcd2LjwYZ/ByJIfJkn2pbEplvtBNOnWTg7JR/HSX6Y +pR9vmhtH5tN3610zsXl72R/KZ1locXo88QaxlaNJIZc0hZM/JuU9ia0FwVNm +V8h4s2Lf84htqm/arcglrpB+Ok3yFc0ZXR4FLAy0DC/JIF5JV5klqGYhR//H ++mpSDx997Cmrpyy033G4KJY4/upBp28NLNw9Y5ffeuIWzc40jzYWzls/Vt5F +6m2r2iVj7gAL20qE69tJfUq413W9/czCwoUW9ueIRamTkeeHWVjJ0D635nf9 +Knk++zXFwvSqadp9Ut/hcn9sb5rPxsBdLasi88j+r3WYF63Ixid9GoNc4qq4 +iNuWKmyslQnu7ST9Y7bMy585WmzsGc7r4hAnSWSkhhmzUTNixefybApuTGj+ +/YcHG+Ot3/ybRPqbs5lz0AsvNl6W7tNnEP8bGrnwtA8bXZOK60oyKbAYebN1 +KICNqeUrFrWT/lj7JWuy6hgbS+RBeZr01ze9NI5/LhvbNpxQlLhIQZS2S5P6 +NTay6qpWHSH9mLH15MHGm2xM8Sx/N5JK+vGrvhrzEjZKRgXxX58n/aMjd/O8 +ejbGWdmIrpD+rvgPI7HwKxt/5EQktSWSfvHVIK9+lI2VL+7H6xIPKlqVvZ9k +Y7K3J3UwgYJqd+dBVUkOvtB69KciOU/2vz+48oQqB4uef2AYkvOm9cffv9bb +ctBt9sHhRSfJemm2LApcyUFH5kr+miiyHravuNEOHNRP2F105AQFpwXDnqWu +HHTXLVZ/GUnyTUm9hLabg8+OHRo+dYSCC+yAvSNJHDQOsmdFhlJwam1o9PyL +HLQZYdmnHqBg377IDN0MDg4Wn0zN30/BquLkhk1iDr4cy294EUy+17ZM9/FD +Dp4MXJ4pRc5bT4/5b1Pec5B6XOyu5k/2V3hrnakpF+8/CP/n80YKrhfcrJm0 +5GJlmKnPaxeS3235puXAxf0aXiHPN1CwkUZp2K3m4nop8ezr5D4RX5Y1sH4z +F5vDAuc5k/vGj2/nju+J4mKrk+bAuhUUdHscKMx9zsU3JcHSZgYUXORYKCjt +4KFtrImMSIoCV4d/zlYE8NB+5Vu6rSTZj4BtC3bv42GRb21/9ywK4q7HKD4K +5+HjEknvuTMoOMbqXrg3nodxwkSex5QY/HQj1Bpu87DrrX1e8ZAYDJeW007+ +x8Nx4W6VA+1iqFe3NRk5p4e5LX6yitlieKF5iyF5QQ/3O5S1LcsSQzttseqi +y3oYd6uf5ZYphnfsySlTkR7my88NTUkTw4Tl7arDpXr4XvujaDpJDIxN2o6z ++vTwA9j9d/akGKLSZ/ouWKaPx9hv43LI/dhSo/qsfrs+vlB+HnptiRjkJLIP +bIsywAhp8b2fSSLQPLHE2oNhiL4WuMlgIA9kdDYXb3hqiOxfMfluBnmgx1e7 +ddDLCH2/b0iIP5QLIa8Va9bMMMb5T+/0qopy4OtIvOvqi8ZYckVxEb8rG+z1 +a9NW85Yht3+51/a52VAxYvVj/PkyrHVvMjXSuQpBXKPupu0mmB2UNpHnmAX8 +Ib9WDxlTDAhr1s58lAl/0lXXzs82xR2xQjnHuRnAPB57qNrMDI0f/Erz9E4H +9naLSp1uM/SXWmS27MIl2F6x89TdYHPc3q8k7zh2ASqzWv2GF1lgeQmvxscm +FUap6XH9Egt0VQhZcehyCvjq5MukrbXE3fofd6XQk2GYnWxa9M0SDW64NAsy +zsH93B/vvgutUGUqI+gTngVPu6VopWmN66YErjFjCfDHHsEDvSpr/Mgfq5t2 +j4NFcwNvr/2Lj3RNU5fL82Igd8XRw988+Pj4L/+U7JkxYHQ0cUXyZj56DNRF +5Y8LwelbYVvnNj4OB+nteNInhOj275O+gXw8u223k1qZECayI5cfPsFH5efy +5233CKHbKrlFlM9H+UO9r5KbBLAzNPfy6gI+pkd4Vnx9KoCxgnvbPxfysSwA +HJwqBKBI6xw3LOZj4XfV3Ur5AnCYs1ijvIqP54z2lZafEkBZq8ivpY2PR6QC +LiSZC2CN3H1eWCcfn5e6mKnpC6DTvm5MtYfE10yLytYRwGjpJ+GWt3wM+v5Z +vVxRALyrBjc/DvJxr4HTOsUv0VDWbRsW/4WPj67Uryroi4Y1C11A/xsfDe+P +fHLsjgZ/QWjTge98LHb9ZJj0NBpGq6LTVCb4KIwWtppXREPU1AXf0ik+mt7f +q917NxoUll3jev0k4y0TqCbmR0PmntLv09N8XNJz94F1djT8H9MQVl8= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.04819650337669226}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.04819650337669226}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nlcjNsbAHBUEqkUbTepMU2ztmpvep7oCqWQuhWJSpYSRZEQoZlWVEIp +aZl5iSQUaVPkVq60b9aiX0J0S5tLv+OP9/N+vp/5zHnOe87zPOdo++zdsH3W +jBkzZs0kD3mPva57TI/LtTGMO+OdlmZg05qpGm7bGQUbSlb6W4TJAS5q9FHt +TIJ9IQt9vodqQti66x0Sndnwv+0NT/4J1YMFQypJkx1FEGIocyYn1AbelDnt +He2ohjPtnOZloU6wkj74arijGQqmmT9S92+ByQ6z8986eoEue+SX3p4gqFkh +zm3KHoGoOsfwxRciQePNg34f7k+ofmwlwXQVwMJA7+vSKyTw/A5a6IqkREgy +XPnQyXUO2vSn36tTS4auiwZVwwrzcVZ5eF6UMBXiciMbZ6ktwC6p1Q9uK6eB +SkpfTHKGEv5P4Z9zJb4ZINi42qZ5bBGeeXnVqHdpFuy3uOpdF6WK8/SEicKL +V8Hu69ThoD51lJ1JiyvryIYT1uu3qZsvxomNbYvdRnPAsuDS3WOVS/C/1/RV +S+fkQeDE8PG/52ujLeuZWs7HPLAM9lfuV9RGr+w3iw2+5MGcwe58CVVtlBdL +tpV+y4O8npp2G5o2OvwpvbluPA9eV5zn3jPVxsP5WXX1UiJwPm3RedVbG31r +p2W8tUVgpHhCP+K2NvZLLQh45iaCSY7Ca54rDUvd3d2KS0UwlqF+wtiThrES +2aeulotgVF6HbuFNQx/jlrDYKhEMjVjstttFw9klbSLXWhH0PvQd8zxKQ//w +5mVNTSKodyiRE+bR8IneOSmvARGkBWyB3u80XHBf6cBTJTFY59/ISk1ditw7 +vscGfMXQo5V/5c/0pdg4nT9fw18Mh1OvZY5eWYpxlxJvrN0phpITossbri3F +2lgPtfxAMRi5Z12UK1uKFZ0phU6hYmBJpZyNfrcUjehfe82jxaDsHXE8jEtH +box54yWRGO61hkfqGNJxw0kMPkOJYeOaQ8daTeho0qCic/K6GJJMQo8YAR3v +qMRX+xWIYb7s3kND6+nocG1Gh0KxGCQf+OzzP0jHmR9SD8s+EcOw4pqtbtV0 +zLXK8kp6J4bOQNqL3U/pmNxilLC3TwxVtVMQ+YyO9W6WEWs+iOHs4fwlVDuJ +v9U2eXJADAa9sm8mB+nIDt5fYv1NDEG3G70ylHSwJT5vxO2XGAadXTe999PB +xtEf/i9VKWi+xmuY2KWDP6HlXrA6BaUSs63m79XBe+8T/5bUoCCmpFjdNFwH +Z14+aElfQgFziWq3IEEHM4YiXVfpULBjqNudU6yDV6znntcxpOB9/Fa3EGkG +1idrF5rYUxA0yKUZyDLwf9tOF+xZRcG4/eSXLwoMtHH0rspZTcFciaTTu9QZ +KN9pumSuIwUG4TV3t/IYqCDx7HnlOgqObmcoObswMGGfonajBwWza/59LevO +QAFzZtCAJwVntSqv129mYMlOQdP0Jgpye/5avtKfgUJzzivmFgrq18cE88MZ +WOCeJOvnQ4GyzedGzhUGmjUWTx3bTUFW+v30jzkM1L+gUB8eQAFr8tQOMcXA +uWpb74QEUmB9d/E0rYiBr6WrWrcEUeDLdtZTf8LAzooCd60QCgqVi+LnfCKe +5XthVTgFq78eXP3BVBd/Wcsk6EdToGGoGT3HWhfve1W8+0k8FPK4mmOrizu6 +T0vWCyhIGVOwDnEgfpRwb1MMBa9/XtOb9tZFm03ez/3iKQiRfamkFqOLtr8m +aXJJFNg5Ra2zTtRFXg8v8gGxyllmgneyLo6WZxb4JFNQphQ6W5Shi2kN8cKC +FLJef8hNGhXp4rTJtCH3AgVpLHzt2KOLriXe4sp0CgID+tX3vdXFgdyf3qsu +UwA34/9K/qCLNxuch58TvzfoetH1lYzXfuhKWwYFeuYhNf6STDxyuda47goF +Mw6rzoiVYeIhiS8PMYuClocV1jflmHh17ZUlxcSHYF7xiCoTvbtUI9KuUlCz +Mpc6zmOi8ogwfnUOBanCNR9yjJh4J8Xkxy3infXftJ+aMXGHlvuqhbkUyDnx +0+cvZ2LalvDIdmJ31/aENDcmaqidD7AVUcC+cKS+fBMTq4v+6kwl/tlJk363 +lYnTbvGMQeLszXuP6wYw0VercWesmILPvnP2341k4rrBbWduU2Q/Mu3KK08x +0SmwvWOU+GvXcemGGCYm3ENV02sU/Os8mf4umYlP4/dEFRGPxJr0f77IxP+W +fb7xhXj0SbDBRAYTr3V2vmBcJ/ltNfhYjmJimMLB2cnEE2EMefWbTNR60q9a +Szx128dDp4iJS4uRMU78n27PF6syJm7ZYGTskk/BLx8Vc/tHTIzUijU+Rjyd +4RK1oZaJgn2OBmLiWQufKe96wcTStGStEWJJ5znbDrQxkZvavVD5BgVSsXb5 +kd1MfOGqIG1GPPvJ8e+xb5jYJEwddyWeM6McUt8zcc/ixv4Q4rlWkzFXPzJR +ylajLYF4XphJ640hJnZ7v60WEcveDta8P8LESfqxwnJiuc83d9ZMMFH9sHtm +M7GC7mDR859MPClojv9AvMCH8bNrFgt77zgfGSNWzPCx/yDNQl6u8R6pmxQs +7Mw8902Whceter0ViRcp9fT8WMBC+fTKjYuJlZ1UGNIqLHyrbeDIIFaNcdmn +qMHC1sCLK3nEao/PlC7WZuEuNy87I2L16QZJFoOF+WN9f5oQa1jOcV7GYaFk +zjkHU+LFoXaXwIDEH2pw/f27ZuHxvjUmLJwWT/j9/r/WpzKemyULHV8dDf89 +vjZj8uA2YOGHjkfJv+PTtplUB9qxkK/Juft7fvTLwbKHVrMwdr9Wz+/5Mzpu +up10YmFAxxyZ2cS6ioNZiS4s7D/tYDNOvp+5lvHpkjsLV4w7R/QTs4U+Jnle +LPz45mhVCzG3JjOy0IeF5gZ8uUpi3q/uuoc7WLh/4ZgfRWxwwGVLczAL9Q6M +6YUSG906Q70KY+H6EPkcd2LjwYZ/ByJIfJkn2pbEplvtBNOnWTg7JR/HSX6Y +pR9vmhtH5tN3610zsXl72R/KZ1locXo88QaxlaNJIZc0hZM/JuU9ia0FwVNm +V8h4s2Lf84htqm/arcglrpB+Ok3yFc0ZXR4FLAy0DC/JIF5JV5klqGYhR//H ++mpSDx997Cmrpyy033G4KJY4/upBp28NLNw9Y5ffeuIWzc40jzYWzls/Vt5F +6m2r2iVj7gAL20qE69tJfUq413W9/czCwoUW9ueIRamTkeeHWVjJ0D635nf9 +Knk++zXFwvSqadp9Ut/hcn9sb5rPxsBdLasi88j+r3WYF63Ixid9GoNc4qq4 +iNuWKmyslQnu7ST9Y7bMy585WmzsGc7r4hAnSWSkhhmzUTNixefybApuTGj+ +/YcHG+Ot3/ybRPqbs5lz0AsvNl6W7tNnEP8bGrnwtA8bXZOK60oyKbAYebN1 +KICNqeUrFrWT/lj7JWuy6hgbS+RBeZr01ze9NI5/LhvbNpxQlLhIQZS2S5P6 +NTay6qpWHSH9mLH15MHGm2xM8Sx/N5JK+vGrvhrzEjZKRgXxX58n/aMjd/O8 +ejbGWdmIrpD+rvgPI7HwKxt/5EQktSWSfvHVIK9+lI2VL+7H6xIPKlqVvZ9k +Y7K3J3UwgYJqd+dBVUkOvtB69KciOU/2vz+48oQqB4uef2AYkvOm9cffv9bb +ctBt9sHhRSfJemm2LApcyUFH5kr+miiyHravuNEOHNRP2F105AQFpwXDnqWu +HHTXLVZ/GUnyTUm9hLabg8+OHRo+dYSCC+yAvSNJHDQOsmdFhlJwam1o9PyL +HLQZYdmnHqBg377IDN0MDg4Wn0zN30/BquLkhk1iDr4cy294EUy+17ZM9/FD +Dp4MXJ4pRc5bT4/5b1Pec5B6XOyu5k/2V3hrnakpF+8/CP/n80YKrhfcrJm0 +5GJlmKnPaxeS3235puXAxf0aXiHPN1CwkUZp2K3m4nop8ezr5D4RX5Y1sH4z +F5vDAuc5k/vGj2/nju+J4mKrk+bAuhUUdHscKMx9zsU3JcHSZgYUXORYKCjt +4KFtrImMSIoCV4d/zlYE8NB+5Vu6rSTZj4BtC3bv42GRb21/9ywK4q7HKD4K +5+HjEknvuTMoOMbqXrg3nodxwkSex5QY/HQj1Bpu87DrrX1e8ZAYDJeW007+ +x8Nx4W6VA+1iqFe3NRk5p4e5LX6yitlieKF5iyF5QQ/3O5S1LcsSQzttseqi +y3oYd6uf5ZYphnfsySlTkR7my88NTUkTw4Tl7arDpXr4XvujaDpJDIxN2o6z ++vTwA9j9d/akGKLSZ/ouWKaPx9hv43LI/dhSo/qsfrs+vlB+HnptiRjkJLIP +bIsywAhp8b2fSSLQPLHE2oNhiL4WuMlgIA9kdDYXb3hqiOxfMfluBnmgx1e7 +ddDLCH2/b0iIP5QLIa8Va9bMMMb5T+/0qopy4OtIvOvqi8ZYckVxEb8rG+z1 +a9NW85Yht3+51/a52VAxYvVj/PkyrHVvMjXSuQpBXKPupu0mmB2UNpHnmAX8 +Ib9WDxlTDAhr1s58lAl/0lXXzs82xR2xQjnHuRnAPB57qNrMDI0f/Erz9E4H +9naLSp1uM/SXWmS27MIl2F6x89TdYHPc3q8k7zh2ASqzWv2GF1lgeQmvxscm +FUap6XH9Egt0VQhZcehyCvjq5MukrbXE3fofd6XQk2GYnWxa9M0SDW64NAsy +zsH93B/vvgutUGUqI+gTngVPu6VopWmN66YErjFjCfDHHsEDvSpr/Mgfq5t2 +j4NFcwNvr/2Lj3RNU5fL82Igd8XRw988+Pj4L/+U7JkxYHQ0cUXyZj56DNRF +5Y8LwelbYVvnNj4OB+nteNInhOj275O+gXw8u223k1qZECayI5cfPsFH5efy +5233CKHbKrlFlM9H+UO9r5KbBLAzNPfy6gI+pkd4Vnx9KoCxgnvbPxfysSwA +HJwqBKBI6xw3LOZj4XfV3Ur5AnCYs1ijvIqP54z2lZafEkBZq8ivpY2PR6QC +LiSZC2CN3H1eWCcfn5e6mKnpC6DTvm5MtYfE10yLytYRwGjpJ+GWt3wM+v5Z +vVxRALyrBjc/DvJxr4HTOsUv0VDWbRsW/4WPj67Uryroi4Y1C11A/xsfDe+P +fHLsjgZ/QWjTge98LHb9ZJj0NBpGq6LTVCb4KIwWtppXREPU1AXf0ik+mt7f +q917NxoUll3jev0k4y0TqCbmR0PmntLv09N8XNJz94F1djT8H9MQVl8= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.04819650337669226}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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.04819650337669226}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913408819317417`*^9, 3.99211688291086*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"957ebdd5-6efe-574c-ab58-3a77402eb4ba"] +}, 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[108]:=",ExpressionUUID->"eea9d904-4069-4649-bea7-08e03245dd6c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.804770507106392`*^-190\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 108, + 718, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323664732767*^9, 3.99170890340884*^9, + 3.9921168830411835`*^9}, + CellLabel-> + "During evaluation of \ +In[108]:=",ExpressionUUID->"9c774682-5788-804b-8579-bdd03ecfe2c7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.46437919628907`*^-194\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 108, + 719, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323664732767*^9, 3.99170890340884*^9, + 3.992116883067087*^9}, + CellLabel-> + "During evaluation of \ +In[108]:=",ExpressionUUID->"69ddd773-dbf4-2f4d-b9c0-fd747e7d1d09"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.214540310858515`*^-198\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 108, 720, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323664732767*^9, 3.99170890340884*^9, + 3.992116883090191*^9}, + CellLabel-> + "During evaluation of \ +In[108]:=",ExpressionUUID->"0f967daa-d6ce-9b48-bed7-96051489b90b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 108, 721, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323664732767*^9, 3.99170890340884*^9, + 3.992116883117201*^9}, + CellLabel-> + "During evaluation of \ +In[108]:=",ExpressionUUID->"af261e6f-3801-0644-aec0-488440ab726e"], + +Cell[BoxData["15.77237755632851`"], "Output", + CellChangeTimes->{3.9913236764669056`*^9, 3.991708909801548*^9, + 3.992116950640154*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"601c52aa-159a-7843-94b0-a82de69e3860"] +}, 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.9917953473881397`*^9, 3.9917953498651447`*^9}, + 3.991795392697935*^9}, + CellLabel-> + "In[109]:=",ExpressionUUID->"3915107a-86d9-0f46-b139-986db5ca6b3b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.033950725576728`*^-220\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 109, 722, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236765399036`*^9, 3.991708909851534*^9, + 3.9921169507481194`*^9}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"c954441f-1ae2-e949-8a0b-96abea946cec"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.134147348497568`*^-226\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 109, 723, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236765399036`*^9, 3.991708909851534*^9, + 3.9921169507682323`*^9}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"f1ef4cc8-0365-f54e-b9df-4f88dae2b79a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6775505930604716`*^-231\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 109, 724, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236765399036`*^9, 3.991708909851534*^9, + 3.9921169507841187`*^9}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"1134f2df-f8fa-e343-b191-80e4cc21e976"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 109, 725, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236765399036`*^9, 3.991708909851534*^9, + 3.992116950800247*^9}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"8f6b057c-e266-b145-ada4-59fddf19b8b2"], + +Cell[BoxData["0.974284297176629`"], "Output", + CellChangeTimes->{3.9913236883162384`*^9, 3.991708915455509*^9, + 3.9921169618144894`*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"83f6ae82-5313-8d40-8220-60be1721a92d"] +}, 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.991795355482418*^9, 3.991795359037939*^9}}, + CellLabel-> + "In[110]:=",ExpressionUUID->"f3705611-962a-7d49-8494-287e0d1eefa8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.033950725576728`*^-220\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 110, 726, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132368839011*^9, 3.9917089154944935`*^9, + 3.9921169619365234`*^9}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"c496535e-9262-0143-8dd7-9fc662e3121a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.134147348497568`*^-226\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 110, 727, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132368839011*^9, 3.9917089154944935`*^9, + 3.992116961977518*^9}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"3c91d766-7141-ff4e-bd5f-c02cc47fdaf5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6775505930604716`*^-231\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 110, 728, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132368839011*^9, 3.9917089154944935`*^9, + 3.992116962002531*^9}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"17a235ab-80c1-3f42-90be-45a84f2dd5ff"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 110, 729, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132368839011*^9, 3.9917089154944935`*^9, + 3.992116962019512*^9}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"c9b71057-d464-4441-b8ef-d57aab133873"], + +Cell[BoxData["32.60096686486539`"], "Output", + CellChangeTimes->{3.9913236988049507`*^9, 3.9917089191072826`*^9, + 3.9921169724725094`*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"f1ec9105-d252-e647-b580-2a785267bf39"] +}, 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.991795365232689*^9, 3.991795367348419*^9}}, + CellLabel-> + "In[111]:=",ExpressionUUID->"1c2bb25c-a24b-4143-a03c-8699409c5ef4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.033950725576728`*^-220\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 111, 730, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698915848*^9, 3.991708919139282*^9, + 3.9921169725765095`*^9}, + CellLabel-> + "During evaluation of \ +In[111]:=",ExpressionUUID->"5dab5525-8323-124e-b334-b1da729865b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.134147348497568`*^-226\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 111, 731, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698915848*^9, 3.991708919139282*^9, + 3.9921169726085167`*^9}, + CellLabel-> + "During evaluation of \ +In[111]:=",ExpressionUUID->"5b9d825c-d440-4a41-88eb-ae4641a286b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6775505930604716`*^-231\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 111, 732, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698915848*^9, 3.991708919139282*^9, + 3.992116972633415*^9}, + CellLabel-> + "During evaluation of \ +In[111]:=",ExpressionUUID->"2c51dc73-9615-6440-a875-a3a3589b1191"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 111, 733, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698915848*^9, 3.991708919139282*^9, + 3.992116972654415*^9}, + CellLabel-> + "During evaluation of \ +In[111]:=",ExpressionUUID->"0e600335-f46f-dd4b-bb32-66168281687d"], + +Cell[BoxData["24.42227423084205`"], "Output", + CellChangeTimes->{3.991323706795576*^9, 3.991708921519884*^9, + 3.992116980895174*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"d0dfcaf9-b4a6-9a49-a5c2-80eb66910cbd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991795377777033*^9, 3.9917953861610203`*^9}}, + CellLabel-> + "In[112]:=",ExpressionUUID->"df5a49d1-7ffc-9d41-9de9-b2cb4ed5c458"], + +Cell[BoxData["0.03452847607245557`"], "Output", + CellChangeTimes->{3.991323706858589*^9, 3.9917089215598965`*^9, + 3.9921169809826984`*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"fb7fbbe4-1127-7e41-9579-45d4b66bff88"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991795400313652*^9, 3.991795402535782*^9}, + 3.9919235486175213`*^9}, + CellLabel-> + "In[113]:=",ExpressionUUID->"f1e753e6-7de9-0b47-aa25-47e49d9ceac1"], + +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[114]:=",ExpressionUUID->"24c8f2e4-3fba-8b49-a53c-9297f14cb47a"], + +Cell[BoxData["20.232611751799567`"], "Output", + CellChangeTimes->{3.991323706886154*^9, 3.9917089973478775`*^9, + 3.992116981026932*^9}, + CellLabel-> + "Out[114]=",ExpressionUUID->"e1ece8f9-6eb9-1f45-b23d-59a2aa5e3284"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[115]:=",ExpressionUUID->"56d70fe5-9e2b-c64e-bfc2-fde134e22b5d"], + +Cell[BoxData["2.078701539535334`"], "Output", + CellChangeTimes->{3.9913237069236546`*^9, 3.9917089973924427`*^9, + 3.992116981059923*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"abdee6f3-9cc8-6749-90c7-00d677a0cd75"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[116]:=",ExpressionUUID->"4acc66ff-efd9-9749-a32c-ab2aed359d56"], + +Cell[BoxData["42.05756119728645`"], "Output", + CellChangeTimes->{3.9913237069753113`*^9, 3.99170899744343*^9, + 3.9921169811009274`*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"a9404d47-1f6e-f144-b017-d6bc01fdc1f3"] +}, 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[117]:=",ExpressionUUID->"b77d1393-1706-0344-94ba-b60790e869c9"], + +Cell[BoxData["0.007069898460535921`"], "Output", + CellChangeTimes->{3.991323707000412*^9, 3.991708997465433*^9, + 3.992116981136923*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"c9345d33-d0e8-ef4d-bbbd-a32a53ec0027"] +}, 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[118]:=",ExpressionUUID->"d3dc886c-76ef-e140-8bf7-ae2b35b15037"], + +Cell[BoxData["10.539945190547895`"], "Output", + CellChangeTimes->{3.991323707203314*^9, 3.991708997556095*^9, + 3.992116981359251*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"9fd93fa4-1a45-2d46-baf6-43673993c68c"] +}, 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[119]:=",ExpressionUUID->"a2a617e0-a59a-4147-bc6f-17a0446bc938"], + +Cell[BoxData["0.00967738149165865`"], "Output", + CellChangeTimes->{3.9913237072224197`*^9, 3.9917089975825768`*^9, + 3.992116981402214*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"271ed5f0-1bf6-b240-ad09-a7d7a6fd4925"] +}, 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[120]:=",ExpressionUUID->"764ea9ee-2dee-8949-964f-92b7fcc0b4f1"], + +Cell[BoxData["9.008780591802244`"], "Output", + CellChangeTimes->{3.991323707432623*^9, 3.991708997674572*^9, + 3.9921169816247616`*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"bbe1c22a-c3b4-094f-a0bd-8ce8b27946df"] +}, 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[121]:=",ExpressionUUID->"8de6527c-f379-114f-be34-ffaf646fc19c"], + +Cell[BoxData["0.4398388669954015`"], "Output", + CellChangeTimes->{3.9913237074497375`*^9, 3.9917089977023544`*^9, + 3.9921169816564484`*^9}, + CellLabel-> + "Out[121]=",ExpressionUUID->"37bf5cb3-ee2c-1a43-a40a-7d93e05dbe06"] +}, 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[122]:=",ExpressionUUID->"bcbbe365-5317-404f-8cca-b17046887210"], + +Cell[BoxData["0.5601611330045986`"], "Output", + CellChangeTimes->{3.991323707467621*^9, 3.991708997725395*^9, + 3.992116981685461*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"253f7a71-1d3d-2341-a5d8-affd53b97230"] +}, 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[123]:=",ExpressionUUID->"c57327ef-c920-754d-8029-af14560ebe8f"], + +Cell[BoxData["0.24638063807560304`"], "Output", + CellChangeTimes->{3.991323707488617*^9, 3.9917089977477455`*^9, + 3.99211698171146*^9}, + CellLabel-> + "Out[123]=",ExpressionUUID->"8c2ae604-040c-b546-bded-822deceaedd2"] +}, 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.99179485681155*^9}, + CellLabel-> + "In[124]:=",ExpressionUUID->"670d91c8-ce08-f444-b144-138ebae0f868"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.428510932280065`*^-211\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 124, 734, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237075117207`*^9, 3.991708997774729*^9, + 3.9921169817604485`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"c6ef7fd9-6659-c845-a4a0-23cf645dfe56"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.771728362398662`*^-216\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 124, 735, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237075117207`*^9, 3.991708997774729*^9, + 3.992116981782463*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"b8530b1b-9735-eb4c-ade3-fc61db7ba117"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2925704177006526`*^-221\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 124, 736, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237075117207`*^9, 3.991708997774729*^9, + 3.992116981799448*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"1096c8b6-8a12-6a4c-847a-ffca000b212d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 124, 737, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237075117207`*^9, 3.991708997774729*^9, + 3.992116981812462*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"0a7ccc1f-e145-5243-8f45-e174338794e1"], + +Cell[BoxData["10.539945190547904`"], "Output", + CellChangeTimes->{3.9913237161181736`*^9, 3.991709001238739*^9, + 3.992116990153946*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"e7d7935a-cacf-3745-8aec-827baa1e4ff9"] +}, 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.99179697882374*^9}, + CellLabel-> + "In[125]:=",ExpressionUUID->"862c274e-f293-6a41-8f4f-719ed57da8ce"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.428510932280065`*^-211\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 125, 738, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237161871567`*^9, 3.991709001285738*^9, + 3.9921169902519474`*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"96eef200-db2a-d947-b64d-e6061d33b314"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.771728362398662`*^-216\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 125, 739, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237161871567`*^9, 3.991709001285738*^9, + 3.99211699028985*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"ba70f34a-96f6-0349-b7e1-61ee7d1f7569"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2925704177006526`*^-221\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 125, 740, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237161871567`*^9, 3.991709001285738*^9, + 3.9921169903159714`*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"ef8c1fdd-3747-e647-af3b-7c195cfc008b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 125, 741, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237161871567`*^9, 3.991709001285738*^9, + 3.9921169903349457`*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"ecf9da16-a140-2a4b-ba11-a3dd1e226561"], + +Cell[BoxData["9.00878059180224`"], "Output", + CellChangeTimes->{3.991323724852854*^9, 3.9917090047631493`*^9, + 3.9921169986604404`*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"a30f483c-d4a1-0045-ba4c-615ca77e7054"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.99179699111117*^9, 3.991797003874716*^9}}, + CellLabel-> + "In[126]:=",ExpressionUUID->"f5360edc-957d-9f48-b8b4-746fa181d4a5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.303372314419356`*^-275\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 126, + 742, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991324246104725*^9, 3.992116999048628*^9}, + CellLabel-> + "During evaluation of \ +In[126]:=",ExpressionUUID->"6ab7f9be-c01e-824a-ab42-e7edd2fa2730"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1330092679924926`*^-286\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 126, + 743, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991324246104725*^9, 3.992116999079529*^9}, + CellLabel-> + "During evaluation of \ +In[126]:=",ExpressionUUID->"ed2dd856-02ec-af41-aef0-0d47358603b2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3798329874074323`*^-298\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 126, 744, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991324246104725*^9, 3.99211699909663*^9}, + CellLabel-> + "During evaluation of \ +In[126]:=",ExpressionUUID->"683d9bfd-9f8d-3d45-942b-a43690671a14"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 126, 745, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991324246104725*^9, 3.992116999117628*^9}, + CellLabel-> + "During evaluation of \ +In[126]:=",ExpressionUUID->"2c92984f-ce76-8642-85be-b2b7d0aed04f"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4VO0bB3BLUZKQhMGcM4SUdURUnjuVSJZelCLLhGRtobeyVNooZGTL +kn1JtjlJ2ZLtFYWypVKJUKLFli1+z++vuT7XXHPNOc/y/d4ky+cfFx4uLq4V +3Fxc//9MDmLxaTgn6p8S0na+37RVv76D2H+IOI/K3XQlxyrF0dJ/T68QRCi6 +l3fOurxSASU/C6cvJ+6iT16M5qRKbeS5w8/rD/0+eidQZh9YaYg65t2if9HL +0JXketFNlQcR//t+xTF6EzolXJD8p9wVpTWnnPpOf4uGq813bik9iwqLQt97 +qo4giT9m3x5G30DH0eu7o6cnkAfZu9TtzkbegxsHSgpnkZGG7m+79lgkQF5V +/LSVC4qaMiSGryahCOEXymmOvCBmrn+mtD0Vsd5bVfO+5INkkZYNqRcy0KmG +qywfRQGYk9CPWjWehTgnBS0ljFfD0SH7W9q0XJTm7zGifkgYzHaM+YYY5aHg +lIUDk6MiYLKqIF1JIR9xdfRB5YW1sDbR3HHnqwKk4Ot6zkp5HXie1NQL8CpC +X6biDq6qEoe7uy4c7nIoRuk7mWc+1IlD8PdnthdZxcghvPV2UbM4WOjk5ii6 +FKN38subLHvEQX/zHO2MezF6bXl6W9KEOEiSCr5TvsXoKWc/oaK8HjrbTrTl +hBajOC/uEbO49WDC65xTyylG+wbdA6NOSQBnTdKlloViZBgol7/7nARktAz8 +WFwsRgbret9NB0mAkZL6Q1VuDtLbY7rVNkwCbubX7QhdzkHKWWoTcjkSUJnj +cERZiINWuUy6PeqVgJIT8YXSdA56+SXQqmevJGiVHy2vQRxk9iVyk6ysFJxV +K5heHYC/3/Sl005eCiyYwealgRxkckYnKFFZCh7uidM+epGDjHg+vpLQkYLc +w7lF2cEcZEBsOrvWQgo8PC+ZKYVy0Ba7hmcrgqVAvN3faCiGg6Q7Z60nBqXg +Yvc/V0wLOSiBZrqkMSoFeul3yhuLOEjyWGruyXEpuOKUexk4HCQ+bjg/tigF +3n/DqlVKOEhYODr163oarBJZsTBdxkG8+1W/fzCmgYPY7eu7GzhopI516XkB +DX4m87BevuMgOrvHPaKEBv3hi7VavRxkZW9mbVVBg+KQVL/EDxz0dEZXue85 +DSR/7Xl1rI+DolREOv8M0CBzTs2+b5CDtsVVKypKSUN+ADkd8ouDwtyl265d +l4Y1+qW/4pdRqEYnqswkXBqea8nXvFhOoellKzJFoqXhU5bK8AIfhRxTJs4l +p0lDoFW61pGVFNLqbGY8qpQGDlPwLZcQhT7sOH/2y7g02CpfcFsUp5CqSLfM +LgcZCB7d9bBCkUJD4UPBMS4yMG1zMitXiULJAn+Ghz1kYFnVSaXojRQSXCZB +hZ2TAcZq/8+umyg0Mn3YsJstA1y7U+TmVSmU1fvB+0S9DDznX7Hi0xYK2R3+ +0VHRLAO0Jx4Sj7QpJNa9uFXotQzsTftREapDoeA2Ou/DDzIwsuF7paoufv5a +p7iFaRnoWDWTd3w7haRzB6tvb5SFl7uqDscYUKhTflq+X00WggIcC612UehW +Gt9NLW1ZKGElxovuptBcgqLVWwNZ+OkZoHpzD4V6wk98ZdjJwo24085uRhS6 +c2ZMuDRCFvYmzsh8NqWQAJpy6p2QherfudP1hyh0bqfSitI5WZjQEgw4ZoPX +Y5dt4W1uOlRF29hzHaZQrVHNnMEaOggZ3NXbcoRCF/4Jv3NfmQ5xesjmlh2F +vrtsaDjrRAeaDO/Rb44UOuJm42HhRgdpJeUWLycKPXe/JaLsQ4e2H3z3fmFn ++vw++iGADjs5vazfLLxe56umd8XTYfZq/8VPzhR6GWatJNJGh+p0O+TtRiG9 +2yGtI1106Kx72tODncuu8K3vpcPLbb3dO09Q6GosWfPvCB3W7PiHZ407hWRf +TW/+yUNA6ZSfTKwHhawPCHPZ8RFAlS0MTGCHtW/seL6SgPCQgyIWnnj9Ou3O +pwsTYKt1J43Xi0Ldb2sbrGUJWK+en3LIm0KrbXvja0kCVujsyczF3t075aG2 +gYCAvG6RGWzqo5Loys0E3A2bVYryoVDEQIR9pS4BVdPfzB6epFCDc67Gxh0E +PEz9mf4He2GwZlksENAfTbD0TlHI/etkns9eAvKfkXIV2HvHjvxhWBNwOPDC +4/unKXRP7ErHRRsChJQyPPuwJ7c9KOq1JUC9sjJ53RkKpd6cPx7LIsB6tNvX +H3uaI7d7woUAV0UWLR/b9K0JYXGCgMHQCf332HOKST0rTxIgsx4WtXwpZGFe +X+J6hgD9YzcSHLCzz45G1p0lwENyrCQE27Jhu3FgIAGB4qou3dh5o84b3l3C +/78YOz+HzSUWzq1zlQArtq6IrB+F8lkfyn7dxM/Pb1zhgM1zc3msaQQB5/n3 +WARh23BUTuexCWCNxbskYhf2WJvxxxDwvipsvhR7OVeQsnM8AQ35bqKvse0U +s/lqEgngk/HL+4ZNmbX2y6QQ4JI6V8d1lkL2ybKJb7LwfotEByhjl9Qb/qt1 +n4BpQT3pHdgCo96W7HwC6rYE6pthO66NU/tRhPeXP2fgKPZjvepVJg/x+ytz +C3piC7GGh3NKCWg82/X4HLZz6Jr6ZeUEnB73Gr6CXV6sk+pURcDq12KJ4djC +PQ4BT58RYOcr1hGD7bp0w4ZWT4Co5+PbSdiVCsVa5xoJuOdn9DoNW9SsR7ir +mYCNAaLxWdgn/LjGNFoJ8I93/JKD/SxJqSniNQHdwkGludji9RZZ3zsJGLYp +Ffq/Pb+fu2zUg8+ziPXY/39fK5p2NOs9AV4rs/9Jx5bQa9Ll+YTXe9uUfjK2 +t9PvdQ79BGx7FUHFYteHSI5XDBKwSqa6IAKbVryzVeIbAeKZ7erXsE+/OZHn +N0qAuZj49gvYzxfZ19t/Yht3t3lhyyqUs9QmCNhu4jjqgO1r2q8fNk1AuRl3 +lAV2s68A7dssAfUlfDUIm0jS/LPnLwE5Ak/Pq2CfrTvSkc5FQudKv0pJ7JaR +4KIlXhK64s6HLsOWF31wy46fhC3/SX4ew/t9QbfjeJkACaz2jLoubIUQOeKM +CAmPrIqU07ADikwW2sRIOEy0Fl3Fbu8+07NZgoQrviI1rtgXN9RHDsmSkIoM +QhWwe2qduY9sJiEz5u+TaHx+f+18JxWoRoJTW+kxH2z+GnOtVE0SclMmXxph +a1frHR/aSsITc97eP/j+RFcIt5zeQ4K/wN0JQ+x8vetDMUYkhGim312PXVc2 +v/TEhATmix1cw/i+jj8e0lw6QELy3S3CwdjmJZXxt+xJ+JvhY3Af33dXpiZV +6ESCt4flpA92EJXz4rUzCWNen9y2YOcXRy2u9yCBfvRvQiXOD4ECN+fMf0kI +0i9RrsR581+WmHpVJAlssQjmJZxfH+VvGvfdIWFevVaNiT2VscTijSNBzOnz ++Becd/LpIzHGyST4vJ9q3Y0dfO/ZfNd9ErT71gxN4fzUj/Ns/FFLgvgv1RYZ +nLcHxfv7RP4j4du6epuq4xTyijk0p9VEghHKKrLFTrpjoOLfRkLwu+PPol1x +vtyWuMPfS8K/GuV+MzjPH4XU2xNT+P3VDnhfx/mfu++FxI0ZEg4lfV2+EjtB +sL19bB4/j+CYzk3cH5ciPxlW8DDA71CxZ4gDhfbHz6keFGZAYKKFnO9RCvXn +qC/d2sSA4f2T4itxP3Wd0CkbV2VAz7DaZT/cX8836Z85rMkASuXxrT7cbwVF +JsMKugxQD9hwhTqI++6xa1uNIfbJ8eWGVvi+Nyal/HFiwMdWs6JN5hTiDs04 +bO/CALPvqibBZjhv9+WtbXBjgLeEffgb3J9vWx/fiPJhwOYjanxB+3Gfdbf7 +qAQyIE3ItLPcGPfV0Ao4Fs8AlUHW1knc167L/fpaWxnQ6GPZ7Yb7X4re9Gb+ +NQNy5D3XZuD5oHWrTJtSFwPs0+dVevH8oO3ZUBX8ngEiKU0L+7QoxNexLlH7 +KwPGWRoCNA08b6SWWt/jlgPh5PnN15Qp9GXbTLOXlhzYVN/5cEWaQvHW+2sT +dOTgy4KrRwINr59PalmjnhyUG2t+LpLC+ZhulEvulAPHNfzX30jg/lx591qX +qRyIf+N/KrkOn483urDjuBys403TdF9NoWOn/R8JJsiBYNj2sB1/OUhb8+Oj +jclywGyWXa6zwEEC41BqmCoHHgWG/mrzHFR8iu/xpWw5eEc+dJSZ5aCFk+wn +k5Qc7G0Wkxyb5KBYn5yK3hdyIPR8IMRulIOaPDtq8v/KwW8V16JAPE+qHd/U +ut9JHqT6OtLeP+SgjyfoPgXO8mB5dKuXP4XnQ8+1wkJu8qDiSpBSeH79dmr+ +QJu3PAwwtXdb4Xk3I+BF14EAefh6JOFKRS4HrY/y+HAwTh7UnW4ZHUzmoKXK +B6OOLfIglF41U32Ng9pEN6/y090AV59suBNgyUEVhcGJm3kVoLeV88byezHy +51a2ePlBAYp2m9k88CxGAr0XjLxLFOFFKf2N9fMiNJhNRqcEKMFk9h4xxceF +KFpJclmZ9UbY4sJwFwkqQJEJro1OhDJkW/jVC5vmoyPRR1sFh5Wh4R26Oyjx +AM3szppNeboJSvvC+DXq7qOBQYNztTc2Q4WzWqr8pVyUvkOD1uKkAqKvKENJ +IgcVXPMTOa6iCis20jR5erLQDetjJrxTqsC4cfnufHwm2tKbdv9Gixqk/WtL +/tqVgeI3Jha0mKhDE8vdXkgwHV18Fh5vUqYOv+dpAo21qciUZp3VLK8BvSK8 +oxFrU9BO70ZbkVAN4HlpJqTZl4RSpFnyL6c04OTL5obGmAQkX5cTa2arCVzu +Uh4lN+NRpEqtcvtTTXBQiRpqTYtFrhPLXjcpM8H/KUP3Z140YnHGidDbTHiX +q1Wz9DMKeQZbLuxjM8HTMZvn0tco5GdZ8kbwDhNOhRsb8HyOQiFTfhGRsUzY +bq1eKdgehQp1Z+fjkplQsuVZgm5JFJqtWerOfsCEPwcaeSfORaHIdsHw+kYm ++F5Xu/CFNwolZHi5XW9iwn4J4cuZC2yU4du6y+gFE4wN3l5znWKjUvHIuRet +TMgJWh76a4iNeo+sdevoYoLoYIevdDMbKQ5I7uofYALtZ9bbjkg2Ui+5IJs5 +yATB1szyh6FspHft/azLMBM6YobiY4LZaL9icvG3ESaUCS3ud/Blo9MehOzv +30yI/D3DFrBho4Dtl2epCSbszQ63nbNgo2ur+zt9p5hgbjpBjhqzUXxRxq2Z +GSZUnRjP7NrGRumXlh0vn2NCSKSHU4sWGz044GIQsMCE54J+Uo0qbFTC+E9G +f5EJmWN/22oV2OjphMLs0hITBn9PXn5GZ6P/AUGHj7Y= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VO0bB3BLUZKQhMGcM4SUdURUnjuVSJZelCLLhGRtobeyVNooZGTL +kn1JtjlJ2ZLtFYWypVKJUKLFli1+z++vuT7XXHPNOc/y/d4ky+cfFx4uLq4V +3Fxc//9MDmLxaTgn6p8S0na+37RVv76D2H+IOI/K3XQlxyrF0dJ/T68QRCi6 +l3fOurxSASU/C6cvJ+6iT16M5qRKbeS5w8/rD/0+eidQZh9YaYg65t2if9HL +0JXketFNlQcR//t+xTF6EzolXJD8p9wVpTWnnPpOf4uGq813bik9iwqLQt97 +qo4giT9m3x5G30DH0eu7o6cnkAfZu9TtzkbegxsHSgpnkZGG7m+79lgkQF5V +/LSVC4qaMiSGryahCOEXymmOvCBmrn+mtD0Vsd5bVfO+5INkkZYNqRcy0KmG +qywfRQGYk9CPWjWehTgnBS0ljFfD0SH7W9q0XJTm7zGifkgYzHaM+YYY5aHg +lIUDk6MiYLKqIF1JIR9xdfRB5YW1sDbR3HHnqwKk4Ot6zkp5HXie1NQL8CpC +X6biDq6qEoe7uy4c7nIoRuk7mWc+1IlD8PdnthdZxcghvPV2UbM4WOjk5ii6 +FKN38subLHvEQX/zHO2MezF6bXl6W9KEOEiSCr5TvsXoKWc/oaK8HjrbTrTl +hBajOC/uEbO49WDC65xTyylG+wbdA6NOSQBnTdKlloViZBgol7/7nARktAz8 +WFwsRgbret9NB0mAkZL6Q1VuDtLbY7rVNkwCbubX7QhdzkHKWWoTcjkSUJnj +cERZiINWuUy6PeqVgJIT8YXSdA56+SXQqmevJGiVHy2vQRxk9iVyk6ysFJxV +K5heHYC/3/Sl005eCiyYwealgRxkckYnKFFZCh7uidM+epGDjHg+vpLQkYLc +w7lF2cEcZEBsOrvWQgo8PC+ZKYVy0Ba7hmcrgqVAvN3faCiGg6Q7Z60nBqXg +Yvc/V0wLOSiBZrqkMSoFeul3yhuLOEjyWGruyXEpuOKUexk4HCQ+bjg/tigF +3n/DqlVKOEhYODr163oarBJZsTBdxkG8+1W/fzCmgYPY7eu7GzhopI516XkB +DX4m87BevuMgOrvHPaKEBv3hi7VavRxkZW9mbVVBg+KQVL/EDxz0dEZXue85 +DSR/7Xl1rI+DolREOv8M0CBzTs2+b5CDtsVVKypKSUN+ADkd8ouDwtyl265d +l4Y1+qW/4pdRqEYnqswkXBqea8nXvFhOoellKzJFoqXhU5bK8AIfhRxTJs4l +p0lDoFW61pGVFNLqbGY8qpQGDlPwLZcQhT7sOH/2y7g02CpfcFsUp5CqSLfM +LgcZCB7d9bBCkUJD4UPBMS4yMG1zMitXiULJAn+Ghz1kYFnVSaXojRQSXCZB +hZ2TAcZq/8+umyg0Mn3YsJstA1y7U+TmVSmU1fvB+0S9DDznX7Hi0xYK2R3+ +0VHRLAO0Jx4Sj7QpJNa9uFXotQzsTftREapDoeA2Ou/DDzIwsuF7paoufv5a +p7iFaRnoWDWTd3w7haRzB6tvb5SFl7uqDscYUKhTflq+X00WggIcC612UehW +Gt9NLW1ZKGElxovuptBcgqLVWwNZ+OkZoHpzD4V6wk98ZdjJwo24085uRhS6 +c2ZMuDRCFvYmzsh8NqWQAJpy6p2QherfudP1hyh0bqfSitI5WZjQEgw4ZoPX +Y5dt4W1uOlRF29hzHaZQrVHNnMEaOggZ3NXbcoRCF/4Jv3NfmQ5xesjmlh2F +vrtsaDjrRAeaDO/Rb44UOuJm42HhRgdpJeUWLycKPXe/JaLsQ4e2H3z3fmFn ++vw++iGADjs5vazfLLxe56umd8XTYfZq/8VPzhR6GWatJNJGh+p0O+TtRiG9 +2yGtI1106Kx72tODncuu8K3vpcPLbb3dO09Q6GosWfPvCB3W7PiHZ407hWRf +TW/+yUNA6ZSfTKwHhawPCHPZ8RFAlS0MTGCHtW/seL6SgPCQgyIWnnj9Ou3O +pwsTYKt1J43Xi0Ldb2sbrGUJWK+en3LIm0KrbXvja0kCVujsyczF3t075aG2 +gYCAvG6RGWzqo5Loys0E3A2bVYryoVDEQIR9pS4BVdPfzB6epFCDc67Gxh0E +PEz9mf4He2GwZlksENAfTbD0TlHI/etkns9eAvKfkXIV2HvHjvxhWBNwOPDC +4/unKXRP7ErHRRsChJQyPPuwJ7c9KOq1JUC9sjJ53RkKpd6cPx7LIsB6tNvX +H3uaI7d7woUAV0UWLR/b9K0JYXGCgMHQCf332HOKST0rTxIgsx4WtXwpZGFe +X+J6hgD9YzcSHLCzz45G1p0lwENyrCQE27Jhu3FgIAGB4qou3dh5o84b3l3C +/78YOz+HzSUWzq1zlQArtq6IrB+F8lkfyn7dxM/Pb1zhgM1zc3msaQQB5/n3 +WARh23BUTuexCWCNxbskYhf2WJvxxxDwvipsvhR7OVeQsnM8AQ35bqKvse0U +s/lqEgngk/HL+4ZNmbX2y6QQ4JI6V8d1lkL2ybKJb7LwfotEByhjl9Qb/qt1 +n4BpQT3pHdgCo96W7HwC6rYE6pthO66NU/tRhPeXP2fgKPZjvepVJg/x+ytz +C3piC7GGh3NKCWg82/X4HLZz6Jr6ZeUEnB73Gr6CXV6sk+pURcDq12KJ4djC +PQ4BT58RYOcr1hGD7bp0w4ZWT4Co5+PbSdiVCsVa5xoJuOdn9DoNW9SsR7ir +mYCNAaLxWdgn/LjGNFoJ8I93/JKD/SxJqSniNQHdwkGludji9RZZ3zsJGLYp +Ffq/Pb+fu2zUg8+ziPXY/39fK5p2NOs9AV4rs/9Jx5bQa9Ll+YTXe9uUfjK2 +t9PvdQ79BGx7FUHFYteHSI5XDBKwSqa6IAKbVryzVeIbAeKZ7erXsE+/OZHn +N0qAuZj49gvYzxfZ19t/Yht3t3lhyyqUs9QmCNhu4jjqgO1r2q8fNk1AuRl3 +lAV2s68A7dssAfUlfDUIm0jS/LPnLwE5Ak/Pq2CfrTvSkc5FQudKv0pJ7JaR +4KIlXhK64s6HLsOWF31wy46fhC3/SX4ew/t9QbfjeJkACaz2jLoubIUQOeKM +CAmPrIqU07ADikwW2sRIOEy0Fl3Fbu8+07NZgoQrviI1rtgXN9RHDsmSkIoM +QhWwe2qduY9sJiEz5u+TaHx+f+18JxWoRoJTW+kxH2z+GnOtVE0SclMmXxph +a1frHR/aSsITc97eP/j+RFcIt5zeQ4K/wN0JQ+x8vetDMUYkhGim312PXVc2 +v/TEhATmix1cw/i+jj8e0lw6QELy3S3CwdjmJZXxt+xJ+JvhY3Af33dXpiZV +6ESCt4flpA92EJXz4rUzCWNen9y2YOcXRy2u9yCBfvRvQiXOD4ECN+fMf0kI +0i9RrsR581+WmHpVJAlssQjmJZxfH+VvGvfdIWFevVaNiT2VscTijSNBzOnz ++Becd/LpIzHGyST4vJ9q3Y0dfO/ZfNd9ErT71gxN4fzUj/Ns/FFLgvgv1RYZ +nLcHxfv7RP4j4du6epuq4xTyijk0p9VEghHKKrLFTrpjoOLfRkLwu+PPol1x +vtyWuMPfS8K/GuV+MzjPH4XU2xNT+P3VDnhfx/mfu++FxI0ZEg4lfV2+EjtB +sL19bB4/j+CYzk3cH5ciPxlW8DDA71CxZ4gDhfbHz6keFGZAYKKFnO9RCvXn +qC/d2sSA4f2T4itxP3Wd0CkbV2VAz7DaZT/cX8836Z85rMkASuXxrT7cbwVF +JsMKugxQD9hwhTqI++6xa1uNIfbJ8eWGVvi+Nyal/HFiwMdWs6JN5hTiDs04 +bO/CALPvqibBZjhv9+WtbXBjgLeEffgb3J9vWx/fiPJhwOYjanxB+3Gfdbf7 +qAQyIE3ItLPcGPfV0Ao4Fs8AlUHW1knc167L/fpaWxnQ6GPZ7Yb7X4re9Gb+ +NQNy5D3XZuD5oHWrTJtSFwPs0+dVevH8oO3ZUBX8ngEiKU0L+7QoxNexLlH7 +KwPGWRoCNA08b6SWWt/jlgPh5PnN15Qp9GXbTLOXlhzYVN/5cEWaQvHW+2sT +dOTgy4KrRwINr59PalmjnhyUG2t+LpLC+ZhulEvulAPHNfzX30jg/lx591qX +qRyIf+N/KrkOn483urDjuBys403TdF9NoWOn/R8JJsiBYNj2sB1/OUhb8+Oj +jclywGyWXa6zwEEC41BqmCoHHgWG/mrzHFR8iu/xpWw5eEc+dJSZ5aCFk+wn +k5Qc7G0Wkxyb5KBYn5yK3hdyIPR8IMRulIOaPDtq8v/KwW8V16JAPE+qHd/U +ut9JHqT6OtLeP+SgjyfoPgXO8mB5dKuXP4XnQ8+1wkJu8qDiSpBSeH79dmr+ +QJu3PAwwtXdb4Xk3I+BF14EAefh6JOFKRS4HrY/y+HAwTh7UnW4ZHUzmoKXK +B6OOLfIglF41U32Ng9pEN6/y090AV59suBNgyUEVhcGJm3kVoLeV88byezHy +51a2ePlBAYp2m9k88CxGAr0XjLxLFOFFKf2N9fMiNJhNRqcEKMFk9h4xxceF +KFpJclmZ9UbY4sJwFwkqQJEJro1OhDJkW/jVC5vmoyPRR1sFh5Wh4R26Oyjx +AM3szppNeboJSvvC+DXq7qOBQYNztTc2Q4WzWqr8pVyUvkOD1uKkAqKvKENJ +IgcVXPMTOa6iCis20jR5erLQDetjJrxTqsC4cfnufHwm2tKbdv9Gixqk/WtL +/tqVgeI3Jha0mKhDE8vdXkgwHV18Fh5vUqYOv+dpAo21qciUZp3VLK8BvSK8 +oxFrU9BO70ZbkVAN4HlpJqTZl4RSpFnyL6c04OTL5obGmAQkX5cTa2arCVzu +Uh4lN+NRpEqtcvtTTXBQiRpqTYtFrhPLXjcpM8H/KUP3Z140YnHGidDbTHiX +q1Wz9DMKeQZbLuxjM8HTMZvn0tco5GdZ8kbwDhNOhRsb8HyOQiFTfhGRsUzY +bq1eKdgehQp1Z+fjkplQsuVZgm5JFJqtWerOfsCEPwcaeSfORaHIdsHw+kYm ++F5Xu/CFNwolZHi5XW9iwn4J4cuZC2yU4du6y+gFE4wN3l5znWKjUvHIuRet +TMgJWh76a4iNeo+sdevoYoLoYIevdDMbKQ5I7uofYALtZ9bbjkg2Ui+5IJs5 +yATB1szyh6FspHft/azLMBM6YobiY4LZaL9icvG3ESaUCS3ud/Blo9MehOzv +30yI/D3DFrBho4Dtl2epCSbszQ63nbNgo2ur+zt9p5hgbjpBjhqzUXxRxq2Z +GSZUnRjP7NrGRumXlh0vn2NCSKSHU4sWGz044GIQsMCE54J+Uo0qbFTC+E9G +f5EJmWN/22oV2OjphMLs0hITBn9PXn5GZ6P/AUGHj7Y= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07212309317953056}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07212309317953056}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VO0bB3BLUZKQhMGcM4SUdURUnjuVSJZelCLLhGRtobeyVNooZGTL +kn1JtjlJ2ZLtFYWypVKJUKLFli1+z++vuT7XXHPNOc/y/d4ky+cfFx4uLq4V +3Fxc//9MDmLxaTgn6p8S0na+37RVv76D2H+IOI/K3XQlxyrF0dJ/T68QRCi6 +l3fOurxSASU/C6cvJ+6iT16M5qRKbeS5w8/rD/0+eidQZh9YaYg65t2if9HL +0JXketFNlQcR//t+xTF6EzolXJD8p9wVpTWnnPpOf4uGq813bik9iwqLQt97 +qo4giT9m3x5G30DH0eu7o6cnkAfZu9TtzkbegxsHSgpnkZGG7m+79lgkQF5V +/LSVC4qaMiSGryahCOEXymmOvCBmrn+mtD0Vsd5bVfO+5INkkZYNqRcy0KmG +qywfRQGYk9CPWjWehTgnBS0ljFfD0SH7W9q0XJTm7zGifkgYzHaM+YYY5aHg +lIUDk6MiYLKqIF1JIR9xdfRB5YW1sDbR3HHnqwKk4Ot6zkp5HXie1NQL8CpC +X6biDq6qEoe7uy4c7nIoRuk7mWc+1IlD8PdnthdZxcghvPV2UbM4WOjk5ii6 +FKN38subLHvEQX/zHO2MezF6bXl6W9KEOEiSCr5TvsXoKWc/oaK8HjrbTrTl +hBajOC/uEbO49WDC65xTyylG+wbdA6NOSQBnTdKlloViZBgol7/7nARktAz8 +WFwsRgbret9NB0mAkZL6Q1VuDtLbY7rVNkwCbubX7QhdzkHKWWoTcjkSUJnj +cERZiINWuUy6PeqVgJIT8YXSdA56+SXQqmevJGiVHy2vQRxk9iVyk6ysFJxV +K5heHYC/3/Sl005eCiyYwealgRxkckYnKFFZCh7uidM+epGDjHg+vpLQkYLc +w7lF2cEcZEBsOrvWQgo8PC+ZKYVy0Ba7hmcrgqVAvN3faCiGg6Q7Z60nBqXg +Yvc/V0wLOSiBZrqkMSoFeul3yhuLOEjyWGruyXEpuOKUexk4HCQ+bjg/tigF +3n/DqlVKOEhYODr163oarBJZsTBdxkG8+1W/fzCmgYPY7eu7GzhopI516XkB +DX4m87BevuMgOrvHPaKEBv3hi7VavRxkZW9mbVVBg+KQVL/EDxz0dEZXue85 +DSR/7Xl1rI+DolREOv8M0CBzTs2+b5CDtsVVKypKSUN+ADkd8ouDwtyl265d +l4Y1+qW/4pdRqEYnqswkXBqea8nXvFhOoellKzJFoqXhU5bK8AIfhRxTJs4l +p0lDoFW61pGVFNLqbGY8qpQGDlPwLZcQhT7sOH/2y7g02CpfcFsUp5CqSLfM +LgcZCB7d9bBCkUJD4UPBMS4yMG1zMitXiULJAn+Ghz1kYFnVSaXojRQSXCZB +hZ2TAcZq/8+umyg0Mn3YsJstA1y7U+TmVSmU1fvB+0S9DDznX7Hi0xYK2R3+ +0VHRLAO0Jx4Sj7QpJNa9uFXotQzsTftREapDoeA2Ou/DDzIwsuF7paoufv5a +p7iFaRnoWDWTd3w7haRzB6tvb5SFl7uqDscYUKhTflq+X00WggIcC612UehW +Gt9NLW1ZKGElxovuptBcgqLVWwNZ+OkZoHpzD4V6wk98ZdjJwo24085uRhS6 +c2ZMuDRCFvYmzsh8NqWQAJpy6p2QherfudP1hyh0bqfSitI5WZjQEgw4ZoPX +Y5dt4W1uOlRF29hzHaZQrVHNnMEaOggZ3NXbcoRCF/4Jv3NfmQ5xesjmlh2F +vrtsaDjrRAeaDO/Rb44UOuJm42HhRgdpJeUWLycKPXe/JaLsQ4e2H3z3fmFn ++vw++iGADjs5vazfLLxe56umd8XTYfZq/8VPzhR6GWatJNJGh+p0O+TtRiG9 +2yGtI1106Kx72tODncuu8K3vpcPLbb3dO09Q6GosWfPvCB3W7PiHZ407hWRf +TW/+yUNA6ZSfTKwHhawPCHPZ8RFAlS0MTGCHtW/seL6SgPCQgyIWnnj9Ou3O +pwsTYKt1J43Xi0Ldb2sbrGUJWK+en3LIm0KrbXvja0kCVujsyczF3t075aG2 +gYCAvG6RGWzqo5Loys0E3A2bVYryoVDEQIR9pS4BVdPfzB6epFCDc67Gxh0E +PEz9mf4He2GwZlksENAfTbD0TlHI/etkns9eAvKfkXIV2HvHjvxhWBNwOPDC +4/unKXRP7ErHRRsChJQyPPuwJ7c9KOq1JUC9sjJ53RkKpd6cPx7LIsB6tNvX +H3uaI7d7woUAV0UWLR/b9K0JYXGCgMHQCf332HOKST0rTxIgsx4WtXwpZGFe +X+J6hgD9YzcSHLCzz45G1p0lwENyrCQE27Jhu3FgIAGB4qou3dh5o84b3l3C +/78YOz+HzSUWzq1zlQArtq6IrB+F8lkfyn7dxM/Pb1zhgM1zc3msaQQB5/n3 +WARh23BUTuexCWCNxbskYhf2WJvxxxDwvipsvhR7OVeQsnM8AQ35bqKvse0U +s/lqEgngk/HL+4ZNmbX2y6QQ4JI6V8d1lkL2ybKJb7LwfotEByhjl9Qb/qt1 +n4BpQT3pHdgCo96W7HwC6rYE6pthO66NU/tRhPeXP2fgKPZjvepVJg/x+ytz +C3piC7GGh3NKCWg82/X4HLZz6Jr6ZeUEnB73Gr6CXV6sk+pURcDq12KJ4djC +PQ4BT58RYOcr1hGD7bp0w4ZWT4Co5+PbSdiVCsVa5xoJuOdn9DoNW9SsR7ir +mYCNAaLxWdgn/LjGNFoJ8I93/JKD/SxJqSniNQHdwkGludji9RZZ3zsJGLYp +Ffq/Pb+fu2zUg8+ziPXY/39fK5p2NOs9AV4rs/9Jx5bQa9Ll+YTXe9uUfjK2 +t9PvdQ79BGx7FUHFYteHSI5XDBKwSqa6IAKbVryzVeIbAeKZ7erXsE+/OZHn +N0qAuZj49gvYzxfZ19t/Yht3t3lhyyqUs9QmCNhu4jjqgO1r2q8fNk1AuRl3 +lAV2s68A7dssAfUlfDUIm0jS/LPnLwE5Ak/Pq2CfrTvSkc5FQudKv0pJ7JaR +4KIlXhK64s6HLsOWF31wy46fhC3/SX4ew/t9QbfjeJkACaz2jLoubIUQOeKM +CAmPrIqU07ADikwW2sRIOEy0Fl3Fbu8+07NZgoQrviI1rtgXN9RHDsmSkIoM +QhWwe2qduY9sJiEz5u+TaHx+f+18JxWoRoJTW+kxH2z+GnOtVE0SclMmXxph +a1frHR/aSsITc97eP/j+RFcIt5zeQ4K/wN0JQ+x8vetDMUYkhGim312PXVc2 +v/TEhATmix1cw/i+jj8e0lw6QELy3S3CwdjmJZXxt+xJ+JvhY3Af33dXpiZV +6ESCt4flpA92EJXz4rUzCWNen9y2YOcXRy2u9yCBfvRvQiXOD4ECN+fMf0kI +0i9RrsR581+WmHpVJAlssQjmJZxfH+VvGvfdIWFevVaNiT2VscTijSNBzOnz ++Becd/LpIzHGyST4vJ9q3Y0dfO/ZfNd9ErT71gxN4fzUj/Ns/FFLgvgv1RYZ +nLcHxfv7RP4j4du6epuq4xTyijk0p9VEghHKKrLFTrpjoOLfRkLwu+PPol1x +vtyWuMPfS8K/GuV+MzjPH4XU2xNT+P3VDnhfx/mfu++FxI0ZEg4lfV2+EjtB +sL19bB4/j+CYzk3cH5ciPxlW8DDA71CxZ4gDhfbHz6keFGZAYKKFnO9RCvXn +qC/d2sSA4f2T4itxP3Wd0CkbV2VAz7DaZT/cX8836Z85rMkASuXxrT7cbwVF +JsMKugxQD9hwhTqI++6xa1uNIfbJ8eWGVvi+Nyal/HFiwMdWs6JN5hTiDs04 +bO/CALPvqibBZjhv9+WtbXBjgLeEffgb3J9vWx/fiPJhwOYjanxB+3Gfdbf7 +qAQyIE3ItLPcGPfV0Ao4Fs8AlUHW1knc167L/fpaWxnQ6GPZ7Yb7X4re9Gb+ +NQNy5D3XZuD5oHWrTJtSFwPs0+dVevH8oO3ZUBX8ngEiKU0L+7QoxNexLlH7 +KwPGWRoCNA08b6SWWt/jlgPh5PnN15Qp9GXbTLOXlhzYVN/5cEWaQvHW+2sT +dOTgy4KrRwINr59PalmjnhyUG2t+LpLC+ZhulEvulAPHNfzX30jg/lx591qX +qRyIf+N/KrkOn483urDjuBys403TdF9NoWOn/R8JJsiBYNj2sB1/OUhb8+Oj +jclywGyWXa6zwEEC41BqmCoHHgWG/mrzHFR8iu/xpWw5eEc+dJSZ5aCFk+wn +k5Qc7G0Wkxyb5KBYn5yK3hdyIPR8IMRulIOaPDtq8v/KwW8V16JAPE+qHd/U +ut9JHqT6OtLeP+SgjyfoPgXO8mB5dKuXP4XnQ8+1wkJu8qDiSpBSeH79dmr+ +QJu3PAwwtXdb4Xk3I+BF14EAefh6JOFKRS4HrY/y+HAwTh7UnW4ZHUzmoKXK +B6OOLfIglF41U32Ng9pEN6/y090AV59suBNgyUEVhcGJm3kVoLeV88byezHy +51a2ePlBAYp2m9k88CxGAr0XjLxLFOFFKf2N9fMiNJhNRqcEKMFk9h4xxceF +KFpJclmZ9UbY4sJwFwkqQJEJro1OhDJkW/jVC5vmoyPRR1sFh5Wh4R26Oyjx +AM3szppNeboJSvvC+DXq7qOBQYNztTc2Q4WzWqr8pVyUvkOD1uKkAqKvKENJ +IgcVXPMTOa6iCis20jR5erLQDetjJrxTqsC4cfnufHwm2tKbdv9Gixqk/WtL +/tqVgeI3Jha0mKhDE8vdXkgwHV18Fh5vUqYOv+dpAo21qciUZp3VLK8BvSK8 +oxFrU9BO70ZbkVAN4HlpJqTZl4RSpFnyL6c04OTL5obGmAQkX5cTa2arCVzu +Uh4lN+NRpEqtcvtTTXBQiRpqTYtFrhPLXjcpM8H/KUP3Z140YnHGidDbTHiX +q1Wz9DMKeQZbLuxjM8HTMZvn0tco5GdZ8kbwDhNOhRsb8HyOQiFTfhGRsUzY +bq1eKdgehQp1Z+fjkplQsuVZgm5JFJqtWerOfsCEPwcaeSfORaHIdsHw+kYm ++F5Xu/CFNwolZHi5XW9iwn4J4cuZC2yU4du6y+gFE4wN3l5znWKjUvHIuRet +TMgJWh76a4iNeo+sdevoYoLoYIevdDMbKQ5I7uofYALtZ9bbjkg2Ui+5IJs5 +yATB1szyh6FspHft/azLMBM6YobiY4LZaL9icvG3ESaUCS3ud/Blo9MehOzv +30yI/D3DFrBho4Dtl2epCSbszQ63nbNgo2ur+zt9p5hgbjpBjhqzUXxRxq2Z +GSZUnRjP7NrGRumXlh0vn2NCSKSHU4sWGz044GIQsMCE54J+Uo0qbFTC+E9G +f5EJmWN/22oV2OjphMLs0hITBn9PXn5GZ6P/AUGHj7Y= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07212309317953056}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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, 20}, {0., 0.07212309317953056}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991324915847246*^9, 3.992117573901388*^9}, + CellLabel-> + "Out[126]=",ExpressionUUID->"5c9eb9ae-aae8-d647-91dc-b75eef00c283"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991797019894987*^9, 3.99179702451466*^9}}, + CellLabel-> + "In[127]:=",ExpressionUUID->"b422dcab-ec5f-5543-9fba-aafac96e937c"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4VO0bB3BLUZKQhMGcM4SUdURUnjuVSJZelCLLhGRtobeyVNooZGTL +kn1JtjlJ2ZLtFYWypVKJUKLFli1+z++vuT7XXHPNOc/y/d4ky+cfFx4uLq4V +3Fxc//9MDmLxaTgn6p8S0na+37RVv76D2H+IOI/K3XQlxyrF0dJ/T68QRCi6 +l3fOurxSASU/C6cvJ+6iT16M5qRKbeS5w8/rD/0+eidQZh9YaYg65t2if9HL +0JXketFNlQcR//t+xTF6EzolXJD8p9wVpTWnnPpOf4uGq813bik9iwqLQt97 +qo4giT9m3x5G30DH0eu7o6cnkAfZu9TtzkbegxsHSgpnkZGG7m+79lgkQF5V +/LSVC4qaMiSGryahCOEXymmOvCBmrn+mtD0Vsd5bVfO+5INkkZYNqRcy0KmG +qywfRQGYk9CPWjWehTgnBS0ljFfD0SH7W9q0XJTm7zGifkgYzHaM+YYY5aHg +lIUDk6MiYLKqIF1JIR9xdfRB5YW1sDbR3HHnqwKk4Ot6zkp5HXie1NQL8CpC +X6biDq6qEoe7uy4c7nIoRuk7mWc+1IlD8PdnthdZxcghvPV2UbM4WOjk5ii6 +FKN38subLHvEQX/zHO2MezF6bXl6W9KEOEiSCr5TvsXoKWc/oaK8HjrbTrTl +hBajOC/uEbO49WDC65xTyylG+wbdA6NOSQBnTdKlloViZBgol7/7nARktAz8 +WFwsRgbret9NB0mAkZL6Q1VuDtLbY7rVNkwCbubX7QhdzkHKWWoTcjkSUJnj +cERZiINWuUy6PeqVgJIT8YXSdA56+SXQqmevJGiVHy2vQRxk9iVyk6ysFJxV +K5heHYC/3/Sl005eCiyYwealgRxkckYnKFFZCh7uidM+epGDjHg+vpLQkYLc +w7lF2cEcZEBsOrvWQgo8PC+ZKYVy0Ba7hmcrgqVAvN3faCiGg6Q7Z60nBqXg +Yvc/V0wLOSiBZrqkMSoFeul3yhuLOEjyWGruyXEpuOKUexk4HCQ+bjg/tigF +3n/DqlVKOEhYODr163oarBJZsTBdxkG8+1W/fzCmgYPY7eu7GzhopI516XkB +DX4m87BevuMgOrvHPaKEBv3hi7VavRxkZW9mbVVBg+KQVL/EDxz0dEZXue85 +DSR/7Xl1rI+DolREOv8M0CBzTs2+b5CDtsVVKypKSUN+ADkd8ouDwtyl265d +l4Y1+qW/4pdRqEYnqswkXBqea8nXvFhOoellKzJFoqXhU5bK8AIfhRxTJs4l +p0lDoFW61pGVFNLqbGY8qpQGDlPwLZcQhT7sOH/2y7g02CpfcFsUp5CqSLfM +LgcZCB7d9bBCkUJD4UPBMS4yMG1zMitXiULJAn+Ghz1kYFnVSaXojRQSXCZB +hZ2TAcZq/8+umyg0Mn3YsJstA1y7U+TmVSmU1fvB+0S9DDznX7Hi0xYK2R3+ +0VHRLAO0Jx4Sj7QpJNa9uFXotQzsTftREapDoeA2Ou/DDzIwsuF7paoufv5a +p7iFaRnoWDWTd3w7haRzB6tvb5SFl7uqDscYUKhTflq+X00WggIcC612UehW +Gt9NLW1ZKGElxovuptBcgqLVWwNZ+OkZoHpzD4V6wk98ZdjJwo24085uRhS6 +c2ZMuDRCFvYmzsh8NqWQAJpy6p2QherfudP1hyh0bqfSitI5WZjQEgw4ZoPX +Y5dt4W1uOlRF29hzHaZQrVHNnMEaOggZ3NXbcoRCF/4Jv3NfmQ5xesjmlh2F +vrtsaDjrRAeaDO/Rb44UOuJm42HhRgdpJeUWLycKPXe/JaLsQ4e2H3z3fmFn ++vw++iGADjs5vazfLLxe56umd8XTYfZq/8VPzhR6GWatJNJGh+p0O+TtRiG9 +2yGtI1106Kx72tODncuu8K3vpcPLbb3dO09Q6GosWfPvCB3W7PiHZ407hWRf +TW/+yUNA6ZSfTKwHhawPCHPZ8RFAlS0MTGCHtW/seL6SgPCQgyIWnnj9Ou3O +pwsTYKt1J43Xi0Ldb2sbrGUJWK+en3LIm0KrbXvja0kCVujsyczF3t075aG2 +gYCAvG6RGWzqo5Loys0E3A2bVYryoVDEQIR9pS4BVdPfzB6epFCDc67Gxh0E +PEz9mf4He2GwZlksENAfTbD0TlHI/etkns9eAvKfkXIV2HvHjvxhWBNwOPDC +4/unKXRP7ErHRRsChJQyPPuwJ7c9KOq1JUC9sjJ53RkKpd6cPx7LIsB6tNvX +H3uaI7d7woUAV0UWLR/b9K0JYXGCgMHQCf332HOKST0rTxIgsx4WtXwpZGFe +X+J6hgD9YzcSHLCzz45G1p0lwENyrCQE27Jhu3FgIAGB4qou3dh5o84b3l3C +/78YOz+HzSUWzq1zlQArtq6IrB+F8lkfyn7dxM/Pb1zhgM1zc3msaQQB5/n3 +WARh23BUTuexCWCNxbskYhf2WJvxxxDwvipsvhR7OVeQsnM8AQ35bqKvse0U +s/lqEgngk/HL+4ZNmbX2y6QQ4JI6V8d1lkL2ybKJb7LwfotEByhjl9Qb/qt1 +n4BpQT3pHdgCo96W7HwC6rYE6pthO66NU/tRhPeXP2fgKPZjvepVJg/x+ytz +C3piC7GGh3NKCWg82/X4HLZz6Jr6ZeUEnB73Gr6CXV6sk+pURcDq12KJ4djC +PQ4BT58RYOcr1hGD7bp0w4ZWT4Co5+PbSdiVCsVa5xoJuOdn9DoNW9SsR7ir +mYCNAaLxWdgn/LjGNFoJ8I93/JKD/SxJqSniNQHdwkGludji9RZZ3zsJGLYp +Ffq/Pb+fu2zUg8+ziPXY/39fK5p2NOs9AV4rs/9Jx5bQa9Ll+YTXe9uUfjK2 +t9PvdQ79BGx7FUHFYteHSI5XDBKwSqa6IAKbVryzVeIbAeKZ7erXsE+/OZHn +N0qAuZj49gvYzxfZ19t/Yht3t3lhyyqUs9QmCNhu4jjqgO1r2q8fNk1AuRl3 +lAV2s68A7dssAfUlfDUIm0jS/LPnLwE5Ak/Pq2CfrTvSkc5FQudKv0pJ7JaR +4KIlXhK64s6HLsOWF31wy46fhC3/SX4ew/t9QbfjeJkACaz2jLoubIUQOeKM +CAmPrIqU07ADikwW2sRIOEy0Fl3Fbu8+07NZgoQrviI1rtgXN9RHDsmSkIoM +QhWwe2qduY9sJiEz5u+TaHx+f+18JxWoRoJTW+kxH2z+GnOtVE0SclMmXxph +a1frHR/aSsITc97eP/j+RFcIt5zeQ4K/wN0JQ+x8vetDMUYkhGim312PXVc2 +v/TEhATmix1cw/i+jj8e0lw6QELy3S3CwdjmJZXxt+xJ+JvhY3Af33dXpiZV +6ESCt4flpA92EJXz4rUzCWNen9y2YOcXRy2u9yCBfvRvQiXOD4ECN+fMf0kI +0i9RrsR581+WmHpVJAlssQjmJZxfH+VvGvfdIWFevVaNiT2VscTijSNBzOnz ++Becd/LpIzHGyST4vJ9q3Y0dfO/ZfNd9ErT71gxN4fzUj/Ns/FFLgvgv1RYZ +nLcHxfv7RP4j4du6epuq4xTyijk0p9VEghHKKrLFTrpjoOLfRkLwu+PPol1x +vtyWuMPfS8K/GuV+MzjPH4XU2xNT+P3VDnhfx/mfu++FxI0ZEg4lfV2+EjtB +sL19bB4/j+CYzk3cH5ciPxlW8DDA71CxZ4gDhfbHz6keFGZAYKKFnO9RCvXn +qC/d2sSA4f2T4itxP3Wd0CkbV2VAz7DaZT/cX8836Z85rMkASuXxrT7cbwVF +JsMKugxQD9hwhTqI++6xa1uNIfbJ8eWGVvi+Nyal/HFiwMdWs6JN5hTiDs04 +bO/CALPvqibBZjhv9+WtbXBjgLeEffgb3J9vWx/fiPJhwOYjanxB+3Gfdbf7 +qAQyIE3ItLPcGPfV0Ao4Fs8AlUHW1knc167L/fpaWxnQ6GPZ7Yb7X4re9Gb+ +NQNy5D3XZuD5oHWrTJtSFwPs0+dVevH8oO3ZUBX8ngEiKU0L+7QoxNexLlH7 +KwPGWRoCNA08b6SWWt/jlgPh5PnN15Qp9GXbTLOXlhzYVN/5cEWaQvHW+2sT +dOTgy4KrRwINr59PalmjnhyUG2t+LpLC+ZhulEvulAPHNfzX30jg/lx591qX +qRyIf+N/KrkOn483urDjuBys403TdF9NoWOn/R8JJsiBYNj2sB1/OUhb8+Oj +jclywGyWXa6zwEEC41BqmCoHHgWG/mrzHFR8iu/xpWw5eEc+dJSZ5aCFk+wn +k5Qc7G0Wkxyb5KBYn5yK3hdyIPR8IMRulIOaPDtq8v/KwW8V16JAPE+qHd/U +ut9JHqT6OtLeP+SgjyfoPgXO8mB5dKuXP4XnQ8+1wkJu8qDiSpBSeH79dmr+ +QJu3PAwwtXdb4Xk3I+BF14EAefh6JOFKRS4HrY/y+HAwTh7UnW4ZHUzmoKXK +B6OOLfIglF41U32Ng9pEN6/y090AV59suBNgyUEVhcGJm3kVoLeV88byezHy +51a2ePlBAYp2m9k88CxGAr0XjLxLFOFFKf2N9fMiNJhNRqcEKMFk9h4xxceF +KFpJclmZ9UbY4sJwFwkqQJEJro1OhDJkW/jVC5vmoyPRR1sFh5Wh4R26Oyjx +AM3szppNeboJSvvC+DXq7qOBQYNztTc2Q4WzWqr8pVyUvkOD1uKkAqKvKENJ +IgcVXPMTOa6iCis20jR5erLQDetjJrxTqsC4cfnufHwm2tKbdv9Gixqk/WtL +/tqVgeI3Jha0mKhDE8vdXkgwHV18Fh5vUqYOv+dpAo21qciUZp3VLK8BvSK8 +oxFrU9BO70ZbkVAN4HlpJqTZl4RSpFnyL6c04OTL5obGmAQkX5cTa2arCVzu +Uh4lN+NRpEqtcvtTTXBQiRpqTYtFrhPLXjcpM8H/KUP3Z140YnHGidDbTHiX +q1Wz9DMKeQZbLuxjM8HTMZvn0tco5GdZ8kbwDhNOhRsb8HyOQiFTfhGRsUzY +bq1eKdgehQp1Z+fjkplQsuVZgm5JFJqtWerOfsCEPwcaeSfORaHIdsHw+kYm ++F5Xu/CFNwolZHi5XW9iwn4J4cuZC2yU4du6y+gFE4wN3l5znWKjUvHIuRet +TMgJWh76a4iNeo+sdevoYoLoYIevdDMbKQ5I7uofYALtZ9bbjkg2Ui+5IJs5 +yATB1szyh6FspHft/azLMBM6YobiY4LZaL9icvG3ESaUCS3ud/Blo9MehOzv +30yI/D3DFrBho4Dtl2epCSbszQ63nbNgo2ur+zt9p5hgbjpBjhqzUXxRxq2Z +GSZUnRjP7NrGRumXlh0vn2NCSKSHU4sWGz044GIQsMCE54J+Uo0qbFTC+E9G +f5EJmWN/22oV2OjphMLs0hITBn9PXn5GZ6P/AUGHj7Y= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VO0bB3BLUZKQhMGcM4SUdURUnjuVSJZelCLLhGRtobeyVNooZGTL +kn1JtjlJ2ZLtFYWypVKJUKLFli1+z++vuT7XXHPNOc/y/d4ky+cfFx4uLq4V +3Fxc//9MDmLxaTgn6p8S0na+37RVv76D2H+IOI/K3XQlxyrF0dJ/T68QRCi6 +l3fOurxSASU/C6cvJ+6iT16M5qRKbeS5w8/rD/0+eidQZh9YaYg65t2if9HL +0JXketFNlQcR//t+xTF6EzolXJD8p9wVpTWnnPpOf4uGq813bik9iwqLQt97 +qo4giT9m3x5G30DH0eu7o6cnkAfZu9TtzkbegxsHSgpnkZGG7m+79lgkQF5V +/LSVC4qaMiSGryahCOEXymmOvCBmrn+mtD0Vsd5bVfO+5INkkZYNqRcy0KmG +qywfRQGYk9CPWjWehTgnBS0ljFfD0SH7W9q0XJTm7zGifkgYzHaM+YYY5aHg +lIUDk6MiYLKqIF1JIR9xdfRB5YW1sDbR3HHnqwKk4Ot6zkp5HXie1NQL8CpC +X6biDq6qEoe7uy4c7nIoRuk7mWc+1IlD8PdnthdZxcghvPV2UbM4WOjk5ii6 +FKN38subLHvEQX/zHO2MezF6bXl6W9KEOEiSCr5TvsXoKWc/oaK8HjrbTrTl +hBajOC/uEbO49WDC65xTyylG+wbdA6NOSQBnTdKlloViZBgol7/7nARktAz8 +WFwsRgbret9NB0mAkZL6Q1VuDtLbY7rVNkwCbubX7QhdzkHKWWoTcjkSUJnj +cERZiINWuUy6PeqVgJIT8YXSdA56+SXQqmevJGiVHy2vQRxk9iVyk6ysFJxV +K5heHYC/3/Sl005eCiyYwealgRxkckYnKFFZCh7uidM+epGDjHg+vpLQkYLc +w7lF2cEcZEBsOrvWQgo8PC+ZKYVy0Ba7hmcrgqVAvN3faCiGg6Q7Z60nBqXg +Yvc/V0wLOSiBZrqkMSoFeul3yhuLOEjyWGruyXEpuOKUexk4HCQ+bjg/tigF +3n/DqlVKOEhYODr163oarBJZsTBdxkG8+1W/fzCmgYPY7eu7GzhopI516XkB +DX4m87BevuMgOrvHPaKEBv3hi7VavRxkZW9mbVVBg+KQVL/EDxz0dEZXue85 +DSR/7Xl1rI+DolREOv8M0CBzTs2+b5CDtsVVKypKSUN+ADkd8ouDwtyl265d +l4Y1+qW/4pdRqEYnqswkXBqea8nXvFhOoellKzJFoqXhU5bK8AIfhRxTJs4l +p0lDoFW61pGVFNLqbGY8qpQGDlPwLZcQhT7sOH/2y7g02CpfcFsUp5CqSLfM +LgcZCB7d9bBCkUJD4UPBMS4yMG1zMitXiULJAn+Ghz1kYFnVSaXojRQSXCZB +hZ2TAcZq/8+umyg0Mn3YsJstA1y7U+TmVSmU1fvB+0S9DDznX7Hi0xYK2R3+ +0VHRLAO0Jx4Sj7QpJNa9uFXotQzsTftREapDoeA2Ou/DDzIwsuF7paoufv5a +p7iFaRnoWDWTd3w7haRzB6tvb5SFl7uqDscYUKhTflq+X00WggIcC612UehW +Gt9NLW1ZKGElxovuptBcgqLVWwNZ+OkZoHpzD4V6wk98ZdjJwo24085uRhS6 +c2ZMuDRCFvYmzsh8NqWQAJpy6p2QherfudP1hyh0bqfSitI5WZjQEgw4ZoPX +Y5dt4W1uOlRF29hzHaZQrVHNnMEaOggZ3NXbcoRCF/4Jv3NfmQ5xesjmlh2F +vrtsaDjrRAeaDO/Rb44UOuJm42HhRgdpJeUWLycKPXe/JaLsQ4e2H3z3fmFn ++vw++iGADjs5vazfLLxe56umd8XTYfZq/8VPzhR6GWatJNJGh+p0O+TtRiG9 +2yGtI1106Kx72tODncuu8K3vpcPLbb3dO09Q6GosWfPvCB3W7PiHZ407hWRf +TW/+yUNA6ZSfTKwHhawPCHPZ8RFAlS0MTGCHtW/seL6SgPCQgyIWnnj9Ou3O +pwsTYKt1J43Xi0Ldb2sbrGUJWK+en3LIm0KrbXvja0kCVujsyczF3t075aG2 +gYCAvG6RGWzqo5Loys0E3A2bVYryoVDEQIR9pS4BVdPfzB6epFCDc67Gxh0E +PEz9mf4He2GwZlksENAfTbD0TlHI/etkns9eAvKfkXIV2HvHjvxhWBNwOPDC +4/unKXRP7ErHRRsChJQyPPuwJ7c9KOq1JUC9sjJ53RkKpd6cPx7LIsB6tNvX +H3uaI7d7woUAV0UWLR/b9K0JYXGCgMHQCf332HOKST0rTxIgsx4WtXwpZGFe +X+J6hgD9YzcSHLCzz45G1p0lwENyrCQE27Jhu3FgIAGB4qou3dh5o84b3l3C +/78YOz+HzSUWzq1zlQArtq6IrB+F8lkfyn7dxM/Pb1zhgM1zc3msaQQB5/n3 +WARh23BUTuexCWCNxbskYhf2WJvxxxDwvipsvhR7OVeQsnM8AQ35bqKvse0U +s/lqEgngk/HL+4ZNmbX2y6QQ4JI6V8d1lkL2ybKJb7LwfotEByhjl9Qb/qt1 +n4BpQT3pHdgCo96W7HwC6rYE6pthO66NU/tRhPeXP2fgKPZjvepVJg/x+ytz +C3piC7GGh3NKCWg82/X4HLZz6Jr6ZeUEnB73Gr6CXV6sk+pURcDq12KJ4djC +PQ4BT58RYOcr1hGD7bp0w4ZWT4Co5+PbSdiVCsVa5xoJuOdn9DoNW9SsR7ir +mYCNAaLxWdgn/LjGNFoJ8I93/JKD/SxJqSniNQHdwkGludji9RZZ3zsJGLYp +Ffq/Pb+fu2zUg8+ziPXY/39fK5p2NOs9AV4rs/9Jx5bQa9Ll+YTXe9uUfjK2 +t9PvdQ79BGx7FUHFYteHSI5XDBKwSqa6IAKbVryzVeIbAeKZ7erXsE+/OZHn +N0qAuZj49gvYzxfZ19t/Yht3t3lhyyqUs9QmCNhu4jjqgO1r2q8fNk1AuRl3 +lAV2s68A7dssAfUlfDUIm0jS/LPnLwE5Ak/Pq2CfrTvSkc5FQudKv0pJ7JaR +4KIlXhK64s6HLsOWF31wy46fhC3/SX4ew/t9QbfjeJkACaz2jLoubIUQOeKM +CAmPrIqU07ADikwW2sRIOEy0Fl3Fbu8+07NZgoQrviI1rtgXN9RHDsmSkIoM +QhWwe2qduY9sJiEz5u+TaHx+f+18JxWoRoJTW+kxH2z+GnOtVE0SclMmXxph +a1frHR/aSsITc97eP/j+RFcIt5zeQ4K/wN0JQ+x8vetDMUYkhGim312PXVc2 +v/TEhATmix1cw/i+jj8e0lw6QELy3S3CwdjmJZXxt+xJ+JvhY3Af33dXpiZV +6ESCt4flpA92EJXz4rUzCWNen9y2YOcXRy2u9yCBfvRvQiXOD4ECN+fMf0kI +0i9RrsR581+WmHpVJAlssQjmJZxfH+VvGvfdIWFevVaNiT2VscTijSNBzOnz ++Becd/LpIzHGyST4vJ9q3Y0dfO/ZfNd9ErT71gxN4fzUj/Ns/FFLgvgv1RYZ +nLcHxfv7RP4j4du6epuq4xTyijk0p9VEghHKKrLFTrpjoOLfRkLwu+PPol1x +vtyWuMPfS8K/GuV+MzjPH4XU2xNT+P3VDnhfx/mfu++FxI0ZEg4lfV2+EjtB +sL19bB4/j+CYzk3cH5ciPxlW8DDA71CxZ4gDhfbHz6keFGZAYKKFnO9RCvXn +qC/d2sSA4f2T4itxP3Wd0CkbV2VAz7DaZT/cX8836Z85rMkASuXxrT7cbwVF +JsMKugxQD9hwhTqI++6xa1uNIfbJ8eWGVvi+Nyal/HFiwMdWs6JN5hTiDs04 +bO/CALPvqibBZjhv9+WtbXBjgLeEffgb3J9vWx/fiPJhwOYjanxB+3Gfdbf7 +qAQyIE3ItLPcGPfV0Ao4Fs8AlUHW1knc167L/fpaWxnQ6GPZ7Yb7X4re9Gb+ +NQNy5D3XZuD5oHWrTJtSFwPs0+dVevH8oO3ZUBX8ngEiKU0L+7QoxNexLlH7 +KwPGWRoCNA08b6SWWt/jlgPh5PnN15Qp9GXbTLOXlhzYVN/5cEWaQvHW+2sT +dOTgy4KrRwINr59PalmjnhyUG2t+LpLC+ZhulEvulAPHNfzX30jg/lx591qX +qRyIf+N/KrkOn483urDjuBys403TdF9NoWOn/R8JJsiBYNj2sB1/OUhb8+Oj +jclywGyWXa6zwEEC41BqmCoHHgWG/mrzHFR8iu/xpWw5eEc+dJSZ5aCFk+wn +k5Qc7G0Wkxyb5KBYn5yK3hdyIPR8IMRulIOaPDtq8v/KwW8V16JAPE+qHd/U +ut9JHqT6OtLeP+SgjyfoPgXO8mB5dKuXP4XnQ8+1wkJu8qDiSpBSeH79dmr+ +QJu3PAwwtXdb4Xk3I+BF14EAefh6JOFKRS4HrY/y+HAwTh7UnW4ZHUzmoKXK +B6OOLfIglF41U32Ng9pEN6/y090AV59suBNgyUEVhcGJm3kVoLeV88byezHy +51a2ePlBAYp2m9k88CxGAr0XjLxLFOFFKf2N9fMiNJhNRqcEKMFk9h4xxceF +KFpJclmZ9UbY4sJwFwkqQJEJro1OhDJkW/jVC5vmoyPRR1sFh5Wh4R26Oyjx +AM3szppNeboJSvvC+DXq7qOBQYNztTc2Q4WzWqr8pVyUvkOD1uKkAqKvKENJ +IgcVXPMTOa6iCis20jR5erLQDetjJrxTqsC4cfnufHwm2tKbdv9Gixqk/WtL +/tqVgeI3Jha0mKhDE8vdXkgwHV18Fh5vUqYOv+dpAo21qciUZp3VLK8BvSK8 +oxFrU9BO70ZbkVAN4HlpJqTZl4RSpFnyL6c04OTL5obGmAQkX5cTa2arCVzu +Uh4lN+NRpEqtcvtTTXBQiRpqTYtFrhPLXjcpM8H/KUP3Z140YnHGidDbTHiX +q1Wz9DMKeQZbLuxjM8HTMZvn0tco5GdZ8kbwDhNOhRsb8HyOQiFTfhGRsUzY +bq1eKdgehQp1Z+fjkplQsuVZgm5JFJqtWerOfsCEPwcaeSfORaHIdsHw+kYm ++F5Xu/CFNwolZHi5XW9iwn4J4cuZC2yU4du6y+gFE4wN3l5znWKjUvHIuRet +TMgJWh76a4iNeo+sdevoYoLoYIevdDMbKQ5I7uofYALtZ9bbjkg2Ui+5IJs5 +yATB1szyh6FspHft/azLMBM6YobiY4LZaL9icvG3ESaUCS3ud/Blo9MehOzv +30yI/D3DFrBho4Dtl2epCSbszQ63nbNgo2ur+zt9p5hgbjpBjhqzUXxRxq2Z +GSZUnRjP7NrGRumXlh0vn2NCSKSHU4sWGz044GIQsMCE54J+Uo0qbFTC+E9G +f5EJmWN/22oV2OjphMLs0hITBn9PXn5GZ6P/AUGHj7Y= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07212309317953056}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07212309317953056}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VO0bB3BLUZKQhMGcM4SUdURUnjuVSJZelCLLhGRtobeyVNooZGTL +kn1JtjlJ2ZLtFYWypVKJUKLFli1+z++vuT7XXHPNOc/y/d4ky+cfFx4uLq4V +3Fxc//9MDmLxaTgn6p8S0na+37RVv76D2H+IOI/K3XQlxyrF0dJ/T68QRCi6 +l3fOurxSASU/C6cvJ+6iT16M5qRKbeS5w8/rD/0+eidQZh9YaYg65t2if9HL +0JXketFNlQcR//t+xTF6EzolXJD8p9wVpTWnnPpOf4uGq813bik9iwqLQt97 +qo4giT9m3x5G30DH0eu7o6cnkAfZu9TtzkbegxsHSgpnkZGG7m+79lgkQF5V +/LSVC4qaMiSGryahCOEXymmOvCBmrn+mtD0Vsd5bVfO+5INkkZYNqRcy0KmG +qywfRQGYk9CPWjWehTgnBS0ljFfD0SH7W9q0XJTm7zGifkgYzHaM+YYY5aHg +lIUDk6MiYLKqIF1JIR9xdfRB5YW1sDbR3HHnqwKk4Ot6zkp5HXie1NQL8CpC +X6biDq6qEoe7uy4c7nIoRuk7mWc+1IlD8PdnthdZxcghvPV2UbM4WOjk5ii6 +FKN38subLHvEQX/zHO2MezF6bXl6W9KEOEiSCr5TvsXoKWc/oaK8HjrbTrTl +hBajOC/uEbO49WDC65xTyylG+wbdA6NOSQBnTdKlloViZBgol7/7nARktAz8 +WFwsRgbret9NB0mAkZL6Q1VuDtLbY7rVNkwCbubX7QhdzkHKWWoTcjkSUJnj +cERZiINWuUy6PeqVgJIT8YXSdA56+SXQqmevJGiVHy2vQRxk9iVyk6ysFJxV +K5heHYC/3/Sl005eCiyYwealgRxkckYnKFFZCh7uidM+epGDjHg+vpLQkYLc +w7lF2cEcZEBsOrvWQgo8PC+ZKYVy0Ba7hmcrgqVAvN3faCiGg6Q7Z60nBqXg +Yvc/V0wLOSiBZrqkMSoFeul3yhuLOEjyWGruyXEpuOKUexk4HCQ+bjg/tigF +3n/DqlVKOEhYODr163oarBJZsTBdxkG8+1W/fzCmgYPY7eu7GzhopI516XkB +DX4m87BevuMgOrvHPaKEBv3hi7VavRxkZW9mbVVBg+KQVL/EDxz0dEZXue85 +DSR/7Xl1rI+DolREOv8M0CBzTs2+b5CDtsVVKypKSUN+ADkd8ouDwtyl265d +l4Y1+qW/4pdRqEYnqswkXBqea8nXvFhOoellKzJFoqXhU5bK8AIfhRxTJs4l +p0lDoFW61pGVFNLqbGY8qpQGDlPwLZcQhT7sOH/2y7g02CpfcFsUp5CqSLfM +LgcZCB7d9bBCkUJD4UPBMS4yMG1zMitXiULJAn+Ghz1kYFnVSaXojRQSXCZB +hZ2TAcZq/8+umyg0Mn3YsJstA1y7U+TmVSmU1fvB+0S9DDznX7Hi0xYK2R3+ +0VHRLAO0Jx4Sj7QpJNa9uFXotQzsTftREapDoeA2Ou/DDzIwsuF7paoufv5a +p7iFaRnoWDWTd3w7haRzB6tvb5SFl7uqDscYUKhTflq+X00WggIcC612UehW +Gt9NLW1ZKGElxovuptBcgqLVWwNZ+OkZoHpzD4V6wk98ZdjJwo24085uRhS6 +c2ZMuDRCFvYmzsh8NqWQAJpy6p2QherfudP1hyh0bqfSitI5WZjQEgw4ZoPX +Y5dt4W1uOlRF29hzHaZQrVHNnMEaOggZ3NXbcoRCF/4Jv3NfmQ5xesjmlh2F +vrtsaDjrRAeaDO/Rb44UOuJm42HhRgdpJeUWLycKPXe/JaLsQ4e2H3z3fmFn ++vw++iGADjs5vazfLLxe56umd8XTYfZq/8VPzhR6GWatJNJGh+p0O+TtRiG9 +2yGtI1106Kx72tODncuu8K3vpcPLbb3dO09Q6GosWfPvCB3W7PiHZ407hWRf +TW/+yUNA6ZSfTKwHhawPCHPZ8RFAlS0MTGCHtW/seL6SgPCQgyIWnnj9Ou3O +pwsTYKt1J43Xi0Ldb2sbrGUJWK+en3LIm0KrbXvja0kCVujsyczF3t075aG2 +gYCAvG6RGWzqo5Loys0E3A2bVYryoVDEQIR9pS4BVdPfzB6epFCDc67Gxh0E +PEz9mf4He2GwZlksENAfTbD0TlHI/etkns9eAvKfkXIV2HvHjvxhWBNwOPDC +4/unKXRP7ErHRRsChJQyPPuwJ7c9KOq1JUC9sjJ53RkKpd6cPx7LIsB6tNvX +H3uaI7d7woUAV0UWLR/b9K0JYXGCgMHQCf332HOKST0rTxIgsx4WtXwpZGFe +X+J6hgD9YzcSHLCzz45G1p0lwENyrCQE27Jhu3FgIAGB4qou3dh5o84b3l3C +/78YOz+HzSUWzq1zlQArtq6IrB+F8lkfyn7dxM/Pb1zhgM1zc3msaQQB5/n3 +WARh23BUTuexCWCNxbskYhf2WJvxxxDwvipsvhR7OVeQsnM8AQ35bqKvse0U +s/lqEgngk/HL+4ZNmbX2y6QQ4JI6V8d1lkL2ybKJb7LwfotEByhjl9Qb/qt1 +n4BpQT3pHdgCo96W7HwC6rYE6pthO66NU/tRhPeXP2fgKPZjvepVJg/x+ytz +C3piC7GGh3NKCWg82/X4HLZz6Jr6ZeUEnB73Gr6CXV6sk+pURcDq12KJ4djC +PQ4BT58RYOcr1hGD7bp0w4ZWT4Co5+PbSdiVCsVa5xoJuOdn9DoNW9SsR7ir +mYCNAaLxWdgn/LjGNFoJ8I93/JKD/SxJqSniNQHdwkGludji9RZZ3zsJGLYp +Ffq/Pb+fu2zUg8+ziPXY/39fK5p2NOs9AV4rs/9Jx5bQa9Ll+YTXe9uUfjK2 +t9PvdQ79BGx7FUHFYteHSI5XDBKwSqa6IAKbVryzVeIbAeKZ7erXsE+/OZHn +N0qAuZj49gvYzxfZ19t/Yht3t3lhyyqUs9QmCNhu4jjqgO1r2q8fNk1AuRl3 +lAV2s68A7dssAfUlfDUIm0jS/LPnLwE5Ak/Pq2CfrTvSkc5FQudKv0pJ7JaR +4KIlXhK64s6HLsOWF31wy46fhC3/SX4ew/t9QbfjeJkACaz2jLoubIUQOeKM +CAmPrIqU07ADikwW2sRIOEy0Fl3Fbu8+07NZgoQrviI1rtgXN9RHDsmSkIoM +QhWwe2qduY9sJiEz5u+TaHx+f+18JxWoRoJTW+kxH2z+GnOtVE0SclMmXxph +a1frHR/aSsITc97eP/j+RFcIt5zeQ4K/wN0JQ+x8vetDMUYkhGim312PXVc2 +v/TEhATmix1cw/i+jj8e0lw6QELy3S3CwdjmJZXxt+xJ+JvhY3Af33dXpiZV +6ESCt4flpA92EJXz4rUzCWNen9y2YOcXRy2u9yCBfvRvQiXOD4ECN+fMf0kI +0i9RrsR581+WmHpVJAlssQjmJZxfH+VvGvfdIWFevVaNiT2VscTijSNBzOnz ++Becd/LpIzHGyST4vJ9q3Y0dfO/ZfNd9ErT71gxN4fzUj/Ns/FFLgvgv1RYZ +nLcHxfv7RP4j4du6epuq4xTyijk0p9VEghHKKrLFTrpjoOLfRkLwu+PPol1x +vtyWuMPfS8K/GuV+MzjPH4XU2xNT+P3VDnhfx/mfu++FxI0ZEg4lfV2+EjtB +sL19bB4/j+CYzk3cH5ciPxlW8DDA71CxZ4gDhfbHz6keFGZAYKKFnO9RCvXn +qC/d2sSA4f2T4itxP3Wd0CkbV2VAz7DaZT/cX8836Z85rMkASuXxrT7cbwVF +JsMKugxQD9hwhTqI++6xa1uNIfbJ8eWGVvi+Nyal/HFiwMdWs6JN5hTiDs04 +bO/CALPvqibBZjhv9+WtbXBjgLeEffgb3J9vWx/fiPJhwOYjanxB+3Gfdbf7 +qAQyIE3ItLPcGPfV0Ao4Fs8AlUHW1knc167L/fpaWxnQ6GPZ7Yb7X4re9Gb+ +NQNy5D3XZuD5oHWrTJtSFwPs0+dVevH8oO3ZUBX8ngEiKU0L+7QoxNexLlH7 +KwPGWRoCNA08b6SWWt/jlgPh5PnN15Qp9GXbTLOXlhzYVN/5cEWaQvHW+2sT +dOTgy4KrRwINr59PalmjnhyUG2t+LpLC+ZhulEvulAPHNfzX30jg/lx591qX +qRyIf+N/KrkOn483urDjuBys403TdF9NoWOn/R8JJsiBYNj2sB1/OUhb8+Oj +jclywGyWXa6zwEEC41BqmCoHHgWG/mrzHFR8iu/xpWw5eEc+dJSZ5aCFk+wn +k5Qc7G0Wkxyb5KBYn5yK3hdyIPR8IMRulIOaPDtq8v/KwW8V16JAPE+qHd/U +ut9JHqT6OtLeP+SgjyfoPgXO8mB5dKuXP4XnQ8+1wkJu8qDiSpBSeH79dmr+ +QJu3PAwwtXdb4Xk3I+BF14EAefh6JOFKRS4HrY/y+HAwTh7UnW4ZHUzmoKXK +B6OOLfIglF41U32Ng9pEN6/y090AV59suBNgyUEVhcGJm3kVoLeV88byezHy +51a2ePlBAYp2m9k88CxGAr0XjLxLFOFFKf2N9fMiNJhNRqcEKMFk9h4xxceF +KFpJclmZ9UbY4sJwFwkqQJEJro1OhDJkW/jVC5vmoyPRR1sFh5Wh4R26Oyjx +AM3szppNeboJSvvC+DXq7qOBQYNztTc2Q4WzWqr8pVyUvkOD1uKkAqKvKENJ +IgcVXPMTOa6iCis20jR5erLQDetjJrxTqsC4cfnufHwm2tKbdv9Gixqk/WtL +/tqVgeI3Jha0mKhDE8vdXkgwHV18Fh5vUqYOv+dpAo21qciUZp3VLK8BvSK8 +oxFrU9BO70ZbkVAN4HlpJqTZl4RSpFnyL6c04OTL5obGmAQkX5cTa2arCVzu +Uh4lN+NRpEqtcvtTTXBQiRpqTYtFrhPLXjcpM8H/KUP3Z140YnHGidDbTHiX +q1Wz9DMKeQZbLuxjM8HTMZvn0tco5GdZ8kbwDhNOhRsb8HyOQiFTfhGRsUzY +bq1eKdgehQp1Z+fjkplQsuVZgm5JFJqtWerOfsCEPwcaeSfORaHIdsHw+kYm ++F5Xu/CFNwolZHi5XW9iwn4J4cuZC2yU4du6y+gFE4wN3l5znWKjUvHIuRet +TMgJWh76a4iNeo+sdevoYoLoYIevdDMbKQ5I7uofYALtZ9bbjkg2Ui+5IJs5 +yATB1szyh6FspHft/azLMBM6YobiY4LZaL9icvG3ESaUCS3ud/Blo9MehOzv +30yI/D3DFrBho4Dtl2epCSbszQ63nbNgo2ur+zt9p5hgbjpBjhqzUXxRxq2Z +GSZUnRjP7NrGRumXlh0vn2NCSKSHU4sWGz044GIQsMCE54J+Uo0qbFTC+E9G +f5EJmWN/22oV2OjphMLs0hITBn9PXn5GZ6P/AUGHj7Y= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07212309317953056}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, + 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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, 20}, {0., 0.07212309317953056}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.992117574029867*^9}, + CellLabel-> + "Out[127]=",ExpressionUUID->"72e560cb-f709-ce4b-8fca-b8ff5e3d7545"] +}, 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[128]:=",ExpressionUUID->"143d6afa-76a8-b440-a2a9-2759769b081f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5774327686647045`*^-184\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 128, + 746, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9, 3.9917091704635696`*^9, + 3.9921175741407204`*^9}, + CellLabel-> + "During evaluation of \ +In[128]:=",ExpressionUUID->"e424e5e5-64e8-594d-bab5-d717e9f327df"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.7982636502938937`*^-188\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 128, 747, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9, 3.9917091704635696`*^9, + 3.992117574170719*^9}, + CellLabel-> + "During evaluation of \ +In[128]:=",ExpressionUUID->"1791624e-fe73-7e40-b091-db5b4e942818"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.963938629970536`*^-192\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 128, 748, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9, 3.9917091704635696`*^9, + 3.992117574192713*^9}, + CellLabel-> + "During evaluation of \ +In[128]:=",ExpressionUUID->"c4f1578d-5b5c-c349-a546-c231fcb7ba61"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 128, 749, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9, 3.9917091704635696`*^9, + 3.9921175742077084`*^9}, + CellLabel-> + "During evaluation of \ +In[128]:=",ExpressionUUID->"b850d75f-3206-934d-afd2-e8853fb26283"], + +Cell[BoxData["15.772376513542959`"], "Output", + CellChangeTimes->{3.991326513010317*^9, 3.991709175908993*^9, + 3.992117642481001*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"ee83eab7-201d-604d-8398-b6a81a8d3e46"] +}, 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.9917970149184284`*^9, 3.991797037687023*^9}}, + CellLabel-> + "In[129]:=",ExpressionUUID->"2e239e43-8455-8947-be70-b8e43bbe859a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.428510932280065`*^-211\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 129, 750, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265130447063`*^9, 3.991709175963011*^9, + 3.9921176425981045`*^9}, + CellLabel-> + "During evaluation of \ +In[129]:=",ExpressionUUID->"93e6f8ef-cffc-be4f-ab0e-da05ccc5b220"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.771728362398662`*^-216\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 129, 751, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265130447063`*^9, 3.991709175963011*^9, + 3.992117642635103*^9}, + CellLabel-> + "During evaluation of \ +In[129]:=",ExpressionUUID->"a3924115-f4ef-7f47-98cd-e48d8582219e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2925704177006526`*^-221\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 129, 752, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265130447063`*^9, 3.991709175963011*^9, + 3.992117642658106*^9}, + CellLabel-> + "During evaluation of \ +In[129]:=",ExpressionUUID->"fd2afa9b-1f0b-5c46-9353-b3f9d715efc7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 129, 753, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265130447063`*^9, 3.991709175963011*^9, + 3.992117642677101*^9}, + CellLabel-> + "During evaluation of \ +In[129]:=",ExpressionUUID->"e1a1b3ed-c523-9248-b96d-8aa720095129"], + +Cell[BoxData["2.1145701187292274`"], "Output", + CellChangeTimes->{3.9913265201819115`*^9, 3.9917091805041294`*^9, + 3.99211765400473*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"afc0e34f-8f42-a34c-a43e-5522205dedc6"] +}, 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.9917970412382812`*^9, 3.991797045066601*^9}}, + CellLabel-> + "In[130]:=",ExpressionUUID->"99e346c1-cf6d-8f4a-b6fb-39037ee79c0a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.428510932280065`*^-211\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 130, 754, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326520216116*^9, 3.991709180543247*^9, + 3.9921176541792793`*^9}, + CellLabel-> + "During evaluation of \ +In[130]:=",ExpressionUUID->"e7af73df-b88a-3b47-a1c9-da4745825aab"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.771728362398662`*^-216\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 130, 755, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326520216116*^9, 3.991709180543247*^9, + 3.9921176542052727`*^9}, + CellLabel-> + "During evaluation of \ +In[130]:=",ExpressionUUID->"08b155c9-5219-b346-9aed-6c5f739140ce"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2925704177006526`*^-221\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 130, 756, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326520216116*^9, 3.991709180543247*^9, + 3.9921176542222767`*^9}, + CellLabel-> + "During evaluation of \ +In[130]:=",ExpressionUUID->"dbe43aa5-0b08-8742-a860-3f9b0271f839"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 130, 757, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326520216116*^9, 3.991709180543247*^9, + 3.992117654237276*^9}, + CellLabel-> + "During evaluation of \ +In[130]:=",ExpressionUUID->"c9ed5e32-b8ec-b348-8e3a-5333ed7c3b00"], + +Cell[BoxData["30.354302512328353`"], "Output", + CellChangeTimes->{3.9913265264075394`*^9, 3.9917091848753357`*^9, + 3.9921176648669834`*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"8abaee75-0596-e045-b564-1e76e7bbef78"] +}, 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.9917970522453213`*^9, 3.991797055966772*^9}}, + CellLabel-> + "In[131]:=",ExpressionUUID->"867b2dc8-7ef3-234b-80bd-e701484a92f5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.428510932280065`*^-211\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 131, 758, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265264435444`*^9, 3.9917091849153366`*^9, + 3.992117664983076*^9}, + CellLabel-> + "During evaluation of \ +In[131]:=",ExpressionUUID->"d60707ce-4c54-5a46-b6d2-2f6d5d95c12e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.771728362398662`*^-216\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 131, 759, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265264435444`*^9, 3.9917091849153366`*^9, + 3.992117665005089*^9}, + CellLabel-> + "During evaluation of \ +In[131]:=",ExpressionUUID->"71d146c7-8654-a942-8c08-39b95319cde8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2925704177006526`*^-221\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 131, 760, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265264435444`*^9, 3.9917091849153366`*^9, + 3.9921176650219765`*^9}, + CellLabel-> + "During evaluation of \ +In[131]:=",ExpressionUUID->"6aeb0f11-1d10-2d49-8201-875b850c5641"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 131, 761, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265264435444`*^9, 3.9917091849153366`*^9, + 3.992117665034971*^9}, + CellLabel-> + "During evaluation of \ +In[131]:=",ExpressionUUID->"298d0521-dccb-384e-ae7d-d906c95cdd8f"], + +Cell[BoxData["22.175609878305064`"], "Output", + CellChangeTimes->{3.9913265299431496`*^9, 3.9917091876094093`*^9, + 3.9921176735927143`*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"c21ef28d-efd7-8b4b-88a2-fbf4eb0c298e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991797060470949*^9, 3.9917970642464314`*^9}}, + CellLabel-> + "In[132]:=",ExpressionUUID->"b1cee125-11a3-8a43-b076-a72829d187d3"], + +Cell[BoxData["0.08150310898359221`"], "Output", + CellChangeTimes->{3.991326529975149*^9, 3.991709187637409*^9, + 3.9921176736607094`*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"01cb00ea-dc7e-5440-a744-6c1e6771c16b"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.99179708384041*^9, 3.991797089031517*^9}, + 3.991923586725128*^9}, + CellLabel-> + "In[133]:=",ExpressionUUID->"e87cb7b6-2d4f-2b46-b7dc-f61f4036bef1"], + +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[134]:=",ExpressionUUID->"dafb41d5-8379-5e45-a5a7-0828c3048eab"], + +Cell[BoxData["38.850251957567444`"], "Output", + CellChangeTimes->{3.9913265300040226`*^9, 3.9917092389246387`*^9, + 3.9921176736923714`*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"81e8fdb8-cffa-cf40-9c58-f0db7a1dbb41"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[135]:=",ExpressionUUID->"3d6ec365-065c-9046-b32d-db356c9d51fa"], + +Cell[BoxData["1.500103387489979`"], "Output", + CellChangeTimes->{3.991326530052025*^9, 3.991709238967621*^9, + 3.9921176737128887`*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"99b6efb3-7fde-9841-b098-03c5b91b6899"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[136]:=",ExpressionUUID->"c7dc55d1-f163-224f-bef1-731f35b2237f"], + +Cell[BoxData["58.27939456638611`"], "Output", + CellChangeTimes->{3.9913265300922585`*^9, 3.9917092390388947`*^9, + 3.9921176737382812`*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"0f7f52cf-8035-3e4e-93aa-82f2459a0642"] +}, 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[137]:=",ExpressionUUID->"ae1da06e-d004-c94e-a60b-5d6c8a81d4a0"], + +Cell[BoxData["0.006342498180789202`"], "Output", + CellChangeTimes->{3.9913265301172295`*^9, 3.991709239061901*^9, + 3.9921176737622147`*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"bd7feb3a-a9b9-7f43-a73b-e42a7e655cc5"] +}, 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[138]:=",ExpressionUUID->"711641aa-bfb1-b442-a8a1-7f2d92e52258"], + +Cell[BoxData["11.12793973540404`"], "Output", + CellChangeTimes->{3.991326530210228*^9, 3.991709239151787*^9, + 3.9921176739782124`*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"254b34a4-79c8-8749-be40-c2fc0496cb3b"] +}, 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[139]:=",ExpressionUUID->"03560694-f256-804d-bdf2-150141b736fd"], + +Cell[BoxData["0.008364311187233565`"], "Output", + CellChangeTimes->{3.9913265302252293`*^9, 3.991709239183817*^9, + 3.992117674015915*^9}, + CellLabel-> + "Out[139]=",ExpressionUUID->"2af762d4-bad9-814b-9203-21ace46d8db6"] +}, 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[140]:=",ExpressionUUID->"41fd6fe5-afbf-ed41-96d1-404a404fc933"], + +Cell[BoxData["9.690135493699923`"], "Output", + CellChangeTimes->{3.9913265303172264`*^9, 3.9917092392730465`*^9, + 3.992117674234255*^9}, + CellLabel-> + "Out[140]=",ExpressionUUID->"899c67f9-9662-3c41-bdc9-95fd31ba3638"] +}, 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[141]:=",ExpressionUUID->"1ffc2e4a-e112-f841-8653-59d1c97f1323"], + +Cell[BoxData["0.4398388669954015`"], "Output", + CellChangeTimes->{3.9913265303292294`*^9, 3.9917092392950573`*^9, + 3.992117674271351*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"d81423e0-c9e8-774b-b474-6cb2c8eda2e0"] +}, 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[142]:=",ExpressionUUID->"c98e90b4-3450-674d-a534-9abe2866d10f"], + +Cell[BoxData["0.5601611330045986`"], "Output", + CellChangeTimes->{3.991326530340416*^9, 3.9917092393180447`*^9, + 3.992117674303444*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"e6981bae-92ce-5842-9d61-78595840c82b"] +}, 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[143]:=",ExpressionUUID->"3a1b0a64-3226-5845-846d-8f00794d5760"], + +Cell[BoxData["0.24638063807560304`"], "Output", + CellChangeTimes->{3.991326530367384*^9, 3.9917092393410416`*^9, + 3.99211767433444*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"458b4024-904a-e348-bf64-65fa005a2568"] +}, 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.9917970976395664`*^9}, + CellLabel-> + "In[144]:=",ExpressionUUID->"157a27fc-8a7f-ef4c-bd2d-9f444415254b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.763058670622647`*^-226\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 144, 762, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265303923836`*^9, 3.9917092393670444`*^9, + 3.9921176743953304`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"3f956691-abe9-4f4a-a867-53ce2edb33c0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.020128743980137`*^-232\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 144, 763, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265303923836`*^9, 3.9917092393670444`*^9, + 3.9921176744264355`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"58802660-344e-c647-aca6-d7a4a0fb14f0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3146819843570703`*^-238\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 144, 764, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265303923836`*^9, 3.9917092393670444`*^9, + 3.9921176744464264`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"c39dc9a4-864a-5444-839c-810c17908706"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 144, 765, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265303923836`*^9, 3.9917092393670444`*^9, + 3.992117674462425*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"2d714eeb-241c-c64f-83ac-641abc688a84"], + +Cell[BoxData["11.12793973540404`"], "Output", + CellChangeTimes->{3.9913265339749985`*^9, 3.991709242710472*^9, + 3.9921176819322777`*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"bccf39af-7e2b-2d4d-8d7b-568473b5028b"] +}, 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.991797103207548*^9}, + CellLabel-> + "In[145]:=",ExpressionUUID->"11801718-69ec-bf4e-86d8-e9949dfbcff4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.763058670622647`*^-226\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 145, 766, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340092525`*^9, 3.9917092427514687`*^9, + 3.992117682024523*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"0e128053-7499-9848-8935-ff01354c3f03"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.020128743980137`*^-232\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 145, 767, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340092525`*^9, 3.9917092427514687`*^9, + 3.992117682050621*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"71eebdb4-1429-3049-bcb2-79d7e6e438d9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3146819843570703`*^-238\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 145, 768, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340092525`*^9, 3.9917092427514687`*^9, + 3.9921176820706215`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"21c4d7fc-1662-f04e-9948-73ddc0bb9d27"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 145, 769, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340092525`*^9, 3.9917092427514687`*^9, + 3.9921176820835285`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"9f8c3dcc-2210-cf41-acad-e76e5c853c8f"], + +Cell[BoxData["9.690135493699929`"], "Output", + CellChangeTimes->{3.9913265375649567`*^9, 3.991709245963009*^9, + 3.9921176895764484`*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"47e06c6e-5ae4-4841-810c-5437fcae542e"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9917971087080173`*^9, 3.9917971122297535`*^9}}, + CellLabel-> + "In[146]:=",ExpressionUUID->"4d882d59-3e42-1040-97a9-33dddc2b9855"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.571310198762452`*^-280\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 146, + 770, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326773051552*^9, 3.9921176898864384`*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"ed73331f-101b-b74b-8546-9c4bbb0bcf48"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.005454786209439`*^-293\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 146, + 771, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326773051552*^9, 3.992117689906502*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"69622c03-9ec2-bd46-9993-94022257e50a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.748552054879641`*^-306\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 146, + 772, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326773051552*^9, 3.9921176899233894`*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"41d62387-06ec-f54c-9b1b-94dd026bb208"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 146, 773, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326773051552*^9, 3.9921176899404945`*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"bff5daf2-81c7-1f4d-93c5-1ad23da243ed"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk8VN8bB3CyVFJZWgZjZu6dCck+UijnQfVTUspWSAjJEoqikERKsmQs +2ZeEFHOlQqVSlmwtIkILUkjfSmSp/E5/3df79Tp3Oeee5/Mcwtlnt+s8AQEB +MUEBgX/XzFBnUU2XdAMx66i8+g06Bk/aWdttWEGofErac77bMjRXX3OGxTqP +HM9G/O525aDMhxeZIqzLKHrm/ugDV23ktTHA+xezGFUOHgkpcN2E2mfded+Y +VagyVKfM2dUSze/pVxxjPkXmPoM/PFxcUG5Ttt8osxtVO2WpJzv6o9Ky8z1e +aiPoV2aVpIFyJDqIXlz+cmQc/WaM0+tM4tDhj6sHKkqnUfrkzdyVZ3hIjIhQ +fLdeALqaXe/ZFl9GsRLNyrmOQvCaJhxhbJ6FnHssHwi1iIIZ4/ctSV4u8quL +cPZRFIM9QmY5dq/zEeUrbkHbuhhUPQTsTncWoNyTniMaNhIQmsKame4rROHZ +v3f9/CIJMUVRku+yi5FA+3u4d0Ia9EPuNZE6JUjB3y3QUnk5fJ7tsdOpv44G +J1KsF91fAUH1NgtmpUvRto8eIZf8aMAdqf2ZvKsMbQlhX98USIPj2h5BMtZl +yGh575vJUBqQx8ZVL9uWIb3NZuvtYmhAea5TiD9QhpQL1MfZhTS4oOJtbh9Q +hha5/nS/1UsD4b0q/t6pZahlMMSy638y4Pw91uJIbxnaMRi/hsGQBXt7CXNB +NT5qWTP4yp4jCx66AoEN6nxkenRdaLqyLHC7BV1jNPnIZN7b57R1snA1Y22s +1Fo+MmKtOSZtLguKTlvkJTbw0Vr7uocLwmXhnnW96vOtfER/NW01/lEW/oSJ +MFxc+GjksXNY4w050Lb2/dyTxEfMhC6P2Ao5yPR5L3M0hY8sHXZYWd6Vg7Ss +D90LLvNRzZSu8vtGOdhpWiuikcFHl1QlX/0akIPyq2uXeOfxkX7KA0VFWTrw +SKsvuaV8FONBfxZ5lg6LMlP1f9Xx0aN1l6pML9LBJ7DbxrGBjyaFF1yR5NFh +4TE34cZGPnLMHg/MzKVD3NXiJYnNfKT9qom8dY8O6jmPhle+4KO+jUHHBn/Q +oWfLpqbeHj5Sk+yUN94vDxbztz+w+MZHQxeHwpNc5WEj/ZP0ie98lCn269Mn +T3kYsdynnP2Dj8SFaeUxgfIw7K+Y+fEnnv/k3i2dCfKQEmiecWCajwp6+w4f +eiIPDw85SnHmUYhe9PFB3GoGqDZ4+d6RotArziSnX50B+0LoSrelKXQhVzRa +W4cBt4zMr9xcRqGZNEXLbiMG2FXmjVxbQaGui4c+k/YMiPW7REXLUijx6JjE +7VgG5C9abLCUpJAYmnDqHWfAWVtzYVUNCgUaKi24PcMA2TcffFdoUmjI2K40 +TpAJU0odh/9i15o8mjFayoS5DF9mE5dCJ3ZfTCxWZkLvLj8b83UUGnVdVXfM +iQkyb0aNaAYUsnXf42nuzgTvsy2dI9iNHhcklX2YoBTs/PcuotAVn+/7+oKZ +kF66daGtIYXsg+5PGqcyISh0p1TkJgq1xFgpST5jgoevwrKUbRTSizvXNtLB +hGTdnxO7TSlUlHDX/0kvE0ScZrwXb6dQRDLx6PgIE47MWBOhZhRiPJ9U+W8e +C46+HLu8w5xCnd21dVYMFtQMLJ4qsaLQ/8Zsf5FWLFjc5pi5dz+FspadaT+1 +hwX0peZCQ9g/9UvKeu1YsG1Pv6SfI4VyomcPJjvj8Q35q8844fVWzOha6MsC +u+CLJikHKHTdua/qWzQLej0ZXqcOUmhetEiyWSwLnNyu+E1i76FUj1xLYEHR +yjLSy51CIgKhyi6pLPidIXHO4hCFHDIZ6a8LWED7beAq5Ukhia79wTUPWTBK +y080P0wht7moPXJP8PfFLnIvx76nwNcObGBB0od5o1I+FDoUIDCm2YbnJ+/2 +5xl2rVTuvoIe/L79p/bq+VGIpvdUd947Fggpvi1MwD7s9H35/n4W9NTsv/oJ +W45v2EYbZoEDpFbEHaGQv1m/QcwkC1iqp+WeH6VQk7+Y3PA0C0IWpn6j+1OI +laH1a/MfFhw86HPcHbt1JLxsTogAEQfN9FlshXNs1lFJAl7w6kHqGN6PtS6C +tioEOBl1agkGUuib4RvZEHUCQhbkR6zFnv9op3aOFgGB4T633bF1HugdHFpP +gM2JqupmbN5didYjmwlYLDSxLSIIr7fe2aEkEwLilPNyy7AfV83OVZoSsK7i +Vnc39o87Q1pzuwjot637qnyCQjsr7qVecCAgRuwM9QDbjatVXupEQFeiA60f +O7S8sPmFCwGKqkuchU7i5/Mv/V3pSUBoQF6WEfYT9QU0/cME6PcOJDhi95SG +aDr4EWBRW+4egi12w93lynECyGs3H93EJlXehjScwOuBjDe1YuuWWKSMhOD3 +B8mVfMR2LzZo0oggYFjTWUE6mEJhShUDFlEEDNHV9ZWwUwpX/zkWTUBVlODa +Ddj1Bcs07scToPTBv8sR+y0neuv7RALslweE+2FP5M85C6UQEGmpK3UaW5wd +EKyQRkBZxPeoOGxO3kjS1kwC7l9tHcjA3kA4lnnlELCn88+qYmyLnI7GuHwC +3m8t31GB7cE07S+/SoDjbjmHGuzwrIezHcUERNsdsmzATpPXWT59nYDc0RbN +Z9hURokanU+AT/6xyQ7sRjnCBN0kwMAgJa8H+31aspPzbQIaE/brvMeekhE/ +GVlFABErUD6AvfTyaV7RPQIebyxZPoStQPt1o/kBAZ518U6fsA1SvBq+1hKw +wqU/6Z+tV/S/l6wn4MeRF+X/xnsn2cxoPyXA2jWuchA7Ylmr9J4WAviNZoUf +sDMSjVRPPiPg1CaDU33YFVKVW7JeEmCYdgm6sJsTVB0fdRDgXhA8+gK7XyI/ +aLCLgB12amFN2DNxtMT5vQSoN3f/fYQttTT2uvI7vB8Z1MFK7NWxQvVm/QTc +Sh6qvoENi4Pe+X4koDDh+lQu9p6Yr1OJnwlYGrmWSML2WeQidWcUjxeo0I7C +PhvdvebNVwImbthyA7FvnXviwJogQLd29Ic1dtG2ZlrUFAESPrsZxv/WX/zl +y7FZAgJMkIjav/0T/27L3XkkhJ7miwpgH909JECKknC98g7xCe83t2Vj1ecW +kmDWvG26BXt76oyatQQJHL7cOx42shUcvidNgrdP39gxbC36gnz2ShK0BrWq +bbBX5ixf+V2eBCPjvJjl2P2FGnMX1pDgUNzDDMf103FoXdUPNRKEJ8JJW+zG +NQZH92qRcIv2alAD+0aZ6ScFXRKGQ08Xv8H1GXjH7dmjLSTEGPnoMbE9g7zP +K20jYXNfk+EYrncHfX/jODMSDgx9FavGNn5w+o69JQmKC/MGdmIvacjI/uVE +Al9z/W2v4xQSPJ+/18GVhJBfe9s1sH9uuyZd507C06WeFeM4f7rb7kRd8iHh +Ns3vcQD2lc6XPqohJLxuvk73DMD1ltq9mhdGwv2wz46rsKNt3w/MnCHhRqKR +51ucZz5vx2wao0l4fs+zfTu23tACOJBKwjn/HdOyOB9Vi5bOPE0n4XTC+mPN +OD9ZHisqNLJJEJQJvHsCW+QrW+lvAQnVm5fndOC8fT5hIHH5Jgmpc9ndwb74 +/4gEvG9rI0FelG6W4E0hWebT17MvSJhuD1i4FrttvfwzpQ4SxtXFq1974Xz0 +qrsf3kOC69G+KRls0fbl6TqfSUjYmT2e4EGhgpzbVlmCbDCYsJAy/9d/qsXM +moXZcFXsitqAG86HVw6bpuazYaH/pFEAtv/8+dzdS9ggVZtsmexKoU2HbSRE +5djQzAsiW3B/G9SfavLWZoN6P5UlivthqtX22rR1bDCzmbU5j/vldp+cqgY9 +NqRMk4sXYVfkmRQRhmxYVyLqtcgB1+PCy5EdZmzwujo9T8Ae59FrXdh4kA2R +lbktlTYUOnDk5C3xNDacoT2/4LEDz0/r7a3VmWwwHqi0fI77udgPuL0lhw2d +scZr1mLz/UTvhF1lg9157rzf+Dzw2zeh8mc5G9ZPazuEbqVQsk/h3d5mNrit +LxO2xueJp17tj67/YYPreEbNbl2cByo6tU8FOOBsUnUzbT2FfL+k1g4JcYBV +DDUf8HlmhZfDY5YYBybkYpd561DI2XP4CW8FB07rrGgNxOef34fmGoLVOZAW +kF/gokoh9YNr2rY7cWDbD7XbcSycz4eYPjdcONDXK1hdxKRQjJe0xBJ3Dowd +2HjzIYNCw36zu54d5gDjm37UGJ1C+cHNHbuCOfB6wckaPRlcb5c8+6xTOGAs +cuBmviSF5u6VfHFs5UCMymeRckEKPZNSWRSguwoueNGE2t/ykYG393D6hlUw +0zFb/aCPj0obShtq0SrgDe3JLOnlo9hgzQiJLavgW0Fmf9gbPto+pPOnZPcq +MKlnHyc6+aipyvC/fs9VsDikW1S/lY/qHG3azbNWwQ7L0coX1Xx0tzQ8XUVI +AWzEpbZlJvLRSUFl85Y+BfBfb7LVSpuPxHpPmByuUIQ3zbqBkbwy9PEqwcsO +VoLe19SFtupSxFOSEa6yWg2ZdMqo8+4NFJ/m1uDEUoZFf2y1CmuuI1vevjbx +T8oQ1WC4gFddgqY2FUxn16yBjLY3XtlJ19DAR6PA2igVcJ0Mk4kILkZ5GzXl +Wp1UIesxV7d5cxG6ERkgeVBVDd6FWXtpswpRlNUBU6EJNagtJVKWzBWgtb25 +xVGt6mCITFW+1V1BqavTb7SaaoBU2fH8z/n56NTDi6mmVRrwxXS5Y4N3HjKT +sypo4miC3pmBNXTjXGR4uMFO8rwmJE+0Wo5r5aBsujOnZUITwni3JBSVshDn +cWHyDjstSN0stq+LyEDxqrXKL2u04FUN2n98XRpyGxd+8VSZC0eHntEL1qci +Z+oH63wcFwTeuQoO+iYjr3CL39sSuHBhxEiYdSgZBVhUvBZP5IJ1h3fRPqdk +dG4iIDY+mQv66ERH365kVKo7PZuSyQX7Xz8bvmslo+lHc51XS7hwWSde130i +CcW/FL/4pIELDzxjk+NPJqG0fG/3s0+5kCQmwhL0T0L5/m3GJs1cSFOIMT/q +lYRur4ifaW7jQtEz70L7fUmo11bavb2DCzSbNxrGKAkpDsgY9w9wYbMR8Wq/ +UBLSqDjBuPKRC0pxY+9HZnlIL7Jn2vUTFxbuV0k5/pOHtitm8odHuKBJxQok +f+ShI54sxvfvXKjdzG8aauCh4A2np8vHuWAm3adw6iEPRS7uf+U/wQWmU6yq +TBUPpZblX5ia4gLbU1B/9zUeygsTPlg9g+9/KWT0PY+HSna5GgX/5kKzpPjP +hHQeqiDr5Q3+ckHrpu4ubR4P1YwrTM/NceG/byV7u2J46P8zj4x7 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VN8bB3CyVFJZWgZjZu6dCck+UijnQfVTUspWSAjJEoqikERKsmQs +2ZeEFHOlQqVSlmwtIkILUkjfSmSp/E5/3df79Tp3Oeee5/Mcwtlnt+s8AQEB +MUEBgX/XzFBnUU2XdAMx66i8+g06Bk/aWdttWEGofErac77bMjRXX3OGxTqP +HM9G/O525aDMhxeZIqzLKHrm/ugDV23ktTHA+xezGFUOHgkpcN2E2mfded+Y +VagyVKfM2dUSze/pVxxjPkXmPoM/PFxcUG5Ttt8osxtVO2WpJzv6o9Ky8z1e +aiPoV2aVpIFyJDqIXlz+cmQc/WaM0+tM4tDhj6sHKkqnUfrkzdyVZ3hIjIhQ +fLdeALqaXe/ZFl9GsRLNyrmOQvCaJhxhbJ6FnHssHwi1iIIZ4/ctSV4u8quL +cPZRFIM9QmY5dq/zEeUrbkHbuhhUPQTsTncWoNyTniMaNhIQmsKame4rROHZ +v3f9/CIJMUVRku+yi5FA+3u4d0Ia9EPuNZE6JUjB3y3QUnk5fJ7tsdOpv44G +J1KsF91fAUH1NgtmpUvRto8eIZf8aMAdqf2ZvKsMbQlhX98USIPj2h5BMtZl +yGh575vJUBqQx8ZVL9uWIb3NZuvtYmhAea5TiD9QhpQL1MfZhTS4oOJtbh9Q +hha5/nS/1UsD4b0q/t6pZahlMMSy638y4Pw91uJIbxnaMRi/hsGQBXt7CXNB +NT5qWTP4yp4jCx66AoEN6nxkenRdaLqyLHC7BV1jNPnIZN7b57R1snA1Y22s +1Fo+MmKtOSZtLguKTlvkJTbw0Vr7uocLwmXhnnW96vOtfER/NW01/lEW/oSJ +MFxc+GjksXNY4w050Lb2/dyTxEfMhC6P2Ao5yPR5L3M0hY8sHXZYWd6Vg7Ss +D90LLvNRzZSu8vtGOdhpWiuikcFHl1QlX/0akIPyq2uXeOfxkX7KA0VFWTrw +SKsvuaV8FONBfxZ5lg6LMlP1f9Xx0aN1l6pML9LBJ7DbxrGBjyaFF1yR5NFh +4TE34cZGPnLMHg/MzKVD3NXiJYnNfKT9qom8dY8O6jmPhle+4KO+jUHHBn/Q +oWfLpqbeHj5Sk+yUN94vDxbztz+w+MZHQxeHwpNc5WEj/ZP0ie98lCn269Mn +T3kYsdynnP2Dj8SFaeUxgfIw7K+Y+fEnnv/k3i2dCfKQEmiecWCajwp6+w4f +eiIPDw85SnHmUYhe9PFB3GoGqDZ4+d6RotArziSnX50B+0LoSrelKXQhVzRa +W4cBt4zMr9xcRqGZNEXLbiMG2FXmjVxbQaGui4c+k/YMiPW7REXLUijx6JjE +7VgG5C9abLCUpJAYmnDqHWfAWVtzYVUNCgUaKi24PcMA2TcffFdoUmjI2K40 +TpAJU0odh/9i15o8mjFayoS5DF9mE5dCJ3ZfTCxWZkLvLj8b83UUGnVdVXfM +iQkyb0aNaAYUsnXf42nuzgTvsy2dI9iNHhcklX2YoBTs/PcuotAVn+/7+oKZ +kF66daGtIYXsg+5PGqcyISh0p1TkJgq1xFgpST5jgoevwrKUbRTSizvXNtLB +hGTdnxO7TSlUlHDX/0kvE0ScZrwXb6dQRDLx6PgIE47MWBOhZhRiPJ9U+W8e +C46+HLu8w5xCnd21dVYMFtQMLJ4qsaLQ/8Zsf5FWLFjc5pi5dz+FspadaT+1 +hwX0peZCQ9g/9UvKeu1YsG1Pv6SfI4VyomcPJjvj8Q35q8844fVWzOha6MsC +u+CLJikHKHTdua/qWzQLej0ZXqcOUmhetEiyWSwLnNyu+E1i76FUj1xLYEHR +yjLSy51CIgKhyi6pLPidIXHO4hCFHDIZ6a8LWED7beAq5Ukhia79wTUPWTBK +y080P0wht7moPXJP8PfFLnIvx76nwNcObGBB0od5o1I+FDoUIDCm2YbnJ+/2 +5xl2rVTuvoIe/L79p/bq+VGIpvdUd947Fggpvi1MwD7s9H35/n4W9NTsv/oJ +W45v2EYbZoEDpFbEHaGQv1m/QcwkC1iqp+WeH6VQk7+Y3PA0C0IWpn6j+1OI +laH1a/MfFhw86HPcHbt1JLxsTogAEQfN9FlshXNs1lFJAl7w6kHqGN6PtS6C +tioEOBl1agkGUuib4RvZEHUCQhbkR6zFnv9op3aOFgGB4T633bF1HugdHFpP +gM2JqupmbN5didYjmwlYLDSxLSIIr7fe2aEkEwLilPNyy7AfV83OVZoSsK7i +Vnc39o87Q1pzuwjot637qnyCQjsr7qVecCAgRuwM9QDbjatVXupEQFeiA60f +O7S8sPmFCwGKqkuchU7i5/Mv/V3pSUBoQF6WEfYT9QU0/cME6PcOJDhi95SG +aDr4EWBRW+4egi12w93lynECyGs3H93EJlXehjScwOuBjDe1YuuWWKSMhOD3 +B8mVfMR2LzZo0oggYFjTWUE6mEJhShUDFlEEDNHV9ZWwUwpX/zkWTUBVlODa +Ddj1Bcs07scToPTBv8sR+y0neuv7RALslweE+2FP5M85C6UQEGmpK3UaW5wd +EKyQRkBZxPeoOGxO3kjS1kwC7l9tHcjA3kA4lnnlELCn88+qYmyLnI7GuHwC +3m8t31GB7cE07S+/SoDjbjmHGuzwrIezHcUERNsdsmzATpPXWT59nYDc0RbN +Z9hURokanU+AT/6xyQ7sRjnCBN0kwMAgJa8H+31aspPzbQIaE/brvMeekhE/ +GVlFABErUD6AvfTyaV7RPQIebyxZPoStQPt1o/kBAZ518U6fsA1SvBq+1hKw +wqU/6Z+tV/S/l6wn4MeRF+X/xnsn2cxoPyXA2jWuchA7Ylmr9J4WAviNZoUf +sDMSjVRPPiPg1CaDU33YFVKVW7JeEmCYdgm6sJsTVB0fdRDgXhA8+gK7XyI/ +aLCLgB12amFN2DNxtMT5vQSoN3f/fYQttTT2uvI7vB8Z1MFK7NWxQvVm/QTc +Sh6qvoENi4Pe+X4koDDh+lQu9p6Yr1OJnwlYGrmWSML2WeQidWcUjxeo0I7C +PhvdvebNVwImbthyA7FvnXviwJogQLd29Ic1dtG2ZlrUFAESPrsZxv/WX/zl +y7FZAgJMkIjav/0T/27L3XkkhJ7miwpgH909JECKknC98g7xCe83t2Vj1ecW +kmDWvG26BXt76oyatQQJHL7cOx42shUcvidNgrdP39gxbC36gnz2ShK0BrWq +bbBX5ixf+V2eBCPjvJjl2P2FGnMX1pDgUNzDDMf103FoXdUPNRKEJ8JJW+zG +NQZH92qRcIv2alAD+0aZ6ScFXRKGQ08Xv8H1GXjH7dmjLSTEGPnoMbE9g7zP +K20jYXNfk+EYrncHfX/jODMSDgx9FavGNn5w+o69JQmKC/MGdmIvacjI/uVE +Al9z/W2v4xQSPJ+/18GVhJBfe9s1sH9uuyZd507C06WeFeM4f7rb7kRd8iHh +Ns3vcQD2lc6XPqohJLxuvk73DMD1ltq9mhdGwv2wz46rsKNt3w/MnCHhRqKR +51ucZz5vx2wao0l4fs+zfTu23tACOJBKwjn/HdOyOB9Vi5bOPE0n4XTC+mPN +OD9ZHisqNLJJEJQJvHsCW+QrW+lvAQnVm5fndOC8fT5hIHH5Jgmpc9ndwb74 +/4gEvG9rI0FelG6W4E0hWebT17MvSJhuD1i4FrttvfwzpQ4SxtXFq1974Xz0 +qrsf3kOC69G+KRls0fbl6TqfSUjYmT2e4EGhgpzbVlmCbDCYsJAy/9d/qsXM +moXZcFXsitqAG86HVw6bpuazYaH/pFEAtv/8+dzdS9ggVZtsmexKoU2HbSRE +5djQzAsiW3B/G9SfavLWZoN6P5UlivthqtX22rR1bDCzmbU5j/vldp+cqgY9 +NqRMk4sXYVfkmRQRhmxYVyLqtcgB1+PCy5EdZmzwujo9T8Ae59FrXdh4kA2R +lbktlTYUOnDk5C3xNDacoT2/4LEDz0/r7a3VmWwwHqi0fI77udgPuL0lhw2d +scZr1mLz/UTvhF1lg9157rzf+Dzw2zeh8mc5G9ZPazuEbqVQsk/h3d5mNrit +LxO2xueJp17tj67/YYPreEbNbl2cByo6tU8FOOBsUnUzbT2FfL+k1g4JcYBV +DDUf8HlmhZfDY5YYBybkYpd561DI2XP4CW8FB07rrGgNxOef34fmGoLVOZAW +kF/gokoh9YNr2rY7cWDbD7XbcSycz4eYPjdcONDXK1hdxKRQjJe0xBJ3Dowd +2HjzIYNCw36zu54d5gDjm37UGJ1C+cHNHbuCOfB6wckaPRlcb5c8+6xTOGAs +cuBmviSF5u6VfHFs5UCMymeRckEKPZNSWRSguwoueNGE2t/ykYG393D6hlUw +0zFb/aCPj0obShtq0SrgDe3JLOnlo9hgzQiJLavgW0Fmf9gbPto+pPOnZPcq +MKlnHyc6+aipyvC/fs9VsDikW1S/lY/qHG3azbNWwQ7L0coX1Xx0tzQ8XUVI +AWzEpbZlJvLRSUFl85Y+BfBfb7LVSpuPxHpPmByuUIQ3zbqBkbwy9PEqwcsO +VoLe19SFtupSxFOSEa6yWg2ZdMqo8+4NFJ/m1uDEUoZFf2y1CmuuI1vevjbx +T8oQ1WC4gFddgqY2FUxn16yBjLY3XtlJ19DAR6PA2igVcJ0Mk4kILkZ5GzXl +Wp1UIesxV7d5cxG6ERkgeVBVDd6FWXtpswpRlNUBU6EJNagtJVKWzBWgtb25 +xVGt6mCITFW+1V1BqavTb7SaaoBU2fH8z/n56NTDi6mmVRrwxXS5Y4N3HjKT +sypo4miC3pmBNXTjXGR4uMFO8rwmJE+0Wo5r5aBsujOnZUITwni3JBSVshDn +cWHyDjstSN0stq+LyEDxqrXKL2u04FUN2n98XRpyGxd+8VSZC0eHntEL1qci +Z+oH63wcFwTeuQoO+iYjr3CL39sSuHBhxEiYdSgZBVhUvBZP5IJ1h3fRPqdk +dG4iIDY+mQv66ERH365kVKo7PZuSyQX7Xz8bvmslo+lHc51XS7hwWSde130i +CcW/FL/4pIELDzxjk+NPJqG0fG/3s0+5kCQmwhL0T0L5/m3GJs1cSFOIMT/q +lYRur4ifaW7jQtEz70L7fUmo11bavb2DCzSbNxrGKAkpDsgY9w9wYbMR8Wq/ +UBLSqDjBuPKRC0pxY+9HZnlIL7Jn2vUTFxbuV0k5/pOHtitm8odHuKBJxQok +f+ShI54sxvfvXKjdzG8aauCh4A2np8vHuWAm3adw6iEPRS7uf+U/wQWmU6yq +TBUPpZblX5ia4gLbU1B/9zUeygsTPlg9g+9/KWT0PY+HSna5GgX/5kKzpPjP +hHQeqiDr5Q3+ckHrpu4ubR4P1YwrTM/NceG/byV7u2J46P8zj4x7 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.0683121434143604}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.0683121434143604}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VN8bB3CyVFJZWgZjZu6dCck+UijnQfVTUspWSAjJEoqikERKsmQs +2ZeEFHOlQqVSlmwtIkILUkjfSmSp/E5/3df79Tp3Oeee5/Mcwtlnt+s8AQEB +MUEBgX/XzFBnUU2XdAMx66i8+g06Bk/aWdttWEGofErac77bMjRXX3OGxTqP +HM9G/O525aDMhxeZIqzLKHrm/ugDV23ktTHA+xezGFUOHgkpcN2E2mfded+Y +VagyVKfM2dUSze/pVxxjPkXmPoM/PFxcUG5Ttt8osxtVO2WpJzv6o9Ky8z1e +aiPoV2aVpIFyJDqIXlz+cmQc/WaM0+tM4tDhj6sHKkqnUfrkzdyVZ3hIjIhQ +fLdeALqaXe/ZFl9GsRLNyrmOQvCaJhxhbJ6FnHssHwi1iIIZ4/ctSV4u8quL +cPZRFIM9QmY5dq/zEeUrbkHbuhhUPQTsTncWoNyTniMaNhIQmsKame4rROHZ +v3f9/CIJMUVRku+yi5FA+3u4d0Ia9EPuNZE6JUjB3y3QUnk5fJ7tsdOpv44G +J1KsF91fAUH1NgtmpUvRto8eIZf8aMAdqf2ZvKsMbQlhX98USIPj2h5BMtZl +yGh575vJUBqQx8ZVL9uWIb3NZuvtYmhAea5TiD9QhpQL1MfZhTS4oOJtbh9Q +hha5/nS/1UsD4b0q/t6pZahlMMSy638y4Pw91uJIbxnaMRi/hsGQBXt7CXNB +NT5qWTP4yp4jCx66AoEN6nxkenRdaLqyLHC7BV1jNPnIZN7b57R1snA1Y22s +1Fo+MmKtOSZtLguKTlvkJTbw0Vr7uocLwmXhnnW96vOtfER/NW01/lEW/oSJ +MFxc+GjksXNY4w050Lb2/dyTxEfMhC6P2Ao5yPR5L3M0hY8sHXZYWd6Vg7Ss +D90LLvNRzZSu8vtGOdhpWiuikcFHl1QlX/0akIPyq2uXeOfxkX7KA0VFWTrw +SKsvuaV8FONBfxZ5lg6LMlP1f9Xx0aN1l6pML9LBJ7DbxrGBjyaFF1yR5NFh +4TE34cZGPnLMHg/MzKVD3NXiJYnNfKT9qom8dY8O6jmPhle+4KO+jUHHBn/Q +oWfLpqbeHj5Sk+yUN94vDxbztz+w+MZHQxeHwpNc5WEj/ZP0ie98lCn269Mn +T3kYsdynnP2Dj8SFaeUxgfIw7K+Y+fEnnv/k3i2dCfKQEmiecWCajwp6+w4f +eiIPDw85SnHmUYhe9PFB3GoGqDZ4+d6RotArziSnX50B+0LoSrelKXQhVzRa +W4cBt4zMr9xcRqGZNEXLbiMG2FXmjVxbQaGui4c+k/YMiPW7REXLUijx6JjE +7VgG5C9abLCUpJAYmnDqHWfAWVtzYVUNCgUaKi24PcMA2TcffFdoUmjI2K40 +TpAJU0odh/9i15o8mjFayoS5DF9mE5dCJ3ZfTCxWZkLvLj8b83UUGnVdVXfM +iQkyb0aNaAYUsnXf42nuzgTvsy2dI9iNHhcklX2YoBTs/PcuotAVn+/7+oKZ +kF66daGtIYXsg+5PGqcyISh0p1TkJgq1xFgpST5jgoevwrKUbRTSizvXNtLB +hGTdnxO7TSlUlHDX/0kvE0ScZrwXb6dQRDLx6PgIE47MWBOhZhRiPJ9U+W8e +C46+HLu8w5xCnd21dVYMFtQMLJ4qsaLQ/8Zsf5FWLFjc5pi5dz+FspadaT+1 +hwX0peZCQ9g/9UvKeu1YsG1Pv6SfI4VyomcPJjvj8Q35q8844fVWzOha6MsC +u+CLJikHKHTdua/qWzQLej0ZXqcOUmhetEiyWSwLnNyu+E1i76FUj1xLYEHR +yjLSy51CIgKhyi6pLPidIXHO4hCFHDIZ6a8LWED7beAq5Ukhia79wTUPWTBK +y080P0wht7moPXJP8PfFLnIvx76nwNcObGBB0od5o1I+FDoUIDCm2YbnJ+/2 +5xl2rVTuvoIe/L79p/bq+VGIpvdUd947Fggpvi1MwD7s9H35/n4W9NTsv/oJ +W45v2EYbZoEDpFbEHaGQv1m/QcwkC1iqp+WeH6VQk7+Y3PA0C0IWpn6j+1OI +laH1a/MfFhw86HPcHbt1JLxsTogAEQfN9FlshXNs1lFJAl7w6kHqGN6PtS6C +tioEOBl1agkGUuib4RvZEHUCQhbkR6zFnv9op3aOFgGB4T633bF1HugdHFpP +gM2JqupmbN5didYjmwlYLDSxLSIIr7fe2aEkEwLilPNyy7AfV83OVZoSsK7i +Vnc39o87Q1pzuwjot637qnyCQjsr7qVecCAgRuwM9QDbjatVXupEQFeiA60f +O7S8sPmFCwGKqkuchU7i5/Mv/V3pSUBoQF6WEfYT9QU0/cME6PcOJDhi95SG +aDr4EWBRW+4egi12w93lynECyGs3H93EJlXehjScwOuBjDe1YuuWWKSMhOD3 +B8mVfMR2LzZo0oggYFjTWUE6mEJhShUDFlEEDNHV9ZWwUwpX/zkWTUBVlODa +Ddj1Bcs07scToPTBv8sR+y0neuv7RALslweE+2FP5M85C6UQEGmpK3UaW5wd +EKyQRkBZxPeoOGxO3kjS1kwC7l9tHcjA3kA4lnnlELCn88+qYmyLnI7GuHwC +3m8t31GB7cE07S+/SoDjbjmHGuzwrIezHcUERNsdsmzATpPXWT59nYDc0RbN +Z9hURokanU+AT/6xyQ7sRjnCBN0kwMAgJa8H+31aspPzbQIaE/brvMeekhE/ +GVlFABErUD6AvfTyaV7RPQIebyxZPoStQPt1o/kBAZ518U6fsA1SvBq+1hKw +wqU/6Z+tV/S/l6wn4MeRF+X/xnsn2cxoPyXA2jWuchA7Ylmr9J4WAviNZoUf +sDMSjVRPPiPg1CaDU33YFVKVW7JeEmCYdgm6sJsTVB0fdRDgXhA8+gK7XyI/ +aLCLgB12amFN2DNxtMT5vQSoN3f/fYQttTT2uvI7vB8Z1MFK7NWxQvVm/QTc +Sh6qvoENi4Pe+X4koDDh+lQu9p6Yr1OJnwlYGrmWSML2WeQidWcUjxeo0I7C +PhvdvebNVwImbthyA7FvnXviwJogQLd29Ic1dtG2ZlrUFAESPrsZxv/WX/zl +y7FZAgJMkIjav/0T/27L3XkkhJ7miwpgH909JECKknC98g7xCe83t2Vj1ecW +kmDWvG26BXt76oyatQQJHL7cOx42shUcvidNgrdP39gxbC36gnz2ShK0BrWq +bbBX5ixf+V2eBCPjvJjl2P2FGnMX1pDgUNzDDMf103FoXdUPNRKEJ8JJW+zG +NQZH92qRcIv2alAD+0aZ6ScFXRKGQ08Xv8H1GXjH7dmjLSTEGPnoMbE9g7zP +K20jYXNfk+EYrncHfX/jODMSDgx9FavGNn5w+o69JQmKC/MGdmIvacjI/uVE +Al9z/W2v4xQSPJ+/18GVhJBfe9s1sH9uuyZd507C06WeFeM4f7rb7kRd8iHh +Ns3vcQD2lc6XPqohJLxuvk73DMD1ltq9mhdGwv2wz46rsKNt3w/MnCHhRqKR +51ucZz5vx2wao0l4fs+zfTu23tACOJBKwjn/HdOyOB9Vi5bOPE0n4XTC+mPN +OD9ZHisqNLJJEJQJvHsCW+QrW+lvAQnVm5fndOC8fT5hIHH5Jgmpc9ndwb74 +/4gEvG9rI0FelG6W4E0hWebT17MvSJhuD1i4FrttvfwzpQ4SxtXFq1974Xz0 +qrsf3kOC69G+KRls0fbl6TqfSUjYmT2e4EGhgpzbVlmCbDCYsJAy/9d/qsXM +moXZcFXsitqAG86HVw6bpuazYaH/pFEAtv/8+dzdS9ggVZtsmexKoU2HbSRE +5djQzAsiW3B/G9SfavLWZoN6P5UlivthqtX22rR1bDCzmbU5j/vldp+cqgY9 +NqRMk4sXYVfkmRQRhmxYVyLqtcgB1+PCy5EdZmzwujo9T8Ae59FrXdh4kA2R +lbktlTYUOnDk5C3xNDacoT2/4LEDz0/r7a3VmWwwHqi0fI77udgPuL0lhw2d +scZr1mLz/UTvhF1lg9157rzf+Dzw2zeh8mc5G9ZPazuEbqVQsk/h3d5mNrit +LxO2xueJp17tj67/YYPreEbNbl2cByo6tU8FOOBsUnUzbT2FfL+k1g4JcYBV +DDUf8HlmhZfDY5YYBybkYpd561DI2XP4CW8FB07rrGgNxOef34fmGoLVOZAW +kF/gokoh9YNr2rY7cWDbD7XbcSycz4eYPjdcONDXK1hdxKRQjJe0xBJ3Dowd +2HjzIYNCw36zu54d5gDjm37UGJ1C+cHNHbuCOfB6wckaPRlcb5c8+6xTOGAs +cuBmviSF5u6VfHFs5UCMymeRckEKPZNSWRSguwoueNGE2t/ykYG393D6hlUw +0zFb/aCPj0obShtq0SrgDe3JLOnlo9hgzQiJLavgW0Fmf9gbPto+pPOnZPcq +MKlnHyc6+aipyvC/fs9VsDikW1S/lY/qHG3azbNWwQ7L0coX1Xx0tzQ8XUVI +AWzEpbZlJvLRSUFl85Y+BfBfb7LVSpuPxHpPmByuUIQ3zbqBkbwy9PEqwcsO +VoLe19SFtupSxFOSEa6yWg2ZdMqo8+4NFJ/m1uDEUoZFf2y1CmuuI1vevjbx +T8oQ1WC4gFddgqY2FUxn16yBjLY3XtlJ19DAR6PA2igVcJ0Mk4kILkZ5GzXl +Wp1UIesxV7d5cxG6ERkgeVBVDd6FWXtpswpRlNUBU6EJNagtJVKWzBWgtb25 +xVGt6mCITFW+1V1BqavTb7SaaoBU2fH8z/n56NTDi6mmVRrwxXS5Y4N3HjKT +sypo4miC3pmBNXTjXGR4uMFO8rwmJE+0Wo5r5aBsujOnZUITwni3JBSVshDn +cWHyDjstSN0stq+LyEDxqrXKL2u04FUN2n98XRpyGxd+8VSZC0eHntEL1qci +Z+oH63wcFwTeuQoO+iYjr3CL39sSuHBhxEiYdSgZBVhUvBZP5IJ1h3fRPqdk +dG4iIDY+mQv66ERH365kVKo7PZuSyQX7Xz8bvmslo+lHc51XS7hwWSde130i +CcW/FL/4pIELDzxjk+NPJqG0fG/3s0+5kCQmwhL0T0L5/m3GJs1cSFOIMT/q +lYRur4ifaW7jQtEz70L7fUmo11bavb2DCzSbNxrGKAkpDsgY9w9wYbMR8Wq/ +UBLSqDjBuPKRC0pxY+9HZnlIL7Jn2vUTFxbuV0k5/pOHtitm8odHuKBJxQok +f+ShI54sxvfvXKjdzG8aauCh4A2np8vHuWAm3adw6iEPRS7uf+U/wQWmU6yq +TBUPpZblX5ia4gLbU1B/9zUeygsTPlg9g+9/KWT0PY+HSna5GgX/5kKzpPjP +hHQeqiDr5Q3+ckHrpu4ubR4P1YwrTM/NceG/byV7u2J46P8zj4x7 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.0683121434143604}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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, 20}, {0., 0.0683121434143604}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991327033758711*^9, 3.992118227062689*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"e250ce20-148b-d34b-8bc2-4492c9bb0167"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917971206132183`*^9, 3.9917971229936733`*^9}}, + CellLabel-> + "In[147]:=",ExpressionUUID->"715f943f-d061-fa48-bb45-20a62a80a7df"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk8VN8bB3CyVFJZWgZjZu6dCck+UijnQfVTUspWSAjJEoqikERKsmQs +2ZeEFHOlQqVSlmwtIkILUkjfSmSp/E5/3df79Tp3Oeee5/Mcwtlnt+s8AQEB +MUEBgX/XzFBnUU2XdAMx66i8+g06Bk/aWdttWEGofErac77bMjRXX3OGxTqP +HM9G/O525aDMhxeZIqzLKHrm/ugDV23ktTHA+xezGFUOHgkpcN2E2mfded+Y +VagyVKfM2dUSze/pVxxjPkXmPoM/PFxcUG5Ttt8osxtVO2WpJzv6o9Ky8z1e +aiPoV2aVpIFyJDqIXlz+cmQc/WaM0+tM4tDhj6sHKkqnUfrkzdyVZ3hIjIhQ +fLdeALqaXe/ZFl9GsRLNyrmOQvCaJhxhbJ6FnHssHwi1iIIZ4/ctSV4u8quL +cPZRFIM9QmY5dq/zEeUrbkHbuhhUPQTsTncWoNyTniMaNhIQmsKame4rROHZ +v3f9/CIJMUVRku+yi5FA+3u4d0Ia9EPuNZE6JUjB3y3QUnk5fJ7tsdOpv44G +J1KsF91fAUH1NgtmpUvRto8eIZf8aMAdqf2ZvKsMbQlhX98USIPj2h5BMtZl +yGh575vJUBqQx8ZVL9uWIb3NZuvtYmhAea5TiD9QhpQL1MfZhTS4oOJtbh9Q +hha5/nS/1UsD4b0q/t6pZahlMMSy638y4Pw91uJIbxnaMRi/hsGQBXt7CXNB +NT5qWTP4yp4jCx66AoEN6nxkenRdaLqyLHC7BV1jNPnIZN7b57R1snA1Y22s +1Fo+MmKtOSZtLguKTlvkJTbw0Vr7uocLwmXhnnW96vOtfER/NW01/lEW/oSJ +MFxc+GjksXNY4w050Lb2/dyTxEfMhC6P2Ao5yPR5L3M0hY8sHXZYWd6Vg7Ss +D90LLvNRzZSu8vtGOdhpWiuikcFHl1QlX/0akIPyq2uXeOfxkX7KA0VFWTrw +SKsvuaV8FONBfxZ5lg6LMlP1f9Xx0aN1l6pML9LBJ7DbxrGBjyaFF1yR5NFh +4TE34cZGPnLMHg/MzKVD3NXiJYnNfKT9qom8dY8O6jmPhle+4KO+jUHHBn/Q +oWfLpqbeHj5Sk+yUN94vDxbztz+w+MZHQxeHwpNc5WEj/ZP0ie98lCn269Mn +T3kYsdynnP2Dj8SFaeUxgfIw7K+Y+fEnnv/k3i2dCfKQEmiecWCajwp6+w4f +eiIPDw85SnHmUYhe9PFB3GoGqDZ4+d6RotArziSnX50B+0LoSrelKXQhVzRa +W4cBt4zMr9xcRqGZNEXLbiMG2FXmjVxbQaGui4c+k/YMiPW7REXLUijx6JjE +7VgG5C9abLCUpJAYmnDqHWfAWVtzYVUNCgUaKi24PcMA2TcffFdoUmjI2K40 +TpAJU0odh/9i15o8mjFayoS5DF9mE5dCJ3ZfTCxWZkLvLj8b83UUGnVdVXfM +iQkyb0aNaAYUsnXf42nuzgTvsy2dI9iNHhcklX2YoBTs/PcuotAVn+/7+oKZ +kF66daGtIYXsg+5PGqcyISh0p1TkJgq1xFgpST5jgoevwrKUbRTSizvXNtLB +hGTdnxO7TSlUlHDX/0kvE0ScZrwXb6dQRDLx6PgIE47MWBOhZhRiPJ9U+W8e +C46+HLu8w5xCnd21dVYMFtQMLJ4qsaLQ/8Zsf5FWLFjc5pi5dz+FspadaT+1 +hwX0peZCQ9g/9UvKeu1YsG1Pv6SfI4VyomcPJjvj8Q35q8844fVWzOha6MsC +u+CLJikHKHTdua/qWzQLej0ZXqcOUmhetEiyWSwLnNyu+E1i76FUj1xLYEHR +yjLSy51CIgKhyi6pLPidIXHO4hCFHDIZ6a8LWED7beAq5Ukhia79wTUPWTBK +y080P0wht7moPXJP8PfFLnIvx76nwNcObGBB0od5o1I+FDoUIDCm2YbnJ+/2 +5xl2rVTuvoIe/L79p/bq+VGIpvdUd947Fggpvi1MwD7s9H35/n4W9NTsv/oJ +W45v2EYbZoEDpFbEHaGQv1m/QcwkC1iqp+WeH6VQk7+Y3PA0C0IWpn6j+1OI +laH1a/MfFhw86HPcHbt1JLxsTogAEQfN9FlshXNs1lFJAl7w6kHqGN6PtS6C +tioEOBl1agkGUuib4RvZEHUCQhbkR6zFnv9op3aOFgGB4T633bF1HugdHFpP +gM2JqupmbN5didYjmwlYLDSxLSIIr7fe2aEkEwLilPNyy7AfV83OVZoSsK7i +Vnc39o87Q1pzuwjot637qnyCQjsr7qVecCAgRuwM9QDbjatVXupEQFeiA60f +O7S8sPmFCwGKqkuchU7i5/Mv/V3pSUBoQF6WEfYT9QU0/cME6PcOJDhi95SG +aDr4EWBRW+4egi12w93lynECyGs3H93EJlXehjScwOuBjDe1YuuWWKSMhOD3 +B8mVfMR2LzZo0oggYFjTWUE6mEJhShUDFlEEDNHV9ZWwUwpX/zkWTUBVlODa +Ddj1Bcs07scToPTBv8sR+y0neuv7RALslweE+2FP5M85C6UQEGmpK3UaW5wd +EKyQRkBZxPeoOGxO3kjS1kwC7l9tHcjA3kA4lnnlELCn88+qYmyLnI7GuHwC +3m8t31GB7cE07S+/SoDjbjmHGuzwrIezHcUERNsdsmzATpPXWT59nYDc0RbN +Z9hURokanU+AT/6xyQ7sRjnCBN0kwMAgJa8H+31aspPzbQIaE/brvMeekhE/ +GVlFABErUD6AvfTyaV7RPQIebyxZPoStQPt1o/kBAZ518U6fsA1SvBq+1hKw +wqU/6Z+tV/S/l6wn4MeRF+X/xnsn2cxoPyXA2jWuchA7Ylmr9J4WAviNZoUf +sDMSjVRPPiPg1CaDU33YFVKVW7JeEmCYdgm6sJsTVB0fdRDgXhA8+gK7XyI/ +aLCLgB12amFN2DNxtMT5vQSoN3f/fYQttTT2uvI7vB8Z1MFK7NWxQvVm/QTc +Sh6qvoENi4Pe+X4koDDh+lQu9p6Yr1OJnwlYGrmWSML2WeQidWcUjxeo0I7C +PhvdvebNVwImbthyA7FvnXviwJogQLd29Ic1dtG2ZlrUFAESPrsZxv/WX/zl +y7FZAgJMkIjav/0T/27L3XkkhJ7miwpgH909JECKknC98g7xCe83t2Vj1ecW +kmDWvG26BXt76oyatQQJHL7cOx42shUcvidNgrdP39gxbC36gnz2ShK0BrWq +bbBX5ixf+V2eBCPjvJjl2P2FGnMX1pDgUNzDDMf103FoXdUPNRKEJ8JJW+zG +NQZH92qRcIv2alAD+0aZ6ScFXRKGQ08Xv8H1GXjH7dmjLSTEGPnoMbE9g7zP +K20jYXNfk+EYrncHfX/jODMSDgx9FavGNn5w+o69JQmKC/MGdmIvacjI/uVE +Al9z/W2v4xQSPJ+/18GVhJBfe9s1sH9uuyZd507C06WeFeM4f7rb7kRd8iHh +Ns3vcQD2lc6XPqohJLxuvk73DMD1ltq9mhdGwv2wz46rsKNt3w/MnCHhRqKR +51ucZz5vx2wao0l4fs+zfTu23tACOJBKwjn/HdOyOB9Vi5bOPE0n4XTC+mPN +OD9ZHisqNLJJEJQJvHsCW+QrW+lvAQnVm5fndOC8fT5hIHH5Jgmpc9ndwb74 +/4gEvG9rI0FelG6W4E0hWebT17MvSJhuD1i4FrttvfwzpQ4SxtXFq1974Xz0 +qrsf3kOC69G+KRls0fbl6TqfSUjYmT2e4EGhgpzbVlmCbDCYsJAy/9d/qsXM +moXZcFXsitqAG86HVw6bpuazYaH/pFEAtv/8+dzdS9ggVZtsmexKoU2HbSRE +5djQzAsiW3B/G9SfavLWZoN6P5UlivthqtX22rR1bDCzmbU5j/vldp+cqgY9 +NqRMk4sXYVfkmRQRhmxYVyLqtcgB1+PCy5EdZmzwujo9T8Ae59FrXdh4kA2R +lbktlTYUOnDk5C3xNDacoT2/4LEDz0/r7a3VmWwwHqi0fI77udgPuL0lhw2d +scZr1mLz/UTvhF1lg9157rzf+Dzw2zeh8mc5G9ZPazuEbqVQsk/h3d5mNrit +LxO2xueJp17tj67/YYPreEbNbl2cByo6tU8FOOBsUnUzbT2FfL+k1g4JcYBV +DDUf8HlmhZfDY5YYBybkYpd561DI2XP4CW8FB07rrGgNxOef34fmGoLVOZAW +kF/gokoh9YNr2rY7cWDbD7XbcSycz4eYPjdcONDXK1hdxKRQjJe0xBJ3Dowd +2HjzIYNCw36zu54d5gDjm37UGJ1C+cHNHbuCOfB6wckaPRlcb5c8+6xTOGAs +cuBmviSF5u6VfHFs5UCMymeRckEKPZNSWRSguwoueNGE2t/ykYG393D6hlUw +0zFb/aCPj0obShtq0SrgDe3JLOnlo9hgzQiJLavgW0Fmf9gbPto+pPOnZPcq +MKlnHyc6+aipyvC/fs9VsDikW1S/lY/qHG3azbNWwQ7L0coX1Xx0tzQ8XUVI +AWzEpbZlJvLRSUFl85Y+BfBfb7LVSpuPxHpPmByuUIQ3zbqBkbwy9PEqwcsO +VoLe19SFtupSxFOSEa6yWg2ZdMqo8+4NFJ/m1uDEUoZFf2y1CmuuI1vevjbx +T8oQ1WC4gFddgqY2FUxn16yBjLY3XtlJ19DAR6PA2igVcJ0Mk4kILkZ5GzXl +Wp1UIesxV7d5cxG6ERkgeVBVDd6FWXtpswpRlNUBU6EJNagtJVKWzBWgtb25 +xVGt6mCITFW+1V1BqavTb7SaaoBU2fH8z/n56NTDi6mmVRrwxXS5Y4N3HjKT +sypo4miC3pmBNXTjXGR4uMFO8rwmJE+0Wo5r5aBsujOnZUITwni3JBSVshDn +cWHyDjstSN0stq+LyEDxqrXKL2u04FUN2n98XRpyGxd+8VSZC0eHntEL1qci +Z+oH63wcFwTeuQoO+iYjr3CL39sSuHBhxEiYdSgZBVhUvBZP5IJ1h3fRPqdk +dG4iIDY+mQv66ERH365kVKo7PZuSyQX7Xz8bvmslo+lHc51XS7hwWSde130i +CcW/FL/4pIELDzxjk+NPJqG0fG/3s0+5kCQmwhL0T0L5/m3GJs1cSFOIMT/q +lYRur4ifaW7jQtEz70L7fUmo11bavb2DCzSbNxrGKAkpDsgY9w9wYbMR8Wq/ +UBLSqDjBuPKRC0pxY+9HZnlIL7Jn2vUTFxbuV0k5/pOHtitm8odHuKBJxQok +f+ShI54sxvfvXKjdzG8aauCh4A2np8vHuWAm3adw6iEPRS7uf+U/wQWmU6yq +TBUPpZblX5ia4gLbU1B/9zUeygsTPlg9g+9/KWT0PY+HSna5GgX/5kKzpPjP +hHQeqiDr5Q3+ckHrpu4ubR4P1YwrTM/NceG/byV7u2J46P8zj4x7 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VN8bB3CyVFJZWgZjZu6dCck+UijnQfVTUspWSAjJEoqikERKsmQs +2ZeEFHOlQqVSlmwtIkILUkjfSmSp/E5/3df79Tp3Oeee5/Mcwtlnt+s8AQEB +MUEBgX/XzFBnUU2XdAMx66i8+g06Bk/aWdttWEGofErac77bMjRXX3OGxTqP +HM9G/O525aDMhxeZIqzLKHrm/ugDV23ktTHA+xezGFUOHgkpcN2E2mfded+Y +VagyVKfM2dUSze/pVxxjPkXmPoM/PFxcUG5Ttt8osxtVO2WpJzv6o9Ky8z1e +aiPoV2aVpIFyJDqIXlz+cmQc/WaM0+tM4tDhj6sHKkqnUfrkzdyVZ3hIjIhQ +fLdeALqaXe/ZFl9GsRLNyrmOQvCaJhxhbJ6FnHssHwi1iIIZ4/ctSV4u8quL +cPZRFIM9QmY5dq/zEeUrbkHbuhhUPQTsTncWoNyTniMaNhIQmsKame4rROHZ +v3f9/CIJMUVRku+yi5FA+3u4d0Ia9EPuNZE6JUjB3y3QUnk5fJ7tsdOpv44G +J1KsF91fAUH1NgtmpUvRto8eIZf8aMAdqf2ZvKsMbQlhX98USIPj2h5BMtZl +yGh575vJUBqQx8ZVL9uWIb3NZuvtYmhAea5TiD9QhpQL1MfZhTS4oOJtbh9Q +hha5/nS/1UsD4b0q/t6pZahlMMSy638y4Pw91uJIbxnaMRi/hsGQBXt7CXNB +NT5qWTP4yp4jCx66AoEN6nxkenRdaLqyLHC7BV1jNPnIZN7b57R1snA1Y22s +1Fo+MmKtOSZtLguKTlvkJTbw0Vr7uocLwmXhnnW96vOtfER/NW01/lEW/oSJ +MFxc+GjksXNY4w050Lb2/dyTxEfMhC6P2Ao5yPR5L3M0hY8sHXZYWd6Vg7Ss +D90LLvNRzZSu8vtGOdhpWiuikcFHl1QlX/0akIPyq2uXeOfxkX7KA0VFWTrw +SKsvuaV8FONBfxZ5lg6LMlP1f9Xx0aN1l6pML9LBJ7DbxrGBjyaFF1yR5NFh +4TE34cZGPnLMHg/MzKVD3NXiJYnNfKT9qom8dY8O6jmPhle+4KO+jUHHBn/Q +oWfLpqbeHj5Sk+yUN94vDxbztz+w+MZHQxeHwpNc5WEj/ZP0ie98lCn269Mn +T3kYsdynnP2Dj8SFaeUxgfIw7K+Y+fEnnv/k3i2dCfKQEmiecWCajwp6+w4f +eiIPDw85SnHmUYhe9PFB3GoGqDZ4+d6RotArziSnX50B+0LoSrelKXQhVzRa +W4cBt4zMr9xcRqGZNEXLbiMG2FXmjVxbQaGui4c+k/YMiPW7REXLUijx6JjE +7VgG5C9abLCUpJAYmnDqHWfAWVtzYVUNCgUaKi24PcMA2TcffFdoUmjI2K40 +TpAJU0odh/9i15o8mjFayoS5DF9mE5dCJ3ZfTCxWZkLvLj8b83UUGnVdVXfM +iQkyb0aNaAYUsnXf42nuzgTvsy2dI9iNHhcklX2YoBTs/PcuotAVn+/7+oKZ +kF66daGtIYXsg+5PGqcyISh0p1TkJgq1xFgpST5jgoevwrKUbRTSizvXNtLB +hGTdnxO7TSlUlHDX/0kvE0ScZrwXb6dQRDLx6PgIE47MWBOhZhRiPJ9U+W8e +C46+HLu8w5xCnd21dVYMFtQMLJ4qsaLQ/8Zsf5FWLFjc5pi5dz+FspadaT+1 +hwX0peZCQ9g/9UvKeu1YsG1Pv6SfI4VyomcPJjvj8Q35q8844fVWzOha6MsC +u+CLJikHKHTdua/qWzQLej0ZXqcOUmhetEiyWSwLnNyu+E1i76FUj1xLYEHR +yjLSy51CIgKhyi6pLPidIXHO4hCFHDIZ6a8LWED7beAq5Ukhia79wTUPWTBK +y080P0wht7moPXJP8PfFLnIvx76nwNcObGBB0od5o1I+FDoUIDCm2YbnJ+/2 +5xl2rVTuvoIe/L79p/bq+VGIpvdUd947Fggpvi1MwD7s9H35/n4W9NTsv/oJ +W45v2EYbZoEDpFbEHaGQv1m/QcwkC1iqp+WeH6VQk7+Y3PA0C0IWpn6j+1OI +laH1a/MfFhw86HPcHbt1JLxsTogAEQfN9FlshXNs1lFJAl7w6kHqGN6PtS6C +tioEOBl1agkGUuib4RvZEHUCQhbkR6zFnv9op3aOFgGB4T633bF1HugdHFpP +gM2JqupmbN5didYjmwlYLDSxLSIIr7fe2aEkEwLilPNyy7AfV83OVZoSsK7i +Vnc39o87Q1pzuwjot637qnyCQjsr7qVecCAgRuwM9QDbjatVXupEQFeiA60f +O7S8sPmFCwGKqkuchU7i5/Mv/V3pSUBoQF6WEfYT9QU0/cME6PcOJDhi95SG +aDr4EWBRW+4egi12w93lynECyGs3H93EJlXehjScwOuBjDe1YuuWWKSMhOD3 +B8mVfMR2LzZo0oggYFjTWUE6mEJhShUDFlEEDNHV9ZWwUwpX/zkWTUBVlODa +Ddj1Bcs07scToPTBv8sR+y0neuv7RALslweE+2FP5M85C6UQEGmpK3UaW5wd +EKyQRkBZxPeoOGxO3kjS1kwC7l9tHcjA3kA4lnnlELCn88+qYmyLnI7GuHwC +3m8t31GB7cE07S+/SoDjbjmHGuzwrIezHcUERNsdsmzATpPXWT59nYDc0RbN +Z9hURokanU+AT/6xyQ7sRjnCBN0kwMAgJa8H+31aspPzbQIaE/brvMeekhE/ +GVlFABErUD6AvfTyaV7RPQIebyxZPoStQPt1o/kBAZ518U6fsA1SvBq+1hKw +wqU/6Z+tV/S/l6wn4MeRF+X/xnsn2cxoPyXA2jWuchA7Ylmr9J4WAviNZoUf +sDMSjVRPPiPg1CaDU33YFVKVW7JeEmCYdgm6sJsTVB0fdRDgXhA8+gK7XyI/ +aLCLgB12amFN2DNxtMT5vQSoN3f/fYQttTT2uvI7vB8Z1MFK7NWxQvVm/QTc +Sh6qvoENi4Pe+X4koDDh+lQu9p6Yr1OJnwlYGrmWSML2WeQidWcUjxeo0I7C +PhvdvebNVwImbthyA7FvnXviwJogQLd29Ic1dtG2ZlrUFAESPrsZxv/WX/zl +y7FZAgJMkIjav/0T/27L3XkkhJ7miwpgH909JECKknC98g7xCe83t2Vj1ecW +kmDWvG26BXt76oyatQQJHL7cOx42shUcvidNgrdP39gxbC36gnz2ShK0BrWq +bbBX5ixf+V2eBCPjvJjl2P2FGnMX1pDgUNzDDMf103FoXdUPNRKEJ8JJW+zG +NQZH92qRcIv2alAD+0aZ6ScFXRKGQ08Xv8H1GXjH7dmjLSTEGPnoMbE9g7zP +K20jYXNfk+EYrncHfX/jODMSDgx9FavGNn5w+o69JQmKC/MGdmIvacjI/uVE +Al9z/W2v4xQSPJ+/18GVhJBfe9s1sH9uuyZd507C06WeFeM4f7rb7kRd8iHh +Ns3vcQD2lc6XPqohJLxuvk73DMD1ltq9mhdGwv2wz46rsKNt3w/MnCHhRqKR +51ucZz5vx2wao0l4fs+zfTu23tACOJBKwjn/HdOyOB9Vi5bOPE0n4XTC+mPN +OD9ZHisqNLJJEJQJvHsCW+QrW+lvAQnVm5fndOC8fT5hIHH5Jgmpc9ndwb74 +/4gEvG9rI0FelG6W4E0hWebT17MvSJhuD1i4FrttvfwzpQ4SxtXFq1974Xz0 +qrsf3kOC69G+KRls0fbl6TqfSUjYmT2e4EGhgpzbVlmCbDCYsJAy/9d/qsXM +moXZcFXsitqAG86HVw6bpuazYaH/pFEAtv/8+dzdS9ggVZtsmexKoU2HbSRE +5djQzAsiW3B/G9SfavLWZoN6P5UlivthqtX22rR1bDCzmbU5j/vldp+cqgY9 +NqRMk4sXYVfkmRQRhmxYVyLqtcgB1+PCy5EdZmzwujo9T8Ae59FrXdh4kA2R +lbktlTYUOnDk5C3xNDacoT2/4LEDz0/r7a3VmWwwHqi0fI77udgPuL0lhw2d +scZr1mLz/UTvhF1lg9157rzf+Dzw2zeh8mc5G9ZPazuEbqVQsk/h3d5mNrit +LxO2xueJp17tj67/YYPreEbNbl2cByo6tU8FOOBsUnUzbT2FfL+k1g4JcYBV +DDUf8HlmhZfDY5YYBybkYpd561DI2XP4CW8FB07rrGgNxOef34fmGoLVOZAW +kF/gokoh9YNr2rY7cWDbD7XbcSycz4eYPjdcONDXK1hdxKRQjJe0xBJ3Dowd +2HjzIYNCw36zu54d5gDjm37UGJ1C+cHNHbuCOfB6wckaPRlcb5c8+6xTOGAs +cuBmviSF5u6VfHFs5UCMymeRckEKPZNSWRSguwoueNGE2t/ykYG393D6hlUw +0zFb/aCPj0obShtq0SrgDe3JLOnlo9hgzQiJLavgW0Fmf9gbPto+pPOnZPcq +MKlnHyc6+aipyvC/fs9VsDikW1S/lY/qHG3azbNWwQ7L0coX1Xx0tzQ8XUVI +AWzEpbZlJvLRSUFl85Y+BfBfb7LVSpuPxHpPmByuUIQ3zbqBkbwy9PEqwcsO +VoLe19SFtupSxFOSEa6yWg2ZdMqo8+4NFJ/m1uDEUoZFf2y1CmuuI1vevjbx +T8oQ1WC4gFddgqY2FUxn16yBjLY3XtlJ19DAR6PA2igVcJ0Mk4kILkZ5GzXl +Wp1UIesxV7d5cxG6ERkgeVBVDd6FWXtpswpRlNUBU6EJNagtJVKWzBWgtb25 +xVGt6mCITFW+1V1BqavTb7SaaoBU2fH8z/n56NTDi6mmVRrwxXS5Y4N3HjKT +sypo4miC3pmBNXTjXGR4uMFO8rwmJE+0Wo5r5aBsujOnZUITwni3JBSVshDn +cWHyDjstSN0stq+LyEDxqrXKL2u04FUN2n98XRpyGxd+8VSZC0eHntEL1qci +Z+oH63wcFwTeuQoO+iYjr3CL39sSuHBhxEiYdSgZBVhUvBZP5IJ1h3fRPqdk +dG4iIDY+mQv66ERH365kVKo7PZuSyQX7Xz8bvmslo+lHc51XS7hwWSde130i +CcW/FL/4pIELDzxjk+NPJqG0fG/3s0+5kCQmwhL0T0L5/m3GJs1cSFOIMT/q +lYRur4ifaW7jQtEz70L7fUmo11bavb2DCzSbNxrGKAkpDsgY9w9wYbMR8Wq/ +UBLSqDjBuPKRC0pxY+9HZnlIL7Jn2vUTFxbuV0k5/pOHtitm8odHuKBJxQok +f+ShI54sxvfvXKjdzG8aauCh4A2np8vHuWAm3adw6iEPRS7uf+U/wQWmU6yq +TBUPpZblX5ia4gLbU1B/9zUeygsTPlg9g+9/KWT0PY+HSna5GgX/5kKzpPjP +hHQeqiDr5Q3+ckHrpu4ubR4P1YwrTM/NceG/byV7u2J46P8zj4x7 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.0683121434143604}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.0683121434143604}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VN8bB3CyVFJZWgZjZu6dCck+UijnQfVTUspWSAjJEoqikERKsmQs +2ZeEFHOlQqVSlmwtIkILUkjfSmSp/E5/3df79Tp3Oeee5/Mcwtlnt+s8AQEB +MUEBgX/XzFBnUU2XdAMx66i8+g06Bk/aWdttWEGofErac77bMjRXX3OGxTqP +HM9G/O525aDMhxeZIqzLKHrm/ugDV23ktTHA+xezGFUOHgkpcN2E2mfded+Y +VagyVKfM2dUSze/pVxxjPkXmPoM/PFxcUG5Ttt8osxtVO2WpJzv6o9Ky8z1e +aiPoV2aVpIFyJDqIXlz+cmQc/WaM0+tM4tDhj6sHKkqnUfrkzdyVZ3hIjIhQ +fLdeALqaXe/ZFl9GsRLNyrmOQvCaJhxhbJ6FnHssHwi1iIIZ4/ctSV4u8quL +cPZRFIM9QmY5dq/zEeUrbkHbuhhUPQTsTncWoNyTniMaNhIQmsKame4rROHZ +v3f9/CIJMUVRku+yi5FA+3u4d0Ia9EPuNZE6JUjB3y3QUnk5fJ7tsdOpv44G +J1KsF91fAUH1NgtmpUvRto8eIZf8aMAdqf2ZvKsMbQlhX98USIPj2h5BMtZl +yGh575vJUBqQx8ZVL9uWIb3NZuvtYmhAea5TiD9QhpQL1MfZhTS4oOJtbh9Q +hha5/nS/1UsD4b0q/t6pZahlMMSy638y4Pw91uJIbxnaMRi/hsGQBXt7CXNB +NT5qWTP4yp4jCx66AoEN6nxkenRdaLqyLHC7BV1jNPnIZN7b57R1snA1Y22s +1Fo+MmKtOSZtLguKTlvkJTbw0Vr7uocLwmXhnnW96vOtfER/NW01/lEW/oSJ +MFxc+GjksXNY4w050Lb2/dyTxEfMhC6P2Ao5yPR5L3M0hY8sHXZYWd6Vg7Ss +D90LLvNRzZSu8vtGOdhpWiuikcFHl1QlX/0akIPyq2uXeOfxkX7KA0VFWTrw +SKsvuaV8FONBfxZ5lg6LMlP1f9Xx0aN1l6pML9LBJ7DbxrGBjyaFF1yR5NFh +4TE34cZGPnLMHg/MzKVD3NXiJYnNfKT9qom8dY8O6jmPhle+4KO+jUHHBn/Q +oWfLpqbeHj5Sk+yUN94vDxbztz+w+MZHQxeHwpNc5WEj/ZP0ie98lCn269Mn +T3kYsdynnP2Dj8SFaeUxgfIw7K+Y+fEnnv/k3i2dCfKQEmiecWCajwp6+w4f +eiIPDw85SnHmUYhe9PFB3GoGqDZ4+d6RotArziSnX50B+0LoSrelKXQhVzRa +W4cBt4zMr9xcRqGZNEXLbiMG2FXmjVxbQaGui4c+k/YMiPW7REXLUijx6JjE +7VgG5C9abLCUpJAYmnDqHWfAWVtzYVUNCgUaKi24PcMA2TcffFdoUmjI2K40 +TpAJU0odh/9i15o8mjFayoS5DF9mE5dCJ3ZfTCxWZkLvLj8b83UUGnVdVXfM +iQkyb0aNaAYUsnXf42nuzgTvsy2dI9iNHhcklX2YoBTs/PcuotAVn+/7+oKZ +kF66daGtIYXsg+5PGqcyISh0p1TkJgq1xFgpST5jgoevwrKUbRTSizvXNtLB +hGTdnxO7TSlUlHDX/0kvE0ScZrwXb6dQRDLx6PgIE47MWBOhZhRiPJ9U+W8e +C46+HLu8w5xCnd21dVYMFtQMLJ4qsaLQ/8Zsf5FWLFjc5pi5dz+FspadaT+1 +hwX0peZCQ9g/9UvKeu1YsG1Pv6SfI4VyomcPJjvj8Q35q8844fVWzOha6MsC +u+CLJikHKHTdua/qWzQLej0ZXqcOUmhetEiyWSwLnNyu+E1i76FUj1xLYEHR +yjLSy51CIgKhyi6pLPidIXHO4hCFHDIZ6a8LWED7beAq5Ukhia79wTUPWTBK +y080P0wht7moPXJP8PfFLnIvx76nwNcObGBB0od5o1I+FDoUIDCm2YbnJ+/2 +5xl2rVTuvoIe/L79p/bq+VGIpvdUd947Fggpvi1MwD7s9H35/n4W9NTsv/oJ +W45v2EYbZoEDpFbEHaGQv1m/QcwkC1iqp+WeH6VQk7+Y3PA0C0IWpn6j+1OI +laH1a/MfFhw86HPcHbt1JLxsTogAEQfN9FlshXNs1lFJAl7w6kHqGN6PtS6C +tioEOBl1agkGUuib4RvZEHUCQhbkR6zFnv9op3aOFgGB4T633bF1HugdHFpP +gM2JqupmbN5didYjmwlYLDSxLSIIr7fe2aEkEwLilPNyy7AfV83OVZoSsK7i +Vnc39o87Q1pzuwjot637qnyCQjsr7qVecCAgRuwM9QDbjatVXupEQFeiA60f +O7S8sPmFCwGKqkuchU7i5/Mv/V3pSUBoQF6WEfYT9QU0/cME6PcOJDhi95SG +aDr4EWBRW+4egi12w93lynECyGs3H93EJlXehjScwOuBjDe1YuuWWKSMhOD3 +B8mVfMR2LzZo0oggYFjTWUE6mEJhShUDFlEEDNHV9ZWwUwpX/zkWTUBVlODa +Ddj1Bcs07scToPTBv8sR+y0neuv7RALslweE+2FP5M85C6UQEGmpK3UaW5wd +EKyQRkBZxPeoOGxO3kjS1kwC7l9tHcjA3kA4lnnlELCn88+qYmyLnI7GuHwC +3m8t31GB7cE07S+/SoDjbjmHGuzwrIezHcUERNsdsmzATpPXWT59nYDc0RbN +Z9hURokanU+AT/6xyQ7sRjnCBN0kwMAgJa8H+31aspPzbQIaE/brvMeekhE/ +GVlFABErUD6AvfTyaV7RPQIebyxZPoStQPt1o/kBAZ518U6fsA1SvBq+1hKw +wqU/6Z+tV/S/l6wn4MeRF+X/xnsn2cxoPyXA2jWuchA7Ylmr9J4WAviNZoUf +sDMSjVRPPiPg1CaDU33YFVKVW7JeEmCYdgm6sJsTVB0fdRDgXhA8+gK7XyI/ +aLCLgB12amFN2DNxtMT5vQSoN3f/fYQttTT2uvI7vB8Z1MFK7NWxQvVm/QTc +Sh6qvoENi4Pe+X4koDDh+lQu9p6Yr1OJnwlYGrmWSML2WeQidWcUjxeo0I7C +PhvdvebNVwImbthyA7FvnXviwJogQLd29Ic1dtG2ZlrUFAESPrsZxv/WX/zl +y7FZAgJMkIjav/0T/27L3XkkhJ7miwpgH909JECKknC98g7xCe83t2Vj1ecW +kmDWvG26BXt76oyatQQJHL7cOx42shUcvidNgrdP39gxbC36gnz2ShK0BrWq +bbBX5ixf+V2eBCPjvJjl2P2FGnMX1pDgUNzDDMf103FoXdUPNRKEJ8JJW+zG +NQZH92qRcIv2alAD+0aZ6ScFXRKGQ08Xv8H1GXjH7dmjLSTEGPnoMbE9g7zP +K20jYXNfk+EYrncHfX/jODMSDgx9FavGNn5w+o69JQmKC/MGdmIvacjI/uVE +Al9z/W2v4xQSPJ+/18GVhJBfe9s1sH9uuyZd507C06WeFeM4f7rb7kRd8iHh +Ns3vcQD2lc6XPqohJLxuvk73DMD1ltq9mhdGwv2wz46rsKNt3w/MnCHhRqKR +51ucZz5vx2wao0l4fs+zfTu23tACOJBKwjn/HdOyOB9Vi5bOPE0n4XTC+mPN +OD9ZHisqNLJJEJQJvHsCW+QrW+lvAQnVm5fndOC8fT5hIHH5Jgmpc9ndwb74 +/4gEvG9rI0FelG6W4E0hWebT17MvSJhuD1i4FrttvfwzpQ4SxtXFq1974Xz0 +qrsf3kOC69G+KRls0fbl6TqfSUjYmT2e4EGhgpzbVlmCbDCYsJAy/9d/qsXM +moXZcFXsitqAG86HVw6bpuazYaH/pFEAtv/8+dzdS9ggVZtsmexKoU2HbSRE +5djQzAsiW3B/G9SfavLWZoN6P5UlivthqtX22rR1bDCzmbU5j/vldp+cqgY9 +NqRMk4sXYVfkmRQRhmxYVyLqtcgB1+PCy5EdZmzwujo9T8Ae59FrXdh4kA2R +lbktlTYUOnDk5C3xNDacoT2/4LEDz0/r7a3VmWwwHqi0fI77udgPuL0lhw2d +scZr1mLz/UTvhF1lg9157rzf+Dzw2zeh8mc5G9ZPazuEbqVQsk/h3d5mNrit +LxO2xueJp17tj67/YYPreEbNbl2cByo6tU8FOOBsUnUzbT2FfL+k1g4JcYBV +DDUf8HlmhZfDY5YYBybkYpd561DI2XP4CW8FB07rrGgNxOef34fmGoLVOZAW +kF/gokoh9YNr2rY7cWDbD7XbcSycz4eYPjdcONDXK1hdxKRQjJe0xBJ3Dowd +2HjzIYNCw36zu54d5gDjm37UGJ1C+cHNHbuCOfB6wckaPRlcb5c8+6xTOGAs +cuBmviSF5u6VfHFs5UCMymeRckEKPZNSWRSguwoueNGE2t/ykYG393D6hlUw +0zFb/aCPj0obShtq0SrgDe3JLOnlo9hgzQiJLavgW0Fmf9gbPto+pPOnZPcq +MKlnHyc6+aipyvC/fs9VsDikW1S/lY/qHG3azbNWwQ7L0coX1Xx0tzQ8XUVI +AWzEpbZlJvLRSUFl85Y+BfBfb7LVSpuPxHpPmByuUIQ3zbqBkbwy9PEqwcsO +VoLe19SFtupSxFOSEa6yWg2ZdMqo8+4NFJ/m1uDEUoZFf2y1CmuuI1vevjbx +T8oQ1WC4gFddgqY2FUxn16yBjLY3XtlJ19DAR6PA2igVcJ0Mk4kILkZ5GzXl +Wp1UIesxV7d5cxG6ERkgeVBVDd6FWXtpswpRlNUBU6EJNagtJVKWzBWgtb25 +xVGt6mCITFW+1V1BqavTb7SaaoBU2fH8z/n56NTDi6mmVRrwxXS5Y4N3HjKT +sypo4miC3pmBNXTjXGR4uMFO8rwmJE+0Wo5r5aBsujOnZUITwni3JBSVshDn +cWHyDjstSN0stq+LyEDxqrXKL2u04FUN2n98XRpyGxd+8VSZC0eHntEL1qci +Z+oH63wcFwTeuQoO+iYjr3CL39sSuHBhxEiYdSgZBVhUvBZP5IJ1h3fRPqdk +dG4iIDY+mQv66ERH365kVKo7PZuSyQX7Xz8bvmslo+lHc51XS7hwWSde130i +CcW/FL/4pIELDzxjk+NPJqG0fG/3s0+5kCQmwhL0T0L5/m3GJs1cSFOIMT/q +lYRur4ifaW7jQtEz70L7fUmo11bavb2DCzSbNxrGKAkpDsgY9w9wYbMR8Wq/ +UBLSqDjBuPKRC0pxY+9HZnlIL7Jn2vUTFxbuV0k5/pOHtitm8odHuKBJxQok +f+ShI54sxvfvXKjdzG8aauCh4A2np8vHuWAm3adw6iEPRS7uf+U/wQWmU6yq +TBUPpZblX5ia4gLbU1B/9zUeygsTPlg9g+9/KWT0PY+HSna5GgX/5kKzpPjP +hHQeqiDr5Q3+ckHrpu4ubR4P1YwrTM/NceG/byV7u2J46P8zj4x7 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.0683121434143604}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, + 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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, 20}, {0., 0.0683121434143604}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.992118227177088*^9}, + CellLabel-> + "Out[147]=",ExpressionUUID->"61202f13-9cec-c048-81dc-70c1c923455f"] +}, 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[148]:=",ExpressionUUID->"804e6c9f-1b36-2141-acb9-3b729fb7abb0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4154964045202317`*^-190\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 148, + 774, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9, 3.9917093711796627`*^9, + 3.992118227285013*^9}, + CellLabel-> + "During evaluation of \ +In[148]:=",ExpressionUUID->"1ebaba7c-d54a-4146-8ed9-d1674c7d7437"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.2315276692186634`*^-194\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 148, + 775, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9, 3.9917093711796627`*^9, + 3.992118227313917*^9}, + CellLabel-> + "During evaluation of \ +In[148]:=",ExpressionUUID->"7dee0740-8bf1-7a4d-98b8-9a472ed95101"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.061570337744944`*^-198\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 148, + 776, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9, 3.9917093711796627`*^9, + 3.992118227329914*^9}, + CellLabel-> + "During evaluation of \ +In[148]:=",ExpressionUUID->"2face5a9-3a55-7442-a8c1-3acffee7515d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 148, 777, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9, 3.9917093711796627`*^9, + 3.9921182273470116`*^9}, + CellLabel-> + "During evaluation of \ +In[148]:=",ExpressionUUID->"c96ed26e-307b-d148-bffa-2e58146d6379"], + +Cell[BoxData["15.77237759165342`"], "Output", + CellChangeTimes->{3.9913279159698696`*^9, 3.9917093778765774`*^9, + 3.992118293239977*^9}, + CellLabel-> + "Out[148]=",ExpressionUUID->"9e8f93ce-1159-814d-a789-703b16603d9e"] +}, 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.9917971275265427`*^9, 3.991797131794855*^9}}, + CellLabel-> + "In[149]:=",ExpressionUUID->"9b45c184-4df7-db4d-adb2-01f19f0f15b0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.763058670622647`*^-226\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 149, 778, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327916008396*^9, 3.991709377917576*^9, + 3.9921182933924065`*^9}, + CellLabel-> + "During evaluation of \ +In[149]:=",ExpressionUUID->"627808ed-8833-bc44-8d55-62a147e553ba"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.020128743980137`*^-232\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 149, 779, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327916008396*^9, 3.991709377917576*^9, + 3.992118293412508*^9}, + CellLabel-> + "During evaluation of \ +In[149]:=",ExpressionUUID->"9077d0f3-2989-5043-aa4a-56663a402c32"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3146819843570703`*^-238\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 149, 780, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327916008396*^9, 3.991709377917576*^9, + 3.9921182934295063`*^9}, + CellLabel-> + "During evaluation of \ +In[149]:=",ExpressionUUID->"65b5fadc-fdee-a34e-9727-82c84639da92"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 149, 781, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327916008396*^9, 3.991709377917576*^9, + 3.992118293445505*^9}, + CellLabel-> + "During evaluation of \ +In[149]:=",ExpressionUUID->"be206705-fdbf-5a4a-aeb0-f1156e89d56f"], + +Cell[BoxData["0.5591021871758874`"], "Output", + CellChangeTimes->{3.991327922931429*^9, 3.99170938241395*^9, + 3.9921183043067913`*^9}, + CellLabel-> + "Out[149]=",ExpressionUUID->"f46809f1-4a05-3743-8275-b7cf465ef77c"] +}, 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.9917971357813015`*^9, 3.991797138809105*^9}}, + CellLabel-> + "In[150]:=",ExpressionUUID->"00ca455f-f3f6-2c4f-8927-9e8c2d28dafd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.763058670622647`*^-226\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 150, 782, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279229664307`*^9, 3.9917093824549503`*^9, + 3.992118304421419*^9}, + CellLabel-> + "During evaluation of \ +In[150]:=",ExpressionUUID->"dd6e56cd-54b9-844e-acb7-200a41a83eaa"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.020128743980137`*^-232\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 150, 783, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279229664307`*^9, 3.9917093824549503`*^9, + 3.992118304454422*^9}, + CellLabel-> + "During evaluation of \ +In[150]:=",ExpressionUUID->"7f06a280-2ebe-9643-902e-2e4a6361c8bf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3146819843570703`*^-238\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 150, 784, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279229664307`*^9, 3.9917093824549503`*^9, + 3.9921183044814205`*^9}, + CellLabel-> + "During evaluation of \ +In[150]:=",ExpressionUUID->"8995d681-c289-7a4b-87df-132cc4783467"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 150, 785, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279229664307`*^9, 3.9917093824549503`*^9, + 3.99211830449942*^9}, + CellLabel-> + "During evaluation of \ +In[150]:=",ExpressionUUID->"1f82d05b-4318-9246-b763-e6c519a3d481"], + +Cell[BoxData["33.83553774639779`"], "Output", + CellChangeTimes->{3.9921183146740036`*^9}, + CellLabel-> + "Out[150]=",ExpressionUUID->"bfdaccc8-c58d-9846-9fe6-a06af57d551e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"8.211884331115483`", " "}]], "Input", + CellChangeTimes->{{3.9917094784975224`*^9, 3.991709478503729*^9}}, + CellLabel-> + "In[151]:=",ExpressionUUID->"8cac9b30-e121-024d-91d3-cf92fd4a988a"], + +Cell[BoxData["8.211884331115483`"], "Output", + CellChangeTimes->{3.992118314742918*^9}, + CellLabel-> + "Out[151]=",ExpressionUUID->"c44a3258-a0dc-924d-9454-21797db6fd29"] +}, 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.9917971437506504`*^9, 3.991797147210884*^9}}, + CellLabel-> + "In[152]:=",ExpressionUUID->"b454660a-890c-f24b-923b-563bff174231"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.763058670622647`*^-226\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 152, 786, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928854006*^9, 3.99170938660993*^9, + 3.992118314793701*^9}, + CellLabel-> + "During evaluation of \ +In[152]:=",ExpressionUUID->"a78992d4-87ec-554d-89a4-93e92a625e51"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.020128743980137`*^-232\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 152, 787, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928854006*^9, 3.99170938660993*^9, + 3.992118314836796*^9}, + CellLabel-> + "During evaluation of \ +In[152]:=",ExpressionUUID->"d4d9979a-aff7-c549-97f1-8d4c94394a80"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3146819843570703`*^-238\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 152, 788, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928854006*^9, 3.99170938660993*^9, + 3.9921183148617954`*^9}, + CellLabel-> + "During evaluation of \ +In[152]:=",ExpressionUUID->"829ef7d0-fe81-2946-b5e8-ebd865effad4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 152, 789, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928854006*^9, 3.99170938660993*^9, + 3.992118314889797*^9}, + CellLabel-> + "During evaluation of \ +In[152]:=",ExpressionUUID->"d98abecf-e38b-7242-a73b-c7f0b91dccdf"], + +Cell[BoxData["25.656845112374317`"], "Output", + CellChangeTimes->{3.9913279320131683`*^9, 3.9917093893412666`*^9, + 3.99211832289073*^9}, + CellLabel-> + "Out[152]=",ExpressionUUID->"515d30c5-cf37-b240-b3fe-a0d604ba96a5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9917971542239857`*^9, 3.9917971576817684`*^9}}, + CellLabel-> + "In[153]:=",ExpressionUUID->"673f44c9-71c5-b64a-9ddb-ff434e6a2570"], + +Cell[BoxData["0.018975927982277267`"], "Output", + CellChangeTimes->{3.9913279320452003`*^9, 3.9917093893762684`*^9, + 3.992118322961733*^9}, + CellLabel-> + "Out[153]=",ExpressionUUID->"cee114d7-949d-a949-ad86-d92b2d8b95d6"] +}, Open ]] +}, +WindowSize->{1440, 741.75}, +WindowMargins->{{-6, Automatic}, {Automatic, -6}}, +CellContext->Notebook, +Magnification:>0.8 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"3e00b719-7d57-4247-80f9-54af9e03f9d1" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 452, 7, 22, "Input",ExpressionUUID->"05f0731c-d41f-bc4e-b3a5-fe37ee9edd84"], +Cell[1031, 31, 354, 5, 25, "Output",ExpressionUUID->"a7299129-bbf4-5c4c-9d26-8eca0c38b246"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1422, 41, 346, 5, 22, "Input",ExpressionUUID->"12aae3bb-3c18-fc49-a0b1-b91fdc1bbe34"], +Cell[1771, 48, 429, 6, 25, "Output",ExpressionUUID->"9269ae25-8e84-5f4a-ae7b-5271046d2399"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2237, 59, 253, 5, 22, "Input",ExpressionUUID->"93a900cf-d755-b944-921b-a609f0a955d2"], +Cell[2493, 66, 428, 6, 25, "Output",ExpressionUUID->"37c37e51-de29-2c4c-a106-a9712e22f3bb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2958, 77, 175, 3, 22, "Input",ExpressionUUID->"ad2e1847-77bb-2547-a825-69fabcda8ddf"], +Cell[3136, 82, 401, 6, 25, "Output",ExpressionUUID->"ed34d0f4-b2cb-4846-b577-5fab7b27974b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3574, 93, 257, 7, 35, "Input",ExpressionUUID->"4cc840b0-88d4-374e-a12e-54b8464f3172"], +Cell[3834, 102, 412, 6, 25, "Output",ExpressionUUID->"aa7f3430-612b-8b48-95d4-3c4d1b88c329"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4283, 113, 131, 2, 22, "Input",ExpressionUUID->"7e4318c8-0990-ce41-a87a-43c5428155f4"], +Cell[4417, 117, 405, 6, 25, "Output",ExpressionUUID->"22721aad-1be3-364e-a18c-701f91ea77f5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4859, 128, 276, 6, 22, "Input",ExpressionUUID->"c991c4ea-4c61-ff4f-8dd1-a921864ebed7"], +Cell[5138, 136, 417, 6, 25, "Output",ExpressionUUID->"b868e38d-b64a-dc43-a954-7c8e98e8a678"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5592, 147, 257, 7, 22, "Input",ExpressionUUID->"c0ebd7fd-cfec-df46-a449-f750a93384d0"], +Cell[5852, 156, 418, 6, 25, "Output",ExpressionUUID->"47088bbd-8358-3343-badb-22bbe4a2a8f5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6307, 167, 236, 4, 22, "Input",ExpressionUUID->"4df260b6-0d11-1441-9e2e-22f951821193"], +Cell[6546, 173, 438, 6, 25, "Output",ExpressionUUID->"7b2868a6-0a88-e843-a499-e9f7fc635e75"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7021, 184, 236, 4, 22, "Input",ExpressionUUID->"2d27be30-fef3-4449-b748-886004fbb723"], +Cell[7260, 190, 438, 6, 25, "Output",ExpressionUUID->"5534dd71-3278-4046-ac2f-3c1afc8610d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7735, 201, 129, 2, 22, "Input",ExpressionUUID->"58f05ac2-9a5b-b743-b028-7f6094b06d91"], +Cell[7867, 205, 402, 6, 25, "Output",ExpressionUUID->"befc3b7b-561e-5444-9b7c-d2fe90c13c4c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8306, 216, 129, 2, 22, "Input",ExpressionUUID->"b018faa3-5a51-4f49-9b0d-7936087c5070"], +Cell[8438, 220, 399, 6, 25, "Output",ExpressionUUID->"9d5744b8-9530-584b-9e97-63f23041e347"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8874, 231, 557, 19, 65, "Input",ExpressionUUID->"44764fb1-9da1-4d4e-a570-89126d15f894"], +Cell[9434, 252, 398, 6, 25, "Output",ExpressionUUID->"092186ce-5ed2-5145-8e33-3cbb5611da0d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9869, 263, 557, 19, 65, "Input",ExpressionUUID->"3281618b-d4a7-c942-98be-b78c0b986321"], +Cell[10429, 284, 400, 6, 25, "Output",ExpressionUUID->"e500737c-497e-3f45-92da-5a8b2f159efb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[10866, 295, 1492, 48, 65, "Input",ExpressionUUID->"fed40061-6b4e-1748-b42c-03e683b18808"], +Cell[12361, 345, 396, 6, 25, "Output",ExpressionUUID->"6094b55c-c9cc-ec46-be7c-13c57a67e950"] +}, Open ]], +Cell[CellGroupData[{ +Cell[12794, 356, 1331, 44, 65, "Input",ExpressionUUID->"f615b39c-9820-5147-95ce-618baa4e4991"], +Cell[14128, 402, 414, 7, 25, "Output",ExpressionUUID->"69bfbdb2-54df-b542-8b02-6309ae33c809"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14579, 414, 1331, 44, 65, "Input",ExpressionUUID->"7b2f9469-8c15-d349-a2c9-fcf9fcf6e8df"], +Cell[15913, 460, 421, 7, 25, "Output",ExpressionUUID->"a3d828d3-a0a4-7a4c-a93a-e57bb9a8e67d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16371, 472, 1492, 48, 65, "Input",ExpressionUUID->"e673379f-2460-4e49-90d0-35742055e8f6"], +Cell[17866, 522, 389, 6, 25, "Output",ExpressionUUID->"5cd22d93-c8ea-0f41-a118-9acab3b2ac73"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18292, 533, 131, 2, 22, "Input",ExpressionUUID->"f65ba40e-adc9-4340-8c19-3a5692a89c19"], +Cell[18426, 537, 382, 6, 25, "Output",ExpressionUUID->"e8996af0-ee91-6c4e-afb5-235b878a6abe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18845, 548, 177, 3, 22, "Input",ExpressionUUID->"da90429f-71c9-fb44-900f-54f9ecb15c0c"], +Cell[19025, 553, 378, 6, 25, "Output",ExpressionUUID->"d1a06ca9-f385-b841-8587-d5915182226e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19440, 564, 134, 2, 22, "Input",ExpressionUUID->"ba9e3c3f-c755-9949-abdf-5c8716be163d"], +Cell[19577, 568, 388, 6, 25, "Output",ExpressionUUID->"a10bd39f-b904-2642-bcf2-3664c2271221"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20002, 579, 219, 4, 22, "Input",ExpressionUUID->"1df1d99a-14d1-664a-9952-fc0ffe17d214"], +Cell[20224, 585, 389, 7, 25, "Output",ExpressionUUID->"03af447f-ab2e-c24f-91dc-6e09874be799"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20650, 597, 134, 2, 22, "Input",ExpressionUUID->"934f8f71-5ebb-8a42-88af-b686f4e3e457"], +Cell[20787, 601, 382, 6, 25, "Output",ExpressionUUID->"58de734c-1e92-884e-9be4-944ff658977b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21206, 612, 302, 5, 22, "Input",ExpressionUUID->"6e10280b-ebb3-f646-bb1d-00a00fc0ed1c"], +Cell[21511, 619, 328, 5, 25, "Output",ExpressionUUID->"eb44e01b-ef45-4246-aece-bb00cd4c806f"] +}, Open ]], +Cell[21854, 627, 173, 2, 22, "Input",ExpressionUUID->"b89c6b57-db32-1742-8cc6-85b9a16d9dd6"], +Cell[CellGroupData[{ +Cell[22052, 633, 296, 5, 22, "Input",ExpressionUUID->"f0485430-2764-5f40-9255-6cf8c0e180ff"], +Cell[22351, 640, 377, 6, 25, "Output",ExpressionUUID->"7ea0ef79-4a03-344e-965f-7f88119ca068"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22765, 651, 219, 4, 22, "Input",ExpressionUUID->"a5017589-44b9-f144-b351-bb9b15123fd4"], +Cell[22987, 657, 379, 6, 25, "Output",ExpressionUUID->"0a87ec08-a4cb-a045-9f2c-abc494ad5759"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23403, 668, 350, 10, 35, "Input",ExpressionUUID->"7ab41717-55b0-584a-809f-945d0d693a80"], +Cell[23756, 680, 397, 6, 25, "Output",ExpressionUUID->"3fc8b509-a69e-274e-839d-d5113dee41be"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24190, 691, 350, 10, 35, "Input",ExpressionUUID->"fde3e1f9-4cc1-8049-ba69-a2294a6452b9"], +Cell[24543, 703, 408, 7, 25, "Output",ExpressionUUID->"36a3c2cb-54af-1840-a768-081b59a68041"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24988, 715, 992, 26, 47, "Input",ExpressionUUID->"622e209c-a48d-e442-88d4-31c1022a52c8"], +Cell[25983, 743, 400, 6, 25, "Output",ExpressionUUID->"a8a7631d-7922-e848-996e-504fdebb79d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26420, 754, 199, 3, 22, "Input",ExpressionUUID->"10ba819b-2025-9a47-9ea5-95a5611cda6a"], +Cell[26622, 759, 384, 6, 25, "Output",ExpressionUUID->"2fefc9ae-0743-8d44-90d4-ada0cb184848"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27043, 770, 275, 4, 22, "Input",ExpressionUUID->"8e0c7ad3-3b58-ea40-9983-94e32bbe2818"], +Cell[27321, 776, 339, 5, 25, "Output",ExpressionUUID->"d317f5e9-e51f-3b49-b75e-fd85d0fa1e27"] +}, Open ]], +Cell[27675, 784, 175, 2, 22, "Input",ExpressionUUID->"eb8d52d1-9df0-c54e-85b2-4b5b928d8058"], +Cell[CellGroupData[{ +Cell[27875, 790, 323, 5, 22, "Input",ExpressionUUID->"59432052-36a9-0e4a-b136-b5ef6e1cf7dc"], +Cell[28201, 797, 339, 5, 25, "Output",ExpressionUUID->"aed84488-ec8a-9044-9deb-e084090e93e4"] +}, Open ]], +Cell[28555, 805, 173, 2, 22, "Input",ExpressionUUID->"7620191d-049f-d749-807c-ff7994d2bf64"], +Cell[CellGroupData[{ +Cell[28753, 811, 343, 6, 37, "Input",ExpressionUUID->"2838c52a-e621-824e-8a28-6ddd911b4320"], +Cell[29099, 819, 329, 5, 25, "Output",ExpressionUUID->"d0456ac0-ca41-9546-a020-1117c1dbbadb"] +}, Open ]], +Cell[29443, 827, 175, 2, 22, "Input",ExpressionUUID->"42e257a2-6901-9d4f-a831-1954f32e9186"], +Cell[CellGroupData[{ +Cell[29643, 833, 347, 6, 37, "Input",ExpressionUUID->"26236e3a-fdac-eb4e-a22f-56d02cebcf41"], +Cell[29993, 841, 339, 5, 25, "Output",ExpressionUUID->"989f46a1-fdd4-f748-b6bc-db8b261ca169"] +}, Open ]], +Cell[30347, 849, 175, 2, 22, "Input",ExpressionUUID->"dd3588b2-9ab9-a34a-afe1-cdd040915619"], +Cell[CellGroupData[{ +Cell[30547, 855, 273, 4, 22, "Input",ExpressionUUID->"02fa1476-84ef-ac4d-a088-22546d6249ff"], +Cell[30823, 861, 329, 5, 25, "Output",ExpressionUUID->"d7059119-5bbe-8a41-a391-ffa3cabf696b"] +}, Open ]], +Cell[31167, 869, 173, 2, 22, "Input",ExpressionUUID->"5841a374-f07b-3948-b1fb-c9f1f2e2508c"], +Cell[CellGroupData[{ +Cell[31365, 875, 277, 4, 22, "Input",ExpressionUUID->"2fad32fe-2323-a247-8df8-53787ce8fe84"], +Cell[31645, 881, 334, 5, 25, "Output",ExpressionUUID->"1878c857-f241-364e-a54d-70012c656632"] +}, Open ]], +Cell[31994, 889, 171, 2, 22, "Input",ExpressionUUID->"1b7179f5-adc5-4a42-8f8b-65c9268fc5eb"], +Cell[CellGroupData[{ +Cell[32190, 895, 325, 6, 37, "Input",ExpressionUUID->"00d82cf5-fe39-a24b-bb7b-1d0e115472c2"], +Cell[32518, 903, 328, 5, 25, "Output",ExpressionUUID->"84fca45a-258b-214b-aeb9-3b84e9e5ceb7"] +}, Open ]], +Cell[32861, 911, 175, 2, 22, "Input",ExpressionUUID->"dfb148c5-f80e-3f46-b88b-570a723a95bc"], +Cell[CellGroupData[{ +Cell[33061, 917, 270, 5, 37, "Input",ExpressionUUID->"db5cb55e-0710-c147-81f4-1d5b600a6284"], +Cell[33334, 924, 330, 5, 25, "Output",ExpressionUUID->"b0002b9a-206a-6f48-9692-7365276facb1"] +}, Open ]], +Cell[33679, 932, 171, 2, 22, "Input",ExpressionUUID->"bc012921-2f5f-014d-9378-a2fad1ed7321"], +Cell[CellGroupData[{ +Cell[33875, 938, 19809, 485, 783, "Input",ExpressionUUID->"c0e79410-fc92-1e45-af3b-c110ed8e3abb"], +Cell[53687, 1425, 390, 6, 25, "Output",ExpressionUUID->"f5bec4c8-09de-4d4a-ba58-1c0532454743"] +}, Open ]], +Cell[CellGroupData[{ +Cell[54114, 1436, 19748, 489, 832, "Input",ExpressionUUID->"5dd2eacd-c52a-fd43-adfd-9865b6491968"], +Cell[73865, 1927, 395, 6, 25, "Output",ExpressionUUID->"b56001e8-6d06-4643-ab3f-522e44e6796e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[74297, 1938, 19748, 483, 876, "Input",ExpressionUUID->"4ed88227-1e87-3c47-8347-5fd8655168bd"], +Cell[94048, 2423, 410, 7, 25, "Output",ExpressionUUID->"1f1d1e30-b864-8849-a0ea-c33281d27c3f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[94495, 2435, 22534, 553, 972, "Input",ExpressionUUID->"69c9ca34-ec1f-344d-935e-d99be87c6a30"], +Cell[117032, 2990, 413, 7, 25, "Output",ExpressionUUID->"53836eec-bf48-9d41-bd56-30b38e1666df"] +}, Open ]], +Cell[CellGroupData[{ +Cell[117482, 3002, 22535, 553, 972, "Input",ExpressionUUID->"8f86ffe3-4c00-0445-be01-9f9c3bf740a4"], +Cell[140020, 3557, 413, 7, 25, "Output",ExpressionUUID->"76ea087b-5888-d841-a2ec-fda57dccca77"] +}, Open ]], +Cell[CellGroupData[{ +Cell[140470, 3569, 25491, 626, 1068, "Input",ExpressionUUID->"5220f60f-abac-c041-83b6-4ff9b963c510"], +Cell[165964, 4197, 408, 7, 25, "Output",ExpressionUUID->"4eb7aed1-2543-6048-822b-7d761058dc7f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166409, 4209, 130, 2, 22, "Input",ExpressionUUID->"50a59971-b8b3-904a-9a20-2d0c4a200469"], +Cell[166542, 4213, 378, 6, 25, "Output",ExpressionUUID->"e2f15be6-df3a-684b-979d-d9a00f7e3324"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166957, 4224, 130, 2, 22, "Input",ExpressionUUID->"99b95585-fb4d-4c4e-a0a1-a7cadcf4974c"], +Cell[167090, 4228, 378, 6, 25, "Output",ExpressionUUID->"a22559fa-1db7-4946-8110-42f5b22aa2e4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[167505, 4239, 1144, 39, 46, "Input",ExpressionUUID->"15d5ff38-e0ad-194f-988e-5bba229258a0"], +Cell[168652, 4280, 399, 6, 25, "Output",ExpressionUUID->"25633aec-b044-8043-99e4-c87838e73c6f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169088, 4291, 1041, 35, 46, "Input",ExpressionUUID->"f50ed71d-f500-b142-b06c-d815a3ba2272"], +Cell[170132, 4328, 409, 7, 25, "Output",ExpressionUUID->"050c7604-8434-024c-86dc-1532d8971cb0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170578, 4340, 1144, 39, 46, "Input",ExpressionUUID->"1492aaaf-0df6-6745-bf76-b9050e5655e5"], +Cell[171725, 4381, 400, 6, 25, "Output",ExpressionUUID->"874b9837-c1eb-5649-8b32-2dd1fb9c7053"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172162, 4392, 108, 1, 22, "Input",ExpressionUUID->"226872db-ad1d-a848-a1b9-669b9495ae40"], +Cell[172273, 4395, 394, 6, 25, "Output",ExpressionUUID->"6dfece24-4f8a-064c-8a36-9a6722a1ac6b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172704, 4406, 108, 1, 22, "Input",ExpressionUUID->"3724e999-16ab-c946-a14b-a24ab296bb76"], +Cell[172815, 4409, 413, 7, 25, "Output",ExpressionUUID->"a10c6a76-bac1-3744-b703-c3f77f19c318"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173265, 4421, 108, 1, 22, "Input",ExpressionUUID->"7429d55c-fb1b-6c4a-a07c-c882ac4f265b"], +Cell[173376, 4424, 415, 7, 25, "Output",ExpressionUUID->"0bd1ebca-715c-ce40-84c3-ee0b2350597b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173828, 4436, 108, 1, 22, "Input",ExpressionUUID->"53189e64-dda1-f24f-bb2a-e33cc334a386"], +Cell[173939, 4439, 398, 6, 25, "Output",ExpressionUUID->"6b794901-2dbb-ef4c-8f51-4925d762d279"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174374, 4450, 107, 1, 22, "Input",ExpressionUUID->"2dcc97af-d52c-a140-9d24-7e2362d14431"], +Cell[174484, 4453, 393, 6, 25, "Output",ExpressionUUID->"eff83fce-9861-0640-949e-3302abd83e10"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174914, 4464, 107, 1, 22, "Input",ExpressionUUID->"047bb9cd-1320-254a-81b6-dbbd5bc6927e"], +Cell[175024, 4467, 393, 6, 25, "Output",ExpressionUUID->"1ee5bb66-fca1-9847-b774-7f7c10477e0b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175454, 4478, 497, 16, 46, "Input",ExpressionUUID->"5f91a530-4680-9547-ba69-eda72b5cd542"], +Cell[175954, 4496, 407, 7, 25, "Output",ExpressionUUID->"cc159df2-a55d-6b4c-a8a6-83ce26668e2d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176398, 4508, 497, 16, 46, "Input",ExpressionUUID->"79bd53a9-815b-6b44-a1c8-9e184a9e2d7f"], +Cell[176898, 4526, 412, 7, 25, "Output",ExpressionUUID->"de38b97c-b3ef-8a4b-b46d-a158a1f84bc8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[177347, 4538, 1788, 60, 46, "Input",ExpressionUUID->"4d60ea42-135b-0945-9bc8-ff7080f68cbd"], +Cell[179138, 4600, 397, 6, 25, "Output",ExpressionUUID->"c6a60c2a-4688-0845-a409-a6208a34959f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[179572, 4611, 1101, 36, 46, "Input",ExpressionUUID->"86e3af8c-1e9e-fe48-be10-5811d3ed2f2c"], +Cell[180676, 4649, 412, 7, 25, "Output",ExpressionUUID->"79874302-a496-ea43-aa8e-0e99fcffd480"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181125, 4661, 1818, 61, 90, "Input",ExpressionUUID->"5e5f8981-ef44-174f-9ab1-8170c09512bd"], +Cell[182946, 4724, 395, 6, 25, "Output",ExpressionUUID->"4f9faacb-4bf7-1c4e-98e5-3353a4723c3e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183378, 4735, 2499, 77, 24, "Input",ExpressionUUID->"92a8600d-0ef6-b048-81ca-4cef74274975"], +Cell[185880, 4814, 397, 6, 25, "Output",ExpressionUUID->"9269d1ee-afc2-b64a-8dff-bdc793a4d183"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186314, 4825, 2499, 77, 24, "Input",ExpressionUUID->"7e943660-5e34-9e41-8f70-f1ec78ba3955"], +Cell[188816, 4904, 387, 6, 25, "Output",ExpressionUUID->"685851a8-93ab-ab43-a567-cad58342b74f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189240, 4915, 236, 4, 22, "Input",ExpressionUUID->"3ae683e0-3adf-504a-90dd-615dd0a61fd8"], +Cell[189479, 4921, 345, 5, 25, "Output",ExpressionUUID->"8b6161e6-dfbf-5646-84a1-63b48af9d759"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189861, 4931, 265, 4, 22, "Input",ExpressionUUID->"4fc0783d-23dd-314f-a326-64b7548d9620"], +Cell[190129, 4937, 342, 5, 25, "Output",ExpressionUUID->"0494f0f2-8968-a949-9255-e862eecd53df"] +}, Open ]], +Cell[CellGroupData[{ +Cell[190508, 4947, 1297, 42, 39, "Input",ExpressionUUID->"dbbed097-5dfd-0340-bc2d-0bce9785fa70"], +Cell[191808, 4991, 391, 6, 25, "Output",ExpressionUUID->"7d2ce0d6-9ea8-4844-a69c-e9a62ec33eb0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192236, 5002, 834, 27, 46, "Input",ExpressionUUID->"b04428b7-7b5e-9b48-87ae-3e90ee72682c"], +Cell[193073, 5031, 399, 6, 25, "Output",ExpressionUUID->"f7d38545-b985-494c-ac35-0d80b059cb71"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193509, 5042, 889, 30, 46, "Input",ExpressionUUID->"46474706-75cc-0e49-8a10-fd571fd984c5"], +Cell[194401, 5074, 404, 6, 25, "Output",ExpressionUUID->"51df2d1c-b4dd-6448-86ec-f6668dbf47a6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194842, 5085, 554, 18, 42, "Input",ExpressionUUID->"6c7f131a-588c-d84f-805a-1b114b97ab2e"], +Cell[195399, 5105, 585, 8, 25, "Output",ExpressionUUID->"99c71b79-8f14-1540-8215-5b58e433357d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196021, 5118, 661, 21, 42, "Input",ExpressionUUID->"8f6a5672-c9b6-a24d-b043-0295522643ff"], +Cell[196685, 5141, 572, 8, 25, "Output",ExpressionUUID->"9cf7168f-b9e7-094e-aa3b-d8c3de3f9e55"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197294, 5154, 166, 4, 46, "Input",ExpressionUUID->"2cd16002-2250-9c44-87bb-4d4306484886"], +Cell[197463, 5160, 597, 8, 25, "Output",ExpressionUUID->"17340104-5339-4348-bc1d-5060c0fbe074"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198097, 5173, 232, 5, 45, "Input",ExpressionUUID->"56eef390-47c4-9d43-b3ba-9976fee79488"], +Cell[198332, 5180, 536, 8, 25, "Output",ExpressionUUID->"b93a7d42-939d-054a-af67-a774de2af813"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198905, 5193, 219, 5, 35, "Input",ExpressionUUID->"b6011101-322c-1d46-bf96-e6c81db8eb4e"], +Cell[199127, 5200, 569, 8, 25, "Output",ExpressionUUID->"f98847e2-4874-0a47-bcbc-f52a151671f8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[199733, 5213, 177, 4, 35, "Input",ExpressionUUID->"32af0bf4-8b8c-3246-9fed-2c6465d35f47"], +Cell[199913, 5219, 587, 8, 25, "Output",ExpressionUUID->"ddb97a74-9eb8-e54a-8130-56745d6dcfe6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[200537, 5232, 6051, 184, 153, "Input",ExpressionUUID->"6aa7b23d-87fe-a147-ac22-171857e1023a"], +Cell[206591, 5418, 566, 8, 25, "Output",ExpressionUUID->"41596472-9f7b-894f-bb36-0f6f119cc229"] +}, Open ]], +Cell[CellGroupData[{ +Cell[207194, 5431, 364, 8, 33, "Input",ExpressionUUID->"e8f9eb4e-3dfc-e54e-92f2-5edd25517c2d"], +Cell[207561, 5441, 545, 8, 25, "Output",ExpressionUUID->"f1c89d1a-829e-d04d-a6f5-ad2c57f1c770"] +}, Open ]], +Cell[208121, 5452, 488, 9, 34, "Input",ExpressionUUID->"2e619d97-78a3-1c4c-a6c4-66adaa1daf07"], +Cell[CellGroupData[{ +Cell[208634, 5465, 554, 18, 42, "Input",ExpressionUUID->"8968449c-8b0e-4c43-b89b-9661a6b4b7b4"], +Cell[209191, 5485, 215, 3, 25, "Output",ExpressionUUID->"16a50347-89b7-ba45-b3fb-d1f8c6e6bd49"] +}, Open ]], +Cell[CellGroupData[{ +Cell[209443, 5493, 619, 20, 42, "Input",ExpressionUUID->"4070e408-f242-2749-a9a3-2554c0750a47"], +Cell[210065, 5515, 218, 3, 25, "Output",ExpressionUUID->"75d0f30a-953b-6e4c-9f11-c404ebe221d7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210320, 5523, 166, 4, 46, "Input",ExpressionUUID->"ea836fa5-3993-364c-859c-f1e1426f90c2"], +Cell[210489, 5529, 216, 3, 25, "Output",ExpressionUUID->"db69398b-af0e-cc42-b365-9503d4f94707"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210742, 5537, 166, 4, 45, "Input",ExpressionUUID->"c1eb9e5a-df42-e143-87eb-a7c14cd6489c"], +Cell[210911, 5543, 216, 3, 25, "Output",ExpressionUUID->"0ad9d1d3-ea94-7647-854d-73d9763bf78b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[211164, 5551, 177, 4, 35, "Input",ExpressionUUID->"fc11a4dc-800e-1040-b016-a172a6dca5d1"], +Cell[211344, 5557, 219, 3, 25, "Output",ExpressionUUID->"dae97f8e-f163-5e4a-9d9d-bd206c80d59b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[211600, 5565, 177, 4, 35, "Input",ExpressionUUID->"f158f63a-620a-8b45-93fe-de96c59131c3"], +Cell[211780, 5571, 219, 3, 25, "Output",ExpressionUUID->"be7d5b09-48e4-7f46-8e7c-608be448bb98"] +}, Open ]], +Cell[CellGroupData[{ +Cell[212036, 5579, 6051, 184, 153, "Input",ExpressionUUID->"290356b5-801a-1742-8269-ff0ab0e7a72f"], +Cell[218090, 5765, 217, 3, 25, "Output",ExpressionUUID->"61ecf1ac-a087-0942-8477-6e25ab082012"] +}, Open ]], +Cell[CellGroupData[{ +Cell[218344, 5773, 364, 8, 33, "Input",ExpressionUUID->"637830a9-4b17-0d47-8e69-3e6d73475803"], +Cell[218711, 5783, 216, 3, 25, "Output",ExpressionUUID->"699b6c15-ad22-7f4b-9f4b-bb93a7f1ea8a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[218964, 5791, 6118, 186, 153, "Input",ExpressionUUID->"245e55e0-c025-d748-aa5b-d3f5a26f897a"], +Cell[225085, 5979, 220, 3, 25, "Output",ExpressionUUID->"aa54252b-8e62-4c49-b39f-f9a7d897d5e8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[225342, 5987, 364, 8, 33, "Input",ExpressionUUID->"87d3f053-a210-4945-9497-51f3b35fe58a"], +Cell[225709, 5997, 219, 3, 25, "Output",ExpressionUUID->"fe642b82-14c3-8145-9c72-7bfa90a46fb6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[225965, 6005, 2659, 87, 90, "Input",ExpressionUUID->"407f3978-d419-be4a-9b05-517d07c044f1"], +Cell[228627, 6094, 220, 3, 25, "Output",ExpressionUUID->"74ca47c7-7d6f-dd46-b2ab-4813288b30d3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[228884, 6102, 2599, 84, 46, "Input",ExpressionUUID->"98c81204-47e0-fd47-9c8b-67e8ab12c7de"], +Cell[231486, 6188, 220, 3, 25, "Output",ExpressionUUID->"c5056b66-835c-a74f-b6c7-b8093f65121e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[231743, 6196, 3708, 117, 135, "Input",ExpressionUUID->"f8815c5a-68ac-6143-b710-ab82cbe388c2"], +Cell[235454, 6315, 221, 3, 25, "Output",ExpressionUUID->"53458e37-bd9c-f842-bca8-7ee48efe443c"] +}, Open ]], +Cell[235690, 6321, 276, 5, 34, "Input",ExpressionUUID->"c3247e8e-1dc6-bd47-b085-4abc2b2cf1d2"], +Cell[CellGroupData[{ +Cell[235991, 6330, 2075, 59, 92, "Input",ExpressionUUID->"9522bfa2-96cd-564e-b4a1-30bc1fcf4125"], +Cell[238069, 6391, 596, 12, 33, "Message",ExpressionUUID->"bc8ffb3a-8f1c-454d-bf6a-edb3ab23f2ab"], +Cell[238668, 6405, 603, 13, 33, "Message",ExpressionUUID->"59404741-e0d7-8645-a9a2-be1a9ba31c1a"], +Cell[239274, 6420, 606, 13, 33, "Message",ExpressionUUID->"82f165cd-3bba-cc4e-9a13-d2393577cf8e"], +Cell[239883, 6435, 507, 11, 20, "Message",ExpressionUUID->"f41e6c2b-26cc-3843-949a-35e2586ba40d"], +Cell[240393, 6448, 222, 4, 25, "Output",ExpressionUUID->"f77cbfd2-72b8-9a4b-b63f-a079f858694d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[240652, 6457, 2075, 59, 92, "Input",ExpressionUUID->"61b1cdf2-7f57-2647-9828-9108456d2e21"], +Cell[242730, 6518, 592, 12, 33, "Message",ExpressionUUID->"87eb4fe7-d283-f544-94f0-f155eb63b459"], +Cell[243325, 6532, 601, 13, 33, "Message",ExpressionUUID->"bf0e76f5-eced-b244-961c-15f6a2399486"], +Cell[243929, 6547, 604, 13, 33, "Message",ExpressionUUID->"ebe7231f-1de4-cd4a-bec5-660806bdfdbd"], +Cell[244536, 6562, 507, 11, 20, "Message",ExpressionUUID->"7a273a32-9466-ce4d-9076-9c2991fa1c65"], +Cell[245046, 6575, 218, 4, 25, "Output",ExpressionUUID->"f3591d1a-d1d1-4f49-a593-c37d65ae85a4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[245301, 6584, 1961, 53, 69, "Input",ExpressionUUID->"0ab9b507-fb4e-e24c-9d9d-abe222e3c5e2"], +Cell[247265, 6639, 20290, 381, 190, "Output",ExpressionUUID->"e71ee3e7-9e19-e74e-9d61-cf680a4008b9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[267592, 7025, 2139, 60, 92, "Input",ExpressionUUID->"859f11c8-3e2a-dc42-8ed3-71283b73bfa7"], +Cell[269734, 7087, 544, 12, 33, "Message",ExpressionUUID->"71ef9892-163e-b943-9a8a-4368ab0bbe1e"], +Cell[270281, 7101, 546, 12, 33, "Message",ExpressionUUID->"33a053fe-29f6-264e-81b1-14b63d8a9a25"], +Cell[270830, 7115, 547, 12, 33, "Message",ExpressionUUID->"dfcf296f-7abc-7b4f-8fa8-8328fce927ca"], +Cell[271380, 7129, 505, 11, 20, "Message",ExpressionUUID->"421b7d08-c781-0e47-ad3e-8cb8b25739f9"], +Cell[271888, 7142, 22482, 416, 187, "Output",ExpressionUUID->"cef69751-8b66-d544-a398-e65e42baae93"] +}, Open ]], +Cell[CellGroupData[{ +Cell[294407, 7563, 1889, 51, 50, "Input",ExpressionUUID->"60c27e2c-7c95-1e4a-ab78-642e76a08b0b"], +Cell[296299, 7616, 8999, 210, 193, "Output",ExpressionUUID->"cdb77bc3-bb49-814f-892e-c6cb28989706"] +}, Open ]], +Cell[CellGroupData[{ +Cell[305335, 7831, 280, 6, 34, "Input",ExpressionUUID->"7b17964f-3903-af4c-a72d-552615ef4a37"], +Cell[305618, 7839, 28468, 540, 187, "Output",ExpressionUUID->"3ff2b36c-292a-fa4c-b578-330f46ddc49f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[334123, 8384, 324, 10, 35, "Input",ExpressionUUID->"982133ce-0d36-4d45-a387-ff35350b5cb9"], +Cell[334450, 8396, 223, 4, 25, "Output",ExpressionUUID->"61122fc0-29e6-ad4a-bf3e-4d56f90cc913"] +}, Open ]], +Cell[CellGroupData[{ +Cell[334710, 8405, 1837, 53, 92, "Input",ExpressionUUID->"90b7f5f1-808a-1b4d-aa45-edfd6d6a25f8"], +Cell[336550, 8460, 528, 11, 33, "Message",ExpressionUUID->"8ac3137f-9f13-664a-8477-3a4565990417"], +Cell[337081, 8473, 530, 11, 33, "Message",ExpressionUUID->"5ef1aa89-df87-6d45-bde2-dd580e1a353d"], +Cell[337614, 8486, 532, 11, 33, "Message",ExpressionUUID->"d06032c5-0937-9742-b2a0-7d5e1e6c1331"], +Cell[338149, 8499, 478, 10, 20, "Message",ExpressionUUID->"daddf468-7583-bf44-91fd-bd930c4f908f"], +Cell[338630, 8511, 22019, 406, 188, "Output",ExpressionUUID->"957ebdd5-6efe-574c-ab58-3a77402eb4ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[360686, 8922, 1616, 48, 69, "Input",ExpressionUUID->"eea9d904-4069-4649-bea7-08e03245dd6c"], +Cell[362305, 8972, 625, 13, 33, "Message",ExpressionUUID->"9c774682-5788-804b-8579-bdd03ecfe2c7"], +Cell[362933, 8987, 625, 13, 33, "Message",ExpressionUUID->"69ddd773-dbf4-2f4d-b9c0-fd747e7d1d09"], +Cell[363561, 9002, 629, 13, 33, "Message",ExpressionUUID->"0f967daa-d6ce-9b48-bed7-96051489b90b"], +Cell[364193, 9017, 502, 11, 20, "Message",ExpressionUUID->"af261e6f-3801-0644-aec0-488440ab726e"], +Cell[364698, 9030, 219, 4, 25, "Output",ExpressionUUID->"601c52aa-159a-7843-94b0-a82de69e3860"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364954, 9039, 2300, 65, 62, "Input",ExpressionUUID->"3915107a-86d9-0f46-b139-986db5ca6b3b"], +Cell[367257, 9106, 594, 12, 33, "Message",ExpressionUUID->"c954441f-1ae2-e949-8a0b-96abea946cec"], +Cell[367854, 9120, 601, 13, 33, "Message",ExpressionUUID->"f1ef4cc8-0365-f54e-b9df-4f88dae2b79a"], +Cell[368458, 9135, 606, 13, 33, "Message",ExpressionUUID->"1134f2df-f8fa-e343-b191-80e4cc21e976"], +Cell[369067, 9150, 505, 11, 20, "Message",ExpressionUUID->"8f6b057c-e266-b145-ada4-59fddf19b8b2"], +Cell[369575, 9163, 221, 4, 25, "Output",ExpressionUUID->"83f6ae82-5313-8d40-8220-60be1721a92d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[369833, 9172, 2242, 64, 62, "Input",ExpressionUUID->"f3705611-962a-7d49-8494-287e0d1eefa8"], +Cell[372078, 9238, 593, 12, 33, "Message",ExpressionUUID->"c496535e-9262-0143-8dd7-9fc662e3121a"], +Cell[372674, 9252, 598, 13, 33, "Message",ExpressionUUID->"3c91d766-7141-ff4e-bd5f-c02cc47fdaf5"], +Cell[373275, 9267, 603, 13, 33, "Message",ExpressionUUID->"17a235ab-80c1-3f42-90be-45a84f2dd5ff"], +Cell[373881, 9282, 504, 11, 20, "Message",ExpressionUUID->"c9b71057-d464-4441-b8ef-d57aab133873"], +Cell[374388, 9295, 223, 4, 25, "Output",ExpressionUUID->"f1ec9105-d252-e647-b580-2a785267bf39"] +}, Open ]], +Cell[CellGroupData[{ +Cell[374648, 9304, 2242, 64, 62, "Input",ExpressionUUID->"1c2bb25c-a24b-4143-a03c-8699409c5ef4"], +Cell[376893, 9370, 592, 12, 33, "Message",ExpressionUUID->"5dab5525-8323-124e-b334-b1da729865b7"], +Cell[377488, 9384, 599, 13, 33, "Message",ExpressionUUID->"5b9d825c-d440-4a41-88eb-ae4641a286b7"], +Cell[378090, 9399, 602, 13, 33, "Message",ExpressionUUID->"2c51dc73-9615-6440-a875-a3a3589b1191"], +Cell[378695, 9414, 503, 11, 20, "Message",ExpressionUUID->"0e600335-f46f-dd4b-bb32-66168281687d"], +Cell[379201, 9427, 217, 4, 25, "Output",ExpressionUUID->"d0dfcaf9-b4a6-9a49-a5c2-80eb66910cbd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[379455, 9436, 236, 6, 38, "Input",ExpressionUUID->"df5a49d1-7ffc-9d41-9de9-b2cb4ed5c458"], +Cell[379694, 9444, 223, 4, 25, "Output",ExpressionUUID->"fb7fbbe4-1127-7e41-9579-45d4b66bff88"] +}, Open ]], +Cell[379932, 9451, 271, 6, 34, "Input",ExpressionUUID->"f1e753e6-7de9-0b47-aa25-47e49d9ceac1"], +Cell[CellGroupData[{ +Cell[380228, 9461, 558, 19, 42, "Input",ExpressionUUID->"24c8f2e4-3fba-8b49-a53c-9297f14cb47a"], +Cell[380789, 9482, 220, 4, 25, "Output",ExpressionUUID->"e1ece8f9-6eb9-1f45-b23d-59a2aa5e3284"] +}, Open ]], +Cell[CellGroupData[{ +Cell[381046, 9491, 170, 5, 46, "Input",ExpressionUUID->"56d70fe5-9e2b-c64e-bfc2-fde134e22b5d"], +Cell[381219, 9498, 221, 4, 25, "Output",ExpressionUUID->"abdee6f3-9cc8-6749-90c7-00d677a0cd75"] +}, Open ]], +Cell[CellGroupData[{ +Cell[381477, 9507, 181, 5, 35, "Input",ExpressionUUID->"4acc66ff-efd9-9749-a32c-ab2aed359d56"], +Cell[381661, 9514, 220, 4, 25, "Output",ExpressionUUID->"a9404d47-1f6e-f144-b017-d6bc01fdc1f3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[381918, 9523, 6055, 185, 153, "Input",ExpressionUUID->"b77d1393-1706-0344-94ba-b60790e869c9"], +Cell[387976, 9710, 220, 4, 25, "Output",ExpressionUUID->"c9345d33-d0e8-ef4d-bbbd-a32a53ec0027"] +}, Open ]], +Cell[CellGroupData[{ +Cell[388233, 9719, 368, 9, 33, "Input",ExpressionUUID->"d3dc886c-76ef-e140-8bf7-ae2b35b15037"], +Cell[388604, 9730, 218, 4, 25, "Output",ExpressionUUID->"9fd93fa4-1a45-2d46-baf6-43673993c68c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[388859, 9739, 6122, 187, 153, "Input",ExpressionUUID->"a2a617e0-a59a-4147-bc6f-17a0446bc938"], +Cell[394984, 9928, 223, 4, 25, "Output",ExpressionUUID->"271ed5f0-1bf6-b240-ad09-a7d7a6fd4925"] +}, Open ]], +Cell[CellGroupData[{ +Cell[395244, 9937, 368, 9, 33, "Input",ExpressionUUID->"764ea9ee-2dee-8949-964f-92b7fcc0b4f1"], +Cell[395615, 9948, 219, 4, 25, "Output",ExpressionUUID->"bbe1c22a-c3b4-094f-a0bd-8ce8b27946df"] +}, Open ]], +Cell[CellGroupData[{ +Cell[395871, 9957, 2663, 88, 90, "Input",ExpressionUUID->"8de6527c-f379-114f-be34-ffaf646fc19c"], +Cell[398537, 10047, 224, 4, 25, "Output",ExpressionUUID->"37bf5cb3-ee2c-1a43-a40a-7d93e05dbe06"] +}, Open ]], +Cell[CellGroupData[{ +Cell[398798, 10056, 2603, 85, 46, "Input",ExpressionUUID->"bcbbe365-5317-404f-8cca-b17046887210"], +Cell[401404, 10143, 218, 4, 25, "Output",ExpressionUUID->"253f7a71-1d3d-2341-a5d8-affd53b97230"] +}, Open ]], +Cell[CellGroupData[{ +Cell[401659, 10152, 3712, 118, 135, "Input",ExpressionUUID->"c57327ef-c920-754d-8029-af14560ebe8f"], +Cell[405374, 10272, 220, 4, 25, "Output",ExpressionUUID->"8c2ae604-040c-b546-bded-822deceaedd2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[405631, 10281, 2074, 59, 92, "Input",ExpressionUUID->"670d91c8-ce08-f444-b144-138ebae0f868"], +Cell[407708, 10342, 605, 13, 33, "Message",ExpressionUUID->"c6ef7fd9-6659-c845-a4a0-23cf645dfe56"], +Cell[408316, 10357, 606, 13, 33, "Message",ExpressionUUID->"b8530b1b-9735-eb4c-ade3-fc61db7ba117"], +Cell[408925, 10372, 610, 13, 33, "Message",ExpressionUUID->"1096c8b6-8a12-6a4c-847a-ffca000b212d"], +Cell[409538, 10387, 505, 11, 20, "Message",ExpressionUUID->"0a7ccc1f-e145-5243-8f45-e174338794e1"], +Cell[410046, 10400, 220, 4, 25, "Output",ExpressionUUID->"e7d7935a-cacf-3745-8aec-827baa1e4ff9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[410303, 10409, 2074, 59, 92, "Input",ExpressionUUID->"862c274e-f293-6a41-8f4f-719ed57da8ce"], +Cell[412380, 10470, 605, 13, 33, "Message",ExpressionUUID->"96eef200-db2a-d947-b64d-e6061d33b314"], +Cell[412988, 10485, 605, 13, 33, "Message",ExpressionUUID->"ba70f34a-96f6-0349-b7e1-61ee7d1f7569"], +Cell[413596, 10500, 612, 13, 33, "Message",ExpressionUUID->"ef8c1fdd-3747-e647-af3b-7c195cfc008b"], +Cell[414211, 10515, 507, 11, 20, "Message",ExpressionUUID->"ecf9da16-a140-2a4b-ba11-a3dd1e226561"], +Cell[414721, 10528, 220, 4, 25, "Output",ExpressionUUID->"a30f483c-d4a1-0045-ba4c-615ca77e7054"] +}, Open ]], +Cell[CellGroupData[{ +Cell[414978, 10537, 2138, 60, 92, "Input",ExpressionUUID->"f5360edc-957d-9f48-b8b4-746fa181d4a5"], +Cell[417119, 10599, 519, 11, 33, "Message",ExpressionUUID->"6ab7f9be-c01e-824a-ab42-e7edd2fa2730"], +Cell[417641, 10612, 523, 11, 33, "Message",ExpressionUUID->"ed2dd856-02ec-af41-aef0-0d47358603b2"], +Cell[418167, 10625, 525, 11, 33, "Message",ExpressionUUID->"683d9bfd-9f8d-3d45-942b-a43690671a14"], +Cell[418695, 10638, 478, 10, 20, "Message",ExpressionUUID->"2c92984f-ce76-8642-85be-b2b7d0aed04f"], +Cell[419176, 10650, 22348, 412, 187, "Output",ExpressionUUID->"5c9eb9ae-aae8-d647-91dc-b75eef00c283"] +}, Open ]], +Cell[CellGroupData[{ +Cell[441561, 11067, 229, 5, 34, "Input",ExpressionUUID->"b422dcab-ec5f-5543-9fba-aafac96e937c"], +Cell[441793, 11074, 28309, 536, 187, "Output",ExpressionUUID->"72e560cb-f709-ce4b-8fca-b8ff5e3d7545"] +}, Open ]], +Cell[CellGroupData[{ +Cell[470139, 11615, 1616, 48, 69, "Input",ExpressionUUID->"143d6afa-76a8-b440-a2a9-2759769b081f"], +Cell[471758, 11665, 634, 13, 33, "Message",ExpressionUUID->"e424e5e5-64e8-594d-bab5-d717e9f327df"], +Cell[472395, 11680, 635, 13, 33, "Message",ExpressionUUID->"1791624e-fe73-7e40-b091-db5b4e942818"], +Cell[473033, 11695, 638, 13, 33, "Message",ExpressionUUID->"c4f1578d-5b5c-c349-a546-c231fcb7ba61"], +Cell[473674, 11710, 509, 11, 20, "Message",ExpressionUUID->"b850d75f-3206-934d-afd2-e8853fb26283"], +Cell[474186, 11723, 218, 4, 25, "Output",ExpressionUUID->"ee83eab7-201d-604d-8398-b6a81a8d3e46"] +}, Open ]], +Cell[CellGroupData[{ +Cell[474441, 11732, 2272, 64, 62, "Input",ExpressionUUID->"2e239e43-8455-8947-be70-b8e43bbe859a"], +Cell[476716, 11798, 605, 13, 33, "Message",ExpressionUUID->"93e6f8ef-cffc-be4f-ab0e-da05ccc5b220"], +Cell[477324, 11813, 606, 13, 33, "Message",ExpressionUUID->"a3924115-f4ef-7f47-98cd-e48d8582219e"], +Cell[477933, 11828, 610, 13, 33, "Message",ExpressionUUID->"fd2afa9b-1f0b-5c46-9353-b3f9d715efc7"], +Cell[478546, 11843, 505, 11, 20, "Message",ExpressionUUID->"e1a1b3ed-c523-9248-b96d-8aa720095129"], +Cell[479054, 11856, 221, 4, 25, "Output",ExpressionUUID->"afc0e34f-8f42-a34c-a43e-5522205dedc6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[479312, 11865, 2244, 64, 62, "Input",ExpressionUUID->"99e346c1-cf6d-8f4a-b6fb-39037ee79c0a"], +Cell[481559, 11931, 603, 13, 33, "Message",ExpressionUUID->"e7af73df-b88a-3b47-a1c9-da4745825aab"], +Cell[482165, 11946, 606, 13, 33, "Message",ExpressionUUID->"08b155c9-5219-b346-9aed-6c5f739140ce"], +Cell[482774, 11961, 610, 13, 33, "Message",ExpressionUUID->"dbe43aa5-0b08-8742-a860-3f9b0271f839"], +Cell[483387, 11976, 503, 11, 20, "Message",ExpressionUUID->"c9ed5e32-b8ec-b348-8e3a-5333ed7c3b00"], +Cell[483893, 11989, 224, 4, 25, "Output",ExpressionUUID->"8abaee75-0596-e045-b564-1e76e7bbef78"] +}, Open ]], +Cell[CellGroupData[{ +Cell[484154, 11998, 2244, 64, 62, "Input",ExpressionUUID->"867b2dc8-7ef3-234b-80bd-e701484a92f5"], +Cell[486401, 12064, 605, 13, 33, "Message",ExpressionUUID->"d60707ce-4c54-5a46-b6d2-2f6d5d95c12e"], +Cell[487009, 12079, 608, 13, 33, "Message",ExpressionUUID->"71d146c7-8654-a942-8c08-39b95319cde8"], +Cell[487620, 12094, 614, 13, 33, "Message",ExpressionUUID->"6aeb0f11-1d10-2d49-8201-875b850c5641"], +Cell[488237, 12109, 507, 11, 20, "Message",ExpressionUUID->"298d0521-dccb-384e-ae7d-d906c95cdd8f"], +Cell[488747, 12122, 224, 4, 25, "Output",ExpressionUUID->"c21ef28d-efd7-8b4b-88a2-fbf4eb0c298e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[489008, 12131, 236, 6, 38, "Input",ExpressionUUID->"b1cee125-11a3-8a43-b076-a72829d187d3"], +Cell[489247, 12139, 221, 4, 25, "Output",ExpressionUUID->"01cb00ea-dc7e-5440-a744-6c1e6771c16b"] +}, Open ]], +Cell[489483, 12146, 268, 6, 70, "Input",ExpressionUUID->"e87cb7b6-2d4f-2b46-b7dc-f61f4036bef1"], +Cell[CellGroupData[{ +Cell[489776, 12156, 558, 19, 42, "Input",ExpressionUUID->"dafb41d5-8379-5e45-a5a7-0828c3048eab"], +Cell[490337, 12177, 224, 4, 25, "Output",ExpressionUUID->"81e8fdb8-cffa-cf40-9c58-f0db7a1dbb41"] +}, Open ]], +Cell[CellGroupData[{ +Cell[490598, 12186, 170, 5, 46, "Input",ExpressionUUID->"3d6ec365-065c-9046-b32d-db356c9d51fa"], +Cell[490771, 12193, 219, 4, 25, "Output",ExpressionUUID->"99b6efb3-7fde-9841-b098-03c5b91b6899"] +}, Open ]], +Cell[CellGroupData[{ +Cell[491027, 12202, 181, 5, 35, "Input",ExpressionUUID->"c7dc55d1-f163-224f-bef1-731f35b2237f"], +Cell[491211, 12209, 223, 4, 25, "Output",ExpressionUUID->"0f7f52cf-8035-3e4e-93aa-82f2459a0642"] +}, Open ]], +Cell[CellGroupData[{ +Cell[491471, 12218, 6055, 185, 153, "Input",ExpressionUUID->"ae1da06e-d004-c94e-a60b-5d6c8a81d4a0"], +Cell[497529, 12405, 224, 4, 25, "Output",ExpressionUUID->"bd7feb3a-a9b9-7f43-a73b-e42a7e655cc5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[497790, 12414, 368, 9, 33, "Input",ExpressionUUID->"711641aa-bfb1-b442-a8a1-7f2d92e52258"], +Cell[498161, 12425, 219, 4, 25, "Output",ExpressionUUID->"254b34a4-79c8-8749-be40-c2fc0496cb3b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[498417, 12434, 6122, 187, 153, "Input",ExpressionUUID->"03560694-f256-804d-bdf2-150141b736fd"], +Cell[504542, 12623, 222, 4, 25, "Output",ExpressionUUID->"2af762d4-bad9-814b-9203-21ace46d8db6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[504801, 12632, 368, 9, 33, "Input",ExpressionUUID->"41fd6fe5-afbf-ed41-96d1-404a404fc933"], +Cell[505172, 12643, 221, 4, 25, "Output",ExpressionUUID->"899c67f9-9662-3c41-bdc9-95fd31ba3638"] +}, Open ]], +Cell[CellGroupData[{ +Cell[505430, 12652, 2663, 88, 90, "Input",ExpressionUUID->"1ffc2e4a-e112-f841-8653-59d1c97f1323"], +Cell[508096, 12742, 222, 4, 25, "Output",ExpressionUUID->"d81423e0-c9e8-774b-b474-6cb2c8eda2e0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[508355, 12751, 2603, 85, 46, "Input",ExpressionUUID->"c98e90b4-3450-674d-a534-9abe2866d10f"], +Cell[510961, 12838, 220, 4, 25, "Output",ExpressionUUID->"e6981bae-92ce-5842-9d61-78595840c82b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[511218, 12847, 3712, 118, 135, "Input",ExpressionUUID->"3a1b0a64-3226-5845-846d-8f00794d5760"], +Cell[514933, 12967, 220, 4, 25, "Output",ExpressionUUID->"458b4024-904a-e348-bf64-65fa005a2568"] +}, Open ]], +Cell[CellGroupData[{ +Cell[515190, 12976, 2077, 59, 92, "Input",ExpressionUUID->"157a27fc-8a7f-ef4c-bd2d-9f444415254b"], +Cell[517270, 13037, 593, 12, 33, "Message",ExpressionUUID->"3f956691-abe9-4f4a-a867-53ce2edb33c0"], +Cell[517866, 13051, 596, 12, 33, "Message",ExpressionUUID->"58802660-344e-c647-aca6-d7a4a0fb14f0"], +Cell[518465, 13065, 604, 13, 33, "Message",ExpressionUUID->"c39dc9a4-864a-5444-839c-810c17908706"], +Cell[519072, 13080, 507, 11, 20, "Message",ExpressionUUID->"2d714eeb-241c-c64f-83ac-641abc688a84"], +Cell[519582, 13093, 221, 4, 25, "Output",ExpressionUUID->"bccf39af-7e2b-2d4d-8d7b-568473b5028b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[519840, 13102, 2075, 59, 92, "Input",ExpressionUUID->"11801718-69ec-bf4e-86d8-e9949dfbcff4"], +Cell[521918, 13163, 591, 12, 33, "Message",ExpressionUUID->"0e128053-7499-9848-8935-ff01354c3f03"], +Cell[522512, 13177, 594, 12, 33, "Message",ExpressionUUID->"71eebdb4-1429-3049-bcb2-79d7e6e438d9"], +Cell[523109, 13191, 604, 13, 33, "Message",ExpressionUUID->"21c4d7fc-1662-f04e-9948-73ddc0bb9d27"], +Cell[523716, 13206, 509, 11, 20, "Message",ExpressionUUID->"9f8c3dcc-2210-cf41-acad-e76e5c853c8f"], +Cell[524228, 13219, 221, 4, 25, "Output",ExpressionUUID->"47e06c6e-5ae4-4841-810c-5437fcae542e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[524486, 13228, 2143, 60, 92, "Input",ExpressionUUID->"4d882d59-3e42-1040-97a9-33dddc2b9855"], +Cell[526632, 13290, 519, 11, 33, "Message",ExpressionUUID->"ed73331f-101b-b74b-8546-9c4bbb0bcf48"], +Cell[527154, 13303, 519, 11, 33, "Message",ExpressionUUID->"69622c03-9ec2-bd46-9993-94022257e50a"], +Cell[527676, 13316, 524, 11, 33, "Message",ExpressionUUID->"41d62387-06ec-f54c-9b1b-94dd026bb208"], +Cell[528203, 13329, 480, 10, 20, "Message",ExpressionUUID->"bff5daf2-81c7-1f4d-93c5-1ad23da243ed"], +Cell[528686, 13341, 22368, 412, 187, "Output",ExpressionUUID->"e250ce20-148b-d34b-8bc2-4492c9bb0167"] +}, Open ]], +Cell[CellGroupData[{ +Cell[551091, 13758, 234, 5, 34, "Input",ExpressionUUID->"715f943f-d061-fa48-bb45-20a62a80a7df"], +Cell[551328, 13765, 28329, 536, 187, "Output",ExpressionUUID->"61202f13-9cec-c048-81dc-70c1c923455f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[579694, 14306, 1616, 48, 69, "Input",ExpressionUUID->"804e6c9f-1b36-2141-acb9-3b729fb7abb0"], +Cell[581313, 14356, 625, 13, 33, "Message",ExpressionUUID->"1ebaba7c-d54a-4146-8ed9-d1674c7d7437"], +Cell[581941, 14371, 629, 13, 33, "Message",ExpressionUUID->"7dee0740-8bf1-7a4d-98b8-9a472ed95101"], +Cell[582573, 14386, 631, 13, 33, "Message",ExpressionUUID->"2face5a9-3a55-7442-a8c1-3acffee7515d"], +Cell[583207, 14401, 509, 11, 20, "Message",ExpressionUUID->"c96ed26e-307b-d148-bffa-2e58146d6379"], +Cell[583719, 14414, 221, 4, 25, "Output",ExpressionUUID->"9e8f93ce-1159-814d-a789-703b16603d9e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[583977, 14423, 2272, 64, 62, "Input",ExpressionUUID->"9b45c184-4df7-db4d-adb2-01f19f0f15b0"], +Cell[586252, 14489, 589, 12, 33, "Message",ExpressionUUID->"627808ed-8833-bc44-8d55-62a147e553ba"], +Cell[586844, 14503, 590, 12, 33, "Message",ExpressionUUID->"9077d0f3-2989-5043-aa4a-56663a402c32"], +Cell[587437, 14517, 600, 13, 33, "Message",ExpressionUUID->"65b5fadc-fdee-a34e-9727-82c84639da92"], +Cell[588040, 14532, 503, 11, 20, "Message",ExpressionUUID->"be206705-fdbf-5a4a-aeb0-f1156e89d56f"], +Cell[588546, 14545, 219, 4, 25, "Output",ExpressionUUID->"f46809f1-4a05-3743-8275-b7cf465ef77c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[588802, 14554, 2244, 64, 62, "Input",ExpressionUUID->"00ca455f-f3f6-2c4f-8927-9e8c2d28dafd"], +Cell[591049, 14620, 591, 12, 33, "Message",ExpressionUUID->"dd6e56cd-54b9-844e-acb7-200a41a83eaa"], +Cell[591643, 14634, 594, 12, 33, "Message",ExpressionUUID->"7f06a280-2ebe-9643-902e-2e4a6361c8bf"], +Cell[592240, 14648, 604, 13, 33, "Message",ExpressionUUID->"8995d681-c289-7a4b-87df-132cc4783467"], +Cell[592847, 14663, 506, 11, 20, "Message",ExpressionUUID->"1f82d05b-4318-9246-b763-e6c519a3d481"], +Cell[593356, 14676, 172, 3, 25, "Output",ExpressionUUID->"bfdaccc8-c58d-9846-9fe6-a06af57d551e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[593565, 14684, 212, 4, 22, "Input",ExpressionUUID->"8cac9b30-e121-024d-91d3-cf92fd4a988a"], +Cell[593780, 14690, 170, 3, 25, "Output",ExpressionUUID->"c44a3258-a0dc-924d-9454-21797db6fd29"] +}, Open ]], +Cell[CellGroupData[{ +Cell[593987, 14698, 2244, 64, 62, "Input",ExpressionUUID->"b454660a-890c-f24b-923b-563bff174231"], +Cell[596234, 14764, 586, 12, 33, "Message",ExpressionUUID->"a78992d4-87ec-554d-89a4-93e92a625e51"], +Cell[596823, 14778, 589, 12, 33, "Message",ExpressionUUID->"d4d9979a-aff7-c549-97f1-8d4c94394a80"], +Cell[597415, 14792, 599, 13, 33, "Message",ExpressionUUID->"829ef7d0-fe81-2946-b5e8-ebd865effad4"], +Cell[598017, 14807, 502, 11, 20, "Message",ExpressionUUID->"d98abecf-e38b-7242-a73b-c7f0b91dccdf"], +Cell[598522, 14820, 221, 4, 25, "Output",ExpressionUUID->"515d30c5-cf37-b240-b3fe-a0d604ba96a5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[598780, 14829, 238, 6, 38, "Input",ExpressionUUID->"673f44c9-71c5-b64a-9ddb-ff434e6a2570"], +Cell[599021, 14837, 224, 4, 25, "Output",ExpressionUUID->"cee114d7-949d-a949-ad86-d92b2d8b95d6"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/118-122_l_Pu240_394-395/l_118-122_Pu240_394-395_osc_Qw2.nb b/templates/P240_2-51_YakuninDA/118-122_l_Pu240_394-395/l_118-122_Pu240_394-395_osc_Qw2.nb new file mode 100755 index 0000000..5c07882 --- /dev/null +++ b/templates/P240_2-51_YakuninDA/118-122_l_Pu240_394-395/l_118-122_Pu240_394-395_osc_Qw2.nb @@ -0,0 +1,15834 @@ +(* 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[ 665597, 15826] +NotebookOptionsPosition[ 625223, 15180] +NotebookOutlinePosition[ 625647, 15197] +CellTagsIndexPosition[ 625604, 15194] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "1.487"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.992091380220339*^9, 3.9920914023498554`*^9}, { + 3.992091432390732*^9, 3.9920914336565914`*^9}, {3.992091487909664*^9, + 3.992091509884199*^9}, {3.9920915487606087`*^9, 3.992091575705059*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"7becc32d-eb8d-4e45-8813-f88647e5707f"], + +Cell[BoxData["1.487`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.9920912460731335`*^9, {3.9920913913099537`*^9, + 3.9920914454062786`*^9}, {3.992091501746458*^9, 3.992091521168392*^9}, { + 3.992091560465807*^9, 3.9920915871378555`*^9}, 3.992127708881771*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"31d7deb4-7fca-ef4b-a8c1-3f894136c50b"] +}, Open ]], + +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.992090953169281*^9, 3.992090953674198*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"501d8ee7-1230-4347-82f5-596f0d5ad95a"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.992091246132065*^9, {3.992091391344839*^9, + 3.992091445453377*^9}, {3.9920915017833214`*^9, 3.9920915212033978`*^9}, { + 3.9920915605023823`*^9, 3.9920915871716385`*^9}, 3.9921277089307404`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"80acbd6d-f1c2-cd49-8d18-05ea2a05eebf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "118"}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.992090962010214*^9, + 3.9920909641549644`*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"63bec01c-e664-4d4f-ab41-21d70c3c0e53"], + +Cell[BoxData["118"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9920912461812153`*^9, {3.9920913913677273`*^9, + 3.9920914454793377`*^9}, {3.99209150180954*^9, 3.992091521232403*^9}, { + 3.9920915605245724`*^9, 3.9920915871936207`*^9}, 3.992127708943756*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"f63ce5d5-4038-1d48-8b93-b8d21bfbc055"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"cc4ee07a-894d-ae46-8e3b-7322fc5ebe6a"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.991707828219631*^9, 3.9917123414174232`*^9, + 3.992091246203041*^9, {3.9920913913887367`*^9, 3.9920914455115204`*^9}, { + 3.992091501832567*^9, 3.992091521255453*^9}, {3.992091560553467*^9, + 3.992091587215521*^9}, 3.9921277089617424`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"4c7d5e7e-6952-fb46-a615-a13f74ddf695"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"f3f36a60-4daf-2043-81ba-a7480a0c9f59"], + +Cell[BoxData["0.55025`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.9917078282275677`*^9, 3.9917123414253197`*^9, + 3.9920912462096825`*^9, {3.9920913913957386`*^9, 3.9920914455344753`*^9}, { + 3.992091501855606*^9, 3.9920915212775517`*^9}, {3.9920915605785923`*^9, + 3.992091587240816*^9}, 3.99212770897674*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"8e5f4113-0111-ab47-9dc7-e9ca3074952c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"ed61af50-b3ee-ec46-b982-53282e3d7921"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9917078282485256`*^9, 3.9917123414324265`*^9, + 3.9920912462325726`*^9, {3.992091391402746*^9, 3.9920914455405865`*^9}, { + 3.992091501883623*^9, 3.992091521300558*^9}, {3.992091560585478*^9, + 3.992091587269293*^9}, 3.992127708988739*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"7f38e11a-dd8d-694c-b531-db106036504c"] +}, 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->"2f049cf6-e93b-4b45-8491-75c1252573f6"], + +Cell[BoxData["5.6896470325678585`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.9917078282706223`*^9, 3.9917123414384117`*^9, + 3.992091246239073*^9, {3.9920913914237976`*^9, 3.9920914455615807`*^9}, { + 3.992091501905611*^9, 3.9920915213065586`*^9}, {3.992091560607477*^9, + 3.99209158727639*^9}, 3.9921277089987545`*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"76bcb169-2047-e345-8fc2-af354f21057d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"566b9f9d-bdf4-ac4e-99c0-499ed1c6f439"], + +Cell[BoxData["5.753223770057068`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.9917078282785244`*^9, 3.991712341447321*^9, + 3.992091246266403*^9, {3.9920913914307785`*^9, 3.9920914455675926`*^9}, { + 3.9920915019126167`*^9, 3.992091521328596*^9}, {3.992091560630516*^9, + 3.9920915872983055`*^9}, 3.992127709011585*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"fa20f2e5-e56c-4945-83db-cf646357d068"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.912564762497319"}]], "Input", + CellChangeTimes->{3.9917123951294365`*^9, 3.99179305435186*^9, + 3.9920909790636597`*^9}, + CellLabel->"In[9]:=",ExpressionUUID->"d021772c-daca-d449-b0d2-56e32add61b0"], + +Cell[BoxData["0.912564762497319`"], "Output", + CellChangeTimes->{ + 3.991319649862606*^9, 3.991707828301527*^9, 3.9917123414573193`*^9, + 3.991712407248003*^9, 3.9920912462732334`*^9, {3.992091391454897*^9, + 3.992091445574003*^9}, {3.992091501939644*^9, 3.9920915213345757`*^9}, { + 3.9920915606593704`*^9, 3.9920915873053074`*^9}, 3.9921277090232563`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"81a195aa-a667-9545-a41b-2b3b070310f8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.619150671620403"}]], "Input", + CellChangeTimes->{3.9917124038115807`*^9, 3.991793052797516*^9, + 3.992090983698309*^9}, + CellLabel->"In[10]:=",ExpressionUUID->"92a4d197-ed9e-234a-8fde-2abd89583a7d"], + +Cell[BoxData["0.619150671620403`"], "Output", + CellChangeTimes->{ + 3.9913196498716316`*^9, 3.991707828308525*^9, 3.99171234146842*^9, + 3.9917124073213234`*^9, 3.9920912462944527`*^9, {3.992091391461418*^9, + 3.992091445598377*^9}, {3.992091501946205*^9, 3.9920915213588047`*^9}, { + 3.9920915606653767`*^9, 3.992091587327593*^9}, 3.992127709033367*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"2590f61d-d9c6-8646-a964-84de792d0317"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"d615b668-43c2-6145-984e-5a8100e3cce8"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.9917078283276424`*^9, 3.991712341478319*^9, + 3.992091246314249*^9, {3.992091391486412*^9, 3.9920914456043663`*^9}, { + 3.9920915019684505`*^9, 3.992091521368332*^9}, {3.9920915606893826`*^9, + 3.9920915873371162`*^9}, 3.9921277090450535`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"f852a541-b7fa-bd4d-9775-c86280ab382c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"a6496b93-6920-3f45-a9b8-0f0465d78418"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.99170782834754*^9, 3.9917123414863186`*^9, + 3.992091246321356*^9, {3.992091391511833*^9, 3.992091445629402*^9}, { + 3.992091501974474*^9, 3.9920915213903313`*^9}, {3.9920915606973896`*^9, + 3.992091587358549*^9}, 3.992127709057066*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"4ab4ffeb-6b34-424a-a1ed-5d0d28362374"] +}, 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->"eb96a8df-b43d-2546-8808-919c108697de"], + +Cell[BoxData["2.3367797709113582`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.991707968406042*^9, 3.9920912463416023`*^9, { + 3.992091391536875*^9, 3.9920914456353855`*^9}, {3.992091501999426*^9, + 3.9920915213963375`*^9}, {3.992091560721428*^9, 3.9920915873665257`*^9}, + 3.992127709070572*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"b4b520d6-184b-d640-bcc5-9b803c5d5d83"] +}, 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->"823ffbf1-a50f-e840-8cb2-e67c74b01da2"], + +Cell[BoxData["1.7566650946816267`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.9917079684291363`*^9, 3.992091246349119*^9, { + 3.9920913915428715`*^9, 3.992091445656397*^9}, {3.9920915020104103`*^9, + 3.9920915214180527`*^9}, {3.9920915607274265`*^9, 3.9920915873885345`*^9}, + 3.992127709083889*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"1feac3a4-e91f-e645-ab8a-0c67bc9f5701"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"9dcd5006-9ec8-db49-bd89-7b9e52c1c35c"], + +Cell[BoxData["0.4127308494837588`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.991707968457081*^9, 3.9920912463708134`*^9, { + 3.9920913915624123`*^9, 3.9920914456634007`*^9}, {3.992091502031412*^9, + 3.9920915214423656`*^9}, {3.992091560753374*^9, 3.9920915873955364`*^9}, + 3.992127709098446*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"d88c4b09-d791-894a-b406-fbe952a1f9df"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"528b9bc2-408c-0d4f-9785-2b4842406a81"], + +Cell[BoxData[ + RowBox[{"-", "0.1731065192411402`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.9917079684650364`*^9, 3.992091246395151*^9, { + 3.9920913915704136`*^9, 3.99209144568738*^9}, {3.9920915020386753`*^9, + 3.9920915214493656`*^9}, {3.9920915607803288`*^9, 3.9920915874025383`*^9}, + 3.9921277091164513`*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"b45a2f86-a3e8-1a4c-942d-cefa4dbfa3fc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"93e1d94f-4a7d-b945-9096-fa632357caf7"], + +Cell[BoxData[ + RowBox[{"-", "0.4062816230025426`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.9917079684860363`*^9, 3.9920912464020443`*^9, { + 3.992091391594614*^9, 3.9920914456933784`*^9}, {3.9920915020645943`*^9, + 3.9920915214756165`*^9}, {3.9920915607873363`*^9, 3.9920915874245453`*^9}, + 3.9921277091274986`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"92862a6a-ba7c-7b48-a56e-19d08094c553"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"d455cb89-3314-9b43-ac05-57b52f28daf4"], + +Cell[BoxData["0.6303744483208076`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9917079684940376`*^9, 3.992091246410055*^9, { + 3.992091391600609*^9, 3.992091445718569*^9}, {3.9920915020705986`*^9, + 3.992091521497614*^9}, {3.9920915608113365`*^9, 3.992091587431551*^9}, + 3.992127709137459*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"9ba5a865-4a41-a549-a88e-d34758471ec1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"a05095db-b9de-9b48-ac56-2a32e3bf062f"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9917079685140343`*^9, 3.992091246419077*^9, { + 3.9920913916226387`*^9, 3.992091445728756*^9}, {3.992091502098713*^9, + 3.9920915215232697`*^9}, {3.9920915608188477`*^9, 3.9920915874605484`*^9}, + 3.9921277091495667`*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"e39f8c15-4461-9b48-896f-400614304e30"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellChangeTimes->{3.9918430951178913`*^9}, + CellLabel->"In[20]:=",ExpressionUUID->"29bd74d9-1c61-0d45-b389-dbb48ee4f1ee"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.991707968535036*^9, 3.992091246425289*^9, { + 3.9920913916286793`*^9, 3.9920914457553444`*^9}, {3.992091502104719*^9, + 3.992091521546232*^9}, {3.992091560843672*^9, 3.9920915874835606`*^9}, + 3.9921277091584644`*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"8c380c16-086d-8442-998f-5a3a4110b80b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"0158aa26-de03-4146-a4b6-ac2833160e7c"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.9917079685410557`*^9, 3.9920912464323254`*^9, { + 3.9920913916372147`*^9, 3.992091445775835*^9}, {3.9920915021291866`*^9, + 3.992091521553232*^9}, {3.9920915608516827`*^9, 3.9920915874905663`*^9}, + 3.992127709168461*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"4cb8ef03-7ed2-0e41-b6e6-3107216f09cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"430daa96-0934-c24c-b4b5-d444dbf3619c"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.991707968561041*^9, 3.992091246440319*^9, { + 3.9920913916577415`*^9, 3.992091445800337*^9}, {3.9920915021357*^9, + 3.992091521578417*^9}, {3.9920915608854294`*^9, 3.992091587511568*^9}, + 3.9921277091831703`*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"cda110ee-9674-2443-81a4-ae51532cf2f6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"04fe76a6-5f0e-754e-acad-d1cf2fb0ab28"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.9917079685810375`*^9, 3.9920912464478264`*^9, { + 3.992091391664732*^9, 3.992091445806362*^9}, {3.9920915021607113`*^9, + 3.992091521584406*^9}, {3.9920915609120617`*^9, 3.992091587533596*^9}, + 3.9921277091951656`*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"c299c689-bff4-9a44-96aa-8d28cdbe61a0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "46"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.9917930777342243`*^9, + 3.9920909943046665`*^9}, + CellLabel->"In[24]:=",ExpressionUUID->"8684be0e-3bbc-154d-ad18-38faf8863505"], + +Cell[BoxData["46"], "Output", + CellChangeTimes->{ + 3.9920912464541206`*^9, {3.9920913916852074`*^9, 3.99209144582835*^9}, { + 3.9920915021677265`*^9, 3.992091521614517*^9}, {3.992091560933424*^9, + 3.9920915875599613`*^9}, 3.9921277092062435`*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"85297e4d-ab56-0745-a20d-6faed80993a5"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431115646553`*^9, 3.991843111569187*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"85a33b89-71fa-684e-bb3e-64e2b87fcf6c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, { + 3.991644237125025*^9, 3.991644237304865*^9}, 3.9920910015266705`*^9}, + CellLabel->"In[26]:=",ExpressionUUID->"0c7088f6-2c66-f64b-8b61-3532da7b9eda"], + +Cell[BoxData["48"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.991707968608036*^9, 3.992091246462631*^9, { + 3.992091391693775*^9, 3.992091445837349*^9}, {3.9920915021987267`*^9, + 3.992091521643547*^9}, {3.9920915609663124`*^9, 3.992091587583498*^9}, + 3.9921277092242756`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"aa948db7-077c-f342-977c-f5e84c7f9d9b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"c36247d5-b837-624b-bdaa-a13bf2c85851"], + +Cell[BoxData["122"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.9917079686284103`*^9, 3.992091246474682*^9, { + 3.992091391720581*^9, 3.9920914458603497`*^9}, {3.99209150222027*^9, + 3.992091521651558*^9}, {3.9920915609955387`*^9, 3.9920915876045036`*^9}, + 3.992127709240267*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"77ff2a36-62cb-b748-822f-ceedfdb42a9d"] +}, 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->"8fdf3705-eec8-1240-9ca7-3673af46fcaf"], + +Cell[BoxData["0.10972214504028896`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9917079686354065`*^9, 3.992091246481163*^9, { + 3.992091391726591*^9, 3.9920914458677864`*^9}, {3.992091502227312*^9, + 3.992091521675709*^9}, {3.992091561028263*^9, 3.9920915876295033`*^9}, + 3.9921277092544117`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"f9b3a4a9-f631-a049-bf95-f2da3cf92555"] +}, 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->"0ea23348-bf1f-9d45-8263-bc34b0e56633"], + +Cell[BoxData[ + RowBox[{"-", "2.564642956376771`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.991707968658518*^9, 3.992091246487665*^9, { + 3.9920913917495956`*^9, 3.992091445888296*^9}, {3.9920915022568245`*^9, + 3.9920915216830196`*^9}, {3.99209156103529*^9, 3.99209158763678*^9}, + 3.992127709271469*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"42f602ba-579f-434c-9948-dd86acd5422d"] +}, 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.991972093618887*^9, 3.9919720982596817`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"4db5e823-2230-df40-80cb-9001b40f09df"], + +Cell[BoxData["17.899365062297456`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.991707968678421*^9, 3.9920912464957485`*^9, { + 3.992091391759611*^9, 3.9920914459163265`*^9}, {3.9920915022773495`*^9, + 3.992091521707552*^9}, {3.9920915610422688`*^9, 3.9920915876663055`*^9}, + 3.9921277092852554`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"e78d72f6-43f9-8149-9284-7b3bbdf993c7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"96863d52-30ab-a744-bf77-247b24cb12d8"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.9917079686854057`*^9, 3.9920912465018635`*^9, { + 3.9920913917806015`*^9, 3.992091445936638*^9}, {3.992091502299345*^9, + 3.9920915217152386`*^9}, {3.9920915610632706`*^9, 3.9920915876903477`*^9}, + 3.9921277092997665`*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"684c8999-e8fe-0c49-a096-aa33f98e4c07"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.196"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.991793106556059*^9, 3.9920910273198013`*^9}, + CellLabel->"In[32]:=",ExpressionUUID->"9db91ff1-563f-7f49-af13-821d82c7d432"], + +Cell[BoxData["1.196`"], "Output", + CellChangeTimes->{ + 3.9920912465078697`*^9, {3.9920913917876263`*^9, 3.9920914459436436`*^9}, { + 3.9920915023063526`*^9, 3.992091521742319*^9}, {3.9920915610702686`*^9, + 3.9920915876973457`*^9}, 3.992127709312895*^9}, + CellLabel->"Out[32]=",ExpressionUUID->"d168b61c-c4b1-3445-a122-c9047e592e44"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431193859673`*^9, 3.9918431193894367`*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"55e2fea8-d69b-c047-a527-3a9b7f98da48"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.867"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917169698218613`*^9, 3.991717907758713*^9, + 3.991793107839529*^9, 3.992091031242695*^9}, + CellLabel->"In[34]:=",ExpressionUUID->"575beacd-3e55-b245-ac1d-59fa721e0642"], + +Cell[BoxData["0.867`"], "Output", + CellChangeTimes->{ + 3.9920912465181103`*^9, {3.9920913918106594`*^9, 3.992091445969261*^9}, { + 3.9920915023426647`*^9, 3.9920915217668476`*^9}, {3.9920915610932617`*^9, + 3.9920915877213497`*^9}, 3.99212770933288*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"5bfe7738-02ed-b94f-ab13-b1a7abc50420"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843120757866*^9, 3.9918431207603054`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"b010352a-df1e-7640-a13b-6f618ced4f27"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv1", "=", "2.100"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.991717916696951*^9, + 3.991793108990593*^9, 3.992091034612562*^9}, + CellLabel->"In[36]:=",ExpressionUUID->"70b9c07d-1093-3445-a9fb-744d8dee5ac7"], + +Cell[BoxData["2.1`"], "Output", + CellChangeTimes->{ + 3.992091246526657*^9, {3.992091391835745*^9, 3.9920914459788876`*^9}, { + 3.992091502366289*^9, 3.992091521799389*^9}, {3.9920915611022453`*^9, + 3.9920915877303467`*^9}, 3.9921277093548145`*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"0066110b-1d3f-c04c-bc8e-d0772ff58212"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431220200443`*^9, 3.9918431220220585`*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"cf4f9a38-9f3e-fc41-a9f9-da910343df1c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn1", "=", "1.164"}], "\n"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.991716995355715*^9, + 3.9917931103354855`*^9, 3.992091037709795*^9}, + CellLabel->"In[38]:=",ExpressionUUID->"b03f7211-2152-144e-89eb-b61f7f3d7595"], + +Cell[BoxData["1.164`"], "Output", + CellChangeTimes->{ + 3.9920912465361576`*^9, {3.9920913918577538`*^9, 3.9920914460063896`*^9}, { + 3.9920915023973026`*^9, 3.9920915218073883`*^9}, {3.992091561133566*^9, + 3.9920915877534084`*^9}, 3.992127709372719*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"3f7e2665-b5f4-7a4a-8fd7-5907643631df"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431237966404`*^9, 3.9918431238010616`*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"8e1e0caa-d0c7-a44a-966b-c3e5b9c19a60"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.092"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991717006317978*^9, 3.9917931115739956`*^9, 3.992091043143379*^9}, + CellLabel->"In[40]:=",ExpressionUUID->"f744e2a7-13fa-0d41-9416-8c7b221abc31"], + +Cell[BoxData["1.092`"], "Output", + CellChangeTimes->{ + 3.992091246544861*^9, {3.992091391881483*^9, 3.992091446029396*^9}, { + 3.9920915024203033`*^9, 3.992091521830391*^9}, {3.9920915611575603`*^9, + 3.9920915877614*^9}, 3.992127709386017*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"f1b92c08-4eb0-014a-bda1-41f58696fa29"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431249171696`*^9, 3.991843124921198*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"e1602f9b-7ce5-a245-a432-ad8101885ef6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.745"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917170151233826`*^9, 3.9917931128910503`*^9, 3.9920910468211155`*^9}, + CellLabel->"In[42]:=",ExpressionUUID->"c94eb86e-b158-d74c-b004-3b2e41ab51d0"], + +Cell[BoxData["0.745`"], "Output", + CellChangeTimes->{ + 3.99209124655336*^9, {3.9920913919080105`*^9, 3.9920914460524216`*^9}, { + 3.9920915024468384`*^9, 3.992091521861906*^9}, {3.992091561166565*^9, + 3.9920915877864456`*^9}, 3.9921277093970184`*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"ff83928b-b366-bb48-b167-bece01cbe466"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843126102844*^9, 3.991843126104536*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"47239c8e-9d2d-9b49-b541-49ec180a0d99"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv2", "=", "1.690"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, { + 3.9917170243815575`*^9, 3.991717046491377*^9}, 3.991793114539028*^9, + 3.9920910516142616`*^9}, + CellLabel->"In[44]:=",ExpressionUUID->"db7a6b7e-f22d-9d4a-88fc-bf90c373beff"], + +Cell[BoxData["1.69`"], "Output", + CellChangeTimes->{ + 3.992091246563381*^9, {3.9920913919170284`*^9, 3.992091446078829*^9}, { + 3.992091502472595*^9, 3.992091521870432*^9}, {3.992091561191597*^9, + 3.992091587811405*^9}, 3.9921277094111366`*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"130fc4d1-11c4-d04b-b41b-451c4a14264c"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431274420605`*^9, 3.9918431274461517`*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"ff3ad8d4-925e-4e42-aa21-0c88fc05cc4e"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn2", "=", "0.942"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.991793116134735*^9, 3.9920910554773026`*^9}, + CellLabel->"In[46]:=",ExpressionUUID->"c1e3bd1e-f011-8345-8c05-ba1d7b4609e9"], + +Cell[BoxData["0.942`"], "Output", + CellChangeTimes->{ + 3.99209124657098*^9, {3.9920913919423637`*^9, 3.992091446105234*^9}, { + 3.9920915024975986`*^9, 3.992091521894394*^9}, {3.992091561218664*^9, + 3.992091587820408*^9}, 3.99212770942416*^9}, + CellLabel->"Out[46]=",ExpressionUUID->"727cadfc-e151-1b43-ae8b-309d8109f400"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843129570627*^9, 3.991843129574024*^9}}, + CellLabel->"In[47]:=",ExpressionUUID->"f9c0b231-31e6-8446-967b-30061347cbe0"], + +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[48]:=",ExpressionUUID->"9c535151-a230-dc45-be8b-2a714e262ed7"], + +Cell[BoxData["1.3673914803678473`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.991707979950527*^9, 3.992091246629711*^9, { + 3.9920913919803658`*^9, 3.9920914461628*^9}, {3.992091502550644*^9, + 3.992091521950554*^9}, {3.992091561270252*^9, 3.9920915878786583`*^9}, + 3.9921277095495033`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"666f302b-ecfe-5748-8808-50ae129fa01b"] +}, 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[49]:=",ExpressionUUID->"e82858b9-80fd-fc4d-8d98-2ad4376d27d4"], + +Cell[BoxData["5.915425097815979`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9917079908393784`*^9, 3.9920912466771107`*^9, { + 3.992091392014946*^9, 3.9920914461978245`*^9}, {3.9920915025839367`*^9, + 3.9920915219846897`*^9}, {3.992091561308256*^9, 3.992091587913206*^9}, + 3.992127709665119*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"fa3aceab-e611-324e-b59c-dd92d5a0ba5d"] +}, 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[50]:=",ExpressionUUID->"947e6e90-1271-124f-9324-d60c40ed1983"], + +Cell[BoxData[ + RowBox[{"-", "65.3826470755978`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.991707995240637*^9, 3.9920912467196655`*^9, { + 3.9920913920504456`*^9, 3.9920914462375107`*^9}, {3.9920915026205044`*^9, + 3.9920915220203133`*^9}, {3.992091561346586*^9, 3.992091587949417*^9}, + 3.992127709852829*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"c80af12b-639a-a847-b1e7-d7f02f355735"] +}, 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[51]:=",ExpressionUUID->"a0467151-56e3-6c4e-a0fd-8e1a4f12efe3"], + +Cell[BoxData[ + RowBox[{"-", "125.53393710893079`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.991707999380541*^9, 3.992091246775194*^9, { + 3.9920913920914593`*^9, 3.992091446285513*^9}, {3.9920915026595116`*^9, + 3.9920915220597553`*^9}, {3.9920915613875847`*^9, 3.9920915879934235`*^9}, + 3.992127710097948*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"c1b8e1c5-35c3-1b4c-9afa-7bf82ec724e6"] +}, 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[52]:=",ExpressionUUID->"1656ac95-3583-5f42-9121-a4850089934e"], + +Cell[BoxData[ + RowBox[{"-", "181.77206655859075`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.991708001954468*^9, 3.9920912468259945`*^9, { + 3.9920913921325283`*^9, 3.99209144632465*^9}, {3.9920915027005463`*^9, + 3.99209152210231*^9}, {3.9920915614267483`*^9, 3.992091588035942*^9}, + 3.992127710315752*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"eada387c-aa9d-1a40-a7ab-fc5b545b42da"] +}, 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[53]:=",ExpressionUUID->"0680f619-e61f-aa4c-9479-ddac11c59e96"], + +Cell[BoxData[ + RowBox[{"-", "695.190548511538`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.9917080040838356`*^9, 3.9920912468861237`*^9, { + 3.9920913921795197`*^9, 3.992091446372057*^9}, {3.9920915027450676`*^9, + 3.992091522149296*^9}, {3.992091561473261*^9, 3.99209158808547*^9}, + 3.992127710470701*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"dda9728c-f5d4-f046-9fc8-f649275047cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"bc412583-4ca2-4a45-bb35-cbc40c8839b4"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.991708067458639*^9, 3.9920912469088554`*^9, { + 3.9920913921995106`*^9, 3.992091446393757*^9}, {3.9920915027683907`*^9, + 3.992091522174301*^9}, {3.992091561495289*^9, 3.9920915881082993`*^9}, + 3.992127710505129*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"3cee1b7b-c39a-b64d-ad3f-cb328cecaa91"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"85101115-4f25-984e-8b29-a2f2e370104a"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.9917080674805565`*^9, 3.9920912469163704`*^9, { + 3.992091392229389*^9, 3.992091446400278*^9}, {3.992091502799368*^9, + 3.9920915221803036`*^9}, {3.992091561520315*^9, 3.992091588115286*^9}, + 3.9921277105254955`*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"3eb5892e-9c23-7f44-96fe-965a53ca51ea"] +}, 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[56]:=",ExpressionUUID->"8885ee33-dbd5-534a-9a1a-018edb64d755"], + +Cell[BoxData["361.2471433722319`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9917080675026455`*^9, 3.992091246940546*^9, { + 3.9920913922633686`*^9, 3.992091446426317*^9}, {3.9920915028063927`*^9, + 3.9920915222063217`*^9}, {3.9920915615442753`*^9, 3.9920915881375065`*^9}, + 3.9921277105539303`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"ff2a6a29-7b27-5a49-9d7f-f8fe5c17244f"] +}, 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[57]:=",ExpressionUUID->"274add19-faab-b149-ae83-ef7b40a8874c"], + +Cell[BoxData[ + RowBox[{"-", "349.7981011803344`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.991708067510544*^9, 3.992091246946535*^9, { + 3.992091392294138*^9, 3.9920914464543114`*^9}, {3.9920915028279285`*^9, + 3.99209152222933*^9}, {3.9920915615682793`*^9, 3.992091588163168*^9}, + 3.9921277105874043`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"25aac206-409e-c241-a700-572137acb3fe"] +}, 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[58]:=",ExpressionUUID->"61bdd119-1f6f-2840-bea6-aa71897d4d6d"], + +Cell[BoxData["454.36412518953205`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9917080675337753`*^9, 3.992091246972496*^9, { + 3.9920913923294888`*^9, 3.9920914464768276`*^9}, {3.9920915028354263`*^9, + 3.9920915222513294`*^9}, {3.992091561598337*^9, 3.9920915881942825`*^9}, + 3.9921277106079617`*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"bbc804a8-0402-3b4a-83a4-8642aebd9573"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"923bd806-5f2b-c249-8018-c821d70607e0"], + +Cell[BoxData["0.4127308494837588`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.991708067540825*^9, 3.992091246979046*^9, { + 3.9920913923595943`*^9, 3.9920914465043583`*^9}, {3.992091502857462*^9, + 3.9920915222583466`*^9}, {3.992091561628416*^9, 3.992091588216179*^9}, + 3.992127710623724*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"c71b40ed-62f1-3848-a680-0ba8db39f240"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"9962de12-67d8-554b-86f2-fdd5dbd640ea"], + +Cell[BoxData[ + RowBox[{"-", "0.1731065192411402`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.991708067561775*^9, 3.9920912470023327`*^9, { + 3.992091392382597*^9, 3.992091446511343*^9}, {3.992091502867462*^9, + 3.9920915222823963`*^9}, {3.992091561635437*^9, 3.9920915882387123`*^9}, + 3.992127710641714*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"01e4806a-3faf-1b46-94d4-0398ff1360dd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"d0c3bf2f-1911-4c4b-bfdf-453a2bac99a8"], + +Cell[BoxData[ + RowBox[{"-", "0.4062816230025426`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.9917080675837746`*^9, 3.9920912470088387`*^9, { + 3.992091392404505*^9, 3.9920914465343437`*^9}, {3.992091502893507*^9, + 3.992091522288412*^9}, {3.9920915616594143`*^9, 3.9920915882452965`*^9}, + 3.9921277106581345`*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"bfd6df36-52b4-3343-8db7-8cc973cc3cfa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"fd21dfa7-f27f-5042-a0ad-9cc40d14292a"], + +Cell[BoxData["0.6303744483208076`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.9917080675917854`*^9, 3.992091247032854*^9, { + 3.9920913924115047`*^9, 3.9920914465403423`*^9}, {3.992091502900509*^9, + 3.9920915223143997`*^9}, {3.9920915616654167`*^9, 3.9920915882721863`*^9}, + 3.9921277106709366`*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"7d7957b6-6a5b-7445-95df-865d8438aa33"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"1c249ec6-e116-2b48-8f7f-a95f16ad81b4"], + +Cell[BoxData["2.3367797709113582`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.991708067612774*^9, 3.992091247040392*^9, { + 3.9920913924180164`*^9, 3.992091446562351*^9}, {3.99209150292482*^9, + 3.992091522321432*^9}, {3.992091561687416*^9, 3.9920915882941914`*^9}, + 3.992127710696209*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"efe7bdf8-9952-6b4f-990a-851598bbbce4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"b1919483-c42d-3b47-aa70-c129a7555111"], + +Cell[BoxData["1.7566650946816267`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.991708067619776*^9, 3.992091247064493*^9, { + 3.992091392438549*^9, 3.9920914465698586`*^9}, {3.992091502931345*^9, + 3.9920915223446445`*^9}, {3.9920915616934185`*^9, 3.99209158830122*^9}, + 3.9921277107264824`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"6bd0f1cd-4086-bf47-9b12-4647d9e03861"] +}, 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[65]:=",ExpressionUUID->"6b948f28-f10f-1f42-b9e1-eda3373f84fb"], + +Cell[BoxData[ + RowBox[{"-", "30.830767993153184`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.991708067640772*^9, 3.992091247071554*^9, { + 3.99209139244553*^9, 3.99209144659474*^9}, {3.992091502953377*^9, + 3.992091522351671*^9}, {3.9920915617147236`*^9, 3.9920915883242016`*^9}, + 3.992127710747982*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"c9c7b920-462c-774b-bd48-e9145e0d2401"] +}, 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[66]:=",ExpressionUUID->"ef81073d-a43f-bf4f-9b50-6cabf65a3276"], + +Cell[BoxData[ + RowBox[{"-", "18.659127233530825`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.991708067662775*^9, 3.9920912471162415`*^9, { + 3.9920913924683304`*^9, 3.9920914466022835`*^9}, {3.9920915029593945`*^9, + 3.99209152238122*^9}, {3.992091561736267*^9, 3.9920915883505287`*^9}, + 3.992127710769703*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"5f719846-76dc-104d-a933-8b0afc68a05f"] +}, 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[67]:=",ExpressionUUID->"d69be0a9-a94c-864b-85ed-a253ee7669d1"], + +Cell[BoxData["330.4163753790787`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.991708067669775*^9, 3.9920912472323074`*^9, { + 3.9920913924753494`*^9, 3.9920914466254234`*^9}, {3.992091502983383*^9, + 3.992091522409233*^9}, {3.992091561743267*^9, 3.9920915883765354`*^9}, + 3.99212771078537*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"33880613-d403-ec42-a5c7-86f1145fa6ef"] +}, 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[68]:=",ExpressionUUID->"174bbe27-8951-4643-a0e4-f57458aa32dc"], + +Cell[BoxData[ + RowBox[{"-", "349.7981011803344`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.991708067690773*^9, 3.992091247257927*^9, { + 3.9920913925043335`*^9, 3.992091446632412*^9}, {3.9920915029893856`*^9, + 3.992091522416319*^9}, {3.9920915617668056`*^9, 3.992091588383543*^9}, + 3.9921277108001366`*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"4e47fb06-a38e-5e4c-912b-0f4dc20e6cac"] +}, 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[69]:=",ExpressionUUID->"953696a0-f8e2-204a-bedd-5d8bb514cc1c"], + +Cell[BoxData["435.7049979560012`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.991708067697775*^9, 3.992091247289015*^9, { + 3.9920913925103607`*^9, 3.992091446661234*^9}, {3.9920915030163956`*^9, + 3.9920915224431896`*^9}, {3.992091561773327*^9, 3.9920915884085503`*^9}, + 3.99212771083086*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"55326f9b-14b2-d049-9c7a-679a192bef67"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"5b0cfc9a-ea77-5847-b51b-7aa78ce6a299"], + +Cell[BoxData["87.42511720990086`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.9917080677197742`*^9, 3.992091247312895*^9, { + 3.9920913925353565`*^9, 3.9920914466682186`*^9}, {3.9920915030234013`*^9, + 3.992091522463722*^9}, {3.992091561798332*^9, 3.992091588416548*^9}, + 3.992127710861141*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"451a34c6-06a3-414b-800f-a39479a949f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"b81ac4f0-6219-ee44-a9fa-2e93fe5e6063"], + +Cell[BoxData["1623.0724592455672`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.991708067726776*^9, 3.992091247321451*^9, { + 3.992091392542387*^9, 3.992091446690258*^9}, {3.992091503048933*^9, + 3.99209152248625*^9}, {3.992091561805361*^9, 3.9920915884453773`*^9}, + 3.9921277108920517`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"2affed6c-4693-7041-b1d9-d58ef79a1177"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.837971312644379"}]], "Input", + CellChangeTimes->{3.991846457174755*^9, 3.9920919461174526`*^9}, + CellLabel->"In[72]:=",ExpressionUUID->"58382c59-dd64-b449-aa77-b500c631729a"], + +Cell[BoxData["0.837971312644379`"], "Output", + CellChangeTimes->{3.991339230490425*^9, 3.9921277109608326`*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"d76f1bef-39bf-7d42-aa4a-594be2f0a763"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.720943705549018"}]], "Input", + CellChangeTimes->{3.9918464585717087`*^9, 3.9920919502587757`*^9}, + CellLabel->"In[73]:=",ExpressionUUID->"1e2a9573-08d6-094d-b2f8-1c2ad58521b5"], + +Cell[BoxData["0.720943705549018`"], "Output", + CellChangeTimes->{3.991339230517523*^9, 3.992127710989113*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"e84b3ffe-1946-4a46-a9f7-5e21a9bf5343"] +}, Open ]], + +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[74]:=",ExpressionUUID->"ee9e3f9b-cd15-314a-959e-23f6767d8629"], + +Cell[BoxData["1.722331582108792`*^-53"], "Output", + CellChangeTimes->{3.991339230528511*^9, 3.9921277110137806`*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"dfd05dc1-f8be-7146-9a4b-dc171a72b9ed"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + 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"]}]], "*", "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, {3.9915581887684402`*^9, 3.991558193612196*^9}}, + CellLabel->"In[75]:=",ExpressionUUID->"edc47846-771c-164b-bedc-99ac8c0783df"], + +Cell[BoxData["3.169691239535262`*^-54"], "Output", + CellChangeTimes->{3.991339230554512*^9, 3.99212771103784*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"c37db9ca-ec17-bd4b-b63d-18a7826fccdc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + 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"]}]], "*", + 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}, + 3.9915581864980736`*^9}, + CellLabel->"In[76]:=",ExpressionUUID->"a1f930ec-56b4-2f43-abd0-dd8b8a4708b1"], + +Cell[BoxData["2.4888435155157298`*^-54"], "Output", + CellChangeTimes->{3.9913392305796223`*^9, 3.9921277110535336`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"1f7bbc8d-22e9-f248-a63d-b4730ff12a0d"] +}, 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[77]:=",ExpressionUUID->"41ba9715-7e52-a24a-aa04-cf2166cf0dfa"], + +Cell[BoxData["31.55887696424881`"], "Output", + CellChangeTimes->{3.9913392305906105`*^9, 3.9921277110843678`*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"4075083e-f32d-d14b-97d0-a858b5926c67"] +}, 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[78]:=",ExpressionUUID->"163fb4a0-76e7-4649-86cb-bfaf41944c98"], + +Cell[BoxData["109.09874435046284`"], "Output", + CellChangeTimes->{3.99133923061561*^9, 3.992127711101591*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"4325bebc-7bf8-4740-812f-9bc03175fcb6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[79]:=",ExpressionUUID->"5f0f180a-aa4c-dd4b-bdd8-1378a8fe1b95"], + +Cell[BoxData["1.6643985987346277`"], "Output", + CellChangeTimes->{3.9913392306426105`*^9, 3.992127711114481*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"3aa70486-77dd-af46-b34e-30ac68d55957"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[80]:=",ExpressionUUID->"1922f255-2223-ac46-b784-0bce07b8e6a9"], + +Cell[BoxData["3.857083832242288`"], "Output", + CellChangeTimes->{3.99133923065361*^9, 3.9921277111278896`*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"74af8473-8191-bb42-bcfc-7d3451c2c843"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[81]:=",ExpressionUUID->"ef536efb-880a-d543-b7af-57dde3479623"], + +Cell[BoxData["420.80300295210486`"], "Output", + CellChangeTimes->{3.9913392306776104`*^9, 3.992127711147705*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"6ec3d14b-240e-054e-8aa9-9a5cf3eed879"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"23ab10a2-3c20-0544-ade1-f1d12ec5aec2"], + +Cell[BoxData["52.52655059693424`"], "Output", + CellChangeTimes->{3.991339230703802*^9, 3.9921277111742306`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"9eb01c7d-22b1-294b-9bb2-95d31e0eab2e"] +}, 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[83]:=",ExpressionUUID->"aca75c7d-c5bb-8b47-872f-20148e5c7111"], + +Cell[BoxData["0.005418106468181686`"], "Output", + CellChangeTimes->{3.9913392307297993`*^9, 3.992127711208914*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"83bb6c2a-dfbe-394f-a969-17c15d38b272"] +}, 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[84]:=",ExpressionUUID->"cd1abe66-0480-c04d-bbfd-f65271be3b80"], + +Cell[BoxData["12.039852689413962`"], "Output", + CellChangeTimes->{3.991339230837267*^9, 3.9921277114388046`*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"683037a4-7704-da40-89be-0713f2290c11"] +}, 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[85]:=",ExpressionUUID->"c96cc89e-a2d4-f442-8558-837587935139"], + +Cell[BoxData["0.007466344280630207`"], "Output", + CellChangeTimes->{3.9913392308522797`*^9, 3.992127711471903*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"09d7120e-3ee3-b14c-9160-ea210e12976d"] +}, 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[86]:=",ExpressionUUID->"1997c8c5-b99e-0343-82de-11d88a9a1347"], + +Cell[BoxData["10.25630517590006`"], "Output", + CellChangeTimes->{3.991339230966341*^9, 3.992127711703438*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"d2dc4e8c-b7a2-1842-907b-3ad67e3a4d45"] +}, 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[87]:=",ExpressionUUID->"b151d79d-271f-514b-8b93-936c1a72f6cb"], + +Cell[BoxData["0.4398388669954015`"], "Output", + CellChangeTimes->{3.991339230988348*^9, 3.9921277117350426`*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"3cab78ab-0668-1b48-9eb1-e5ab2a815707"] +}, 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[88]:=",ExpressionUUID->"ca085857-4c01-0248-853e-e9dc47d19120"], + +Cell[BoxData["0.5601611330045986`"], "Output", + CellChangeTimes->{3.991339231030445*^9, 3.992127711756407*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"7d5905af-81f5-7047-ab75-546be7109198"] +}, 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[89]:=",ExpressionUUID->"953e3c2f-fb9c-3f46-89c8-95be764d13e2"], + +Cell[BoxData["0.24638063807560304`"], "Output", + CellChangeTimes->{3.991339231060343*^9, 3.992127711778572*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"c0697708-110f-0343-871d-6c4c14bae5b1"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[90]:=",ExpressionUUID->"ea9dfb1b-57ad-0148-b647-106c07557f97"], + +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.9918464744109974`*^9}, + CellLabel->"In[91]:=",ExpressionUUID->"b8b3f009-678c-e54b-8a0c-4de3179a9fb0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.596591574251926`*^-217\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 91, 966, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392310873375`*^9, 3.992127711846918*^9}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"00827a0d-582b-784f-9831-6761fff6a36e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.068312990332371`*^-222\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 91, 967, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392310873375`*^9, 3.992127711895939*^9}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"bd3819b3-4195-9344-ae74-4cc92ebeb956"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1787627287224527`*^-227\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 91, 968, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392310873375`*^9, 3.992127711911726*^9}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"511fd1cf-9dce-1842-830b-d7e4788fdec7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 91, 969, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392310873375`*^9, 3.9921277119337673`*^9}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"46205a7c-19de-8a46-96ef-c5d6ec4440d0"], + +Cell[BoxData["12.039852689413951`"], "Output", + CellChangeTimes->{3.9913392346332226`*^9, 3.9921277197323112`*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"d63dcbed-8db1-a54a-ac7b-3d723375286e"] +}, 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.9918464780941105`*^9}, + CellLabel->"In[92]:=",ExpressionUUID->"d9fdb976-d745-4c44-9c66-2929c00590fc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.596591574251926`*^-217\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 92, 970, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339234667631*^9, 3.992127719870783*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"2e5b7ddb-3461-9741-a277-bc49d8bdcffd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.068312990332371`*^-222\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 971, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339234667631*^9, 3.9921277198917866`*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"bd454c12-0108-6440-83f9-cc138ada191c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1787627287224527`*^-227\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 972, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339234667631*^9, 3.9921277199047966`*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"e4248cac-f88f-4c49-b567-aa30ef76372b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 92, 973, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339234667631*^9, 3.9921277199189377`*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"11ad8df1-50f5-7448-a295-e303669c499c"], + +Cell[BoxData["10.256305175900057`"], "Output", + CellChangeTimes->{3.99133923819088*^9, 3.9921277276068745`*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"de55fa8d-41ba-414e-ac49-8857c355bec4"] +}, 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.9918464867236023`*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"a3abef6a-80f9-8c44-ac94-1eacd8c5b802"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Xc8l1scB3ARlVFKRhnJqCiSrdT3KyKzaNkZv99jXGRdWaErDUVE695K +gwjJyHZLSEvqhqb5mNl7PA33+ON5Pa/365zzOd/zfb2e86x3OWbF5uTg4KDJ +s/D2q1feWPy+ftelQ7JFN4MZ2DWcquFikA1mv+zFF9yeopksZ1ABDVmrTf8h +3s96y8Ov9hwEuk32XCPOC46s5jaog9xTHLzJxOdqxSojM/8Dnyea1+OJS9/7 +3fqp2gRvJUfGzxD3f30dHlL+GTRObxaNIl7bLWs3rd8MHGrD3MeJTUfCdQLq +2uBAsc5TL+InP/v5gjM7wPi3oL4z8ceTomFFPp3wxuR44kHiYR6D/knVbkjT +8s00JOa54GujNtMD/sXzcVrEUitvvvQr74PM1Yq6G4ktxKfvD+sPgstel1lO +Yuq2jIjS0mFo9QzlGTnOQKT8vpg/6kaghnN32xfiz6KN2wIzx8B9dGY0i5hl +6+mRdGEcDu6fUEgiHr3BcSffZwJmdUqUQoiXyigJjqlOQWF0xWU94mRWtZGg +8DSkZPExssTS6TaRW2em4cugvgI3sfaW08Pe5bPQtTyprzqIAXfNtrp+/Z8A ++kUDqsSTwX8u5t3wC37pHc7gI44q59NVWPobrncrq3T+ycA11M5yq5sHs6Ml +d+KJWWkvDfwzF2GRULTAp0AGMmuT2k+Kc6Jrna78feLRXsfwxAucyJ+QvDSQ +OFxxqiDXhwvrWUdU+YmTH62XHVHlRpmzb4WUAxj4+n7wye973OgRKhY74U/q +Hy+2XS7Mg+np4XXFxNnqFpeUZniw5UljoS5xTWnoIq/ypcjaUiCh7cfAVHVD +W58+PxYnPTWd8mFglRm/YNgTfnwtLzt5m1il0QAFdASQURRRNyX27Cq8vU15 +OV7glQz7x5sBX846lZ38glga9H3TZi8GumVyxmKmV2LGzmapJR6kP9TrZe/U +VuF85RWLG+4McGb1rBfzW4Vo0C6qQiytts4qc2AVLjbOPX7AjQFb/YT8+nYh +lG019z3HZuCdq3+A6BthjPtq4pbvzEBrevx5p6UiuI/vhd424sGBzHsP9ohg +4SqjkhwnBngDOxt2VIqgVcl8SNpRBgxOHVR3KhTFVqFNh/5yYKAsVXMqI2UN +/r0r4NKcNQOp3UzQ9kBJjH8KJ9ssGNh76ExrwENJrBvjerqTeLBGyPBhjyRa +GXx787c5A+qpW4SlbaTI+SMOWJqRfro4FnDvWofCpc/W5RozMD7SfrwvWhqz +Eio/qhswIORt8LjAXAaH6mNl7bUZ6Enldd/vKYP5s8apyVoMlDS/Fx86LYMy +HAnMG00G7M0cojdUymC1e/ImLQ1S3+Ygq+uqslhv+TphfhvZvz99NEJUDt/W +mT633szAQTc+JZMOefz+o8xDWZIBCDqkeuSXPNI/5QsNJRhQjEnRYq3ZgFtO +CX93EGeA457a7gjLDXhD+QTfuTUMPGy1O5L/bAOuMbLT+yBMvs/D2SfX3t2I +N/67/EBlOanPwPxjv4sCUiXTO9b9ngNxmYuR57u2oEDS2JMPX+egInZSYY5T +CV+WeTfFfZkD+wmbRmq9Embx9hYbfZ6DWzVyCrsdldCf7UoXN82BjFvZh9lP +Sjh5PPnzufdzoJjdLU+9UUZ3WY97k8/nQFJcipK2UcGGo64X+x7NwZa0QP4f +oIpBiUrXnaPm4I6/3P7COg38YbiSQ0JiDt4HgdapNB1sU5lt5b49C+sdmywc +vHbi+J/xselis8CeL8qRDEFsCLkap5YwA6IDJUtEXXaj/bzixp0T0xCoptt8 +SdEADSPm2xRtp8Fl6OdLof49+Ly81D7/6RQ83B2wJOWdEUpcOeI4tXoKUic9 +n2UnG6PA2F+39QInYVZP7G1NpCkeur+7Zl3tBLRwcI11OJsjb37Lj1SJCfCR +OJZwUnYftjq0mf2IGoccj5eVl2P2Y5uw5dOqb2MQOrFmZrOHJXrGm8UW7BmD +KRPDwy+OWmHs9LrVVhmjoGOXqNdteQAj1mon3REahQ9rbnrWqB1EabOfknMS +I7D2fnRFxqZD+Dv4n7xpck+WtCuaWQgcxvCronqnhYZAqnHULWjoMNaOXb2V +oDwIapcTs++1H0HR4CjWXv0BuLl4QvlStTVuaUwRnwnohyK9rV9jSm3wRfW6 +m8dvf4drWrErf2baYkVTuu1ESx+8+5Z2Wu2CHY5INSr9UOuDQvMbcr5R9njt +i9TBT2d6Ycz7AIcPywFzYd7QcLwHpgwV3If1HTHUffGu5x49kDH0ZTZA8yhO +nxg9eqe9G6zvpLk68DuhqkvXq3TPbijINz3KdcYJrf9YsdR4qgt0xD/MnZtz +wtiSHbyY2AWy7W5f//NwRp69pn1ftbqgi++PfTc6nTE0jLPZvL0T3sdbuBod +csGfSXKPN1/thOTgFL4/37vgD7YJL4dlJ1Q8mZ9zNXZF5/WZwQLCnbDCHs+o +lbmiiuyNFUNdNEivfvFOosIVG7O7s7YQq9SZi/E8ccVzYakfvDppsNK1e/D5 +mSu2Kh94OtxBQ7JE0JsTr1yx98rW1XOtNKxtyVrx8rMr5jxsuLPxCw1yjqLX +7GdcMeAV/WvgLQ06TsMZMeosXPucsVtRSsP966MBFposXKKjUxZWQsPqhvFd +otos5Gl+H99XTMPwnpnGjB0spKQH/64uosl9wLGobjcLu1bM7Ix8TMPymZU2 +qyxZeH3wcgZ/Lg1dcRrLUrxZ+N/58a+R6TRYvtBqdDvGwu1VUVPMfRqecGxP +UfFj4R8Wx2OCiK8H7NKoCmRhXHcU97E0GixsjJy7w1jY0Qgx7Hs0lMrZlG6O +ZaHYpMUJ9xQa4svDPUrus/D0QW7p2qs0eKte1QnOYKGosuMWK2KzB3nLtDNZ +uM7+34zWKzTwXu15UPyQhXVlQWOzl2mI8d/fX/SYhQOdylWqyTSEK8j9UVjF +Qrxwya48gQbPq2+88ltZeFZml6F0LA3Gy3t0/dtZeHPT1r1l52jYFMMhoEqz +UD7cr/QgcY+/xsO8bhaO9DR+jz1Lg7NFylDuIAuLl506+fM0DdbcAT6PGBZu +kOQ4OxlNg1HAWt9sETaO1kfUa0XQUJVy2uSSGBttfmfpfD5Bg27duFzwWjZu +bdqwMYRYRf7NF30pNnZKDZ+tCKdhzacw/W/ybCxmr3czDqNhYHuLCK8Gm/zf +NpwLC6bhIuftf90OsHH/7qydegHk/Fv5r5kfYuNEy4feMX8aTtkF+6sdYWOm +ww2he8TBj/dvnLdlo9HdRaM8xM7UosQrLmwMUbxY3uhLg9prF9ZzPzbWh6Rc +P+tDw6dEeT7ZBLI+JsLK0pOGHBBw70tko5Okm4MI8amhyZqHSWzkqiz8/M2D +BlXjmgjtq2wMvhIs7U4cz+E6bn6LjUH9Oydj3GkwPHb7S3A2G2Wn5DM/UjRI +Sp7V3JXDxksNnGV3iSdfH0viymXjM02R7ceI724A8/gCNnaFNcUuI/7V0lJ5 +r4yNDj0ePvpsGh6biWfUv2Sj1dqbO+pcaTjPcHInv2Zje+9d8xRil4x+Z5s6 +NuYWFr7zJxZcXCbe9Y6NutWzsuLEXuXWF+c+kvzlBfx+LjTIKl4Jkusm4x7z +zducaWA+nWj43sNGqdGqYT7i9zFslUd9bNSfOubb40RDRId6v84gG9W9Iqpv +EH+91uCwb4L0n9HIWE58acnKPaGLKDxX6+m55CgNFeMtdoFcFA5wMb1djjT0 +tmT6+3BTKCj7ZbSKWPexwW2XZRRuHT2RGkXc4xT8w2QlhVXqckmcxIJme1bt +EaLQ+eGkZ5cDDTu0VimAMIVzb7nqa4kTBLIPq62h8LD4R424hfGytjzx9RTy +/yV8QZqYSst+KSxLoW9S2r88C/MTQtpWyFOY684OHbIn+1FCAosVKNS45X25 +gjhByMh9UIXC6J/+ls7EZb+FIntUKUzJP9BsStz9vf1yuzqFB24dGdck3l4Z +Wt2oTeGGk9VPlxN3eeVI/YsUNrrxtNfYkfvDOkyjeDeFCSe+VRcQ6+jvNcsz +oPB+wivVe8Txa+iQtL0UbjEYzIsmLln8KCHFhMK7tVJVgcSdI2Hp180oPMtL +OVDE2rXCTXH7KfRZtFXDlNgljx44Y0Xhto4cv13EcTcecf51kMKJb6CjSkz7 +G6sEWVPYTCd6iBMLOIoY+dpSGEVZfhBcyDPudPC0J+eflKrlWVi/7sR5RycK +86M7LCZtST28JnetXSgsM2rqHCCmp0RKrVgUBv3dyNVFLNDR+c6MotB0sjWn +mVi7LrfH0J1CxU8TXU3ELsUnfqEnhdvrV91/Rxx312T1Di8K5713jL9ayI8T +3azhQ/IOer+qWcgP7tLb6kth0aaMzZXE/Kw8awV/Cm3/GRCrINbaF3FMNpBC +R0orsWQhf7vpackgCheZn08uJL4gL3ZTNJjCWvFemQLiIsHugpWhFD7NMNHN +I+74kfeaL5xC2YbC9kcL+b0RHdwRFJ6P3iS4YM0PprPzkRRKZt99nUP8PyOw +zpc= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xc8l1scB3ARlVFKRhnJqCiSrdT3KyKzaNkZv99jXGRdWaErDUVE695K +gwjJyHZLSEvqhqb5mNl7PA33+ON5Pa/365zzOd/zfb2e86x3OWbF5uTg4KDJ +s/D2q1feWPy+ftelQ7JFN4MZ2DWcquFikA1mv+zFF9yeopksZ1ABDVmrTf8h +3s96y8Ov9hwEuk32XCPOC46s5jaog9xTHLzJxOdqxSojM/8Dnyea1+OJS9/7 +3fqp2gRvJUfGzxD3f30dHlL+GTRObxaNIl7bLWs3rd8MHGrD3MeJTUfCdQLq +2uBAsc5TL+InP/v5gjM7wPi3oL4z8ceTomFFPp3wxuR44kHiYR6D/knVbkjT +8s00JOa54GujNtMD/sXzcVrEUitvvvQr74PM1Yq6G4ktxKfvD+sPgstel1lO +Yuq2jIjS0mFo9QzlGTnOQKT8vpg/6kaghnN32xfiz6KN2wIzx8B9dGY0i5hl +6+mRdGEcDu6fUEgiHr3BcSffZwJmdUqUQoiXyigJjqlOQWF0xWU94mRWtZGg +8DSkZPExssTS6TaRW2em4cugvgI3sfaW08Pe5bPQtTyprzqIAXfNtrp+/Z8A ++kUDqsSTwX8u5t3wC37pHc7gI44q59NVWPobrncrq3T+ycA11M5yq5sHs6Ml +d+KJWWkvDfwzF2GRULTAp0AGMmuT2k+Kc6Jrna78feLRXsfwxAucyJ+QvDSQ +OFxxqiDXhwvrWUdU+YmTH62XHVHlRpmzb4WUAxj4+n7wye973OgRKhY74U/q +Hy+2XS7Mg+np4XXFxNnqFpeUZniw5UljoS5xTWnoIq/ypcjaUiCh7cfAVHVD +W58+PxYnPTWd8mFglRm/YNgTfnwtLzt5m1il0QAFdASQURRRNyX27Cq8vU15 +OV7glQz7x5sBX846lZ38glga9H3TZi8GumVyxmKmV2LGzmapJR6kP9TrZe/U +VuF85RWLG+4McGb1rBfzW4Vo0C6qQiytts4qc2AVLjbOPX7AjQFb/YT8+nYh +lG019z3HZuCdq3+A6BthjPtq4pbvzEBrevx5p6UiuI/vhd424sGBzHsP9ohg +4SqjkhwnBngDOxt2VIqgVcl8SNpRBgxOHVR3KhTFVqFNh/5yYKAsVXMqI2UN +/r0r4NKcNQOp3UzQ9kBJjH8KJ9ssGNh76ExrwENJrBvjerqTeLBGyPBhjyRa +GXx787c5A+qpW4SlbaTI+SMOWJqRfro4FnDvWofCpc/W5RozMD7SfrwvWhqz +Eio/qhswIORt8LjAXAaH6mNl7bUZ6Enldd/vKYP5s8apyVoMlDS/Fx86LYMy +HAnMG00G7M0cojdUymC1e/ImLQ1S3+Ygq+uqslhv+TphfhvZvz99NEJUDt/W +mT633szAQTc+JZMOefz+o8xDWZIBCDqkeuSXPNI/5QsNJRhQjEnRYq3ZgFtO +CX93EGeA457a7gjLDXhD+QTfuTUMPGy1O5L/bAOuMbLT+yBMvs/D2SfX3t2I +N/67/EBlOanPwPxjv4sCUiXTO9b9ngNxmYuR57u2oEDS2JMPX+egInZSYY5T +CV+WeTfFfZkD+wmbRmq9Embx9hYbfZ6DWzVyCrsdldCf7UoXN82BjFvZh9lP +Sjh5PPnzufdzoJjdLU+9UUZ3WY97k8/nQFJcipK2UcGGo64X+x7NwZa0QP4f +oIpBiUrXnaPm4I6/3P7COg38YbiSQ0JiDt4HgdapNB1sU5lt5b49C+sdmywc +vHbi+J/xselis8CeL8qRDEFsCLkap5YwA6IDJUtEXXaj/bzixp0T0xCoptt8 +SdEADSPm2xRtp8Fl6OdLof49+Ly81D7/6RQ83B2wJOWdEUpcOeI4tXoKUic9 +n2UnG6PA2F+39QInYVZP7G1NpCkeur+7Zl3tBLRwcI11OJsjb37Lj1SJCfCR +OJZwUnYftjq0mf2IGoccj5eVl2P2Y5uw5dOqb2MQOrFmZrOHJXrGm8UW7BmD +KRPDwy+OWmHs9LrVVhmjoGOXqNdteQAj1mon3REahQ9rbnrWqB1EabOfknMS +I7D2fnRFxqZD+Dv4n7xpck+WtCuaWQgcxvCronqnhYZAqnHULWjoMNaOXb2V +oDwIapcTs++1H0HR4CjWXv0BuLl4QvlStTVuaUwRnwnohyK9rV9jSm3wRfW6 +m8dvf4drWrErf2baYkVTuu1ESx+8+5Z2Wu2CHY5INSr9UOuDQvMbcr5R9njt +i9TBT2d6Ycz7AIcPywFzYd7QcLwHpgwV3If1HTHUffGu5x49kDH0ZTZA8yhO +nxg9eqe9G6zvpLk68DuhqkvXq3TPbijINz3KdcYJrf9YsdR4qgt0xD/MnZtz +wtiSHbyY2AWy7W5f//NwRp69pn1ftbqgi++PfTc6nTE0jLPZvL0T3sdbuBod +csGfSXKPN1/thOTgFL4/37vgD7YJL4dlJ1Q8mZ9zNXZF5/WZwQLCnbDCHs+o +lbmiiuyNFUNdNEivfvFOosIVG7O7s7YQq9SZi/E8ccVzYakfvDppsNK1e/D5 +mSu2Kh94OtxBQ7JE0JsTr1yx98rW1XOtNKxtyVrx8rMr5jxsuLPxCw1yjqLX +7GdcMeAV/WvgLQ06TsMZMeosXPucsVtRSsP966MBFposXKKjUxZWQsPqhvFd +otos5Gl+H99XTMPwnpnGjB0spKQH/64uosl9wLGobjcLu1bM7Ix8TMPymZU2 +qyxZeH3wcgZ/Lg1dcRrLUrxZ+N/58a+R6TRYvtBqdDvGwu1VUVPMfRqecGxP +UfFj4R8Wx2OCiK8H7NKoCmRhXHcU97E0GixsjJy7w1jY0Qgx7Hs0lMrZlG6O +ZaHYpMUJ9xQa4svDPUrus/D0QW7p2qs0eKte1QnOYKGosuMWK2KzB3nLtDNZ +uM7+34zWKzTwXu15UPyQhXVlQWOzl2mI8d/fX/SYhQOdylWqyTSEK8j9UVjF +Qrxwya48gQbPq2+88ltZeFZml6F0LA3Gy3t0/dtZeHPT1r1l52jYFMMhoEqz +UD7cr/QgcY+/xsO8bhaO9DR+jz1Lg7NFylDuIAuLl506+fM0DdbcAT6PGBZu +kOQ4OxlNg1HAWt9sETaO1kfUa0XQUJVy2uSSGBttfmfpfD5Bg27duFzwWjZu +bdqwMYRYRf7NF30pNnZKDZ+tCKdhzacw/W/ybCxmr3czDqNhYHuLCK8Gm/zf +NpwLC6bhIuftf90OsHH/7qydegHk/Fv5r5kfYuNEy4feMX8aTtkF+6sdYWOm +ww2he8TBj/dvnLdlo9HdRaM8xM7UosQrLmwMUbxY3uhLg9prF9ZzPzbWh6Rc +P+tDw6dEeT7ZBLI+JsLK0pOGHBBw70tko5Okm4MI8amhyZqHSWzkqiz8/M2D +BlXjmgjtq2wMvhIs7U4cz+E6bn6LjUH9Oydj3GkwPHb7S3A2G2Wn5DM/UjRI +Sp7V3JXDxksNnGV3iSdfH0viymXjM02R7ceI724A8/gCNnaFNcUuI/7V0lJ5 +r4yNDj0ePvpsGh6biWfUv2Sj1dqbO+pcaTjPcHInv2Zje+9d8xRil4x+Z5s6 +NuYWFr7zJxZcXCbe9Y6NutWzsuLEXuXWF+c+kvzlBfx+LjTIKl4Jkusm4x7z +zducaWA+nWj43sNGqdGqYT7i9zFslUd9bNSfOubb40RDRId6v84gG9W9Iqpv +EH+91uCwb4L0n9HIWE58acnKPaGLKDxX6+m55CgNFeMtdoFcFA5wMb1djjT0 +tmT6+3BTKCj7ZbSKWPexwW2XZRRuHT2RGkXc4xT8w2QlhVXqckmcxIJme1bt +EaLQ+eGkZ5cDDTu0VimAMIVzb7nqa4kTBLIPq62h8LD4R424hfGytjzx9RTy +/yV8QZqYSst+KSxLoW9S2r88C/MTQtpWyFOY684OHbIn+1FCAosVKNS45X25 +gjhByMh9UIXC6J/+ls7EZb+FIntUKUzJP9BsStz9vf1yuzqFB24dGdck3l4Z +Wt2oTeGGk9VPlxN3eeVI/YsUNrrxtNfYkfvDOkyjeDeFCSe+VRcQ6+jvNcsz +oPB+wivVe8Txa+iQtL0UbjEYzIsmLln8KCHFhMK7tVJVgcSdI2Hp180oPMtL +OVDE2rXCTXH7KfRZtFXDlNgljx44Y0Xhto4cv13EcTcecf51kMKJb6CjSkz7 +G6sEWVPYTCd6iBMLOIoY+dpSGEVZfhBcyDPudPC0J+eflKrlWVi/7sR5RycK +86M7LCZtST28JnetXSgsM2rqHCCmp0RKrVgUBv3dyNVFLNDR+c6MotB0sjWn +mVi7LrfH0J1CxU8TXU3ELsUnfqEnhdvrV91/Rxx312T1Di8K5713jL9ayI8T +3azhQ/IOer+qWcgP7tLb6kth0aaMzZXE/Kw8awV/Cm3/GRCrINbaF3FMNpBC +R0orsWQhf7vpackgCheZn08uJL4gL3ZTNJjCWvFemQLiIsHugpWhFD7NMNHN +I+74kfeaL5xC2YbC9kcL+b0RHdwRFJ6P3iS4YM0PprPzkRRKZt99nUP8PyOw +zpc= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5735696752284444, + 1.6544472803846912`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5735696752284456}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.5735696752284444, + 1.6544472803846912`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5735696752284456}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xc8l1scB3ARlVFKRhnJqCiSrdT3KyKzaNkZv99jXGRdWaErDUVE695K +gwjJyHZLSEvqhqb5mNl7PA33+ON5Pa/365zzOd/zfb2e86x3OWbF5uTg4KDJ +s/D2q1feWPy+ftelQ7JFN4MZ2DWcquFikA1mv+zFF9yeopksZ1ABDVmrTf8h +3s96y8Ov9hwEuk32XCPOC46s5jaog9xTHLzJxOdqxSojM/8Dnyea1+OJS9/7 +3fqp2gRvJUfGzxD3f30dHlL+GTRObxaNIl7bLWs3rd8MHGrD3MeJTUfCdQLq +2uBAsc5TL+InP/v5gjM7wPi3oL4z8ceTomFFPp3wxuR44kHiYR6D/knVbkjT +8s00JOa54GujNtMD/sXzcVrEUitvvvQr74PM1Yq6G4ktxKfvD+sPgstel1lO +Yuq2jIjS0mFo9QzlGTnOQKT8vpg/6kaghnN32xfiz6KN2wIzx8B9dGY0i5hl +6+mRdGEcDu6fUEgiHr3BcSffZwJmdUqUQoiXyigJjqlOQWF0xWU94mRWtZGg +8DSkZPExssTS6TaRW2em4cugvgI3sfaW08Pe5bPQtTyprzqIAXfNtrp+/Z8A ++kUDqsSTwX8u5t3wC37pHc7gI44q59NVWPobrncrq3T+ycA11M5yq5sHs6Ml +d+KJWWkvDfwzF2GRULTAp0AGMmuT2k+Kc6Jrna78feLRXsfwxAucyJ+QvDSQ +OFxxqiDXhwvrWUdU+YmTH62XHVHlRpmzb4WUAxj4+n7wye973OgRKhY74U/q +Hy+2XS7Mg+np4XXFxNnqFpeUZniw5UljoS5xTWnoIq/ypcjaUiCh7cfAVHVD +W58+PxYnPTWd8mFglRm/YNgTfnwtLzt5m1il0QAFdASQURRRNyX27Cq8vU15 +OV7glQz7x5sBX846lZ38glga9H3TZi8GumVyxmKmV2LGzmapJR6kP9TrZe/U +VuF85RWLG+4McGb1rBfzW4Vo0C6qQiytts4qc2AVLjbOPX7AjQFb/YT8+nYh +lG019z3HZuCdq3+A6BthjPtq4pbvzEBrevx5p6UiuI/vhd424sGBzHsP9ohg +4SqjkhwnBngDOxt2VIqgVcl8SNpRBgxOHVR3KhTFVqFNh/5yYKAsVXMqI2UN +/r0r4NKcNQOp3UzQ9kBJjH8KJ9ssGNh76ExrwENJrBvjerqTeLBGyPBhjyRa +GXx787c5A+qpW4SlbaTI+SMOWJqRfro4FnDvWofCpc/W5RozMD7SfrwvWhqz +Eio/qhswIORt8LjAXAaH6mNl7bUZ6Enldd/vKYP5s8apyVoMlDS/Fx86LYMy +HAnMG00G7M0cojdUymC1e/ImLQ1S3+Ygq+uqslhv+TphfhvZvz99NEJUDt/W +mT633szAQTc+JZMOefz+o8xDWZIBCDqkeuSXPNI/5QsNJRhQjEnRYq3ZgFtO +CX93EGeA457a7gjLDXhD+QTfuTUMPGy1O5L/bAOuMbLT+yBMvs/D2SfX3t2I +N/67/EBlOanPwPxjv4sCUiXTO9b9ngNxmYuR57u2oEDS2JMPX+egInZSYY5T +CV+WeTfFfZkD+wmbRmq9Embx9hYbfZ6DWzVyCrsdldCf7UoXN82BjFvZh9lP +Sjh5PPnzufdzoJjdLU+9UUZ3WY97k8/nQFJcipK2UcGGo64X+x7NwZa0QP4f +oIpBiUrXnaPm4I6/3P7COg38YbiSQ0JiDt4HgdapNB1sU5lt5b49C+sdmywc +vHbi+J/xselis8CeL8qRDEFsCLkap5YwA6IDJUtEXXaj/bzixp0T0xCoptt8 +SdEADSPm2xRtp8Fl6OdLof49+Ly81D7/6RQ83B2wJOWdEUpcOeI4tXoKUic9 +n2UnG6PA2F+39QInYVZP7G1NpCkeur+7Zl3tBLRwcI11OJsjb37Lj1SJCfCR +OJZwUnYftjq0mf2IGoccj5eVl2P2Y5uw5dOqb2MQOrFmZrOHJXrGm8UW7BmD +KRPDwy+OWmHs9LrVVhmjoGOXqNdteQAj1mon3REahQ9rbnrWqB1EabOfknMS +I7D2fnRFxqZD+Dv4n7xpck+WtCuaWQgcxvCronqnhYZAqnHULWjoMNaOXb2V +oDwIapcTs++1H0HR4CjWXv0BuLl4QvlStTVuaUwRnwnohyK9rV9jSm3wRfW6 +m8dvf4drWrErf2baYkVTuu1ESx+8+5Z2Wu2CHY5INSr9UOuDQvMbcr5R9njt +i9TBT2d6Ycz7AIcPywFzYd7QcLwHpgwV3If1HTHUffGu5x49kDH0ZTZA8yhO +nxg9eqe9G6zvpLk68DuhqkvXq3TPbijINz3KdcYJrf9YsdR4qgt0xD/MnZtz +wtiSHbyY2AWy7W5f//NwRp69pn1ftbqgi++PfTc6nTE0jLPZvL0T3sdbuBod +csGfSXKPN1/thOTgFL4/37vgD7YJL4dlJ1Q8mZ9zNXZF5/WZwQLCnbDCHs+o +lbmiiuyNFUNdNEivfvFOosIVG7O7s7YQq9SZi/E8ccVzYakfvDppsNK1e/D5 +mSu2Kh94OtxBQ7JE0JsTr1yx98rW1XOtNKxtyVrx8rMr5jxsuLPxCw1yjqLX +7GdcMeAV/WvgLQ06TsMZMeosXPucsVtRSsP966MBFposXKKjUxZWQsPqhvFd +otos5Gl+H99XTMPwnpnGjB0spKQH/64uosl9wLGobjcLu1bM7Ix8TMPymZU2 +qyxZeH3wcgZ/Lg1dcRrLUrxZ+N/58a+R6TRYvtBqdDvGwu1VUVPMfRqecGxP +UfFj4R8Wx2OCiK8H7NKoCmRhXHcU97E0GixsjJy7w1jY0Qgx7Hs0lMrZlG6O +ZaHYpMUJ9xQa4svDPUrus/D0QW7p2qs0eKte1QnOYKGosuMWK2KzB3nLtDNZ +uM7+34zWKzTwXu15UPyQhXVlQWOzl2mI8d/fX/SYhQOdylWqyTSEK8j9UVjF +Qrxwya48gQbPq2+88ltZeFZml6F0LA3Gy3t0/dtZeHPT1r1l52jYFMMhoEqz +UD7cr/QgcY+/xsO8bhaO9DR+jz1Lg7NFylDuIAuLl506+fM0DdbcAT6PGBZu +kOQ4OxlNg1HAWt9sETaO1kfUa0XQUJVy2uSSGBttfmfpfD5Bg27duFzwWjZu +bdqwMYRYRf7NF30pNnZKDZ+tCKdhzacw/W/ybCxmr3czDqNhYHuLCK8Gm/zf +NpwLC6bhIuftf90OsHH/7qydegHk/Fv5r5kfYuNEy4feMX8aTtkF+6sdYWOm +ww2he8TBj/dvnLdlo9HdRaM8xM7UosQrLmwMUbxY3uhLg9prF9ZzPzbWh6Rc +P+tDw6dEeT7ZBLI+JsLK0pOGHBBw70tko5Okm4MI8amhyZqHSWzkqiz8/M2D +BlXjmgjtq2wMvhIs7U4cz+E6bn6LjUH9Oydj3GkwPHb7S3A2G2Wn5DM/UjRI +Sp7V3JXDxksNnGV3iSdfH0viymXjM02R7ceI724A8/gCNnaFNcUuI/7V0lJ5 +r4yNDj0ePvpsGh6biWfUv2Sj1dqbO+pcaTjPcHInv2Zje+9d8xRil4x+Z5s6 +NuYWFr7zJxZcXCbe9Y6NutWzsuLEXuXWF+c+kvzlBfx+LjTIKl4Jkusm4x7z +zducaWA+nWj43sNGqdGqYT7i9zFslUd9bNSfOubb40RDRId6v84gG9W9Iqpv +EH+91uCwb4L0n9HIWE58acnKPaGLKDxX6+m55CgNFeMtdoFcFA5wMb1djjT0 +tmT6+3BTKCj7ZbSKWPexwW2XZRRuHT2RGkXc4xT8w2QlhVXqckmcxIJme1bt +EaLQ+eGkZ5cDDTu0VimAMIVzb7nqa4kTBLIPq62h8LD4R424hfGytjzx9RTy +/yV8QZqYSst+KSxLoW9S2r88C/MTQtpWyFOY684OHbIn+1FCAosVKNS45X25 +gjhByMh9UIXC6J/+ls7EZb+FIntUKUzJP9BsStz9vf1yuzqFB24dGdck3l4Z +Wt2oTeGGk9VPlxN3eeVI/YsUNrrxtNfYkfvDOkyjeDeFCSe+VRcQ6+jvNcsz +oPB+wivVe8Txa+iQtL0UbjEYzIsmLln8KCHFhMK7tVJVgcSdI2Hp180oPMtL +OVDE2rXCTXH7KfRZtFXDlNgljx44Y0Xhto4cv13EcTcecf51kMKJb6CjSkz7 +G6sEWVPYTCd6iBMLOIoY+dpSGEVZfhBcyDPudPC0J+eflKrlWVi/7sR5RycK +86M7LCZtST28JnetXSgsM2rqHCCmp0RKrVgUBv3dyNVFLNDR+c6MotB0sjWn +mVi7LrfH0J1CxU8TXU3ELsUnfqEnhdvrV91/Rxx312T1Di8K5713jL9ayI8T +3azhQ/IOer+qWcgP7tLb6kth0aaMzZXE/Kw8awV/Cm3/GRCrINbaF3FMNpBC +R0orsWQhf7vpackgCheZn08uJL4gL3ZTNJjCWvFemQLiIsHugpWhFD7NMNHN +I+74kfeaL5xC2YbC9kcL+b0RHdwRFJ6P3iS4YM0PprPzkRRKZt99nUP8PyOw +zpc= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5735696752284444, 1.6544472803846912`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5735696752284456}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.5735696752284456}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "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.5735696752284444, 1.6544472803846912`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991339493274267*^9, 3.99212830852812*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"41feeb24-d3c0-e141-ac9f-a4c566b3e778"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918464901028175`*^9, 3.9918465034759026`*^9}}, + CellLabel->"In[94]:=",ExpressionUUID->"5b0c09f8-5e46-a545-8946-a08264de1b62"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.596718292697447`*^-278\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 94, + 974, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339493498577*^9, 3.992128308892147*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"e25f5bef-107e-9348-b2f3-3ab3d298e4dd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.791373067538101`*^-290\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 94, + 975, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339493498577*^9, 3.992128308910145*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"715362a6-33c2-2a4a-8141-e82dfb26c7aa"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.071404304516414`*^-302\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 94, + 976, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339493498577*^9, 3.9921283089301567`*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"ffeeeb85-f572-5843-abf9-0160114ab8c2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 94, 977, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339493498577*^9, 3.992128308949154*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"c8b86732-15cd-6d40-8107-18f2c7ba0162"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4VGscB3BSFBKXUtlm5ow12UYK8f6USiWXskWRfV/aVa6kRQmRdexr +EeZMXdEgSQoJIUJCFFkqWUqoue/96zyf5znneZfzvr/fl+occNBtGQ8PjzAv +D8//z/QQZ35N11RDM7Gt4hJcLcO6DoqpDeUciuCqDU/5iiHui+rLFMoN1GKm +r/XSl4rSa6LkVlCYyPo416PUVxP5Gpz2+ylXiHpHRyozfY1Qx6Jn/JQcB+V/ +3rPP39cCCbwbUvwi14iiMgsUOT5OKPtl5vEJuR5kq1Kv/cXzOGKRN975qo2j +ezNvBXwlw5AHamNOnphBUcEfkgZrI5D/J+XhUtYv9C+Z+OdMTCwSpF5RHNjG +A44dGbt28SaiaNEmlexjfODhZ/TXvlUpyPmd5RO+V/xgc3+tkPWODHT8+RXn +AEVB8BN33yEvm43uBwofWr93NRzh8gYbDOeg7As+4xo2olA33f8jvTQPhWUu +WcxOisFAjMPeZtM7iKdjEKrOi4P1tmMdT2rvIoVT7kGWKmuBt91eIVW3EH2c +S7IWerwOdOpUgjTP3UP7Pnn/c/v4ejjyT0F/+v0iZPYxZpOs7EZwnt35W+pp +MRp/5hzaUCIF7ynyWk4ZJUgutts7ulQKNA28nvdllyBLBzMry0op2FxKE7XO +L0HV87oqgw1S4FLZ0WRUXIJubxZ783NYCjZFm7/7zSlB+klPFBU3SkNNKcdy +ZWcJivSWbr16TRooS+di3FexkJpYl8xORxnwPntTwsSHhUaiRsIS3GTgycuy +Hq4fC6UL/hwd9ZGB7jZO9sNAFhJevv5BZJAM6O1115M6w0LjPw7v7oqVgXUd +6FZLKAvl973396qTgTU6/S2dCSwkXfDpyS1lWTCYkZxyr2ahN/Qf9CF1WZiO +O0oM1LDQzWz+CG0dWTg+9s7O6hkLLaQoWvbskAXW66ou/QYW6o7y+kw7Igth +S/f5vrexUNzJL6Jl0bLAHlCBpY8sJIjmnPpmZOGwgXpV4ioSBRkprSxbkAUx +OxVBrhCJRnbas27xygE9J5LfTYREtSZPF3askQO29rSgijiJzh+MiitUkQOv +CKNdydIkmnCTf37GSQ7CDPqSV6iT6FWklZJYqxzElYzF0g+SSO/W9ZbxTjl4 +rCc9ssOSRAWxlafq+uRAcidz0sGaRFcSqU/PjsuBbDKvWIwdiWRf/1D9towC +heZhlV3OJOrqqX1uJUsBO+ZA+dwJEu35YveTZkWB5O/CThdiSZQhcbnjoi0F +KF/P1u2JI9GsfhHZZ0+BqfUwK5ZAoqyIRY9EZwp8SbzFyUwm0YJiWveqQAoc +028ZyMokUbHze85UBAVYkWSNbgmJRLsdg6trKBA1PbGm/gWJ3LnhtlJ1FAh1 +emF5oIFEVQps7aB6CoS73fdpaySR12meL5otFLBlXxTteIX366/so/nvKPBR +PUi/qp1Epw4MGUb+oMC6bWd2KvSTqLvWlddOlQoSe4Yi7WZINGXUu/EfdSr4 +uFrxXpslkcDTv7WztKgQcG4xgZwjkc4TPY+RbVRg9DEpv3+SKL5StPnELirs +PqlXc2mJRH+XViXfdKBCXbZuYfIyNnJnaD1gOVEh9JxEoBwfG4U8uNvU5koF +7cCrJvnYxezbfyR9qPBx6KYaazkbCZZ4uuadpUJaRX9bKT8bvciX0Hgcg+dn +GHYzQZCN+ukRewfjqLCl2PfsaiE2msvlOvMlUeF20cUzV7DpOeMJe9Op8Hbi +GitAmI3CMmoWOwupEMKdWakvwkaGSb71X2upMJFpF5IvxkYPr9c5UOaoELVk +qPRSko0K9jWtD5+nwi7bDCPV9WyUItze/mWRCmq8CSZR2KExA7srl9GgLbNH +znQDG5kmL6hZi9LAhL/mZ9VGNhq6q8G9uYkGyjlH/Xxk2KjTaytnWo0GA+vO +HK/CbthkePKwFrZ6kJuwLBuVkPtHFXTx92VtMoXYQeXurU9304DzQ/BNpxwb +idSnZf50osHNvLNBS1Q24r2Re9jBjQZXo1DUdhobze67J/7ckwaP1RzjL2D3 +tJSH3w6gQUCP8fkf2Hld7QGb/6FB8UnBwgGCjZKSe5TjQ2lwZ/mUpSSdjSLs +BocXLtNg5w3/2QPYAf1fbBoiaPBgZY/II2y9kZXgkkwD9sy7hxfl2WhzwZqF +xlQapJ7j4SOxKd7rSjUyaWDwfsWu99grvhJKf/Jp8En5cIGOAhu9njMUZf6L +xxO5P9WH/ax810tuGZ4f13uMT5GNys6ZXnGvwPtpbtmtjJ36+/A84ykNPPc4 +ME9gu684PdjSQgPzW3PFP7E3yjW+XWyjQUjrdzsJJTZq2SbTqtRJgyNfj9A0 +sHV8nz8Oe4fXKyH8xxV7/OqGh2Q/DcRPJv4Vgp2R6Vfc94EGqxykjRKx+TvW +pup8poH80YLJZ9gVk163XSZoEOwy59WD7c9ffSPmKw1Kept4v2J36boHjc/S +QOdN7iUJZbx/hyoCJOdpMDs06aWAbegn4mG8SIN9F8z8tmLnZ5VZZfAScEx7 +4rk1tm2F4IGm5QQ8Pe8v5YYt/MbBeF6AgKGElMgT2DVfHujLCxGg1RC34SL2 +KQEBxkERAgiPkNoIbCWqvcpFMQI2vAsJT8Du0yOpxRIEuGVyPDOxYyz5NvRI +EmC845B7Abaxv40ovxQB7a6BoWzs+fAiAYYsAQsVW8rLsYuzuX8cqQQECTUI +VmMfqzz0I5JOwBt10wvPsCU6737hKBJgLjG6sgG74evixxEVAvrKH//bhB28 +0rxPXA3PT3XuQgu2Bi2vAzQJ8E944PQa+6P+/Es/bQLyVKTc2rCTrUxrU7YS +sGuL5bX/bRqQxanXI8BG7PLz/9/nuTHLnjUgwGdzM60VuzTHpIBqREC0oG3G +K2zPqrRMM2MCjLbv3daILd01lXhhDwEBni+m6rBffzOOLthHgMeeufon2FdW +Ma92HiDgfe7iYw72NuJL8DILAprsuO0PsCe3G51StyTgkr2CQBF2lnWCzxEb +PN7dRLscbMvAMecbdgRUHzzTnIy9MsLAruwoAasvTzhGY1flxloMH8PrC5T+ +6zI2/a0uGHgQMF29r8sLu3sqaqu3NwFXxuM/22NHCg6pJfkRwO+lLXUAe9Yg +Qub7SQJ6K1YPqWIX2PRLyJ4lYO1Y/Bkp7CPHtYT3nyeAKyesugq7Lq93IS+U +gKs094UP+DwGVatNt10mQKg7UbwZW7U7bOzPNQJ4vQ+ZlWPHC23qto0i4GKF +sPINbJcTFx4KpxBQIvLqLO3/+6LV/1A5nYAV3EfqAtiC01C2O4uA7yf4xSfw +fWMf5y8PvUOA7SXbI2zspcDYR7MPCIjgmf2tgd2qMftIrIyAQ65ciTXYOVPW +HDUOAZ/oybaT+L7vDZSu8HxCQIbtKvc87MSAu5V9TQS83iOeIYjtpS5Y9auF +gH8H7ssM4fqx/Ztv1bp2AhQKRJoeYQ/7az027yaA45hGumBr+D+urvuI/9+I +YR6J61Ojb8fT4t/4vKmGH6Xg+pamqlPbyEOHc4FKTeO4/gVOJteO8NFBBc15 +lmKv83V4RhGkw/cJ1pZd2M4+Y3Xx6+jQ0z8jeRTX1yUvbn2wOh0cnUJp7rj+ +tio7NzC16OAQ7ZtPYOeM1TWUbaEDtZ3HfhDX671eEY1T+nQQaqx1sMFO9Fzb +5GpCB8kuyWZ9XO/VPTa1mDrRYY9+rGc/7g/9XnIBJa50MHu/zf06dqSvuKiI +Jx1M7m89rYk9dnzRotWfDoePrG4Ixf0lN7ip0yKYDmtX9O+WwP1H8rbPe+sk +OhQVhrwVWYv7Y7xjSHkKHcJjvfnuSeB6kXRIbn0GHUo28xgbY7el6Tv15NEh +v5bLd0acjW7eFfpk/4AODw23Xm3B/Y9bVTR5rJkOkx8WKw/h/sh6khn19DUd +XO2H9w+uxuevNk6N9oYOAjy9Mz7YnPoLgcO9dHhR8joyFPfXk+37Z90+0+HO +i/HPGbg/j45OLHrzyUOO4e7zbNy/W/9SFTqtKw/nKzhiFjgfGPr5jaVul4cU +Zrat8SKJWPWs+lokDyNKVZI6CySKDta8IrpbHlg9S1yJeRKZjuj8LjooD/fj +esNqcD55yTH6NuQjDwtTjbkt4yR6fsymwzxDHsZtkz41viWRdmXy/bPZ8vAS +0j5HdpEob23vrYw8eVB+lRFg1onz3csjppP35MHWV1qoGeehHdrOz8PL5YHU +CQ571EyiGgG/8urX8kBfp1pv8oxElaywVFU+BXDU7f7bAucxflOrjUn8CqA/ +58JTX0QiizFFJq+gAqTHDPDo3yPRKNGc2CWqAE9G02Zk7pJInCl5O1QWvz8z +U9KaRSKfy8XX3+gqwKvpWx+HcD6Usu06HRyoAJVNUh1NQSS6wKti/uq9AoTM +dvY8M8D511ioW+GDAjD+kLG9+iQyvz7peOmjAtxKUmr4pksi+hoyQGdCAUzN +xx6s1cF5V1r7Vta8AtSY2Eb9rYbz6zbDllPiipC8qejZBVmcB/0PmsrsVQTL +REYB5zfO333nTfxLFeFXl4TcaDkLfbpDjc8MVoJ13/tdRRVZKF5pw3KOlTJI +2ZaXq5wpQTEp7vVOFBWI3t2wZFxTjOzij7YIj6rAivzUNUvcIjRvnP8rs3oT +jDdpb8ulFqHhTzuCasNVwdYs/jBtzz2UY6Ap1ey0GfZEqPLrmBeikqunxTw2 +q0FntHj7b6cCFG7lsp9vTg3sOWvPfTxxF23pyy4Mb1YHl7ReAzGfOyhZObWk +eb8GrNFrylY/kY8u1kQl7+doAFcr2nW7Sx46IGWV/5KuCXWjxxIvH85FRv71 +9mI3NCHzzjeKmksOypR2pr+a0wR5e2l5QftsRH92N9HMXgtOVlxX2ueZhWI2 +16q0V2tB+tUtg/m/M5D7zPK2RhUGBNoeTZ4WSUfO96cpN24xYNPCmOXPA6nI +N+zQ0r5YBtg0XNeF3ano9KHSt8JxDOC/maESYZiKrs+djo5JZEBcRxmDqp6K +WLq/FpPSGbDjg9GkvWgq+vWU23WniAHTmqL7l3ekoJh24ai6egasndU9RBxO +QSm5fp7XGhnw68TWi9EWKSj3VMtOkyYGLKtxerawNwWVrYtZaGphgHldVkKX +XgrqsxP37OhkwMbJUz6p0ilIcXjDzqFhBiQMTCnZDTKRRul52bxPDLh5fJDn +bTcT6V1998ttlAHd5b4/LNuYyFQxnT02zoD80hJ9y1omOuFDkf3+nQFHrJdt +O5bHRMHbL/16MMMAb0dB/pE0Jrq6eujNqTkGjGSbzvomMFEymXtzfp4Bfs6N +WiHXmCgndLlHxQIDjv26e3nlRSYqsnDbEbzEgPLFlT/izjJRKe2FjOEfBrjV +G0RQApmoekbhF5fLgHunkoDlyUT/ASoIomI= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VGscB3BSFBKXUtlm5ow12UYK8f6USiWXskWRfV/aVa6kRQmRdexr +EeZMXdEgSQoJIUJCFFkqWUqoue/96zyf5znneZfzvr/fl+occNBtGQ8PjzAv +D8//z/QQZ35N11RDM7Gt4hJcLcO6DoqpDeUciuCqDU/5iiHui+rLFMoN1GKm +r/XSl4rSa6LkVlCYyPo416PUVxP5Gpz2+ylXiHpHRyozfY1Qx6Jn/JQcB+V/ +3rPP39cCCbwbUvwi14iiMgsUOT5OKPtl5vEJuR5kq1Kv/cXzOGKRN975qo2j +ezNvBXwlw5AHamNOnphBUcEfkgZrI5D/J+XhUtYv9C+Z+OdMTCwSpF5RHNjG +A44dGbt28SaiaNEmlexjfODhZ/TXvlUpyPmd5RO+V/xgc3+tkPWODHT8+RXn +AEVB8BN33yEvm43uBwofWr93NRzh8gYbDOeg7As+4xo2olA33f8jvTQPhWUu +WcxOisFAjMPeZtM7iKdjEKrOi4P1tmMdT2rvIoVT7kGWKmuBt91eIVW3EH2c +S7IWerwOdOpUgjTP3UP7Pnn/c/v4ejjyT0F/+v0iZPYxZpOs7EZwnt35W+pp +MRp/5hzaUCIF7ynyWk4ZJUgutts7ulQKNA28nvdllyBLBzMry0op2FxKE7XO +L0HV87oqgw1S4FLZ0WRUXIJubxZ783NYCjZFm7/7zSlB+klPFBU3SkNNKcdy +ZWcJivSWbr16TRooS+di3FexkJpYl8xORxnwPntTwsSHhUaiRsIS3GTgycuy +Hq4fC6UL/hwd9ZGB7jZO9sNAFhJevv5BZJAM6O1115M6w0LjPw7v7oqVgXUd +6FZLKAvl973396qTgTU6/S2dCSwkXfDpyS1lWTCYkZxyr2ahN/Qf9CF1WZiO +O0oM1LDQzWz+CG0dWTg+9s7O6hkLLaQoWvbskAXW66ou/QYW6o7y+kw7Igth +S/f5vrexUNzJL6Jl0bLAHlCBpY8sJIjmnPpmZOGwgXpV4ioSBRkprSxbkAUx +OxVBrhCJRnbas27xygE9J5LfTYREtSZPF3askQO29rSgijiJzh+MiitUkQOv +CKNdydIkmnCTf37GSQ7CDPqSV6iT6FWklZJYqxzElYzF0g+SSO/W9ZbxTjl4 +rCc9ssOSRAWxlafq+uRAcidz0sGaRFcSqU/PjsuBbDKvWIwdiWRf/1D9towC +heZhlV3OJOrqqX1uJUsBO+ZA+dwJEu35YveTZkWB5O/CThdiSZQhcbnjoi0F +KF/P1u2JI9GsfhHZZ0+BqfUwK5ZAoqyIRY9EZwp8SbzFyUwm0YJiWveqQAoc +028ZyMokUbHze85UBAVYkWSNbgmJRLsdg6trKBA1PbGm/gWJ3LnhtlJ1FAh1 +emF5oIFEVQps7aB6CoS73fdpaySR12meL5otFLBlXxTteIX366/so/nvKPBR +PUi/qp1Epw4MGUb+oMC6bWd2KvSTqLvWlddOlQoSe4Yi7WZINGXUu/EfdSr4 +uFrxXpslkcDTv7WztKgQcG4xgZwjkc4TPY+RbVRg9DEpv3+SKL5StPnELirs +PqlXc2mJRH+XViXfdKBCXbZuYfIyNnJnaD1gOVEh9JxEoBwfG4U8uNvU5koF +7cCrJvnYxezbfyR9qPBx6KYaazkbCZZ4uuadpUJaRX9bKT8bvciX0Hgcg+dn +GHYzQZCN+ukRewfjqLCl2PfsaiE2msvlOvMlUeF20cUzV7DpOeMJe9Op8Hbi +GitAmI3CMmoWOwupEMKdWakvwkaGSb71X2upMJFpF5IvxkYPr9c5UOaoELVk +qPRSko0K9jWtD5+nwi7bDCPV9WyUItze/mWRCmq8CSZR2KExA7srl9GgLbNH +znQDG5kmL6hZi9LAhL/mZ9VGNhq6q8G9uYkGyjlH/Xxk2KjTaytnWo0GA+vO +HK/CbthkePKwFrZ6kJuwLBuVkPtHFXTx92VtMoXYQeXurU9304DzQ/BNpxwb +idSnZf50osHNvLNBS1Q24r2Re9jBjQZXo1DUdhobze67J/7ckwaP1RzjL2D3 +tJSH3w6gQUCP8fkf2Hld7QGb/6FB8UnBwgGCjZKSe5TjQ2lwZ/mUpSSdjSLs +BocXLtNg5w3/2QPYAf1fbBoiaPBgZY/II2y9kZXgkkwD9sy7hxfl2WhzwZqF +xlQapJ7j4SOxKd7rSjUyaWDwfsWu99grvhJKf/Jp8En5cIGOAhu9njMUZf6L +xxO5P9WH/ax810tuGZ4f13uMT5GNys6ZXnGvwPtpbtmtjJ36+/A84ykNPPc4 +ME9gu684PdjSQgPzW3PFP7E3yjW+XWyjQUjrdzsJJTZq2SbTqtRJgyNfj9A0 +sHV8nz8Oe4fXKyH8xxV7/OqGh2Q/DcRPJv4Vgp2R6Vfc94EGqxykjRKx+TvW +pup8poH80YLJZ9gVk163XSZoEOwy59WD7c9ffSPmKw1Kept4v2J36boHjc/S +QOdN7iUJZbx/hyoCJOdpMDs06aWAbegn4mG8SIN9F8z8tmLnZ5VZZfAScEx7 +4rk1tm2F4IGm5QQ8Pe8v5YYt/MbBeF6AgKGElMgT2DVfHujLCxGg1RC34SL2 +KQEBxkERAgiPkNoIbCWqvcpFMQI2vAsJT8Du0yOpxRIEuGVyPDOxYyz5NvRI +EmC845B7Abaxv40ovxQB7a6BoWzs+fAiAYYsAQsVW8rLsYuzuX8cqQQECTUI +VmMfqzz0I5JOwBt10wvPsCU6737hKBJgLjG6sgG74evixxEVAvrKH//bhB28 +0rxPXA3PT3XuQgu2Bi2vAzQJ8E944PQa+6P+/Es/bQLyVKTc2rCTrUxrU7YS +sGuL5bX/bRqQxanXI8BG7PLz/9/nuTHLnjUgwGdzM60VuzTHpIBqREC0oG3G +K2zPqrRMM2MCjLbv3daILd01lXhhDwEBni+m6rBffzOOLthHgMeeufon2FdW +Ma92HiDgfe7iYw72NuJL8DILAprsuO0PsCe3G51StyTgkr2CQBF2lnWCzxEb +PN7dRLscbMvAMecbdgRUHzzTnIy9MsLAruwoAasvTzhGY1flxloMH8PrC5T+ +6zI2/a0uGHgQMF29r8sLu3sqaqu3NwFXxuM/22NHCg6pJfkRwO+lLXUAe9Yg +Qub7SQJ6K1YPqWIX2PRLyJ4lYO1Y/Bkp7CPHtYT3nyeAKyesugq7Lq93IS+U +gKs094UP+DwGVatNt10mQKg7UbwZW7U7bOzPNQJ4vQ+ZlWPHC23qto0i4GKF +sPINbJcTFx4KpxBQIvLqLO3/+6LV/1A5nYAV3EfqAtiC01C2O4uA7yf4xSfw +fWMf5y8PvUOA7SXbI2zspcDYR7MPCIjgmf2tgd2qMftIrIyAQ65ciTXYOVPW +HDUOAZ/oybaT+L7vDZSu8HxCQIbtKvc87MSAu5V9TQS83iOeIYjtpS5Y9auF +gH8H7ssM4fqx/Ztv1bp2AhQKRJoeYQ/7az027yaA45hGumBr+D+urvuI/9+I +YR6J61Ojb8fT4t/4vKmGH6Xg+pamqlPbyEOHc4FKTeO4/gVOJteO8NFBBc15 +lmKv83V4RhGkw/cJ1pZd2M4+Y3Xx6+jQ0z8jeRTX1yUvbn2wOh0cnUJp7rj+ +tio7NzC16OAQ7ZtPYOeM1TWUbaEDtZ3HfhDX671eEY1T+nQQaqx1sMFO9Fzb +5GpCB8kuyWZ9XO/VPTa1mDrRYY9+rGc/7g/9XnIBJa50MHu/zf06dqSvuKiI +Jx1M7m89rYk9dnzRotWfDoePrG4Ixf0lN7ip0yKYDmtX9O+WwP1H8rbPe+sk +OhQVhrwVWYv7Y7xjSHkKHcJjvfnuSeB6kXRIbn0GHUo28xgbY7el6Tv15NEh +v5bLd0acjW7eFfpk/4AODw23Xm3B/Y9bVTR5rJkOkx8WKw/h/sh6khn19DUd +XO2H9w+uxuevNk6N9oYOAjy9Mz7YnPoLgcO9dHhR8joyFPfXk+37Z90+0+HO +i/HPGbg/j45OLHrzyUOO4e7zbNy/W/9SFTqtKw/nKzhiFjgfGPr5jaVul4cU +Zrat8SKJWPWs+lokDyNKVZI6CySKDta8IrpbHlg9S1yJeRKZjuj8LjooD/fj +esNqcD55yTH6NuQjDwtTjbkt4yR6fsymwzxDHsZtkz41viWRdmXy/bPZ8vAS +0j5HdpEob23vrYw8eVB+lRFg1onz3csjppP35MHWV1qoGeehHdrOz8PL5YHU +CQ571EyiGgG/8urX8kBfp1pv8oxElaywVFU+BXDU7f7bAucxflOrjUn8CqA/ +58JTX0QiizFFJq+gAqTHDPDo3yPRKNGc2CWqAE9G02Zk7pJInCl5O1QWvz8z +U9KaRSKfy8XX3+gqwKvpWx+HcD6Usu06HRyoAJVNUh1NQSS6wKti/uq9AoTM +dvY8M8D511ioW+GDAjD+kLG9+iQyvz7peOmjAtxKUmr4pksi+hoyQGdCAUzN +xx6s1cF5V1r7Vta8AtSY2Eb9rYbz6zbDllPiipC8qejZBVmcB/0PmsrsVQTL +REYB5zfO333nTfxLFeFXl4TcaDkLfbpDjc8MVoJ13/tdRRVZKF5pw3KOlTJI +2ZaXq5wpQTEp7vVOFBWI3t2wZFxTjOzij7YIj6rAivzUNUvcIjRvnP8rs3oT +jDdpb8ulFqHhTzuCasNVwdYs/jBtzz2UY6Ap1ey0GfZEqPLrmBeikqunxTw2 +q0FntHj7b6cCFG7lsp9vTg3sOWvPfTxxF23pyy4Mb1YHl7ReAzGfOyhZObWk +eb8GrNFrylY/kY8u1kQl7+doAFcr2nW7Sx46IGWV/5KuCXWjxxIvH85FRv71 +9mI3NCHzzjeKmksOypR2pr+a0wR5e2l5QftsRH92N9HMXgtOVlxX2ueZhWI2 +16q0V2tB+tUtg/m/M5D7zPK2RhUGBNoeTZ4WSUfO96cpN24xYNPCmOXPA6nI +N+zQ0r5YBtg0XNeF3ano9KHSt8JxDOC/maESYZiKrs+djo5JZEBcRxmDqp6K +WLq/FpPSGbDjg9GkvWgq+vWU23WniAHTmqL7l3ekoJh24ai6egasndU9RBxO +QSm5fp7XGhnw68TWi9EWKSj3VMtOkyYGLKtxerawNwWVrYtZaGphgHldVkKX +XgrqsxP37OhkwMbJUz6p0ilIcXjDzqFhBiQMTCnZDTKRRul52bxPDLh5fJDn +bTcT6V1998ttlAHd5b4/LNuYyFQxnT02zoD80hJ9y1omOuFDkf3+nQFHrJdt +O5bHRMHbL/16MMMAb0dB/pE0Jrq6eujNqTkGjGSbzvomMFEymXtzfp4Bfs6N +WiHXmCgndLlHxQIDjv26e3nlRSYqsnDbEbzEgPLFlT/izjJRKe2FjOEfBrjV +G0RQApmoekbhF5fLgHunkoDlyUT/ASoIomI= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.06313809899821361}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.06313809899821361}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VGscB3BSFBKXUtlm5ow12UYK8f6USiWXskWRfV/aVa6kRQmRdexr +EeZMXdEgSQoJIUJCFFkqWUqoue/96zyf5znneZfzvr/fl+occNBtGQ8PjzAv +D8//z/QQZ35N11RDM7Gt4hJcLcO6DoqpDeUciuCqDU/5iiHui+rLFMoN1GKm +r/XSl4rSa6LkVlCYyPo416PUVxP5Gpz2+ylXiHpHRyozfY1Qx6Jn/JQcB+V/ +3rPP39cCCbwbUvwi14iiMgsUOT5OKPtl5vEJuR5kq1Kv/cXzOGKRN975qo2j +ezNvBXwlw5AHamNOnphBUcEfkgZrI5D/J+XhUtYv9C+Z+OdMTCwSpF5RHNjG +A44dGbt28SaiaNEmlexjfODhZ/TXvlUpyPmd5RO+V/xgc3+tkPWODHT8+RXn +AEVB8BN33yEvm43uBwofWr93NRzh8gYbDOeg7As+4xo2olA33f8jvTQPhWUu +WcxOisFAjMPeZtM7iKdjEKrOi4P1tmMdT2rvIoVT7kGWKmuBt91eIVW3EH2c +S7IWerwOdOpUgjTP3UP7Pnn/c/v4ejjyT0F/+v0iZPYxZpOs7EZwnt35W+pp +MRp/5hzaUCIF7ynyWk4ZJUgutts7ulQKNA28nvdllyBLBzMry0op2FxKE7XO +L0HV87oqgw1S4FLZ0WRUXIJubxZ783NYCjZFm7/7zSlB+klPFBU3SkNNKcdy +ZWcJivSWbr16TRooS+di3FexkJpYl8xORxnwPntTwsSHhUaiRsIS3GTgycuy +Hq4fC6UL/hwd9ZGB7jZO9sNAFhJevv5BZJAM6O1115M6w0LjPw7v7oqVgXUd +6FZLKAvl973396qTgTU6/S2dCSwkXfDpyS1lWTCYkZxyr2ahN/Qf9CF1WZiO +O0oM1LDQzWz+CG0dWTg+9s7O6hkLLaQoWvbskAXW66ou/QYW6o7y+kw7Igth +S/f5vrexUNzJL6Jl0bLAHlCBpY8sJIjmnPpmZOGwgXpV4ioSBRkprSxbkAUx +OxVBrhCJRnbas27xygE9J5LfTYREtSZPF3askQO29rSgijiJzh+MiitUkQOv +CKNdydIkmnCTf37GSQ7CDPqSV6iT6FWklZJYqxzElYzF0g+SSO/W9ZbxTjl4 +rCc9ssOSRAWxlafq+uRAcidz0sGaRFcSqU/PjsuBbDKvWIwdiWRf/1D9towC +heZhlV3OJOrqqX1uJUsBO+ZA+dwJEu35YveTZkWB5O/CThdiSZQhcbnjoi0F +KF/P1u2JI9GsfhHZZ0+BqfUwK5ZAoqyIRY9EZwp8SbzFyUwm0YJiWveqQAoc +028ZyMokUbHze85UBAVYkWSNbgmJRLsdg6trKBA1PbGm/gWJ3LnhtlJ1FAh1 +emF5oIFEVQps7aB6CoS73fdpaySR12meL5otFLBlXxTteIX366/so/nvKPBR +PUi/qp1Epw4MGUb+oMC6bWd2KvSTqLvWlddOlQoSe4Yi7WZINGXUu/EfdSr4 +uFrxXpslkcDTv7WztKgQcG4xgZwjkc4TPY+RbVRg9DEpv3+SKL5StPnELirs +PqlXc2mJRH+XViXfdKBCXbZuYfIyNnJnaD1gOVEh9JxEoBwfG4U8uNvU5koF +7cCrJvnYxezbfyR9qPBx6KYaazkbCZZ4uuadpUJaRX9bKT8bvciX0Hgcg+dn +GHYzQZCN+ukRewfjqLCl2PfsaiE2msvlOvMlUeF20cUzV7DpOeMJe9Op8Hbi +GitAmI3CMmoWOwupEMKdWakvwkaGSb71X2upMJFpF5IvxkYPr9c5UOaoELVk +qPRSko0K9jWtD5+nwi7bDCPV9WyUItze/mWRCmq8CSZR2KExA7srl9GgLbNH +znQDG5kmL6hZi9LAhL/mZ9VGNhq6q8G9uYkGyjlH/Xxk2KjTaytnWo0GA+vO +HK/CbthkePKwFrZ6kJuwLBuVkPtHFXTx92VtMoXYQeXurU9304DzQ/BNpxwb +idSnZf50osHNvLNBS1Q24r2Re9jBjQZXo1DUdhobze67J/7ckwaP1RzjL2D3 +tJSH3w6gQUCP8fkf2Hld7QGb/6FB8UnBwgGCjZKSe5TjQ2lwZ/mUpSSdjSLs +BocXLtNg5w3/2QPYAf1fbBoiaPBgZY/II2y9kZXgkkwD9sy7hxfl2WhzwZqF +xlQapJ7j4SOxKd7rSjUyaWDwfsWu99grvhJKf/Jp8En5cIGOAhu9njMUZf6L +xxO5P9WH/ax810tuGZ4f13uMT5GNys6ZXnGvwPtpbtmtjJ36+/A84ykNPPc4 +ME9gu684PdjSQgPzW3PFP7E3yjW+XWyjQUjrdzsJJTZq2SbTqtRJgyNfj9A0 +sHV8nz8Oe4fXKyH8xxV7/OqGh2Q/DcRPJv4Vgp2R6Vfc94EGqxykjRKx+TvW +pup8poH80YLJZ9gVk163XSZoEOwy59WD7c9ffSPmKw1Kept4v2J36boHjc/S +QOdN7iUJZbx/hyoCJOdpMDs06aWAbegn4mG8SIN9F8z8tmLnZ5VZZfAScEx7 +4rk1tm2F4IGm5QQ8Pe8v5YYt/MbBeF6AgKGElMgT2DVfHujLCxGg1RC34SL2 +KQEBxkERAgiPkNoIbCWqvcpFMQI2vAsJT8Du0yOpxRIEuGVyPDOxYyz5NvRI +EmC845B7Abaxv40ovxQB7a6BoWzs+fAiAYYsAQsVW8rLsYuzuX8cqQQECTUI +VmMfqzz0I5JOwBt10wvPsCU6737hKBJgLjG6sgG74evixxEVAvrKH//bhB28 +0rxPXA3PT3XuQgu2Bi2vAzQJ8E944PQa+6P+/Es/bQLyVKTc2rCTrUxrU7YS +sGuL5bX/bRqQxanXI8BG7PLz/9/nuTHLnjUgwGdzM60VuzTHpIBqREC0oG3G +K2zPqrRMM2MCjLbv3daILd01lXhhDwEBni+m6rBffzOOLthHgMeeufon2FdW +Ma92HiDgfe7iYw72NuJL8DILAprsuO0PsCe3G51StyTgkr2CQBF2lnWCzxEb +PN7dRLscbMvAMecbdgRUHzzTnIy9MsLAruwoAasvTzhGY1flxloMH8PrC5T+ +6zI2/a0uGHgQMF29r8sLu3sqaqu3NwFXxuM/22NHCg6pJfkRwO+lLXUAe9Yg +Qub7SQJ6K1YPqWIX2PRLyJ4lYO1Y/Bkp7CPHtYT3nyeAKyesugq7Lq93IS+U +gKs094UP+DwGVatNt10mQKg7UbwZW7U7bOzPNQJ4vQ+ZlWPHC23qto0i4GKF +sPINbJcTFx4KpxBQIvLqLO3/+6LV/1A5nYAV3EfqAtiC01C2O4uA7yf4xSfw +fWMf5y8PvUOA7SXbI2zspcDYR7MPCIjgmf2tgd2qMftIrIyAQ65ciTXYOVPW +HDUOAZ/oybaT+L7vDZSu8HxCQIbtKvc87MSAu5V9TQS83iOeIYjtpS5Y9auF +gH8H7ssM4fqx/Ztv1bp2AhQKRJoeYQ/7az027yaA45hGumBr+D+urvuI/9+I +YR6J61Ojb8fT4t/4vKmGH6Xg+pamqlPbyEOHc4FKTeO4/gVOJteO8NFBBc15 +lmKv83V4RhGkw/cJ1pZd2M4+Y3Xx6+jQ0z8jeRTX1yUvbn2wOh0cnUJp7rj+ +tio7NzC16OAQ7ZtPYOeM1TWUbaEDtZ3HfhDX671eEY1T+nQQaqx1sMFO9Fzb +5GpCB8kuyWZ9XO/VPTa1mDrRYY9+rGc/7g/9XnIBJa50MHu/zf06dqSvuKiI +Jx1M7m89rYk9dnzRotWfDoePrG4Ixf0lN7ip0yKYDmtX9O+WwP1H8rbPe+sk +OhQVhrwVWYv7Y7xjSHkKHcJjvfnuSeB6kXRIbn0GHUo28xgbY7el6Tv15NEh +v5bLd0acjW7eFfpk/4AODw23Xm3B/Y9bVTR5rJkOkx8WKw/h/sh6khn19DUd +XO2H9w+uxuevNk6N9oYOAjy9Mz7YnPoLgcO9dHhR8joyFPfXk+37Z90+0+HO +i/HPGbg/j45OLHrzyUOO4e7zbNy/W/9SFTqtKw/nKzhiFjgfGPr5jaVul4cU +Zrat8SKJWPWs+lokDyNKVZI6CySKDta8IrpbHlg9S1yJeRKZjuj8LjooD/fj +esNqcD55yTH6NuQjDwtTjbkt4yR6fsymwzxDHsZtkz41viWRdmXy/bPZ8vAS +0j5HdpEob23vrYw8eVB+lRFg1onz3csjppP35MHWV1qoGeehHdrOz8PL5YHU +CQ571EyiGgG/8urX8kBfp1pv8oxElaywVFU+BXDU7f7bAucxflOrjUn8CqA/ +58JTX0QiizFFJq+gAqTHDPDo3yPRKNGc2CWqAE9G02Zk7pJInCl5O1QWvz8z +U9KaRSKfy8XX3+gqwKvpWx+HcD6Usu06HRyoAJVNUh1NQSS6wKti/uq9AoTM +dvY8M8D511ioW+GDAjD+kLG9+iQyvz7peOmjAtxKUmr4pksi+hoyQGdCAUzN +xx6s1cF5V1r7Vta8AtSY2Eb9rYbz6zbDllPiipC8qejZBVmcB/0PmsrsVQTL +REYB5zfO333nTfxLFeFXl4TcaDkLfbpDjc8MVoJ13/tdRRVZKF5pw3KOlTJI +2ZaXq5wpQTEp7vVOFBWI3t2wZFxTjOzij7YIj6rAivzUNUvcIjRvnP8rs3oT +jDdpb8ulFqHhTzuCasNVwdYs/jBtzz2UY6Ap1ey0GfZEqPLrmBeikqunxTw2 +q0FntHj7b6cCFG7lsp9vTg3sOWvPfTxxF23pyy4Mb1YHl7ReAzGfOyhZObWk +eb8GrNFrylY/kY8u1kQl7+doAFcr2nW7Sx46IGWV/5KuCXWjxxIvH85FRv71 +9mI3NCHzzjeKmksOypR2pr+a0wR5e2l5QftsRH92N9HMXgtOVlxX2ueZhWI2 +16q0V2tB+tUtg/m/M5D7zPK2RhUGBNoeTZ4WSUfO96cpN24xYNPCmOXPA6nI +N+zQ0r5YBtg0XNeF3ano9KHSt8JxDOC/maESYZiKrs+djo5JZEBcRxmDqp6K +WLq/FpPSGbDjg9GkvWgq+vWU23WniAHTmqL7l3ekoJh24ai6egasndU9RBxO +QSm5fp7XGhnw68TWi9EWKSj3VMtOkyYGLKtxerawNwWVrYtZaGphgHldVkKX +XgrqsxP37OhkwMbJUz6p0ilIcXjDzqFhBiQMTCnZDTKRRul52bxPDLh5fJDn +bTcT6V1998ttlAHd5b4/LNuYyFQxnT02zoD80hJ9y1omOuFDkf3+nQFHrJdt +O5bHRMHbL/16MMMAb0dB/pE0Jrq6eujNqTkGjGSbzvomMFEymXtzfp4Bfs6N +WiHXmCgndLlHxQIDjv26e3nlRSYqsnDbEbzEgPLFlT/izjJRKe2FjOEfBrjV +G0RQApmoekbhF5fLgHunkoDlyUT/ASoIomI= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.06313809899821361}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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, 20}, {0., 0.06313809899821361}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991340117671425*^9, 3.992128893282318*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"5daa6c1b-b31f-4e4e-bb5e-b7f014bb2f93"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.009784"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.02687"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.043601"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.05335"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.062849"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.065087"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.067708"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.065141"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.063585"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.059029"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.055695"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.050792"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.046991"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.042372"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.03863"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.034472"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.031001"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.027323"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.024229"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.021057"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.018401"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991714709387436*^9, 3.991714738003292*^9}, { + 3.991714834117689*^9, 3.991714842328617*^9}, 3.991793311407936*^9, + 3.9917953263701286`*^9, 3.9920918211343956`*^9}, + CellLabel->"In[95]:=",ExpressionUUID->"a890eeb1-6bca-424f-a8f9-1a35c4cca33c"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, + 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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, 20.}, {0, 0.067708}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9917148467316074`*^9, 3.9921288933882427`*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"f606cb62-1677-8740-a2ad-6ca6ff3b7303"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel->"In[96]:=",ExpressionUUID->"b1f266e4-128a-e44e-90be-31846216bd9c"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4VGscB3BSFBKXUtlm5ow12UYK8f6USiWXskWRfV/aVa6kRQmRdexr +EeZMXdEgSQoJIUJCFFkqWUqoue/96zyf5znneZfzvr/fl+occNBtGQ8PjzAv +D8//z/QQZ35N11RDM7Gt4hJcLcO6DoqpDeUciuCqDU/5iiHui+rLFMoN1GKm +r/XSl4rSa6LkVlCYyPo416PUVxP5Gpz2+ylXiHpHRyozfY1Qx6Jn/JQcB+V/ +3rPP39cCCbwbUvwi14iiMgsUOT5OKPtl5vEJuR5kq1Kv/cXzOGKRN975qo2j +ezNvBXwlw5AHamNOnphBUcEfkgZrI5D/J+XhUtYv9C+Z+OdMTCwSpF5RHNjG +A44dGbt28SaiaNEmlexjfODhZ/TXvlUpyPmd5RO+V/xgc3+tkPWODHT8+RXn +AEVB8BN33yEvm43uBwofWr93NRzh8gYbDOeg7As+4xo2olA33f8jvTQPhWUu +WcxOisFAjMPeZtM7iKdjEKrOi4P1tmMdT2rvIoVT7kGWKmuBt91eIVW3EH2c +S7IWerwOdOpUgjTP3UP7Pnn/c/v4ejjyT0F/+v0iZPYxZpOs7EZwnt35W+pp +MRp/5hzaUCIF7ynyWk4ZJUgutts7ulQKNA28nvdllyBLBzMry0op2FxKE7XO +L0HV87oqgw1S4FLZ0WRUXIJubxZ783NYCjZFm7/7zSlB+klPFBU3SkNNKcdy +ZWcJivSWbr16TRooS+di3FexkJpYl8xORxnwPntTwsSHhUaiRsIS3GTgycuy +Hq4fC6UL/hwd9ZGB7jZO9sNAFhJevv5BZJAM6O1115M6w0LjPw7v7oqVgXUd +6FZLKAvl973396qTgTU6/S2dCSwkXfDpyS1lWTCYkZxyr2ahN/Qf9CF1WZiO +O0oM1LDQzWz+CG0dWTg+9s7O6hkLLaQoWvbskAXW66ou/QYW6o7y+kw7Igth +S/f5vrexUNzJL6Jl0bLAHlCBpY8sJIjmnPpmZOGwgXpV4ioSBRkprSxbkAUx +OxVBrhCJRnbas27xygE9J5LfTYREtSZPF3askQO29rSgijiJzh+MiitUkQOv +CKNdydIkmnCTf37GSQ7CDPqSV6iT6FWklZJYqxzElYzF0g+SSO/W9ZbxTjl4 +rCc9ssOSRAWxlafq+uRAcidz0sGaRFcSqU/PjsuBbDKvWIwdiWRf/1D9towC +heZhlV3OJOrqqX1uJUsBO+ZA+dwJEu35YveTZkWB5O/CThdiSZQhcbnjoi0F +KF/P1u2JI9GsfhHZZ0+BqfUwK5ZAoqyIRY9EZwp8SbzFyUwm0YJiWveqQAoc +028ZyMokUbHze85UBAVYkWSNbgmJRLsdg6trKBA1PbGm/gWJ3LnhtlJ1FAh1 +emF5oIFEVQps7aB6CoS73fdpaySR12meL5otFLBlXxTteIX366/so/nvKPBR +PUi/qp1Epw4MGUb+oMC6bWd2KvSTqLvWlddOlQoSe4Yi7WZINGXUu/EfdSr4 +uFrxXpslkcDTv7WztKgQcG4xgZwjkc4TPY+RbVRg9DEpv3+SKL5StPnELirs +PqlXc2mJRH+XViXfdKBCXbZuYfIyNnJnaD1gOVEh9JxEoBwfG4U8uNvU5koF +7cCrJvnYxezbfyR9qPBx6KYaazkbCZZ4uuadpUJaRX9bKT8bvciX0Hgcg+dn +GHYzQZCN+ukRewfjqLCl2PfsaiE2msvlOvMlUeF20cUzV7DpOeMJe9Op8Hbi +GitAmI3CMmoWOwupEMKdWakvwkaGSb71X2upMJFpF5IvxkYPr9c5UOaoELVk +qPRSko0K9jWtD5+nwi7bDCPV9WyUItze/mWRCmq8CSZR2KExA7srl9GgLbNH +znQDG5kmL6hZi9LAhL/mZ9VGNhq6q8G9uYkGyjlH/Xxk2KjTaytnWo0GA+vO +HK/CbthkePKwFrZ6kJuwLBuVkPtHFXTx92VtMoXYQeXurU9304DzQ/BNpxwb +idSnZf50osHNvLNBS1Q24r2Re9jBjQZXo1DUdhobze67J/7ckwaP1RzjL2D3 +tJSH3w6gQUCP8fkf2Hld7QGb/6FB8UnBwgGCjZKSe5TjQ2lwZ/mUpSSdjSLs +BocXLtNg5w3/2QPYAf1fbBoiaPBgZY/II2y9kZXgkkwD9sy7hxfl2WhzwZqF +xlQapJ7j4SOxKd7rSjUyaWDwfsWu99grvhJKf/Jp8En5cIGOAhu9njMUZf6L +xxO5P9WH/ax810tuGZ4f13uMT5GNys6ZXnGvwPtpbtmtjJ36+/A84ykNPPc4 +ME9gu684PdjSQgPzW3PFP7E3yjW+XWyjQUjrdzsJJTZq2SbTqtRJgyNfj9A0 +sHV8nz8Oe4fXKyH8xxV7/OqGh2Q/DcRPJv4Vgp2R6Vfc94EGqxykjRKx+TvW +pup8poH80YLJZ9gVk163XSZoEOwy59WD7c9ffSPmKw1Kept4v2J36boHjc/S +QOdN7iUJZbx/hyoCJOdpMDs06aWAbegn4mG8SIN9F8z8tmLnZ5VZZfAScEx7 +4rk1tm2F4IGm5QQ8Pe8v5YYt/MbBeF6AgKGElMgT2DVfHujLCxGg1RC34SL2 +KQEBxkERAgiPkNoIbCWqvcpFMQI2vAsJT8Du0yOpxRIEuGVyPDOxYyz5NvRI +EmC845B7Abaxv40ovxQB7a6BoWzs+fAiAYYsAQsVW8rLsYuzuX8cqQQECTUI +VmMfqzz0I5JOwBt10wvPsCU6737hKBJgLjG6sgG74evixxEVAvrKH//bhB28 +0rxPXA3PT3XuQgu2Bi2vAzQJ8E944PQa+6P+/Es/bQLyVKTc2rCTrUxrU7YS +sGuL5bX/bRqQxanXI8BG7PLz/9/nuTHLnjUgwGdzM60VuzTHpIBqREC0oG3G +K2zPqrRMM2MCjLbv3daILd01lXhhDwEBni+m6rBffzOOLthHgMeeufon2FdW +Ma92HiDgfe7iYw72NuJL8DILAprsuO0PsCe3G51StyTgkr2CQBF2lnWCzxEb +PN7dRLscbMvAMecbdgRUHzzTnIy9MsLAruwoAasvTzhGY1flxloMH8PrC5T+ +6zI2/a0uGHgQMF29r8sLu3sqaqu3NwFXxuM/22NHCg6pJfkRwO+lLXUAe9Yg +Qub7SQJ6K1YPqWIX2PRLyJ4lYO1Y/Bkp7CPHtYT3nyeAKyesugq7Lq93IS+U +gKs094UP+DwGVatNt10mQKg7UbwZW7U7bOzPNQJ4vQ+ZlWPHC23qto0i4GKF +sPINbJcTFx4KpxBQIvLqLO3/+6LV/1A5nYAV3EfqAtiC01C2O4uA7yf4xSfw +fWMf5y8PvUOA7SXbI2zspcDYR7MPCIjgmf2tgd2qMftIrIyAQ65ciTXYOVPW +HDUOAZ/oybaT+L7vDZSu8HxCQIbtKvc87MSAu5V9TQS83iOeIYjtpS5Y9auF +gH8H7ssM4fqx/Ztv1bp2AhQKRJoeYQ/7az027yaA45hGumBr+D+urvuI/9+I +YR6J61Ojb8fT4t/4vKmGH6Xg+pamqlPbyEOHc4FKTeO4/gVOJteO8NFBBc15 +lmKv83V4RhGkw/cJ1pZd2M4+Y3Xx6+jQ0z8jeRTX1yUvbn2wOh0cnUJp7rj+ +tio7NzC16OAQ7ZtPYOeM1TWUbaEDtZ3HfhDX671eEY1T+nQQaqx1sMFO9Fzb +5GpCB8kuyWZ9XO/VPTa1mDrRYY9+rGc/7g/9XnIBJa50MHu/zf06dqSvuKiI +Jx1M7m89rYk9dnzRotWfDoePrG4Ixf0lN7ip0yKYDmtX9O+WwP1H8rbPe+sk +OhQVhrwVWYv7Y7xjSHkKHcJjvfnuSeB6kXRIbn0GHUo28xgbY7el6Tv15NEh +v5bLd0acjW7eFfpk/4AODw23Xm3B/Y9bVTR5rJkOkx8WKw/h/sh6khn19DUd +XO2H9w+uxuevNk6N9oYOAjy9Mz7YnPoLgcO9dHhR8joyFPfXk+37Z90+0+HO +i/HPGbg/j45OLHrzyUOO4e7zbNy/W/9SFTqtKw/nKzhiFjgfGPr5jaVul4cU +Zrat8SKJWPWs+lokDyNKVZI6CySKDta8IrpbHlg9S1yJeRKZjuj8LjooD/fj +esNqcD55yTH6NuQjDwtTjbkt4yR6fsymwzxDHsZtkz41viWRdmXy/bPZ8vAS +0j5HdpEob23vrYw8eVB+lRFg1onz3csjppP35MHWV1qoGeehHdrOz8PL5YHU +CQ571EyiGgG/8urX8kBfp1pv8oxElaywVFU+BXDU7f7bAucxflOrjUn8CqA/ +58JTX0QiizFFJq+gAqTHDPDo3yPRKNGc2CWqAE9G02Zk7pJInCl5O1QWvz8z +U9KaRSKfy8XX3+gqwKvpWx+HcD6Usu06HRyoAJVNUh1NQSS6wKti/uq9AoTM +dvY8M8D511ioW+GDAjD+kLG9+iQyvz7peOmjAtxKUmr4pksi+hoyQGdCAUzN +xx6s1cF5V1r7Vta8AtSY2Eb9rYbz6zbDllPiipC8qejZBVmcB/0PmsrsVQTL +REYB5zfO333nTfxLFeFXl4TcaDkLfbpDjc8MVoJ13/tdRRVZKF5pw3KOlTJI +2ZaXq5wpQTEp7vVOFBWI3t2wZFxTjOzij7YIj6rAivzUNUvcIjRvnP8rs3oT +jDdpb8ulFqHhTzuCasNVwdYs/jBtzz2UY6Ap1ey0GfZEqPLrmBeikqunxTw2 +q0FntHj7b6cCFG7lsp9vTg3sOWvPfTxxF23pyy4Mb1YHl7ReAzGfOyhZObWk +eb8GrNFrylY/kY8u1kQl7+doAFcr2nW7Sx46IGWV/5KuCXWjxxIvH85FRv71 +9mI3NCHzzjeKmksOypR2pr+a0wR5e2l5QftsRH92N9HMXgtOVlxX2ueZhWI2 +16q0V2tB+tUtg/m/M5D7zPK2RhUGBNoeTZ4WSUfO96cpN24xYNPCmOXPA6nI +N+zQ0r5YBtg0XNeF3ano9KHSt8JxDOC/maESYZiKrs+djo5JZEBcRxmDqp6K +WLq/FpPSGbDjg9GkvWgq+vWU23WniAHTmqL7l3ekoJh24ai6egasndU9RBxO +QSm5fp7XGhnw68TWi9EWKSj3VMtOkyYGLKtxerawNwWVrYtZaGphgHldVkKX +XgrqsxP37OhkwMbJUz6p0ilIcXjDzqFhBiQMTCnZDTKRRul52bxPDLh5fJDn +bTcT6V1998ttlAHd5b4/LNuYyFQxnT02zoD80hJ9y1omOuFDkf3+nQFHrJdt +O5bHRMHbL/16MMMAb0dB/pE0Jrq6eujNqTkGjGSbzvomMFEymXtzfp4Bfs6N +WiHXmCgndLlHxQIDjv26e3nlRSYqsnDbEbzEgPLFlT/izjJRKe2FjOEfBrjV +G0RQApmoekbhF5fLgHunkoDlyUT/ASoIomI= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VGscB3BSFBKXUtlm5ow12UYK8f6USiWXskWRfV/aVa6kRQmRdexr +EeZMXdEgSQoJIUJCFFkqWUqoue/96zyf5znneZfzvr/fl+occNBtGQ8PjzAv +D8//z/QQZ35N11RDM7Gt4hJcLcO6DoqpDeUciuCqDU/5iiHui+rLFMoN1GKm +r/XSl4rSa6LkVlCYyPo416PUVxP5Gpz2+ylXiHpHRyozfY1Qx6Jn/JQcB+V/ +3rPP39cCCbwbUvwi14iiMgsUOT5OKPtl5vEJuR5kq1Kv/cXzOGKRN975qo2j +ezNvBXwlw5AHamNOnphBUcEfkgZrI5D/J+XhUtYv9C+Z+OdMTCwSpF5RHNjG +A44dGbt28SaiaNEmlexjfODhZ/TXvlUpyPmd5RO+V/xgc3+tkPWODHT8+RXn +AEVB8BN33yEvm43uBwofWr93NRzh8gYbDOeg7As+4xo2olA33f8jvTQPhWUu +WcxOisFAjMPeZtM7iKdjEKrOi4P1tmMdT2rvIoVT7kGWKmuBt91eIVW3EH2c +S7IWerwOdOpUgjTP3UP7Pnn/c/v4ejjyT0F/+v0iZPYxZpOs7EZwnt35W+pp +MRp/5hzaUCIF7ynyWk4ZJUgutts7ulQKNA28nvdllyBLBzMry0op2FxKE7XO +L0HV87oqgw1S4FLZ0WRUXIJubxZ783NYCjZFm7/7zSlB+klPFBU3SkNNKcdy +ZWcJivSWbr16TRooS+di3FexkJpYl8xORxnwPntTwsSHhUaiRsIS3GTgycuy +Hq4fC6UL/hwd9ZGB7jZO9sNAFhJevv5BZJAM6O1115M6w0LjPw7v7oqVgXUd +6FZLKAvl973396qTgTU6/S2dCSwkXfDpyS1lWTCYkZxyr2ahN/Qf9CF1WZiO +O0oM1LDQzWz+CG0dWTg+9s7O6hkLLaQoWvbskAXW66ou/QYW6o7y+kw7Igth +S/f5vrexUNzJL6Jl0bLAHlCBpY8sJIjmnPpmZOGwgXpV4ioSBRkprSxbkAUx +OxVBrhCJRnbas27xygE9J5LfTYREtSZPF3askQO29rSgijiJzh+MiitUkQOv +CKNdydIkmnCTf37GSQ7CDPqSV6iT6FWklZJYqxzElYzF0g+SSO/W9ZbxTjl4 +rCc9ssOSRAWxlafq+uRAcidz0sGaRFcSqU/PjsuBbDKvWIwdiWRf/1D9towC +heZhlV3OJOrqqX1uJUsBO+ZA+dwJEu35YveTZkWB5O/CThdiSZQhcbnjoi0F +KF/P1u2JI9GsfhHZZ0+BqfUwK5ZAoqyIRY9EZwp8SbzFyUwm0YJiWveqQAoc +028ZyMokUbHze85UBAVYkWSNbgmJRLsdg6trKBA1PbGm/gWJ3LnhtlJ1FAh1 +emF5oIFEVQps7aB6CoS73fdpaySR12meL5otFLBlXxTteIX366/so/nvKPBR +PUi/qp1Epw4MGUb+oMC6bWd2KvSTqLvWlddOlQoSe4Yi7WZINGXUu/EfdSr4 +uFrxXpslkcDTv7WztKgQcG4xgZwjkc4TPY+RbVRg9DEpv3+SKL5StPnELirs +PqlXc2mJRH+XViXfdKBCXbZuYfIyNnJnaD1gOVEh9JxEoBwfG4U8uNvU5koF +7cCrJvnYxezbfyR9qPBx6KYaazkbCZZ4uuadpUJaRX9bKT8bvciX0Hgcg+dn +GHYzQZCN+ukRewfjqLCl2PfsaiE2msvlOvMlUeF20cUzV7DpOeMJe9Op8Hbi +GitAmI3CMmoWOwupEMKdWakvwkaGSb71X2upMJFpF5IvxkYPr9c5UOaoELVk +qPRSko0K9jWtD5+nwi7bDCPV9WyUItze/mWRCmq8CSZR2KExA7srl9GgLbNH +znQDG5kmL6hZi9LAhL/mZ9VGNhq6q8G9uYkGyjlH/Xxk2KjTaytnWo0GA+vO +HK/CbthkePKwFrZ6kJuwLBuVkPtHFXTx92VtMoXYQeXurU9304DzQ/BNpxwb +idSnZf50osHNvLNBS1Q24r2Re9jBjQZXo1DUdhobze67J/7ckwaP1RzjL2D3 +tJSH3w6gQUCP8fkf2Hld7QGb/6FB8UnBwgGCjZKSe5TjQ2lwZ/mUpSSdjSLs +BocXLtNg5w3/2QPYAf1fbBoiaPBgZY/II2y9kZXgkkwD9sy7hxfl2WhzwZqF +xlQapJ7j4SOxKd7rSjUyaWDwfsWu99grvhJKf/Jp8En5cIGOAhu9njMUZf6L +xxO5P9WH/ax810tuGZ4f13uMT5GNys6ZXnGvwPtpbtmtjJ36+/A84ykNPPc4 +ME9gu684PdjSQgPzW3PFP7E3yjW+XWyjQUjrdzsJJTZq2SbTqtRJgyNfj9A0 +sHV8nz8Oe4fXKyH8xxV7/OqGh2Q/DcRPJv4Vgp2R6Vfc94EGqxykjRKx+TvW +pup8poH80YLJZ9gVk163XSZoEOwy59WD7c9ffSPmKw1Kept4v2J36boHjc/S +QOdN7iUJZbx/hyoCJOdpMDs06aWAbegn4mG8SIN9F8z8tmLnZ5VZZfAScEx7 +4rk1tm2F4IGm5QQ8Pe8v5YYt/MbBeF6AgKGElMgT2DVfHujLCxGg1RC34SL2 +KQEBxkERAgiPkNoIbCWqvcpFMQI2vAsJT8Du0yOpxRIEuGVyPDOxYyz5NvRI +EmC845B7Abaxv40ovxQB7a6BoWzs+fAiAYYsAQsVW8rLsYuzuX8cqQQECTUI +VmMfqzz0I5JOwBt10wvPsCU6737hKBJgLjG6sgG74evixxEVAvrKH//bhB28 +0rxPXA3PT3XuQgu2Bi2vAzQJ8E944PQa+6P+/Es/bQLyVKTc2rCTrUxrU7YS +sGuL5bX/bRqQxanXI8BG7PLz/9/nuTHLnjUgwGdzM60VuzTHpIBqREC0oG3G +K2zPqrRMM2MCjLbv3daILd01lXhhDwEBni+m6rBffzOOLthHgMeeufon2FdW +Ma92HiDgfe7iYw72NuJL8DILAprsuO0PsCe3G51StyTgkr2CQBF2lnWCzxEb +PN7dRLscbMvAMecbdgRUHzzTnIy9MsLAruwoAasvTzhGY1flxloMH8PrC5T+ +6zI2/a0uGHgQMF29r8sLu3sqaqu3NwFXxuM/22NHCg6pJfkRwO+lLXUAe9Yg +Qub7SQJ6K1YPqWIX2PRLyJ4lYO1Y/Bkp7CPHtYT3nyeAKyesugq7Lq93IS+U +gKs094UP+DwGVatNt10mQKg7UbwZW7U7bOzPNQJ4vQ+ZlWPHC23qto0i4GKF +sPINbJcTFx4KpxBQIvLqLO3/+6LV/1A5nYAV3EfqAtiC01C2O4uA7yf4xSfw +fWMf5y8PvUOA7SXbI2zspcDYR7MPCIjgmf2tgd2qMftIrIyAQ65ciTXYOVPW +HDUOAZ/oybaT+L7vDZSu8HxCQIbtKvc87MSAu5V9TQS83iOeIYjtpS5Y9auF +gH8H7ssM4fqx/Ztv1bp2AhQKRJoeYQ/7az027yaA45hGumBr+D+urvuI/9+I +YR6J61Ojb8fT4t/4vKmGH6Xg+pamqlPbyEOHc4FKTeO4/gVOJteO8NFBBc15 +lmKv83V4RhGkw/cJ1pZd2M4+Y3Xx6+jQ0z8jeRTX1yUvbn2wOh0cnUJp7rj+ +tio7NzC16OAQ7ZtPYOeM1TWUbaEDtZ3HfhDX671eEY1T+nQQaqx1sMFO9Fzb +5GpCB8kuyWZ9XO/VPTa1mDrRYY9+rGc/7g/9XnIBJa50MHu/zf06dqSvuKiI +Jx1M7m89rYk9dnzRotWfDoePrG4Ixf0lN7ip0yKYDmtX9O+WwP1H8rbPe+sk +OhQVhrwVWYv7Y7xjSHkKHcJjvfnuSeB6kXRIbn0GHUo28xgbY7el6Tv15NEh +v5bLd0acjW7eFfpk/4AODw23Xm3B/Y9bVTR5rJkOkx8WKw/h/sh6khn19DUd +XO2H9w+uxuevNk6N9oYOAjy9Mz7YnPoLgcO9dHhR8joyFPfXk+37Z90+0+HO +i/HPGbg/j45OLHrzyUOO4e7zbNy/W/9SFTqtKw/nKzhiFjgfGPr5jaVul4cU +Zrat8SKJWPWs+lokDyNKVZI6CySKDta8IrpbHlg9S1yJeRKZjuj8LjooD/fj +esNqcD55yTH6NuQjDwtTjbkt4yR6fsymwzxDHsZtkz41viWRdmXy/bPZ8vAS +0j5HdpEob23vrYw8eVB+lRFg1onz3csjppP35MHWV1qoGeehHdrOz8PL5YHU +CQ571EyiGgG/8urX8kBfp1pv8oxElaywVFU+BXDU7f7bAucxflOrjUn8CqA/ +58JTX0QiizFFJq+gAqTHDPDo3yPRKNGc2CWqAE9G02Zk7pJInCl5O1QWvz8z +U9KaRSKfy8XX3+gqwKvpWx+HcD6Usu06HRyoAJVNUh1NQSS6wKti/uq9AoTM +dvY8M8D511ioW+GDAjD+kLG9+iQyvz7peOmjAtxKUmr4pksi+hoyQGdCAUzN +xx6s1cF5V1r7Vta8AtSY2Eb9rYbz6zbDllPiipC8qejZBVmcB/0PmsrsVQTL +REYB5zfO333nTfxLFeFXl4TcaDkLfbpDjc8MVoJ13/tdRRVZKF5pw3KOlTJI +2ZaXq5wpQTEp7vVOFBWI3t2wZFxTjOzij7YIj6rAivzUNUvcIjRvnP8rs3oT +jDdpb8ulFqHhTzuCasNVwdYs/jBtzz2UY6Ap1ey0GfZEqPLrmBeikqunxTw2 +q0FntHj7b6cCFG7lsp9vTg3sOWvPfTxxF23pyy4Mb1YHl7ReAzGfOyhZObWk +eb8GrNFrylY/kY8u1kQl7+doAFcr2nW7Sx46IGWV/5KuCXWjxxIvH85FRv71 +9mI3NCHzzjeKmksOypR2pr+a0wR5e2l5QftsRH92N9HMXgtOVlxX2ueZhWI2 +16q0V2tB+tUtg/m/M5D7zPK2RhUGBNoeTZ4WSUfO96cpN24xYNPCmOXPA6nI +N+zQ0r5YBtg0XNeF3ano9KHSt8JxDOC/maESYZiKrs+djo5JZEBcRxmDqp6K +WLq/FpPSGbDjg9GkvWgq+vWU23WniAHTmqL7l3ekoJh24ai6egasndU9RBxO +QSm5fp7XGhnw68TWi9EWKSj3VMtOkyYGLKtxerawNwWVrYtZaGphgHldVkKX +XgrqsxP37OhkwMbJUz6p0ilIcXjDzqFhBiQMTCnZDTKRRul52bxPDLh5fJDn +bTcT6V1998ttlAHd5b4/LNuYyFQxnT02zoD80hJ9y1omOuFDkf3+nQFHrJdt +O5bHRMHbL/16MMMAb0dB/pE0Jrq6eujNqTkGjGSbzvomMFEymXtzfp4Bfs6N +WiHXmCgndLlHxQIDjv26e3nlRSYqsnDbEbzEgPLFlT/izjJRKe2FjOEfBrjV +G0RQApmoekbhF5fLgHunkoDlyUT/ASoIomI= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.06313809899821361}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.06313809899821361}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VGscB3BSFBKXUtlm5ow12UYK8f6USiWXskWRfV/aVa6kRQmRdexr +EeZMXdEgSQoJIUJCFFkqWUqoue/96zyf5znneZfzvr/fl+occNBtGQ8PjzAv +D8//z/QQZ35N11RDM7Gt4hJcLcO6DoqpDeUciuCqDU/5iiHui+rLFMoN1GKm +r/XSl4rSa6LkVlCYyPo416PUVxP5Gpz2+ylXiHpHRyozfY1Qx6Jn/JQcB+V/ +3rPP39cCCbwbUvwi14iiMgsUOT5OKPtl5vEJuR5kq1Kv/cXzOGKRN975qo2j +ezNvBXwlw5AHamNOnphBUcEfkgZrI5D/J+XhUtYv9C+Z+OdMTCwSpF5RHNjG +A44dGbt28SaiaNEmlexjfODhZ/TXvlUpyPmd5RO+V/xgc3+tkPWODHT8+RXn +AEVB8BN33yEvm43uBwofWr93NRzh8gYbDOeg7As+4xo2olA33f8jvTQPhWUu +WcxOisFAjMPeZtM7iKdjEKrOi4P1tmMdT2rvIoVT7kGWKmuBt91eIVW3EH2c +S7IWerwOdOpUgjTP3UP7Pnn/c/v4ejjyT0F/+v0iZPYxZpOs7EZwnt35W+pp +MRp/5hzaUCIF7ynyWk4ZJUgutts7ulQKNA28nvdllyBLBzMry0op2FxKE7XO +L0HV87oqgw1S4FLZ0WRUXIJubxZ783NYCjZFm7/7zSlB+klPFBU3SkNNKcdy +ZWcJivSWbr16TRooS+di3FexkJpYl8xORxnwPntTwsSHhUaiRsIS3GTgycuy +Hq4fC6UL/hwd9ZGB7jZO9sNAFhJevv5BZJAM6O1115M6w0LjPw7v7oqVgXUd +6FZLKAvl973396qTgTU6/S2dCSwkXfDpyS1lWTCYkZxyr2ahN/Qf9CF1WZiO +O0oM1LDQzWz+CG0dWTg+9s7O6hkLLaQoWvbskAXW66ou/QYW6o7y+kw7Igth +S/f5vrexUNzJL6Jl0bLAHlCBpY8sJIjmnPpmZOGwgXpV4ioSBRkprSxbkAUx +OxVBrhCJRnbas27xygE9J5LfTYREtSZPF3askQO29rSgijiJzh+MiitUkQOv +CKNdydIkmnCTf37GSQ7CDPqSV6iT6FWklZJYqxzElYzF0g+SSO/W9ZbxTjl4 +rCc9ssOSRAWxlafq+uRAcidz0sGaRFcSqU/PjsuBbDKvWIwdiWRf/1D9towC +heZhlV3OJOrqqX1uJUsBO+ZA+dwJEu35YveTZkWB5O/CThdiSZQhcbnjoi0F +KF/P1u2JI9GsfhHZZ0+BqfUwK5ZAoqyIRY9EZwp8SbzFyUwm0YJiWveqQAoc +028ZyMokUbHze85UBAVYkWSNbgmJRLsdg6trKBA1PbGm/gWJ3LnhtlJ1FAh1 +emF5oIFEVQps7aB6CoS73fdpaySR12meL5otFLBlXxTteIX366/so/nvKPBR +PUi/qp1Epw4MGUb+oMC6bWd2KvSTqLvWlddOlQoSe4Yi7WZINGXUu/EfdSr4 +uFrxXpslkcDTv7WztKgQcG4xgZwjkc4TPY+RbVRg9DEpv3+SKL5StPnELirs +PqlXc2mJRH+XViXfdKBCXbZuYfIyNnJnaD1gOVEh9JxEoBwfG4U8uNvU5koF +7cCrJvnYxezbfyR9qPBx6KYaazkbCZZ4uuadpUJaRX9bKT8bvciX0Hgcg+dn +GHYzQZCN+ukRewfjqLCl2PfsaiE2msvlOvMlUeF20cUzV7DpOeMJe9Op8Hbi +GitAmI3CMmoWOwupEMKdWakvwkaGSb71X2upMJFpF5IvxkYPr9c5UOaoELVk +qPRSko0K9jWtD5+nwi7bDCPV9WyUItze/mWRCmq8CSZR2KExA7srl9GgLbNH +znQDG5kmL6hZi9LAhL/mZ9VGNhq6q8G9uYkGyjlH/Xxk2KjTaytnWo0GA+vO +HK/CbthkePKwFrZ6kJuwLBuVkPtHFXTx92VtMoXYQeXurU9304DzQ/BNpxwb +idSnZf50osHNvLNBS1Q24r2Re9jBjQZXo1DUdhobze67J/7ckwaP1RzjL2D3 +tJSH3w6gQUCP8fkf2Hld7QGb/6FB8UnBwgGCjZKSe5TjQ2lwZ/mUpSSdjSLs +BocXLtNg5w3/2QPYAf1fbBoiaPBgZY/II2y9kZXgkkwD9sy7hxfl2WhzwZqF +xlQapJ7j4SOxKd7rSjUyaWDwfsWu99grvhJKf/Jp8En5cIGOAhu9njMUZf6L +xxO5P9WH/ax810tuGZ4f13uMT5GNys6ZXnGvwPtpbtmtjJ36+/A84ykNPPc4 +ME9gu684PdjSQgPzW3PFP7E3yjW+XWyjQUjrdzsJJTZq2SbTqtRJgyNfj9A0 +sHV8nz8Oe4fXKyH8xxV7/OqGh2Q/DcRPJv4Vgp2R6Vfc94EGqxykjRKx+TvW +pup8poH80YLJZ9gVk163XSZoEOwy59WD7c9ffSPmKw1Kept4v2J36boHjc/S +QOdN7iUJZbx/hyoCJOdpMDs06aWAbegn4mG8SIN9F8z8tmLnZ5VZZfAScEx7 +4rk1tm2F4IGm5QQ8Pe8v5YYt/MbBeF6AgKGElMgT2DVfHujLCxGg1RC34SL2 +KQEBxkERAgiPkNoIbCWqvcpFMQI2vAsJT8Du0yOpxRIEuGVyPDOxYyz5NvRI +EmC845B7Abaxv40ovxQB7a6BoWzs+fAiAYYsAQsVW8rLsYuzuX8cqQQECTUI +VmMfqzz0I5JOwBt10wvPsCU6737hKBJgLjG6sgG74evixxEVAvrKH//bhB28 +0rxPXA3PT3XuQgu2Bi2vAzQJ8E944PQa+6P+/Es/bQLyVKTc2rCTrUxrU7YS +sGuL5bX/bRqQxanXI8BG7PLz/9/nuTHLnjUgwGdzM60VuzTHpIBqREC0oG3G +K2zPqrRMM2MCjLbv3daILd01lXhhDwEBni+m6rBffzOOLthHgMeeufon2FdW +Ma92HiDgfe7iYw72NuJL8DILAprsuO0PsCe3G51StyTgkr2CQBF2lnWCzxEb +PN7dRLscbMvAMecbdgRUHzzTnIy9MsLAruwoAasvTzhGY1flxloMH8PrC5T+ +6zI2/a0uGHgQMF29r8sLu3sqaqu3NwFXxuM/22NHCg6pJfkRwO+lLXUAe9Yg +Qub7SQJ6K1YPqWIX2PRLyJ4lYO1Y/Bkp7CPHtYT3nyeAKyesugq7Lq93IS+U +gKs094UP+DwGVatNt10mQKg7UbwZW7U7bOzPNQJ4vQ+ZlWPHC23qto0i4GKF +sPINbJcTFx4KpxBQIvLqLO3/+6LV/1A5nYAV3EfqAtiC01C2O4uA7yf4xSfw +fWMf5y8PvUOA7SXbI2zspcDYR7MPCIjgmf2tgd2qMftIrIyAQ65ciTXYOVPW +HDUOAZ/oybaT+L7vDZSu8HxCQIbtKvc87MSAu5V9TQS83iOeIYjtpS5Y9auF +gH8H7ssM4fqx/Ztv1bp2AhQKRJoeYQ/7az027yaA45hGumBr+D+urvuI/9+I +YR6J61Ojb8fT4t/4vKmGH6Xg+pamqlPbyEOHc4FKTeO4/gVOJteO8NFBBc15 +lmKv83V4RhGkw/cJ1pZd2M4+Y3Xx6+jQ0z8jeRTX1yUvbn2wOh0cnUJp7rj+ +tio7NzC16OAQ7ZtPYOeM1TWUbaEDtZ3HfhDX671eEY1T+nQQaqx1sMFO9Fzb +5GpCB8kuyWZ9XO/VPTa1mDrRYY9+rGc/7g/9XnIBJa50MHu/zf06dqSvuKiI +Jx1M7m89rYk9dnzRotWfDoePrG4Ixf0lN7ip0yKYDmtX9O+WwP1H8rbPe+sk +OhQVhrwVWYv7Y7xjSHkKHcJjvfnuSeB6kXRIbn0GHUo28xgbY7el6Tv15NEh +v5bLd0acjW7eFfpk/4AODw23Xm3B/Y9bVTR5rJkOkx8WKw/h/sh6khn19DUd +XO2H9w+uxuevNk6N9oYOAjy9Mz7YnPoLgcO9dHhR8joyFPfXk+37Z90+0+HO +i/HPGbg/j45OLHrzyUOO4e7zbNy/W/9SFTqtKw/nKzhiFjgfGPr5jaVul4cU +Zrat8SKJWPWs+lokDyNKVZI6CySKDta8IrpbHlg9S1yJeRKZjuj8LjooD/fj +esNqcD55yTH6NuQjDwtTjbkt4yR6fsymwzxDHsZtkz41viWRdmXy/bPZ8vAS +0j5HdpEob23vrYw8eVB+lRFg1onz3csjppP35MHWV1qoGeehHdrOz8PL5YHU +CQ571EyiGgG/8urX8kBfp1pv8oxElaywVFU+BXDU7f7bAucxflOrjUn8CqA/ +58JTX0QiizFFJq+gAqTHDPDo3yPRKNGc2CWqAE9G02Zk7pJInCl5O1QWvz8z +U9KaRSKfy8XX3+gqwKvpWx+HcD6Usu06HRyoAJVNUh1NQSS6wKti/uq9AoTM +dvY8M8D511ioW+GDAjD+kLG9+iQyvz7peOmjAtxKUmr4pksi+hoyQGdCAUzN +xx6s1cF5V1r7Vta8AtSY2Eb9rYbz6zbDllPiipC8qejZBVmcB/0PmsrsVQTL +REYB5zfO333nTfxLFeFXl4TcaDkLfbpDjc8MVoJ13/tdRRVZKF5pw3KOlTJI +2ZaXq5wpQTEp7vVOFBWI3t2wZFxTjOzij7YIj6rAivzUNUvcIjRvnP8rs3oT +jDdpb8ulFqHhTzuCasNVwdYs/jBtzz2UY6Ap1ey0GfZEqPLrmBeikqunxTw2 +q0FntHj7b6cCFG7lsp9vTg3sOWvPfTxxF23pyy4Mb1YHl7ReAzGfOyhZObWk +eb8GrNFrylY/kY8u1kQl7+doAFcr2nW7Sx46IGWV/5KuCXWjxxIvH85FRv71 +9mI3NCHzzjeKmksOypR2pr+a0wR5e2l5QftsRH92N9HMXgtOVlxX2ueZhWI2 +16q0V2tB+tUtg/m/M5D7zPK2RhUGBNoeTZ4WSUfO96cpN24xYNPCmOXPA6nI +N+zQ0r5YBtg0XNeF3ano9KHSt8JxDOC/maESYZiKrs+djo5JZEBcRxmDqp6K +WLq/FpPSGbDjg9GkvWgq+vWU23WniAHTmqL7l3ekoJh24ai6egasndU9RBxO +QSm5fp7XGhnw68TWi9EWKSj3VMtOkyYGLKtxerawNwWVrYtZaGphgHldVkKX +XgrqsxP37OhkwMbJUz6p0ilIcXjDzqFhBiQMTCnZDTKRRul52bxPDLh5fJDn +bTcT6V1998ttlAHd5b4/LNuYyFQxnT02zoD80hJ9y1omOuFDkf3+nQFHrJdt +O5bHRMHbL/16MMMAb0dB/pE0Jrq6eujNqTkGjGSbzvomMFEymXtzfp4Bfs6N +WiHXmCgndLlHxQIDjv26e3nlRSYqsnDbEbzEgPLFlT/izjJRKe2FjOEfBrjV +G0RQApmoekbhF5fLgHunkoDlyUT/ASoIomI= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.06313809899821361}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, + 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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, 20}, {0., 0.06313809899821361}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}, + 3.9921288934152584`*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"187c8104-da0e-7b4f-9895-497dceac6466"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{3.991923767707161*^9}, + CellLabel->"In[97]:=",ExpressionUUID->"15c72253-d078-7f43-9f29-7ac094706013"], + +Cell[BoxData["18.179601361710716`"], "Output", + CellChangeTimes->{3.991340544411957*^9, 3.9921288934472427`*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"1ae54a4a-fed9-1141-ae2a-4eee4d814e9a"] +}, 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.9919237699816914`*^9}, + CellLabel->"In[98]:=",ExpressionUUID->"8ab23ce3-6dd3-7740-bde2-eb9eba4ac874"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.8165720655564655`*^-260\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 98, + 978, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9, 3.9921288936203995`*^9}, + CellLabel-> + "During evaluation of \ +In[98]:=",ExpressionUUID->"635f5923-2fdd-6448-b088-76be639b1d23"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.484584649924521`*^-270\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 98, 979, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9, 3.9921288936273994`*^9}, + CellLabel-> + "During evaluation of \ +In[98]:=",ExpressionUUID->"5bab959d-ef63-7540-9727-13ffae2f061a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0613056647566823`*^-280\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 98, 980, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9, 3.9921288936334*^9}, + CellLabel-> + "During evaluation of \ +In[98]:=",ExpressionUUID->"f5b08ba8-2927-e148-886e-81e04091edc3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 98, 981, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9, 3.9921288936394024`*^9}, + CellLabel-> + "During evaluation of \ +In[98]:=",ExpressionUUID->"f5e1afb2-2420-ab43-a72d-e47e019320a1"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk0VesbB/BSrhQlM6GLYzpnn+OYMxzvU5mJyhSZpxRKikiZKiLFoYvI +vLdEA6XBUCTchp9SMheaQ6YGOQ383vvXXp+113rXO36fR9Fv3/ZAviVLlqxc +umTJf9+54YdttFOkaVLSycyxBXXTF0XSMRv7k5B94Cfpjsm/EEg89ZPuz0JB +l8e0syclUdTWqr5l/WVI4y/37KhJVbR2SiqL13cNvd3vx905qY9Gmuz3fetr +RWJO0lbrJi2QBW381WzfcxSQOy/A/uyCeH0G/8z0vUFLHKwdz3wKQvc3XyCf +lX1Fn1eKNvs9OYTkRuo/+BF/kOTVmNFbBYlIPNS7SmDzMih/0i+RL5+CsrQs +Gu2dV0DbdUm7Y3PpaCCP3TIrIgzNFYkTPCUuOkXGP+WTWQuDsx+/bpvIRlJn +36ZmF4qBVIFXbGxaDkpxsjZ9PicBE0mb7ruP5qEDhqXeD5OkgX/VU7vPFgXI +bPrn4b1vZUHqGV9mjF8hSjTZ5iu7QR76pPSU7bYVI6Mr5+rimtfDVsu4mV8l +JSh0fjbhgbAizK0OkBSMLEU8hsgw01kJTj6ciWowK0Mm1ZdKcnKUQfze0M4K +XhmaFbXxcWmlQUFd7pXU0+WoP1Spa8+/NNC4OlU4nFGOWjp+ovj/0cDAZtca +7axylHm4en1lLw2M1cuiX+SUI/YboRHeOA1WeqX5C5SUo721Tz0LxVSgs259 +jsq1cjTu4LzzXYAKEE1fHDb3lKN36T4uEQKqsOpSx51lUiTaO04osYVUQa5I +s7VPmkQ/LHmTkyKq4GBQE1MlS6KVy7JO7JZVhWHvFXx2CiRix9yv82Gqwg/D +9Oh4FRIdDVQVc3BUhQc+oksrdUgkafr5KaNYFR5z7lUu2pPIevqQ9Xt9NdBT +jBN8nEgiOS2F5BUmanCkVV4t9BiJpiLaWhkb1UArwapl1QkSnZ0TMYmwVQOJ +0/GBFidJNPznImvRWw0cb6OjF8+QKELopZhMqhokZS/MqBaQKF8Dhu2G1OBj +Wv6exWskCg35IBs+qgYx/Mpy4XUkQpfTXbPfq8GAfabtyA0SvWMPdA1Mq4FG +dDit/jaJWBsi7gctVwczzest7ndJdN+CrExgqoPlbv1bzg9J9Nl/xYG6eHXQ +chIwZwzj+RaZ3Wk+rg7mK5qFg0ZIND2QIPA4VR0eECaBxaMk+uLAK3idrQ5F +7lMtwm/xfhqPt62uVAfSVIQ18JFEfOL/k9zdpQ7+hs1z9FkSybRlNMgraoDy +pib+Rj4KyS4+Xq6hqgE1KrYv/11GITmjFQ66DA1g0DTMu5dTSKEm4a2NngYM +Kdg/ef8XhWjn9wtFW2vAv8EV93grKcQ+6Oj1fL8GtAcEWL0SpfB7k+JLadWA +RL/GpmxFCo35WVYa/6sBhfZJ9AAlCqWXHrKfeawBE5GlnjrKFOpW6M9369GA +8TwP8Sc0CvnInNMhPmnAwkFexzc1CsWsXhf4TJgOajId7gIsPL8ttquSRenA +CfvEaMNuORVbayRFh4sZ0BavSaG/BF/+Kf+bDpKnhW2/simUtawwJ0qHDm53 +4use61Do0rzCg3VudHjpYCe6yZBCDgYOe7s86cCvHRM4gf0lMl78hB8dPN/3 +JGYbUcjw64jPVAgd1kiVSo4aU6hjsoTXEkeHHkWJuj2mFBp5o8QIIukgdidp +yHwzhUQ7Vc/UTNPB3IT7SNyOQgvTbOrRNzo0z/LHlGGPixo3vePRoe6+ejNr +C4VadziMSy9ngKs3W2yzPYUOvDtkkSjNgIjfTiPuWyn04teDhW0bGaA/1M+2 +dMLrVeiWCLVgQODlJeF3sS9tfEUk2zLgeVe7ta4zhU6kzLo3ODPgXO+nznUu +FNIXk72ltIcBrU4j8oOuFMqlh+z7msWA+k/7BMR3Uuj4lshk4TwGdOo6CERi +h4fHF6oVMiDeeoR8gW11M/vxzgsMWH1qqD7Dg0LzG5vU2hoZoOfRtfW7J4Xe +BXSYDrcwYPubls22XhTqSulynm9nAP8mXk8x9sXOd8eILgbk1q4ZMPOmkLub +8OjZdwwQGz/qHeeD78sRqR9XxvD6R122P8TWLlZc/XCKAUIJUh9EfSm08r2e +yZ95BiTqK82WYjeGe+UFChOwzk+14KofhSqzg6/GixJw/uzygmnsszcjOs5J +EZD2NoLD8qdQ6O/kb52KBMTn9+65gC138upWfX0Ckg1Kw1IDKFR15fJ9nhEB +myNeCzVib+ip1r+DCHh14+eRCWwnpUo5M2sCGk/u6bIKpNAbq4oMAXsC3MJl +6yKxw/eRfI+3ExC81mV3KXZ6U8mnbR4ElFvRrL9jy74t2inhS0Am39qD8kF4 +voKFT/oDCQi7w9lvht3mcq7Oex8BTdlCb89g/5rhJoQlESDfe/iixC4KnZTK +/MpOIaCK5xuiiy1peibo2ykCju+aW7IdW/tUml3sPwSUlI1cSMVuqT3ZbJpP +gMNUZn05tn1/sjZfMQF/J1YWN2HvUTkmnVpJgFxa29g49rxt4im7ywQImqva +LwmmUHJE/MKaawTkdFWmiGOLnzu6v/smAb1CsTlq2GXNse9yGgnY9eXxYUNs +9ocYV/cWApKyHunaYN8Vin4k307AU8mKNjdsO50ozuuHBKTcO00Pxh50O1hD +PiGAM1kTFIkdnBChHNxNwJQQiknEnqsIz2H0EzBXvcsvHft4517B6ZcEzIe5 +K+Vgi34LPXLtNQEjqy3ri7BLZEOmIz8Q8MTPU60Cm7Vxt5/hBF6fS2foJeym +Xbt6fk8TYDTZkVqLbXMm0KrlGwEdZofjbmD31/k3HuMR4MmVsr2NHTTky7Jc +IKBm/dPpeuxvS31KVy5jgpfTs9AG7CR1L/EnAkxYqLZv/e+/iINHCleICRKN +h2ZuYRdFuv90WsuEr8yjP+qwifM7wqQlmdDxIKOvBru+1WV0SJYJSbtGM6ux +LcacHIvXM2HgT7Eyhf1ijWOHH40J63MXMwqx/fS3GapqMGGPC7v3LPaMh8Ol +MSYTPKL859Kw445tWX9Zmwka1o9m4rGFqmyzwg2YkLUhp/0Adn6XNb+uCRP6 +2+cPBmGr/7CM/gFMuJiqvOiKfVPeYqLBnAkKulYBVthmZmZecTZMuJyeRxpg ++3DBjN+JCWcGj90SxZ66ZXrrwQ4mmHcnpS3g+3Nk2ISe7smE1oRIwzHsPIah +iNguJvxaXGA0YjvbdmbeDWFCWvvf02XYoiG+a/eEM0Erenv+f/f1VFWq6L0Y +JhwOIi86Yls9ks8OjWPCWwPaagPs5eO1YtLHmPBF8cBOGew4jUHxfelM6HE0 +rR3E78XYeu8/slwmEIOyDfXY88F8kh3/4P2bS76Ui72/ki4lX8yEmO1P7bdi +B6jFyjyuZcKTD3vP1OH3qWi5Jj/qJj6vLomxNOzhoHJZpUa8Pr1nLB9s14rH +62LamLA12PqIALaNipyCWh8+z8FimjXOBy3lO0rHfmOLM3rzcP5MbdpWzlrK +gvoTxjxP7Cq/98qD/CxwLYlZqYRNKxNW0VrDgguvLecrcJ5JK3qpjSiyoG5n +zV8kzr8FhUWGsSULWsJF1oXg/Gw0zb70wZYFmz3qNqzHjvZSY2ZtZUGl6nXL +5zh/ZwsdWGNuLBBxzDDS+y+P5UrYuaEsmFMMjpnC+f1IdqPeVy4LxFxXpbLc +cD4rXFVdnsuCdO2C8Yc7KNSrJC8tcZ4FT8zj1gZgv6bzfupXsOC7rm3NWVwv +5o1qWw43sKD7ga/hR1xfVHcq2vG9ZYHErTd127bj++2dwRH7xAJF88BTA9tw +Hvn/YdEmWZCpFcvwweaEDKy1+MGC0xUHH+7G9cwpltuXukoTtP4wju/F9S6p +YKn/Wl1NeHY4TMvUBudd8T4nJUNN4AWV3btmTaEz5a/MdUw1QWXs/npV7HPV +9erOVppw3fGDhaAVhWoa90/leWjCjaO+VvfM8fkNvY75+4QmnKGZu8wDhYzk +WjM1ezUhTJydfVwf57cybXhsUBNs6JI2I3oUSmUkM8gRTQgfMlnYgN1vZNMh +PaYJd7YYeY/hfuGQ2/NfS39rQsnTIytNtXD9st2vMy7Chr/ruUa3GBTKOZlY +1KTPhnrJ1xfG1+N8TddulzFkgyfvUKwKtmnm24koYza8yxt19Fag0Ptcc0Mt +YIOXh7x4lxyFdC8IvqCs2bD6wPIBSoZCz9u5ghkebHDuuVmlJEah1cvKDvom +sUExnqXkz4/7G16z4+xxNjQ6rBsJwf3ZwtQr7cQUNiwUMOMO4P5telBmtiSd +DUUX+APil+LzvsYNG81hg367R1/qHxJl+SUGeVezwTHvavnu77h/bvXZ4fmC +DeKnl65xfUcihcT1Jm6qWiAp+cH2F+5PrxxYofRKXQte3mt93XaHRKZBswK+ +DC34dF0q+nQTiTxt73cHs7Xgzb7QC+saSHReYldItJEWfE3MkiFw/ytTdSU/ +114LdmaezJKvJpF4N4fXE6UFeuYla8xzSCSo4nFz+79akHeugXZ7N+6POTJX +D3lqQ1V7Se6YEO6/h0Xv2yzRgdG63hnhgnI0/TXd2TpPB3ZHNh7IUClHlpod ++dZMXVijsyth6cUydPer8a8fT3Rh1di0UZF0GdpLaA8+C9QDh0NJCbvTShFn +KuCFm6A+2A5H2fiPlSBzmvQW4TJ9WBg9H9uypQSpJ6RFtxoYwPcvtD+ZfsWI +HmjYrDJoALKybypurChCgXeDj9ft3wDDO3/em753HjWXvAiYlTCELGcYqfAs +QN8qF39o3jIEzSuf3t9cPIf8VaoF87cYQfVu/baBhjw0S8/WvzZjBP/kvv+w +zCsX3SZ/vf5+0hhC+1P8f8nlIHczZTBWMIH3vPF9zz6eRevCUupZLSYgcuj7 +wefF2UhiZWjtFlcOjB3codkYmYXIzUcPz7hx4PrDNbz88CykffTM5mwPDgjl +BIXFhmQh+5mann5fDrRPLLiY+mah5N7vPP9QDqicVdX7n10Wmi+L33Q4kQPe +R6VcV9Cy0KBxdndFNQd4y1fNLevmouBI8rz1FQ6wI7SzeJ1cNHflRuDnGg6w +4vleTz/gIlGl/h9aNzngFMjNHb7LRbYr5OXutHAg/abovrYqLmp6URHQ3cMB +Q47979okLrJZfZsZ1c+B2+mOI9eOclG/5cM56SEOHDRsia6L5qJvDRMnvUY5 +sEeo/mn9Xi5ilrIvj41zQNU4QbzTHY83uDEqfZIDP3bI1HY74/HEHZHmDAfs +pz/yD23loqCUyGcHv3NgNVNwYMICj9eSnC81zwGGfqfr941clPQz17/hJ96f +2IsZiyZcJKJ7kfD8w4FMo96ElRu4qCis4fviIgcGTpxiSOpw0f8BMf90Ug== + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0VesbB/BSrhQlM6GLYzpnn+OYMxzvU5mJyhSZpxRKikiZKiLFoYvI +vLdEA6XBUCTchp9SMheaQ6YGOQ383vvXXp+113rXO36fR9Fv3/ZAviVLlqxc +umTJf9+54YdttFOkaVLSycyxBXXTF0XSMRv7k5B94Cfpjsm/EEg89ZPuz0JB +l8e0syclUdTWqr5l/WVI4y/37KhJVbR2SiqL13cNvd3vx905qY9Gmuz3fetr +RWJO0lbrJi2QBW381WzfcxSQOy/A/uyCeH0G/8z0vUFLHKwdz3wKQvc3XyCf +lX1Fn1eKNvs9OYTkRuo/+BF/kOTVmNFbBYlIPNS7SmDzMih/0i+RL5+CsrQs +Gu2dV0DbdUm7Y3PpaCCP3TIrIgzNFYkTPCUuOkXGP+WTWQuDsx+/bpvIRlJn +36ZmF4qBVIFXbGxaDkpxsjZ9PicBE0mb7ruP5qEDhqXeD5OkgX/VU7vPFgXI +bPrn4b1vZUHqGV9mjF8hSjTZ5iu7QR76pPSU7bYVI6Mr5+rimtfDVsu4mV8l +JSh0fjbhgbAizK0OkBSMLEU8hsgw01kJTj6ciWowK0Mm1ZdKcnKUQfze0M4K +XhmaFbXxcWmlQUFd7pXU0+WoP1Spa8+/NNC4OlU4nFGOWjp+ovj/0cDAZtca +7axylHm4en1lLw2M1cuiX+SUI/YboRHeOA1WeqX5C5SUo721Tz0LxVSgs259 +jsq1cjTu4LzzXYAKEE1fHDb3lKN36T4uEQKqsOpSx51lUiTaO04osYVUQa5I +s7VPmkQ/LHmTkyKq4GBQE1MlS6KVy7JO7JZVhWHvFXx2CiRix9yv82Gqwg/D +9Oh4FRIdDVQVc3BUhQc+oksrdUgkafr5KaNYFR5z7lUu2pPIevqQ9Xt9NdBT +jBN8nEgiOS2F5BUmanCkVV4t9BiJpiLaWhkb1UArwapl1QkSnZ0TMYmwVQOJ +0/GBFidJNPznImvRWw0cb6OjF8+QKELopZhMqhokZS/MqBaQKF8Dhu2G1OBj +Wv6exWskCg35IBs+qgYx/Mpy4XUkQpfTXbPfq8GAfabtyA0SvWMPdA1Mq4FG +dDit/jaJWBsi7gctVwczzest7ndJdN+CrExgqoPlbv1bzg9J9Nl/xYG6eHXQ +chIwZwzj+RaZ3Wk+rg7mK5qFg0ZIND2QIPA4VR0eECaBxaMk+uLAK3idrQ5F +7lMtwm/xfhqPt62uVAfSVIQ18JFEfOL/k9zdpQ7+hs1z9FkSybRlNMgraoDy +pib+Rj4KyS4+Xq6hqgE1KrYv/11GITmjFQ66DA1g0DTMu5dTSKEm4a2NngYM +Kdg/ef8XhWjn9wtFW2vAv8EV93grKcQ+6Oj1fL8GtAcEWL0SpfB7k+JLadWA +RL/GpmxFCo35WVYa/6sBhfZJ9AAlCqWXHrKfeawBE5GlnjrKFOpW6M9369GA +8TwP8Sc0CvnInNMhPmnAwkFexzc1CsWsXhf4TJgOajId7gIsPL8ttquSRenA +CfvEaMNuORVbayRFh4sZ0BavSaG/BF/+Kf+bDpKnhW2/simUtawwJ0qHDm53 +4use61Do0rzCg3VudHjpYCe6yZBCDgYOe7s86cCvHRM4gf0lMl78hB8dPN/3 +JGYbUcjw64jPVAgd1kiVSo4aU6hjsoTXEkeHHkWJuj2mFBp5o8QIIukgdidp +yHwzhUQ7Vc/UTNPB3IT7SNyOQgvTbOrRNzo0z/LHlGGPixo3vePRoe6+ejNr +C4VadziMSy9ngKs3W2yzPYUOvDtkkSjNgIjfTiPuWyn04teDhW0bGaA/1M+2 +dMLrVeiWCLVgQODlJeF3sS9tfEUk2zLgeVe7ta4zhU6kzLo3ODPgXO+nznUu +FNIXk72ltIcBrU4j8oOuFMqlh+z7msWA+k/7BMR3Uuj4lshk4TwGdOo6CERi +h4fHF6oVMiDeeoR8gW11M/vxzgsMWH1qqD7Dg0LzG5vU2hoZoOfRtfW7J4Xe +BXSYDrcwYPubls22XhTqSulynm9nAP8mXk8x9sXOd8eILgbk1q4ZMPOmkLub +8OjZdwwQGz/qHeeD78sRqR9XxvD6R122P8TWLlZc/XCKAUIJUh9EfSm08r2e +yZ95BiTqK82WYjeGe+UFChOwzk+14KofhSqzg6/GixJw/uzygmnsszcjOs5J +EZD2NoLD8qdQ6O/kb52KBMTn9+65gC138upWfX0Ckg1Kw1IDKFR15fJ9nhEB +myNeCzVib+ip1r+DCHh14+eRCWwnpUo5M2sCGk/u6bIKpNAbq4oMAXsC3MJl +6yKxw/eRfI+3ExC81mV3KXZ6U8mnbR4ElFvRrL9jy74t2inhS0Am39qD8kF4 +voKFT/oDCQi7w9lvht3mcq7Oex8BTdlCb89g/5rhJoQlESDfe/iixC4KnZTK +/MpOIaCK5xuiiy1peibo2ykCju+aW7IdW/tUml3sPwSUlI1cSMVuqT3ZbJpP +gMNUZn05tn1/sjZfMQF/J1YWN2HvUTkmnVpJgFxa29g49rxt4im7ywQImqva +LwmmUHJE/MKaawTkdFWmiGOLnzu6v/smAb1CsTlq2GXNse9yGgnY9eXxYUNs +9ocYV/cWApKyHunaYN8Vin4k307AU8mKNjdsO50ozuuHBKTcO00Pxh50O1hD +PiGAM1kTFIkdnBChHNxNwJQQiknEnqsIz2H0EzBXvcsvHft4517B6ZcEzIe5 +K+Vgi34LPXLtNQEjqy3ri7BLZEOmIz8Q8MTPU60Cm7Vxt5/hBF6fS2foJeym +Xbt6fk8TYDTZkVqLbXMm0KrlGwEdZofjbmD31/k3HuMR4MmVsr2NHTTky7Jc +IKBm/dPpeuxvS31KVy5jgpfTs9AG7CR1L/EnAkxYqLZv/e+/iINHCleICRKN +h2ZuYRdFuv90WsuEr8yjP+qwifM7wqQlmdDxIKOvBru+1WV0SJYJSbtGM6ux +LcacHIvXM2HgT7Eyhf1ijWOHH40J63MXMwqx/fS3GapqMGGPC7v3LPaMh8Ol +MSYTPKL859Kw445tWX9Zmwka1o9m4rGFqmyzwg2YkLUhp/0Adn6XNb+uCRP6 +2+cPBmGr/7CM/gFMuJiqvOiKfVPeYqLBnAkKulYBVthmZmZecTZMuJyeRxpg ++3DBjN+JCWcGj90SxZ66ZXrrwQ4mmHcnpS3g+3Nk2ISe7smE1oRIwzHsPIah +iNguJvxaXGA0YjvbdmbeDWFCWvvf02XYoiG+a/eEM0Erenv+f/f1VFWq6L0Y +JhwOIi86Yls9ks8OjWPCWwPaagPs5eO1YtLHmPBF8cBOGew4jUHxfelM6HE0 +rR3E78XYeu8/slwmEIOyDfXY88F8kh3/4P2bS76Ui72/ki4lX8yEmO1P7bdi +B6jFyjyuZcKTD3vP1OH3qWi5Jj/qJj6vLomxNOzhoHJZpUa8Pr1nLB9s14rH +62LamLA12PqIALaNipyCWh8+z8FimjXOBy3lO0rHfmOLM3rzcP5MbdpWzlrK +gvoTxjxP7Cq/98qD/CxwLYlZqYRNKxNW0VrDgguvLecrcJ5JK3qpjSiyoG5n +zV8kzr8FhUWGsSULWsJF1oXg/Gw0zb70wZYFmz3qNqzHjvZSY2ZtZUGl6nXL +5zh/ZwsdWGNuLBBxzDDS+y+P5UrYuaEsmFMMjpnC+f1IdqPeVy4LxFxXpbLc +cD4rXFVdnsuCdO2C8Yc7KNSrJC8tcZ4FT8zj1gZgv6bzfupXsOC7rm3NWVwv +5o1qWw43sKD7ga/hR1xfVHcq2vG9ZYHErTd127bj++2dwRH7xAJF88BTA9tw +Hvn/YdEmWZCpFcvwweaEDKy1+MGC0xUHH+7G9cwpltuXukoTtP4wju/F9S6p +YKn/Wl1NeHY4TMvUBudd8T4nJUNN4AWV3btmTaEz5a/MdUw1QWXs/npV7HPV +9erOVppw3fGDhaAVhWoa90/leWjCjaO+VvfM8fkNvY75+4QmnKGZu8wDhYzk +WjM1ezUhTJydfVwf57cybXhsUBNs6JI2I3oUSmUkM8gRTQgfMlnYgN1vZNMh +PaYJd7YYeY/hfuGQ2/NfS39rQsnTIytNtXD9st2vMy7Chr/ruUa3GBTKOZlY +1KTPhnrJ1xfG1+N8TddulzFkgyfvUKwKtmnm24koYza8yxt19Fag0Ptcc0Mt +YIOXh7x4lxyFdC8IvqCs2bD6wPIBSoZCz9u5ghkebHDuuVmlJEah1cvKDvom +sUExnqXkz4/7G16z4+xxNjQ6rBsJwf3ZwtQr7cQUNiwUMOMO4P5telBmtiSd +DUUX+APil+LzvsYNG81hg367R1/qHxJl+SUGeVezwTHvavnu77h/bvXZ4fmC +DeKnl65xfUcihcT1Jm6qWiAp+cH2F+5PrxxYofRKXQte3mt93XaHRKZBswK+ +DC34dF0q+nQTiTxt73cHs7Xgzb7QC+saSHReYldItJEWfE3MkiFw/ytTdSU/ +114LdmaezJKvJpF4N4fXE6UFeuYla8xzSCSo4nFz+79akHeugXZ7N+6POTJX +D3lqQ1V7Se6YEO6/h0Xv2yzRgdG63hnhgnI0/TXd2TpPB3ZHNh7IUClHlpod ++dZMXVijsyth6cUydPer8a8fT3Rh1di0UZF0GdpLaA8+C9QDh0NJCbvTShFn +KuCFm6A+2A5H2fiPlSBzmvQW4TJ9WBg9H9uypQSpJ6RFtxoYwPcvtD+ZfsWI +HmjYrDJoALKybypurChCgXeDj9ft3wDDO3/em753HjWXvAiYlTCELGcYqfAs +QN8qF39o3jIEzSuf3t9cPIf8VaoF87cYQfVu/baBhjw0S8/WvzZjBP/kvv+w +zCsX3SZ/vf5+0hhC+1P8f8nlIHczZTBWMIH3vPF9zz6eRevCUupZLSYgcuj7 +wefF2UhiZWjtFlcOjB3codkYmYXIzUcPz7hx4PrDNbz88CykffTM5mwPDgjl +BIXFhmQh+5mann5fDrRPLLiY+mah5N7vPP9QDqicVdX7n10Wmi+L33Q4kQPe +R6VcV9Cy0KBxdndFNQd4y1fNLevmouBI8rz1FQ6wI7SzeJ1cNHflRuDnGg6w +4vleTz/gIlGl/h9aNzngFMjNHb7LRbYr5OXutHAg/abovrYqLmp6URHQ3cMB +Q47979okLrJZfZsZ1c+B2+mOI9eOclG/5cM56SEOHDRsia6L5qJvDRMnvUY5 +sEeo/mn9Xi5ilrIvj41zQNU4QbzTHY83uDEqfZIDP3bI1HY74/HEHZHmDAfs +pz/yD23loqCUyGcHv3NgNVNwYMICj9eSnC81zwGGfqfr941clPQz17/hJ96f +2IsZiyZcJKJ7kfD8w4FMo96ElRu4qCis4fviIgcGTpxiSOpw0f8BMf90Ug== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.04181463793126093}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.04181463793126093}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0VesbB/BSrhQlM6GLYzpnn+OYMxzvU5mJyhSZpxRKikiZKiLFoYvI +vLdEA6XBUCTchp9SMheaQ6YGOQ383vvXXp+113rXO36fR9Fv3/ZAviVLlqxc +umTJf9+54YdttFOkaVLSycyxBXXTF0XSMRv7k5B94Cfpjsm/EEg89ZPuz0JB +l8e0syclUdTWqr5l/WVI4y/37KhJVbR2SiqL13cNvd3vx905qY9Gmuz3fetr +RWJO0lbrJi2QBW381WzfcxSQOy/A/uyCeH0G/8z0vUFLHKwdz3wKQvc3XyCf +lX1Fn1eKNvs9OYTkRuo/+BF/kOTVmNFbBYlIPNS7SmDzMih/0i+RL5+CsrQs +Gu2dV0DbdUm7Y3PpaCCP3TIrIgzNFYkTPCUuOkXGP+WTWQuDsx+/bpvIRlJn +36ZmF4qBVIFXbGxaDkpxsjZ9PicBE0mb7ruP5qEDhqXeD5OkgX/VU7vPFgXI +bPrn4b1vZUHqGV9mjF8hSjTZ5iu7QR76pPSU7bYVI6Mr5+rimtfDVsu4mV8l +JSh0fjbhgbAizK0OkBSMLEU8hsgw01kJTj6ciWowK0Mm1ZdKcnKUQfze0M4K +XhmaFbXxcWmlQUFd7pXU0+WoP1Spa8+/NNC4OlU4nFGOWjp+ovj/0cDAZtca +7axylHm4en1lLw2M1cuiX+SUI/YboRHeOA1WeqX5C5SUo721Tz0LxVSgs259 +jsq1cjTu4LzzXYAKEE1fHDb3lKN36T4uEQKqsOpSx51lUiTaO04osYVUQa5I +s7VPmkQ/LHmTkyKq4GBQE1MlS6KVy7JO7JZVhWHvFXx2CiRix9yv82Gqwg/D +9Oh4FRIdDVQVc3BUhQc+oksrdUgkafr5KaNYFR5z7lUu2pPIevqQ9Xt9NdBT +jBN8nEgiOS2F5BUmanCkVV4t9BiJpiLaWhkb1UArwapl1QkSnZ0TMYmwVQOJ +0/GBFidJNPznImvRWw0cb6OjF8+QKELopZhMqhokZS/MqBaQKF8Dhu2G1OBj +Wv6exWskCg35IBs+qgYx/Mpy4XUkQpfTXbPfq8GAfabtyA0SvWMPdA1Mq4FG +dDit/jaJWBsi7gctVwczzest7ndJdN+CrExgqoPlbv1bzg9J9Nl/xYG6eHXQ +chIwZwzj+RaZ3Wk+rg7mK5qFg0ZIND2QIPA4VR0eECaBxaMk+uLAK3idrQ5F +7lMtwm/xfhqPt62uVAfSVIQ18JFEfOL/k9zdpQ7+hs1z9FkSybRlNMgraoDy +pib+Rj4KyS4+Xq6hqgE1KrYv/11GITmjFQ66DA1g0DTMu5dTSKEm4a2NngYM +Kdg/ef8XhWjn9wtFW2vAv8EV93grKcQ+6Oj1fL8GtAcEWL0SpfB7k+JLadWA +RL/GpmxFCo35WVYa/6sBhfZJ9AAlCqWXHrKfeawBE5GlnjrKFOpW6M9369GA +8TwP8Sc0CvnInNMhPmnAwkFexzc1CsWsXhf4TJgOajId7gIsPL8ttquSRenA +CfvEaMNuORVbayRFh4sZ0BavSaG/BF/+Kf+bDpKnhW2/simUtawwJ0qHDm53 +4use61Do0rzCg3VudHjpYCe6yZBCDgYOe7s86cCvHRM4gf0lMl78hB8dPN/3 +JGYbUcjw64jPVAgd1kiVSo4aU6hjsoTXEkeHHkWJuj2mFBp5o8QIIukgdidp +yHwzhUQ7Vc/UTNPB3IT7SNyOQgvTbOrRNzo0z/LHlGGPixo3vePRoe6+ejNr +C4VadziMSy9ngKs3W2yzPYUOvDtkkSjNgIjfTiPuWyn04teDhW0bGaA/1M+2 +dMLrVeiWCLVgQODlJeF3sS9tfEUk2zLgeVe7ta4zhU6kzLo3ODPgXO+nznUu +FNIXk72ltIcBrU4j8oOuFMqlh+z7msWA+k/7BMR3Uuj4lshk4TwGdOo6CERi +h4fHF6oVMiDeeoR8gW11M/vxzgsMWH1qqD7Dg0LzG5vU2hoZoOfRtfW7J4Xe +BXSYDrcwYPubls22XhTqSulynm9nAP8mXk8x9sXOd8eILgbk1q4ZMPOmkLub +8OjZdwwQGz/qHeeD78sRqR9XxvD6R122P8TWLlZc/XCKAUIJUh9EfSm08r2e +yZ95BiTqK82WYjeGe+UFChOwzk+14KofhSqzg6/GixJw/uzygmnsszcjOs5J +EZD2NoLD8qdQ6O/kb52KBMTn9+65gC138upWfX0Ckg1Kw1IDKFR15fJ9nhEB +myNeCzVib+ip1r+DCHh14+eRCWwnpUo5M2sCGk/u6bIKpNAbq4oMAXsC3MJl +6yKxw/eRfI+3ExC81mV3KXZ6U8mnbR4ElFvRrL9jy74t2inhS0Am39qD8kF4 +voKFT/oDCQi7w9lvht3mcq7Oex8BTdlCb89g/5rhJoQlESDfe/iixC4KnZTK +/MpOIaCK5xuiiy1peibo2ykCju+aW7IdW/tUml3sPwSUlI1cSMVuqT3ZbJpP +gMNUZn05tn1/sjZfMQF/J1YWN2HvUTkmnVpJgFxa29g49rxt4im7ywQImqva +LwmmUHJE/MKaawTkdFWmiGOLnzu6v/smAb1CsTlq2GXNse9yGgnY9eXxYUNs +9ocYV/cWApKyHunaYN8Vin4k307AU8mKNjdsO50ozuuHBKTcO00Pxh50O1hD +PiGAM1kTFIkdnBChHNxNwJQQiknEnqsIz2H0EzBXvcsvHft4517B6ZcEzIe5 +K+Vgi34LPXLtNQEjqy3ri7BLZEOmIz8Q8MTPU60Cm7Vxt5/hBF6fS2foJeym +Xbt6fk8TYDTZkVqLbXMm0KrlGwEdZofjbmD31/k3HuMR4MmVsr2NHTTky7Jc +IKBm/dPpeuxvS31KVy5jgpfTs9AG7CR1L/EnAkxYqLZv/e+/iINHCleICRKN +h2ZuYRdFuv90WsuEr8yjP+qwifM7wqQlmdDxIKOvBru+1WV0SJYJSbtGM6ux +LcacHIvXM2HgT7Eyhf1ijWOHH40J63MXMwqx/fS3GapqMGGPC7v3LPaMh8Ol +MSYTPKL859Kw445tWX9Zmwka1o9m4rGFqmyzwg2YkLUhp/0Adn6XNb+uCRP6 +2+cPBmGr/7CM/gFMuJiqvOiKfVPeYqLBnAkKulYBVthmZmZecTZMuJyeRxpg ++3DBjN+JCWcGj90SxZ66ZXrrwQ4mmHcnpS3g+3Nk2ISe7smE1oRIwzHsPIah +iNguJvxaXGA0YjvbdmbeDWFCWvvf02XYoiG+a/eEM0Erenv+f/f1VFWq6L0Y +JhwOIi86Yls9ks8OjWPCWwPaagPs5eO1YtLHmPBF8cBOGew4jUHxfelM6HE0 +rR3E78XYeu8/slwmEIOyDfXY88F8kh3/4P2bS76Ui72/ki4lX8yEmO1P7bdi +B6jFyjyuZcKTD3vP1OH3qWi5Jj/qJj6vLomxNOzhoHJZpUa8Pr1nLB9s14rH +62LamLA12PqIALaNipyCWh8+z8FimjXOBy3lO0rHfmOLM3rzcP5MbdpWzlrK +gvoTxjxP7Cq/98qD/CxwLYlZqYRNKxNW0VrDgguvLecrcJ5JK3qpjSiyoG5n +zV8kzr8FhUWGsSULWsJF1oXg/Gw0zb70wZYFmz3qNqzHjvZSY2ZtZUGl6nXL +5zh/ZwsdWGNuLBBxzDDS+y+P5UrYuaEsmFMMjpnC+f1IdqPeVy4LxFxXpbLc +cD4rXFVdnsuCdO2C8Yc7KNSrJC8tcZ4FT8zj1gZgv6bzfupXsOC7rm3NWVwv +5o1qWw43sKD7ga/hR1xfVHcq2vG9ZYHErTd127bj++2dwRH7xAJF88BTA9tw +Hvn/YdEmWZCpFcvwweaEDKy1+MGC0xUHH+7G9cwpltuXukoTtP4wju/F9S6p +YKn/Wl1NeHY4TMvUBudd8T4nJUNN4AWV3btmTaEz5a/MdUw1QWXs/npV7HPV +9erOVppw3fGDhaAVhWoa90/leWjCjaO+VvfM8fkNvY75+4QmnKGZu8wDhYzk +WjM1ezUhTJydfVwf57cybXhsUBNs6JI2I3oUSmUkM8gRTQgfMlnYgN1vZNMh +PaYJd7YYeY/hfuGQ2/NfS39rQsnTIytNtXD9st2vMy7Chr/ruUa3GBTKOZlY +1KTPhnrJ1xfG1+N8TddulzFkgyfvUKwKtmnm24koYza8yxt19Fag0Ptcc0Mt +YIOXh7x4lxyFdC8IvqCs2bD6wPIBSoZCz9u5ghkebHDuuVmlJEah1cvKDvom +sUExnqXkz4/7G16z4+xxNjQ6rBsJwf3ZwtQr7cQUNiwUMOMO4P5telBmtiSd +DUUX+APil+LzvsYNG81hg367R1/qHxJl+SUGeVezwTHvavnu77h/bvXZ4fmC +DeKnl65xfUcihcT1Jm6qWiAp+cH2F+5PrxxYofRKXQte3mt93XaHRKZBswK+ +DC34dF0q+nQTiTxt73cHs7Xgzb7QC+saSHReYldItJEWfE3MkiFw/ytTdSU/ +114LdmaezJKvJpF4N4fXE6UFeuYla8xzSCSo4nFz+79akHeugXZ7N+6POTJX +D3lqQ1V7Se6YEO6/h0Xv2yzRgdG63hnhgnI0/TXd2TpPB3ZHNh7IUClHlpod ++dZMXVijsyth6cUydPer8a8fT3Rh1di0UZF0GdpLaA8+C9QDh0NJCbvTShFn +KuCFm6A+2A5H2fiPlSBzmvQW4TJ9WBg9H9uypQSpJ6RFtxoYwPcvtD+ZfsWI +HmjYrDJoALKybypurChCgXeDj9ft3wDDO3/em753HjWXvAiYlTCELGcYqfAs +QN8qF39o3jIEzSuf3t9cPIf8VaoF87cYQfVu/baBhjw0S8/WvzZjBP/kvv+w +zCsX3SZ/vf5+0hhC+1P8f8nlIHczZTBWMIH3vPF9zz6eRevCUupZLSYgcuj7 +wefF2UhiZWjtFlcOjB3codkYmYXIzUcPz7hx4PrDNbz88CykffTM5mwPDgjl +BIXFhmQh+5mann5fDrRPLLiY+mah5N7vPP9QDqicVdX7n10Wmi+L33Q4kQPe +R6VcV9Cy0KBxdndFNQd4y1fNLevmouBI8rz1FQ6wI7SzeJ1cNHflRuDnGg6w +4vleTz/gIlGl/h9aNzngFMjNHb7LRbYr5OXutHAg/abovrYqLmp6URHQ3cMB +Q47979okLrJZfZsZ1c+B2+mOI9eOclG/5cM56SEOHDRsia6L5qJvDRMnvUY5 +sEeo/mn9Xi5ilrIvj41zQNU4QbzTHY83uDEqfZIDP3bI1HY74/HEHZHmDAfs +pz/yD23loqCUyGcHv3NgNVNwYMICj9eSnC81zwGGfqfr941clPQz17/hJ96f +2IsZiyZcJKJ7kfD8w4FMo96ElRu4qCis4fviIgcGTpxiSOpw0f8BMf90Ug== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.04181463793126093}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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.04181463793126093}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913408819317417`*^9, 3.9921293135336704`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"968e1f9d-6602-8341-9666-5b465b9ebfff"] +}, 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[99]:=",ExpressionUUID->"6f4b7e44-0b17-c840-a01f-706fcd68fd89"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.804770507106392`*^-190\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 99, + 982, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340881982744*^9, 3.992129313629654*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"2da03f16-9b21-ea44-a6c9-3e903115232c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.46437919628907`*^-194\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 99, + 983, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340881982744*^9, 3.992129313639656*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"17d3d08c-f273-774a-8ba3-bfd5cdee935c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.214540310858515`*^-198\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 99, + 984, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340881982744*^9, 3.992129313646658*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"0cc84825-32a6-f94f-9633-b8ee9c7ed2b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 99, 985, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340881982744*^9, 3.9921293136546555`*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"1c4c4249-0fc3-2c4b-8699-421047f701da"], + +Cell[BoxData["18.17959697350915`"], "Output", + CellChangeTimes->{3.9913408882266617`*^9, 3.9921293405622063`*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"b434091a-573a-094e-a8cf-688f3dfc522b"] +}, 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.9918465455039177`*^9, 3.9918465541706066`*^9}}, + CellLabel-> + "In[100]:=",ExpressionUUID->"55574de4-5bf4-6a47-8b7c-0502360e0741"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.596591574251926`*^-217\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 100, 986, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913408882626343`*^9, 3.992129340618191*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"44474fac-4eb8-3841-9a12-46bc820a3b23"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.068312990332371`*^-222\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 100, 987, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913408882626343`*^9, 3.9921293406411915`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"d0ff8e77-495c-cb4b-a040-49b7f09d992d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1787627287224527`*^-227\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 100, 988, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913408882626343`*^9, 3.9921293406472073`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"627ac276-ccb5-2d46-9264-ccd0fa65bdea"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 100, 989, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913408882626343`*^9, 3.9921293406551933`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"c10fd530-8e72-6543-bca4-47b60ac32b8a"], + +Cell[BoxData["3.289735526276407`"], "Output", + CellChangeTimes->{3.991340895263792*^9, 3.992129345836975*^9}, + CellLabel-> + "Out[100]=",ExpressionUUID->"0f80fac5-7af7-6449-93d0-82c847eef521"] +}, 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.991846558454563*^9, 3.991846561166006*^9}}, + CellLabel-> + "In[101]:=",ExpressionUUID->"a62e28a7-2963-b449-b2d2-4774e534a560"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.596591574251926`*^-217\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 101, 990, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340895297941*^9, 3.9921293458884487`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"0eeebef4-b91d-1b41-88dc-157ad30f7ffd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.068312990332371`*^-222\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 101, 991, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340895297941*^9, 3.9921293458964996`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"b5f1cf3e-2f7b-544a-9817-369c1cbb3895"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1787627287224527`*^-227\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 101, 992, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340895297941*^9, 3.992129345905527*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"295ae18b-0adc-9948-ac1d-967cfed55249"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 101, 993, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340895297941*^9, 3.992129345912527*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"2c6b2bf0-eeee-d849-be4f-5eb95c74ff4c"], + +Cell[BoxData["39.608272348064844`"], "Output", + CellChangeTimes->{3.9913409010488796`*^9, 3.9921293506045265`*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"31638b1f-da77-ff48-92b1-7ccc03f8b763"] +}, 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.991846565092888*^9, 3.991846568588709*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"9dbddde0-a221-414e-bf4d-6be0dfb61fa1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.596591574251926`*^-217\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 102, 994, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913409010848827`*^9, 3.992129350649729*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"aa961efa-e7b0-b343-85c5-f29538877549"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.068312990332371`*^-222\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 995, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913409010848827`*^9, 3.9921293506567326`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"97d07294-97cd-f346-a26a-651452cc4d7a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1787627287224527`*^-227\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 996, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913409010848827`*^9, 3.9921293506637287`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"c5efd08c-19d9-6c47-8589-b3983e2e56b2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 102, 997, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913409010848827`*^9, 3.9921293506708355`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"b28c84fc-ff7d-ed4d-8341-7ae3f1369f40"], + +Cell[BoxData["28.74255841098689`"], "Output", + CellChangeTimes->{3.991340904517517*^9, 3.9921293534527683`*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"1b9b9023-647e-da4b-ae37-73a45c8ce4a4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991846571659788*^9, 3.991846575865097*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"a4f97f96-646f-ae45-96cc-9c4165440b9d"], + +Cell[BoxData["0.09750015896245452`"], "Output", + CellChangeTimes->{3.991340904549515*^9, 3.9921293534808407`*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"bc0639e7-58f9-3b48-8d55-56837a3b28cc"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918465789006596`*^9, 3.9918465811046677`*^9}, + 3.991923777228119*^9}, + CellLabel-> + "In[104]:=",ExpressionUUID->"35c63783-19fc-b040-b8f7-ef972ba7b6ed"], + +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[105]:=",ExpressionUUID->"82776c92-7c10-2f45-a63e-50057ffca54a"], + +Cell[BoxData["20.232611751799567`"], "Output", + CellChangeTimes->{3.9913409045775146`*^9, 3.9921293534938393`*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"20a9f54e-0298-0b40-9b21-a5ffb8bae684"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[106]:=",ExpressionUUID->"a56d8b01-6731-b840-bb77-f7f462892539"], + +Cell[BoxData["2.078701539535334`"], "Output", + CellChangeTimes->{3.991340904625164*^9, 3.992129353504822*^9}, + CellLabel-> + "Out[106]=",ExpressionUUID->"59194337-179f-054c-9201-33e646ebd087"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[107]:=",ExpressionUUID->"d4bf0543-67ce-024d-a419-60bff835c466"], + +Cell[BoxData["42.05756119728645`"], "Output", + CellChangeTimes->{3.9913409046880226`*^9, 3.992129353514822*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"6ce5d236-dfcc-c74f-ab99-abec08bf7ca7"] +}, 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[108]:=",ExpressionUUID->"276e96f1-558d-9846-adb4-2350594341f3"], + +Cell[BoxData["0.005743913287357438`"], "Output", + CellChangeTimes->{3.9913409047132187`*^9, 3.9921293535278225`*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"aa9b114c-f4e9-0644-b281-e47a56db29ba"] +}, 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[109]:=",ExpressionUUID->"fff85ae9-ba42-8247-a314-19fd83d5dbdb"], + +Cell[BoxData["11.693405309646874`"], "Output", + CellChangeTimes->{3.9913409048112164`*^9, 3.9921293536139355`*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"2e713274-f00c-1346-89a2-846fc943cba0"] +}, 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[110]:=",ExpressionUUID->"37b23358-bc27-224f-b5f7-62b1fc97e785"], + +Cell[BoxData["0.008099437449785273`"], "Output", + CellChangeTimes->{3.991340904825058*^9, 3.992129353625923*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"42b93b31-4c87-8f46-9add-5985da990532"] +}, 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[111]:=",ExpressionUUID->"eeb5992b-a45f-a14b-8a22-14af99af15e2"], + +Cell[BoxData["9.847307795234371`"], "Output", + CellChangeTimes->{3.9913409049303207`*^9, 3.9921293537089386`*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"fae1cff5-335f-2749-8beb-38e1b36eb1fc"] +}, 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[112]:=",ExpressionUUID->"6ddb4033-5394-f34c-95af-22d1f1297351"], + +Cell[BoxData["0.4398388669954015`"], "Output", + CellChangeTimes->{3.991340904948307*^9, 3.9921293537321396`*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"887ade38-ec60-fa44-b471-5a4ca8badf30"] +}, 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[113]:=",ExpressionUUID->"22b71737-ea19-a348-af70-a874963373f8"], + +Cell[BoxData["0.5601611330045986`"], "Output", + CellChangeTimes->{3.991340904981308*^9, 3.992129353744137*^9}, + CellLabel-> + "Out[113]=",ExpressionUUID->"0e72553d-78d9-174d-bddd-0abac366e792"] +}, 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[114]:=",ExpressionUUID->"08fab4d8-dc36-3f43-8a7e-9a5fa838c25d"], + +Cell[BoxData["0.24638063807560304`"], "Output", + CellChangeTimes->{3.99134090500931*^9, 3.9921293537561398`*^9}, + CellLabel-> + "Out[114]=",ExpressionUUID->"fdf820a3-4c9d-b546-a74b-846ee1a25913"] +}, 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.9918465999055576`*^9}, + CellLabel-> + "In[115]:=",ExpressionUUID->"d3f05697-a372-2a42-8c9c-ccc9289a44b2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2447919524607705`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 115, 998, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340905038307*^9, 3.9921293537784824`*^9}, + CellLabel-> + "During evaluation of \ +In[115]:=",ExpressionUUID->"46d06394-0cd8-414c-810e-808e8cc948a1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.933566922134998`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 115, 999, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340905038307*^9, 3.9921293537854843`*^9}, + CellLabel-> + "During evaluation of \ +In[115]:=",ExpressionUUID->"e1f15179-8b70-7c4e-895b-592b1f953134"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.768548787598016`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 115, 1000, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340905038307*^9, 3.9921293537924824`*^9}, + CellLabel-> + "During evaluation of \ +In[115]:=",ExpressionUUID->"1003a7c1-9e8a-7e42-9b3b-3cff62fbc1a7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 115, 1001, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340905038307*^9, 3.9921293537994823`*^9}, + CellLabel-> + "During evaluation of \ +In[115]:=",ExpressionUUID->"4f918e0c-cafa-6840-94f9-414382956899"], + +Cell[BoxData["11.69340530964686`"], "Output", + CellChangeTimes->{3.991340908920454*^9, 3.992129356785078*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"4456e76c-fbc9-664f-917a-4f94601c5613"] +}, 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.991846603740141*^9}, + CellLabel-> + "In[116]:=",ExpressionUUID->"7ddfee1b-0897-3d44-810e-ee309c4e8981"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2447919524607705`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 116, 1002, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340908954941*^9, 3.992129356848076*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"bd8f7472-1a15-1648-8e3c-e07f6bbe2d7f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.933566922134998`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 116, 1003, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340908954941*^9, 3.992129356858078*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"8275a2b4-f07a-7047-90b9-94f3f1b577f8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.768548787598016`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 116, 1004, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340908954941*^9, 3.9921293568660793`*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"759c0a29-c537-194b-9c8a-a49650245159"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 116, 1005, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340908954941*^9, 3.992129356875078*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"0083fb5b-2bcd-d046-bf12-83eecc620585"], + +Cell[BoxData["9.847307795234356`"], "Output", + CellChangeTimes->{3.991340912767397*^9, 3.992129359757921*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"d6bfa008-702a-b049-9326-2de05f8b06e0"] +}, 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.9918466101881027`*^9}, + CellLabel-> + "In[117]:=",ExpressionUUID->"edc0f744-d665-ee48-9e1d-32ecc25a02c4"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk4Ft0bB3ApSpHImqhsRYk8lpS67yxpQUj2xLOMNXteSqF+VJJCve3x +hggpFJKUooSiaMU81keppGRpMX6nP+aa63Odc33ne86cmSXsYAeesJCQ0Ady +/b2HPl+5tLzl+fp8Bf1U1XYG1g9lG7ItCmHZs6aDS4i7MoxOqVtUwe2aG84q +xHbcZ6LirDpwNu6QVCQujop9JGLRBGaWjgVSxEcfKzyIzX8BF94u0J5FfKcl +9PIf/Vdw7hYr+c97BgbfN8RE330LQWFZL4aIF/SruY+Zd4B7fPAvmnjr1xiT +8CY+JGpeFn1GXP1ncE5UfjfM2280VkH8Ol5+X1lQLyyOxKdXiIdELQZ/6PfD +xbe1sUnEoskhrqxxAbA3PFMMIVaRulQfevcDaKlxz2wntlUauzpk/hmsNwes +kyGmMlXldGYNQXPGD963dwzEamxLCGj6Cunp68OaiN/Kt62KyP8GtjnbjGKI +uW7+funJ38H1oNGQHfHwRaH/SoJGoGCvcpIa8SxVnXnf9Edhto9B0MO3DJzi +PrKaJzsGJnVJZSnEi3NdY3XHx+Cj9MpeF+LVKxKHdt+dgKLo4o+CNwz4GvGb +Bs3/QOgoq+jjawZ+RO2ZMVtzEoL2RSjlEMfdnWOqNYsBjaOPdnsSn8XVBT5N +UxDSPFnT8Ir0y6m3CMufhhb7NVYktTGQ/zi9K15JGMcFcnUGxMMDnjGpycL4 +66iERWcrAzHao6U3g6YjO/n0j6XEp24sUfuqL4IBOuLq2S8YeN/yuZrJEsEU +M+Vv64gXfy93mysritPUduW8amGg0MA2TWdcFD1KF9QyzQzU3tk7LfDuLDwi +qsE3fs7A6KNW/gdzcfSeelVq2cCAtLX4vH3V4viwxeFwyVMG9NosUMJEAr2X +cQcWEvv33c5ctXIuzuW42Q4+YSBEuElvnfg83LNn932fOgb6VYu+JYxJ4fXX +50K+3Cf7QzWINbOkURC4QY9FLFwgWKIQKo1UhlN8ZDXpy1rkkP9JGts7NN+N +VjHgZn6y5HnXfLTevNTvzR0Gmjlh4fKNsjix86CHZikDdG7KMa9Zcnjts46n +ZQkDnz/lZ12zlMOuRpNx72IGZkf0tq59IIeJMrLf0m8wYPE/RwOv2/KoIXJE +sr2Agcpso9G8DEUcmmbvMpbFQHb/r8g1Ecp4S8zbhZvGwKYdh+nw68qo6mSl +szWV5NfO33hdoIxiUqWjuicZMMheIbvYVQVzZ3awR46T/WR7loqsX4RP2QOV +3kcZ+P61658PhxZjs/nUk45YBubvtrhVaqOKCRGHi7YFMCDInu1r56+KgYF/ +2kf9GKjoaFH6kqiKS/YGi5/3ZcDDeuchzQeq+HF+SFQHj/RbHulwTl8NHzzp +O7bZizx/MHf4gLw6qqw2UapzZMDRZ47Olm4N7FzX02ZpygBE7tB3ntRA2S8u +B26vYUA7IcOYq6iJuvN07dRMGBDKYpkdsNfEvhbr4J+GDFyn3Z1LajSx6uzt +ghO65Pt0KoxfcGUpvrvpe4WrSvpZ2LweZGth3Ead5luiDCipnog91rcCwyht +Y+mGSahK+qH1U1gHU6ZYDv1PJsFjxLWNWqKDZnEYXlY3CZdr1bXMPHXQy16s +0aFmElR9Kl9OvNHBwS7JT+EVk6Bd2K9BNa5EWeXiKperk6CspEItdtXDfWMe +FqVxk7AiJ0L8N+jjhdBXpT26k/BfmLrd7SZDZKeJF/Un/oGWSDD+X44JtlaW +mfxb8RuWeL6y3Rm4DhUO2/2e0f4LeFNlRcrRiMYFgwP2Uz9B/lPFTHm2GYY8 +mFwuMfMnRLBMO9K0LfCf92F54YoTwP7yp37+oCWGPK65v2jlOFw3C5+Z0WyF +f6a1NqnojkH2D/+awlObMbklTfSz+ShMbFB4Vhu7FQurGnNgyw/oFJr+rdvb +Butm/N6xw2MEghYGn4xX24YrD25P10r8DkV+9Q9OJ9jhsjjWM4fcb7B3RHF8 +uZ89Ku1JKeB3DcPolo1OT3Y5YHxBDbdMZhhM3FM39NtvR9fZF07PuDEELxUv ++deyHHFpgN55bfYXWHD1UFXesh3Ydf/TdGnJz1DRpW1tK+GEh1QyDyYKBkGl +bdgn8osTPlVVEJF7/RFYp1MLs7qcMXhJv7bNww9wacbIyrRHLrg1+pj345cD +ULZB933CHVcMWmA/cb9bAGeNk6T+5LuhyPaZ0aIzBdDcnpPISnbHhnvyBqwt +/XDb5qJ6SJwHBvfMNlM93gffdm8XCuLuRCtdu76MwV4Y3ajlO2Tuies6zf67 +69wLeV/eTYQb7cKBgWWaCXU94PJfDmenuBdWn5izq21TD5SWbN01/bAXng8N +MHv8rBtMlF7+PPrTC8/EO4pf53WDWpfP+xd+3rhY7EjTBrFu6JsTsO1irzcW ++3rHWt/ogpYUW47VDjYeYHIn07hdcCoqY86eFjbq9kWZmip3QVX11E/OZg6K +uRqGqNbwYVWNweqlWzkoMu3nSOx9Plx95Bc5aM3B/emFIfQ9PqTWt34PseNg +QDzH8XIlH6iXuZ/2O3MwtetUjdYtPkgJtnWe4XFQw42SD84l4xKZDxrjOZjv +deVNSQofJD3wMKuSg9HOpSoKXnxYLPOkeWEVBxNTnnSc8uSDXpONgmg1B7dP +ayyT3skHB1P3a29rOCiJMtVSbnw4tTCycf9TDiatFcgqO/JhQWeBZP1bDq5c +k9zku4kP6p7yZz3GOXhzg35A6yo+mHgN5SUYcDHznlbA0EyynnPD4bZGXHTm +5Cx/LMoHmdbv6+VXc9Fvd3HHZRE+DFmOt+Wt5eKKEuV526fzyf9GaFqTGRfF +jB7ceczQMHdcylXanou55QYz2kdp6DtuKJaxm4t3XEbelfXRYP/EuM0nmMy/ +2xZX2EtDtdCaDL1QLr7ac1A2q4eGc+HrDR9GcLHZ7evM9C4abF2tvPv3cVG6 +9uncAx003FF3vbM8iYu+TqfT4tpoSLkb41dxlYsCtd8CozoaduufMYnK4+Ke +s9l1trU0WF8rFludz8UTclGJPo9omH1GcK38Ohf/aDsXXaihISHMbrDsFher +tkuenltNQ4yWesDth1wMzgy8oVJOg/+ZxsASmosgdDBr4BoNm+cKTMO6uHit +rfaqEvGyBCEJ/R4uxkmqJtnl0SAIM7xe3M9FtvHQcNVVGrxtM77c/MzF0/tU +12Vm0eAiEh504xcXoxrbH568RINV+IKQQjkeWspLqSim0fAwI3FLmgIPk7MV +lN1SaTBt+q4etYCH7r1NSy6epEFPo/GduQoPB6vH16qdoEHxzT7zdg0eTs05 +WLwumYZPazrlZhvycNxjbnpWIg0nhDPv+Wzn4eflYzX6MWT9uuJnbXbwMIgT +63xqHw3/c48KYzmTvJFHw2N7aYi6Zbd0yo2HKrOsVt6PJv2paan/snno4VPc +6v4PDawGNrculIey6zZW1YXR8CZVY47aSR7OP5Ob7+5PQxFI+H5I5WF9+8R0 +gR/J//Kj9no6DwP1pdeHEutvrj2w+gwPY99HOSb5kvcnxPluc5mHs2wXij2h +aNgYnPkuqpCH3dWaSf4cGpSVjxitL+KhJ5f+JEz8oyE4ffpNHi5TfKVzkU3D +FU2wSSnl4Y6XuxxeeNMw2dn5IKuShwrrJJU3etFwy1op73k9D/UGDEpcd9Jw +7JewyKkGHn6IsZQRImbnDXq7NvEw75iyU64HDfNmVCr1NfPQ+8Ss6Al3GgLv +upz4+ZqHFR4Sa3PcaFDT/jdSvZ+H76LV85e50PDrzf7WjwIeTkicEel0pqEl +gad34wMPfwz4YxrxgW6DQZPPPOzERY5TTjS8P9u6c9sID+PlF4707qAhbaaU +5d5pFKa2FMx+s52Gqu+d7hHTKYz09FybRjzQmR8WJEJh1Enhg7bEprcsMtli +FLbfF7FvcCDnzSvq9xYpCu0tN44+tyf9rS2lLedTOFe/rS2NeK2xtBbIUqhh +qtrgTHxSotCJpUgh1Tsw2mdHxiv5xUpLKOwRjrMXJ6ZyCutl1SiszIyg324j +809G8yU1KHRMYeKuEguo+RIztCjMG64Wtfw7Pt/K97MehdodwTInbGmoZObH +CvQp9LZMtuES93/sOt1lQCHro+LFNcRrHux91LaaQqYtKnrQhvwfAotU7iGF +MxveGzgTz3XZZ1huRmHYO1lFQ2IT803WxRYUrnqcLS1DnKLYE52ziUKJw8WW +r6xpqJhx42TGFgrXbtSKLSfu/bov95w1hdkVH56dJ179WPbVcTsKnW6xCrjE +7OKeT4cdSL+pOyZbiY9fvCF80JFCh/j9nfrEPWGb9SJdKLzcVsIVIZbwlLMK +caMwaf3iTcNbSd7m3p3+HhT+M+8hdhAfX7T/mKcXhS0WF0LLiStmb7niwqaw +TK752lXinlG5Ow5cCjfr6o3/SyzR3dtsTVHoJ3bP9cjfvKabgo2+FDatiXix +l5hdvn8S/Sl8F+7oGfQ3/8oWmbWBFL6P9RDi/M0/Lr/cMIhCE8tj5S5/86P6 +NuiGUHipln9oG7E4t9hFK4xCmQWuPCti420HgtUiKNwZM+aOf/PXbE1UjqTw +p2m5zxriZA2FS/JR5HzUnz9iSFw2r79Uai+FtjmZ1auIu38XN8yJodAmsl5M +92/+wIFukQMULp+Q8tchNnq5dWIqlsKbwvv5K4j/D5s07Sg= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4Ft0bB3ApSpHImqhsRYk8lpS67yxpQUj2xLOMNXteSqF+VJJCve3x +hggpFJKUooSiaMU81keppGRpMX6nP+aa63Odc33ne86cmSXsYAeesJCQ0Ady +/b2HPl+5tLzl+fp8Bf1U1XYG1g9lG7ItCmHZs6aDS4i7MoxOqVtUwe2aG84q +xHbcZ6LirDpwNu6QVCQujop9JGLRBGaWjgVSxEcfKzyIzX8BF94u0J5FfKcl +9PIf/Vdw7hYr+c97BgbfN8RE330LQWFZL4aIF/SruY+Zd4B7fPAvmnjr1xiT +8CY+JGpeFn1GXP1ncE5UfjfM2280VkH8Ol5+X1lQLyyOxKdXiIdELQZ/6PfD +xbe1sUnEoskhrqxxAbA3PFMMIVaRulQfevcDaKlxz2wntlUauzpk/hmsNwes +kyGmMlXldGYNQXPGD963dwzEamxLCGj6Cunp68OaiN/Kt62KyP8GtjnbjGKI +uW7+funJ38H1oNGQHfHwRaH/SoJGoGCvcpIa8SxVnXnf9Edhto9B0MO3DJzi +PrKaJzsGJnVJZSnEi3NdY3XHx+Cj9MpeF+LVKxKHdt+dgKLo4o+CNwz4GvGb +Bs3/QOgoq+jjawZ+RO2ZMVtzEoL2RSjlEMfdnWOqNYsBjaOPdnsSn8XVBT5N +UxDSPFnT8Ir0y6m3CMufhhb7NVYktTGQ/zi9K15JGMcFcnUGxMMDnjGpycL4 +66iERWcrAzHao6U3g6YjO/n0j6XEp24sUfuqL4IBOuLq2S8YeN/yuZrJEsEU +M+Vv64gXfy93mysritPUduW8amGg0MA2TWdcFD1KF9QyzQzU3tk7LfDuLDwi +qsE3fs7A6KNW/gdzcfSeelVq2cCAtLX4vH3V4viwxeFwyVMG9NosUMJEAr2X +cQcWEvv33c5ctXIuzuW42Q4+YSBEuElvnfg83LNn932fOgb6VYu+JYxJ4fXX +50K+3Cf7QzWINbOkURC4QY9FLFwgWKIQKo1UhlN8ZDXpy1rkkP9JGts7NN+N +VjHgZn6y5HnXfLTevNTvzR0Gmjlh4fKNsjix86CHZikDdG7KMa9Zcnjts46n +ZQkDnz/lZ12zlMOuRpNx72IGZkf0tq59IIeJMrLf0m8wYPE/RwOv2/KoIXJE +sr2Agcpso9G8DEUcmmbvMpbFQHb/r8g1Ecp4S8zbhZvGwKYdh+nw68qo6mSl +szWV5NfO33hdoIxiUqWjuicZMMheIbvYVQVzZ3awR46T/WR7loqsX4RP2QOV +3kcZ+P61658PhxZjs/nUk45YBubvtrhVaqOKCRGHi7YFMCDInu1r56+KgYF/ +2kf9GKjoaFH6kqiKS/YGi5/3ZcDDeuchzQeq+HF+SFQHj/RbHulwTl8NHzzp +O7bZizx/MHf4gLw6qqw2UapzZMDRZ47Olm4N7FzX02ZpygBE7tB3ntRA2S8u +B26vYUA7IcOYq6iJuvN07dRMGBDKYpkdsNfEvhbr4J+GDFyn3Z1LajSx6uzt +ghO65Pt0KoxfcGUpvrvpe4WrSvpZ2LweZGth3Ead5luiDCipnog91rcCwyht +Y+mGSahK+qH1U1gHU6ZYDv1PJsFjxLWNWqKDZnEYXlY3CZdr1bXMPHXQy16s +0aFmElR9Kl9OvNHBwS7JT+EVk6Bd2K9BNa5EWeXiKperk6CspEItdtXDfWMe +FqVxk7AiJ0L8N+jjhdBXpT26k/BfmLrd7SZDZKeJF/Un/oGWSDD+X44JtlaW +mfxb8RuWeL6y3Rm4DhUO2/2e0f4LeFNlRcrRiMYFgwP2Uz9B/lPFTHm2GYY8 +mFwuMfMnRLBMO9K0LfCf92F54YoTwP7yp37+oCWGPK65v2jlOFw3C5+Z0WyF +f6a1NqnojkH2D/+awlObMbklTfSz+ShMbFB4Vhu7FQurGnNgyw/oFJr+rdvb +Butm/N6xw2MEghYGn4xX24YrD25P10r8DkV+9Q9OJ9jhsjjWM4fcb7B3RHF8 +uZ89Ku1JKeB3DcPolo1OT3Y5YHxBDbdMZhhM3FM39NtvR9fZF07PuDEELxUv ++deyHHFpgN55bfYXWHD1UFXesh3Ydf/TdGnJz1DRpW1tK+GEh1QyDyYKBkGl +bdgn8osTPlVVEJF7/RFYp1MLs7qcMXhJv7bNww9wacbIyrRHLrg1+pj345cD +ULZB933CHVcMWmA/cb9bAGeNk6T+5LuhyPaZ0aIzBdDcnpPISnbHhnvyBqwt +/XDb5qJ6SJwHBvfMNlM93gffdm8XCuLuRCtdu76MwV4Y3ajlO2Tuies6zf67 +69wLeV/eTYQb7cKBgWWaCXU94PJfDmenuBdWn5izq21TD5SWbN01/bAXng8N +MHv8rBtMlF7+PPrTC8/EO4pf53WDWpfP+xd+3rhY7EjTBrFu6JsTsO1irzcW ++3rHWt/ogpYUW47VDjYeYHIn07hdcCoqY86eFjbq9kWZmip3QVX11E/OZg6K +uRqGqNbwYVWNweqlWzkoMu3nSOx9Plx95Bc5aM3B/emFIfQ9PqTWt34PseNg +QDzH8XIlH6iXuZ/2O3MwtetUjdYtPkgJtnWe4XFQw42SD84l4xKZDxrjOZjv +deVNSQofJD3wMKuSg9HOpSoKXnxYLPOkeWEVBxNTnnSc8uSDXpONgmg1B7dP +ayyT3skHB1P3a29rOCiJMtVSbnw4tTCycf9TDiatFcgqO/JhQWeBZP1bDq5c +k9zku4kP6p7yZz3GOXhzg35A6yo+mHgN5SUYcDHznlbA0EyynnPD4bZGXHTm +5Cx/LMoHmdbv6+VXc9Fvd3HHZRE+DFmOt+Wt5eKKEuV526fzyf9GaFqTGRfF +jB7ceczQMHdcylXanou55QYz2kdp6DtuKJaxm4t3XEbelfXRYP/EuM0nmMy/ +2xZX2EtDtdCaDL1QLr7ac1A2q4eGc+HrDR9GcLHZ7evM9C4abF2tvPv3cVG6 +9uncAx003FF3vbM8iYu+TqfT4tpoSLkb41dxlYsCtd8CozoaduufMYnK4+Ke +s9l1trU0WF8rFludz8UTclGJPo9omH1GcK38Ohf/aDsXXaihISHMbrDsFher +tkuenltNQ4yWesDth1wMzgy8oVJOg/+ZxsASmosgdDBr4BoNm+cKTMO6uHit +rfaqEvGyBCEJ/R4uxkmqJtnl0SAIM7xe3M9FtvHQcNVVGrxtM77c/MzF0/tU +12Vm0eAiEh504xcXoxrbH568RINV+IKQQjkeWspLqSim0fAwI3FLmgIPk7MV +lN1SaTBt+q4etYCH7r1NSy6epEFPo/GduQoPB6vH16qdoEHxzT7zdg0eTs05 +WLwumYZPazrlZhvycNxjbnpWIg0nhDPv+Wzn4eflYzX6MWT9uuJnbXbwMIgT +63xqHw3/c48KYzmTvJFHw2N7aYi6Zbd0yo2HKrOsVt6PJv2paan/snno4VPc +6v4PDawGNrculIey6zZW1YXR8CZVY47aSR7OP5Ob7+5PQxFI+H5I5WF9+8R0 +gR/J//Kj9no6DwP1pdeHEutvrj2w+gwPY99HOSb5kvcnxPluc5mHs2wXij2h +aNgYnPkuqpCH3dWaSf4cGpSVjxitL+KhJ5f+JEz8oyE4ffpNHi5TfKVzkU3D +FU2wSSnl4Y6XuxxeeNMw2dn5IKuShwrrJJU3etFwy1op73k9D/UGDEpcd9Jw +7JewyKkGHn6IsZQRImbnDXq7NvEw75iyU64HDfNmVCr1NfPQ+8Ss6Al3GgLv +upz4+ZqHFR4Sa3PcaFDT/jdSvZ+H76LV85e50PDrzf7WjwIeTkicEel0pqEl +gad34wMPfwz4YxrxgW6DQZPPPOzERY5TTjS8P9u6c9sID+PlF4707qAhbaaU +5d5pFKa2FMx+s52Gqu+d7hHTKYz09FybRjzQmR8WJEJh1Enhg7bEprcsMtli +FLbfF7FvcCDnzSvq9xYpCu0tN44+tyf9rS2lLedTOFe/rS2NeK2xtBbIUqhh +qtrgTHxSotCJpUgh1Tsw2mdHxiv5xUpLKOwRjrMXJ6ZyCutl1SiszIyg324j +809G8yU1KHRMYeKuEguo+RIztCjMG64Wtfw7Pt/K97MehdodwTInbGmoZObH +CvQp9LZMtuES93/sOt1lQCHro+LFNcRrHux91LaaQqYtKnrQhvwfAotU7iGF +MxveGzgTz3XZZ1huRmHYO1lFQ2IT803WxRYUrnqcLS1DnKLYE52ziUKJw8WW +r6xpqJhx42TGFgrXbtSKLSfu/bov95w1hdkVH56dJ179WPbVcTsKnW6xCrjE +7OKeT4cdSL+pOyZbiY9fvCF80JFCh/j9nfrEPWGb9SJdKLzcVsIVIZbwlLMK +caMwaf3iTcNbSd7m3p3+HhT+M+8hdhAfX7T/mKcXhS0WF0LLiStmb7niwqaw +TK752lXinlG5Ow5cCjfr6o3/SyzR3dtsTVHoJ3bP9cjfvKabgo2+FDatiXix +l5hdvn8S/Sl8F+7oGfQ3/8oWmbWBFL6P9RDi/M0/Lr/cMIhCE8tj5S5/86P6 +NuiGUHipln9oG7E4t9hFK4xCmQWuPCti420HgtUiKNwZM+aOf/PXbE1UjqTw +p2m5zxriZA2FS/JR5HzUnz9iSFw2r79Uai+FtjmZ1auIu38XN8yJodAmsl5M +92/+wIFukQMULp+Q8tchNnq5dWIqlsKbwvv5K4j/D5s07Sg= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.47333833527595015`, + 1.9284997626978488`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.4733383352759512}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.47333833527595015`, + 1.9284997626978488`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.4733383352759512}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4Ft0bB3ApSpHImqhsRYk8lpS67yxpQUj2xLOMNXteSqF+VJJCve3x +hggpFJKUooSiaMU81keppGRpMX6nP+aa63Odc33ne86cmSXsYAeesJCQ0Ady +/b2HPl+5tLzl+fp8Bf1U1XYG1g9lG7ItCmHZs6aDS4i7MoxOqVtUwe2aG84q +xHbcZ6LirDpwNu6QVCQujop9JGLRBGaWjgVSxEcfKzyIzX8BF94u0J5FfKcl +9PIf/Vdw7hYr+c97BgbfN8RE330LQWFZL4aIF/SruY+Zd4B7fPAvmnjr1xiT +8CY+JGpeFn1GXP1ncE5UfjfM2280VkH8Ol5+X1lQLyyOxKdXiIdELQZ/6PfD +xbe1sUnEoskhrqxxAbA3PFMMIVaRulQfevcDaKlxz2wntlUauzpk/hmsNwes +kyGmMlXldGYNQXPGD963dwzEamxLCGj6Cunp68OaiN/Kt62KyP8GtjnbjGKI +uW7+funJ38H1oNGQHfHwRaH/SoJGoGCvcpIa8SxVnXnf9Edhto9B0MO3DJzi +PrKaJzsGJnVJZSnEi3NdY3XHx+Cj9MpeF+LVKxKHdt+dgKLo4o+CNwz4GvGb +Bs3/QOgoq+jjawZ+RO2ZMVtzEoL2RSjlEMfdnWOqNYsBjaOPdnsSn8XVBT5N +UxDSPFnT8Ir0y6m3CMufhhb7NVYktTGQ/zi9K15JGMcFcnUGxMMDnjGpycL4 +66iERWcrAzHao6U3g6YjO/n0j6XEp24sUfuqL4IBOuLq2S8YeN/yuZrJEsEU +M+Vv64gXfy93mysritPUduW8amGg0MA2TWdcFD1KF9QyzQzU3tk7LfDuLDwi +qsE3fs7A6KNW/gdzcfSeelVq2cCAtLX4vH3V4viwxeFwyVMG9NosUMJEAr2X +cQcWEvv33c5ctXIuzuW42Q4+YSBEuElvnfg83LNn932fOgb6VYu+JYxJ4fXX +50K+3Cf7QzWINbOkURC4QY9FLFwgWKIQKo1UhlN8ZDXpy1rkkP9JGts7NN+N +VjHgZn6y5HnXfLTevNTvzR0Gmjlh4fKNsjix86CHZikDdG7KMa9Zcnjts46n +ZQkDnz/lZ12zlMOuRpNx72IGZkf0tq59IIeJMrLf0m8wYPE/RwOv2/KoIXJE +sr2Agcpso9G8DEUcmmbvMpbFQHb/r8g1Ecp4S8zbhZvGwKYdh+nw68qo6mSl +szWV5NfO33hdoIxiUqWjuicZMMheIbvYVQVzZ3awR46T/WR7loqsX4RP2QOV +3kcZ+P61658PhxZjs/nUk45YBubvtrhVaqOKCRGHi7YFMCDInu1r56+KgYF/ +2kf9GKjoaFH6kqiKS/YGi5/3ZcDDeuchzQeq+HF+SFQHj/RbHulwTl8NHzzp +O7bZizx/MHf4gLw6qqw2UapzZMDRZ47Olm4N7FzX02ZpygBE7tB3ntRA2S8u +B26vYUA7IcOYq6iJuvN07dRMGBDKYpkdsNfEvhbr4J+GDFyn3Z1LajSx6uzt +ghO65Pt0KoxfcGUpvrvpe4WrSvpZ2LweZGth3Ead5luiDCipnog91rcCwyht +Y+mGSahK+qH1U1gHU6ZYDv1PJsFjxLWNWqKDZnEYXlY3CZdr1bXMPHXQy16s +0aFmElR9Kl9OvNHBwS7JT+EVk6Bd2K9BNa5EWeXiKperk6CspEItdtXDfWMe +FqVxk7AiJ0L8N+jjhdBXpT26k/BfmLrd7SZDZKeJF/Un/oGWSDD+X44JtlaW +mfxb8RuWeL6y3Rm4DhUO2/2e0f4LeFNlRcrRiMYFgwP2Uz9B/lPFTHm2GYY8 +mFwuMfMnRLBMO9K0LfCf92F54YoTwP7yp37+oCWGPK65v2jlOFw3C5+Z0WyF +f6a1NqnojkH2D/+awlObMbklTfSz+ShMbFB4Vhu7FQurGnNgyw/oFJr+rdvb +Butm/N6xw2MEghYGn4xX24YrD25P10r8DkV+9Q9OJ9jhsjjWM4fcb7B3RHF8 +uZ89Ku1JKeB3DcPolo1OT3Y5YHxBDbdMZhhM3FM39NtvR9fZF07PuDEELxUv ++deyHHFpgN55bfYXWHD1UFXesh3Ydf/TdGnJz1DRpW1tK+GEh1QyDyYKBkGl +bdgn8osTPlVVEJF7/RFYp1MLs7qcMXhJv7bNww9wacbIyrRHLrg1+pj345cD +ULZB933CHVcMWmA/cb9bAGeNk6T+5LuhyPaZ0aIzBdDcnpPISnbHhnvyBqwt +/XDb5qJ6SJwHBvfMNlM93gffdm8XCuLuRCtdu76MwV4Y3ajlO2Tuies6zf67 +69wLeV/eTYQb7cKBgWWaCXU94PJfDmenuBdWn5izq21TD5SWbN01/bAXng8N +MHv8rBtMlF7+PPrTC8/EO4pf53WDWpfP+xd+3rhY7EjTBrFu6JsTsO1irzcW ++3rHWt/ogpYUW47VDjYeYHIn07hdcCoqY86eFjbq9kWZmip3QVX11E/OZg6K +uRqGqNbwYVWNweqlWzkoMu3nSOx9Plx95Bc5aM3B/emFIfQ9PqTWt34PseNg +QDzH8XIlH6iXuZ/2O3MwtetUjdYtPkgJtnWe4XFQw42SD84l4xKZDxrjOZjv +deVNSQofJD3wMKuSg9HOpSoKXnxYLPOkeWEVBxNTnnSc8uSDXpONgmg1B7dP +ayyT3skHB1P3a29rOCiJMtVSbnw4tTCycf9TDiatFcgqO/JhQWeBZP1bDq5c +k9zku4kP6p7yZz3GOXhzg35A6yo+mHgN5SUYcDHznlbA0EyynnPD4bZGXHTm +5Cx/LMoHmdbv6+VXc9Fvd3HHZRE+DFmOt+Wt5eKKEuV526fzyf9GaFqTGRfF +jB7ceczQMHdcylXanou55QYz2kdp6DtuKJaxm4t3XEbelfXRYP/EuM0nmMy/ +2xZX2EtDtdCaDL1QLr7ac1A2q4eGc+HrDR9GcLHZ7evM9C4abF2tvPv3cVG6 +9uncAx003FF3vbM8iYu+TqfT4tpoSLkb41dxlYsCtd8CozoaduufMYnK4+Ke +s9l1trU0WF8rFludz8UTclGJPo9omH1GcK38Ohf/aDsXXaihISHMbrDsFher +tkuenltNQ4yWesDth1wMzgy8oVJOg/+ZxsASmosgdDBr4BoNm+cKTMO6uHit +rfaqEvGyBCEJ/R4uxkmqJtnl0SAIM7xe3M9FtvHQcNVVGrxtM77c/MzF0/tU +12Vm0eAiEh504xcXoxrbH568RINV+IKQQjkeWspLqSim0fAwI3FLmgIPk7MV +lN1SaTBt+q4etYCH7r1NSy6epEFPo/GduQoPB6vH16qdoEHxzT7zdg0eTs05 +WLwumYZPazrlZhvycNxjbnpWIg0nhDPv+Wzn4eflYzX6MWT9uuJnbXbwMIgT +63xqHw3/c48KYzmTvJFHw2N7aYi6Zbd0yo2HKrOsVt6PJv2paan/snno4VPc +6v4PDawGNrculIey6zZW1YXR8CZVY47aSR7OP5Ob7+5PQxFI+H5I5WF9+8R0 +gR/J//Kj9no6DwP1pdeHEutvrj2w+gwPY99HOSb5kvcnxPluc5mHs2wXij2h +aNgYnPkuqpCH3dWaSf4cGpSVjxitL+KhJ5f+JEz8oyE4ffpNHi5TfKVzkU3D +FU2wSSnl4Y6XuxxeeNMw2dn5IKuShwrrJJU3etFwy1op73k9D/UGDEpcd9Jw +7JewyKkGHn6IsZQRImbnDXq7NvEw75iyU64HDfNmVCr1NfPQ+8Ss6Al3GgLv +upz4+ZqHFR4Sa3PcaFDT/jdSvZ+H76LV85e50PDrzf7WjwIeTkicEel0pqEl +gad34wMPfwz4YxrxgW6DQZPPPOzERY5TTjS8P9u6c9sID+PlF4707qAhbaaU +5d5pFKa2FMx+s52Gqu+d7hHTKYz09FybRjzQmR8WJEJh1Enhg7bEprcsMtli +FLbfF7FvcCDnzSvq9xYpCu0tN44+tyf9rS2lLedTOFe/rS2NeK2xtBbIUqhh +qtrgTHxSotCJpUgh1Tsw2mdHxiv5xUpLKOwRjrMXJ6ZyCutl1SiszIyg324j +809G8yU1KHRMYeKuEguo+RIztCjMG64Wtfw7Pt/K97MehdodwTInbGmoZObH +CvQp9LZMtuES93/sOt1lQCHro+LFNcRrHux91LaaQqYtKnrQhvwfAotU7iGF +MxveGzgTz3XZZ1huRmHYO1lFQ2IT803WxRYUrnqcLS1DnKLYE52ziUKJw8WW +r6xpqJhx42TGFgrXbtSKLSfu/bov95w1hdkVH56dJ179WPbVcTsKnW6xCrjE +7OKeT4cdSL+pOyZbiY9fvCF80JFCh/j9nfrEPWGb9SJdKLzcVsIVIZbwlLMK +caMwaf3iTcNbSd7m3p3+HhT+M+8hdhAfX7T/mKcXhS0WF0LLiStmb7niwqaw +TK752lXinlG5Ow5cCjfr6o3/SyzR3dtsTVHoJ3bP9cjfvKabgo2+FDatiXix +l5hdvn8S/Sl8F+7oGfQ3/8oWmbWBFL6P9RDi/M0/Lr/cMIhCE8tj5S5/86P6 +NuiGUHipln9oG7E4t9hFK4xCmQWuPCti420HgtUiKNwZM+aOf/PXbE1UjqTw +p2m5zxriZA2FS/JR5HzUnz9iSFw2r79Uai+FtjmZ1auIu38XN8yJodAmsl5M +92/+wIFukQMULp+Q8tchNnq5dWIqlsKbwvv5K4j/D5s07Sg= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.47333833527595015`, 1.9284997626978488`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.4733383352759512}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.4733383352759512}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "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.47333833527595015`, 1.9284997626978488`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913411752988663`*^9, 3.9921296072103367`*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"00132067-8ee5-3944-aea1-3d317e9a69fb"] +}, 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", ",", "15"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.9918466141799603`*^9}, + CellLabel-> + "In[118]:=",ExpressionUUID->"556a1eda-5f63-f94a-8981-af3901893679"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9676080989471168`*^-275\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 118, + 1006, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755393047`*^9, 3.9921296074659424`*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"882a7971-2405-e34c-aecd-b8211e35190c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.2397358502445793`*^-287\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 118, + 1007, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755393047`*^9, 3.9921296074754868`*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"eabe2196-2c79-6846-b56b-ce37a1c5c958"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.5494999139082275`*^-299\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 118, 1008, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755393047`*^9, 3.992129607481449*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"9732ac1a-dc93-5843-bc19-480594076b2b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 118, 1009, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755393047`*^9, 3.992129607488447*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"ee675b01-3264-9549-8b58-4bb13fecaad6"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4Vd0XB3BDCm/KGMpw7zn3ynQpiSj2QiqUJDKPoUwVZYjKUCEk81BU +5muIgySUxKuQCslUKiFpUPdXSJPffv+6z+d57tnnnHX2XutLdz9q6cnDxcXF +z83F9d/v/KuufxkJ6fqiAoMtRpvV9AeuSp00GA5EFLefdVf9PwgknrpLDUej +/HBbg8T6dSjYonyIdzgV+cd/8PStV0Eis5Kpi0MFSHPhRu2++q3o9R3zo9+H +atGK4Y3t8vVmaAfjwxhnqA3xkmnBgTcd0OKQdsbXoX4kZ29c1F3ji9qNSov6 +CiaQ3460ycqnp5DM68Z37qqf0apHTVvbbc8jcT+X8hVG39AVreaJqjWJKHXj +jmZz6x8ozf1V0MnSFDSSvaGVI/wH1eqML+f9kY4SiiKe8khzQ/4drbyTp7OR +ZPrEhbQ8XphxOem5Z+wKirUy0e+f54P4JNlu6vNVdFwn36Urmh/u29yU3iiW +j7Z/+Rl2ZEIQ7thV803EFKCobfvc1m4RgoQ+ZuXrqUKkW5Vz88y91aBhwbxT +ZVmM/H5wIjuFRMAzZnFANasELaoIv2JZiwIMpu+9MVmKtlVUXs/MFIPW4tCE +PqkyxBE1dT3QJg6GQ0YRjgrlaDLR9UDgijWwIXwwma1VgUy+hJhMaUnC8vGf +47H0SvTpIP/xmxFSsFpsZCRH8AaupyRPbJs0xN0f6vEfuYFEHyskUV/WQl+Z +2Nr4mCokE1dtoaUlA/9k/Z0JV61G2So6wmKHZOH1z5nXf2qrkbXZ4+QWX1m4 +4PiOfHezGon6uon4HJMFq5OZOo9vVaOE8gui90/KQsp91mhWUzU6ozQqfjRR +FoIyl77KtVUjj/Xh0o9qZCHQoSj8e2812kjeJc7+loUhY7Ntdz9Xo+61Bpu/ +pcjBqOMZakKEQr1y1QrLsuTAfmwru12UQoOErJRErhzsnjv6pUCMQuPKiz+1 +SuRAXd3Oz0WCQj90a1rDmuTAZe8SrVeKQgoO9N08E3Kwbrf+qWR5CkVf4T4o +oikPFQdJjYuqFIq7dtSK0JGHzNGO9TYsCiUVjhlv0peHYtk3/jQ1CuVUNCpa +75KHY1bXPlLqFKKaA2azHeUhXMuwqkuDQq9ejJ+knZeHFvdVtqNbKKQr05as +PigPkb39EaHbKfSWZLyaGZUH1hWedJoxhS6oxKgUvZaHmSBn4U7sYV3TB1Iz +8tDR12wgsZNCIXb9v7h/y4PQnsVYtgmF7M0CNn0QpkFuwp+yWnMKZcZFXb2j +RYOkoJkoa1sK+SRqdEjr0EA6NbjyA7Z+8sTH4K00OKa0GyLsKDSVZayzEWjw +OXe+sMSeQpqlAgPFJjRQN9nvOOtIof6OFIFLjjTgROTluLlRaBVvwQm3aBpk +ruxIGPKm0PLFe/s552jge+L0iIcPhf7OjmlExdJg867CEA72l1FpzvVEGkj0 ++hXz++HvVZvi/yaTBvs3BnSqHaFQqnuUl0sFDVrLNm2xD6TQmjZXW6cBGoy6 +XKWpheH73T6j/XmQBu3tzzOLsZdX5a45PUIDLTc9F5lwCi3kDA/kvqKBUN7w +uxWncL0CLPa9fE+DCy/f9A+eptBlOpg6/MHXH/ZVsYqikFyU/DY7BTr4OJuY +Po6lUNVxfmJMkQ6vXawcWXG4Pl6cFW4qdBASauhMxHYya392eAMdsh+1UiYX +KJQrccg3VJcOSw0Z95rjKSRdXnU5y5wOp+ynpiIvUoidmxW5bh8d4pxrigax +t1yK9Lq2nw5cjKctKkkUsj1hqVFqS4fEIcQ3gJ2pP991y50OlrsbXsokU0j8 +md7i82A6fNyv/O+lVAoVdSi8tjtJB86dQvQCe9Pt1R1j4XRwmw+UVEijkGXe +ePJUJB22aFu/bMROOXRecS6eDt55v+6MpOP6/e6xEb9Gh2in8+9/ZlJIgOl4 +y/IhHVi/N7m2X8b7QxqZVnTRoZ/uPziP3S1EvOLtocMQD71V6QqFEuen+ep7 +6SB+U2P2IvaqzuPWkqN02HUp7dbeXAqf74TvLz7RQcFNmK8xj0KBLkfiNL/Q +IZDZ2TiB/Wz/PpmLHDok9U++FbpKofRtktv153F9feJSXbElVxWmXV+iQ3r5 +Wu8lbJmaJg1PUQIsjNO4yOsUOlWc9+CuOAEdXvk8xthjOZH2ayQJiC/hC/PC +vhq9I/rhOgIc7gt1lWLTrPr7lJgEeLC7Z8h8CkXuqveMXk/Axl7tbAPs8W3Z +i6NKBLwxCb7jjF3AdKYnqhHwx7zYKwubuTBzbFabgJ63EUY8BRSK+dizbKcu +AT6VKgXrsN+9rs6+to0AqGGGaGKzO4NaLQwIMHM3OueBrXyZW7jOlICI9Neq +LdjxSZOF/+whYE63AT3D/hj9UNtjLwGZDQ5d09iVvhddJKwIKOQyM1hdSCE1 +PenqECcC3k5Fd9hg15Hev3hcCTBSM5/zxt4i2LgzyZ2Ap//anAvHNhyyfVN0 +iIDzFqGtudgP77JVN/gQUJB5278Se3fRj9BmPwIGei6ENWMfCMgW6Q8gYIWw +Rt0Q9gub905OJwiQa9B4PYntqr+l/H0wAf7Rkr4cbJ9/hg2XwglYkh0v4C/C +55mz/lL8GQJE+r6Yi2GfGA55IRFFwLy/loMsdkSx5AnVGAI8k+6lq2MvSzzU +2hBHgKieaps2dnxgw0qjBAKGVJgWCHu13Qq7JxcJuB9zT38HdjqyKbZLJmA8 +WjhpN7a0QilnMpUAPWeWviX21ZULescyCHjiorLXBpv8tiP+VxYBp4fk7ztg +s0cyB2MuE0CTo6W7YLNa3xGieQScyTDodMeuLdE6mneNAH12jpMntvbFmGbF +AgI4XXpWh7DvHB9ccbOIAL4Qo8rD2Ab2ClaolIBHmq2e3tgPIPh6dxkBXild +kf/ZbP2DT9aVBIySQX/++3+v0Bqd8SoCFhOGX/y3nvV3z/N+NQQcDhSQ8cIe +Ha3vW6gjIDtOtuUgtst9PrmztwjojFNuc8WeLLX2WdWI6715h6ITtndS8a2c +ZgKWOcZ8tcWePTHHw2whwPkp1zor7OMOxnupVgJs/R+VmmP/MMi4srUdv8+6 +35m7sE8rTk0/6CBgqov93gCbZ/VmTctOvD+OTOfqYsfOnYsc6ybAUPBJnQb2 +ypcDPYcfE5BRHMhSxk5pY0h/f0qAkOVHATr2mrITnhH9BDxUMjeRxKYHi//N +GCKgclaZw41d4uhhSh8lQGtrn9083j+qRjczK18ScDegifkBW0vYSr19HO+H +pqrpp9jN84Xh5pMELBx9N3YfG8a+PRx5RwCXbZN2HbZpeZrr148EVHgkr0nH +fpo8URk+S0BdwL0rZ7GtQjYtLucQkB81eS4Q23n7sxTZeQIChn3OmmMHvhJt +N+UiwTVifNMSPm+dDxzvlvOQoCQeY/YRW666pEGQj4T1oU9eDGJ3R+hWdguQ +sGo83asSm6C7Z5iKkdDCzb1+H3aoQOWlcgkS4qp6+HSwn3DmLghKkSCo1edE +ww5ru3CmW4aEhf6nJz/jftJ3sOaQqQIJ4uk1B6OwFXb/citXxPfTtVzliX1K +09hRUIUEe7s2jV3YinwjFt3qJAx1Os6s/K9/lXDpmuqQQN+QtDoZ97cNM3tX +mu4moTkyw+L0Ndyf+nKWl5uT8LZmXb4t9svGCS7BfSR06Bf6bcKOiw+Z67Im +IbmJN2ga99c3KtdembiQIFyvuMcEO/nILGUSSMKwpaDqd9zP3x3YUlF2goS/ +i/c3P8TehqKLBUJIiP9fbXMO9vvVay53hZOgUnJpmx421OidNTlPwt4VTuJn +8Hz48i3R2iSbhA0hBazpHPw8w/kH8i6T0CUUKVKH3X33lg0nl4T02x9DzmAX +xb6xy8kngfX+do8Ytv06TeeZchKY6/Wyt2RTqMPwhdeFuyRU6ac+9MHz60qK +UmjXWxI+V5QLBeJ5GBesf1J2igStEPPDatjBDvvDAqZJMEfTOz+kUMiCefqU +9CcSRH8bZ7piL2/sjfSeI+HdnZcBO/G8DXgTckGAnwFfw4s2/8Xzeqf6g8sm +LAbEpJmGCeN5b7t8l1WvOgP0GXUxt3Ae8BnrErLRYMCTHUp8jthJCY8jPbQZ +kHGg2LYY54nB6QGvCAMGXCypdtwYQyGP6xMa9dYMGGtv+qJ2FudLEe5HtDMM ++Ovs/6MV55X099HnSiMZcInNCbXGLrm3TF/tLAN6EzqPzOB80+3PX7M1jgGD +3sNNq7FFuldnHUhlwN1p7yHrkxS6Hi13MLGEATe06nQ6gyjU8m3rr4UnDLDk +l3LZgfNVfk+D+/4+BtR/Quv6/Sl0rnhTd9UzBnROX3FzwjaxUcnxHGZA+8Su +i4E4nw00rdV+Ns6Ao5pT7lk4v32IWgys+s4A8nzp2kde+PwLN3zwWMuEs5Za +di+cKXREVWO0z5MJptY7VxTtoVDQwtqfLoeZwK0h1bMc+1Qb79pZHyYEiSkK +ee+mUILtczvBY0x4pRa+TNUM9+tzoSOGYUx4+03lUcUunIdftgzXJTEhSrC2 +P9UIz6uLZkMZDUyYLWVdWcL5WW/WY8BOQAHUd0yy7QkKGTOk9ggVKEDOMfpS +31Q1UoyMD23TXg+rIi7lHzpVjZQ9de4xR9fDLfv3sZJ/qpBny+FzNwMUYci6 +pPNbWBW6d33AgyOhBOdCrTqT395A39lLC+oNSvCj/n9/TxjeQAeZFQKX9yjD +87WxD3KLKhFHOU2r9qsyUO9ElylzKtDtol/jc3Eq4Lzivc5twwpkv52ErXKq +YMjre1QgtRyt849tVGtVhbOTWYkTPWVIQtCvZo8NC4yQrfhV4TJUZHQ67Ksd +C4RrxJT2CJUhjdNJRmmOLDjtfP7nL4EyZP6Vej7sxoIR39QBW94yFDM4t3jQ +jwVBO6L9Vs+z0Y+CCMOwKBY85Bf1PPaCjUa3pj0rqWDBrF+3AW8JGx0OKso1 +qcLXtyz5lhew0XxVvecnigWtZiIO+66xkSgxvLDxFgve7HsUdzWbjcz4ZWXu +trIgP46tpJXARncGSjyePWcBxb2/0f4YG5muus0KHmZBQ0LY3r9+bDS8s2te +6gULtNujq/K92eh708c45zcskP6p2Tntzkas/A03Zj6wwPSSTECANV5v1CA4 +8TML5J4ZW4tZ4vXE9yP1ryxo32a+rN6cjbxig/pOzLFg7PfP9oWdeL3WmMuS +P1gQGyL3PHs7G0X/zDrY9JMFTq7ytToGbCSsWabq9IcFE+p6DqN6bHTVv2lu +aYkFrlYNvWG6bPR/0aKcKg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4Vd0XB3BDCm/KGMpw7zn3ynQpiSj2QiqUJDKPoUwVZYjKUCEk81BU +5muIgySUxKuQCslUKiFpUPdXSJPffv+6z+d57tnnnHX2XutLdz9q6cnDxcXF +z83F9d/v/KuufxkJ6fqiAoMtRpvV9AeuSp00GA5EFLefdVf9PwgknrpLDUej +/HBbg8T6dSjYonyIdzgV+cd/8PStV0Eis5Kpi0MFSHPhRu2++q3o9R3zo9+H +atGK4Y3t8vVmaAfjwxhnqA3xkmnBgTcd0OKQdsbXoX4kZ29c1F3ji9qNSov6 +CiaQ3460ycqnp5DM68Z37qqf0apHTVvbbc8jcT+X8hVG39AVreaJqjWJKHXj +jmZz6x8ozf1V0MnSFDSSvaGVI/wH1eqML+f9kY4SiiKe8khzQ/4drbyTp7OR +ZPrEhbQ8XphxOem5Z+wKirUy0e+f54P4JNlu6vNVdFwn36Urmh/u29yU3iiW +j7Z/+Rl2ZEIQ7thV803EFKCobfvc1m4RgoQ+ZuXrqUKkW5Vz88y91aBhwbxT +ZVmM/H5wIjuFRMAzZnFANasELaoIv2JZiwIMpu+9MVmKtlVUXs/MFIPW4tCE +PqkyxBE1dT3QJg6GQ0YRjgrlaDLR9UDgijWwIXwwma1VgUy+hJhMaUnC8vGf +47H0SvTpIP/xmxFSsFpsZCRH8AaupyRPbJs0xN0f6vEfuYFEHyskUV/WQl+Z +2Nr4mCokE1dtoaUlA/9k/Z0JV61G2So6wmKHZOH1z5nXf2qrkbXZ4+QWX1m4 +4PiOfHezGon6uon4HJMFq5OZOo9vVaOE8gui90/KQsp91mhWUzU6ozQqfjRR +FoIyl77KtVUjj/Xh0o9qZCHQoSj8e2812kjeJc7+loUhY7Ntdz9Xo+61Bpu/ +pcjBqOMZakKEQr1y1QrLsuTAfmwru12UQoOErJRErhzsnjv6pUCMQuPKiz+1 +SuRAXd3Oz0WCQj90a1rDmuTAZe8SrVeKQgoO9N08E3Kwbrf+qWR5CkVf4T4o +oikPFQdJjYuqFIq7dtSK0JGHzNGO9TYsCiUVjhlv0peHYtk3/jQ1CuVUNCpa +75KHY1bXPlLqFKKaA2azHeUhXMuwqkuDQq9ejJ+knZeHFvdVtqNbKKQr05as +PigPkb39EaHbKfSWZLyaGZUH1hWedJoxhS6oxKgUvZaHmSBn4U7sYV3TB1Iz +8tDR12wgsZNCIXb9v7h/y4PQnsVYtgmF7M0CNn0QpkFuwp+yWnMKZcZFXb2j +RYOkoJkoa1sK+SRqdEjr0EA6NbjyA7Z+8sTH4K00OKa0GyLsKDSVZayzEWjw +OXe+sMSeQpqlAgPFJjRQN9nvOOtIof6OFIFLjjTgROTluLlRaBVvwQm3aBpk +ruxIGPKm0PLFe/s552jge+L0iIcPhf7OjmlExdJg867CEA72l1FpzvVEGkj0 ++hXz++HvVZvi/yaTBvs3BnSqHaFQqnuUl0sFDVrLNm2xD6TQmjZXW6cBGoy6 +XKWpheH73T6j/XmQBu3tzzOLsZdX5a45PUIDLTc9F5lwCi3kDA/kvqKBUN7w +uxWncL0CLPa9fE+DCy/f9A+eptBlOpg6/MHXH/ZVsYqikFyU/DY7BTr4OJuY +Po6lUNVxfmJMkQ6vXawcWXG4Pl6cFW4qdBASauhMxHYya392eAMdsh+1UiYX +KJQrccg3VJcOSw0Z95rjKSRdXnU5y5wOp+ynpiIvUoidmxW5bh8d4pxrigax +t1yK9Lq2nw5cjKctKkkUsj1hqVFqS4fEIcQ3gJ2pP991y50OlrsbXsokU0j8 +md7i82A6fNyv/O+lVAoVdSi8tjtJB86dQvQCe9Pt1R1j4XRwmw+UVEijkGXe +ePJUJB22aFu/bMROOXRecS6eDt55v+6MpOP6/e6xEb9Gh2in8+9/ZlJIgOl4 +y/IhHVi/N7m2X8b7QxqZVnTRoZ/uPziP3S1EvOLtocMQD71V6QqFEuen+ep7 +6SB+U2P2IvaqzuPWkqN02HUp7dbeXAqf74TvLz7RQcFNmK8xj0KBLkfiNL/Q +IZDZ2TiB/Wz/PpmLHDok9U++FbpKofRtktv153F9feJSXbElVxWmXV+iQ3r5 +Wu8lbJmaJg1PUQIsjNO4yOsUOlWc9+CuOAEdXvk8xthjOZH2ayQJiC/hC/PC +vhq9I/rhOgIc7gt1lWLTrPr7lJgEeLC7Z8h8CkXuqveMXk/Axl7tbAPs8W3Z +i6NKBLwxCb7jjF3AdKYnqhHwx7zYKwubuTBzbFabgJ63EUY8BRSK+dizbKcu +AT6VKgXrsN+9rs6+to0AqGGGaGKzO4NaLQwIMHM3OueBrXyZW7jOlICI9Neq +LdjxSZOF/+whYE63AT3D/hj9UNtjLwGZDQ5d09iVvhddJKwIKOQyM1hdSCE1 +PenqECcC3k5Fd9hg15Hev3hcCTBSM5/zxt4i2LgzyZ2Ap//anAvHNhyyfVN0 +iIDzFqGtudgP77JVN/gQUJB5278Se3fRj9BmPwIGei6ENWMfCMgW6Q8gYIWw +Rt0Q9gub905OJwiQa9B4PYntqr+l/H0wAf7Rkr4cbJ9/hg2XwglYkh0v4C/C +55mz/lL8GQJE+r6Yi2GfGA55IRFFwLy/loMsdkSx5AnVGAI8k+6lq2MvSzzU +2hBHgKieaps2dnxgw0qjBAKGVJgWCHu13Qq7JxcJuB9zT38HdjqyKbZLJmA8 +WjhpN7a0QilnMpUAPWeWviX21ZULescyCHjiorLXBpv8tiP+VxYBp4fk7ztg +s0cyB2MuE0CTo6W7YLNa3xGieQScyTDodMeuLdE6mneNAH12jpMntvbFmGbF +AgI4XXpWh7DvHB9ccbOIAL4Qo8rD2Ab2ClaolIBHmq2e3tgPIPh6dxkBXild +kf/ZbP2DT9aVBIySQX/++3+v0Bqd8SoCFhOGX/y3nvV3z/N+NQQcDhSQ8cIe +Ha3vW6gjIDtOtuUgtst9PrmztwjojFNuc8WeLLX2WdWI6715h6ITtndS8a2c +ZgKWOcZ8tcWePTHHw2whwPkp1zor7OMOxnupVgJs/R+VmmP/MMi4srUdv8+6 +35m7sE8rTk0/6CBgqov93gCbZ/VmTctOvD+OTOfqYsfOnYsc6ybAUPBJnQb2 +ypcDPYcfE5BRHMhSxk5pY0h/f0qAkOVHATr2mrITnhH9BDxUMjeRxKYHi//N +GCKgclaZw41d4uhhSh8lQGtrn9083j+qRjczK18ScDegifkBW0vYSr19HO+H +pqrpp9jN84Xh5pMELBx9N3YfG8a+PRx5RwCXbZN2HbZpeZrr148EVHgkr0nH +fpo8URk+S0BdwL0rZ7GtQjYtLucQkB81eS4Q23n7sxTZeQIChn3OmmMHvhJt +N+UiwTVifNMSPm+dDxzvlvOQoCQeY/YRW666pEGQj4T1oU9eDGJ3R+hWdguQ +sGo83asSm6C7Z5iKkdDCzb1+H3aoQOWlcgkS4qp6+HSwn3DmLghKkSCo1edE +ww5ru3CmW4aEhf6nJz/jftJ3sOaQqQIJ4uk1B6OwFXb/citXxPfTtVzliX1K +09hRUIUEe7s2jV3YinwjFt3qJAx1Os6s/K9/lXDpmuqQQN+QtDoZ97cNM3tX +mu4moTkyw+L0Ndyf+nKWl5uT8LZmXb4t9svGCS7BfSR06Bf6bcKOiw+Z67Im +IbmJN2ga99c3KtdembiQIFyvuMcEO/nILGUSSMKwpaDqd9zP3x3YUlF2goS/ +i/c3P8TehqKLBUJIiP9fbXMO9vvVay53hZOgUnJpmx421OidNTlPwt4VTuJn +8Hz48i3R2iSbhA0hBazpHPw8w/kH8i6T0CUUKVKH3X33lg0nl4T02x9DzmAX +xb6xy8kngfX+do8Ytv06TeeZchKY6/Wyt2RTqMPwhdeFuyRU6ac+9MHz60qK +UmjXWxI+V5QLBeJ5GBesf1J2igStEPPDatjBDvvDAqZJMEfTOz+kUMiCefqU +9CcSRH8bZ7piL2/sjfSeI+HdnZcBO/G8DXgTckGAnwFfw4s2/8Xzeqf6g8sm +LAbEpJmGCeN5b7t8l1WvOgP0GXUxt3Ae8BnrErLRYMCTHUp8jthJCY8jPbQZ +kHGg2LYY54nB6QGvCAMGXCypdtwYQyGP6xMa9dYMGGtv+qJ2FudLEe5HtDMM ++Ovs/6MV55X099HnSiMZcInNCbXGLrm3TF/tLAN6EzqPzOB80+3PX7M1jgGD +3sNNq7FFuldnHUhlwN1p7yHrkxS6Hi13MLGEATe06nQ6gyjU8m3rr4UnDLDk +l3LZgfNVfk+D+/4+BtR/Quv6/Sl0rnhTd9UzBnROX3FzwjaxUcnxHGZA+8Su +i4E4nw00rdV+Ns6Ao5pT7lk4v32IWgys+s4A8nzp2kde+PwLN3zwWMuEs5Za +di+cKXREVWO0z5MJptY7VxTtoVDQwtqfLoeZwK0h1bMc+1Qb79pZHyYEiSkK +ee+mUILtczvBY0x4pRa+TNUM9+tzoSOGYUx4+03lUcUunIdftgzXJTEhSrC2 +P9UIz6uLZkMZDUyYLWVdWcL5WW/WY8BOQAHUd0yy7QkKGTOk9ggVKEDOMfpS +31Q1UoyMD23TXg+rIi7lHzpVjZQ9de4xR9fDLfv3sZJ/qpBny+FzNwMUYci6 +pPNbWBW6d33AgyOhBOdCrTqT395A39lLC+oNSvCj/n9/TxjeQAeZFQKX9yjD +87WxD3KLKhFHOU2r9qsyUO9ElylzKtDtol/jc3Eq4Lzivc5twwpkv52ErXKq +YMjre1QgtRyt849tVGtVhbOTWYkTPWVIQtCvZo8NC4yQrfhV4TJUZHQ67Ksd +C4RrxJT2CJUhjdNJRmmOLDjtfP7nL4EyZP6Vej7sxoIR39QBW94yFDM4t3jQ +jwVBO6L9Vs+z0Y+CCMOwKBY85Bf1PPaCjUa3pj0rqWDBrF+3AW8JGx0OKso1 +qcLXtyz5lhew0XxVvecnigWtZiIO+66xkSgxvLDxFgve7HsUdzWbjcz4ZWXu +trIgP46tpJXARncGSjyePWcBxb2/0f4YG5muus0KHmZBQ0LY3r9+bDS8s2te +6gULtNujq/K92eh708c45zcskP6p2Tntzkas/A03Zj6wwPSSTECANV5v1CA4 +8TML5J4ZW4tZ4vXE9yP1ryxo32a+rN6cjbxig/pOzLFg7PfP9oWdeL3WmMuS +P1gQGyL3PHs7G0X/zDrY9JMFTq7ytToGbCSsWabq9IcFE+p6DqN6bHTVv2lu +aYkFrlYNvWG6bPR/0aKcKg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.0650087298795988}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.0650087298795988}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4Vd0XB3BDCm/KGMpw7zn3ynQpiSj2QiqUJDKPoUwVZYjKUCEk81BU +5muIgySUxKuQCslUKiFpUPdXSJPffv+6z+d57tnnnHX2XutLdz9q6cnDxcXF +z83F9d/v/KuufxkJ6fqiAoMtRpvV9AeuSp00GA5EFLefdVf9PwgknrpLDUej +/HBbg8T6dSjYonyIdzgV+cd/8PStV0Eis5Kpi0MFSHPhRu2++q3o9R3zo9+H +atGK4Y3t8vVmaAfjwxhnqA3xkmnBgTcd0OKQdsbXoX4kZ29c1F3ji9qNSov6 +CiaQ3460ycqnp5DM68Z37qqf0apHTVvbbc8jcT+X8hVG39AVreaJqjWJKHXj +jmZz6x8ozf1V0MnSFDSSvaGVI/wH1eqML+f9kY4SiiKe8khzQ/4drbyTp7OR +ZPrEhbQ8XphxOem5Z+wKirUy0e+f54P4JNlu6vNVdFwn36Urmh/u29yU3iiW +j7Z/+Rl2ZEIQ7thV803EFKCobfvc1m4RgoQ+ZuXrqUKkW5Vz88y91aBhwbxT +ZVmM/H5wIjuFRMAzZnFANasELaoIv2JZiwIMpu+9MVmKtlVUXs/MFIPW4tCE +PqkyxBE1dT3QJg6GQ0YRjgrlaDLR9UDgijWwIXwwma1VgUy+hJhMaUnC8vGf +47H0SvTpIP/xmxFSsFpsZCRH8AaupyRPbJs0xN0f6vEfuYFEHyskUV/WQl+Z +2Nr4mCokE1dtoaUlA/9k/Z0JV61G2So6wmKHZOH1z5nXf2qrkbXZ4+QWX1m4 +4PiOfHezGon6uon4HJMFq5OZOo9vVaOE8gui90/KQsp91mhWUzU6ozQqfjRR +FoIyl77KtVUjj/Xh0o9qZCHQoSj8e2812kjeJc7+loUhY7Ntdz9Xo+61Bpu/ +pcjBqOMZakKEQr1y1QrLsuTAfmwru12UQoOErJRErhzsnjv6pUCMQuPKiz+1 +SuRAXd3Oz0WCQj90a1rDmuTAZe8SrVeKQgoO9N08E3Kwbrf+qWR5CkVf4T4o +oikPFQdJjYuqFIq7dtSK0JGHzNGO9TYsCiUVjhlv0peHYtk3/jQ1CuVUNCpa +75KHY1bXPlLqFKKaA2azHeUhXMuwqkuDQq9ejJ+knZeHFvdVtqNbKKQr05as +PigPkb39EaHbKfSWZLyaGZUH1hWedJoxhS6oxKgUvZaHmSBn4U7sYV3TB1Iz +8tDR12wgsZNCIXb9v7h/y4PQnsVYtgmF7M0CNn0QpkFuwp+yWnMKZcZFXb2j +RYOkoJkoa1sK+SRqdEjr0EA6NbjyA7Z+8sTH4K00OKa0GyLsKDSVZayzEWjw +OXe+sMSeQpqlAgPFJjRQN9nvOOtIof6OFIFLjjTgROTluLlRaBVvwQm3aBpk +ruxIGPKm0PLFe/s552jge+L0iIcPhf7OjmlExdJg867CEA72l1FpzvVEGkj0 ++hXz++HvVZvi/yaTBvs3BnSqHaFQqnuUl0sFDVrLNm2xD6TQmjZXW6cBGoy6 +XKWpheH73T6j/XmQBu3tzzOLsZdX5a45PUIDLTc9F5lwCi3kDA/kvqKBUN7w +uxWncL0CLPa9fE+DCy/f9A+eptBlOpg6/MHXH/ZVsYqikFyU/DY7BTr4OJuY +Po6lUNVxfmJMkQ6vXawcWXG4Pl6cFW4qdBASauhMxHYya392eAMdsh+1UiYX +KJQrccg3VJcOSw0Z95rjKSRdXnU5y5wOp+ynpiIvUoidmxW5bh8d4pxrigax +t1yK9Lq2nw5cjKctKkkUsj1hqVFqS4fEIcQ3gJ2pP991y50OlrsbXsokU0j8 +md7i82A6fNyv/O+lVAoVdSi8tjtJB86dQvQCe9Pt1R1j4XRwmw+UVEijkGXe +ePJUJB22aFu/bMROOXRecS6eDt55v+6MpOP6/e6xEb9Gh2in8+9/ZlJIgOl4 +y/IhHVi/N7m2X8b7QxqZVnTRoZ/uPziP3S1EvOLtocMQD71V6QqFEuen+ep7 +6SB+U2P2IvaqzuPWkqN02HUp7dbeXAqf74TvLz7RQcFNmK8xj0KBLkfiNL/Q +IZDZ2TiB/Wz/PpmLHDok9U++FbpKofRtktv153F9feJSXbElVxWmXV+iQ3r5 +Wu8lbJmaJg1PUQIsjNO4yOsUOlWc9+CuOAEdXvk8xthjOZH2ayQJiC/hC/PC +vhq9I/rhOgIc7gt1lWLTrPr7lJgEeLC7Z8h8CkXuqveMXk/Axl7tbAPs8W3Z +i6NKBLwxCb7jjF3AdKYnqhHwx7zYKwubuTBzbFabgJ63EUY8BRSK+dizbKcu +AT6VKgXrsN+9rs6+to0AqGGGaGKzO4NaLQwIMHM3OueBrXyZW7jOlICI9Neq +LdjxSZOF/+whYE63AT3D/hj9UNtjLwGZDQ5d09iVvhddJKwIKOQyM1hdSCE1 +PenqECcC3k5Fd9hg15Hev3hcCTBSM5/zxt4i2LgzyZ2Ap//anAvHNhyyfVN0 +iIDzFqGtudgP77JVN/gQUJB5278Se3fRj9BmPwIGei6ENWMfCMgW6Q8gYIWw +Rt0Q9gub905OJwiQa9B4PYntqr+l/H0wAf7Rkr4cbJ9/hg2XwglYkh0v4C/C +55mz/lL8GQJE+r6Yi2GfGA55IRFFwLy/loMsdkSx5AnVGAI8k+6lq2MvSzzU +2hBHgKieaps2dnxgw0qjBAKGVJgWCHu13Qq7JxcJuB9zT38HdjqyKbZLJmA8 +WjhpN7a0QilnMpUAPWeWviX21ZULescyCHjiorLXBpv8tiP+VxYBp4fk7ztg +s0cyB2MuE0CTo6W7YLNa3xGieQScyTDodMeuLdE6mneNAH12jpMntvbFmGbF +AgI4XXpWh7DvHB9ccbOIAL4Qo8rD2Ab2ClaolIBHmq2e3tgPIPh6dxkBXild +kf/ZbP2DT9aVBIySQX/++3+v0Bqd8SoCFhOGX/y3nvV3z/N+NQQcDhSQ8cIe +Ha3vW6gjIDtOtuUgtst9PrmztwjojFNuc8WeLLX2WdWI6715h6ITtndS8a2c +ZgKWOcZ8tcWePTHHw2whwPkp1zor7OMOxnupVgJs/R+VmmP/MMi4srUdv8+6 +35m7sE8rTk0/6CBgqov93gCbZ/VmTctOvD+OTOfqYsfOnYsc6ybAUPBJnQb2 +ypcDPYcfE5BRHMhSxk5pY0h/f0qAkOVHATr2mrITnhH9BDxUMjeRxKYHi//N +GCKgclaZw41d4uhhSh8lQGtrn9083j+qRjczK18ScDegifkBW0vYSr19HO+H +pqrpp9jN84Xh5pMELBx9N3YfG8a+PRx5RwCXbZN2HbZpeZrr148EVHgkr0nH +fpo8URk+S0BdwL0rZ7GtQjYtLucQkB81eS4Q23n7sxTZeQIChn3OmmMHvhJt +N+UiwTVifNMSPm+dDxzvlvOQoCQeY/YRW666pEGQj4T1oU9eDGJ3R+hWdguQ +sGo83asSm6C7Z5iKkdDCzb1+H3aoQOWlcgkS4qp6+HSwn3DmLghKkSCo1edE +ww5ru3CmW4aEhf6nJz/jftJ3sOaQqQIJ4uk1B6OwFXb/citXxPfTtVzliX1K +09hRUIUEe7s2jV3YinwjFt3qJAx1Os6s/K9/lXDpmuqQQN+QtDoZ97cNM3tX +mu4moTkyw+L0Ndyf+nKWl5uT8LZmXb4t9svGCS7BfSR06Bf6bcKOiw+Z67Im +IbmJN2ga99c3KtdembiQIFyvuMcEO/nILGUSSMKwpaDqd9zP3x3YUlF2goS/ +i/c3P8TehqKLBUJIiP9fbXMO9vvVay53hZOgUnJpmx421OidNTlPwt4VTuJn +8Hz48i3R2iSbhA0hBazpHPw8w/kH8i6T0CUUKVKH3X33lg0nl4T02x9DzmAX +xb6xy8kngfX+do8Ytv06TeeZchKY6/Wyt2RTqMPwhdeFuyRU6ac+9MHz60qK +UmjXWxI+V5QLBeJ5GBesf1J2igStEPPDatjBDvvDAqZJMEfTOz+kUMiCefqU +9CcSRH8bZ7piL2/sjfSeI+HdnZcBO/G8DXgTckGAnwFfw4s2/8Xzeqf6g8sm +LAbEpJmGCeN5b7t8l1WvOgP0GXUxt3Ae8BnrErLRYMCTHUp8jthJCY8jPbQZ +kHGg2LYY54nB6QGvCAMGXCypdtwYQyGP6xMa9dYMGGtv+qJ2FudLEe5HtDMM ++Ovs/6MV55X099HnSiMZcInNCbXGLrm3TF/tLAN6EzqPzOB80+3PX7M1jgGD +3sNNq7FFuldnHUhlwN1p7yHrkxS6Hi13MLGEATe06nQ6gyjU8m3rr4UnDLDk +l3LZgfNVfk+D+/4+BtR/Quv6/Sl0rnhTd9UzBnROX3FzwjaxUcnxHGZA+8Su +i4E4nw00rdV+Ns6Ao5pT7lk4v32IWgys+s4A8nzp2kde+PwLN3zwWMuEs5Za +di+cKXREVWO0z5MJptY7VxTtoVDQwtqfLoeZwK0h1bMc+1Qb79pZHyYEiSkK +ee+mUILtczvBY0x4pRa+TNUM9+tzoSOGYUx4+03lUcUunIdftgzXJTEhSrC2 +P9UIz6uLZkMZDUyYLWVdWcL5WW/WY8BOQAHUd0yy7QkKGTOk9ggVKEDOMfpS +31Q1UoyMD23TXg+rIi7lHzpVjZQ9de4xR9fDLfv3sZJ/qpBny+FzNwMUYci6 +pPNbWBW6d33AgyOhBOdCrTqT395A39lLC+oNSvCj/n9/TxjeQAeZFQKX9yjD +87WxD3KLKhFHOU2r9qsyUO9ElylzKtDtol/jc3Eq4Lzivc5twwpkv52ErXKq +YMjre1QgtRyt849tVGtVhbOTWYkTPWVIQtCvZo8NC4yQrfhV4TJUZHQ67Ksd +C4RrxJT2CJUhjdNJRmmOLDjtfP7nL4EyZP6Vej7sxoIR39QBW94yFDM4t3jQ +jwVBO6L9Vs+z0Y+CCMOwKBY85Bf1PPaCjUa3pj0rqWDBrF+3AW8JGx0OKso1 +qcLXtyz5lhew0XxVvecnigWtZiIO+66xkSgxvLDxFgve7HsUdzWbjcz4ZWXu +trIgP46tpJXARncGSjyePWcBxb2/0f4YG5muus0KHmZBQ0LY3r9+bDS8s2te +6gULtNujq/K92eh708c45zcskP6p2Tntzkas/A03Zj6wwPSSTECANV5v1CA4 +8TML5J4ZW4tZ4vXE9yP1ryxo32a+rN6cjbxig/pOzLFg7PfP9oWdeL3WmMuS +P1gQGyL3PHs7G0X/zDrY9JMFTq7ytToGbCSsWabq9IcFE+p6DqN6bHTVv2lu +aYkFrlYNvWG6bPR/0aKcKg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.0650087298795988}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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.0650087298795988}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913414579436264`*^9, 3.992129971364645*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"9dc7afde-c341-e84d-a5ba-edd8ee97fb28"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel-> + "In[119]:=",ExpressionUUID->"adc3c3bb-baff-7c45-bc8f-885e51cde7ff"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4Vd0XB3BDCm/KGMpw7zn3ynQpiSj2QiqUJDKPoUwVZYjKUCEk81BU +5muIgySUxKuQCslUKiFpUPdXSJPffv+6z+d57tnnnHX2XutLdz9q6cnDxcXF +z83F9d/v/KuufxkJ6fqiAoMtRpvV9AeuSp00GA5EFLefdVf9PwgknrpLDUej +/HBbg8T6dSjYonyIdzgV+cd/8PStV0Eis5Kpi0MFSHPhRu2++q3o9R3zo9+H +atGK4Y3t8vVmaAfjwxhnqA3xkmnBgTcd0OKQdsbXoX4kZ29c1F3ji9qNSov6 +CiaQ3460ycqnp5DM68Z37qqf0apHTVvbbc8jcT+X8hVG39AVreaJqjWJKHXj +jmZz6x8ozf1V0MnSFDSSvaGVI/wH1eqML+f9kY4SiiKe8khzQ/4drbyTp7OR +ZPrEhbQ8XphxOem5Z+wKirUy0e+f54P4JNlu6vNVdFwn36Urmh/u29yU3iiW +j7Z/+Rl2ZEIQ7thV803EFKCobfvc1m4RgoQ+ZuXrqUKkW5Vz88y91aBhwbxT +ZVmM/H5wIjuFRMAzZnFANasELaoIv2JZiwIMpu+9MVmKtlVUXs/MFIPW4tCE +PqkyxBE1dT3QJg6GQ0YRjgrlaDLR9UDgijWwIXwwma1VgUy+hJhMaUnC8vGf +47H0SvTpIP/xmxFSsFpsZCRH8AaupyRPbJs0xN0f6vEfuYFEHyskUV/WQl+Z +2Nr4mCokE1dtoaUlA/9k/Z0JV61G2So6wmKHZOH1z5nXf2qrkbXZ4+QWX1m4 +4PiOfHezGon6uon4HJMFq5OZOo9vVaOE8gui90/KQsp91mhWUzU6ozQqfjRR +FoIyl77KtVUjj/Xh0o9qZCHQoSj8e2812kjeJc7+loUhY7Ntdz9Xo+61Bpu/ +pcjBqOMZakKEQr1y1QrLsuTAfmwru12UQoOErJRErhzsnjv6pUCMQuPKiz+1 +SuRAXd3Oz0WCQj90a1rDmuTAZe8SrVeKQgoO9N08E3Kwbrf+qWR5CkVf4T4o +oikPFQdJjYuqFIq7dtSK0JGHzNGO9TYsCiUVjhlv0peHYtk3/jQ1CuVUNCpa +75KHY1bXPlLqFKKaA2azHeUhXMuwqkuDQq9ejJ+knZeHFvdVtqNbKKQr05as +PigPkb39EaHbKfSWZLyaGZUH1hWedJoxhS6oxKgUvZaHmSBn4U7sYV3TB1Iz +8tDR12wgsZNCIXb9v7h/y4PQnsVYtgmF7M0CNn0QpkFuwp+yWnMKZcZFXb2j +RYOkoJkoa1sK+SRqdEjr0EA6NbjyA7Z+8sTH4K00OKa0GyLsKDSVZayzEWjw +OXe+sMSeQpqlAgPFJjRQN9nvOOtIof6OFIFLjjTgROTluLlRaBVvwQm3aBpk +ruxIGPKm0PLFe/s552jge+L0iIcPhf7OjmlExdJg867CEA72l1FpzvVEGkj0 ++hXz++HvVZvi/yaTBvs3BnSqHaFQqnuUl0sFDVrLNm2xD6TQmjZXW6cBGoy6 +XKWpheH73T6j/XmQBu3tzzOLsZdX5a45PUIDLTc9F5lwCi3kDA/kvqKBUN7w +uxWncL0CLPa9fE+DCy/f9A+eptBlOpg6/MHXH/ZVsYqikFyU/DY7BTr4OJuY +Po6lUNVxfmJMkQ6vXawcWXG4Pl6cFW4qdBASauhMxHYya392eAMdsh+1UiYX +KJQrccg3VJcOSw0Z95rjKSRdXnU5y5wOp+ynpiIvUoidmxW5bh8d4pxrigax +t1yK9Lq2nw5cjKctKkkUsj1hqVFqS4fEIcQ3gJ2pP991y50OlrsbXsokU0j8 +md7i82A6fNyv/O+lVAoVdSi8tjtJB86dQvQCe9Pt1R1j4XRwmw+UVEijkGXe +ePJUJB22aFu/bMROOXRecS6eDt55v+6MpOP6/e6xEb9Gh2in8+9/ZlJIgOl4 +y/IhHVi/N7m2X8b7QxqZVnTRoZ/uPziP3S1EvOLtocMQD71V6QqFEuen+ep7 +6SB+U2P2IvaqzuPWkqN02HUp7dbeXAqf74TvLz7RQcFNmK8xj0KBLkfiNL/Q +IZDZ2TiB/Wz/PpmLHDok9U++FbpKofRtktv153F9feJSXbElVxWmXV+iQ3r5 +Wu8lbJmaJg1PUQIsjNO4yOsUOlWc9+CuOAEdXvk8xthjOZH2ayQJiC/hC/PC +vhq9I/rhOgIc7gt1lWLTrPr7lJgEeLC7Z8h8CkXuqveMXk/Axl7tbAPs8W3Z +i6NKBLwxCb7jjF3AdKYnqhHwx7zYKwubuTBzbFabgJ63EUY8BRSK+dizbKcu +AT6VKgXrsN+9rs6+to0AqGGGaGKzO4NaLQwIMHM3OueBrXyZW7jOlICI9Neq +LdjxSZOF/+whYE63AT3D/hj9UNtjLwGZDQ5d09iVvhddJKwIKOQyM1hdSCE1 +PenqECcC3k5Fd9hg15Hev3hcCTBSM5/zxt4i2LgzyZ2Ap//anAvHNhyyfVN0 +iIDzFqGtudgP77JVN/gQUJB5278Se3fRj9BmPwIGei6ENWMfCMgW6Q8gYIWw +Rt0Q9gub905OJwiQa9B4PYntqr+l/H0wAf7Rkr4cbJ9/hg2XwglYkh0v4C/C +55mz/lL8GQJE+r6Yi2GfGA55IRFFwLy/loMsdkSx5AnVGAI8k+6lq2MvSzzU +2hBHgKieaps2dnxgw0qjBAKGVJgWCHu13Qq7JxcJuB9zT38HdjqyKbZLJmA8 +WjhpN7a0QilnMpUAPWeWviX21ZULescyCHjiorLXBpv8tiP+VxYBp4fk7ztg +s0cyB2MuE0CTo6W7YLNa3xGieQScyTDodMeuLdE6mneNAH12jpMntvbFmGbF +AgI4XXpWh7DvHB9ccbOIAL4Qo8rD2Ab2ClaolIBHmq2e3tgPIPh6dxkBXild +kf/ZbP2DT9aVBIySQX/++3+v0Bqd8SoCFhOGX/y3nvV3z/N+NQQcDhSQ8cIe +Ha3vW6gjIDtOtuUgtst9PrmztwjojFNuc8WeLLX2WdWI6715h6ITtndS8a2c +ZgKWOcZ8tcWePTHHw2whwPkp1zor7OMOxnupVgJs/R+VmmP/MMi4srUdv8+6 +35m7sE8rTk0/6CBgqov93gCbZ/VmTctOvD+OTOfqYsfOnYsc6ybAUPBJnQb2 +ypcDPYcfE5BRHMhSxk5pY0h/f0qAkOVHATr2mrITnhH9BDxUMjeRxKYHi//N +GCKgclaZw41d4uhhSh8lQGtrn9083j+qRjczK18ScDegifkBW0vYSr19HO+H +pqrpp9jN84Xh5pMELBx9N3YfG8a+PRx5RwCXbZN2HbZpeZrr148EVHgkr0nH +fpo8URk+S0BdwL0rZ7GtQjYtLucQkB81eS4Q23n7sxTZeQIChn3OmmMHvhJt +N+UiwTVifNMSPm+dDxzvlvOQoCQeY/YRW666pEGQj4T1oU9eDGJ3R+hWdguQ +sGo83asSm6C7Z5iKkdDCzb1+H3aoQOWlcgkS4qp6+HSwn3DmLghKkSCo1edE +ww5ru3CmW4aEhf6nJz/jftJ3sOaQqQIJ4uk1B6OwFXb/citXxPfTtVzliX1K +09hRUIUEe7s2jV3YinwjFt3qJAx1Os6s/K9/lXDpmuqQQN+QtDoZ97cNM3tX +mu4moTkyw+L0Ndyf+nKWl5uT8LZmXb4t9svGCS7BfSR06Bf6bcKOiw+Z67Im +IbmJN2ga99c3KtdembiQIFyvuMcEO/nILGUSSMKwpaDqd9zP3x3YUlF2goS/ +i/c3P8TehqKLBUJIiP9fbXMO9vvVay53hZOgUnJpmx421OidNTlPwt4VTuJn +8Hz48i3R2iSbhA0hBazpHPw8w/kH8i6T0CUUKVKH3X33lg0nl4T02x9DzmAX +xb6xy8kngfX+do8Ytv06TeeZchKY6/Wyt2RTqMPwhdeFuyRU6ac+9MHz60qK +UmjXWxI+V5QLBeJ5GBesf1J2igStEPPDatjBDvvDAqZJMEfTOz+kUMiCefqU +9CcSRH8bZ7piL2/sjfSeI+HdnZcBO/G8DXgTckGAnwFfw4s2/8Xzeqf6g8sm +LAbEpJmGCeN5b7t8l1WvOgP0GXUxt3Ae8BnrErLRYMCTHUp8jthJCY8jPbQZ +kHGg2LYY54nB6QGvCAMGXCypdtwYQyGP6xMa9dYMGGtv+qJ2FudLEe5HtDMM ++Ovs/6MV55X099HnSiMZcInNCbXGLrm3TF/tLAN6EzqPzOB80+3PX7M1jgGD +3sNNq7FFuldnHUhlwN1p7yHrkxS6Hi13MLGEATe06nQ6gyjU8m3rr4UnDLDk +l3LZgfNVfk+D+/4+BtR/Quv6/Sl0rnhTd9UzBnROX3FzwjaxUcnxHGZA+8Su +i4E4nw00rdV+Ns6Ao5pT7lk4v32IWgys+s4A8nzp2kde+PwLN3zwWMuEs5Za +di+cKXREVWO0z5MJptY7VxTtoVDQwtqfLoeZwK0h1bMc+1Qb79pZHyYEiSkK +ee+mUILtczvBY0x4pRa+TNUM9+tzoSOGYUx4+03lUcUunIdftgzXJTEhSrC2 +P9UIz6uLZkMZDUyYLWVdWcL5WW/WY8BOQAHUd0yy7QkKGTOk9ggVKEDOMfpS +31Q1UoyMD23TXg+rIi7lHzpVjZQ9de4xR9fDLfv3sZJ/qpBny+FzNwMUYci6 +pPNbWBW6d33AgyOhBOdCrTqT395A39lLC+oNSvCj/n9/TxjeQAeZFQKX9yjD +87WxD3KLKhFHOU2r9qsyUO9ElylzKtDtol/jc3Eq4Lzivc5twwpkv52ErXKq +YMjre1QgtRyt849tVGtVhbOTWYkTPWVIQtCvZo8NC4yQrfhV4TJUZHQ67Ksd +C4RrxJT2CJUhjdNJRmmOLDjtfP7nL4EyZP6Vej7sxoIR39QBW94yFDM4t3jQ +jwVBO6L9Vs+z0Y+CCMOwKBY85Bf1PPaCjUa3pj0rqWDBrF+3AW8JGx0OKso1 +qcLXtyz5lhew0XxVvecnigWtZiIO+66xkSgxvLDxFgve7HsUdzWbjcz4ZWXu +trIgP46tpJXARncGSjyePWcBxb2/0f4YG5muus0KHmZBQ0LY3r9+bDS8s2te +6gULtNujq/K92eh708c45zcskP6p2Tntzkas/A03Zj6wwPSSTECANV5v1CA4 +8TML5J4ZW4tZ4vXE9yP1ryxo32a+rN6cjbxig/pOzLFg7PfP9oWdeL3WmMuS +P1gQGyL3PHs7G0X/zDrY9JMFTq7ytToGbCSsWabq9IcFE+p6DqN6bHTVv2lu +aYkFrlYNvWG6bPR/0aKcKg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4Vd0XB3BDCm/KGMpw7zn3ynQpiSj2QiqUJDKPoUwVZYjKUCEk81BU +5muIgySUxKuQCslUKiFpUPdXSJPffv+6z+d57tnnnHX2XutLdz9q6cnDxcXF +z83F9d/v/KuufxkJ6fqiAoMtRpvV9AeuSp00GA5EFLefdVf9PwgknrpLDUej +/HBbg8T6dSjYonyIdzgV+cd/8PStV0Eis5Kpi0MFSHPhRu2++q3o9R3zo9+H +atGK4Y3t8vVmaAfjwxhnqA3xkmnBgTcd0OKQdsbXoX4kZ29c1F3ji9qNSov6 +CiaQ3460ycqnp5DM68Z37qqf0apHTVvbbc8jcT+X8hVG39AVreaJqjWJKHXj +jmZz6x8ozf1V0MnSFDSSvaGVI/wH1eqML+f9kY4SiiKe8khzQ/4drbyTp7OR +ZPrEhbQ8XphxOem5Z+wKirUy0e+f54P4JNlu6vNVdFwn36Urmh/u29yU3iiW +j7Z/+Rl2ZEIQ7thV803EFKCobfvc1m4RgoQ+ZuXrqUKkW5Vz88y91aBhwbxT +ZVmM/H5wIjuFRMAzZnFANasELaoIv2JZiwIMpu+9MVmKtlVUXs/MFIPW4tCE +PqkyxBE1dT3QJg6GQ0YRjgrlaDLR9UDgijWwIXwwma1VgUy+hJhMaUnC8vGf +47H0SvTpIP/xmxFSsFpsZCRH8AaupyRPbJs0xN0f6vEfuYFEHyskUV/WQl+Z +2Nr4mCokE1dtoaUlA/9k/Z0JV61G2So6wmKHZOH1z5nXf2qrkbXZ4+QWX1m4 +4PiOfHezGon6uon4HJMFq5OZOo9vVaOE8gui90/KQsp91mhWUzU6ozQqfjRR +FoIyl77KtVUjj/Xh0o9qZCHQoSj8e2812kjeJc7+loUhY7Ntdz9Xo+61Bpu/ +pcjBqOMZakKEQr1y1QrLsuTAfmwru12UQoOErJRErhzsnjv6pUCMQuPKiz+1 +SuRAXd3Oz0WCQj90a1rDmuTAZe8SrVeKQgoO9N08E3Kwbrf+qWR5CkVf4T4o +oikPFQdJjYuqFIq7dtSK0JGHzNGO9TYsCiUVjhlv0peHYtk3/jQ1CuVUNCpa +75KHY1bXPlLqFKKaA2azHeUhXMuwqkuDQq9ejJ+knZeHFvdVtqNbKKQr05as +PigPkb39EaHbKfSWZLyaGZUH1hWedJoxhS6oxKgUvZaHmSBn4U7sYV3TB1Iz +8tDR12wgsZNCIXb9v7h/y4PQnsVYtgmF7M0CNn0QpkFuwp+yWnMKZcZFXb2j +RYOkoJkoa1sK+SRqdEjr0EA6NbjyA7Z+8sTH4K00OKa0GyLsKDSVZayzEWjw +OXe+sMSeQpqlAgPFJjRQN9nvOOtIof6OFIFLjjTgROTluLlRaBVvwQm3aBpk +ruxIGPKm0PLFe/s552jge+L0iIcPhf7OjmlExdJg867CEA72l1FpzvVEGkj0 ++hXz++HvVZvi/yaTBvs3BnSqHaFQqnuUl0sFDVrLNm2xD6TQmjZXW6cBGoy6 +XKWpheH73T6j/XmQBu3tzzOLsZdX5a45PUIDLTc9F5lwCi3kDA/kvqKBUN7w +uxWncL0CLPa9fE+DCy/f9A+eptBlOpg6/MHXH/ZVsYqikFyU/DY7BTr4OJuY +Po6lUNVxfmJMkQ6vXawcWXG4Pl6cFW4qdBASauhMxHYya392eAMdsh+1UiYX +KJQrccg3VJcOSw0Z95rjKSRdXnU5y5wOp+ynpiIvUoidmxW5bh8d4pxrigax +t1yK9Lq2nw5cjKctKkkUsj1hqVFqS4fEIcQ3gJ2pP991y50OlrsbXsokU0j8 +md7i82A6fNyv/O+lVAoVdSi8tjtJB86dQvQCe9Pt1R1j4XRwmw+UVEijkGXe +ePJUJB22aFu/bMROOXRecS6eDt55v+6MpOP6/e6xEb9Gh2in8+9/ZlJIgOl4 +y/IhHVi/N7m2X8b7QxqZVnTRoZ/uPziP3S1EvOLtocMQD71V6QqFEuen+ep7 +6SB+U2P2IvaqzuPWkqN02HUp7dbeXAqf74TvLz7RQcFNmK8xj0KBLkfiNL/Q +IZDZ2TiB/Wz/PpmLHDok9U++FbpKofRtktv153F9feJSXbElVxWmXV+iQ3r5 +Wu8lbJmaJg1PUQIsjNO4yOsUOlWc9+CuOAEdXvk8xthjOZH2ayQJiC/hC/PC +vhq9I/rhOgIc7gt1lWLTrPr7lJgEeLC7Z8h8CkXuqveMXk/Axl7tbAPs8W3Z +i6NKBLwxCb7jjF3AdKYnqhHwx7zYKwubuTBzbFabgJ63EUY8BRSK+dizbKcu +AT6VKgXrsN+9rs6+to0AqGGGaGKzO4NaLQwIMHM3OueBrXyZW7jOlICI9Neq +LdjxSZOF/+whYE63AT3D/hj9UNtjLwGZDQ5d09iVvhddJKwIKOQyM1hdSCE1 +PenqECcC3k5Fd9hg15Hev3hcCTBSM5/zxt4i2LgzyZ2Ap//anAvHNhyyfVN0 +iIDzFqGtudgP77JVN/gQUJB5278Se3fRj9BmPwIGei6ENWMfCMgW6Q8gYIWw +Rt0Q9gub905OJwiQa9B4PYntqr+l/H0wAf7Rkr4cbJ9/hg2XwglYkh0v4C/C +55mz/lL8GQJE+r6Yi2GfGA55IRFFwLy/loMsdkSx5AnVGAI8k+6lq2MvSzzU +2hBHgKieaps2dnxgw0qjBAKGVJgWCHu13Qq7JxcJuB9zT38HdjqyKbZLJmA8 +WjhpN7a0QilnMpUAPWeWviX21ZULescyCHjiorLXBpv8tiP+VxYBp4fk7ztg +s0cyB2MuE0CTo6W7YLNa3xGieQScyTDodMeuLdE6mneNAH12jpMntvbFmGbF +AgI4XXpWh7DvHB9ccbOIAL4Qo8rD2Ab2ClaolIBHmq2e3tgPIPh6dxkBXild +kf/ZbP2DT9aVBIySQX/++3+v0Bqd8SoCFhOGX/y3nvV3z/N+NQQcDhSQ8cIe +Ha3vW6gjIDtOtuUgtst9PrmztwjojFNuc8WeLLX2WdWI6715h6ITtndS8a2c +ZgKWOcZ8tcWePTHHw2whwPkp1zor7OMOxnupVgJs/R+VmmP/MMi4srUdv8+6 +35m7sE8rTk0/6CBgqov93gCbZ/VmTctOvD+OTOfqYsfOnYsc6ybAUPBJnQb2 +ypcDPYcfE5BRHMhSxk5pY0h/f0qAkOVHATr2mrITnhH9BDxUMjeRxKYHi//N +GCKgclaZw41d4uhhSh8lQGtrn9083j+qRjczK18ScDegifkBW0vYSr19HO+H +pqrpp9jN84Xh5pMELBx9N3YfG8a+PRx5RwCXbZN2HbZpeZrr148EVHgkr0nH +fpo8URk+S0BdwL0rZ7GtQjYtLucQkB81eS4Q23n7sxTZeQIChn3OmmMHvhJt +N+UiwTVifNMSPm+dDxzvlvOQoCQeY/YRW666pEGQj4T1oU9eDGJ3R+hWdguQ +sGo83asSm6C7Z5iKkdDCzb1+H3aoQOWlcgkS4qp6+HSwn3DmLghKkSCo1edE +ww5ru3CmW4aEhf6nJz/jftJ3sOaQqQIJ4uk1B6OwFXb/citXxPfTtVzliX1K +09hRUIUEe7s2jV3YinwjFt3qJAx1Os6s/K9/lXDpmuqQQN+QtDoZ97cNM3tX +mu4moTkyw+L0Ndyf+nKWl5uT8LZmXb4t9svGCS7BfSR06Bf6bcKOiw+Z67Im +IbmJN2ga99c3KtdembiQIFyvuMcEO/nILGUSSMKwpaDqd9zP3x3YUlF2goS/ +i/c3P8TehqKLBUJIiP9fbXMO9vvVay53hZOgUnJpmx421OidNTlPwt4VTuJn +8Hz48i3R2iSbhA0hBazpHPw8w/kH8i6T0CUUKVKH3X33lg0nl4T02x9DzmAX +xb6xy8kngfX+do8Ytv06TeeZchKY6/Wyt2RTqMPwhdeFuyRU6ac+9MHz60qK +UmjXWxI+V5QLBeJ5GBesf1J2igStEPPDatjBDvvDAqZJMEfTOz+kUMiCefqU +9CcSRH8bZ7piL2/sjfSeI+HdnZcBO/G8DXgTckGAnwFfw4s2/8Xzeqf6g8sm +LAbEpJmGCeN5b7t8l1WvOgP0GXUxt3Ae8BnrErLRYMCTHUp8jthJCY8jPbQZ +kHGg2LYY54nB6QGvCAMGXCypdtwYQyGP6xMa9dYMGGtv+qJ2FudLEe5HtDMM ++Ovs/6MV55X099HnSiMZcInNCbXGLrm3TF/tLAN6EzqPzOB80+3PX7M1jgGD +3sNNq7FFuldnHUhlwN1p7yHrkxS6Hi13MLGEATe06nQ6gyjU8m3rr4UnDLDk +l3LZgfNVfk+D+/4+BtR/Quv6/Sl0rnhTd9UzBnROX3FzwjaxUcnxHGZA+8Su +i4E4nw00rdV+Ns6Ao5pT7lk4v32IWgys+s4A8nzp2kde+PwLN3zwWMuEs5Za +di+cKXREVWO0z5MJptY7VxTtoVDQwtqfLoeZwK0h1bMc+1Qb79pZHyYEiSkK +ee+mUILtczvBY0x4pRa+TNUM9+tzoSOGYUx4+03lUcUunIdftgzXJTEhSrC2 +P9UIz6uLZkMZDUyYLWVdWcL5WW/WY8BOQAHUd0yy7QkKGTOk9ggVKEDOMfpS +31Q1UoyMD23TXg+rIi7lHzpVjZQ9de4xR9fDLfv3sZJ/qpBny+FzNwMUYci6 +pPNbWBW6d33AgyOhBOdCrTqT395A39lLC+oNSvCj/n9/TxjeQAeZFQKX9yjD +87WxD3KLKhFHOU2r9qsyUO9ElylzKtDtol/jc3Eq4Lzivc5twwpkv52ErXKq +YMjre1QgtRyt849tVGtVhbOTWYkTPWVIQtCvZo8NC4yQrfhV4TJUZHQ67Ksd +C4RrxJT2CJUhjdNJRmmOLDjtfP7nL4EyZP6Vej7sxoIR39QBW94yFDM4t3jQ +jwVBO6L9Vs+z0Y+CCMOwKBY85Bf1PPaCjUa3pj0rqWDBrF+3AW8JGx0OKso1 +qcLXtyz5lhew0XxVvecnigWtZiIO+66xkSgxvLDxFgve7HsUdzWbjcz4ZWXu +trIgP46tpJXARncGSjyePWcBxb2/0f4YG5muus0KHmZBQ0LY3r9+bDS8s2te +6gULtNujq/K92eh708c45zcskP6p2Tntzkas/A03Zj6wwPSSTECANV5v1CA4 +8TML5J4ZW4tZ4vXE9yP1ryxo32a+rN6cjbxig/pOzLFg7PfP9oWdeL3WmMuS +P1gQGyL3PHs7G0X/zDrY9JMFTq7ytToGbCSsWabq9IcFE+p6DqN6bHTVv2lu +aYkFrlYNvWG6bPR/0aKcKg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.0650087298795988}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.0650087298795988}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4Vd0XB3BDCm/KGMpw7zn3ynQpiSj2QiqUJDKPoUwVZYjKUCEk81BU +5muIgySUxKuQCslUKiFpUPdXSJPffv+6z+d57tnnnHX2XutLdz9q6cnDxcXF +z83F9d/v/KuufxkJ6fqiAoMtRpvV9AeuSp00GA5EFLefdVf9PwgknrpLDUej +/HBbg8T6dSjYonyIdzgV+cd/8PStV0Eis5Kpi0MFSHPhRu2++q3o9R3zo9+H +atGK4Y3t8vVmaAfjwxhnqA3xkmnBgTcd0OKQdsbXoX4kZ29c1F3ji9qNSov6 +CiaQ3460ycqnp5DM68Z37qqf0apHTVvbbc8jcT+X8hVG39AVreaJqjWJKHXj +jmZz6x8ozf1V0MnSFDSSvaGVI/wH1eqML+f9kY4SiiKe8khzQ/4drbyTp7OR +ZPrEhbQ8XphxOem5Z+wKirUy0e+f54P4JNlu6vNVdFwn36Urmh/u29yU3iiW +j7Z/+Rl2ZEIQ7thV803EFKCobfvc1m4RgoQ+ZuXrqUKkW5Vz88y91aBhwbxT +ZVmM/H5wIjuFRMAzZnFANasELaoIv2JZiwIMpu+9MVmKtlVUXs/MFIPW4tCE +PqkyxBE1dT3QJg6GQ0YRjgrlaDLR9UDgijWwIXwwma1VgUy+hJhMaUnC8vGf +47H0SvTpIP/xmxFSsFpsZCRH8AaupyRPbJs0xN0f6vEfuYFEHyskUV/WQl+Z +2Nr4mCokE1dtoaUlA/9k/Z0JV61G2So6wmKHZOH1z5nXf2qrkbXZ4+QWX1m4 +4PiOfHezGon6uon4HJMFq5OZOo9vVaOE8gui90/KQsp91mhWUzU6ozQqfjRR +FoIyl77KtVUjj/Xh0o9qZCHQoSj8e2812kjeJc7+loUhY7Ntdz9Xo+61Bpu/ +pcjBqOMZakKEQr1y1QrLsuTAfmwru12UQoOErJRErhzsnjv6pUCMQuPKiz+1 +SuRAXd3Oz0WCQj90a1rDmuTAZe8SrVeKQgoO9N08E3Kwbrf+qWR5CkVf4T4o +oikPFQdJjYuqFIq7dtSK0JGHzNGO9TYsCiUVjhlv0peHYtk3/jQ1CuVUNCpa +75KHY1bXPlLqFKKaA2azHeUhXMuwqkuDQq9ejJ+knZeHFvdVtqNbKKQr05as +PigPkb39EaHbKfSWZLyaGZUH1hWedJoxhS6oxKgUvZaHmSBn4U7sYV3TB1Iz +8tDR12wgsZNCIXb9v7h/y4PQnsVYtgmF7M0CNn0QpkFuwp+yWnMKZcZFXb2j +RYOkoJkoa1sK+SRqdEjr0EA6NbjyA7Z+8sTH4K00OKa0GyLsKDSVZayzEWjw +OXe+sMSeQpqlAgPFJjRQN9nvOOtIof6OFIFLjjTgROTluLlRaBVvwQm3aBpk +ruxIGPKm0PLFe/s552jge+L0iIcPhf7OjmlExdJg867CEA72l1FpzvVEGkj0 ++hXz++HvVZvi/yaTBvs3BnSqHaFQqnuUl0sFDVrLNm2xD6TQmjZXW6cBGoy6 +XKWpheH73T6j/XmQBu3tzzOLsZdX5a45PUIDLTc9F5lwCi3kDA/kvqKBUN7w +uxWncL0CLPa9fE+DCy/f9A+eptBlOpg6/MHXH/ZVsYqikFyU/DY7BTr4OJuY +Po6lUNVxfmJMkQ6vXawcWXG4Pl6cFW4qdBASauhMxHYya392eAMdsh+1UiYX +KJQrccg3VJcOSw0Z95rjKSRdXnU5y5wOp+ynpiIvUoidmxW5bh8d4pxrigax +t1yK9Lq2nw5cjKctKkkUsj1hqVFqS4fEIcQ3gJ2pP991y50OlrsbXsokU0j8 +md7i82A6fNyv/O+lVAoVdSi8tjtJB86dQvQCe9Pt1R1j4XRwmw+UVEijkGXe +ePJUJB22aFu/bMROOXRecS6eDt55v+6MpOP6/e6xEb9Gh2in8+9/ZlJIgOl4 +y/IhHVi/N7m2X8b7QxqZVnTRoZ/uPziP3S1EvOLtocMQD71V6QqFEuen+ep7 +6SB+U2P2IvaqzuPWkqN02HUp7dbeXAqf74TvLz7RQcFNmK8xj0KBLkfiNL/Q +IZDZ2TiB/Wz/PpmLHDok9U++FbpKofRtktv153F9feJSXbElVxWmXV+iQ3r5 +Wu8lbJmaJg1PUQIsjNO4yOsUOlWc9+CuOAEdXvk8xthjOZH2ayQJiC/hC/PC +vhq9I/rhOgIc7gt1lWLTrPr7lJgEeLC7Z8h8CkXuqveMXk/Axl7tbAPs8W3Z +i6NKBLwxCb7jjF3AdKYnqhHwx7zYKwubuTBzbFabgJ63EUY8BRSK+dizbKcu +AT6VKgXrsN+9rs6+to0AqGGGaGKzO4NaLQwIMHM3OueBrXyZW7jOlICI9Neq +LdjxSZOF/+whYE63AT3D/hj9UNtjLwGZDQ5d09iVvhddJKwIKOQyM1hdSCE1 +PenqECcC3k5Fd9hg15Hev3hcCTBSM5/zxt4i2LgzyZ2Ap//anAvHNhyyfVN0 +iIDzFqGtudgP77JVN/gQUJB5278Se3fRj9BmPwIGei6ENWMfCMgW6Q8gYIWw +Rt0Q9gub905OJwiQa9B4PYntqr+l/H0wAf7Rkr4cbJ9/hg2XwglYkh0v4C/C +55mz/lL8GQJE+r6Yi2GfGA55IRFFwLy/loMsdkSx5AnVGAI8k+6lq2MvSzzU +2hBHgKieaps2dnxgw0qjBAKGVJgWCHu13Qq7JxcJuB9zT38HdjqyKbZLJmA8 +WjhpN7a0QilnMpUAPWeWviX21ZULescyCHjiorLXBpv8tiP+VxYBp4fk7ztg +s0cyB2MuE0CTo6W7YLNa3xGieQScyTDodMeuLdE6mneNAH12jpMntvbFmGbF +AgI4XXpWh7DvHB9ccbOIAL4Qo8rD2Ab2ClaolIBHmq2e3tgPIPh6dxkBXild +kf/ZbP2DT9aVBIySQX/++3+v0Bqd8SoCFhOGX/y3nvV3z/N+NQQcDhSQ8cIe +Ha3vW6gjIDtOtuUgtst9PrmztwjojFNuc8WeLLX2WdWI6715h6ITtndS8a2c +ZgKWOcZ8tcWePTHHw2whwPkp1zor7OMOxnupVgJs/R+VmmP/MMi4srUdv8+6 +35m7sE8rTk0/6CBgqov93gCbZ/VmTctOvD+OTOfqYsfOnYsc6ybAUPBJnQb2 +ypcDPYcfE5BRHMhSxk5pY0h/f0qAkOVHATr2mrITnhH9BDxUMjeRxKYHi//N +GCKgclaZw41d4uhhSh8lQGtrn9083j+qRjczK18ScDegifkBW0vYSr19HO+H +pqrpp9jN84Xh5pMELBx9N3YfG8a+PRx5RwCXbZN2HbZpeZrr148EVHgkr0nH +fpo8URk+S0BdwL0rZ7GtQjYtLucQkB81eS4Q23n7sxTZeQIChn3OmmMHvhJt +N+UiwTVifNMSPm+dDxzvlvOQoCQeY/YRW666pEGQj4T1oU9eDGJ3R+hWdguQ +sGo83asSm6C7Z5iKkdDCzb1+H3aoQOWlcgkS4qp6+HSwn3DmLghKkSCo1edE +ww5ru3CmW4aEhf6nJz/jftJ3sOaQqQIJ4uk1B6OwFXb/citXxPfTtVzliX1K +09hRUIUEe7s2jV3YinwjFt3qJAx1Os6s/K9/lXDpmuqQQN+QtDoZ97cNM3tX +mu4moTkyw+L0Ndyf+nKWl5uT8LZmXb4t9svGCS7BfSR06Bf6bcKOiw+Z67Im +IbmJN2ga99c3KtdembiQIFyvuMcEO/nILGUSSMKwpaDqd9zP3x3YUlF2goS/ +i/c3P8TehqKLBUJIiP9fbXMO9vvVay53hZOgUnJpmx421OidNTlPwt4VTuJn +8Hz48i3R2iSbhA0hBazpHPw8w/kH8i6T0CUUKVKH3X33lg0nl4T02x9DzmAX +xb6xy8kngfX+do8Ytv06TeeZchKY6/Wyt2RTqMPwhdeFuyRU6ac+9MHz60qK +UmjXWxI+V5QLBeJ5GBesf1J2igStEPPDatjBDvvDAqZJMEfTOz+kUMiCefqU +9CcSRH8bZ7piL2/sjfSeI+HdnZcBO/G8DXgTckGAnwFfw4s2/8Xzeqf6g8sm +LAbEpJmGCeN5b7t8l1WvOgP0GXUxt3Ae8BnrErLRYMCTHUp8jthJCY8jPbQZ +kHGg2LYY54nB6QGvCAMGXCypdtwYQyGP6xMa9dYMGGtv+qJ2FudLEe5HtDMM ++Ovs/6MV55X099HnSiMZcInNCbXGLrm3TF/tLAN6EzqPzOB80+3PX7M1jgGD +3sNNq7FFuldnHUhlwN1p7yHrkxS6Hi13MLGEATe06nQ6gyjU8m3rr4UnDLDk +l3LZgfNVfk+D+/4+BtR/Quv6/Sl0rnhTd9UzBnROX3FzwjaxUcnxHGZA+8Su +i4E4nw00rdV+Ns6Ao5pT7lk4v32IWgys+s4A8nzp2kde+PwLN3zwWMuEs5Za +di+cKXREVWO0z5MJptY7VxTtoVDQwtqfLoeZwK0h1bMc+1Qb79pZHyYEiSkK +ee+mUILtczvBY0x4pRa+TNUM9+tzoSOGYUx4+03lUcUunIdftgzXJTEhSrC2 +P9UIz6uLZkMZDUyYLWVdWcL5WW/WY8BOQAHUd0yy7QkKGTOk9ggVKEDOMfpS +31Q1UoyMD23TXg+rIi7lHzpVjZQ9de4xR9fDLfv3sZJ/qpBny+FzNwMUYci6 +pPNbWBW6d33AgyOhBOdCrTqT395A39lLC+oNSvCj/n9/TxjeQAeZFQKX9yjD +87WxD3KLKhFHOU2r9qsyUO9ElylzKtDtol/jc3Eq4Lzivc5twwpkv52ErXKq +YMjre1QgtRyt849tVGtVhbOTWYkTPWVIQtCvZo8NC4yQrfhV4TJUZHQ67Ksd +C4RrxJT2CJUhjdNJRmmOLDjtfP7nL4EyZP6Vej7sxoIR39QBW94yFDM4t3jQ +jwVBO6L9Vs+z0Y+CCMOwKBY85Bf1PPaCjUa3pj0rqWDBrF+3AW8JGx0OKso1 +qcLXtyz5lhew0XxVvecnigWtZiIO+66xkSgxvLDxFgve7HsUdzWbjcz4ZWXu +trIgP46tpJXARncGSjyePWcBxb2/0f4YG5muus0KHmZBQ0LY3r9+bDS8s2te +6gULtNujq/K92eh708c45zcskP6p2Tntzkas/A03Zj6wwPSSTECANV5v1CA4 +8TML5J4ZW4tZ4vXE9yP1ryxo32a+rN6cjbxig/pOzLFg7PfP9oWdeL3WmMuS +P1gQGyL3PHs7G0X/zDrY9JMFTq7ytToGbCSsWabq9IcFE+p6DqN6bHTVv2lu +aYkFrlYNvWG6bPR/0aKcKg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.0650087298795988}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, + 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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, 15}, {0., 0.0650087298795988}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}, + 3.9921299715241623`*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"8597eeb0-a279-3e42-8a8c-fa9517bb4736"] +}, 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[120]:=",ExpressionUUID->"1ecbbb3f-ee46-da42-8494-bab66d31929d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5774327686647045`*^-184\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 120, + 1010, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423358439445`*^9, 3.9921299716151543`*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"bdf2b3f6-920c-9b45-8c60-d69a2046a75e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.7982636502938937`*^-188\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 120, 1011, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423358439445`*^9, 3.9921299716361523`*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"dc32e637-7b02-7f48-8e69-325eea64b144"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.963938629970536`*^-192\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 120, 1012, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423358439445`*^9, 3.9921299716501637`*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"cc77974a-857d-9d47-9fb1-4764e4b31b02"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 120, 1013, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423358439445`*^9, 3.992129971665144*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"a9026083-2a5e-ec46-8fa9-83f3ccbb3510"], + +Cell[BoxData["18.17954530564311`"], "Output", + CellChangeTimes->{3.9913423425170345`*^9, 3.9921300415919304`*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"d8194b6a-bd9d-e94b-99bf-c769197dcb01"] +}, 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.9918466382952557`*^9, 3.9918466432862854`*^9}}, + CellLabel-> + "In[121]:=",ExpressionUUID->"fc5d2c23-4a6f-a449-ab65-d4efe503e761"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2447919524607705`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 121, 1014, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423425545177`*^9, 3.992130041687914*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"2ac15d92-0808-d74e-af32-471335eac39e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.933566922134998`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 121, 1015, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423425545177`*^9, 3.9921300417100945`*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"a355fb44-28a8-e246-a2ff-1493745b35e2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.768548787598016`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 121, 1016, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423425545177`*^9, 3.992130041726492*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"accce81c-fe58-4c42-82d7-29bc1aa7eb3d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 121, 1017, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423425545177`*^9, 3.992130041741499*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"4a538572-ccf4-cb46-b60f-73e345023511"], + +Cell[BoxData["5.143995053534221`"], "Output", + CellChangeTimes->{3.9913423499055786`*^9, 3.9921300534736214`*^9}, + CellLabel-> + "Out[121]=",ExpressionUUID->"88f3f79f-2bd9-b34d-a93f-d3ea6b39656a"] +}, 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.9918466470672035`*^9, 3.991846650208416*^9}}, + CellLabel-> + "In[122]:=",ExpressionUUID->"43c7013a-a6e2-1a44-9690-1cefd2c28187"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2447919524607705`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 122, 1018, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423499435787`*^9, 3.992130053564699*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"2fda0384-2fd8-a049-980a-721ba5b5bfa1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.933566922134998`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 122, 1019, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423499435787`*^9, 3.9921300536026115`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"74b6d9cb-2975-f244-a896-0e07cb6638e3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.768548787598016`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 122, 1020, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423499435787`*^9, 3.9921300536186104`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"1c9412d7-3ca9-ca47-8a98-1e1e861a872c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 122, 1021, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423499435787`*^9, 3.992130053632704*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"a774d273-2e30-5d4b-a130-a51a2ca8d5f8"], + +Cell[BoxData["37.36160799552774`"], "Output", + CellChangeTimes->{3.991342356382967*^9, 3.9921300643526745`*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"bcc94893-2469-2343-8b4c-49888e60b717"] +}, 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.99184665401457*^9, 3.991846657234188*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"41fb449c-01a0-ed48-856e-cc313bd0a6c7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2447919524607705`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 123, 1022, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342356420965*^9, 3.992130064444765*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"047772dd-b91b-3044-9358-e46708c94c96"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.933566922134998`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 123, 1023, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342356420965*^9, 3.992130064473671*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"65bb3c1c-62f1-b849-ac92-f994aee61c7e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.768548787598016`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 123, 1024, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342356420965*^9, 3.9921300644866905`*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"c84a5632-dc29-044b-8dac-d68da2833025"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 123, 1025, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342356420965*^9, 3.992130064500696*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"0263e6ee-7a46-6749-873d-ce424ba985d3"], + +Cell[BoxData["26.495894058449853`"], "Output", + CellChangeTimes->{3.9913423600715523`*^9, 3.992130072221712*^9}, + CellLabel-> + "Out[123]=",ExpressionUUID->"d548434a-1be7-7f46-af49-0572264f2578"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991846664151518*^9, 3.991846668968689*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"63e2fa1e-7c56-c749-a270-c9c703386fca"], + +Cell[BoxData["0.16349274036585104`"], "Output", + CellChangeTimes->{3.9913423601046352`*^9, 3.9921300722986183`*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"b3eb6851-1046-454b-a219-231e322c206b"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991846671829691*^9, 3.991846673735302*^9}, + 3.9919237989916477`*^9}, + CellLabel-> + "In[125]:=",ExpressionUUID->"8b2e971d-5760-5e43-92fb-a0baf224e1e6"], + +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[126]:=",ExpressionUUID->"ed5b29da-ad52-224c-9e8e-5cfb6cba7ae5"], + +Cell[BoxData["38.850251957567444`"], "Output", + CellChangeTimes->{3.9913423601345863`*^9, 3.9921300723306103`*^9}, + CellLabel-> + "Out[126]=",ExpressionUUID->"a83580fa-10e6-7c45-9ad1-aaeba01be80a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[127]:=",ExpressionUUID->"52bec50b-93fb-4b4d-b447-2d6401f3d9c3"], + +Cell[BoxData["1.500103387489979`"], "Output", + CellChangeTimes->{3.9913423601709976`*^9, 3.992130072357733*^9}, + CellLabel-> + "Out[127]=",ExpressionUUID->"661a93b0-5626-404d-aae8-221e8bbe8af6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[128]:=",ExpressionUUID->"1256eede-590d-b745-a810-815fbd90d864"], + +Cell[BoxData["58.27939456638611`"], "Output", + CellChangeTimes->{3.9913423602320137`*^9, 3.992130072380718*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"87135b3c-74f5-ec40-8026-c12840b6d19a"] +}, 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[129]:=",ExpressionUUID->"26b3e9a1-c12d-c340-b102-39e3418b2423"], + +Cell[BoxData["0.005254331472375037`"], "Output", + CellChangeTimes->{3.991342360260002*^9, 3.992130072409628*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"1f26cde7-8218-134d-93c6-bdf23cebf8d8"] +}, 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[130]:=",ExpressionUUID->"f1c368f7-48c1-ae41-985d-84d539f430bf"], + +Cell[BoxData["12.226051115168305`"], "Output", + CellChangeTimes->{3.9913423603598785`*^9, 3.99213007257975*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"88e709b0-2703-e443-af6a-7ba05a410153"] +}, 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[131]:=",ExpressionUUID->"8303e334-ad11-5445-af0f-63c02c371294"], + +Cell[BoxData["0.007158852153868708`"], "Output", + CellChangeTimes->{3.991342360375868*^9, 3.9921300726047497`*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"ba6131d2-1f22-5640-af07-db5c54cd2649"] +}, 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[132]:=",ExpressionUUID->"9a6f9d0e-1f18-634f-a091-d3e4beab45d1"], + +Cell[BoxData["10.47425744141865`"], "Output", + CellChangeTimes->{3.991342360471882*^9, 3.992130072779648*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"789f803a-0f2f-bf45-bf42-a99bbd332e51"] +}, 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[133]:=",ExpressionUUID->"d36c329f-0f97-3149-b3e7-38d2ece236d0"], + +Cell[BoxData["0.4398388669954015`"], "Output", + CellChangeTimes->{3.991342360486868*^9, 3.992130072799711*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"52f34c91-2b30-9344-9c63-5dab12d1454d"] +}, 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[134]:=",ExpressionUUID->"9d78a1b5-e3d2-144d-9443-73ce54c6aaab"], + +Cell[BoxData["0.5601611330045986`"], "Output", + CellChangeTimes->{3.9913423605138645`*^9, 3.99213007282378*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"1a726864-ebc7-5c41-a954-9b807c2f8f53"] +}, 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[135]:=",ExpressionUUID->"66c99cb8-7b1e-c84b-9bf9-362f26e0fb97"], + +Cell[BoxData["0.24638063807560304`"], "Output", + CellChangeTimes->{3.9913423605448647`*^9, 3.9921300728479176`*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"22518695-b27a-7241-807c-1ec217e1ca82"] +}, 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.9918466934711*^9}, + CellLabel-> + "In[136]:=",ExpressionUUID->"f0de9d8e-43d1-8b49-87d3-7f90d7e4f5e3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4869778192568586`*^-219\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 136, 1026, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342360571863*^9, 3.992130072896927*^9}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"0e78e33a-f9d5-b24a-ba6e-281486da003f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.522435238209719`*^-225\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 136, 1027, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342360571863*^9, 3.9921300729160023`*^9}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"8dfb5f0e-4253-2145-b818-d2b1c34f6454"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.9204885474685138`*^-230\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 136, 1028, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342360571863*^9, 3.9921300729339924`*^9}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"dc806c02-fd49-7049-a57d-9853ce5c4577"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 136, 1029, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342360571863*^9, 3.9921300729498825`*^9}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"25c15a50-9d08-424d-a869-48214973a2de"], + +Cell[BoxData["12.226051115168298`"], "Output", + CellChangeTimes->{3.9913423642473736`*^9, 3.9921300803576946`*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"f3749c06-9880-c54d-b147-1e59d1f3cbcc"] +}, 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.9918466985968094`*^9}, + CellLabel-> + "In[137]:=",ExpressionUUID->"61250ade-2a8a-1a4d-bb58-5bb7aa60c04a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4869778192568586`*^-219\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 137, 1030, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342364284378*^9, 3.992130080489689*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"4b7824c2-4f18-ab45-9575-f7c1a9b272cf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.522435238209719`*^-225\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 137, 1031, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342364284378*^9, 3.9921300805087013`*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"e704cbd4-5e20-7844-915e-5ddceeb50903"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.9204885474685138`*^-230\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 137, 1032, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342364284378*^9, 3.9921300805207005`*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"54b9340a-99bb-5b4a-b925-97596f1713e2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 137, 1033, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342364284378*^9, 3.99213008053458*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"e01b9511-eda7-9d4f-8a71-3b3fe37eb39a"], + +Cell[BoxData["10.47425744141864`"], "Output", + CellChangeTimes->{3.9913423679416714`*^9, 3.9921300876861305`*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"f580162c-b30b-5343-9714-2c6f4aa02989"] +}, 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.991846701939392*^9}, + CellLabel-> + "In[138]:=",ExpressionUUID->"020bdd6e-add3-0a46-9b39-04b7ffae8470"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Xk4VdsbB3AJmTMrLplLUjJPv9ZbSMmUVIcQx9nbkMiQiGgwFBFS9NyK +DBmSEkm4XUVy6xSi0kBkO4kMmc4m6rf6Yz/7+Txr73d911rPfrcqM8SF4OXh +4RnG15976KuNax90vNqy5f78TotcGm0ZLzJiWlcg/seNb82x+/OMszWsG1Hr +e7ETZtjOrJcCogZPkbvLmKUJdlVUfDO/NRs11hyQM8Q+17qqKb68Eyk/cRPS +w37YEXp9Uf8NmggbltXBHvnwPDa6oQc9mBO01MRWGFI/MGf1CUFNY4wy9q6J +WLNw9md0fif/GznsR4sjIlHlA+h+KmUrjv32lHxMbfAgUkz26ObDHhewHpnR +H0Km8SHHF3JoJHD+iJsBl4OaxteYT2ArS15rC20YRqeTj0gPYjsqzt0ct/qO +Zlb+kmrDJvPV5HQFx5Hisa1mD7HjNZ0SD7EnUODc5ugy7B757s0R5T/QbIr2 +9mRslntgwMXzU6i2w7QrAnvyKs+Ne8HTqOwC/3EfbEE1XYkf+rPI1nRExhQ7 +m9VsKyE7h5CIqJAatkqJW/wm7hziav+WE8E23ZA0frgBr+N4yMkPl2nkb/yZ +PWK1iI61rkkJxp6JOsonrLWETnWGOuzGPtkgYqkt+AsZrnm23gA7F0xv+bF/ +o8KsXIOZSzhfcZt1WPkyWO9QGXcIu7z1Yv8pRV6w9p6UssWe/OoVm3meFwIC +jj5WxY5dP1t9N3g5ZO8MOtydjfPeUVWf0OcH1zsyvJuwP3R8f/SrkB9ueUcE +LMdWmXrgLi4rALIhrNG3F2lUYeiYpcsVgFZCBcVgtzw8viyoQRDO/dqy9mEW +jWabuz4PW4nCdP8ZPuFMGknZi0rEPBKFz/bv9F5k0Eiv2xrEzMTAhxPgnIod +SN3P37xRHPKuZgcIYh/hZev9T1QCuPaCAnPpNBpSq/yROCcJCQF59PXzeH/I +50LtBlIwcWvCxwmb9xZHdVWoFIi+bfr3VyrOa7DGpXxUClqjwc0d290q496r +fmnodEcC/Ck0avcNC5d/IQuLx056rkumUV9Jeqq3oBwoTskqtCXR6PtoeWGZ +jRx0qtSxSWzhiMEuiyY5KMy9IHMjkUbWCa6G3vfloaz90mahBBrVFxnPluat +hr4p6/qSkzQqGlqINI9QguqNup+Vo2m0Y29yX/htJZiKeq53MwrXb5Hefpuj +BHKm3GsbsA2LNsiquCmD34+IF8bH8H4yvar5t6wBGdHtkXCURlMT/ceGz6iA +Sa20lnYojaQPW9dUO6jBy4FP7c7+NOIUCfs7B6rBwcuBHQ1+NKr71KE4lqQG +G+L/ntTE9rD3PKPVpAY8oscyuATOpxPpckVfHSzWSLpk+OL5R0om4+Q1oHyS +sZTjRSNXPxFduwFNqNDu5F3mSiMUuVd//5ImTLBFG/bsodH6xDwT1mot4O1x +yS92oRFPocG2uN1a8OT0tantu2l0u+/A/nuPtQCdzaqPd8Tf576KUwoFa0Gx +ou7nfztwPmuHtyNMbSh5ORrwxJJGimoX4lOpDZDt9LbeXo1GjSkz2vO8uqBl +HDDHUMX5p926SVVd8NssbMtSodH1Fg3tbV66EMs+ti5KmUZqfvWv6Xe60G0q +P52tgPNVDGmSLzZC5O/m/gIpGikpKpMqbnqwTOj8tCQvjTYUR4j+RPqg6ae8 +y76Pi5isM7O6jvqQVXiQNujlolz1rD5vD31oaWYMK3ziouUFd+62RulD1/ih +TM57LvpwfcQ1q0ofLObGxI++4aJzud7XtNUN4KNy2ngwm4s4qfYbGQKGwPY1 +4ul5yEU3wjSc77ON4K3S2860LC7qiEQmCcVmoHMnPcTBkItUvd44egb9D16x +x5md7DlE/K6tVIoGUFglWPTcdw7Jj9atkGdug59086L0yCyKMLD8lLXeGkx2 +5O8NCZtFzLHFNukRG4g9unK6np5Bt7eFr8hrt4WAFV1pYqEzqGgm8HFF9k44 +k6CXZDI5jeitq162xO+CkUJG6X7fadTLs/zHgI8DREhe2zreM4WC/wrJOKXu +BHertrUUMaZQZUBb06VEZwhUyVmwaP+Bjk+v5uoE7Ia0VaLlu3bjPmm3fd+z +gy4Qvqs2k489icwOZG4d2r0H3mh7/jtlP4ler74W2GLgCjPsvCXvmgmkcPNM +Y+m6vWB+a69tXMs4qutfb+8otg9Gp+56hYyNIeXuSb/IsX0gU2vf46A+hgwu +ZVYU9u+HhOR7VkIu39E1vumNWc0McEsv83DMHUW1Wzd9SHzoBmxx5aIz70dQ +rkmK5GK5O6iQOq3v1o2g9o/FSQbnDwDrlAnf6bRv6L7DVY0jJz2gUPRj4baJ +YfTj8B6eYJYnvMxJmVhiDaPZ7dr+41Ze4Nby6bA25ysqHXtPhxsfBMPLSzbK +5FfEuFHs6ynqDSfueVpG4v9O9b1dB5cne8OTkeX5nLMcZKb4ev7cvDdkmXZM +2a3nIPV+vw+dAT7gMVDCDH8zhCiRQ05XB33glQgzS/b0EOpId/S13csEmarP +XpaWQyg7Kk/kaAcTmipzRYTmKdT46Pe8705fWIx5mhfzL4VWekCyQb0vBJ3L +XtyYSSEVmWftfzX6AkPRu/5oBoX02A6rBB75Qvdv1cXGCxRysTxQ1vPYF5L8 +/UQc0imU/VfkixP/+cKHaAlGeCqFFHpvrWzr8QVC+lZBTyKFNLzkcz24vlAr +frmFP4ZCZt7jpYmGLNyfL5wbJil088pkuKMxC+zTzNTdsWW6prbIm7KADZYb +2QSFxm243aUWLDhkZJRbxaJwv+FZxt7GAhf1/Q2nmBQS50q6Se1mgan7MTMT +LwpRaUZCeYdZIH3q2/jcXgrtfmbS7RfCAv4FujQS+xGPeZ5eKAvkD1d3zblS +6Er4FqMnESzoKJaJofdQyNHN1mcohgV8IvMSy1wo9FDD7aFOCgte8/W6rnWk +UHpDbEDdTRbMWacrtG2n0GH9HLOoUhbUpispM7Dty6qETMtZcCHQK23YhkLC +OZyyB7dZ4B0xWCmMnRjmPFJbwwKnqVNLe6woFKutcej+ExaIvd73dAFRKDDn +RdC9PhbEyRJfcs0otFOcYxnWj/djlN/VGHtdIo+Y/hcW1H/s1us2pRAnzOh2 +1RALNpWO6Uhi+zjmjd39jvNuzl+bYUwhBn948J0FFog6N20uMKCQbbjCkQo5 +AkJDY4/JbaTQk7wku6xVBNQ5aUrU61LIkj2lEaVAgFFniJYXtp7mi/dWygQE +Puh5UbKBQqvfxVh91CQgRSVhHnQoNGreKydsREBfctGnlHUUusCb/4/fHgKq +vJ1uxqrj9W8SzXXYS0DaR8boJuyEA1FhBvsJWHst6fagGoWiapzX/nYn4PAz +KLPH9iGXZV5mEiDX8PKEhiqFDJ4zWU9DCehf5pA7qkyhd5maIuoZBASBZuw7 +BQpVIjH/4UwCxP1yQ69jJ4zNtNy+SMAql7IuAlt/Z0ucaQ4BF63+7p1djc+P +x3fK4ToB+jonBRWxt4fkv4+qIMBSxacuWp5CSkpnjbdUEjDTVBxpiz3zPOTi +8rsE5LkRN2SxC7SQQ3o1AfUMB8tqOQot9fY2FdYTEPzybPK0LIVq7BVLX7UR +8Oj7UuhZGQqlLvDyZz8n4LOUINcDm1k64uPGJuDg0+DhzdgSfPWKVDue76Wd +RK80hYIaGBfm3xLQ6yYWYYqtvv5ypMYQAcladinLpSi08O5E1zcOAeO/93T3 +SVKoI5HQuzNMwGXP/JR67LgBwxGz7wRc+GfBIhz7Q26Xp9M0AT8q0qq+SVAo +a4WkzfFlJGjc4HJGVuJ+MNV7IGI5CSEyo/H/YX/tLQ8L5ifBZcOtvFJsyxrr +fKYQCRV5KeH+2BzvqJ92kiTo+F8JGhfH+e1tpGykSfApbrHoxLYwkdJGsiS0 +Dt7JrMHOEKvYZ7CaBPfsps7YP+P1n6sUVUlYf7mwQBqbLK5ok1UnAcWVlCyI +4eczoj+v1CRhMdrb4As2h5QW49MmQaXue9+9P+PStv7f9UhYreyQ5I5d/0s6 +nqNPAsOqp8kGe+hb/6V+Q2yblac3Y5s3HW/uNiWh7GlsrjA2FVSp/A+QUJlk +LtssivsHI8bowTYSXDcJJd7DNrPaYV9lTYKgYWxMAXb66i/RxTvweqTtF89g +1/HdycizI2HYuyTpKPbgREzJFXsSgsYLc/ywTVtl36Q5k7Bv4YSDAzaz6sto +sgsJdaruU4CddvUO72lXvN8fu5WMsL+E7dSLZJAQVlgouAZbzEvO9og7Cecz +557J/Km3c9Az0IOE/zqHxET+vL/mRKqXNwk39+TozovgPMJ2BQwmCeIVjBU/ +sL/Myj10YZEgkFDj9w1bbGCw3Z4kQSqq3PELtin7Lme7PwnZOuaNH7GZD04s +QSAJT3f43n2DnVZgJ2MRRELjSU2djj/10+R1jIJJCE89ueHFn/pR1NZNR/D4 +2oiaVmxRVhVDO4wEZ0We5ifYJk5xIeoROJ++BuPfP/XNdyUpRZKgtrU/vBH7 +vOaqa/JR+PxVDeXqsWslhqolj5PQUL0G1WEP/Kx6LhJLQkd/wXjtn/pf4wb4 +40gIyPlH44+NX++if8fj9b4MGbiP/X8X7tQl + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk4VdsbB3AJmTMrLplLUjJPv9ZbSMmUVIcQx9nbkMiQiGgwFBFS9NyK +DBmSEkm4XUVy6xSi0kBkO4kMmc4m6rf6Yz/7+Txr73d911rPfrcqM8SF4OXh +4RnG15976KuNax90vNqy5f78TotcGm0ZLzJiWlcg/seNb82x+/OMszWsG1Hr +e7ETZtjOrJcCogZPkbvLmKUJdlVUfDO/NRs11hyQM8Q+17qqKb68Eyk/cRPS +w37YEXp9Uf8NmggbltXBHvnwPDa6oQc9mBO01MRWGFI/MGf1CUFNY4wy9q6J +WLNw9md0fif/GznsR4sjIlHlA+h+KmUrjv32lHxMbfAgUkz26ObDHhewHpnR +H0Km8SHHF3JoJHD+iJsBl4OaxteYT2ArS15rC20YRqeTj0gPYjsqzt0ct/qO +Zlb+kmrDJvPV5HQFx5Hisa1mD7HjNZ0SD7EnUODc5ugy7B757s0R5T/QbIr2 +9mRslntgwMXzU6i2w7QrAnvyKs+Ne8HTqOwC/3EfbEE1XYkf+rPI1nRExhQ7 +m9VsKyE7h5CIqJAatkqJW/wm7hziav+WE8E23ZA0frgBr+N4yMkPl2nkb/yZ +PWK1iI61rkkJxp6JOsonrLWETnWGOuzGPtkgYqkt+AsZrnm23gA7F0xv+bF/ +o8KsXIOZSzhfcZt1WPkyWO9QGXcIu7z1Yv8pRV6w9p6UssWe/OoVm3meFwIC +jj5WxY5dP1t9N3g5ZO8MOtydjfPeUVWf0OcH1zsyvJuwP3R8f/SrkB9ueUcE +LMdWmXrgLi4rALIhrNG3F2lUYeiYpcsVgFZCBcVgtzw8viyoQRDO/dqy9mEW +jWabuz4PW4nCdP8ZPuFMGknZi0rEPBKFz/bv9F5k0Eiv2xrEzMTAhxPgnIod +SN3P37xRHPKuZgcIYh/hZev9T1QCuPaCAnPpNBpSq/yROCcJCQF59PXzeH/I +50LtBlIwcWvCxwmb9xZHdVWoFIi+bfr3VyrOa7DGpXxUClqjwc0d290q496r +fmnodEcC/Ck0avcNC5d/IQuLx056rkumUV9Jeqq3oBwoTskqtCXR6PtoeWGZ +jRx0qtSxSWzhiMEuiyY5KMy9IHMjkUbWCa6G3vfloaz90mahBBrVFxnPluat +hr4p6/qSkzQqGlqINI9QguqNup+Vo2m0Y29yX/htJZiKeq53MwrXb5Hefpuj +BHKm3GsbsA2LNsiquCmD34+IF8bH8H4yvar5t6wBGdHtkXCURlMT/ceGz6iA +Sa20lnYojaQPW9dUO6jBy4FP7c7+NOIUCfs7B6rBwcuBHQ1+NKr71KE4lqQG +G+L/ntTE9rD3PKPVpAY8oscyuATOpxPpckVfHSzWSLpk+OL5R0om4+Q1oHyS +sZTjRSNXPxFduwFNqNDu5F3mSiMUuVd//5ImTLBFG/bsodH6xDwT1mot4O1x +yS92oRFPocG2uN1a8OT0tantu2l0u+/A/nuPtQCdzaqPd8Tf576KUwoFa0Gx +ou7nfztwPmuHtyNMbSh5ORrwxJJGimoX4lOpDZDt9LbeXo1GjSkz2vO8uqBl +HDDHUMX5p926SVVd8NssbMtSodH1Fg3tbV66EMs+ti5KmUZqfvWv6Xe60G0q +P52tgPNVDGmSLzZC5O/m/gIpGikpKpMqbnqwTOj8tCQvjTYUR4j+RPqg6ae8 +y76Pi5isM7O6jvqQVXiQNujlolz1rD5vD31oaWYMK3ziouUFd+62RulD1/ih +TM57LvpwfcQ1q0ofLObGxI++4aJzud7XtNUN4KNy2ngwm4s4qfYbGQKGwPY1 +4ul5yEU3wjSc77ON4K3S2860LC7qiEQmCcVmoHMnPcTBkItUvd44egb9D16x +x5md7DlE/K6tVIoGUFglWPTcdw7Jj9atkGdug59086L0yCyKMLD8lLXeGkx2 +5O8NCZtFzLHFNukRG4g9unK6np5Bt7eFr8hrt4WAFV1pYqEzqGgm8HFF9k44 +k6CXZDI5jeitq162xO+CkUJG6X7fadTLs/zHgI8DREhe2zreM4WC/wrJOKXu +BHertrUUMaZQZUBb06VEZwhUyVmwaP+Bjk+v5uoE7Ia0VaLlu3bjPmm3fd+z +gy4Qvqs2k489icwOZG4d2r0H3mh7/jtlP4ler74W2GLgCjPsvCXvmgmkcPNM +Y+m6vWB+a69tXMs4qutfb+8otg9Gp+56hYyNIeXuSb/IsX0gU2vf46A+hgwu +ZVYU9u+HhOR7VkIu39E1vumNWc0McEsv83DMHUW1Wzd9SHzoBmxx5aIz70dQ +rkmK5GK5O6iQOq3v1o2g9o/FSQbnDwDrlAnf6bRv6L7DVY0jJz2gUPRj4baJ +YfTj8B6eYJYnvMxJmVhiDaPZ7dr+41Ze4Nby6bA25ysqHXtPhxsfBMPLSzbK +5FfEuFHs6ynqDSfueVpG4v9O9b1dB5cne8OTkeX5nLMcZKb4ev7cvDdkmXZM +2a3nIPV+vw+dAT7gMVDCDH8zhCiRQ05XB33glQgzS/b0EOpId/S13csEmarP +XpaWQyg7Kk/kaAcTmipzRYTmKdT46Pe8705fWIx5mhfzL4VWekCyQb0vBJ3L +XtyYSSEVmWftfzX6AkPRu/5oBoX02A6rBB75Qvdv1cXGCxRysTxQ1vPYF5L8 +/UQc0imU/VfkixP/+cKHaAlGeCqFFHpvrWzr8QVC+lZBTyKFNLzkcz24vlAr +frmFP4ZCZt7jpYmGLNyfL5wbJil088pkuKMxC+zTzNTdsWW6prbIm7KADZYb +2QSFxm243aUWLDhkZJRbxaJwv+FZxt7GAhf1/Q2nmBQS50q6Se1mgan7MTMT +LwpRaUZCeYdZIH3q2/jcXgrtfmbS7RfCAv4FujQS+xGPeZ5eKAvkD1d3zblS +6Er4FqMnESzoKJaJofdQyNHN1mcohgV8IvMSy1wo9FDD7aFOCgte8/W6rnWk +UHpDbEDdTRbMWacrtG2n0GH9HLOoUhbUpispM7Dty6qETMtZcCHQK23YhkLC +OZyyB7dZ4B0xWCmMnRjmPFJbwwKnqVNLe6woFKutcej+ExaIvd73dAFRKDDn +RdC9PhbEyRJfcs0otFOcYxnWj/djlN/VGHtdIo+Y/hcW1H/s1us2pRAnzOh2 +1RALNpWO6Uhi+zjmjd39jvNuzl+bYUwhBn948J0FFog6N20uMKCQbbjCkQo5 +AkJDY4/JbaTQk7wku6xVBNQ5aUrU61LIkj2lEaVAgFFniJYXtp7mi/dWygQE +Puh5UbKBQqvfxVh91CQgRSVhHnQoNGreKydsREBfctGnlHUUusCb/4/fHgKq +vJ1uxqrj9W8SzXXYS0DaR8boJuyEA1FhBvsJWHst6fagGoWiapzX/nYn4PAz +KLPH9iGXZV5mEiDX8PKEhiqFDJ4zWU9DCehf5pA7qkyhd5maIuoZBASBZuw7 +BQpVIjH/4UwCxP1yQ69jJ4zNtNy+SMAql7IuAlt/Z0ucaQ4BF63+7p1djc+P +x3fK4ToB+jonBRWxt4fkv4+qIMBSxacuWp5CSkpnjbdUEjDTVBxpiz3zPOTi +8rsE5LkRN2SxC7SQQ3o1AfUMB8tqOQot9fY2FdYTEPzybPK0LIVq7BVLX7UR +8Oj7UuhZGQqlLvDyZz8n4LOUINcDm1k64uPGJuDg0+DhzdgSfPWKVDue76Wd +RK80hYIaGBfm3xLQ6yYWYYqtvv5ypMYQAcladinLpSi08O5E1zcOAeO/93T3 +SVKoI5HQuzNMwGXP/JR67LgBwxGz7wRc+GfBIhz7Q26Xp9M0AT8q0qq+SVAo +a4WkzfFlJGjc4HJGVuJ+MNV7IGI5CSEyo/H/YX/tLQ8L5ifBZcOtvFJsyxrr +fKYQCRV5KeH+2BzvqJ92kiTo+F8JGhfH+e1tpGykSfApbrHoxLYwkdJGsiS0 +Dt7JrMHOEKvYZ7CaBPfsps7YP+P1n6sUVUlYf7mwQBqbLK5ok1UnAcWVlCyI +4eczoj+v1CRhMdrb4As2h5QW49MmQaXue9+9P+PStv7f9UhYreyQ5I5d/0s6 +nqNPAsOqp8kGe+hb/6V+Q2yblac3Y5s3HW/uNiWh7GlsrjA2FVSp/A+QUJlk +LtssivsHI8bowTYSXDcJJd7DNrPaYV9lTYKgYWxMAXb66i/RxTvweqTtF89g +1/HdycizI2HYuyTpKPbgREzJFXsSgsYLc/ywTVtl36Q5k7Bv4YSDAzaz6sto +sgsJdaruU4CddvUO72lXvN8fu5WMsL+E7dSLZJAQVlgouAZbzEvO9og7Cecz +557J/Km3c9Az0IOE/zqHxET+vL/mRKqXNwk39+TozovgPMJ2BQwmCeIVjBU/ +sL/Myj10YZEgkFDj9w1bbGCw3Z4kQSqq3PELtin7Lme7PwnZOuaNH7GZD04s +QSAJT3f43n2DnVZgJ2MRRELjSU2djj/10+R1jIJJCE89ueHFn/pR1NZNR/D4 +2oiaVmxRVhVDO4wEZ0We5ifYJk5xIeoROJ++BuPfP/XNdyUpRZKgtrU/vBH7 +vOaqa/JR+PxVDeXqsWslhqolj5PQUL0G1WEP/Kx6LhJLQkd/wXjtn/pf4wb4 +40gIyPlH44+NX++if8fj9b4MGbiP/X8X7tQl + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6264295008717526, 1.537165917364589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6264295008717541}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.6264295008717526, 1.537165917364589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6264295008717541}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk4VdsbB3AJmTMrLplLUjJPv9ZbSMmUVIcQx9nbkMiQiGgwFBFS9NyK +DBmSEkm4XUVy6xSi0kBkO4kMmc4m6rf6Yz/7+Txr73d911rPfrcqM8SF4OXh +4RnG15976KuNax90vNqy5f78TotcGm0ZLzJiWlcg/seNb82x+/OMszWsG1Hr +e7ETZtjOrJcCogZPkbvLmKUJdlVUfDO/NRs11hyQM8Q+17qqKb68Eyk/cRPS +w37YEXp9Uf8NmggbltXBHvnwPDa6oQc9mBO01MRWGFI/MGf1CUFNY4wy9q6J +WLNw9md0fif/GznsR4sjIlHlA+h+KmUrjv32lHxMbfAgUkz26ObDHhewHpnR +H0Km8SHHF3JoJHD+iJsBl4OaxteYT2ArS15rC20YRqeTj0gPYjsqzt0ct/qO +Zlb+kmrDJvPV5HQFx5Hisa1mD7HjNZ0SD7EnUODc5ugy7B757s0R5T/QbIr2 +9mRslntgwMXzU6i2w7QrAnvyKs+Ne8HTqOwC/3EfbEE1XYkf+rPI1nRExhQ7 +m9VsKyE7h5CIqJAatkqJW/wm7hziav+WE8E23ZA0frgBr+N4yMkPl2nkb/yZ +PWK1iI61rkkJxp6JOsonrLWETnWGOuzGPtkgYqkt+AsZrnm23gA7F0xv+bF/ +o8KsXIOZSzhfcZt1WPkyWO9QGXcIu7z1Yv8pRV6w9p6UssWe/OoVm3meFwIC +jj5WxY5dP1t9N3g5ZO8MOtydjfPeUVWf0OcH1zsyvJuwP3R8f/SrkB9ueUcE +LMdWmXrgLi4rALIhrNG3F2lUYeiYpcsVgFZCBcVgtzw8viyoQRDO/dqy9mEW +jWabuz4PW4nCdP8ZPuFMGknZi0rEPBKFz/bv9F5k0Eiv2xrEzMTAhxPgnIod +SN3P37xRHPKuZgcIYh/hZev9T1QCuPaCAnPpNBpSq/yROCcJCQF59PXzeH/I +50LtBlIwcWvCxwmb9xZHdVWoFIi+bfr3VyrOa7DGpXxUClqjwc0d290q496r +fmnodEcC/Ck0avcNC5d/IQuLx056rkumUV9Jeqq3oBwoTskqtCXR6PtoeWGZ +jRx0qtSxSWzhiMEuiyY5KMy9IHMjkUbWCa6G3vfloaz90mahBBrVFxnPluat +hr4p6/qSkzQqGlqINI9QguqNup+Vo2m0Y29yX/htJZiKeq53MwrXb5Hefpuj +BHKm3GsbsA2LNsiquCmD34+IF8bH8H4yvar5t6wBGdHtkXCURlMT/ceGz6iA +Sa20lnYojaQPW9dUO6jBy4FP7c7+NOIUCfs7B6rBwcuBHQ1+NKr71KE4lqQG +G+L/ntTE9rD3PKPVpAY8oscyuATOpxPpckVfHSzWSLpk+OL5R0om4+Q1oHyS +sZTjRSNXPxFduwFNqNDu5F3mSiMUuVd//5ImTLBFG/bsodH6xDwT1mot4O1x +yS92oRFPocG2uN1a8OT0tantu2l0u+/A/nuPtQCdzaqPd8Tf576KUwoFa0Gx +ou7nfztwPmuHtyNMbSh5ORrwxJJGimoX4lOpDZDt9LbeXo1GjSkz2vO8uqBl +HDDHUMX5p926SVVd8NssbMtSodH1Fg3tbV66EMs+ti5KmUZqfvWv6Xe60G0q +P52tgPNVDGmSLzZC5O/m/gIpGikpKpMqbnqwTOj8tCQvjTYUR4j+RPqg6ae8 +y76Pi5isM7O6jvqQVXiQNujlolz1rD5vD31oaWYMK3ziouUFd+62RulD1/ih +TM57LvpwfcQ1q0ofLObGxI++4aJzud7XtNUN4KNy2ngwm4s4qfYbGQKGwPY1 +4ul5yEU3wjSc77ON4K3S2860LC7qiEQmCcVmoHMnPcTBkItUvd44egb9D16x +x5md7DlE/K6tVIoGUFglWPTcdw7Jj9atkGdug59086L0yCyKMLD8lLXeGkx2 +5O8NCZtFzLHFNukRG4g9unK6np5Bt7eFr8hrt4WAFV1pYqEzqGgm8HFF9k44 +k6CXZDI5jeitq162xO+CkUJG6X7fadTLs/zHgI8DREhe2zreM4WC/wrJOKXu +BHertrUUMaZQZUBb06VEZwhUyVmwaP+Bjk+v5uoE7Ia0VaLlu3bjPmm3fd+z +gy4Qvqs2k489icwOZG4d2r0H3mh7/jtlP4ler74W2GLgCjPsvCXvmgmkcPNM +Y+m6vWB+a69tXMs4qutfb+8otg9Gp+56hYyNIeXuSb/IsX0gU2vf46A+hgwu +ZVYU9u+HhOR7VkIu39E1vumNWc0McEsv83DMHUW1Wzd9SHzoBmxx5aIz70dQ +rkmK5GK5O6iQOq3v1o2g9o/FSQbnDwDrlAnf6bRv6L7DVY0jJz2gUPRj4baJ +YfTj8B6eYJYnvMxJmVhiDaPZ7dr+41Ze4Nby6bA25ysqHXtPhxsfBMPLSzbK +5FfEuFHs6ynqDSfueVpG4v9O9b1dB5cne8OTkeX5nLMcZKb4ev7cvDdkmXZM +2a3nIPV+vw+dAT7gMVDCDH8zhCiRQ05XB33glQgzS/b0EOpId/S13csEmarP +XpaWQyg7Kk/kaAcTmipzRYTmKdT46Pe8705fWIx5mhfzL4VWekCyQb0vBJ3L +XtyYSSEVmWftfzX6AkPRu/5oBoX02A6rBB75Qvdv1cXGCxRysTxQ1vPYF5L8 +/UQc0imU/VfkixP/+cKHaAlGeCqFFHpvrWzr8QVC+lZBTyKFNLzkcz24vlAr +frmFP4ZCZt7jpYmGLNyfL5wbJil088pkuKMxC+zTzNTdsWW6prbIm7KADZYb +2QSFxm243aUWLDhkZJRbxaJwv+FZxt7GAhf1/Q2nmBQS50q6Se1mgan7MTMT +LwpRaUZCeYdZIH3q2/jcXgrtfmbS7RfCAv4FujQS+xGPeZ5eKAvkD1d3zblS +6Er4FqMnESzoKJaJofdQyNHN1mcohgV8IvMSy1wo9FDD7aFOCgte8/W6rnWk +UHpDbEDdTRbMWacrtG2n0GH9HLOoUhbUpispM7Dty6qETMtZcCHQK23YhkLC +OZyyB7dZ4B0xWCmMnRjmPFJbwwKnqVNLe6woFKutcej+ExaIvd73dAFRKDDn +RdC9PhbEyRJfcs0otFOcYxnWj/djlN/VGHtdIo+Y/hcW1H/s1us2pRAnzOh2 +1RALNpWO6Uhi+zjmjd39jvNuzl+bYUwhBn948J0FFog6N20uMKCQbbjCkQo5 +AkJDY4/JbaTQk7wku6xVBNQ5aUrU61LIkj2lEaVAgFFniJYXtp7mi/dWygQE +Puh5UbKBQqvfxVh91CQgRSVhHnQoNGreKydsREBfctGnlHUUusCb/4/fHgKq +vJ1uxqrj9W8SzXXYS0DaR8boJuyEA1FhBvsJWHst6fagGoWiapzX/nYn4PAz +KLPH9iGXZV5mEiDX8PKEhiqFDJ4zWU9DCehf5pA7qkyhd5maIuoZBASBZuw7 +BQpVIjH/4UwCxP1yQ69jJ4zNtNy+SMAql7IuAlt/Z0ucaQ4BF63+7p1djc+P +x3fK4ToB+jonBRWxt4fkv4+qIMBSxacuWp5CSkpnjbdUEjDTVBxpiz3zPOTi +8rsE5LkRN2SxC7SQQ3o1AfUMB8tqOQot9fY2FdYTEPzybPK0LIVq7BVLX7UR +8Oj7UuhZGQqlLvDyZz8n4LOUINcDm1k64uPGJuDg0+DhzdgSfPWKVDue76Wd +RK80hYIaGBfm3xLQ6yYWYYqtvv5ypMYQAcladinLpSi08O5E1zcOAeO/93T3 +SVKoI5HQuzNMwGXP/JR67LgBwxGz7wRc+GfBIhz7Q26Xp9M0AT8q0qq+SVAo +a4WkzfFlJGjc4HJGVuJ+MNV7IGI5CSEyo/H/YX/tLQ8L5ifBZcOtvFJsyxrr +fKYQCRV5KeH+2BzvqJ92kiTo+F8JGhfH+e1tpGykSfApbrHoxLYwkdJGsiS0 +Dt7JrMHOEKvYZ7CaBPfsps7YP+P1n6sUVUlYf7mwQBqbLK5ok1UnAcWVlCyI +4eczoj+v1CRhMdrb4As2h5QW49MmQaXue9+9P+PStv7f9UhYreyQ5I5d/0s6 +nqNPAsOqp8kGe+hb/6V+Q2yblac3Y5s3HW/uNiWh7GlsrjA2FVSp/A+QUJlk +LtssivsHI8bowTYSXDcJJd7DNrPaYV9lTYKgYWxMAXb66i/RxTvweqTtF89g +1/HdycizI2HYuyTpKPbgREzJFXsSgsYLc/ywTVtl36Q5k7Bv4YSDAzaz6sto +sgsJdaruU4CddvUO72lXvN8fu5WMsL+E7dSLZJAQVlgouAZbzEvO9og7Cecz +557J/Km3c9Az0IOE/zqHxET+vL/mRKqXNwk39+TozovgPMJ2BQwmCeIVjBU/ +sL/Myj10YZEgkFDj9w1bbGCw3Z4kQSqq3PELtin7Lme7PwnZOuaNH7GZD04s +QSAJT3f43n2DnVZgJ2MRRELjSU2djj/10+R1jIJJCE89ueHFn/pR1NZNR/D4 +2oiaVmxRVhVDO4wEZ0We5ifYJk5xIeoROJ++BuPfP/XNdyUpRZKgtrU/vBH7 +vOaqa/JR+PxVDeXqsWslhqolj5PQUL0G1WEP/Kx6LhJLQkd/wXjtn/pf4wb4 +40gIyPlH44+NX++if8fj9b4MGbiP/X8X7tQl + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6264295008717526, 1.537165917364589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6264295008717541}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.6264295008717541}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "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.6264295008717526, 1.537165917364589}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991342629715925*^9, 3.9921305629872475`*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"064922d2-2d20-bd49-a0ac-5e87c918fb09"] +}, 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", ",", "15"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.9918467058861084`*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"5cbca01a-701c-5744-b740-3bf6288a42b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.465908414797582`*^-275\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 139, + 1034, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913426299467087`*^9, 3.9921305633648853`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"d4a768e9-ee56-9445-9a28-c009ced4a0dd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7169052080063775`*^-288\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 139, + 1035, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913426299467087`*^9, 3.99213056338002*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"e597b5b5-d63e-b54b-b06d-c35c4ffd9ae3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5177752250224955`*^-300\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 139, + 1036, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913426299467087`*^9, 3.9921305633910046`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"2cc96305-031a-b249-978a-a390055cbf95"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 139, 1037, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913426299467087`*^9, 3.9921305634020195`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"195b9afc-0d74-194e-982c-08110c62460e"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk8VF8UAHCRQtmyLzEzb0bEIFlC3CNaSFqFUmQLabEvISR7EiEqIckM +5kWplCJKkYqsiVIpS/YI9aPf7a/5fD/z3n3vnnfuOYfqdHKPKzcXF9eyJVxc +/35/fWx4Rk+8ZGyqG9CvkK9q3JYjHWzS5YPYjNFFhh0/Aom3TtJdUYgm9lZt +zFYGBexid/J0paLL/63f22yrgkTHpFLnO/MRzyFUUGmrjz5VWZ2c7ixHGtus +zS7YmqMt9OHeyc5atHEwZ3rBxg7Nd+qlT3S+Q6nSPCPPrD1Qnemtgpb8r8iO +SlE0sQ9B8p8qvzupjSIhofqN3PFnkbiXA3u56U8kLmYV7HcvHqWu2/LIynoO +iZecEp1cm4LeX9asmRRZQE3p89weumkoseDMW26ZJdDopFk97puBpC59jU+7 +xgNaVyb6YlOyUOw+c+N3v3hBTl9nMdv1KvLVz3NoiOIDkWD/PhGn68hs/HfI +ia8C0H+W431bIA9Fbtx9RHaDIOx4VTpgsCcfGXCy7oZXC8NvySvcIkU3kNfc +ZMRLQVGoYTxeE/++AM2rinxkWq8CqzebDqlIFKKNxSW5GRlisJe/cvaKwS00 +ucrCcX+tOBjvLogXNCpC/UmO+32WS4K2+x/XdWYsZD4eaP5NVwr+chk+M1Jh +oxFnPt+7Z6Sh/S29aVaoGMdTiju2Vga+881EhPcWo1WvlZJvj8vC2M7fM1NJ +JUg+jtylqysPfDLI3WhDKbqsqi8idnQ1LJNjm+yoL0WNsiY6Py8qQNpS4blm +4KBmBVJpaaYCGGwOF6rZxEEdtNXSElcVILPfc7TUjIM+r53/rVuoAHnmnUtj +tnHQnEFZTchDBXBxfZK9ZhcHKR2kWnJ/VYDbypIemg4cFHVlibOotiIoPEit +tw3lIAP52hSNDkWolWo5vewOB30h6B+HuhUh1Z0jk3SXg+JVY1QLPimC2CMz +tsg9DuoysKiXHlIEs4u1NyQrOSjQ7t2fJf8pwolA0XmJag46sN17/bAIBe6F +5Op8aeSgjLjInCpdCgzGlxqXfeYgIZ58vyNRFJA+Or1EbSWJls1X752MpkDu ++ZbceEESLY71akXGUoD0rFj2XYhE490yk7lJFJAKa1tzRZREzeUXj/dlUGBF +ncXTX5IkSnWKdHMopoDfTnVHXyqJJGsdbQ+14ft3xzVG6ZBI6EG43mgHBRRU +N3pV6uLnca5Khr2nwN0Snc4xPRLNZnW1Xf1IgfHsLfz7DUjU5b1rd88gBeZ+ +L36SQCTKpoLFwQUKZPr+dT+4jUQKkYob7ZSosKSgI2DRjkQcXz5arzIVuMfq +ffkPksjYbXL5EVUqOFdxtorZk+jQ9rpWd00q/L19z484TKKrEkePBRlQ4e3e +wW86TiSSYXOyM62owNkqpEd4kki81Wi+PYAKRa9eq1CCSVTwXOmTXTAV5L6l +qS8LIdH6B8LPe09TYX09l+AP7D3XPqd8i6DCqU0qNmWhJLp49JzyTAIVBs6v +IzQj8P7/a7IRv06FSnUDzq8YEvEz7O/teUEFA3Vf7aI0EnnKIIviBiowLxjn +2V8iUaMg7SNPExUq3GNERNJJlPRrgLeimQpjOR9++Wbg9V76Wkt1U8Hy7Nt+ +jSwSrTqWOP1hBL+fSZ5NUA6J5MsearmuooGuXbqKZRGJQm9eq38sToMtUzcF +P2P3ZkUckJSiwR/bV7/8WCTKidoS9UKOBhtfs7uy2CSi7HvXosKgQeYt2d7O +EhIxZodOjenRIMm16w+9jETqRjJk4CEaKOmKqS2tJNEdwuMPtyMNkpUTas9i +bxCo3JrsRIOpG1o63A9JtKnTtq/gKA2+tp8n/2Dv974s+s4bXy9W9KevikRn +bkr5qcVgHwpa4V9DoqVJR2vux9HAZPWUzxfsBJ/7K00TacCjd/qB1VMSXUI2 +N+1SaJCqoPORqCVR0fuMjphsGsTV5mTW1OH8FJTU/8yhwUiaTm9dPYmsp13P +eZXRoN9subbiCxJ1d1e0zN6hQYZkh2cwdv8ta0+hShocqRgMWvuSRHMm6VcM +62ggGLZP9kwDicKUvw3UP6fBIadIvxZsbmEd7T0vaTCsWUTSGkm0sqetyf01 +DSolnBueYlMDxBfTO2nwQ0coeeoViQrtXSyo3TSY0Uj4adhEIjXTuxklPTSI +eMxlGI2tK7JPo+4zDTYLOpwSfU0iC3aa48QPGjSuOxGk8IZEPh9X1VlwEdBg +HiDL00yil/X2j9ncBPQM7+PVw1YgC+8L8BKQKP5kzgO78YxBSSM/ATVuV+eb +sGlUp3QLMQJ2mke5xbaQKIi/5AJbgoCvVM7lO9hvJmfiBaQJaPE3bvuIHVIb +H94oT8C2I7+Par0jUYtz2VELJQL6Tn9Z+gZbyfLPEbYyAYPiOuemsEO1N9sL +qBIQOvVSWLKVRMq873c1ahCgcI8wO4AdPkrbvlaLgEJr2lgIdlu71+YEbQKK +Slrys7EjCrkMLPQJgJPlap3YHckW2mxDvL9ROe5pbLXAS+oCxgSMmhd+EW7D +9WGrMtG4iQAlw+TnZtiaQztXWlji9dqeStzAjmnJWsa2IuBF3batD7B7Kr9y +CewmQH3qXXQTdlxC4EyDNd6PsDN9Cvujz9NxFVsC9OXzY3jaSaR9cMVw/AEC +JvL2z4hh96le/2juQEBQU+rcOmxd8aEu1hH8/O97zyPspP+0WvldCBh3WlC3 +xP7SH/raw42AHOmSXhvsDa/rXzS443gPhGY5YSdXiNSqHCPAsirJyQu7/9qB +qvjjBNglzW3wxzaIKbg3dJKAg3a98mHYKSfGbpv74O+rYSsUjf19/4Zilh+O +ByNGMAF7I4q6yR9IgMvhaNkL2Klrmq57BBOQxXtKJw17UFgyu+E0AUJ73Q5n +YBvPOVxSCSdgeXx0+mXsS32s5PgIAs5PD3RnYQ+//Bk3FIX3O1qqno0NZUZn +zc8RYNXxM+Xf/xlZsWGsWAIc5DuX/Lt/JLIlkD+BgGI9/8h07E2ecj4eSTge +7B/CqdiX97h6NSQTkMpjW3oee8yAdFO5SADrfaddHLYZMe8Yn0bAn7dxElHY +2StMDw6lEzCWFtcXgj3+M8na/DIBKb3TD32we7ry9l/LJqDi7Mp2D+zGx/ds +Jq8SkLZZlc8R+37+K9vN1wnQgeP7rLELYvvssvIIOJU9Vmn+Lz5eMwdGbxDQ +Gv1qgxH2md0C9iaFBNzVp7RoYB+Q0z48xCZgWj7fahX2Ni5zB6NSAq5MLNfm +xtb5dsjxIom/1/v96ydx/oiQsU76dwnYep0a8S+/FtKuOp+/h8/PyY7X//Jv +OKjM5fMDAkb0v+sUYD/f9MEt/jEBn4TirYOwy9dMHO2tJkDSzlrwCHbuSl6P +dbX4/K4e/7QNO6RD/dj7egLq/y60S/zLd8+okyrNBDy+TvLdxOdDYWfmqbB3 +BBz/KZgdg71Cu8S7pQ3HI4my9Sj294V23+D3BESxOqYZ2FcuqgQ1fCGg36Yi +7zI+v3EBxsGrvxFw63C/mC92wMG9Id4DBIi33863xN7FCAuVGSFg0TZTcgHX +h2WVzREeMwToPm05sBd7+tq3yMezBHQtJyqUsD9H/Y4S/U2ApsmC2jyuP1WW +9HOViwR4Ltb6X8H27guM5+ejw0zjuxPtb0l0+HlSwiEBOoydZz/Iw7Zk5yWW +raTDiPQ85Ti2kt+r83aidOBQfHYswe5ZrpjKkqXDgqqcjCKuj1s16rPNmXTw +qctN18T11HbZtn3NGnTw89PQGsL117O3QdBGiw69y469yMVOTnwd4aJHB0pi +dM9K7I6BNrczJnQ4PHCuogvXd5fcr1oV1nRYSohuRrg/BAS6jhja0sHI/0X4 +AO4ncVYDN2sP0IGLef1OMnbJf8PSzQ50sMveLdz9nEQ/bacWhz3oEMiRT3N5 +RqIo0SWvKOF0KN2xeXzbv/41GBV9K4IO6vP1o324vxVWLzVWP0sHhfLhoUDs +xuN8ZYZxdMiXevghv5pEoo3CmftT6bC+bYA18hjnR5SCc1IhHd4UKojvwv30 +yU/DP7Nv6LAk3QbZlJMor+m+094WOkT+MHLtwv06+ub6Rk4rHXpEyjm22OY2 +qlmuXXTw73pVsv82rscPZfVaP9Ph4q0zdts4OF8j530403TcLztSufE8ICly +f9hFlgHBVS4Brbkkmh/U2lMjz4Dc+YRd+tg9TzmVcooMSPa8sCfnOn6+b2Hc +O4IBLOnqN654HlHrTFcCJgMMq1KKh6/g+pDj5yQHDEiZeyvRhOeZE2pa3S2u +DPC6MVUwlkgi/1nZ3w7uDDhZJhK5Fju0lkd2zJMBo+HHXFwTSJRo224ncIoB +9uPJJl1xuP9HB73fFMIA3pRLB8rP4frb86TrTjID6mhzGhvO4Hnj/PbO9PsM +kHWllyZ6k8hozKXNjl8JJk2/69vvxft7tDW/aoUSSMTed/Dag+tT7NpTikJK +8Hzk673Tu/F8RJ1Y8W2VEjgl/ZjP3Inn432nTU/JK8HmTN7O+u0kqn50sTxG +QwnMlGeFF01JZBL/JOWOtRLkKT5PbV1Pos106R2C+UqwVdAoj8Dzs3JEQlCt +3hpQ29MSt+UZB6111a9mdK8BTqaVB7hwkOsT9+i73soQ241Cff6WourcNpdJ +CRWQvHMWNceUoumiv7Ma91XA5tJfJzZvKXJmFPNn71gLEoHr7O2jS9Dk2jTd +8om1EJ4XdmvfeDF6UPDn80ycKhwn1sbdsi9GB8wIMFRQA5k6yyOh9Wwkdzy2 +Ur1GDWyWHizXXM1GEgJeZTtsmHAr9Kb9VDALFZiGhUzYMUGDnj4pFMhCWmHJ +pmn2THhk/kFd1Y+FrCZut3cdYUKg6b4bTidYKKZjZt7Ziwk+6rYhr51YaC7/ +zKaQSCbk5VwQS9vOQt2Gaa2FxUzY8+Rd3Cd5FnL3L7hqzmHCz6UKWZMyLPSL +U+E6cpsJ5bcXbXmkWGgVrWt23T0meF9wG2SIstB2vtXyj2uYwBMpZ3mUl4Wq +2gpdWtuZ4CrmYPdhtAhZCD1gBnQxQTxoKmxwuAjPCw2/pD8wIeRLmfXMQBGa +fvgj7nAfE5KyshSFvhQhZp5m6dAwE1b+sCQ2dhShqm6TgKRRJvDxRA5sacXr +ie9FGhNMUKawHXc3FyG3WP8Wvxkm5HtX+7g24vVqYrKl5piwInv1ypMvilDU +70znh7+ZcJ3cdzDoWRES0WapHVpggtfVa46RT4tQzvGHM3//4vczWyef8KQI +/Q9Xup28 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VF8UAHCRQtmyLzEzb0bEIFlC3CNaSFqFUmQLabEvISR7EiEqIckM +5kWplCJKkYqsiVIpS/YI9aPf7a/5fD/z3n3vnnfuOYfqdHKPKzcXF9eyJVxc +/35/fWx4Rk+8ZGyqG9CvkK9q3JYjHWzS5YPYjNFFhh0/Aom3TtJdUYgm9lZt +zFYGBexid/J0paLL/63f22yrgkTHpFLnO/MRzyFUUGmrjz5VWZ2c7ixHGtus +zS7YmqMt9OHeyc5atHEwZ3rBxg7Nd+qlT3S+Q6nSPCPPrD1Qnemtgpb8r8iO +SlE0sQ9B8p8qvzupjSIhofqN3PFnkbiXA3u56U8kLmYV7HcvHqWu2/LIynoO +iZecEp1cm4LeX9asmRRZQE3p89weumkoseDMW26ZJdDopFk97puBpC59jU+7 +xgNaVyb6YlOyUOw+c+N3v3hBTl9nMdv1KvLVz3NoiOIDkWD/PhGn68hs/HfI +ia8C0H+W431bIA9Fbtx9RHaDIOx4VTpgsCcfGXCy7oZXC8NvySvcIkU3kNfc +ZMRLQVGoYTxeE/++AM2rinxkWq8CqzebDqlIFKKNxSW5GRlisJe/cvaKwS00 +ucrCcX+tOBjvLogXNCpC/UmO+32WS4K2+x/XdWYsZD4eaP5NVwr+chk+M1Jh +oxFnPt+7Z6Sh/S29aVaoGMdTiju2Vga+881EhPcWo1WvlZJvj8vC2M7fM1NJ +JUg+jtylqysPfDLI3WhDKbqsqi8idnQ1LJNjm+yoL0WNsiY6Py8qQNpS4blm +4KBmBVJpaaYCGGwOF6rZxEEdtNXSElcVILPfc7TUjIM+r53/rVuoAHnmnUtj +tnHQnEFZTchDBXBxfZK9ZhcHKR2kWnJ/VYDbypIemg4cFHVlibOotiIoPEit +tw3lIAP52hSNDkWolWo5vewOB30h6B+HuhUh1Z0jk3SXg+JVY1QLPimC2CMz +tsg9DuoysKiXHlIEs4u1NyQrOSjQ7t2fJf8pwolA0XmJag46sN17/bAIBe6F +5Op8aeSgjLjInCpdCgzGlxqXfeYgIZ58vyNRFJA+Or1EbSWJls1X752MpkDu ++ZbceEESLY71akXGUoD0rFj2XYhE490yk7lJFJAKa1tzRZREzeUXj/dlUGBF +ncXTX5IkSnWKdHMopoDfTnVHXyqJJGsdbQ+14ft3xzVG6ZBI6EG43mgHBRRU +N3pV6uLnca5Khr2nwN0Snc4xPRLNZnW1Xf1IgfHsLfz7DUjU5b1rd88gBeZ+ +L36SQCTKpoLFwQUKZPr+dT+4jUQKkYob7ZSosKSgI2DRjkQcXz5arzIVuMfq +ffkPksjYbXL5EVUqOFdxtorZk+jQ9rpWd00q/L19z484TKKrEkePBRlQ4e3e +wW86TiSSYXOyM62owNkqpEd4kki81Wi+PYAKRa9eq1CCSVTwXOmTXTAV5L6l +qS8LIdH6B8LPe09TYX09l+AP7D3XPqd8i6DCqU0qNmWhJLp49JzyTAIVBs6v +IzQj8P7/a7IRv06FSnUDzq8YEvEz7O/teUEFA3Vf7aI0EnnKIIviBiowLxjn +2V8iUaMg7SNPExUq3GNERNJJlPRrgLeimQpjOR9++Wbg9V76Wkt1U8Hy7Nt+ +jSwSrTqWOP1hBL+fSZ5NUA6J5MsearmuooGuXbqKZRGJQm9eq38sToMtUzcF +P2P3ZkUckJSiwR/bV7/8WCTKidoS9UKOBhtfs7uy2CSi7HvXosKgQeYt2d7O +EhIxZodOjenRIMm16w+9jETqRjJk4CEaKOmKqS2tJNEdwuMPtyMNkpUTas9i +bxCo3JrsRIOpG1o63A9JtKnTtq/gKA2+tp8n/2Dv974s+s4bXy9W9KevikRn +bkr5qcVgHwpa4V9DoqVJR2vux9HAZPWUzxfsBJ/7K00TacCjd/qB1VMSXUI2 +N+1SaJCqoPORqCVR0fuMjphsGsTV5mTW1OH8FJTU/8yhwUiaTm9dPYmsp13P +eZXRoN9subbiCxJ1d1e0zN6hQYZkh2cwdv8ta0+hShocqRgMWvuSRHMm6VcM +62ggGLZP9kwDicKUvw3UP6fBIadIvxZsbmEd7T0vaTCsWUTSGkm0sqetyf01 +DSolnBueYlMDxBfTO2nwQ0coeeoViQrtXSyo3TSY0Uj4adhEIjXTuxklPTSI +eMxlGI2tK7JPo+4zDTYLOpwSfU0iC3aa48QPGjSuOxGk8IZEPh9X1VlwEdBg +HiDL00yil/X2j9ncBPQM7+PVw1YgC+8L8BKQKP5kzgO78YxBSSM/ATVuV+eb +sGlUp3QLMQJ2mke5xbaQKIi/5AJbgoCvVM7lO9hvJmfiBaQJaPE3bvuIHVIb +H94oT8C2I7+Par0jUYtz2VELJQL6Tn9Z+gZbyfLPEbYyAYPiOuemsEO1N9sL +qBIQOvVSWLKVRMq873c1ahCgcI8wO4AdPkrbvlaLgEJr2lgIdlu71+YEbQKK +Slrys7EjCrkMLPQJgJPlap3YHckW2mxDvL9ROe5pbLXAS+oCxgSMmhd+EW7D +9WGrMtG4iQAlw+TnZtiaQztXWlji9dqeStzAjmnJWsa2IuBF3batD7B7Kr9y +CewmQH3qXXQTdlxC4EyDNd6PsDN9Cvujz9NxFVsC9OXzY3jaSaR9cMVw/AEC +JvL2z4hh96le/2juQEBQU+rcOmxd8aEu1hH8/O97zyPspP+0WvldCBh3WlC3 +xP7SH/raw42AHOmSXhvsDa/rXzS443gPhGY5YSdXiNSqHCPAsirJyQu7/9qB +qvjjBNglzW3wxzaIKbg3dJKAg3a98mHYKSfGbpv74O+rYSsUjf19/4Zilh+O +ByNGMAF7I4q6yR9IgMvhaNkL2Klrmq57BBOQxXtKJw17UFgyu+E0AUJ73Q5n +YBvPOVxSCSdgeXx0+mXsS32s5PgIAs5PD3RnYQ+//Bk3FIX3O1qqno0NZUZn +zc8RYNXxM+Xf/xlZsWGsWAIc5DuX/Lt/JLIlkD+BgGI9/8h07E2ecj4eSTge +7B/CqdiX97h6NSQTkMpjW3oee8yAdFO5SADrfaddHLYZMe8Yn0bAn7dxElHY +2StMDw6lEzCWFtcXgj3+M8na/DIBKb3TD32we7ry9l/LJqDi7Mp2D+zGx/ds +Jq8SkLZZlc8R+37+K9vN1wnQgeP7rLELYvvssvIIOJU9Vmn+Lz5eMwdGbxDQ +Gv1qgxH2md0C9iaFBNzVp7RoYB+Q0z48xCZgWj7fahX2Ni5zB6NSAq5MLNfm +xtb5dsjxIom/1/v96ydx/oiQsU76dwnYep0a8S+/FtKuOp+/h8/PyY7X//Jv +OKjM5fMDAkb0v+sUYD/f9MEt/jEBn4TirYOwy9dMHO2tJkDSzlrwCHbuSl6P +dbX4/K4e/7QNO6RD/dj7egLq/y60S/zLd8+okyrNBDy+TvLdxOdDYWfmqbB3 +BBz/KZgdg71Cu8S7pQ3HI4my9Sj294V23+D3BESxOqYZ2FcuqgQ1fCGg36Yi +7zI+v3EBxsGrvxFw63C/mC92wMG9Id4DBIi33863xN7FCAuVGSFg0TZTcgHX +h2WVzREeMwToPm05sBd7+tq3yMezBHQtJyqUsD9H/Y4S/U2ApsmC2jyuP1WW +9HOViwR4Ltb6X8H27guM5+ejw0zjuxPtb0l0+HlSwiEBOoydZz/Iw7Zk5yWW +raTDiPQ85Ti2kt+r83aidOBQfHYswe5ZrpjKkqXDgqqcjCKuj1s16rPNmXTw +qctN18T11HbZtn3NGnTw89PQGsL117O3QdBGiw69y469yMVOTnwd4aJHB0pi +dM9K7I6BNrczJnQ4PHCuogvXd5fcr1oV1nRYSohuRrg/BAS6jhja0sHI/0X4 +AO4ncVYDN2sP0IGLef1OMnbJf8PSzQ50sMveLdz9nEQ/bacWhz3oEMiRT3N5 +RqIo0SWvKOF0KN2xeXzbv/41GBV9K4IO6vP1o324vxVWLzVWP0sHhfLhoUDs +xuN8ZYZxdMiXevghv5pEoo3CmftT6bC+bYA18hjnR5SCc1IhHd4UKojvwv30 +yU/DP7Nv6LAk3QbZlJMor+m+094WOkT+MHLtwv06+ub6Rk4rHXpEyjm22OY2 +qlmuXXTw73pVsv82rscPZfVaP9Ph4q0zdts4OF8j530403TcLztSufE8ICly +f9hFlgHBVS4Brbkkmh/U2lMjz4Dc+YRd+tg9TzmVcooMSPa8sCfnOn6+b2Hc +O4IBLOnqN654HlHrTFcCJgMMq1KKh6/g+pDj5yQHDEiZeyvRhOeZE2pa3S2u +DPC6MVUwlkgi/1nZ3w7uDDhZJhK5Fju0lkd2zJMBo+HHXFwTSJRo224ncIoB +9uPJJl1xuP9HB73fFMIA3pRLB8rP4frb86TrTjID6mhzGhvO4Hnj/PbO9PsM +kHWllyZ6k8hozKXNjl8JJk2/69vvxft7tDW/aoUSSMTed/Dag+tT7NpTikJK +8Hzk673Tu/F8RJ1Y8W2VEjgl/ZjP3Inn432nTU/JK8HmTN7O+u0kqn50sTxG +QwnMlGeFF01JZBL/JOWOtRLkKT5PbV1Pos106R2C+UqwVdAoj8Dzs3JEQlCt +3hpQ29MSt+UZB6111a9mdK8BTqaVB7hwkOsT9+i73soQ241Cff6WourcNpdJ +CRWQvHMWNceUoumiv7Ma91XA5tJfJzZvKXJmFPNn71gLEoHr7O2jS9Dk2jTd +8om1EJ4XdmvfeDF6UPDn80ycKhwn1sbdsi9GB8wIMFRQA5k6yyOh9Wwkdzy2 +Ur1GDWyWHizXXM1GEgJeZTtsmHAr9Kb9VDALFZiGhUzYMUGDnj4pFMhCWmHJ +pmn2THhk/kFd1Y+FrCZut3cdYUKg6b4bTidYKKZjZt7Ziwk+6rYhr51YaC7/ +zKaQSCbk5VwQS9vOQt2Gaa2FxUzY8+Rd3Cd5FnL3L7hqzmHCz6UKWZMyLPSL +U+E6cpsJ5bcXbXmkWGgVrWt23T0meF9wG2SIstB2vtXyj2uYwBMpZ3mUl4Wq +2gpdWtuZ4CrmYPdhtAhZCD1gBnQxQTxoKmxwuAjPCw2/pD8wIeRLmfXMQBGa +fvgj7nAfE5KyshSFvhQhZp5m6dAwE1b+sCQ2dhShqm6TgKRRJvDxRA5sacXr +ie9FGhNMUKawHXc3FyG3WP8Wvxkm5HtX+7g24vVqYrKl5piwInv1ypMvilDU +70znh7+ZcJ3cdzDoWRES0WapHVpggtfVa46RT4tQzvGHM3//4vczWyef8KQI +/Q9Xup28 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.06217653102700188}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.06217653102700188}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VF8UAHCRQtmyLzEzb0bEIFlC3CNaSFqFUmQLabEvISR7EiEqIckM +5kWplCJKkYqsiVIpS/YI9aPf7a/5fD/z3n3vnnfuOYfqdHKPKzcXF9eyJVxc +/35/fWx4Rk+8ZGyqG9CvkK9q3JYjHWzS5YPYjNFFhh0/Aom3TtJdUYgm9lZt +zFYGBexid/J0paLL/63f22yrgkTHpFLnO/MRzyFUUGmrjz5VWZ2c7ixHGtus +zS7YmqMt9OHeyc5atHEwZ3rBxg7Nd+qlT3S+Q6nSPCPPrD1Qnemtgpb8r8iO +SlE0sQ9B8p8qvzupjSIhofqN3PFnkbiXA3u56U8kLmYV7HcvHqWu2/LIynoO +iZecEp1cm4LeX9asmRRZQE3p89weumkoseDMW26ZJdDopFk97puBpC59jU+7 +xgNaVyb6YlOyUOw+c+N3v3hBTl9nMdv1KvLVz3NoiOIDkWD/PhGn68hs/HfI +ia8C0H+W431bIA9Fbtx9RHaDIOx4VTpgsCcfGXCy7oZXC8NvySvcIkU3kNfc +ZMRLQVGoYTxeE/++AM2rinxkWq8CqzebDqlIFKKNxSW5GRlisJe/cvaKwS00 +ucrCcX+tOBjvLogXNCpC/UmO+32WS4K2+x/XdWYsZD4eaP5NVwr+chk+M1Jh +oxFnPt+7Z6Sh/S29aVaoGMdTiju2Vga+881EhPcWo1WvlZJvj8vC2M7fM1NJ +JUg+jtylqysPfDLI3WhDKbqsqi8idnQ1LJNjm+yoL0WNsiY6Py8qQNpS4blm +4KBmBVJpaaYCGGwOF6rZxEEdtNXSElcVILPfc7TUjIM+r53/rVuoAHnmnUtj +tnHQnEFZTchDBXBxfZK9ZhcHKR2kWnJ/VYDbypIemg4cFHVlibOotiIoPEit +tw3lIAP52hSNDkWolWo5vewOB30h6B+HuhUh1Z0jk3SXg+JVY1QLPimC2CMz +tsg9DuoysKiXHlIEs4u1NyQrOSjQ7t2fJf8pwolA0XmJag46sN17/bAIBe6F +5Op8aeSgjLjInCpdCgzGlxqXfeYgIZ58vyNRFJA+Or1EbSWJls1X752MpkDu ++ZbceEESLY71akXGUoD0rFj2XYhE490yk7lJFJAKa1tzRZREzeUXj/dlUGBF +ncXTX5IkSnWKdHMopoDfTnVHXyqJJGsdbQ+14ft3xzVG6ZBI6EG43mgHBRRU +N3pV6uLnca5Khr2nwN0Snc4xPRLNZnW1Xf1IgfHsLfz7DUjU5b1rd88gBeZ+ +L36SQCTKpoLFwQUKZPr+dT+4jUQKkYob7ZSosKSgI2DRjkQcXz5arzIVuMfq +ffkPksjYbXL5EVUqOFdxtorZk+jQ9rpWd00q/L19z484TKKrEkePBRlQ4e3e +wW86TiSSYXOyM62owNkqpEd4kki81Wi+PYAKRa9eq1CCSVTwXOmTXTAV5L6l +qS8LIdH6B8LPe09TYX09l+AP7D3XPqd8i6DCqU0qNmWhJLp49JzyTAIVBs6v +IzQj8P7/a7IRv06FSnUDzq8YEvEz7O/teUEFA3Vf7aI0EnnKIIviBiowLxjn +2V8iUaMg7SNPExUq3GNERNJJlPRrgLeimQpjOR9++Wbg9V76Wkt1U8Hy7Nt+ +jSwSrTqWOP1hBL+fSZ5NUA6J5MsearmuooGuXbqKZRGJQm9eq38sToMtUzcF +P2P3ZkUckJSiwR/bV7/8WCTKidoS9UKOBhtfs7uy2CSi7HvXosKgQeYt2d7O +EhIxZodOjenRIMm16w+9jETqRjJk4CEaKOmKqS2tJNEdwuMPtyMNkpUTas9i +bxCo3JrsRIOpG1o63A9JtKnTtq/gKA2+tp8n/2Dv974s+s4bXy9W9KevikRn +bkr5qcVgHwpa4V9DoqVJR2vux9HAZPWUzxfsBJ/7K00TacCjd/qB1VMSXUI2 +N+1SaJCqoPORqCVR0fuMjphsGsTV5mTW1OH8FJTU/8yhwUiaTm9dPYmsp13P +eZXRoN9subbiCxJ1d1e0zN6hQYZkh2cwdv8ta0+hShocqRgMWvuSRHMm6VcM +62ggGLZP9kwDicKUvw3UP6fBIadIvxZsbmEd7T0vaTCsWUTSGkm0sqetyf01 +DSolnBueYlMDxBfTO2nwQ0coeeoViQrtXSyo3TSY0Uj4adhEIjXTuxklPTSI +eMxlGI2tK7JPo+4zDTYLOpwSfU0iC3aa48QPGjSuOxGk8IZEPh9X1VlwEdBg +HiDL00yil/X2j9ncBPQM7+PVw1YgC+8L8BKQKP5kzgO78YxBSSM/ATVuV+eb +sGlUp3QLMQJ2mke5xbaQKIi/5AJbgoCvVM7lO9hvJmfiBaQJaPE3bvuIHVIb +H94oT8C2I7+Par0jUYtz2VELJQL6Tn9Z+gZbyfLPEbYyAYPiOuemsEO1N9sL +qBIQOvVSWLKVRMq873c1ahCgcI8wO4AdPkrbvlaLgEJr2lgIdlu71+YEbQKK +Slrys7EjCrkMLPQJgJPlap3YHckW2mxDvL9ROe5pbLXAS+oCxgSMmhd+EW7D +9WGrMtG4iQAlw+TnZtiaQztXWlji9dqeStzAjmnJWsa2IuBF3batD7B7Kr9y +CewmQH3qXXQTdlxC4EyDNd6PsDN9Cvujz9NxFVsC9OXzY3jaSaR9cMVw/AEC +JvL2z4hh96le/2juQEBQU+rcOmxd8aEu1hH8/O97zyPspP+0WvldCBh3WlC3 +xP7SH/raw42AHOmSXhvsDa/rXzS443gPhGY5YSdXiNSqHCPAsirJyQu7/9qB +qvjjBNglzW3wxzaIKbg3dJKAg3a98mHYKSfGbpv74O+rYSsUjf19/4Zilh+O +ByNGMAF7I4q6yR9IgMvhaNkL2Klrmq57BBOQxXtKJw17UFgyu+E0AUJ73Q5n +YBvPOVxSCSdgeXx0+mXsS32s5PgIAs5PD3RnYQ+//Bk3FIX3O1qqno0NZUZn +zc8RYNXxM+Xf/xlZsWGsWAIc5DuX/Lt/JLIlkD+BgGI9/8h07E2ecj4eSTge +7B/CqdiX97h6NSQTkMpjW3oee8yAdFO5SADrfaddHLYZMe8Yn0bAn7dxElHY +2StMDw6lEzCWFtcXgj3+M8na/DIBKb3TD32we7ry9l/LJqDi7Mp2D+zGx/ds +Jq8SkLZZlc8R+37+K9vN1wnQgeP7rLELYvvssvIIOJU9Vmn+Lz5eMwdGbxDQ +Gv1qgxH2md0C9iaFBNzVp7RoYB+Q0z48xCZgWj7fahX2Ni5zB6NSAq5MLNfm +xtb5dsjxIom/1/v96ydx/oiQsU76dwnYep0a8S+/FtKuOp+/h8/PyY7X//Jv +OKjM5fMDAkb0v+sUYD/f9MEt/jEBn4TirYOwy9dMHO2tJkDSzlrwCHbuSl6P +dbX4/K4e/7QNO6RD/dj7egLq/y60S/zLd8+okyrNBDy+TvLdxOdDYWfmqbB3 +BBz/KZgdg71Cu8S7pQ3HI4my9Sj294V23+D3BESxOqYZ2FcuqgQ1fCGg36Yi +7zI+v3EBxsGrvxFw63C/mC92wMG9Id4DBIi33863xN7FCAuVGSFg0TZTcgHX +h2WVzREeMwToPm05sBd7+tq3yMezBHQtJyqUsD9H/Y4S/U2ApsmC2jyuP1WW +9HOViwR4Ltb6X8H27guM5+ejw0zjuxPtb0l0+HlSwiEBOoydZz/Iw7Zk5yWW +raTDiPQ85Ti2kt+r83aidOBQfHYswe5ZrpjKkqXDgqqcjCKuj1s16rPNmXTw +qctN18T11HbZtn3NGnTw89PQGsL117O3QdBGiw69y469yMVOTnwd4aJHB0pi +dM9K7I6BNrczJnQ4PHCuogvXd5fcr1oV1nRYSohuRrg/BAS6jhja0sHI/0X4 +AO4ncVYDN2sP0IGLef1OMnbJf8PSzQ50sMveLdz9nEQ/bacWhz3oEMiRT3N5 +RqIo0SWvKOF0KN2xeXzbv/41GBV9K4IO6vP1o324vxVWLzVWP0sHhfLhoUDs +xuN8ZYZxdMiXevghv5pEoo3CmftT6bC+bYA18hjnR5SCc1IhHd4UKojvwv30 +yU/DP7Nv6LAk3QbZlJMor+m+094WOkT+MHLtwv06+ub6Rk4rHXpEyjm22OY2 +qlmuXXTw73pVsv82rscPZfVaP9Ph4q0zdts4OF8j530403TcLztSufE8ICly +f9hFlgHBVS4Brbkkmh/U2lMjz4Dc+YRd+tg9TzmVcooMSPa8sCfnOn6+b2Hc +O4IBLOnqN654HlHrTFcCJgMMq1KKh6/g+pDj5yQHDEiZeyvRhOeZE2pa3S2u +DPC6MVUwlkgi/1nZ3w7uDDhZJhK5Fju0lkd2zJMBo+HHXFwTSJRo224ncIoB +9uPJJl1xuP9HB73fFMIA3pRLB8rP4frb86TrTjID6mhzGhvO4Hnj/PbO9PsM +kHWllyZ6k8hozKXNjl8JJk2/69vvxft7tDW/aoUSSMTed/Dag+tT7NpTikJK +8Hzk673Tu/F8RJ1Y8W2VEjgl/ZjP3Inn432nTU/JK8HmTN7O+u0kqn50sTxG +QwnMlGeFF01JZBL/JOWOtRLkKT5PbV1Pos106R2C+UqwVdAoj8Dzs3JEQlCt +3hpQ29MSt+UZB6111a9mdK8BTqaVB7hwkOsT9+i73soQ241Cff6WourcNpdJ +CRWQvHMWNceUoumiv7Ma91XA5tJfJzZvKXJmFPNn71gLEoHr7O2jS9Dk2jTd +8om1EJ4XdmvfeDF6UPDn80ycKhwn1sbdsi9GB8wIMFRQA5k6yyOh9Wwkdzy2 +Ur1GDWyWHizXXM1GEgJeZTtsmHAr9Kb9VDALFZiGhUzYMUGDnj4pFMhCWmHJ +pmn2THhk/kFd1Y+FrCZut3cdYUKg6b4bTidYKKZjZt7Ziwk+6rYhr51YaC7/ +zKaQSCbk5VwQS9vOQt2Gaa2FxUzY8+Rd3Cd5FnL3L7hqzmHCz6UKWZMyLPSL +U+E6cpsJ5bcXbXmkWGgVrWt23T0meF9wG2SIstB2vtXyj2uYwBMpZ3mUl4Wq +2gpdWtuZ4CrmYPdhtAhZCD1gBnQxQTxoKmxwuAjPCw2/pD8wIeRLmfXMQBGa +fvgj7nAfE5KyshSFvhQhZp5m6dAwE1b+sCQ2dhShqm6TgKRRJvDxRA5sacXr +ie9FGhNMUKawHXc3FyG3WP8Wvxkm5HtX+7g24vVqYrKl5piwInv1ypMvilDU +70znh7+ZcJ3cdzDoWRES0WapHVpggtfVa46RT4tQzvGHM3//4vczWyef8KQI +/Q9Xup28 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.06217653102700188}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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.06217653102700188}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913429049348164`*^9, 3.9921309534842663`*^9}, + CellLabel-> + "Out[139]=",ExpressionUUID->"fe552624-3db1-5344-b25a-1a057bb0dfd7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel-> + "In[140]:=",ExpressionUUID->"dfd70d8f-49d3-a04f-a31c-55e81ecceef1"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk8VF8UAHCRQtmyLzEzb0bEIFlC3CNaSFqFUmQLabEvISR7EiEqIckM +5kWplCJKkYqsiVIpS/YI9aPf7a/5fD/z3n3vnnfuOYfqdHKPKzcXF9eyJVxc +/35/fWx4Rk+8ZGyqG9CvkK9q3JYjHWzS5YPYjNFFhh0/Aom3TtJdUYgm9lZt +zFYGBexid/J0paLL/63f22yrgkTHpFLnO/MRzyFUUGmrjz5VWZ2c7ixHGtus +zS7YmqMt9OHeyc5atHEwZ3rBxg7Nd+qlT3S+Q6nSPCPPrD1Qnemtgpb8r8iO +SlE0sQ9B8p8qvzupjSIhofqN3PFnkbiXA3u56U8kLmYV7HcvHqWu2/LIynoO +iZecEp1cm4LeX9asmRRZQE3p89weumkoseDMW26ZJdDopFk97puBpC59jU+7 +xgNaVyb6YlOyUOw+c+N3v3hBTl9nMdv1KvLVz3NoiOIDkWD/PhGn68hs/HfI +ia8C0H+W431bIA9Fbtx9RHaDIOx4VTpgsCcfGXCy7oZXC8NvySvcIkU3kNfc +ZMRLQVGoYTxeE/++AM2rinxkWq8CqzebDqlIFKKNxSW5GRlisJe/cvaKwS00 +ucrCcX+tOBjvLogXNCpC/UmO+32WS4K2+x/XdWYsZD4eaP5NVwr+chk+M1Jh +oxFnPt+7Z6Sh/S29aVaoGMdTiju2Vga+881EhPcWo1WvlZJvj8vC2M7fM1NJ +JUg+jtylqysPfDLI3WhDKbqsqi8idnQ1LJNjm+yoL0WNsiY6Py8qQNpS4blm +4KBmBVJpaaYCGGwOF6rZxEEdtNXSElcVILPfc7TUjIM+r53/rVuoAHnmnUtj +tnHQnEFZTchDBXBxfZK9ZhcHKR2kWnJ/VYDbypIemg4cFHVlibOotiIoPEit +tw3lIAP52hSNDkWolWo5vewOB30h6B+HuhUh1Z0jk3SXg+JVY1QLPimC2CMz +tsg9DuoysKiXHlIEs4u1NyQrOSjQ7t2fJf8pwolA0XmJag46sN17/bAIBe6F +5Op8aeSgjLjInCpdCgzGlxqXfeYgIZ58vyNRFJA+Or1EbSWJls1X752MpkDu ++ZbceEESLY71akXGUoD0rFj2XYhE490yk7lJFJAKa1tzRZREzeUXj/dlUGBF +ncXTX5IkSnWKdHMopoDfTnVHXyqJJGsdbQ+14ft3xzVG6ZBI6EG43mgHBRRU +N3pV6uLnca5Khr2nwN0Snc4xPRLNZnW1Xf1IgfHsLfz7DUjU5b1rd88gBeZ+ +L36SQCTKpoLFwQUKZPr+dT+4jUQKkYob7ZSosKSgI2DRjkQcXz5arzIVuMfq +ffkPksjYbXL5EVUqOFdxtorZk+jQ9rpWd00q/L19z484TKKrEkePBRlQ4e3e +wW86TiSSYXOyM62owNkqpEd4kki81Wi+PYAKRa9eq1CCSVTwXOmTXTAV5L6l +qS8LIdH6B8LPe09TYX09l+AP7D3XPqd8i6DCqU0qNmWhJLp49JzyTAIVBs6v +IzQj8P7/a7IRv06FSnUDzq8YEvEz7O/teUEFA3Vf7aI0EnnKIIviBiowLxjn +2V8iUaMg7SNPExUq3GNERNJJlPRrgLeimQpjOR9++Wbg9V76Wkt1U8Hy7Nt+ +jSwSrTqWOP1hBL+fSZ5NUA6J5MsearmuooGuXbqKZRGJQm9eq38sToMtUzcF +P2P3ZkUckJSiwR/bV7/8WCTKidoS9UKOBhtfs7uy2CSi7HvXosKgQeYt2d7O +EhIxZodOjenRIMm16w+9jETqRjJk4CEaKOmKqS2tJNEdwuMPtyMNkpUTas9i +bxCo3JrsRIOpG1o63A9JtKnTtq/gKA2+tp8n/2Dv974s+s4bXy9W9KevikRn +bkr5qcVgHwpa4V9DoqVJR2vux9HAZPWUzxfsBJ/7K00TacCjd/qB1VMSXUI2 +N+1SaJCqoPORqCVR0fuMjphsGsTV5mTW1OH8FJTU/8yhwUiaTm9dPYmsp13P +eZXRoN9subbiCxJ1d1e0zN6hQYZkh2cwdv8ta0+hShocqRgMWvuSRHMm6VcM +62ggGLZP9kwDicKUvw3UP6fBIadIvxZsbmEd7T0vaTCsWUTSGkm0sqetyf01 +DSolnBueYlMDxBfTO2nwQ0coeeoViQrtXSyo3TSY0Uj4adhEIjXTuxklPTSI +eMxlGI2tK7JPo+4zDTYLOpwSfU0iC3aa48QPGjSuOxGk8IZEPh9X1VlwEdBg +HiDL00yil/X2j9ncBPQM7+PVw1YgC+8L8BKQKP5kzgO78YxBSSM/ATVuV+eb +sGlUp3QLMQJ2mke5xbaQKIi/5AJbgoCvVM7lO9hvJmfiBaQJaPE3bvuIHVIb +H94oT8C2I7+Par0jUYtz2VELJQL6Tn9Z+gZbyfLPEbYyAYPiOuemsEO1N9sL +qBIQOvVSWLKVRMq873c1ahCgcI8wO4AdPkrbvlaLgEJr2lgIdlu71+YEbQKK +Slrys7EjCrkMLPQJgJPlap3YHckW2mxDvL9ROe5pbLXAS+oCxgSMmhd+EW7D +9WGrMtG4iQAlw+TnZtiaQztXWlji9dqeStzAjmnJWsa2IuBF3batD7B7Kr9y +CewmQH3qXXQTdlxC4EyDNd6PsDN9Cvujz9NxFVsC9OXzY3jaSaR9cMVw/AEC +JvL2z4hh96le/2juQEBQU+rcOmxd8aEu1hH8/O97zyPspP+0WvldCBh3WlC3 +xP7SH/raw42AHOmSXhvsDa/rXzS443gPhGY5YSdXiNSqHCPAsirJyQu7/9qB +qvjjBNglzW3wxzaIKbg3dJKAg3a98mHYKSfGbpv74O+rYSsUjf19/4Zilh+O +ByNGMAF7I4q6yR9IgMvhaNkL2Klrmq57BBOQxXtKJw17UFgyu+E0AUJ73Q5n +YBvPOVxSCSdgeXx0+mXsS32s5PgIAs5PD3RnYQ+//Bk3FIX3O1qqno0NZUZn +zc8RYNXxM+Xf/xlZsWGsWAIc5DuX/Lt/JLIlkD+BgGI9/8h07E2ecj4eSTge +7B/CqdiX97h6NSQTkMpjW3oee8yAdFO5SADrfaddHLYZMe8Yn0bAn7dxElHY +2StMDw6lEzCWFtcXgj3+M8na/DIBKb3TD32we7ry9l/LJqDi7Mp2D+zGx/ds +Jq8SkLZZlc8R+37+K9vN1wnQgeP7rLELYvvssvIIOJU9Vmn+Lz5eMwdGbxDQ +Gv1qgxH2md0C9iaFBNzVp7RoYB+Q0z48xCZgWj7fahX2Ni5zB6NSAq5MLNfm +xtb5dsjxIom/1/v96ydx/oiQsU76dwnYep0a8S+/FtKuOp+/h8/PyY7X//Jv +OKjM5fMDAkb0v+sUYD/f9MEt/jEBn4TirYOwy9dMHO2tJkDSzlrwCHbuSl6P +dbX4/K4e/7QNO6RD/dj7egLq/y60S/zLd8+okyrNBDy+TvLdxOdDYWfmqbB3 +BBz/KZgdg71Cu8S7pQ3HI4my9Sj294V23+D3BESxOqYZ2FcuqgQ1fCGg36Yi +7zI+v3EBxsGrvxFw63C/mC92wMG9Id4DBIi33863xN7FCAuVGSFg0TZTcgHX +h2WVzREeMwToPm05sBd7+tq3yMezBHQtJyqUsD9H/Y4S/U2ApsmC2jyuP1WW +9HOViwR4Ltb6X8H27guM5+ejw0zjuxPtb0l0+HlSwiEBOoydZz/Iw7Zk5yWW +raTDiPQ85Ti2kt+r83aidOBQfHYswe5ZrpjKkqXDgqqcjCKuj1s16rPNmXTw +qctN18T11HbZtn3NGnTw89PQGsL117O3QdBGiw69y469yMVOTnwd4aJHB0pi +dM9K7I6BNrczJnQ4PHCuogvXd5fcr1oV1nRYSohuRrg/BAS6jhja0sHI/0X4 +AO4ncVYDN2sP0IGLef1OMnbJf8PSzQ50sMveLdz9nEQ/bacWhz3oEMiRT3N5 +RqIo0SWvKOF0KN2xeXzbv/41GBV9K4IO6vP1o324vxVWLzVWP0sHhfLhoUDs +xuN8ZYZxdMiXevghv5pEoo3CmftT6bC+bYA18hjnR5SCc1IhHd4UKojvwv30 +yU/DP7Nv6LAk3QbZlJMor+m+094WOkT+MHLtwv06+ub6Rk4rHXpEyjm22OY2 +qlmuXXTw73pVsv82rscPZfVaP9Ph4q0zdts4OF8j530403TcLztSufE8ICly +f9hFlgHBVS4Brbkkmh/U2lMjz4Dc+YRd+tg9TzmVcooMSPa8sCfnOn6+b2Hc +O4IBLOnqN654HlHrTFcCJgMMq1KKh6/g+pDj5yQHDEiZeyvRhOeZE2pa3S2u +DPC6MVUwlkgi/1nZ3w7uDDhZJhK5Fju0lkd2zJMBo+HHXFwTSJRo224ncIoB +9uPJJl1xuP9HB73fFMIA3pRLB8rP4frb86TrTjID6mhzGhvO4Hnj/PbO9PsM +kHWllyZ6k8hozKXNjl8JJk2/69vvxft7tDW/aoUSSMTed/Dag+tT7NpTikJK +8Hzk673Tu/F8RJ1Y8W2VEjgl/ZjP3Inn432nTU/JK8HmTN7O+u0kqn50sTxG +QwnMlGeFF01JZBL/JOWOtRLkKT5PbV1Pos106R2C+UqwVdAoj8Dzs3JEQlCt +3hpQ29MSt+UZB6111a9mdK8BTqaVB7hwkOsT9+i73soQ241Cff6WourcNpdJ +CRWQvHMWNceUoumiv7Ma91XA5tJfJzZvKXJmFPNn71gLEoHr7O2jS9Dk2jTd +8om1EJ4XdmvfeDF6UPDn80ycKhwn1sbdsi9GB8wIMFRQA5k6yyOh9Wwkdzy2 +Ur1GDWyWHizXXM1GEgJeZTtsmHAr9Kb9VDALFZiGhUzYMUGDnj4pFMhCWmHJ +pmn2THhk/kFd1Y+FrCZut3cdYUKg6b4bTidYKKZjZt7Ziwk+6rYhr51YaC7/ +zKaQSCbk5VwQS9vOQt2Gaa2FxUzY8+Rd3Cd5FnL3L7hqzmHCz6UKWZMyLPSL +U+E6cpsJ5bcXbXmkWGgVrWt23T0meF9wG2SIstB2vtXyj2uYwBMpZ3mUl4Wq +2gpdWtuZ4CrmYPdhtAhZCD1gBnQxQTxoKmxwuAjPCw2/pD8wIeRLmfXMQBGa +fvgj7nAfE5KyshSFvhQhZp5m6dAwE1b+sCQ2dhShqm6TgKRRJvDxRA5sacXr +ie9FGhNMUKawHXc3FyG3WP8Wvxkm5HtX+7g24vVqYrKl5piwInv1ypMvilDU +70znh7+ZcJ3cdzDoWRES0WapHVpggtfVa46RT4tQzvGHM3//4vczWyef8KQI +/Q9Xup28 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VF8UAHCRQtmyLzEzb0bEIFlC3CNaSFqFUmQLabEvISR7EiEqIckM +5kWplCJKkYqsiVIpS/YI9aPf7a/5fD/z3n3vnnfuOYfqdHKPKzcXF9eyJVxc +/35/fWx4Rk+8ZGyqG9CvkK9q3JYjHWzS5YPYjNFFhh0/Aom3TtJdUYgm9lZt +zFYGBexid/J0paLL/63f22yrgkTHpFLnO/MRzyFUUGmrjz5VWZ2c7ixHGtus +zS7YmqMt9OHeyc5atHEwZ3rBxg7Nd+qlT3S+Q6nSPCPPrD1Qnemtgpb8r8iO +SlE0sQ9B8p8qvzupjSIhofqN3PFnkbiXA3u56U8kLmYV7HcvHqWu2/LIynoO +iZecEp1cm4LeX9asmRRZQE3p89weumkoseDMW26ZJdDopFk97puBpC59jU+7 +xgNaVyb6YlOyUOw+c+N3v3hBTl9nMdv1KvLVz3NoiOIDkWD/PhGn68hs/HfI +ia8C0H+W431bIA9Fbtx9RHaDIOx4VTpgsCcfGXCy7oZXC8NvySvcIkU3kNfc +ZMRLQVGoYTxeE/++AM2rinxkWq8CqzebDqlIFKKNxSW5GRlisJe/cvaKwS00 +ucrCcX+tOBjvLogXNCpC/UmO+32WS4K2+x/XdWYsZD4eaP5NVwr+chk+M1Jh +oxFnPt+7Z6Sh/S29aVaoGMdTiju2Vga+881EhPcWo1WvlZJvj8vC2M7fM1NJ +JUg+jtylqysPfDLI3WhDKbqsqi8idnQ1LJNjm+yoL0WNsiY6Py8qQNpS4blm +4KBmBVJpaaYCGGwOF6rZxEEdtNXSElcVILPfc7TUjIM+r53/rVuoAHnmnUtj +tnHQnEFZTchDBXBxfZK9ZhcHKR2kWnJ/VYDbypIemg4cFHVlibOotiIoPEit +tw3lIAP52hSNDkWolWo5vewOB30h6B+HuhUh1Z0jk3SXg+JVY1QLPimC2CMz +tsg9DuoysKiXHlIEs4u1NyQrOSjQ7t2fJf8pwolA0XmJag46sN17/bAIBe6F +5Op8aeSgjLjInCpdCgzGlxqXfeYgIZ58vyNRFJA+Or1EbSWJls1X752MpkDu ++ZbceEESLY71akXGUoD0rFj2XYhE490yk7lJFJAKa1tzRZREzeUXj/dlUGBF +ncXTX5IkSnWKdHMopoDfTnVHXyqJJGsdbQ+14ft3xzVG6ZBI6EG43mgHBRRU +N3pV6uLnca5Khr2nwN0Snc4xPRLNZnW1Xf1IgfHsLfz7DUjU5b1rd88gBeZ+ +L36SQCTKpoLFwQUKZPr+dT+4jUQKkYob7ZSosKSgI2DRjkQcXz5arzIVuMfq +ffkPksjYbXL5EVUqOFdxtorZk+jQ9rpWd00q/L19z484TKKrEkePBRlQ4e3e +wW86TiSSYXOyM62owNkqpEd4kki81Wi+PYAKRa9eq1CCSVTwXOmTXTAV5L6l +qS8LIdH6B8LPe09TYX09l+AP7D3XPqd8i6DCqU0qNmWhJLp49JzyTAIVBs6v +IzQj8P7/a7IRv06FSnUDzq8YEvEz7O/teUEFA3Vf7aI0EnnKIIviBiowLxjn +2V8iUaMg7SNPExUq3GNERNJJlPRrgLeimQpjOR9++Wbg9V76Wkt1U8Hy7Nt+ +jSwSrTqWOP1hBL+fSZ5NUA6J5MsearmuooGuXbqKZRGJQm9eq38sToMtUzcF +P2P3ZkUckJSiwR/bV7/8WCTKidoS9UKOBhtfs7uy2CSi7HvXosKgQeYt2d7O +EhIxZodOjenRIMm16w+9jETqRjJk4CEaKOmKqS2tJNEdwuMPtyMNkpUTas9i +bxCo3JrsRIOpG1o63A9JtKnTtq/gKA2+tp8n/2Dv974s+s4bXy9W9KevikRn +bkr5qcVgHwpa4V9DoqVJR2vux9HAZPWUzxfsBJ/7K00TacCjd/qB1VMSXUI2 +N+1SaJCqoPORqCVR0fuMjphsGsTV5mTW1OH8FJTU/8yhwUiaTm9dPYmsp13P +eZXRoN9subbiCxJ1d1e0zN6hQYZkh2cwdv8ta0+hShocqRgMWvuSRHMm6VcM +62ggGLZP9kwDicKUvw3UP6fBIadIvxZsbmEd7T0vaTCsWUTSGkm0sqetyf01 +DSolnBueYlMDxBfTO2nwQ0coeeoViQrtXSyo3TSY0Uj4adhEIjXTuxklPTSI +eMxlGI2tK7JPo+4zDTYLOpwSfU0iC3aa48QPGjSuOxGk8IZEPh9X1VlwEdBg +HiDL00yil/X2j9ncBPQM7+PVw1YgC+8L8BKQKP5kzgO78YxBSSM/ATVuV+eb +sGlUp3QLMQJ2mke5xbaQKIi/5AJbgoCvVM7lO9hvJmfiBaQJaPE3bvuIHVIb +H94oT8C2I7+Par0jUYtz2VELJQL6Tn9Z+gZbyfLPEbYyAYPiOuemsEO1N9sL +qBIQOvVSWLKVRMq873c1ahCgcI8wO4AdPkrbvlaLgEJr2lgIdlu71+YEbQKK +Slrys7EjCrkMLPQJgJPlap3YHckW2mxDvL9ROe5pbLXAS+oCxgSMmhd+EW7D +9WGrMtG4iQAlw+TnZtiaQztXWlji9dqeStzAjmnJWsa2IuBF3batD7B7Kr9y +CewmQH3qXXQTdlxC4EyDNd6PsDN9Cvujz9NxFVsC9OXzY3jaSaR9cMVw/AEC +JvL2z4hh96le/2juQEBQU+rcOmxd8aEu1hH8/O97zyPspP+0WvldCBh3WlC3 +xP7SH/raw42AHOmSXhvsDa/rXzS443gPhGY5YSdXiNSqHCPAsirJyQu7/9qB +qvjjBNglzW3wxzaIKbg3dJKAg3a98mHYKSfGbpv74O+rYSsUjf19/4Zilh+O +ByNGMAF7I4q6yR9IgMvhaNkL2Klrmq57BBOQxXtKJw17UFgyu+E0AUJ73Q5n +YBvPOVxSCSdgeXx0+mXsS32s5PgIAs5PD3RnYQ+//Bk3FIX3O1qqno0NZUZn +zc8RYNXxM+Xf/xlZsWGsWAIc5DuX/Lt/JLIlkD+BgGI9/8h07E2ecj4eSTge +7B/CqdiX97h6NSQTkMpjW3oee8yAdFO5SADrfaddHLYZMe8Yn0bAn7dxElHY +2StMDw6lEzCWFtcXgj3+M8na/DIBKb3TD32we7ry9l/LJqDi7Mp2D+zGx/ds +Jq8SkLZZlc8R+37+K9vN1wnQgeP7rLELYvvssvIIOJU9Vmn+Lz5eMwdGbxDQ +Gv1qgxH2md0C9iaFBNzVp7RoYB+Q0z48xCZgWj7fahX2Ni5zB6NSAq5MLNfm +xtb5dsjxIom/1/v96ydx/oiQsU76dwnYep0a8S+/FtKuOp+/h8/PyY7X//Jv +OKjM5fMDAkb0v+sUYD/f9MEt/jEBn4TirYOwy9dMHO2tJkDSzlrwCHbuSl6P +dbX4/K4e/7QNO6RD/dj7egLq/y60S/zLd8+okyrNBDy+TvLdxOdDYWfmqbB3 +BBz/KZgdg71Cu8S7pQ3HI4my9Sj294V23+D3BESxOqYZ2FcuqgQ1fCGg36Yi +7zI+v3EBxsGrvxFw63C/mC92wMG9Id4DBIi33863xN7FCAuVGSFg0TZTcgHX +h2WVzREeMwToPm05sBd7+tq3yMezBHQtJyqUsD9H/Y4S/U2ApsmC2jyuP1WW +9HOViwR4Ltb6X8H27guM5+ejw0zjuxPtb0l0+HlSwiEBOoydZz/Iw7Zk5yWW +raTDiPQ85Ti2kt+r83aidOBQfHYswe5ZrpjKkqXDgqqcjCKuj1s16rPNmXTw +qctN18T11HbZtn3NGnTw89PQGsL117O3QdBGiw69y469yMVOTnwd4aJHB0pi +dM9K7I6BNrczJnQ4PHCuogvXd5fcr1oV1nRYSohuRrg/BAS6jhja0sHI/0X4 +AO4ncVYDN2sP0IGLef1OMnbJf8PSzQ50sMveLdz9nEQ/bacWhz3oEMiRT3N5 +RqIo0SWvKOF0KN2xeXzbv/41GBV9K4IO6vP1o324vxVWLzVWP0sHhfLhoUDs +xuN8ZYZxdMiXevghv5pEoo3CmftT6bC+bYA18hjnR5SCc1IhHd4UKojvwv30 +yU/DP7Nv6LAk3QbZlJMor+m+094WOkT+MHLtwv06+ub6Rk4rHXpEyjm22OY2 +qlmuXXTw73pVsv82rscPZfVaP9Ph4q0zdts4OF8j530403TcLztSufE8ICly +f9hFlgHBVS4Brbkkmh/U2lMjz4Dc+YRd+tg9TzmVcooMSPa8sCfnOn6+b2Hc +O4IBLOnqN654HlHrTFcCJgMMq1KKh6/g+pDj5yQHDEiZeyvRhOeZE2pa3S2u +DPC6MVUwlkgi/1nZ3w7uDDhZJhK5Fju0lkd2zJMBo+HHXFwTSJRo224ncIoB +9uPJJl1xuP9HB73fFMIA3pRLB8rP4frb86TrTjID6mhzGhvO4Hnj/PbO9PsM +kHWllyZ6k8hozKXNjl8JJk2/69vvxft7tDW/aoUSSMTed/Dag+tT7NpTikJK +8Hzk673Tu/F8RJ1Y8W2VEjgl/ZjP3Inn432nTU/JK8HmTN7O+u0kqn50sTxG +QwnMlGeFF01JZBL/JOWOtRLkKT5PbV1Pos106R2C+UqwVdAoj8Dzs3JEQlCt +3hpQ29MSt+UZB6111a9mdK8BTqaVB7hwkOsT9+i73soQ241Cff6WourcNpdJ +CRWQvHMWNceUoumiv7Ma91XA5tJfJzZvKXJmFPNn71gLEoHr7O2jS9Dk2jTd +8om1EJ4XdmvfeDF6UPDn80ycKhwn1sbdsi9GB8wIMFRQA5k6yyOh9Wwkdzy2 +Ur1GDWyWHizXXM1GEgJeZTtsmHAr9Kb9VDALFZiGhUzYMUGDnj4pFMhCWmHJ +pmn2THhk/kFd1Y+FrCZut3cdYUKg6b4bTidYKKZjZt7Ziwk+6rYhr51YaC7/ +zKaQSCbk5VwQS9vOQt2Gaa2FxUzY8+Rd3Cd5FnL3L7hqzmHCz6UKWZMyLPSL +U+E6cpsJ5bcXbXmkWGgVrWt23T0meF9wG2SIstB2vtXyj2uYwBMpZ3mUl4Wq +2gpdWtuZ4CrmYPdhtAhZCD1gBnQxQTxoKmxwuAjPCw2/pD8wIeRLmfXMQBGa +fvgj7nAfE5KyshSFvhQhZp5m6dAwE1b+sCQ2dhShqm6TgKRRJvDxRA5sacXr +ie9FGhNMUKawHXc3FyG3WP8Wvxkm5HtX+7g24vVqYrKl5piwInv1ypMvilDU +70znh7+ZcJ3cdzDoWRES0WapHVpggtfVa46RT4tQzvGHM3//4vczWyef8KQI +/Q9Xup28 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.06217653102700188}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.06217653102700188}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VF8UAHCRQtmyLzEzb0bEIFlC3CNaSFqFUmQLabEvISR7EiEqIckM +5kWplCJKkYqsiVIpS/YI9aPf7a/5fD/z3n3vnnfuOYfqdHKPKzcXF9eyJVxc +/35/fWx4Rk+8ZGyqG9CvkK9q3JYjHWzS5YPYjNFFhh0/Aom3TtJdUYgm9lZt +zFYGBexid/J0paLL/63f22yrgkTHpFLnO/MRzyFUUGmrjz5VWZ2c7ixHGtus +zS7YmqMt9OHeyc5atHEwZ3rBxg7Nd+qlT3S+Q6nSPCPPrD1Qnemtgpb8r8iO +SlE0sQ9B8p8qvzupjSIhofqN3PFnkbiXA3u56U8kLmYV7HcvHqWu2/LIynoO +iZecEp1cm4LeX9asmRRZQE3p89weumkoseDMW26ZJdDopFk97puBpC59jU+7 +xgNaVyb6YlOyUOw+c+N3v3hBTl9nMdv1KvLVz3NoiOIDkWD/PhGn68hs/HfI +ia8C0H+W431bIA9Fbtx9RHaDIOx4VTpgsCcfGXCy7oZXC8NvySvcIkU3kNfc +ZMRLQVGoYTxeE/++AM2rinxkWq8CqzebDqlIFKKNxSW5GRlisJe/cvaKwS00 +ucrCcX+tOBjvLogXNCpC/UmO+32WS4K2+x/XdWYsZD4eaP5NVwr+chk+M1Jh +oxFnPt+7Z6Sh/S29aVaoGMdTiju2Vga+881EhPcWo1WvlZJvj8vC2M7fM1NJ +JUg+jtylqysPfDLI3WhDKbqsqi8idnQ1LJNjm+yoL0WNsiY6Py8qQNpS4blm +4KBmBVJpaaYCGGwOF6rZxEEdtNXSElcVILPfc7TUjIM+r53/rVuoAHnmnUtj +tnHQnEFZTchDBXBxfZK9ZhcHKR2kWnJ/VYDbypIemg4cFHVlibOotiIoPEit +tw3lIAP52hSNDkWolWo5vewOB30h6B+HuhUh1Z0jk3SXg+JVY1QLPimC2CMz +tsg9DuoysKiXHlIEs4u1NyQrOSjQ7t2fJf8pwolA0XmJag46sN17/bAIBe6F +5Op8aeSgjLjInCpdCgzGlxqXfeYgIZ58vyNRFJA+Or1EbSWJls1X752MpkDu ++ZbceEESLY71akXGUoD0rFj2XYhE490yk7lJFJAKa1tzRZREzeUXj/dlUGBF +ncXTX5IkSnWKdHMopoDfTnVHXyqJJGsdbQ+14ft3xzVG6ZBI6EG43mgHBRRU +N3pV6uLnca5Khr2nwN0Snc4xPRLNZnW1Xf1IgfHsLfz7DUjU5b1rd88gBeZ+ +L36SQCTKpoLFwQUKZPr+dT+4jUQKkYob7ZSosKSgI2DRjkQcXz5arzIVuMfq +ffkPksjYbXL5EVUqOFdxtorZk+jQ9rpWd00q/L19z484TKKrEkePBRlQ4e3e +wW86TiSSYXOyM62owNkqpEd4kki81Wi+PYAKRa9eq1CCSVTwXOmTXTAV5L6l +qS8LIdH6B8LPe09TYX09l+AP7D3XPqd8i6DCqU0qNmWhJLp49JzyTAIVBs6v +IzQj8P7/a7IRv06FSnUDzq8YEvEz7O/teUEFA3Vf7aI0EnnKIIviBiowLxjn +2V8iUaMg7SNPExUq3GNERNJJlPRrgLeimQpjOR9++Wbg9V76Wkt1U8Hy7Nt+ +jSwSrTqWOP1hBL+fSZ5NUA6J5MsearmuooGuXbqKZRGJQm9eq38sToMtUzcF +P2P3ZkUckJSiwR/bV7/8WCTKidoS9UKOBhtfs7uy2CSi7HvXosKgQeYt2d7O +EhIxZodOjenRIMm16w+9jETqRjJk4CEaKOmKqS2tJNEdwuMPtyMNkpUTas9i +bxCo3JrsRIOpG1o63A9JtKnTtq/gKA2+tp8n/2Dv974s+s4bXy9W9KevikRn +bkr5qcVgHwpa4V9DoqVJR2vux9HAZPWUzxfsBJ/7K00TacCjd/qB1VMSXUI2 +N+1SaJCqoPORqCVR0fuMjphsGsTV5mTW1OH8FJTU/8yhwUiaTm9dPYmsp13P +eZXRoN9subbiCxJ1d1e0zN6hQYZkh2cwdv8ta0+hShocqRgMWvuSRHMm6VcM +62ggGLZP9kwDicKUvw3UP6fBIadIvxZsbmEd7T0vaTCsWUTSGkm0sqetyf01 +DSolnBueYlMDxBfTO2nwQ0coeeoViQrtXSyo3TSY0Uj4adhEIjXTuxklPTSI +eMxlGI2tK7JPo+4zDTYLOpwSfU0iC3aa48QPGjSuOxGk8IZEPh9X1VlwEdBg +HiDL00yil/X2j9ncBPQM7+PVw1YgC+8L8BKQKP5kzgO78YxBSSM/ATVuV+eb +sGlUp3QLMQJ2mke5xbaQKIi/5AJbgoCvVM7lO9hvJmfiBaQJaPE3bvuIHVIb +H94oT8C2I7+Par0jUYtz2VELJQL6Tn9Z+gZbyfLPEbYyAYPiOuemsEO1N9sL +qBIQOvVSWLKVRMq873c1ahCgcI8wO4AdPkrbvlaLgEJr2lgIdlu71+YEbQKK +Slrys7EjCrkMLPQJgJPlap3YHckW2mxDvL9ROe5pbLXAS+oCxgSMmhd+EW7D +9WGrMtG4iQAlw+TnZtiaQztXWlji9dqeStzAjmnJWsa2IuBF3batD7B7Kr9y +CewmQH3qXXQTdlxC4EyDNd6PsDN9Cvujz9NxFVsC9OXzY3jaSaR9cMVw/AEC +JvL2z4hh96le/2juQEBQU+rcOmxd8aEu1hH8/O97zyPspP+0WvldCBh3WlC3 +xP7SH/raw42AHOmSXhvsDa/rXzS443gPhGY5YSdXiNSqHCPAsirJyQu7/9qB +qvjjBNglzW3wxzaIKbg3dJKAg3a98mHYKSfGbpv74O+rYSsUjf19/4Zilh+O +ByNGMAF7I4q6yR9IgMvhaNkL2Klrmq57BBOQxXtKJw17UFgyu+E0AUJ73Q5n +YBvPOVxSCSdgeXx0+mXsS32s5PgIAs5PD3RnYQ+//Bk3FIX3O1qqno0NZUZn +zc8RYNXxM+Xf/xlZsWGsWAIc5DuX/Lt/JLIlkD+BgGI9/8h07E2ecj4eSTge +7B/CqdiX97h6NSQTkMpjW3oee8yAdFO5SADrfaddHLYZMe8Yn0bAn7dxElHY +2StMDw6lEzCWFtcXgj3+M8na/DIBKb3TD32we7ry9l/LJqDi7Mp2D+zGx/ds +Jq8SkLZZlc8R+37+K9vN1wnQgeP7rLELYvvssvIIOJU9Vmn+Lz5eMwdGbxDQ +Gv1qgxH2md0C9iaFBNzVp7RoYB+Q0z48xCZgWj7fahX2Ni5zB6NSAq5MLNfm +xtb5dsjxIom/1/v96ydx/oiQsU76dwnYep0a8S+/FtKuOp+/h8/PyY7X//Jv +OKjM5fMDAkb0v+sUYD/f9MEt/jEBn4TirYOwy9dMHO2tJkDSzlrwCHbuSl6P +dbX4/K4e/7QNO6RD/dj7egLq/y60S/zLd8+okyrNBDy+TvLdxOdDYWfmqbB3 +BBz/KZgdg71Cu8S7pQ3HI4my9Sj294V23+D3BESxOqYZ2FcuqgQ1fCGg36Yi +7zI+v3EBxsGrvxFw63C/mC92wMG9Id4DBIi33863xN7FCAuVGSFg0TZTcgHX +h2WVzREeMwToPm05sBd7+tq3yMezBHQtJyqUsD9H/Y4S/U2ApsmC2jyuP1WW +9HOViwR4Ltb6X8H27guM5+ejw0zjuxPtb0l0+HlSwiEBOoydZz/Iw7Zk5yWW +raTDiPQ85Ti2kt+r83aidOBQfHYswe5ZrpjKkqXDgqqcjCKuj1s16rPNmXTw +qctN18T11HbZtn3NGnTw89PQGsL117O3QdBGiw69y469yMVOTnwd4aJHB0pi +dM9K7I6BNrczJnQ4PHCuogvXd5fcr1oV1nRYSohuRrg/BAS6jhja0sHI/0X4 +AO4ncVYDN2sP0IGLef1OMnbJf8PSzQ50sMveLdz9nEQ/bacWhz3oEMiRT3N5 +RqIo0SWvKOF0KN2xeXzbv/41GBV9K4IO6vP1o324vxVWLzVWP0sHhfLhoUDs +xuN8ZYZxdMiXevghv5pEoo3CmftT6bC+bYA18hjnR5SCc1IhHd4UKojvwv30 +yU/DP7Nv6LAk3QbZlJMor+m+094WOkT+MHLtwv06+ub6Rk4rHXpEyjm22OY2 +qlmuXXTw73pVsv82rscPZfVaP9Ph4q0zdts4OF8j530403TcLztSufE8ICly +f9hFlgHBVS4Brbkkmh/U2lMjz4Dc+YRd+tg9TzmVcooMSPa8sCfnOn6+b2Hc +O4IBLOnqN654HlHrTFcCJgMMq1KKh6/g+pDj5yQHDEiZeyvRhOeZE2pa3S2u +DPC6MVUwlkgi/1nZ3w7uDDhZJhK5Fju0lkd2zJMBo+HHXFwTSJRo224ncIoB +9uPJJl1xuP9HB73fFMIA3pRLB8rP4frb86TrTjID6mhzGhvO4Hnj/PbO9PsM +kHWllyZ6k8hozKXNjl8JJk2/69vvxft7tDW/aoUSSMTed/Dag+tT7NpTikJK +8Hzk673Tu/F8RJ1Y8W2VEjgl/ZjP3Inn432nTU/JK8HmTN7O+u0kqn50sTxG +QwnMlGeFF01JZBL/JOWOtRLkKT5PbV1Pos106R2C+UqwVdAoj8Dzs3JEQlCt +3hpQ29MSt+UZB6111a9mdK8BTqaVB7hwkOsT9+i73soQ241Cff6WourcNpdJ +CRWQvHMWNceUoumiv7Ma91XA5tJfJzZvKXJmFPNn71gLEoHr7O2jS9Dk2jTd +8om1EJ4XdmvfeDF6UPDn80ycKhwn1sbdsi9GB8wIMFRQA5k6yyOh9Wwkdzy2 +Ur1GDWyWHizXXM1GEgJeZTtsmHAr9Kb9VDALFZiGhUzYMUGDnj4pFMhCWmHJ +pmn2THhk/kFd1Y+FrCZut3cdYUKg6b4bTidYKKZjZt7Ziwk+6rYhr51YaC7/ +zKaQSCbk5VwQS9vOQt2Gaa2FxUzY8+Rd3Cd5FnL3L7hqzmHCz6UKWZMyLPSL +U+E6cpsJ5bcXbXmkWGgVrWt23T0meF9wG2SIstB2vtXyj2uYwBMpZ3mUl4Wq +2gpdWtuZ4CrmYPdhtAhZCD1gBnQxQTxoKmxwuAjPCw2/pD8wIeRLmfXMQBGa +fvgj7nAfE5KyshSFvhQhZp5m6dAwE1b+sCQ2dhShqm6TgKRRJvDxRA5sacXr +ie9FGhNMUKawHXc3FyG3WP8Wvxkm5HtX+7g24vVqYrKl5piwInv1ypMvilDU +70znh7+ZcJ3cdzDoWRES0WapHVpggtfVa46RT4tQzvGHM3//4vczWyef8KQI +/Q9Xup28 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.06217653102700188}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, + 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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, 15}, {0., 0.06217653102700188}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}, + 3.9921309536304436`*^9}, + CellLabel-> + "Out[140]=",ExpressionUUID->"9eec1b91-f793-0f40-a507-d129d6285c09"] +}, 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[141]:=",ExpressionUUID->"bd700bac-9ff0-794b-a1df-85afecca9797"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4154964045202317`*^-190\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 1038, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437636167164`*^9, 3.9921309537235336`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"fa269488-cc09-e84e-b990-3139824b4e9a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.2315276692186634`*^-194\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 1039, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437636167164`*^9, 3.9921309537494297`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"eeb3ab69-bec9-0b4c-a14e-c3509c8d46d4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.061570337744944`*^-198\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 1040, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437636167164`*^9, 3.9921309537624397`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"781edc7d-f37c-7d4d-9db6-b438c6d3ebd2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 141, 1041, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437636167164`*^9, 3.9921309537764416`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"5ff4b658-eb5b-1e44-807d-52e2d237793e"], + +Cell[BoxData["18.179600003742127`"], "Output", + CellChangeTimes->{3.991343769962549*^9, 3.992130990449623*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"4e5cde0a-224b-594b-b41d-0f91b49ac1a6"] +}, 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.991846744062315*^9, 3.9918467481290073`*^9}}, + CellLabel-> + "In[142]:=",ExpressionUUID->"aa4ca102-401f-6c45-84ea-b21fa4222eb4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4869778192568586`*^-219\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 142, 1042, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343769999645*^9, 3.992130990556341*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"490cb7de-bb22-d54f-8afe-52f1bb547c6c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.522435238209719`*^-225\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 142, 1043, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343769999645*^9, 3.9921309905743427`*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"e1e3c708-3bbb-1945-95e1-109d4ae4d410"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.9204885474685138`*^-230\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 142, 1044, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343769999645*^9, 3.992130990582342*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"c62e3ff7-ac6a-754a-859e-a220ca776f13"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 142, 1045, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343769999645*^9, 3.9921309905923424`*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"5f4103b5-e696-5b44-8ab1-78364c63b432"], + +Cell[BoxData["2.4941978971879943`"], "Output", + CellChangeTimes->{3.9913437771602173`*^9, 3.9921309983709984`*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"1ca40beb-00b3-0549-bfd5-5ebd49fb4ede"] +}, 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.9918467529108715`*^9, 3.9918467555119896`*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"6ecebc3a-297f-ad45-be0e-687cb63b6c02"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4869778192568586`*^-219\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 143, 1046, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437771982174`*^9, 3.99213099846607*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"52a7dcaa-a7c9-884e-9eeb-39c70c265811"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.522435238209719`*^-225\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 143, 1047, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437771982174`*^9, 3.99213099849098*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"38b8234c-ce89-5848-9c6d-05b4b38e9707"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.9204885474685138`*^-230\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 143, 1048, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437771982174`*^9, 3.992130998511801*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"34963974-759a-9f40-8034-b4a832fbfdea"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 143, 1049, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437771982174`*^9, 3.9921309985298157`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"a5bd42d1-02f8-9040-bd2f-015eaf7e9e82"], + +Cell[BoxData["40.84284322959702`"], "Output", + CellChangeTimes->{3.991343783589731*^9, 3.992131009126316*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"6e50106d-d1da-944e-8847-e8212a7e1b2d"] +}, 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.9918467593835926`*^9, 3.991846761720169*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"f4d4d2f3-a6fe-7445-a71e-f1844b022d84"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4869778192568586`*^-219\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 144, 1050, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437836316223`*^9, 3.992131009225992*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"3f3af3d4-c63e-894e-b330-80851bf13e62"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.522435238209719`*^-225\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 144, 1051, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437836316223`*^9, 3.9921310092470455`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"93eac98d-63de-7746-b969-51b856eec5ab"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.9204885474685138`*^-230\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 144, 1052, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437836316223`*^9, 3.992131009264124*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"255184cf-10a1-5a42-9a7c-500e31f3ccfc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 144, 1053, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437836316223`*^9, 3.992131009287985*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"d837402c-87f2-eb4e-99ff-dc74c31722bc"], + +Cell[BoxData["29.97712929251923`"], "Output", + CellChangeTimes->{3.9913437870822353`*^9, 3.992131017350151*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"2fce02a8-d9f0-fc4b-885d-927ab6de0e03"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918467646351814`*^9, 3.99184676823822*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"84cd8b8a-60e5-9e4d-8a98-fd76363577db"], + +Cell[BoxData["0.07128167634220066`"], "Output", + CellChangeTimes->{3.991343787117275*^9, 3.992131017426153*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"dc08d3e8-9c10-1d42-a671-9da55ba9d254"] +}, 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->"feb57727-78bd-5c41-b356-12adf3ce0cb1" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 452, 7, 28, "Input",ExpressionUUID->"7becc32d-eb8d-4e45-8813-f88647e5707f"], +Cell[1031, 31, 354, 5, 32, "Output",ExpressionUUID->"31d7deb4-7fca-ef4b-a8c1-3f894136c50b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1422, 41, 346, 5, 28, "Input",ExpressionUUID->"501d8ee7-1230-4347-82f5-596f0d5ad95a"], +Cell[1771, 48, 431, 6, 32, "Output",ExpressionUUID->"80acbd6d-f1c2-cd49-8d18-05ea2a05eebf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2239, 59, 253, 5, 28, "Input",ExpressionUUID->"63bec01c-e664-4d4f-ab41-21d70c3c0e53"], +Cell[2495, 66, 428, 6, 32, "Output",ExpressionUUID->"f63ce5d5-4038-1d48-8b93-b8d21bfbc055"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2960, 77, 175, 3, 28, "Input",ExpressionUUID->"cc4ee07a-894d-ae46-8e3b-7322fc5ebe6a"], +Cell[3138, 82, 401, 6, 32, "Output",ExpressionUUID->"4c7d5e7e-6952-fb46-a615-a13f74ddf695"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3576, 93, 257, 7, 43, "Input",ExpressionUUID->"f3f36a60-4daf-2043-81ba-a7480a0c9f59"], +Cell[3836, 102, 411, 6, 32, "Output",ExpressionUUID->"8e5f4113-0111-ab47-9dc7-e9ca3074952c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4284, 113, 131, 2, 28, "Input",ExpressionUUID->"ed61af50-b3ee-ec46-b982-53282e3d7921"], +Cell[4418, 117, 403, 6, 32, "Output",ExpressionUUID->"7f38e11a-dd8d-694c-b531-db106036504c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4858, 128, 276, 6, 28, "Input",ExpressionUUID->"2f049cf6-e93b-4b45-8491-75c1252573f6"], +Cell[5137, 136, 420, 6, 32, "Output",ExpressionUUID->"76bcb169-2047-e345-8fc2-af354f21057d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5594, 147, 257, 7, 28, "Input",ExpressionUUID->"566b9f9d-bdf4-ac4e-99c0-499ed1c6f439"], +Cell[5854, 156, 418, 6, 32, "Output",ExpressionUUID->"fa20f2e5-e56c-4945-83db-cf646357d068"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6309, 167, 236, 4, 28, "Input",ExpressionUUID->"d021772c-daca-d449-b0d2-56e32add61b0"], +Cell[6548, 173, 440, 6, 32, "Output",ExpressionUUID->"81a195aa-a667-9545-a41b-2b3b070310f8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7025, 184, 236, 4, 28, "Input",ExpressionUUID->"92a4d197-ed9e-234a-8fde-2abd89583a7d"], +Cell[7264, 190, 438, 6, 32, "Output",ExpressionUUID->"2590f61d-d9c6-8646-a964-84de792d0317"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7739, 201, 129, 2, 28, "Input",ExpressionUUID->"d615b668-43c2-6145-984e-5a8100e3cce8"], +Cell[7871, 205, 404, 6, 32, "Output",ExpressionUUID->"f852a541-b7fa-bd4d-9775-c86280ab382c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8312, 216, 129, 2, 28, "Input",ExpressionUUID->"a6496b93-6920-3f45-a9b8-0f0465d78418"], +Cell[8444, 220, 397, 6, 32, "Output",ExpressionUUID->"4ab4ffeb-6b34-424a-a1ed-5d0d28362374"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8878, 231, 557, 19, 79, "Input",ExpressionUUID->"eb96a8df-b43d-2546-8808-919c108697de"], +Cell[9438, 252, 396, 6, 32, "Output",ExpressionUUID->"b4b520d6-184b-d640-bcc5-9b803c5d5d83"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9871, 263, 557, 19, 79, "Input",ExpressionUUID->"823ffbf1-a50f-e840-8cb2-e67c74b01da2"], +Cell[10431, 284, 400, 6, 32, "Output",ExpressionUUID->"1feac3a4-e91f-e645-ab8a-0c67bc9f5701"] +}, Open ]], +Cell[CellGroupData[{ +Cell[10868, 295, 1492, 48, 80, "Input",ExpressionUUID->"9dcd5006-9ec8-db49-bd89-7b9e52c1c35c"], +Cell[12363, 345, 396, 6, 32, "Output",ExpressionUUID->"d88c4b09-d791-894a-b406-fbe952a1f9df"] +}, Open ]], +Cell[CellGroupData[{ +Cell[12796, 356, 1331, 44, 80, "Input",ExpressionUUID->"528b9bc2-408c-0d4f-9785-2b4842406a81"], +Cell[14130, 402, 416, 7, 32, "Output",ExpressionUUID->"b45a2f86-a3e8-1a4c-942d-cefa4dbfa3fc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14583, 414, 1331, 44, 80, "Input",ExpressionUUID->"93e1d94f-4a7d-b945-9096-fa632357caf7"], +Cell[15917, 460, 421, 7, 32, "Output",ExpressionUUID->"92862a6a-ba7c-7b48-a56e-19d08094c553"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16375, 472, 1492, 48, 80, "Input",ExpressionUUID->"d455cb89-3314-9b43-ac05-57b52f28daf4"], +Cell[17870, 522, 390, 6, 32, "Output",ExpressionUUID->"9ba5a865-4a41-a549-a88e-d34758471ec1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18297, 533, 131, 2, 28, "Input",ExpressionUUID->"a05095db-b9de-9b48-ac56-2a32e3bf062f"], +Cell[18431, 537, 382, 6, 32, "Output",ExpressionUUID->"e39f8c15-4461-9b48-896f-400614304e30"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18850, 548, 177, 3, 28, "Input",ExpressionUUID->"29bd74d9-1c61-0d45-b389-dbb48ee4f1ee"], +Cell[19030, 553, 380, 6, 32, "Output",ExpressionUUID->"8c380c16-086d-8442-998f-5a3a4110b80b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19447, 564, 134, 2, 28, "Input",ExpressionUUID->"0158aa26-de03-4146-a4b6-ac2833160e7c"], +Cell[19584, 568, 386, 6, 32, "Output",ExpressionUUID->"4cb8ef03-7ed2-0e41-b6e6-3107216f09cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20007, 579, 219, 4, 28, "Input",ExpressionUUID->"430daa96-0934-c24c-b4b5-d444dbf3619c"], +Cell[20229, 585, 391, 7, 32, "Output",ExpressionUUID->"cda110ee-9674-2443-81a4-ae51532cf2f6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20657, 597, 134, 2, 28, "Input",ExpressionUUID->"04fe76a6-5f0e-754e-acad-d1cf2fb0ab28"], +Cell[20794, 601, 384, 6, 32, "Output",ExpressionUUID->"c299c689-bff4-9a44-96aa-8d28cdbe61a0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21215, 612, 302, 5, 28, "Input",ExpressionUUID->"8684be0e-3bbc-154d-ad18-38faf8863505"], +Cell[21520, 619, 330, 5, 32, "Output",ExpressionUUID->"85297e4d-ab56-0745-a20d-6faed80993a5"] +}, Open ]], +Cell[21865, 627, 173, 2, 28, "Input",ExpressionUUID->"85a33b89-71fa-684e-bb3e-64e2b87fcf6c"], +Cell[CellGroupData[{ +Cell[22063, 633, 296, 5, 28, "Input",ExpressionUUID->"0c7088f6-2c66-f64b-8b61-3532da7b9eda"], +Cell[22362, 640, 377, 6, 32, "Output",ExpressionUUID->"aa948db7-077c-f342-977c-f5e84c7f9d9b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22776, 651, 219, 4, 28, "Input",ExpressionUUID->"c36247d5-b837-624b-bdaa-a13bf2c85851"], +Cell[22998, 657, 377, 6, 32, "Output",ExpressionUUID->"77ff2a36-62cb-b748-822f-ceedfdb42a9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23412, 668, 350, 10, 43, "Input",ExpressionUUID->"8fdf3705-eec8-1240-9ca7-3673af46fcaf"], +Cell[23765, 680, 397, 6, 32, "Output",ExpressionUUID->"f9b3a4a9-f631-a049-bf95-f2da3cf92555"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24199, 691, 350, 10, 43, "Input",ExpressionUUID->"0ea23348-bf1f-9d45-8263-bc34b0e56633"], +Cell[24552, 703, 408, 7, 32, "Output",ExpressionUUID->"42f602ba-579f-434c-9948-dd86acd5422d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24997, 715, 992, 26, 113, "Input",ExpressionUUID->"4db5e823-2230-df40-80cb-9001b40f09df"], +Cell[25992, 743, 400, 6, 32, "Output",ExpressionUUID->"e78d72f6-43f9-8149-9284-7b3bbdf993c7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26429, 754, 199, 3, 28, "Input",ExpressionUUID->"96863d52-30ab-a744-bf77-247b24cb12d8"], +Cell[26631, 759, 384, 6, 32, "Output",ExpressionUUID->"684c8999-e8fe-0c49-a096-aa33f98e4c07"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27052, 770, 275, 4, 28, "Input",ExpressionUUID->"9db91ff1-563f-7f49-af13-821d82c7d432"], +Cell[27330, 776, 337, 5, 32, "Output",ExpressionUUID->"d168b61c-c4b1-3445-a122-c9047e592e44"] +}, Open ]], +Cell[27682, 784, 175, 2, 28, "Input",ExpressionUUID->"55e2fea8-d69b-c047-a527-3a9b7f98da48"], +Cell[CellGroupData[{ +Cell[27882, 790, 323, 5, 28, "Input",ExpressionUUID->"575beacd-3e55-b245-ac1d-59fa721e0642"], +Cell[28208, 797, 336, 5, 32, "Output",ExpressionUUID->"5bfe7738-02ed-b94f-ab13-b1a7abc50420"] +}, Open ]], +Cell[28559, 805, 173, 2, 28, "Input",ExpressionUUID->"b010352a-df1e-7640-a13b-6f618ced4f27"], +Cell[CellGroupData[{ +Cell[28757, 811, 343, 6, 47, "Input",ExpressionUUID->"70b9c07d-1093-3445-a9fb-744d8dee5ac7"], +Cell[29103, 819, 331, 5, 32, "Output",ExpressionUUID->"0066110b-1d3f-c04c-bc8e-d0772ff58212"] +}, Open ]], +Cell[29449, 827, 175, 2, 28, "Input",ExpressionUUID->"cf4f9a38-9f3e-fc41-a9f9-da910343df1c"], +Cell[CellGroupData[{ +Cell[29649, 833, 347, 6, 47, "Input",ExpressionUUID->"b03f7211-2152-144e-89eb-b61f7f3d7595"], +Cell[29999, 841, 337, 5, 32, "Output",ExpressionUUID->"3f7e2665-b5f4-7a4a-8fd7-5907643631df"] +}, Open ]], +Cell[30351, 849, 175, 2, 28, "Input",ExpressionUUID->"8e1e0caa-d0c7-a44a-966b-c3e5b9c19a60"], +Cell[CellGroupData[{ +Cell[30551, 855, 273, 4, 28, "Input",ExpressionUUID->"f744e2a7-13fa-0d41-9416-8c7b221abc31"], +Cell[30827, 861, 327, 5, 32, "Output",ExpressionUUID->"f1b92c08-4eb0-014a-bda1-41f58696fa29"] +}, Open ]], +Cell[31169, 869, 173, 2, 28, "Input",ExpressionUUID->"e1602f9b-7ce5-a245-a432-ad8101885ef6"], +Cell[CellGroupData[{ +Cell[31367, 875, 277, 4, 28, "Input",ExpressionUUID->"c94eb86e-b158-d74c-b004-3b2e41ab51d0"], +Cell[31647, 881, 334, 5, 32, "Output",ExpressionUUID->"ff83928b-b366-bb48-b167-bece01cbe466"] +}, Open ]], +Cell[31996, 889, 171, 2, 28, "Input",ExpressionUUID->"47239c8e-9d2d-9b49-b541-49ec180a0d99"], +Cell[CellGroupData[{ +Cell[32192, 895, 325, 6, 47, "Input",ExpressionUUID->"db7a6b7e-f22d-9d4a-88fc-bf90c373beff"], +Cell[32520, 903, 328, 5, 32, "Output",ExpressionUUID->"130fc4d1-11c4-d04b-b41b-451c4a14264c"] +}, Open ]], +Cell[32863, 911, 175, 2, 28, "Input",ExpressionUUID->"ff3ad8d4-925e-4e42-aa21-0c88fc05cc4e"], +Cell[CellGroupData[{ +Cell[33063, 917, 270, 5, 47, "Input",ExpressionUUID->"c1e3bd1e-f011-8345-8c05-ba1d7b4609e9"], +Cell[33336, 924, 327, 5, 32, "Output",ExpressionUUID->"727cadfc-e151-1b43-ae8b-309d8109f400"] +}, Open ]], +Cell[33678, 932, 171, 2, 28, "Input",ExpressionUUID->"f9c0b231-31e6-8446-967b-30061347cbe0"], +Cell[CellGroupData[{ +Cell[33874, 938, 19809, 485, 2217, "Input",ExpressionUUID->"9c535151-a230-dc45-be8b-2a714e262ed7"], +Cell[53686, 1425, 390, 6, 32, "Output",ExpressionUUID->"666f302b-ecfe-5748-8808-50ae129fa01b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[54113, 1436, 19748, 489, 2304, "Input",ExpressionUUID->"e82858b9-80fd-fc4d-8d98-2ad4376d27d4"], +Cell[73864, 1927, 395, 6, 32, "Output",ExpressionUUID->"fa3aceab-e611-324e-b59c-dd92d5a0ba5d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[74296, 1938, 19748, 483, 2276, "Input",ExpressionUUID->"947e6e90-1271-124f-9324-d60c40ed1983"], +Cell[94047, 2423, 411, 7, 32, "Output",ExpressionUUID->"c80af12b-639a-a847-b1e7-d7f02f355735"] +}, Open ]], +Cell[CellGroupData[{ +Cell[94495, 2435, 22534, 553, 2583, "Input",ExpressionUUID->"a0467151-56e3-6c4e-a0fd-8e1a4f12efe3"], +Cell[117032, 2990, 413, 7, 32, "Output",ExpressionUUID->"c1b8e1c5-35c3-1b4c-9afa-7bf82ec724e6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[117482, 3002, 22535, 553, 2583, "Input",ExpressionUUID->"1656ac95-3583-5f42-9121-a4850089934e"], +Cell[140020, 3557, 411, 7, 32, "Output",ExpressionUUID->"eada387c-aa9d-1a40-a7ab-fc5b545b42da"] +}, Open ]], +Cell[CellGroupData[{ +Cell[140468, 3569, 25491, 626, 2890, "Input",ExpressionUUID->"0680f619-e61f-aa4c-9479-ddac11c59e96"], +Cell[165962, 4197, 408, 7, 32, "Output",ExpressionUUID->"dda9728c-f5d4-f046-9fc8-f649275047cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166407, 4209, 130, 2, 28, "Input",ExpressionUUID->"bc412583-4ca2-4a45-bb35-cbc40c8839b4"], +Cell[166540, 4213, 378, 6, 32, "Output",ExpressionUUID->"3cee1b7b-c39a-b64d-ad3f-cb328cecaa91"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166955, 4224, 130, 2, 28, "Input",ExpressionUUID->"85101115-4f25-984e-8b29-a2f2e370104a"], +Cell[167088, 4228, 378, 6, 32, "Output",ExpressionUUID->"3eb5892e-9c23-7f44-96fe-965a53ca51ea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[167503, 4239, 1144, 39, 110, "Input",ExpressionUUID->"8885ee33-dbd5-534a-9a1a-018edb64d755"], +Cell[168650, 4280, 399, 6, 32, "Output",ExpressionUUID->"ff2a6a29-7b27-5a49-9d7f-f8fe5c17244f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169086, 4291, 1041, 35, 110, "Input",ExpressionUUID->"274add19-faab-b149-ae83-ef7b40a8874c"], +Cell[170130, 4328, 409, 7, 32, "Output",ExpressionUUID->"25aac206-409e-c241-a700-572137acb3fe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170576, 4340, 1144, 39, 110, "Input",ExpressionUUID->"61bdd119-1f6f-2840-bea6-aa71897d4d6d"], +Cell[171723, 4381, 402, 6, 32, "Output",ExpressionUUID->"bbc804a8-0402-3b4a-83a4-8642aebd9573"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172162, 4392, 108, 1, 28, "Input",ExpressionUUID->"923bd806-5f2b-c249-8018-c821d70607e0"], +Cell[172273, 4395, 394, 6, 32, "Output",ExpressionUUID->"c71b40ed-62f1-3848-a680-0ba8db39f240"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172704, 4406, 108, 1, 28, "Input",ExpressionUUID->"9962de12-67d8-554b-86f2-fdd5dbd640ea"], +Cell[172815, 4409, 411, 7, 32, "Output",ExpressionUUID->"01e4806a-3faf-1b46-94d4-0398ff1360dd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173263, 4421, 108, 1, 28, "Input",ExpressionUUID->"d0c3bf2f-1911-4c4b-bfdf-453a2bac99a8"], +Cell[173374, 4424, 415, 7, 32, "Output",ExpressionUUID->"bfd6df36-52b4-3343-8db7-8cc973cc3cfa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173826, 4436, 108, 1, 28, "Input",ExpressionUUID->"fd21dfa7-f27f-5042-a0ad-9cc40d14292a"], +Cell[173937, 4439, 400, 6, 32, "Output",ExpressionUUID->"7d7957b6-6a5b-7445-95df-865d8438aa33"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174374, 4450, 107, 1, 28, "Input",ExpressionUUID->"1c249ec6-e116-2b48-8f7f-a95f16ad81b4"], +Cell[174484, 4453, 391, 6, 32, "Output",ExpressionUUID->"efe7bdf8-9952-6b4f-990a-851598bbbce4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174912, 4464, 107, 1, 28, "Input",ExpressionUUID->"b1919483-c42d-3b47-aa70-c129a7555111"], +Cell[175022, 4467, 395, 6, 32, "Output",ExpressionUUID->"6bd0f1cd-4086-bf47-9b12-4647d9e03861"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175454, 4478, 497, 16, 56, "Input",ExpressionUUID->"6b948f28-f10f-1f42-b9e1-eda3373f84fb"], +Cell[175954, 4496, 407, 7, 32, "Output",ExpressionUUID->"c9c7b920-462c-774b-bd48-e9145e0d2401"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176398, 4508, 497, 16, 56, "Input",ExpressionUUID->"ef81073d-a43f-bf4f-9b50-6cabf65a3276"], +Cell[176898, 4526, 412, 7, 32, "Output",ExpressionUUID->"5f719846-76dc-104d-a933-8b0afc68a05f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[177347, 4538, 1788, 60, 188, "Input",ExpressionUUID->"d69be0a9-a94c-864b-85ed-a253ee7669d1"], +Cell[179138, 4600, 394, 6, 32, "Output",ExpressionUUID->"33880613-d403-ec42-a5c7-86f1145fa6ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[179569, 4611, 1101, 36, 133, "Input",ExpressionUUID->"174bbe27-8951-4643-a0e4-f57458aa32dc"], +Cell[180673, 4649, 412, 7, 32, "Output",ExpressionUUID->"4e47fb06-a38e-5e4c-912b-0f4dc20e6cac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181122, 4661, 1818, 61, 165, "Input",ExpressionUUID->"953696a0-f8e2-204a-bedd-5d8bb514cc1c"], +Cell[182943, 4724, 392, 6, 32, "Output",ExpressionUUID->"55326f9b-14b2-d049-9c7a-679a192bef67"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183372, 4735, 2499, 77, 133, "Input",ExpressionUUID->"5b0cfc9a-ea77-5847-b51b-7aa78ce6a299"], +Cell[185874, 4814, 395, 6, 32, "Output",ExpressionUUID->"451a34c6-06a3-414b-800f-a39479a949f5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186306, 4825, 2499, 77, 133, "Input",ExpressionUUID->"b81ac4f0-6219-ee44-a9fa-2e93fe5e6063"], +Cell[188808, 4904, 389, 6, 32, "Output",ExpressionUUID->"2affed6c-4693-7041-b1d9-d58ef79a1177"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189234, 4915, 211, 3, 28, "Input",ExpressionUUID->"58382c59-dd64-b449-aa77-b500c631729a"], +Cell[189448, 4920, 190, 2, 32, "Output",ExpressionUUID->"d76f1bef-39bf-7d42-aa4a-594be2f0a763"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189675, 4927, 213, 3, 28, "Input",ExpressionUUID->"1e2a9573-08d6-094d-b2f8-1c2ad58521b5"], +Cell[189891, 4932, 188, 2, 32, "Output",ExpressionUUID->"e84b3ffe-1946-4a46-a9f7-5e21a9bf5343"] +}, Open ]], +Cell[CellGroupData[{ +Cell[190116, 4939, 1297, 42, 113, "Input",ExpressionUUID->"ee9e3f9b-cd15-314a-959e-23f6767d8629"], +Cell[191416, 4983, 195, 2, 32, "Output",ExpressionUUID->"dfd05dc1-f8be-7146-9a4b-dc171a72b9ed"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191648, 4990, 927, 29, 56, "Input",ExpressionUUID->"edc47846-771c-164b-bedc-99ac8c0783df"], +Cell[192578, 5021, 192, 2, 32, "Output",ExpressionUUID->"c37db9ca-ec17-bd4b-b63d-18a7826fccdc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192807, 5028, 985, 32, 56, "Input",ExpressionUUID->"a1f930ec-56b4-2f43-abd0-dd8b8a4708b1"], +Cell[193795, 5062, 198, 2, 32, "Output",ExpressionUUID->"1f7bbc8d-22e9-f248-a63d-b4730ff12a0d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194030, 5069, 554, 18, 52, "Input",ExpressionUUID->"41ba9715-7e52-a24a-aa04-cf2166cf0dfa"], +Cell[194587, 5089, 192, 2, 32, "Output",ExpressionUUID->"4075083e-f32d-d14b-97d0-a858b5926c67"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194816, 5096, 647, 21, 52, "Input",ExpressionUUID->"163fb4a0-76e7-4649-86cb-bfaf41944c98"], +Cell[195466, 5119, 188, 2, 32, "Output",ExpressionUUID->"4325bebc-7bf8-4740-812f-9bc03175fcb6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195691, 5126, 166, 4, 56, "Input",ExpressionUUID->"5f0f180a-aa4c-dd4b-bdd8-1378a8fe1b95"], +Cell[195860, 5132, 191, 2, 32, "Output",ExpressionUUID->"3aa70486-77dd-af46-b34e-30ac68d55957"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196088, 5139, 166, 4, 55, "Input",ExpressionUUID->"1922f255-2223-ac46-b784-0bce07b8e6a9"], +Cell[196257, 5145, 189, 2, 32, "Output",ExpressionUUID->"74af8473-8191-bb42-bcfc-7d3451c2c843"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196483, 5152, 177, 4, 43, "Input",ExpressionUUID->"ef536efb-880a-d543-b7af-57dde3479623"], +Cell[196663, 5158, 191, 2, 32, "Output",ExpressionUUID->"6ec3d14b-240e-054e-8aa9-9a5cf3eed879"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196891, 5165, 177, 4, 43, "Input",ExpressionUUID->"23ab10a2-3c20-0544-ade1-f1d12ec5aec2"], +Cell[197071, 5171, 190, 2, 32, "Output",ExpressionUUID->"9eb01c7d-22b1-294b-9bb2-95d31e0eab2e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197298, 5178, 6051, 184, 498, "Input",ExpressionUUID->"aca75c7d-c5bb-8b47-872f-20148e5c7111"], +Cell[203352, 5364, 193, 2, 32, "Output",ExpressionUUID->"83bb6c2a-dfbe-394f-a969-17c15d38b272"] +}, Open ]], +Cell[CellGroupData[{ +Cell[203582, 5371, 364, 8, 42, "Input",ExpressionUUID->"cd1abe66-0480-c04d-bbfd-f65271be3b80"], +Cell[203949, 5381, 191, 2, 32, "Output",ExpressionUUID->"683037a4-7704-da40-89be-0713f2290c11"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204177, 5388, 6118, 186, 500, "Input",ExpressionUUID->"c96cc89e-a2d4-f442-8558-837587935139"], +Cell[210298, 5576, 193, 2, 32, "Output",ExpressionUUID->"09d7120e-3ee3-b14c-9160-ea210e12976d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210528, 5583, 364, 8, 42, "Input",ExpressionUUID->"1997c8c5-b99e-0343-82de-11d88a9a1347"], +Cell[210895, 5593, 188, 2, 32, "Output",ExpressionUUID->"d2dc4e8c-b7a2-1842-907b-3ad67e3a4d45"] +}, Open ]], +Cell[CellGroupData[{ +Cell[211120, 5600, 2659, 87, 187, "Input",ExpressionUUID->"b151d79d-271f-514b-8b93-936c1a72f6cb"], +Cell[213782, 5689, 191, 2, 32, "Output",ExpressionUUID->"3cab78ab-0668-1b48-9eb1-e5ab2a815707"] +}, Open ]], +Cell[CellGroupData[{ +Cell[214010, 5696, 2599, 84, 165, "Input",ExpressionUUID->"ca085857-4c01-0248-853e-e9dc47d19120"], +Cell[216612, 5782, 189, 2, 32, "Output",ExpressionUUID->"7d5905af-81f5-7047-ab75-546be7109198"] +}, Open ]], +Cell[CellGroupData[{ +Cell[216838, 5789, 3708, 117, 348, "Input",ExpressionUUID->"953e3c2f-fb9c-3f46-89c8-95be764d13e2"], +Cell[220549, 5908, 190, 2, 32, "Output",ExpressionUUID->"c0697708-110f-0343-871d-6c4c14bae5b1"] +}, Open ]], +Cell[220754, 5913, 160, 3, 42, "Input",ExpressionUUID->"ea9dfb1b-57ad-0148-b647-106c07557f97"], +Cell[CellGroupData[{ +Cell[220939, 5920, 2073, 58, 228, "Input",ExpressionUUID->"b8b3f009-678c-e54b-8a0c-4de3179a9fb0"], +Cell[223015, 5980, 576, 12, 66, "Message",ExpressionUUID->"00827a0d-582b-784f-9831-6761fff6a36e"], +Cell[223594, 5994, 579, 12, 66, "Message",ExpressionUUID->"bd3819b3-4195-9344-ae74-4cc92ebeb956"], +Cell[224176, 6008, 583, 12, 85, "Message",ExpressionUUID->"511fd1cf-9dce-1842-830b-d7e4788fdec7"], +Cell[224762, 6022, 480, 10, 26, "Message",ExpressionUUID->"46205a7c-19de-8a46-96ef-c5d6ec4440d0"], +Cell[225245, 6034, 193, 2, 32, "Output",ExpressionUUID->"d63dcbed-8db1-a54a-ac7b-3d723375286e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[225475, 6041, 2073, 58, 228, "Input",ExpressionUUID->"d9fdb976-d745-4c44-9c66-2929c00590fc"], +Cell[227551, 6101, 574, 12, 66, "Message",ExpressionUUID->"2e5b7ddb-3461-9741-a277-bc49d8bdcffd"], +Cell[228128, 6115, 579, 12, 66, "Message",ExpressionUUID->"bd454c12-0108-6440-83f9-cc138ada191c"], +Cell[228710, 6129, 583, 12, 85, "Message",ExpressionUUID->"e4248cac-f88f-4c49-b567-aa30ef76372b"], +Cell[229296, 6143, 478, 10, 26, "Message",ExpressionUUID->"11ad8df1-50f5-7448-a295-e303669c499c"], +Cell[229777, 6155, 190, 2, 32, "Output",ExpressionUUID->"de55fa8d-41ba-414e-ac49-8857c355bec4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[230004, 6162, 1957, 52, 115, "Input",ExpressionUUID->"a3abef6a-80f9-8c44-ac94-1eacd8c5b802"], +Cell[231964, 6216, 20038, 377, 237, "Output",ExpressionUUID->"41feeb24-d3c0-e141-ac9f-a4c566b3e778"] +}, Open ]], +Cell[CellGroupData[{ +Cell[252039, 6598, 2139, 59, 211, "Input",ExpressionUUID->"5b0c09f8-5e46-a545-8946-a08264de1b62"], +Cell[254181, 6659, 517, 11, 60, "Message",ExpressionUUID->"e25f5bef-107e-9348-b2f3-3ab3d298e4dd"], +Cell[254701, 6672, 520, 11, 60, "Message",ExpressionUUID->"715362a6-33c2-2a4a-8141-e82dfb26c7aa"], +Cell[255224, 6685, 525, 11, 60, "Message",ExpressionUUID->"ffeeeb85-f572-5843-abf9-0160114ab8c2"], +Cell[255752, 6698, 476, 10, 26, "Message",ExpressionUUID->"c8b86732-15cd-6d40-8107-18f2c7ba0162"], +Cell[256231, 6710, 22503, 414, 233, "Output",ExpressionUUID->"5daa6c1b-b31f-4e4e-bb5e-b7f014bb2f93"] +}, Open ]], +Cell[CellGroupData[{ +Cell[278771, 7129, 1861, 50, 120, "Input",ExpressionUUID->"a890eeb1-6bca-424f-a8f9-1a35c4cca33c"], +Cell[280635, 7181, 8995, 209, 241, "Output",ExpressionUUID->"f606cb62-1677-8740-a2ad-6ca6ff3b7303"] +}, Open ]], +Cell[CellGroupData[{ +Cell[289667, 7395, 276, 5, 42, "Input",ExpressionUUID->"b1f266e4-128a-e44e-90be-31846216bd9c"], +Cell[289946, 7402, 28518, 539, 233, "Output",ExpressionUUID->"187c8104-da0e-7b4f-9895-497dceac6466"] +}, Open ]], +Cell[CellGroupData[{ +Cell[318501, 7946, 234, 6, 48, "Input",ExpressionUUID->"15c72253-d078-7f43-9f29-7ac094706013"], +Cell[318738, 7954, 191, 2, 32, "Output",ExpressionUUID->"1ae54a4a-fed9-1141-ae2a-4eee4d814e9a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[318966, 7961, 1835, 52, 183, "Input",ExpressionUUID->"8ab23ce3-6dd3-7740-bde2-eb9eba4ac874"], +Cell[320804, 8015, 526, 11, 60, "Message",ExpressionUUID->"635f5923-2fdd-6448-b088-76be639b1d23"], +Cell[321333, 8028, 528, 11, 60, "Message",ExpressionUUID->"5bab959d-ef63-7540-9727-13ffae2f061a"], +Cell[321864, 8041, 528, 11, 60, "Message",ExpressionUUID->"f5b08ba8-2927-e148-886e-81e04091edc3"], +Cell[322395, 8054, 478, 10, 26, "Message",ExpressionUUID->"f5e1afb2-2420-ab43-a72d-e47e019320a1"], +Cell[322876, 8066, 22399, 414, 233, "Output",ExpressionUUID->"968e1f9d-6602-8341-9666-5b465b9ebfff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[345312, 8485, 1612, 47, 113, "Input",ExpressionUUID->"6f4b7e44-0b17-c840-a01f-706fcd68fd89"], +Cell[346927, 8534, 597, 12, 85, "Message",ExpressionUUID->"2da03f16-9b21-ea44-a6c9-3e903115232c"], +Cell[347527, 8548, 599, 12, 85, "Message",ExpressionUUID->"17d3d08c-f273-774a-8ba3-bfd5cdee935c"], +Cell[348129, 8562, 603, 12, 85, "Message",ExpressionUUID->"0cc84825-32a6-f94f-9633-b8ee9c7ed2b7"], +Cell[348735, 8576, 478, 10, 26, "Message",ExpressionUUID->"1c4c4249-0fc3-2c4b-8699-421047f701da"], +Cell[349216, 8588, 192, 2, 32, "Output",ExpressionUUID->"b434091a-573a-094e-a8cf-688f3dfc522b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[349445, 8595, 2274, 64, 223, "Input",ExpressionUUID->"55574de4-5bf4-6a47-8b7c-0502360e0741"], +Cell[351722, 8661, 578, 12, 66, "Message",ExpressionUUID->"44474fac-4eb8-3841-9a12-46bc820a3b23"], +Cell[352303, 8675, 583, 12, 66, "Message",ExpressionUUID->"d0ff8e77-495c-cb4b-a040-49b7f09d992d"], +Cell[352889, 8689, 587, 12, 66, "Message",ExpressionUUID->"627ac276-ccb5-2d46-9264-ccd0fa65bdea"], +Cell[353479, 8703, 482, 10, 26, "Message",ExpressionUUID->"c10fd530-8e72-6543-bca4-47b60ac32b8a"], +Cell[353964, 8715, 192, 3, 32, "Output",ExpressionUUID->"0f80fac5-7af7-6449-93d0-82c847eef521"] +}, Open ]], +Cell[CellGroupData[{ +Cell[354193, 8723, 2242, 64, 162, "Input",ExpressionUUID->"a62e28a7-2963-b449-b2d2-4774e534a560"], +Cell[356438, 8789, 578, 12, 66, "Message",ExpressionUUID->"0eeebef4-b91d-1b41-88dc-157ad30f7ffd"], +Cell[357019, 8803, 581, 12, 66, "Message",ExpressionUUID->"b5f1cf3e-2f7b-544a-9817-369c1cbb3895"], +Cell[357603, 8817, 583, 12, 66, "Message",ExpressionUUID->"295ae18b-0adc-9948-ac1d-967cfed55249"], +Cell[358189, 8831, 478, 10, 26, "Message",ExpressionUUID->"2c6b2bf0-eeee-d849-be4f-5eb95c74ff4c"], +Cell[358670, 8843, 197, 3, 32, "Output",ExpressionUUID->"31638b1f-da77-ff48-92b1-7ccc03f8b763"] +}, Open ]], +Cell[CellGroupData[{ +Cell[358904, 8851, 2242, 64, 162, "Input",ExpressionUUID->"9dbddde0-a221-414e-bf4d-6be0dfb61fa1"], +Cell[361149, 8917, 578, 12, 66, "Message",ExpressionUUID->"aa961efa-e7b0-b343-85c5-f29538877549"], +Cell[361730, 8931, 583, 12, 66, "Message",ExpressionUUID->"97d07294-97cd-f346-a26a-651452cc4d7a"], +Cell[362316, 8945, 587, 12, 66, "Message",ExpressionUUID->"c5efd08c-19d9-6c47-8589-b3983e2e56b2"], +Cell[362906, 8959, 482, 10, 26, "Message",ExpressionUUID->"b28c84fc-ff7d-ed4d-8341-7ae3f1369f40"], +Cell[363391, 8971, 194, 3, 32, "Output",ExpressionUUID->"1b9b9023-647e-da4b-ae37-73a45c8ce4a4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[363622, 8979, 234, 6, 47, "Input",ExpressionUUID->"a4f97f96-646f-ae45-96cc-9c4165440b9d"], +Cell[363859, 8987, 196, 3, 32, "Output",ExpressionUUID->"bc0639e7-58f9-3b48-8d55-56837a3b28cc"] +}, Open ]], +Cell[364070, 8993, 273, 6, 70, "Input",ExpressionUUID->"35c63783-19fc-b040-b8f7-ef972ba7b6ed"], +Cell[CellGroupData[{ +Cell[364368, 9003, 558, 19, 52, "Input",ExpressionUUID->"82776c92-7c10-2f45-a63e-50057ffca54a"], +Cell[364929, 9024, 197, 3, 32, "Output",ExpressionUUID->"20a9f54e-0298-0b40-9b21-a5ffb8bae684"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365163, 9032, 170, 5, 56, "Input",ExpressionUUID->"a56d8b01-6731-b840-bb77-f7f462892539"], +Cell[365336, 9039, 192, 3, 32, "Output",ExpressionUUID->"59194337-179f-054c-9201-33e646ebd087"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365565, 9047, 181, 5, 43, "Input",ExpressionUUID->"d4bf0543-67ce-024d-a419-60bff835c466"], +Cell[365749, 9054, 194, 3, 32, "Output",ExpressionUUID->"6ce5d236-dfcc-c74f-ab99-abec08bf7ca7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365980, 9062, 6055, 185, 491, "Input",ExpressionUUID->"276e96f1-558d-9846-adb4-2350594341f3"], +Cell[372038, 9249, 199, 3, 32, "Output",ExpressionUUID->"aa9b114c-f4e9-0644-b281-e47a56db29ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[372274, 9257, 368, 9, 42, "Input",ExpressionUUID->"fff85ae9-ba42-8247-a314-19fd83d5dbdb"], +Cell[372645, 9268, 197, 3, 32, "Output",ExpressionUUID->"2e713274-f00c-1346-89a2-846fc943cba0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[372879, 9276, 6122, 187, 512, "Input",ExpressionUUID->"37b23358-bc27-224f-b5f7-62b1fc97e785"], +Cell[379004, 9465, 195, 3, 32, "Output",ExpressionUUID->"42b93b31-4c87-8f46-9add-5985da990532"] +}, Open ]], +Cell[CellGroupData[{ +Cell[379236, 9473, 368, 9, 42, "Input",ExpressionUUID->"eeb5992b-a45f-a14b-8a22-14af99af15e2"], +Cell[379607, 9484, 196, 3, 32, "Output",ExpressionUUID->"fae1cff5-335f-2749-8beb-38e1b36eb1fc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[379840, 9492, 2663, 88, 165, "Input",ExpressionUUID->"6ddb4033-5394-f34c-95af-22d1f1297351"], +Cell[382506, 9582, 195, 3, 32, "Output",ExpressionUUID->"887ade38-ec60-fa44-b471-5a4ca8badf30"] +}, Open ]], +Cell[CellGroupData[{ +Cell[382738, 9590, 2603, 85, 165, "Input",ExpressionUUID->"22b71737-ea19-a348-af70-a874963373f8"], +Cell[385344, 9677, 193, 3, 32, "Output",ExpressionUUID->"0e72553d-78d9-174d-bddd-0abac366e792"] +}, Open ]], +Cell[CellGroupData[{ +Cell[385574, 9685, 3712, 118, 294, "Input",ExpressionUUID->"08fab4d8-dc36-3f43-8a7e-9a5fa838c25d"], +Cell[389289, 9805, 195, 3, 32, "Output",ExpressionUUID->"fdf820a3-4c9d-b546-a74b-846ee1a25913"] +}, Open ]], +Cell[CellGroupData[{ +Cell[389521, 9813, 2077, 59, 228, "Input",ExpressionUUID->"d3f05697-a372-2a42-8c9c-ccc9289a44b2"], +Cell[391601, 9874, 582, 12, 66, "Message",ExpressionUUID->"46d06394-0cd8-414c-810e-808e8cc948a1"], +Cell[392186, 9888, 584, 12, 66, "Message",ExpressionUUID->"e1f15179-8b70-7c4e-895b-592b1f953134"], +Cell[392773, 9902, 588, 12, 66, "Message",ExpressionUUID->"1003a7c1-9e8a-7e42-9b3b-3cff62fbc1a7"], +Cell[393364, 9916, 481, 10, 26, "Message",ExpressionUUID->"4f918e0c-cafa-6840-94f9-414382956899"], +Cell[393848, 9928, 192, 3, 32, "Output",ExpressionUUID->"4456e76c-fbc9-664f-917a-4f94601c5613"] +}, Open ]], +Cell[CellGroupData[{ +Cell[394077, 9936, 2075, 59, 228, "Input",ExpressionUUID->"7ddfee1b-0897-3d44-810e-ee309c4e8981"], +Cell[396155, 9997, 581, 12, 66, "Message",ExpressionUUID->"bd8f7472-1a15-1648-8e3c-e07f6bbe2d7f"], +Cell[396739, 10011, 583, 12, 66, "Message",ExpressionUUID->"8275a2b4-f07a-7047-90b9-94f3f1b577f8"], +Cell[397325, 10025, 588, 12, 66, "Message",ExpressionUUID->"759c0a29-c537-194b-9c8a-a49650245159"], +Cell[397916, 10039, 479, 10, 26, "Message",ExpressionUUID->"0083fb5b-2bcd-d046-bf12-83eecc620585"], +Cell[398398, 10051, 192, 3, 32, "Output",ExpressionUUID->"d6bfa008-702a-b049-9326-2de05f8b06e0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[398627, 10059, 2053, 55, 131, "Input",ExpressionUUID->"edc0f744-d665-ee48-9e1d-32ecc25a02c4"], +Cell[400683, 10116, 20553, 384, 241, "Output",ExpressionUUID->"00132067-8ee5-3944-aea1-3d317e9a69fb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[421273, 10505, 2117, 60, 211, "Input",ExpressionUUID->"556a1eda-5f63-f94a-8981-af3901893679"], +Cell[423393, 10567, 525, 11, 60, "Message",ExpressionUUID->"882a7971-2405-e34c-aecd-b8211e35190c"], +Cell[423921, 10580, 528, 11, 60, "Message",ExpressionUUID->"eabe2196-2c79-6846-b56b-ce37a1c5c958"], +Cell[424452, 10593, 529, 11, 60, "Message",ExpressionUUID->"9732ac1a-dc93-5843-bc19-480594076b2b"], +Cell[424984, 10606, 481, 10, 26, "Message",ExpressionUUID->"ee675b01-3264-9549-8b58-4bb13fecaad6"], +Cell[425468, 10618, 22103, 409, 233, "Output",ExpressionUUID->"9dc7afde-c341-e84d-a5ba-edd8ee97fb28"] +}, Open ]], +Cell[CellGroupData[{ +Cell[447608, 11032, 280, 6, 42, "Input",ExpressionUUID->"adc3c3bb-baff-7c45-bc8f-885e51cde7ff"], +Cell[447891, 11040, 28116, 534, 233, "Output",ExpressionUUID->"8597eeb0-a279-3e42-8a8c-fa9517bb4736"] +}, Open ]], +Cell[CellGroupData[{ +Cell[476044, 11579, 1616, 48, 106, "Input",ExpressionUUID->"1ecbbb3f-ee46-da42-8494-bab66d31929d"], +Cell[477663, 11629, 608, 12, 85, "Message",ExpressionUUID->"bdf2b3f6-920c-9b45-8c60-d69a2046a75e"], +Cell[478274, 11643, 611, 12, 85, "Message",ExpressionUUID->"dc32e637-7b02-7f48-8e69-325eea64b144"], +Cell[478888, 11657, 614, 12, 85, "Message",ExpressionUUID->"cc77974a-857d-9d47-9fb1-4764e4b31b02"], +Cell[479505, 11671, 481, 10, 26, "Message",ExpressionUUID->"a9026083-2a5e-ec46-8fa9-83f3ccbb3510"], +Cell[479989, 11683, 196, 3, 32, "Output",ExpressionUUID->"d8194b6a-bd9d-e94b-99bf-c769197dcb01"] +}, Open ]], +Cell[CellGroupData[{ +Cell[480222, 11691, 2274, 64, 223, "Input",ExpressionUUID->"fc5d2c23-4a6f-a449-ab65-d4efe503e761"], +Cell[482499, 11757, 583, 12, 66, "Message",ExpressionUUID->"2ac15d92-0808-d74e-af32-471335eac39e"], +Cell[483085, 11771, 587, 12, 66, "Message",ExpressionUUID->"a355fb44-28a8-e246-a2ff-1493745b35e2"], +Cell[483675, 11785, 588, 12, 66, "Message",ExpressionUUID->"accce81c-fe58-4c42-82d7-29bc1aa7eb3d"], +Cell[484266, 11799, 481, 10, 26, "Message",ExpressionUUID->"4a538572-ccf4-cb46-b60f-73e345023511"], +Cell[484750, 11811, 196, 3, 32, "Output",ExpressionUUID->"88f3f79f-2bd9-b34d-a93f-d3ea6b39656a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[484983, 11819, 2244, 64, 162, "Input",ExpressionUUID->"43c7013a-a6e2-1a44-9690-1cefd2c28187"], +Cell[487230, 11885, 583, 12, 66, "Message",ExpressionUUID->"2fda0384-2fd8-a049-980a-721ba5b5bfa1"], +Cell[487816, 11899, 587, 12, 66, "Message",ExpressionUUID->"74b6d9cb-2975-f244-a896-0e07cb6638e3"], +Cell[488406, 11913, 590, 12, 66, "Message",ExpressionUUID->"1c9412d7-3ca9-ca47-8a98-1e1e861a872c"], +Cell[488999, 11927, 481, 10, 26, "Message",ExpressionUUID->"a774d273-2e30-5d4b-a130-a51a2ca8d5f8"], +Cell[489483, 11939, 194, 3, 32, "Output",ExpressionUUID->"bcc94893-2469-2343-8b4c-49888e60b717"] +}, Open ]], +Cell[CellGroupData[{ +Cell[489714, 11947, 2241, 64, 162, "Input",ExpressionUUID->"41fb449c-01a0-ed48-856e-cc313bd0a6c7"], +Cell[491958, 12013, 581, 12, 66, "Message",ExpressionUUID->"047772dd-b91b-3044-9358-e46708c94c96"], +Cell[492542, 12027, 583, 12, 66, "Message",ExpressionUUID->"65bb3c1c-62f1-b849-ac92-f994aee61c7e"], +Cell[493128, 12041, 588, 12, 66, "Message",ExpressionUUID->"c84a5632-dc29-044b-8dac-d68da2833025"], +Cell[493719, 12055, 479, 10, 26, "Message",ExpressionUUID->"0263e6ee-7a46-6749-873d-ce424ba985d3"], +Cell[494201, 12067, 195, 3, 32, "Output",ExpressionUUID->"d548434a-1be7-7f46-af49-0572264f2578"] +}, Open ]], +Cell[CellGroupData[{ +Cell[494433, 12075, 234, 6, 47, "Input",ExpressionUUID->"63e2fa1e-7c56-c749-a270-c9c703386fca"], +Cell[494670, 12083, 198, 3, 32, "Output",ExpressionUUID->"b3eb6851-1046-454b-a219-231e322c206b"] +}, Open ]], +Cell[494883, 12089, 271, 6, 70, "Input",ExpressionUUID->"8b2e971d-5760-5e43-92fb-a0baf224e1e6"], +Cell[CellGroupData[{ +Cell[495179, 12099, 558, 19, 52, "Input",ExpressionUUID->"ed5b29da-ad52-224c-9e8e-5cfb6cba7ae5"], +Cell[495740, 12120, 197, 3, 32, "Output",ExpressionUUID->"a83580fa-10e6-7c45-9ad1-aaeba01be80a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495974, 12128, 170, 5, 56, "Input",ExpressionUUID->"52bec50b-93fb-4b4d-b447-2d6401f3d9c3"], +Cell[496147, 12135, 194, 3, 32, "Output",ExpressionUUID->"661a93b0-5626-404d-aae8-221e8bbe8af6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[496378, 12143, 181, 5, 43, "Input",ExpressionUUID->"1256eede-590d-b745-a810-815fbd90d864"], +Cell[496562, 12150, 194, 3, 32, "Output",ExpressionUUID->"87135b3c-74f5-ec40-8026-c12840b6d19a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[496793, 12158, 6055, 185, 491, "Input",ExpressionUUID->"26b3e9a1-c12d-c340-b102-39e3418b2423"], +Cell[502851, 12345, 195, 3, 32, "Output",ExpressionUUID->"1f26cde7-8218-134d-93c6-bdf23cebf8d8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[503083, 12353, 368, 9, 42, "Input",ExpressionUUID->"f1c368f7-48c1-ae41-985d-84d539f430bf"], +Cell[503454, 12364, 194, 3, 32, "Output",ExpressionUUID->"88e709b0-2703-e443-af6a-7ba05a410153"] +}, Open ]], +Cell[CellGroupData[{ +Cell[503685, 12372, 6122, 187, 512, "Input",ExpressionUUID->"8303e334-ad11-5445-af0f-63c02c371294"], +Cell[509810, 12561, 197, 3, 32, "Output",ExpressionUUID->"ba6131d2-1f22-5640-af07-db5c54cd2649"] +}, Open ]], +Cell[CellGroupData[{ +Cell[510044, 12569, 368, 9, 42, "Input",ExpressionUUID->"9a6f9d0e-1f18-634f-a091-d3e4beab45d1"], +Cell[510415, 12580, 192, 3, 32, "Output",ExpressionUUID->"789f803a-0f2f-bf45-bf42-a99bbd332e51"] +}, Open ]], +Cell[CellGroupData[{ +Cell[510644, 12588, 2663, 88, 165, "Input",ExpressionUUID->"d36c329f-0f97-3149-b3e7-38d2ece236d0"], +Cell[513310, 12678, 193, 3, 32, "Output",ExpressionUUID->"52f34c91-2b30-9344-9c63-5dab12d1454d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[513540, 12686, 2603, 85, 165, "Input",ExpressionUUID->"9d78a1b5-e3d2-144d-9443-73ce54c6aaab"], +Cell[516146, 12773, 194, 3, 32, "Output",ExpressionUUID->"1a726864-ebc7-5c41-a954-9b807c2f8f53"] +}, Open ]], +Cell[CellGroupData[{ +Cell[516377, 12781, 3712, 118, 294, "Input",ExpressionUUID->"66c99cb8-7b1e-c84b-9bf9-362f26e0fb97"], +Cell[520092, 12901, 198, 3, 32, "Output",ExpressionUUID->"22518695-b27a-7241-807c-1ec217e1ca82"] +}, Open ]], +Cell[CellGroupData[{ +Cell[520327, 12909, 2073, 59, 228, "Input",ExpressionUUID->"f0de9d8e-43d1-8b49-87d3-7f90d7e4f5e3"], +Cell[522403, 12970, 574, 12, 84, "Message",ExpressionUUID->"0e78e33a-f9d5-b24a-ba6e-281486da003f"], +Cell[522980, 12984, 579, 12, 66, "Message",ExpressionUUID->"8dfb5f0e-4253-2145-b818-d2b1c34f6454"], +Cell[523562, 12998, 583, 12, 66, "Message",ExpressionUUID->"dc806c02-fd49-7049-a57d-9853ce5c4577"], +Cell[524148, 13012, 481, 10, 26, "Message",ExpressionUUID->"25c15a50-9d08-424d-a869-48214973a2de"], +Cell[524632, 13024, 197, 3, 32, "Output",ExpressionUUID->"f3749c06-9880-c54d-b147-1e59d1f3cbcc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[524866, 13032, 2077, 59, 228, "Input",ExpressionUUID->"61250ade-2a8a-1a4d-bb58-5bb7aa60c04a"], +Cell[526946, 13093, 574, 12, 84, "Message",ExpressionUUID->"4b7824c2-4f18-ab45-9575-f7c1a9b272cf"], +Cell[527523, 13107, 579, 12, 66, "Message",ExpressionUUID->"e704cbd4-5e20-7844-915e-5ddceeb50903"], +Cell[528105, 13121, 583, 12, 66, "Message",ExpressionUUID->"54b9340a-99bb-5b4a-b925-97596f1713e2"], +Cell[528691, 13135, 478, 10, 26, "Message",ExpressionUUID->"e01b9511-eda7-9d4f-8a71-3b3fe37eb39a"], +Cell[529172, 13147, 196, 3, 32, "Output",ExpressionUUID->"f580162c-b30b-5343-9714-2c6f4aa02989"] +}, Open ]], +Cell[CellGroupData[{ +Cell[529405, 13155, 2051, 55, 131, "Input",ExpressionUUID->"020bdd6e-add3-0a46-9b39-04b7ffae8470"], +Cell[531459, 13212, 20289, 379, 237, "Output",ExpressionUUID->"064922d2-2d20-bd49-a0ac-5e87c918fb09"] +}, Open ]], +Cell[CellGroupData[{ +Cell[551785, 13596, 2117, 60, 211, "Input",ExpressionUUID->"5cbca01a-701c-5744-b740-3bf6288a42b7"], +Cell[553905, 13658, 522, 11, 60, "Message",ExpressionUUID->"d4a768e9-ee56-9445-9a28-c009ced4a0dd"], +Cell[554430, 13671, 522, 11, 60, "Message",ExpressionUUID->"e597b5b5-d63e-b54b-b06d-c35c4ffd9ae3"], +Cell[554955, 13684, 528, 11, 60, "Message",ExpressionUUID->"2cc96305-031a-b249-978a-a390055cbf95"], +Cell[555486, 13697, 483, 10, 26, "Message",ExpressionUUID->"195b9afc-0d74-194e-982c-08110c62460e"], +Cell[555972, 13709, 22061, 409, 233, "Output",ExpressionUUID->"fe552624-3db1-5344-b25a-1a057bb0dfd7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[578070, 14123, 280, 6, 42, "Input",ExpressionUUID->"dfd70d8f-49d3-a04f-a31c-55e81ecceef1"], +Cell[578353, 14131, 28072, 534, 233, "Output",ExpressionUUID->"9eec1b91-f793-0f40-a507-d129d6285c09"] +}, Open ]], +Cell[CellGroupData[{ +Cell[606462, 14670, 1616, 48, 113, "Input",ExpressionUUID->"bd700bac-9ff0-794b-a1df-85afecca9797"], +Cell[608081, 14720, 601, 12, 85, "Message",ExpressionUUID->"fa269488-cc09-e84e-b990-3139824b4e9a"], +Cell[608685, 14734, 605, 12, 85, "Message",ExpressionUUID->"eeb3ab69-bec9-0b4c-a14e-c3509c8d46d4"], +Cell[609293, 14748, 607, 12, 85, "Message",ExpressionUUID->"781edc7d-f37c-7d4d-9db6-b438c6d3ebd2"], +Cell[609903, 14762, 483, 10, 26, "Message",ExpressionUUID->"5ff4b658-eb5b-1e44-807d-52e2d237793e"], +Cell[610389, 14774, 193, 3, 32, "Output",ExpressionUUID->"4e5cde0a-224b-594b-b41d-0f91b49ac1a6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[610619, 14782, 2272, 64, 223, "Input",ExpressionUUID->"aa4ca102-401f-6c45-84ea-b21fa4222eb4"], +Cell[612894, 14848, 574, 12, 84, "Message",ExpressionUUID->"490cb7de-bb22-d54f-8afe-52f1bb547c6c"], +Cell[613471, 14862, 579, 12, 66, "Message",ExpressionUUID->"e1e3c708-3bbb-1945-95e1-109d4ae4d410"], +Cell[614053, 14876, 581, 12, 66, "Message",ExpressionUUID->"c62e3ff7-ac6a-754a-859e-a220ca776f13"], +Cell[614637, 14890, 481, 10, 26, "Message",ExpressionUUID->"5f4103b5-e696-5b44-8ab1-78364c63b432"], +Cell[615121, 14902, 197, 3, 32, "Output",ExpressionUUID->"1ca40beb-00b3-0549-bfd5-5ebd49fb4ede"] +}, Open ]], +Cell[CellGroupData[{ +Cell[615355, 14910, 2246, 64, 162, "Input",ExpressionUUID->"6ecebc3a-297f-ad45-be0e-687cb63b6c02"], +Cell[617604, 14976, 575, 12, 84, "Message",ExpressionUUID->"52a7dcaa-a7c9-884e-9eeb-39c70c265811"], +Cell[618182, 14990, 578, 12, 66, "Message",ExpressionUUID->"38b8234c-ce89-5848-9c6d-05b4b38e9707"], +Cell[618763, 15004, 583, 12, 66, "Message",ExpressionUUID->"34963974-759a-9f40-8034-b4a832fbfdea"], +Cell[619349, 15018, 483, 10, 26, "Message",ExpressionUUID->"a5bd42d1-02f8-9040-bd2f-015eaf7e9e82"], +Cell[619835, 15030, 192, 3, 32, "Output",ExpressionUUID->"6e50106d-d1da-944e-8847-e8212a7e1b2d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[620064, 15038, 2244, 64, 162, "Input",ExpressionUUID->"f4d4d2f3-a6fe-7445-a71e-f1844b022d84"], +Cell[622311, 15104, 576, 12, 84, "Message",ExpressionUUID->"3f3af3d4-c63e-894e-b330-80851bf13e62"], +Cell[622890, 15118, 581, 12, 66, "Message",ExpressionUUID->"93eac98d-63de-7746-b969-51b856eec5ab"], +Cell[623474, 15132, 583, 12, 66, "Message",ExpressionUUID->"255184cf-10a1-5a42-9a7c-500e31f3ccfc"], +Cell[624060, 15146, 481, 10, 26, "Message",ExpressionUUID->"d837402c-87f2-eb4e-99ff-dc74c31722bc"], +Cell[624544, 15158, 194, 3, 32, "Output",ExpressionUUID->"2fce02a8-d9f0-fc4b-885d-927ab6de0e03"] +}, Open ]], +Cell[CellGroupData[{ +Cell[624775, 15166, 235, 6, 47, "Input",ExpressionUUID->"84cd8b8a-60e5-9e4d-8a98-fd76363577db"], +Cell[625013, 15174, 194, 3, 32, "Output",ExpressionUUID->"dc08d3e8-9c10-1d42-a671-9da55ba9d254"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/118-122_l_Pu240_394-395/l_118-122_Pu240_394-395_pr_Qw1.nb b/templates/P240_2-51_YakuninDA/118-122_l_Pu240_394-395/l_118-122_Pu240_394-395_pr_Qw1.nb new file mode 100755 index 0000000..8d852e6 --- /dev/null +++ b/templates/P240_2-51_YakuninDA/118-122_l_Pu240_394-395/l_118-122_Pu240_394-395_pr_Qw1.nb @@ -0,0 +1,15837 @@ +(* 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[ 666063, 15829] +NotebookOptionsPosition[ 625495, 15180] +NotebookOutlinePosition[ 625953, 15198] +CellTagsIndexPosition[ 625910, 15195] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "1.487"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.992091380220339*^9, 3.9920914023498554`*^9}, { + 3.992091432390732*^9, 3.9920914336565914`*^9}, {3.992091487909664*^9, + 3.992091509884199*^9}, {3.9920915487606087`*^9, 3.992091575705059*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"8458377e-b729-7842-b6bf-d029af88cf74"], + +Cell[BoxData["1.487`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.9920912460731335`*^9, {3.9920913913099537`*^9, + 3.9920914454062786`*^9}, {3.992091501746458*^9, 3.992091521168392*^9}, { + 3.992091560465807*^9, 3.9920915871378555`*^9}, 3.9921183230883846`*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"c4ed1b59-3cbb-e547-a87a-67eacbc1df9a"] +}, Open ]], + +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.992090953169281*^9, 3.992090953674198*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"2eb78ff4-0669-4e48-8d06-e0d68faa9bd7"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.992091246132065*^9, {3.992091391344839*^9, + 3.992091445453377*^9}, {3.9920915017833214`*^9, 3.9920915212033978`*^9}, { + 3.9920915605023823`*^9, 3.9920915871716385`*^9}, 3.9921183231492805`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"72332af1-3b7d-3041-820c-6def5fae4fb0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "118"}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.992090962010214*^9, + 3.9920909641549644`*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"065c4898-39bc-0442-947e-93882c40dc64"], + +Cell[BoxData["118"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9920912461812153`*^9, {3.9920913913677273`*^9, + 3.9920914454793377`*^9}, {3.99209150180954*^9, 3.992091521232403*^9}, { + 3.9920915605245724`*^9, 3.9920915871936207`*^9}, 3.992118323161375*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"7a880b49-ab2a-4b48-a255-69fdfd990c67"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"59ca93ce-52be-3b48-96a2-f0039c30dc94"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.991707828219631*^9, 3.9917123414174232`*^9, + 3.992091246203041*^9, {3.9920913913887367`*^9, 3.9920914455115204`*^9}, { + 3.992091501832567*^9, 3.992091521255453*^9}, {3.992091560553467*^9, + 3.992091587215521*^9}, 3.9921183231783257`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"8dacad3f-d64b-b347-a884-a97e058ecd97"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"b8d816c6-fa8f-f143-b783-52a729e7e285"], + +Cell[BoxData["0.55025`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.9917078282275677`*^9, 3.9917123414253197`*^9, + 3.9920912462096825`*^9, {3.9920913913957386`*^9, 3.9920914455344753`*^9}, { + 3.992091501855606*^9, 3.9920915212775517`*^9}, {3.9920915605785923`*^9, + 3.992091587240816*^9}, 3.992118323193327*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"2c67c526-8ae8-f34e-a308-46ebd772e587"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"e013fb3d-8374-0a4a-a562-a250c762d0e1"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9917078282485256`*^9, 3.9917123414324265`*^9, + 3.9920912462325726`*^9, {3.992091391402746*^9, 3.9920914455405865`*^9}, { + 3.992091501883623*^9, 3.992091521300558*^9}, {3.992091560585478*^9, + 3.992091587269293*^9}, 3.992118323205282*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"e7fee5d8-1c99-384b-923c-eaee96837128"] +}, 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->"cb804fd1-1d6c-f744-bd48-f62535244426"], + +Cell[BoxData["5.6896470325678585`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.9917078282706223`*^9, 3.9917123414384117`*^9, + 3.992091246239073*^9, {3.9920913914237976`*^9, 3.9920914455615807`*^9}, { + 3.992091501905611*^9, 3.9920915213065586`*^9}, {3.992091560607477*^9, + 3.99209158727639*^9}, 3.992118323219282*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"784a0a5f-6a76-fe40-a893-e2e8e23b3f73"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"22597984-a5b3-ca42-a1b4-d3006f1f9aba"], + +Cell[BoxData["5.753223770057068`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.9917078282785244`*^9, 3.991712341447321*^9, + 3.992091246266403*^9, {3.9920913914307785`*^9, 3.9920914455675926`*^9}, { + 3.9920915019126167`*^9, 3.992091521328596*^9}, {3.992091560630516*^9, + 3.9920915872983055`*^9}, 3.992118323232296*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"dde03983-df11-8749-92e8-dd4005e76898"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.912564762497319"}]], "Input", + CellChangeTimes->{3.9917123951294365`*^9, 3.99179305435186*^9, + 3.9920909790636597`*^9}, + CellLabel->"In[9]:=",ExpressionUUID->"2673edad-bb17-614f-a593-a9cb7cad1ffd"], + +Cell[BoxData["0.912564762497319`"], "Output", + CellChangeTimes->{ + 3.991319649862606*^9, 3.991707828301527*^9, 3.9917123414573193`*^9, + 3.991712407248003*^9, 3.9920912462732334`*^9, {3.992091391454897*^9, + 3.992091445574003*^9}, {3.992091501939644*^9, 3.9920915213345757`*^9}, { + 3.9920915606593704`*^9, 3.9920915873053074`*^9}, 3.992118323244526*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"eb8ac53c-fffd-f247-ace4-9cafbba6f06b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.619150671620403"}]], "Input", + CellChangeTimes->{3.9917124038115807`*^9, 3.991793052797516*^9, + 3.992090983698309*^9}, + CellLabel->"In[10]:=",ExpressionUUID->"48b19dc1-7edb-f041-bae4-57a9e4bd2551"], + +Cell[BoxData["0.619150671620403`"], "Output", + CellChangeTimes->{ + 3.9913196498716316`*^9, 3.991707828308525*^9, 3.99171234146842*^9, + 3.9917124073213234`*^9, 3.9920912462944527`*^9, {3.992091391461418*^9, + 3.992091445598377*^9}, {3.992091501946205*^9, 3.9920915213588047`*^9}, { + 3.9920915606653767`*^9, 3.992091587327593*^9}, 3.992118323255516*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"2dfb600d-e458-1a44-bba7-254cfa5abd3a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"b6556658-1091-fc4c-9ac8-1666d1e5378c"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.9917078283276424`*^9, 3.991712341478319*^9, + 3.992091246314249*^9, {3.992091391486412*^9, 3.9920914456043663`*^9}, { + 3.9920915019684505`*^9, 3.992091521368332*^9}, {3.9920915606893826`*^9, + 3.9920915873371162`*^9}, 3.9921183232675266`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"3b808e86-5c99-2d49-b37d-b6c3e1b7bd14"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"af41b3eb-fc07-ed4d-8a49-34b18c13123e"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.99170782834754*^9, 3.9917123414863186`*^9, + 3.992091246321356*^9, {3.992091391511833*^9, 3.992091445629402*^9}, { + 3.992091501974474*^9, 3.9920915213903313`*^9}, {3.9920915606973896`*^9, + 3.992091587358549*^9}, 3.9921183232795334`*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"5e33cd10-9713-b149-97c2-64d7b6c99b82"] +}, 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->"dba3f829-103b-9f4a-ac0b-c48c153dee45"], + +Cell[BoxData["2.3367797709113582`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.991707968406042*^9, 3.9920912463416023`*^9, { + 3.992091391536875*^9, 3.9920914456353855`*^9}, {3.992091501999426*^9, + 3.9920915213963375`*^9}, {3.992091560721428*^9, 3.9920915873665257`*^9}, + 3.9921183232895145`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"76718e6d-28ec-0b41-a48e-fec60521ae43"] +}, 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->"f54316f6-bd9d-7b43-a7b7-d8c525372e74"], + +Cell[BoxData["1.7566650946816267`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.9917079684291363`*^9, 3.992091246349119*^9, { + 3.9920913915428715`*^9, 3.992091445656397*^9}, {3.9920915020104103`*^9, + 3.9920915214180527`*^9}, {3.9920915607274265`*^9, 3.9920915873885345`*^9}, + 3.9921183232985287`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"b454635b-1fde-6f4d-9e2a-877a6e36c1bf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"e3db6600-5d2c-484c-b638-1fc1af7a0fcd"], + +Cell[BoxData["0.4127308494837588`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.991707968457081*^9, 3.9920912463708134`*^9, { + 3.9920913915624123`*^9, 3.9920914456634007`*^9}, {3.992091502031412*^9, + 3.9920915214423656`*^9}, {3.992091560753374*^9, 3.9920915873955364`*^9}, + 3.9921183233073025`*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"94f9afe3-f0de-cd4c-b503-2fe34b9faa23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"60553265-d929-9a4a-ade8-9643cec06658"], + +Cell[BoxData[ + RowBox[{"-", "0.1731065192411402`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.9917079684650364`*^9, 3.992091246395151*^9, { + 3.9920913915704136`*^9, 3.99209144568738*^9}, {3.9920915020386753`*^9, + 3.9920915214493656`*^9}, {3.9920915607803288`*^9, 3.9920915874025383`*^9}, + 3.9921183233168125`*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"de0c854c-a92a-c049-96bb-8d86a401767f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"35bb66b7-7141-c442-ab4a-7f44db800d79"], + +Cell[BoxData[ + RowBox[{"-", "0.4062816230025426`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.9917079684860363`*^9, 3.9920912464020443`*^9, { + 3.992091391594614*^9, 3.9920914456933784`*^9}, {3.9920915020645943`*^9, + 3.9920915214756165`*^9}, {3.9920915607873363`*^9, 3.9920915874245453`*^9}, + 3.992118323325815*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"a4e1d51d-2dc4-e649-a288-48b668d498ca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"b84ad735-faee-584c-8acb-d12dfbf1dc32"], + +Cell[BoxData["0.6303744483208076`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9917079684940376`*^9, 3.992091246410055*^9, { + 3.992091391600609*^9, 3.992091445718569*^9}, {3.9920915020705986`*^9, + 3.992091521497614*^9}, {3.9920915608113365`*^9, 3.992091587431551*^9}, + 3.992118323335432*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"9c9bedeb-bafb-1b4b-9960-9beb00d0f6f2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"d2a99daf-e650-654e-8ae6-b58051fb43d3"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9917079685140343`*^9, 3.992091246419077*^9, { + 3.9920913916226387`*^9, 3.992091445728756*^9}, {3.992091502098713*^9, + 3.9920915215232697`*^9}, {3.9920915608188477`*^9, 3.9920915874605484`*^9}, + 3.992118323343857*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"b9c3ab0e-6c20-2b45-8d41-b7d7cad4f3f7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellChangeTimes->{3.9918430951178913`*^9}, + CellLabel->"In[20]:=",ExpressionUUID->"8e5231c5-60ac-dc40-b8eb-5ff933be944d"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.991707968535036*^9, 3.992091246425289*^9, { + 3.9920913916286793`*^9, 3.9920914457553444`*^9}, {3.992091502104719*^9, + 3.992091521546232*^9}, {3.992091560843672*^9, 3.9920915874835606`*^9}, + 3.9921183233549595`*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"7736a038-3ed8-e14e-a929-7c6385c8e72f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"268e769e-bd52-a749-9bf3-dbf8464e56a9"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.9917079685410557`*^9, 3.9920912464323254`*^9, { + 3.9920913916372147`*^9, 3.992091445775835*^9}, {3.9920915021291866`*^9, + 3.992091521553232*^9}, {3.9920915608516827`*^9, 3.9920915874905663`*^9}, + 3.9921183233689785`*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"dfe93ffd-be18-2e47-8cde-3908bb9c7680"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"fe2cdfec-040d-6548-a1f0-056505fdb252"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.991707968561041*^9, 3.992091246440319*^9, { + 3.9920913916577415`*^9, 3.992091445800337*^9}, {3.9920915021357*^9, + 3.992091521578417*^9}, {3.9920915608854294`*^9, 3.992091587511568*^9}, + 3.992118323384863*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"c866fce5-51e8-a241-b3d4-7882900bebdf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"6e4bb0a7-ae57-1148-817c-1ac3be501584"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.9917079685810375`*^9, 3.9920912464478264`*^9, { + 3.992091391664732*^9, 3.992091445806362*^9}, {3.9920915021607113`*^9, + 3.992091521584406*^9}, {3.9920915609120617`*^9, 3.992091587533596*^9}, + 3.9921183233968544`*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"e11492bd-fb1e-8541-aa53-5e04bca86b72"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "46"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.9917930777342243`*^9, + 3.9920909943046665`*^9}, + CellLabel->"In[24]:=",ExpressionUUID->"878d80cc-a24a-4a46-8d86-af1b4de5b7f0"], + +Cell[BoxData["46"], "Output", + CellChangeTimes->{ + 3.9920912464541206`*^9, {3.9920913916852074`*^9, 3.99209144582835*^9}, { + 3.9920915021677265`*^9, 3.992091521614517*^9}, {3.992091560933424*^9, + 3.9920915875599613`*^9}, 3.9921183234078617`*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"ad231e28-9f08-114b-9b72-87eb38190db0"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431115646553`*^9, 3.991843111569187*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"cef075a8-7701-b041-a178-03f3d50f1038"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, { + 3.991644237125025*^9, 3.991644237304865*^9}, 3.9920910015266705`*^9}, + CellLabel->"In[26]:=",ExpressionUUID->"60e50c6d-17e9-3c4a-beaf-d2a1cd7eacb7"], + +Cell[BoxData["48"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.991707968608036*^9, 3.992091246462631*^9, { + 3.992091391693775*^9, 3.992091445837349*^9}, {3.9920915021987267`*^9, + 3.992091521643547*^9}, {3.9920915609663124`*^9, 3.992091587583498*^9}, + 3.9921183234213734`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"37108ab4-1b2a-894e-ae61-5e9cc882b478"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"4c2498ed-9ef7-244c-816d-c30c35823738"], + +Cell[BoxData["122"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.9917079686284103`*^9, 3.992091246474682*^9, { + 3.992091391720581*^9, 3.9920914458603497`*^9}, {3.99209150222027*^9, + 3.992091521651558*^9}, {3.9920915609955387`*^9, 3.9920915876045036`*^9}, + 3.9921183234333725`*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"88742a86-5b6f-604f-ab42-2d3bc7fb6c3e"] +}, 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->"aeb81a59-93af-a84e-807d-17a754600be7"], + +Cell[BoxData["0.10972214504028896`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9917079686354065`*^9, 3.992091246481163*^9, { + 3.992091391726591*^9, 3.9920914458677864`*^9}, {3.992091502227312*^9, + 3.992091521675709*^9}, {3.992091561028263*^9, 3.9920915876295033`*^9}, + 3.9921183234459248`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"c30dda74-9dd0-c143-9a5b-2c2765ef5634"] +}, 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->"291b8ccc-69af-4843-a393-cfd27bc3a78c"], + +Cell[BoxData[ + RowBox[{"-", "2.564642956376771`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.991707968658518*^9, 3.992091246487665*^9, { + 3.9920913917495956`*^9, 3.992091445888296*^9}, {3.9920915022568245`*^9, + 3.9920915216830196`*^9}, {3.99209156103529*^9, 3.99209158763678*^9}, + 3.992118323459921*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"a98653f3-aa53-5440-8885-928a66b93ae7"] +}, 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.991972093618887*^9, 3.9919720982596817`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"130ad36d-bea6-7242-aba2-dfa23b3f24b3"], + +Cell[BoxData["17.899365062297456`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.991707968678421*^9, 3.9920912464957485`*^9, { + 3.992091391759611*^9, 3.9920914459163265`*^9}, {3.9920915022773495`*^9, + 3.992091521707552*^9}, {3.9920915610422688`*^9, 3.9920915876663055`*^9}, + 3.992118323469818*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"603a3080-7f33-7340-bb43-cbfd58a5d901"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"0fb87ce2-288a-b34e-bc6e-0e425904e12e"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.9917079686854057`*^9, 3.9920912465018635`*^9, { + 3.9920913917806015`*^9, 3.992091445936638*^9}, {3.992091502299345*^9, + 3.9920915217152386`*^9}, {3.9920915610632706`*^9, 3.9920915876903477`*^9}, + 3.992118323478924*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"532f1980-b156-3f49-8e5b-ba293f4051e8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.196"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.991793106556059*^9, 3.9920910273198013`*^9}, + CellLabel->"In[32]:=",ExpressionUUID->"4df8b2c8-baa3-7345-9ebf-2dbef092fc95"], + +Cell[BoxData["1.196`"], "Output", + CellChangeTimes->{ + 3.9920912465078697`*^9, {3.9920913917876263`*^9, 3.9920914459436436`*^9}, { + 3.9920915023063526`*^9, 3.992091521742319*^9}, {3.9920915610702686`*^9, + 3.9920915876973457`*^9}, 3.9921183234869213`*^9}, + CellLabel->"Out[32]=",ExpressionUUID->"a4714fd7-bddd-ca4d-9112-ef3b0b4f9255"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431193859673`*^9, 3.9918431193894367`*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"9049f273-3205-c04e-9831-c95d3306ffff"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.867"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917169698218613`*^9, 3.991717907758713*^9, + 3.991793107839529*^9, 3.992091031242695*^9}, + CellLabel->"In[34]:=",ExpressionUUID->"847fcd2f-d4c6-274b-b69c-99763f1cdc12"], + +Cell[BoxData["0.867`"], "Output", + CellChangeTimes->{ + 3.9920912465181103`*^9, {3.9920913918106594`*^9, 3.992091445969261*^9}, { + 3.9920915023426647`*^9, 3.9920915217668476`*^9}, {3.9920915610932617`*^9, + 3.9920915877213497`*^9}, 3.992118323504925*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"831ad37b-73df-c244-983b-65a5037eace8"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843120757866*^9, 3.9918431207603054`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"71094d83-ab7a-004d-90e5-bd603ce7e1cf"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv1", "=", "2.100"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.991717916696951*^9, + 3.991793108990593*^9, 3.992091034612562*^9}, + CellLabel->"In[36]:=",ExpressionUUID->"f5912f7e-9027-7d42-a0c1-5e76e947b58d"], + +Cell[BoxData["2.1`"], "Output", + CellChangeTimes->{ + 3.992091246526657*^9, {3.992091391835745*^9, 3.9920914459788876`*^9}, { + 3.992091502366289*^9, 3.992091521799389*^9}, {3.9920915611022453`*^9, + 3.9920915877303467`*^9}, 3.9921183235179234`*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"96259a60-6d71-7c4e-8973-e50ced1fac75"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431220200443`*^9, 3.9918431220220585`*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"ee521a53-a571-dd48-918f-9e53a3225d60"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn1", "=", "1.164"}], "\n"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.991716995355715*^9, + 3.9917931103354855`*^9, 3.992091037709795*^9}, + CellLabel->"In[38]:=",ExpressionUUID->"6a9255f6-e423-5b4e-ad8a-b735145e3e44"], + +Cell[BoxData["1.164`"], "Output", + CellChangeTimes->{ + 3.9920912465361576`*^9, {3.9920913918577538`*^9, 3.9920914460063896`*^9}, { + 3.9920915023973026`*^9, 3.9920915218073883`*^9}, {3.992091561133566*^9, + 3.9920915877534084`*^9}, 3.9921183235324764`*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"643ecf77-172e-9a47-b43a-0eaccbca720f"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431237966404`*^9, 3.9918431238010616`*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"e7eb29b7-994d-224a-997c-31f9b2d12c00"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.092"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991717006317978*^9, 3.9917931115739956`*^9, 3.992091043143379*^9}, + CellLabel->"In[40]:=",ExpressionUUID->"4a689f90-566d-9b4d-b07a-5ba5a4de722e"], + +Cell[BoxData["1.092`"], "Output", + CellChangeTimes->{ + 3.992091246544861*^9, {3.992091391881483*^9, 3.992091446029396*^9}, { + 3.9920915024203033`*^9, 3.992091521830391*^9}, {3.9920915611575603`*^9, + 3.9920915877614*^9}, 3.9921183235435867`*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"0ff9ef27-018d-884c-a60d-bde2b947613c"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431249171696`*^9, 3.991843124921198*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"0bb456d4-0bff-084e-baad-4ce3a3ade3a1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.745"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917170151233826`*^9, 3.9917931128910503`*^9, 3.9920910468211155`*^9}, + CellLabel->"In[42]:=",ExpressionUUID->"4a08306d-5825-5245-99e4-ad98c9ced916"], + +Cell[BoxData["0.745`"], "Output", + CellChangeTimes->{ + 3.99209124655336*^9, {3.9920913919080105`*^9, 3.9920914460524216`*^9}, { + 3.9920915024468384`*^9, 3.992091521861906*^9}, {3.992091561166565*^9, + 3.9920915877864456`*^9}, 3.9921183235544777`*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"73faacba-7daa-cf44-b755-f7acd389bb7e"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843126102844*^9, 3.991843126104536*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"c2a70a7f-2283-3c43-bead-cfb6bc4f0fc1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv2", "=", "1.690"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, { + 3.9917170243815575`*^9, 3.991717046491377*^9}, 3.991793114539028*^9, + 3.9920910516142616`*^9}, + CellLabel->"In[44]:=",ExpressionUUID->"1cf75dbd-0ee2-b64b-91df-0f6d27a2c275"], + +Cell[BoxData["1.69`"], "Output", + CellChangeTimes->{ + 3.992091246563381*^9, {3.9920913919170284`*^9, 3.992091446078829*^9}, { + 3.992091502472595*^9, 3.992091521870432*^9}, {3.992091561191597*^9, + 3.992091587811405*^9}, 3.992118323568825*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"a74b927d-bf60-8049-a437-079076dfbc99"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431274420605`*^9, 3.9918431274461517`*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"e52ef544-976c-0e42-9b93-9a455fef99a3"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn2", "=", "0.942"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.991793116134735*^9, 3.9920910554773026`*^9}, + CellLabel->"In[46]:=",ExpressionUUID->"589212bb-0d09-bd4d-9ef5-2829a0dd2671"], + +Cell[BoxData["0.942`"], "Output", + CellChangeTimes->{ + 3.99209124657098*^9, {3.9920913919423637`*^9, 3.992091446105234*^9}, { + 3.9920915024975986`*^9, 3.992091521894394*^9}, {3.992091561218664*^9, + 3.992091587820408*^9}, 3.9921183235849304`*^9}, + CellLabel->"Out[46]=",ExpressionUUID->"534ce497-2c7e-eb43-a02a-7eada08c1a65"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843129570627*^9, 3.991843129574024*^9}}, + CellLabel->"In[47]:=",ExpressionUUID->"1ed7bdb6-c122-8648-a8fd-20060de48097"], + +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[48]:=",ExpressionUUID->"5655ff51-03c5-6e4b-a31c-447549cb42db"], + +Cell[BoxData["1.3673914803678473`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.991707979950527*^9, 3.992091246629711*^9, { + 3.9920913919803658`*^9, 3.9920914461628*^9}, {3.992091502550644*^9, + 3.992091521950554*^9}, {3.992091561270252*^9, 3.9920915878786583`*^9}, + 3.992118323720604*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"83be1b51-2b2a-c641-aae9-fae4884076e4"] +}, 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[49]:=",ExpressionUUID->"54727339-1998-d347-b373-e75d1edb0eb8"], + +Cell[BoxData["5.915425097815979`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9917079908393784`*^9, 3.9920912466771107`*^9, { + 3.992091392014946*^9, 3.9920914461978245`*^9}, {3.9920915025839367`*^9, + 3.9920915219846897`*^9}, {3.992091561308256*^9, 3.992091587913206*^9}, + 3.9921183238798313`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"82f1b2b0-51a7-8a49-adac-da2ee87ecee2"] +}, 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[50]:=",ExpressionUUID->"66fa67b1-f382-df40-a332-dc300b0c584b"], + +Cell[BoxData[ + RowBox[{"-", "65.3826470755978`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.991707995240637*^9, 3.9920912467196655`*^9, { + 3.9920913920504456`*^9, 3.9920914462375107`*^9}, {3.9920915026205044`*^9, + 3.9920915220203133`*^9}, {3.992091561346586*^9, 3.992091587949417*^9}, + 3.9921183240755806`*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"76729142-2d26-b045-bf16-642957c832cf"] +}, 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[51]:=",ExpressionUUID->"2f0eaada-92ab-a446-b15b-c25b7bd772ef"], + +Cell[BoxData[ + RowBox[{"-", "125.53393710893079`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.991707999380541*^9, 3.992091246775194*^9, { + 3.9920913920914593`*^9, 3.992091446285513*^9}, {3.9920915026595116`*^9, + 3.9920915220597553`*^9}, {3.9920915613875847`*^9, 3.9920915879934235`*^9}, + 3.992118324331543*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"8693afbc-c2de-d141-a81d-a7a43ec2ab76"] +}, 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[52]:=",ExpressionUUID->"941a1eea-87d7-8f42-ae3e-405dbe917eac"], + +Cell[BoxData[ + RowBox[{"-", "181.77206655859075`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.991708001954468*^9, 3.9920912468259945`*^9, { + 3.9920913921325283`*^9, 3.99209144632465*^9}, {3.9920915027005463`*^9, + 3.99209152210231*^9}, {3.9920915614267483`*^9, 3.992091588035942*^9}, + 3.9921183245206375`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"2c92c3e8-dabb-9048-bb84-4e7e2c9ebaa4"] +}, 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[53]:=",ExpressionUUID->"e33d937e-5049-334c-9bad-1b104d98f2bc"], + +Cell[BoxData[ + RowBox[{"-", "695.190548511538`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.9917080040838356`*^9, 3.9920912468861237`*^9, { + 3.9920913921795197`*^9, 3.992091446372057*^9}, {3.9920915027450676`*^9, + 3.992091522149296*^9}, {3.992091561473261*^9, 3.99209158808547*^9}, + 3.9921183246909943`*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"4c8cdffe-d441-7644-968d-d44d46668238"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"6e0bef04-8d2e-1745-b209-ce9874237cee"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.991708067458639*^9, 3.9920912469088554`*^9, { + 3.9920913921995106`*^9, 3.992091446393757*^9}, {3.9920915027683907`*^9, + 3.992091522174301*^9}, {3.992091561495289*^9, 3.9920915881082993`*^9}, + 3.992118324721218*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"b9e7d09e-4840-474c-9f85-38d160cf7ca0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"51a875f3-2bd1-8b45-9152-496f4e103d3f"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.9917080674805565`*^9, 3.9920912469163704`*^9, { + 3.992091392229389*^9, 3.992091446400278*^9}, {3.992091502799368*^9, + 3.9920915221803036`*^9}, {3.992091561520315*^9, 3.992091588115286*^9}, + 3.9921183247476654`*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"bd470ddb-f15c-5140-9942-2a679731db1c"] +}, 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[56]:=",ExpressionUUID->"391cdea6-e77a-a24f-ab38-4a6a1d28cf24"], + +Cell[BoxData["361.2471433722319`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9917080675026455`*^9, 3.992091246940546*^9, { + 3.9920913922633686`*^9, 3.992091446426317*^9}, {3.9920915028063927`*^9, + 3.9920915222063217`*^9}, {3.9920915615442753`*^9, 3.9920915881375065`*^9}, + 3.9921183247611237`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"13d946ce-cbef-b34d-a6ea-632e681eeb42"] +}, 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[57]:=",ExpressionUUID->"99153a49-9764-644e-94a8-492732e4283f"], + +Cell[BoxData[ + RowBox[{"-", "349.7981011803344`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.991708067510544*^9, 3.992091246946535*^9, { + 3.992091392294138*^9, 3.9920914464543114`*^9}, {3.9920915028279285`*^9, + 3.99209152222933*^9}, {3.9920915615682793`*^9, 3.992091588163168*^9}, + 3.992118324777975*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"d23f15dc-c05c-614f-806b-8e8a21c3c4dd"] +}, 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[58]:=",ExpressionUUID->"e844b4c8-a66e-5141-bc71-bc70b39539db"], + +Cell[BoxData["454.36412518953205`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9917080675337753`*^9, 3.992091246972496*^9, { + 3.9920913923294888`*^9, 3.9920914464768276`*^9}, {3.9920915028354263`*^9, + 3.9920915222513294`*^9}, {3.992091561598337*^9, 3.9920915881942825`*^9}, + 3.992118324792282*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"4b4a1aec-48f9-b34b-9233-02e91c431fcf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"f2db0337-401a-e741-8590-810217c4f3c3"], + +Cell[BoxData["0.4127308494837588`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.991708067540825*^9, 3.992091246979046*^9, { + 3.9920913923595943`*^9, 3.9920914465043583`*^9}, {3.992091502857462*^9, + 3.9920915222583466`*^9}, {3.992091561628416*^9, 3.992091588216179*^9}, + 3.992118324805193*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"b494f128-0dd4-db4f-a9a0-1fffa9962893"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"eb2f2172-089c-4643-9ded-376391cc54ba"], + +Cell[BoxData[ + RowBox[{"-", "0.1731065192411402`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.991708067561775*^9, 3.9920912470023327`*^9, { + 3.992091392382597*^9, 3.992091446511343*^9}, {3.992091502867462*^9, + 3.9920915222823963`*^9}, {3.992091561635437*^9, 3.9920915882387123`*^9}, + 3.9921183248195705`*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"cce0e5e3-2ab6-a040-9d06-60e60e827a7b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"91d93eed-7bdd-9542-ac21-1e219c8eb1f7"], + +Cell[BoxData[ + RowBox[{"-", "0.4062816230025426`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.9917080675837746`*^9, 3.9920912470088387`*^9, { + 3.992091392404505*^9, 3.9920914465343437`*^9}, {3.992091502893507*^9, + 3.992091522288412*^9}, {3.9920915616594143`*^9, 3.9920915882452965`*^9}, + 3.992118324832224*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"9ec6abf2-5838-2d45-b185-ca6fc346277c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"4a405139-98b1-da41-baa7-40f21a88faee"], + +Cell[BoxData["0.6303744483208076`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.9917080675917854`*^9, 3.992091247032854*^9, { + 3.9920913924115047`*^9, 3.9920914465403423`*^9}, {3.992091502900509*^9, + 3.9920915223143997`*^9}, {3.9920915616654167`*^9, 3.9920915882721863`*^9}, + 3.9921183248491726`*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"265e095a-ad88-d64b-a04c-5cf247b12e66"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"2432f554-dfce-c345-aee4-ab1fada20c0f"], + +Cell[BoxData["2.3367797709113582`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.991708067612774*^9, 3.992091247040392*^9, { + 3.9920913924180164`*^9, 3.992091446562351*^9}, {3.99209150292482*^9, + 3.992091522321432*^9}, {3.992091561687416*^9, 3.9920915882941914`*^9}, + 3.992118324880398*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"217590fd-19d2-5f49-8730-35f389da3528"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"d8300595-d956-114b-ac74-43bf03afaa14"], + +Cell[BoxData["1.7566650946816267`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.991708067619776*^9, 3.992091247064493*^9, { + 3.992091392438549*^9, 3.9920914465698586`*^9}, {3.992091502931345*^9, + 3.9920915223446445`*^9}, {3.9920915616934185`*^9, 3.99209158830122*^9}, + 3.9921183248960514`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"3448593c-b1da-e34d-84d8-b97039a3a2f2"] +}, 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[65]:=",ExpressionUUID->"843f4134-7522-1148-a355-758046332408"], + +Cell[BoxData[ + RowBox[{"-", "30.830767993153184`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.991708067640772*^9, 3.992091247071554*^9, { + 3.99209139244553*^9, 3.99209144659474*^9}, {3.992091502953377*^9, + 3.992091522351671*^9}, {3.9920915617147236`*^9, 3.9920915883242016`*^9}, + 3.9921183249117527`*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"f8dd8ba1-c84f-ba4f-ba28-a7a91cd14862"] +}, 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[66]:=",ExpressionUUID->"133c5c9d-3e6b-fb4e-8771-e0290c8011e2"], + +Cell[BoxData[ + RowBox[{"-", "18.659127233530825`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.991708067662775*^9, 3.9920912471162415`*^9, { + 3.9920913924683304`*^9, 3.9920914466022835`*^9}, {3.9920915029593945`*^9, + 3.99209152238122*^9}, {3.992091561736267*^9, 3.9920915883505287`*^9}, + 3.992118324930973*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"1eee8ebd-27ee-6c48-8ccc-02fbbb3c422a"] +}, 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[67]:=",ExpressionUUID->"a344793c-bf8e-2a4c-ac3f-5d45a812d604"], + +Cell[BoxData["330.4163753790787`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.991708067669775*^9, 3.9920912472323074`*^9, { + 3.9920913924753494`*^9, 3.9920914466254234`*^9}, {3.992091502983383*^9, + 3.992091522409233*^9}, {3.992091561743267*^9, 3.9920915883765354`*^9}, + 3.992118324944746*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"877eac59-cd25-7546-bb22-425885dc8bb2"] +}, 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[68]:=",ExpressionUUID->"0b343bab-19c0-8b44-83a5-d2b4e9621921"], + +Cell[BoxData[ + RowBox[{"-", "349.7981011803344`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.991708067690773*^9, 3.992091247257927*^9, { + 3.9920913925043335`*^9, 3.992091446632412*^9}, {3.9920915029893856`*^9, + 3.992091522416319*^9}, {3.9920915617668056`*^9, 3.992091588383543*^9}, + 3.9921183249597454`*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"02f9b44f-eedb-1e40-8e60-45ad8e92b48a"] +}, 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[69]:=",ExpressionUUID->"25cd0352-0a5d-eb49-ac86-c2d9cc6a455e"], + +Cell[BoxData["435.7049979560012`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.991708067697775*^9, 3.992091247289015*^9, { + 3.9920913925103607`*^9, 3.992091446661234*^9}, {3.9920915030163956`*^9, + 3.9920915224431896`*^9}, {3.992091561773327*^9, 3.9920915884085503`*^9}, + 3.9921183249897327`*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"03a53b1c-384a-7b49-9f63-014ada7ecdf5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"2690c115-57dd-354e-a006-969bc2d2f822"], + +Cell[BoxData["87.42511720990086`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.9917080677197742`*^9, 3.992091247312895*^9, { + 3.9920913925353565`*^9, 3.9920914466682186`*^9}, {3.9920915030234013`*^9, + 3.992091522463722*^9}, {3.992091561798332*^9, 3.992091588416548*^9}, + 3.9921183250175705`*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"9cc76c41-9121-f549-b595-bb254e4179a0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"a25ceab2-3820-2e42-8510-d275cffeed66"], + +Cell[BoxData["1623.0724592455672`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.991708067726776*^9, 3.992091247321451*^9, { + 3.992091392542387*^9, 3.992091446690258*^9}, {3.992091503048933*^9, + 3.99209152248625*^9}, {3.992091561805361*^9, 3.9920915884453773`*^9}, + 3.9921183250412197`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"01dd996c-7ef5-e340-ab7c-54745c239829"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.432722960630574"}]], "Input", + CellChangeTimes->{3.991844487293215*^9, 3.992091878546377*^9, + 3.9920919170665607`*^9}, + CellLabel->"In[72]:=",ExpressionUUID->"8b10a187-c7b7-0f44-8f32-75ec5ae33e70"], + +Cell[BoxData["0.432722960630574`"], "Output", + CellChangeTimes->{3.992118325052046*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"5fd992e6-b5d5-9249-abd4-716fe8fe12c4"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991844505909937*^9, 3.991844505914568*^9}}, + CellLabel->"In[73]:=",ExpressionUUID->"d7190627-18d6-a94b-880e-e3f073ed75cd"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.31463698253977"}]], "Input", + CellChangeTimes->{3.991844489013321*^9, 3.992091883345543*^9, + 3.9920919229547176`*^9}, + CellLabel->"In[74]:=",ExpressionUUID->"ff3a0633-5725-474e-a1df-0fae08da0391"], + +Cell[BoxData["0.31463698253977`"], "Output", + CellChangeTimes->{3.992118325062172*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"d1a6bc9f-42fe-2b40-bead-867e1959fb30"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991844506884182*^9, 3.9918445068872185`*^9}}, + CellLabel->"In[75]:=",ExpressionUUID->"c4cb48f6-8bef-5140-97cb-74fc477176c0"], + +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[76]:=",ExpressionUUID->"1479e503-99dc-8043-a7ed-41f4ebd401a5"], + +Cell[BoxData["1.722331582108792`*^-53"], "Output", + CellChangeTimes->{3.9913279321052856`*^9, 3.99211832508276*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"bc2a659f-c93f-5245-b96c-20b542cde9ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + 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"]}]], "*", "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, {3.9915580161429977`*^9, 3.991558019706772*^9}}, + CellLabel->"In[77]:=",ExpressionUUID->"ee451e0a-03c5-5d4b-809d-1baa2036c180"], + +Cell[BoxData["1.636808034786002`*^-54"], "Output", + CellChangeTimes->{3.991327932129387*^9, 3.992118325099703*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"4d258fe3-09dd-8a40-bcff-b94e09e0b238"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + 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"]}]], "*", + 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}, + 3.991558013605444*^9}, + CellLabel->"In[78]:=",ExpressionUUID->"1b7f9814-f540-ee4f-a97a-82e0c001ccbc"], + +Cell[BoxData["1.0861905135009178`*^-54"], "Output", + CellChangeTimes->{3.991327932138338*^9, 3.9921183251891575`*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"161c1430-2d64-3741-a2f5-c22d5f0aa6c9"] +}, 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[79]:=",ExpressionUUID->"add7dc78-05f0-9740-a4f6-53e576919ef8"], + +Cell[BoxData["14.828168767133674`"], "Output", + CellChangeTimes->{3.9913279321616154`*^9, 3.992118325203705*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"fec45309-5ff0-5841-9564-0e0b176e18f9"] +}, 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[80]:=",ExpressionUUID->"9b673079-5994-e34c-a858-9ada9b775642"], + +Cell[BoxData["34.12266166225029`"], "Output", + CellChangeTimes->{3.9913279321696014`*^9, 3.99211832523028*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"4c3eb498-108d-e246-b15f-71f857669eb5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[81]:=",ExpressionUUID->"2e19814e-d8e4-0440-a349-54cc93ccdf53"], + +Cell[BoxData["2.4281435116294983`"], "Output", + CellChangeTimes->{3.9913279321926613`*^9, 3.9921183252578735`*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"6eda747c-145d-b541-b206-d2c7a2183c32"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"538f6b3e-6e49-7749-a73e-74beaffe6942"], + +Cell[BoxData["6.896797970632204`"], "Output", + CellChangeTimes->{3.991327932200657*^9, 3.99211832527894*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"f376a02f-b6bb-7d49-b5be-f23875b070f7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[83]:=",ExpressionUUID->"0943a4c5-ab88-024e-b598-6ab09308c529"], + +Cell[BoxData["235.3371037047771`"], "Output", + CellChangeTimes->{3.99132793222501*^9, 3.9921183253018246`*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"a368f12d-0adf-6541-9d89-7478ff423dc5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[84]:=",ExpressionUUID->"5313d107-d67a-0a42-97ea-bdd5afbb176c"], + +Cell[BoxData["36.00492178126281`"], "Output", + CellChangeTimes->{3.9913279322642612`*^9, 3.992118325322195*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"6560de0a-4715-5748-bd44-12440e7bb182"] +}, 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[85]:=",ExpressionUUID->"05311468-f950-6f43-ae68-9cc6502c4986"], + +Cell[BoxData["0.00826182567072342`"], "Output", + CellChangeTimes->{3.9913279322906475`*^9, 3.9921183253490486`*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"7d95522c-4ebc-dd42-8a8b-11f35d5e476d"] +}, 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[86]:=",ExpressionUUID->"55ab7556-231d-f846-b625-6b6079424223"], + +Cell[BoxData["9.750051894856684`"], "Output", + CellChangeTimes->{3.9913279323826447`*^9, 3.9921183255712376`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"1c05557d-ecd1-b346-a4a0-b395085aac68"] +}, 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[87]:=",ExpressionUUID->"de97f1d4-a997-5d44-ad21-9d29636b6b11"], + +Cell[BoxData["0.013614498457962173`"], "Output", + CellChangeTimes->{3.991327932394655*^9, 3.992118325596594*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"adaae8b7-5a8f-7a4e-b500-1e517528b654"] +}, 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[88]:=",ExpressionUUID->"69bf2733-1c68-0d45-9dcf-32eb09d0774e"], + +Cell[BoxData["7.595285743061616`"], "Output", + CellChangeTimes->{3.991327932491659*^9, 3.9921183258095436`*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"78727c1b-3c29-3e49-9849-3e13f9eb09fb"] +}, 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[89]:=",ExpressionUUID->"790285fd-a791-004a-beb8-81432d5fe6ed"], + +Cell[BoxData["0.39889500278443296`"], "Output", + CellChangeTimes->{3.991327932509678*^9, 3.9921183258365993`*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"3738bebf-fdb7-744d-a7f3-b3d59491ff05"] +}, 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[90]:=",ExpressionUUID->"8d9d59ff-5258-ed44-b54a-00649424f6ab"], + +Cell[BoxData["0.6011049972155671`"], "Output", + CellChangeTimes->{3.9913279325457134`*^9, 3.9921183258797607`*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"90f0e5e5-1d63-9a4e-8c8d-c34f582e9dbd"] +}, 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[91]:=",ExpressionUUID->"082cc170-e78d-1f4c-ac49-a1fc473fe786"], + +Cell[BoxData["0.2397777795380402`"], "Output", + CellChangeTimes->{3.9913279325697117`*^9, 3.992118325914776*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"7f6f2692-7876-1d4b-a096-997110255b4a"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[92]:=",ExpressionUUID->"b80089e4-e129-a84d-a279-8559e98c6042"], + +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.991844522599167*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"d15c8f9d-5cd8-0448-9115-8fd811f7859e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1414714009683445`*^-215\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 93, 790, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279325947113`*^9, 3.9921183259869823`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"f5884305-e9ab-b04c-9831-88937b36f5d5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2441593078022079`*^-220\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 791, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279325947113`*^9, 3.992118326040781*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"618bfe3e-f617-fb43-a2ec-64c990c3061f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.228358886749149`*^-226\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 792, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279325947113`*^9, 3.9921183260608253`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"fba1ee07-0355-3949-8bf8-e5b72b8a250d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 93, 793, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279325947113`*^9, 3.992118326079817*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"651f7e32-1fae-5440-9722-0454662f5a5f"], + +Cell[BoxData["9.750051894856693`"], "Output", + CellChangeTimes->{3.9913279359974174`*^9, 3.99211833439336*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"1a7f079f-59d3-eb45-8065-c4d9e2cf7d79"] +}, 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.991844527271263*^9}, + CellLabel->"In[94]:=",ExpressionUUID->"a596efda-1871-9b45-afb4-f85dfdafd26c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1414714009683445`*^-215\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 94, 794, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936033827*^9, 3.992118334539339*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"4eb4bce7-d74b-924c-aeae-69cbd3b4f7bc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2441593078022079`*^-220\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 94, 795, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936033827*^9, 3.992118334562134*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"06f17012-b2ea-4f47-a3e9-87b2edcc7587"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.228358886749149`*^-226\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 94, 796, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936033827*^9, 3.9921183345831203`*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"21e9f956-b642-8844-ac83-9cf76af4f9cb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 94, 797, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936033827*^9, 3.992118334606125*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"d4c99b7e-a55b-3747-aa01-f9b0d8b5e36c"], + +Cell[BoxData["7.595285743061624`"], "Output", + CellChangeTimes->{3.9913279393385086`*^9, 3.9921183427291145`*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"79b40355-3da2-994d-87c5-8cc3d83ca3c3"] +}, 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.991844532798546*^9}, + CellLabel->"In[95]:=",ExpressionUUID->"98a8fe78-0965-1043-b897-797c175d7e63"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk0VlsfB3BDNKBryJDpmrtmmcm1fxmSQgiZ4/GcY0jm9BQlSb1NylB0 +S1RIImTOcFUyRIaoqEzFyZzxIen2bn+cddZn7XW++3v2XntL04LtCTYWFpYx +/Ky/Q9vVdlR0thuzHS2tYLowkfFMlg7NLB89sD0fuO6hDN0UObMa9N9frJeX +sG3pbzi5tV6hx1LyAovYxYyYlxxmbajk9PyGeeyLjSL1MXldKDHH3+s7dlVn +6N01zXdIXOSy/BT2xMfX0Seqe1FK8CGHMWzRUVk3pulnVE50TH3F3v892iC8 +bRAldCzMDGDXrU1wMfKG0d27r1z7sN/HCkeVB31F7UPmGt3YM5xmE4uaoyi4 +/lhwGzbnlRAXrWUK6Z5zEnmFLcmX3hxaPYZMr40r1WLbiDFzZkynUPINlauP +sclMGSHVTTOIb3Tw8z3sGPkD8UfaviM9Oaubqdi9wj07I/LmkL79oT2x2HTX +AP/kK/PoMGPV6Bj27B2We0+DFlDLmme6H/YmGVXeOc0lJNN07LY1dgr9pQWv +IBMd3qFqgLClHrrEqC8zkZ9oEWhg66ucnzlavYKOy8td5cX20x1smzBdQ0Gr +ouKvnZlokXFswxaFXyjL8dymCuwz1VxGipv+Qwm/3no+wE4D/ce+bb/RWSV1 +y5PY9Oxms7A8VqictBOUxs5rTB6KFWODlt6DdpuxZ795RideYQPXIbfl2UNM +FK20VFIUxA4q/16PrcNOKZSW/a7JAd/9Ba/ZY3/snKr77wEHPBXoENPFlpqv +cN0qyAnm5eX827HztW2SVJc5YdO0POp3YqKGqpOsgdWboCNaLtkTe+ll9+CY +KTdMurKqmjsyEb8VN29UHTekpyYpiWNr9JgBjwEPMALjGfMOTBQwUpa5U20r +pK+UcqRjh7C1afzNzQtRjRbU+EEmGpV5MhfP5AOFveItNHu8PuTrzR1a/LCb +K6RLDZvtMSUtEsoPs/tblVbtcF+tP+3zJvnhCltTZwK2q+n1p+1DArCxQ2ay +0JaJOnzCwoVbBaHyFUHvsmGigYcJl702CUFz1erZJOypybwHj8yFYHOYz4I9 +9paIr9276oWgL3KspcuaiczOOWh7lQmDtsDBA01WTPQsS3cpN2M7nO2sbE7c +x0RZo6uRhhESgLTnRrPMmWiv44WB8AIJsOA+seaIPdUgsKeAkgDzk1PRnNja +WSqCUi6SMCreXU2Y4fWkeZZwGP8Jls9ttSRMmWj++9DxsTgpUD+2IBQCTCRw +1Ky0xFoGshqq5HMMmYjK2uJnGyAD/IF2t8ywKz93ik2flwH1t3OMLwZM5G7l +EadQLwNHnqZGi2NnKUfa39KUBc9/LqZe1MPzTzycPS0sByVR0yp7tZnIwZdL +dd+wPAjzhNEOqTIRinTUPPRLHg6bvGgYVWEipfgMPfp2BTi1su92ODbLAy2T +03YK0LvinH1VmYkKBtwOPX2uAH2bn6pXK+Lz6ZQfK3p/ByCuX+pr8rifmfX7 +CZoiSAWvMoQkmUhM5lrM5REV4DmgblnMzUQ1lxYVf7CpgtgpRj8vtvuCSw8p +rQpD1UY9wVxMdLdBTtHEUxX83tWOK29hIhnfZ29XPqhC7bR75Z2NuF/+qDzZ +qgb/apuxebMxkYSYJCnlogHdHIFwbHkJqWRHcP9EmvBetiS2Z3AJ0ehxS6o2 +mgBzuSJi2GmySQNe7prAUXBFzXtgCbHfLyxqZGjCZM39D5Ofl9DHuxMOScWa +gKQLZX72LaGLaV7pirJaoHi/ooq1ZwlRl63UnDm1wXlq5GNh0xK6FyZnW9am +A6UdLPdSC5ZQZyTSO5dtALov+9WfBC0hac93Nh6Bf8MRT50cIcUlRPwufyJx +AiCliZExOryIhCcrNwrTTMC7xn3lccIiitAy+pykZAZRerzuwkaLiDa91iww +YQ6xiWWnLL8toAKT8I0ZHRbgcSXyx6sLCyhrMeB5foolaE3vvCyqsoBWdou8 +aYjZD18umq48b5xH/Szsc8Pe1mDspb+bkzaPgsSDr8fKHgBBAc7g2+zz6Il/ +c/2NeFvgqsx7aZ8+h04ubF9W9reDdg/BT2eM59DSvj1OTYftgUeaIcvWN4sM +3BJ3j9odhM7nHG7ix2fR2+3pAQ1aDuD9sS24SmIWiebE1eT+5Qjhd+IGk05/ +R5VDSlY2PE4wvHdoOaR7Bkn2zPpGTjuB9LV/9rLsnEFaNxLzHwwdAsOP26L/ +ujCN0jcsqCW9dIbHjNkJ5swUKt+t/jG+ygUki4eOKdlNoTS9S3xrea7wrlOR +paR2EnV8yj6vdcUNdqtpTMwbTqIy6ztyIWfcIeDibu/80gk0d/QgSxDdAwxj +P+8KM55AS3sU/WZMPWFhZ1OMcdc4yp3uWwnXPQzahKwD0MaR871sHw9uLzg/ +cjekgnUclTzdf5j9ghcExdtsLcocQwZib39c/OEFPnpdz3ZajyHZId+PXf7e +EKNsp7LAOoZGuI4cuPPVG3gO/Ud7XPENdSbY+Fg40kA6dNu00olvKIWRwXWs +kwbZJumtb4y+oZq63z98LH1AbC7h0dSmb+gPd7ig9cwHdk56f+YdpJDUtqYO +8RofqCrNl/cfoJBGm7UIZ50PUOTjkef9FLI3cnvU+9wHzuiUvYz4TKEU8cjW +Uy0+YFF3jWOoj0Ki/Y//aO71gaQdfDfaeigk5ymc5r7sA7+5dVt+vaaQgddM +brw2HeQ1o2r+raRQzq3ZcBtdOtxKZI8zxt7WPW8srE8HuRm3wtoKCs2YL/fk +7qJD/lioQW05he8bFtY2Ezpo2o7xPy+l0NZlPhd+OzoMiBT1fiqi0MhVnc0Z +R+kwyExK93hEIbsmvR7fYDqM5HNvH8+lUB2LYYZGKB1SxDesRmDfCjfWeRFB +hz2utKmrDylk42LhPRpFh3a+tKSGbApVyblUKV+iQ+aDti9m9ymUUB3tX5lD +h9H8gdjE2xQ6qplqwMilQ9esxFNlbKtHxZv18+jAEZdh2vgPhbakUo8qCvD8 ++t6X1m5RKD7MdqK8lA5NQ1k5R9MoFK0od6TsBR1iymgitBsUCkhtDXw6QIeb +Jg1vk69RyHIrZRQ2RIcaB/oOQ+y/4ll4NL/Q4YX3xv6hBApRYToFxaN0aFiz +OaKO7W2TMV00RQd6UpFA1xUKOXOEBxWu0qFOXyFJ4RKFLMJFQ/KFCHAciTcQ +jafQi4zz+5JECLD2mBNpPEcho7Z5OYYoAW/drQLCsDXkW/tMJQlwzWmmtcVR +aPuHKNNP8gSsrmTmxZ+l0KRhv9AWHQJUN25N4TlDoWtsmbW+Bwmw6LarD4vC +/6/OnWbtSECBQX+fCvY5N0aY1iECBn6IEt9OUohRarvjtysBdTdzOj2wvUnW +xJs0Ap/f9p8HTlBI6zWN/iqUgOTKsUzL4xT6kCjPJXudgChSViwpnEJPEI/f +WCIBEf3vJDyxz00vNhQkE2B3wD1OCVvTsuG0fioB9elDkQ1heP9YfOat7xIw +Vfbw91oohfYEZ/Yx8gkoN/879UwIhSQk/qdr/IQAZ4X8RnvsxdfByexFBDCG ++53lse8rIOuEEgLujcdntwZT6Fd/f/2DZwRYtbQNimOXWonltjcTUMvm/aHr +KIUur7JxpLwmwMDokmYeNi13wtuljQBpO9/Zs9i8G56JjXQQkJhmkKKDHVjt +fO3HewLmvipEZwRSSFbpZqTcKAHB+Ufb4o9QaPXDqe5xioAWz1B7OnZnPKFR +OEZAJr/4LlPs08PaEwZTBKQl+2izYX9M6/Y4sEDAD46HjecCKJS0kc/8JCsJ +7JK+/nf8KVQz3+8WwU5CUGXj/Cnsb/15YUEcJKj1bFw+jG1UapZJ20wCmCqH +yGNTXoyf+/hIiHs4JFfuh/tbmfObC5Ag91kn/jb2Lj1+RSSI8+xIr1js6zz5 +TlrbSUiTcLpgsz7+bLBYTJoEk16P1BlfCpHZ+c2CsiRM3TjR/gH7+vUTg3/I +k5CvfOTMc2yKFODZoEiCxJE3DjfXxwUs/KY0SDjReupfc+xn/wnEUJokTL/Q +e6OJPTo+dGNIG+ezvXSUwjasP/myR58ESbv9H9ZIfD8EPpGsBZxXIXinGnur +c5ROhQkJmp5WZ/KxDUz3WhWbkTBxw3YwHTth+5cT2XtJMBKv5zmLXbmh8HrG +PhLKs5X6I7C/fo96eMuKhFQd7x1+2PqNgu+u2pLQy75TxRabVvxl8oI9zk9r +ocywr94pZDvrQILSoIq4IfaXMEuNSGcShJzsl+WxeTyFLEJcSbBdFkgXX8+z +/OoR4E7CSdWMWoH17/88ddnTi4S7XnzB7Ot9tuy770zDfceXf/8kcN6SUJU9 +nYQfUg+5lrB5hr92WJEkJPRIJs1g67cVUXv8SMh975k8hk2rOPULAkh4v0b+ +8RX76v1923YFksAmpcc5gF15VVhZJ4iEAPGO433r+YyR3eohJNR0qdHfYXPT +i50Vw/B6yjq1dmHrHTgdLBtBwi+mWUH7er7h/vMSkSTQ9X5ubsO+Ii+SLszA +7mIMt2CX846W8J3E+19Wq9WMPfyz+DVXNAljvS0sTev5304Pc5wmYW5n+t5G +bN23+1d+x5DwqVqPa93/B4qX8nE= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk0VlsfB3BDNKBryJDpmrtmmcm1fxmSQgiZ4/GcY0jm9BQlSb1NylB0 +S1RIImTOcFUyRIaoqEzFyZzxIen2bn+cddZn7XW++3v2XntL04LtCTYWFpYx +/Ky/Q9vVdlR0thuzHS2tYLowkfFMlg7NLB89sD0fuO6hDN0UObMa9N9frJeX +sG3pbzi5tV6hx1LyAovYxYyYlxxmbajk9PyGeeyLjSL1MXldKDHH3+s7dlVn +6N01zXdIXOSy/BT2xMfX0Seqe1FK8CGHMWzRUVk3pulnVE50TH3F3v892iC8 +bRAldCzMDGDXrU1wMfKG0d27r1z7sN/HCkeVB31F7UPmGt3YM5xmE4uaoyi4 +/lhwGzbnlRAXrWUK6Z5zEnmFLcmX3hxaPYZMr40r1WLbiDFzZkynUPINlauP +sclMGSHVTTOIb3Tw8z3sGPkD8UfaviM9Oaubqdi9wj07I/LmkL79oT2x2HTX +AP/kK/PoMGPV6Bj27B2We0+DFlDLmme6H/YmGVXeOc0lJNN07LY1dgr9pQWv +IBMd3qFqgLClHrrEqC8zkZ9oEWhg66ucnzlavYKOy8td5cX20x1smzBdQ0Gr +ouKvnZlokXFswxaFXyjL8dymCuwz1VxGipv+Qwm/3no+wE4D/ce+bb/RWSV1 +y5PY9Oxms7A8VqictBOUxs5rTB6KFWODlt6DdpuxZ795RideYQPXIbfl2UNM +FK20VFIUxA4q/16PrcNOKZSW/a7JAd/9Ba/ZY3/snKr77wEHPBXoENPFlpqv +cN0qyAnm5eX827HztW2SVJc5YdO0POp3YqKGqpOsgdWboCNaLtkTe+ll9+CY +KTdMurKqmjsyEb8VN29UHTekpyYpiWNr9JgBjwEPMALjGfMOTBQwUpa5U20r +pK+UcqRjh7C1afzNzQtRjRbU+EEmGpV5MhfP5AOFveItNHu8PuTrzR1a/LCb +K6RLDZvtMSUtEsoPs/tblVbtcF+tP+3zJvnhCltTZwK2q+n1p+1DArCxQ2ay +0JaJOnzCwoVbBaHyFUHvsmGigYcJl702CUFz1erZJOypybwHj8yFYHOYz4I9 +9paIr9276oWgL3KspcuaiczOOWh7lQmDtsDBA01WTPQsS3cpN2M7nO2sbE7c +x0RZo6uRhhESgLTnRrPMmWiv44WB8AIJsOA+seaIPdUgsKeAkgDzk1PRnNja +WSqCUi6SMCreXU2Y4fWkeZZwGP8Jls9ttSRMmWj++9DxsTgpUD+2IBQCTCRw +1Ky0xFoGshqq5HMMmYjK2uJnGyAD/IF2t8ywKz93ik2flwH1t3OMLwZM5G7l +EadQLwNHnqZGi2NnKUfa39KUBc9/LqZe1MPzTzycPS0sByVR0yp7tZnIwZdL +dd+wPAjzhNEOqTIRinTUPPRLHg6bvGgYVWEipfgMPfp2BTi1su92ODbLAy2T +03YK0LvinH1VmYkKBtwOPX2uAH2bn6pXK+Lz6ZQfK3p/ByCuX+pr8rifmfX7 +CZoiSAWvMoQkmUhM5lrM5REV4DmgblnMzUQ1lxYVf7CpgtgpRj8vtvuCSw8p +rQpD1UY9wVxMdLdBTtHEUxX83tWOK29hIhnfZ29XPqhC7bR75Z2NuF/+qDzZ +qgb/apuxebMxkYSYJCnlogHdHIFwbHkJqWRHcP9EmvBetiS2Z3AJ0ehxS6o2 +mgBzuSJi2GmySQNe7prAUXBFzXtgCbHfLyxqZGjCZM39D5Ofl9DHuxMOScWa +gKQLZX72LaGLaV7pirJaoHi/ooq1ZwlRl63UnDm1wXlq5GNh0xK6FyZnW9am +A6UdLPdSC5ZQZyTSO5dtALov+9WfBC0hac93Nh6Bf8MRT50cIcUlRPwufyJx +AiCliZExOryIhCcrNwrTTMC7xn3lccIiitAy+pykZAZRerzuwkaLiDa91iww +YQ6xiWWnLL8toAKT8I0ZHRbgcSXyx6sLCyhrMeB5foolaE3vvCyqsoBWdou8 +aYjZD18umq48b5xH/Szsc8Pe1mDspb+bkzaPgsSDr8fKHgBBAc7g2+zz6Il/ +c/2NeFvgqsx7aZ8+h04ubF9W9reDdg/BT2eM59DSvj1OTYftgUeaIcvWN4sM +3BJ3j9odhM7nHG7ix2fR2+3pAQ1aDuD9sS24SmIWiebE1eT+5Qjhd+IGk05/ +R5VDSlY2PE4wvHdoOaR7Bkn2zPpGTjuB9LV/9rLsnEFaNxLzHwwdAsOP26L/ +ujCN0jcsqCW9dIbHjNkJ5swUKt+t/jG+ygUki4eOKdlNoTS9S3xrea7wrlOR +paR2EnV8yj6vdcUNdqtpTMwbTqIy6ztyIWfcIeDibu/80gk0d/QgSxDdAwxj +P+8KM55AS3sU/WZMPWFhZ1OMcdc4yp3uWwnXPQzahKwD0MaR871sHw9uLzg/ +cjekgnUclTzdf5j9ghcExdtsLcocQwZib39c/OEFPnpdz3ZajyHZId+PXf7e +EKNsp7LAOoZGuI4cuPPVG3gO/Ud7XPENdSbY+Fg40kA6dNu00olvKIWRwXWs +kwbZJumtb4y+oZq63z98LH1AbC7h0dSmb+gPd7ig9cwHdk56f+YdpJDUtqYO +8RofqCrNl/cfoJBGm7UIZ50PUOTjkef9FLI3cnvU+9wHzuiUvYz4TKEU8cjW +Uy0+YFF3jWOoj0Ki/Y//aO71gaQdfDfaeigk5ymc5r7sA7+5dVt+vaaQgddM +brw2HeQ1o2r+raRQzq3ZcBtdOtxKZI8zxt7WPW8srE8HuRm3wtoKCs2YL/fk +7qJD/lioQW05he8bFtY2Ezpo2o7xPy+l0NZlPhd+OzoMiBT1fiqi0MhVnc0Z +R+kwyExK93hEIbsmvR7fYDqM5HNvH8+lUB2LYYZGKB1SxDesRmDfCjfWeRFB +hz2utKmrDylk42LhPRpFh3a+tKSGbApVyblUKV+iQ+aDti9m9ymUUB3tX5lD +h9H8gdjE2xQ6qplqwMilQ9esxFNlbKtHxZv18+jAEZdh2vgPhbakUo8qCvD8 ++t6X1m5RKD7MdqK8lA5NQ1k5R9MoFK0od6TsBR1iymgitBsUCkhtDXw6QIeb +Jg1vk69RyHIrZRQ2RIcaB/oOQ+y/4ll4NL/Q4YX3xv6hBApRYToFxaN0aFiz +OaKO7W2TMV00RQd6UpFA1xUKOXOEBxWu0qFOXyFJ4RKFLMJFQ/KFCHAciTcQ +jafQi4zz+5JECLD2mBNpPEcho7Z5OYYoAW/drQLCsDXkW/tMJQlwzWmmtcVR +aPuHKNNP8gSsrmTmxZ+l0KRhv9AWHQJUN25N4TlDoWtsmbW+Bwmw6LarD4vC +/6/OnWbtSECBQX+fCvY5N0aY1iECBn6IEt9OUohRarvjtysBdTdzOj2wvUnW +xJs0Ap/f9p8HTlBI6zWN/iqUgOTKsUzL4xT6kCjPJXudgChSViwpnEJPEI/f +WCIBEf3vJDyxz00vNhQkE2B3wD1OCVvTsuG0fioB9elDkQ1heP9YfOat7xIw +Vfbw91oohfYEZ/Yx8gkoN/879UwIhSQk/qdr/IQAZ4X8RnvsxdfByexFBDCG ++53lse8rIOuEEgLujcdntwZT6Fd/f/2DZwRYtbQNimOXWonltjcTUMvm/aHr +KIUur7JxpLwmwMDokmYeNi13wtuljQBpO9/Zs9i8G56JjXQQkJhmkKKDHVjt +fO3HewLmvipEZwRSSFbpZqTcKAHB+Ufb4o9QaPXDqe5xioAWz1B7OnZnPKFR +OEZAJr/4LlPs08PaEwZTBKQl+2izYX9M6/Y4sEDAD46HjecCKJS0kc/8JCsJ +7JK+/nf8KVQz3+8WwU5CUGXj/Cnsb/15YUEcJKj1bFw+jG1UapZJ20wCmCqH +yGNTXoyf+/hIiHs4JFfuh/tbmfObC5Ag91kn/jb2Lj1+RSSI8+xIr1js6zz5 +TlrbSUiTcLpgsz7+bLBYTJoEk16P1BlfCpHZ+c2CsiRM3TjR/gH7+vUTg3/I +k5CvfOTMc2yKFODZoEiCxJE3DjfXxwUs/KY0SDjReupfc+xn/wnEUJokTL/Q +e6OJPTo+dGNIG+ezvXSUwjasP/myR58ESbv9H9ZIfD8EPpGsBZxXIXinGnur +c5ROhQkJmp5WZ/KxDUz3WhWbkTBxw3YwHTth+5cT2XtJMBKv5zmLXbmh8HrG +PhLKs5X6I7C/fo96eMuKhFQd7x1+2PqNgu+u2pLQy75TxRabVvxl8oI9zk9r +ocywr94pZDvrQILSoIq4IfaXMEuNSGcShJzsl+WxeTyFLEJcSbBdFkgXX8+z +/OoR4E7CSdWMWoH17/88ddnTi4S7XnzB7Ot9tuy770zDfceXf/8kcN6SUJU9 +nYQfUg+5lrB5hr92WJEkJPRIJs1g67cVUXv8SMh975k8hk2rOPULAkh4v0b+ +8RX76v1923YFksAmpcc5gF15VVhZJ4iEAPGO433r+YyR3eohJNR0qdHfYXPT +i50Vw/B6yjq1dmHrHTgdLBtBwi+mWUH7er7h/vMSkSTQ9X5ubsO+Ii+SLszA +7mIMt2CX846W8J3E+19Wq9WMPfyz+DVXNAljvS0sTev5304Pc5wmYW5n+t5G +bN23+1d+x5DwqVqPa93/B4qX8nE= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6999235362144377, + 1.3969638038605017`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6999235362144393}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.6999235362144377, + 1.3969638038605017`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6999235362144393}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk0VlsfB3BDNKBryJDpmrtmmcm1fxmSQgiZ4/GcY0jm9BQlSb1NylB0 +S1RIImTOcFUyRIaoqEzFyZzxIen2bn+cddZn7XW++3v2XntL04LtCTYWFpYx +/Ky/Q9vVdlR0thuzHS2tYLowkfFMlg7NLB89sD0fuO6hDN0UObMa9N9frJeX +sG3pbzi5tV6hx1LyAovYxYyYlxxmbajk9PyGeeyLjSL1MXldKDHH3+s7dlVn +6N01zXdIXOSy/BT2xMfX0Seqe1FK8CGHMWzRUVk3pulnVE50TH3F3v892iC8 +bRAldCzMDGDXrU1wMfKG0d27r1z7sN/HCkeVB31F7UPmGt3YM5xmE4uaoyi4 +/lhwGzbnlRAXrWUK6Z5zEnmFLcmX3hxaPYZMr40r1WLbiDFzZkynUPINlauP +sclMGSHVTTOIb3Tw8z3sGPkD8UfaviM9Oaubqdi9wj07I/LmkL79oT2x2HTX +AP/kK/PoMGPV6Bj27B2We0+DFlDLmme6H/YmGVXeOc0lJNN07LY1dgr9pQWv +IBMd3qFqgLClHrrEqC8zkZ9oEWhg66ucnzlavYKOy8td5cX20x1smzBdQ0Gr +ouKvnZlokXFswxaFXyjL8dymCuwz1VxGipv+Qwm/3no+wE4D/ce+bb/RWSV1 +y5PY9Oxms7A8VqictBOUxs5rTB6KFWODlt6DdpuxZ795RideYQPXIbfl2UNM +FK20VFIUxA4q/16PrcNOKZSW/a7JAd/9Ba/ZY3/snKr77wEHPBXoENPFlpqv +cN0qyAnm5eX827HztW2SVJc5YdO0POp3YqKGqpOsgdWboCNaLtkTe+ll9+CY +KTdMurKqmjsyEb8VN29UHTekpyYpiWNr9JgBjwEPMALjGfMOTBQwUpa5U20r +pK+UcqRjh7C1afzNzQtRjRbU+EEmGpV5MhfP5AOFveItNHu8PuTrzR1a/LCb +K6RLDZvtMSUtEsoPs/tblVbtcF+tP+3zJvnhCltTZwK2q+n1p+1DArCxQ2ay +0JaJOnzCwoVbBaHyFUHvsmGigYcJl702CUFz1erZJOypybwHj8yFYHOYz4I9 +9paIr9276oWgL3KspcuaiczOOWh7lQmDtsDBA01WTPQsS3cpN2M7nO2sbE7c +x0RZo6uRhhESgLTnRrPMmWiv44WB8AIJsOA+seaIPdUgsKeAkgDzk1PRnNja +WSqCUi6SMCreXU2Y4fWkeZZwGP8Jls9ttSRMmWj++9DxsTgpUD+2IBQCTCRw +1Ky0xFoGshqq5HMMmYjK2uJnGyAD/IF2t8ywKz93ik2flwH1t3OMLwZM5G7l +EadQLwNHnqZGi2NnKUfa39KUBc9/LqZe1MPzTzycPS0sByVR0yp7tZnIwZdL +dd+wPAjzhNEOqTIRinTUPPRLHg6bvGgYVWEipfgMPfp2BTi1su92ODbLAy2T +03YK0LvinH1VmYkKBtwOPX2uAH2bn6pXK+Lz6ZQfK3p/ByCuX+pr8rifmfX7 +CZoiSAWvMoQkmUhM5lrM5REV4DmgblnMzUQ1lxYVf7CpgtgpRj8vtvuCSw8p +rQpD1UY9wVxMdLdBTtHEUxX83tWOK29hIhnfZ29XPqhC7bR75Z2NuF/+qDzZ +qgb/apuxebMxkYSYJCnlogHdHIFwbHkJqWRHcP9EmvBetiS2Z3AJ0ehxS6o2 +mgBzuSJi2GmySQNe7prAUXBFzXtgCbHfLyxqZGjCZM39D5Ofl9DHuxMOScWa +gKQLZX72LaGLaV7pirJaoHi/ooq1ZwlRl63UnDm1wXlq5GNh0xK6FyZnW9am +A6UdLPdSC5ZQZyTSO5dtALov+9WfBC0hac93Nh6Bf8MRT50cIcUlRPwufyJx +AiCliZExOryIhCcrNwrTTMC7xn3lccIiitAy+pykZAZRerzuwkaLiDa91iww +YQ6xiWWnLL8toAKT8I0ZHRbgcSXyx6sLCyhrMeB5foolaE3vvCyqsoBWdou8 +aYjZD18umq48b5xH/Szsc8Pe1mDspb+bkzaPgsSDr8fKHgBBAc7g2+zz6Il/ +c/2NeFvgqsx7aZ8+h04ubF9W9reDdg/BT2eM59DSvj1OTYftgUeaIcvWN4sM +3BJ3j9odhM7nHG7ix2fR2+3pAQ1aDuD9sS24SmIWiebE1eT+5Qjhd+IGk05/ +R5VDSlY2PE4wvHdoOaR7Bkn2zPpGTjuB9LV/9rLsnEFaNxLzHwwdAsOP26L/ +ujCN0jcsqCW9dIbHjNkJ5swUKt+t/jG+ygUki4eOKdlNoTS9S3xrea7wrlOR +paR2EnV8yj6vdcUNdqtpTMwbTqIy6ztyIWfcIeDibu/80gk0d/QgSxDdAwxj +P+8KM55AS3sU/WZMPWFhZ1OMcdc4yp3uWwnXPQzahKwD0MaR871sHw9uLzg/ +cjekgnUclTzdf5j9ghcExdtsLcocQwZib39c/OEFPnpdz3ZajyHZId+PXf7e +EKNsp7LAOoZGuI4cuPPVG3gO/Ud7XPENdSbY+Fg40kA6dNu00olvKIWRwXWs +kwbZJumtb4y+oZq63z98LH1AbC7h0dSmb+gPd7ig9cwHdk56f+YdpJDUtqYO +8RofqCrNl/cfoJBGm7UIZ50PUOTjkef9FLI3cnvU+9wHzuiUvYz4TKEU8cjW +Uy0+YFF3jWOoj0Ki/Y//aO71gaQdfDfaeigk5ymc5r7sA7+5dVt+vaaQgddM +brw2HeQ1o2r+raRQzq3ZcBtdOtxKZI8zxt7WPW8srE8HuRm3wtoKCs2YL/fk +7qJD/lioQW05he8bFtY2Ezpo2o7xPy+l0NZlPhd+OzoMiBT1fiqi0MhVnc0Z +R+kwyExK93hEIbsmvR7fYDqM5HNvH8+lUB2LYYZGKB1SxDesRmDfCjfWeRFB +hz2utKmrDylk42LhPRpFh3a+tKSGbApVyblUKV+iQ+aDti9m9ymUUB3tX5lD +h9H8gdjE2xQ6qplqwMilQ9esxFNlbKtHxZv18+jAEZdh2vgPhbakUo8qCvD8 ++t6X1m5RKD7MdqK8lA5NQ1k5R9MoFK0od6TsBR1iymgitBsUCkhtDXw6QIeb +Jg1vk69RyHIrZRQ2RIcaB/oOQ+y/4ll4NL/Q4YX3xv6hBApRYToFxaN0aFiz +OaKO7W2TMV00RQd6UpFA1xUKOXOEBxWu0qFOXyFJ4RKFLMJFQ/KFCHAciTcQ +jafQi4zz+5JECLD2mBNpPEcho7Z5OYYoAW/drQLCsDXkW/tMJQlwzWmmtcVR +aPuHKNNP8gSsrmTmxZ+l0KRhv9AWHQJUN25N4TlDoWtsmbW+Bwmw6LarD4vC +/6/OnWbtSECBQX+fCvY5N0aY1iECBn6IEt9OUohRarvjtysBdTdzOj2wvUnW +xJs0Ap/f9p8HTlBI6zWN/iqUgOTKsUzL4xT6kCjPJXudgChSViwpnEJPEI/f +WCIBEf3vJDyxz00vNhQkE2B3wD1OCVvTsuG0fioB9elDkQ1heP9YfOat7xIw +Vfbw91oohfYEZ/Yx8gkoN/879UwIhSQk/qdr/IQAZ4X8RnvsxdfByexFBDCG ++53lse8rIOuEEgLujcdntwZT6Fd/f/2DZwRYtbQNimOXWonltjcTUMvm/aHr +KIUur7JxpLwmwMDokmYeNi13wtuljQBpO9/Zs9i8G56JjXQQkJhmkKKDHVjt +fO3HewLmvipEZwRSSFbpZqTcKAHB+Ufb4o9QaPXDqe5xioAWz1B7OnZnPKFR +OEZAJr/4LlPs08PaEwZTBKQl+2izYX9M6/Y4sEDAD46HjecCKJS0kc/8JCsJ +7JK+/nf8KVQz3+8WwU5CUGXj/Cnsb/15YUEcJKj1bFw+jG1UapZJ20wCmCqH +yGNTXoyf+/hIiHs4JFfuh/tbmfObC5Ag91kn/jb2Lj1+RSSI8+xIr1js6zz5 +TlrbSUiTcLpgsz7+bLBYTJoEk16P1BlfCpHZ+c2CsiRM3TjR/gH7+vUTg3/I +k5CvfOTMc2yKFODZoEiCxJE3DjfXxwUs/KY0SDjReupfc+xn/wnEUJokTL/Q +e6OJPTo+dGNIG+ezvXSUwjasP/myR58ESbv9H9ZIfD8EPpGsBZxXIXinGnur +c5ROhQkJmp5WZ/KxDUz3WhWbkTBxw3YwHTth+5cT2XtJMBKv5zmLXbmh8HrG +PhLKs5X6I7C/fo96eMuKhFQd7x1+2PqNgu+u2pLQy75TxRabVvxl8oI9zk9r +ocywr94pZDvrQILSoIq4IfaXMEuNSGcShJzsl+WxeTyFLEJcSbBdFkgXX8+z +/OoR4E7CSdWMWoH17/88ddnTi4S7XnzB7Ot9tuy770zDfceXf/8kcN6SUJU9 +nYQfUg+5lrB5hr92WJEkJPRIJs1g67cVUXv8SMh975k8hk2rOPULAkh4v0b+ +8RX76v1923YFksAmpcc5gF15VVhZJ4iEAPGO433r+YyR3eohJNR0qdHfYXPT +i50Vw/B6yjq1dmHrHTgdLBtBwi+mWUH7er7h/vMSkSTQ9X5ubsO+Ii+SLszA +7mIMt2CX846W8J3E+19Wq9WMPfyz+DVXNAljvS0sTev5304Pc5wmYW5n+t5G +bN23+1d+x5DwqVqPa93/B4qX8nE= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6999235362144377, 1.3969638038605017`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6999235362144393}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.6999235362144393}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "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.6999235362144377, 1.3969638038605017`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913281932019863`*^9, 3.992118932153723*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"95dd8aff-1dcb-5e4d-8148-b9f1f81fb262"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.991844539101469*^9, 3.991844648037607*^9}, + CellLabel->"In[96]:=",ExpressionUUID->"9a11a03e-c4c1-5741-ac7d-23e1536f3e79"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.944166731576193`*^-277\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 96, + 798, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934227676`*^9, 3.992118932536972*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"6769bdfa-2bd4-ca4c-84e1-23b6458b56f9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.795046337010174`*^-289\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 96, + 799, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934227676`*^9, 3.992118932559969*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"df11cb5c-6b1d-3e46-995b-574ad82cbc89"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.6504235440184464`*^-301\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 96, + 800, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934227676`*^9, 3.992118932578972*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"46649f1c-f59e-1d46-af36-c2baed590447"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 96, 801, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934227676`*^9, 3.9921189326019783`*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"de98472d-afea-0948-90e5-0d964dee5824"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nc8Vu8bB3AZDVQPZT/TXhk9QpT7aikzGQ1JESU7oyQtpezVY5S9KpR4 +Dso3O7KpSISU0VB97e2b3/3747zO6/3Hed3nXPd9fc7FsPcwd+Tk4OBYxdf/ +7ynX7deqOyTp8a/X3nhtfpdeXSfd+Bj9CjK32GxtECuOVt9U3qbTQ9CHrdYt +G2MVUUp1BI2H/gAppa1ajsXoINfdvm7ztFwklz8/UBNjiDqXnVgTtDKUfl6h +2DzGGq3rG5L7Q2tC6aEdvs+jnFFGc9rFX7Re9CLsmpxaiD8qeB7S56oyhuaq +B16+DQ5D59G7B7+9phEjeFnV8QgLuY8qDBcXLKKpdH+18/EPES/jjtygNgdY +llaJrI9LR5GkFsWMM1zAOXis9kVQFrLvs6zial0LxepfDZhhj9DF+jv2HnK8 +UKQ8EyxqnouKPPktRA02QjTZa8vJsnyUcdVlTO0YCcxFd9fzkwtQYNrKkZnf +AkBfVmwd31SIODq/QLn/Fug44c6nMV6IZH3O+VkqCsEHobCjj2uL0DadQYs0 +NSFosH/TEFBfhDQ4jquOaQrBjj0qdmaNRWhvuMG3G/uEIJtThn+qrQjZZitb +5tsIwbMzCkDrLULxXVOqnFFCwD7vspExXoR4dtz4/nxaCJpPahTXiLHRyGzC +Ub4KYbD78HTa+wIbZe5heg+8FoY1nFmNPK5sdDqiPep5szBsmqR6xLmz0Sdp +niaLHmHYNsFSK/Bmo3cWXrrJ08Iwso4vqP4aG1UWGdO3KYpAJO8mr7AYNkpw +WzNmmiACFoyfdj4v2MiyLHktI1UELt/fc666jI0EebSlprNFYNLCYhdvORtF +JrvbJLBFwF6i/lRCNRvdaelrH2wTATj/81JCExt5KpQSntyioLa7lU+1j40M +R52vxV4UBZacnmT5ChvpX5N6ut9PFFR4XnOU/WWjvUL9n+aui0JeLk8DwUEg +nQMm2ifDRYG9XZgvi5tAijmq01KPRSHzUam3Ez+B+BxnnEr6RcHQueZTpASB +WkeuWfYcFIPC7t4iQ20CNQZo3g41FYPbcy2l3DoEqts6XrTLSgxq9KoflesS +qHz/mc0Z9mJQ5Kl2SBYR6Gn23uYL18Sgt6GF9eUAgSIc1sEyWwy809Z4T5oT +yHQkWolKFYfskhH9IBe8ntJIl420OCgUchcNuxLIyFvrepKiOJA88w6DO4EO +cX5+K6olDsJ/tyrNeBJoL13p0hYzcdhqb2Wrf4lAO2zqq9cHisOZkd5u1k0C +kbsWraZHxUEzwpPed59ADyVMVtV/i4NszC8HjjgCiZ1Nf+I5JQ7J1z4NScUT +SHhKf/nPX3Hg0H4d5phIIBKJlf5DRAL+piTGdyYTiMtY5deAgQTcTv79wjqH +QGOv7W82PpMAVruRt3AJgWgxPc6RxRJgfIqsIVJKIEtbUyvLVxIw/3LXqNAL +AlUu7FT80igBS3d9xTaWESh2m0DX/LAEzJqLvBsqJ5BuQpWcnDgZ0k+WvlSq +I5Cnww7BP3QyFFTopvLVE+iRev4KW44M8X3Wfj+xSa3x7/R2kEH31h2+tAYC +jXC4Xz1qRoahWy4lk80ECncmdwTdJcP76bZjO94RqEYrtswoggyFd+VzZ7Dn +uNdnC7DIsP/Xq+mi9wQ6kzbtl5JBhoDT1b6yXQTS6GqWLCknw4d7L3fMdxNo +YPeVSyNTZDAJ0x7T6ieQIN/4mbxFMpQpt0x3Yx/qcTDy5KBAQ1nwsvcAgdhe +ZvSVjRQw39O69slnAt19LNe8RYEC100DhBa+EEhFoJuy7zQFTnjU2GiPEuhb +xLfAOEcK7Je4sf45dgrv/PfvLhQQHJZblPpGIH5uUXa4HwVMD1rlrf+O6z93 +Qr87hgK8P0ctKn4QKNPbOV8+kQJZx2tUZH8S6MSEP+lqKgUov2vNIrAbfyZ9 +ouVTwMjB2uXoGIFy+gfcL9RRgJ/o4uz6RSCbE/92vmqmQHJlL1X1N4G2dv/V +3vSOAn9zTe8EYwd20LiIAQpsNytS1vyD61Vrl7AyR4GitrvLAf8SSBR5rZj+ +R4FoDU2XZuyOV4F2GVxUMC19Jis8TiC9kiwlfRIVRJ1lAp9gk5+MVkUpUCE2 +J77z5QSBuqTnpIdUqbDLcSR3ATssY22ohiYVrtedadecJNDSQznL3r1UONxN +5irAZotolykZUCGyY2HLd+wLrEPU64epEDSr60OdIlBPxIUfkjZUcCnfLh2M +Hc3rb+Jrj9c/e8fnH+yD90LZDU5UqNhzRegXdunN/ABXXyrsFAozPDhNILf/ +Xn2tvEoF75aDg17Y0v6t+gKBVNDY9b0+Gfu+9x9SaSQVpFVIob+wDSf+810f +R4Vf8rpOpBkCcbpt6rNOooL2u7AHTGzPc6o5q4+pMHxpeM4HW34Y8ZoXUCE1 +M0LqPvbgaTOP7GIqnO3Jyn6ObXri4k6DGiqYbzmVM4y9tvtWalIDFWQXsmWW +sSvMY7n+bcN+lLlMmiWQT0emE3RRIW9LrpwMtrIx0Rb7iQolrnx5Wtgjja+3 +j36hQo0g5fYh7KQDXQla36lQlaxOHMM2rx1ZCflDhU/dyTqO2Lxo1q5/mgo+ +tWyxi9h+e+TXly5hu0mLBmB/23eyIGoNDVpOKckEYVvqR1peWE8DR33mnnDs +2kM1S3s306Bf8olrDLaa0Uw6WZgGJlpzj1nYqSZyB+fINNhJCp2Ow+Y3s/7T +IUUD/cC3h/9vf/OI+7mKNFDK06yIxf5hWb3ztjoNvH8r7IrEPnpsetBGmwZ2 +syJt97DrTsje1UQ0qHnp7nkDe7vNCWWSPg0KLibL+mKn24a//2lMg4jMzRNO +2JvsqvxeW9Dg5VatNmvsgLNT1BRrGrj13Ko0xP7lKFN/yY4GGftP12ljWzsd +dzFzwt87pzcojd3oHCag6EGDuvfRmzdja7pVvuC6RIMHnPVW83h/sj0mTw0E +0OD4nBF7AFvQS5r7xW0aLJyNl6nFvulzLC86lAZiB4UKs7FtrlTM7Uukwa8X +vvwO2M1XJ5IpaTT4nKAzCNja16X2zefQIDBmqVkCe+vtkKg8ggbLrjvGW/D5 +Cwwq33HnHxrMNMTJZ2BP3BvvO1VDg2CV8gAf7NZwK3mBDhpMrcpfFsLWiQpu +H/uA94vnGHUYn/8nMa986vppYG4kPlSAfSeeUXN5jAZ3S7bXADb17ZzyOCcd +sm74jZngfrM6QuKwWUsHAyXybX7s8PcKnY0b6JBC5djVhPt3qcvmSiaJDsTh +s6Td2N29tfVWVDoccUo124T7f+PJ/sRaBh3GNxouVOC82N8/66IqQ4fWsMnX +Ltjsz/KCG5TpcKxAuKkG503kcKRt+U46XFxcTDiG8+jgH+t5SSs6VD5cZCvi +fEvdervzxnE60Ha9+ViJ83BGN/95/0k6BBqI7zyCnR66fD7eng5+lmqEJ87P +Jbnkng2edNC6sDb2Ic7bp/YDZROhdHD89Mj+4Vfcv6E88SaRdLDUe3RPEPt4 +0TavvBg6eHnkTATj/ObhuK7okEgH0kxwtOcggWxTqEkfc+iwP1lbSAnnP6nn +dEBlNR3e80WkmPQQ6NzqveMSdXQQLxrVzfuI5wXZQg2/Bvw+8X9keLAv+HL8 +UW+nw7D+388lH3D/CGacyumjA1dB1xRnJ+5vkyG98Dk6rI8N3WzchvOt1mGN +tTIDtN7KPEipxvu955P4NVUGPJNr0uusItC6msMa6dsZ8CIo5tI6bM0qnfPf +tBlwv1wn1aWCQKxXpDavAwyoKkzslfyHQIeLyxPDbBlgIrvP1oQg0JucrWoV +0Qy40nGBFZdNoM/SoQZf7jPA1tr0cGoWgWazVu25EhjQuzySm5OJ8zFzLM4g +hQHtfUOoMB2fx9Tq5Q+5DBDyh+ViPD/oJbg2/FvLgDO/R0nXWAQqCa6zpc8y +4I0uNPHexufPsEX03gIDBIcW2jpu4XmF//37P8v4+Rnqgft4nrkZPaj/ilMS +WB5L4ULXCWScuKRylCQJsZ0/YtddIdDQY7XVMCVJsL0xOZ+B56VNDclp83aS +wA58o1Z8HNefx/dLe7sktGmpMzzkCSROa/q4/E4SGiW9IydkCdSuTemQ/yAJ +HuntNZ4yuF6u9RWBfZIQwGgMcJPE+dsplKT5QxLe+AUeOU7G/8/0UqvUNVIQ +7LB3ZHozzlfdhWY3DSmIE78krT/HRme9rpbwP5SCH37OC15VbKR6Xqnd2E4a +dt7kELA7yEYdgsp8vjtlQM3HuH9bcRF6VRCYpMwlC5OnzDbwU4rQ1TWKZq0D +slC5LDec5VqIePv9D7kXy8GV/pwMBefnaPQRg5UWIA/n/rs4eIKnALHkxbjL +rBRAKfzyU57LT1H0w3MNdnRFMJoebTywkoesWafa+b8rguC6KOrboFy0sD9n +Ma1SCQR0nZZsxh+j4dG9frX3lIFF3vN09tIjlLlbXaLNbhvwis4Oz49ko2dB +vgLnt6nAGovJ36W+Weie1VkjrlkV6FvO6QGRTLSjPyP3XpsqMNaEr614nI4S +FZKetRmp4fl061Op8lR0ozoi0ahMDQT29O0+K5CMTCSscpql1eG53mqeftwD +tMe94aRAiDqMz3aG1p5NQGlke+nWWXUY/mzZxZKNQ9KvH8ebntwOQV9Bzlb9 +PoreVqv4vnI7fH12+FybYww6N839rkmRCUmbPx38oRyF7Ium6CFRTFj3WbaE +sTEcuQZarBjGMIE2lhz+z2oY8rUo/sh/nwmhfZXSx6fCUPCsb2R0PBPyJ5xZ +GR/DUMHOxeWEFCZU8XKedssMQ4s1q92P8pkQYrqN/4d2GIp+zx9R18CE2Rk5 +DscLoehhlpvT3SYmyEfVpLJsQlGWT/u+Qy1MuFFJ+tF4OBSVCkcvtbQzIY/9 +6zLSDEX91lucOj8woemrtp8DVyiSGxbbNzTMhID9yUcjUkOQWrE/NXuUCVyp +ZYfWxYYgnaC+RcfvTDj1prI3KCgEGculFP4cY4Lniv+HaNcQ5OVCp05OMuGr +kB/1s04ICth1a5E9zQTBKNZUgEoICto41OUzywT3ypun6ZIhKPF5VtjCAhPs +6tgcvhtCUOZN7vP/LDFhPMuVKftfMMo/4rg3YIUJYcafl/smglGx5BuK3l8m +uITBifiRYFQ5Lbu4usoEbnaLoVVPMPofZrB7Hw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Vu8bB3AZDVQPZT/TXhk9QpT7aikzGQ1JESU7oyQtpezVY5S9KpR4 +Dso3O7KpSISU0VB97e2b3/3747zO6/3Hed3nXPd9fc7FsPcwd+Tk4OBYxdf/ +7ynX7deqOyTp8a/X3nhtfpdeXSfd+Bj9CjK32GxtECuOVt9U3qbTQ9CHrdYt +G2MVUUp1BI2H/gAppa1ajsXoINfdvm7ztFwklz8/UBNjiDqXnVgTtDKUfl6h +2DzGGq3rG5L7Q2tC6aEdvs+jnFFGc9rFX7Re9CLsmpxaiD8qeB7S56oyhuaq +B16+DQ5D59G7B7+9phEjeFnV8QgLuY8qDBcXLKKpdH+18/EPES/jjtygNgdY +llaJrI9LR5GkFsWMM1zAOXis9kVQFrLvs6zial0LxepfDZhhj9DF+jv2HnK8 +UKQ8EyxqnouKPPktRA02QjTZa8vJsnyUcdVlTO0YCcxFd9fzkwtQYNrKkZnf +AkBfVmwd31SIODq/QLn/Fug44c6nMV6IZH3O+VkqCsEHobCjj2uL0DadQYs0 +NSFosH/TEFBfhDQ4jquOaQrBjj0qdmaNRWhvuMG3G/uEIJtThn+qrQjZZitb +5tsIwbMzCkDrLULxXVOqnFFCwD7vspExXoR4dtz4/nxaCJpPahTXiLHRyGzC +Ub4KYbD78HTa+wIbZe5heg+8FoY1nFmNPK5sdDqiPep5szBsmqR6xLmz0Sdp +niaLHmHYNsFSK/Bmo3cWXrrJ08Iwso4vqP4aG1UWGdO3KYpAJO8mr7AYNkpw +WzNmmiACFoyfdj4v2MiyLHktI1UELt/fc666jI0EebSlprNFYNLCYhdvORtF +JrvbJLBFwF6i/lRCNRvdaelrH2wTATj/81JCExt5KpQSntyioLa7lU+1j40M +R52vxV4UBZacnmT5ChvpX5N6ut9PFFR4XnOU/WWjvUL9n+aui0JeLk8DwUEg +nQMm2ifDRYG9XZgvi5tAijmq01KPRSHzUam3Ez+B+BxnnEr6RcHQueZTpASB +WkeuWfYcFIPC7t4iQ20CNQZo3g41FYPbcy2l3DoEqts6XrTLSgxq9KoflesS +qHz/mc0Z9mJQ5Kl2SBYR6Gn23uYL18Sgt6GF9eUAgSIc1sEyWwy809Z4T5oT +yHQkWolKFYfskhH9IBe8ntJIl420OCgUchcNuxLIyFvrepKiOJA88w6DO4EO +cX5+K6olDsJ/tyrNeBJoL13p0hYzcdhqb2Wrf4lAO2zqq9cHisOZkd5u1k0C +kbsWraZHxUEzwpPed59ADyVMVtV/i4NszC8HjjgCiZ1Nf+I5JQ7J1z4NScUT +SHhKf/nPX3Hg0H4d5phIIBKJlf5DRAL+piTGdyYTiMtY5deAgQTcTv79wjqH +QGOv7W82PpMAVruRt3AJgWgxPc6RxRJgfIqsIVJKIEtbUyvLVxIw/3LXqNAL +AlUu7FT80igBS3d9xTaWESh2m0DX/LAEzJqLvBsqJ5BuQpWcnDgZ0k+WvlSq +I5Cnww7BP3QyFFTopvLVE+iRev4KW44M8X3Wfj+xSa3x7/R2kEH31h2+tAYC +jXC4Xz1qRoahWy4lk80ECncmdwTdJcP76bZjO94RqEYrtswoggyFd+VzZ7Dn +uNdnC7DIsP/Xq+mi9wQ6kzbtl5JBhoDT1b6yXQTS6GqWLCknw4d7L3fMdxNo +YPeVSyNTZDAJ0x7T6ieQIN/4mbxFMpQpt0x3Yx/qcTDy5KBAQ1nwsvcAgdhe +ZvSVjRQw39O69slnAt19LNe8RYEC100DhBa+EEhFoJuy7zQFTnjU2GiPEuhb +xLfAOEcK7Je4sf45dgrv/PfvLhQQHJZblPpGIH5uUXa4HwVMD1rlrf+O6z93 +Qr87hgK8P0ctKn4QKNPbOV8+kQJZx2tUZH8S6MSEP+lqKgUov2vNIrAbfyZ9 +ouVTwMjB2uXoGIFy+gfcL9RRgJ/o4uz6RSCbE/92vmqmQHJlL1X1N4G2dv/V +3vSOAn9zTe8EYwd20LiIAQpsNytS1vyD61Vrl7AyR4GitrvLAf8SSBR5rZj+ +R4FoDU2XZuyOV4F2GVxUMC19Jis8TiC9kiwlfRIVRJ1lAp9gk5+MVkUpUCE2 +J77z5QSBuqTnpIdUqbDLcSR3ATssY22ohiYVrtedadecJNDSQznL3r1UONxN +5irAZotolykZUCGyY2HLd+wLrEPU64epEDSr60OdIlBPxIUfkjZUcCnfLh2M +Hc3rb+Jrj9c/e8fnH+yD90LZDU5UqNhzRegXdunN/ABXXyrsFAozPDhNILf/ +Xn2tvEoF75aDg17Y0v6t+gKBVNDY9b0+Gfu+9x9SaSQVpFVIob+wDSf+810f +R4Vf8rpOpBkCcbpt6rNOooL2u7AHTGzPc6o5q4+pMHxpeM4HW34Y8ZoXUCE1 +M0LqPvbgaTOP7GIqnO3Jyn6ObXri4k6DGiqYbzmVM4y9tvtWalIDFWQXsmWW +sSvMY7n+bcN+lLlMmiWQT0emE3RRIW9LrpwMtrIx0Rb7iQolrnx5Wtgjja+3 +j36hQo0g5fYh7KQDXQla36lQlaxOHMM2rx1ZCflDhU/dyTqO2Lxo1q5/mgo+ +tWyxi9h+e+TXly5hu0mLBmB/23eyIGoNDVpOKckEYVvqR1peWE8DR33mnnDs +2kM1S3s306Bf8olrDLaa0Uw6WZgGJlpzj1nYqSZyB+fINNhJCp2Ow+Y3s/7T +IUUD/cC3h/9vf/OI+7mKNFDK06yIxf5hWb3ztjoNvH8r7IrEPnpsetBGmwZ2 +syJt97DrTsje1UQ0qHnp7nkDe7vNCWWSPg0KLibL+mKn24a//2lMg4jMzRNO +2JvsqvxeW9Dg5VatNmvsgLNT1BRrGrj13Ko0xP7lKFN/yY4GGftP12ljWzsd +dzFzwt87pzcojd3oHCag6EGDuvfRmzdja7pVvuC6RIMHnPVW83h/sj0mTw0E +0OD4nBF7AFvQS5r7xW0aLJyNl6nFvulzLC86lAZiB4UKs7FtrlTM7Uukwa8X +vvwO2M1XJ5IpaTT4nKAzCNja16X2zefQIDBmqVkCe+vtkKg8ggbLrjvGW/D5 +Cwwq33HnHxrMNMTJZ2BP3BvvO1VDg2CV8gAf7NZwK3mBDhpMrcpfFsLWiQpu +H/uA94vnGHUYn/8nMa986vppYG4kPlSAfSeeUXN5jAZ3S7bXADb17ZzyOCcd +sm74jZngfrM6QuKwWUsHAyXybX7s8PcKnY0b6JBC5djVhPt3qcvmSiaJDsTh +s6Td2N29tfVWVDoccUo124T7f+PJ/sRaBh3GNxouVOC82N8/66IqQ4fWsMnX +Ltjsz/KCG5TpcKxAuKkG503kcKRt+U46XFxcTDiG8+jgH+t5SSs6VD5cZCvi +fEvdervzxnE60Ha9+ViJ83BGN/95/0k6BBqI7zyCnR66fD7eng5+lmqEJ87P +Jbnkng2edNC6sDb2Ic7bp/YDZROhdHD89Mj+4Vfcv6E88SaRdLDUe3RPEPt4 +0TavvBg6eHnkTATj/ObhuK7okEgH0kxwtOcggWxTqEkfc+iwP1lbSAnnP6nn +dEBlNR3e80WkmPQQ6NzqveMSdXQQLxrVzfuI5wXZQg2/Bvw+8X9keLAv+HL8 +UW+nw7D+388lH3D/CGacyumjA1dB1xRnJ+5vkyG98Dk6rI8N3WzchvOt1mGN +tTIDtN7KPEipxvu955P4NVUGPJNr0uusItC6msMa6dsZ8CIo5tI6bM0qnfPf +tBlwv1wn1aWCQKxXpDavAwyoKkzslfyHQIeLyxPDbBlgIrvP1oQg0JucrWoV +0Qy40nGBFZdNoM/SoQZf7jPA1tr0cGoWgWazVu25EhjQuzySm5OJ8zFzLM4g +hQHtfUOoMB2fx9Tq5Q+5DBDyh+ViPD/oJbg2/FvLgDO/R0nXWAQqCa6zpc8y +4I0uNPHexufPsEX03gIDBIcW2jpu4XmF//37P8v4+Rnqgft4nrkZPaj/ilMS +WB5L4ULXCWScuKRylCQJsZ0/YtddIdDQY7XVMCVJsL0xOZ+B56VNDclp83aS +wA58o1Z8HNefx/dLe7sktGmpMzzkCSROa/q4/E4SGiW9IydkCdSuTemQ/yAJ +HuntNZ4yuF6u9RWBfZIQwGgMcJPE+dsplKT5QxLe+AUeOU7G/8/0UqvUNVIQ +7LB3ZHozzlfdhWY3DSmIE78krT/HRme9rpbwP5SCH37OC15VbKR6Xqnd2E4a +dt7kELA7yEYdgsp8vjtlQM3HuH9bcRF6VRCYpMwlC5OnzDbwU4rQ1TWKZq0D +slC5LDec5VqIePv9D7kXy8GV/pwMBefnaPQRg5UWIA/n/rs4eIKnALHkxbjL +rBRAKfzyU57LT1H0w3MNdnRFMJoebTywkoesWafa+b8rguC6KOrboFy0sD9n +Ma1SCQR0nZZsxh+j4dG9frX3lIFF3vN09tIjlLlbXaLNbhvwis4Oz49ko2dB +vgLnt6nAGovJ36W+Weie1VkjrlkV6FvO6QGRTLSjPyP3XpsqMNaEr614nI4S +FZKetRmp4fl061Op8lR0ozoi0ahMDQT29O0+K5CMTCSscpql1eG53mqeftwD +tMe94aRAiDqMz3aG1p5NQGlke+nWWXUY/mzZxZKNQ9KvH8ebntwOQV9Bzlb9 +PoreVqv4vnI7fH12+FybYww6N839rkmRCUmbPx38oRyF7Ium6CFRTFj3WbaE +sTEcuQZarBjGMIE2lhz+z2oY8rUo/sh/nwmhfZXSx6fCUPCsb2R0PBPyJ5xZ +GR/DUMHOxeWEFCZU8XKedssMQ4s1q92P8pkQYrqN/4d2GIp+zx9R18CE2Rk5 +DscLoehhlpvT3SYmyEfVpLJsQlGWT/u+Qy1MuFFJ+tF4OBSVCkcvtbQzIY/9 +6zLSDEX91lucOj8woemrtp8DVyiSGxbbNzTMhID9yUcjUkOQWrE/NXuUCVyp +ZYfWxYYgnaC+RcfvTDj1prI3KCgEGculFP4cY4Lniv+HaNcQ5OVCp05OMuGr +kB/1s04ICth1a5E9zQTBKNZUgEoICto41OUzywT3ypun6ZIhKPF5VtjCAhPs +6tgcvhtCUOZN7vP/LDFhPMuVKftfMMo/4rg3YIUJYcafl/smglGx5BuK3l8m +uITBifiRYFQ5Lbu4usoEbnaLoVVPMPofZrB7Hw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07796609111579834}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07796609111579834}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Vu8bB3AZDVQPZT/TXhk9QpT7aikzGQ1JESU7oyQtpezVY5S9KpR4 +Dso3O7KpSISU0VB97e2b3/3747zO6/3Hed3nXPd9fc7FsPcwd+Tk4OBYxdf/ +7ynX7deqOyTp8a/X3nhtfpdeXSfd+Bj9CjK32GxtECuOVt9U3qbTQ9CHrdYt +G2MVUUp1BI2H/gAppa1ajsXoINfdvm7ztFwklz8/UBNjiDqXnVgTtDKUfl6h +2DzGGq3rG5L7Q2tC6aEdvs+jnFFGc9rFX7Re9CLsmpxaiD8qeB7S56oyhuaq +B16+DQ5D59G7B7+9phEjeFnV8QgLuY8qDBcXLKKpdH+18/EPES/jjtygNgdY +llaJrI9LR5GkFsWMM1zAOXis9kVQFrLvs6zial0LxepfDZhhj9DF+jv2HnK8 +UKQ8EyxqnouKPPktRA02QjTZa8vJsnyUcdVlTO0YCcxFd9fzkwtQYNrKkZnf +AkBfVmwd31SIODq/QLn/Fug44c6nMV6IZH3O+VkqCsEHobCjj2uL0DadQYs0 +NSFosH/TEFBfhDQ4jquOaQrBjj0qdmaNRWhvuMG3G/uEIJtThn+qrQjZZitb +5tsIwbMzCkDrLULxXVOqnFFCwD7vspExXoR4dtz4/nxaCJpPahTXiLHRyGzC +Ub4KYbD78HTa+wIbZe5heg+8FoY1nFmNPK5sdDqiPep5szBsmqR6xLmz0Sdp +niaLHmHYNsFSK/Bmo3cWXrrJ08Iwso4vqP4aG1UWGdO3KYpAJO8mr7AYNkpw +WzNmmiACFoyfdj4v2MiyLHktI1UELt/fc666jI0EebSlprNFYNLCYhdvORtF +JrvbJLBFwF6i/lRCNRvdaelrH2wTATj/81JCExt5KpQSntyioLa7lU+1j40M +R52vxV4UBZacnmT5ChvpX5N6ut9PFFR4XnOU/WWjvUL9n+aui0JeLk8DwUEg +nQMm2ifDRYG9XZgvi5tAijmq01KPRSHzUam3Ez+B+BxnnEr6RcHQueZTpASB +WkeuWfYcFIPC7t4iQ20CNQZo3g41FYPbcy2l3DoEqts6XrTLSgxq9KoflesS +qHz/mc0Z9mJQ5Kl2SBYR6Gn23uYL18Sgt6GF9eUAgSIc1sEyWwy809Z4T5oT +yHQkWolKFYfskhH9IBe8ntJIl420OCgUchcNuxLIyFvrepKiOJA88w6DO4EO +cX5+K6olDsJ/tyrNeBJoL13p0hYzcdhqb2Wrf4lAO2zqq9cHisOZkd5u1k0C +kbsWraZHxUEzwpPed59ADyVMVtV/i4NszC8HjjgCiZ1Nf+I5JQ7J1z4NScUT +SHhKf/nPX3Hg0H4d5phIIBKJlf5DRAL+piTGdyYTiMtY5deAgQTcTv79wjqH +QGOv7W82PpMAVruRt3AJgWgxPc6RxRJgfIqsIVJKIEtbUyvLVxIw/3LXqNAL +AlUu7FT80igBS3d9xTaWESh2m0DX/LAEzJqLvBsqJ5BuQpWcnDgZ0k+WvlSq +I5Cnww7BP3QyFFTopvLVE+iRev4KW44M8X3Wfj+xSa3x7/R2kEH31h2+tAYC +jXC4Xz1qRoahWy4lk80ECncmdwTdJcP76bZjO94RqEYrtswoggyFd+VzZ7Dn +uNdnC7DIsP/Xq+mi9wQ6kzbtl5JBhoDT1b6yXQTS6GqWLCknw4d7L3fMdxNo +YPeVSyNTZDAJ0x7T6ieQIN/4mbxFMpQpt0x3Yx/qcTDy5KBAQ1nwsvcAgdhe +ZvSVjRQw39O69slnAt19LNe8RYEC100DhBa+EEhFoJuy7zQFTnjU2GiPEuhb +xLfAOEcK7Je4sf45dgrv/PfvLhQQHJZblPpGIH5uUXa4HwVMD1rlrf+O6z93 +Qr87hgK8P0ctKn4QKNPbOV8+kQJZx2tUZH8S6MSEP+lqKgUov2vNIrAbfyZ9 +ouVTwMjB2uXoGIFy+gfcL9RRgJ/o4uz6RSCbE/92vmqmQHJlL1X1N4G2dv/V +3vSOAn9zTe8EYwd20LiIAQpsNytS1vyD61Vrl7AyR4GitrvLAf8SSBR5rZj+ +R4FoDU2XZuyOV4F2GVxUMC19Jis8TiC9kiwlfRIVRJ1lAp9gk5+MVkUpUCE2 +J77z5QSBuqTnpIdUqbDLcSR3ATssY22ohiYVrtedadecJNDSQznL3r1UONxN +5irAZotolykZUCGyY2HLd+wLrEPU64epEDSr60OdIlBPxIUfkjZUcCnfLh2M +Hc3rb+Jrj9c/e8fnH+yD90LZDU5UqNhzRegXdunN/ABXXyrsFAozPDhNILf/ +Xn2tvEoF75aDg17Y0v6t+gKBVNDY9b0+Gfu+9x9SaSQVpFVIob+wDSf+810f +R4Vf8rpOpBkCcbpt6rNOooL2u7AHTGzPc6o5q4+pMHxpeM4HW34Y8ZoXUCE1 +M0LqPvbgaTOP7GIqnO3Jyn6ObXri4k6DGiqYbzmVM4y9tvtWalIDFWQXsmWW +sSvMY7n+bcN+lLlMmiWQT0emE3RRIW9LrpwMtrIx0Rb7iQolrnx5Wtgjja+3 +j36hQo0g5fYh7KQDXQla36lQlaxOHMM2rx1ZCflDhU/dyTqO2Lxo1q5/mgo+ +tWyxi9h+e+TXly5hu0mLBmB/23eyIGoNDVpOKckEYVvqR1peWE8DR33mnnDs +2kM1S3s306Bf8olrDLaa0Uw6WZgGJlpzj1nYqSZyB+fINNhJCp2Ow+Y3s/7T +IUUD/cC3h/9vf/OI+7mKNFDK06yIxf5hWb3ztjoNvH8r7IrEPnpsetBGmwZ2 +syJt97DrTsje1UQ0qHnp7nkDe7vNCWWSPg0KLibL+mKn24a//2lMg4jMzRNO +2JvsqvxeW9Dg5VatNmvsgLNT1BRrGrj13Ko0xP7lKFN/yY4GGftP12ljWzsd +dzFzwt87pzcojd3oHCag6EGDuvfRmzdja7pVvuC6RIMHnPVW83h/sj0mTw0E +0OD4nBF7AFvQS5r7xW0aLJyNl6nFvulzLC86lAZiB4UKs7FtrlTM7Uukwa8X +vvwO2M1XJ5IpaTT4nKAzCNja16X2zefQIDBmqVkCe+vtkKg8ggbLrjvGW/D5 +Cwwq33HnHxrMNMTJZ2BP3BvvO1VDg2CV8gAf7NZwK3mBDhpMrcpfFsLWiQpu +H/uA94vnGHUYn/8nMa986vppYG4kPlSAfSeeUXN5jAZ3S7bXADb17ZzyOCcd +sm74jZngfrM6QuKwWUsHAyXybX7s8PcKnY0b6JBC5djVhPt3qcvmSiaJDsTh +s6Td2N29tfVWVDoccUo124T7f+PJ/sRaBh3GNxouVOC82N8/66IqQ4fWsMnX +Ltjsz/KCG5TpcKxAuKkG503kcKRt+U46XFxcTDiG8+jgH+t5SSs6VD5cZCvi +fEvdervzxnE60Ha9+ViJ83BGN/95/0k6BBqI7zyCnR66fD7eng5+lmqEJ87P +Jbnkng2edNC6sDb2Ic7bp/YDZROhdHD89Mj+4Vfcv6E88SaRdLDUe3RPEPt4 +0TavvBg6eHnkTATj/ObhuK7okEgH0kxwtOcggWxTqEkfc+iwP1lbSAnnP6nn +dEBlNR3e80WkmPQQ6NzqveMSdXQQLxrVzfuI5wXZQg2/Bvw+8X9keLAv+HL8 +UW+nw7D+388lH3D/CGacyumjA1dB1xRnJ+5vkyG98Dk6rI8N3WzchvOt1mGN +tTIDtN7KPEipxvu955P4NVUGPJNr0uusItC6msMa6dsZ8CIo5tI6bM0qnfPf +tBlwv1wn1aWCQKxXpDavAwyoKkzslfyHQIeLyxPDbBlgIrvP1oQg0JucrWoV +0Qy40nGBFZdNoM/SoQZf7jPA1tr0cGoWgWazVu25EhjQuzySm5OJ8zFzLM4g +hQHtfUOoMB2fx9Tq5Q+5DBDyh+ViPD/oJbg2/FvLgDO/R0nXWAQqCa6zpc8y +4I0uNPHexufPsEX03gIDBIcW2jpu4XmF//37P8v4+Rnqgft4nrkZPaj/ilMS +WB5L4ULXCWScuKRylCQJsZ0/YtddIdDQY7XVMCVJsL0xOZ+B56VNDclp83aS +wA58o1Z8HNefx/dLe7sktGmpMzzkCSROa/q4/E4SGiW9IydkCdSuTemQ/yAJ +HuntNZ4yuF6u9RWBfZIQwGgMcJPE+dsplKT5QxLe+AUeOU7G/8/0UqvUNVIQ +7LB3ZHozzlfdhWY3DSmIE78krT/HRme9rpbwP5SCH37OC15VbKR6Xqnd2E4a +dt7kELA7yEYdgsp8vjtlQM3HuH9bcRF6VRCYpMwlC5OnzDbwU4rQ1TWKZq0D +slC5LDec5VqIePv9D7kXy8GV/pwMBefnaPQRg5UWIA/n/rs4eIKnALHkxbjL +rBRAKfzyU57LT1H0w3MNdnRFMJoebTywkoesWafa+b8rguC6KOrboFy0sD9n +Ma1SCQR0nZZsxh+j4dG9frX3lIFF3vN09tIjlLlbXaLNbhvwis4Oz49ko2dB +vgLnt6nAGovJ36W+Weie1VkjrlkV6FvO6QGRTLSjPyP3XpsqMNaEr614nI4S +FZKetRmp4fl061Op8lR0ozoi0ahMDQT29O0+K5CMTCSscpql1eG53mqeftwD +tMe94aRAiDqMz3aG1p5NQGlke+nWWXUY/mzZxZKNQ9KvH8ebntwOQV9Bzlb9 +PoreVqv4vnI7fH12+FybYww6N839rkmRCUmbPx38oRyF7Ium6CFRTFj3WbaE +sTEcuQZarBjGMIE2lhz+z2oY8rUo/sh/nwmhfZXSx6fCUPCsb2R0PBPyJ5xZ +GR/DUMHOxeWEFCZU8XKedssMQ4s1q92P8pkQYrqN/4d2GIp+zx9R18CE2Rk5 +DscLoehhlpvT3SYmyEfVpLJsQlGWT/u+Qy1MuFFJ+tF4OBSVCkcvtbQzIY/9 +6zLSDEX91lucOj8woemrtp8DVyiSGxbbNzTMhID9yUcjUkOQWrE/NXuUCVyp +ZYfWxYYgnaC+RcfvTDj1prI3KCgEGculFP4cY4Lniv+HaNcQ5OVCp05OMuGr +kB/1s04ICth1a5E9zQTBKNZUgEoICto41OUzywT3ypun6ZIhKPF5VtjCAhPs +6tgcvhtCUOZN7vP/LDFhPMuVKftfMMo/4rg3YIUJYcafl/smglGx5BuK3l8m +uITBifiRYFQ5Lbu4usoEbnaLoVVPMPofZrB7Hw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07796609111579834}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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, 20}, {0., 0.07796609111579834}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913290128289948`*^9, 3.992119515227665*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"2c5e5728-758e-2048-bda3-ffe0c53cebdd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.009784"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.02687"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.043601"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.05335"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.062849"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.065087"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.067708"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.065141"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.063585"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.059029"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.055695"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.050792"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.046991"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.042372"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.03863"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.034472"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.031001"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.027323"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.024229"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.021057"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.018401"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991714709387436*^9, 3.991714738003292*^9}, { + 3.991714834117689*^9, 3.991714842328617*^9}, 3.991793311407936*^9, + 3.9917953263701286`*^9, {3.9920917576775723`*^9, 3.992091758838732*^9}}, + CellLabel->"In[97]:=",ExpressionUUID->"d0e220f6-a6cd-c048-ab1a-de311ff0fdbc"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, + 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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, 20.}, {0, 0.067708}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9917148467316074`*^9, 3.9921195154248104`*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"2dc634c2-eb9d-f246-83bc-ee04fba1c5f7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel->"In[98]:=",ExpressionUUID->"b9d1e9a3-d136-bb41-ba98-cea12bff5352"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nc8Vu8bB3AZDVQPZT/TXhk9QpT7aikzGQ1JESU7oyQtpezVY5S9KpR4 +Dso3O7KpSISU0VB97e2b3/3747zO6/3Hed3nXPd9fc7FsPcwd+Tk4OBYxdf/ +7ynX7deqOyTp8a/X3nhtfpdeXSfd+Bj9CjK32GxtECuOVt9U3qbTQ9CHrdYt +G2MVUUp1BI2H/gAppa1ajsXoINfdvm7ztFwklz8/UBNjiDqXnVgTtDKUfl6h +2DzGGq3rG5L7Q2tC6aEdvs+jnFFGc9rFX7Re9CLsmpxaiD8qeB7S56oyhuaq +B16+DQ5D59G7B7+9phEjeFnV8QgLuY8qDBcXLKKpdH+18/EPES/jjtygNgdY +llaJrI9LR5GkFsWMM1zAOXis9kVQFrLvs6zial0LxepfDZhhj9DF+jv2HnK8 +UKQ8EyxqnouKPPktRA02QjTZa8vJsnyUcdVlTO0YCcxFd9fzkwtQYNrKkZnf +AkBfVmwd31SIODq/QLn/Fug44c6nMV6IZH3O+VkqCsEHobCjj2uL0DadQYs0 +NSFosH/TEFBfhDQ4jquOaQrBjj0qdmaNRWhvuMG3G/uEIJtThn+qrQjZZitb +5tsIwbMzCkDrLULxXVOqnFFCwD7vspExXoR4dtz4/nxaCJpPahTXiLHRyGzC +Ub4KYbD78HTa+wIbZe5heg+8FoY1nFmNPK5sdDqiPep5szBsmqR6xLmz0Sdp +niaLHmHYNsFSK/Bmo3cWXrrJ08Iwso4vqP4aG1UWGdO3KYpAJO8mr7AYNkpw +WzNmmiACFoyfdj4v2MiyLHktI1UELt/fc666jI0EebSlprNFYNLCYhdvORtF +JrvbJLBFwF6i/lRCNRvdaelrH2wTATj/81JCExt5KpQSntyioLa7lU+1j40M +R52vxV4UBZacnmT5ChvpX5N6ut9PFFR4XnOU/WWjvUL9n+aui0JeLk8DwUEg +nQMm2ifDRYG9XZgvi5tAijmq01KPRSHzUam3Ez+B+BxnnEr6RcHQueZTpASB +WkeuWfYcFIPC7t4iQ20CNQZo3g41FYPbcy2l3DoEqts6XrTLSgxq9KoflesS +qHz/mc0Z9mJQ5Kl2SBYR6Gn23uYL18Sgt6GF9eUAgSIc1sEyWwy809Z4T5oT +yHQkWolKFYfskhH9IBe8ntJIl420OCgUchcNuxLIyFvrepKiOJA88w6DO4EO +cX5+K6olDsJ/tyrNeBJoL13p0hYzcdhqb2Wrf4lAO2zqq9cHisOZkd5u1k0C +kbsWraZHxUEzwpPed59ADyVMVtV/i4NszC8HjjgCiZ1Nf+I5JQ7J1z4NScUT +SHhKf/nPX3Hg0H4d5phIIBKJlf5DRAL+piTGdyYTiMtY5deAgQTcTv79wjqH +QGOv7W82PpMAVruRt3AJgWgxPc6RxRJgfIqsIVJKIEtbUyvLVxIw/3LXqNAL +AlUu7FT80igBS3d9xTaWESh2m0DX/LAEzJqLvBsqJ5BuQpWcnDgZ0k+WvlSq +I5Cnww7BP3QyFFTopvLVE+iRev4KW44M8X3Wfj+xSa3x7/R2kEH31h2+tAYC +jXC4Xz1qRoahWy4lk80ECncmdwTdJcP76bZjO94RqEYrtswoggyFd+VzZ7Dn +uNdnC7DIsP/Xq+mi9wQ6kzbtl5JBhoDT1b6yXQTS6GqWLCknw4d7L3fMdxNo +YPeVSyNTZDAJ0x7T6ieQIN/4mbxFMpQpt0x3Yx/qcTDy5KBAQ1nwsvcAgdhe +ZvSVjRQw39O69slnAt19LNe8RYEC100DhBa+EEhFoJuy7zQFTnjU2GiPEuhb +xLfAOEcK7Je4sf45dgrv/PfvLhQQHJZblPpGIH5uUXa4HwVMD1rlrf+O6z93 +Qr87hgK8P0ctKn4QKNPbOV8+kQJZx2tUZH8S6MSEP+lqKgUov2vNIrAbfyZ9 +ouVTwMjB2uXoGIFy+gfcL9RRgJ/o4uz6RSCbE/92vmqmQHJlL1X1N4G2dv/V +3vSOAn9zTe8EYwd20LiIAQpsNytS1vyD61Vrl7AyR4GitrvLAf8SSBR5rZj+ +R4FoDU2XZuyOV4F2GVxUMC19Jis8TiC9kiwlfRIVRJ1lAp9gk5+MVkUpUCE2 +J77z5QSBuqTnpIdUqbDLcSR3ATssY22ohiYVrtedadecJNDSQznL3r1UONxN +5irAZotolykZUCGyY2HLd+wLrEPU64epEDSr60OdIlBPxIUfkjZUcCnfLh2M +Hc3rb+Jrj9c/e8fnH+yD90LZDU5UqNhzRegXdunN/ABXXyrsFAozPDhNILf/ +Xn2tvEoF75aDg17Y0v6t+gKBVNDY9b0+Gfu+9x9SaSQVpFVIob+wDSf+810f +R4Vf8rpOpBkCcbpt6rNOooL2u7AHTGzPc6o5q4+pMHxpeM4HW34Y8ZoXUCE1 +M0LqPvbgaTOP7GIqnO3Jyn6ObXri4k6DGiqYbzmVM4y9tvtWalIDFWQXsmWW +sSvMY7n+bcN+lLlMmiWQT0emE3RRIW9LrpwMtrIx0Rb7iQolrnx5Wtgjja+3 +j36hQo0g5fYh7KQDXQla36lQlaxOHMM2rx1ZCflDhU/dyTqO2Lxo1q5/mgo+ +tWyxi9h+e+TXly5hu0mLBmB/23eyIGoNDVpOKckEYVvqR1peWE8DR33mnnDs +2kM1S3s306Bf8olrDLaa0Uw6WZgGJlpzj1nYqSZyB+fINNhJCp2Ow+Y3s/7T +IUUD/cC3h/9vf/OI+7mKNFDK06yIxf5hWb3ztjoNvH8r7IrEPnpsetBGmwZ2 +syJt97DrTsje1UQ0qHnp7nkDe7vNCWWSPg0KLibL+mKn24a//2lMg4jMzRNO +2JvsqvxeW9Dg5VatNmvsgLNT1BRrGrj13Ko0xP7lKFN/yY4GGftP12ljWzsd +dzFzwt87pzcojd3oHCag6EGDuvfRmzdja7pVvuC6RIMHnPVW83h/sj0mTw0E +0OD4nBF7AFvQS5r7xW0aLJyNl6nFvulzLC86lAZiB4UKs7FtrlTM7Uukwa8X +vvwO2M1XJ5IpaTT4nKAzCNja16X2zefQIDBmqVkCe+vtkKg8ggbLrjvGW/D5 +Cwwq33HnHxrMNMTJZ2BP3BvvO1VDg2CV8gAf7NZwK3mBDhpMrcpfFsLWiQpu +H/uA94vnGHUYn/8nMa986vppYG4kPlSAfSeeUXN5jAZ3S7bXADb17ZzyOCcd +sm74jZngfrM6QuKwWUsHAyXybX7s8PcKnY0b6JBC5djVhPt3qcvmSiaJDsTh +s6Td2N29tfVWVDoccUo124T7f+PJ/sRaBh3GNxouVOC82N8/66IqQ4fWsMnX +Ltjsz/KCG5TpcKxAuKkG503kcKRt+U46XFxcTDiG8+jgH+t5SSs6VD5cZCvi +fEvdervzxnE60Ha9+ViJ83BGN/95/0k6BBqI7zyCnR66fD7eng5+lmqEJ87P +Jbnkng2edNC6sDb2Ic7bp/YDZROhdHD89Mj+4Vfcv6E88SaRdLDUe3RPEPt4 +0TavvBg6eHnkTATj/ObhuK7okEgH0kxwtOcggWxTqEkfc+iwP1lbSAnnP6nn +dEBlNR3e80WkmPQQ6NzqveMSdXQQLxrVzfuI5wXZQg2/Bvw+8X9keLAv+HL8 +UW+nw7D+388lH3D/CGacyumjA1dB1xRnJ+5vkyG98Dk6rI8N3WzchvOt1mGN +tTIDtN7KPEipxvu955P4NVUGPJNr0uusItC6msMa6dsZ8CIo5tI6bM0qnfPf +tBlwv1wn1aWCQKxXpDavAwyoKkzslfyHQIeLyxPDbBlgIrvP1oQg0JucrWoV +0Qy40nGBFZdNoM/SoQZf7jPA1tr0cGoWgWazVu25EhjQuzySm5OJ8zFzLM4g +hQHtfUOoMB2fx9Tq5Q+5DBDyh+ViPD/oJbg2/FvLgDO/R0nXWAQqCa6zpc8y +4I0uNPHexufPsEX03gIDBIcW2jpu4XmF//37P8v4+Rnqgft4nrkZPaj/ilMS +WB5L4ULXCWScuKRylCQJsZ0/YtddIdDQY7XVMCVJsL0xOZ+B56VNDclp83aS +wA58o1Z8HNefx/dLe7sktGmpMzzkCSROa/q4/E4SGiW9IydkCdSuTemQ/yAJ +HuntNZ4yuF6u9RWBfZIQwGgMcJPE+dsplKT5QxLe+AUeOU7G/8/0UqvUNVIQ +7LB3ZHozzlfdhWY3DSmIE78krT/HRme9rpbwP5SCH37OC15VbKR6Xqnd2E4a +dt7kELA7yEYdgsp8vjtlQM3HuH9bcRF6VRCYpMwlC5OnzDbwU4rQ1TWKZq0D +slC5LDec5VqIePv9D7kXy8GV/pwMBefnaPQRg5UWIA/n/rs4eIKnALHkxbjL +rBRAKfzyU57LT1H0w3MNdnRFMJoebTywkoesWafa+b8rguC6KOrboFy0sD9n +Ma1SCQR0nZZsxh+j4dG9frX3lIFF3vN09tIjlLlbXaLNbhvwis4Oz49ko2dB +vgLnt6nAGovJ36W+Weie1VkjrlkV6FvO6QGRTLSjPyP3XpsqMNaEr614nI4S +FZKetRmp4fl061Op8lR0ozoi0ahMDQT29O0+K5CMTCSscpql1eG53mqeftwD +tMe94aRAiDqMz3aG1p5NQGlke+nWWXUY/mzZxZKNQ9KvH8ebntwOQV9Bzlb9 +PoreVqv4vnI7fH12+FybYww6N839rkmRCUmbPx38oRyF7Ium6CFRTFj3WbaE +sTEcuQZarBjGMIE2lhz+z2oY8rUo/sh/nwmhfZXSx6fCUPCsb2R0PBPyJ5xZ +GR/DUMHOxeWEFCZU8XKedssMQ4s1q92P8pkQYrqN/4d2GIp+zx9R18CE2Rk5 +DscLoehhlpvT3SYmyEfVpLJsQlGWT/u+Qy1MuFFJ+tF4OBSVCkcvtbQzIY/9 +6zLSDEX91lucOj8woemrtp8DVyiSGxbbNzTMhID9yUcjUkOQWrE/NXuUCVyp +ZYfWxYYgnaC+RcfvTDj1prI3KCgEGculFP4cY4Lniv+HaNcQ5OVCp05OMuGr +kB/1s04ICth1a5E9zQTBKNZUgEoICto41OUzywT3ypun6ZIhKPF5VtjCAhPs +6tgcvhtCUOZN7vP/LDFhPMuVKftfMMo/4rg3YIUJYcafl/smglGx5BuK3l8m +uITBifiRYFQ5Lbu4usoEbnaLoVVPMPofZrB7Hw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Vu8bB3AZDVQPZT/TXhk9QpT7aikzGQ1JESU7oyQtpezVY5S9KpR4 +Dso3O7KpSISU0VB97e2b3/3747zO6/3Hed3nXPd9fc7FsPcwd+Tk4OBYxdf/ +7ynX7deqOyTp8a/X3nhtfpdeXSfd+Bj9CjK32GxtECuOVt9U3qbTQ9CHrdYt +G2MVUUp1BI2H/gAppa1ajsXoINfdvm7ztFwklz8/UBNjiDqXnVgTtDKUfl6h +2DzGGq3rG5L7Q2tC6aEdvs+jnFFGc9rFX7Re9CLsmpxaiD8qeB7S56oyhuaq +B16+DQ5D59G7B7+9phEjeFnV8QgLuY8qDBcXLKKpdH+18/EPES/jjtygNgdY +llaJrI9LR5GkFsWMM1zAOXis9kVQFrLvs6zial0LxepfDZhhj9DF+jv2HnK8 +UKQ8EyxqnouKPPktRA02QjTZa8vJsnyUcdVlTO0YCcxFd9fzkwtQYNrKkZnf +AkBfVmwd31SIODq/QLn/Fug44c6nMV6IZH3O+VkqCsEHobCjj2uL0DadQYs0 +NSFosH/TEFBfhDQ4jquOaQrBjj0qdmaNRWhvuMG3G/uEIJtThn+qrQjZZitb +5tsIwbMzCkDrLULxXVOqnFFCwD7vspExXoR4dtz4/nxaCJpPahTXiLHRyGzC +Ub4KYbD78HTa+wIbZe5heg+8FoY1nFmNPK5sdDqiPep5szBsmqR6xLmz0Sdp +niaLHmHYNsFSK/Bmo3cWXrrJ08Iwso4vqP4aG1UWGdO3KYpAJO8mr7AYNkpw +WzNmmiACFoyfdj4v2MiyLHktI1UELt/fc666jI0EebSlprNFYNLCYhdvORtF +JrvbJLBFwF6i/lRCNRvdaelrH2wTATj/81JCExt5KpQSntyioLa7lU+1j40M +R52vxV4UBZacnmT5ChvpX5N6ut9PFFR4XnOU/WWjvUL9n+aui0JeLk8DwUEg +nQMm2ifDRYG9XZgvi5tAijmq01KPRSHzUam3Ez+B+BxnnEr6RcHQueZTpASB +WkeuWfYcFIPC7t4iQ20CNQZo3g41FYPbcy2l3DoEqts6XrTLSgxq9KoflesS +qHz/mc0Z9mJQ5Kl2SBYR6Gn23uYL18Sgt6GF9eUAgSIc1sEyWwy809Z4T5oT +yHQkWolKFYfskhH9IBe8ntJIl420OCgUchcNuxLIyFvrepKiOJA88w6DO4EO +cX5+K6olDsJ/tyrNeBJoL13p0hYzcdhqb2Wrf4lAO2zqq9cHisOZkd5u1k0C +kbsWraZHxUEzwpPed59ADyVMVtV/i4NszC8HjjgCiZ1Nf+I5JQ7J1z4NScUT +SHhKf/nPX3Hg0H4d5phIIBKJlf5DRAL+piTGdyYTiMtY5deAgQTcTv79wjqH +QGOv7W82PpMAVruRt3AJgWgxPc6RxRJgfIqsIVJKIEtbUyvLVxIw/3LXqNAL +AlUu7FT80igBS3d9xTaWESh2m0DX/LAEzJqLvBsqJ5BuQpWcnDgZ0k+WvlSq +I5Cnww7BP3QyFFTopvLVE+iRev4KW44M8X3Wfj+xSa3x7/R2kEH31h2+tAYC +jXC4Xz1qRoahWy4lk80ECncmdwTdJcP76bZjO94RqEYrtswoggyFd+VzZ7Dn +uNdnC7DIsP/Xq+mi9wQ6kzbtl5JBhoDT1b6yXQTS6GqWLCknw4d7L3fMdxNo +YPeVSyNTZDAJ0x7T6ieQIN/4mbxFMpQpt0x3Yx/qcTDy5KBAQ1nwsvcAgdhe +ZvSVjRQw39O69slnAt19LNe8RYEC100DhBa+EEhFoJuy7zQFTnjU2GiPEuhb +xLfAOEcK7Je4sf45dgrv/PfvLhQQHJZblPpGIH5uUXa4HwVMD1rlrf+O6z93 +Qr87hgK8P0ctKn4QKNPbOV8+kQJZx2tUZH8S6MSEP+lqKgUov2vNIrAbfyZ9 +ouVTwMjB2uXoGIFy+gfcL9RRgJ/o4uz6RSCbE/92vmqmQHJlL1X1N4G2dv/V +3vSOAn9zTe8EYwd20LiIAQpsNytS1vyD61Vrl7AyR4GitrvLAf8SSBR5rZj+ +R4FoDU2XZuyOV4F2GVxUMC19Jis8TiC9kiwlfRIVRJ1lAp9gk5+MVkUpUCE2 +J77z5QSBuqTnpIdUqbDLcSR3ATssY22ohiYVrtedadecJNDSQznL3r1UONxN +5irAZotolykZUCGyY2HLd+wLrEPU64epEDSr60OdIlBPxIUfkjZUcCnfLh2M +Hc3rb+Jrj9c/e8fnH+yD90LZDU5UqNhzRegXdunN/ABXXyrsFAozPDhNILf/ +Xn2tvEoF75aDg17Y0v6t+gKBVNDY9b0+Gfu+9x9SaSQVpFVIob+wDSf+810f +R4Vf8rpOpBkCcbpt6rNOooL2u7AHTGzPc6o5q4+pMHxpeM4HW34Y8ZoXUCE1 +M0LqPvbgaTOP7GIqnO3Jyn6ObXri4k6DGiqYbzmVM4y9tvtWalIDFWQXsmWW +sSvMY7n+bcN+lLlMmiWQT0emE3RRIW9LrpwMtrIx0Rb7iQolrnx5Wtgjja+3 +j36hQo0g5fYh7KQDXQla36lQlaxOHMM2rx1ZCflDhU/dyTqO2Lxo1q5/mgo+ +tWyxi9h+e+TXly5hu0mLBmB/23eyIGoNDVpOKckEYVvqR1peWE8DR33mnnDs +2kM1S3s306Bf8olrDLaa0Uw6WZgGJlpzj1nYqSZyB+fINNhJCp2Ow+Y3s/7T +IUUD/cC3h/9vf/OI+7mKNFDK06yIxf5hWb3ztjoNvH8r7IrEPnpsetBGmwZ2 +syJt97DrTsje1UQ0qHnp7nkDe7vNCWWSPg0KLibL+mKn24a//2lMg4jMzRNO +2JvsqvxeW9Dg5VatNmvsgLNT1BRrGrj13Ko0xP7lKFN/yY4GGftP12ljWzsd +dzFzwt87pzcojd3oHCag6EGDuvfRmzdja7pVvuC6RIMHnPVW83h/sj0mTw0E +0OD4nBF7AFvQS5r7xW0aLJyNl6nFvulzLC86lAZiB4UKs7FtrlTM7Uukwa8X +vvwO2M1XJ5IpaTT4nKAzCNja16X2zefQIDBmqVkCe+vtkKg8ggbLrjvGW/D5 +Cwwq33HnHxrMNMTJZ2BP3BvvO1VDg2CV8gAf7NZwK3mBDhpMrcpfFsLWiQpu +H/uA94vnGHUYn/8nMa986vppYG4kPlSAfSeeUXN5jAZ3S7bXADb17ZzyOCcd +sm74jZngfrM6QuKwWUsHAyXybX7s8PcKnY0b6JBC5djVhPt3qcvmSiaJDsTh +s6Td2N29tfVWVDoccUo124T7f+PJ/sRaBh3GNxouVOC82N8/66IqQ4fWsMnX +Ltjsz/KCG5TpcKxAuKkG503kcKRt+U46XFxcTDiG8+jgH+t5SSs6VD5cZCvi +fEvdervzxnE60Ha9+ViJ83BGN/95/0k6BBqI7zyCnR66fD7eng5+lmqEJ87P +Jbnkng2edNC6sDb2Ic7bp/YDZROhdHD89Mj+4Vfcv6E88SaRdLDUe3RPEPt4 +0TavvBg6eHnkTATj/ObhuK7okEgH0kxwtOcggWxTqEkfc+iwP1lbSAnnP6nn +dEBlNR3e80WkmPQQ6NzqveMSdXQQLxrVzfuI5wXZQg2/Bvw+8X9keLAv+HL8 +UW+nw7D+388lH3D/CGacyumjA1dB1xRnJ+5vkyG98Dk6rI8N3WzchvOt1mGN +tTIDtN7KPEipxvu955P4NVUGPJNr0uusItC6msMa6dsZ8CIo5tI6bM0qnfPf +tBlwv1wn1aWCQKxXpDavAwyoKkzslfyHQIeLyxPDbBlgIrvP1oQg0JucrWoV +0Qy40nGBFZdNoM/SoQZf7jPA1tr0cGoWgWazVu25EhjQuzySm5OJ8zFzLM4g +hQHtfUOoMB2fx9Tq5Q+5DBDyh+ViPD/oJbg2/FvLgDO/R0nXWAQqCa6zpc8y +4I0uNPHexufPsEX03gIDBIcW2jpu4XmF//37P8v4+Rnqgft4nrkZPaj/ilMS +WB5L4ULXCWScuKRylCQJsZ0/YtddIdDQY7XVMCVJsL0xOZ+B56VNDclp83aS +wA58o1Z8HNefx/dLe7sktGmpMzzkCSROa/q4/E4SGiW9IydkCdSuTemQ/yAJ +HuntNZ4yuF6u9RWBfZIQwGgMcJPE+dsplKT5QxLe+AUeOU7G/8/0UqvUNVIQ +7LB3ZHozzlfdhWY3DSmIE78krT/HRme9rpbwP5SCH37OC15VbKR6Xqnd2E4a +dt7kELA7yEYdgsp8vjtlQM3HuH9bcRF6VRCYpMwlC5OnzDbwU4rQ1TWKZq0D +slC5LDec5VqIePv9D7kXy8GV/pwMBefnaPQRg5UWIA/n/rs4eIKnALHkxbjL +rBRAKfzyU57LT1H0w3MNdnRFMJoebTywkoesWafa+b8rguC6KOrboFy0sD9n +Ma1SCQR0nZZsxh+j4dG9frX3lIFF3vN09tIjlLlbXaLNbhvwis4Oz49ko2dB +vgLnt6nAGovJ36W+Weie1VkjrlkV6FvO6QGRTLSjPyP3XpsqMNaEr614nI4S +FZKetRmp4fl061Op8lR0ozoi0ahMDQT29O0+K5CMTCSscpql1eG53mqeftwD +tMe94aRAiDqMz3aG1p5NQGlke+nWWXUY/mzZxZKNQ9KvH8ebntwOQV9Bzlb9 +PoreVqv4vnI7fH12+FybYww6N839rkmRCUmbPx38oRyF7Ium6CFRTFj3WbaE +sTEcuQZarBjGMIE2lhz+z2oY8rUo/sh/nwmhfZXSx6fCUPCsb2R0PBPyJ5xZ +GR/DUMHOxeWEFCZU8XKedssMQ4s1q92P8pkQYrqN/4d2GIp+zx9R18CE2Rk5 +DscLoehhlpvT3SYmyEfVpLJsQlGWT/u+Qy1MuFFJ+tF4OBSVCkcvtbQzIY/9 +6zLSDEX91lucOj8woemrtp8DVyiSGxbbNzTMhID9yUcjUkOQWrE/NXuUCVyp +ZYfWxYYgnaC+RcfvTDj1prI3KCgEGculFP4cY4Lniv+HaNcQ5OVCp05OMuGr +kB/1s04ICth1a5E9zQTBKNZUgEoICto41OUzywT3ypun6ZIhKPF5VtjCAhPs +6tgcvhtCUOZN7vP/LDFhPMuVKftfMMo/4rg3YIUJYcafl/smglGx5BuK3l8m +uITBifiRYFQ5Lbu4usoEbnaLoVVPMPofZrB7Hw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07796609111579834}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07796609111579834}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Vu8bB3AZDVQPZT/TXhk9QpT7aikzGQ1JESU7oyQtpezVY5S9KpR4 +Dso3O7KpSISU0VB97e2b3/3747zO6/3Hed3nXPd9fc7FsPcwd+Tk4OBYxdf/ +7ynX7deqOyTp8a/X3nhtfpdeXSfd+Bj9CjK32GxtECuOVt9U3qbTQ9CHrdYt +G2MVUUp1BI2H/gAppa1ajsXoINfdvm7ztFwklz8/UBNjiDqXnVgTtDKUfl6h +2DzGGq3rG5L7Q2tC6aEdvs+jnFFGc9rFX7Re9CLsmpxaiD8qeB7S56oyhuaq +B16+DQ5D59G7B7+9phEjeFnV8QgLuY8qDBcXLKKpdH+18/EPES/jjtygNgdY +llaJrI9LR5GkFsWMM1zAOXis9kVQFrLvs6zial0LxepfDZhhj9DF+jv2HnK8 +UKQ8EyxqnouKPPktRA02QjTZa8vJsnyUcdVlTO0YCcxFd9fzkwtQYNrKkZnf +AkBfVmwd31SIODq/QLn/Fug44c6nMV6IZH3O+VkqCsEHobCjj2uL0DadQYs0 +NSFosH/TEFBfhDQ4jquOaQrBjj0qdmaNRWhvuMG3G/uEIJtThn+qrQjZZitb +5tsIwbMzCkDrLULxXVOqnFFCwD7vspExXoR4dtz4/nxaCJpPahTXiLHRyGzC +Ub4KYbD78HTa+wIbZe5heg+8FoY1nFmNPK5sdDqiPep5szBsmqR6xLmz0Sdp +niaLHmHYNsFSK/Bmo3cWXrrJ08Iwso4vqP4aG1UWGdO3KYpAJO8mr7AYNkpw +WzNmmiACFoyfdj4v2MiyLHktI1UELt/fc666jI0EebSlprNFYNLCYhdvORtF +JrvbJLBFwF6i/lRCNRvdaelrH2wTATj/81JCExt5KpQSntyioLa7lU+1j40M +R52vxV4UBZacnmT5ChvpX5N6ut9PFFR4XnOU/WWjvUL9n+aui0JeLk8DwUEg +nQMm2ifDRYG9XZgvi5tAijmq01KPRSHzUam3Ez+B+BxnnEr6RcHQueZTpASB +WkeuWfYcFIPC7t4iQ20CNQZo3g41FYPbcy2l3DoEqts6XrTLSgxq9KoflesS +qHz/mc0Z9mJQ5Kl2SBYR6Gn23uYL18Sgt6GF9eUAgSIc1sEyWwy809Z4T5oT +yHQkWolKFYfskhH9IBe8ntJIl420OCgUchcNuxLIyFvrepKiOJA88w6DO4EO +cX5+K6olDsJ/tyrNeBJoL13p0hYzcdhqb2Wrf4lAO2zqq9cHisOZkd5u1k0C +kbsWraZHxUEzwpPed59ADyVMVtV/i4NszC8HjjgCiZ1Nf+I5JQ7J1z4NScUT +SHhKf/nPX3Hg0H4d5phIIBKJlf5DRAL+piTGdyYTiMtY5deAgQTcTv79wjqH +QGOv7W82PpMAVruRt3AJgWgxPc6RxRJgfIqsIVJKIEtbUyvLVxIw/3LXqNAL +AlUu7FT80igBS3d9xTaWESh2m0DX/LAEzJqLvBsqJ5BuQpWcnDgZ0k+WvlSq +I5Cnww7BP3QyFFTopvLVE+iRev4KW44M8X3Wfj+xSa3x7/R2kEH31h2+tAYC +jXC4Xz1qRoahWy4lk80ECncmdwTdJcP76bZjO94RqEYrtswoggyFd+VzZ7Dn +uNdnC7DIsP/Xq+mi9wQ6kzbtl5JBhoDT1b6yXQTS6GqWLCknw4d7L3fMdxNo +YPeVSyNTZDAJ0x7T6ieQIN/4mbxFMpQpt0x3Yx/qcTDy5KBAQ1nwsvcAgdhe +ZvSVjRQw39O69slnAt19LNe8RYEC100DhBa+EEhFoJuy7zQFTnjU2GiPEuhb +xLfAOEcK7Je4sf45dgrv/PfvLhQQHJZblPpGIH5uUXa4HwVMD1rlrf+O6z93 +Qr87hgK8P0ctKn4QKNPbOV8+kQJZx2tUZH8S6MSEP+lqKgUov2vNIrAbfyZ9 +ouVTwMjB2uXoGIFy+gfcL9RRgJ/o4uz6RSCbE/92vmqmQHJlL1X1N4G2dv/V +3vSOAn9zTe8EYwd20LiIAQpsNytS1vyD61Vrl7AyR4GitrvLAf8SSBR5rZj+ +R4FoDU2XZuyOV4F2GVxUMC19Jis8TiC9kiwlfRIVRJ1lAp9gk5+MVkUpUCE2 +J77z5QSBuqTnpIdUqbDLcSR3ATssY22ohiYVrtedadecJNDSQznL3r1UONxN +5irAZotolykZUCGyY2HLd+wLrEPU64epEDSr60OdIlBPxIUfkjZUcCnfLh2M +Hc3rb+Jrj9c/e8fnH+yD90LZDU5UqNhzRegXdunN/ABXXyrsFAozPDhNILf/ +Xn2tvEoF75aDg17Y0v6t+gKBVNDY9b0+Gfu+9x9SaSQVpFVIob+wDSf+810f +R4Vf8rpOpBkCcbpt6rNOooL2u7AHTGzPc6o5q4+pMHxpeM4HW34Y8ZoXUCE1 +M0LqPvbgaTOP7GIqnO3Jyn6ObXri4k6DGiqYbzmVM4y9tvtWalIDFWQXsmWW +sSvMY7n+bcN+lLlMmiWQT0emE3RRIW9LrpwMtrIx0Rb7iQolrnx5Wtgjja+3 +j36hQo0g5fYh7KQDXQla36lQlaxOHMM2rx1ZCflDhU/dyTqO2Lxo1q5/mgo+ +tWyxi9h+e+TXly5hu0mLBmB/23eyIGoNDVpOKckEYVvqR1peWE8DR33mnnDs +2kM1S3s306Bf8olrDLaa0Uw6WZgGJlpzj1nYqSZyB+fINNhJCp2Ow+Y3s/7T +IUUD/cC3h/9vf/OI+7mKNFDK06yIxf5hWb3ztjoNvH8r7IrEPnpsetBGmwZ2 +syJt97DrTsje1UQ0qHnp7nkDe7vNCWWSPg0KLibL+mKn24a//2lMg4jMzRNO +2JvsqvxeW9Dg5VatNmvsgLNT1BRrGrj13Ko0xP7lKFN/yY4GGftP12ljWzsd +dzFzwt87pzcojd3oHCag6EGDuvfRmzdja7pVvuC6RIMHnPVW83h/sj0mTw0E +0OD4nBF7AFvQS5r7xW0aLJyNl6nFvulzLC86lAZiB4UKs7FtrlTM7Uukwa8X +vvwO2M1XJ5IpaTT4nKAzCNja16X2zefQIDBmqVkCe+vtkKg8ggbLrjvGW/D5 +Cwwq33HnHxrMNMTJZ2BP3BvvO1VDg2CV8gAf7NZwK3mBDhpMrcpfFsLWiQpu +H/uA94vnGHUYn/8nMa986vppYG4kPlSAfSeeUXN5jAZ3S7bXADb17ZzyOCcd +sm74jZngfrM6QuKwWUsHAyXybX7s8PcKnY0b6JBC5djVhPt3qcvmSiaJDsTh +s6Td2N29tfVWVDoccUo124T7f+PJ/sRaBh3GNxouVOC82N8/66IqQ4fWsMnX +Ltjsz/KCG5TpcKxAuKkG503kcKRt+U46XFxcTDiG8+jgH+t5SSs6VD5cZCvi +fEvdervzxnE60Ha9+ViJ83BGN/95/0k6BBqI7zyCnR66fD7eng5+lmqEJ87P +Jbnkng2edNC6sDb2Ic7bp/YDZROhdHD89Mj+4Vfcv6E88SaRdLDUe3RPEPt4 +0TavvBg6eHnkTATj/ObhuK7okEgH0kxwtOcggWxTqEkfc+iwP1lbSAnnP6nn +dEBlNR3e80WkmPQQ6NzqveMSdXQQLxrVzfuI5wXZQg2/Bvw+8X9keLAv+HL8 +UW+nw7D+388lH3D/CGacyumjA1dB1xRnJ+5vkyG98Dk6rI8N3WzchvOt1mGN +tTIDtN7KPEipxvu955P4NVUGPJNr0uusItC6msMa6dsZ8CIo5tI6bM0qnfPf +tBlwv1wn1aWCQKxXpDavAwyoKkzslfyHQIeLyxPDbBlgIrvP1oQg0JucrWoV +0Qy40nGBFZdNoM/SoQZf7jPA1tr0cGoWgWazVu25EhjQuzySm5OJ8zFzLM4g +hQHtfUOoMB2fx9Tq5Q+5DBDyh+ViPD/oJbg2/FvLgDO/R0nXWAQqCa6zpc8y +4I0uNPHexufPsEX03gIDBIcW2jpu4XmF//37P8v4+Rnqgft4nrkZPaj/ilMS +WB5L4ULXCWScuKRylCQJsZ0/YtddIdDQY7XVMCVJsL0xOZ+B56VNDclp83aS +wA58o1Z8HNefx/dLe7sktGmpMzzkCSROa/q4/E4SGiW9IydkCdSuTemQ/yAJ +HuntNZ4yuF6u9RWBfZIQwGgMcJPE+dsplKT5QxLe+AUeOU7G/8/0UqvUNVIQ +7LB3ZHozzlfdhWY3DSmIE78krT/HRme9rpbwP5SCH37OC15VbKR6Xqnd2E4a +dt7kELA7yEYdgsp8vjtlQM3HuH9bcRF6VRCYpMwlC5OnzDbwU4rQ1TWKZq0D +slC5LDec5VqIePv9D7kXy8GV/pwMBefnaPQRg5UWIA/n/rs4eIKnALHkxbjL +rBRAKfzyU57LT1H0w3MNdnRFMJoebTywkoesWafa+b8rguC6KOrboFy0sD9n +Ma1SCQR0nZZsxh+j4dG9frX3lIFF3vN09tIjlLlbXaLNbhvwis4Oz49ko2dB +vgLnt6nAGovJ36W+Weie1VkjrlkV6FvO6QGRTLSjPyP3XpsqMNaEr614nI4S +FZKetRmp4fl061Op8lR0ozoi0ahMDQT29O0+K5CMTCSscpql1eG53mqeftwD +tMe94aRAiDqMz3aG1p5NQGlke+nWWXUY/mzZxZKNQ9KvH8ebntwOQV9Bzlb9 +PoreVqv4vnI7fH12+FybYww6N839rkmRCUmbPx38oRyF7Ium6CFRTFj3WbaE +sTEcuQZarBjGMIE2lhz+z2oY8rUo/sh/nwmhfZXSx6fCUPCsb2R0PBPyJ5xZ +GR/DUMHOxeWEFCZU8XKedssMQ4s1q92P8pkQYrqN/4d2GIp+zx9R18CE2Rk5 +DscLoehhlpvT3SYmyEfVpLJsQlGWT/u+Qy1MuFFJ+tF4OBSVCkcvtbQzIY/9 +6zLSDEX91lucOj8woemrtp8DVyiSGxbbNzTMhID9yUcjUkOQWrE/NXuUCVyp +ZYfWxYYgnaC+RcfvTDj1prI3KCgEGculFP4cY4Lniv+HaNcQ5OVCp05OMuGr +kB/1s04ICth1a5E9zQTBKNZUgEoICto41OUzywT3ypun6ZIhKPF5VtjCAhPs +6tgcvhtCUOZN7vP/LDFhPMuVKftfMMo/4rg3YIUJYcafl/smglGx5BuK3l8m +uITBifiRYFQ5Lbu4usoEbnaLoVVPMPofZrB7Hw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07796609111579834}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, + 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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, 20}, {0., 0.07796609111579834}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.992119515467989*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"c12ddfad-4317-594d-9cf0-142377e33a72"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{3.991844724526314*^9}, + CellLabel->"In[99]:=",ExpressionUUID->"f431849e-0899-864c-b9d1-1df0491628db"], + +Cell[BoxData["13.595342181387226`"], "Output", + CellChangeTimes->{3.9913294794877434`*^9, 3.992119515538122*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"30213909-a541-7c4f-bec8-cd9c7165a90d"] +}, 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.9918447267207756`*^9}, + CellLabel-> + "In[100]:=",ExpressionUUID->"650ee12b-eb50-044b-94e9-ce88ff255deb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2906476283740386`*^-260\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 100, 802, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913294796838703`*^9, 3.99211951580698*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"d1ed5e84-851d-8b47-aae3-6fd1d0c5a9f6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.4449015662488036`*^-270\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 100, 803, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913294796838703`*^9, 3.992119515828985*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"ae25ec0a-bc68-dc47-9b27-daa13d520d74"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.606386383888603`*^-280\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 100, 804, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913294796838703`*^9, 3.992119515848995*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"3fcb0167-e792-2749-bc0a-54e1abe1575e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 100, 805, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913294796838703`*^9, 3.992119515865988*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"3390f48a-fe4d-c244-8987-ed8187566fcd"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k4FW8bB3CllEKism/HmcOx7xGn+w5JKltopSJLUiHZy1K2CCEhayHn +nCkqKSr6WUpatMhaCiWpUNlV3nn/mutzzTXPzPPMPd/7GQXXY/buC3l4eJYs +4OH5/3Gy90kjPbF4fbfrJp0vOw3Wt+WLh2zojIb6qz5ubRGrAFe3uop3psEp +vqD1pRF0CLTldPB2Xoa6JB6JsxF6sHJELG2m4yY4xoXUeEaYw4f71sfGO+rh +8hpV58URDmBBH37/s+M1FLXFxaacPAgzHWsvjHX0Q7P37Ex9UAA0mF0tfnX5 +N8iHjN7cYhQD0h+qB13V/gLMPXysbJUCq3z2cZaY8eKekCZGoF8GpGlb3LN2 +XIqtkXotfMezoStL6+FPYUHsf/6W+eBTHiQWR7QulFiJ4xlD70r1i0AsYyAh +PU8UUa60453ZFYhz2Lz+9eRqHF4x6/1nUQkcNyra9yRaHONEbTXE7pWC+ehs +6NEBSWyt2/6+XLEMQiwzVP77LomLrjebtiuXwfUi9W7RSUkUuXbhwYx6GYg7 +7DeqXiqFWsYjP9calsH3u01TvBpS6FddtfX81jJIj04NyA6WQubnwJg7AWXQ +v5pxtFFQGo0eP55urS+DKBO7A5KGMnjmvmgQzYkNli75v9aaymBEVvXQt91s +EIr8dtpxqwy+2Xu888Y+NuQ2xJSm7pfB8WRjbd1DbLhrVfONL0EGA7pm/lse +zoaxnYqBv7tk8EB8ifaqIja4nJg4+yxMFgWD9ecjh9iw7np25ak6OeT7de9i +vQ8HzDte/B1plkPXRO9Tnr4csOZZtGnfazks2Kpoyx/AATf7o13wWQ53CV+q +NAvjgEWYQkTkYnmUmZOMSk/ggK/c5JUNqvJorMbLKCjhQKNnwY+GQHl89tWK +69HDgc1/jETCw+QxXz75V1kvB16kthnoRcqjVrABMdTHga5q/sjiBHkMvju0 +1XmIAyPLA0RicuXx6pj9VdoEB8QrLNda1MvjbV2pTAkhLvhM/4xsFlTAPRIO +Q3dZXFjn57FmUEQBC7Y5HWxHLiwd7ubyiiug/oZ+8zEzLpT0NLSvpylgtK2e +noQVF3prL6jdNlDAz/cNXoITF2xijDqL9img2J6vih+PcEFHJEoz7IYC3lz7 +Pv1oDhd4Eicas6oU8PXxnDnxPC684PXeXXVPAftD1r+oK+DC4Qn7mJ9NCli+ +0ej2whIuFHfSezy7FXDQQ/y8czkX1hQ0xzrw0jD2S/89zwYuzKgK96o70vBA +37UPrUNcmMyTjNLdTcOcTJtXf4e5ML6CoBvto6HbabGdyj+4MPLbyNv8EA13 +Zbsxjv/kQv89t8ndJ2n4z3B164cZLrRsuSMUX0LDGHO73NXLSHj84L8b5zg0 +TP3rtFRQgIRGzWcO6eU0bHKbFFogREKtaF9OfjUN92sF/uhdScLNnmVKt5/T +sMGwZcZPgoScwy7QP0HDoHPexRNKJFx879X/ZZaGex7PDVYxSciwOR7zY56G +2wRMWwJUSUjWjX86za+IaczEgEENEqLnbuxYIauIV4ui3Ir0STicuNjXxEIR +X1WXLA00JcGESxZmZipi/3LxU3m7SOiR5xZsvKSIwbODVe92kxCayc4fL1DE +wnEpQYm9JNyJKs21Zysin4ylaIILCTo7C7OE7iuiWdSt8xZuJDAXZ6TG9ini +5zR2xVofEppD01L0BxVRweP6qOUREjzGUpM/DSti0ZVk+x1HSSjuOZdkOq6I +K7KSYw77kiB/My7+Hx8dDxOupF8ACWv2hUUGqtGR90e480QYCbfbQiIIbTpO +mPoLdoWT4GAVfKpNn47EddWh6pMkpOmfCNcBOo57VcodjyBBUOBY8IgdHZu8 +q680RJNARh0JynOi45ydV1XqaRKspg4Hbt1DR+ZoyNTuMyTE93sFcA7SMbsn +l+9LDAmLql19PYLoqHe+1/19PAlXNA4cWx1ORwG9vOn0BBJMi/cdbYyko8G7 +4AebzpIQkbLXh3aWjt6xPh9KE0mYdXfy6s2lo5XI5fNmyST8FLHa71RPx5xd +KVJTaSR0+tBeej+m446TNzOS0kl4+GgWIp7Rcf3zuBbZDBJSQ7lyZe10ZN9s +P2p0gQStfoEPM8N0lHy+mNx0kQRxk8/WQmN0LI+tkm6gzJP5oJY2QcdVNWY2 +xlkktG4+mr9lno6qJ9L/KGSTcPRGq3OeKIFj47Fnm3NIcFpe9vyGOIEdGzKl +VS6RsN49kvVIhjp/4OWJeMqCEtoyo0oEDncFRhrnkjDuz3+OV51AXn+Wbirl +d8/6/ojpEKjjPFDeR5mMTHuHJgSW3I3jD8uj6rPbe6vjBgLHn336Uk85XM/s +/iELAh+F9aYtySdhy9DvS2m2BGaPeNvFUdYxfbb8qiOBvhX7PeopS+YWh93b +TWD9kmqrWcrDNo57Ph0k0NbV+cz+AhJes9WfTh8iUPCWcE8y5RpePmPBYwTW +6k7w1lC+7NzLUQgg0Kevbr6PcsKdKkmDEALvb2C08hWS4Lsy5azVKQK1XHv9 +lSnvPOw563KaQN3O/G8WlLEJvI/HExj9UHadK2VlOfHuuHMETtWu3hdKWThk +bHNuGoEO/4z3pFCeft1cXXGRwCuaVppFlD+qFTGbcgncenamp5xyc2xIdlcR +gW5PeV3vUa74aMc/Ukpgkr5ifQPlrHUqIQtJ6vpUkb/NlCMzFn5dc4PA3cxz +ok8pe45071StInDkpTVfC2Vry1vNcI/AgXei7U2UDS4nGjo8JDCRkX26lrLs +H7cyrybq/S3LXVFJmc/JRPxkC4Ga3t2hpZRHylfFn28l8MxVkUcXKLfz/5gq +aSOQW8b7K4pyrVuTZ00Xgey3PvPelEsf5HW86KWeV1xo1JZysljgpoEBAkff +Xf1Pl3Kgn/WdqSECG1fMBYlSdnnKUBIYIfCf7BORMWr9NxLzmfK/CdSYeZP2 +hLJaRAef/jSBWwR7pwsor+oqD9z8l1p/K87G45Q/Je138l/CQKfgi5nClI8O +q9G0BBhYMBm0rZeqh6lNMz9+CDPQfe3QdjblZbxpMYckGehrP2u3lnLGfhc7 +JTkGdpn3Ws1S9SdTqyLzWZGBfsz2CzWUtUIaKverM/DnirN0Xco17SmRsjoM +/KyQeOgbVc9menu3vjNg4OWNKrxFlJ1Gxwd2IAPbR14aLKJ80p0harOdgTZB +d25wqO+Jr+FXr8BOBj7Syb+2jXKqfB2nZS813mtL3pHs/+fdDlMLDwaeTjxd +y6DcYpfgxwph4JbAjthg6vt1KHdkzZ1koLaXohsf5fcCNP7qaAZWSfvmn88k +YexxTaFeEgODZyr0Cqk8WLP+e6tqAQN59nj9yqPyo/DS3Utfr1DzeWjTtYYy +c+aM59UyBhruSqSfo/LGpFJmnnaTgSf9yof9zpPgpmKjIdnEwBUVqZbSKVQ9 +rrmZtPQbA1fW8wyMU/m2LuDUzkejDByMSdhvTrnhlRX9zDgD1ZRttp2n8rA9 +aeDe/F8Gugw7BSnGkfBn4epvk8JKCFNv5JlUnm4eDdr82UAJl/7x86ih8lla +WzZ2qYkS0g62D76g8nvEv7FedYMSLhl38ftI5XvGpLCJ/xYltKWfKpsNIaH3 +L1tjfp8SussG310eSIK/wDtRiQQlvEz2qBVR/cTcOtrWJFkJizY6Poil+o1Y +qvK5felKKPWK43HoMAn3RU/wleYpoYlj6RLGIer9SAnN6Nyk7r9MNi/8INVf +mdi7tUcJRST3fC2g+p3P4UFJ349KeHjRmeAdVD+Ea0k70j8r4aEJtqbATqoe +tbpedo0qYdriBokjjiRoGPo3eCxSRg8VyWkBW2p9LIrLItWV8UCVbFWTOQnf +3ZYer4xQRn32mpU0NWq++eYP6s4oI9GjphivQsJoV+SSpwnKaF/feOGbMgm/ +bGYu9aUrY6LKpkIOQdW38XCjUJkyKrpYuPPLkbBw1bM1h14qY7TKrRgrar8g +0ZhSI6PAxEerrD/1/eaC5PzTRUwGEyW/fBuYoPYn0uuW2uipMlFkwXK3JWNc +kK2IHLDSZ2L69ocDtO9coOf6CQRvZmII+8Eyk09c0ArY7vLaj4nWizKfT73h +Uv8LYgvj6pm4zWZGOfcGF766biozfszExsqUPfHUfiqpKMh67CkTeYqywv2v +ceGNbGfOrrdMPGJtdw7ZXNgvka2rNsREjdNpPI2FXAgRknJ/JaiCY57xQ14p +XCCnZZuldqlg4p+0LK3DXBB5zkiuGFVBw5XTzwalufBvVKukZVwFVXu/NspI +cmFYxPj+pxkVNP0mn2wvxoX6nTbD4otUcYnuo6zbK7lw/FOQRZS4KpY7tFw7 +wMeFtrnmf3YbVPGEtsIL+1EOXFQ5fOx3miouMP3JKazjgHR8ua2BgRoeH0jd +ydzNgSxVI2FRT3Uc5hWquxXPhhbJDfq/z2ugPXslW6ykDNZJ16dqtmuiVHhx +gm32VRDivRxwIFoLB7UnLC+llIJslJzJLoY2brfyDQ93LQF+Ym+V/WNt5M6f +HYjVLgYNlkR5kLMONjrHaKwSvgL+vSINVjy6GB2iKy7eVgSjv5McN2fp4v2o +vT0LrhfCJs1HOZvV9dBvsDK9X6EAan8bz0290EOpvln19Q25cFRNp/uVuz6K +eo7Ke+bmAGvkYNsufgNsien8FL8nCzbSxbcJXjZApsjFiAanTFCOPBtcv3Yt +WnJT6C3+GaDiblRHdK9F0atuYYuj0sC91utMpZ8hhtKD4vWepkJdYdvBn6uN +0C+94GWyTDKMl81Pad4xwvxFwwlHfp0FN4LLn7NtHQrvv6bM1YuHnyrpBjfH +1uEZWQHntsAYuFs81zcRb4zKBd/Sn8icht3mimgsa4LSD0b+3F0QBVJH4qo1 +Hpqgzront/S7TsLqZT43tu1g4b41CmK3HEKh2Oxk6NguFo4vE01v2hgKOieT +zdL3svC9nWZDr0EoWI9VvO08wMLAwLeGhEQoxLZPzLj5sPCu8ibLhb0hMH05 +wjQ0ioW/PAcOzXmFQLdx+ptSLgsNfzTqvT8dDF4ninM3X2fhikqJ+voTwTB5 +/bb79woW7vKxbbnuGQwitM4p7SoWRrfSzHO2BMOWpTLSDx6y8NqW05xa0WC4 +31Z68M1bFiZ3HeEYlwSBldBd9cBOFmpmFy2PvxgEnZueTIr3sDB1JqWlOyEI +xmu+xbt8ZKF7rOXu9KNBoF6kde3rMAu3f3p2ztYwCO53bwhM+sHCoaowdqsK +Nd6q7aA5xsL5Sf1VjjJB4BF34lXABAsrlXxb/RdS4z2MzRGbZmGzygbp5ROB +ED170a1mloXB/9VVsL8EgrAeW835L3W/dtFE6+5AyD9SMzE/z8LB1e7smWeB +8D+qc4mh + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4FW8bB3CllEKism/HmcOx7xGn+w5JKltopSJLUiHZy1K2CCEhayHn +nCkqKSr6WUpatMhaCiWpUNlV3nn/mutzzTXPzPPMPd/7GQXXY/buC3l4eJYs +4OH5/3Gy90kjPbF4fbfrJp0vOw3Wt+WLh2zojIb6qz5ubRGrAFe3uop3psEp +vqD1pRF0CLTldPB2Xoa6JB6JsxF6sHJELG2m4yY4xoXUeEaYw4f71sfGO+rh +8hpV58URDmBBH37/s+M1FLXFxaacPAgzHWsvjHX0Q7P37Ex9UAA0mF0tfnX5 +N8iHjN7cYhQD0h+qB13V/gLMPXysbJUCq3z2cZaY8eKekCZGoF8GpGlb3LN2 +XIqtkXotfMezoStL6+FPYUHsf/6W+eBTHiQWR7QulFiJ4xlD70r1i0AsYyAh +PU8UUa60453ZFYhz2Lz+9eRqHF4x6/1nUQkcNyra9yRaHONEbTXE7pWC+ehs +6NEBSWyt2/6+XLEMQiwzVP77LomLrjebtiuXwfUi9W7RSUkUuXbhwYx6GYg7 +7DeqXiqFWsYjP9calsH3u01TvBpS6FddtfX81jJIj04NyA6WQubnwJg7AWXQ +v5pxtFFQGo0eP55urS+DKBO7A5KGMnjmvmgQzYkNli75v9aaymBEVvXQt91s +EIr8dtpxqwy+2Xu888Y+NuQ2xJSm7pfB8WRjbd1DbLhrVfONL0EGA7pm/lse +zoaxnYqBv7tk8EB8ifaqIja4nJg4+yxMFgWD9ecjh9iw7np25ak6OeT7de9i +vQ8HzDte/B1plkPXRO9Tnr4csOZZtGnfazks2Kpoyx/AATf7o13wWQ53CV+q +NAvjgEWYQkTkYnmUmZOMSk/ggK/c5JUNqvJorMbLKCjhQKNnwY+GQHl89tWK +69HDgc1/jETCw+QxXz75V1kvB16kthnoRcqjVrABMdTHga5q/sjiBHkMvju0 +1XmIAyPLA0RicuXx6pj9VdoEB8QrLNda1MvjbV2pTAkhLvhM/4xsFlTAPRIO +Q3dZXFjn57FmUEQBC7Y5HWxHLiwd7ubyiiug/oZ+8zEzLpT0NLSvpylgtK2e +noQVF3prL6jdNlDAz/cNXoITF2xijDqL9img2J6vih+PcEFHJEoz7IYC3lz7 +Pv1oDhd4Eicas6oU8PXxnDnxPC684PXeXXVPAftD1r+oK+DC4Qn7mJ9NCli+ +0ej2whIuFHfSezy7FXDQQ/y8czkX1hQ0xzrw0jD2S/89zwYuzKgK96o70vBA +37UPrUNcmMyTjNLdTcOcTJtXf4e5ML6CoBvto6HbabGdyj+4MPLbyNv8EA13 +Zbsxjv/kQv89t8ndJ2n4z3B164cZLrRsuSMUX0LDGHO73NXLSHj84L8b5zg0 +TP3rtFRQgIRGzWcO6eU0bHKbFFogREKtaF9OfjUN92sF/uhdScLNnmVKt5/T +sMGwZcZPgoScwy7QP0HDoHPexRNKJFx879X/ZZaGex7PDVYxSciwOR7zY56G +2wRMWwJUSUjWjX86za+IaczEgEENEqLnbuxYIauIV4ui3Ir0STicuNjXxEIR +X1WXLA00JcGESxZmZipi/3LxU3m7SOiR5xZsvKSIwbODVe92kxCayc4fL1DE +wnEpQYm9JNyJKs21Zysin4ylaIILCTo7C7OE7iuiWdSt8xZuJDAXZ6TG9ini +5zR2xVofEppD01L0BxVRweP6qOUREjzGUpM/DSti0ZVk+x1HSSjuOZdkOq6I +K7KSYw77kiB/My7+Hx8dDxOupF8ACWv2hUUGqtGR90e480QYCbfbQiIIbTpO +mPoLdoWT4GAVfKpNn47EddWh6pMkpOmfCNcBOo57VcodjyBBUOBY8IgdHZu8 +q680RJNARh0JynOi45ydV1XqaRKspg4Hbt1DR+ZoyNTuMyTE93sFcA7SMbsn +l+9LDAmLql19PYLoqHe+1/19PAlXNA4cWx1ORwG9vOn0BBJMi/cdbYyko8G7 +4AebzpIQkbLXh3aWjt6xPh9KE0mYdXfy6s2lo5XI5fNmyST8FLHa71RPx5xd +KVJTaSR0+tBeej+m446TNzOS0kl4+GgWIp7Rcf3zuBbZDBJSQ7lyZe10ZN9s +P2p0gQStfoEPM8N0lHy+mNx0kQRxk8/WQmN0LI+tkm6gzJP5oJY2QcdVNWY2 +xlkktG4+mr9lno6qJ9L/KGSTcPRGq3OeKIFj47Fnm3NIcFpe9vyGOIEdGzKl +VS6RsN49kvVIhjp/4OWJeMqCEtoyo0oEDncFRhrnkjDuz3+OV51AXn+Wbirl +d8/6/ojpEKjjPFDeR5mMTHuHJgSW3I3jD8uj6rPbe6vjBgLHn336Uk85XM/s +/iELAh+F9aYtySdhy9DvS2m2BGaPeNvFUdYxfbb8qiOBvhX7PeopS+YWh93b +TWD9kmqrWcrDNo57Ph0k0NbV+cz+AhJes9WfTh8iUPCWcE8y5RpePmPBYwTW +6k7w1lC+7NzLUQgg0Kevbr6PcsKdKkmDEALvb2C08hWS4Lsy5azVKQK1XHv9 +lSnvPOw563KaQN3O/G8WlLEJvI/HExj9UHadK2VlOfHuuHMETtWu3hdKWThk +bHNuGoEO/4z3pFCeft1cXXGRwCuaVppFlD+qFTGbcgncenamp5xyc2xIdlcR +gW5PeV3vUa74aMc/Ukpgkr5ifQPlrHUqIQtJ6vpUkb/NlCMzFn5dc4PA3cxz +ok8pe45071StInDkpTVfC2Vry1vNcI/AgXei7U2UDS4nGjo8JDCRkX26lrLs +H7cyrybq/S3LXVFJmc/JRPxkC4Ga3t2hpZRHylfFn28l8MxVkUcXKLfz/5gq +aSOQW8b7K4pyrVuTZ00Xgey3PvPelEsf5HW86KWeV1xo1JZysljgpoEBAkff +Xf1Pl3Kgn/WdqSECG1fMBYlSdnnKUBIYIfCf7BORMWr9NxLzmfK/CdSYeZP2 +hLJaRAef/jSBWwR7pwsor+oqD9z8l1p/K87G45Q/Je138l/CQKfgi5nClI8O +q9G0BBhYMBm0rZeqh6lNMz9+CDPQfe3QdjblZbxpMYckGehrP2u3lnLGfhc7 +JTkGdpn3Ws1S9SdTqyLzWZGBfsz2CzWUtUIaKverM/DnirN0Xco17SmRsjoM +/KyQeOgbVc9menu3vjNg4OWNKrxFlJ1Gxwd2IAPbR14aLKJ80p0harOdgTZB +d25wqO+Jr+FXr8BOBj7Syb+2jXKqfB2nZS813mtL3pHs/+fdDlMLDwaeTjxd +y6DcYpfgxwph4JbAjthg6vt1KHdkzZ1koLaXohsf5fcCNP7qaAZWSfvmn88k +YexxTaFeEgODZyr0Cqk8WLP+e6tqAQN59nj9yqPyo/DS3Utfr1DzeWjTtYYy +c+aM59UyBhruSqSfo/LGpFJmnnaTgSf9yof9zpPgpmKjIdnEwBUVqZbSKVQ9 +rrmZtPQbA1fW8wyMU/m2LuDUzkejDByMSdhvTrnhlRX9zDgD1ZRttp2n8rA9 +aeDe/F8Gugw7BSnGkfBn4epvk8JKCFNv5JlUnm4eDdr82UAJl/7x86ih8lla +WzZ2qYkS0g62D76g8nvEv7FedYMSLhl38ftI5XvGpLCJ/xYltKWfKpsNIaH3 +L1tjfp8SussG310eSIK/wDtRiQQlvEz2qBVR/cTcOtrWJFkJizY6Poil+o1Y +qvK5felKKPWK43HoMAn3RU/wleYpoYlj6RLGIer9SAnN6Nyk7r9MNi/8INVf +mdi7tUcJRST3fC2g+p3P4UFJ349KeHjRmeAdVD+Ea0k70j8r4aEJtqbATqoe +tbpedo0qYdriBokjjiRoGPo3eCxSRg8VyWkBW2p9LIrLItWV8UCVbFWTOQnf +3ZYer4xQRn32mpU0NWq++eYP6s4oI9GjphivQsJoV+SSpwnKaF/feOGbMgm/ +bGYu9aUrY6LKpkIOQdW38XCjUJkyKrpYuPPLkbBw1bM1h14qY7TKrRgrar8g +0ZhSI6PAxEerrD/1/eaC5PzTRUwGEyW/fBuYoPYn0uuW2uipMlFkwXK3JWNc +kK2IHLDSZ2L69ocDtO9coOf6CQRvZmII+8Eyk09c0ArY7vLaj4nWizKfT73h +Uv8LYgvj6pm4zWZGOfcGF766biozfszExsqUPfHUfiqpKMh67CkTeYqywv2v +ceGNbGfOrrdMPGJtdw7ZXNgvka2rNsREjdNpPI2FXAgRknJ/JaiCY57xQ14p +XCCnZZuldqlg4p+0LK3DXBB5zkiuGFVBw5XTzwalufBvVKukZVwFVXu/NspI +cmFYxPj+pxkVNP0mn2wvxoX6nTbD4otUcYnuo6zbK7lw/FOQRZS4KpY7tFw7 +wMeFtrnmf3YbVPGEtsIL+1EOXFQ5fOx3miouMP3JKazjgHR8ua2BgRoeH0jd +ydzNgSxVI2FRT3Uc5hWquxXPhhbJDfq/z2ugPXslW6ykDNZJ16dqtmuiVHhx +gm32VRDivRxwIFoLB7UnLC+llIJslJzJLoY2brfyDQ93LQF+Ym+V/WNt5M6f +HYjVLgYNlkR5kLMONjrHaKwSvgL+vSINVjy6GB2iKy7eVgSjv5McN2fp4v2o +vT0LrhfCJs1HOZvV9dBvsDK9X6EAan8bz0290EOpvln19Q25cFRNp/uVuz6K +eo7Ke+bmAGvkYNsufgNsien8FL8nCzbSxbcJXjZApsjFiAanTFCOPBtcv3Yt +WnJT6C3+GaDiblRHdK9F0atuYYuj0sC91utMpZ8hhtKD4vWepkJdYdvBn6uN +0C+94GWyTDKMl81Pad4xwvxFwwlHfp0FN4LLn7NtHQrvv6bM1YuHnyrpBjfH +1uEZWQHntsAYuFs81zcRb4zKBd/Sn8icht3mimgsa4LSD0b+3F0QBVJH4qo1 +Hpqgzront/S7TsLqZT43tu1g4b41CmK3HEKh2Oxk6NguFo4vE01v2hgKOieT +zdL3svC9nWZDr0EoWI9VvO08wMLAwLeGhEQoxLZPzLj5sPCu8ibLhb0hMH05 +wjQ0ioW/PAcOzXmFQLdx+ptSLgsNfzTqvT8dDF4ninM3X2fhikqJ+voTwTB5 +/bb79woW7vKxbbnuGQwitM4p7SoWRrfSzHO2BMOWpTLSDx6y8NqW05xa0WC4 +31Z68M1bFiZ3HeEYlwSBldBd9cBOFmpmFy2PvxgEnZueTIr3sDB1JqWlOyEI +xmu+xbt8ZKF7rOXu9KNBoF6kde3rMAu3f3p2ztYwCO53bwhM+sHCoaowdqsK +Nd6q7aA5xsL5Sf1VjjJB4BF34lXABAsrlXxb/RdS4z2MzRGbZmGzygbp5ROB +ED170a1mloXB/9VVsL8EgrAeW835L3W/dtFE6+5AyD9SMzE/z8LB1e7smWeB +8D+qc4mh + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05591425527252865}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.05591425527252865}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4FW8bB3CllEKism/HmcOx7xGn+w5JKltopSJLUiHZy1K2CCEhayHn +nCkqKSr6WUpatMhaCiWpUNlV3nn/mutzzTXPzPPMPd/7GQXXY/buC3l4eJYs +4OH5/3Gy90kjPbF4fbfrJp0vOw3Wt+WLh2zojIb6qz5ubRGrAFe3uop3psEp +vqD1pRF0CLTldPB2Xoa6JB6JsxF6sHJELG2m4yY4xoXUeEaYw4f71sfGO+rh +8hpV58URDmBBH37/s+M1FLXFxaacPAgzHWsvjHX0Q7P37Ex9UAA0mF0tfnX5 +N8iHjN7cYhQD0h+qB13V/gLMPXysbJUCq3z2cZaY8eKekCZGoF8GpGlb3LN2 +XIqtkXotfMezoStL6+FPYUHsf/6W+eBTHiQWR7QulFiJ4xlD70r1i0AsYyAh +PU8UUa60453ZFYhz2Lz+9eRqHF4x6/1nUQkcNyra9yRaHONEbTXE7pWC+ehs +6NEBSWyt2/6+XLEMQiwzVP77LomLrjebtiuXwfUi9W7RSUkUuXbhwYx6GYg7 +7DeqXiqFWsYjP9calsH3u01TvBpS6FddtfX81jJIj04NyA6WQubnwJg7AWXQ +v5pxtFFQGo0eP55urS+DKBO7A5KGMnjmvmgQzYkNli75v9aaymBEVvXQt91s +EIr8dtpxqwy+2Xu888Y+NuQ2xJSm7pfB8WRjbd1DbLhrVfONL0EGA7pm/lse +zoaxnYqBv7tk8EB8ifaqIja4nJg4+yxMFgWD9ecjh9iw7np25ak6OeT7de9i +vQ8HzDte/B1plkPXRO9Tnr4csOZZtGnfazks2Kpoyx/AATf7o13wWQ53CV+q +NAvjgEWYQkTkYnmUmZOMSk/ggK/c5JUNqvJorMbLKCjhQKNnwY+GQHl89tWK +69HDgc1/jETCw+QxXz75V1kvB16kthnoRcqjVrABMdTHga5q/sjiBHkMvju0 +1XmIAyPLA0RicuXx6pj9VdoEB8QrLNda1MvjbV2pTAkhLvhM/4xsFlTAPRIO +Q3dZXFjn57FmUEQBC7Y5HWxHLiwd7ubyiiug/oZ+8zEzLpT0NLSvpylgtK2e +noQVF3prL6jdNlDAz/cNXoITF2xijDqL9img2J6vih+PcEFHJEoz7IYC3lz7 +Pv1oDhd4Eicas6oU8PXxnDnxPC684PXeXXVPAftD1r+oK+DC4Qn7mJ9NCli+ +0ej2whIuFHfSezy7FXDQQ/y8czkX1hQ0xzrw0jD2S/89zwYuzKgK96o70vBA +37UPrUNcmMyTjNLdTcOcTJtXf4e5ML6CoBvto6HbabGdyj+4MPLbyNv8EA13 +Zbsxjv/kQv89t8ndJ2n4z3B164cZLrRsuSMUX0LDGHO73NXLSHj84L8b5zg0 +TP3rtFRQgIRGzWcO6eU0bHKbFFogREKtaF9OfjUN92sF/uhdScLNnmVKt5/T +sMGwZcZPgoScwy7QP0HDoHPexRNKJFx879X/ZZaGex7PDVYxSciwOR7zY56G +2wRMWwJUSUjWjX86za+IaczEgEENEqLnbuxYIauIV4ui3Ir0STicuNjXxEIR +X1WXLA00JcGESxZmZipi/3LxU3m7SOiR5xZsvKSIwbODVe92kxCayc4fL1DE +wnEpQYm9JNyJKs21Zysin4ylaIILCTo7C7OE7iuiWdSt8xZuJDAXZ6TG9ini +5zR2xVofEppD01L0BxVRweP6qOUREjzGUpM/DSti0ZVk+x1HSSjuOZdkOq6I +K7KSYw77kiB/My7+Hx8dDxOupF8ACWv2hUUGqtGR90e480QYCbfbQiIIbTpO +mPoLdoWT4GAVfKpNn47EddWh6pMkpOmfCNcBOo57VcodjyBBUOBY8IgdHZu8 +q680RJNARh0JynOi45ydV1XqaRKspg4Hbt1DR+ZoyNTuMyTE93sFcA7SMbsn +l+9LDAmLql19PYLoqHe+1/19PAlXNA4cWx1ORwG9vOn0BBJMi/cdbYyko8G7 +4AebzpIQkbLXh3aWjt6xPh9KE0mYdXfy6s2lo5XI5fNmyST8FLHa71RPx5xd +KVJTaSR0+tBeej+m446TNzOS0kl4+GgWIp7Rcf3zuBbZDBJSQ7lyZe10ZN9s +P2p0gQStfoEPM8N0lHy+mNx0kQRxk8/WQmN0LI+tkm6gzJP5oJY2QcdVNWY2 +xlkktG4+mr9lno6qJ9L/KGSTcPRGq3OeKIFj47Fnm3NIcFpe9vyGOIEdGzKl +VS6RsN49kvVIhjp/4OWJeMqCEtoyo0oEDncFRhrnkjDuz3+OV51AXn+Wbirl +d8/6/ojpEKjjPFDeR5mMTHuHJgSW3I3jD8uj6rPbe6vjBgLHn336Uk85XM/s +/iELAh+F9aYtySdhy9DvS2m2BGaPeNvFUdYxfbb8qiOBvhX7PeopS+YWh93b +TWD9kmqrWcrDNo57Ph0k0NbV+cz+AhJes9WfTh8iUPCWcE8y5RpePmPBYwTW +6k7w1lC+7NzLUQgg0Kevbr6PcsKdKkmDEALvb2C08hWS4Lsy5azVKQK1XHv9 +lSnvPOw563KaQN3O/G8WlLEJvI/HExj9UHadK2VlOfHuuHMETtWu3hdKWThk +bHNuGoEO/4z3pFCeft1cXXGRwCuaVppFlD+qFTGbcgncenamp5xyc2xIdlcR +gW5PeV3vUa74aMc/Ukpgkr5ifQPlrHUqIQtJ6vpUkb/NlCMzFn5dc4PA3cxz +ok8pe45071StInDkpTVfC2Vry1vNcI/AgXei7U2UDS4nGjo8JDCRkX26lrLs +H7cyrybq/S3LXVFJmc/JRPxkC4Ga3t2hpZRHylfFn28l8MxVkUcXKLfz/5gq +aSOQW8b7K4pyrVuTZ00Xgey3PvPelEsf5HW86KWeV1xo1JZysljgpoEBAkff +Xf1Pl3Kgn/WdqSECG1fMBYlSdnnKUBIYIfCf7BORMWr9NxLzmfK/CdSYeZP2 +hLJaRAef/jSBWwR7pwsor+oqD9z8l1p/K87G45Q/Je138l/CQKfgi5nClI8O +q9G0BBhYMBm0rZeqh6lNMz9+CDPQfe3QdjblZbxpMYckGehrP2u3lnLGfhc7 +JTkGdpn3Ws1S9SdTqyLzWZGBfsz2CzWUtUIaKverM/DnirN0Xco17SmRsjoM +/KyQeOgbVc9menu3vjNg4OWNKrxFlJ1Gxwd2IAPbR14aLKJ80p0harOdgTZB +d25wqO+Jr+FXr8BOBj7Syb+2jXKqfB2nZS813mtL3pHs/+fdDlMLDwaeTjxd +y6DcYpfgxwph4JbAjthg6vt1KHdkzZ1koLaXohsf5fcCNP7qaAZWSfvmn88k +YexxTaFeEgODZyr0Cqk8WLP+e6tqAQN59nj9yqPyo/DS3Utfr1DzeWjTtYYy +c+aM59UyBhruSqSfo/LGpFJmnnaTgSf9yof9zpPgpmKjIdnEwBUVqZbSKVQ9 +rrmZtPQbA1fW8wyMU/m2LuDUzkejDByMSdhvTrnhlRX9zDgD1ZRttp2n8rA9 +aeDe/F8Gugw7BSnGkfBn4epvk8JKCFNv5JlUnm4eDdr82UAJl/7x86ih8lla +WzZ2qYkS0g62D76g8nvEv7FedYMSLhl38ftI5XvGpLCJ/xYltKWfKpsNIaH3 +L1tjfp8SussG310eSIK/wDtRiQQlvEz2qBVR/cTcOtrWJFkJizY6Poil+o1Y +qvK5felKKPWK43HoMAn3RU/wleYpoYlj6RLGIer9SAnN6Nyk7r9MNi/8INVf +mdi7tUcJRST3fC2g+p3P4UFJ349KeHjRmeAdVD+Ea0k70j8r4aEJtqbATqoe +tbpedo0qYdriBokjjiRoGPo3eCxSRg8VyWkBW2p9LIrLItWV8UCVbFWTOQnf +3ZYer4xQRn32mpU0NWq++eYP6s4oI9GjphivQsJoV+SSpwnKaF/feOGbMgm/ +bGYu9aUrY6LKpkIOQdW38XCjUJkyKrpYuPPLkbBw1bM1h14qY7TKrRgrar8g +0ZhSI6PAxEerrD/1/eaC5PzTRUwGEyW/fBuYoPYn0uuW2uipMlFkwXK3JWNc +kK2IHLDSZ2L69ocDtO9coOf6CQRvZmII+8Eyk09c0ArY7vLaj4nWizKfT73h +Uv8LYgvj6pm4zWZGOfcGF766biozfszExsqUPfHUfiqpKMh67CkTeYqywv2v +ceGNbGfOrrdMPGJtdw7ZXNgvka2rNsREjdNpPI2FXAgRknJ/JaiCY57xQ14p +XCCnZZuldqlg4p+0LK3DXBB5zkiuGFVBw5XTzwalufBvVKukZVwFVXu/NspI +cmFYxPj+pxkVNP0mn2wvxoX6nTbD4otUcYnuo6zbK7lw/FOQRZS4KpY7tFw7 +wMeFtrnmf3YbVPGEtsIL+1EOXFQ5fOx3miouMP3JKazjgHR8ua2BgRoeH0jd +ydzNgSxVI2FRT3Uc5hWquxXPhhbJDfq/z2ugPXslW6ykDNZJ16dqtmuiVHhx +gm32VRDivRxwIFoLB7UnLC+llIJslJzJLoY2brfyDQ93LQF+Ym+V/WNt5M6f +HYjVLgYNlkR5kLMONjrHaKwSvgL+vSINVjy6GB2iKy7eVgSjv5McN2fp4v2o +vT0LrhfCJs1HOZvV9dBvsDK9X6EAan8bz0290EOpvln19Q25cFRNp/uVuz6K +eo7Ke+bmAGvkYNsufgNsien8FL8nCzbSxbcJXjZApsjFiAanTFCOPBtcv3Yt +WnJT6C3+GaDiblRHdK9F0atuYYuj0sC91utMpZ8hhtKD4vWepkJdYdvBn6uN +0C+94GWyTDKMl81Pad4xwvxFwwlHfp0FN4LLn7NtHQrvv6bM1YuHnyrpBjfH +1uEZWQHntsAYuFs81zcRb4zKBd/Sn8icht3mimgsa4LSD0b+3F0QBVJH4qo1 +Hpqgzront/S7TsLqZT43tu1g4b41CmK3HEKh2Oxk6NguFo4vE01v2hgKOieT +zdL3svC9nWZDr0EoWI9VvO08wMLAwLeGhEQoxLZPzLj5sPCu8ibLhb0hMH05 +wjQ0ioW/PAcOzXmFQLdx+ptSLgsNfzTqvT8dDF4ninM3X2fhikqJ+voTwTB5 +/bb79woW7vKxbbnuGQwitM4p7SoWRrfSzHO2BMOWpTLSDx6y8NqW05xa0WC4 +31Z68M1bFiZ3HeEYlwSBldBd9cBOFmpmFy2PvxgEnZueTIr3sDB1JqWlOyEI +xmu+xbt8ZKF7rOXu9KNBoF6kde3rMAu3f3p2ztYwCO53bwhM+sHCoaowdqsK +Nd6q7aA5xsL5Sf1VjjJB4BF34lXABAsrlXxb/RdS4z2MzRGbZmGzygbp5ROB +ED170a1mloXB/9VVsL8EgrAeW835L3W/dtFE6+5AyD9SMzE/z8LB1e7smWeB +8D+qc4mh + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05591425527252865}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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.05591425527252865}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913298974454536`*^9, 3.992120317847416*^9}, + CellLabel-> + "Out[100]=",ExpressionUUID->"4810e267-cc17-7148-919a-9a69553b3a53"] +}, 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[101]:=",ExpressionUUID->"5c6d0b57-910e-664a-8fd6-40771b36868b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.05852149319637`*^-182\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 101, 806, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913298974999084`*^9, 3.9921203180163136`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"ea8a0039-534b-6044-8956-4386982e10cf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4099396795418108`*^-185\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 101, 807, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913298974999084`*^9, 3.9921203180364094`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"d3aa96d3-1d05-584d-b009-413b6b60d816"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.92986350383249`*^-189\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 101, 808, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913298974999084`*^9, 3.9921203180534096`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"c9d0bbde-e839-0542-aa09-939e17bb39c9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 101, 809, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913298974999084`*^9, 3.992120318070442*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"e6120042-2c47-1b4c-917f-a509e7dec2f4"], + +Cell[BoxData["13.595341521085361`"], "Output", + CellChangeTimes->{3.991329904262455*^9, 3.9921203868744087`*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"1a2efb48-5d71-3f40-bade-563436895243"] +}, 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.991844712341957*^9, 3.991844718198534*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"b04a104f-3249-a34a-8102-7d9b3c7b796d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1414714009683445`*^-215\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 102, 810, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904300501*^9, 3.9921203870300236`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"2a92417b-cef4-4e49-9472-656d4307bfee"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2441593078022079`*^-220\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 811, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904300501*^9, 3.992120387048031*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"b5522da2-fc24-de4e-bc13-73ea1b98f3a1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.228358886749149`*^-226\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 812, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904300501*^9, 3.9921203870640335`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"e1ba7bd1-a8c6-7244-bd08-25d2e37043a5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 102, 813, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904300501*^9, 3.9921203870850353`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"aaa5ad63-b06e-0f41-a6fe-bc7324560f46"], + +Cell[BoxData["0.8712119753545899`"], "Output", + CellChangeTimes->{3.9913299110465336`*^9, 3.9921203988290825`*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"a4bc3726-ac87-5c41-8e99-318cd1927e06"] +}, 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.9918447603776054`*^9, 3.991844763418377*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"6b8170ef-e8e1-8b4d-b589-528a0f547fe8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1414714009683445`*^-215\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 103, 814, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911081766*^9, 3.992120398948593*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"37f66dd1-170b-d14b-9592-9c923e692b37"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2441593078022079`*^-220\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 103, 815, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911081766*^9, 3.992120398990492*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"39c0f6e7-0628-d748-a72b-796d16e610b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.228358886749149`*^-226\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 103, 816, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911081766*^9, 3.9921203990135937`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"425875d3-1e69-c14c-817e-9f4e58593aa0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 103, 817, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911081766*^9, 3.992120399033592*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"7b026711-920c-9b42-a1b9-3a61b6ff67ed"], + +Cell[BoxData["25.9751107267991`"], "Output", + CellChangeTimes->{3.9913299163114815`*^9, 3.9921204097829704`*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"1acc1147-2e41-8b4f-a7e3-6281016ac1e9"] +}, 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.991844769790985*^9, 3.991844773139332*^9}}, + CellLabel-> + "In[104]:=",ExpressionUUID->"984387ef-9fd9-3c47-bc3d-b6f0e8b03e2c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1414714009683445`*^-215\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 104, 818, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163444805`*^9, 3.992120409875469*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"61bcf82d-f6a1-a14e-b4b8-2e521e9201ab"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2441593078022079`*^-220\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 104, 819, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163444805`*^9, 3.9921204099054394`*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"87d8843d-9c8a-7b47-98aa-22c6852cdb7c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.228358886749149`*^-226\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 104, 820, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163444805`*^9, 3.9921204099294224`*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"49f8b456-ce52-084b-8e92-aede72e0976b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 104, 821, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163444805`*^9, 3.99212040994536*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"d208afba-06b7-054c-b049-81a6a1687484"], + +Cell[BoxData["15.762742730860257`"], "Output", + CellChangeTimes->{3.9913299193276234`*^9, 3.9921204185782986`*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"17b24e56-798b-9c42-941b-16bec4899254"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991844780323551*^9, 3.9918447845314407`*^9}}, + CellLabel-> + "In[105]:=",ExpressionUUID->"a1d4e2a6-d632-ee42-bf72-0ec0037a6c16"], + +Cell[BoxData["0.043055559678842954`"], "Output", + CellChangeTimes->{3.99132991935894*^9, 3.9921204186543007`*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"a9235d14-cc54-544e-a92a-b853366d8583"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991844802080488*^9, 3.991844804321781*^9}, + 3.9919238865933857`*^9}, + CellLabel-> + "In[106]:=",ExpressionUUID->"ab8417e8-4709-e943-87cd-c5b8a0910541"], + +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[107]:=",ExpressionUUID->"befa51f5-5940-8743-b07a-eb3a8aba653f"], + +Cell[BoxData["9.475403836278197`"], "Output", + CellChangeTimes->{3.9913299193849545`*^9, 3.992120418692869*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"dafc8a45-31d9-ea43-af33-be093c3e2bb5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"8c248539-c23a-4a42-8e54-3b513c751017"], + +Cell[BoxData["3.0375207082310656`"], "Output", + CellChangeTimes->{3.9913299194207077`*^9, 3.992120418715967*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"1e456755-7bea-bb4c-b79e-f49d619687b4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[109]:=",ExpressionUUID->"293f8673-c8b0-6746-85db-59c8f599b57c"], + +Cell[BoxData["28.781735371547104`"], "Output", + CellChangeTimes->{3.9913299194738407`*^9, 3.9921204187390766`*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"ab6d94f5-6ff6-764d-9fa5-13952b705283"] +}, 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[110]:=",ExpressionUUID->"8fe440ff-6433-ee43-8ab0-44131de05652"], + +Cell[BoxData["0.00878615443367709`"], "Output", + CellChangeTimes->{3.991329919501911*^9, 3.9921204187699833`*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"87026635-c9e8-0741-a99f-d9472e6340f9"] +}, 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[111]:=",ExpressionUUID->"ec04ad19-eb6d-ba4f-929a-62702cc30a12"], + +Cell[BoxData["9.454651480214924`"], "Output", + CellChangeTimes->{3.991329919596855*^9, 3.992120418989212*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"b692b5e8-09a7-794e-8a42-f399cbc601a3"] +}, 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[112]:=",ExpressionUUID->"301beffb-a956-b44c-beb2-37fe9711e64e"], + +Cell[BoxData["0.015099371567439719`"], "Output", + CellChangeTimes->{3.9913299196126003`*^9, 3.9921204190193653`*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"3c28076f-2cb9-1047-a771-7aab32c3f71f"] +}, 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[113]:=",ExpressionUUID->"603274e8-9f12-ce48-b425-66b0e2e5dd2e"], + +Cell[BoxData["7.212162517489941`"], "Output", + CellChangeTimes->{3.9913299197036095`*^9, 3.9921204192354164`*^9}, + CellLabel-> + "Out[113]=",ExpressionUUID->"7db394fd-175d-3340-9ace-b435363b3e44"] +}, 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[114]:=",ExpressionUUID->"26d67789-9b33-7843-a368-14c85da65ff3"], + +Cell[BoxData["0.39889500278443296`"], "Output", + CellChangeTimes->{3.9913299197165985`*^9, 3.9921204192604256`*^9}, + CellLabel-> + "Out[114]=",ExpressionUUID->"dd414c03-c9e8-7f4f-ba52-54448ddde44d"] +}, 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[115]:=",ExpressionUUID->"a37295b9-9f23-ed46-af76-8081da173c8b"], + +Cell[BoxData["0.6011049972155671`"], "Output", + CellChangeTimes->{3.991329919739599*^9, 3.992120419284445*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"c43c9f0d-4fa9-2b4c-b85b-597d92ad9e50"] +}, 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[116]:=",ExpressionUUID->"8cb2872a-60dc-2845-b059-08954f0afeb4"], + +Cell[BoxData["0.2397777795380402`"], "Output", + CellChangeTimes->{3.9913299197646008`*^9, 3.992120419306429*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"983517a9-a9e9-7b4b-a436-ff23b5ffc2d5"] +}, 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.991844883530533*^9}, + CellLabel-> + "In[117]:=",ExpressionUUID->"003a047b-90eb-3149-b4f8-a296c2b2cdcd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.405042563729885`*^-206\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 117, 822, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329919788595*^9, 3.9921204193593273`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"913d64f4-069a-3c47-a17b-4d73d74f0272"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.6728305807669564`*^-211\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 117, 823, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329919788595*^9, 3.992120419381426*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"0b426b5c-778c-6849-9c1e-22079b524231"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.450985177358159`*^-216\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 117, 824, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329919788595*^9, 3.9921204194043865`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"b36bab77-419c-e84d-85af-037e9892a761"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 117, 825, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329919788595*^9, 3.9921204194284306`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"3c6558a5-6b6d-4449-8f38-ac90a3becb77"], + +Cell[BoxData["9.454651480214935`"], "Output", + CellChangeTimes->{3.991329923627493*^9, 3.992120427601671*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"8db75942-782c-0240-9e7c-96cb1e9f6b84"] +}, 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.991844898486679*^9}, + CellLabel-> + "In[118]:=",ExpressionUUID->"17f0d32c-a57d-2a45-81f1-ef75e11de8a0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.405042563729885`*^-206\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 118, 826, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299236609*^9, 3.9921204277010612`*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"cc13e1e8-e38d-fd4b-832b-91c63392a6a2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.6728305807669564`*^-211\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 118, 827, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299236609*^9, 3.992120427746956*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"32a2ae4e-fbaa-7549-9429-8bb2eebf5dcb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.450985177358159`*^-216\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 118, 828, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299236609*^9, 3.992120427775959*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"9d697c88-cfa9-4146-8643-7b90db1c8e33"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 118, 829, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299236609*^9, 3.992120427792055*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"ebe9b633-3247-2d45-adb7-816ed8af74e9"], + +Cell[BoxData["7.21216251748995`"], "Output", + CellChangeTimes->{3.9913299274564743`*^9, 3.9921204358940887`*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"f7cdd029-5251-4b41-9473-373b7e700a1c"] +}, 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.9918449035840626`*^9}, + CellLabel-> + "In[119]:=",ExpressionUUID->"fcd15b99-cf8b-0648-a673-70cdac1f227f"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Xk0VVscB3AkyVDGriEyl6m8a4gG+4dbhkxpMkRx7z0kmZMQDU+lQdFg +iCRDEiFkrKdIXnkhFKVch0uZyXRvqrf9cdZZn7XX+a7vb++zzlH2CnBi8vHw +8JD4WroHvdu4vqL1nak0fV7DbBMXmY5nG3rRCpCQSkoiYLMyjG6q0WpRSdbF +TlNsR8Z/AiL6r5AnvXFiK3ZJeEz9clozyti4p28zdlyjTF1MfhvSUNfLp2JX +tQbdXaR2oq+VHjY62MOf3kSdrOlCo4WsF2rYcmxVtzmLHpQrVym2FnvXRJRJ +SHMvuuQ9ZCSB/XxxWDg8vw9ZOQQZrMD+cIYS+dS/H9V+dV75cyMXjQvQhmeo +bPQjNLN8DFvgSqCL/vwgotTbm/RiK4qnNwXVfEMXmxk3W7Dt5edyxy1GkUNV +T2sBNnFPZY2u4DjiM7V6koIdo+4Qe7R5AqXWbToai91F6fgrNH8KhcbF0V2w +Ga6+R25cmUbVvIJZZtiTaTyZT/x/oBU9ctUbsAVVdMWmqLPILVM24IcuF91k +1FuKSc+hInsp0Y/YSg9cYjbNz6F0su5sFbaxzvnxYzUL6FqT42wEto9Rb/Ow +xSIa+Ye2MKHDRTPhx/mFNH4hx6RXe99gn64R3qYp+BuNVpvHZWEng/Ej7+Y/ +aLeOe4QTNiOniRaczwu/Tu2Jvq/NRfmNN1hn5PmADbN3QrAnhzyiEq7wwUON +6QQL7Cit2dJi/2VwsYO6gqWF+xYpq05Ql0Nt7wEZYexPraPPf2cth8psZ+57 +Tdx/usJ1lbQACL9aX56CXWBgn6g7LwAbnwWWq2I3VEXw+tUIQuz7KFJzAxfN +1rf3frMQgT/5vL9/q3ORhK2IWORzEeCcylB5jK3XQQNRE1Eo88oec8P2HSi/ +99fGVRASbn+iVI2LAvma9baLiMGZF5oHnVS5iK3yeCp2ThxWVSTFOijh/SHe +rGzRl4BP3TKK39dxEd+jQWWZIAl4m9TrcQZbSX+dU/6IBFxObeguVOQiV4vr +T96xJIFVUFo5t5aLWujBIZS30tCn3bDFSpaLvj6Iv3xYcA3QSm18mmW4aHQk +P+vhjjUQoEkHB2yh0P72rXVr4ErbyKQjhYtof+81OFxOATnDvgM0aS6qzjaa +zcuQBQGpQa8RMS7KZnPDtoQqQPyeC0VbV3CR1b4LX0MKFeDf4+OJ9wRwfoPk +zsJBBeD2/7ObH9sgW0dayUURvAIcvZr48X56eZQuN10HWfy8HeZ8XDQ9wTrx +7ZwSnND1Vub9xUGSx2hlpXYqIDHt8yR7ioMGs4V8HH1VIPX3OXf2JAdV9rTK +j51XgYvpksNq2Adt3c9p1KmAbQcz7944B2VrhzmlUFVB3bbmn0sjHGQw/GAy +mqIGXect4zTZHLTXW1jXpk8ddimxKDc+chAK20c98EsdqiIvtpd94CCt2IzN +DFkN4HUtO9vZyUE8Wfrm0bs1oOHtmVrJDg4q/Op24MkLDVAZCcg+18pBAvsL +zsjdXw+L+Q4Rf/2L+9HsPgx7aYLqQNdkYxUHyatci7k8oAOvhYgjQ0kcVHtp +RpPDpwsSv7bcLLqN+/9w6SCUdYGqXHQ77BYH3W1Q0zT30IUgu3FV3hscpOJd +/X7hoy4k82v5CsbjfgVsdeLtRribk8bpPcdBCvKKhJKLHgS+f9Ze7s9BOjmh +Ij8RFRLHhz9ImHFQZrCaY3mzIfB411ysZS2g1jC0+e8cE3B7NMnyPbKAlD06 +7d39toMxLbJHcWgeMf88faxwEoB/mNcmmz6PKCOVKyhe5tDUcTpwS/McCtXf +1pOoRYORERZBN55DXmOLTZLDO8D91GD5sqxZVGgesiKjxRJyk0TrS37NoOwZ +3xcFN62hu95nos9zBi2YyfzXELMLdDxYG9oqf6AvPMum+jztQEsk8Y6g1A/k +vzbg+hlVB9jm3kWJiJpGj4801d2KdYTVjWMDjM9TKOKH7Lz2kd3AH/2ufcBq +Cs3a7Nz/+pATqOnHrxQqmkQmbglm7N17IF3X8lOkwiR6L5vu26C/F2LbulfN +GU4gudxztXkb9sGlNusRyvpxVMnSsrUX3Q//NWj3TRiOIcWOSe+wsf2w3/ij +VdXeUaR/K6Egi3UAYvaFZaw8NoLS+X9sTKx3hsLgUMOCe8PoqdmmT7FVLtD7 +MLme0/IdJW++JL6Y7wrgra7dtfo7avmcc17/ihuIm/7sfOf9DZXbpakFnj4I +Bb+1eiOeDaGpY3t4/BnuEJ3qJu2hOYRmd2r6jFt4gKjKi8uU+4Mob6x7IcTo +EGz5ZKdMkRtEzpk5dHeRw7Bzeuwofw4blT7ZdWjZhcMwYR3LDddjIxP595w4 +zmFoesWIkf5vAKmyvD+1HfGESfH4NuPQATQgfNQhrd8Twi+qftZQGECt8fZ0 +y31e0JO67Ti9ox/dDM8QPt7qBeWptMbL8fi/9PwPh25NB2p3W9xnp360+iBc +0K+mQzRzsW5UpR8pSb1uWVtLhyADKQVdbL1mOxmB53TYld7P56/cj5y2uT3s +ekGHWr+oo1PrcP7asLen/sXrC+5Fv9f2I7kvj1Y3ddGhWdVkgUrpR2oelOSD +83TI7rtrzifSj0wOj+fFGjAgfnn4cZN5EuWmTIbYGzGgOq3dPXeORFLt06YU +Ywbwaf+skcQe3zHfkbeVAWG917onZkj8PeDhbTZngE3bYnLhNIlWzYu7SOxm +gKCRpwoaJ9HAVcOVGccYsOeRj041m0S7X2/u8A5gwPqiZXWG2M95tmToBTFg +0eVcU8kAiVJCTA1fhjLghJm08aN+Etm7WHqyIxkw873helYfiarUXKq0LzGA +Sg9Ryf9CoviaqCOVuQx4e9Y0ZdUHEh2jJpmE5+H+pdkidzpJZPuwZKVxPgOK +W1In1mMLJQ0+rChkALt2Hb9FB4ligx2Hn5YxQMt2lIh+T6IoTbWj5S8ZkLsy +c5VQC4l8k976PfnKgBXFa+tCm0hkvWpwWzCLAQU2z+RWY2+I5RGlkgxQa0UD +D1+TaDDYsLCEzQABqw/1rEYSedpnjBWPMoC/s6ZszysSOS8P8S/iMiA8QcLF +/iWJLEPkAgvWMEHNd/+l27Ukeplx3iZRhgmqXH7LzdjbmqfVwuWY8GFHbGxX +DYn01N92WygyYe+dgQtrsWU/Rlp8VmeCcvnZzPwqEo1s+bJGyJAJt6gnVXuf +kuga371n3nuY0DPwYvvDEjz/JpFku31MWDizX8sV+2+38GD9A0yQyaMkC2OH +lzmu/+PKBFO2yHxAMe5P8Cbc9mLCug3mL02LSKT/xovxKogJTwe+xc0UkOhj +grqw6nUmxC2a1tXlkegxEvX5lsCEtJLGn7HYf4/NNBTeYAJBOj3YhU21bog2 +TmICLdPPvusBPj8e+rTdXSZ82+7UM5dLop0B97rDC/D8VI8ZqxwSKShcNDJ9 +zIQG/paN0tgzbwJuLCtmglLKmu6+bBLd10B28aVMSPVadyoK+9eXL3VZ1Ux4 +sv0dX0UWicps5fPeNTHBVc+Xz+w+iS5z+ZbffMMEvzZJEylsr7xhT5dmJgyA +X+9QJonE+KvlB1qY8NxZKfI6tl+N8zXOByZU2u0fH7xHIlWt22FqbCYo7JN8 +mZdBIu7HU+3fB5lw9nvm9Fns1limXtE3JrCUniW6Y0f3GQybjDJBpTJBWQr7 +U3K7u8MPJhyIiz55/i6JEleI74jgJUCiok3sdDqJaqe/uIUuIyB/0TrfHXvo +S36w/3ICiPcZ77Zibyuj3fNaSQBvwOcKThp+3w6H/7QRJyBC54BIFLaY7Q6J +HZIE1AWfXnTH3rpZQhNJEzBTFnYCsK+LFuzXlyVg/upL0RVL69W9JfLKBBRv +zK5JvUMiIqegSVqVgD8lvHxnsK9fP9m7Wp2AqB6Fdm/sQUJSlF+TgOHcy9Kb +l9YlLX1G9QjQuyIu35NKourfkjGDVAK2nzOuaMRmf2fdYhkQ0CAs8bUEe0td +RH2HMQGJQR/fxmEP+D1WfAYEPB26sB6wVzlHGlaYE/Dz3DrZTdgmFla2JTQC +0j4fuqWIHS9LnsyxIoDv1AfdPykkquQvup5hQ4D8MyGbSez+icgHKbYEOOX0 +T/ZhGzdKd151xPM/i/naiO1VQo5ccCLgro6ZejX21bQivrN7CVCpy5orxCaD +rfXCnAngMbQ2ScIW9VhjGehKQG7apfwrS3nW/e6+BwlINvTNPbv0/LpTlz0O +E/DFl9c0cKmPkM19Zy8CDnZWdHsv5c2uqXJiEHBbVIjn8FJeX3+LLUEAJWG+ +2Hkpr7l4cKcPAWGDMaO7l/pVnPoFvgTsTr//ZNdS/n0bqa1+BBjYH1q2cyn/ +KkXb0J+AR6nlX2EpP3zAbFMgAaCbQ9uGLcIocdYMJiCuStfQGHuzQ3SAaigB +/Iv2xQZL+Vt2nVcIw/tTLfj0L+wr6jLplHACWC9dd27CfirGLhWPIMBmjOap +i933s+SNcBQBUnKvBXSW8oei+5ZHE5BH7TPSxjZ6v2vhTwwB2Zo3prSw/wdU +vsxy + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk0VVscB3AkyVDGriEyl6m8a4gG+4dbhkxpMkRx7z0kmZMQDU+lQdFg +iCRDEiFkrKdIXnkhFKVch0uZyXRvqrf9cdZZn7XX+a7vb++zzlH2CnBi8vHw +8JD4WroHvdu4vqL1nak0fV7DbBMXmY5nG3rRCpCQSkoiYLMyjG6q0WpRSdbF +TlNsR8Z/AiL6r5AnvXFiK3ZJeEz9clozyti4p28zdlyjTF1MfhvSUNfLp2JX +tQbdXaR2oq+VHjY62MOf3kSdrOlCo4WsF2rYcmxVtzmLHpQrVym2FnvXRJRJ +SHMvuuQ9ZCSB/XxxWDg8vw9ZOQQZrMD+cIYS+dS/H9V+dV75cyMXjQvQhmeo +bPQjNLN8DFvgSqCL/vwgotTbm/RiK4qnNwXVfEMXmxk3W7Dt5edyxy1GkUNV +T2sBNnFPZY2u4DjiM7V6koIdo+4Qe7R5AqXWbToai91F6fgrNH8KhcbF0V2w +Ga6+R25cmUbVvIJZZtiTaTyZT/x/oBU9ctUbsAVVdMWmqLPILVM24IcuF91k +1FuKSc+hInsp0Y/YSg9cYjbNz6F0su5sFbaxzvnxYzUL6FqT42wEto9Rb/Ow +xSIa+Ye2MKHDRTPhx/mFNH4hx6RXe99gn64R3qYp+BuNVpvHZWEng/Ej7+Y/ +aLeOe4QTNiOniRaczwu/Tu2Jvq/NRfmNN1hn5PmADbN3QrAnhzyiEq7wwUON +6QQL7Cit2dJi/2VwsYO6gqWF+xYpq05Ql0Nt7wEZYexPraPPf2cth8psZ+57 +Tdx/usJ1lbQACL9aX56CXWBgn6g7LwAbnwWWq2I3VEXw+tUIQuz7KFJzAxfN +1rf3frMQgT/5vL9/q3ORhK2IWORzEeCcylB5jK3XQQNRE1Eo88oec8P2HSi/ +99fGVRASbn+iVI2LAvma9baLiMGZF5oHnVS5iK3yeCp2ThxWVSTFOijh/SHe +rGzRl4BP3TKK39dxEd+jQWWZIAl4m9TrcQZbSX+dU/6IBFxObeguVOQiV4vr +T96xJIFVUFo5t5aLWujBIZS30tCn3bDFSpaLvj6Iv3xYcA3QSm18mmW4aHQk +P+vhjjUQoEkHB2yh0P72rXVr4ErbyKQjhYtof+81OFxOATnDvgM0aS6qzjaa +zcuQBQGpQa8RMS7KZnPDtoQqQPyeC0VbV3CR1b4LX0MKFeDf4+OJ9wRwfoPk +zsJBBeD2/7ObH9sgW0dayUURvAIcvZr48X56eZQuN10HWfy8HeZ8XDQ9wTrx +7ZwSnND1Vub9xUGSx2hlpXYqIDHt8yR7ioMGs4V8HH1VIPX3OXf2JAdV9rTK +j51XgYvpksNq2Adt3c9p1KmAbQcz7944B2VrhzmlUFVB3bbmn0sjHGQw/GAy +mqIGXect4zTZHLTXW1jXpk8ddimxKDc+chAK20c98EsdqiIvtpd94CCt2IzN +DFkN4HUtO9vZyUE8Wfrm0bs1oOHtmVrJDg4q/Op24MkLDVAZCcg+18pBAvsL +zsjdXw+L+Q4Rf/2L+9HsPgx7aYLqQNdkYxUHyatci7k8oAOvhYgjQ0kcVHtp +RpPDpwsSv7bcLLqN+/9w6SCUdYGqXHQ77BYH3W1Q0zT30IUgu3FV3hscpOJd +/X7hoy4k82v5CsbjfgVsdeLtRribk8bpPcdBCvKKhJKLHgS+f9Ze7s9BOjmh +Ij8RFRLHhz9ImHFQZrCaY3mzIfB411ysZS2g1jC0+e8cE3B7NMnyPbKAlD06 +7d39toMxLbJHcWgeMf88faxwEoB/mNcmmz6PKCOVKyhe5tDUcTpwS/McCtXf +1pOoRYORERZBN55DXmOLTZLDO8D91GD5sqxZVGgesiKjxRJyk0TrS37NoOwZ +3xcFN62hu95nos9zBi2YyfzXELMLdDxYG9oqf6AvPMum+jztQEsk8Y6g1A/k +vzbg+hlVB9jm3kWJiJpGj4801d2KdYTVjWMDjM9TKOKH7Lz2kd3AH/2ufcBq +Cs3a7Nz/+pATqOnHrxQqmkQmbglm7N17IF3X8lOkwiR6L5vu26C/F2LbulfN +GU4gudxztXkb9sGlNusRyvpxVMnSsrUX3Q//NWj3TRiOIcWOSe+wsf2w3/ij +VdXeUaR/K6Egi3UAYvaFZaw8NoLS+X9sTKx3hsLgUMOCe8PoqdmmT7FVLtD7 +MLme0/IdJW++JL6Y7wrgra7dtfo7avmcc17/ihuIm/7sfOf9DZXbpakFnj4I +Bb+1eiOeDaGpY3t4/BnuEJ3qJu2hOYRmd2r6jFt4gKjKi8uU+4Mob6x7IcTo +EGz5ZKdMkRtEzpk5dHeRw7Bzeuwofw4blT7ZdWjZhcMwYR3LDddjIxP595w4 +zmFoesWIkf5vAKmyvD+1HfGESfH4NuPQATQgfNQhrd8Twi+qftZQGECt8fZ0 +y31e0JO67Ti9ox/dDM8QPt7qBeWptMbL8fi/9PwPh25NB2p3W9xnp360+iBc +0K+mQzRzsW5UpR8pSb1uWVtLhyADKQVdbL1mOxmB53TYld7P56/cj5y2uT3s +ekGHWr+oo1PrcP7asLen/sXrC+5Fv9f2I7kvj1Y3ddGhWdVkgUrpR2oelOSD +83TI7rtrzifSj0wOj+fFGjAgfnn4cZN5EuWmTIbYGzGgOq3dPXeORFLt06YU +Ywbwaf+skcQe3zHfkbeVAWG917onZkj8PeDhbTZngE3bYnLhNIlWzYu7SOxm +gKCRpwoaJ9HAVcOVGccYsOeRj041m0S7X2/u8A5gwPqiZXWG2M95tmToBTFg +0eVcU8kAiVJCTA1fhjLghJm08aN+Etm7WHqyIxkw873helYfiarUXKq0LzGA +Sg9Ryf9CoviaqCOVuQx4e9Y0ZdUHEh2jJpmE5+H+pdkidzpJZPuwZKVxPgOK +W1In1mMLJQ0+rChkALt2Hb9FB4ligx2Hn5YxQMt2lIh+T6IoTbWj5S8ZkLsy +c5VQC4l8k976PfnKgBXFa+tCm0hkvWpwWzCLAQU2z+RWY2+I5RGlkgxQa0UD +D1+TaDDYsLCEzQABqw/1rEYSedpnjBWPMoC/s6ZszysSOS8P8S/iMiA8QcLF +/iWJLEPkAgvWMEHNd/+l27Ukeplx3iZRhgmqXH7LzdjbmqfVwuWY8GFHbGxX +DYn01N92WygyYe+dgQtrsWU/Rlp8VmeCcvnZzPwqEo1s+bJGyJAJt6gnVXuf +kuga371n3nuY0DPwYvvDEjz/JpFku31MWDizX8sV+2+38GD9A0yQyaMkC2OH +lzmu/+PKBFO2yHxAMe5P8Cbc9mLCug3mL02LSKT/xovxKogJTwe+xc0UkOhj +grqw6nUmxC2a1tXlkegxEvX5lsCEtJLGn7HYf4/NNBTeYAJBOj3YhU21bog2 +TmICLdPPvusBPj8e+rTdXSZ82+7UM5dLop0B97rDC/D8VI8ZqxwSKShcNDJ9 +zIQG/paN0tgzbwJuLCtmglLKmu6+bBLd10B28aVMSPVadyoK+9eXL3VZ1Ux4 +sv0dX0UWicps5fPeNTHBVc+Xz+w+iS5z+ZbffMMEvzZJEylsr7xhT5dmJgyA +X+9QJonE+KvlB1qY8NxZKfI6tl+N8zXOByZU2u0fH7xHIlWt22FqbCYo7JN8 +mZdBIu7HU+3fB5lw9nvm9Fns1limXtE3JrCUniW6Y0f3GQybjDJBpTJBWQr7 +U3K7u8MPJhyIiz55/i6JEleI74jgJUCiok3sdDqJaqe/uIUuIyB/0TrfHXvo +S36w/3ICiPcZ77Zibyuj3fNaSQBvwOcKThp+3w6H/7QRJyBC54BIFLaY7Q6J +HZIE1AWfXnTH3rpZQhNJEzBTFnYCsK+LFuzXlyVg/upL0RVL69W9JfLKBBRv +zK5JvUMiIqegSVqVgD8lvHxnsK9fP9m7Wp2AqB6Fdm/sQUJSlF+TgOHcy9Kb +l9YlLX1G9QjQuyIu35NKourfkjGDVAK2nzOuaMRmf2fdYhkQ0CAs8bUEe0td +RH2HMQGJQR/fxmEP+D1WfAYEPB26sB6wVzlHGlaYE/Dz3DrZTdgmFla2JTQC +0j4fuqWIHS9LnsyxIoDv1AfdPykkquQvup5hQ4D8MyGbSez+icgHKbYEOOX0 +T/ZhGzdKd151xPM/i/naiO1VQo5ccCLgro6ZejX21bQivrN7CVCpy5orxCaD +rfXCnAngMbQ2ScIW9VhjGehKQG7apfwrS3nW/e6+BwlINvTNPbv0/LpTlz0O +E/DFl9c0cKmPkM19Zy8CDnZWdHsv5c2uqXJiEHBbVIjn8FJeX3+LLUEAJWG+ +2Hkpr7l4cKcPAWGDMaO7l/pVnPoFvgTsTr//ZNdS/n0bqa1+BBjYH1q2cyn/ +KkXb0J+AR6nlX2EpP3zAbFMgAaCbQ9uGLcIocdYMJiCuStfQGHuzQ3SAaigB +/Iv2xQZL+Vt2nVcIw/tTLfj0L+wr6jLplHACWC9dd27CfirGLhWPIMBmjOap +i933s+SNcBQBUnKvBXSW8oei+5ZHE5BH7TPSxjZ6v2vhTwwB2Zo3prSw/wdU +vsxy + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5811972349413748, 1.636536743366553}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5811972349413761}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.5811972349413748, 1.636536743366553}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5811972349413761}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk0VVscB3AkyVDGriEyl6m8a4gG+4dbhkxpMkRx7z0kmZMQDU+lQdFg +iCRDEiFkrKdIXnkhFKVch0uZyXRvqrf9cdZZn7XX+a7vb++zzlH2CnBi8vHw +8JD4WroHvdu4vqL1nak0fV7DbBMXmY5nG3rRCpCQSkoiYLMyjG6q0WpRSdbF +TlNsR8Z/AiL6r5AnvXFiK3ZJeEz9clozyti4p28zdlyjTF1MfhvSUNfLp2JX +tQbdXaR2oq+VHjY62MOf3kSdrOlCo4WsF2rYcmxVtzmLHpQrVym2FnvXRJRJ +SHMvuuQ9ZCSB/XxxWDg8vw9ZOQQZrMD+cIYS+dS/H9V+dV75cyMXjQvQhmeo +bPQjNLN8DFvgSqCL/vwgotTbm/RiK4qnNwXVfEMXmxk3W7Dt5edyxy1GkUNV +T2sBNnFPZY2u4DjiM7V6koIdo+4Qe7R5AqXWbToai91F6fgrNH8KhcbF0V2w +Ga6+R25cmUbVvIJZZtiTaTyZT/x/oBU9ctUbsAVVdMWmqLPILVM24IcuF91k +1FuKSc+hInsp0Y/YSg9cYjbNz6F0su5sFbaxzvnxYzUL6FqT42wEto9Rb/Ow +xSIa+Ye2MKHDRTPhx/mFNH4hx6RXe99gn64R3qYp+BuNVpvHZWEng/Ej7+Y/ +aLeOe4QTNiOniRaczwu/Tu2Jvq/NRfmNN1hn5PmADbN3QrAnhzyiEq7wwUON +6QQL7Cit2dJi/2VwsYO6gqWF+xYpq05Ql0Nt7wEZYexPraPPf2cth8psZ+57 +Tdx/usJ1lbQACL9aX56CXWBgn6g7LwAbnwWWq2I3VEXw+tUIQuz7KFJzAxfN +1rf3frMQgT/5vL9/q3ORhK2IWORzEeCcylB5jK3XQQNRE1Eo88oec8P2HSi/ +99fGVRASbn+iVI2LAvma9baLiMGZF5oHnVS5iK3yeCp2ThxWVSTFOijh/SHe +rGzRl4BP3TKK39dxEd+jQWWZIAl4m9TrcQZbSX+dU/6IBFxObeguVOQiV4vr +T96xJIFVUFo5t5aLWujBIZS30tCn3bDFSpaLvj6Iv3xYcA3QSm18mmW4aHQk +P+vhjjUQoEkHB2yh0P72rXVr4ErbyKQjhYtof+81OFxOATnDvgM0aS6qzjaa +zcuQBQGpQa8RMS7KZnPDtoQqQPyeC0VbV3CR1b4LX0MKFeDf4+OJ9wRwfoPk +zsJBBeD2/7ObH9sgW0dayUURvAIcvZr48X56eZQuN10HWfy8HeZ8XDQ9wTrx +7ZwSnND1Vub9xUGSx2hlpXYqIDHt8yR7ioMGs4V8HH1VIPX3OXf2JAdV9rTK +j51XgYvpksNq2Adt3c9p1KmAbQcz7944B2VrhzmlUFVB3bbmn0sjHGQw/GAy +mqIGXect4zTZHLTXW1jXpk8ddimxKDc+chAK20c98EsdqiIvtpd94CCt2IzN +DFkN4HUtO9vZyUE8Wfrm0bs1oOHtmVrJDg4q/Op24MkLDVAZCcg+18pBAvsL +zsjdXw+L+Q4Rf/2L+9HsPgx7aYLqQNdkYxUHyatci7k8oAOvhYgjQ0kcVHtp +RpPDpwsSv7bcLLqN+/9w6SCUdYGqXHQ77BYH3W1Q0zT30IUgu3FV3hscpOJd +/X7hoy4k82v5CsbjfgVsdeLtRribk8bpPcdBCvKKhJKLHgS+f9Ze7s9BOjmh +Ij8RFRLHhz9ImHFQZrCaY3mzIfB411ysZS2g1jC0+e8cE3B7NMnyPbKAlD06 +7d39toMxLbJHcWgeMf88faxwEoB/mNcmmz6PKCOVKyhe5tDUcTpwS/McCtXf +1pOoRYORERZBN55DXmOLTZLDO8D91GD5sqxZVGgesiKjxRJyk0TrS37NoOwZ +3xcFN62hu95nos9zBi2YyfzXELMLdDxYG9oqf6AvPMum+jztQEsk8Y6g1A/k +vzbg+hlVB9jm3kWJiJpGj4801d2KdYTVjWMDjM9TKOKH7Lz2kd3AH/2ufcBq +Cs3a7Nz/+pATqOnHrxQqmkQmbglm7N17IF3X8lOkwiR6L5vu26C/F2LbulfN +GU4gudxztXkb9sGlNusRyvpxVMnSsrUX3Q//NWj3TRiOIcWOSe+wsf2w3/ij +VdXeUaR/K6Egi3UAYvaFZaw8NoLS+X9sTKx3hsLgUMOCe8PoqdmmT7FVLtD7 +MLme0/IdJW++JL6Y7wrgra7dtfo7avmcc17/ihuIm/7sfOf9DZXbpakFnj4I +Bb+1eiOeDaGpY3t4/BnuEJ3qJu2hOYRmd2r6jFt4gKjKi8uU+4Mob6x7IcTo +EGz5ZKdMkRtEzpk5dHeRw7Bzeuwofw4blT7ZdWjZhcMwYR3LDddjIxP595w4 +zmFoesWIkf5vAKmyvD+1HfGESfH4NuPQATQgfNQhrd8Twi+qftZQGECt8fZ0 +y31e0JO67Ti9ox/dDM8QPt7qBeWptMbL8fi/9PwPh25NB2p3W9xnp360+iBc +0K+mQzRzsW5UpR8pSb1uWVtLhyADKQVdbL1mOxmB53TYld7P56/cj5y2uT3s +ekGHWr+oo1PrcP7asLen/sXrC+5Fv9f2I7kvj1Y3ddGhWdVkgUrpR2oelOSD +83TI7rtrzifSj0wOj+fFGjAgfnn4cZN5EuWmTIbYGzGgOq3dPXeORFLt06YU +Ywbwaf+skcQe3zHfkbeVAWG917onZkj8PeDhbTZngE3bYnLhNIlWzYu7SOxm +gKCRpwoaJ9HAVcOVGccYsOeRj041m0S7X2/u8A5gwPqiZXWG2M95tmToBTFg +0eVcU8kAiVJCTA1fhjLghJm08aN+Etm7WHqyIxkw873helYfiarUXKq0LzGA +Sg9Ryf9CoviaqCOVuQx4e9Y0ZdUHEh2jJpmE5+H+pdkidzpJZPuwZKVxPgOK +W1In1mMLJQ0+rChkALt2Hb9FB4ligx2Hn5YxQMt2lIh+T6IoTbWj5S8ZkLsy +c5VQC4l8k976PfnKgBXFa+tCm0hkvWpwWzCLAQU2z+RWY2+I5RGlkgxQa0UD +D1+TaDDYsLCEzQABqw/1rEYSedpnjBWPMoC/s6ZszysSOS8P8S/iMiA8QcLF +/iWJLEPkAgvWMEHNd/+l27Ukeplx3iZRhgmqXH7LzdjbmqfVwuWY8GFHbGxX +DYn01N92WygyYe+dgQtrsWU/Rlp8VmeCcvnZzPwqEo1s+bJGyJAJt6gnVXuf +kuga371n3nuY0DPwYvvDEjz/JpFku31MWDizX8sV+2+38GD9A0yQyaMkC2OH +lzmu/+PKBFO2yHxAMe5P8Cbc9mLCug3mL02LSKT/xovxKogJTwe+xc0UkOhj +grqw6nUmxC2a1tXlkegxEvX5lsCEtJLGn7HYf4/NNBTeYAJBOj3YhU21bog2 +TmICLdPPvusBPj8e+rTdXSZ82+7UM5dLop0B97rDC/D8VI8ZqxwSKShcNDJ9 +zIQG/paN0tgzbwJuLCtmglLKmu6+bBLd10B28aVMSPVadyoK+9eXL3VZ1Ux4 +sv0dX0UWicps5fPeNTHBVc+Xz+w+iS5z+ZbffMMEvzZJEylsr7xhT5dmJgyA +X+9QJonE+KvlB1qY8NxZKfI6tl+N8zXOByZU2u0fH7xHIlWt22FqbCYo7JN8 +mZdBIu7HU+3fB5lw9nvm9Fns1limXtE3JrCUniW6Y0f3GQybjDJBpTJBWQr7 +U3K7u8MPJhyIiz55/i6JEleI74jgJUCiok3sdDqJaqe/uIUuIyB/0TrfHXvo +S36w/3ICiPcZ77Zibyuj3fNaSQBvwOcKThp+3w6H/7QRJyBC54BIFLaY7Q6J +HZIE1AWfXnTH3rpZQhNJEzBTFnYCsK+LFuzXlyVg/upL0RVL69W9JfLKBBRv +zK5JvUMiIqegSVqVgD8lvHxnsK9fP9m7Wp2AqB6Fdm/sQUJSlF+TgOHcy9Kb +l9YlLX1G9QjQuyIu35NKourfkjGDVAK2nzOuaMRmf2fdYhkQ0CAs8bUEe0td +RH2HMQGJQR/fxmEP+D1WfAYEPB26sB6wVzlHGlaYE/Dz3DrZTdgmFla2JTQC +0j4fuqWIHS9LnsyxIoDv1AfdPykkquQvup5hQ4D8MyGbSez+icgHKbYEOOX0 +T/ZhGzdKd151xPM/i/naiO1VQo5ccCLgro6ZejX21bQivrN7CVCpy5orxCaD +rfXCnAngMbQ2ScIW9VhjGehKQG7apfwrS3nW/e6+BwlINvTNPbv0/LpTlz0O +E/DFl9c0cKmPkM19Zy8CDnZWdHsv5c2uqXJiEHBbVIjn8FJeX3+LLUEAJWG+ +2Hkpr7l4cKcPAWGDMaO7l/pVnPoFvgTsTr//ZNdS/n0bqa1+BBjYH1q2cyn/ +KkXb0J+AR6nlX2EpP3zAbFMgAaCbQ9uGLcIocdYMJiCuStfQGHuzQ3SAaigB +/Iv2xQZL+Vt2nVcIw/tTLfj0L+wr6jLplHACWC9dd27CfirGLhWPIMBmjOap +i933s+SNcBQBUnKvBXSW8oei+5ZHE5BH7TPSxjZ6v2vhTwwB2Zo3prSw/wdU +vsxy + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5811972349413748, 1.636536743366553}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5811972349413761}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.5811972349413761}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "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.5811972349413748, 1.636536743366553}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913301734961166`*^9, 3.992121007296318*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"2c672264-c8ae-9d4d-9750-b86d3469ec4e"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991844910383686*^9, {3.9918455278812733`*^9, 3.9918455284898663`*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"76321b6a-1af8-9c49-b2f7-d5c92a8c63b6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6478013659855937`*^-266\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 120, + 830, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913301737143345`*^9, 3.992121007631632*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"58e6db52-d858-5742-b3af-14f4d923527b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.582665025988064`*^-278\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 120, + 831, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913301737143345`*^9, 3.9921210076526318`*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"8673a462-97ab-d84a-b5f0-7378dab66454"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.274475138443221`*^-289\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 120, 832, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913301737143345`*^9, 3.992121007672636*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"ef5e08fd-7e28-3945-9140-4163d07b2afc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 120, 833, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913301737143345`*^9, 3.992121007691639*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"102667df-5b40-2846-92e5-35434e23c4e6"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4VG8UB3AhIRXZx8ydGZR9ayIh70khLSpLSVKkUkkiEkpk30WRfStF +trmXkqWSUraIUqHFVmnPzxbxe/vrPp/nuc+9750553sO2/mk1SFeHh4ewQU8 +PP+umeedBXRc0o2L3A+M0dqNjRu7WFt3s84i3RCb67Pr6Wj+cf1FFisSLTH6 +zalbr44y78cyF7KuIvq03pKU9UbIbZ33iUnmTWR5sHfDsfVbUdeMa/JPZjW6 +3RMr+A0c0KLeAaVvzKfIp81cQRy5odzm7FNfmK/REfd7BnfXBKDSssheN81R +NMQf+j3cNBYdQZ1Xv3qOoWdh50P1Ui4j92GVQap0Gpkaej1KMcpAwuwQpXf6 +PPAtyNfidmouihNtUc09wAdiFyzDE7kFyLnX5h5fqwDoBA3vPPiuEJ16FOJ8 +UkkYhN5seTn2uAhVeIhYy1gsgTDNX04/zEpQrv/xUe3dorCws7e0s64MBWfP +7vzvqxj0lQcsFB4pRzxd76HWTxxkXFYvcnhagUI+1+f6BYnDuJOp5e/WCiTE +k8m7NkIc7F7lW4R1VKDlGnsaKy+Lg0CSr0NhTwVaEd5pXlYuDmY2n762DVeg +zYYNlnkj4sA+TcbeWsBFSfn5DhFWElBpzYovXcNFK08f9rVRlYTijgLVugwu +0jB4Z52tLQmai/48jM7motU8dlqjepLwe12KrV0eF5nEWIwEbpCEG7UuTl8K +ucixQN2m2EES5hrOyU5zuehK928t3nhJsPE6PMd9wkULdQM/lo1JQv/tuQ05 +v7lIZGay4c+0JFxNedSiMc5Fyx94ZJnySMG2nfs2V09yEWubs22viBQohHxS +a57lIqNDpg8FVkpB1MaBwC4BEp2+vDh7n50U8N3ScQ2hkWhoPGXX4jopcNdy +4OwHEuWt53j1P5SCq7aL3veZkGh/bHt8WbMUpMuYK9uZkuiN4sKn1q+kYPRY +brT5ZhJ1WnsaZoxJgdLSwiwhGxLVV2xlaahKg4/A3TnaERKlnFgwapkiDVIB +VgJe0SSyqc4QYGdJw4JHZUYFsSRavlBfYaxAGmqqvES74kkUl+HukMKVhrN1 +kQkqySQKaeltf9cmDQ/fBI5XZ5DIQ6WK9OCXgQuaxa6uJSTaPHzs3KVTMnDR +bV3dbCuJzM4p3NroKwPrjVJnXrWTyESy783EeRn47CLyi9tBIgPTbfp7Y2RA +cVv7ggPdJFK9pjWmUCgDByTK6rN6SbT40H+ulX0yoNYw+7j0M4lah87ZvDKX +Bb1NGdo0fgo9CdC7GGUpC1JmN7NKFlKoUeJHhZGtLMyoCD01XkSh2o0HluU6 +ywJ/SYi1vTCFbhWYNB89JwvXu15u9BGlUKzLIpjhysJdnZxH6+kUshxKUCMI +GjREdt5VXkWhVrWhbgdFGpw4GvVyH4dCW7zWnE9XpcEPycU8iasptIn3bYfM +Ghqo31I790uPQiYsNR/xHTQQsD+1It2QQroOj+4LBtNgaPPGvYkbKUTlyxwz +j6CB6/ng44WmFFr15bh4WBwNFA2bY2rMKKTpt/wwXzoNvors5Hu7iULKqfsX +z5E02JVg/njxNgrRu6dtx4ZpMCKq/ELYlkJpctvmdb7S4KCYoSjvLgrJHsy5 +4fGbBo36Q/snsaV+m818m6OB19qRdX12FBIVTc75JC0Hv4t0Z+IcKMS3VfNL +v4UceMOu8tSDFBp96HzhSYkcfKkSqDf2oBAz8dWxOEoOQvyPlgueopCNo6Wt +TY0czKnJHOvArp9aq/r+iRxc7KlcvceLQpc0xLonB+XAmIjX3uFDIcOUe0pK +NDpMsd6IdvtTyMNFd/k3Fh08VdJy/QIodF2neJarRIeqjA3zxDl8vtYrnca6 +dHgk1yTvdJ5CQzzu/rt20OGLS5dEywUKxRyjPwsNo4OL+uYp3VAKPVhzqXpL +LB1eOfOHVGNP8AsWiCXTYSIhf8AgjEIHssd8M3PpILiTTlsTTqHV3c3ylbV0 +uF3RGyAZSaGjubDE/yEdaD7ZReHYWe5Vk9BMB3MX19JJbEGhvNbWHjoQ0Tlr +O6Mo1L/urM/Qbzq4ruk/eiyGQssX/zhQNE0HYcEZqxbsTa9ctnjwMKCu3EZS +NZZCXM8drNklDGjx26f0ATusUKlZXIUBE+2mMbrxFKo5nUm91mKAf8f9zaHY +P9eLZ2frMWC7X+Pwc2z7vjkvtY0MOFOynDySgOtD7CVjw34GLHudUnUmkUIj +sSPBlw8xwOP65CYudqbw5MePx/H9qTsXfMEW4ZfhxvgyoHrHnuFdl3B/XFCW +fneeAevc7opFYfv/1Q/QCWUAuSvgUA326MQes5eJDLgkFBMik0ShPK9jxcqp +DHBQi9+xEXvPTz9R/ywG5LTvM3XHfvI5/Q2zmAHqS1qKarEDD99CnhUM6FjA +pn/A1husLWi8zYCDqhW3+ZIpdK2v3/1oIwM0Qn+5b8B22PO9q6aZAYkie6MP +YEu8nNNf2smAqVOnuvyxW6yWZR3oYUDW30Tzy9jBz5h8ZD8DkvVon25hG2zV +dl04xIC0gSOVDdi/nkDb7lEG8Aq8LnuJfcN056qinwyIG2zp+YR9oMEpZXaC +ARazWRrT2DLIc9byLwOOLquoWHSZQs9qgp1y+QjQojm5SGCH6Sc9HhMioHH3 +UjMmtnFlvpqZKAG09TK7lbEndKiEVCkCGmLepmhhl5Q2jo/SCWjXfCCoi+2i +9sJ+nQIBlB2rSB+bfmP4XrwKASpnHQIMsLsVJxQHtAj4Y/gy8J+jcwWiVusR +8F/kd+rf/SaE9I8wIwKqIwTo/573J03J5rUJATlpgZX/3seV1q9WsyAgzbEm +6N95jiZvIs5vJ4C3XC7o33lZYnsudtgSEHGdl/r3Pa9ij36SdyBg8ZXnNEHs +BGG/bd7OBJxa+r3y3+9hHh7FbXIlIKH3duhn7Dm+dGnaSQJm+JOierCrLhQH +uHkT8LNtoPEh9om/NR/q/QnQqRTWLcVW9Gs1EwsmoPe0e+8V7CSvb6JVcfj7 +Ys+2OmNv/vnXW/AyAbYXP0ubYfOeWNprn05AXsTKdCVsj8Na1+YLCYgMSt88 +jOtHeRAJW5USkD+SeeYB9rv9O04WUPi8xrxv07Et95xaa/GAgGcqEXZbsAVe +BmWlNxGgyuNzgoVdZ3WJ73sbAectHevGcH2rbyXbLr0hYK919bLL2MJo3Klv +jICV0QORDbhffNcrC1b9ISA81flmyL/+2rC3NH4BE6TuddzZiN2w6cEfk2VM +WHkm+mY97kc/q9ikm6pMSHeW+XAV9+snm/trL+owwXikIG4L9q7dY+8c9JmQ +lbZdeyYO573DHnVRMyZ0WTGsbLC/HFrxyMeJCT6P/IjvOD/sXe2O73BlAiOg +xz8e+8mxaDHVk0z4FX25UxO74OSvff0BTPDqd3A9Eo3752zdxIZUJiyLN7C6 +j/OqNcZWWewZE9i3dBPFcP4ZxEe0j75gQiVvT+UlnI83EmtON/YxQTgupVcM +O+QK+8GZUSa8TS9TFw6hENExof6DlwW1QX3/DQRR6OXrhke2BAt2qkun6+J8 +XrK3L7WBzYKC1+MSKTi/N/aNH9dawYKqvqnUCZzv3LfKy4XUWXAttepBmR+F +4gbjHGvXsuDBVdXrwr64vr7ZT8rbskAkKNPooCfOW4mLXYF2LFhkYCF1E8+T +/wyLy/r2skCdXCH5Dc+fnKiZI1ecWaBaUxxy8iSuf6WMV0IeLAiaTTZwdMPz +3Lm/+mcUCySPDwUOHsLz49X+gPr7LFBOjXVL3E2hw/PhdnKNLHiXyliYiedh +7cry1b5NLHCTUXhxHc/Po94833TaWfCsdphRaY3/3+W5+671siDG8bZz7XYK +nd42YBwzwQKhnuvrfMxx/zS4LLBXZ0P0jLRLuu6/vH5DO6fFBmpRgelFvA8s +erB9dc4qNnya8yw6ivcFvXsGR0b02cAO6Z7X0aFQco1om6cpGwyiIj+Wq1No +O1WbGu3Ihr+tW2iuChR6fE1Cuy6BDXeJuwn3llHorWKUxfskNjQR3Oe+Syk0 +nj/vzJfChimphTe0l+B+yxu9bJHJhsGwpqUZeL8Jzro/8+ImG2qspXqd8D5k +nOLW9L2BDVLX5z/c/EOiyohGR9Y4G4qSjTZpDZHoxuYWmfApNhje7c7JGCBR +msjz599m8Pm9bQ4IfiDRhYR3ZjW88qCddEeqt59EW1P/aO4SlYd1hX1eJ3pI +NFCoPR+tJg/TqTZhZs0kWtqUkT3pJA80TeWn7aUkOrzQ+317uzwk8SjKOnqR +iMZ82jPTKQ+G7VpV0adI1K7PeKb8Qh6eMp9J3DlJIj23R3XBvfLQtGaZ7BI3 +Egl0SabrfZKHO6GR2264kOhaTpVt1gIFeEM3Gcm3xfuy4VTzidUKwL3A95rU +I9FBT/9KkTQFsBcwENiN93GtI2rtW50UwXEk984NVy56tlx9sffaFTC577jm +qXsVqKY0OF2dbyV4ln2y3SdRgfwXqO5o7V8Jf2fawXx7ORLu89vkTimBD3X6 +pqFQGRq+zk7ODlCGArX4KMuLJShZWZa/2lYFaveWLFbqLkYJaYebnFiqkDd0 +sG94XRGyT97XLvJRFVhfnJSSym6gqY3XprPr1UBXeSr2GW8hGhw28W0IV4dV +q7NqZn2vobx1OnJtThrQQ7YYtvbko5JQb7EjGpowL5l7tm5fHgq3PbiFb1wT +VLJl4+9N5iDdvtyb4W1a0FS69nW+QDZKVUkvaduiDfLNx2LfnMxAgfdjU7dU +a8PX+cattKaraJuc7bVmRR0gIsQ6dK1S0Hr3pr1ikTrgLJlinaZ2GWXTnRVb +x3Vg9d9DHmvnLiHFh4VXLPeuApX6Hx1jtESUoNGg+rx+FYwUSTN/Po5Dh8f4 +O5+qcsCs/aKNlV00cq74zYqM58AMm1+ixDUCuQVbz25O5EBeyL10eYcI5G1N +9YgkcSDBW0wsc3sEihj3jku4wgEBdPt+jl4EKl07PZOSyYFmjTzZQf4INP1g +/uX1Yg7stJfqt8oLRwnPRWIbmzjg2OY02vM+DKXln3ANe8qBx4pfLT53h6H8 +0+0bNrVwgGkk6Tv/JAxVSSX8aWnngCvbzMigIgz12Yu7dr3gQPwXuU2fg8KQ +0qDshoFBDsyWzkarK4YhbcqPKBjGzwvsdYiSCUMGob3Thz5y4P5nna9fRcLQ +VqXM8s+jHNiyR8Pk/ngo8jzOIn794kCxRHZpdlMoCjAKmuaOccDp57ldCrWh +KHTJQPfpcQ7cuHeVKi4PRall+dFTUxzgDTwY33w1FOVd4D9y9w8HAhhzQk5x +oah45yGTgFkObF1SpjcbHIoo+ccM4zkObCCPS2ScCUX1Yyun5+c5ICmhkgdu +oeh/kySF+Q== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VG8UB3AhIRXZx8ydGZR9ayIh70khLSpLSVKkUkkiEkpk30WRfStF +trmXkqWSUraIUqHFVmnPzxbxe/vrPp/nuc+9750553sO2/mk1SFeHh4ewQU8 +PP+umeedBXRc0o2L3A+M0dqNjRu7WFt3s84i3RCb67Pr6Wj+cf1FFisSLTH6 +zalbr44y78cyF7KuIvq03pKU9UbIbZ33iUnmTWR5sHfDsfVbUdeMa/JPZjW6 +3RMr+A0c0KLeAaVvzKfIp81cQRy5odzm7FNfmK/REfd7BnfXBKDSssheN81R +NMQf+j3cNBYdQZ1Xv3qOoWdh50P1Ui4j92GVQap0Gpkaej1KMcpAwuwQpXf6 +PPAtyNfidmouihNtUc09wAdiFyzDE7kFyLnX5h5fqwDoBA3vPPiuEJ16FOJ8 +UkkYhN5seTn2uAhVeIhYy1gsgTDNX04/zEpQrv/xUe3dorCws7e0s64MBWfP +7vzvqxj0lQcsFB4pRzxd76HWTxxkXFYvcnhagUI+1+f6BYnDuJOp5e/WCiTE +k8m7NkIc7F7lW4R1VKDlGnsaKy+Lg0CSr0NhTwVaEd5pXlYuDmY2n762DVeg +zYYNlnkj4sA+TcbeWsBFSfn5DhFWElBpzYovXcNFK08f9rVRlYTijgLVugwu +0jB4Z52tLQmai/48jM7motU8dlqjepLwe12KrV0eF5nEWIwEbpCEG7UuTl8K +ucixQN2m2EES5hrOyU5zuehK928t3nhJsPE6PMd9wkULdQM/lo1JQv/tuQ05 +v7lIZGay4c+0JFxNedSiMc5Fyx94ZJnySMG2nfs2V09yEWubs22viBQohHxS +a57lIqNDpg8FVkpB1MaBwC4BEp2+vDh7n50U8N3ScQ2hkWhoPGXX4jopcNdy +4OwHEuWt53j1P5SCq7aL3veZkGh/bHt8WbMUpMuYK9uZkuiN4sKn1q+kYPRY +brT5ZhJ1WnsaZoxJgdLSwiwhGxLVV2xlaahKg4/A3TnaERKlnFgwapkiDVIB +VgJe0SSyqc4QYGdJw4JHZUYFsSRavlBfYaxAGmqqvES74kkUl+HukMKVhrN1 +kQkqySQKaeltf9cmDQ/fBI5XZ5DIQ6WK9OCXgQuaxa6uJSTaPHzs3KVTMnDR +bV3dbCuJzM4p3NroKwPrjVJnXrWTyESy783EeRn47CLyi9tBIgPTbfp7Y2RA +cVv7ggPdJFK9pjWmUCgDByTK6rN6SbT40H+ulX0yoNYw+7j0M4lah87ZvDKX +Bb1NGdo0fgo9CdC7GGUpC1JmN7NKFlKoUeJHhZGtLMyoCD01XkSh2o0HluU6 +ywJ/SYi1vTCFbhWYNB89JwvXu15u9BGlUKzLIpjhysJdnZxH6+kUshxKUCMI +GjREdt5VXkWhVrWhbgdFGpw4GvVyH4dCW7zWnE9XpcEPycU8iasptIn3bYfM +Ghqo31I790uPQiYsNR/xHTQQsD+1It2QQroOj+4LBtNgaPPGvYkbKUTlyxwz +j6CB6/ng44WmFFr15bh4WBwNFA2bY2rMKKTpt/wwXzoNvors5Hu7iULKqfsX +z5E02JVg/njxNgrRu6dtx4ZpMCKq/ELYlkJpctvmdb7S4KCYoSjvLgrJHsy5 +4fGbBo36Q/snsaV+m818m6OB19qRdX12FBIVTc75JC0Hv4t0Z+IcKMS3VfNL +v4UceMOu8tSDFBp96HzhSYkcfKkSqDf2oBAz8dWxOEoOQvyPlgueopCNo6Wt +TY0czKnJHOvArp9aq/r+iRxc7KlcvceLQpc0xLonB+XAmIjX3uFDIcOUe0pK +NDpMsd6IdvtTyMNFd/k3Fh08VdJy/QIodF2neJarRIeqjA3zxDl8vtYrnca6 +dHgk1yTvdJ5CQzzu/rt20OGLS5dEywUKxRyjPwsNo4OL+uYp3VAKPVhzqXpL +LB1eOfOHVGNP8AsWiCXTYSIhf8AgjEIHssd8M3PpILiTTlsTTqHV3c3ylbV0 +uF3RGyAZSaGjubDE/yEdaD7ZReHYWe5Vk9BMB3MX19JJbEGhvNbWHjoQ0Tlr +O6Mo1L/urM/Qbzq4ruk/eiyGQssX/zhQNE0HYcEZqxbsTa9ctnjwMKCu3EZS +NZZCXM8drNklDGjx26f0ATusUKlZXIUBE+2mMbrxFKo5nUm91mKAf8f9zaHY +P9eLZ2frMWC7X+Pwc2z7vjkvtY0MOFOynDySgOtD7CVjw34GLHudUnUmkUIj +sSPBlw8xwOP65CYudqbw5MePx/H9qTsXfMEW4ZfhxvgyoHrHnuFdl3B/XFCW +fneeAevc7opFYfv/1Q/QCWUAuSvgUA326MQes5eJDLgkFBMik0ShPK9jxcqp +DHBQi9+xEXvPTz9R/ywG5LTvM3XHfvI5/Q2zmAHqS1qKarEDD99CnhUM6FjA +pn/A1husLWi8zYCDqhW3+ZIpdK2v3/1oIwM0Qn+5b8B22PO9q6aZAYkie6MP +YEu8nNNf2smAqVOnuvyxW6yWZR3oYUDW30Tzy9jBz5h8ZD8DkvVon25hG2zV +dl04xIC0gSOVDdi/nkDb7lEG8Aq8LnuJfcN056qinwyIG2zp+YR9oMEpZXaC +ARazWRrT2DLIc9byLwOOLquoWHSZQs9qgp1y+QjQojm5SGCH6Sc9HhMioHH3 +UjMmtnFlvpqZKAG09TK7lbEndKiEVCkCGmLepmhhl5Q2jo/SCWjXfCCoi+2i +9sJ+nQIBlB2rSB+bfmP4XrwKASpnHQIMsLsVJxQHtAj4Y/gy8J+jcwWiVusR +8F/kd+rf/SaE9I8wIwKqIwTo/573J03J5rUJATlpgZX/3seV1q9WsyAgzbEm +6N95jiZvIs5vJ4C3XC7o33lZYnsudtgSEHGdl/r3Pa9ij36SdyBg8ZXnNEHs +BGG/bd7OBJxa+r3y3+9hHh7FbXIlIKH3duhn7Dm+dGnaSQJm+JOierCrLhQH +uHkT8LNtoPEh9om/NR/q/QnQqRTWLcVW9Gs1EwsmoPe0e+8V7CSvb6JVcfj7 +Ys+2OmNv/vnXW/AyAbYXP0ubYfOeWNprn05AXsTKdCVsj8Na1+YLCYgMSt88 +jOtHeRAJW5USkD+SeeYB9rv9O04WUPi8xrxv07Et95xaa/GAgGcqEXZbsAVe +BmWlNxGgyuNzgoVdZ3WJ73sbAectHevGcH2rbyXbLr0hYK919bLL2MJo3Klv +jICV0QORDbhffNcrC1b9ISA81flmyL/+2rC3NH4BE6TuddzZiN2w6cEfk2VM +WHkm+mY97kc/q9ikm6pMSHeW+XAV9+snm/trL+owwXikIG4L9q7dY+8c9JmQ +lbZdeyYO573DHnVRMyZ0WTGsbLC/HFrxyMeJCT6P/IjvOD/sXe2O73BlAiOg +xz8e+8mxaDHVk0z4FX25UxO74OSvff0BTPDqd3A9Eo3752zdxIZUJiyLN7C6 +j/OqNcZWWewZE9i3dBPFcP4ZxEe0j75gQiVvT+UlnI83EmtON/YxQTgupVcM +O+QK+8GZUSa8TS9TFw6hENExof6DlwW1QX3/DQRR6OXrhke2BAt2qkun6+J8 +XrK3L7WBzYKC1+MSKTi/N/aNH9dawYKqvqnUCZzv3LfKy4XUWXAttepBmR+F +4gbjHGvXsuDBVdXrwr64vr7ZT8rbskAkKNPooCfOW4mLXYF2LFhkYCF1E8+T +/wyLy/r2skCdXCH5Dc+fnKiZI1ecWaBaUxxy8iSuf6WMV0IeLAiaTTZwdMPz +3Lm/+mcUCySPDwUOHsLz49X+gPr7LFBOjXVL3E2hw/PhdnKNLHiXyliYiedh +7cry1b5NLHCTUXhxHc/Po94833TaWfCsdphRaY3/3+W5+671siDG8bZz7XYK +nd42YBwzwQKhnuvrfMxx/zS4LLBXZ0P0jLRLuu6/vH5DO6fFBmpRgelFvA8s +erB9dc4qNnya8yw6ivcFvXsGR0b02cAO6Z7X0aFQco1om6cpGwyiIj+Wq1No +O1WbGu3Ihr+tW2iuChR6fE1Cuy6BDXeJuwn3llHorWKUxfskNjQR3Oe+Syk0 +nj/vzJfChimphTe0l+B+yxu9bJHJhsGwpqUZeL8Jzro/8+ImG2qspXqd8D5k +nOLW9L2BDVLX5z/c/EOiyohGR9Y4G4qSjTZpDZHoxuYWmfApNhje7c7JGCBR +msjz599m8Pm9bQ4IfiDRhYR3ZjW88qCddEeqt59EW1P/aO4SlYd1hX1eJ3pI +NFCoPR+tJg/TqTZhZs0kWtqUkT3pJA80TeWn7aUkOrzQ+317uzwk8SjKOnqR +iMZ82jPTKQ+G7VpV0adI1K7PeKb8Qh6eMp9J3DlJIj23R3XBvfLQtGaZ7BI3 +Egl0SabrfZKHO6GR2264kOhaTpVt1gIFeEM3Gcm3xfuy4VTzidUKwL3A95rU +I9FBT/9KkTQFsBcwENiN93GtI2rtW50UwXEk984NVy56tlx9sffaFTC577jm +qXsVqKY0OF2dbyV4ln2y3SdRgfwXqO5o7V8Jf2fawXx7ORLu89vkTimBD3X6 +pqFQGRq+zk7ODlCGArX4KMuLJShZWZa/2lYFaveWLFbqLkYJaYebnFiqkDd0 +sG94XRGyT97XLvJRFVhfnJSSym6gqY3XprPr1UBXeSr2GW8hGhw28W0IV4dV +q7NqZn2vobx1OnJtThrQQ7YYtvbko5JQb7EjGpowL5l7tm5fHgq3PbiFb1wT +VLJl4+9N5iDdvtyb4W1a0FS69nW+QDZKVUkvaduiDfLNx2LfnMxAgfdjU7dU +a8PX+cattKaraJuc7bVmRR0gIsQ6dK1S0Hr3pr1ikTrgLJlinaZ2GWXTnRVb +x3Vg9d9DHmvnLiHFh4VXLPeuApX6Hx1jtESUoNGg+rx+FYwUSTN/Po5Dh8f4 +O5+qcsCs/aKNlV00cq74zYqM58AMm1+ixDUCuQVbz25O5EBeyL10eYcI5G1N +9YgkcSDBW0wsc3sEihj3jku4wgEBdPt+jl4EKl07PZOSyYFmjTzZQf4INP1g +/uX1Yg7stJfqt8oLRwnPRWIbmzjg2OY02vM+DKXln3ANe8qBx4pfLT53h6H8 +0+0bNrVwgGkk6Tv/JAxVSSX8aWnngCvbzMigIgz12Yu7dr3gQPwXuU2fg8KQ +0qDshoFBDsyWzkarK4YhbcqPKBjGzwvsdYiSCUMGob3Thz5y4P5nna9fRcLQ +VqXM8s+jHNiyR8Pk/ngo8jzOIn794kCxRHZpdlMoCjAKmuaOccDp57ldCrWh +KHTJQPfpcQ7cuHeVKi4PRall+dFTUxzgDTwY33w1FOVd4D9y9w8HAhhzQk5x +oah45yGTgFkObF1SpjcbHIoo+ccM4zkObCCPS2ScCUX1Yyun5+c5ICmhkgdu +oeh/kySF+Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08040204640404616}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08040204640404616}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VG8UB3AhIRXZx8ydGZR9ayIh70khLSpLSVKkUkkiEkpk30WRfStF +trmXkqWSUraIUqHFVmnPzxbxe/vrPp/nuc+9750553sO2/mk1SFeHh4ewQU8 +PP+umeedBXRc0o2L3A+M0dqNjRu7WFt3s84i3RCb67Pr6Wj+cf1FFisSLTH6 +zalbr44y78cyF7KuIvq03pKU9UbIbZ33iUnmTWR5sHfDsfVbUdeMa/JPZjW6 +3RMr+A0c0KLeAaVvzKfIp81cQRy5odzm7FNfmK/REfd7BnfXBKDSssheN81R +NMQf+j3cNBYdQZ1Xv3qOoWdh50P1Ui4j92GVQap0Gpkaej1KMcpAwuwQpXf6 +PPAtyNfidmouihNtUc09wAdiFyzDE7kFyLnX5h5fqwDoBA3vPPiuEJ16FOJ8 +UkkYhN5seTn2uAhVeIhYy1gsgTDNX04/zEpQrv/xUe3dorCws7e0s64MBWfP +7vzvqxj0lQcsFB4pRzxd76HWTxxkXFYvcnhagUI+1+f6BYnDuJOp5e/WCiTE +k8m7NkIc7F7lW4R1VKDlGnsaKy+Lg0CSr0NhTwVaEd5pXlYuDmY2n762DVeg +zYYNlnkj4sA+TcbeWsBFSfn5DhFWElBpzYovXcNFK08f9rVRlYTijgLVugwu +0jB4Z52tLQmai/48jM7motU8dlqjepLwe12KrV0eF5nEWIwEbpCEG7UuTl8K +ucixQN2m2EES5hrOyU5zuehK928t3nhJsPE6PMd9wkULdQM/lo1JQv/tuQ05 +v7lIZGay4c+0JFxNedSiMc5Fyx94ZJnySMG2nfs2V09yEWubs22viBQohHxS +a57lIqNDpg8FVkpB1MaBwC4BEp2+vDh7n50U8N3ScQ2hkWhoPGXX4jopcNdy +4OwHEuWt53j1P5SCq7aL3veZkGh/bHt8WbMUpMuYK9uZkuiN4sKn1q+kYPRY +brT5ZhJ1WnsaZoxJgdLSwiwhGxLVV2xlaahKg4/A3TnaERKlnFgwapkiDVIB +VgJe0SSyqc4QYGdJw4JHZUYFsSRavlBfYaxAGmqqvES74kkUl+HukMKVhrN1 +kQkqySQKaeltf9cmDQ/fBI5XZ5DIQ6WK9OCXgQuaxa6uJSTaPHzs3KVTMnDR +bV3dbCuJzM4p3NroKwPrjVJnXrWTyESy783EeRn47CLyi9tBIgPTbfp7Y2RA +cVv7ggPdJFK9pjWmUCgDByTK6rN6SbT40H+ulX0yoNYw+7j0M4lah87ZvDKX +Bb1NGdo0fgo9CdC7GGUpC1JmN7NKFlKoUeJHhZGtLMyoCD01XkSh2o0HluU6 +ywJ/SYi1vTCFbhWYNB89JwvXu15u9BGlUKzLIpjhysJdnZxH6+kUshxKUCMI +GjREdt5VXkWhVrWhbgdFGpw4GvVyH4dCW7zWnE9XpcEPycU8iasptIn3bYfM +Ghqo31I790uPQiYsNR/xHTQQsD+1It2QQroOj+4LBtNgaPPGvYkbKUTlyxwz +j6CB6/ng44WmFFr15bh4WBwNFA2bY2rMKKTpt/wwXzoNvors5Hu7iULKqfsX +z5E02JVg/njxNgrRu6dtx4ZpMCKq/ELYlkJpctvmdb7S4KCYoSjvLgrJHsy5 +4fGbBo36Q/snsaV+m818m6OB19qRdX12FBIVTc75JC0Hv4t0Z+IcKMS3VfNL +v4UceMOu8tSDFBp96HzhSYkcfKkSqDf2oBAz8dWxOEoOQvyPlgueopCNo6Wt +TY0czKnJHOvArp9aq/r+iRxc7KlcvceLQpc0xLonB+XAmIjX3uFDIcOUe0pK +NDpMsd6IdvtTyMNFd/k3Fh08VdJy/QIodF2neJarRIeqjA3zxDl8vtYrnca6 +dHgk1yTvdJ5CQzzu/rt20OGLS5dEywUKxRyjPwsNo4OL+uYp3VAKPVhzqXpL +LB1eOfOHVGNP8AsWiCXTYSIhf8AgjEIHssd8M3PpILiTTlsTTqHV3c3ylbV0 +uF3RGyAZSaGjubDE/yEdaD7ZReHYWe5Vk9BMB3MX19JJbEGhvNbWHjoQ0Tlr +O6Mo1L/urM/Qbzq4ruk/eiyGQssX/zhQNE0HYcEZqxbsTa9ctnjwMKCu3EZS +NZZCXM8drNklDGjx26f0ATusUKlZXIUBE+2mMbrxFKo5nUm91mKAf8f9zaHY +P9eLZ2frMWC7X+Pwc2z7vjkvtY0MOFOynDySgOtD7CVjw34GLHudUnUmkUIj +sSPBlw8xwOP65CYudqbw5MePx/H9qTsXfMEW4ZfhxvgyoHrHnuFdl3B/XFCW +fneeAevc7opFYfv/1Q/QCWUAuSvgUA326MQes5eJDLgkFBMik0ShPK9jxcqp +DHBQi9+xEXvPTz9R/ywG5LTvM3XHfvI5/Q2zmAHqS1qKarEDD99CnhUM6FjA +pn/A1husLWi8zYCDqhW3+ZIpdK2v3/1oIwM0Qn+5b8B22PO9q6aZAYkie6MP +YEu8nNNf2smAqVOnuvyxW6yWZR3oYUDW30Tzy9jBz5h8ZD8DkvVon25hG2zV +dl04xIC0gSOVDdi/nkDb7lEG8Aq8LnuJfcN056qinwyIG2zp+YR9oMEpZXaC +ARazWRrT2DLIc9byLwOOLquoWHSZQs9qgp1y+QjQojm5SGCH6Sc9HhMioHH3 +UjMmtnFlvpqZKAG09TK7lbEndKiEVCkCGmLepmhhl5Q2jo/SCWjXfCCoi+2i +9sJ+nQIBlB2rSB+bfmP4XrwKASpnHQIMsLsVJxQHtAj4Y/gy8J+jcwWiVusR +8F/kd+rf/SaE9I8wIwKqIwTo/573J03J5rUJATlpgZX/3seV1q9WsyAgzbEm +6N95jiZvIs5vJ4C3XC7o33lZYnsudtgSEHGdl/r3Pa9ij36SdyBg8ZXnNEHs +BGG/bd7OBJxa+r3y3+9hHh7FbXIlIKH3duhn7Dm+dGnaSQJm+JOierCrLhQH +uHkT8LNtoPEh9om/NR/q/QnQqRTWLcVW9Gs1EwsmoPe0e+8V7CSvb6JVcfj7 +Ys+2OmNv/vnXW/AyAbYXP0ubYfOeWNprn05AXsTKdCVsj8Na1+YLCYgMSt88 +jOtHeRAJW5USkD+SeeYB9rv9O04WUPi8xrxv07Et95xaa/GAgGcqEXZbsAVe +BmWlNxGgyuNzgoVdZ3WJ73sbAectHevGcH2rbyXbLr0hYK919bLL2MJo3Klv +jICV0QORDbhffNcrC1b9ISA81flmyL/+2rC3NH4BE6TuddzZiN2w6cEfk2VM +WHkm+mY97kc/q9ikm6pMSHeW+XAV9+snm/trL+owwXikIG4L9q7dY+8c9JmQ +lbZdeyYO573DHnVRMyZ0WTGsbLC/HFrxyMeJCT6P/IjvOD/sXe2O73BlAiOg +xz8e+8mxaDHVk0z4FX25UxO74OSvff0BTPDqd3A9Eo3752zdxIZUJiyLN7C6 +j/OqNcZWWewZE9i3dBPFcP4ZxEe0j75gQiVvT+UlnI83EmtON/YxQTgupVcM +O+QK+8GZUSa8TS9TFw6hENExof6DlwW1QX3/DQRR6OXrhke2BAt2qkun6+J8 +XrK3L7WBzYKC1+MSKTi/N/aNH9dawYKqvqnUCZzv3LfKy4XUWXAttepBmR+F +4gbjHGvXsuDBVdXrwr64vr7ZT8rbskAkKNPooCfOW4mLXYF2LFhkYCF1E8+T +/wyLy/r2skCdXCH5Dc+fnKiZI1ecWaBaUxxy8iSuf6WMV0IeLAiaTTZwdMPz +3Lm/+mcUCySPDwUOHsLz49X+gPr7LFBOjXVL3E2hw/PhdnKNLHiXyliYiedh +7cry1b5NLHCTUXhxHc/Po94833TaWfCsdphRaY3/3+W5+671siDG8bZz7XYK +nd42YBwzwQKhnuvrfMxx/zS4LLBXZ0P0jLRLuu6/vH5DO6fFBmpRgelFvA8s +erB9dc4qNnya8yw6ivcFvXsGR0b02cAO6Z7X0aFQco1om6cpGwyiIj+Wq1No +O1WbGu3Ihr+tW2iuChR6fE1Cuy6BDXeJuwn3llHorWKUxfskNjQR3Oe+Syk0 +nj/vzJfChimphTe0l+B+yxu9bJHJhsGwpqUZeL8Jzro/8+ImG2qspXqd8D5k +nOLW9L2BDVLX5z/c/EOiyohGR9Y4G4qSjTZpDZHoxuYWmfApNhje7c7JGCBR +msjz599m8Pm9bQ4IfiDRhYR3ZjW88qCddEeqt59EW1P/aO4SlYd1hX1eJ3pI +NFCoPR+tJg/TqTZhZs0kWtqUkT3pJA80TeWn7aUkOrzQ+317uzwk8SjKOnqR +iMZ82jPTKQ+G7VpV0adI1K7PeKb8Qh6eMp9J3DlJIj23R3XBvfLQtGaZ7BI3 +Egl0SabrfZKHO6GR2264kOhaTpVt1gIFeEM3Gcm3xfuy4VTzidUKwL3A95rU +I9FBT/9KkTQFsBcwENiN93GtI2rtW50UwXEk984NVy56tlx9sffaFTC577jm +qXsVqKY0OF2dbyV4ln2y3SdRgfwXqO5o7V8Jf2fawXx7ORLu89vkTimBD3X6 +pqFQGRq+zk7ODlCGArX4KMuLJShZWZa/2lYFaveWLFbqLkYJaYebnFiqkDd0 +sG94XRGyT97XLvJRFVhfnJSSym6gqY3XprPr1UBXeSr2GW8hGhw28W0IV4dV +q7NqZn2vobx1OnJtThrQQ7YYtvbko5JQb7EjGpowL5l7tm5fHgq3PbiFb1wT +VLJl4+9N5iDdvtyb4W1a0FS69nW+QDZKVUkvaduiDfLNx2LfnMxAgfdjU7dU +a8PX+cattKaraJuc7bVmRR0gIsQ6dK1S0Hr3pr1ikTrgLJlinaZ2GWXTnRVb +x3Vg9d9DHmvnLiHFh4VXLPeuApX6Hx1jtESUoNGg+rx+FYwUSTN/Po5Dh8f4 +O5+qcsCs/aKNlV00cq74zYqM58AMm1+ixDUCuQVbz25O5EBeyL10eYcI5G1N +9YgkcSDBW0wsc3sEihj3jku4wgEBdPt+jl4EKl07PZOSyYFmjTzZQf4INP1g +/uX1Yg7stJfqt8oLRwnPRWIbmzjg2OY02vM+DKXln3ANe8qBx4pfLT53h6H8 +0+0bNrVwgGkk6Tv/JAxVSSX8aWnngCvbzMigIgz12Yu7dr3gQPwXuU2fg8KQ +0qDshoFBDsyWzkarK4YhbcqPKBjGzwvsdYiSCUMGob3Thz5y4P5nna9fRcLQ +VqXM8s+jHNiyR8Pk/ngo8jzOIn794kCxRHZpdlMoCjAKmuaOccDp57ldCrWh +KHTJQPfpcQ7cuHeVKi4PRall+dFTUxzgDTwY33w1FOVd4D9y9w8HAhhzQk5x +oah45yGTgFkObF1SpjcbHIoo+ccM4zkObCCPS2ScCUX1Yyun5+c5ICmhkgdu +oeh/kySF+Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08040204640404616}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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, 20}, {0., 0.08040204640404616}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913306567510605`*^9, 3.9921216422973022`*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"42594ac5-80c7-5949-ac5f-97593bb5a779"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917971206132183`*^9, 3.9917971229936733`*^9}}, + CellLabel-> + "In[121]:=",ExpressionUUID->"17d8d20d-a69d-c241-a4b7-c5ab6913db6c"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4VG8UB3AhIRXZx8ydGZR9ayIh70khLSpLSVKkUkkiEkpk30WRfStF +trmXkqWSUraIUqHFVmnPzxbxe/vrPp/nuc+9750553sO2/mk1SFeHh4ewQU8 +PP+umeedBXRc0o2L3A+M0dqNjRu7WFt3s84i3RCb67Pr6Wj+cf1FFisSLTH6 +zalbr44y78cyF7KuIvq03pKU9UbIbZ33iUnmTWR5sHfDsfVbUdeMa/JPZjW6 +3RMr+A0c0KLeAaVvzKfIp81cQRy5odzm7FNfmK/REfd7BnfXBKDSssheN81R +NMQf+j3cNBYdQZ1Xv3qOoWdh50P1Ui4j92GVQap0Gpkaej1KMcpAwuwQpXf6 +PPAtyNfidmouihNtUc09wAdiFyzDE7kFyLnX5h5fqwDoBA3vPPiuEJ16FOJ8 +UkkYhN5seTn2uAhVeIhYy1gsgTDNX04/zEpQrv/xUe3dorCws7e0s64MBWfP +7vzvqxj0lQcsFB4pRzxd76HWTxxkXFYvcnhagUI+1+f6BYnDuJOp5e/WCiTE +k8m7NkIc7F7lW4R1VKDlGnsaKy+Lg0CSr0NhTwVaEd5pXlYuDmY2n762DVeg +zYYNlnkj4sA+TcbeWsBFSfn5DhFWElBpzYovXcNFK08f9rVRlYTijgLVugwu +0jB4Z52tLQmai/48jM7motU8dlqjepLwe12KrV0eF5nEWIwEbpCEG7UuTl8K +ucixQN2m2EES5hrOyU5zuehK928t3nhJsPE6PMd9wkULdQM/lo1JQv/tuQ05 +v7lIZGay4c+0JFxNedSiMc5Fyx94ZJnySMG2nfs2V09yEWubs22viBQohHxS +a57lIqNDpg8FVkpB1MaBwC4BEp2+vDh7n50U8N3ScQ2hkWhoPGXX4jopcNdy +4OwHEuWt53j1P5SCq7aL3veZkGh/bHt8WbMUpMuYK9uZkuiN4sKn1q+kYPRY +brT5ZhJ1WnsaZoxJgdLSwiwhGxLVV2xlaahKg4/A3TnaERKlnFgwapkiDVIB +VgJe0SSyqc4QYGdJw4JHZUYFsSRavlBfYaxAGmqqvES74kkUl+HukMKVhrN1 +kQkqySQKaeltf9cmDQ/fBI5XZ5DIQ6WK9OCXgQuaxa6uJSTaPHzs3KVTMnDR +bV3dbCuJzM4p3NroKwPrjVJnXrWTyESy783EeRn47CLyi9tBIgPTbfp7Y2RA +cVv7ggPdJFK9pjWmUCgDByTK6rN6SbT40H+ulX0yoNYw+7j0M4lah87ZvDKX +Bb1NGdo0fgo9CdC7GGUpC1JmN7NKFlKoUeJHhZGtLMyoCD01XkSh2o0HluU6 +ywJ/SYi1vTCFbhWYNB89JwvXu15u9BGlUKzLIpjhysJdnZxH6+kUshxKUCMI +GjREdt5VXkWhVrWhbgdFGpw4GvVyH4dCW7zWnE9XpcEPycU8iasptIn3bYfM +Ghqo31I790uPQiYsNR/xHTQQsD+1It2QQroOj+4LBtNgaPPGvYkbKUTlyxwz +j6CB6/ng44WmFFr15bh4WBwNFA2bY2rMKKTpt/wwXzoNvors5Hu7iULKqfsX +z5E02JVg/njxNgrRu6dtx4ZpMCKq/ELYlkJpctvmdb7S4KCYoSjvLgrJHsy5 +4fGbBo36Q/snsaV+m818m6OB19qRdX12FBIVTc75JC0Hv4t0Z+IcKMS3VfNL +v4UceMOu8tSDFBp96HzhSYkcfKkSqDf2oBAz8dWxOEoOQvyPlgueopCNo6Wt +TY0czKnJHOvArp9aq/r+iRxc7KlcvceLQpc0xLonB+XAmIjX3uFDIcOUe0pK +NDpMsd6IdvtTyMNFd/k3Fh08VdJy/QIodF2neJarRIeqjA3zxDl8vtYrnca6 +dHgk1yTvdJ5CQzzu/rt20OGLS5dEywUKxRyjPwsNo4OL+uYp3VAKPVhzqXpL +LB1eOfOHVGNP8AsWiCXTYSIhf8AgjEIHssd8M3PpILiTTlsTTqHV3c3ylbV0 +uF3RGyAZSaGjubDE/yEdaD7ZReHYWe5Vk9BMB3MX19JJbEGhvNbWHjoQ0Tlr +O6Mo1L/urM/Qbzq4ruk/eiyGQssX/zhQNE0HYcEZqxbsTa9ctnjwMKCu3EZS +NZZCXM8drNklDGjx26f0ATusUKlZXIUBE+2mMbrxFKo5nUm91mKAf8f9zaHY +P9eLZ2frMWC7X+Pwc2z7vjkvtY0MOFOynDySgOtD7CVjw34GLHudUnUmkUIj +sSPBlw8xwOP65CYudqbw5MePx/H9qTsXfMEW4ZfhxvgyoHrHnuFdl3B/XFCW +fneeAevc7opFYfv/1Q/QCWUAuSvgUA326MQes5eJDLgkFBMik0ShPK9jxcqp +DHBQi9+xEXvPTz9R/ywG5LTvM3XHfvI5/Q2zmAHqS1qKarEDD99CnhUM6FjA +pn/A1husLWi8zYCDqhW3+ZIpdK2v3/1oIwM0Qn+5b8B22PO9q6aZAYkie6MP +YEu8nNNf2smAqVOnuvyxW6yWZR3oYUDW30Tzy9jBz5h8ZD8DkvVon25hG2zV +dl04xIC0gSOVDdi/nkDb7lEG8Aq8LnuJfcN056qinwyIG2zp+YR9oMEpZXaC +ARazWRrT2DLIc9byLwOOLquoWHSZQs9qgp1y+QjQojm5SGCH6Sc9HhMioHH3 +UjMmtnFlvpqZKAG09TK7lbEndKiEVCkCGmLepmhhl5Q2jo/SCWjXfCCoi+2i +9sJ+nQIBlB2rSB+bfmP4XrwKASpnHQIMsLsVJxQHtAj4Y/gy8J+jcwWiVusR +8F/kd+rf/SaE9I8wIwKqIwTo/573J03J5rUJATlpgZX/3seV1q9WsyAgzbEm +6N95jiZvIs5vJ4C3XC7o33lZYnsudtgSEHGdl/r3Pa9ij36SdyBg8ZXnNEHs +BGG/bd7OBJxa+r3y3+9hHh7FbXIlIKH3duhn7Dm+dGnaSQJm+JOierCrLhQH +uHkT8LNtoPEh9om/NR/q/QnQqRTWLcVW9Gs1EwsmoPe0e+8V7CSvb6JVcfj7 +Ys+2OmNv/vnXW/AyAbYXP0ubYfOeWNprn05AXsTKdCVsj8Na1+YLCYgMSt88 +jOtHeRAJW5USkD+SeeYB9rv9O04WUPi8xrxv07Et95xaa/GAgGcqEXZbsAVe +BmWlNxGgyuNzgoVdZ3WJ73sbAectHevGcH2rbyXbLr0hYK919bLL2MJo3Klv +jICV0QORDbhffNcrC1b9ISA81flmyL/+2rC3NH4BE6TuddzZiN2w6cEfk2VM +WHkm+mY97kc/q9ikm6pMSHeW+XAV9+snm/trL+owwXikIG4L9q7dY+8c9JmQ +lbZdeyYO573DHnVRMyZ0WTGsbLC/HFrxyMeJCT6P/IjvOD/sXe2O73BlAiOg +xz8e+8mxaDHVk0z4FX25UxO74OSvff0BTPDqd3A9Eo3752zdxIZUJiyLN7C6 +j/OqNcZWWewZE9i3dBPFcP4ZxEe0j75gQiVvT+UlnI83EmtON/YxQTgupVcM +O+QK+8GZUSa8TS9TFw6hENExof6DlwW1QX3/DQRR6OXrhke2BAt2qkun6+J8 +XrK3L7WBzYKC1+MSKTi/N/aNH9dawYKqvqnUCZzv3LfKy4XUWXAttepBmR+F +4gbjHGvXsuDBVdXrwr64vr7ZT8rbskAkKNPooCfOW4mLXYF2LFhkYCF1E8+T +/wyLy/r2skCdXCH5Dc+fnKiZI1ecWaBaUxxy8iSuf6WMV0IeLAiaTTZwdMPz +3Lm/+mcUCySPDwUOHsLz49X+gPr7LFBOjXVL3E2hw/PhdnKNLHiXyliYiedh +7cry1b5NLHCTUXhxHc/Po94833TaWfCsdphRaY3/3+W5+671siDG8bZz7XYK +nd42YBwzwQKhnuvrfMxx/zS4LLBXZ0P0jLRLuu6/vH5DO6fFBmpRgelFvA8s +erB9dc4qNnya8yw6ivcFvXsGR0b02cAO6Z7X0aFQco1om6cpGwyiIj+Wq1No +O1WbGu3Ihr+tW2iuChR6fE1Cuy6BDXeJuwn3llHorWKUxfskNjQR3Oe+Syk0 +nj/vzJfChimphTe0l+B+yxu9bJHJhsGwpqUZeL8Jzro/8+ImG2qspXqd8D5k +nOLW9L2BDVLX5z/c/EOiyohGR9Y4G4qSjTZpDZHoxuYWmfApNhje7c7JGCBR +msjz599m8Pm9bQ4IfiDRhYR3ZjW88qCddEeqt59EW1P/aO4SlYd1hX1eJ3pI +NFCoPR+tJg/TqTZhZs0kWtqUkT3pJA80TeWn7aUkOrzQ+317uzwk8SjKOnqR +iMZ82jPTKQ+G7VpV0adI1K7PeKb8Qh6eMp9J3DlJIj23R3XBvfLQtGaZ7BI3 +Egl0SabrfZKHO6GR2264kOhaTpVt1gIFeEM3Gcm3xfuy4VTzidUKwL3A95rU +I9FBT/9KkTQFsBcwENiN93GtI2rtW50UwXEk984NVy56tlx9sffaFTC577jm +qXsVqKY0OF2dbyV4ln2y3SdRgfwXqO5o7V8Jf2fawXx7ORLu89vkTimBD3X6 +pqFQGRq+zk7ODlCGArX4KMuLJShZWZa/2lYFaveWLFbqLkYJaYebnFiqkDd0 +sG94XRGyT97XLvJRFVhfnJSSym6gqY3XprPr1UBXeSr2GW8hGhw28W0IV4dV +q7NqZn2vobx1OnJtThrQQ7YYtvbko5JQb7EjGpowL5l7tm5fHgq3PbiFb1wT +VLJl4+9N5iDdvtyb4W1a0FS69nW+QDZKVUkvaduiDfLNx2LfnMxAgfdjU7dU +a8PX+cattKaraJuc7bVmRR0gIsQ6dK1S0Hr3pr1ikTrgLJlinaZ2GWXTnRVb +x3Vg9d9DHmvnLiHFh4VXLPeuApX6Hx1jtESUoNGg+rx+FYwUSTN/Po5Dh8f4 +O5+qcsCs/aKNlV00cq74zYqM58AMm1+ixDUCuQVbz25O5EBeyL10eYcI5G1N +9YgkcSDBW0wsc3sEihj3jku4wgEBdPt+jl4EKl07PZOSyYFmjTzZQf4INP1g +/uX1Yg7stJfqt8oLRwnPRWIbmzjg2OY02vM+DKXln3ANe8qBx4pfLT53h6H8 +0+0bNrVwgGkk6Tv/JAxVSSX8aWnngCvbzMigIgz12Yu7dr3gQPwXuU2fg8KQ +0qDshoFBDsyWzkarK4YhbcqPKBjGzwvsdYiSCUMGob3Thz5y4P5nna9fRcLQ +VqXM8s+jHNiyR8Pk/ngo8jzOIn794kCxRHZpdlMoCjAKmuaOccDp57ldCrWh +KHTJQPfpcQ7cuHeVKi4PRall+dFTUxzgDTwY33w1FOVd4D9y9w8HAhhzQk5x +oah45yGTgFkObF1SpjcbHIoo+ccM4zkObCCPS2ScCUX1Yyun5+c5ICmhkgdu +oeh/kySF+Q== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VG8UB3AhIRXZx8ydGZR9ayIh70khLSpLSVKkUkkiEkpk30WRfStF +trmXkqWSUraIUqHFVmnPzxbxe/vrPp/nuc+9750553sO2/mk1SFeHh4ewQU8 +PP+umeedBXRc0o2L3A+M0dqNjRu7WFt3s84i3RCb67Pr6Wj+cf1FFisSLTH6 +zalbr44y78cyF7KuIvq03pKU9UbIbZ33iUnmTWR5sHfDsfVbUdeMa/JPZjW6 +3RMr+A0c0KLeAaVvzKfIp81cQRy5odzm7FNfmK/REfd7BnfXBKDSssheN81R +NMQf+j3cNBYdQZ1Xv3qOoWdh50P1Ui4j92GVQap0Gpkaej1KMcpAwuwQpXf6 +PPAtyNfidmouihNtUc09wAdiFyzDE7kFyLnX5h5fqwDoBA3vPPiuEJ16FOJ8 +UkkYhN5seTn2uAhVeIhYy1gsgTDNX04/zEpQrv/xUe3dorCws7e0s64MBWfP +7vzvqxj0lQcsFB4pRzxd76HWTxxkXFYvcnhagUI+1+f6BYnDuJOp5e/WCiTE +k8m7NkIc7F7lW4R1VKDlGnsaKy+Lg0CSr0NhTwVaEd5pXlYuDmY2n762DVeg +zYYNlnkj4sA+TcbeWsBFSfn5DhFWElBpzYovXcNFK08f9rVRlYTijgLVugwu +0jB4Z52tLQmai/48jM7motU8dlqjepLwe12KrV0eF5nEWIwEbpCEG7UuTl8K +ucixQN2m2EES5hrOyU5zuehK928t3nhJsPE6PMd9wkULdQM/lo1JQv/tuQ05 +v7lIZGay4c+0JFxNedSiMc5Fyx94ZJnySMG2nfs2V09yEWubs22viBQohHxS +a57lIqNDpg8FVkpB1MaBwC4BEp2+vDh7n50U8N3ScQ2hkWhoPGXX4jopcNdy +4OwHEuWt53j1P5SCq7aL3veZkGh/bHt8WbMUpMuYK9uZkuiN4sKn1q+kYPRY +brT5ZhJ1WnsaZoxJgdLSwiwhGxLVV2xlaahKg4/A3TnaERKlnFgwapkiDVIB +VgJe0SSyqc4QYGdJw4JHZUYFsSRavlBfYaxAGmqqvES74kkUl+HukMKVhrN1 +kQkqySQKaeltf9cmDQ/fBI5XZ5DIQ6WK9OCXgQuaxa6uJSTaPHzs3KVTMnDR +bV3dbCuJzM4p3NroKwPrjVJnXrWTyESy783EeRn47CLyi9tBIgPTbfp7Y2RA +cVv7ggPdJFK9pjWmUCgDByTK6rN6SbT40H+ulX0yoNYw+7j0M4lah87ZvDKX +Bb1NGdo0fgo9CdC7GGUpC1JmN7NKFlKoUeJHhZGtLMyoCD01XkSh2o0HluU6 +ywJ/SYi1vTCFbhWYNB89JwvXu15u9BGlUKzLIpjhysJdnZxH6+kUshxKUCMI +GjREdt5VXkWhVrWhbgdFGpw4GvVyH4dCW7zWnE9XpcEPycU8iasptIn3bYfM +Ghqo31I790uPQiYsNR/xHTQQsD+1It2QQroOj+4LBtNgaPPGvYkbKUTlyxwz +j6CB6/ng44WmFFr15bh4WBwNFA2bY2rMKKTpt/wwXzoNvors5Hu7iULKqfsX +z5E02JVg/njxNgrRu6dtx4ZpMCKq/ELYlkJpctvmdb7S4KCYoSjvLgrJHsy5 +4fGbBo36Q/snsaV+m818m6OB19qRdX12FBIVTc75JC0Hv4t0Z+IcKMS3VfNL +v4UceMOu8tSDFBp96HzhSYkcfKkSqDf2oBAz8dWxOEoOQvyPlgueopCNo6Wt +TY0czKnJHOvArp9aq/r+iRxc7KlcvceLQpc0xLonB+XAmIjX3uFDIcOUe0pK +NDpMsd6IdvtTyMNFd/k3Fh08VdJy/QIodF2neJarRIeqjA3zxDl8vtYrnca6 +dHgk1yTvdJ5CQzzu/rt20OGLS5dEywUKxRyjPwsNo4OL+uYp3VAKPVhzqXpL +LB1eOfOHVGNP8AsWiCXTYSIhf8AgjEIHssd8M3PpILiTTlsTTqHV3c3ylbV0 +uF3RGyAZSaGjubDE/yEdaD7ZReHYWe5Vk9BMB3MX19JJbEGhvNbWHjoQ0Tlr +O6Mo1L/urM/Qbzq4ruk/eiyGQssX/zhQNE0HYcEZqxbsTa9ctnjwMKCu3EZS +NZZCXM8drNklDGjx26f0ATusUKlZXIUBE+2mMbrxFKo5nUm91mKAf8f9zaHY +P9eLZ2frMWC7X+Pwc2z7vjkvtY0MOFOynDySgOtD7CVjw34GLHudUnUmkUIj +sSPBlw8xwOP65CYudqbw5MePx/H9qTsXfMEW4ZfhxvgyoHrHnuFdl3B/XFCW +fneeAevc7opFYfv/1Q/QCWUAuSvgUA326MQes5eJDLgkFBMik0ShPK9jxcqp +DHBQi9+xEXvPTz9R/ywG5LTvM3XHfvI5/Q2zmAHqS1qKarEDD99CnhUM6FjA +pn/A1husLWi8zYCDqhW3+ZIpdK2v3/1oIwM0Qn+5b8B22PO9q6aZAYkie6MP +YEu8nNNf2smAqVOnuvyxW6yWZR3oYUDW30Tzy9jBz5h8ZD8DkvVon25hG2zV +dl04xIC0gSOVDdi/nkDb7lEG8Aq8LnuJfcN056qinwyIG2zp+YR9oMEpZXaC +ARazWRrT2DLIc9byLwOOLquoWHSZQs9qgp1y+QjQojm5SGCH6Sc9HhMioHH3 +UjMmtnFlvpqZKAG09TK7lbEndKiEVCkCGmLepmhhl5Q2jo/SCWjXfCCoi+2i +9sJ+nQIBlB2rSB+bfmP4XrwKASpnHQIMsLsVJxQHtAj4Y/gy8J+jcwWiVusR +8F/kd+rf/SaE9I8wIwKqIwTo/573J03J5rUJATlpgZX/3seV1q9WsyAgzbEm +6N95jiZvIs5vJ4C3XC7o33lZYnsudtgSEHGdl/r3Pa9ij36SdyBg8ZXnNEHs +BGG/bd7OBJxa+r3y3+9hHh7FbXIlIKH3duhn7Dm+dGnaSQJm+JOierCrLhQH +uHkT8LNtoPEh9om/NR/q/QnQqRTWLcVW9Gs1EwsmoPe0e+8V7CSvb6JVcfj7 +Ys+2OmNv/vnXW/AyAbYXP0ubYfOeWNprn05AXsTKdCVsj8Na1+YLCYgMSt88 +jOtHeRAJW5USkD+SeeYB9rv9O04WUPi8xrxv07Et95xaa/GAgGcqEXZbsAVe +BmWlNxGgyuNzgoVdZ3WJ73sbAectHevGcH2rbyXbLr0hYK919bLL2MJo3Klv +jICV0QORDbhffNcrC1b9ISA81flmyL/+2rC3NH4BE6TuddzZiN2w6cEfk2VM +WHkm+mY97kc/q9ikm6pMSHeW+XAV9+snm/trL+owwXikIG4L9q7dY+8c9JmQ +lbZdeyYO573DHnVRMyZ0WTGsbLC/HFrxyMeJCT6P/IjvOD/sXe2O73BlAiOg +xz8e+8mxaDHVk0z4FX25UxO74OSvff0BTPDqd3A9Eo3752zdxIZUJiyLN7C6 +j/OqNcZWWewZE9i3dBPFcP4ZxEe0j75gQiVvT+UlnI83EmtON/YxQTgupVcM +O+QK+8GZUSa8TS9TFw6hENExof6DlwW1QX3/DQRR6OXrhke2BAt2qkun6+J8 +XrK3L7WBzYKC1+MSKTi/N/aNH9dawYKqvqnUCZzv3LfKy4XUWXAttepBmR+F +4gbjHGvXsuDBVdXrwr64vr7ZT8rbskAkKNPooCfOW4mLXYF2LFhkYCF1E8+T +/wyLy/r2skCdXCH5Dc+fnKiZI1ecWaBaUxxy8iSuf6WMV0IeLAiaTTZwdMPz +3Lm/+mcUCySPDwUOHsLz49X+gPr7LFBOjXVL3E2hw/PhdnKNLHiXyliYiedh +7cry1b5NLHCTUXhxHc/Po94833TaWfCsdphRaY3/3+W5+671siDG8bZz7XYK +nd42YBwzwQKhnuvrfMxx/zS4LLBXZ0P0jLRLuu6/vH5DO6fFBmpRgelFvA8s +erB9dc4qNnya8yw6ivcFvXsGR0b02cAO6Z7X0aFQco1om6cpGwyiIj+Wq1No +O1WbGu3Ihr+tW2iuChR6fE1Cuy6BDXeJuwn3llHorWKUxfskNjQR3Oe+Syk0 +nj/vzJfChimphTe0l+B+yxu9bJHJhsGwpqUZeL8Jzro/8+ImG2qspXqd8D5k +nOLW9L2BDVLX5z/c/EOiyohGR9Y4G4qSjTZpDZHoxuYWmfApNhje7c7JGCBR +msjz599m8Pm9bQ4IfiDRhYR3ZjW88qCddEeqt59EW1P/aO4SlYd1hX1eJ3pI +NFCoPR+tJg/TqTZhZs0kWtqUkT3pJA80TeWn7aUkOrzQ+317uzwk8SjKOnqR +iMZ82jPTKQ+G7VpV0adI1K7PeKb8Qh6eMp9J3DlJIj23R3XBvfLQtGaZ7BI3 +Egl0SabrfZKHO6GR2264kOhaTpVt1gIFeEM3Gcm3xfuy4VTzidUKwL3A95rU +I9FBT/9KkTQFsBcwENiN93GtI2rtW50UwXEk984NVy56tlx9sffaFTC577jm +qXsVqKY0OF2dbyV4ln2y3SdRgfwXqO5o7V8Jf2fawXx7ORLu89vkTimBD3X6 +pqFQGRq+zk7ODlCGArX4KMuLJShZWZa/2lYFaveWLFbqLkYJaYebnFiqkDd0 +sG94XRGyT97XLvJRFVhfnJSSym6gqY3XprPr1UBXeSr2GW8hGhw28W0IV4dV +q7NqZn2vobx1OnJtThrQQ7YYtvbko5JQb7EjGpowL5l7tm5fHgq3PbiFb1wT +VLJl4+9N5iDdvtyb4W1a0FS69nW+QDZKVUkvaduiDfLNx2LfnMxAgfdjU7dU +a8PX+cattKaraJuc7bVmRR0gIsQ6dK1S0Hr3pr1ikTrgLJlinaZ2GWXTnRVb +x3Vg9d9DHmvnLiHFh4VXLPeuApX6Hx1jtESUoNGg+rx+FYwUSTN/Po5Dh8f4 +O5+qcsCs/aKNlV00cq74zYqM58AMm1+ixDUCuQVbz25O5EBeyL10eYcI5G1N +9YgkcSDBW0wsc3sEihj3jku4wgEBdPt+jl4EKl07PZOSyYFmjTzZQf4INP1g +/uX1Yg7stJfqt8oLRwnPRWIbmzjg2OY02vM+DKXln3ANe8qBx4pfLT53h6H8 +0+0bNrVwgGkk6Tv/JAxVSSX8aWnngCvbzMigIgz12Yu7dr3gQPwXuU2fg8KQ +0qDshoFBDsyWzkarK4YhbcqPKBjGzwvsdYiSCUMGob3Thz5y4P5nna9fRcLQ +VqXM8s+jHNiyR8Pk/ngo8jzOIn794kCxRHZpdlMoCjAKmuaOccDp57ldCrWh +KHTJQPfpcQ7cuHeVKi4PRall+dFTUxzgDTwY33w1FOVd4D9y9w8HAhhzQk5x +oah45yGTgFkObF1SpjcbHIoo+ccM4zkObCCPS2ScCUX1Yyun5+c5ICmhkgdu +oeh/kySF+Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08040204640404616}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08040204640404616}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VG8UB3AhIRXZx8ydGZR9ayIh70khLSpLSVKkUkkiEkpk30WRfStF +trmXkqWSUraIUqHFVmnPzxbxe/vrPp/nuc+9750553sO2/mk1SFeHh4ewQU8 +PP+umeedBXRc0o2L3A+M0dqNjRu7WFt3s84i3RCb67Pr6Wj+cf1FFisSLTH6 +zalbr44y78cyF7KuIvq03pKU9UbIbZ33iUnmTWR5sHfDsfVbUdeMa/JPZjW6 +3RMr+A0c0KLeAaVvzKfIp81cQRy5odzm7FNfmK/REfd7BnfXBKDSssheN81R +NMQf+j3cNBYdQZ1Xv3qOoWdh50P1Ui4j92GVQap0Gpkaej1KMcpAwuwQpXf6 +PPAtyNfidmouihNtUc09wAdiFyzDE7kFyLnX5h5fqwDoBA3vPPiuEJ16FOJ8 +UkkYhN5seTn2uAhVeIhYy1gsgTDNX04/zEpQrv/xUe3dorCws7e0s64MBWfP +7vzvqxj0lQcsFB4pRzxd76HWTxxkXFYvcnhagUI+1+f6BYnDuJOp5e/WCiTE +k8m7NkIc7F7lW4R1VKDlGnsaKy+Lg0CSr0NhTwVaEd5pXlYuDmY2n762DVeg +zYYNlnkj4sA+TcbeWsBFSfn5DhFWElBpzYovXcNFK08f9rVRlYTijgLVugwu +0jB4Z52tLQmai/48jM7motU8dlqjepLwe12KrV0eF5nEWIwEbpCEG7UuTl8K +ucixQN2m2EES5hrOyU5zuehK928t3nhJsPE6PMd9wkULdQM/lo1JQv/tuQ05 +v7lIZGay4c+0JFxNedSiMc5Fyx94ZJnySMG2nfs2V09yEWubs22viBQohHxS +a57lIqNDpg8FVkpB1MaBwC4BEp2+vDh7n50U8N3ScQ2hkWhoPGXX4jopcNdy +4OwHEuWt53j1P5SCq7aL3veZkGh/bHt8WbMUpMuYK9uZkuiN4sKn1q+kYPRY +brT5ZhJ1WnsaZoxJgdLSwiwhGxLVV2xlaahKg4/A3TnaERKlnFgwapkiDVIB +VgJe0SSyqc4QYGdJw4JHZUYFsSRavlBfYaxAGmqqvES74kkUl+HukMKVhrN1 +kQkqySQKaeltf9cmDQ/fBI5XZ5DIQ6WK9OCXgQuaxa6uJSTaPHzs3KVTMnDR +bV3dbCuJzM4p3NroKwPrjVJnXrWTyESy783EeRn47CLyi9tBIgPTbfp7Y2RA +cVv7ggPdJFK9pjWmUCgDByTK6rN6SbT40H+ulX0yoNYw+7j0M4lah87ZvDKX +Bb1NGdo0fgo9CdC7GGUpC1JmN7NKFlKoUeJHhZGtLMyoCD01XkSh2o0HluU6 +ywJ/SYi1vTCFbhWYNB89JwvXu15u9BGlUKzLIpjhysJdnZxH6+kUshxKUCMI +GjREdt5VXkWhVrWhbgdFGpw4GvVyH4dCW7zWnE9XpcEPycU8iasptIn3bYfM +Ghqo31I790uPQiYsNR/xHTQQsD+1It2QQroOj+4LBtNgaPPGvYkbKUTlyxwz +j6CB6/ng44WmFFr15bh4WBwNFA2bY2rMKKTpt/wwXzoNvors5Hu7iULKqfsX +z5E02JVg/njxNgrRu6dtx4ZpMCKq/ELYlkJpctvmdb7S4KCYoSjvLgrJHsy5 +4fGbBo36Q/snsaV+m818m6OB19qRdX12FBIVTc75JC0Hv4t0Z+IcKMS3VfNL +v4UceMOu8tSDFBp96HzhSYkcfKkSqDf2oBAz8dWxOEoOQvyPlgueopCNo6Wt +TY0czKnJHOvArp9aq/r+iRxc7KlcvceLQpc0xLonB+XAmIjX3uFDIcOUe0pK +NDpMsd6IdvtTyMNFd/k3Fh08VdJy/QIodF2neJarRIeqjA3zxDl8vtYrnca6 +dHgk1yTvdJ5CQzzu/rt20OGLS5dEywUKxRyjPwsNo4OL+uYp3VAKPVhzqXpL +LB1eOfOHVGNP8AsWiCXTYSIhf8AgjEIHssd8M3PpILiTTlsTTqHV3c3ylbV0 +uF3RGyAZSaGjubDE/yEdaD7ZReHYWe5Vk9BMB3MX19JJbEGhvNbWHjoQ0Tlr +O6Mo1L/urM/Qbzq4ruk/eiyGQssX/zhQNE0HYcEZqxbsTa9ctnjwMKCu3EZS +NZZCXM8drNklDGjx26f0ATusUKlZXIUBE+2mMbrxFKo5nUm91mKAf8f9zaHY +P9eLZ2frMWC7X+Pwc2z7vjkvtY0MOFOynDySgOtD7CVjw34GLHudUnUmkUIj +sSPBlw8xwOP65CYudqbw5MePx/H9qTsXfMEW4ZfhxvgyoHrHnuFdl3B/XFCW +fneeAevc7opFYfv/1Q/QCWUAuSvgUA326MQes5eJDLgkFBMik0ShPK9jxcqp +DHBQi9+xEXvPTz9R/ywG5LTvM3XHfvI5/Q2zmAHqS1qKarEDD99CnhUM6FjA +pn/A1husLWi8zYCDqhW3+ZIpdK2v3/1oIwM0Qn+5b8B22PO9q6aZAYkie6MP +YEu8nNNf2smAqVOnuvyxW6yWZR3oYUDW30Tzy9jBz5h8ZD8DkvVon25hG2zV +dl04xIC0gSOVDdi/nkDb7lEG8Aq8LnuJfcN056qinwyIG2zp+YR9oMEpZXaC +ARazWRrT2DLIc9byLwOOLquoWHSZQs9qgp1y+QjQojm5SGCH6Sc9HhMioHH3 +UjMmtnFlvpqZKAG09TK7lbEndKiEVCkCGmLepmhhl5Q2jo/SCWjXfCCoi+2i +9sJ+nQIBlB2rSB+bfmP4XrwKASpnHQIMsLsVJxQHtAj4Y/gy8J+jcwWiVusR +8F/kd+rf/SaE9I8wIwKqIwTo/573J03J5rUJATlpgZX/3seV1q9WsyAgzbEm +6N95jiZvIs5vJ4C3XC7o33lZYnsudtgSEHGdl/r3Pa9ij36SdyBg8ZXnNEHs +BGG/bd7OBJxa+r3y3+9hHh7FbXIlIKH3duhn7Dm+dGnaSQJm+JOierCrLhQH +uHkT8LNtoPEh9om/NR/q/QnQqRTWLcVW9Gs1EwsmoPe0e+8V7CSvb6JVcfj7 +Ys+2OmNv/vnXW/AyAbYXP0ubYfOeWNprn05AXsTKdCVsj8Na1+YLCYgMSt88 +jOtHeRAJW5USkD+SeeYB9rv9O04WUPi8xrxv07Et95xaa/GAgGcqEXZbsAVe +BmWlNxGgyuNzgoVdZ3WJ73sbAectHevGcH2rbyXbLr0hYK919bLL2MJo3Klv +jICV0QORDbhffNcrC1b9ISA81flmyL/+2rC3NH4BE6TuddzZiN2w6cEfk2VM +WHkm+mY97kc/q9ikm6pMSHeW+XAV9+snm/trL+owwXikIG4L9q7dY+8c9JmQ +lbZdeyYO573DHnVRMyZ0WTGsbLC/HFrxyMeJCT6P/IjvOD/sXe2O73BlAiOg +xz8e+8mxaDHVk0z4FX25UxO74OSvff0BTPDqd3A9Eo3752zdxIZUJiyLN7C6 +j/OqNcZWWewZE9i3dBPFcP4ZxEe0j75gQiVvT+UlnI83EmtON/YxQTgupVcM +O+QK+8GZUSa8TS9TFw6hENExof6DlwW1QX3/DQRR6OXrhke2BAt2qkun6+J8 +XrK3L7WBzYKC1+MSKTi/N/aNH9dawYKqvqnUCZzv3LfKy4XUWXAttepBmR+F +4gbjHGvXsuDBVdXrwr64vr7ZT8rbskAkKNPooCfOW4mLXYF2LFhkYCF1E8+T +/wyLy/r2skCdXCH5Dc+fnKiZI1ecWaBaUxxy8iSuf6WMV0IeLAiaTTZwdMPz +3Lm/+mcUCySPDwUOHsLz49X+gPr7LFBOjXVL3E2hw/PhdnKNLHiXyliYiedh +7cry1b5NLHCTUXhxHc/Po94833TaWfCsdphRaY3/3+W5+671siDG8bZz7XYK +nd42YBwzwQKhnuvrfMxx/zS4LLBXZ0P0jLRLuu6/vH5DO6fFBmpRgelFvA8s +erB9dc4qNnya8yw6ivcFvXsGR0b02cAO6Z7X0aFQco1om6cpGwyiIj+Wq1No +O1WbGu3Ihr+tW2iuChR6fE1Cuy6BDXeJuwn3llHorWKUxfskNjQR3Oe+Syk0 +nj/vzJfChimphTe0l+B+yxu9bJHJhsGwpqUZeL8Jzro/8+ImG2qspXqd8D5k +nOLW9L2BDVLX5z/c/EOiyohGR9Y4G4qSjTZpDZHoxuYWmfApNhje7c7JGCBR +msjz599m8Pm9bQ4IfiDRhYR3ZjW88qCddEeqt59EW1P/aO4SlYd1hX1eJ3pI +NFCoPR+tJg/TqTZhZs0kWtqUkT3pJA80TeWn7aUkOrzQ+317uzwk8SjKOnqR +iMZ82jPTKQ+G7VpV0adI1K7PeKb8Qh6eMp9J3DlJIj23R3XBvfLQtGaZ7BI3 +Egl0SabrfZKHO6GR2264kOhaTpVt1gIFeEM3Gcm3xfuy4VTzidUKwL3A95rU +I9FBT/9KkTQFsBcwENiN93GtI2rtW50UwXEk984NVy56tlx9sffaFTC577jm +qXsVqKY0OF2dbyV4ln2y3SdRgfwXqO5o7V8Jf2fawXx7ORLu89vkTimBD3X6 +pqFQGRq+zk7ODlCGArX4KMuLJShZWZa/2lYFaveWLFbqLkYJaYebnFiqkDd0 +sG94XRGyT97XLvJRFVhfnJSSym6gqY3XprPr1UBXeSr2GW8hGhw28W0IV4dV +q7NqZn2vobx1OnJtThrQQ7YYtvbko5JQb7EjGpowL5l7tm5fHgq3PbiFb1wT +VLJl4+9N5iDdvtyb4W1a0FS69nW+QDZKVUkvaduiDfLNx2LfnMxAgfdjU7dU +a8PX+cattKaraJuc7bVmRR0gIsQ6dK1S0Hr3pr1ikTrgLJlinaZ2GWXTnRVb +x3Vg9d9DHmvnLiHFh4VXLPeuApX6Hx1jtESUoNGg+rx+FYwUSTN/Po5Dh8f4 +O5+qcsCs/aKNlV00cq74zYqM58AMm1+ixDUCuQVbz25O5EBeyL10eYcI5G1N +9YgkcSDBW0wsc3sEihj3jku4wgEBdPt+jl4EKl07PZOSyYFmjTzZQf4INP1g +/uX1Yg7stJfqt8oLRwnPRWIbmzjg2OY02vM+DKXln3ANe8qBx4pfLT53h6H8 +0+0bNrVwgGkk6Tv/JAxVSSX8aWnngCvbzMigIgz12Yu7dr3gQPwXuU2fg8KQ +0qDshoFBDsyWzkarK4YhbcqPKBjGzwvsdYiSCUMGob3Thz5y4P5nna9fRcLQ +VqXM8s+jHNiyR8Pk/ngo8jzOIn794kCxRHZpdlMoCjAKmuaOccDp57ldCrWh +KHTJQPfpcQ7cuHeVKi4PRall+dFTUxzgDTwY33w1FOVd4D9y9w8HAhhzQk5x +oah45yGTgFkObF1SpjcbHIoo+ccM4zkObCCPS2ScCUX1Yyun5+c5ICmhkgdu +oeh/kySF+Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08040204640404616}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, + 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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, 20}, {0., 0.08040204640404616}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9921216424254017`*^9}, + CellLabel-> + "Out[121]=",ExpressionUUID->"bcb47329-1c4e-ba46-9870-8427c86cfa1c"] +}, 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[122]:=",ExpressionUUID->"37173e44-18b6-f345-bdbf-3935ac3d85ba"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8309214465349764`*^-175\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 122, 834, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331752212366*^9, 3.992121642515566*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"5e0f186c-b493-344b-81a1-6a296c146a17"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.986131132608925`*^-179\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 122, 835, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331752212366*^9, 3.9921216425474606`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"94201451-829a-4e44-bc2e-b9225cb803b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.483398514334195`*^-182\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 122, 836, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331752212366*^9, 3.9921216425664616`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"72ea9d09-653a-6149-ace4-ad0eabd50177"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 122, 837, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331752212366*^9, 3.9921216425925655`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"d71e7063-1a8d-b14c-a292-de81589fc09d"], + +Cell[BoxData["13.595333652789991`"], "Output", + CellChangeTimes->{3.991331759108553*^9, 3.992121715108494*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"c059b970-9bba-f945-aad7-705a8a127507"] +}, 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.991844980123823*^9, 3.991844984423441*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"c4a8a8b0-0b31-ac4c-a7ce-152da20b42d7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.405042563729885`*^-206\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 123, 838, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317591425533`*^9, 3.992121715206499*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"86767bb9-09c5-2047-bced-59e348289011"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.6728305807669564`*^-211\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 123, 839, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317591425533`*^9, 3.9921217152725983`*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"8342b6e6-37cc-fe49-9e92-7819b0068cc5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.450985177358159`*^-216\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 123, 840, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317591425533`*^9, 3.9921217152886143`*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"6184426d-4ba1-194d-ba6e-a17f28e5d6fd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 123, 841, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317591425533`*^9, 3.9921217153065987`*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"6760e163-7ae2-b04e-a711-57c38117c5e7"], + +Cell[BoxData["1.739869693617705`"], "Output", + CellChangeTimes->{3.991331766558941*^9, 3.9921217271018295`*^9}, + CellLabel-> + "Out[123]=",ExpressionUUID->"f9d6c685-690d-9342-b569-5afa8b25bf2b"] +}, 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.9918449914836025`*^9, 3.991844997178608*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"3975f6bc-b8e0-0049-badb-74a4e7126d8f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.405042563729885`*^-206\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 124, 842, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317665951805`*^9, 3.9921217271908684`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"b17fddfb-d5f9-684e-a732-345f8961700a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.6728305807669564`*^-211\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 124, 843, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317665951805`*^9, 3.9921217272139645`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"4911c258-e8f1-104d-a027-fbc0461f2bc8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.450985177358159`*^-216\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 124, 844, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317665951805`*^9, 3.9921217272478695`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"432a6f3d-6d2b-2541-89bc-c2360fb2499e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 124, 845, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317665951805`*^9, 3.9921217272639675`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"11e4ec9f-3d11-3749-8aa6-56144950bd70"], + +Cell[BoxData["24.425001657151522`"], "Output", + CellChangeTimes->{3.991331773590704*^9, 3.992121738375187*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"616eb782-657e-1843-bf96-611a3731af7a"] +}, 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.991845005870302*^9, 3.991845010049778*^9}}, + CellLabel-> + "In[125]:=",ExpressionUUID->"f4f95d15-5683-9549-85ce-3970c364fc34"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.405042563729885`*^-206\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 125, 846, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317736257057`*^9, 3.99212173848419*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"fb056d72-5a81-c04b-811c-b569ea320291"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.6728305807669564`*^-211\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 125, 847, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317736257057`*^9, 3.9921217385070934`*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"a385acc4-299b-434b-ad96-e590119e1a2c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.450985177358159`*^-216\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 125, 848, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317736257057`*^9, 3.992121738536188*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"333b7a2c-9187-1f40-8be3-d3091cf76842"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 125, 849, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317736257057`*^9, 3.992121738553192*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"403e2811-4e45-b247-b953-e21c84ec8f05"], + +Cell[BoxData["14.21263366121276`"], "Output", + CellChangeTimes->{3.991331777337887*^9, 3.992121747818657*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"71b0aa93-d6a4-7b4b-ae0a-67d1228b94a8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918450170370293`*^9, 3.9918450213597164`*^9}}, + CellLabel-> + "In[126]:=",ExpressionUUID->"16838e8f-dc9a-d74c-8675-3a4476217af6"], + +Cell[BoxData["0.09338177857823826`"], "Output", + CellChangeTimes->{3.9913317773679104`*^9, 3.992121747894663*^9}, + CellLabel-> + "Out[126]=",ExpressionUUID->"ffeb94c8-79cf-1743-9aaa-df3c201d99a0"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918450249714966`*^9, 3.9918450285250053`*^9}, + 3.991923905136156*^9}, + CellLabel-> + "In[127]:=",ExpressionUUID->"5671b6c5-96eb-9840-bb09-6698022336a6"], + +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->"4d014000-6f17-9a45-b3a6-a3a0cf36c628"], + +Cell[BoxData["21.692587481892488`"], "Output", + CellChangeTimes->{3.9913317774008274`*^9, 3.992121747925659*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"f95b6f67-74e6-9643-a834-6bf8a9155369"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[129]:=",ExpressionUUID->"fe5bd3c5-5fb8-684b-9227-f90b633f4a5d"], + +Cell[BoxData["2.00753179751312`"], "Output", + CellChangeTimes->{3.9913317774358253`*^9, 3.9921217479484844`*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"9b2c9f94-f587-f947-a8c6-e568cc665794"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[130]:=",ExpressionUUID->"fcb96232-efe5-6c4a-80fc-3e0409b7c756"], + +Cell[BoxData["43.54855914023424`"], "Output", + CellChangeTimes->{3.991331777510603*^9, 3.99212174797847*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"1bd38184-a671-cd41-b983-b7a5a9f8f990"] +}, 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->"826a4822-fe82-2545-859e-1dcc0d2c7665"], + +Cell[BoxData["0.007777122596096501`"], "Output", + CellChangeTimes->{3.991331777537592*^9, 3.992121748019701*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"1f8aefaf-3326-154e-a061-c4fcffd2daea"] +}, 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->"8e8ef1c8-b957-7e47-8bd7-349d078e5615"], + +Cell[BoxData["10.049292058621395`"], "Output", + CellChangeTimes->{3.9913317776362495`*^9, 3.9921217482366905`*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"f6c95ead-736f-7a49-b065-1b1c1490e028"] +}, 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->"ef7ab6c6-a465-144e-9b2e-d87983d89cc3"], + +Cell[BoxData["0.012346479916519229`"], "Output", + CellChangeTimes->{3.9913317776511555`*^9, 3.992121748277651*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"fa33acac-8288-5b4e-aef5-f81fac85d648"] +}, 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->"005cbf5d-7cfe-0a47-85df-3f41c0cd74cc"], + +Cell[BoxData["7.975783625815553`"], "Output", + CellChangeTimes->{3.991331777742655*^9, 3.9921217485051003`*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"5d7ce7e0-0e54-b94d-a3e6-8fe727fd1c5e"] +}, 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->"11446a18-6985-d84f-b09e-6be9463bee70"], + +Cell[BoxData["0.39889500278443296`"], "Output", + CellChangeTimes->{3.9913317777546787`*^9, 3.9921217485282*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"881e4cd2-8102-be46-8734-efc3e5f2c14b"] +}, 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->"cf191722-8995-064e-a60c-6ab12800222b"], + +Cell[BoxData["0.6011049972155671`"], "Output", + CellChangeTimes->{3.991331777779663*^9, 3.9921217485567207`*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"8f63da8c-9c66-6e49-b6bc-bae0d9e15c2a"] +}, 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->"146e47d3-0f15-fc4b-b22a-e41827d0b353"], + +Cell[BoxData["0.2397777795380402`"], "Output", + CellChangeTimes->{3.9913317778036633`*^9, 3.992121748587242*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"935a35b3-1ee4-424a-9aba-b27df7f601b9"] +}, 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.991845055619808*^9}, + CellLabel-> + "In[138]:=",ExpressionUUID->"b1b29f9b-c1d5-3048-84ff-9fde8e93d227"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.493433142157767`*^-221\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 138, 850, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317778296604`*^9, 3.9921217486329823`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"c4ab9db2-13ff-214c-be43-640a39ee1e63"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.517712643329239`*^-227\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 138, 851, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317778296604`*^9, 3.9921217486658897`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"88a17936-4fd8-6d45-8260-3bf687a08bcb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.714966502994381`*^-233\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 138, 852, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317778296604`*^9, 3.9921217486879787`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"7a7a4535-ba08-f745-a49e-9d91d078779c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 138, 853, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317778296604`*^9, 3.9921217487068768`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"cdcbf254-25e5-3248-a891-2f9bea2b6677"], + +Cell[BoxData["10.04929205862139`"], "Output", + CellChangeTimes->{3.991331781456501*^9, 3.992121756265686*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"f628c9d4-e3b2-124e-a3ce-3d840475b41f"] +}, 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.991845062111332*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"7833995d-3f7b-3a4e-944a-db222bb16395"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.493433142157767`*^-221\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 139, 854, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331781491499*^9, 3.9921217563805866`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"54d230f5-97a0-5942-bbcd-4f720508e8b2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.517712643329239`*^-227\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 139, 855, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331781491499*^9, 3.992121756409685*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"7f5cae4f-cb11-a04d-9102-bd7c13ad6c6d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.714966502994381`*^-233\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 139, 856, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331781491499*^9, 3.9921217564306793`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"770f3cd8-5951-2e4e-917f-3634cd656cf7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 139, 857, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331781491499*^9, 3.9921217564456825`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"b0f9f71e-d353-a14f-94ae-be066a095c05"], + +Cell[BoxData["7.975783625815554`"], "Output", + CellChangeTimes->{3.9913317851500416`*^9, 3.992121763942644*^9}, + CellLabel-> + "Out[139]=",ExpressionUUID->"0c76efb2-91a0-2e42-aeba-a8b0f4a01014"] +}, 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.991845068201048*^9}, + CellLabel-> + "In[140]:=",ExpressionUUID->"cfa7b206-7d8f-ba43-acf6-c3e910046666"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4VdsbB3BDKEMZMkfmMutIEbf1mhIhmYdMxzk7SeZcJDRQIpG61C/D +JeWaReakSCqikkoR1TnVxjEcQ0n1W/7Yz34+z9rPd693rbXfZytSQx3pXBwc +HFP4Wr2HP9PZ0jjwbDfjqZJJahQb7WbdMKBaVCDxiyPSqx4r2HFZxaIN1VGE +685hO9D6eAX1H6LJzha+VdfGJHbyWPSim+4jkmexU7ulOhLLnqPUDTGfkrGb +B8LzVyivkIBwWtAZbHL4SXxs6xvkdV6i8hS2DEPZa9H8PQprlClPwt43HW8U +2fsBrbzJoSVgt6+QAjFl4yjFKOPtceyhk5LHG0I+IUut3+tisVm8FuQ8hYF2 +C31dOIbNmx7mob/ERAamtnkR2PIieT3hrV9RvYEmRyi2veziTZb5JFI18/pO +YBOFShLaa1lo0a/yAhU7UXV/8pHeacRlHz/qjf1GcnBbVNksGubIvu2ETfMM +OpydPocyxd4b2GPPXOf493YIG3lm3Ijai71WSVt4lrKArBoaVEywL9M6rYTF +FxF1kfMfA2yFWx6JukuLKLar/4EOtqFWCuto63c0kLlor4AduONDL2m+gjIT +07ZxYM/HHFvDr/YLNZ7lSVyKZKOkVgET9bW/UZ0Q/zkWdi4Ylh/q/YP8tjX2 +vsOmlfRYRJRxQo1Yl0Iddll39thJWS5oWVdvU4o988UnPiudC4TzDPXysOM1 +FupqQrjB4wCPTgr25WpF5WkKDyg+H5p3xh4emGz/XcwDxi5XflphK8w1eq4X +54XvXfN3d2FXbLe/pL3EC3u35x3bjN3VHMcZ3LoW7g8+rGFEsNFC58sPX80F +YfqhvDsdW9RWUPh4uyD8UvIpdsTWG7QAISMhuDlO5CPsoM93CrfprAfK8odi +Kewwrl69vwSFISuqc7I7nI0YSlWzyYsisHxfKHYj9jzxZF2/vijofHV6sBLG +RlzlTEWpcFEQb/yn9TO2gv5mx7IJUaB0KrTXYXuaZ95+NiYGYT5V3PbY/QER +kZJPxUGfR/xyZCgbjd7KSPNbKwEXOWdGXbEnJ8qK/7OUAJkR3mEjbP6oTy+N +OyTAuuDH2G+87xZnnLf73ZEExAylJGO33NixUFogDRTO8i+njrLRDcZy9K4o +OUgtV2o3O8JGe13OjkZWykHupsfl8tiTXWJ7KplyMLES5rwcxEbbb2iJK3jI +w16ON0M12F1Unzqe3ZvhVH1qoQz23PTY319PK0A4o2/feCAbiR21qK+zU4Iz +WwzVjAk2Yt7gD3QIUoKn98ZPrMduej8gO5WiBOY7DbLG6Wx00Nb7tFqHElyU +nSVTsG9oRjtepSgDm4d65BkNv5+8NZMgqQJSW0JLHALYyPmQgLbNuCrMvNLT +UPJjIxTtQnH7pQq5tlfXs3zZSCO5YCdNWg0MfSVuN2NzFOubJRxQA8IvcIcD +duWol9vt+2rg3aFsEOeDv0/XipMyRVtglD0g/OAgnp+F3RBJVQejzoBwRQ82 +KnbKebeUoA6hbhmWDHc2yqCOj635nzp8S694W4pNSzo2If9SHY60j5vqYou0 +5XE4mWuAuiSXmJEbPj/6LI1WZU1gWT9pBxc2klW6mJj2WQtaPJIiFQ6wUdv5 +efUfXNrw3tsofcgBrwfbY5BQ1IatA/c807Hzu1TUzXy04RLLV3ppPxspHWp5 +8f21NtS9kpV/bI/rrWCoEk91oCdNer+vLRvJycoTCh560NY0n+dsxUZaJVGC +PxEFTuY8SKabsBGVdnpB254CVVbmlzdg5ypfGvU7SIG/+9tozcZsxF1UXdMd +QwHtbQ/3CWIP55POl2opkOXirl9thPtprl+eurI+vH/BF/FtB97fNFsdd97t +UBQxv6y7jY3+jVBxuNNrAFw709v4VNloIBrtPFNiBMe1BH6m8rGRos8re+/g +v+DnYopsHnMO0f80VMnFAhSdz3uc2zWHJCea+CSpZrAtyZFOuz6HovRN3l/S +sIBbxpU9PFFziDq10iNGWsIp5aqcDTZzqNIskq+g3wruSymqacnMoRvzQfcr +LlvDlEDfctbELPpuKtXXlbgPyjZb2do2zqIRDu7ZcX87iLW/P5p6ahaFbArN +PKm8H+z1FLpdHWZR1eGejivJDrBY1FEuJz2L4tjSS5qHD8B4TYKrPGMGLdjs +cX3k6whDJZZd2RUzyMgry5RxwAmsT1/+pHpsBr2Qzgvq0ncG2DQ1cs90Bsnc +PN1WutUFmNLRtdf4Z1DTmIatvZAr+DXKxdytnkbygzOHoqdcwXpvTdJa+2mk +fyWronjMDXyCAt77M1kobw1b51KnOwh5CQ1pnmOhBlPd4eRmD2h+/41LQZWF +cneeF1kp84Rey9e/LB9Nof53JSn66V6QtKYk+VfEFLpjd10lLOkgvA7rvnZQ +dgrNHnXiCKF5w9rG4Jm9fZNoYY96IMvcB9bVN1CpZyZR6dTb75E7fEFIq0sy +yWgSuf9bEuAt6IfPc65Vw9IEqru9z5f7rB8cYAmvWaifQEayL36k/vCDIfF3 +03/iJpDy2KHh54f9Qef6YI7nngn0WeDI/uuf/CG5eaL0l8gEGsiwD7ByocLK +FXPxQgaJLscUCBwboILx0cOGp1pI1Nb+50eAdQAYM5Pl/rpCog0H4ax+SwD8 +MZBt5PmbRAobH/VvagsArdQX/unRJNLrtZPibQ+AsLhcXzFsRxOv/97cDwB0 +ytVZ6RjO3xT99MTjANg80q1kEUkimZHyDT1vAoDl/9w5J5REKj6SuQeXAoC/ +i0sqPpBERn6s0uTtNGDz3TqMvEh08+pMpP0OGkSHt14Y9yTRxpdzuyUNafDx ++8nl09gsy6XBUmManHVSr3rsQeL+xcHZa0YDofyVE+7uJFq/JOIheoAGYcEX +Ok67kOjzBYN1BUdp0P/t42thBxIdeLRz8FAoDfyiRTa27SdRO8euAr1w/P7e +DVcPYV+N3G3wIIoGD2wTT9yzJ5G9h5U/4zgN9LJMayLsSNSs4tGseZ4GJhMb +2pk2JMpojT/cdJMGw5qpSTx7SHSUkmMUU0oD4Suezq2WJLL9r3adYRkNxBd2 +h4Rj8+cw/2uspIFcsHnUqAWJkiMcyIZ6nN9n/7jVnETx6ipH7jygwSvautzT +piQKynkafHuUBhSF+l6rv0hkvZ5pEjFGg0AbfRov9tZkDiHKRxp8iBs2fWhC +ImaEQWUtgwakV3G/Oba/fcFUzSQNqmd0DSyMSeTOExlSvUwDIrJpq6MRiawi +ZcIqJOjQfCfxTpEBiR4UpNhckqJDnHTnHjq2Se+cSowMHYryazS2YuupPn1r +Lk8H2Yp0smo7iaRfHzd/p0qHtllPmw59Ek3sGpHgN6BDyKuR83PbSHSRq/Du +ISc6KFxrELuig+vXFcy1c6HDzN6wn/7YZ7xiIvTd6FCv9cVAFzum3mHLH086 +mNWvL36ijedPcGb9Q6XD6xgnHx5s/SdU2sNwOvAfUvM4r0mi11mqAsqZdLDW +dQl4sZVEVUgo8GsWHTyOVHlWYJ+Zmu+qzKaDxcLmaynYFOuuBMMcOpy3s5s1 +xs7gCJizy6eDBjHMUbaFRHtCC9/GVNDBu4K3JFuNRHJy53bsrqIDk1tQPgJ7 +/kloNncNHf/P6HxwwC5SQ3YZdXQobOoz2oD9a2Sko7iFDoMJsQ4XVUlUbytb ++qyHDo2pj7jzVEiUtszFc/kJHUprH/5OxKaWkv4evXS4U8cwDcAWXtMi+7kf +r49NeqEGdnCr+8UfQ3RI7Yi716ZMImWNf6JVGNjHRM+wlEi0/PrEy29MvB9H +9nEOYQ8k0/Wqv9KhiqOs+y52wvh20miSDjLMN+oZ2MO5L733s+nwKITbkYJ9 +iU/EMo6TAJHlRvVzirgfzI14RXETQGZmD4djfxkpiwjhIeBcmifDC9uk3qKQ +uo6Av/8tX7sNm+kX89NGhID8Pr+UDwp4/raWopZiBNjw5fP2YhvvFFVH4gT4 +H+sZa8LOFKpw1ZcmoKiLUZS9Ot7yoVZWkQDJPisfO2yipKJHXJkAQYf5SpPV +5zNjP2xQJSA296KbFjaTEBNao06Am252k+DquJhV4KQeAWkGL2ufbyZRy2+x +RCaFAKfy5YFObMa3sStj2wnYZChq04C9qyOuc9CQgDYtUZvr2J+Dq+TvAgEL +NI+Twdjr3Y8bNJoRcC2eJ8wf28h8r22tBQEX7hY1uWJnSH+MLdlLgA6l1s0M +u2lNdWaBDQHF+UpVhtifpo/fumpLwHRJso8utmG3+KsLDgR4Tyr0yWFTaz9O +nHUkwPWgR5o49oXr1VynnAlQeXy6WAj7Y4S1XrQ7AWozVeO/5Ukk5CNhFeZJ +QPbLar7v2IbWn7yDDhLA5Ck+O4t9YfOJNB8/AjgL/K4wsJv4bYrcqdhbNJXH +sD8uSDQ70giIga/871bzxj/12xIEZPzIsR1azeutYe4JJCDRd9fX59jUxhO/ +IAjXm9A/0reaX2Sz0TiYwP3bTfvJav4FSU2DEAKGxF4Mda/mx3w21Q0j4GYe +Gu7EFqTVuqtHENDAV7jzPvbO/QmhylEE6HqwWe2r+bv2pchFE5Caa8RxFztd +VSpPMgbX+zTiSCt2gzCjTiSOAL+FfL0W7PGftU8E4gkok2nf37ya/yVhnCeB +gIS/BnqasHe82Pf9TyIBu31f/W/V/wcoBvJi + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VdsbB3BDKEMZMkfmMutIEbf1mhIhmYdMxzk7SeZcJDRQIpG61C/D +JeWaReakSCqikkoR1TnVxjEcQ0n1W/7Yz34+z9rPd693rbXfZytSQx3pXBwc +HFP4Wr2HP9PZ0jjwbDfjqZJJahQb7WbdMKBaVCDxiyPSqx4r2HFZxaIN1VGE +685hO9D6eAX1H6LJzha+VdfGJHbyWPSim+4jkmexU7ulOhLLnqPUDTGfkrGb +B8LzVyivkIBwWtAZbHL4SXxs6xvkdV6i8hS2DEPZa9H8PQprlClPwt43HW8U +2fsBrbzJoSVgt6+QAjFl4yjFKOPtceyhk5LHG0I+IUut3+tisVm8FuQ8hYF2 +C31dOIbNmx7mob/ERAamtnkR2PIieT3hrV9RvYEmRyi2veziTZb5JFI18/pO +YBOFShLaa1lo0a/yAhU7UXV/8pHeacRlHz/qjf1GcnBbVNksGubIvu2ETfMM +OpydPocyxd4b2GPPXOf493YIG3lm3Ijai71WSVt4lrKArBoaVEywL9M6rYTF +FxF1kfMfA2yFWx6JukuLKLar/4EOtqFWCuto63c0kLlor4AduONDL2m+gjIT +07ZxYM/HHFvDr/YLNZ7lSVyKZKOkVgET9bW/UZ0Q/zkWdi4Ylh/q/YP8tjX2 +vsOmlfRYRJRxQo1Yl0Iddll39thJWS5oWVdvU4o988UnPiudC4TzDPXysOM1 +FupqQrjB4wCPTgr25WpF5WkKDyg+H5p3xh4emGz/XcwDxi5XflphK8w1eq4X +54XvXfN3d2FXbLe/pL3EC3u35x3bjN3VHMcZ3LoW7g8+rGFEsNFC58sPX80F +YfqhvDsdW9RWUPh4uyD8UvIpdsTWG7QAISMhuDlO5CPsoM93CrfprAfK8odi +Kewwrl69vwSFISuqc7I7nI0YSlWzyYsisHxfKHYj9jzxZF2/vijofHV6sBLG +RlzlTEWpcFEQb/yn9TO2gv5mx7IJUaB0KrTXYXuaZ95+NiYGYT5V3PbY/QER +kZJPxUGfR/xyZCgbjd7KSPNbKwEXOWdGXbEnJ8qK/7OUAJkR3mEjbP6oTy+N +OyTAuuDH2G+87xZnnLf73ZEExAylJGO33NixUFogDRTO8i+njrLRDcZy9K4o +OUgtV2o3O8JGe13OjkZWykHupsfl8tiTXWJ7KplyMLES5rwcxEbbb2iJK3jI +w16ON0M12F1Unzqe3ZvhVH1qoQz23PTY319PK0A4o2/feCAbiR21qK+zU4Iz +WwzVjAk2Yt7gD3QIUoKn98ZPrMduej8gO5WiBOY7DbLG6Wx00Nb7tFqHElyU +nSVTsG9oRjtepSgDm4d65BkNv5+8NZMgqQJSW0JLHALYyPmQgLbNuCrMvNLT +UPJjIxTtQnH7pQq5tlfXs3zZSCO5YCdNWg0MfSVuN2NzFOubJRxQA8IvcIcD +duWol9vt+2rg3aFsEOeDv0/XipMyRVtglD0g/OAgnp+F3RBJVQejzoBwRQ82 +KnbKebeUoA6hbhmWDHc2yqCOj635nzp8S694W4pNSzo2If9SHY60j5vqYou0 +5XE4mWuAuiSXmJEbPj/6LI1WZU1gWT9pBxc2klW6mJj2WQtaPJIiFQ6wUdv5 +efUfXNrw3tsofcgBrwfbY5BQ1IatA/c807Hzu1TUzXy04RLLV3ppPxspHWp5 +8f21NtS9kpV/bI/rrWCoEk91oCdNer+vLRvJycoTCh560NY0n+dsxUZaJVGC +PxEFTuY8SKabsBGVdnpB254CVVbmlzdg5ypfGvU7SIG/+9tozcZsxF1UXdMd +QwHtbQ/3CWIP55POl2opkOXirl9thPtprl+eurI+vH/BF/FtB97fNFsdd97t +UBQxv6y7jY3+jVBxuNNrAFw709v4VNloIBrtPFNiBMe1BH6m8rGRos8re+/g +v+DnYopsHnMO0f80VMnFAhSdz3uc2zWHJCea+CSpZrAtyZFOuz6HovRN3l/S +sIBbxpU9PFFziDq10iNGWsIp5aqcDTZzqNIskq+g3wruSymqacnMoRvzQfcr +LlvDlEDfctbELPpuKtXXlbgPyjZb2do2zqIRDu7ZcX87iLW/P5p6ahaFbArN +PKm8H+z1FLpdHWZR1eGejivJDrBY1FEuJz2L4tjSS5qHD8B4TYKrPGMGLdjs +cX3k6whDJZZd2RUzyMgry5RxwAmsT1/+pHpsBr2Qzgvq0ncG2DQ1cs90Bsnc +PN1WutUFmNLRtdf4Z1DTmIatvZAr+DXKxdytnkbygzOHoqdcwXpvTdJa+2mk +fyWronjMDXyCAt77M1kobw1b51KnOwh5CQ1pnmOhBlPd4eRmD2h+/41LQZWF +cneeF1kp84Rey9e/LB9Nof53JSn66V6QtKYk+VfEFLpjd10lLOkgvA7rvnZQ +dgrNHnXiCKF5w9rG4Jm9fZNoYY96IMvcB9bVN1CpZyZR6dTb75E7fEFIq0sy +yWgSuf9bEuAt6IfPc65Vw9IEqru9z5f7rB8cYAmvWaifQEayL36k/vCDIfF3 +03/iJpDy2KHh54f9Qef6YI7nngn0WeDI/uuf/CG5eaL0l8gEGsiwD7ByocLK +FXPxQgaJLscUCBwboILx0cOGp1pI1Nb+50eAdQAYM5Pl/rpCog0H4ax+SwD8 +MZBt5PmbRAobH/VvagsArdQX/unRJNLrtZPibQ+AsLhcXzFsRxOv/97cDwB0 +ytVZ6RjO3xT99MTjANg80q1kEUkimZHyDT1vAoDl/9w5J5REKj6SuQeXAoC/ +i0sqPpBERn6s0uTtNGDz3TqMvEh08+pMpP0OGkSHt14Y9yTRxpdzuyUNafDx ++8nl09gsy6XBUmManHVSr3rsQeL+xcHZa0YDofyVE+7uJFq/JOIheoAGYcEX +Ok67kOjzBYN1BUdp0P/t42thBxIdeLRz8FAoDfyiRTa27SdRO8euAr1w/P7e +DVcPYV+N3G3wIIoGD2wTT9yzJ5G9h5U/4zgN9LJMayLsSNSs4tGseZ4GJhMb +2pk2JMpojT/cdJMGw5qpSTx7SHSUkmMUU0oD4Suezq2WJLL9r3adYRkNxBd2 +h4Rj8+cw/2uspIFcsHnUqAWJkiMcyIZ6nN9n/7jVnETx6ipH7jygwSvautzT +piQKynkafHuUBhSF+l6rv0hkvZ5pEjFGg0AbfRov9tZkDiHKRxp8iBs2fWhC +ImaEQWUtgwakV3G/Oba/fcFUzSQNqmd0DSyMSeTOExlSvUwDIrJpq6MRiawi +ZcIqJOjQfCfxTpEBiR4UpNhckqJDnHTnHjq2Se+cSowMHYryazS2YuupPn1r +Lk8H2Yp0smo7iaRfHzd/p0qHtllPmw59Ek3sGpHgN6BDyKuR83PbSHSRq/Du +ISc6KFxrELuig+vXFcy1c6HDzN6wn/7YZ7xiIvTd6FCv9cVAFzum3mHLH086 +mNWvL36ijedPcGb9Q6XD6xgnHx5s/SdU2sNwOvAfUvM4r0mi11mqAsqZdLDW +dQl4sZVEVUgo8GsWHTyOVHlWYJ+Zmu+qzKaDxcLmaynYFOuuBMMcOpy3s5s1 +xs7gCJizy6eDBjHMUbaFRHtCC9/GVNDBu4K3JFuNRHJy53bsrqIDk1tQPgJ7 +/kloNncNHf/P6HxwwC5SQ3YZdXQobOoz2oD9a2Sko7iFDoMJsQ4XVUlUbytb ++qyHDo2pj7jzVEiUtszFc/kJHUprH/5OxKaWkv4evXS4U8cwDcAWXtMi+7kf +r49NeqEGdnCr+8UfQ3RI7Yi716ZMImWNf6JVGNjHRM+wlEi0/PrEy29MvB9H +9nEOYQ8k0/Wqv9KhiqOs+y52wvh20miSDjLMN+oZ2MO5L733s+nwKITbkYJ9 +iU/EMo6TAJHlRvVzirgfzI14RXETQGZmD4djfxkpiwjhIeBcmifDC9uk3qKQ +uo6Av/8tX7sNm+kX89NGhID8Pr+UDwp4/raWopZiBNjw5fP2YhvvFFVH4gT4 +H+sZa8LOFKpw1ZcmoKiLUZS9Ot7yoVZWkQDJPisfO2yipKJHXJkAQYf5SpPV +5zNjP2xQJSA296KbFjaTEBNao06Am252k+DquJhV4KQeAWkGL2ufbyZRy2+x +RCaFAKfy5YFObMa3sStj2wnYZChq04C9qyOuc9CQgDYtUZvr2J+Dq+TvAgEL +NI+Twdjr3Y8bNJoRcC2eJ8wf28h8r22tBQEX7hY1uWJnSH+MLdlLgA6l1s0M +u2lNdWaBDQHF+UpVhtifpo/fumpLwHRJso8utmG3+KsLDgR4Tyr0yWFTaz9O +nHUkwPWgR5o49oXr1VynnAlQeXy6WAj7Y4S1XrQ7AWozVeO/5Ukk5CNhFeZJ +QPbLar7v2IbWn7yDDhLA5Ck+O4t9YfOJNB8/AjgL/K4wsJv4bYrcqdhbNJXH +sD8uSDQ70giIga/871bzxj/12xIEZPzIsR1azeutYe4JJCDRd9fX59jUxhO/ +IAjXm9A/0reaX2Sz0TiYwP3bTfvJav4FSU2DEAKGxF4Mda/mx3w21Q0j4GYe +Gu7EFqTVuqtHENDAV7jzPvbO/QmhylEE6HqwWe2r+bv2pchFE5Caa8RxFztd +VSpPMgbX+zTiSCt2gzCjTiSOAL+FfL0W7PGftU8E4gkok2nf37ya/yVhnCeB +gIS/BnqasHe82Pf9TyIBu31f/W/V/wcoBvJi + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.8162501376745934, + 1.2159511899051207`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.8162501376745952}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.8162501376745934, + 1.2159511899051207`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.8162501376745952}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VdsbB3BDKEMZMkfmMutIEbf1mhIhmYdMxzk7SeZcJDRQIpG61C/D +JeWaReakSCqikkoR1TnVxjEcQ0n1W/7Yz34+z9rPd693rbXfZytSQx3pXBwc +HFP4Wr2HP9PZ0jjwbDfjqZJJahQb7WbdMKBaVCDxiyPSqx4r2HFZxaIN1VGE +685hO9D6eAX1H6LJzha+VdfGJHbyWPSim+4jkmexU7ulOhLLnqPUDTGfkrGb +B8LzVyivkIBwWtAZbHL4SXxs6xvkdV6i8hS2DEPZa9H8PQprlClPwt43HW8U +2fsBrbzJoSVgt6+QAjFl4yjFKOPtceyhk5LHG0I+IUut3+tisVm8FuQ8hYF2 +C31dOIbNmx7mob/ERAamtnkR2PIieT3hrV9RvYEmRyi2veziTZb5JFI18/pO +YBOFShLaa1lo0a/yAhU7UXV/8pHeacRlHz/qjf1GcnBbVNksGubIvu2ETfMM +OpydPocyxd4b2GPPXOf493YIG3lm3Ijai71WSVt4lrKArBoaVEywL9M6rYTF +FxF1kfMfA2yFWx6JukuLKLar/4EOtqFWCuto63c0kLlor4AduONDL2m+gjIT +07ZxYM/HHFvDr/YLNZ7lSVyKZKOkVgET9bW/UZ0Q/zkWdi4Ylh/q/YP8tjX2 +vsOmlfRYRJRxQo1Yl0Iddll39thJWS5oWVdvU4o988UnPiudC4TzDPXysOM1 +FupqQrjB4wCPTgr25WpF5WkKDyg+H5p3xh4emGz/XcwDxi5XflphK8w1eq4X +54XvXfN3d2FXbLe/pL3EC3u35x3bjN3VHMcZ3LoW7g8+rGFEsNFC58sPX80F +YfqhvDsdW9RWUPh4uyD8UvIpdsTWG7QAISMhuDlO5CPsoM93CrfprAfK8odi +Kewwrl69vwSFISuqc7I7nI0YSlWzyYsisHxfKHYj9jzxZF2/vijofHV6sBLG +RlzlTEWpcFEQb/yn9TO2gv5mx7IJUaB0KrTXYXuaZ95+NiYGYT5V3PbY/QER +kZJPxUGfR/xyZCgbjd7KSPNbKwEXOWdGXbEnJ8qK/7OUAJkR3mEjbP6oTy+N +OyTAuuDH2G+87xZnnLf73ZEExAylJGO33NixUFogDRTO8i+njrLRDcZy9K4o +OUgtV2o3O8JGe13OjkZWykHupsfl8tiTXWJ7KplyMLES5rwcxEbbb2iJK3jI +w16ON0M12F1Unzqe3ZvhVH1qoQz23PTY319PK0A4o2/feCAbiR21qK+zU4Iz +WwzVjAk2Yt7gD3QIUoKn98ZPrMduej8gO5WiBOY7DbLG6Wx00Nb7tFqHElyU +nSVTsG9oRjtepSgDm4d65BkNv5+8NZMgqQJSW0JLHALYyPmQgLbNuCrMvNLT +UPJjIxTtQnH7pQq5tlfXs3zZSCO5YCdNWg0MfSVuN2NzFOubJRxQA8IvcIcD +duWol9vt+2rg3aFsEOeDv0/XipMyRVtglD0g/OAgnp+F3RBJVQejzoBwRQ82 +KnbKebeUoA6hbhmWDHc2yqCOj635nzp8S694W4pNSzo2If9SHY60j5vqYou0 +5XE4mWuAuiSXmJEbPj/6LI1WZU1gWT9pBxc2klW6mJj2WQtaPJIiFQ6wUdv5 +efUfXNrw3tsofcgBrwfbY5BQ1IatA/c807Hzu1TUzXy04RLLV3ppPxspHWp5 +8f21NtS9kpV/bI/rrWCoEk91oCdNer+vLRvJycoTCh560NY0n+dsxUZaJVGC +PxEFTuY8SKabsBGVdnpB254CVVbmlzdg5ypfGvU7SIG/+9tozcZsxF1UXdMd +QwHtbQ/3CWIP55POl2opkOXirl9thPtprl+eurI+vH/BF/FtB97fNFsdd97t +UBQxv6y7jY3+jVBxuNNrAFw709v4VNloIBrtPFNiBMe1BH6m8rGRos8re+/g +v+DnYopsHnMO0f80VMnFAhSdz3uc2zWHJCea+CSpZrAtyZFOuz6HovRN3l/S +sIBbxpU9PFFziDq10iNGWsIp5aqcDTZzqNIskq+g3wruSymqacnMoRvzQfcr +LlvDlEDfctbELPpuKtXXlbgPyjZb2do2zqIRDu7ZcX87iLW/P5p6ahaFbArN +PKm8H+z1FLpdHWZR1eGejivJDrBY1FEuJz2L4tjSS5qHD8B4TYKrPGMGLdjs +cX3k6whDJZZd2RUzyMgry5RxwAmsT1/+pHpsBr2Qzgvq0ncG2DQ1cs90Bsnc +PN1WutUFmNLRtdf4Z1DTmIatvZAr+DXKxdytnkbygzOHoqdcwXpvTdJa+2mk +fyWronjMDXyCAt77M1kobw1b51KnOwh5CQ1pnmOhBlPd4eRmD2h+/41LQZWF +cneeF1kp84Rey9e/LB9Nof53JSn66V6QtKYk+VfEFLpjd10lLOkgvA7rvnZQ +dgrNHnXiCKF5w9rG4Jm9fZNoYY96IMvcB9bVN1CpZyZR6dTb75E7fEFIq0sy +yWgSuf9bEuAt6IfPc65Vw9IEqru9z5f7rB8cYAmvWaifQEayL36k/vCDIfF3 +03/iJpDy2KHh54f9Qef6YI7nngn0WeDI/uuf/CG5eaL0l8gEGsiwD7ByocLK +FXPxQgaJLscUCBwboILx0cOGp1pI1Nb+50eAdQAYM5Pl/rpCog0H4ax+SwD8 +MZBt5PmbRAobH/VvagsArdQX/unRJNLrtZPibQ+AsLhcXzFsRxOv/97cDwB0 +ytVZ6RjO3xT99MTjANg80q1kEUkimZHyDT1vAoDl/9w5J5REKj6SuQeXAoC/ +i0sqPpBERn6s0uTtNGDz3TqMvEh08+pMpP0OGkSHt14Y9yTRxpdzuyUNafDx ++8nl09gsy6XBUmManHVSr3rsQeL+xcHZa0YDofyVE+7uJFq/JOIheoAGYcEX +Ok67kOjzBYN1BUdp0P/t42thBxIdeLRz8FAoDfyiRTa27SdRO8euAr1w/P7e +DVcPYV+N3G3wIIoGD2wTT9yzJ5G9h5U/4zgN9LJMayLsSNSs4tGseZ4GJhMb +2pk2JMpojT/cdJMGw5qpSTx7SHSUkmMUU0oD4Suezq2WJLL9r3adYRkNxBd2 +h4Rj8+cw/2uspIFcsHnUqAWJkiMcyIZ6nN9n/7jVnETx6ipH7jygwSvautzT +piQKynkafHuUBhSF+l6rv0hkvZ5pEjFGg0AbfRov9tZkDiHKRxp8iBs2fWhC +ImaEQWUtgwakV3G/Oba/fcFUzSQNqmd0DSyMSeTOExlSvUwDIrJpq6MRiawi +ZcIqJOjQfCfxTpEBiR4UpNhckqJDnHTnHjq2Se+cSowMHYryazS2YuupPn1r +Lk8H2Yp0smo7iaRfHzd/p0qHtllPmw59Ek3sGpHgN6BDyKuR83PbSHSRq/Du +ISc6KFxrELuig+vXFcy1c6HDzN6wn/7YZ7xiIvTd6FCv9cVAFzum3mHLH086 +mNWvL36ijedPcGb9Q6XD6xgnHx5s/SdU2sNwOvAfUvM4r0mi11mqAsqZdLDW +dQl4sZVEVUgo8GsWHTyOVHlWYJ+Zmu+qzKaDxcLmaynYFOuuBMMcOpy3s5s1 +xs7gCJizy6eDBjHMUbaFRHtCC9/GVNDBu4K3JFuNRHJy53bsrqIDk1tQPgJ7 +/kloNncNHf/P6HxwwC5SQ3YZdXQobOoz2oD9a2Sko7iFDoMJsQ4XVUlUbytb ++qyHDo2pj7jzVEiUtszFc/kJHUprH/5OxKaWkv4evXS4U8cwDcAWXtMi+7kf +r49NeqEGdnCr+8UfQ3RI7Yi716ZMImWNf6JVGNjHRM+wlEi0/PrEy29MvB9H +9nEOYQ8k0/Wqv9KhiqOs+y52wvh20miSDjLMN+oZ2MO5L733s+nwKITbkYJ9 +iU/EMo6TAJHlRvVzirgfzI14RXETQGZmD4djfxkpiwjhIeBcmifDC9uk3qKQ +uo6Av/8tX7sNm+kX89NGhID8Pr+UDwp4/raWopZiBNjw5fP2YhvvFFVH4gT4 +H+sZa8LOFKpw1ZcmoKiLUZS9Ot7yoVZWkQDJPisfO2yipKJHXJkAQYf5SpPV +5zNjP2xQJSA296KbFjaTEBNao06Am252k+DquJhV4KQeAWkGL2ufbyZRy2+x +RCaFAKfy5YFObMa3sStj2wnYZChq04C9qyOuc9CQgDYtUZvr2J+Dq+TvAgEL +NI+Twdjr3Y8bNJoRcC2eJ8wf28h8r22tBQEX7hY1uWJnSH+MLdlLgA6l1s0M +u2lNdWaBDQHF+UpVhtifpo/fumpLwHRJso8utmG3+KsLDgR4Tyr0yWFTaz9O +nHUkwPWgR5o49oXr1VynnAlQeXy6WAj7Y4S1XrQ7AWozVeO/5Ukk5CNhFeZJ +QPbLar7v2IbWn7yDDhLA5Ck+O4t9YfOJNB8/AjgL/K4wsJv4bYrcqdhbNJXH +sD8uSDQ70giIga/871bzxj/12xIEZPzIsR1azeutYe4JJCDRd9fX59jUxhO/ +IAjXm9A/0reaX2Sz0TiYwP3bTfvJav4FSU2DEAKGxF4Mda/mx3w21Q0j4GYe +Gu7EFqTVuqtHENDAV7jzPvbO/QmhylEE6HqwWe2r+bv2pchFE5Caa8RxFztd +VSpPMgbX+zTiSCt2gzCjTiSOAL+FfL0W7PGftU8E4gkok2nf37ya/yVhnCeB +gIS/BnqasHe82Pf9TyIBu31f/W/V/wcoBvJi + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.8162501376745934, 1.2159511899051207`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.8162501376745952}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.8162501376745952}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "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.8162501376745934, 1.2159511899051207`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913320330871353`*^9, 3.992122368910681*^9}, + CellLabel-> + "Out[140]=",ExpressionUUID->"3d652a04-def7-4949-a71c-66f7b5b60304"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918450725877113`*^9, {3.991845494880064*^9, 3.9918454954591675`*^9}}, + CellLabel-> + "In[141]:=",ExpressionUUID->"485e4bed-973b-f94f-bcff-d7674e9a7110"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8320522023196037`*^-277\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 858, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991332033325203*^9, 3.9921223692595806`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"5ec2bb68-906d-e444-bec9-77213b2dd55f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.8303708355645706`*^-290\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 859, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991332033325203*^9, 3.9921223692786064`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"bc2a0670-6330-024c-9230-85b6b8634ff7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.273570828360183`*^-302\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 860, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991332033325203*^9, 3.992122369294588*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"8471d881-b34e-a24f-a819-31c375bab925"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 141, 861, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991332033325203*^9, 3.992122369315588*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"04f8e177-3585-7943-8c56-e332ff88e270"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4Vd0XB3BzJYnKzL3n3itT5ouXVHtFE6HBEBmKCKVIlIRK9ZpnIRkz +NBjvOZJSipKhqIwVGg0hXplCym///jrP5znPs84+++z1XYfh4r3fjYeLi0uQ +m4vr/9fMEBcBLdcbWzZwM1V8thlued5OmB0gzqG6xtvr9Xil0NKLmssEEYGU +y4+q/uVRRplPY+j8xHXk0hmk0MdjgLw2+5/4Rb+DRqyvhFTxmKD23x7JE/QH +6GeNV6o1jx1a1vNVcYzehHL0kvq/cHmi3ObsU6P09yiGu7KH/jsAlZZF9Hip +jyC5A1UyJ8cikDt6e/2H7xTqVLUse8JKQicHlL9VlM6jay9lGyVWX0eCjCuK +n/S5QP1Vxt/hndkoVuSlSu5hXkihmXAPn7iJXHqsnvC+EgDWvaMpghYF6FT9 +FRdvRUEwL9P798LMLcTxEbKUNFkFoy6tYZe23UW554+PaB4QgW+ns/4+SyxG +odmL+6Z/iELB5Iog/bBSxNX+GR4FroVzuuyfK4lypOB3NMBKRQy61yZzjkyW +I7WNnyyzNcUg9nPT9MaZcqTDZasxoicG3tfzokTmypFRtMngBWMxWKPVRlX+ +KUdO+apWRQ5i0PJBfHR8OQeldExq8MSJwQ/3+T5hOgfx614YKpsSg+/0TcpC +phzUP5Nqs/KxODj+ynr/K52Dbm5ln+57Jg57XgYZp2Zy0KGY1riyZnHQ4qBy +nRwO+iDP32T5ThzO2m1O9CzgoLeWvoYZU+IgZXznTHUZB9VwzAg1FQnYweK+ +v/SMg1JPcI9YpErAHOrqWjHKQVYPMgQYWRJgM3w6wnOMg9bw67Om8iXA6OL4 +5ob/OCg246RDKikB4l2nioOmOejKy57WTy0S4LsYnv36Dwf5KFdSPnyScFBx +qE9MhESmA8eCE09JQkAyp4XFJtGOYFbxtgBJGFLqfGOgSyIjsd4PsyGS4BRc +9d38HxJt3G6ubx8tCQMJX2x8DEmkUqAxxbolCQ94X6hlGZNopdu0x71eSdA4 +qvk605JEr/qDrd7tlIIYY99Nar4kagzSuxxpIQWVR+rH+f1I9Hzdf5xN1lLw +YSH+fq8/iR5tO7w610UKkg98jL5yjkTF+UbNnsFSEGkUvOvxRRLFuC6D36QU +8BjoiLfHksiiP34DjSYNGvPny+Lv4Odt6O9wkJeGbiXJEpEiEu0+/U/IDRVp +WK4cyRtXTKJdPB/fSP4jDdG5FtX/luH3IzacWbtXGpzblmxd7pFI16H+6fJQ +adC+/Nul+SmJZDvmracGpCEy3PGEUxeJ0mXMl7R+SMOPMMWqO90kkjqSc9tn +UhqGIrQOTb0jkfjkjt9jf6VBwi607lIPiUREknO+S8jA+R0xXyI/k4jXTH20 +z0QG5DKrMi1GSDTyzOViY4kMNPO++JOxSCJ6wrtjsRUy8IEqTX/5h0RWThbW +VtUysN5r1GLuL4lq5gxUPjfKwBu+9X93c1MoUU2049c3GUi0EQju5aeQYeoT +RUVpWbDP/aF0U5hCPq66a8YIWWA3lO8nV1OoUKtokVSUhSD3xZSnIhQSeZXy +douuLPhc5PbpXkOhfq6T5232ykJSyX3PcXEKRR+TfX31X1l4kuhbXEujUO0/ +iQ92x+B65yLTKDqFZvmW54smy4LH7J2beQSFDmdPBWTmysKS8IhoCJNCOh3N +zHuPZIGIGnKRVaBQ3+ZzZ/onZaE9MpF3SZVC6qJdcsaH5GBiPmfa0YBCgzGD +odfc5KDOtJNv+UYKZQr+Gho6LgeLu/+eLccW4pMkowPkYG+KYPiiIYVGZu12 +dCXIgWu2nPWlLRQq6O076flcDoy/eHRsNqaQg914e3WzHGwHBfVW7HVdf/WF +38pBRpTzuMM2CoW+pvNSfXKwKdQwz387Xn+dc+rirBxceTDan7STQrK3B57E +KdNgu/Dhxcu7KdQhPyv/VYMGe3Y2vV/AjsoViNTRo8FS7kmGjxmFFtIVrd4b +0SDQ3XXC2pxC72I8vzMdaHCW9SJJeA+F4gUDzf1dcL2Jd00B2DvDIskGDxr0 +e0l7fcGuvFgU5OVPg4hwhdmSvRRKOj0mUhlLA/VRO0Wd/RQynfjjv/waDRp9 +u+sTsHlOCPccvEEDt9nQtjFsn6MaBUu3aPDcxv2fXEsKWdidMjCppUGnbrje +jBWFBLouZd1ooMHr2RTzHdYUerw/kXe8hQZmiZ86rmGrmlEtiR9oMDKvqKtp +QyFBNOPcO0WDrrpvxvsPUChgq9LyygUaLPu5PTYDe9DYvjSOmw5bD9byD2DX +7apdMFpNB/0Gx2AfWwpp7p7OkRWnA+WuGkJhZ5kr7pyVpYNbkHfJNHbg/pik +Oyp08JHlpJ2yo9B3q6cGl7XocNr+kHUJts2BqU8O+nR46/9l6xC2toOdqsgO +OqSEPCuyPkihUbf19Wec6fCL+fiVrD2FDnrYHt/rQYfJkheiptiNx6JEVbzp +YGXqHeGPne/907EviA7CmsvXNGCv8ZXnu3+ZDiG2pawx7It+B+7GR9Jhy95D +nqIO+PycezxrnEaHnzp7E62wm89PZMhl0+GLwK4zp7H1Q1jGvwro8PHUw7h4 +7MKLNsNviumgtILvUxH2ussRcXcpOojmXHKtxw69+kj3ykM6fDaJJ/qwJ8L+ +63GspUOWXczaKWynSGboP4104HHp2rzMkUKvoq2VRF/TYbtuU7YU9sa48NaR +TjrwDjwzUMG+nVDt97yXDtJ18kIG2OLJ49JZ3+hw1cFUYgf2lRRG7dkROuhc +TrLfhz2ZZuW+7ycdJowPvT+IffhG2KoNc3QwHBVKcMFuzXxI8S3RgcG3GOqB +TXszq/ofDwE02+gyL2zrfSJcDgIE/BmXk/DGjm5Tbm9cQcBtYdGH//czS+NC +3VUErDV8kXYSe6HD4dxNEQLW6WVRx7G1bM6YrV5HgMHSvKA7tkd3HD1IgoDS +9o3Zh7Gzbe9MfpcmQEq9zscWu+t9Xb01jYATL35esMBeZd+bVscgoDNhQ4sR +9rbemeMa6wm4UPfWVhf7vONqlKFEQFTDDpYCNvlRac0KVQJ6zMZUxbCHDxkN ++GsQML1R6QwPNvHFvuqrNgHdlQeXxvD+x36LdXpkQABHSqf9CXa9620t5c0E +DJ69SSvEXhyo5UsBAmT3pxZFYh/7Pn3XeycBjb8Loiywcz2FQ3pNCeglIj6p +Yb8bUdxnYkHAkNfVMyuxd44d/MW0JuABx8m7Fp+3rHWX2y/YEvBRMC82HXva +sKis156AelYyjy92TuRv9xQXAmauLA3LYM9yWNum3AjQaDF0Gsfn3/z9bmKv +JwFPO24rPcFeUMx4t8KHgBq/G7X22Hv3PK84epoA+uP+eEXswjM/4p+dIeCq +/OD9n7ifLOs3mQQHExDzJ134EnaxS9+DiUgCGgwyhqNwf/JE8qeYxxKg6Op3 +yRTblqPmezeBAG4vOb9l2PxcISquaQToOvoeD8L975RJu9FdQACf5vqS/Tg/ +RN4dCqp5SkBFk3FnOc6jo0thtjLPCbj0NNjEGvuRQrlOQAPez/VfaHM4vzz9 +uca0Wgk4ZlU7ro9dtybXsaCHAOcVW9Rv4Tz0M/+6JXqWgNp7l8L0cL42+wnK +DM8TwD/BRLU4f4kM7V/b/xBQFRrgZIrdMhJatsTLgD7pkc4DOK8VwlnEaVEG +LPonUYdM8Pepc+U+qMqAq91/wlg4/ye2fpAO1mBA4Qr1qCw8H5bV7tHJ0WaA +X06PpiS23pON7oP6DEAfRd2W4XmSXC3S4rudASUuhYGdQKE9FY/SopwYMNtY +c1tzE4VeFKzTfBzPAHkPicgBLQp9lI80+ZzEAGszpyhd7Jm8JRfeVAaEaQdu +vKJJIfmbI9dMMhmwEJ+fJ6eB8yLr6e/OOwwwtZ0qAjwvt6R6NYzXMeDIaqfB +nXie3gt/7kTMMOB47KdURymcB6YvJcPmGNBQuvPOKUkKpQu1tY39ZsDZ23TD +KxI43+I/7ajmYULqKqGv+WIUMktbULcRYcLXCDvTDlEKfb2luRS1gQlCmU4/ +R1dQSLghI/uXMxPaWRn8PPMk4o7Is3NyY8LquyniQ79ING16d229BxPqR8rv +N8+S6H3r/bBEbyZMq2wrjpkmUX5Xm7daMBMW1Ue8eCbw/+PgcjiSxoTSLU2P +bg2S6Ci//+fWViYESh1gDrSRSJre1P37LRPurI37Q74lUau+3GulTiYk+ukV +XnhDIj2v+sehPUygCVxyFmslkUC72A2970yIKGmK0m4iUUFOpXUWNwua3a6t +0nlCon7DueYTOiyQurzw2OYuiY74nr8nlM4CXxpXp3Ywrqf98Z5yJgtaJc/3 +1ZwnkeAkVO7IYcGH+w/fmwSSqPyUwP2LhSyIs9AoczhLokWfhKppkgVVElff ++58iUYr3rerelywYjW8JP+NGoiav9triPyzQ/rZmU4UZiTTcN7SaOctDRX2M +r74kiV6vUV3pb7AePqoqpOZf56Dq0tAbqrwKcMhVucVTjIPOc6vsfdWnAPmb +HTd/CChHgr2Bu05WKMKiRl59/a0yNFDISM4OUoK3qP1w8ZFSlKwkxffAWhls +fI2i980Wo/j0ow3OhAr0Wq6tepRahA4mO7YKDalArMO+QbTxLprbVjCfXbMB +wjrGvzRW30bfBowC6sJUQZZnbcUTm1vo5mYtmRZnNbAw3P71RFcBKrnqL+qu +pg7xHQciEvzyUZj1kd28M+rgsTtdwZnIQ7q9uXfCWjTAZ3yke7gqF6Up3yhp +2a0JdtVHyxZP56ALT2PSdj/QBGa21FzH1ixkLmNd0CyvBSsD3R0nnt9AW082 +2ItGaEFhbXvBodjrKFvWRf7VjBYsJGYfC9mZiuSf3UqxsNcGq781d+9vv4bi +1epU2mq0ofucutSfY0no6BTf2yYVNsx4cBUGhScgF84kERHHhpov4SPbm+KQ +V6jlomkCG4JtezPlq+OQv2VFt1ASG7SO7G9bVhKHwmf8Y+NT8P0e+cc98XGo +1GD+d2omG7h6K+Ie2Mah+dqlrsIiNnRIDL4xG45F8W1CMc8b2NBn2d7fuioW +peed8Pi3iQ2ZZuEzm7hiUZ5fq/Gul2zQH5UKLJuMQZXi8QsvW9lwxJKrL7c7 +BvUeXOvR3smGh17Ti9W5MUjxm5Tx129smH9vvaleLwZpVgTS8gfY0F/1dX+g +cgzaeLVn3m2IDXIx1Z1s2RhkpphZPjzCBoFNtrQK7hjke5yg/fzJBvN9e0qG +X0WjoE2X5skpNlTG7ZOsexKNrq762uE3wwZH4ezRLDIapZXlRc3N4fXFizS5 +pUWjmxf53B8usKExUq1tT1Q0KtrnZhS0yAaZe2Fbt4REowrmC7ktf9mgykwX +1zoVjWqmFOaXlthwwPrTXiXXaPQ/Mr+a+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:eJwV1nk4Vd0XB3BzJYnKzL3n3itT5ouXVHtFE6HBEBmKCKVIlIRK9ZpnIRkz +NBjvOZJSipKhqIwVGg0hXplCym///jrP5znPs84+++z1XYfh4r3fjYeLi0uQ +m4vr/9fMEBcBLdcbWzZwM1V8thlued5OmB0gzqG6xtvr9Xil0NKLmssEEYGU +y4+q/uVRRplPY+j8xHXk0hmk0MdjgLw2+5/4Rb+DRqyvhFTxmKD23x7JE/QH +6GeNV6o1jx1a1vNVcYzehHL0kvq/cHmi3ObsU6P09yiGu7KH/jsAlZZF9Hip +jyC5A1UyJ8cikDt6e/2H7xTqVLUse8JKQicHlL9VlM6jay9lGyVWX0eCjCuK +n/S5QP1Vxt/hndkoVuSlSu5hXkihmXAPn7iJXHqsnvC+EgDWvaMpghYF6FT9 +FRdvRUEwL9P798LMLcTxEbKUNFkFoy6tYZe23UW554+PaB4QgW+ns/4+SyxG +odmL+6Z/iELB5Iog/bBSxNX+GR4FroVzuuyfK4lypOB3NMBKRQy61yZzjkyW +I7WNnyyzNcUg9nPT9MaZcqTDZasxoicG3tfzokTmypFRtMngBWMxWKPVRlX+ +KUdO+apWRQ5i0PJBfHR8OQeldExq8MSJwQ/3+T5hOgfx614YKpsSg+/0TcpC +phzUP5Nqs/KxODj+ynr/K52Dbm5ln+57Jg57XgYZp2Zy0KGY1riyZnHQ4qBy +nRwO+iDP32T5ThzO2m1O9CzgoLeWvoYZU+IgZXznTHUZB9VwzAg1FQnYweK+ +v/SMg1JPcI9YpErAHOrqWjHKQVYPMgQYWRJgM3w6wnOMg9bw67Om8iXA6OL4 +5ob/OCg246RDKikB4l2nioOmOejKy57WTy0S4LsYnv36Dwf5KFdSPnyScFBx +qE9MhESmA8eCE09JQkAyp4XFJtGOYFbxtgBJGFLqfGOgSyIjsd4PsyGS4BRc +9d38HxJt3G6ubx8tCQMJX2x8DEmkUqAxxbolCQ94X6hlGZNopdu0x71eSdA4 +qvk605JEr/qDrd7tlIIYY99Nar4kagzSuxxpIQWVR+rH+f1I9Hzdf5xN1lLw +YSH+fq8/iR5tO7w610UKkg98jL5yjkTF+UbNnsFSEGkUvOvxRRLFuC6D36QU +8BjoiLfHksiiP34DjSYNGvPny+Lv4Odt6O9wkJeGbiXJEpEiEu0+/U/IDRVp +WK4cyRtXTKJdPB/fSP4jDdG5FtX/luH3IzacWbtXGpzblmxd7pFI16H+6fJQ +adC+/Nul+SmJZDvmracGpCEy3PGEUxeJ0mXMl7R+SMOPMMWqO90kkjqSc9tn +UhqGIrQOTb0jkfjkjt9jf6VBwi607lIPiUREknO+S8jA+R0xXyI/k4jXTH20 +z0QG5DKrMi1GSDTyzOViY4kMNPO++JOxSCJ6wrtjsRUy8IEqTX/5h0RWThbW +VtUysN5r1GLuL4lq5gxUPjfKwBu+9X93c1MoUU2049c3GUi0EQju5aeQYeoT +RUVpWbDP/aF0U5hCPq66a8YIWWA3lO8nV1OoUKtokVSUhSD3xZSnIhQSeZXy +douuLPhc5PbpXkOhfq6T5232ykJSyX3PcXEKRR+TfX31X1l4kuhbXEujUO0/ +iQ92x+B65yLTKDqFZvmW54smy4LH7J2beQSFDmdPBWTmysKS8IhoCJNCOh3N +zHuPZIGIGnKRVaBQ3+ZzZ/onZaE9MpF3SZVC6qJdcsaH5GBiPmfa0YBCgzGD +odfc5KDOtJNv+UYKZQr+Gho6LgeLu/+eLccW4pMkowPkYG+KYPiiIYVGZu12 +dCXIgWu2nPWlLRQq6O076flcDoy/eHRsNqaQg914e3WzHGwHBfVW7HVdf/WF +38pBRpTzuMM2CoW+pvNSfXKwKdQwz387Xn+dc+rirBxceTDan7STQrK3B57E +KdNgu/Dhxcu7KdQhPyv/VYMGe3Y2vV/AjsoViNTRo8FS7kmGjxmFFtIVrd4b +0SDQ3XXC2pxC72I8vzMdaHCW9SJJeA+F4gUDzf1dcL2Jd00B2DvDIskGDxr0 +e0l7fcGuvFgU5OVPg4hwhdmSvRRKOj0mUhlLA/VRO0Wd/RQynfjjv/waDRp9 +u+sTsHlOCPccvEEDt9nQtjFsn6MaBUu3aPDcxv2fXEsKWdidMjCppUGnbrje +jBWFBLouZd1ooMHr2RTzHdYUerw/kXe8hQZmiZ86rmGrmlEtiR9oMDKvqKtp +QyFBNOPcO0WDrrpvxvsPUChgq9LyygUaLPu5PTYDe9DYvjSOmw5bD9byD2DX +7apdMFpNB/0Gx2AfWwpp7p7OkRWnA+WuGkJhZ5kr7pyVpYNbkHfJNHbg/pik +Oyp08JHlpJ2yo9B3q6cGl7XocNr+kHUJts2BqU8O+nR46/9l6xC2toOdqsgO +OqSEPCuyPkihUbf19Wec6fCL+fiVrD2FDnrYHt/rQYfJkheiptiNx6JEVbzp +YGXqHeGPne/907EviA7CmsvXNGCv8ZXnu3+ZDiG2pawx7It+B+7GR9Jhy95D +nqIO+PycezxrnEaHnzp7E62wm89PZMhl0+GLwK4zp7H1Q1jGvwro8PHUw7h4 +7MKLNsNviumgtILvUxH2ussRcXcpOojmXHKtxw69+kj3ykM6fDaJJ/qwJ8L+ +63GspUOWXczaKWynSGboP4104HHp2rzMkUKvoq2VRF/TYbtuU7YU9sa48NaR +TjrwDjwzUMG+nVDt97yXDtJ18kIG2OLJ49JZ3+hw1cFUYgf2lRRG7dkROuhc +TrLfhz2ZZuW+7ycdJowPvT+IffhG2KoNc3QwHBVKcMFuzXxI8S3RgcG3GOqB +TXszq/ofDwE02+gyL2zrfSJcDgIE/BmXk/DGjm5Tbm9cQcBtYdGH//czS+NC +3VUErDV8kXYSe6HD4dxNEQLW6WVRx7G1bM6YrV5HgMHSvKA7tkd3HD1IgoDS +9o3Zh7Gzbe9MfpcmQEq9zscWu+t9Xb01jYATL35esMBeZd+bVscgoDNhQ4sR +9rbemeMa6wm4UPfWVhf7vONqlKFEQFTDDpYCNvlRac0KVQJ6zMZUxbCHDxkN ++GsQML1R6QwPNvHFvuqrNgHdlQeXxvD+x36LdXpkQABHSqf9CXa9620t5c0E +DJ69SSvEXhyo5UsBAmT3pxZFYh/7Pn3XeycBjb8Loiywcz2FQ3pNCeglIj6p +Yb8bUdxnYkHAkNfVMyuxd44d/MW0JuABx8m7Fp+3rHWX2y/YEvBRMC82HXva +sKis156AelYyjy92TuRv9xQXAmauLA3LYM9yWNum3AjQaDF0Gsfn3/z9bmKv +JwFPO24rPcFeUMx4t8KHgBq/G7X22Hv3PK84epoA+uP+eEXswjM/4p+dIeCq +/OD9n7ifLOs3mQQHExDzJ134EnaxS9+DiUgCGgwyhqNwf/JE8qeYxxKg6Op3 +yRTblqPmezeBAG4vOb9l2PxcISquaQToOvoeD8L975RJu9FdQACf5vqS/Tg/ +RN4dCqp5SkBFk3FnOc6jo0thtjLPCbj0NNjEGvuRQrlOQAPez/VfaHM4vzz9 +uca0Wgk4ZlU7ro9dtybXsaCHAOcVW9Rv4Tz0M/+6JXqWgNp7l8L0cL42+wnK +DM8TwD/BRLU4f4kM7V/b/xBQFRrgZIrdMhJatsTLgD7pkc4DOK8VwlnEaVEG +LPonUYdM8Pepc+U+qMqAq91/wlg4/ye2fpAO1mBA4Qr1qCw8H5bV7tHJ0WaA +X06PpiS23pON7oP6DEAfRd2W4XmSXC3S4rudASUuhYGdQKE9FY/SopwYMNtY +c1tzE4VeFKzTfBzPAHkPicgBLQp9lI80+ZzEAGszpyhd7Jm8JRfeVAaEaQdu +vKJJIfmbI9dMMhmwEJ+fJ6eB8yLr6e/OOwwwtZ0qAjwvt6R6NYzXMeDIaqfB +nXie3gt/7kTMMOB47KdURymcB6YvJcPmGNBQuvPOKUkKpQu1tY39ZsDZ23TD +KxI43+I/7ajmYULqKqGv+WIUMktbULcRYcLXCDvTDlEKfb2luRS1gQlCmU4/ +R1dQSLghI/uXMxPaWRn8PPMk4o7Is3NyY8LquyniQ79ING16d229BxPqR8rv +N8+S6H3r/bBEbyZMq2wrjpkmUX5Xm7daMBMW1Ue8eCbw/+PgcjiSxoTSLU2P +bg2S6Ci//+fWViYESh1gDrSRSJre1P37LRPurI37Q74lUau+3GulTiYk+ukV +XnhDIj2v+sehPUygCVxyFmslkUC72A2970yIKGmK0m4iUUFOpXUWNwua3a6t +0nlCon7DueYTOiyQurzw2OYuiY74nr8nlM4CXxpXp3Ywrqf98Z5yJgtaJc/3 +1ZwnkeAkVO7IYcGH+w/fmwSSqPyUwP2LhSyIs9AoczhLokWfhKppkgVVElff ++58iUYr3rerelywYjW8JP+NGoiav9triPyzQ/rZmU4UZiTTcN7SaOctDRX2M +r74kiV6vUV3pb7AePqoqpOZf56Dq0tAbqrwKcMhVucVTjIPOc6vsfdWnAPmb +HTd/CChHgr2Bu05WKMKiRl59/a0yNFDISM4OUoK3qP1w8ZFSlKwkxffAWhls +fI2i980Wo/j0ow3OhAr0Wq6tepRahA4mO7YKDalArMO+QbTxLprbVjCfXbMB +wjrGvzRW30bfBowC6sJUQZZnbcUTm1vo5mYtmRZnNbAw3P71RFcBKrnqL+qu +pg7xHQciEvzyUZj1kd28M+rgsTtdwZnIQ7q9uXfCWjTAZ3yke7gqF6Up3yhp +2a0JdtVHyxZP56ALT2PSdj/QBGa21FzH1ixkLmNd0CyvBSsD3R0nnt9AW082 +2ItGaEFhbXvBodjrKFvWRf7VjBYsJGYfC9mZiuSf3UqxsNcGq781d+9vv4bi +1epU2mq0ofucutSfY0no6BTf2yYVNsx4cBUGhScgF84kERHHhpov4SPbm+KQ +V6jlomkCG4JtezPlq+OQv2VFt1ASG7SO7G9bVhKHwmf8Y+NT8P0e+cc98XGo +1GD+d2omG7h6K+Ie2Mah+dqlrsIiNnRIDL4xG45F8W1CMc8b2NBn2d7fuioW +peed8Pi3iQ2ZZuEzm7hiUZ5fq/Gul2zQH5UKLJuMQZXi8QsvW9lwxJKrL7c7 +BvUeXOvR3smGh17Ti9W5MUjxm5Tx129smH9vvaleLwZpVgTS8gfY0F/1dX+g +cgzaeLVn3m2IDXIx1Z1s2RhkpphZPjzCBoFNtrQK7hjke5yg/fzJBvN9e0qG +X0WjoE2X5skpNlTG7ZOsexKNrq762uE3wwZH4ezRLDIapZXlRc3N4fXFizS5 +pUWjmxf53B8usKExUq1tT1Q0KtrnZhS0yAaZe2Fbt4REowrmC7ktf9mgykwX +1zoVjWqmFOaXlthwwPrTXiXXaPQ/Mr+a+w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07564447682039577}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07564447682039577}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4Vd0XB3BzJYnKzL3n3itT5ouXVHtFE6HBEBmKCKVIlIRK9ZpnIRkz +NBjvOZJSipKhqIwVGg0hXplCym///jrP5znPs84+++z1XYfh4r3fjYeLi0uQ +m4vr/9fMEBcBLdcbWzZwM1V8thlued5OmB0gzqG6xtvr9Xil0NKLmssEEYGU +y4+q/uVRRplPY+j8xHXk0hmk0MdjgLw2+5/4Rb+DRqyvhFTxmKD23x7JE/QH +6GeNV6o1jx1a1vNVcYzehHL0kvq/cHmi3ObsU6P09yiGu7KH/jsAlZZF9Hip +jyC5A1UyJ8cikDt6e/2H7xTqVLUse8JKQicHlL9VlM6jay9lGyVWX0eCjCuK +n/S5QP1Vxt/hndkoVuSlSu5hXkihmXAPn7iJXHqsnvC+EgDWvaMpghYF6FT9 +FRdvRUEwL9P798LMLcTxEbKUNFkFoy6tYZe23UW554+PaB4QgW+ns/4+SyxG +odmL+6Z/iELB5Iog/bBSxNX+GR4FroVzuuyfK4lypOB3NMBKRQy61yZzjkyW +I7WNnyyzNcUg9nPT9MaZcqTDZasxoicG3tfzokTmypFRtMngBWMxWKPVRlX+ +KUdO+apWRQ5i0PJBfHR8OQeldExq8MSJwQ/3+T5hOgfx614YKpsSg+/0TcpC +phzUP5Nqs/KxODj+ynr/K52Dbm5ln+57Jg57XgYZp2Zy0KGY1riyZnHQ4qBy +nRwO+iDP32T5ThzO2m1O9CzgoLeWvoYZU+IgZXznTHUZB9VwzAg1FQnYweK+ +v/SMg1JPcI9YpErAHOrqWjHKQVYPMgQYWRJgM3w6wnOMg9bw67Om8iXA6OL4 +5ob/OCg246RDKikB4l2nioOmOejKy57WTy0S4LsYnv36Dwf5KFdSPnyScFBx +qE9MhESmA8eCE09JQkAyp4XFJtGOYFbxtgBJGFLqfGOgSyIjsd4PsyGS4BRc +9d38HxJt3G6ubx8tCQMJX2x8DEmkUqAxxbolCQ94X6hlGZNopdu0x71eSdA4 +qvk605JEr/qDrd7tlIIYY99Nar4kagzSuxxpIQWVR+rH+f1I9Hzdf5xN1lLw +YSH+fq8/iR5tO7w610UKkg98jL5yjkTF+UbNnsFSEGkUvOvxRRLFuC6D36QU +8BjoiLfHksiiP34DjSYNGvPny+Lv4Odt6O9wkJeGbiXJEpEiEu0+/U/IDRVp +WK4cyRtXTKJdPB/fSP4jDdG5FtX/luH3IzacWbtXGpzblmxd7pFI16H+6fJQ +adC+/Nul+SmJZDvmracGpCEy3PGEUxeJ0mXMl7R+SMOPMMWqO90kkjqSc9tn +UhqGIrQOTb0jkfjkjt9jf6VBwi607lIPiUREknO+S8jA+R0xXyI/k4jXTH20 +z0QG5DKrMi1GSDTyzOViY4kMNPO++JOxSCJ6wrtjsRUy8IEqTX/5h0RWThbW +VtUysN5r1GLuL4lq5gxUPjfKwBu+9X93c1MoUU2049c3GUi0EQju5aeQYeoT +RUVpWbDP/aF0U5hCPq66a8YIWWA3lO8nV1OoUKtokVSUhSD3xZSnIhQSeZXy +douuLPhc5PbpXkOhfq6T5232ykJSyX3PcXEKRR+TfX31X1l4kuhbXEujUO0/ +iQ92x+B65yLTKDqFZvmW54smy4LH7J2beQSFDmdPBWTmysKS8IhoCJNCOh3N +zHuPZIGIGnKRVaBQ3+ZzZ/onZaE9MpF3SZVC6qJdcsaH5GBiPmfa0YBCgzGD +odfc5KDOtJNv+UYKZQr+Gho6LgeLu/+eLccW4pMkowPkYG+KYPiiIYVGZu12 +dCXIgWu2nPWlLRQq6O076flcDoy/eHRsNqaQg914e3WzHGwHBfVW7HVdf/WF +38pBRpTzuMM2CoW+pvNSfXKwKdQwz387Xn+dc+rirBxceTDan7STQrK3B57E +KdNgu/Dhxcu7KdQhPyv/VYMGe3Y2vV/AjsoViNTRo8FS7kmGjxmFFtIVrd4b +0SDQ3XXC2pxC72I8vzMdaHCW9SJJeA+F4gUDzf1dcL2Jd00B2DvDIskGDxr0 +e0l7fcGuvFgU5OVPg4hwhdmSvRRKOj0mUhlLA/VRO0Wd/RQynfjjv/waDRp9 +u+sTsHlOCPccvEEDt9nQtjFsn6MaBUu3aPDcxv2fXEsKWdidMjCppUGnbrje +jBWFBLouZd1ooMHr2RTzHdYUerw/kXe8hQZmiZ86rmGrmlEtiR9oMDKvqKtp +QyFBNOPcO0WDrrpvxvsPUChgq9LyygUaLPu5PTYDe9DYvjSOmw5bD9byD2DX +7apdMFpNB/0Gx2AfWwpp7p7OkRWnA+WuGkJhZ5kr7pyVpYNbkHfJNHbg/pik +Oyp08JHlpJ2yo9B3q6cGl7XocNr+kHUJts2BqU8O+nR46/9l6xC2toOdqsgO +OqSEPCuyPkihUbf19Wec6fCL+fiVrD2FDnrYHt/rQYfJkheiptiNx6JEVbzp +YGXqHeGPne/907EviA7CmsvXNGCv8ZXnu3+ZDiG2pawx7It+B+7GR9Jhy95D +nqIO+PycezxrnEaHnzp7E62wm89PZMhl0+GLwK4zp7H1Q1jGvwro8PHUw7h4 +7MKLNsNviumgtILvUxH2ussRcXcpOojmXHKtxw69+kj3ykM6fDaJJ/qwJ8L+ +63GspUOWXczaKWynSGboP4104HHp2rzMkUKvoq2VRF/TYbtuU7YU9sa48NaR +TjrwDjwzUMG+nVDt97yXDtJ18kIG2OLJ49JZ3+hw1cFUYgf2lRRG7dkROuhc +TrLfhz2ZZuW+7ycdJowPvT+IffhG2KoNc3QwHBVKcMFuzXxI8S3RgcG3GOqB +TXszq/ofDwE02+gyL2zrfSJcDgIE/BmXk/DGjm5Tbm9cQcBtYdGH//czS+NC +3VUErDV8kXYSe6HD4dxNEQLW6WVRx7G1bM6YrV5HgMHSvKA7tkd3HD1IgoDS +9o3Zh7Gzbe9MfpcmQEq9zscWu+t9Xb01jYATL35esMBeZd+bVscgoDNhQ4sR +9rbemeMa6wm4UPfWVhf7vONqlKFEQFTDDpYCNvlRac0KVQJ6zMZUxbCHDxkN ++GsQML1R6QwPNvHFvuqrNgHdlQeXxvD+x36LdXpkQABHSqf9CXa9620t5c0E +DJ69SSvEXhyo5UsBAmT3pxZFYh/7Pn3XeycBjb8Loiywcz2FQ3pNCeglIj6p +Yb8bUdxnYkHAkNfVMyuxd44d/MW0JuABx8m7Fp+3rHWX2y/YEvBRMC82HXva +sKis156AelYyjy92TuRv9xQXAmauLA3LYM9yWNum3AjQaDF0Gsfn3/z9bmKv +JwFPO24rPcFeUMx4t8KHgBq/G7X22Hv3PK84epoA+uP+eEXswjM/4p+dIeCq +/OD9n7ifLOs3mQQHExDzJ134EnaxS9+DiUgCGgwyhqNwf/JE8qeYxxKg6Op3 +yRTblqPmezeBAG4vOb9l2PxcISquaQToOvoeD8L975RJu9FdQACf5vqS/Tg/ +RN4dCqp5SkBFk3FnOc6jo0thtjLPCbj0NNjEGvuRQrlOQAPez/VfaHM4vzz9 +uca0Wgk4ZlU7ro9dtybXsaCHAOcVW9Rv4Tz0M/+6JXqWgNp7l8L0cL42+wnK +DM8TwD/BRLU4f4kM7V/b/xBQFRrgZIrdMhJatsTLgD7pkc4DOK8VwlnEaVEG +LPonUYdM8Pepc+U+qMqAq91/wlg4/ye2fpAO1mBA4Qr1qCw8H5bV7tHJ0WaA +X06PpiS23pON7oP6DEAfRd2W4XmSXC3S4rudASUuhYGdQKE9FY/SopwYMNtY +c1tzE4VeFKzTfBzPAHkPicgBLQp9lI80+ZzEAGszpyhd7Jm8JRfeVAaEaQdu +vKJJIfmbI9dMMhmwEJ+fJ6eB8yLr6e/OOwwwtZ0qAjwvt6R6NYzXMeDIaqfB +nXie3gt/7kTMMOB47KdURymcB6YvJcPmGNBQuvPOKUkKpQu1tY39ZsDZ23TD +KxI43+I/7ajmYULqKqGv+WIUMktbULcRYcLXCDvTDlEKfb2luRS1gQlCmU4/ +R1dQSLghI/uXMxPaWRn8PPMk4o7Is3NyY8LquyniQ79ING16d229BxPqR8rv +N8+S6H3r/bBEbyZMq2wrjpkmUX5Xm7daMBMW1Ue8eCbw/+PgcjiSxoTSLU2P +bg2S6Ci//+fWViYESh1gDrSRSJre1P37LRPurI37Q74lUau+3GulTiYk+ukV +XnhDIj2v+sehPUygCVxyFmslkUC72A2970yIKGmK0m4iUUFOpXUWNwua3a6t +0nlCon7DueYTOiyQurzw2OYuiY74nr8nlM4CXxpXp3Ywrqf98Z5yJgtaJc/3 +1ZwnkeAkVO7IYcGH+w/fmwSSqPyUwP2LhSyIs9AoczhLokWfhKppkgVVElff ++58iUYr3rerelywYjW8JP+NGoiav9triPyzQ/rZmU4UZiTTcN7SaOctDRX2M +r74kiV6vUV3pb7AePqoqpOZf56Dq0tAbqrwKcMhVucVTjIPOc6vsfdWnAPmb +HTd/CChHgr2Bu05WKMKiRl59/a0yNFDISM4OUoK3qP1w8ZFSlKwkxffAWhls +fI2i980Wo/j0ow3OhAr0Wq6tepRahA4mO7YKDalArMO+QbTxLprbVjCfXbMB +wjrGvzRW30bfBowC6sJUQZZnbcUTm1vo5mYtmRZnNbAw3P71RFcBKrnqL+qu +pg7xHQciEvzyUZj1kd28M+rgsTtdwZnIQ7q9uXfCWjTAZ3yke7gqF6Up3yhp +2a0JdtVHyxZP56ALT2PSdj/QBGa21FzH1ixkLmNd0CyvBSsD3R0nnt9AW082 +2ItGaEFhbXvBodjrKFvWRf7VjBYsJGYfC9mZiuSf3UqxsNcGq781d+9vv4bi +1epU2mq0ofucutSfY0no6BTf2yYVNsx4cBUGhScgF84kERHHhpov4SPbm+KQ +V6jlomkCG4JtezPlq+OQv2VFt1ASG7SO7G9bVhKHwmf8Y+NT8P0e+cc98XGo +1GD+d2omG7h6K+Ie2Mah+dqlrsIiNnRIDL4xG45F8W1CMc8b2NBn2d7fuioW +peed8Pi3iQ2ZZuEzm7hiUZ5fq/Gul2zQH5UKLJuMQZXi8QsvW9lwxJKrL7c7 +BvUeXOvR3smGh17Ti9W5MUjxm5Tx129smH9vvaleLwZpVgTS8gfY0F/1dX+g +cgzaeLVn3m2IDXIx1Z1s2RhkpphZPjzCBoFNtrQK7hjke5yg/fzJBvN9e0qG +X0WjoE2X5skpNlTG7ZOsexKNrq762uE3wwZH4ezRLDIapZXlRc3N4fXFizS5 +pUWjmxf53B8usKExUq1tT1Q0KtrnZhS0yAaZe2Fbt4REowrmC7ktf9mgykwX +1zoVjWqmFOaXlthwwPrTXiXXaPQ/Mr+a+w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07564447682039577}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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, 20}, {0., 0.07564447682039577}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913324679337597`*^9, 3.9921229218034687`*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"993bbc21-181a-0d46-9d90-a02e74ca5ae3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917971206132183`*^9, 3.9917971229936733`*^9}}, + CellLabel-> + "In[142]:=",ExpressionUUID->"25060c9f-5d93-6841-93a1-f53bbd9b851a"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4Vd0XB3BzJYnKzL3n3itT5ouXVHtFE6HBEBmKCKVIlIRK9ZpnIRkz +NBjvOZJSipKhqIwVGg0hXplCym///jrP5znPs84+++z1XYfh4r3fjYeLi0uQ +m4vr/9fMEBcBLdcbWzZwM1V8thlued5OmB0gzqG6xtvr9Xil0NKLmssEEYGU +y4+q/uVRRplPY+j8xHXk0hmk0MdjgLw2+5/4Rb+DRqyvhFTxmKD23x7JE/QH +6GeNV6o1jx1a1vNVcYzehHL0kvq/cHmi3ObsU6P09yiGu7KH/jsAlZZF9Hip +jyC5A1UyJ8cikDt6e/2H7xTqVLUse8JKQicHlL9VlM6jay9lGyVWX0eCjCuK +n/S5QP1Vxt/hndkoVuSlSu5hXkihmXAPn7iJXHqsnvC+EgDWvaMpghYF6FT9 +FRdvRUEwL9P798LMLcTxEbKUNFkFoy6tYZe23UW554+PaB4QgW+ns/4+SyxG +odmL+6Z/iELB5Iog/bBSxNX+GR4FroVzuuyfK4lypOB3NMBKRQy61yZzjkyW +I7WNnyyzNcUg9nPT9MaZcqTDZasxoicG3tfzokTmypFRtMngBWMxWKPVRlX+ +KUdO+apWRQ5i0PJBfHR8OQeldExq8MSJwQ/3+T5hOgfx614YKpsSg+/0TcpC +phzUP5Nqs/KxODj+ynr/K52Dbm5ln+57Jg57XgYZp2Zy0KGY1riyZnHQ4qBy +nRwO+iDP32T5ThzO2m1O9CzgoLeWvoYZU+IgZXznTHUZB9VwzAg1FQnYweK+ +v/SMg1JPcI9YpErAHOrqWjHKQVYPMgQYWRJgM3w6wnOMg9bw67Om8iXA6OL4 +5ob/OCg246RDKikB4l2nioOmOejKy57WTy0S4LsYnv36Dwf5KFdSPnyScFBx +qE9MhESmA8eCE09JQkAyp4XFJtGOYFbxtgBJGFLqfGOgSyIjsd4PsyGS4BRc +9d38HxJt3G6ubx8tCQMJX2x8DEmkUqAxxbolCQ94X6hlGZNopdu0x71eSdA4 +qvk605JEr/qDrd7tlIIYY99Nar4kagzSuxxpIQWVR+rH+f1I9Hzdf5xN1lLw +YSH+fq8/iR5tO7w610UKkg98jL5yjkTF+UbNnsFSEGkUvOvxRRLFuC6D36QU +8BjoiLfHksiiP34DjSYNGvPny+Lv4Odt6O9wkJeGbiXJEpEiEu0+/U/IDRVp +WK4cyRtXTKJdPB/fSP4jDdG5FtX/luH3IzacWbtXGpzblmxd7pFI16H+6fJQ +adC+/Nul+SmJZDvmracGpCEy3PGEUxeJ0mXMl7R+SMOPMMWqO90kkjqSc9tn +UhqGIrQOTb0jkfjkjt9jf6VBwi607lIPiUREknO+S8jA+R0xXyI/k4jXTH20 +z0QG5DKrMi1GSDTyzOViY4kMNPO++JOxSCJ6wrtjsRUy8IEqTX/5h0RWThbW +VtUysN5r1GLuL4lq5gxUPjfKwBu+9X93c1MoUU2049c3GUi0EQju5aeQYeoT +RUVpWbDP/aF0U5hCPq66a8YIWWA3lO8nV1OoUKtokVSUhSD3xZSnIhQSeZXy +douuLPhc5PbpXkOhfq6T5232ykJSyX3PcXEKRR+TfX31X1l4kuhbXEujUO0/ +iQ92x+B65yLTKDqFZvmW54smy4LH7J2beQSFDmdPBWTmysKS8IhoCJNCOh3N +zHuPZIGIGnKRVaBQ3+ZzZ/onZaE9MpF3SZVC6qJdcsaH5GBiPmfa0YBCgzGD +odfc5KDOtJNv+UYKZQr+Gho6LgeLu/+eLccW4pMkowPkYG+KYPiiIYVGZu12 +dCXIgWu2nPWlLRQq6O076flcDoy/eHRsNqaQg914e3WzHGwHBfVW7HVdf/WF +38pBRpTzuMM2CoW+pvNSfXKwKdQwz387Xn+dc+rirBxceTDan7STQrK3B57E +KdNgu/Dhxcu7KdQhPyv/VYMGe3Y2vV/AjsoViNTRo8FS7kmGjxmFFtIVrd4b +0SDQ3XXC2pxC72I8vzMdaHCW9SJJeA+F4gUDzf1dcL2Jd00B2DvDIskGDxr0 +e0l7fcGuvFgU5OVPg4hwhdmSvRRKOj0mUhlLA/VRO0Wd/RQynfjjv/waDRp9 +u+sTsHlOCPccvEEDt9nQtjFsn6MaBUu3aPDcxv2fXEsKWdidMjCppUGnbrje +jBWFBLouZd1ooMHr2RTzHdYUerw/kXe8hQZmiZ86rmGrmlEtiR9oMDKvqKtp +QyFBNOPcO0WDrrpvxvsPUChgq9LyygUaLPu5PTYDe9DYvjSOmw5bD9byD2DX +7apdMFpNB/0Gx2AfWwpp7p7OkRWnA+WuGkJhZ5kr7pyVpYNbkHfJNHbg/pik +Oyp08JHlpJ2yo9B3q6cGl7XocNr+kHUJts2BqU8O+nR46/9l6xC2toOdqsgO +OqSEPCuyPkihUbf19Wec6fCL+fiVrD2FDnrYHt/rQYfJkheiptiNx6JEVbzp +YGXqHeGPne/907EviA7CmsvXNGCv8ZXnu3+ZDiG2pawx7It+B+7GR9Jhy95D +nqIO+PycezxrnEaHnzp7E62wm89PZMhl0+GLwK4zp7H1Q1jGvwro8PHUw7h4 +7MKLNsNviumgtILvUxH2ussRcXcpOojmXHKtxw69+kj3ykM6fDaJJ/qwJ8L+ +63GspUOWXczaKWynSGboP4104HHp2rzMkUKvoq2VRF/TYbtuU7YU9sa48NaR +TjrwDjwzUMG+nVDt97yXDtJ18kIG2OLJ49JZ3+hw1cFUYgf2lRRG7dkROuhc +TrLfhz2ZZuW+7ycdJowPvT+IffhG2KoNc3QwHBVKcMFuzXxI8S3RgcG3GOqB +TXszq/ofDwE02+gyL2zrfSJcDgIE/BmXk/DGjm5Tbm9cQcBtYdGH//czS+NC +3VUErDV8kXYSe6HD4dxNEQLW6WVRx7G1bM6YrV5HgMHSvKA7tkd3HD1IgoDS +9o3Zh7Gzbe9MfpcmQEq9zscWu+t9Xb01jYATL35esMBeZd+bVscgoDNhQ4sR +9rbemeMa6wm4UPfWVhf7vONqlKFEQFTDDpYCNvlRac0KVQJ6zMZUxbCHDxkN ++GsQML1R6QwPNvHFvuqrNgHdlQeXxvD+x36LdXpkQABHSqf9CXa9620t5c0E +DJ69SSvEXhyo5UsBAmT3pxZFYh/7Pn3XeycBjb8Loiywcz2FQ3pNCeglIj6p +Yb8bUdxnYkHAkNfVMyuxd44d/MW0JuABx8m7Fp+3rHWX2y/YEvBRMC82HXva +sKis156AelYyjy92TuRv9xQXAmauLA3LYM9yWNum3AjQaDF0Gsfn3/z9bmKv +JwFPO24rPcFeUMx4t8KHgBq/G7X22Hv3PK84epoA+uP+eEXswjM/4p+dIeCq +/OD9n7ifLOs3mQQHExDzJ134EnaxS9+DiUgCGgwyhqNwf/JE8qeYxxKg6Op3 +yRTblqPmezeBAG4vOb9l2PxcISquaQToOvoeD8L975RJu9FdQACf5vqS/Tg/ +RN4dCqp5SkBFk3FnOc6jo0thtjLPCbj0NNjEGvuRQrlOQAPez/VfaHM4vzz9 +uca0Wgk4ZlU7ro9dtybXsaCHAOcVW9Rv4Tz0M/+6JXqWgNp7l8L0cL42+wnK +DM8TwD/BRLU4f4kM7V/b/xBQFRrgZIrdMhJatsTLgD7pkc4DOK8VwlnEaVEG +LPonUYdM8Pepc+U+qMqAq91/wlg4/ye2fpAO1mBA4Qr1qCw8H5bV7tHJ0WaA +X06PpiS23pON7oP6DEAfRd2W4XmSXC3S4rudASUuhYGdQKE9FY/SopwYMNtY +c1tzE4VeFKzTfBzPAHkPicgBLQp9lI80+ZzEAGszpyhd7Jm8JRfeVAaEaQdu +vKJJIfmbI9dMMhmwEJ+fJ6eB8yLr6e/OOwwwtZ0qAjwvt6R6NYzXMeDIaqfB +nXie3gt/7kTMMOB47KdURymcB6YvJcPmGNBQuvPOKUkKpQu1tY39ZsDZ23TD +KxI43+I/7ajmYULqKqGv+WIUMktbULcRYcLXCDvTDlEKfb2luRS1gQlCmU4/ +R1dQSLghI/uXMxPaWRn8PPMk4o7Is3NyY8LquyniQ79ING16d229BxPqR8rv +N8+S6H3r/bBEbyZMq2wrjpkmUX5Xm7daMBMW1Ue8eCbw/+PgcjiSxoTSLU2P +bg2S6Ci//+fWViYESh1gDrSRSJre1P37LRPurI37Q74lUau+3GulTiYk+ukV +XnhDIj2v+sehPUygCVxyFmslkUC72A2970yIKGmK0m4iUUFOpXUWNwua3a6t +0nlCon7DueYTOiyQurzw2OYuiY74nr8nlM4CXxpXp3Ywrqf98Z5yJgtaJc/3 +1ZwnkeAkVO7IYcGH+w/fmwSSqPyUwP2LhSyIs9AoczhLokWfhKppkgVVElff ++58iUYr3rerelywYjW8JP+NGoiav9triPyzQ/rZmU4UZiTTcN7SaOctDRX2M +r74kiV6vUV3pb7AePqoqpOZf56Dq0tAbqrwKcMhVucVTjIPOc6vsfdWnAPmb +HTd/CChHgr2Bu05WKMKiRl59/a0yNFDISM4OUoK3qP1w8ZFSlKwkxffAWhls +fI2i980Wo/j0ow3OhAr0Wq6tepRahA4mO7YKDalArMO+QbTxLprbVjCfXbMB +wjrGvzRW30bfBowC6sJUQZZnbcUTm1vo5mYtmRZnNbAw3P71RFcBKrnqL+qu +pg7xHQciEvzyUZj1kd28M+rgsTtdwZnIQ7q9uXfCWjTAZ3yke7gqF6Up3yhp +2a0JdtVHyxZP56ALT2PSdj/QBGa21FzH1ixkLmNd0CyvBSsD3R0nnt9AW082 +2ItGaEFhbXvBodjrKFvWRf7VjBYsJGYfC9mZiuSf3UqxsNcGq781d+9vv4bi +1epU2mq0ofucutSfY0no6BTf2yYVNsx4cBUGhScgF84kERHHhpov4SPbm+KQ +V6jlomkCG4JtezPlq+OQv2VFt1ASG7SO7G9bVhKHwmf8Y+NT8P0e+cc98XGo +1GD+d2omG7h6K+Ie2Mah+dqlrsIiNnRIDL4xG45F8W1CMc8b2NBn2d7fuioW +peed8Pi3iQ2ZZuEzm7hiUZ5fq/Gul2zQH5UKLJuMQZXi8QsvW9lwxJKrL7c7 +BvUeXOvR3smGh17Ti9W5MUjxm5Tx129smH9vvaleLwZpVgTS8gfY0F/1dX+g +cgzaeLVn3m2IDXIx1Z1s2RhkpphZPjzCBoFNtrQK7hjke5yg/fzJBvN9e0qG +X0WjoE2X5skpNlTG7ZOsexKNrq762uE3wwZH4ezRLDIapZXlRc3N4fXFizS5 +pUWjmxf53B8usKExUq1tT1Q0KtrnZhS0yAaZe2Fbt4REowrmC7ktf9mgykwX +1zoVjWqmFOaXlthwwPrTXiXXaPQ/Mr+a+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:eJwV1nk4Vd0XB3BzJYnKzL3n3itT5ouXVHtFE6HBEBmKCKVIlIRK9ZpnIRkz +NBjvOZJSipKhqIwVGg0hXplCym///jrP5znPs84+++z1XYfh4r3fjYeLi0uQ +m4vr/9fMEBcBLdcbWzZwM1V8thlued5OmB0gzqG6xtvr9Xil0NKLmssEEYGU +y4+q/uVRRplPY+j8xHXk0hmk0MdjgLw2+5/4Rb+DRqyvhFTxmKD23x7JE/QH +6GeNV6o1jx1a1vNVcYzehHL0kvq/cHmi3ObsU6P09yiGu7KH/jsAlZZF9Hip +jyC5A1UyJ8cikDt6e/2H7xTqVLUse8JKQicHlL9VlM6jay9lGyVWX0eCjCuK +n/S5QP1Vxt/hndkoVuSlSu5hXkihmXAPn7iJXHqsnvC+EgDWvaMpghYF6FT9 +FRdvRUEwL9P798LMLcTxEbKUNFkFoy6tYZe23UW554+PaB4QgW+ns/4+SyxG +odmL+6Z/iELB5Iog/bBSxNX+GR4FroVzuuyfK4lypOB3NMBKRQy61yZzjkyW +I7WNnyyzNcUg9nPT9MaZcqTDZasxoicG3tfzokTmypFRtMngBWMxWKPVRlX+ +KUdO+apWRQ5i0PJBfHR8OQeldExq8MSJwQ/3+T5hOgfx614YKpsSg+/0TcpC +phzUP5Nqs/KxODj+ynr/K52Dbm5ln+57Jg57XgYZp2Zy0KGY1riyZnHQ4qBy +nRwO+iDP32T5ThzO2m1O9CzgoLeWvoYZU+IgZXznTHUZB9VwzAg1FQnYweK+ +v/SMg1JPcI9YpErAHOrqWjHKQVYPMgQYWRJgM3w6wnOMg9bw67Om8iXA6OL4 +5ob/OCg246RDKikB4l2nioOmOejKy57WTy0S4LsYnv36Dwf5KFdSPnyScFBx +qE9MhESmA8eCE09JQkAyp4XFJtGOYFbxtgBJGFLqfGOgSyIjsd4PsyGS4BRc +9d38HxJt3G6ubx8tCQMJX2x8DEmkUqAxxbolCQ94X6hlGZNopdu0x71eSdA4 +qvk605JEr/qDrd7tlIIYY99Nar4kagzSuxxpIQWVR+rH+f1I9Hzdf5xN1lLw +YSH+fq8/iR5tO7w610UKkg98jL5yjkTF+UbNnsFSEGkUvOvxRRLFuC6D36QU +8BjoiLfHksiiP34DjSYNGvPny+Lv4Odt6O9wkJeGbiXJEpEiEu0+/U/IDRVp +WK4cyRtXTKJdPB/fSP4jDdG5FtX/luH3IzacWbtXGpzblmxd7pFI16H+6fJQ +adC+/Nul+SmJZDvmracGpCEy3PGEUxeJ0mXMl7R+SMOPMMWqO90kkjqSc9tn +UhqGIrQOTb0jkfjkjt9jf6VBwi607lIPiUREknO+S8jA+R0xXyI/k4jXTH20 +z0QG5DKrMi1GSDTyzOViY4kMNPO++JOxSCJ6wrtjsRUy8IEqTX/5h0RWThbW +VtUysN5r1GLuL4lq5gxUPjfKwBu+9X93c1MoUU2049c3GUi0EQju5aeQYeoT +RUVpWbDP/aF0U5hCPq66a8YIWWA3lO8nV1OoUKtokVSUhSD3xZSnIhQSeZXy +douuLPhc5PbpXkOhfq6T5232ykJSyX3PcXEKRR+TfX31X1l4kuhbXEujUO0/ +iQ92x+B65yLTKDqFZvmW54smy4LH7J2beQSFDmdPBWTmysKS8IhoCJNCOh3N +zHuPZIGIGnKRVaBQ3+ZzZ/onZaE9MpF3SZVC6qJdcsaH5GBiPmfa0YBCgzGD +odfc5KDOtJNv+UYKZQr+Gho6LgeLu/+eLccW4pMkowPkYG+KYPiiIYVGZu12 +dCXIgWu2nPWlLRQq6O076flcDoy/eHRsNqaQg914e3WzHGwHBfVW7HVdf/WF +38pBRpTzuMM2CoW+pvNSfXKwKdQwz387Xn+dc+rirBxceTDan7STQrK3B57E +KdNgu/Dhxcu7KdQhPyv/VYMGe3Y2vV/AjsoViNTRo8FS7kmGjxmFFtIVrd4b +0SDQ3XXC2pxC72I8vzMdaHCW9SJJeA+F4gUDzf1dcL2Jd00B2DvDIskGDxr0 +e0l7fcGuvFgU5OVPg4hwhdmSvRRKOj0mUhlLA/VRO0Wd/RQynfjjv/waDRp9 +u+sTsHlOCPccvEEDt9nQtjFsn6MaBUu3aPDcxv2fXEsKWdidMjCppUGnbrje +jBWFBLouZd1ooMHr2RTzHdYUerw/kXe8hQZmiZ86rmGrmlEtiR9oMDKvqKtp +QyFBNOPcO0WDrrpvxvsPUChgq9LyygUaLPu5PTYDe9DYvjSOmw5bD9byD2DX +7apdMFpNB/0Gx2AfWwpp7p7OkRWnA+WuGkJhZ5kr7pyVpYNbkHfJNHbg/pik +Oyp08JHlpJ2yo9B3q6cGl7XocNr+kHUJts2BqU8O+nR46/9l6xC2toOdqsgO +OqSEPCuyPkihUbf19Wec6fCL+fiVrD2FDnrYHt/rQYfJkheiptiNx6JEVbzp +YGXqHeGPne/907EviA7CmsvXNGCv8ZXnu3+ZDiG2pawx7It+B+7GR9Jhy95D +nqIO+PycezxrnEaHnzp7E62wm89PZMhl0+GLwK4zp7H1Q1jGvwro8PHUw7h4 +7MKLNsNviumgtILvUxH2ussRcXcpOojmXHKtxw69+kj3ykM6fDaJJ/qwJ8L+ +63GspUOWXczaKWynSGboP4104HHp2rzMkUKvoq2VRF/TYbtuU7YU9sa48NaR +TjrwDjwzUMG+nVDt97yXDtJ18kIG2OLJ49JZ3+hw1cFUYgf2lRRG7dkROuhc +TrLfhz2ZZuW+7ycdJowPvT+IffhG2KoNc3QwHBVKcMFuzXxI8S3RgcG3GOqB +TXszq/ofDwE02+gyL2zrfSJcDgIE/BmXk/DGjm5Tbm9cQcBtYdGH//czS+NC +3VUErDV8kXYSe6HD4dxNEQLW6WVRx7G1bM6YrV5HgMHSvKA7tkd3HD1IgoDS +9o3Zh7Gzbe9MfpcmQEq9zscWu+t9Xb01jYATL35esMBeZd+bVscgoDNhQ4sR +9rbemeMa6wm4UPfWVhf7vONqlKFEQFTDDpYCNvlRac0KVQJ6zMZUxbCHDxkN ++GsQML1R6QwPNvHFvuqrNgHdlQeXxvD+x36LdXpkQABHSqf9CXa9620t5c0E +DJ69SSvEXhyo5UsBAmT3pxZFYh/7Pn3XeycBjb8Loiywcz2FQ3pNCeglIj6p +Yb8bUdxnYkHAkNfVMyuxd44d/MW0JuABx8m7Fp+3rHWX2y/YEvBRMC82HXva +sKis156AelYyjy92TuRv9xQXAmauLA3LYM9yWNum3AjQaDF0Gsfn3/z9bmKv +JwFPO24rPcFeUMx4t8KHgBq/G7X22Hv3PK84epoA+uP+eEXswjM/4p+dIeCq +/OD9n7ifLOs3mQQHExDzJ134EnaxS9+DiUgCGgwyhqNwf/JE8qeYxxKg6Op3 +yRTblqPmezeBAG4vOb9l2PxcISquaQToOvoeD8L975RJu9FdQACf5vqS/Tg/ +RN4dCqp5SkBFk3FnOc6jo0thtjLPCbj0NNjEGvuRQrlOQAPez/VfaHM4vzz9 +uca0Wgk4ZlU7ro9dtybXsaCHAOcVW9Rv4Tz0M/+6JXqWgNp7l8L0cL42+wnK +DM8TwD/BRLU4f4kM7V/b/xBQFRrgZIrdMhJatsTLgD7pkc4DOK8VwlnEaVEG +LPonUYdM8Pepc+U+qMqAq91/wlg4/ye2fpAO1mBA4Qr1qCw8H5bV7tHJ0WaA +X06PpiS23pON7oP6DEAfRd2W4XmSXC3S4rudASUuhYGdQKE9FY/SopwYMNtY +c1tzE4VeFKzTfBzPAHkPicgBLQp9lI80+ZzEAGszpyhd7Jm8JRfeVAaEaQdu +vKJJIfmbI9dMMhmwEJ+fJ6eB8yLr6e/OOwwwtZ0qAjwvt6R6NYzXMeDIaqfB +nXie3gt/7kTMMOB47KdURymcB6YvJcPmGNBQuvPOKUkKpQu1tY39ZsDZ23TD +KxI43+I/7ajmYULqKqGv+WIUMktbULcRYcLXCDvTDlEKfb2luRS1gQlCmU4/ +R1dQSLghI/uXMxPaWRn8PPMk4o7Is3NyY8LquyniQ79ING16d229BxPqR8rv +N8+S6H3r/bBEbyZMq2wrjpkmUX5Xm7daMBMW1Ue8eCbw/+PgcjiSxoTSLU2P +bg2S6Ci//+fWViYESh1gDrSRSJre1P37LRPurI37Q74lUau+3GulTiYk+ukV +XnhDIj2v+sehPUygCVxyFmslkUC72A2970yIKGmK0m4iUUFOpXUWNwua3a6t +0nlCon7DueYTOiyQurzw2OYuiY74nr8nlM4CXxpXp3Ywrqf98Z5yJgtaJc/3 +1ZwnkeAkVO7IYcGH+w/fmwSSqPyUwP2LhSyIs9AoczhLokWfhKppkgVVElff ++58iUYr3rerelywYjW8JP+NGoiav9triPyzQ/rZmU4UZiTTcN7SaOctDRX2M +r74kiV6vUV3pb7AePqoqpOZf56Dq0tAbqrwKcMhVucVTjIPOc6vsfdWnAPmb +HTd/CChHgr2Bu05WKMKiRl59/a0yNFDISM4OUoK3qP1w8ZFSlKwkxffAWhls +fI2i980Wo/j0ow3OhAr0Wq6tepRahA4mO7YKDalArMO+QbTxLprbVjCfXbMB +wjrGvzRW30bfBowC6sJUQZZnbcUTm1vo5mYtmRZnNbAw3P71RFcBKrnqL+qu +pg7xHQciEvzyUZj1kd28M+rgsTtdwZnIQ7q9uXfCWjTAZ3yke7gqF6Up3yhp +2a0JdtVHyxZP56ALT2PSdj/QBGa21FzH1ixkLmNd0CyvBSsD3R0nnt9AW082 +2ItGaEFhbXvBodjrKFvWRf7VjBYsJGYfC9mZiuSf3UqxsNcGq781d+9vv4bi +1epU2mq0ofucutSfY0no6BTf2yYVNsx4cBUGhScgF84kERHHhpov4SPbm+KQ +V6jlomkCG4JtezPlq+OQv2VFt1ASG7SO7G9bVhKHwmf8Y+NT8P0e+cc98XGo +1GD+d2omG7h6K+Ie2Mah+dqlrsIiNnRIDL4xG45F8W1CMc8b2NBn2d7fuioW +peed8Pi3iQ2ZZuEzm7hiUZ5fq/Gul2zQH5UKLJuMQZXi8QsvW9lwxJKrL7c7 +BvUeXOvR3smGh17Ti9W5MUjxm5Tx129smH9vvaleLwZpVgTS8gfY0F/1dX+g +cgzaeLVn3m2IDXIx1Z1s2RhkpphZPjzCBoFNtrQK7hjke5yg/fzJBvN9e0qG +X0WjoE2X5skpNlTG7ZOsexKNrq762uE3wwZH4ezRLDIapZXlRc3N4fXFizS5 +pUWjmxf53B8usKExUq1tT1Q0KtrnZhS0yAaZe2Fbt4REowrmC7ktf9mgykwX +1zoVjWqmFOaXlthwwPrTXiXXaPQ/Mr+a+w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07564447682039577}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07564447682039577}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4Vd0XB3BzJYnKzL3n3itT5ouXVHtFE6HBEBmKCKVIlIRK9ZpnIRkz +NBjvOZJSipKhqIwVGg0hXplCym///jrP5znPs84+++z1XYfh4r3fjYeLi0uQ +m4vr/9fMEBcBLdcbWzZwM1V8thlued5OmB0gzqG6xtvr9Xil0NKLmssEEYGU +y4+q/uVRRplPY+j8xHXk0hmk0MdjgLw2+5/4Rb+DRqyvhFTxmKD23x7JE/QH +6GeNV6o1jx1a1vNVcYzehHL0kvq/cHmi3ObsU6P09yiGu7KH/jsAlZZF9Hip +jyC5A1UyJ8cikDt6e/2H7xTqVLUse8JKQicHlL9VlM6jay9lGyVWX0eCjCuK +n/S5QP1Vxt/hndkoVuSlSu5hXkihmXAPn7iJXHqsnvC+EgDWvaMpghYF6FT9 +FRdvRUEwL9P798LMLcTxEbKUNFkFoy6tYZe23UW554+PaB4QgW+ns/4+SyxG +odmL+6Z/iELB5Iog/bBSxNX+GR4FroVzuuyfK4lypOB3NMBKRQy61yZzjkyW +I7WNnyyzNcUg9nPT9MaZcqTDZasxoicG3tfzokTmypFRtMngBWMxWKPVRlX+ +KUdO+apWRQ5i0PJBfHR8OQeldExq8MSJwQ/3+T5hOgfx614YKpsSg+/0TcpC +phzUP5Nqs/KxODj+ynr/K52Dbm5ln+57Jg57XgYZp2Zy0KGY1riyZnHQ4qBy +nRwO+iDP32T5ThzO2m1O9CzgoLeWvoYZU+IgZXznTHUZB9VwzAg1FQnYweK+ +v/SMg1JPcI9YpErAHOrqWjHKQVYPMgQYWRJgM3w6wnOMg9bw67Om8iXA6OL4 +5ob/OCg246RDKikB4l2nioOmOejKy57WTy0S4LsYnv36Dwf5KFdSPnyScFBx +qE9MhESmA8eCE09JQkAyp4XFJtGOYFbxtgBJGFLqfGOgSyIjsd4PsyGS4BRc +9d38HxJt3G6ubx8tCQMJX2x8DEmkUqAxxbolCQ94X6hlGZNopdu0x71eSdA4 +qvk605JEr/qDrd7tlIIYY99Nar4kagzSuxxpIQWVR+rH+f1I9Hzdf5xN1lLw +YSH+fq8/iR5tO7w610UKkg98jL5yjkTF+UbNnsFSEGkUvOvxRRLFuC6D36QU +8BjoiLfHksiiP34DjSYNGvPny+Lv4Odt6O9wkJeGbiXJEpEiEu0+/U/IDRVp +WK4cyRtXTKJdPB/fSP4jDdG5FtX/luH3IzacWbtXGpzblmxd7pFI16H+6fJQ +adC+/Nul+SmJZDvmracGpCEy3PGEUxeJ0mXMl7R+SMOPMMWqO90kkjqSc9tn +UhqGIrQOTb0jkfjkjt9jf6VBwi607lIPiUREknO+S8jA+R0xXyI/k4jXTH20 +z0QG5DKrMi1GSDTyzOViY4kMNPO++JOxSCJ6wrtjsRUy8IEqTX/5h0RWThbW +VtUysN5r1GLuL4lq5gxUPjfKwBu+9X93c1MoUU2049c3GUi0EQju5aeQYeoT +RUVpWbDP/aF0U5hCPq66a8YIWWA3lO8nV1OoUKtokVSUhSD3xZSnIhQSeZXy +douuLPhc5PbpXkOhfq6T5232ykJSyX3PcXEKRR+TfX31X1l4kuhbXEujUO0/ +iQ92x+B65yLTKDqFZvmW54smy4LH7J2beQSFDmdPBWTmysKS8IhoCJNCOh3N +zHuPZIGIGnKRVaBQ3+ZzZ/onZaE9MpF3SZVC6qJdcsaH5GBiPmfa0YBCgzGD +odfc5KDOtJNv+UYKZQr+Gho6LgeLu/+eLccW4pMkowPkYG+KYPiiIYVGZu12 +dCXIgWu2nPWlLRQq6O076flcDoy/eHRsNqaQg914e3WzHGwHBfVW7HVdf/WF +38pBRpTzuMM2CoW+pvNSfXKwKdQwz387Xn+dc+rirBxceTDan7STQrK3B57E +KdNgu/Dhxcu7KdQhPyv/VYMGe3Y2vV/AjsoViNTRo8FS7kmGjxmFFtIVrd4b +0SDQ3XXC2pxC72I8vzMdaHCW9SJJeA+F4gUDzf1dcL2Jd00B2DvDIskGDxr0 +e0l7fcGuvFgU5OVPg4hwhdmSvRRKOj0mUhlLA/VRO0Wd/RQynfjjv/waDRp9 +u+sTsHlOCPccvEEDt9nQtjFsn6MaBUu3aPDcxv2fXEsKWdidMjCppUGnbrje +jBWFBLouZd1ooMHr2RTzHdYUerw/kXe8hQZmiZ86rmGrmlEtiR9oMDKvqKtp +QyFBNOPcO0WDrrpvxvsPUChgq9LyygUaLPu5PTYDe9DYvjSOmw5bD9byD2DX +7apdMFpNB/0Gx2AfWwpp7p7OkRWnA+WuGkJhZ5kr7pyVpYNbkHfJNHbg/pik +Oyp08JHlpJ2yo9B3q6cGl7XocNr+kHUJts2BqU8O+nR46/9l6xC2toOdqsgO +OqSEPCuyPkihUbf19Wec6fCL+fiVrD2FDnrYHt/rQYfJkheiptiNx6JEVbzp +YGXqHeGPne/907EviA7CmsvXNGCv8ZXnu3+ZDiG2pawx7It+B+7GR9Jhy95D +nqIO+PycezxrnEaHnzp7E62wm89PZMhl0+GLwK4zp7H1Q1jGvwro8PHUw7h4 +7MKLNsNviumgtILvUxH2ussRcXcpOojmXHKtxw69+kj3ykM6fDaJJ/qwJ8L+ +63GspUOWXczaKWynSGboP4104HHp2rzMkUKvoq2VRF/TYbtuU7YU9sa48NaR +TjrwDjwzUMG+nVDt97yXDtJ18kIG2OLJ49JZ3+hw1cFUYgf2lRRG7dkROuhc +TrLfhz2ZZuW+7ycdJowPvT+IffhG2KoNc3QwHBVKcMFuzXxI8S3RgcG3GOqB +TXszq/ofDwE02+gyL2zrfSJcDgIE/BmXk/DGjm5Tbm9cQcBtYdGH//czS+NC +3VUErDV8kXYSe6HD4dxNEQLW6WVRx7G1bM6YrV5HgMHSvKA7tkd3HD1IgoDS +9o3Zh7Gzbe9MfpcmQEq9zscWu+t9Xb01jYATL35esMBeZd+bVscgoDNhQ4sR +9rbemeMa6wm4UPfWVhf7vONqlKFEQFTDDpYCNvlRac0KVQJ6zMZUxbCHDxkN ++GsQML1R6QwPNvHFvuqrNgHdlQeXxvD+x36LdXpkQABHSqf9CXa9620t5c0E +DJ69SSvEXhyo5UsBAmT3pxZFYh/7Pn3XeycBjb8Loiywcz2FQ3pNCeglIj6p +Yb8bUdxnYkHAkNfVMyuxd44d/MW0JuABx8m7Fp+3rHWX2y/YEvBRMC82HXva +sKis156AelYyjy92TuRv9xQXAmauLA3LYM9yWNum3AjQaDF0Gsfn3/z9bmKv +JwFPO24rPcFeUMx4t8KHgBq/G7X22Hv3PK84epoA+uP+eEXswjM/4p+dIeCq +/OD9n7ifLOs3mQQHExDzJ134EnaxS9+DiUgCGgwyhqNwf/JE8qeYxxKg6Op3 +yRTblqPmezeBAG4vOb9l2PxcISquaQToOvoeD8L975RJu9FdQACf5vqS/Tg/ +RN4dCqp5SkBFk3FnOc6jo0thtjLPCbj0NNjEGvuRQrlOQAPez/VfaHM4vzz9 +uca0Wgk4ZlU7ro9dtybXsaCHAOcVW9Rv4Tz0M/+6JXqWgNp7l8L0cL42+wnK +DM8TwD/BRLU4f4kM7V/b/xBQFRrgZIrdMhJatsTLgD7pkc4DOK8VwlnEaVEG +LPonUYdM8Pepc+U+qMqAq91/wlg4/ye2fpAO1mBA4Qr1qCw8H5bV7tHJ0WaA +X06PpiS23pON7oP6DEAfRd2W4XmSXC3S4rudASUuhYGdQKE9FY/SopwYMNtY +c1tzE4VeFKzTfBzPAHkPicgBLQp9lI80+ZzEAGszpyhd7Jm8JRfeVAaEaQdu +vKJJIfmbI9dMMhmwEJ+fJ6eB8yLr6e/OOwwwtZ0qAjwvt6R6NYzXMeDIaqfB +nXie3gt/7kTMMOB47KdURymcB6YvJcPmGNBQuvPOKUkKpQu1tY39ZsDZ23TD +KxI43+I/7ajmYULqKqGv+WIUMktbULcRYcLXCDvTDlEKfb2luRS1gQlCmU4/ +R1dQSLghI/uXMxPaWRn8PPMk4o7Is3NyY8LquyniQ79ING16d229BxPqR8rv +N8+S6H3r/bBEbyZMq2wrjpkmUX5Xm7daMBMW1Ue8eCbw/+PgcjiSxoTSLU2P +bg2S6Ci//+fWViYESh1gDrSRSJre1P37LRPurI37Q74lUau+3GulTiYk+ukV +XnhDIj2v+sehPUygCVxyFmslkUC72A2970yIKGmK0m4iUUFOpXUWNwua3a6t +0nlCon7DueYTOiyQurzw2OYuiY74nr8nlM4CXxpXp3Ywrqf98Z5yJgtaJc/3 +1ZwnkeAkVO7IYcGH+w/fmwSSqPyUwP2LhSyIs9AoczhLokWfhKppkgVVElff ++58iUYr3rerelywYjW8JP+NGoiav9triPyzQ/rZmU4UZiTTcN7SaOctDRX2M +r74kiV6vUV3pb7AePqoqpOZf56Dq0tAbqrwKcMhVucVTjIPOc6vsfdWnAPmb +HTd/CChHgr2Bu05WKMKiRl59/a0yNFDISM4OUoK3qP1w8ZFSlKwkxffAWhls +fI2i980Wo/j0ow3OhAr0Wq6tepRahA4mO7YKDalArMO+QbTxLprbVjCfXbMB +wjrGvzRW30bfBowC6sJUQZZnbcUTm1vo5mYtmRZnNbAw3P71RFcBKrnqL+qu +pg7xHQciEvzyUZj1kd28M+rgsTtdwZnIQ7q9uXfCWjTAZ3yke7gqF6Up3yhp +2a0JdtVHyxZP56ALT2PSdj/QBGa21FzH1ixkLmNd0CyvBSsD3R0nnt9AW082 +2ItGaEFhbXvBodjrKFvWRf7VjBYsJGYfC9mZiuSf3UqxsNcGq781d+9vv4bi +1epU2mq0ofucutSfY0no6BTf2yYVNsx4cBUGhScgF84kERHHhpov4SPbm+KQ +V6jlomkCG4JtezPlq+OQv2VFt1ASG7SO7G9bVhKHwmf8Y+NT8P0e+cc98XGo +1GD+d2omG7h6K+Ie2Mah+dqlrsIiNnRIDL4xG45F8W1CMc8b2NBn2d7fuioW +peed8Pi3iQ2ZZuEzm7hiUZ5fq/Gul2zQH5UKLJuMQZXi8QsvW9lwxJKrL7c7 +BvUeXOvR3smGh17Ti9W5MUjxm5Tx129smH9vvaleLwZpVgTS8gfY0F/1dX+g +cgzaeLVn3m2IDXIx1Z1s2RhkpphZPjzCBoFNtrQK7hjke5yg/fzJBvN9e0qG +X0WjoE2X5skpNlTG7ZOsexKNrq762uE3wwZH4ezRLDIapZXlRc3N4fXFizS5 +pUWjmxf53B8usKExUq1tT1Q0KtrnZhS0yAaZe2Fbt4REowrmC7ktf9mgykwX +1zoVjWqmFOaXlthwwPrTXiXXaPQ/Mr+a+w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07564447682039577}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, + 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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, 20}, {0., 0.07564447682039577}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9921229219234695`*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"1af05e33-4f00-5348-87d0-2df2d51799e9"] +}, 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[143]:=",ExpressionUUID->"9cb62145-2ada-bc41-956f-2b9918d80413"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.220375088478079`*^-183\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 862, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512859148*^9, 3.992122922012169*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"9b90e153-d14e-5649-bf80-60087054a587"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.946145420058141`*^-187\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 143, 863, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512859148*^9, 3.992122922041153*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"c53c8ca5-f757-d144-977d-6cb961b28d1b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8949942684249513`*^-190\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 143, 864, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512859148*^9, 3.9921229220601463`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"a44aca3f-87af-5846-abc4-3a8d7614c68a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 143, 865, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512859148*^9, 3.9921229221169224`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"91f77e69-7500-ed40-883c-2bfc08d4d031"], + +Cell[BoxData["13.595342136040275`"], "Output", + CellChangeTimes->{3.9913335200445786`*^9, 3.992122989789974*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"cc412f43-07a6-a840-b2f0-6c3eda32bb66"] +}, 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.991845086901308*^9, 3.991845092064165*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"3b8ec59c-bf90-a74e-8e19-98c05b1b569e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.493433142157767`*^-221\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 144, 866, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335200775414`*^9, 3.9921229899019527`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"e42dbb11-9636-1743-aaf1-237dd815f3d0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.517712643329239`*^-227\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 144, 867, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335200775414`*^9, 3.992122989938854*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"ac13af8f-0360-c640-b1b9-45d438c2298d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.714966502994381`*^-233\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 144, 868, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335200775414`*^9, 3.9921229899608517`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"6b33d9da-ea6b-7e4a-9885-792b8887e5fa"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 144, 869, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335200775414`*^9, 3.9921229899769516`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"1e46f337-66f3-ea47-9c92-4ef9131773f4"], + +Cell[BoxData["0.31950662216393216`"], "Output", + CellChangeTimes->{3.9913335271231823`*^9, 3.9921230008956738`*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"25c7027f-043b-4a4b-be19-7d1f07e126c9"] +}, 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.991845095514675*^9, 3.991845099002287*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"ca9a5900-6241-e942-8e6f-ccee4f3ad231"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.493433142157767`*^-221\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 145, 870, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335271591835`*^9, 3.9921230010166893`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"722293d6-b351-8c4f-ba1e-76987de44c34"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.517712643329239`*^-227\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 145, 871, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335271591835`*^9, 3.992123001062584*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"7f944198-0bb5-144c-af36-a72f6138050e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.714966502994381`*^-233\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 145, 872, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335271591835`*^9, 3.9921230010816936`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"e656adb9-c1dd-674f-b5d5-42663ff25b18"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 145, 873, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335271591835`*^9, 3.9921230011006775`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"86e905ab-c9ec-2a42-a406-1734714cf827"], + +Cell[BoxData["27.593989158697976`"], "Output", + CellChangeTimes->{3.9913335331581306`*^9, 3.992123011499199*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"936ed1af-4179-aa49-83cc-29dad67bab3d"] +}, 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.991845103890877*^9, 3.9918451079172287`*^9}}, + CellLabel-> + "In[146]:=",ExpressionUUID->"4b76f315-df8b-2e44-9766-11e105bf7f03"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.493433142157767`*^-221\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 146, 874, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335331923027`*^9, 3.9921230115870953`*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"1aabd088-0bc9-7340-9186-f2e3b9e9527a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.517712643329239`*^-227\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 146, 875, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335331923027`*^9, 3.9921230116080933`*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"edc3159a-2297-ae48-9b80-a58eba82f923"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.714966502994381`*^-233\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 146, 876, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335331923027`*^9, 3.9921230116281967`*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"1836d1c4-f249-c748-a369-b112753e002a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 146, 877, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335331923027`*^9, 3.9921230116452065`*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"fe8f3dc2-d217-1347-9e89-363f1b4dc4e8"], + +Cell[BoxData["17.38162116275922`"], "Output", + CellChangeTimes->{3.9913335366055527`*^9, 3.9921230197067127`*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"a3c9e2f2-a313-214a-be32-c556b147f4d1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918451116798954`*^9, 3.991845116011841*^9}}, + CellLabel-> + "In[147]:=",ExpressionUUID->"c61261a4-9291-8d4e-84ee-07cf74de18fa"], + +Cell[BoxData["0.014589065668487758`"], "Output", + CellChangeTimes->{3.9913335366395893`*^9, 3.9921230197856083`*^9}, + CellLabel-> + "Out[147]=",ExpressionUUID->"b29f3335-6098-4e49-94f3-8e14183aa60a"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, -6}, {Automatic, 6.75}}, +CellContext->Notebook, +Magnification:>0.6 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"477cbae2-68b6-a84d-b5e5-8fac157f8e8b" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 452, 7, 16, "Input",ExpressionUUID->"8458377e-b729-7842-b6bf-d029af88cf74"], +Cell[1031, 31, 356, 5, 19, "Output",ExpressionUUID->"c4ed1b59-3cbb-e547-a87a-67eacbc1df9a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1424, 41, 346, 5, 16, "Input",ExpressionUUID->"2eb78ff4-0669-4e48-8d06-e0d68faa9bd7"], +Cell[1773, 48, 431, 6, 19, "Output",ExpressionUUID->"72332af1-3b7d-3041-820c-6def5fae4fb0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2241, 59, 253, 5, 16, "Input",ExpressionUUID->"065c4898-39bc-0442-947e-93882c40dc64"], +Cell[2497, 66, 428, 6, 19, "Output",ExpressionUUID->"7a880b49-ab2a-4b48-a255-69fdfd990c67"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2962, 77, 175, 3, 16, "Input",ExpressionUUID->"59ca93ce-52be-3b48-96a2-f0039c30dc94"], +Cell[3140, 82, 401, 6, 19, "Output",ExpressionUUID->"8dacad3f-d64b-b347-a884-a97e058ecd97"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3578, 93, 257, 7, 25, "Input",ExpressionUUID->"b8d816c6-fa8f-f143-b783-52a729e7e285"], +Cell[3838, 102, 412, 6, 19, "Output",ExpressionUUID->"2c67c526-8ae8-f34e-a308-46ebd772e587"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4287, 113, 131, 2, 16, "Input",ExpressionUUID->"e013fb3d-8374-0a4a-a562-a250c762d0e1"], +Cell[4421, 117, 403, 6, 19, "Output",ExpressionUUID->"e7fee5d8-1c99-384b-923c-eaee96837128"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4861, 128, 276, 6, 16, "Input",ExpressionUUID->"cb804fd1-1d6c-f744-bd48-f62535244426"], +Cell[5140, 136, 418, 6, 19, "Output",ExpressionUUID->"784a0a5f-6a76-fe40-a893-e2e8e23b3f73"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5595, 147, 257, 7, 16, "Input",ExpressionUUID->"22597984-a5b3-ca42-a1b4-d3006f1f9aba"], +Cell[5855, 156, 418, 6, 19, "Output",ExpressionUUID->"dde03983-df11-8749-92e8-dd4005e76898"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6310, 167, 236, 4, 16, "Input",ExpressionUUID->"2673edad-bb17-614f-a593-a9cb7cad1ffd"], +Cell[6549, 173, 438, 6, 19, "Output",ExpressionUUID->"eb8ac53c-fffd-f247-ace4-9cafbba6f06b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7024, 184, 236, 4, 16, "Input",ExpressionUUID->"48b19dc1-7edb-f041-bae4-57a9e4bd2551"], +Cell[7263, 190, 438, 6, 19, "Output",ExpressionUUID->"2dfb600d-e458-1a44-bba7-254cfa5abd3a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7738, 201, 129, 2, 16, "Input",ExpressionUUID->"b6556658-1091-fc4c-9ac8-1666d1e5378c"], +Cell[7870, 205, 404, 6, 19, "Output",ExpressionUUID->"3b808e86-5c99-2d49-b37d-b6c3e1b7bd14"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8311, 216, 129, 2, 16, "Input",ExpressionUUID->"af41b3eb-fc07-ed4d-8a49-34b18c13123e"], +Cell[8443, 220, 399, 6, 19, "Output",ExpressionUUID->"5e33cd10-9713-b149-97c2-64d7b6c99b82"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8879, 231, 557, 19, 47, "Input",ExpressionUUID->"dba3f829-103b-9f4a-ac0b-c48c153dee45"], +Cell[9439, 252, 398, 6, 19, "Output",ExpressionUUID->"76718e6d-28ec-0b41-a48e-fec60521ae43"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9874, 263, 557, 19, 47, "Input",ExpressionUUID->"f54316f6-bd9d-7b43-a7b7-d8c525372e74"], +Cell[10434, 284, 402, 6, 19, "Output",ExpressionUUID->"b454635b-1fde-6f4d-9e2a-877a6e36c1bf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[10873, 295, 1492, 48, 48, "Input",ExpressionUUID->"e3db6600-5d2c-484c-b638-1fc1af7a0fcd"], +Cell[12368, 345, 398, 6, 19, "Output",ExpressionUUID->"94f9afe3-f0de-cd4c-b503-2fe34b9faa23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[12803, 356, 1331, 44, 48, "Input",ExpressionUUID->"60553265-d929-9a4a-ade8-9643cec06658"], +Cell[14137, 402, 416, 7, 19, "Output",ExpressionUUID->"de0c854c-a92a-c049-96bb-8d86a401767f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14590, 414, 1331, 44, 48, "Input",ExpressionUUID->"35bb66b7-7141-c442-ab4a-7f44db800d79"], +Cell[15924, 460, 419, 7, 19, "Output",ExpressionUUID->"a4e1d51d-2dc4-e649-a288-48b668d498ca"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16380, 472, 1492, 48, 48, "Input",ExpressionUUID->"b84ad735-faee-584c-8acb-d12dfbf1dc32"], +Cell[17875, 522, 390, 6, 19, "Output",ExpressionUUID->"9c9bedeb-bafb-1b4b-9960-9beb00d0f6f2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18302, 533, 131, 2, 16, "Input",ExpressionUUID->"d2a99daf-e650-654e-8ae6-b58051fb43d3"], +Cell[18436, 537, 380, 6, 19, "Output",ExpressionUUID->"b9c3ab0e-6c20-2b45-8d41-b7d7cad4f3f7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18853, 548, 177, 3, 16, "Input",ExpressionUUID->"8e5231c5-60ac-dc40-b8eb-5ff933be944d"], +Cell[19033, 553, 380, 6, 19, "Output",ExpressionUUID->"7736a038-3ed8-e14e-a929-7c6385c8e72f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19450, 564, 134, 2, 16, "Input",ExpressionUUID->"268e769e-bd52-a749-9bf3-dbf8464e56a9"], +Cell[19587, 568, 388, 6, 19, "Output",ExpressionUUID->"dfe93ffd-be18-2e47-8cde-3908bb9c7680"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20012, 579, 219, 4, 16, "Input",ExpressionUUID->"fe2cdfec-040d-6548-a1f0-056505fdb252"], +Cell[20234, 585, 389, 7, 19, "Output",ExpressionUUID->"c866fce5-51e8-a241-b3d4-7882900bebdf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20660, 597, 134, 2, 16, "Input",ExpressionUUID->"6e4bb0a7-ae57-1148-817c-1ac3be501584"], +Cell[20797, 601, 384, 6, 19, "Output",ExpressionUUID->"e11492bd-fb1e-8541-aa53-5e04bca86b72"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21218, 612, 302, 5, 16, "Input",ExpressionUUID->"878d80cc-a24a-4a46-8d86-af1b4de5b7f0"], +Cell[21523, 619, 330, 5, 19, "Output",ExpressionUUID->"ad231e28-9f08-114b-9b72-87eb38190db0"] +}, Open ]], +Cell[21868, 627, 173, 2, 16, "Input",ExpressionUUID->"cef075a8-7701-b041-a178-03f3d50f1038"], +Cell[CellGroupData[{ +Cell[22066, 633, 296, 5, 16, "Input",ExpressionUUID->"60e50c6d-17e9-3c4a-beaf-d2a1cd7eacb7"], +Cell[22365, 640, 377, 6, 19, "Output",ExpressionUUID->"37108ab4-1b2a-894e-ae61-5e9cc882b478"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22779, 651, 219, 4, 16, "Input",ExpressionUUID->"4c2498ed-9ef7-244c-816d-c30c35823738"], +Cell[23001, 657, 379, 6, 19, "Output",ExpressionUUID->"88742a86-5b6f-604f-ab42-2d3bc7fb6c3e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23417, 668, 350, 10, 25, "Input",ExpressionUUID->"aeb81a59-93af-a84e-807d-17a754600be7"], +Cell[23770, 680, 397, 6, 19, "Output",ExpressionUUID->"c30dda74-9dd0-c143-9a5b-2c2765ef5634"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24204, 691, 350, 10, 25, "Input",ExpressionUUID->"291b8ccc-69af-4843-a393-cfd27bc3a78c"], +Cell[24557, 703, 408, 7, 19, "Output",ExpressionUUID->"a98653f3-aa53-5440-8885-928a66b93ae7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[25002, 715, 992, 26, 67, "Input",ExpressionUUID->"130ad36d-bea6-7242-aba2-dfa23b3f24b3"], +Cell[25997, 743, 398, 6, 19, "Output",ExpressionUUID->"603a3080-7f33-7340-bb43-cbfd58a5d901"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26432, 754, 199, 3, 16, "Input",ExpressionUUID->"0fb87ce2-288a-b34e-bc6e-0e425904e12e"], +Cell[26634, 759, 382, 6, 19, "Output",ExpressionUUID->"532f1980-b156-3f49-8e5b-ba293f4051e8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27053, 770, 275, 4, 16, "Input",ExpressionUUID->"4df8b2c8-baa3-7345-9ebf-2dbef092fc95"], +Cell[27331, 776, 339, 5, 19, "Output",ExpressionUUID->"a4714fd7-bddd-ca4d-9112-ef3b0b4f9255"] +}, Open ]], +Cell[27685, 784, 175, 2, 16, "Input",ExpressionUUID->"9049f273-3205-c04e-9831-c95d3306ffff"], +Cell[CellGroupData[{ +Cell[27885, 790, 323, 5, 16, "Input",ExpressionUUID->"847fcd2f-d4c6-274b-b69c-99763f1cdc12"], +Cell[28211, 797, 337, 5, 19, "Output",ExpressionUUID->"831ad37b-73df-c244-983b-65a5037eace8"] +}, Open ]], +Cell[28563, 805, 173, 2, 16, "Input",ExpressionUUID->"71094d83-ab7a-004d-90e5-bd603ce7e1cf"], +Cell[CellGroupData[{ +Cell[28761, 811, 343, 6, 28, "Input",ExpressionUUID->"f5912f7e-9027-7d42-a0c1-5e76e947b58d"], +Cell[29107, 819, 331, 5, 19, "Output",ExpressionUUID->"96259a60-6d71-7c4e-8973-e50ced1fac75"] +}, Open ]], +Cell[29453, 827, 175, 2, 16, "Input",ExpressionUUID->"ee521a53-a571-dd48-918f-9e53a3225d60"], +Cell[CellGroupData[{ +Cell[29653, 833, 347, 6, 28, "Input",ExpressionUUID->"6a9255f6-e423-5b4e-ad8a-b735145e3e44"], +Cell[30003, 841, 339, 5, 19, "Output",ExpressionUUID->"643ecf77-172e-9a47-b43a-0eaccbca720f"] +}, Open ]], +Cell[30357, 849, 175, 2, 16, "Input",ExpressionUUID->"e7eb29b7-994d-224a-997c-31f9b2d12c00"], +Cell[CellGroupData[{ +Cell[30557, 855, 273, 4, 16, "Input",ExpressionUUID->"4a689f90-566d-9b4d-b07a-5ba5a4de722e"], +Cell[30833, 861, 329, 5, 19, "Output",ExpressionUUID->"0ff9ef27-018d-884c-a60d-bde2b947613c"] +}, Open ]], +Cell[31177, 869, 173, 2, 16, "Input",ExpressionUUID->"0bb456d4-0bff-084e-baad-4ce3a3ade3a1"], +Cell[CellGroupData[{ +Cell[31375, 875, 277, 4, 16, "Input",ExpressionUUID->"4a08306d-5825-5245-99e4-ad98c9ced916"], +Cell[31655, 881, 334, 5, 19, "Output",ExpressionUUID->"73faacba-7daa-cf44-b755-f7acd389bb7e"] +}, Open ]], +Cell[32004, 889, 171, 2, 16, "Input",ExpressionUUID->"c2a70a7f-2283-3c43-bead-cfb6bc4f0fc1"], +Cell[CellGroupData[{ +Cell[32200, 895, 325, 6, 28, "Input",ExpressionUUID->"1cf75dbd-0ee2-b64b-91df-0f6d27a2c275"], +Cell[32528, 903, 326, 5, 19, "Output",ExpressionUUID->"a74b927d-bf60-8049-a437-079076dfbc99"] +}, Open ]], +Cell[32869, 911, 175, 2, 16, "Input",ExpressionUUID->"e52ef544-976c-0e42-9b93-9a455fef99a3"], +Cell[CellGroupData[{ +Cell[33069, 917, 270, 5, 28, "Input",ExpressionUUID->"589212bb-0d09-bd4d-9ef5-2829a0dd2671"], +Cell[33342, 924, 330, 5, 19, "Output",ExpressionUUID->"534ce497-2c7e-eb43-a02a-7eada08c1a65"] +}, Open ]], +Cell[33687, 932, 171, 2, 16, "Input",ExpressionUUID->"1ed7bdb6-c122-8648-a8fd-20060de48097"], +Cell[CellGroupData[{ +Cell[33883, 938, 19809, 485, 1067, "Input",ExpressionUUID->"5655ff51-03c5-6e4b-a31c-447549cb42db"], +Cell[53695, 1425, 388, 6, 22, "Output",ExpressionUUID->"83be1b51-2b2a-c641-aae9-fae4884076e4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[54120, 1436, 19748, 489, 1113, "Input",ExpressionUUID->"54727339-1998-d347-b373-e75d1edb0eb8"], +Cell[73871, 1927, 397, 6, 22, "Output",ExpressionUUID->"82f1b2b0-51a7-8a49-adac-da2ee87ecee2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[74305, 1938, 19748, 483, 1069, "Input",ExpressionUUID->"66fa67b1-f382-df40-a332-dc300b0c584b"], +Cell[94056, 2423, 413, 7, 22, "Output",ExpressionUUID->"76729142-2d26-b045-bf16-642957c832cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[94506, 2435, 22534, 553, 1209, "Input",ExpressionUUID->"2f0eaada-92ab-a446-b15b-c25b7bd772ef"], +Cell[117043, 2990, 413, 7, 22, "Output",ExpressionUUID->"8693afbc-c2de-d141-a81d-a7a43ec2ab76"] +}, Open ]], +Cell[CellGroupData[{ +Cell[117493, 3002, 22535, 553, 1209, "Input",ExpressionUUID->"941a1eea-87d7-8f42-ae3e-405dbe917eac"], +Cell[140031, 3557, 413, 7, 22, "Output",ExpressionUUID->"2c92c3e8-dabb-9048-bb84-4e7e2c9ebaa4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[140481, 3569, 25491, 626, 1336, "Input",ExpressionUUID->"e33d937e-5049-334c-9bad-1b104d98f2bc"], +Cell[165975, 4197, 410, 7, 22, "Output",ExpressionUUID->"4c8cdffe-d441-7644-968d-d44d46668238"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166422, 4209, 130, 2, 19, "Input",ExpressionUUID->"6e0bef04-8d2e-1745-b209-ce9874237cee"], +Cell[166555, 4213, 378, 6, 22, "Output",ExpressionUUID->"b9e7d09e-4840-474c-9f85-38d160cf7ca0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166970, 4224, 130, 2, 19, "Input",ExpressionUUID->"51a875f3-2bd1-8b45-9152-496f4e103d3f"], +Cell[167103, 4228, 378, 6, 22, "Output",ExpressionUUID->"bd470ddb-f15c-5140-9942-2a679731db1c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[167518, 4239, 1144, 39, 36, "Input",ExpressionUUID->"391cdea6-e77a-a24f-ab38-4a6a1d28cf24"], +Cell[168665, 4280, 399, 6, 22, "Output",ExpressionUUID->"13d946ce-cbef-b34d-a6ea-632e681eeb42"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169101, 4291, 1041, 35, 36, "Input",ExpressionUUID->"99153a49-9764-644e-94a8-492732e4283f"], +Cell[170145, 4328, 407, 7, 22, "Output",ExpressionUUID->"d23f15dc-c05c-614f-806b-8e8a21c3c4dd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170589, 4340, 1144, 39, 36, "Input",ExpressionUUID->"e844b4c8-a66e-5141-bc71-bc70b39539db"], +Cell[171736, 4381, 400, 6, 22, "Output",ExpressionUUID->"4b4a1aec-48f9-b34b-9233-02e91c431fcf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172173, 4392, 108, 1, 19, "Input",ExpressionUUID->"f2db0337-401a-e741-8590-810217c4f3c3"], +Cell[172284, 4395, 394, 6, 22, "Output",ExpressionUUID->"b494f128-0dd4-db4f-a9a0-1fffa9962893"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172715, 4406, 108, 1, 19, "Input",ExpressionUUID->"eb2f2172-089c-4643-9ded-376391cc54ba"], +Cell[172826, 4409, 413, 7, 22, "Output",ExpressionUUID->"cce0e5e3-2ab6-a040-9d06-60e60e827a7b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173276, 4421, 108, 1, 19, "Input",ExpressionUUID->"91d93eed-7bdd-9542-ac21-1e219c8eb1f7"], +Cell[173387, 4424, 413, 7, 22, "Output",ExpressionUUID->"9ec6abf2-5838-2d45-b185-ca6fc346277c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173837, 4436, 108, 1, 19, "Input",ExpressionUUID->"4a405139-98b1-da41-baa7-40f21a88faee"], +Cell[173948, 4439, 400, 6, 22, "Output",ExpressionUUID->"265e095a-ad88-d64b-a04c-5cf247b12e66"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174385, 4450, 107, 1, 19, "Input",ExpressionUUID->"2432f554-dfce-c345-aee4-ab1fada20c0f"], +Cell[174495, 4453, 391, 6, 22, "Output",ExpressionUUID->"217590fd-19d2-5f49-8730-35f389da3528"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174923, 4464, 107, 1, 19, "Input",ExpressionUUID->"d8300595-d956-114b-ac74-43bf03afaa14"], +Cell[175033, 4467, 395, 6, 22, "Output",ExpressionUUID->"3448593c-b1da-e34d-84d8-b97039a3a2f2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175465, 4478, 497, 16, 36, "Input",ExpressionUUID->"843f4134-7522-1148-a355-758046332408"], +Cell[175965, 4496, 409, 7, 22, "Output",ExpressionUUID->"f8dd8ba1-c84f-ba4f-ba28-a7a91cd14862"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176411, 4508, 497, 16, 36, "Input",ExpressionUUID->"133c5c9d-3e6b-fb4e-8771-e0290c8011e2"], +Cell[176911, 4526, 412, 7, 22, "Output",ExpressionUUID->"1eee8ebd-27ee-6c48-8ccc-02fbbb3c422a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[177360, 4538, 1788, 60, 72, "Input",ExpressionUUID->"a344793c-bf8e-2a4c-ac3f-5d45a812d604"], +Cell[179151, 4600, 395, 6, 22, "Output",ExpressionUUID->"877eac59-cd25-7546-bb22-425885dc8bb2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[179583, 4611, 1101, 36, 36, "Input",ExpressionUUID->"0b343bab-19c0-8b44-83a5-d2b4e9621921"], +Cell[180687, 4649, 412, 7, 22, "Output",ExpressionUUID->"02f9b44f-eedb-1e40-8e60-45ad8e92b48a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181136, 4661, 1818, 61, 72, "Input",ExpressionUUID->"25cd0352-0a5d-eb49-ac86-c2d9cc6a455e"], +Cell[182957, 4724, 395, 6, 22, "Output",ExpressionUUID->"03a53b1c-384a-7b49-9f63-014ada7ecdf5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183389, 4735, 2499, 77, 31, "Input",ExpressionUUID->"2690c115-57dd-354e-a006-969bc2d2f822"], +Cell[185891, 4814, 397, 6, 22, "Output",ExpressionUUID->"9cc76c41-9121-f549-b595-bb254e4179a0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186325, 4825, 2499, 77, 31, "Input",ExpressionUUID->"a25ceab2-3820-2e42-8510-d275cffeed66"], +Cell[188827, 4904, 389, 6, 22, "Output",ExpressionUUID->"01dd996c-7ef5-e340-ab7c-54745c239829"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189253, 4915, 236, 4, 19, "Input",ExpressionUUID->"8b10a187-c7b7-0f44-8f32-75ec5ae33e70"], +Cell[189492, 4921, 166, 2, 22, "Output",ExpressionUUID->"5fd992e6-b5d5-9249-abd4-716fe8fe12c4"] +}, Open ]], +Cell[189673, 4926, 171, 2, 19, "Input",ExpressionUUID->"d7190627-18d6-a94b-880e-e3f073ed75cd"], +Cell[CellGroupData[{ +Cell[189869, 4932, 235, 4, 19, "Input",ExpressionUUID->"ff3a0633-5725-474e-a1df-0fae08da0391"], +Cell[190107, 4938, 165, 2, 22, "Output",ExpressionUUID->"d1a6bc9f-42fe-2b40-bead-867e1959fb30"] +}, Open ]], +Cell[190287, 4943, 173, 2, 19, "Input",ExpressionUUID->"c4cb48f6-8bef-5140-97cb-74fc477176c0"], +Cell[CellGroupData[{ +Cell[190485, 4949, 1297, 42, 31, "Input",ExpressionUUID->"1479e503-99dc-8043-a7ed-41f4ebd401a5"], +Cell[191785, 4993, 194, 2, 22, "Output",ExpressionUUID->"bc2a659f-c93f-5245-b96c-20b542cde9ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192016, 5000, 929, 29, 36, "Input",ExpressionUUID->"ee451e0a-03c5-5d4b-809d-1baa2036c180"], +Cell[192948, 5031, 193, 2, 22, "Output",ExpressionUUID->"4d258fe3-09dd-8a40-bcff-b94e09e0b238"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193178, 5038, 983, 32, 36, "Input",ExpressionUUID->"1b7f9814-f540-ee4f-a97a-82e0c001ccbc"], +Cell[194164, 5072, 196, 2, 22, "Output",ExpressionUUID->"161c1430-2d64-3741-a2f5-c22d5f0aa6c9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194397, 5079, 554, 18, 33, "Input",ExpressionUUID->"add7dc78-05f0-9740-a4f6-53e576919ef8"], +Cell[194954, 5099, 191, 2, 22, "Output",ExpressionUUID->"fec45309-5ff0-5841-9564-0e0b176e18f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195182, 5106, 619, 20, 33, "Input",ExpressionUUID->"9b673079-5994-e34c-a858-9ada9b775642"], +Cell[195804, 5128, 189, 2, 22, "Output",ExpressionUUID->"4c3eb498-108d-e246-b15f-71f857669eb5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196030, 5135, 166, 4, 36, "Input",ExpressionUUID->"2e19814e-d8e4-0440-a349-54cc93ccdf53"], +Cell[196199, 5141, 193, 2, 22, "Output",ExpressionUUID->"6eda747c-145d-b541-b206-d2c7a2183c32"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196429, 5148, 166, 4, 36, "Input",ExpressionUUID->"538f6b3e-6e49-7749-a73e-74beaffe6942"], +Cell[196598, 5154, 187, 2, 22, "Output",ExpressionUUID->"f376a02f-b6bb-7d49-b5be-f23875b070f7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196822, 5161, 177, 4, 28, "Input",ExpressionUUID->"0943a4c5-ab88-024e-b598-6ab09308c529"], +Cell[197002, 5167, 189, 2, 22, "Output",ExpressionUUID->"a368f12d-0adf-6541-9d89-7478ff423dc5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197228, 5174, 177, 4, 28, "Input",ExpressionUUID->"5313d107-d67a-0a42-97ea-bdd5afbb176c"], +Cell[197408, 5180, 190, 2, 22, "Output",ExpressionUUID->"6560de0a-4715-5748-bd44-12440e7bb182"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197635, 5187, 6051, 184, 214, "Input",ExpressionUUID->"05311468-f950-6f43-ae68-9cc6502c4986"], +Cell[203689, 5373, 194, 2, 22, "Output",ExpressionUUID->"7d95522c-4ebc-dd42-8a8b-11f35d5e476d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[203920, 5380, 364, 8, 25, "Input",ExpressionUUID->"55ab7556-231d-f846-b625-6b6079424223"], +Cell[204287, 5390, 192, 2, 22, "Output",ExpressionUUID->"1c05557d-ecd1-b346-a4a0-b395085aac68"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204516, 5397, 6118, 186, 214, "Input",ExpressionUUID->"de97f1d4-a997-5d44-ad21-9d29636b6b11"], +Cell[210637, 5585, 191, 2, 22, "Output",ExpressionUUID->"adaae8b7-5a8f-7a4e-b500-1e517528b654"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210865, 5592, 364, 8, 25, "Input",ExpressionUUID->"69bf2733-1c68-0d45-9dcf-32eb09d0774e"], +Cell[211232, 5602, 190, 2, 22, "Output",ExpressionUUID->"78727c1b-3c29-3e49-9849-3e13f9eb09fb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[211459, 5609, 2659, 87, 108, "Input",ExpressionUUID->"790285fd-a791-004a-beb8-81432d5fe6ed"], +Cell[214121, 5698, 192, 2, 22, "Output",ExpressionUUID->"3738bebf-fdb7-744d-a7f3-b3d59491ff05"] +}, Open ]], +Cell[CellGroupData[{ +Cell[214350, 5705, 2599, 84, 108, "Input",ExpressionUUID->"8d9d59ff-5258-ed44-b54a-00649424f6ab"], +Cell[216952, 5791, 193, 2, 22, "Output",ExpressionUUID->"90f0e5e5-1d63-9a4e-8c8d-c34f582e9dbd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[217182, 5798, 3708, 117, 158, "Input",ExpressionUUID->"082cc170-e78d-1f4c-ac49-a1fc473fe786"], +Cell[220893, 5917, 191, 2, 22, "Output",ExpressionUUID->"7f6f2692-7876-1d4b-a096-997110255b4a"] +}, Open ]], +Cell[221099, 5922, 160, 3, 25, "Input",ExpressionUUID->"b80089e4-e129-a84d-a279-8559e98c6042"], +Cell[CellGroupData[{ +Cell[221284, 5929, 2071, 58, 74, "Input",ExpressionUUID->"d15c8f9d-5cd8-0448-9115-8fd811f7859e"], +Cell[223358, 5989, 579, 12, 27, "Message",ExpressionUUID->"f5884305-e9ab-b04c-9831-88937b36f5d5"], +Cell[223940, 6003, 580, 12, 27, "Message",ExpressionUUID->"618bfe3e-f617-fb43-a2ec-64c990c3061f"], +Cell[224523, 6017, 584, 12, 27, "Message",ExpressionUUID->"fba1ee07-0355-3949-8bf8-e5b72b8a250d"], +Cell[225110, 6031, 478, 10, 16, "Message",ExpressionUUID->"651f7e32-1fae-5440-9722-0454662f5a5f"], +Cell[225591, 6043, 189, 2, 22, "Output",ExpressionUUID->"1a7f079f-59d3-eb45-8065-c4d9e2cf7d79"] +}, Open ]], +Cell[CellGroupData[{ +Cell[225817, 6050, 2071, 58, 74, "Input",ExpressionUUID->"a596efda-1871-9b45-afb4-f85dfdafd26c"], +Cell[227891, 6110, 575, 12, 27, "Message",ExpressionUUID->"4eb4bce7-d74b-924c-aeae-69cbd3b4f7bc"], +Cell[228469, 6124, 578, 12, 27, "Message",ExpressionUUID->"06f17012-b2ea-4f47-a3e9-87b2edcc7587"], +Cell[229050, 6138, 582, 12, 27, "Message",ExpressionUUID->"21e9f956-b642-8844-ac83-9cf76af4f9cb"], +Cell[229635, 6152, 476, 10, 16, "Message",ExpressionUUID->"d4c99b7e-a55b-3747-aa01-f9b0d8b5e36c"], +Cell[230114, 6164, 192, 2, 22, "Output",ExpressionUUID->"79b40355-3da2-994d-87c5-8cc3d83ca3c3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[230343, 6171, 1955, 52, 55, "Input",ExpressionUUID->"98a8fe78-0965-1043-b897-797c175d7e63"], +Cell[232301, 6225, 20296, 380, 142, "Output",ExpressionUUID->"95dd8aff-1dcb-5e4d-8148-b9f1f81fb262"] +}, Open ]], +Cell[CellGroupData[{ +Cell[252634, 6610, 2133, 59, 74, "Input",ExpressionUUID->"9a11a03e-c4c1-5741-ac7d-23e1536f3e79"], +Cell[254770, 6671, 519, 11, 27, "Message",ExpressionUUID->"6769bdfa-2bd4-ca4c-84e1-23b6458b56f9"], +Cell[255292, 6684, 522, 11, 27, "Message",ExpressionUUID->"df11cb5c-6b1d-3e46-995b-574ad82cbc89"], +Cell[255817, 6697, 526, 11, 27, "Message",ExpressionUUID->"46649f1c-f59e-1d46-af36-c2baed590447"], +Cell[256346, 6710, 480, 10, 16, "Message",ExpressionUUID->"de98472d-afea-0948-90e5-0d964dee5824"], +Cell[256829, 6722, 21785, 402, 140, "Output",ExpressionUUID->"2c5e5728-758e-2048-bda3-ffe0c53cebdd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[278651, 7129, 1885, 50, 49, "Input",ExpressionUUID->"d0e220f6-a6cd-c048-ab1a-de311ff0fdbc"], +Cell[280539, 7181, 8995, 209, 145, "Output",ExpressionUUID->"2dc634c2-eb9d-f246-83bc-ee04fba1c5f7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[289571, 7395, 276, 5, 25, "Input",ExpressionUUID->"b9d1e9a3-d136-bb41-ba98-cea12bff5352"], +Cell[289850, 7402, 27744, 526, 140, "Output",ExpressionUUID->"c12ddfad-4317-594d-9cf0-142377e33a72"] +}, Open ]], +Cell[CellGroupData[{ +Cell[317631, 7933, 234, 6, 31, "Input",ExpressionUUID->"f431849e-0899-864c-b9d1-1df0491628db"], +Cell[317868, 7941, 191, 2, 22, "Output",ExpressionUUID->"30213909-a541-7c4f-bec8-cd9c7165a90d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[318096, 7948, 1839, 53, 74, "Input",ExpressionUUID->"650ee12b-eb50-044b-94e9-ce88ff255deb"], +Cell[319938, 8003, 530, 11, 27, "Message",ExpressionUUID->"d1ed5e84-851d-8b47-aae3-6fd1d0c5a9f6"], +Cell[320471, 8016, 534, 11, 27, "Message",ExpressionUUID->"ae25ec0a-bc68-dc47-9b27-daa13d520d74"], +Cell[321008, 8029, 533, 11, 27, "Message",ExpressionUUID->"3fcb0167-e792-2749-bc0a-54e1abe1575e"], +Cell[321544, 8042, 480, 10, 16, "Message",ExpressionUUID->"3390f48a-fe4d-c244-8987-ed8187566fcd"], +Cell[322027, 8054, 22425, 415, 148, "Output",ExpressionUUID->"4810e267-cc17-7148-919a-9a69553b3a53"] +}, Open ]], +Cell[CellGroupData[{ +Cell[344489, 8474, 1616, 48, 56, "Input",ExpressionUUID->"5c6d0b57-910e-664a-8fd6-40771b36868b"], +Cell[346108, 8524, 612, 12, 27, "Message",ExpressionUUID->"ea8a0039-534b-6044-8956-4386982e10cf"], +Cell[346723, 8538, 617, 12, 27, "Message",ExpressionUUID->"d3aa96d3-1d05-584d-b009-413b6b60d816"], +Cell[347343, 8552, 617, 12, 27, "Message",ExpressionUUID->"c9d0bbde-e839-0542-aa09-939e17bb39c9"], +Cell[347963, 8566, 480, 10, 16, "Message",ExpressionUUID->"e6120042-2c47-1b4c-917f-a509e7dec2f4"], +Cell[348446, 8578, 195, 3, 30, "Output",ExpressionUUID->"1a2efb48-5d71-3f40-bade-563436895243"] +}, Open ]], +Cell[CellGroupData[{ +Cell[348678, 8586, 2270, 64, 49, "Input",ExpressionUUID->"b04a104f-3249-a34a-8102-7d9b3c7b796d"], +Cell[350951, 8652, 579, 12, 27, "Message",ExpressionUUID->"2a92417b-cef4-4e49-9472-656d4307bfee"], +Cell[351533, 8666, 580, 12, 27, "Message",ExpressionUUID->"b5522da2-fc24-de4e-bc13-73ea1b98f3a1"], +Cell[352116, 8680, 584, 12, 27, "Message",ExpressionUUID->"e1ba7bd1-a8c6-7244-bd08-25d2e37043a5"], +Cell[352703, 8694, 480, 10, 15, "Message",ExpressionUUID->"aaa5ad63-b06e-0f41-a6fe-bc7324560f46"], +Cell[353186, 8706, 197, 3, 19, "Output",ExpressionUUID->"a4bc3726-ac87-5c41-8e99-318cd1927e06"] +}, Open ]], +Cell[CellGroupData[{ +Cell[353420, 8714, 2244, 64, 97, "Input",ExpressionUUID->"6b8170ef-e8e1-8b4d-b589-528a0f547fe8"], +Cell[355667, 8780, 577, 12, 40, "Message",ExpressionUUID->"37f66dd1-170b-d14b-9592-9c923e692b37"], +Cell[356247, 8794, 580, 12, 40, "Message",ExpressionUUID->"39c0f6e7-0628-d748-a72b-796d16e610b7"], +Cell[356830, 8808, 584, 12, 40, "Message",ExpressionUUID->"425875d3-1e69-c14c-817e-9f4e58593aa0"], +Cell[357417, 8822, 478, 10, 15, "Message",ExpressionUUID->"7b026711-920c-9b42-a1b9-3a61b6ff67ed"], +Cell[357898, 8834, 195, 3, 19, "Output",ExpressionUUID->"1acc1147-2e41-8b4f-a7e3-6281016ac1e9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[358130, 8842, 2242, 64, 97, "Input",ExpressionUUID->"984387ef-9fd9-3c47-bc3d-b6f0e8b03e2c"], +Cell[360375, 8908, 579, 12, 40, "Message",ExpressionUUID->"61bcf82d-f6a1-a14e-b4b8-2e521e9201ab"], +Cell[360957, 8922, 584, 12, 40, "Message",ExpressionUUID->"87d8843d-9c8a-7b47-98aa-22c6852cdb7c"], +Cell[361544, 8936, 586, 12, 40, "Message",ExpressionUUID->"49f8b456-ce52-084b-8e92-aede72e0976b"], +Cell[362133, 8950, 479, 10, 15, "Message",ExpressionUUID->"d208afba-06b7-054c-b049-81a6a1687484"], +Cell[362615, 8962, 197, 3, 19, "Output",ExpressionUUID->"17b24e56-798b-9c42-941b-16bec4899254"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362849, 8970, 236, 6, 28, "Input",ExpressionUUID->"a1d4e2a6-d632-ee42-bf72-0ec0037a6c16"], +Cell[363088, 8978, 196, 3, 19, "Output",ExpressionUUID->"a9235d14-cc54-544e-a92a-b853366d8583"] +}, Open ]], +Cell[363299, 8984, 271, 6, 25, "Input",ExpressionUUID->"ab8417e8-4709-e943-87cd-c5b8a0910541"], +Cell[CellGroupData[{ +Cell[363595, 8994, 558, 19, 31, "Input",ExpressionUUID->"befa51f5-5940-8743-b07a-eb3a8aba653f"], +Cell[364156, 9015, 194, 3, 19, "Output",ExpressionUUID->"dafc8a45-31d9-ea43-af33-be093c3e2bb5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364387, 9023, 170, 5, 33, "Input",ExpressionUUID->"8c248539-c23a-4a42-8e54-3b513c751017"], +Cell[364560, 9030, 195, 3, 19, "Output",ExpressionUUID->"1e456755-7bea-bb4c-b79e-f49d619687b4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364792, 9038, 181, 5, 26, "Input",ExpressionUUID->"293f8673-c8b0-6746-85db-59c8f599b57c"], +Cell[364976, 9045, 197, 3, 19, "Output",ExpressionUUID->"ab6d94f5-6ff6-764d-9fa5-13952b705283"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365210, 9053, 6055, 185, 295, "Input",ExpressionUUID->"8fe440ff-6433-ee43-8ab0-44131de05652"], +Cell[371268, 9240, 196, 3, 19, "Output",ExpressionUUID->"87026635-c9e8-0741-a99f-d9472e6340f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[371501, 9248, 368, 9, 25, "Input",ExpressionUUID->"ec04ad19-eb6d-ba4f-929a-62702cc30a12"], +Cell[371872, 9259, 192, 3, 19, "Output",ExpressionUUID->"b692b5e8-09a7-794e-8a42-f399cbc601a3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[372101, 9267, 6122, 187, 307, "Input",ExpressionUUID->"301beffb-a956-b44c-beb2-37fe9711e64e"], +Cell[378226, 9456, 199, 3, 19, "Output",ExpressionUUID->"3c28076f-2cb9-1047-a771-7aab32c3f71f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[378462, 9464, 368, 9, 25, "Input",ExpressionUUID->"603274e8-9f12-ce48-b425-66b0e2e5dd2e"], +Cell[378833, 9475, 196, 3, 19, "Output",ExpressionUUID->"7db394fd-175d-3340-9ace-b435363b3e44"] +}, Open ]], +Cell[CellGroupData[{ +Cell[379066, 9483, 2663, 88, 99, "Input",ExpressionUUID->"26d67789-9b33-7843-a368-14c85da65ff3"], +Cell[381732, 9573, 198, 3, 19, "Output",ExpressionUUID->"dd414c03-c9e8-7f4f-ba52-54448ddde44d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[381967, 9581, 2603, 85, 99, "Input",ExpressionUUID->"a37295b9-9f23-ed46-af76-8081da173c8b"], +Cell[384573, 9668, 193, 3, 19, "Output",ExpressionUUID->"c43c9f0d-4fa9-2b4c-b85b-597d92ad9e50"] +}, Open ]], +Cell[CellGroupData[{ +Cell[384803, 9676, 3712, 118, 176, "Input",ExpressionUUID->"8cb2872a-60dc-2845-b059-08954f0afeb4"], +Cell[388518, 9796, 195, 3, 19, "Output",ExpressionUUID->"983517a9-a9e9-7b4b-a436-ff23b5ffc2d5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[388750, 9804, 2075, 59, 137, "Input",ExpressionUUID->"003a047b-90eb-3149-b4f8-a296c2b2cdcd"], +Cell[390828, 9865, 584, 12, 40, "Message",ExpressionUUID->"913d64f4-069a-3c47-a17b-4d73d74f0272"], +Cell[391415, 9879, 586, 12, 40, "Message",ExpressionUUID->"0b426b5c-778c-6849-9c1e-22079b524231"], +Cell[392004, 9893, 591, 12, 51, "Message",ExpressionUUID->"b36bab77-419c-e84d-85af-037e9892a761"], +Cell[392598, 9907, 480, 10, 15, "Message",ExpressionUUID->"3c6558a5-6b6d-4449-8f38-ac90a3becb77"], +Cell[393081, 9919, 192, 3, 19, "Output",ExpressionUUID->"8db75942-782c-0240-9e7c-96cb1e9f6b84"] +}, Open ]], +Cell[CellGroupData[{ +Cell[393310, 9927, 2075, 59, 137, "Input",ExpressionUUID->"17f0d32c-a57d-2a45-81f1-ef75e11de8a0"], +Cell[395388, 9988, 582, 12, 40, "Message",ExpressionUUID->"cc13e1e8-e38d-fd4b-832b-91c63392a6a2"], +Cell[395973, 10002, 584, 12, 40, "Message",ExpressionUUID->"32a2ae4e-fbaa-7549-9429-8bb2eebf5dcb"], +Cell[396560, 10016, 587, 12, 51, "Message",ExpressionUUID->"9d697c88-cfa9-4146-8643-7b90db1c8e33"], +Cell[397150, 10030, 476, 10, 15, "Message",ExpressionUUID->"ebe9b633-3247-2d45-adb7-816ed8af74e9"], +Cell[397629, 10042, 195, 3, 19, "Output",ExpressionUUID->"f7cdd029-5251-4b41-9473-373b7e700a1c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[397861, 10050, 2053, 55, 78, "Input",ExpressionUUID->"fcd15b99-cf8b-0648-a673-70cdac1f227f"], +Cell[399917, 10107, 20010, 376, 142, "Output",ExpressionUUID->"2c672264-c8ae-9d4d-9750-b86d3469ec4e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[419964, 10488, 2168, 61, 126, "Input",ExpressionUUID->"76321b6a-1af8-9c49-b2f7-d5c92a8c63b6"], +Cell[422135, 10551, 522, 11, 36, "Message",ExpressionUUID->"58e6db52-d858-5742-b3af-14f4d923527b"], +Cell[422660, 10564, 526, 11, 36, "Message",ExpressionUUID->"8673a462-97ab-d84a-b5f0-7378dab66454"], +Cell[423189, 10577, 527, 11, 36, "Message",ExpressionUUID->"ef5e08fd-7e28-3945-9140-4163d07b2afc"], +Cell[423719, 10590, 480, 10, 15, "Message",ExpressionUUID->"102667df-5b40-2846-92e5-35434e23c4e6"], +Cell[424202, 10602, 22439, 415, 140, "Output",ExpressionUUID->"42594ac5-80c7-5949-ac5f-97593bb5a779"] +}, Open ]], +Cell[CellGroupData[{ +Cell[446678, 11022, 234, 5, 25, "Input",ExpressionUUID->"17d8d20d-a69d-c241-a4b7-c5ab6913db6c"], +Cell[446915, 11029, 28398, 539, 140, "Output",ExpressionUUID->"bcb47329-1c4e-ba46-9870-8427c86cfa1c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[475350, 11573, 1616, 48, 63, "Input",ExpressionUUID->"37173e44-18b6-f345-bdbf-3935ac3d85ba"], +Cell[476969, 11623, 613, 12, 51, "Message",ExpressionUUID->"5e0f186c-b493-344b-81a1-6a296c146a17"], +Cell[477585, 11637, 616, 12, 51, "Message",ExpressionUUID->"94201451-829a-4e44-bc2e-b9225cb803b7"], +Cell[478204, 11651, 619, 12, 51, "Message",ExpressionUUID->"72ea9d09-653a-6149-ace4-ad0eabd50177"], +Cell[478826, 11665, 480, 10, 15, "Message",ExpressionUUID->"d71e7063-1a8d-b14c-a292-de81589fc09d"], +Cell[479309, 11677, 193, 3, 19, "Output",ExpressionUUID->"c059b970-9bba-f945-aad7-705a8a127507"] +}, Open ]], +Cell[CellGroupData[{ +Cell[479539, 11685, 2270, 64, 133, "Input",ExpressionUUID->"c4a8a8b0-0b31-ac4c-a7ce-152da20b42d7"], +Cell[481812, 11751, 584, 12, 40, "Message",ExpressionUUID->"86767bb9-09c5-2047-bced-59e348289011"], +Cell[482399, 11765, 590, 12, 40, "Message",ExpressionUUID->"8342b6e6-37cc-fe49-9e92-7819b0068cc5"], +Cell[482992, 11779, 593, 12, 51, "Message",ExpressionUUID->"6184426d-4ba1-194d-ba6e-a17f28e5d6fd"], +Cell[483588, 11793, 482, 10, 15, "Message",ExpressionUUID->"6760e163-7ae2-b04e-a711-57c38117c5e7"], +Cell[484073, 11805, 194, 3, 19, "Output",ExpressionUUID->"f9d6c685-690d-9342-b569-5afa8b25bf2b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[484304, 11813, 2244, 64, 97, "Input",ExpressionUUID->"3975f6bc-b8e0-0049-badb-74a4e7126d8f"], +Cell[486551, 11879, 586, 12, 40, "Message",ExpressionUUID->"b17fddfb-d5f9-684e-a732-345f8961700a"], +Cell[487140, 11893, 590, 12, 40, "Message",ExpressionUUID->"4911c258-e8f1-104d-a027-fbc0461f2bc8"], +Cell[487733, 11907, 593, 12, 51, "Message",ExpressionUUID->"432a6f3d-6d2b-2541-89bc-c2360fb2499e"], +Cell[488329, 11921, 482, 10, 15, "Message",ExpressionUUID->"11e4ec9f-3d11-3749-8aa6-56144950bd70"], +Cell[488814, 11933, 193, 3, 19, "Output",ExpressionUUID->"616eb782-657e-1843-bf96-611a3731af7a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[489044, 11941, 2242, 64, 97, "Input",ExpressionUUID->"f4f95d15-5683-9549-85ce-3970c364fc34"], +Cell[491289, 12007, 583, 12, 40, "Message",ExpressionUUID->"fb056d72-5a81-c04b-811c-b569ea320291"], +Cell[491875, 12021, 590, 12, 40, "Message",ExpressionUUID->"a385acc4-299b-434b-ad96-e590119e1a2c"], +Cell[492468, 12035, 591, 12, 51, "Message",ExpressionUUID->"333b7a2c-9187-1f40-8be3-d3091cf76842"], +Cell[493062, 12049, 480, 10, 15, "Message",ExpressionUUID->"403e2811-4e45-b247-b953-e21c84ec8f05"], +Cell[493545, 12061, 192, 3, 19, "Output",ExpressionUUID->"71b0aa93-d6a4-7b4b-ae0a-67d1228b94a8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[493774, 12069, 238, 6, 28, "Input",ExpressionUUID->"16838e8f-dc9a-d74c-8675-3a4476217af6"], +Cell[494015, 12077, 196, 3, 19, "Output",ExpressionUUID->"ffeb94c8-79cf-1743-9aaa-df3c201d99a0"] +}, Open ]], +Cell[494226, 12083, 273, 6, 25, "Input",ExpressionUUID->"5671b6c5-96eb-9840-bb09-6698022336a6"], +Cell[CellGroupData[{ +Cell[494524, 12093, 558, 19, 31, "Input",ExpressionUUID->"4d014000-6f17-9a45-b3a6-a3a0cf36c628"], +Cell[495085, 12114, 195, 3, 19, "Output",ExpressionUUID->"f95b6f67-74e6-9643-a834-6bf8a9155369"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495317, 12122, 170, 5, 33, "Input",ExpressionUUID->"fe5bd3c5-5fb8-684b-9227-f90b633f4a5d"], +Cell[495490, 12129, 195, 3, 19, "Output",ExpressionUUID->"9b2c9f94-f587-f947-a8c6-e568cc665794"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495722, 12137, 181, 5, 26, "Input",ExpressionUUID->"fcb96232-efe5-6c4a-80fc-3e0409b7c756"], +Cell[495906, 12144, 191, 3, 19, "Output",ExpressionUUID->"1bd38184-a671-cd41-b983-b7a5a9f8f990"] +}, Open ]], +Cell[CellGroupData[{ +Cell[496134, 12152, 6055, 185, 295, "Input",ExpressionUUID->"826a4822-fe82-2545-859e-1dcc0d2c7665"], +Cell[502192, 12339, 195, 3, 19, "Output",ExpressionUUID->"1f8aefaf-3326-154e-a061-c4fcffd2daea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[502424, 12347, 368, 9, 25, "Input",ExpressionUUID->"8e8ef1c8-b957-7e47-8bd7-349d078e5615"], +Cell[502795, 12358, 197, 3, 19, "Output",ExpressionUUID->"f6c95ead-736f-7a49-b065-1b1c1490e028"] +}, Open ]], +Cell[CellGroupData[{ +Cell[503029, 12366, 6122, 187, 307, "Input",ExpressionUUID->"ef7ab6c6-a465-144e-9b2e-d87983d89cc3"], +Cell[509154, 12555, 197, 3, 19, "Output",ExpressionUUID->"fa33acac-8288-5b4e-aef5-f81fac85d648"] +}, Open ]], +Cell[CellGroupData[{ +Cell[509388, 12563, 368, 9, 25, "Input",ExpressionUUID->"005cbf5d-7cfe-0a47-85df-3f41c0cd74cc"], +Cell[509759, 12574, 194, 3, 19, "Output",ExpressionUUID->"5d7ce7e0-0e54-b94d-a3e6-8fe727fd1c5e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[509990, 12582, 2663, 88, 99, "Input",ExpressionUUID->"11446a18-6985-d84f-b09e-6be9463bee70"], +Cell[512656, 12672, 194, 3, 19, "Output",ExpressionUUID->"881e4cd2-8102-be46-8734-efc3e5f2c14b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[512887, 12680, 2603, 85, 99, "Input",ExpressionUUID->"cf191722-8995-064e-a60c-6ab12800222b"], +Cell[515493, 12767, 195, 3, 19, "Output",ExpressionUUID->"8f63da8c-9c66-6e49-b6bc-bae0d9e15c2a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[515725, 12775, 3712, 118, 176, "Input",ExpressionUUID->"146e47d3-0f15-fc4b-b22a-e41827d0b353"], +Cell[519440, 12895, 195, 3, 19, "Output",ExpressionUUID->"935a35b3-1ee4-424a-9aba-b27df7f601b9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[519672, 12903, 2075, 59, 137, "Input",ExpressionUUID->"b1b29f9b-c1d5-3048-84ff-9fde8e93d227"], +Cell[521750, 12964, 566, 11, 36, "Message",ExpressionUUID->"c4ab9db2-13ff-214c-be43-640a39ee1e63"], +Cell[522319, 12977, 569, 11, 36, "Message",ExpressionUUID->"88a17936-4fd8-6d45-8260-3bf687a08bcb"], +Cell[522891, 12990, 576, 12, 50, "Message",ExpressionUUID->"7a7a4535-ba08-f745-a49e-9d91d078779c"], +Cell[523470, 13004, 482, 10, 15, "Message",ExpressionUUID->"cdcbf254-25e5-3248-a891-2f9bea2b6677"], +Cell[523955, 13016, 192, 3, 19, "Output",ExpressionUUID->"f628c9d4-e3b2-124e-a3ce-3d840475b41f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[524184, 13024, 2075, 59, 137, "Input",ExpressionUUID->"7833995d-3f7b-3a4e-944a-db222bb16395"], +Cell[526262, 13085, 564, 11, 36, "Message",ExpressionUUID->"54d230f5-97a0-5942-bbcd-4f720508e8b2"], +Cell[526829, 13098, 565, 11, 36, "Message",ExpressionUUID->"7f5cae4f-cb11-a04d-9102-bd7c13ad6c6d"], +Cell[527397, 13111, 574, 12, 50, "Message",ExpressionUUID->"770f3cd8-5951-2e4e-917f-3634cd656cf7"], +Cell[527974, 13125, 480, 10, 15, "Message",ExpressionUUID->"b0f9f71e-d353-a14f-94ae-be066a095c05"], +Cell[528457, 13137, 194, 3, 19, "Output",ExpressionUUID->"0c76efb2-91a0-2e42-aeba-a8b0f4a01014"] +}, Open ]], +Cell[CellGroupData[{ +Cell[528688, 13145, 2051, 55, 78, "Input",ExpressionUUID->"cfa7b206-7d8f-ba43-acf6-c3e910046666"], +Cell[530742, 13202, 20507, 384, 142, "Output",ExpressionUUID->"3d652a04-def7-4949-a71c-66f7b5b60304"] +}, Open ]], +Cell[CellGroupData[{ +Cell[551286, 13591, 2168, 61, 126, "Input",ExpressionUUID->"485e4bed-973b-f94f-bcff-d7674e9a7110"], +Cell[553457, 13654, 520, 11, 36, "Message",ExpressionUUID->"5ec2bb68-906d-e444-bec9-77213b2dd55f"], +Cell[553980, 13667, 522, 11, 36, "Message",ExpressionUUID->"bc2a0670-6330-024c-9230-85b6b8634ff7"], +Cell[554505, 13680, 522, 11, 36, "Message",ExpressionUUID->"8471d881-b34e-a24f-a819-31c375bab925"], +Cell[555030, 13693, 478, 10, 15, "Message",ExpressionUUID->"04f8e177-3585-7943-8c56-e332ff88e270"], +Cell[555511, 13705, 22511, 415, 140, "Output",ExpressionUUID->"993bbc21-181a-0d46-9d90-a02e74ca5ae3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[578059, 14125, 234, 5, 25, "Input",ExpressionUUID->"25060c9f-5d93-6841-93a1-f53bbd9b851a"], +Cell[578296, 14132, 28470, 539, 140, "Output",ExpressionUUID->"1af05e33-4f00-5348-87d0-2df2d51799e9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[606803, 14676, 1616, 48, 63, "Input",ExpressionUUID->"9cb62145-2ada-bc41-956f-2b9918d80413"], +Cell[608422, 14726, 602, 12, 51, "Message",ExpressionUUID->"9b90e153-d14e-5649-bf80-60087054a587"], +Cell[609027, 14740, 605, 12, 51, "Message",ExpressionUUID->"c53c8ca5-f757-d144-977d-6cb961b28d1b"], +Cell[609635, 14754, 612, 12, 51, "Message",ExpressionUUID->"a44aca3f-87af-5846-abc4-3a8d7614c68a"], +Cell[610250, 14768, 480, 10, 15, "Message",ExpressionUUID->"91f77e69-7500-ed40-883c-2bfc08d4d031"], +Cell[610733, 14780, 195, 3, 19, "Output",ExpressionUUID->"cc412f43-07a6-a840-b2f0-6c3eda32bb66"] +}, Open ]], +Cell[CellGroupData[{ +Cell[610965, 14788, 2270, 64, 133, "Input",ExpressionUUID->"3b8ec59c-bf90-a74e-8e19-98c05b1b569e"], +Cell[613238, 14854, 566, 11, 36, "Message",ExpressionUUID->"e42dbb11-9636-1743-aaf1-237dd815f3d0"], +Cell[613807, 14867, 567, 11, 36, "Message",ExpressionUUID->"ac13af8f-0360-c640-b1b9-45d438c2298d"], +Cell[614377, 14880, 576, 12, 50, "Message",ExpressionUUID->"6b33d9da-ea6b-7e4a-9885-792b8887e5fa"], +Cell[614956, 14894, 482, 10, 15, "Message",ExpressionUUID->"1e46f337-66f3-ea47-9c92-4ef9131773f4"], +Cell[615441, 14906, 198, 3, 19, "Output",ExpressionUUID->"25c7027f-043b-4a4b-be19-7d1f07e126c9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[615676, 14914, 2242, 64, 97, "Input",ExpressionUUID->"ca9a5900-6241-e942-8e6f-ccee4f3ad231"], +Cell[617921, 14980, 566, 11, 36, "Message",ExpressionUUID->"722293d6-b351-8c4f-ba1e-76987de44c34"], +Cell[618490, 14993, 567, 11, 36, "Message",ExpressionUUID->"7f944198-0bb5-144c-af36-a72f6138050e"], +Cell[619060, 15006, 576, 12, 50, "Message",ExpressionUUID->"e656adb9-c1dd-674f-b5d5-42663ff25b18"], +Cell[619639, 15020, 482, 10, 15, "Message",ExpressionUUID->"86e905ab-c9ec-2a42-a406-1734714cf827"], +Cell[620124, 15032, 195, 3, 19, "Output",ExpressionUUID->"936ed1af-4179-aa49-83cc-29dad67bab3d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[620356, 15040, 2244, 64, 97, "Input",ExpressionUUID->"4b76f315-df8b-2e44-9766-11e105bf7f03"], +Cell[622603, 15106, 566, 11, 36, "Message",ExpressionUUID->"1aabd088-0bc9-7340-9186-f2e3b9e9527a"], +Cell[623172, 15119, 569, 11, 36, "Message",ExpressionUUID->"edc3159a-2297-ae48-9b80-a58eba82f923"], +Cell[623744, 15132, 576, 12, 50, "Message",ExpressionUUID->"1836d1c4-f249-c748-a369-b112753e002a"], +Cell[624323, 15146, 482, 10, 15, "Message",ExpressionUUID->"fe8f3dc2-d217-1347-9e89-363f1b4dc4e8"], +Cell[624808, 15158, 196, 3, 19, "Output",ExpressionUUID->"a3c9e2f2-a313-214a-be32-c556b147f4d1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[625041, 15166, 236, 6, 28, "Input",ExpressionUUID->"c61261a4-9291-8d4e-84ee-07cf74de18fa"], +Cell[625280, 15174, 199, 3, 19, "Output",ExpressionUUID->"b29f3335-6098-4e49-94f3-8e14183aa60a"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/118-122_l_Pu240_394-395/l_118-122_Pu240_394-395_pr_Qw2.nb b/templates/P240_2-51_YakuninDA/118-122_l_Pu240_394-395/l_118-122_Pu240_394-395_pr_Qw2.nb new file mode 100755 index 0000000..9acf01a --- /dev/null +++ b/templates/P240_2-51_YakuninDA/118-122_l_Pu240_394-395/l_118-122_Pu240_394-395_pr_Qw2.nb @@ -0,0 +1,15832 @@ +(* 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[ 664738, 15824] +NotebookOptionsPosition[ 624173, 15176] +NotebookOutlinePosition[ 624597, 15193] +CellTagsIndexPosition[ 624554, 15190] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "1.487"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.992091380220339*^9, 3.9920914023498554`*^9}, { + 3.992091432390732*^9, 3.9920914336565914`*^9}, {3.992091487909664*^9, + 3.992091509884199*^9}, {3.9920915487606087`*^9, 3.992091575705059*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"e0117d68-9e40-e34d-a9fc-07994345b755"], + +Cell[BoxData["1.487`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.9920912460731335`*^9, {3.9920913913099537`*^9, + 3.9920914454062786`*^9}, {3.992091501746458*^9, 3.992091521168392*^9}, { + 3.992091560465807*^9, 3.9920915871378555`*^9}, 3.9921310176291523`*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"d274b631-1b8a-0e42-9984-0d8ecab4433a"] +}, Open ]], + +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.992090953169281*^9, 3.992090953674198*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"29808aeb-8851-a347-9bf8-040c658c23f3"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.992091246132065*^9, {3.992091391344839*^9, + 3.992091445453377*^9}, {3.9920915017833214`*^9, 3.9920915212033978`*^9}, { + 3.9920915605023823`*^9, 3.9920915871716385`*^9}, 3.992131017689043*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"574844d0-cbef-0e44-8723-e6e539455447"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "118"}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.992090962010214*^9, + 3.9920909641549644`*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"6311e838-0851-074d-aa17-f2b2c57ddc36"], + +Cell[BoxData["118"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9920912461812153`*^9, {3.9920913913677273`*^9, + 3.9920914454793377`*^9}, {3.99209150180954*^9, 3.992091521232403*^9}, { + 3.9920915605245724`*^9, 3.9920915871936207`*^9}, 3.992131017707041*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"82fe0f1f-7cd1-c442-997e-17b65ba9d9e6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"427c3aa1-1a65-4a43-996a-81d995cb25da"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.991707828219631*^9, 3.9917123414174232`*^9, + 3.992091246203041*^9, {3.9920913913887367`*^9, 3.9920914455115204`*^9}, { + 3.992091501832567*^9, 3.992091521255453*^9}, {3.992091560553467*^9, + 3.992091587215521*^9}, 3.9921310177200584`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"0ab6b173-6af8-574a-ac8b-330d984be0d4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"3da0f6c5-ee38-844d-b8cb-577a5960a82b"], + +Cell[BoxData["0.55025`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.9917078282275677`*^9, 3.9917123414253197`*^9, + 3.9920912462096825`*^9, {3.9920913913957386`*^9, 3.9920914455344753`*^9}, { + 3.992091501855606*^9, 3.9920915212775517`*^9}, {3.9920915605785923`*^9, + 3.992091587240816*^9}, 3.992131017735054*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"1a2153a9-4a08-e546-9ab0-ff30f9d9b908"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"ffeef75c-35db-fc4b-af3d-710ad07741ea"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9917078282485256`*^9, 3.9917123414324265`*^9, + 3.9920912462325726`*^9, {3.992091391402746*^9, 3.9920914455405865`*^9}, { + 3.992091501883623*^9, 3.992091521300558*^9}, {3.992091560585478*^9, + 3.992091587269293*^9}, 3.9921310177470436`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"1eff1334-52cf-804c-b712-47ebf6f0da14"] +}, 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->"9c2a7803-27f2-ba45-9352-59c626d17d02"], + +Cell[BoxData["5.6896470325678585`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.9917078282706223`*^9, 3.9917123414384117`*^9, + 3.992091246239073*^9, {3.9920913914237976`*^9, 3.9920914455615807`*^9}, { + 3.992091501905611*^9, 3.9920915213065586`*^9}, {3.992091560607477*^9, + 3.99209158727639*^9}, 3.9921310177627735`*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"8b98148e-8336-2344-b92f-aaba174bb17f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"226e092e-34c5-564e-9c42-b95bedf784fb"], + +Cell[BoxData["5.753223770057068`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.9917078282785244`*^9, 3.991712341447321*^9, + 3.992091246266403*^9, {3.9920913914307785`*^9, 3.9920914455675926`*^9}, { + 3.9920915019126167`*^9, 3.992091521328596*^9}, {3.992091560630516*^9, + 3.9920915872983055`*^9}, 3.9921310177747746`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"873dd9ec-da8d-da41-8470-6c3fb5a7e12d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.912564762497319"}]], "Input", + CellChangeTimes->{3.9917123951294365`*^9, 3.99179305435186*^9, + 3.9920909790636597`*^9}, + CellLabel->"In[9]:=",ExpressionUUID->"94636118-57b6-e04a-9a07-58df6aae4df1"], + +Cell[BoxData["0.912564762497319`"], "Output", + CellChangeTimes->{ + 3.991319649862606*^9, 3.991707828301527*^9, 3.9917123414573193`*^9, + 3.991712407248003*^9, 3.9920912462732334`*^9, {3.992091391454897*^9, + 3.992091445574003*^9}, {3.992091501939644*^9, 3.9920915213345757`*^9}, { + 3.9920915606593704`*^9, 3.9920915873053074`*^9}, 3.992131017784775*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"4146ba5e-0a92-c143-a176-f248b83a7a1e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.619150671620403"}]], "Input", + CellChangeTimes->{3.9917124038115807`*^9, 3.991793052797516*^9, + 3.992090983698309*^9}, + CellLabel->"In[10]:=",ExpressionUUID->"c8ed25b1-3f95-0f4d-b640-faf6adc1d39a"], + +Cell[BoxData["0.619150671620403`"], "Output", + CellChangeTimes->{ + 3.9913196498716316`*^9, 3.991707828308525*^9, 3.99171234146842*^9, + 3.9917124073213234`*^9, 3.9920912462944527`*^9, {3.992091391461418*^9, + 3.992091445598377*^9}, {3.992091501946205*^9, 3.9920915213588047`*^9}, { + 3.9920915606653767`*^9, 3.992091587327593*^9}, 3.992131017796774*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"7b435365-8402-ef46-93ab-afeeaa30c114"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"732dd049-b210-2642-86b1-deb36fa4228a"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.9917078283276424`*^9, 3.991712341478319*^9, + 3.992091246314249*^9, {3.992091391486412*^9, 3.9920914456043663`*^9}, { + 3.9920915019684505`*^9, 3.992091521368332*^9}, {3.9920915606893826`*^9, + 3.9920915873371162`*^9}, 3.992131017808777*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"45fd89cb-1b9a-7e4e-a86c-a1d81d50550d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"9fe19890-5a24-f441-b86e-d2cac514f7cb"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.99170782834754*^9, 3.9917123414863186`*^9, + 3.992091246321356*^9, {3.992091391511833*^9, 3.992091445629402*^9}, { + 3.992091501974474*^9, 3.9920915213903313`*^9}, {3.9920915606973896`*^9, + 3.992091587358549*^9}, 3.992131017819319*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"e3a6dc70-8942-d940-8f0e-f3411dd4697f"] +}, 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->"3f002a02-7f52-1141-9cab-071710d6bf45"], + +Cell[BoxData["2.3367797709113582`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.991707968406042*^9, 3.9920912463416023`*^9, { + 3.992091391536875*^9, 3.9920914456353855`*^9}, {3.992091501999426*^9, + 3.9920915213963375`*^9}, {3.992091560721428*^9, 3.9920915873665257`*^9}, + 3.992131017831217*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"6adeae7f-4c03-124b-afc9-a4d4baab3d99"] +}, 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->"5a21ff13-c03c-6f48-a30a-94072a70921d"], + +Cell[BoxData["1.7566650946816267`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.9917079684291363`*^9, 3.992091246349119*^9, { + 3.9920913915428715`*^9, 3.992091445656397*^9}, {3.9920915020104103`*^9, + 3.9920915214180527`*^9}, {3.9920915607274265`*^9, 3.9920915873885345`*^9}, + 3.9921310178476734`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"f6736004-2b40-6c4e-a480-57f561e30111"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"83cc445b-a673-7547-ae88-91b57f7d9a3c"], + +Cell[BoxData["0.4127308494837588`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.991707968457081*^9, 3.9920912463708134`*^9, { + 3.9920913915624123`*^9, 3.9920914456634007`*^9}, {3.992091502031412*^9, + 3.9920915214423656`*^9}, {3.992091560753374*^9, 3.9920915873955364`*^9}, + 3.992131017860161*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"bd045550-ad31-8b43-bd57-55c71cfac660"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"0cc6f616-8e1f-4a4f-82b0-4623aa5cf650"], + +Cell[BoxData[ + RowBox[{"-", "0.1731065192411402`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.9917079684650364`*^9, 3.992091246395151*^9, { + 3.9920913915704136`*^9, 3.99209144568738*^9}, {3.9920915020386753`*^9, + 3.9920915214493656`*^9}, {3.9920915607803288`*^9, 3.9920915874025383`*^9}, + 3.992131017875269*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"5d7d4b99-b950-8f4e-93bf-99be7a85141d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"16021a7e-51ba-5d4a-8d3f-ab7967748c45"], + +Cell[BoxData[ + RowBox[{"-", "0.4062816230025426`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.9917079684860363`*^9, 3.9920912464020443`*^9, { + 3.992091391594614*^9, 3.9920914456933784`*^9}, {3.9920915020645943`*^9, + 3.9920915214756165`*^9}, {3.9920915607873363`*^9, 3.9920915874245453`*^9}, + 3.9921310178916855`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"86ee0c68-6a12-4d40-b35c-dedaf0bf4b35"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"9c732f81-66b5-8743-bfee-2d6e4277d2ef"], + +Cell[BoxData["0.6303744483208076`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9917079684940376`*^9, 3.992091246410055*^9, { + 3.992091391600609*^9, 3.992091445718569*^9}, {3.9920915020705986`*^9, + 3.992091521497614*^9}, {3.9920915608113365`*^9, 3.992091587431551*^9}, + 3.9921310179133625`*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"10aecef9-2872-aa49-848d-375a52a9dc23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"d66cf3bf-f4db-fb4f-a059-58c5814efd87"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9917079685140343`*^9, 3.992091246419077*^9, { + 3.9920913916226387`*^9, 3.992091445728756*^9}, {3.992091502098713*^9, + 3.9920915215232697`*^9}, {3.9920915608188477`*^9, 3.9920915874605484`*^9}, + 3.9921310179273605`*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"24a309e7-1e93-4544-bc83-fcb05ab60f4c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellChangeTimes->{3.9918430951178913`*^9}, + CellLabel->"In[20]:=",ExpressionUUID->"6f80b4b4-bce7-2f42-a389-034c1579e866"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.991707968535036*^9, 3.992091246425289*^9, { + 3.9920913916286793`*^9, 3.9920914457553444`*^9}, {3.992091502104719*^9, + 3.992091521546232*^9}, {3.992091560843672*^9, 3.9920915874835606`*^9}, + 3.9921310179493656`*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"fe0ae0e0-a8dd-0542-9e6d-cea2ae48eb42"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"c322127b-03f4-7349-9796-8789eb94264f"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.9917079685410557`*^9, 3.9920912464323254`*^9, { + 3.9920913916372147`*^9, 3.992091445775835*^9}, {3.9920915021291866`*^9, + 3.992091521553232*^9}, {3.9920915608516827`*^9, 3.9920915874905663`*^9}, + 3.9921310179658947`*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"afaa50dc-547c-7a42-a00d-d4ea5fea40c1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"89ebc508-e52f-8641-9b92-9f4e76506eee"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.991707968561041*^9, 3.992091246440319*^9, { + 3.9920913916577415`*^9, 3.992091445800337*^9}, {3.9920915021357*^9, + 3.992091521578417*^9}, {3.9920915608854294`*^9, 3.992091587511568*^9}, + 3.9921310179789047`*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"93b3a3a8-5fe5-254d-975f-4d0583454878"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"b64dc87b-3176-904a-aaf1-49f1d268eda5"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.9917079685810375`*^9, 3.9920912464478264`*^9, { + 3.992091391664732*^9, 3.992091445806362*^9}, {3.9920915021607113`*^9, + 3.992091521584406*^9}, {3.9920915609120617`*^9, 3.992091587533596*^9}, + 3.992131017991892*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"846b6dba-13bb-724a-9000-fde72cf68dee"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "46"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.9917930777342243`*^9, + 3.9920909943046665`*^9}, + CellLabel->"In[24]:=",ExpressionUUID->"8936ee3d-230a-e84e-aa7b-f97d9e3a36bb"], + +Cell[BoxData["46"], "Output", + CellChangeTimes->{ + 3.9920912464541206`*^9, {3.9920913916852074`*^9, 3.99209144582835*^9}, { + 3.9920915021677265`*^9, 3.992091521614517*^9}, {3.992091560933424*^9, + 3.9920915875599613`*^9}, 3.9921310180058994`*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"c69d2e4a-f992-9348-8ff9-687539fdf1af"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431115646553`*^9, 3.991843111569187*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"1375461b-ee34-014c-b8e4-4fc77a1db3c3"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, { + 3.991644237125025*^9, 3.991644237304865*^9}, 3.9920910015266705`*^9}, + CellLabel->"In[26]:=",ExpressionUUID->"f9d7bd79-6af4-8849-aebc-8323d4692b4c"], + +Cell[BoxData["48"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.991707968608036*^9, 3.992091246462631*^9, { + 3.992091391693775*^9, 3.992091445837349*^9}, {3.9920915021987267`*^9, + 3.992091521643547*^9}, {3.9920915609663124`*^9, 3.992091587583498*^9}, + 3.99213101802293*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"83c9e376-7e1d-ed47-b797-cf3fc06d72f0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"f9535550-7c0f-e34e-9057-9d572ea9cd06"], + +Cell[BoxData["122"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.9917079686284103`*^9, 3.992091246474682*^9, { + 3.992091391720581*^9, 3.9920914458603497`*^9}, {3.99209150222027*^9, + 3.992091521651558*^9}, {3.9920915609955387`*^9, 3.9920915876045036`*^9}, + 3.992131018036932*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"18abbce3-e90a-c849-b7ff-289bce7a9429"] +}, 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->"c98bf9ea-c0e9-ca4f-9e4d-1a0ff5df113c"], + +Cell[BoxData["0.10972214504028896`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9917079686354065`*^9, 3.992091246481163*^9, { + 3.992091391726591*^9, 3.9920914458677864`*^9}, {3.992091502227312*^9, + 3.992091521675709*^9}, {3.992091561028263*^9, 3.9920915876295033`*^9}, + 3.992131018049858*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"e0ec8fa6-49e5-4645-925a-d1fa81e17208"] +}, 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->"580ba41a-f0b9-064b-9c21-a51697d3c7d7"], + +Cell[BoxData[ + RowBox[{"-", "2.564642956376771`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.991707968658518*^9, 3.992091246487665*^9, { + 3.9920913917495956`*^9, 3.992091445888296*^9}, {3.9920915022568245`*^9, + 3.9920915216830196`*^9}, {3.99209156103529*^9, 3.99209158763678*^9}, + 3.992131018064081*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"b7dd646a-cf9b-4e4d-9ece-eb5ab824b667"] +}, 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.991972093618887*^9, 3.9919720982596817`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"2d007e5b-77f4-ca48-922e-e3be22dbdab2"], + +Cell[BoxData["17.899365062297456`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.991707968678421*^9, 3.9920912464957485`*^9, { + 3.992091391759611*^9, 3.9920914459163265`*^9}, {3.9920915022773495`*^9, + 3.992091521707552*^9}, {3.9920915610422688`*^9, 3.9920915876663055`*^9}, + 3.99213101809186*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"a92b6b26-e4ae-6b48-845d-79df8fa42c07"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"aa623963-2fea-cd45-b784-95f26e13f474"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.9917079686854057`*^9, 3.9920912465018635`*^9, { + 3.9920913917806015`*^9, 3.992091445936638*^9}, {3.992091502299345*^9, + 3.9920915217152386`*^9}, {3.9920915610632706`*^9, 3.9920915876903477`*^9}, + 3.992131018131302*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"a4671a62-4111-e547-b626-41d41f5995ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.196"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.991793106556059*^9, 3.9920910273198013`*^9}, + CellLabel->"In[32]:=",ExpressionUUID->"e551e827-1a9b-b847-b282-7f6400377d43"], + +Cell[BoxData["1.196`"], "Output", + CellChangeTimes->{ + 3.9920912465078697`*^9, {3.9920913917876263`*^9, 3.9920914459436436`*^9}, { + 3.9920915023063526`*^9, 3.992091521742319*^9}, {3.9920915610702686`*^9, + 3.9920915876973457`*^9}, 3.9921310181758194`*^9}, + CellLabel->"Out[32]=",ExpressionUUID->"9ce41e3c-521f-8041-8d17-669669588794"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431193859673`*^9, 3.9918431193894367`*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"23eb44be-fbd5-5b44-8714-8b4f14596664"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.867"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917169698218613`*^9, 3.991717907758713*^9, + 3.991793107839529*^9, 3.992091031242695*^9}, + CellLabel->"In[34]:=",ExpressionUUID->"b0a66a92-4b12-8f4b-a54a-a1016b9d7a8f"], + +Cell[BoxData["0.867`"], "Output", + CellChangeTimes->{ + 3.9920912465181103`*^9, {3.9920913918106594`*^9, 3.992091445969261*^9}, { + 3.9920915023426647`*^9, 3.9920915217668476`*^9}, {3.9920915610932617`*^9, + 3.9920915877213497`*^9}, 3.99213101819882*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"4ca69dca-f0a8-7c46-ae14-d1937c7c0e62"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843120757866*^9, 3.9918431207603054`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"e6e59c51-bc91-464a-a55a-64587a4c1adb"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv1", "=", "2.100"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.991717916696951*^9, + 3.991793108990593*^9, 3.992091034612562*^9}, + CellLabel->"In[36]:=",ExpressionUUID->"b5eb6081-5af2-f94c-b7a6-34f3a99f9bc2"], + +Cell[BoxData["2.1`"], "Output", + CellChangeTimes->{ + 3.992091246526657*^9, {3.992091391835745*^9, 3.9920914459788876`*^9}, { + 3.992091502366289*^9, 3.992091521799389*^9}, {3.9920915611022453`*^9, + 3.9920915877303467`*^9}, 3.99213101821982*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"2616cc6f-caf9-1c48-9ca7-a46ed0959e63"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431220200443`*^9, 3.9918431220220585`*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"5bafd915-b02f-2544-bae1-3cd536bd1ace"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn1", "=", "1.164"}], "\n"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.991716995355715*^9, + 3.9917931103354855`*^9, 3.992091037709795*^9}, + CellLabel->"In[38]:=",ExpressionUUID->"79e5a3a7-7335-c24c-ae93-ed1526660137"], + +Cell[BoxData["1.164`"], "Output", + CellChangeTimes->{ + 3.9920912465361576`*^9, {3.9920913918577538`*^9, 3.9920914460063896`*^9}, { + 3.9920915023973026`*^9, 3.9920915218073883`*^9}, {3.992091561133566*^9, + 3.9920915877534084`*^9}, 3.992131018245825*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"17bf5740-5801-8742-9840-9bd58cea7562"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431237966404`*^9, 3.9918431238010616`*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"10e08523-5177-d645-9e84-6766c6e1bc05"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.092"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991717006317978*^9, 3.9917931115739956`*^9, 3.992091043143379*^9}, + CellLabel->"In[40]:=",ExpressionUUID->"2dd91b71-0406-fa48-abaf-9d9a2dc23319"], + +Cell[BoxData["1.092`"], "Output", + CellChangeTimes->{ + 3.992091246544861*^9, {3.992091391881483*^9, 3.992091446029396*^9}, { + 3.9920915024203033`*^9, 3.992091521830391*^9}, {3.9920915611575603`*^9, + 3.9920915877614*^9}, 3.9921310182733364`*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"324ab035-7075-f34e-a7c5-81a982c3909d"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431249171696`*^9, 3.991843124921198*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"f957de73-6148-0b4a-a349-4d8d6acd36ad"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.745"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917170151233826`*^9, 3.9917931128910503`*^9, 3.9920910468211155`*^9}, + CellLabel->"In[42]:=",ExpressionUUID->"73f29256-5310-ac46-b25d-2b64726c18ad"], + +Cell[BoxData["0.745`"], "Output", + CellChangeTimes->{ + 3.99209124655336*^9, {3.9920913919080105`*^9, 3.9920914460524216`*^9}, { + 3.9920915024468384`*^9, 3.992091521861906*^9}, {3.992091561166565*^9, + 3.9920915877864456`*^9}, 3.992131018303335*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"d3ab94f2-c7ea-fd47-99b0-2f62efc59a3a"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843126102844*^9, 3.991843126104536*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"c75e7d9f-a3ec-fa42-8de0-6e5e8151ec91"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv2", "=", "1.690"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, { + 3.9917170243815575`*^9, 3.991717046491377*^9}, 3.991793114539028*^9, + 3.9920910516142616`*^9}, + CellLabel->"In[44]:=",ExpressionUUID->"14f953d6-75f6-9d4e-89a9-0be460595173"], + +Cell[BoxData["1.69`"], "Output", + CellChangeTimes->{ + 3.992091246563381*^9, {3.9920913919170284`*^9, 3.992091446078829*^9}, { + 3.992091502472595*^9, 3.992091521870432*^9}, {3.992091561191597*^9, + 3.992091587811405*^9}, 3.9921310183303356`*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"622d4dd3-d04f-d745-ba84-c64b0f17cf8d"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431274420605`*^9, 3.9918431274461517`*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"4293a1fa-8364-9f46-8e69-a8f69ac3cefb"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn2", "=", "0.942"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.991793116134735*^9, 3.9920910554773026`*^9}, + CellLabel->"In[46]:=",ExpressionUUID->"c61b8b42-cbcb-5441-af70-d697fef542fe"], + +Cell[BoxData["0.942`"], "Output", + CellChangeTimes->{ + 3.99209124657098*^9, {3.9920913919423637`*^9, 3.992091446105234*^9}, { + 3.9920915024975986`*^9, 3.992091521894394*^9}, {3.992091561218664*^9, + 3.992091587820408*^9}, 3.9921310183575974`*^9}, + CellLabel->"Out[46]=",ExpressionUUID->"dbd7d5c2-705c-a644-816b-d5191a7769f1"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843129570627*^9, 3.991843129574024*^9}}, + CellLabel->"In[47]:=",ExpressionUUID->"eed9d147-d6ac-c447-b4b6-a63375b43c31"], + +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[48]:=",ExpressionUUID->"c26fcdb3-7392-3646-ae1f-1d768e5d5f23"], + +Cell[BoxData["1.3673914803678473`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.991707979950527*^9, 3.992091246629711*^9, { + 3.9920913919803658`*^9, 3.9920914461628*^9}, {3.992091502550644*^9, + 3.992091521950554*^9}, {3.992091561270252*^9, 3.9920915878786583`*^9}, + 3.992131018550949*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"1fcb7ac0-af25-bf4c-b3fb-1616b547cda6"] +}, 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[49]:=",ExpressionUUID->"90e8eef3-0b11-5d4a-a363-29bd77df0a07"], + +Cell[BoxData["5.915425097815979`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9917079908393784`*^9, 3.9920912466771107`*^9, { + 3.992091392014946*^9, 3.9920914461978245`*^9}, {3.9920915025839367`*^9, + 3.9920915219846897`*^9}, {3.992091561308256*^9, 3.992091587913206*^9}, + 3.9921310188580856`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"2a7e2125-c540-154a-8338-dbf7f2a55012"] +}, 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[50]:=",ExpressionUUID->"f2451927-7961-0043-b0f6-4d9540a813e0"], + +Cell[BoxData[ + RowBox[{"-", "65.3826470755978`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.991707995240637*^9, 3.9920912467196655`*^9, { + 3.9920913920504456`*^9, 3.9920914462375107`*^9}, {3.9920915026205044`*^9, + 3.9920915220203133`*^9}, {3.992091561346586*^9, 3.992091587949417*^9}, + 3.992131019060892*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"4738c638-4ac9-5b4c-b58f-6b887adc1485"] +}, 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[51]:=",ExpressionUUID->"492915e9-41d9-d443-bf5f-bd43dad0a71a"], + +Cell[BoxData[ + RowBox[{"-", "125.53393710893079`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.991707999380541*^9, 3.992091246775194*^9, { + 3.9920913920914593`*^9, 3.992091446285513*^9}, {3.9920915026595116`*^9, + 3.9920915220597553`*^9}, {3.9920915613875847`*^9, 3.9920915879934235`*^9}, + 3.992131019279009*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"46b06e5b-f4cb-c84d-8ca4-47b842eb2c70"] +}, 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[52]:=",ExpressionUUID->"6621268c-9e6d-0e40-a862-2deddd80e74d"], + +Cell[BoxData[ + RowBox[{"-", "181.77206655859075`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.991708001954468*^9, 3.9920912468259945`*^9, { + 3.9920913921325283`*^9, 3.99209144632465*^9}, {3.9920915027005463`*^9, + 3.99209152210231*^9}, {3.9920915614267483`*^9, 3.992091588035942*^9}, + 3.992131019478092*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"3f5983fa-0366-5342-b1ac-97b684977545"] +}, 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[53]:=",ExpressionUUID->"df288669-eeea-9e49-b711-617c8c72de4b"], + +Cell[BoxData[ + RowBox[{"-", "695.190548511538`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.9917080040838356`*^9, 3.9920912468861237`*^9, { + 3.9920913921795197`*^9, 3.992091446372057*^9}, {3.9920915027450676`*^9, + 3.992091522149296*^9}, {3.992091561473261*^9, 3.99209158808547*^9}, + 3.992131019681471*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"f782331e-b660-c046-ac5b-7c89fdf08c42"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"f09193df-a839-7d4f-95d6-ff56210c24d6"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.991708067458639*^9, 3.9920912469088554`*^9, { + 3.9920913921995106`*^9, 3.992091446393757*^9}, {3.9920915027683907`*^9, + 3.992091522174301*^9}, {3.992091561495289*^9, 3.9920915881082993`*^9}, + 3.99213101976618*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"0bb23435-57c2-6144-ac1e-822d2395292b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"a8343b67-33ad-524f-b606-f13f53b6dddd"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.9917080674805565`*^9, 3.9920912469163704`*^9, { + 3.992091392229389*^9, 3.992091446400278*^9}, {3.992091502799368*^9, + 3.9920915221803036`*^9}, {3.992091561520315*^9, 3.992091588115286*^9}, + 3.992131019783081*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"b1263686-d411-8047-857e-63c049c0f272"] +}, 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[56]:=",ExpressionUUID->"5781e2c4-dae7-2c40-b79d-dab45c41cbd4"], + +Cell[BoxData["361.2471433722319`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9917080675026455`*^9, 3.992091246940546*^9, { + 3.9920913922633686`*^9, 3.992091446426317*^9}, {3.9920915028063927`*^9, + 3.9920915222063217`*^9}, {3.9920915615442753`*^9, 3.9920915881375065`*^9}, + 3.9921310198017273`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"17707c8b-def1-3645-8cbe-91a08a134f66"] +}, 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[57]:=",ExpressionUUID->"ef26351d-442e-b544-9b0d-d44136a16149"], + +Cell[BoxData[ + RowBox[{"-", "349.7981011803344`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.991708067510544*^9, 3.992091246946535*^9, { + 3.992091392294138*^9, 3.9920914464543114`*^9}, {3.9920915028279285`*^9, + 3.99209152222933*^9}, {3.9920915615682793`*^9, 3.992091588163168*^9}, + 3.992131019830553*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"f00d89f3-11e6-864c-bb93-366ad5177828"] +}, 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[58]:=",ExpressionUUID->"2ae59e15-7ddf-414b-a23c-28e83768b182"], + +Cell[BoxData["454.36412518953205`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9917080675337753`*^9, 3.992091246972496*^9, { + 3.9920913923294888`*^9, 3.9920914464768276`*^9}, {3.9920915028354263`*^9, + 3.9920915222513294`*^9}, {3.992091561598337*^9, 3.9920915881942825`*^9}, + 3.9921310198489857`*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"6db203bc-c37a-d44b-8e27-a016448077cc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"26965624-51dd-ff47-a8bc-2045f1817f0b"], + +Cell[BoxData["0.4127308494837588`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.991708067540825*^9, 3.992091246979046*^9, { + 3.9920913923595943`*^9, 3.9920914465043583`*^9}, {3.992091502857462*^9, + 3.9920915222583466`*^9}, {3.992091561628416*^9, 3.992091588216179*^9}, + 3.9921310198702526`*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"98206d26-9e74-1c4a-9419-9d2e5eb2d7ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"00d798cd-4375-8446-b183-f47a75b4115f"], + +Cell[BoxData[ + RowBox[{"-", "0.1731065192411402`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.991708067561775*^9, 3.9920912470023327`*^9, { + 3.992091392382597*^9, 3.992091446511343*^9}, {3.992091502867462*^9, + 3.9920915222823963`*^9}, {3.992091561635437*^9, 3.9920915882387123`*^9}, + 3.99213101988986*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"7342f707-caba-4241-9bda-3be85b21a4c2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"49440c58-2411-a147-97d7-f3e8c88a2e51"], + +Cell[BoxData[ + RowBox[{"-", "0.4062816230025426`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.9917080675837746`*^9, 3.9920912470088387`*^9, { + 3.992091392404505*^9, 3.9920914465343437`*^9}, {3.992091502893507*^9, + 3.992091522288412*^9}, {3.9920915616594143`*^9, 3.9920915882452965`*^9}, + 3.992131019910448*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"1e459a32-cbc7-8a45-9cfd-2a563da34701"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"31583b70-8040-f144-9126-0c4d458431d4"], + +Cell[BoxData["0.6303744483208076`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.9917080675917854`*^9, 3.992091247032854*^9, { + 3.9920913924115047`*^9, 3.9920914465403423`*^9}, {3.992091502900509*^9, + 3.9920915223143997`*^9}, {3.9920915616654167`*^9, 3.9920915882721863`*^9}, + 3.9921310199287224`*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"1afb2787-61bd-3d40-b5b6-94bd1740aa8b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"db78480c-ab52-9748-8eb5-e0e0fd01563e"], + +Cell[BoxData["2.3367797709113582`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.991708067612774*^9, 3.992091247040392*^9, { + 3.9920913924180164`*^9, 3.992091446562351*^9}, {3.99209150292482*^9, + 3.992091522321432*^9}, {3.992091561687416*^9, 3.9920915882941914`*^9}, + 3.9921310199476357`*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"50e75c69-8724-7943-a727-a1892b0bd66a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"27645eba-bc2f-344f-b605-8cf9c667264e"], + +Cell[BoxData["1.7566650946816267`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.991708067619776*^9, 3.992091247064493*^9, { + 3.992091392438549*^9, 3.9920914465698586`*^9}, {3.992091502931345*^9, + 3.9920915223446445`*^9}, {3.9920915616934185`*^9, 3.99209158830122*^9}, + 3.9921310199650974`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"c79203ac-4f81-8c41-bbcc-6aa1c23d7fef"] +}, 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[65]:=",ExpressionUUID->"18dc34eb-429f-b244-ad57-28d77b39d7f5"], + +Cell[BoxData[ + RowBox[{"-", "30.830767993153184`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.991708067640772*^9, 3.992091247071554*^9, { + 3.99209139244553*^9, 3.99209144659474*^9}, {3.992091502953377*^9, + 3.992091522351671*^9}, {3.9920915617147236`*^9, 3.9920915883242016`*^9}, + 3.9921310199881973`*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"8ff22844-ddd6-fb4a-ab8e-00466f84677b"] +}, 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[66]:=",ExpressionUUID->"2cd3ee86-df2d-ea48-a238-479eaa0abbaf"], + +Cell[BoxData[ + RowBox[{"-", "18.659127233530825`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.991708067662775*^9, 3.9920912471162415`*^9, { + 3.9920913924683304`*^9, 3.9920914466022835`*^9}, {3.9920915029593945`*^9, + 3.99209152238122*^9}, {3.992091561736267*^9, 3.9920915883505287`*^9}, + 3.9921310200269585`*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"18a5baa6-2b05-b84c-b24a-566ba5e52cbe"] +}, 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[67]:=",ExpressionUUID->"31bb3d73-654c-a14d-bf45-0941a52725d6"], + +Cell[BoxData["330.4163753790787`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.991708067669775*^9, 3.9920912472323074`*^9, { + 3.9920913924753494`*^9, 3.9920914466254234`*^9}, {3.992091502983383*^9, + 3.992091522409233*^9}, {3.992091561743267*^9, 3.9920915883765354`*^9}, + 3.992131020049122*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"948cfca2-ccc4-4b49-9ca1-8f8e1fc899dc"] +}, 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[68]:=",ExpressionUUID->"3afdf9cc-497d-4144-9649-7b4c5c0fd899"], + +Cell[BoxData[ + RowBox[{"-", "349.7981011803344`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.991708067690773*^9, 3.992091247257927*^9, { + 3.9920913925043335`*^9, 3.992091446632412*^9}, {3.9920915029893856`*^9, + 3.992091522416319*^9}, {3.9920915617668056`*^9, 3.992091588383543*^9}, + 3.992131020073889*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"bfd0f391-de68-304f-8320-cd06552a5759"] +}, 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[69]:=",ExpressionUUID->"c2e519c7-e252-1849-b4e0-d9cd50dfee65"], + +Cell[BoxData["435.7049979560012`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.991708067697775*^9, 3.992091247289015*^9, { + 3.9920913925103607`*^9, 3.992091446661234*^9}, {3.9920915030163956`*^9, + 3.9920915224431896`*^9}, {3.992091561773327*^9, 3.9920915884085503`*^9}, + 3.992131020094763*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"6039c451-5a8c-0546-84e5-5d4999b0750b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"569426dc-12c9-ac4c-83da-58d71518b340"], + +Cell[BoxData["87.42511720990086`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.9917080677197742`*^9, 3.992091247312895*^9, { + 3.9920913925353565`*^9, 3.9920914466682186`*^9}, {3.9920915030234013`*^9, + 3.992091522463722*^9}, {3.992091561798332*^9, 3.992091588416548*^9}, + 3.9921310201148663`*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"756ad839-6790-2b44-927f-3ec587052156"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"38b230ab-f9f6-ab40-9f0b-2b64e4b258cd"], + +Cell[BoxData["1623.0724592455672`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.991708067726776*^9, 3.992091247321451*^9, { + 3.992091392542387*^9, 3.992091446690258*^9}, {3.992091503048933*^9, + 3.99209152248625*^9}, {3.992091561805361*^9, 3.9920915884453773`*^9}, + 3.9921310201432495`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"96937ca7-6cd0-8d43-ba51-c2044e71d435"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.432722960630574"}]], "Input", + CellChangeTimes->{3.9918469322950954`*^9, 3.992091958554556*^9}, + CellLabel->"In[72]:=",ExpressionUUID->"7c3e9316-835f-9e4b-9a49-3b4d17d5ac6f"], + +Cell[BoxData["0.432722960630574`"], "Output", + CellChangeTimes->{3.9921310201627655`*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"68dacc0b-7c59-4d4f-8feb-62d62de81217"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991846933466057*^9, 3.991846933469059*^9}}, + CellLabel->"In[73]:=",ExpressionUUID->"583d3f2a-de58-8142-9cfe-a0e52258d17f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.31463698253977"}]], "Input", + CellChangeTimes->{3.9918469351421127`*^9, 3.9920919630005417`*^9}, + CellLabel->"In[74]:=",ExpressionUUID->"20139eb5-401a-4b4a-9fa1-5ac66a5ce03b"], + +Cell[BoxData["0.31463698253977`"], "Output", + CellChangeTimes->{3.992131020186842*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"a5015101-183e-5549-a817-1789d2260648"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918469363719063`*^9, 3.991846936376911*^9}}, + CellLabel->"In[75]:=",ExpressionUUID->"8f81c5bb-6006-6b49-93bb-3460180e6492"], + +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[76]:=",ExpressionUUID->"d0f946fc-504f-c546-bd13-fc6956e18c7f"], + +Cell[BoxData["1.722331582108792`*^-53"], "Output", + CellChangeTimes->{3.9913437871842365`*^9, 3.992131020225868*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"657db435-6c34-8b41-95f8-084177bab525"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + 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"]}]], "*", "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, {3.991558360387518*^9, 3.991558363336605*^9}}, + CellLabel->"In[77]:=",ExpressionUUID->"c6441294-7eb2-2949-9da6-67254244512f"], + +Cell[BoxData["1.636808034786002`*^-54"], "Output", + CellChangeTimes->{3.9913437872132397`*^9, 3.9921310202454357`*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"5570389d-2bb6-434d-aac3-1fe619400419"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + 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"]}]], "*", + 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}, + 3.991558357640812*^9}, + CellLabel->"In[78]:=",ExpressionUUID->"0e9cd1c8-cad4-dc4a-89c9-68faf6ac59e1"], + +Cell[BoxData["1.0861905135009178`*^-54"], "Output", + CellChangeTimes->{3.9913437872412376`*^9, 3.992131020274029*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"6987e925-f643-044d-b9d3-9fe9bfbdd313"] +}, 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[79]:=",ExpressionUUID->"9284744b-e118-014c-8926-3a51fd91c939"], + +Cell[BoxData["14.828168767133674`"], "Output", + CellChangeTimes->{3.9913437872672386`*^9, 3.992131020302023*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"86c7a4aa-7d1c-ef43-b923-2e3bd937a004"] +}, 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[80]:=",ExpressionUUID->"1aab4741-497a-9845-8d77-820f63cb5555"], + +Cell[BoxData["45.7651287668089`"], "Output", + CellChangeTimes->{3.991343787279253*^9, 3.992131020321993*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"a3e29e0e-1274-a542-9554-ee23029d5a8e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[81]:=",ExpressionUUID->"03d57d66-9155-cf4b-b103-8d5f98199ed8"], + +Cell[BoxData["2.4281435116294983`"], "Output", + CellChangeTimes->{3.9913437873062572`*^9, 3.992131020340353*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"30c0c54c-539e-7c41-ba48-043ea18c25a1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"dd583ad4-ba05-e74f-9c30-907aa111db1e"], + +Cell[BoxData["5.955272107052412`"], "Output", + CellChangeTimes->{3.9913437873353844`*^9, 3.992131020359585*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"7c0b02f1-8fee-3a4b-a8d4-4f38542a16ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[83]:=",ExpressionUUID->"a1b92a44-c90e-d942-9f90-47bfabccaf08"], + +Cell[BoxData["272.543794820639`"], "Output", + CellChangeTimes->{3.991343787361582*^9, 3.992131020379595*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"f93714d9-33e5-964d-a406-a666c3f75f60"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[84]:=",ExpressionUUID->"51b3d1b0-fc32-2443-90dc-d335ab6c08c0"], + +Cell[BoxData["36.00492178126281`"], "Output", + CellChangeTimes->{3.9913437873734856`*^9, 3.9921310203994217`*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"56c1f2ea-d99b-5b46-8d19-936cd6aea3b1"] +}, 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[85]:=",ExpressionUUID->"bb0f3cd0-3c69-9040-aa0d-76f7af168d91"], + +Cell[BoxData["0.007435916553994882`"], "Output", + CellChangeTimes->{3.9913437874002857`*^9, 3.9921310204365215`*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"9c2f5f64-e805-a34f-879b-2888bb3df9d7"] +}, 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[86]:=",ExpressionUUID->"c7e96eeb-d934-e843-a9c0-226435d03e38"], + +Cell[BoxData["10.277268122841688`"], "Output", + CellChangeTimes->{3.9913437875033875`*^9, 3.9921310206209545`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"8a543b07-da81-6349-875e-711770f9e325"] +}, 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[87]:=",ExpressionUUID->"c90e2c4d-483b-8948-ad73-554cb9bb1353"], + +Cell[BoxData["0.012599007151751345`"], "Output", + CellChangeTimes->{3.9913437875342865`*^9, 3.9921310206494923`*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"f85cc613-4ec3-ce44-ab05-2e8e8c86fdd5"] +}, 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[88]:=",ExpressionUUID->"344c5706-3a8a-754a-b4da-5866eb210a38"], + +Cell[BoxData["7.895448033923736`"], "Output", + CellChangeTimes->{3.9913437876352882`*^9, 3.992131020806013*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"5a34fbc1-d73f-d845-86cd-af99609e2886"] +}, 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[89]:=",ExpressionUUID->"39da6bde-a34a-f944-af17-b87c664ce50c"], + +Cell[BoxData["0.39889500278443296`"], "Output", + CellChangeTimes->{3.991343787650694*^9, 3.992131020878996*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"d8863238-f34b-2b45-9471-8368557c42c3"] +}, 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[90]:=",ExpressionUUID->"3c3f03ba-5eee-ac4e-84c3-b29e4adbaa6e"], + +Cell[BoxData["0.6011049972155671`"], "Output", + CellChangeTimes->{3.9913437876776943`*^9, 3.9921310209096375`*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"f94e0c2c-836a-6e43-8dd5-c0e003396380"] +}, 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[91]:=",ExpressionUUID->"ddf61768-a227-c447-bfc3-df30c7b64565"], + +Cell[BoxData["0.2397777795380402`"], "Output", + CellChangeTimes->{3.9913437877049465`*^9, 3.9921310209397564`*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"e0fae3e8-9413-454d-8030-79724e25a12d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[92]:=",ExpressionUUID->"0a12571c-0d3c-324d-9fb1-59d5c707bb07"], + +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.991846957646223*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"61186e9c-fdd7-7943-9937-691e3ab971c8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.159026064218062`*^-213\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 1054, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437877189426`*^9, 3.992131021010483*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"3f5f8c79-661a-3347-941c-973a4d04ea04"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.190716555301694`*^-218\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 1055, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437877189426`*^9, 3.9921310210525513`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"00fcf238-46f5-604e-b79c-d3f8cc8f93e3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.324778553845156`*^-223\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 1056, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437877189426`*^9, 3.992131021071913*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"a638bdd9-8bf8-554f-9044-85643cd5f050"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 93, 1057, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437877189426`*^9, 3.9921310210950775`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"2e8ae8b0-f1e5-cb44-b084-3f0253bb3825"], + +Cell[BoxData["10.277268122841706`"], "Output", + CellChangeTimes->{3.991343791131052*^9, 3.992131028699629*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"ae024ce6-86d8-9941-8af9-890094d230ca"] +}, 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.9918469611416626`*^9}, + CellLabel->"In[94]:=",ExpressionUUID->"9256a2f6-45c2-e140-bcdd-85d8e1970f4a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.159026064218062`*^-213\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 94, 1058, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437911686516`*^9, 3.992131028787155*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"a47f9638-5e14-a54f-aeff-fa140df95b7c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.190716555301694`*^-218\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 94, 1059, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437911686516`*^9, 3.992131028803156*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"1b8c32e8-d318-564b-95d7-71ef876178e5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.324778553845156`*^-223\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 94, 1060, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437911686516`*^9, 3.992131028822153*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"470ac894-e916-9441-bacb-1890f8f48cfe"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 94, 1061, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437911686516`*^9, 3.99213102883617*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"2c069130-e384-754e-b902-b1cebfd761d1"], + +Cell[BoxData["7.895448033923739`"], "Output", + CellChangeTimes->{3.991343794599764*^9, 3.992131036408085*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"dee717c0-5753-354f-bd29-b397f8ac43a1"] +}, 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.991846968477251*^9}, + CellLabel->"In[95]:=",ExpressionUUID->"2543960d-965e-7a4e-aecb-694d21d63061"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk8Fd0fB3CEypblQZHs9RDRtUTK+YZItghZIsu9Qwgh2eKpiFKSVPwe +RaJ0I4o2JE8JoahoEZE7V7rZ17HE7/hjXvN6v+bM53zmvObMaxR9QhwYPFxc +XAP4WD4ffbdl05O2d8ZNuieZAa0UMh4u0PMxK0azNTw6y+7N1c9UMatG7Tcu +tvhj76O/5RfSeY0ENP4+TmA/iEp4xWfWgkqpFpov9tn6tbUJzPdoz/v4JU/s +Z21HbyzQOtDrauNuV2xOZ1NcdNUXdG5BuGU/tgxb2X3atAsRQsPN1thWI3GG +4S096GJ+b5cZds0CRzCK+QMVl/5cNML+dFI69nEwCzV68tFo2MP8ZpxJGht5 +S+6I3ITNfz7UVWemH9mGpzXLYm8Qu954tGoAdTgsbV2DbSs7fXvYdBDVKlvS +Jt5RiMhTktJcNYwyhv5uYWEnqNolBbaMoMFfusc/Yn+Rbt8awRxDaiU/uMqw +6W4Bhy+fH0e+8qk9OdijOVw3HwZPoE8yYa0p2KuUNEXHaFOoNEmI5YGdSX9l +ISo5jXjDm/gtsBXuuCZozUyjEHankRa2gcaZ4SNVFAr5JNC58JZC/vo9LRzT +BXRI3OXneezJqGO8Ahv/IPNnrleDsf+pEtyhtmoReb3pc7bDzgKDe34tS6h3 +4K6QCDa9sNEsjMkNgfqjVv+0UIhZf7n3pCwP9OatSXHDHv3pGXfpPA/U9812 +6GDHqU+VlwWvAIEJxzusZty3VFF5hMYHvPI7FA2wO9sGaxZv8QFKaRgUwFYY +f+ImIskP756ENHU1UahY1zZDc4YfaCWm1Sew657FcAdVrYIrgaaxFW8oNPXq +Y8+AqRCAx72jUw0UErcWEo2tEYI/mSzrCmztdjMQNhSGglvRYmHYAeSjvK1b +RCD9mOABTj2FQnlatHcKicKpc4Mdb19TiK10fyxpWgyCb3ZVeL3C60M0rW7V +EQez+NNaItg89/oV1x4Vh9dPujIrX+K+OvIOzN/i4K3MryCK7Waa/vBdrwSs +12Rvv19LoVbfsHDpZkn4dts5+/FzCn2/k5bqtUoKslK5mx2wB38zb93dLQWC +Zdy/hqopJBDB+mhUKwWBIsc4CthmiY66Xo+kodLTiz+mkkKVBfpTRbnrIPzf +lc+pxxQqYM9Fbo+Qg/UcfUG1UgrtcUr+Hl4iB2U2yiP37uP8Ognzkn45aDzl +2q+JrVugIangugEWJRTWaJXg9fTxLOczlocoiVSbjfcoND7Se3zgtAI8DDL6 +38BtCkkcMasot1GC0x8yvJ9fp1B/gYD/vgAl2JNvOqKE/bSrTXbojBIcZqRl +JudQ6KC1x+mNtUpQpHtuo+2/uN/mSIdsmjLMd9gHtWXh+Tl3RuOlVeDM65Sb +dy9TyNFPUHPvD1WIbK1tK02hEIp0oh34owo2u7MNF5IppJ6Uu42+biNkvl3Z +aIHNdUvHJN5+I8hk2jl3JVGo5Lv7gYf/bYSzzVo750/h/elcfFImfxOc+jDv +KnoC9zOz+cTxUQNLrYyV2aEUklW6mJBKaoCBxXjSFicKVZ+bVJvl0QQ+9Vhq +qyPuP+HaTihqQuof4Sjd/RS6UaeiZuKpCaGe3rn69hRS8qv8QH3WhIK3269q +2eB+xWxVonkLBB+28540o5Cc7AZCwVUbNE1EPZp1KKRRGCE0j2jQ+UVb5oUI +hXzop6c0bWmQ8J/EhxxhvL+UM757HaSBh1JafbQQhVbkl5bVR9FAxWwfsVUA +748bHMeMBzSoPWySco0Pf/+yvK6rKeuAhpF4OlqYQf2p1ltc+HVhQxWZzPVr +Bt0MU9n3qEUPUuWidjvVzqC2SLQtsdAQ6pMUN33wnEGKnh22HkE7wSDt8v86 +JqYRY+nxfbloAD2Le0nOydNI+vfTldI+JsCZL7v7aPU0itDZ0ZWhbgblO0TS +HdOmkM/QQqMEZzdICZ0tHBWdQiUm4StzWy2gWn7t1b1Jk6hgMuC/4kxLyJJZ +fPGeaxJRu9a+rUuwgoja6rkNoROom2vF2A9vG+jc2cCU7RtHwetD0k8q2wGn +o8U613Mc3T/cWHslaR/wCDY8HXk/hmIm1s1sPmwPfcFBLxTtx9DUXnPnhkMO +MN8zrDrTOIoM3S/tYtvvh1zu5hELi1H0Yd31gDodR1Aebi5LKxhBMrdPVxf9 +7QTBQeydhmXD6GmvurWtsDM4DNvd9e0YQhvaR/0ih5yhmHnrMblyCOlcuVR8 +q/cAZAqs+uqoM4iu805syXjlAs2JHsafI3+jx7u0OpOeuULJnMSbQ484KGvb +ObEFphs8S3kcfIiHg1q/FZ7ROe8OdU6ZDrKMX+iRTY5K6D8HoVrTL5H79QAa +O7KfK5juAXGm567oGw6gKXM1/2FTT+CW+KQr+uwnKhr6SoXrH4KbVtcuvdr2 +E7ncLPT1EPKC7TwVZZKN/aj8odWhFcle0FXG63HRpR8Zyn6YPTvrBb6DrEiN +WTZS7vXrfH/YG8Rf2efdu8VGpGCgXQ7LG1i/ltTL7NioLc3W18LJB2ZvnE11 +Xc1GmVG5gsfafMCj+4Rd+WsSVdcszfpa+oKoMc9CQyqJ1hyEZJ1KX1BqmWin +eZBI4a+G1vXVvmBrJR0ZdZBE2i02a/lrfMFAYlNOjTuJHHa43/3yny98PTUQ +ae1Gosz1kc0n3vjCw11LjOADJJLpvrem8YsvvH44ptRsTyIVT+msgzO+sBhX +0/XTnESGXsNFSbp0uK1lcbaYRqLb2aPhtvp0yDGpsZPD/uvjuLG0AR1cG+1S +0raSaHj3THuRER2kDjLtwrRJ/L3h4m4xocN3zjV9tIVEIjNiruL2dFAI0vMa +ViMReUFvde4ROniIBMzdVCSRfcO2dr8QOqD8OUoBu4Zre672UTocKhjxz1Mg +UXa4sd7LCDrke47l5MmTyNbVwpsdSwf/q88db8uR6JmK67PN5+gwp/d5sX4d +idKq4g4/vY3Hxw6t9RAn0RHaNcOoIjrMPJmIGRQjkfXdB6sNmHRIrHC2jMMW +uNZ/90kJ7lOpsPm6KImSwvZxHlfQgYo25yFFSBSnphL46CUdFm6OzyUJkijg +WnPQw+90OC4UMyPDRyJLkf4dYb10mO+92vWEl0R/J3EJ0/rooMk6o+mE3R+m +V/KATQe6W5v4pRUk8rbNHSobpMMSPZsjzEMiF77w4NI5OigFZjbLLrGQRbhM +aLEUA6yVMgxSZlnoZe6ZvRlrGaBB/2S7GXtHy7hKlAwDkg5E4d8ZFtJWbf5q +uoEBdomvkqWx132ONf2mygCT3Pmq+9Ms9Ht7t5SAHnbR5tbJCRa6yJP33G8/ +A6Ydzp3uGWYhAS2hLBsnBtxxdvLIwE50jwrTOcCA5Km5it3YURX7Ni25McCJ +1tBdMsRC3gT3pas+DNin/+evxEEW0mnyob8+yoDCxBdSezgs9PmSqqByOgNu +WHy129LPQveRsP/AJTx/B216ko3zhybrSi4zQLKnbnU1Ns2yLt7gGgP+bUqJ +ssJO4/Idt7nBgLpKm4gQkoXMQ/K+RhUzIKKpsa+5j4Xk5FL0je8zIH/nZfds +7MmmkMsryhjw7u3RXX7Y+RuRTVo57vPWx5EX+093d+2tSgZU8ndeNf3BQhXW +skXvGhlgb+J2/lMPC6XO8fBlNjGgdPFoBxPbp4jj7drCACPh+NQEbFHeSlmy +lQHirYHG6thBVS4XZz8xQOFO4IvE7yykrH41UoXNgODGaA3bbhaa+3zi469+ +Bpie5TVTw25LYmiXDjDAxd+/kRc7/ocux3CQAUJOj6Sfd7FQZ9ZHD7sJBpRX +GLbRsDNWiu2O4SaAm495h/aNharHu90jVhBQJP1SXAz7ZzczLJiPAPYub77R +Tvw+VJjl+azG4/s1T5Zi93tFze8VI8Da8P0HXWxR693iuyUIGL01Hi2NbbRN +XA1JEhA4dqFo7isLpQsXO+usI+AfJY2cl9hGlT0PZBUJWD3Y3eWCTRQWN0oq +E8DcW/gCLY9Pj+5Zo0rABsVvapuw+wkJYV41AkxXXcic+YKvS1j4D2oTECP2 +8+UN7MpFiYR+GgFBdku9Z7HZv3qv9OoS4E6PO3MMe3ttzKt2AwKeN+X52WKT +Qfc3PAcCNBQiT/Fji7jE6j0xIUA9Juvb1GcWMjTdY/3AjIC0dulqNnbaur7o +wj0EWG5Sl2jAfspbmp67l4CJhKqzT7FZI7F3sq0JyMm+nczENqiX7Liwj4BQ ++eR16dg+D/p+JzsQsEM1tuQ09oWcUp5Tjvh55Osbj2P3hVlqR7oQoB3mecUb +W9hTyiLUjYCVN5jmB5bzLFkeAQcJkKJbJdgs3y9/ItXTiwDf8pQzRst9BPbm +u/gQMLVHxUlnOW9K6pkDnYBdl8TvbV7O+8FqtSYI8FHZn6KynNdS1m/uj5/v +JntQbrnfkxN/IIAApdI3X6SX8/P3/mUUREDZ3KKV+HL+BenNesEELBkkmQsv +50eRu7RCCRhSPdi4CluI/sBFLYyAzMTT73mxt9nFhyhHEKAiP+/NvZy/3eqM +XCQBqxpeRi9+YqHzqmuvS0cR0OXYuXYB+7Eou1wshgD7ol1oDvvH/IMmwTgC +XIqoQQpb6Gf8D754vB6mS4rL1v9gRS0lEHDhiNP3Gez/A0ihG/s= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8Fd0fB3CEypblQZHs9RDRtUTK+YZItghZIsu9Qwgh2eKpiFKSVPwe +RaJ0I4o2JE8JoahoEZE7V7rZ17HE7/hjXvN6v+bM53zmvObMaxR9QhwYPFxc +XAP4WD4ffbdl05O2d8ZNuieZAa0UMh4u0PMxK0azNTw6y+7N1c9UMatG7Tcu +tvhj76O/5RfSeY0ENP4+TmA/iEp4xWfWgkqpFpov9tn6tbUJzPdoz/v4JU/s +Z21HbyzQOtDrauNuV2xOZ1NcdNUXdG5BuGU/tgxb2X3atAsRQsPN1thWI3GG +4S096GJ+b5cZds0CRzCK+QMVl/5cNML+dFI69nEwCzV68tFo2MP8ZpxJGht5 +S+6I3ITNfz7UVWemH9mGpzXLYm8Qu954tGoAdTgsbV2DbSs7fXvYdBDVKlvS +Jt5RiMhTktJcNYwyhv5uYWEnqNolBbaMoMFfusc/Yn+Rbt8awRxDaiU/uMqw +6W4Bhy+fH0e+8qk9OdijOVw3HwZPoE8yYa0p2KuUNEXHaFOoNEmI5YGdSX9l +ISo5jXjDm/gtsBXuuCZozUyjEHankRa2gcaZ4SNVFAr5JNC58JZC/vo9LRzT +BXRI3OXneezJqGO8Ahv/IPNnrleDsf+pEtyhtmoReb3pc7bDzgKDe34tS6h3 +4K6QCDa9sNEsjMkNgfqjVv+0UIhZf7n3pCwP9OatSXHDHv3pGXfpPA/U9812 +6GDHqU+VlwWvAIEJxzusZty3VFF5hMYHvPI7FA2wO9sGaxZv8QFKaRgUwFYY +f+ImIskP756ENHU1UahY1zZDc4YfaCWm1Sew657FcAdVrYIrgaaxFW8oNPXq +Y8+AqRCAx72jUw0UErcWEo2tEYI/mSzrCmztdjMQNhSGglvRYmHYAeSjvK1b +RCD9mOABTj2FQnlatHcKicKpc4Mdb19TiK10fyxpWgyCb3ZVeL3C60M0rW7V +EQez+NNaItg89/oV1x4Vh9dPujIrX+K+OvIOzN/i4K3MryCK7Waa/vBdrwSs +12Rvv19LoVbfsHDpZkn4dts5+/FzCn2/k5bqtUoKslK5mx2wB38zb93dLQWC +Zdy/hqopJBDB+mhUKwWBIsc4CthmiY66Xo+kodLTiz+mkkKVBfpTRbnrIPzf +lc+pxxQqYM9Fbo+Qg/UcfUG1UgrtcUr+Hl4iB2U2yiP37uP8Ognzkn45aDzl +2q+JrVugIangugEWJRTWaJXg9fTxLOczlocoiVSbjfcoND7Se3zgtAI8DDL6 +38BtCkkcMasot1GC0x8yvJ9fp1B/gYD/vgAl2JNvOqKE/bSrTXbojBIcZqRl +JudQ6KC1x+mNtUpQpHtuo+2/uN/mSIdsmjLMd9gHtWXh+Tl3RuOlVeDM65Sb +dy9TyNFPUHPvD1WIbK1tK02hEIp0oh34owo2u7MNF5IppJ6Uu42+biNkvl3Z +aIHNdUvHJN5+I8hk2jl3JVGo5Lv7gYf/bYSzzVo750/h/elcfFImfxOc+jDv +KnoC9zOz+cTxUQNLrYyV2aEUklW6mJBKaoCBxXjSFicKVZ+bVJvl0QQ+9Vhq +qyPuP+HaTihqQuof4Sjd/RS6UaeiZuKpCaGe3rn69hRS8qv8QH3WhIK3269q +2eB+xWxVonkLBB+28540o5Cc7AZCwVUbNE1EPZp1KKRRGCE0j2jQ+UVb5oUI +hXzop6c0bWmQ8J/EhxxhvL+UM757HaSBh1JafbQQhVbkl5bVR9FAxWwfsVUA +748bHMeMBzSoPWySco0Pf/+yvK6rKeuAhpF4OlqYQf2p1ltc+HVhQxWZzPVr +Bt0MU9n3qEUPUuWidjvVzqC2SLQtsdAQ6pMUN33wnEGKnh22HkE7wSDt8v86 +JqYRY+nxfbloAD2Le0nOydNI+vfTldI+JsCZL7v7aPU0itDZ0ZWhbgblO0TS +HdOmkM/QQqMEZzdICZ0tHBWdQiUm4StzWy2gWn7t1b1Jk6hgMuC/4kxLyJJZ +fPGeaxJRu9a+rUuwgoja6rkNoROom2vF2A9vG+jc2cCU7RtHwetD0k8q2wGn +o8U613Mc3T/cWHslaR/wCDY8HXk/hmIm1s1sPmwPfcFBLxTtx9DUXnPnhkMO +MN8zrDrTOIoM3S/tYtvvh1zu5hELi1H0Yd31gDodR1Aebi5LKxhBMrdPVxf9 +7QTBQeydhmXD6GmvurWtsDM4DNvd9e0YQhvaR/0ih5yhmHnrMblyCOlcuVR8 +q/cAZAqs+uqoM4iu805syXjlAs2JHsafI3+jx7u0OpOeuULJnMSbQ484KGvb +ObEFphs8S3kcfIiHg1q/FZ7ROe8OdU6ZDrKMX+iRTY5K6D8HoVrTL5H79QAa +O7KfK5juAXGm567oGw6gKXM1/2FTT+CW+KQr+uwnKhr6SoXrH4KbVtcuvdr2 +E7ncLPT1EPKC7TwVZZKN/aj8odWhFcle0FXG63HRpR8Zyn6YPTvrBb6DrEiN +WTZS7vXrfH/YG8Rf2efdu8VGpGCgXQ7LG1i/ltTL7NioLc3W18LJB2ZvnE11 +Xc1GmVG5gsfafMCj+4Rd+WsSVdcszfpa+oKoMc9CQyqJ1hyEZJ1KX1BqmWin +eZBI4a+G1vXVvmBrJR0ZdZBE2i02a/lrfMFAYlNOjTuJHHa43/3yny98PTUQ +ae1Gosz1kc0n3vjCw11LjOADJJLpvrem8YsvvH44ptRsTyIVT+msgzO+sBhX +0/XTnESGXsNFSbp0uK1lcbaYRqLb2aPhtvp0yDGpsZPD/uvjuLG0AR1cG+1S +0raSaHj3THuRER2kDjLtwrRJ/L3h4m4xocN3zjV9tIVEIjNiruL2dFAI0vMa +ViMReUFvde4ROniIBMzdVCSRfcO2dr8QOqD8OUoBu4Zre672UTocKhjxz1Mg +UXa4sd7LCDrke47l5MmTyNbVwpsdSwf/q88db8uR6JmK67PN5+gwp/d5sX4d +idKq4g4/vY3Hxw6t9RAn0RHaNcOoIjrMPJmIGRQjkfXdB6sNmHRIrHC2jMMW +uNZ/90kJ7lOpsPm6KImSwvZxHlfQgYo25yFFSBSnphL46CUdFm6OzyUJkijg +WnPQw+90OC4UMyPDRyJLkf4dYb10mO+92vWEl0R/J3EJ0/rooMk6o+mE3R+m +V/KATQe6W5v4pRUk8rbNHSobpMMSPZsjzEMiF77w4NI5OigFZjbLLrGQRbhM +aLEUA6yVMgxSZlnoZe6ZvRlrGaBB/2S7GXtHy7hKlAwDkg5E4d8ZFtJWbf5q +uoEBdomvkqWx132ONf2mygCT3Pmq+9Ms9Ht7t5SAHnbR5tbJCRa6yJP33G8/ +A6Ydzp3uGWYhAS2hLBsnBtxxdvLIwE50jwrTOcCA5Km5it3YURX7Ni25McCJ +1tBdMsRC3gT3pas+DNin/+evxEEW0mnyob8+yoDCxBdSezgs9PmSqqByOgNu +WHy129LPQveRsP/AJTx/B216ko3zhybrSi4zQLKnbnU1Ns2yLt7gGgP+bUqJ +ssJO4/Idt7nBgLpKm4gQkoXMQ/K+RhUzIKKpsa+5j4Xk5FL0je8zIH/nZfds +7MmmkMsryhjw7u3RXX7Y+RuRTVo57vPWx5EX+093d+2tSgZU8ndeNf3BQhXW +skXvGhlgb+J2/lMPC6XO8fBlNjGgdPFoBxPbp4jj7drCACPh+NQEbFHeSlmy +lQHirYHG6thBVS4XZz8xQOFO4IvE7yykrH41UoXNgODGaA3bbhaa+3zi469+ +Bpie5TVTw25LYmiXDjDAxd+/kRc7/ocux3CQAUJOj6Sfd7FQZ9ZHD7sJBpRX +GLbRsDNWiu2O4SaAm495h/aNharHu90jVhBQJP1SXAz7ZzczLJiPAPYub77R +Tvw+VJjl+azG4/s1T5Zi93tFze8VI8Da8P0HXWxR693iuyUIGL01Hi2NbbRN +XA1JEhA4dqFo7isLpQsXO+usI+AfJY2cl9hGlT0PZBUJWD3Y3eWCTRQWN0oq +E8DcW/gCLY9Pj+5Zo0rABsVvapuw+wkJYV41AkxXXcic+YKvS1j4D2oTECP2 +8+UN7MpFiYR+GgFBdku9Z7HZv3qv9OoS4E6PO3MMe3ttzKt2AwKeN+X52WKT +Qfc3PAcCNBQiT/Fji7jE6j0xIUA9Juvb1GcWMjTdY/3AjIC0dulqNnbaur7o +wj0EWG5Sl2jAfspbmp67l4CJhKqzT7FZI7F3sq0JyMm+nczENqiX7Liwj4BQ ++eR16dg+D/p+JzsQsEM1tuQ09oWcUp5Tjvh55Osbj2P3hVlqR7oQoB3mecUb +W9hTyiLUjYCVN5jmB5bzLFkeAQcJkKJbJdgs3y9/ItXTiwDf8pQzRst9BPbm +u/gQMLVHxUlnOW9K6pkDnYBdl8TvbV7O+8FqtSYI8FHZn6KynNdS1m/uj5/v +JntQbrnfkxN/IIAApdI3X6SX8/P3/mUUREDZ3KKV+HL+BenNesEELBkkmQsv +50eRu7RCCRhSPdi4CluI/sBFLYyAzMTT73mxt9nFhyhHEKAiP+/NvZy/3eqM +XCQBqxpeRi9+YqHzqmuvS0cR0OXYuXYB+7Eou1wshgD7ol1oDvvH/IMmwTgC +XIqoQQpb6Gf8D754vB6mS4rL1v9gRS0lEHDhiNP3Gez/A0ihG/s= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6199912397818693, + 1.5506388340320876`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6199912397818707}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.6199912397818693, + 1.5506388340320876`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6199912397818707}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8Fd0fB3CEypblQZHs9RDRtUTK+YZItghZIsu9Qwgh2eKpiFKSVPwe +RaJ0I4o2JE8JoahoEZE7V7rZ17HE7/hjXvN6v+bM53zmvObMaxR9QhwYPFxc +XAP4WD4ffbdl05O2d8ZNuieZAa0UMh4u0PMxK0azNTw6y+7N1c9UMatG7Tcu +tvhj76O/5RfSeY0ENP4+TmA/iEp4xWfWgkqpFpov9tn6tbUJzPdoz/v4JU/s +Z21HbyzQOtDrauNuV2xOZ1NcdNUXdG5BuGU/tgxb2X3atAsRQsPN1thWI3GG +4S096GJ+b5cZds0CRzCK+QMVl/5cNML+dFI69nEwCzV68tFo2MP8ZpxJGht5 +S+6I3ITNfz7UVWemH9mGpzXLYm8Qu954tGoAdTgsbV2DbSs7fXvYdBDVKlvS +Jt5RiMhTktJcNYwyhv5uYWEnqNolBbaMoMFfusc/Yn+Rbt8awRxDaiU/uMqw +6W4Bhy+fH0e+8qk9OdijOVw3HwZPoE8yYa0p2KuUNEXHaFOoNEmI5YGdSX9l +ISo5jXjDm/gtsBXuuCZozUyjEHankRa2gcaZ4SNVFAr5JNC58JZC/vo9LRzT +BXRI3OXneezJqGO8Ahv/IPNnrleDsf+pEtyhtmoReb3pc7bDzgKDe34tS6h3 +4K6QCDa9sNEsjMkNgfqjVv+0UIhZf7n3pCwP9OatSXHDHv3pGXfpPA/U9812 +6GDHqU+VlwWvAIEJxzusZty3VFF5hMYHvPI7FA2wO9sGaxZv8QFKaRgUwFYY +f+ImIskP756ENHU1UahY1zZDc4YfaCWm1Sew657FcAdVrYIrgaaxFW8oNPXq +Y8+AqRCAx72jUw0UErcWEo2tEYI/mSzrCmztdjMQNhSGglvRYmHYAeSjvK1b +RCD9mOABTj2FQnlatHcKicKpc4Mdb19TiK10fyxpWgyCb3ZVeL3C60M0rW7V +EQez+NNaItg89/oV1x4Vh9dPujIrX+K+OvIOzN/i4K3MryCK7Waa/vBdrwSs +12Rvv19LoVbfsHDpZkn4dts5+/FzCn2/k5bqtUoKslK5mx2wB38zb93dLQWC +Zdy/hqopJBDB+mhUKwWBIsc4CthmiY66Xo+kodLTiz+mkkKVBfpTRbnrIPzf +lc+pxxQqYM9Fbo+Qg/UcfUG1UgrtcUr+Hl4iB2U2yiP37uP8Ognzkn45aDzl +2q+JrVugIangugEWJRTWaJXg9fTxLOczlocoiVSbjfcoND7Se3zgtAI8DDL6 +38BtCkkcMasot1GC0x8yvJ9fp1B/gYD/vgAl2JNvOqKE/bSrTXbojBIcZqRl +JudQ6KC1x+mNtUpQpHtuo+2/uN/mSIdsmjLMd9gHtWXh+Tl3RuOlVeDM65Sb +dy9TyNFPUHPvD1WIbK1tK02hEIp0oh34owo2u7MNF5IppJ6Uu42+biNkvl3Z +aIHNdUvHJN5+I8hk2jl3JVGo5Lv7gYf/bYSzzVo750/h/elcfFImfxOc+jDv +KnoC9zOz+cTxUQNLrYyV2aEUklW6mJBKaoCBxXjSFicKVZ+bVJvl0QQ+9Vhq +qyPuP+HaTihqQuof4Sjd/RS6UaeiZuKpCaGe3rn69hRS8qv8QH3WhIK3269q +2eB+xWxVonkLBB+28540o5Cc7AZCwVUbNE1EPZp1KKRRGCE0j2jQ+UVb5oUI +hXzop6c0bWmQ8J/EhxxhvL+UM757HaSBh1JafbQQhVbkl5bVR9FAxWwfsVUA +748bHMeMBzSoPWySco0Pf/+yvK6rKeuAhpF4OlqYQf2p1ltc+HVhQxWZzPVr +Bt0MU9n3qEUPUuWidjvVzqC2SLQtsdAQ6pMUN33wnEGKnh22HkE7wSDt8v86 +JqYRY+nxfbloAD2Le0nOydNI+vfTldI+JsCZL7v7aPU0itDZ0ZWhbgblO0TS +HdOmkM/QQqMEZzdICZ0tHBWdQiUm4StzWy2gWn7t1b1Jk6hgMuC/4kxLyJJZ +fPGeaxJRu9a+rUuwgoja6rkNoROom2vF2A9vG+jc2cCU7RtHwetD0k8q2wGn +o8U613Mc3T/cWHslaR/wCDY8HXk/hmIm1s1sPmwPfcFBLxTtx9DUXnPnhkMO +MN8zrDrTOIoM3S/tYtvvh1zu5hELi1H0Yd31gDodR1Aebi5LKxhBMrdPVxf9 +7QTBQeydhmXD6GmvurWtsDM4DNvd9e0YQhvaR/0ih5yhmHnrMblyCOlcuVR8 +q/cAZAqs+uqoM4iu805syXjlAs2JHsafI3+jx7u0OpOeuULJnMSbQ484KGvb +ObEFphs8S3kcfIiHg1q/FZ7ROe8OdU6ZDrKMX+iRTY5K6D8HoVrTL5H79QAa +O7KfK5juAXGm567oGw6gKXM1/2FTT+CW+KQr+uwnKhr6SoXrH4KbVtcuvdr2 +E7ncLPT1EPKC7TwVZZKN/aj8odWhFcle0FXG63HRpR8Zyn6YPTvrBb6DrEiN +WTZS7vXrfH/YG8Rf2efdu8VGpGCgXQ7LG1i/ltTL7NioLc3W18LJB2ZvnE11 +Xc1GmVG5gsfafMCj+4Rd+WsSVdcszfpa+oKoMc9CQyqJ1hyEZJ1KX1BqmWin +eZBI4a+G1vXVvmBrJR0ZdZBE2i02a/lrfMFAYlNOjTuJHHa43/3yny98PTUQ +ae1Gosz1kc0n3vjCw11LjOADJJLpvrem8YsvvH44ptRsTyIVT+msgzO+sBhX +0/XTnESGXsNFSbp0uK1lcbaYRqLb2aPhtvp0yDGpsZPD/uvjuLG0AR1cG+1S +0raSaHj3THuRER2kDjLtwrRJ/L3h4m4xocN3zjV9tIVEIjNiruL2dFAI0vMa +ViMReUFvde4ROniIBMzdVCSRfcO2dr8QOqD8OUoBu4Zre672UTocKhjxz1Mg +UXa4sd7LCDrke47l5MmTyNbVwpsdSwf/q88db8uR6JmK67PN5+gwp/d5sX4d +idKq4g4/vY3Hxw6t9RAn0RHaNcOoIjrMPJmIGRQjkfXdB6sNmHRIrHC2jMMW +uNZ/90kJ7lOpsPm6KImSwvZxHlfQgYo25yFFSBSnphL46CUdFm6OzyUJkijg +WnPQw+90OC4UMyPDRyJLkf4dYb10mO+92vWEl0R/J3EJ0/rooMk6o+mE3R+m +V/KATQe6W5v4pRUk8rbNHSobpMMSPZsjzEMiF77w4NI5OigFZjbLLrGQRbhM +aLEUA6yVMgxSZlnoZe6ZvRlrGaBB/2S7GXtHy7hKlAwDkg5E4d8ZFtJWbf5q +uoEBdomvkqWx132ONf2mygCT3Pmq+9Ms9Ht7t5SAHnbR5tbJCRa6yJP33G8/ +A6Ydzp3uGWYhAS2hLBsnBtxxdvLIwE50jwrTOcCA5Km5it3YURX7Ni25McCJ +1tBdMsRC3gT3pas+DNin/+evxEEW0mnyob8+yoDCxBdSezgs9PmSqqByOgNu +WHy129LPQveRsP/AJTx/B216ko3zhybrSi4zQLKnbnU1Ns2yLt7gGgP+bUqJ +ssJO4/Idt7nBgLpKm4gQkoXMQ/K+RhUzIKKpsa+5j4Xk5FL0je8zIH/nZfds +7MmmkMsryhjw7u3RXX7Y+RuRTVo57vPWx5EX+093d+2tSgZU8ndeNf3BQhXW +skXvGhlgb+J2/lMPC6XO8fBlNjGgdPFoBxPbp4jj7drCACPh+NQEbFHeSlmy +lQHirYHG6thBVS4XZz8xQOFO4IvE7yykrH41UoXNgODGaA3bbhaa+3zi469+ +Bpie5TVTw25LYmiXDjDAxd+/kRc7/ocux3CQAUJOj6Sfd7FQZ9ZHD7sJBpRX +GLbRsDNWiu2O4SaAm495h/aNharHu90jVhBQJP1SXAz7ZzczLJiPAPYub77R +Tvw+VJjl+azG4/s1T5Zi93tFze8VI8Da8P0HXWxR693iuyUIGL01Hi2NbbRN +XA1JEhA4dqFo7isLpQsXO+usI+AfJY2cl9hGlT0PZBUJWD3Y3eWCTRQWN0oq +E8DcW/gCLY9Pj+5Zo0rABsVvapuw+wkJYV41AkxXXcic+YKvS1j4D2oTECP2 +8+UN7MpFiYR+GgFBdku9Z7HZv3qv9OoS4E6PO3MMe3ttzKt2AwKeN+X52WKT +Qfc3PAcCNBQiT/Fji7jE6j0xIUA9Juvb1GcWMjTdY/3AjIC0dulqNnbaur7o +wj0EWG5Sl2jAfspbmp67l4CJhKqzT7FZI7F3sq0JyMm+nczENqiX7Liwj4BQ ++eR16dg+D/p+JzsQsEM1tuQ09oWcUp5Tjvh55Osbj2P3hVlqR7oQoB3mecUb +W9hTyiLUjYCVN5jmB5bzLFkeAQcJkKJbJdgs3y9/ItXTiwDf8pQzRst9BPbm +u/gQMLVHxUlnOW9K6pkDnYBdl8TvbV7O+8FqtSYI8FHZn6KynNdS1m/uj5/v +JntQbrnfkxN/IIAApdI3X6SX8/P3/mUUREDZ3KKV+HL+BenNesEELBkkmQsv +50eRu7RCCRhSPdi4CluI/sBFLYyAzMTT73mxt9nFhyhHEKAiP+/NvZy/3eqM +XCQBqxpeRi9+YqHzqmuvS0cR0OXYuXYB+7Eou1wshgD7ol1oDvvH/IMmwTgC +XIqoQQpb6Gf8D754vB6mS4rL1v9gRS0lEHDhiNP3Gez/A0ihG/s= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6199912397818693, 1.5506388340320876`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6199912397818707}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.6199912397818707}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> A\ +bsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 180}, {0.6199912397818693, 1.5506388340320876`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913440619685707`*^9, 3.9921315983235645`*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"9c561584-ac58-774e-a35e-c6e99124fdeb"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991846972527668*^9, 3.9918469897830563`*^9}}, + CellLabel->"In[96]:=",ExpressionUUID->"e19ad739-7d82-2c45-9f2a-a1d24bf6372a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.00507283539869`*^-272\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 96, + 1062, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621885586`*^9, 3.992131598777176*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"638b3757-4e15-3245-b9c9-8cfbd53f1085"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5003967810473765`*^-284\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 96, + 1063, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621885586`*^9, 3.9921315987961693`*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"1e44daac-f5a2-d341-a620-b490484c7226"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.2398282206924143`*^-296\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 96, + 1064, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621885586`*^9, 3.992131598809164*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"cf96ff92-df44-e741-8227-926babe88051"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 96, 1065, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621885586`*^9, 3.992131598823181*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"53045524-f7c9-ec48-a860-eb7d97e4ca3a"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk8VdsXAHBTESoime+5lyJjXC9Dw15JyhhxVXhEphAZQ6g0mOKaQiSZ +h4R7Hl4yhCgRMiTlqn6iomgQieK33x/ncz7fz/6c/dlnr73W2lRn3yOuXBwc +HCv4+e+dE+m8VsMle+/C8JcT6pv09rYPEqZHiVA0cibowqHpLWj1UfMlgohF +FNsjAiLTCiinJYGyhriB1o/I1M1NaSPvPUGnf1LKUL+iaF7/1EE0uOyR9pVS +j2iBJTPBU0cR7+i4wgzlCaLs7lmmfXRHeV25fp8oL1F/rJbNm/GzqLIqdtRb +bRptNFqcqeiOQe6o/8Zn/znUlLc4J384BflMbn9XU/kLOVz8VrVuOQPxUy8r +vNHhgAPlozyMuRyUKNStlHeCG46m+w3Pl+Qh51HrB9xP14Ju8N4w3dOFyK/j +srOvAj/cF0oQGvpTjFhnBK3EjdbDXza7nb/rlaG8c17TO44KQf+ytEVn6B0U +lfvb8sdnYRD31Vq5d/Iu4hh8C41hIiBfWLmXS6wKbQt0C7FW2gx09XM7X9tV +o4n5DBuBJjHgZWQVca1hofx99ICxh2LA3OyVWsrLQo4JvcyqLjFI1DlXbMrP +Qq/k1zyxGhGDo17rdzM3slC/lf+um3NiUByyQFuRYKFmlimhqrQFBN+OPItS +Y6GM05zT5hlb4Go+1VDBhoWMJz0jUvzEYXC0IPBVLgsZRshVGISIw5mDVjKr +eSykv5n9aiFSHDTWHluiFrKQ3gEzHbtr4uAU4mHpXMpCSkXqc3Il4rD7wfuA +nmoWEnD94VHLFgdVDccEs1YWejoRYT1yUAI8gUNv/i0LdYbvvBRnLgFZOkeD +346zULvoF9ZuhgSoznd/eDLBQo0GJzbmOUuA6PldnhkfWaiiUL/rVIQEnLgc +Piv9lYUSXHhhmZSADUqdq/0rLGQ+kaQsKysJems6KyckSfRUeWLIXl4S5m32 +hIZKk8gkQDsyW0kSljMP1AnKkugQ1+tn4tqSIC9kGaNGJZE+oRwsYiEJoR1q +iY4KJPrLvqOFL0oSvh1K3nGWTiLpoV+MuUlJqNC/ejTCmERZUmarGp8lITfD +O/OtCYkkTt4uPfNdEnw2OZrrm5FI7Lvh8syKJHB3d0hwWpBISCjt9sctUpCt +Q9fwZpCI21Tt05iRFLjW8IQsOpJo+qHzhc67UjD2UUJ6OoBElOQRz8QaKQir +nuXaGUQiawdzhnWDFOyu3ChzIZhEzYu6Sm87paBKo+/ThlASpagKD/18h+c/ +EvVTLJJEuzIeKChISsON86nTz6JJdM1Tuu/KVWmYr+1wmblBolbtlHqTBGn4 +E+zPw5FNogUevkLhNGlQW61nC90k0YncuZCcPGnITH6urXqLRFpDXbTaRjwu +EpBjkU+isT2hwRPfpcF7qttCv5xEasLDMvsdZWDGU+z+wD0SvU94H3XdVQbO +r/Rb3aonUQ7/zw8fvGTge7eDm8d9EgnyiJPXQmTgr7jbCz8b8P8vHDccTpaB +hs7mTp4HJCpij/mcapeB/QJsu+ftJLI/PjvY0IW/r9DJjOkgkejwis6GfhnI +5j5sofeIRFF9FO5/xmSgv+6U1o3HeP1tThm/F2Tg4oHSfoMuHL/SyQfM7bIw +LRgQb9VHoiH5BflxdVmw9ffKmsWOz1sbp7VTFmjm2ooxz0i0lKVg/VJfFsrD +xFrr+kk0knDqI81eFoKKM2c4h0iUGjAjVJcoC/mioY4WIyQy/voniO+6LLjx +iwYOYnOd3jBqmy0LLk5P+RkvSXTGTb1otUQWahV8Hli9IpH5cT9do1ZZOMbr +a4LYJOJH807sOVnQqXwk2/eGRCH7FPnqlvB44CBj/1u8n/vtKpmcFIjzy3hW +i912qHVJfyMFBJbcU67/j0RhRxJSy5Qo8MZD9TC8I9FH6xbdSxoUqLb8cacY +2+bo3Bt7HQpkFTWbC0yQSNP+uIqQIQV2mcW492F/ct3aEexEgSQ3xVn99ySy +9TjmZeFBgbmmfZeysTs944WVfCkQfuj+ie/Yhb7f/h4Lp8Bln+X5rA84PqFN +C/szKVBWpJLy4iOJus59vSmTS4GGxAp/2hSJdCLl9v8sokBIz0KOF7bopVhm ++T8UiHSUH17EfnqNoSjch9efEP18ZZpEesyY3unnFJDW+i26+xOJSpMbAtvZ +FOjxr807i305ndp6dpoCLSbahVPY3zOt3S2/UYC1P0+S+Izjnx29XnmRAnRm +yhtrbNlnCypfuAjwdLewqcdmWApx2K8loF2phW8K+9rA9sHOdQS0Vv7h3zKD +4z9kH5ovRMCvT0ocPtgaNsGmG0UJEGc9mEvH9njBpIRvIcDb3FunGXv4ZVsH +Q5YAh/LjdbyzJFpvx85soxLgYbjv63ZsA/a8l/pWAnSCEsONsc/9vRHdVCRA +aOd1u1PY5GvFTetUCOhoLUu4ij3lqD8ZpE5ASRwhko9N/M/u3rgmnm+3+ecG +7MR3iQ6NugTYK9Cyp7E7XEo1tu8h4J/n/n6r2L8nW3nSgYBZm76bm76QiO4+ ++oLLgIDOgAQZeWzPjz/KfQ8SUKjK/YOOnXdqQyTbmADf5quEPvbItIKlkTkB +kZk+BebYQt775OssCQhwE444jn1wxvYnjUGAlMCju87Yt0QvDZ4/RsBiTKqY +J/aPXXeq2HYEyJf7vPfFNj45GK/rSED/gXKZQOzbccvu6c4ErLrdaAzGXmDJ +Gcy5EmBgynx4FtvspQlhcYqAPvc3mv+5kCPwd4U3AZqOY/xB2EsKN0fWnSHA +SmDMxA/b4nB7jVsAAaYhmgte2MXBn5MeBhNgNqnB74r9O0f0NBFGQEy7eow9 +tlXHbqOICAIEGy6cOYJd/tll66sLBJTdDn1oiM0hmsCpfZkA9nnfi7rYNrtq +x1KjCSi9/m+5EnaF81j91zgCLluWIElsrrg16WaJBGgz0oAP+xhL1b88mYDG +wKG7P3A8KkcY5rzXCVCta4p+g72GI1LJJZOALMvi3k5se4Xita3Z+LxVT0RV +/3cezHvHZXIJ4DnTV5iO7ZAjm/2iiAD1wDV0B+yadsOzWmUEpH1cyUXY/J99 +rJIrCFiW5AynYP+r90DA5B98PndGRr3C51NoxDG8uQXbfXlgD7bbavQxqXYC +FFNetm7CbtxWrRXymAAXzyjae5wPp4I4ZjR6CcirzdSLwW7blPd30SgBTbvy +++pxvonrPdHleoPjz5NrE4Xt4/Rts+M4AZYRWkeMsKWq9/WKTxFgvj6tdADn +c6DZ+N5rCwS8bZNgD+B87wrkl5r6RUD5RK8wE5u4qfnzwB8CbqUtNBth90xH +Va1yU+H5mg0X7+N6si1GjggQpsK4VFhlLK43I20unLYqVBhS6Fh9jevX132v +JCPUqbA1TlMkFpu39bDWbU0qGKfyD2tg73yg5/5ehwon/6fmdR7Xw7QGoR7/ +A1RoaWoa5R8n0eGaxsx4ByrI3xKUfPca7w9dk6x0osLTzXGHQrAjyZLufhcq +UH2PKAtiV1SnrGzxokI9g2PjjjG8/3c9XArPUmHPl/NHPUZJ9KhIdEdTEhW0 +Y75oZr8g0Wv5OKO3qVQw8wnulsKeL1h15s6gQtfCIZnsYRLJ509fN8qhwkG/ +zbPXn+N+dqtl+XkZFba4aZqFD5Job4b349k2KtRtFjUSxP2qNqbdgZinAkPu +VNgu3A9LjbvFoxepoLJ2qeoK7pdZggMDM8tUKHzwr1/vQxJdSHpj2MBFA/ET +ntl2bSQyzVxSsxGiQWF8bKoL7rfjJTtW45Vp8MxJPFgD9+sNj2/m/nSigV1u +DO/9OyTijC047uBKg6s8UhnDuN//MC4X6fCgQTFnacu3MhK97P03OsWXBnTR +oHdypThfhwd8VSNo8OWcXuDZQlzP3/PByUwaNB4a3crG9wu3NUFve3tpcOUq +69OtaySSpDx5sdxPAxHNTfl58STq1ZHpU3xOA9V1L1QK4nD8vDuaokZpMMPH +35ofQ6K1g5uzd36kgRP18mzqZXxfuF3HuMUpB+uG41l7w0k0sWux67SWHCxe +vBt2z5NEJ/3P1QpmycFONefgIwZ4Ps3Xtdtz5KDw8MYSkf04ft+hzvC2HASe +MOob3Eeiar+1/14oloNjLa95LRGuH2eS7/0g5aBg6yc5pEeidN+SBna3HDQp +FtlOq5Poifdga8UfOUitr3A4j++f6u7KvaZO8rC9o6f/3mcW6tukIhCkuxWm +tNZY3Q9noYbKqGwV7m0gnB9isILv9+c4lSyejm2DuR6RzOaz1YifHXbIp0YB +lLbFC1S0VKHJYmpabrgiRE4dE6xJq0RpihI89Yzt4FxqtOE3uouSstweOxFK +YDWqydu6cAfZpv3dK/hBCYbD+S5FVpSjRYOiX7nNyvBjfZLZSyhD7yb1Q9qi +VSDkypy9/acSlL9HQ6rHSRVU+EKbC0KL0d0rQcLuqmpwPfpGv4FcEYpmnDTh +nleDl4zpW8dGCtBf7Lyy6B51EHUoy28MyUeZ27Pv9pjsAPakD2Wbbh4635KQ +aVK/A2wnHBXSBnORmRSjqEteA6QX77mvtc1B+3we2wnHakDKzXubzOSyUa60 +s/zTeQ0QNS+wXh7JRPIPS9LN7TSBlT4vrtufjpJU25QGmjXhL9E9M5azacht +jqf/iRIdBE/x9FZzpCJn1ncilkmHYPNG60KLZOQdZfXbOJkOEQshVceNklGQ +Vc0LwVQ6vAhoVRXWT0Yx80GJSel0OLeUmXaVnowqdX8tZ+TQ4ZtmO1+8WDL6 +1bo6XHyHDtMiy4FL7CSUNCCY0P6YDjtiSrL8vZJQVsFpj6tP6PCI8KR7uySh +gsDe/Ye66SDZp/zZ/e8kVCeWtNTdS4fkOvkm18NJiG0r4jH4nA7dTfIvw+hJ +SOGdxP7xd3g+r601mxeZaEdNmGzhJB2Mmd7tptNMpHdl9JfrBzp0+CoJxbCZ +yFQhp3pqmg6uaQPHBFqZyN+LkP32jQ5acsrFBnFMFL774i9yjg6sXZdic8KZ +6Mr68aHAeTq4+AwULfkwUWZVQfziIh0qavhjWq2YKP8Cj/v9JToMJJiaKRsy +0R1LV/3w33SQXq9tfEOHiWpoj2T2rtDBWyQoUkCZiZrntv1aXaXDwofqqYsy +TPR/3fho0w== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VdsXAHBTESoime+5lyJjXC9Dw15JyhhxVXhEphAZQ6g0mOKaQiSZ +h4R7Hl4yhCgRMiTlqn6iomgQieK33x/ncz7fz/6c/dlnr73W2lRn3yOuXBwc +HCv4+e+dE+m8VsMle+/C8JcT6pv09rYPEqZHiVA0cibowqHpLWj1UfMlgohF +FNsjAiLTCiinJYGyhriB1o/I1M1NaSPvPUGnf1LKUL+iaF7/1EE0uOyR9pVS +j2iBJTPBU0cR7+i4wgzlCaLs7lmmfXRHeV25fp8oL1F/rJbNm/GzqLIqdtRb +bRptNFqcqeiOQe6o/8Zn/znUlLc4J384BflMbn9XU/kLOVz8VrVuOQPxUy8r +vNHhgAPlozyMuRyUKNStlHeCG46m+w3Pl+Qh51HrB9xP14Ju8N4w3dOFyK/j +srOvAj/cF0oQGvpTjFhnBK3EjdbDXza7nb/rlaG8c17TO44KQf+ytEVn6B0U +lfvb8sdnYRD31Vq5d/Iu4hh8C41hIiBfWLmXS6wKbQt0C7FW2gx09XM7X9tV +o4n5DBuBJjHgZWQVca1hofx99ICxh2LA3OyVWsrLQo4JvcyqLjFI1DlXbMrP +Qq/k1zyxGhGDo17rdzM3slC/lf+um3NiUByyQFuRYKFmlimhqrQFBN+OPItS +Y6GM05zT5hlb4Go+1VDBhoWMJz0jUvzEYXC0IPBVLgsZRshVGISIw5mDVjKr +eSykv5n9aiFSHDTWHluiFrKQ3gEzHbtr4uAU4mHpXMpCSkXqc3Il4rD7wfuA +nmoWEnD94VHLFgdVDccEs1YWejoRYT1yUAI8gUNv/i0LdYbvvBRnLgFZOkeD +346zULvoF9ZuhgSoznd/eDLBQo0GJzbmOUuA6PldnhkfWaiiUL/rVIQEnLgc +Piv9lYUSXHhhmZSADUqdq/0rLGQ+kaQsKysJems6KyckSfRUeWLIXl4S5m32 +hIZKk8gkQDsyW0kSljMP1AnKkugQ1+tn4tqSIC9kGaNGJZE+oRwsYiEJoR1q +iY4KJPrLvqOFL0oSvh1K3nGWTiLpoV+MuUlJqNC/ejTCmERZUmarGp8lITfD +O/OtCYkkTt4uPfNdEnw2OZrrm5FI7Lvh8syKJHB3d0hwWpBISCjt9sctUpCt +Q9fwZpCI21Tt05iRFLjW8IQsOpJo+qHzhc67UjD2UUJ6OoBElOQRz8QaKQir +nuXaGUQiawdzhnWDFOyu3ChzIZhEzYu6Sm87paBKo+/ThlASpagKD/18h+c/ +EvVTLJJEuzIeKChISsON86nTz6JJdM1Tuu/KVWmYr+1wmblBolbtlHqTBGn4 +E+zPw5FNogUevkLhNGlQW61nC90k0YncuZCcPGnITH6urXqLRFpDXbTaRjwu +EpBjkU+isT2hwRPfpcF7qttCv5xEasLDMvsdZWDGU+z+wD0SvU94H3XdVQbO +r/Rb3aonUQ7/zw8fvGTge7eDm8d9EgnyiJPXQmTgr7jbCz8b8P8vHDccTpaB +hs7mTp4HJCpij/mcapeB/QJsu+ftJLI/PjvY0IW/r9DJjOkgkejwis6GfhnI +5j5sofeIRFF9FO5/xmSgv+6U1o3HeP1tThm/F2Tg4oHSfoMuHL/SyQfM7bIw +LRgQb9VHoiH5BflxdVmw9ffKmsWOz1sbp7VTFmjm2ooxz0i0lKVg/VJfFsrD +xFrr+kk0knDqI81eFoKKM2c4h0iUGjAjVJcoC/mioY4WIyQy/voniO+6LLjx +iwYOYnOd3jBqmy0LLk5P+RkvSXTGTb1otUQWahV8Hli9IpH5cT9do1ZZOMbr +a4LYJOJH807sOVnQqXwk2/eGRCH7FPnqlvB44CBj/1u8n/vtKpmcFIjzy3hW +i912qHVJfyMFBJbcU67/j0RhRxJSy5Qo8MZD9TC8I9FH6xbdSxoUqLb8cacY +2+bo3Bt7HQpkFTWbC0yQSNP+uIqQIQV2mcW492F/ct3aEexEgSQ3xVn99ySy +9TjmZeFBgbmmfZeysTs944WVfCkQfuj+ie/Yhb7f/h4Lp8Bln+X5rA84PqFN +C/szKVBWpJLy4iOJus59vSmTS4GGxAp/2hSJdCLl9v8sokBIz0KOF7bopVhm ++T8UiHSUH17EfnqNoSjch9efEP18ZZpEesyY3unnFJDW+i26+xOJSpMbAtvZ +FOjxr807i305ndp6dpoCLSbahVPY3zOt3S2/UYC1P0+S+Izjnx29XnmRAnRm +yhtrbNlnCypfuAjwdLewqcdmWApx2K8loF2phW8K+9rA9sHOdQS0Vv7h3zKD +4z9kH5ovRMCvT0ocPtgaNsGmG0UJEGc9mEvH9njBpIRvIcDb3FunGXv4ZVsH +Q5YAh/LjdbyzJFpvx85soxLgYbjv63ZsA/a8l/pWAnSCEsONsc/9vRHdVCRA +aOd1u1PY5GvFTetUCOhoLUu4ij3lqD8ZpE5ASRwhko9N/M/u3rgmnm+3+ecG +7MR3iQ6NugTYK9Cyp7E7XEo1tu8h4J/n/n6r2L8nW3nSgYBZm76bm76QiO4+ ++oLLgIDOgAQZeWzPjz/KfQ8SUKjK/YOOnXdqQyTbmADf5quEPvbItIKlkTkB +kZk+BebYQt775OssCQhwE444jn1wxvYnjUGAlMCju87Yt0QvDZ4/RsBiTKqY +J/aPXXeq2HYEyJf7vPfFNj45GK/rSED/gXKZQOzbccvu6c4ErLrdaAzGXmDJ +Gcy5EmBgynx4FtvspQlhcYqAPvc3mv+5kCPwd4U3AZqOY/xB2EsKN0fWnSHA +SmDMxA/b4nB7jVsAAaYhmgte2MXBn5MeBhNgNqnB74r9O0f0NBFGQEy7eow9 +tlXHbqOICAIEGy6cOYJd/tll66sLBJTdDn1oiM0hmsCpfZkA9nnfi7rYNrtq +x1KjCSi9/m+5EnaF81j91zgCLluWIElsrrg16WaJBGgz0oAP+xhL1b88mYDG +wKG7P3A8KkcY5rzXCVCta4p+g72GI1LJJZOALMvi3k5se4Xita3Z+LxVT0RV +/3cezHvHZXIJ4DnTV5iO7ZAjm/2iiAD1wDV0B+yadsOzWmUEpH1cyUXY/J99 +rJIrCFiW5AynYP+r90DA5B98PndGRr3C51NoxDG8uQXbfXlgD7bbavQxqXYC +FFNetm7CbtxWrRXymAAXzyjae5wPp4I4ZjR6CcirzdSLwW7blPd30SgBTbvy +++pxvonrPdHleoPjz5NrE4Xt4/Rts+M4AZYRWkeMsKWq9/WKTxFgvj6tdADn +c6DZ+N5rCwS8bZNgD+B87wrkl5r6RUD5RK8wE5u4qfnzwB8CbqUtNBth90xH +Va1yU+H5mg0X7+N6si1GjggQpsK4VFhlLK43I20unLYqVBhS6Fh9jevX132v +JCPUqbA1TlMkFpu39bDWbU0qGKfyD2tg73yg5/5ehwon/6fmdR7Xw7QGoR7/ +A1RoaWoa5R8n0eGaxsx4ByrI3xKUfPca7w9dk6x0osLTzXGHQrAjyZLufhcq +UH2PKAtiV1SnrGzxokI9g2PjjjG8/3c9XArPUmHPl/NHPUZJ9KhIdEdTEhW0 +Y75oZr8g0Wv5OKO3qVQw8wnulsKeL1h15s6gQtfCIZnsYRLJ509fN8qhwkG/ +zbPXn+N+dqtl+XkZFba4aZqFD5Job4b349k2KtRtFjUSxP2qNqbdgZinAkPu +VNgu3A9LjbvFoxepoLJ2qeoK7pdZggMDM8tUKHzwr1/vQxJdSHpj2MBFA/ET +ntl2bSQyzVxSsxGiQWF8bKoL7rfjJTtW45Vp8MxJPFgD9+sNj2/m/nSigV1u +DO/9OyTijC047uBKg6s8UhnDuN//MC4X6fCgQTFnacu3MhK97P03OsWXBnTR +oHdypThfhwd8VSNo8OWcXuDZQlzP3/PByUwaNB4a3crG9wu3NUFve3tpcOUq +69OtaySSpDx5sdxPAxHNTfl58STq1ZHpU3xOA9V1L1QK4nD8vDuaokZpMMPH +35ofQ6K1g5uzd36kgRP18mzqZXxfuF3HuMUpB+uG41l7w0k0sWux67SWHCxe +vBt2z5NEJ/3P1QpmycFONefgIwZ4Ps3Xtdtz5KDw8MYSkf04ft+hzvC2HASe +MOob3Eeiar+1/14oloNjLa95LRGuH2eS7/0g5aBg6yc5pEeidN+SBna3HDQp +FtlOq5Poifdga8UfOUitr3A4j++f6u7KvaZO8rC9o6f/3mcW6tukIhCkuxWm +tNZY3Q9noYbKqGwV7m0gnB9isILv9+c4lSyejm2DuR6RzOaz1YifHXbIp0YB +lLbFC1S0VKHJYmpabrgiRE4dE6xJq0RpihI89Yzt4FxqtOE3uouSstweOxFK +YDWqydu6cAfZpv3dK/hBCYbD+S5FVpSjRYOiX7nNyvBjfZLZSyhD7yb1Q9qi +VSDkypy9/acSlL9HQ6rHSRVU+EKbC0KL0d0rQcLuqmpwPfpGv4FcEYpmnDTh +nleDl4zpW8dGCtBf7Lyy6B51EHUoy28MyUeZ27Pv9pjsAPakD2Wbbh4635KQ +aVK/A2wnHBXSBnORmRSjqEteA6QX77mvtc1B+3we2wnHakDKzXubzOSyUa60 +s/zTeQ0QNS+wXh7JRPIPS9LN7TSBlT4vrtufjpJU25QGmjXhL9E9M5azacht +jqf/iRIdBE/x9FZzpCJn1ncilkmHYPNG60KLZOQdZfXbOJkOEQshVceNklGQ +Vc0LwVQ6vAhoVRXWT0Yx80GJSel0OLeUmXaVnowqdX8tZ+TQ4ZtmO1+8WDL6 +1bo6XHyHDtMiy4FL7CSUNCCY0P6YDjtiSrL8vZJQVsFpj6tP6PCI8KR7uySh +gsDe/Ye66SDZp/zZ/e8kVCeWtNTdS4fkOvkm18NJiG0r4jH4nA7dTfIvw+hJ +SOGdxP7xd3g+r601mxeZaEdNmGzhJB2Mmd7tptNMpHdl9JfrBzp0+CoJxbCZ +yFQhp3pqmg6uaQPHBFqZyN+LkP32jQ5acsrFBnFMFL774i9yjg6sXZdic8KZ +6Mr68aHAeTq4+AwULfkwUWZVQfziIh0qavhjWq2YKP8Cj/v9JToMJJiaKRsy +0R1LV/3w33SQXq9tfEOHiWpoj2T2rtDBWyQoUkCZiZrntv1aXaXDwofqqYsy +TPR/3fho0w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07396648907096998}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07396648907096998}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VdsXAHBTESoime+5lyJjXC9Dw15JyhhxVXhEphAZQ6g0mOKaQiSZ +h4R7Hl4yhCgRMiTlqn6iomgQieK33x/ncz7fz/6c/dlnr73W2lRn3yOuXBwc +HCv4+e+dE+m8VsMle+/C8JcT6pv09rYPEqZHiVA0cibowqHpLWj1UfMlgohF +FNsjAiLTCiinJYGyhriB1o/I1M1NaSPvPUGnf1LKUL+iaF7/1EE0uOyR9pVS +j2iBJTPBU0cR7+i4wgzlCaLs7lmmfXRHeV25fp8oL1F/rJbNm/GzqLIqdtRb +bRptNFqcqeiOQe6o/8Zn/znUlLc4J384BflMbn9XU/kLOVz8VrVuOQPxUy8r +vNHhgAPlozyMuRyUKNStlHeCG46m+w3Pl+Qh51HrB9xP14Ju8N4w3dOFyK/j +srOvAj/cF0oQGvpTjFhnBK3EjdbDXza7nb/rlaG8c17TO44KQf+ytEVn6B0U +lfvb8sdnYRD31Vq5d/Iu4hh8C41hIiBfWLmXS6wKbQt0C7FW2gx09XM7X9tV +o4n5DBuBJjHgZWQVca1hofx99ICxh2LA3OyVWsrLQo4JvcyqLjFI1DlXbMrP +Qq/k1zyxGhGDo17rdzM3slC/lf+um3NiUByyQFuRYKFmlimhqrQFBN+OPItS +Y6GM05zT5hlb4Go+1VDBhoWMJz0jUvzEYXC0IPBVLgsZRshVGISIw5mDVjKr +eSykv5n9aiFSHDTWHluiFrKQ3gEzHbtr4uAU4mHpXMpCSkXqc3Il4rD7wfuA +nmoWEnD94VHLFgdVDccEs1YWejoRYT1yUAI8gUNv/i0LdYbvvBRnLgFZOkeD +346zULvoF9ZuhgSoznd/eDLBQo0GJzbmOUuA6PldnhkfWaiiUL/rVIQEnLgc +Piv9lYUSXHhhmZSADUqdq/0rLGQ+kaQsKysJems6KyckSfRUeWLIXl4S5m32 +hIZKk8gkQDsyW0kSljMP1AnKkugQ1+tn4tqSIC9kGaNGJZE+oRwsYiEJoR1q +iY4KJPrLvqOFL0oSvh1K3nGWTiLpoV+MuUlJqNC/ejTCmERZUmarGp8lITfD +O/OtCYkkTt4uPfNdEnw2OZrrm5FI7Lvh8syKJHB3d0hwWpBISCjt9sctUpCt +Q9fwZpCI21Tt05iRFLjW8IQsOpJo+qHzhc67UjD2UUJ6OoBElOQRz8QaKQir +nuXaGUQiawdzhnWDFOyu3ChzIZhEzYu6Sm87paBKo+/ThlASpagKD/18h+c/ +EvVTLJJEuzIeKChISsON86nTz6JJdM1Tuu/KVWmYr+1wmblBolbtlHqTBGn4 +E+zPw5FNogUevkLhNGlQW61nC90k0YncuZCcPGnITH6urXqLRFpDXbTaRjwu +EpBjkU+isT2hwRPfpcF7qttCv5xEasLDMvsdZWDGU+z+wD0SvU94H3XdVQbO +r/Rb3aonUQ7/zw8fvGTge7eDm8d9EgnyiJPXQmTgr7jbCz8b8P8vHDccTpaB +hs7mTp4HJCpij/mcapeB/QJsu+ftJLI/PjvY0IW/r9DJjOkgkejwis6GfhnI +5j5sofeIRFF9FO5/xmSgv+6U1o3HeP1tThm/F2Tg4oHSfoMuHL/SyQfM7bIw +LRgQb9VHoiH5BflxdVmw9ffKmsWOz1sbp7VTFmjm2ooxz0i0lKVg/VJfFsrD +xFrr+kk0knDqI81eFoKKM2c4h0iUGjAjVJcoC/mioY4WIyQy/voniO+6LLjx +iwYOYnOd3jBqmy0LLk5P+RkvSXTGTb1otUQWahV8Hli9IpH5cT9do1ZZOMbr +a4LYJOJH807sOVnQqXwk2/eGRCH7FPnqlvB44CBj/1u8n/vtKpmcFIjzy3hW +i912qHVJfyMFBJbcU67/j0RhRxJSy5Qo8MZD9TC8I9FH6xbdSxoUqLb8cacY +2+bo3Bt7HQpkFTWbC0yQSNP+uIqQIQV2mcW492F/ct3aEexEgSQ3xVn99ySy +9TjmZeFBgbmmfZeysTs944WVfCkQfuj+ie/Yhb7f/h4Lp8Bln+X5rA84PqFN +C/szKVBWpJLy4iOJus59vSmTS4GGxAp/2hSJdCLl9v8sokBIz0KOF7bopVhm ++T8UiHSUH17EfnqNoSjch9efEP18ZZpEesyY3unnFJDW+i26+xOJSpMbAtvZ +FOjxr807i305ndp6dpoCLSbahVPY3zOt3S2/UYC1P0+S+Izjnx29XnmRAnRm +yhtrbNlnCypfuAjwdLewqcdmWApx2K8loF2phW8K+9rA9sHOdQS0Vv7h3zKD +4z9kH5ovRMCvT0ocPtgaNsGmG0UJEGc9mEvH9njBpIRvIcDb3FunGXv4ZVsH +Q5YAh/LjdbyzJFpvx85soxLgYbjv63ZsA/a8l/pWAnSCEsONsc/9vRHdVCRA +aOd1u1PY5GvFTetUCOhoLUu4ij3lqD8ZpE5ASRwhko9N/M/u3rgmnm+3+ecG +7MR3iQ6NugTYK9Cyp7E7XEo1tu8h4J/n/n6r2L8nW3nSgYBZm76bm76QiO4+ ++oLLgIDOgAQZeWzPjz/KfQ8SUKjK/YOOnXdqQyTbmADf5quEPvbItIKlkTkB +kZk+BebYQt775OssCQhwE444jn1wxvYnjUGAlMCju87Yt0QvDZ4/RsBiTKqY +J/aPXXeq2HYEyJf7vPfFNj45GK/rSED/gXKZQOzbccvu6c4ErLrdaAzGXmDJ +Gcy5EmBgynx4FtvspQlhcYqAPvc3mv+5kCPwd4U3AZqOY/xB2EsKN0fWnSHA +SmDMxA/b4nB7jVsAAaYhmgte2MXBn5MeBhNgNqnB74r9O0f0NBFGQEy7eow9 +tlXHbqOICAIEGy6cOYJd/tll66sLBJTdDn1oiM0hmsCpfZkA9nnfi7rYNrtq +x1KjCSi9/m+5EnaF81j91zgCLluWIElsrrg16WaJBGgz0oAP+xhL1b88mYDG +wKG7P3A8KkcY5rzXCVCta4p+g72GI1LJJZOALMvi3k5se4Xita3Z+LxVT0RV +/3cezHvHZXIJ4DnTV5iO7ZAjm/2iiAD1wDV0B+yadsOzWmUEpH1cyUXY/J99 +rJIrCFiW5AynYP+r90DA5B98PndGRr3C51NoxDG8uQXbfXlgD7bbavQxqXYC +FFNetm7CbtxWrRXymAAXzyjae5wPp4I4ZjR6CcirzdSLwW7blPd30SgBTbvy +++pxvonrPdHleoPjz5NrE4Xt4/Rts+M4AZYRWkeMsKWq9/WKTxFgvj6tdADn +c6DZ+N5rCwS8bZNgD+B87wrkl5r6RUD5RK8wE5u4qfnzwB8CbqUtNBth90xH +Va1yU+H5mg0X7+N6si1GjggQpsK4VFhlLK43I20unLYqVBhS6Fh9jevX132v +JCPUqbA1TlMkFpu39bDWbU0qGKfyD2tg73yg5/5ehwon/6fmdR7Xw7QGoR7/ +A1RoaWoa5R8n0eGaxsx4ByrI3xKUfPca7w9dk6x0osLTzXGHQrAjyZLufhcq +UH2PKAtiV1SnrGzxokI9g2PjjjG8/3c9XArPUmHPl/NHPUZJ9KhIdEdTEhW0 +Y75oZr8g0Wv5OKO3qVQw8wnulsKeL1h15s6gQtfCIZnsYRLJ509fN8qhwkG/ +zbPXn+N+dqtl+XkZFba4aZqFD5Job4b349k2KtRtFjUSxP2qNqbdgZinAkPu +VNgu3A9LjbvFoxepoLJ2qeoK7pdZggMDM8tUKHzwr1/vQxJdSHpj2MBFA/ET +ntl2bSQyzVxSsxGiQWF8bKoL7rfjJTtW45Vp8MxJPFgD9+sNj2/m/nSigV1u +DO/9OyTijC047uBKg6s8UhnDuN//MC4X6fCgQTFnacu3MhK97P03OsWXBnTR +oHdypThfhwd8VSNo8OWcXuDZQlzP3/PByUwaNB4a3crG9wu3NUFve3tpcOUq +69OtaySSpDx5sdxPAxHNTfl58STq1ZHpU3xOA9V1L1QK4nD8vDuaokZpMMPH +35ofQ6K1g5uzd36kgRP18mzqZXxfuF3HuMUpB+uG41l7w0k0sWux67SWHCxe +vBt2z5NEJ/3P1QpmycFONefgIwZ4Ps3Xtdtz5KDw8MYSkf04ft+hzvC2HASe +MOob3Eeiar+1/14oloNjLa95LRGuH2eS7/0g5aBg6yc5pEeidN+SBna3HDQp +FtlOq5Poifdga8UfOUitr3A4j++f6u7KvaZO8rC9o6f/3mcW6tukIhCkuxWm +tNZY3Q9noYbKqGwV7m0gnB9isILv9+c4lSyejm2DuR6RzOaz1YifHXbIp0YB +lLbFC1S0VKHJYmpabrgiRE4dE6xJq0RpihI89Yzt4FxqtOE3uouSstweOxFK +YDWqydu6cAfZpv3dK/hBCYbD+S5FVpSjRYOiX7nNyvBjfZLZSyhD7yb1Q9qi +VSDkypy9/acSlL9HQ6rHSRVU+EKbC0KL0d0rQcLuqmpwPfpGv4FcEYpmnDTh +nleDl4zpW8dGCtBf7Lyy6B51EHUoy28MyUeZ27Pv9pjsAPakD2Wbbh4635KQ +aVK/A2wnHBXSBnORmRSjqEteA6QX77mvtc1B+3we2wnHakDKzXubzOSyUa60 +s/zTeQ0QNS+wXh7JRPIPS9LN7TSBlT4vrtufjpJU25QGmjXhL9E9M5azacht +jqf/iRIdBE/x9FZzpCJn1ncilkmHYPNG60KLZOQdZfXbOJkOEQshVceNklGQ +Vc0LwVQ6vAhoVRXWT0Yx80GJSel0OLeUmXaVnowqdX8tZ+TQ4ZtmO1+8WDL6 +1bo6XHyHDtMiy4FL7CSUNCCY0P6YDjtiSrL8vZJQVsFpj6tP6PCI8KR7uySh +gsDe/Ye66SDZp/zZ/e8kVCeWtNTdS4fkOvkm18NJiG0r4jH4nA7dTfIvw+hJ +SOGdxP7xd3g+r601mxeZaEdNmGzhJB2Mmd7tptNMpHdl9JfrBzp0+CoJxbCZ +yFQhp3pqmg6uaQPHBFqZyN+LkP32jQ5acsrFBnFMFL774i9yjg6sXZdic8KZ +6Mr68aHAeTq4+AwULfkwUWZVQfziIh0qavhjWq2YKP8Cj/v9JToMJJiaKRsy +0R1LV/3w33SQXq9tfEOHiWpoj2T2rtDBWyQoUkCZiZrntv1aXaXDwofqqYsy +TPR/3fho0w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07396648907096998}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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, 20}, {0., 0.07396648907096998}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99134491550045*^9, 3.9921321966999607`*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"560c8aaa-c400-3744-96ea-4dd5355b1392"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.009784"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.02687"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.043601"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.05335"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.062849"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.065087"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.067708"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.065141"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.063585"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.059029"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.055695"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.050792"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.046991"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.042372"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.03863"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.034472"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.031001"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.027323"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.024229"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.021057"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.018401"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991714709387436*^9, 3.991714738003292*^9}, { + 3.991714834117689*^9, 3.991714842328617*^9}, 3.991793311407936*^9, + 3.9917953263701286`*^9, {3.992091791250908*^9, 3.992091803526783*^9}}, + CellLabel->"In[97]:=",ExpressionUUID->"0442afd4-ab7e-8942-9b0e-e14520d1eea3"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, + 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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, 20.}, {0, 0.067708}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9917148467316074`*^9, 3.9921321968751736`*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"446f710a-ba43-9844-a504-c03536d56d1a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel->"In[98]:=",ExpressionUUID->"9478c59b-a5b4-1043-afe6-75ae56a5fd89"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk8VdsXAHBTESoime+5lyJjXC9Dw15JyhhxVXhEphAZQ6g0mOKaQiSZ +h4R7Hl4yhCgRMiTlqn6iomgQieK33x/ncz7fz/6c/dlnr73W2lRn3yOuXBwc +HCv4+e+dE+m8VsMle+/C8JcT6pv09rYPEqZHiVA0cibowqHpLWj1UfMlgohF +FNsjAiLTCiinJYGyhriB1o/I1M1NaSPvPUGnf1LKUL+iaF7/1EE0uOyR9pVS +j2iBJTPBU0cR7+i4wgzlCaLs7lmmfXRHeV25fp8oL1F/rJbNm/GzqLIqdtRb +bRptNFqcqeiOQe6o/8Zn/znUlLc4J384BflMbn9XU/kLOVz8VrVuOQPxUy8r +vNHhgAPlozyMuRyUKNStlHeCG46m+w3Pl+Qh51HrB9xP14Ju8N4w3dOFyK/j +srOvAj/cF0oQGvpTjFhnBK3EjdbDXza7nb/rlaG8c17TO44KQf+ytEVn6B0U +lfvb8sdnYRD31Vq5d/Iu4hh8C41hIiBfWLmXS6wKbQt0C7FW2gx09XM7X9tV +o4n5DBuBJjHgZWQVca1hofx99ICxh2LA3OyVWsrLQo4JvcyqLjFI1DlXbMrP +Qq/k1zyxGhGDo17rdzM3slC/lf+um3NiUByyQFuRYKFmlimhqrQFBN+OPItS +Y6GM05zT5hlb4Go+1VDBhoWMJz0jUvzEYXC0IPBVLgsZRshVGISIw5mDVjKr +eSykv5n9aiFSHDTWHluiFrKQ3gEzHbtr4uAU4mHpXMpCSkXqc3Il4rD7wfuA +nmoWEnD94VHLFgdVDccEs1YWejoRYT1yUAI8gUNv/i0LdYbvvBRnLgFZOkeD +346zULvoF9ZuhgSoznd/eDLBQo0GJzbmOUuA6PldnhkfWaiiUL/rVIQEnLgc +Piv9lYUSXHhhmZSADUqdq/0rLGQ+kaQsKysJems6KyckSfRUeWLIXl4S5m32 +hIZKk8gkQDsyW0kSljMP1AnKkugQ1+tn4tqSIC9kGaNGJZE+oRwsYiEJoR1q +iY4KJPrLvqOFL0oSvh1K3nGWTiLpoV+MuUlJqNC/ejTCmERZUmarGp8lITfD +O/OtCYkkTt4uPfNdEnw2OZrrm5FI7Lvh8syKJHB3d0hwWpBISCjt9sctUpCt +Q9fwZpCI21Tt05iRFLjW8IQsOpJo+qHzhc67UjD2UUJ6OoBElOQRz8QaKQir +nuXaGUQiawdzhnWDFOyu3ChzIZhEzYu6Sm87paBKo+/ThlASpagKD/18h+c/ +EvVTLJJEuzIeKChISsON86nTz6JJdM1Tuu/KVWmYr+1wmblBolbtlHqTBGn4 +E+zPw5FNogUevkLhNGlQW61nC90k0YncuZCcPGnITH6urXqLRFpDXbTaRjwu +EpBjkU+isT2hwRPfpcF7qttCv5xEasLDMvsdZWDGU+z+wD0SvU94H3XdVQbO +r/Rb3aonUQ7/zw8fvGTge7eDm8d9EgnyiJPXQmTgr7jbCz8b8P8vHDccTpaB +hs7mTp4HJCpij/mcapeB/QJsu+ftJLI/PjvY0IW/r9DJjOkgkejwis6GfhnI +5j5sofeIRFF9FO5/xmSgv+6U1o3HeP1tThm/F2Tg4oHSfoMuHL/SyQfM7bIw +LRgQb9VHoiH5BflxdVmw9ffKmsWOz1sbp7VTFmjm2ooxz0i0lKVg/VJfFsrD +xFrr+kk0knDqI81eFoKKM2c4h0iUGjAjVJcoC/mioY4WIyQy/voniO+6LLjx +iwYOYnOd3jBqmy0LLk5P+RkvSXTGTb1otUQWahV8Hli9IpH5cT9do1ZZOMbr +a4LYJOJH807sOVnQqXwk2/eGRCH7FPnqlvB44CBj/1u8n/vtKpmcFIjzy3hW +i912qHVJfyMFBJbcU67/j0RhRxJSy5Qo8MZD9TC8I9FH6xbdSxoUqLb8cacY +2+bo3Bt7HQpkFTWbC0yQSNP+uIqQIQV2mcW492F/ct3aEexEgSQ3xVn99ySy +9TjmZeFBgbmmfZeysTs944WVfCkQfuj+ie/Yhb7f/h4Lp8Bln+X5rA84PqFN +C/szKVBWpJLy4iOJus59vSmTS4GGxAp/2hSJdCLl9v8sokBIz0KOF7bopVhm ++T8UiHSUH17EfnqNoSjch9efEP18ZZpEesyY3unnFJDW+i26+xOJSpMbAtvZ +FOjxr807i305ndp6dpoCLSbahVPY3zOt3S2/UYC1P0+S+Izjnx29XnmRAnRm +yhtrbNlnCypfuAjwdLewqcdmWApx2K8loF2phW8K+9rA9sHOdQS0Vv7h3zKD +4z9kH5ovRMCvT0ocPtgaNsGmG0UJEGc9mEvH9njBpIRvIcDb3FunGXv4ZVsH +Q5YAh/LjdbyzJFpvx85soxLgYbjv63ZsA/a8l/pWAnSCEsONsc/9vRHdVCRA +aOd1u1PY5GvFTetUCOhoLUu4ij3lqD8ZpE5ASRwhko9N/M/u3rgmnm+3+ecG +7MR3iQ6NugTYK9Cyp7E7XEo1tu8h4J/n/n6r2L8nW3nSgYBZm76bm76QiO4+ ++oLLgIDOgAQZeWzPjz/KfQ8SUKjK/YOOnXdqQyTbmADf5quEPvbItIKlkTkB +kZk+BebYQt775OssCQhwE444jn1wxvYnjUGAlMCju87Yt0QvDZ4/RsBiTKqY +J/aPXXeq2HYEyJf7vPfFNj45GK/rSED/gXKZQOzbccvu6c4ErLrdaAzGXmDJ +Gcy5EmBgynx4FtvspQlhcYqAPvc3mv+5kCPwd4U3AZqOY/xB2EsKN0fWnSHA +SmDMxA/b4nB7jVsAAaYhmgte2MXBn5MeBhNgNqnB74r9O0f0NBFGQEy7eow9 +tlXHbqOICAIEGy6cOYJd/tll66sLBJTdDn1oiM0hmsCpfZkA9nnfi7rYNrtq +x1KjCSi9/m+5EnaF81j91zgCLluWIElsrrg16WaJBGgz0oAP+xhL1b88mYDG +wKG7P3A8KkcY5rzXCVCta4p+g72GI1LJJZOALMvi3k5se4Xita3Z+LxVT0RV +/3cezHvHZXIJ4DnTV5iO7ZAjm/2iiAD1wDV0B+yadsOzWmUEpH1cyUXY/J99 +rJIrCFiW5AynYP+r90DA5B98PndGRr3C51NoxDG8uQXbfXlgD7bbavQxqXYC +FFNetm7CbtxWrRXymAAXzyjae5wPp4I4ZjR6CcirzdSLwW7blPd30SgBTbvy +++pxvonrPdHleoPjz5NrE4Xt4/Rts+M4AZYRWkeMsKWq9/WKTxFgvj6tdADn +c6DZ+N5rCwS8bZNgD+B87wrkl5r6RUD5RK8wE5u4qfnzwB8CbqUtNBth90xH +Va1yU+H5mg0X7+N6si1GjggQpsK4VFhlLK43I20unLYqVBhS6Fh9jevX132v +JCPUqbA1TlMkFpu39bDWbU0qGKfyD2tg73yg5/5ehwon/6fmdR7Xw7QGoR7/ +A1RoaWoa5R8n0eGaxsx4ByrI3xKUfPca7w9dk6x0osLTzXGHQrAjyZLufhcq +UH2PKAtiV1SnrGzxokI9g2PjjjG8/3c9XArPUmHPl/NHPUZJ9KhIdEdTEhW0 +Y75oZr8g0Wv5OKO3qVQw8wnulsKeL1h15s6gQtfCIZnsYRLJ509fN8qhwkG/ +zbPXn+N+dqtl+XkZFba4aZqFD5Job4b349k2KtRtFjUSxP2qNqbdgZinAkPu +VNgu3A9LjbvFoxepoLJ2qeoK7pdZggMDM8tUKHzwr1/vQxJdSHpj2MBFA/ET +ntl2bSQyzVxSsxGiQWF8bKoL7rfjJTtW45Vp8MxJPFgD9+sNj2/m/nSigV1u +DO/9OyTijC047uBKg6s8UhnDuN//MC4X6fCgQTFnacu3MhK97P03OsWXBnTR +oHdypThfhwd8VSNo8OWcXuDZQlzP3/PByUwaNB4a3crG9wu3NUFve3tpcOUq +69OtaySSpDx5sdxPAxHNTfl58STq1ZHpU3xOA9V1L1QK4nD8vDuaokZpMMPH +35ofQ6K1g5uzd36kgRP18mzqZXxfuF3HuMUpB+uG41l7w0k0sWux67SWHCxe +vBt2z5NEJ/3P1QpmycFONefgIwZ4Ps3Xtdtz5KDw8MYSkf04ft+hzvC2HASe +MOob3Eeiar+1/14oloNjLa95LRGuH2eS7/0g5aBg6yc5pEeidN+SBna3HDQp +FtlOq5Poifdga8UfOUitr3A4j++f6u7KvaZO8rC9o6f/3mcW6tukIhCkuxWm +tNZY3Q9noYbKqGwV7m0gnB9isILv9+c4lSyejm2DuR6RzOaz1YifHXbIp0YB +lLbFC1S0VKHJYmpabrgiRE4dE6xJq0RpihI89Yzt4FxqtOE3uouSstweOxFK +YDWqydu6cAfZpv3dK/hBCYbD+S5FVpSjRYOiX7nNyvBjfZLZSyhD7yb1Q9qi +VSDkypy9/acSlL9HQ6rHSRVU+EKbC0KL0d0rQcLuqmpwPfpGv4FcEYpmnDTh +nleDl4zpW8dGCtBf7Lyy6B51EHUoy28MyUeZ27Pv9pjsAPakD2Wbbh4635KQ +aVK/A2wnHBXSBnORmRSjqEteA6QX77mvtc1B+3we2wnHakDKzXubzOSyUa60 +s/zTeQ0QNS+wXh7JRPIPS9LN7TSBlT4vrtufjpJU25QGmjXhL9E9M5azacht +jqf/iRIdBE/x9FZzpCJn1ncilkmHYPNG60KLZOQdZfXbOJkOEQshVceNklGQ +Vc0LwVQ6vAhoVRXWT0Yx80GJSel0OLeUmXaVnowqdX8tZ+TQ4ZtmO1+8WDL6 +1bo6XHyHDtMiy4FL7CSUNCCY0P6YDjtiSrL8vZJQVsFpj6tP6PCI8KR7uySh +gsDe/Ye66SDZp/zZ/e8kVCeWtNTdS4fkOvkm18NJiG0r4jH4nA7dTfIvw+hJ +SOGdxP7xd3g+r601mxeZaEdNmGzhJB2Mmd7tptNMpHdl9JfrBzp0+CoJxbCZ +yFQhp3pqmg6uaQPHBFqZyN+LkP32jQ5acsrFBnFMFL774i9yjg6sXZdic8KZ +6Mr68aHAeTq4+AwULfkwUWZVQfziIh0qavhjWq2YKP8Cj/v9JToMJJiaKRsy +0R1LV/3w33SQXq9tfEOHiWpoj2T2rtDBWyQoUkCZiZrntv1aXaXDwofqqYsy +TPR/3fho0w== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VdsXAHBTESoime+5lyJjXC9Dw15JyhhxVXhEphAZQ6g0mOKaQiSZ +h4R7Hl4yhCgRMiTlqn6iomgQieK33x/ncz7fz/6c/dlnr73W2lRn3yOuXBwc +HCv4+e+dE+m8VsMle+/C8JcT6pv09rYPEqZHiVA0cibowqHpLWj1UfMlgohF +FNsjAiLTCiinJYGyhriB1o/I1M1NaSPvPUGnf1LKUL+iaF7/1EE0uOyR9pVS +j2iBJTPBU0cR7+i4wgzlCaLs7lmmfXRHeV25fp8oL1F/rJbNm/GzqLIqdtRb +bRptNFqcqeiOQe6o/8Zn/znUlLc4J384BflMbn9XU/kLOVz8VrVuOQPxUy8r +vNHhgAPlozyMuRyUKNStlHeCG46m+w3Pl+Qh51HrB9xP14Ju8N4w3dOFyK/j +srOvAj/cF0oQGvpTjFhnBK3EjdbDXza7nb/rlaG8c17TO44KQf+ytEVn6B0U +lfvb8sdnYRD31Vq5d/Iu4hh8C41hIiBfWLmXS6wKbQt0C7FW2gx09XM7X9tV +o4n5DBuBJjHgZWQVca1hofx99ICxh2LA3OyVWsrLQo4JvcyqLjFI1DlXbMrP +Qq/k1zyxGhGDo17rdzM3slC/lf+um3NiUByyQFuRYKFmlimhqrQFBN+OPItS +Y6GM05zT5hlb4Go+1VDBhoWMJz0jUvzEYXC0IPBVLgsZRshVGISIw5mDVjKr +eSykv5n9aiFSHDTWHluiFrKQ3gEzHbtr4uAU4mHpXMpCSkXqc3Il4rD7wfuA +nmoWEnD94VHLFgdVDccEs1YWejoRYT1yUAI8gUNv/i0LdYbvvBRnLgFZOkeD +346zULvoF9ZuhgSoznd/eDLBQo0GJzbmOUuA6PldnhkfWaiiUL/rVIQEnLgc +Piv9lYUSXHhhmZSADUqdq/0rLGQ+kaQsKysJems6KyckSfRUeWLIXl4S5m32 +hIZKk8gkQDsyW0kSljMP1AnKkugQ1+tn4tqSIC9kGaNGJZE+oRwsYiEJoR1q +iY4KJPrLvqOFL0oSvh1K3nGWTiLpoV+MuUlJqNC/ejTCmERZUmarGp8lITfD +O/OtCYkkTt4uPfNdEnw2OZrrm5FI7Lvh8syKJHB3d0hwWpBISCjt9sctUpCt +Q9fwZpCI21Tt05iRFLjW8IQsOpJo+qHzhc67UjD2UUJ6OoBElOQRz8QaKQir +nuXaGUQiawdzhnWDFOyu3ChzIZhEzYu6Sm87paBKo+/ThlASpagKD/18h+c/ +EvVTLJJEuzIeKChISsON86nTz6JJdM1Tuu/KVWmYr+1wmblBolbtlHqTBGn4 +E+zPw5FNogUevkLhNGlQW61nC90k0YncuZCcPGnITH6urXqLRFpDXbTaRjwu +EpBjkU+isT2hwRPfpcF7qttCv5xEasLDMvsdZWDGU+z+wD0SvU94H3XdVQbO +r/Rb3aonUQ7/zw8fvGTge7eDm8d9EgnyiJPXQmTgr7jbCz8b8P8vHDccTpaB +hs7mTp4HJCpij/mcapeB/QJsu+ftJLI/PjvY0IW/r9DJjOkgkejwis6GfhnI +5j5sofeIRFF9FO5/xmSgv+6U1o3HeP1tThm/F2Tg4oHSfoMuHL/SyQfM7bIw +LRgQb9VHoiH5BflxdVmw9ffKmsWOz1sbp7VTFmjm2ooxz0i0lKVg/VJfFsrD +xFrr+kk0knDqI81eFoKKM2c4h0iUGjAjVJcoC/mioY4WIyQy/voniO+6LLjx +iwYOYnOd3jBqmy0LLk5P+RkvSXTGTb1otUQWahV8Hli9IpH5cT9do1ZZOMbr +a4LYJOJH807sOVnQqXwk2/eGRCH7FPnqlvB44CBj/1u8n/vtKpmcFIjzy3hW +i912qHVJfyMFBJbcU67/j0RhRxJSy5Qo8MZD9TC8I9FH6xbdSxoUqLb8cacY +2+bo3Bt7HQpkFTWbC0yQSNP+uIqQIQV2mcW492F/ct3aEexEgSQ3xVn99ySy +9TjmZeFBgbmmfZeysTs944WVfCkQfuj+ie/Yhb7f/h4Lp8Bln+X5rA84PqFN +C/szKVBWpJLy4iOJus59vSmTS4GGxAp/2hSJdCLl9v8sokBIz0KOF7bopVhm ++T8UiHSUH17EfnqNoSjch9efEP18ZZpEesyY3unnFJDW+i26+xOJSpMbAtvZ +FOjxr807i305ndp6dpoCLSbahVPY3zOt3S2/UYC1P0+S+Izjnx29XnmRAnRm +yhtrbNlnCypfuAjwdLewqcdmWApx2K8loF2phW8K+9rA9sHOdQS0Vv7h3zKD +4z9kH5ovRMCvT0ocPtgaNsGmG0UJEGc9mEvH9njBpIRvIcDb3FunGXv4ZVsH +Q5YAh/LjdbyzJFpvx85soxLgYbjv63ZsA/a8l/pWAnSCEsONsc/9vRHdVCRA +aOd1u1PY5GvFTetUCOhoLUu4ij3lqD8ZpE5ASRwhko9N/M/u3rgmnm+3+ecG +7MR3iQ6NugTYK9Cyp7E7XEo1tu8h4J/n/n6r2L8nW3nSgYBZm76bm76QiO4+ ++oLLgIDOgAQZeWzPjz/KfQ8SUKjK/YOOnXdqQyTbmADf5quEPvbItIKlkTkB +kZk+BebYQt775OssCQhwE444jn1wxvYnjUGAlMCju87Yt0QvDZ4/RsBiTKqY +J/aPXXeq2HYEyJf7vPfFNj45GK/rSED/gXKZQOzbccvu6c4ErLrdaAzGXmDJ +Gcy5EmBgynx4FtvspQlhcYqAPvc3mv+5kCPwd4U3AZqOY/xB2EsKN0fWnSHA +SmDMxA/b4nB7jVsAAaYhmgte2MXBn5MeBhNgNqnB74r9O0f0NBFGQEy7eow9 +tlXHbqOICAIEGy6cOYJd/tll66sLBJTdDn1oiM0hmsCpfZkA9nnfi7rYNrtq +x1KjCSi9/m+5EnaF81j91zgCLluWIElsrrg16WaJBGgz0oAP+xhL1b88mYDG +wKG7P3A8KkcY5rzXCVCta4p+g72GI1LJJZOALMvi3k5se4Xita3Z+LxVT0RV +/3cezHvHZXIJ4DnTV5iO7ZAjm/2iiAD1wDV0B+yadsOzWmUEpH1cyUXY/J99 +rJIrCFiW5AynYP+r90DA5B98PndGRr3C51NoxDG8uQXbfXlgD7bbavQxqXYC +FFNetm7CbtxWrRXymAAXzyjae5wPp4I4ZjR6CcirzdSLwW7blPd30SgBTbvy +++pxvonrPdHleoPjz5NrE4Xt4/Rts+M4AZYRWkeMsKWq9/WKTxFgvj6tdADn +c6DZ+N5rCwS8bZNgD+B87wrkl5r6RUD5RK8wE5u4qfnzwB8CbqUtNBth90xH +Va1yU+H5mg0X7+N6si1GjggQpsK4VFhlLK43I20unLYqVBhS6Fh9jevX132v +JCPUqbA1TlMkFpu39bDWbU0qGKfyD2tg73yg5/5ehwon/6fmdR7Xw7QGoR7/ +A1RoaWoa5R8n0eGaxsx4ByrI3xKUfPca7w9dk6x0osLTzXGHQrAjyZLufhcq +UH2PKAtiV1SnrGzxokI9g2PjjjG8/3c9XArPUmHPl/NHPUZJ9KhIdEdTEhW0 +Y75oZr8g0Wv5OKO3qVQw8wnulsKeL1h15s6gQtfCIZnsYRLJ509fN8qhwkG/ +zbPXn+N+dqtl+XkZFba4aZqFD5Job4b349k2KtRtFjUSxP2qNqbdgZinAkPu +VNgu3A9LjbvFoxepoLJ2qeoK7pdZggMDM8tUKHzwr1/vQxJdSHpj2MBFA/ET +ntl2bSQyzVxSsxGiQWF8bKoL7rfjJTtW45Vp8MxJPFgD9+sNj2/m/nSigV1u +DO/9OyTijC047uBKg6s8UhnDuN//MC4X6fCgQTFnacu3MhK97P03OsWXBnTR +oHdypThfhwd8VSNo8OWcXuDZQlzP3/PByUwaNB4a3crG9wu3NUFve3tpcOUq +69OtaySSpDx5sdxPAxHNTfl58STq1ZHpU3xOA9V1L1QK4nD8vDuaokZpMMPH +35ofQ6K1g5uzd36kgRP18mzqZXxfuF3HuMUpB+uG41l7w0k0sWux67SWHCxe +vBt2z5NEJ/3P1QpmycFONefgIwZ4Ps3Xtdtz5KDw8MYSkf04ft+hzvC2HASe +MOob3Eeiar+1/14oloNjLa95LRGuH2eS7/0g5aBg6yc5pEeidN+SBna3HDQp +FtlOq5Poifdga8UfOUitr3A4j++f6u7KvaZO8rC9o6f/3mcW6tukIhCkuxWm +tNZY3Q9noYbKqGwV7m0gnB9isILv9+c4lSyejm2DuR6RzOaz1YifHXbIp0YB +lLbFC1S0VKHJYmpabrgiRE4dE6xJq0RpihI89Yzt4FxqtOE3uouSstweOxFK +YDWqydu6cAfZpv3dK/hBCYbD+S5FVpSjRYOiX7nNyvBjfZLZSyhD7yb1Q9qi +VSDkypy9/acSlL9HQ6rHSRVU+EKbC0KL0d0rQcLuqmpwPfpGv4FcEYpmnDTh +nleDl4zpW8dGCtBf7Lyy6B51EHUoy28MyUeZ27Pv9pjsAPakD2Wbbh4635KQ +aVK/A2wnHBXSBnORmRSjqEteA6QX77mvtc1B+3we2wnHakDKzXubzOSyUa60 +s/zTeQ0QNS+wXh7JRPIPS9LN7TSBlT4vrtufjpJU25QGmjXhL9E9M5azacht +jqf/iRIdBE/x9FZzpCJn1ncilkmHYPNG60KLZOQdZfXbOJkOEQshVceNklGQ +Vc0LwVQ6vAhoVRXWT0Yx80GJSel0OLeUmXaVnowqdX8tZ+TQ4ZtmO1+8WDL6 +1bo6XHyHDtMiy4FL7CSUNCCY0P6YDjtiSrL8vZJQVsFpj6tP6PCI8KR7uySh +gsDe/Ye66SDZp/zZ/e8kVCeWtNTdS4fkOvkm18NJiG0r4jH4nA7dTfIvw+hJ +SOGdxP7xd3g+r601mxeZaEdNmGzhJB2Mmd7tptNMpHdl9JfrBzp0+CoJxbCZ +yFQhp3pqmg6uaQPHBFqZyN+LkP32jQ5acsrFBnFMFL774i9yjg6sXZdic8KZ +6Mr68aHAeTq4+AwULfkwUWZVQfziIh0qavhjWq2YKP8Cj/v9JToMJJiaKRsy +0R1LV/3w33SQXq9tfEOHiWpoj2T2rtDBWyQoUkCZiZrntv1aXaXDwofqqYsy +TPR/3fho0w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07396648907096998}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07396648907096998}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VdsXAHBTESoime+5lyJjXC9Dw15JyhhxVXhEphAZQ6g0mOKaQiSZ +h4R7Hl4yhCgRMiTlqn6iomgQieK33x/ncz7fz/6c/dlnr73W2lRn3yOuXBwc +HCv4+e+dE+m8VsMle+/C8JcT6pv09rYPEqZHiVA0cibowqHpLWj1UfMlgohF +FNsjAiLTCiinJYGyhriB1o/I1M1NaSPvPUGnf1LKUL+iaF7/1EE0uOyR9pVS +j2iBJTPBU0cR7+i4wgzlCaLs7lmmfXRHeV25fp8oL1F/rJbNm/GzqLIqdtRb +bRptNFqcqeiOQe6o/8Zn/znUlLc4J384BflMbn9XU/kLOVz8VrVuOQPxUy8r +vNHhgAPlozyMuRyUKNStlHeCG46m+w3Pl+Qh51HrB9xP14Ju8N4w3dOFyK/j +srOvAj/cF0oQGvpTjFhnBK3EjdbDXza7nb/rlaG8c17TO44KQf+ytEVn6B0U +lfvb8sdnYRD31Vq5d/Iu4hh8C41hIiBfWLmXS6wKbQt0C7FW2gx09XM7X9tV +o4n5DBuBJjHgZWQVca1hofx99ICxh2LA3OyVWsrLQo4JvcyqLjFI1DlXbMrP +Qq/k1zyxGhGDo17rdzM3slC/lf+um3NiUByyQFuRYKFmlimhqrQFBN+OPItS +Y6GM05zT5hlb4Go+1VDBhoWMJz0jUvzEYXC0IPBVLgsZRshVGISIw5mDVjKr +eSykv5n9aiFSHDTWHluiFrKQ3gEzHbtr4uAU4mHpXMpCSkXqc3Il4rD7wfuA +nmoWEnD94VHLFgdVDccEs1YWejoRYT1yUAI8gUNv/i0LdYbvvBRnLgFZOkeD +346zULvoF9ZuhgSoznd/eDLBQo0GJzbmOUuA6PldnhkfWaiiUL/rVIQEnLgc +Piv9lYUSXHhhmZSADUqdq/0rLGQ+kaQsKysJems6KyckSfRUeWLIXl4S5m32 +hIZKk8gkQDsyW0kSljMP1AnKkugQ1+tn4tqSIC9kGaNGJZE+oRwsYiEJoR1q +iY4KJPrLvqOFL0oSvh1K3nGWTiLpoV+MuUlJqNC/ejTCmERZUmarGp8lITfD +O/OtCYkkTt4uPfNdEnw2OZrrm5FI7Lvh8syKJHB3d0hwWpBISCjt9sctUpCt +Q9fwZpCI21Tt05iRFLjW8IQsOpJo+qHzhc67UjD2UUJ6OoBElOQRz8QaKQir +nuXaGUQiawdzhnWDFOyu3ChzIZhEzYu6Sm87paBKo+/ThlASpagKD/18h+c/ +EvVTLJJEuzIeKChISsON86nTz6JJdM1Tuu/KVWmYr+1wmblBolbtlHqTBGn4 +E+zPw5FNogUevkLhNGlQW61nC90k0YncuZCcPGnITH6urXqLRFpDXbTaRjwu +EpBjkU+isT2hwRPfpcF7qttCv5xEasLDMvsdZWDGU+z+wD0SvU94H3XdVQbO +r/Rb3aonUQ7/zw8fvGTge7eDm8d9EgnyiJPXQmTgr7jbCz8b8P8vHDccTpaB +hs7mTp4HJCpij/mcapeB/QJsu+ftJLI/PjvY0IW/r9DJjOkgkejwis6GfhnI +5j5sofeIRFF9FO5/xmSgv+6U1o3HeP1tThm/F2Tg4oHSfoMuHL/SyQfM7bIw +LRgQb9VHoiH5BflxdVmw9ffKmsWOz1sbp7VTFmjm2ooxz0i0lKVg/VJfFsrD +xFrr+kk0knDqI81eFoKKM2c4h0iUGjAjVJcoC/mioY4WIyQy/voniO+6LLjx +iwYOYnOd3jBqmy0LLk5P+RkvSXTGTb1otUQWahV8Hli9IpH5cT9do1ZZOMbr +a4LYJOJH807sOVnQqXwk2/eGRCH7FPnqlvB44CBj/1u8n/vtKpmcFIjzy3hW +i912qHVJfyMFBJbcU67/j0RhRxJSy5Qo8MZD9TC8I9FH6xbdSxoUqLb8cacY +2+bo3Bt7HQpkFTWbC0yQSNP+uIqQIQV2mcW492F/ct3aEexEgSQ3xVn99ySy +9TjmZeFBgbmmfZeysTs944WVfCkQfuj+ie/Yhb7f/h4Lp8Bln+X5rA84PqFN +C/szKVBWpJLy4iOJus59vSmTS4GGxAp/2hSJdCLl9v8sokBIz0KOF7bopVhm ++T8UiHSUH17EfnqNoSjch9efEP18ZZpEesyY3unnFJDW+i26+xOJSpMbAtvZ +FOjxr807i305ndp6dpoCLSbahVPY3zOt3S2/UYC1P0+S+Izjnx29XnmRAnRm +yhtrbNlnCypfuAjwdLewqcdmWApx2K8loF2phW8K+9rA9sHOdQS0Vv7h3zKD +4z9kH5ovRMCvT0ocPtgaNsGmG0UJEGc9mEvH9njBpIRvIcDb3FunGXv4ZVsH +Q5YAh/LjdbyzJFpvx85soxLgYbjv63ZsA/a8l/pWAnSCEsONsc/9vRHdVCRA +aOd1u1PY5GvFTetUCOhoLUu4ij3lqD8ZpE5ASRwhko9N/M/u3rgmnm+3+ecG +7MR3iQ6NugTYK9Cyp7E7XEo1tu8h4J/n/n6r2L8nW3nSgYBZm76bm76QiO4+ ++oLLgIDOgAQZeWzPjz/KfQ8SUKjK/YOOnXdqQyTbmADf5quEPvbItIKlkTkB +kZk+BebYQt775OssCQhwE444jn1wxvYnjUGAlMCju87Yt0QvDZ4/RsBiTKqY +J/aPXXeq2HYEyJf7vPfFNj45GK/rSED/gXKZQOzbccvu6c4ErLrdaAzGXmDJ +Gcy5EmBgynx4FtvspQlhcYqAPvc3mv+5kCPwd4U3AZqOY/xB2EsKN0fWnSHA +SmDMxA/b4nB7jVsAAaYhmgte2MXBn5MeBhNgNqnB74r9O0f0NBFGQEy7eow9 +tlXHbqOICAIEGy6cOYJd/tll66sLBJTdDn1oiM0hmsCpfZkA9nnfi7rYNrtq +x1KjCSi9/m+5EnaF81j91zgCLluWIElsrrg16WaJBGgz0oAP+xhL1b88mYDG +wKG7P3A8KkcY5rzXCVCta4p+g72GI1LJJZOALMvi3k5se4Xita3Z+LxVT0RV +/3cezHvHZXIJ4DnTV5iO7ZAjm/2iiAD1wDV0B+yadsOzWmUEpH1cyUXY/J99 +rJIrCFiW5AynYP+r90DA5B98PndGRr3C51NoxDG8uQXbfXlgD7bbavQxqXYC +FFNetm7CbtxWrRXymAAXzyjae5wPp4I4ZjR6CcirzdSLwW7blPd30SgBTbvy +++pxvonrPdHleoPjz5NrE4Xt4/Rts+M4AZYRWkeMsKWq9/WKTxFgvj6tdADn +c6DZ+N5rCwS8bZNgD+B87wrkl5r6RUD5RK8wE5u4qfnzwB8CbqUtNBth90xH +Va1yU+H5mg0X7+N6si1GjggQpsK4VFhlLK43I20unLYqVBhS6Fh9jevX132v +JCPUqbA1TlMkFpu39bDWbU0qGKfyD2tg73yg5/5ehwon/6fmdR7Xw7QGoR7/ +A1RoaWoa5R8n0eGaxsx4ByrI3xKUfPca7w9dk6x0osLTzXGHQrAjyZLufhcq +UH2PKAtiV1SnrGzxokI9g2PjjjG8/3c9XArPUmHPl/NHPUZJ9KhIdEdTEhW0 +Y75oZr8g0Wv5OKO3qVQw8wnulsKeL1h15s6gQtfCIZnsYRLJ509fN8qhwkG/ +zbPXn+N+dqtl+XkZFba4aZqFD5Job4b349k2KtRtFjUSxP2qNqbdgZinAkPu +VNgu3A9LjbvFoxepoLJ2qeoK7pdZggMDM8tUKHzwr1/vQxJdSHpj2MBFA/ET +ntl2bSQyzVxSsxGiQWF8bKoL7rfjJTtW45Vp8MxJPFgD9+sNj2/m/nSigV1u +DO/9OyTijC047uBKg6s8UhnDuN//MC4X6fCgQTFnacu3MhK97P03OsWXBnTR +oHdypThfhwd8VSNo8OWcXuDZQlzP3/PByUwaNB4a3crG9wu3NUFve3tpcOUq +69OtaySSpDx5sdxPAxHNTfl58STq1ZHpU3xOA9V1L1QK4nD8vDuaokZpMMPH +35ofQ6K1g5uzd36kgRP18mzqZXxfuF3HuMUpB+uG41l7w0k0sWux67SWHCxe +vBt2z5NEJ/3P1QpmycFONefgIwZ4Ps3Xtdtz5KDw8MYSkf04ft+hzvC2HASe +MOob3Eeiar+1/14oloNjLa95LRGuH2eS7/0g5aBg6yc5pEeidN+SBna3HDQp +FtlOq5Poifdga8UfOUitr3A4j++f6u7KvaZO8rC9o6f/3mcW6tukIhCkuxWm +tNZY3Q9noYbKqGwV7m0gnB9isILv9+c4lSyejm2DuR6RzOaz1YifHXbIp0YB +lLbFC1S0VKHJYmpabrgiRE4dE6xJq0RpihI89Yzt4FxqtOE3uouSstweOxFK +YDWqydu6cAfZpv3dK/hBCYbD+S5FVpSjRYOiX7nNyvBjfZLZSyhD7yb1Q9qi +VSDkypy9/acSlL9HQ6rHSRVU+EKbC0KL0d0rQcLuqmpwPfpGv4FcEYpmnDTh +nleDl4zpW8dGCtBf7Lyy6B51EHUoy28MyUeZ27Pv9pjsAPakD2Wbbh4635KQ +aVK/A2wnHBXSBnORmRSjqEteA6QX77mvtc1B+3we2wnHakDKzXubzOSyUa60 +s/zTeQ0QNS+wXh7JRPIPS9LN7TSBlT4vrtufjpJU25QGmjXhL9E9M5azacht +jqf/iRIdBE/x9FZzpCJn1ncilkmHYPNG60KLZOQdZfXbOJkOEQshVceNklGQ +Vc0LwVQ6vAhoVRXWT0Yx80GJSel0OLeUmXaVnowqdX8tZ+TQ4ZtmO1+8WDL6 +1bo6XHyHDtMiy4FL7CSUNCCY0P6YDjtiSrL8vZJQVsFpj6tP6PCI8KR7uySh +gsDe/Ye66SDZp/zZ/e8kVCeWtNTdS4fkOvkm18NJiG0r4jH4nA7dTfIvw+hJ +SOGdxP7xd3g+r601mxeZaEdNmGzhJB2Mmd7tptNMpHdl9JfrBzp0+CoJxbCZ +yFQhp3pqmg6uaQPHBFqZyN+LkP32jQ5acsrFBnFMFL774i9yjg6sXZdic8KZ +6Mr68aHAeTq4+AwULfkwUWZVQfziIh0qavhjWq2YKP8Cj/v9JToMJJiaKRsy +0R1LV/3w33SQXq9tfEOHiWpoj2T2rtDBWyQoUkCZiZrntv1aXaXDwofqqYsy +TPR/3fho0w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07396648907096998}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, + 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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, 20}, {0., 0.07396648907096998}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}, + 3.9921321969265633`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"04a0c3bb-eefc-c445-9ee1-3335f5ce9469"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L130", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellLabel->"In[99]:=",ExpressionUUID->"2efb0a57-1e82-4941-9ddf-43034c8e204d"], + +Cell[BoxData["14.630632108610374`"], "Output", + CellChangeTimes->{3.9913453868532257`*^9, 3.9921321969857655`*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"c151dabc-8f36-cf4e-a7a2-5c1f36ca323a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L130", "=", + 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", + CellLabel-> + "In[100]:=",ExpressionUUID->"b7e3ddd8-e22a-794d-b607-7a48a064fd4a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2906476283740386`*^-260\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 100, 1066, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345387062414*^9, 3.9921321972367344`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"2a8f8c49-b681-3c43-ad09-4456733d3f8c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.4449015662488036`*^-270\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 100, 1067, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345387062414*^9, 3.992132197270733*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"7a0c604b-1819-1c41-a7d3-9aced0113b2f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.606386383888603`*^-280\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 100, 1068, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345387062414*^9, 3.9921321973024197`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"0c290fa7-3170-ee44-a477-d652c54cfbab"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 100, 1069, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345387062414*^9, 3.9921321973233643`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"633c278f-0845-b040-a3c1-c1dcf6fe85b6"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk41NsfB3A/KhQKKUuRYRb7mrJMn08RoWhBSFdESVS2pG4Zk7VooRAV +yjLzdZOlEIpSlG5FCakoSwqRLFmS37l/zDPP65nnmXM+55zP+xxlz8PbvQUF +BARmyee/74mOZ49Vz2avoxcmTvXZGqxrvi4btr6NC//M2Fn7lkgCyrzylG1L +BA/r2qsbSpTh6FaqVajtBvAPTMyql+iB5NDyxKnWYpCCeLElJeuhs8ru8Fjr +I6g0jRWrK94Glqr9H0daX4P54gdTBUUeMNW65vKP1i54oWv1bNetAKg1z8tu +ujEKuiG9N/k7ubCi894XT81ZePawbOMfybOw1M+dEjYXwsEcH0nT0ouQqGdZ +aecogn8m1un0LE+Gd6m6NSNLxLGAv8b/lWAanM0OfyUoJ4m/06W/nhC9Dssv +dcclXZNGc2WvP/s7MiHGwXrd6wkZZJZobNxz7AYEGWe5P+PK4t5Lq1WdFmeD +xfD08UPd8njNv4te750DEWbbPOTXrkTPqM4FDy7kgknBlTunqpXQ4H9NBRSV +BxatL2eHniphuKK0YGBBHtgJzLNyf62EEoqzn4yK82Dv9kPvoFcJP7Js1t+7 +lweWJ5TDOfNXYd+VA7GZT/PgiNLEzfUaq7Ccxlg+1ZsHj/dnfK89ugoX294L +b1Lkgd/kCOepuDIeoXfRFOJ4YBKwb9kXKWU8aJAcFRvPA5H+9nwhWWXcH80V +GD3Pg5z3tS3raMo48/DbuupkHnQ8uKx510gZ1QJdPxpm88A+yrgty10ZdfPb +r116wAN9qQidE0XKGM7eacAY4YHA2fHHqaXKqH1uJM1ojAcvhXxdSyvJ/38S +VLD4xYOD49ujRp4oo2RcmZfTLA+y21Tf729Xxot3Hik5i/JhWcbTaAchGv5M +msHGVXyY0ljSoeVIw7ULTxQlbeHDxDX5CANXGupEW/NNtvJhbDFd1didhn1f +37d0bOfD0Kixr8UBGkZWlb9RdOZDV+XeCdeTNGSOee086cmHBtsyidgcGs76 +VWbeOcqHtIN/Qdc4Da2q+xni1/iQ8tGnq2+ahsl3F8nsyuDDJfugqO9zNJRy +t2DnZvHhnEHs80lRFVwowjMzzOUDd6Zo52JFFRw+IPhb+zYfDp6df8TMUgU5 +L3uzM2r4YJb/T2ZysgqeGkz7degzH96vys/YmK6CBp9/vdjQzYfjyfzrYxkq +OOeyDZf28qEsIvfqdr4Kxk7enbr9lQ/6zpmpElUqOHj51OOGYT6ozb90Ifqz +CoaHTvckzJL1cj/BOaqpiqWPPCptl1NwtzksnK6nijVJi4PeyFLgYHPsVPNq +VfyYvvGFszwFiatD/tYHVXwypO/rtpICcbHDx4a2qaKsAHezlQoF8+55HtkX +qoo3u+L68rUpGJGy2eP0SBX/+lOgVWxOQZsfrdG3XhXz4he4iG6koKZuGsL/ +VUWbksAnuy0puHA8X4nXQhz41fPPJgp0u8Q6p/pV0YcvUKFoR8Ghole7r0nT +se+RDOvDTgqcFvFeFMnScQv3/TlhFwrWeXPYdSvp+ITyMdN1JfOT01s5zKRj +UJyjf5gbBf9wEj+gGR0jwyZ1B/ZQ0G/vuKvHi448uX8vbT5AwWu+1vPJA3T8 +Ynr68mZfCiqEFpiKH6bj2t/0buuDFMSVlcobhdFRKLNun5k/BSwl2faYBDoW +nSuV/18ABfuH2p01SukYEfvsgugxCuw2lTyFSjq+cpi40EFsdOPsWocaOjpH +ZPUUhlGwwMlM9mQDHYW5jNgtJyjIvX+t9WUHHRduGni+7xQFPfF7nAKFGagn +U50nF0nq79ek6Yox8OIihZflxL+spr5/X8LAaFv9XMcoChYKJUYdkGegs/5C +/9hosn5htXf2aDFQsOSu++tYUk/LeY6iPgPPfAJF9zgKzA3dNn8wYmBxwN8X +vxE7DY9170QGvlU+l/LrDAUnvRnS9jsY+IpToDkZT+Zb+7NDzJmBV/290gMT +yH6tqqYa3Bho5N/6sJ84+/3ODZb7GLjzfvia5nMUNGyLC2CHMdBTpbzx7AVy +nm47smdOMrBsoYHIGPFHMZroPS4DnwvGTbtcpOBHfUWmYTwDpRtdJZUSKVi2 +bvCVRgYDXVXKpM4lUZCZXp7+7SYD7z9Q0+whVpuK3J/HI/Uc4QmtvUSB2Z2V +c7RiBs7o+gy1EddJ9jd8KmVgiHCYIOMyBVsPlyZfr2RgwenVLUeI96rba8s/ +IfXpOjyYIx6MUZhufcZA4ZOxb8yTKTja2/fk8ksGOuSIUVHEZzI5uyXbGLhh +KP+qYAoFhcuK40UGGKi5pv/mZ2KT4FPOdcMMjDSAV9KpFNQ22ahGjjFwibVJ +tTlxS3x35dwsA/9Yvxm6Sryn/3bMfUEmNujY6NQRf7P6e8cJYSY6qcgZfSf+ +LSgzMLGEiUrmwamGVyiI3vO59I4ME4ep92MOxIsf3OIGyjNxf8o2uSDiVIXj +drpKTIx0sVhwnpgWZik/pMLEqjhaFY/4nxapL/ksJt4X3mVaQ2xk2Fl0QIuJ +ftNukW+Jay7mn2TqMzH9VUrKV2Lr4VDrXiMmTpieCJkiXqGnGC1ixsS7H+LX +iaZRMBT4+JHGeib+7O47soz44R3fOTtLJgbEKogrE1+aWGIWaMvETx5l0mrE ++9aWHbu8lYkhPrZR2sTGx3ffLXdkYufYfk89YrEqoZ/vXZnYW30t/z93zPK1 +59yZaNl10kOHuBC2HqR5M/FM85VIdeLTERN5G32ZmHvotIwKsVPt1R6fw2S8 +vn+XyhGz5psrxweTelpETosRT1t+2307jImiug17Zkk9L2LPp70+xcRZq+yC +AeLMhtWt46eZWNyo7t9KHCj2QVoujonJ7SNX/1svCzvuVrNzTJRoTliXR7z8 +AivBPYmJpnFJ288S9ze9fMZNZeITldR3fsRV0iELcq8xMUtdr9mW+Jyjgvmz +G0xsihjbwCL2SHkYPpjHRAPfYwxB4gUKElP6xUxc9XCFXQHZ/za3O6udyph4 +K/xgEoc4/7prYFgVGf9wq/1W4q20vIHqOib+Dtyv+5WcP5rXFlb3cyaeulvl +WEg8njPqtaCJiWaRF8dCiNPUsGPzeyYuXbQqa4qcZ7+DX+SPfGLi23rxwjJi +uBW/M6mXjCfXbRJE3KP7rvHdMBP7vArrukh/aK8NrN03j4XR0R/qb5L+Ejgu +K3BGlIUzHovqtxC/qXxgdkuChWPFglbjpD+PwaLSUVkWht97+NyMuNYym8fR +YqHQzbdTt0i/J8fa9N7UZ6HOwrQlFsQ+DT+U69ewsOjVylutJB8k7Njp4htY +uG9Xb9iv8xQ4O7YkpDmxsDxyabAcyZfBvSJBd8JZON27MKyP5NfQdYv71ZEs +vPfMrsuZePgdR/h5HAsbJ/73s57k30/7qfTPSSy0TFATzogh+Wna/1iCx0IU +LJXTI/kpuPTfZQcaWXhjebhvbzi5z+xFPILfstD887tIPeL5Zyzyw9tZGFKU +ZH+C5LOIwH1I7mGhZwQ1KXySzHfwlk/tJAuzUpXy5x+nQO7x+YqVymq4N71f +KSmIAvm55/PUGGroKXE6viKQ9JOJiL2hhhom8EpKOsn9oVjI6bZZrYbl9iGG +KkcoUL0aIHbMWg2j4oskz/uRPA/e8dfrADXUfcx7Me1FkfftcsGYR2oYVrNh +iOFA8sPTimdar4a+JlHO8jsoiM8KtfvxXA1Vhk3fL9pO9kexLc3lrRo6z5hq +frMn+SN3xUDzqxqqZy4US7ClIExCwbtJXB21LK7C8Q0kLyYVnyq4qOPq3ibv +IXKf26+xP9S4m/zeoz6Wo0XWMyR8aZSnOnJD5/7ZpUn6ebRzz9BBdUzo3Z/5 +UI3k7/fMqZpT6rh01Ol6qCoFnV00jX3Z6njeFY/Fy1Eg9YJxrnBYHWVi8d5u +QQr+DOvmNIypo5CUi3KlAOknKdOqnil1HKw+H7psjg+PnO37ZedpoIS7+0jd +DB+CekItI2Q10KP3mc7icT40zzz9s229Bm5Li+Ky+8h7TP3g4dFEDbQ4lNS5 +rIEPK2JvbzUy0kSt8EOSX+P4QBXcqp0y0cRvIdTmgRg+rH2bb3QfNLEkP7R3 +MIoPDjTeCgtrTYzP8tAfiOBDfFXm121umth4osq2OYwPMz8ucvy5mijUpr3Y +5QAf2l2CC7NfaqJ4fWSQnhUfUjWMl0jv18LO4CctG/7woEF+/erRi9rocMRs +e/hf5D294tEFnRYdtMjpLbiclgcSQjeCPbi66LXXpMO7KRcUI5TMXBh6OGK2 +50L0lxwQpbuVbq/Xw/UJ2uKyP7NBmy13O3S3Po4/r992al42BHZI1doIGGCK +W/Gk0cwNGB6Nd7RONcA4lTmfn3+ywEqnLs1ayxDnNTy5z52fBQ9GTWd+vTTE +bnEhbtj3DDikqd/e5L0a/UIfSn37dQ3YQ17NLqJGeKxpxl3/UzpsVJXdIn7D +CEdq1KwrJq4Ai3Pm2KM1a1ADFP1SVVJB3du4mt6+BpP/XrzptnEyeD/wibwT +sBYV024EaHMvQXVms9eIjDFuybC6tKAyEcZ4c790yowxXHeR9YDURdhLzxdN +22KCMFz8cZ7xeRhRTzIq/mGCjUGK8xLN4qE8e+bzeKwpxshwQ0Qy48DVQgVN +Fc1wrl8/87dJDCj4x9zTrjHDV0vqQpsbI0FmoV/Rlp1sHPmqX2NVyYVs85PH +f7iwUYUxcN2pmAv6J8+ZJ7mxMWPUlufD54Ldj8K3bR5sbOVtNk5O4UJ0y/jU +Xj823heX37Q8mAuTN8I3HI9g46JVy0oLtbjQbpr0JjefjduK23jsmxHgE5J9 +1bqAjQEfuv8UpkXARMFd78FCNsZYLwhgJkaAFK3tl14pG3P+zclbGREBtiIr +V9yvYaNo6outOu4RUNWc6/XmLRt/TMTS+xQiwEaiXOtoGxtDRKoF46UjoM3q +2YTsezbWLlgzZrAoAsYqBmL/+sRGcfcByYRpDmhl6d761s/GnopN6l7vOFDV +vv5o/Hc2CjUFpSs3ccBm6Q7Q+cFG2qa3K7qecmBfTEhT8DgbP2/UsfMr58BY +TXTa8kk22o2sml1dyAHudMreimk2zttkWiHI48ASQ77m7lk2uotNR77O4MB1 +/4rxuTk2Li9oc8tJ4cD/AajlQAQ= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk41NsfB3A/KhQKKUuRYRb7mrJMn08RoWhBSFdESVS2pG4Zk7VooRAV +yjLzdZOlEIpSlG5FCakoSwqRLFmS37l/zDPP65nnmXM+55zP+xxlz8PbvQUF +BARmyee/74mOZ49Vz2avoxcmTvXZGqxrvi4btr6NC//M2Fn7lkgCyrzylG1L +BA/r2qsbSpTh6FaqVajtBvAPTMyql+iB5NDyxKnWYpCCeLElJeuhs8ru8Fjr +I6g0jRWrK94Glqr9H0daX4P54gdTBUUeMNW65vKP1i54oWv1bNetAKg1z8tu +ujEKuiG9N/k7ubCi894XT81ZePawbOMfybOw1M+dEjYXwsEcH0nT0ouQqGdZ +aecogn8m1un0LE+Gd6m6NSNLxLGAv8b/lWAanM0OfyUoJ4m/06W/nhC9Dssv +dcclXZNGc2WvP/s7MiHGwXrd6wkZZJZobNxz7AYEGWe5P+PK4t5Lq1WdFmeD +xfD08UPd8njNv4te750DEWbbPOTXrkTPqM4FDy7kgknBlTunqpXQ4H9NBRSV +BxatL2eHniphuKK0YGBBHtgJzLNyf62EEoqzn4yK82Dv9kPvoFcJP7Js1t+7 +lweWJ5TDOfNXYd+VA7GZT/PgiNLEzfUaq7Ccxlg+1ZsHj/dnfK89ugoX294L +b1Lkgd/kCOepuDIeoXfRFOJ4YBKwb9kXKWU8aJAcFRvPA5H+9nwhWWXcH80V +GD3Pg5z3tS3raMo48/DbuupkHnQ8uKx510gZ1QJdPxpm88A+yrgty10ZdfPb +r116wAN9qQidE0XKGM7eacAY4YHA2fHHqaXKqH1uJM1ojAcvhXxdSyvJ/38S +VLD4xYOD49ujRp4oo2RcmZfTLA+y21Tf729Xxot3Hik5i/JhWcbTaAchGv5M +msHGVXyY0ljSoeVIw7ULTxQlbeHDxDX5CANXGupEW/NNtvJhbDFd1didhn1f +37d0bOfD0Kixr8UBGkZWlb9RdOZDV+XeCdeTNGSOee086cmHBtsyidgcGs76 +VWbeOcqHtIN/Qdc4Da2q+xni1/iQ8tGnq2+ahsl3F8nsyuDDJfugqO9zNJRy +t2DnZvHhnEHs80lRFVwowjMzzOUDd6Zo52JFFRw+IPhb+zYfDp6df8TMUgU5 +L3uzM2r4YJb/T2ZysgqeGkz7degzH96vys/YmK6CBp9/vdjQzYfjyfzrYxkq +OOeyDZf28qEsIvfqdr4Kxk7enbr9lQ/6zpmpElUqOHj51OOGYT6ozb90Ifqz +CoaHTvckzJL1cj/BOaqpiqWPPCptl1NwtzksnK6nijVJi4PeyFLgYHPsVPNq +VfyYvvGFszwFiatD/tYHVXwypO/rtpICcbHDx4a2qaKsAHezlQoF8+55HtkX +qoo3u+L68rUpGJGy2eP0SBX/+lOgVWxOQZsfrdG3XhXz4he4iG6koKZuGsL/ +VUWbksAnuy0puHA8X4nXQhz41fPPJgp0u8Q6p/pV0YcvUKFoR8Ghole7r0nT +se+RDOvDTgqcFvFeFMnScQv3/TlhFwrWeXPYdSvp+ITyMdN1JfOT01s5zKRj +UJyjf5gbBf9wEj+gGR0jwyZ1B/ZQ0G/vuKvHi448uX8vbT5AwWu+1vPJA3T8 +Ynr68mZfCiqEFpiKH6bj2t/0buuDFMSVlcobhdFRKLNun5k/BSwl2faYBDoW +nSuV/18ABfuH2p01SukYEfvsgugxCuw2lTyFSjq+cpi40EFsdOPsWocaOjpH +ZPUUhlGwwMlM9mQDHYW5jNgtJyjIvX+t9WUHHRduGni+7xQFPfF7nAKFGagn +U50nF0nq79ek6Yox8OIihZflxL+spr5/X8LAaFv9XMcoChYKJUYdkGegs/5C +/9hosn5htXf2aDFQsOSu++tYUk/LeY6iPgPPfAJF9zgKzA3dNn8wYmBxwN8X +vxE7DY9170QGvlU+l/LrDAUnvRnS9jsY+IpToDkZT+Zb+7NDzJmBV/290gMT +yH6tqqYa3Bho5N/6sJ84+/3ODZb7GLjzfvia5nMUNGyLC2CHMdBTpbzx7AVy +nm47smdOMrBsoYHIGPFHMZroPS4DnwvGTbtcpOBHfUWmYTwDpRtdJZUSKVi2 +bvCVRgYDXVXKpM4lUZCZXp7+7SYD7z9Q0+whVpuK3J/HI/Uc4QmtvUSB2Z2V +c7RiBs7o+gy1EddJ9jd8KmVgiHCYIOMyBVsPlyZfr2RgwenVLUeI96rba8s/ +IfXpOjyYIx6MUZhufcZA4ZOxb8yTKTja2/fk8ksGOuSIUVHEZzI5uyXbGLhh +KP+qYAoFhcuK40UGGKi5pv/mZ2KT4FPOdcMMjDSAV9KpFNQ22ahGjjFwibVJ +tTlxS3x35dwsA/9Yvxm6Sryn/3bMfUEmNujY6NQRf7P6e8cJYSY6qcgZfSf+ +LSgzMLGEiUrmwamGVyiI3vO59I4ME4ep92MOxIsf3OIGyjNxf8o2uSDiVIXj +drpKTIx0sVhwnpgWZik/pMLEqjhaFY/4nxapL/ksJt4X3mVaQ2xk2Fl0QIuJ +ftNukW+Jay7mn2TqMzH9VUrKV2Lr4VDrXiMmTpieCJkiXqGnGC1ixsS7H+LX +iaZRMBT4+JHGeib+7O47soz44R3fOTtLJgbEKogrE1+aWGIWaMvETx5l0mrE ++9aWHbu8lYkhPrZR2sTGx3ffLXdkYufYfk89YrEqoZ/vXZnYW30t/z93zPK1 +59yZaNl10kOHuBC2HqR5M/FM85VIdeLTERN5G32ZmHvotIwKsVPt1R6fw2S8 +vn+XyhGz5psrxweTelpETosRT1t+2307jImiug17Zkk9L2LPp70+xcRZq+yC +AeLMhtWt46eZWNyo7t9KHCj2QVoujonJ7SNX/1svCzvuVrNzTJRoTliXR7z8 +AivBPYmJpnFJ288S9ze9fMZNZeITldR3fsRV0iELcq8xMUtdr9mW+Jyjgvmz +G0xsihjbwCL2SHkYPpjHRAPfYwxB4gUKElP6xUxc9XCFXQHZ/za3O6udyph4 +K/xgEoc4/7prYFgVGf9wq/1W4q20vIHqOib+Dtyv+5WcP5rXFlb3cyaeulvl +WEg8njPqtaCJiWaRF8dCiNPUsGPzeyYuXbQqa4qcZ7+DX+SPfGLi23rxwjJi +uBW/M6mXjCfXbRJE3KP7rvHdMBP7vArrukh/aK8NrN03j4XR0R/qb5L+Ejgu +K3BGlIUzHovqtxC/qXxgdkuChWPFglbjpD+PwaLSUVkWht97+NyMuNYym8fR +YqHQzbdTt0i/J8fa9N7UZ6HOwrQlFsQ+DT+U69ewsOjVylutJB8k7Njp4htY +uG9Xb9iv8xQ4O7YkpDmxsDxyabAcyZfBvSJBd8JZON27MKyP5NfQdYv71ZEs +vPfMrsuZePgdR/h5HAsbJ/73s57k30/7qfTPSSy0TFATzogh+Wna/1iCx0IU +LJXTI/kpuPTfZQcaWXhjebhvbzi5z+xFPILfstD887tIPeL5Zyzyw9tZGFKU +ZH+C5LOIwH1I7mGhZwQ1KXySzHfwlk/tJAuzUpXy5x+nQO7x+YqVymq4N71f +KSmIAvm55/PUGGroKXE6viKQ9JOJiL2hhhom8EpKOsn9oVjI6bZZrYbl9iGG +KkcoUL0aIHbMWg2j4oskz/uRPA/e8dfrADXUfcx7Me1FkfftcsGYR2oYVrNh +iOFA8sPTimdar4a+JlHO8jsoiM8KtfvxXA1Vhk3fL9pO9kexLc3lrRo6z5hq +frMn+SN3xUDzqxqqZy4US7ClIExCwbtJXB21LK7C8Q0kLyYVnyq4qOPq3ibv +IXKf26+xP9S4m/zeoz6Wo0XWMyR8aZSnOnJD5/7ZpUn6ebRzz9BBdUzo3Z/5 +UI3k7/fMqZpT6rh01Ol6qCoFnV00jX3Z6njeFY/Fy1Eg9YJxrnBYHWVi8d5u +QQr+DOvmNIypo5CUi3KlAOknKdOqnil1HKw+H7psjg+PnO37ZedpoIS7+0jd +DB+CekItI2Q10KP3mc7icT40zzz9s229Bm5Li+Ky+8h7TP3g4dFEDbQ4lNS5 +rIEPK2JvbzUy0kSt8EOSX+P4QBXcqp0y0cRvIdTmgRg+rH2bb3QfNLEkP7R3 +MIoPDjTeCgtrTYzP8tAfiOBDfFXm121umth4osq2OYwPMz8ucvy5mijUpr3Y +5QAf2l2CC7NfaqJ4fWSQnhUfUjWMl0jv18LO4CctG/7woEF+/erRi9rocMRs +e/hf5D294tEFnRYdtMjpLbiclgcSQjeCPbi66LXXpMO7KRcUI5TMXBh6OGK2 +50L0lxwQpbuVbq/Xw/UJ2uKyP7NBmy13O3S3Po4/r992al42BHZI1doIGGCK +W/Gk0cwNGB6Nd7RONcA4lTmfn3+ywEqnLs1ayxDnNTy5z52fBQ9GTWd+vTTE +bnEhbtj3DDikqd/e5L0a/UIfSn37dQ3YQ17NLqJGeKxpxl3/UzpsVJXdIn7D +CEdq1KwrJq4Ai3Pm2KM1a1ADFP1SVVJB3du4mt6+BpP/XrzptnEyeD/wibwT +sBYV024EaHMvQXVms9eIjDFuybC6tKAyEcZ4c790yowxXHeR9YDURdhLzxdN +22KCMFz8cZ7xeRhRTzIq/mGCjUGK8xLN4qE8e+bzeKwpxshwQ0Qy48DVQgVN +Fc1wrl8/87dJDCj4x9zTrjHDV0vqQpsbI0FmoV/Rlp1sHPmqX2NVyYVs85PH +f7iwUYUxcN2pmAv6J8+ZJ7mxMWPUlufD54Ldj8K3bR5sbOVtNk5O4UJ0y/jU +Xj823heX37Q8mAuTN8I3HI9g46JVy0oLtbjQbpr0JjefjduK23jsmxHgE5J9 +1bqAjQEfuv8UpkXARMFd78FCNsZYLwhgJkaAFK3tl14pG3P+zclbGREBtiIr +V9yvYaNo6outOu4RUNWc6/XmLRt/TMTS+xQiwEaiXOtoGxtDRKoF46UjoM3q +2YTsezbWLlgzZrAoAsYqBmL/+sRGcfcByYRpDmhl6d761s/GnopN6l7vOFDV +vv5o/Hc2CjUFpSs3ccBm6Q7Q+cFG2qa3K7qecmBfTEhT8DgbP2/UsfMr58BY +TXTa8kk22o2sml1dyAHudMreimk2zttkWiHI48ASQ77m7lk2uotNR77O4MB1 +/4rxuTk2Li9oc8tJ4cD/AajlQAQ= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05195765705036574}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.05195765705036574}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk41NsfB3A/KhQKKUuRYRb7mrJMn08RoWhBSFdESVS2pG4Zk7VooRAV +yjLzdZOlEIpSlG5FCakoSwqRLFmS37l/zDPP65nnmXM+55zP+xxlz8PbvQUF +BARmyee/74mOZ49Vz2avoxcmTvXZGqxrvi4btr6NC//M2Fn7lkgCyrzylG1L +BA/r2qsbSpTh6FaqVajtBvAPTMyql+iB5NDyxKnWYpCCeLElJeuhs8ru8Fjr +I6g0jRWrK94Glqr9H0daX4P54gdTBUUeMNW65vKP1i54oWv1bNetAKg1z8tu +ujEKuiG9N/k7ubCi894XT81ZePawbOMfybOw1M+dEjYXwsEcH0nT0ouQqGdZ +aecogn8m1un0LE+Gd6m6NSNLxLGAv8b/lWAanM0OfyUoJ4m/06W/nhC9Dssv +dcclXZNGc2WvP/s7MiHGwXrd6wkZZJZobNxz7AYEGWe5P+PK4t5Lq1WdFmeD +xfD08UPd8njNv4te750DEWbbPOTXrkTPqM4FDy7kgknBlTunqpXQ4H9NBRSV +BxatL2eHniphuKK0YGBBHtgJzLNyf62EEoqzn4yK82Dv9kPvoFcJP7Js1t+7 +lweWJ5TDOfNXYd+VA7GZT/PgiNLEzfUaq7Ccxlg+1ZsHj/dnfK89ugoX294L +b1Lkgd/kCOepuDIeoXfRFOJ4YBKwb9kXKWU8aJAcFRvPA5H+9nwhWWXcH80V +GD3Pg5z3tS3raMo48/DbuupkHnQ8uKx510gZ1QJdPxpm88A+yrgty10ZdfPb +r116wAN9qQidE0XKGM7eacAY4YHA2fHHqaXKqH1uJM1ojAcvhXxdSyvJ/38S +VLD4xYOD49ujRp4oo2RcmZfTLA+y21Tf729Xxot3Hik5i/JhWcbTaAchGv5M +msHGVXyY0ljSoeVIw7ULTxQlbeHDxDX5CANXGupEW/NNtvJhbDFd1didhn1f +37d0bOfD0Kixr8UBGkZWlb9RdOZDV+XeCdeTNGSOee086cmHBtsyidgcGs76 +VWbeOcqHtIN/Qdc4Da2q+xni1/iQ8tGnq2+ahsl3F8nsyuDDJfugqO9zNJRy +t2DnZvHhnEHs80lRFVwowjMzzOUDd6Zo52JFFRw+IPhb+zYfDp6df8TMUgU5 +L3uzM2r4YJb/T2ZysgqeGkz7degzH96vys/YmK6CBp9/vdjQzYfjyfzrYxkq +OOeyDZf28qEsIvfqdr4Kxk7enbr9lQ/6zpmpElUqOHj51OOGYT6ozb90Ifqz +CoaHTvckzJL1cj/BOaqpiqWPPCptl1NwtzksnK6nijVJi4PeyFLgYHPsVPNq +VfyYvvGFszwFiatD/tYHVXwypO/rtpICcbHDx4a2qaKsAHezlQoF8+55HtkX +qoo3u+L68rUpGJGy2eP0SBX/+lOgVWxOQZsfrdG3XhXz4he4iG6koKZuGsL/ +VUWbksAnuy0puHA8X4nXQhz41fPPJgp0u8Q6p/pV0YcvUKFoR8Ghole7r0nT +se+RDOvDTgqcFvFeFMnScQv3/TlhFwrWeXPYdSvp+ITyMdN1JfOT01s5zKRj +UJyjf5gbBf9wEj+gGR0jwyZ1B/ZQ0G/vuKvHi448uX8vbT5AwWu+1vPJA3T8 +Ynr68mZfCiqEFpiKH6bj2t/0buuDFMSVlcobhdFRKLNun5k/BSwl2faYBDoW +nSuV/18ABfuH2p01SukYEfvsgugxCuw2lTyFSjq+cpi40EFsdOPsWocaOjpH +ZPUUhlGwwMlM9mQDHYW5jNgtJyjIvX+t9WUHHRduGni+7xQFPfF7nAKFGagn +U50nF0nq79ek6Yox8OIihZflxL+spr5/X8LAaFv9XMcoChYKJUYdkGegs/5C +/9hosn5htXf2aDFQsOSu++tYUk/LeY6iPgPPfAJF9zgKzA3dNn8wYmBxwN8X +vxE7DY9170QGvlU+l/LrDAUnvRnS9jsY+IpToDkZT+Zb+7NDzJmBV/290gMT +yH6tqqYa3Bho5N/6sJ84+/3ODZb7GLjzfvia5nMUNGyLC2CHMdBTpbzx7AVy +nm47smdOMrBsoYHIGPFHMZroPS4DnwvGTbtcpOBHfUWmYTwDpRtdJZUSKVi2 +bvCVRgYDXVXKpM4lUZCZXp7+7SYD7z9Q0+whVpuK3J/HI/Uc4QmtvUSB2Z2V +c7RiBs7o+gy1EddJ9jd8KmVgiHCYIOMyBVsPlyZfr2RgwenVLUeI96rba8s/ +IfXpOjyYIx6MUZhufcZA4ZOxb8yTKTja2/fk8ksGOuSIUVHEZzI5uyXbGLhh +KP+qYAoFhcuK40UGGKi5pv/mZ2KT4FPOdcMMjDSAV9KpFNQ22ahGjjFwibVJ +tTlxS3x35dwsA/9Yvxm6Sryn/3bMfUEmNujY6NQRf7P6e8cJYSY6qcgZfSf+ +LSgzMLGEiUrmwamGVyiI3vO59I4ME4ep92MOxIsf3OIGyjNxf8o2uSDiVIXj +drpKTIx0sVhwnpgWZik/pMLEqjhaFY/4nxapL/ksJt4X3mVaQ2xk2Fl0QIuJ +ftNukW+Jay7mn2TqMzH9VUrKV2Lr4VDrXiMmTpieCJkiXqGnGC1ixsS7H+LX +iaZRMBT4+JHGeib+7O47soz44R3fOTtLJgbEKogrE1+aWGIWaMvETx5l0mrE ++9aWHbu8lYkhPrZR2sTGx3ffLXdkYufYfk89YrEqoZ/vXZnYW30t/z93zPK1 +59yZaNl10kOHuBC2HqR5M/FM85VIdeLTERN5G32ZmHvotIwKsVPt1R6fw2S8 +vn+XyhGz5psrxweTelpETosRT1t+2307jImiug17Zkk9L2LPp70+xcRZq+yC +AeLMhtWt46eZWNyo7t9KHCj2QVoujonJ7SNX/1svCzvuVrNzTJRoTliXR7z8 +AivBPYmJpnFJ288S9ze9fMZNZeITldR3fsRV0iELcq8xMUtdr9mW+Jyjgvmz +G0xsihjbwCL2SHkYPpjHRAPfYwxB4gUKElP6xUxc9XCFXQHZ/za3O6udyph4 +K/xgEoc4/7prYFgVGf9wq/1W4q20vIHqOib+Dtyv+5WcP5rXFlb3cyaeulvl +WEg8njPqtaCJiWaRF8dCiNPUsGPzeyYuXbQqa4qcZ7+DX+SPfGLi23rxwjJi +uBW/M6mXjCfXbRJE3KP7rvHdMBP7vArrukh/aK8NrN03j4XR0R/qb5L+Ejgu +K3BGlIUzHovqtxC/qXxgdkuChWPFglbjpD+PwaLSUVkWht97+NyMuNYym8fR +YqHQzbdTt0i/J8fa9N7UZ6HOwrQlFsQ+DT+U69ewsOjVylutJB8k7Njp4htY +uG9Xb9iv8xQ4O7YkpDmxsDxyabAcyZfBvSJBd8JZON27MKyP5NfQdYv71ZEs +vPfMrsuZePgdR/h5HAsbJ/73s57k30/7qfTPSSy0TFATzogh+Wna/1iCx0IU +LJXTI/kpuPTfZQcaWXhjebhvbzi5z+xFPILfstD887tIPeL5Zyzyw9tZGFKU +ZH+C5LOIwH1I7mGhZwQ1KXySzHfwlk/tJAuzUpXy5x+nQO7x+YqVymq4N71f +KSmIAvm55/PUGGroKXE6viKQ9JOJiL2hhhom8EpKOsn9oVjI6bZZrYbl9iGG +KkcoUL0aIHbMWg2j4oskz/uRPA/e8dfrADXUfcx7Me1FkfftcsGYR2oYVrNh +iOFA8sPTimdar4a+JlHO8jsoiM8KtfvxXA1Vhk3fL9pO9kexLc3lrRo6z5hq +frMn+SN3xUDzqxqqZy4US7ClIExCwbtJXB21LK7C8Q0kLyYVnyq4qOPq3ibv +IXKf26+xP9S4m/zeoz6Wo0XWMyR8aZSnOnJD5/7ZpUn6ebRzz9BBdUzo3Z/5 +UI3k7/fMqZpT6rh01Ol6qCoFnV00jX3Z6njeFY/Fy1Eg9YJxrnBYHWVi8d5u +QQr+DOvmNIypo5CUi3KlAOknKdOqnil1HKw+H7psjg+PnO37ZedpoIS7+0jd +DB+CekItI2Q10KP3mc7icT40zzz9s229Bm5Li+Ky+8h7TP3g4dFEDbQ4lNS5 +rIEPK2JvbzUy0kSt8EOSX+P4QBXcqp0y0cRvIdTmgRg+rH2bb3QfNLEkP7R3 +MIoPDjTeCgtrTYzP8tAfiOBDfFXm121umth4osq2OYwPMz8ucvy5mijUpr3Y +5QAf2l2CC7NfaqJ4fWSQnhUfUjWMl0jv18LO4CctG/7woEF+/erRi9rocMRs +e/hf5D294tEFnRYdtMjpLbiclgcSQjeCPbi66LXXpMO7KRcUI5TMXBh6OGK2 +50L0lxwQpbuVbq/Xw/UJ2uKyP7NBmy13O3S3Po4/r992al42BHZI1doIGGCK +W/Gk0cwNGB6Nd7RONcA4lTmfn3+ywEqnLs1ayxDnNTy5z52fBQ9GTWd+vTTE +bnEhbtj3DDikqd/e5L0a/UIfSn37dQ3YQ17NLqJGeKxpxl3/UzpsVJXdIn7D +CEdq1KwrJq4Ai3Pm2KM1a1ADFP1SVVJB3du4mt6+BpP/XrzptnEyeD/wibwT +sBYV024EaHMvQXVms9eIjDFuybC6tKAyEcZ4c790yowxXHeR9YDURdhLzxdN +22KCMFz8cZ7xeRhRTzIq/mGCjUGK8xLN4qE8e+bzeKwpxshwQ0Qy48DVQgVN +Fc1wrl8/87dJDCj4x9zTrjHDV0vqQpsbI0FmoV/Rlp1sHPmqX2NVyYVs85PH +f7iwUYUxcN2pmAv6J8+ZJ7mxMWPUlufD54Ldj8K3bR5sbOVtNk5O4UJ0y/jU +Xj823heX37Q8mAuTN8I3HI9g46JVy0oLtbjQbpr0JjefjduK23jsmxHgE5J9 +1bqAjQEfuv8UpkXARMFd78FCNsZYLwhgJkaAFK3tl14pG3P+zclbGREBtiIr +V9yvYaNo6outOu4RUNWc6/XmLRt/TMTS+xQiwEaiXOtoGxtDRKoF46UjoM3q +2YTsezbWLlgzZrAoAsYqBmL/+sRGcfcByYRpDmhl6d761s/GnopN6l7vOFDV +vv5o/Hc2CjUFpSs3ccBm6Q7Q+cFG2qa3K7qecmBfTEhT8DgbP2/UsfMr58BY +TXTa8kk22o2sml1dyAHudMreimk2zttkWiHI48ASQ77m7lk2uotNR77O4MB1 +/4rxuTk2Li9oc8tJ4cD/AajlQAQ= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05195765705036574}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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.05195765705036574}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913457856953163`*^9, 3.992132862850773*^9}, + CellLabel-> + "Out[100]=",ExpressionUUID->"cb86e1ab-70ea-6c43-881e-8c53f62f4c65"] +}, 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[101]:=",ExpressionUUID->"3d764097-ec6b-e749-9f31-cab8832af315"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.05852149319637`*^-182\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 101, 1070, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785749161*^9, 3.992132862936081*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"9ead6d1c-335e-454e-aeee-dcf3978fc1c0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4099396795418108`*^-185\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 101, 1071, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785749161*^9, 3.992132862948082*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"5d6dcb50-60e0-7340-b54b-a39568045b64"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.92986350383249`*^-189\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 101, 1072, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785749161*^9, 3.99213286295508*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"4d7bc420-5827-3349-b005-4f4482eda6bd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 101, 1073, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785749161*^9, 3.9921328629630775`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"ac4a8133-e244-d542-803a-8ac1b553f090"], + +Cell[BoxData["14.630626268745216`"], "Output", + CellChangeTimes->{3.991345792196575*^9, 3.992132890612156*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"57fb25bd-55dd-f840-bef0-20eabb613a7b"] +}, 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.991847002744938*^9, 3.9918470078833466`*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"94c81ca6-5acf-1648-b9d8-a303cc71dab7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.159026064218062`*^-213\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 1074, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345792232563*^9, 3.992132890652132*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"c32fe16e-219b-fb43-9734-1fe013707da1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.190716555301694`*^-218\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 1075, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345792232563*^9, 3.9921328906601334`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"5148a9ad-7cc5-664a-84e8-592844450297"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.324778553845156`*^-223\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 1076, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345792232563*^9, 3.9921328906671314`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"f22cbd20-bfc5-574b-8252-d3525d3ef92f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 102, 1077, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345792232563*^9, 3.9921328906741333`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"7de69b8c-ab5b-1140-a4da-02371d510e1b"], + +Cell[BoxData["1.6449925215245895`"], "Output", + CellChangeTimes->{3.991345799137081*^9, 3.992132896058264*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"b6889da1-f351-0d4c-a787-4ed59abc1d8b"] +}, 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.9918470141153297`*^9, 3.991847018285223*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"d789fb78-c161-1741-b7b8-90fa3d585b38"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.159026064218062`*^-213\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 103, 1078, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457991730843`*^9, 3.9921328961082783`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"6380235d-d187-b84f-8c3f-cad0d188ae3d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.190716555301694`*^-218\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 103, 1079, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457991730843`*^9, 3.9921328961162643`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"b4cd341e-c44b-a442-bcf9-ce30b25ca416"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.324778553845156`*^-223\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 103, 1080, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457991730843`*^9, 3.992132896122265*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"0f5b78bd-3294-fb4e-8ccd-273f8b6216e4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 103, 1081, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457991730843`*^9, 3.9921328961292763`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"e02b549d-fbf5-c848-8421-3c88ec32f8e5"], + +Cell[BoxData["28.86017279030097`"], "Output", + CellChangeTimes->{3.991345804559931*^9, 3.9921329009547043`*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"d2e52c3b-e49f-4c47-9ff5-6c2de7e71f88"] +}, 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.9918470289577656`*^9, 3.99184703187117*^9}}, + CellLabel-> + "In[104]:=",ExpressionUUID->"98f8448c-bc27-4646-9fd2-f2c22cf9b4d2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.159026064218062`*^-213\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 104, 1082, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458046014442`*^9, 3.992132900990795*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"492fc68d-4929-5641-b00a-01359285ae34"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.190716555301694`*^-218\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 104, 1083, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458046014442`*^9, 3.9921329009986916`*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"c10bebde-685d-ae47-b7bc-baa1cc4bb377"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.324778553845156`*^-223\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 104, 1084, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458046014442`*^9, 3.9921329010056915`*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"126c7962-f6a3-6146-ba37-cfb5eb4e7304"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 104, 1085, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458046014442`*^9, 3.99213290101169*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"abc7d5cb-e406-5d48-a37e-f962ff210587"], + +Cell[BoxData["17.03323396976728`"], "Output", + CellChangeTimes->{3.991345807954506*^9, 3.9921329038968296`*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"6ca19365-e471-a84c-a932-b67988535089"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991847036891796*^9, 3.9918470411375484`*^9}}, + CellLabel-> + "In[105]:=",ExpressionUUID->"c0718b2f-c4a4-934b-afa0-c67e8ff1bd9c"], + +Cell[BoxData["0.0741935084553227`"], "Output", + CellChangeTimes->{3.991345807987507*^9, 3.992132903922842*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"181d9e35-e4c9-6244-b250-1170d6521644"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991847043896475*^9, 3.991847046265915*^9}, + 3.991923721144022*^9}, + CellLabel-> + "In[106]:=",ExpressionUUID->"73fa861d-79d1-6043-8b49-ac6d11636734"], + +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[107]:=",ExpressionUUID->"6c38f559-2389-4242-bc4d-38979252b0b4"], + +Cell[BoxData["9.475403836278197`"], "Output", + CellChangeTimes->{3.991345808020666*^9, 3.992132903934372*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"24871a09-0837-2c4c-bea3-cf6f45112bce"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"e3e9365e-1e6c-9843-9e29-11080a5f4701"], + +Cell[BoxData["3.0375207082310656`"], "Output", + CellChangeTimes->{3.9913458080616665`*^9, 3.9921329039428673`*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"7f3fca5a-a421-f243-9a79-f3958475875b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[109]:=",ExpressionUUID->"123e61eb-c41d-2242-a32d-5c1fffa2cf57"], + +Cell[BoxData["28.781735371547104`"], "Output", + CellChangeTimes->{3.991345808188246*^9, 3.992132903953867*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"20693df6-d4fe-d946-8f4f-b1aed2f90c70"] +}, 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[110]:=",ExpressionUUID->"79eeca66-2446-f741-8700-944472de348f"], + +Cell[BoxData["0.007857976414762364`"], "Output", + CellChangeTimes->{3.991345808220566*^9, 3.9921329039658775`*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"5dda040b-0459-be41-984c-b76b0b167e48"] +}, 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[111]:=",ExpressionUUID->"9790a07a-bad8-674c-aada-41e3d20aeff5"], + +Cell[BoxData["9.997457813299842`"], "Output", + CellChangeTimes->{3.9913458083195686`*^9, 3.9921329040475426`*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"dfa00e38-b7b4-b74a-b572-5a173cc68127"] +}, 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[112]:=",ExpressionUUID->"cd927d7c-f3cd-534f-b509-5ac03fad6276"], + +Cell[BoxData["0.013860369788846232`"], "Output", + CellChangeTimes->{3.991345808334568*^9, 3.9921329040595417`*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"b88e2843-1de8-944d-bae4-57f702400b3a"] +}, 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[113]:=",ExpressionUUID->"6d1a5282-01c9-b240-a0b0-7e2aa562e7f8"], + +Cell[BoxData["7.527617306712805`"], "Output", + CellChangeTimes->{3.991345808432392*^9, 3.9921329041395416`*^9}, + CellLabel-> + "Out[113]=",ExpressionUUID->"0c257df5-6912-f548-ab3d-e542a8ebf573"] +}, 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[114]:=",ExpressionUUID->"b3f5d88a-186d-e74b-84a0-eac59afb71e7"], + +Cell[BoxData["0.39889500278443296`"], "Output", + CellChangeTimes->{3.991345808448488*^9, 3.992132904150543*^9}, + CellLabel-> + "Out[114]=",ExpressionUUID->"54a3c398-c96b-5e4e-98db-8c8ccaec9552"] +}, 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[115]:=",ExpressionUUID->"712c99dc-f88a-984c-9ea1-ddb538fa1846"], + +Cell[BoxData["0.6011049972155671`"], "Output", + CellChangeTimes->{3.9913458084773808`*^9, 3.992132904161764*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"b3873d6a-d46d-e448-a2a6-ae97b0ce2748"] +}, 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[116]:=",ExpressionUUID->"46415a4e-0839-a640-a9be-83fc8d482c42"], + +Cell[BoxData["0.2397777795380402`"], "Output", + CellChangeTimes->{3.9913458085134735`*^9, 3.9921329041737633`*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"21c026bd-c902-2c48-b902-1f0845978b14"] +}, 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.991847118583315*^9}, + CellLabel-> + "In[117]:=",ExpressionUUID->"33a64b79-213d-c445-8c32-436b16263096"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.798893773386419`*^-206\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 117, 1086, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458085463753`*^9, 3.9921329041977615`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"7f1e361f-c687-6a44-b166-11094a5ac237"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4775395858591666`*^-210\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 117, 1087, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458085463753`*^9, 3.992132904205761*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"3995c473-f58e-7546-8e9c-9d045b1f6fc2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2109977013120764`*^-215\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 117, 1088, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458085463753`*^9, 3.992132904212763*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"ff176601-b2ac-1d4e-84dd-b9118765b625"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 117, 1089, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458085463753`*^9, 3.992132904220764*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"387fa5dc-05fc-8e40-a405-385c724fdcde"], + +Cell[BoxData["9.997457813299826`"], "Output", + CellChangeTimes->{3.9913458125059433`*^9, 3.99213290726392*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"4b525ade-6d6a-3643-9a56-de3169c0c634"] +}, 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.9918471223197117`*^9}, + CellLabel-> + "In[118]:=",ExpressionUUID->"a558e928-6d30-db4d-81da-8e12b46e0cf1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.798893773386419`*^-206\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 118, 1090, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345812542961*^9, 3.9921329073011227`*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"87f28515-3bb9-444d-b389-1588cdd5211d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4775395858591666`*^-210\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 118, 1091, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345812542961*^9, 3.9921329073100166`*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"e9eaaf52-b7bd-304f-b93c-cbe56932695a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2109977013120764`*^-215\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 118, 1092, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345812542961*^9, 3.9921329073170185`*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"fbb6398f-1b8a-8a48-a24f-702ad013bb7d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 118, 1093, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345812542961*^9, 3.9921329073240185`*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"350f4a3f-42cd-ef4d-8cd2-aadaa2d4d65c"], + +Cell[BoxData["7.527617306712796`"], "Output", + CellChangeTimes->{3.991345816415531*^9, 3.99213291031196*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"42c623d6-1380-7a4b-857e-702021aa5d8a"] +}, 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.9918471264328136`*^9}, + CellLabel-> + "In[119]:=",ExpressionUUID->"c2f625be-331c-a24f-ad5b-6daaa9131a45"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk0VmsbBnAJlamQKVGGFKVkKsPXfccrs9CAkvQO25DMSVIIaVKUBudU +VESiMlY4UlTCKaX5UPuVV0IyC7t8jz/22uu37rWvfT3PXvtRZwe78YSFhIS6 +yDV9D32xcum95hfr3s8y3XV7lIF1fdnGbFYBpFXzjxYS05km6VqsKvjc3T2V +T+zC/VdM0vAJBOzZ8vQGcVFUbK0oqwmuV2m0ZhEfe6pUE5v/Cuo6Nq/PIH7Q +HHqFMXgLdcl9I6eJuz81xOyv/AAebYPjicQLBJrbR61aQaiE5xRF7PAzxjS8 +6QvQux36/YmrmW6JqHw+/BC62e5J/C5e8UB50Fe4J5SoZUvcJ8bqHjYQwJnT +7WVGxGInQzwNxzohwrfx/CJiNZnL9aGVXfDzvfWz2cTOKqM3+qx6YXnhXMV3 +IwxQWRoKerP7YMHlEJMK4tglG5N2N/2ECfMjOZeIPyi+WR2RPwBFc8bDvIi5 +2wL8z54chKbgwFemxP2XhK4WBw2B2VBNrDzxbA29eQMGIyC0ApueDTOQzq21 +mSc/CodrkwKuEC/O9YxdNTYK1yzaPcKJ16440ren8hcUz1iorUTsZ/KlqduK +gdEyj0SnIQaGo/aKiGv/hnwtxRwF4rhKCQud2X/g81C4wudBBi7i2lu+TVNg +Gefe40vMzalnheXPQN1AaR/fAQbyn56l41WEcUvXzNmaxP3fvGPSTgpjRQRr +Rls/AzG6IyV3g2biTuXZXQ7E6XfUNX8aiKJtBOeY/E8GPjX3Vv+5LoqeG/ZV +1/aR/oP3tknLi2FcZ651CHGBkfMZvTExtPVtsa/7wUDdg+gZgZWzMSPxiqFH +LwMjtS1fuqwk8eY5/HvVdwZkHSXnHaiWxO6AfxsedDGg/4aFUqZSSBmkzLQk +Dugoy1q9Uho/evilOX5jIES4Sf9/kvPwiL2klr2AAYHG7YGkURn8rnJh0zea +7A/VMOeloSw+MX6y0o1Y+FanulKoLA4qnlSo/EL6Gi5yy++Rxau9HySTPzOw +zSq1+AUth52aDn/PamXgJScsXLFRHgflJ6NuvWPgc+6pEz6zFdC2dNJ87C0D +vT35129aK+B1s0dz1xOLR3xtMa9RwLpnNd0vWhhgJW428ilTxMUNdZEtzQxU +ZJuM5GUqo/Lvft24BgayBRORZhGquCX3nENAFQO2W5I/hxeq4t4/um+OVpL8 +OrkNhZ2qWFpuVJ5TwYBR9gr5xZ5qKLyJn/zpPtlPtneJ6LpF2CzFDtAvY2Dw +J72vK2ExqnDp8JRCBuT2sEpLnDSQch8dkr7MQGe2uJ9LgAYqhXk7j//NwP3W +ZpUfRzSww1xdqv0vBrwcdyRo12ig1meTB7cvkn7LI90yDDRxQhbeGaWT93fn +9h9S1MLSzk3Rw8cZ2OwroWfPX4Kjoj6mrH0MQOQWA/ffS7ApxcldOJIB3aTM +NVxlbRxdKjpaHcGA0HVDy0Ou2lg3su+eYRgDhZ+3uxc/0sbFSuJbJfaQ/3Nr +QfyCa0uxrsrCJ5xN+rGc3nWzdbAVJIp1HBlQ0Tgde6JjBS6vD+y1VWGg6viw +zriwHtr6nzmTrEz6D3m+odT1MMHoysU6RQau1GnpWHrrYdAykWem8xnQ8K14 +/eu9Hkp2+T6cJ0X6FQiWUI0r8eRG+ZLQP5OgqqJGLfbUR90TNWwRehJW5ERI +ToIBdqRcN0u/MglXw7RcypqMsVfi2mUj+UlojoQ1iTmmuIKtde1g4ASoe791 +3hH4P3zfJvpYsnwceFPlt1X3Ix6uOn7v/dQvUOy5P0uRbYkGNk/+c9f/BRGG +Fq1ndFlYHu61RcNvDNg/mHq5bmscL/hnh3nWKBRahs/KfGmD0crxurVPRiB7 +OOBRQbod3jUQiYyfGIZf65X+rYt1wPG9i+DD4mFoE5o5wN/lhCfKT31N3TgE +QQuDU+M1N+L3pc7laWmDcNu/vuZckgsKXFePr20YgOgh5bHl/q74quNgnJni +AIzYb9j6bKcbmgdzGjJ29IPp9rT1AtdNaLtnRS3b5ye8Vr4cUGe4GZsGFdVl +9Mi5eCOhKm/ZFjSlb/9bM9AL92ldR2eprVjydthOtbUH1N70+0b+2Ipb+dEa +4f91g+G5tILrtDu62C2MFH/3HS6LDK08U+uBywxz/G8NdEH5+lWfkh54Yu+c +xqsXxLvg4prjMkz+NsxyHBepXfMNXv6Xc8Tw5HaMGdO60xbXCWVOl7RC4rww +68bmfkG9AAb2bBIK4u7AFZ4S6Qq6AhjZoOPXZ+WNbzL/qmUyOiDvx8df4SY7 +8X+Slx6KineAx9Uczg5JHyy5a7Co5dRXKCl22Dkz2QddI47kfZr/FUxVXo8f +G/dBh6LfSt6F7aBJ+3565b8LA7u/yq13bYcOid0bL33dhVv1F7n5jPGh+ZQz +x2YLG7vV91WmFPAhPSpTYm8zG0d3PP49weVDVfXUOMeOg0J7UWTGMj6sfmS0 +dqkDB3Uh/+jKpXy4Uesf2e3IQbtm+WNe2nxIq28ZDHHhYJhnxe8HWnygXuf2 +HHTn4FZWSWm0Oh9kOje2XeBxsNjfxUlOhcylsmoa4znYVLqmIUuaD3O9MNmw +goM2/xTN1x2jYfH8Zy8XVnGw93yhhO8oDfpNTkpi1RysKMxKzR6hwc1i+80P +jzjYvXMVS32YhvSFkY0Hn3OQ94bloj5Aw4K2W3PrP3DQ8ZzmT/MeGrS8FS96 +jXFQdmEy/ekLDaY+fXlJRlzsclwaU9VAw42M/nBnEy5aRxcuWEo8v2VwneJa +LiafFqw+85yGPuuxN3nmXLwZZNngX0+T80ZoRpMlFw8Xp11Ve0qD9JiMp6wr +F5n75fwrj2joSDGek7mHi0q+9pzx+zS4PlvzxjeYi9HQIBJOXC1klqkfysWE +iFrVH/doyAhfZ/w4gosaor/L2stpcPa02SU4wMX3EycOtZTS8EDL88Hy41x0 +Ldfza7xLw6nKGP/7N7ioV/Ri5/ybNOwxuGAalcdFN/19azLzaHC8WTRnbT4X +H3sJ4nSJxS903rxXyMWBR0N+lrk0JIW5dJeXctErfkbKvhwaYnS0dpc95mJ3 +OKiNXaUh4EJjYPFnLu5Z/Hi1w9802El3WoTRXNTKvmXY8RcNy5KEpAzauahm +EnrjIHFnmHFhkYCLoay9n4syaNjlnPnjbi8XOd+vX1h0kQYP0fCgOxNcVClu +WDbvHA024QtCChR4eDkBMqxP0/A484j9GSUepreuUBecosGiaVAragEPB5uE +9ZKI9Zc0frRS4yE7wL75aQoNyu8PWP23hIdCF6JYLidp6DFrUxA35mGg12Dr +gWM0nBbO+sd3Ew/FEhIuGyeS9a+SvOi0hYepxg/SBQk0JG6PCjN056H+kwnp +88RRpS5Lp7bxUPvs0ZO/DpP+1Iy082wezm/UuFUbT4NhA5v7JJSHRzfIhobF +0vA+bYmEZioPxxdOjq0+QMNtkPLrSuNhdUhtwmg0yf8xXFd4loeqx8XjK4kN +7OoOrb3Aw6YhkeYNxKeEOINOV3g494r5Q/Z+GjYEZ32MKuCh8gnXL3f20aCq +etRk3W0eyq02jD9APNwQfHbmXR4Ol21NtyG+pg1Op0p4qLN6izQ/kobfbW01 +1yt46BXywkWZuNRRJe9FPQ/74x5KZkbQcGJCWDS9gYchotqPQonZed27PJt4 +6GyR0ckinidSodLxkodBiRmJveE0BFZ6nB5/x0PDxELJ9cSauucjtQQ87K27 +ZD8VSsPE+4Mt3zt5+NomWPojcXMST/9OFw8fzla3KiE+xDfqNu3lYdaI4pQf +8aeLLTs2DvHQeobUo48hNJyZJWMdPYNCX6/xgOZgGqoG27ZHzKRQQz/iWiHx +t7b8sCBRCuOeU9QJYotSVhZ7DoWswtyztsSdPlGT9jIU2u61S3geRPo7Wsta +y1GYt9NQ7Rax+RpZHZCnkCsWa51CnCpVsNVQmcKnvqtNN03PK74UqahTKLuy +ulSwhwYqp6BeXpNCFa/Q4kbi1NT9X+YuobDaLNyimLiTkpMS0SFz320jcdNz +ORu/Xn0KhXNjJrSIK/7IxXYaUPhaf/e2ucSC7/Q52ojCUq+LGyYCaTCria59 +s5bCwMjc2lfEHYG31f5BCo3c/F2SiaU9Dhjfs6RwgamqbCSxqZWtYxGLwv13 +hX14xKeU2/fn2FKofcsry5r4vsid1Ex7Cg/tf3HGhPjrzwO5GY4U+gUFyiwj +XvtU/m2KC4UxgqUlksTsovaeZDcKfWSt3k3tpiHl0h3hw5spnF+ZlDRE3B5m +px/pQeF9j4NHW4mlvBVsQrZR+Mddv/UV8Vq7rzsCvEjeN7GqZ9PPLzp4wtuH +wm0bVRaXEd8Xt7/mwabwcJp7dsF03ojCAzcuhefXlJZmT+fxv750pCj0SNd3 +vTyd13S3c4MfhSfFmvafJ2bfO/gbAyh8/itpZep0/jX7+eaBFD7h7wg+Pp2f +orjcOIhCxmqTRdJ0flTH+lUhFIrc5p2LI5bkFnnohFFoWZEeHUO8ZuOhYM0I +CtXn0j1R0/lmDkdUIyns87b5vpf45BKly4pR5Pv7NYSFE5fPE5TIRFOYPex3 +NJSYP1nUIBFD4fAnDd2Q6fxvh/iihyhU+z3mHkxs8trh11Qshbp2XTLT/j8e +vgfk + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk0VmsbBnAJlamQKVGGFKVkKsPXfccrs9CAkvQO25DMSVIIaVKUBudU +VESiMlY4UlTCKaX5UPuVV0IyC7t8jz/22uu37rWvfT3PXvtRZwe78YSFhIS6 +yDV9D32xcum95hfr3s8y3XV7lIF1fdnGbFYBpFXzjxYS05km6VqsKvjc3T2V +T+zC/VdM0vAJBOzZ8vQGcVFUbK0oqwmuV2m0ZhEfe6pUE5v/Cuo6Nq/PIH7Q +HHqFMXgLdcl9I6eJuz81xOyv/AAebYPjicQLBJrbR61aQaiE5xRF7PAzxjS8 +6QvQux36/YmrmW6JqHw+/BC62e5J/C5e8UB50Fe4J5SoZUvcJ8bqHjYQwJnT +7WVGxGInQzwNxzohwrfx/CJiNZnL9aGVXfDzvfWz2cTOKqM3+qx6YXnhXMV3 +IwxQWRoKerP7YMHlEJMK4tglG5N2N/2ECfMjOZeIPyi+WR2RPwBFc8bDvIi5 +2wL8z54chKbgwFemxP2XhK4WBw2B2VBNrDzxbA29eQMGIyC0ApueDTOQzq21 +mSc/CodrkwKuEC/O9YxdNTYK1yzaPcKJ16440ren8hcUz1iorUTsZ/KlqduK +gdEyj0SnIQaGo/aKiGv/hnwtxRwF4rhKCQud2X/g81C4wudBBi7i2lu+TVNg +Gefe40vMzalnheXPQN1AaR/fAQbyn56l41WEcUvXzNmaxP3fvGPSTgpjRQRr +Rls/AzG6IyV3g2biTuXZXQ7E6XfUNX8aiKJtBOeY/E8GPjX3Vv+5LoqeG/ZV +1/aR/oP3tknLi2FcZ651CHGBkfMZvTExtPVtsa/7wUDdg+gZgZWzMSPxiqFH +LwMjtS1fuqwk8eY5/HvVdwZkHSXnHaiWxO6AfxsedDGg/4aFUqZSSBmkzLQk +Dugoy1q9Uho/evilOX5jIES4Sf9/kvPwiL2klr2AAYHG7YGkURn8rnJh0zea +7A/VMOeloSw+MX6y0o1Y+FanulKoLA4qnlSo/EL6Gi5yy++Rxau9HySTPzOw +zSq1+AUth52aDn/PamXgJScsXLFRHgflJ6NuvWPgc+6pEz6zFdC2dNJ87C0D +vT35129aK+B1s0dz1xOLR3xtMa9RwLpnNd0vWhhgJW428ilTxMUNdZEtzQxU +ZJuM5GUqo/Lvft24BgayBRORZhGquCX3nENAFQO2W5I/hxeq4t4/um+OVpL8 +OrkNhZ2qWFpuVJ5TwYBR9gr5xZ5qKLyJn/zpPtlPtneJ6LpF2CzFDtAvY2Dw +J72vK2ExqnDp8JRCBuT2sEpLnDSQch8dkr7MQGe2uJ9LgAYqhXk7j//NwP3W +ZpUfRzSww1xdqv0vBrwcdyRo12ig1meTB7cvkn7LI90yDDRxQhbeGaWT93fn +9h9S1MLSzk3Rw8cZ2OwroWfPX4Kjoj6mrH0MQOQWA/ffS7ApxcldOJIB3aTM +NVxlbRxdKjpaHcGA0HVDy0Ou2lg3su+eYRgDhZ+3uxc/0sbFSuJbJfaQ/3Nr +QfyCa0uxrsrCJ5xN+rGc3nWzdbAVJIp1HBlQ0Tgde6JjBS6vD+y1VWGg6viw +zriwHtr6nzmTrEz6D3m+odT1MMHoysU6RQau1GnpWHrrYdAykWem8xnQ8K14 +/eu9Hkp2+T6cJ0X6FQiWUI0r8eRG+ZLQP5OgqqJGLfbUR90TNWwRehJW5ERI +ToIBdqRcN0u/MglXw7RcypqMsVfi2mUj+UlojoQ1iTmmuIKtde1g4ASoe791 +3hH4P3zfJvpYsnwceFPlt1X3Ix6uOn7v/dQvUOy5P0uRbYkGNk/+c9f/BRGG +Fq1ndFlYHu61RcNvDNg/mHq5bmscL/hnh3nWKBRahs/KfGmD0crxurVPRiB7 +OOBRQbod3jUQiYyfGIZf65X+rYt1wPG9i+DD4mFoE5o5wN/lhCfKT31N3TgE +QQuDU+M1N+L3pc7laWmDcNu/vuZckgsKXFePr20YgOgh5bHl/q74quNgnJni +AIzYb9j6bKcbmgdzGjJ29IPp9rT1AtdNaLtnRS3b5ye8Vr4cUGe4GZsGFdVl +9Mi5eCOhKm/ZFjSlb/9bM9AL92ldR2eprVjydthOtbUH1N70+0b+2Ipb+dEa +4f91g+G5tILrtDu62C2MFH/3HS6LDK08U+uBywxz/G8NdEH5+lWfkh54Yu+c +xqsXxLvg4prjMkz+NsxyHBepXfMNXv6Xc8Tw5HaMGdO60xbXCWVOl7RC4rww +68bmfkG9AAb2bBIK4u7AFZ4S6Qq6AhjZoOPXZ+WNbzL/qmUyOiDvx8df4SY7 +8X+Slx6KineAx9Uczg5JHyy5a7Co5dRXKCl22Dkz2QddI47kfZr/FUxVXo8f +G/dBh6LfSt6F7aBJ+3565b8LA7u/yq13bYcOid0bL33dhVv1F7n5jPGh+ZQz +x2YLG7vV91WmFPAhPSpTYm8zG0d3PP49weVDVfXUOMeOg0J7UWTGMj6sfmS0 +dqkDB3Uh/+jKpXy4Uesf2e3IQbtm+WNe2nxIq28ZDHHhYJhnxe8HWnygXuf2 +HHTn4FZWSWm0Oh9kOje2XeBxsNjfxUlOhcylsmoa4znYVLqmIUuaD3O9MNmw +goM2/xTN1x2jYfH8Zy8XVnGw93yhhO8oDfpNTkpi1RysKMxKzR6hwc1i+80P +jzjYvXMVS32YhvSFkY0Hn3OQ94bloj5Aw4K2W3PrP3DQ8ZzmT/MeGrS8FS96 +jXFQdmEy/ekLDaY+fXlJRlzsclwaU9VAw42M/nBnEy5aRxcuWEo8v2VwneJa +LiafFqw+85yGPuuxN3nmXLwZZNngX0+T80ZoRpMlFw8Xp11Ve0qD9JiMp6wr +F5n75fwrj2joSDGek7mHi0q+9pzx+zS4PlvzxjeYi9HQIBJOXC1klqkfysWE +iFrVH/doyAhfZ/w4gosaor/L2stpcPa02SU4wMX3EycOtZTS8EDL88Hy41x0 +Ldfza7xLw6nKGP/7N7ioV/Ri5/ybNOwxuGAalcdFN/19azLzaHC8WTRnbT4X +H3sJ4nSJxS903rxXyMWBR0N+lrk0JIW5dJeXctErfkbKvhwaYnS0dpc95mJ3 +OKiNXaUh4EJjYPFnLu5Z/Hi1w9802El3WoTRXNTKvmXY8RcNy5KEpAzauahm +EnrjIHFnmHFhkYCLoay9n4syaNjlnPnjbi8XOd+vX1h0kQYP0fCgOxNcVClu +WDbvHA024QtCChR4eDkBMqxP0/A484j9GSUepreuUBecosGiaVAragEPB5uE +9ZKI9Zc0frRS4yE7wL75aQoNyu8PWP23hIdCF6JYLidp6DFrUxA35mGg12Dr +gWM0nBbO+sd3Ew/FEhIuGyeS9a+SvOi0hYepxg/SBQk0JG6PCjN056H+kwnp +88RRpS5Lp7bxUPvs0ZO/DpP+1Iy082wezm/UuFUbT4NhA5v7JJSHRzfIhobF +0vA+bYmEZioPxxdOjq0+QMNtkPLrSuNhdUhtwmg0yf8xXFd4loeqx8XjK4kN +7OoOrb3Aw6YhkeYNxKeEOINOV3g494r5Q/Z+GjYEZ32MKuCh8gnXL3f20aCq +etRk3W0eyq02jD9APNwQfHbmXR4Ol21NtyG+pg1Op0p4qLN6izQ/kobfbW01 +1yt46BXywkWZuNRRJe9FPQ/74x5KZkbQcGJCWDS9gYchotqPQonZed27PJt4 +6GyR0ckinidSodLxkodBiRmJveE0BFZ6nB5/x0PDxELJ9cSauucjtQQ87K27 +ZD8VSsPE+4Mt3zt5+NomWPojcXMST/9OFw8fzla3KiE+xDfqNu3lYdaI4pQf +8aeLLTs2DvHQeobUo48hNJyZJWMdPYNCX6/xgOZgGqoG27ZHzKRQQz/iWiHx +t7b8sCBRCuOeU9QJYotSVhZ7DoWswtyztsSdPlGT9jIU2u61S3geRPo7Wsta +y1GYt9NQ7Rax+RpZHZCnkCsWa51CnCpVsNVQmcKnvqtNN03PK74UqahTKLuy +ulSwhwYqp6BeXpNCFa/Q4kbi1NT9X+YuobDaLNyimLiTkpMS0SFz320jcdNz +ORu/Xn0KhXNjJrSIK/7IxXYaUPhaf/e2ucSC7/Q52ojCUq+LGyYCaTCria59 +s5bCwMjc2lfEHYG31f5BCo3c/F2SiaU9Dhjfs6RwgamqbCSxqZWtYxGLwv13 +hX14xKeU2/fn2FKofcsry5r4vsid1Ex7Cg/tf3HGhPjrzwO5GY4U+gUFyiwj +XvtU/m2KC4UxgqUlksTsovaeZDcKfWSt3k3tpiHl0h3hw5spnF+ZlDRE3B5m +px/pQeF9j4NHW4mlvBVsQrZR+Mddv/UV8Vq7rzsCvEjeN7GqZ9PPLzp4wtuH +wm0bVRaXEd8Xt7/mwabwcJp7dsF03ojCAzcuhefXlJZmT+fxv750pCj0SNd3 +vTyd13S3c4MfhSfFmvafJ2bfO/gbAyh8/itpZep0/jX7+eaBFD7h7wg+Pp2f +orjcOIhCxmqTRdJ0flTH+lUhFIrc5p2LI5bkFnnohFFoWZEeHUO8ZuOhYM0I +CtXn0j1R0/lmDkdUIyns87b5vpf45BKly4pR5Pv7NYSFE5fPE5TIRFOYPex3 +NJSYP1nUIBFD4fAnDd2Q6fxvh/iihyhU+z3mHkxs8trh11Qshbp2XTLT/j8e +vgfk + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5131144857171297, + 1.8102248952641184`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5131144857171308}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.5131144857171297, + 1.8102248952641184`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5131144857171308}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk0VmsbBnAJlamQKVGGFKVkKsPXfccrs9CAkvQO25DMSVIIaVKUBudU +VESiMlY4UlTCKaX5UPuVV0IyC7t8jz/22uu37rWvfT3PXvtRZwe78YSFhIS6 +yDV9D32xcum95hfr3s8y3XV7lIF1fdnGbFYBpFXzjxYS05km6VqsKvjc3T2V +T+zC/VdM0vAJBOzZ8vQGcVFUbK0oqwmuV2m0ZhEfe6pUE5v/Cuo6Nq/PIH7Q +HHqFMXgLdcl9I6eJuz81xOyv/AAebYPjicQLBJrbR61aQaiE5xRF7PAzxjS8 +6QvQux36/YmrmW6JqHw+/BC62e5J/C5e8UB50Fe4J5SoZUvcJ8bqHjYQwJnT +7WVGxGInQzwNxzohwrfx/CJiNZnL9aGVXfDzvfWz2cTOKqM3+qx6YXnhXMV3 +IwxQWRoKerP7YMHlEJMK4tglG5N2N/2ECfMjOZeIPyi+WR2RPwBFc8bDvIi5 +2wL8z54chKbgwFemxP2XhK4WBw2B2VBNrDzxbA29eQMGIyC0ApueDTOQzq21 +mSc/CodrkwKuEC/O9YxdNTYK1yzaPcKJ16440ren8hcUz1iorUTsZ/KlqduK +gdEyj0SnIQaGo/aKiGv/hnwtxRwF4rhKCQud2X/g81C4wudBBi7i2lu+TVNg +Gefe40vMzalnheXPQN1AaR/fAQbyn56l41WEcUvXzNmaxP3fvGPSTgpjRQRr +Rls/AzG6IyV3g2biTuXZXQ7E6XfUNX8aiKJtBOeY/E8GPjX3Vv+5LoqeG/ZV +1/aR/oP3tknLi2FcZ651CHGBkfMZvTExtPVtsa/7wUDdg+gZgZWzMSPxiqFH +LwMjtS1fuqwk8eY5/HvVdwZkHSXnHaiWxO6AfxsedDGg/4aFUqZSSBmkzLQk +Dugoy1q9Uho/evilOX5jIES4Sf9/kvPwiL2klr2AAYHG7YGkURn8rnJh0zea +7A/VMOeloSw+MX6y0o1Y+FanulKoLA4qnlSo/EL6Gi5yy++Rxau9HySTPzOw +zSq1+AUth52aDn/PamXgJScsXLFRHgflJ6NuvWPgc+6pEz6zFdC2dNJ87C0D +vT35129aK+B1s0dz1xOLR3xtMa9RwLpnNd0vWhhgJW428ilTxMUNdZEtzQxU +ZJuM5GUqo/Lvft24BgayBRORZhGquCX3nENAFQO2W5I/hxeq4t4/um+OVpL8 +OrkNhZ2qWFpuVJ5TwYBR9gr5xZ5qKLyJn/zpPtlPtneJ6LpF2CzFDtAvY2Dw +J72vK2ExqnDp8JRCBuT2sEpLnDSQch8dkr7MQGe2uJ9LgAYqhXk7j//NwP3W +ZpUfRzSww1xdqv0vBrwcdyRo12ig1meTB7cvkn7LI90yDDRxQhbeGaWT93fn +9h9S1MLSzk3Rw8cZ2OwroWfPX4Kjoj6mrH0MQOQWA/ffS7ApxcldOJIB3aTM +NVxlbRxdKjpaHcGA0HVDy0Ou2lg3su+eYRgDhZ+3uxc/0sbFSuJbJfaQ/3Nr +QfyCa0uxrsrCJ5xN+rGc3nWzdbAVJIp1HBlQ0Tgde6JjBS6vD+y1VWGg6viw +zriwHtr6nzmTrEz6D3m+odT1MMHoysU6RQau1GnpWHrrYdAykWem8xnQ8K14 +/eu9Hkp2+T6cJ0X6FQiWUI0r8eRG+ZLQP5OgqqJGLfbUR90TNWwRehJW5ERI +ToIBdqRcN0u/MglXw7RcypqMsVfi2mUj+UlojoQ1iTmmuIKtde1g4ASoe791 +3hH4P3zfJvpYsnwceFPlt1X3Ix6uOn7v/dQvUOy5P0uRbYkGNk/+c9f/BRGG +Fq1ndFlYHu61RcNvDNg/mHq5bmscL/hnh3nWKBRahs/KfGmD0crxurVPRiB7 +OOBRQbod3jUQiYyfGIZf65X+rYt1wPG9i+DD4mFoE5o5wN/lhCfKT31N3TgE +QQuDU+M1N+L3pc7laWmDcNu/vuZckgsKXFePr20YgOgh5bHl/q74quNgnJni +AIzYb9j6bKcbmgdzGjJ29IPp9rT1AtdNaLtnRS3b5ye8Vr4cUGe4GZsGFdVl +9Mi5eCOhKm/ZFjSlb/9bM9AL92ldR2eprVjydthOtbUH1N70+0b+2Ipb+dEa +4f91g+G5tILrtDu62C2MFH/3HS6LDK08U+uBywxz/G8NdEH5+lWfkh54Yu+c +xqsXxLvg4prjMkz+NsxyHBepXfMNXv6Xc8Tw5HaMGdO60xbXCWVOl7RC4rww +68bmfkG9AAb2bBIK4u7AFZ4S6Qq6AhjZoOPXZ+WNbzL/qmUyOiDvx8df4SY7 +8X+Slx6KineAx9Uczg5JHyy5a7Co5dRXKCl22Dkz2QddI47kfZr/FUxVXo8f +G/dBh6LfSt6F7aBJ+3565b8LA7u/yq13bYcOid0bL33dhVv1F7n5jPGh+ZQz +x2YLG7vV91WmFPAhPSpTYm8zG0d3PP49weVDVfXUOMeOg0J7UWTGMj6sfmS0 +dqkDB3Uh/+jKpXy4Uesf2e3IQbtm+WNe2nxIq28ZDHHhYJhnxe8HWnygXuf2 +HHTn4FZWSWm0Oh9kOje2XeBxsNjfxUlOhcylsmoa4znYVLqmIUuaD3O9MNmw +goM2/xTN1x2jYfH8Zy8XVnGw93yhhO8oDfpNTkpi1RysKMxKzR6hwc1i+80P +jzjYvXMVS32YhvSFkY0Hn3OQ94bloj5Aw4K2W3PrP3DQ8ZzmT/MeGrS8FS96 +jXFQdmEy/ekLDaY+fXlJRlzsclwaU9VAw42M/nBnEy5aRxcuWEo8v2VwneJa +LiafFqw+85yGPuuxN3nmXLwZZNngX0+T80ZoRpMlFw8Xp11Ve0qD9JiMp6wr +F5n75fwrj2joSDGek7mHi0q+9pzx+zS4PlvzxjeYi9HQIBJOXC1klqkfysWE +iFrVH/doyAhfZ/w4gosaor/L2stpcPa02SU4wMX3EycOtZTS8EDL88Hy41x0 +Ldfza7xLw6nKGP/7N7ioV/Ri5/ybNOwxuGAalcdFN/19azLzaHC8WTRnbT4X +H3sJ4nSJxS903rxXyMWBR0N+lrk0JIW5dJeXctErfkbKvhwaYnS0dpc95mJ3 +OKiNXaUh4EJjYPFnLu5Z/Hi1w9802El3WoTRXNTKvmXY8RcNy5KEpAzauahm +EnrjIHFnmHFhkYCLoay9n4syaNjlnPnjbi8XOd+vX1h0kQYP0fCgOxNcVClu +WDbvHA024QtCChR4eDkBMqxP0/A484j9GSUepreuUBecosGiaVAragEPB5uE +9ZKI9Zc0frRS4yE7wL75aQoNyu8PWP23hIdCF6JYLidp6DFrUxA35mGg12Dr +gWM0nBbO+sd3Ew/FEhIuGyeS9a+SvOi0hYepxg/SBQk0JG6PCjN056H+kwnp +88RRpS5Lp7bxUPvs0ZO/DpP+1Iy082wezm/UuFUbT4NhA5v7JJSHRzfIhobF +0vA+bYmEZioPxxdOjq0+QMNtkPLrSuNhdUhtwmg0yf8xXFd4loeqx8XjK4kN +7OoOrb3Aw6YhkeYNxKeEOINOV3g494r5Q/Z+GjYEZ32MKuCh8gnXL3f20aCq +etRk3W0eyq02jD9APNwQfHbmXR4Ol21NtyG+pg1Op0p4qLN6izQ/kobfbW01 +1yt46BXywkWZuNRRJe9FPQ/74x5KZkbQcGJCWDS9gYchotqPQonZed27PJt4 +6GyR0ckinidSodLxkodBiRmJveE0BFZ6nB5/x0PDxELJ9cSauucjtQQ87K27 +ZD8VSsPE+4Mt3zt5+NomWPojcXMST/9OFw8fzla3KiE+xDfqNu3lYdaI4pQf +8aeLLTs2DvHQeobUo48hNJyZJWMdPYNCX6/xgOZgGqoG27ZHzKRQQz/iWiHx +t7b8sCBRCuOeU9QJYotSVhZ7DoWswtyztsSdPlGT9jIU2u61S3geRPo7Wsta +y1GYt9NQ7Rax+RpZHZCnkCsWa51CnCpVsNVQmcKnvqtNN03PK74UqahTKLuy +ulSwhwYqp6BeXpNCFa/Q4kbi1NT9X+YuobDaLNyimLiTkpMS0SFz320jcdNz +ORu/Xn0KhXNjJrSIK/7IxXYaUPhaf/e2ucSC7/Q52ojCUq+LGyYCaTCria59 +s5bCwMjc2lfEHYG31f5BCo3c/F2SiaU9Dhjfs6RwgamqbCSxqZWtYxGLwv13 +hX14xKeU2/fn2FKofcsry5r4vsid1Ex7Cg/tf3HGhPjrzwO5GY4U+gUFyiwj +XvtU/m2KC4UxgqUlksTsovaeZDcKfWSt3k3tpiHl0h3hw5spnF+ZlDRE3B5m +px/pQeF9j4NHW4mlvBVsQrZR+Mddv/UV8Vq7rzsCvEjeN7GqZ9PPLzp4wtuH +wm0bVRaXEd8Xt7/mwabwcJp7dsF03ojCAzcuhefXlJZmT+fxv750pCj0SNd3 +vTyd13S3c4MfhSfFmvafJ2bfO/gbAyh8/itpZep0/jX7+eaBFD7h7wg+Pp2f +orjcOIhCxmqTRdJ0flTH+lUhFIrc5p2LI5bkFnnohFFoWZEeHUO8ZuOhYM0I +CtXn0j1R0/lmDkdUIyns87b5vpf45BKly4pR5Pv7NYSFE5fPE5TIRFOYPex3 +NJSYP1nUIBFD4fAnDd2Q6fxvh/iihyhU+z3mHkxs8trh11Qshbp2XTLT/j8e +vgfk + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5131144857171297, 1.8102248952641184`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5131144857171308}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.5131144857171308}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "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.5131144857171297, 1.8102248952641184`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913460797739086`*^9, 3.992133141123678*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"5071bc06-cbc3-1243-9468-9b53dbd68981"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918471776293755`*^9, {3.9918474259081*^9, 3.991847426207552*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"e083cd39-87a5-ca4f-ab3f-88bfd4c0e0d2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.441280585348901`*^-264\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 120, + 1094, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991346080016945*^9, 3.992133141335411*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"bf587f4c-b294-2f4c-a7c5-3f917878662b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.699507486874503`*^-275\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 120, + 1095, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991346080016945*^9, 3.9921331413448296`*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"e9f65977-db34-ad43-b6fb-c5022b815d29"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.79312712121017`*^-287\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 120, 1096, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991346080016945*^9, 3.9921331413518295`*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"1033fcfb-2941-4d45-9f2a-809e1ea840e4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 120, 1097, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991346080016945*^9, 3.99213314135783*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"fde05446-9afb-3844-bb77-da9b6964721c"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nc8Vu8bB3AykpRRsp9znodsGU/6SnRfkQrpSygroqxsRQoNKtkjoZAR +DS3Pc1QqScjKyExG+pKEtOxRfvfvr/N6v87rdd9n3NfnuugufvtdV3BwcKzi +5OD4/zX7jAuv5tHM7cPnZo6siN+2vbqd3HuQPIW2h74SrzOSQMs15ZEkGY16 ++gsvJRopoeyKeIKHvIYuNR+S8DXairz1g3xmibsoVGeidY+RMWpf9Ej9STxD +SV+Wxod22qKVvYMKE0Q9GrJ6EO5h6InyGnICxokPiHXb40GU/in08FF0r/em +MVTQFxwhohWD3FHrtW+Bk+gyW6xV/MAV5DusNFTycB71ZkmW+plfQ/z0CwoD +OhzgwBg3PZ2RgxKE3irnHeaCSG75DnZWPnLptXrF1cgLyXdFvcjIQhTw5oKL +nwI//F63Tm9U/Q5i+QtYihuvgQnPQR7ByCKUF+o1pnFQCIL+XKns7riPInKW +LKa+CcOSk+etO28fIo72T1B2eh1YfrgtN29QjORPuIVYKYvC9ZPmpamiLKSm +O2CZoyEK5rPtS17iLLSZw0Z9bIsobBxoiN8hxUIGccZfzhqKwqbhgtQRkoUc +C1St7jmIgp2NGJNQZaG0jt/qKxJFoVV/b5aeAQvxaJ8deTQpCosFBqfUfVjo +83T6gdUvN8Dj+FihXy9ZKH8H83h/1Qaw/HkmMaGChZzimxMfNWyAkc6Nq5Sr +WKhHjqfesnsD6Js7fLOrY6FWy8BtWZMbQHSjXEBBGwuVs/aSaspisA9Je3V9 +YaF0H86xfeliIPLB4NvjNWxk9SyLl35DDH4czSgWEWIjER4d2ckCMfiQUO/r +I8JGCVm+DulsMfB9WtYtLcZGF972Ng80iUHa928uR0g28ld6Qvlzi4PWkwGL +RC02Mhk+Fp4SIA4CR6lSF2s22hUue39niDh0rFUeOnGQjQxE+3pmzojDMf1P +khdt2UjXyEzHPk4cGpO02TmH2Ei5UH1S9rY4vG95df6lKxutdp3yeNwnDmvc +TR5lBrFR4+dwq+7dElDJF/Zg8Aob1YVtiYzZJwE2nRXXn1xlo+r1P1h61hJw +2W1b+uV0NirbeVgwz0UCiEb5cvlMNrpfYNDgGS4B9tS2GtN8Noo/uhIW2RLA +1ZfRrlPMRvs+J6nQaJJg5cabltOA91P53OEgJwm/z+rslWxkI9Pj/5zJVJaE +nz4q1lea2GjPio/vxP+RhBz6c6dz7/D7kSrB68wlwbTHym5XFxtpO7yp4IuQ +hP1p4n/O/8dG0h3z1pPDknBBcWNl6QwbXZcyW9b8JgnC1dG8f2fZSOJI7h3/ +35LQ4nwgb8c8G234vWtx4q8kFB6831O1yEZCQqm5X8WkwIQx71TCQSGuvZvG ++42lYGFgT7sRP4XGqlzO1T2QAhIF2KlIU4hI7j6WUCIFYb6Ft/fLUMjKcZ+1 +1QspWG2SyRNCo1D53FblT3VSAD+uT5WRFEpRE+6YHZKC9WU3C9Q3Umhb+isF +BUlpaLr/ILRUjUL+R7VFJkhpGFH/NFGxiUK3NO8tsRWkIfkz80StOoWEGtNa +t2tLg34kvbxZk0KfOXxDD5hLgx2XrVmNNoXijkm3XLwkDUnD++Ns9Sn0+p+U +Z6bx0sDiqbM33E6hGW6+AuFUaRCcWm2ogih0OGcyJDsP3984YzsNFNrc0cB4 +XCYNF8dligN3Uqhf/1Tw59/SoEdwa4uYUmiTcJeMoZMMHKn+cOzLAQp9if8S +cdVVBoaH/DdfPkihbP7ZkREvGei5M2SvaEMhAW5xdlyIDPAZGbw5You/34zt +rq5kGfhbpstXa0+hwr5+X89qGWjnuRCBDlPIwfZ7+4sGGZj4td2oFnt911+d +ta0ywNlxydPMmUIRLQQX1S8DMzqs91Yu+PkrndOXZmRA5bS8hflRCknfGX6V +qESDk0W/vs+7U6hDbkZuUJ0GDounR9w9KBSbxxuzeQsNvriHGHVgL1xXsPpg +QIP+9Hdadzwp1B3v+ZXhQIPBfr4ePS8KJfGfNgtyocG4/E6eG9i7o2LYtR40 +GBtYSP+D/eTcvTDvIBo8lR+ceupNoSvHJ4SeJNBA5vf7KxK+FDL5+SeI7yoN +gnTVVvhir/BZ22uXSYOaLSI9Fdj+buqFy7dpcFv3Wq2zH4X22QZsNX5NgxBJ +vrwkfwrxdp2/kVlLg87du450Y7/cn8L1vYkGB9W1k2kBFFLdSzWl9NDgrN9W +zVvY/GjauW+SBtvPnojOD6RQyA5FvicLNPD9oJY0iP3F0P5hIicBu31rysnj +FKrc83rBQJAAsnMpNR1bw3QqV3oDAXTxf/XfYd8wU9g9I01A5MnRtStPUOj0 +/vgrd5UJ+MfGRd0P+6tVxdZITQKmPGbP5GIfODg54KBDwM2SHfMt2FoOtqpC +uwgI53DzUwqiUK5jXNvoXgIki+a8LLHXOr8KqbIkwPQ/Vmoo9rjrxjfBzgT8 +VRLwrsG287DxMvcgIGnBXWoUu+5YrLCyHwHJXU5zq4IptMWn/ClXMAFKVRZc +StgFfr8O9YcRcGlllt4ubJFAOe6nkQRQqtkFztjnThwsSooh4OQfalsotsOp +lzOGGQQ8WJ8zdwe7IfRnlkwOAfw6WsRLbJ0zsoazhXj/CpvgFuxb5w6MvrtP +QMqrwL8D2OsjoxOLKAJ2RH16+h074mKZ9oXnBCQWrbi5iP0z6kfvodd4vT9b +K3hPUsgxhhHxTx0Bz1NGBIWwG+OsFYVbCPj+yjtFDFs38XLzWCcBTAmVPTLY +d5JfnKjuI0Ds+AVNOvaG1O+SN4YIEBzs2SeLfSGN/vrkGAEHnifl/t+/M6zc +LX4RUJHIp8DAPpwZtUZljoBc7cJBGnZz9nOKe5mAtPL6dgls2rsZ1R8rSAgJ ++7Aggm1tIcThwEvCRg4dG37suDal9rpVJLhLGH9bxu9TZWl4S3sNCfVd/k8n +sRc6HE7lC5EQdHHd82FszQPBewXXkyDAujrVie3xPpEIEyPhgqyDezV2js3d +318lSVg9/FaEhd31ofKNNY2Ed9tMZjOx19j3ZVTSSfh1T0/0IvbOvmkv9Y0k +GM/y+Xhjhx4SRFmKJFjKiC5bYLM/KoqsUiVh2a72rTb2qJPBcJA6CWnKl9rF +sMn/7EsHtUiINSzdMIfPT8JQgmPZVhI8D4tYUNhvjt7RVNInoZtrlXEC9tLw +a+40IOGwutAZd+xjX6eK/HaT0Df7I3c99u4Ju1mGNQkB7s6dtvh831gf2X7W +hgQLHgdKAXtq271HffYkgEnbf5O4fnJjFt3TXEhIcqrUjMJeUMjqXuVPAtFW +fOcarkfzf6tL3I6TIARRonbYt4K/JVUFkyAmyNEljm35Rs84PJwEP21/y2Rc +3/dd+p/9jCHBVfG0qS/OgxUxPGlmCSRo3E0+TMe2YakFFiWTUFxztrEN5wkP +xxnloxkkiI6GF2lgO2bTMt8XkjDe4BTT7YP7SbdTWHkFCXRva+0Pxyjkthxl +I1VNgh69/msAdpl88eaQWhJ+2t2c58P2DOKY0GzG/9txi7YWzstKkbxDhb0k +GL1OIAJw3p4wG9weN0NCnKQvkXcE19MJfqnRefy/dct6CWwyS2vW6A8JN+KY +S1k4v5vGIh4tc9HBTMvaKwXnu/xlWfK4MB16hgLXHnPCeVx5lNNOlQ5PBRXr +G+1wPe3okQxXp8PLqWQvPeyVr//dnKtFB/XDqQ+KcH/Z8krX/YsOHTzFW4Uj +cf9JfSHUFGhEB7dObVdZ3K/+LSnLiHWkw5JF2GWGBYVqCtdrvEyig5Ze0D6Z +XRT6KBdj/OkKHb6VDKc7G1Fo+uayC1c6HR5z5ccV4H4olz921TibDp2bwk/J +G+J6v1Gx2HmXDlf/6HtJ4v65Pd279nslHXSr93NVbaXQ48vVjuQ0Hfo43R5J +qOJ6NnkrHjVHh+Br+5+TKhS6LtDWNrGI9w8jDeWVcT4lDex6sYIBFU/t36kq +UmhvxsKmA0IM+Fu6dURBjkKDtzWWY1UYYHnAObhLCudnbVbOrDMDJH+k54rj ++YQz+qatoysDajidD//kw+fRpGjdGw8GtGdqPKxZSaEPzU+jUvwYcPPar2lf +HpyXXW1+auEMCH3muvMhnnd0v/DBkQwGGKd+NP+K5yc3nqBPzc0MCBKUazIb +ZCNJov79YisDdlrt4RTE81azjkyLYicD/hj6cLYMsNEW7zcvI3oZkJMS6G7a +z0a87aKZW74yQHn0fJd2NxsV5j6xvsEpC+MVJXmteL77vG2uwWezLCzWfp1T +KGWjI4GhjwWuy4LmcycLj2i8ntbHx0rZshB3VfHRSBQb8f+GJ7tyZSFcdRWH +2yU2Kg7gfXrulizMNlaFOUWy0ZJ/cukUWxZGWji/G4WzUZrf7Rd9b2Xh/NzI +2v/82ajeu/31/T+yUPzGe7clnpfV3VWa9zrLwaerJwsRnY1aRFRXB23dCDru +XMY6OSz04mFEpiqXPLSsXTXSIsZCoZzK5o398rDR02Z0+GQx4u87vce3RAEY +C65fYnMeoeFb9NScMEWAiV2lvdYPUaqiBPczayXYF34+qnPwPkq67lbrTCrD +36/rlpzO3kN2qYeaBUaUIeVWf0CUTBGa21k4n1OuAsKZsvld1++goWGDkMoo +Vei6Gl1nq3Ub5etrSjU5q8FyFH9b58NC9OBikLC72iaYPsbQOm9SgKKsj5hy +TW8CbYmqAcepfKTdl3c3qkkdkv2bnMxj81CGUuaDJlMNGF3gFXQyykVnK+Iz +TJ9pwOXWbXKHhrKRmZR1YYOcJhRdqldQcctEO3xr7YWjNaGu+CuniMY1lCPt +Itc4rQlDFzOG/cbSkFzV7bR99lowHXmXI3AsFSWpVSq3lWtBQlDQ+gXhK8ht +kru1XpkJMeN6x720kpEL6zcZnciE4ZpoNU/ZROQdYblkksyEfZmCTq6iiSjI +suS9wBUmHBXolnFbmYguTwclJKUxQV/o3I6g8QT0cOv8Yno2E/4wmKINVAKa +f73cdeseExQkdePMjBJQUptAfHUtE9QuClwu9YpH12/6eFyqZ8IlJ80LRo7x +6OaJZsM9b5ngd6Pvb5d5PHqyIWnhbTMTDFze+KzcEo/67NZ5tHcyId6kVPYG +RzxSGJIwHBxiQkPzdFh+WhzSKDlNKxhmAreEqtzJ6Dike7F33nWECaF1uTvM +w+LQXoXs4tExJhitIvoFXeJQoBdJ+/WLCe+lDaOq1eJQmN75efYkE17k7Gwt +I+PQxTWDHSemmXBTSyn+2bo4lPHoZuzcHBM+ah6xqZiPRfnnuN2fLzDBUzDT +reFbLLpn4WoQtsQEi0+nP3cPxKISRo3M9r9MKAoNbB1vi0Xlk/Lzy8tM6FT5 +pcpVE4v+BxUohXU= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Vu8bB3AykpRRsp9znodsGU/6SnRfkQrpSygroqxsRQoNKtkjoZAR +DS3Pc1QqScjKyExG+pKEtOxRfvfvr/N6v87rdd9n3NfnuugufvtdV3BwcKzi +5OD4/zX7jAuv5tHM7cPnZo6siN+2vbqd3HuQPIW2h74SrzOSQMs15ZEkGY16 ++gsvJRopoeyKeIKHvIYuNR+S8DXairz1g3xmibsoVGeidY+RMWpf9Ej9STxD +SV+Wxod22qKVvYMKE0Q9GrJ6EO5h6InyGnICxokPiHXb40GU/in08FF0r/em +MVTQFxwhohWD3FHrtW+Bk+gyW6xV/MAV5DusNFTycB71ZkmW+plfQ/z0CwoD +OhzgwBg3PZ2RgxKE3irnHeaCSG75DnZWPnLptXrF1cgLyXdFvcjIQhTw5oKL +nwI//F63Tm9U/Q5i+QtYihuvgQnPQR7ByCKUF+o1pnFQCIL+XKns7riPInKW +LKa+CcOSk+etO28fIo72T1B2eh1YfrgtN29QjORPuIVYKYvC9ZPmpamiLKSm +O2CZoyEK5rPtS17iLLSZw0Z9bIsobBxoiN8hxUIGccZfzhqKwqbhgtQRkoUc +C1St7jmIgp2NGJNQZaG0jt/qKxJFoVV/b5aeAQvxaJ8deTQpCosFBqfUfVjo +83T6gdUvN8Dj+FihXy9ZKH8H83h/1Qaw/HkmMaGChZzimxMfNWyAkc6Nq5Sr +WKhHjqfesnsD6Js7fLOrY6FWy8BtWZMbQHSjXEBBGwuVs/aSaspisA9Je3V9 +YaF0H86xfeliIPLB4NvjNWxk9SyLl35DDH4czSgWEWIjER4d2ckCMfiQUO/r +I8JGCVm+DulsMfB9WtYtLcZGF972Ng80iUHa928uR0g28ld6Qvlzi4PWkwGL +RC02Mhk+Fp4SIA4CR6lSF2s22hUue39niDh0rFUeOnGQjQxE+3pmzojDMf1P +khdt2UjXyEzHPk4cGpO02TmH2Ei5UH1S9rY4vG95df6lKxutdp3yeNwnDmvc +TR5lBrFR4+dwq+7dElDJF/Zg8Aob1YVtiYzZJwE2nRXXn1xlo+r1P1h61hJw +2W1b+uV0NirbeVgwz0UCiEb5cvlMNrpfYNDgGS4B9tS2GtN8Noo/uhIW2RLA +1ZfRrlPMRvs+J6nQaJJg5cabltOA91P53OEgJwm/z+rslWxkI9Pj/5zJVJaE +nz4q1lea2GjPio/vxP+RhBz6c6dz7/D7kSrB68wlwbTHym5XFxtpO7yp4IuQ +hP1p4n/O/8dG0h3z1pPDknBBcWNl6QwbXZcyW9b8JgnC1dG8f2fZSOJI7h3/ +35LQ4nwgb8c8G234vWtx4q8kFB6831O1yEZCQqm5X8WkwIQx71TCQSGuvZvG ++42lYGFgT7sRP4XGqlzO1T2QAhIF2KlIU4hI7j6WUCIFYb6Ft/fLUMjKcZ+1 +1QspWG2SyRNCo1D53FblT3VSAD+uT5WRFEpRE+6YHZKC9WU3C9Q3Umhb+isF +BUlpaLr/ILRUjUL+R7VFJkhpGFH/NFGxiUK3NO8tsRWkIfkz80StOoWEGtNa +t2tLg34kvbxZk0KfOXxDD5hLgx2XrVmNNoXijkm3XLwkDUnD++Ns9Sn0+p+U +Z6bx0sDiqbM33E6hGW6+AuFUaRCcWm2ogih0OGcyJDsP3984YzsNFNrc0cB4 +XCYNF8dligN3Uqhf/1Tw59/SoEdwa4uYUmiTcJeMoZMMHKn+cOzLAQp9if8S +cdVVBoaH/DdfPkihbP7ZkREvGei5M2SvaEMhAW5xdlyIDPAZGbw5You/34zt +rq5kGfhbpstXa0+hwr5+X89qGWjnuRCBDlPIwfZ7+4sGGZj4td2oFnt911+d +ta0ywNlxydPMmUIRLQQX1S8DMzqs91Yu+PkrndOXZmRA5bS8hflRCknfGX6V +qESDk0W/vs+7U6hDbkZuUJ0GDounR9w9KBSbxxuzeQsNvriHGHVgL1xXsPpg +QIP+9Hdadzwp1B3v+ZXhQIPBfr4ePS8KJfGfNgtyocG4/E6eG9i7o2LYtR40 +GBtYSP+D/eTcvTDvIBo8lR+ceupNoSvHJ4SeJNBA5vf7KxK+FDL5+SeI7yoN +gnTVVvhir/BZ22uXSYOaLSI9Fdj+buqFy7dpcFv3Wq2zH4X22QZsNX5NgxBJ +vrwkfwrxdp2/kVlLg87du450Y7/cn8L1vYkGB9W1k2kBFFLdSzWl9NDgrN9W +zVvY/GjauW+SBtvPnojOD6RQyA5FvicLNPD9oJY0iP3F0P5hIicBu31rysnj +FKrc83rBQJAAsnMpNR1bw3QqV3oDAXTxf/XfYd8wU9g9I01A5MnRtStPUOj0 +/vgrd5UJ+MfGRd0P+6tVxdZITQKmPGbP5GIfODg54KBDwM2SHfMt2FoOtqpC +uwgI53DzUwqiUK5jXNvoXgIki+a8LLHXOr8KqbIkwPQ/Vmoo9rjrxjfBzgT8 +VRLwrsG287DxMvcgIGnBXWoUu+5YrLCyHwHJXU5zq4IptMWn/ClXMAFKVRZc +StgFfr8O9YcRcGlllt4ubJFAOe6nkQRQqtkFztjnThwsSooh4OQfalsotsOp +lzOGGQQ8WJ8zdwe7IfRnlkwOAfw6WsRLbJ0zsoazhXj/CpvgFuxb5w6MvrtP +QMqrwL8D2OsjoxOLKAJ2RH16+h074mKZ9oXnBCQWrbi5iP0z6kfvodd4vT9b +K3hPUsgxhhHxTx0Bz1NGBIWwG+OsFYVbCPj+yjtFDFs38XLzWCcBTAmVPTLY +d5JfnKjuI0Ds+AVNOvaG1O+SN4YIEBzs2SeLfSGN/vrkGAEHnifl/t+/M6zc +LX4RUJHIp8DAPpwZtUZljoBc7cJBGnZz9nOKe5mAtPL6dgls2rsZ1R8rSAgJ ++7Aggm1tIcThwEvCRg4dG37suDal9rpVJLhLGH9bxu9TZWl4S3sNCfVd/k8n +sRc6HE7lC5EQdHHd82FszQPBewXXkyDAujrVie3xPpEIEyPhgqyDezV2js3d +318lSVg9/FaEhd31ofKNNY2Ed9tMZjOx19j3ZVTSSfh1T0/0IvbOvmkv9Y0k +GM/y+Xhjhx4SRFmKJFjKiC5bYLM/KoqsUiVh2a72rTb2qJPBcJA6CWnKl9rF +sMn/7EsHtUiINSzdMIfPT8JQgmPZVhI8D4tYUNhvjt7RVNInoZtrlXEC9tLw +a+40IOGwutAZd+xjX6eK/HaT0Df7I3c99u4Ju1mGNQkB7s6dtvh831gf2X7W +hgQLHgdKAXtq271HffYkgEnbf5O4fnJjFt3TXEhIcqrUjMJeUMjqXuVPAtFW +fOcarkfzf6tL3I6TIARRonbYt4K/JVUFkyAmyNEljm35Rs84PJwEP21/y2Rc +3/dd+p/9jCHBVfG0qS/OgxUxPGlmCSRo3E0+TMe2YakFFiWTUFxztrEN5wkP +xxnloxkkiI6GF2lgO2bTMt8XkjDe4BTT7YP7SbdTWHkFCXRva+0Pxyjkthxl +I1VNgh69/msAdpl88eaQWhJ+2t2c58P2DOKY0GzG/9txi7YWzstKkbxDhb0k +GL1OIAJw3p4wG9weN0NCnKQvkXcE19MJfqnRefy/dct6CWwyS2vW6A8JN+KY +S1k4v5vGIh4tc9HBTMvaKwXnu/xlWfK4MB16hgLXHnPCeVx5lNNOlQ5PBRXr +G+1wPe3okQxXp8PLqWQvPeyVr//dnKtFB/XDqQ+KcH/Z8krX/YsOHTzFW4Uj +cf9JfSHUFGhEB7dObVdZ3K/+LSnLiHWkw5JF2GWGBYVqCtdrvEyig5Ze0D6Z +XRT6KBdj/OkKHb6VDKc7G1Fo+uayC1c6HR5z5ccV4H4olz921TibDp2bwk/J +G+J6v1Gx2HmXDlf/6HtJ4v65Pd279nslHXSr93NVbaXQ48vVjuQ0Hfo43R5J +qOJ6NnkrHjVHh+Br+5+TKhS6LtDWNrGI9w8jDeWVcT4lDex6sYIBFU/t36kq +UmhvxsKmA0IM+Fu6dURBjkKDtzWWY1UYYHnAObhLCudnbVbOrDMDJH+k54rj ++YQz+qatoysDajidD//kw+fRpGjdGw8GtGdqPKxZSaEPzU+jUvwYcPPar2lf +HpyXXW1+auEMCH3muvMhnnd0v/DBkQwGGKd+NP+K5yc3nqBPzc0MCBKUazIb +ZCNJov79YisDdlrt4RTE81azjkyLYicD/hj6cLYMsNEW7zcvI3oZkJMS6G7a +z0a87aKZW74yQHn0fJd2NxsV5j6xvsEpC+MVJXmteL77vG2uwWezLCzWfp1T +KGWjI4GhjwWuy4LmcycLj2i8ntbHx0rZshB3VfHRSBQb8f+GJ7tyZSFcdRWH +2yU2Kg7gfXrulizMNlaFOUWy0ZJ/cukUWxZGWji/G4WzUZrf7Rd9b2Xh/NzI +2v/82ajeu/31/T+yUPzGe7clnpfV3VWa9zrLwaerJwsRnY1aRFRXB23dCDru +XMY6OSz04mFEpiqXPLSsXTXSIsZCoZzK5o398rDR02Z0+GQx4u87vce3RAEY +C65fYnMeoeFb9NScMEWAiV2lvdYPUaqiBPczayXYF34+qnPwPkq67lbrTCrD +36/rlpzO3kN2qYeaBUaUIeVWf0CUTBGa21k4n1OuAsKZsvld1++goWGDkMoo +Vei6Gl1nq3Ub5etrSjU5q8FyFH9b58NC9OBikLC72iaYPsbQOm9SgKKsj5hy +TW8CbYmqAcepfKTdl3c3qkkdkv2bnMxj81CGUuaDJlMNGF3gFXQyykVnK+Iz +TJ9pwOXWbXKHhrKRmZR1YYOcJhRdqldQcctEO3xr7YWjNaGu+CuniMY1lCPt +Itc4rQlDFzOG/cbSkFzV7bR99lowHXmXI3AsFSWpVSq3lWtBQlDQ+gXhK8ht +kru1XpkJMeN6x720kpEL6zcZnciE4ZpoNU/ZROQdYblkksyEfZmCTq6iiSjI +suS9wBUmHBXolnFbmYguTwclJKUxQV/o3I6g8QT0cOv8Yno2E/4wmKINVAKa +f73cdeseExQkdePMjBJQUptAfHUtE9QuClwu9YpH12/6eFyqZ8IlJ80LRo7x +6OaJZsM9b5ngd6Pvb5d5PHqyIWnhbTMTDFze+KzcEo/67NZ5tHcyId6kVPYG +RzxSGJIwHBxiQkPzdFh+WhzSKDlNKxhmAreEqtzJ6Dike7F33nWECaF1uTvM +w+LQXoXs4tExJhitIvoFXeJQoBdJ+/WLCe+lDaOq1eJQmN75efYkE17k7Gwt +I+PQxTWDHSemmXBTSyn+2bo4lPHoZuzcHBM+ah6xqZiPRfnnuN2fLzDBUzDT +reFbLLpn4WoQtsQEi0+nP3cPxKISRo3M9r9MKAoNbB1vi0Xlk/Lzy8tM6FT5 +pcpVE4v+BxUohXU= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07603666944553686}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07603666944553686}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Vu8bB3AykpRRsp9znodsGU/6SnRfkQrpSygroqxsRQoNKtkjoZAR +DS3Pc1QqScjKyExG+pKEtOxRfvfvr/N6v87rdd9n3NfnuugufvtdV3BwcKzi +5OD4/zX7jAuv5tHM7cPnZo6siN+2vbqd3HuQPIW2h74SrzOSQMs15ZEkGY16 ++gsvJRopoeyKeIKHvIYuNR+S8DXairz1g3xmibsoVGeidY+RMWpf9Ej9STxD +SV+Wxod22qKVvYMKE0Q9GrJ6EO5h6InyGnICxokPiHXb40GU/in08FF0r/em +MVTQFxwhohWD3FHrtW+Bk+gyW6xV/MAV5DusNFTycB71ZkmW+plfQ/z0CwoD +OhzgwBg3PZ2RgxKE3irnHeaCSG75DnZWPnLptXrF1cgLyXdFvcjIQhTw5oKL +nwI//F63Tm9U/Q5i+QtYihuvgQnPQR7ByCKUF+o1pnFQCIL+XKns7riPInKW +LKa+CcOSk+etO28fIo72T1B2eh1YfrgtN29QjORPuIVYKYvC9ZPmpamiLKSm +O2CZoyEK5rPtS17iLLSZw0Z9bIsobBxoiN8hxUIGccZfzhqKwqbhgtQRkoUc +C1St7jmIgp2NGJNQZaG0jt/qKxJFoVV/b5aeAQvxaJ8deTQpCosFBqfUfVjo +83T6gdUvN8Dj+FihXy9ZKH8H83h/1Qaw/HkmMaGChZzimxMfNWyAkc6Nq5Sr +WKhHjqfesnsD6Js7fLOrY6FWy8BtWZMbQHSjXEBBGwuVs/aSaspisA9Je3V9 +YaF0H86xfeliIPLB4NvjNWxk9SyLl35DDH4czSgWEWIjER4d2ckCMfiQUO/r +I8JGCVm+DulsMfB9WtYtLcZGF972Ng80iUHa928uR0g28ld6Qvlzi4PWkwGL +RC02Mhk+Fp4SIA4CR6lSF2s22hUue39niDh0rFUeOnGQjQxE+3pmzojDMf1P +khdt2UjXyEzHPk4cGpO02TmH2Ei5UH1S9rY4vG95df6lKxutdp3yeNwnDmvc +TR5lBrFR4+dwq+7dElDJF/Zg8Aob1YVtiYzZJwE2nRXXn1xlo+r1P1h61hJw +2W1b+uV0NirbeVgwz0UCiEb5cvlMNrpfYNDgGS4B9tS2GtN8Noo/uhIW2RLA +1ZfRrlPMRvs+J6nQaJJg5cabltOA91P53OEgJwm/z+rslWxkI9Pj/5zJVJaE +nz4q1lea2GjPio/vxP+RhBz6c6dz7/D7kSrB68wlwbTHym5XFxtpO7yp4IuQ +hP1p4n/O/8dG0h3z1pPDknBBcWNl6QwbXZcyW9b8JgnC1dG8f2fZSOJI7h3/ +35LQ4nwgb8c8G234vWtx4q8kFB6831O1yEZCQqm5X8WkwIQx71TCQSGuvZvG ++42lYGFgT7sRP4XGqlzO1T2QAhIF2KlIU4hI7j6WUCIFYb6Ft/fLUMjKcZ+1 +1QspWG2SyRNCo1D53FblT3VSAD+uT5WRFEpRE+6YHZKC9WU3C9Q3Umhb+isF +BUlpaLr/ILRUjUL+R7VFJkhpGFH/NFGxiUK3NO8tsRWkIfkz80StOoWEGtNa +t2tLg34kvbxZk0KfOXxDD5hLgx2XrVmNNoXijkm3XLwkDUnD++Ns9Sn0+p+U +Z6bx0sDiqbM33E6hGW6+AuFUaRCcWm2ogih0OGcyJDsP3984YzsNFNrc0cB4 +XCYNF8dligN3Uqhf/1Tw59/SoEdwa4uYUmiTcJeMoZMMHKn+cOzLAQp9if8S +cdVVBoaH/DdfPkihbP7ZkREvGei5M2SvaEMhAW5xdlyIDPAZGbw5You/34zt +rq5kGfhbpstXa0+hwr5+X89qGWjnuRCBDlPIwfZ7+4sGGZj4td2oFnt911+d +ta0ywNlxydPMmUIRLQQX1S8DMzqs91Yu+PkrndOXZmRA5bS8hflRCknfGX6V +qESDk0W/vs+7U6hDbkZuUJ0GDounR9w9KBSbxxuzeQsNvriHGHVgL1xXsPpg +QIP+9Hdadzwp1B3v+ZXhQIPBfr4ePS8KJfGfNgtyocG4/E6eG9i7o2LYtR40 +GBtYSP+D/eTcvTDvIBo8lR+ceupNoSvHJ4SeJNBA5vf7KxK+FDL5+SeI7yoN +gnTVVvhir/BZ22uXSYOaLSI9Fdj+buqFy7dpcFv3Wq2zH4X22QZsNX5NgxBJ +vrwkfwrxdp2/kVlLg87du450Y7/cn8L1vYkGB9W1k2kBFFLdSzWl9NDgrN9W +zVvY/GjauW+SBtvPnojOD6RQyA5FvicLNPD9oJY0iP3F0P5hIicBu31rysnj +FKrc83rBQJAAsnMpNR1bw3QqV3oDAXTxf/XfYd8wU9g9I01A5MnRtStPUOj0 +/vgrd5UJ+MfGRd0P+6tVxdZITQKmPGbP5GIfODg54KBDwM2SHfMt2FoOtqpC +uwgI53DzUwqiUK5jXNvoXgIki+a8LLHXOr8KqbIkwPQ/Vmoo9rjrxjfBzgT8 +VRLwrsG287DxMvcgIGnBXWoUu+5YrLCyHwHJXU5zq4IptMWn/ClXMAFKVRZc +StgFfr8O9YcRcGlllt4ubJFAOe6nkQRQqtkFztjnThwsSooh4OQfalsotsOp +lzOGGQQ8WJ8zdwe7IfRnlkwOAfw6WsRLbJ0zsoazhXj/CpvgFuxb5w6MvrtP +QMqrwL8D2OsjoxOLKAJ2RH16+h074mKZ9oXnBCQWrbi5iP0z6kfvodd4vT9b +K3hPUsgxhhHxTx0Bz1NGBIWwG+OsFYVbCPj+yjtFDFs38XLzWCcBTAmVPTLY +d5JfnKjuI0Ds+AVNOvaG1O+SN4YIEBzs2SeLfSGN/vrkGAEHnifl/t+/M6zc +LX4RUJHIp8DAPpwZtUZljoBc7cJBGnZz9nOKe5mAtPL6dgls2rsZ1R8rSAgJ ++7Aggm1tIcThwEvCRg4dG37suDal9rpVJLhLGH9bxu9TZWl4S3sNCfVd/k8n +sRc6HE7lC5EQdHHd82FszQPBewXXkyDAujrVie3xPpEIEyPhgqyDezV2js3d +318lSVg9/FaEhd31ofKNNY2Ed9tMZjOx19j3ZVTSSfh1T0/0IvbOvmkv9Y0k +GM/y+Xhjhx4SRFmKJFjKiC5bYLM/KoqsUiVh2a72rTb2qJPBcJA6CWnKl9rF +sMn/7EsHtUiINSzdMIfPT8JQgmPZVhI8D4tYUNhvjt7RVNInoZtrlXEC9tLw +a+40IOGwutAZd+xjX6eK/HaT0Df7I3c99u4Ju1mGNQkB7s6dtvh831gf2X7W +hgQLHgdKAXtq271HffYkgEnbf5O4fnJjFt3TXEhIcqrUjMJeUMjqXuVPAtFW +fOcarkfzf6tL3I6TIARRonbYt4K/JVUFkyAmyNEljm35Rs84PJwEP21/y2Rc +3/dd+p/9jCHBVfG0qS/OgxUxPGlmCSRo3E0+TMe2YakFFiWTUFxztrEN5wkP +xxnloxkkiI6GF2lgO2bTMt8XkjDe4BTT7YP7SbdTWHkFCXRva+0Pxyjkthxl +I1VNgh69/msAdpl88eaQWhJ+2t2c58P2DOKY0GzG/9txi7YWzstKkbxDhb0k +GL1OIAJw3p4wG9weN0NCnKQvkXcE19MJfqnRefy/dct6CWwyS2vW6A8JN+KY +S1k4v5vGIh4tc9HBTMvaKwXnu/xlWfK4MB16hgLXHnPCeVx5lNNOlQ5PBRXr +G+1wPe3okQxXp8PLqWQvPeyVr//dnKtFB/XDqQ+KcH/Z8krX/YsOHTzFW4Uj +cf9JfSHUFGhEB7dObVdZ3K/+LSnLiHWkw5JF2GWGBYVqCtdrvEyig5Ze0D6Z +XRT6KBdj/OkKHb6VDKc7G1Fo+uayC1c6HR5z5ccV4H4olz921TibDp2bwk/J +G+J6v1Gx2HmXDlf/6HtJ4v65Pd279nslHXSr93NVbaXQ48vVjuQ0Hfo43R5J +qOJ6NnkrHjVHh+Br+5+TKhS6LtDWNrGI9w8jDeWVcT4lDex6sYIBFU/t36kq +UmhvxsKmA0IM+Fu6dURBjkKDtzWWY1UYYHnAObhLCudnbVbOrDMDJH+k54rj ++YQz+qatoysDajidD//kw+fRpGjdGw8GtGdqPKxZSaEPzU+jUvwYcPPar2lf +HpyXXW1+auEMCH3muvMhnnd0v/DBkQwGGKd+NP+K5yc3nqBPzc0MCBKUazIb +ZCNJov79YisDdlrt4RTE81azjkyLYicD/hj6cLYMsNEW7zcvI3oZkJMS6G7a +z0a87aKZW74yQHn0fJd2NxsV5j6xvsEpC+MVJXmteL77vG2uwWezLCzWfp1T +KGWjI4GhjwWuy4LmcycLj2i8ntbHx0rZshB3VfHRSBQb8f+GJ7tyZSFcdRWH +2yU2Kg7gfXrulizMNlaFOUWy0ZJ/cukUWxZGWji/G4WzUZrf7Rd9b2Xh/NzI +2v/82ajeu/31/T+yUPzGe7clnpfV3VWa9zrLwaerJwsRnY1aRFRXB23dCDru +XMY6OSz04mFEpiqXPLSsXTXSIsZCoZzK5o398rDR02Z0+GQx4u87vce3RAEY +C65fYnMeoeFb9NScMEWAiV2lvdYPUaqiBPczayXYF34+qnPwPkq67lbrTCrD +36/rlpzO3kN2qYeaBUaUIeVWf0CUTBGa21k4n1OuAsKZsvld1++goWGDkMoo +Vei6Gl1nq3Ub5etrSjU5q8FyFH9b58NC9OBikLC72iaYPsbQOm9SgKKsj5hy +TW8CbYmqAcepfKTdl3c3qkkdkv2bnMxj81CGUuaDJlMNGF3gFXQyykVnK+Iz +TJ9pwOXWbXKHhrKRmZR1YYOcJhRdqldQcctEO3xr7YWjNaGu+CuniMY1lCPt +Itc4rQlDFzOG/cbSkFzV7bR99lowHXmXI3AsFSWpVSq3lWtBQlDQ+gXhK8ht +kru1XpkJMeN6x720kpEL6zcZnciE4ZpoNU/ZROQdYblkksyEfZmCTq6iiSjI +suS9wBUmHBXolnFbmYguTwclJKUxQV/o3I6g8QT0cOv8Yno2E/4wmKINVAKa +f73cdeseExQkdePMjBJQUptAfHUtE9QuClwu9YpH12/6eFyqZ8IlJ80LRo7x +6OaJZsM9b5ngd6Pvb5d5PHqyIWnhbTMTDFze+KzcEo/67NZ5tHcyId6kVPYG +RzxSGJIwHBxiQkPzdFh+WhzSKDlNKxhmAreEqtzJ6Dike7F33nWECaF1uTvM +w+LQXoXs4tExJhitIvoFXeJQoBdJ+/WLCe+lDaOq1eJQmN75efYkE17k7Gwt +I+PQxTWDHSemmXBTSyn+2bo4lPHoZuzcHBM+ah6xqZiPRfnnuN2fLzDBUzDT +reFbLLpn4WoQtsQEi0+nP3cPxKISRo3M9r9MKAoNbB1vi0Xlk/Lzy8tM6FT5 +pcpVE4v+BxUohXU= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07603666944553686}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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, 20}, {0., 0.07603666944553686}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913465524249306`*^9, 3.9921333702789764`*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"63920837-9763-ec40-a084-031ca4fb84fa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellLabel-> + "In[121]:=",ExpressionUUID->"b4bea72a-7a20-da43-afca-38c9d924f08e"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nc8Vu8bB3AykpRRsp9znodsGU/6SnRfkQrpSygroqxsRQoNKtkjoZAR +DS3Pc1QqScjKyExG+pKEtOxRfvfvr/N6v87rdd9n3NfnuugufvtdV3BwcKzi +5OD4/zX7jAuv5tHM7cPnZo6siN+2vbqd3HuQPIW2h74SrzOSQMs15ZEkGY16 ++gsvJRopoeyKeIKHvIYuNR+S8DXairz1g3xmibsoVGeidY+RMWpf9Ej9STxD +SV+Wxod22qKVvYMKE0Q9GrJ6EO5h6InyGnICxokPiHXb40GU/in08FF0r/em +MVTQFxwhohWD3FHrtW+Bk+gyW6xV/MAV5DusNFTycB71ZkmW+plfQ/z0CwoD +OhzgwBg3PZ2RgxKE3irnHeaCSG75DnZWPnLptXrF1cgLyXdFvcjIQhTw5oKL +nwI//F63Tm9U/Q5i+QtYihuvgQnPQR7ByCKUF+o1pnFQCIL+XKns7riPInKW +LKa+CcOSk+etO28fIo72T1B2eh1YfrgtN29QjORPuIVYKYvC9ZPmpamiLKSm +O2CZoyEK5rPtS17iLLSZw0Z9bIsobBxoiN8hxUIGccZfzhqKwqbhgtQRkoUc +C1St7jmIgp2NGJNQZaG0jt/qKxJFoVV/b5aeAQvxaJ8deTQpCosFBqfUfVjo +83T6gdUvN8Dj+FihXy9ZKH8H83h/1Qaw/HkmMaGChZzimxMfNWyAkc6Nq5Sr +WKhHjqfesnsD6Js7fLOrY6FWy8BtWZMbQHSjXEBBGwuVs/aSaspisA9Je3V9 +YaF0H86xfeliIPLB4NvjNWxk9SyLl35DDH4czSgWEWIjER4d2ckCMfiQUO/r +I8JGCVm+DulsMfB9WtYtLcZGF972Ng80iUHa928uR0g28ld6Qvlzi4PWkwGL +RC02Mhk+Fp4SIA4CR6lSF2s22hUue39niDh0rFUeOnGQjQxE+3pmzojDMf1P +khdt2UjXyEzHPk4cGpO02TmH2Ei5UH1S9rY4vG95df6lKxutdp3yeNwnDmvc +TR5lBrFR4+dwq+7dElDJF/Zg8Aob1YVtiYzZJwE2nRXXn1xlo+r1P1h61hJw +2W1b+uV0NirbeVgwz0UCiEb5cvlMNrpfYNDgGS4B9tS2GtN8Noo/uhIW2RLA +1ZfRrlPMRvs+J6nQaJJg5cabltOA91P53OEgJwm/z+rslWxkI9Pj/5zJVJaE +nz4q1lea2GjPio/vxP+RhBz6c6dz7/D7kSrB68wlwbTHym5XFxtpO7yp4IuQ +hP1p4n/O/8dG0h3z1pPDknBBcWNl6QwbXZcyW9b8JgnC1dG8f2fZSOJI7h3/ +35LQ4nwgb8c8G234vWtx4q8kFB6831O1yEZCQqm5X8WkwIQx71TCQSGuvZvG ++42lYGFgT7sRP4XGqlzO1T2QAhIF2KlIU4hI7j6WUCIFYb6Ft/fLUMjKcZ+1 +1QspWG2SyRNCo1D53FblT3VSAD+uT5WRFEpRE+6YHZKC9WU3C9Q3Umhb+isF +BUlpaLr/ILRUjUL+R7VFJkhpGFH/NFGxiUK3NO8tsRWkIfkz80StOoWEGtNa +t2tLg34kvbxZk0KfOXxDD5hLgx2XrVmNNoXijkm3XLwkDUnD++Ns9Sn0+p+U +Z6bx0sDiqbM33E6hGW6+AuFUaRCcWm2ogih0OGcyJDsP3984YzsNFNrc0cB4 +XCYNF8dligN3Uqhf/1Tw59/SoEdwa4uYUmiTcJeMoZMMHKn+cOzLAQp9if8S +cdVVBoaH/DdfPkihbP7ZkREvGei5M2SvaEMhAW5xdlyIDPAZGbw5You/34zt +rq5kGfhbpstXa0+hwr5+X89qGWjnuRCBDlPIwfZ7+4sGGZj4td2oFnt911+d +ta0ywNlxydPMmUIRLQQX1S8DMzqs91Yu+PkrndOXZmRA5bS8hflRCknfGX6V +qESDk0W/vs+7U6hDbkZuUJ0GDounR9w9KBSbxxuzeQsNvriHGHVgL1xXsPpg +QIP+9Hdadzwp1B3v+ZXhQIPBfr4ePS8KJfGfNgtyocG4/E6eG9i7o2LYtR40 +GBtYSP+D/eTcvTDvIBo8lR+ceupNoSvHJ4SeJNBA5vf7KxK+FDL5+SeI7yoN +gnTVVvhir/BZ22uXSYOaLSI9Fdj+buqFy7dpcFv3Wq2zH4X22QZsNX5NgxBJ +vrwkfwrxdp2/kVlLg87du450Y7/cn8L1vYkGB9W1k2kBFFLdSzWl9NDgrN9W +zVvY/GjauW+SBtvPnojOD6RQyA5FvicLNPD9oJY0iP3F0P5hIicBu31rysnj +FKrc83rBQJAAsnMpNR1bw3QqV3oDAXTxf/XfYd8wU9g9I01A5MnRtStPUOj0 +/vgrd5UJ+MfGRd0P+6tVxdZITQKmPGbP5GIfODg54KBDwM2SHfMt2FoOtqpC +uwgI53DzUwqiUK5jXNvoXgIki+a8LLHXOr8KqbIkwPQ/Vmoo9rjrxjfBzgT8 +VRLwrsG287DxMvcgIGnBXWoUu+5YrLCyHwHJXU5zq4IptMWn/ClXMAFKVRZc +StgFfr8O9YcRcGlllt4ubJFAOe6nkQRQqtkFztjnThwsSooh4OQfalsotsOp +lzOGGQQ8WJ8zdwe7IfRnlkwOAfw6WsRLbJ0zsoazhXj/CpvgFuxb5w6MvrtP +QMqrwL8D2OsjoxOLKAJ2RH16+h074mKZ9oXnBCQWrbi5iP0z6kfvodd4vT9b +K3hPUsgxhhHxTx0Bz1NGBIWwG+OsFYVbCPj+yjtFDFs38XLzWCcBTAmVPTLY +d5JfnKjuI0Ds+AVNOvaG1O+SN4YIEBzs2SeLfSGN/vrkGAEHnifl/t+/M6zc +LX4RUJHIp8DAPpwZtUZljoBc7cJBGnZz9nOKe5mAtPL6dgls2rsZ1R8rSAgJ ++7Aggm1tIcThwEvCRg4dG37suDal9rpVJLhLGH9bxu9TZWl4S3sNCfVd/k8n +sRc6HE7lC5EQdHHd82FszQPBewXXkyDAujrVie3xPpEIEyPhgqyDezV2js3d +318lSVg9/FaEhd31ofKNNY2Ed9tMZjOx19j3ZVTSSfh1T0/0IvbOvmkv9Y0k +GM/y+Xhjhx4SRFmKJFjKiC5bYLM/KoqsUiVh2a72rTb2qJPBcJA6CWnKl9rF +sMn/7EsHtUiINSzdMIfPT8JQgmPZVhI8D4tYUNhvjt7RVNInoZtrlXEC9tLw +a+40IOGwutAZd+xjX6eK/HaT0Df7I3c99u4Ju1mGNQkB7s6dtvh831gf2X7W +hgQLHgdKAXtq271HffYkgEnbf5O4fnJjFt3TXEhIcqrUjMJeUMjqXuVPAtFW +fOcarkfzf6tL3I6TIARRonbYt4K/JVUFkyAmyNEljm35Rs84PJwEP21/y2Rc +3/dd+p/9jCHBVfG0qS/OgxUxPGlmCSRo3E0+TMe2YakFFiWTUFxztrEN5wkP +xxnloxkkiI6GF2lgO2bTMt8XkjDe4BTT7YP7SbdTWHkFCXRva+0Pxyjkthxl +I1VNgh69/msAdpl88eaQWhJ+2t2c58P2DOKY0GzG/9txi7YWzstKkbxDhb0k +GL1OIAJw3p4wG9weN0NCnKQvkXcE19MJfqnRefy/dct6CWwyS2vW6A8JN+KY +S1k4v5vGIh4tc9HBTMvaKwXnu/xlWfK4MB16hgLXHnPCeVx5lNNOlQ5PBRXr +G+1wPe3okQxXp8PLqWQvPeyVr//dnKtFB/XDqQ+KcH/Z8krX/YsOHTzFW4Uj +cf9JfSHUFGhEB7dObVdZ3K/+LSnLiHWkw5JF2GWGBYVqCtdrvEyig5Ze0D6Z +XRT6KBdj/OkKHb6VDKc7G1Fo+uayC1c6HR5z5ccV4H4olz921TibDp2bwk/J +G+J6v1Gx2HmXDlf/6HtJ4v65Pd279nslHXSr93NVbaXQ48vVjuQ0Hfo43R5J +qOJ6NnkrHjVHh+Br+5+TKhS6LtDWNrGI9w8jDeWVcT4lDex6sYIBFU/t36kq +UmhvxsKmA0IM+Fu6dURBjkKDtzWWY1UYYHnAObhLCudnbVbOrDMDJH+k54rj ++YQz+qatoysDajidD//kw+fRpGjdGw8GtGdqPKxZSaEPzU+jUvwYcPPar2lf +HpyXXW1+auEMCH3muvMhnnd0v/DBkQwGGKd+NP+K5yc3nqBPzc0MCBKUazIb +ZCNJov79YisDdlrt4RTE81azjkyLYicD/hj6cLYMsNEW7zcvI3oZkJMS6G7a +z0a87aKZW74yQHn0fJd2NxsV5j6xvsEpC+MVJXmteL77vG2uwWezLCzWfp1T +KGWjI4GhjwWuy4LmcycLj2i8ntbHx0rZshB3VfHRSBQb8f+GJ7tyZSFcdRWH +2yU2Kg7gfXrulizMNlaFOUWy0ZJ/cukUWxZGWji/G4WzUZrf7Rd9b2Xh/NzI +2v/82ajeu/31/T+yUPzGe7clnpfV3VWa9zrLwaerJwsRnY1aRFRXB23dCDru +XMY6OSz04mFEpiqXPLSsXTXSIsZCoZzK5o398rDR02Z0+GQx4u87vce3RAEY +C65fYnMeoeFb9NScMEWAiV2lvdYPUaqiBPczayXYF34+qnPwPkq67lbrTCrD +36/rlpzO3kN2qYeaBUaUIeVWf0CUTBGa21k4n1OuAsKZsvld1++goWGDkMoo +Vei6Gl1nq3Ub5etrSjU5q8FyFH9b58NC9OBikLC72iaYPsbQOm9SgKKsj5hy +TW8CbYmqAcepfKTdl3c3qkkdkv2bnMxj81CGUuaDJlMNGF3gFXQyykVnK+Iz +TJ9pwOXWbXKHhrKRmZR1YYOcJhRdqldQcctEO3xr7YWjNaGu+CuniMY1lCPt +Itc4rQlDFzOG/cbSkFzV7bR99lowHXmXI3AsFSWpVSq3lWtBQlDQ+gXhK8ht +kru1XpkJMeN6x720kpEL6zcZnciE4ZpoNU/ZROQdYblkksyEfZmCTq6iiSjI +suS9wBUmHBXolnFbmYguTwclJKUxQV/o3I6g8QT0cOv8Yno2E/4wmKINVAKa +f73cdeseExQkdePMjBJQUptAfHUtE9QuClwu9YpH12/6eFyqZ8IlJ80LRo7x +6OaJZsM9b5ngd6Pvb5d5PHqyIWnhbTMTDFze+KzcEo/67NZ5tHcyId6kVPYG +RzxSGJIwHBxiQkPzdFh+WhzSKDlNKxhmAreEqtzJ6Dike7F33nWECaF1uTvM +w+LQXoXs4tExJhitIvoFXeJQoBdJ+/WLCe+lDaOq1eJQmN75efYkE17k7Gwt +I+PQxTWDHSemmXBTSyn+2bo4lPHoZuzcHBM+ah6xqZiPRfnnuN2fLzDBUzDT +reFbLLpn4WoQtsQEi0+nP3cPxKISRo3M9r9MKAoNbB1vi0Xlk/Lzy8tM6FT5 +pcpVE4v+BxUohXU= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Vu8bB3AykpRRsp9znodsGU/6SnRfkQrpSygroqxsRQoNKtkjoZAR +DS3Pc1QqScjKyExG+pKEtOxRfvfvr/N6v87rdd9n3NfnuugufvtdV3BwcKzi +5OD4/zX7jAuv5tHM7cPnZo6siN+2vbqd3HuQPIW2h74SrzOSQMs15ZEkGY16 ++gsvJRopoeyKeIKHvIYuNR+S8DXairz1g3xmibsoVGeidY+RMWpf9Ej9STxD +SV+Wxod22qKVvYMKE0Q9GrJ6EO5h6InyGnICxokPiHXb40GU/in08FF0r/em +MVTQFxwhohWD3FHrtW+Bk+gyW6xV/MAV5DusNFTycB71ZkmW+plfQ/z0CwoD +OhzgwBg3PZ2RgxKE3irnHeaCSG75DnZWPnLptXrF1cgLyXdFvcjIQhTw5oKL +nwI//F63Tm9U/Q5i+QtYihuvgQnPQR7ByCKUF+o1pnFQCIL+XKns7riPInKW +LKa+CcOSk+etO28fIo72T1B2eh1YfrgtN29QjORPuIVYKYvC9ZPmpamiLKSm +O2CZoyEK5rPtS17iLLSZw0Z9bIsobBxoiN8hxUIGccZfzhqKwqbhgtQRkoUc +C1St7jmIgp2NGJNQZaG0jt/qKxJFoVV/b5aeAQvxaJ8deTQpCosFBqfUfVjo +83T6gdUvN8Dj+FihXy9ZKH8H83h/1Qaw/HkmMaGChZzimxMfNWyAkc6Nq5Sr +WKhHjqfesnsD6Js7fLOrY6FWy8BtWZMbQHSjXEBBGwuVs/aSaspisA9Je3V9 +YaF0H86xfeliIPLB4NvjNWxk9SyLl35DDH4czSgWEWIjER4d2ckCMfiQUO/r +I8JGCVm+DulsMfB9WtYtLcZGF972Ng80iUHa928uR0g28ld6Qvlzi4PWkwGL +RC02Mhk+Fp4SIA4CR6lSF2s22hUue39niDh0rFUeOnGQjQxE+3pmzojDMf1P +khdt2UjXyEzHPk4cGpO02TmH2Ei5UH1S9rY4vG95df6lKxutdp3yeNwnDmvc +TR5lBrFR4+dwq+7dElDJF/Zg8Aob1YVtiYzZJwE2nRXXn1xlo+r1P1h61hJw +2W1b+uV0NirbeVgwz0UCiEb5cvlMNrpfYNDgGS4B9tS2GtN8Noo/uhIW2RLA +1ZfRrlPMRvs+J6nQaJJg5cabltOA91P53OEgJwm/z+rslWxkI9Pj/5zJVJaE +nz4q1lea2GjPio/vxP+RhBz6c6dz7/D7kSrB68wlwbTHym5XFxtpO7yp4IuQ +hP1p4n/O/8dG0h3z1pPDknBBcWNl6QwbXZcyW9b8JgnC1dG8f2fZSOJI7h3/ +35LQ4nwgb8c8G234vWtx4q8kFB6831O1yEZCQqm5X8WkwIQx71TCQSGuvZvG ++42lYGFgT7sRP4XGqlzO1T2QAhIF2KlIU4hI7j6WUCIFYb6Ft/fLUMjKcZ+1 +1QspWG2SyRNCo1D53FblT3VSAD+uT5WRFEpRE+6YHZKC9WU3C9Q3Umhb+isF +BUlpaLr/ILRUjUL+R7VFJkhpGFH/NFGxiUK3NO8tsRWkIfkz80StOoWEGtNa +t2tLg34kvbxZk0KfOXxDD5hLgx2XrVmNNoXijkm3XLwkDUnD++Ns9Sn0+p+U +Z6bx0sDiqbM33E6hGW6+AuFUaRCcWm2ogih0OGcyJDsP3984YzsNFNrc0cB4 +XCYNF8dligN3Uqhf/1Tw59/SoEdwa4uYUmiTcJeMoZMMHKn+cOzLAQp9if8S +cdVVBoaH/DdfPkihbP7ZkREvGei5M2SvaEMhAW5xdlyIDPAZGbw5You/34zt +rq5kGfhbpstXa0+hwr5+X89qGWjnuRCBDlPIwfZ7+4sGGZj4td2oFnt911+d +ta0ywNlxydPMmUIRLQQX1S8DMzqs91Yu+PkrndOXZmRA5bS8hflRCknfGX6V +qESDk0W/vs+7U6hDbkZuUJ0GDounR9w9KBSbxxuzeQsNvriHGHVgL1xXsPpg +QIP+9Hdadzwp1B3v+ZXhQIPBfr4ePS8KJfGfNgtyocG4/E6eG9i7o2LYtR40 +GBtYSP+D/eTcvTDvIBo8lR+ceupNoSvHJ4SeJNBA5vf7KxK+FDL5+SeI7yoN +gnTVVvhir/BZ22uXSYOaLSI9Fdj+buqFy7dpcFv3Wq2zH4X22QZsNX5NgxBJ +vrwkfwrxdp2/kVlLg87du450Y7/cn8L1vYkGB9W1k2kBFFLdSzWl9NDgrN9W +zVvY/GjauW+SBtvPnojOD6RQyA5FvicLNPD9oJY0iP3F0P5hIicBu31rysnj +FKrc83rBQJAAsnMpNR1bw3QqV3oDAXTxf/XfYd8wU9g9I01A5MnRtStPUOj0 +/vgrd5UJ+MfGRd0P+6tVxdZITQKmPGbP5GIfODg54KBDwM2SHfMt2FoOtqpC +uwgI53DzUwqiUK5jXNvoXgIki+a8LLHXOr8KqbIkwPQ/Vmoo9rjrxjfBzgT8 +VRLwrsG287DxMvcgIGnBXWoUu+5YrLCyHwHJXU5zq4IptMWn/ClXMAFKVRZc +StgFfr8O9YcRcGlllt4ubJFAOe6nkQRQqtkFztjnThwsSooh4OQfalsotsOp +lzOGGQQ8WJ8zdwe7IfRnlkwOAfw6WsRLbJ0zsoazhXj/CpvgFuxb5w6MvrtP +QMqrwL8D2OsjoxOLKAJ2RH16+h074mKZ9oXnBCQWrbi5iP0z6kfvodd4vT9b +K3hPUsgxhhHxTx0Bz1NGBIWwG+OsFYVbCPj+yjtFDFs38XLzWCcBTAmVPTLY +d5JfnKjuI0Ds+AVNOvaG1O+SN4YIEBzs2SeLfSGN/vrkGAEHnifl/t+/M6zc +LX4RUJHIp8DAPpwZtUZljoBc7cJBGnZz9nOKe5mAtPL6dgls2rsZ1R8rSAgJ ++7Aggm1tIcThwEvCRg4dG37suDal9rpVJLhLGH9bxu9TZWl4S3sNCfVd/k8n +sRc6HE7lC5EQdHHd82FszQPBewXXkyDAujrVie3xPpEIEyPhgqyDezV2js3d +318lSVg9/FaEhd31ofKNNY2Ed9tMZjOx19j3ZVTSSfh1T0/0IvbOvmkv9Y0k +GM/y+Xhjhx4SRFmKJFjKiC5bYLM/KoqsUiVh2a72rTb2qJPBcJA6CWnKl9rF +sMn/7EsHtUiINSzdMIfPT8JQgmPZVhI8D4tYUNhvjt7RVNInoZtrlXEC9tLw +a+40IOGwutAZd+xjX6eK/HaT0Df7I3c99u4Ju1mGNQkB7s6dtvh831gf2X7W +hgQLHgdKAXtq271HffYkgEnbf5O4fnJjFt3TXEhIcqrUjMJeUMjqXuVPAtFW +fOcarkfzf6tL3I6TIARRonbYt4K/JVUFkyAmyNEljm35Rs84PJwEP21/y2Rc +3/dd+p/9jCHBVfG0qS/OgxUxPGlmCSRo3E0+TMe2YakFFiWTUFxztrEN5wkP +xxnloxkkiI6GF2lgO2bTMt8XkjDe4BTT7YP7SbdTWHkFCXRva+0Pxyjkthxl +I1VNgh69/msAdpl88eaQWhJ+2t2c58P2DOKY0GzG/9txi7YWzstKkbxDhb0k +GL1OIAJw3p4wG9weN0NCnKQvkXcE19MJfqnRefy/dct6CWwyS2vW6A8JN+KY +S1k4v5vGIh4tc9HBTMvaKwXnu/xlWfK4MB16hgLXHnPCeVx5lNNOlQ5PBRXr +G+1wPe3okQxXp8PLqWQvPeyVr//dnKtFB/XDqQ+KcH/Z8krX/YsOHTzFW4Uj +cf9JfSHUFGhEB7dObVdZ3K/+LSnLiHWkw5JF2GWGBYVqCtdrvEyig5Ze0D6Z +XRT6KBdj/OkKHb6VDKc7G1Fo+uayC1c6HR5z5ccV4H4olz921TibDp2bwk/J +G+J6v1Gx2HmXDlf/6HtJ4v65Pd279nslHXSr93NVbaXQ48vVjuQ0Hfo43R5J +qOJ6NnkrHjVHh+Br+5+TKhS6LtDWNrGI9w8jDeWVcT4lDex6sYIBFU/t36kq +UmhvxsKmA0IM+Fu6dURBjkKDtzWWY1UYYHnAObhLCudnbVbOrDMDJH+k54rj ++YQz+qatoysDajidD//kw+fRpGjdGw8GtGdqPKxZSaEPzU+jUvwYcPPar2lf +HpyXXW1+auEMCH3muvMhnnd0v/DBkQwGGKd+NP+K5yc3nqBPzc0MCBKUazIb +ZCNJov79YisDdlrt4RTE81azjkyLYicD/hj6cLYMsNEW7zcvI3oZkJMS6G7a +z0a87aKZW74yQHn0fJd2NxsV5j6xvsEpC+MVJXmteL77vG2uwWezLCzWfp1T +KGWjI4GhjwWuy4LmcycLj2i8ntbHx0rZshB3VfHRSBQb8f+GJ7tyZSFcdRWH +2yU2Kg7gfXrulizMNlaFOUWy0ZJ/cukUWxZGWji/G4WzUZrf7Rd9b2Xh/NzI +2v/82ajeu/31/T+yUPzGe7clnpfV3VWa9zrLwaerJwsRnY1aRFRXB23dCDru +XMY6OSz04mFEpiqXPLSsXTXSIsZCoZzK5o398rDR02Z0+GQx4u87vce3RAEY +C65fYnMeoeFb9NScMEWAiV2lvdYPUaqiBPczayXYF34+qnPwPkq67lbrTCrD +36/rlpzO3kN2qYeaBUaUIeVWf0CUTBGa21k4n1OuAsKZsvld1++goWGDkMoo +Vei6Gl1nq3Ub5etrSjU5q8FyFH9b58NC9OBikLC72iaYPsbQOm9SgKKsj5hy +TW8CbYmqAcepfKTdl3c3qkkdkv2bnMxj81CGUuaDJlMNGF3gFXQyykVnK+Iz +TJ9pwOXWbXKHhrKRmZR1YYOcJhRdqldQcctEO3xr7YWjNaGu+CuniMY1lCPt +Itc4rQlDFzOG/cbSkFzV7bR99lowHXmXI3AsFSWpVSq3lWtBQlDQ+gXhK8ht +kru1XpkJMeN6x720kpEL6zcZnciE4ZpoNU/ZROQdYblkksyEfZmCTq6iiSjI +suS9wBUmHBXolnFbmYguTwclJKUxQV/o3I6g8QT0cOv8Yno2E/4wmKINVAKa +f73cdeseExQkdePMjBJQUptAfHUtE9QuClwu9YpH12/6eFyqZ8IlJ80LRo7x +6OaJZsM9b5ngd6Pvb5d5PHqyIWnhbTMTDFze+KzcEo/67NZ5tHcyId6kVPYG +RzxSGJIwHBxiQkPzdFh+WhzSKDlNKxhmAreEqtzJ6Dike7F33nWECaF1uTvM +w+LQXoXs4tExJhitIvoFXeJQoBdJ+/WLCe+lDaOq1eJQmN75efYkE17k7Gwt +I+PQxTWDHSemmXBTSyn+2bo4lPHoZuzcHBM+ah6xqZiPRfnnuN2fLzDBUzDT +reFbLLpn4WoQtsQEi0+nP3cPxKISRo3M9r9MKAoNbB1vi0Xlk/Lzy8tM6FT5 +pcpVE4v+BxUohXU= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07603666944553686}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07603666944553686}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Vu8bB3AykpRRsp9znodsGU/6SnRfkQrpSygroqxsRQoNKtkjoZAR +DS3Pc1QqScjKyExG+pKEtOxRfvfvr/N6v87rdd9n3NfnuugufvtdV3BwcKzi +5OD4/zX7jAuv5tHM7cPnZo6siN+2vbqd3HuQPIW2h74SrzOSQMs15ZEkGY16 ++gsvJRopoeyKeIKHvIYuNR+S8DXairz1g3xmibsoVGeidY+RMWpf9Ej9STxD +SV+Wxod22qKVvYMKE0Q9GrJ6EO5h6InyGnICxokPiHXb40GU/in08FF0r/em +MVTQFxwhohWD3FHrtW+Bk+gyW6xV/MAV5DusNFTycB71ZkmW+plfQ/z0CwoD +OhzgwBg3PZ2RgxKE3irnHeaCSG75DnZWPnLptXrF1cgLyXdFvcjIQhTw5oKL +nwI//F63Tm9U/Q5i+QtYihuvgQnPQR7ByCKUF+o1pnFQCIL+XKns7riPInKW +LKa+CcOSk+etO28fIo72T1B2eh1YfrgtN29QjORPuIVYKYvC9ZPmpamiLKSm +O2CZoyEK5rPtS17iLLSZw0Z9bIsobBxoiN8hxUIGccZfzhqKwqbhgtQRkoUc +C1St7jmIgp2NGJNQZaG0jt/qKxJFoVV/b5aeAQvxaJ8deTQpCosFBqfUfVjo +83T6gdUvN8Dj+FihXy9ZKH8H83h/1Qaw/HkmMaGChZzimxMfNWyAkc6Nq5Sr +WKhHjqfesnsD6Js7fLOrY6FWy8BtWZMbQHSjXEBBGwuVs/aSaspisA9Je3V9 +YaF0H86xfeliIPLB4NvjNWxk9SyLl35DDH4czSgWEWIjER4d2ckCMfiQUO/r +I8JGCVm+DulsMfB9WtYtLcZGF972Ng80iUHa928uR0g28ld6Qvlzi4PWkwGL +RC02Mhk+Fp4SIA4CR6lSF2s22hUue39niDh0rFUeOnGQjQxE+3pmzojDMf1P +khdt2UjXyEzHPk4cGpO02TmH2Ei5UH1S9rY4vG95df6lKxutdp3yeNwnDmvc +TR5lBrFR4+dwq+7dElDJF/Zg8Aob1YVtiYzZJwE2nRXXn1xlo+r1P1h61hJw +2W1b+uV0NirbeVgwz0UCiEb5cvlMNrpfYNDgGS4B9tS2GtN8Noo/uhIW2RLA +1ZfRrlPMRvs+J6nQaJJg5cabltOA91P53OEgJwm/z+rslWxkI9Pj/5zJVJaE +nz4q1lea2GjPio/vxP+RhBz6c6dz7/D7kSrB68wlwbTHym5XFxtpO7yp4IuQ +hP1p4n/O/8dG0h3z1pPDknBBcWNl6QwbXZcyW9b8JgnC1dG8f2fZSOJI7h3/ +35LQ4nwgb8c8G234vWtx4q8kFB6831O1yEZCQqm5X8WkwIQx71TCQSGuvZvG ++42lYGFgT7sRP4XGqlzO1T2QAhIF2KlIU4hI7j6WUCIFYb6Ft/fLUMjKcZ+1 +1QspWG2SyRNCo1D53FblT3VSAD+uT5WRFEpRE+6YHZKC9WU3C9Q3Umhb+isF +BUlpaLr/ILRUjUL+R7VFJkhpGFH/NFGxiUK3NO8tsRWkIfkz80StOoWEGtNa +t2tLg34kvbxZk0KfOXxDD5hLgx2XrVmNNoXijkm3XLwkDUnD++Ns9Sn0+p+U +Z6bx0sDiqbM33E6hGW6+AuFUaRCcWm2ogih0OGcyJDsP3984YzsNFNrc0cB4 +XCYNF8dligN3Uqhf/1Tw59/SoEdwa4uYUmiTcJeMoZMMHKn+cOzLAQp9if8S +cdVVBoaH/DdfPkihbP7ZkREvGei5M2SvaEMhAW5xdlyIDPAZGbw5You/34zt +rq5kGfhbpstXa0+hwr5+X89qGWjnuRCBDlPIwfZ7+4sGGZj4td2oFnt911+d +ta0ywNlxydPMmUIRLQQX1S8DMzqs91Yu+PkrndOXZmRA5bS8hflRCknfGX6V +qESDk0W/vs+7U6hDbkZuUJ0GDounR9w9KBSbxxuzeQsNvriHGHVgL1xXsPpg +QIP+9Hdadzwp1B3v+ZXhQIPBfr4ePS8KJfGfNgtyocG4/E6eG9i7o2LYtR40 +GBtYSP+D/eTcvTDvIBo8lR+ceupNoSvHJ4SeJNBA5vf7KxK+FDL5+SeI7yoN +gnTVVvhir/BZ22uXSYOaLSI9Fdj+buqFy7dpcFv3Wq2zH4X22QZsNX5NgxBJ +vrwkfwrxdp2/kVlLg87du450Y7/cn8L1vYkGB9W1k2kBFFLdSzWl9NDgrN9W +zVvY/GjauW+SBtvPnojOD6RQyA5FvicLNPD9oJY0iP3F0P5hIicBu31rysnj +FKrc83rBQJAAsnMpNR1bw3QqV3oDAXTxf/XfYd8wU9g9I01A5MnRtStPUOj0 +/vgrd5UJ+MfGRd0P+6tVxdZITQKmPGbP5GIfODg54KBDwM2SHfMt2FoOtqpC +uwgI53DzUwqiUK5jXNvoXgIki+a8LLHXOr8KqbIkwPQ/Vmoo9rjrxjfBzgT8 +VRLwrsG287DxMvcgIGnBXWoUu+5YrLCyHwHJXU5zq4IptMWn/ClXMAFKVRZc +StgFfr8O9YcRcGlllt4ubJFAOe6nkQRQqtkFztjnThwsSooh4OQfalsotsOp +lzOGGQQ8WJ8zdwe7IfRnlkwOAfw6WsRLbJ0zsoazhXj/CpvgFuxb5w6MvrtP +QMqrwL8D2OsjoxOLKAJ2RH16+h074mKZ9oXnBCQWrbi5iP0z6kfvodd4vT9b +K3hPUsgxhhHxTx0Bz1NGBIWwG+OsFYVbCPj+yjtFDFs38XLzWCcBTAmVPTLY +d5JfnKjuI0Ds+AVNOvaG1O+SN4YIEBzs2SeLfSGN/vrkGAEHnifl/t+/M6zc +LX4RUJHIp8DAPpwZtUZljoBc7cJBGnZz9nOKe5mAtPL6dgls2rsZ1R8rSAgJ ++7Aggm1tIcThwEvCRg4dG37suDal9rpVJLhLGH9bxu9TZWl4S3sNCfVd/k8n +sRc6HE7lC5EQdHHd82FszQPBewXXkyDAujrVie3xPpEIEyPhgqyDezV2js3d +318lSVg9/FaEhd31ofKNNY2Ed9tMZjOx19j3ZVTSSfh1T0/0IvbOvmkv9Y0k +GM/y+Xhjhx4SRFmKJFjKiC5bYLM/KoqsUiVh2a72rTb2qJPBcJA6CWnKl9rF +sMn/7EsHtUiINSzdMIfPT8JQgmPZVhI8D4tYUNhvjt7RVNInoZtrlXEC9tLw +a+40IOGwutAZd+xjX6eK/HaT0Df7I3c99u4Ju1mGNQkB7s6dtvh831gf2X7W +hgQLHgdKAXtq271HffYkgEnbf5O4fnJjFt3TXEhIcqrUjMJeUMjqXuVPAtFW +fOcarkfzf6tL3I6TIARRonbYt4K/JVUFkyAmyNEljm35Rs84PJwEP21/y2Rc +3/dd+p/9jCHBVfG0qS/OgxUxPGlmCSRo3E0+TMe2YakFFiWTUFxztrEN5wkP +xxnloxkkiI6GF2lgO2bTMt8XkjDe4BTT7YP7SbdTWHkFCXRva+0Pxyjkthxl +I1VNgh69/msAdpl88eaQWhJ+2t2c58P2DOKY0GzG/9txi7YWzstKkbxDhb0k +GL1OIAJw3p4wG9weN0NCnKQvkXcE19MJfqnRefy/dct6CWwyS2vW6A8JN+KY +S1k4v5vGIh4tc9HBTMvaKwXnu/xlWfK4MB16hgLXHnPCeVx5lNNOlQ5PBRXr +G+1wPe3okQxXp8PLqWQvPeyVr//dnKtFB/XDqQ+KcH/Z8krX/YsOHTzFW4Uj +cf9JfSHUFGhEB7dObVdZ3K/+LSnLiHWkw5JF2GWGBYVqCtdrvEyig5Ze0D6Z +XRT6KBdj/OkKHb6VDKc7G1Fo+uayC1c6HR5z5ccV4H4olz921TibDp2bwk/J +G+J6v1Gx2HmXDlf/6HtJ4v65Pd279nslHXSr93NVbaXQ48vVjuQ0Hfo43R5J +qOJ6NnkrHjVHh+Br+5+TKhS6LtDWNrGI9w8jDeWVcT4lDex6sYIBFU/t36kq +UmhvxsKmA0IM+Fu6dURBjkKDtzWWY1UYYHnAObhLCudnbVbOrDMDJH+k54rj ++YQz+qatoysDajidD//kw+fRpGjdGw8GtGdqPKxZSaEPzU+jUvwYcPPar2lf +HpyXXW1+auEMCH3muvMhnnd0v/DBkQwGGKd+NP+K5yc3nqBPzc0MCBKUazIb +ZCNJov79YisDdlrt4RTE81azjkyLYicD/hj6cLYMsNEW7zcvI3oZkJMS6G7a +z0a87aKZW74yQHn0fJd2NxsV5j6xvsEpC+MVJXmteL77vG2uwWezLCzWfp1T +KGWjI4GhjwWuy4LmcycLj2i8ntbHx0rZshB3VfHRSBQb8f+GJ7tyZSFcdRWH +2yU2Kg7gfXrulizMNlaFOUWy0ZJ/cukUWxZGWji/G4WzUZrf7Rd9b2Xh/NzI +2v/82ajeu/31/T+yUPzGe7clnpfV3VWa9zrLwaerJwsRnY1aRFRXB23dCDru +XMY6OSz04mFEpiqXPLSsXTXSIsZCoZzK5o398rDR02Z0+GQx4u87vce3RAEY +C65fYnMeoeFb9NScMEWAiV2lvdYPUaqiBPczayXYF34+qnPwPkq67lbrTCrD +36/rlpzO3kN2qYeaBUaUIeVWf0CUTBGa21k4n1OuAsKZsvld1++goWGDkMoo +Vei6Gl1nq3Ub5etrSjU5q8FyFH9b58NC9OBikLC72iaYPsbQOm9SgKKsj5hy +TW8CbYmqAcepfKTdl3c3qkkdkv2bnMxj81CGUuaDJlMNGF3gFXQyykVnK+Iz +TJ9pwOXWbXKHhrKRmZR1YYOcJhRdqldQcctEO3xr7YWjNaGu+CuniMY1lCPt +Itc4rQlDFzOG/cbSkFzV7bR99lowHXmXI3AsFSWpVSq3lWtBQlDQ+gXhK8ht +kru1XpkJMeN6x720kpEL6zcZnciE4ZpoNU/ZROQdYblkksyEfZmCTq6iiSjI +suS9wBUmHBXolnFbmYguTwclJKUxQV/o3I6g8QT0cOv8Yno2E/4wmKINVAKa +f73cdeseExQkdePMjBJQUptAfHUtE9QuClwu9YpH12/6eFyqZ8IlJ80LRo7x +6OaJZsM9b5ngd6Pvb5d5PHqyIWnhbTMTDFze+KzcEo/67NZ5tHcyId6kVPYG +RzxSGJIwHBxiQkPzdFh+WhzSKDlNKxhmAreEqtzJ6Dike7F33nWECaF1uTvM +w+LQXoXs4tExJhitIvoFXeJQoBdJ+/WLCe+lDaOq1eJQmN75efYkE17k7Gwt +I+PQxTWDHSemmXBTSyn+2bo4lPHoZuzcHBM+ah6xqZiPRfnnuN2fLzDBUzDT +reFbLLpn4WoQtsQEi0+nP3cPxKISRo3M9r9MKAoNbB1vi0Xlk/Lzy8tM6FT5 +pcpVE4v+BxUohXU= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.07603666944553686}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, + 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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, 20}, {0., 0.07603666944553686}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.992133370357727*^9}, + CellLabel-> + "Out[121]=",ExpressionUUID->"c6d2d566-a6cf-d449-9ca2-829cb8ede854"] +}, 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[122]:=",ExpressionUUID->"94a1b9ea-c98a-ee4e-bb2c-43256dd887e6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8309214465349764`*^-175\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 122, 1098, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347571140808*^9, 3.992133370400728*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"2f31f5fb-56dc-9043-becb-252ed3abac1f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.986131132608925`*^-179\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 122, 1099, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347571140808*^9, 3.9921333704112377`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"51a1d65f-ee46-b548-8ba0-340c7b91a261"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.483398514334195`*^-182\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 122, 1100, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347571140808*^9, 3.992133370417782*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"5efd8001-25bf-694c-92ed-7a4ece778a79"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 122, 1101, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347571140808*^9, 3.9921333704247684`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"6fc12fd7-53c1-7340-9a95-be77c5704a91"], + +Cell[BoxData["14.63057402610588`"], "Output", + CellChangeTimes->{3.991347578228073*^9, 3.9921333979521847`*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"edb186d5-9be3-c542-8e8f-05bf07836749"] +}, 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.9918472030801735`*^9, 3.9918472073134327`*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"ad8fe405-3f1b-4e4d-b1dd-9e266c1ec152"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.798893773386419`*^-206\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 123, 1102, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347578265545*^9, 3.9921333979899006`*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"47299ee8-9036-2e42-8fcd-352a65d6ca49"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4775395858591666`*^-210\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 123, 1103, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347578265545*^9, 3.9921333979977894`*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"29b5c5a7-0ec1-294c-8aff-08f4de5db46a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2109977013120764`*^-215\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 123, 1104, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347578265545*^9, 3.9921333980047874`*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"f52d129d-de24-f747-b6a4-e4536e06a182"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 123, 1105, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347578265545*^9, 3.992133398010788*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"5828916e-fac0-7945-a9d4-0b92741a8c81"], + +Cell[BoxData["2.7660933665085667`"], "Output", + CellChangeTimes->{3.9913475858902473`*^9, 3.992133403316862*^9}, + CellLabel-> + "Out[123]=",ExpressionUUID->"a7d39d00-c729-1240-81c1-b1261e768f37"] +}, 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.9918472136550217`*^9, 3.9918472163537464`*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"6531fc5f-fdb5-a54c-abb2-46a9d151a60a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.798893773386419`*^-206\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 124, 1106, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475859272156`*^9, 3.9921334033668423`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"8664a5d7-7bc7-fa44-96c9-a51374515748"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4775395858591666`*^-210\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 124, 1107, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475859272156`*^9, 3.992133403373844*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"4fa7f6cb-4cf0-864e-ad39-9f6a03c4df9d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2109977013120764`*^-215\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 124, 1108, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475859272156`*^9, 3.992133403380846*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"446ef805-4ac7-184e-b72f-4ec223821853"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 124, 1109, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475859272156`*^9, 3.992133403387844*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"518afbdd-2d9f-2a4e-8b84-abc144c22258"], + +Cell[BoxData["27.31006372065342`"], "Output", + CellChangeTimes->{3.9913475931276417`*^9, 3.992133408223818*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"96f1d3c8-0b2e-fd44-9a28-3fa438ca5280"] +}, 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.9918472906473484`*^9, 3.9918472935952396`*^9}}, + CellLabel-> + "In[125]:=",ExpressionUUID->"36639f46-66ce-b34a-8a89-e422f177de00"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.798893773386419`*^-206\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 125, 1110, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134759316485*^9, 3.992133408263315*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"d271415b-be3b-4e49-a83e-2558698d8a5d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4775395858591666`*^-210\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 125, 1111, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134759316485*^9, 3.992133408270315*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"d5e40d2a-3a3e-6c4f-8422-5668488c75e4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2109977013120764`*^-215\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 125, 1112, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134759316485*^9, 3.992133408277315*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"c4c3f223-246c-884c-929c-22fdc83147ca"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 125, 1113, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134759316485*^9, 3.9921334082833138`*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"fccd8000-8237-4d49-81ab-73a41b949c94"], + +Cell[BoxData["15.48312490011967`"], "Output", + CellChangeTimes->{3.9913475973006153`*^9, 3.9921334112032185`*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"fc84b9d7-1d83-874b-b942-bf7eab16c70f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991847296668375*^9, 3.991847300654911*^9}}, + CellLabel-> + "In[126]:=",ExpressionUUID->"f76b8e94-11bd-a34a-a9ba-20d331e64105"], + +Cell[BoxData["0.13451668925164809`"], "Output", + CellChangeTimes->{3.991347597341627*^9, 3.9921334112312183`*^9}, + CellLabel-> + "Out[126]=",ExpressionUUID->"cda5b510-bfa2-2445-99c5-f50bc762e4c5"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.99184730319516*^9, 3.991847305889347*^9}, + 3.991923738541313*^9}, + CellLabel-> + "In[127]:=",ExpressionUUID->"bb206cb0-d23b-e24e-876b-f9f1b2cbe57a"], + +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->"4fd11557-be32-b042-a20e-65ee1f3d31f0"], + +Cell[BoxData["21.692587481892488`"], "Output", + CellChangeTimes->{3.991347597372614*^9, 3.99213341124271*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"09af0345-82d3-b443-af9b-47796f52cf02"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[129]:=",ExpressionUUID->"d73f0f23-b2e1-e243-aa8d-70b95de7c666"], + +Cell[BoxData["2.00753179751312`"], "Output", + CellChangeTimes->{3.991347597428034*^9, 3.992133411252697*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"b5af1740-ad49-c84f-8906-3c2c249194a3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[130]:=",ExpressionUUID->"8870b029-14dd-d441-82f4-8690b0fb603d"], + +Cell[BoxData["43.54855914023424`"], "Output", + CellChangeTimes->{3.9913475974971066`*^9, 3.992133411266697*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"64c3f5ff-bcb4-964c-855a-377f22221041"] +}, 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->"78b2a753-17fc-484f-a953-d278346207ad"], + +Cell[BoxData["0.007040961840906755`"], "Output", + CellChangeTimes->{3.991347597528105*^9, 3.9921334112787304`*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"b406a427-634b-5749-ae94-a2112d7bca4a"] +}, 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->"19eddd1c-d1b6-4344-85e0-95e5a6b87d4b"], + +Cell[BoxData["10.561581273457614`"], "Output", + CellChangeTimes->{3.9913475976441536`*^9, 3.9921334113611984`*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"23d6e328-32b4-144b-ab17-f6b96e75f2d2"] +}, 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->"75baa02d-f77e-e542-9519-8afd2f729182"], + +Cell[BoxData["0.011505497714209664`"], "Output", + CellChangeTimes->{3.991347597671173*^9, 3.9921334113751984`*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"908f486e-d190-a54e-8f58-a22f3c0b1ce4"] +}, 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->"78cdb0f4-4e26-2f44-b234-6fa78a24207f"], + +Cell[BoxData["8.262134021151113`"], "Output", + CellChangeTimes->{3.9913475977705975`*^9, 3.9921334114561977`*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"6814996f-8973-4d40-8084-c618de5876c6"] +}, 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->"1d69257c-6504-2041-93e1-2a57c1dfc14b"], + +Cell[BoxData["0.39889500278443296`"], "Output", + CellChangeTimes->{3.9913475977856007`*^9, 3.992133411468317*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"4cd3010a-1fc8-f94f-84db-31b2c02edb9f"] +}, 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->"482f62c1-da9c-ae43-adda-68c26afa85d0"], + +Cell[BoxData["0.6011049972155671`"], "Output", + CellChangeTimes->{3.991347597813669*^9, 3.9921334114791985`*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"766b7570-88fc-cc43-b7eb-c3feec257f00"] +}, 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->"b28b6b1b-1ce5-eb47-bd61-38bdc082dbc8"], + +Cell[BoxData["0.2397777795380402`"], "Output", + CellChangeTimes->{3.9913475978426323`*^9, 3.99213341149131*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"01635445-5597-9a42-bb91-5597f95e91ca"] +}, 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.991847320104244*^9}, + CellLabel-> + "In[138]:=",ExpressionUUID->"61630af4-ce16-4645-bd89-fd67d7ba48d8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.336357057688537`*^-219\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 138, 1114, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347597872814*^9, 3.9921334115141983`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"8b529b2d-de81-3847-a743-0241845d4ae7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.508899698378734`*^-225\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 138, 1115, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347597872814*^9, 3.992133411521452*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"d51f9521-ba7a-2c4e-84d0-d7f35525063c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5213132128927006`*^-230\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 138, 1116, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347597872814*^9, 3.9921334115284595`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"f8c90b6e-dd0f-4140-8331-6a6fc8a9bfbe"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 138, 1117, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347597872814*^9, 3.9921334115345497`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"b40ac3ba-15ea-2c4b-941b-bd7f39f1bf16"], + +Cell[BoxData["10.56158127345762`"], "Output", + CellChangeTimes->{3.9913476018505497`*^9, 3.992133414197077*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"3c3f8977-5b98-0f42-85fa-29fe5740fbd6"] +}, 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.991847326557415*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"b8324bb7-c44f-6342-bd59-920c679e8136"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.336357057688537`*^-219\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 139, 1118, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913476018885117`*^9, 3.9921334142651405`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"57be92ad-14aa-b243-86ea-85b509475de2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.508899698378734`*^-225\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 139, 1119, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913476018885117`*^9, 3.9921334142721386`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"a2161a8c-2e50-3049-86fa-c994860dd7a4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5213132128927006`*^-230\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 139, 1120, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913476018885117`*^9, 3.992133414278139*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"ae85df33-7282-7841-97d4-783d8b179790"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 139, 1121, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913476018885117`*^9, 3.992133414284157*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"01616bbe-b94e-9848-8cd2-4067e8431de2"], + +Cell[BoxData["8.262134021151118`"], "Output", + CellChangeTimes->{3.9913476058912296`*^9, 3.9921334168675156`*^9}, + CellLabel-> + "Out[139]=",ExpressionUUID->"2a180166-ada6-d14f-b999-f52873df9e63"] +}, 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.9918473312384872`*^9}, + CellLabel-> + "In[140]:=",ExpressionUUID->"a8eb6c66-2550-3146-b69f-2cd48e2cafc8"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Xk4Vs0bB3CEFMqSJVL2Ukh2kbmzpOykssfjOYckZMuWFkuJCim8ibJE +lqRUtryK5GeJihYtluLYl4eT6q38xh/nmutzzTXfc8/MmTkyjAB7goONjW0U +P8vt8Zeqmx93vzSMzk3K8rtDI8PpAi2GSRlaClBxWvZArna6vEk9crcRyzyK +bcvs5ObTeI50Du876ItdGX6qicukAyW+a7rig53YIt54quQVquU+Z0ti13Qf +z/mt3osy7a4ke2GP97VFR9S9Rw4aY2Ye2BLDci7fjT+h5F2JZ12xLWai9YI7 ++pGOeIiBI3bD73He8JJBVH2mJHQ/9tszYlGP/L+iAWsVVWvsaW6T8QX1YfTZ +9w+xF5s7OdBJY3EEabyTlDLC3ih4o/V43Sj6Vpq4Xx/bWvL77WnjSbTB3dFQ +GZu8KSuqwjONoj7WseSwTynYxB/tmEHf2EIUJbHfi/XsCCmZQ+8jRnl5sJnO +vkeuJLMQki5+8qeYRrPZbLfu+8+jhHVN0yxsHlkVgTl1GqWdFer6iJ3ObDIT +EPmO1DksYrqwpYucTm1f/I78Po6UPcPWVU6YPlb3A7lm250vwvbR7u8YN/6N +Pprp6B7FXggP5Vyt+Ae5UZ1Dztin63gNlHj+om9bPvGZY2eCbql3xxIqcz/a +r4jNLGw1CSphB6e1ZTF9RTQqabkycEaSA/7LPqjQgj1LuUenJnMAd0maRSV2 +9Fb6wT3/FVDzvlM0ATu9QkZuRp0LXsTVFSth93VPNvzN54JXx1wtBbGlWY+d +14hww5o9dwN+3KZRmaZ1msoiNwzIhmk9x26uiWT3q+OBDHaRBkdsuulN/6gx +H9R1tr/wLqSRkCWfQFQDH4y2tN8xwVbrMQF+PX6Qi3GlpbF9vz28uUN1Ddw7 +YvW/dwU0CuToUNvFJwCqj4EwxB6WvTsX/10Q1hkfC5nJw+tDtq3q0hAClqji +/DNsjtIRGfHjQvBPLOvjVWxpjU32JRNC0Mk1MaGH7Wyccv/lgDDc9vLijrpF +oy6voGCxdhHo9ZZQHcyl0ZeiS0kePKJQG3nDvhR7cqIk/46pKOyy7x0MwV4d +8vWNfqMonKi+DNzYJnEOmh4PxaD/tR+bbA6Nagu06eLc9dDwRyR9VzaNCoZ/ +he0MkYLAkLteXJk02nvg3JfgcikwsWh+8TQD5zcL7ykfkYIfc6KlJ7E1C5RF +pJ02wq7+vJn5a3g9Ge4PuAw3gbJP6fG+qzRizQycGI2VhpigCOblKzQSPmZS +9cBKFgYDPT2zLtFopGC1j62vLNwhVreYYld/6pacSpCFmprrpXMXaeRq6Rar +2CgLf4vv/zTDLtgWZp+lLgd1Jx3yp5Pw+8eLZmPE5IF2fa4nn0gjB29eFfNB +BehSLR5Si6URCjugfuiPArgbvA3rOkujrfG5Osz1iuBo2ZZ2DJstX8Moxk4R +GGp7GMVnaFT+xeXQ/aeKcIh08xQ/jc/nwbIzEnmbgdOgfXowGtdnYvV2nKEE +vVHXGiXDaCQpe/lU0jdlMPOvslT1plH9hQWlnxwq0OlqlVlA4vrnnXpIGRV4 +cXnORQI7p1leychdBdj1XlhwEjSS9a59/eOdCkxK3uh+xcD1lQ0rkO2qMLx5 +OmG/O42kJDeS0k5q8Frwsy/LgUbKhSF8/yF1YLjXnCkAGjGYsbSKtTrYP8jd +wIWdKZf2xcNVHS7mpZoRiEYr8irutYSrg4Mkh7W8IT4fOeMOaZXqYJ7wZ9MN +fXz/ZXrcUJLTgKE3r2citPF+JFmqOnJrwrm67j8D22h0K0je9mGHFsimFfzn +K0Kj7jCkE1eoBxzJf/229y8gGfdeaze/XeBjRe9em7+AiKVHd6UiADRVvK96 +EwtIbKJ6pRjDCI4d+EdZTmoBhWgYfErbagJLZO0tvd55xJj63So8bgqHW1eF +KyXNo3Kj4JW5XWbQmeSdFaUzjwoWfJ+Wpe+DDWLnxUZHWOjHbvHO5lMW4NRS +zxV/kYU+s62YG/S0grYO1zknTRby3xCQckbOBrbFyxVGDsyhu0daG6/G20Jb +cDzLPH4ORc6vX9x2xA60lMVVQtTmEG2+5+CLw/YweZFVaNM7i/RcUncP2+2H +5BTxCcGTs+j1+hu+zRoO8GbHAq2tPIskbsfWF285ACHpcaO/ymZQ9cBWS2v+ +g/BLMOmZuOAM2tgz6x02dRCUMsejbkdPI42rqWX5A4fgupTA1emBKXSDc141 +rckRmp+Xic07TKFHu7f3xdc4wWSfcqZr0yTK1Lkg+LvEGXoZW9d/3TmJuj4W +Jmgku0Ck72nTC08n0EOrbPnA066QkL9J5qrJBJo7tp/Nn+kGjUu2taZvxxG9 +R8ln2tgd3sYf1ZUPHEfFUx9+BGsfhg3fvqaI84wjx1uFXm58HtC00/6Jd/kY +enDf4vCKcx7Qt2OWT8B+DOlJvv6Z+NMDdMcrT9msGENyA959r454gsZz4xad +evxf4j1qk/3VEyIqRbZMho6i7kvWXmYHGLDy8t7Mip2jKD08lze0mwHZM4ky +JPsoqm9Y+um1zwvyvm8Kkeim0FpXOKdR6wXyt7U/7CumkPS6F10b6r3AJKMI +lRRRSK3DSpy7wQsk1eJEeLHtDVzuvH/qBQmVYWtfFlIofUNY+8n/eYFs1h99 +p3wKSXwuXdv63gtUE6NC43IoJO8ulum66AV+IlVOqlcppOcxXRyvyQQmXxnZ +FUuh21mzwdbaTHhfKbDfAXvdG5ahmC4TRqqEb344S6Fp08WeYn0muExOuQyf +ofB9w8beYcSEUs4mZ/bTFFqzKOgkZMeEXY5BwRbRFPp2UWtV7jEmxEmpcW0J +pZDdC50e7wAmGPVKctSEUKiBbWeu2nEmnC0JPGyOnRVsqPUshAlgZaPvH0wh +ayczz+EoJiwKVJ2oPU6hGnmnmm0XmJCsUM9O+FPoUl30kerbOO8hty2HD4WO +qWfohRczgXsA9t7yppDlncpVuiVMqHJfyAbs1Rkjdx6XM2HDwFOX0ySF4oNs +xx9VMWHddLcqJ0GhaCX5ow+fMeFEeZqSFINCvhntfve/MKE6NMon3ZVC+9aM +GAQNMCHd22bKEHtLPBu/+hATykWDX465UGgkSKu8cpgJXi0FhYDtaZ07dW+S +CWu8LhexnCjkyBXsX/GLCee3hP7wPkQhs2CJwDJRAmC1e0uGPYWe5SaYp4kT +0Ce0cMkM26CDJR8uQcCHipXNi3Z4/xXaPxhvJMB3a16wE/b6d1HGHxUIaBWP +GZWxpdDEzs+iq7UIuKZetPmFFYUuc9x84r2fgO2vm1iMfXj+2/kyrQ4QkJ4U +t1caO84lPEjjEAGH0D+rv+ylUHiV7eYlZwJGF/9944ztSbKnXmMQ8Pvfnggn +MwpptDGYz48TML1h67qjphR6l6rAK5dCQM5Pkcj+3RS6i/h9RlMJaL+VMlSO +HTe10Fx+hYB4DqM70djq+5pjdDMIKBs1tZPEvsTmxbLKIcAq+AmvG1BoT8DN +D+FlBNSH/k+JZUghKanz2oZ3CXBZPBTagr3QFnBlxT0C1jcKbrqOnaeIrC49 +IKAgivOiKfafz58b82sJqNLveZ2zi0JVlpLFL1txXuIlLi8DCiX94uBKbyPg +qHOcxi5sRvG4p1MHrv/I9X/FsAU4ayW/dREgNr+V1alPIb86x8s/3xJwpuvf +RkNsua3XwuSHCeAx27NCfSeFfr07+WZshIC28/zCQtjd8YRaxSiez7Gp0yw9 +CsUMao7rTRIwq0SHVWH3Zb5xs5knYIugWIcBdtpKQdNIdhLsbA0lDutSqJ71 +2SVkBQnV1bmrjLCpzyVB/lwkKGfr+StgG1SZ3GSsIkEnZ13GlA7+3jzC/zMX +JGEkxdE7FlvA0lTIVJiEjmZ/Nl9sfR0hJSRCwvjumjV22Cn8ZQc11pPwVGns +gvRyf21/paQMCWRZEftzbQqRhWWtInIkZIvuN6nATkmJ6F+rQELblu2/s7BH +SGF+TiUSAnJPtAcu9wub+UyqkXC203BUDrv2r/CpEXUSLA8zewSxh8cGrg5o +kvDs/GMtNuydjZFNPboksEyHD33RwveD392NT4CENLcDEjex1zhGaT02IqEh +9UtFKrae8V7LShM8/ktabSz2pfVDEYV7SXCriNp+BLuasyIl15yE1LsVWa7Y +X2eiirIsSXjzhD/CFlu3RaT3oi0JPFJmGXrYjMqhiXP2JDz5JfNWFftidgXH +WQcSrDkVL8hjDwXtUwtzJCG8q9hOEJvfXdQs0JkEvR2bCZ7lvH1f3XxdSRj7 +2zm1pInHbzqZ5O5BwlGddPdZ7OrV5nmODBKSHB7sGcMeokVr7JkkWBj9yh/C +5h/82mVJknCt3yfsE7Zux72RPT4kRPMvPXmLzXh88g/4khBXUR/5ajk/z3yd +vh8J3qW3yjqW8y+KbdPyJ2HTWPn+1uX88G+7twfi9bQfDGjG5mNWOioFkZDQ +q8/+FFvHJiZALoSEnMNPVjYs5++0SJAKIyFxiIitw05WEL8hFk5ChJ1WSA32 +I4HhB4KRJATnbet7jD34X2UbbzQJWzr3Pny0nE/FDHLFkCDfkcy1bO3XFj+W +TpHQfn2x7SH2/wEIZuMk + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk4Vs0bB3CEFMqSJVL2Ukh2kbmzpOykssfjOYckZMuWFkuJCim8ibJE +lqRUtryK5GeJihYtluLYl4eT6q38xh/nmutzzTXfc8/MmTkyjAB7goONjW0U +P8vt8Zeqmx93vzSMzk3K8rtDI8PpAi2GSRlaClBxWvZArna6vEk9crcRyzyK +bcvs5ObTeI50Du876ItdGX6qicukAyW+a7rig53YIt54quQVquU+Z0ti13Qf +z/mt3osy7a4ke2GP97VFR9S9Rw4aY2Ye2BLDci7fjT+h5F2JZ12xLWai9YI7 ++pGOeIiBI3bD73He8JJBVH2mJHQ/9tszYlGP/L+iAWsVVWvsaW6T8QX1YfTZ +9w+xF5s7OdBJY3EEabyTlDLC3ih4o/V43Sj6Vpq4Xx/bWvL77WnjSbTB3dFQ +GZu8KSuqwjONoj7WseSwTynYxB/tmEHf2EIUJbHfi/XsCCmZQ+8jRnl5sJnO +vkeuJLMQki5+8qeYRrPZbLfu+8+jhHVN0yxsHlkVgTl1GqWdFer6iJ3ObDIT +EPmO1DksYrqwpYucTm1f/I78Po6UPcPWVU6YPlb3A7lm250vwvbR7u8YN/6N +Pprp6B7FXggP5Vyt+Ae5UZ1Dztin63gNlHj+om9bPvGZY2eCbql3xxIqcz/a +r4jNLGw1CSphB6e1ZTF9RTQqabkycEaSA/7LPqjQgj1LuUenJnMAd0maRSV2 +9Fb6wT3/FVDzvlM0ATu9QkZuRp0LXsTVFSth93VPNvzN54JXx1wtBbGlWY+d +14hww5o9dwN+3KZRmaZ1msoiNwzIhmk9x26uiWT3q+OBDHaRBkdsuulN/6gx +H9R1tr/wLqSRkCWfQFQDH4y2tN8xwVbrMQF+PX6Qi3GlpbF9vz28uUN1Ddw7 +YvW/dwU0CuToUNvFJwCqj4EwxB6WvTsX/10Q1hkfC5nJw+tDtq3q0hAClqji +/DNsjtIRGfHjQvBPLOvjVWxpjU32JRNC0Mk1MaGH7Wyccv/lgDDc9vLijrpF +oy6voGCxdhHo9ZZQHcyl0ZeiS0kePKJQG3nDvhR7cqIk/46pKOyy7x0MwV4d +8vWNfqMonKi+DNzYJnEOmh4PxaD/tR+bbA6Nagu06eLc9dDwRyR9VzaNCoZ/ +he0MkYLAkLteXJk02nvg3JfgcikwsWh+8TQD5zcL7ykfkYIfc6KlJ7E1C5RF +pJ02wq7+vJn5a3g9Ge4PuAw3gbJP6fG+qzRizQycGI2VhpigCOblKzQSPmZS +9cBKFgYDPT2zLtFopGC1j62vLNwhVreYYld/6pacSpCFmprrpXMXaeRq6Rar +2CgLf4vv/zTDLtgWZp+lLgd1Jx3yp5Pw+8eLZmPE5IF2fa4nn0gjB29eFfNB +BehSLR5Si6URCjugfuiPArgbvA3rOkujrfG5Osz1iuBo2ZZ2DJstX8Moxk4R +GGp7GMVnaFT+xeXQ/aeKcIh08xQ/jc/nwbIzEnmbgdOgfXowGtdnYvV2nKEE +vVHXGiXDaCQpe/lU0jdlMPOvslT1plH9hQWlnxwq0OlqlVlA4vrnnXpIGRV4 +cXnORQI7p1leychdBdj1XlhwEjSS9a59/eOdCkxK3uh+xcD1lQ0rkO2qMLx5 +OmG/O42kJDeS0k5q8Frwsy/LgUbKhSF8/yF1YLjXnCkAGjGYsbSKtTrYP8jd +wIWdKZf2xcNVHS7mpZoRiEYr8irutYSrg4Mkh7W8IT4fOeMOaZXqYJ7wZ9MN +fXz/ZXrcUJLTgKE3r2citPF+JFmqOnJrwrm67j8D22h0K0je9mGHFsimFfzn +K0Kj7jCkE1eoBxzJf/229y8gGfdeaze/XeBjRe9em7+AiKVHd6UiADRVvK96 +EwtIbKJ6pRjDCI4d+EdZTmoBhWgYfErbagJLZO0tvd55xJj63So8bgqHW1eF +KyXNo3Kj4JW5XWbQmeSdFaUzjwoWfJ+Wpe+DDWLnxUZHWOjHbvHO5lMW4NRS +zxV/kYU+s62YG/S0grYO1zknTRby3xCQckbOBrbFyxVGDsyhu0daG6/G20Jb +cDzLPH4ORc6vX9x2xA60lMVVQtTmEG2+5+CLw/YweZFVaNM7i/RcUncP2+2H +5BTxCcGTs+j1+hu+zRoO8GbHAq2tPIskbsfWF285ACHpcaO/ymZQ9cBWS2v+ +g/BLMOmZuOAM2tgz6x02dRCUMsejbkdPI42rqWX5A4fgupTA1emBKXSDc141 +rckRmp+Xic07TKFHu7f3xdc4wWSfcqZr0yTK1Lkg+LvEGXoZW9d/3TmJuj4W +Jmgku0Ck72nTC08n0EOrbPnA066QkL9J5qrJBJo7tp/Nn+kGjUu2taZvxxG9 +R8ln2tgd3sYf1ZUPHEfFUx9+BGsfhg3fvqaI84wjx1uFXm58HtC00/6Jd/kY +enDf4vCKcx7Qt2OWT8B+DOlJvv6Z+NMDdMcrT9msGENyA959r454gsZz4xad +evxf4j1qk/3VEyIqRbZMho6i7kvWXmYHGLDy8t7Mip2jKD08lze0mwHZM4ky +JPsoqm9Y+um1zwvyvm8Kkeim0FpXOKdR6wXyt7U/7CumkPS6F10b6r3AJKMI +lRRRSK3DSpy7wQsk1eJEeLHtDVzuvH/qBQmVYWtfFlIofUNY+8n/eYFs1h99 +p3wKSXwuXdv63gtUE6NC43IoJO8ulum66AV+IlVOqlcppOcxXRyvyQQmXxnZ +FUuh21mzwdbaTHhfKbDfAXvdG5ahmC4TRqqEb344S6Fp08WeYn0muExOuQyf +ofB9w8beYcSEUs4mZ/bTFFqzKOgkZMeEXY5BwRbRFPp2UWtV7jEmxEmpcW0J +pZDdC50e7wAmGPVKctSEUKiBbWeu2nEmnC0JPGyOnRVsqPUshAlgZaPvH0wh +ayczz+EoJiwKVJ2oPU6hGnmnmm0XmJCsUM9O+FPoUl30kerbOO8hty2HD4WO +qWfohRczgXsA9t7yppDlncpVuiVMqHJfyAbs1Rkjdx6XM2HDwFOX0ySF4oNs +xx9VMWHddLcqJ0GhaCX5ow+fMeFEeZqSFINCvhntfve/MKE6NMon3ZVC+9aM +GAQNMCHd22bKEHtLPBu/+hATykWDX465UGgkSKu8cpgJXi0FhYDtaZ07dW+S +CWu8LhexnCjkyBXsX/GLCee3hP7wPkQhs2CJwDJRAmC1e0uGPYWe5SaYp4kT +0Ce0cMkM26CDJR8uQcCHipXNi3Z4/xXaPxhvJMB3a16wE/b6d1HGHxUIaBWP +GZWxpdDEzs+iq7UIuKZetPmFFYUuc9x84r2fgO2vm1iMfXj+2/kyrQ4QkJ4U +t1caO84lPEjjEAGH0D+rv+ylUHiV7eYlZwJGF/9944ztSbKnXmMQ8Pvfnggn +MwpptDGYz48TML1h67qjphR6l6rAK5dCQM5Pkcj+3RS6i/h9RlMJaL+VMlSO +HTe10Fx+hYB4DqM70djq+5pjdDMIKBs1tZPEvsTmxbLKIcAq+AmvG1BoT8DN +D+FlBNSH/k+JZUghKanz2oZ3CXBZPBTagr3QFnBlxT0C1jcKbrqOnaeIrC49 +IKAgivOiKfafz58b82sJqNLveZ2zi0JVlpLFL1txXuIlLi8DCiX94uBKbyPg +qHOcxi5sRvG4p1MHrv/I9X/FsAU4ayW/dREgNr+V1alPIb86x8s/3xJwpuvf +RkNsua3XwuSHCeAx27NCfSeFfr07+WZshIC28/zCQtjd8YRaxSiez7Gp0yw9 +CsUMao7rTRIwq0SHVWH3Zb5xs5knYIugWIcBdtpKQdNIdhLsbA0lDutSqJ71 +2SVkBQnV1bmrjLCpzyVB/lwkKGfr+StgG1SZ3GSsIkEnZ13GlA7+3jzC/zMX +JGEkxdE7FlvA0lTIVJiEjmZ/Nl9sfR0hJSRCwvjumjV22Cn8ZQc11pPwVGns +gvRyf21/paQMCWRZEftzbQqRhWWtInIkZIvuN6nATkmJ6F+rQELblu2/s7BH +SGF+TiUSAnJPtAcu9wub+UyqkXC203BUDrv2r/CpEXUSLA8zewSxh8cGrg5o +kvDs/GMtNuydjZFNPboksEyHD33RwveD392NT4CENLcDEjex1zhGaT02IqEh +9UtFKrae8V7LShM8/ktabSz2pfVDEYV7SXCriNp+BLuasyIl15yE1LsVWa7Y +X2eiirIsSXjzhD/CFlu3RaT3oi0JPFJmGXrYjMqhiXP2JDz5JfNWFftidgXH +WQcSrDkVL8hjDwXtUwtzJCG8q9hOEJvfXdQs0JkEvR2bCZ7lvH1f3XxdSRj7 +2zm1pInHbzqZ5O5BwlGddPdZ7OrV5nmODBKSHB7sGcMeokVr7JkkWBj9yh/C +5h/82mVJknCt3yfsE7Zux72RPT4kRPMvPXmLzXh88g/4khBXUR/5ajk/z3yd +vh8J3qW3yjqW8y+KbdPyJ2HTWPn+1uX88G+7twfi9bQfDGjG5mNWOioFkZDQ +q8/+FFvHJiZALoSEnMNPVjYs5++0SJAKIyFxiIitw05WEL8hFk5ChJ1WSA32 +I4HhB4KRJATnbet7jD34X2UbbzQJWzr3Pny0nE/FDHLFkCDfkcy1bO3XFj+W +TpHQfn2x7SH2/wEIZuMk + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7251843418315443, + 1.3538633344523694`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.725184341831546}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.7251843418315443, + 1.3538633344523694`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.725184341831546}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk4Vs0bB3CEFMqSJVL2Ukh2kbmzpOykssfjOYckZMuWFkuJCim8ibJE +lqRUtryK5GeJihYtluLYl4eT6q38xh/nmutzzTXfc8/MmTkyjAB7goONjW0U +P8vt8Zeqmx93vzSMzk3K8rtDI8PpAi2GSRlaClBxWvZArna6vEk9crcRyzyK +bcvs5ObTeI50Du876ItdGX6qicukAyW+a7rig53YIt54quQVquU+Z0ti13Qf +z/mt3osy7a4ke2GP97VFR9S9Rw4aY2Ye2BLDci7fjT+h5F2JZ12xLWai9YI7 ++pGOeIiBI3bD73He8JJBVH2mJHQ/9tszYlGP/L+iAWsVVWvsaW6T8QX1YfTZ +9w+xF5s7OdBJY3EEabyTlDLC3ih4o/V43Sj6Vpq4Xx/bWvL77WnjSbTB3dFQ +GZu8KSuqwjONoj7WseSwTynYxB/tmEHf2EIUJbHfi/XsCCmZQ+8jRnl5sJnO +vkeuJLMQki5+8qeYRrPZbLfu+8+jhHVN0yxsHlkVgTl1GqWdFer6iJ3ObDIT +EPmO1DksYrqwpYucTm1f/I78Po6UPcPWVU6YPlb3A7lm250vwvbR7u8YN/6N +Pprp6B7FXggP5Vyt+Ae5UZ1Dztin63gNlHj+om9bPvGZY2eCbql3xxIqcz/a +r4jNLGw1CSphB6e1ZTF9RTQqabkycEaSA/7LPqjQgj1LuUenJnMAd0maRSV2 +9Fb6wT3/FVDzvlM0ATu9QkZuRp0LXsTVFSth93VPNvzN54JXx1wtBbGlWY+d +14hww5o9dwN+3KZRmaZ1msoiNwzIhmk9x26uiWT3q+OBDHaRBkdsuulN/6gx +H9R1tr/wLqSRkCWfQFQDH4y2tN8xwVbrMQF+PX6Qi3GlpbF9vz28uUN1Ddw7 +YvW/dwU0CuToUNvFJwCqj4EwxB6WvTsX/10Q1hkfC5nJw+tDtq3q0hAClqji +/DNsjtIRGfHjQvBPLOvjVWxpjU32JRNC0Mk1MaGH7Wyccv/lgDDc9vLijrpF +oy6voGCxdhHo9ZZQHcyl0ZeiS0kePKJQG3nDvhR7cqIk/46pKOyy7x0MwV4d +8vWNfqMonKi+DNzYJnEOmh4PxaD/tR+bbA6Nagu06eLc9dDwRyR9VzaNCoZ/ +he0MkYLAkLteXJk02nvg3JfgcikwsWh+8TQD5zcL7ykfkYIfc6KlJ7E1C5RF +pJ02wq7+vJn5a3g9Ge4PuAw3gbJP6fG+qzRizQycGI2VhpigCOblKzQSPmZS +9cBKFgYDPT2zLtFopGC1j62vLNwhVreYYld/6pacSpCFmprrpXMXaeRq6Rar +2CgLf4vv/zTDLtgWZp+lLgd1Jx3yp5Pw+8eLZmPE5IF2fa4nn0gjB29eFfNB +BehSLR5Si6URCjugfuiPArgbvA3rOkujrfG5Osz1iuBo2ZZ2DJstX8Moxk4R +GGp7GMVnaFT+xeXQ/aeKcIh08xQ/jc/nwbIzEnmbgdOgfXowGtdnYvV2nKEE +vVHXGiXDaCQpe/lU0jdlMPOvslT1plH9hQWlnxwq0OlqlVlA4vrnnXpIGRV4 +cXnORQI7p1leychdBdj1XlhwEjSS9a59/eOdCkxK3uh+xcD1lQ0rkO2qMLx5 +OmG/O42kJDeS0k5q8Frwsy/LgUbKhSF8/yF1YLjXnCkAGjGYsbSKtTrYP8jd +wIWdKZf2xcNVHS7mpZoRiEYr8irutYSrg4Mkh7W8IT4fOeMOaZXqYJ7wZ9MN +fXz/ZXrcUJLTgKE3r2citPF+JFmqOnJrwrm67j8D22h0K0je9mGHFsimFfzn +K0Kj7jCkE1eoBxzJf/229y8gGfdeaze/XeBjRe9em7+AiKVHd6UiADRVvK96 +EwtIbKJ6pRjDCI4d+EdZTmoBhWgYfErbagJLZO0tvd55xJj63So8bgqHW1eF +KyXNo3Kj4JW5XWbQmeSdFaUzjwoWfJ+Wpe+DDWLnxUZHWOjHbvHO5lMW4NRS +zxV/kYU+s62YG/S0grYO1zknTRby3xCQckbOBrbFyxVGDsyhu0daG6/G20Jb +cDzLPH4ORc6vX9x2xA60lMVVQtTmEG2+5+CLw/YweZFVaNM7i/RcUncP2+2H +5BTxCcGTs+j1+hu+zRoO8GbHAq2tPIskbsfWF285ACHpcaO/ymZQ9cBWS2v+ +g/BLMOmZuOAM2tgz6x02dRCUMsejbkdPI42rqWX5A4fgupTA1emBKXSDc141 +rckRmp+Xic07TKFHu7f3xdc4wWSfcqZr0yTK1Lkg+LvEGXoZW9d/3TmJuj4W +Jmgku0Ck72nTC08n0EOrbPnA066QkL9J5qrJBJo7tp/Nn+kGjUu2taZvxxG9 +R8ln2tgd3sYf1ZUPHEfFUx9+BGsfhg3fvqaI84wjx1uFXm58HtC00/6Jd/kY +enDf4vCKcx7Qt2OWT8B+DOlJvv6Z+NMDdMcrT9msGENyA959r454gsZz4xad +evxf4j1qk/3VEyIqRbZMho6i7kvWXmYHGLDy8t7Mip2jKD08lze0mwHZM4ky +JPsoqm9Y+um1zwvyvm8Kkeim0FpXOKdR6wXyt7U/7CumkPS6F10b6r3AJKMI +lRRRSK3DSpy7wQsk1eJEeLHtDVzuvH/qBQmVYWtfFlIofUNY+8n/eYFs1h99 +p3wKSXwuXdv63gtUE6NC43IoJO8ulum66AV+IlVOqlcppOcxXRyvyQQmXxnZ +FUuh21mzwdbaTHhfKbDfAXvdG5ahmC4TRqqEb344S6Fp08WeYn0muExOuQyf +ofB9w8beYcSEUs4mZ/bTFFqzKOgkZMeEXY5BwRbRFPp2UWtV7jEmxEmpcW0J +pZDdC50e7wAmGPVKctSEUKiBbWeu2nEmnC0JPGyOnRVsqPUshAlgZaPvH0wh +ayczz+EoJiwKVJ2oPU6hGnmnmm0XmJCsUM9O+FPoUl30kerbOO8hty2HD4WO +qWfohRczgXsA9t7yppDlncpVuiVMqHJfyAbs1Rkjdx6XM2HDwFOX0ySF4oNs +xx9VMWHddLcqJ0GhaCX5ow+fMeFEeZqSFINCvhntfve/MKE6NMon3ZVC+9aM +GAQNMCHd22bKEHtLPBu/+hATykWDX465UGgkSKu8cpgJXi0FhYDtaZ07dW+S +CWu8LhexnCjkyBXsX/GLCee3hP7wPkQhs2CJwDJRAmC1e0uGPYWe5SaYp4kT +0Ce0cMkM26CDJR8uQcCHipXNi3Z4/xXaPxhvJMB3a16wE/b6d1HGHxUIaBWP +GZWxpdDEzs+iq7UIuKZetPmFFYUuc9x84r2fgO2vm1iMfXj+2/kyrQ4QkJ4U +t1caO84lPEjjEAGH0D+rv+ylUHiV7eYlZwJGF/9944ztSbKnXmMQ8Pvfnggn +MwpptDGYz48TML1h67qjphR6l6rAK5dCQM5Pkcj+3RS6i/h9RlMJaL+VMlSO +HTe10Fx+hYB4DqM70djq+5pjdDMIKBs1tZPEvsTmxbLKIcAq+AmvG1BoT8DN +D+FlBNSH/k+JZUghKanz2oZ3CXBZPBTagr3QFnBlxT0C1jcKbrqOnaeIrC49 +IKAgivOiKfafz58b82sJqNLveZ2zi0JVlpLFL1txXuIlLi8DCiX94uBKbyPg +qHOcxi5sRvG4p1MHrv/I9X/FsAU4ayW/dREgNr+V1alPIb86x8s/3xJwpuvf +RkNsua3XwuSHCeAx27NCfSeFfr07+WZshIC28/zCQtjd8YRaxSiez7Gp0yw9 +CsUMao7rTRIwq0SHVWH3Zb5xs5knYIugWIcBdtpKQdNIdhLsbA0lDutSqJ71 +2SVkBQnV1bmrjLCpzyVB/lwkKGfr+StgG1SZ3GSsIkEnZ13GlA7+3jzC/zMX +JGEkxdE7FlvA0lTIVJiEjmZ/Nl9sfR0hJSRCwvjumjV22Cn8ZQc11pPwVGns +gvRyf21/paQMCWRZEftzbQqRhWWtInIkZIvuN6nATkmJ6F+rQELblu2/s7BH +SGF+TiUSAnJPtAcu9wub+UyqkXC203BUDrv2r/CpEXUSLA8zewSxh8cGrg5o +kvDs/GMtNuydjZFNPboksEyHD33RwveD392NT4CENLcDEjex1zhGaT02IqEh +9UtFKrae8V7LShM8/ktabSz2pfVDEYV7SXCriNp+BLuasyIl15yE1LsVWa7Y +X2eiirIsSXjzhD/CFlu3RaT3oi0JPFJmGXrYjMqhiXP2JDz5JfNWFftidgXH +WQcSrDkVL8hjDwXtUwtzJCG8q9hOEJvfXdQs0JkEvR2bCZ7lvH1f3XxdSRj7 +2zm1pInHbzqZ5O5BwlGddPdZ7OrV5nmODBKSHB7sGcMeokVr7JkkWBj9yh/C +5h/82mVJknCt3yfsE7Zux72RPT4kRPMvPXmLzXh88g/4khBXUR/5ajk/z3yd +vh8J3qW3yjqW8y+KbdPyJ2HTWPn+1uX88G+7twfi9bQfDGjG5mNWOioFkZDQ +q8/+FFvHJiZALoSEnMNPVjYs5++0SJAKIyFxiIitw05WEL8hFk5ChJ1WSA32 +I4HhB4KRJATnbet7jD34X2UbbzQJWzr3Pny0nE/FDHLFkCDfkcy1bO3XFj+W +TpHQfn2x7SH2/wEIZuMk + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7251843418315443, 1.3538633344523694`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.725184341831546}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.725184341831546}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "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.7251843418315443, 1.3538633344523694`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991347865018469*^9, 3.9921336436212673`*^9}, + CellLabel-> + "Out[140]=",ExpressionUUID->"d930f671-2311-034f-b3cc-881eb83dee7f"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918473358384743`*^9, {3.9918474091630096`*^9, 3.9918474093563137`*^9}}, + CellLabel-> + "In[141]:=",ExpressionUUID->"29fc72a2-353e-bf42-8947-0608fa83191a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.273776888582275`*^-270\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 1122, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913478652482224`*^9, 3.9921336438333282`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"7e238414-c4c3-544a-aa69-5857b2b97f57"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8438820115428462`*^-282\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 1123, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913478652482224`*^9, 3.9921336438413258`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"787dbd82-eb8a-6a4c-a96e-c261fff01ca2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.038525528220598`*^-294\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 1124, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913478652482224`*^9, 3.9921336438475056`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"869f8801-27ee-414d-9d0c-33933f262f2d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 141, 1125, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913478652482224`*^9, 3.9921336438560143`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"03b17ce6-e4eb-d04c-ab85-ac922d1cbb87"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4VesXB3BDo6syRDKdvY8TmSJHRMO7qKiUuFJExclUxgZKadItKeQg +ZM4QyXD2/qGQmUIhY5SGa4wUJbPye+9f5/k859nP8+71rv1di+R4/u0owMfH +t5Sfj++/3/grnCUbHWK323ivP8/L3by9upXYd5jwRb8WF82vTZNECy9KbxBE +IEqvdfYcTFVE8eXBjMXEAyQzP7+0PlUHuW3zdp9iPEa8ZuvmzFQj1DrnEjHG +KEQNx5apWqceQkvf9yh9Y9Qh/7Upm9anOKGH9YmnvzK6UB23tN4zwQfl5Aa+ +d9swjIqOx92U9QtAzqj5wciZcTQgGpD10oqLPPqVe/NyZlD2bJZbT1EkEiL/ +Ufq0mQ8cYt2repzjUIjIK5WHdoJwvmLz4TcVSYjz/mCZ4OslEMzRnrV3TkGn +a/7heCoJQapMi2RtdxqivIQtpPasgCArMunQogz08JLrsOZhEfCPtJnS18xE +/onz5r9GRCGzdZNYh3AW4mv9DM8vikO7Bkt1a0E2UjzndOGgigTYVA5VCFvk +or6JqEN/lUjCrezI3xF/81CyAfvshypJGJes1ESWPHQ8uPFebr0kyNi58AYP +89A71uI6i05J0CypiWAf5aFmizNb4sYl4SJr02iBMw+VUvsIdZU18Aw5v3X1 +46Eod/5h06g1sMA59iU4lYf29p+6HHZaCiye1T7IHeUho8sKWTsvSEHAzSNf +/v3BQ4YS3e8mr0iBBC/qntgvHtLftX+zTZAUhOgsDHpM85BKmsa4QroU7Lm2 +UCbOT6G/HH+55HdLgcHvm8tXilHodd/lg53Ga6HP4uJktRaFTPtCVeXlpeHj +Ck9qqyf+X7WvzZYlDVa2b7wHvChkclb3SqyKNJj2P6wPOUOh3QIf30jpSkOt +S9G6994UMiRUfcTNpEHWsCGZ40ehTbY15cv8pWHiyKUKtUAKybbNWI73S0O2 +o0Bv9kMKxcjsX9g4Ig3dqK1eOYVCa08kZXj9lIYbxx/sTE2lkORPo7lvf6Th +5UX97xHpFBIRiUj6skYGtEaDZRyzKSS4b8PXD3tkwFyxZqT8GYWGqzjXarNl +4PEWbr9TI4UY3M5TIXky8AOMHJqbKHTwmKnlwWIZeJAhpKvfTKHSaT2Vz7Uy +8PO9eteSNgqFqYu2TfXKQGbsv2JBXRTaElWmpCQtC0lfRs8Z9VEo6JRs081b +svBI2Kz20jSFKnTDCk2CZaHMQVqAmqHQ5KJlqaIRshAz1hTeN0shu8TxC/EP +ZcH9ye0yo98U0m6rZ+Y/lwWfILGtU/w0+rDN16fvpywICp8YWvYXjTaIdsjt +OC4HXn98iTEZGg0ED/jfd5SDW7OmkZ9kaRQvNDU46CoHx3x6ExrkaCS8SIoO +uiAHw+ntLmkMGg1PWht1cOXg6rK83h0KNErr/uBxsloOpmMjI7aq0MjW+ntr +cb0cCGUIGkuo0mh1x5/NK5vlgMjzDBnB9m9iCP7vgxyYd77rjlSnkV2lfdT8 +pBzke5J+7zRpJJvRX3ZPWR52MBUG5HRp1MaaZPVoyEPr79Ozn7DvPlxyR1tH +Hj7rqT1K2kyj2Rilg12G8hAxfaNaTp9GncEnvzBt5eGxuha5dBuNws9+EykI +kYclZWlXIg1pJIQm7LvH5aFhImc8Yx+NLhisX1YwKw9TulbU3v24Hjtscu7x +M2CPzs+GYezK3RWzhqsY0DL0maV4gEYX/w4Of6zCAA1nUbNAcxp9dVxX42PP +ADKqpIn/EI2OuFi5mrkw4I6JcnQgdu2pu6Iqngzw7DKoWnWYRqmeP45+8GMA +55CX4RorXC/fkskd0dh/Qr6KHaHR6yDL9aJNDDgeOsIoOUoj/Xu3G4fbGSCk +HqCpeoxGGdzic9XdDHC0q0qPwv4nkqw4P8wAdHDdK9fjNJJ/M6k2KkDA9MTz +ET57Glmai/DZLiHg9d5QPQ52UItya+1yAiKPrB6twJ5ts/VNFiHAb6/+fT8O +jTq6Kmss5QkoTT7S/vEEjVbYdEdXkgSIBK7yZDvQaGf3hKvGOgICB7lnb2HT +H9eLLVcjgHNKtFTJkUYhvSHHnusRMFQTYHfYiUY1DhkblbcRwGOzrRKx5/sr +FkUCAf9u73jej33qy69MT2MCjDVlG92daWT87cgU05KAhTUcKVcXGiWsvtF6 +1YoACY6uRxr2ry1PcrttCNB6yzP4iJ10Z845kkPAqeNJHJOTNJqkFHaOOxLw +YCaBdxV7f5cJYXaSgKbXf1+msWeV4jqXexFwftu3cPFTNDI7UJ3ndJYAnZ6j +Hw2wH/mMhFb5EODZGJXhgW1Rs3XP5csEjEZfLqnCzuJ8KBy7Q8Aj6YIxG1ca +CdxZHLk/hACf5tUGV7CtKPUzmVwCvnW4iydiL+a7ouIQTcDiZhXUjW2r9GhJ +RSwB5lvlHkxj06aNPXKJBNj1KvqIu9HoWLx87Ns0AojWhKKd2HnVRue1HxOw +Zmk80wZbaMTDgpuF339/y0ovbDvxKI3vufh+VwZcvYH9VL/sL5P/EXC0V9D7 +PvZKzuBgegEBLqHc0TRsh8BV1YuKCDi43Hc0D7uIp5tkX0KAl6egdyW2SOdx +v9JyAipEL15rxHZaCLCSqSZgyk1RrAv7uSJP+8JLfH7Vv1V6sMVMO0Xa6wkI +YhnXDWGf9Ob7trGRgOqjB0ZHscvj1teFNOPzLM+P+4UtWW2W9rUN1/NWZfMU +ttvXC9d3dxKgdqIyZAa7Uuzh0bT3BNQeXmj9z1L6dXoCnwhwMql+OI3tYf9D +4ngPrre57fQEdvXttT+L+wlgZop1/sCW4Rk0Sg0RsKVSy2AE+8zbk5neIwQw +2Mu0+7Fr/3BvtYzi/qj8yOvGllcs4miME9DMEXjWgn1uf8/2oEncD1ple15i +158Tkhmawfdzyd6pCJuI05ra9ZuAybxNK7OwfaqOtCbzkZB0/bZBHHbDsH/u +giAJ/bmP+O5is8Se3LVdSoKU/geTC9gX9VqdC4VIQEa+Cg7YircViLOiJLgd +WuOri+2XazLftJoE1rW8KXnslo6znWpSJMz5fBNcjH11XXXogDwJ98dPvXiN ++6dj34jbDiYJrdMml3Ow1c6t3pO0joQ/dfxVIdidlQ78R9RIWJSuOL8Xe8zg +nfRlDRIYvH+dlLGXVhzQTtIiQcjSjrsEW6dM33lgMwmvVDIVS3C/RxSLNJzZ +RYK/+A1rmf/6X//WwP3dJAwouteN4u+pqnBu4ZkJCVM3yblK7J9PB7QWzPF5 +3n1PdcQ+kPc8+u4xEp5k7V0bh79XJ7YWnWOP6yOcn+CEfYVOf9XsQMIXs+lB +DewsXtifNa4klJLiL0txHghluziknidheKa3tAHnxYu01ZoloSQwx9ObeDh/ +PrLu7PkcTkJ7CR/tjD2RssARjMLP1znZymGzkofv74knoeRfV6GbOM/8E8rn +2h+T0GfQ1bIL5932KLeX3ytJ6PSJNQ/G+XlIsuez6AsSXn8WatfEdr9/eFa7 +jgTRgS5WK87buHBD9UtNJCQfzlVZjT17Typ8aTcJ79jDHQG2NMq/XX2MmCBh +k0no6CZrnNd7X0kFTJOQ79E48BznfYxwS8u3ORJytbN8DbGvhX4yKhZggodV +/tk9eD7si57dcEiECTnKK6qMLGnUk665cFeVCdqHahkLZjRqP6lb+HMDE8qe +G897Yteqbj9rrcUE9YdaFz/h+ZSdazKoqMeE4tFKmyJTPN+eOjVVGDHhzA+5 +8uN43q18GZc4Zc8EjfMFdieNacQfmGJ9zJEJPIm916qNcL7uzRSvcWHC16d6 +xvLYXY1PA8I8mfBTIOd1w048vzpaPNUvM+Gqmm+5LJ6n+gPL4EQ0E675X0m6 +uBXf72Lvz42NTHhXfGhsM57n0oy6t3PNTAiVoq6f16BR42a5pvXtTEgpNvmR +twH3m1tNif97JtxOvO2mhveBJa0SsTpfmPAmQaJ7Bd4n0pIKLBP4FcD+vedg +DN43+rZM17trK8BbpcvjnyRoFG25rzJGVwFUVHpHZlfj+nkmFb7UV4CYd18b +V2PnJe/OIA0UgDipa7pLDM/L5Q9utu9XgITPs4YPVuL+eKsH25wVIDfz/oEV +S2l04sylfOEYBdhy4tS+9VMU0tH6mK8crwBKi4vUFScpJPQTCoySFOBeYbuw +wgSFeKeXPL32CD9/qbBm7TiF5r24z37RClDH0lCd+06hSM/04u5XCmCa/kM4 +ZIBCdW6tFVm/FcCgfIvXJN4HNZxVG/fZs+D9g7sr+nIo9PEkwzPbgQUr+4ZK +buP9M8hNXGSlCwseeCkeVsui0NDpOfMmDxYcGxjb5fWYQil+r9rN/ViQcqCB ++Ir32zVhrh8ORbHAIu67anY0hRaePxmxa2DBVdeMeMfrFGoSU/vLW28dRJvd +MS8/QKHiHP9YNUFFsJ94wSj7wkOX+FXMXn9QhO1KV+GgKw8JdV/c7ZGnBHHW +qqpCtbmo/xEZkei3HnSiTesFCnNQxPq1iwotleHd4vUblP2zUWiM00t7QgWC +mT4bSYssdCTiaKPwoAps2iClVUM8QdM702YSS1UhUkKJ/Pz6MertN7xQGaAG +uurL823vZqDkbRtlGuzV4Wsm8DeqpaPsm96izuob4GhhgvX3/jQUYHnCRHBi +A7RtclUcTU9Fm7ofPg5o0IBLXUonWyxSULRybHaDiSYUDFGDKbLJ6Gp5cLRJ +oSacTS26P9aahPbLWKbVszbCD4fitEydRGTg8dJGNHAjrBLUjnsuGI8SZTms +1xMb4ff+Sne/whjEqkqPNLXRgra9Iy77cqJRqHqlSkupFuzoX+wrUhOJnMYX +NdepsGGV86hYdEME4lA/icB7bDgQ8r8PX0TDkZu/xfxeLhuujRk7OAqFI2+L +vLfC4Wywzm3t7xUIR7cnvENCI9kQ5t3fNTAehnL0Zuai4tlgVuZ6a1FHGJqp +WOh49IQN2lqPxxNiwlBoi3Bw9Us2sAI/kmbrwlBMirvLrTo2rDa/JyQsH4ZS +zjXu2P2KDediNb7XSYahAsnQ2VeNbGgeU3xksiwMdR8Rd2ltZ4PLfd1Op69c +pNS7dkdPLxvmNwpun6e4SDPvonxqPxvGEtktbzO5SP/m+xnHQTb06TTa5adw +0T6leN7QMBveyEu4+9znojOuhPyPH2wYuJMAIr5c5Lf1+gw9zgYnvbeP5k5z +0c0VPW3nJtjgryO1dOgUF0XnptydnmZDtbxffp0tFyVfW+RcNMsG43J/wRJL +Lnpi7mjoN4/PL2dtQptyUR7zhdz2P2w4bTwW9NiYi0rHFWcWFtjw6c/m2mTg +ov8DSCigJQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VesXB3BDo6syRDKdvY8TmSJHRMO7qKiUuFJExclUxgZKadItKeQg +ZM4QyXD2/qGQmUIhY5SGa4wUJbPye+9f5/k859nP8+71rv1di+R4/u0owMfH +t5Sfj++/3/grnCUbHWK323ivP8/L3by9upXYd5jwRb8WF82vTZNECy9KbxBE +IEqvdfYcTFVE8eXBjMXEAyQzP7+0PlUHuW3zdp9iPEa8ZuvmzFQj1DrnEjHG +KEQNx5apWqceQkvf9yh9Y9Qh/7Upm9anOKGH9YmnvzK6UB23tN4zwQfl5Aa+ +d9swjIqOx92U9QtAzqj5wciZcTQgGpD10oqLPPqVe/NyZlD2bJZbT1EkEiL/ +Ufq0mQ8cYt2repzjUIjIK5WHdoJwvmLz4TcVSYjz/mCZ4OslEMzRnrV3TkGn +a/7heCoJQapMi2RtdxqivIQtpPasgCArMunQogz08JLrsOZhEfCPtJnS18xE +/onz5r9GRCGzdZNYh3AW4mv9DM8vikO7Bkt1a0E2UjzndOGgigTYVA5VCFvk +or6JqEN/lUjCrezI3xF/81CyAfvshypJGJes1ESWPHQ8uPFebr0kyNi58AYP +89A71uI6i05J0CypiWAf5aFmizNb4sYl4SJr02iBMw+VUvsIdZU18Aw5v3X1 +46Eod/5h06g1sMA59iU4lYf29p+6HHZaCiye1T7IHeUho8sKWTsvSEHAzSNf +/v3BQ4YS3e8mr0iBBC/qntgvHtLftX+zTZAUhOgsDHpM85BKmsa4QroU7Lm2 +UCbOT6G/HH+55HdLgcHvm8tXilHodd/lg53Ga6HP4uJktRaFTPtCVeXlpeHj +Ck9qqyf+X7WvzZYlDVa2b7wHvChkclb3SqyKNJj2P6wPOUOh3QIf30jpSkOt +S9G6994UMiRUfcTNpEHWsCGZ40ehTbY15cv8pWHiyKUKtUAKybbNWI73S0O2 +o0Bv9kMKxcjsX9g4Ig3dqK1eOYVCa08kZXj9lIYbxx/sTE2lkORPo7lvf6Th +5UX97xHpFBIRiUj6skYGtEaDZRyzKSS4b8PXD3tkwFyxZqT8GYWGqzjXarNl +4PEWbr9TI4UY3M5TIXky8AOMHJqbKHTwmKnlwWIZeJAhpKvfTKHSaT2Vz7Uy +8PO9eteSNgqFqYu2TfXKQGbsv2JBXRTaElWmpCQtC0lfRs8Z9VEo6JRs081b +svBI2Kz20jSFKnTDCk2CZaHMQVqAmqHQ5KJlqaIRshAz1hTeN0shu8TxC/EP +ZcH9ye0yo98U0m6rZ+Y/lwWfILGtU/w0+rDN16fvpywICp8YWvYXjTaIdsjt +OC4HXn98iTEZGg0ED/jfd5SDW7OmkZ9kaRQvNDU46CoHx3x6ExrkaCS8SIoO +uiAHw+ntLmkMGg1PWht1cOXg6rK83h0KNErr/uBxsloOpmMjI7aq0MjW+ntr +cb0cCGUIGkuo0mh1x5/NK5vlgMjzDBnB9m9iCP7vgxyYd77rjlSnkV2lfdT8 +pBzke5J+7zRpJJvRX3ZPWR52MBUG5HRp1MaaZPVoyEPr79Ozn7DvPlxyR1tH +Hj7rqT1K2kyj2Rilg12G8hAxfaNaTp9GncEnvzBt5eGxuha5dBuNws9+EykI +kYclZWlXIg1pJIQm7LvH5aFhImc8Yx+NLhisX1YwKw9TulbU3v24Hjtscu7x +M2CPzs+GYezK3RWzhqsY0DL0maV4gEYX/w4Of6zCAA1nUbNAcxp9dVxX42PP +ADKqpIn/EI2OuFi5mrkw4I6JcnQgdu2pu6Iqngzw7DKoWnWYRqmeP45+8GMA +55CX4RorXC/fkskd0dh/Qr6KHaHR6yDL9aJNDDgeOsIoOUoj/Xu3G4fbGSCk +HqCpeoxGGdzic9XdDHC0q0qPwv4nkqw4P8wAdHDdK9fjNJJ/M6k2KkDA9MTz +ET57Glmai/DZLiHg9d5QPQ52UItya+1yAiKPrB6twJ5ts/VNFiHAb6/+fT8O +jTq6Kmss5QkoTT7S/vEEjVbYdEdXkgSIBK7yZDvQaGf3hKvGOgICB7lnb2HT +H9eLLVcjgHNKtFTJkUYhvSHHnusRMFQTYHfYiUY1DhkblbcRwGOzrRKx5/sr +FkUCAf9u73jej33qy69MT2MCjDVlG92daWT87cgU05KAhTUcKVcXGiWsvtF6 +1YoACY6uRxr2ry1PcrttCNB6yzP4iJ10Z845kkPAqeNJHJOTNJqkFHaOOxLw +YCaBdxV7f5cJYXaSgKbXf1+msWeV4jqXexFwftu3cPFTNDI7UJ3ndJYAnZ6j +Hw2wH/mMhFb5EODZGJXhgW1Rs3XP5csEjEZfLqnCzuJ8KBy7Q8Aj6YIxG1ca +CdxZHLk/hACf5tUGV7CtKPUzmVwCvnW4iydiL+a7ouIQTcDiZhXUjW2r9GhJ +RSwB5lvlHkxj06aNPXKJBNj1KvqIu9HoWLx87Ns0AojWhKKd2HnVRue1HxOw +Zmk80wZbaMTDgpuF339/y0ovbDvxKI3vufh+VwZcvYH9VL/sL5P/EXC0V9D7 +PvZKzuBgegEBLqHc0TRsh8BV1YuKCDi43Hc0D7uIp5tkX0KAl6egdyW2SOdx +v9JyAipEL15rxHZaCLCSqSZgyk1RrAv7uSJP+8JLfH7Vv1V6sMVMO0Xa6wkI +YhnXDWGf9Ob7trGRgOqjB0ZHscvj1teFNOPzLM+P+4UtWW2W9rUN1/NWZfMU +ttvXC9d3dxKgdqIyZAa7Uuzh0bT3BNQeXmj9z1L6dXoCnwhwMql+OI3tYf9D +4ngPrre57fQEdvXttT+L+wlgZop1/sCW4Rk0Sg0RsKVSy2AE+8zbk5neIwQw +2Mu0+7Fr/3BvtYzi/qj8yOvGllcs4miME9DMEXjWgn1uf8/2oEncD1ple15i +158Tkhmawfdzyd6pCJuI05ra9ZuAybxNK7OwfaqOtCbzkZB0/bZBHHbDsH/u +giAJ/bmP+O5is8Se3LVdSoKU/geTC9gX9VqdC4VIQEa+Cg7YircViLOiJLgd +WuOri+2XazLftJoE1rW8KXnslo6znWpSJMz5fBNcjH11XXXogDwJ98dPvXiN ++6dj34jbDiYJrdMml3Ow1c6t3pO0joQ/dfxVIdidlQ78R9RIWJSuOL8Xe8zg +nfRlDRIYvH+dlLGXVhzQTtIiQcjSjrsEW6dM33lgMwmvVDIVS3C/RxSLNJzZ +RYK/+A1rmf/6X//WwP3dJAwouteN4u+pqnBu4ZkJCVM3yblK7J9PB7QWzPF5 +3n1PdcQ+kPc8+u4xEp5k7V0bh79XJ7YWnWOP6yOcn+CEfYVOf9XsQMIXs+lB +DewsXtifNa4klJLiL0txHghluziknidheKa3tAHnxYu01ZoloSQwx9ObeDh/ +PrLu7PkcTkJ7CR/tjD2RssARjMLP1znZymGzkofv74knoeRfV6GbOM/8E8rn +2h+T0GfQ1bIL5932KLeX3ytJ6PSJNQ/G+XlIsuez6AsSXn8WatfEdr9/eFa7 +jgTRgS5WK87buHBD9UtNJCQfzlVZjT17Typ8aTcJ79jDHQG2NMq/XX2MmCBh +k0no6CZrnNd7X0kFTJOQ79E48BznfYxwS8u3ORJytbN8DbGvhX4yKhZggodV +/tk9eD7si57dcEiECTnKK6qMLGnUk665cFeVCdqHahkLZjRqP6lb+HMDE8qe +G897Yteqbj9rrcUE9YdaFz/h+ZSdazKoqMeE4tFKmyJTPN+eOjVVGDHhzA+5 +8uN43q18GZc4Zc8EjfMFdieNacQfmGJ9zJEJPIm916qNcL7uzRSvcWHC16d6 +xvLYXY1PA8I8mfBTIOd1w048vzpaPNUvM+Gqmm+5LJ6n+gPL4EQ0E675X0m6 +uBXf72Lvz42NTHhXfGhsM57n0oy6t3PNTAiVoq6f16BR42a5pvXtTEgpNvmR +twH3m1tNif97JtxOvO2mhveBJa0SsTpfmPAmQaJ7Bd4n0pIKLBP4FcD+vedg +DN43+rZM17trK8BbpcvjnyRoFG25rzJGVwFUVHpHZlfj+nkmFb7UV4CYd18b +V2PnJe/OIA0UgDipa7pLDM/L5Q9utu9XgITPs4YPVuL+eKsH25wVIDfz/oEV +S2l04sylfOEYBdhy4tS+9VMU0tH6mK8crwBKi4vUFScpJPQTCoySFOBeYbuw +wgSFeKeXPL32CD9/qbBm7TiF5r24z37RClDH0lCd+06hSM/04u5XCmCa/kM4 +ZIBCdW6tFVm/FcCgfIvXJN4HNZxVG/fZs+D9g7sr+nIo9PEkwzPbgQUr+4ZK +buP9M8hNXGSlCwseeCkeVsui0NDpOfMmDxYcGxjb5fWYQil+r9rN/ViQcqCB ++Ir32zVhrh8ORbHAIu67anY0hRaePxmxa2DBVdeMeMfrFGoSU/vLW28dRJvd +MS8/QKHiHP9YNUFFsJ94wSj7wkOX+FXMXn9QhO1KV+GgKw8JdV/c7ZGnBHHW +qqpCtbmo/xEZkei3HnSiTesFCnNQxPq1iwotleHd4vUblP2zUWiM00t7QgWC +mT4bSYssdCTiaKPwoAps2iClVUM8QdM702YSS1UhUkKJ/Pz6MertN7xQGaAG +uurL823vZqDkbRtlGuzV4Wsm8DeqpaPsm96izuob4GhhgvX3/jQUYHnCRHBi +A7RtclUcTU9Fm7ofPg5o0IBLXUonWyxSULRybHaDiSYUDFGDKbLJ6Gp5cLRJ +oSacTS26P9aahPbLWKbVszbCD4fitEydRGTg8dJGNHAjrBLUjnsuGI8SZTms +1xMb4ff+Sne/whjEqkqPNLXRgra9Iy77cqJRqHqlSkupFuzoX+wrUhOJnMYX +NdepsGGV86hYdEME4lA/icB7bDgQ8r8PX0TDkZu/xfxeLhuujRk7OAqFI2+L +vLfC4Wywzm3t7xUIR7cnvENCI9kQ5t3fNTAehnL0Zuai4tlgVuZ6a1FHGJqp +WOh49IQN2lqPxxNiwlBoi3Bw9Us2sAI/kmbrwlBMirvLrTo2rDa/JyQsH4ZS +zjXu2P2KDediNb7XSYahAsnQ2VeNbGgeU3xksiwMdR8Rd2ltZ4PLfd1Op69c +pNS7dkdPLxvmNwpun6e4SDPvonxqPxvGEtktbzO5SP/m+xnHQTb06TTa5adw +0T6leN7QMBveyEu4+9znojOuhPyPH2wYuJMAIr5c5Lf1+gw9zgYnvbeP5k5z +0c0VPW3nJtjgryO1dOgUF0XnptydnmZDtbxffp0tFyVfW+RcNMsG43J/wRJL +Lnpi7mjoN4/PL2dtQptyUR7zhdz2P2w4bTwW9NiYi0rHFWcWFtjw6c/m2mTg +ov8DSCigJQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.0719753401347979}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.0719753401347979}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VesXB3BDo6syRDKdvY8TmSJHRMO7qKiUuFJExclUxgZKadItKeQg +ZM4QyXD2/qGQmUIhY5SGa4wUJbPye+9f5/k859nP8+71rv1di+R4/u0owMfH +t5Sfj++/3/grnCUbHWK323ivP8/L3by9upXYd5jwRb8WF82vTZNECy9KbxBE +IEqvdfYcTFVE8eXBjMXEAyQzP7+0PlUHuW3zdp9iPEa8ZuvmzFQj1DrnEjHG +KEQNx5apWqceQkvf9yh9Y9Qh/7Upm9anOKGH9YmnvzK6UB23tN4zwQfl5Aa+ +d9swjIqOx92U9QtAzqj5wciZcTQgGpD10oqLPPqVe/NyZlD2bJZbT1EkEiL/ +Ufq0mQ8cYt2repzjUIjIK5WHdoJwvmLz4TcVSYjz/mCZ4OslEMzRnrV3TkGn +a/7heCoJQapMi2RtdxqivIQtpPasgCArMunQogz08JLrsOZhEfCPtJnS18xE +/onz5r9GRCGzdZNYh3AW4mv9DM8vikO7Bkt1a0E2UjzndOGgigTYVA5VCFvk +or6JqEN/lUjCrezI3xF/81CyAfvshypJGJes1ESWPHQ8uPFebr0kyNi58AYP +89A71uI6i05J0CypiWAf5aFmizNb4sYl4SJr02iBMw+VUvsIdZU18Aw5v3X1 +46Eod/5h06g1sMA59iU4lYf29p+6HHZaCiye1T7IHeUho8sKWTsvSEHAzSNf +/v3BQ4YS3e8mr0iBBC/qntgvHtLftX+zTZAUhOgsDHpM85BKmsa4QroU7Lm2 +UCbOT6G/HH+55HdLgcHvm8tXilHodd/lg53Ga6HP4uJktRaFTPtCVeXlpeHj +Ck9qqyf+X7WvzZYlDVa2b7wHvChkclb3SqyKNJj2P6wPOUOh3QIf30jpSkOt +S9G6994UMiRUfcTNpEHWsCGZ40ehTbY15cv8pWHiyKUKtUAKybbNWI73S0O2 +o0Bv9kMKxcjsX9g4Ig3dqK1eOYVCa08kZXj9lIYbxx/sTE2lkORPo7lvf6Th +5UX97xHpFBIRiUj6skYGtEaDZRyzKSS4b8PXD3tkwFyxZqT8GYWGqzjXarNl +4PEWbr9TI4UY3M5TIXky8AOMHJqbKHTwmKnlwWIZeJAhpKvfTKHSaT2Vz7Uy +8PO9eteSNgqFqYu2TfXKQGbsv2JBXRTaElWmpCQtC0lfRs8Z9VEo6JRs081b +svBI2Kz20jSFKnTDCk2CZaHMQVqAmqHQ5KJlqaIRshAz1hTeN0shu8TxC/EP +ZcH9ye0yo98U0m6rZ+Y/lwWfILGtU/w0+rDN16fvpywICp8YWvYXjTaIdsjt +OC4HXn98iTEZGg0ED/jfd5SDW7OmkZ9kaRQvNDU46CoHx3x6ExrkaCS8SIoO +uiAHw+ntLmkMGg1PWht1cOXg6rK83h0KNErr/uBxsloOpmMjI7aq0MjW+ntr +cb0cCGUIGkuo0mh1x5/NK5vlgMjzDBnB9m9iCP7vgxyYd77rjlSnkV2lfdT8 +pBzke5J+7zRpJJvRX3ZPWR52MBUG5HRp1MaaZPVoyEPr79Ozn7DvPlxyR1tH +Hj7rqT1K2kyj2Rilg12G8hAxfaNaTp9GncEnvzBt5eGxuha5dBuNws9+EykI +kYclZWlXIg1pJIQm7LvH5aFhImc8Yx+NLhisX1YwKw9TulbU3v24Hjtscu7x +M2CPzs+GYezK3RWzhqsY0DL0maV4gEYX/w4Of6zCAA1nUbNAcxp9dVxX42PP +ADKqpIn/EI2OuFi5mrkw4I6JcnQgdu2pu6Iqngzw7DKoWnWYRqmeP45+8GMA +55CX4RorXC/fkskd0dh/Qr6KHaHR6yDL9aJNDDgeOsIoOUoj/Xu3G4fbGSCk +HqCpeoxGGdzic9XdDHC0q0qPwv4nkqw4P8wAdHDdK9fjNJJ/M6k2KkDA9MTz +ET57Glmai/DZLiHg9d5QPQ52UItya+1yAiKPrB6twJ5ts/VNFiHAb6/+fT8O +jTq6Kmss5QkoTT7S/vEEjVbYdEdXkgSIBK7yZDvQaGf3hKvGOgICB7lnb2HT +H9eLLVcjgHNKtFTJkUYhvSHHnusRMFQTYHfYiUY1DhkblbcRwGOzrRKx5/sr +FkUCAf9u73jej33qy69MT2MCjDVlG92daWT87cgU05KAhTUcKVcXGiWsvtF6 +1YoACY6uRxr2ry1PcrttCNB6yzP4iJ10Z845kkPAqeNJHJOTNJqkFHaOOxLw +YCaBdxV7f5cJYXaSgKbXf1+msWeV4jqXexFwftu3cPFTNDI7UJ3ndJYAnZ6j +Hw2wH/mMhFb5EODZGJXhgW1Rs3XP5csEjEZfLqnCzuJ8KBy7Q8Aj6YIxG1ca +CdxZHLk/hACf5tUGV7CtKPUzmVwCvnW4iydiL+a7ouIQTcDiZhXUjW2r9GhJ +RSwB5lvlHkxj06aNPXKJBNj1KvqIu9HoWLx87Ns0AojWhKKd2HnVRue1HxOw +Zmk80wZbaMTDgpuF339/y0ovbDvxKI3vufh+VwZcvYH9VL/sL5P/EXC0V9D7 +PvZKzuBgegEBLqHc0TRsh8BV1YuKCDi43Hc0D7uIp5tkX0KAl6egdyW2SOdx +v9JyAipEL15rxHZaCLCSqSZgyk1RrAv7uSJP+8JLfH7Vv1V6sMVMO0Xa6wkI +YhnXDWGf9Ob7trGRgOqjB0ZHscvj1teFNOPzLM+P+4UtWW2W9rUN1/NWZfMU +ttvXC9d3dxKgdqIyZAa7Uuzh0bT3BNQeXmj9z1L6dXoCnwhwMql+OI3tYf9D +4ngPrre57fQEdvXttT+L+wlgZop1/sCW4Rk0Sg0RsKVSy2AE+8zbk5neIwQw +2Mu0+7Fr/3BvtYzi/qj8yOvGllcs4miME9DMEXjWgn1uf8/2oEncD1ple15i +158Tkhmawfdzyd6pCJuI05ra9ZuAybxNK7OwfaqOtCbzkZB0/bZBHHbDsH/u +giAJ/bmP+O5is8Se3LVdSoKU/geTC9gX9VqdC4VIQEa+Cg7YircViLOiJLgd +WuOri+2XazLftJoE1rW8KXnslo6znWpSJMz5fBNcjH11XXXogDwJ98dPvXiN ++6dj34jbDiYJrdMml3Ow1c6t3pO0joQ/dfxVIdidlQ78R9RIWJSuOL8Xe8zg +nfRlDRIYvH+dlLGXVhzQTtIiQcjSjrsEW6dM33lgMwmvVDIVS3C/RxSLNJzZ +RYK/+A1rmf/6X//WwP3dJAwouteN4u+pqnBu4ZkJCVM3yblK7J9PB7QWzPF5 +3n1PdcQ+kPc8+u4xEp5k7V0bh79XJ7YWnWOP6yOcn+CEfYVOf9XsQMIXs+lB +DewsXtifNa4klJLiL0txHghluziknidheKa3tAHnxYu01ZoloSQwx9ObeDh/ +PrLu7PkcTkJ7CR/tjD2RssARjMLP1znZymGzkofv74knoeRfV6GbOM/8E8rn +2h+T0GfQ1bIL5932KLeX3ytJ6PSJNQ/G+XlIsuez6AsSXn8WatfEdr9/eFa7 +jgTRgS5WK87buHBD9UtNJCQfzlVZjT17Typ8aTcJ79jDHQG2NMq/XX2MmCBh +k0no6CZrnNd7X0kFTJOQ79E48BznfYxwS8u3ORJytbN8DbGvhX4yKhZggodV +/tk9eD7si57dcEiECTnKK6qMLGnUk665cFeVCdqHahkLZjRqP6lb+HMDE8qe +G897Yteqbj9rrcUE9YdaFz/h+ZSdazKoqMeE4tFKmyJTPN+eOjVVGDHhzA+5 +8uN43q18GZc4Zc8EjfMFdieNacQfmGJ9zJEJPIm916qNcL7uzRSvcWHC16d6 +xvLYXY1PA8I8mfBTIOd1w048vzpaPNUvM+Gqmm+5LJ6n+gPL4EQ0E675X0m6 +uBXf72Lvz42NTHhXfGhsM57n0oy6t3PNTAiVoq6f16BR42a5pvXtTEgpNvmR +twH3m1tNif97JtxOvO2mhveBJa0SsTpfmPAmQaJ7Bd4n0pIKLBP4FcD+vedg +DN43+rZM17trK8BbpcvjnyRoFG25rzJGVwFUVHpHZlfj+nkmFb7UV4CYd18b +V2PnJe/OIA0UgDipa7pLDM/L5Q9utu9XgITPs4YPVuL+eKsH25wVIDfz/oEV +S2l04sylfOEYBdhy4tS+9VMU0tH6mK8crwBKi4vUFScpJPQTCoySFOBeYbuw +wgSFeKeXPL32CD9/qbBm7TiF5r24z37RClDH0lCd+06hSM/04u5XCmCa/kM4 +ZIBCdW6tFVm/FcCgfIvXJN4HNZxVG/fZs+D9g7sr+nIo9PEkwzPbgQUr+4ZK +buP9M8hNXGSlCwseeCkeVsui0NDpOfMmDxYcGxjb5fWYQil+r9rN/ViQcqCB ++Ir32zVhrh8ORbHAIu67anY0hRaePxmxa2DBVdeMeMfrFGoSU/vLW28dRJvd +MS8/QKHiHP9YNUFFsJ94wSj7wkOX+FXMXn9QhO1KV+GgKw8JdV/c7ZGnBHHW +qqpCtbmo/xEZkei3HnSiTesFCnNQxPq1iwotleHd4vUblP2zUWiM00t7QgWC +mT4bSYssdCTiaKPwoAps2iClVUM8QdM702YSS1UhUkKJ/Pz6MertN7xQGaAG +uurL823vZqDkbRtlGuzV4Wsm8DeqpaPsm96izuob4GhhgvX3/jQUYHnCRHBi +A7RtclUcTU9Fm7ofPg5o0IBLXUonWyxSULRybHaDiSYUDFGDKbLJ6Gp5cLRJ +oSacTS26P9aahPbLWKbVszbCD4fitEydRGTg8dJGNHAjrBLUjnsuGI8SZTms +1xMb4ff+Sne/whjEqkqPNLXRgra9Iy77cqJRqHqlSkupFuzoX+wrUhOJnMYX +NdepsGGV86hYdEME4lA/icB7bDgQ8r8PX0TDkZu/xfxeLhuujRk7OAqFI2+L +vLfC4Wywzm3t7xUIR7cnvENCI9kQ5t3fNTAehnL0Zuai4tlgVuZ6a1FHGJqp +WOh49IQN2lqPxxNiwlBoi3Bw9Us2sAI/kmbrwlBMirvLrTo2rDa/JyQsH4ZS +zjXu2P2KDediNb7XSYahAsnQ2VeNbGgeU3xksiwMdR8Rd2ltZ4PLfd1Op69c +pNS7dkdPLxvmNwpun6e4SDPvonxqPxvGEtktbzO5SP/m+xnHQTb06TTa5adw +0T6leN7QMBveyEu4+9znojOuhPyPH2wYuJMAIr5c5Lf1+gw9zgYnvbeP5k5z +0c0VPW3nJtjgryO1dOgUF0XnptydnmZDtbxffp0tFyVfW+RcNMsG43J/wRJL +Lnpi7mjoN4/PL2dtQptyUR7zhdz2P2w4bTwW9NiYi0rHFWcWFtjw6c/m2mTg +ov8DSCigJQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.0719753401347979}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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, 20}, {0., 0.0719753401347979}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913483238131485`*^9, 3.9921338608122196`*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"c98a24a4-262b-1546-9931-8b9c71b29512"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel-> + "In[142]:=",ExpressionUUID->"dbee741a-c3af-b241-a21b-4f79ecc0fe0c"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4VesXB3BDo6syRDKdvY8TmSJHRMO7qKiUuFJExclUxgZKadItKeQg +ZM4QyXD2/qGQmUIhY5SGa4wUJbPye+9f5/k859nP8+71rv1di+R4/u0owMfH +t5Sfj++/3/grnCUbHWK323ivP8/L3by9upXYd5jwRb8WF82vTZNECy9KbxBE +IEqvdfYcTFVE8eXBjMXEAyQzP7+0PlUHuW3zdp9iPEa8ZuvmzFQj1DrnEjHG +KEQNx5apWqceQkvf9yh9Y9Qh/7Upm9anOKGH9YmnvzK6UB23tN4zwQfl5Aa+ +d9swjIqOx92U9QtAzqj5wciZcTQgGpD10oqLPPqVe/NyZlD2bJZbT1EkEiL/ +Ufq0mQ8cYt2repzjUIjIK5WHdoJwvmLz4TcVSYjz/mCZ4OslEMzRnrV3TkGn +a/7heCoJQapMi2RtdxqivIQtpPasgCArMunQogz08JLrsOZhEfCPtJnS18xE +/onz5r9GRCGzdZNYh3AW4mv9DM8vikO7Bkt1a0E2UjzndOGgigTYVA5VCFvk +or6JqEN/lUjCrezI3xF/81CyAfvshypJGJes1ESWPHQ8uPFebr0kyNi58AYP +89A71uI6i05J0CypiWAf5aFmizNb4sYl4SJr02iBMw+VUvsIdZU18Aw5v3X1 +46Eod/5h06g1sMA59iU4lYf29p+6HHZaCiye1T7IHeUho8sKWTsvSEHAzSNf +/v3BQ4YS3e8mr0iBBC/qntgvHtLftX+zTZAUhOgsDHpM85BKmsa4QroU7Lm2 +UCbOT6G/HH+55HdLgcHvm8tXilHodd/lg53Ga6HP4uJktRaFTPtCVeXlpeHj +Ck9qqyf+X7WvzZYlDVa2b7wHvChkclb3SqyKNJj2P6wPOUOh3QIf30jpSkOt +S9G6994UMiRUfcTNpEHWsCGZ40ehTbY15cv8pWHiyKUKtUAKybbNWI73S0O2 +o0Bv9kMKxcjsX9g4Ig3dqK1eOYVCa08kZXj9lIYbxx/sTE2lkORPo7lvf6Th +5UX97xHpFBIRiUj6skYGtEaDZRyzKSS4b8PXD3tkwFyxZqT8GYWGqzjXarNl +4PEWbr9TI4UY3M5TIXky8AOMHJqbKHTwmKnlwWIZeJAhpKvfTKHSaT2Vz7Uy +8PO9eteSNgqFqYu2TfXKQGbsv2JBXRTaElWmpCQtC0lfRs8Z9VEo6JRs081b +svBI2Kz20jSFKnTDCk2CZaHMQVqAmqHQ5KJlqaIRshAz1hTeN0shu8TxC/EP +ZcH9ye0yo98U0m6rZ+Y/lwWfILGtU/w0+rDN16fvpywICp8YWvYXjTaIdsjt +OC4HXn98iTEZGg0ED/jfd5SDW7OmkZ9kaRQvNDU46CoHx3x6ExrkaCS8SIoO +uiAHw+ntLmkMGg1PWht1cOXg6rK83h0KNErr/uBxsloOpmMjI7aq0MjW+ntr +cb0cCGUIGkuo0mh1x5/NK5vlgMjzDBnB9m9iCP7vgxyYd77rjlSnkV2lfdT8 +pBzke5J+7zRpJJvRX3ZPWR52MBUG5HRp1MaaZPVoyEPr79Ozn7DvPlxyR1tH +Hj7rqT1K2kyj2Rilg12G8hAxfaNaTp9GncEnvzBt5eGxuha5dBuNws9+EykI +kYclZWlXIg1pJIQm7LvH5aFhImc8Yx+NLhisX1YwKw9TulbU3v24Hjtscu7x +M2CPzs+GYezK3RWzhqsY0DL0maV4gEYX/w4Of6zCAA1nUbNAcxp9dVxX42PP +ADKqpIn/EI2OuFi5mrkw4I6JcnQgdu2pu6Iqngzw7DKoWnWYRqmeP45+8GMA +55CX4RorXC/fkskd0dh/Qr6KHaHR6yDL9aJNDDgeOsIoOUoj/Xu3G4fbGSCk +HqCpeoxGGdzic9XdDHC0q0qPwv4nkqw4P8wAdHDdK9fjNJJ/M6k2KkDA9MTz +ET57Glmai/DZLiHg9d5QPQ52UItya+1yAiKPrB6twJ5ts/VNFiHAb6/+fT8O +jTq6Kmss5QkoTT7S/vEEjVbYdEdXkgSIBK7yZDvQaGf3hKvGOgICB7lnb2HT +H9eLLVcjgHNKtFTJkUYhvSHHnusRMFQTYHfYiUY1DhkblbcRwGOzrRKx5/sr +FkUCAf9u73jej33qy69MT2MCjDVlG92daWT87cgU05KAhTUcKVcXGiWsvtF6 +1YoACY6uRxr2ry1PcrttCNB6yzP4iJ10Z845kkPAqeNJHJOTNJqkFHaOOxLw +YCaBdxV7f5cJYXaSgKbXf1+msWeV4jqXexFwftu3cPFTNDI7UJ3ndJYAnZ6j +Hw2wH/mMhFb5EODZGJXhgW1Rs3XP5csEjEZfLqnCzuJ8KBy7Q8Aj6YIxG1ca +CdxZHLk/hACf5tUGV7CtKPUzmVwCvnW4iydiL+a7ouIQTcDiZhXUjW2r9GhJ +RSwB5lvlHkxj06aNPXKJBNj1KvqIu9HoWLx87Ns0AojWhKKd2HnVRue1HxOw +Zmk80wZbaMTDgpuF339/y0ovbDvxKI3vufh+VwZcvYH9VL/sL5P/EXC0V9D7 +PvZKzuBgegEBLqHc0TRsh8BV1YuKCDi43Hc0D7uIp5tkX0KAl6egdyW2SOdx +v9JyAipEL15rxHZaCLCSqSZgyk1RrAv7uSJP+8JLfH7Vv1V6sMVMO0Xa6wkI +YhnXDWGf9Ob7trGRgOqjB0ZHscvj1teFNOPzLM+P+4UtWW2W9rUN1/NWZfMU +ttvXC9d3dxKgdqIyZAa7Uuzh0bT3BNQeXmj9z1L6dXoCnwhwMql+OI3tYf9D +4ngPrre57fQEdvXttT+L+wlgZop1/sCW4Rk0Sg0RsKVSy2AE+8zbk5neIwQw +2Mu0+7Fr/3BvtYzi/qj8yOvGllcs4miME9DMEXjWgn1uf8/2oEncD1ple15i +158Tkhmawfdzyd6pCJuI05ra9ZuAybxNK7OwfaqOtCbzkZB0/bZBHHbDsH/u +giAJ/bmP+O5is8Se3LVdSoKU/geTC9gX9VqdC4VIQEa+Cg7YircViLOiJLgd +WuOri+2XazLftJoE1rW8KXnslo6znWpSJMz5fBNcjH11XXXogDwJ98dPvXiN ++6dj34jbDiYJrdMml3Ow1c6t3pO0joQ/dfxVIdidlQ78R9RIWJSuOL8Xe8zg +nfRlDRIYvH+dlLGXVhzQTtIiQcjSjrsEW6dM33lgMwmvVDIVS3C/RxSLNJzZ +RYK/+A1rmf/6X//WwP3dJAwouteN4u+pqnBu4ZkJCVM3yblK7J9PB7QWzPF5 +3n1PdcQ+kPc8+u4xEp5k7V0bh79XJ7YWnWOP6yOcn+CEfYVOf9XsQMIXs+lB +DewsXtifNa4klJLiL0txHghluziknidheKa3tAHnxYu01ZoloSQwx9ObeDh/ +PrLu7PkcTkJ7CR/tjD2RssARjMLP1znZymGzkofv74knoeRfV6GbOM/8E8rn +2h+T0GfQ1bIL5932KLeX3ytJ6PSJNQ/G+XlIsuez6AsSXn8WatfEdr9/eFa7 +jgTRgS5WK87buHBD9UtNJCQfzlVZjT17Typ8aTcJ79jDHQG2NMq/XX2MmCBh +k0no6CZrnNd7X0kFTJOQ79E48BznfYxwS8u3ORJytbN8DbGvhX4yKhZggodV +/tk9eD7si57dcEiECTnKK6qMLGnUk665cFeVCdqHahkLZjRqP6lb+HMDE8qe +G897Yteqbj9rrcUE9YdaFz/h+ZSdazKoqMeE4tFKmyJTPN+eOjVVGDHhzA+5 +8uN43q18GZc4Zc8EjfMFdieNacQfmGJ9zJEJPIm916qNcL7uzRSvcWHC16d6 +xvLYXY1PA8I8mfBTIOd1w048vzpaPNUvM+Gqmm+5LJ6n+gPL4EQ0E675X0m6 +uBXf72Lvz42NTHhXfGhsM57n0oy6t3PNTAiVoq6f16BR42a5pvXtTEgpNvmR +twH3m1tNif97JtxOvO2mhveBJa0SsTpfmPAmQaJ7Bd4n0pIKLBP4FcD+vedg +DN43+rZM17trK8BbpcvjnyRoFG25rzJGVwFUVHpHZlfj+nkmFb7UV4CYd18b +V2PnJe/OIA0UgDipa7pLDM/L5Q9utu9XgITPs4YPVuL+eKsH25wVIDfz/oEV +S2l04sylfOEYBdhy4tS+9VMU0tH6mK8crwBKi4vUFScpJPQTCoySFOBeYbuw +wgSFeKeXPL32CD9/qbBm7TiF5r24z37RClDH0lCd+06hSM/04u5XCmCa/kM4 +ZIBCdW6tFVm/FcCgfIvXJN4HNZxVG/fZs+D9g7sr+nIo9PEkwzPbgQUr+4ZK +buP9M8hNXGSlCwseeCkeVsui0NDpOfMmDxYcGxjb5fWYQil+r9rN/ViQcqCB ++Ir32zVhrh8ORbHAIu67anY0hRaePxmxa2DBVdeMeMfrFGoSU/vLW28dRJvd +MS8/QKHiHP9YNUFFsJ94wSj7wkOX+FXMXn9QhO1KV+GgKw8JdV/c7ZGnBHHW +qqpCtbmo/xEZkei3HnSiTesFCnNQxPq1iwotleHd4vUblP2zUWiM00t7QgWC +mT4bSYssdCTiaKPwoAps2iClVUM8QdM702YSS1UhUkKJ/Pz6MertN7xQGaAG +uurL823vZqDkbRtlGuzV4Wsm8DeqpaPsm96izuob4GhhgvX3/jQUYHnCRHBi +A7RtclUcTU9Fm7ofPg5o0IBLXUonWyxSULRybHaDiSYUDFGDKbLJ6Gp5cLRJ +oSacTS26P9aahPbLWKbVszbCD4fitEydRGTg8dJGNHAjrBLUjnsuGI8SZTms +1xMb4ff+Sne/whjEqkqPNLXRgra9Iy77cqJRqHqlSkupFuzoX+wrUhOJnMYX +NdepsGGV86hYdEME4lA/icB7bDgQ8r8PX0TDkZu/xfxeLhuujRk7OAqFI2+L +vLfC4Wywzm3t7xUIR7cnvENCI9kQ5t3fNTAehnL0Zuai4tlgVuZ6a1FHGJqp +WOh49IQN2lqPxxNiwlBoi3Bw9Us2sAI/kmbrwlBMirvLrTo2rDa/JyQsH4ZS +zjXu2P2KDediNb7XSYahAsnQ2VeNbGgeU3xksiwMdR8Rd2ltZ4PLfd1Op69c +pNS7dkdPLxvmNwpun6e4SDPvonxqPxvGEtktbzO5SP/m+xnHQTb06TTa5adw +0T6leN7QMBveyEu4+9znojOuhPyPH2wYuJMAIr5c5Lf1+gw9zgYnvbeP5k5z +0c0VPW3nJtjgryO1dOgUF0XnptydnmZDtbxffp0tFyVfW+RcNMsG43J/wRJL +Lnpi7mjoN4/PL2dtQptyUR7zhdz2P2w4bTwW9NiYi0rHFWcWFtjw6c/m2mTg +ov8DSCigJQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VesXB3BDo6syRDKdvY8TmSJHRMO7qKiUuFJExclUxgZKadItKeQg +ZM4QyXD2/qGQmUIhY5SGa4wUJbPye+9f5/k859nP8+71rv1di+R4/u0owMfH +t5Sfj++/3/grnCUbHWK323ivP8/L3by9upXYd5jwRb8WF82vTZNECy9KbxBE +IEqvdfYcTFVE8eXBjMXEAyQzP7+0PlUHuW3zdp9iPEa8ZuvmzFQj1DrnEjHG +KEQNx5apWqceQkvf9yh9Y9Qh/7Upm9anOKGH9YmnvzK6UB23tN4zwQfl5Aa+ +d9swjIqOx92U9QtAzqj5wciZcTQgGpD10oqLPPqVe/NyZlD2bJZbT1EkEiL/ +Ufq0mQ8cYt2repzjUIjIK5WHdoJwvmLz4TcVSYjz/mCZ4OslEMzRnrV3TkGn +a/7heCoJQapMi2RtdxqivIQtpPasgCArMunQogz08JLrsOZhEfCPtJnS18xE +/onz5r9GRCGzdZNYh3AW4mv9DM8vikO7Bkt1a0E2UjzndOGgigTYVA5VCFvk +or6JqEN/lUjCrezI3xF/81CyAfvshypJGJes1ESWPHQ8uPFebr0kyNi58AYP +89A71uI6i05J0CypiWAf5aFmizNb4sYl4SJr02iBMw+VUvsIdZU18Aw5v3X1 +46Eod/5h06g1sMA59iU4lYf29p+6HHZaCiye1T7IHeUho8sKWTsvSEHAzSNf +/v3BQ4YS3e8mr0iBBC/qntgvHtLftX+zTZAUhOgsDHpM85BKmsa4QroU7Lm2 +UCbOT6G/HH+55HdLgcHvm8tXilHodd/lg53Ga6HP4uJktRaFTPtCVeXlpeHj +Ck9qqyf+X7WvzZYlDVa2b7wHvChkclb3SqyKNJj2P6wPOUOh3QIf30jpSkOt +S9G6994UMiRUfcTNpEHWsCGZ40ehTbY15cv8pWHiyKUKtUAKybbNWI73S0O2 +o0Bv9kMKxcjsX9g4Ig3dqK1eOYVCa08kZXj9lIYbxx/sTE2lkORPo7lvf6Th +5UX97xHpFBIRiUj6skYGtEaDZRyzKSS4b8PXD3tkwFyxZqT8GYWGqzjXarNl +4PEWbr9TI4UY3M5TIXky8AOMHJqbKHTwmKnlwWIZeJAhpKvfTKHSaT2Vz7Uy +8PO9eteSNgqFqYu2TfXKQGbsv2JBXRTaElWmpCQtC0lfRs8Z9VEo6JRs081b +svBI2Kz20jSFKnTDCk2CZaHMQVqAmqHQ5KJlqaIRshAz1hTeN0shu8TxC/EP +ZcH9ye0yo98U0m6rZ+Y/lwWfILGtU/w0+rDN16fvpywICp8YWvYXjTaIdsjt +OC4HXn98iTEZGg0ED/jfd5SDW7OmkZ9kaRQvNDU46CoHx3x6ExrkaCS8SIoO +uiAHw+ntLmkMGg1PWht1cOXg6rK83h0KNErr/uBxsloOpmMjI7aq0MjW+ntr +cb0cCGUIGkuo0mh1x5/NK5vlgMjzDBnB9m9iCP7vgxyYd77rjlSnkV2lfdT8 +pBzke5J+7zRpJJvRX3ZPWR52MBUG5HRp1MaaZPVoyEPr79Ozn7DvPlxyR1tH +Hj7rqT1K2kyj2Rilg12G8hAxfaNaTp9GncEnvzBt5eGxuha5dBuNws9+EykI +kYclZWlXIg1pJIQm7LvH5aFhImc8Yx+NLhisX1YwKw9TulbU3v24Hjtscu7x +M2CPzs+GYezK3RWzhqsY0DL0maV4gEYX/w4Of6zCAA1nUbNAcxp9dVxX42PP +ADKqpIn/EI2OuFi5mrkw4I6JcnQgdu2pu6Iqngzw7DKoWnWYRqmeP45+8GMA +55CX4RorXC/fkskd0dh/Qr6KHaHR6yDL9aJNDDgeOsIoOUoj/Xu3G4fbGSCk +HqCpeoxGGdzic9XdDHC0q0qPwv4nkqw4P8wAdHDdK9fjNJJ/M6k2KkDA9MTz +ET57Glmai/DZLiHg9d5QPQ52UItya+1yAiKPrB6twJ5ts/VNFiHAb6/+fT8O +jTq6Kmss5QkoTT7S/vEEjVbYdEdXkgSIBK7yZDvQaGf3hKvGOgICB7lnb2HT +H9eLLVcjgHNKtFTJkUYhvSHHnusRMFQTYHfYiUY1DhkblbcRwGOzrRKx5/sr +FkUCAf9u73jej33qy69MT2MCjDVlG92daWT87cgU05KAhTUcKVcXGiWsvtF6 +1YoACY6uRxr2ry1PcrttCNB6yzP4iJ10Z845kkPAqeNJHJOTNJqkFHaOOxLw +YCaBdxV7f5cJYXaSgKbXf1+msWeV4jqXexFwftu3cPFTNDI7UJ3ndJYAnZ6j +Hw2wH/mMhFb5EODZGJXhgW1Rs3XP5csEjEZfLqnCzuJ8KBy7Q8Aj6YIxG1ca +CdxZHLk/hACf5tUGV7CtKPUzmVwCvnW4iydiL+a7ouIQTcDiZhXUjW2r9GhJ +RSwB5lvlHkxj06aNPXKJBNj1KvqIu9HoWLx87Ns0AojWhKKd2HnVRue1HxOw +Zmk80wZbaMTDgpuF339/y0ovbDvxKI3vufh+VwZcvYH9VL/sL5P/EXC0V9D7 +PvZKzuBgegEBLqHc0TRsh8BV1YuKCDi43Hc0D7uIp5tkX0KAl6egdyW2SOdx +v9JyAipEL15rxHZaCLCSqSZgyk1RrAv7uSJP+8JLfH7Vv1V6sMVMO0Xa6wkI +YhnXDWGf9Ob7trGRgOqjB0ZHscvj1teFNOPzLM+P+4UtWW2W9rUN1/NWZfMU +ttvXC9d3dxKgdqIyZAa7Uuzh0bT3BNQeXmj9z1L6dXoCnwhwMql+OI3tYf9D +4ngPrre57fQEdvXttT+L+wlgZop1/sCW4Rk0Sg0RsKVSy2AE+8zbk5neIwQw +2Mu0+7Fr/3BvtYzi/qj8yOvGllcs4miME9DMEXjWgn1uf8/2oEncD1ple15i +158Tkhmawfdzyd6pCJuI05ra9ZuAybxNK7OwfaqOtCbzkZB0/bZBHHbDsH/u +giAJ/bmP+O5is8Se3LVdSoKU/geTC9gX9VqdC4VIQEa+Cg7YircViLOiJLgd +WuOri+2XazLftJoE1rW8KXnslo6znWpSJMz5fBNcjH11XXXogDwJ98dPvXiN ++6dj34jbDiYJrdMml3Ow1c6t3pO0joQ/dfxVIdidlQ78R9RIWJSuOL8Xe8zg +nfRlDRIYvH+dlLGXVhzQTtIiQcjSjrsEW6dM33lgMwmvVDIVS3C/RxSLNJzZ +RYK/+A1rmf/6X//WwP3dJAwouteN4u+pqnBu4ZkJCVM3yblK7J9PB7QWzPF5 +3n1PdcQ+kPc8+u4xEp5k7V0bh79XJ7YWnWOP6yOcn+CEfYVOf9XsQMIXs+lB +DewsXtifNa4klJLiL0txHghluziknidheKa3tAHnxYu01ZoloSQwx9ObeDh/ +PrLu7PkcTkJ7CR/tjD2RssARjMLP1znZymGzkofv74knoeRfV6GbOM/8E8rn +2h+T0GfQ1bIL5932KLeX3ytJ6PSJNQ/G+XlIsuez6AsSXn8WatfEdr9/eFa7 +jgTRgS5WK87buHBD9UtNJCQfzlVZjT17Typ8aTcJ79jDHQG2NMq/XX2MmCBh +k0no6CZrnNd7X0kFTJOQ79E48BznfYxwS8u3ORJytbN8DbGvhX4yKhZggodV +/tk9eD7si57dcEiECTnKK6qMLGnUk665cFeVCdqHahkLZjRqP6lb+HMDE8qe +G897Yteqbj9rrcUE9YdaFz/h+ZSdazKoqMeE4tFKmyJTPN+eOjVVGDHhzA+5 +8uN43q18GZc4Zc8EjfMFdieNacQfmGJ9zJEJPIm916qNcL7uzRSvcWHC16d6 +xvLYXY1PA8I8mfBTIOd1w048vzpaPNUvM+Gqmm+5LJ6n+gPL4EQ0E675X0m6 +uBXf72Lvz42NTHhXfGhsM57n0oy6t3PNTAiVoq6f16BR42a5pvXtTEgpNvmR +twH3m1tNif97JtxOvO2mhveBJa0SsTpfmPAmQaJ7Bd4n0pIKLBP4FcD+vedg +DN43+rZM17trK8BbpcvjnyRoFG25rzJGVwFUVHpHZlfj+nkmFb7UV4CYd18b +V2PnJe/OIA0UgDipa7pLDM/L5Q9utu9XgITPs4YPVuL+eKsH25wVIDfz/oEV +S2l04sylfOEYBdhy4tS+9VMU0tH6mK8crwBKi4vUFScpJPQTCoySFOBeYbuw +wgSFeKeXPL32CD9/qbBm7TiF5r24z37RClDH0lCd+06hSM/04u5XCmCa/kM4 +ZIBCdW6tFVm/FcCgfIvXJN4HNZxVG/fZs+D9g7sr+nIo9PEkwzPbgQUr+4ZK +buP9M8hNXGSlCwseeCkeVsui0NDpOfMmDxYcGxjb5fWYQil+r9rN/ViQcqCB ++Ir32zVhrh8ORbHAIu67anY0hRaePxmxa2DBVdeMeMfrFGoSU/vLW28dRJvd +MS8/QKHiHP9YNUFFsJ94wSj7wkOX+FXMXn9QhO1KV+GgKw8JdV/c7ZGnBHHW +qqpCtbmo/xEZkei3HnSiTesFCnNQxPq1iwotleHd4vUblP2zUWiM00t7QgWC +mT4bSYssdCTiaKPwoAps2iClVUM8QdM702YSS1UhUkKJ/Pz6MertN7xQGaAG +uurL823vZqDkbRtlGuzV4Wsm8DeqpaPsm96izuob4GhhgvX3/jQUYHnCRHBi +A7RtclUcTU9Fm7ofPg5o0IBLXUonWyxSULRybHaDiSYUDFGDKbLJ6Gp5cLRJ +oSacTS26P9aahPbLWKbVszbCD4fitEydRGTg8dJGNHAjrBLUjnsuGI8SZTms +1xMb4ff+Sne/whjEqkqPNLXRgra9Iy77cqJRqHqlSkupFuzoX+wrUhOJnMYX +NdepsGGV86hYdEME4lA/icB7bDgQ8r8PX0TDkZu/xfxeLhuujRk7OAqFI2+L +vLfC4Wywzm3t7xUIR7cnvENCI9kQ5t3fNTAehnL0Zuai4tlgVuZ6a1FHGJqp +WOh49IQN2lqPxxNiwlBoi3Bw9Us2sAI/kmbrwlBMirvLrTo2rDa/JyQsH4ZS +zjXu2P2KDediNb7XSYahAsnQ2VeNbGgeU3xksiwMdR8Rd2ltZ4PLfd1Op69c +pNS7dkdPLxvmNwpun6e4SDPvonxqPxvGEtktbzO5SP/m+xnHQTb06TTa5adw +0T6leN7QMBveyEu4+9znojOuhPyPH2wYuJMAIr5c5Lf1+gw9zgYnvbeP5k5z +0c0VPW3nJtjgryO1dOgUF0XnptydnmZDtbxffp0tFyVfW+RcNMsG43J/wRJL +Lnpi7mjoN4/PL2dtQptyUR7zhdz2P2w4bTwW9NiYi0rHFWcWFtjw6c/m2mTg +ov8DSCigJQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.0719753401347979}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.0719753401347979}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VesXB3BDo6syRDKdvY8TmSJHRMO7qKiUuFJExclUxgZKadItKeQg +ZM4QyXD2/qGQmUIhY5SGa4wUJbPye+9f5/k859nP8+71rv1di+R4/u0owMfH +t5Sfj++/3/grnCUbHWK323ivP8/L3by9upXYd5jwRb8WF82vTZNECy9KbxBE +IEqvdfYcTFVE8eXBjMXEAyQzP7+0PlUHuW3zdp9iPEa8ZuvmzFQj1DrnEjHG +KEQNx5apWqceQkvf9yh9Y9Qh/7Upm9anOKGH9YmnvzK6UB23tN4zwQfl5Aa+ +d9swjIqOx92U9QtAzqj5wciZcTQgGpD10oqLPPqVe/NyZlD2bJZbT1EkEiL/ +Ufq0mQ8cYt2repzjUIjIK5WHdoJwvmLz4TcVSYjz/mCZ4OslEMzRnrV3TkGn +a/7heCoJQapMi2RtdxqivIQtpPasgCArMunQogz08JLrsOZhEfCPtJnS18xE +/onz5r9GRCGzdZNYh3AW4mv9DM8vikO7Bkt1a0E2UjzndOGgigTYVA5VCFvk +or6JqEN/lUjCrezI3xF/81CyAfvshypJGJes1ESWPHQ8uPFebr0kyNi58AYP +89A71uI6i05J0CypiWAf5aFmizNb4sYl4SJr02iBMw+VUvsIdZU18Aw5v3X1 +46Eod/5h06g1sMA59iU4lYf29p+6HHZaCiye1T7IHeUho8sKWTsvSEHAzSNf +/v3BQ4YS3e8mr0iBBC/qntgvHtLftX+zTZAUhOgsDHpM85BKmsa4QroU7Lm2 +UCbOT6G/HH+55HdLgcHvm8tXilHodd/lg53Ga6HP4uJktRaFTPtCVeXlpeHj +Ck9qqyf+X7WvzZYlDVa2b7wHvChkclb3SqyKNJj2P6wPOUOh3QIf30jpSkOt +S9G6994UMiRUfcTNpEHWsCGZ40ehTbY15cv8pWHiyKUKtUAKybbNWI73S0O2 +o0Bv9kMKxcjsX9g4Ig3dqK1eOYVCa08kZXj9lIYbxx/sTE2lkORPo7lvf6Th +5UX97xHpFBIRiUj6skYGtEaDZRyzKSS4b8PXD3tkwFyxZqT8GYWGqzjXarNl +4PEWbr9TI4UY3M5TIXky8AOMHJqbKHTwmKnlwWIZeJAhpKvfTKHSaT2Vz7Uy +8PO9eteSNgqFqYu2TfXKQGbsv2JBXRTaElWmpCQtC0lfRs8Z9VEo6JRs081b +svBI2Kz20jSFKnTDCk2CZaHMQVqAmqHQ5KJlqaIRshAz1hTeN0shu8TxC/EP +ZcH9ye0yo98U0m6rZ+Y/lwWfILGtU/w0+rDN16fvpywICp8YWvYXjTaIdsjt +OC4HXn98iTEZGg0ED/jfd5SDW7OmkZ9kaRQvNDU46CoHx3x6ExrkaCS8SIoO +uiAHw+ntLmkMGg1PWht1cOXg6rK83h0KNErr/uBxsloOpmMjI7aq0MjW+ntr +cb0cCGUIGkuo0mh1x5/NK5vlgMjzDBnB9m9iCP7vgxyYd77rjlSnkV2lfdT8 +pBzke5J+7zRpJJvRX3ZPWR52MBUG5HRp1MaaZPVoyEPr79Ozn7DvPlxyR1tH +Hj7rqT1K2kyj2Rilg12G8hAxfaNaTp9GncEnvzBt5eGxuha5dBuNws9+EykI +kYclZWlXIg1pJIQm7LvH5aFhImc8Yx+NLhisX1YwKw9TulbU3v24Hjtscu7x +M2CPzs+GYezK3RWzhqsY0DL0maV4gEYX/w4Of6zCAA1nUbNAcxp9dVxX42PP +ADKqpIn/EI2OuFi5mrkw4I6JcnQgdu2pu6Iqngzw7DKoWnWYRqmeP45+8GMA +55CX4RorXC/fkskd0dh/Qr6KHaHR6yDL9aJNDDgeOsIoOUoj/Xu3G4fbGSCk +HqCpeoxGGdzic9XdDHC0q0qPwv4nkqw4P8wAdHDdK9fjNJJ/M6k2KkDA9MTz +ET57Glmai/DZLiHg9d5QPQ52UItya+1yAiKPrB6twJ5ts/VNFiHAb6/+fT8O +jTq6Kmss5QkoTT7S/vEEjVbYdEdXkgSIBK7yZDvQaGf3hKvGOgICB7lnb2HT +H9eLLVcjgHNKtFTJkUYhvSHHnusRMFQTYHfYiUY1DhkblbcRwGOzrRKx5/sr +FkUCAf9u73jej33qy69MT2MCjDVlG92daWT87cgU05KAhTUcKVcXGiWsvtF6 +1YoACY6uRxr2ry1PcrttCNB6yzP4iJ10Z845kkPAqeNJHJOTNJqkFHaOOxLw +YCaBdxV7f5cJYXaSgKbXf1+msWeV4jqXexFwftu3cPFTNDI7UJ3ndJYAnZ6j +Hw2wH/mMhFb5EODZGJXhgW1Rs3XP5csEjEZfLqnCzuJ8KBy7Q8Aj6YIxG1ca +CdxZHLk/hACf5tUGV7CtKPUzmVwCvnW4iydiL+a7ouIQTcDiZhXUjW2r9GhJ +RSwB5lvlHkxj06aNPXKJBNj1KvqIu9HoWLx87Ns0AojWhKKd2HnVRue1HxOw +Zmk80wZbaMTDgpuF339/y0ovbDvxKI3vufh+VwZcvYH9VL/sL5P/EXC0V9D7 +PvZKzuBgegEBLqHc0TRsh8BV1YuKCDi43Hc0D7uIp5tkX0KAl6egdyW2SOdx +v9JyAipEL15rxHZaCLCSqSZgyk1RrAv7uSJP+8JLfH7Vv1V6sMVMO0Xa6wkI +YhnXDWGf9Ob7trGRgOqjB0ZHscvj1teFNOPzLM+P+4UtWW2W9rUN1/NWZfMU +ttvXC9d3dxKgdqIyZAa7Uuzh0bT3BNQeXmj9z1L6dXoCnwhwMql+OI3tYf9D +4ngPrre57fQEdvXttT+L+wlgZop1/sCW4Rk0Sg0RsKVSy2AE+8zbk5neIwQw +2Mu0+7Fr/3BvtYzi/qj8yOvGllcs4miME9DMEXjWgn1uf8/2oEncD1ple15i +158Tkhmawfdzyd6pCJuI05ra9ZuAybxNK7OwfaqOtCbzkZB0/bZBHHbDsH/u +giAJ/bmP+O5is8Se3LVdSoKU/geTC9gX9VqdC4VIQEa+Cg7YircViLOiJLgd +WuOri+2XazLftJoE1rW8KXnslo6znWpSJMz5fBNcjH11XXXogDwJ98dPvXiN ++6dj34jbDiYJrdMml3Ow1c6t3pO0joQ/dfxVIdidlQ78R9RIWJSuOL8Xe8zg +nfRlDRIYvH+dlLGXVhzQTtIiQcjSjrsEW6dM33lgMwmvVDIVS3C/RxSLNJzZ +RYK/+A1rmf/6X//WwP3dJAwouteN4u+pqnBu4ZkJCVM3yblK7J9PB7QWzPF5 +3n1PdcQ+kPc8+u4xEp5k7V0bh79XJ7YWnWOP6yOcn+CEfYVOf9XsQMIXs+lB +DewsXtifNa4klJLiL0txHghluziknidheKa3tAHnxYu01ZoloSQwx9ObeDh/ +PrLu7PkcTkJ7CR/tjD2RssARjMLP1znZymGzkofv74knoeRfV6GbOM/8E8rn +2h+T0GfQ1bIL5932KLeX3ytJ6PSJNQ/G+XlIsuez6AsSXn8WatfEdr9/eFa7 +jgTRgS5WK87buHBD9UtNJCQfzlVZjT17Typ8aTcJ79jDHQG2NMq/XX2MmCBh +k0no6CZrnNd7X0kFTJOQ79E48BznfYxwS8u3ORJytbN8DbGvhX4yKhZggodV +/tk9eD7si57dcEiECTnKK6qMLGnUk665cFeVCdqHahkLZjRqP6lb+HMDE8qe +G897Yteqbj9rrcUE9YdaFz/h+ZSdazKoqMeE4tFKmyJTPN+eOjVVGDHhzA+5 +8uN43q18GZc4Zc8EjfMFdieNacQfmGJ9zJEJPIm916qNcL7uzRSvcWHC16d6 +xvLYXY1PA8I8mfBTIOd1w048vzpaPNUvM+Gqmm+5LJ6n+gPL4EQ0E675X0m6 +uBXf72Lvz42NTHhXfGhsM57n0oy6t3PNTAiVoq6f16BR42a5pvXtTEgpNvmR +twH3m1tNif97JtxOvO2mhveBJa0SsTpfmPAmQaJ7Bd4n0pIKLBP4FcD+vedg +DN43+rZM17trK8BbpcvjnyRoFG25rzJGVwFUVHpHZlfj+nkmFb7UV4CYd18b +V2PnJe/OIA0UgDipa7pLDM/L5Q9utu9XgITPs4YPVuL+eKsH25wVIDfz/oEV +S2l04sylfOEYBdhy4tS+9VMU0tH6mK8crwBKi4vUFScpJPQTCoySFOBeYbuw +wgSFeKeXPL32CD9/qbBm7TiF5r24z37RClDH0lCd+06hSM/04u5XCmCa/kM4 +ZIBCdW6tFVm/FcCgfIvXJN4HNZxVG/fZs+D9g7sr+nIo9PEkwzPbgQUr+4ZK +buP9M8hNXGSlCwseeCkeVsui0NDpOfMmDxYcGxjb5fWYQil+r9rN/ViQcqCB ++Ir32zVhrh8ORbHAIu67anY0hRaePxmxa2DBVdeMeMfrFGoSU/vLW28dRJvd +MS8/QKHiHP9YNUFFsJ94wSj7wkOX+FXMXn9QhO1KV+GgKw8JdV/c7ZGnBHHW +qqpCtbmo/xEZkei3HnSiTesFCnNQxPq1iwotleHd4vUblP2zUWiM00t7QgWC +mT4bSYssdCTiaKPwoAps2iClVUM8QdM702YSS1UhUkKJ/Pz6MertN7xQGaAG +uurL823vZqDkbRtlGuzV4Wsm8DeqpaPsm96izuob4GhhgvX3/jQUYHnCRHBi +A7RtclUcTU9Fm7ofPg5o0IBLXUonWyxSULRybHaDiSYUDFGDKbLJ6Gp5cLRJ +oSacTS26P9aahPbLWKbVszbCD4fitEydRGTg8dJGNHAjrBLUjnsuGI8SZTms +1xMb4ff+Sne/whjEqkqPNLXRgra9Iy77cqJRqHqlSkupFuzoX+wrUhOJnMYX +NdepsGGV86hYdEME4lA/icB7bDgQ8r8PX0TDkZu/xfxeLhuujRk7OAqFI2+L +vLfC4Wywzm3t7xUIR7cnvENCI9kQ5t3fNTAehnL0Zuai4tlgVuZ6a1FHGJqp +WOh49IQN2lqPxxNiwlBoi3Bw9Us2sAI/kmbrwlBMirvLrTo2rDa/JyQsH4ZS +zjXu2P2KDediNb7XSYahAsnQ2VeNbGgeU3xksiwMdR8Rd2ltZ4PLfd1Op69c +pNS7dkdPLxvmNwpun6e4SDPvonxqPxvGEtktbzO5SP/m+xnHQTb06TTa5adw +0T6leN7QMBveyEu4+9znojOuhPyPH2wYuJMAIr5c5Lf1+gw9zgYnvbeP5k5z +0c0VPW3nJtjgryO1dOgUF0XnptydnmZDtbxffp0tFyVfW+RcNMsG43J/wRJL +Lnpi7mjoN4/PL2dtQptyUR7zhdz2P2w4bTwW9NiYi0rHFWcWFtjw6c/m2mTg +ov8DSCigJQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.0719753401347979}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, + 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGAQBWIQDQPlHoYOizhb7CG8D/b+sT91zjfPhvIZHBYEqZ66 +F7QMyudw+L+p+tOGgNVQvoADq8Q0+/tiG6B8EYcKvtQVXSthfAkHydK1e/1D +N0L5Mg43vixYILIWJq/gIKDc4i7tDuMrOSz4xT6Rx3IdlK/i8PO7pDhfyxoo +X83B/f/prRmMq6B8DYf7SzIDTPhXQPlaDlftO1JObFwK5es4ePz03Op/fDGU +r+dQkeyYGLBsIZRv4GCwZ9KTnfvmQ/mGDixPt9X2/4L538jhQ2fpqprzM6B8 +YwelwIzI7/1ToXwTB4XLt0y2XZ9kDwAgOFtC + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.067708}}, + "Frame" -> {{False, 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, 20}, {0., 0.0719753401347979}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}, + 3.9921338608682156`*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"77b8cd91-913e-854c-8f05-acf62a4e4d4f"] +}, 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[143]:=",ExpressionUUID->"0a506e45-082d-6641-9693-c99384fc0ac2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.220375088478079`*^-183\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 1126, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992133860906086*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"cb1b1612-c88a-e640-97c2-096c3a89de53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.946145420058141`*^-187\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 143, 1127, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921338609140873`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"578b9543-ef4d-9f43-9741-58424d384418"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8949942684249513`*^-190\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 143, 1128, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992133860922085*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"a8944f24-ca10-2642-8ff6-95a2c643e7b3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 143, 1129, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992133860929125*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"70402fd9-6936-f142-b9fe-06f405102c01"], + +Cell[BoxData["14.630631587953157`"], "Output", + CellChangeTimes->{3.9921338873704414`*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"77d2f405-7db9-784c-9d40-fa6b5d21f68b"] +}, 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.9918473569283657`*^9, 3.991847361118864*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"1d3ec6f9-6ce8-8a4d-95c2-733ef0de97b0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.336357057688537`*^-219\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 144, 1130, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921338874124393`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"5c429ad7-8ab3-2b4f-93e3-e71d92f026af"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.508899698378734`*^-225\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 144, 1131, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992133887419441*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"a807511f-cbff-9a49-a43a-8e871cebc400"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5213132128927006`*^-230\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 144, 1132, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921338874264393`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"d3ec8978-b52a-7444-b5fa-9fc561b1eb00"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 144, 1133, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921338874340057`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"158fd922-dd8a-2d43-9b07-85e8113c9dc7"], + +Cell[BoxData["0.842017068259208`"], "Output", + CellChangeTimes->{3.9921338945646706`*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"6026ee30-d2fc-3c48-b8ca-90a6590863e2"] +}, 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.991847365260393*^9, 3.991847368101671*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"b5bf5915-d0df-a045-96bd-1dffa35c1421"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.336357057688537`*^-219\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 145, 1134, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992133894655985*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"474cded1-dc21-c348-8b86-2b6721cd32a3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.508899698378734`*^-225\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 145, 1135, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921338946719627`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"30e1c38c-298c-3843-a2c6-ed2b4ab79038"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5213132128927006`*^-230\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 145, 1136, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992133894687977*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"db96d1e6-293b-634b-8252-05d6e2262b50"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 145, 1137, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992133894702976*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"70fc1fd6-f450-ac4c-9dab-d8df76bbcf50"], + +Cell[BoxData["30.479051222199814`"], "Output", + CellChangeTimes->{3.9921339055458317`*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"505de306-11f1-0e4c-9d2a-c3c04b783a2d"] +}, 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.99184737148876*^9, 3.9918473756828785`*^9}}, + CellLabel-> + "In[146]:=",ExpressionUUID->"0f4fb648-c81c-bf44-8487-747d613813fd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.336357057688537`*^-219\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 146, 1138, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992133905635725*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"a697a3ca-907a-5e4d-ba7b-436f44a0ba97"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.508899698378734`*^-225\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 146, 1139, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992133905649727*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"e999cfd7-f5e5-274e-95e0-64da0803e59d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5213132128927006`*^-230\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 146, 1140, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921339056707287`*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"298fbb42-9db6-bd42-b53c-fa87d80dc597"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 146, 1141, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992133905690727*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"3dd222b8-60ab-8646-942d-5c30e1a6e3e4"], + +Cell[BoxData["18.652112401666148`"], "Output", + CellChangeTimes->{3.9921339143419056`*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"edba7152-e621-e549-b5a0-47798b7066c5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918473798697987`*^9, 3.991847383988016*^9}}, + CellLabel-> + "In[147]:=",ExpressionUUID->"2d256a7e-c4c8-f746-8004-9b6b43692a68"], + +Cell[BoxData["0.035314752034855686`"], "Output", + CellChangeTimes->{3.992133914413431*^9}, + CellLabel-> + "Out[147]=",ExpressionUUID->"8cb2ae06-1afa-f148-ba81-fd23e66fbde1"] +}, 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->"0a22498a-17e0-084c-99f4-08fa56dfe4d0" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 452, 7, 28, "Input",ExpressionUUID->"e0117d68-9e40-e34d-a9fc-07994345b755"], +Cell[1031, 31, 356, 5, 32, "Output",ExpressionUUID->"d274b631-1b8a-0e42-9984-0d8ecab4433a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1424, 41, 346, 5, 28, "Input",ExpressionUUID->"29808aeb-8851-a347-9bf8-040c658c23f3"], +Cell[1773, 48, 429, 6, 32, "Output",ExpressionUUID->"574844d0-cbef-0e44-8723-e6e539455447"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2239, 59, 253, 5, 28, "Input",ExpressionUUID->"6311e838-0851-074d-aa17-f2b2c57ddc36"], +Cell[2495, 66, 428, 6, 32, "Output",ExpressionUUID->"82fe0f1f-7cd1-c442-997e-17b65ba9d9e6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2960, 77, 175, 3, 28, "Input",ExpressionUUID->"427c3aa1-1a65-4a43-996a-81d995cb25da"], +Cell[3138, 82, 401, 6, 32, "Output",ExpressionUUID->"0ab6b173-6af8-574a-ac8b-330d984be0d4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3576, 93, 257, 7, 43, "Input",ExpressionUUID->"3da0f6c5-ee38-844d-b8cb-577a5960a82b"], +Cell[3836, 102, 412, 6, 32, "Output",ExpressionUUID->"1a2153a9-4a08-e546-9ab0-ff30f9d9b908"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4285, 113, 131, 2, 28, "Input",ExpressionUUID->"ffeef75c-35db-fc4b-af3d-710ad07741ea"], +Cell[4419, 117, 405, 6, 32, "Output",ExpressionUUID->"1eff1334-52cf-804c-b712-47ebf6f0da14"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4861, 128, 276, 6, 28, "Input",ExpressionUUID->"9c2a7803-27f2-ba45-9352-59c626d17d02"], +Cell[5140, 136, 420, 6, 32, "Output",ExpressionUUID->"8b98148e-8336-2344-b92f-aaba174bb17f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5597, 147, 257, 7, 28, "Input",ExpressionUUID->"226e092e-34c5-564e-9c42-b95bedf784fb"], +Cell[5857, 156, 420, 6, 32, "Output",ExpressionUUID->"873dd9ec-da8d-da41-8470-6c3fb5a7e12d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6314, 167, 236, 4, 28, "Input",ExpressionUUID->"94636118-57b6-e04a-9a07-58df6aae4df1"], +Cell[6553, 173, 438, 6, 32, "Output",ExpressionUUID->"4146ba5e-0a92-c143-a176-f248b83a7a1e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7028, 184, 236, 4, 28, "Input",ExpressionUUID->"c8ed25b1-3f95-0f4d-b640-faf6adc1d39a"], +Cell[7267, 190, 438, 6, 32, "Output",ExpressionUUID->"7b435365-8402-ef46-93ab-afeeaa30c114"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7742, 201, 129, 2, 28, "Input",ExpressionUUID->"732dd049-b210-2642-86b1-deb36fa4228a"], +Cell[7874, 205, 402, 6, 32, "Output",ExpressionUUID->"45fd89cb-1b9a-7e4e-a86c-a1d81d50550d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8313, 216, 129, 2, 28, "Input",ExpressionUUID->"9fe19890-5a24-f441-b86e-d2cac514f7cb"], +Cell[8445, 220, 397, 6, 32, "Output",ExpressionUUID->"e3a6dc70-8942-d940-8f0e-f3411dd4697f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8879, 231, 557, 19, 79, "Input",ExpressionUUID->"3f002a02-7f52-1141-9cab-071710d6bf45"], +Cell[9439, 252, 396, 6, 32, "Output",ExpressionUUID->"6adeae7f-4c03-124b-afc9-a4d4baab3d99"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9872, 263, 557, 19, 79, "Input",ExpressionUUID->"5a21ff13-c03c-6f48-a30a-94072a70921d"], +Cell[10432, 284, 402, 6, 32, "Output",ExpressionUUID->"f6736004-2b40-6c4e-a480-57f561e30111"] +}, Open ]], +Cell[CellGroupData[{ +Cell[10871, 295, 1492, 48, 80, "Input",ExpressionUUID->"83cc445b-a673-7547-ae88-91b57f7d9a3c"], +Cell[12366, 345, 396, 6, 32, "Output",ExpressionUUID->"bd045550-ad31-8b43-bd57-55c71cfac660"] +}, Open ]], +Cell[CellGroupData[{ +Cell[12799, 356, 1331, 44, 80, "Input",ExpressionUUID->"0cc6f616-8e1f-4a4f-82b0-4623aa5cf650"], +Cell[14133, 402, 414, 7, 32, "Output",ExpressionUUID->"5d7d4b99-b950-8f4e-93bf-99be7a85141d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14584, 414, 1331, 44, 80, "Input",ExpressionUUID->"16021a7e-51ba-5d4a-8d3f-ab7967748c45"], +Cell[15918, 460, 421, 7, 32, "Output",ExpressionUUID->"86ee0c68-6a12-4d40-b35c-dedaf0bf4b35"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16376, 472, 1492, 48, 80, "Input",ExpressionUUID->"9c732f81-66b5-8743-bfee-2d6e4277d2ef"], +Cell[17871, 522, 392, 6, 32, "Output",ExpressionUUID->"10aecef9-2872-aa49-848d-375a52a9dc23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18300, 533, 131, 2, 28, "Input",ExpressionUUID->"d66cf3bf-f4db-fb4f-a059-58c5814efd87"], +Cell[18434, 537, 382, 6, 32, "Output",ExpressionUUID->"24a309e7-1e93-4544-bc83-fcb05ab60f4c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18853, 548, 177, 3, 28, "Input",ExpressionUUID->"6f80b4b4-bce7-2f42-a389-034c1579e866"], +Cell[19033, 553, 380, 6, 51, "Output",ExpressionUUID->"fe0ae0e0-a8dd-0542-9e6d-cea2ae48eb42"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19450, 564, 134, 2, 28, "Input",ExpressionUUID->"c322127b-03f4-7349-9796-8789eb94264f"], +Cell[19587, 568, 388, 6, 32, "Output",ExpressionUUID->"afaa50dc-547c-7a42-a00d-d4ea5fea40c1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20012, 579, 219, 4, 28, "Input",ExpressionUUID->"89ebc508-e52f-8641-9b92-9f4e76506eee"], +Cell[20234, 585, 391, 7, 32, "Output",ExpressionUUID->"93b3a3a8-5fe5-254d-975f-4d0583454878"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20662, 597, 134, 2, 28, "Input",ExpressionUUID->"b64dc87b-3176-904a-aaf1-49f1d268eda5"], +Cell[20799, 601, 382, 6, 32, "Output",ExpressionUUID->"846b6dba-13bb-724a-9000-fde72cf68dee"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21218, 612, 302, 5, 28, "Input",ExpressionUUID->"8936ee3d-230a-e84e-aa7b-f97d9e3a36bb"], +Cell[21523, 619, 330, 5, 32, "Output",ExpressionUUID->"c69d2e4a-f992-9348-8ff9-687539fdf1af"] +}, Open ]], +Cell[21868, 627, 173, 2, 28, "Input",ExpressionUUID->"1375461b-ee34-014c-b8e4-4fc77a1db3c3"], +Cell[CellGroupData[{ +Cell[22066, 633, 296, 5, 28, "Input",ExpressionUUID->"f9d7bd79-6af4-8849-aebc-8323d4692b4c"], +Cell[22365, 640, 374, 6, 32, "Output",ExpressionUUID->"83c9e376-7e1d-ed47-b797-cf3fc06d72f0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22776, 651, 219, 4, 28, "Input",ExpressionUUID->"f9535550-7c0f-e34e-9057-9d572ea9cd06"], +Cell[22998, 657, 377, 6, 32, "Output",ExpressionUUID->"18abbce3-e90a-c849-b7ff-289bce7a9429"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23412, 668, 350, 10, 43, "Input",ExpressionUUID->"c98bf9ea-c0e9-ca4f-9e4d-1a0ff5df113c"], +Cell[23765, 680, 395, 6, 32, "Output",ExpressionUUID->"e0ec8fa6-49e5-4645-925a-d1fa81e17208"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24197, 691, 350, 10, 43, "Input",ExpressionUUID->"580ba41a-f0b9-064b-9c21-a51697d3c7d7"], +Cell[24550, 703, 408, 7, 32, "Output",ExpressionUUID->"b7dd646a-cf9b-4e4d-9ece-eb5ab824b667"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24995, 715, 992, 26, 113, "Input",ExpressionUUID->"2d007e5b-77f4-ca48-922e-e3be22dbdab2"], +Cell[25990, 743, 397, 6, 32, "Output",ExpressionUUID->"a92b6b26-e4ae-6b48-845d-79df8fa42c07"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26424, 754, 199, 3, 28, "Input",ExpressionUUID->"aa623963-2fea-cd45-b784-95f26e13f474"], +Cell[26626, 759, 382, 6, 32, "Output",ExpressionUUID->"a4671a62-4111-e547-b626-41d41f5995ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27045, 770, 275, 4, 28, "Input",ExpressionUUID->"e551e827-1a9b-b847-b282-7f6400377d43"], +Cell[27323, 776, 339, 5, 32, "Output",ExpressionUUID->"9ce41e3c-521f-8041-8d17-669669588794"] +}, Open ]], +Cell[27677, 784, 175, 2, 22, "Input",ExpressionUUID->"23eb44be-fbd5-5b44-8714-8b4f14596664"], +Cell[CellGroupData[{ +Cell[27877, 790, 323, 5, 28, "Input",ExpressionUUID->"b0a66a92-4b12-8f4b-a54a-a1016b9d7a8f"], +Cell[28203, 797, 336, 5, 32, "Output",ExpressionUUID->"4ca69dca-f0a8-7c46-ae14-d1937c7c0e62"] +}, Open ]], +Cell[28554, 805, 173, 2, 22, "Input",ExpressionUUID->"e6e59c51-bc91-464a-a55a-64587a4c1adb"], +Cell[CellGroupData[{ +Cell[28752, 811, 343, 6, 47, "Input",ExpressionUUID->"b5eb6081-5af2-f94c-b7a6-34f3a99f9bc2"], +Cell[29098, 819, 328, 5, 32, "Output",ExpressionUUID->"2616cc6f-caf9-1c48-9ca7-a46ed0959e63"] +}, Open ]], +Cell[29441, 827, 175, 2, 22, "Input",ExpressionUUID->"5bafd915-b02f-2544-bae1-3cd536bd1ace"], +Cell[CellGroupData[{ +Cell[29641, 833, 347, 6, 47, "Input",ExpressionUUID->"79e5a3a7-7335-c24c-ae93-ed1526660137"], +Cell[29991, 841, 337, 5, 32, "Output",ExpressionUUID->"17bf5740-5801-8742-9840-9bd58cea7562"] +}, Open ]], +Cell[30343, 849, 175, 2, 22, "Input",ExpressionUUID->"10e08523-5177-d645-9e84-6766c6e1bc05"], +Cell[CellGroupData[{ +Cell[30543, 855, 273, 4, 28, "Input",ExpressionUUID->"2dd91b71-0406-fa48-abaf-9d9a2dc23319"], +Cell[30819, 861, 329, 5, 32, "Output",ExpressionUUID->"324ab035-7075-f34e-a7c5-81a982c3909d"] +}, Open ]], +Cell[31163, 869, 173, 2, 22, "Input",ExpressionUUID->"f957de73-6148-0b4a-a349-4d8d6acd36ad"], +Cell[CellGroupData[{ +Cell[31361, 875, 277, 4, 28, "Input",ExpressionUUID->"73f29256-5310-ac46-b25d-2b64726c18ad"], +Cell[31641, 881, 332, 5, 32, "Output",ExpressionUUID->"d3ab94f2-c7ea-fd47-99b0-2f62efc59a3a"] +}, Open ]], +Cell[31988, 889, 171, 2, 22, "Input",ExpressionUUID->"c75e7d9f-a3ec-fa42-8de0-6e5e8151ec91"], +Cell[CellGroupData[{ +Cell[32184, 895, 325, 6, 47, "Input",ExpressionUUID->"14f953d6-75f6-9d4e-89a9-0be460595173"], +Cell[32512, 903, 328, 5, 32, "Output",ExpressionUUID->"622d4dd3-d04f-d745-ba84-c64b0f17cf8d"] +}, Open ]], +Cell[32855, 911, 175, 2, 22, "Input",ExpressionUUID->"4293a1fa-8364-9f46-8e69-a8f69ac3cefb"], +Cell[CellGroupData[{ +Cell[33055, 917, 270, 5, 47, "Input",ExpressionUUID->"c61b8b42-cbcb-5441-af70-d697fef542fe"], +Cell[33328, 924, 330, 5, 32, "Output",ExpressionUUID->"dbd7d5c2-705c-a644-816b-d5191a7769f1"] +}, Open ]], +Cell[33673, 932, 171, 2, 22, "Input",ExpressionUUID->"eed9d147-d6ac-c447-b4b6-a63375b43c31"], +Cell[CellGroupData[{ +Cell[33869, 938, 19809, 485, 2217, "Input",ExpressionUUID->"c26fcdb3-7392-3646-ae1f-1d768e5d5f23"], +Cell[53681, 1425, 388, 6, 32, "Output",ExpressionUUID->"1fcb7ac0-af25-bf4c-b3fb-1616b547cda6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[54106, 1436, 19748, 489, 2216, "Input",ExpressionUUID->"90e8eef3-0b11-5d4a-a363-29bd77df0a07"], +Cell[73857, 1927, 397, 6, 32, "Output",ExpressionUUID->"2a7e2125-c540-154a-8338-dbf7f2a55012"] +}, Open ]], +Cell[CellGroupData[{ +Cell[74291, 1938, 19748, 483, 2216, "Input",ExpressionUUID->"f2451927-7961-0043-b0f6-4d9540a813e0"], +Cell[94042, 2423, 411, 7, 32, "Output",ExpressionUUID->"4738c638-4ac9-5b4c-b58f-6b887adc1485"] +}, Open ]], +Cell[CellGroupData[{ +Cell[94490, 2435, 22534, 553, 2523, "Input",ExpressionUUID->"492915e9-41d9-d443-bf5f-bd43dad0a71a"], +Cell[117027, 2990, 413, 7, 32, "Output",ExpressionUUID->"46b06e5b-f4cb-c84d-8ca4-47b842eb2c70"] +}, Open ]], +Cell[CellGroupData[{ +Cell[117477, 3002, 22535, 553, 2523, "Input",ExpressionUUID->"6621268c-9e6d-0e40-a862-2deddd80e74d"], +Cell[140015, 3557, 411, 7, 32, "Output",ExpressionUUID->"3f5983fa-0366-5342-b1ac-97b684977545"] +}, Open ]], +Cell[CellGroupData[{ +Cell[140463, 3569, 25491, 626, 2830, "Input",ExpressionUUID->"df288669-eeea-9e49-b711-617c8c72de4b"], +Cell[165957, 4197, 408, 7, 32, "Output",ExpressionUUID->"f782331e-b660-c046-ac5b-7c89fdf08c42"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166402, 4209, 130, 2, 28, "Input",ExpressionUUID->"f09193df-a839-7d4f-95d6-ff56210c24d6"], +Cell[166535, 4213, 377, 6, 32, "Output",ExpressionUUID->"0bb23435-57c2-6144-ac1e-822d2395292b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166949, 4224, 130, 2, 28, "Input",ExpressionUUID->"a8343b67-33ad-524f-b606-f13f53b6dddd"], +Cell[167082, 4228, 376, 6, 32, "Output",ExpressionUUID->"b1263686-d411-8047-857e-63c049c0f272"] +}, Open ]], +Cell[CellGroupData[{ +Cell[167495, 4239, 1144, 39, 110, "Input",ExpressionUUID->"5781e2c4-dae7-2c40-b79d-dab45c41cbd4"], +Cell[168642, 4280, 399, 6, 32, "Output",ExpressionUUID->"17707c8b-def1-3645-8cbe-91a08a134f66"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169078, 4291, 1041, 35, 110, "Input",ExpressionUUID->"ef26351d-442e-b544-9b0d-d44136a16149"], +Cell[170122, 4328, 407, 7, 32, "Output",ExpressionUUID->"f00d89f3-11e6-864c-bb93-366ad5177828"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170566, 4340, 1144, 39, 110, "Input",ExpressionUUID->"2ae59e15-7ddf-414b-a23c-28e83768b182"], +Cell[171713, 4381, 402, 6, 32, "Output",ExpressionUUID->"6db203bc-c37a-d44b-8e27-a016448077cc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172152, 4392, 108, 1, 28, "Input",ExpressionUUID->"26965624-51dd-ff47-a8bc-2045f1817f0b"], +Cell[172263, 4395, 396, 6, 32, "Output",ExpressionUUID->"98206d26-9e74-1c4a-9419-9d2e5eb2d7ab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172696, 4406, 108, 1, 28, "Input",ExpressionUUID->"00d798cd-4375-8446-b183-f47a75b4115f"], +Cell[172807, 4409, 410, 7, 32, "Output",ExpressionUUID->"7342f707-caba-4241-9bda-3be85b21a4c2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173254, 4421, 108, 1, 28, "Input",ExpressionUUID->"49440c58-2411-a147-97d7-f3e8c88a2e51"], +Cell[173365, 4424, 413, 7, 32, "Output",ExpressionUUID->"1e459a32-cbc7-8a45-9cfd-2a563da34701"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173815, 4436, 108, 1, 28, "Input",ExpressionUUID->"31583b70-8040-f144-9126-0c4d458431d4"], +Cell[173926, 4439, 400, 6, 32, "Output",ExpressionUUID->"1afb2787-61bd-3d40-b5b6-94bd1740aa8b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174363, 4450, 107, 1, 28, "Input",ExpressionUUID->"db78480c-ab52-9748-8eb5-e0e0fd01563e"], +Cell[174473, 4453, 393, 6, 32, "Output",ExpressionUUID->"50e75c69-8724-7943-a727-a1892b0bd66a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174903, 4464, 107, 1, 28, "Input",ExpressionUUID->"27645eba-bc2f-344f-b605-8cf9c667264e"], +Cell[175013, 4467, 395, 6, 32, "Output",ExpressionUUID->"c79203ac-4f81-8c41-bbcc-6aa1c23d7fef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175445, 4478, 497, 16, 56, "Input",ExpressionUUID->"18dc34eb-429f-b244-ad57-28d77b39d7f5"], +Cell[175945, 4496, 409, 7, 32, "Output",ExpressionUUID->"8ff22844-ddd6-fb4a-ab8e-00466f84677b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176391, 4508, 497, 16, 56, "Input",ExpressionUUID->"2cd3ee86-df2d-ea48-a238-479eaa0abbaf"], +Cell[176891, 4526, 414, 7, 32, "Output",ExpressionUUID->"18a5baa6-2b05-b84c-b24a-566ba5e52cbe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[177342, 4538, 1788, 60, 188, "Input",ExpressionUUID->"31bb3d73-654c-a14d-bf45-0941a52725d6"], +Cell[179133, 4600, 395, 6, 32, "Output",ExpressionUUID->"948cfca2-ccc4-4b49-9ca1-8f8e1fc899dc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[179565, 4611, 1101, 36, 133, "Input",ExpressionUUID->"3afdf9cc-497d-4144-9649-7b4c5c0fd899"], +Cell[180669, 4649, 410, 7, 32, "Output",ExpressionUUID->"bfd0f391-de68-304f-8320-cd06552a5759"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181116, 4661, 1818, 61, 165, "Input",ExpressionUUID->"c2e519c7-e252-1849-b4e0-d9cd50dfee65"], +Cell[182937, 4724, 393, 6, 32, "Output",ExpressionUUID->"6039c451-5a8c-0546-84e5-5d4999b0750b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183367, 4735, 2499, 77, 133, "Input",ExpressionUUID->"569426dc-12c9-ac4c-83da-58d71518b340"], +Cell[185869, 4814, 397, 6, 32, "Output",ExpressionUUID->"756ad839-6790-2b44-927f-3ec587052156"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186303, 4825, 2499, 77, 133, "Input",ExpressionUUID->"38b230ab-f9f6-ab40-9f0b-2b64e4b258cd"], +Cell[188805, 4904, 389, 6, 32, "Output",ExpressionUUID->"96937ca7-6cd0-8d43-ba51-c2044e71d435"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189231, 4915, 211, 3, 28, "Input",ExpressionUUID->"7c3e9316-835f-9e4b-9a49-3b4d17d5ac6f"], +Cell[189445, 4920, 168, 2, 32, "Output",ExpressionUUID->"68dacc0b-7c59-4d4f-8feb-62d62de81217"] +}, Open ]], +Cell[189628, 4925, 171, 2, 28, "Input",ExpressionUUID->"583d3f2a-de58-8142-9cfe-a0e52258d17f"], +Cell[CellGroupData[{ +Cell[189824, 4931, 212, 3, 28, "Input",ExpressionUUID->"20139eb5-401a-4b4a-9fa1-5ac66a5ce03b"], +Cell[190039, 4936, 165, 2, 32, "Output",ExpressionUUID->"a5015101-183e-5549-a817-1789d2260648"] +}, Open ]], +Cell[190219, 4941, 173, 2, 28, "Input",ExpressionUUID->"8f81c5bb-6006-6b49-93bb-3460180e6492"], +Cell[CellGroupData[{ +Cell[190417, 4947, 1297, 42, 113, "Input",ExpressionUUID->"d0f946fc-504f-c546-bd13-fc6956e18c7f"], +Cell[191717, 4991, 195, 2, 32, "Output",ExpressionUUID->"657db435-6c34-8b41-95f8-084177bab525"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191949, 4998, 925, 29, 56, "Input",ExpressionUUID->"c6441294-7eb2-2949-9da6-67254244512f"], +Cell[192877, 5029, 197, 2, 32, "Output",ExpressionUUID->"5570389d-2bb6-434d-aac3-1fe619400419"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193111, 5036, 985, 32, 56, "Input",ExpressionUUID->"0e9cd1c8-cad4-dc4a-89c9-68faf6ac59e1"], +Cell[194099, 5070, 196, 2, 32, "Output",ExpressionUUID->"6987e925-f643-044d-b9d3-9fe9bfbdd313"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194332, 5077, 554, 18, 52, "Input",ExpressionUUID->"9284744b-e118-014c-8926-3a51fd91c939"], +Cell[194889, 5097, 191, 2, 32, "Output",ExpressionUUID->"86c7a4aa-7d1c-ef43-b923-2e3bd937a004"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195117, 5104, 647, 21, 52, "Input",ExpressionUUID->"1aab4741-497a-9845-8d77-820f63cb5555"], +Cell[195767, 5127, 187, 2, 32, "Output",ExpressionUUID->"a3e29e0e-1274-a542-9554-ee23029d5a8e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195991, 5134, 166, 4, 56, "Input",ExpressionUUID->"03d57d66-9155-cf4b-b103-8d5f98199ed8"], +Cell[196160, 5140, 191, 2, 32, "Output",ExpressionUUID->"30c0c54c-539e-7c41-ba48-043ea18c25a1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196388, 5147, 166, 4, 55, "Input",ExpressionUUID->"dd583ad4-ba05-e74f-9c30-907aa111db1e"], +Cell[196557, 5153, 190, 2, 32, "Output",ExpressionUUID->"7c0b02f1-8fee-3a4b-a8d4-4f38542a16ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196784, 5160, 177, 4, 43, "Input",ExpressionUUID->"a1b92a44-c90e-d942-9f90-47bfabccaf08"], +Cell[196964, 5166, 187, 2, 32, "Output",ExpressionUUID->"f93714d9-33e5-964d-a406-a666c3f75f60"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197188, 5173, 177, 4, 43, "Input",ExpressionUUID->"51b3d1b0-fc32-2443-90dc-d335ab6c08c0"], +Cell[197368, 5179, 192, 2, 32, "Output",ExpressionUUID->"56c1f2ea-d99b-5b46-8d19-936cd6aea3b1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197597, 5186, 6051, 184, 491, "Input",ExpressionUUID->"bb0f3cd0-3c69-9040-aa0d-76f7af168d91"], +Cell[203651, 5372, 195, 2, 32, "Output",ExpressionUUID->"9c2f5f64-e805-a34f-879b-2888bb3df9d7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[203883, 5379, 364, 8, 42, "Input",ExpressionUUID->"c7e96eeb-d934-e843-a9c0-226435d03e38"], +Cell[204250, 5389, 193, 2, 32, "Output",ExpressionUUID->"8a543b07-da81-6349-875e-711770f9e325"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204480, 5396, 6118, 186, 512, "Input",ExpressionUUID->"c90e2c4d-483b-8948-ad73-554cb9bb1353"], +Cell[210601, 5584, 195, 2, 32, "Output",ExpressionUUID->"f85cc613-4ec3-ce44-ab05-2e8e8c86fdd5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210833, 5591, 364, 8, 42, "Input",ExpressionUUID->"344c5706-3a8a-754a-b4da-5866eb210a38"], +Cell[211200, 5601, 190, 2, 32, "Output",ExpressionUUID->"5a34fbc1-d73f-d845-86cd-af99609e2886"] +}, Open ]], +Cell[CellGroupData[{ +Cell[211427, 5608, 2659, 87, 165, "Input",ExpressionUUID->"39da6bde-a34a-f944-af17-b87c664ce50c"], +Cell[214089, 5697, 190, 2, 32, "Output",ExpressionUUID->"d8863238-f34b-2b45-9471-8368557c42c3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[214316, 5704, 2599, 84, 165, "Input",ExpressionUUID->"3c3f03ba-5eee-ac4e-84c3-b29e4adbaa6e"], +Cell[216918, 5790, 193, 2, 32, "Output",ExpressionUUID->"f94e0c2c-836a-6e43-8dd5-c0e003396380"] +}, Open ]], +Cell[CellGroupData[{ +Cell[217148, 5797, 3708, 117, 294, "Input",ExpressionUUID->"ddf61768-a227-c447-bfc3-df30c7b64565"], +Cell[220859, 5916, 193, 2, 32, "Output",ExpressionUUID->"e0fae3e8-9413-454d-8030-79724e25a12d"] +}, Open ]], +Cell[221067, 5921, 160, 3, 42, "Input",ExpressionUUID->"0a12571c-0d3c-324d-9fb1-59d5c707bb07"], +Cell[CellGroupData[{ +Cell[221252, 5928, 2071, 58, 228, "Input",ExpressionUUID->"61186e9c-fdd7-7943-9937-691e3ab971c8"], +Cell[223326, 5988, 580, 12, 66, "Message",ExpressionUUID->"3f5f8c79-661a-3347-941c-973a4d04ea04"], +Cell[223909, 6002, 585, 12, 66, "Message",ExpressionUUID->"00fcf238-46f5-604e-b79c-d3f8cc8f93e3"], +Cell[224497, 6016, 586, 12, 66, "Message",ExpressionUUID->"a638bdd9-8bf8-554f-9044-85643cd5f050"], +Cell[225086, 6030, 481, 10, 26, "Message",ExpressionUUID->"2e8ae8b0-f1e5-cb44-b084-3f0253bb3825"], +Cell[225570, 6042, 189, 2, 32, "Output",ExpressionUUID->"ae024ce6-86d8-9941-8af9-890094d230ca"] +}, Open ]], +Cell[CellGroupData[{ +Cell[225796, 6049, 2073, 58, 228, "Input",ExpressionUUID->"9256a2f6-45c2-e140-bcdd-85d8e1970f4a"], +Cell[227872, 6109, 580, 12, 66, "Message",ExpressionUUID->"a47f9638-5e14-a54f-aeff-fa140df95b7c"], +Cell[228455, 6123, 583, 12, 66, "Message",ExpressionUUID->"1b8c32e8-d318-564b-95d7-71ef876178e5"], +Cell[229041, 6137, 586, 12, 66, "Message",ExpressionUUID->"470ac894-e916-9441-bacb-1890f8f48cfe"], +Cell[229630, 6151, 478, 10, 26, "Message",ExpressionUUID->"2c069130-e384-754e-b902-b1cebfd761d1"], +Cell[230111, 6163, 188, 2, 32, "Output",ExpressionUUID->"dee717c0-5753-354f-bd29-b397f8ac43a1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[230336, 6170, 1955, 52, 115, "Input",ExpressionUUID->"2543960d-965e-7a4e-aecb-694d21d63061"], +Cell[232294, 6224, 20367, 380, 241, "Output",ExpressionUUID->"9c561584-ac58-774e-a35e-c6e99124fdeb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[252698, 6609, 2137, 59, 211, "Input",ExpressionUUID->"e19ad739-7d82-2c45-9f2a-a1d24bf6372a"], +Cell[254838, 6670, 519, 11, 60, "Message",ExpressionUUID->"638b3757-4e15-3245-b9c9-8cfbd53f1085"], +Cell[255360, 6683, 526, 11, 60, "Message",ExpressionUUID->"1e44daac-f5a2-d341-a620-b490484c7226"], +Cell[255889, 6696, 527, 11, 60, "Message",ExpressionUUID->"cf96ff92-df44-e741-8227-926babe88051"], +Cell[256419, 6709, 479, 10, 26, "Message",ExpressionUUID->"53045524-f7c9-ec48-a860-eb7d97e4ca3a"], +Cell[256901, 6721, 21700, 402, 233, "Output",ExpressionUUID->"560c8aaa-c400-3744-96ea-4dd5355b1392"] +}, Open ]], +Cell[CellGroupData[{ +Cell[278638, 7128, 1883, 50, 120, "Input",ExpressionUUID->"0442afd4-ab7e-8942-9b0e-e14520d1eea3"], +Cell[280524, 7180, 8995, 209, 241, "Output",ExpressionUUID->"446f710a-ba43-9844-a504-c03536d56d1a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[289556, 7394, 276, 5, 42, "Input",ExpressionUUID->"9478c59b-a5b4-1043-afe6-75ae56a5fd89"], +Cell[289835, 7401, 27714, 527, 233, "Output",ExpressionUUID->"04a0c3bb-eefc-c445-9ee1-3335f5ce9469"] +}, Open ]], +Cell[CellGroupData[{ +Cell[317586, 7933, 195, 5, 48, "Input",ExpressionUUID->"2efb0a57-1e82-4941-9ddf-43034c8e204d"], +Cell[317784, 7940, 193, 2, 32, "Output",ExpressionUUID->"c151dabc-8f36-cf4e-a7a2-5c1f36ca323a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[318014, 7947, 1798, 52, 183, "Input",ExpressionUUID->"b7e3ddd8-e22a-794d-b607-7a48a064fd4a"], +Cell[319815, 8001, 532, 11, 60, "Message",ExpressionUUID->"2a8f8c49-b681-3c43-ad09-4456733d3f8c"], +Cell[320350, 8014, 533, 11, 60, "Message",ExpressionUUID->"7a0c604b-1819-1c41-a7d3-9aced0113b2f"], +Cell[320886, 8027, 534, 11, 60, "Message",ExpressionUUID->"0c290fa7-3170-ee44-a477-d652c54cfbab"], +Cell[321423, 8040, 481, 10, 26, "Message",ExpressionUUID->"633c278f-0845-b040-a3c1-c1dcf6fe85b6"], +Cell[321907, 8052, 21753, 403, 233, "Output",ExpressionUUID->"cb86e1ab-70ea-6c43-881e-8c53f62f4c65"] +}, Open ]], +Cell[CellGroupData[{ +Cell[343697, 8460, 1616, 48, 106, "Input",ExpressionUUID->"3d764097-ec6b-e749-9f31-cab8832af315"], +Cell[345316, 8510, 609, 12, 85, "Message",ExpressionUUID->"9ead6d1c-335e-454e-aeee-dcf3978fc1c0"], +Cell[345928, 8524, 614, 12, 85, "Message",ExpressionUUID->"5d6dcb50-60e0-7340-b54b-a39568045b64"], +Cell[346545, 8538, 613, 12, 85, "Message",ExpressionUUID->"4d7bc420-5827-3349-b005-4f4482eda6bd"], +Cell[347161, 8552, 481, 10, 26, "Message",ExpressionUUID->"ac4a8133-e244-d542-803a-8ac1b553f090"], +Cell[347645, 8564, 193, 3, 32, "Output",ExpressionUUID->"57fb25bd-55dd-f840-bef0-20eabb613a7b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[347875, 8572, 2272, 64, 223, "Input",ExpressionUUID->"94c81ca6-5acf-1648-b9d8-a303cc71dab7"], +Cell[350150, 8638, 580, 12, 66, "Message",ExpressionUUID->"c32fe16e-219b-fb43-9734-1fe013707da1"], +Cell[350733, 8652, 585, 12, 66, "Message",ExpressionUUID->"5148a9ad-7cc5-664a-84e8-592844450297"], +Cell[351321, 8666, 588, 12, 66, "Message",ExpressionUUID->"f22cbd20-bfc5-574b-8252-d3525d3ef92f"], +Cell[351912, 8680, 481, 10, 26, "Message",ExpressionUUID->"7de69b8c-ab5b-1140-a4da-02371d510e1b"], +Cell[352396, 8692, 193, 3, 32, "Output",ExpressionUUID->"b6889da1-f351-0d4c-a787-4ed59abc1d8b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[352626, 8700, 2244, 64, 162, "Input",ExpressionUUID->"d789fb78-c161-1741-b7b8-90fa3d585b38"], +Cell[354873, 8766, 584, 12, 66, "Message",ExpressionUUID->"6380235d-d187-b84f-8c3f-cad0d188ae3d"], +Cell[355460, 8780, 587, 12, 66, "Message",ExpressionUUID->"b4cd341e-c44b-a442-bcf9-ce30b25ca416"], +Cell[356050, 8794, 588, 12, 66, "Message",ExpressionUUID->"0f5b78bd-3294-fb4e-8ccd-273f8b6216e4"], +Cell[356641, 8808, 483, 10, 26, "Message",ExpressionUUID->"e02b549d-fbf5-c848-8421-3c88ec32f8e5"], +Cell[357127, 8820, 194, 3, 32, "Output",ExpressionUUID->"d2e52c3b-e49f-4c47-9ff5-6c2de7e71f88"] +}, Open ]], +Cell[CellGroupData[{ +Cell[357358, 8828, 2243, 64, 162, "Input",ExpressionUUID->"98f8448c-bc27-4646-9fd2-f2c22cf9b4d2"], +Cell[359604, 8894, 582, 12, 66, "Message",ExpressionUUID->"492fc68d-4929-5641-b00a-01359285ae34"], +Cell[360189, 8908, 587, 12, 66, "Message",ExpressionUUID->"c10bebde-685d-ae47-b7bc-baa1cc4bb377"], +Cell[360779, 8922, 590, 12, 66, "Message",ExpressionUUID->"126c7962-f6a3-6146-ba37-cfb5eb4e7304"], +Cell[361372, 8936, 480, 10, 26, "Message",ExpressionUUID->"abc7d5cb-e406-5d48-a37e-f962ff210587"], +Cell[361855, 8948, 194, 3, 32, "Output",ExpressionUUID->"6ca19365-e471-a84c-a932-b67988535089"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362086, 8956, 236, 6, 47, "Input",ExpressionUUID->"c0718b2f-c4a4-934b-afa0-c67e8ff1bd9c"], +Cell[362325, 8964, 193, 3, 32, "Output",ExpressionUUID->"181d9e35-e4c9-6244-b250-1170d6521644"] +}, Open ]], +Cell[362533, 8970, 269, 6, 70, "Input",ExpressionUUID->"73fa861d-79d1-6043-8b49-ac6d11636734"], +Cell[CellGroupData[{ +Cell[362827, 8980, 558, 19, 52, "Input",ExpressionUUID->"6c38f559-2389-4242-bc4d-38979252b0b4"], +Cell[363388, 9001, 192, 3, 32, "Output",ExpressionUUID->"24871a09-0837-2c4c-bea3-cf6f45112bce"] +}, Open ]], +Cell[CellGroupData[{ +Cell[363617, 9009, 170, 5, 56, "Input",ExpressionUUID->"e3e9365e-1e6c-9843-9e29-11080a5f4701"], +Cell[363790, 9016, 197, 3, 32, "Output",ExpressionUUID->"7f3fca5a-a421-f243-9a79-f3958475875b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364024, 9024, 181, 5, 43, "Input",ExpressionUUID->"123e61eb-c41d-2242-a32d-5c1fffa2cf57"], +Cell[364208, 9031, 193, 3, 32, "Output",ExpressionUUID->"20693df6-d4fe-d946-8f4f-b1aed2f90c70"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364438, 9039, 6055, 185, 491, "Input",ExpressionUUID->"79eeca66-2446-f741-8700-944472de348f"], +Cell[370496, 9226, 197, 3, 32, "Output",ExpressionUUID->"5dda040b-0459-be41-984c-b76b0b167e48"] +}, Open ]], +Cell[CellGroupData[{ +Cell[370730, 9234, 368, 9, 42, "Input",ExpressionUUID->"9790a07a-bad8-674c-aada-41e3d20aeff5"], +Cell[371101, 9245, 196, 3, 32, "Output",ExpressionUUID->"dfa00e38-b7b4-b74a-b572-5a173cc68127"] +}, Open ]], +Cell[CellGroupData[{ +Cell[371334, 9253, 6122, 187, 512, "Input",ExpressionUUID->"cd927d7c-f3cd-534f-b509-5ac03fad6276"], +Cell[377459, 9442, 197, 3, 32, "Output",ExpressionUUID->"b88e2843-1de8-944d-bae4-57f702400b3a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[377693, 9450, 368, 9, 42, "Input",ExpressionUUID->"6d1a5282-01c9-b240-a0b0-7e2aa562e7f8"], +Cell[378064, 9461, 194, 3, 32, "Output",ExpressionUUID->"0c257df5-6912-f548-ab3d-e542a8ebf573"] +}, Open ]], +Cell[CellGroupData[{ +Cell[378295, 9469, 2663, 88, 165, "Input",ExpressionUUID->"b3f5d88a-186d-e74b-84a0-eac59afb71e7"], +Cell[380961, 9559, 194, 3, 32, "Output",ExpressionUUID->"54a3c398-c96b-5e4e-98db-8c8ccaec9552"] +}, Open ]], +Cell[CellGroupData[{ +Cell[381192, 9567, 2603, 85, 165, "Input",ExpressionUUID->"712c99dc-f88a-984c-9ea1-ddb538fa1846"], +Cell[383798, 9654, 195, 3, 32, "Output",ExpressionUUID->"b3873d6a-d46d-e448-a2a6-ae97b0ce2748"] +}, Open ]], +Cell[CellGroupData[{ +Cell[384030, 9662, 3712, 118, 294, "Input",ExpressionUUID->"46415a4e-0839-a640-a9be-83fc8d482c42"], +Cell[387745, 9782, 197, 3, 32, "Output",ExpressionUUID->"21c026bd-c902-2c48-b902-1f0845978b14"] +}, Open ]], +Cell[CellGroupData[{ +Cell[387979, 9790, 2075, 59, 228, "Input",ExpressionUUID->"33a64b79-213d-c445-8c32-436b16263096"], +Cell[390057, 9851, 590, 12, 66, "Message",ExpressionUUID->"7f1e361f-c687-6a44-b166-11094a5ac237"], +Cell[390650, 9865, 593, 12, 85, "Message",ExpressionUUID->"3995c473-f58e-7546-8e9c-9d045b1f6fc2"], +Cell[391246, 9879, 596, 12, 85, "Message",ExpressionUUID->"ff176601-b2ac-1d4e-84dd-b9118765b625"], +Cell[391845, 9893, 481, 10, 26, "Message",ExpressionUUID->"387fa5dc-05fc-8e40-a405-385c724fdcde"], +Cell[392329, 9905, 193, 3, 32, "Output",ExpressionUUID->"4b525ade-6d6a-3643-9a56-de3169c0c634"] +}, Open ]], +Cell[CellGroupData[{ +Cell[392559, 9913, 2077, 59, 228, "Input",ExpressionUUID->"a558e928-6d30-db4d-81da-8e12b46e0cf1"], +Cell[394639, 9974, 588, 12, 66, "Message",ExpressionUUID->"87f28515-3bb9-444d-b389-1588cdd5211d"], +Cell[395230, 9988, 593, 12, 85, "Message",ExpressionUUID->"e9eaaf52-b7bd-304f-b93c-cbe56932695a"], +Cell[395826, 10002, 596, 12, 85, "Message",ExpressionUUID->"fbb6398f-1b8a-8a48-a24f-702ad013bb7d"], +Cell[396425, 10016, 481, 10, 26, "Message",ExpressionUUID->"350f4a3f-42cd-ef4d-8cd2-aadaa2d4d65c"], +Cell[396909, 10028, 191, 3, 32, "Output",ExpressionUUID->"42c623d6-1380-7a4b-857e-702021aa5d8a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[397137, 10036, 2053, 55, 131, "Input",ExpressionUUID->"c2f625be-331c-a24f-ad5b-6daaa9131a45"], +Cell[399193, 10093, 20411, 384, 237, "Output",ExpressionUUID->"5071bc06-cbc3-1243-9468-9b53dbd68981"] +}, Open ]], +Cell[CellGroupData[{ +Cell[419641, 10482, 2164, 61, 211, "Input",ExpressionUUID->"e083cd39-87a5-ca4f-ab3f-88bfd4c0e0d2"], +Cell[421808, 10545, 520, 11, 60, "Message",ExpressionUUID->"bf587f4c-b294-2f4c-a7c5-3f917878662b"], +Cell[422331, 10558, 525, 11, 60, "Message",ExpressionUUID->"e9f65977-db34-ad43-b6fb-c5022b815d29"], +Cell[422859, 10571, 527, 11, 60, "Message",ExpressionUUID->"1033fcfb-2941-4d45-9f2a-809e1ea840e4"], +Cell[423389, 10584, 478, 10, 26, "Message",ExpressionUUID->"fde05446-9afb-3844-bb77-da9b6964721c"], +Cell[423870, 10596, 22451, 415, 238, "Output",ExpressionUUID->"63920837-9763-ec40-a084-031ca4fb84fa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[446358, 11016, 164, 4, 42, "Input",ExpressionUUID->"b4bea72a-7a20-da43-afca-38c9d924f08e"], +Cell[446525, 11022, 28408, 539, 238, "Output",ExpressionUUID->"c6d2d566-a6cf-d449-9ca2-829cb8ede854"] +}, Open ]], +Cell[CellGroupData[{ +Cell[474970, 11566, 1616, 48, 106, "Input",ExpressionUUID->"94a1b9ea-c98a-ee4e-bb2c-43256dd887e6"], +Cell[476589, 11616, 614, 12, 85, "Message",ExpressionUUID->"2f31f5fb-56dc-9043-becb-252ed3abac1f"], +Cell[477206, 11630, 617, 12, 85, "Message",ExpressionUUID->"51a1d65f-ee46-b548-8ba0-340c7b91a261"], +Cell[477826, 11644, 618, 12, 85, "Message",ExpressionUUID->"5efd8001-25bf-694c-92ed-7a4ece778a79"], +Cell[478447, 11658, 481, 10, 26, "Message",ExpressionUUID->"6fc12fd7-53c1-7340-9a95-be77c5704a91"], +Cell[478931, 11670, 194, 3, 32, "Output",ExpressionUUID->"edb186d5-9be3-c542-8e8f-05bf07836749"] +}, Open ]], +Cell[CellGroupData[{ +Cell[479162, 11678, 2274, 64, 223, "Input",ExpressionUUID->"ad8fe405-3f1b-4e4d-b1dd-9e266c1ec152"], +Cell[481439, 11744, 588, 12, 66, "Message",ExpressionUUID->"47299ee8-9036-2e42-8fcd-352a65d6ca49"], +Cell[482030, 11758, 593, 12, 85, "Message",ExpressionUUID->"29b5c5a7-0ec1-294c-8aff-08f4de5db46a"], +Cell[482626, 11772, 596, 12, 85, "Message",ExpressionUUID->"f52d129d-de24-f747-b6a4-e4536e06a182"], +Cell[483225, 11786, 479, 10, 26, "Message",ExpressionUUID->"5828916e-fac0-7945-a9d4-0b92741a8c81"], +Cell[483707, 11798, 195, 3, 32, "Output",ExpressionUUID->"a7d39d00-c729-1240-81c1-b1261e768f37"] +}, Open ]], +Cell[CellGroupData[{ +Cell[483939, 11806, 2246, 64, 162, "Input",ExpressionUUID->"6531fc5f-fdb5-a54c-abb2-46a9d151a60a"], +Cell[486188, 11872, 590, 12, 66, "Message",ExpressionUUID->"8664a5d7-7bc7-fa44-96c9-a51374515748"], +Cell[486781, 11886, 593, 12, 85, "Message",ExpressionUUID->"4fa7f6cb-4cf0-864e-ad39-9f6a03c4df9d"], +Cell[487377, 11900, 596, 12, 85, "Message",ExpressionUUID->"446ef805-4ac7-184e-b72f-4ec223821853"], +Cell[487976, 11914, 481, 10, 26, "Message",ExpressionUUID->"518afbdd-2d9f-2a4e-8b84-abc144c22258"], +Cell[488460, 11926, 194, 3, 32, "Output",ExpressionUUID->"96f1d3c8-0b2e-fd44-9a28-3fa438ca5280"] +}, Open ]], +Cell[CellGroupData[{ +Cell[488691, 11934, 2246, 64, 162, "Input",ExpressionUUID->"36639f46-66ce-b34a-8a89-e422f177de00"], +Cell[490940, 12000, 585, 12, 66, "Message",ExpressionUUID->"d271415b-be3b-4e49-a83e-2558698d8a5d"], +Cell[491528, 12014, 590, 12, 85, "Message",ExpressionUUID->"d5e40d2a-3a3e-6c4f-8422-5668488c75e4"], +Cell[492121, 12028, 593, 12, 85, "Message",ExpressionUUID->"c4c3f223-246c-884c-929c-22fdc83147ca"], +Cell[492717, 12042, 480, 10, 26, "Message",ExpressionUUID->"fccd8000-8237-4d49-81ab-73a41b949c94"], +Cell[493200, 12054, 196, 3, 32, "Output",ExpressionUUID->"fc84b9d7-1d83-874b-b942-bf7eab16c70f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[493433, 12062, 234, 6, 47, "Input",ExpressionUUID->"f76b8e94-11bd-a34a-a9ba-20d331e64105"], +Cell[493670, 12070, 196, 3, 32, "Output",ExpressionUUID->"cda5b510-bfa2-2445-99c5-f50bc762e4c5"] +}, Open ]], +Cell[493881, 12076, 268, 6, 70, "Input",ExpressionUUID->"bb206cb0-d23b-e24e-876b-f9f1b2cbe57a"], +Cell[CellGroupData[{ +Cell[494174, 12086, 558, 19, 52, "Input",ExpressionUUID->"4fd11557-be32-b042-a20e-65ee1f3d31f0"], +Cell[494735, 12107, 192, 3, 32, "Output",ExpressionUUID->"09af0345-82d3-b443-af9b-47796f52cf02"] +}, Open ]], +Cell[CellGroupData[{ +Cell[494964, 12115, 170, 5, 56, "Input",ExpressionUUID->"d73f0f23-b2e1-e243-aa8d-70b95de7c666"], +Cell[495137, 12122, 191, 3, 32, "Output",ExpressionUUID->"b5af1740-ad49-c84f-8906-3c2c249194a3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495365, 12130, 181, 5, 43, "Input",ExpressionUUID->"8870b029-14dd-d441-82f4-8690b0fb603d"], +Cell[495549, 12137, 194, 3, 32, "Output",ExpressionUUID->"64c3f5ff-bcb4-964c-855a-377f22221041"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495780, 12145, 6055, 185, 491, "Input",ExpressionUUID->"78b2a753-17fc-484f-a953-d278346207ad"], +Cell[501838, 12332, 197, 3, 32, "Output",ExpressionUUID->"b406a427-634b-5749-ae94-a2112d7bca4a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[502072, 12340, 368, 9, 42, "Input",ExpressionUUID->"19eddd1c-d1b6-4344-85e0-95e5a6b87d4b"], +Cell[502443, 12351, 197, 3, 32, "Output",ExpressionUUID->"23d6e328-32b4-144b-ab17-f6b96e75f2d2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[502677, 12359, 6122, 187, 512, "Input",ExpressionUUID->"75baa02d-f77e-e542-9519-8afd2f729182"], +Cell[508802, 12548, 197, 3, 32, "Output",ExpressionUUID->"908f486e-d190-a54e-8f58-a22f3c0b1ce4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[509036, 12556, 368, 9, 42, "Input",ExpressionUUID->"78cdb0f4-4e26-2f44-b234-6fa78a24207f"], +Cell[509407, 12567, 196, 3, 32, "Output",ExpressionUUID->"6814996f-8973-4d40-8084-c618de5876c6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[509640, 12575, 2663, 88, 165, "Input",ExpressionUUID->"1d69257c-6504-2041-93e1-2a57c1dfc14b"], +Cell[512306, 12665, 196, 3, 32, "Output",ExpressionUUID->"4cd3010a-1fc8-f94f-84db-31b2c02edb9f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[512539, 12673, 2603, 85, 165, "Input",ExpressionUUID->"482f62c1-da9c-ae43-adda-68c26afa85d0"], +Cell[515145, 12760, 195, 3, 32, "Output",ExpressionUUID->"766b7570-88fc-cc43-b7eb-c3feec257f00"] +}, Open ]], +Cell[CellGroupData[{ +Cell[515377, 12768, 3712, 118, 294, "Input",ExpressionUUID->"b28b6b1b-1ce5-eb47-bd61-38bdc082dbc8"], +Cell[519092, 12888, 194, 3, 32, "Output",ExpressionUUID->"01635445-5597-9a42-bb91-5597f95e91ca"] +}, Open ]], +Cell[CellGroupData[{ +Cell[519323, 12896, 2075, 59, 228, "Input",ExpressionUUID->"61630af4-ce16-4645-bd89-fd67d7ba48d8"], +Cell[521401, 12957, 575, 12, 84, "Message",ExpressionUUID->"8b529b2d-de81-3847-a743-0241845d4ae7"], +Cell[521979, 12971, 577, 12, 66, "Message",ExpressionUUID->"d51f9521-ba7a-2c4e-84d0-d7f35525063c"], +Cell[522559, 12985, 583, 12, 66, "Message",ExpressionUUID->"f8c90b6e-dd0f-4140-8331-6a6fc8a9bfbe"], +Cell[523145, 12999, 481, 10, 26, "Message",ExpressionUUID->"b40ac3ba-15ea-2c4b-941b-bd7f39f1bf16"], +Cell[523629, 13011, 194, 3, 32, "Output",ExpressionUUID->"3c3f8977-5b98-0f42-85fa-29fe5740fbd6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[523860, 13019, 2075, 59, 228, "Input",ExpressionUUID->"b8324bb7-c44f-6342-bd59-920c679e8136"], +Cell[525938, 13080, 577, 12, 84, "Message",ExpressionUUID->"57be92ad-14aa-b243-86ea-85b509475de2"], +Cell[526518, 13094, 581, 12, 66, "Message",ExpressionUUID->"a2161a8c-2e50-3049-86fa-c994860dd7a4"], +Cell[527102, 13108, 583, 12, 66, "Message",ExpressionUUID->"ae85df33-7282-7841-97d4-783d8b179790"], +Cell[527688, 13122, 481, 10, 26, "Message",ExpressionUUID->"01616bbe-b94e-9848-8cd2-4067e8431de2"], +Cell[528172, 13134, 196, 3, 32, "Output",ExpressionUUID->"2a180166-ada6-d14f-b999-f52873df9e63"] +}, Open ]], +Cell[CellGroupData[{ +Cell[528405, 13142, 2053, 55, 131, "Input",ExpressionUUID->"a8eb6c66-2550-3146-b69f-2cd48e2cafc8"], +Cell[530461, 13199, 20272, 381, 237, "Output",ExpressionUUID->"d930f671-2311-034f-b3cc-881eb83dee7f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[550770, 13585, 2170, 61, 211, "Input",ExpressionUUID->"29fc72a2-353e-bf42-8947-0608fa83191a"], +Cell[552943, 13648, 522, 11, 60, "Message",ExpressionUUID->"7e238414-c4c3-544a-aa69-5857b2b97f57"], +Cell[553468, 13661, 525, 11, 60, "Message",ExpressionUUID->"787dbd82-eb8a-6a4c-a96e-c261fff01ca2"], +Cell[553996, 13674, 527, 11, 60, "Message",ExpressionUUID->"869f8801-27ee-414d-9d0c-33933f262f2d"], +Cell[554526, 13687, 483, 10, 26, "Message",ExpressionUUID->"03b17ce6-e4eb-d04c-ab85-ac922d1cbb87"], +Cell[555012, 13699, 22252, 412, 233, "Output",ExpressionUUID->"c98a24a4-262b-1546-9931-8b9c71b29512"] +}, Open ]], +Cell[CellGroupData[{ +Cell[577301, 14116, 280, 6, 42, "Input",ExpressionUUID->"dbee741a-c3af-b241-a21b-4f79ecc0fe0c"], +Cell[577584, 14124, 28263, 537, 233, "Output",ExpressionUUID->"77b8cd91-913e-854c-8f05-acf62a4e4d4f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[605884, 14666, 1616, 48, 106, "Input",ExpressionUUID->"0a506e45-082d-6641-9693-c99384fc0ac2"], +Cell[607503, 14716, 581, 12, 85, "Message",ExpressionUUID->"cb1b1612-c88a-e640-97c2-096c3a89de53"], +Cell[608087, 14730, 586, 12, 85, "Message",ExpressionUUID->"578b9543-ef4d-9f43-9741-58424d384418"], +Cell[608676, 14744, 589, 12, 85, "Message",ExpressionUUID->"a8944f24-ca10-2642-8ff6-95a2c643e7b3"], +Cell[609268, 14758, 457, 10, 26, "Message",ExpressionUUID->"70402fd9-6936-f142-b9fe-06f405102c01"], +Cell[609728, 14770, 173, 3, 32, "Output",ExpressionUUID->"77d2f405-7db9-784c-9d40-fa6b5d21f68b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[609938, 14778, 2272, 64, 223, "Input",ExpressionUUID->"1d3ec6f9-6ce8-8a4d-95c2-733ef0de97b0"], +Cell[612213, 14844, 553, 12, 84, "Message",ExpressionUUID->"5c429ad7-8ab3-2b4f-93e3-e71d92f026af"], +Cell[612769, 14858, 555, 12, 66, "Message",ExpressionUUID->"a807511f-cbff-9a49-a43a-8e871cebc400"], +Cell[613327, 14872, 561, 12, 66, "Message",ExpressionUUID->"d3ec8978-b52a-7444-b5fa-9fc561b1eb00"], +Cell[613891, 14886, 459, 10, 26, "Message",ExpressionUUID->"158fd922-dd8a-2d43-9b07-85e8113c9dc7"], +Cell[614353, 14898, 172, 3, 32, "Output",ExpressionUUID->"6026ee30-d2fc-3c48-b8ca-90a6590863e2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[614562, 14906, 2242, 64, 162, "Input",ExpressionUUID->"b5bf5915-d0df-a045-96bd-1dffa35c1421"], +Cell[616807, 14972, 551, 12, 84, "Message",ExpressionUUID->"474cded1-dc21-c348-8b86-2b6721cd32a3"], +Cell[617361, 14986, 557, 12, 66, "Message",ExpressionUUID->"30e1c38c-298c-3843-a2c6-ed2b4ab79038"], +Cell[617921, 15000, 559, 12, 66, "Message",ExpressionUUID->"db96d1e6-293b-634b-8252-05d6e2262b50"], +Cell[618483, 15014, 457, 10, 26, "Message",ExpressionUUID->"70fc1fd6-f450-ac4c-9dab-d8df76bbcf50"], +Cell[618943, 15026, 173, 3, 32, "Output",ExpressionUUID->"505de306-11f1-0e4c-9d2a-c3c04b783a2d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[619153, 15034, 2243, 64, 162, "Input",ExpressionUUID->"0f4fb648-c81c-bf44-8487-747d613813fd"], +Cell[621399, 15100, 551, 12, 84, "Message",ExpressionUUID->"a697a3ca-907a-5e4d-ba7b-436f44a0ba97"], +Cell[621953, 15114, 555, 12, 66, "Message",ExpressionUUID->"e999cfd7-f5e5-274e-95e0-64da0803e59d"], +Cell[622511, 15128, 561, 12, 66, "Message",ExpressionUUID->"298fbb42-9db6-bd42-b53c-fa87d80dc597"], +Cell[623075, 15142, 457, 10, 26, "Message",ExpressionUUID->"3dd222b8-60ab-8646-942d-5c30e1a6e3e4"], +Cell[623535, 15154, 173, 3, 32, "Output",ExpressionUUID->"edba7152-e621-e549-b5a0-47798b7066c5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[623745, 15162, 236, 6, 47, "Input",ExpressionUUID->"2d256a7e-c4c8-f746-8004-9b6b43692a68"], +Cell[623984, 15170, 173, 3, 32, "Output",ExpressionUUID->"8cb2ae06-1afa-f148-ba81-fd23e66fbde1"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/146-94_h_Pu240_702-703/h_146-94_Pu240_702-703_gid_Qw1.nb b/templates/P240_2-51_YakuninDA/146-94_h_Pu240_702-703/h_146-94_Pu240_702-703_gid_Qw1.nb new file mode 100755 index 0000000..52d7f43 --- /dev/null +++ b/templates/P240_2-51_YakuninDA/146-94_h_Pu240_702-703/h_146-94_Pu240_702-703_gid_Qw1.nb @@ -0,0 +1,14650 @@ +(* 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[ 603746, 14642] +NotebookOptionsPosition[ 564633, 14020] +NotebookOutlinePosition[ 565062, 14037] +CellTagsIndexPosition[ 565019, 14034] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "3.0056"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.9920925094547043`*^9, 3.992092603972748*^9}, { + 3.99209277866609*^9, 3.992092956660898*^9}, {3.9920929879335823`*^9, + 3.992093071903801*^9}, {3.9920931132016296`*^9, + 3.992093115787756*^9}},ExpressionUUID->"abd86cb7-8f5e-ab4f-81e8-\ +1ce058c5d564"], + +Cell[BoxData["3.0051`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.9920924236975746`*^9, {3.992092517168955*^9, + 3.9920926155774384`*^9}, {3.992092795486683*^9, 3.9920929647336235`*^9}, { + 3.992092996301258*^9, 3.9920930199257812`*^9}, {3.9920930563804474`*^9, + 3.992093082514656*^9}}, + CellLabel-> + "Out[1549]=",ExpressionUUID->"1f5034f4-06ca-1743-9e93-482699fe5b37"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.9920923210744896`*^9, 3.992092321332884*^9}}, + CellLabel-> + "In[1550]:=",ExpressionUUID->"c4ce3e9e-ebde-c949-b0e7-981db643bfce"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.992092423865034*^9, {3.9920925172234726`*^9, + 3.9920926156103096`*^9}, {3.9920927955256996`*^9, + 3.9920929647669086`*^9}, {3.9920929963357506`*^9, + 3.9920930199606743`*^9}, {3.9920930564144154`*^9, 3.9920930825586586`*^9}}, + CellLabel-> + "Out[1550]=",ExpressionUUID->"b2af310a-3fd7-604c-8e7e-55148bbf38fc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "146"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.9920923255017357`*^9, 3.9920923262853394`*^9}}, + CellLabel-> + "In[1551]:=",ExpressionUUID->"75575236-1994-1044-b248-d79b5cc3910b"], + +Cell[BoxData["146"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.9920924238884373`*^9, {3.9920925172304897`*^9, + 3.992092615631912*^9}, {3.9920927955507774`*^9, 3.992092964789009*^9}, { + 3.992092996365631*^9, 3.9920930199827785`*^9}, {3.9920930564344254`*^9, + 3.9920930825825768`*^9}}, + CellLabel-> + "Out[1551]=",ExpressionUUID->"6c4d2313-2dd8-9d4f-9189-c557d2a0dcbe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[1552]:=",ExpressionUUID->"cefd9aef-602f-4e45-b3f3-5cf390b6524a"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.9920924238954353`*^9, {3.9920925172532406`*^9, + 3.9920926156550407`*^9}, {3.9920927955573063`*^9, 3.992092964816601*^9}, { + 3.9920929963885365`*^9, 3.9920930200069942`*^9}, {3.992093056453413*^9, + 3.9920930826118507`*^9}}, + CellLabel-> + "Out[1552]=",ExpressionUUID->"9ba3e660-60bd-f442-b768-9dac89e3afff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[1553]:=",ExpressionUUID->"794fa728-53d0-cb46-ae8a-8ed9df229aa4"], + +Cell[BoxData["0.5467500000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.9920924239191437`*^9, {3.9920925172603703`*^9, + 3.992092615662058*^9}, {3.9920927955817127`*^9, 3.9920929648444843`*^9}, { + 3.9920929963955345`*^9, 3.992093020037792*^9}, {3.9920930564614754`*^9, + 3.9920930826384926`*^9}}, + CellLabel-> + "Out[1553]=",ExpressionUUID->"919b4f81-8a7b-e54a-99bc-7d88d091ce49"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[1554]:=",ExpressionUUID->"71591d04-5aad-7f4a-ab53-857c504e6386"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9920924239261475`*^9, {3.9920925172823544`*^9, + 3.9920926156868935`*^9}, {3.9920927955889683`*^9, 3.992092964851986*^9}, { + 3.9920929964025364`*^9, 3.9920930200579166`*^9}, {3.9920930564844856`*^9, + 3.9920930826454887`*^9}}, + CellLabel-> + "Out[1554]=",ExpressionUUID->"49d65543-a10b-3340-a5d2-ab16c865d6ac"] +}, 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[1555]:=",ExpressionUUID->"acf22dc1-6ddb-1240-ab76-b6cd91d4a7e7"], + +Cell[BoxData["6.108139416678866`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.9920924239531574`*^9, {3.9920925172885056`*^9, + 3.992092615694437*^9}, {3.992092795615612*^9, 3.9920929648785057`*^9}, { + 3.99209299642354*^9, 3.992093020080536*^9}, {3.992093056491602*^9, + 3.9920930826684914`*^9}}, + CellLabel-> + "Out[1555]=",ExpressionUUID->"e8e35802-253e-0c44-a86f-6dfe9f2a7a8d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[1556]:=",ExpressionUUID->"c6474798-b5d8-7f4f-a4fd-52dfe623fe27"], + +Cell[BoxData["5.274329694780558`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.992092423960186*^9, {3.9920925173151093`*^9, + 3.9920926157185707`*^9}, {3.9920927956217175`*^9, 3.992092964906679*^9}, { + 3.9920929964335346`*^9, 3.9920930200885353`*^9}, {3.9920930565104904`*^9, + 3.992093082689234*^9}}, + CellLabel-> + "Out[1556]=",ExpressionUUID->"a9c46dcd-97a7-0a40-b7b7-a34b15e4a8d4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.776889591781461"}]], "Input", + CellChangeTimes->{3.991799283179735*^9, 3.9920923337072887`*^9}, + CellLabel-> + "In[1557]:=",ExpressionUUID->"a3be1a61-6f7b-1b46-8cee-0f0fc636ece6"], + +Cell[BoxData["0.776889591781461`"], "Output", + CellChangeTimes->{ + 3.992092423990343*^9, {3.9920925173221264`*^9, 3.9920926157241497`*^9}, { + 3.9920927956457157`*^9, 3.992092964933693*^9}, {3.992092996453539*^9, + 3.992093020113638*^9}, {3.992093056528507*^9, 3.992093082697235*^9}}, + CellLabel-> + "Out[1557]=",ExpressionUUID->"edc019ae-580c-9843-816a-b3c1898d5abc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.581407431720797"}]], "Input", + CellChangeTimes->{3.991799280663351*^9, 3.9920923380503464`*^9}, + CellLabel-> + "In[1558]:=",ExpressionUUID->"f957bc10-97c4-9540-8afc-52167bc6ad39"], + +Cell[BoxData["0.581407431720797`"], "Output", + CellChangeTimes->{ + 3.992092424013666*^9, {3.9920925173471737`*^9, 3.992092615731226*^9}, { + 3.992092795652767*^9, 3.9920929649666996`*^9}, {3.9920929964595814`*^9, + 3.9920930201207066`*^9}, {3.992093056549488*^9, 3.9920930827184944`*^9}}, + CellLabel-> + "Out[1558]=",ExpressionUUID->"1f5d041a-07ec-4d48-aa6a-b31d3f87c20c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[1559]:=",ExpressionUUID->"7bc740b0-2227-4c44-ae04-7c66f299656a"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.992092424022188*^9, {3.9920925173531837`*^9, + 3.9920926157588634`*^9}, {3.9920927956776123`*^9, + 3.9920929649736977`*^9}, {3.9920929964887676`*^9, + 3.9920930201447144`*^9}, {3.9920930565736217`*^9, 3.9920930827473965`*^9}}, + CellLabel-> + "Out[1559]=",ExpressionUUID->"f0ae19b4-a03a-4344-96ac-3ce4ad39fbb5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[1560]:=",ExpressionUUID->"3fa0525d-3a2f-7c4c-b26b-325cb1defc9c"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.99209242405435*^9, {3.9920925173801575`*^9, + 3.9920926157839546`*^9}, {3.992092795683565*^9, 3.992092964980709*^9}, { + 3.992092996494766*^9, 3.9920930201517143`*^9}, {3.992093056593773*^9, + 3.992093082771408*^9}}, + CellLabel-> + "Out[1560]=",ExpressionUUID->"289cd65f-873d-d645-a14e-26626fd4d764"] +}, 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[1561]:=",ExpressionUUID->"5ede2694-a846-c54a-a2fc-d9d66e8d90eb"], + +Cell[BoxData["2.0397870167233085`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.9920924240852013`*^9, {3.992092517402384*^9, + 3.992092615814083*^9}, {3.9920927957096004`*^9, 3.9920929650027065`*^9}, { + 3.992092996519766*^9, 3.992093020174679*^9}, {3.99209305660058*^9, + 3.992093082802458*^9}}, + CellLabel-> + "Out[1561]=",ExpressionUUID->"19038b50-861a-8c4f-adf2-b42201802494"] +}, 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[1562]:=",ExpressionUUID->"d294bbe8-e09a-104f-8c32-6ef3bc4c1e9b"], + +Cell[BoxData["1.6965844703854613`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.992092424111204*^9, {3.9920925174282036`*^9, + 3.9920926158210907`*^9}, {3.9920927957326183`*^9, + 3.9920929650108223`*^9}, {3.9920929965277767`*^9, + 3.9920930201817207`*^9}, {3.9920930566225815`*^9, 3.9920930828307343`*^9}}, + CellLabel-> + "Out[1562]=",ExpressionUUID->"8a093c2e-7385-3545-b36b-01e26b45c650"] +}, 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[1563]:=",ExpressionUUID->"cd6017dc-60d0-1e48-a7e3-38f30b39b586"], + +Cell[BoxData["0.4525799206818347`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.992092424119274*^9, {3.9920925174510517`*^9, + 3.992092615844631*^9}, {3.992092795759413*^9, 3.9920929650365314`*^9}, { + 3.992092996561762*^9, 3.992093020204855*^9}, {3.99209305664777*^9, + 3.9920930828387337`*^9}}, + CellLabel-> + "Out[1563]=",ExpressionUUID->"a0ab726b-5854-0f41-bfbc-ea5621bc1602"] +}, 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[1564]:=",ExpressionUUID->"046dc305-2679-b04c-80ff-7cd29bb87c69"], + +Cell[BoxData[ + RowBox[{"-", "0.14627901466132107`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.992092424141165*^9, {3.9920925174730873`*^9, + 3.9920926158522587`*^9}, {3.9920927957819347`*^9, + 3.9920929650445366`*^9}, {3.9920929965907135`*^9, 3.992093020211878*^9}, { + 3.9920930566693344`*^9, 3.992093082863735*^9}}, + CellLabel-> + "Out[1564]=",ExpressionUUID->"73fc7f10-0604-574e-ba89-556826711b62"] +}, 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[1565]:=",ExpressionUUID->"39b0875a-0116-9548-98fa-5b7e713c0b7b"], + +Cell[BoxData[ + RowBox[{"-", "0.3067897746750185`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.992092424148676*^9, {3.9920925174800377`*^9, + 3.9920926158790665`*^9}, {3.9920927957879353`*^9, 3.992092965067564*^9}, { + 3.9920929966195316`*^9, 3.992093020237875*^9}, {3.992093056689333*^9, + 3.992093082887562*^9}}, + CellLabel-> + "Out[1565]=",ExpressionUUID->"ebc8c846-d840-b640-82d8-da5d86637c23"] +}, 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[1566]:=",ExpressionUUID->"874fe7be-0d65-7346-87d4-2e38f24dc13b"], + +Cell[BoxData["0.5588619635695797`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9920924241740017`*^9, {3.992092517506195*^9, + 3.992092615886593*^9}, {3.992092795809948*^9, 3.9920929650908546`*^9}, { + 3.992092996646963*^9, 3.9920930202454033`*^9}, {3.9920930566973324`*^9, + 3.9920930829164524`*^9}}, + CellLabel-> + "Out[1566]=",ExpressionUUID->"6c412c26-336a-264d-ab3d-ae18cd238d7b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[1567]:=",ExpressionUUID->"b39e5201-de3b-cc44-962a-f137c1976294"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9920924241809826`*^9, {3.9920925175332184`*^9, + 3.9920926159109*^9}, {3.992092795831953*^9, 3.9920929651138535`*^9}, { + 3.992092996668474*^9, 3.992093020272644*^9}, {3.992093056717905*^9, + 3.9920930829486275`*^9}}, + CellLabel-> + "Out[1567]=",ExpressionUUID->"83a7e8ab-578a-5f4f-b0b3-9c3a942a7982"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "In[1568]:=",ExpressionUUID->"85600bee-6d85-5a47-97a3-1c06fb6183cd"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.992092424206465*^9, {3.9920925175399876`*^9, + 3.9920926159344234`*^9}, {3.992092795838951*^9, 3.9920929651357594`*^9}, { + 3.9920929966934986`*^9, 3.99209302029665*^9}, {3.99209305672542*^9, + 3.9920930829716263`*^9}}, + CellLabel-> + "Out[1568]=",ExpressionUUID->"c035bbda-af60-e04b-bd57-3f36d047eef5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel-> + "In[1569]:=",ExpressionUUID->"07fd6f8c-06f9-4c43-b25c-ed501498311c"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.992092424234129*^9, {3.992092517566017*^9, + 3.9920926159586544`*^9}, {3.9920927958609962`*^9, + 3.9920929651594734`*^9}, {3.992092996718672*^9, 3.992093020305662*^9}, { + 3.9920930567515335`*^9, 3.992093082996649*^9}}, + CellLabel-> + "Out[1569]=",ExpressionUUID->"9cfc9022-d46f-2846-9a2a-b2a17ba7dc93"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[1570]:=",ExpressionUUID->"96fdbbce-6359-dc42-ac86-92630fd25566"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.992092424266348*^9, {3.992092517574074*^9, + 3.992092615965214*^9}, {3.992092795889517*^9, 3.9920929651855907`*^9}, { + 3.992092996726671*^9, 3.9920930203267136`*^9}, {3.992093056776457*^9, + 3.992093083021673*^9}}, + CellLabel-> + "Out[1570]=",ExpressionUUID->"1e79eff8-b740-0645-8d29-9ab4e1543d49"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[1571]:=",ExpressionUUID->"8afc23d0-5788-ea4c-852f-4b5cd573c684"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.992092424273369*^9, {3.9920925176013985`*^9, + 3.992092615998451*^9}, {3.992092795897524*^9, 3.99209296519359*^9}, { + 3.992092996750679*^9, 3.9920930203537235`*^9}, {3.992093056799759*^9, + 3.992093083046667*^9}}, + CellLabel-> + "Out[1571]=",ExpressionUUID->"02ba2005-9529-6849-867a-05b65adcc5a0"] +}, 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.992092352631197*^9}, + CellLabel-> + "In[1572]:=",ExpressionUUID->"7ba54fac-6d17-3a43-9d29-3851a40969b8"], + +Cell[BoxData["64"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.992092424299999*^9, {3.992092517624138*^9, + 3.9920926160050697`*^9}, {3.992092795920538*^9, 3.992092965218601*^9}, { + 3.992092996757696*^9, 3.992093020374735*^9}, {3.9920930568097687`*^9, + 3.992093083054676*^9}}, + CellLabel-> + "Out[1572]=",ExpressionUUID->"a72eb724-c6ed-ad44-8271-6ce13d2a8d8e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, 3.9920923570474358`*^9}, + CellLabel-> + "In[1573]:=",ExpressionUUID->"fc92494c-fcac-0548-80c0-cb8a368d1d97"], + +Cell[BoxData["30"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.9920924243070126`*^9, {3.99209251763118*^9, + 3.992092616031456*^9}, {3.9920927959265404`*^9, 3.992092965225622*^9}, { + 3.9920929967776775`*^9, 3.992093020382736*^9}, {3.9920930568337727`*^9, + 3.992093083077688*^9}}, + CellLabel-> + "Out[1573]=",ExpressionUUID->"590cd4af-e85d-a34b-bb70-eb4f42805786"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[1574]:=",ExpressionUUID->"6e9b5d23-d834-9247-b4e9-73fb513327f2"], + +Cell[BoxData["94"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.992092424333185*^9, {3.992092517655279*^9, + 3.9920926160390186`*^9}, {3.992092795952633*^9, 3.992092965246483*^9}, { + 3.992092996803364*^9, 3.9920930204057865`*^9}, {3.992093056858282*^9, + 3.992093083085678*^9}}, + CellLabel-> + "Out[1574]=",ExpressionUUID->"60fe4e95-33b9-a444-bb42-8c3fe6a071bc"] +}, 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[1575]:=",ExpressionUUID->"806c9335-4c02-5547-916e-883e63b6fff2"], + +Cell[BoxData["0.10872923345963276`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9920924243572235`*^9, {3.992092517667328*^9, + 3.9920926160661354`*^9}, {3.9920927959597607`*^9, 3.992092965273592*^9}, { + 3.992092996828369*^9, 3.9920930204138546`*^9}, {3.992093056866806*^9, + 3.992093083111456*^9}}, + CellLabel-> + "Out[1575]=",ExpressionUUID->"cfa08889-410e-ef4c-9487-715c100a45c6"] +}, 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[1576]:=",ExpressionUUID->"cea7d8cd-d5eb-9349-83f9-c96ad4a877b1"], + +Cell[BoxData[ + RowBox[{"-", "2.565919556980472`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.9920924243811493`*^9, {3.9920925176941147`*^9, + 3.992092616073208*^9}, {3.9920927959847507`*^9, 3.9920929652985916`*^9}, { + 3.992092996836376*^9, 3.9920930204444256`*^9}, {3.9920930568897095`*^9, + 3.9920930831194363`*^9}}, + CellLabel-> + "Out[1576]=",ExpressionUUID->"9a1df932-4549-1144-9c0e-8ce44caf5e4d"] +}, 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[1577]:=",ExpressionUUID->"c53d36fa-5b71-714f-8c7f-1e295b30d067"], + +Cell[BoxData["18.87992353524718`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.9920924244051456`*^9, {3.9920925177193546`*^9, + 3.992092616100073*^9}, {3.9920927959917564`*^9, 3.992092965308607*^9}, { + 3.9920929968593845`*^9, 3.992093020467409*^9}, {3.9920930569185905`*^9, + 3.992093083142683*^9}}, + CellLabel-> + "Out[1577]=",ExpressionUUID->"fd85cd6b-9a6d-c042-9be2-50812d9af8e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[1578]:=",ExpressionUUID->"2a64dfd5-dfa4-c64e-9be1-bf92b0ec93cb"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.992092424412163*^9, {3.9920925177291546`*^9, + 3.992092616126276*^9}, {3.992092796015764*^9, 3.9920929653326607`*^9}, { + 3.9920929968708153`*^9, 3.992093020496603*^9}, {3.992093056938593*^9, + 3.9920930831506824`*^9}}, + CellLabel-> + "Out[1578]=",ExpressionUUID->"7fa941ce-fe3e-3248-8996-3d29d66e1e5d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.362"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, + 3.9920923643154297`*^9}, + CellLabel-> + "In[1579]:=",ExpressionUUID->"5086dfd3-8239-7c4b-bb8b-e0ab9b202df0"], + +Cell[BoxData["1.362`"], "Output", + CellChangeTimes->{ + 3.9920924244360676`*^9, {3.992092517751152*^9, 3.9920926161342983`*^9}, { + 3.992092796022789*^9, 3.9920929653398457`*^9}, {3.9920929968917847`*^9, + 3.9920930205193768`*^9}, {3.992093056964657*^9, 3.9920930831736813`*^9}}, + CellLabel-> + "Out[1579]=",ExpressionUUID->"9f868de0-46b3-a842-a9b8-346b4e041e12"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[1580]:=",ExpressionUUID->"9ae3cba7-76d3-f042-85ba-1169183fad1c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.795"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, + 3.992092367948057*^9}, + CellLabel-> + "In[1581]:=",ExpressionUUID->"9c3830e1-cf5c-3548-abaf-72f47ffc7b0b"], + +Cell[BoxData["0.795`"], "Output", + CellChangeTimes->{ + 3.9920924244671745`*^9, {3.9920925177601814`*^9, 3.9920926161603107`*^9}, { + 3.9920927960489674`*^9, 3.9920929653658905`*^9}, {3.992092996901783*^9, + 3.9920930205454807`*^9}, {3.992093056990692*^9, 3.9920930831836834`*^9}}, + CellLabel-> + "Out[1581]=",ExpressionUUID->"6f2fba4f-4b96-d746-9d08-a14a8099a971"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[1582]:=",ExpressionUUID->"77646442-22cc-ed49-86bc-4f554c84cfa2"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv1", "=", "2.204"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, + 3.9920923714363804`*^9}, + CellLabel-> + "In[1583]:=",ExpressionUUID->"ad9d1b61-ec8c-f842-93bc-b30fee3f757b"], + +Cell[BoxData["2.204`"], "Output", + CellChangeTimes->{ + 3.9920924244911957`*^9, {3.992092517786337*^9, 3.9920926161872025`*^9}, { + 3.992092796077503*^9, 3.9920929653893967`*^9}, {3.9920929969247704`*^9, + 3.992093020555729*^9}, {3.9920930570177917`*^9, 3.992093083208723*^9}}, + CellLabel-> + "Out[1583]=",ExpressionUUID->"cd591d3d-8644-4446-a7ce-1d9525b3e74a"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[1584]:=",ExpressionUUID->"b7ba7664-fffa-1e4c-889c-55437550adbe"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.070"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, 3.9920923750354595`*^9}, + CellLabel-> + "In[1585]:=",ExpressionUUID->"90b3d005-268c-ec4b-9fca-322959c9fe7b"], + +Cell[BoxData["1.07`"], "Output", + CellChangeTimes->{ + 3.9920924245191975`*^9, {3.9920925178121643`*^9, 3.9920926162159557`*^9}, { + 3.992092796104519*^9, 3.9920929654147778`*^9}, {3.9920929969487724`*^9, + 3.992093020581457*^9}, {3.9920930570267944`*^9, 3.992093083235735*^9}}, + CellLabel-> + "Out[1585]=",ExpressionUUID->"f46d2948-e91c-f946-9834-214d9fa80b93"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[1586]:=",ExpressionUUID->"5b643a7a-026d-f948-bc21-774fca72af7e"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"v2", "=", "0.938"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, 3.992092378674286*^9}, + CellLabel-> + "In[1587]:=",ExpressionUUID->"1ec6d3d4-5b5c-7c46-a4ef-4bc9c7220053"], + +Cell[BoxData["0.938`"], "Output", + CellChangeTimes->{ + 3.9920924245433064`*^9, {3.9920925178372326`*^9, 3.9920926162431374`*^9}, { + 3.992092796130512*^9, 3.9920929654385223`*^9}, {3.992092996973612*^9, + 3.992093020606451*^9}, {3.992093057050337*^9, 3.9920930832457333`*^9}}, + CellLabel-> + "Out[1587]=",ExpressionUUID->"ee4f9bca-18f4-6646-a267-b2ea2c8e035b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[1588]:=",ExpressionUUID->"bbda16eb-8996-224b-926e-54c4b4fec01b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.739"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, 3.9920923820487957`*^9}, + CellLabel-> + "In[1589]:=",ExpressionUUID->"d00d46b1-52b5-3d42-85ad-3e37e9b2ed93"], + +Cell[BoxData["0.739`"], "Output", + CellChangeTimes->{ + 3.9920924245712776`*^9, {3.992092517868086*^9, 3.9920926162719116`*^9}, { + 3.992092796153553*^9, 3.9920929654498425`*^9}, {3.992092996998516*^9, + 3.992093020631668*^9}, {3.992093057076357*^9, 3.9920930832708435`*^9}}, + CellLabel-> + "Out[1589]=",ExpressionUUID->"4015bbcc-647a-ca49-86c7-47096ead374e"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[1590]:=",ExpressionUUID->"6b1f0b43-2635-4449-837d-a5b040083797"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv2", "=", "1.318"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, 3.992092385442354*^9}, + CellLabel-> + "In[1591]:=",ExpressionUUID->"3bb51f6f-45b9-c344-9da1-ea022bc7d8f9"], + +Cell[BoxData["1.318`"], "Output", + CellChangeTimes->{ + 3.992092424600256*^9, {3.9920925178950996`*^9, 3.9920926162988586`*^9}, { + 3.9920927961825104`*^9, 3.992092965474863*^9}, {3.9920929970216312`*^9, + 3.9920930206588135`*^9}, {3.992093057101387*^9, 3.992093083297676*^9}}, + CellLabel-> + "Out[1591]=",ExpressionUUID->"9664e140-7937-2847-9db8-5c547f0b3905"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[1592]:=",ExpressionUUID->"367c3fa5-a73f-344f-845d-961b336f4d46"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn2", "=", "0.948"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, 3.992092389548071*^9}, + CellLabel-> + "In[1593]:=",ExpressionUUID->"8d8efd6c-638a-1a42-9a07-7f11cd3c4e83"], + +Cell[BoxData["0.948`"], "Output", + CellChangeTimes->{ + 3.9920924246278687`*^9, {3.9920925179191475`*^9, 3.9920926163079185`*^9}, { + 3.992092796204502*^9, 3.992092965499399*^9}, {3.9920929970485687`*^9, + 3.99209302068668*^9}, {3.99209305712838*^9, 3.992093083307684*^9}}, + CellLabel-> + "Out[1593]=",ExpressionUUID->"088bfb6c-e28b-0c48-b707-632ceabf40c4"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[1594]:=",ExpressionUUID->"986c73f7-8560-cd4a-8414-8fa157076bcd"], + +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[1595]:=",ExpressionUUID->"fc81cb86-dc5d-234b-90dc-01befa0d2354"], + +Cell[BoxData["0.23853606466317218`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.9920924246760044`*^9, {3.9920925179775143`*^9, + 3.9920926163632183`*^9}, {3.992092796244623*^9, 3.9920929655537834`*^9}, { + 3.992092997089651*^9, 3.9920930207385387`*^9}, {3.992093057173485*^9, + 3.9920930833603687`*^9}}, + CellLabel-> + "Out[1595]=",ExpressionUUID->"686eadf7-df7c-df49-97a5-6fbe59efb139"] +}, 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[1596]:=",ExpressionUUID->"82ef2f5e-29c0-8a48-9e9c-429d0ce776f2"], + +Cell[BoxData["1.1621646878049277`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9920924247221813`*^9, {3.992092518021105*^9, + 3.992092616403429*^9}, {3.9920927962806664`*^9, 3.9920929655928*^9}, { + 3.992092997126686*^9, 3.992093020775572*^9}, {3.99209305721846*^9, + 3.9920930834024544`*^9}}, + CellLabel-> + "Out[1596]=",ExpressionUUID->"7cc9b760-db60-a64c-bf97-0197e67e5fd8"] +}, 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[1597]:=",ExpressionUUID->"0a34c2da-ffdd-4d49-aadd-8fbf347080d1"], + +Cell[BoxData[ + RowBox[{"-", "11.54880477030602`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.9920924247643623`*^9, {3.9920925180570297`*^9, + 3.992092616442415*^9}, {3.99209279631579*^9, 3.9920929656287766`*^9}, { + 3.9920929971636944`*^9, 3.992093020811638*^9}, {3.992093057256893*^9, + 3.9920930834404774`*^9}}, + CellLabel-> + "Out[1597]=",ExpressionUUID->"0b90be3e-f1cd-2a4d-880e-45478f6832de"] +}, 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[1598]:=",ExpressionUUID->"0b47fdba-5857-5042-9813-489e9e01fcb8"], + +Cell[BoxData[ + RowBox[{"-", "19.77600599831311`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.9920924248567066`*^9, {3.9920925181035156`*^9, + 3.99209261648604*^9}, {3.9920927963639317`*^9, 3.9920929656716843`*^9}, { + 3.9920929972087193`*^9, 3.992093020858343*^9}, {3.9920930573004055`*^9, + 3.9920930834844856`*^9}}, + CellLabel-> + "Out[1598]=",ExpressionUUID->"0e298add-0ecb-f249-9a7e-613378004461"] +}, 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[1599]:=",ExpressionUUID->"6b4e7e51-a4a4-5046-bcc6-b4985ab3133c"], + +Cell[BoxData[ + RowBox[{"-", "30.58059117523105`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.992092424909916*^9, {3.9920925181461334`*^9, + 3.9920926165285892`*^9}, {3.9920927964064484`*^9, + 3.9920929657136993`*^9}, {3.99209299725375*^9, 3.992093020905369*^9}, { + 3.9920930573464146`*^9, 3.992093083528572*^9}}, + CellLabel-> + "Out[1599]=",ExpressionUUID->"8bf37379-0d8b-114d-bc43-49dfbbd64b57"] +}, 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[1600]:=",ExpressionUUID->"104120e6-9442-3146-a14e-893a34d3e2ae"], + +Cell[BoxData[ + RowBox[{"-", "105.09350269202939`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.9920924249671135`*^9, {3.992092518197281*^9, + 3.992092616578083*^9}, {3.992092796458473*^9, 3.992092965763729*^9}, { + 3.992092997304306*^9, 3.9920930209554005`*^9}, {3.9920930573954678`*^9, + 3.992093083597994*^9}}, + CellLabel-> + "Out[1600]=",ExpressionUUID->"b1fc263d-299f-8f46-b4f9-8535227da29d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[1601]:=",ExpressionUUID->"5f4a1870-ca76-0148-9445-c139b77d17e6"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.992092424988882*^9, {3.9920925182220745`*^9, + 3.9920926166009426`*^9}, {3.9920927964825535`*^9, 3.992092965791752*^9}, { + 3.9920929973323193`*^9, 3.9920930209844055`*^9}, {3.9920930574224644`*^9, + 3.992093083606518*^9}}, + CellLabel-> + "Out[1601]=",ExpressionUUID->"dc631fb6-6f2d-6b4a-bada-b47e4891e25b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[1602]:=",ExpressionUUID->"bf36608e-3a41-9d4e-9975-c9a29ed56893"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.9920924249969025`*^9, {3.9920925182290916`*^9, + 3.9920926166340294`*^9}, {3.9920927965035686`*^9, 3.992092965815735*^9}, { + 3.9920929973413277`*^9, 3.992093021007929*^9}, {3.9920930574444923`*^9, + 3.9920930836334076`*^9}}, + CellLabel-> + "Out[1602]=",ExpressionUUID->"05eb3f7c-41c9-8646-be48-cc4a1e296578"] +}, 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[1603]:=",ExpressionUUID->"d6f6a0f4-8b00-474d-a186-5a3062af590c"], + +Cell[BoxData["50.79485995775785`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9920924250203743`*^9, {3.9920925182541103`*^9, + 3.992092616658106*^9}, {3.992092796530678*^9, 3.9920929658470783`*^9}, { + 3.9920929973643227`*^9, 3.992093021036476*^9}, {3.992093057470501*^9, + 3.992093083664322*^9}}, + CellLabel-> + "Out[1603]=",ExpressionUUID->"fddf8bdf-f9bd-3c46-9715-74c862e0d07d"] +}, 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[1604]:=",ExpressionUUID->"b47804d5-7f1e-9549-b69a-a3f99dbcdbad"], + +Cell[BoxData[ + RowBox[{"-", "39.807512260788336`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.9920924250287895`*^9, {3.992092518261135*^9, + 3.9920926166661263`*^9}, {3.992092796553686*^9, 3.992092965855587*^9}, { + 3.992092997385847*^9, 3.9920930210664825`*^9}, {3.9920930574785194`*^9, + 3.9920930836908455`*^9}}, + CellLabel-> + "Out[1604]=",ExpressionUUID->"6747aa6d-4786-f64b-9c35-bcc5100296d3"] +}, 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[1605]:=",ExpressionUUID->"698c36f8-6b4c-f44b-ad8e-83fd3aede31a"], + +Cell[BoxData["55.47457091262591`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9920924250533905`*^9, {3.9920925182831707`*^9, + 3.9920926166888447`*^9}, {3.992092796576765*^9, 3.992092965880436*^9}, { + 3.992092997412588*^9, 3.992093021074486*^9}, {3.992093057501501*^9, + 3.9920930837153435`*^9}}, + CellLabel-> + "Out[1605]=",ExpressionUUID->"58fe0885-04de-e848-b666-1cb90cacbe1e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[1606]:=",ExpressionUUID->"26e08360-187b-be4e-a6a2-1ed01e706cc9"], + +Cell[BoxData["0.4525799206818347`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.9920924250769863`*^9, {3.992092518290186*^9, + 3.9920926166969337`*^9}, {3.992092796599745*^9, 3.9920929659136524`*^9}, { + 3.9920929974355965`*^9, 3.992093021109741*^9}, {3.992093057526634*^9, + 3.992093083742384*^9}}, + CellLabel-> + "Out[1606]=",ExpressionUUID->"45a2a7a1-f6e9-7f4f-8b72-c7af94332838"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[1607]:=",ExpressionUUID->"a891781b-aa40-6f46-96f7-4bfb5fd329fc"], + +Cell[BoxData[ + RowBox[{"-", "0.14627901466132107`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.992092425085251*^9, {3.9920925183123817`*^9, + 3.992092616720148*^9}, {3.992092796621517*^9, 3.9920929659406376`*^9}, { + 3.9920929974485817`*^9, 3.9920930211177807`*^9}, {3.9920930575493755`*^9, + 3.992093083766514*^9}}, + CellLabel-> + "Out[1607]=",ExpressionUUID->"4e939564-a724-1241-b382-2ed1562ccdef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[1608]:=",ExpressionUUID->"fed7420f-18a5-bc4c-b415-7a5cdb43f707"], + +Cell[BoxData[ + RowBox[{"-", "0.3067897746750185`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.992092425109461*^9, {3.9920925183188953`*^9, + 3.9920926167479305`*^9}, {3.992092796644417*^9, 3.9920929659693794`*^9}, { + 3.9920929974695816`*^9, 3.9920930211443024`*^9}, {3.9920930575783825`*^9, + 3.9920930837753963`*^9}}, + CellLabel-> + "Out[1608]=",ExpressionUUID->"fdd78615-cc8a-b644-8af3-a4427464bd27"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[1609]:=",ExpressionUUID->"02b016f6-7d34-1146-b008-bbc3852e43f0"], + +Cell[BoxData["0.5588619635695797`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.992092425140007*^9, {3.9920925183433113`*^9, + 3.9920926167768955`*^9}, {3.99209279665242*^9, 3.992092965997463*^9}, { + 3.9920929974956074`*^9, 3.992093021153307*^9}, {3.9920930575873737`*^9, + 3.9920930837992496`*^9}}, + CellLabel-> + "Out[1609]=",ExpressionUUID->"ffdeedb1-9489-2b43-985d-5a8174881956"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[1610]:=",ExpressionUUID->"6a211183-0ca3-074d-9bf4-f64020aaf3d6"], + +Cell[BoxData["2.0397870167233085`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.9920924251485367`*^9, {3.9920925183502617`*^9, + 3.992092616801161*^9}, {3.992092796675625*^9, 3.992092966020483*^9}, { + 3.992092997519621*^9, 3.9920930211783123`*^9}, {3.992093057612406*^9, + 3.992093083807356*^9}}, + CellLabel-> + "Out[1610]=",ExpressionUUID->"7f41f7c9-3f7c-644a-a034-9364f141c2a7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[1611]:=",ExpressionUUID->"20bdd366-9d07-4542-a165-b84f0310a4c8"], + +Cell[BoxData["1.6965844703854613`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.9920924251731644`*^9, {3.992092518390991*^9, + 3.992092616809025*^9}, {3.992092796682625*^9, 3.9920929660454655`*^9}, { + 3.992092997546631*^9, 3.992093021206312*^9}, {3.9920930576354465`*^9, + 3.9920930838346233`*^9}}, + CellLabel-> + "Out[1611]=",ExpressionUUID->"dd529d82-775a-e44e-9c3c-1567bbd3e7e4"] +}, 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[1612]:=",ExpressionUUID->"4772cd46-2466-0d42-8c6a-35e036dcbdc9"], + +Cell[BoxData[ + RowBox[{"-", "21.092736551945727`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.9920924251813374`*^9, {3.9920925184000015`*^9, + 3.9920926168329926`*^9}, {3.992092796713726*^9, 3.9920929660694675`*^9}, { + 3.992092997555647*^9, 3.992093021215063*^9}, {3.9920930576579895`*^9, + 3.992093083860649*^9}}, + CellLabel-> + "Out[1612]=",ExpressionUUID->"ff984ea0-1294-364f-8bf8-d722928857f2"] +}, 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[1613]:=",ExpressionUUID->"96e4e48b-8a6c-df43-bdef-e8984c319123"], + +Cell[BoxData[ + RowBox[{"-", "10.70666087171256`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.992092425203964*^9, {3.992092518424059*^9, + 3.992092616841175*^9}, {3.992092796739727*^9, 3.992092966097471*^9}, { + 3.992092997577677*^9, 3.9920930212386017`*^9}, {3.9920930576665287`*^9, + 3.992093083870682*^9}}, + CellLabel-> + "Out[1613]=",ExpressionUUID->"618bdeba-819f-4d4a-be4d-764355779140"] +}, 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[1614]:=",ExpressionUUID->"01bca175-ab28-414f-aa32-3b0ab2383cac"], + +Cell[BoxData["29.702123405812124`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.99209242521216*^9, {3.992092518431139*^9, + 3.992092616869858*^9}, {3.9920927967650204`*^9, 3.9920929661054707`*^9}, { + 3.99209299758585*^9, 3.992093021262615*^9}, {3.992093057691532*^9, + 3.992093083897995*^9}}, + CellLabel-> + "Out[1614]=",ExpressionUUID->"afdfeb61-58d5-c048-bd64-49ffe1cccd32"] +}, 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[1615]:=",ExpressionUUID->"6fcfbee3-e475-8c4f-805b-cbe89d5088b2"], + +Cell[BoxData[ + RowBox[{"-", "39.807512260788336`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.9920924252399826`*^9, {3.9920925184532547`*^9, + 3.9920926168974247`*^9}, {3.992092796772524*^9, 3.992092966127367*^9}, { + 3.992092997616436*^9, 3.992093021286625*^9}, {3.9920930577172832`*^9, + 3.9920930839314575`*^9}}, + CellLabel-> + "Out[1615]=",ExpressionUUID->"17a5afe5-8190-8a4a-a090-d48decb730ec"] +}, 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[1616]:=",ExpressionUUID->"e0f35dcd-b6c9-3a4f-8cfa-25c42e489de0"], + +Cell[BoxData["44.76791004091335`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.9920924252641563`*^9, {3.9920925184652615`*^9, + 3.992092616924053*^9}, {3.992092796799511*^9, 3.9920929661654415`*^9}, { + 3.992092997645611*^9, 3.9920930213107224`*^9}, {3.9920930577272816`*^9, + 3.9920930839574585`*^9}}, + CellLabel-> + "Out[1616]=",ExpressionUUID->"bf5bfcf8-0a9c-1842-ba52-f56bd5d01773"] +}, 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[1617]:=",ExpressionUUID->"e26ae6b3-264b-8448-8f90-c304ef77d072"], + +Cell[BoxData["0.017639944695631016`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.992092425272375*^9, {3.9920925184886303`*^9, + 3.9920926169319496`*^9}, {3.992092796807514*^9, 3.992092966188612*^9}, { + 3.9920929976776257`*^9, 3.99209302132073*^9}, {3.9920930577495594`*^9, + 3.9920930839824753`*^9}}, + CellLabel-> + "Out[1617]=",ExpressionUUID->"eb575188-4fe4-6148-bd64-4b30eef2ca07"] +}, 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[1618]:=",ExpressionUUID->"214d2709-cff2-0147-9b6b-c8addf97163e"], + +Cell[BoxData["198.48274307805877`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.9920924252972507`*^9, {3.99209251849621*^9, + 3.9920926169568806`*^9}, {3.99209279683144*^9, 3.9920929661966133`*^9}, { + 3.992092997701681*^9, 3.992093021346737*^9}, {3.9920930577580833`*^9, + 3.9920930839966183`*^9}}, + CellLabel-> + "Out[1618]=",ExpressionUUID->"6c2a8912-47b9-6d47-821d-bfdabd5cb5d9"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.349801967763318"}]], "Input", + CellChangeTimes->{3.991849227197853*^9, + 3.992093481789543*^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", "=", "0.22451670858291"}]], "Input", + CellChangeTimes->{3.9918492290557346`*^9, + 3.9920934854014072`*^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[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.131906"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.092238"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.135383"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.172743"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.117679"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.094793"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.075876"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.054298"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.038669"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.027641"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.018887"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.013232"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.008805"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.0061"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.003941"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.002757"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.001714"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.00123"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.000717"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.000544"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.000282"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.000244"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.000099"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.000114"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.000026"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.000032"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.000019"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.000013"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.000007"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.000005"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.000002"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.9920933637716217`*^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[CellGroupData[{ +Cell[576, 22, 435, 8, 28, "Input",ExpressionUUID->"abd86cb7-8f5e-ab4f-81e8-1ce058c5d564"], +Cell[1014, 32, 391, 7, 32, "Output",ExpressionUUID->"1f5034f4-06ca-1743-9e93-482699fe5b37"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1442, 44, 254, 5, 28, "Input",ExpressionUUID->"c4ce3e9e-ebde-c949-b0e7-981db643bfce"], +Cell[1699, 51, 395, 7, 32, "Output",ExpressionUUID->"b2af310a-3fd7-604c-8e7e-55148bbf38fc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2131, 63, 231, 5, 28, "Input",ExpressionUUID->"75575236-1994-1044-b248-d79b5cc3910b"], +Cell[2365, 70, 391, 7, 32, "Output",ExpressionUUID->"6c4d2313-2dd8-9d4f-9189-c557d2a0dcbe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2793, 82, 181, 4, 28, "Input",ExpressionUUID->"cefd9aef-602f-4e45-b3f3-5cf390b6524a"], +Cell[2977, 88, 393, 7, 32, "Output",ExpressionUUID->"9ba3e660-60bd-f442-b768-9dac89e3afff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3407, 100, 263, 8, 43, "Input",ExpressionUUID->"794fa728-53d0-cb46-ae8a-8ed9df229aa4"], +Cell[3673, 110, 409, 7, 32, "Output",ExpressionUUID->"919b4f81-8a7b-e54a-99bc-7d88d091ce49"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4119, 122, 137, 3, 28, "Input",ExpressionUUID->"71591d04-5aad-7f4a-ab53-857c504e6386"], +Cell[4259, 127, 397, 7, 32, "Output",ExpressionUUID->"49d65543-a10b-3340-a5d2-ab16c865d6ac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4693, 139, 282, 7, 28, "Input",ExpressionUUID->"acf22dc1-6ddb-1240-ab76-b6cd91d4a7e7"], +Cell[4978, 148, 401, 7, 32, "Output",ExpressionUUID->"e8e35802-253e-0c44-a86f-6dfe9f2a7a8d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5416, 160, 263, 8, 28, "Input",ExpressionUUID->"c6474798-b5d8-7f4f-a4fd-52dfe623fe27"], +Cell[5682, 170, 406, 7, 32, "Output",ExpressionUUID->"a9c46dcd-97a7-0a40-b7b7-a34b15e4a8d4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6125, 182, 216, 4, 28, "Input",ExpressionUUID->"a3be1a61-6f7b-1b46-8cee-0f0fc636ece6"], +Cell[6344, 188, 372, 6, 32, "Output",ExpressionUUID->"edc019ae-580c-9843-816a-b3c1898d5abc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6753, 199, 216, 4, 28, "Input",ExpressionUUID->"f957bc10-97c4-9540-8afc-52167bc6ad39"], +Cell[6972, 205, 376, 6, 32, "Output",ExpressionUUID->"1f5d041a-07ec-4d48-aa6a-b31d3f87c20c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7385, 216, 134, 3, 28, "Input",ExpressionUUID->"7bc740b0-2227-4c44-ae04-7c66f299656a"], +Cell[7522, 221, 393, 7, 36, "Output",ExpressionUUID->"f0ae19b4-a03a-4344-96ac-3ce4ad39fbb5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7952, 233, 134, 3, 33, "Input",ExpressionUUID->"3fa0525d-3a2f-7c4c-b26b-325cb1defc9c"], +Cell[8089, 238, 382, 7, 36, "Output",ExpressionUUID->"289cd65f-873d-d645-a14e-26626fd4d764"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8508, 250, 562, 20, 76, "Input",ExpressionUUID->"5ede2694-a846-c54a-a2fc-d9d66e8d90eb"], +Cell[9073, 272, 400, 7, 36, "Output",ExpressionUUID->"19038b50-861a-8c4f-adf2-b42201802494"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9510, 284, 562, 20, 76, "Input",ExpressionUUID->"d294bbe8-e09a-104f-8c32-6ef3bc4c1e9b"], +Cell[10075, 306, 411, 7, 36, "Output",ExpressionUUID->"8a093c2e-7385-3545-b36b-01e26b45c650"] +}, Open ]], +Cell[CellGroupData[{ +Cell[10523, 318, 1497, 49, 76, "Input",ExpressionUUID->"cd6017dc-60d0-1e48-a7e3-38f30b39b586"], +Cell[12023, 369, 398, 7, 36, "Output",ExpressionUUID->"a0ab726b-5854-0f41-bfbc-ea5621bc1602"] +}, Open ]], +Cell[CellGroupData[{ +Cell[12458, 381, 1336, 45, 76, "Input",ExpressionUUID->"046dc305-2679-b04c-80ff-7cd29bb87c69"], +Cell[13797, 428, 423, 8, 36, "Output",ExpressionUUID->"73fc7f10-0604-574e-ba89-556826711b62"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14257, 441, 1336, 45, 76, "Input",ExpressionUUID->"39b0875a-0116-9548-98fa-5b7e713c0b7b"], +Cell[15596, 488, 420, 8, 36, "Output",ExpressionUUID->"ebc8c846-d840-b640-82d8-da5d86637c23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16053, 501, 1497, 49, 76, "Input",ExpressionUUID->"874fe7be-0d65-7346-87d4-2e38f24dc13b"], +Cell[17553, 552, 401, 7, 36, "Output",ExpressionUUID->"6c412c26-336a-264d-ab3d-ae18cd238d7b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[17991, 564, 136, 3, 33, "Input",ExpressionUUID->"b39e5201-de3b-cc44-962a-f137c1976294"], +Cell[18130, 569, 383, 7, 36, "Output",ExpressionUUID->"83a7e8ab-578a-5f4f-b0b3-9c3a942a7982"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18550, 581, 138, 3, 33, "Input",ExpressionUUID->"85600bee-6d85-5a47-97a3-1c06fb6183cd"], +Cell[18691, 586, 387, 7, 36, "Output",ExpressionUUID->"c035bbda-af60-e04b-bd57-3f36d047eef5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19115, 598, 139, 3, 33, "Input",ExpressionUUID->"07fd6f8c-06f9-4c43-b25c-ed501498311c"], +Cell[19257, 603, 389, 7, 36, "Output",ExpressionUUID->"9cfc9022-d46f-2846-9a2a-b2a17ba7dc93"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19683, 615, 224, 5, 33, "Input",ExpressionUUID->"96fdbbce-6359-dc42-ac86-92630fd25566"], +Cell[19910, 622, 398, 8, 36, "Output",ExpressionUUID->"1e79eff8-b740-0645-8d29-9ab4e1543d49"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20345, 635, 139, 3, 33, "Input",ExpressionUUID->"8afc23d0-5788-ea4c-852f-4b5cd573c684"], +Cell[20487, 640, 384, 7, 36, "Output",ExpressionUUID->"02ba2005-9529-6849-867a-05b65adcc5a0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20908, 652, 303, 6, 33, "Input",ExpressionUUID->"7ba54fac-6d17-3a43-9d29-3851a40969b8"], +Cell[21214, 660, 382, 7, 36, "Output",ExpressionUUID->"a72eb724-c6ed-ad44-8271-6ce13d2a8d8e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21633, 672, 279, 6, 33, "Input",ExpressionUUID->"fc92494c-fcac-0548-80c0-cb8a368d1d97"], +Cell[21915, 680, 385, 7, 36, "Output",ExpressionUUID->"590cd4af-e85d-a34b-bb70-eb4f42805786"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22337, 692, 224, 5, 33, "Input",ExpressionUUID->"6e9b5d23-d834-9247-b4e9-73fb513327f2"], +Cell[22564, 699, 380, 7, 36, "Output",ExpressionUUID->"60fe4e95-33b9-a444-bb42-8c3fe6a071bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22981, 711, 355, 11, 46, "Input",ExpressionUUID->"806c9335-4c02-5547-916e-883e63b6fff2"], +Cell[23339, 724, 404, 7, 36, "Output",ExpressionUUID->"cfa08889-410e-ef4c-9487-715c100a45c6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23780, 736, 355, 11, 46, "Input",ExpressionUUID->"cea7d8cd-d5eb-9349-83f9-c96ad4a877b1"], +Cell[24138, 749, 425, 8, 36, "Output",ExpressionUUID->"9a1df932-4549-1144-9c0e-8ce44caf5e4d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24600, 762, 999, 27, 103, "Input",ExpressionUUID->"c53d36fa-5b71-714f-8c7f-1e295b30d067"], +Cell[25602, 791, 404, 7, 36, "Output",ExpressionUUID->"fd85cd6b-9a6d-c042-9be2-50812d9af8e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26043, 803, 204, 4, 33, "Input",ExpressionUUID->"2a64dfd5-dfa4-c64e-9be1-bf92b0ec93cb"], +Cell[26250, 809, 385, 7, 36, "Output",ExpressionUUID->"7fa941ce-fe3e-3248-8996-3d29d66e1e5d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26672, 821, 310, 6, 33, "Input",ExpressionUUID->"5086dfd3-8239-7c4b-bb8b-e0ab9b202df0"], +Cell[26985, 829, 366, 6, 36, "Output",ExpressionUUID->"9f868de0-46b3-a842-a9b8-346b4e041e12"] +}, Open ]], +Cell[27366, 838, 178, 3, 33, "Input",ExpressionUUID->"9ae3cba7-76d3-f042-85ba-1169183fad1c"], +Cell[CellGroupData[{ +Cell[27569, 845, 308, 6, 33, "Input",ExpressionUUID->"9c3830e1-cf5c-3548-abaf-72f47ffc7b0b"], +Cell[27880, 853, 368, 6, 36, "Output",ExpressionUUID->"6f2fba4f-4b96-d746-9d08-a14a8099a971"] +}, Open ]], +Cell[28263, 862, 178, 3, 33, "Input",ExpressionUUID->"77646442-22cc-ed49-86bc-4f554c84cfa2"], +Cell[CellGroupData[{ +Cell[28466, 869, 330, 7, 49, "Input",ExpressionUUID->"ad9d1b61-ec8c-f842-93bc-b30fee3f757b"], +Cell[28799, 878, 364, 6, 36, "Output",ExpressionUUID->"cd591d3d-8644-4446-a7ce-1d9525b3e74a"] +}, Open ]], +Cell[29178, 887, 178, 3, 33, "Input",ExpressionUUID->"b7ba7664-fffa-1e4c-889c-55437550adbe"], +Cell[CellGroupData[{ +Cell[29381, 894, 335, 6, 33, "Input",ExpressionUUID->"90b3d005-268c-ec4b-9fca-322959c9fe7b"], +Cell[29719, 902, 365, 6, 36, "Output",ExpressionUUID->"f46d2948-e91c-f946-9834-214d9fa80b93"] +}, Open ]], +Cell[30099, 911, 176, 3, 33, "Input",ExpressionUUID->"5b643a7a-026d-f948-bc21-774fca72af7e"], +Cell[CellGroupData[{ +Cell[30300, 918, 295, 6, 49, "Input",ExpressionUUID->"1ec6d3d4-5b5c-7c46-a4ef-4bc9c7220053"], +Cell[30598, 926, 364, 6, 36, "Output",ExpressionUUID->"ee4f9bca-18f4-6646-a267-b2ea2c8e035b"] +}, Open ]], +Cell[30977, 935, 176, 3, 33, "Input",ExpressionUUID->"bbda16eb-8996-224b-926e-54c4b4fec01b"], +Cell[CellGroupData[{ +Cell[31178, 942, 282, 5, 33, "Input",ExpressionUUID->"d00d46b1-52b5-3d42-85ad-3e37e9b2ed93"], +Cell[31463, 949, 362, 6, 36, "Output",ExpressionUUID->"4015bbcc-647a-ca49-86c7-47096ead374e"] +}, Open ]], +Cell[31840, 958, 178, 3, 33, "Input",ExpressionUUID->"6b1f0b43-2635-4449-837d-a5b040083797"], +Cell[CellGroupData[{ +Cell[32043, 965, 302, 6, 49, "Input",ExpressionUUID->"3bb51f6f-45b9-c344-9da1-ea022bc7d8f9"], +Cell[32348, 973, 364, 6, 36, "Output",ExpressionUUID->"9664e140-7937-2847-9db8-5c547f0b3905"] +}, Open ]], +Cell[32727, 982, 177, 3, 33, "Input",ExpressionUUID->"367c3fa5-a73f-344f-845d-961b336f4d46"], +Cell[CellGroupData[{ +Cell[32929, 989, 275, 6, 49, "Input",ExpressionUUID->"8d8efd6c-638a-1a42-9a07-7f11cd3c4e83"], +Cell[33207, 997, 360, 6, 36, "Output",ExpressionUUID->"088bfb6c-e28b-0c48-b707-632ceabf40c4"] +}, Open ]], +Cell[33582, 1006, 180, 3, 33, "Input",ExpressionUUID->"986c73f7-8560-cd4a-8414-8fa157076bcd"], +Cell[CellGroupData[{ +Cell[33787, 1013, 19814, 486, 1564, "Input",ExpressionUUID->"fc81cb86-dc5d-234b-90dc-01befa0d2354"], +Cell[53604, 1501, 406, 7, 36, "Output",ExpressionUUID->"686eadf7-df7c-df49-97a5-6fbe59efb139"] +}, Open ]], +Cell[CellGroupData[{ +Cell[54047, 1513, 19753, 490, 1590, "Input",ExpressionUUID->"82ef2f5e-29c0-8a48-9e9c-429d0ce776f2"], +Cell[73803, 2005, 396, 7, 36, "Output",ExpressionUUID->"7cc9b760-db60-a64c-bf97-0197e67e5fd8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[74236, 2017, 19753, 484, 1583, "Input",ExpressionUUID->"0a34c2da-ffdd-4d49-aadd-8fbf347080d1"], +Cell[93992, 2503, 418, 8, 36, "Output",ExpressionUUID->"0b90be3e-f1cd-2a4d-880e-45478f6832de"] +}, Open ]], +Cell[CellGroupData[{ +Cell[94447, 2516, 22539, 554, 1778, "Input",ExpressionUUID->"0b47fdba-5857-5042-9813-489e9e01fcb8"], +Cell[116989, 3072, 422, 8, 36, "Output",ExpressionUUID->"0e298add-0ecb-f249-9a7e-613378004461"] +}, Open ]], +Cell[CellGroupData[{ +Cell[117448, 3085, 22540, 554, 1784, "Input",ExpressionUUID->"6b4e7e51-a4a4-5046-bcc6-b4985ab3133c"], +Cell[139991, 3641, 420, 8, 36, "Output",ExpressionUUID->"8bf37379-0d8b-114d-bc43-49dfbbd64b57"] +}, Open ]], +Cell[CellGroupData[{ +Cell[140448, 3654, 25496, 627, 1995, "Input",ExpressionUUID->"104120e6-9442-3146-a14e-893a34d3e2ae"], +Cell[165947, 4283, 416, 8, 36, "Output",ExpressionUUID->"b1fc263d-299f-8f46-b4f9-8535227da29d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166400, 4296, 135, 3, 33, "Input",ExpressionUUID->"5f4a1870-ca76-0148-9445-c139b77d17e6"], +Cell[166538, 4301, 389, 7, 36, "Output",ExpressionUUID->"dc631fb6-6f2d-6b4a-bada-b47e4891e25b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166964, 4313, 135, 3, 33, "Input",ExpressionUUID->"bf36608e-3a41-9d4e-9975-c9a29ed56893"], +Cell[167102, 4318, 391, 7, 36, "Output",ExpressionUUID->"05eb3f7c-41c9-8646-be48-cc4a1e296578"] +}, Open ]], +Cell[CellGroupData[{ +Cell[167530, 4330, 1149, 40, 57, "Input",ExpressionUUID->"d6f6a0f4-8b00-474d-a186-5a3062af590c"], +Cell[168682, 4372, 400, 7, 36, "Output",ExpressionUUID->"fddf8bdf-f9bd-3c46-9715-74c862e0d07d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169119, 4384, 1046, 36, 57, "Input",ExpressionUUID->"b47804d5-7f1e-9549-b69a-a3f99dbcdbad"], +Cell[170168, 4422, 420, 8, 36, "Output",ExpressionUUID->"6747aa6d-4786-f64b-9c35-bcc5100296d3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170625, 4435, 1149, 40, 57, "Input",ExpressionUUID->"698c36f8-6b4c-f44b-ad8e-83fd3aede31a"], +Cell[171777, 4477, 402, 7, 36, "Output",ExpressionUUID->"58fe0885-04de-e848-b666-1cb90cacbe1e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172216, 4489, 113, 2, 33, "Input",ExpressionUUID->"26e08360-187b-be4e-a6a2-1ed01e706cc9"], +Cell[172332, 4493, 403, 7, 36, "Output",ExpressionUUID->"45a2a7a1-f6e9-7f4f-8b72-c7af94332838"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172772, 4505, 113, 2, 33, "Input",ExpressionUUID->"a891781b-aa40-6f46-96f7-4bfb5fd329fc"], +Cell[172888, 4509, 423, 8, 36, "Output",ExpressionUUID->"4e939564-a724-1241-b382-2ed1562ccdef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173348, 4522, 113, 2, 33, "Input",ExpressionUUID->"fed7420f-18a5-bc4c-b415-7a5cdb43f707"], +Cell[173464, 4526, 424, 8, 36, "Output",ExpressionUUID->"fdd78615-cc8a-b644-8af3-a4427464bd27"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173925, 4539, 113, 2, 33, "Input",ExpressionUUID->"02b016f6-7d34-1146-b008-bbc3852e43f0"], +Cell[174041, 4543, 402, 7, 36, "Output",ExpressionUUID->"ffdeedb1-9489-2b43-985d-5a8174881956"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174480, 4555, 112, 2, 33, "Input",ExpressionUUID->"6a211183-0ca3-074d-9bf4-f64020aaf3d6"], +Cell[174595, 4559, 401, 7, 36, "Output",ExpressionUUID->"7f41f7c9-3f7c-644a-a034-9364f141c2a7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175033, 4571, 112, 2, 33, "Input",ExpressionUUID->"20bdd366-9d07-4542-a165-b84f0310a4c8"], +Cell[175148, 4575, 403, 7, 36, "Output",ExpressionUUID->"dd529d82-775a-e44e-9c3c-1567bbd3e7e4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175588, 4587, 502, 17, 57, "Input",ExpressionUUID->"4772cd46-2466-0d42-8c6a-35e036dcbdc9"], +Cell[176093, 4606, 422, 8, 36, "Output",ExpressionUUID->"ff984ea0-1294-364f-8bf8-d722928857f2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176552, 4619, 502, 17, 57, "Input",ExpressionUUID->"96e4e48b-8a6c-df43-bdef-e8984c319123"], +Cell[177057, 4638, 413, 8, 36, "Output",ExpressionUUID->"618bdeba-819f-4d4a-be4d-764355779140"] +}, Open ]], +Cell[CellGroupData[{ +Cell[177507, 4651, 1793, 61, 120, "Input",ExpressionUUID->"01bca175-ab28-414f-aa32-3b0ab2383cac"], +Cell[179303, 4714, 397, 7, 36, "Output",ExpressionUUID->"afdfeb61-58d5-c048-bd64-49ffe1cccd32"] +}, Open ]], +Cell[CellGroupData[{ +Cell[179737, 4726, 1106, 37, 133, "Input",ExpressionUUID->"6fcfbee3-e475-8c4f-805b-cbe89d5088b2"], +Cell[180846, 4765, 422, 8, 32, "Output",ExpressionUUID->"17a5afe5-8190-8a4a-a090-d48decb730ec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181305, 4778, 1823, 62, 165, "Input",ExpressionUUID->"e0f35dcd-b6c9-3a4f-8cfa-25c42e489de0"], +Cell[183131, 4842, 404, 7, 32, "Output",ExpressionUUID->"bf5bfcf8-0a9c-1842-ba52-f56bd5d01773"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183572, 4854, 1636, 54, 164, "Input",ExpressionUUID->"e26ae6b3-264b-8448-8f90-c304ef77d072"], +Cell[185211, 4910, 406, 7, 32, "Output",ExpressionUUID->"eb575188-4fe4-6148-bd64-4b30eef2ca07"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185654, 4922, 1636, 54, 164, "Input",ExpressionUUID->"214d2709-cff2-0147-9b6b-c8addf97163e"], +Cell[187293, 4978, 401, 7, 32, "Output",ExpressionUUID->"6c2a8912-47b9-6d47-821d-bfdabd5cb5d9"] +}, Open ]], +Cell[187709, 4988, 190, 4, 28, "Input",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], +Cell[187902, 4994, 154, 3, 28, "Input",ExpressionUUID->"93cad80c-1de7-2e4b-9b8c-14a272e65d1f"], +Cell[188059, 4999, 193, 4, 28, "Input",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], +Cell[188255, 5005, 152, 3, 28, "Input",ExpressionUUID->"15fe72e6-19f0-9540-b29f-3056e2e0b957"], +Cell[CellGroupData[{ +Cell[188432, 5012, 1301, 43, 113, "Input",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], +Cell[189736, 5057, 178, 3, 32, "Output",ExpressionUUID->"1db85c02-7ca3-154e-854d-2c36f89709c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189951, 5065, 910, 31, 56, "Input",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], +Cell[190864, 5098, 175, 3, 32, "Output",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191076, 5106, 885, 30, 56, "Input",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], +Cell[191964, 5138, 177, 3, 32, "Output",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192178, 5146, 558, 19, 52, "Input",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], +Cell[192739, 5167, 173, 3, 32, "Output",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192949, 5175, 623, 21, 52, "Input",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], +Cell[193575, 5198, 170, 3, 32, "Output",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193782, 5206, 170, 5, 56, "Input",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], +Cell[193955, 5213, 173, 3, 32, "Output",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194165, 5221, 170, 5, 55, "Input",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], +Cell[194338, 5228, 170, 3, 32, "Output",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194545, 5236, 181, 5, 43, "Input",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], +Cell[194729, 5243, 171, 3, 32, "Output",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194937, 5251, 181, 5, 43, "Input",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], +Cell[195121, 5258, 173, 3, 32, "Output",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195331, 5266, 6055, 185, 498, "Input",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], +Cell[201389, 5453, 175, 3, 32, "Output",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201601, 5461, 368, 9, 42, "Input",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], +Cell[201972, 5472, 170, 3, 32, "Output",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202179, 5480, 6122, 187, 500, "Input",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], +Cell[208304, 5669, 175, 3, 32, "Output",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208516, 5677, 368, 9, 42, "Input",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], +Cell[208887, 5688, 172, 3, 32, "Output",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] +}, Open ]], +Cell[CellGroupData[{ +Cell[209096, 5696, 2663, 88, 187, "Input",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], +Cell[211762, 5786, 173, 3, 32, "Output",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[211972, 5794, 2603, 85, 165, "Input",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], +Cell[214578, 5881, 172, 3, 32, "Output",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] +}, Open ]], +Cell[CellGroupData[{ +Cell[214787, 5889, 3712, 118, 348, "Input",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], +Cell[218502, 6009, 174, 3, 32, "Output",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] +}, Open ]], +Cell[218691, 6015, 138, 3, 42, "Input",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], +Cell[CellGroupData[{ +Cell[218854, 6022, 2052, 59, 228, "Input",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], +Cell[220909, 6083, 524, 11, 60, "Message",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], +Cell[221436, 6096, 526, 11, 60, "Message",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], +Cell[221965, 6109, 530, 11, 60, "Message",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], +Cell[222498, 6122, 455, 10, 26, "Message",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], +Cell[222956, 6134, 172, 3, 32, "Output",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] +}, Open ]], +Cell[CellGroupData[{ +Cell[223165, 6142, 2054, 59, 228, "Input",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], +Cell[225222, 6203, 524, 11, 60, "Message",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], +Cell[225749, 6216, 526, 11, 60, "Message",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], +Cell[226278, 6229, 528, 11, 60, "Message",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], +Cell[226809, 6242, 456, 10, 26, "Message",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], +Cell[227268, 6254, 170, 3, 32, "Output",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] +}, Open ]], +Cell[CellGroupData[{ +Cell[227475, 6262, 1938, 53, 115, "Input",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], +Cell[229416, 6317, 19981, 375, 230, "Output",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[249434, 6697, 2092, 60, 211, "Input",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], +Cell[251529, 6759, 490, 11, 60, "Message",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], +Cell[252022, 6772, 493, 11, 60, "Message",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], +Cell[252518, 6785, 508, 11, 27, "Message",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], +Cell[253029, 6798, 456, 10, 26, "Message",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], +Cell[253488, 6810, 61603, 1057, 233, "Output",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] +}, Open ]], +Cell[315106, 7870, 2455, 69, 158, "Input",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], +Cell[317564, 7941, 209, 5, 42, "Input",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], +Cell[CellGroupData[{ +Cell[317798, 7950, 217, 7, 48, "Input",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], +Cell[318018, 7959, 169, 3, 32, "Output",ExpressionUUID->"07374b0a-4615-bf46-ab49-be8623cec410"] +}, Open ]], +Cell[CellGroupData[{ +Cell[318224, 7967, 1816, 53, 183, "Input",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], +Cell[320043, 8022, 502, 11, 60, "Message",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], +Cell[320548, 8035, 506, 11, 60, "Message",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], +Cell[321057, 8048, 509, 11, 60, "Message",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], +Cell[321569, 8061, 456, 10, 26, "Message",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], +Cell[322028, 8073, 28560, 514, 233, "Output",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[350625, 8592, 1616, 48, 70, "Input",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], +Cell[352244, 8642, 576, 12, 70, "Message",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], +Cell[352823, 8656, 582, 12, 70, "Message",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], +Cell[353408, 8670, 584, 12, 70, "Message",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], +Cell[353995, 8684, 458, 10, 70, "Message",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], +Cell[354456, 8696, 170, 3, 70, "Output",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[354663, 8704, 2247, 64, 70, "Input",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], +Cell[356913, 8770, 522, 11, 70, "Message",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], +Cell[357438, 8783, 526, 11, 70, "Message",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], +Cell[357967, 8796, 528, 11, 70, "Message",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], +Cell[358498, 8809, 458, 10, 70, "Message",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], +Cell[358959, 8821, 175, 3, 70, "Output",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] +}, Open ]], +Cell[CellGroupData[{ +Cell[359171, 8829, 2221, 64, 70, "Input",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], +Cell[361395, 8895, 522, 11, 70, "Message",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], +Cell[361920, 8908, 524, 11, 70, "Message",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], +Cell[362447, 8921, 528, 11, 70, "Message",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], +Cell[362978, 8934, 458, 10, 70, "Message",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], +Cell[363439, 8946, 170, 3, 70, "Output",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[363646, 8954, 2221, 64, 70, "Input",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], +Cell[365870, 9020, 524, 11, 70, "Message",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], +Cell[366397, 9033, 526, 11, 70, "Message",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], +Cell[366926, 9046, 530, 11, 70, "Message",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], +Cell[367459, 9059, 458, 10, 70, "Message",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], +Cell[367920, 9071, 171, 3, 70, "Output",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] +}, Open ]], +Cell[CellGroupData[{ +Cell[368128, 9079, 215, 6, 70, "Input",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], +Cell[368346, 9087, 175, 3, 70, "Output",ExpressionUUID->"96bb6c6a-f128-024e-85ce-f8a6083a68c6"] +}, Open ]], +Cell[368536, 9093, 245, 5, 70, "Input",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], +Cell[CellGroupData[{ +Cell[368806, 9102, 558, 19, 70, "Input",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], +Cell[369367, 9123, 172, 3, 70, "Output",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] +}, Open ]], +Cell[CellGroupData[{ +Cell[369576, 9131, 170, 5, 70, "Input",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], +Cell[369749, 9138, 172, 3, 70, "Output",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[369958, 9146, 181, 5, 70, "Input",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], +Cell[370142, 9153, 172, 3, 70, "Output",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] +}, Open ]], +Cell[CellGroupData[{ +Cell[370351, 9161, 6055, 185, 70, "Input",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], +Cell[376409, 9348, 174, 3, 70, "Output",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[376620, 9356, 368, 9, 70, "Input",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], +Cell[376991, 9367, 173, 3, 70, "Output",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] +}, Open ]], +Cell[CellGroupData[{ +Cell[377201, 9375, 6122, 187, 70, "Input",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], +Cell[383326, 9564, 175, 3, 70, "Output",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[383538, 9572, 368, 9, 70, "Input",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], +Cell[383909, 9583, 170, 3, 70, "Output",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[384116, 9591, 2663, 88, 70, "Input",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], +Cell[386782, 9681, 173, 3, 70, "Output",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] +}, Open ]], +Cell[CellGroupData[{ +Cell[386992, 9689, 2603, 85, 70, "Input",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], +Cell[389598, 9776, 172, 3, 70, "Output",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] +}, Open ]], +Cell[CellGroupData[{ +Cell[389807, 9784, 3712, 118, 70, "Input",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], +Cell[393522, 9904, 174, 3, 70, "Output",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] +}, Open ]], +Cell[CellGroupData[{ +Cell[393733, 9912, 2052, 59, 70, "Input",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], +Cell[395788, 9973, 574, 12, 70, "Message",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], +Cell[396365, 9987, 580, 12, 70, "Message",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], +Cell[396948, 10001, 582, 12, 70, "Message",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], +Cell[397533, 10015, 456, 10, 70, "Message",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], +Cell[397992, 10027, 171, 3, 70, "Output",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] +}, Open ]], +Cell[CellGroupData[{ +Cell[398200, 10035, 2054, 59, 70, "Input",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], +Cell[400257, 10096, 574, 12, 70, "Message",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], +Cell[400834, 10110, 578, 12, 70, "Message",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], +Cell[401415, 10124, 582, 12, 70, "Message",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], +Cell[402000, 10138, 458, 10, 70, "Message",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], +Cell[402461, 10150, 169, 3, 70, "Output",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[402667, 10158, 2030, 55, 70, "Input",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], +Cell[404700, 10215, 20326, 381, 70, "Output",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] +}, Open ]], +Cell[425041, 10599, 2144, 61, 70, "Input",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], +Cell[427188, 10662, 138, 3, 70, "Input",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], +Cell[CellGroupData[{ +Cell[427351, 10669, 1616, 48, 70, "Input",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], +Cell[428970, 10719, 592, 12, 70, "Message",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], +Cell[429565, 10733, 597, 12, 70, "Message",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], +Cell[430165, 10747, 599, 12, 70, "Message",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], +Cell[430767, 10761, 458, 10, 70, "Message",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], +Cell[431228, 10773, 172, 3, 70, "Output",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[431437, 10781, 2249, 64, 70, "Input",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], +Cell[433689, 10847, 576, 12, 70, "Message",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], +Cell[434268, 10861, 580, 12, 70, "Message",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], +Cell[434851, 10875, 582, 12, 70, "Message",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], +Cell[435436, 10889, 456, 10, 70, "Message",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], +Cell[435895, 10901, 171, 3, 70, "Output",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] +}, Open ]], +Cell[CellGroupData[{ +Cell[436103, 10909, 2223, 64, 70, "Input",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], +Cell[438329, 10975, 574, 12, 70, "Message",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], +Cell[438906, 10989, 578, 12, 70, "Message",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], +Cell[439487, 11003, 580, 12, 70, "Message",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], +Cell[440070, 11017, 458, 10, 70, "Message",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], +Cell[440531, 11029, 173, 3, 70, "Output",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[440741, 11037, 2221, 64, 70, "Input",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], +Cell[442965, 11103, 574, 12, 70, "Message",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], +Cell[443542, 11117, 578, 12, 70, "Message",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], +Cell[444123, 11131, 582, 12, 70, "Message",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], +Cell[444708, 11145, 455, 10, 70, "Message",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], +Cell[445166, 11157, 170, 3, 70, "Output",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] +}, Open ]], +Cell[CellGroupData[{ +Cell[445373, 11165, 215, 6, 70, "Input",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], +Cell[445591, 11173, 174, 3, 70, "Output",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] +}, Open ]], +Cell[445780, 11179, 249, 5, 70, "Input",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], +Cell[CellGroupData[{ +Cell[446054, 11188, 558, 19, 70, "Input",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], +Cell[446615, 11209, 169, 3, 70, "Output",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] +}, Open ]], +Cell[CellGroupData[{ +Cell[446821, 11217, 170, 5, 70, "Input",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], +Cell[446994, 11224, 173, 3, 70, "Output",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] +}, Open ]], +Cell[CellGroupData[{ +Cell[447204, 11232, 181, 5, 70, "Input",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], +Cell[447388, 11239, 173, 3, 70, "Output",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] +}, Open ]], +Cell[CellGroupData[{ +Cell[447598, 11247, 6055, 185, 70, "Input",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], +Cell[453656, 11434, 174, 3, 70, "Output",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[453867, 11442, 368, 9, 70, "Input",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], +Cell[454238, 11453, 172, 3, 70, "Output",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[454447, 11461, 6122, 187, 70, "Input",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], +Cell[460572, 11650, 172, 3, 70, "Output",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[460781, 11658, 368, 9, 70, "Input",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], +Cell[461152, 11669, 170, 3, 70, "Output",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] +}, Open ]], +Cell[CellGroupData[{ +Cell[461359, 11677, 2663, 88, 70, "Input",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], +Cell[464025, 11767, 173, 3, 70, "Output",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] +}, Open ]], +Cell[CellGroupData[{ +Cell[464235, 11775, 2603, 85, 70, "Input",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], +Cell[466841, 11862, 172, 3, 70, "Output",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] +}, Open ]], +Cell[CellGroupData[{ +Cell[467050, 11870, 3712, 118, 70, "Input",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], +Cell[470765, 11990, 172, 3, 70, "Output",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] +}, Open ]], +Cell[CellGroupData[{ +Cell[470974, 11998, 2052, 59, 70, "Input",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], +Cell[473029, 12059, 573, 12, 70, "Message",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], +Cell[473605, 12073, 573, 12, 70, "Message",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], +Cell[474181, 12087, 579, 12, 70, "Message",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], +Cell[474763, 12101, 458, 10, 70, "Message",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], +Cell[475224, 12113, 170, 3, 70, "Output",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[475431, 12121, 2052, 59, 70, "Input",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], +Cell[477486, 12182, 573, 12, 70, "Message",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], +Cell[478062, 12196, 575, 12, 70, "Message",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], +Cell[478640, 12210, 579, 12, 70, "Message",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], +Cell[479222, 12224, 458, 10, 70, "Message",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], +Cell[479683, 12236, 169, 3, 70, "Output",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[479889, 12244, 2028, 55, 70, "Input",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], +Cell[481920, 12301, 20296, 381, 70, "Output",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] +}, Open ]], +Cell[CellGroupData[{ +Cell[502253, 12687, 2146, 61, 70, "Input",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], +Cell[504402, 12750, 500, 11, 70, "Message",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], +Cell[504905, 12763, 505, 11, 70, "Message",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], +Cell[505413, 12776, 509, 11, 70, "Message",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], +Cell[505925, 12789, 458, 10, 70, "Message",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], +Cell[506386, 12801, 39609, 697, 70, "Output",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] +}, Open ]], +Cell[546010, 13501, 209, 5, 70, "Input",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], +Cell[CellGroupData[{ +Cell[546244, 13510, 1616, 48, 70, "Input",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], +Cell[547863, 13560, 589, 12, 70, "Message",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], +Cell[548455, 13574, 595, 12, 70, "Message",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], +Cell[549053, 13588, 596, 12, 70, "Message",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], +Cell[549652, 13602, 458, 10, 70, "Message",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], +Cell[550113, 13614, 171, 3, 70, "Output",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[550321, 13622, 2249, 64, 70, "Input",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], +Cell[552573, 13688, 573, 12, 70, "Message",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], +Cell[553149, 13702, 573, 12, 70, "Message",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], +Cell[553725, 13716, 579, 12, 70, "Message",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], +Cell[554307, 13730, 458, 10, 70, "Message",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], +Cell[554768, 13742, 174, 3, 70, "Output",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[554979, 13750, 2221, 64, 70, "Input",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], +Cell[557203, 13816, 573, 12, 70, "Message",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], +Cell[557779, 13830, 575, 12, 70, "Message",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], +Cell[558357, 13844, 577, 12, 70, "Message",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], +Cell[558937, 13858, 456, 10, 70, "Message",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], +Cell[559396, 13870, 172, 3, 70, "Output",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[559605, 13878, 2219, 64, 70, "Input",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], +Cell[561827, 13944, 571, 12, 70, "Message",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], +Cell[562401, 13958, 573, 12, 70, "Message",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], +Cell[562977, 13972, 579, 12, 70, "Message",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], +Cell[563559, 13986, 458, 10, 70, "Message",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], +Cell[564020, 13998, 172, 3, 70, "Output",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[564229, 14006, 211, 6, 70, "Input",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], +Cell[564443, 14014, 174, 3, 70, "Output",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/146-94_h_Pu240_702-703/h_146-94_Pu240_702-703_gid_Qw2.nb b/templates/P240_2-51_YakuninDA/146-94_h_Pu240_702-703/h_146-94_Pu240_702-703_gid_Qw2.nb new file mode 100755 index 0000000..3830183 --- /dev/null +++ b/templates/P240_2-51_YakuninDA/146-94_h_Pu240_702-703/h_146-94_Pu240_702-703_gid_Qw2.nb @@ -0,0 +1,13206 @@ +(* 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[ 447886, 13198] +NotebookOptionsPosition[ 409451, 12583] +NotebookOutlinePosition[ 409875, 12600] +CellTagsIndexPosition[ 409832, 12597] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "3.0056"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.9920925094547043`*^9, 3.992092603972748*^9}, { + 3.99209277866609*^9, 3.992092956660898*^9}, {3.9920929879335823`*^9, + 3.992093071903801*^9}, {3.9920931132016296`*^9, + 3.992093115787756*^9}},ExpressionUUID->"006ead85-8306-184c-9cf9-\ +ba2a0e3785f9"], + +Cell[BoxData["3.0051`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.9920924236975746`*^9, {3.992092517168955*^9, + 3.9920926155774384`*^9}, {3.992092795486683*^9, 3.9920929647336235`*^9}, { + 3.992092996301258*^9, 3.9920930199257812`*^9}, {3.9920930563804474`*^9, + 3.992093082514656*^9}}, + CellLabel-> + "Out[1549]=",ExpressionUUID->"943f12aa-a463-6943-a141-2fd0416784be"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.9920923210744896`*^9, 3.992092321332884*^9}}, + CellLabel-> + "In[1550]:=",ExpressionUUID->"d9826539-0f54-2a4b-8c39-c0f51b690b35"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.992092423865034*^9, {3.9920925172234726`*^9, + 3.9920926156103096`*^9}, {3.9920927955256996`*^9, + 3.9920929647669086`*^9}, {3.9920929963357506`*^9, + 3.9920930199606743`*^9}, {3.9920930564144154`*^9, 3.9920930825586586`*^9}}, + CellLabel-> + "Out[1550]=",ExpressionUUID->"dd3e9ba7-b753-da4c-b74b-87d4cacedcdb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "146"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.9920923255017357`*^9, 3.9920923262853394`*^9}}, + CellLabel-> + "In[1551]:=",ExpressionUUID->"f4d46eb5-8e85-f54c-bcfa-5f01b55140ff"], + +Cell[BoxData["146"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.9920924238884373`*^9, {3.9920925172304897`*^9, + 3.992092615631912*^9}, {3.9920927955507774`*^9, 3.992092964789009*^9}, { + 3.992092996365631*^9, 3.9920930199827785`*^9}, {3.9920930564344254`*^9, + 3.9920930825825768`*^9}}, + CellLabel-> + "Out[1551]=",ExpressionUUID->"975fb571-1104-eb41-8c68-6baeee0c5acb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[1552]:=",ExpressionUUID->"00a8142b-863c-3c4d-b8c1-eddd70076387"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.9920924238954353`*^9, {3.9920925172532406`*^9, + 3.9920926156550407`*^9}, {3.9920927955573063`*^9, 3.992092964816601*^9}, { + 3.9920929963885365`*^9, 3.9920930200069942`*^9}, {3.992093056453413*^9, + 3.9920930826118507`*^9}}, + CellLabel-> + "Out[1552]=",ExpressionUUID->"39430a22-5429-774a-9068-19bf797353bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[1553]:=",ExpressionUUID->"d36b1234-cf68-0541-9c24-eeaecf17b193"], + +Cell[BoxData["0.5467500000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.9920924239191437`*^9, {3.9920925172603703`*^9, + 3.992092615662058*^9}, {3.9920927955817127`*^9, 3.9920929648444843`*^9}, { + 3.9920929963955345`*^9, 3.992093020037792*^9}, {3.9920930564614754`*^9, + 3.9920930826384926`*^9}}, + CellLabel-> + "Out[1553]=",ExpressionUUID->"57724f59-28e0-1046-9015-8acc6050c8d3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[1554]:=",ExpressionUUID->"751b5019-f897-194c-95bd-9a2b26be338f"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9920924239261475`*^9, {3.9920925172823544`*^9, + 3.9920926156868935`*^9}, {3.9920927955889683`*^9, 3.992092964851986*^9}, { + 3.9920929964025364`*^9, 3.9920930200579166`*^9}, {3.9920930564844856`*^9, + 3.9920930826454887`*^9}}, + CellLabel-> + "Out[1554]=",ExpressionUUID->"d1273b42-1183-5641-8f64-9bf8adc82736"] +}, 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[1555]:=",ExpressionUUID->"e87e4319-dc7b-f841-97ec-6ea56dbc43ac"], + +Cell[BoxData["6.108139416678866`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.9920924239531574`*^9, {3.9920925172885056`*^9, + 3.992092615694437*^9}, {3.992092795615612*^9, 3.9920929648785057`*^9}, { + 3.99209299642354*^9, 3.992093020080536*^9}, {3.992093056491602*^9, + 3.9920930826684914`*^9}}, + CellLabel-> + "Out[1555]=",ExpressionUUID->"92e9db64-b384-5c4a-8840-8a0f29768b37"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[1556]:=",ExpressionUUID->"569f2821-80ae-9945-911b-2704afbe0d33"], + +Cell[BoxData["5.274329694780558`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.992092423960186*^9, {3.9920925173151093`*^9, + 3.9920926157185707`*^9}, {3.9920927956217175`*^9, 3.992092964906679*^9}, { + 3.9920929964335346`*^9, 3.9920930200885353`*^9}, {3.9920930565104904`*^9, + 3.992093082689234*^9}}, + CellLabel-> + "Out[1556]=",ExpressionUUID->"183acc35-1286-3249-b637-ba5a93f6ecaf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.776889591781461"}]], "Input", + CellChangeTimes->{3.991799283179735*^9, 3.9920923337072887`*^9}, + CellLabel-> + "In[1557]:=",ExpressionUUID->"ca48b73a-40c5-6a44-a86e-529f3ceb521e"], + +Cell[BoxData["0.776889591781461`"], "Output", + CellChangeTimes->{ + 3.992092423990343*^9, {3.9920925173221264`*^9, 3.9920926157241497`*^9}, { + 3.9920927956457157`*^9, 3.992092964933693*^9}, {3.992092996453539*^9, + 3.992093020113638*^9}, {3.992093056528507*^9, 3.992093082697235*^9}}, + CellLabel-> + "Out[1557]=",ExpressionUUID->"eebe8400-259a-a543-b1aa-72999b3cbf7d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.581407431720797"}]], "Input", + CellChangeTimes->{3.991799280663351*^9, 3.9920923380503464`*^9}, + CellLabel-> + "In[1558]:=",ExpressionUUID->"9b1b8831-fc25-3b4a-9de5-ec4e9f8f556a"], + +Cell[BoxData["0.581407431720797`"], "Output", + CellChangeTimes->{ + 3.992092424013666*^9, {3.9920925173471737`*^9, 3.992092615731226*^9}, { + 3.992092795652767*^9, 3.9920929649666996`*^9}, {3.9920929964595814`*^9, + 3.9920930201207066`*^9}, {3.992093056549488*^9, 3.9920930827184944`*^9}}, + CellLabel-> + "Out[1558]=",ExpressionUUID->"f10d2034-fe56-c34a-8e6d-5067109d9692"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[1559]:=",ExpressionUUID->"6a66ad91-a8b0-1c46-9aab-62de4687b8c6"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.992092424022188*^9, {3.9920925173531837`*^9, + 3.9920926157588634`*^9}, {3.9920927956776123`*^9, + 3.9920929649736977`*^9}, {3.9920929964887676`*^9, + 3.9920930201447144`*^9}, {3.9920930565736217`*^9, 3.9920930827473965`*^9}}, + CellLabel-> + "Out[1559]=",ExpressionUUID->"6c1b58cc-3a51-6345-b3ed-364ae4c90833"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[1560]:=",ExpressionUUID->"6555ad1a-a49a-f74e-95ac-b5fb1c44fadd"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.99209242405435*^9, {3.9920925173801575`*^9, + 3.9920926157839546`*^9}, {3.992092795683565*^9, 3.992092964980709*^9}, { + 3.992092996494766*^9, 3.9920930201517143`*^9}, {3.992093056593773*^9, + 3.992093082771408*^9}}, + CellLabel-> + "Out[1560]=",ExpressionUUID->"8a1b4a7f-8124-a24b-b96f-c83d3501fc04"] +}, 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[1561]:=",ExpressionUUID->"b56440d6-6089-c043-80f0-341c2c5a28f5"], + +Cell[BoxData["2.0397870167233085`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.9920924240852013`*^9, {3.992092517402384*^9, + 3.992092615814083*^9}, {3.9920927957096004`*^9, 3.9920929650027065`*^9}, { + 3.992092996519766*^9, 3.992093020174679*^9}, {3.99209305660058*^9, + 3.992093082802458*^9}}, + CellLabel-> + "Out[1561]=",ExpressionUUID->"e9ad3bfa-6ed1-bb4a-b8e5-f0fabc435c6f"] +}, 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[1562]:=",ExpressionUUID->"08ff12e8-a3da-6646-9615-f5a0af2dddfd"], + +Cell[BoxData["1.6965844703854613`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.992092424111204*^9, {3.9920925174282036`*^9, + 3.9920926158210907`*^9}, {3.9920927957326183`*^9, + 3.9920929650108223`*^9}, {3.9920929965277767`*^9, + 3.9920930201817207`*^9}, {3.9920930566225815`*^9, 3.9920930828307343`*^9}}, + CellLabel-> + "Out[1562]=",ExpressionUUID->"c2b67a1f-33d6-9144-a766-f3b4316c79cf"] +}, 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[1563]:=",ExpressionUUID->"49f89727-8379-964a-92cb-1fadf7684a84"], + +Cell[BoxData["0.4525799206818347`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.992092424119274*^9, {3.9920925174510517`*^9, + 3.992092615844631*^9}, {3.992092795759413*^9, 3.9920929650365314`*^9}, { + 3.992092996561762*^9, 3.992093020204855*^9}, {3.99209305664777*^9, + 3.9920930828387337`*^9}}, + CellLabel-> + "Out[1563]=",ExpressionUUID->"3ebce010-494a-f049-afdd-c58561b3c591"] +}, 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[1564]:=",ExpressionUUID->"7886337e-6308-d34f-8dde-222d6a38c841"], + +Cell[BoxData[ + RowBox[{"-", "0.14627901466132107`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.992092424141165*^9, {3.9920925174730873`*^9, + 3.9920926158522587`*^9}, {3.9920927957819347`*^9, + 3.9920929650445366`*^9}, {3.9920929965907135`*^9, 3.992093020211878*^9}, { + 3.9920930566693344`*^9, 3.992093082863735*^9}}, + CellLabel-> + "Out[1564]=",ExpressionUUID->"3b2ddeb7-e38c-b646-bdbd-5cb55318865e"] +}, 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[1565]:=",ExpressionUUID->"036b4302-d6f3-2641-a002-9ac2e00a363d"], + +Cell[BoxData[ + RowBox[{"-", "0.3067897746750185`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.992092424148676*^9, {3.9920925174800377`*^9, + 3.9920926158790665`*^9}, {3.9920927957879353`*^9, 3.992092965067564*^9}, { + 3.9920929966195316`*^9, 3.992093020237875*^9}, {3.992093056689333*^9, + 3.992093082887562*^9}}, + CellLabel-> + "Out[1565]=",ExpressionUUID->"ce769bfb-c8a0-154d-90b1-a372d6cb581f"] +}, 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[1566]:=",ExpressionUUID->"0991c9f0-d2f3-784e-b149-f010b7a1f664"], + +Cell[BoxData["0.5588619635695797`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9920924241740017`*^9, {3.992092517506195*^9, + 3.992092615886593*^9}, {3.992092795809948*^9, 3.9920929650908546`*^9}, { + 3.992092996646963*^9, 3.9920930202454033`*^9}, {3.9920930566973324`*^9, + 3.9920930829164524`*^9}}, + CellLabel-> + "Out[1566]=",ExpressionUUID->"0db5ab32-4133-9843-bab5-49e7ec77aeff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[1567]:=",ExpressionUUID->"8fd131ab-0e46-a64c-b230-4a781edc1c09"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9920924241809826`*^9, {3.9920925175332184`*^9, + 3.9920926159109*^9}, {3.992092795831953*^9, 3.9920929651138535`*^9}, { + 3.992092996668474*^9, 3.992093020272644*^9}, {3.992093056717905*^9, + 3.9920930829486275`*^9}}, + CellLabel-> + "Out[1567]=",ExpressionUUID->"2f795872-8b42-8c43-bc77-d6582bc164cc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "In[1568]:=",ExpressionUUID->"ed56b68b-4faf-4f45-9924-80bb8af504d7"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.992092424206465*^9, {3.9920925175399876`*^9, + 3.9920926159344234`*^9}, {3.992092795838951*^9, 3.9920929651357594`*^9}, { + 3.9920929966934986`*^9, 3.99209302029665*^9}, {3.99209305672542*^9, + 3.9920930829716263`*^9}}, + CellLabel-> + "Out[1568]=",ExpressionUUID->"07b17bad-4f49-a640-810c-3669df09b42e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel-> + "In[1569]:=",ExpressionUUID->"00dd8a0f-4180-474b-83ef-74643d480dfa"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.992092424234129*^9, {3.992092517566017*^9, + 3.9920926159586544`*^9}, {3.9920927958609962`*^9, + 3.9920929651594734`*^9}, {3.992092996718672*^9, 3.992093020305662*^9}, { + 3.9920930567515335`*^9, 3.992093082996649*^9}}, + CellLabel-> + "Out[1569]=",ExpressionUUID->"f8825435-cf9d-d140-a03c-aab85ca1cf8f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[1570]:=",ExpressionUUID->"5009ece6-02af-004b-9076-c684ccd61cee"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.992092424266348*^9, {3.992092517574074*^9, + 3.992092615965214*^9}, {3.992092795889517*^9, 3.9920929651855907`*^9}, { + 3.992092996726671*^9, 3.9920930203267136`*^9}, {3.992093056776457*^9, + 3.992093083021673*^9}}, + CellLabel-> + "Out[1570]=",ExpressionUUID->"968123b4-1f2c-bc40-970f-8d59a4609e4f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[1571]:=",ExpressionUUID->"987cf838-4b8e-0f45-bcd8-26628a9334e4"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.992092424273369*^9, {3.9920925176013985`*^9, + 3.992092615998451*^9}, {3.992092795897524*^9, 3.99209296519359*^9}, { + 3.992092996750679*^9, 3.9920930203537235`*^9}, {3.992093056799759*^9, + 3.992093083046667*^9}}, + CellLabel-> + "Out[1571]=",ExpressionUUID->"f5ae9dc3-e10e-0442-8064-1edd74a63d4a"] +}, 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.992092352631197*^9}, + CellLabel-> + "In[1572]:=",ExpressionUUID->"45d2fc15-48c6-314f-98ce-fbc253b0d6b8"], + +Cell[BoxData["64"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.992092424299999*^9, {3.992092517624138*^9, + 3.9920926160050697`*^9}, {3.992092795920538*^9, 3.992092965218601*^9}, { + 3.992092996757696*^9, 3.992093020374735*^9}, {3.9920930568097687`*^9, + 3.992093083054676*^9}}, + CellLabel-> + "Out[1572]=",ExpressionUUID->"280d39da-4c31-1842-bd6f-72fe0951d45b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, 3.9920923570474358`*^9}, + CellLabel-> + "In[1573]:=",ExpressionUUID->"64bd52e9-9be2-284f-8aa1-a1548a04e97d"], + +Cell[BoxData["30"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.9920924243070126`*^9, {3.99209251763118*^9, + 3.992092616031456*^9}, {3.9920927959265404`*^9, 3.992092965225622*^9}, { + 3.9920929967776775`*^9, 3.992093020382736*^9}, {3.9920930568337727`*^9, + 3.992093083077688*^9}}, + CellLabel-> + "Out[1573]=",ExpressionUUID->"dd975983-a3e2-f347-845c-500cc7c62a7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[1574]:=",ExpressionUUID->"37fcb097-2b05-5a47-9dc8-9e3b4f595568"], + +Cell[BoxData["94"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.992092424333185*^9, {3.992092517655279*^9, + 3.9920926160390186`*^9}, {3.992092795952633*^9, 3.992092965246483*^9}, { + 3.992092996803364*^9, 3.9920930204057865`*^9}, {3.992093056858282*^9, + 3.992093083085678*^9}}, + CellLabel-> + "Out[1574]=",ExpressionUUID->"73fb6306-d88a-c74f-b2ae-fc1acc4cd4d6"] +}, 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[1575]:=",ExpressionUUID->"2d6e3f60-0fe4-f846-971d-bfd9d442de9f"], + +Cell[BoxData["0.10872923345963276`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9920924243572235`*^9, {3.992092517667328*^9, + 3.9920926160661354`*^9}, {3.9920927959597607`*^9, 3.992092965273592*^9}, { + 3.992092996828369*^9, 3.9920930204138546`*^9}, {3.992093056866806*^9, + 3.992093083111456*^9}}, + CellLabel-> + "Out[1575]=",ExpressionUUID->"dedd573d-b5c2-1f44-ac6d-b22025936100"] +}, 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[1576]:=",ExpressionUUID->"8f6d95bd-8068-994b-9b57-cf0887bdd3be"], + +Cell[BoxData[ + RowBox[{"-", "2.565919556980472`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.9920924243811493`*^9, {3.9920925176941147`*^9, + 3.992092616073208*^9}, {3.9920927959847507`*^9, 3.9920929652985916`*^9}, { + 3.992092996836376*^9, 3.9920930204444256`*^9}, {3.9920930568897095`*^9, + 3.9920930831194363`*^9}}, + CellLabel-> + "Out[1576]=",ExpressionUUID->"156186d7-6c2b-9a4f-aca2-ba3f4e32d980"] +}, 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[1577]:=",ExpressionUUID->"f55b82ac-d751-6a40-8e60-8925fae7deac"], + +Cell[BoxData["18.87992353524718`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.9920924244051456`*^9, {3.9920925177193546`*^9, + 3.992092616100073*^9}, {3.9920927959917564`*^9, 3.992092965308607*^9}, { + 3.9920929968593845`*^9, 3.992093020467409*^9}, {3.9920930569185905`*^9, + 3.992093083142683*^9}}, + CellLabel-> + "Out[1577]=",ExpressionUUID->"4fc730d1-6536-dd49-82e9-ca4603451ee2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[1578]:=",ExpressionUUID->"7a218fb1-2c01-8b44-b6cf-9afd0e06191b"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.992092424412163*^9, {3.9920925177291546`*^9, + 3.992092616126276*^9}, {3.992092796015764*^9, 3.9920929653326607`*^9}, { + 3.9920929968708153`*^9, 3.992093020496603*^9}, {3.992093056938593*^9, + 3.9920930831506824`*^9}}, + CellLabel-> + "Out[1578]=",ExpressionUUID->"7d008a7a-9a14-1049-b1e7-dc531c0dde8a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.362"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, + 3.9920923643154297`*^9}, + CellLabel-> + "In[1579]:=",ExpressionUUID->"a181831b-55c5-c243-97b5-33e0215a12c4"], + +Cell[BoxData["1.362`"], "Output", + CellChangeTimes->{ + 3.9920924244360676`*^9, {3.992092517751152*^9, 3.9920926161342983`*^9}, { + 3.992092796022789*^9, 3.9920929653398457`*^9}, {3.9920929968917847`*^9, + 3.9920930205193768`*^9}, {3.992093056964657*^9, 3.9920930831736813`*^9}}, + CellLabel-> + "Out[1579]=",ExpressionUUID->"68b0f725-0c82-7f48-a1b1-b47c9ec19b8a"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[1580]:=",ExpressionUUID->"4bb7434d-3229-4b4c-a14e-784954720692"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.795"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, + 3.992092367948057*^9}, + CellLabel-> + "In[1581]:=",ExpressionUUID->"eff246ab-8712-d844-af06-efa5c86c153f"], + +Cell[BoxData["0.795`"], "Output", + CellChangeTimes->{ + 3.9920924244671745`*^9, {3.9920925177601814`*^9, 3.9920926161603107`*^9}, { + 3.9920927960489674`*^9, 3.9920929653658905`*^9}, {3.992092996901783*^9, + 3.9920930205454807`*^9}, {3.992093056990692*^9, 3.9920930831836834`*^9}}, + CellLabel-> + "Out[1581]=",ExpressionUUID->"a78aceab-bfcf-9d4b-94ab-fd9f5883e99c"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[1582]:=",ExpressionUUID->"c9666c4e-d4af-fc41-90c2-92c4230760bd"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv1", "=", "2.204"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, + 3.9920923714363804`*^9}, + CellLabel-> + "In[1583]:=",ExpressionUUID->"065254e4-0118-5544-b8a7-56fd9a71b054"], + +Cell[BoxData["2.204`"], "Output", + CellChangeTimes->{ + 3.9920924244911957`*^9, {3.992092517786337*^9, 3.9920926161872025`*^9}, { + 3.992092796077503*^9, 3.9920929653893967`*^9}, {3.9920929969247704`*^9, + 3.992093020555729*^9}, {3.9920930570177917`*^9, 3.992093083208723*^9}}, + CellLabel-> + "Out[1583]=",ExpressionUUID->"689b23c7-dc74-cb4a-84f5-67819b8a408f"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[1584]:=",ExpressionUUID->"ecd9ff0d-3d88-b048-92ca-96273c4ccb9d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.070"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, 3.9920923750354595`*^9}, + CellLabel-> + "In[1585]:=",ExpressionUUID->"e9792ddf-74cf-ca43-85ba-093f30cb5c6c"], + +Cell[BoxData["1.07`"], "Output", + CellChangeTimes->{ + 3.9920924245191975`*^9, {3.9920925178121643`*^9, 3.9920926162159557`*^9}, { + 3.992092796104519*^9, 3.9920929654147778`*^9}, {3.9920929969487724`*^9, + 3.992093020581457*^9}, {3.9920930570267944`*^9, 3.992093083235735*^9}}, + CellLabel-> + "Out[1585]=",ExpressionUUID->"dcca3e55-c1a3-2d47-9a3e-6b0e100bd940"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[1586]:=",ExpressionUUID->"d3bd7621-3882-a74c-a6dd-b05ea07241a9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"v2", "=", "0.938"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, 3.992092378674286*^9}, + CellLabel-> + "In[1587]:=",ExpressionUUID->"8b549441-0f23-ac44-8ff0-8a09fc4c1740"], + +Cell[BoxData["0.938`"], "Output", + CellChangeTimes->{ + 3.9920924245433064`*^9, {3.9920925178372326`*^9, 3.9920926162431374`*^9}, { + 3.992092796130512*^9, 3.9920929654385223`*^9}, {3.992092996973612*^9, + 3.992093020606451*^9}, {3.992093057050337*^9, 3.9920930832457333`*^9}}, + CellLabel-> + "Out[1587]=",ExpressionUUID->"de9e86fb-20fa-dd46-88f1-afbd7b386eac"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[1588]:=",ExpressionUUID->"024e58ed-fda2-be43-a74c-f31f00420180"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.739"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, 3.9920923820487957`*^9}, + CellLabel-> + "In[1589]:=",ExpressionUUID->"f0642f76-a70c-a741-bf17-2e41793cc5a0"], + +Cell[BoxData["0.739`"], "Output", + CellChangeTimes->{ + 3.9920924245712776`*^9, {3.992092517868086*^9, 3.9920926162719116`*^9}, { + 3.992092796153553*^9, 3.9920929654498425`*^9}, {3.992092996998516*^9, + 3.992093020631668*^9}, {3.992093057076357*^9, 3.9920930832708435`*^9}}, + CellLabel-> + "Out[1589]=",ExpressionUUID->"b89508cd-d21f-d743-8242-c7cb9c910aff"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[1590]:=",ExpressionUUID->"21514991-7b58-194f-9151-967c8a6f3c95"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv2", "=", "1.318"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, 3.992092385442354*^9}, + CellLabel-> + "In[1591]:=",ExpressionUUID->"311e5b95-fc4a-3b4c-bf5e-001e70ca0827"], + +Cell[BoxData["1.318`"], "Output", + CellChangeTimes->{ + 3.992092424600256*^9, {3.9920925178950996`*^9, 3.9920926162988586`*^9}, { + 3.9920927961825104`*^9, 3.992092965474863*^9}, {3.9920929970216312`*^9, + 3.9920930206588135`*^9}, {3.992093057101387*^9, 3.992093083297676*^9}}, + CellLabel-> + "Out[1591]=",ExpressionUUID->"8819a0c5-d1ee-da4c-8e9c-dc82c645bfcd"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[1592]:=",ExpressionUUID->"dbf6dbae-b008-3949-9d99-90254539edd9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn2", "=", "0.948"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, 3.992092389548071*^9}, + CellLabel-> + "In[1593]:=",ExpressionUUID->"66afd64e-15f8-eb42-9a10-1227f89481cc"], + +Cell[BoxData["0.948`"], "Output", + CellChangeTimes->{ + 3.9920924246278687`*^9, {3.9920925179191475`*^9, 3.9920926163079185`*^9}, { + 3.992092796204502*^9, 3.992092965499399*^9}, {3.9920929970485687`*^9, + 3.99209302068668*^9}, {3.99209305712838*^9, 3.992093083307684*^9}}, + CellLabel-> + "Out[1593]=",ExpressionUUID->"c2daaf42-84dc-5e48-b2c4-c6d8f3b5d89d"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[1594]:=",ExpressionUUID->"c3ecefcc-c7bf-4843-94fb-f2ebe853401a"], + +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[1595]:=",ExpressionUUID->"d373a13e-d407-ce4a-8bac-6a2710b77b03"], + +Cell[BoxData["0.23853606466317218`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.9920924246760044`*^9, {3.9920925179775143`*^9, + 3.9920926163632183`*^9}, {3.992092796244623*^9, 3.9920929655537834`*^9}, { + 3.992092997089651*^9, 3.9920930207385387`*^9}, {3.992093057173485*^9, + 3.9920930833603687`*^9}}, + CellLabel-> + "Out[1595]=",ExpressionUUID->"b08e9e65-e7d4-8d43-b0f5-db4bdeeeb542"] +}, 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[1596]:=",ExpressionUUID->"9aa6e3fd-b9e5-914b-8be7-af030cc6af1e"], + +Cell[BoxData["1.1621646878049277`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9920924247221813`*^9, {3.992092518021105*^9, + 3.992092616403429*^9}, {3.9920927962806664`*^9, 3.9920929655928*^9}, { + 3.992092997126686*^9, 3.992093020775572*^9}, {3.99209305721846*^9, + 3.9920930834024544`*^9}}, + CellLabel-> + "Out[1596]=",ExpressionUUID->"0a6ca722-c1c4-0941-8f3f-0dd81c9a7006"] +}, 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[1597]:=",ExpressionUUID->"46abbb67-bf32-224f-9231-9004b2c3ce69"], + +Cell[BoxData[ + RowBox[{"-", "11.54880477030602`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.9920924247643623`*^9, {3.9920925180570297`*^9, + 3.992092616442415*^9}, {3.99209279631579*^9, 3.9920929656287766`*^9}, { + 3.9920929971636944`*^9, 3.992093020811638*^9}, {3.992093057256893*^9, + 3.9920930834404774`*^9}}, + CellLabel-> + "Out[1597]=",ExpressionUUID->"73eed33d-ef58-794f-9c28-85b21961fae4"] +}, 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[1598]:=",ExpressionUUID->"a4c6c7f7-653c-de41-8c5f-9ca0ace47d56"], + +Cell[BoxData[ + RowBox[{"-", "19.77600599831311`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.9920924248567066`*^9, {3.9920925181035156`*^9, + 3.99209261648604*^9}, {3.9920927963639317`*^9, 3.9920929656716843`*^9}, { + 3.9920929972087193`*^9, 3.992093020858343*^9}, {3.9920930573004055`*^9, + 3.9920930834844856`*^9}}, + CellLabel-> + "Out[1598]=",ExpressionUUID->"ab4f70d1-c84f-714f-9777-36f90644cc08"] +}, 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[1599]:=",ExpressionUUID->"8efc6f56-5d2e-0048-819b-525d19abb5bc"], + +Cell[BoxData[ + RowBox[{"-", "30.58059117523105`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.992092424909916*^9, {3.9920925181461334`*^9, + 3.9920926165285892`*^9}, {3.9920927964064484`*^9, + 3.9920929657136993`*^9}, {3.99209299725375*^9, 3.992093020905369*^9}, { + 3.9920930573464146`*^9, 3.992093083528572*^9}}, + CellLabel-> + "Out[1599]=",ExpressionUUID->"ee9e343a-ac2b-a846-b187-67826dc7bb4d"] +}, 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[1600]:=",ExpressionUUID->"4875ad09-0c57-2d49-9f46-5d232f3de816"], + +Cell[BoxData[ + RowBox[{"-", "105.09350269202939`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.9920924249671135`*^9, {3.992092518197281*^9, + 3.992092616578083*^9}, {3.992092796458473*^9, 3.992092965763729*^9}, { + 3.992092997304306*^9, 3.9920930209554005`*^9}, {3.9920930573954678`*^9, + 3.992093083597994*^9}}, + CellLabel-> + "Out[1600]=",ExpressionUUID->"04999f80-a515-8b47-8cfb-6da51f1f9873"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[1601]:=",ExpressionUUID->"8f0b15b5-c496-ff4f-a78b-18bd6c3a09bc"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.992092424988882*^9, {3.9920925182220745`*^9, + 3.9920926166009426`*^9}, {3.9920927964825535`*^9, 3.992092965791752*^9}, { + 3.9920929973323193`*^9, 3.9920930209844055`*^9}, {3.9920930574224644`*^9, + 3.992093083606518*^9}}, + CellLabel-> + "Out[1601]=",ExpressionUUID->"3f0a42da-da69-a74e-b518-718cc99a1d3a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[1602]:=",ExpressionUUID->"d673825b-5752-cd49-afbe-385dae366110"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.9920924249969025`*^9, {3.9920925182290916`*^9, + 3.9920926166340294`*^9}, {3.9920927965035686`*^9, 3.992092965815735*^9}, { + 3.9920929973413277`*^9, 3.992093021007929*^9}, {3.9920930574444923`*^9, + 3.9920930836334076`*^9}}, + CellLabel-> + "Out[1602]=",ExpressionUUID->"e33ff5df-b418-ab40-aa58-87bde7e55737"] +}, 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[1603]:=",ExpressionUUID->"2e12ddb3-1506-9643-b28f-77d9133bdba9"], + +Cell[BoxData["50.79485995775785`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9920924250203743`*^9, {3.9920925182541103`*^9, + 3.992092616658106*^9}, {3.992092796530678*^9, 3.9920929658470783`*^9}, { + 3.9920929973643227`*^9, 3.992093021036476*^9}, {3.992093057470501*^9, + 3.992093083664322*^9}}, + CellLabel-> + "Out[1603]=",ExpressionUUID->"ee208b56-8130-e940-bbd5-9f13fb61cd9e"] +}, 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[1604]:=",ExpressionUUID->"2ecf2175-7640-7a45-88a9-72bd01b2ae53"], + +Cell[BoxData[ + RowBox[{"-", "39.807512260788336`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.9920924250287895`*^9, {3.992092518261135*^9, + 3.9920926166661263`*^9}, {3.992092796553686*^9, 3.992092965855587*^9}, { + 3.992092997385847*^9, 3.9920930210664825`*^9}, {3.9920930574785194`*^9, + 3.9920930836908455`*^9}}, + CellLabel-> + "Out[1604]=",ExpressionUUID->"e3b2ab92-9819-9241-86c7-0dd8503efd99"] +}, 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[1605]:=",ExpressionUUID->"f4110923-f7d5-4445-ad8c-e530e8012e47"], + +Cell[BoxData["55.47457091262591`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9920924250533905`*^9, {3.9920925182831707`*^9, + 3.9920926166888447`*^9}, {3.992092796576765*^9, 3.992092965880436*^9}, { + 3.992092997412588*^9, 3.992093021074486*^9}, {3.992093057501501*^9, + 3.9920930837153435`*^9}}, + CellLabel-> + "Out[1605]=",ExpressionUUID->"3f83f33e-459a-a140-b3df-4b7d45388f7b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[1606]:=",ExpressionUUID->"cf5a903e-8dae-064f-b506-36c3f14a14ad"], + +Cell[BoxData["0.4525799206818347`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.9920924250769863`*^9, {3.992092518290186*^9, + 3.9920926166969337`*^9}, {3.992092796599745*^9, 3.9920929659136524`*^9}, { + 3.9920929974355965`*^9, 3.992093021109741*^9}, {3.992093057526634*^9, + 3.992093083742384*^9}}, + CellLabel-> + "Out[1606]=",ExpressionUUID->"8ea16d52-d297-0b4f-ac97-68ca8fe79f14"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[1607]:=",ExpressionUUID->"73f0b3f4-1c40-a941-ad3b-071d2ca0ec3a"], + +Cell[BoxData[ + RowBox[{"-", "0.14627901466132107`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.992092425085251*^9, {3.9920925183123817`*^9, + 3.992092616720148*^9}, {3.992092796621517*^9, 3.9920929659406376`*^9}, { + 3.9920929974485817`*^9, 3.9920930211177807`*^9}, {3.9920930575493755`*^9, + 3.992093083766514*^9}}, + CellLabel-> + "Out[1607]=",ExpressionUUID->"acdb7942-56b1-6c4e-a62e-4033ef106f94"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[1608]:=",ExpressionUUID->"955f0eeb-87d5-304e-bb8b-767bd07acb39"], + +Cell[BoxData[ + RowBox[{"-", "0.3067897746750185`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.992092425109461*^9, {3.9920925183188953`*^9, + 3.9920926167479305`*^9}, {3.992092796644417*^9, 3.9920929659693794`*^9}, { + 3.9920929974695816`*^9, 3.9920930211443024`*^9}, {3.9920930575783825`*^9, + 3.9920930837753963`*^9}}, + CellLabel-> + "Out[1608]=",ExpressionUUID->"f2acbb73-faf1-b84e-ae9f-160df8210729"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[1609]:=",ExpressionUUID->"2bca9652-9e5f-2041-b8bf-7f6f3cb22c5d"], + +Cell[BoxData["0.5588619635695797`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.992092425140007*^9, {3.9920925183433113`*^9, + 3.9920926167768955`*^9}, {3.99209279665242*^9, 3.992092965997463*^9}, { + 3.9920929974956074`*^9, 3.992093021153307*^9}, {3.9920930575873737`*^9, + 3.9920930837992496`*^9}}, + CellLabel-> + "Out[1609]=",ExpressionUUID->"d6903821-613c-2c4b-a053-ee9e05aa006e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[1610]:=",ExpressionUUID->"a1242381-72c5-a04d-859e-f718cd30a16b"], + +Cell[BoxData["2.0397870167233085`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.9920924251485367`*^9, {3.9920925183502617`*^9, + 3.992092616801161*^9}, {3.992092796675625*^9, 3.992092966020483*^9}, { + 3.992092997519621*^9, 3.9920930211783123`*^9}, {3.992093057612406*^9, + 3.992093083807356*^9}}, + CellLabel-> + "Out[1610]=",ExpressionUUID->"198c1adc-9be1-ec4c-82c8-9fc6e23977ca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[1611]:=",ExpressionUUID->"72dad72d-50cd-a445-be93-3d847d24e32a"], + +Cell[BoxData["1.6965844703854613`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.9920924251731644`*^9, {3.992092518390991*^9, + 3.992092616809025*^9}, {3.992092796682625*^9, 3.9920929660454655`*^9}, { + 3.992092997546631*^9, 3.992093021206312*^9}, {3.9920930576354465`*^9, + 3.9920930838346233`*^9}}, + CellLabel-> + "Out[1611]=",ExpressionUUID->"dff5e5e7-9341-d049-8a57-75b0a91552fe"] +}, 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[1612]:=",ExpressionUUID->"c302adb2-b183-ed42-a42f-dfe94337761e"], + +Cell[BoxData[ + RowBox[{"-", "21.092736551945727`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.9920924251813374`*^9, {3.9920925184000015`*^9, + 3.9920926168329926`*^9}, {3.992092796713726*^9, 3.9920929660694675`*^9}, { + 3.992092997555647*^9, 3.992093021215063*^9}, {3.9920930576579895`*^9, + 3.992093083860649*^9}}, + CellLabel-> + "Out[1612]=",ExpressionUUID->"427d2728-80a4-f140-906e-32235d346572"] +}, 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[1613]:=",ExpressionUUID->"abc82c0e-4020-e748-95e3-46b2e4a3ce46"], + +Cell[BoxData[ + RowBox[{"-", "10.70666087171256`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.992092425203964*^9, {3.992092518424059*^9, + 3.992092616841175*^9}, {3.992092796739727*^9, 3.992092966097471*^9}, { + 3.992092997577677*^9, 3.9920930212386017`*^9}, {3.9920930576665287`*^9, + 3.992093083870682*^9}}, + CellLabel-> + "Out[1613]=",ExpressionUUID->"e2cb02fe-5937-e64c-88b9-d5df76e93c28"] +}, 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[1614]:=",ExpressionUUID->"d132178e-d2f2-a642-b1c2-e26a4580d6e7"], + +Cell[BoxData["29.702123405812124`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.99209242521216*^9, {3.992092518431139*^9, + 3.992092616869858*^9}, {3.9920927967650204`*^9, 3.9920929661054707`*^9}, { + 3.99209299758585*^9, 3.992093021262615*^9}, {3.992093057691532*^9, + 3.992093083897995*^9}}, + CellLabel-> + "Out[1614]=",ExpressionUUID->"6e4ee75b-ac8d-8f46-b838-468c8997c081"] +}, 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[1615]:=",ExpressionUUID->"913b133c-abce-814d-a35a-78f7e04adf6d"], + +Cell[BoxData[ + RowBox[{"-", "39.807512260788336`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.9920924252399826`*^9, {3.9920925184532547`*^9, + 3.9920926168974247`*^9}, {3.992092796772524*^9, 3.992092966127367*^9}, { + 3.992092997616436*^9, 3.992093021286625*^9}, {3.9920930577172832`*^9, + 3.9920930839314575`*^9}}, + CellLabel-> + "Out[1615]=",ExpressionUUID->"876960b5-9d28-3e43-aa24-8b677d7ead3f"] +}, 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[1616]:=",ExpressionUUID->"32f5be9a-e69f-244c-975a-5d326949da1f"], + +Cell[BoxData["44.76791004091335`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.9920924252641563`*^9, {3.9920925184652615`*^9, + 3.992092616924053*^9}, {3.992092796799511*^9, 3.9920929661654415`*^9}, { + 3.992092997645611*^9, 3.9920930213107224`*^9}, {3.9920930577272816`*^9, + 3.9920930839574585`*^9}}, + CellLabel-> + "Out[1616]=",ExpressionUUID->"eba99c39-e3f7-2249-8c09-fb093c28bc1e"] +}, 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[1617]:=",ExpressionUUID->"5e764eac-84e2-3f49-b9f6-f34b7bfbf1c1"], + +Cell[BoxData["0.017639944695631016`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.992092425272375*^9, {3.9920925184886303`*^9, + 3.9920926169319496`*^9}, {3.992092796807514*^9, 3.992092966188612*^9}, { + 3.9920929976776257`*^9, 3.99209302132073*^9}, {3.9920930577495594`*^9, + 3.9920930839824753`*^9}}, + CellLabel-> + "Out[1617]=",ExpressionUUID->"3688cd19-04c8-b841-ab73-5af5478a14c2"] +}, 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[1618]:=",ExpressionUUID->"c9347e35-d63a-fb44-a6e9-abe085383579"], + +Cell[BoxData["198.48274307805877`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.9920924252972507`*^9, {3.99209251849621*^9, + 3.9920926169568806`*^9}, {3.99209279683144*^9, 3.9920929661966133`*^9}, { + 3.992092997701681*^9, 3.992093021346737*^9}, {3.9920930577580833`*^9, + 3.9920930839966183`*^9}}, + CellLabel-> + "Out[1618]=",ExpressionUUID->"5f92f02b-16e6-bd42-a6f6-d07927efc84f"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.349801967763318"}]], "Input", + CellChangeTimes->{3.9918505481678543`*^9, + 3.992093422058323*^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", "=", "0.22451670858291"}]], "Input", + CellChangeTimes->{3.991850550777445*^9, + 3.992093426035509*^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[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.131906"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.092238"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.135383"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.172743"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.117679"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.094793"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.075876"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.054298"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.038669"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.027641"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.018887"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.013232"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.008805"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.0061"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.003941"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.002757"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.001714"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.00123"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.000717"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.000544"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.000282"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.000244"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.000099"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.000114"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.000026"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.000032"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.000019"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.000013"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.000007"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.000005"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.000002"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.9920933945135155`*^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[CellGroupData[{ +Cell[576, 22, 435, 8, 28, "Input",ExpressionUUID->"006ead85-8306-184c-9cf9-ba2a0e3785f9"], +Cell[1014, 32, 391, 7, 32, "Output",ExpressionUUID->"943f12aa-a463-6943-a141-2fd0416784be"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1442, 44, 254, 5, 28, "Input",ExpressionUUID->"d9826539-0f54-2a4b-8c39-c0f51b690b35"], +Cell[1699, 51, 395, 7, 32, "Output",ExpressionUUID->"dd3e9ba7-b753-da4c-b74b-87d4cacedcdb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2131, 63, 231, 5, 28, "Input",ExpressionUUID->"f4d46eb5-8e85-f54c-bcfa-5f01b55140ff"], +Cell[2365, 70, 391, 7, 32, "Output",ExpressionUUID->"975fb571-1104-eb41-8c68-6baeee0c5acb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2793, 82, 181, 4, 28, "Input",ExpressionUUID->"00a8142b-863c-3c4d-b8c1-eddd70076387"], +Cell[2977, 88, 393, 7, 32, "Output",ExpressionUUID->"39430a22-5429-774a-9068-19bf797353bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3407, 100, 263, 8, 43, "Input",ExpressionUUID->"d36b1234-cf68-0541-9c24-eeaecf17b193"], +Cell[3673, 110, 409, 7, 32, "Output",ExpressionUUID->"57724f59-28e0-1046-9015-8acc6050c8d3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4119, 122, 137, 3, 28, "Input",ExpressionUUID->"751b5019-f897-194c-95bd-9a2b26be338f"], +Cell[4259, 127, 397, 7, 32, "Output",ExpressionUUID->"d1273b42-1183-5641-8f64-9bf8adc82736"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4693, 139, 282, 7, 28, "Input",ExpressionUUID->"e87e4319-dc7b-f841-97ec-6ea56dbc43ac"], +Cell[4978, 148, 401, 7, 32, "Output",ExpressionUUID->"92e9db64-b384-5c4a-8840-8a0f29768b37"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5416, 160, 263, 8, 28, "Input",ExpressionUUID->"569f2821-80ae-9945-911b-2704afbe0d33"], +Cell[5682, 170, 406, 7, 32, "Output",ExpressionUUID->"183acc35-1286-3249-b637-ba5a93f6ecaf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6125, 182, 216, 4, 28, "Input",ExpressionUUID->"ca48b73a-40c5-6a44-a86e-529f3ceb521e"], +Cell[6344, 188, 372, 6, 32, "Output",ExpressionUUID->"eebe8400-259a-a543-b1aa-72999b3cbf7d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6753, 199, 216, 4, 28, "Input",ExpressionUUID->"9b1b8831-fc25-3b4a-9de5-ec4e9f8f556a"], +Cell[6972, 205, 376, 6, 32, "Output",ExpressionUUID->"f10d2034-fe56-c34a-8e6d-5067109d9692"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7385, 216, 134, 3, 28, "Input",ExpressionUUID->"6a66ad91-a8b0-1c46-9aab-62de4687b8c6"], +Cell[7522, 221, 393, 7, 32, "Output",ExpressionUUID->"6c1b58cc-3a51-6345-b3ed-364ae4c90833"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7952, 233, 134, 3, 28, "Input",ExpressionUUID->"6555ad1a-a49a-f74e-95ac-b5fb1c44fadd"], +Cell[8089, 238, 382, 7, 32, "Output",ExpressionUUID->"8a1b4a7f-8124-a24b-b96f-c83d3501fc04"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8508, 250, 562, 20, 79, "Input",ExpressionUUID->"b56440d6-6089-c043-80f0-341c2c5a28f5"], +Cell[9073, 272, 400, 7, 32, "Output",ExpressionUUID->"e9ad3bfa-6ed1-bb4a-b8e5-f0fabc435c6f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9510, 284, 562, 20, 79, "Input",ExpressionUUID->"08ff12e8-a3da-6646-9615-f5a0af2dddfd"], +Cell[10075, 306, 411, 7, 32, "Output",ExpressionUUID->"c2b67a1f-33d6-9144-a766-f3b4316c79cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[10523, 318, 1497, 49, 80, "Input",ExpressionUUID->"49f89727-8379-964a-92cb-1fadf7684a84"], +Cell[12023, 369, 398, 7, 32, "Output",ExpressionUUID->"3ebce010-494a-f049-afdd-c58561b3c591"] +}, Open ]], +Cell[CellGroupData[{ +Cell[12458, 381, 1336, 45, 80, "Input",ExpressionUUID->"7886337e-6308-d34f-8dde-222d6a38c841"], +Cell[13797, 428, 423, 8, 32, "Output",ExpressionUUID->"3b2ddeb7-e38c-b646-bdbd-5cb55318865e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14257, 441, 1336, 45, 80, "Input",ExpressionUUID->"036b4302-d6f3-2641-a002-9ac2e00a363d"], +Cell[15596, 488, 420, 8, 32, "Output",ExpressionUUID->"ce769bfb-c8a0-154d-90b1-a372d6cb581f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16053, 501, 1497, 49, 80, "Input",ExpressionUUID->"0991c9f0-d2f3-784e-b149-f010b7a1f664"], +Cell[17553, 552, 401, 7, 32, "Output",ExpressionUUID->"0db5ab32-4133-9843-bab5-49e7ec77aeff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[17991, 564, 136, 3, 28, "Input",ExpressionUUID->"8fd131ab-0e46-a64c-b230-4a781edc1c09"], +Cell[18130, 569, 383, 7, 32, "Output",ExpressionUUID->"2f795872-8b42-8c43-bc77-d6582bc164cc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18550, 581, 138, 3, 28, "Input",ExpressionUUID->"ed56b68b-4faf-4f45-9924-80bb8af504d7"], +Cell[18691, 586, 387, 7, 32, "Output",ExpressionUUID->"07b17bad-4f49-a640-810c-3669df09b42e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19115, 598, 139, 3, 28, "Input",ExpressionUUID->"00dd8a0f-4180-474b-83ef-74643d480dfa"], +Cell[19257, 603, 389, 7, 32, "Output",ExpressionUUID->"f8825435-cf9d-d140-a03c-aab85ca1cf8f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19683, 615, 224, 5, 28, "Input",ExpressionUUID->"5009ece6-02af-004b-9076-c684ccd61cee"], +Cell[19910, 622, 398, 8, 32, "Output",ExpressionUUID->"968123b4-1f2c-bc40-970f-8d59a4609e4f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20345, 635, 139, 3, 28, "Input",ExpressionUUID->"987cf838-4b8e-0f45-bcd8-26628a9334e4"], +Cell[20487, 640, 384, 7, 32, "Output",ExpressionUUID->"f5ae9dc3-e10e-0442-8064-1edd74a63d4a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20908, 652, 303, 6, 28, "Input",ExpressionUUID->"45d2fc15-48c6-314f-98ce-fbc253b0d6b8"], +Cell[21214, 660, 382, 7, 32, "Output",ExpressionUUID->"280d39da-4c31-1842-bd6f-72fe0951d45b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21633, 672, 279, 6, 28, "Input",ExpressionUUID->"64bd52e9-9be2-284f-8aa1-a1548a04e97d"], +Cell[21915, 680, 385, 7, 32, "Output",ExpressionUUID->"dd975983-a3e2-f347-845c-500cc7c62a7c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22337, 692, 224, 5, 28, "Input",ExpressionUUID->"37fcb097-2b05-5a47-9dc8-9e3b4f595568"], +Cell[22564, 699, 380, 7, 32, "Output",ExpressionUUID->"73fb6306-d88a-c74f-b2ae-fc1acc4cd4d6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22981, 711, 355, 11, 43, "Input",ExpressionUUID->"2d6e3f60-0fe4-f846-971d-bfd9d442de9f"], +Cell[23339, 724, 404, 7, 32, "Output",ExpressionUUID->"dedd573d-b5c2-1f44-ac6d-b22025936100"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23780, 736, 355, 11, 43, "Input",ExpressionUUID->"8f6d95bd-8068-994b-9b57-cf0887bdd3be"], +Cell[24138, 749, 425, 8, 32, "Output",ExpressionUUID->"156186d7-6c2b-9a4f-aca2-ba3f4e32d980"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24600, 762, 999, 27, 113, "Input",ExpressionUUID->"f55b82ac-d751-6a40-8e60-8925fae7deac"], +Cell[25602, 791, 404, 7, 32, "Output",ExpressionUUID->"4fc730d1-6536-dd49-82e9-ca4603451ee2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26043, 803, 204, 4, 28, "Input",ExpressionUUID->"7a218fb1-2c01-8b44-b6cf-9afd0e06191b"], +Cell[26250, 809, 385, 7, 32, "Output",ExpressionUUID->"7d008a7a-9a14-1049-b1e7-dc531c0dde8a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26672, 821, 310, 6, 28, "Input",ExpressionUUID->"a181831b-55c5-c243-97b5-33e0215a12c4"], +Cell[26985, 829, 366, 6, 32, "Output",ExpressionUUID->"68b0f725-0c82-7f48-a1b1-b47c9ec19b8a"] +}, Open ]], +Cell[27366, 838, 178, 3, 28, "Input",ExpressionUUID->"4bb7434d-3229-4b4c-a14e-784954720692"], +Cell[CellGroupData[{ +Cell[27569, 845, 308, 6, 28, "Input",ExpressionUUID->"eff246ab-8712-d844-af06-efa5c86c153f"], +Cell[27880, 853, 368, 6, 32, "Output",ExpressionUUID->"a78aceab-bfcf-9d4b-94ab-fd9f5883e99c"] +}, Open ]], +Cell[28263, 862, 178, 3, 28, "Input",ExpressionUUID->"c9666c4e-d4af-fc41-90c2-92c4230760bd"], +Cell[CellGroupData[{ +Cell[28466, 869, 330, 7, 47, "Input",ExpressionUUID->"065254e4-0118-5544-b8a7-56fd9a71b054"], +Cell[28799, 878, 364, 6, 32, "Output",ExpressionUUID->"689b23c7-dc74-cb4a-84f5-67819b8a408f"] +}, Open ]], +Cell[29178, 887, 178, 3, 28, "Input",ExpressionUUID->"ecd9ff0d-3d88-b048-92ca-96273c4ccb9d"], +Cell[CellGroupData[{ +Cell[29381, 894, 335, 6, 28, "Input",ExpressionUUID->"e9792ddf-74cf-ca43-85ba-093f30cb5c6c"], +Cell[29719, 902, 365, 6, 32, "Output",ExpressionUUID->"dcca3e55-c1a3-2d47-9a3e-6b0e100bd940"] +}, Open ]], +Cell[30099, 911, 176, 3, 28, "Input",ExpressionUUID->"d3bd7621-3882-a74c-a6dd-b05ea07241a9"], +Cell[CellGroupData[{ +Cell[30300, 918, 295, 6, 47, "Input",ExpressionUUID->"8b549441-0f23-ac44-8ff0-8a09fc4c1740"], +Cell[30598, 926, 364, 6, 32, "Output",ExpressionUUID->"de9e86fb-20fa-dd46-88f1-afbd7b386eac"] +}, Open ]], +Cell[30977, 935, 176, 3, 28, "Input",ExpressionUUID->"024e58ed-fda2-be43-a74c-f31f00420180"], +Cell[CellGroupData[{ +Cell[31178, 942, 282, 5, 28, "Input",ExpressionUUID->"f0642f76-a70c-a741-bf17-2e41793cc5a0"], +Cell[31463, 949, 362, 6, 32, "Output",ExpressionUUID->"b89508cd-d21f-d743-8242-c7cb9c910aff"] +}, Open ]], +Cell[31840, 958, 178, 3, 28, "Input",ExpressionUUID->"21514991-7b58-194f-9151-967c8a6f3c95"], +Cell[CellGroupData[{ +Cell[32043, 965, 302, 6, 47, "Input",ExpressionUUID->"311e5b95-fc4a-3b4c-bf5e-001e70ca0827"], +Cell[32348, 973, 364, 6, 32, "Output",ExpressionUUID->"8819a0c5-d1ee-da4c-8e9c-dc82c645bfcd"] +}, Open ]], +Cell[32727, 982, 177, 3, 28, "Input",ExpressionUUID->"dbf6dbae-b008-3949-9d99-90254539edd9"], +Cell[CellGroupData[{ +Cell[32929, 989, 275, 6, 47, "Input",ExpressionUUID->"66afd64e-15f8-eb42-9a10-1227f89481cc"], +Cell[33207, 997, 360, 6, 32, "Output",ExpressionUUID->"c2daaf42-84dc-5e48-b2c4-c6d8f3b5d89d"] +}, Open ]], +Cell[33582, 1006, 180, 3, 28, "Input",ExpressionUUID->"c3ecefcc-c7bf-4843-94fb-f2ebe853401a"], +Cell[CellGroupData[{ +Cell[33787, 1013, 19814, 486, 2217, "Input",ExpressionUUID->"d373a13e-d407-ce4a-8bac-6a2710b77b03"], +Cell[53604, 1501, 406, 7, 32, "Output",ExpressionUUID->"b08e9e65-e7d4-8d43-b0f5-db4bdeeeb542"] +}, Open ]], +Cell[CellGroupData[{ +Cell[54047, 1513, 19753, 490, 2304, "Input",ExpressionUUID->"9aa6e3fd-b9e5-914b-8be7-af030cc6af1e"], +Cell[73803, 2005, 396, 7, 32, "Output",ExpressionUUID->"0a6ca722-c1c4-0941-8f3f-0dd81c9a7006"] +}, Open ]], +Cell[CellGroupData[{ +Cell[74236, 2017, 19753, 484, 2276, "Input",ExpressionUUID->"46abbb67-bf32-224f-9231-9004b2c3ce69"], +Cell[93992, 2503, 418, 8, 32, "Output",ExpressionUUID->"73eed33d-ef58-794f-9c28-85b21961fae4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[94447, 2516, 22539, 554, 2583, "Input",ExpressionUUID->"a4c6c7f7-653c-de41-8c5f-9ca0ace47d56"], +Cell[116989, 3072, 422, 8, 32, "Output",ExpressionUUID->"ab4f70d1-c84f-714f-9777-36f90644cc08"] +}, Open ]], +Cell[CellGroupData[{ +Cell[117448, 3085, 22540, 554, 2583, "Input",ExpressionUUID->"8efc6f56-5d2e-0048-819b-525d19abb5bc"], +Cell[139991, 3641, 420, 8, 32, "Output",ExpressionUUID->"ee9e343a-ac2b-a846-b187-67826dc7bb4d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[140448, 3654, 25496, 627, 2890, "Input",ExpressionUUID->"4875ad09-0c57-2d49-9f46-5d232f3de816"], +Cell[165947, 4283, 416, 8, 32, "Output",ExpressionUUID->"04999f80-a515-8b47-8cfb-6da51f1f9873"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166400, 4296, 135, 3, 28, "Input",ExpressionUUID->"8f0b15b5-c496-ff4f-a78b-18bd6c3a09bc"], +Cell[166538, 4301, 389, 7, 32, "Output",ExpressionUUID->"3f0a42da-da69-a74e-b518-718cc99a1d3a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166964, 4313, 135, 3, 28, "Input",ExpressionUUID->"d673825b-5752-cd49-afbe-385dae366110"], +Cell[167102, 4318, 391, 7, 32, "Output",ExpressionUUID->"e33ff5df-b418-ab40-aa58-87bde7e55737"] +}, Open ]], +Cell[CellGroupData[{ +Cell[167530, 4330, 1149, 40, 110, "Input",ExpressionUUID->"2e12ddb3-1506-9643-b28f-77d9133bdba9"], +Cell[168682, 4372, 400, 7, 32, "Output",ExpressionUUID->"ee208b56-8130-e940-bbd5-9f13fb61cd9e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169119, 4384, 1046, 36, 110, "Input",ExpressionUUID->"2ecf2175-7640-7a45-88a9-72bd01b2ae53"], +Cell[170168, 4422, 420, 8, 32, "Output",ExpressionUUID->"e3b2ab92-9819-9241-86c7-0dd8503efd99"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170625, 4435, 1149, 40, 110, "Input",ExpressionUUID->"f4110923-f7d5-4445-ad8c-e530e8012e47"], +Cell[171777, 4477, 402, 7, 32, "Output",ExpressionUUID->"3f83f33e-459a-a140-b3df-4b7d45388f7b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172216, 4489, 113, 2, 28, "Input",ExpressionUUID->"cf5a903e-8dae-064f-b506-36c3f14a14ad"], +Cell[172332, 4493, 403, 7, 32, "Output",ExpressionUUID->"8ea16d52-d297-0b4f-ac97-68ca8fe79f14"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172772, 4505, 113, 2, 28, "Input",ExpressionUUID->"73f0b3f4-1c40-a941-ad3b-071d2ca0ec3a"], +Cell[172888, 4509, 423, 8, 32, "Output",ExpressionUUID->"acdb7942-56b1-6c4e-a62e-4033ef106f94"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173348, 4522, 113, 2, 28, "Input",ExpressionUUID->"955f0eeb-87d5-304e-bb8b-767bd07acb39"], +Cell[173464, 4526, 424, 8, 32, "Output",ExpressionUUID->"f2acbb73-faf1-b84e-ae9f-160df8210729"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173925, 4539, 113, 2, 28, "Input",ExpressionUUID->"2bca9652-9e5f-2041-b8bf-7f6f3cb22c5d"], +Cell[174041, 4543, 402, 7, 32, "Output",ExpressionUUID->"d6903821-613c-2c4b-a053-ee9e05aa006e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174480, 4555, 112, 2, 28, "Input",ExpressionUUID->"a1242381-72c5-a04d-859e-f718cd30a16b"], +Cell[174595, 4559, 401, 7, 36, "Output",ExpressionUUID->"198c1adc-9be1-ec4c-82c8-9fc6e23977ca"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175033, 4571, 112, 2, 33, "Input",ExpressionUUID->"72dad72d-50cd-a445-be93-3d847d24e32a"], +Cell[175148, 4575, 403, 7, 36, "Output",ExpressionUUID->"dff5e5e7-9341-d049-8a57-75b0a91552fe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175588, 4587, 502, 17, 56, "Input",ExpressionUUID->"c302adb2-b183-ed42-a42f-dfe94337761e"], +Cell[176093, 4606, 422, 8, 32, "Output",ExpressionUUID->"427d2728-80a4-f140-906e-32235d346572"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176552, 4619, 502, 17, 56, "Input",ExpressionUUID->"abc82c0e-4020-e748-95e3-46b2e4a3ce46"], +Cell[177057, 4638, 413, 8, 32, "Output",ExpressionUUID->"e2cb02fe-5937-e64c-88b9-d5df76e93c28"] +}, Open ]], +Cell[CellGroupData[{ +Cell[177507, 4651, 1793, 61, 188, "Input",ExpressionUUID->"d132178e-d2f2-a642-b1c2-e26a4580d6e7"], +Cell[179303, 4714, 397, 7, 32, "Output",ExpressionUUID->"6e4ee75b-ac8d-8f46-b838-468c8997c081"] +}, Open ]], +Cell[CellGroupData[{ +Cell[179737, 4726, 1106, 37, 133, "Input",ExpressionUUID->"913b133c-abce-814d-a35a-78f7e04adf6d"], +Cell[180846, 4765, 422, 8, 32, "Output",ExpressionUUID->"876960b5-9d28-3e43-aa24-8b677d7ead3f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181305, 4778, 1823, 62, 165, "Input",ExpressionUUID->"32f5be9a-e69f-244c-975a-5d326949da1f"], +Cell[183131, 4842, 404, 7, 32, "Output",ExpressionUUID->"eba99c39-e3f7-2249-8c09-fb093c28bc1e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183572, 4854, 1636, 54, 164, "Input",ExpressionUUID->"5e764eac-84e2-3f49-b9f6-f34b7bfbf1c1"], +Cell[185211, 4910, 406, 7, 32, "Output",ExpressionUUID->"3688cd19-04c8-b841-ab73-5af5478a14c2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185654, 4922, 1636, 54, 164, "Input",ExpressionUUID->"c9347e35-d63a-fb44-a6e9-abe085383579"], +Cell[187293, 4978, 401, 7, 32, "Output",ExpressionUUID->"5f92f02b-16e6-bd42-a6f6-d07927efc84f"] +}, Open ]], +Cell[187709, 4988, 192, 4, 28, "Input",ExpressionUUID->"83cccf0d-dccb-fb42-a058-5e950c758893"], +Cell[187904, 4994, 152, 3, 28, "Input",ExpressionUUID->"7730e455-e5f4-194b-b761-e7a6896afd10"], +Cell[188059, 4999, 189, 4, 28, "Input",ExpressionUUID->"b70cfd2b-21a1-8344-9518-5e27a96171a9"], +Cell[188251, 5005, 154, 3, 28, "Input",ExpressionUUID->"86df0a71-aa65-aa41-b8f1-8c5c5be10fe8"], +Cell[CellGroupData[{ +Cell[188430, 5012, 1273, 41, 113, "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], +Cell[189706, 5055, 106, 0, 32, "Output",ExpressionUUID->"cbffa725-bd15-2049-b55f-318286f23572"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189849, 5060, 910, 31, 56, "Input",ExpressionUUID->"c16f367e-d189-2745-b3b8-a9b137c5e3b6"], +Cell[190762, 5093, 106, 0, 32, "Output",ExpressionUUID->"ccc498a0-28db-294f-9612-85d9a5c6b1f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[190905, 5098, 885, 30, 56, "Input",ExpressionUUID->"b7d001ae-480c-4b41-8df9-8010347227f7"], +Cell[191793, 5130, 106, 0, 32, "Output",ExpressionUUID->"0586a11a-38a6-a040-a172-aaeab8c90dd8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191936, 5135, 532, 18, 52, "Input",ExpressionUUID->"d15e5e59-9ad8-e247-a132-b43b2736212a"], +Cell[192471, 5155, 101, 0, 32, "Output",ExpressionUUID->"c25fd138-6ebd-9549-9de5-30353d068c14"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192609, 5160, 625, 21, 52, "Input",ExpressionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], +Cell[193237, 5183, 100, 0, 32, "Output",ExpressionUUID->"8c8a87e7-f604-4044-b4ce-b17ddc0907b3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193374, 5188, 144, 4, 56, "Input",ExpressionUUID->"906db7f6-73f3-8a4e-88a4-7c75445a4f32"], +Cell[193521, 5194, 101, 0, 32, "Output",ExpressionUUID->"fa0bea71-615d-2d4d-8b39-59994ce24952"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193659, 5199, 144, 4, 55, "Input",ExpressionUUID->"731b68b1-c44a-6c4a-a9f8-bc957ede9a68"], +Cell[193806, 5205, 100, 0, 32, "Output",ExpressionUUID->"d3e4fece-e329-2041-9645-50ae8ca1c91c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193943, 5210, 155, 4, 43, "Input",ExpressionUUID->"71af6813-eb8f-4944-8d03-7bcd77a7b4b4"], +Cell[194101, 5216, 101, 0, 32, "Output",ExpressionUUID->"8db6732d-a570-734c-94eb-cb35afdbb155"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194239, 5221, 155, 4, 43, "Input",ExpressionUUID->"28815b73-08dc-e64f-8823-2a55ad6b8ca8"], +Cell[194397, 5227, 101, 0, 32, "Output",ExpressionUUID->"06581e5e-cb29-0446-9bb7-b3bb2156a7c7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194535, 5232, 6029, 184, 498, "Input",ExpressionUUID->"137e8d46-8eff-3c47-bf8f-1350d0b8a0bb"], +Cell[200567, 5418, 102, 0, 32, "Output",ExpressionUUID->"000a1d2e-b429-4a45-b9a2-ccba4bf718eb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[200706, 5423, 342, 8, 42, "Input",ExpressionUUID->"65edd566-4493-2440-9c51-9fca28ce324b"], +Cell[201051, 5433, 342, 6, 20, "Message",ExpressionUUID->"b04cf5cc-6c74-f842-9fba-c737c46f5a7b"], +Cell[201396, 5441, 100, 0, 32, "Output",ExpressionUUID->"32922499-707a-964c-90f0-b2630d16ee29"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201533, 5446, 6096, 186, 500, "Input",ExpressionUUID->"d808e80b-1928-8046-afec-31463f4946cd"], +Cell[207632, 5634, 103, 0, 32, "Output",ExpressionUUID->"17720629-0c4f-744e-a447-06cd4a4f0034"] +}, Open ]], +Cell[CellGroupData[{ +Cell[207772, 5639, 342, 8, 42, "Input",ExpressionUUID->"56b1717f-bc75-4047-98f0-7a0dede3f8a9"], +Cell[208117, 5649, 342, 6, 20, "Message",ExpressionUUID->"6f900e99-9e38-fb4c-84fd-e99588ed1cc5"], +Cell[208462, 5657, 100, 0, 32, "Output",ExpressionUUID->"e5a93687-7c76-eb48-a79a-098cbe08792a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208599, 5662, 2637, 87, 187, "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-f74418e31aeb"], +Cell[211239, 5751, 101, 0, 32, "Output",ExpressionUUID->"a53e2e6d-ca02-5d40-9088-48aa754351ec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[211377, 5756, 2577, 84, 165, "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-91d5391478d5"], +Cell[213957, 5842, 102, 0, 32, "Output",ExpressionUUID->"5ca04a2b-633e-1547-b10d-b4f00d8b3fcb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[214096, 5847, 3686, 117, 348, "Input",ExpressionUUID->"bea639c9-f172-ef4e-9454-9d4e027f5fa2"], +Cell[217785, 5966, 102, 0, 32, "Output",ExpressionUUID->"af769b0f-0bd4-194f-bc02-90651fd30541"] +}, Open ]], +Cell[217902, 5969, 138, 3, 42, "Input",ExpressionUUID->"752e2dd5-bee6-2048-8697-fe84d79611fa"], +Cell[CellGroupData[{ +Cell[218065, 5976, 2054, 59, 228, "Input",ExpressionUUID->"f8b12d93-5bd9-8641-aa98-3d78ebb0f21b"], +Cell[220122, 6037, 342, 6, 20, "Message",ExpressionUUID->"4105bae1-ec8c-fc46-bc8a-9d70c37ec32c"], +Cell[220467, 6045, 342, 6, 20, "Message",ExpressionUUID->"42c1a263-2456-664a-bb33-c5fe841cb412"], +Cell[220812, 6053, 100, 0, 32, "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"] +}, Open ]], +Cell[CellGroupData[{ +Cell[220949, 6058, 2049, 58, 228, "Input",ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], +Cell[223001, 6118, 342, 6, 20, "Message",ExpressionUUID->"be4d7bfb-c18e-564a-93ce-3f42607886e7"], +Cell[223346, 6126, 342, 6, 20, "Message",ExpressionUUID->"b768ca5f-6b93-1f43-97bf-08f74ea2facd"], +Cell[223691, 6134, 100, 0, 32, "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[223828, 6139, 1938, 53, 115, "Input",ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-12d8b19f0936"], +Cell[225769, 6194, 342, 6, 20, "Message",ExpressionUUID->"d3cb6fbc-3803-0541-80d1-8cab47341c44"], +Cell[226114, 6202, 342, 6, 20, "Message",ExpressionUUID->"635ef23c-be29-f947-b49d-c0d2f59f2ba8"], +Cell[226459, 6210, 342, 6, 20, "Message",ExpressionUUID->"d8687e0f-2f42-0543-a749-78a1ff3c9572"], +Cell[226804, 6218, 407, 7, 20, "Message",ExpressionUUID->"b055d243-2255-1f40-80bd-55bc54524667"], +Cell[227214, 6227, 8018, 364, 185, 4231, 300, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"8a200671-82f1-364d-8dba-8342607ad7b7"], +Cell[235235, 6593, 191, 5, 32, "Output",ExpressionUUID->"e49c1b8d-fabe-b944-a6dd-c578eb57eb6a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[235463, 6603, 2094, 60, 211, "Input",ExpressionUUID->"4b73592e-b155-8f42-b33d-562f8b3faecd"], +Cell[237560, 6665, 342, 6, 20, "Message",ExpressionUUID->"9f5fa53c-8bea-a349-9c29-e4614f56cc98"], +Cell[237905, 6673, 342, 6, 20, "Message",ExpressionUUID->"a2ecd22c-b766-5347-9e03-9d459620be75"], +Cell[238250, 6681, 342, 6, 20, "Message",ExpressionUUID->"45a49c2b-98f0-ca4e-ab79-bb0334e26ffd"], +Cell[238595, 6689, 407, 7, 20, "Message",ExpressionUUID->"258782e2-0da4-1143-8b36-76da0d2ac6df"], +Cell[239005, 6698, 8024, 353, 185, 4113, 287, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"06204099-db57-8e4e-bcc4-fa1ae37c0063"], +Cell[247032, 7053, 191, 5, 32, "Output",ExpressionUUID->"8efa1c1f-552a-d042-8a05-04dec8739bf5"] +}, Open ]], +Cell[247238, 7061, 2455, 69, 158, "Input",ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-5e6c7b4b5678"], +Cell[249696, 7132, 209, 5, 42, "Input",ExpressionUUID->"cd9a8165-891b-9245-aca1-3f60fcfd9a79"], +Cell[CellGroupData[{ +Cell[249930, 7141, 215, 7, 48, "Input",ExpressionUUID->"c213919d-017d-a948-8e46-fe19384187c3"], +Cell[250148, 7150, 100, 0, 32, "Output",ExpressionUUID->"38d25667-6c7c-094b-b4ad-180d70233424"] +}, Open ]], +Cell[CellGroupData[{ +Cell[250285, 7155, 1814, 53, 183, "Input",ExpressionUUID->"3764dfb4-9656-4349-b0a1-77ebd1a3e048"], +Cell[252102, 7210, 342, 6, 20, "Message",ExpressionUUID->"12d513db-13cc-bc48-b9a3-22b17d8aeb9a"], +Cell[252447, 7218, 342, 6, 20, "Message",ExpressionUUID->"05911c33-7605-8b49-a7ba-7fc8c8f30741"], +Cell[252792, 7226, 342, 6, 20, "Message",ExpressionUUID->"2192e048-2875-9f4a-aa0c-9cbbd447dfe1"], +Cell[253137, 7234, 407, 7, 20, "Message",ExpressionUUID->"b6990f5f-359f-464b-ac16-44cdfeae3c8e"], +Cell[253547, 7243, 8187, 365, 185, 4186, 297, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"899e43aa-c372-6647-a3e4-4952f308ab17"], +Cell[261737, 7610, 191, 5, 32, "Output",ExpressionUUID->"65116f16-0f68-7e4d-af2e-baecb9a57d9b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[261965, 7620, 1590, 47, 113, "Input",ExpressionUUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], +Cell[263558, 7669, 342, 6, 20, "Message",ExpressionUUID->"d7dfab56-fefd-0149-8a26-6ee16f94ab37"], +Cell[263903, 7677, 101, 0, 32, "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"] +}, Open ]], +Cell[CellGroupData[{ +Cell[264041, 7682, 2247, 64, 223, "Input",ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-8e83e9537fdc"], +Cell[266291, 7748, 342, 6, 70, "Message",ExpressionUUID->"56921c73-2b67-0e4a-9808-5f61de992c7e"], +Cell[266636, 7756, 342, 6, 70, "Message",ExpressionUUID->"8ae663ad-3729-254b-9ec7-7f5d00ef81af"], +Cell[266981, 7764, 103, 0, 70, "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"] +}, Open ]], +Cell[CellGroupData[{ +Cell[267121, 7769, 2219, 64, 70, "Input",ExpressionUUID->"ccaee6a3-c390-0444-bf16-3471356a3614"], +Cell[269343, 7835, 342, 6, 70, "Message",ExpressionUUID->"1795c3b9-0182-224c-b986-6414d6712c04"], +Cell[269688, 7843, 342, 6, 70, "Message",ExpressionUUID->"c3b31753-a67f-9b45-b822-068e1df11f68"], +Cell[270033, 7851, 100, 0, 70, "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[270170, 7856, 2221, 64, 70, "Input",ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-286954db37c5"], +Cell[272394, 7922, 342, 6, 70, "Message",ExpressionUUID->"32db1bf6-ba11-cb4a-955a-52e174a44e5f"], +Cell[272739, 7930, 342, 6, 70, "Message",ExpressionUUID->"4e2b22f2-1724-7649-93fc-33cd27bb415e"], +Cell[273084, 7938, 101, 0, 70, "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"] +}, Open ]], +Cell[CellGroupData[{ +Cell[273222, 7943, 215, 6, 70, "Input",ExpressionUUID->"7ec678fd-8398-414a-aeba-20e078d734cd"], +Cell[273440, 7951, 104, 0, 70, "Output",ExpressionUUID->"ca67de9f-825c-f641-9d0a-229375d081b1"] +}, Open ]], +Cell[273559, 7954, 247, 5, 70, "Input",ExpressionUUID->"ca329276-48d7-8943-8408-dd2997d3499c"], +Cell[CellGroupData[{ +Cell[273831, 7963, 532, 18, 70, "Input",ExpressionUUID->"681c316f-cd82-ae4b-824f-5eb2b3081f6d"], +Cell[274366, 7983, 100, 0, 70, "Output",ExpressionUUID->"9cf6d8e0-9f1b-734e-b42f-ef77566b5546"] +}, Open ]], +Cell[CellGroupData[{ +Cell[274503, 7988, 144, 4, 70, "Input",ExpressionUUID->"11e77a67-96b2-a645-89cd-559587f30b91"], +Cell[274650, 7994, 100, 0, 70, "Output",ExpressionUUID->"c5ed49bf-8480-c447-a0ac-ef7c5fcad104"] +}, Open ]], +Cell[CellGroupData[{ +Cell[274787, 7999, 155, 4, 70, "Input",ExpressionUUID->"3c5f43e9-afc4-be40-8f37-0116656ecd38"], +Cell[274945, 8005, 100, 0, 70, "Output",ExpressionUUID->"8a551ee1-59e8-d74e-b2fe-ad1527aaef53"] +}, Open ]], +Cell[CellGroupData[{ +Cell[275082, 8010, 6029, 184, 70, "Input",ExpressionUUID->"f07a8476-d7bc-1049-82a6-7cf06f61e28f"], +Cell[281114, 8196, 102, 0, 70, "Output",ExpressionUUID->"6efee3b5-10d6-d642-9cf2-dd8d3fe591e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[281253, 8201, 342, 8, 70, "Input",ExpressionUUID->"b88b1a94-22d7-2843-88e3-f607b95c8af9"], +Cell[281598, 8211, 342, 6, 70, "Message",ExpressionUUID->"def6b331-c871-b04d-a16e-4fc00b03d009"], +Cell[281943, 8219, 99, 0, 70, "Output",ExpressionUUID->"332f8da7-4eec-ed47-b124-edf7e2bf43d7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[282079, 8224, 6096, 186, 70, "Input",ExpressionUUID->"9d771aab-c0b4-f24c-9b53-9472e00c4d82"], +Cell[288178, 8412, 102, 0, 70, "Output",ExpressionUUID->"0f048ce5-7f5e-0a41-a634-6908b289becd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[288317, 8417, 342, 8, 70, "Input",ExpressionUUID->"47e2a8e8-6af3-374f-9eea-9c2b6faaaf4a"], +Cell[288662, 8427, 342, 6, 70, "Message",ExpressionUUID->"c6c8676e-4601-144e-b83c-769e22949175"], +Cell[289007, 8435, 100, 0, 70, "Output",ExpressionUUID->"bd9f2dfb-0880-624c-8a61-fa3104084faf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[289144, 8440, 2637, 87, 70, "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-6b0985b9b3bc"], +Cell[291784, 8529, 101, 0, 70, "Output",ExpressionUUID->"6edb9332-f61a-1c4a-ad7b-c9d3e77138f1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[291922, 8534, 2577, 84, 70, "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-4868d83e9702"], +Cell[294502, 8620, 102, 0, 70, "Output",ExpressionUUID->"5f6645b8-6ac5-6148-a1e1-5f2ee5f21bdd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[294641, 8625, 3686, 117, 70, "Input",ExpressionUUID->"5caf1614-7e5c-9940-98cd-9460e2c074b2"], +Cell[298330, 8744, 102, 0, 70, "Output",ExpressionUUID->"9de56db9-9853-1748-aca6-5103b9dea11d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[298469, 8749, 2052, 59, 70, "Input",ExpressionUUID->"db0784f6-51d0-fd44-b0e8-05d6af1a6e52"], +Cell[300524, 8810, 342, 6, 70, "Message",ExpressionUUID->"7fd60dea-f794-4744-8801-bfb1a50a0e07"], +Cell[300869, 8818, 342, 6, 70, "Message",ExpressionUUID->"0b8c0718-41d2-4542-8afe-212a15805650"], +Cell[301214, 8826, 101, 0, 70, "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[301352, 8831, 2054, 59, 70, "Input",ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-f69c33a31448"], +Cell[303409, 8892, 342, 6, 70, "Message",ExpressionUUID->"b6f0ccc2-ff83-124b-a341-e143319c7670"], +Cell[303754, 8900, 342, 6, 70, "Message",ExpressionUUID->"d4b50e17-5ee4-384c-b81f-c2a36a80320e"], +Cell[304099, 8908, 100, 0, 70, "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"] +}, Open ]], +Cell[CellGroupData[{ +Cell[304236, 8913, 2030, 55, 70, "Input",ExpressionUUID->"611f92ea-b199-2643-9788-194fae57c34e"], +Cell[306269, 8970, 342, 6, 70, "Message",ExpressionUUID->"7797a546-4085-124a-83da-5f3c472cdc4c"], +Cell[306614, 8978, 342, 6, 70, "Message",ExpressionUUID->"bf75ebeb-fc95-1d45-8487-ceed40ec633c"], +Cell[306959, 8986, 342, 6, 70, "Message",ExpressionUUID->"ca7472ca-7b27-a54a-84a1-e603fa592207"], +Cell[307304, 8994, 407, 7, 70, "Message",ExpressionUUID->"86b3b7d9-f0e9-0a4b-9079-b341ca597ab4"], +Cell[307714, 9003, 9432, 438, 70, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"f3c0c3aa-fd64-8e41-bc0a-ae36b33a37ec"], +Cell[317149, 9443, 191, 5, 70, "Output",ExpressionUUID->"23cfff6f-2c67-ce46-9cc6-49e8ffb5e8c8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[317377, 9453, 2118, 60, 70, "Input",ExpressionUUID->"f4c3d53a-1214-a145-beb0-494cdae35e56"], +Cell[319498, 9515, 342, 6, 70, "Message",ExpressionUUID->"b9265795-17b8-4e47-bd29-fee31586537e"], +Cell[319843, 9523, 342, 6, 70, "Message",ExpressionUUID->"072fb53f-7116-0f41-a298-6891351a3192"], +Cell[320188, 9531, 342, 6, 70, "Message",ExpressionUUID->"7f686ca7-db7f-0b40-bbd8-c08a80d2c198"], +Cell[320533, 9539, 407, 7, 70, "Message",ExpressionUUID->"3aaeaf29-5b60-ab47-b674-24d071c511f8"], +Cell[320943, 9548, 8546, 368, 70, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"fb5ee406-78d5-a849-9c81-3ea500ee883f"], +Cell[329492, 9918, 191, 5, 70, "Output",ExpressionUUID->"637816d3-cc2d-bb4a-991c-87bc9c72594a"] +}, Open ]], +Cell[329698, 9926, 209, 5, 70, "Input",ExpressionUUID->"2335a158-7588-4c40-bdb5-53b7ef04b97c"], +Cell[CellGroupData[{ +Cell[329932, 9935, 1590, 47, 70, "Input",ExpressionUUID->"01995149-3665-fe4e-b326-b20429031afd"], +Cell[331525, 9984, 342, 6, 70, "Message",ExpressionUUID->"52cff8eb-0c77-c944-a54f-e282b00ce766"], +Cell[331870, 9992, 101, 0, 70, "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[332008, 9997, 2251, 64, 70, "Input",ExpressionUUID->"11b1e372-f457-5a4d-bcee-062a3c04ed96"], +Cell[334262, 10063, 342, 6, 70, "Message",ExpressionUUID->"cb5a1193-7562-6446-a279-d9f6295d156e"], +Cell[334607, 10071, 342, 6, 70, "Message",ExpressionUUID->"566b0ad4-7f4e-b04f-8294-646ce1913fac"], +Cell[334952, 10079, 101, 0, 70, "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[335090, 10084, 2220, 64, 70, "Input",ExpressionUUID->"8cb4e371-90a5-d347-adec-3382e7679ba8"], +Cell[337313, 10150, 342, 6, 70, "Message",ExpressionUUID->"4cd45900-7eb0-6b4b-830a-a339e8117392"], +Cell[337658, 10158, 342, 6, 70, "Message",ExpressionUUID->"0ddcf174-f6c5-2546-b6d3-f17f46d6e8a3"], +Cell[338003, 10166, 101, 0, 70, "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[338141, 10171, 2223, 64, 70, "Input",ExpressionUUID->"732b358a-c98a-0347-8b16-2462b23d6249"], +Cell[340367, 10237, 342, 6, 70, "Message",ExpressionUUID->"f702ec8b-e3a1-2f4f-bfef-4278a2688935"], +Cell[340712, 10245, 342, 6, 70, "Message",ExpressionUUID->"61220452-df6a-154e-8b5c-fecd0ab287a1"], +Cell[341057, 10253, 101, 0, 70, "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[341195, 10258, 215, 6, 70, "Input",ExpressionUUID->"3d20548b-905d-0343-8df1-168ec8f367e1"], +Cell[341413, 10266, 102, 0, 70, "Output",ExpressionUUID->"b33ad8ed-51f6-a045-9dc5-33a5696fd31e"] +}, Open ]], +Cell[341530, 10269, 247, 5, 70, "Input",ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-e661a25a7ba1"], +Cell[CellGroupData[{ +Cell[341802, 10278, 532, 18, 70, "Input",ExpressionUUID->"601c24ee-3f7b-c74d-891b-10a6d009e34b"], +Cell[342337, 10298, 101, 0, 70, "Output",ExpressionUUID->"f1ecc2fd-4cd6-5249-8977-1cc4a714ca85"] +}, Open ]], +Cell[CellGroupData[{ +Cell[342475, 10303, 144, 4, 70, "Input",ExpressionUUID->"05949206-8ee0-5646-bb01-e9142212274d"], +Cell[342622, 10309, 101, 0, 70, "Output",ExpressionUUID->"0b6f2dc1-dd2d-e341-8cc9-32a5777d3dad"] +}, Open ]], +Cell[CellGroupData[{ +Cell[342760, 10314, 155, 4, 70, "Input",ExpressionUUID->"25a02cc2-cb9a-bc4b-93f0-a7873f982a23"], +Cell[342918, 10320, 100, 0, 70, "Output",ExpressionUUID->"b4c0b4dc-7ff0-3246-8607-df7a1b97c52c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[343055, 10325, 6029, 184, 70, "Input",ExpressionUUID->"df51ca6a-83a1-6340-b13c-0185de64c37f"], +Cell[349087, 10511, 102, 0, 70, "Output",ExpressionUUID->"c326471e-e866-ed4e-b72f-a7b5b42c78d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[349226, 10516, 342, 8, 70, "Input",ExpressionUUID->"731f0e35-7798-8b45-a769-075ac4b3983f"], +Cell[349571, 10526, 342, 6, 70, "Message",ExpressionUUID->"4870a5d4-b6fc-9044-ae55-fcbd2b9d41eb"], +Cell[349916, 10534, 100, 0, 70, "Output",ExpressionUUID->"4263cd25-e2b6-5c4b-8834-28c6ca12b863"] +}, Open ]], +Cell[CellGroupData[{ +Cell[350053, 10539, 6096, 186, 70, "Input",ExpressionUUID->"413c8e7d-149c-5d4a-9ccb-23aebae2e6d5"], +Cell[356152, 10727, 102, 0, 70, "Output",ExpressionUUID->"ad614c41-0fc1-a542-b7a8-b8207b3c6926"] +}, Open ]], +Cell[CellGroupData[{ +Cell[356291, 10732, 342, 8, 70, "Input",ExpressionUUID->"e11d7eb8-00a8-f540-98a0-89164ac4bae9"], +Cell[356636, 10742, 342, 6, 70, "Message",ExpressionUUID->"d6f4e6b1-3d45-7649-b7dd-944c4a1de3e4"], +Cell[356981, 10750, 99, 0, 70, "Output",ExpressionUUID->"27fdf87b-577e-d74b-99f1-6a0486be19bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[357117, 10755, 2637, 87, 70, "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-1ee89e798d8f"], +Cell[359757, 10844, 101, 0, 70, "Output",ExpressionUUID->"c5362b47-cc2f-ba44-9fef-3c67d726a6cb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[359895, 10849, 2577, 84, 70, "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-f30d036fcdd2"], +Cell[362475, 10935, 102, 0, 70, "Output",ExpressionUUID->"677f20c9-f9ab-dc41-bd69-627a1665b370"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362614, 10940, 3686, 117, 70, "Input",ExpressionUUID->"46af1283-32d6-7240-acd2-307af56b44db"], +Cell[366303, 11059, 102, 0, 70, "Output",ExpressionUUID->"eb28891c-1746-424b-aa98-1266448f9a3e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[366442, 11064, 2054, 59, 70, "Input",ExpressionUUID->"cd516020-ac7f-224d-b1ff-af0307420662"], +Cell[368499, 11125, 342, 6, 70, "Message",ExpressionUUID->"b82c1933-5313-1d4c-a858-68be8f118333"], +Cell[368844, 11133, 342, 6, 70, "Message",ExpressionUUID->"3b3475f7-7db7-054a-b7f5-20d8f7d491bf"], +Cell[369189, 11141, 100, 0, 70, "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[369326, 11146, 2054, 59, 70, "Input",ExpressionUUID->"a9d0e817-a1c8-6546-a901-34313c6ec04d"], +Cell[371383, 11207, 342, 6, 70, "Message",ExpressionUUID->"9e0b92f8-7fe2-e84e-89cd-c02c9da3e5b7"], +Cell[371728, 11215, 342, 6, 70, "Message",ExpressionUUID->"56712e4d-1aa7-524a-8254-bcfd8978eea0"], +Cell[372073, 11223, 100, 0, 70, "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[372210, 11228, 2030, 55, 70, "Input",ExpressionUUID->"f68960b0-cff6-3245-b906-ad38cf07d634"], +Cell[374243, 11285, 342, 6, 70, "Message",ExpressionUUID->"9c6ce535-b42f-3c43-a89e-eda48c04121e"], +Cell[374588, 11293, 342, 6, 70, "Message",ExpressionUUID->"e2ce6bda-7d9b-6149-bf5b-dd4c91908e28"], +Cell[374933, 11301, 342, 6, 70, "Message",ExpressionUUID->"2bed6df2-09cb-4d4d-b247-4fe79fd38fd6"], +Cell[375278, 11309, 407, 7, 70, "Message",ExpressionUUID->"64a64e18-e609-d54b-8225-64fa7909a948"], +Cell[375688, 11318, 9432, 438, 70, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"7758daab-adf8-2a49-9166-50457409d355"], +Cell[385123, 11758, 191, 5, 70, "Output",ExpressionUUID->"4f7705b8-e954-b341-ab6d-8b4ad9ffca61"] +}, Open ]], +Cell[CellGroupData[{ +Cell[385351, 11768, 2143, 61, 70, "Input",ExpressionUUID->"d43bf17b-b492-0e4a-af4a-6a3bc399953c"], +Cell[387497, 11831, 342, 6, 70, "Message",ExpressionUUID->"2059be4f-bbb2-da49-9e23-3fc4d150d7a8"], +Cell[387842, 11839, 342, 6, 70, "Message",ExpressionUUID->"71d4e039-c2b8-d74d-819a-80d2051e4273"], +Cell[388187, 11847, 342, 6, 70, "Message",ExpressionUUID->"63625e13-15ef-1f45-89dc-998a1b63a626"], +Cell[388532, 11855, 407, 7, 70, "Message",ExpressionUUID->"ff96fc2b-5ddb-2142-a985-58ccc6f07e00"], +Cell[388942, 11864, 8546, 368, 70, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"a63f48d3-505f-0a45-b944-e872edd94d6c"], +Cell[397491, 12234, 191, 5, 70, "Output",ExpressionUUID->"be4328c1-f4b7-a444-b59f-1872f77ea023"] +}, Open ]], +Cell[397697, 12242, 138, 3, 70, "Input",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"], +Cell[CellGroupData[{ +Cell[397860, 12249, 1590, 47, 70, "Input",ExpressionUUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], +Cell[399453, 12298, 342, 6, 70, "Message",ExpressionUUID->"2b38d1a8-4a7e-7b4f-8cdd-5298fced63d9"], +Cell[399798, 12306, 101, 0, 70, "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[399936, 12311, 2249, 64, 70, "Input",ExpressionUUID->"d2148290-3e90-8347-bddd-5dd8190b0268"], +Cell[402188, 12377, 342, 6, 70, "Message",ExpressionUUID->"905b237c-0e51-ab4b-895d-05994c6f1d5f"], +Cell[402533, 12385, 342, 6, 70, "Message",ExpressionUUID->"7ad8c79e-9570-a44d-b593-07aa87056e21"], +Cell[402878, 12393, 100, 0, 70, "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"] +}, Open ]], +Cell[CellGroupData[{ +Cell[403015, 12398, 2219, 64, 70, "Input",ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-98d71f8a8458"], +Cell[405237, 12464, 342, 6, 70, "Message",ExpressionUUID->"c516c31a-74b4-f24d-a16a-678221cde87e"], +Cell[405582, 12472, 342, 6, 70, "Message",ExpressionUUID->"5c50b555-9ebe-f94d-801f-34634555f622"], +Cell[405927, 12480, 99, 0, 70, "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"] +}, Open ]], +Cell[CellGroupData[{ +Cell[406063, 12485, 2221, 64, 70, "Input",ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-57c1fe1d0585"], +Cell[408287, 12551, 342, 6, 70, "Message",ExpressionUUID->"7ca591cf-a5ce-ce41-8101-8edfca50e890"], +Cell[408632, 12559, 342, 6, 70, "Message",ExpressionUUID->"cbafd11a-4be0-b541-81e4-e62191ae7695"], +Cell[408977, 12567, 101, 0, 70, "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"] +}, Open ]], +Cell[CellGroupData[{ +Cell[409115, 12572, 215, 6, 70, "Input",ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-1ca469b254bd"], +Cell[409333, 12580, 102, 0, 70, "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/146-94_h_Pu240_702-703/h_146-94_Pu240_702-703_osc_Qw1.nb b/templates/P240_2-51_YakuninDA/146-94_h_Pu240_702-703/h_146-94_Pu240_702-703_osc_Qw1.nb new file mode 100755 index 0000000..b9cdefc --- /dev/null +++ b/templates/P240_2-51_YakuninDA/146-94_h_Pu240_702-703/h_146-94_Pu240_702-703_osc_Qw1.nb @@ -0,0 +1,14902 @@ +(* 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[ 605416, 14894] +NotebookOptionsPosition[ 563376, 14223] +NotebookOutlinePosition[ 563831, 14241] +CellTagsIndexPosition[ 563788, 14238] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "3.0056"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.9920925094547043`*^9, 3.992092603972748*^9}, { + 3.99209277866609*^9, 3.992092956660898*^9}, {3.9920929879335823`*^9, + 3.992093071903801*^9}, {3.9920931132016296`*^9, + 3.992093115787756*^9}},ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-\ +8326f7c1a9b1"], + +Cell[BoxData["3.0051`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.9920924236975746`*^9, {3.992092517168955*^9, + 3.9920926155774384`*^9}, {3.992092795486683*^9, 3.9920929647336235`*^9}, { + 3.992092996301258*^9, 3.9920930199257812`*^9}, {3.9920930563804474`*^9, + 3.992093082514656*^9}}, + CellLabel-> + "Out[1549]=",ExpressionUUID->"1ebbaaa3-9445-0a4e-a770-bd0f2e882a8d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.9920923210744896`*^9, 3.992092321332884*^9}}, + CellLabel-> + "In[1550]:=",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.992092423865034*^9, {3.9920925172234726`*^9, + 3.9920926156103096`*^9}, {3.9920927955256996`*^9, + 3.9920929647669086`*^9}, {3.9920929963357506`*^9, + 3.9920930199606743`*^9}, {3.9920930564144154`*^9, 3.9920930825586586`*^9}}, + CellLabel-> + "Out[1550]=",ExpressionUUID->"256f9ae8-095e-9441-8f3d-07b15c2c41c5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "146"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.9920923255017357`*^9, 3.9920923262853394`*^9}}, + CellLabel-> + "In[1551]:=",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], + +Cell[BoxData["146"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.9920924238884373`*^9, {3.9920925172304897`*^9, + 3.992092615631912*^9}, {3.9920927955507774`*^9, 3.992092964789009*^9}, { + 3.992092996365631*^9, 3.9920930199827785`*^9}, {3.9920930564344254`*^9, + 3.9920930825825768`*^9}}, + CellLabel-> + "Out[1551]=",ExpressionUUID->"356e74ed-15a8-4942-ba7f-a32e4cf99b76"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[1552]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.9920924238954353`*^9, {3.9920925172532406`*^9, + 3.9920926156550407`*^9}, {3.9920927955573063`*^9, 3.992092964816601*^9}, { + 3.9920929963885365`*^9, 3.9920930200069942`*^9}, {3.992093056453413*^9, + 3.9920930826118507`*^9}}, + CellLabel-> + "Out[1552]=",ExpressionUUID->"9a0dd9ab-8ebe-e145-96c5-a2227e38b170"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[1553]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], + +Cell[BoxData["0.5467500000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.9920924239191437`*^9, {3.9920925172603703`*^9, + 3.992092615662058*^9}, {3.9920927955817127`*^9, 3.9920929648444843`*^9}, { + 3.9920929963955345`*^9, 3.992093020037792*^9}, {3.9920930564614754`*^9, + 3.9920930826384926`*^9}}, + CellLabel-> + "Out[1553]=",ExpressionUUID->"afe36cf3-0c84-2d4d-82a8-34c72f037dcc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[1554]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9920924239261475`*^9, {3.9920925172823544`*^9, + 3.9920926156868935`*^9}, {3.9920927955889683`*^9, 3.992092964851986*^9}, { + 3.9920929964025364`*^9, 3.9920930200579166`*^9}, {3.9920930564844856`*^9, + 3.9920930826454887`*^9}}, + CellLabel-> + "Out[1554]=",ExpressionUUID->"cff83131-4f3e-2a4e-aef3-44b9772e5e7e"] +}, 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[1555]:=",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], + +Cell[BoxData["6.108139416678866`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.9920924239531574`*^9, {3.9920925172885056`*^9, + 3.992092615694437*^9}, {3.992092795615612*^9, 3.9920929648785057`*^9}, { + 3.99209299642354*^9, 3.992093020080536*^9}, {3.992093056491602*^9, + 3.9920930826684914`*^9}}, + CellLabel-> + "Out[1555]=",ExpressionUUID->"fdaccc59-a84e-e24c-97f5-c5e6d7b4dae9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[1556]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], + +Cell[BoxData["5.274329694780558`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.992092423960186*^9, {3.9920925173151093`*^9, + 3.9920926157185707`*^9}, {3.9920927956217175`*^9, 3.992092964906679*^9}, { + 3.9920929964335346`*^9, 3.9920930200885353`*^9}, {3.9920930565104904`*^9, + 3.992093082689234*^9}}, + CellLabel-> + "Out[1556]=",ExpressionUUID->"f72ae6a0-8501-ae45-b791-53f333ac6a72"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.776889591781461"}]], "Input", + CellChangeTimes->{3.991799283179735*^9, 3.9920923337072887`*^9}, + CellLabel-> + "In[1557]:=",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], + +Cell[BoxData["0.776889591781461`"], "Output", + CellChangeTimes->{ + 3.992092423990343*^9, {3.9920925173221264`*^9, 3.9920926157241497`*^9}, { + 3.9920927956457157`*^9, 3.992092964933693*^9}, {3.992092996453539*^9, + 3.992093020113638*^9}, {3.992093056528507*^9, 3.992093082697235*^9}}, + CellLabel-> + "Out[1557]=",ExpressionUUID->"17dfd568-3e2e-1640-b2fa-1a40a7b6aa30"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.581407431720797"}]], "Input", + CellChangeTimes->{3.991799280663351*^9, 3.9920923380503464`*^9}, + CellLabel-> + "In[1558]:=",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], + +Cell[BoxData["0.581407431720797`"], "Output", + CellChangeTimes->{ + 3.992092424013666*^9, {3.9920925173471737`*^9, 3.992092615731226*^9}, { + 3.992092795652767*^9, 3.9920929649666996`*^9}, {3.9920929964595814`*^9, + 3.9920930201207066`*^9}, {3.992093056549488*^9, 3.9920930827184944`*^9}}, + CellLabel-> + "Out[1558]=",ExpressionUUID->"3c7f784f-3a9b-c443-aa8b-484c38e5263a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[1559]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.992092424022188*^9, {3.9920925173531837`*^9, + 3.9920926157588634`*^9}, {3.9920927956776123`*^9, + 3.9920929649736977`*^9}, {3.9920929964887676`*^9, + 3.9920930201447144`*^9}, {3.9920930565736217`*^9, 3.9920930827473965`*^9}}, + CellLabel-> + "Out[1559]=",ExpressionUUID->"20c299f4-43b6-484a-b689-140dc8659d47"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[1560]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.99209242405435*^9, {3.9920925173801575`*^9, + 3.9920926157839546`*^9}, {3.992092795683565*^9, 3.992092964980709*^9}, { + 3.992092996494766*^9, 3.9920930201517143`*^9}, {3.992093056593773*^9, + 3.992093082771408*^9}}, + CellLabel-> + "Out[1560]=",ExpressionUUID->"cea5527b-2dec-114a-93d1-4e0a6850f932"] +}, 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[1561]:=",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], + +Cell[BoxData["2.0397870167233085`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.9920924240852013`*^9, {3.992092517402384*^9, + 3.992092615814083*^9}, {3.9920927957096004`*^9, 3.9920929650027065`*^9}, { + 3.992092996519766*^9, 3.992093020174679*^9}, {3.99209305660058*^9, + 3.992093082802458*^9}}, + CellLabel-> + "Out[1561]=",ExpressionUUID->"9bf001fa-d212-f740-ab7e-54355605796c"] +}, 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[1562]:=",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], + +Cell[BoxData["1.6965844703854613`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.992092424111204*^9, {3.9920925174282036`*^9, + 3.9920926158210907`*^9}, {3.9920927957326183`*^9, + 3.9920929650108223`*^9}, {3.9920929965277767`*^9, + 3.9920930201817207`*^9}, {3.9920930566225815`*^9, 3.9920930828307343`*^9}}, + CellLabel-> + "Out[1562]=",ExpressionUUID->"9f9ae1a5-4c91-d349-a352-4feaf260b84e"] +}, 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[1563]:=",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], + +Cell[BoxData["0.4525799206818347`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.992092424119274*^9, {3.9920925174510517`*^9, + 3.992092615844631*^9}, {3.992092795759413*^9, 3.9920929650365314`*^9}, { + 3.992092996561762*^9, 3.992093020204855*^9}, {3.99209305664777*^9, + 3.9920930828387337`*^9}}, + CellLabel-> + "Out[1563]=",ExpressionUUID->"7ce415b4-5744-0348-b749-9ad469f9f635"] +}, 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[1564]:=",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], + +Cell[BoxData[ + RowBox[{"-", "0.14627901466132107`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.992092424141165*^9, {3.9920925174730873`*^9, + 3.9920926158522587`*^9}, {3.9920927957819347`*^9, + 3.9920929650445366`*^9}, {3.9920929965907135`*^9, 3.992093020211878*^9}, { + 3.9920930566693344`*^9, 3.992093082863735*^9}}, + CellLabel-> + "Out[1564]=",ExpressionUUID->"7b04735c-e7e9-ed4e-9d56-dcdeffb8c44a"] +}, 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[1565]:=",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], + +Cell[BoxData[ + RowBox[{"-", "0.3067897746750185`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.992092424148676*^9, {3.9920925174800377`*^9, + 3.9920926158790665`*^9}, {3.9920927957879353`*^9, 3.992092965067564*^9}, { + 3.9920929966195316`*^9, 3.992093020237875*^9}, {3.992093056689333*^9, + 3.992093082887562*^9}}, + CellLabel-> + "Out[1565]=",ExpressionUUID->"7775ef00-1ffb-9041-99e1-72fb501f4050"] +}, 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[1566]:=",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], + +Cell[BoxData["0.5588619635695797`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9920924241740017`*^9, {3.992092517506195*^9, + 3.992092615886593*^9}, {3.992092795809948*^9, 3.9920929650908546`*^9}, { + 3.992092996646963*^9, 3.9920930202454033`*^9}, {3.9920930566973324`*^9, + 3.9920930829164524`*^9}}, + CellLabel-> + "Out[1566]=",ExpressionUUID->"fffc0803-839b-0048-8acc-65fc244477a6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[1567]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9920924241809826`*^9, {3.9920925175332184`*^9, + 3.9920926159109*^9}, {3.992092795831953*^9, 3.9920929651138535`*^9}, { + 3.992092996668474*^9, 3.992093020272644*^9}, {3.992093056717905*^9, + 3.9920930829486275`*^9}}, + CellLabel-> + "Out[1567]=",ExpressionUUID->"2646e980-f3dd-ca42-8127-9c0c8739d6b0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "In[1568]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.992092424206465*^9, {3.9920925175399876`*^9, + 3.9920926159344234`*^9}, {3.992092795838951*^9, 3.9920929651357594`*^9}, { + 3.9920929966934986`*^9, 3.99209302029665*^9}, {3.99209305672542*^9, + 3.9920930829716263`*^9}}, + CellLabel-> + "Out[1568]=",ExpressionUUID->"fc3b8d24-1723-3d4d-8ea1-628aac4fc008"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel-> + "In[1569]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.992092424234129*^9, {3.992092517566017*^9, + 3.9920926159586544`*^9}, {3.9920927958609962`*^9, + 3.9920929651594734`*^9}, {3.992092996718672*^9, 3.992093020305662*^9}, { + 3.9920930567515335`*^9, 3.992093082996649*^9}}, + CellLabel-> + "Out[1569]=",ExpressionUUID->"fdd286e8-31ae-5f4c-adfc-ed6cf7bcf1f2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[1570]:=",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.992092424266348*^9, {3.992092517574074*^9, + 3.992092615965214*^9}, {3.992092795889517*^9, 3.9920929651855907`*^9}, { + 3.992092996726671*^9, 3.9920930203267136`*^9}, {3.992093056776457*^9, + 3.992093083021673*^9}}, + CellLabel-> + "Out[1570]=",ExpressionUUID->"54ca71ca-3327-2f42-ba07-aa98771ed12c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[1571]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.992092424273369*^9, {3.9920925176013985`*^9, + 3.992092615998451*^9}, {3.992092795897524*^9, 3.99209296519359*^9}, { + 3.992092996750679*^9, 3.9920930203537235`*^9}, {3.992093056799759*^9, + 3.992093083046667*^9}}, + CellLabel-> + "Out[1571]=",ExpressionUUID->"3ed6dab9-b557-4e49-b46c-3029017ee729"] +}, 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.992092352631197*^9}, + CellLabel-> + "In[1572]:=",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], + +Cell[BoxData["64"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.992092424299999*^9, {3.992092517624138*^9, + 3.9920926160050697`*^9}, {3.992092795920538*^9, 3.992092965218601*^9}, { + 3.992092996757696*^9, 3.992093020374735*^9}, {3.9920930568097687`*^9, + 3.992093083054676*^9}}, + CellLabel-> + "Out[1572]=",ExpressionUUID->"7fc519e8-1b90-a343-93aa-3d7727210154"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, 3.9920923570474358`*^9}, + CellLabel-> + "In[1573]:=",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], + +Cell[BoxData["30"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.9920924243070126`*^9, {3.99209251763118*^9, + 3.992092616031456*^9}, {3.9920927959265404`*^9, 3.992092965225622*^9}, { + 3.9920929967776775`*^9, 3.992093020382736*^9}, {3.9920930568337727`*^9, + 3.992093083077688*^9}}, + CellLabel-> + "Out[1573]=",ExpressionUUID->"f65c67b8-a61b-5e41-8bb3-c9c1695eb0df"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[1574]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], + +Cell[BoxData["94"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.992092424333185*^9, {3.992092517655279*^9, + 3.9920926160390186`*^9}, {3.992092795952633*^9, 3.992092965246483*^9}, { + 3.992092996803364*^9, 3.9920930204057865`*^9}, {3.992093056858282*^9, + 3.992093083085678*^9}}, + CellLabel-> + "Out[1574]=",ExpressionUUID->"d00e1bd8-9e8d-924d-a3b9-7cbb96787ae5"] +}, 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[1575]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], + +Cell[BoxData["0.10872923345963276`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9920924243572235`*^9, {3.992092517667328*^9, + 3.9920926160661354`*^9}, {3.9920927959597607`*^9, 3.992092965273592*^9}, { + 3.992092996828369*^9, 3.9920930204138546`*^9}, {3.992093056866806*^9, + 3.992093083111456*^9}}, + CellLabel-> + "Out[1575]=",ExpressionUUID->"13bdc432-de29-0c48-aa43-00a6c23c9175"] +}, 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[1576]:=",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], + +Cell[BoxData[ + RowBox[{"-", "2.565919556980472`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.9920924243811493`*^9, {3.9920925176941147`*^9, + 3.992092616073208*^9}, {3.9920927959847507`*^9, 3.9920929652985916`*^9}, { + 3.992092996836376*^9, 3.9920930204444256`*^9}, {3.9920930568897095`*^9, + 3.9920930831194363`*^9}}, + CellLabel-> + "Out[1576]=",ExpressionUUID->"979b81aa-76df-f241-90dd-f44416c9e227"] +}, 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[1577]:=",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], + +Cell[BoxData["18.87992353524718`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.9920924244051456`*^9, {3.9920925177193546`*^9, + 3.992092616100073*^9}, {3.9920927959917564`*^9, 3.992092965308607*^9}, { + 3.9920929968593845`*^9, 3.992093020467409*^9}, {3.9920930569185905`*^9, + 3.992093083142683*^9}}, + CellLabel-> + "Out[1577]=",ExpressionUUID->"2bce044e-cdbf-6b45-a6ab-1e98de409390"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[1578]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.992092424412163*^9, {3.9920925177291546`*^9, + 3.992092616126276*^9}, {3.992092796015764*^9, 3.9920929653326607`*^9}, { + 3.9920929968708153`*^9, 3.992093020496603*^9}, {3.992093056938593*^9, + 3.9920930831506824`*^9}}, + CellLabel-> + "Out[1578]=",ExpressionUUID->"a9877b49-9a0f-074a-a675-f639e26d8c27"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.362"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, + 3.9920923643154297`*^9}, + CellLabel-> + "In[1579]:=",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], + +Cell[BoxData["1.362`"], "Output", + CellChangeTimes->{ + 3.9920924244360676`*^9, {3.992092517751152*^9, 3.9920926161342983`*^9}, { + 3.992092796022789*^9, 3.9920929653398457`*^9}, {3.9920929968917847`*^9, + 3.9920930205193768`*^9}, {3.992093056964657*^9, 3.9920930831736813`*^9}}, + CellLabel-> + "Out[1579]=",ExpressionUUID->"b460e55c-f393-c440-ad77-00a848515def"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[1580]:=",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.795"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, + 3.992092367948057*^9}, + CellLabel-> + "In[1581]:=",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], + +Cell[BoxData["0.795`"], "Output", + CellChangeTimes->{ + 3.9920924244671745`*^9, {3.9920925177601814`*^9, 3.9920926161603107`*^9}, { + 3.9920927960489674`*^9, 3.9920929653658905`*^9}, {3.992092996901783*^9, + 3.9920930205454807`*^9}, {3.992093056990692*^9, 3.9920930831836834`*^9}}, + CellLabel-> + "Out[1581]=",ExpressionUUID->"cd4444f6-525d-4d42-81db-b4690c8b9676"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[1582]:=",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv1", "=", "2.204"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, + 3.9920923714363804`*^9}, + CellLabel-> + "In[1583]:=",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], + +Cell[BoxData["2.204`"], "Output", + CellChangeTimes->{ + 3.9920924244911957`*^9, {3.992092517786337*^9, 3.9920926161872025`*^9}, { + 3.992092796077503*^9, 3.9920929653893967`*^9}, {3.9920929969247704`*^9, + 3.992093020555729*^9}, {3.9920930570177917`*^9, 3.992093083208723*^9}}, + CellLabel-> + "Out[1583]=",ExpressionUUID->"3097763e-570b-5146-a994-24452286f60b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[1584]:=",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.070"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, 3.9920923750354595`*^9}, + CellLabel-> + "In[1585]:=",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], + +Cell[BoxData["1.07`"], "Output", + CellChangeTimes->{ + 3.9920924245191975`*^9, {3.9920925178121643`*^9, 3.9920926162159557`*^9}, { + 3.992092796104519*^9, 3.9920929654147778`*^9}, {3.9920929969487724`*^9, + 3.992093020581457*^9}, {3.9920930570267944`*^9, 3.992093083235735*^9}}, + CellLabel-> + "Out[1585]=",ExpressionUUID->"1e31b0b2-7abb-8d40-a974-a66686c8d87f"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[1586]:=",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"v2", "=", "0.938"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, 3.992092378674286*^9}, + CellLabel-> + "In[1587]:=",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], + +Cell[BoxData["0.938`"], "Output", + CellChangeTimes->{ + 3.9920924245433064`*^9, {3.9920925178372326`*^9, 3.9920926162431374`*^9}, { + 3.992092796130512*^9, 3.9920929654385223`*^9}, {3.992092996973612*^9, + 3.992093020606451*^9}, {3.992093057050337*^9, 3.9920930832457333`*^9}}, + CellLabel-> + "Out[1587]=",ExpressionUUID->"6fe6deb1-4452-f84e-9b3f-5280e2fcf4e4"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[1588]:=",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.739"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, 3.9920923820487957`*^9}, + CellLabel-> + "In[1589]:=",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], + +Cell[BoxData["0.739`"], "Output", + CellChangeTimes->{ + 3.9920924245712776`*^9, {3.992092517868086*^9, 3.9920926162719116`*^9}, { + 3.992092796153553*^9, 3.9920929654498425`*^9}, {3.992092996998516*^9, + 3.992093020631668*^9}, {3.992093057076357*^9, 3.9920930832708435`*^9}}, + CellLabel-> + "Out[1589]=",ExpressionUUID->"16c7f714-3257-b34d-a77b-9fe33babd8ff"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[1590]:=",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv2", "=", "1.318"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, 3.992092385442354*^9}, + CellLabel-> + "In[1591]:=",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], + +Cell[BoxData["1.318`"], "Output", + CellChangeTimes->{ + 3.992092424600256*^9, {3.9920925178950996`*^9, 3.9920926162988586`*^9}, { + 3.9920927961825104`*^9, 3.992092965474863*^9}, {3.9920929970216312`*^9, + 3.9920930206588135`*^9}, {3.992093057101387*^9, 3.992093083297676*^9}}, + CellLabel-> + "Out[1591]=",ExpressionUUID->"5d1dcb58-9ff9-8740-bffd-1be75022accd"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[1592]:=",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn2", "=", "0.948"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, 3.992092389548071*^9}, + CellLabel-> + "In[1593]:=",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], + +Cell[BoxData["0.948`"], "Output", + CellChangeTimes->{ + 3.9920924246278687`*^9, {3.9920925179191475`*^9, 3.9920926163079185`*^9}, { + 3.992092796204502*^9, 3.992092965499399*^9}, {3.9920929970485687`*^9, + 3.99209302068668*^9}, {3.99209305712838*^9, 3.992093083307684*^9}}, + CellLabel-> + "Out[1593]=",ExpressionUUID->"68d321df-bd79-9141-a9e5-89395e208aad"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[1594]:=",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[1595]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], + +Cell[BoxData["0.23853606466317218`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.9920924246760044`*^9, {3.9920925179775143`*^9, + 3.9920926163632183`*^9}, {3.992092796244623*^9, 3.9920929655537834`*^9}, { + 3.992092997089651*^9, 3.9920930207385387`*^9}, {3.992093057173485*^9, + 3.9920930833603687`*^9}}, + CellLabel-> + "Out[1595]=",ExpressionUUID->"9891c226-d59f-c940-8069-e6236f3cd36a"] +}, 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[1596]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], + +Cell[BoxData["1.1621646878049277`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9920924247221813`*^9, {3.992092518021105*^9, + 3.992092616403429*^9}, {3.9920927962806664`*^9, 3.9920929655928*^9}, { + 3.992092997126686*^9, 3.992093020775572*^9}, {3.99209305721846*^9, + 3.9920930834024544`*^9}}, + CellLabel-> + "Out[1596]=",ExpressionUUID->"42fe5593-dd97-7344-8cea-c6ed000b1a91"] +}, 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[1597]:=",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], + +Cell[BoxData[ + RowBox[{"-", "11.54880477030602`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.9920924247643623`*^9, {3.9920925180570297`*^9, + 3.992092616442415*^9}, {3.99209279631579*^9, 3.9920929656287766`*^9}, { + 3.9920929971636944`*^9, 3.992093020811638*^9}, {3.992093057256893*^9, + 3.9920930834404774`*^9}}, + CellLabel-> + "Out[1597]=",ExpressionUUID->"73287dff-cd9e-2142-90e3-5db79aca50d8"] +}, 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[1598]:=",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], + +Cell[BoxData[ + RowBox[{"-", "19.77600599831311`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.9920924248567066`*^9, {3.9920925181035156`*^9, + 3.99209261648604*^9}, {3.9920927963639317`*^9, 3.9920929656716843`*^9}, { + 3.9920929972087193`*^9, 3.992093020858343*^9}, {3.9920930573004055`*^9, + 3.9920930834844856`*^9}}, + CellLabel-> + "Out[1598]=",ExpressionUUID->"ac7b7877-6e38-2747-af04-6417bf204401"] +}, 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[1599]:=",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], + +Cell[BoxData[ + RowBox[{"-", "30.58059117523105`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.992092424909916*^9, {3.9920925181461334`*^9, + 3.9920926165285892`*^9}, {3.9920927964064484`*^9, + 3.9920929657136993`*^9}, {3.99209299725375*^9, 3.992093020905369*^9}, { + 3.9920930573464146`*^9, 3.992093083528572*^9}}, + CellLabel-> + "Out[1599]=",ExpressionUUID->"cc396566-3525-4748-9ae5-60fd26ae1dc1"] +}, 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[1600]:=",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], + +Cell[BoxData[ + RowBox[{"-", "105.09350269202939`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.9920924249671135`*^9, {3.992092518197281*^9, + 3.992092616578083*^9}, {3.992092796458473*^9, 3.992092965763729*^9}, { + 3.992092997304306*^9, 3.9920930209554005`*^9}, {3.9920930573954678`*^9, + 3.992093083597994*^9}}, + CellLabel-> + "Out[1600]=",ExpressionUUID->"d2ef6d49-1374-2b4d-899f-0c6e4dde6022"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[1601]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.992092424988882*^9, {3.9920925182220745`*^9, + 3.9920926166009426`*^9}, {3.9920927964825535`*^9, 3.992092965791752*^9}, { + 3.9920929973323193`*^9, 3.9920930209844055`*^9}, {3.9920930574224644`*^9, + 3.992093083606518*^9}}, + CellLabel-> + "Out[1601]=",ExpressionUUID->"95494de8-4956-094e-a8e6-e6868fc6f423"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[1602]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.9920924249969025`*^9, {3.9920925182290916`*^9, + 3.9920926166340294`*^9}, {3.9920927965035686`*^9, 3.992092965815735*^9}, { + 3.9920929973413277`*^9, 3.992093021007929*^9}, {3.9920930574444923`*^9, + 3.9920930836334076`*^9}}, + CellLabel-> + "Out[1602]=",ExpressionUUID->"5b26e611-5ec7-3042-8984-f7a74a1cbd33"] +}, 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[1603]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], + +Cell[BoxData["50.79485995775785`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9920924250203743`*^9, {3.9920925182541103`*^9, + 3.992092616658106*^9}, {3.992092796530678*^9, 3.9920929658470783`*^9}, { + 3.9920929973643227`*^9, 3.992093021036476*^9}, {3.992093057470501*^9, + 3.992093083664322*^9}}, + CellLabel-> + "Out[1603]=",ExpressionUUID->"31c84d05-12c3-be47-9df8-ffc9cbb13c0d"] +}, 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[1604]:=",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], + +Cell[BoxData[ + RowBox[{"-", "39.807512260788336`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.9920924250287895`*^9, {3.992092518261135*^9, + 3.9920926166661263`*^9}, {3.992092796553686*^9, 3.992092965855587*^9}, { + 3.992092997385847*^9, 3.9920930210664825`*^9}, {3.9920930574785194`*^9, + 3.9920930836908455`*^9}}, + CellLabel-> + "Out[1604]=",ExpressionUUID->"ef0ea4fd-70b5-984d-853f-473fd2ac599b"] +}, 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[1605]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], + +Cell[BoxData["55.47457091262591`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9920924250533905`*^9, {3.9920925182831707`*^9, + 3.9920926166888447`*^9}, {3.992092796576765*^9, 3.992092965880436*^9}, { + 3.992092997412588*^9, 3.992093021074486*^9}, {3.992093057501501*^9, + 3.9920930837153435`*^9}}, + CellLabel-> + "Out[1605]=",ExpressionUUID->"72da1b15-272c-0b4a-9070-4f4f363f2b7d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[1606]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], + +Cell[BoxData["0.4525799206818347`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.9920924250769863`*^9, {3.992092518290186*^9, + 3.9920926166969337`*^9}, {3.992092796599745*^9, 3.9920929659136524`*^9}, { + 3.9920929974355965`*^9, 3.992093021109741*^9}, {3.992093057526634*^9, + 3.992093083742384*^9}}, + CellLabel-> + "Out[1606]=",ExpressionUUID->"036cbf6f-fbe7-a440-8a29-aff08fbe2857"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[1607]:=",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], + +Cell[BoxData[ + RowBox[{"-", "0.14627901466132107`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.992092425085251*^9, {3.9920925183123817`*^9, + 3.992092616720148*^9}, {3.992092796621517*^9, 3.9920929659406376`*^9}, { + 3.9920929974485817`*^9, 3.9920930211177807`*^9}, {3.9920930575493755`*^9, + 3.992093083766514*^9}}, + CellLabel-> + "Out[1607]=",ExpressionUUID->"8969fdc8-c9a5-c64f-90ba-d96f332afaeb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[1608]:=",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], + +Cell[BoxData[ + RowBox[{"-", "0.3067897746750185`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.992092425109461*^9, {3.9920925183188953`*^9, + 3.9920926167479305`*^9}, {3.992092796644417*^9, 3.9920929659693794`*^9}, { + 3.9920929974695816`*^9, 3.9920930211443024`*^9}, {3.9920930575783825`*^9, + 3.9920930837753963`*^9}}, + CellLabel-> + "Out[1608]=",ExpressionUUID->"dd7651dc-cb42-1742-85ec-07465aa9fa99"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[1609]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], + +Cell[BoxData["0.5588619635695797`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.992092425140007*^9, {3.9920925183433113`*^9, + 3.9920926167768955`*^9}, {3.99209279665242*^9, 3.992092965997463*^9}, { + 3.9920929974956074`*^9, 3.992093021153307*^9}, {3.9920930575873737`*^9, + 3.9920930837992496`*^9}}, + CellLabel-> + "Out[1609]=",ExpressionUUID->"5e78289d-09f7-5b4e-93b4-7bcb7b152f66"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[1610]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], + +Cell[BoxData["2.0397870167233085`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.9920924251485367`*^9, {3.9920925183502617`*^9, + 3.992092616801161*^9}, {3.992092796675625*^9, 3.992092966020483*^9}, { + 3.992092997519621*^9, 3.9920930211783123`*^9}, {3.992093057612406*^9, + 3.992093083807356*^9}}, + CellLabel-> + "Out[1610]=",ExpressionUUID->"3f6278b7-a28a-594e-8a23-09f3d3483888"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[1611]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], + +Cell[BoxData["1.6965844703854613`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.9920924251731644`*^9, {3.992092518390991*^9, + 3.992092616809025*^9}, {3.992092796682625*^9, 3.9920929660454655`*^9}, { + 3.992092997546631*^9, 3.992093021206312*^9}, {3.9920930576354465`*^9, + 3.9920930838346233`*^9}}, + CellLabel-> + "Out[1611]=",ExpressionUUID->"1ee3f225-4e97-984c-b225-455d7f3a4c39"] +}, 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[1612]:=",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], + +Cell[BoxData[ + RowBox[{"-", "21.092736551945727`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.9920924251813374`*^9, {3.9920925184000015`*^9, + 3.9920926168329926`*^9}, {3.992092796713726*^9, 3.9920929660694675`*^9}, { + 3.992092997555647*^9, 3.992093021215063*^9}, {3.9920930576579895`*^9, + 3.992093083860649*^9}}, + CellLabel-> + "Out[1612]=",ExpressionUUID->"c5d6c614-4b12-5d4f-bb0f-a2ce82221b0e"] +}, 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[1613]:=",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], + +Cell[BoxData[ + RowBox[{"-", "10.70666087171256`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.992092425203964*^9, {3.992092518424059*^9, + 3.992092616841175*^9}, {3.992092796739727*^9, 3.992092966097471*^9}, { + 3.992092997577677*^9, 3.9920930212386017`*^9}, {3.9920930576665287`*^9, + 3.992093083870682*^9}}, + CellLabel-> + "Out[1613]=",ExpressionUUID->"9a1e3298-13b0-4c4d-a540-953e925a83a5"] +}, 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[1614]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], + +Cell[BoxData["29.702123405812124`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.99209242521216*^9, {3.992092518431139*^9, + 3.992092616869858*^9}, {3.9920927967650204`*^9, 3.9920929661054707`*^9}, { + 3.99209299758585*^9, 3.992093021262615*^9}, {3.992093057691532*^9, + 3.992093083897995*^9}}, + CellLabel-> + "Out[1614]=",ExpressionUUID->"ab5e33a4-9795-d642-8732-25202fb76681"] +}, 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[1615]:=",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], + +Cell[BoxData[ + RowBox[{"-", "39.807512260788336`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.9920924252399826`*^9, {3.9920925184532547`*^9, + 3.9920926168974247`*^9}, {3.992092796772524*^9, 3.992092966127367*^9}, { + 3.992092997616436*^9, 3.992093021286625*^9}, {3.9920930577172832`*^9, + 3.9920930839314575`*^9}}, + CellLabel-> + "Out[1615]=",ExpressionUUID->"77d3672c-ebf4-db44-851d-03385ef2f057"] +}, 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[1616]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], + +Cell[BoxData["44.76791004091335`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.9920924252641563`*^9, {3.9920925184652615`*^9, + 3.992092616924053*^9}, {3.992092796799511*^9, 3.9920929661654415`*^9}, { + 3.992092997645611*^9, 3.9920930213107224`*^9}, {3.9920930577272816`*^9, + 3.9920930839574585`*^9}}, + CellLabel-> + "Out[1616]=",ExpressionUUID->"e8ad9317-5c6f-d847-ae99-21264e012189"] +}, 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[1617]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], + +Cell[BoxData["0.017639944695631016`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.992092425272375*^9, {3.9920925184886303`*^9, + 3.9920926169319496`*^9}, {3.992092796807514*^9, 3.992092966188612*^9}, { + 3.9920929976776257`*^9, 3.99209302132073*^9}, {3.9920930577495594`*^9, + 3.9920930839824753`*^9}}, + CellLabel-> + "Out[1617]=",ExpressionUUID->"2bde0c56-c23c-da47-9dd6-d0a17eb70781"] +}, 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[1618]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], + +Cell[BoxData["198.48274307805877`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.9920924252972507`*^9, {3.99209251849621*^9, + 3.9920926169568806`*^9}, {3.99209279683144*^9, 3.9920929661966133`*^9}, { + 3.992092997701681*^9, 3.992093021346737*^9}, {3.9920930577580833`*^9, + 3.9920930839966183`*^9}}, + CellLabel-> + "Out[1618]=",ExpressionUUID->"68197958-5a48-e24c-b564-81832e5b3242"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.719616319964285"}]], "Input", + CellChangeTimes->{3.991799412462593*^9, 3.99209240134511*^9}, + CellLabel-> + "In[1619]:=",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], + +Cell[BoxData["0.719616319964285`"], "Output", + CellChangeTimes->{ + 3.992092425303158*^9, {3.9920925185175705`*^9, 3.992092616964899*^9}, { + 3.99209279683844*^9, 3.992092966219612*^9}, {3.9920929977096825`*^9, + 3.992093021355736*^9}, {3.9920930577816296`*^9, 3.992093084023361*^9}}, + CellLabel-> + "Out[1619]=",ExpressionUUID->"3b395217-8188-404a-ae07-c14d603d86bf"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184866880085*^9, 3.9918486688048573`*^9}}, + CellLabel-> + "In[1620]:=",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.751752569327218"}]], "Input", + CellChangeTimes->{3.991799414288656*^9, 3.9920924055660133`*^9}, + CellLabel-> + "In[1621]:=",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], + +Cell[BoxData["0.751752569327218`"], "Output", + CellChangeTimes->{ + 3.9920924253301563`*^9, {3.992092518525587*^9, 3.9920926169951*^9}, { + 3.992092796864971*^9, 3.992092966229616*^9}, {3.9920929977415695`*^9, + 3.9920930213812504`*^9}, {3.992093057792652*^9, 3.9920930840503693`*^9}}, + CellLabel-> + "Out[1621]=",ExpressionUUID->"ad6a7ab8-8149-1543-9505-02f460a58ac9"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848669922333*^9, 3.9918486699293537`*^9}}, + CellLabel-> + "In[1622]:=",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[1623]:=",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], + +Cell[BoxData["2.093424983735306`*^-53"], "Output", + CellChangeTimes->{ + 3.99132042156752*^9, 3.9920924253391666`*^9, {3.992092518550045*^9, + 3.9920926170223064`*^9}, {3.992092796892542*^9, 3.992092966258562*^9}, { + 3.9920929977685757`*^9, 3.9920930214062576`*^9}, {3.992093057817316*^9, + 3.9920930840773773`*^9}}, + CellLabel-> + "Out[1623]=",ExpressionUUID->"a52d7df7-0e64-d54e-a292-d12163ffdbee"] +}, 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}, + CellLabel-> + "In[1624]:=",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], + +Cell[BoxData["1.738978896712514`*^-54"], "Output", + CellChangeTimes->{ + 3.99132042159643*^9, 3.9920924253621864`*^9, {3.9920925185787926`*^9, + 3.992092617047863*^9}, {3.9920927968995266`*^9, 3.992092966281561*^9}, { + 3.9920929977775574`*^9, 3.9920930214160423`*^9}, {3.992093057839796*^9, + 3.9920930841053944`*^9}}, + CellLabel-> + "Out[1624]=",ExpressionUUID->"c2023aac-b814-7446-ab12-4137f6803a68"] +}, 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}}, + CellLabel-> + "In[1625]:=",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], + +Cell[BoxData["3.4378830555102365`*^-54"], "Output", + CellChangeTimes->{ + 3.9913204216085243`*^9, 3.992092425370014*^9, {3.9920925185863285`*^9, + 3.992092617056452*^9}, {3.992092796923731*^9, 3.992092966291559*^9}, { + 3.9920929978006935`*^9, 3.9920930214385567`*^9}, {3.992093057861374*^9, + 3.992093084129587*^9}}, + CellLabel-> + "Out[1625]=",ExpressionUUID->"0756e45a-f7eb-ed46-b249-38207984ed8e"] +}, 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[1626]:=",ExpressionUUID->"2d28d1dd-a3ba-5e40-bc3b-15dd0b7d3678"], + +Cell[BoxData["16.75946734195761`"], "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.992092425395115*^9, {3.9920925186099377`*^9, + 3.9920926170813828`*^9}, {3.9920927969337063`*^9, 3.992092966314581*^9}, { + 3.992092997808676*^9, 3.992093021466345*^9}, {3.99209305786977*^9, + 3.992093084156843*^9}}, + CellLabel-> + "Out[1626]=",ExpressionUUID->"676b2d5b-4cd7-184f-a9f2-0374f5510da1"] +}, 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[1627]:=",ExpressionUUID->"dcbc6ccc-ef74-aa46-856c-b0a8579a9132"], + +Cell[BoxData["60.23376460775668`"], "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.992092425402178*^9, {3.992092518615944*^9, 3.992092617109873*^9}, { + 3.9920927969632607`*^9, 3.9920929663225803`*^9}, {3.99209299784173*^9, + 3.992093021489338*^9}, {3.9920930578926544`*^9, 3.992093084166601*^9}}, + CellLabel-> + "Out[1627]=",ExpressionUUID->"2162087e-839c-dc49-8a3a-fb80abc36155"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[1628]:=",ExpressionUUID->"2f42ec5c-ce50-6f42-a8a2-c75b3ac43245"], + +Cell[BoxData["0.03244281304059227`"], "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.9920924254301987`*^9, {3.992092518643223*^9, + 3.9920926171180058`*^9}, {3.9920927969928265`*^9, + 3.9920929663465614`*^9}, {3.9920929978507347`*^9, + 3.9920930215139065`*^9}, {3.9920930579006233`*^9, 3.9920930841946297`*^9}}, + CellLabel-> + "Out[1628]=",ExpressionUUID->"0620c74a-d91a-e64b-8100-ed051243b230"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw2"]]}]], "Input", + CellChangeTimes->{{3.992086303949501*^9, 3.992086304210249*^9}}, + CellLabel-> + "In[1629]:=",ExpressionUUID->"96bf4b15-430f-4c40-a47b-2fcda1bc88fa"], + +Cell[BoxData["1.8152705961160864`"], "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.992092425453417*^9, { + 3.992092518650234*^9, 3.9920926171484947`*^9}, {3.9920927970158024`*^9, + 3.992092966354574*^9}, {3.9920929978717537`*^9, 3.9920930215394173`*^9}, { + 3.992093057927355*^9, 3.9920930842196407`*^9}}, + CellLabel-> + "Out[1629]=",ExpressionUUID->"3fc4579b-71c9-7b4a-957c-cd0fdc5e5d10"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw2", "*", "hw"}], "1"]}]], "Input", + CellChangeTimes->{3.992086167409481*^9}, + CellLabel-> + "In[1630]:=",ExpressionUUID->"6cf9ca16-c013-3344-9171-7ec9c2c511d5"], + +Cell[BoxData["109.34058178583851`"], "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.992092425460451*^9, {3.9920925186712685`*^9, 3.9920926171749897`*^9}, { + 3.9920927970238094`*^9, 3.9920929663785915`*^9}, {3.9920929978977833`*^9, + 3.992093021565424*^9}, {3.992093057957897*^9, 3.992093084229643*^9}}, + CellLabel-> + "Out[1630]=",ExpressionUUID->"eb3aefaf-3036-9146-864b-6082b4ee6437"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[1631]:=",ExpressionUUID->"4e09d0fd-8826-4c4d-b015-edd4a4d1eb7e"], + +Cell[BoxData["0.5437242656350425`"], "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.992092425484108*^9, {3.9920925186792793`*^9, + 3.992092617182308*^9}, {3.992092797048418*^9, 3.9920929664025784`*^9}, { + 3.992092997923292*^9, 3.9920930215744534`*^9}, {3.992093057981407*^9, + 3.9920930842526855`*^9}}, + CellLabel-> + "Out[1631]=",ExpressionUUID->"45246d2c-9e57-e547-abbf-f9e32b3e3888"] +}, 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[1632]:=",ExpressionUUID->"4d2ae061-ee93-6649-a604-ac80499bb910"], + +Cell[BoxData["0.01917558550788009`"], "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.992092425492161*^9, {3.992092518701372*^9, 3.992092617207405*^9}, { + 3.9920927970584164`*^9, 3.992092966429596*^9}, {3.9920929979477367`*^9, + 3.9920930216014366`*^9}, {3.992093058010456*^9, 3.9920930842836647`*^9}}, + CellLabel-> + "Out[1632]=",ExpressionUUID->"e6248b18-ee80-1b4b-9b41-5db49d1a14d1"] +}, 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", + CellChangeTimes->{{3.992091191102171*^9, 3.9920912274433537`*^9}}, + CellLabel-> + "In[1633]:=",ExpressionUUID->"28a7789c-2886-1b46-919b-413e804766ca"], + +Cell[BoxData["6.399862213425972`"], "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.9920924255812473`*^9, { + 3.9920925208211765`*^9, 3.9920926172777596`*^9}, {3.9920927991098137`*^9, + 3.992092966506571*^9}, {3.99209300007362*^9, 3.992093021677635*^9}, { + 3.9920930600735226`*^9, 3.9920930843632145`*^9}}, + CellLabel-> + "Out[1633]=",ExpressionUUID->"8fbfcf1f-38da-ad4b-9ce7-9eb0ab39f811"] +}, 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[1634]:=",ExpressionUUID->"21747f41-e83a-1547-8a1f-a9f0c0cf4fc0"], + +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->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + 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[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.131906"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.092238"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.135383"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.172743"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.117679"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.094793"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.075876"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.054298"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.038669"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.027641"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.018887"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.013232"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.008805"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.0061"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.003941"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.002757"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.001714"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.00123"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.000717"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.000544"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.000282"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.000244"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.000099"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.000114"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.000026"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.000032"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.000019"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.000013"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.000007"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.000005"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.000002"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, { + 3.992093321760353*^9, + 3.9920933233255672`*^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, 735}, +WindowMargins->{{-5.25, Automatic}, {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, 435, 8, 22, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], +Cell[1014, 32, 391, 7, 36, "Output",ExpressionUUID->"1ebbaaa3-9445-0a4e-a770-bd0f2e882a8d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1442, 44, 254, 5, 33, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], +Cell[1699, 51, 395, 7, 36, "Output",ExpressionUUID->"256f9ae8-095e-9441-8f3d-07b15c2c41c5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2131, 63, 231, 5, 33, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], +Cell[2365, 70, 391, 7, 36, "Output",ExpressionUUID->"356e74ed-15a8-4942-ba7f-a32e4cf99b76"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2793, 82, 181, 4, 33, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], +Cell[2977, 88, 393, 7, 36, "Output",ExpressionUUID->"9a0dd9ab-8ebe-e145-96c5-a2227e38b170"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3407, 100, 263, 8, 46, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], +Cell[3673, 110, 409, 7, 36, "Output",ExpressionUUID->"afe36cf3-0c84-2d4d-82a8-34c72f037dcc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4119, 122, 137, 3, 33, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], +Cell[4259, 127, 397, 7, 36, "Output",ExpressionUUID->"cff83131-4f3e-2a4e-aef3-44b9772e5e7e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4693, 139, 282, 7, 33, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], +Cell[4978, 148, 401, 7, 36, "Output",ExpressionUUID->"fdaccc59-a84e-e24c-97f5-c5e6d7b4dae9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5416, 160, 263, 8, 33, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], +Cell[5682, 170, 406, 7, 36, "Output",ExpressionUUID->"f72ae6a0-8501-ae45-b791-53f333ac6a72"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6125, 182, 216, 4, 33, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], +Cell[6344, 188, 372, 6, 36, "Output",ExpressionUUID->"17dfd568-3e2e-1640-b2fa-1a40a7b6aa30"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6753, 199, 216, 4, 33, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], +Cell[6972, 205, 376, 6, 36, "Output",ExpressionUUID->"3c7f784f-3a9b-c443-aa8b-484c38e5263a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7385, 216, 134, 3, 33, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], +Cell[7522, 221, 393, 7, 36, "Output",ExpressionUUID->"20c299f4-43b6-484a-b689-140dc8659d47"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7952, 233, 134, 3, 33, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], +Cell[8089, 238, 382, 7, 36, "Output",ExpressionUUID->"cea5527b-2dec-114a-93d1-4e0a6850f932"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8508, 250, 562, 20, 76, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], +Cell[9073, 272, 400, 7, 36, "Output",ExpressionUUID->"9bf001fa-d212-f740-ab7e-54355605796c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9510, 284, 562, 20, 76, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], +Cell[10075, 306, 411, 7, 36, "Output",ExpressionUUID->"9f9ae1a5-4c91-d349-a352-4feaf260b84e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[10523, 318, 1497, 49, 76, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], +Cell[12023, 369, 398, 7, 36, "Output",ExpressionUUID->"7ce415b4-5744-0348-b749-9ad469f9f635"] +}, Open ]], +Cell[CellGroupData[{ +Cell[12458, 381, 1336, 45, 76, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], +Cell[13797, 428, 423, 8, 36, "Output",ExpressionUUID->"7b04735c-e7e9-ed4e-9d56-dcdeffb8c44a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14257, 441, 1336, 45, 76, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], +Cell[15596, 488, 420, 8, 36, "Output",ExpressionUUID->"7775ef00-1ffb-9041-99e1-72fb501f4050"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16053, 501, 1497, 49, 76, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], +Cell[17553, 552, 401, 7, 36, "Output",ExpressionUUID->"fffc0803-839b-0048-8acc-65fc244477a6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[17991, 564, 136, 3, 33, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], +Cell[18130, 569, 383, 7, 36, "Output",ExpressionUUID->"2646e980-f3dd-ca42-8127-9c0c8739d6b0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18550, 581, 138, 3, 33, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], +Cell[18691, 586, 387, 7, 36, "Output",ExpressionUUID->"fc3b8d24-1723-3d4d-8ea1-628aac4fc008"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19115, 598, 139, 3, 33, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], +Cell[19257, 603, 389, 7, 36, "Output",ExpressionUUID->"fdd286e8-31ae-5f4c-adfc-ed6cf7bcf1f2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19683, 615, 224, 5, 33, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], +Cell[19910, 622, 398, 8, 36, "Output",ExpressionUUID->"54ca71ca-3327-2f42-ba07-aa98771ed12c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20345, 635, 139, 3, 33, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], +Cell[20487, 640, 384, 7, 36, "Output",ExpressionUUID->"3ed6dab9-b557-4e49-b46c-3029017ee729"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20908, 652, 303, 6, 33, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], +Cell[21214, 660, 382, 7, 36, "Output",ExpressionUUID->"7fc519e8-1b90-a343-93aa-3d7727210154"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21633, 672, 279, 6, 33, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], +Cell[21915, 680, 385, 7, 36, "Output",ExpressionUUID->"f65c67b8-a61b-5e41-8bb3-c9c1695eb0df"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22337, 692, 224, 5, 33, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], +Cell[22564, 699, 380, 7, 36, "Output",ExpressionUUID->"d00e1bd8-9e8d-924d-a3b9-7cbb96787ae5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22981, 711, 355, 11, 46, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], +Cell[23339, 724, 404, 7, 36, "Output",ExpressionUUID->"13bdc432-de29-0c48-aa43-00a6c23c9175"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23780, 736, 355, 11, 46, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], +Cell[24138, 749, 425, 8, 36, "Output",ExpressionUUID->"979b81aa-76df-f241-90dd-f44416c9e227"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24600, 762, 999, 27, 103, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], +Cell[25602, 791, 404, 7, 36, "Output",ExpressionUUID->"2bce044e-cdbf-6b45-a6ab-1e98de409390"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26043, 803, 204, 4, 33, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], +Cell[26250, 809, 385, 7, 36, "Output",ExpressionUUID->"a9877b49-9a0f-074a-a675-f639e26d8c27"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26672, 821, 310, 6, 33, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], +Cell[26985, 829, 366, 6, 36, "Output",ExpressionUUID->"b460e55c-f393-c440-ad77-00a848515def"] +}, Open ]], +Cell[27366, 838, 178, 3, 33, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], +Cell[CellGroupData[{ +Cell[27569, 845, 308, 6, 33, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], +Cell[27880, 853, 368, 6, 36, "Output",ExpressionUUID->"cd4444f6-525d-4d42-81db-b4690c8b9676"] +}, Open ]], +Cell[28263, 862, 178, 3, 33, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], +Cell[CellGroupData[{ +Cell[28466, 869, 330, 7, 49, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], +Cell[28799, 878, 364, 6, 36, "Output",ExpressionUUID->"3097763e-570b-5146-a994-24452286f60b"] +}, Open ]], +Cell[29178, 887, 178, 3, 33, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], +Cell[CellGroupData[{ +Cell[29381, 894, 335, 6, 33, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], +Cell[29719, 902, 365, 6, 36, "Output",ExpressionUUID->"1e31b0b2-7abb-8d40-a974-a66686c8d87f"] +}, Open ]], +Cell[30099, 911, 176, 3, 33, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], +Cell[CellGroupData[{ +Cell[30300, 918, 295, 6, 49, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], +Cell[30598, 926, 364, 6, 36, "Output",ExpressionUUID->"6fe6deb1-4452-f84e-9b3f-5280e2fcf4e4"] +}, Open ]], +Cell[30977, 935, 176, 3, 33, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], +Cell[CellGroupData[{ +Cell[31178, 942, 282, 5, 33, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], +Cell[31463, 949, 362, 6, 36, "Output",ExpressionUUID->"16c7f714-3257-b34d-a77b-9fe33babd8ff"] +}, Open ]], +Cell[31840, 958, 178, 3, 33, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], +Cell[CellGroupData[{ +Cell[32043, 965, 302, 6, 49, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], +Cell[32348, 973, 364, 6, 36, "Output",ExpressionUUID->"5d1dcb58-9ff9-8740-bffd-1be75022accd"] +}, Open ]], +Cell[32727, 982, 177, 3, 33, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], +Cell[CellGroupData[{ +Cell[32929, 989, 275, 6, 49, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], +Cell[33207, 997, 360, 6, 36, "Output",ExpressionUUID->"68d321df-bd79-9141-a9e5-89395e208aad"] +}, Open ]], +Cell[33582, 1006, 180, 3, 33, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], +Cell[CellGroupData[{ +Cell[33787, 1013, 19814, 486, 1564, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], +Cell[53604, 1501, 406, 7, 36, "Output",ExpressionUUID->"9891c226-d59f-c940-8069-e6236f3cd36a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[54047, 1513, 19753, 490, 1590, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], +Cell[73803, 2005, 396, 7, 36, "Output",ExpressionUUID->"42fe5593-dd97-7344-8cea-c6ed000b1a91"] +}, Open ]], +Cell[CellGroupData[{ +Cell[74236, 2017, 19753, 484, 1583, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], +Cell[93992, 2503, 418, 8, 36, "Output",ExpressionUUID->"73287dff-cd9e-2142-90e3-5db79aca50d8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[94447, 2516, 22539, 554, 1778, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], +Cell[116989, 3072, 422, 8, 36, "Output",ExpressionUUID->"ac7b7877-6e38-2747-af04-6417bf204401"] +}, Open ]], +Cell[CellGroupData[{ +Cell[117448, 3085, 22540, 554, 1784, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], +Cell[139991, 3641, 420, 8, 36, "Output",ExpressionUUID->"cc396566-3525-4748-9ae5-60fd26ae1dc1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[140448, 3654, 25496, 627, 1995, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], +Cell[165947, 4283, 416, 8, 36, "Output",ExpressionUUID->"d2ef6d49-1374-2b4d-899f-0c6e4dde6022"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166400, 4296, 135, 3, 33, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], +Cell[166538, 4301, 389, 7, 36, "Output",ExpressionUUID->"95494de8-4956-094e-a8e6-e6868fc6f423"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166964, 4313, 135, 3, 33, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], +Cell[167102, 4318, 391, 7, 36, "Output",ExpressionUUID->"5b26e611-5ec7-3042-8984-f7a74a1cbd33"] +}, Open ]], +Cell[CellGroupData[{ +Cell[167530, 4330, 1149, 40, 57, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], +Cell[168682, 4372, 400, 7, 36, "Output",ExpressionUUID->"31c84d05-12c3-be47-9df8-ffc9cbb13c0d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169119, 4384, 1046, 36, 57, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], +Cell[170168, 4422, 420, 8, 36, "Output",ExpressionUUID->"ef0ea4fd-70b5-984d-853f-473fd2ac599b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170625, 4435, 1149, 40, 57, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], +Cell[171777, 4477, 402, 7, 36, "Output",ExpressionUUID->"72da1b15-272c-0b4a-9070-4f4f363f2b7d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172216, 4489, 113, 2, 33, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], +Cell[172332, 4493, 403, 7, 36, "Output",ExpressionUUID->"036cbf6f-fbe7-a440-8a29-aff08fbe2857"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172772, 4505, 113, 2, 33, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], +Cell[172888, 4509, 423, 8, 36, "Output",ExpressionUUID->"8969fdc8-c9a5-c64f-90ba-d96f332afaeb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173348, 4522, 113, 2, 33, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], +Cell[173464, 4526, 424, 8, 36, "Output",ExpressionUUID->"dd7651dc-cb42-1742-85ec-07465aa9fa99"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173925, 4539, 113, 2, 33, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], +Cell[174041, 4543, 402, 7, 36, "Output",ExpressionUUID->"5e78289d-09f7-5b4e-93b4-7bcb7b152f66"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174480, 4555, 112, 2, 33, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], +Cell[174595, 4559, 401, 7, 36, "Output",ExpressionUUID->"3f6278b7-a28a-594e-8a23-09f3d3483888"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175033, 4571, 112, 2, 33, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], +Cell[175148, 4575, 403, 7, 36, "Output",ExpressionUUID->"1ee3f225-4e97-984c-b225-455d7f3a4c39"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175588, 4587, 502, 17, 57, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], +Cell[176093, 4606, 422, 8, 36, "Output",ExpressionUUID->"c5d6c614-4b12-5d4f-bb0f-a2ce82221b0e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176552, 4619, 502, 17, 57, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], +Cell[177057, 4638, 413, 8, 36, "Output",ExpressionUUID->"9a1e3298-13b0-4c4d-a540-953e925a83a5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[177507, 4651, 1793, 61, 120, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], +Cell[179303, 4714, 397, 7, 36, "Output",ExpressionUUID->"ab5e33a4-9795-d642-8732-25202fb76681"] +}, Open ]], +Cell[CellGroupData[{ +Cell[179737, 4726, 1106, 37, 75, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], +Cell[180846, 4765, 422, 8, 36, "Output",ExpressionUUID->"77d3672c-ebf4-db44-851d-03385ef2f057"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181305, 4778, 1823, 62, 102, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], +Cell[183131, 4842, 404, 7, 36, "Output",ExpressionUUID->"e8ad9317-5c6f-d847-ae99-21264e012189"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183572, 4854, 1636, 54, 76, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], +Cell[185211, 4910, 406, 7, 36, "Output",ExpressionUUID->"2bde0c56-c23c-da47-9dd6-d0a17eb70781"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185654, 4922, 1636, 54, 76, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], +Cell[187293, 4978, 401, 7, 36, "Output",ExpressionUUID->"68197958-5a48-e24c-b564-81832e5b3242"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187731, 4990, 213, 4, 33, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], +Cell[187947, 4996, 371, 6, 36, "Output",ExpressionUUID->"3b395217-8188-404a-ae07-c14d603d86bf"] +}, Open ]], +Cell[188333, 5005, 177, 3, 33, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], +Cell[CellGroupData[{ +Cell[188535, 5012, 216, 4, 33, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], +Cell[188754, 5018, 372, 6, 36, "Output",ExpressionUUID->"ad6a7ab8-8149-1543-9505-02f460a58ac9"] +}, Open ]], +Cell[189141, 5027, 178, 3, 33, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], +Cell[CellGroupData[{ +Cell[189344, 5034, 1302, 43, 50, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], +Cell[190649, 5079, 406, 7, 36, "Output",ExpressionUUID->"a52d7df7-0e64-d54e-a292-d12163ffdbee"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191092, 5091, 932, 31, 57, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], +Cell[192027, 5124, 408, 7, 36, "Output",ExpressionUUID->"c2023aac-b814-7446-ab12-4137f6803a68"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192472, 5136, 908, 30, 57, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], +Cell[193383, 5168, 406, 7, 36, "Output",ExpressionUUID->"0756e45a-f7eb-ed46-b249-38207984ed8e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193826, 5180, 559, 19, 53, "Input",ExpressionUUID->"2d28d1dd-a3ba-5e40-bc3b-15dd0b7d3678"], +Cell[194388, 5201, 616, 10, 36, "Output",ExpressionUUID->"676b2d5b-4cd7-184f-a9f2-0374f5510da1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195041, 5216, 666, 22, 53, "Input",ExpressionUUID->"dcbc6ccc-ef74-aa46-856c-b0a8579a9132"], +Cell[195710, 5240, 595, 9, 36, "Output",ExpressionUUID->"2162087e-839c-dc49-8a3a-fb80abc36155"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196342, 5254, 171, 5, 57, "Input",ExpressionUUID->"2f42ec5c-ce50-6f42-a8a2-c75b3ac43245"], +Cell[196516, 5261, 638, 10, 36, "Output",ExpressionUUID->"0620c74a-d91a-e64b-8100-ed051243b230"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197191, 5276, 237, 6, 56, "Input",ExpressionUUID->"96bf4b15-430f-4c40-a47b-2fcda1bc88fa"], +Cell[197431, 5284, 576, 9, 36, "Output",ExpressionUUID->"3fc4579b-71c9-7b4a-957c-cd0fdc5e5d10"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198044, 5298, 224, 6, 46, "Input",ExpressionUUID->"6cf9ca16-c013-3344-9171-7ec9c2c511d5"], +Cell[198271, 5306, 603, 9, 36, "Output",ExpressionUUID->"eb3aefaf-3036-9146-864b-6082b4ee6437"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198911, 5320, 182, 5, 46, "Input",ExpressionUUID->"4e09d0fd-8826-4c4d-b015-edd4a4d1eb7e"], +Cell[199096, 5327, 621, 10, 36, "Output",ExpressionUUID->"45246d2c-9e57-e547-abbf-f9e32b3e3888"] +}, Open ]], +Cell[CellGroupData[{ +Cell[199754, 5342, 6056, 185, 321, "Input",ExpressionUUID->"4d2ae061-ee93-6649-a604-ac80499bb910"], +Cell[205813, 5529, 596, 9, 36, "Output",ExpressionUUID->"e6248b18-ee80-1b4b-9b41-5db49d1a14d1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[206446, 5543, 450, 10, 45, "Input",ExpressionUUID->"28a7789c-2886-1b46-919b-413e804766ca"], +Cell[206899, 5555, 572, 9, 36, "Output",ExpressionUUID->"8fbfcf1f-38da-ad4b-9ce7-9eb0ab39f811"] +}, Open ]], +Cell[207486, 5567, 493, 10, 45, "Input",ExpressionUUID->"21747f41-e83a-1547-8a1f-a9f0c0cf4fc0"], +Cell[CellGroupData[{ +Cell[208004, 5581, 554, 18, 42, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], +Cell[208561, 5601, 166, 2, 25, "Output",ExpressionUUID->"e4d9d77a-b508-454c-baed-04aa4a4ef418"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208764, 5608, 619, 20, 42, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], +Cell[209386, 5630, 168, 2, 25, "Output",ExpressionUUID->"3007515b-4da6-bf4e-9b4f-90b429e2dd04"] +}, Open ]], +Cell[CellGroupData[{ +Cell[209591, 5637, 166, 4, 46, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], +Cell[209760, 5643, 167, 2, 25, "Output",ExpressionUUID->"f6274504-766f-8549-a4a8-fd0e803dda86"] +}, Open ]], +Cell[CellGroupData[{ +Cell[209964, 5650, 166, 4, 45, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], +Cell[210133, 5656, 166, 2, 25, "Output",ExpressionUUID->"72d24546-97b5-7344-98ec-019068f7b9fb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210336, 5663, 177, 4, 35, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], +Cell[210516, 5669, 169, 2, 25, "Output",ExpressionUUID->"7075b380-afe9-8b44-acc9-29433a09a866"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210722, 5676, 177, 4, 35, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], +Cell[210902, 5682, 168, 2, 25, "Output",ExpressionUUID->"667394bf-ade3-1944-8cac-a719104b58af"] +}, Open ]], +Cell[CellGroupData[{ +Cell[211107, 5689, 6051, 184, 310, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], +Cell[217161, 5875, 171, 2, 25, "Output",ExpressionUUID->"bdb345c8-7c0c-3e4d-96c3-d5d94768456f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[217369, 5882, 364, 8, 33, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], +Cell[217736, 5892, 166, 2, 25, "Output",ExpressionUUID->"a136c49d-6dd1-8a4a-9add-7300e6132adb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[217939, 5899, 6118, 186, 386, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], +Cell[224060, 6087, 170, 2, 25, "Output",ExpressionUUID->"85a24dde-0aa6-984c-b7a3-ccfa87afb6cd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[224267, 6094, 364, 8, 33, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], +Cell[224634, 6104, 168, 2, 25, "Output",ExpressionUUID->"9a87dba6-1411-3f4b-a17f-9d7a664889bd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[224839, 6111, 2659, 87, 132, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], +Cell[227501, 6200, 169, 2, 25, "Output",ExpressionUUID->"39ebfd06-20a8-e945-ae56-55ff95d26618"] +}, Open ]], +Cell[CellGroupData[{ +Cell[227707, 6207, 2599, 84, 132, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], +Cell[230309, 6293, 169, 2, 25, "Output",ExpressionUUID->"6c617ce1-6ebd-9d43-be44-73f7ca23a829"] +}, Open ]], +Cell[CellGroupData[{ +Cell[230515, 6300, 3708, 117, 194, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], +Cell[234226, 6419, 169, 2, 25, "Output",ExpressionUUID->"145fcb0a-d842-9a43-9617-34577d485689"] +}, Open ]], +Cell[234410, 6424, 138, 3, 34, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], +Cell[CellGroupData[{ +Cell[234573, 6431, 2052, 59, 129, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], +Cell[236628, 6492, 556, 12, 48, "Message",ExpressionUUID->"be9831d8-a262-3541-9040-ad5e31b2eb28"], +Cell[237187, 6506, 559, 12, 68, "Message",ExpressionUUID->"31896901-1c82-aa4e-bb9a-c09e2220f684"], +Cell[237749, 6520, 559, 12, 68, "Message",ExpressionUUID->"aa16e061-5976-9143-8add-7376f3059569"], +Cell[238311, 6534, 452, 10, 20, "Message",ExpressionUUID->"68730c15-5e57-ca48-8468-735233dec44d"], +Cell[238766, 6546, 168, 2, 25, "Output",ExpressionUUID->"9deaa7ff-19fe-b345-ae65-d7f8adce193c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[238971, 6553, 2054, 59, 129, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], +Cell[241028, 6614, 556, 12, 48, "Message",ExpressionUUID->"365becfb-66c2-b442-8b7b-c6077e53a212"], +Cell[241587, 6628, 556, 12, 68, "Message",ExpressionUUID->"2b170196-02e0-d544-a5a5-d90722dc10dc"], +Cell[242146, 6642, 559, 12, 68, "Message",ExpressionUUID->"02967e8e-3430-cf4f-b706-b82af40300a2"], +Cell[242708, 6656, 452, 10, 20, "Message",ExpressionUUID->"a8933e75-6bbd-684a-8439-656414d7fe5d"], +Cell[243163, 6668, 166, 2, 25, "Output",ExpressionUUID->"0790c690-9267-6441-bc9c-d353ab16b428"] +}, Open ]], +Cell[CellGroupData[{ +Cell[243366, 6675, 1938, 53, 66, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], +Cell[245307, 6730, 20239, 378, 191, "Output",ExpressionUUID->"5d2ddb35-b7b8-514c-917f-fcc77dc8600c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[265583, 7113, 2094, 60, 126, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], +Cell[267680, 7175, 497, 11, 48, "Message",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], +Cell[268180, 7188, 501, 11, 48, "Message",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], +Cell[268684, 7201, 503, 11, 48, "Message",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], +Cell[269190, 7214, 455, 10, 20, "Message",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], +Cell[269648, 7226, 43631, 762, 187, "Output",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] +}, Open ]], +Cell[313294, 7991, 2481, 70, 111, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], +Cell[315778, 8063, 209, 5, 34, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], +Cell[CellGroupData[{ +Cell[316012, 8072, 212, 6, 38, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], +Cell[316227, 8080, 168, 2, 25, "Output",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] +}, Open ]], +Cell[CellGroupData[{ +Cell[316432, 8087, 1814, 53, 115, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], +Cell[318249, 8142, 505, 11, 48, "Message",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], +Cell[318757, 8155, 509, 11, 48, "Message",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], +Cell[319269, 8168, 508, 11, 46, "Message",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], +Cell[319780, 8181, 455, 10, 30, "Message",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], +Cell[320238, 8193, 22399, 414, 189, "Output",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] +}, Open ]], +Cell[CellGroupData[{ +Cell[342674, 8612, 1612, 47, 87, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], +Cell[344289, 8661, 581, 12, 30, "Message",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], +Cell[344873, 8675, 584, 12, 30, "Message",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], +Cell[345460, 8689, 590, 12, 30, "Message",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], +Cell[346053, 8703, 455, 10, 30, "Message",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], +Cell[346511, 8715, 169, 2, 37, "Output",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[346717, 8722, 2249, 64, 77, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], +Cell[348969, 8788, 557, 12, 50, "Message",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], +Cell[349529, 8802, 560, 12, 50, "Message",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], +Cell[350092, 8816, 560, 12, 50, "Message",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], +Cell[350655, 8830, 455, 10, 20, "Message",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], +Cell[351113, 8842, 169, 2, 25, "Output",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] +}, Open ]], +Cell[CellGroupData[{ +Cell[351319, 8849, 2221, 64, 131, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], +Cell[353543, 8915, 554, 12, 50, "Message",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], +Cell[354100, 8929, 560, 12, 50, "Message",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], +Cell[354663, 8943, 560, 12, 50, "Message",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], +Cell[355226, 8957, 455, 10, 20, "Message",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], +Cell[355684, 8969, 169, 2, 25, "Output",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] +}, Open ]], +Cell[CellGroupData[{ +Cell[355890, 8976, 2223, 64, 131, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], +Cell[358116, 9042, 555, 12, 69, "Message",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], +Cell[358674, 9056, 558, 12, 69, "Message",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], +Cell[359235, 9070, 560, 12, 69, "Message",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], +Cell[359798, 9084, 453, 10, 69, "Message",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], +Cell[360254, 9096, 167, 2, 69, "Output",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[360458, 9103, 213, 6, 69, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], +Cell[360674, 9111, 169, 2, 69, "Output",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] +}, Open ]], +Cell[360858, 9116, 247, 5, 69, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], +Cell[CellGroupData[{ +Cell[361130, 9125, 554, 18, 69, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], +Cell[361687, 9145, 167, 2, 69, "Output",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[361891, 9152, 166, 4, 69, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], +Cell[362060, 9158, 169, 2, 69, "Output",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362266, 9165, 181, 5, 69, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], +Cell[362450, 9172, 173, 3, 69, "Output",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362660, 9180, 6055, 185, 69, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], +Cell[368718, 9367, 172, 3, 69, "Output",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] +}, Open ]], +Cell[CellGroupData[{ +Cell[368927, 9375, 368, 9, 69, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], +Cell[369298, 9386, 170, 3, 69, "Output",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] +}, Open ]], +Cell[CellGroupData[{ +Cell[369505, 9394, 6122, 187, 69, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], +Cell[375630, 9583, 175, 3, 69, "Output",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[375842, 9591, 368, 9, 69, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], +Cell[376213, 9602, 169, 3, 69, "Output",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[376419, 9610, 2663, 88, 69, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], +Cell[379085, 9700, 173, 3, 69, "Output",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[379295, 9708, 2603, 85, 69, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], +Cell[381901, 9795, 171, 3, 69, "Output",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] +}, Open ]], +Cell[CellGroupData[{ +Cell[382109, 9803, 3712, 118, 69, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], +Cell[385824, 9923, 171, 3, 69, "Output",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] +}, Open ]], +Cell[CellGroupData[{ +Cell[386032, 9931, 2052, 59, 69, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], +Cell[388087, 9992, 572, 12, 69, "Message",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], +Cell[388662, 10006, 573, 12, 69, "Message",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], +Cell[389238, 10020, 578, 12, 69, "Message",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], +Cell[389819, 10034, 457, 10, 69, "Message",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], +Cell[390279, 10046, 172, 3, 69, "Output",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] +}, Open ]], +Cell[CellGroupData[{ +Cell[390488, 10054, 2054, 59, 69, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], +Cell[392545, 10115, 572, 12, 69, "Message",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], +Cell[393120, 10129, 575, 12, 69, "Message",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], +Cell[393698, 10143, 576, 12, 69, "Message",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], +Cell[394277, 10157, 457, 10, 69, "Message",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], +Cell[394737, 10169, 170, 3, 69, "Output",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] +}, Open ]], +Cell[CellGroupData[{ +Cell[394944, 10177, 2030, 55, 69, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], +Cell[396977, 10234, 20377, 384, 69, "Output",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] +}, Open ]], +Cell[CellGroupData[{ +Cell[417391, 10623, 2118, 60, 69, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], +Cell[419512, 10685, 499, 11, 69, "Message",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], +Cell[420014, 10698, 504, 11, 69, "Message",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], +Cell[420521, 10711, 507, 11, 69, "Message",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], +Cell[421031, 10724, 455, 10, 69, "Message",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], +Cell[421489, 10736, 22381, 415, 69, "Output",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] +}, Open ]], +Cell[443885, 11154, 174, 3, 69, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], +Cell[444062, 11159, 209, 5, 69, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], +Cell[CellGroupData[{ +Cell[444296, 11168, 1616, 48, 69, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], +Cell[445915, 11218, 594, 12, 69, "Message",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], +Cell[446512, 11232, 594, 12, 69, "Message",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], +Cell[447109, 11246, 598, 12, 69, "Message",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], +Cell[447710, 11260, 457, 10, 69, "Message",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], +Cell[448170, 11272, 171, 3, 69, "Output",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[448378, 11280, 2247, 64, 69, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], +Cell[450628, 11346, 572, 12, 69, "Message",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], +Cell[451203, 11360, 573, 12, 69, "Message",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], +Cell[451779, 11374, 578, 12, 69, "Message",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], +Cell[452360, 11388, 455, 10, 69, "Message",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], +Cell[452818, 11400, 172, 3, 69, "Output",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[453027, 11408, 2221, 64, 69, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], +Cell[455251, 11474, 570, 12, 69, "Message",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], +Cell[455824, 11488, 573, 12, 69, "Message",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], +Cell[456400, 11502, 578, 12, 69, "Message",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], +Cell[456981, 11516, 455, 10, 69, "Message",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], +Cell[457439, 11528, 172, 3, 69, "Output",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] +}, Open ]], +Cell[CellGroupData[{ +Cell[457648, 11536, 2221, 64, 69, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], +Cell[459872, 11602, 572, 12, 69, "Message",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], +Cell[460447, 11616, 575, 12, 69, "Message",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], +Cell[461025, 11630, 578, 12, 69, "Message",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], +Cell[461606, 11644, 455, 10, 69, "Message",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], +Cell[462064, 11656, 173, 3, 69, "Output",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] +}, Open ]], +Cell[CellGroupData[{ +Cell[462274, 11664, 213, 6, 69, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], +Cell[462490, 11672, 172, 3, 69, "Output",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] +}, Open ]], +Cell[462677, 11678, 245, 5, 69, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], +Cell[CellGroupData[{ +Cell[462947, 11687, 558, 19, 69, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], +Cell[463508, 11708, 173, 3, 69, "Output",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[463718, 11716, 170, 5, 69, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], +Cell[463891, 11723, 171, 3, 69, "Output",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] +}, Open ]], +Cell[CellGroupData[{ +Cell[464099, 11731, 181, 5, 69, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], +Cell[464283, 11738, 173, 3, 69, "Output",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[464493, 11746, 6055, 185, 69, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], +Cell[470551, 11933, 175, 3, 69, "Output",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[470763, 11941, 368, 9, 69, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], +Cell[471134, 11952, 170, 3, 69, "Output",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] +}, Open ]], +Cell[CellGroupData[{ +Cell[471341, 11960, 6122, 187, 69, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], +Cell[477466, 12149, 175, 3, 69, "Output",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[477678, 12157, 368, 9, 69, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], +Cell[478049, 12168, 172, 3, 69, "Output",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[478258, 12176, 2663, 88, 69, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], +Cell[480924, 12266, 173, 3, 69, "Output",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] +}, Open ]], +Cell[CellGroupData[{ +Cell[481134, 12274, 2603, 85, 69, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], +Cell[483740, 12361, 171, 3, 69, "Output",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[483948, 12369, 3712, 118, 69, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], +Cell[487663, 12489, 171, 3, 69, "Output",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[487871, 12497, 2052, 59, 69, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], +Cell[489926, 12558, 568, 12, 69, "Message",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], +Cell[490497, 12572, 572, 12, 69, "Message",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], +Cell[491072, 12586, 574, 12, 69, "Message",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], +Cell[491649, 12600, 457, 10, 69, "Message",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], +Cell[492109, 12612, 172, 3, 69, "Output",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[492318, 12620, 2054, 59, 69, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], +Cell[494375, 12681, 568, 12, 69, "Message",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], +Cell[494946, 12695, 572, 12, 69, "Message",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], +Cell[495521, 12709, 574, 12, 69, "Message",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], +Cell[496098, 12723, 457, 10, 69, "Message",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], +Cell[496558, 12735, 171, 3, 69, "Output",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[496766, 12743, 2030, 55, 69, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], +Cell[498799, 12800, 19960, 375, 69, "Output",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] +}, Open ]], +Cell[CellGroupData[{ +Cell[518796, 13180, 2118, 60, 69, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], +Cell[520917, 13242, 496, 11, 69, "Message",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], +Cell[521416, 13255, 501, 11, 69, "Message",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], +Cell[521920, 13268, 505, 11, 69, "Message",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], +Cell[522428, 13281, 455, 10, 69, "Message",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], +Cell[522886, 13293, 21721, 403, 69, "Output",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] +}, Open ]], +Cell[544622, 13699, 181, 3, 69, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], +Cell[544806, 13704, 207, 5, 69, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], +Cell[CellGroupData[{ +Cell[545038, 13713, 1616, 48, 69, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], +Cell[546657, 13763, 589, 12, 69, "Message",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], +Cell[547249, 13777, 588, 12, 69, "Message",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], +Cell[547840, 13791, 594, 12, 69, "Message",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], +Cell[548437, 13805, 455, 10, 69, "Message",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], +Cell[548895, 13817, 173, 3, 69, "Output",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] +}, Open ]], +Cell[CellGroupData[{ +Cell[549105, 13825, 2246, 64, 69, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], +Cell[551354, 13891, 566, 12, 69, "Message",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], +Cell[551923, 13905, 570, 12, 69, "Message",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], +Cell[552496, 13919, 574, 12, 69, "Message",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], +Cell[553073, 13933, 456, 10, 69, "Message",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], +Cell[553532, 13945, 171, 3, 69, "Output",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[553740, 13953, 2221, 64, 69, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], +Cell[555964, 14019, 569, 12, 69, "Message",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], +Cell[556536, 14033, 571, 12, 69, "Message",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], +Cell[557110, 14047, 575, 12, 69, "Message",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], +Cell[557688, 14061, 458, 10, 69, "Message",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], +Cell[558149, 14073, 171, 3, 69, "Output",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] +}, Open ]], +Cell[CellGroupData[{ +Cell[558357, 14081, 2223, 64, 69, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], +Cell[560583, 14147, 567, 12, 69, "Message",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], +Cell[561153, 14161, 571, 12, 69, "Message",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], +Cell[561727, 14175, 573, 12, 69, "Message",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], +Cell[562303, 14189, 456, 10, 69, "Message",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], +Cell[562762, 14201, 173, 3, 69, "Output",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[562972, 14209, 211, 6, 69, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], +Cell[563186, 14217, 174, 3, 69, "Output",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/146-94_h_Pu240_702-703/h_146-94_Pu240_702-703_osc_Qw2.nb b/templates/P240_2-51_YakuninDA/146-94_h_Pu240_702-703/h_146-94_Pu240_702-703_osc_Qw2.nb new file mode 100755 index 0000000..0f1df04 --- /dev/null +++ b/templates/P240_2-51_YakuninDA/146-94_h_Pu240_702-703/h_146-94_Pu240_702-703_osc_Qw2.nb @@ -0,0 +1,14425 @@ +(* 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[ 585712, 14417] +NotebookOptionsPosition[ 546076, 13788] +NotebookOutlinePosition[ 546505, 13805] +CellTagsIndexPosition[ 546462, 13802] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "3.0056"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.9920925094547043`*^9, 3.992092603972748*^9}, { + 3.99209277866609*^9, 3.992092956660898*^9}, {3.9920929879335823`*^9, + 3.992093071903801*^9}, {3.9920931132016296`*^9, + 3.992093115787756*^9}},ExpressionUUID->"07f72ee3-926b-5344-b663-\ +1a5c88aface5"], + +Cell[BoxData["3.0051`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.9920924236975746`*^9, {3.992092517168955*^9, + 3.9920926155774384`*^9}, {3.992092795486683*^9, 3.9920929647336235`*^9}, { + 3.992092996301258*^9, 3.9920930199257812`*^9}, {3.9920930563804474`*^9, + 3.992093082514656*^9}}, + CellLabel-> + "Out[1549]=",ExpressionUUID->"ea72bb20-a86a-ec4c-9e29-a628d422f24c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.9920923210744896`*^9, 3.992092321332884*^9}}, + CellLabel-> + "In[1550]:=",ExpressionUUID->"c84484d9-6e14-7a40-9c02-fe16f2844b30"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.992092423865034*^9, {3.9920925172234726`*^9, + 3.9920926156103096`*^9}, {3.9920927955256996`*^9, + 3.9920929647669086`*^9}, {3.9920929963357506`*^9, + 3.9920930199606743`*^9}, {3.9920930564144154`*^9, 3.9920930825586586`*^9}}, + CellLabel-> + "Out[1550]=",ExpressionUUID->"14edbd1f-cb11-0a45-af5a-d2b17de4cbb6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "146"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.9920923255017357`*^9, 3.9920923262853394`*^9}}, + CellLabel-> + "In[1551]:=",ExpressionUUID->"602726cb-1a0d-c74a-8526-001d9caf820e"], + +Cell[BoxData["146"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.9920924238884373`*^9, {3.9920925172304897`*^9, + 3.992092615631912*^9}, {3.9920927955507774`*^9, 3.992092964789009*^9}, { + 3.992092996365631*^9, 3.9920930199827785`*^9}, {3.9920930564344254`*^9, + 3.9920930825825768`*^9}}, + CellLabel-> + "Out[1551]=",ExpressionUUID->"cc77ad7a-55bb-6e41-a98e-0b2957bd9c07"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[1552]:=",ExpressionUUID->"1b3165ce-02e3-7743-9a69-968c90b6d6a2"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.9920924238954353`*^9, {3.9920925172532406`*^9, + 3.9920926156550407`*^9}, {3.9920927955573063`*^9, 3.992092964816601*^9}, { + 3.9920929963885365`*^9, 3.9920930200069942`*^9}, {3.992093056453413*^9, + 3.9920930826118507`*^9}}, + CellLabel-> + "Out[1552]=",ExpressionUUID->"7d20aeb8-a47c-254b-988c-09c4f1342b47"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[1553]:=",ExpressionUUID->"f19a5e99-16b6-494d-bc7e-963677e548e2"], + +Cell[BoxData["0.5467500000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.9920924239191437`*^9, {3.9920925172603703`*^9, + 3.992092615662058*^9}, {3.9920927955817127`*^9, 3.9920929648444843`*^9}, { + 3.9920929963955345`*^9, 3.992093020037792*^9}, {3.9920930564614754`*^9, + 3.9920930826384926`*^9}}, + CellLabel-> + "Out[1553]=",ExpressionUUID->"668cb05b-ce2d-604f-8f3f-7553083a178d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[1554]:=",ExpressionUUID->"c4e4a357-f4fc-b44e-9a86-f5200e22a446"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9920924239261475`*^9, {3.9920925172823544`*^9, + 3.9920926156868935`*^9}, {3.9920927955889683`*^9, 3.992092964851986*^9}, { + 3.9920929964025364`*^9, 3.9920930200579166`*^9}, {3.9920930564844856`*^9, + 3.9920930826454887`*^9}}, + CellLabel-> + "Out[1554]=",ExpressionUUID->"b78b6060-b559-f543-bb13-ea8fb9ddbd3f"] +}, 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[1555]:=",ExpressionUUID->"a8c7cb46-db81-1748-946d-f11213c241f9"], + +Cell[BoxData["6.108139416678866`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.9920924239531574`*^9, {3.9920925172885056`*^9, + 3.992092615694437*^9}, {3.992092795615612*^9, 3.9920929648785057`*^9}, { + 3.99209299642354*^9, 3.992093020080536*^9}, {3.992093056491602*^9, + 3.9920930826684914`*^9}}, + CellLabel-> + "Out[1555]=",ExpressionUUID->"5f3acec4-1d83-8b46-aff5-65ef2c596463"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[1556]:=",ExpressionUUID->"02ba1693-08ff-0f42-8cd9-aaf1421239fe"], + +Cell[BoxData["5.274329694780558`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.992092423960186*^9, {3.9920925173151093`*^9, + 3.9920926157185707`*^9}, {3.9920927956217175`*^9, 3.992092964906679*^9}, { + 3.9920929964335346`*^9, 3.9920930200885353`*^9}, {3.9920930565104904`*^9, + 3.992093082689234*^9}}, + CellLabel-> + "Out[1556]=",ExpressionUUID->"761da3ce-9467-3644-86bc-9aab7100fdcf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.776889591781461"}]], "Input", + CellChangeTimes->{3.991799283179735*^9, 3.9920923337072887`*^9}, + CellLabel-> + "In[1557]:=",ExpressionUUID->"19079dd7-7133-3f41-b7fe-8cd5c0965a91"], + +Cell[BoxData["0.776889591781461`"], "Output", + CellChangeTimes->{ + 3.992092423990343*^9, {3.9920925173221264`*^9, 3.9920926157241497`*^9}, { + 3.9920927956457157`*^9, 3.992092964933693*^9}, {3.992092996453539*^9, + 3.992093020113638*^9}, {3.992093056528507*^9, 3.992093082697235*^9}}, + CellLabel-> + "Out[1557]=",ExpressionUUID->"11ec42e7-2296-ae46-8fe5-fe630668a80e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.581407431720797"}]], "Input", + CellChangeTimes->{3.991799280663351*^9, 3.9920923380503464`*^9}, + CellLabel-> + "In[1558]:=",ExpressionUUID->"55305a95-10d7-174e-a056-94b035d14e24"], + +Cell[BoxData["0.581407431720797`"], "Output", + CellChangeTimes->{ + 3.992092424013666*^9, {3.9920925173471737`*^9, 3.992092615731226*^9}, { + 3.992092795652767*^9, 3.9920929649666996`*^9}, {3.9920929964595814`*^9, + 3.9920930201207066`*^9}, {3.992093056549488*^9, 3.9920930827184944`*^9}}, + CellLabel-> + "Out[1558]=",ExpressionUUID->"ff07f7f3-f5a6-614c-872a-3cda37f841fc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[1559]:=",ExpressionUUID->"55a2971e-7eec-b541-8c39-3101e7174a37"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.992092424022188*^9, {3.9920925173531837`*^9, + 3.9920926157588634`*^9}, {3.9920927956776123`*^9, + 3.9920929649736977`*^9}, {3.9920929964887676`*^9, + 3.9920930201447144`*^9}, {3.9920930565736217`*^9, 3.9920930827473965`*^9}}, + CellLabel-> + "Out[1559]=",ExpressionUUID->"e9a07ed0-7d95-9247-b9bf-2a3a712f8c8d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[1560]:=",ExpressionUUID->"648afa06-ac3a-8c42-8ebc-e814bfce97f5"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.99209242405435*^9, {3.9920925173801575`*^9, + 3.9920926157839546`*^9}, {3.992092795683565*^9, 3.992092964980709*^9}, { + 3.992092996494766*^9, 3.9920930201517143`*^9}, {3.992093056593773*^9, + 3.992093082771408*^9}}, + CellLabel-> + "Out[1560]=",ExpressionUUID->"566f1c6c-9f41-724d-995d-373320b2605f"] +}, 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[1561]:=",ExpressionUUID->"d8048c62-3de5-e046-9bcd-1695ca38b974"], + +Cell[BoxData["2.0397870167233085`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.9920924240852013`*^9, {3.992092517402384*^9, + 3.992092615814083*^9}, {3.9920927957096004`*^9, 3.9920929650027065`*^9}, { + 3.992092996519766*^9, 3.992093020174679*^9}, {3.99209305660058*^9, + 3.992093082802458*^9}}, + CellLabel-> + "Out[1561]=",ExpressionUUID->"ced71fe9-8574-8343-ae58-e197d1e8a8e8"] +}, 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[1562]:=",ExpressionUUID->"f5d0c30b-ea4c-dc48-ae61-79eb305b1794"], + +Cell[BoxData["1.6965844703854613`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.992092424111204*^9, {3.9920925174282036`*^9, + 3.9920926158210907`*^9}, {3.9920927957326183`*^9, + 3.9920929650108223`*^9}, {3.9920929965277767`*^9, + 3.9920930201817207`*^9}, {3.9920930566225815`*^9, 3.9920930828307343`*^9}}, + CellLabel-> + "Out[1562]=",ExpressionUUID->"fe9df648-8f52-404e-934b-02dd3d185c37"] +}, 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[1563]:=",ExpressionUUID->"663770d1-66db-a44c-8bf7-256628e2cd64"], + +Cell[BoxData["0.4525799206818347`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.992092424119274*^9, {3.9920925174510517`*^9, + 3.992092615844631*^9}, {3.992092795759413*^9, 3.9920929650365314`*^9}, { + 3.992092996561762*^9, 3.992093020204855*^9}, {3.99209305664777*^9, + 3.9920930828387337`*^9}}, + CellLabel-> + "Out[1563]=",ExpressionUUID->"e604c090-4ac5-dc4a-9f77-c9bb16e52907"] +}, 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[1564]:=",ExpressionUUID->"c2e9d53a-b88f-324a-9b00-2082996041c8"], + +Cell[BoxData[ + RowBox[{"-", "0.14627901466132107`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.992092424141165*^9, {3.9920925174730873`*^9, + 3.9920926158522587`*^9}, {3.9920927957819347`*^9, + 3.9920929650445366`*^9}, {3.9920929965907135`*^9, 3.992093020211878*^9}, { + 3.9920930566693344`*^9, 3.992093082863735*^9}}, + CellLabel-> + "Out[1564]=",ExpressionUUID->"5d922415-9e83-984c-8bc3-ae5df0a09996"] +}, 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[1565]:=",ExpressionUUID->"d6ec2c61-5304-fb4a-bd6f-1baaba82b97e"], + +Cell[BoxData[ + RowBox[{"-", "0.3067897746750185`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.992092424148676*^9, {3.9920925174800377`*^9, + 3.9920926158790665`*^9}, {3.9920927957879353`*^9, 3.992092965067564*^9}, { + 3.9920929966195316`*^9, 3.992093020237875*^9}, {3.992093056689333*^9, + 3.992093082887562*^9}}, + CellLabel-> + "Out[1565]=",ExpressionUUID->"f5761769-db14-3147-a2ad-1d0e2dfe46d1"] +}, 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[1566]:=",ExpressionUUID->"7e010941-892c-d440-8981-b89d763c5b1b"], + +Cell[BoxData["0.5588619635695797`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9920924241740017`*^9, {3.992092517506195*^9, + 3.992092615886593*^9}, {3.992092795809948*^9, 3.9920929650908546`*^9}, { + 3.992092996646963*^9, 3.9920930202454033`*^9}, {3.9920930566973324`*^9, + 3.9920930829164524`*^9}}, + CellLabel-> + "Out[1566]=",ExpressionUUID->"0c97b8bf-0eed-e446-ac58-b0bfb9f70384"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[1567]:=",ExpressionUUID->"0eb61fa0-a40a-1341-95cb-d8cfad0c502a"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9920924241809826`*^9, {3.9920925175332184`*^9, + 3.9920926159109*^9}, {3.992092795831953*^9, 3.9920929651138535`*^9}, { + 3.992092996668474*^9, 3.992093020272644*^9}, {3.992093056717905*^9, + 3.9920930829486275`*^9}}, + CellLabel-> + "Out[1567]=",ExpressionUUID->"0f7383dd-5b31-5441-adeb-ec72a2a0978e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "In[1568]:=",ExpressionUUID->"4a6b9213-1474-0d40-9ec5-d881dab3558f"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.992092424206465*^9, {3.9920925175399876`*^9, + 3.9920926159344234`*^9}, {3.992092795838951*^9, 3.9920929651357594`*^9}, { + 3.9920929966934986`*^9, 3.99209302029665*^9}, {3.99209305672542*^9, + 3.9920930829716263`*^9}}, + CellLabel-> + "Out[1568]=",ExpressionUUID->"c01a5841-f57f-274f-8cad-371bc9d768bf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel-> + "In[1569]:=",ExpressionUUID->"3487ced0-b765-e44a-a1f6-8c6274547d0b"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.992092424234129*^9, {3.992092517566017*^9, + 3.9920926159586544`*^9}, {3.9920927958609962`*^9, + 3.9920929651594734`*^9}, {3.992092996718672*^9, 3.992093020305662*^9}, { + 3.9920930567515335`*^9, 3.992093082996649*^9}}, + CellLabel-> + "Out[1569]=",ExpressionUUID->"b0e16938-06d8-ff4b-b396-74bc9d6ad907"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[1570]:=",ExpressionUUID->"b190132e-2ea0-6340-9097-e6b37463d0e5"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.992092424266348*^9, {3.992092517574074*^9, + 3.992092615965214*^9}, {3.992092795889517*^9, 3.9920929651855907`*^9}, { + 3.992092996726671*^9, 3.9920930203267136`*^9}, {3.992093056776457*^9, + 3.992093083021673*^9}}, + CellLabel-> + "Out[1570]=",ExpressionUUID->"31f564f8-48dc-e146-a87a-d3e11a2968f6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[1571]:=",ExpressionUUID->"405669b2-a773-194e-a982-9012c67af4d5"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.992092424273369*^9, {3.9920925176013985`*^9, + 3.992092615998451*^9}, {3.992092795897524*^9, 3.99209296519359*^9}, { + 3.992092996750679*^9, 3.9920930203537235`*^9}, {3.992093056799759*^9, + 3.992093083046667*^9}}, + CellLabel-> + "Out[1571]=",ExpressionUUID->"f1e2fc13-b5cd-f54e-b79b-c43f08b73b57"] +}, 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.992092352631197*^9}, + CellLabel-> + "In[1572]:=",ExpressionUUID->"7bda0a3d-d57b-d74f-960f-301c614b0421"], + +Cell[BoxData["64"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.992092424299999*^9, {3.992092517624138*^9, + 3.9920926160050697`*^9}, {3.992092795920538*^9, 3.992092965218601*^9}, { + 3.992092996757696*^9, 3.992093020374735*^9}, {3.9920930568097687`*^9, + 3.992093083054676*^9}}, + CellLabel-> + "Out[1572]=",ExpressionUUID->"24687108-981b-3749-8942-67ca78140a18"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, 3.9920923570474358`*^9}, + CellLabel-> + "In[1573]:=",ExpressionUUID->"6399aa3b-2148-7d4c-88f1-e953dabb4e5c"], + +Cell[BoxData["30"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.9920924243070126`*^9, {3.99209251763118*^9, + 3.992092616031456*^9}, {3.9920927959265404`*^9, 3.992092965225622*^9}, { + 3.9920929967776775`*^9, 3.992093020382736*^9}, {3.9920930568337727`*^9, + 3.992093083077688*^9}}, + CellLabel-> + "Out[1573]=",ExpressionUUID->"d781d84c-6485-134c-88b7-026ce8df65a7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[1574]:=",ExpressionUUID->"e3850e2b-4b41-5b47-82ac-cf6c7f603617"], + +Cell[BoxData["94"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.992092424333185*^9, {3.992092517655279*^9, + 3.9920926160390186`*^9}, {3.992092795952633*^9, 3.992092965246483*^9}, { + 3.992092996803364*^9, 3.9920930204057865`*^9}, {3.992093056858282*^9, + 3.992093083085678*^9}}, + CellLabel-> + "Out[1574]=",ExpressionUUID->"3805a3b0-50b1-5141-b659-21411eb1ff67"] +}, 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[1575]:=",ExpressionUUID->"a5ec021f-6418-0849-a117-c97688c1e682"], + +Cell[BoxData["0.10872923345963276`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9920924243572235`*^9, {3.992092517667328*^9, + 3.9920926160661354`*^9}, {3.9920927959597607`*^9, 3.992092965273592*^9}, { + 3.992092996828369*^9, 3.9920930204138546`*^9}, {3.992093056866806*^9, + 3.992093083111456*^9}}, + CellLabel-> + "Out[1575]=",ExpressionUUID->"31625da1-6c20-464f-9ac2-75fea79d07cf"] +}, 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[1576]:=",ExpressionUUID->"151354d5-e400-d345-9901-faa6688aa40a"], + +Cell[BoxData[ + RowBox[{"-", "2.565919556980472`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.9920924243811493`*^9, {3.9920925176941147`*^9, + 3.992092616073208*^9}, {3.9920927959847507`*^9, 3.9920929652985916`*^9}, { + 3.992092996836376*^9, 3.9920930204444256`*^9}, {3.9920930568897095`*^9, + 3.9920930831194363`*^9}}, + CellLabel-> + "Out[1576]=",ExpressionUUID->"59ec8465-9883-384e-b9ad-4d27a471a753"] +}, 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[1577]:=",ExpressionUUID->"7dc10e63-4950-384d-9141-dd2ef4612ce1"], + +Cell[BoxData["18.87992353524718`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.9920924244051456`*^9, {3.9920925177193546`*^9, + 3.992092616100073*^9}, {3.9920927959917564`*^9, 3.992092965308607*^9}, { + 3.9920929968593845`*^9, 3.992093020467409*^9}, {3.9920930569185905`*^9, + 3.992093083142683*^9}}, + CellLabel-> + "Out[1577]=",ExpressionUUID->"a5d9b73f-ec95-8043-b876-9fedd8f0585f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[1578]:=",ExpressionUUID->"8171f2c9-2d75-ce4f-8a32-3dd3fc2daacd"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.992092424412163*^9, {3.9920925177291546`*^9, + 3.992092616126276*^9}, {3.992092796015764*^9, 3.9920929653326607`*^9}, { + 3.9920929968708153`*^9, 3.992093020496603*^9}, {3.992093056938593*^9, + 3.9920930831506824`*^9}}, + CellLabel-> + "Out[1578]=",ExpressionUUID->"b406afa6-2d3a-a74c-9144-81461b1dac60"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.362"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, + 3.9920923643154297`*^9}, + CellLabel-> + "In[1579]:=",ExpressionUUID->"9fdf9325-d25f-3b41-b32f-97575c1df323"], + +Cell[BoxData["1.362`"], "Output", + CellChangeTimes->{ + 3.9920924244360676`*^9, {3.992092517751152*^9, 3.9920926161342983`*^9}, { + 3.992092796022789*^9, 3.9920929653398457`*^9}, {3.9920929968917847`*^9, + 3.9920930205193768`*^9}, {3.992093056964657*^9, 3.9920930831736813`*^9}}, + CellLabel-> + "Out[1579]=",ExpressionUUID->"bec72722-f7f8-f54b-b70b-907128efce58"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[1580]:=",ExpressionUUID->"41673e15-e6de-fe47-950c-7b1f2c7dfd6c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.795"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, + 3.992092367948057*^9}, + CellLabel-> + "In[1581]:=",ExpressionUUID->"7b93443b-b0b4-db45-a47c-46e8ee0ddc1b"], + +Cell[BoxData["0.795`"], "Output", + CellChangeTimes->{ + 3.9920924244671745`*^9, {3.9920925177601814`*^9, 3.9920926161603107`*^9}, { + 3.9920927960489674`*^9, 3.9920929653658905`*^9}, {3.992092996901783*^9, + 3.9920930205454807`*^9}, {3.992093056990692*^9, 3.9920930831836834`*^9}}, + CellLabel-> + "Out[1581]=",ExpressionUUID->"79e76264-8f57-e24c-a47a-94f211da3a3a"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[1582]:=",ExpressionUUID->"88b2d44d-0392-c64e-9077-6e2216c2a495"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv1", "=", "2.204"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, + 3.9920923714363804`*^9}, + CellLabel-> + "In[1583]:=",ExpressionUUID->"2c4884bb-f4a0-a347-a778-d5d80d3c207b"], + +Cell[BoxData["2.204`"], "Output", + CellChangeTimes->{ + 3.9920924244911957`*^9, {3.992092517786337*^9, 3.9920926161872025`*^9}, { + 3.992092796077503*^9, 3.9920929653893967`*^9}, {3.9920929969247704`*^9, + 3.992093020555729*^9}, {3.9920930570177917`*^9, 3.992093083208723*^9}}, + CellLabel-> + "Out[1583]=",ExpressionUUID->"55a490d4-f0cb-9a46-9bfc-479b121ab37c"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[1584]:=",ExpressionUUID->"f0650ff3-22ed-a54c-8376-796552b196d7"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.070"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, 3.9920923750354595`*^9}, + CellLabel-> + "In[1585]:=",ExpressionUUID->"e22d0d9a-98af-ab43-afb7-e478421286df"], + +Cell[BoxData["1.07`"], "Output", + CellChangeTimes->{ + 3.9920924245191975`*^9, {3.9920925178121643`*^9, 3.9920926162159557`*^9}, { + 3.992092796104519*^9, 3.9920929654147778`*^9}, {3.9920929969487724`*^9, + 3.992093020581457*^9}, {3.9920930570267944`*^9, 3.992093083235735*^9}}, + CellLabel-> + "Out[1585]=",ExpressionUUID->"d80670f0-1cc9-6b4f-a882-c9df2614dc30"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[1586]:=",ExpressionUUID->"bef54975-9c89-724b-8785-d8c4b5ddd430"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"v2", "=", "0.938"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, 3.992092378674286*^9}, + CellLabel-> + "In[1587]:=",ExpressionUUID->"dd9979b5-9388-6348-94bd-1984bae4214c"], + +Cell[BoxData["0.938`"], "Output", + CellChangeTimes->{ + 3.9920924245433064`*^9, {3.9920925178372326`*^9, 3.9920926162431374`*^9}, { + 3.992092796130512*^9, 3.9920929654385223`*^9}, {3.992092996973612*^9, + 3.992093020606451*^9}, {3.992093057050337*^9, 3.9920930832457333`*^9}}, + CellLabel-> + "Out[1587]=",ExpressionUUID->"6e8c2d06-3c7d-f641-bdcc-86754f3cabef"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[1588]:=",ExpressionUUID->"cd8a400b-4ac0-dd49-9421-9742544f11ee"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.739"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, 3.9920923820487957`*^9}, + CellLabel-> + "In[1589]:=",ExpressionUUID->"bac972ac-c0d3-bf46-97e9-14ff0c6ed48e"], + +Cell[BoxData["0.739`"], "Output", + CellChangeTimes->{ + 3.9920924245712776`*^9, {3.992092517868086*^9, 3.9920926162719116`*^9}, { + 3.992092796153553*^9, 3.9920929654498425`*^9}, {3.992092996998516*^9, + 3.992093020631668*^9}, {3.992093057076357*^9, 3.9920930832708435`*^9}}, + CellLabel-> + "Out[1589]=",ExpressionUUID->"09d3253e-7692-3d42-9421-a389a53f9616"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[1590]:=",ExpressionUUID->"1bab47be-8748-a647-b7d6-2428614313ae"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv2", "=", "1.318"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, 3.992092385442354*^9}, + CellLabel-> + "In[1591]:=",ExpressionUUID->"daa55c72-e67b-074f-a520-8d5b5f8f6847"], + +Cell[BoxData["1.318`"], "Output", + CellChangeTimes->{ + 3.992092424600256*^9, {3.9920925178950996`*^9, 3.9920926162988586`*^9}, { + 3.9920927961825104`*^9, 3.992092965474863*^9}, {3.9920929970216312`*^9, + 3.9920930206588135`*^9}, {3.992093057101387*^9, 3.992093083297676*^9}}, + CellLabel-> + "Out[1591]=",ExpressionUUID->"0e2c983f-8d9e-4b44-9bbd-90cc2b94e758"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[1592]:=",ExpressionUUID->"d39ac6c7-93c1-0f48-a65c-d715005e7adc"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn2", "=", "0.948"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, 3.992092389548071*^9}, + CellLabel-> + "In[1593]:=",ExpressionUUID->"293760ee-041c-1447-b6ff-ffeaa10077ad"], + +Cell[BoxData["0.948`"], "Output", + CellChangeTimes->{ + 3.9920924246278687`*^9, {3.9920925179191475`*^9, 3.9920926163079185`*^9}, { + 3.992092796204502*^9, 3.992092965499399*^9}, {3.9920929970485687`*^9, + 3.99209302068668*^9}, {3.99209305712838*^9, 3.992093083307684*^9}}, + CellLabel-> + "Out[1593]=",ExpressionUUID->"867a094f-7be7-be48-88da-503b4509ef1c"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[1594]:=",ExpressionUUID->"f6a5c810-0778-2743-a235-f08ec2aeecfd"], + +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[1595]:=",ExpressionUUID->"8c7d2da5-1545-ba4b-b1be-c0c3c826d7e1"], + +Cell[BoxData["0.23853606466317218`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.9920924246760044`*^9, {3.9920925179775143`*^9, + 3.9920926163632183`*^9}, {3.992092796244623*^9, 3.9920929655537834`*^9}, { + 3.992092997089651*^9, 3.9920930207385387`*^9}, {3.992093057173485*^9, + 3.9920930833603687`*^9}}, + CellLabel-> + "Out[1595]=",ExpressionUUID->"e7affea2-53d3-224b-b4d1-4dcc1e3b42c8"] +}, 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[1596]:=",ExpressionUUID->"a770069a-721e-5d48-a9de-c3e8734acda3"], + +Cell[BoxData["1.1621646878049277`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9920924247221813`*^9, {3.992092518021105*^9, + 3.992092616403429*^9}, {3.9920927962806664`*^9, 3.9920929655928*^9}, { + 3.992092997126686*^9, 3.992093020775572*^9}, {3.99209305721846*^9, + 3.9920930834024544`*^9}}, + CellLabel-> + "Out[1596]=",ExpressionUUID->"25f4500b-bc35-6c45-af59-4250c43e96d0"] +}, 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[1597]:=",ExpressionUUID->"f1043aa1-a214-244a-b733-ef6b0ad0ee42"], + +Cell[BoxData[ + RowBox[{"-", "11.54880477030602`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.9920924247643623`*^9, {3.9920925180570297`*^9, + 3.992092616442415*^9}, {3.99209279631579*^9, 3.9920929656287766`*^9}, { + 3.9920929971636944`*^9, 3.992093020811638*^9}, {3.992093057256893*^9, + 3.9920930834404774`*^9}}, + CellLabel-> + "Out[1597]=",ExpressionUUID->"f0925d25-82bb-c04c-a38c-5119a9075a51"] +}, 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[1598]:=",ExpressionUUID->"d3f94f18-b7b8-a043-a700-bf3a21138b48"], + +Cell[BoxData[ + RowBox[{"-", "19.77600599831311`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.9920924248567066`*^9, {3.9920925181035156`*^9, + 3.99209261648604*^9}, {3.9920927963639317`*^9, 3.9920929656716843`*^9}, { + 3.9920929972087193`*^9, 3.992093020858343*^9}, {3.9920930573004055`*^9, + 3.9920930834844856`*^9}}, + CellLabel-> + "Out[1598]=",ExpressionUUID->"808969b7-b58f-9844-9719-56d1a8f4ee59"] +}, 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[1599]:=",ExpressionUUID->"3cdd6860-b4e2-4d49-a72e-6fe0b37a834d"], + +Cell[BoxData[ + RowBox[{"-", "30.58059117523105`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.992092424909916*^9, {3.9920925181461334`*^9, + 3.9920926165285892`*^9}, {3.9920927964064484`*^9, + 3.9920929657136993`*^9}, {3.99209299725375*^9, 3.992093020905369*^9}, { + 3.9920930573464146`*^9, 3.992093083528572*^9}}, + CellLabel-> + "Out[1599]=",ExpressionUUID->"d2ce8fd9-eb06-5249-ab75-5a5a3357ea3c"] +}, 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[1600]:=",ExpressionUUID->"4df7d12b-5d48-9142-8f53-5b4b9d801f14"], + +Cell[BoxData[ + RowBox[{"-", "105.09350269202939`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.9920924249671135`*^9, {3.992092518197281*^9, + 3.992092616578083*^9}, {3.992092796458473*^9, 3.992092965763729*^9}, { + 3.992092997304306*^9, 3.9920930209554005`*^9}, {3.9920930573954678`*^9, + 3.992093083597994*^9}}, + CellLabel-> + "Out[1600]=",ExpressionUUID->"dd050d96-9bc3-cf41-a25e-334497952adc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[1601]:=",ExpressionUUID->"b6e92f0e-813f-9045-9686-e604554d4948"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.992092424988882*^9, {3.9920925182220745`*^9, + 3.9920926166009426`*^9}, {3.9920927964825535`*^9, 3.992092965791752*^9}, { + 3.9920929973323193`*^9, 3.9920930209844055`*^9}, {3.9920930574224644`*^9, + 3.992093083606518*^9}}, + CellLabel-> + "Out[1601]=",ExpressionUUID->"a9c23cfe-bd59-084a-b547-e246e45be82f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[1602]:=",ExpressionUUID->"cea3785d-93ef-4642-9b48-4e2f42773a80"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.9920924249969025`*^9, {3.9920925182290916`*^9, + 3.9920926166340294`*^9}, {3.9920927965035686`*^9, 3.992092965815735*^9}, { + 3.9920929973413277`*^9, 3.992093021007929*^9}, {3.9920930574444923`*^9, + 3.9920930836334076`*^9}}, + CellLabel-> + "Out[1602]=",ExpressionUUID->"fdbb836e-b7ab-084b-9daf-90b245432a48"] +}, 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[1603]:=",ExpressionUUID->"bb07f854-3c12-474c-87a4-0510349f1c8d"], + +Cell[BoxData["50.79485995775785`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9920924250203743`*^9, {3.9920925182541103`*^9, + 3.992092616658106*^9}, {3.992092796530678*^9, 3.9920929658470783`*^9}, { + 3.9920929973643227`*^9, 3.992093021036476*^9}, {3.992093057470501*^9, + 3.992093083664322*^9}}, + CellLabel-> + "Out[1603]=",ExpressionUUID->"c898cda5-e9d4-3b4a-ac28-e616eaf88920"] +}, 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[1604]:=",ExpressionUUID->"6445f16d-5c34-3449-a16b-d1a2b8b40a69"], + +Cell[BoxData[ + RowBox[{"-", "39.807512260788336`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.9920924250287895`*^9, {3.992092518261135*^9, + 3.9920926166661263`*^9}, {3.992092796553686*^9, 3.992092965855587*^9}, { + 3.992092997385847*^9, 3.9920930210664825`*^9}, {3.9920930574785194`*^9, + 3.9920930836908455`*^9}}, + CellLabel-> + "Out[1604]=",ExpressionUUID->"7a32bfde-5209-484e-9a5e-4b37f4f1799e"] +}, 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[1605]:=",ExpressionUUID->"e060dd29-a195-c344-812e-6d0704874fcc"], + +Cell[BoxData["55.47457091262591`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9920924250533905`*^9, {3.9920925182831707`*^9, + 3.9920926166888447`*^9}, {3.992092796576765*^9, 3.992092965880436*^9}, { + 3.992092997412588*^9, 3.992093021074486*^9}, {3.992093057501501*^9, + 3.9920930837153435`*^9}}, + CellLabel-> + "Out[1605]=",ExpressionUUID->"fe499101-bd3d-e942-bec7-6d4c71860bd9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[1606]:=",ExpressionUUID->"62af4000-a573-a54a-b730-37a978add5a2"], + +Cell[BoxData["0.4525799206818347`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.9920924250769863`*^9, {3.992092518290186*^9, + 3.9920926166969337`*^9}, {3.992092796599745*^9, 3.9920929659136524`*^9}, { + 3.9920929974355965`*^9, 3.992093021109741*^9}, {3.992093057526634*^9, + 3.992093083742384*^9}}, + CellLabel-> + "Out[1606]=",ExpressionUUID->"b4077b0c-1348-6848-b894-34c030d50ba0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[1607]:=",ExpressionUUID->"7f841a54-0c14-b44d-9057-1205bade2c2f"], + +Cell[BoxData[ + RowBox[{"-", "0.14627901466132107`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.992092425085251*^9, {3.9920925183123817`*^9, + 3.992092616720148*^9}, {3.992092796621517*^9, 3.9920929659406376`*^9}, { + 3.9920929974485817`*^9, 3.9920930211177807`*^9}, {3.9920930575493755`*^9, + 3.992093083766514*^9}}, + CellLabel-> + "Out[1607]=",ExpressionUUID->"60ddedb0-1636-534e-a5b0-c2c22d9f9e04"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[1608]:=",ExpressionUUID->"57a55c76-8b07-f643-aa6f-8c01cc09b493"], + +Cell[BoxData[ + RowBox[{"-", "0.3067897746750185`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.992092425109461*^9, {3.9920925183188953`*^9, + 3.9920926167479305`*^9}, {3.992092796644417*^9, 3.9920929659693794`*^9}, { + 3.9920929974695816`*^9, 3.9920930211443024`*^9}, {3.9920930575783825`*^9, + 3.9920930837753963`*^9}}, + CellLabel-> + "Out[1608]=",ExpressionUUID->"59405077-598c-e346-8211-2e5d03f3f22b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[1609]:=",ExpressionUUID->"91e0ca2b-558f-714f-8623-b4b515073763"], + +Cell[BoxData["0.5588619635695797`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.992092425140007*^9, {3.9920925183433113`*^9, + 3.9920926167768955`*^9}, {3.99209279665242*^9, 3.992092965997463*^9}, { + 3.9920929974956074`*^9, 3.992093021153307*^9}, {3.9920930575873737`*^9, + 3.9920930837992496`*^9}}, + CellLabel-> + "Out[1609]=",ExpressionUUID->"991991df-a93e-9e46-8a5f-91523df13dad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[1610]:=",ExpressionUUID->"e9c21126-979b-c248-bd9e-595575d42f84"], + +Cell[BoxData["2.0397870167233085`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.9920924251485367`*^9, {3.9920925183502617`*^9, + 3.992092616801161*^9}, {3.992092796675625*^9, 3.992092966020483*^9}, { + 3.992092997519621*^9, 3.9920930211783123`*^9}, {3.992093057612406*^9, + 3.992093083807356*^9}}, + CellLabel-> + "Out[1610]=",ExpressionUUID->"d97ed9ad-d3b4-8249-abc4-d365e30fa354"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[1611]:=",ExpressionUUID->"9d54f8da-5e0e-824d-95ea-05915833942f"], + +Cell[BoxData["1.6965844703854613`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.9920924251731644`*^9, {3.992092518390991*^9, + 3.992092616809025*^9}, {3.992092796682625*^9, 3.9920929660454655`*^9}, { + 3.992092997546631*^9, 3.992093021206312*^9}, {3.9920930576354465`*^9, + 3.9920930838346233`*^9}}, + CellLabel-> + "Out[1611]=",ExpressionUUID->"30a1155e-78a6-674b-b7ee-a857e7d6e7fd"] +}, 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[1612]:=",ExpressionUUID->"cd09fed1-3e7a-2345-a162-7f8720d3d7ff"], + +Cell[BoxData[ + RowBox[{"-", "21.092736551945727`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.9920924251813374`*^9, {3.9920925184000015`*^9, + 3.9920926168329926`*^9}, {3.992092796713726*^9, 3.9920929660694675`*^9}, { + 3.992092997555647*^9, 3.992093021215063*^9}, {3.9920930576579895`*^9, + 3.992093083860649*^9}}, + CellLabel-> + "Out[1612]=",ExpressionUUID->"444294b5-51d0-0d4b-8050-dd784863cba5"] +}, 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[1613]:=",ExpressionUUID->"0fd5209c-7dce-0e4b-afff-cb4fa4c675dc"], + +Cell[BoxData[ + RowBox[{"-", "10.70666087171256`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.992092425203964*^9, {3.992092518424059*^9, + 3.992092616841175*^9}, {3.992092796739727*^9, 3.992092966097471*^9}, { + 3.992092997577677*^9, 3.9920930212386017`*^9}, {3.9920930576665287`*^9, + 3.992093083870682*^9}}, + CellLabel-> + "Out[1613]=",ExpressionUUID->"1ce0570b-dd8e-5746-b7ca-f59ab318f947"] +}, 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[1614]:=",ExpressionUUID->"03601d7a-ce88-f24f-a049-36577e2ddd6c"], + +Cell[BoxData["29.702123405812124`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.99209242521216*^9, {3.992092518431139*^9, + 3.992092616869858*^9}, {3.9920927967650204`*^9, 3.9920929661054707`*^9}, { + 3.99209299758585*^9, 3.992093021262615*^9}, {3.992093057691532*^9, + 3.992093083897995*^9}}, + CellLabel-> + "Out[1614]=",ExpressionUUID->"d4fe7187-6218-a44a-8f58-1f4b79171512"] +}, 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[1615]:=",ExpressionUUID->"31570adb-11c2-5f46-a7e0-bccad98db6ba"], + +Cell[BoxData[ + RowBox[{"-", "39.807512260788336`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.9920924252399826`*^9, {3.9920925184532547`*^9, + 3.9920926168974247`*^9}, {3.992092796772524*^9, 3.992092966127367*^9}, { + 3.992092997616436*^9, 3.992093021286625*^9}, {3.9920930577172832`*^9, + 3.9920930839314575`*^9}}, + CellLabel-> + "Out[1615]=",ExpressionUUID->"b74831e9-96dd-d34e-a565-0bc945ef1984"] +}, 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[1616]:=",ExpressionUUID->"6b322f69-fda9-4640-b476-fdfa276954f6"], + +Cell[BoxData["44.76791004091335`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.9920924252641563`*^9, {3.9920925184652615`*^9, + 3.992092616924053*^9}, {3.992092796799511*^9, 3.9920929661654415`*^9}, { + 3.992092997645611*^9, 3.9920930213107224`*^9}, {3.9920930577272816`*^9, + 3.9920930839574585`*^9}}, + CellLabel-> + "Out[1616]=",ExpressionUUID->"3f98d884-5479-4042-a2b9-6a2550c3fc2e"] +}, 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[1617]:=",ExpressionUUID->"4561ed8f-47c0-ea4d-a8c1-66abf8ce6d0b"], + +Cell[BoxData["0.017639944695631016`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.992092425272375*^9, {3.9920925184886303`*^9, + 3.9920926169319496`*^9}, {3.992092796807514*^9, 3.992092966188612*^9}, { + 3.9920929976776257`*^9, 3.99209302132073*^9}, {3.9920930577495594`*^9, + 3.9920930839824753`*^9}}, + CellLabel-> + "Out[1617]=",ExpressionUUID->"5f478722-5626-2f48-9954-741e827ff755"] +}, 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[1618]:=",ExpressionUUID->"a8c5dd76-483f-364b-94b5-37e85d19ae4c"], + +Cell[BoxData["198.48274307805877`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.9920924252972507`*^9, {3.99209251849621*^9, + 3.9920926169568806`*^9}, {3.99209279683144*^9, 3.9920929661966133`*^9}, { + 3.992092997701681*^9, 3.992093021346737*^9}, {3.9920930577580833`*^9, + 3.9920930839966183`*^9}}, + CellLabel-> + "Out[1618]=",ExpressionUUID->"89db7975-5b06-8346-811d-d985f9dd4000"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.719616319964285"}]], "Input", + CellChangeTimes->{3.9918496921150837`*^9, + 3.9920934671563683`*^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", "=", "0.751752569327218"}]], "Input", + CellChangeTimes->{3.991849690724144*^9, + 3.9920934710674915`*^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[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.131906"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.092238"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.135383"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.172743"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.117679"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.094793"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.075876"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.054298"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.038669"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.027641"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.018887"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.013232"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.008805"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.0061"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.003941"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.002757"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.001714"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.00123"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.000717"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.000544"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.000282"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.000244"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.000099"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.000114"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.000026"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.000032"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.000019"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.000013"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.000007"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.000005"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.000002"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.992093372500942*^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[CellGroupData[{ +Cell[576, 22, 435, 8, 28, "Input",ExpressionUUID->"07f72ee3-926b-5344-b663-1a5c88aface5"], +Cell[1014, 32, 391, 7, 32, "Output",ExpressionUUID->"ea72bb20-a86a-ec4c-9e29-a628d422f24c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1442, 44, 254, 5, 28, "Input",ExpressionUUID->"c84484d9-6e14-7a40-9c02-fe16f2844b30"], +Cell[1699, 51, 395, 7, 32, "Output",ExpressionUUID->"14edbd1f-cb11-0a45-af5a-d2b17de4cbb6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2131, 63, 231, 5, 28, "Input",ExpressionUUID->"602726cb-1a0d-c74a-8526-001d9caf820e"], +Cell[2365, 70, 391, 7, 32, "Output",ExpressionUUID->"cc77ad7a-55bb-6e41-a98e-0b2957bd9c07"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2793, 82, 181, 4, 28, "Input",ExpressionUUID->"1b3165ce-02e3-7743-9a69-968c90b6d6a2"], +Cell[2977, 88, 393, 7, 32, "Output",ExpressionUUID->"7d20aeb8-a47c-254b-988c-09c4f1342b47"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3407, 100, 263, 8, 43, "Input",ExpressionUUID->"f19a5e99-16b6-494d-bc7e-963677e548e2"], +Cell[3673, 110, 409, 7, 32, "Output",ExpressionUUID->"668cb05b-ce2d-604f-8f3f-7553083a178d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4119, 122, 137, 3, 28, "Input",ExpressionUUID->"c4e4a357-f4fc-b44e-9a86-f5200e22a446"], +Cell[4259, 127, 397, 7, 32, "Output",ExpressionUUID->"b78b6060-b559-f543-bb13-ea8fb9ddbd3f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4693, 139, 282, 7, 28, "Input",ExpressionUUID->"a8c7cb46-db81-1748-946d-f11213c241f9"], +Cell[4978, 148, 401, 7, 32, "Output",ExpressionUUID->"5f3acec4-1d83-8b46-aff5-65ef2c596463"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5416, 160, 263, 8, 28, "Input",ExpressionUUID->"02ba1693-08ff-0f42-8cd9-aaf1421239fe"], +Cell[5682, 170, 406, 7, 32, "Output",ExpressionUUID->"761da3ce-9467-3644-86bc-9aab7100fdcf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6125, 182, 216, 4, 28, "Input",ExpressionUUID->"19079dd7-7133-3f41-b7fe-8cd5c0965a91"], +Cell[6344, 188, 372, 6, 32, "Output",ExpressionUUID->"11ec42e7-2296-ae46-8fe5-fe630668a80e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6753, 199, 216, 4, 28, "Input",ExpressionUUID->"55305a95-10d7-174e-a056-94b035d14e24"], +Cell[6972, 205, 376, 6, 32, "Output",ExpressionUUID->"ff07f7f3-f5a6-614c-872a-3cda37f841fc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7385, 216, 134, 3, 28, "Input",ExpressionUUID->"55a2971e-7eec-b541-8c39-3101e7174a37"], +Cell[7522, 221, 393, 7, 36, "Output",ExpressionUUID->"e9a07ed0-7d95-9247-b9bf-2a3a712f8c8d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7952, 233, 134, 3, 33, "Input",ExpressionUUID->"648afa06-ac3a-8c42-8ebc-e814bfce97f5"], +Cell[8089, 238, 382, 7, 36, "Output",ExpressionUUID->"566f1c6c-9f41-724d-995d-373320b2605f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8508, 250, 562, 20, 76, "Input",ExpressionUUID->"d8048c62-3de5-e046-9bcd-1695ca38b974"], +Cell[9073, 272, 400, 7, 36, "Output",ExpressionUUID->"ced71fe9-8574-8343-ae58-e197d1e8a8e8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9510, 284, 562, 20, 76, "Input",ExpressionUUID->"f5d0c30b-ea4c-dc48-ae61-79eb305b1794"], +Cell[10075, 306, 411, 7, 36, "Output",ExpressionUUID->"fe9df648-8f52-404e-934b-02dd3d185c37"] +}, Open ]], +Cell[CellGroupData[{ +Cell[10523, 318, 1497, 49, 76, "Input",ExpressionUUID->"663770d1-66db-a44c-8bf7-256628e2cd64"], +Cell[12023, 369, 398, 7, 36, "Output",ExpressionUUID->"e604c090-4ac5-dc4a-9f77-c9bb16e52907"] +}, Open ]], +Cell[CellGroupData[{ +Cell[12458, 381, 1336, 45, 76, "Input",ExpressionUUID->"c2e9d53a-b88f-324a-9b00-2082996041c8"], +Cell[13797, 428, 423, 8, 36, "Output",ExpressionUUID->"5d922415-9e83-984c-8bc3-ae5df0a09996"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14257, 441, 1336, 45, 76, "Input",ExpressionUUID->"d6ec2c61-5304-fb4a-bd6f-1baaba82b97e"], +Cell[15596, 488, 420, 8, 36, "Output",ExpressionUUID->"f5761769-db14-3147-a2ad-1d0e2dfe46d1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16053, 501, 1497, 49, 76, "Input",ExpressionUUID->"7e010941-892c-d440-8981-b89d763c5b1b"], +Cell[17553, 552, 401, 7, 36, "Output",ExpressionUUID->"0c97b8bf-0eed-e446-ac58-b0bfb9f70384"] +}, Open ]], +Cell[CellGroupData[{ +Cell[17991, 564, 136, 3, 33, "Input",ExpressionUUID->"0eb61fa0-a40a-1341-95cb-d8cfad0c502a"], +Cell[18130, 569, 383, 7, 36, "Output",ExpressionUUID->"0f7383dd-5b31-5441-adeb-ec72a2a0978e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18550, 581, 138, 3, 33, "Input",ExpressionUUID->"4a6b9213-1474-0d40-9ec5-d881dab3558f"], +Cell[18691, 586, 387, 7, 36, "Output",ExpressionUUID->"c01a5841-f57f-274f-8cad-371bc9d768bf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19115, 598, 139, 3, 33, "Input",ExpressionUUID->"3487ced0-b765-e44a-a1f6-8c6274547d0b"], +Cell[19257, 603, 389, 7, 36, "Output",ExpressionUUID->"b0e16938-06d8-ff4b-b396-74bc9d6ad907"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19683, 615, 224, 5, 33, "Input",ExpressionUUID->"b190132e-2ea0-6340-9097-e6b37463d0e5"], +Cell[19910, 622, 398, 8, 36, "Output",ExpressionUUID->"31f564f8-48dc-e146-a87a-d3e11a2968f6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20345, 635, 139, 3, 33, "Input",ExpressionUUID->"405669b2-a773-194e-a982-9012c67af4d5"], +Cell[20487, 640, 384, 7, 36, "Output",ExpressionUUID->"f1e2fc13-b5cd-f54e-b79b-c43f08b73b57"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20908, 652, 303, 6, 33, "Input",ExpressionUUID->"7bda0a3d-d57b-d74f-960f-301c614b0421"], +Cell[21214, 660, 382, 7, 36, "Output",ExpressionUUID->"24687108-981b-3749-8942-67ca78140a18"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21633, 672, 279, 6, 33, "Input",ExpressionUUID->"6399aa3b-2148-7d4c-88f1-e953dabb4e5c"], +Cell[21915, 680, 385, 7, 36, "Output",ExpressionUUID->"d781d84c-6485-134c-88b7-026ce8df65a7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22337, 692, 224, 5, 33, "Input",ExpressionUUID->"e3850e2b-4b41-5b47-82ac-cf6c7f603617"], +Cell[22564, 699, 380, 7, 36, "Output",ExpressionUUID->"3805a3b0-50b1-5141-b659-21411eb1ff67"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22981, 711, 355, 11, 46, "Input",ExpressionUUID->"a5ec021f-6418-0849-a117-c97688c1e682"], +Cell[23339, 724, 404, 7, 36, "Output",ExpressionUUID->"31625da1-6c20-464f-9ac2-75fea79d07cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23780, 736, 355, 11, 46, "Input",ExpressionUUID->"151354d5-e400-d345-9901-faa6688aa40a"], +Cell[24138, 749, 425, 8, 36, "Output",ExpressionUUID->"59ec8465-9883-384e-b9ad-4d27a471a753"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24600, 762, 999, 27, 103, "Input",ExpressionUUID->"7dc10e63-4950-384d-9141-dd2ef4612ce1"], +Cell[25602, 791, 404, 7, 36, "Output",ExpressionUUID->"a5d9b73f-ec95-8043-b876-9fedd8f0585f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26043, 803, 204, 4, 33, "Input",ExpressionUUID->"8171f2c9-2d75-ce4f-8a32-3dd3fc2daacd"], +Cell[26250, 809, 385, 7, 36, "Output",ExpressionUUID->"b406afa6-2d3a-a74c-9144-81461b1dac60"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26672, 821, 310, 6, 33, "Input",ExpressionUUID->"9fdf9325-d25f-3b41-b32f-97575c1df323"], +Cell[26985, 829, 366, 6, 36, "Output",ExpressionUUID->"bec72722-f7f8-f54b-b70b-907128efce58"] +}, Open ]], +Cell[27366, 838, 178, 3, 33, "Input",ExpressionUUID->"41673e15-e6de-fe47-950c-7b1f2c7dfd6c"], +Cell[CellGroupData[{ +Cell[27569, 845, 308, 6, 33, "Input",ExpressionUUID->"7b93443b-b0b4-db45-a47c-46e8ee0ddc1b"], +Cell[27880, 853, 368, 6, 36, "Output",ExpressionUUID->"79e76264-8f57-e24c-a47a-94f211da3a3a"] +}, Open ]], +Cell[28263, 862, 178, 3, 33, "Input",ExpressionUUID->"88b2d44d-0392-c64e-9077-6e2216c2a495"], +Cell[CellGroupData[{ +Cell[28466, 869, 330, 7, 49, "Input",ExpressionUUID->"2c4884bb-f4a0-a347-a778-d5d80d3c207b"], +Cell[28799, 878, 364, 6, 36, "Output",ExpressionUUID->"55a490d4-f0cb-9a46-9bfc-479b121ab37c"] +}, Open ]], +Cell[29178, 887, 178, 3, 33, "Input",ExpressionUUID->"f0650ff3-22ed-a54c-8376-796552b196d7"], +Cell[CellGroupData[{ +Cell[29381, 894, 335, 6, 33, "Input",ExpressionUUID->"e22d0d9a-98af-ab43-afb7-e478421286df"], +Cell[29719, 902, 365, 6, 36, "Output",ExpressionUUID->"d80670f0-1cc9-6b4f-a882-c9df2614dc30"] +}, Open ]], +Cell[30099, 911, 176, 3, 33, "Input",ExpressionUUID->"bef54975-9c89-724b-8785-d8c4b5ddd430"], +Cell[CellGroupData[{ +Cell[30300, 918, 295, 6, 49, "Input",ExpressionUUID->"dd9979b5-9388-6348-94bd-1984bae4214c"], +Cell[30598, 926, 364, 6, 36, "Output",ExpressionUUID->"6e8c2d06-3c7d-f641-bdcc-86754f3cabef"] +}, Open ]], +Cell[30977, 935, 176, 3, 33, "Input",ExpressionUUID->"cd8a400b-4ac0-dd49-9421-9742544f11ee"], +Cell[CellGroupData[{ +Cell[31178, 942, 282, 5, 33, "Input",ExpressionUUID->"bac972ac-c0d3-bf46-97e9-14ff0c6ed48e"], +Cell[31463, 949, 362, 6, 36, "Output",ExpressionUUID->"09d3253e-7692-3d42-9421-a389a53f9616"] +}, Open ]], +Cell[31840, 958, 178, 3, 33, "Input",ExpressionUUID->"1bab47be-8748-a647-b7d6-2428614313ae"], +Cell[CellGroupData[{ +Cell[32043, 965, 302, 6, 49, "Input",ExpressionUUID->"daa55c72-e67b-074f-a520-8d5b5f8f6847"], +Cell[32348, 973, 364, 6, 36, "Output",ExpressionUUID->"0e2c983f-8d9e-4b44-9bbd-90cc2b94e758"] +}, Open ]], +Cell[32727, 982, 177, 3, 33, "Input",ExpressionUUID->"d39ac6c7-93c1-0f48-a65c-d715005e7adc"], +Cell[CellGroupData[{ +Cell[32929, 989, 275, 6, 49, "Input",ExpressionUUID->"293760ee-041c-1447-b6ff-ffeaa10077ad"], +Cell[33207, 997, 360, 6, 36, "Output",ExpressionUUID->"867a094f-7be7-be48-88da-503b4509ef1c"] +}, Open ]], +Cell[33582, 1006, 180, 3, 33, "Input",ExpressionUUID->"f6a5c810-0778-2743-a235-f08ec2aeecfd"], +Cell[CellGroupData[{ +Cell[33787, 1013, 19814, 486, 1564, "Input",ExpressionUUID->"8c7d2da5-1545-ba4b-b1be-c0c3c826d7e1"], +Cell[53604, 1501, 406, 7, 36, "Output",ExpressionUUID->"e7affea2-53d3-224b-b4d1-4dcc1e3b42c8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[54047, 1513, 19753, 490, 1590, "Input",ExpressionUUID->"a770069a-721e-5d48-a9de-c3e8734acda3"], +Cell[73803, 2005, 396, 7, 36, "Output",ExpressionUUID->"25f4500b-bc35-6c45-af59-4250c43e96d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[74236, 2017, 19753, 484, 1583, "Input",ExpressionUUID->"f1043aa1-a214-244a-b733-ef6b0ad0ee42"], +Cell[93992, 2503, 418, 8, 36, "Output",ExpressionUUID->"f0925d25-82bb-c04c-a38c-5119a9075a51"] +}, Open ]], +Cell[CellGroupData[{ +Cell[94447, 2516, 22539, 554, 1778, "Input",ExpressionUUID->"d3f94f18-b7b8-a043-a700-bf3a21138b48"], +Cell[116989, 3072, 422, 8, 36, "Output",ExpressionUUID->"808969b7-b58f-9844-9719-56d1a8f4ee59"] +}, Open ]], +Cell[CellGroupData[{ +Cell[117448, 3085, 22540, 554, 1784, "Input",ExpressionUUID->"3cdd6860-b4e2-4d49-a72e-6fe0b37a834d"], +Cell[139991, 3641, 420, 8, 36, "Output",ExpressionUUID->"d2ce8fd9-eb06-5249-ab75-5a5a3357ea3c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[140448, 3654, 25496, 627, 1995, "Input",ExpressionUUID->"4df7d12b-5d48-9142-8f53-5b4b9d801f14"], +Cell[165947, 4283, 416, 8, 36, "Output",ExpressionUUID->"dd050d96-9bc3-cf41-a25e-334497952adc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166400, 4296, 135, 3, 33, "Input",ExpressionUUID->"b6e92f0e-813f-9045-9686-e604554d4948"], +Cell[166538, 4301, 389, 7, 36, "Output",ExpressionUUID->"a9c23cfe-bd59-084a-b547-e246e45be82f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166964, 4313, 135, 3, 33, "Input",ExpressionUUID->"cea3785d-93ef-4642-9b48-4e2f42773a80"], +Cell[167102, 4318, 391, 7, 36, "Output",ExpressionUUID->"fdbb836e-b7ab-084b-9daf-90b245432a48"] +}, Open ]], +Cell[CellGroupData[{ +Cell[167530, 4330, 1149, 40, 57, "Input",ExpressionUUID->"bb07f854-3c12-474c-87a4-0510349f1c8d"], +Cell[168682, 4372, 400, 7, 36, "Output",ExpressionUUID->"c898cda5-e9d4-3b4a-ac28-e616eaf88920"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169119, 4384, 1046, 36, 57, "Input",ExpressionUUID->"6445f16d-5c34-3449-a16b-d1a2b8b40a69"], +Cell[170168, 4422, 420, 8, 36, "Output",ExpressionUUID->"7a32bfde-5209-484e-9a5e-4b37f4f1799e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170625, 4435, 1149, 40, 57, "Input",ExpressionUUID->"e060dd29-a195-c344-812e-6d0704874fcc"], +Cell[171777, 4477, 402, 7, 36, "Output",ExpressionUUID->"fe499101-bd3d-e942-bec7-6d4c71860bd9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172216, 4489, 113, 2, 33, "Input",ExpressionUUID->"62af4000-a573-a54a-b730-37a978add5a2"], +Cell[172332, 4493, 403, 7, 36, "Output",ExpressionUUID->"b4077b0c-1348-6848-b894-34c030d50ba0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172772, 4505, 113, 2, 33, "Input",ExpressionUUID->"7f841a54-0c14-b44d-9057-1205bade2c2f"], +Cell[172888, 4509, 423, 8, 36, "Output",ExpressionUUID->"60ddedb0-1636-534e-a5b0-c2c22d9f9e04"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173348, 4522, 113, 2, 33, "Input",ExpressionUUID->"57a55c76-8b07-f643-aa6f-8c01cc09b493"], +Cell[173464, 4526, 424, 8, 36, "Output",ExpressionUUID->"59405077-598c-e346-8211-2e5d03f3f22b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173925, 4539, 113, 2, 33, "Input",ExpressionUUID->"91e0ca2b-558f-714f-8623-b4b515073763"], +Cell[174041, 4543, 402, 7, 36, "Output",ExpressionUUID->"991991df-a93e-9e46-8a5f-91523df13dad"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174480, 4555, 112, 2, 33, "Input",ExpressionUUID->"e9c21126-979b-c248-bd9e-595575d42f84"], +Cell[174595, 4559, 401, 7, 36, "Output",ExpressionUUID->"d97ed9ad-d3b4-8249-abc4-d365e30fa354"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175033, 4571, 112, 2, 33, "Input",ExpressionUUID->"9d54f8da-5e0e-824d-95ea-05915833942f"], +Cell[175148, 4575, 403, 7, 36, "Output",ExpressionUUID->"30a1155e-78a6-674b-b7ee-a857e7d6e7fd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175588, 4587, 502, 17, 57, "Input",ExpressionUUID->"cd09fed1-3e7a-2345-a162-7f8720d3d7ff"], +Cell[176093, 4606, 422, 8, 36, "Output",ExpressionUUID->"444294b5-51d0-0d4b-8050-dd784863cba5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176552, 4619, 502, 17, 57, "Input",ExpressionUUID->"0fd5209c-7dce-0e4b-afff-cb4fa4c675dc"], +Cell[177057, 4638, 413, 8, 36, "Output",ExpressionUUID->"1ce0570b-dd8e-5746-b7ca-f59ab318f947"] +}, Open ]], +Cell[CellGroupData[{ +Cell[177507, 4651, 1793, 61, 120, "Input",ExpressionUUID->"03601d7a-ce88-f24f-a049-36577e2ddd6c"], +Cell[179303, 4714, 397, 7, 36, "Output",ExpressionUUID->"d4fe7187-6218-a44a-8f58-1f4b79171512"] +}, Open ]], +Cell[CellGroupData[{ +Cell[179737, 4726, 1106, 37, 133, "Input",ExpressionUUID->"31570adb-11c2-5f46-a7e0-bccad98db6ba"], +Cell[180846, 4765, 422, 8, 32, "Output",ExpressionUUID->"b74831e9-96dd-d34e-a565-0bc945ef1984"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181305, 4778, 1823, 62, 165, "Input",ExpressionUUID->"6b322f69-fda9-4640-b476-fdfa276954f6"], +Cell[183131, 4842, 404, 7, 32, "Output",ExpressionUUID->"3f98d884-5479-4042-a2b9-6a2550c3fc2e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183572, 4854, 1636, 54, 164, "Input",ExpressionUUID->"4561ed8f-47c0-ea4d-a8c1-66abf8ce6d0b"], +Cell[185211, 4910, 406, 7, 32, "Output",ExpressionUUID->"5f478722-5626-2f48-9954-741e827ff755"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185654, 4922, 1636, 54, 164, "Input",ExpressionUUID->"a8c5dd76-483f-364b-94b5-37e85d19ae4c"], +Cell[187293, 4978, 401, 7, 32, "Output",ExpressionUUID->"89db7975-5b06-8346-811d-d985f9dd4000"] +}, Open ]], +Cell[187709, 4988, 194, 4, 28, "Input",ExpressionUUID->"ede64bc2-06f7-8743-a0a6-6f058773310c"], +Cell[187906, 4994, 156, 3, 28, "Input",ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-c82e80965ca9"], +Cell[188065, 4999, 192, 4, 28, "Input",ExpressionUUID->"328429c4-9130-334e-ba7f-7dc8ec78e5b4"], +Cell[188260, 5005, 152, 3, 28, "Input",ExpressionUUID->"b3364ab6-86a4-7a46-ae33-623392314869"], +Cell[CellGroupData[{ +Cell[188437, 5012, 1301, 43, 113, "Input",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], +Cell[189741, 5057, 176, 3, 32, "Output",ExpressionUUID->"b2b0fbe6-496d-0b4b-a132-3f215e541d44"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189954, 5065, 908, 31, 56, "Input",ExpressionUUID->"35e76fc7-2f05-694a-b379-67189aa511ad"], +Cell[190865, 5098, 175, 3, 32, "Output",ExpressionUUID->"cead89a0-592d-3b44-ae8b-df81fa845f91"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191077, 5106, 887, 30, 56, "Input",ExpressionUUID->"a10e19cd-f567-6b4d-a841-5f01117db38b"], +Cell[191967, 5138, 177, 3, 32, "Output",ExpressionUUID->"cd23137f-b6ad-354d-a690-15ff879bfb9c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192181, 5146, 558, 19, 52, "Input",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], +Cell[192742, 5167, 172, 3, 32, "Output",ExpressionUUID->"85da9012-bc80-5149-8545-ead2f85c5a34"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192951, 5175, 651, 22, 52, "Input",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], +Cell[193605, 5199, 170, 3, 32, "Output",ExpressionUUID->"86664631-6f8b-d148-8f17-b13cb8a9a5fa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193812, 5207, 170, 5, 56, "Input",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], +Cell[193985, 5214, 173, 3, 32, "Output",ExpressionUUID->"77c43b01-85eb-fd46-b71d-1d444bf52ef5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194195, 5222, 170, 5, 55, "Input",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], +Cell[194368, 5229, 169, 3, 32, "Output",ExpressionUUID->"aacafa1c-cf55-8c4f-8232-23de80eb25b7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194574, 5237, 181, 5, 43, "Input",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], +Cell[194758, 5244, 173, 3, 32, "Output",ExpressionUUID->"de93d189-ac68-c842-aeb5-e64b23581b7c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194968, 5252, 181, 5, 43, "Input",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], +Cell[195152, 5259, 170, 3, 32, "Output",ExpressionUUID->"73700a90-df80-2f44-9e2f-d43da4980146"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195359, 5267, 6055, 185, 498, "Input",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], +Cell[201417, 5454, 174, 3, 32, "Output",ExpressionUUID->"cebf7c0c-e117-6441-a465-087c93e87be5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201628, 5462, 368, 9, 42, "Input",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], +Cell[201999, 5473, 170, 3, 32, "Output",ExpressionUUID->"53acb857-d475-4b46-bdab-d2addcedb13c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202206, 5481, 6122, 187, 500, "Input",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], +Cell[208331, 5670, 174, 3, 32, "Output",ExpressionUUID->"9962c954-af09-2844-91ec-70eb43451868"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208542, 5678, 368, 9, 42, "Input",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], +Cell[208913, 5689, 170, 3, 32, "Output",ExpressionUUID->"1f5b5c64-ee33-0943-822d-b5e2806576ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[209120, 5697, 2663, 88, 187, "Input",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], +Cell[211786, 5787, 171, 3, 32, "Output",ExpressionUUID->"a3bdb7fa-0a90-d14f-81e9-757139920dcb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[211994, 5795, 2603, 85, 165, "Input",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], +Cell[214600, 5882, 171, 3, 32, "Output",ExpressionUUID->"1b098546-b8b7-b741-b993-7512b0787277"] +}, Open ]], +Cell[CellGroupData[{ +Cell[214808, 5890, 3712, 118, 348, "Input",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], +Cell[218523, 6010, 171, 3, 32, "Output",ExpressionUUID->"d3b57aaa-e0b1-cb4b-b411-ab6c214b3d77"] +}, Open ]], +Cell[218709, 6016, 138, 3, 42, "Input",ExpressionUUID->"0055f95b-c532-e24d-bdc4-544ea2d2fbd9"], +Cell[CellGroupData[{ +Cell[218872, 6023, 2054, 59, 228, "Input",ExpressionUUID->"574b810b-aa4a-d545-b080-c44fbe83a713"], +Cell[220929, 6084, 566, 12, 85, "Message",ExpressionUUID->"56fc0528-7ab2-a142-bc04-9f31af965213"], +Cell[221498, 6098, 569, 12, 85, "Message",ExpressionUUID->"523f0cae-d948-764c-a560-b9272d5e2d53"], +Cell[222070, 6112, 570, 12, 85, "Message",ExpressionUUID->"0a6922e0-d70a-8f48-87c3-f1e8776a3316"], +Cell[222643, 6126, 458, 10, 26, "Message",ExpressionUUID->"777b8d50-cc35-c140-9ef3-025284fd7e68"], +Cell[223104, 6138, 172, 3, 32, "Output",ExpressionUUID->"bbad1871-e996-ef4b-8dc6-3a39d5c410ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[223313, 6146, 2052, 59, 228, "Input",ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-656c90598e75"], +Cell[225368, 6207, 564, 12, 85, "Message",ExpressionUUID->"e613a9b2-edeb-4743-aa3f-3db45e0849dd"], +Cell[225935, 6221, 567, 12, 85, "Message",ExpressionUUID->"d082687e-fa98-c642-8741-e0aeeee8492c"], +Cell[226505, 6235, 570, 12, 85, "Message",ExpressionUUID->"1cb847b5-98cf-0a42-bcd2-893a3a64388b"], +Cell[227078, 6249, 455, 10, 26, "Message",ExpressionUUID->"0d526236-fa4c-334c-9891-0cc458f43fbe"], +Cell[227536, 6261, 169, 3, 32, "Output",ExpressionUUID->"a61472f3-b6b3-5d40-8ec5-35b87df5c824"] +}, Open ]], +Cell[CellGroupData[{ +Cell[227742, 6269, 1936, 53, 115, "Input",ExpressionUUID->"9c540ba7-8bb4-ef46-919c-62296271f174"], +Cell[229681, 6324, 19983, 375, 237, "Output",ExpressionUUID->"84263d17-cde8-2246-a26d-50fe65f34979"] +}, Open ]], +Cell[CellGroupData[{ +Cell[249701, 6704, 2092, 60, 211, "Input",ExpressionUUID->"6e33cb28-ef1e-1547-b52d-2171e7786920"], +Cell[251796, 6766, 501, 11, 60, "Message",ExpressionUUID->"53d31480-3c5e-ef4a-987b-a232cf0b03f3"], +Cell[252300, 6779, 503, 11, 60, "Message",ExpressionUUID->"b7d94271-16f1-6346-b579-21279019eafb"], +Cell[252806, 6792, 506, 11, 60, "Message",ExpressionUUID->"bfaea4b0-a812-1847-9911-9291b70d2c8f"], +Cell[253315, 6805, 456, 10, 26, "Message",ExpressionUUID->"07354318-4dcc-6049-94e1-9227bd3406fc"], +Cell[253774, 6817, 41581, 727, 235, "Output",ExpressionUUID->"4fedf89c-a1d1-0f4a-bf53-44f2e928d059"] +}, Open ]], +Cell[295370, 7547, 2453, 69, 158, "Input",ExpressionUUID->"2d5a8299-5376-9747-8056-2bd9764114a1"], +Cell[297826, 7618, 209, 5, 42, "Input",ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-0ac982b58a3a"], +Cell[CellGroupData[{ +Cell[298060, 7627, 217, 7, 48, "Input",ExpressionUUID->"650e43f8-1352-de46-8137-52adca93b0cf"], +Cell[298280, 7636, 170, 3, 32, "Output",ExpressionUUID->"ced270d8-1772-ff41-a012-a661d8496312"] +}, Open ]], +Cell[CellGroupData[{ +Cell[298487, 7644, 1814, 53, 183, "Input",ExpressionUUID->"9ad75b45-8f6d-114b-80bd-d2b12a49fd20"], +Cell[300304, 7699, 506, 11, 60, "Message",ExpressionUUID->"82d24bea-da89-924f-8c72-34dd3938ca31"], +Cell[300813, 7712, 512, 11, 60, "Message",ExpressionUUID->"dec01940-92d8-ec46-9a19-7eeb83f307cb"], +Cell[301328, 7725, 509, 11, 60, "Message",ExpressionUUID->"b8576457-d231-bd44-9899-a0c0bb16b9e8"], +Cell[301840, 7738, 456, 10, 26, "Message",ExpressionUUID->"8bc3094a-336c-7a48-a7ed-1449be3156c0"], +Cell[302299, 7750, 22336, 412, 233, "Output",ExpressionUUID->"8cd361e0-0597-af48-9664-8ef179548a96"] +}, Open ]], +Cell[CellGroupData[{ +Cell[324672, 8167, 1616, 48, 70, "Input",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], +Cell[326291, 8217, 584, 12, 70, "Message",ExpressionUUID->"6b02dcd6-679e-e045-823b-19e8112735bb"], +Cell[326878, 8231, 588, 12, 70, "Message",ExpressionUUID->"1777b2e8-4814-3b40-9d26-e365522e2fa7"], +Cell[327469, 8245, 591, 12, 70, "Message",ExpressionUUID->"343e800a-6390-7b48-892a-7785bb4151c8"], +Cell[328063, 8259, 456, 10, 70, "Message",ExpressionUUID->"30a8c837-a97a-f04a-b90a-1e6b32a15ee9"], +Cell[328522, 8271, 173, 3, 70, "Output",ExpressionUUID->"ae05a7c3-f5d6-d640-8f8e-efe8f63ceb63"] +}, Open ]], +Cell[CellGroupData[{ +Cell[328732, 8279, 2274, 65, 70, "Input",ExpressionUUID->"1d118f77-7d68-dd41-b0af-09454f88e7f1"], +Cell[331009, 8346, 566, 12, 70, "Message",ExpressionUUID->"089dc3ff-480d-db4f-bbed-05630517df59"], +Cell[331578, 8360, 569, 12, 70, "Message",ExpressionUUID->"6e93a9b9-9460-8649-881d-48f37a709a1b"], +Cell[332150, 8374, 572, 12, 70, "Message",ExpressionUUID->"1ee8858a-971e-d34f-bafe-57ab88be1238"], +Cell[332725, 8388, 458, 10, 70, "Message",ExpressionUUID->"96f8e027-4313-4f4f-a21d-2291fe960276"], +Cell[333186, 8400, 171, 3, 70, "Output",ExpressionUUID->"53e3f7cd-1b3e-7343-931d-6e137013b0b0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[333394, 8408, 2221, 64, 70, "Input",ExpressionUUID->"c8039063-5f4d-134a-b6ba-e19335f7a9f6"], +Cell[335618, 8474, 564, 12, 70, "Message",ExpressionUUID->"2abeeb06-100d-8a4f-bcb1-ddb8c833ff54"], +Cell[336185, 8488, 567, 12, 70, "Message",ExpressionUUID->"7e411bd4-b3ce-e244-9ce0-8d1f78e8cd14"], +Cell[336755, 8502, 570, 12, 70, "Message",ExpressionUUID->"1eef1d19-4a0f-cd45-ac5f-c8b603cf3443"], +Cell[337328, 8516, 456, 10, 70, "Message",ExpressionUUID->"6022a732-4a2e-1544-a8b7-891b74c71e8b"], +Cell[337787, 8528, 173, 3, 70, "Output",ExpressionUUID->"3c53d31a-b5c8-d04c-a31f-fccb4feaa955"] +}, Open ]], +Cell[CellGroupData[{ +Cell[337997, 8536, 2223, 64, 70, "Input",ExpressionUUID->"a474307a-af78-3040-90ec-fb8d284b16bb"], +Cell[340223, 8602, 566, 12, 70, "Message",ExpressionUUID->"419d88aa-08de-a042-b43b-49810fba72bb"], +Cell[340792, 8616, 569, 12, 70, "Message",ExpressionUUID->"4a9a6268-a319-d748-9834-40ccb49d2b51"], +Cell[341364, 8630, 570, 12, 70, "Message",ExpressionUUID->"575d1045-9e4b-4643-b969-4ea2653f65d7"], +Cell[341937, 8644, 458, 10, 70, "Message",ExpressionUUID->"0c807644-74de-9c49-acac-c7123cbacadc"], +Cell[342398, 8656, 170, 3, 70, "Output",ExpressionUUID->"40f79c92-c788-c843-8a8c-07266b265dee"] +}, Open ]], +Cell[CellGroupData[{ +Cell[342605, 8664, 213, 6, 70, "Input",ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-f67bfdbd9bc7"], +Cell[342821, 8672, 171, 3, 70, "Output",ExpressionUUID->"5f3fc6c2-7014-7c43-bf96-8a336bebf769"] +}, Open ]], +Cell[343007, 8678, 244, 5, 70, "Input",ExpressionUUID->"d104d373-080a-854b-92ff-e87abbd4c41c"], +Cell[CellGroupData[{ +Cell[343276, 8687, 558, 19, 70, "Input",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], +Cell[343837, 8708, 173, 3, 70, "Output",ExpressionUUID->"c9ac712d-c12f-0747-84df-4fbc596a4bc5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[344047, 8716, 170, 5, 70, "Input",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], +Cell[344220, 8723, 171, 3, 70, "Output",ExpressionUUID->"265915a4-bf42-cc4a-850a-ff4e02169aa3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[344428, 8731, 181, 5, 70, "Input",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], +Cell[344612, 8738, 173, 3, 70, "Output",ExpressionUUID->"31530b6e-e89a-9145-8021-0dc6b1c7eda5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[344822, 8746, 6055, 185, 70, "Input",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], +Cell[350880, 8933, 175, 3, 70, "Output",ExpressionUUID->"498f3df6-21c9-ce42-acfb-0b180bf5016e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[351092, 8941, 368, 9, 70, "Input",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], +Cell[351463, 8952, 172, 3, 70, "Output",ExpressionUUID->"7c93e621-3415-c743-b6e4-6e9478aa49a4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[351672, 8960, 6122, 187, 70, "Input",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], +Cell[357797, 9149, 173, 3, 70, "Output",ExpressionUUID->"ac3c9970-0aac-ba4f-878d-3a3d1e5e2e3e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[358007, 9157, 368, 9, 70, "Input",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], +Cell[358378, 9168, 170, 3, 70, "Output",ExpressionUUID->"d74ba3c3-6f35-614a-92df-d33bcc5e630d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[358585, 9176, 2663, 88, 70, "Input",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], +Cell[361251, 9266, 171, 3, 70, "Output",ExpressionUUID->"33da748c-8c98-4649-9b81-8e00dd5f5d44"] +}, Open ]], +Cell[CellGroupData[{ +Cell[361459, 9274, 2603, 85, 70, "Input",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], +Cell[364065, 9361, 171, 3, 70, "Output",ExpressionUUID->"a300919b-1d52-ed46-bc06-5e86812c0bf8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364273, 9369, 3712, 118, 70, "Input",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], +Cell[367988, 9489, 170, 3, 70, "Output",ExpressionUUID->"45caa3aa-b655-b94b-bc88-ae750a9e28b8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[368195, 9497, 2052, 59, 70, "Input",ExpressionUUID->"486d514f-ec65-1e4e-b780-7e9487f745c3"], +Cell[370250, 9558, 573, 12, 70, "Message",ExpressionUUID->"fdac5db3-60d6-7a42-93b8-a74d8fc5d39e"], +Cell[370826, 9572, 577, 12, 70, "Message",ExpressionUUID->"46e50c50-b3b4-9847-b413-3bf52122b53e"], +Cell[371406, 9586, 580, 12, 70, "Message",ExpressionUUID->"5df9105e-cc71-b049-a285-30acff0c246a"], +Cell[371989, 9600, 456, 10, 70, "Message",ExpressionUUID->"84079c6c-500c-0643-b357-e1da142371e6"], +Cell[372448, 9612, 170, 3, 70, "Output",ExpressionUUID->"8303ac5a-d080-3741-a2d8-b7ff63ccb029"] +}, Open ]], +Cell[CellGroupData[{ +Cell[372655, 9620, 2054, 59, 70, "Input",ExpressionUUID->"c7144ce5-8356-d548-8854-18c538c3321c"], +Cell[374712, 9681, 573, 12, 70, "Message",ExpressionUUID->"65ad7cc5-5634-7d43-8ec3-48fd3e044014"], +Cell[375288, 9695, 577, 12, 70, "Message",ExpressionUUID->"c7632c59-b44f-2c47-aaf4-873ba9758677"], +Cell[375868, 9709, 582, 12, 70, "Message",ExpressionUUID->"509e3117-7502-a34e-9f96-72b696066a2b"], +Cell[376453, 9723, 456, 10, 70, "Message",ExpressionUUID->"0e1f3a7a-70f7-bc47-9700-06e687643558"], +Cell[376912, 9735, 170, 3, 70, "Output",ExpressionUUID->"15bebbf4-baae-a44a-84b5-59b3a1f444c3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[377119, 9743, 2028, 55, 70, "Input",ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-a45df2eabf0c"], +Cell[379150, 9800, 20422, 382, 70, "Output",ExpressionUUID->"d9c156b6-0b42-724f-8e7d-964560057978"] +}, Open ]], +Cell[CellGroupData[{ +Cell[399609, 10187, 2120, 60, 70, "Input",ExpressionUUID->"92d458c4-bfde-c447-a06c-70a15768b745"], +Cell[401732, 10249, 502, 11, 70, "Message",ExpressionUUID->"74b51561-a06a-7345-9196-225d76f7f21f"], +Cell[402237, 10262, 506, 11, 70, "Message",ExpressionUUID->"ee03248d-dd91-8b4e-835e-9c4a5f039c61"], +Cell[402746, 10275, 505, 11, 70, "Message",ExpressionUUID->"81d7736e-0167-fe4f-bd5c-40ffaca911e4"], +Cell[403254, 10288, 458, 10, 70, "Message",ExpressionUUID->"43062041-d596-b540-8a1c-36df0575e1f0"], +Cell[403715, 10300, 22288, 412, 70, "Output",ExpressionUUID->"4ce3b436-d895-8b48-899f-c7dec78bd5cd"] +}, Open ]], +Cell[426018, 10715, 209, 5, 70, "Input",ExpressionUUID->"e1c8585a-8b57-f841-82e1-8e8787fb2589"], +Cell[CellGroupData[{ +Cell[426252, 10724, 1616, 48, 70, "Input",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], +Cell[427871, 10774, 595, 12, 70, "Message",ExpressionUUID->"bf4d283e-fed2-af41-90e7-a9b6911d8baf"], +Cell[428469, 10788, 595, 12, 70, "Message",ExpressionUUID->"9f6ca4d5-4251-0341-9c65-a603c68721f6"], +Cell[429067, 10802, 599, 12, 70, "Message",ExpressionUUID->"108eeaac-8397-bf4f-90a4-e14dbe759ebf"], +Cell[429669, 10816, 456, 10, 70, "Message",ExpressionUUID->"1a2f2a3c-e511-b846-8a84-9fad6555a680"], +Cell[430128, 10828, 171, 3, 70, "Output",ExpressionUUID->"ca1793f9-9753-5e46-b385-c8dd36228fd1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[430336, 10836, 2248, 64, 70, "Input",ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-30286a178ca1"], +Cell[432587, 10902, 575, 12, 70, "Message",ExpressionUUID->"642a7168-3d33-6b4e-9213-0f67bfd30f54"], +Cell[433165, 10916, 577, 12, 70, "Message",ExpressionUUID->"315984db-f497-2940-bd36-1d820037ad00"], +Cell[433745, 10930, 582, 12, 70, "Message",ExpressionUUID->"2698bbc8-6aa1-c54b-9b5c-3f71a7eb3345"], +Cell[434330, 10944, 458, 10, 70, "Message",ExpressionUUID->"7f632647-49b8-a945-8682-8e4f7ae37cda"], +Cell[434791, 10956, 172, 3, 70, "Output",ExpressionUUID->"0f5bf0f0-4e96-2c4d-9011-c6ae92f19c83"] +}, Open ]], +Cell[CellGroupData[{ +Cell[435000, 10964, 2215, 63, 70, "Input",ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], +Cell[437218, 11029, 575, 12, 70, "Message",ExpressionUUID->"704bc64b-0e53-8146-9696-c0e9ea00ec4d"], +Cell[437796, 11043, 577, 12, 70, "Message",ExpressionUUID->"68985ea1-064e-2c42-b957-ce16147f9e13"], +Cell[438376, 11057, 582, 12, 70, "Message",ExpressionUUID->"48a38db6-6d68-6140-9cb6-9dfc686aa062"], +Cell[438961, 11071, 458, 10, 70, "Message",ExpressionUUID->"ac6e6758-d573-7947-b88c-92831bb5be70"], +Cell[439422, 11083, 170, 3, 70, "Output",ExpressionUUID->"4d1b179c-7677-2745-8308-576346b6bf0b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[439629, 11091, 2223, 64, 70, "Input",ExpressionUUID->"935796a8-6280-564a-b4d0-fc6fb6cd41f8"], +Cell[441855, 11157, 573, 12, 70, "Message",ExpressionUUID->"0a9cfe95-3a6f-384b-8656-bdf67695e5d7"], +Cell[442431, 11171, 577, 12, 70, "Message",ExpressionUUID->"700ebedb-417e-8043-ab89-eb4672a7847d"], +Cell[443011, 11185, 580, 12, 70, "Message",ExpressionUUID->"599826a9-6d60-6843-9eef-e381cafa0758"], +Cell[443594, 11199, 456, 10, 70, "Message",ExpressionUUID->"d92d3772-b819-d145-8d96-f897b04ae4a7"], +Cell[444053, 11211, 173, 3, 70, "Output",ExpressionUUID->"98a57fa3-05ea-0d42-95b5-58c14727d753"] +}, Open ]], +Cell[CellGroupData[{ +Cell[444263, 11219, 213, 6, 70, "Input",ExpressionUUID->"ee52036b-90c5-e14a-aed9-684ff23ed035"], +Cell[444479, 11227, 173, 3, 70, "Output",ExpressionUUID->"ea5023c6-5364-074e-904d-43b5c1077635"] +}, Open ]], +Cell[444667, 11233, 247, 5, 70, "Input",ExpressionUUID->"c6d4a146-4cca-7e4e-b483-85227a6e6b51"], +Cell[CellGroupData[{ +Cell[444939, 11242, 558, 19, 70, "Input",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], +Cell[445500, 11263, 173, 3, 70, "Output",ExpressionUUID->"b967ea88-4a73-d84a-86f5-ad4ded7dfd59"] +}, Open ]], +Cell[CellGroupData[{ +Cell[445710, 11271, 170, 5, 70, "Input",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], +Cell[445883, 11278, 173, 3, 70, "Output",ExpressionUUID->"fd8ea80a-f1d4-be4f-9cfa-b37871c5703d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[446093, 11286, 181, 5, 70, "Input",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], +Cell[446277, 11293, 173, 3, 70, "Output",ExpressionUUID->"7d039035-dcf9-ec46-abdb-20c0c777b3ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[446487, 11301, 6055, 185, 70, "Input",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], +Cell[452545, 11488, 172, 3, 70, "Output",ExpressionUUID->"ec08a5f9-ba46-9147-9d7b-cc1decdb981f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[452754, 11496, 368, 9, 70, "Input",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], +Cell[453125, 11507, 172, 3, 70, "Output",ExpressionUUID->"71ad1ede-d77d-ee46-a908-e7b20c10ebe8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[453334, 11515, 6122, 187, 70, "Input",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], +Cell[459459, 11704, 173, 3, 70, "Output",ExpressionUUID->"819de60b-5785-6448-8fe2-0db5976d700d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[459669, 11712, 368, 9, 70, "Input",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], +Cell[460040, 11723, 170, 3, 70, "Output",ExpressionUUID->"8dd6a8d3-1dbb-0d4a-9edc-e78196c49a86"] +}, Open ]], +Cell[CellGroupData[{ +Cell[460247, 11731, 2663, 88, 70, "Input",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], +Cell[462913, 11821, 171, 3, 70, "Output",ExpressionUUID->"ae861452-cf77-f740-9f62-141306c9a07a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[463121, 11829, 2603, 85, 70, "Input",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], +Cell[465727, 11916, 173, 3, 70, "Output",ExpressionUUID->"253d4a43-9313-5444-b0f9-3aae32edd842"] +}, Open ]], +Cell[CellGroupData[{ +Cell[465937, 11924, 3712, 118, 70, "Input",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], +Cell[469652, 12044, 173, 3, 70, "Output",ExpressionUUID->"0c1e1373-3726-9c43-862b-62a8708f83a9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[469862, 12052, 2052, 59, 70, "Input",ExpressionUUID->"6b25ec99-ae49-ec4d-9652-65328572e509"], +Cell[471917, 12113, 568, 12, 70, "Message",ExpressionUUID->"d55599c5-2bb2-8f4a-a245-aa6d5998cb8f"], +Cell[472488, 12127, 573, 12, 70, "Message",ExpressionUUID->"bdcd3bac-beba-5242-b376-95b5ed40a02a"], +Cell[473064, 12141, 576, 12, 70, "Message",ExpressionUUID->"b91a3ff7-a025-fd4e-b11c-58fa6385068b"], +Cell[473643, 12155, 458, 10, 70, "Message",ExpressionUUID->"9e66d374-59c2-ce4b-b0d2-5a3813a10542"], +Cell[474104, 12167, 172, 3, 70, "Output",ExpressionUUID->"5742ee33-8e4b-444c-91b6-6d4c403c91e9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[474313, 12175, 2052, 59, 70, "Input",ExpressionUUID->"3e2baf62-fab9-eb41-8de7-aa229443ac14"], +Cell[476368, 12236, 568, 12, 70, "Message",ExpressionUUID->"49d9e2db-79aa-5b48-897e-3089c92c79b4"], +Cell[476939, 12250, 573, 12, 70, "Message",ExpressionUUID->"2361061c-25a8-4549-ba9e-397593d876d4"], +Cell[477515, 12264, 574, 12, 70, "Message",ExpressionUUID->"a2993171-fcd7-8742-bf17-921d87bded0b"], +Cell[478092, 12278, 458, 10, 70, "Message",ExpressionUUID->"c72ccd11-884d-074a-bf1c-ed71d6dc6298"], +Cell[478553, 12290, 172, 3, 70, "Output",ExpressionUUID->"9dfb51ec-f6bd-9540-91f7-9d4800c6c680"] +}, Open ]], +Cell[CellGroupData[{ +Cell[478762, 12298, 2028, 55, 70, "Input",ExpressionUUID->"725c3011-bda9-4c42-96ce-9a77a5dc787c"], +Cell[480793, 12355, 20375, 384, 70, "Output",ExpressionUUID->"e400bdb6-95ee-464e-9e4c-d5d7da48485f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[501205, 12744, 2118, 60, 70, "Input",ExpressionUUID->"1ea503b1-33a1-2744-a92d-2e1269faf5ed"], +Cell[503326, 12806, 501, 11, 70, "Message",ExpressionUUID->"1c59fae3-3f74-0144-b936-915cf372347d"], +Cell[503830, 12819, 503, 11, 70, "Message",ExpressionUUID->"c058b3d2-ecc0-7348-bdec-143a71e7f77c"], +Cell[504336, 12832, 506, 11, 70, "Message",ExpressionUUID->"049ee41e-a5fd-7e46-9ca5-37402fcadc74"], +Cell[504845, 12845, 458, 10, 70, "Message",ExpressionUUID->"5bf93938-89e6-8d49-a495-6173a8c36739"], +Cell[505306, 12857, 22161, 409, 70, "Output",ExpressionUUID->"0ea0f8f9-2a4b-804f-a2c8-287645f62313"] +}, Open ]], +Cell[527482, 13269, 209, 5, 70, "Input",ExpressionUUID->"b530b35f-2a32-0145-82a7-25a7a01bdd8f"], +Cell[CellGroupData[{ +Cell[527716, 13278, 1616, 48, 70, "Input",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], +Cell[529335, 13328, 590, 12, 70, "Message",ExpressionUUID->"cb4665e4-f252-8e4c-9d71-b694fbe7aa53"], +Cell[529928, 13342, 589, 12, 70, "Message",ExpressionUUID->"e67b353a-d4a9-454a-9cac-3e22ef8a4d4b"], +Cell[530520, 13356, 593, 12, 70, "Message",ExpressionUUID->"9dbc6a20-c95c-084e-b19f-b6bb6bd70d6b"], +Cell[531116, 13370, 456, 10, 70, "Message",ExpressionUUID->"f9b6cbc5-ab52-2741-b8bf-bf6796495def"], +Cell[531575, 13382, 170, 3, 70, "Output",ExpressionUUID->"1439e238-af89-2243-beb8-0a46e5e09115"] +}, Open ]], +Cell[CellGroupData[{ +Cell[531782, 13390, 2251, 64, 70, "Input",ExpressionUUID->"97b28b29-5d04-5c42-a0e8-93b70f20e7f6"], +Cell[534036, 13456, 568, 12, 70, "Message",ExpressionUUID->"033374a1-a008-6240-84e3-c1c7a7e65b75"], +Cell[534607, 13470, 573, 12, 70, "Message",ExpressionUUID->"88ab6d85-4789-7346-aeee-8e9a4b87248d"], +Cell[535183, 13484, 574, 12, 70, "Message",ExpressionUUID->"051100a9-488b-4d4d-83c7-cdc54aef13e0"], +Cell[535760, 13498, 458, 10, 70, "Message",ExpressionUUID->"a33cd954-f1de-bf45-8642-effd7c3e029f"], +Cell[536221, 13510, 173, 3, 70, "Output",ExpressionUUID->"48a4017b-948a-6a48-8b10-d81adf4b9038"] +}, Open ]], +Cell[CellGroupData[{ +Cell[536431, 13518, 2221, 64, 70, "Input",ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-cdce838d9efe"], +Cell[538655, 13584, 570, 12, 70, "Message",ExpressionUUID->"d8156b3f-4442-9146-9c48-cb34fdfb79d3"], +Cell[539228, 13598, 573, 12, 70, "Message",ExpressionUUID->"60007a19-2492-cd46-a203-7c2bbbc6591f"], +Cell[539804, 13612, 573, 12, 70, "Message",ExpressionUUID->"8754c4a5-0539-0247-94a5-8a81a9ae7e49"], +Cell[540380, 13626, 458, 10, 70, "Message",ExpressionUUID->"3af4c7f8-fe90-6646-8e3b-058500b348e9"], +Cell[540841, 13638, 171, 3, 70, "Output",ExpressionUUID->"46f7d520-9bcf-9d48-ae7c-54e91ca06983"] +}, Open ]], +Cell[CellGroupData[{ +Cell[541049, 13646, 2221, 64, 70, "Input",ExpressionUUID->"0794d062-69d5-0a45-936e-533b19d33de6"], +Cell[543273, 13712, 570, 12, 70, "Message",ExpressionUUID->"ba4db233-5a2e-4340-98d0-df918a11e2c7"], +Cell[543846, 13726, 573, 12, 70, "Message",ExpressionUUID->"444b24ca-68bb-7144-a655-403eefa4900f"], +Cell[544422, 13740, 574, 12, 70, "Message",ExpressionUUID->"f2dc2286-68d4-d74f-83ea-dd0f591156a8"], +Cell[544999, 13754, 458, 10, 70, "Message",ExpressionUUID->"4974a702-c238-6d47-b5b2-a3c25cacf142"], +Cell[545460, 13766, 173, 3, 70, "Output",ExpressionUUID->"d46043b7-707b-4740-ab89-0a2b96978cff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[545670, 13774, 215, 6, 70, "Input",ExpressionUUID->"95c56266-e4d3-624e-89c1-cedeeeb0247a"], +Cell[545888, 13782, 172, 3, 70, "Output",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/146-94_h_Pu240_702-703/h_146-94_Pu240_702-703_pr_Qw1.nb b/templates/P240_2-51_YakuninDA/146-94_h_Pu240_702-703/h_146-94_Pu240_702-703_pr_Qw1.nb new file mode 100755 index 0000000..bfabd69 --- /dev/null +++ b/templates/P240_2-51_YakuninDA/146-94_h_Pu240_702-703/h_146-94_Pu240_702-703_pr_Qw1.nb @@ -0,0 +1,15054 @@ +(* 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[ 623898, 15046] +NotebookOptionsPosition[ 584236, 14416] +NotebookOutlinePosition[ 584690, 14434] +CellTagsIndexPosition[ 584647, 14431] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "3.0056"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.9920925094547043`*^9, 3.992092603972748*^9}, { + 3.99209277866609*^9, 3.992092956660898*^9}, {3.9920929879335823`*^9, + 3.992093071903801*^9}, {3.9920931132016296`*^9, + 3.992093115787756*^9}},ExpressionUUID->"5256c3dc-46bd-c04c-b57d-\ +07819ec9de26"], + +Cell[BoxData["3.0051`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.9920924236975746`*^9, {3.992092517168955*^9, + 3.9920926155774384`*^9}, {3.992092795486683*^9, 3.9920929647336235`*^9}, { + 3.992092996301258*^9, 3.9920930199257812`*^9}, {3.9920930563804474`*^9, + 3.992093082514656*^9}}, + CellLabel-> + "Out[1549]=",ExpressionUUID->"5a1424b6-68bc-ff44-9606-f6d6d0a65c8f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.9920923210744896`*^9, 3.992092321332884*^9}}, + CellLabel-> + "In[1550]:=",ExpressionUUID->"6ef5c31e-2914-8b47-ab8b-a683ed9e9907"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.992092423865034*^9, {3.9920925172234726`*^9, + 3.9920926156103096`*^9}, {3.9920927955256996`*^9, + 3.9920929647669086`*^9}, {3.9920929963357506`*^9, + 3.9920930199606743`*^9}, {3.9920930564144154`*^9, 3.9920930825586586`*^9}}, + CellLabel-> + "Out[1550]=",ExpressionUUID->"00da21f7-5cf4-7d4d-8b9a-cc608086760c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "146"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.9920923255017357`*^9, 3.9920923262853394`*^9}}, + CellLabel-> + "In[1551]:=",ExpressionUUID->"ea9e9924-e753-714f-b93e-52df74513ad6"], + +Cell[BoxData["146"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.9920924238884373`*^9, {3.9920925172304897`*^9, + 3.992092615631912*^9}, {3.9920927955507774`*^9, 3.992092964789009*^9}, { + 3.992092996365631*^9, 3.9920930199827785`*^9}, {3.9920930564344254`*^9, + 3.9920930825825768`*^9}}, + CellLabel-> + "Out[1551]=",ExpressionUUID->"c7c8914e-af46-9f43-8fed-b05b19490ffa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[1552]:=",ExpressionUUID->"842bfd33-ca7c-8241-8698-14baa5e334b8"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.9920924238954353`*^9, {3.9920925172532406`*^9, + 3.9920926156550407`*^9}, {3.9920927955573063`*^9, 3.992092964816601*^9}, { + 3.9920929963885365`*^9, 3.9920930200069942`*^9}, {3.992093056453413*^9, + 3.9920930826118507`*^9}}, + CellLabel-> + "Out[1552]=",ExpressionUUID->"7f9470a6-edfb-2246-9505-2b53cf49db8b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[1553]:=",ExpressionUUID->"2c50735f-08fa-ea41-aaf7-9215719d5cd9"], + +Cell[BoxData["0.5467500000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.9920924239191437`*^9, {3.9920925172603703`*^9, + 3.992092615662058*^9}, {3.9920927955817127`*^9, 3.9920929648444843`*^9}, { + 3.9920929963955345`*^9, 3.992093020037792*^9}, {3.9920930564614754`*^9, + 3.9920930826384926`*^9}}, + CellLabel-> + "Out[1553]=",ExpressionUUID->"aa4661a1-41cb-e145-ba8b-c063789a8f53"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[1554]:=",ExpressionUUID->"0c06f379-4a36-ea42-9168-5b07ba82713e"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9920924239261475`*^9, {3.9920925172823544`*^9, + 3.9920926156868935`*^9}, {3.9920927955889683`*^9, 3.992092964851986*^9}, { + 3.9920929964025364`*^9, 3.9920930200579166`*^9}, {3.9920930564844856`*^9, + 3.9920930826454887`*^9}}, + CellLabel-> + "Out[1554]=",ExpressionUUID->"27362904-2d73-3d4e-85d6-fb0809cb2fb7"] +}, 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[1555]:=",ExpressionUUID->"95cb2633-0a57-2d48-b2a2-7f2c0568680d"], + +Cell[BoxData["6.108139416678866`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.9920924239531574`*^9, {3.9920925172885056`*^9, + 3.992092615694437*^9}, {3.992092795615612*^9, 3.9920929648785057`*^9}, { + 3.99209299642354*^9, 3.992093020080536*^9}, {3.992093056491602*^9, + 3.9920930826684914`*^9}}, + CellLabel-> + "Out[1555]=",ExpressionUUID->"f2a91c26-843f-ce46-a1df-7ba6d151a405"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[1556]:=",ExpressionUUID->"37d9860f-ff27-b94a-a6d0-18ff866e73b3"], + +Cell[BoxData["5.274329694780558`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.992092423960186*^9, {3.9920925173151093`*^9, + 3.9920926157185707`*^9}, {3.9920927956217175`*^9, 3.992092964906679*^9}, { + 3.9920929964335346`*^9, 3.9920930200885353`*^9}, {3.9920930565104904`*^9, + 3.992093082689234*^9}}, + CellLabel-> + "Out[1556]=",ExpressionUUID->"7577f24b-b586-fa42-b93c-98cc66d5dff2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.776889591781461"}]], "Input", + CellChangeTimes->{3.991799283179735*^9, 3.9920923337072887`*^9}, + CellLabel-> + "In[1557]:=",ExpressionUUID->"1cb5aa11-2809-f146-aa3c-cde4b744a9ce"], + +Cell[BoxData["0.776889591781461`"], "Output", + CellChangeTimes->{ + 3.992092423990343*^9, {3.9920925173221264`*^9, 3.9920926157241497`*^9}, { + 3.9920927956457157`*^9, 3.992092964933693*^9}, {3.992092996453539*^9, + 3.992093020113638*^9}, {3.992093056528507*^9, 3.992093082697235*^9}}, + CellLabel-> + "Out[1557]=",ExpressionUUID->"054a24d8-9fce-234d-a5bf-62361ac142a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.581407431720797"}]], "Input", + CellChangeTimes->{3.991799280663351*^9, 3.9920923380503464`*^9}, + CellLabel-> + "In[1558]:=",ExpressionUUID->"33ffab53-47c9-ea4e-9239-bb988697ac40"], + +Cell[BoxData["0.581407431720797`"], "Output", + CellChangeTimes->{ + 3.992092424013666*^9, {3.9920925173471737`*^9, 3.992092615731226*^9}, { + 3.992092795652767*^9, 3.9920929649666996`*^9}, {3.9920929964595814`*^9, + 3.9920930201207066`*^9}, {3.992093056549488*^9, 3.9920930827184944`*^9}}, + CellLabel-> + "Out[1558]=",ExpressionUUID->"f359917e-5c82-914d-a8a3-286b46de5451"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[1559]:=",ExpressionUUID->"f0b21b56-52cb-d54d-9f21-77587afac62b"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.992092424022188*^9, {3.9920925173531837`*^9, + 3.9920926157588634`*^9}, {3.9920927956776123`*^9, + 3.9920929649736977`*^9}, {3.9920929964887676`*^9, + 3.9920930201447144`*^9}, {3.9920930565736217`*^9, 3.9920930827473965`*^9}}, + CellLabel-> + "Out[1559]=",ExpressionUUID->"947a15b1-8389-3f47-8303-81fea71b7d68"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[1560]:=",ExpressionUUID->"9545c29a-d8e8-6f47-9b2e-e45baeb372fb"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.99209242405435*^9, {3.9920925173801575`*^9, + 3.9920926157839546`*^9}, {3.992092795683565*^9, 3.992092964980709*^9}, { + 3.992092996494766*^9, 3.9920930201517143`*^9}, {3.992093056593773*^9, + 3.992093082771408*^9}}, + CellLabel-> + "Out[1560]=",ExpressionUUID->"1fa998ae-1d6a-fd40-8e02-18565d8d934d"] +}, 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[1561]:=",ExpressionUUID->"59312493-cd1f-ab45-9ead-b26096fb7c6c"], + +Cell[BoxData["2.0397870167233085`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.9920924240852013`*^9, {3.992092517402384*^9, + 3.992092615814083*^9}, {3.9920927957096004`*^9, 3.9920929650027065`*^9}, { + 3.992092996519766*^9, 3.992093020174679*^9}, {3.99209305660058*^9, + 3.992093082802458*^9}}, + CellLabel-> + "Out[1561]=",ExpressionUUID->"3295361e-0707-8042-ab8a-6f91a81bc38b"] +}, 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[1562]:=",ExpressionUUID->"ba0ce5db-1cd8-954a-97f6-db7ff6252e51"], + +Cell[BoxData["1.6965844703854613`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.992092424111204*^9, {3.9920925174282036`*^9, + 3.9920926158210907`*^9}, {3.9920927957326183`*^9, + 3.9920929650108223`*^9}, {3.9920929965277767`*^9, + 3.9920930201817207`*^9}, {3.9920930566225815`*^9, 3.9920930828307343`*^9}}, + CellLabel-> + "Out[1562]=",ExpressionUUID->"ed223a56-fb9b-be4e-9652-13bb489b51d3"] +}, 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[1563]:=",ExpressionUUID->"237b1892-dfd9-494d-82dc-b4c1dc4fabc0"], + +Cell[BoxData["0.4525799206818347`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.992092424119274*^9, {3.9920925174510517`*^9, + 3.992092615844631*^9}, {3.992092795759413*^9, 3.9920929650365314`*^9}, { + 3.992092996561762*^9, 3.992093020204855*^9}, {3.99209305664777*^9, + 3.9920930828387337`*^9}}, + CellLabel-> + "Out[1563]=",ExpressionUUID->"8ec7c614-053a-9844-aacf-fb5a29342ac2"] +}, 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[1564]:=",ExpressionUUID->"f1142c40-4517-8e4f-9abb-3000f7c01c81"], + +Cell[BoxData[ + RowBox[{"-", "0.14627901466132107`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.992092424141165*^9, {3.9920925174730873`*^9, + 3.9920926158522587`*^9}, {3.9920927957819347`*^9, + 3.9920929650445366`*^9}, {3.9920929965907135`*^9, 3.992093020211878*^9}, { + 3.9920930566693344`*^9, 3.992093082863735*^9}}, + CellLabel-> + "Out[1564]=",ExpressionUUID->"ab8479e0-9d2b-d046-acfa-2d5c38fdf9f7"] +}, 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[1565]:=",ExpressionUUID->"b031de1c-3d67-3947-8a7c-4e459656d7f0"], + +Cell[BoxData[ + RowBox[{"-", "0.3067897746750185`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.992092424148676*^9, {3.9920925174800377`*^9, + 3.9920926158790665`*^9}, {3.9920927957879353`*^9, 3.992092965067564*^9}, { + 3.9920929966195316`*^9, 3.992093020237875*^9}, {3.992093056689333*^9, + 3.992093082887562*^9}}, + CellLabel-> + "Out[1565]=",ExpressionUUID->"c71eb28e-80a7-8446-a1af-33a8ee021a21"] +}, 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[1566]:=",ExpressionUUID->"64b92a29-db48-7e4b-ae84-94a841cc543d"], + +Cell[BoxData["0.5588619635695797`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9920924241740017`*^9, {3.992092517506195*^9, + 3.992092615886593*^9}, {3.992092795809948*^9, 3.9920929650908546`*^9}, { + 3.992092996646963*^9, 3.9920930202454033`*^9}, {3.9920930566973324`*^9, + 3.9920930829164524`*^9}}, + CellLabel-> + "Out[1566]=",ExpressionUUID->"d71c54cb-3c6a-604e-89ff-97dccf816cf1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[1567]:=",ExpressionUUID->"e703af79-c3ef-0b45-a6ba-7aed9870b7be"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9920924241809826`*^9, {3.9920925175332184`*^9, + 3.9920926159109*^9}, {3.992092795831953*^9, 3.9920929651138535`*^9}, { + 3.992092996668474*^9, 3.992093020272644*^9}, {3.992093056717905*^9, + 3.9920930829486275`*^9}}, + CellLabel-> + "Out[1567]=",ExpressionUUID->"1d96405e-fc53-4640-a49f-971d487fbfdd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "In[1568]:=",ExpressionUUID->"6d35dcad-da6b-6d44-96b4-23193b77159e"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.992092424206465*^9, {3.9920925175399876`*^9, + 3.9920926159344234`*^9}, {3.992092795838951*^9, 3.9920929651357594`*^9}, { + 3.9920929966934986`*^9, 3.99209302029665*^9}, {3.99209305672542*^9, + 3.9920930829716263`*^9}}, + CellLabel-> + "Out[1568]=",ExpressionUUID->"993425a2-2412-5841-9f43-96e917f923d2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel-> + "In[1569]:=",ExpressionUUID->"d78e7799-db72-7b45-9fea-42eb15fabcda"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.992092424234129*^9, {3.992092517566017*^9, + 3.9920926159586544`*^9}, {3.9920927958609962`*^9, + 3.9920929651594734`*^9}, {3.992092996718672*^9, 3.992093020305662*^9}, { + 3.9920930567515335`*^9, 3.992093082996649*^9}}, + CellLabel-> + "Out[1569]=",ExpressionUUID->"33083af8-f100-1f40-bbf9-001c1c2781ae"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[1570]:=",ExpressionUUID->"0ea5901c-0a02-8d40-9d99-d34ba37deae0"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.992092424266348*^9, {3.992092517574074*^9, + 3.992092615965214*^9}, {3.992092795889517*^9, 3.9920929651855907`*^9}, { + 3.992092996726671*^9, 3.9920930203267136`*^9}, {3.992093056776457*^9, + 3.992093083021673*^9}}, + CellLabel-> + "Out[1570]=",ExpressionUUID->"d44a62d1-5d5d-754f-befd-8adf03234b63"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[1571]:=",ExpressionUUID->"1834d945-796c-5f4e-8cd4-7f50cd0fcd45"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.992092424273369*^9, {3.9920925176013985`*^9, + 3.992092615998451*^9}, {3.992092795897524*^9, 3.99209296519359*^9}, { + 3.992092996750679*^9, 3.9920930203537235`*^9}, {3.992093056799759*^9, + 3.992093083046667*^9}}, + CellLabel-> + "Out[1571]=",ExpressionUUID->"7f02729a-b0e2-f24c-8cc3-4a3829acd7f2"] +}, 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.992092352631197*^9}, + CellLabel-> + "In[1572]:=",ExpressionUUID->"75fe92ad-cb8f-e14d-a68d-90efdd6e7ddb"], + +Cell[BoxData["64"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.992092424299999*^9, {3.992092517624138*^9, + 3.9920926160050697`*^9}, {3.992092795920538*^9, 3.992092965218601*^9}, { + 3.992092996757696*^9, 3.992093020374735*^9}, {3.9920930568097687`*^9, + 3.992093083054676*^9}}, + CellLabel-> + "Out[1572]=",ExpressionUUID->"a6798b6c-3b4a-e64a-8e43-0718043d0ab7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, 3.9920923570474358`*^9}, + CellLabel-> + "In[1573]:=",ExpressionUUID->"22d999ad-3cfa-8848-81c0-51a24c9f1965"], + +Cell[BoxData["30"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.9920924243070126`*^9, {3.99209251763118*^9, + 3.992092616031456*^9}, {3.9920927959265404`*^9, 3.992092965225622*^9}, { + 3.9920929967776775`*^9, 3.992093020382736*^9}, {3.9920930568337727`*^9, + 3.992093083077688*^9}}, + CellLabel-> + "Out[1573]=",ExpressionUUID->"6b63cb2a-1ab8-e848-9ac7-ef6b0303b1d3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[1574]:=",ExpressionUUID->"9246503a-6d77-cf4a-9b3d-5598cf9e564f"], + +Cell[BoxData["94"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.992092424333185*^9, {3.992092517655279*^9, + 3.9920926160390186`*^9}, {3.992092795952633*^9, 3.992092965246483*^9}, { + 3.992092996803364*^9, 3.9920930204057865`*^9}, {3.992093056858282*^9, + 3.992093083085678*^9}}, + CellLabel-> + "Out[1574]=",ExpressionUUID->"b3e2d2b1-9e97-e648-850e-6955c1fa39eb"] +}, 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[1575]:=",ExpressionUUID->"11e5a2ac-5658-8f46-8fab-f1b936b21832"], + +Cell[BoxData["0.10872923345963276`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9920924243572235`*^9, {3.992092517667328*^9, + 3.9920926160661354`*^9}, {3.9920927959597607`*^9, 3.992092965273592*^9}, { + 3.992092996828369*^9, 3.9920930204138546`*^9}, {3.992093056866806*^9, + 3.992093083111456*^9}}, + CellLabel-> + "Out[1575]=",ExpressionUUID->"ba1e9911-781d-7346-9c59-3f35a827e860"] +}, 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[1576]:=",ExpressionUUID->"f542ca86-1bce-094b-8e45-86b1bded8fd5"], + +Cell[BoxData[ + RowBox[{"-", "2.565919556980472`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.9920924243811493`*^9, {3.9920925176941147`*^9, + 3.992092616073208*^9}, {3.9920927959847507`*^9, 3.9920929652985916`*^9}, { + 3.992092996836376*^9, 3.9920930204444256`*^9}, {3.9920930568897095`*^9, + 3.9920930831194363`*^9}}, + CellLabel-> + "Out[1576]=",ExpressionUUID->"66f4e7de-9bd2-514d-b94d-a333638680f0"] +}, 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[1577]:=",ExpressionUUID->"44f2e5ef-d3c6-654e-8b54-63ba3704d013"], + +Cell[BoxData["18.87992353524718`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.9920924244051456`*^9, {3.9920925177193546`*^9, + 3.992092616100073*^9}, {3.9920927959917564`*^9, 3.992092965308607*^9}, { + 3.9920929968593845`*^9, 3.992093020467409*^9}, {3.9920930569185905`*^9, + 3.992093083142683*^9}}, + CellLabel-> + "Out[1577]=",ExpressionUUID->"c79b9052-bd83-9a42-b34c-dda9039c3f1d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[1578]:=",ExpressionUUID->"22cbcbcc-5d2f-f24b-adb9-e9ed2a82e4a7"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.992092424412163*^9, {3.9920925177291546`*^9, + 3.992092616126276*^9}, {3.992092796015764*^9, 3.9920929653326607`*^9}, { + 3.9920929968708153`*^9, 3.992093020496603*^9}, {3.992093056938593*^9, + 3.9920930831506824`*^9}}, + CellLabel-> + "Out[1578]=",ExpressionUUID->"987c3b95-be0a-0d44-8de1-a549f82b1904"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.362"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, + 3.9920923643154297`*^9}, + CellLabel-> + "In[1579]:=",ExpressionUUID->"7891d3a5-426c-e74e-8c55-4736ff8e4ec7"], + +Cell[BoxData["1.362`"], "Output", + CellChangeTimes->{ + 3.9920924244360676`*^9, {3.992092517751152*^9, 3.9920926161342983`*^9}, { + 3.992092796022789*^9, 3.9920929653398457`*^9}, {3.9920929968917847`*^9, + 3.9920930205193768`*^9}, {3.992093056964657*^9, 3.9920930831736813`*^9}}, + CellLabel-> + "Out[1579]=",ExpressionUUID->"1a30e6ef-e961-5b42-917e-eede0b234ee7"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[1580]:=",ExpressionUUID->"61d29687-8c56-2a4b-9614-d10ed5aaf54a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.795"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, + 3.992092367948057*^9}, + CellLabel-> + "In[1581]:=",ExpressionUUID->"4e78657f-ed48-494d-a60d-8e987a136464"], + +Cell[BoxData["0.795`"], "Output", + CellChangeTimes->{ + 3.9920924244671745`*^9, {3.9920925177601814`*^9, 3.9920926161603107`*^9}, { + 3.9920927960489674`*^9, 3.9920929653658905`*^9}, {3.992092996901783*^9, + 3.9920930205454807`*^9}, {3.992093056990692*^9, 3.9920930831836834`*^9}}, + CellLabel-> + "Out[1581]=",ExpressionUUID->"ff729ef9-d0c0-a14e-bc89-3310f5642fd0"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[1582]:=",ExpressionUUID->"735e6dff-209c-0b43-a03a-2e5108126fbb"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv1", "=", "2.204"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, + 3.9920923714363804`*^9}, + CellLabel-> + "In[1583]:=",ExpressionUUID->"0ead2356-53ad-ab43-bb49-150de875cbfe"], + +Cell[BoxData["2.204`"], "Output", + CellChangeTimes->{ + 3.9920924244911957`*^9, {3.992092517786337*^9, 3.9920926161872025`*^9}, { + 3.992092796077503*^9, 3.9920929653893967`*^9}, {3.9920929969247704`*^9, + 3.992093020555729*^9}, {3.9920930570177917`*^9, 3.992093083208723*^9}}, + CellLabel-> + "Out[1583]=",ExpressionUUID->"e7481a02-635c-e748-8aa4-2a6d38598dbf"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[1584]:=",ExpressionUUID->"53595566-428d-5749-93a8-7ab842057ce0"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.070"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, 3.9920923750354595`*^9}, + CellLabel-> + "In[1585]:=",ExpressionUUID->"07eb17d4-e435-c84e-99a9-2e0d3712802b"], + +Cell[BoxData["1.07`"], "Output", + CellChangeTimes->{ + 3.9920924245191975`*^9, {3.9920925178121643`*^9, 3.9920926162159557`*^9}, { + 3.992092796104519*^9, 3.9920929654147778`*^9}, {3.9920929969487724`*^9, + 3.992093020581457*^9}, {3.9920930570267944`*^9, 3.992093083235735*^9}}, + CellLabel-> + "Out[1585]=",ExpressionUUID->"6d55a2af-8c03-f04b-a70e-7fae72a1d696"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[1586]:=",ExpressionUUID->"39883787-faf5-844a-8e17-ec4f2678b8bc"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"v2", "=", "0.938"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, 3.992092378674286*^9}, + CellLabel-> + "In[1587]:=",ExpressionUUID->"ee1e98cb-cd0e-3845-8e2f-3f0a95da65fd"], + +Cell[BoxData["0.938`"], "Output", + CellChangeTimes->{ + 3.9920924245433064`*^9, {3.9920925178372326`*^9, 3.9920926162431374`*^9}, { + 3.992092796130512*^9, 3.9920929654385223`*^9}, {3.992092996973612*^9, + 3.992093020606451*^9}, {3.992093057050337*^9, 3.9920930832457333`*^9}}, + CellLabel-> + "Out[1587]=",ExpressionUUID->"99c06ee8-5413-d148-92d3-6c005dc56018"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[1588]:=",ExpressionUUID->"2b5574f3-7e0b-da43-a362-1d766784b127"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.739"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, 3.9920923820487957`*^9}, + CellLabel-> + "In[1589]:=",ExpressionUUID->"e38a9edd-98c9-f44c-be99-5306614a8943"], + +Cell[BoxData["0.739`"], "Output", + CellChangeTimes->{ + 3.9920924245712776`*^9, {3.992092517868086*^9, 3.9920926162719116`*^9}, { + 3.992092796153553*^9, 3.9920929654498425`*^9}, {3.992092996998516*^9, + 3.992093020631668*^9}, {3.992093057076357*^9, 3.9920930832708435`*^9}}, + CellLabel-> + "Out[1589]=",ExpressionUUID->"aecb149f-8fdb-bf46-b486-1ae0a46c4609"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[1590]:=",ExpressionUUID->"46081969-98a3-934e-af61-f0985290f9fc"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv2", "=", "1.318"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, 3.992092385442354*^9}, + CellLabel-> + "In[1591]:=",ExpressionUUID->"791dee79-3432-e640-9061-34198725b26b"], + +Cell[BoxData["1.318`"], "Output", + CellChangeTimes->{ + 3.992092424600256*^9, {3.9920925178950996`*^9, 3.9920926162988586`*^9}, { + 3.9920927961825104`*^9, 3.992092965474863*^9}, {3.9920929970216312`*^9, + 3.9920930206588135`*^9}, {3.992093057101387*^9, 3.992093083297676*^9}}, + CellLabel-> + "Out[1591]=",ExpressionUUID->"1673a03e-3533-6745-92f5-7b0fcba83a3b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[1592]:=",ExpressionUUID->"da3ea10d-67f6-a546-85fb-400e95f31074"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn2", "=", "0.948"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, 3.992092389548071*^9}, + CellLabel-> + "In[1593]:=",ExpressionUUID->"5939ecba-e430-0644-8b32-1bab2e587a3d"], + +Cell[BoxData["0.948`"], "Output", + CellChangeTimes->{ + 3.9920924246278687`*^9, {3.9920925179191475`*^9, 3.9920926163079185`*^9}, { + 3.992092796204502*^9, 3.992092965499399*^9}, {3.9920929970485687`*^9, + 3.99209302068668*^9}, {3.99209305712838*^9, 3.992093083307684*^9}}, + CellLabel-> + "Out[1593]=",ExpressionUUID->"c53ec103-eac5-7f45-b143-9359c1a25a60"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[1594]:=",ExpressionUUID->"984b6947-7ff8-a64f-8815-c742469825de"], + +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[1595]:=",ExpressionUUID->"37cae3fd-2e80-8944-a3cb-365117dabd96"], + +Cell[BoxData["0.23853606466317218`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.9920924246760044`*^9, {3.9920925179775143`*^9, + 3.9920926163632183`*^9}, {3.992092796244623*^9, 3.9920929655537834`*^9}, { + 3.992092997089651*^9, 3.9920930207385387`*^9}, {3.992093057173485*^9, + 3.9920930833603687`*^9}}, + CellLabel-> + "Out[1595]=",ExpressionUUID->"09955eb7-3fea-9a4d-8574-0faed17a7462"] +}, 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[1596]:=",ExpressionUUID->"7a384ef9-4737-b544-8efc-b75be7ab83b6"], + +Cell[BoxData["1.1621646878049277`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9920924247221813`*^9, {3.992092518021105*^9, + 3.992092616403429*^9}, {3.9920927962806664`*^9, 3.9920929655928*^9}, { + 3.992092997126686*^9, 3.992093020775572*^9}, {3.99209305721846*^9, + 3.9920930834024544`*^9}}, + CellLabel-> + "Out[1596]=",ExpressionUUID->"3c4c7626-329e-9344-9ff5-b98e3c8cea96"] +}, 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[1597]:=",ExpressionUUID->"77d4556f-b89c-af4a-afbd-80ec60af808b"], + +Cell[BoxData[ + RowBox[{"-", "11.54880477030602`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.9920924247643623`*^9, {3.9920925180570297`*^9, + 3.992092616442415*^9}, {3.99209279631579*^9, 3.9920929656287766`*^9}, { + 3.9920929971636944`*^9, 3.992093020811638*^9}, {3.992093057256893*^9, + 3.9920930834404774`*^9}}, + CellLabel-> + "Out[1597]=",ExpressionUUID->"1fa4502f-ef6b-6643-ace8-76d8ed71afcc"] +}, 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[1598]:=",ExpressionUUID->"42a847c6-a605-2d4c-af85-4a9ee2240b11"], + +Cell[BoxData[ + RowBox[{"-", "19.77600599831311`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.9920924248567066`*^9, {3.9920925181035156`*^9, + 3.99209261648604*^9}, {3.9920927963639317`*^9, 3.9920929656716843`*^9}, { + 3.9920929972087193`*^9, 3.992093020858343*^9}, {3.9920930573004055`*^9, + 3.9920930834844856`*^9}}, + CellLabel-> + "Out[1598]=",ExpressionUUID->"eacf1398-bdfe-574f-8e90-9e9498074a08"] +}, 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[1599]:=",ExpressionUUID->"570fd72a-9833-2447-8fa8-da3c75f36b13"], + +Cell[BoxData[ + RowBox[{"-", "30.58059117523105`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.992092424909916*^9, {3.9920925181461334`*^9, + 3.9920926165285892`*^9}, {3.9920927964064484`*^9, + 3.9920929657136993`*^9}, {3.99209299725375*^9, 3.992093020905369*^9}, { + 3.9920930573464146`*^9, 3.992093083528572*^9}}, + CellLabel-> + "Out[1599]=",ExpressionUUID->"7e303240-9659-f649-96be-7f3f0466cf84"] +}, 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[1600]:=",ExpressionUUID->"6c79978d-34f1-ba49-8d0e-3bb55927a3b3"], + +Cell[BoxData[ + RowBox[{"-", "105.09350269202939`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.9920924249671135`*^9, {3.992092518197281*^9, + 3.992092616578083*^9}, {3.992092796458473*^9, 3.992092965763729*^9}, { + 3.992092997304306*^9, 3.9920930209554005`*^9}, {3.9920930573954678`*^9, + 3.992093083597994*^9}}, + CellLabel-> + "Out[1600]=",ExpressionUUID->"10b7d991-3796-3d49-9117-5a4af6b5c544"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[1601]:=",ExpressionUUID->"d37f8e73-99b3-584e-bb20-d8f61db89d74"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.992092424988882*^9, {3.9920925182220745`*^9, + 3.9920926166009426`*^9}, {3.9920927964825535`*^9, 3.992092965791752*^9}, { + 3.9920929973323193`*^9, 3.9920930209844055`*^9}, {3.9920930574224644`*^9, + 3.992093083606518*^9}}, + CellLabel-> + "Out[1601]=",ExpressionUUID->"83a13434-9207-5040-8415-704bd8a8d47c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[1602]:=",ExpressionUUID->"55438a76-6d5a-4b41-ab44-4d681d057718"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.9920924249969025`*^9, {3.9920925182290916`*^9, + 3.9920926166340294`*^9}, {3.9920927965035686`*^9, 3.992092965815735*^9}, { + 3.9920929973413277`*^9, 3.992093021007929*^9}, {3.9920930574444923`*^9, + 3.9920930836334076`*^9}}, + CellLabel-> + "Out[1602]=",ExpressionUUID->"f73c4867-c2aa-3240-933e-d007e91649df"] +}, 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[1603]:=",ExpressionUUID->"9da7fa25-315a-8e41-a2c9-a04aa0c13c11"], + +Cell[BoxData["50.79485995775785`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9920924250203743`*^9, {3.9920925182541103`*^9, + 3.992092616658106*^9}, {3.992092796530678*^9, 3.9920929658470783`*^9}, { + 3.9920929973643227`*^9, 3.992093021036476*^9}, {3.992093057470501*^9, + 3.992093083664322*^9}}, + CellLabel-> + "Out[1603]=",ExpressionUUID->"0e53f3ad-dbe6-0d48-9f66-335b36864a07"] +}, 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[1604]:=",ExpressionUUID->"e85fc4ad-8ec1-464f-89e3-49e0d346a262"], + +Cell[BoxData[ + RowBox[{"-", "39.807512260788336`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.9920924250287895`*^9, {3.992092518261135*^9, + 3.9920926166661263`*^9}, {3.992092796553686*^9, 3.992092965855587*^9}, { + 3.992092997385847*^9, 3.9920930210664825`*^9}, {3.9920930574785194`*^9, + 3.9920930836908455`*^9}}, + CellLabel-> + "Out[1604]=",ExpressionUUID->"3ae69439-711d-1e44-b6de-d7ec0124cc39"] +}, 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[1605]:=",ExpressionUUID->"284a170f-6ad7-944d-9566-d9aeb25ce38a"], + +Cell[BoxData["55.47457091262591`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9920924250533905`*^9, {3.9920925182831707`*^9, + 3.9920926166888447`*^9}, {3.992092796576765*^9, 3.992092965880436*^9}, { + 3.992092997412588*^9, 3.992093021074486*^9}, {3.992093057501501*^9, + 3.9920930837153435`*^9}}, + CellLabel-> + "Out[1605]=",ExpressionUUID->"21f472a0-5798-e945-ac88-06cef5d2720c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[1606]:=",ExpressionUUID->"3579c5dc-e108-644c-a1df-b4f9e6394520"], + +Cell[BoxData["0.4525799206818347`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.9920924250769863`*^9, {3.992092518290186*^9, + 3.9920926166969337`*^9}, {3.992092796599745*^9, 3.9920929659136524`*^9}, { + 3.9920929974355965`*^9, 3.992093021109741*^9}, {3.992093057526634*^9, + 3.992093083742384*^9}}, + CellLabel-> + "Out[1606]=",ExpressionUUID->"57de0e21-823c-824b-99ab-0fc536845a8d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[1607]:=",ExpressionUUID->"e803a065-2d64-7e43-b65d-ca9a239afb22"], + +Cell[BoxData[ + RowBox[{"-", "0.14627901466132107`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.992092425085251*^9, {3.9920925183123817`*^9, + 3.992092616720148*^9}, {3.992092796621517*^9, 3.9920929659406376`*^9}, { + 3.9920929974485817`*^9, 3.9920930211177807`*^9}, {3.9920930575493755`*^9, + 3.992093083766514*^9}}, + CellLabel-> + "Out[1607]=",ExpressionUUID->"9acb830b-483d-064d-ae62-bda220f61061"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[1608]:=",ExpressionUUID->"eac6de65-d0aa-2d49-ab37-02acdaf372b8"], + +Cell[BoxData[ + RowBox[{"-", "0.3067897746750185`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.992092425109461*^9, {3.9920925183188953`*^9, + 3.9920926167479305`*^9}, {3.992092796644417*^9, 3.9920929659693794`*^9}, { + 3.9920929974695816`*^9, 3.9920930211443024`*^9}, {3.9920930575783825`*^9, + 3.9920930837753963`*^9}}, + CellLabel-> + "Out[1608]=",ExpressionUUID->"4f1461e1-bc52-ad4b-bf59-0878c9352e0a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[1609]:=",ExpressionUUID->"0802e376-73b3-474d-9a52-d24afc4f5b3b"], + +Cell[BoxData["0.5588619635695797`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.992092425140007*^9, {3.9920925183433113`*^9, + 3.9920926167768955`*^9}, {3.99209279665242*^9, 3.992092965997463*^9}, { + 3.9920929974956074`*^9, 3.992093021153307*^9}, {3.9920930575873737`*^9, + 3.9920930837992496`*^9}}, + CellLabel-> + "Out[1609]=",ExpressionUUID->"27baef84-41cc-b340-abfd-c23d238e1afe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[1610]:=",ExpressionUUID->"6d4d8c6f-aafe-6b46-8b3a-e4df7abeefc3"], + +Cell[BoxData["2.0397870167233085`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.9920924251485367`*^9, {3.9920925183502617`*^9, + 3.992092616801161*^9}, {3.992092796675625*^9, 3.992092966020483*^9}, { + 3.992092997519621*^9, 3.9920930211783123`*^9}, {3.992093057612406*^9, + 3.992093083807356*^9}}, + CellLabel-> + "Out[1610]=",ExpressionUUID->"2fa87c1e-da8f-5743-a65b-fb8ec2f58ad4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[1611]:=",ExpressionUUID->"0ef9bb4e-2149-1741-a630-cc7d1715c59c"], + +Cell[BoxData["1.6965844703854613`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.9920924251731644`*^9, {3.992092518390991*^9, + 3.992092616809025*^9}, {3.992092796682625*^9, 3.9920929660454655`*^9}, { + 3.992092997546631*^9, 3.992093021206312*^9}, {3.9920930576354465`*^9, + 3.9920930838346233`*^9}}, + CellLabel-> + "Out[1611]=",ExpressionUUID->"94b19d43-3ce5-094e-878f-fde6d10e4b1a"] +}, 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[1612]:=",ExpressionUUID->"343bb669-b65f-ae4b-a918-6617de2b2357"], + +Cell[BoxData[ + RowBox[{"-", "21.092736551945727`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.9920924251813374`*^9, {3.9920925184000015`*^9, + 3.9920926168329926`*^9}, {3.992092796713726*^9, 3.9920929660694675`*^9}, { + 3.992092997555647*^9, 3.992093021215063*^9}, {3.9920930576579895`*^9, + 3.992093083860649*^9}}, + CellLabel-> + "Out[1612]=",ExpressionUUID->"15e520e0-2345-7b46-8d5d-06f00cf7401a"] +}, 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[1613]:=",ExpressionUUID->"93e7b389-b35e-a14c-a383-1acedc0bc14f"], + +Cell[BoxData[ + RowBox[{"-", "10.70666087171256`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.992092425203964*^9, {3.992092518424059*^9, + 3.992092616841175*^9}, {3.992092796739727*^9, 3.992092966097471*^9}, { + 3.992092997577677*^9, 3.9920930212386017`*^9}, {3.9920930576665287`*^9, + 3.992093083870682*^9}}, + CellLabel-> + "Out[1613]=",ExpressionUUID->"cff94058-5348-7244-9cd4-d7521f36a3f5"] +}, 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[1614]:=",ExpressionUUID->"d71623f3-dfc6-c343-b8df-4f0964dfb1f2"], + +Cell[BoxData["29.702123405812124`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.99209242521216*^9, {3.992092518431139*^9, + 3.992092616869858*^9}, {3.9920927967650204`*^9, 3.9920929661054707`*^9}, { + 3.99209299758585*^9, 3.992093021262615*^9}, {3.992093057691532*^9, + 3.992093083897995*^9}}, + CellLabel-> + "Out[1614]=",ExpressionUUID->"d56a1179-4a10-174e-a091-4827bc69344f"] +}, 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[1615]:=",ExpressionUUID->"867b2951-1628-5e4b-a109-b613cd2a3308"], + +Cell[BoxData[ + RowBox[{"-", "39.807512260788336`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.9920924252399826`*^9, {3.9920925184532547`*^9, + 3.9920926168974247`*^9}, {3.992092796772524*^9, 3.992092966127367*^9}, { + 3.992092997616436*^9, 3.992093021286625*^9}, {3.9920930577172832`*^9, + 3.9920930839314575`*^9}}, + CellLabel-> + "Out[1615]=",ExpressionUUID->"56b4773e-e7ed-674a-8652-0ccc4155fd26"] +}, 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[1616]:=",ExpressionUUID->"72acf5a7-b149-a94b-b539-b44d573bd23a"], + +Cell[BoxData["44.76791004091335`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.9920924252641563`*^9, {3.9920925184652615`*^9, + 3.992092616924053*^9}, {3.992092796799511*^9, 3.9920929661654415`*^9}, { + 3.992092997645611*^9, 3.9920930213107224`*^9}, {3.9920930577272816`*^9, + 3.9920930839574585`*^9}}, + CellLabel-> + "Out[1616]=",ExpressionUUID->"6505a06c-f7ed-4e48-b2b7-7fda8abda893"] +}, 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[1617]:=",ExpressionUUID->"089f3a19-af46-084e-90de-3ed7bb97fe71"], + +Cell[BoxData["0.017639944695631016`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.992092425272375*^9, {3.9920925184886303`*^9, + 3.9920926169319496`*^9}, {3.992092796807514*^9, 3.992092966188612*^9}, { + 3.9920929976776257`*^9, 3.99209302132073*^9}, {3.9920930577495594`*^9, + 3.9920930839824753`*^9}}, + CellLabel-> + "Out[1617]=",ExpressionUUID->"65ce86c1-6326-2644-be3e-7c065e1f00bb"] +}, 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[1618]:=",ExpressionUUID->"a600ed0f-d635-9d4c-aead-7fe5ea2b58a7"], + +Cell[BoxData["198.48274307805877`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.9920924252972507`*^9, {3.99209251849621*^9, + 3.9920926169568806`*^9}, {3.99209279683144*^9, 3.9920929661966133`*^9}, { + 3.992092997701681*^9, 3.992093021346737*^9}, {3.9920930577580833`*^9, + 3.9920930839966183`*^9}}, + CellLabel-> + "Out[1618]=",ExpressionUUID->"f926e429-91b0-244a-9de4-290a1ff124fc"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.719616319964285"}]], "Input", + CellChangeTimes->{3.9918488488187084`*^9, + 3.992093496395481*^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", "=", "0.751752569327218"}]], "Input", + CellChangeTimes->{3.9918488509977226`*^9, + 3.992093501426468*^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[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.131906"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.092238"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.135383"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.172743"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.117679"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.094793"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.075876"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.054298"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.038669"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.027641"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.018887"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.013232"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.008805"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.0061"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.003941"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.002757"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.001714"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.00123"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.000717"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.000544"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.000282"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.000244"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.000099"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.000114"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.000026"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.000032"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.000019"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.000013"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.000007"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.000005"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.000002"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.9920933460244923`*^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[CellGroupData[{ +Cell[576, 22, 435, 8, 22, "Input",ExpressionUUID->"5256c3dc-46bd-c04c-b57d-07819ec9de26"], +Cell[1014, 32, 391, 7, 25, "Output",ExpressionUUID->"5a1424b6-68bc-ff44-9606-f6d6d0a65c8f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1442, 44, 254, 5, 22, "Input",ExpressionUUID->"6ef5c31e-2914-8b47-ab8b-a683ed9e9907"], +Cell[1699, 51, 395, 7, 25, "Output",ExpressionUUID->"00da21f7-5cf4-7d4d-8b9a-cc608086760c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2131, 63, 231, 5, 22, "Input",ExpressionUUID->"ea9e9924-e753-714f-b93e-52df74513ad6"], +Cell[2365, 70, 391, 7, 25, "Output",ExpressionUUID->"c7c8914e-af46-9f43-8fed-b05b19490ffa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2793, 82, 181, 4, 22, "Input",ExpressionUUID->"842bfd33-ca7c-8241-8698-14baa5e334b8"], +Cell[2977, 88, 393, 7, 25, "Output",ExpressionUUID->"7f9470a6-edfb-2246-9505-2b53cf49db8b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3407, 100, 263, 8, 35, "Input",ExpressionUUID->"2c50735f-08fa-ea41-aaf7-9215719d5cd9"], +Cell[3673, 110, 409, 7, 25, "Output",ExpressionUUID->"aa4661a1-41cb-e145-ba8b-c063789a8f53"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4119, 122, 137, 3, 22, "Input",ExpressionUUID->"0c06f379-4a36-ea42-9168-5b07ba82713e"], +Cell[4259, 127, 397, 7, 25, "Output",ExpressionUUID->"27362904-2d73-3d4e-85d6-fb0809cb2fb7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4693, 139, 282, 7, 22, "Input",ExpressionUUID->"95cb2633-0a57-2d48-b2a2-7f2c0568680d"], +Cell[4978, 148, 401, 7, 25, "Output",ExpressionUUID->"f2a91c26-843f-ce46-a1df-7ba6d151a405"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5416, 160, 263, 8, 22, "Input",ExpressionUUID->"37d9860f-ff27-b94a-a6d0-18ff866e73b3"], +Cell[5682, 170, 406, 7, 25, "Output",ExpressionUUID->"7577f24b-b586-fa42-b93c-98cc66d5dff2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6125, 182, 216, 4, 22, "Input",ExpressionUUID->"1cb5aa11-2809-f146-aa3c-cde4b744a9ce"], +Cell[6344, 188, 372, 6, 25, "Output",ExpressionUUID->"054a24d8-9fce-234d-a5bf-62361ac142a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6753, 199, 216, 4, 22, "Input",ExpressionUUID->"33ffab53-47c9-ea4e-9239-bb988697ac40"], +Cell[6972, 205, 376, 6, 25, "Output",ExpressionUUID->"f359917e-5c82-914d-a8a3-286b46de5451"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7385, 216, 134, 3, 22, "Input",ExpressionUUID->"f0b21b56-52cb-d54d-9f21-77587afac62b"], +Cell[7522, 221, 393, 7, 25, "Output",ExpressionUUID->"947a15b1-8389-3f47-8303-81fea71b7d68"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7952, 233, 134, 3, 22, "Input",ExpressionUUID->"9545c29a-d8e8-6f47-9b2e-e45baeb372fb"], +Cell[8089, 238, 382, 7, 25, "Output",ExpressionUUID->"1fa998ae-1d6a-fd40-8e02-18565d8d934d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8508, 250, 562, 20, 65, "Input",ExpressionUUID->"59312493-cd1f-ab45-9ead-b26096fb7c6c"], +Cell[9073, 272, 400, 7, 36, "Output",ExpressionUUID->"3295361e-0707-8042-ab8a-6f91a81bc38b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9510, 284, 562, 20, 76, "Input",ExpressionUUID->"ba0ce5db-1cd8-954a-97f6-db7ff6252e51"], +Cell[10075, 306, 411, 7, 36, "Output",ExpressionUUID->"ed223a56-fb9b-be4e-9652-13bb489b51d3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[10523, 318, 1497, 49, 76, "Input",ExpressionUUID->"237b1892-dfd9-494d-82dc-b4c1dc4fabc0"], +Cell[12023, 369, 398, 7, 36, "Output",ExpressionUUID->"8ec7c614-053a-9844-aacf-fb5a29342ac2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[12458, 381, 1336, 45, 76, "Input",ExpressionUUID->"f1142c40-4517-8e4f-9abb-3000f7c01c81"], +Cell[13797, 428, 423, 8, 36, "Output",ExpressionUUID->"ab8479e0-9d2b-d046-acfa-2d5c38fdf9f7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14257, 441, 1336, 45, 76, "Input",ExpressionUUID->"b031de1c-3d67-3947-8a7c-4e459656d7f0"], +Cell[15596, 488, 420, 8, 36, "Output",ExpressionUUID->"c71eb28e-80a7-8446-a1af-33a8ee021a21"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16053, 501, 1497, 49, 76, "Input",ExpressionUUID->"64b92a29-db48-7e4b-ae84-94a841cc543d"], +Cell[17553, 552, 401, 7, 36, "Output",ExpressionUUID->"d71c54cb-3c6a-604e-89ff-97dccf816cf1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[17991, 564, 136, 3, 33, "Input",ExpressionUUID->"e703af79-c3ef-0b45-a6ba-7aed9870b7be"], +Cell[18130, 569, 383, 7, 36, "Output",ExpressionUUID->"1d96405e-fc53-4640-a49f-971d487fbfdd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18550, 581, 138, 3, 33, "Input",ExpressionUUID->"6d35dcad-da6b-6d44-96b4-23193b77159e"], +Cell[18691, 586, 387, 7, 36, "Output",ExpressionUUID->"993425a2-2412-5841-9f43-96e917f923d2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19115, 598, 139, 3, 33, "Input",ExpressionUUID->"d78e7799-db72-7b45-9fea-42eb15fabcda"], +Cell[19257, 603, 389, 7, 36, "Output",ExpressionUUID->"33083af8-f100-1f40-bbf9-001c1c2781ae"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19683, 615, 224, 5, 33, "Input",ExpressionUUID->"0ea5901c-0a02-8d40-9d99-d34ba37deae0"], +Cell[19910, 622, 398, 8, 36, "Output",ExpressionUUID->"d44a62d1-5d5d-754f-befd-8adf03234b63"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20345, 635, 139, 3, 33, "Input",ExpressionUUID->"1834d945-796c-5f4e-8cd4-7f50cd0fcd45"], +Cell[20487, 640, 384, 7, 36, "Output",ExpressionUUID->"7f02729a-b0e2-f24c-8cc3-4a3829acd7f2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20908, 652, 303, 6, 33, "Input",ExpressionUUID->"75fe92ad-cb8f-e14d-a68d-90efdd6e7ddb"], +Cell[21214, 660, 382, 7, 36, "Output",ExpressionUUID->"a6798b6c-3b4a-e64a-8e43-0718043d0ab7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21633, 672, 279, 6, 33, "Input",ExpressionUUID->"22d999ad-3cfa-8848-81c0-51a24c9f1965"], +Cell[21915, 680, 385, 7, 36, "Output",ExpressionUUID->"6b63cb2a-1ab8-e848-9ac7-ef6b0303b1d3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22337, 692, 224, 5, 33, "Input",ExpressionUUID->"9246503a-6d77-cf4a-9b3d-5598cf9e564f"], +Cell[22564, 699, 380, 7, 36, "Output",ExpressionUUID->"b3e2d2b1-9e97-e648-850e-6955c1fa39eb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22981, 711, 355, 11, 46, "Input",ExpressionUUID->"11e5a2ac-5658-8f46-8fab-f1b936b21832"], +Cell[23339, 724, 404, 7, 36, "Output",ExpressionUUID->"ba1e9911-781d-7346-9c59-3f35a827e860"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23780, 736, 355, 11, 46, "Input",ExpressionUUID->"f542ca86-1bce-094b-8e45-86b1bded8fd5"], +Cell[24138, 749, 425, 8, 36, "Output",ExpressionUUID->"66f4e7de-9bd2-514d-b94d-a333638680f0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24600, 762, 999, 27, 103, "Input",ExpressionUUID->"44f2e5ef-d3c6-654e-8b54-63ba3704d013"], +Cell[25602, 791, 404, 7, 36, "Output",ExpressionUUID->"c79b9052-bd83-9a42-b34c-dda9039c3f1d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26043, 803, 204, 4, 33, "Input",ExpressionUUID->"22cbcbcc-5d2f-f24b-adb9-e9ed2a82e4a7"], +Cell[26250, 809, 385, 7, 36, "Output",ExpressionUUID->"987c3b95-be0a-0d44-8de1-a549f82b1904"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26672, 821, 310, 6, 33, "Input",ExpressionUUID->"7891d3a5-426c-e74e-8c55-4736ff8e4ec7"], +Cell[26985, 829, 366, 6, 36, "Output",ExpressionUUID->"1a30e6ef-e961-5b42-917e-eede0b234ee7"] +}, Open ]], +Cell[27366, 838, 178, 3, 33, "Input",ExpressionUUID->"61d29687-8c56-2a4b-9614-d10ed5aaf54a"], +Cell[CellGroupData[{ +Cell[27569, 845, 308, 6, 33, "Input",ExpressionUUID->"4e78657f-ed48-494d-a60d-8e987a136464"], +Cell[27880, 853, 368, 6, 36, "Output",ExpressionUUID->"ff729ef9-d0c0-a14e-bc89-3310f5642fd0"] +}, Open ]], +Cell[28263, 862, 178, 3, 33, "Input",ExpressionUUID->"735e6dff-209c-0b43-a03a-2e5108126fbb"], +Cell[CellGroupData[{ +Cell[28466, 869, 330, 7, 49, "Input",ExpressionUUID->"0ead2356-53ad-ab43-bb49-150de875cbfe"], +Cell[28799, 878, 364, 6, 36, "Output",ExpressionUUID->"e7481a02-635c-e748-8aa4-2a6d38598dbf"] +}, Open ]], +Cell[29178, 887, 178, 3, 33, "Input",ExpressionUUID->"53595566-428d-5749-93a8-7ab842057ce0"], +Cell[CellGroupData[{ +Cell[29381, 894, 335, 6, 33, "Input",ExpressionUUID->"07eb17d4-e435-c84e-99a9-2e0d3712802b"], +Cell[29719, 902, 365, 6, 36, "Output",ExpressionUUID->"6d55a2af-8c03-f04b-a70e-7fae72a1d696"] +}, Open ]], +Cell[30099, 911, 176, 3, 33, "Input",ExpressionUUID->"39883787-faf5-844a-8e17-ec4f2678b8bc"], +Cell[CellGroupData[{ +Cell[30300, 918, 295, 6, 49, "Input",ExpressionUUID->"ee1e98cb-cd0e-3845-8e2f-3f0a95da65fd"], +Cell[30598, 926, 364, 6, 36, "Output",ExpressionUUID->"99c06ee8-5413-d148-92d3-6c005dc56018"] +}, Open ]], +Cell[30977, 935, 176, 3, 33, "Input",ExpressionUUID->"2b5574f3-7e0b-da43-a362-1d766784b127"], +Cell[CellGroupData[{ +Cell[31178, 942, 282, 5, 33, "Input",ExpressionUUID->"e38a9edd-98c9-f44c-be99-5306614a8943"], +Cell[31463, 949, 362, 6, 36, "Output",ExpressionUUID->"aecb149f-8fdb-bf46-b486-1ae0a46c4609"] +}, Open ]], +Cell[31840, 958, 178, 3, 33, "Input",ExpressionUUID->"46081969-98a3-934e-af61-f0985290f9fc"], +Cell[CellGroupData[{ +Cell[32043, 965, 302, 6, 49, "Input",ExpressionUUID->"791dee79-3432-e640-9061-34198725b26b"], +Cell[32348, 973, 364, 6, 36, "Output",ExpressionUUID->"1673a03e-3533-6745-92f5-7b0fcba83a3b"] +}, Open ]], +Cell[32727, 982, 177, 3, 33, "Input",ExpressionUUID->"da3ea10d-67f6-a546-85fb-400e95f31074"], +Cell[CellGroupData[{ +Cell[32929, 989, 275, 6, 49, "Input",ExpressionUUID->"5939ecba-e430-0644-8b32-1bab2e587a3d"], +Cell[33207, 997, 360, 6, 36, "Output",ExpressionUUID->"c53ec103-eac5-7f45-b143-9359c1a25a60"] +}, Open ]], +Cell[33582, 1006, 180, 3, 33, "Input",ExpressionUUID->"984b6947-7ff8-a64f-8815-c742469825de"], +Cell[CellGroupData[{ +Cell[33787, 1013, 19814, 486, 1564, "Input",ExpressionUUID->"37cae3fd-2e80-8944-a3cb-365117dabd96"], +Cell[53604, 1501, 406, 7, 36, "Output",ExpressionUUID->"09955eb7-3fea-9a4d-8574-0faed17a7462"] +}, Open ]], +Cell[CellGroupData[{ +Cell[54047, 1513, 19753, 490, 1590, "Input",ExpressionUUID->"7a384ef9-4737-b544-8efc-b75be7ab83b6"], +Cell[73803, 2005, 396, 7, 36, "Output",ExpressionUUID->"3c4c7626-329e-9344-9ff5-b98e3c8cea96"] +}, Open ]], +Cell[CellGroupData[{ +Cell[74236, 2017, 19753, 484, 1583, "Input",ExpressionUUID->"77d4556f-b89c-af4a-afbd-80ec60af808b"], +Cell[93992, 2503, 418, 8, 36, "Output",ExpressionUUID->"1fa4502f-ef6b-6643-ace8-76d8ed71afcc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[94447, 2516, 22539, 554, 1778, "Input",ExpressionUUID->"42a847c6-a605-2d4c-af85-4a9ee2240b11"], +Cell[116989, 3072, 422, 8, 36, "Output",ExpressionUUID->"eacf1398-bdfe-574f-8e90-9e9498074a08"] +}, Open ]], +Cell[CellGroupData[{ +Cell[117448, 3085, 22540, 554, 1784, "Input",ExpressionUUID->"570fd72a-9833-2447-8fa8-da3c75f36b13"], +Cell[139991, 3641, 420, 8, 36, "Output",ExpressionUUID->"7e303240-9659-f649-96be-7f3f0466cf84"] +}, Open ]], +Cell[CellGroupData[{ +Cell[140448, 3654, 25496, 627, 1995, "Input",ExpressionUUID->"6c79978d-34f1-ba49-8d0e-3bb55927a3b3"], +Cell[165947, 4283, 416, 8, 36, "Output",ExpressionUUID->"10b7d991-3796-3d49-9117-5a4af6b5c544"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166400, 4296, 135, 3, 33, "Input",ExpressionUUID->"d37f8e73-99b3-584e-bb20-d8f61db89d74"], +Cell[166538, 4301, 389, 7, 36, "Output",ExpressionUUID->"83a13434-9207-5040-8415-704bd8a8d47c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166964, 4313, 135, 3, 33, "Input",ExpressionUUID->"55438a76-6d5a-4b41-ab44-4d681d057718"], +Cell[167102, 4318, 391, 7, 36, "Output",ExpressionUUID->"f73c4867-c2aa-3240-933e-d007e91649df"] +}, Open ]], +Cell[CellGroupData[{ +Cell[167530, 4330, 1149, 40, 57, "Input",ExpressionUUID->"9da7fa25-315a-8e41-a2c9-a04aa0c13c11"], +Cell[168682, 4372, 400, 7, 36, "Output",ExpressionUUID->"0e53f3ad-dbe6-0d48-9f66-335b36864a07"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169119, 4384, 1046, 36, 57, "Input",ExpressionUUID->"e85fc4ad-8ec1-464f-89e3-49e0d346a262"], +Cell[170168, 4422, 420, 8, 36, "Output",ExpressionUUID->"3ae69439-711d-1e44-b6de-d7ec0124cc39"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170625, 4435, 1149, 40, 57, "Input",ExpressionUUID->"284a170f-6ad7-944d-9566-d9aeb25ce38a"], +Cell[171777, 4477, 402, 7, 36, "Output",ExpressionUUID->"21f472a0-5798-e945-ac88-06cef5d2720c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172216, 4489, 113, 2, 33, "Input",ExpressionUUID->"3579c5dc-e108-644c-a1df-b4f9e6394520"], +Cell[172332, 4493, 403, 7, 36, "Output",ExpressionUUID->"57de0e21-823c-824b-99ab-0fc536845a8d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172772, 4505, 113, 2, 33, "Input",ExpressionUUID->"e803a065-2d64-7e43-b65d-ca9a239afb22"], +Cell[172888, 4509, 423, 8, 36, "Output",ExpressionUUID->"9acb830b-483d-064d-ae62-bda220f61061"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173348, 4522, 113, 2, 33, "Input",ExpressionUUID->"eac6de65-d0aa-2d49-ab37-02acdaf372b8"], +Cell[173464, 4526, 424, 8, 36, "Output",ExpressionUUID->"4f1461e1-bc52-ad4b-bf59-0878c9352e0a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173925, 4539, 113, 2, 33, "Input",ExpressionUUID->"0802e376-73b3-474d-9a52-d24afc4f5b3b"], +Cell[174041, 4543, 402, 7, 36, "Output",ExpressionUUID->"27baef84-41cc-b340-abfd-c23d238e1afe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174480, 4555, 112, 2, 33, "Input",ExpressionUUID->"6d4d8c6f-aafe-6b46-8b3a-e4df7abeefc3"], +Cell[174595, 4559, 401, 7, 36, "Output",ExpressionUUID->"2fa87c1e-da8f-5743-a65b-fb8ec2f58ad4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175033, 4571, 112, 2, 33, "Input",ExpressionUUID->"0ef9bb4e-2149-1741-a630-cc7d1715c59c"], +Cell[175148, 4575, 403, 7, 36, "Output",ExpressionUUID->"94b19d43-3ce5-094e-878f-fde6d10e4b1a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175588, 4587, 502, 17, 46, "Input",ExpressionUUID->"343bb669-b65f-ae4b-a918-6617de2b2357"], +Cell[176093, 4606, 422, 8, 25, "Output",ExpressionUUID->"15e520e0-2345-7b46-8d5d-06f00cf7401a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176552, 4619, 502, 17, 46, "Input",ExpressionUUID->"93e7b389-b35e-a14c-a383-1acedc0bc14f"], +Cell[177057, 4638, 413, 8, 25, "Output",ExpressionUUID->"cff94058-5348-7244-9cd4-d7521f36a3f5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[177507, 4651, 1793, 61, 109, "Input",ExpressionUUID->"d71623f3-dfc6-c343-b8df-4f0964dfb1f2"], +Cell[179303, 4714, 397, 7, 25, "Output",ExpressionUUID->"d56a1179-4a10-174e-a091-4827bc69344f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[179737, 4726, 1106, 37, 64, "Input",ExpressionUUID->"867b2951-1628-5e4b-a109-b613cd2a3308"], +Cell[180846, 4765, 422, 8, 25, "Output",ExpressionUUID->"56b4773e-e7ed-674a-8652-0ccc4155fd26"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181305, 4778, 1823, 62, 90, "Input",ExpressionUUID->"72acf5a7-b149-a94b-b539-b44d573bd23a"], +Cell[183131, 4842, 404, 7, 25, "Output",ExpressionUUID->"6505a06c-f7ed-4e48-b2b7-7fda8abda893"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183572, 4854, 1636, 54, 65, "Input",ExpressionUUID->"089f3a19-af46-084e-90de-3ed7bb97fe71"], +Cell[185211, 4910, 406, 7, 25, "Output",ExpressionUUID->"65ce86c1-6326-2644-be3e-7c065e1f00bb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185654, 4922, 1636, 54, 65, "Input",ExpressionUUID->"a600ed0f-d635-9d4c-aead-7fe5ea2b58a7"], +Cell[187293, 4978, 401, 7, 25, "Output",ExpressionUUID->"f926e429-91b0-244a-9de4-290a1ff124fc"] +}, Open ]], +Cell[187709, 4988, 192, 4, 22, "Input",ExpressionUUID->"bdefbecf-0aaa-4a45-a861-406cf54e52d1"], +Cell[187904, 4994, 154, 3, 22, "Input",ExpressionUUID->"a5161e25-7247-124f-8601-7bcc4af89c62"], +Cell[188061, 4999, 192, 4, 22, "Input",ExpressionUUID->"45ed831b-459a-9a41-990f-c079ad464f5d"], +Cell[188256, 5005, 154, 3, 22, "Input",ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-11f4dcb03e07"], +Cell[CellGroupData[{ +Cell[188435, 5012, 1301, 43, 39, "Input",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], +Cell[189739, 5057, 178, 3, 25, "Output",ExpressionUUID->"1658422d-0016-324a-9843-942f5453a9c7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189954, 5065, 910, 31, 46, "Input",ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-7221ff813b6d"], +Cell[190867, 5098, 175, 3, 25, "Output",ExpressionUUID->"d307b81f-3de4-ab46-9ef8-af5c6bc7c05b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191079, 5106, 887, 30, 46, "Input",ExpressionUUID->"f22831a7-63b7-f444-8e3a-fa370a62ac27"], +Cell[191969, 5138, 176, 3, 25, "Output",ExpressionUUID->"866e2a7a-c08a-d14a-ae9c-f63fbc316d85"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192182, 5146, 558, 19, 42, "Input",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], +Cell[192743, 5167, 172, 3, 25, "Output",ExpressionUUID->"bba1ae64-a2a6-4745-b870-cca298627f62"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192952, 5175, 623, 21, 42, "Input",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], +Cell[193578, 5198, 172, 3, 25, "Output",ExpressionUUID->"2d9a2576-51c1-274e-bb6b-3d0a12d8f955"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193787, 5206, 170, 5, 46, "Input",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], +Cell[193960, 5213, 172, 3, 25, "Output",ExpressionUUID->"55e80360-690f-0444-ac68-221fe09ddfd5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194169, 5221, 170, 5, 45, "Input",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], +Cell[194342, 5228, 171, 3, 25, "Output",ExpressionUUID->"ffa83e52-e057-8c44-be5c-a869714a425e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194550, 5236, 181, 5, 35, "Input",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], +Cell[194734, 5243, 170, 3, 25, "Output",ExpressionUUID->"daa1af48-56b9-b549-9a5e-fd35e4ace383"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194941, 5251, 181, 5, 35, "Input",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], +Cell[195125, 5258, 172, 3, 25, "Output",ExpressionUUID->"045de583-e60b-c94a-9184-d9a46a689c39"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195334, 5266, 6055, 185, 310, "Input",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], +Cell[201392, 5453, 172, 3, 25, "Output",ExpressionUUID->"cdaeef85-4599-4144-88b1-c12ccb960e67"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201601, 5461, 368, 9, 33, "Input",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], +Cell[201972, 5472, 171, 3, 25, "Output",ExpressionUUID->"c4da64fa-539e-454c-a7bc-f5a50d741b33"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202180, 5480, 6122, 187, 353, "Input",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], +Cell[208305, 5669, 173, 3, 25, "Output",ExpressionUUID->"a0ddd9ec-0ad8-da40-93c1-f69a540fecbb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208515, 5677, 368, 9, 33, "Input",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], +Cell[208886, 5688, 170, 3, 25, "Output",ExpressionUUID->"bb399ae8-0971-524b-99dd-45c3d83aff90"] +}, Open ]], +Cell[CellGroupData[{ +Cell[209093, 5696, 2663, 88, 135, "Input",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], +Cell[211759, 5786, 171, 3, 25, "Output",ExpressionUUID->"8522d772-b29b-b14d-a623-3ad00b3d8250"] +}, Open ]], +Cell[CellGroupData[{ +Cell[211967, 5794, 2603, 85, 135, "Input",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], +Cell[214573, 5881, 173, 3, 25, "Output",ExpressionUUID->"d88ed30c-77e3-0245-b8d9-3b803c379fb2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[214783, 5889, 3712, 118, 197, "Input",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], +Cell[218498, 6009, 174, 3, 25, "Output",ExpressionUUID->"5d391006-3707-3d44-a060-c06781a98edd"] +}, Open ]], +Cell[218687, 6015, 138, 3, 34, "Input",ExpressionUUID->"714abd93-e0d1-eb45-a9e1-7a2f5d020eb1"], +Cell[CellGroupData[{ +Cell[218850, 6022, 2054, 59, 92, "Input",ExpressionUUID->"137c38a2-741c-bd43-b6d9-c0135e32eaf8"], +Cell[220907, 6083, 557, 12, 50, "Message",ExpressionUUID->"055bf31f-37b2-724c-aeef-d922f7a205c7"], +Cell[221467, 6097, 559, 12, 50, "Message",ExpressionUUID->"eeead3e4-54a5-7c4d-95b2-292dcdbe105a"], +Cell[222029, 6111, 561, 12, 50, "Message",ExpressionUUID->"87e34a07-7a78-bf46-b222-6e72d11fd18d"], +Cell[222593, 6125, 458, 10, 20, "Message",ExpressionUUID->"1cf9faa5-3432-3349-b45a-58344623fc63"], +Cell[223054, 6137, 172, 3, 25, "Output",ExpressionUUID->"acb58738-85fd-0f40-b8fa-3a779aa79369"] +}, Open ]], +Cell[CellGroupData[{ +Cell[223263, 6145, 2052, 59, 92, "Input",ExpressionUUID->"9b196534-2ca5-e54b-8014-b0ab3cd09ac2"], +Cell[225318, 6206, 555, 12, 50, "Message",ExpressionUUID->"6fb03e9c-623b-b24d-bccd-c05b2662537c"], +Cell[225876, 6220, 559, 12, 50, "Message",ExpressionUUID->"410ed293-2b04-a346-b193-5e006759c884"], +Cell[226438, 6234, 561, 12, 50, "Message",ExpressionUUID->"9e59cf72-2df3-6741-910e-ddcc2125aa8b"], +Cell[227002, 6248, 458, 10, 20, "Message",ExpressionUUID->"6f223de4-f4b9-0a4c-b3b3-f489f4259713"], +Cell[227463, 6260, 172, 3, 25, "Output",ExpressionUUID->"d8300689-0813-6149-9a7f-c358ba826aac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[227672, 6268, 1936, 53, 69, "Input",ExpressionUUID->"124cd7db-c537-8943-bef2-1a154ab4a709"], +Cell[229611, 6323, 20440, 382, 190, "Output",ExpressionUUID->"a7dc53c9-dabc-784f-a94a-f1fb7ab10c84"] +}, Open ]], +Cell[CellGroupData[{ +Cell[250088, 6710, 2094, 60, 92, "Input",ExpressionUUID->"5a7f9400-1446-9746-a463-bade8ae5c530"], +Cell[252185, 6772, 500, 11, 33, "Message",ExpressionUUID->"eede1010-35b4-8e43-8206-4c3ebae733c0"], +Cell[252688, 6785, 503, 11, 33, "Message",ExpressionUUID->"01174b23-a2bd-8e4e-90f5-af7e82df101e"], +Cell[253194, 6798, 506, 11, 33, "Message",ExpressionUUID->"ec7385ad-4809-8947-afea-81e4a95fc523"], +Cell[253703, 6811, 455, 10, 20, "Message",ExpressionUUID->"4176ecfe-3aff-0f4b-824e-b07e40312968"], +Cell[254161, 6823, 57321, 985, 187, "Output",ExpressionUUID->"6ef8802e-494c-9d4c-94ba-3ee854b2b684"] +}, Open ]], +Cell[311497, 7811, 2455, 69, 111, "Input",ExpressionUUID->"0f83f761-b16d-5343-987d-511095eaf120"], +Cell[313955, 7882, 209, 5, 34, "Input",ExpressionUUID->"8cdd4baa-f7c9-104e-b978-89d3982ba28f"], +Cell[CellGroupData[{ +Cell[314189, 7891, 217, 7, 39, "Input",ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-3438788b15d6"], +Cell[314409, 7900, 172, 3, 25, "Output",ExpressionUUID->"bea5e069-6c61-f84f-be94-f0a852e2aafc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[314618, 7908, 1816, 53, 92, "Input",ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-0e75880d5d98"], +Cell[316437, 7963, 508, 11, 50, "Message",ExpressionUUID->"3a61d965-a130-7645-90c6-a5061b94ec40"], +Cell[316948, 7976, 508, 11, 50, "Message",ExpressionUUID->"c3c0d10c-aa86-9b43-bfa9-71bc099863f1"], +Cell[317459, 7989, 511, 11, 50, "Message",ExpressionUUID->"321e1ff2-86f6-7244-895a-0b744ecd0cf1"], +Cell[317973, 8002, 456, 10, 20, "Message",ExpressionUUID->"43e0f399-4fd6-3f4d-a3a8-ef137bebb344"], +Cell[318432, 8014, 26000, 472, 187, "Output",ExpressionUUID->"4e674430-b3ee-f841-98e7-88500054cf35"] +}, Open ]], +Cell[CellGroupData[{ +Cell[344469, 8491, 1616, 48, 69, "Input",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], +Cell[346088, 8541, 584, 12, 53, "Message",ExpressionUUID->"6dc439d9-4983-a74d-a424-1e627442f8ec"], +Cell[346675, 8555, 588, 12, 53, "Message",ExpressionUUID->"cbbb0a14-cac3-b246-be52-03554c6d0159"], +Cell[347266, 8569, 592, 12, 53, "Message",ExpressionUUID->"afaf59d8-5c82-5843-ba76-5dd1061c22bd"], +Cell[347861, 8583, 456, 10, 20, "Message",ExpressionUUID->"370cb98e-1084-6940-9e45-78218dc7334e"], +Cell[348320, 8595, 169, 3, 25, "Output",ExpressionUUID->"49c1839c-f9a0-514a-9803-38aedd206508"] +}, Open ]], +Cell[CellGroupData[{ +Cell[348526, 8603, 2249, 64, 131, "Input",ExpressionUUID->"eb852908-4d60-c84e-80d9-a57fd4094f56"], +Cell[350778, 8669, 555, 12, 50, "Message",ExpressionUUID->"e4da2c2e-bc79-8048-aec6-e0a36c5fd50c"], +Cell[351336, 8683, 557, 12, 50, "Message",ExpressionUUID->"ff48d9a8-4f15-044a-8d17-d378e560badf"], +Cell[351896, 8697, 563, 12, 50, "Message",ExpressionUUID->"d97cd881-ad70-0043-811a-b6650c7bff48"], +Cell[352462, 8711, 458, 10, 20, "Message",ExpressionUUID->"dc1ff9fc-c736-e742-9bd5-f36a7c2c6c53"], +Cell[352923, 8723, 173, 3, 25, "Output",ExpressionUUID->"207fc206-b3fa-1a42-8709-2c8aaaf304b0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[353133, 8731, 2223, 64, 131, "Input",ExpressionUUID->"d11037f6-09e7-b44f-8a1d-47c1a485c608"], +Cell[355359, 8797, 555, 12, 50, "Message",ExpressionUUID->"079487fc-3029-b74e-ba27-a61cf73f30a2"], +Cell[355917, 8811, 557, 12, 50, "Message",ExpressionUUID->"6fef6245-eafb-7343-8d9c-509c47662fd8"], +Cell[356477, 8825, 561, 12, 50, "Message",ExpressionUUID->"caeb451e-fce0-a24e-bdb2-20066bf32e23"], +Cell[357041, 8839, 458, 10, 20, "Message",ExpressionUUID->"b9263c45-06ba-d24d-a71c-72933a67fb86"], +Cell[357502, 8851, 173, 3, 25, "Output",ExpressionUUID->"fdc26e81-7e73-a54e-8b48-fba744fd21b7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[357712, 8859, 2221, 64, 131, "Input",ExpressionUUID->"431dd2fa-6331-2449-bc19-0d79e6ed8953"], +Cell[359936, 8925, 557, 12, 50, "Message",ExpressionUUID->"3270b87e-9743-ef45-96a4-2ce51373a203"], +Cell[360496, 8939, 557, 12, 50, "Message",ExpressionUUID->"b5a7511b-af1a-b946-83d4-1951541611b2"], +Cell[361056, 8953, 563, 12, 50, "Message",ExpressionUUID->"55836c22-e074-4442-9aa3-8442534fcabe"], +Cell[361622, 8967, 456, 10, 20, "Message",ExpressionUUID->"18c3aa33-3860-5f41-a9ac-8cd3806fef7e"], +Cell[362081, 8979, 173, 3, 25, "Output",ExpressionUUID->"62510f7e-bac9-8b4e-86ce-182bdd5d56b9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362291, 8987, 213, 6, 38, "Input",ExpressionUUID->"8c5df121-e0b9-a146-bc34-b231aa8028b9"], +Cell[362507, 8995, 171, 3, 25, "Output",ExpressionUUID->"5c7cd89e-20ed-8d44-83bb-e2e46deab974"] +}, Open ]], +Cell[362693, 9001, 245, 5, 34, "Input",ExpressionUUID->"831a27fc-89ff-e041-97f1-0ec5d19a7879"], +Cell[CellGroupData[{ +Cell[362963, 9010, 558, 19, 42, "Input",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], +Cell[363524, 9031, 172, 3, 25, "Output",ExpressionUUID->"e3d357af-87e3-0047-959d-fa0139c5bfc4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[363733, 9039, 170, 5, 46, "Input",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], +Cell[363906, 9046, 173, 3, 25, "Output",ExpressionUUID->"93dda073-df54-8f4e-afab-666de5caf927"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364116, 9054, 181, 5, 35, "Input",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], +Cell[364300, 9061, 173, 3, 25, "Output",ExpressionUUID->"db5e4010-00e8-574c-8b32-365b8147ba2d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364510, 9069, 6055, 185, 310, "Input",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], +Cell[370568, 9256, 172, 3, 56, "Output",ExpressionUUID->"6f5204f9-42a7-0343-a2cd-76cd7618ba90"] +}, Open ]], +Cell[CellGroupData[{ +Cell[370777, 9264, 368, 9, 56, "Input",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], +Cell[371148, 9275, 170, 3, 56, "Output",ExpressionUUID->"732feb85-572c-6a40-bb32-258aa6fbb12e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[371355, 9283, 6122, 187, 56, "Input",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], +Cell[377480, 9472, 175, 3, 56, "Output",ExpressionUUID->"330db3dd-df0f-5e4b-9e84-63e3da6287e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[377692, 9480, 368, 9, 56, "Input",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], +Cell[378063, 9491, 172, 3, 56, "Output",ExpressionUUID->"8403ef7a-5add-ea45-a6c0-a6dc70f27bb8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[378272, 9499, 2663, 88, 56, "Input",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], +Cell[380938, 9589, 173, 3, 56, "Output",ExpressionUUID->"aac00e4f-5d2b-4341-8ca5-f49d9556633e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[381148, 9597, 2603, 85, 56, "Input",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], +Cell[383754, 9684, 171, 3, 56, "Output",ExpressionUUID->"eeee5a47-9547-7746-bb79-936b40364d7e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[383962, 9692, 3712, 118, 56, "Input",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], +Cell[387677, 9812, 174, 3, 56, "Output",ExpressionUUID->"a1352554-6686-ff4e-be47-04b42c29b000"] +}, Open ]], +Cell[CellGroupData[{ +Cell[387888, 9820, 2052, 59, 56, "Input",ExpressionUUID->"220bdeed-2e17-e94c-a7b0-3e066daf15d7"], +Cell[389943, 9881, 578, 12, 56, "Message",ExpressionUUID->"c854318c-035d-f249-9a8c-a9608e137436"], +Cell[390524, 9895, 583, 12, 56, "Message",ExpressionUUID->"fc1eef58-3b5b-8c4c-bab7-60a3682b1d45"], +Cell[391110, 9909, 586, 12, 56, "Message",ExpressionUUID->"2e134293-05b5-624c-b206-73b12a84c5ea"], +Cell[391699, 9923, 456, 10, 56, "Message",ExpressionUUID->"2cac2ff4-fc29-a048-9fae-70918ed41968"], +Cell[392158, 9935, 170, 3, 56, "Output",ExpressionUUID->"2dcc4178-0b8d-9f48-a040-f2fc5cb8eacd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[392365, 9943, 2054, 59, 56, "Input",ExpressionUUID->"b8791a07-33fe-8c4f-9c59-dd23af9a4471"], +Cell[394422, 10004, 576, 12, 56, "Message",ExpressionUUID->"ac808335-5ecc-ee4f-a7ac-d889b0bf6e05"], +Cell[395001, 10018, 581, 12, 56, "Message",ExpressionUUID->"36b7d718-32d9-a441-b985-1fed8f0f10fd"], +Cell[395585, 10032, 586, 12, 56, "Message",ExpressionUUID->"ab31a569-fab4-434a-9c76-33aa9b59b117"], +Cell[396174, 10046, 458, 10, 56, "Message",ExpressionUUID->"4c41e56d-f5cb-b94c-b99a-06e306247825"], +Cell[396635, 10058, 172, 3, 56, "Output",ExpressionUUID->"5ec230cf-b87d-3e41-bc7f-1f3f2ff283ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[396844, 10066, 2028, 55, 56, "Input",ExpressionUUID->"3fe6e7f1-b44a-234f-af77-3cf1fdaf28d9"], +Cell[398875, 10123, 20011, 378, 56, "Output",ExpressionUUID->"3d0b6a0d-2dc0-3b48-b8dd-35b5149ee27f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[418923, 10506, 2115, 60, 56, "Input",ExpressionUUID->"ab29778f-f183-804b-b871-4070462057d7"], +Cell[421041, 10568, 501, 11, 56, "Message",ExpressionUUID->"abf9cb8a-fbbf-7a43-abcd-82efb32ab217"], +Cell[421545, 10581, 503, 11, 56, "Message",ExpressionUUID->"8fcd13e3-81e0-3446-8882-6e42ca5c0bd1"], +Cell[422051, 10594, 505, 11, 56, "Message",ExpressionUUID->"2c23ed60-41ee-5841-90ce-1d26cb02619d"], +Cell[422559, 10607, 456, 10, 56, "Message",ExpressionUUID->"fa59df63-76ff-4147-acd0-9eeaf33582c5"], +Cell[423018, 10619, 32548, 580, 56, "Output",ExpressionUUID->"4ab96fbd-92e0-8a42-8552-436bb2f629b6"] +}, Open ]], +Cell[455581, 11202, 209, 5, 56, "Input",ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-6bd251746ea6"], +Cell[CellGroupData[{ +Cell[455815, 11211, 1616, 48, 56, "Input",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], +Cell[457434, 11261, 596, 12, 56, "Message",ExpressionUUID->"3273c967-a8f4-6b46-8292-dfd9dc69311d"], +Cell[458033, 11275, 599, 12, 56, "Message",ExpressionUUID->"cf5457ae-7056-8a4b-afa3-32b95e922259"], +Cell[458635, 11289, 605, 12, 56, "Message",ExpressionUUID->"7ef79528-2ca4-544d-8bbf-e4564533e47a"], +Cell[459243, 11303, 456, 10, 56, "Message",ExpressionUUID->"3f59bf2a-0193-1b41-9437-359e4e291f20"], +Cell[459702, 11315, 170, 3, 56, "Output",ExpressionUUID->"6c94ff26-1921-5a44-a360-bda32f564938"] +}, Open ]], +Cell[CellGroupData[{ +Cell[459909, 11323, 2247, 64, 56, "Input",ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-7a397847208f"], +Cell[462159, 11389, 580, 12, 56, "Message",ExpressionUUID->"33abd0dc-5204-1046-87c9-87cecac6793f"], +Cell[462742, 11403, 583, 12, 56, "Message",ExpressionUUID->"a3e9f415-30c2-d04b-a044-33980d6ef6e9"], +Cell[463328, 11417, 584, 12, 56, "Message",ExpressionUUID->"3dddc3ab-89f8-ab44-a85d-f5130722f198"], +Cell[463915, 11431, 458, 10, 56, "Message",ExpressionUUID->"a3229605-5a49-544b-bbf6-cc14edd6c936"], +Cell[464376, 11443, 170, 3, 56, "Output",ExpressionUUID->"2f0f984a-e452-7f46-a8f1-230feda2f30b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[464583, 11451, 2219, 64, 56, "Input",ExpressionUUID->"22b50200-0b82-dc47-9932-f1f0210d6caf"], +Cell[466805, 11517, 580, 12, 56, "Message",ExpressionUUID->"1a479ad6-386a-fb47-95e4-f8a3ab25eccc"], +Cell[467388, 11531, 583, 12, 56, "Message",ExpressionUUID->"c45746b8-a614-4245-b137-e38355d43857"], +Cell[467974, 11545, 586, 12, 56, "Message",ExpressionUUID->"7ef9264b-fdf5-8e46-a39d-9d01a56d9fbc"], +Cell[468563, 11559, 458, 10, 56, "Message",ExpressionUUID->"424cc344-67bf-5349-951a-e3d6864f9105"], +Cell[469024, 11571, 171, 3, 56, "Output",ExpressionUUID->"d6fb3ea3-39a2-5b42-96f2-520a52fd0d9f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[469232, 11579, 2221, 64, 56, "Input",ExpressionUUID->"8a5105db-666c-444e-9451-d3e8d1574bcd"], +Cell[471456, 11645, 580, 12, 56, "Message",ExpressionUUID->"7c3b7078-d094-2344-a157-26438223ef0f"], +Cell[472039, 11659, 583, 12, 56, "Message",ExpressionUUID->"a4aaa457-e588-7a42-9066-29e614b18d91"], +Cell[472625, 11673, 584, 12, 56, "Message",ExpressionUUID->"8e9701ac-9508-2346-b853-523f9f269328"], +Cell[473212, 11687, 456, 10, 56, "Message",ExpressionUUID->"062aadbd-03a7-1f42-b815-d27ae6ddc83e"], +Cell[473671, 11699, 170, 3, 56, "Output",ExpressionUUID->"484b070c-cc4a-7049-8a18-4aa38bea8cd9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[473878, 11707, 213, 6, 56, "Input",ExpressionUUID->"d0efa798-230b-fa46-b413-76bfd8e40ccb"], +Cell[474094, 11715, 174, 3, 56, "Output",ExpressionUUID->"8b85bd5c-200a-cc44-9db5-38c5efe118ad"] +}, Open ]], +Cell[474283, 11721, 247, 5, 56, "Input",ExpressionUUID->"f842f74e-f562-934a-9011-6604b8708636"], +Cell[CellGroupData[{ +Cell[474555, 11730, 558, 19, 56, "Input",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], +Cell[475116, 11751, 173, 3, 56, "Output",ExpressionUUID->"ddfcd06d-5644-fb4b-b789-815d8db71ce6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[475326, 11759, 170, 5, 56, "Input",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], +Cell[475499, 11766, 173, 3, 56, "Output",ExpressionUUID->"96020250-b44c-694d-acbe-eb8b1c066e25"] +}, Open ]], +Cell[CellGroupData[{ +Cell[475709, 11774, 181, 5, 56, "Input",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], +Cell[475893, 11781, 171, 3, 56, "Output",ExpressionUUID->"a3cad59a-97f1-1b4b-a0d3-0fcbb55e71c0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[476101, 11789, 6055, 185, 56, "Input",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], +Cell[482159, 11976, 173, 3, 56, "Output",ExpressionUUID->"221426ad-3f43-834a-96dc-c22bf0ed0e23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[482369, 11984, 368, 9, 56, "Input",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], +Cell[482740, 11995, 172, 3, 56, "Output",ExpressionUUID->"54964f1a-0c74-5b45-a5d4-8b241885bf9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[482949, 12003, 6122, 187, 56, "Input",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], +Cell[489074, 12192, 175, 3, 56, "Output",ExpressionUUID->"637b4460-08e1-2c47-b235-20b94d0413ac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[489286, 12200, 368, 9, 56, "Input",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], +Cell[489657, 12211, 171, 3, 56, "Output",ExpressionUUID->"55b9de35-b316-8a4b-b6c7-df263fdc91bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[489865, 12219, 2663, 88, 56, "Input",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], +Cell[492531, 12309, 173, 3, 56, "Output",ExpressionUUID->"fd2a841e-0c22-9146-97fa-d652989dadbe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[492741, 12317, 2603, 85, 56, "Input",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], +Cell[495347, 12404, 171, 3, 56, "Output",ExpressionUUID->"94bd0f60-5228-9b42-83fe-23a478d55c7c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495555, 12412, 3712, 118, 56, "Input",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], +Cell[499270, 12532, 174, 3, 56, "Output",ExpressionUUID->"fe51f341-63c7-8f47-9357-139cd58159ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[499481, 12540, 2054, 59, 56, "Input",ExpressionUUID->"1dec41a6-6752-2041-9d38-804123b5ccd0"], +Cell[501538, 12601, 572, 12, 56, "Message",ExpressionUUID->"0e079558-1b2f-5a46-8c66-a9ee31993ddb"], +Cell[502113, 12615, 573, 12, 56, "Message",ExpressionUUID->"d148db97-53f1-5f42-bd2e-6e779140d5b6"], +Cell[502689, 12629, 579, 12, 56, "Message",ExpressionUUID->"186b0633-6992-1247-a396-6e446c898f15"], +Cell[503271, 12643, 456, 10, 56, "Message",ExpressionUUID->"81723359-f225-2c46-ac9d-0c5bbdaa253b"], +Cell[503730, 12655, 169, 3, 56, "Output",ExpressionUUID->"dfb1ce0b-e756-e84a-9724-ecf250122f19"] +}, Open ]], +Cell[CellGroupData[{ +Cell[503936, 12663, 2049, 58, 56, "Input",ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], +Cell[505988, 12723, 570, 12, 56, "Message",ExpressionUUID->"90df9b1f-7133-e445-8661-0af9d5feb8bd"], +Cell[506561, 12737, 575, 12, 56, "Message",ExpressionUUID->"93c48be2-5ad7-ad43-88e8-2c6ab8e2f132"], +Cell[507139, 12751, 579, 12, 56, "Message",ExpressionUUID->"cbcbafce-f556-944f-b5f3-9a75f9ae2725"], +Cell[507721, 12765, 458, 10, 56, "Message",ExpressionUUID->"83820e0a-b24a-cc46-bd5a-b19f0104c185"], +Cell[508182, 12777, 171, 3, 56, "Output",ExpressionUUID->"0d63c418-a50b-b94b-ad7d-1a46c6eb320d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[508390, 12785, 2030, 55, 56, "Input",ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-b799ae260294"], +Cell[510423, 12842, 20011, 378, 56, "Output",ExpressionUUID->"a15038e3-a3ab-e64e-ad3b-e8cb09ec92a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[530471, 13225, 2120, 60, 56, "Input",ExpressionUUID->"cbec275e-4d01-7747-9ece-7fa9a2a651b1"], +Cell[532594, 13287, 501, 11, 56, "Message",ExpressionUUID->"bf289d91-76e3-3e4e-937f-93db9b038d39"], +Cell[533098, 13300, 505, 11, 56, "Message",ExpressionUUID->"a52542a3-f03a-414f-86c8-3b114308924e"], +Cell[533606, 13313, 506, 11, 56, "Message",ExpressionUUID->"1c7104f0-99cd-c74c-b855-98253be62519"], +Cell[534115, 13326, 456, 10, 56, "Message",ExpressionUUID->"e66837df-658a-2c4c-973b-50c515d3781f"], +Cell[534574, 13338, 31008, 556, 56, "Output",ExpressionUUID->"0c8adc65-2b3c-a14f-87e8-79cdde17788b"] +}, Open ]], +Cell[565597, 13897, 209, 5, 56, "Input",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], +Cell[CellGroupData[{ +Cell[565831, 13906, 1616, 48, 56, "Input",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], +Cell[567450, 13956, 593, 12, 56, "Message",ExpressionUUID->"6cb27c14-3e28-3a42-b8b7-fdcba2488488"], +Cell[568046, 13970, 595, 12, 56, "Message",ExpressionUUID->"cb81e4d8-f3c2-a440-be93-8add6661d63f"], +Cell[568644, 13984, 602, 12, 56, "Message",ExpressionUUID->"6fc2d4bb-75da-4f4f-bee0-560983907484"], +Cell[569249, 13998, 456, 10, 56, "Message",ExpressionUUID->"a75f01ed-738d-2b4a-b751-ccae7a894e31"], +Cell[569708, 14010, 172, 3, 56, "Output",ExpressionUUID->"a9b05d7b-788a-eb45-8401-918c1ed97234"] +}, Open ]], +Cell[CellGroupData[{ +Cell[569917, 14018, 2249, 64, 56, "Input",ExpressionUUID->"f2835c98-560f-8e47-bdab-0d2700971836"], +Cell[572169, 14084, 572, 12, 56, "Message",ExpressionUUID->"e3c0ae99-c55d-1a40-897e-ede7de12487f"], +Cell[572744, 14098, 575, 12, 56, "Message",ExpressionUUID->"0a52e0c9-3a0a-a24b-a9af-01175c4ee0f4"], +Cell[573322, 14112, 579, 12, 56, "Message",ExpressionUUID->"e6adb683-0ea5-4b48-bbb8-23c8c11e4418"], +Cell[573904, 14126, 458, 10, 56, "Message",ExpressionUUID->"12441524-bcf6-244b-b009-fad76aa84cea"], +Cell[574365, 14138, 173, 3, 56, "Output",ExpressionUUID->"cc74ac59-df4c-cf4b-a4af-36b2436eea23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[574575, 14146, 2221, 64, 56, "Input",ExpressionUUID->"ca837916-250f-4d4e-8368-5a08f479e656"], +Cell[576799, 14212, 572, 12, 56, "Message",ExpressionUUID->"ee3e5086-63b9-a04a-8b60-1a07bbedb00c"], +Cell[577374, 14226, 575, 12, 56, "Message",ExpressionUUID->"f824dc64-7721-2e40-87b9-9d308e655a7c"], +Cell[577952, 14240, 577, 12, 56, "Message",ExpressionUUID->"830b9065-dbdb-094f-aba8-2b0b04ca96a6"], +Cell[578532, 14254, 456, 10, 56, "Message",ExpressionUUID->"f79b172f-d4db-f24b-98c7-2b2531d3e183"], +Cell[578991, 14266, 172, 3, 56, "Output",ExpressionUUID->"88b0c8ab-c0ff-2a4c-be6a-f15bb3bf7202"] +}, Open ]], +Cell[CellGroupData[{ +Cell[579200, 14274, 2223, 64, 56, "Input",ExpressionUUID->"b579991f-985b-234a-94aa-ed18c097f8c0"], +Cell[581426, 14340, 572, 12, 56, "Message",ExpressionUUID->"f816110f-9bc3-0e4e-85c9-2e71a255bbb9"], +Cell[582001, 14354, 573, 12, 56, "Message",ExpressionUUID->"36d057a5-55b4-f047-814d-965f9626b543"], +Cell[582577, 14368, 579, 12, 56, "Message",ExpressionUUID->"4ef30680-44fe-0244-870d-45b0a67e7a3d"], +Cell[583159, 14382, 456, 10, 56, "Message",ExpressionUUID->"c685c306-1cc4-0a4f-bb39-965ed01378a7"], +Cell[583618, 14394, 173, 3, 56, "Output",ExpressionUUID->"621ca10b-eff8-834f-a283-22ac03a895a3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[583828, 14402, 215, 6, 56, "Input",ExpressionUUID->"afb7855c-8700-d444-926c-6d96abe14e67"], +Cell[584046, 14410, 174, 3, 56, "Output",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/146-94_h_Pu240_702-703/h_146-94_Pu240_702-703_pr_Qw2.nb b/templates/P240_2-51_YakuninDA/146-94_h_Pu240_702-703/h_146-94_Pu240_702-703_pr_Qw2.nb new file mode 100755 index 0000000..9b79ed0 --- /dev/null +++ b/templates/P240_2-51_YakuninDA/146-94_h_Pu240_702-703/h_146-94_Pu240_702-703_pr_Qw2.nb @@ -0,0 +1,14795 @@ +(* 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[ 611711, 14787] +NotebookOptionsPosition[ 572981, 14167] +NotebookOutlinePosition[ 573407, 14184] +CellTagsIndexPosition[ 573364, 14181] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "3.0056"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.9920925094547043`*^9, 3.992092603972748*^9}, { + 3.99209277866609*^9, 3.992092956660898*^9}, {3.9920929879335823`*^9, + 3.992093071903801*^9}, {3.9920931132016296`*^9, + 3.992093115787756*^9}},ExpressionUUID->"742a3a56-2cde-af46-ab2c-\ +a1a35a8158a9"], + +Cell[BoxData["3.0051`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.9920924236975746`*^9, {3.992092517168955*^9, + 3.9920926155774384`*^9}, {3.992092795486683*^9, 3.9920929647336235`*^9}, { + 3.992092996301258*^9, 3.9920930199257812`*^9}, {3.9920930563804474`*^9, + 3.992093082514656*^9}}, + CellLabel-> + "Out[1549]=",ExpressionUUID->"6b75ed5e-afb5-f34c-a6ee-7a81e84d1bfe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.9920923210744896`*^9, 3.992092321332884*^9}}, + CellLabel-> + "In[1550]:=",ExpressionUUID->"e5bbee1c-06ce-814e-ab76-58e8f1fd5db8"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.992092423865034*^9, {3.9920925172234726`*^9, + 3.9920926156103096`*^9}, {3.9920927955256996`*^9, + 3.9920929647669086`*^9}, {3.9920929963357506`*^9, + 3.9920930199606743`*^9}, {3.9920930564144154`*^9, 3.9920930825586586`*^9}}, + CellLabel-> + "Out[1550]=",ExpressionUUID->"fdb1ec2e-9d37-1646-a587-01d33e20fd90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "146"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.9920923255017357`*^9, 3.9920923262853394`*^9}}, + CellLabel-> + "In[1551]:=",ExpressionUUID->"43f451fe-e5b7-1541-9c11-586434a67271"], + +Cell[BoxData["146"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.9920924238884373`*^9, {3.9920925172304897`*^9, + 3.992092615631912*^9}, {3.9920927955507774`*^9, 3.992092964789009*^9}, { + 3.992092996365631*^9, 3.9920930199827785`*^9}, {3.9920930564344254`*^9, + 3.9920930825825768`*^9}}, + CellLabel-> + "Out[1551]=",ExpressionUUID->"46202611-4321-f54f-8d85-a717a03f34f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[1552]:=",ExpressionUUID->"475ac420-b3eb-3b4b-819c-65afcf17ccca"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.9920924238954353`*^9, {3.9920925172532406`*^9, + 3.9920926156550407`*^9}, {3.9920927955573063`*^9, 3.992092964816601*^9}, { + 3.9920929963885365`*^9, 3.9920930200069942`*^9}, {3.992093056453413*^9, + 3.9920930826118507`*^9}}, + CellLabel-> + "Out[1552]=",ExpressionUUID->"216c706a-32e0-fd49-994d-3ae640f2421f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[1553]:=",ExpressionUUID->"31697d1f-9262-7a43-8835-84fea6a5bde1"], + +Cell[BoxData["0.5467500000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.9920924239191437`*^9, {3.9920925172603703`*^9, + 3.992092615662058*^9}, {3.9920927955817127`*^9, 3.9920929648444843`*^9}, { + 3.9920929963955345`*^9, 3.992093020037792*^9}, {3.9920930564614754`*^9, + 3.9920930826384926`*^9}}, + CellLabel-> + "Out[1553]=",ExpressionUUID->"2d6e082f-2782-2f49-aeb7-e0e2b230bcfd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[1554]:=",ExpressionUUID->"ac12c312-21aa-fe4a-885c-aa1d0fa92460"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9920924239261475`*^9, {3.9920925172823544`*^9, + 3.9920926156868935`*^9}, {3.9920927955889683`*^9, 3.992092964851986*^9}, { + 3.9920929964025364`*^9, 3.9920930200579166`*^9}, {3.9920930564844856`*^9, + 3.9920930826454887`*^9}}, + CellLabel-> + "Out[1554]=",ExpressionUUID->"5ca721b2-f292-6e4f-afc6-89b6e645e047"] +}, 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[1555]:=",ExpressionUUID->"278915ea-94e6-7749-a23e-931213e43d8e"], + +Cell[BoxData["6.108139416678866`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.9920924239531574`*^9, {3.9920925172885056`*^9, + 3.992092615694437*^9}, {3.992092795615612*^9, 3.9920929648785057`*^9}, { + 3.99209299642354*^9, 3.992093020080536*^9}, {3.992093056491602*^9, + 3.9920930826684914`*^9}}, + CellLabel-> + "Out[1555]=",ExpressionUUID->"39c57ce3-e594-304a-818f-d3260864f834"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[1556]:=",ExpressionUUID->"e2dc64a0-7a88-5749-a1ed-f62740f21486"], + +Cell[BoxData["5.274329694780558`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.992092423960186*^9, {3.9920925173151093`*^9, + 3.9920926157185707`*^9}, {3.9920927956217175`*^9, 3.992092964906679*^9}, { + 3.9920929964335346`*^9, 3.9920930200885353`*^9}, {3.9920930565104904`*^9, + 3.992093082689234*^9}}, + CellLabel-> + "Out[1556]=",ExpressionUUID->"19d3ba96-259a-d94e-9c8d-7fee56ec46a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.776889591781461"}]], "Input", + CellChangeTimes->{3.991799283179735*^9, 3.9920923337072887`*^9}, + CellLabel-> + "In[1557]:=",ExpressionUUID->"04fd393f-0e5f-8142-9b20-9673f101fbb3"], + +Cell[BoxData["0.776889591781461`"], "Output", + CellChangeTimes->{ + 3.992092423990343*^9, {3.9920925173221264`*^9, 3.9920926157241497`*^9}, { + 3.9920927956457157`*^9, 3.992092964933693*^9}, {3.992092996453539*^9, + 3.992093020113638*^9}, {3.992093056528507*^9, 3.992093082697235*^9}}, + CellLabel-> + "Out[1557]=",ExpressionUUID->"207b133b-fa4c-4242-a80a-1fe42d8020ad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.581407431720797"}]], "Input", + CellChangeTimes->{3.991799280663351*^9, 3.9920923380503464`*^9}, + CellLabel-> + "In[1558]:=",ExpressionUUID->"2102324b-f5dd-f648-9404-9b3033a47f3c"], + +Cell[BoxData["0.581407431720797`"], "Output", + CellChangeTimes->{ + 3.992092424013666*^9, {3.9920925173471737`*^9, 3.992092615731226*^9}, { + 3.992092795652767*^9, 3.9920929649666996`*^9}, {3.9920929964595814`*^9, + 3.9920930201207066`*^9}, {3.992093056549488*^9, 3.9920930827184944`*^9}}, + CellLabel-> + "Out[1558]=",ExpressionUUID->"15d641cb-a1d3-584d-bab9-5b98020cb873"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[1559]:=",ExpressionUUID->"2eac6ca1-45d7-ad47-9b45-97a27add738d"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.992092424022188*^9, {3.9920925173531837`*^9, + 3.9920926157588634`*^9}, {3.9920927956776123`*^9, + 3.9920929649736977`*^9}, {3.9920929964887676`*^9, + 3.9920930201447144`*^9}, {3.9920930565736217`*^9, 3.9920930827473965`*^9}}, + CellLabel-> + "Out[1559]=",ExpressionUUID->"2bfd7cbc-2ebb-d340-86ca-cbae7e447b2b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[1560]:=",ExpressionUUID->"acf085ca-bf4b-dd47-99bc-7af124257a7a"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.99209242405435*^9, {3.9920925173801575`*^9, + 3.9920926157839546`*^9}, {3.992092795683565*^9, 3.992092964980709*^9}, { + 3.992092996494766*^9, 3.9920930201517143`*^9}, {3.992093056593773*^9, + 3.992093082771408*^9}}, + CellLabel-> + "Out[1560]=",ExpressionUUID->"db4a42d8-0d8c-8b42-b74b-0fff03920b9f"] +}, 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[1561]:=",ExpressionUUID->"d08d065e-ca14-fd4a-8938-387bf193d734"], + +Cell[BoxData["2.0397870167233085`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.9920924240852013`*^9, {3.992092517402384*^9, + 3.992092615814083*^9}, {3.9920927957096004`*^9, 3.9920929650027065`*^9}, { + 3.992092996519766*^9, 3.992093020174679*^9}, {3.99209305660058*^9, + 3.992093082802458*^9}}, + CellLabel-> + "Out[1561]=",ExpressionUUID->"c7a1ce0a-0c67-8e45-8b3f-1581502eeb48"] +}, 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[1562]:=",ExpressionUUID->"f787f109-4222-0d45-947c-ebe062300742"], + +Cell[BoxData["1.6965844703854613`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.992092424111204*^9, {3.9920925174282036`*^9, + 3.9920926158210907`*^9}, {3.9920927957326183`*^9, + 3.9920929650108223`*^9}, {3.9920929965277767`*^9, + 3.9920930201817207`*^9}, {3.9920930566225815`*^9, 3.9920930828307343`*^9}}, + CellLabel-> + "Out[1562]=",ExpressionUUID->"b326dee0-d023-8a4a-9293-e3a295825f92"] +}, 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[1563]:=",ExpressionUUID->"e5575eaa-6da5-f649-8b21-7709a2b41a35"], + +Cell[BoxData["0.4525799206818347`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.992092424119274*^9, {3.9920925174510517`*^9, + 3.992092615844631*^9}, {3.992092795759413*^9, 3.9920929650365314`*^9}, { + 3.992092996561762*^9, 3.992093020204855*^9}, {3.99209305664777*^9, + 3.9920930828387337`*^9}}, + CellLabel-> + "Out[1563]=",ExpressionUUID->"8d9ac8ad-9185-9b4f-910b-081395203cb2"] +}, 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[1564]:=",ExpressionUUID->"c9e5a272-d098-fa45-87ea-a461af348913"], + +Cell[BoxData[ + RowBox[{"-", "0.14627901466132107`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.992092424141165*^9, {3.9920925174730873`*^9, + 3.9920926158522587`*^9}, {3.9920927957819347`*^9, + 3.9920929650445366`*^9}, {3.9920929965907135`*^9, 3.992093020211878*^9}, { + 3.9920930566693344`*^9, 3.992093082863735*^9}}, + CellLabel-> + "Out[1564]=",ExpressionUUID->"a3bc407a-837d-ac44-b4d0-9581d890719f"] +}, 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[1565]:=",ExpressionUUID->"d1d14813-2c1e-ff4c-b555-39acedba3bd2"], + +Cell[BoxData[ + RowBox[{"-", "0.3067897746750185`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.992092424148676*^9, {3.9920925174800377`*^9, + 3.9920926158790665`*^9}, {3.9920927957879353`*^9, 3.992092965067564*^9}, { + 3.9920929966195316`*^9, 3.992093020237875*^9}, {3.992093056689333*^9, + 3.992093082887562*^9}}, + CellLabel-> + "Out[1565]=",ExpressionUUID->"56a18cc4-3239-2947-8f29-dee8d7b78687"] +}, 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[1566]:=",ExpressionUUID->"d6689c30-7e9c-af48-b442-8b9bb7e319e4"], + +Cell[BoxData["0.5588619635695797`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9920924241740017`*^9, {3.992092517506195*^9, + 3.992092615886593*^9}, {3.992092795809948*^9, 3.9920929650908546`*^9}, { + 3.992092996646963*^9, 3.9920930202454033`*^9}, {3.9920930566973324`*^9, + 3.9920930829164524`*^9}}, + CellLabel-> + "Out[1566]=",ExpressionUUID->"7e80a9ef-939a-8149-9d23-bfb4b1bef0fb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[1567]:=",ExpressionUUID->"fc1ce63e-0857-d144-a98e-7ac2277639be"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9920924241809826`*^9, {3.9920925175332184`*^9, + 3.9920926159109*^9}, {3.992092795831953*^9, 3.9920929651138535`*^9}, { + 3.992092996668474*^9, 3.992093020272644*^9}, {3.992093056717905*^9, + 3.9920930829486275`*^9}}, + CellLabel-> + "Out[1567]=",ExpressionUUID->"e6d7ae19-0859-a147-871f-90bbccf4e7e3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "In[1568]:=",ExpressionUUID->"934a681d-dd2e-eb47-b5d8-3ee404c5ff80"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.992092424206465*^9, {3.9920925175399876`*^9, + 3.9920926159344234`*^9}, {3.992092795838951*^9, 3.9920929651357594`*^9}, { + 3.9920929966934986`*^9, 3.99209302029665*^9}, {3.99209305672542*^9, + 3.9920930829716263`*^9}}, + CellLabel-> + "Out[1568]=",ExpressionUUID->"c86da45b-4576-cb44-bd4f-72b8f9c31c67"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel-> + "In[1569]:=",ExpressionUUID->"7173d4d7-a56a-bb40-a10a-8270aaa57f43"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.992092424234129*^9, {3.992092517566017*^9, + 3.9920926159586544`*^9}, {3.9920927958609962`*^9, + 3.9920929651594734`*^9}, {3.992092996718672*^9, 3.992093020305662*^9}, { + 3.9920930567515335`*^9, 3.992093082996649*^9}}, + CellLabel-> + "Out[1569]=",ExpressionUUID->"cd400eb6-566d-f94b-808d-a117ca277dcb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[1570]:=",ExpressionUUID->"2c1e7dad-eccc-7b48-a2b7-c4fc557d8a96"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.992092424266348*^9, {3.992092517574074*^9, + 3.992092615965214*^9}, {3.992092795889517*^9, 3.9920929651855907`*^9}, { + 3.992092996726671*^9, 3.9920930203267136`*^9}, {3.992093056776457*^9, + 3.992093083021673*^9}}, + CellLabel-> + "Out[1570]=",ExpressionUUID->"811057cd-7241-3b4d-921b-6148d068fc85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[1571]:=",ExpressionUUID->"24c57a68-f570-fb43-9c34-0736c5664fc9"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.992092424273369*^9, {3.9920925176013985`*^9, + 3.992092615998451*^9}, {3.992092795897524*^9, 3.99209296519359*^9}, { + 3.992092996750679*^9, 3.9920930203537235`*^9}, {3.992093056799759*^9, + 3.992093083046667*^9}}, + CellLabel-> + "Out[1571]=",ExpressionUUID->"98c068b0-2635-3947-b859-89c6354bda51"] +}, 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.992092352631197*^9}, + CellLabel-> + "In[1572]:=",ExpressionUUID->"17571f1a-e910-6f44-9d7a-f04cb7735699"], + +Cell[BoxData["64"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.992092424299999*^9, {3.992092517624138*^9, + 3.9920926160050697`*^9}, {3.992092795920538*^9, 3.992092965218601*^9}, { + 3.992092996757696*^9, 3.992093020374735*^9}, {3.9920930568097687`*^9, + 3.992093083054676*^9}}, + CellLabel-> + "Out[1572]=",ExpressionUUID->"d5b66d04-3c79-c743-a660-0f8dd75e7e92"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, 3.9920923570474358`*^9}, + CellLabel-> + "In[1573]:=",ExpressionUUID->"aa3438f7-876d-2442-8f83-5b3bc9eb73cb"], + +Cell[BoxData["30"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.9920924243070126`*^9, {3.99209251763118*^9, + 3.992092616031456*^9}, {3.9920927959265404`*^9, 3.992092965225622*^9}, { + 3.9920929967776775`*^9, 3.992093020382736*^9}, {3.9920930568337727`*^9, + 3.992093083077688*^9}}, + CellLabel-> + "Out[1573]=",ExpressionUUID->"626f13c8-f0b7-e747-9e54-2bf565fb2177"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[1574]:=",ExpressionUUID->"8ef65ad5-ac30-c34e-8c32-948500ac557e"], + +Cell[BoxData["94"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.992092424333185*^9, {3.992092517655279*^9, + 3.9920926160390186`*^9}, {3.992092795952633*^9, 3.992092965246483*^9}, { + 3.992092996803364*^9, 3.9920930204057865`*^9}, {3.992093056858282*^9, + 3.992093083085678*^9}}, + CellLabel-> + "Out[1574]=",ExpressionUUID->"4e5d4f80-57cf-404d-89b3-2a5dfc5210df"] +}, 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[1575]:=",ExpressionUUID->"84a7b0fc-6991-0540-b54b-07d25dd0d5ca"], + +Cell[BoxData["0.10872923345963276`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9920924243572235`*^9, {3.992092517667328*^9, + 3.9920926160661354`*^9}, {3.9920927959597607`*^9, 3.992092965273592*^9}, { + 3.992092996828369*^9, 3.9920930204138546`*^9}, {3.992093056866806*^9, + 3.992093083111456*^9}}, + CellLabel-> + "Out[1575]=",ExpressionUUID->"4b563e2b-4743-e147-acda-62f51c61cc15"] +}, 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[1576]:=",ExpressionUUID->"c49c9c7a-a2d3-ea4e-95a5-7bc7bc816177"], + +Cell[BoxData[ + RowBox[{"-", "2.565919556980472`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.9920924243811493`*^9, {3.9920925176941147`*^9, + 3.992092616073208*^9}, {3.9920927959847507`*^9, 3.9920929652985916`*^9}, { + 3.992092996836376*^9, 3.9920930204444256`*^9}, {3.9920930568897095`*^9, + 3.9920930831194363`*^9}}, + CellLabel-> + "Out[1576]=",ExpressionUUID->"6a961abe-f389-be49-bd89-696f42ca5bc4"] +}, 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[1577]:=",ExpressionUUID->"3c7fc5a9-381c-1a46-a5d8-cd20d5790d09"], + +Cell[BoxData["18.87992353524718`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.9920924244051456`*^9, {3.9920925177193546`*^9, + 3.992092616100073*^9}, {3.9920927959917564`*^9, 3.992092965308607*^9}, { + 3.9920929968593845`*^9, 3.992093020467409*^9}, {3.9920930569185905`*^9, + 3.992093083142683*^9}}, + CellLabel-> + "Out[1577]=",ExpressionUUID->"fe630458-39fb-1c44-a162-f3d75e95c10d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[1578]:=",ExpressionUUID->"b386c402-a05c-f440-a679-2ae85b839950"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.992092424412163*^9, {3.9920925177291546`*^9, + 3.992092616126276*^9}, {3.992092796015764*^9, 3.9920929653326607`*^9}, { + 3.9920929968708153`*^9, 3.992093020496603*^9}, {3.992093056938593*^9, + 3.9920930831506824`*^9}}, + CellLabel-> + "Out[1578]=",ExpressionUUID->"84a27068-b5b6-614f-9308-0f59df61d380"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.362"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, + 3.9920923643154297`*^9}, + CellLabel-> + "In[1579]:=",ExpressionUUID->"d4c58116-53cb-c649-959d-61e1241dd134"], + +Cell[BoxData["1.362`"], "Output", + CellChangeTimes->{ + 3.9920924244360676`*^9, {3.992092517751152*^9, 3.9920926161342983`*^9}, { + 3.992092796022789*^9, 3.9920929653398457`*^9}, {3.9920929968917847`*^9, + 3.9920930205193768`*^9}, {3.992093056964657*^9, 3.9920930831736813`*^9}}, + CellLabel-> + "Out[1579]=",ExpressionUUID->"b47382f9-2663-8c49-b12b-cc25d11b62db"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[1580]:=",ExpressionUUID->"a0a604ec-216d-7a44-90eb-105b817bba49"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.795"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, + 3.992092367948057*^9}, + CellLabel-> + "In[1581]:=",ExpressionUUID->"4312c330-2673-0140-98bc-0908750d86a7"], + +Cell[BoxData["0.795`"], "Output", + CellChangeTimes->{ + 3.9920924244671745`*^9, {3.9920925177601814`*^9, 3.9920926161603107`*^9}, { + 3.9920927960489674`*^9, 3.9920929653658905`*^9}, {3.992092996901783*^9, + 3.9920930205454807`*^9}, {3.992093056990692*^9, 3.9920930831836834`*^9}}, + CellLabel-> + "Out[1581]=",ExpressionUUID->"b2ad1ef1-85bd-1c40-bc1d-37e187230d44"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[1582]:=",ExpressionUUID->"465437ad-9c89-a74c-acdd-391d57d52463"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv1", "=", "2.204"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, + 3.9920923714363804`*^9}, + CellLabel-> + "In[1583]:=",ExpressionUUID->"e4dde26e-6cd1-1945-a46f-0f1499eb132b"], + +Cell[BoxData["2.204`"], "Output", + CellChangeTimes->{ + 3.9920924244911957`*^9, {3.992092517786337*^9, 3.9920926161872025`*^9}, { + 3.992092796077503*^9, 3.9920929653893967`*^9}, {3.9920929969247704`*^9, + 3.992093020555729*^9}, {3.9920930570177917`*^9, 3.992093083208723*^9}}, + CellLabel-> + "Out[1583]=",ExpressionUUID->"8ba71dd1-0b73-6241-8bd5-e4d40b426335"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[1584]:=",ExpressionUUID->"52be8323-86a8-414a-89e1-e2f6fe236b3c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.070"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, 3.9920923750354595`*^9}, + CellLabel-> + "In[1585]:=",ExpressionUUID->"54ebbbb2-fe94-a14a-9bc1-76bb81203049"], + +Cell[BoxData["1.07`"], "Output", + CellChangeTimes->{ + 3.9920924245191975`*^9, {3.9920925178121643`*^9, 3.9920926162159557`*^9}, { + 3.992092796104519*^9, 3.9920929654147778`*^9}, {3.9920929969487724`*^9, + 3.992093020581457*^9}, {3.9920930570267944`*^9, 3.992093083235735*^9}}, + CellLabel-> + "Out[1585]=",ExpressionUUID->"e7b523cd-6cec-964c-9b51-20336c9933f2"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[1586]:=",ExpressionUUID->"dc4101d5-bdbf-9f45-bb53-50ff319e8dc1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"v2", "=", "0.938"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, 3.992092378674286*^9}, + CellLabel-> + "In[1587]:=",ExpressionUUID->"5f1c1532-799e-724a-91ea-edd90246379d"], + +Cell[BoxData["0.938`"], "Output", + CellChangeTimes->{ + 3.9920924245433064`*^9, {3.9920925178372326`*^9, 3.9920926162431374`*^9}, { + 3.992092796130512*^9, 3.9920929654385223`*^9}, {3.992092996973612*^9, + 3.992093020606451*^9}, {3.992093057050337*^9, 3.9920930832457333`*^9}}, + CellLabel-> + "Out[1587]=",ExpressionUUID->"7486e044-83da-734b-a3f3-1e037d0fe886"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[1588]:=",ExpressionUUID->"454ddad1-afc7-b947-a9b4-fe96a28d89ad"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.739"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, 3.9920923820487957`*^9}, + CellLabel-> + "In[1589]:=",ExpressionUUID->"4a19f10a-8124-4942-b4ad-1945e22c6f48"], + +Cell[BoxData["0.739`"], "Output", + CellChangeTimes->{ + 3.9920924245712776`*^9, {3.992092517868086*^9, 3.9920926162719116`*^9}, { + 3.992092796153553*^9, 3.9920929654498425`*^9}, {3.992092996998516*^9, + 3.992093020631668*^9}, {3.992093057076357*^9, 3.9920930832708435`*^9}}, + CellLabel-> + "Out[1589]=",ExpressionUUID->"75417556-8fea-f04b-9007-dbb83efaea86"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[1590]:=",ExpressionUUID->"827f57dc-8457-9e42-a456-16bbd18ed19f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv2", "=", "1.318"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, 3.992092385442354*^9}, + CellLabel-> + "In[1591]:=",ExpressionUUID->"1669d333-27d8-4d4f-9d99-2f3609cd1efd"], + +Cell[BoxData["1.318`"], "Output", + CellChangeTimes->{ + 3.992092424600256*^9, {3.9920925178950996`*^9, 3.9920926162988586`*^9}, { + 3.9920927961825104`*^9, 3.992092965474863*^9}, {3.9920929970216312`*^9, + 3.9920930206588135`*^9}, {3.992093057101387*^9, 3.992093083297676*^9}}, + CellLabel-> + "Out[1591]=",ExpressionUUID->"51e85603-9095-5b4e-bbb2-a4bbe46a2a4e"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[1592]:=",ExpressionUUID->"5ec2ebf8-50da-bb43-8a45-a66e6034406f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn2", "=", "0.948"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, 3.992092389548071*^9}, + CellLabel-> + "In[1593]:=",ExpressionUUID->"ca268b66-3651-5f41-9bfb-1edb5fab84cf"], + +Cell[BoxData["0.948`"], "Output", + CellChangeTimes->{ + 3.9920924246278687`*^9, {3.9920925179191475`*^9, 3.9920926163079185`*^9}, { + 3.992092796204502*^9, 3.992092965499399*^9}, {3.9920929970485687`*^9, + 3.99209302068668*^9}, {3.99209305712838*^9, 3.992093083307684*^9}}, + CellLabel-> + "Out[1593]=",ExpressionUUID->"43d7150c-c303-cb46-bbd2-64247aa837ee"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[1594]:=",ExpressionUUID->"db1703e9-7aa8-fc4a-b358-f60e69500e07"], + +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[1595]:=",ExpressionUUID->"38f92d65-b185-5a47-ba8f-fc68f1062590"], + +Cell[BoxData["0.23853606466317218`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.9920924246760044`*^9, {3.9920925179775143`*^9, + 3.9920926163632183`*^9}, {3.992092796244623*^9, 3.9920929655537834`*^9}, { + 3.992092997089651*^9, 3.9920930207385387`*^9}, {3.992093057173485*^9, + 3.9920930833603687`*^9}}, + CellLabel-> + "Out[1595]=",ExpressionUUID->"cb6c4a96-4128-d949-96c9-87cb62169ae6"] +}, 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[1596]:=",ExpressionUUID->"d544da33-cb1a-4f44-8266-8c0ef48c07e7"], + +Cell[BoxData["1.1621646878049277`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9920924247221813`*^9, {3.992092518021105*^9, + 3.992092616403429*^9}, {3.9920927962806664`*^9, 3.9920929655928*^9}, { + 3.992092997126686*^9, 3.992093020775572*^9}, {3.99209305721846*^9, + 3.9920930834024544`*^9}}, + CellLabel-> + "Out[1596]=",ExpressionUUID->"e190edb5-9299-804d-8704-f4631328ce95"] +}, 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[1597]:=",ExpressionUUID->"ba588667-7a59-e249-b547-cd25c2250f2f"], + +Cell[BoxData[ + RowBox[{"-", "11.54880477030602`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.9920924247643623`*^9, {3.9920925180570297`*^9, + 3.992092616442415*^9}, {3.99209279631579*^9, 3.9920929656287766`*^9}, { + 3.9920929971636944`*^9, 3.992093020811638*^9}, {3.992093057256893*^9, + 3.9920930834404774`*^9}}, + CellLabel-> + "Out[1597]=",ExpressionUUID->"5d07db23-1a33-ff47-9130-eaf7fe920e13"] +}, 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[1598]:=",ExpressionUUID->"e8aae839-0896-fd4d-a916-90fb1cf15914"], + +Cell[BoxData[ + RowBox[{"-", "19.77600599831311`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.9920924248567066`*^9, {3.9920925181035156`*^9, + 3.99209261648604*^9}, {3.9920927963639317`*^9, 3.9920929656716843`*^9}, { + 3.9920929972087193`*^9, 3.992093020858343*^9}, {3.9920930573004055`*^9, + 3.9920930834844856`*^9}}, + CellLabel-> + "Out[1598]=",ExpressionUUID->"3618f2b8-1e68-774f-957c-38b61866b54a"] +}, 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[1599]:=",ExpressionUUID->"9927dafa-b66b-6343-9ac5-4bb4908773a9"], + +Cell[BoxData[ + RowBox[{"-", "30.58059117523105`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.992092424909916*^9, {3.9920925181461334`*^9, + 3.9920926165285892`*^9}, {3.9920927964064484`*^9, + 3.9920929657136993`*^9}, {3.99209299725375*^9, 3.992093020905369*^9}, { + 3.9920930573464146`*^9, 3.992093083528572*^9}}, + CellLabel-> + "Out[1599]=",ExpressionUUID->"de15d07f-1a2b-1542-b97b-f532e95da23a"] +}, 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[1600]:=",ExpressionUUID->"497aa974-fa28-8940-82a6-a1bf7ec0bb01"], + +Cell[BoxData[ + RowBox[{"-", "105.09350269202939`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.9920924249671135`*^9, {3.992092518197281*^9, + 3.992092616578083*^9}, {3.992092796458473*^9, 3.992092965763729*^9}, { + 3.992092997304306*^9, 3.9920930209554005`*^9}, {3.9920930573954678`*^9, + 3.992093083597994*^9}}, + CellLabel-> + "Out[1600]=",ExpressionUUID->"48a86c80-df7a-9942-b48a-f05a6398ee57"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[1601]:=",ExpressionUUID->"92b0a3ab-aacb-c34a-951e-1253702509e4"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.992092424988882*^9, {3.9920925182220745`*^9, + 3.9920926166009426`*^9}, {3.9920927964825535`*^9, 3.992092965791752*^9}, { + 3.9920929973323193`*^9, 3.9920930209844055`*^9}, {3.9920930574224644`*^9, + 3.992093083606518*^9}}, + CellLabel-> + "Out[1601]=",ExpressionUUID->"bfc8e57f-37f1-fd4f-be86-d2e490d6b7c5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[1602]:=",ExpressionUUID->"fbb71a59-954d-4849-be88-18e21b3ef877"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.9920924249969025`*^9, {3.9920925182290916`*^9, + 3.9920926166340294`*^9}, {3.9920927965035686`*^9, 3.992092965815735*^9}, { + 3.9920929973413277`*^9, 3.992093021007929*^9}, {3.9920930574444923`*^9, + 3.9920930836334076`*^9}}, + CellLabel-> + "Out[1602]=",ExpressionUUID->"91c3d388-f36d-e54d-8ec0-c1a3be50d30f"] +}, 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[1603]:=",ExpressionUUID->"3fe374f1-2c9f-4e4b-8c35-cc86e1377955"], + +Cell[BoxData["50.79485995775785`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9920924250203743`*^9, {3.9920925182541103`*^9, + 3.992092616658106*^9}, {3.992092796530678*^9, 3.9920929658470783`*^9}, { + 3.9920929973643227`*^9, 3.992093021036476*^9}, {3.992093057470501*^9, + 3.992093083664322*^9}}, + CellLabel-> + "Out[1603]=",ExpressionUUID->"b24be3a0-1742-654f-94d4-6af9272ac6dd"] +}, 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[1604]:=",ExpressionUUID->"229a361a-f1c7-854c-99d2-c2c0e7119461"], + +Cell[BoxData[ + RowBox[{"-", "39.807512260788336`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.9920924250287895`*^9, {3.992092518261135*^9, + 3.9920926166661263`*^9}, {3.992092796553686*^9, 3.992092965855587*^9}, { + 3.992092997385847*^9, 3.9920930210664825`*^9}, {3.9920930574785194`*^9, + 3.9920930836908455`*^9}}, + CellLabel-> + "Out[1604]=",ExpressionUUID->"65b135fb-0240-9445-a525-27e86ccbe017"] +}, 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[1605]:=",ExpressionUUID->"3a19a933-18b0-1d4d-a27f-6dee4d9fb01b"], + +Cell[BoxData["55.47457091262591`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9920924250533905`*^9, {3.9920925182831707`*^9, + 3.9920926166888447`*^9}, {3.992092796576765*^9, 3.992092965880436*^9}, { + 3.992092997412588*^9, 3.992093021074486*^9}, {3.992093057501501*^9, + 3.9920930837153435`*^9}}, + CellLabel-> + "Out[1605]=",ExpressionUUID->"fad2066c-cec5-3d41-9cc8-1e687fc18bf0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[1606]:=",ExpressionUUID->"f5dbb0b6-0bb9-2d41-932c-e2bd59c457bd"], + +Cell[BoxData["0.4525799206818347`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.9920924250769863`*^9, {3.992092518290186*^9, + 3.9920926166969337`*^9}, {3.992092796599745*^9, 3.9920929659136524`*^9}, { + 3.9920929974355965`*^9, 3.992093021109741*^9}, {3.992093057526634*^9, + 3.992093083742384*^9}}, + CellLabel-> + "Out[1606]=",ExpressionUUID->"63586fc1-ff2d-d54e-bfb2-dc0286194e7e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[1607]:=",ExpressionUUID->"202ba0b2-ed44-8943-819b-fd8d799e9ff4"], + +Cell[BoxData[ + RowBox[{"-", "0.14627901466132107`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.992092425085251*^9, {3.9920925183123817`*^9, + 3.992092616720148*^9}, {3.992092796621517*^9, 3.9920929659406376`*^9}, { + 3.9920929974485817`*^9, 3.9920930211177807`*^9}, {3.9920930575493755`*^9, + 3.992093083766514*^9}}, + CellLabel-> + "Out[1607]=",ExpressionUUID->"32e2d2a6-694f-e047-a723-1001fe8af4c7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[1608]:=",ExpressionUUID->"0c7930f6-7a14-0140-8c72-b4d70e7ef439"], + +Cell[BoxData[ + RowBox[{"-", "0.3067897746750185`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.992092425109461*^9, {3.9920925183188953`*^9, + 3.9920926167479305`*^9}, {3.992092796644417*^9, 3.9920929659693794`*^9}, { + 3.9920929974695816`*^9, 3.9920930211443024`*^9}, {3.9920930575783825`*^9, + 3.9920930837753963`*^9}}, + CellLabel-> + "Out[1608]=",ExpressionUUID->"22595b3c-f75e-4a46-b771-0f4991774cf3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[1609]:=",ExpressionUUID->"31992bd7-2e5c-f44e-9e3d-3b0c7fa0cce8"], + +Cell[BoxData["0.5588619635695797`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.992092425140007*^9, {3.9920925183433113`*^9, + 3.9920926167768955`*^9}, {3.99209279665242*^9, 3.992092965997463*^9}, { + 3.9920929974956074`*^9, 3.992093021153307*^9}, {3.9920930575873737`*^9, + 3.9920930837992496`*^9}}, + CellLabel-> + "Out[1609]=",ExpressionUUID->"d0cb70ce-97ce-9343-a9a2-ba6265aac5de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[1610]:=",ExpressionUUID->"5cc88883-08e9-6442-878b-8739832bdd7f"], + +Cell[BoxData["2.0397870167233085`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.9920924251485367`*^9, {3.9920925183502617`*^9, + 3.992092616801161*^9}, {3.992092796675625*^9, 3.992092966020483*^9}, { + 3.992092997519621*^9, 3.9920930211783123`*^9}, {3.992093057612406*^9, + 3.992093083807356*^9}}, + CellLabel-> + "Out[1610]=",ExpressionUUID->"4ac8e3f7-9ca5-ee48-b36c-c1e1cbb198d8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[1611]:=",ExpressionUUID->"01a7198e-cf39-e944-8d89-ea6dc2ae3378"], + +Cell[BoxData["1.6965844703854613`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.9920924251731644`*^9, {3.992092518390991*^9, + 3.992092616809025*^9}, {3.992092796682625*^9, 3.9920929660454655`*^9}, { + 3.992092997546631*^9, 3.992093021206312*^9}, {3.9920930576354465`*^9, + 3.9920930838346233`*^9}}, + CellLabel-> + "Out[1611]=",ExpressionUUID->"bed60351-5aee-c94f-a386-22d2e961fb6e"] +}, 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[1612]:=",ExpressionUUID->"1fdecdbf-ce3b-f34a-a810-309424452804"], + +Cell[BoxData[ + RowBox[{"-", "21.092736551945727`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.9920924251813374`*^9, {3.9920925184000015`*^9, + 3.9920926168329926`*^9}, {3.992092796713726*^9, 3.9920929660694675`*^9}, { + 3.992092997555647*^9, 3.992093021215063*^9}, {3.9920930576579895`*^9, + 3.992093083860649*^9}}, + CellLabel-> + "Out[1612]=",ExpressionUUID->"e7ffd43b-f16b-4a4e-b9fc-de38bc69e074"] +}, 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[1613]:=",ExpressionUUID->"98431912-2d3e-f341-8078-94d2ab80cd4a"], + +Cell[BoxData[ + RowBox[{"-", "10.70666087171256`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.992092425203964*^9, {3.992092518424059*^9, + 3.992092616841175*^9}, {3.992092796739727*^9, 3.992092966097471*^9}, { + 3.992092997577677*^9, 3.9920930212386017`*^9}, {3.9920930576665287`*^9, + 3.992093083870682*^9}}, + CellLabel-> + "Out[1613]=",ExpressionUUID->"eb02b3cc-9468-e343-9c80-889e0893c599"] +}, 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[1614]:=",ExpressionUUID->"ab5082ed-9355-f947-826c-b10468227f63"], + +Cell[BoxData["29.702123405812124`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.99209242521216*^9, {3.992092518431139*^9, + 3.992092616869858*^9}, {3.9920927967650204`*^9, 3.9920929661054707`*^9}, { + 3.99209299758585*^9, 3.992093021262615*^9}, {3.992093057691532*^9, + 3.992093083897995*^9}}, + CellLabel-> + "Out[1614]=",ExpressionUUID->"40c2d35d-d682-4b4f-8925-ada040d853ce"] +}, 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[1615]:=",ExpressionUUID->"63f90936-bc73-064a-b1a7-461c74db6955"], + +Cell[BoxData[ + RowBox[{"-", "39.807512260788336`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.9920924252399826`*^9, {3.9920925184532547`*^9, + 3.9920926168974247`*^9}, {3.992092796772524*^9, 3.992092966127367*^9}, { + 3.992092997616436*^9, 3.992093021286625*^9}, {3.9920930577172832`*^9, + 3.9920930839314575`*^9}}, + CellLabel-> + "Out[1615]=",ExpressionUUID->"b98ed7f1-1335-3040-b8d7-8769ace6a1de"] +}, 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[1616]:=",ExpressionUUID->"920dc319-0fc4-844d-ae23-2e9deb8a4d12"], + +Cell[BoxData["44.76791004091335`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.9920924252641563`*^9, {3.9920925184652615`*^9, + 3.992092616924053*^9}, {3.992092796799511*^9, 3.9920929661654415`*^9}, { + 3.992092997645611*^9, 3.9920930213107224`*^9}, {3.9920930577272816`*^9, + 3.9920930839574585`*^9}}, + CellLabel-> + "Out[1616]=",ExpressionUUID->"5d79c4b0-4f3a-0a4c-ae34-f0f32cdb1b5b"] +}, 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[1617]:=",ExpressionUUID->"6d508492-df09-7148-803d-bcf469445232"], + +Cell[BoxData["0.017639944695631016`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.992092425272375*^9, {3.9920925184886303`*^9, + 3.9920926169319496`*^9}, {3.992092796807514*^9, 3.992092966188612*^9}, { + 3.9920929976776257`*^9, 3.99209302132073*^9}, {3.9920930577495594`*^9, + 3.9920930839824753`*^9}}, + CellLabel-> + "Out[1617]=",ExpressionUUID->"ec14daec-8c58-0c45-a912-ae4addd411fe"] +}, 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[1618]:=",ExpressionUUID->"66014b3e-1ae3-d244-a075-07ef14184504"], + +Cell[BoxData["198.48274307805877`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.9920924252972507`*^9, {3.99209251849621*^9, + 3.9920926169568806`*^9}, {3.99209279683144*^9, 3.9920929661966133`*^9}, { + 3.992092997701681*^9, 3.992093021346737*^9}, {3.9920930577580833`*^9, + 3.9920930839966183`*^9}}, + CellLabel-> + "Out[1618]=",ExpressionUUID->"80aaf6de-0342-6f43-aae8-3c615ecc6028"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.31253560157329"}]], "Input", + CellChangeTimes->{3.9918501413985214`*^9, + 3.992093444914774*^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", "=", "0.356762932165258"}]], "Input", + CellChangeTimes->{3.9918501402114105`*^9, + 3.9920934493002834`*^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[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.131906"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.092238"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.135383"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.172743"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.117679"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.094793"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.075876"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.054298"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.038669"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.027641"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.018887"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.013232"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.008805"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.0061"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.003941"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.002757"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.001714"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.00123"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.000717"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.000544"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.000282"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.000244"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.000099"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.000114"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.000026"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.000032"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.000019"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.000013"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.000007"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.000005"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.000002"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.992093385602083*^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[CellGroupData[{ +Cell[576, 22, 435, 8, 28, "Input",ExpressionUUID->"742a3a56-2cde-af46-ab2c-a1a35a8158a9"], +Cell[1014, 32, 391, 7, 32, "Output",ExpressionUUID->"6b75ed5e-afb5-f34c-a6ee-7a81e84d1bfe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1442, 44, 254, 5, 28, "Input",ExpressionUUID->"e5bbee1c-06ce-814e-ab76-58e8f1fd5db8"], +Cell[1699, 51, 395, 7, 32, "Output",ExpressionUUID->"fdb1ec2e-9d37-1646-a587-01d33e20fd90"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2131, 63, 231, 5, 28, "Input",ExpressionUUID->"43f451fe-e5b7-1541-9c11-586434a67271"], +Cell[2365, 70, 391, 7, 32, "Output",ExpressionUUID->"46202611-4321-f54f-8d85-a717a03f34f5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2793, 82, 181, 4, 28, "Input",ExpressionUUID->"475ac420-b3eb-3b4b-819c-65afcf17ccca"], +Cell[2977, 88, 393, 7, 32, "Output",ExpressionUUID->"216c706a-32e0-fd49-994d-3ae640f2421f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3407, 100, 263, 8, 43, "Input",ExpressionUUID->"31697d1f-9262-7a43-8835-84fea6a5bde1"], +Cell[3673, 110, 409, 7, 32, "Output",ExpressionUUID->"2d6e082f-2782-2f49-aeb7-e0e2b230bcfd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4119, 122, 137, 3, 28, "Input",ExpressionUUID->"ac12c312-21aa-fe4a-885c-aa1d0fa92460"], +Cell[4259, 127, 397, 7, 32, "Output",ExpressionUUID->"5ca721b2-f292-6e4f-afc6-89b6e645e047"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4693, 139, 282, 7, 28, "Input",ExpressionUUID->"278915ea-94e6-7749-a23e-931213e43d8e"], +Cell[4978, 148, 401, 7, 32, "Output",ExpressionUUID->"39c57ce3-e594-304a-818f-d3260864f834"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5416, 160, 263, 8, 28, "Input",ExpressionUUID->"e2dc64a0-7a88-5749-a1ed-f62740f21486"], +Cell[5682, 170, 406, 7, 32, "Output",ExpressionUUID->"19d3ba96-259a-d94e-9c8d-7fee56ec46a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6125, 182, 216, 4, 28, "Input",ExpressionUUID->"04fd393f-0e5f-8142-9b20-9673f101fbb3"], +Cell[6344, 188, 372, 6, 32, "Output",ExpressionUUID->"207b133b-fa4c-4242-a80a-1fe42d8020ad"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6753, 199, 216, 4, 28, "Input",ExpressionUUID->"2102324b-f5dd-f648-9404-9b3033a47f3c"], +Cell[6972, 205, 376, 6, 32, "Output",ExpressionUUID->"15d641cb-a1d3-584d-bab9-5b98020cb873"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7385, 216, 134, 3, 28, "Input",ExpressionUUID->"2eac6ca1-45d7-ad47-9b45-97a27add738d"], +Cell[7522, 221, 393, 7, 36, "Output",ExpressionUUID->"2bfd7cbc-2ebb-d340-86ca-cbae7e447b2b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7952, 233, 134, 3, 33, "Input",ExpressionUUID->"acf085ca-bf4b-dd47-99bc-7af124257a7a"], +Cell[8089, 238, 382, 7, 36, "Output",ExpressionUUID->"db4a42d8-0d8c-8b42-b74b-0fff03920b9f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8508, 250, 562, 20, 76, "Input",ExpressionUUID->"d08d065e-ca14-fd4a-8938-387bf193d734"], +Cell[9073, 272, 400, 7, 36, "Output",ExpressionUUID->"c7a1ce0a-0c67-8e45-8b3f-1581502eeb48"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9510, 284, 562, 20, 76, "Input",ExpressionUUID->"f787f109-4222-0d45-947c-ebe062300742"], +Cell[10075, 306, 411, 7, 36, "Output",ExpressionUUID->"b326dee0-d023-8a4a-9293-e3a295825f92"] +}, Open ]], +Cell[CellGroupData[{ +Cell[10523, 318, 1497, 49, 76, "Input",ExpressionUUID->"e5575eaa-6da5-f649-8b21-7709a2b41a35"], +Cell[12023, 369, 398, 7, 36, "Output",ExpressionUUID->"8d9ac8ad-9185-9b4f-910b-081395203cb2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[12458, 381, 1336, 45, 76, "Input",ExpressionUUID->"c9e5a272-d098-fa45-87ea-a461af348913"], +Cell[13797, 428, 423, 8, 36, "Output",ExpressionUUID->"a3bc407a-837d-ac44-b4d0-9581d890719f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14257, 441, 1336, 45, 76, "Input",ExpressionUUID->"d1d14813-2c1e-ff4c-b555-39acedba3bd2"], +Cell[15596, 488, 420, 8, 36, "Output",ExpressionUUID->"56a18cc4-3239-2947-8f29-dee8d7b78687"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16053, 501, 1497, 49, 76, "Input",ExpressionUUID->"d6689c30-7e9c-af48-b442-8b9bb7e319e4"], +Cell[17553, 552, 401, 7, 36, "Output",ExpressionUUID->"7e80a9ef-939a-8149-9d23-bfb4b1bef0fb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[17991, 564, 136, 3, 33, "Input",ExpressionUUID->"fc1ce63e-0857-d144-a98e-7ac2277639be"], +Cell[18130, 569, 383, 7, 36, "Output",ExpressionUUID->"e6d7ae19-0859-a147-871f-90bbccf4e7e3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18550, 581, 138, 3, 33, "Input",ExpressionUUID->"934a681d-dd2e-eb47-b5d8-3ee404c5ff80"], +Cell[18691, 586, 387, 7, 36, "Output",ExpressionUUID->"c86da45b-4576-cb44-bd4f-72b8f9c31c67"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19115, 598, 139, 3, 33, "Input",ExpressionUUID->"7173d4d7-a56a-bb40-a10a-8270aaa57f43"], +Cell[19257, 603, 389, 7, 36, "Output",ExpressionUUID->"cd400eb6-566d-f94b-808d-a117ca277dcb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19683, 615, 224, 5, 33, "Input",ExpressionUUID->"2c1e7dad-eccc-7b48-a2b7-c4fc557d8a96"], +Cell[19910, 622, 398, 8, 36, "Output",ExpressionUUID->"811057cd-7241-3b4d-921b-6148d068fc85"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20345, 635, 139, 3, 33, "Input",ExpressionUUID->"24c57a68-f570-fb43-9c34-0736c5664fc9"], +Cell[20487, 640, 384, 7, 36, "Output",ExpressionUUID->"98c068b0-2635-3947-b859-89c6354bda51"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20908, 652, 303, 6, 33, "Input",ExpressionUUID->"17571f1a-e910-6f44-9d7a-f04cb7735699"], +Cell[21214, 660, 382, 7, 36, "Output",ExpressionUUID->"d5b66d04-3c79-c743-a660-0f8dd75e7e92"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21633, 672, 279, 6, 33, "Input",ExpressionUUID->"aa3438f7-876d-2442-8f83-5b3bc9eb73cb"], +Cell[21915, 680, 385, 7, 36, "Output",ExpressionUUID->"626f13c8-f0b7-e747-9e54-2bf565fb2177"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22337, 692, 224, 5, 33, "Input",ExpressionUUID->"8ef65ad5-ac30-c34e-8c32-948500ac557e"], +Cell[22564, 699, 380, 7, 36, "Output",ExpressionUUID->"4e5d4f80-57cf-404d-89b3-2a5dfc5210df"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22981, 711, 355, 11, 46, "Input",ExpressionUUID->"84a7b0fc-6991-0540-b54b-07d25dd0d5ca"], +Cell[23339, 724, 404, 7, 36, "Output",ExpressionUUID->"4b563e2b-4743-e147-acda-62f51c61cc15"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23780, 736, 355, 11, 46, "Input",ExpressionUUID->"c49c9c7a-a2d3-ea4e-95a5-7bc7bc816177"], +Cell[24138, 749, 425, 8, 36, "Output",ExpressionUUID->"6a961abe-f389-be49-bd89-696f42ca5bc4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24600, 762, 999, 27, 103, "Input",ExpressionUUID->"3c7fc5a9-381c-1a46-a5d8-cd20d5790d09"], +Cell[25602, 791, 404, 7, 36, "Output",ExpressionUUID->"fe630458-39fb-1c44-a162-f3d75e95c10d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26043, 803, 204, 4, 33, "Input",ExpressionUUID->"b386c402-a05c-f440-a679-2ae85b839950"], +Cell[26250, 809, 385, 7, 36, "Output",ExpressionUUID->"84a27068-b5b6-614f-9308-0f59df61d380"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26672, 821, 310, 6, 33, "Input",ExpressionUUID->"d4c58116-53cb-c649-959d-61e1241dd134"], +Cell[26985, 829, 366, 6, 36, "Output",ExpressionUUID->"b47382f9-2663-8c49-b12b-cc25d11b62db"] +}, Open ]], +Cell[27366, 838, 178, 3, 33, "Input",ExpressionUUID->"a0a604ec-216d-7a44-90eb-105b817bba49"], +Cell[CellGroupData[{ +Cell[27569, 845, 308, 6, 33, "Input",ExpressionUUID->"4312c330-2673-0140-98bc-0908750d86a7"], +Cell[27880, 853, 368, 6, 36, "Output",ExpressionUUID->"b2ad1ef1-85bd-1c40-bc1d-37e187230d44"] +}, Open ]], +Cell[28263, 862, 178, 3, 33, "Input",ExpressionUUID->"465437ad-9c89-a74c-acdd-391d57d52463"], +Cell[CellGroupData[{ +Cell[28466, 869, 330, 7, 49, "Input",ExpressionUUID->"e4dde26e-6cd1-1945-a46f-0f1499eb132b"], +Cell[28799, 878, 364, 6, 36, "Output",ExpressionUUID->"8ba71dd1-0b73-6241-8bd5-e4d40b426335"] +}, Open ]], +Cell[29178, 887, 178, 3, 33, "Input",ExpressionUUID->"52be8323-86a8-414a-89e1-e2f6fe236b3c"], +Cell[CellGroupData[{ +Cell[29381, 894, 335, 6, 33, "Input",ExpressionUUID->"54ebbbb2-fe94-a14a-9bc1-76bb81203049"], +Cell[29719, 902, 365, 6, 36, "Output",ExpressionUUID->"e7b523cd-6cec-964c-9b51-20336c9933f2"] +}, Open ]], +Cell[30099, 911, 176, 3, 33, "Input",ExpressionUUID->"dc4101d5-bdbf-9f45-bb53-50ff319e8dc1"], +Cell[CellGroupData[{ +Cell[30300, 918, 295, 6, 49, "Input",ExpressionUUID->"5f1c1532-799e-724a-91ea-edd90246379d"], +Cell[30598, 926, 364, 6, 36, "Output",ExpressionUUID->"7486e044-83da-734b-a3f3-1e037d0fe886"] +}, Open ]], +Cell[30977, 935, 176, 3, 33, "Input",ExpressionUUID->"454ddad1-afc7-b947-a9b4-fe96a28d89ad"], +Cell[CellGroupData[{ +Cell[31178, 942, 282, 5, 33, "Input",ExpressionUUID->"4a19f10a-8124-4942-b4ad-1945e22c6f48"], +Cell[31463, 949, 362, 6, 36, "Output",ExpressionUUID->"75417556-8fea-f04b-9007-dbb83efaea86"] +}, Open ]], +Cell[31840, 958, 178, 3, 33, "Input",ExpressionUUID->"827f57dc-8457-9e42-a456-16bbd18ed19f"], +Cell[CellGroupData[{ +Cell[32043, 965, 302, 6, 49, "Input",ExpressionUUID->"1669d333-27d8-4d4f-9d99-2f3609cd1efd"], +Cell[32348, 973, 364, 6, 36, "Output",ExpressionUUID->"51e85603-9095-5b4e-bbb2-a4bbe46a2a4e"] +}, Open ]], +Cell[32727, 982, 177, 3, 33, "Input",ExpressionUUID->"5ec2ebf8-50da-bb43-8a45-a66e6034406f"], +Cell[CellGroupData[{ +Cell[32929, 989, 275, 6, 49, "Input",ExpressionUUID->"ca268b66-3651-5f41-9bfb-1edb5fab84cf"], +Cell[33207, 997, 360, 6, 36, "Output",ExpressionUUID->"43d7150c-c303-cb46-bbd2-64247aa837ee"] +}, Open ]], +Cell[33582, 1006, 180, 3, 33, "Input",ExpressionUUID->"db1703e9-7aa8-fc4a-b358-f60e69500e07"], +Cell[CellGroupData[{ +Cell[33787, 1013, 19814, 486, 1564, "Input",ExpressionUUID->"38f92d65-b185-5a47-ba8f-fc68f1062590"], +Cell[53604, 1501, 406, 7, 36, "Output",ExpressionUUID->"cb6c4a96-4128-d949-96c9-87cb62169ae6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[54047, 1513, 19753, 490, 1590, "Input",ExpressionUUID->"d544da33-cb1a-4f44-8266-8c0ef48c07e7"], +Cell[73803, 2005, 396, 7, 36, "Output",ExpressionUUID->"e190edb5-9299-804d-8704-f4631328ce95"] +}, Open ]], +Cell[CellGroupData[{ +Cell[74236, 2017, 19753, 484, 1583, "Input",ExpressionUUID->"ba588667-7a59-e249-b547-cd25c2250f2f"], +Cell[93992, 2503, 418, 8, 36, "Output",ExpressionUUID->"5d07db23-1a33-ff47-9130-eaf7fe920e13"] +}, Open ]], +Cell[CellGroupData[{ +Cell[94447, 2516, 22539, 554, 1778, "Input",ExpressionUUID->"e8aae839-0896-fd4d-a916-90fb1cf15914"], +Cell[116989, 3072, 422, 8, 36, "Output",ExpressionUUID->"3618f2b8-1e68-774f-957c-38b61866b54a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[117448, 3085, 22540, 554, 1784, "Input",ExpressionUUID->"9927dafa-b66b-6343-9ac5-4bb4908773a9"], +Cell[139991, 3641, 420, 8, 36, "Output",ExpressionUUID->"de15d07f-1a2b-1542-b97b-f532e95da23a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[140448, 3654, 25496, 627, 1995, "Input",ExpressionUUID->"497aa974-fa28-8940-82a6-a1bf7ec0bb01"], +Cell[165947, 4283, 416, 8, 36, "Output",ExpressionUUID->"48a86c80-df7a-9942-b48a-f05a6398ee57"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166400, 4296, 135, 3, 33, "Input",ExpressionUUID->"92b0a3ab-aacb-c34a-951e-1253702509e4"], +Cell[166538, 4301, 389, 7, 36, "Output",ExpressionUUID->"bfc8e57f-37f1-fd4f-be86-d2e490d6b7c5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166964, 4313, 135, 3, 33, "Input",ExpressionUUID->"fbb71a59-954d-4849-be88-18e21b3ef877"], +Cell[167102, 4318, 391, 7, 36, "Output",ExpressionUUID->"91c3d388-f36d-e54d-8ec0-c1a3be50d30f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[167530, 4330, 1149, 40, 57, "Input",ExpressionUUID->"3fe374f1-2c9f-4e4b-8c35-cc86e1377955"], +Cell[168682, 4372, 400, 7, 36, "Output",ExpressionUUID->"b24be3a0-1742-654f-94d4-6af9272ac6dd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169119, 4384, 1046, 36, 57, "Input",ExpressionUUID->"229a361a-f1c7-854c-99d2-c2c0e7119461"], +Cell[170168, 4422, 420, 8, 36, "Output",ExpressionUUID->"65b135fb-0240-9445-a525-27e86ccbe017"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170625, 4435, 1149, 40, 57, "Input",ExpressionUUID->"3a19a933-18b0-1d4d-a27f-6dee4d9fb01b"], +Cell[171777, 4477, 402, 7, 36, "Output",ExpressionUUID->"fad2066c-cec5-3d41-9cc8-1e687fc18bf0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172216, 4489, 113, 2, 33, "Input",ExpressionUUID->"f5dbb0b6-0bb9-2d41-932c-e2bd59c457bd"], +Cell[172332, 4493, 403, 7, 36, "Output",ExpressionUUID->"63586fc1-ff2d-d54e-bfb2-dc0286194e7e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172772, 4505, 113, 2, 33, "Input",ExpressionUUID->"202ba0b2-ed44-8943-819b-fd8d799e9ff4"], +Cell[172888, 4509, 423, 8, 36, "Output",ExpressionUUID->"32e2d2a6-694f-e047-a723-1001fe8af4c7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173348, 4522, 113, 2, 33, "Input",ExpressionUUID->"0c7930f6-7a14-0140-8c72-b4d70e7ef439"], +Cell[173464, 4526, 424, 8, 36, "Output",ExpressionUUID->"22595b3c-f75e-4a46-b771-0f4991774cf3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173925, 4539, 113, 2, 33, "Input",ExpressionUUID->"31992bd7-2e5c-f44e-9e3d-3b0c7fa0cce8"], +Cell[174041, 4543, 402, 7, 36, "Output",ExpressionUUID->"d0cb70ce-97ce-9343-a9a2-ba6265aac5de"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174480, 4555, 112, 2, 33, "Input",ExpressionUUID->"5cc88883-08e9-6442-878b-8739832bdd7f"], +Cell[174595, 4559, 401, 7, 36, "Output",ExpressionUUID->"4ac8e3f7-9ca5-ee48-b36c-c1e1cbb198d8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175033, 4571, 112, 2, 33, "Input",ExpressionUUID->"01a7198e-cf39-e944-8d89-ea6dc2ae3378"], +Cell[175148, 4575, 403, 7, 36, "Output",ExpressionUUID->"bed60351-5aee-c94f-a386-22d2e961fb6e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175588, 4587, 502, 17, 57, "Input",ExpressionUUID->"1fdecdbf-ce3b-f34a-a810-309424452804"], +Cell[176093, 4606, 422, 8, 36, "Output",ExpressionUUID->"e7ffd43b-f16b-4a4e-b9fc-de38bc69e074"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176552, 4619, 502, 17, 57, "Input",ExpressionUUID->"98431912-2d3e-f341-8078-94d2ab80cd4a"], +Cell[177057, 4638, 413, 8, 36, "Output",ExpressionUUID->"eb02b3cc-9468-e343-9c80-889e0893c599"] +}, Open ]], +Cell[CellGroupData[{ +Cell[177507, 4651, 1793, 61, 120, "Input",ExpressionUUID->"ab5082ed-9355-f947-826c-b10468227f63"], +Cell[179303, 4714, 397, 7, 36, "Output",ExpressionUUID->"40c2d35d-d682-4b4f-8925-ada040d853ce"] +}, Open ]], +Cell[CellGroupData[{ +Cell[179737, 4726, 1106, 37, 133, "Input",ExpressionUUID->"63f90936-bc73-064a-b1a7-461c74db6955"], +Cell[180846, 4765, 422, 8, 32, "Output",ExpressionUUID->"b98ed7f1-1335-3040-b8d7-8769ace6a1de"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181305, 4778, 1823, 62, 165, "Input",ExpressionUUID->"920dc319-0fc4-844d-ae23-2e9deb8a4d12"], +Cell[183131, 4842, 404, 7, 32, "Output",ExpressionUUID->"5d79c4b0-4f3a-0a4c-ae34-f0f32cdb1b5b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183572, 4854, 1636, 54, 164, "Input",ExpressionUUID->"6d508492-df09-7148-803d-bcf469445232"], +Cell[185211, 4910, 406, 7, 32, "Output",ExpressionUUID->"ec14daec-8c58-0c45-a912-ae4addd411fe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185654, 4922, 1636, 54, 164, "Input",ExpressionUUID->"66014b3e-1ae3-d244-a075-07ef14184504"], +Cell[187293, 4978, 401, 7, 32, "Output",ExpressionUUID->"80aaf6de-0342-6f43-aae8-3c615ecc6028"] +}, Open ]], +Cell[187709, 4988, 191, 4, 28, "Input",ExpressionUUID->"5894836c-9594-0940-b94c-299085c765cc"], +Cell[187903, 4994, 154, 3, 28, "Input",ExpressionUUID->"5965eb10-01f8-5545-9b6f-8fab318cd4b7"], +Cell[188060, 4999, 194, 4, 28, "Input",ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-092c5143dcf0"], +Cell[188257, 5005, 154, 3, 28, "Input",ExpressionUUID->"6e7c45d7-0298-ce41-ba97-a3c857e6ae57"], +Cell[CellGroupData[{ +Cell[188436, 5012, 1301, 43, 113, "Input",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], +Cell[189740, 5057, 178, 3, 32, "Output",ExpressionUUID->"d7904bcf-fc55-b844-b4d2-059d830f1317"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189955, 5065, 908, 31, 56, "Input",ExpressionUUID->"f2e6289f-a8bc-6d44-a856-301cf9f22a61"], +Cell[190866, 5098, 177, 3, 32, "Output",ExpressionUUID->"7c075ec9-a97b-ab47-b241-cc392b585c5e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191080, 5106, 889, 30, 56, "Input",ExpressionUUID->"cdf84d2f-1e96-4c43-9286-fda42549e334"], +Cell[191972, 5138, 178, 3, 32, "Output",ExpressionUUID->"ddda4800-8c90-d44b-acfd-6ccb39eee852"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192187, 5146, 558, 19, 52, "Input",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], +Cell[192748, 5167, 172, 3, 32, "Output",ExpressionUUID->"046d7438-d73f-9343-9ae7-b01adfd6d8f5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192957, 5175, 651, 22, 52, "Input",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], +Cell[193611, 5199, 167, 3, 32, "Output",ExpressionUUID->"d2928e96-58be-3a4f-8bee-5b9e193c2ac6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193815, 5207, 170, 5, 56, "Input",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], +Cell[193988, 5214, 172, 3, 32, "Output",ExpressionUUID->"bf655ed3-7200-2249-b687-593ee351a598"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194197, 5222, 170, 5, 55, "Input",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], +Cell[194370, 5229, 173, 3, 32, "Output",ExpressionUUID->"56f5f06b-52e2-6941-b28e-41b961cb42e9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194580, 5237, 181, 5, 43, "Input",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], +Cell[194764, 5244, 171, 3, 32, "Output",ExpressionUUID->"8c210f75-69a5-5340-94a4-65e97302ca45"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194972, 5252, 181, 5, 43, "Input",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], +Cell[195156, 5259, 172, 3, 32, "Output",ExpressionUUID->"bad7f5b6-1bd3-6b4b-87e4-44aee3a120fc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195365, 5267, 6055, 185, 498, "Input",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], +Cell[201423, 5454, 174, 3, 32, "Output",ExpressionUUID->"ffdf2eb3-13bd-724f-a87b-fb40655ae9c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201634, 5462, 368, 9, 42, "Input",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], +Cell[202005, 5473, 172, 3, 32, "Output",ExpressionUUID->"609425d6-cf9c-7a45-bc21-030ca3aa1290"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202214, 5481, 6122, 187, 500, "Input",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], +Cell[208339, 5670, 175, 3, 32, "Output",ExpressionUUID->"b20cbe94-36a3-8548-a61e-959a25814c62"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208551, 5678, 368, 9, 42, "Input",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], +Cell[208922, 5689, 172, 3, 32, "Output",ExpressionUUID->"4fc2e2c1-457d-3d4a-a5b7-180877c6f370"] +}, Open ]], +Cell[CellGroupData[{ +Cell[209131, 5697, 2663, 88, 187, "Input",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], +Cell[211797, 5787, 171, 3, 32, "Output",ExpressionUUID->"08fcefa1-a87b-bf4b-998d-0c9017752dd4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[212005, 5795, 2603, 85, 165, "Input",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], +Cell[214611, 5882, 173, 3, 32, "Output",ExpressionUUID->"5678b502-e98a-5d4b-9c03-fe98b2cc6f78"] +}, Open ]], +Cell[CellGroupData[{ +Cell[214821, 5890, 3712, 118, 348, "Input",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], +Cell[218536, 6010, 174, 3, 32, "Output",ExpressionUUID->"d74c1470-6eae-4841-b978-069a86bca67d"] +}, Open ]], +Cell[218725, 6016, 138, 3, 42, "Input",ExpressionUUID->"8111b6bb-cdcb-ad40-9440-412e77bed40d"], +Cell[CellGroupData[{ +Cell[218888, 6023, 2054, 59, 228, "Input",ExpressionUUID->"fc88a60e-e348-d344-96c4-1f4f66f53217"], +Cell[220945, 6084, 559, 12, 66, "Message",ExpressionUUID->"0833bd34-3252-a046-9aa3-94c1d6e5cfe9"], +Cell[221507, 6098, 560, 12, 85, "Message",ExpressionUUID->"f24a3618-ee43-704a-86fe-493dbed35e8d"], +Cell[222070, 6112, 565, 12, 85, "Message",ExpressionUUID->"86271901-aa3c-5542-ab18-fc06d3fd3f32"], +Cell[222638, 6126, 456, 10, 26, "Message",ExpressionUUID->"ce9bd686-d768-5440-b47e-1ee2b5aa0183"], +Cell[223097, 6138, 170, 3, 32, "Output",ExpressionUUID->"a6ab28bd-0b4e-3443-93b3-734d7cf3d8a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[223304, 6146, 2054, 59, 228, "Input",ExpressionUUID->"dca13eb7-7f94-3e45-81a8-b62dad3009d2"], +Cell[225361, 6207, 559, 12, 66, "Message",ExpressionUUID->"44f2ed65-5109-0141-bef6-eebaeda3d61d"], +Cell[225923, 6221, 559, 12, 85, "Message",ExpressionUUID->"ba49f32e-1ff7-b147-9f42-9c90ccc55447"], +Cell[226485, 6235, 565, 12, 85, "Message",ExpressionUUID->"fa95acf1-55b2-c042-9a9f-32e1ebea5c1e"], +Cell[227053, 6249, 458, 10, 26, "Message",ExpressionUUID->"3c3d4134-2c7d-0949-9759-036664c530e3"], +Cell[227514, 6261, 170, 3, 32, "Output",ExpressionUUID->"742dfe41-8369-8942-b522-c174c845c383"] +}, Open ]], +Cell[CellGroupData[{ +Cell[227721, 6269, 1938, 53, 115, "Input",ExpressionUUID->"46451e4d-f5ef-b246-91c6-4265c9fafb97"], +Cell[229662, 6324, 20196, 379, 237, "Output",ExpressionUUID->"0e6ef056-d4e3-ac4d-9f2a-df071f8decb1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[249895, 6708, 2094, 60, 211, "Input",ExpressionUUID->"06bd0169-a5a6-404c-935d-e1a61565f71e"], +Cell[251992, 6770, 503, 11, 60, "Message",ExpressionUUID->"8a980d1e-9dd5-194d-803a-ac5d63bbe693"], +Cell[252498, 6783, 505, 11, 60, "Message",ExpressionUUID->"637082a9-fe74-7345-8895-dee77343ee6f"], +Cell[253006, 6796, 506, 11, 60, "Message",ExpressionUUID->"b2e7262c-7c6d-d94d-a545-ea4b363e579a"], +Cell[253515, 6809, 455, 10, 26, "Message",ExpressionUUID->"40c56d25-ed26-3045-9759-ae8eef5eb7cb"], +Cell[253973, 6821, 55770, 961, 233, "Output",ExpressionUUID->"f96372ea-8786-a94e-801e-a3ab56caf675"] +}, Open ]], +Cell[309758, 7785, 2453, 69, 158, "Input",ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-b938908ab9a4"], +Cell[312214, 7856, 209, 5, 42, "Input",ExpressionUUID->"6b0777bb-40fd-b54e-aa03-b6e82cb2e939"], +Cell[CellGroupData[{ +Cell[312448, 7865, 217, 7, 48, "Input",ExpressionUUID->"1ec1e156-ca0f-9240-857c-ac86e3a0e3fd"], +Cell[312668, 7874, 173, 3, 32, "Output",ExpressionUUID->"1ffcb79a-13e7-7549-b41c-23408ffbacea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[312878, 7882, 1814, 53, 183, "Input",ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-da901e49f6f1"], +Cell[314695, 7937, 506, 11, 60, "Message",ExpressionUUID->"08a2126f-e71c-b94d-8844-15e292a8f7d1"], +Cell[315204, 7950, 508, 11, 60, "Message",ExpressionUUID->"1acf7f10-7675-ea41-b478-94e928ef3377"], +Cell[315715, 7963, 509, 11, 60, "Message",ExpressionUUID->"67cdfb4c-9282-934a-b3c5-526027acebf5"], +Cell[316227, 7976, 458, 10, 26, "Message",ExpressionUUID->"760e7203-a507-b249-aaf5-4906557faed2"], +Cell[316688, 7988, 24818, 454, 233, "Output",ExpressionUUID->"f25b03e8-0c50-2442-86f8-c19dc28b43cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[341543, 8447, 1616, 48, 70, "Input",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], +Cell[343162, 8497, 582, 12, 70, "Message",ExpressionUUID->"b6e3034b-dd99-1142-8723-42090efc2980"], +Cell[343747, 8511, 588, 12, 70, "Message",ExpressionUUID->"54e48413-1d3a-b844-8316-bcdf9191e67e"], +Cell[344338, 8525, 590, 12, 70, "Message",ExpressionUUID->"44ccd47c-7323-4a4e-a9d6-7424d8b3399f"], +Cell[344931, 8539, 458, 10, 70, "Message",ExpressionUUID->"4c2e41d3-b5d7-3f4c-ba94-0408b6a0e82d"], +Cell[345392, 8551, 171, 3, 70, "Output",ExpressionUUID->"c1bfc082-c70f-3140-a59c-c21547622f5b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[345600, 8559, 2251, 64, 70, "Input",ExpressionUUID->"0b10f52e-4583-2a4b-993d-96e59dd43e6a"], +Cell[347854, 8625, 557, 12, 70, "Message",ExpressionUUID->"0e308aaf-a4b5-d740-9882-5c338a63d7a7"], +Cell[348414, 8639, 560, 12, 70, "Message",ExpressionUUID->"5e35cc91-e340-c74b-b6dd-42063e8a308b"], +Cell[348977, 8653, 565, 12, 70, "Message",ExpressionUUID->"c3f5c3a9-ece1-e648-aa3a-3f66f2873ea7"], +Cell[349545, 8667, 458, 10, 70, "Message",ExpressionUUID->"41503ce3-67a0-8a4a-b10a-c3db53fd260d"], +Cell[350006, 8679, 172, 3, 70, "Output",ExpressionUUID->"d9451200-e1de-5d43-8d07-ddcfc9babc52"] +}, Open ]], +Cell[CellGroupData[{ +Cell[350215, 8687, 2218, 64, 70, "Input",ExpressionUUID->"a58948c9-6d3d-e847-a269-d2e0cc5d1484"], +Cell[352436, 8753, 559, 12, 70, "Message",ExpressionUUID->"2247cd70-3ffa-2245-971e-6c6a2bd1ecfc"], +Cell[352998, 8767, 562, 12, 70, "Message",ExpressionUUID->"d9ae7d5b-4e89-a74f-be53-15700ab2593c"], +Cell[353563, 8781, 563, 12, 70, "Message",ExpressionUUID->"821c7ce3-36cc-9549-9881-1225eb1561cf"], +Cell[354129, 8795, 458, 10, 70, "Message",ExpressionUUID->"52af17f2-aff2-c34f-85c8-700b3d2f5f39"], +Cell[354590, 8807, 170, 3, 70, "Output",ExpressionUUID->"9a4afbd4-21df-4744-836a-2ed068742fdd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[354797, 8815, 2221, 64, 70, "Input",ExpressionUUID->"c817b2d1-7deb-5a45-9938-ca10003188eb"], +Cell[357021, 8881, 559, 12, 70, "Message",ExpressionUUID->"3701f96f-691c-9040-a8a1-ff3958638338"], +Cell[357583, 8895, 562, 12, 70, "Message",ExpressionUUID->"9e260603-f97f-ac44-8251-869444fbcc24"], +Cell[358148, 8909, 563, 12, 70, "Message",ExpressionUUID->"f34d60ab-6a89-fd45-89b6-5f3b4b17dd22"], +Cell[358714, 8923, 458, 10, 70, "Message",ExpressionUUID->"27fa1c02-4896-1547-8cb5-b1b86182517f"], +Cell[359175, 8935, 171, 3, 70, "Output",ExpressionUUID->"7fdd69fb-d48e-e24a-a681-093b62cad9ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[359383, 8943, 213, 6, 70, "Input",ExpressionUUID->"350334c7-7c47-c24c-8adc-781173809e57"], +Cell[359599, 8951, 173, 3, 70, "Output",ExpressionUUID->"20848a4e-e706-ec41-8982-5a7089f6420d"] +}, Open ]], +Cell[359787, 8957, 245, 5, 70, "Input",ExpressionUUID->"597921e5-69d3-564d-a8fa-092e912c15e0"], +Cell[CellGroupData[{ +Cell[360057, 8966, 558, 19, 70, "Input",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], +Cell[360618, 8987, 170, 3, 70, "Output",ExpressionUUID->"c70c9f2e-d3ac-284f-9a22-d110345400ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[360825, 8995, 170, 5, 70, "Input",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], +Cell[360998, 9002, 173, 3, 70, "Output",ExpressionUUID->"dc218355-20da-7845-8c8d-e506361cd90c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[361208, 9010, 181, 5, 70, "Input",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], +Cell[361392, 9017, 171, 3, 70, "Output",ExpressionUUID->"b98e2d62-3142-7d4b-8175-9f6bcc8f676f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[361600, 9025, 6055, 185, 70, "Input",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], +Cell[367658, 9212, 172, 3, 70, "Output",ExpressionUUID->"e2235b96-63a9-b14d-b5d1-d13c73c5b35b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[367867, 9220, 368, 9, 70, "Input",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], +Cell[368238, 9231, 172, 3, 70, "Output",ExpressionUUID->"776526ba-6ae1-2140-8428-6e0766592ce2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[368447, 9239, 6122, 187, 70, "Input",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], +Cell[374572, 9428, 173, 3, 70, "Output",ExpressionUUID->"4456bf68-737e-1947-bc9d-24db2abd4b39"] +}, Open ]], +Cell[CellGroupData[{ +Cell[374782, 9436, 368, 9, 70, "Input",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], +Cell[375153, 9447, 170, 3, 70, "Output",ExpressionUUID->"04031349-1bc1-2c40-8d25-2e90a8f4b902"] +}, Open ]], +Cell[CellGroupData[{ +Cell[375360, 9455, 2663, 88, 70, "Input",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], +Cell[378026, 9545, 171, 3, 70, "Output",ExpressionUUID->"ab924ecc-12c3-f448-be6e-b37b3bf2a7ea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[378234, 9553, 2603, 85, 70, "Input",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], +Cell[380840, 9640, 173, 3, 70, "Output",ExpressionUUID->"edd230b8-d34a-9d46-9fb1-cbff36fb79ff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[381050, 9648, 3712, 118, 70, "Input",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], +Cell[384765, 9768, 174, 3, 70, "Output",ExpressionUUID->"7ff053b6-f84b-bf44-8265-ecf6593e97c0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[384976, 9776, 2049, 58, 70, "Input",ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], +Cell[387028, 9836, 579, 12, 70, "Message",ExpressionUUID->"ba9cccb8-fdfa-1d4c-9151-4c0bb8135009"], +Cell[387610, 9850, 582, 12, 70, "Message",ExpressionUUID->"dda5376f-614c-1846-a3e1-09857b4bcae6"], +Cell[388195, 9864, 584, 12, 70, "Message",ExpressionUUID->"7a2a8f8b-abfe-9646-a4d6-23b88b4059ef"], +Cell[388782, 9878, 458, 10, 70, "Message",ExpressionUUID->"61579f38-09d5-bc4c-9509-0aaf4718ceff"], +Cell[389243, 9890, 172, 3, 70, "Output",ExpressionUUID->"87b4581c-42ec-3248-906f-f100fdcc36d4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[389452, 9898, 2054, 59, 70, "Input",ExpressionUUID->"baacd3f7-96e4-2949-b9f9-9afb90e551d9"], +Cell[391509, 9959, 577, 12, 70, "Message",ExpressionUUID->"19016d8b-0ad0-804c-b867-298523611be5"], +Cell[392089, 9973, 580, 12, 70, "Message",ExpressionUUID->"b91abb11-65b8-3b43-a495-4cb1457edd27"], +Cell[392672, 9987, 583, 12, 70, "Message",ExpressionUUID->"120f2ab5-c971-b748-a471-5d053961b4f2"], +Cell[393258, 10001, 456, 10, 70, "Message",ExpressionUUID->"e219a46d-9b55-8b4b-a17f-972d0b60293c"], +Cell[393717, 10013, 171, 3, 70, "Output",ExpressionUUID->"15e7db41-f53f-7c4b-886f-7ba04bf10a25"] +}, Open ]], +Cell[CellGroupData[{ +Cell[393925, 10021, 2030, 55, 70, "Input",ExpressionUUID->"ea08a5a9-d446-9147-ba82-e3924f732df2"], +Cell[395958, 10078, 20493, 384, 70, "Output",ExpressionUUID->"33ceb84f-c9c7-504c-ae94-1b1d69b769af"] +}, Open ]], +Cell[CellGroupData[{ +Cell[416488, 10467, 2120, 60, 70, "Input",ExpressionUUID->"42ddbf41-0bd8-b749-bead-56c89a9b7467"], +Cell[418611, 10529, 501, 11, 70, "Message",ExpressionUUID->"b616cb85-0c12-9449-8e54-a070530c7874"], +Cell[419115, 10542, 504, 11, 70, "Message",ExpressionUUID->"d17cbbe2-194b-ec4c-bb30-d2fcc4c1a181"], +Cell[419622, 10555, 508, 11, 70, "Message",ExpressionUUID->"6c23e3dc-9bc5-a441-99df-2985793b0df8"], +Cell[420133, 10568, 456, 10, 70, "Message",ExpressionUUID->"de9af779-0821-a544-b1ce-6c66cf00e4d6"], +Cell[420592, 10580, 31462, 562, 70, "Output",ExpressionUUID->"d2a47969-eb62-c243-9b06-713ae9ea0a7d"] +}, Open ]], +Cell[452069, 11145, 209, 5, 70, "Input",ExpressionUUID->"6883477e-2a54-0a45-979a-ae60c73e9e82"], +Cell[CellGroupData[{ +Cell[452303, 11154, 1616, 48, 70, "Input",ExpressionUUID->"93c0bac4-7a17-8748-9b2f-588171dbd56e"], +Cell[453922, 11204, 596, 12, 70, "Message",ExpressionUUID->"ca0dab71-62e4-1c4e-b2d5-91f300055932"], +Cell[454521, 11218, 602, 12, 70, "Message",ExpressionUUID->"aa43f3fc-5ec5-414d-bbd9-cf1b638f0a27"], +Cell[455126, 11232, 605, 12, 70, "Message",ExpressionUUID->"eaa52aca-1e19-e84e-9825-10ec4ac94baf"], +Cell[455734, 11246, 458, 10, 70, "Message",ExpressionUUID->"40ddf79f-d82f-b94d-9b78-050a48c24dda"], +Cell[456195, 11258, 171, 3, 70, "Output",ExpressionUUID->"f752c3f0-fe06-284b-bff8-a09adf8994cc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[456403, 11266, 2251, 64, 70, "Input",ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-2a98ba29b602"], +Cell[458657, 11332, 577, 12, 70, "Message",ExpressionUUID->"03b49875-7e1c-734a-9395-591c7a6a0147"], +Cell[459237, 11346, 580, 12, 70, "Message",ExpressionUUID->"bbc1c804-e094-2b49-bceb-c837038552fa"], +Cell[459820, 11360, 586, 12, 70, "Message",ExpressionUUID->"340351a4-e10e-7141-b933-75e80a563962"], +Cell[460409, 11374, 458, 10, 70, "Message",ExpressionUUID->"45363ba5-7011-ce4a-bbb2-25b54117d598"], +Cell[460870, 11386, 173, 3, 70, "Output",ExpressionUUID->"a7117811-d866-a74a-b451-2e5611fcbe98"] +}, Open ]], +Cell[CellGroupData[{ +Cell[461080, 11394, 2219, 64, 70, "Input",ExpressionUUID->"edfdd675-c60b-304e-9e16-68452b971319"], +Cell[463302, 11460, 579, 12, 70, "Message",ExpressionUUID->"d229ea6a-26e4-d448-90bf-3044f07066eb"], +Cell[463884, 11474, 580, 12, 70, "Message",ExpressionUUID->"7911ebc5-127d-5841-a246-fcff3e2e3d7f"], +Cell[464467, 11488, 586, 12, 70, "Message",ExpressionUUID->"62b490bd-3e68-5b49-8d2e-1bbb1e520215"], +Cell[465056, 11502, 458, 10, 70, "Message",ExpressionUUID->"2c340204-da84-dd4d-abb8-8821cc152f8d"], +Cell[465517, 11514, 171, 3, 70, "Output",ExpressionUUID->"88b2df22-3f75-ff45-90a9-fda3ac3bb827"] +}, Open ]], +Cell[CellGroupData[{ +Cell[465725, 11522, 2219, 64, 70, "Input",ExpressionUUID->"d0469d46-2e74-494a-be85-b41cb2f3fa92"], +Cell[467947, 11588, 576, 12, 70, "Message",ExpressionUUID->"8c45e08e-3e6d-d74b-a260-2b9be908c427"], +Cell[468526, 11602, 580, 12, 70, "Message",ExpressionUUID->"05cc4b97-7653-f04b-8664-f56b3128e201"], +Cell[469109, 11616, 584, 12, 70, "Message",ExpressionUUID->"880f1d89-ca48-ef4c-8955-16a02dd06624"], +Cell[469696, 11630, 458, 10, 70, "Message",ExpressionUUID->"fbbc91b1-3b40-a04c-8f78-5ca75ca88c9b"], +Cell[470157, 11642, 173, 3, 70, "Output",ExpressionUUID->"ea027f70-f222-b745-8c2e-f4a8bd2e0421"] +}, Open ]], +Cell[CellGroupData[{ +Cell[470367, 11650, 212, 6, 70, "Input",ExpressionUUID->"58b5e243-0972-1946-bd17-aca0f3e8a35b"], +Cell[470582, 11658, 172, 3, 70, "Output",ExpressionUUID->"3682abd7-ed62-9948-84cf-8fffa8ddbfe7"] +}, Open ]], +Cell[470769, 11664, 244, 5, 70, "Input",ExpressionUUID->"8ae59c8e-a0a1-f646-a3f5-a3711ba632a4"], +Cell[CellGroupData[{ +Cell[471038, 11673, 558, 19, 70, "Input",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], +Cell[471599, 11694, 171, 3, 70, "Output",ExpressionUUID->"9fbf2f5c-e66a-8c48-92c5-cb97211e83a1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[471807, 11702, 170, 5, 70, "Input",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], +Cell[471980, 11709, 171, 3, 70, "Output",ExpressionUUID->"7a911217-f777-234b-9e3e-66fa91b95a93"] +}, Open ]], +Cell[CellGroupData[{ +Cell[472188, 11717, 181, 5, 70, "Input",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], +Cell[472372, 11724, 173, 3, 70, "Output",ExpressionUUID->"71512215-c060-b042-87dd-cf63c2fdbe79"] +}, Open ]], +Cell[CellGroupData[{ +Cell[472582, 11732, 6055, 185, 70, "Input",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], +Cell[478640, 11919, 173, 3, 70, "Output",ExpressionUUID->"83eb5a5c-2221-9048-9616-76c841caa7ff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[478850, 11927, 368, 9, 70, "Input",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], +Cell[479221, 11938, 172, 3, 70, "Output",ExpressionUUID->"3469ea64-5888-e347-a592-fe58acf45252"] +}, Open ]], +Cell[CellGroupData[{ +Cell[479430, 11946, 6122, 187, 70, "Input",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], +Cell[485555, 12135, 173, 3, 70, "Output",ExpressionUUID->"6078ae64-e041-ef46-9c98-aeb384a7565b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[485765, 12143, 368, 9, 70, "Input",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], +Cell[486136, 12154, 172, 3, 70, "Output",ExpressionUUID->"ed53339e-8a54-b740-a712-127e0aa48364"] +}, Open ]], +Cell[CellGroupData[{ +Cell[486345, 12162, 2663, 88, 70, "Input",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], +Cell[489011, 12252, 173, 3, 70, "Output",ExpressionUUID->"0881e898-a895-4f44-9932-c9b57f23fb23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[489221, 12260, 2603, 85, 70, "Input",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], +Cell[491827, 12347, 171, 3, 70, "Output",ExpressionUUID->"6f8be6ff-3439-7547-b2e5-a7f15df03852"] +}, Open ]], +Cell[CellGroupData[{ +Cell[492035, 12355, 3712, 118, 70, "Input",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], +Cell[495750, 12475, 174, 3, 70, "Output",ExpressionUUID->"5f1268db-50d9-294a-839d-2dc73b3483c5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495961, 12483, 2054, 59, 70, "Input",ExpressionUUID->"ba508068-6b78-254c-87d6-cf1adc0753dd"], +Cell[498018, 12544, 574, 12, 70, "Message",ExpressionUUID->"fea97571-51b6-bc4d-8922-e67cbea226be"], +Cell[498595, 12558, 580, 12, 70, "Message",ExpressionUUID->"f9381c1d-d837-a646-bb62-f69cb564b78b"], +Cell[499178, 12572, 580, 12, 70, "Message",ExpressionUUID->"2dd3f3b2-ca3e-6c42-abc0-5cf7523a6a65"], +Cell[499761, 12586, 456, 10, 70, "Message",ExpressionUUID->"5a727290-5b6b-a347-9739-3df9958ec415"], +Cell[500220, 12598, 172, 3, 70, "Output",ExpressionUUID->"44426372-aa84-bf4c-9f95-4de13286a09a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[500429, 12606, 2054, 59, 70, "Input",ExpressionUUID->"842e33e4-ae06-f746-ab8b-97489285cc9c"], +Cell[502486, 12667, 576, 12, 70, "Message",ExpressionUUID->"a32ffe4b-5346-7b46-9dee-b8bad033001e"], +Cell[503065, 12681, 577, 12, 70, "Message",ExpressionUUID->"902c6490-8537-484d-8825-0d2295db4f12"], +Cell[503645, 12695, 582, 12, 70, "Message",ExpressionUUID->"1b49285c-a5d9-074c-871b-37b4cadb7269"], +Cell[504230, 12709, 458, 10, 70, "Message",ExpressionUUID->"2ff3d4da-4949-1448-b68b-aac1ae56bb1a"], +Cell[504691, 12721, 172, 3, 70, "Output",ExpressionUUID->"046dcac0-9165-4b41-8a82-c19ed01a7ad4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[504900, 12729, 2028, 55, 70, "Input",ExpressionUUID->"b2e314f8-a6f0-6942-a94c-5ac1cacd7190"], +Cell[506931, 12786, 20021, 378, 70, "Output",ExpressionUUID->"d1cda4a3-f1fb-0d44-a506-74525ae66245"] +}, Open ]], +Cell[CellGroupData[{ +Cell[526989, 13169, 2146, 61, 70, "Input",ExpressionUUID->"497f9779-a3e4-c84e-a207-0aac70483e3c"], +Cell[529138, 13232, 502, 11, 70, "Message",ExpressionUUID->"56dc07a7-05cc-424a-8fff-08f056385a44"], +Cell[529643, 13245, 506, 11, 70, "Message",ExpressionUUID->"71ae3883-d346-164c-9764-dc57f6863817"], +Cell[530152, 13258, 508, 11, 70, "Message",ExpressionUUID->"16c86d51-9f27-3c48-b312-93c489e538a4"], +Cell[530663, 13271, 456, 10, 70, "Message",ExpressionUUID->"64c101a8-dc8b-1f4e-9946-a38ce949c736"], +Cell[531122, 13283, 30015, 538, 70, "Output",ExpressionUUID->"f98d1ba6-9bcb-b94f-a8fa-792e22f5ac65"] +}, Open ]], +Cell[561152, 13824, 209, 5, 70, "Input",ExpressionUUID->"54d9c986-d109-3d4c-9ee8-76427bb63659"], +Cell[CellGroupData[{ +Cell[561386, 13833, 1590, 47, 70, "Input",ExpressionUUID->"5dd0afca-0a4f-544d-814d-33e1c649116f"], +Cell[562979, 13882, 342, 6, 70, "Message",ExpressionUUID->"9e6d6a70-ad75-9b40-8a0b-ca802f09d5a2"], +Cell[563324, 13890, 101, 0, 70, "Output",ExpressionUUID->"b372c493-d6de-934f-951c-1a3f45718733"] +}, Open ]], +Cell[CellGroupData[{ +Cell[563462, 13895, 2249, 64, 70, "Input",ExpressionUUID->"a3e3d205-e3b4-874a-a36c-53cfa72184b4"], +Cell[565714, 13961, 342, 6, 70, "Message",ExpressionUUID->"9e9d949e-1d4c-8649-8d0e-b7deecfb3ba4"], +Cell[566059, 13969, 342, 6, 70, "Message",ExpressionUUID->"76f8ef60-aab6-7442-aeca-4cebad23cb0e"], +Cell[566404, 13977, 101, 0, 70, "Output",ExpressionUUID->"37cdd74c-8ec4-9047-aa14-d493ed3e18d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[566542, 13982, 2221, 64, 70, "Input",ExpressionUUID->"6977f025-454e-0e4a-b118-07bad9ba3e82"], +Cell[568766, 14048, 342, 6, 70, "Message",ExpressionUUID->"566a849f-fc85-4d42-a545-a46d44cf7346"], +Cell[569111, 14056, 342, 6, 70, "Message",ExpressionUUID->"fb1cb4d6-a504-e445-bb52-7946e1bca3c6"], +Cell[569456, 14064, 100, 0, 70, "Output",ExpressionUUID->"5fc76ad3-8f3e-9246-bda1-78737e269d99"] +}, Open ]], +Cell[CellGroupData[{ +Cell[569593, 14069, 2223, 64, 70, "Input",ExpressionUUID->"df8ecb01-788a-604d-b773-f29bb610eb30"], +Cell[571819, 14135, 342, 6, 70, "Message",ExpressionUUID->"f9e34ec5-1462-b340-b2e7-8e875dd33d28"], +Cell[572164, 14143, 342, 6, 70, "Message",ExpressionUUID->"19ffb858-7059-2a48-a3db-e2d0dfcf2131"], +Cell[572509, 14151, 101, 0, 70, "Output",ExpressionUUID->"dbb2a900-6759-7349-a1e8-ea8b52a29f31"] +}, Open ]], +Cell[CellGroupData[{ +Cell[572647, 14156, 213, 6, 70, "Input",ExpressionUUID->"54a5e329-20bd-e742-afe8-d2cfa007cfcf"], +Cell[572863, 14164, 102, 0, 70, "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3(ДЛЯ АЭСНИКОВ)/l_АЭСНИКАМ_gid_Qw1.nb b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3(ДЛЯ АЭСНИКОВ)/l_АЭСНИКАМ_gid_Qw1.nb new file mode 100755 index 0000000..f702788 --- /dev/null +++ b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3(ДЛЯ АЭСНИКОВ)/l_АЭСНИКАМ_gid_Qw1.nb @@ -0,0 +1,15088 @@ +(* 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[ 634868, 15080] +NotebookOptionsPosition[ 595504, 14454] +NotebookOutlinePosition[ 595928, 14471] +CellTagsIndexPosition[ 595885, 14468] +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}, + CellLabel->"In[1]:=",ExpressionUUID->"8034629a-ad46-2543-96e9-665c098d7b0c"], + +Cell[BoxData["3"], "Output", + CellChangeTimes->{3.991320420900818*^9, 3.992089565723549*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"93ea5906-eb04-9047-8cef-68b0763f7c86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "234"}]], "Input", + CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { + 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, + 3.99179303935478*^9}, 3.9920893973301544`*^9}, + CellLabel->"In[2]:=",ExpressionUUID->"dc9c77e4-3cfb-294e-9f86-cf656d8d2ea6"], + +Cell[BoxData["234"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.9920895659023285`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"bbe52b99-2002-fa42-a3f0-8b4162c54871"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "82"}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.992089401338833*^9, + 3.9920894018500023`*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"15e15a9f-0334-9043-b8b9-f1ca4106ea61"], + +Cell[BoxData["82"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9920895659261894`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"d52f838e-d8ec-7549-9799-f23cd1eb08b8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"1c82ac22-6dea-194e-9a1e-637d86c495ee"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9, 3.991707828219631*^9, + 3.9917123414174232`*^9, 3.9920895659317207`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"b236eb16-cf83-a040-a9e8-768e0651f5a7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"24afb29b-54f8-f243-a2b3-6bc9c92d11eb"], + +Cell[BoxData["0.5544871794871795`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9, 3.9917078282275677`*^9, + 3.9917123414253197`*^9, 3.9920895659537334`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"2387a484-b0c6-3842-ae91-ab9b13cbd403"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"32c2cbe4-2613-8549-9aa5-86191ea073e5"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9, 3.9917078282485256`*^9, + 3.9917123414324265`*^9, 3.9920895659587307`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"69d1775f-2723-e140-9abd-2054c39a2ef6"] +}, 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->"1f532123-e84b-7441-a626-c25decc207f4"], + +Cell[BoxData["5.0395985234915885`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9, 3.9917078282706223`*^9, + 3.9917123414384117`*^9, 3.992089565981739*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"0db46d28-c19c-2941-8630-d4a702f7be5a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"874dd9e7-be71-ae47-8889-e17639f31e85"], + +Cell[BoxData["6.190691825034912`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9, 3.9917078282785244`*^9, + 3.991712341447321*^9, 3.9920895660013065`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"be7cdcda-4de2-6445-82d0-fa882c11b50f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.421480706633547"}]], "Input", + CellChangeTimes->{3.9917123951294365`*^9, 3.99179305435186*^9, + 3.9920894102175694`*^9}, + CellLabel->"In[9]:=",ExpressionUUID->"f9e0a7ba-220a-b743-91b5-50aaf94ec86c"], + +Cell[BoxData["0.421480706633547`"], "Output", + CellChangeTimes->{3.991319649862606*^9, 3.991707828301527*^9, + 3.9917123414573193`*^9, 3.991712407248003*^9, 3.9920895660059776`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"498e650e-c98c-cd46-9ff3-761bbae2b483"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.744261692152701"}]], "Input", + CellChangeTimes->{3.9917124038115807`*^9, 3.991793052797516*^9, + 3.9920894153197956`*^9}, + CellLabel->"In[10]:=",ExpressionUUID->"6eb0c41d-16ce-6640-82f0-819e094da28e"], + +Cell[BoxData["0.744261692152701`"], "Output", + CellChangeTimes->{3.9913196498716316`*^9, 3.991707828308525*^9, + 3.99171234146842*^9, 3.9917124073213234`*^9, 3.9920895660299835`*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"549ca9be-3aa2-3641-a9c4-0eaf9ba1bb1b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"b10c8e9b-99a2-8c49-9d72-8abe7850a9eb"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9, 3.9917078283276424`*^9, + 3.991712341478319*^9, 3.9920895660361767`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"be1ef1be-68ff-a141-b961-d07b1e984966"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"da6b028d-b021-d74d-9078-f23263665f7b"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9, 3.99170782834754*^9, + 3.9917123414863186`*^9, 3.992089566041706*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"04a74b39-f858-314c-8b5f-da822872b6fd"] +}, 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->"c48a305a-085f-f64d-a1c6-f00f13fed297"], + +Cell[BoxData["1.4675571041126967`"], "Output", + CellChangeTimes->{3.9913197863028755`*^9, 3.991707968406042*^9, + 3.992089566066429*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"43ed07a3-e4e7-a343-9f32-4f866691321e"] +}, 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->"b8c4900a-fd7d-3c49-86cf-3b8f9f4b5cc7"], + +Cell[BoxData["1.9764491154865769`"], "Output", + CellChangeTimes->{3.9913197864610195`*^9, 3.9917079684291363`*^9, + 3.9920895660724354`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"098d4055-d513-b548-8565-ec34640c73a7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"3edc5467-1f4d-234d-a3e1-29d4af4be714"], + +Cell[BoxData["0.6559383278596986`"], "Output", + CellChangeTimes->{3.991319786533783*^9, 3.991707968457081*^9, + 3.992089566098549*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"062abb2e-431a-8f44-9288-5e46a26df896"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"b5e17374-048c-bd4b-95f9-d6ef7d043243"], + +Cell[BoxData[ + RowBox[{"-", "0.37229468143309563`"}]], "Output", + CellChangeTimes->{3.991319786540777*^9, 3.9917079684650364`*^9, + 3.992089566104553*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"dd4e9f3d-82b4-6345-b1cc-f0fe8ef38e79"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"132371ce-6301-f847-884e-fc83bc9a17d2"], + +Cell[BoxData[ + RowBox[{"-", "0.10565103139566565`"}]], "Output", + CellChangeTimes->{3.9913197865777817`*^9, 3.9917079684860363`*^9, + 3.9920895661334343`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"c397bb4e-9f03-5b40-81eb-a0aa0e210d16"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"6d7fa188-d880-ee40-a891-c54434bcc9aa"], + +Cell[BoxData["0.4612539649188019`"], "Output", + CellChangeTimes->{3.9913197866129*^9, 3.9917079684940376`*^9, + 3.992089566154436*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"c1434463-136c-d74b-a5bb-e5ea005032af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"eb280405-24fc-8347-bd42-4f8f1c10efb0"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786620775*^9, 3.9917079685140343`*^9, + 3.992089566161434*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"ae9e705c-f3b5-8144-8d6e-701f9ae4d4ce"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellChangeTimes->{3.9918430951178913`*^9}, + CellLabel->"In[20]:=",ExpressionUUID->"6ca61853-ea7e-464c-a881-3ea6ed4e391f"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{3.991319786657793*^9, 3.991707968535036*^9, + 3.99208956616745*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"0ae8f939-f3ad-4f4f-a556-725baab4b569"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"c10b3dfb-d1f8-4a4e-802e-0df5aa6355ab"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{3.9913197866657925`*^9, 3.9917079685410557`*^9, + 3.992089566190012*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"835bfe55-ebc8-a746-b2a5-3c372252e8df"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"54b30067-e0dc-7548-9fe4-a174df9b2fc3"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{3.9913197866996*^9, 3.991707968561041*^9, + 3.992089566195524*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"089a98d1-73e3-204f-8936-fea410905307"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"8f29137f-c321-9d49-98fd-20510e3a770e"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{3.9913197867406044`*^9, 3.9917079685810375`*^9, + 3.992089566225437*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"383deac8-5ee8-df40-8917-204b1892a7a6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "32"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.9917930777342243`*^9, + 3.9920894233840046`*^9}, + CellLabel->"In[24]:=",ExpressionUUID->"181519d5-4333-6949-a2b4-f1c9df7627ca"], + +Cell[BoxData["32"], "Output", + CellChangeTimes->{3.992089566254753*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"e9d97066-7078-5941-aa4c-279b5a59b11e"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431115646553`*^9, 3.991843111569187*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"bdda7ea0-e8bb-a14d-8478-10da82392727"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"92", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, { + 3.991644237125025*^9, 3.991644237304865*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"ef039354-4e03-a841-95d0-3c0922239d9d"], + +Cell[BoxData["60"], "Output", + CellChangeTimes->{3.9913197867928696`*^9, 3.991707968608036*^9, + 3.99208956628076*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"9c545887-40b7-504f-b012-5f57d60e46ce"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"f4be1cb9-fc67-9b49-86bc-d5a88be04bd9"], + +Cell[BoxData["152"], "Output", + CellChangeTimes->{3.991319786827894*^9, 3.9917079686284103`*^9, + 3.9920895662857647`*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"f0e35011-e7b6-374e-8774-54a548742f40"] +}, 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->"db4cdb7a-2c4f-1a4c-ba04-7cd4f8a471ad"], + +Cell[BoxData["0.10940949935815147`"], "Output", + CellChangeTimes->{3.9913197868648605`*^9, 3.9917079686354065`*^9, + 3.9920895662917824`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"1e6d1025-35e0-344d-a6fd-a284d76a9184"] +}, 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->"db84c94f-436b-ea4f-b544-f23fc32faf29"], + +Cell[BoxData[ + RowBox[{"-", "2.565044929396662`"}]], "Output", + CellChangeTimes->{3.9913197868718567`*^9, 3.991707968658518*^9, + 3.9920895663198013`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"0bf3879a-1903-2e40-b62c-9ee5e4e68ab7"] +}, 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.991972093618887*^9, 3.9919720982596817`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"8d2f667d-3f93-5f4f-981b-dace6f85227c"], + +Cell[BoxData["18.13233419952894`"], "Output", + CellChangeTimes->{3.9913197869068584`*^9, 3.991707968678421*^9, + 3.992089566342434*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"928b8c7b-0eb6-6942-b2a0-5a3bbe3f0fc8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"1bde936d-542d-3d4e-9775-6b0e2d7d37b9"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786940857*^9, 3.9917079686854057`*^9, + 3.9920895663484135`*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"69ef140a-b263-794a-b63a-32c89567e3da"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "0.889"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.991793106556059*^9, 3.9920891167348633`*^9}, + CellLabel->"In[32]:=",ExpressionUUID->"16006ac2-b361-9642-8268-5d4cbd31277a"], + +Cell[BoxData["0.889`"], "Output", + CellChangeTimes->{3.9920895663544292`*^9}, + CellLabel->"Out[32]=",ExpressionUUID->"60bcc33b-0a6a-6e4d-8594-c6d756e865e7"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431193859673`*^9, 3.9918431193894367`*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"27310e89-4fab-d948-9e7c-8013539e6df1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.634"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917169698218613`*^9, 3.991717907758713*^9, + 3.991793107839529*^9, 3.9920891205275974`*^9}, + CellLabel->"In[34]:=",ExpressionUUID->"66cec6b5-bae5-f542-98cd-3f94fce4d90e"], + +Cell[BoxData["0.634`"], "Output", + CellChangeTimes->{3.9920895663844376`*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"20025596-e85c-6d46-8c38-3ccbad1c40b0"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843120757866*^9, 3.9918431207603054`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"86434779-9bad-c14c-9f65-9237c19a0562"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "1.069"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.991717916696951*^9, + 3.991793108990593*^9, 3.992089124257103*^9}, + CellLabel->"In[36]:=",ExpressionUUID->"3aa302f7-27e2-694e-8db4-93428a6baec8"], + +Cell[BoxData["1.069`"], "Output", + CellChangeTimes->{3.9920895664084415`*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"7ce5feda-2b2d-6d46-a527-cb691bab8f01"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431220200443`*^9, 3.9918431220220585`*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"debff809-8d9f-234c-ab2c-d10db054a178"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn1", "=", "0.744"}], "\n"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.991716995355715*^9, + 3.9917931103354855`*^9, 3.9920891300041294`*^9}, + CellLabel->"In[38]:=",ExpressionUUID->"a3734cb6-5ca9-2d49-a888-9c8b7eebe9a3"], + +Cell[BoxData["0.744`"], "Output", + CellChangeTimes->{3.9920895664164486`*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"addb2271-743d-5d4f-bcaa-f71ad77b7ead"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431237966404`*^9, 3.9918431238010616`*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"8f4bf596-3cb9-aa42-adb3-832e0d840c3e"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"v2", "=", "1.991"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991717006317978*^9, 3.9917931115739956`*^9, 3.9920891335540543`*^9}, + CellLabel->"In[40]:=",ExpressionUUID->"6613accf-75ad-4b46-b964-360b143e2a4d"], + +Cell[BoxData["1.991`"], "Output", + CellChangeTimes->{3.992089566442686*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"4ba7dcbc-686c-1244-a49a-b10894375e30"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431249171696`*^9, 3.991843124921198*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"acd0e98a-f51d-aa4f-9a21-9a7b570a2eb6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"n2", "=", "0.921"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917170151233826`*^9, 3.9917931128910503`*^9, 3.992089139983057*^9}, + CellLabel->"In[42]:=",ExpressionUUID->"74172ae0-8cb0-d047-86a4-09866aebc8f4"], + +Cell[BoxData["0.921`"], "Output", + CellChangeTimes->{3.9920895664756985`*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"96272fdb-c918-2f40-b99f-5da4bc7effba"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843126102844*^9, 3.991843126104536*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"a5613600-e216-5f46-bbf6-07bed35f3cc8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv2", "=", "2.422"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, { + 3.9917170243815575`*^9, 3.991717046491377*^9}, 3.991793114539028*^9, + 3.99208914362006*^9}, + CellLabel->"In[44]:=",ExpressionUUID->"5a5de99e-c377-d04d-a2f6-e06075066408"], + +Cell[BoxData["2.422`"], "Output", + CellChangeTimes->{3.992089566507509*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"30926e42-e6d4-364b-aa58-d9e4eb50b1de"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431274420605`*^9, 3.9918431274461517`*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"513adba7-ac11-154c-84cc-c22e469180f5"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn2", "=", "1.520"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.991793116134735*^9, 3.992089147661951*^9}, + CellLabel->"In[46]:=",ExpressionUUID->"8bf09d0d-c1ee-e045-91ae-4feca5c9f2a0"], + +Cell[BoxData["1.52`"], "Output", + CellChangeTimes->{3.9920895665374985`*^9}, + CellLabel->"Out[46]=",ExpressionUUID->"66bc46c9-9249-2947-9b2c-5413927ebd9a"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843129570627*^9, 3.991843129574024*^9}}, + CellLabel->"In[47]:=",ExpressionUUID->"5cd4a594-c3a9-674d-99bd-f3e5d51952ea"], + +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[48]:=",ExpressionUUID->"86117941-6091-384c-a4a4-d1519c22e558"], + +Cell[BoxData["3.512937062486845`"], "Output", + CellChangeTimes->{3.991319787430073*^9, 3.991707979950527*^9, + 3.9920895666035786`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"982af05a-28a1-aa4e-b6c2-fd6bed22985b"] +}, 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[49]:=",ExpressionUUID->"282a5804-542f-c043-84ac-4070c6cfe8eb"], + +Cell[BoxData["0.10043705144066703`"], "Output", + CellChangeTimes->{3.991319787574972*^9, 3.9917079908393784`*^9, + 3.9920895666534615`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"896232fa-87cf-8847-bdb9-43b3a3c4c2a9"] +}, 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[50]:=",ExpressionUUID->"1533aaea-8f15-a240-9701-992f949ed850"], + +Cell[BoxData[ + RowBox[{"-", "89.89927414638353`"}]], "Output", + CellChangeTimes->{3.991319787641424*^9, 3.991707995240637*^9, + 3.9920895666934986`*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"a338d52f-4792-3147-ba70-6d631ee77ae7"] +}, 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[51]:=",ExpressionUUID->"e9f51a28-b509-fa4c-9728-01bce58994fd"], + +Cell[BoxData[ + RowBox[{"-", "147.91129574560722`"}]], "Output", + CellChangeTimes->{3.991319787711939*^9, 3.991707999380541*^9, + 3.992089566742504*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"92039e7c-b5ab-0048-b32b-9a55f51aea3a"] +}, 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[52]:=",ExpressionUUID->"b7b96416-de19-4248-9b30-5860216b0544"], + +Cell[BoxData[ + RowBox[{"-", "77.38698403004418`"}]], "Output", + CellChangeTimes->{3.9913197877723045`*^9, 3.991708001954468*^9, + 3.9920895667890034`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"d44fa9d8-277d-8e45-8754-ad4814ebcce8"] +}, 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[53]:=",ExpressionUUID->"c571738b-c302-a643-8a08-a2a234e9553f"], + +Cell[BoxData[ + RowBox[{"-", "262.6843748771715`"}]], "Output", + CellChangeTimes->{3.991319787833355*^9, 3.9917080040838356`*^9, + 3.9920895668848705`*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"19d70101-2af5-604d-bc72-70dd2a5b4c6b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"423a979a-bd7c-704e-835f-85f83d418bef"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210013676`*^9, 3.991708067458639*^9, + 3.9920895669137783`*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"524d68ac-4c69-274d-8e50-0259f37b8074"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"c92cdbf8-cf08-a442-adc0-90a6ac5fc433"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210355663`*^9, 3.9917080674805565`*^9, + 3.992089566936777*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"fa9331e2-a2a5-6d43-9f1e-ee262896b3ba"] +}, 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[56]:=",ExpressionUUID->"cbd27e54-9e02-254d-93f1-6819805497c8"], + +Cell[BoxData["258.50760713766147`"], "Output", + CellChangeTimes->{3.991320421068556*^9, 3.9917080675026455`*^9, + 3.9920895669487705`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"cd6e0f22-866a-cc4f-9a67-4dd98368e18e"] +}, 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[57]:=",ExpressionUUID->"df02d053-a79b-814f-b9c0-db67d2e4f3be"], + +Cell[BoxData[ + RowBox[{"-", "173.4091077962894`"}]], "Output", + CellChangeTimes->{3.991320421098543*^9, 3.991708067510544*^9, + 3.9920895669727745`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"6925622c-d9c8-e745-9bd2-4238d7912bf7"] +}, 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[58]:=",ExpressionUUID->"3048813b-1d54-1541-977b-65898c1003a8"], + +Cell[BoxData["214.93123633488517`"], "Output", + CellChangeTimes->{3.9913204211275444`*^9, 3.9917080675337753`*^9, + 3.9920895669797745`*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"18ff9f45-1565-374e-8c56-abe2be66a4b4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"6f6cb038-51dd-ee4b-9bdf-2bf05256a435"], + +Cell[BoxData["0.6559383278596986`"], "Output", + CellChangeTimes->{3.9913204211385536`*^9, 3.991708067540825*^9, + 3.992089567007345*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"54716ac9-9206-2842-a0a9-1fe049a9df7e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"ba89a9a0-0726-9d41-bc94-cee3566ff966"], + +Cell[BoxData[ + RowBox[{"-", "0.37229468143309563`"}]], "Output", + CellChangeTimes->{3.9913204211683464`*^9, 3.991708067561775*^9, + 3.992089567034361*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"89444dae-c60b-dc4f-ba96-d774c8b95ed9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"91d07e1b-a6d9-664f-93e6-9e1c0df476bc"], + +Cell[BoxData[ + RowBox[{"-", "0.10565103139566565`"}]], "Output", + CellChangeTimes->{3.991320421199068*^9, 3.9917080675837746`*^9, + 3.99208956704138*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"adc1ea7e-a1a8-6142-93c6-ecdc608a1d89"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"984b583a-0b2c-3248-811b-fefac388e307"], + +Cell[BoxData["0.4612539649188019`"], "Output", + CellChangeTimes->{3.991320421228037*^9, 3.9917080675917854`*^9, + 3.992089567068819*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"48214336-53b5-3740-b3a3-f7912ccc4998"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"62d15abc-5e0b-5d45-9b90-61836ae46bc9"], + +Cell[BoxData["1.4675571041126967`"], "Output", + CellChangeTimes->{3.9913204212585373`*^9, 3.991708067612774*^9, + 3.992089567091913*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"c9493975-0d20-5141-8aec-e53983216f32"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"b991a253-a043-6945-b917-59c53d095ef8"], + +Cell[BoxData["1.9764491154865769`"], "Output", + CellChangeTimes->{3.9913204212884274`*^9, 3.991708067619776*^9, + 3.9920895670979404`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"0979f1f6-8811-6048-8875-077856627626"] +}, 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[65]:=",ExpressionUUID->"95c01338-09d3-f746-8c8d-07fac969a90c"], + +Cell[BoxData[ + RowBox[{"-", "7.349370511218955`"}]], "Output", + CellChangeTimes->{3.9913204213185234`*^9, 3.991708067640772*^9, + 3.992089567104452*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"066a5d4b-8e54-1b4b-b3f2-ccb08ad8fbab"] +}, 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[66]:=",ExpressionUUID->"0648e5cc-dbde-d246-93fc-dd38f052ea85"], + +Cell[BoxData[ + RowBox[{"-", "23.078177749593607`"}]], "Output", + CellChangeTimes->{3.991320421349531*^9, 3.991708067662775*^9, + 3.9920895671316357`*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"96064bb9-3b23-454b-961b-f432e3d1d3f6"] +}, 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[67]:=",ExpressionUUID->"6e6ddedf-fc1b-6f4b-ac38-b69e062ed7cb"], + +Cell[BoxData["251.15823662644252`"], "Output", + CellChangeTimes->{3.9913204213784294`*^9, 3.991708067669775*^9, + 3.9920895671566715`*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"368a6cf7-0e99-154e-a6a0-483f43e8de78"] +}, 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[68]:=",ExpressionUUID->"f71eb64e-299f-934d-b769-e8cb99106e5e"], + +Cell[BoxData[ + RowBox[{"-", "173.4091077962894`"}]], "Output", + CellChangeTimes->{3.9913204213904285`*^9, 3.991708067690773*^9, + 3.992089567162657*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"19cfb937-ddd4-004d-af17-0cf7f5758979"] +}, 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[69]:=",ExpressionUUID->"747c7be1-9634-e64b-a475-3c0c88b3d601"], + +Cell[BoxData["191.85305858529156`"], "Output", + CellChangeTimes->{3.991320421419428*^9, 3.991708067697775*^9, + 3.992089567189335*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"7413c38d-cb39-b74c-b504-cf09acd96bf6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"5e43eac2-2bf4-7d43-9f7d-9c24c5dadc3d"], + +Cell[BoxData["101.27199504223573`"], "Output", + CellChangeTimes->{3.9913204214494324`*^9, 3.9917080677197742`*^9, + 3.992089567218281*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"d4aa9bd5-0509-7a45-ba50-2cf7548877fa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"f32be67e-c897-814d-a7c9-655b24dd8615"], + +Cell[BoxData["597.1387713314264`"], "Output", + CellChangeTimes->{3.991320421481529*^9, 3.991708067726776*^9, + 3.9920895672256775`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"7d7d8e8f-df61-da42-a283-65d99f702b2b"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.130544612621423"}]], "Input", + CellChangeTimes->{3.9918455833864365`*^9, + 3.99208978200362*^9},ExpressionUUID->"e6c462cd-8982-3c4a-8614-a4032c2a753f"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991845586273697*^9, + 3.9918455862781773`*^9}},ExpressionUUID->"abfd70d0-05dc-ae40-8117-\ +a301872389cf"], + +Cell[BoxData[ + RowBox[{"f2", "=", "0.3286783889013"}]], "Input", + CellChangeTimes->{3.9918455848875866`*^9, + 3.9920897864405346`*^9},ExpressionUUID->"ab6f3c19-7b16-eb44-924b-\ +0479fa42666f"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991845587327196*^9, + 3.991845587331728*^9}},ExpressionUUID->"6e63ff1c-fb16-304a-8e59-\ +6a9d82a9fa7a"], + +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->"764f2b72-583f-404a-86dd-302e46704fa0"], + +Cell[BoxData["2.3793916761039797`*^-53"], "Output", + CellChangeTimes->{3.9913335367025833`*^9}, + CellLabel-> + "Out[233]=",ExpressionUUID->"a1ad1275-791c-2c4f-89d0-0191b45c7ed9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + 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"]}]], "*", "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, {3.9915581188955975`*^9, + 3.9915581216343517`*^9}},ExpressionUUID->"296c29c6-b9f9-1d4a-99c7-\ +5d23057d1dfa"], + +Cell[BoxData["5.020725113795862`*^-55"], "Output", + CellChangeTimes->{3.991333536726557*^9}, + CellLabel-> + "Out[234]=",ExpressionUUID->"3e2faead-b69d-5c48-9979-35e754d12d58"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + 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"]}]], "*", + 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}, + 3.9915581158968887`*^9},ExpressionUUID->"da02f8be-1800-4945-83f1-\ +7acaa76423f4"], + +Cell[BoxData["1.871372642785671`*^-54"], "Output", + CellChangeTimes->{3.9913335367515736`*^9}, + CellLabel-> + "Out[235]=",ExpressionUUID->"4f5ae42d-c740-c045-be91-9f9e31eab3b6"] +}, 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->"c6346807-3d42-e948-8c5a-115ea1f6a2c2"], + +Cell[BoxData["25.178011816139865`"], "Output", + CellChangeTimes->{3.9913335367605553`*^9}, + CellLabel-> + "Out[236]=",ExpressionUUID->"2bcde3f6-d18f-c142-963c-217812e9dc72"] +}, 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->"474c5dd1-c344-a04c-8714-ada3650bf998"], + +Cell[BoxData["31.32034821453639`"], "Output", + CellChangeTimes->{3.991333536783556*^9}, + CellLabel-> + "Out[237]=",ExpressionUUID->"482feae7-b6d8-8143-b572-b9146e6d2e0c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[238]:=",ExpressionUUID->"2305be88-628a-524a-b468-85b3cc42efc7"], + +Cell[BoxData["0.7475613664925793`"], "Output", + CellChangeTimes->{3.9913335367915726`*^9}, + CellLabel-> + "Out[238]=",ExpressionUUID->"1c1deb9e-a6ca-0143-8db8-21cdffc73907"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[239]:=",ExpressionUUID->"426f7e1e-7abd-a446-8679-e422e283f98f"], + +Cell[BoxData["3.5403946764909393`"], "Output", + CellChangeTimes->{3.99133353681583*^9}, + CellLabel-> + "Out[239]=",ExpressionUUID->"ae59e030-d7e1-1a4a-8ffb-9ecfb821ce05"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[240]:=",ExpressionUUID->"933badd0-5ce1-e645-bb03-d046b1312945"], + +Cell[BoxData["110.88639408458714`"], "Output", + CellChangeTimes->{3.991333536826782*^9}, + CellLabel-> + "Out[240]=",ExpressionUUID->"c953f025-a342-2549-9fa6-f90bea449e4f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[241]:=",ExpressionUUID->"2d8a17a7-6a4c-d94e-b0e2-4da7c60ebbeb"], + +Cell[BoxData["18.822108918839827`"], "Output", + CellChangeTimes->{3.9913335368508377`*^9}, + CellLabel-> + "Out[241]=",ExpressionUUID->"6e8c23f5-f692-db4e-8373-e6c78b3e7fda"] +}, 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->"042e7197-09fd-dc46-b3fd-dc1740a81970"], + +Cell[BoxData["0.042044960793272385`"], "Output", + CellChangeTimes->{3.9913335368758316`*^9}, + CellLabel-> + "Out[242]=",ExpressionUUID->"d074617c-8fe0-114b-b207-70158bd6cc83"] +}, 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->"bccf6e25-da00-4449-8f0f-f2b61c58f67f"], + +Cell[BoxData["4.322031867849089`"], "Output", + CellChangeTimes->{3.991333536973074*^9}, + CellLabel-> + "Out[243]=",ExpressionUUID->"cdd7cedd-6455-ac4a-8fce-733ce51f863b"] +}, 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->"9f9260b3-ca67-3f4a-a0c4-5bf2cb98e110"], + +Cell[BoxData["0.011395075201487413`"], "Output", + CellChangeTimes->{3.9913335369870644`*^9}, + CellLabel-> + "Out[244]=",ExpressionUUID->"aa72f32c-329c-9c4a-b6f4-833dbea197c6"] +}, 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->"52f82243-9920-3742-90e6-48395671d171"], + +Cell[BoxData["8.302069082299768`"], "Output", + CellChangeTimes->{3.9913335370800858`*^9}, + CellLabel-> + "Out[245]=",ExpressionUUID->"e26071fd-e2c1-5f40-9a42-81481b4dd96b"] +}, 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->"a147c908-551b-8647-9cf0-48614f0cb274"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913335370930634`*^9}, + CellLabel-> + "Out[246]=",ExpressionUUID->"88673969-cab9-0b40-80f0-7c0bcdf60439"] +}, 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->"4c078cff-433d-8245-900f-0a3b49ecb9e6"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991333537118065*^9}, + CellLabel-> + "Out[247]=",ExpressionUUID->"bfe4c50a-d3a5-244b-8f56-30e5a15018a1"] +}, 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->"f07c74eb-272f-1743-a996-1dc503a54262"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.9913335371420746`*^9}, + CellLabel-> + "Out[248]=",ExpressionUUID->"857149a1-8aab-954b-86f3-2a3228e46ae1"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"c5ebf9ff-e333-\ +7b4d-b8d5-46482917dc06"], + +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.991845612037445*^9},ExpressionUUID->"e7569d02-bed5-3743-8058-\ +837bf8cfd65c"], + +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->"3a1412e4-c6f1-e745-8a72-cd3619617eb0"], + +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->"413e4690-bb6f-134e-9c1c-5e19bdbe37ff"], + +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->"557c737f-44e5-b047-9b96-8c222633e876"], + +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->"0989ac4b-acdb-9949-b4d2-70d1b9f65dbd"], + +Cell[BoxData["4.322031867849086`"], "Output", + CellChangeTimes->{3.9913335399194164`*^9}, + CellLabel-> + "Out[249]=",ExpressionUUID->"0cfc830e-08fa-4f4b-aef5-0a6c70777af2"] +}, 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.9918456299851303`*^9},ExpressionUUID->"71739d4a-f3fc-9d4f-b803-\ +99b4407cdc6f"], + +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->"726ccd2e-9850-144f-ac6f-a8db23e40300"], + +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->"d5c6080a-ef9c-5541-93e6-fcef34fc5c6b"], + +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->"a5735bd1-5fc2-3c47-a19f-be9d8c805502"], + +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->"1dd8474a-97c2-3246-8ead-1536370ac767"], + +Cell[BoxData["8.302069082299772`"], "Output", + CellChangeTimes->{3.991333542631773*^9}, + CellLabel-> + "Out[250]=",ExpressionUUID->"96c807db-2e4e-1f4a-822d-d2a69cd27982"] +}, 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.991845637746252*^9},ExpressionUUID->"762274ee-d7cb-9644-9b5c-\ +516685cd7481"], + +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->"925ecd2b-bb46-b241-b0ae-91df536967b1"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918456416071854`*^9, + 3.991845656553877*^9}},ExpressionUUID->"c4af1473-2d54-b047-b3e2-\ +18c19d38cfdd"], + +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->"9c0b88be-018b-9b49-8992-9f69ff2c8721"], + +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->"0dc889c7-e5c7-5d48-8218-94f8d4104b1d"], + +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->"e3ce988d-52a1-6c46-93b1-24547de7012f"], + +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->"1ec64821-f1c6-944d-83dd-2975f7431573"], + +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->"b1f00f3e-b26c-bf4d-a0fd-9968a9b2c4e7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.991846110594208*^9},ExpressionUUID->"4e5b3330-e10a-4342-8f3d-\ +b24f9b16b9de"], + +Cell[BoxData["9.33220071900516`"], "Output", + CellChangeTimes->{3.991334803166374*^9}, + CellLabel-> + "Out[254]=",ExpressionUUID->"1560efbb-94f0-5144-9b19-9d176fc4dd8d"] +}, 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.991846112020672*^9},ExpressionUUID->"bb5f3a72-8528-7a48-a67a-\ +a23038fc5b71"], + +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->"aec1bc78-c42d-654b-9d44-6cd3626266ac"], + +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->"f1a8642b-581b-a442-a1d9-50687b910475"], + +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->"5a841663-4049-3b42-9c28-d33b4ccb324b"], + +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->"002a296e-87c0-e748-91ba-edf75724ad49"], + +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->"c4fa73a0-9f42-fb44-a044-6efcf5132509"] +}, 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->"0da19810-21b5-1440-b6da-efec04765d71"], + +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->"7bcbb4da-a8de-1b45-8b24-dc27272fdaa1"], + +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->"15898f02-540e-cf4f-a0a1-f3ae96bbddb6"], + +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->"99a44b10-ed73-684f-a35a-9a86c980f3d9"], + +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->"5e0acd55-8564-1749-9f1a-5e9cd04ef83a"], + +Cell[BoxData["9.332200719005158`"], "Output", + CellChangeTimes->{3.991335263670042*^9}, + CellLabel-> + "Out[256]=",ExpressionUUID->"a97106d2-ef63-9147-8535-daa57b06eb20"] +}, 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.991845708089321*^9, + 3.9918457122231236`*^9}},ExpressionUUID->"d3b2932a-2d3f-fa41-a705-\ +f816ef30ba1b"], + +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->"4287df48-5412-ba4f-8ac5-009fa9b4a304"], + +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->"59c4f004-977d-f648-9c23-b4080e1c8591"], + +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->"60f490e4-4b4a-6845-a3d9-028c70afb6db"], + +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->"9ab542c7-4ae7-1e4b-b6a8-ee19008898f7"], + +Cell[BoxData["0.00046079539931050297`"], "Output", + CellChangeTimes->{3.991335268779545*^9}, + CellLabel-> + "Out[257]=",ExpressionUUID->"0d1e7940-37bf-bf4f-bfa4-a5ba2d7cb1dd"] +}, 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.9918457167596684`*^9, + 3.991845720288498*^9}},ExpressionUUID->"3a5379d3-3adc-3844-bbe2-\ +4530809b7b8c"], + +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->"79bb4b1f-3177-c842-aa67-d93f3ad3365e"], + +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->"517afb64-9d7b-6748-abe1-5fa348ccbc29"], + +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->"d19413a7-2cf4-0549-a8b8-37f98f04b017"], + +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->"e2ebea89-90c0-5d4f-8c43-eea596c7d6fb"], + +Cell[BoxData["5.104103620353258`"], "Output", + CellChangeTimes->{3.991335272704685*^9}, + CellLabel-> + "Out[258]=",ExpressionUUID->"7c4d0729-640a-ed41-ad1f-5a5a75f62d87"] +}, 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.991845728758301*^9, + 3.9918461210058537`*^9},ExpressionUUID->"208e04c0-4af7-a344-9e86-\ +ceb616bf22d8"], + +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->"c1d8bb29-16c6-3f4b-8a9b-ba7e90da9672"], + +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->"1756ecee-a1fe-bb40-bfd8-48d4df8ef76d"], + +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->"d0cb69f1-ced4-d843-98c1-600cac395a38"], + +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->"ab747287-9372-314d-a7c4-14fc011f850b"], + +Cell[BoxData["18.832858301324727`"], "Output", + CellChangeTimes->{3.991335275154251*^9}, + CellLabel-> + "Out[259]=",ExpressionUUID->"e6bb3b57-900e-ed41-845d-3c49874fc850"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991846126007372*^9, + 3.9918461306014214`*^9}},ExpressionUUID->"53a3c067-888b-bc49-a5e6-\ +f228162e6070"], + +Cell[BoxData["0.00004699917922538678`"], "Output", + CellChangeTimes->{3.991335275186266*^9}, + CellLabel-> + "Out[260]=",ExpressionUUID->"88a5aaa2-9216-404d-a8aa-70ecb36db857"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991846134278736*^9, 3.9918461363904533`*^9}, + 3.9919238355720615`*^9},ExpressionUUID->"0c2ac2c8-096e-e64a-aaeb-\ +bb84e7548fdc"], + +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->"5c8cab9c-f39b-364c-ae6b-c415e4dbcf46"], + +Cell[BoxData["5.744985073726737`"], "Output", + CellChangeTimes->{3.9913352752142563`*^9}, + CellLabel-> + "Out[262]=",ExpressionUUID->"2dde55a6-2323-454c-b60b-61a76b5d44f2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[264]:=",ExpressionUUID->"106a4571-94f1-5343-b4a9-78f21d5e84b3"], + +Cell[BoxData["1.564995573098557`"], "Output", + CellChangeTimes->{3.9913352752482567`*^9}, + CellLabel-> + "Out[264]=",ExpressionUUID->"344bf722-e54f-374f-b65c-1dfe2f693b7e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[267]:=",ExpressionUUID->"b7c1808d-73a9-d645-bf95-223de85093e2"], + +Cell[BoxData["8.990876207899632`"], "Output", + CellChangeTimes->{3.9913352753089123`*^9}, + CellLabel-> + "Out[267]=",ExpressionUUID->"37f05469-042d-5c49-acdf-eb29d6a15290"] +}, 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->"e9c41729-285f-7d42-bb43-ee09dea88444"], + +Cell[BoxData["0.07167004636648908`"], "Output", + CellChangeTimes->{3.9913352753341656`*^9}, + CellLabel-> + "Out[268]=",ExpressionUUID->"a9f66528-7902-3848-84e1-d06cd8efb93c"] +}, 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->"efa9c5ac-4baa-3e4e-9760-1e46cf5c01c0"], + +Cell[BoxData["3.3103666491187544`"], "Output", + CellChangeTimes->{3.9913352754296722`*^9}, + CellLabel-> + "Out[269]=",ExpressionUUID->"c5f93787-bd57-b143-93de-29b700483396"] +}, 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->"7dcb74da-1357-7e4e-a03d-852f8e740128"], + +Cell[BoxData["0.012832691268660865`"], "Output", + CellChangeTimes->{3.9913352754426765`*^9}, + CellLabel-> + "Out[270]=",ExpressionUUID->"7b0024b2-1e68-904c-b216-49c58abdde0a"] +}, 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->"4c537c9f-ce6a-8f4c-9e68-01e12e3017b7"], + +Cell[BoxData["7.823229443917166`"], "Output", + CellChangeTimes->{3.991335275540678*^9}, + CellLabel-> + "Out[271]=",ExpressionUUID->"725e176a-1300-6f41-9ba3-e070b7b00753"] +}, 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->"1e3d1dc2-d9ac-9045-a648-58006d1d6cf6"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913352755566807`*^9}, + CellLabel-> + "Out[272]=",ExpressionUUID->"56e25769-5fae-9845-ac42-be0bc3e98c92"] +}, 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->"2371743b-ee83-9146-bf98-330cb0fb7e0a"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991335275581682*^9}, + CellLabel-> + "Out[273]=",ExpressionUUID->"0574b2f8-313d-764f-97a0-b69ae3bd044d"] +}, 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->"8b6de8d6-9524-3347-a11b-48bba48b07d0"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.9913352756087036`*^9}, + CellLabel-> + "Out[274]=",ExpressionUUID->"95ff35fe-9928-0447-aa14-c396ca299126"] +}, 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.991846151022602*^9},ExpressionUUID->"a41abb59-b808-8547-b1d9-\ +a574acad5c53"], + +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->"87b7fc82-cf0a-ec4d-83b9-1f172c2a1277"], + +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->"e0980964-44fb-0a4c-8205-9ce871cb8c93"], + +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->"769d7438-8b0f-d04b-94dc-ec99bab472ff"], + +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->"c243bb4e-27de-574b-aeb4-b19a9e2e805b"], + +Cell[BoxData["3.3103666491187513`"], "Output", + CellChangeTimes->{3.991335279487499*^9}, + CellLabel-> + "Out[275]=",ExpressionUUID->"678e1d2b-842e-e545-b4df-7b6cad732095"] +}, 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.9918461538845863`*^9},ExpressionUUID->"779c8db8-6bae-9046-915d-\ +05cf0a3cee42"], + +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->"513e0bd5-dbba-a448-aa49-b2f50bf64a60"], + +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->"af5e90bc-196b-e043-94e8-4bb9c49c6b5c"], + +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->"8f26edac-d5c1-324e-91b6-0e386d5a872d"], + +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->"6833928c-ef21-0d4b-aeed-ecf995491543"], + +Cell[BoxData["7.82322944391716`"], "Output", + CellChangeTimes->{3.991335283631424*^9}, + CellLabel-> + "Out[276]=",ExpressionUUID->"74d46ae4-1766-0c42-9255-78e61714806e"] +}, 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.991846157029255*^9},ExpressionUUID->"2fa4bc1d-3549-0e49-9fa0-\ +9e5dc16aa40f"], + +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->"1101a597-b433-8944-aac8-4b6263f307b3"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918461617737026`*^9, + 3.9918461709620533`*^9}},ExpressionUUID->"6e23e6bb-e46c-1c43-a88f-\ +db092cf7ac8d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.219251816068453`*^-266\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 278, + 261, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913355428514004`*^9}, + CellLabel-> + "During evaluation of \ +In[278]:=",ExpressionUUID->"698a0ec2-6362-4a4c-9512-68ac03e6ab94"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8936448232315485`*^-277\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 278, 262, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335542864294*^9}, + CellLabel-> + "During evaluation of \ +In[278]:=",ExpressionUUID->"c7464263-6d3c-ad4b-944d-708e3b53f8de"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6158106487006413`*^-288\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 278, 263, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335542873293*^9}, + CellLabel-> + "During evaluation of \ +In[278]:=",ExpressionUUID->"3b2b96d7-8ae3-e140-a8cb-bb0d54486d84"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 278, 264, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913355428812923`*^9}, + CellLabel-> + "During evaluation of \ +In[278]:=",ExpressionUUID->"52f611be-ecf7-624a-b8a8-553d5cafe96b"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVl3k4VV8Xx81DRco8zxd3+DUoGeqsRcoYySxKStGAQpIGhFQyZCZCSJMM +lTGEynAviRBChlIRQkh47/vPOc/n2c8+e63vXut79pZ38TzgysbCwqLBfPz/ +/ae/sV7pVhwhYhs/VB95guhIF/PX7T4HhvW5HQJ39wAKt7qIdQdDN8VyT2+q +NZzf/6iLvfsOGLkVTT5MdYUNv0TvLHZlAbdNCP+OVF8YqDTznO0qgvmjlV1x +yaGwV+nH5+muWjAMi2mRj42Hxa4d8VNdH+C+kRHJ2z8H6nY/yG7LGoa+cyWz +gz9egNRA2VcX6gRUXE5W+hZSDSwzZ5MaLSbg2rUit/N51TDCRTbe7DcBBNvE +h5nmanj6X8rT5dcTcOVFuZsjbw0QVy76JNn+gj1qKjXPzWvgsLQOW0vwJPyn +fFHocU8NtNH6I++OT0GHz0XKue+vQej04Ufcu2eA5Efzzx2rAzL3/bf7bWeA +r+rpjZ2LdYBZX4eST83AzOaQ2je89XC6+4wkNW4GSq703iwk10O9/qWI/aMz +IDTSEj5xqh58pJM9kq/PQi0o/Jv8WQ/tLR+2Uuhz0PFJsvjblzcw5i5i7jM4 +B9q9wurtU29ghcPh1KvZOSBfsx0uWH0DZJ0v982l/8C5DvcyPem3EPxgUsjH +4w984Vm+Wm37FrYGrpuvFJiHwDNCDaJNb+HOlr0VZtYLsDvuCF0s+x1s6rU3 +2OW2AD2Dh/gPFbwDesiZdkrAAlTr7bqfUPkOuLrjfvJkLkB/2+EXXzreQcCV +Ycm68QVoi2JfN8DRAMeaAy/tCFmEHz2TNG+XBtBwrdglV/wXZDZfnBgTbIR2 +/tZG/rd/4e+e5OAYmUbwKh2yXu7+C1IPVFeoao3waO0aj56Vv3CSZSVtJ9EI +skV26XHGS7DRtFaz6kQj8KzOrfAMLcHxhozXhqWN8Clpc820wDI4lOrnnjZv +gpT2x+vPKy8Dd2iZ1H/2TeDAr3L4rxZzfHR5dMClCfquSa+wHV0GjzcZJ4XO +N8Ggx5qdQi+WofWCreDr1CYY0x8p0bBfgS0fPtFVRprg4dXD3BVnVqCmbL5t +YrwJTpb32EDwCjhvCBDNnmuC8U1tcwaPV8BIg3zkC1czTElUqdsvr8Bx/qrB +dNVmWJhKfBaQuQoZ766bKbs3QxlFcHX1xSrk7ZCjTXo1w8XjkWYhTauQ+uad +4cMLzfCvN2QiYmYVPnP4af663gyBw6XCrQos6D47zVGR0wwhLTmWgz4sOBxm +MODc3wy3sq+2somz4hDfy8WR3XQw3ua+UViRFQ+fGxFMM6IDT/0BaxUaK8b9 +bZbba06HkGHlXhNdVmw4WSBxyoEOlxToX+PcWfHeTs5GFi86eGSIrZDKWfGT +19W1Tkl0oG5m09WqZ8WOm2R75TQ6/Kj+ec2khRXnYlaq+jPpcGKgitdriMn6 +Gv1Kj+ngLOMqXLaGDdUHKBUrlXSwuFtINTnIhrxWZck/P9NBgJrq6eTKhisu +A61vv9ChpSKkyNOTDaeW1++PHWXG32urGXeNDcUlCnayTNBBT2Jl9+fHbGhE +PkQlL9GB5dG3sMkXbPidMi8avUKHKq22RtYaNrysvu7UN1YG6Nhnm5M62HB/ +lK7tSR4GbEsyPuj5jw1l3a+VvBZiwG+VbelBXOxo8MnKrFiUAQUl0l9iBdhx +dNu/0wkSDKB1TR0vVWLH9bc/HNgixwCSSOI51n3sTL12aZeTGTCSE/hC0JYd +tyP/DU0aA7K2n1xQPsKO0Y4jwXmbGCBjveuKsS87Cuisvem0jQGiccM3YtPY +MelynLvULgaIUV6ELOSyo+m7v02cwACJ2rCrTgXsKKpT3jGEzPlTar4qdeyY +W2s67afPALnrS54RdHZsF9Jct3kvAxRkGCenP7LjztUnA70GDFA29XKuGGNH +pd2VNfwmzHiHdQ/K/WbHB+35nfGmDFC9KGgTusSOgQd7XwiYMYCa99LEnJ8D +FzO/D37ZzwB1jmWNYXUOVIB6l9/WTL1SW7YY7uLABGdNHTFbBmhszaA+3cuB +f+9Ur26xY4C2824FP3sO3K7KdVjXgQE754Wk+1w48MqabrYdBxlARH4V1T3N +geSJL9lyjgzQrbzBt/YqBw4+EP7T6sQAPcuDPF7hHChOi8yPP8QA/R9U9o8x +HOi53OtnfpgBe4NWlrVSOdB5tdRmmcmGYu8X0rM5cM2Fr+b3nBlg/Cxzhj2f +A3ez09y2H2GA6V7vX24lHFh2yzG7mslmn/W/M2o4cEnPlJdwYYC5j8jI1iYO +TEvuSS1g8v61Y/2J7cx8d0w4ix5lwIGssk//+jhQ4LeX0zkmW2nd6jjylanP +O/uE10y2ee/Y+naSA498zBLgPMYAuxP/NVEWOfDlPrO2nUx2WFmtj2bjRCNv +189uTHaMb6ueW8uJ6lELWjeY7ES9X+4gzIm7vsuMpzH5UJ3Pi2oZTqyr/rOQ +y2Rnh70FSqqcGAg5rtlMdpkWfXxjCydGBNjsSGDysfDvOb+0OZHTdZf3JSYf +l63IsNTnxIXaWBlbJru9jEgt3ceJKuQUgsTkk/sOJUjbcmLDbGL3d2b8p0Y2 +xQQ7c6K5du90JpNPB7BGfHPnROq70igzJntsbA8z9eZEX6GIkkmmPl4Ps4MK +L3HiKyjxCGXyOTx/SSSMExPY7pevZ7JPl4FfQBQnnnpUlRHJ1Pu8h/i5wSRO +5BUIJLEx2f9u5YlHjzlxduUn6R1z/y6qR7qsf8GJtQ+ynogx+VLTYSefKk5M +2yk6doi5/4ELbJZEGyd2diQlNDLrJTiqY9/9Hk58wD4q9ItZTyGkXEOeEU68 +cuzMYW4mX7cyIj784UTWtX88xeyZ/fO8RYKNlQuz2uZ8F5n1mi9oNb9lLRcu +mZ0+xbBhQOeHQwUxslxITtqjZ2bF1GfrSMRrNS4MPBO0dekAA5Zj3N2n1blw +9PfoplQLBihZ+ChYGHJhPKHh9ZzZL6UFiyuBB7hwWmBXLW0fs94ErvYWOHJh +cUwWpDD7zbv1RpzAWS6MvSvWa2rIgNp997jeJ3Nh0ojNaXFdZv08VRpevc+F +6cE1U1Rmv/9Y96h6Uz4X2o9796sz/WAD/fmFqFoupK+gsJQWsx6Mm36Y/eRC +adfuFpvNzPj2zrUwdnJjn/6By5ekGBCde/Hx8l5udA6stG0SZ8bLxRJOs+DG +2bZvUuuYfmb6Zo3ubVdutP7ZGX5qAwNSdssVm0Zyo6brcFsKJwM00SSxeYAb +JbfFx9X+pAP93nvvpe/cmOtZIGA5xvTvVev9lFlu/Gf5cbVrhA7Xq5x5b/Hw +YHGwqkM10787d54PMN7Cg4tPns9ytNLBWyvzcGMwD1ZxKAV7P2P6dwb/rEkE +D2o4NkgmMP8HCtyXwlviefBeX7vsswd0eN9hU9iex4Pemnkh9ffo8J/XOvb+ +Fh70PdwRfTmKDmO5frm/JXjx1Z/POpvO0MFRyGxCspgX10ssdL+Rp4N6QEVQ +eiUvDhw3taiXosOaIVUR+be8aHB/mlQuSoeyZ+xA+sSLEmsceSP46CBiUha9 +eZUXLWSCQhsXmuF9kNK2PSZrkGvLqFYRoxn0J/9e9Bheg34fTNnPnW0Gf8M4 +8uvxNfgofbD7xqlmyM+k9Qj+WYMC9wqsU1ybQczKWauMZy3mSx87mmPfDOOl +b+bZ/1uLnOKr94/pNkNscLRP8oW1uCnL0zVyfTMMCZM86vnW4fuDE5frc5sg +aKfFEQlNPnzQfWfZvbYRDA+l/96hx4eD+1676Jc3An/gz2vWpnyYFlbnKlbU +CHfrQnOjnfmw/Wr66aeZjVBqXP6T6wYfNn5li4kIbIQpO8XzM5/40KR1J11l +VyMc8p27SQ/gR+GTYpEiRQ2gnZ/8/Er1ehwIapqYiXgHpxemAxv4NuCkprvj +Db03sEgR6KdZb0TuxrpKhYe1sPPxk4yEBEFUUPoUsCRZA9MbjZ1taoWQ39zZ +ui+zAkYinG3OcYsg6Zzeq45/L8Fo0s9oVEMUT8ZKHFflK4bxozzez6+K4aq1 +8+beyHzm+V2U7XqtOLIuGeyK2ZwH310M8nTeieO/FtEnVRJ5EJHpZzbVLI6n +CwS0/3LkQbtMd4r9R3Fs3TD8MPXTA3AWT1anjolje9nv2OvXHoA/v6RrG58E +igVf2sfakwtPFmQaJO0lkLeu8KZbTA5sZJAiCyYl0Mu8d5252n1Ymdyc0zQr +gTvOby9wFr4PPzbqVI4sSuAKY3U6iPU+1NqZ/xDjkESTjGs6M5+ywHvEb2+Q +mCQ+Ehkxi76VBR1LDSsWupLM/izIejadCYnkU54zdyTxCtD6HBozQCr82X4N +DSlkkIPnxY3T4FH+07pFbSn01cwS+UhJA82PjzVegRTeVpWszeNLAyuFPCl9 +IyncNeUVk9x2FyIqM8YsHKVQUbek657DXViaigk8EyyFOq96ZLafTYUee5+C +7BYpdAop2be1IBmSKFoCgiek0clpB+/ouQSwNmFEV52SRqNK08EhhwTYeOrI +hpNe0iiz83rAnF4C3Hp0Y+Nrf2nUbrN7byeYAFfUeoQ8I6QxwuNygciLeDim +EiDeXCiNwt6naa7/4mCL4iuFa/+kcWiH6tBSciz80rO4/x+rDEa7EC0BIbHw +yGVUsYdTBreZbVy73jMWlLL4lLesl8FZSwNDT/1YEJM/pDIgL4NjUdI3hafu +wIrMKkXHQAaVv4fO/jK+A00SuttnYmRQ9L1UwTX+GHgv84zEkSiDq3+L3UoW +o6FTQVpM+K4M/pQ3U2IZjYYv5MW/GrkyyMev7P6+IhoWtAtrLpbLIJgO3jh5 +MhpIB+VN2YZlsPFZ05GphCgITmU9umGbLD62fRuhqHUbwu95WiloyWKo3fD5 +O0K3IfL+5z3qhCxi7UqJylQEJD8uU7U2lEWF9ntN9Q8ioKDi7K8kR1nkUPrN +9lYsAvp7v/jLhcpiEyPWuZn1FmhL1UZv6pTFL6JBJmKT4TCkqNT/vUcWlQI9 +aDvbwuEGJYySPSCLVu8krK4Uh0O3tvFbse+y2P2PQ8jpQjj42X9YYv0niw8e +Tn0OYg8HB5Oz6j8E5NBuT/QzK9nrkBDOtDcNOSQ2y/oEnQ6FkxFb34hryeGd +HQt8egdCgYge/nleRw7dPglLy2iGwmjiHq0tKIef+bV2q3KEwrYHvB05RnJ4 +m5ZnFJwWAh/exPBGOcphfjp5k/bHa8DPnuVzJFgOX2wezlawCwauxWrL6RA5 +dN3ky7MTgmHl1+etQdflkD3ZPuQcKRgme8SnMyKY88kDDhpzQfC+KObMYIIc +SoTIpIvEBcEdl6Djhx/LIaP7VbBCVyCI1DrbOXXIoX79rLPr8BXgL72yY6JT +Dh++2mjiX3oFuPLvilz+JIddAzZzNbevwHxyd8fdfjnUNb1U90PzCnSf3W/R +N8Zcb01aX1bMZUiRR+ODy3Lo+YNN8KLpJZAJkt1pT5JHvaNf2by/+kO+N4/C +Z1V5nLgZesa01h+I49PcRyjyaNVYNG2R7g9OJnXtbpvlcS+rZdKgjT/cFT5x +6oK2PLZumrvH3XQBxB/lpySayeN41dyyTakfCLXvWvx4Xh7N4znb24t9IfsN +acDeXx7/ma2y9cf5gnrp+jefA+SRkHHhX3/eFw6kfYkeDZTHkulJkVFNX4g5 +Eao6d1MeRYModxxrfID/H91W6J48Rjvo59h0egOvsuPLA+/k8eqJsEw36XNw +UhyMHzfKY7NW69YGjnPQxKfQz06XR80k/uN7xs9CxJ9vnC/ey6PCQLxOUsVZ +4G/wthbtkUf37W4n7h48y+z3W7O94/KYnHeUypnpBVKF5VtdNyqg5NFASbkg +D7iUk/b2lZAC6o2vLe6y8YDPyYEOIqIK+Ll7wauO6gHpwXuD30kqoJvd1usa +n86AnNWHNjVlBfS93qoZuu0MKM9/9/q1QwFFvpgJJ8yegv92iT/zc1LANR9e +EuLJ7lCs6L7E5qyArJfyJ4fPuoPmmjKDSBcF7Osutxoxdge9LrvB7BMKOL1U +gKHLbmBzNmnDh7MKKHjpSju6usHVHFEfapgCOqeIbXMnTsB7PhGtL/kKKGFY +ea1P2BWsZ11DTxcq4Na3mhfGZo9BT8+LtvliBWwp93yh0HEMRh5Yn+QvU8Cr +xelk+dhjsKAbn6pTp4AeyR6TIHgM5M8LrcR3KWCk6U+ej5JH4Vz/xjpjFkV0 +khra/t30CDS8dXz1iE0Rj/SeUiWrHwGZZ7klazgV8QVPQtFt8SPQdFX7SROv +It7ekzte8dUZFORd4o0FFVHpzsfEgmBnaDtaeMKYpIjLbyNuFAQdhs3fzdcZ +mypi4bXiKNVHjhDWlsz1yEwR2U4ceVJ2xRH6yoZZ1lgoolXvprNhlo4QftNv +rtFaEU305jralg/CIOVev9FhRTSyeYWq1gch2uNXgdE5RYS56RMJ/A4wORNh +bZSkiMmWRW2pj2yhrzvTJi1FEXMFT/S1h9lC06uXttN3FTFONllu11FbyL4+ +aJ+cqYgcS8YnsqRswUFy26HvjxRxcP9Tv8IYG3ij13v8xitFrEngLM4PsYbU +GLULjUOK+HNdbF9yhCWEnyf8pUcVsaIykeOmhyWcP2h58ew3Rez71+iSvd8S +9itfviQ+ztQvc3HSRtgSuMreB7rPMfMJ2JL2NOMAnB30u8HLo4Sumsles1UW +YLDpbYoRTQn1R120IsT2gx2XodX7TUpYPD356vJfczj5uZHPdqsSak5/GtlR +bw6RtxiBx3YoIS01YyrPzhw6v3Ucv6qrhL0eNYZnQ83gWMbw1hfWSqiVxLKs +8csUgjewNstdUcISqewHMYtGEDcWHPIgkLmeucR8Kd0Icqs5iP+uKaHGo9M+ +KhlG0HSGp1AnXAmTJK2OdRsYwYam9Yk2d5TwKaNQ+WqKIWQEyxyNyFXCRa2z +sjdNDaBqRmdpvkUJ51eLipYH9SGTXuJi2aaEfBEanbVV+hCSo96U366EO250 +l1Xc1QcjW0qya7cSWlsuPzCw14eOcokd7V+UUOGdz9Wajt3wI2jxXP6sEkpw +3lX826EHIgIlP45JKOOWMJlPrxYQFse2HqiRUkYX0p3kC30Ifa/zyyRllfHD +GPH1UA1Cpndu+AdFZeTI6dzyNByB2hVPQpoyil3mZjWWRNBL93GRRGXkNNrU +lBlNgAd1a0+bqzL6H1DsXxOoA77zEn8PuynjqmrI5rR9OnCpll3i10llbJaN +1A2V1IFbdh/t13gpo9nzsEirUm3IC7nwSe+iMnp8u3Dty5wWDPVVdRdHKuNQ +T2qCfqAm2Nw26YovUcZ4id3e71u2g5PdtnnFcmU8Z31cSSV3OxxTlBYtqlTG +h+seHai/vB28y37ZtLxWRmI/4f6eth2iR2M6uejM9S3UvRVjtkHTru6PfoPK +SL11Ic7mmDrs+nWsw56XhO/Zv1lJaW8BkQqDrMq1JIx8Y/4hTXIL/LpO9pLl +J2Ebq2yGxfJmSJefWju6kYQhy1uWzV5vhhWrgN1eUiRcp64emmSyGaorYorC +NpGQI5LyxPTDf6B7oyq62JqEi15R8RcjKCBhk3lIxI6Eh9u7WP86UOC3QgjV +34GEjyajr9PVKJBVadRAHCahJA91wK2BDGxTHauNbiQ0sfMY8eIlQ53NT4/B +ABKWlK19YpGiCnuUxPbxZZEwLN57SnBWGZ5PvJE/lk1C+tmv1u10ZVAq8f5T +nkvCG5qGXh05ysBh3HrP7TEJBTeW/pdipwy1nmG/656TsFV8/WfV10pAVMwm +XnxHwpacEYnlNEXQONA29G2chMopqX4T1+QhV/JqCTFJQv0hYSO1Y/IgPEqN +iJ8mYQHXTVKqvjzM+oVv3/2HhI5bnhbKcslDURqEp6+SMFzowKesW3Kw6ftT +5vVABedmzCfuoCyoBt68ULtDBfWeG9wa6JWESp0cTlNtFSTSlY6YZ0vC/vnq +Ox93qmCUFsNZ5YwkXPCYezKmq4I368hr+FgkocHR+Qu/qQruz/wdkEqWADct +DeODzip4XGFZhXpHDP7N7u8acVHBb2+LJenOYhBdcOqYh6sK2nyWO9m4SQxK +VTKvBJ1UwWqGQ/inFlHgEVlX/MBHBQfr/0oSG0Th4e8vkrPhKviQ5bVvZK4w +EPn/8i7fUsFFlSseZReF4YO7qAZ3pAqOtUb+3WEuDH8HTfdLxKrgzHjxJdqi +EBi3loRgmgo+aw+g/dgvBD8e356IKGTGN0G40tYLAtlVq1q5RwVbBM1LFeoE +IErB7O+1PhXMG43b/S9LAGYHXLYP9augSfPQ8vprAlDlEPE4fVgFpd44+Y3s +FoAD+wcSRSdUMFA4qelM9Hrw1wn14mVRRf19ahlOL/mgYUOb/ISyKh4vne8e +Ml8DtNZRRxNVVdTQC9WvkFoDdyL+Jj4kq6Lc0nz+9HdecORW4j++SRVzWwqX +fEN5YfLf+b/9mqpYsm2Ot7mGB0TGpNrfm6hizRfHLhlDbnCtcgt5flYVd13Y +F+IUzwG/zvzw2+Ojik5bX9l4uHPABenTpzrPq+L0garJrl0ccPOS54GFAFXs +TN3TWfSNHQq0z8vtDFPFZfofB19gh38vr1XWpaiioZaTRMYKK4Qd5yywSlPF +ri/5rNNdrLBe5Pr90XuquNDC+Ty6kBUUfG/e5M5Rxf3XEuTKXVnBQD3GzuSZ +Kuav7R7KbmOBO8/SZz/UMfPx57Iu8VglpA7LjR19q4rE7fvtD8mrRA5/Vu9s +gypOhNbxqH5bIUrP5NSKtKjiAeKbS92RFeIz5Um0Q7cqCsy//WjntEyo5pVR +h8ZVkWH8O1/qzBJRndFxbFpYDa+HRFlYjc0Tg6byh8+LqWFO08FTTc/nCZbF +M/ZLEmpYne+x5lHQPKFnwW3GKaeG8RH+T7Kk5om3rNo7xMlqqHeuPPWo7R+C +7nKPV5dQQ+40j0j/gVlign+c/S2q4cGV5RJK0SzBX6G5YrxbDaW38dvqhM4S ++wU//LYyVEMOwaNyXtRZor2Oo8/tgBqmhcsekLo6Q/QoncyPPq6G3zK7+r5u ++00svX+ZJ+yuhr7P/Bak+X4TUpfZ76ecUkOWqw/rH4xOE04f7yZme6mhRXrs +t4LEaWIwtDWw9KIa7v8eOXp9dYr49nWb5WCkGpbJ8L0LqpgkZvNW5zeVqOEp +22arwoyfxFebvRk3ytTw3TNty5QTP4lujtuGwxVqGMASnz/z30+iwlkiOaFG +DXnXZmrNVv0ggsW2ay83qmGvuqysyMh3QiD85KWmPjVca2mVQdMbI9g0CpWU +BtRwd2JjyKv1Y8Ts8Dz98hc1TDUjORZ+/kZ0Qaj0lq9qyL774fzri9+I9Pl7 +VYmTauggVfbiXNlXgnriI4srGxn5gjW5fA1HCRlhqYdVHGQ8JBa/blJylBCo +c7EQ4yZjyq4LX19PjhAzMlOZzWvJWGm30c8zaYQo71yze6swGQ2xZalrYpgw +3IuhqypkvDiW2WCRN0QcVX7Mm7KPjL8/q3JV2A4SF98cOknaT8YoNW8bza2D +RLTrxuaiA2QUvnqxj5tvkKjM8Y9otiUj583E6u3XBwghkuH65SNkTDtjQv/n +1k+8JY0KOZ8n43hShp29UR/R9zbJd/wCGdc/WSfDwtNH/D5u2nkhgIy+UyTF +He96CdkHxYkxgWQcVdbRsDDoJS6oBEvU3STjnEQ/p7BZD0FWlZUj3SPjD5mo +wX6fbgIbPgQWZZIx3N5skWVnN2HjFvaFyCYjz4TX5Uz2buJa3kSW7UMy83zh +nm4f10X0qVYq3ygm46UsrrgbFZ1EpJo9ZfwdGdssD5/mlftITJNjNYqmyLj3 +60jGH+0PRDcd9wjOkLH/DIOrf+MHosbjl6XPHBmlp592iv9sIyKLjM5q/CXj +HbuADRF32wiyNsuTcnYK7pJMqTdkbyNcjM7I14lQcGrqshGlupUw+imxWUmc +gjebvdR/XWglNt9uIEIlKXj+oN7vPeqtxMp7RUcDOQq6fBLHZw9biFS7noRm +NQpyqg22G6YxiI4TBus6dlIwL72y6G56M1HBOyexHSi4TjBwWelIM5H1OEst +QZeCUfjVabNSM+E1ubzXbi8FvZLjNOmPmwg+v+dBfeYUHCo2KF6qaST2hsnP +j7hQkL9zO89BtgaiNHvpy1w4BTnk+n+G9dQTGrt95o1vUdCJzqZ85Uk98eLL ++LqM2xSUaYju7rxSTxTJ9O8wvkNBNfupuw+V6oknSTW301Mp2H4x36Pap47I +iAjVMsinYOxQQAg3qZaQoayY3S2g4MJAtu6r5ddEWuP5Y9NFFDRQ2tzZ8PE1 +kcLlFpVaQkH7j7H0/rDXRFyg8ehkDQX3GWSozYzXEDd81scktVNQIV/dzja6 +muARDM+d+EjBTdyXygeMqomwQpZKvW4K2tjuoKyyVxMhv6a/jvcxv8d11XXF +v4q44taxU/crBU8yppb7Tr8izjkmj31foOD9DbraYmcqCAd9RdSRoaIgZPGM +tpYQyx08/HVyVBSKOH0/Mb6EyHD91WusSMW3JwPPth8sIb6Glfk5qFIx5bJB +15fvL4lzjebP/LdScSmuOVdz3UviptklmdK9VHTqdPRkuD0naANHxsGIircD +BnjCNZ4T7z0Nyt+ZUPHm9+DnZRzPCZGYjTZd+6m4z0ue70pWMZHVnnf7jwMV +eYKjWs4MFxHldh//bfOkYnH8Rmnei4WE0/fypsqzVDRUNN1WYVZIsFzMSNL3 +oaLI6p+wDsVCYm/qqW1W/lTMfgdbtVoLiA+fWU97X6Pii9ppu0JyAfHD5b/e +wkQqPlkWZdn67SkheeZ62X81VNQpcuPgj3pIRK4e336rloqX+TtP77J8SLDd +2Vv4rZ6Knje0s2ZEHxI/XnI+zGik4na+qO+TWXlEOUtI0sZ2Kg4CezZP9QPC +IS7Q788oFQP1VTkb+HOJFpLzzIExKpa6i1cP9uQQemXg+ewHFbkEHRU8H+QQ +5P6V426TzPzzq76N6eYQiyqXbXoWqKi1231u26VsIqnCf3vVWhrSt5PG7Tnv +E+vM7Asl+GkY+Cqm2r47iwgc1KT5CdDQreLCpprHWYQb54LSZmEa/vKNPPbK +MovYYX5eKEuGhrGRR3mO5GUSnUPnZkK30HCTqjvlztEMQnjN6cJ9tjTUXNQ7 +oal5l8jeffnilD0Nfzwd3DsxnkpsvRy5O9aRhkdcwqeOZqUSZlMFH7uP0JDD +hosctT6VCOucWzx6moZqUeHDD38nEwtZV/UuBtHQl3T909GeRCKsL3qtdAgN +j9bJ0w6lJBJCIlkd1WE0rLuUabPikEhsvlF/nDOChq4uTRVq/QmEuyfvregE +Gvr7ySWyjMcTPTqx7bmPaWhJ05m3U4oj3Hyz7xrl0xDTRffNT8QSf/JfuI4X +0HBHVICrYmkssVGhe37LSxqa36ZbyprFEiY80lKvamjoKTArFhh4h6jsyD3W +/pGGB+2LnKqXowlj/lLa+W4aXqdWOKW0RhPdBo1/xHppaJS17uQv5gVptvxn ++KFBGo64Hx35ZxBN0DI3P/3+g4YuAiWWyupRRGWP7vmICeb4mu3XyP2RhLGQ +JWyaouH4gUqL9TcjiePXfdt85mh4N5VnwWPkNjFbE5YiukDDU1d1vEfv3CaC +/yYeLf9Lw/T32h1b9W4TAtseUp2Wafhn2/Ci1e8IIv1M+dzqKg3jGnY1GN2P +IP4Hz0wYnA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3k4VV8Xx81DRco8zxd3+DUoGeqsRcoYySxKStGAQpIGhFQyZCZCSJMM +lTGEynAviRBChlIRQkh47/vPOc/n2c8+e63vXut79pZ38TzgysbCwqLBfPz/ +/ae/sV7pVhwhYhs/VB95guhIF/PX7T4HhvW5HQJ39wAKt7qIdQdDN8VyT2+q +NZzf/6iLvfsOGLkVTT5MdYUNv0TvLHZlAbdNCP+OVF8YqDTznO0qgvmjlV1x +yaGwV+nH5+muWjAMi2mRj42Hxa4d8VNdH+C+kRHJ2z8H6nY/yG7LGoa+cyWz +gz9egNRA2VcX6gRUXE5W+hZSDSwzZ5MaLSbg2rUit/N51TDCRTbe7DcBBNvE +h5nmanj6X8rT5dcTcOVFuZsjbw0QVy76JNn+gj1qKjXPzWvgsLQOW0vwJPyn +fFHocU8NtNH6I++OT0GHz0XKue+vQej04Ufcu2eA5Efzzx2rAzL3/bf7bWeA +r+rpjZ2LdYBZX4eST83AzOaQ2je89XC6+4wkNW4GSq703iwk10O9/qWI/aMz +IDTSEj5xqh58pJM9kq/PQi0o/Jv8WQ/tLR+2Uuhz0PFJsvjblzcw5i5i7jM4 +B9q9wurtU29ghcPh1KvZOSBfsx0uWH0DZJ0v982l/8C5DvcyPem3EPxgUsjH +4w984Vm+Wm37FrYGrpuvFJiHwDNCDaJNb+HOlr0VZtYLsDvuCF0s+x1s6rU3 +2OW2AD2Dh/gPFbwDesiZdkrAAlTr7bqfUPkOuLrjfvJkLkB/2+EXXzreQcCV +Ycm68QVoi2JfN8DRAMeaAy/tCFmEHz2TNG+XBtBwrdglV/wXZDZfnBgTbIR2 +/tZG/rd/4e+e5OAYmUbwKh2yXu7+C1IPVFeoao3waO0aj56Vv3CSZSVtJ9EI +skV26XHGS7DRtFaz6kQj8KzOrfAMLcHxhozXhqWN8Clpc820wDI4lOrnnjZv +gpT2x+vPKy8Dd2iZ1H/2TeDAr3L4rxZzfHR5dMClCfquSa+wHV0GjzcZJ4XO +N8Ggx5qdQi+WofWCreDr1CYY0x8p0bBfgS0fPtFVRprg4dXD3BVnVqCmbL5t +YrwJTpb32EDwCjhvCBDNnmuC8U1tcwaPV8BIg3zkC1czTElUqdsvr8Bx/qrB +dNVmWJhKfBaQuQoZ766bKbs3QxlFcHX1xSrk7ZCjTXo1w8XjkWYhTauQ+uad +4cMLzfCvN2QiYmYVPnP4af663gyBw6XCrQos6D47zVGR0wwhLTmWgz4sOBxm +MODc3wy3sq+2somz4hDfy8WR3XQw3ua+UViRFQ+fGxFMM6IDT/0BaxUaK8b9 +bZbba06HkGHlXhNdVmw4WSBxyoEOlxToX+PcWfHeTs5GFi86eGSIrZDKWfGT +19W1Tkl0oG5m09WqZ8WOm2R75TQ6/Kj+ec2khRXnYlaq+jPpcGKgitdriMn6 +Gv1Kj+ngLOMqXLaGDdUHKBUrlXSwuFtINTnIhrxWZck/P9NBgJrq6eTKhisu +A61vv9ChpSKkyNOTDaeW1++PHWXG32urGXeNDcUlCnayTNBBT2Jl9+fHbGhE +PkQlL9GB5dG3sMkXbPidMi8avUKHKq22RtYaNrysvu7UN1YG6Nhnm5M62HB/ +lK7tSR4GbEsyPuj5jw1l3a+VvBZiwG+VbelBXOxo8MnKrFiUAQUl0l9iBdhx +dNu/0wkSDKB1TR0vVWLH9bc/HNgixwCSSOI51n3sTL12aZeTGTCSE/hC0JYd +tyP/DU0aA7K2n1xQPsKO0Y4jwXmbGCBjveuKsS87Cuisvem0jQGiccM3YtPY +MelynLvULgaIUV6ELOSyo+m7v02cwACJ2rCrTgXsKKpT3jGEzPlTar4qdeyY +W2s67afPALnrS54RdHZsF9Jct3kvAxRkGCenP7LjztUnA70GDFA29XKuGGNH +pd2VNfwmzHiHdQ/K/WbHB+35nfGmDFC9KGgTusSOgQd7XwiYMYCa99LEnJ8D +FzO/D37ZzwB1jmWNYXUOVIB6l9/WTL1SW7YY7uLABGdNHTFbBmhszaA+3cuB +f+9Ur26xY4C2824FP3sO3K7KdVjXgQE754Wk+1w48MqabrYdBxlARH4V1T3N +geSJL9lyjgzQrbzBt/YqBw4+EP7T6sQAPcuDPF7hHChOi8yPP8QA/R9U9o8x +HOi53OtnfpgBe4NWlrVSOdB5tdRmmcmGYu8X0rM5cM2Fr+b3nBlg/Cxzhj2f +A3ez09y2H2GA6V7vX24lHFh2yzG7mslmn/W/M2o4cEnPlJdwYYC5j8jI1iYO +TEvuSS1g8v61Y/2J7cx8d0w4ix5lwIGssk//+jhQ4LeX0zkmW2nd6jjylanP +O/uE10y2ee/Y+naSA498zBLgPMYAuxP/NVEWOfDlPrO2nUx2WFmtj2bjRCNv +189uTHaMb6ueW8uJ6lELWjeY7ES9X+4gzIm7vsuMpzH5UJ3Pi2oZTqyr/rOQ +y2Rnh70FSqqcGAg5rtlMdpkWfXxjCydGBNjsSGDysfDvOb+0OZHTdZf3JSYf +l63IsNTnxIXaWBlbJru9jEgt3ceJKuQUgsTkk/sOJUjbcmLDbGL3d2b8p0Y2 +xQQ7c6K5du90JpNPB7BGfHPnROq70igzJntsbA8z9eZEX6GIkkmmPl4Ps4MK +L3HiKyjxCGXyOTx/SSSMExPY7pevZ7JPl4FfQBQnnnpUlRHJ1Pu8h/i5wSRO +5BUIJLEx2f9u5YlHjzlxduUn6R1z/y6qR7qsf8GJtQ+ynogx+VLTYSefKk5M +2yk6doi5/4ELbJZEGyd2diQlNDLrJTiqY9/9Hk58wD4q9ItZTyGkXEOeEU68 +cuzMYW4mX7cyIj784UTWtX88xeyZ/fO8RYKNlQuz2uZ8F5n1mi9oNb9lLRcu +mZ0+xbBhQOeHQwUxslxITtqjZ2bF1GfrSMRrNS4MPBO0dekAA5Zj3N2n1blw +9PfoplQLBihZ+ChYGHJhPKHh9ZzZL6UFiyuBB7hwWmBXLW0fs94ErvYWOHJh +cUwWpDD7zbv1RpzAWS6MvSvWa2rIgNp997jeJ3Nh0ojNaXFdZv08VRpevc+F +6cE1U1Rmv/9Y96h6Uz4X2o9796sz/WAD/fmFqFoupK+gsJQWsx6Mm36Y/eRC +adfuFpvNzPj2zrUwdnJjn/6By5ekGBCde/Hx8l5udA6stG0SZ8bLxRJOs+DG +2bZvUuuYfmb6Zo3ubVdutP7ZGX5qAwNSdssVm0Zyo6brcFsKJwM00SSxeYAb +JbfFx9X+pAP93nvvpe/cmOtZIGA5xvTvVev9lFlu/Gf5cbVrhA7Xq5x5b/Hw +YHGwqkM10787d54PMN7Cg4tPns9ytNLBWyvzcGMwD1ZxKAV7P2P6dwb/rEkE +D2o4NkgmMP8HCtyXwlviefBeX7vsswd0eN9hU9iex4Pemnkh9ffo8J/XOvb+ +Fh70PdwRfTmKDmO5frm/JXjx1Z/POpvO0MFRyGxCspgX10ssdL+Rp4N6QEVQ +eiUvDhw3taiXosOaIVUR+be8aHB/mlQuSoeyZ+xA+sSLEmsceSP46CBiUha9 +eZUXLWSCQhsXmuF9kNK2PSZrkGvLqFYRoxn0J/9e9Bheg34fTNnPnW0Gf8M4 +8uvxNfgofbD7xqlmyM+k9Qj+WYMC9wqsU1ybQczKWauMZy3mSx87mmPfDOOl +b+bZ/1uLnOKr94/pNkNscLRP8oW1uCnL0zVyfTMMCZM86vnW4fuDE5frc5sg +aKfFEQlNPnzQfWfZvbYRDA+l/96hx4eD+1676Jc3An/gz2vWpnyYFlbnKlbU +CHfrQnOjnfmw/Wr66aeZjVBqXP6T6wYfNn5li4kIbIQpO8XzM5/40KR1J11l +VyMc8p27SQ/gR+GTYpEiRQ2gnZ/8/Er1ehwIapqYiXgHpxemAxv4NuCkprvj +Db03sEgR6KdZb0TuxrpKhYe1sPPxk4yEBEFUUPoUsCRZA9MbjZ1taoWQ39zZ +ui+zAkYinG3OcYsg6Zzeq45/L8Fo0s9oVEMUT8ZKHFflK4bxozzez6+K4aq1 +8+beyHzm+V2U7XqtOLIuGeyK2ZwH310M8nTeieO/FtEnVRJ5EJHpZzbVLI6n +CwS0/3LkQbtMd4r9R3Fs3TD8MPXTA3AWT1anjolje9nv2OvXHoA/v6RrG58E +igVf2sfakwtPFmQaJO0lkLeu8KZbTA5sZJAiCyYl0Mu8d5252n1Ymdyc0zQr +gTvOby9wFr4PPzbqVI4sSuAKY3U6iPU+1NqZ/xDjkESTjGs6M5+ywHvEb2+Q +mCQ+Ehkxi76VBR1LDSsWupLM/izIejadCYnkU54zdyTxCtD6HBozQCr82X4N +DSlkkIPnxY3T4FH+07pFbSn01cwS+UhJA82PjzVegRTeVpWszeNLAyuFPCl9 +IyncNeUVk9x2FyIqM8YsHKVQUbek657DXViaigk8EyyFOq96ZLafTYUee5+C +7BYpdAop2be1IBmSKFoCgiek0clpB+/ouQSwNmFEV52SRqNK08EhhwTYeOrI +hpNe0iiz83rAnF4C3Hp0Y+Nrf2nUbrN7byeYAFfUeoQ8I6QxwuNygciLeDim +EiDeXCiNwt6naa7/4mCL4iuFa/+kcWiH6tBSciz80rO4/x+rDEa7EC0BIbHw +yGVUsYdTBreZbVy73jMWlLL4lLesl8FZSwNDT/1YEJM/pDIgL4NjUdI3hafu +wIrMKkXHQAaVv4fO/jK+A00SuttnYmRQ9L1UwTX+GHgv84zEkSiDq3+L3UoW +o6FTQVpM+K4M/pQ3U2IZjYYv5MW/GrkyyMev7P6+IhoWtAtrLpbLIJgO3jh5 +MhpIB+VN2YZlsPFZ05GphCgITmU9umGbLD62fRuhqHUbwu95WiloyWKo3fD5 +O0K3IfL+5z3qhCxi7UqJylQEJD8uU7U2lEWF9ntN9Q8ioKDi7K8kR1nkUPrN +9lYsAvp7v/jLhcpiEyPWuZn1FmhL1UZv6pTFL6JBJmKT4TCkqNT/vUcWlQI9 +aDvbwuEGJYySPSCLVu8krK4Uh0O3tvFbse+y2P2PQ8jpQjj42X9YYv0niw8e +Tn0OYg8HB5Oz6j8E5NBuT/QzK9nrkBDOtDcNOSQ2y/oEnQ6FkxFb34hryeGd +HQt8egdCgYge/nleRw7dPglLy2iGwmjiHq0tKIef+bV2q3KEwrYHvB05RnJ4 +m5ZnFJwWAh/exPBGOcphfjp5k/bHa8DPnuVzJFgOX2wezlawCwauxWrL6RA5 +dN3ky7MTgmHl1+etQdflkD3ZPuQcKRgme8SnMyKY88kDDhpzQfC+KObMYIIc +SoTIpIvEBcEdl6Djhx/LIaP7VbBCVyCI1DrbOXXIoX79rLPr8BXgL72yY6JT +Dh++2mjiX3oFuPLvilz+JIddAzZzNbevwHxyd8fdfjnUNb1U90PzCnSf3W/R +N8Zcb01aX1bMZUiRR+ODy3Lo+YNN8KLpJZAJkt1pT5JHvaNf2by/+kO+N4/C +Z1V5nLgZesa01h+I49PcRyjyaNVYNG2R7g9OJnXtbpvlcS+rZdKgjT/cFT5x +6oK2PLZumrvH3XQBxB/lpySayeN41dyyTakfCLXvWvx4Xh7N4znb24t9IfsN +acDeXx7/ma2y9cf5gnrp+jefA+SRkHHhX3/eFw6kfYkeDZTHkulJkVFNX4g5 +Eao6d1MeRYModxxrfID/H91W6J48Rjvo59h0egOvsuPLA+/k8eqJsEw36XNw +UhyMHzfKY7NW69YGjnPQxKfQz06XR80k/uN7xs9CxJ9vnC/ey6PCQLxOUsVZ +4G/wthbtkUf37W4n7h48y+z3W7O94/KYnHeUypnpBVKF5VtdNyqg5NFASbkg +D7iUk/b2lZAC6o2vLe6y8YDPyYEOIqIK+Ll7wauO6gHpwXuD30kqoJvd1usa +n86AnNWHNjVlBfS93qoZuu0MKM9/9/q1QwFFvpgJJ8yegv92iT/zc1LANR9e +EuLJ7lCs6L7E5qyArJfyJ4fPuoPmmjKDSBcF7Osutxoxdge9LrvB7BMKOL1U +gKHLbmBzNmnDh7MKKHjpSju6usHVHFEfapgCOqeIbXMnTsB7PhGtL/kKKGFY +ea1P2BWsZ11DTxcq4Na3mhfGZo9BT8+LtvliBWwp93yh0HEMRh5Yn+QvU8Cr +xelk+dhjsKAbn6pTp4AeyR6TIHgM5M8LrcR3KWCk6U+ej5JH4Vz/xjpjFkV0 +khra/t30CDS8dXz1iE0Rj/SeUiWrHwGZZ7klazgV8QVPQtFt8SPQdFX7SROv +It7ekzte8dUZFORd4o0FFVHpzsfEgmBnaDtaeMKYpIjLbyNuFAQdhs3fzdcZ +mypi4bXiKNVHjhDWlsz1yEwR2U4ceVJ2xRH6yoZZ1lgoolXvprNhlo4QftNv +rtFaEU305jralg/CIOVev9FhRTSyeYWq1gch2uNXgdE5RYS56RMJ/A4wORNh +bZSkiMmWRW2pj2yhrzvTJi1FEXMFT/S1h9lC06uXttN3FTFONllu11FbyL4+ +aJ+cqYgcS8YnsqRswUFy26HvjxRxcP9Tv8IYG3ij13v8xitFrEngLM4PsYbU +GLULjUOK+HNdbF9yhCWEnyf8pUcVsaIykeOmhyWcP2h58ew3Rez71+iSvd8S +9itfviQ+ztQvc3HSRtgSuMreB7rPMfMJ2JL2NOMAnB30u8HLo4Sumsles1UW +YLDpbYoRTQn1R120IsT2gx2XodX7TUpYPD356vJfczj5uZHPdqsSak5/GtlR +bw6RtxiBx3YoIS01YyrPzhw6v3Ucv6qrhL0eNYZnQ83gWMbw1hfWSqiVxLKs +8csUgjewNstdUcISqewHMYtGEDcWHPIgkLmeucR8Kd0Icqs5iP+uKaHGo9M+ +KhlG0HSGp1AnXAmTJK2OdRsYwYam9Yk2d5TwKaNQ+WqKIWQEyxyNyFXCRa2z +sjdNDaBqRmdpvkUJ51eLipYH9SGTXuJi2aaEfBEanbVV+hCSo96U366EO250 +l1Xc1QcjW0qya7cSWlsuPzCw14eOcokd7V+UUOGdz9Wajt3wI2jxXP6sEkpw +3lX826EHIgIlP45JKOOWMJlPrxYQFse2HqiRUkYX0p3kC30Ifa/zyyRllfHD +GPH1UA1Cpndu+AdFZeTI6dzyNByB2hVPQpoyil3mZjWWRNBL93GRRGXkNNrU +lBlNgAd1a0+bqzL6H1DsXxOoA77zEn8PuynjqmrI5rR9OnCpll3i10llbJaN +1A2V1IFbdh/t13gpo9nzsEirUm3IC7nwSe+iMnp8u3Dty5wWDPVVdRdHKuNQ +T2qCfqAm2Nw26YovUcZ4id3e71u2g5PdtnnFcmU8Z31cSSV3OxxTlBYtqlTG +h+seHai/vB28y37ZtLxWRmI/4f6eth2iR2M6uejM9S3UvRVjtkHTru6PfoPK +SL11Ic7mmDrs+nWsw56XhO/Zv1lJaW8BkQqDrMq1JIx8Y/4hTXIL/LpO9pLl +J2Ebq2yGxfJmSJefWju6kYQhy1uWzV5vhhWrgN1eUiRcp64emmSyGaorYorC +NpGQI5LyxPTDf6B7oyq62JqEi15R8RcjKCBhk3lIxI6Eh9u7WP86UOC3QgjV +34GEjyajr9PVKJBVadRAHCahJA91wK2BDGxTHauNbiQ0sfMY8eIlQ53NT4/B +ABKWlK19YpGiCnuUxPbxZZEwLN57SnBWGZ5PvJE/lk1C+tmv1u10ZVAq8f5T +nkvCG5qGXh05ysBh3HrP7TEJBTeW/pdipwy1nmG/656TsFV8/WfV10pAVMwm +XnxHwpacEYnlNEXQONA29G2chMopqX4T1+QhV/JqCTFJQv0hYSO1Y/IgPEqN +iJ8mYQHXTVKqvjzM+oVv3/2HhI5bnhbKcslDURqEp6+SMFzowKesW3Kw6ftT +5vVABedmzCfuoCyoBt68ULtDBfWeG9wa6JWESp0cTlNtFSTSlY6YZ0vC/vnq +Ox93qmCUFsNZ5YwkXPCYezKmq4I368hr+FgkocHR+Qu/qQruz/wdkEqWADct +DeODzip4XGFZhXpHDP7N7u8acVHBb2+LJenOYhBdcOqYh6sK2nyWO9m4SQxK +VTKvBJ1UwWqGQ/inFlHgEVlX/MBHBQfr/0oSG0Th4e8vkrPhKviQ5bVvZK4w +EPn/8i7fUsFFlSseZReF4YO7qAZ3pAqOtUb+3WEuDH8HTfdLxKrgzHjxJdqi +EBi3loRgmgo+aw+g/dgvBD8e356IKGTGN0G40tYLAtlVq1q5RwVbBM1LFeoE +IErB7O+1PhXMG43b/S9LAGYHXLYP9augSfPQ8vprAlDlEPE4fVgFpd44+Y3s +FoAD+wcSRSdUMFA4qelM9Hrw1wn14mVRRf19ahlOL/mgYUOb/ISyKh4vne8e +Ml8DtNZRRxNVVdTQC9WvkFoDdyL+Jj4kq6Lc0nz+9HdecORW4j++SRVzWwqX +fEN5YfLf+b/9mqpYsm2Ot7mGB0TGpNrfm6hizRfHLhlDbnCtcgt5flYVd13Y +F+IUzwG/zvzw2+Ojik5bX9l4uHPABenTpzrPq+L0garJrl0ccPOS54GFAFXs +TN3TWfSNHQq0z8vtDFPFZfofB19gh38vr1XWpaiioZaTRMYKK4Qd5yywSlPF +ri/5rNNdrLBe5Pr90XuquNDC+Ty6kBUUfG/e5M5Rxf3XEuTKXVnBQD3GzuSZ +Kuav7R7KbmOBO8/SZz/UMfPx57Iu8VglpA7LjR19q4rE7fvtD8mrRA5/Vu9s +gypOhNbxqH5bIUrP5NSKtKjiAeKbS92RFeIz5Um0Q7cqCsy//WjntEyo5pVR +h8ZVkWH8O1/qzBJRndFxbFpYDa+HRFlYjc0Tg6byh8+LqWFO08FTTc/nCZbF +M/ZLEmpYne+x5lHQPKFnwW3GKaeG8RH+T7Kk5om3rNo7xMlqqHeuPPWo7R+C +7nKPV5dQQ+40j0j/gVlign+c/S2q4cGV5RJK0SzBX6G5YrxbDaW38dvqhM4S ++wU//LYyVEMOwaNyXtRZor2Oo8/tgBqmhcsekLo6Q/QoncyPPq6G3zK7+r5u ++00svX+ZJ+yuhr7P/Bak+X4TUpfZ76ecUkOWqw/rH4xOE04f7yZme6mhRXrs +t4LEaWIwtDWw9KIa7v8eOXp9dYr49nWb5WCkGpbJ8L0LqpgkZvNW5zeVqOEp +22arwoyfxFebvRk3ytTw3TNty5QTP4lujtuGwxVqGMASnz/z30+iwlkiOaFG +DXnXZmrNVv0ggsW2ay83qmGvuqysyMh3QiD85KWmPjVca2mVQdMbI9g0CpWU +BtRwd2JjyKv1Y8Ts8Dz98hc1TDUjORZ+/kZ0Qaj0lq9qyL774fzri9+I9Pl7 +VYmTauggVfbiXNlXgnriI4srGxn5gjW5fA1HCRlhqYdVHGQ8JBa/blJylBCo +c7EQ4yZjyq4LX19PjhAzMlOZzWvJWGm30c8zaYQo71yze6swGQ2xZalrYpgw +3IuhqypkvDiW2WCRN0QcVX7Mm7KPjL8/q3JV2A4SF98cOknaT8YoNW8bza2D +RLTrxuaiA2QUvnqxj5tvkKjM8Y9otiUj583E6u3XBwghkuH65SNkTDtjQv/n +1k+8JY0KOZ8n43hShp29UR/R9zbJd/wCGdc/WSfDwtNH/D5u2nkhgIy+UyTF +He96CdkHxYkxgWQcVdbRsDDoJS6oBEvU3STjnEQ/p7BZD0FWlZUj3SPjD5mo +wX6fbgIbPgQWZZIx3N5skWVnN2HjFvaFyCYjz4TX5Uz2buJa3kSW7UMy83zh +nm4f10X0qVYq3ygm46UsrrgbFZ1EpJo9ZfwdGdssD5/mlftITJNjNYqmyLj3 +60jGH+0PRDcd9wjOkLH/DIOrf+MHosbjl6XPHBmlp592iv9sIyKLjM5q/CXj +HbuADRF32wiyNsuTcnYK7pJMqTdkbyNcjM7I14lQcGrqshGlupUw+imxWUmc +gjebvdR/XWglNt9uIEIlKXj+oN7vPeqtxMp7RUcDOQq6fBLHZw9biFS7noRm +NQpyqg22G6YxiI4TBus6dlIwL72y6G56M1HBOyexHSi4TjBwWelIM5H1OEst +QZeCUfjVabNSM+E1ubzXbi8FvZLjNOmPmwg+v+dBfeYUHCo2KF6qaST2hsnP +j7hQkL9zO89BtgaiNHvpy1w4BTnk+n+G9dQTGrt95o1vUdCJzqZ85Uk98eLL ++LqM2xSUaYju7rxSTxTJ9O8wvkNBNfupuw+V6oknSTW301Mp2H4x36Pap47I +iAjVMsinYOxQQAg3qZaQoayY3S2g4MJAtu6r5ddEWuP5Y9NFFDRQ2tzZ8PE1 +kcLlFpVaQkH7j7H0/rDXRFyg8ehkDQX3GWSozYzXEDd81scktVNQIV/dzja6 +muARDM+d+EjBTdyXygeMqomwQpZKvW4K2tjuoKyyVxMhv6a/jvcxv8d11XXF +v4q44taxU/crBU8yppb7Tr8izjkmj31foOD9DbraYmcqCAd9RdSRoaIgZPGM +tpYQyx08/HVyVBSKOH0/Mb6EyHD91WusSMW3JwPPth8sIb6Glfk5qFIx5bJB +15fvL4lzjebP/LdScSmuOVdz3UviptklmdK9VHTqdPRkuD0naANHxsGIircD +BnjCNZ4T7z0Nyt+ZUPHm9+DnZRzPCZGYjTZd+6m4z0ue70pWMZHVnnf7jwMV +eYKjWs4MFxHldh//bfOkYnH8Rmnei4WE0/fypsqzVDRUNN1WYVZIsFzMSNL3 +oaLI6p+wDsVCYm/qqW1W/lTMfgdbtVoLiA+fWU97X6Pii9ppu0JyAfHD5b/e +wkQqPlkWZdn67SkheeZ62X81VNQpcuPgj3pIRK4e336rloqX+TtP77J8SLDd +2Vv4rZ6Knje0s2ZEHxI/XnI+zGik4na+qO+TWXlEOUtI0sZ2Kg4CezZP9QPC +IS7Q788oFQP1VTkb+HOJFpLzzIExKpa6i1cP9uQQemXg+ewHFbkEHRU8H+QQ +5P6V426TzPzzq76N6eYQiyqXbXoWqKi1231u26VsIqnCf3vVWhrSt5PG7Tnv +E+vM7Asl+GkY+Cqm2r47iwgc1KT5CdDQreLCpprHWYQb54LSZmEa/vKNPPbK +MovYYX5eKEuGhrGRR3mO5GUSnUPnZkK30HCTqjvlztEMQnjN6cJ9tjTUXNQ7 +oal5l8jeffnilD0Nfzwd3DsxnkpsvRy5O9aRhkdcwqeOZqUSZlMFH7uP0JDD +hosctT6VCOucWzx6moZqUeHDD38nEwtZV/UuBtHQl3T909GeRCKsL3qtdAgN +j9bJ0w6lJBJCIlkd1WE0rLuUabPikEhsvlF/nDOChq4uTRVq/QmEuyfvregE +Gvr7ySWyjMcTPTqx7bmPaWhJ05m3U4oj3Hyz7xrl0xDTRffNT8QSf/JfuI4X +0HBHVICrYmkssVGhe37LSxqa36ZbyprFEiY80lKvamjoKTArFhh4h6jsyD3W +/pGGB+2LnKqXowlj/lLa+W4aXqdWOKW0RhPdBo1/xHppaJS17uQv5gVptvxn ++KFBGo64Hx35ZxBN0DI3P/3+g4YuAiWWyupRRGWP7vmICeb4mu3XyP2RhLGQ +JWyaouH4gUqL9TcjiePXfdt85mh4N5VnwWPkNjFbE5YiukDDU1d1vEfv3CaC +/yYeLf9Lw/T32h1b9W4TAtseUp2Wafhn2/Ci1e8IIv1M+dzqKg3jGnY1GN2P +IP4Hz0wYnA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22963416248739862`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.22963416248739862`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3k4VV8Xx81DRco8zxd3+DUoGeqsRcoYySxKStGAQpIGhFQyZCZCSJMM +lTGEynAviRBChlIRQkh47/vPOc/n2c8+e63vXut79pZ38TzgysbCwqLBfPz/ +/ae/sV7pVhwhYhs/VB95guhIF/PX7T4HhvW5HQJ39wAKt7qIdQdDN8VyT2+q +NZzf/6iLvfsOGLkVTT5MdYUNv0TvLHZlAbdNCP+OVF8YqDTznO0qgvmjlV1x +yaGwV+nH5+muWjAMi2mRj42Hxa4d8VNdH+C+kRHJ2z8H6nY/yG7LGoa+cyWz +gz9egNRA2VcX6gRUXE5W+hZSDSwzZ5MaLSbg2rUit/N51TDCRTbe7DcBBNvE +h5nmanj6X8rT5dcTcOVFuZsjbw0QVy76JNn+gj1qKjXPzWvgsLQOW0vwJPyn +fFHocU8NtNH6I++OT0GHz0XKue+vQej04Ufcu2eA5Efzzx2rAzL3/bf7bWeA +r+rpjZ2LdYBZX4eST83AzOaQ2je89XC6+4wkNW4GSq703iwk10O9/qWI/aMz +IDTSEj5xqh58pJM9kq/PQi0o/Jv8WQ/tLR+2Uuhz0PFJsvjblzcw5i5i7jM4 +B9q9wurtU29ghcPh1KvZOSBfsx0uWH0DZJ0v982l/8C5DvcyPem3EPxgUsjH +4w984Vm+Wm37FrYGrpuvFJiHwDNCDaJNb+HOlr0VZtYLsDvuCF0s+x1s6rU3 +2OW2AD2Dh/gPFbwDesiZdkrAAlTr7bqfUPkOuLrjfvJkLkB/2+EXXzreQcCV +Ycm68QVoi2JfN8DRAMeaAy/tCFmEHz2TNG+XBtBwrdglV/wXZDZfnBgTbIR2 +/tZG/rd/4e+e5OAYmUbwKh2yXu7+C1IPVFeoao3waO0aj56Vv3CSZSVtJ9EI +skV26XHGS7DRtFaz6kQj8KzOrfAMLcHxhozXhqWN8Clpc820wDI4lOrnnjZv +gpT2x+vPKy8Dd2iZ1H/2TeDAr3L4rxZzfHR5dMClCfquSa+wHV0GjzcZJ4XO +N8Ggx5qdQi+WofWCreDr1CYY0x8p0bBfgS0fPtFVRprg4dXD3BVnVqCmbL5t +YrwJTpb32EDwCjhvCBDNnmuC8U1tcwaPV8BIg3zkC1czTElUqdsvr8Bx/qrB +dNVmWJhKfBaQuQoZ766bKbs3QxlFcHX1xSrk7ZCjTXo1w8XjkWYhTauQ+uad +4cMLzfCvN2QiYmYVPnP4af663gyBw6XCrQos6D47zVGR0wwhLTmWgz4sOBxm +MODc3wy3sq+2somz4hDfy8WR3XQw3ua+UViRFQ+fGxFMM6IDT/0BaxUaK8b9 +bZbba06HkGHlXhNdVmw4WSBxyoEOlxToX+PcWfHeTs5GFi86eGSIrZDKWfGT +19W1Tkl0oG5m09WqZ8WOm2R75TQ6/Kj+ec2khRXnYlaq+jPpcGKgitdriMn6 +Gv1Kj+ngLOMqXLaGDdUHKBUrlXSwuFtINTnIhrxWZck/P9NBgJrq6eTKhisu +A61vv9ChpSKkyNOTDaeW1++PHWXG32urGXeNDcUlCnayTNBBT2Jl9+fHbGhE +PkQlL9GB5dG3sMkXbPidMi8avUKHKq22RtYaNrysvu7UN1YG6Nhnm5M62HB/ +lK7tSR4GbEsyPuj5jw1l3a+VvBZiwG+VbelBXOxo8MnKrFiUAQUl0l9iBdhx +dNu/0wkSDKB1TR0vVWLH9bc/HNgixwCSSOI51n3sTL12aZeTGTCSE/hC0JYd +tyP/DU0aA7K2n1xQPsKO0Y4jwXmbGCBjveuKsS87Cuisvem0jQGiccM3YtPY +MelynLvULgaIUV6ELOSyo+m7v02cwACJ2rCrTgXsKKpT3jGEzPlTar4qdeyY +W2s67afPALnrS54RdHZsF9Jct3kvAxRkGCenP7LjztUnA70GDFA29XKuGGNH +pd2VNfwmzHiHdQ/K/WbHB+35nfGmDFC9KGgTusSOgQd7XwiYMYCa99LEnJ8D +FzO/D37ZzwB1jmWNYXUOVIB6l9/WTL1SW7YY7uLABGdNHTFbBmhszaA+3cuB +f+9Ur26xY4C2824FP3sO3K7KdVjXgQE754Wk+1w48MqabrYdBxlARH4V1T3N +geSJL9lyjgzQrbzBt/YqBw4+EP7T6sQAPcuDPF7hHChOi8yPP8QA/R9U9o8x +HOi53OtnfpgBe4NWlrVSOdB5tdRmmcmGYu8X0rM5cM2Fr+b3nBlg/Cxzhj2f +A3ez09y2H2GA6V7vX24lHFh2yzG7mslmn/W/M2o4cEnPlJdwYYC5j8jI1iYO +TEvuSS1g8v61Y/2J7cx8d0w4ix5lwIGssk//+jhQ4LeX0zkmW2nd6jjylanP +O/uE10y2ee/Y+naSA498zBLgPMYAuxP/NVEWOfDlPrO2nUx2WFmtj2bjRCNv +189uTHaMb6ueW8uJ6lELWjeY7ES9X+4gzIm7vsuMpzH5UJ3Pi2oZTqyr/rOQ +y2Rnh70FSqqcGAg5rtlMdpkWfXxjCydGBNjsSGDysfDvOb+0OZHTdZf3JSYf +l63IsNTnxIXaWBlbJru9jEgt3ceJKuQUgsTkk/sOJUjbcmLDbGL3d2b8p0Y2 +xQQ7c6K5du90JpNPB7BGfHPnROq70igzJntsbA8z9eZEX6GIkkmmPl4Ps4MK +L3HiKyjxCGXyOTx/SSSMExPY7pevZ7JPl4FfQBQnnnpUlRHJ1Pu8h/i5wSRO +5BUIJLEx2f9u5YlHjzlxduUn6R1z/y6qR7qsf8GJtQ+ynogx+VLTYSefKk5M +2yk6doi5/4ELbJZEGyd2diQlNDLrJTiqY9/9Hk58wD4q9ItZTyGkXEOeEU68 +cuzMYW4mX7cyIj784UTWtX88xeyZ/fO8RYKNlQuz2uZ8F5n1mi9oNb9lLRcu +mZ0+xbBhQOeHQwUxslxITtqjZ2bF1GfrSMRrNS4MPBO0dekAA5Zj3N2n1blw +9PfoplQLBihZ+ChYGHJhPKHh9ZzZL6UFiyuBB7hwWmBXLW0fs94ErvYWOHJh +cUwWpDD7zbv1RpzAWS6MvSvWa2rIgNp997jeJ3Nh0ojNaXFdZv08VRpevc+F +6cE1U1Rmv/9Y96h6Uz4X2o9796sz/WAD/fmFqFoupK+gsJQWsx6Mm36Y/eRC +adfuFpvNzPj2zrUwdnJjn/6By5ekGBCde/Hx8l5udA6stG0SZ8bLxRJOs+DG +2bZvUuuYfmb6Zo3ubVdutP7ZGX5qAwNSdssVm0Zyo6brcFsKJwM00SSxeYAb +JbfFx9X+pAP93nvvpe/cmOtZIGA5xvTvVev9lFlu/Gf5cbVrhA7Xq5x5b/Hw +YHGwqkM10787d54PMN7Cg4tPns9ytNLBWyvzcGMwD1ZxKAV7P2P6dwb/rEkE +D2o4NkgmMP8HCtyXwlviefBeX7vsswd0eN9hU9iex4Pemnkh9ffo8J/XOvb+ +Fh70PdwRfTmKDmO5frm/JXjx1Z/POpvO0MFRyGxCspgX10ssdL+Rp4N6QEVQ +eiUvDhw3taiXosOaIVUR+be8aHB/mlQuSoeyZ+xA+sSLEmsceSP46CBiUha9 +eZUXLWSCQhsXmuF9kNK2PSZrkGvLqFYRoxn0J/9e9Bheg34fTNnPnW0Gf8M4 +8uvxNfgofbD7xqlmyM+k9Qj+WYMC9wqsU1ybQczKWauMZy3mSx87mmPfDOOl +b+bZ/1uLnOKr94/pNkNscLRP8oW1uCnL0zVyfTMMCZM86vnW4fuDE5frc5sg +aKfFEQlNPnzQfWfZvbYRDA+l/96hx4eD+1676Jc3An/gz2vWpnyYFlbnKlbU +CHfrQnOjnfmw/Wr66aeZjVBqXP6T6wYfNn5li4kIbIQpO8XzM5/40KR1J11l +VyMc8p27SQ/gR+GTYpEiRQ2gnZ/8/Er1ehwIapqYiXgHpxemAxv4NuCkprvj +Db03sEgR6KdZb0TuxrpKhYe1sPPxk4yEBEFUUPoUsCRZA9MbjZ1taoWQ39zZ +ui+zAkYinG3OcYsg6Zzeq45/L8Fo0s9oVEMUT8ZKHFflK4bxozzez6+K4aq1 +8+beyHzm+V2U7XqtOLIuGeyK2ZwH310M8nTeieO/FtEnVRJ5EJHpZzbVLI6n +CwS0/3LkQbtMd4r9R3Fs3TD8MPXTA3AWT1anjolje9nv2OvXHoA/v6RrG58E +igVf2sfakwtPFmQaJO0lkLeu8KZbTA5sZJAiCyYl0Mu8d5252n1Ymdyc0zQr +gTvOby9wFr4PPzbqVI4sSuAKY3U6iPU+1NqZ/xDjkESTjGs6M5+ywHvEb2+Q +mCQ+Ehkxi76VBR1LDSsWupLM/izIejadCYnkU54zdyTxCtD6HBozQCr82X4N +DSlkkIPnxY3T4FH+07pFbSn01cwS+UhJA82PjzVegRTeVpWszeNLAyuFPCl9 +IyncNeUVk9x2FyIqM8YsHKVQUbek657DXViaigk8EyyFOq96ZLafTYUee5+C +7BYpdAop2be1IBmSKFoCgiek0clpB+/ouQSwNmFEV52SRqNK08EhhwTYeOrI +hpNe0iiz83rAnF4C3Hp0Y+Nrf2nUbrN7byeYAFfUeoQ8I6QxwuNygciLeDim +EiDeXCiNwt6naa7/4mCL4iuFa/+kcWiH6tBSciz80rO4/x+rDEa7EC0BIbHw +yGVUsYdTBreZbVy73jMWlLL4lLesl8FZSwNDT/1YEJM/pDIgL4NjUdI3hafu +wIrMKkXHQAaVv4fO/jK+A00SuttnYmRQ9L1UwTX+GHgv84zEkSiDq3+L3UoW +o6FTQVpM+K4M/pQ3U2IZjYYv5MW/GrkyyMev7P6+IhoWtAtrLpbLIJgO3jh5 +MhpIB+VN2YZlsPFZ05GphCgITmU9umGbLD62fRuhqHUbwu95WiloyWKo3fD5 +O0K3IfL+5z3qhCxi7UqJylQEJD8uU7U2lEWF9ntN9Q8ioKDi7K8kR1nkUPrN +9lYsAvp7v/jLhcpiEyPWuZn1FmhL1UZv6pTFL6JBJmKT4TCkqNT/vUcWlQI9 +aDvbwuEGJYySPSCLVu8krK4Uh0O3tvFbse+y2P2PQ8jpQjj42X9YYv0niw8e +Tn0OYg8HB5Oz6j8E5NBuT/QzK9nrkBDOtDcNOSQ2y/oEnQ6FkxFb34hryeGd +HQt8egdCgYge/nleRw7dPglLy2iGwmjiHq0tKIef+bV2q3KEwrYHvB05RnJ4 +m5ZnFJwWAh/exPBGOcphfjp5k/bHa8DPnuVzJFgOX2wezlawCwauxWrL6RA5 +dN3ky7MTgmHl1+etQdflkD3ZPuQcKRgme8SnMyKY88kDDhpzQfC+KObMYIIc +SoTIpIvEBcEdl6Djhx/LIaP7VbBCVyCI1DrbOXXIoX79rLPr8BXgL72yY6JT +Dh++2mjiX3oFuPLvilz+JIddAzZzNbevwHxyd8fdfjnUNb1U90PzCnSf3W/R +N8Zcb01aX1bMZUiRR+ODy3Lo+YNN8KLpJZAJkt1pT5JHvaNf2by/+kO+N4/C +Z1V5nLgZesa01h+I49PcRyjyaNVYNG2R7g9OJnXtbpvlcS+rZdKgjT/cFT5x +6oK2PLZumrvH3XQBxB/lpySayeN41dyyTakfCLXvWvx4Xh7N4znb24t9IfsN +acDeXx7/ma2y9cf5gnrp+jefA+SRkHHhX3/eFw6kfYkeDZTHkulJkVFNX4g5 +Eao6d1MeRYModxxrfID/H91W6J48Rjvo59h0egOvsuPLA+/k8eqJsEw36XNw +UhyMHzfKY7NW69YGjnPQxKfQz06XR80k/uN7xs9CxJ9vnC/ey6PCQLxOUsVZ +4G/wthbtkUf37W4n7h48y+z3W7O94/KYnHeUypnpBVKF5VtdNyqg5NFASbkg +D7iUk/b2lZAC6o2vLe6y8YDPyYEOIqIK+Ll7wauO6gHpwXuD30kqoJvd1usa +n86AnNWHNjVlBfS93qoZuu0MKM9/9/q1QwFFvpgJJ8yegv92iT/zc1LANR9e +EuLJ7lCs6L7E5qyArJfyJ4fPuoPmmjKDSBcF7Osutxoxdge9LrvB7BMKOL1U +gKHLbmBzNmnDh7MKKHjpSju6usHVHFEfapgCOqeIbXMnTsB7PhGtL/kKKGFY +ea1P2BWsZ11DTxcq4Na3mhfGZo9BT8+LtvliBWwp93yh0HEMRh5Yn+QvU8Cr +xelk+dhjsKAbn6pTp4AeyR6TIHgM5M8LrcR3KWCk6U+ej5JH4Vz/xjpjFkV0 +khra/t30CDS8dXz1iE0Rj/SeUiWrHwGZZ7klazgV8QVPQtFt8SPQdFX7SROv +It7ekzte8dUZFORd4o0FFVHpzsfEgmBnaDtaeMKYpIjLbyNuFAQdhs3fzdcZ +mypi4bXiKNVHjhDWlsz1yEwR2U4ceVJ2xRH6yoZZ1lgoolXvprNhlo4QftNv +rtFaEU305jralg/CIOVev9FhRTSyeYWq1gch2uNXgdE5RYS56RMJ/A4wORNh +bZSkiMmWRW2pj2yhrzvTJi1FEXMFT/S1h9lC06uXttN3FTFONllu11FbyL4+ +aJ+cqYgcS8YnsqRswUFy26HvjxRxcP9Tv8IYG3ij13v8xitFrEngLM4PsYbU +GLULjUOK+HNdbF9yhCWEnyf8pUcVsaIykeOmhyWcP2h58ew3Rez71+iSvd8S +9itfviQ+ztQvc3HSRtgSuMreB7rPMfMJ2JL2NOMAnB30u8HLo4Sumsles1UW +YLDpbYoRTQn1R120IsT2gx2XodX7TUpYPD356vJfczj5uZHPdqsSak5/GtlR +bw6RtxiBx3YoIS01YyrPzhw6v3Ucv6qrhL0eNYZnQ83gWMbw1hfWSqiVxLKs +8csUgjewNstdUcISqewHMYtGEDcWHPIgkLmeucR8Kd0Icqs5iP+uKaHGo9M+ +KhlG0HSGp1AnXAmTJK2OdRsYwYam9Yk2d5TwKaNQ+WqKIWQEyxyNyFXCRa2z +sjdNDaBqRmdpvkUJ51eLipYH9SGTXuJi2aaEfBEanbVV+hCSo96U366EO250 +l1Xc1QcjW0qya7cSWlsuPzCw14eOcokd7V+UUOGdz9Wajt3wI2jxXP6sEkpw +3lX826EHIgIlP45JKOOWMJlPrxYQFse2HqiRUkYX0p3kC30Ifa/zyyRllfHD +GPH1UA1Cpndu+AdFZeTI6dzyNByB2hVPQpoyil3mZjWWRNBL93GRRGXkNNrU +lBlNgAd1a0+bqzL6H1DsXxOoA77zEn8PuynjqmrI5rR9OnCpll3i10llbJaN +1A2V1IFbdh/t13gpo9nzsEirUm3IC7nwSe+iMnp8u3Dty5wWDPVVdRdHKuNQ +T2qCfqAm2Nw26YovUcZ4id3e71u2g5PdtnnFcmU8Z31cSSV3OxxTlBYtqlTG +h+seHai/vB28y37ZtLxWRmI/4f6eth2iR2M6uejM9S3UvRVjtkHTru6PfoPK +SL11Ic7mmDrs+nWsw56XhO/Zv1lJaW8BkQqDrMq1JIx8Y/4hTXIL/LpO9pLl +J2Ebq2yGxfJmSJefWju6kYQhy1uWzV5vhhWrgN1eUiRcp64emmSyGaorYorC +NpGQI5LyxPTDf6B7oyq62JqEi15R8RcjKCBhk3lIxI6Eh9u7WP86UOC3QgjV +34GEjyajr9PVKJBVadRAHCahJA91wK2BDGxTHauNbiQ0sfMY8eIlQ53NT4/B +ABKWlK19YpGiCnuUxPbxZZEwLN57SnBWGZ5PvJE/lk1C+tmv1u10ZVAq8f5T +nkvCG5qGXh05ysBh3HrP7TEJBTeW/pdipwy1nmG/656TsFV8/WfV10pAVMwm +XnxHwpacEYnlNEXQONA29G2chMopqX4T1+QhV/JqCTFJQv0hYSO1Y/IgPEqN +iJ8mYQHXTVKqvjzM+oVv3/2HhI5bnhbKcslDURqEp6+SMFzowKesW3Kw6ftT +5vVABedmzCfuoCyoBt68ULtDBfWeG9wa6JWESp0cTlNtFSTSlY6YZ0vC/vnq +Ox93qmCUFsNZ5YwkXPCYezKmq4I368hr+FgkocHR+Qu/qQruz/wdkEqWADct +DeODzip4XGFZhXpHDP7N7u8acVHBb2+LJenOYhBdcOqYh6sK2nyWO9m4SQxK +VTKvBJ1UwWqGQ/inFlHgEVlX/MBHBQfr/0oSG0Th4e8vkrPhKviQ5bVvZK4w +EPn/8i7fUsFFlSseZReF4YO7qAZ3pAqOtUb+3WEuDH8HTfdLxKrgzHjxJdqi +EBi3loRgmgo+aw+g/dgvBD8e356IKGTGN0G40tYLAtlVq1q5RwVbBM1LFeoE +IErB7O+1PhXMG43b/S9LAGYHXLYP9augSfPQ8vprAlDlEPE4fVgFpd44+Y3s +FoAD+wcSRSdUMFA4qelM9Hrw1wn14mVRRf19ahlOL/mgYUOb/ISyKh4vne8e +Ml8DtNZRRxNVVdTQC9WvkFoDdyL+Jj4kq6Lc0nz+9HdecORW4j++SRVzWwqX +fEN5YfLf+b/9mqpYsm2Ot7mGB0TGpNrfm6hizRfHLhlDbnCtcgt5flYVd13Y +F+IUzwG/zvzw2+Ojik5bX9l4uHPABenTpzrPq+L0garJrl0ccPOS54GFAFXs +TN3TWfSNHQq0z8vtDFPFZfofB19gh38vr1XWpaiioZaTRMYKK4Qd5yywSlPF +ri/5rNNdrLBe5Pr90XuquNDC+Ty6kBUUfG/e5M5Rxf3XEuTKXVnBQD3GzuSZ +Kuav7R7KbmOBO8/SZz/UMfPx57Iu8VglpA7LjR19q4rE7fvtD8mrRA5/Vu9s +gypOhNbxqH5bIUrP5NSKtKjiAeKbS92RFeIz5Um0Q7cqCsy//WjntEyo5pVR +h8ZVkWH8O1/qzBJRndFxbFpYDa+HRFlYjc0Tg6byh8+LqWFO08FTTc/nCZbF +M/ZLEmpYne+x5lHQPKFnwW3GKaeG8RH+T7Kk5om3rNo7xMlqqHeuPPWo7R+C +7nKPV5dQQ+40j0j/gVlign+c/S2q4cGV5RJK0SzBX6G5YrxbDaW38dvqhM4S ++wU//LYyVEMOwaNyXtRZor2Oo8/tgBqmhcsekLo6Q/QoncyPPq6G3zK7+r5u ++00svX+ZJ+yuhr7P/Bak+X4TUpfZ76ecUkOWqw/rH4xOE04f7yZme6mhRXrs +t4LEaWIwtDWw9KIa7v8eOXp9dYr49nWb5WCkGpbJ8L0LqpgkZvNW5zeVqOEp +22arwoyfxFebvRk3ytTw3TNty5QTP4lujtuGwxVqGMASnz/z30+iwlkiOaFG +DXnXZmrNVv0ggsW2ay83qmGvuqysyMh3QiD85KWmPjVca2mVQdMbI9g0CpWU +BtRwd2JjyKv1Y8Ts8Dz98hc1TDUjORZ+/kZ0Qaj0lq9qyL774fzri9+I9Pl7 +VYmTauggVfbiXNlXgnriI4srGxn5gjW5fA1HCRlhqYdVHGQ8JBa/blJylBCo +c7EQ4yZjyq4LX19PjhAzMlOZzWvJWGm30c8zaYQo71yze6swGQ2xZalrYpgw +3IuhqypkvDiW2WCRN0QcVX7Mm7KPjL8/q3JV2A4SF98cOknaT8YoNW8bza2D +RLTrxuaiA2QUvnqxj5tvkKjM8Y9otiUj583E6u3XBwghkuH65SNkTDtjQv/n +1k+8JY0KOZ8n43hShp29UR/R9zbJd/wCGdc/WSfDwtNH/D5u2nkhgIy+UyTF +He96CdkHxYkxgWQcVdbRsDDoJS6oBEvU3STjnEQ/p7BZD0FWlZUj3SPjD5mo +wX6fbgIbPgQWZZIx3N5skWVnN2HjFvaFyCYjz4TX5Uz2buJa3kSW7UMy83zh +nm4f10X0qVYq3ygm46UsrrgbFZ1EpJo9ZfwdGdssD5/mlftITJNjNYqmyLj3 +60jGH+0PRDcd9wjOkLH/DIOrf+MHosbjl6XPHBmlp592iv9sIyKLjM5q/CXj +HbuADRF32wiyNsuTcnYK7pJMqTdkbyNcjM7I14lQcGrqshGlupUw+imxWUmc +gjebvdR/XWglNt9uIEIlKXj+oN7vPeqtxMp7RUcDOQq6fBLHZw9biFS7noRm +NQpyqg22G6YxiI4TBus6dlIwL72y6G56M1HBOyexHSi4TjBwWelIM5H1OEst +QZeCUfjVabNSM+E1ubzXbi8FvZLjNOmPmwg+v+dBfeYUHCo2KF6qaST2hsnP +j7hQkL9zO89BtgaiNHvpy1w4BTnk+n+G9dQTGrt95o1vUdCJzqZ85Uk98eLL ++LqM2xSUaYju7rxSTxTJ9O8wvkNBNfupuw+V6oknSTW301Mp2H4x36Pap47I +iAjVMsinYOxQQAg3qZaQoayY3S2g4MJAtu6r5ddEWuP5Y9NFFDRQ2tzZ8PE1 +kcLlFpVaQkH7j7H0/rDXRFyg8ehkDQX3GWSozYzXEDd81scktVNQIV/dzja6 +muARDM+d+EjBTdyXygeMqomwQpZKvW4K2tjuoKyyVxMhv6a/jvcxv8d11XXF +v4q44taxU/crBU8yppb7Tr8izjkmj31foOD9DbraYmcqCAd9RdSRoaIgZPGM +tpYQyx08/HVyVBSKOH0/Mb6EyHD91WusSMW3JwPPth8sIb6Glfk5qFIx5bJB +15fvL4lzjebP/LdScSmuOVdz3UviptklmdK9VHTqdPRkuD0naANHxsGIircD +BnjCNZ4T7z0Nyt+ZUPHm9+DnZRzPCZGYjTZd+6m4z0ue70pWMZHVnnf7jwMV +eYKjWs4MFxHldh//bfOkYnH8Rmnei4WE0/fypsqzVDRUNN1WYVZIsFzMSNL3 +oaLI6p+wDsVCYm/qqW1W/lTMfgdbtVoLiA+fWU97X6Pii9ppu0JyAfHD5b/e +wkQqPlkWZdn67SkheeZ62X81VNQpcuPgj3pIRK4e336rloqX+TtP77J8SLDd +2Vv4rZ6Knje0s2ZEHxI/XnI+zGik4na+qO+TWXlEOUtI0sZ2Kg4CezZP9QPC +IS7Q788oFQP1VTkb+HOJFpLzzIExKpa6i1cP9uQQemXg+ewHFbkEHRU8H+QQ +5P6V426TzPzzq76N6eYQiyqXbXoWqKi1231u26VsIqnCf3vVWhrSt5PG7Tnv +E+vM7Asl+GkY+Cqm2r47iwgc1KT5CdDQreLCpprHWYQb54LSZmEa/vKNPPbK +MovYYX5eKEuGhrGRR3mO5GUSnUPnZkK30HCTqjvlztEMQnjN6cJ9tjTUXNQ7 +oal5l8jeffnilD0Nfzwd3DsxnkpsvRy5O9aRhkdcwqeOZqUSZlMFH7uP0JDD +hosctT6VCOucWzx6moZqUeHDD38nEwtZV/UuBtHQl3T909GeRCKsL3qtdAgN +j9bJ0w6lJBJCIlkd1WE0rLuUabPikEhsvlF/nDOChq4uTRVq/QmEuyfvregE +Gvr7ySWyjMcTPTqx7bmPaWhJ05m3U4oj3Hyz7xrl0xDTRffNT8QSf/JfuI4X +0HBHVICrYmkssVGhe37LSxqa36ZbyprFEiY80lKvamjoKTArFhh4h6jsyD3W +/pGGB+2LnKqXowlj/lLa+W4aXqdWOKW0RhPdBo1/xHppaJS17uQv5gVptvxn ++KFBGo64Hx35ZxBN0DI3P/3+g4YuAiWWyupRRGWP7vmICeb4mu3XyP2RhLGQ +JWyaouH4gUqL9TcjiePXfdt85mh4N5VnwWPkNjFbE5YiukDDU1d1vEfv3CaC +/yYeLf9Lw/T32h1b9W4TAtseUp2Wafhn2/Ci1e8IIv1M+dzqKg3jGnY1GN2P +IP4Hz0wYnA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22963416248739862`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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.22963416248739862`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991336179267145*^9}, + CellLabel-> + "Out[278]=",ExpressionUUID->"63518a14-6f7d-6f44-bb1f-32ae8d6f657f"] +}, 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[282]:=",ExpressionUUID->"e94e1ddb-0658-3b45-ad00-7392c646ee51"], + +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->"5789d8fb-150e-9a49-8a2f-15984a4083a0"], + +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->"10eb161e-8740-e441-b61b-b27d08d291d7"], + +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->"f2d20661-5fdd-a74c-8183-e6888fe98835"], + +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->"775942df-185d-1b4c-9fb6-75af36168c8b"], + +Cell[BoxData["9.332200719005147`"], "Output", + CellChangeTimes->{3.9913372766841774`*^9}, + CellLabel-> + "Out[282]=",ExpressionUUID->"03db46c0-47c3-f348-bb46-ea4092806a8c"] +}, 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.991846210534153*^9, + 3.991846213941681*^9}},ExpressionUUID->"23c7e6b2-69d5-1a4e-bd5f-\ +947421a54e26"], + +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->"fed85baf-99d5-3544-911c-9e3778d04d17"], + +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->"74041ff4-8835-8a41-a4dd-eea6e1a39915"], + +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->"9e09393a-eefe-ba45-99ee-c640606d2ee1"], + +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->"70437e48-0dcf-4e4f-a146-b3bdae4f632b"], + +Cell[BoxData["0.5406905105605413`"], "Output", + CellChangeTimes->{3.991337284091696*^9}, + CellLabel-> + "Out[283]=",ExpressionUUID->"86f3d22e-a660-0b41-baff-cdb033e864e0"] +}, 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.991846217504902*^9, + 3.991846220659443*^9}},ExpressionUUID->"38ca1203-b2e6-3044-aa85-\ +97017d76bb30"], + +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->"f4fc5672-9e6d-3748-ab75-56a8f1b8c47a"], + +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->"4aa61d0b-cbfc-004d-8be6-ff84c5742fd0"], + +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->"bcdde3fc-988d-814c-a83c-ce90996db47a"], + +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->"f371b728-3599-4340-a62e-fdf04344dabe"], + +Cell[BoxData["2.9943030245183917`"], "Output", + CellChangeTimes->{3.9913372907074146`*^9}, + CellLabel-> + "Out[284]=",ExpressionUUID->"077bbedf-862f-cc4e-b648-9dad11154cf8"] +}, 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.9918462258948135`*^9, + 3.9918462291469593`*^9}},ExpressionUUID->"087e4064-7024-cb41-8231-\ +fe78ad70afda"], + +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->"d528e032-b6a6-a543-9b8d-23228fe63677"], + +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->"e6016862-564d-8a4b-ba73-420e4cefde7e"], + +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->"52da723a-eab2-1040-978c-52ac672efc66"], + +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->"d1a6585d-5cf1-364e-9714-b29a76c14a20"], + +Cell[BoxData["16.72305770548981`"], "Output", + CellChangeTimes->{3.991337294569908*^9}, + CellLabel-> + "Out[285]=",ExpressionUUID->"5c7deb9d-a1b0-ad49-bd81-bf4a15d59971"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918462331551914`*^9, + 3.991846236994051*^9}},ExpressionUUID->"cd9a77e7-d597-394b-a710-\ +f971fc40d827"], + +Cell[BoxData["0.07640873836855284`"], "Output", + CellChangeTimes->{3.9913372946009064`*^9}, + CellLabel-> + "Out[286]=",ExpressionUUID->"5a5422b6-c991-1740-997c-c4f205d8ff82"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991846241790388*^9, 3.9918462437859745`*^9}, + 3.9919238532202225`*^9},ExpressionUUID->"13a90bf7-f7dc-7e48-845e-\ +80048a92ff15"], + +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->"ce764b10-5670-7a4e-86ae-3f77893f67b3"], + +Cell[BoxData["7.13574266196526`"], "Output", + CellChangeTimes->{3.991337294629921*^9}, + CellLabel-> + "Out[288]=",ExpressionUUID->"e25dfa18-ea25-df40-8f5d-0ff169fa5ae7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[290]:=",ExpressionUUID->"717d3ead-30a8-ec47-9afe-f9884217d594"], + +Cell[BoxData["1.4042291233212119`"], "Output", + CellChangeTimes->{3.9913372946629753`*^9}, + CellLabel-> + "Out[290]=",ExpressionUUID->"96aab3a1-95e4-7349-96b6-43128457940c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[293]:=",ExpressionUUID->"c43d0cec-6a64-9643-a5bb-27ab984c3bb2"], + +Cell[BoxData["10.020217662457247`"], "Output", + CellChangeTimes->{3.9913372947367725`*^9}, + CellLabel-> + "Out[293]=",ExpressionUUID->"98fcf8be-ba43-ae41-a6cd-62aef0ebb50c"] +}, 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->"e15da858-b31b-c344-a560-00b30705c2c2"], + +Cell[BoxData["0.06674599726273667`"], "Output", + CellChangeTimes->{3.9913372947513313`*^9}, + CellLabel-> + "Out[294]=",ExpressionUUID->"4ae926cc-90a9-5a4e-8bc7-efdead49917a"] +}, 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->"f53a321d-2180-024b-b925-7b08c74c1c33"], + +Cell[BoxData["3.430301770911147`"], "Output", + CellChangeTimes->{3.9913372948636913`*^9}, + CellLabel-> + "Out[295]=",ExpressionUUID->"f2f17f7a-79ff-794b-914c-ee087932d3fc"] +}, 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->"6fc2e120-104b-274c-a69b-ff643539124b"], + +Cell[BoxData["0.01266539131451536`"], "Output", + CellChangeTimes->{3.991337294877693*^9}, + CellLabel-> + "Out[296]=",ExpressionUUID->"a5f469a0-4ca3-e047-b336-e38d98804459"] +}, 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->"1ebbe4bd-69b2-ba4a-b880-612b325b749b"], + +Cell[BoxData["7.874729317258519`"], "Output", + CellChangeTimes->{3.991337294976324*^9}, + CellLabel-> + "Out[297]=",ExpressionUUID->"dfd045e6-0547-5948-8a30-f6f21ca1851b"] +}, 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->"1efe60b3-9182-2c4c-bd13-9e4d244d7e70"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913372950022793`*^9}, + CellLabel-> + "Out[298]=",ExpressionUUID->"235fc321-e687-b140-a2ed-ea3ad35e3bb8"] +}, 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->"66f987a0-c978-3745-b4d7-87ccf5fea6cf"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991337295013279*^9}, + CellLabel-> + "Out[299]=",ExpressionUUID->"1e144329-9e43-bf4f-9d10-823c44cb18a4"] +}, 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->"696f9a62-0454-0540-abef-a5c123c32f5f"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.991337295041279*^9}, + CellLabel-> + "Out[300]=",ExpressionUUID->"c1758059-ccb3-1040-a83d-304abcce69c4"] +}, 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.991846260820032*^9},ExpressionUUID->"efacefcd-90be-574d-92a2-\ +eec47ae06964"], + +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->"7a1e7ba8-a6bf-2f4a-bf31-4a2ed3016295"], + +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->"9c2e507b-ef90-ac45-8745-64f07a4cab70"], + +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->"79a512ec-e31d-8844-bf00-025e94c5ef0a"], + +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->"52a2b255-a51b-1c41-afb5-2c6906cc81b7"], + +Cell[BoxData["3.430301770911144`"], "Output", + CellChangeTimes->{3.991337298790371*^9}, + CellLabel-> + "Out[301]=",ExpressionUUID->"8f590d85-cd49-4b4a-b80f-ef4df8529f15"] +}, 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.991846268674473*^9},ExpressionUUID->"113e0d2a-28bc-cb46-97f5-\ +cf1d438fc6f4"], + +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->"9c88a8d0-79f6-c641-aaf7-46f5907e3958"], + +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->"5bdaba15-f4c0-7a4a-905b-a46ed4994f1b"], + +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->"921e00ea-3ed1-4d4f-a4c6-636b2e493926"], + +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->"94646a19-438b-8144-9028-59ac2200b652"], + +Cell[BoxData["7.87472931725852`"], "Output", + CellChangeTimes->{3.991337302457178*^9}, + CellLabel-> + "Out[302]=",ExpressionUUID->"85256f71-2c5b-a942-af45-97021273c9d1"] +}, 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.9918462728234997`*^9},ExpressionUUID->"1fd4421d-3fcd-2d4f-bd05-\ +28d15302273b"], + +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->"000d3cc5-e7e7-7f42-9c78-51dba6db4bf3"] +}, 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", ",", "15"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991846277689621*^9},ExpressionUUID->"0a8036ea-ac95-654b-96a9-\ +78af964912a2"], + +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->"fe707fb7-e6dc-184a-a72e-2be6d5c085cf"], + +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->"a7e21b46-c6c9-1c4d-875a-309332ed6699"], + +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->"50e13f26-4720-f342-8c8a-f93078defe94"], + +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->"68974fe2-070e-264b-8432-db9f06367365"], + +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->"ba3a3065-c61d-5943-9ee3-286e0d374549"] +}, 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[308]:=",ExpressionUUID->"2b7767f9-449f-c646-ae0c-43037957b685"], + +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->"b8ddd204-96bd-c44c-a461-fca25ce38083"], + +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->"4d331042-6820-214d-a3a7-faad1e0acd9a"], + +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->"2b7f80c1-4d86-8c41-ad69-d2816819dae8"], + +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->"39d74612-fbdc-ff40-a7d1-fc3dfa4019c6"], + +Cell[BoxData["9.33220071900515`"], "Output", + CellChangeTimes->{3.9913392124888554`*^9}, + CellLabel-> + "Out[308]=",ExpressionUUID->"5f3f7d29-276c-ce44-8205-70c169040bde"] +}, 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.99184628914184*^9, + 3.9918462932986107`*^9}},ExpressionUUID->"8304a1af-5a77-304f-9cc7-\ +82724e2b3df7"], + +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->"4fd30c53-5c63-3547-b8da-55deec45ffe9"], + +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->"94d8d63e-6d20-a549-87b6-9bb940b1a184"], + +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->"94cf357c-30eb-ce43-bfa6-645e621ccaab"], + +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->"6c01af9f-f680-4741-8cf0-c5de4c3f5776"], + +Cell[BoxData["0.41157157699018565`"], "Output", + CellChangeTimes->{3.9913392196090164`*^9}, + CellLabel-> + "Out[309]=",ExpressionUUID->"c62861b9-4f65-8643-97a2-f7acbf90accd"] +}, 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.9918462963096733`*^9, + 3.991846299126808*^9}},ExpressionUUID->"3ed977a3-b24a-0644-a438-\ +d2ebbf0c1dea"], + +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->"2222d8d9-5ab2-9842-a5d2-c83e0de9e07d"], + +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->"f866d339-6477-0c45-9660-98eca56f0e20"], + +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->"ac7b6c07-69b3-8847-9707-6d5a111d812d"], + +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->"11ccb074-812f-ce43-be93-ac274425113d"], + +Cell[BoxData["3.215201591157595`"], "Output", + CellChangeTimes->{3.9913392268711624`*^9}, + CellLabel-> + "Out[310]=",ExpressionUUID->"e407b037-0c43-434a-ae6e-d9d9cac64d0c"] +}, 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.991846303469427*^9, + 3.991846306205721*^9}},ExpressionUUID->"0a258b12-85fc-2a47-9b1a-\ +8264aa20d65c"], + +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->"51fd61ee-1a5d-9048-806e-e5a8ccbc9ee8"], + +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->"b60547f8-8180-8e42-a50a-2f95a9bbb448"], + +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->"e6102528-f151-984e-9d65-5e941faf5653"], + +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->"5973ee85-238a-1f47-b298-fa05fe19e0b7"], + +Cell[BoxData["16.94395627212904`"], "Output", + CellChangeTimes->{3.9913392304284153`*^9}, + CellLabel-> + "Out[311]=",ExpressionUUID->"1b8a1f16-b0cf-1c4c-bae9-5db73555a85f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991846309734665*^9, + 3.991846313322897*^9}},ExpressionUUID->"1cb0d12f-90a8-b449-9dd4-\ +8435ee411a7c"], + +Cell[BoxData["0.05576142449710889`"], "Output", + CellChangeTimes->{3.9913392304624157`*^9}, + CellLabel-> + "Out[312]=",ExpressionUUID->"afcb3269-c8ab-6a44-9d7c-8a434189e156"] +}, 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->"1d8c20c2-003a-2a4c-a42e-33895f032914" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 250, 5, 28, "Input",ExpressionUUID->"8034629a-ad46-2543-96e9-665c098d7b0c"], +Cell[829, 29, 170, 2, 32, "Output",ExpressionUUID->"93ea5906-eb04-9047-8cef-68b0763f7c86"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1036, 36, 326, 5, 28, "Input",ExpressionUUID->"dc9c77e4-3cfb-294e-9f86-cf656d8d2ea6"], +Cell[1365, 43, 255, 4, 32, "Output",ExpressionUUID->"bbe52b99-2002-fa42-a3f0-8b4162c54871"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1657, 52, 252, 5, 28, "Input",ExpressionUUID->"15e15a9f-0334-9043-b8b9-f1ca4106ea61"], +Cell[1912, 59, 252, 4, 32, "Output",ExpressionUUID->"d52f838e-d8ec-7549-9799-f23cd1eb08b8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2201, 68, 175, 3, 28, "Input",ExpressionUUID->"1c82ac22-6dea-194e-9a1e-637d86c495ee"], +Cell[2379, 73, 225, 3, 32, "Output",ExpressionUUID->"b236eb16-cf83-a040-a9e8-768e0651f5a7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2641, 81, 257, 7, 43, "Input",ExpressionUUID->"24afb29b-54f8-f243-a2b3-6bc9c92d11eb"], +Cell[2901, 90, 243, 3, 32, "Output",ExpressionUUID->"2387a484-b0c6-3842-ae91-ab9b13cbd403"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3181, 98, 131, 2, 28, "Input",ExpressionUUID->"32c2cbe4-2613-8549-9aa5-86191ea073e5"], +Cell[3315, 102, 229, 3, 32, "Output",ExpressionUUID->"69d1775f-2723-e140-9abd-2054c39a2ef6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3581, 110, 276, 6, 28, "Input",ExpressionUUID->"1f532123-e84b-7441-a626-c25decc207f4"], +Cell[3860, 118, 241, 3, 32, "Output",ExpressionUUID->"0db46d28-c19c-2941-8630-d4a702f7be5a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4138, 126, 257, 7, 28, "Input",ExpressionUUID->"874dd9e7-be71-ae47-8889-e17639f31e85"], +Cell[4398, 135, 240, 3, 32, "Output",ExpressionUUID->"be7cdcda-4de2-6445-82d0-fa882c11b50f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4675, 143, 236, 4, 28, "Input",ExpressionUUID->"f9e0a7ba-220a-b743-91b5-50aaf94ec86c"], +Cell[4914, 149, 260, 3, 32, "Output",ExpressionUUID->"498e650e-c98c-cd46-9ff3-761bbae2b483"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5211, 157, 238, 4, 28, "Input",ExpressionUUID->"6eb0c41d-16ce-6640-82f0-819e094da28e"], +Cell[5452, 163, 262, 3, 32, "Output",ExpressionUUID->"549ca9be-3aa2-3641-a9c4-0eaf9ba1bb1b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5751, 171, 129, 2, 28, "Input",ExpressionUUID->"b10c8e9b-99a2-8c49-9d72-8abe7850a9eb"], +Cell[5883, 175, 224, 3, 32, "Output",ExpressionUUID->"be1ef1be-68ff-a141-b961-d07b1e984966"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6144, 183, 129, 2, 28, "Input",ExpressionUUID->"da6b028d-b021-d74d-9078-f23263665f7b"], +Cell[6276, 187, 221, 3, 32, "Output",ExpressionUUID->"04a74b39-f858-314c-8b5f-da822872b6fd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6534, 195, 557, 19, 79, "Input",ExpressionUUID->"c48a305a-085f-f64d-a1c6-f00f13fed297"], +Cell[7094, 216, 216, 3, 32, "Output",ExpressionUUID->"43ed07a3-e4e7-a343-9f32-4f866691321e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7347, 224, 557, 19, 79, "Input",ExpressionUUID->"b8c4900a-fd7d-3c49-86cf-3b8f9f4b5cc7"], +Cell[7907, 245, 220, 3, 32, "Output",ExpressionUUID->"098d4055-d513-b548-8565-ec34640c73a7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8164, 253, 1492, 48, 80, "Input",ExpressionUUID->"3edc5467-1f4d-234d-a3e1-29d4af4be714"], +Cell[9659, 303, 214, 3, 32, "Output",ExpressionUUID->"062abb2e-431a-8f44-9288-5e46a26df896"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9910, 311, 1331, 44, 80, "Input",ExpressionUUID->"b5e17374-048c-bd4b-95f9-d6ef7d043243"], +Cell[11244, 357, 234, 4, 32, "Output",ExpressionUUID->"dd4e9f3d-82b4-6345-b1cc-f0fe8ef38e79"] +}, Open ]], +Cell[CellGroupData[{ +Cell[11515, 366, 1331, 44, 80, "Input",ExpressionUUID->"132371ce-6301-f847-884e-fc83bc9a17d2"], +Cell[12849, 412, 238, 4, 32, "Output",ExpressionUUID->"c397bb4e-9f03-5b40-81eb-a0aa0e210d16"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13124, 421, 1492, 48, 80, "Input",ExpressionUUID->"6d7fa188-d880-ee40-a891-c54434bcc9aa"], +Cell[14619, 471, 214, 3, 32, "Output",ExpressionUUID->"c1434463-136c-d74b-a5bb-e5ea005032af"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14870, 479, 131, 2, 28, "Input",ExpressionUUID->"eb280405-24fc-8347-bd42-4f8f1c10efb0"], +Cell[15004, 483, 200, 3, 32, "Output",ExpressionUUID->"ae9e705c-f3b5-8144-8d6e-701f9ae4d4ce"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15241, 491, 177, 3, 28, "Input",ExpressionUUID->"6ca61853-ea7e-464c-a881-3ea6ed4e391f"], +Cell[15421, 496, 199, 3, 32, "Output",ExpressionUUID->"0ae8f939-f3ad-4f4f-a556-725baab4b569"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15657, 504, 134, 2, 28, "Input",ExpressionUUID->"c10b3dfb-d1f8-4a4e-802e-0df5aa6355ab"], +Cell[15794, 508, 204, 3, 32, "Output",ExpressionUUID->"835bfe55-ebc8-a746-b2a5-3c372252e8df"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16035, 516, 219, 4, 28, "Input",ExpressionUUID->"54b30067-e0dc-7548-9fe4-a174df9b2fc3"], +Cell[16257, 522, 215, 4, 32, "Output",ExpressionUUID->"089a98d1-73e3-204f-8936-fea410905307"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16509, 531, 134, 2, 28, "Input",ExpressionUUID->"8f29137f-c321-9d49-98fd-20510e3a770e"], +Cell[16646, 535, 204, 3, 32, "Output",ExpressionUUID->"383deac8-5ee8-df40-8917-204b1892a7a6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16887, 543, 302, 5, 28, "Input",ExpressionUUID->"181519d5-4333-6949-a2b4-f1c9df7627ca"], +Cell[17192, 550, 150, 2, 32, "Output",ExpressionUUID->"e9d97066-7078-5941-aa4c-279b5a59b11e"] +}, Open ]], +Cell[17357, 555, 173, 2, 28, "Input",ExpressionUUID->"bdda7ea0-e8bb-a14d-8478-10da82392727"], +Cell[CellGroupData[{ +Cell[17555, 561, 271, 5, 28, "Input",ExpressionUUID->"ef039354-4e03-a841-95d0-3c0922239d9d"], +Cell[17829, 568, 198, 3, 32, "Output",ExpressionUUID->"9c545887-40b7-504f-b012-5f57d60e46ce"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18064, 576, 219, 4, 28, "Input",ExpressionUUID->"f4be1cb9-fc67-9b49-86bc-d5a88be04bd9"], +Cell[18286, 582, 202, 3, 32, "Output",ExpressionUUID->"f0e35011-e7b6-374e-8774-54a548742f40"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18525, 590, 350, 10, 43, "Input",ExpressionUUID->"db4cdb7a-2c4f-1a4c-ba04-7cd4f8a471ad"], +Cell[18878, 602, 221, 3, 32, "Output",ExpressionUUID->"1e6d1025-35e0-344d-a6fd-a284d76a9184"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19136, 610, 350, 10, 43, "Input",ExpressionUUID->"db84c94f-436b-ea4f-b544-f23fc32faf29"], +Cell[19489, 622, 234, 4, 32, "Output",ExpressionUUID->"0bf3879a-1903-2e40-b62c-9ee5e4e68ab7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19760, 631, 992, 26, 113, "Input",ExpressionUUID->"8d2f667d-3f93-5f4f-981b-dace6f85227c"], +Cell[20755, 659, 215, 3, 32, "Output",ExpressionUUID->"928b8c7b-0eb6-6942-b2a0-5a3bbe3f0fc8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21007, 667, 199, 3, 28, "Input",ExpressionUUID->"1bde936d-542d-3d4e-9775-6b0e2d7d37b9"], +Cell[21209, 672, 202, 3, 32, "Output",ExpressionUUID->"69ef140a-b263-794a-b63a-32c89567e3da"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21448, 680, 275, 4, 28, "Input",ExpressionUUID->"16006ac2-b361-9642-8268-5d4cbd31277a"], +Cell[21726, 686, 156, 2, 32, "Output",ExpressionUUID->"60bcc33b-0a6a-6e4d-8594-c6d756e865e7"] +}, Open ]], +Cell[21897, 691, 175, 2, 28, "Input",ExpressionUUID->"27310e89-4fab-d948-9e7c-8013539e6df1"], +Cell[CellGroupData[{ +Cell[22097, 697, 325, 5, 28, "Input",ExpressionUUID->"66cec6b5-bae5-f542-98cd-3f94fce4d90e"], +Cell[22425, 704, 156, 2, 32, "Output",ExpressionUUID->"20025596-e85c-6d46-8c38-3ccbad1c40b0"] +}, Open ]], +Cell[22596, 709, 173, 2, 28, "Input",ExpressionUUID->"86434779-9bad-c14c-9f65-9237c19a0562"], +Cell[CellGroupData[{ +Cell[22794, 715, 324, 5, 28, "Input",ExpressionUUID->"3aa302f7-27e2-694e-8db4-93428a6baec8"], +Cell[23121, 722, 156, 2, 32, "Output",ExpressionUUID->"7ce5feda-2b2d-6d46-a527-cb691bab8f01"] +}, Open ]], +Cell[23292, 727, 175, 2, 28, "Input",ExpressionUUID->"debff809-8d9f-234c-ab2c-d10db054a178"], +Cell[CellGroupData[{ +Cell[23492, 733, 349, 6, 47, "Input",ExpressionUUID->"a3734cb6-5ca9-2d49-a888-9c8b7eebe9a3"], +Cell[23844, 741, 156, 2, 32, "Output",ExpressionUUID->"addb2271-743d-5d4f-bcaa-f71ad77b7ead"] +}, Open ]], +Cell[24015, 746, 175, 2, 28, "Input",ExpressionUUID->"8f4bf596-3cb9-aa42-adb3-832e0d840c3e"], +Cell[CellGroupData[{ +Cell[24215, 752, 294, 5, 47, "Input",ExpressionUUID->"6613accf-75ad-4b46-b964-360b143e2a4d"], +Cell[24512, 759, 154, 2, 32, "Output",ExpressionUUID->"4ba7dcbc-686c-1244-a49a-b10894375e30"] +}, Open ]], +Cell[24681, 764, 173, 2, 28, "Input",ExpressionUUID->"acd0e98a-f51d-aa4f-9a21-9a7b570a2eb6"], +Cell[CellGroupData[{ +Cell[24879, 770, 294, 5, 47, "Input",ExpressionUUID->"74172ae0-8cb0-d047-86a4-09866aebc8f4"], +Cell[25176, 777, 156, 2, 32, "Output",ExpressionUUID->"96272fdb-c918-2f40-b99f-5da4bc7effba"] +}, Open ]], +Cell[25347, 782, 171, 2, 28, "Input",ExpressionUUID->"a5613600-e216-5f46-bbf6-07bed35f3cc8"], +Cell[CellGroupData[{ +Cell[25543, 788, 322, 6, 47, "Input",ExpressionUUID->"5a5de99e-c377-d04d-a2f6-e06075066408"], +Cell[25868, 796, 154, 2, 32, "Output",ExpressionUUID->"30926e42-e6d4-364b-aa58-d9e4eb50b1de"] +}, Open ]], +Cell[26037, 801, 175, 2, 28, "Input",ExpressionUUID->"513adba7-ac11-154c-84cc-c22e469180f5"], +Cell[CellGroupData[{ +Cell[26237, 807, 268, 5, 47, "Input",ExpressionUUID->"8bf09d0d-c1ee-e045-91ae-4feca5c9f2a0"], +Cell[26508, 814, 155, 2, 32, "Output",ExpressionUUID->"66bc46c9-9249-2947-9b2c-5413927ebd9a"] +}, Open ]], +Cell[26678, 819, 171, 2, 28, "Input",ExpressionUUID->"5cd4a594-c3a9-674d-99bd-f3e5d51952ea"], +Cell[CellGroupData[{ +Cell[26874, 825, 19809, 485, 2217, "Input",ExpressionUUID->"86117941-6091-384c-a4a4-d1519c22e558"], +Cell[46686, 1312, 215, 3, 32, "Output",ExpressionUUID->"982af05a-28a1-aa4e-b6c2-fd6bed22985b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[46938, 1320, 19748, 489, 2304, "Input",ExpressionUUID->"282a5804-542f-c043-84ac-4070c6cfe8eb"], +Cell[66689, 1811, 219, 3, 32, "Output",ExpressionUUID->"896232fa-87cf-8847-bdb9-43b3a3c4c2a9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[66945, 1819, 19748, 483, 2276, "Input",ExpressionUUID->"1533aaea-8f15-a240-9701-992f949ed850"], +Cell[86696, 2304, 232, 4, 32, "Output",ExpressionUUID->"a338d52f-4792-3147-ba70-6d631ee77ae7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[86965, 2313, 22534, 553, 2583, "Input",ExpressionUUID->"e9f51a28-b509-fa4c-9728-01bce58994fd"], +Cell[109502, 2868, 231, 4, 32, "Output",ExpressionUUID->"92039e7c-b5ab-0048-b32b-9a55f51aea3a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[109770, 2877, 22535, 553, 2583, "Input",ExpressionUUID->"b7b96416-de19-4248-9b30-5860216b0544"], +Cell[132308, 3432, 234, 4, 32, "Output",ExpressionUUID->"d44fa9d8-277d-8e45-8754-ad4814ebcce8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[132579, 3441, 25491, 626, 2890, "Input",ExpressionUUID->"c571738b-c302-a643-8a08-a2a234e9553f"], +Cell[158073, 4069, 234, 4, 32, "Output",ExpressionUUID->"19d70101-2af5-604d-bc72-70dd2a5b4c6b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[158344, 4078, 130, 2, 28, "Input",ExpressionUUID->"423a979a-bd7c-704e-835f-85f83d418bef"], +Cell[158477, 4082, 200, 3, 32, "Output",ExpressionUUID->"524d68ac-4c69-274d-8e50-0259f37b8074"] +}, Open ]], +Cell[CellGroupData[{ +Cell[158714, 4090, 130, 2, 28, "Input",ExpressionUUID->"c92cdbf8-cf08-a442-adc0-90a6ac5fc433"], +Cell[158847, 4094, 200, 3, 32, "Output",ExpressionUUID->"fa9331e2-a2a5-6d43-9f1e-ee262896b3ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[159084, 4102, 1144, 39, 110, "Input",ExpressionUUID->"cbd27e54-9e02-254d-93f1-6819805497c8"], +Cell[160231, 4143, 218, 3, 32, "Output",ExpressionUUID->"cd6e0f22-866a-cc4f-9a67-4dd98368e18e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[160486, 4151, 1041, 35, 110, "Input",ExpressionUUID->"df02d053-a79b-814f-b9c0-db67d2e4f3be"], +Cell[161530, 4188, 232, 4, 32, "Output",ExpressionUUID->"6925622c-d9c8-e745-9bd2-4238d7912bf7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[161799, 4197, 1144, 39, 110, "Input",ExpressionUUID->"3048813b-1d54-1541-977b-65898c1003a8"], +Cell[162946, 4238, 220, 3, 32, "Output",ExpressionUUID->"18ff9f45-1565-374e-8c56-abe2be66a4b4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[163203, 4246, 108, 1, 28, "Input",ExpressionUUID->"6f6cb038-51dd-ee4b-9bdf-2bf05256a435"], +Cell[163314, 4249, 216, 3, 32, "Output",ExpressionUUID->"54716ac9-9206-2842-a0a9-1fe049a9df7e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[163567, 4257, 108, 1, 28, "Input",ExpressionUUID->"ba89a9a0-0726-9d41-bc94-cee3566ff966"], +Cell[163678, 4260, 234, 4, 32, "Output",ExpressionUUID->"89444dae-c60b-dc4f-ba96-d774c8b95ed9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[163949, 4269, 108, 1, 28, "Input",ExpressionUUID->"91d07e1b-a6d9-664f-93e6-9e1c0df476bc"], +Cell[164060, 4272, 233, 4, 32, "Output",ExpressionUUID->"adc1ea7e-a1a8-6142-93c6-ecdc608a1d89"] +}, Open ]], +Cell[CellGroupData[{ +Cell[164330, 4281, 108, 1, 28, "Input",ExpressionUUID->"984b583a-0b2c-3248-811b-fefac388e307"], +Cell[164441, 4284, 216, 3, 32, "Output",ExpressionUUID->"48214336-53b5-3740-b3a3-f7912ccc4998"] +}, Open ]], +Cell[CellGroupData[{ +Cell[164694, 4292, 107, 1, 28, "Input",ExpressionUUID->"62d15abc-5e0b-5d45-9b90-61836ae46bc9"], +Cell[164804, 4295, 216, 3, 32, "Output",ExpressionUUID->"c9493975-0d20-5141-8aec-e53983216f32"] +}, Open ]], +Cell[CellGroupData[{ +Cell[165057, 4303, 107, 1, 28, "Input",ExpressionUUID->"b991a253-a043-6945-b917-59c53d095ef8"], +Cell[165167, 4306, 218, 3, 32, "Output",ExpressionUUID->"0979f1f6-8811-6048-8875-077856627626"] +}, Open ]], +Cell[CellGroupData[{ +Cell[165422, 4314, 497, 16, 56, "Input",ExpressionUUID->"95c01338-09d3-f746-8c8d-07fac969a90c"], +Cell[165922, 4332, 232, 4, 32, "Output",ExpressionUUID->"066a5d4b-8e54-1b4b-b3f2-ccb08ad8fbab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166191, 4341, 497, 16, 56, "Input",ExpressionUUID->"0648e5cc-dbde-d246-93fc-dd38f052ea85"], +Cell[166691, 4359, 233, 4, 32, "Output",ExpressionUUID->"96064bb9-3b23-454b-961b-f432e3d1d3f6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166961, 4368, 1788, 60, 188, "Input",ExpressionUUID->"6e6ddedf-fc1b-6f4b-ac38-b69e062ed7cb"], +Cell[168752, 4430, 218, 3, 32, "Output",ExpressionUUID->"368a6cf7-0e99-154e-a6a0-483f43e8de78"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169007, 4438, 1101, 36, 133, "Input",ExpressionUUID->"f71eb64e-299f-934d-b769-e8cb99106e5e"], +Cell[170111, 4476, 232, 4, 32, "Output",ExpressionUUID->"19cfb937-ddd4-004d-af17-0cf7f5758979"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170380, 4485, 1818, 61, 165, "Input",ExpressionUUID->"747c7be1-9634-e64b-a475-3c0c88b3d601"], +Cell[172201, 4548, 214, 3, 32, "Output",ExpressionUUID->"7413c38d-cb39-b74c-b504-cf09acd96bf6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172452, 4556, 2499, 77, 133, "Input",ExpressionUUID->"5e43eac2-2bf4-7d43-9f7d-9c24c5dadc3d"], +Cell[174954, 4635, 218, 3, 32, "Output",ExpressionUUID->"d4aa9bd5-0509-7a45-ba50-2cf7548877fa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175209, 4643, 2499, 77, 133, "Input",ExpressionUUID->"f32be67e-c897-814d-a7c9-655b24dd8615"], +Cell[177711, 4722, 215, 3, 32, "Output",ExpressionUUID->"7d7d8e8f-df61-da42-a283-65d99f702b2b"] +}, Open ]], +Cell[177941, 4728, 189, 3, 28, "Input",ExpressionUUID->"e6c462cd-8982-3c4a-8614-a4032c2a753f"], +Cell[178133, 4733, 154, 3, 28, "Input",ExpressionUUID->"abfd70d0-05dc-ae40-8117-a301872389cf"], +Cell[178290, 4738, 192, 4, 28, "Input",ExpressionUUID->"ab6f3c19-7b16-eb44-924b-0479fa42666f"], +Cell[178485, 4744, 152, 3, 28, "Input",ExpressionUUID->"6e63ff1c-fb16-304a-8e59-6a9d82a9fa7a"], +Cell[CellGroupData[{ +Cell[178662, 4751, 1301, 43, 113, "Input",ExpressionUUID->"764f2b72-583f-404a-86dd-302e46704fa0"], +Cell[179966, 4796, 178, 3, 32, "Output",ExpressionUUID->"a1ad1275-791c-2c4f-89d0-0191b45c7ed9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[180181, 4804, 913, 30, 56, "Input",ExpressionUUID->"296c29c6-b9f9-1d4a-99c7-5d23057d1dfa"], +Cell[181097, 4836, 175, 3, 32, "Output",ExpressionUUID->"3e2faead-b69d-5c48-9979-35e754d12d58"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181309, 4844, 961, 32, 56, "Input",ExpressionUUID->"da02f8be-1800-4945-83f1-7acaa76423f4"], +Cell[182273, 4878, 177, 3, 32, "Output",ExpressionUUID->"4f5ae42d-c740-c045-be91-9f9e31eab3b6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[182487, 4886, 558, 19, 52, "Input",ExpressionUUID->"c6346807-3d42-e948-8c5a-115ea1f6a2c2"], +Cell[183048, 4907, 173, 3, 32, "Output",ExpressionUUID->"2bcde3f6-d18f-c142-963c-217812e9dc72"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183258, 4915, 623, 21, 52, "Input",ExpressionUUID->"474c5dd1-c344-a04c-8714-ada3650bf998"], +Cell[183884, 4938, 170, 3, 32, "Output",ExpressionUUID->"482feae7-b6d8-8143-b572-b9146e6d2e0c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184091, 4946, 170, 5, 56, "Input",ExpressionUUID->"2305be88-628a-524a-b468-85b3cc42efc7"], +Cell[184264, 4953, 173, 3, 32, "Output",ExpressionUUID->"1c1deb9e-a6ca-0143-8db8-21cdffc73907"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184474, 4961, 170, 5, 55, "Input",ExpressionUUID->"426f7e1e-7abd-a446-8679-e422e283f98f"], +Cell[184647, 4968, 170, 3, 32, "Output",ExpressionUUID->"ae59e030-d7e1-1a4a-8ffb-9ecfb821ce05"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184854, 4976, 181, 5, 43, "Input",ExpressionUUID->"933badd0-5ce1-e645-bb03-d046b1312945"], +Cell[185038, 4983, 171, 3, 32, "Output",ExpressionUUID->"c953f025-a342-2549-9fa6-f90bea449e4f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185246, 4991, 181, 5, 43, "Input",ExpressionUUID->"2d8a17a7-6a4c-d94e-b0e2-4da7c60ebbeb"], +Cell[185430, 4998, 173, 3, 32, "Output",ExpressionUUID->"6e8c23f5-f692-db4e-8373-e6c78b3e7fda"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185640, 5006, 6055, 185, 498, "Input",ExpressionUUID->"042e7197-09fd-dc46-b3fd-dc1740a81970"], +Cell[191698, 5193, 175, 3, 32, "Output",ExpressionUUID->"d074617c-8fe0-114b-b207-70158bd6cc83"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191910, 5201, 368, 9, 42, "Input",ExpressionUUID->"bccf6e25-da00-4449-8f0f-f2b61c58f67f"], +Cell[192281, 5212, 170, 3, 32, "Output",ExpressionUUID->"cdd7cedd-6455-ac4a-8fce-733ce51f863b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192488, 5220, 6122, 187, 500, "Input",ExpressionUUID->"9f9260b3-ca67-3f4a-a0c4-5bf2cb98e110"], +Cell[198613, 5409, 175, 3, 32, "Output",ExpressionUUID->"aa72f32c-329c-9c4a-b6f4-833dbea197c6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198825, 5417, 368, 9, 42, "Input",ExpressionUUID->"52f82243-9920-3742-90e6-48395671d171"], +Cell[199196, 5428, 172, 3, 32, "Output",ExpressionUUID->"e26071fd-e2c1-5f40-9a42-81481b4dd96b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[199405, 5436, 2663, 88, 187, "Input",ExpressionUUID->"a147c908-551b-8647-9cf0-48614f0cb274"], +Cell[202071, 5526, 173, 3, 32, "Output",ExpressionUUID->"88673969-cab9-0b40-80f0-7c0bcdf60439"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202281, 5534, 2603, 85, 165, "Input",ExpressionUUID->"4c078cff-433d-8245-900f-0a3b49ecb9e6"], +Cell[204887, 5621, 172, 3, 32, "Output",ExpressionUUID->"bfe4c50a-d3a5-244b-8f56-30e5a15018a1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205096, 5629, 3712, 118, 348, "Input",ExpressionUUID->"f07c74eb-272f-1743-a996-1dc503a54262"], +Cell[208811, 5749, 174, 3, 32, "Output",ExpressionUUID->"857149a1-8aab-954b-86f3-2a3228e46ae1"] +}, Open ]], +Cell[209000, 5755, 138, 3, 42, "Input",ExpressionUUID->"c5ebf9ff-e333-7b4d-b8d5-46482917dc06"], +Cell[CellGroupData[{ +Cell[209163, 5762, 2052, 59, 228, "Input",ExpressionUUID->"e7569d02-bed5-3743-8058-837bf8cfd65c"], +Cell[211218, 5823, 524, 11, 60, "Message",ExpressionUUID->"3a1412e4-c6f1-e745-8a72-cd3619617eb0"], +Cell[211745, 5836, 526, 11, 60, "Message",ExpressionUUID->"413e4690-bb6f-134e-9c1c-5e19bdbe37ff"], +Cell[212274, 5849, 530, 11, 60, "Message",ExpressionUUID->"557c737f-44e5-b047-9b96-8c222633e876"], +Cell[212807, 5862, 455, 10, 26, "Message",ExpressionUUID->"0989ac4b-acdb-9949-b4d2-70d1b9f65dbd"], +Cell[213265, 5874, 172, 3, 32, "Output",ExpressionUUID->"0cfc830e-08fa-4f4b-aef5-0a6c70777af2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[213474, 5882, 2054, 59, 228, "Input",ExpressionUUID->"71739d4a-f3fc-9d4f-b803-99b4407cdc6f"], +Cell[215531, 5943, 524, 11, 60, "Message",ExpressionUUID->"726ccd2e-9850-144f-ac6f-a8db23e40300"], +Cell[216058, 5956, 526, 11, 60, "Message",ExpressionUUID->"d5c6080a-ef9c-5541-93e6-fcef34fc5c6b"], +Cell[216587, 5969, 528, 11, 60, "Message",ExpressionUUID->"a5735bd1-5fc2-3c47-a19f-be9d8c805502"], +Cell[217118, 5982, 456, 10, 26, "Message",ExpressionUUID->"1dd8474a-97c2-3246-8ead-1536370ac767"], +Cell[217577, 5994, 170, 3, 32, "Output",ExpressionUUID->"96c807db-2e4e-1f4a-822d-d2a69cd27982"] +}, Open ]], +Cell[CellGroupData[{ +Cell[217784, 6002, 1936, 53, 115, "Input",ExpressionUUID->"762274ee-d7cb-9644-9b5c-516685cd7481"], +Cell[219723, 6057, 19981, 375, 230, "Output",ExpressionUUID->"925ecd2b-bb46-b241-b0ae-91df536967b1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[239741, 6437, 2118, 60, 211, "Input",ExpressionUUID->"c4af1473-2d54-b047-b3e2-18c19d38cfdd"], +Cell[241862, 6499, 490, 11, 60, "Message",ExpressionUUID->"9c0b88be-018b-9b49-8992-9f69ff2c8721"], +Cell[242355, 6512, 493, 11, 60, "Message",ExpressionUUID->"0dc889c7-e5c7-5d48-8218-94f8d4104b1d"], +Cell[242851, 6525, 508, 11, 27, "Message",ExpressionUUID->"e3ce988d-52a1-6c46-93b1-24547de7012f"], +Cell[243362, 6538, 456, 10, 26, "Message",ExpressionUUID->"1ec64821-f1c6-944d-83dd-2975f7431573"], +Cell[243821, 6550, 61603, 1057, 233, "Output",ExpressionUUID->"b1f00f3e-b26c-bf4d-a0fd-9968a9b2c4e7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[305461, 7612, 215, 7, 48, "Input",ExpressionUUID->"4e5b3330-e10a-4342-8f3d-b24f9b16b9de"], +Cell[305679, 7621, 169, 3, 32, "Output",ExpressionUUID->"1560efbb-94f0-5144-9b19-9d176fc4dd8d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[305885, 7629, 1814, 53, 183, "Input",ExpressionUUID->"bb5f3a72-8528-7a48-a67a-a23038fc5b71"], +Cell[307702, 7684, 502, 11, 60, "Message",ExpressionUUID->"aec1bc78-c42d-654b-9d44-6cd3626266ac"], +Cell[308207, 7697, 506, 11, 60, "Message",ExpressionUUID->"f1a8642b-581b-a442-a1d9-50687b910475"], +Cell[308716, 7710, 509, 11, 60, "Message",ExpressionUUID->"5a841663-4049-3b42-9c28-d33b4ccb324b"], +Cell[309228, 7723, 456, 10, 26, "Message",ExpressionUUID->"002a296e-87c0-e748-91ba-edf75724ad49"], +Cell[309687, 7735, 28560, 514, 233, "Output",ExpressionUUID->"c4fa73a0-9f42-fb44-a044-6efcf5132509"] +}, Open ]], +Cell[CellGroupData[{ +Cell[338284, 8254, 1616, 48, 113, "Input",ExpressionUUID->"0da19810-21b5-1440-b6da-efec04765d71"], +Cell[339903, 8304, 576, 12, 85, "Message",ExpressionUUID->"7bcbb4da-a8de-1b45-8b24-dc27272fdaa1"], +Cell[340482, 8318, 582, 12, 85, "Message",ExpressionUUID->"15898f02-540e-cf4f-a0a1-f3ae96bbddb6"], +Cell[341067, 8332, 584, 12, 85, "Message",ExpressionUUID->"99a44b10-ed73-684f-a35a-9a86c980f3d9"], +Cell[341654, 8346, 458, 10, 26, "Message",ExpressionUUID->"5e0acd55-8564-1749-9f1a-5e9cd04ef83a"], +Cell[342115, 8358, 170, 3, 32, "Output",ExpressionUUID->"a97106d2-ef63-9147-8535-daa57b06eb20"] +}, Open ]], +Cell[CellGroupData[{ +Cell[342322, 8366, 2249, 64, 223, "Input",ExpressionUUID->"d3b2932a-2d3f-fa41-a705-f816ef30ba1b"], +Cell[344574, 8432, 522, 11, 60, "Message",ExpressionUUID->"4287df48-5412-ba4f-8ac5-009fa9b4a304"], +Cell[345099, 8445, 526, 11, 60, "Message",ExpressionUUID->"59c4f004-977d-f648-9c23-b4080e1c8591"], +Cell[345628, 8458, 528, 11, 60, "Message",ExpressionUUID->"60f490e4-4b4a-6845-a3d9-028c70afb6db"], +Cell[346159, 8471, 458, 10, 26, "Message",ExpressionUUID->"9ab542c7-4ae7-1e4b-b6a8-ee19008898f7"], +Cell[346620, 8483, 175, 3, 32, "Output",ExpressionUUID->"0d1e7940-37bf-bf4f-bfa4-a5ba2d7cb1dd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[346832, 8491, 2221, 64, 162, "Input",ExpressionUUID->"3a5379d3-3adc-3844-bbe2-4530809b7b8c"], +Cell[349056, 8557, 522, 11, 60, "Message",ExpressionUUID->"79bb4b1f-3177-c842-aa67-d93f3ad3365e"], +Cell[349581, 8570, 524, 11, 60, "Message",ExpressionUUID->"517afb64-9d7b-6748-abe1-5fa348ccbc29"], +Cell[350108, 8583, 528, 11, 60, "Message",ExpressionUUID->"d19413a7-2cf4-0549-a8b8-37f98f04b017"], +Cell[350639, 8596, 458, 10, 26, "Message",ExpressionUUID->"e2ebea89-90c0-5d4f-8c43-eea596c7d6fb"], +Cell[351100, 8608, 170, 3, 32, "Output",ExpressionUUID->"7c4d0729-640a-ed41-ad1f-5a5a75f62d87"] +}, Open ]], +Cell[CellGroupData[{ +Cell[351307, 8616, 2219, 64, 162, "Input",ExpressionUUID->"208e04c0-4af7-a344-9e86-ceb616bf22d8"], +Cell[353529, 8682, 524, 11, 60, "Message",ExpressionUUID->"c1d8bb29-16c6-3f4b-8a9b-ba7e90da9672"], +Cell[354056, 8695, 526, 11, 60, "Message",ExpressionUUID->"1756ecee-a1fe-bb40-bfd8-48d4df8ef76d"], +Cell[354585, 8708, 530, 11, 60, "Message",ExpressionUUID->"d0cb69f1-ced4-d843-98c1-600cac395a38"], +Cell[355118, 8721, 458, 10, 26, "Message",ExpressionUUID->"ab747287-9372-314d-a7c4-14fc011f850b"], +Cell[355579, 8733, 171, 3, 32, "Output",ExpressionUUID->"e6bb3b57-900e-ed41-845d-3c49874fc850"] +}, Open ]], +Cell[CellGroupData[{ +Cell[355787, 8741, 213, 6, 47, "Input",ExpressionUUID->"53a3c067-888b-bc49-a5e6-f228162e6070"], +Cell[356003, 8749, 175, 3, 32, "Output",ExpressionUUID->"88a5aaa2-9216-404d-a8aa-70ecb36db857"] +}, Open ]], +Cell[356193, 8755, 247, 5, 42, "Input",ExpressionUUID->"0c2ac2c8-096e-e64a-aaeb-bb84e7548fdc"], +Cell[CellGroupData[{ +Cell[356465, 8764, 558, 19, 52, "Input",ExpressionUUID->"5c8cab9c-f39b-364c-ae6b-c415e4dbcf46"], +Cell[357026, 8785, 172, 3, 32, "Output",ExpressionUUID->"2dde55a6-2323-454c-b60b-61a76b5d44f2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[357235, 8793, 170, 5, 56, "Input",ExpressionUUID->"106a4571-94f1-5343-b4a9-78f21d5e84b3"], +Cell[357408, 8800, 172, 3, 32, "Output",ExpressionUUID->"344bf722-e54f-374f-b65c-1dfe2f693b7e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[357617, 8808, 181, 5, 43, "Input",ExpressionUUID->"b7c1808d-73a9-d645-bf95-223de85093e2"], +Cell[357801, 8815, 172, 3, 32, "Output",ExpressionUUID->"37f05469-042d-5c49-acdf-eb29d6a15290"] +}, Open ]], +Cell[CellGroupData[{ +Cell[358010, 8823, 6055, 185, 498, "Input",ExpressionUUID->"e9c41729-285f-7d42-bb43-ee09dea88444"], +Cell[364068, 9010, 174, 3, 32, "Output",ExpressionUUID->"a9f66528-7902-3848-84e1-d06cd8efb93c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364279, 9018, 368, 9, 42, "Input",ExpressionUUID->"efa9c5ac-4baa-3e4e-9760-1e46cf5c01c0"], +Cell[364650, 9029, 173, 3, 32, "Output",ExpressionUUID->"c5f93787-bd57-b143-93de-29b700483396"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364860, 9037, 6122, 187, 500, "Input",ExpressionUUID->"7dcb74da-1357-7e4e-a03d-852f8e740128"], +Cell[370985, 9226, 175, 3, 32, "Output",ExpressionUUID->"7b0024b2-1e68-904c-b216-49c58abdde0a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[371197, 9234, 368, 9, 42, "Input",ExpressionUUID->"4c537c9f-ce6a-8f4c-9e68-01e12e3017b7"], +Cell[371568, 9245, 170, 3, 32, "Output",ExpressionUUID->"725e176a-1300-6f41-9ba3-e070b7b00753"] +}, Open ]], +Cell[CellGroupData[{ +Cell[371775, 9253, 2663, 88, 187, "Input",ExpressionUUID->"1e3d1dc2-d9ac-9045-a648-58006d1d6cf6"], +Cell[374441, 9343, 173, 3, 32, "Output",ExpressionUUID->"56e25769-5fae-9845-ac42-be0bc3e98c92"] +}, Open ]], +Cell[CellGroupData[{ +Cell[374651, 9351, 2603, 85, 165, "Input",ExpressionUUID->"2371743b-ee83-9146-bf98-330cb0fb7e0a"], +Cell[377257, 9438, 172, 3, 32, "Output",ExpressionUUID->"0574b2f8-313d-764f-97a0-b69ae3bd044d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[377466, 9446, 3712, 118, 348, "Input",ExpressionUUID->"8b6de8d6-9524-3347-a11b-48bba48b07d0"], +Cell[381181, 9566, 174, 3, 32, "Output",ExpressionUUID->"95ff35fe-9928-0447-aa14-c396ca299126"] +}, Open ]], +Cell[CellGroupData[{ +Cell[381392, 9574, 2052, 59, 228, "Input",ExpressionUUID->"a41abb59-b808-8547-b1d9-a574acad5c53"], +Cell[383447, 9635, 574, 12, 85, "Message",ExpressionUUID->"87b7fc82-cf0a-ec4d-83b9-1f172c2a1277"], +Cell[384024, 9649, 580, 12, 85, "Message",ExpressionUUID->"e0980964-44fb-0a4c-8205-9ce871cb8c93"], +Cell[384607, 9663, 582, 12, 85, "Message",ExpressionUUID->"769d7438-8b0f-d04b-94dc-ec99bab472ff"], +Cell[385192, 9677, 456, 10, 26, "Message",ExpressionUUID->"c243bb4e-27de-574b-aeb4-b19a9e2e805b"], +Cell[385651, 9689, 171, 3, 32, "Output",ExpressionUUID->"678e1d2b-842e-e545-b4df-7b6cad732095"] +}, Open ]], +Cell[CellGroupData[{ +Cell[385859, 9697, 2054, 59, 228, "Input",ExpressionUUID->"779c8db8-6bae-9046-915d-05cf0a3cee42"], +Cell[387916, 9758, 574, 12, 85, "Message",ExpressionUUID->"513e0bd5-dbba-a448-aa49-b2f50bf64a60"], +Cell[388493, 9772, 578, 12, 85, "Message",ExpressionUUID->"af5e90bc-196b-e043-94e8-4bb9c49c6b5c"], +Cell[389074, 9786, 582, 12, 85, "Message",ExpressionUUID->"8f26edac-d5c1-324e-91b6-0e386d5a872d"], +Cell[389659, 9800, 458, 10, 26, "Message",ExpressionUUID->"6833928c-ef21-0d4b-aeed-ecf995491543"], +Cell[390120, 9812, 169, 3, 32, "Output",ExpressionUUID->"74d46ae4-1766-0c42-9255-78e61714806e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[390326, 9820, 2028, 55, 160, "Input",ExpressionUUID->"2fa4bc1d-3549-0e49-9fa0-9e5dc16aa40f"], +Cell[392357, 9877, 20326, 381, 239, "Output",ExpressionUUID->"1101a597-b433-8944-aac8-4b6263f307b3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[412720, 10263, 2120, 60, 211, "Input",ExpressionUUID->"6e23e6bb-e46c-1c43-a88f-db092cf7ac8d"], +Cell[414843, 10325, 502, 11, 60, "Message",ExpressionUUID->"698a0ec2-6362-4a4c-9512-68ac03e6ab94"], +Cell[415348, 10338, 504, 11, 60, "Message",ExpressionUUID->"c7464263-6d3c-ad4b-944d-708e3b53f8de"], +Cell[415855, 10351, 507, 11, 60, "Message",ExpressionUUID->"3b2b96d7-8ae3-e140-a8cb-bb0d54486d84"], +Cell[416365, 10364, 458, 10, 26, "Message",ExpressionUUID->"52f611be-ecf7-624a-b8a8-553d5cafe96b"], +Cell[416826, 10376, 41632, 730, 233, "Output",ExpressionUUID->"63518a14-6f7d-6f44-bb1f-32ae8d6f657f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[458495, 11111, 1616, 48, 113, "Input",ExpressionUUID->"e94e1ddb-0658-3b45-ad00-7392c646ee51"], +Cell[460114, 11161, 592, 12, 85, "Message",ExpressionUUID->"5789d8fb-150e-9a49-8a2f-15984a4083a0"], +Cell[460709, 11175, 597, 12, 85, "Message",ExpressionUUID->"10eb161e-8740-e441-b61b-b27d08d291d7"], +Cell[461309, 11189, 599, 12, 85, "Message",ExpressionUUID->"f2d20661-5fdd-a74c-8183-e6888fe98835"], +Cell[461911, 11203, 458, 10, 26, "Message",ExpressionUUID->"775942df-185d-1b4c-9fb6-75af36168c8b"], +Cell[462372, 11215, 172, 3, 32, "Output",ExpressionUUID->"03db46c0-47c3-f348-bb46-ea4092806a8c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[462581, 11223, 2247, 64, 223, "Input",ExpressionUUID->"23c7e6b2-69d5-1a4e-bd5f-947421a54e26"], +Cell[464831, 11289, 576, 12, 85, "Message",ExpressionUUID->"fed85baf-99d5-3544-911c-9e3778d04d17"], +Cell[465410, 11303, 580, 12, 85, "Message",ExpressionUUID->"74041ff4-8835-8a41-a4dd-eea6e1a39915"], +Cell[465993, 11317, 582, 12, 85, "Message",ExpressionUUID->"9e09393a-eefe-ba45-99ee-c640606d2ee1"], +Cell[466578, 11331, 456, 10, 26, "Message",ExpressionUUID->"70437e48-0dcf-4e4f-a146-b3bdae4f632b"], +Cell[467037, 11343, 171, 3, 32, "Output",ExpressionUUID->"86f3d22e-a660-0b41-baff-cdb033e864e0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[467245, 11351, 2219, 64, 162, "Input",ExpressionUUID->"38ca1203-b2e6-3044-aa85-97017d76bb30"], +Cell[469467, 11417, 574, 12, 85, "Message",ExpressionUUID->"f4fc5672-9e6d-3748-ab75-56a8f1b8c47a"], +Cell[470044, 11431, 578, 12, 85, "Message",ExpressionUUID->"4aa61d0b-cbfc-004d-8be6-ff84c5742fd0"], +Cell[470625, 11445, 580, 12, 85, "Message",ExpressionUUID->"bcdde3fc-988d-814c-a83c-ce90996db47a"], +Cell[471208, 11459, 458, 10, 26, "Message",ExpressionUUID->"f371b728-3599-4340-a62e-fdf04344dabe"], +Cell[471669, 11471, 173, 3, 32, "Output",ExpressionUUID->"077bbedf-862f-cc4e-b648-9dad11154cf8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[471879, 11479, 2223, 64, 162, "Input",ExpressionUUID->"087e4064-7024-cb41-8231-fe78ad70afda"], +Cell[474105, 11545, 574, 12, 85, "Message",ExpressionUUID->"d528e032-b6a6-a543-9b8d-23228fe63677"], +Cell[474682, 11559, 578, 12, 85, "Message",ExpressionUUID->"e6016862-564d-8a4b-ba73-420e4cefde7e"], +Cell[475263, 11573, 582, 12, 85, "Message",ExpressionUUID->"52da723a-eab2-1040-978c-52ac672efc66"], +Cell[475848, 11587, 455, 10, 26, "Message",ExpressionUUID->"d1a6585d-5cf1-364e-9714-b29a76c14a20"], +Cell[476306, 11599, 170, 3, 32, "Output",ExpressionUUID->"5c7deb9d-a1b0-ad49-bd81-bf4a15d59971"] +}, Open ]], +Cell[CellGroupData[{ +Cell[476513, 11607, 213, 6, 47, "Input",ExpressionUUID->"cd9a77e7-d597-394b-a710-f971fc40d827"], +Cell[476729, 11615, 174, 3, 32, "Output",ExpressionUUID->"5a5422b6-c991-1740-997c-c4f205d8ff82"] +}, Open ]], +Cell[476918, 11621, 247, 5, 42, "Input",ExpressionUUID->"13a90bf7-f7dc-7e48-845e-80048a92ff15"], +Cell[CellGroupData[{ +Cell[477190, 11630, 558, 19, 52, "Input",ExpressionUUID->"ce764b10-5670-7a4e-86ae-3f77893f67b3"], +Cell[477751, 11651, 169, 3, 32, "Output",ExpressionUUID->"e25dfa18-ea25-df40-8f5d-0ff169fa5ae7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[477957, 11659, 170, 5, 56, "Input",ExpressionUUID->"717d3ead-30a8-ec47-9afe-f9884217d594"], +Cell[478130, 11666, 173, 3, 32, "Output",ExpressionUUID->"96aab3a1-95e4-7349-96b6-43128457940c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[478340, 11674, 181, 5, 43, "Input",ExpressionUUID->"c43d0cec-6a64-9643-a5bb-27ab984c3bb2"], +Cell[478524, 11681, 173, 3, 32, "Output",ExpressionUUID->"98fcf8be-ba43-ae41-a6cd-62aef0ebb50c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[478734, 11689, 6055, 185, 498, "Input",ExpressionUUID->"e15da858-b31b-c344-a560-00b30705c2c2"], +Cell[484792, 11876, 174, 3, 32, "Output",ExpressionUUID->"4ae926cc-90a9-5a4e-8bc7-efdead49917a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[485003, 11884, 368, 9, 42, "Input",ExpressionUUID->"f53a321d-2180-024b-b925-7b08c74c1c33"], +Cell[485374, 11895, 172, 3, 32, "Output",ExpressionUUID->"f2f17f7a-79ff-794b-914c-ee087932d3fc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[485583, 11903, 6122, 187, 500, "Input",ExpressionUUID->"6fc2e120-104b-274c-a69b-ff643539124b"], +Cell[491708, 12092, 172, 3, 32, "Output",ExpressionUUID->"a5f469a0-4ca3-e047-b336-e38d98804459"] +}, Open ]], +Cell[CellGroupData[{ +Cell[491917, 12100, 368, 9, 42, "Input",ExpressionUUID->"1ebbe4bd-69b2-ba4a-b880-612b325b749b"], +Cell[492288, 12111, 170, 3, 32, "Output",ExpressionUUID->"dfd045e6-0547-5948-8a30-f6f21ca1851b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[492495, 12119, 2663, 88, 187, "Input",ExpressionUUID->"1efe60b3-9182-2c4c-bd13-9e4d244d7e70"], +Cell[495161, 12209, 173, 3, 32, "Output",ExpressionUUID->"235fc321-e687-b140-a2ed-ea3ad35e3bb8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495371, 12217, 2603, 85, 165, "Input",ExpressionUUID->"66f987a0-c978-3745-b4d7-87ccf5fea6cf"], +Cell[497977, 12304, 172, 3, 32, "Output",ExpressionUUID->"1e144329-9e43-bf4f-9d10-823c44cb18a4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[498186, 12312, 3712, 118, 348, "Input",ExpressionUUID->"696f9a62-0454-0540-abef-a5c123c32f5f"], +Cell[501901, 12432, 172, 3, 32, "Output",ExpressionUUID->"c1758059-ccb3-1040-a83d-304abcce69c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[502110, 12440, 2052, 59, 228, "Input",ExpressionUUID->"efacefcd-90be-574d-92a2-eec47ae06964"], +Cell[504165, 12501, 573, 12, 85, "Message",ExpressionUUID->"7a1e7ba8-a6bf-2f4a-bf31-4a2ed3016295"], +Cell[504741, 12515, 573, 12, 85, "Message",ExpressionUUID->"9c2e507b-ef90-ac45-8745-64f07a4cab70"], +Cell[505317, 12529, 579, 12, 85, "Message",ExpressionUUID->"79a512ec-e31d-8844-bf00-025e94c5ef0a"], +Cell[505899, 12543, 458, 10, 26, "Message",ExpressionUUID->"52a2b255-a51b-1c41-afb5-2c6906cc81b7"], +Cell[506360, 12555, 170, 3, 32, "Output",ExpressionUUID->"8f590d85-cd49-4b4a-b80f-ef4df8529f15"] +}, Open ]], +Cell[CellGroupData[{ +Cell[506567, 12563, 2052, 59, 228, "Input",ExpressionUUID->"113e0d2a-28bc-cb46-97f5-cf1d438fc6f4"], +Cell[508622, 12624, 573, 12, 85, "Message",ExpressionUUID->"9c88a8d0-79f6-c641-aaf7-46f5907e3958"], +Cell[509198, 12638, 575, 12, 85, "Message",ExpressionUUID->"5bdaba15-f4c0-7a4a-905b-a46ed4994f1b"], +Cell[509776, 12652, 579, 12, 85, "Message",ExpressionUUID->"921e00ea-3ed1-4d4f-a4c6-636b2e493926"], +Cell[510358, 12666, 458, 10, 26, "Message",ExpressionUUID->"94646a19-438b-8144-9028-59ac2200b652"], +Cell[510819, 12678, 169, 3, 32, "Output",ExpressionUUID->"85256f71-2c5b-a942-af45-97021273c9d1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[511025, 12686, 2030, 55, 160, "Input",ExpressionUUID->"1fd4421d-3fcd-2d4f-bd05-28d15302273b"], +Cell[513058, 12743, 20296, 381, 237, "Output",ExpressionUUID->"000d3cc5-e7e7-7f42-9c78-51dba6db4bf3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[533391, 13129, 2092, 60, 211, "Input",ExpressionUUID->"0a8036ea-ac95-654b-96a9-78af964912a2"], +Cell[535486, 13191, 500, 11, 60, "Message",ExpressionUUID->"fe707fb7-e6dc-184a-a72e-2be6d5c085cf"], +Cell[535989, 13204, 505, 11, 60, "Message",ExpressionUUID->"a7e21b46-c6c9-1c4d-875a-309332ed6699"], +Cell[536497, 13217, 509, 11, 60, "Message",ExpressionUUID->"50e13f26-4720-f342-8c8a-f93078defe94"], +Cell[537009, 13230, 458, 10, 26, "Message",ExpressionUUID->"68974fe2-070e-264b-8432-db9f06367365"], +Cell[537470, 13242, 39609, 697, 233, "Output",ExpressionUUID->"ba3a3065-c61d-5943-9ee3-286e0d374549"] +}, Open ]], +Cell[CellGroupData[{ +Cell[577116, 13944, 1616, 48, 113, "Input",ExpressionUUID->"2b7767f9-449f-c646-ae0c-43037957b685"], +Cell[578735, 13994, 589, 12, 85, "Message",ExpressionUUID->"b8ddd204-96bd-c44c-a461-fca25ce38083"], +Cell[579327, 14008, 595, 12, 85, "Message",ExpressionUUID->"4d331042-6820-214d-a3a7-faad1e0acd9a"], +Cell[579925, 14022, 596, 12, 85, "Message",ExpressionUUID->"2b7f80c1-4d86-8c41-ad69-d2816819dae8"], +Cell[580524, 14036, 458, 10, 26, "Message",ExpressionUUID->"39d74612-fbdc-ff40-a7d1-fc3dfa4019c6"], +Cell[580985, 14048, 171, 3, 32, "Output",ExpressionUUID->"5f3f7d29-276c-ce44-8205-70c169040bde"] +}, Open ]], +Cell[CellGroupData[{ +Cell[581193, 14056, 2248, 64, 223, "Input",ExpressionUUID->"8304a1af-5a77-304f-9cc7-82724e2b3df7"], +Cell[583444, 14122, 573, 12, 85, "Message",ExpressionUUID->"4fd30c53-5c63-3547-b8da-55deec45ffe9"], +Cell[584020, 14136, 573, 12, 85, "Message",ExpressionUUID->"94d8d63e-6d20-a549-87b6-9bb940b1a184"], +Cell[584596, 14150, 579, 12, 85, "Message",ExpressionUUID->"94cf357c-30eb-ce43-bfa6-645e621ccaab"], +Cell[585178, 14164, 458, 10, 26, "Message",ExpressionUUID->"6c01af9f-f680-4741-8cf0-c5de4c3f5776"], +Cell[585639, 14176, 174, 3, 32, "Output",ExpressionUUID->"c62861b9-4f65-8643-97a2-f7acbf90accd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[585850, 14184, 2221, 64, 162, "Input",ExpressionUUID->"3ed977a3-b24a-0644-a438-d2ebbf0c1dea"], +Cell[588074, 14250, 573, 12, 85, "Message",ExpressionUUID->"2222d8d9-5ab2-9842-a5d2-c83e0de9e07d"], +Cell[588650, 14264, 575, 12, 85, "Message",ExpressionUUID->"f866d339-6477-0c45-9660-98eca56f0e20"], +Cell[589228, 14278, 577, 12, 85, "Message",ExpressionUUID->"ac7b6c07-69b3-8847-9707-6d5a111d812d"], +Cell[589808, 14292, 456, 10, 26, "Message",ExpressionUUID->"11ccb074-812f-ce43-be93-ac274425113d"], +Cell[590267, 14304, 172, 3, 32, "Output",ExpressionUUID->"e407b037-0c43-434a-ae6e-d9d9cac64d0c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[590476, 14312, 2219, 64, 162, "Input",ExpressionUUID->"0a258b12-85fc-2a47-9b1a-8264aa20d65c"], +Cell[592698, 14378, 571, 12, 85, "Message",ExpressionUUID->"51fd61ee-1a5d-9048-806e-e5a8ccbc9ee8"], +Cell[593272, 14392, 573, 12, 85, "Message",ExpressionUUID->"b60547f8-8180-8e42-a50a-2f95a9bbb448"], +Cell[593848, 14406, 579, 12, 85, "Message",ExpressionUUID->"e6102528-f151-984e-9d65-5e941faf5653"], +Cell[594430, 14420, 458, 10, 26, "Message",ExpressionUUID->"5973ee85-238a-1f47-b298-fa05fe19e0b7"], +Cell[594891, 14432, 172, 3, 32, "Output",ExpressionUUID->"1b8a1f16-b0cf-1c4c-bae9-5db73555a85f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[595100, 14440, 211, 6, 47, "Input",ExpressionUUID->"1cb0d12f-90a8-b449-9dd4-8435ee411a7c"], +Cell[595314, 14448, 174, 3, 32, "Output",ExpressionUUID->"afcb3269-c8ab-6a44-9d7c-8a434189e156"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3(ДЛЯ АЭСНИКОВ)/l_АЭСНИКАМ_gid_Qw2.nb b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3(ДЛЯ АЭСНИКОВ)/l_АЭСНИКАМ_gid_Qw2.nb new file mode 100755 index 0000000..fff9172 --- /dev/null +++ b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3(ДЛЯ АЭСНИКОВ)/l_АЭСНИКАМ_gid_Qw2.nb @@ -0,0 +1,12858 @@ +(* 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[ 435137, 12850] +NotebookOptionsPosition[ 396990, 12237] +NotebookOutlinePosition[ 397444, 12255] +CellTagsIndexPosition[ 397401, 12252] +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}, + CellLabel->"In[1]:=",ExpressionUUID->"2e233cab-7c92-e44c-81c0-7ee7662f9cd8"], + +Cell[BoxData["3"], "Output", + CellChangeTimes->{3.991320420900818*^9, 3.992089565723549*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"b2aa98c1-7077-bd4c-9445-ce2b8d70402c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "234"}]], "Input", + CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { + 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, + 3.99179303935478*^9}, 3.9920893973301544`*^9}, + CellLabel->"In[2]:=",ExpressionUUID->"b81100e3-9095-ab44-9fc7-cae681eb3d73"], + +Cell[BoxData["234"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.9920895659023285`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"7f33e3fc-5c64-9e46-82cb-cba6f86593f7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "82"}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.992089401338833*^9, + 3.9920894018500023`*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"2be6bbae-49ec-2b40-a260-6eb4e93a493c"], + +Cell[BoxData["82"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9920895659261894`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"5a317cab-89c5-e542-9b5a-2e699a1a9491"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"b9982e21-01be-0847-b044-cb6251695749"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9, 3.991707828219631*^9, + 3.9917123414174232`*^9, 3.9920895659317207`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"756b04ba-8642-134e-8e51-03d0e095c382"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"3fa0b8bf-29d2-f643-a792-7fdc98b461b1"], + +Cell[BoxData["0.5544871794871795`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9, 3.9917078282275677`*^9, + 3.9917123414253197`*^9, 3.9920895659537334`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"5603c4bc-2674-f74b-9299-94549bb2e338"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"f2feeca8-4136-7d45-9f42-87dad2946937"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9, 3.9917078282485256`*^9, + 3.9917123414324265`*^9, 3.9920895659587307`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"31dce953-2618-a84e-b50f-afc224d8d3cf"] +}, 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->"93d2140c-6643-4541-b82e-6567b747e101"], + +Cell[BoxData["5.0395985234915885`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9, 3.9917078282706223`*^9, + 3.9917123414384117`*^9, 3.992089565981739*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"d60af98b-eef1-b249-93d0-f13a334c4808"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"ad680cc3-abdc-3144-85fa-97ea31098be3"], + +Cell[BoxData["6.190691825034912`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9, 3.9917078282785244`*^9, + 3.991712341447321*^9, 3.9920895660013065`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"f7b3edd6-5121-b54b-b239-15201453e430"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.421480706633547"}]], "Input", + CellChangeTimes->{3.9917123951294365`*^9, 3.99179305435186*^9, + 3.9920894102175694`*^9}, + CellLabel->"In[9]:=",ExpressionUUID->"e5212a89-4ace-7d42-a85c-c3e4af2991b2"], + +Cell[BoxData["0.421480706633547`"], "Output", + CellChangeTimes->{3.991319649862606*^9, 3.991707828301527*^9, + 3.9917123414573193`*^9, 3.991712407248003*^9, 3.9920895660059776`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"25e57655-8843-a74d-a36f-4e32677a0b70"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.744261692152701"}]], "Input", + CellChangeTimes->{3.9917124038115807`*^9, 3.991793052797516*^9, + 3.9920894153197956`*^9}, + CellLabel->"In[10]:=",ExpressionUUID->"4304c266-68e6-8940-a451-4ec16d3970ee"], + +Cell[BoxData["0.744261692152701`"], "Output", + CellChangeTimes->{3.9913196498716316`*^9, 3.991707828308525*^9, + 3.99171234146842*^9, 3.9917124073213234`*^9, 3.9920895660299835`*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"3bae4704-3558-4343-ad4c-92651665dae0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"5270f4f5-3360-8d40-ac2c-a5dcec4af190"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9, 3.9917078283276424`*^9, + 3.991712341478319*^9, 3.9920895660361767`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"1f9d5c91-f320-f148-935e-2d6fc7b022c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"a037e497-5e25-5947-a8bd-d6ea70ec7327"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9, 3.99170782834754*^9, + 3.9917123414863186`*^9, 3.992089566041706*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"04fd6089-8b6f-884d-bf28-b8aa9e93d7e4"] +}, 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->"3c0fc2de-2124-644a-8919-461946e69fd2"], + +Cell[BoxData["1.4675571041126967`"], "Output", + CellChangeTimes->{3.9913197863028755`*^9, 3.991707968406042*^9, + 3.992089566066429*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"5f402a90-2156-694f-81b8-8df76695d409"] +}, 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->"84066648-d2a8-f84c-97a1-cef9a62bc58a"], + +Cell[BoxData["1.9764491154865769`"], "Output", + CellChangeTimes->{3.9913197864610195`*^9, 3.9917079684291363`*^9, + 3.9920895660724354`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"ff245d8f-6764-aa42-9a66-b3b7ad9ec965"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"19f11d2d-a626-6d4c-abfa-55ca6e3c68d0"], + +Cell[BoxData["0.6559383278596986`"], "Output", + CellChangeTimes->{3.991319786533783*^9, 3.991707968457081*^9, + 3.992089566098549*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"6fb4dc22-1810-4947-b435-a4ed07070f79"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"06cbb011-152d-f341-938d-dd8a1793eb5f"], + +Cell[BoxData[ + RowBox[{"-", "0.37229468143309563`"}]], "Output", + CellChangeTimes->{3.991319786540777*^9, 3.9917079684650364`*^9, + 3.992089566104553*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"724de13b-258d-e542-a6ee-a0acae0ebf1a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"e48f27f8-11ca-ee4f-8f8b-698c7bd76269"], + +Cell[BoxData[ + RowBox[{"-", "0.10565103139566565`"}]], "Output", + CellChangeTimes->{3.9913197865777817`*^9, 3.9917079684860363`*^9, + 3.9920895661334343`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"3789986e-d5ba-aa44-9d8a-81acc4e722ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"64154b96-da0f-2842-9920-bf8c60faba68"], + +Cell[BoxData["0.4612539649188019`"], "Output", + CellChangeTimes->{3.9913197866129*^9, 3.9917079684940376`*^9, + 3.992089566154436*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"8aad5c07-2cab-984f-b200-118bbfe0906a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"45ff8136-d025-d644-8fd4-bb41af67b244"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786620775*^9, 3.9917079685140343`*^9, + 3.992089566161434*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"5ab12aaa-4429-e146-8bd5-79691da290cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellChangeTimes->{3.9918430951178913`*^9}, + CellLabel->"In[20]:=",ExpressionUUID->"78f1639b-cd9e-784b-824d-0f4d40d3bc66"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{3.991319786657793*^9, 3.991707968535036*^9, + 3.99208956616745*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"8b3521ff-697c-8941-b3a2-9a874e72d10d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"d3efcbe2-0b02-1648-9d1a-7802fb0723ad"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{3.9913197866657925`*^9, 3.9917079685410557`*^9, + 3.992089566190012*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"a9529b1d-71e4-3140-b6f3-6694d1767ee8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"9af9800a-4228-194d-8335-4b85257be65c"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{3.9913197866996*^9, 3.991707968561041*^9, + 3.992089566195524*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"ee3a658d-2736-4642-aea3-b0b7a9b7a1d1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"03b5b6f1-58f4-2e40-a4f9-9f2242d160ef"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{3.9913197867406044`*^9, 3.9917079685810375`*^9, + 3.992089566225437*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"39d8ebdf-d5ca-a745-adad-fffb9ff89e22"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "32"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.9917930777342243`*^9, + 3.9920894233840046`*^9}, + CellLabel->"In[24]:=",ExpressionUUID->"2d7a927e-7604-5d4c-b46e-47a203c617e2"], + +Cell[BoxData["32"], "Output", + CellChangeTimes->{3.992089566254753*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"4ff1fa45-8456-ff4f-a550-8913f39e860d"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431115646553`*^9, 3.991843111569187*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"4423d29e-d6c7-b744-85d9-ec0149530e88"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"92", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, { + 3.991644237125025*^9, 3.991644237304865*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"b665b22e-cdc1-a64d-945b-0d803d84ffe6"], + +Cell[BoxData["60"], "Output", + CellChangeTimes->{3.9913197867928696`*^9, 3.991707968608036*^9, + 3.99208956628076*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"5f55174d-234e-5d45-a701-516ab639f89d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"d70abab4-4de0-ce45-9b3a-88ff1f3b5e59"], + +Cell[BoxData["152"], "Output", + CellChangeTimes->{3.991319786827894*^9, 3.9917079686284103`*^9, + 3.9920895662857647`*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"670db1e9-cc66-9547-b74a-ded5e2dcb743"] +}, 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->"1d48399a-b3ab-9a4c-8a11-c71c443f0804"], + +Cell[BoxData["0.10940949935815147`"], "Output", + CellChangeTimes->{3.9913197868648605`*^9, 3.9917079686354065`*^9, + 3.9920895662917824`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"1e63a451-83fc-8f49-baab-8c98e8eea328"] +}, 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->"26f5f902-f854-0141-a5e6-091ad7c827ae"], + +Cell[BoxData[ + RowBox[{"-", "2.565044929396662`"}]], "Output", + CellChangeTimes->{3.9913197868718567`*^9, 3.991707968658518*^9, + 3.9920895663198013`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"002c8d56-b7f4-af44-af9d-136ca2606420"] +}, 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.991972093618887*^9, 3.9919720982596817`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"9d82176a-d1cf-f545-9c35-2424f8b302f6"], + +Cell[BoxData["18.13233419952894`"], "Output", + CellChangeTimes->{3.9913197869068584`*^9, 3.991707968678421*^9, + 3.992089566342434*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"728af6d3-fc85-b842-bbaa-f3e35c0d3628"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"f7bb2e7e-2eba-0d4b-a61b-f418b0dc52a0"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786940857*^9, 3.9917079686854057`*^9, + 3.9920895663484135`*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"53c56959-cb4d-1949-9b88-ccadabdbc10a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "0.889"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.991793106556059*^9, 3.9920891167348633`*^9}, + CellLabel->"In[32]:=",ExpressionUUID->"94ba8fd2-3e9c-824d-a0d2-3abd37820861"], + +Cell[BoxData["0.889`"], "Output", + CellChangeTimes->{3.9920895663544292`*^9}, + CellLabel->"Out[32]=",ExpressionUUID->"0f8dfd11-c598-8742-8f99-606527f029d7"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431193859673`*^9, 3.9918431193894367`*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"e2049f37-b459-4e45-a801-f359ae288279"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.634"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917169698218613`*^9, 3.991717907758713*^9, + 3.991793107839529*^9, 3.9920891205275974`*^9}, + CellLabel->"In[34]:=",ExpressionUUID->"a902d75d-03e5-4d4f-86bf-cc8f8bc9ce8f"], + +Cell[BoxData["0.634`"], "Output", + CellChangeTimes->{3.9920895663844376`*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"5be60388-3279-2f48-9b5f-493b65a2cb81"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843120757866*^9, 3.9918431207603054`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"49b14caf-e8af-3342-8931-39bb3376b21b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "1.069"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.991717916696951*^9, + 3.991793108990593*^9, 3.992089124257103*^9}, + CellLabel->"In[36]:=",ExpressionUUID->"82b88a76-865a-f841-b280-c0d14d409b3f"], + +Cell[BoxData["1.069`"], "Output", + CellChangeTimes->{3.9920895664084415`*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"a3b3ebd1-4be0-c547-991e-2cae6974e9be"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431220200443`*^9, 3.9918431220220585`*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"267e29a0-7be6-bb40-a776-926078b08362"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn1", "=", "0.744"}], "\n"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.991716995355715*^9, + 3.9917931103354855`*^9, 3.9920891300041294`*^9}, + CellLabel->"In[38]:=",ExpressionUUID->"5d643833-7672-4048-a801-2cb285d49920"], + +Cell[BoxData["0.744`"], "Output", + CellChangeTimes->{3.9920895664164486`*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"6cd6803b-b5be-cb4f-bf48-3885a5d33280"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431237966404`*^9, 3.9918431238010616`*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"ae6194df-e005-2546-b3e7-da42adf615d4"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"v2", "=", "1.991"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991717006317978*^9, 3.9917931115739956`*^9, 3.9920891335540543`*^9}, + CellLabel->"In[40]:=",ExpressionUUID->"d8d47b41-20da-f649-a915-5cbbd470d14a"], + +Cell[BoxData["1.991`"], "Output", + CellChangeTimes->{3.992089566442686*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"faddb870-109c-244e-8477-8e0f1c38959d"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431249171696`*^9, 3.991843124921198*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"d7404ca1-091c-3046-88aa-60cb6068d4af"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"n2", "=", "0.921"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917170151233826`*^9, 3.9917931128910503`*^9, 3.992089139983057*^9}, + CellLabel->"In[42]:=",ExpressionUUID->"bcd66dfb-ba33-6644-a5e0-7e66b53b86be"], + +Cell[BoxData["0.921`"], "Output", + CellChangeTimes->{3.9920895664756985`*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"370231eb-1d92-5f47-b417-b9bdc66b51dd"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843126102844*^9, 3.991843126104536*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"40c48a8f-ab2e-e848-ada6-29526113f357"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv2", "=", "2.422"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, { + 3.9917170243815575`*^9, 3.991717046491377*^9}, 3.991793114539028*^9, + 3.99208914362006*^9}, + CellLabel->"In[44]:=",ExpressionUUID->"4e2d1ccf-055b-964e-8fee-5d09fdc94814"], + +Cell[BoxData["2.422`"], "Output", + CellChangeTimes->{3.992089566507509*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"4aa6786c-120b-7648-b3ef-752ad9ef3408"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431274420605`*^9, 3.9918431274461517`*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"1d7c176b-c05f-1640-b0a6-866c02a4e52b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn2", "=", "1.520"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.991793116134735*^9, 3.992089147661951*^9}, + CellLabel->"In[46]:=",ExpressionUUID->"37bfaedb-6f14-b346-8dec-ff54c6520bbf"], + +Cell[BoxData["1.52`"], "Output", + CellChangeTimes->{3.9920895665374985`*^9}, + CellLabel->"Out[46]=",ExpressionUUID->"11526560-87f2-4649-a355-8ae7666795e1"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843129570627*^9, 3.991843129574024*^9}}, + CellLabel->"In[47]:=",ExpressionUUID->"93cab046-2b82-7846-a5c9-17df3a3e9549"], + +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[48]:=",ExpressionUUID->"23214ba4-0e71-0444-9dc6-139a9963bb77"], + +Cell[BoxData["3.512937062486845`"], "Output", + CellChangeTimes->{3.991319787430073*^9, 3.991707979950527*^9, + 3.9920895666035786`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"ed0ce889-62ae-8142-b5cf-beb77c3b4d0a"] +}, 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[49]:=",ExpressionUUID->"e5ebb787-e2fa-8448-8064-735514f6a6ae"], + +Cell[BoxData["0.10043705144066703`"], "Output", + CellChangeTimes->{3.991319787574972*^9, 3.9917079908393784`*^9, + 3.9920895666534615`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"db442ddb-b10f-8c42-911f-e98df7929349"] +}, 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[50]:=",ExpressionUUID->"d85afcbd-e9fa-c142-a5a2-4bbce6babf89"], + +Cell[BoxData[ + RowBox[{"-", "89.89927414638353`"}]], "Output", + CellChangeTimes->{3.991319787641424*^9, 3.991707995240637*^9, + 3.9920895666934986`*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"6686e9c6-1280-974b-88b4-a42bc46ff109"] +}, 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[51]:=",ExpressionUUID->"3b00e46b-33a6-3344-9ca9-7e31b81197a9"], + +Cell[BoxData[ + RowBox[{"-", "147.91129574560722`"}]], "Output", + CellChangeTimes->{3.991319787711939*^9, 3.991707999380541*^9, + 3.992089566742504*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"24e64620-d914-7e41-ac8a-0cfbd30c125b"] +}, 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[52]:=",ExpressionUUID->"8385e181-045c-b048-9865-73abf89b5e6d"], + +Cell[BoxData[ + RowBox[{"-", "77.38698403004418`"}]], "Output", + CellChangeTimes->{3.9913197877723045`*^9, 3.991708001954468*^9, + 3.9920895667890034`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"94217516-48a9-224d-82c6-c6ca72f2c995"] +}, 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[53]:=",ExpressionUUID->"611dd28d-4e74-104d-a072-6bf25280f99c"], + +Cell[BoxData[ + RowBox[{"-", "262.6843748771715`"}]], "Output", + CellChangeTimes->{3.991319787833355*^9, 3.9917080040838356`*^9, + 3.9920895668848705`*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"8754bf07-49c0-a149-a212-ba7b552996d5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"d369da66-0560-5748-9455-98d51a2efec3"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210013676`*^9, 3.991708067458639*^9, + 3.9920895669137783`*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"d1be3d28-f0f8-0343-9727-e9bbdd16b730"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"ce227f9d-b6e2-694e-a6d9-bdaaf26ba3d7"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210355663`*^9, 3.9917080674805565`*^9, + 3.992089566936777*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"0919b3ff-4047-2a44-b2bf-787dde1e0be2"] +}, 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[56]:=",ExpressionUUID->"ab0d8ce3-f705-654e-aa1c-85489d0940d8"], + +Cell[BoxData["258.50760713766147`"], "Output", + CellChangeTimes->{3.991320421068556*^9, 3.9917080675026455`*^9, + 3.9920895669487705`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"bb49631f-4f7f-a94a-8d44-e4a5a1ea4ba7"] +}, 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[57]:=",ExpressionUUID->"2cf30241-22e9-a542-8c45-89e15fb9f274"], + +Cell[BoxData[ + RowBox[{"-", "173.4091077962894`"}]], "Output", + CellChangeTimes->{3.991320421098543*^9, 3.991708067510544*^9, + 3.9920895669727745`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"b325b615-c319-d041-a6e1-3ed0fae0a5a3"] +}, 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[58]:=",ExpressionUUID->"3ac109f5-6432-3849-8937-c2bc6ba1d08e"], + +Cell[BoxData["214.93123633488517`"], "Output", + CellChangeTimes->{3.9913204211275444`*^9, 3.9917080675337753`*^9, + 3.9920895669797745`*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"bb65cdfc-a829-aa4a-aadd-ab4b6ca2c340"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"5590eec8-fd89-f546-b25b-74bf3e583038"], + +Cell[BoxData["0.6559383278596986`"], "Output", + CellChangeTimes->{3.9913204211385536`*^9, 3.991708067540825*^9, + 3.992089567007345*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"db5e41ff-e680-c44b-9f9b-a6b04314243c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"a3b4fe3f-c364-0c47-9fbf-1616457135f5"], + +Cell[BoxData[ + RowBox[{"-", "0.37229468143309563`"}]], "Output", + CellChangeTimes->{3.9913204211683464`*^9, 3.991708067561775*^9, + 3.992089567034361*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"c045117c-bdc6-374f-867a-701143844b77"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"22e38d96-9f7a-0440-9855-61247f8616fa"], + +Cell[BoxData[ + RowBox[{"-", "0.10565103139566565`"}]], "Output", + CellChangeTimes->{3.991320421199068*^9, 3.9917080675837746`*^9, + 3.99208956704138*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"d46d8666-c8c1-8e46-bbdc-97fbf882909a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"9ceaa985-6735-8145-af48-3e3f29b40898"], + +Cell[BoxData["0.4612539649188019`"], "Output", + CellChangeTimes->{3.991320421228037*^9, 3.9917080675917854`*^9, + 3.992089567068819*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"4ea4b577-0b43-4948-8527-0b2d12fd658d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"fb6516e4-1906-f040-9e1b-607d662a4cff"], + +Cell[BoxData["1.4675571041126967`"], "Output", + CellChangeTimes->{3.9913204212585373`*^9, 3.991708067612774*^9, + 3.992089567091913*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"6ca0f26f-146f-bd47-b6eb-f324cf5507fd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"1144fbcd-a3f8-e045-a809-dd2d2b07dd97"], + +Cell[BoxData["1.9764491154865769`"], "Output", + CellChangeTimes->{3.9913204212884274`*^9, 3.991708067619776*^9, + 3.9920895670979404`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"bba42ca7-1a5b-5241-9646-c21b12db2ff1"] +}, 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[65]:=",ExpressionUUID->"4bcccc44-92dc-324d-aa75-c7b53dcddc41"], + +Cell[BoxData[ + RowBox[{"-", "7.349370511218955`"}]], "Output", + CellChangeTimes->{3.9913204213185234`*^9, 3.991708067640772*^9, + 3.992089567104452*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"292676a9-477a-8441-8193-567a66ef8cc2"] +}, 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[66]:=",ExpressionUUID->"87100da6-257e-e74e-856b-c11e1c2b514d"], + +Cell[BoxData[ + RowBox[{"-", "23.078177749593607`"}]], "Output", + CellChangeTimes->{3.991320421349531*^9, 3.991708067662775*^9, + 3.9920895671316357`*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"d082669c-a9d6-1040-b98d-a227791d395e"] +}, 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[67]:=",ExpressionUUID->"1b2b5acd-975b-fa41-9226-744c16052df0"], + +Cell[BoxData["251.15823662644252`"], "Output", + CellChangeTimes->{3.9913204213784294`*^9, 3.991708067669775*^9, + 3.9920895671566715`*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"80667faa-cd32-0142-8dfb-5168d381a0f3"] +}, 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[68]:=",ExpressionUUID->"95326f0b-39dc-a944-b2fb-d61a516180c1"], + +Cell[BoxData[ + RowBox[{"-", "173.4091077962894`"}]], "Output", + CellChangeTimes->{3.9913204213904285`*^9, 3.991708067690773*^9, + 3.992089567162657*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"ecda9ae4-5546-9c4a-9131-04727be6d827"] +}, 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[69]:=",ExpressionUUID->"c4c019be-3be9-2a4f-83f7-5aa3b72181fd"], + +Cell[BoxData["191.85305858529156`"], "Output", + CellChangeTimes->{3.991320421419428*^9, 3.991708067697775*^9, + 3.992089567189335*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"f1d90dd0-cdad-6646-9d04-287c15732af4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"e465a147-25ec-704c-b502-d88dc38b82d8"], + +Cell[BoxData["101.27199504223573`"], "Output", + CellChangeTimes->{3.9913204214494324`*^9, 3.9917080677197742`*^9, + 3.992089567218281*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"74308236-a036-0d49-9848-7d802f49ca19"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"b59842e9-6775-5e41-a4f4-b35221863504"], + +Cell[BoxData["597.1387713314264`"], "Output", + CellChangeTimes->{3.991320421481529*^9, 3.991708067726776*^9, + 3.9920895672256775`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"9c4ec448-599c-0148-9229-82f6702511aa"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.130544612621423"}]], "Input", + CellChangeTimes->{3.991847456288412*^9, + 3.992090070963188*^9},ExpressionUUID->"02c50ee4-f89d-e84b-babb-\ +c4951c25ae7a"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991847457119114*^9, + 3.991847457122698*^9}},ExpressionUUID->"a3744ee1-3657-ed40-afd1-\ +ad7c272f2bae"], + +Cell[BoxData[ + RowBox[{"f2", "=", "0.3286783889013"}]], "Input", + CellChangeTimes->{3.9918474584496803`*^9, + 3.992090074508087*^9},ExpressionUUID->"fea443da-bb80-5942-940a-\ +8bd97c50a7b3"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918474591039295`*^9, + 3.9918474591064377`*^9}},ExpressionUUID->"4a8ede4b-c349-9d4b-b8be-\ +a33659ac7670"], + +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->"c66d12ee-7a7e-014a-a59f-f5290f75e383"], + +Cell[BoxData["2.3793916761039806`*^-53"], "Output",ExpressionUUID->"d2a98016-4c83-3943-8fb1-133b89183d61"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + 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"]}]], "*", "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, {3.9915584375659084`*^9, + 3.9915584522049637`*^9}},ExpressionUUID->"f4d1663f-2f7d-a640-9003-\ +22515624ffcb"], + +Cell[BoxData["5.0207251137958644`*^-55"], "Output",ExpressionUUID->"25b3586e-dddb-8148-8247-2a53a0816ad5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + 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"]}]], "*", + 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}, + 3.9915584476498585`*^9},ExpressionUUID->"85637b45-1c33-1f4e-90c3-\ +07deba1b9b3a"], + +Cell[BoxData["1.8713726427856714`*^-54"], "Output",ExpressionUUID->"c7915de2-f678-2240-8907-4f119bfb9ca2"] +}, 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->"8f97c456-7671-\ +cb44-95b8-323a276088fe"], + +Cell[BoxData["25.178011816139865`"], "Output",ExpressionUUID->"c28337c4-580d-004c-bc3c-26abc607c115"] +}, 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->"e2507f75-9610-1346-854c-33db9330e900"], + +Cell[BoxData["37.88040277230648`"], "Output",ExpressionUUID->"eca6de54-61a8-eb4b-9203-3f4b34d3dfbd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input",ExpressionUUID->"148e44ba-fb40-0e42-\ +959d-44858270229f"], + +Cell[BoxData["0.7475613664924765`"], "Output",ExpressionUUID->"0fa81d47-3764-044a-bf93-ee5d1211e37a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input",ExpressionUUID->"0c021142-f067-b94a-\ +bf73-69c3aa281aca"], + +Cell[BoxData["3.219272026986442`"], "Output",ExpressionUUID->"f8ee43a7-a683-0f4c-8e84-b8ddc45a142b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input",ExpressionUUID->"827e3da4-\ +16db-854c-89ad-c94762d57459"], + +Cell[BoxData["121.94732101586592`"], "Output",ExpressionUUID->"3013ddc9-2d77-3941-8182-c74c4e917958"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"9149adf7-\ +16ac-794c-81f7-04a88d48bdc9"], + +Cell[BoxData["18.822108918837237`"], "Output",ExpressionUUID->"69944b55-6116-8240-914e-d57996010b53"] +}, 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->"14dc1278-8ac3-2246-\ +90ef-ba23d2bdffaa"], + +Cell[BoxData["0.04118782656518991`"], "Output",ExpressionUUID->"10e3cc8a-ad3e-4e41-ba26-c1acab07fa26"] +}, 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->"6c632312-\ +3007-0b42-93b3-6c1b961afeb6"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"606843ec-0d7b-f541-9ba3-5b67b435945d"], + +Cell[BoxData["4.366771860185336`"], "Output",ExpressionUUID->"859b213d-5319-f746-82ea-75944d21baab"] +}, 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->"60d1b3b3-12f2-2644-\ +8ed8-788b5437fdfb"], + +Cell[BoxData["0.010567083454288358`"], "Output",ExpressionUUID->"b3e0a85b-a4aa-ef42-9511-fc38e8dcde9a"] +}, 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->"8bbc8f7a-\ +f751-794c-9337-a97f1bdae578"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"390798a4-00bb-054f-8ee2-e80440f44497"], + +Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"ae91cf0f-72ea-5348-859e-dc6121354f77"] +}, 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->"9338c89c-67a3-6e41-be9a-\ +1cf34020b040"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"d0d3835d-fdd0-8c42-8864-83afb328c4cf"] +}, 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->"ae8d22a0-13a2-9d41-b648-\ +0faf6caf2253"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"751398e6-9533-bb47-8958-7a1def21254b"] +}, 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->"7d419d4a-7a13-\ +e94d-beb1-cf3b1cd962e0"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"1aeb1149-722c-dc42-812b-49cc813a09fb"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"5ded2365-6100-\ +7b43-ad8b-c1b09dc62d32"], + +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.991847477953953*^9},ExpressionUUID->"4fe3e3d4-6e7a-b544-8531-\ +81ac5c3a022e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2ce305f1-c638-b640-9e67-d7f6ae2bda61"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"b0af1054-fb47-e740-95af-24928a790ba1"], + +Cell[BoxData["4.366771860185332`"], "Output",ExpressionUUID->"66158712-c3f0-e64f-90ca-4bc93914d109"] +}, 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.991847481589756*^9},ExpressionUUID->"2e2efe37-106e-8a4d-98e1-\ +c6d073c59256"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"ddbb5dc1-4246-b141-8007-17d96bea04a9"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"1cbe63d8-1cf3-164a-9de9-78e410d01cd1"], + +Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"4bc5c73f-64dd-7843-be37-b49a7d1b54f0"] +}, 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.991847486086582*^9},ExpressionUUID->"5ef8c446-ea46-eb49-90ca-\ +5a9d2703a626"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"ce9fdda1-e376-7b48-b042-8c3b4f405fcb"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"66a78cc9-892b-204f-b904-4d54d4d3ebd0"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"77cccd91-6a05-1146-b314-0aa4f406152c"], + +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->"72ad5b3e-6607-7741-ad4a-54927ade8695"], + +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., 206.88000000000005}, \ +{127.62000000000003, 0.}} -> {-19.394, 0.892147, 0.709611, \ +0.0012616}},ExpressionUUID->"f8427134-7951-8548-ae28-485a485148a2"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"5446bdee-36aa-604e-a81f-\ +f7b281aa780e"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991847500514847*^9, {3.991847890840927*^9, + 3.991847891020767*^9}},ExpressionUUID->"b7386bff-07bb-694b-b11c-\ +7d3ff3a35bae"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"1b40a6b1-b8e0-af43-829a-2ca3d7ae070e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2360947f-22ea-fb4f-90b8-fd6f79665669"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"281ea8ed-b5ba-8045-83d3-97b36671a021"], + +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->"a4dfac90-0844-364a-8cdf-0596249bd283"], + +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., 206.88000000000005}, \ +{127.62000000000003, 0.}} -> {-3.23234, -0.00806918, 0.118269, \ +0.000558628}},ExpressionUUID->"42a070d0-1a40-f841-bc5a-496bce3f6168"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"c9fc5a7b-2d38-ba43-857f-\ +9aa96e6b3d16"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918480149621506`*^9},ExpressionUUID->"c6de3c8b-ad61-c04a-b1df-\ +f10741068cd1"], + +Cell[BoxData["9.786582751762749`"], "Output",ExpressionUUID->"38637efc-803d-8640-9e6e-276437831f52"] +}, 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.9918480132941303`*^9},ExpressionUUID->"e95bae90-91f9-c74f-b890-\ +1d51c0908f7e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"c023352e-b521-e84e-9cb3-97c71ad6a25e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"7309d20d-7fd9-4f4d-a7f3-0872cdf1105f"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"43ff04d1-726c-9a4f-a3ef-930184afcb3e"], + +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->"3fd3a11a-bede-e144-8b42-539dbe9249ba"], + +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., 206.88000000000005}, \ +{127.62000000000003, 0.}} -> {-3.23234, -0.00443741, 0.118269, \ +0.000307202}},ExpressionUUID->"960bbf59-2015-8349-bffe-e4d767d8aeeb"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"a75c82b0-dce2-dd4f-b864-\ +2a6b5c402da4"] +}, 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->"b292bf25-9f2c-1b44-bd26-31940b3b367d"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"bd49935b-c0f9-f44f-af7a-e4ad6a7bc2ad"], + +Cell[BoxData["15.784298544249623`"], "Output",ExpressionUUID->"43a947d2-2d74-d447-89ff-92c212e98dc4"] +}, 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.9918475382015915`*^9, + 3.9918475423636837`*^9}},ExpressionUUID->"101ef0da-c6f5-1c49-9804-\ +85fb5ed316b5"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"131678ec-17c0-f049-b9b0-aed329dc5583"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"a6fc1549-2fa3-f649-b6cc-c7168f9393cf"], + +Cell[BoxData["0.009432406283458074`"], "Output",ExpressionUUID->"0f29d6b0-abda-0849-9008-4443dea42d94"] +}, 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.991847547003359*^9, + 3.9918475498243904`*^9}},ExpressionUUID->"087f1adc-ca17-4a4e-8be3-\ +617724431d54"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"ffb3115b-8086-8941-bf0d-81ed4818f26f"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"6eb50ae6-c8bd-6941-a71f-82927d1c1d5c"], + +Cell[BoxData["5.210321944589433`"], "Output",ExpressionUUID->"e9e8685d-f821-c64d-930c-bdbceafb1970"] +}, 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.9918475561652145`*^9, + 3.991847558757557*^9}},ExpressionUUID->"562762dd-8337-c248-84ed-\ +48f09efe77cb"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"88848fa9-89c0-7441-a937-117af52a31e7"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"3e81b6c4-2244-bf42-b8b5-0fa000d4a037"], + +Cell[BoxData["20.308521034293705`"], "Output",ExpressionUUID->"75996429-631f-a540-8db3-d3eecf498491"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991847567835865*^9, + 3.9918475715285187`*^9}},ExpressionUUID->"b22d48b0-99f1-fc43-8d66-\ +dfdcb64caaf4"], + +Cell[BoxData["0.0009169614351270098`"], "Output",ExpressionUUID->"8631572e-009c-e547-9adf-d000b75a3b80"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991847581296728*^9, 3.991847583342928*^9}, + 3.9919236579457912`*^9},ExpressionUUID->"324c5332-372a-9346-847e-\ +b48a2f85529f"], + +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->"3aa52613-e091-\ +4440-b97b-cbff40fea673"], + +Cell[BoxData["5.744985073726742`"], "Output",ExpressionUUID->"0bfccaf4-b419-7b47-a5b9-ad617225ded2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input",ExpressionUUID->"00409e7b-892c-b145-\ +91f2-fd5d9616a547"], + +Cell[BoxData["1.564995573098341`"], "Output",ExpressionUUID->"0910edf9-27aa-f943-bd90-76d5bfb56389"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"eb9f1869-\ +8c47-4c47-ad8f-589aa7e556b3"], + +Cell[BoxData["8.990876207898397`"], "Output",ExpressionUUID->"50a3d579-8928-2343-996d-237ad0eb297d"] +}, 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->"a68db5dc-89e4-f247-\ +a519-53dcbe6905b1"], + +Cell[BoxData["0.06921475857237179`"], "Output",ExpressionUUID->"6b11f8d3-6b54-614d-a4c0-669be8c0ee7f"] +}, 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->"d3d0889a-\ +1b29-9a4d-af3d-093ef0359f4b"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"465a75ef-6b20-9848-9eff-c4e675672ad8"], + +Cell[BoxData["3.36857007702114`"], "Output",ExpressionUUID->"8931c974-5816-9e48-9ac0-0532e1ef18b1"] +}, 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->"9fe1a567-82b8-a345-\ +b4b0-80b2c100f9f3"], + +Cell[BoxData["0.01179213875658184`"], "Output",ExpressionUUID->"13c9a29c-6a6d-ff49-88af-96394780a9e2"] +}, 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->"3372ffe6-\ +5d5a-b247-8795-4c6a022053d0"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"5f5967c2-a14c-de46-b55b-52a0b7afbab3"], + +Cell[BoxData["8.161099076568318`"], "Output",ExpressionUUID->"bd025469-aef5-2448-a097-d2409dcee75d"] +}, 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->"367b34da-973d-2d45-8020-\ +5f24b7ad9501"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"98cac926-ef59-1342-b091-1b565c5978b3"] +}, 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->"112859ae-f114-4041-84e8-\ +1ba64a91ebc1"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"36a7aeca-f2a3-e949-b0ca-f804c0163692"] +}, 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->"695320bc-fa3e-\ +3547-be92-70a745b298b2"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"0abac473-9a99-bd43-b50e-e41bacfd95b6"] +}, 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.9918476180917797`*^9},ExpressionUUID->"b1722e07-c26a-4d47-97af-\ +4f4eb5664e3b"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"7ab7ec2a-fa78-4845-8b94-ac80bbb482ff"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"1e16a028-2ecd-3143-835f-f92cd0016663"], + +Cell[BoxData["3.3685700770211437`"], "Output",ExpressionUUID->"eadd70e7-26a1-4b46-8240-f3dce9859a07"] +}, 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.9918476209740715`*^9},ExpressionUUID->"e785cfe1-8cd5-4a44-8f18-\ +a3bdb03abf99"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"62adfe6c-817a-8644-a989-225720cd7059"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"cbaa115f-bf0d-1e4f-b5c7-1d35bae46521"], + +Cell[BoxData["8.161099076568323`"], "Output",ExpressionUUID->"e9a05a92-f41b-934a-a923-0dffa18fc100"] +}, 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.9918476243275547`*^9},ExpressionUUID->"39feef99-fcf4-8440-bed1-\ +25beef5a0630"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"56c86859-71bc-bf4d-8ea6-a152a4a828d3"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"47fbb3e0-458c-4d48-bc65-cfbd454ebd8b"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"a25aaf8c-9a35-1543-b0b4-c881fe78844a"], + +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->"d9cbee06-5ef4-e14d-b8da-4a8591142866"], + +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., 206.88000000000005}, \ +{127.62000000000003, 0.}} -> {-14.8518, 0.65382, 0.693802, \ +0.00448812}},ExpressionUUID->"2f0c6d62-d79c-fe40-ae18-5a4696a4ccbb"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"1b36cfb9-6a09-4c41-9a4d-\ +068e88bb9e2c"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918476306797314`*^9, {3.9918479463234234`*^9, + 3.9918479465064144`*^9}},ExpressionUUID->"e605439d-19dd-2645-8993-\ +c76100de5ed2"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"c359dea9-9ece-cf49-b7df-ef6b53440b08"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"df87c0d2-a345-c048-8631-aeba4b69c5c2"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"991abcb1-81ce-9b40-bdbb-a15d386b1b78"], + +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->"9aaae4b6-fac0-394d-b0b6-90b588c1351a"], + +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., 206.88000000000005}, \ +{127.62000000000003, 0.}} -> {-1.61617, -0.0100934, 0.0591342, \ +0.000698765}},ExpressionUUID->"9a870480-d3d4-8843-9f49-e5fc868c350b"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"954422c5-4061-764e-bf48-\ +99c016a64c85"] +}, 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->"cec9d659-40a4-9344-876a-cec895b68137"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"c8a425da-4684-ff4d-913f-cc5851265bc3"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"62616100-cef9-c34a-90ec-7024e73a21ef"] +}, 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.991847653697838*^9, + 3.991847658442892*^9}},ExpressionUUID->"dcfb8a1f-77bf-c54a-8dd4-\ +08e72b48e971"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"3bf07443-b608-4243-b971-51f82147ad62"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"e747471f-596a-2242-a829-0d8e6535227a"], + +Cell[BoxData["0.7273353591556563`"], "Output",ExpressionUUID->"89855e7d-6748-6649-99fc-db6c764ac3a4"] +}, 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.991847661764683*^9, + 3.991847664668476*^9}},ExpressionUUID->"b256ae65-c9c8-994b-815e-\ +de484a821375"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"ce81120b-8f1e-dd40-9437-7d92ce72052d"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"8dc8593d-acd4-c74f-aea6-e734c994e283"], + +Cell[BoxData["3.1005213487548544`"], "Output",ExpressionUUID->"6dc23113-bc95-494e-93a5-cd6a253efc0a"] +}, 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.9918476677400265`*^9, + 3.9918476736757298`*^9}},ExpressionUUID->"8fd338d4-a1be-6841-b853-\ +e94a67cb9612"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"6d8f0be9-093a-3b41-85dc-708af7e242e1"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2079ef2d-a37e-f54c-92b8-a37a53f349ad"], + +Cell[BoxData["18.198720438459198`"], "Output",ExpressionUUID->"554a4ded-bde6-2a46-af18-bac29cb48d9d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918476765269012`*^9, + 3.9918476808687553`*^9}},ExpressionUUID->"9231c462-6016-ac42-bd11-\ +cb0c7e92fda2"], + +Cell[BoxData["0.09682709699983048`"], "Output",ExpressionUUID->"682bcc08-531d-5f43-acd9-aafef153314e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918476877717896`*^9, 3.9918476906207848`*^9}, + 3.9919236729399815`*^9},ExpressionUUID->"7b4f4188-e9b4-a249-91fe-\ +f977b92c20b2"], + +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->"e639aabf-9918-\ +b148-b52f-1037c590e22d"], + +Cell[BoxData["7.1357426619652635`"], "Output",ExpressionUUID->"e8a065a4-9b1c-1e46-9347-2538ec1d0d92"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input",ExpressionUUID->"9f21bdcd-6887-bf47-\ +af20-cb6fe2ae22d1"], + +Cell[BoxData["1.4042291233210182`"], "Output",ExpressionUUID->"50446e68-3d8c-8d45-9164-a3f05e953b7b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"807c9644-\ +b813-4545-bd97-a39923ad2c85"], + +Cell[BoxData["10.02021766245587`"], "Output",ExpressionUUID->"c53e1eb9-111c-1c4f-83a4-760a21ed4b09"] +}, 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->"c029bbe7-1e0d-6c47-\ +9817-6aab8cca4349"], + +Cell[BoxData["0.06461147402889976`"], "Output",ExpressionUUID->"23daa51b-d813-3040-bd45-0d347c7122da"] +}, 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->"02414061-\ +9268-3a40-809c-791f7b1bc727"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"c6830ba9-9f74-4c4c-9b97-dded42b0d0cf"], + +Cell[BoxData["3.486503585502317`"], "Output",ExpressionUUID->"7cdd740f-da8e-1847-901d-4e38334c4602"] +}, 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->"0cf6ee00-990f-aa48-\ +80f8-a2822701e626"], + +Cell[BoxData["0.01165072070943232`"], "Output",ExpressionUUID->"bb8b113c-f7cc-4f4e-b883-2112fdc5e77e"] +}, 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->"0e7a310e-\ +8267-084b-8d71-ceb0b816dd18"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"23da22f8-8350-eb48-95d4-6a0bc4f515a3"], + +Cell[BoxData["8.21047995098231`"], "Output",ExpressionUUID->"0dd898e7-1224-8c4b-9b4a-44bf5a45b446"] +}, 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->"16870642-9452-a14f-a1b7-\ +576792706e56"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"09f95964-259e-d442-8b4d-9152a060f55e"] +}, 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->"207b673b-eb18-904e-8dba-\ +9c1c1dd6034c"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"cd37bbf1-e49a-6647-92bf-66da4b35a93e"] +}, 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->"fcc33f59-ac5d-\ +dc44-a6a0-01cb1397795c"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"a8990ed0-d980-fe49-b54f-af15cdaca5a8"] +}, 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.9918477038948536`*^9},ExpressionUUID->"c2bffed8-3648-ee47-bc6e-\ +be191758bd92"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"9353aa27-5dd8-6249-9acf-27d71a8dfe31"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"7a16941e-3686-3c49-a9bf-a8f0d031eb03"], + +Cell[BoxData["3.486503585502321`"], "Output",ExpressionUUID->"abe399c8-88d7-1f45-b974-4e13120badf7"] +}, 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.9918477072468624`*^9},ExpressionUUID->"162c1d78-b731-9743-923d-\ +e14e238c88c0"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"3884f153-af14-6b4b-904c-75f8499cadb1"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"decb9285-274f-5646-8622-e985a1ccc581"], + +Cell[BoxData["8.210479950982325`"], "Output",ExpressionUUID->"26b8d6b5-120d-b94f-8e05-d4bbf530818b"] +}, 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.991847711887806*^9},ExpressionUUID->"e062485f-eb72-5b44-8f24-\ +f29169102337"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"b65eca92-46bf-1d45-b9d4-7717f8601dca"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"43097017-8d6b-ed44-885b-d7dcc2918c11"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2c60786a-2040-fe49-981b-8347dab8e699"], + +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->"b9098ed1-26b0-e14f-83e6-f3cf126236c4"], + +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., 206.88000000000005}, \ +{127.62000000000003, 0.}} -> {-14.8518, 0.65382, 0.693802, \ +0.00448812}},ExpressionUUID->"d219667d-634a-2440-aa6f-10d194554a17"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"33e2e3bc-779e-de42-82b8-\ +f8c295872460"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918477165865707`*^9, {3.991847931067129*^9, + 3.9918479312310715`*^9}},ExpressionUUID->"d8f392d3-6c9e-3f4d-9982-\ +5d019384c724"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"77187be0-9434-894a-bf72-82e8f3e36aa6"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"dae11eea-bf2c-ea41-8cfc-910dacad7d02"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"3a91b588-c1b9-514a-8b35-49bc5a04ab45"], + +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->"90d10efd-2d21-7342-aab1-c6fb4c5c2e48"], + +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., 206.88000000000005}, \ +{127.62000000000003, 0.}} -> {-1.61617, -0.0100934, 0.0591342, \ +0.000698765}},ExpressionUUID->"b4689af7-5bf9-8d45-aba9-b2818f315461"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"ee661a5c-41cb-6a4f-9f2e-\ +fbc4cfed7c63"] +}, 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->"f102c80c-cb19-a64b-98f1-a3bbc351ff15"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"c6924563-b651-4446-bbba-bad311e0a4eb"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"41fd5ce1-50b0-1948-bce9-3bc136a88f8f"] +}, 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.991847745338249*^9, + 3.9918477508965435`*^9}},ExpressionUUID->"ad23855f-c99b-a44c-9a12-\ +deb534d421e5"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2f629e0d-1c2c-9343-bec2-dbe5570a25a9"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"60a5b48a-ad17-af47-8d95-10c332a921c3"], + +Cell[BoxData["0.576602516746911`"], "Output",ExpressionUUID->"780ecdd0-ef7b-2043-b88a-49c80ff7e9ca"] +}, 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.9918477556924458`*^9, + 3.991847758600897*^9}},ExpressionUUID->"04adbbfb-46b7-244b-ac81-\ +2150361c4bc9"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"62097c16-216f-f945-9c34-ad16941760e6"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"79915e14-0d67-a548-bfdc-6ae38b0a0207"], + +Cell[BoxData["3.32141991539404`"], "Output",ExpressionUUID->"ccc68cfe-df29-974a-9d22-9001e3d52ce6"] +}, 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.991847762058655*^9, + 3.9918477649417477`*^9}},ExpressionUUID->"a64b278e-5de9-3f4d-8a34-\ +31c8693c1f49"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"e9cd5f2e-f4c7-8e4d-9d92-9849542cfa72"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"7d087d1e-2fe7-8744-a225-ab71c2e4e591"], + +Cell[BoxData["18.419619005098298`"], "Output",ExpressionUUID->"f6f65fa9-4786-a04a-8ffc-0bc012202e10"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918477668459435`*^9, + 3.99184777089764*^9}},ExpressionUUID->"4be81bbf-81c0-3047-be62-\ +a85883f3e3bb"], + +Cell[BoxData["0.07371813161570438`"], "Output",ExpressionUUID->"c3918187-e898-c949-b542-e24802c9ee53"] +}, 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->"1e6d0353-69f5-de4f-ae7f-57aae5493e4a" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 250, 5, 22, "Input",ExpressionUUID->"2e233cab-7c92-e44c-81c0-7ee7662f9cd8"], +Cell[829, 29, 170, 2, 25, "Output",ExpressionUUID->"b2aa98c1-7077-bd4c-9445-ce2b8d70402c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1036, 36, 326, 5, 22, "Input",ExpressionUUID->"b81100e3-9095-ab44-9fc7-cae681eb3d73"], +Cell[1365, 43, 255, 4, 25, "Output",ExpressionUUID->"7f33e3fc-5c64-9e46-82cb-cba6f86593f7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1657, 52, 252, 5, 22, "Input",ExpressionUUID->"2be6bbae-49ec-2b40-a260-6eb4e93a493c"], +Cell[1912, 59, 252, 4, 25, "Output",ExpressionUUID->"5a317cab-89c5-e542-9b5a-2e699a1a9491"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2201, 68, 175, 3, 22, "Input",ExpressionUUID->"b9982e21-01be-0847-b044-cb6251695749"], +Cell[2379, 73, 225, 3, 25, "Output",ExpressionUUID->"756b04ba-8642-134e-8e51-03d0e095c382"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2641, 81, 257, 7, 35, "Input",ExpressionUUID->"3fa0b8bf-29d2-f643-a792-7fdc98b461b1"], +Cell[2901, 90, 243, 3, 25, "Output",ExpressionUUID->"5603c4bc-2674-f74b-9299-94549bb2e338"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3181, 98, 131, 2, 22, "Input",ExpressionUUID->"f2feeca8-4136-7d45-9f42-87dad2946937"], +Cell[3315, 102, 229, 3, 25, "Output",ExpressionUUID->"31dce953-2618-a84e-b50f-afc224d8d3cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3581, 110, 276, 6, 22, "Input",ExpressionUUID->"93d2140c-6643-4541-b82e-6567b747e101"], +Cell[3860, 118, 241, 3, 25, "Output",ExpressionUUID->"d60af98b-eef1-b249-93d0-f13a334c4808"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4138, 126, 257, 7, 22, "Input",ExpressionUUID->"ad680cc3-abdc-3144-85fa-97ea31098be3"], +Cell[4398, 135, 240, 3, 25, "Output",ExpressionUUID->"f7b3edd6-5121-b54b-b239-15201453e430"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4675, 143, 236, 4, 22, "Input",ExpressionUUID->"e5212a89-4ace-7d42-a85c-c3e4af2991b2"], +Cell[4914, 149, 260, 3, 25, "Output",ExpressionUUID->"25e57655-8843-a74d-a36f-4e32677a0b70"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5211, 157, 238, 4, 22, "Input",ExpressionUUID->"4304c266-68e6-8940-a451-4ec16d3970ee"], +Cell[5452, 163, 262, 3, 25, "Output",ExpressionUUID->"3bae4704-3558-4343-ad4c-92651665dae0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5751, 171, 129, 2, 22, "Input",ExpressionUUID->"5270f4f5-3360-8d40-ac2c-a5dcec4af190"], +Cell[5883, 175, 224, 3, 25, "Output",ExpressionUUID->"1f9d5c91-f320-f148-935e-2d6fc7b022c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6144, 183, 129, 2, 22, "Input",ExpressionUUID->"a037e497-5e25-5947-a8bd-d6ea70ec7327"], +Cell[6276, 187, 221, 3, 25, "Output",ExpressionUUID->"04fd6089-8b6f-884d-bf28-b8aa9e93d7e4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6534, 195, 557, 19, 65, "Input",ExpressionUUID->"3c0fc2de-2124-644a-8919-461946e69fd2"], +Cell[7094, 216, 216, 3, 25, "Output",ExpressionUUID->"5f402a90-2156-694f-81b8-8df76695d409"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7347, 224, 557, 19, 65, "Input",ExpressionUUID->"84066648-d2a8-f84c-97a1-cef9a62bc58a"], +Cell[7907, 245, 220, 3, 25, "Output",ExpressionUUID->"ff245d8f-6764-aa42-9a66-b3b7ad9ec965"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8164, 253, 1492, 48, 65, "Input",ExpressionUUID->"19f11d2d-a626-6d4c-abfa-55ca6e3c68d0"], +Cell[9659, 303, 214, 3, 25, "Output",ExpressionUUID->"6fb4dc22-1810-4947-b435-a4ed07070f79"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9910, 311, 1331, 44, 65, "Input",ExpressionUUID->"06cbb011-152d-f341-938d-dd8a1793eb5f"], +Cell[11244, 357, 234, 4, 25, "Output",ExpressionUUID->"724de13b-258d-e542-a6ee-a0acae0ebf1a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[11515, 366, 1331, 44, 65, "Input",ExpressionUUID->"e48f27f8-11ca-ee4f-8f8b-698c7bd76269"], +Cell[12849, 412, 238, 4, 25, "Output",ExpressionUUID->"3789986e-d5ba-aa44-9d8a-81acc4e722ab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13124, 421, 1492, 48, 65, "Input",ExpressionUUID->"64154b96-da0f-2842-9920-bf8c60faba68"], +Cell[14619, 471, 214, 3, 25, "Output",ExpressionUUID->"8aad5c07-2cab-984f-b200-118bbfe0906a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14870, 479, 131, 2, 22, "Input",ExpressionUUID->"45ff8136-d025-d644-8fd4-bb41af67b244"], +Cell[15004, 483, 200, 3, 25, "Output",ExpressionUUID->"5ab12aaa-4429-e146-8bd5-79691da290cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15241, 491, 177, 3, 22, "Input",ExpressionUUID->"78f1639b-cd9e-784b-824d-0f4d40d3bc66"], +Cell[15421, 496, 199, 3, 25, "Output",ExpressionUUID->"8b3521ff-697c-8941-b3a2-9a874e72d10d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15657, 504, 134, 2, 22, "Input",ExpressionUUID->"d3efcbe2-0b02-1648-9d1a-7802fb0723ad"], +Cell[15794, 508, 204, 3, 25, "Output",ExpressionUUID->"a9529b1d-71e4-3140-b6f3-6694d1767ee8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16035, 516, 219, 4, 22, "Input",ExpressionUUID->"9af9800a-4228-194d-8335-4b85257be65c"], +Cell[16257, 522, 215, 4, 25, "Output",ExpressionUUID->"ee3a658d-2736-4642-aea3-b0b7a9b7a1d1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16509, 531, 134, 2, 22, "Input",ExpressionUUID->"03b5b6f1-58f4-2e40-a4f9-9f2242d160ef"], +Cell[16646, 535, 204, 3, 25, "Output",ExpressionUUID->"39d8ebdf-d5ca-a745-adad-fffb9ff89e22"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16887, 543, 302, 5, 22, "Input",ExpressionUUID->"2d7a927e-7604-5d4c-b46e-47a203c617e2"], +Cell[17192, 550, 150, 2, 25, "Output",ExpressionUUID->"4ff1fa45-8456-ff4f-a550-8913f39e860d"] +}, Open ]], +Cell[17357, 555, 173, 2, 22, "Input",ExpressionUUID->"4423d29e-d6c7-b744-85d9-ec0149530e88"], +Cell[CellGroupData[{ +Cell[17555, 561, 271, 5, 22, "Input",ExpressionUUID->"b665b22e-cdc1-a64d-945b-0d803d84ffe6"], +Cell[17829, 568, 198, 3, 25, "Output",ExpressionUUID->"5f55174d-234e-5d45-a701-516ab639f89d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18064, 576, 219, 4, 22, "Input",ExpressionUUID->"d70abab4-4de0-ce45-9b3a-88ff1f3b5e59"], +Cell[18286, 582, 202, 3, 25, "Output",ExpressionUUID->"670db1e9-cc66-9547-b74a-ded5e2dcb743"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18525, 590, 350, 10, 35, "Input",ExpressionUUID->"1d48399a-b3ab-9a4c-8a11-c71c443f0804"], +Cell[18878, 602, 221, 3, 25, "Output",ExpressionUUID->"1e63a451-83fc-8f49-baab-8c98e8eea328"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19136, 610, 350, 10, 35, "Input",ExpressionUUID->"26f5f902-f854-0141-a5e6-091ad7c827ae"], +Cell[19489, 622, 234, 4, 25, "Output",ExpressionUUID->"002c8d56-b7f4-af44-af9d-136ca2606420"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19760, 631, 992, 26, 92, "Input",ExpressionUUID->"9d82176a-d1cf-f545-9c35-2424f8b302f6"], +Cell[20755, 659, 215, 3, 25, "Output",ExpressionUUID->"728af6d3-fc85-b842-bbaa-f3e35c0d3628"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21007, 667, 199, 3, 22, "Input",ExpressionUUID->"f7bb2e7e-2eba-0d4b-a61b-f418b0dc52a0"], +Cell[21209, 672, 202, 3, 25, "Output",ExpressionUUID->"53c56959-cb4d-1949-9b88-ccadabdbc10a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21448, 680, 275, 4, 22, "Input",ExpressionUUID->"94ba8fd2-3e9c-824d-a0d2-3abd37820861"], +Cell[21726, 686, 156, 2, 25, "Output",ExpressionUUID->"0f8dfd11-c598-8742-8f99-606527f029d7"] +}, Open ]], +Cell[21897, 691, 175, 2, 22, "Input",ExpressionUUID->"e2049f37-b459-4e45-a801-f359ae288279"], +Cell[CellGroupData[{ +Cell[22097, 697, 325, 5, 22, "Input",ExpressionUUID->"a902d75d-03e5-4d4f-86bf-cc8f8bc9ce8f"], +Cell[22425, 704, 156, 2, 25, "Output",ExpressionUUID->"5be60388-3279-2f48-9b5f-493b65a2cb81"] +}, Open ]], +Cell[22596, 709, 173, 2, 22, "Input",ExpressionUUID->"49b14caf-e8af-3342-8931-39bb3376b21b"], +Cell[CellGroupData[{ +Cell[22794, 715, 324, 5, 22, "Input",ExpressionUUID->"82b88a76-865a-f841-b280-c0d14d409b3f"], +Cell[23121, 722, 156, 2, 25, "Output",ExpressionUUID->"a3b3ebd1-4be0-c547-991e-2cae6974e9be"] +}, Open ]], +Cell[23292, 727, 175, 2, 22, "Input",ExpressionUUID->"267e29a0-7be6-bb40-a776-926078b08362"], +Cell[CellGroupData[{ +Cell[23492, 733, 349, 6, 37, "Input",ExpressionUUID->"5d643833-7672-4048-a801-2cb285d49920"], +Cell[23844, 741, 156, 2, 25, "Output",ExpressionUUID->"6cd6803b-b5be-cb4f-bf48-3885a5d33280"] +}, Open ]], +Cell[24015, 746, 175, 2, 22, "Input",ExpressionUUID->"ae6194df-e005-2546-b3e7-da42adf615d4"], +Cell[CellGroupData[{ +Cell[24215, 752, 294, 5, 37, "Input",ExpressionUUID->"d8d47b41-20da-f649-a915-5cbbd470d14a"], +Cell[24512, 759, 154, 2, 25, "Output",ExpressionUUID->"faddb870-109c-244e-8477-8e0f1c38959d"] +}, Open ]], +Cell[24681, 764, 173, 2, 22, "Input",ExpressionUUID->"d7404ca1-091c-3046-88aa-60cb6068d4af"], +Cell[CellGroupData[{ +Cell[24879, 770, 294, 5, 37, "Input",ExpressionUUID->"bcd66dfb-ba33-6644-a5e0-7e66b53b86be"], +Cell[25176, 777, 156, 2, 25, "Output",ExpressionUUID->"370231eb-1d92-5f47-b417-b9bdc66b51dd"] +}, Open ]], +Cell[25347, 782, 171, 2, 22, "Input",ExpressionUUID->"40c48a8f-ab2e-e848-ada6-29526113f357"], +Cell[CellGroupData[{ +Cell[25543, 788, 322, 6, 37, "Input",ExpressionUUID->"4e2d1ccf-055b-964e-8fee-5d09fdc94814"], +Cell[25868, 796, 154, 2, 25, "Output",ExpressionUUID->"4aa6786c-120b-7648-b3ef-752ad9ef3408"] +}, Open ]], +Cell[26037, 801, 175, 2, 22, "Input",ExpressionUUID->"1d7c176b-c05f-1640-b0a6-866c02a4e52b"], +Cell[CellGroupData[{ +Cell[26237, 807, 268, 5, 37, "Input",ExpressionUUID->"37bfaedb-6f14-b346-8dec-ff54c6520bbf"], +Cell[26508, 814, 155, 2, 25, "Output",ExpressionUUID->"11526560-87f2-4649-a355-8ae7666795e1"] +}, Open ]], +Cell[26678, 819, 171, 2, 22, "Input",ExpressionUUID->"93cab046-2b82-7846-a5c9-17df3a3e9549"], +Cell[CellGroupData[{ +Cell[26874, 825, 19809, 485, 1553, "Input",ExpressionUUID->"23214ba4-0e71-0444-9dc6-139a9963bb77"], +Cell[46686, 1312, 215, 3, 25, "Output",ExpressionUUID->"ed0ce889-62ae-8142-b5cf-beb77c3b4d0a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[46938, 1320, 19748, 489, 1579, "Input",ExpressionUUID->"e5ebb787-e2fa-8448-8064-735514f6a6ae"], +Cell[66689, 1811, 219, 3, 25, "Output",ExpressionUUID->"db442ddb-b10f-8c42-911f-e98df7929349"] +}, Open ]], +Cell[CellGroupData[{ +Cell[66945, 1819, 19748, 483, 1572, "Input",ExpressionUUID->"d85afcbd-e9fa-c142-a5a2-4bbce6babf89"], +Cell[86696, 2304, 232, 4, 25, "Output",ExpressionUUID->"6686e9c6-1280-974b-88b4-a42bc46ff109"] +}, Open ]], +Cell[CellGroupData[{ +Cell[86965, 2313, 22534, 553, 1766, "Input",ExpressionUUID->"3b00e46b-33a6-3344-9ca9-7e31b81197a9"], +Cell[109502, 2868, 231, 4, 25, "Output",ExpressionUUID->"24e64620-d914-7e41-ac8a-0cfbd30c125b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[109770, 2877, 22535, 553, 1773, "Input",ExpressionUUID->"8385e181-045c-b048-9865-73abf89b5e6d"], +Cell[132308, 3432, 234, 4, 25, "Output",ExpressionUUID->"94217516-48a9-224d-82c6-c6ca72f2c995"] +}, Open ]], +Cell[CellGroupData[{ +Cell[132579, 3441, 25491, 626, 1984, "Input",ExpressionUUID->"611dd28d-4e74-104d-a072-6bf25280f99c"], +Cell[158073, 4069, 234, 4, 25, "Output",ExpressionUUID->"8754bf07-49c0-a149-a212-ba7b552996d5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[158344, 4078, 130, 2, 22, "Input",ExpressionUUID->"d369da66-0560-5748-9455-98d51a2efec3"], +Cell[158477, 4082, 200, 3, 25, "Output",ExpressionUUID->"d1be3d28-f0f8-0343-9727-e9bbdd16b730"] +}, Open ]], +Cell[CellGroupData[{ +Cell[158714, 4090, 130, 2, 22, "Input",ExpressionUUID->"ce227f9d-b6e2-694e-a6d9-bdaaf26ba3d7"], +Cell[158847, 4094, 200, 3, 25, "Output",ExpressionUUID->"0919b3ff-4047-2a44-b2bf-787dde1e0be2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[159084, 4102, 1144, 39, 46, "Input",ExpressionUUID->"ab0d8ce3-f705-654e-aa1c-85489d0940d8"], +Cell[160231, 4143, 218, 3, 25, "Output",ExpressionUUID->"bb49631f-4f7f-a94a-8d44-e4a5a1ea4ba7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[160486, 4151, 1041, 35, 46, "Input",ExpressionUUID->"2cf30241-22e9-a542-8c45-89e15fb9f274"], +Cell[161530, 4188, 232, 4, 25, "Output",ExpressionUUID->"b325b615-c319-d041-a6e1-3ed0fae0a5a3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[161799, 4197, 1144, 39, 46, "Input",ExpressionUUID->"3ac109f5-6432-3849-8937-c2bc6ba1d08e"], +Cell[162946, 4238, 220, 3, 25, "Output",ExpressionUUID->"bb65cdfc-a829-aa4a-aadd-ab4b6ca2c340"] +}, Open ]], +Cell[CellGroupData[{ +Cell[163203, 4246, 108, 1, 22, "Input",ExpressionUUID->"5590eec8-fd89-f546-b25b-74bf3e583038"], +Cell[163314, 4249, 216, 3, 25, "Output",ExpressionUUID->"db5e41ff-e680-c44b-9f9b-a6b04314243c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[163567, 4257, 108, 1, 22, "Input",ExpressionUUID->"a3b4fe3f-c364-0c47-9fbf-1616457135f5"], +Cell[163678, 4260, 234, 4, 25, "Output",ExpressionUUID->"c045117c-bdc6-374f-867a-701143844b77"] +}, Open ]], +Cell[CellGroupData[{ +Cell[163949, 4269, 108, 1, 22, "Input",ExpressionUUID->"22e38d96-9f7a-0440-9855-61247f8616fa"], +Cell[164060, 4272, 233, 4, 25, "Output",ExpressionUUID->"d46d8666-c8c1-8e46-bbdc-97fbf882909a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[164330, 4281, 108, 1, 22, "Input",ExpressionUUID->"9ceaa985-6735-8145-af48-3e3f29b40898"], +Cell[164441, 4284, 216, 3, 25, "Output",ExpressionUUID->"4ea4b577-0b43-4948-8527-0b2d12fd658d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[164694, 4292, 107, 1, 22, "Input",ExpressionUUID->"fb6516e4-1906-f040-9e1b-607d662a4cff"], +Cell[164804, 4295, 216, 3, 25, "Output",ExpressionUUID->"6ca0f26f-146f-bd47-b6eb-f324cf5507fd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[165057, 4303, 107, 1, 22, "Input",ExpressionUUID->"1144fbcd-a3f8-e045-a809-dd2d2b07dd97"], +Cell[165167, 4306, 218, 3, 25, "Output",ExpressionUUID->"bba42ca7-1a5b-5241-9646-c21b12db2ff1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[165422, 4314, 497, 16, 46, "Input",ExpressionUUID->"4bcccc44-92dc-324d-aa75-c7b53dcddc41"], +Cell[165922, 4332, 232, 4, 25, "Output",ExpressionUUID->"292676a9-477a-8441-8193-567a66ef8cc2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166191, 4341, 497, 16, 46, "Input",ExpressionUUID->"87100da6-257e-e74e-856b-c11e1c2b514d"], +Cell[166691, 4359, 233, 4, 25, "Output",ExpressionUUID->"d082669c-a9d6-1040-b98d-a227791d395e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166961, 4368, 1788, 60, 109, "Input",ExpressionUUID->"1b2b5acd-975b-fa41-9226-744c16052df0"], +Cell[168752, 4430, 218, 3, 25, "Output",ExpressionUUID->"80667faa-cd32-0142-8dfb-5168d381a0f3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169007, 4438, 1101, 36, 64, "Input",ExpressionUUID->"95326f0b-39dc-a944-b2fb-d61a516180c1"], +Cell[170111, 4476, 232, 4, 25, "Output",ExpressionUUID->"ecda9ae4-5546-9c4a-9131-04727be6d827"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170380, 4485, 1818, 61, 90, "Input",ExpressionUUID->"c4c019be-3be9-2a4f-83f7-5aa3b72181fd"], +Cell[172201, 4548, 214, 3, 25, "Output",ExpressionUUID->"f1d90dd0-cdad-6646-9d04-287c15732af4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172452, 4556, 2499, 77, 72, "Input",ExpressionUUID->"e465a147-25ec-704c-b502-d88dc38b82d8"], +Cell[174954, 4635, 218, 3, 25, "Output",ExpressionUUID->"74308236-a036-0d49-9848-7d802f49ca19"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175209, 4643, 2499, 77, 72, "Input",ExpressionUUID->"b59842e9-6775-5e41-a4f4-b35221863504"], +Cell[177711, 4722, 215, 3, 25, "Output",ExpressionUUID->"9c4ec448-599c-0148-9229-82f6702511aa"] +}, Open ]], +Cell[177941, 4728, 190, 4, 22, "Input",ExpressionUUID->"02c50ee4-f89d-e84b-babb-c4951c25ae7a"], +Cell[178134, 4734, 152, 3, 22, "Input",ExpressionUUID->"a3744ee1-3657-ed40-afd1-ad7c272f2bae"], +Cell[178289, 4739, 190, 4, 22, "Input",ExpressionUUID->"fea443da-bb80-5942-940a-8bd97c50a7b3"], +Cell[178482, 4745, 156, 3, 22, "Input",ExpressionUUID->"4a8ede4b-c349-9d4b-b8be-a33659ac7670"], +Cell[CellGroupData[{ +Cell[178663, 4752, 1273, 41, 39, "Input",ExpressionUUID->"c66d12ee-7a7e-014a-a59f-f5290f75e383"], +Cell[179939, 4795, 106, 0, 25, "Output",ExpressionUUID->"d2a98016-4c83-3943-8fb1-133b89183d61"] +}, Open ]], +Cell[CellGroupData[{ +Cell[180082, 4800, 913, 30, 46, "Input",ExpressionUUID->"f4d1663f-2f7d-a640-9003-22515624ffcb"], +Cell[180998, 4832, 106, 0, 25, "Output",ExpressionUUID->"25b3586e-dddb-8148-8247-2a53a0816ad5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181141, 4837, 961, 32, 46, "Input",ExpressionUUID->"85637b45-1c33-1f4e-90c3-07deba1b9b3a"], +Cell[182105, 4871, 106, 0, 25, "Output",ExpressionUUID->"c7915de2-f678-2240-8907-4f119bfb9ca2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[182248, 4876, 532, 18, 42, "Input",ExpressionUUID->"8f97c456-7671-cb44-95b8-323a276088fe"], +Cell[182783, 4896, 101, 0, 25, "Output",ExpressionUUID->"c28337c4-580d-004c-bc3c-26abc607c115"] +}, Open ]], +Cell[CellGroupData[{ +Cell[182921, 4901, 625, 21, 42, "Input",ExpressionUUID->"e2507f75-9610-1346-854c-33db9330e900"], +Cell[183549, 4924, 100, 0, 25, "Output",ExpressionUUID->"eca6de54-61a8-eb4b-9203-3f4b34d3dfbd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183686, 4929, 144, 4, 46, "Input",ExpressionUUID->"148e44ba-fb40-0e42-959d-44858270229f"], +Cell[183833, 4935, 101, 0, 25, "Output",ExpressionUUID->"0fa81d47-3764-044a-bf93-ee5d1211e37a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183971, 4940, 144, 4, 45, "Input",ExpressionUUID->"0c021142-f067-b94a-bf73-69c3aa281aca"], +Cell[184118, 4946, 100, 0, 25, "Output",ExpressionUUID->"f8ee43a7-a683-0f4c-8e84-b8ddc45a142b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184255, 4951, 155, 4, 35, "Input",ExpressionUUID->"827e3da4-16db-854c-89ad-c94762d57459"], +Cell[184413, 4957, 101, 0, 25, "Output",ExpressionUUID->"3013ddc9-2d77-3941-8182-c74c4e917958"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184551, 4962, 155, 4, 35, "Input",ExpressionUUID->"9149adf7-16ac-794c-81f7-04a88d48bdc9"], +Cell[184709, 4968, 101, 0, 25, "Output",ExpressionUUID->"69944b55-6116-8240-914e-d57996010b53"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184847, 4973, 6029, 184, 310, "Input",ExpressionUUID->"14dc1278-8ac3-2246-90ef-ba23d2bdffaa"], +Cell[190879, 5159, 102, 0, 25, "Output",ExpressionUUID->"10e3cc8a-ad3e-4e41-ba26-c1acab07fa26"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191018, 5164, 342, 8, 33, "Input",ExpressionUUID->"6c632312-3007-0b42-93b3-6c1b961afeb6"], +Cell[191363, 5174, 342, 6, 18, "Message",ExpressionUUID->"606843ec-0d7b-f541-9ba3-5b67b435945d"], +Cell[191708, 5182, 100, 0, 25, "Output",ExpressionUUID->"859b213d-5319-f746-82ea-75944d21baab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191845, 5187, 6096, 186, 353, "Input",ExpressionUUID->"60d1b3b3-12f2-2644-8ed8-788b5437fdfb"], +Cell[197944, 5375, 103, 0, 25, "Output",ExpressionUUID->"b3e0a85b-a4aa-ef42-9511-fc38e8dcde9a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198084, 5380, 342, 8, 33, "Input",ExpressionUUID->"8bbc8f7a-f751-794c-9337-a97f1bdae578"], +Cell[198429, 5390, 342, 6, 18, "Message",ExpressionUUID->"390798a4-00bb-054f-8ee2-e80440f44497"], +Cell[198774, 5398, 100, 0, 25, "Output",ExpressionUUID->"ae91cf0f-72ea-5348-859e-dc6121354f77"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198911, 5403, 2637, 87, 135, "Input",ExpressionUUID->"9338c89c-67a3-6e41-be9a-1cf34020b040"], +Cell[201551, 5492, 101, 0, 25, "Output",ExpressionUUID->"d0d3835d-fdd0-8c42-8864-83afb328c4cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201689, 5497, 2577, 84, 135, "Input",ExpressionUUID->"ae8d22a0-13a2-9d41-b648-0faf6caf2253"], +Cell[204269, 5583, 102, 0, 25, "Output",ExpressionUUID->"751398e6-9533-bb47-8958-7a1def21254b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204408, 5588, 3686, 117, 197, "Input",ExpressionUUID->"7d419d4a-7a13-e94d-beb1-cf3b1cd962e0"], +Cell[208097, 5707, 102, 0, 25, "Output",ExpressionUUID->"1aeb1149-722c-dc42-812b-49cc813a09fb"] +}, Open ]], +Cell[208214, 5710, 138, 3, 34, "Input",ExpressionUUID->"5ded2365-6100-7b43-ad8b-c1b09dc62d32"], +Cell[CellGroupData[{ +Cell[208377, 5717, 2052, 59, 92, "Input",ExpressionUUID->"4fe3e3d4-6e7a-b544-8531-81ac5c3a022e"], +Cell[210432, 5778, 342, 6, 18, "Message",ExpressionUUID->"2ce305f1-c638-b640-9e67-d7f6ae2bda61"], +Cell[210777, 5786, 342, 6, 18, "Message",ExpressionUUID->"b0af1054-fb47-e740-95af-24928a790ba1"], +Cell[211122, 5794, 100, 0, 25, "Output",ExpressionUUID->"66158712-c3f0-e64f-90ca-4bc93914d109"] +}, Open ]], +Cell[CellGroupData[{ +Cell[211259, 5799, 2052, 59, 92, "Input",ExpressionUUID->"2e2efe37-106e-8a4d-98e1-c6d073c59256"], +Cell[213314, 5860, 342, 6, 18, "Message",ExpressionUUID->"ddbb5dc1-4246-b141-8007-17d96bea04a9"], +Cell[213659, 5868, 342, 6, 18, "Message",ExpressionUUID->"1cbe63d8-1cf3-164a-9de9-78e410d01cd1"], +Cell[214004, 5876, 100, 0, 25, "Output",ExpressionUUID->"4bc5c73f-64dd-7843-be37-b49a7d1b54f0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[214141, 5881, 1936, 53, 69, "Input",ExpressionUUID->"5ef8c446-ea46-eb49-90ca-5a9d2703a626"], +Cell[216080, 5936, 342, 6, 18, "Message",ExpressionUUID->"ce9fdda1-e376-7b48-b042-8c3b4f405fcb"], +Cell[216425, 5944, 342, 6, 18, "Message",ExpressionUUID->"66a78cc9-892b-204f-b904-4d54d4d3ebd0"], +Cell[216770, 5952, 342, 6, 18, "Message",ExpressionUUID->"77cccd91-6a05-1146-b314-0aa4f406152c"], +Cell[217115, 5960, 407, 7, 18, "Message",ExpressionUUID->"72ad5b3e-6607-7741-ad4a-54927ade8695"], +Cell[217525, 5969, 8042, 364, 148, 4231, 300, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"f8427134-7951-8548-ae28-485a485148a2"], +Cell[225570, 6335, 191, 5, 25, "Output",ExpressionUUID->"5446bdee-36aa-604e-a81f-f7b281aa780e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[225798, 6345, 2142, 61, 92, "Input",ExpressionUUID->"b7386bff-07bb-694b-b11c-7d3ff3a35bae"], +Cell[227943, 6408, 342, 6, 18, "Message",ExpressionUUID->"1b40a6b1-b8e0-af43-829a-2ca3d7ae070e"], +Cell[228288, 6416, 342, 6, 18, "Message",ExpressionUUID->"2360947f-22ea-fb4f-90b8-fd6f79665669"], +Cell[228633, 6424, 342, 6, 18, "Message",ExpressionUUID->"281ea8ed-b5ba-8045-83d3-97b36671a021"], +Cell[228978, 6432, 407, 7, 18, "Message",ExpressionUUID->"a4dfac90-0844-364a-8cdf-0596249bd283"], +Cell[229388, 6441, 8048, 353, 148, 4113, 287, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"42a070d0-1a40-f841-bc5a-496bce3f6168"], +Cell[237439, 6796, 191, 5, 25, "Output",ExpressionUUID->"c9fc5a7b-2d38-ba43-857f-9aa96e6b3d16"] +}, Open ]], +Cell[CellGroupData[{ +Cell[237667, 6806, 217, 7, 39, "Input",ExpressionUUID->"c6de3c8b-ad61-c04a-b1df-f10741068cd1"], +Cell[237887, 6815, 100, 0, 25, "Output",ExpressionUUID->"38637efc-803d-8640-9e6e-276437831f52"] +}, Open ]], +Cell[CellGroupData[{ +Cell[238024, 6820, 1816, 53, 92, "Input",ExpressionUUID->"e95bae90-91f9-c74f-b890-1d51c0908f7e"], +Cell[239843, 6875, 342, 6, 18, "Message",ExpressionUUID->"c023352e-b521-e84e-9cb3-97c71ad6a25e"], +Cell[240188, 6883, 342, 6, 18, "Message",ExpressionUUID->"7309d20d-7fd9-4f4d-a7f3-0872cdf1105f"], +Cell[240533, 6891, 342, 6, 18, "Message",ExpressionUUID->"43ff04d1-726c-9a4f-a3ef-930184afcb3e"], +Cell[240878, 6899, 407, 7, 18, "Message",ExpressionUUID->"3fd3a11a-bede-e144-8b42-539dbe9249ba"], +Cell[241288, 6908, 8211, 365, 148, 4186, 297, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"960bbf59-2015-8349-bffe-e4d767d8aeeb"], +Cell[249502, 7275, 191, 5, 25, "Output",ExpressionUUID->"a75c82b0-dce2-dd4f-b864-2a6b5c402da4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[249730, 7285, 1590, 47, 69, "Input",ExpressionUUID->"b292bf25-9f2c-1b44-bd26-31940b3b367d"], +Cell[251323, 7334, 342, 6, 18, "Message",ExpressionUUID->"bd49935b-c0f9-f44f-af7a-e4ad6a7bc2ad"], +Cell[251668, 7342, 101, 0, 25, "Output",ExpressionUUID->"43a947d2-2d74-d447-89ff-92c212e98dc4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[251806, 7347, 2251, 64, 131, "Input",ExpressionUUID->"101ef0da-c6f5-1c49-9804-85fb5ed316b5"], +Cell[254060, 7413, 342, 6, 18, "Message",ExpressionUUID->"131678ec-17c0-f049-b9b0-aed329dc5583"], +Cell[254405, 7421, 342, 6, 18, "Message",ExpressionUUID->"a6fc1549-2fa3-f649-b6cc-c7168f9393cf"], +Cell[254750, 7429, 103, 0, 25, "Output",ExpressionUUID->"0f29d6b0-abda-0849-9008-4443dea42d94"] +}, Open ]], +Cell[CellGroupData[{ +Cell[254890, 7434, 2221, 64, 131, "Input",ExpressionUUID->"087f1adc-ca17-4a4e-8be3-617724431d54"], +Cell[257114, 7500, 342, 6, 18, "Message",ExpressionUUID->"ffb3115b-8086-8941-bf0d-81ed4818f26f"], +Cell[257459, 7508, 342, 6, 18, "Message",ExpressionUUID->"6eb50ae6-c8bd-6941-a71f-82927d1c1d5c"], +Cell[257804, 7516, 100, 0, 25, "Output",ExpressionUUID->"e9e8685d-f821-c64d-930c-bdbceafb1970"] +}, Open ]], +Cell[CellGroupData[{ +Cell[257941, 7521, 2221, 64, 131, "Input",ExpressionUUID->"562762dd-8337-c248-84ed-48f09efe77cb"], +Cell[260165, 7587, 342, 6, 18, "Message",ExpressionUUID->"88848fa9-89c0-7441-a937-117af52a31e7"], +Cell[260510, 7595, 342, 6, 18, "Message",ExpressionUUID->"3e81b6c4-2244-bf42-b8b5-0fa000d4a037"], +Cell[260855, 7603, 101, 0, 25, "Output",ExpressionUUID->"75996429-631f-a540-8db3-d3eecf498491"] +}, Open ]], +Cell[CellGroupData[{ +Cell[260993, 7608, 213, 6, 38, "Input",ExpressionUUID->"b22d48b0-99f1-fc43-8d66-dfdcb64caaf4"], +Cell[261209, 7616, 104, 0, 25, "Output",ExpressionUUID->"8631572e-009c-e547-9adf-d000b75a3b80"] +}, Open ]], +Cell[261328, 7619, 245, 5, 34, "Input",ExpressionUUID->"324c5332-372a-9346-847e-b48a2f85529f"], +Cell[CellGroupData[{ +Cell[261598, 7628, 532, 18, 42, "Input",ExpressionUUID->"3aa52613-e091-4440-b97b-cbff40fea673"], +Cell[262133, 7648, 100, 0, 25, "Output",ExpressionUUID->"0bfccaf4-b419-7b47-a5b9-ad617225ded2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[262270, 7653, 144, 4, 46, "Input",ExpressionUUID->"00409e7b-892c-b145-91f2-fd5d9616a547"], +Cell[262417, 7659, 100, 0, 25, "Output",ExpressionUUID->"0910edf9-27aa-f943-bd90-76d5bfb56389"] +}, Open ]], +Cell[CellGroupData[{ +Cell[262554, 7664, 155, 4, 35, "Input",ExpressionUUID->"eb9f1869-8c47-4c47-ad8f-589aa7e556b3"], +Cell[262712, 7670, 100, 0, 25, "Output",ExpressionUUID->"50a3d579-8928-2343-996d-237ad0eb297d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[262849, 7675, 6029, 184, 310, "Input",ExpressionUUID->"a68db5dc-89e4-f247-a519-53dcbe6905b1"], +Cell[268881, 7861, 102, 0, 25, "Output",ExpressionUUID->"6b11f8d3-6b54-614d-a4c0-669be8c0ee7f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[269020, 7866, 342, 8, 33, "Input",ExpressionUUID->"d3d0889a-1b29-9a4d-af3d-093ef0359f4b"], +Cell[269365, 7876, 342, 6, 18, "Message",ExpressionUUID->"465a75ef-6b20-9848-9eff-c4e675672ad8"], +Cell[269710, 7884, 99, 0, 25, "Output",ExpressionUUID->"8931c974-5816-9e48-9ac0-0532e1ef18b1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[269846, 7889, 6096, 186, 353, "Input",ExpressionUUID->"9fe1a567-82b8-a345-b4b0-80b2c100f9f3"], +Cell[275945, 8077, 102, 0, 25, "Output",ExpressionUUID->"13c9a29c-6a6d-ff49-88af-96394780a9e2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[276084, 8082, 342, 8, 33, "Input",ExpressionUUID->"3372ffe6-5d5a-b247-8795-4c6a022053d0"], +Cell[276429, 8092, 342, 6, 18, "Message",ExpressionUUID->"5f5967c2-a14c-de46-b55b-52a0b7afbab3"], +Cell[276774, 8100, 100, 0, 25, "Output",ExpressionUUID->"bd025469-aef5-2448-a097-d2409dcee75d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[276911, 8105, 2637, 87, 135, "Input",ExpressionUUID->"367b34da-973d-2d45-8020-5f24b7ad9501"], +Cell[279551, 8194, 101, 0, 25, "Output",ExpressionUUID->"98cac926-ef59-1342-b091-1b565c5978b3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[279689, 8199, 2577, 84, 135, "Input",ExpressionUUID->"112859ae-f114-4041-84e8-1ba64a91ebc1"], +Cell[282269, 8285, 102, 0, 25, "Output",ExpressionUUID->"36a7aeca-f2a3-e949-b0ca-f804c0163692"] +}, Open ]], +Cell[CellGroupData[{ +Cell[282408, 8290, 3686, 117, 197, "Input",ExpressionUUID->"695320bc-fa3e-3547-be92-70a745b298b2"], +Cell[286097, 8409, 102, 0, 25, "Output",ExpressionUUID->"0abac473-9a99-bd43-b50e-e41bacfd95b6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[286236, 8414, 2054, 59, 92, "Input",ExpressionUUID->"b1722e07-c26a-4d47-97af-4f4eb5664e3b"], +Cell[288293, 8475, 342, 6, 18, "Message",ExpressionUUID->"7ab7ec2a-fa78-4845-8b94-ac80bbb482ff"], +Cell[288638, 8483, 342, 6, 18, "Message",ExpressionUUID->"1e16a028-2ecd-3143-835f-f92cd0016663"], +Cell[288983, 8491, 101, 0, 25, "Output",ExpressionUUID->"eadd70e7-26a1-4b46-8240-f3dce9859a07"] +}, Open ]], +Cell[CellGroupData[{ +Cell[289121, 8496, 2054, 59, 92, "Input",ExpressionUUID->"e785cfe1-8cd5-4a44-8f18-a3bdb03abf99"], +Cell[291178, 8557, 342, 6, 18, "Message",ExpressionUUID->"62adfe6c-817a-8644-a989-225720cd7059"], +Cell[291523, 8565, 342, 6, 18, "Message",ExpressionUUID->"cbaa115f-bf0d-1e4f-b5c7-1d35bae46521"], +Cell[291868, 8573, 100, 0, 25, "Output",ExpressionUUID->"e9a05a92-f41b-934a-a923-0dffa18fc100"] +}, Open ]], +Cell[CellGroupData[{ +Cell[292005, 8578, 2030, 55, 54, "Input",ExpressionUUID->"39feef99-fcf4-8440-bed1-25beef5a0630"], +Cell[294038, 8635, 342, 6, 18, "Message",ExpressionUUID->"56c86859-71bc-bf4d-8ea6-a152a4a828d3"], +Cell[294383, 8643, 342, 6, 18, "Message",ExpressionUUID->"47fbb3e0-458c-4d48-bc65-cfbd454ebd8b"], +Cell[294728, 8651, 342, 6, 18, "Message",ExpressionUUID->"a25aaf8c-9a35-1543-b0b4-c881fe78844a"], +Cell[295073, 8659, 407, 7, 18, "Message",ExpressionUUID->"d9cbee06-5ef4-e14d-b8da-4a8591142866"], +Cell[295483, 8668, 9456, 438, 148, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"2f0c6d62-d79c-fe40-ae18-5a4696a4ccbb"], +Cell[304942, 9108, 191, 5, 25, "Output",ExpressionUUID->"1b36cfb9-6a09-4c41-9a4d-068e88bb9e2c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[305170, 9118, 2148, 61, 92, "Input",ExpressionUUID->"e605439d-19dd-2645-8993-c76100de5ed2"], +Cell[307321, 9181, 342, 6, 18, "Message",ExpressionUUID->"c359dea9-9ece-cf49-b7df-ef6b53440b08"], +Cell[307666, 9189, 342, 6, 18, "Message",ExpressionUUID->"df87c0d2-a345-c048-8631-aeba4b69c5c2"], +Cell[308011, 9197, 342, 6, 18, "Message",ExpressionUUID->"991abcb1-81ce-9b40-bdbb-a15d386b1b78"], +Cell[308356, 9205, 407, 7, 18, "Message",ExpressionUUID->"9aaae4b6-fac0-394d-b0b6-90b588c1351a"], +Cell[308766, 9214, 8570, 368, 148, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"9a870480-d3d4-8843-9f49-e5fc868c350b"], +Cell[317339, 9584, 191, 5, 25, "Output",ExpressionUUID->"954422c5-4061-764e-bf48-99c016a64c85"] +}, Open ]], +Cell[CellGroupData[{ +Cell[317567, 9594, 1590, 47, 69, "Input",ExpressionUUID->"cec9d659-40a4-9344-876a-cec895b68137"], +Cell[319160, 9643, 342, 6, 18, "Message",ExpressionUUID->"c8a425da-4684-ff4d-913f-cc5851265bc3"], +Cell[319505, 9651, 101, 0, 25, "Output",ExpressionUUID->"62616100-cef9-c34a-90ec-7024e73a21ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[319643, 9656, 2247, 64, 131, "Input",ExpressionUUID->"dcfb8a1f-77bf-c54a-8dd4-08e72b48e971"], +Cell[321893, 9722, 342, 6, 18, "Message",ExpressionUUID->"3bf07443-b608-4243-b971-51f82147ad62"], +Cell[322238, 9730, 342, 6, 18, "Message",ExpressionUUID->"e747471f-596a-2242-a829-0d8e6535227a"], +Cell[322583, 9738, 101, 0, 25, "Output",ExpressionUUID->"89855e7d-6748-6649-99fc-db6c764ac3a4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[322721, 9743, 2219, 64, 131, "Input",ExpressionUUID->"b256ae65-c9c8-994b-815e-de484a821375"], +Cell[324943, 9809, 342, 6, 18, "Message",ExpressionUUID->"ce81120b-8f1e-dd40-9437-7d92ce72052d"], +Cell[325288, 9817, 342, 6, 18, "Message",ExpressionUUID->"8dc8593d-acd4-c74f-aea6-e734c994e283"], +Cell[325633, 9825, 101, 0, 25, "Output",ExpressionUUID->"6dc23113-bc95-494e-93a5-cd6a253efc0a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[325771, 9830, 2223, 64, 131, "Input",ExpressionUUID->"8fd338d4-a1be-6841-b853-e94a67cb9612"], +Cell[327997, 9896, 342, 6, 18, "Message",ExpressionUUID->"6d8f0be9-093a-3b41-85dc-708af7e242e1"], +Cell[328342, 9904, 342, 6, 18, "Message",ExpressionUUID->"2079ef2d-a37e-f54c-92b8-a37a53f349ad"], +Cell[328687, 9912, 101, 0, 25, "Output",ExpressionUUID->"554a4ded-bde6-2a46-af18-bac29cb48d9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[328825, 9917, 215, 6, 38, "Input",ExpressionUUID->"9231c462-6016-ac42-bd11-cb0c7e92fda2"], +Cell[329043, 9925, 102, 0, 25, "Output",ExpressionUUID->"682bcc08-531d-5f43-acd9-aafef153314e"] +}, Open ]], +Cell[329160, 9928, 249, 5, 34, "Input",ExpressionUUID->"7b4f4188-e9b4-a249-91fe-f977b92c20b2"], +Cell[CellGroupData[{ +Cell[329434, 9937, 532, 18, 42, "Input",ExpressionUUID->"e639aabf-9918-b148-b52f-1037c590e22d"], +Cell[329969, 9957, 101, 0, 25, "Output",ExpressionUUID->"e8a065a4-9b1c-1e46-9347-2538ec1d0d92"] +}, Open ]], +Cell[CellGroupData[{ +Cell[330107, 9962, 144, 4, 46, "Input",ExpressionUUID->"9f21bdcd-6887-bf47-af20-cb6fe2ae22d1"], +Cell[330254, 9968, 101, 0, 25, "Output",ExpressionUUID->"50446e68-3d8c-8d45-9164-a3f05e953b7b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[330392, 9973, 155, 4, 35, "Input",ExpressionUUID->"807c9644-b813-4545-bd97-a39923ad2c85"], +Cell[330550, 9979, 100, 0, 25, "Output",ExpressionUUID->"c53e1eb9-111c-1c4f-83a4-760a21ed4b09"] +}, Open ]], +Cell[CellGroupData[{ +Cell[330687, 9984, 6029, 184, 310, "Input",ExpressionUUID->"c029bbe7-1e0d-6c47-9817-6aab8cca4349"], +Cell[336719, 10170, 102, 0, 25, "Output",ExpressionUUID->"23daa51b-d813-3040-bd45-0d347c7122da"] +}, Open ]], +Cell[CellGroupData[{ +Cell[336858, 10175, 342, 8, 33, "Input",ExpressionUUID->"02414061-9268-3a40-809c-791f7b1bc727"], +Cell[337203, 10185, 342, 6, 18, "Message",ExpressionUUID->"c6830ba9-9f74-4c4c-9b97-dded42b0d0cf"], +Cell[337548, 10193, 100, 0, 25, "Output",ExpressionUUID->"7cdd740f-da8e-1847-901d-4e38334c4602"] +}, Open ]], +Cell[CellGroupData[{ +Cell[337685, 10198, 6096, 186, 353, "Input",ExpressionUUID->"0cf6ee00-990f-aa48-80f8-a2822701e626"], +Cell[343784, 10386, 102, 0, 25, "Output",ExpressionUUID->"bb8b113c-f7cc-4f4e-b883-2112fdc5e77e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[343923, 10391, 342, 8, 33, "Input",ExpressionUUID->"0e7a310e-8267-084b-8d71-ceb0b816dd18"], +Cell[344268, 10401, 342, 6, 18, "Message",ExpressionUUID->"23da22f8-8350-eb48-95d4-6a0bc4f515a3"], +Cell[344613, 10409, 99, 0, 25, "Output",ExpressionUUID->"0dd898e7-1224-8c4b-9b4a-44bf5a45b446"] +}, Open ]], +Cell[CellGroupData[{ +Cell[344749, 10414, 2637, 87, 135, "Input",ExpressionUUID->"16870642-9452-a14f-a1b7-576792706e56"], +Cell[347389, 10503, 101, 0, 25, "Output",ExpressionUUID->"09f95964-259e-d442-8b4d-9152a060f55e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[347527, 10508, 2577, 84, 135, "Input",ExpressionUUID->"207b673b-eb18-904e-8dba-9c1c1dd6034c"], +Cell[350107, 10594, 102, 0, 25, "Output",ExpressionUUID->"cd37bbf1-e49a-6647-92bf-66da4b35a93e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[350246, 10599, 3686, 117, 197, "Input",ExpressionUUID->"fcc33f59-ac5d-dc44-a6a0-01cb1397795c"], +Cell[353935, 10718, 102, 0, 25, "Output",ExpressionUUID->"a8990ed0-d980-fe49-b54f-af15cdaca5a8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[354074, 10723, 2054, 59, 92, "Input",ExpressionUUID->"c2bffed8-3648-ee47-bc6e-be191758bd92"], +Cell[356131, 10784, 342, 6, 18, "Message",ExpressionUUID->"9353aa27-5dd8-6249-9acf-27d71a8dfe31"], +Cell[356476, 10792, 342, 6, 18, "Message",ExpressionUUID->"7a16941e-3686-3c49-a9bf-a8f0d031eb03"], +Cell[356821, 10800, 100, 0, 25, "Output",ExpressionUUID->"abe399c8-88d7-1f45-b974-4e13120badf7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[356958, 10805, 2054, 59, 92, "Input",ExpressionUUID->"162c1d78-b731-9743-923d-e14e238c88c0"], +Cell[359015, 10866, 342, 6, 18, "Message",ExpressionUUID->"3884f153-af14-6b4b-904c-75f8499cadb1"], +Cell[359360, 10874, 342, 6, 18, "Message",ExpressionUUID->"decb9285-274f-5646-8622-e985a1ccc581"], +Cell[359705, 10882, 100, 0, 25, "Output",ExpressionUUID->"26b8d6b5-120d-b94f-8e05-d4bbf530818b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[359842, 10887, 2028, 55, 54, "Input",ExpressionUUID->"e062485f-eb72-5b44-8f24-f29169102337"], +Cell[361873, 10944, 342, 6, 18, "Message",ExpressionUUID->"b65eca92-46bf-1d45-b9d4-7717f8601dca"], +Cell[362218, 10952, 342, 6, 18, "Message",ExpressionUUID->"43097017-8d6b-ed44-885b-d7dcc2918c11"], +Cell[362563, 10960, 342, 6, 18, "Message",ExpressionUUID->"2c60786a-2040-fe49-981b-8347dab8e699"], +Cell[362908, 10968, 407, 7, 18, "Message",ExpressionUUID->"b9098ed1-26b0-e14f-83e6-f3cf126236c4"], +Cell[363318, 10977, 9456, 438, 148, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"d219667d-634a-2440-aa6f-10d194554a17"], +Cell[372777, 11417, 191, 5, 25, "Output",ExpressionUUID->"33e2e3bc-779e-de42-82b8-f8c295872460"] +}, Open ]], +Cell[CellGroupData[{ +Cell[373005, 11427, 2146, 61, 92, "Input",ExpressionUUID->"d8f392d3-6c9e-3f4d-9982-5d019384c724"], +Cell[375154, 11490, 342, 6, 18, "Message",ExpressionUUID->"77187be0-9434-894a-bf72-82e8f3e36aa6"], +Cell[375499, 11498, 342, 6, 18, "Message",ExpressionUUID->"dae11eea-bf2c-ea41-8cfc-910dacad7d02"], +Cell[375844, 11506, 342, 6, 18, "Message",ExpressionUUID->"3a91b588-c1b9-514a-8b35-49bc5a04ab45"], +Cell[376189, 11514, 407, 7, 18, "Message",ExpressionUUID->"90d10efd-2d21-7342-aab1-c6fb4c5c2e48"], +Cell[376599, 11523, 8570, 368, 148, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"b4689af7-5bf9-8d45-aba9-b2818f315461"], +Cell[385172, 11893, 191, 5, 25, "Output",ExpressionUUID->"ee661a5c-41cb-6a4f-9f2e-fbc4cfed7c63"] +}, Open ]], +Cell[CellGroupData[{ +Cell[385400, 11903, 1590, 47, 69, "Input",ExpressionUUID->"f102c80c-cb19-a64b-98f1-a3bbc351ff15"], +Cell[386993, 11952, 342, 6, 18, "Message",ExpressionUUID->"c6924563-b651-4446-bbba-bad311e0a4eb"], +Cell[387338, 11960, 101, 0, 25, "Output",ExpressionUUID->"41fd5ce1-50b0-1948-bce9-3bc136a88f8f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[387476, 11965, 2249, 64, 131, "Input",ExpressionUUID->"ad23855f-c99b-a44c-9a12-deb534d421e5"], +Cell[389728, 12031, 342, 6, 18, "Message",ExpressionUUID->"2f629e0d-1c2c-9343-bec2-dbe5570a25a9"], +Cell[390073, 12039, 342, 6, 18, "Message",ExpressionUUID->"60a5b48a-ad17-af47-8d95-10c332a921c3"], +Cell[390418, 12047, 100, 0, 25, "Output",ExpressionUUID->"780ecdd0-ef7b-2043-b88a-49c80ff7e9ca"] +}, Open ]], +Cell[CellGroupData[{ +Cell[390555, 12052, 2221, 64, 131, "Input",ExpressionUUID->"04adbbfb-46b7-244b-ac81-2150361c4bc9"], +Cell[392779, 12118, 342, 6, 18, "Message",ExpressionUUID->"62097c16-216f-f945-9c34-ad16941760e6"], +Cell[393124, 12126, 342, 6, 18, "Message",ExpressionUUID->"79915e14-0d67-a548-bfdc-6ae38b0a0207"], +Cell[393469, 12134, 99, 0, 25, "Output",ExpressionUUID->"ccc68cfe-df29-974a-9d22-9001e3d52ce6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[393605, 12139, 2221, 64, 131, "Input",ExpressionUUID->"a64b278e-5de9-3f4d-8a34-31c8693c1f49"], +Cell[395829, 12205, 342, 6, 18, "Message",ExpressionUUID->"e9cd5f2e-f4c7-8e4d-9d92-9849542cfa72"], +Cell[396174, 12213, 342, 6, 18, "Message",ExpressionUUID->"7d087d1e-2fe7-8744-a225-ab71c2e4e591"], +Cell[396519, 12221, 101, 0, 25, "Output",ExpressionUUID->"f6f65fa9-4786-a04a-8ffc-0bc012202e10"] +}, Open ]], +Cell[CellGroupData[{ +Cell[396657, 12226, 212, 6, 38, "Input",ExpressionUUID->"4be81bbf-81c0-3047-be62-a85883f3e3bb"], +Cell[396872, 12234, 102, 0, 25, "Output",ExpressionUUID->"c3918187-e898-c949-b542-e24802c9ee53"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3(ДЛЯ АЭСНИКОВ)/l_АЭСНИКАМ_osc_Qw1.nb b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3(ДЛЯ АЭСНИКОВ)/l_АЭСНИКАМ_osc_Qw1.nb new file mode 100755 index 0000000..3c4d704 --- /dev/null +++ b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3(ДЛЯ АЭСНИКОВ)/l_АЭСНИКАМ_osc_Qw1.nb @@ -0,0 +1,12472 @@ +(* 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[ 490289, 12464] +NotebookOptionsPosition[ 451367, 11841] +NotebookOutlinePosition[ 451822, 11859] +CellTagsIndexPosition[ 451779, 11856] +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}, + CellLabel->"In[1]:=",ExpressionUUID->"05f0731c-d41f-bc4e-b3a5-fe37ee9edd84"], + +Cell[BoxData["3"], "Output", + CellChangeTimes->{3.991320420900818*^9, 3.992089565723549*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"b7c24ea0-5123-4e40-8ff1-016a0f3d9f06"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "234"}]], "Input", + CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { + 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, + 3.99179303935478*^9}, 3.9920893973301544`*^9}, + CellLabel->"In[2]:=",ExpressionUUID->"12aae3bb-3c18-fc49-a0b1-b91fdc1bbe34"], + +Cell[BoxData["234"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.9920895659023285`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"3ca6af5d-8845-914d-8fb8-db7201d01e44"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "82"}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.992089401338833*^9, + 3.9920894018500023`*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"93a900cf-d755-b944-921b-a609f0a955d2"], + +Cell[BoxData["82"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9920895659261894`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"9d53aa44-00e6-f740-8e90-e0c70ba80028"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"ad2e1847-77bb-2547-a825-69fabcda8ddf"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9, 3.991707828219631*^9, + 3.9917123414174232`*^9, 3.9920895659317207`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"d8de34e0-1db9-a242-a0de-2c58dc251a21"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"4cc840b0-88d4-374e-a12e-54b8464f3172"], + +Cell[BoxData["0.5544871794871795`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9, 3.9917078282275677`*^9, + 3.9917123414253197`*^9, 3.9920895659537334`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"c661afd3-27f0-f54e-803a-d5eb1e2003b8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"7e4318c8-0990-ce41-a87a-43c5428155f4"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9, 3.9917078282485256`*^9, + 3.9917123414324265`*^9, 3.9920895659587307`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"f1b516aa-487c-9c4d-85d3-cbd5ec786a3e"] +}, 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->"c991c4ea-4c61-ff4f-8dd1-a921864ebed7"], + +Cell[BoxData["5.0395985234915885`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9, 3.9917078282706223`*^9, + 3.9917123414384117`*^9, 3.992089565981739*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"20bb77b0-af5e-4e43-af78-fa02d8d545fe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"c0ebd7fd-cfec-df46-a449-f750a93384d0"], + +Cell[BoxData["6.190691825034912`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9, 3.9917078282785244`*^9, + 3.991712341447321*^9, 3.9920895660013065`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"971b8149-f7bc-164c-9daa-db9821ee36d5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.421480706633547"}]], "Input", + CellChangeTimes->{3.9917123951294365`*^9, 3.99179305435186*^9, + 3.9920894102175694`*^9}, + CellLabel->"In[9]:=",ExpressionUUID->"4df260b6-0d11-1441-9e2e-22f951821193"], + +Cell[BoxData["0.421480706633547`"], "Output", + CellChangeTimes->{3.991319649862606*^9, 3.991707828301527*^9, + 3.9917123414573193`*^9, 3.991712407248003*^9, 3.9920895660059776`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"e6614ab3-dc30-2e4b-a376-e676cdd518fa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.744261692152701"}]], "Input", + CellChangeTimes->{3.9917124038115807`*^9, 3.991793052797516*^9, + 3.9920894153197956`*^9}, + CellLabel->"In[10]:=",ExpressionUUID->"2d27be30-fef3-4449-b748-886004fbb723"], + +Cell[BoxData["0.744261692152701`"], "Output", + CellChangeTimes->{3.9913196498716316`*^9, 3.991707828308525*^9, + 3.99171234146842*^9, 3.9917124073213234`*^9, 3.9920895660299835`*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"c3ad4983-44fd-c54b-b7d6-f5e9f86ac853"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"58f05ac2-9a5b-b743-b028-7f6094b06d91"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9, 3.9917078283276424`*^9, + 3.991712341478319*^9, 3.9920895660361767`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"1de3102b-5caa-2d45-92bc-7025d976f7fa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"b018faa3-5a51-4f49-9b0d-7936087c5070"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9, 3.99170782834754*^9, + 3.9917123414863186`*^9, 3.992089566041706*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"ad699281-df31-fe47-8377-50846b125072"] +}, 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->"44764fb1-9da1-4d4e-a570-89126d15f894"], + +Cell[BoxData["1.4675571041126967`"], "Output", + CellChangeTimes->{3.9913197863028755`*^9, 3.991707968406042*^9, + 3.992089566066429*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"5fc9fcd7-acef-5f4c-9a4c-7e9527635594"] +}, 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->"3281618b-d4a7-c942-98be-b78c0b986321"], + +Cell[BoxData["1.9764491154865769`"], "Output", + CellChangeTimes->{3.9913197864610195`*^9, 3.9917079684291363`*^9, + 3.9920895660724354`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"8352eb2b-34a9-604b-bf1d-801e53025e5c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"fed40061-6b4e-1748-b42c-03e683b18808"], + +Cell[BoxData["0.6559383278596986`"], "Output", + CellChangeTimes->{3.991319786533783*^9, 3.991707968457081*^9, + 3.992089566098549*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"1bc0ac32-dc75-ea44-92b1-11a347a9b137"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"f615b39c-9820-5147-95ce-618baa4e4991"], + +Cell[BoxData[ + RowBox[{"-", "0.37229468143309563`"}]], "Output", + CellChangeTimes->{3.991319786540777*^9, 3.9917079684650364`*^9, + 3.992089566104553*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"22e7f275-ddd8-ca4c-9a99-e178535fae7a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"7b2f9469-8c15-d349-a2c9-fcf9fcf6e8df"], + +Cell[BoxData[ + RowBox[{"-", "0.10565103139566565`"}]], "Output", + CellChangeTimes->{3.9913197865777817`*^9, 3.9917079684860363`*^9, + 3.9920895661334343`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"f6c020ab-16cb-494d-8290-e8f06b194244"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"e673379f-2460-4e49-90d0-35742055e8f6"], + +Cell[BoxData["0.4612539649188019`"], "Output", + CellChangeTimes->{3.9913197866129*^9, 3.9917079684940376`*^9, + 3.992089566154436*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"63290e1d-9ee1-9047-bf87-2f76d7fc852e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"f65ba40e-adc9-4340-8c19-3a5692a89c19"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786620775*^9, 3.9917079685140343`*^9, + 3.992089566161434*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"605e5b4b-62a7-c44f-9592-50bdf74a0203"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellChangeTimes->{3.9918430951178913`*^9}, + CellLabel->"In[20]:=",ExpressionUUID->"da90429f-71c9-fb44-900f-54f9ecb15c0c"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{3.991319786657793*^9, 3.991707968535036*^9, + 3.99208956616745*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"b45bdc19-2ad2-4347-8c1b-115fd5b67132"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"ba9e3c3f-c755-9949-abdf-5c8716be163d"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{3.9913197866657925`*^9, 3.9917079685410557`*^9, + 3.992089566190012*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"91262c89-c41b-db48-b4ba-121fc48ac6a8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"1df1d99a-14d1-664a-9952-fc0ffe17d214"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{3.9913197866996*^9, 3.991707968561041*^9, + 3.992089566195524*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"f81afc19-3d80-f443-8449-6de12236dee6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"934f8f71-5ebb-8a42-88af-b686f4e3e457"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{3.9913197867406044`*^9, 3.9917079685810375`*^9, + 3.992089566225437*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"e6c2995f-35b9-b943-bb8c-234e312f1dd6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "32"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.9917930777342243`*^9, + 3.9920894233840046`*^9}, + CellLabel->"In[24]:=",ExpressionUUID->"6e10280b-ebb3-f646-bb1d-00a00fc0ed1c"], + +Cell[BoxData["32"], "Output", + CellChangeTimes->{3.992089566254753*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"5be75014-41d7-fb46-bcb1-c029cbc1bf36"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431115646553`*^9, 3.991843111569187*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"b89c6b57-db32-1742-8cc6-85b9a16d9dd6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"92", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, { + 3.991644237125025*^9, 3.991644237304865*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"f0485430-2764-5f40-9255-6cf8c0e180ff"], + +Cell[BoxData["60"], "Output", + CellChangeTimes->{3.9913197867928696`*^9, 3.991707968608036*^9, + 3.99208956628076*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"68f1598b-0ea6-2644-8643-6b2c3d3af245"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"a5017589-44b9-f144-b351-bb9b15123fd4"], + +Cell[BoxData["152"], "Output", + CellChangeTimes->{3.991319786827894*^9, 3.9917079686284103`*^9, + 3.9920895662857647`*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"950acf8c-9b1f-c846-8f1a-9d1339e5b417"] +}, 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->"7ab41717-55b0-584a-809f-945d0d693a80"], + +Cell[BoxData["0.10940949935815147`"], "Output", + CellChangeTimes->{3.9913197868648605`*^9, 3.9917079686354065`*^9, + 3.9920895662917824`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"8299aaa1-e8cd-c140-98d6-0bdf70206c0c"] +}, 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->"fde3e1f9-4cc1-8049-ba69-a2294a6452b9"], + +Cell[BoxData[ + RowBox[{"-", "2.565044929396662`"}]], "Output", + CellChangeTimes->{3.9913197868718567`*^9, 3.991707968658518*^9, + 3.9920895663198013`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"ae113a32-15bf-914f-a716-97742bfb8678"] +}, 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.991972093618887*^9, 3.9919720982596817`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"622e209c-a48d-e442-88d4-31c1022a52c8"], + +Cell[BoxData["18.13233419952894`"], "Output", + CellChangeTimes->{3.9913197869068584`*^9, 3.991707968678421*^9, + 3.992089566342434*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"3181800d-348e-a746-801d-a0689d771f39"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"10ba819b-2025-9a47-9ea5-95a5611cda6a"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786940857*^9, 3.9917079686854057`*^9, + 3.9920895663484135`*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"78694d31-812f-e943-8bb5-d58c94143099"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "0.889"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.991793106556059*^9, 3.9920891167348633`*^9}, + CellLabel->"In[32]:=",ExpressionUUID->"8e0c7ad3-3b58-ea40-9983-94e32bbe2818"], + +Cell[BoxData["0.889`"], "Output", + CellChangeTimes->{3.9920895663544292`*^9}, + CellLabel->"Out[32]=",ExpressionUUID->"5c8adf0c-d1fc-b648-be6c-e6ab446c0188"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431193859673`*^9, 3.9918431193894367`*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"eb8d52d1-9df0-c54e-85b2-4b5b928d8058"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.634"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917169698218613`*^9, 3.991717907758713*^9, + 3.991793107839529*^9, 3.9920891205275974`*^9}, + CellLabel->"In[34]:=",ExpressionUUID->"59432052-36a9-0e4a-b136-b5ef6e1cf7dc"], + +Cell[BoxData["0.634`"], "Output", + CellChangeTimes->{3.9920895663844376`*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"21f7a68d-15a4-aa4a-9f2f-ac0c53d958dd"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843120757866*^9, 3.9918431207603054`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"7620191d-049f-d749-807c-ff7994d2bf64"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "1.069"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.991717916696951*^9, + 3.991793108990593*^9, 3.992089124257103*^9}, + CellLabel->"In[36]:=",ExpressionUUID->"2838c52a-e621-824e-8a28-6ddd911b4320"], + +Cell[BoxData["1.069`"], "Output", + CellChangeTimes->{3.9920895664084415`*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"d8b64c74-2c65-9b44-b3cb-0db5863abc3b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431220200443`*^9, 3.9918431220220585`*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"42e257a2-6901-9d4f-a831-1954f32e9186"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn1", "=", "0.744"}], "\n"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.991716995355715*^9, + 3.9917931103354855`*^9, 3.9920891300041294`*^9}, + CellLabel->"In[38]:=",ExpressionUUID->"26236e3a-fdac-eb4e-a22f-56d02cebcf41"], + +Cell[BoxData["0.744`"], "Output", + CellChangeTimes->{3.9920895664164486`*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"a73ed249-f335-624b-9f35-094bbfc621a1"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431237966404`*^9, 3.9918431238010616`*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"dd3588b2-9ab9-a34a-afe1-cdd040915619"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"v2", "=", "1.991"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991717006317978*^9, 3.9917931115739956`*^9, 3.9920891335540543`*^9}, + CellLabel->"In[40]:=",ExpressionUUID->"02fa1476-84ef-ac4d-a088-22546d6249ff"], + +Cell[BoxData["1.991`"], "Output", + CellChangeTimes->{3.992089566442686*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"9f2bcbd2-99a2-9d4b-9c70-7f9d0efccae7"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431249171696`*^9, 3.991843124921198*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"5841a374-f07b-3948-b1fb-c9f1f2e2508c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"n2", "=", "0.921"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917170151233826`*^9, 3.9917931128910503`*^9, 3.992089139983057*^9}, + CellLabel->"In[42]:=",ExpressionUUID->"2fad32fe-2323-a247-8df8-53787ce8fe84"], + +Cell[BoxData["0.921`"], "Output", + CellChangeTimes->{3.9920895664756985`*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"b459c7f8-ac9d-4d4f-9aa5-aba72af043a2"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843126102844*^9, 3.991843126104536*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"1b7179f5-adc5-4a42-8f8b-65c9268fc5eb"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv2", "=", "2.422"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, { + 3.9917170243815575`*^9, 3.991717046491377*^9}, 3.991793114539028*^9, + 3.99208914362006*^9}, + CellLabel->"In[44]:=",ExpressionUUID->"00d82cf5-fe39-a24b-bb7b-1d0e115472c2"], + +Cell[BoxData["2.422`"], "Output", + CellChangeTimes->{3.992089566507509*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"20f7c7b1-c41b-5641-86d9-3d9ba4989b3c"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431274420605`*^9, 3.9918431274461517`*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"dfb148c5-f80e-3f46-b88b-570a723a95bc"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn2", "=", "1.520"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.991793116134735*^9, 3.992089147661951*^9}, + CellLabel->"In[46]:=",ExpressionUUID->"db5cb55e-0710-c147-81f4-1d5b600a6284"], + +Cell[BoxData["1.52`"], "Output", + CellChangeTimes->{3.9920895665374985`*^9}, + CellLabel->"Out[46]=",ExpressionUUID->"3ae75741-70ab-3c4f-b4d4-bc563b8b2677"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843129570627*^9, 3.991843129574024*^9}}, + CellLabel->"In[47]:=",ExpressionUUID->"bc012921-2f5f-014d-9378-a2fad1ed7321"], + +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[48]:=",ExpressionUUID->"c0e79410-fc92-1e45-af3b-c110ed8e3abb"], + +Cell[BoxData["3.512937062486845`"], "Output", + CellChangeTimes->{3.991319787430073*^9, 3.991707979950527*^9, + 3.9920895666035786`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"70212435-2665-e444-b864-ee00e0999634"] +}, 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[49]:=",ExpressionUUID->"5dd2eacd-c52a-fd43-adfd-9865b6491968"], + +Cell[BoxData["0.10043705144066703`"], "Output", + CellChangeTimes->{3.991319787574972*^9, 3.9917079908393784`*^9, + 3.9920895666534615`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"f3c88506-920f-5649-8cef-536c89929669"] +}, 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[50]:=",ExpressionUUID->"4ed88227-1e87-3c47-8347-5fd8655168bd"], + +Cell[BoxData[ + RowBox[{"-", "89.89927414638353`"}]], "Output", + CellChangeTimes->{3.991319787641424*^9, 3.991707995240637*^9, + 3.9920895666934986`*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"5b2dbcf4-5bbd-e94c-857e-286b041e0d5d"] +}, 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[51]:=",ExpressionUUID->"69c9ca34-ec1f-344d-935e-d99be87c6a30"], + +Cell[BoxData[ + RowBox[{"-", "147.91129574560722`"}]], "Output", + CellChangeTimes->{3.991319787711939*^9, 3.991707999380541*^9, + 3.992089566742504*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"1a91e2eb-8f18-4c46-be3d-5f0163def9a2"] +}, 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[52]:=",ExpressionUUID->"8f86ffe3-4c00-0445-be01-9f9c3bf740a4"], + +Cell[BoxData[ + RowBox[{"-", "77.38698403004418`"}]], "Output", + CellChangeTimes->{3.9913197877723045`*^9, 3.991708001954468*^9, + 3.9920895667890034`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"c9a32e59-2654-6d46-9a98-780d495ab2bb"] +}, 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[53]:=",ExpressionUUID->"5220f60f-abac-c041-83b6-4ff9b963c510"], + +Cell[BoxData[ + RowBox[{"-", "262.6843748771715`"}]], "Output", + CellChangeTimes->{3.991319787833355*^9, 3.9917080040838356`*^9, + 3.9920895668848705`*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"009c1f24-f9f4-dc48-9db4-2fdf2420d110"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"50a59971-b8b3-904a-9a20-2d0c4a200469"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210013676`*^9, 3.991708067458639*^9, + 3.9920895669137783`*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"be414436-ea10-2549-84c0-01cd6a4fb643"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"99b95585-fb4d-4c4e-a0a1-a7cadcf4974c"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210355663`*^9, 3.9917080674805565`*^9, + 3.992089566936777*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"2c75be98-2c4b-c74f-a840-157aa124b0ca"] +}, 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[56]:=",ExpressionUUID->"15d5ff38-e0ad-194f-988e-5bba229258a0"], + +Cell[BoxData["258.50760713766147`"], "Output", + CellChangeTimes->{3.991320421068556*^9, 3.9917080675026455`*^9, + 3.9920895669487705`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"956f21a1-a5f0-dd48-a0db-0649818cf589"] +}, 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[57]:=",ExpressionUUID->"f50ed71d-f500-b142-b06c-d815a3ba2272"], + +Cell[BoxData[ + RowBox[{"-", "173.4091077962894`"}]], "Output", + CellChangeTimes->{3.991320421098543*^9, 3.991708067510544*^9, + 3.9920895669727745`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"5f60a138-1228-0647-828b-f69b6b82a394"] +}, 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[58]:=",ExpressionUUID->"1492aaaf-0df6-6745-bf76-b9050e5655e5"], + +Cell[BoxData["214.93123633488517`"], "Output", + CellChangeTimes->{3.9913204211275444`*^9, 3.9917080675337753`*^9, + 3.9920895669797745`*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"72535c13-e904-2d4a-8d06-4f913f48d9aa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"226872db-ad1d-a848-a1b9-669b9495ae40"], + +Cell[BoxData["0.6559383278596986`"], "Output", + CellChangeTimes->{3.9913204211385536`*^9, 3.991708067540825*^9, + 3.992089567007345*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"ba37d33c-7bfb-514d-8059-e7258cbe73a1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"3724e999-16ab-c946-a14b-a24ab296bb76"], + +Cell[BoxData[ + RowBox[{"-", "0.37229468143309563`"}]], "Output", + CellChangeTimes->{3.9913204211683464`*^9, 3.991708067561775*^9, + 3.992089567034361*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"de2db7cc-157c-0241-a2d0-3877f60f2f74"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"7429d55c-fb1b-6c4a-a07c-c882ac4f265b"], + +Cell[BoxData[ + RowBox[{"-", "0.10565103139566565`"}]], "Output", + CellChangeTimes->{3.991320421199068*^9, 3.9917080675837746`*^9, + 3.99208956704138*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"e05fb998-0c3c-914f-aab3-9061a5be8812"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"53189e64-dda1-f24f-bb2a-e33cc334a386"], + +Cell[BoxData["0.4612539649188019`"], "Output", + CellChangeTimes->{3.991320421228037*^9, 3.9917080675917854`*^9, + 3.992089567068819*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"71a8ca09-ea43-3942-b848-248927804279"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"2dcc97af-d52c-a140-9d24-7e2362d14431"], + +Cell[BoxData["1.4675571041126967`"], "Output", + CellChangeTimes->{3.9913204212585373`*^9, 3.991708067612774*^9, + 3.992089567091913*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"2671b6f3-ef81-624a-9348-b2e5142c2434"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"047bb9cd-1320-254a-81b6-dbbd5bc6927e"], + +Cell[BoxData["1.9764491154865769`"], "Output", + CellChangeTimes->{3.9913204212884274`*^9, 3.991708067619776*^9, + 3.9920895670979404`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"b6c62e5d-ea1a-8443-8ada-79b01a88938a"] +}, 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[65]:=",ExpressionUUID->"5f91a530-4680-9547-ba69-eda72b5cd542"], + +Cell[BoxData[ + RowBox[{"-", "7.349370511218955`"}]], "Output", + CellChangeTimes->{3.9913204213185234`*^9, 3.991708067640772*^9, + 3.992089567104452*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"e4a29d4f-42ef-c44c-9e1b-e27ba179aa39"] +}, 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[66]:=",ExpressionUUID->"79bd53a9-815b-6b44-a1c8-9e184a9e2d7f"], + +Cell[BoxData[ + RowBox[{"-", "23.078177749593607`"}]], "Output", + CellChangeTimes->{3.991320421349531*^9, 3.991708067662775*^9, + 3.9920895671316357`*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"0afdc4eb-983d-fa48-b9fd-53251acb64c6"] +}, 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[67]:=",ExpressionUUID->"4d60ea42-135b-0945-9bc8-ff7080f68cbd"], + +Cell[BoxData["251.15823662644252`"], "Output", + CellChangeTimes->{3.9913204213784294`*^9, 3.991708067669775*^9, + 3.9920895671566715`*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"5192d80c-7cf4-6c48-8ca9-65876353ddc2"] +}, 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[68]:=",ExpressionUUID->"86e3af8c-1e9e-fe48-be10-5811d3ed2f2c"], + +Cell[BoxData[ + RowBox[{"-", "173.4091077962894`"}]], "Output", + CellChangeTimes->{3.9913204213904285`*^9, 3.991708067690773*^9, + 3.992089567162657*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"a8c04634-6d98-fa48-b315-976fe5dc0f4d"] +}, 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[69]:=",ExpressionUUID->"5e5f8981-ef44-174f-9ab1-8170c09512bd"], + +Cell[BoxData["191.85305858529156`"], "Output", + CellChangeTimes->{3.991320421419428*^9, 3.991708067697775*^9, + 3.992089567189335*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"e689f0c7-d47c-4d46-8bfc-d8d217140e2b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"92a8600d-0ef6-b048-81ca-4cef74274975"], + +Cell[BoxData["101.27199504223573`"], "Output", + CellChangeTimes->{3.9913204214494324`*^9, 3.9917080677197742`*^9, + 3.992089567218281*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"9827733d-e648-f943-b863-43b20946d9d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"7e943660-5e34-9e41-8f70-f1ec78ba3955"], + +Cell[BoxData["597.1387713314264`"], "Output", + CellChangeTimes->{3.991320421481529*^9, 3.991708067726776*^9, + 3.9920895672256775`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"572140c9-bdb2-e94b-9fc1-98462344681b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.530118936205183"}]], "Input", + CellChangeTimes->{3.991708306458519*^9, 3.991793259431082*^9, + 3.9920894486447525`*^9}, + CellLabel->"In[72]:=",ExpressionUUID->"3ae683e0-3adf-504a-90dd-615dd0a61fd8"], + +Cell[BoxData["0.530118936205183`"], "Output", + CellChangeTimes->{3.992089567253582*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"7c2572e2-e1ab-8342-8714-8e8cbecd10bf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.828442902473811"}]], "Input", + CellChangeTimes->{{3.991708314438408*^9, 3.9917083191838818`*^9}, + 3.9917932613989296`*^9, 3.992089454931593*^9}, + CellLabel->"In[73]:=",ExpressionUUID->"4fc0783d-23dd-314f-a326-64b7548d9620"], + +Cell[BoxData["0.828442902473811`"], "Output", + CellChangeTimes->{3.9920895672594795`*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"d384dee7-78c2-9041-84e8-ed683d4d769b"] +}, Open ]], + +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[74]:=",ExpressionUUID->"dbbed097-5dfd-0340-bc2d-0bce9785fa70"], + +Cell[BoxData["1.9087295848298752`*^-53"], "Output", + CellChangeTimes->{3.99132042156752*^9, 3.991708376806082*^9, + 3.99208956728549*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"8c38b579-256b-684a-b609-f88da9235dae"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + 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"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellLabel->"In[75]:=",ExpressionUUID->"b04428b7-7b5e-9b48-87ae-3e90ee72682c"], + +Cell[BoxData["8.608269004718265`*^-55"], "Output", + CellChangeTimes->{3.99132042159643*^9, 3.9917083768301735`*^9, + 3.9920895672916775`*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"e8b9b65d-c28b-9b41-bf5a-9f5cd93c2a9b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + 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"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellLabel->"In[76]:=",ExpressionUUID->"46474706-75cc-0e49-8a10-fd571fd984c5"], + +Cell[BoxData["4.3874491680240515`*^-54"], "Output", + CellChangeTimes->{3.9913204216085243`*^9, 3.99170837683708*^9, + 3.992089567315666*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"5b0f2f2e-cf6b-a244-a81a-d10dc7619a05"] +}, 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[77]:=",ExpressionUUID->"8968449c-8b0e-4c43-b89b-9661a6b4b7b4"], + +Cell[BoxData["51.77224572169264`"], "Output", + CellChangeTimes->{3.991320421637537*^9, 3.991708376860197*^9, + 3.9920895673236694`*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"ee99b645-0738-6849-b2b8-b9908b150c95"] +}, 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[78]:=",ExpressionUUID->"4070e408-f242-2749-a9a3-2554c0750a47"], + +Cell[BoxData["59.739406544235905`"], "Output", + CellChangeTimes->{3.9913204216685333`*^9, 3.9917083768681793`*^9, + 3.992089567348669*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"e712cb91-7ce8-f94e-b8c4-545554484ba4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[79]:=",ExpressionUUID->"ea836fa5-3993-364c-859c-f1e1426f90c2"], + +Cell[BoxData["1.3986085566664672`"], "Output", + CellChangeTimes->{3.991320421698473*^9, 3.9917083768895397`*^9, + 3.9920895673546696`*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"2c4fe25e-8710-4440-88e3-a33f2913a8ee"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[80]:=",ExpressionUUID->"c1eb9e5a-df42-e143-87eb-a7c14cd6489c"], + +Cell[BoxData["3.1616018942215516`"], "Output", + CellChangeTimes->{3.991320421726494*^9, 3.9917083769120636`*^9, + 3.9920895673776703`*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"fc769fc2-5bd0-b646-91a6-ad48d846ec16"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[81]:=",ExpressionUUID->"fc11a4dc-800e-1040-b016-a172a6dca5d1"], + +Cell[BoxData["188.8722208899276`"], "Output", + CellChangeTimes->{3.9913204217554817`*^9, 3.9917083769190636`*^9, + 3.992089567384695*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"cf9420f1-557a-3b44-94ad-f81c81868148"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"f158f63a-620a-8b45-93fe-de96c59131c3"], + +Cell[BoxData["72.40910586419822`"], "Output", + CellChangeTimes->{3.9913204217855225`*^9, 3.9917083769420624`*^9, + 3.9920895674097176`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"1879be68-bf53-ad4a-b1f9-811fee749ecc"] +}, 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[83]:=",ExpressionUUID->"290356b5-801a-1742-8269-ff0ab0e7a72f"], + +Cell[BoxData["0.012904839793245939`"], "Output", + CellChangeTimes->{3.9913204218154297`*^9, 3.991708376966078*^9, + 3.9920895674387226`*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"8dd792a0-7a05-3d46-b7ea-a2bcf9e9b8f1"] +}, 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[84]:=",ExpressionUUID->"637830a9-4b17-0d47-8e69-3e6d73475803"], + +Cell[BoxData["7.801329691745262`"], "Output", + CellChangeTimes->{3.991320422776104*^9, 3.9917083773418655`*^9, + 3.9920895675225163`*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"e4acfce8-b438-9149-9532-73d25efa4f9b"] +}, 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[85]:=",ExpressionUUID->"245e55e0-c025-d748-aa5b-d3f5a26f897a"], + +Cell[BoxData["0.004892259018107654`"], "Output", + CellChangeTimes->{3.9913204229248886`*^9, 3.9917083773678513`*^9, + 3.9920895675444946`*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"3013b5cd-fd3e-9a44-87f0-84a67a2007ec"] +}, 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[86]:=",ExpressionUUID->"87d3f053-a210-4945-9497-51f3b35fe58a"], + +Cell[BoxData["12.67039690245196`"], "Output", + CellChangeTimes->{3.9913204230053368`*^9, 3.9917083774558525`*^9, + 3.9920895676255684`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"0f417f0c-11ad-a048-b712-718ae1c258a7"] +}, 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[87]:=",ExpressionUUID->"407f3978-d419-be4a-9b05-517d07c044f1"], + +Cell[BoxData["0.8359791121432882`"], "Output", + CellChangeTimes->{3.9913204230393543`*^9, 3.9917083774798565`*^9, + 3.992089567633568*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"cd42716a-3013-cc4c-80a6-6fa8b8c06a09"] +}, 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[88]:=",ExpressionUUID->"98c81204-47e0-fd47-9c8b-67e8ab12c7de"], + +Cell[BoxData["0.1640208878567118`"], "Output", + CellChangeTimes->{3.9913204230728855`*^9, 3.9917083775008526`*^9, + 3.9920895676545677`*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"30f51c14-1480-7740-84c4-0743b8a7826c"] +}, 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[89]:=",ExpressionUUID->"f8815c5a-68ac-6143-b710-ab82cbe388c2"], + +Cell[BoxData["0.13711803620340776`"], "Output", + CellChangeTimes->{3.9913204231038837`*^9, 3.9917083775258636`*^9, + 3.9920895676615868`*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"85839bdd-4f3d-db48-9f81-add261b1845b"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellChangeTimes->{{3.991972340255615*^9, 3.9919723414591656`*^9}, { + 3.99197238607337*^9, 3.991972394033249*^9}}, + CellLabel->"In[90]:=",ExpressionUUID->"c3247e8e-1dc6-bd47-b085-4abc2b2cf1d2"], + +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.991795120812044*^9}, + CellLabel->"In[91]:=",ExpressionUUID->"9522bfa2-96cd-564e-b4a1-30bc1fcf4125"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.5100290958794936`*^-208\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 91, 130, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204231548862`*^9, 3.9917083775522175`*^9, + 3.992089567690111*^9}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"305b6ac1-5c1d-3648-8409-f9cc38d14401"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.216438480707413`*^-213\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 91, 131, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204231548862`*^9, 3.9917083775522175`*^9, + 3.9920895677006226`*^9}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"def5c5bd-38e4-c546-9798-9196fa77b04f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.033493320002329`*^-218\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 91, 132, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204231548862`*^9, 3.9917083775522175`*^9, + 3.992089567706621*^9}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"7ef56334-b108-274e-84c3-3a464cefd9c4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 91, 133, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204231548862`*^9, 3.9917083775522175`*^9, + 3.9920895677146225`*^9}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"d333f203-d5dc-7c49-a054-7b6a6d6bbe71"], + +Cell[BoxData["7.801329691745269`"], "Output", + CellChangeTimes->{3.9913204260017204`*^9, 3.9917083806494102`*^9, + 3.9920895705365143`*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"4cac7206-4795-5a4b-91c8-845dd7a198ec"] +}, 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.991795125308359*^9}, + CellLabel->"In[92]:=",ExpressionUUID->"61b1cdf2-7f57-2647-9828-9108456d2e21"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.5100290958794936`*^-208\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 134, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204262354183`*^9, 3.991708380747463*^9, + 3.9920895705864983`*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"868aef7c-68dd-7741-ae70-8bf632cacf54"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.216438480707413`*^-213\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 135, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204262354183`*^9, 3.991708380747463*^9, + 3.9920895705935383`*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"e293db8c-0c36-434b-b398-dc16e16c229e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.033493320002329`*^-218\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 136, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204262354183`*^9, 3.991708380747463*^9, + 3.992089570600569*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"b4a62f4a-8307-d84b-a7a2-b9f17cc7921e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 92, 137, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204262354183`*^9, 3.991708380747463*^9, + 3.9920895706065693`*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"915cff75-3c97-194a-834e-c3f0f89d48c2"], + +Cell[BoxData["12.67039690245196`"], "Output", + CellChangeTimes->{3.991320428882721*^9, 3.991708383647377*^9, + 3.9920895736154156`*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"10661102-53b9-f344-aa3f-5bb36e856388"] +}, 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.9917951318268585`*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"0ab9b507-fb4e-e24c-9d9d-abe222e3c5e2"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk8VN0bAHBZshfJUiLGUkPEDKLF8xQRSUqLPcbMlZI9UVKv0ia7duJN +JJGkULwleeWNX5SkRZqxTGXLmjKjfqc/7ud8vp/nfJ773Oeee+7RZoVs5YiK +iIh8IdefMeyF8ZLK1hfWWruklh1s44L18HVzlm0xuMpIsv+Ym2ORqWtbA8PW +v2UPEbuw/zdbjvkv8CVHdWKJy6KPPJWwbYaQA523DhOfblCrPVL0EtRuPMk7 +QvygNeyqkNEO5ytzZeOJ+98/j42pfgsLX8b0HCde2Kfj+d2mE4ZpmwxPEW/8 +FmsV0fwJnvcs7EkkfiTsl40u4kHhlh6ZVOI3f6keqgjugX/LCq5lEg/Ptu2f +YPRBpgun6BLx7LOh7swpPsjGL6blEGsqZjeGVX8B07/bpfOJndW/FwzbDMJB +qxX0u8RULk3FSGoYdiT1+D4gPqK3OWFv8zcwOZ4k9YT4repr08iiUSj07bzx +kpjtsScw4+wYWHjG57wnHskS+ftu8Di00JZK9hJL0YwURhmTYJ+xX/8HcSb7 +qb2C8neITNTsEn3NBa0b7keWT30H+2//Scwhtlx2Ynhf9Q+4/cUgX494t8Wn +5n4bIYTWGep6EE9E7xeX0Z+BMvFfnruJj1bLrqZL/YLGTe/EDhBfRMtbAc2/ +IbL5dt45YnZ+o2140SxUnBnVeUtc1JDB/UtdFFueLu38Sjzy2Sc27awoGv0O +FRcSxxpMlt8JFkPauZX52u2k3lJtnW8MCTTXal8STvy+dfDRrzwJnL/qoe9J +Yq2xSo85yrNRRLZaOpu42Mw53WhqNtZHKhf/R1z/4OCsoGopNLi3g7H0DRcm +n7Z9+mIjhytHg+ymiec5ySkceiSHL3Rf8tU6uGDy2hblreRRYlxF1pJ4T+/9 +XFPjOZg64vLpAHGoaLPJGjkFNLn8tGKGuI92ezThuyJeVhjWob0j/aGeS7cw +52F0Y46YA7HoLb62Wtg85H/zDggl1mIu3lo0MA8r82Sra4k9bFLvvuAqYVbw +sYyA91xo8Q+PUG1SRmpJjeyLD1zoupGc6CulgtZb7xnNEA8OFOXdXE/cMdS2 +rJMLMpE9batqVTAzkVmSRGx7fJuZ731VNFYOz9j+kQsPr1tMFuYswJFTWoxf +XVy43jcdtTJSA71mDrXf7ebChu0nuyJKNHB/TL3jMPFgvZJdCV8D4+ReMQ16 +uGB2fZmylrsmXo908ssjrmf5lEtYL0b4stzgSi8Xxr5xD3w5poUN+3YeyOVz +QWmf7b3yTTTUhyEN0QEu8K/L7HbZQ0PN+KXznYirOlvVh07QkBtcGXee2MvJ ++5h+LQ2j1HvvLBsk9RlGbb3E0MEsR4kzPkPk/v03RuJUdTE5vVfp7TcubAuQ +NXLk6eEpsYu3aJNcgKjtjJ0zemgZUh4dQ2yQkLOCvUAfw01tK1qJRfKY6+K2 +6GOWbGf80e9cKOny3Hn3iT5e6I1n9U2R73NH8V8Lry3B42LlWD9N6rPd9Kaf +RcfK1HXX3ojwIM/1woepODqa+O86vWoWD5JZPK74FTrerirj5RKzj+4f0Gyj +44dWBX6QKA8Ua7JFXG0MsOl4iLWMOA/2MIcNqnUMMac/lukhyQN1WsqRxN5l +WCTx2GfzHB7UnJmg/xQ1Qu2HHGwm9hp3f01pG6HZAftCh7k8uFqvS1/nY4TB +pTwZOwUe0AIevvrRYYR2dQcXrZ/HA4PiPj2qyRjPepfEeKnwQENdk9JyN8Gc +5iS/EU0eLMuPlBMAAxdfLmOWmvKAxT42aeTMQBHubDcbBg8u6qR3+XoxsMf3 +3HgHsdi10jsN0Qy8Unc8VdSMB++v9m9LL2OgY9Q/LG8LHpy+6JtN12GihxQz +jL6KB/xEJ2O32WboWJ8bq76eB3+H67rcbzZHPw/Jy4EePLjbVZuo1mmOaiva +Www8eVDn6P3s0IA5sq82ZA4S99LOW6+TsUDnGefmMG8e6LdJGrXYW2BBV+Z4 +vC8PipkD0l/rLJD13xyTWooHVRNlTxc9WIFdSmVNBRE8aI2CFcfzrZBsspJL +U3ig7dPu7B20Bs8yI3p4TTzg/K64rRGDeLYsn1En1w2qA1WSqqx12CFyztnf +qxsimas70w1s8Wl+we7a0m5gDQkblfrXYzGjMmCtTA+UrIuQzGmxx0vmuetL +onrg+sSeJ8WZDniTkyFo7+uBH2vV/ld/ZCN+ErNJLQ/shY8iYqM8v014fvMj +Q6OpXgheFJL6l85mXKfVZL3tRB/cDmysPZfggsNrO2V8jPlwcHzBlGHgFlxy +P1+0soMPk452O57t2oprbjVdDMr+DFaeaWv7trhi/FxD6nDwF3i1IHtPPXMb +Zr3rb2DBV1hYcKymcOl2fJa85tBh036o4ho4OcvvQL5PznQWbQA0X48ERA3t +wHKPMm6ExiAwz6UV53F3Yhu9W32W9RBki48bpz91Q13zurAXHsNQsXb5+4QH +7ogPaEd25n6DiyvOKAqLPNCikH7aPXoEWj7kn2Ce9cSCooi0sEWjcH9Tlm7o +US8cbAvc19E+CqP7XEWC2d74wFf6+NbTYzBpR989bOODJi2F0qnW41A49O5H +hMUu/PZq8xstqQlw+zvf31vOF3WD79+9/GwCyu9u3CV20hcfdJoObbg0CVbq +r36e/umLqzkng128v4MON+D9y0A/vOCRWPVOfQp6Zfduzurxw4rX9Se286eg +NdnZ3347C0f5ShnTWT8gMzpHdn8rC0VibzRouP+Emke/f/o7+OPPRf20XvFp +mOuFJ5kP/TErULb/3flpsPIdLkwwY+PXwJmaApoACi6NRDhbsFEFLZ6d0hXA +/LYxa1VLNtafoWcH6gtgeP3U68JVbCy49PvmEgMB2b9EZjWvY+P5sqoV50wF +MGdK0X3eFuKBsgJzFEBvkrl0zj421gTHCE56CSC5OjawqoCNofYTFdvSBLCP +ccEqupCN89aIpX1MF4DTzTJpyyJiD3caJ1MAMhf4NytL2DiYKB4YekEACeEu +/RX32OhqmhhzIFsAsXTdvffr2Pg4VHad/U0B7LnQFHS3i41dylU7+x8LwGEO +f3U4l42NeSOrHZ4IYGmCiDyjm417Gd5NBXUC4Iebl5T1sTG2Q7/b+18B+Dnn +DN0ZZOObjk8D1c8F4CYREVw6zcYNscz5K9oFYB+xMLRYhYMltRND+l8FUJdz +wjFdjYMpI4KVkf0CWN08phu9kIP5gpS+xwMCMNFremejyUHjjpgtW4cFsKDj +kM0HPQ5a7jI94D8ugIGVH1VkzDnou4+bbjEjgBTR3H8CXDlYfnJ4KGuuEGSW +y13ctJ2DuSpL5O4rCOG4Z3Q4cycHL8+8jmlSFEL0PZclvz04yFo0sXZcSQh+ +1Ky08ywOzj6qetBYTQjM5yz2v2EcdBm4xnDVEkJHmp6sTioH+9800F2XC+E2 +yO/+ksZBNe28KD0Tkn9oor4kg4NzuTfwOzHDoT7O8gIHJ0wWbsxgCCFZxH9s +01UO/uzZwKg2F4JdSO676GIOjmacU6hbJQQNjVMW1rc5qBgkoRi7WggTz0My +xO5wcO94+hmzNUK4pg+bkss5WGel/CXXWggzHz/W5pF/wRVpc7uAtUK456Re ++KKRPJ93iFeRnRASp0UlMp9zUK+V07bRXgiswn4/92YObtsx8HiAWEH8oXpv +CwezzV7+0HcQQlC1W8rPNxy8ZeTfe2ajEHQMzkfp9nFw6aOFB6RchDDdcbjt +K5+De4C1PI24NYFjUvqFg02qdA+1LUKI45n1Ww1y8E54/GzaViG8v9jmvXmc +g3EFOfdp24SQLqm4/uAsChNnyTu82ymEmrGPnpFiFLYcni3c7iaEzx+LwoMl +KLwdFlnTSrz6nm0uS5rCopQedq27EPi+0QJHRQqXT5U7n/Ik9Tutn7deiULn +sZGASeJVK+bRQZnCf+ppSb5eQkiVL97BXEBhmOu9aRNvEn/4qUxdm8LpZ5+9 +H/oIgcovblTWoch5QfOV6i4yPzXm01w9Cq9xZ1wiiPmUkrw4ncJP9MXBur4k +rmS/e9CEwvSsn9ohfkJ4+EvpCJ9BYapM7Oca4r6v3HNcMxK3Ta6QYglhZe3B +p68tKUyh9YVeJu4Nuq35D1J4VHuxa4G/EOa4HTKvXEfhWFenXy+xlc0GpzJb +Cn+nro/RYpP1sqA7Jn8DhSbv7z1JJ64SL03NcaTQ7lfiWCNxz7dDNy45UTjL +tNRwhtiyQbk9yYXC+rZjFbs45H2XdQ+c3Eph3g45qWTipKxS0fhtFH6XT/F7 +SNwd7mAS5UZh5sqVy+QpIcj7qNiHelC4cCNmM4ktHXq893hReLxBoOxGnLT4 +cKKPL4UJjJ2aV4irZByvubEorNrwoeQBcfekyoOtbAqXKX+0ffMnH6+nxYmi +MKjCpWfkT77mO3y73aRfiwxPSweQ+ioPz+AeCs2lWRZaxEnXHOevCqLwztzB +fjPiqiRVQ/NgCkXP1RbYE3dH965dHkrh25aOQDdiOXaZGz2crJdGA7MA4hWb +40J0IimscC+XiPyTf+XGExpRFI4YB3XFEZ/VU8tWjaaQ3uDy6CRxhUJfueJB +CiVCvPOTiXmCsueysRSKbEzJyPiT/3McTyKOwvBNvafOE1u82vjj9xHSj1We +CReI/w+6ifsY + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VN0bAHBZshfJUiLGUkPEDKLF8xQRSUqLPcbMlZI9UVKv0ia7duJN +JJGkULwleeWNX5SkRZqxTGXLmjKjfqc/7ud8vp/nfJ773Oeee+7RZoVs5YiK +iIh8IdefMeyF8ZLK1hfWWruklh1s44L18HVzlm0xuMpIsv+Ym2ORqWtbA8PW +v2UPEbuw/zdbjvkv8CVHdWKJy6KPPJWwbYaQA523DhOfblCrPVL0EtRuPMk7 +QvygNeyqkNEO5ytzZeOJ+98/j42pfgsLX8b0HCde2Kfj+d2mE4ZpmwxPEW/8 +FmsV0fwJnvcs7EkkfiTsl40u4kHhlh6ZVOI3f6keqgjugX/LCq5lEg/Ptu2f +YPRBpgun6BLx7LOh7swpPsjGL6blEGsqZjeGVX8B07/bpfOJndW/FwzbDMJB +qxX0u8RULk3FSGoYdiT1+D4gPqK3OWFv8zcwOZ4k9YT4repr08iiUSj07bzx +kpjtsScw4+wYWHjG57wnHskS+ftu8Di00JZK9hJL0YwURhmTYJ+xX/8HcSb7 +qb2C8neITNTsEn3NBa0b7keWT30H+2//Scwhtlx2Ynhf9Q+4/cUgX494t8Wn +5n4bIYTWGep6EE9E7xeX0Z+BMvFfnruJj1bLrqZL/YLGTe/EDhBfRMtbAc2/ +IbL5dt45YnZ+o2140SxUnBnVeUtc1JDB/UtdFFueLu38Sjzy2Sc27awoGv0O +FRcSxxpMlt8JFkPauZX52u2k3lJtnW8MCTTXal8STvy+dfDRrzwJnL/qoe9J +Yq2xSo85yrNRRLZaOpu42Mw53WhqNtZHKhf/R1z/4OCsoGopNLi3g7H0DRcm +n7Z9+mIjhytHg+ymiec5ySkceiSHL3Rf8tU6uGDy2hblreRRYlxF1pJ4T+/9 +XFPjOZg64vLpAHGoaLPJGjkFNLn8tGKGuI92ezThuyJeVhjWob0j/aGeS7cw +52F0Y46YA7HoLb62Wtg85H/zDggl1mIu3lo0MA8r82Sra4k9bFLvvuAqYVbw +sYyA91xo8Q+PUG1SRmpJjeyLD1zoupGc6CulgtZb7xnNEA8OFOXdXE/cMdS2 +rJMLMpE9batqVTAzkVmSRGx7fJuZ731VNFYOz9j+kQsPr1tMFuYswJFTWoxf +XVy43jcdtTJSA71mDrXf7ebChu0nuyJKNHB/TL3jMPFgvZJdCV8D4+ReMQ16 +uGB2fZmylrsmXo908ssjrmf5lEtYL0b4stzgSi8Xxr5xD3w5poUN+3YeyOVz +QWmf7b3yTTTUhyEN0QEu8K/L7HbZQ0PN+KXznYirOlvVh07QkBtcGXee2MvJ ++5h+LQ2j1HvvLBsk9RlGbb3E0MEsR4kzPkPk/v03RuJUdTE5vVfp7TcubAuQ +NXLk6eEpsYu3aJNcgKjtjJ0zemgZUh4dQ2yQkLOCvUAfw01tK1qJRfKY6+K2 +6GOWbGf80e9cKOny3Hn3iT5e6I1n9U2R73NH8V8Lry3B42LlWD9N6rPd9Kaf +RcfK1HXX3ojwIM/1woepODqa+O86vWoWD5JZPK74FTrerirj5RKzj+4f0Gyj +44dWBX6QKA8Ua7JFXG0MsOl4iLWMOA/2MIcNqnUMMac/lukhyQN1WsqRxN5l +WCTx2GfzHB7UnJmg/xQ1Qu2HHGwm9hp3f01pG6HZAftCh7k8uFqvS1/nY4TB +pTwZOwUe0AIevvrRYYR2dQcXrZ/HA4PiPj2qyRjPepfEeKnwQENdk9JyN8Gc +5iS/EU0eLMuPlBMAAxdfLmOWmvKAxT42aeTMQBHubDcbBg8u6qR3+XoxsMf3 +3HgHsdi10jsN0Qy8Unc8VdSMB++v9m9LL2OgY9Q/LG8LHpy+6JtN12GihxQz +jL6KB/xEJ2O32WboWJ8bq76eB3+H67rcbzZHPw/Jy4EePLjbVZuo1mmOaiva +Www8eVDn6P3s0IA5sq82ZA4S99LOW6+TsUDnGefmMG8e6LdJGrXYW2BBV+Z4 +vC8PipkD0l/rLJD13xyTWooHVRNlTxc9WIFdSmVNBRE8aI2CFcfzrZBsspJL +U3ig7dPu7B20Bs8yI3p4TTzg/K64rRGDeLYsn1En1w2qA1WSqqx12CFyztnf +qxsimas70w1s8Wl+we7a0m5gDQkblfrXYzGjMmCtTA+UrIuQzGmxx0vmuetL +onrg+sSeJ8WZDniTkyFo7+uBH2vV/ld/ZCN+ErNJLQ/shY8iYqM8v014fvMj +Q6OpXgheFJL6l85mXKfVZL3tRB/cDmysPZfggsNrO2V8jPlwcHzBlGHgFlxy +P1+0soMPk452O57t2oprbjVdDMr+DFaeaWv7trhi/FxD6nDwF3i1IHtPPXMb +Zr3rb2DBV1hYcKymcOl2fJa85tBh036o4ho4OcvvQL5PznQWbQA0X48ERA3t +wHKPMm6ExiAwz6UV53F3Yhu9W32W9RBki48bpz91Q13zurAXHsNQsXb5+4QH +7ogPaEd25n6DiyvOKAqLPNCikH7aPXoEWj7kn2Ce9cSCooi0sEWjcH9Tlm7o +US8cbAvc19E+CqP7XEWC2d74wFf6+NbTYzBpR989bOODJi2F0qnW41A49O5H +hMUu/PZq8xstqQlw+zvf31vOF3WD79+9/GwCyu9u3CV20hcfdJoObbg0CVbq +r36e/umLqzkng128v4MON+D9y0A/vOCRWPVOfQp6Zfduzurxw4rX9Se286eg +NdnZ3347C0f5ShnTWT8gMzpHdn8rC0VibzRouP+Emke/f/o7+OPPRf20XvFp +mOuFJ5kP/TErULb/3flpsPIdLkwwY+PXwJmaApoACi6NRDhbsFEFLZ6d0hXA +/LYxa1VLNtafoWcH6gtgeP3U68JVbCy49PvmEgMB2b9EZjWvY+P5sqoV50wF +MGdK0X3eFuKBsgJzFEBvkrl0zj421gTHCE56CSC5OjawqoCNofYTFdvSBLCP +ccEqupCN89aIpX1MF4DTzTJpyyJiD3caJ1MAMhf4NytL2DiYKB4YekEACeEu +/RX32OhqmhhzIFsAsXTdvffr2Pg4VHad/U0B7LnQFHS3i41dylU7+x8LwGEO +f3U4l42NeSOrHZ4IYGmCiDyjm417Gd5NBXUC4Iebl5T1sTG2Q7/b+18B+Dnn +DN0ZZOObjk8D1c8F4CYREVw6zcYNscz5K9oFYB+xMLRYhYMltRND+l8FUJdz +wjFdjYMpI4KVkf0CWN08phu9kIP5gpS+xwMCMNFremejyUHjjpgtW4cFsKDj +kM0HPQ5a7jI94D8ugIGVH1VkzDnou4+bbjEjgBTR3H8CXDlYfnJ4KGuuEGSW +y13ctJ2DuSpL5O4rCOG4Z3Q4cycHL8+8jmlSFEL0PZclvz04yFo0sXZcSQh+ +1Ky08ywOzj6qetBYTQjM5yz2v2EcdBm4xnDVEkJHmp6sTioH+9800F2XC+E2 +yO/+ksZBNe28KD0Tkn9oor4kg4NzuTfwOzHDoT7O8gIHJ0wWbsxgCCFZxH9s +01UO/uzZwKg2F4JdSO676GIOjmacU6hbJQQNjVMW1rc5qBgkoRi7WggTz0My +xO5wcO94+hmzNUK4pg+bkss5WGel/CXXWggzHz/W5pF/wRVpc7uAtUK456Re ++KKRPJ93iFeRnRASp0UlMp9zUK+V07bRXgiswn4/92YObtsx8HiAWEH8oXpv +CwezzV7+0HcQQlC1W8rPNxy8ZeTfe2ajEHQMzkfp9nFw6aOFB6RchDDdcbjt +K5+De4C1PI24NYFjUvqFg02qdA+1LUKI45n1Ww1y8E54/GzaViG8v9jmvXmc +g3EFOfdp24SQLqm4/uAsChNnyTu82ymEmrGPnpFiFLYcni3c7iaEzx+LwoMl +KLwdFlnTSrz6nm0uS5rCopQedq27EPi+0QJHRQqXT5U7n/Ik9Tutn7deiULn +sZGASeJVK+bRQZnCf+ppSb5eQkiVL97BXEBhmOu9aRNvEn/4qUxdm8LpZ5+9 +H/oIgcovblTWoch5QfOV6i4yPzXm01w9Cq9xZ1wiiPmUkrw4ncJP9MXBur4k +rmS/e9CEwvSsn9ohfkJ4+EvpCJ9BYapM7Oca4r6v3HNcMxK3Ta6QYglhZe3B +p68tKUyh9YVeJu4Nuq35D1J4VHuxa4G/EOa4HTKvXEfhWFenXy+xlc0GpzJb +Cn+nro/RYpP1sqA7Jn8DhSbv7z1JJ64SL03NcaTQ7lfiWCNxz7dDNy45UTjL +tNRwhtiyQbk9yYXC+rZjFbs45H2XdQ+c3Eph3g45qWTipKxS0fhtFH6XT/F7 +SNwd7mAS5UZh5sqVy+QpIcj7qNiHelC4cCNmM4ktHXq893hReLxBoOxGnLT4 +cKKPL4UJjJ2aV4irZByvubEorNrwoeQBcfekyoOtbAqXKX+0ffMnH6+nxYmi +MKjCpWfkT77mO3y73aRfiwxPSweQ+ioPz+AeCs2lWRZaxEnXHOevCqLwztzB +fjPiqiRVQ/NgCkXP1RbYE3dH965dHkrh25aOQDdiOXaZGz2crJdGA7MA4hWb +40J0IimscC+XiPyTf+XGExpRFI4YB3XFEZ/VU8tWjaaQ3uDy6CRxhUJfueJB +CiVCvPOTiXmCsueysRSKbEzJyPiT/3McTyKOwvBNvafOE1u82vjj9xHSj1We +CReI/w+6ifsY + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5258150920880986, + 1.7752909859879944`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5258150920880998}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.5258150920880986, + 1.7752909859879944`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5258150920880998}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VN0bAHBZshfJUiLGUkPEDKLF8xQRSUqLPcbMlZI9UVKv0ia7duJN +JJGkULwleeWNX5SkRZqxTGXLmjKjfqc/7ud8vp/nfJ773Oeee+7RZoVs5YiK +iIh8IdefMeyF8ZLK1hfWWruklh1s44L18HVzlm0xuMpIsv+Ym2ORqWtbA8PW +v2UPEbuw/zdbjvkv8CVHdWKJy6KPPJWwbYaQA523DhOfblCrPVL0EtRuPMk7 +QvygNeyqkNEO5ytzZeOJ+98/j42pfgsLX8b0HCde2Kfj+d2mE4ZpmwxPEW/8 +FmsV0fwJnvcs7EkkfiTsl40u4kHhlh6ZVOI3f6keqgjugX/LCq5lEg/Ptu2f +YPRBpgun6BLx7LOh7swpPsjGL6blEGsqZjeGVX8B07/bpfOJndW/FwzbDMJB +qxX0u8RULk3FSGoYdiT1+D4gPqK3OWFv8zcwOZ4k9YT4repr08iiUSj07bzx +kpjtsScw4+wYWHjG57wnHskS+ftu8Di00JZK9hJL0YwURhmTYJ+xX/8HcSb7 +qb2C8neITNTsEn3NBa0b7keWT30H+2//Scwhtlx2Ynhf9Q+4/cUgX494t8Wn +5n4bIYTWGep6EE9E7xeX0Z+BMvFfnruJj1bLrqZL/YLGTe/EDhBfRMtbAc2/ +IbL5dt45YnZ+o2140SxUnBnVeUtc1JDB/UtdFFueLu38Sjzy2Sc27awoGv0O +FRcSxxpMlt8JFkPauZX52u2k3lJtnW8MCTTXal8STvy+dfDRrzwJnL/qoe9J +Yq2xSo85yrNRRLZaOpu42Mw53WhqNtZHKhf/R1z/4OCsoGopNLi3g7H0DRcm +n7Z9+mIjhytHg+ymiec5ySkceiSHL3Rf8tU6uGDy2hblreRRYlxF1pJ4T+/9 +XFPjOZg64vLpAHGoaLPJGjkFNLn8tGKGuI92ezThuyJeVhjWob0j/aGeS7cw +52F0Y46YA7HoLb62Wtg85H/zDggl1mIu3lo0MA8r82Sra4k9bFLvvuAqYVbw +sYyA91xo8Q+PUG1SRmpJjeyLD1zoupGc6CulgtZb7xnNEA8OFOXdXE/cMdS2 +rJMLMpE9batqVTAzkVmSRGx7fJuZ731VNFYOz9j+kQsPr1tMFuYswJFTWoxf +XVy43jcdtTJSA71mDrXf7ebChu0nuyJKNHB/TL3jMPFgvZJdCV8D4+ReMQ16 +uGB2fZmylrsmXo908ssjrmf5lEtYL0b4stzgSi8Xxr5xD3w5poUN+3YeyOVz +QWmf7b3yTTTUhyEN0QEu8K/L7HbZQ0PN+KXznYirOlvVh07QkBtcGXee2MvJ ++5h+LQ2j1HvvLBsk9RlGbb3E0MEsR4kzPkPk/v03RuJUdTE5vVfp7TcubAuQ +NXLk6eEpsYu3aJNcgKjtjJ0zemgZUh4dQ2yQkLOCvUAfw01tK1qJRfKY6+K2 +6GOWbGf80e9cKOny3Hn3iT5e6I1n9U2R73NH8V8Lry3B42LlWD9N6rPd9Kaf +RcfK1HXX3ojwIM/1woepODqa+O86vWoWD5JZPK74FTrerirj5RKzj+4f0Gyj +44dWBX6QKA8Ua7JFXG0MsOl4iLWMOA/2MIcNqnUMMac/lukhyQN1WsqRxN5l +WCTx2GfzHB7UnJmg/xQ1Qu2HHGwm9hp3f01pG6HZAftCh7k8uFqvS1/nY4TB +pTwZOwUe0AIevvrRYYR2dQcXrZ/HA4PiPj2qyRjPepfEeKnwQENdk9JyN8Gc +5iS/EU0eLMuPlBMAAxdfLmOWmvKAxT42aeTMQBHubDcbBg8u6qR3+XoxsMf3 +3HgHsdi10jsN0Qy8Unc8VdSMB++v9m9LL2OgY9Q/LG8LHpy+6JtN12GihxQz +jL6KB/xEJ2O32WboWJ8bq76eB3+H67rcbzZHPw/Jy4EePLjbVZuo1mmOaiva +Www8eVDn6P3s0IA5sq82ZA4S99LOW6+TsUDnGefmMG8e6LdJGrXYW2BBV+Z4 +vC8PipkD0l/rLJD13xyTWooHVRNlTxc9WIFdSmVNBRE8aI2CFcfzrZBsspJL +U3ig7dPu7B20Bs8yI3p4TTzg/K64rRGDeLYsn1En1w2qA1WSqqx12CFyztnf +qxsimas70w1s8Wl+we7a0m5gDQkblfrXYzGjMmCtTA+UrIuQzGmxx0vmuetL +onrg+sSeJ8WZDniTkyFo7+uBH2vV/ld/ZCN+ErNJLQ/shY8iYqM8v014fvMj +Q6OpXgheFJL6l85mXKfVZL3tRB/cDmysPZfggsNrO2V8jPlwcHzBlGHgFlxy +P1+0soMPk452O57t2oprbjVdDMr+DFaeaWv7trhi/FxD6nDwF3i1IHtPPXMb +Zr3rb2DBV1hYcKymcOl2fJa85tBh036o4ho4OcvvQL5PznQWbQA0X48ERA3t +wHKPMm6ExiAwz6UV53F3Yhu9W32W9RBki48bpz91Q13zurAXHsNQsXb5+4QH +7ogPaEd25n6DiyvOKAqLPNCikH7aPXoEWj7kn2Ce9cSCooi0sEWjcH9Tlm7o +US8cbAvc19E+CqP7XEWC2d74wFf6+NbTYzBpR989bOODJi2F0qnW41A49O5H +hMUu/PZq8xstqQlw+zvf31vOF3WD79+9/GwCyu9u3CV20hcfdJoObbg0CVbq +r36e/umLqzkng128v4MON+D9y0A/vOCRWPVOfQp6Zfduzurxw4rX9Se286eg +NdnZ3347C0f5ShnTWT8gMzpHdn8rC0VibzRouP+Emke/f/o7+OPPRf20XvFp +mOuFJ5kP/TErULb/3flpsPIdLkwwY+PXwJmaApoACi6NRDhbsFEFLZ6d0hXA +/LYxa1VLNtafoWcH6gtgeP3U68JVbCy49PvmEgMB2b9EZjWvY+P5sqoV50wF +MGdK0X3eFuKBsgJzFEBvkrl0zj421gTHCE56CSC5OjawqoCNofYTFdvSBLCP +ccEqupCN89aIpX1MF4DTzTJpyyJiD3caJ1MAMhf4NytL2DiYKB4YekEACeEu +/RX32OhqmhhzIFsAsXTdvffr2Pg4VHad/U0B7LnQFHS3i41dylU7+x8LwGEO +f3U4l42NeSOrHZ4IYGmCiDyjm417Gd5NBXUC4Iebl5T1sTG2Q7/b+18B+Dnn +DN0ZZOObjk8D1c8F4CYREVw6zcYNscz5K9oFYB+xMLRYhYMltRND+l8FUJdz +wjFdjYMpI4KVkf0CWN08phu9kIP5gpS+xwMCMNFremejyUHjjpgtW4cFsKDj +kM0HPQ5a7jI94D8ugIGVH1VkzDnou4+bbjEjgBTR3H8CXDlYfnJ4KGuuEGSW +y13ctJ2DuSpL5O4rCOG4Z3Q4cycHL8+8jmlSFEL0PZclvz04yFo0sXZcSQh+ +1Ky08ywOzj6qetBYTQjM5yz2v2EcdBm4xnDVEkJHmp6sTioH+9800F2XC+E2 +yO/+ksZBNe28KD0Tkn9oor4kg4NzuTfwOzHDoT7O8gIHJ0wWbsxgCCFZxH9s +01UO/uzZwKg2F4JdSO676GIOjmacU6hbJQQNjVMW1rc5qBgkoRi7WggTz0My +xO5wcO94+hmzNUK4pg+bkss5WGel/CXXWggzHz/W5pF/wRVpc7uAtUK456Re ++KKRPJ93iFeRnRASp0UlMp9zUK+V07bRXgiswn4/92YObtsx8HiAWEH8oXpv +CwezzV7+0HcQQlC1W8rPNxy8ZeTfe2ajEHQMzkfp9nFw6aOFB6RchDDdcbjt +K5+De4C1PI24NYFjUvqFg02qdA+1LUKI45n1Ww1y8E54/GzaViG8v9jmvXmc +g3EFOfdp24SQLqm4/uAsChNnyTu82ymEmrGPnpFiFLYcni3c7iaEzx+LwoMl +KLwdFlnTSrz6nm0uS5rCopQedq27EPi+0QJHRQqXT5U7n/Ik9Tutn7deiULn +sZGASeJVK+bRQZnCf+ppSb5eQkiVL97BXEBhmOu9aRNvEn/4qUxdm8LpZ5+9 +H/oIgcovblTWoch5QfOV6i4yPzXm01w9Cq9xZ1wiiPmUkrw4ncJP9MXBur4k +rmS/e9CEwvSsn9ohfkJ4+EvpCJ9BYapM7Oca4r6v3HNcMxK3Ta6QYglhZe3B +p68tKUyh9YVeJu4Nuq35D1J4VHuxa4G/EOa4HTKvXEfhWFenXy+xlc0GpzJb +Cn+nro/RYpP1sqA7Jn8DhSbv7z1JJ64SL03NcaTQ7lfiWCNxz7dDNy45UTjL +tNRwhtiyQbk9yYXC+rZjFbs45H2XdQ+c3Eph3g45qWTipKxS0fhtFH6XT/F7 +SNwd7mAS5UZh5sqVy+QpIcj7qNiHelC4cCNmM4ktHXq893hReLxBoOxGnLT4 +cKKPL4UJjJ2aV4irZByvubEorNrwoeQBcfekyoOtbAqXKX+0ffMnH6+nxYmi +MKjCpWfkT77mO3y73aRfiwxPSweQ+ioPz+AeCs2lWRZaxEnXHOevCqLwztzB +fjPiqiRVQ/NgCkXP1RbYE3dH965dHkrh25aOQDdiOXaZGz2crJdGA7MA4hWb +40J0IimscC+XiPyTf+XGExpRFI4YB3XFEZ/VU8tWjaaQ3uDy6CRxhUJfueJB +CiVCvPOTiXmCsueysRSKbEzJyPiT/3McTyKOwvBNvafOE1u82vjj9xHSj1We +CReI/w+6ifsY + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5258150920880986, 1.7752909859879944`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5258150920880998}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.5258150920880998}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "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.5258150920880986, 1.7752909859879944`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913206956809444`*^9, 3.9920897800644836`*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"81ffec5a-1537-f446-9898-c54ad2225982"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.9917947276636543`*^9, 3.991795135217745*^9}, + CellLabel->"In[94]:=",ExpressionUUID->"859f11c8-3e2a-dc42-8ed3-71283b73bfa7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.7308419182517245`*^-270\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 94, + 138, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9, 3.991714940248539*^9, + 3.99208978027742*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"249d3ae3-1411-1046-8a83-48822955b4df"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.20340080703296`*^-282\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 94, + 139, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9, 3.991714940248539*^9, + 3.9920897802874184`*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"145098b6-b9ef-cc4c-a280-de62a525b747"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3908116270731262`*^-293\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 94, + 140, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9, 3.991714940248539*^9, + 3.9920897802934227`*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"ec5836bf-205c-0d45-98bc-b15bc1ff74d7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 94, 141, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9, 3.991714940248539*^9, + 3.992089780301422*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"cdfc7787-79a7-0641-b0ef-c3d9842527c1"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk0Ve/3B3CFlNnlTsYbokTR1YBq7yTK1IBKkTJljkpJqeSKQihCkgwV +3xC51z1KohSZSiSFTzJnqFCE6Hd+f5x11muts551nr32fj/PUudje9wWCggI +zJHP/7/Tzjsv0nNN3fxz7tzEsXTTzVXNLMt9rDNw2FrvfUSFOvx7XR7GYl2B +bquVyfsr9CGtIkZFmJUCLirrxA0rTMBnU6DvlEoubF/yP1GpCltonvVI+KlS +CjP199OuPncFkfZuzVGVN8BU7G+OfnYSMmrTA4ZVPkHOK4/TGTwOFDy60u6z +agi4D8XW/j2WCEehKWXk+AR0xc0xJjjp4Ne3oodbMA0Zq2OeRnKyQXQpR/PL +BgGknrbJ2O6ZC9ek67QyDgvi9VOyNTfy8sG53fa5YP0itNFu0w75VQgBrzjO +xzRFUW9cJ82p6TEU+YvbMHZIYIHuyPHU/VyovyV7Jn+vBIb2H8p9dYgL/VXy +6cauEigpFf952JUL8swVwz4XJDBK0lpLO4ALnMptYZU8CTTha3ufu8KFvZQL +xV6qkrjYv6P1QCkXZorHZJ/NSuI0V7ZclMaDjLPeQ7r7pLH1Z7cj7SUPdCuW +/IlwlMbgiA5KTzUPKoRyhL+4SGNSkLtmXj0PumJ6WTH+0rhl31dfdisPlO86 +7vt2RRpX62cfpX3jwa2qnVUZZdJom6xVpyNZAtcl9O9QVGWQ9bHA565dCaju +ef/Qc7kM3uLcuPzHvgSKbvqXVqySwWSB21OWh0rgnUp+i5+RDB4WtfpvyL0E +JNdoiNXZyqC7yEdi5nQJXN3LCAqLkMFl7wTOeqWUwKX0v7t/jchg4uxrrSuf +SmCXLhGwckIGWxKHd+3vLAHlyhPxztPk9zyX72pfS+BJ99C7d8IU9IkVii0c +LIHxZZ925itTMEByrVv6VAk45/Gs3HdRMHjgrn2zHB+2lPrtaCum4DOVcnaC +JR8kzbU8pZ5Q8ID6Tr3xnXzo+NwXaVpBwVMOifcsbfgQ9NehhltPwcu5HuOT +9nwoBAuz+D4KCvv7KS89ygfWa81t5nRZ3Kn7s77uIh8EmruwLFgWVeLozLNF +fOB8K88IDpXFbhMi/gGXD0sE0hYaRMqi8NSC3rd8PlB07Kt4ibL4XWUXTa6c +D8simsweFcrim+l9fK9aPpgbvbDO7JfFs5Lj8ru7+XAjK8shco8cWh+0VheS +IoDxJPSZqb0cxkQLb8uTIeD2Oydl4cNyOLr1ttkuOQLuzyl0hfrKoY1K2UQU +kwBiX4LL2Ug55I/uHGtSI6BDLNzLr1wOvS80NiWvJ0DjpHuQrRYVE6WpPXIO +BOgYfrFJ16Xi9PwSB+ohAvQF9q8eWkdFkxxLc8phAoyjd/Rf2EpF+nbjyAWu +BBzK1rZ96EBFONeYwPMm4GbL+OqFsVTskaGbnwwmIO2Wt5hVIhV94vzMNp4j +IPtwb39SKhXnR69VCJwn4PHIhzSdHCru9ejTvBBKQKNQqZh9JRWrtfU/7o4k +QHjthYFHE1T0TLJS2plIgPjs1IuZaSpG7qgR/3KTAEql/51tAjQUa7a94J1M +AMvK2a5dnIZqe+J/nEklYKPbtpeLNGi4UGKbqG8GAScTxdId99PQqy46OS+P +gLMHOcE5h2gY4pb5S6iAgEtL5+wmXGkoH9rebv+IgLj87+JXAmgoffOj1XQR +AXmvmoK5V2l4yGiuUZJPQO/vpL1iz2j4nJdbkVBBQOYW9onOlzQcW7OI3VhJ +gFNMY+yjWhq2H2fdFXxJwGd14Tc2bTSsEbvo6/yKgCab40a3J2i4y6vy2483 +BFxLl9jvN0ND5eTPpkvqCLAczjmJC+gYnfIoW7megJpLX/J7Jel4yi7dbVMj +AeVFliwdLTr2cawoFu8JODc3sPGfLh2LZCevmjQTYLAjzL5pPR1lx5JFDVsI +4HaVXg/cRkdN4t9SZisB/5PSFC4/TMev4QPVDz4RkOS7YMg6iY4lGxbliHQR +YFt6e9HSO3QMazQcryRNEd6gNpFNRwjL2hX0lfzf234OSY/pGM4JtfrUTQCn +rr3xSwMdnXglTj59ZL/QTw8XtdDxjFO9i0g/Af+cKYs57XRcjFJhd0gHz2zf +svwbHf+jPKRVDhDgv6Kk2F+IgYNs24cfvxGwKnD3O2MxBgrq92fYDBEwXDEy +Ikdh4HP/z0/qSLvvV9MoVWHgg/zEfYXDBKhnlxtHaTBQd16/U3GEgO4f9k6O +Ogyc1hqIDCftGBGXvMCIgYzyzXstRgmQb17Ja97CwKQnL8/kkG5Trm66t52B +QeXy1Qu+k/svmRM138tA/rhITw5pysIUTUVHBsqMcIonSb+10jf57sLAxJCM +IvxBgHmfV8j1AAZ218YZviFtGqKWZxLEQFqO8cNFP8l6UDs+T55nYP2Pp/5I +enN+wpLccAYqHxiMOkXacJvVhoPRDFztz53LIb2uU/ioxA0GnouSqP5Iek1g +eeLzFAYe+/B1cOEYWR+J01UBdxlYbspy1SKtdW/1hNoDBo7cJwysSWtsGlza +ms/AvKhULz/Sqh/u7orkMtB1/5Opq6SVfe0vGD5l4PVNIt1ZpOWFKQUjlQw0 +3RCoVUqallbbcaeGgZEyf5pqSVPWhontfsvATkfOpzbSkg1GhoKtDMw6J2Xc +Q1rM7ZcHr4OB8Umx4kOkF8/lJR3tYaBi5qzBKGmhRLfXzCEGTu63qBshLaCj +/LvuJwNPbDldOUj6b1Wr2vkpBs7mBCl9Jf3HIXaP7jy5/+wdXR9I//plFtot +xMROqT7RatI/owUKE8SY6BZjeodLekS99D9TChPXhHul3iE9WBYgMc1gYp66 +tWA46V5brY0PVZjY4/ij9SjprpFuL0cNJkoPWNLNSHdwUlOkdJg4a+D+SpV0 +m6JtTSWbiQE3jLpnyPq3cMWnThgy8d54g99b0vW9IbZtZkz8EKHX7ku65ty6 +sKvWTNwctvjZetJVcj+KNtoxUV0yhzJP9kOZyWGpDGcm3rhtq3SRNNHB2Gzj +yURVZ98WI9Lck00+wv5MVDJ0F/xF9ldetnGtZwgTz9TRG+xJ52yc/aPAYaKm +XrenCOnslmLNxqtMzBQovFRE9u9toWXha5KZ6G4cqj1L9nuMqwjOPmbinrI9 +513J+bj697lffikTvzyJYkyS83M5ISjNqYKJzU/11nNIn6/6NvOygYln9UQW +3STnz0+9nhc9yMTvnHciceR8epVxejf/YOLJ1W49wqTdbTfJjv1m4j7ReYsg +cp4PcQr87QTlkbc6sWYPOf/WvXErlZXlsebbaMx/ZD7Ur+xtcVCXx00Bo/om +pC1OrD+fqiWPDWoXe+6TebJ94X/vGOvl8dfaqQMuZN4Ys1aekt0lj2lFAfVE +JwFrHV5VLL4kj5fdvMNbP5L1ymJ4mUWS67eEUCRIrxn2lr18TR69dpbzkMy3 +VcEUd8FUeTzoFGqcTubf8mQnsflieQx4tCbWoIkAxZZpu4k+eezyHKzuIfP3 +loLVP70ReZT6fHT5SA0BTJe7Of7j8mjsoF0wVk3Ow7jp7Og8uV7eAZ1fZH5L +SyfcHaQroFocUj+SeS9ouWq4c4cC7h+xcKWWEjD00vliTb4Cqv40+xJ8jwCV ++Dava1wFTBOr15TIJvPlkLWd7VMFnN/TZ3A7k8zzPwZaXTUK2CImWFGYTsB1 +HZmWqR4FlKsxCipOIcAo6bmmprwiDk+Ol7FiCIj2UnwbflkRa4e6PmQFEFC5 +/nqpRYwiTuc6dDQdI2BSaHG2TIIiDtk2tv71JeBw+kRQWoYiLtm/IH+HF3m+ +t9Sq8soUUWzhC6HnzgR0bjpzqndcEQ/FySUwbcj6ybQqbXVSwuPbmjuS9Ajo +j+m/lOimhCKLBC9GrybPd9GpgQFvJdznrJ55Xoc8n4UYj6ODlHDQvfnowRXk +/iftTVvjldA7g86cYhFwr6PTz7NKCcvut1IJ8j6jmNP3PHaFMhZl9KR6DPNB +FH4f6ZhQxnjVrKZXqeR9bMvyxSUzypgi/PDnUDIf+rceLIhdoIIpbQ2nJW7y +4cX2yhljKRWsWRdVZR7Hh+A9MTdytVTwiItg2H0OH4bdlr06dUQFX8rnjfb4 +8KE+2m65zFsV3Kk8ZxNqxAez0QNTqnYsHLuH7WlNJdD2wnXBAe2lePPV4eYn +gzzgRVYdYv1eihmgVC82yQV34cCuxkZV7Aj3lxtvKwaX42d54rfUcGVbF8Xk ++WNYfXRlo+URdSxR8Whck1EEbynaYoEGyzDL8ql9vGshPC24lKotqIG7a4bM +8k4VwNkFWrvqOzWQZjL9bXryIYh2BG/342qizfS0ISU2F/ruL01IP7ccCz9R +NZcdeQAJy5lCpXYrUMHpu8BehXsQd8u9+ghLC6vsm/37qVlwIMGxUXxACxsk +zO5cWpsBf0zuTaeXr0TNhfEnWCl3oKfPOOhFhDZ+Ksk8qL49FTI36Sk0HNFB +wtgv7cxkEuSHB8oc1VmFugk/9DNVEiHCzsVC8PcqtA5uS72VcB3WdmTkRjSs +xoaVV3uCqHGQvCI1v8FCF2OmVhR9nYmCCxUxyRaluriQlbtpxfcIsFKwu1er +roeN/l3Fi705sMWv+qDMFT0MFgntr7kcCumKzur1v/UwpCo84V9MCKi/fHDT ++uAa7BIf00+hnoE4nRda78vX4JhU1IXvWwPBfUKo6Y0WG4Ovv6lNKAwA56Jx +1pVYNt6s9bGoyvEFn0s2f83j2fggaUWkRrwvBNpwP4rfYKNl6N2/yWd8IfJ3 +4LW4m2zUzK3wLDD3hQKD6dmkNDbSrIIO3xr1genKf633H7JR+NjbZcfW+UDc +e/GYqmo2frp2vu5tsxfcyvL1uPyGjUqXN8Dyci/IOtm4dXsdG7/savsYm+MF +JbS4mbpGNpZR1fZGh3hBxwFZj+YPbNwcPp5qsNwLNHuYW7t72PghrG/O8aIn +6HKDlbP72KixY1VLtrcnGIa3T7sNsNEvbqH5zF5PsNRMK/w2xMacr/sm3ul4 +wnFvlvLYGBtvW6fs1e7wgHMbQ6cfT7Bx3l9y60C1B4RLdLec/E3+n7JPTGGx +ByQ/yor684eNP2tMFPyiPCDzotDRJzNs9MkOsnY+7QEPd7sZn/vLxpTqRc9d +XTyAq/paafM8G2dy37sG7vSA8gmN6X//2Hgm4cX6BCMP+D9L72Kk + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0Ve/3B3CFlNnlTsYbokTR1YBq7yTK1IBKkTJljkpJqeSKQihCkgwV +3xC51z1KohSZSiSFTzJnqFCE6Hd+f5x11muts551nr32fj/PUudje9wWCggI +zJHP/7/Tzjsv0nNN3fxz7tzEsXTTzVXNLMt9rDNw2FrvfUSFOvx7XR7GYl2B +bquVyfsr9CGtIkZFmJUCLirrxA0rTMBnU6DvlEoubF/yP1GpCltonvVI+KlS +CjP199OuPncFkfZuzVGVN8BU7G+OfnYSMmrTA4ZVPkHOK4/TGTwOFDy60u6z +agi4D8XW/j2WCEehKWXk+AR0xc0xJjjp4Ne3oodbMA0Zq2OeRnKyQXQpR/PL +BgGknrbJ2O6ZC9ek67QyDgvi9VOyNTfy8sG53fa5YP0itNFu0w75VQgBrzjO +xzRFUW9cJ82p6TEU+YvbMHZIYIHuyPHU/VyovyV7Jn+vBIb2H8p9dYgL/VXy +6cauEigpFf952JUL8swVwz4XJDBK0lpLO4ALnMptYZU8CTTha3ufu8KFvZQL +xV6qkrjYv6P1QCkXZorHZJ/NSuI0V7ZclMaDjLPeQ7r7pLH1Z7cj7SUPdCuW +/IlwlMbgiA5KTzUPKoRyhL+4SGNSkLtmXj0PumJ6WTH+0rhl31dfdisPlO86 +7vt2RRpX62cfpX3jwa2qnVUZZdJom6xVpyNZAtcl9O9QVGWQ9bHA565dCaju +ef/Qc7kM3uLcuPzHvgSKbvqXVqySwWSB21OWh0rgnUp+i5+RDB4WtfpvyL0E +JNdoiNXZyqC7yEdi5nQJXN3LCAqLkMFl7wTOeqWUwKX0v7t/jchg4uxrrSuf +SmCXLhGwckIGWxKHd+3vLAHlyhPxztPk9zyX72pfS+BJ99C7d8IU9IkVii0c +LIHxZZ925itTMEByrVv6VAk45/Gs3HdRMHjgrn2zHB+2lPrtaCum4DOVcnaC +JR8kzbU8pZ5Q8ID6Tr3xnXzo+NwXaVpBwVMOifcsbfgQ9NehhltPwcu5HuOT +9nwoBAuz+D4KCvv7KS89ygfWa81t5nRZ3Kn7s77uIh8EmruwLFgWVeLozLNF +fOB8K88IDpXFbhMi/gGXD0sE0hYaRMqi8NSC3rd8PlB07Kt4ibL4XWUXTa6c +D8simsweFcrim+l9fK9aPpgbvbDO7JfFs5Lj8ru7+XAjK8shco8cWh+0VheS +IoDxJPSZqb0cxkQLb8uTIeD2Oydl4cNyOLr1ttkuOQLuzyl0hfrKoY1K2UQU +kwBiX4LL2Ug55I/uHGtSI6BDLNzLr1wOvS80NiWvJ0DjpHuQrRYVE6WpPXIO +BOgYfrFJ16Xi9PwSB+ohAvQF9q8eWkdFkxxLc8phAoyjd/Rf2EpF+nbjyAWu +BBzK1rZ96EBFONeYwPMm4GbL+OqFsVTskaGbnwwmIO2Wt5hVIhV94vzMNp4j +IPtwb39SKhXnR69VCJwn4PHIhzSdHCru9ejTvBBKQKNQqZh9JRWrtfU/7o4k +QHjthYFHE1T0TLJS2plIgPjs1IuZaSpG7qgR/3KTAEql/51tAjQUa7a94J1M +AMvK2a5dnIZqe+J/nEklYKPbtpeLNGi4UGKbqG8GAScTxdId99PQqy46OS+P +gLMHOcE5h2gY4pb5S6iAgEtL5+wmXGkoH9rebv+IgLj87+JXAmgoffOj1XQR +AXmvmoK5V2l4yGiuUZJPQO/vpL1iz2j4nJdbkVBBQOYW9onOlzQcW7OI3VhJ +gFNMY+yjWhq2H2fdFXxJwGd14Tc2bTSsEbvo6/yKgCab40a3J2i4y6vy2483 +BFxLl9jvN0ND5eTPpkvqCLAczjmJC+gYnfIoW7megJpLX/J7Jel4yi7dbVMj +AeVFliwdLTr2cawoFu8JODc3sPGfLh2LZCevmjQTYLAjzL5pPR1lx5JFDVsI +4HaVXg/cRkdN4t9SZisB/5PSFC4/TMev4QPVDz4RkOS7YMg6iY4lGxbliHQR +YFt6e9HSO3QMazQcryRNEd6gNpFNRwjL2hX0lfzf234OSY/pGM4JtfrUTQCn +rr3xSwMdnXglTj59ZL/QTw8XtdDxjFO9i0g/Af+cKYs57XRcjFJhd0gHz2zf +svwbHf+jPKRVDhDgv6Kk2F+IgYNs24cfvxGwKnD3O2MxBgrq92fYDBEwXDEy +Ikdh4HP/z0/qSLvvV9MoVWHgg/zEfYXDBKhnlxtHaTBQd16/U3GEgO4f9k6O +Ogyc1hqIDCftGBGXvMCIgYzyzXstRgmQb17Ja97CwKQnL8/kkG5Trm66t52B +QeXy1Qu+k/svmRM138tA/rhITw5pysIUTUVHBsqMcIonSb+10jf57sLAxJCM +IvxBgHmfV8j1AAZ218YZviFtGqKWZxLEQFqO8cNFP8l6UDs+T55nYP2Pp/5I +enN+wpLccAYqHxiMOkXacJvVhoPRDFztz53LIb2uU/ioxA0GnouSqP5Iek1g +eeLzFAYe+/B1cOEYWR+J01UBdxlYbspy1SKtdW/1hNoDBo7cJwysSWtsGlza +ms/AvKhULz/Sqh/u7orkMtB1/5Opq6SVfe0vGD5l4PVNIt1ZpOWFKQUjlQw0 +3RCoVUqallbbcaeGgZEyf5pqSVPWhontfsvATkfOpzbSkg1GhoKtDMw6J2Xc +Q1rM7ZcHr4OB8Umx4kOkF8/lJR3tYaBi5qzBKGmhRLfXzCEGTu63qBshLaCj +/LvuJwNPbDldOUj6b1Wr2vkpBs7mBCl9Jf3HIXaP7jy5/+wdXR9I//plFtot +xMROqT7RatI/owUKE8SY6BZjeodLekS99D9TChPXhHul3iE9WBYgMc1gYp66 +tWA46V5brY0PVZjY4/ij9SjprpFuL0cNJkoPWNLNSHdwUlOkdJg4a+D+SpV0 +m6JtTSWbiQE3jLpnyPq3cMWnThgy8d54g99b0vW9IbZtZkz8EKHX7ku65ty6 +sKvWTNwctvjZetJVcj+KNtoxUV0yhzJP9kOZyWGpDGcm3rhtq3SRNNHB2Gzj +yURVZ98WI9Lck00+wv5MVDJ0F/xF9ldetnGtZwgTz9TRG+xJ52yc/aPAYaKm +XrenCOnslmLNxqtMzBQovFRE9u9toWXha5KZ6G4cqj1L9nuMqwjOPmbinrI9 +513J+bj697lffikTvzyJYkyS83M5ISjNqYKJzU/11nNIn6/6NvOygYln9UQW +3STnz0+9nhc9yMTvnHciceR8epVxejf/YOLJ1W49wqTdbTfJjv1m4j7ReYsg +cp4PcQr87QTlkbc6sWYPOf/WvXErlZXlsebbaMx/ZD7Ur+xtcVCXx00Bo/om +pC1OrD+fqiWPDWoXe+6TebJ94X/vGOvl8dfaqQMuZN4Ys1aekt0lj2lFAfVE +JwFrHV5VLL4kj5fdvMNbP5L1ymJ4mUWS67eEUCRIrxn2lr18TR69dpbzkMy3 +VcEUd8FUeTzoFGqcTubf8mQnsflieQx4tCbWoIkAxZZpu4k+eezyHKzuIfP3 +loLVP70ReZT6fHT5SA0BTJe7Of7j8mjsoF0wVk3Ow7jp7Og8uV7eAZ1fZH5L +SyfcHaQroFocUj+SeS9ouWq4c4cC7h+xcKWWEjD00vliTb4Cqv40+xJ8jwCV ++Dava1wFTBOr15TIJvPlkLWd7VMFnN/TZ3A7k8zzPwZaXTUK2CImWFGYTsB1 +HZmWqR4FlKsxCipOIcAo6bmmprwiDk+Ol7FiCIj2UnwbflkRa4e6PmQFEFC5 +/nqpRYwiTuc6dDQdI2BSaHG2TIIiDtk2tv71JeBw+kRQWoYiLtm/IH+HF3m+ +t9Sq8soUUWzhC6HnzgR0bjpzqndcEQ/FySUwbcj6ybQqbXVSwuPbmjuS9Ajo +j+m/lOimhCKLBC9GrybPd9GpgQFvJdznrJ55Xoc8n4UYj6ODlHDQvfnowRXk +/iftTVvjldA7g86cYhFwr6PTz7NKCcvut1IJ8j6jmNP3PHaFMhZl9KR6DPNB +FH4f6ZhQxnjVrKZXqeR9bMvyxSUzypgi/PDnUDIf+rceLIhdoIIpbQ2nJW7y +4cX2yhljKRWsWRdVZR7Hh+A9MTdytVTwiItg2H0OH4bdlr06dUQFX8rnjfb4 +8KE+2m65zFsV3Kk8ZxNqxAez0QNTqnYsHLuH7WlNJdD2wnXBAe2lePPV4eYn +gzzgRVYdYv1eihmgVC82yQV34cCuxkZV7Aj3lxtvKwaX42d54rfUcGVbF8Xk ++WNYfXRlo+URdSxR8Whck1EEbynaYoEGyzDL8ql9vGshPC24lKotqIG7a4bM +8k4VwNkFWrvqOzWQZjL9bXryIYh2BG/342qizfS0ISU2F/ruL01IP7ccCz9R +NZcdeQAJy5lCpXYrUMHpu8BehXsQd8u9+ghLC6vsm/37qVlwIMGxUXxACxsk +zO5cWpsBf0zuTaeXr0TNhfEnWCl3oKfPOOhFhDZ+Ksk8qL49FTI36Sk0HNFB +wtgv7cxkEuSHB8oc1VmFugk/9DNVEiHCzsVC8PcqtA5uS72VcB3WdmTkRjSs +xoaVV3uCqHGQvCI1v8FCF2OmVhR9nYmCCxUxyRaluriQlbtpxfcIsFKwu1er +roeN/l3Fi705sMWv+qDMFT0MFgntr7kcCumKzur1v/UwpCo84V9MCKi/fHDT ++uAa7BIf00+hnoE4nRda78vX4JhU1IXvWwPBfUKo6Y0WG4Ovv6lNKAwA56Jx +1pVYNt6s9bGoyvEFn0s2f83j2fggaUWkRrwvBNpwP4rfYKNl6N2/yWd8IfJ3 +4LW4m2zUzK3wLDD3hQKD6dmkNDbSrIIO3xr1genKf633H7JR+NjbZcfW+UDc +e/GYqmo2frp2vu5tsxfcyvL1uPyGjUqXN8Dyci/IOtm4dXsdG7/savsYm+MF +JbS4mbpGNpZR1fZGh3hBxwFZj+YPbNwcPp5qsNwLNHuYW7t72PghrG/O8aIn +6HKDlbP72KixY1VLtrcnGIa3T7sNsNEvbqH5zF5PsNRMK/w2xMacr/sm3ul4 +wnFvlvLYGBtvW6fs1e7wgHMbQ6cfT7Bx3l9y60C1B4RLdLec/E3+n7JPTGGx +ByQ/yor684eNP2tMFPyiPCDzotDRJzNs9MkOsnY+7QEPd7sZn/vLxpTqRc9d +XTyAq/paafM8G2dy37sG7vSA8gmN6X//2Hgm4cX6BCMP+D9L72Kk + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.09744150796508005}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.09744150796508005}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0Ve/3B3CFlNnlTsYbokTR1YBq7yTK1IBKkTJljkpJqeSKQihCkgwV +3xC51z1KohSZSiSFTzJnqFCE6Hd+f5x11muts551nr32fj/PUudje9wWCggI +zJHP/7/Tzjsv0nNN3fxz7tzEsXTTzVXNLMt9rDNw2FrvfUSFOvx7XR7GYl2B +bquVyfsr9CGtIkZFmJUCLirrxA0rTMBnU6DvlEoubF/yP1GpCltonvVI+KlS +CjP199OuPncFkfZuzVGVN8BU7G+OfnYSMmrTA4ZVPkHOK4/TGTwOFDy60u6z +agi4D8XW/j2WCEehKWXk+AR0xc0xJjjp4Ne3oodbMA0Zq2OeRnKyQXQpR/PL +BgGknrbJ2O6ZC9ek67QyDgvi9VOyNTfy8sG53fa5YP0itNFu0w75VQgBrzjO +xzRFUW9cJ82p6TEU+YvbMHZIYIHuyPHU/VyovyV7Jn+vBIb2H8p9dYgL/VXy +6cauEigpFf952JUL8swVwz4XJDBK0lpLO4ALnMptYZU8CTTha3ufu8KFvZQL +xV6qkrjYv6P1QCkXZorHZJ/NSuI0V7ZclMaDjLPeQ7r7pLH1Z7cj7SUPdCuW +/IlwlMbgiA5KTzUPKoRyhL+4SGNSkLtmXj0PumJ6WTH+0rhl31dfdisPlO86 +7vt2RRpX62cfpX3jwa2qnVUZZdJom6xVpyNZAtcl9O9QVGWQ9bHA565dCaju +ef/Qc7kM3uLcuPzHvgSKbvqXVqySwWSB21OWh0rgnUp+i5+RDB4WtfpvyL0E +JNdoiNXZyqC7yEdi5nQJXN3LCAqLkMFl7wTOeqWUwKX0v7t/jchg4uxrrSuf +SmCXLhGwckIGWxKHd+3vLAHlyhPxztPk9zyX72pfS+BJ99C7d8IU9IkVii0c +LIHxZZ925itTMEByrVv6VAk45/Gs3HdRMHjgrn2zHB+2lPrtaCum4DOVcnaC +JR8kzbU8pZ5Q8ID6Tr3xnXzo+NwXaVpBwVMOifcsbfgQ9NehhltPwcu5HuOT +9nwoBAuz+D4KCvv7KS89ygfWa81t5nRZ3Kn7s77uIh8EmruwLFgWVeLozLNF +fOB8K88IDpXFbhMi/gGXD0sE0hYaRMqi8NSC3rd8PlB07Kt4ibL4XWUXTa6c +D8simsweFcrim+l9fK9aPpgbvbDO7JfFs5Lj8ru7+XAjK8shco8cWh+0VheS +IoDxJPSZqb0cxkQLb8uTIeD2Oydl4cNyOLr1ttkuOQLuzyl0hfrKoY1K2UQU +kwBiX4LL2Ug55I/uHGtSI6BDLNzLr1wOvS80NiWvJ0DjpHuQrRYVE6WpPXIO +BOgYfrFJ16Xi9PwSB+ohAvQF9q8eWkdFkxxLc8phAoyjd/Rf2EpF+nbjyAWu +BBzK1rZ96EBFONeYwPMm4GbL+OqFsVTskaGbnwwmIO2Wt5hVIhV94vzMNp4j +IPtwb39SKhXnR69VCJwn4PHIhzSdHCru9ejTvBBKQKNQqZh9JRWrtfU/7o4k +QHjthYFHE1T0TLJS2plIgPjs1IuZaSpG7qgR/3KTAEql/51tAjQUa7a94J1M +AMvK2a5dnIZqe+J/nEklYKPbtpeLNGi4UGKbqG8GAScTxdId99PQqy46OS+P +gLMHOcE5h2gY4pb5S6iAgEtL5+wmXGkoH9rebv+IgLj87+JXAmgoffOj1XQR +AXmvmoK5V2l4yGiuUZJPQO/vpL1iz2j4nJdbkVBBQOYW9onOlzQcW7OI3VhJ +gFNMY+yjWhq2H2fdFXxJwGd14Tc2bTSsEbvo6/yKgCab40a3J2i4y6vy2483 +BFxLl9jvN0ND5eTPpkvqCLAczjmJC+gYnfIoW7megJpLX/J7Jel4yi7dbVMj +AeVFliwdLTr2cawoFu8JODc3sPGfLh2LZCevmjQTYLAjzL5pPR1lx5JFDVsI +4HaVXg/cRkdN4t9SZisB/5PSFC4/TMev4QPVDz4RkOS7YMg6iY4lGxbliHQR +YFt6e9HSO3QMazQcryRNEd6gNpFNRwjL2hX0lfzf234OSY/pGM4JtfrUTQCn +rr3xSwMdnXglTj59ZL/QTw8XtdDxjFO9i0g/Af+cKYs57XRcjFJhd0gHz2zf +svwbHf+jPKRVDhDgv6Kk2F+IgYNs24cfvxGwKnD3O2MxBgrq92fYDBEwXDEy +Ikdh4HP/z0/qSLvvV9MoVWHgg/zEfYXDBKhnlxtHaTBQd16/U3GEgO4f9k6O +Ogyc1hqIDCftGBGXvMCIgYzyzXstRgmQb17Ja97CwKQnL8/kkG5Trm66t52B +QeXy1Qu+k/svmRM138tA/rhITw5pysIUTUVHBsqMcIonSb+10jf57sLAxJCM +IvxBgHmfV8j1AAZ218YZviFtGqKWZxLEQFqO8cNFP8l6UDs+T55nYP2Pp/5I +enN+wpLccAYqHxiMOkXacJvVhoPRDFztz53LIb2uU/ioxA0GnouSqP5Iek1g +eeLzFAYe+/B1cOEYWR+J01UBdxlYbspy1SKtdW/1hNoDBo7cJwysSWtsGlza +ms/AvKhULz/Sqh/u7orkMtB1/5Opq6SVfe0vGD5l4PVNIt1ZpOWFKQUjlQw0 +3RCoVUqallbbcaeGgZEyf5pqSVPWhontfsvATkfOpzbSkg1GhoKtDMw6J2Xc +Q1rM7ZcHr4OB8Umx4kOkF8/lJR3tYaBi5qzBKGmhRLfXzCEGTu63qBshLaCj +/LvuJwNPbDldOUj6b1Wr2vkpBs7mBCl9Jf3HIXaP7jy5/+wdXR9I//plFtot +xMROqT7RatI/owUKE8SY6BZjeodLekS99D9TChPXhHul3iE9WBYgMc1gYp66 +tWA46V5brY0PVZjY4/ij9SjprpFuL0cNJkoPWNLNSHdwUlOkdJg4a+D+SpV0 +m6JtTSWbiQE3jLpnyPq3cMWnThgy8d54g99b0vW9IbZtZkz8EKHX7ku65ty6 +sKvWTNwctvjZetJVcj+KNtoxUV0yhzJP9kOZyWGpDGcm3rhtq3SRNNHB2Gzj +yURVZ98WI9Lck00+wv5MVDJ0F/xF9ldetnGtZwgTz9TRG+xJ52yc/aPAYaKm +XrenCOnslmLNxqtMzBQovFRE9u9toWXha5KZ6G4cqj1L9nuMqwjOPmbinrI9 +513J+bj697lffikTvzyJYkyS83M5ISjNqYKJzU/11nNIn6/6NvOygYln9UQW +3STnz0+9nhc9yMTvnHciceR8epVxejf/YOLJ1W49wqTdbTfJjv1m4j7ReYsg +cp4PcQr87QTlkbc6sWYPOf/WvXErlZXlsebbaMx/ZD7Ur+xtcVCXx00Bo/om +pC1OrD+fqiWPDWoXe+6TebJ94X/vGOvl8dfaqQMuZN4Ys1aekt0lj2lFAfVE +JwFrHV5VLL4kj5fdvMNbP5L1ymJ4mUWS67eEUCRIrxn2lr18TR69dpbzkMy3 +VcEUd8FUeTzoFGqcTubf8mQnsflieQx4tCbWoIkAxZZpu4k+eezyHKzuIfP3 +loLVP70ReZT6fHT5SA0BTJe7Of7j8mjsoF0wVk3Ow7jp7Og8uV7eAZ1fZH5L +SyfcHaQroFocUj+SeS9ouWq4c4cC7h+xcKWWEjD00vliTb4Cqv40+xJ8jwCV ++Dava1wFTBOr15TIJvPlkLWd7VMFnN/TZ3A7k8zzPwZaXTUK2CImWFGYTsB1 +HZmWqR4FlKsxCipOIcAo6bmmprwiDk+Ol7FiCIj2UnwbflkRa4e6PmQFEFC5 +/nqpRYwiTuc6dDQdI2BSaHG2TIIiDtk2tv71JeBw+kRQWoYiLtm/IH+HF3m+ +t9Sq8soUUWzhC6HnzgR0bjpzqndcEQ/FySUwbcj6ybQqbXVSwuPbmjuS9Ajo +j+m/lOimhCKLBC9GrybPd9GpgQFvJdznrJ55Xoc8n4UYj6ODlHDQvfnowRXk +/iftTVvjldA7g86cYhFwr6PTz7NKCcvut1IJ8j6jmNP3PHaFMhZl9KR6DPNB +FH4f6ZhQxnjVrKZXqeR9bMvyxSUzypgi/PDnUDIf+rceLIhdoIIpbQ2nJW7y +4cX2yhljKRWsWRdVZR7Hh+A9MTdytVTwiItg2H0OH4bdlr06dUQFX8rnjfb4 +8KE+2m65zFsV3Kk8ZxNqxAez0QNTqnYsHLuH7WlNJdD2wnXBAe2lePPV4eYn +gzzgRVYdYv1eihmgVC82yQV34cCuxkZV7Aj3lxtvKwaX42d54rfUcGVbF8Xk ++WNYfXRlo+URdSxR8Whck1EEbynaYoEGyzDL8ql9vGshPC24lKotqIG7a4bM +8k4VwNkFWrvqOzWQZjL9bXryIYh2BG/342qizfS0ISU2F/ruL01IP7ccCz9R +NZcdeQAJy5lCpXYrUMHpu8BehXsQd8u9+ghLC6vsm/37qVlwIMGxUXxACxsk +zO5cWpsBf0zuTaeXr0TNhfEnWCl3oKfPOOhFhDZ+Ksk8qL49FTI36Sk0HNFB +wtgv7cxkEuSHB8oc1VmFugk/9DNVEiHCzsVC8PcqtA5uS72VcB3WdmTkRjSs +xoaVV3uCqHGQvCI1v8FCF2OmVhR9nYmCCxUxyRaluriQlbtpxfcIsFKwu1er +roeN/l3Fi705sMWv+qDMFT0MFgntr7kcCumKzur1v/UwpCo84V9MCKi/fHDT ++uAa7BIf00+hnoE4nRda78vX4JhU1IXvWwPBfUKo6Y0WG4Ovv6lNKAwA56Jx +1pVYNt6s9bGoyvEFn0s2f83j2fggaUWkRrwvBNpwP4rfYKNl6N2/yWd8IfJ3 +4LW4m2zUzK3wLDD3hQKD6dmkNDbSrIIO3xr1genKf633H7JR+NjbZcfW+UDc +e/GYqmo2frp2vu5tsxfcyvL1uPyGjUqXN8Dyci/IOtm4dXsdG7/savsYm+MF +JbS4mbpGNpZR1fZGh3hBxwFZj+YPbNwcPp5qsNwLNHuYW7t72PghrG/O8aIn +6HKDlbP72KixY1VLtrcnGIa3T7sNsNEvbqH5zF5PsNRMK/w2xMacr/sm3ul4 +wnFvlvLYGBtvW6fs1e7wgHMbQ6cfT7Bx3l9y60C1B4RLdLec/E3+n7JPTGGx +ByQ/yor684eNP2tMFPyiPCDzotDRJzNs9MkOsnY+7QEPd7sZn/vLxpTqRc9d +XTyAq/paafM8G2dy37sG7vSA8gmN6X//2Hgm4cX6BCMP+D9L72Kk + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.09744150796508005}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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, 20}, {0., 0.09744150796508005}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913218813523655`*^9, 3.991716043222481*^9, + 3.9920900040345573`*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"09c57225-2a82-0642-a8b3-b20d5a3131a6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{ + FractionBox["1", "2"], + RowBox[{"(", + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"Cw", "*", "\[Pi]"}], ")"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{3.9917953353381157`*^9}, + CellLabel->"In[95]:=",ExpressionUUID->"982133ce-0d36-4d45-a387-ff35350b5cb9"], + +Cell[BoxData["12.179486664213163`"], "Output", + CellChangeTimes->{3.9913229040054893`*^9, 3.9917087761038074`*^9, + 3.992090004100504*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"935b5253-5e68-0a45-8519-47bda33b7070"] +}, 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.991795437556492*^9}, + CellLabel->"In[96]:=",ExpressionUUID->"90b7f5f1-808a-1b4d-aa45-edfd6d6a25f8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.5760237350181803`*^-270\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 96, + 142, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9, 3.992090004289339*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"121035ac-88eb-6047-9d1c-5b9b46d74812"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.891771099211767`*^-282\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 96, + 143, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9, 3.9920900042983494`*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"90859807-c965-c644-8d4b-91e03e95dca9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.328193334368043`*^-293\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 96, + 144, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9, 3.992090004305441*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"bddb06de-4c67-9049-875f-3d819f665270"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 96, 145, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9, 3.9920900043124447`*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"ddfca9c2-4456-0f4b-84ba-8053e71fcf0e"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwN13k4Ff0XAPBKm0IiWSLunXtFtiik3M4hKYT2Ra+lsmeLyFI/ItzslVJk +CS267h1kjRAiki3ZlzetKJEt3spv/phnns/zzDMz5zvnnO8Z2hn3Q3ZLFi1a +tGQxdVDnmYH6GkZk5q5nc68rD3Tt3NWeIuGn1xUMBhIu/H0RkoBizWckum5A +1KpYifQIRfA58KSTrysdggvt4HKEDqwdE78x15kHZ1bSD5hEGMFgmZn7VGcV +tH0eMc+/dhIMGSP9E51tsPt1dqNHuBPMdWrfGu8cgpMhYyMe//OD6t2PMlvT +J0FgzZyzqUMESA+WfD6j/AfObVB+Iux6E9a5WD9ZsZsP66PixWIP3oUb6oal +ZkdX4pV2xU8ch1TovrOlckJYECOWd/FZWqVDZGZg8xLJtRjt7bDoAf8DEI// +cO1msihuu5OWk+j4CMKPGO1qmxHDp/3R1c9tssBL5751fbAEzhytY17fyQHj +NKEpkygJnFJ+7vFNjwP0FZfYTbcksO653uXd+zjQ0n4s9+1jCVztuar74xEO +qHoI8A00SaD9H6uYKVcOfH148eFPKUl8bth8bW8qB/5ZZ/Z9w1NJjK5521D8 +lwMGP+b93T5I4d+S+F35Odngty9+84tvUijpc1BvqCAbePdVekRnpDAgJURK +oDQbJI7Y6JSs3ICGFpfND7/Mhm/FL2f5VDdgyN/z5WR3NtwMjrtw13cDsjLn +2WmLuTAkJu9WIyiN4Vfo9TZmXBB3r5ARF5fG66I/jfkPc2H/qxNvnOSkse38 +ixTucS4U+kcqr9kqjZ03RcqGbbgQMTg+cvKENL5blPhazYsLGlmlDj/SpXF5 +ubHG5G0uXNE9eFpquwwqdF2YONbLhX1WKT+19WXwTNsp17eDXBAKGg05ul8G +j0nO/Db+yIV71aEP42xkkC876LjSdy4UGz8bXX5NBlt5ff/l/OXC+AnCZ7Jb +BvtafMVa5Hhg5T0d0RiwEdn1Ju5Wp3nATNCXHgndiOmMiASWHY+KP5a7Im4j +zgr1dYo78cD/t2KLfuZG7AtOvv/cgwe3QqzESho34pSRqE1TIA8ar9elPpCR +xVa/gcqlyTzYwbub/78KWfR7rSFW95YHBp1Nf8ZeyaJ0rqFIWwcPzBYt3Wvd +JoudEcy2rm4enD3k1g2fZNGUEZjUPcgDwwBaYNAyOXyU7WX5eJQHHrIzGXpK +cnhLYdFX/yUk1Dikfq/2kcN7Pbq3ZpRJMPqtI3IpQA4rB7pu+auR0BTXrrUt +SA4Zzn228+okdJfwB2Vek0PRHw3u37VIGFt9QST0nhzKLTXbcx9JkMjZp21Y +JYf7K2QP4WESXH5NBL0SpOG2YvWd1t4k7Dhvv/6zCA2Llu26x75IwsqRHg6f +BA3VjtXSuH4kPOit7thFp+HswyXJXy6TMFB+S7lAi4ZLFns60MNIMA/V6bpv +TUNnPuMR8hYJG/9yXStsaWg+IfglMoGEbz50vn4nGr5gFoievUsC23G1qsQF +Gg4L5CwsSSah0qQ/JIZNw3RhjjZ/JgkaIlfUAnJpqFwq0qGWS8KiyOmaO4U0 +tLhYqlKRR8XP52xRWErD6emOF0b5JJybPhQ68ZKGnNrc9ANFJGR2MXodeqj3 +0TS0Yj4nwfPgXY/QQRoaZDTmxJSTgA2CyzM+0lB40s9wsoKE/tKZLQNjNFx8 +pngXr4qE9amvwo7w0THTVCBgtI6Ej+Isac+VdCzv5l9QrSchLy43N1aQjiXK +im9cG6j4gxP7GsTp6GJpbdLfSMVn56Khp0xHf5HPX0NaSZhTEh5QOUpHNaVa +7/FuEmaSpa5staCje5Ip+2MPCVNrmAwdazp+jX+/sb2X+n6TOs4GTnS0e9LS ++6CfhKHSszMWl+mYFObCE31PwqCK212bYDoeiP45/4FyX6qvrn04HTfYvm8j +h0joCIkOPn+djqK/ShR2fCShwaRIiP2Ajjk+zWGSX0ioe/4iN/oJHfUXBI1q +KdeoNR65SdLRdbV5ittXEspF3yemlNDRObxoWd4wCaWho6zMcjrOlLVImo6Q +UDw7/W9WNR1tF7XUfKCc17tqU8EbOo6Eun3g+0YCaSrW8KyNjrTlK05GU86u +kHWt7KSj/RpfJ5HvJDzM2Pb09Xs6bnf+12rNGAmJ56xgaJqOvIjPRe0/SEjo +dxz6Mk9Hb9mTcjvHSYg39wr9vkDHTT4FSsmUY7ayX//iJxAt9qgdmSAh8sEN +t79CBDbS2YpZlNniyWuXriPQhf62YY5y8H+5x9dsJFCIeLI85icJga5l8+sI +AtfF7s9opXxpsDZZSoHAtSsYo8KTJPgdbEU5FQI/zrMGTSj7VPd+YGoQGPH8 +cVAwZS/Nz2FK2gSGXvVqyafs8WhcUV2XQD0HXvMQZTfJ/xq19AiMt3IOFJii +8jNymYeuIYFyBiX/qlN2/LNGVN+EQE4rd+oQZXt3qcK9BwjkpZ0qc6d89j3j +pOlRAlMVO7ezKdscVvt9yIJAt2rNc/coW77UST1hTeBwevSRbMoW2gb6VrYE +KvVMTxdRPp5l9umsE4G/j4cdqKB8ZMNJtpMbgcZfjttVUT4YfVbJ3YvAENWr +mi8omy24Nl3wJXAFyawqpWxy3ve8/2UCY2uOC+RR3vcheF1QMIG3M7XEMinv +ORpdFBpOYJXlYP91yvp1CRaRUQSadbo7BFAGnfQ/cdcJ9GxZ/tSGsi4nO+32 +bQJrB6tf6FHuleOk7kkiUDeJI0aj7H87K2UqlcCGp8Olv6n1kxB4nJyRSV3v +4FTQTrnoysN7h7IIrLm9ni+L8rHZzKTFPAKFX/Q/8KM85ZKRmJNH4JkV2SmG +lDVOpN0RKiNwfYTY7XfU9219k5LwvJLAfmbM7QTKHruTb7u8JPBO0qvxo5R5 +qonxDU0EmmcYFNZR+WKaeeem31sCuWGORADlb5IJNxS6CHz/SWRsM2XFZfFx +Ye+p9btYmxpI5eMr/xuxmp8JLBgsZDMo24/HxXwcIfCc6u+2l1Q+Z/ZGR+lP +Eah6yyL2D5Xvuw9GRU78IvBViTVfPOWh2oiItD8EivZf75OnLJcXzv67nIGn +W05V6VH1UrEpLJy7moF/vD+21FP1ZJV8NewfYQaSNQH7zCgnsa9cfSbJQJno +cp/9o1T/sg4I8lFmoMbKNaMyVP0WtPsFMtUZ6CkYYnmNqu8jxr7/a9dk4PiJ +TzhB1f8NTe9LGkA9L8XdqvAzCYIC7r5jBxm4sDZBeD3VP7KvuF5MPsbAaCdv +ebsPJBjPnvPZf4qByumGBTlUv2EPOV54YstA+eYmPRbVj5aWnPGwv8jAA6oT +GsoDJGSonnYXu8TAzbx+ZWuqn+lnWrvVBDFQqP7To5g+qh5j/3GhRzAwv8CB ++YHqh/N2xxwH7jFQ5aTiqTOdJEyIGNscq2JgkBU96VkzCV0u9BbnOgYmVzRN +pDZR+0ftPAQ2MpA3HAFX3pAQ58+RfdzBwA5O2kvt1yRsGRIYnBth4NFsl/QL +tVR95jZbJosy8YmVeptqGZVPqx+/yZVgYrbgjl3tz0jYZRfEqpVhYuoyyyLv +Emo9JNVlfmxiYlJlVEd2IbUeQTf6UJeJXj3TP0ZzSBgxP3rqoy0Ty+q3NvKo +/astS+X1Lycm6gW4PBXLIOEZ3/Kdgu5M3BPtW+57n4RrRYVSWn5M1B9v3rM1 +hQQFWYme8Ggmclbx6ftT+6XDWM8JpUIm/txfrXXwGrX/RNkc81whj/F+U2dV +nKn3H1GmbxGQx2M+b5eBIwmze+e+fxeWxyUzP71M7UlYxXcj1ElKHu1thkps +zlDx+1Xn26jI43ov+prTFiRctpMXNT8sjw/rLk/XG1H5sutbs1KqPNavP+C3 +R56EtKTipOEMeZz+X7LQJEHl+9xVh0eP5TGi0e5OMo2q53yZBXqePEr3hscM +S1P9arO5qtRLeby4YbWipSgJOevzolaOyuO5pwva+Qs8MPpx0eiT1iakq/zt +2EzNR9LqG8NW6m7CsPxtlUDNT2OeNVVKepvwV5v23oMtPIifEdb1NNmEdZ3W +ms4NPBj4k6W6YL0JS6bOv/Aq54GnQJ+o5LVNOMF5KfrlAQ8SFXFgf+8mdEy+ +EGPhSc13Z1d65Qcq4BuZ7c7vFlP3TzF4XnFVATXf2yZsoebFH91BK15fU0D2 +CZlv7Hku/DSfS3p/UwF/MgZF1Ce5MLtzpEbosQLGxXletabmzyXrGtc7tSig +eemwm1YtFyRrYp/J0BTxr2UR0RXOpf5PxJeEVymiyLeiLCM+Loi8kY/J+bEZ +FVd9jcr4yQFpNnlAS0sZYxcLz+lynsAdJR1hUQcV1CWUw56ezoIGKT3Nyeuq +uHyMP6BM8DHskK6KU+tQw0fFurR3sQ9BiC/9wungLdiuFh+7j/EANl6R1T0p +r46egT+SXyVkAD/zn8JDdeqo4pM8NLAuHVRZkuRFSw1sU7R2+56bBp4DItXG +i7bi58gdY1o+KfBjMuqo0Z2t6LT2o+fqt0mwV6020UhlGzbzrH7Fn7gL5ZM7 +/5tt2oYPxG5UPWq4DW7KGj2tdprI1tXk3Y+MB9aYbftJfi1UiJeISTW4AXsY +EqaC6VqYpywpsNMkDhSCInyrtLVxqUnDX6vF0bDZTqeC2aONgiWGT1s9roFd +uePV/PPb0Zk3t63VMQwq0tptJ8R0cETt6nixewhMPV6YVSvSQSFD9qLq1iA4 +y+TwJ5ruQHsZKyk0uAwTm29q5Y3vwK10T9vtAn5QnPnf+2n2TlQKuTqfEecN +FgYE7tyoi8OPPl29FekJG1zDS1QrdVEz4GX0txPuILbKJdf0OAtTPjcVDXOd +IXP3Zf/xkyw0U9vQF5DoDBqXY3bf/IeFvlvVf0uGO4PZeM67rtMstDZNlPS3 +cYawjum5sy4svNBWrFov6gy/0gP1/a+w8NYK4/HkS07Qs/Pm24ccFpYt9/H7 +75gjOHpn3jPisdChRdlryR5HmOEV2H3LYWF8cU7Juq2OIELvmlUvZKHA8Qjx +U2scwWSljPTzShZWZ/IC3V45QFn7Q9u371h4M3/QjKPrAMZCxSo+XSz0dDaJ +s1VygK699TMSvSzkdBS8UpBygKlno2yrf1m4fFSXv23WHlTub+EOj7DwUPeh +bY+e2kNZj55P1HcWvnw4cqco3R6M1x0GtXEWGssINrRdtwf7cO/WC9MsfHGm ++ZKihz1MVYYliv9iofnvfydtre0heD7h7LN5Fg6/s6FzzOxBeFuWsuUfFi6b +XsX3m2UPKa7PphcWWBiZdi/uuIo9/B9T3JGp + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwN13k4Ff0XAPBKm0IiWSLunXtFtiik3M4hKYT2Ra+lsmeLyFI/ItzslVJk +CS267h1kjRAiki3ZlzetKJEt3spv/phnns/zzDMz5zvnnO8Z2hn3Q3ZLFi1a +tGQxdVDnmYH6GkZk5q5nc68rD3Tt3NWeIuGn1xUMBhIu/H0RkoBizWckum5A +1KpYifQIRfA58KSTrysdggvt4HKEDqwdE78x15kHZ1bSD5hEGMFgmZn7VGcV +tH0eMc+/dhIMGSP9E51tsPt1dqNHuBPMdWrfGu8cgpMhYyMe//OD6t2PMlvT +J0FgzZyzqUMESA+WfD6j/AfObVB+Iux6E9a5WD9ZsZsP66PixWIP3oUb6oal +ZkdX4pV2xU8ch1TovrOlckJYECOWd/FZWqVDZGZg8xLJtRjt7bDoAf8DEI// +cO1msihuu5OWk+j4CMKPGO1qmxHDp/3R1c9tssBL5751fbAEzhytY17fyQHj +NKEpkygJnFJ+7vFNjwP0FZfYTbcksO653uXd+zjQ0n4s9+1jCVztuar74xEO +qHoI8A00SaD9H6uYKVcOfH148eFPKUl8bth8bW8qB/5ZZ/Z9w1NJjK5521D8 +lwMGP+b93T5I4d+S+F35Odngty9+84tvUijpc1BvqCAbePdVekRnpDAgJURK +oDQbJI7Y6JSs3ICGFpfND7/Mhm/FL2f5VDdgyN/z5WR3NtwMjrtw13cDsjLn +2WmLuTAkJu9WIyiN4Vfo9TZmXBB3r5ARF5fG66I/jfkPc2H/qxNvnOSkse38 +ixTucS4U+kcqr9kqjZ03RcqGbbgQMTg+cvKENL5blPhazYsLGlmlDj/SpXF5 +ubHG5G0uXNE9eFpquwwqdF2YONbLhX1WKT+19WXwTNsp17eDXBAKGg05ul8G +j0nO/Db+yIV71aEP42xkkC876LjSdy4UGz8bXX5NBlt5ff/l/OXC+AnCZ7Jb +BvtafMVa5Hhg5T0d0RiwEdn1Ju5Wp3nATNCXHgndiOmMiASWHY+KP5a7Im4j +zgr1dYo78cD/t2KLfuZG7AtOvv/cgwe3QqzESho34pSRqE1TIA8ar9elPpCR +xVa/gcqlyTzYwbub/78KWfR7rSFW95YHBp1Nf8ZeyaJ0rqFIWwcPzBYt3Wvd +JoudEcy2rm4enD3k1g2fZNGUEZjUPcgDwwBaYNAyOXyU7WX5eJQHHrIzGXpK +cnhLYdFX/yUk1Dikfq/2kcN7Pbq3ZpRJMPqtI3IpQA4rB7pu+auR0BTXrrUt +SA4Zzn228+okdJfwB2Vek0PRHw3u37VIGFt9QST0nhzKLTXbcx9JkMjZp21Y +JYf7K2QP4WESXH5NBL0SpOG2YvWd1t4k7Dhvv/6zCA2Llu26x75IwsqRHg6f +BA3VjtXSuH4kPOit7thFp+HswyXJXy6TMFB+S7lAi4ZLFns60MNIMA/V6bpv +TUNnPuMR8hYJG/9yXStsaWg+IfglMoGEbz50vn4nGr5gFoievUsC23G1qsQF +Gg4L5CwsSSah0qQ/JIZNw3RhjjZ/JgkaIlfUAnJpqFwq0qGWS8KiyOmaO4U0 +tLhYqlKRR8XP52xRWErD6emOF0b5JJybPhQ68ZKGnNrc9ANFJGR2MXodeqj3 +0TS0Yj4nwfPgXY/QQRoaZDTmxJSTgA2CyzM+0lB40s9wsoKE/tKZLQNjNFx8 +pngXr4qE9amvwo7w0THTVCBgtI6Ej+Isac+VdCzv5l9QrSchLy43N1aQjiXK +im9cG6j4gxP7GsTp6GJpbdLfSMVn56Khp0xHf5HPX0NaSZhTEh5QOUpHNaVa +7/FuEmaSpa5staCje5Ip+2MPCVNrmAwdazp+jX+/sb2X+n6TOs4GTnS0e9LS ++6CfhKHSszMWl+mYFObCE31PwqCK212bYDoeiP45/4FyX6qvrn04HTfYvm8j +h0joCIkOPn+djqK/ShR2fCShwaRIiP2Ajjk+zWGSX0ioe/4iN/oJHfUXBI1q +KdeoNR65SdLRdbV5ittXEspF3yemlNDRObxoWd4wCaWho6zMcjrOlLVImo6Q +UDw7/W9WNR1tF7XUfKCc17tqU8EbOo6Eun3g+0YCaSrW8KyNjrTlK05GU86u +kHWt7KSj/RpfJ5HvJDzM2Pb09Xs6bnf+12rNGAmJ56xgaJqOvIjPRe0/SEjo +dxz6Mk9Hb9mTcjvHSYg39wr9vkDHTT4FSsmUY7ayX//iJxAt9qgdmSAh8sEN +t79CBDbS2YpZlNniyWuXriPQhf62YY5y8H+5x9dsJFCIeLI85icJga5l8+sI +AtfF7s9opXxpsDZZSoHAtSsYo8KTJPgdbEU5FQI/zrMGTSj7VPd+YGoQGPH8 +cVAwZS/Nz2FK2gSGXvVqyafs8WhcUV2XQD0HXvMQZTfJ/xq19AiMt3IOFJii +8jNymYeuIYFyBiX/qlN2/LNGVN+EQE4rd+oQZXt3qcK9BwjkpZ0qc6d89j3j +pOlRAlMVO7ezKdscVvt9yIJAt2rNc/coW77UST1hTeBwevSRbMoW2gb6VrYE +KvVMTxdRPp5l9umsE4G/j4cdqKB8ZMNJtpMbgcZfjttVUT4YfVbJ3YvAENWr +mi8omy24Nl3wJXAFyawqpWxy3ve8/2UCY2uOC+RR3vcheF1QMIG3M7XEMinv +ORpdFBpOYJXlYP91yvp1CRaRUQSadbo7BFAGnfQ/cdcJ9GxZ/tSGsi4nO+32 +bQJrB6tf6FHuleOk7kkiUDeJI0aj7H87K2UqlcCGp8Olv6n1kxB4nJyRSV3v +4FTQTrnoysN7h7IIrLm9ni+L8rHZzKTFPAKFX/Q/8KM85ZKRmJNH4JkV2SmG +lDVOpN0RKiNwfYTY7XfU9219k5LwvJLAfmbM7QTKHruTb7u8JPBO0qvxo5R5 +qonxDU0EmmcYFNZR+WKaeeem31sCuWGORADlb5IJNxS6CHz/SWRsM2XFZfFx +Ye+p9btYmxpI5eMr/xuxmp8JLBgsZDMo24/HxXwcIfCc6u+2l1Q+Z/ZGR+lP +Eah6yyL2D5Xvuw9GRU78IvBViTVfPOWh2oiItD8EivZf75OnLJcXzv67nIGn +W05V6VH1UrEpLJy7moF/vD+21FP1ZJV8NewfYQaSNQH7zCgnsa9cfSbJQJno +cp/9o1T/sg4I8lFmoMbKNaMyVP0WtPsFMtUZ6CkYYnmNqu8jxr7/a9dk4PiJ +TzhB1f8NTe9LGkA9L8XdqvAzCYIC7r5jBxm4sDZBeD3VP7KvuF5MPsbAaCdv +ebsPJBjPnvPZf4qByumGBTlUv2EPOV54YstA+eYmPRbVj5aWnPGwv8jAA6oT +GsoDJGSonnYXu8TAzbx+ZWuqn+lnWrvVBDFQqP7To5g+qh5j/3GhRzAwv8CB ++YHqh/N2xxwH7jFQ5aTiqTOdJEyIGNscq2JgkBU96VkzCV0u9BbnOgYmVzRN +pDZR+0ftPAQ2MpA3HAFX3pAQ58+RfdzBwA5O2kvt1yRsGRIYnBth4NFsl/QL +tVR95jZbJosy8YmVeptqGZVPqx+/yZVgYrbgjl3tz0jYZRfEqpVhYuoyyyLv +Emo9JNVlfmxiYlJlVEd2IbUeQTf6UJeJXj3TP0ZzSBgxP3rqoy0Ty+q3NvKo +/astS+X1Lycm6gW4PBXLIOEZ3/Kdgu5M3BPtW+57n4RrRYVSWn5M1B9v3rM1 +hQQFWYme8Ggmclbx6ftT+6XDWM8JpUIm/txfrXXwGrX/RNkc81whj/F+U2dV +nKn3H1GmbxGQx2M+b5eBIwmze+e+fxeWxyUzP71M7UlYxXcj1ElKHu1thkps +zlDx+1Xn26jI43ov+prTFiRctpMXNT8sjw/rLk/XG1H5sutbs1KqPNavP+C3 +R56EtKTipOEMeZz+X7LQJEHl+9xVh0eP5TGi0e5OMo2q53yZBXqePEr3hscM +S1P9arO5qtRLeby4YbWipSgJOevzolaOyuO5pwva+Qs8MPpx0eiT1iakq/zt +2EzNR9LqG8NW6m7CsPxtlUDNT2OeNVVKepvwV5v23oMtPIifEdb1NNmEdZ3W +ms4NPBj4k6W6YL0JS6bOv/Aq54GnQJ+o5LVNOMF5KfrlAQ8SFXFgf+8mdEy+ +EGPhSc13Z1d65Qcq4BuZ7c7vFlP3TzF4XnFVATXf2yZsoebFH91BK15fU0D2 +CZlv7Hku/DSfS3p/UwF/MgZF1Ce5MLtzpEbosQLGxXletabmzyXrGtc7tSig +eemwm1YtFyRrYp/J0BTxr2UR0RXOpf5PxJeEVymiyLeiLCM+Loi8kY/J+bEZ +FVd9jcr4yQFpNnlAS0sZYxcLz+lynsAdJR1hUQcV1CWUw56ezoIGKT3Nyeuq +uHyMP6BM8DHskK6KU+tQw0fFurR3sQ9BiC/9wungLdiuFh+7j/EANl6R1T0p +r46egT+SXyVkAD/zn8JDdeqo4pM8NLAuHVRZkuRFSw1sU7R2+56bBp4DItXG +i7bi58gdY1o+KfBjMuqo0Z2t6LT2o+fqt0mwV6020UhlGzbzrH7Fn7gL5ZM7 +/5tt2oYPxG5UPWq4DW7KGj2tdprI1tXk3Y+MB9aYbftJfi1UiJeISTW4AXsY +EqaC6VqYpywpsNMkDhSCInyrtLVxqUnDX6vF0bDZTqeC2aONgiWGT1s9roFd +uePV/PPb0Zk3t63VMQwq0tptJ8R0cETt6nixewhMPV6YVSvSQSFD9qLq1iA4 +y+TwJ5ruQHsZKyk0uAwTm29q5Y3vwK10T9vtAn5QnPnf+2n2TlQKuTqfEecN +FgYE7tyoi8OPPl29FekJG1zDS1QrdVEz4GX0txPuILbKJdf0OAtTPjcVDXOd +IXP3Zf/xkyw0U9vQF5DoDBqXY3bf/IeFvlvVf0uGO4PZeM67rtMstDZNlPS3 +cYawjum5sy4svNBWrFov6gy/0gP1/a+w8NYK4/HkS07Qs/Pm24ccFpYt9/H7 +75gjOHpn3jPisdChRdlryR5HmOEV2H3LYWF8cU7Juq2OIELvmlUvZKHA8Qjx +U2scwWSljPTzShZWZ/IC3V45QFn7Q9u371h4M3/QjKPrAMZCxSo+XSz0dDaJ +s1VygK699TMSvSzkdBS8UpBygKlno2yrf1m4fFSXv23WHlTub+EOj7DwUPeh +bY+e2kNZj55P1HcWvnw4cqco3R6M1x0GtXEWGssINrRdtwf7cO/WC9MsfHGm ++ZKihz1MVYYliv9iofnvfydtre0heD7h7LN5Fg6/s6FzzOxBeFuWsuUfFi6b +XsX3m2UPKa7PphcWWBiZdi/uuIo9/B9T3JGp + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06241424071408959}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.06241424071408959}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwN13k4Ff0XAPBKm0IiWSLunXtFtiik3M4hKYT2Ra+lsmeLyFI/ItzslVJk +CS267h1kjRAiki3ZlzetKJEt3spv/phnns/zzDMz5zvnnO8Z2hn3Q3ZLFi1a +tGQxdVDnmYH6GkZk5q5nc68rD3Tt3NWeIuGn1xUMBhIu/H0RkoBizWckum5A +1KpYifQIRfA58KSTrysdggvt4HKEDqwdE78x15kHZ1bSD5hEGMFgmZn7VGcV +tH0eMc+/dhIMGSP9E51tsPt1dqNHuBPMdWrfGu8cgpMhYyMe//OD6t2PMlvT +J0FgzZyzqUMESA+WfD6j/AfObVB+Iux6E9a5WD9ZsZsP66PixWIP3oUb6oal +ZkdX4pV2xU8ch1TovrOlckJYECOWd/FZWqVDZGZg8xLJtRjt7bDoAf8DEI// +cO1msihuu5OWk+j4CMKPGO1qmxHDp/3R1c9tssBL5751fbAEzhytY17fyQHj +NKEpkygJnFJ+7vFNjwP0FZfYTbcksO653uXd+zjQ0n4s9+1jCVztuar74xEO +qHoI8A00SaD9H6uYKVcOfH148eFPKUl8bth8bW8qB/5ZZ/Z9w1NJjK5521D8 +lwMGP+b93T5I4d+S+F35Odngty9+84tvUijpc1BvqCAbePdVekRnpDAgJURK +oDQbJI7Y6JSs3ICGFpfND7/Mhm/FL2f5VDdgyN/z5WR3NtwMjrtw13cDsjLn +2WmLuTAkJu9WIyiN4Vfo9TZmXBB3r5ARF5fG66I/jfkPc2H/qxNvnOSkse38 +ixTucS4U+kcqr9kqjZ03RcqGbbgQMTg+cvKENL5blPhazYsLGlmlDj/SpXF5 +ubHG5G0uXNE9eFpquwwqdF2YONbLhX1WKT+19WXwTNsp17eDXBAKGg05ul8G +j0nO/Db+yIV71aEP42xkkC876LjSdy4UGz8bXX5NBlt5ff/l/OXC+AnCZ7Jb +BvtafMVa5Hhg5T0d0RiwEdn1Ju5Wp3nATNCXHgndiOmMiASWHY+KP5a7Im4j +zgr1dYo78cD/t2KLfuZG7AtOvv/cgwe3QqzESho34pSRqE1TIA8ar9elPpCR +xVa/gcqlyTzYwbub/78KWfR7rSFW95YHBp1Nf8ZeyaJ0rqFIWwcPzBYt3Wvd +JoudEcy2rm4enD3k1g2fZNGUEZjUPcgDwwBaYNAyOXyU7WX5eJQHHrIzGXpK +cnhLYdFX/yUk1Dikfq/2kcN7Pbq3ZpRJMPqtI3IpQA4rB7pu+auR0BTXrrUt +SA4Zzn228+okdJfwB2Vek0PRHw3u37VIGFt9QST0nhzKLTXbcx9JkMjZp21Y +JYf7K2QP4WESXH5NBL0SpOG2YvWd1t4k7Dhvv/6zCA2Llu26x75IwsqRHg6f +BA3VjtXSuH4kPOit7thFp+HswyXJXy6TMFB+S7lAi4ZLFns60MNIMA/V6bpv +TUNnPuMR8hYJG/9yXStsaWg+IfglMoGEbz50vn4nGr5gFoievUsC23G1qsQF +Gg4L5CwsSSah0qQ/JIZNw3RhjjZ/JgkaIlfUAnJpqFwq0qGWS8KiyOmaO4U0 +tLhYqlKRR8XP52xRWErD6emOF0b5JJybPhQ68ZKGnNrc9ANFJGR2MXodeqj3 +0TS0Yj4nwfPgXY/QQRoaZDTmxJSTgA2CyzM+0lB40s9wsoKE/tKZLQNjNFx8 +pngXr4qE9amvwo7w0THTVCBgtI6Ej+Isac+VdCzv5l9QrSchLy43N1aQjiXK +im9cG6j4gxP7GsTp6GJpbdLfSMVn56Khp0xHf5HPX0NaSZhTEh5QOUpHNaVa +7/FuEmaSpa5staCje5Ip+2MPCVNrmAwdazp+jX+/sb2X+n6TOs4GTnS0e9LS ++6CfhKHSszMWl+mYFObCE31PwqCK212bYDoeiP45/4FyX6qvrn04HTfYvm8j +h0joCIkOPn+djqK/ShR2fCShwaRIiP2Ajjk+zWGSX0ioe/4iN/oJHfUXBI1q +KdeoNR65SdLRdbV5ittXEspF3yemlNDRObxoWd4wCaWho6zMcjrOlLVImo6Q +UDw7/W9WNR1tF7XUfKCc17tqU8EbOo6Eun3g+0YCaSrW8KyNjrTlK05GU86u +kHWt7KSj/RpfJ5HvJDzM2Pb09Xs6bnf+12rNGAmJ56xgaJqOvIjPRe0/SEjo +dxz6Mk9Hb9mTcjvHSYg39wr9vkDHTT4FSsmUY7ayX//iJxAt9qgdmSAh8sEN +t79CBDbS2YpZlNniyWuXriPQhf62YY5y8H+5x9dsJFCIeLI85icJga5l8+sI +AtfF7s9opXxpsDZZSoHAtSsYo8KTJPgdbEU5FQI/zrMGTSj7VPd+YGoQGPH8 +cVAwZS/Nz2FK2gSGXvVqyafs8WhcUV2XQD0HXvMQZTfJ/xq19AiMt3IOFJii +8jNymYeuIYFyBiX/qlN2/LNGVN+EQE4rd+oQZXt3qcK9BwjkpZ0qc6d89j3j +pOlRAlMVO7ezKdscVvt9yIJAt2rNc/coW77UST1hTeBwevSRbMoW2gb6VrYE +KvVMTxdRPp5l9umsE4G/j4cdqKB8ZMNJtpMbgcZfjttVUT4YfVbJ3YvAENWr +mi8omy24Nl3wJXAFyawqpWxy3ve8/2UCY2uOC+RR3vcheF1QMIG3M7XEMinv +ORpdFBpOYJXlYP91yvp1CRaRUQSadbo7BFAGnfQ/cdcJ9GxZ/tSGsi4nO+32 +bQJrB6tf6FHuleOk7kkiUDeJI0aj7H87K2UqlcCGp8Olv6n1kxB4nJyRSV3v +4FTQTrnoysN7h7IIrLm9ni+L8rHZzKTFPAKFX/Q/8KM85ZKRmJNH4JkV2SmG +lDVOpN0RKiNwfYTY7XfU9219k5LwvJLAfmbM7QTKHruTb7u8JPBO0qvxo5R5 +qonxDU0EmmcYFNZR+WKaeeem31sCuWGORADlb5IJNxS6CHz/SWRsM2XFZfFx +Ye+p9btYmxpI5eMr/xuxmp8JLBgsZDMo24/HxXwcIfCc6u+2l1Q+Z/ZGR+lP +Eah6yyL2D5Xvuw9GRU78IvBViTVfPOWh2oiItD8EivZf75OnLJcXzv67nIGn +W05V6VH1UrEpLJy7moF/vD+21FP1ZJV8NewfYQaSNQH7zCgnsa9cfSbJQJno +cp/9o1T/sg4I8lFmoMbKNaMyVP0WtPsFMtUZ6CkYYnmNqu8jxr7/a9dk4PiJ +TzhB1f8NTe9LGkA9L8XdqvAzCYIC7r5jBxm4sDZBeD3VP7KvuF5MPsbAaCdv +ebsPJBjPnvPZf4qByumGBTlUv2EPOV54YstA+eYmPRbVj5aWnPGwv8jAA6oT +GsoDJGSonnYXu8TAzbx+ZWuqn+lnWrvVBDFQqP7To5g+qh5j/3GhRzAwv8CB ++YHqh/N2xxwH7jFQ5aTiqTOdJEyIGNscq2JgkBU96VkzCV0u9BbnOgYmVzRN +pDZR+0ftPAQ2MpA3HAFX3pAQ58+RfdzBwA5O2kvt1yRsGRIYnBth4NFsl/QL +tVR95jZbJosy8YmVeptqGZVPqx+/yZVgYrbgjl3tz0jYZRfEqpVhYuoyyyLv +Emo9JNVlfmxiYlJlVEd2IbUeQTf6UJeJXj3TP0ZzSBgxP3rqoy0Ty+q3NvKo +/astS+X1Lycm6gW4PBXLIOEZ3/Kdgu5M3BPtW+57n4RrRYVSWn5M1B9v3rM1 +hQQFWYme8Ggmclbx6ftT+6XDWM8JpUIm/txfrXXwGrX/RNkc81whj/F+U2dV +nKn3H1GmbxGQx2M+b5eBIwmze+e+fxeWxyUzP71M7UlYxXcj1ElKHu1thkps +zlDx+1Xn26jI43ov+prTFiRctpMXNT8sjw/rLk/XG1H5sutbs1KqPNavP+C3 +R56EtKTipOEMeZz+X7LQJEHl+9xVh0eP5TGi0e5OMo2q53yZBXqePEr3hscM +S1P9arO5qtRLeby4YbWipSgJOevzolaOyuO5pwva+Qs8MPpx0eiT1iakq/zt +2EzNR9LqG8NW6m7CsPxtlUDNT2OeNVVKepvwV5v23oMtPIifEdb1NNmEdZ3W +ms4NPBj4k6W6YL0JS6bOv/Aq54GnQJ+o5LVNOMF5KfrlAQ8SFXFgf+8mdEy+ +EGPhSc13Z1d65Qcq4BuZ7c7vFlP3TzF4XnFVATXf2yZsoebFH91BK15fU0D2 +CZlv7Hku/DSfS3p/UwF/MgZF1Ce5MLtzpEbosQLGxXletabmzyXrGtc7tSig +eemwm1YtFyRrYp/J0BTxr2UR0RXOpf5PxJeEVymiyLeiLCM+Loi8kY/J+bEZ +FVd9jcr4yQFpNnlAS0sZYxcLz+lynsAdJR1hUQcV1CWUw56ezoIGKT3Nyeuq +uHyMP6BM8DHskK6KU+tQw0fFurR3sQ9BiC/9wungLdiuFh+7j/EANl6R1T0p +r46egT+SXyVkAD/zn8JDdeqo4pM8NLAuHVRZkuRFSw1sU7R2+56bBp4DItXG +i7bi58gdY1o+KfBjMuqo0Z2t6LT2o+fqt0mwV6020UhlGzbzrH7Fn7gL5ZM7 +/5tt2oYPxG5UPWq4DW7KGj2tdprI1tXk3Y+MB9aYbftJfi1UiJeISTW4AXsY +EqaC6VqYpywpsNMkDhSCInyrtLVxqUnDX6vF0bDZTqeC2aONgiWGT1s9roFd +uePV/PPb0Zk3t63VMQwq0tptJ8R0cETt6nixewhMPV6YVSvSQSFD9qLq1iA4 +y+TwJ5ruQHsZKyk0uAwTm29q5Y3vwK10T9vtAn5QnPnf+2n2TlQKuTqfEecN +FgYE7tyoi8OPPl29FekJG1zDS1QrdVEz4GX0txPuILbKJdf0OAtTPjcVDXOd +IXP3Zf/xkyw0U9vQF5DoDBqXY3bf/IeFvlvVf0uGO4PZeM67rtMstDZNlPS3 +cYawjum5sy4svNBWrFov6gy/0gP1/a+w8NYK4/HkS07Qs/Pm24ccFpYt9/H7 +75gjOHpn3jPisdChRdlryR5HmOEV2H3LYWF8cU7Juq2OIELvmlUvZKHA8Qjx +U2scwWSljPTzShZWZ/IC3V45QFn7Q9u371h4M3/QjKPrAMZCxSo+XSz0dDaJ +s1VygK699TMSvSzkdBS8UpBygKlno2yrf1m4fFSXv23WHlTub+EOj7DwUPeh +bY+e2kNZj55P1HcWvnw4cqco3R6M1x0GtXEWGssINrRdtwf7cO/WC9MsfHGm ++ZKihz1MVYYliv9iofnvfydtre0heD7h7LN5Fg6/s6FzzOxBeFuWsuUfFi6b +XsX3m2UPKa7PphcWWBiZdi/uuIo9/B9T3JGp + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06241424071408959}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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.06241424071408959}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913408819317417`*^9, 3.9920902206556416`*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"47e58eaa-14ec-fe46-8896-8bdab7804ed4"] +}, 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[97]:=",ExpressionUUID->"eea9d904-4069-4649-bea7-08e03245dd6c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.314285898095842`*^-217\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 97, 146, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323664732767*^9, 3.99170890340884*^9, + 3.992090220724167*^9}, + CellLabel-> + "During evaluation of \ +In[97]:=",ExpressionUUID->"297b3917-f89a-0246-aa10-39e7fe008f44"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.74375517948971`*^-223\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 97, 147, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323664732767*^9, 3.99170890340884*^9, + 3.9920902207331676`*^9}, + CellLabel-> + "During evaluation of \ +In[97]:=",ExpressionUUID->"a15e307a-c029-db4d-9ccf-908ec1e02c3a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.460299923082479`*^-228\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 97, 148, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323664732767*^9, 3.99170890340884*^9, + 3.9920902207391644`*^9}, + CellLabel-> + "During evaluation of \ +In[97]:=",ExpressionUUID->"07817f25-3005-da49-b6f2-115349f6c932"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 97, 149, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323664732767*^9, 3.99170890340884*^9, + 3.9920902207471657`*^9}, + CellLabel-> + "During evaluation of \ +In[97]:=",ExpressionUUID->"a5b76321-d487-494f-a8f0-28c1a9327ad5"], + +Cell[BoxData["12.179486664213174`"], "Output", + CellChangeTimes->{3.9913236764669056`*^9, 3.991708909801548*^9, + 3.9920902427772408`*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"b299da9e-abca-3e4b-8017-f973fc3fcb0a"] +}, 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.9917953473881397`*^9, 3.9917953498651447`*^9}, + 3.991795392697935*^9}, + CellLabel->"In[98]:=",ExpressionUUID->"3915107a-86d9-0f46-b139-986db5ca6b3b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.5100290958794936`*^-208\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 98, 150, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236765399036`*^9, 3.991708909851534*^9, + 3.9920902428342724`*^9}, + CellLabel-> + "During evaluation of \ +In[98]:=",ExpressionUUID->"0253666c-215a-d743-b5e6-d25ed4d9abd5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.216438480707413`*^-213\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 98, 151, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236765399036`*^9, 3.991708909851534*^9, + 3.9920902428482304`*^9}, + CellLabel-> + "During evaluation of \ +In[98]:=",ExpressionUUID->"b077382c-7b28-1347-bd4f-028175da9e2e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.033493320002329`*^-218\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 98, 152, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236765399036`*^9, 3.991708909851534*^9, + 3.9920902428552685`*^9}, + CellLabel-> + "During evaluation of \ +In[98]:=",ExpressionUUID->"07423249-97eb-cf49-8cdb-27573bb00791"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 98, 153, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236765399036`*^9, 3.991708909851534*^9, + 3.9920902428632374`*^9}, + CellLabel-> + "During evaluation of \ +In[98]:=",ExpressionUUID->"4192f7d4-03b1-2a46-9d32-e7ab7a877684"], + +Cell[BoxData["3.404884044232224`"], "Output", + CellChangeTimes->{3.9913236883162384`*^9, 3.991708915455509*^9, + 3.9920902483550053`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"e1fe7bde-cdc4-6f4e-9f38-7a93d0c645c6"] +}, 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.991795355482418*^9, 3.991795359037939*^9}}, + CellLabel->"In[99]:=",ExpressionUUID->"f3705611-962a-7d49-8494-287e0d1eefa8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.5100290958794936`*^-208\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 99, 154, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132368839011*^9, 3.9917089154944935`*^9, + 3.9920902483931904`*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"1798346d-f9bf-4d47-9ed9-c5409b70307e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.216438480707413`*^-213\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 99, 155, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132368839011*^9, 3.9917089154944935`*^9, + 3.9920902484001884`*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"7fb09d21-401e-5247-8d64-d7ceed03fd8b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.033493320002329`*^-218\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 99, 156, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132368839011*^9, 3.9917089154944935`*^9, + 3.992090248411209*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"20a7c27e-c0a4-0f45-b664-3c15b52f3892"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 99, 157, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132368839011*^9, 3.9917089154944935`*^9, + 3.992090248418209*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"0f69f23f-9ebd-e648-bdb9-6fd79332c624"], + +Cell[BoxData["16.62956224492374`"], "Output", + CellChangeTimes->{3.9913236988049507`*^9, 3.9917089191072826`*^9, + 3.9920902529411163`*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"5039ca40-577a-9845-9005-952d6fd4ba80"] +}, 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.991795365232689*^9, 3.991795367348419*^9}}, + CellLabel-> + "In[100]:=",ExpressionUUID->"1c2bb25c-a24b-4143-a03c-8699409c5ef4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.5100290958794936`*^-208\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 100, 158, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698915848*^9, 3.991708919139282*^9, + 3.9920902530044804`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"1e42db4b-3b6e-c242-b9d7-d1a4a590205c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.216438480707413`*^-213\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 100, 159, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698915848*^9, 3.991708919139282*^9, + 3.9920902530120106`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"5711e838-c643-2748-8d96-0fab3b2f1e7d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.033493320002329`*^-218\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 100, 160, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698915848*^9, 3.991708919139282*^9, + 3.9920902530190296`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"dd8620f4-80cf-c643-a446-5bcc1b5bdb0e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 100, 161, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698915848*^9, 3.991708919139282*^9, + 3.9920902530260105`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"cf9dccda-eee8-994b-ad9a-25e60dad1234"], + +Cell[BoxData["43.86559170482372`"], "Output", + CellChangeTimes->{3.991323706795576*^9, 3.991708921519884*^9, + 3.9920902558013306`*^9}, + CellLabel-> + "Out[100]=",ExpressionUUID->"10ac8af1-fb09-ed44-ade0-041f4f437b34"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991795377777033*^9, 3.9917953861610203`*^9}}, + CellLabel-> + "In[101]:=",ExpressionUUID->"df5a49d1-7ffc-9d41-9de9-b2cb4ed5c458"], + +Cell[BoxData["0.12606656565099386`"], "Output", + CellChangeTimes->{3.991323706858589*^9, 3.9917089215598965`*^9, + 3.992090255834341*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"9a8cd210-28fb-3a49-9264-6c45d78c3519"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991795400313652*^9, 3.991795402535782*^9}, + 3.9919235486175213`*^9}, + CellLabel-> + "In[102]:=",ExpressionUUID->"f1e753e6-7de9-0b47-aa25-47e49d9ceac1"], + +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[103]:=",ExpressionUUID->"24c8f2e4-3fba-8b49-a53c-9297f14cb47a"], + +Cell[BoxData["10.443657984079762`"], "Output", + CellChangeTimes->{3.991323706886154*^9, 3.9917089973478775`*^9, + 3.99209025584334*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"d71ca9d4-3a99-114e-8429-d0bb97d6c51f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[104]:=",ExpressionUUID->"56d70fe5-9e2b-c64e-bfc2-fde134e22b5d"], + +Cell[BoxData["3.1139982372491035`"], "Output", + CellChangeTimes->{3.9913237069236546`*^9, 3.9917089973924427`*^9, + 3.99209025585034*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"40be2a73-a34f-fb46-80e9-9b4b48bcce4c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[105]:=",ExpressionUUID->"4acc66ff-efd9-9749-a32c-ab2aed359d56"], + +Cell[BoxData["32.521532552856904`"], "Output", + CellChangeTimes->{3.9913237069753113`*^9, 3.99170899744343*^9, + 3.99209025585734*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"4dfbfd6c-3163-3243-b4bd-2ebdd9be75d5"] +}, 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[106]:=",ExpressionUUID->"b77d1393-1706-0344-94ba-b60790e869c9"], + +Cell[BoxData["0.026593811047050407`"], "Output", + CellChangeTimes->{3.991323707000412*^9, 3.991708997465433*^9, + 3.992090255882452*^9}, + CellLabel-> + "Out[106]=",ExpressionUUID->"da550190-2da4-fa43-8d86-a2b03847dc98"] +}, 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[107]:=",ExpressionUUID->"d3dc886c-76ef-e140-8bf7-ae2b35b15037"], + +Cell[BoxData["5.434438162146826`"], "Output", + CellChangeTimes->{3.991323707203314*^9, 3.991708997556095*^9, + 3.992090255969261*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"ec1fb74f-463c-9b4d-a2f4-699641dae361"] +}, 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[108]:=",ExpressionUUID->"a2a617e0-a59a-4147-bc6f-17a0446bc938"], + +Cell[BoxData["0.006078400077329918`"], "Output", + CellChangeTimes->{3.9913237072224197`*^9, 3.9917089975825768`*^9, + 3.992090255981371*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"7cc13680-4e83-0846-87e9-af1bbaa68702"] +}, 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[109]:=",ExpressionUUID->"764ea9ee-2dee-8949-964f-92b7fcc0b4f1"], + +Cell[BoxData["11.367116206169243`"], "Output", + CellChangeTimes->{3.991323707432623*^9, 3.991708997674572*^9, + 3.992090256068159*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"766ea627-714a-b042-b5e0-d28e31761bf4"] +}, 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[110]:=",ExpressionUUID->"8de6527c-f379-114f-be34-ffaf646fc19c"], + +Cell[BoxData["0.8359791121432882`"], "Output", + CellChangeTimes->{3.9913237074497375`*^9, 3.9917089977023544`*^9, + 3.9920902560822105`*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"656f80a5-d397-e44b-8a1d-19559d79ce10"] +}, 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[111]:=",ExpressionUUID->"bcbbe365-5317-404f-8cca-b17046887210"], + +Cell[BoxData["0.1640208878567118`"], "Output", + CellChangeTimes->{3.991323707467621*^9, 3.991708997725395*^9, + 3.992090256095188*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"d1907b1c-4d75-3c44-bdf7-887c25017421"] +}, 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[112]:=",ExpressionUUID->"c57327ef-c920-754d-8029-af14560ebe8f"], + +Cell[BoxData["0.13711803620340776`"], "Output", + CellChangeTimes->{3.991323707488617*^9, 3.9917089977477455`*^9, + 3.9920902561110744`*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"2b293f6d-4cad-384c-8140-d4f49d425c15"] +}, 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.99179485681155*^9}, + CellLabel-> + "In[113]:=",ExpressionUUID->"670d91c8-ce08-f444-b144-138ebae0f868"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0910124741522357`*^-226\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 113, 162, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237075117207`*^9, 3.991708997774729*^9, + 3.9920902561431065`*^9}, + CellLabel-> + "During evaluation of \ +In[113]:=",ExpressionUUID->"68702f7c-93b9-8f49-9333-85446d9da20e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.5944274731386185`*^-232\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 113, 163, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237075117207`*^9, 3.991708997774729*^9, + 3.9920902561512146`*^9}, + CellLabel-> + "During evaluation of \ +In[113]:=",ExpressionUUID->"6e578805-a7c7-4a41-b8bc-6dde237f5bb9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.179830708446814`*^-238\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 113, 164, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237075117207`*^9, 3.991708997774729*^9, + 3.9920902561585407`*^9}, + CellLabel-> + "During evaluation of \ +In[113]:=",ExpressionUUID->"dd8b0a48-a91b-b641-b25f-476fa8891f1d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 113, 165, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237075117207`*^9, 3.991708997774729*^9, + 3.9920902561660824`*^9}, + CellLabel-> + "During evaluation of \ +In[113]:=",ExpressionUUID->"7e02e9ea-40a9-0f4a-8e7b-f28d97a52c31"], + +Cell[BoxData["5.4344381621468205`"], "Output", + CellChangeTimes->{3.9913237161181736`*^9, 3.991709001238739*^9, + 3.9920902588292313`*^9}, + CellLabel-> + "Out[113]=",ExpressionUUID->"cf0c119b-2a0c-eb4c-b64f-fd333af7acd4"] +}, 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.99179697882374*^9}, + CellLabel-> + "In[114]:=",ExpressionUUID->"862c274e-f293-6a41-8f4f-719ed57da8ce"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0910124741522357`*^-226\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 114, 166, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237161871567`*^9, 3.991709001285738*^9, + 3.9920902588837337`*^9}, + CellLabel-> + "During evaluation of \ +In[114]:=",ExpressionUUID->"44fe1e60-99c2-6c4a-b132-f376efa351ff"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.5944274731386185`*^-232\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 114, 167, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237161871567`*^9, 3.991709001285738*^9, + 3.9920902588921223`*^9}, + CellLabel-> + "During evaluation of \ +In[114]:=",ExpressionUUID->"fe77862c-526a-bc4c-9aa4-07d6c1add029"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.179830708446814`*^-238\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 114, 168, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237161871567`*^9, 3.991709001285738*^9, + 3.9920902589001102`*^9}, + CellLabel-> + "During evaluation of \ +In[114]:=",ExpressionUUID->"11e2f001-632d-2249-a07e-54f51308c266"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 114, 169, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237161871567`*^9, 3.991709001285738*^9, + 3.9920902589071693`*^9}, + CellLabel-> + "During evaluation of \ +In[114]:=",ExpressionUUID->"c1688544-c5ab-a841-b801-9e36c53c9ae0"], + +Cell[BoxData["11.367116206169245`"], "Output", + CellChangeTimes->{3.991323724852854*^9, 3.9917090047631493`*^9, + 3.9920902620788326`*^9}, + CellLabel-> + "Out[114]=",ExpressionUUID->"d95798d7-3189-bd47-b181-2ace7657c85b"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.99179699111117*^9, 3.991797003874716*^9}}, + CellLabel-> + "In[115]:=",ExpressionUUID->"f5360edc-957d-9f48-b8b4-746fa181d4a5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1748483420177226`*^-280\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 115, + 170, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991324246104725*^9, 3.9920902622923927`*^9}, + CellLabel-> + "During evaluation of \ +In[115]:=",ExpressionUUID->"e436725b-b1eb-1e47-af0a-457135dd821e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.221763797131176`*^-293\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 115, + 171, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991324246104725*^9, 3.9920902623012714`*^9}, + CellLabel-> + "During evaluation of \ +In[115]:=",ExpressionUUID->"5f2d212e-c110-ae4d-ac63-a731495de57c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.195187321536095`*^-306\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 115, + 172, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991324246104725*^9, 3.9920902623102856`*^9}, + CellLabel-> + "During evaluation of \ +In[115]:=",ExpressionUUID->"9e0c44a2-2856-1a4e-82e4-79ffb8fe99dd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 115, 173, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991324246104725*^9, 3.9920902623172817`*^9}, + CellLabel-> + "During evaluation of \ +In[115]:=",ExpressionUUID->"c0990c17-72fb-be43-a0ee-7f925c4d7e89"], + +Cell[BoxData["$Aborted"], "Output", + CellChangeTimes->{3.991324915847246*^9, 3.9920904848708534`*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"5860a3fc-cc7e-1b4b-8ec4-a45686f94234"] +}, 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[328]:=",ExpressionUUID->"143d6afa-76a8-b440-a2a9-2759769b081f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.938169890743013`*^-175\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 328, 123, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9, 3.9917091704635696`*^9}, + CellLabel-> + "During evaluation of \ +In[328]:=",ExpressionUUID->"4237e138-f145-b443-83e0-43390364f340"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.17889047361004`*^-178\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 328, 124, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9, 3.991709170478571*^9}, + CellLabel-> + "During evaluation of \ +In[328]:=",ExpressionUUID->"f1817fe7-de7f-424a-8c32-fd6eb18ad55d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6987772228196017`*^-181\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 328, 125, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9, 3.9917091704865704`*^9}, + CellLabel-> + "During evaluation of \ +In[328]:=",ExpressionUUID->"d01422f2-ac30-d647-9174-416a2de0acdd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 328, 126, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9, 3.9917091704955845`*^9}, + CellLabel-> + "During evaluation of \ +In[328]:=",ExpressionUUID->"1cc939d5-2041-e346-853b-0da1f5d3fdb3"], + +Cell[BoxData["10.62729206338334`"], "Output", + CellChangeTimes->{3.991326513010317*^9, 3.991709175908993*^9}, + CellLabel-> + "Out[328]=",ExpressionUUID->"be53344f-c49c-d340-8fe2-187c78764ee3"] +}, 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.9917970149184284`*^9, + 3.991797037687023*^9}},ExpressionUUID->"2e239e43-8455-8947-be70-\ +b8e43bbe859a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.509576717382357`*^-196\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 329, 127, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265130447063`*^9, 3.991709175963011*^9}, + CellLabel-> + "During evaluation of \ +In[329]:=",ExpressionUUID->"376bc77a-50fd-0d47-9681-2bc434722c43"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.889379903707528`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 329, + 128, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265130447063`*^9, 3.991709175973011*^9}, + CellLabel-> + "During evaluation of \ +In[329]:=",ExpressionUUID->"2efa0725-97f0-1746-a14f-4d0ef984c116"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.8093096327513717`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 329, + 129, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265130447063`*^9, 3.991709175983019*^9}, + CellLabel-> + "During evaluation of \ +In[329]:=",ExpressionUUID->"3247c80e-edc6-e745-8fee-5b551559a9ce"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 329, 130, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265130447063`*^9, 3.9917091759920235`*^9}, + CellLabel-> + "During evaluation of \ +In[329]:=",ExpressionUUID->"5e6cbab7-7762-ef49-bbd5-8d0e64879c32"], + +Cell[BoxData["1.1698825507998156`"], "Output", + CellChangeTimes->{3.9913265201819115`*^9, 3.9917091805041294`*^9}, + CellLabel-> + "Out[329]=",ExpressionUUID->"14e4c193-7d63-6f44-b586-9c58b6278944"] +}, 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.9917970412382812`*^9, + 3.991797045066601*^9}},ExpressionUUID->"99e346c1-cf6d-8f4a-b6fb-\ +39037ee79c0a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.509576717382357`*^-196\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 330, 131, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326520216116*^9, 3.991709180543247*^9}, + CellLabel-> + "During evaluation of \ +In[330]:=",ExpressionUUID->"b53712a8-b3d6-1f4e-8898-5e6ce60da8c7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.889379903707528`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 330, + 132, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326520216116*^9, 3.9917091805532475`*^9}, + CellLabel-> + "During evaluation of \ +In[330]:=",ExpressionUUID->"5dee7001-7024-b140-89a6-01103fff2a2b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.8093096327513717`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 330, + 133, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326520216116*^9, 3.9917091805632515`*^9}, + CellLabel-> + "During evaluation of \ +In[330]:=",ExpressionUUID->"f711f4eb-2b29-5047-8426-bced102f0fee"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 330, 134, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326520216116*^9, 3.9917091805722485`*^9}, + CellLabel-> + "During evaluation of \ +In[330]:=",ExpressionUUID->"b2bdb7ab-4d79-044f-8a69-305a4f35a1be"], + +Cell[BoxData["7.488766577772476`"], "Output", + CellChangeTimes->{3.9913265264075394`*^9, 3.9917091848753357`*^9}, + CellLabel-> + "Out[330]=",ExpressionUUID->"635433e0-898b-ef4f-97c3-27cb9c864fdc"] +}, 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.9917970522453213`*^9, + 3.991797055966772*^9}},ExpressionUUID->"867b2dc8-7ef3-234b-80bd-\ +e701484a92f5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.509576717382357`*^-196\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 331, 135, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265264435444`*^9, 3.9917091849153366`*^9}, + CellLabel-> + "During evaluation of \ +In[331]:=",ExpressionUUID->"5521676c-b5e4-1145-b679-3dc06940bc52"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.889379903707528`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 331, + 136, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265264435444`*^9, 3.9917091849253387`*^9}, + CellLabel-> + "During evaluation of \ +In[331]:=",ExpressionUUID->"88c4b1ae-962d-3b4a-a9c8-1101d0b0bcfc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.8093096327513717`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 331, + 137, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265264435444`*^9, 3.9917091849343395`*^9}, + CellLabel-> + "During evaluation of \ +In[331]:=",ExpressionUUID->"56a57c6b-07a8-f146-b18a-9a7e9cc34f3a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 331, 138, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265264435444`*^9, 3.99170918494335*^9}, + CellLabel-> + "During evaluation of \ +In[331]:=",ExpressionUUID->"ec38de78-337d-2648-bf83-eb09a46b18b3"], + +Cell[BoxData["15.925014616300276`"], "Output", + CellChangeTimes->{3.9913265299431496`*^9, 3.9917091876094093`*^9}, + CellLabel-> + "Out[331]=",ExpressionUUID->"b1693ef0-2cab-0142-884b-588173786ea2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991797060470949*^9, + 3.9917970642464314`*^9}},ExpressionUUID->"b1cee125-11a3-8a43-b076-\ +a72829d187d3"], + +Cell[BoxData["0.10712656920120021`"], "Output", + CellChangeTimes->{3.991326529975149*^9, 3.991709187637409*^9}, + CellLabel-> + "Out[332]=",ExpressionUUID->"0df6ed8f-8670-fa47-923c-919d6c136038"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.99179708384041*^9, 3.991797089031517*^9}, + 3.991923586725128*^9},ExpressionUUID->"e87cb7b6-2d4f-2b46-b7dc-\ +f61f4036bef1"], + +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[334]:=",ExpressionUUID->"dafb41d5-8379-5e45-a5a7-0828c3048eab"], + +Cell[BoxData["20.157626483814337`"], "Output", + CellChangeTimes->{3.9913265300040226`*^9, 3.9917092389246387`*^9}, + CellLabel-> + "Out[334]=",ExpressionUUID->"c881c11d-abad-0d49-99e0-f303d09aef0a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[336]:=",ExpressionUUID->"3d6ec365-065c-9046-b32d-db356c9d51fa"], + +Cell[BoxData["0.9567032806265168`"], "Output", + CellChangeTimes->{3.991326530052025*^9, 3.991709238967621*^9}, + CellLabel-> + "Out[336]=",ExpressionUUID->"9caa35c4-53d8-fa45-a312-698f5ed5b1e5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[339]:=",ExpressionUUID->"c7dc55d1-f163-224f-bef1-731f35b2237f"], + +Cell[BoxData["19.284867386709134`"], "Output", + CellChangeTimes->{3.9913265300922585`*^9, 3.9917092390388947`*^9}, + CellLabel-> + "Out[339]=",ExpressionUUID->"833d0ac6-4c09-d440-8bc3-d5df9ca76865"] +}, 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[340]:=",ExpressionUUID->"ae1da06e-d004-c94e-a60b-5d6c8a81d4a0"], + +Cell[BoxData["0.02613308078261745`"], "Output", + CellChangeTimes->{3.9913265301172295`*^9, 3.991709239061901*^9}, + CellLabel-> + "Out[340]=",ExpressionUUID->"0382a191-ad63-844a-8759-086853e23ce5"] +}, 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[341]:=",ExpressionUUID->"711641aa-bfb1-b442-a8a1-7f2d92e52258"], + +Cell[BoxData["5.482133853543194`"], "Output", + CellChangeTimes->{3.991326530210228*^9, 3.991709239151787*^9}, + CellLabel-> + "Out[341]=",ExpressionUUID->"219c4b04-20e8-3f41-8e84-a455d4da6bdc"] +}, 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[342]:=",ExpressionUUID->"03560694-f256-804d-bdf2-150141b736fd"], + +Cell[BoxData["0.012890445116466177`"], "Output", + CellChangeTimes->{3.9913265302252293`*^9, 3.991709239183817*^9}, + CellLabel-> + "Out[342]=",ExpressionUUID->"b204ec83-ad19-5349-8b02-7defd6db0df8"] +}, 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[343]:=",ExpressionUUID->"41fd6fe5-afbf-ed41-96d1-404a404fc933"], + +Cell[BoxData["7.805684323619363`"], "Output", + CellChangeTimes->{3.9913265303172264`*^9, 3.9917092392730465`*^9}, + CellLabel-> + "Out[343]=",ExpressionUUID->"c15b8bac-d390-9f42-a7c0-c761ed162cd9"] +}, 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[344]:=",ExpressionUUID->"1ffc2e4a-e112-f841-8653-59d1c97f1323"], + +Cell[BoxData["0.6366880535214177`"], "Output", + CellChangeTimes->{3.9913265303292294`*^9, 3.9917092392950573`*^9}, + CellLabel-> + "Out[344]=",ExpressionUUID->"c7904c57-9026-5d42-a13c-7cf9c291f02e"] +}, 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[345]:=",ExpressionUUID->"c98e90b4-3450-674d-a534-9abe2866d10f"], + +Cell[BoxData["0.36331194647858245`"], "Output", + CellChangeTimes->{3.991326530340416*^9, 3.9917092393180447`*^9}, + CellLabel-> + "Out[345]=",ExpressionUUID->"07fee721-d71d-e947-a10f-a3d491f5375c"] +}, 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[346]:=",ExpressionUUID->"3a1b0a64-3226-5845-846d-8f00794d5760"], + +Cell[BoxData["0.23131637602452607`"], "Output", + CellChangeTimes->{3.991326530367384*^9, 3.9917092393410416`*^9}, + CellLabel-> + "Out[346]=",ExpressionUUID->"61d2bf74-dc83-444c-9d85-173366eb4115"] +}, 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.9917970976395664`*^9},ExpressionUUID->"157a27fc-8a7f-ef4c-bd2d-\ +9f444415254b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.577411676886291`*^-203\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 347, 139, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265303923836`*^9, 3.9917092393670444`*^9}, + CellLabel-> + "During evaluation of \ +In[347]:=",ExpressionUUID->"0c8f7a0d-d84f-5048-ba48-794ef1d00127"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.671132252200372`*^-207\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 347, 140, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265303923836`*^9, 3.991709239377041*^9}, + CellLabel-> + "During evaluation of \ +In[347]:=",ExpressionUUID->"e0f5c7bd-1699-2c49-bf84-66232a770396"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2458692591161135`*^-212\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 347, 141, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265303923836`*^9, 3.9917092393860435`*^9}, + CellLabel-> + "During evaluation of \ +In[347]:=",ExpressionUUID->"650d4e60-de9d-c448-9e55-c9a2ff3adfbd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 347, 142, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265303923836`*^9, 3.9917092393950424`*^9}, + CellLabel-> + "During evaluation of \ +In[347]:=",ExpressionUUID->"02aaa7f6-e3fa-f246-ae96-c2637dc36a8a"], + +Cell[BoxData["5.482133853543194`"], "Output", + CellChangeTimes->{3.9913265339749985`*^9, 3.991709242710472*^9}, + CellLabel-> + "Out[347]=",ExpressionUUID->"e85ac070-0188-1a40-a36b-aa73ff8bf583"] +}, 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.991797103207548*^9},ExpressionUUID->"11801718-69ec-bf4e-86d8-\ +e9949dfbcff4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.577411676886291`*^-203\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 348, 143, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340092525`*^9, 3.9917092427514687`*^9}, + CellLabel-> + "During evaluation of \ +In[348]:=",ExpressionUUID->"92fdcdbe-704c-8643-ac44-6336f3afd685"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.671132252200372`*^-207\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 348, 144, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340092525`*^9, 3.9917092427604694`*^9}, + CellLabel-> + "During evaluation of \ +In[348]:=",ExpressionUUID->"22fb307d-fe2e-4e40-aecb-68b60c56d53f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2458692591161135`*^-212\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 348, 145, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340092525`*^9, 3.9917092427704697`*^9}, + CellLabel-> + "During evaluation of \ +In[348]:=",ExpressionUUID->"fe4891cd-9e5e-304f-b8fa-b9a722a2b0ed"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 348, 146, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340092525`*^9, 3.9917092427794952`*^9}, + CellLabel-> + "During evaluation of \ +In[348]:=",ExpressionUUID->"3700feb7-ec5c-144b-8683-e9364219ca8f"], + +Cell[BoxData["7.805684323619356`"], "Output", + CellChangeTimes->{3.9913265375649567`*^9, 3.991709245963009*^9}, + CellLabel-> + "Out[348]=",ExpressionUUID->"8b9d1dc2-78af-9e49-aad9-8e9bc3b553be"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9917971087080173`*^9, + 3.9917971122297535`*^9}},ExpressionUUID->"4d882d59-3e42-1040-97a9-\ +33dddc2b9855"], + +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->"20149181-1e2c-4b41-b02e-304cc98619fd"], + +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->"44ce87a6-827a-304b-86da-3cdac8e926dc"], + +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->"b6629f6a-df4e-5a42-a25e-15825d979765"], + +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->"5b7f13bb-27ba-5041-8f22-5700d1dce8b8"], + +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->"ed04804c-1f60-394e-87d4-29e6f5f16859"] +}, 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[350]:=",ExpressionUUID->"804e6c9f-1b36-2141-acb9-3b729fb7abb0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1387495820703128`*^-176\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 350, 147, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9, 3.9917093711796627`*^9}, + CellLabel-> + "During evaluation of \ +In[350]:=",ExpressionUUID->"47145e38-56d2-404b-b2c9-a4c6bd4713fc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.041608798521609`*^-180\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 350, 148, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9, 3.9917093711906605`*^9}, + CellLabel-> + "During evaluation of \ +In[350]:=",ExpressionUUID->"c894df32-367b-2344-a42a-d2aaa61a6442"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4344331657703033`*^-183\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 350, 149, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9, 3.99170937119866*^9}, + CellLabel-> + "During evaluation of \ +In[350]:=",ExpressionUUID->"dd94c528-2deb-d443-8dc9-050571e0f325"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 350, 150, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9, 3.991709371206663*^9}, + CellLabel-> + "During evaluation of \ +In[350]:=",ExpressionUUID->"23602150-0799-1542-bae7-7ae74cb1ca39"], + +Cell[BoxData["10.627292063383521`"], "Output", + CellChangeTimes->{3.9913279159698696`*^9, 3.9917093778765774`*^9}, + CellLabel-> + "Out[350]=",ExpressionUUID->"283063f8-35c9-364f-a699-de6e0a543cf7"] +}, 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.9917971275265427`*^9, + 3.991797131794855*^9}},ExpressionUUID->"9b45c184-4df7-db4d-adb2-\ +01f19f0f15b0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.577411676886291`*^-203\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 351, 151, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327916008396*^9, 3.991709377917576*^9}, + CellLabel-> + "During evaluation of \ +In[351]:=",ExpressionUUID->"a788a2f4-d4f1-2443-8afb-75cfb56de955"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.671132252200372`*^-207\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 351, 152, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327916008396*^9, 3.991709377927576*^9}, + CellLabel-> + "During evaluation of \ +In[351]:=",ExpressionUUID->"be132617-3a6c-7243-9ffe-8f7551dfb0f4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2458692591161135`*^-212\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 351, 153, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327916008396*^9, 3.9917093779375763`*^9}, + CellLabel-> + "During evaluation of \ +In[351]:=",ExpressionUUID->"0d46806c-287f-8f45-adf8-aa98d149c28b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 351, 154, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327916008396*^9, 3.9917093779455757`*^9}, + CellLabel-> + "During evaluation of \ +In[351]:=",ExpressionUUID->"7c6c4499-aad8-2745-a278-f3d39e8c21d9"], + +Cell[BoxData["0.7070855058258385`"], "Output", + CellChangeTimes->{3.991327922931429*^9, 3.99170938241395*^9}, + CellLabel-> + "Out[351]=",ExpressionUUID->"9d6b69a4-8782-c54e-b077-f0b89827acb9"] +}, 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.9917971357813015`*^9, + 3.991797138809105*^9}},ExpressionUUID->"00ca455f-f3f6-2c4f-8927-\ +9e8c2d28dafd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.577411676886291`*^-203\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 352, 155, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279229664307`*^9, 3.9917093824549503`*^9}, + CellLabel-> + "During evaluation of \ +In[352]:=",ExpressionUUID->"58cce6cc-55d6-8447-b0af-98545f6e8b94"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.671132252200372`*^-207\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 352, 156, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279229664307`*^9, 3.9917093824649506`*^9}, + CellLabel-> + "During evaluation of \ +In[352]:=",ExpressionUUID->"a8dc6fa7-2ffc-a94c-acac-c04ec7ca9ce4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2458692591161135`*^-212\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 352, 157, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279229664307`*^9, 3.9917093824741554`*^9}, + CellLabel-> + "During evaluation of \ +In[352]:=",ExpressionUUID->"9072d850-7d12-7542-9452-001fb3ad3caa"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 352, 158, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279229664307`*^9, 3.991709382483162*^9}, + CellLabel-> + "During evaluation of \ +In[352]:=",ExpressionUUID->"5b507f90-a99e-494e-8b83-58443f9760dd"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"8.211884331115483`", " "}]], "Input", + CellChangeTimes->{{3.9917094784975224`*^9, + 3.991709478503729*^9}},ExpressionUUID->"8cac9b30-e121-024d-91d3-\ +cf92fd4a988a"], + +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.9917971437506504`*^9, + 3.991797147210884*^9}},ExpressionUUID->"b454660a-890c-f24b-923b-\ +563bff174231"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.577411676886291`*^-203\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 353, 159, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928854006*^9, 3.99170938660993*^9}, + CellLabel-> + "During evaluation of \ +In[353]:=",ExpressionUUID->"8119867f-f85f-364e-8254-1ef6052311fc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.671132252200372`*^-207\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 353, 160, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928854006*^9, 3.991709386619932*^9}, + CellLabel-> + "During evaluation of \ +In[353]:=",ExpressionUUID->"c0c54d2a-f8dc-8e40-838e-476f912b22f3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2458692591161135`*^-212\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 353, 161, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928854006*^9, 3.9917093866289444`*^9}, + CellLabel-> + "During evaluation of \ +In[353]:=",ExpressionUUID->"02b3b0aa-3c27-2340-a0f3-fddaabda96cb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 353, 162, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928854006*^9, 3.9917093866369305`*^9}, + CellLabel-> + "During evaluation of \ +In[353]:=",ExpressionUUID->"34c92b2b-5689-2d44-aa86-39776cc9979f"], + +Cell[BoxData["16.648132369643353`"], "Output", + CellChangeTimes->{3.9913279320131683`*^9, 3.9917093893412666`*^9}, + CellLabel-> + "Out[353]=",ExpressionUUID->"2b7d55d3-b0f9-2446-a1be-cbacdaca9c16"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9917971542239857`*^9, + 3.9917971576817684`*^9}},ExpressionUUID->"673f44c9-71c5-b64a-9ddb-\ +ff434e6a2570"], + +Cell[BoxData["0.06047387015151299`"], "Output", + CellChangeTimes->{3.9913279320452003`*^9, 3.9917093893762684`*^9}, + CellLabel-> + "Out[354]=",ExpressionUUID->"16796d12-1b0d-d745-b4a7-59e302a2c068"] +}, Open ]] +}, +WindowSize->{718.5, 735}, +WindowMargins->{{-5.25, Automatic}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>0.8 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"3e00b719-7d57-4247-80f9-54af9e03f9d1" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 250, 5, 22, "Input",ExpressionUUID->"05f0731c-d41f-bc4e-b3a5-fe37ee9edd84"], +Cell[829, 29, 170, 2, 25, "Output",ExpressionUUID->"b7c24ea0-5123-4e40-8ff1-016a0f3d9f06"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1036, 36, 326, 5, 22, "Input",ExpressionUUID->"12aae3bb-3c18-fc49-a0b1-b91fdc1bbe34"], +Cell[1365, 43, 255, 4, 25, "Output",ExpressionUUID->"3ca6af5d-8845-914d-8fb8-db7201d01e44"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1657, 52, 252, 5, 22, "Input",ExpressionUUID->"93a900cf-d755-b944-921b-a609f0a955d2"], +Cell[1912, 59, 252, 4, 25, "Output",ExpressionUUID->"9d53aa44-00e6-f740-8e90-e0c70ba80028"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2201, 68, 175, 3, 22, "Input",ExpressionUUID->"ad2e1847-77bb-2547-a825-69fabcda8ddf"], +Cell[2379, 73, 225, 3, 25, "Output",ExpressionUUID->"d8de34e0-1db9-a242-a0de-2c58dc251a21"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2641, 81, 257, 7, 35, "Input",ExpressionUUID->"4cc840b0-88d4-374e-a12e-54b8464f3172"], +Cell[2901, 90, 243, 3, 25, "Output",ExpressionUUID->"c661afd3-27f0-f54e-803a-d5eb1e2003b8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3181, 98, 131, 2, 22, "Input",ExpressionUUID->"7e4318c8-0990-ce41-a87a-43c5428155f4"], +Cell[3315, 102, 229, 3, 25, "Output",ExpressionUUID->"f1b516aa-487c-9c4d-85d3-cbd5ec786a3e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3581, 110, 276, 6, 22, "Input",ExpressionUUID->"c991c4ea-4c61-ff4f-8dd1-a921864ebed7"], +Cell[3860, 118, 241, 3, 25, "Output",ExpressionUUID->"20bb77b0-af5e-4e43-af78-fa02d8d545fe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4138, 126, 257, 7, 22, "Input",ExpressionUUID->"c0ebd7fd-cfec-df46-a449-f750a93384d0"], +Cell[4398, 135, 240, 3, 25, "Output",ExpressionUUID->"971b8149-f7bc-164c-9daa-db9821ee36d5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4675, 143, 236, 4, 22, "Input",ExpressionUUID->"4df260b6-0d11-1441-9e2e-22f951821193"], +Cell[4914, 149, 260, 3, 25, "Output",ExpressionUUID->"e6614ab3-dc30-2e4b-a376-e676cdd518fa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5211, 157, 238, 4, 22, "Input",ExpressionUUID->"2d27be30-fef3-4449-b748-886004fbb723"], +Cell[5452, 163, 262, 3, 25, "Output",ExpressionUUID->"c3ad4983-44fd-c54b-b7d6-f5e9f86ac853"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5751, 171, 129, 2, 22, "Input",ExpressionUUID->"58f05ac2-9a5b-b743-b028-7f6094b06d91"], +Cell[5883, 175, 224, 3, 25, "Output",ExpressionUUID->"1de3102b-5caa-2d45-92bc-7025d976f7fa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6144, 183, 129, 2, 22, "Input",ExpressionUUID->"b018faa3-5a51-4f49-9b0d-7936087c5070"], +Cell[6276, 187, 221, 3, 25, "Output",ExpressionUUID->"ad699281-df31-fe47-8377-50846b125072"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6534, 195, 557, 19, 65, "Input",ExpressionUUID->"44764fb1-9da1-4d4e-a570-89126d15f894"], +Cell[7094, 216, 216, 3, 25, "Output",ExpressionUUID->"5fc9fcd7-acef-5f4c-9a4c-7e9527635594"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7347, 224, 557, 19, 65, "Input",ExpressionUUID->"3281618b-d4a7-c942-98be-b78c0b986321"], +Cell[7907, 245, 220, 3, 25, "Output",ExpressionUUID->"8352eb2b-34a9-604b-bf1d-801e53025e5c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8164, 253, 1492, 48, 65, "Input",ExpressionUUID->"fed40061-6b4e-1748-b42c-03e683b18808"], +Cell[9659, 303, 214, 3, 25, "Output",ExpressionUUID->"1bc0ac32-dc75-ea44-92b1-11a347a9b137"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9910, 311, 1331, 44, 65, "Input",ExpressionUUID->"f615b39c-9820-5147-95ce-618baa4e4991"], +Cell[11244, 357, 234, 4, 25, "Output",ExpressionUUID->"22e7f275-ddd8-ca4c-9a99-e178535fae7a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[11515, 366, 1331, 44, 65, "Input",ExpressionUUID->"7b2f9469-8c15-d349-a2c9-fcf9fcf6e8df"], +Cell[12849, 412, 238, 4, 25, "Output",ExpressionUUID->"f6c020ab-16cb-494d-8290-e8f06b194244"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13124, 421, 1492, 48, 65, "Input",ExpressionUUID->"e673379f-2460-4e49-90d0-35742055e8f6"], +Cell[14619, 471, 214, 3, 25, "Output",ExpressionUUID->"63290e1d-9ee1-9047-bf87-2f76d7fc852e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14870, 479, 131, 2, 22, "Input",ExpressionUUID->"f65ba40e-adc9-4340-8c19-3a5692a89c19"], +Cell[15004, 483, 200, 3, 25, "Output",ExpressionUUID->"605e5b4b-62a7-c44f-9592-50bdf74a0203"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15241, 491, 177, 3, 22, "Input",ExpressionUUID->"da90429f-71c9-fb44-900f-54f9ecb15c0c"], +Cell[15421, 496, 199, 3, 25, "Output",ExpressionUUID->"b45bdc19-2ad2-4347-8c1b-115fd5b67132"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15657, 504, 134, 2, 22, "Input",ExpressionUUID->"ba9e3c3f-c755-9949-abdf-5c8716be163d"], +Cell[15794, 508, 204, 3, 25, "Output",ExpressionUUID->"91262c89-c41b-db48-b4ba-121fc48ac6a8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16035, 516, 219, 4, 22, "Input",ExpressionUUID->"1df1d99a-14d1-664a-9952-fc0ffe17d214"], +Cell[16257, 522, 215, 4, 25, "Output",ExpressionUUID->"f81afc19-3d80-f443-8449-6de12236dee6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16509, 531, 134, 2, 22, "Input",ExpressionUUID->"934f8f71-5ebb-8a42-88af-b686f4e3e457"], +Cell[16646, 535, 204, 3, 25, "Output",ExpressionUUID->"e6c2995f-35b9-b943-bb8c-234e312f1dd6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16887, 543, 302, 5, 22, "Input",ExpressionUUID->"6e10280b-ebb3-f646-bb1d-00a00fc0ed1c"], +Cell[17192, 550, 150, 2, 25, "Output",ExpressionUUID->"5be75014-41d7-fb46-bcb1-c029cbc1bf36"] +}, Open ]], +Cell[17357, 555, 173, 2, 22, "Input",ExpressionUUID->"b89c6b57-db32-1742-8cc6-85b9a16d9dd6"], +Cell[CellGroupData[{ +Cell[17555, 561, 271, 5, 22, "Input",ExpressionUUID->"f0485430-2764-5f40-9255-6cf8c0e180ff"], +Cell[17829, 568, 198, 3, 25, "Output",ExpressionUUID->"68f1598b-0ea6-2644-8643-6b2c3d3af245"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18064, 576, 219, 4, 22, "Input",ExpressionUUID->"a5017589-44b9-f144-b351-bb9b15123fd4"], +Cell[18286, 582, 202, 3, 25, "Output",ExpressionUUID->"950acf8c-9b1f-c846-8f1a-9d1339e5b417"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18525, 590, 350, 10, 35, "Input",ExpressionUUID->"7ab41717-55b0-584a-809f-945d0d693a80"], +Cell[18878, 602, 221, 3, 25, "Output",ExpressionUUID->"8299aaa1-e8cd-c140-98d6-0bdf70206c0c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19136, 610, 350, 10, 35, "Input",ExpressionUUID->"fde3e1f9-4cc1-8049-ba69-a2294a6452b9"], +Cell[19489, 622, 234, 4, 25, "Output",ExpressionUUID->"ae113a32-15bf-914f-a716-97742bfb8678"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19760, 631, 992, 26, 92, "Input",ExpressionUUID->"622e209c-a48d-e442-88d4-31c1022a52c8"], +Cell[20755, 659, 215, 3, 25, "Output",ExpressionUUID->"3181800d-348e-a746-801d-a0689d771f39"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21007, 667, 199, 3, 22, "Input",ExpressionUUID->"10ba819b-2025-9a47-9ea5-95a5611cda6a"], +Cell[21209, 672, 202, 3, 25, "Output",ExpressionUUID->"78694d31-812f-e943-8bb5-d58c94143099"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21448, 680, 275, 4, 22, "Input",ExpressionUUID->"8e0c7ad3-3b58-ea40-9983-94e32bbe2818"], +Cell[21726, 686, 156, 2, 25, "Output",ExpressionUUID->"5c8adf0c-d1fc-b648-be6c-e6ab446c0188"] +}, Open ]], +Cell[21897, 691, 175, 2, 22, "Input",ExpressionUUID->"eb8d52d1-9df0-c54e-85b2-4b5b928d8058"], +Cell[CellGroupData[{ +Cell[22097, 697, 325, 5, 22, "Input",ExpressionUUID->"59432052-36a9-0e4a-b136-b5ef6e1cf7dc"], +Cell[22425, 704, 156, 2, 25, "Output",ExpressionUUID->"21f7a68d-15a4-aa4a-9f2f-ac0c53d958dd"] +}, Open ]], +Cell[22596, 709, 173, 2, 22, "Input",ExpressionUUID->"7620191d-049f-d749-807c-ff7994d2bf64"], +Cell[CellGroupData[{ +Cell[22794, 715, 324, 5, 22, "Input",ExpressionUUID->"2838c52a-e621-824e-8a28-6ddd911b4320"], +Cell[23121, 722, 156, 2, 25, "Output",ExpressionUUID->"d8b64c74-2c65-9b44-b3cb-0db5863abc3b"] +}, Open ]], +Cell[23292, 727, 175, 2, 22, "Input",ExpressionUUID->"42e257a2-6901-9d4f-a831-1954f32e9186"], +Cell[CellGroupData[{ +Cell[23492, 733, 349, 6, 37, "Input",ExpressionUUID->"26236e3a-fdac-eb4e-a22f-56d02cebcf41"], +Cell[23844, 741, 156, 2, 25, "Output",ExpressionUUID->"a73ed249-f335-624b-9f35-094bbfc621a1"] +}, Open ]], +Cell[24015, 746, 175, 2, 22, "Input",ExpressionUUID->"dd3588b2-9ab9-a34a-afe1-cdd040915619"], +Cell[CellGroupData[{ +Cell[24215, 752, 294, 5, 37, "Input",ExpressionUUID->"02fa1476-84ef-ac4d-a088-22546d6249ff"], +Cell[24512, 759, 154, 2, 25, "Output",ExpressionUUID->"9f2bcbd2-99a2-9d4b-9c70-7f9d0efccae7"] +}, Open ]], +Cell[24681, 764, 173, 2, 22, "Input",ExpressionUUID->"5841a374-f07b-3948-b1fb-c9f1f2e2508c"], +Cell[CellGroupData[{ +Cell[24879, 770, 294, 5, 37, "Input",ExpressionUUID->"2fad32fe-2323-a247-8df8-53787ce8fe84"], +Cell[25176, 777, 156, 2, 25, "Output",ExpressionUUID->"b459c7f8-ac9d-4d4f-9aa5-aba72af043a2"] +}, Open ]], +Cell[25347, 782, 171, 2, 22, "Input",ExpressionUUID->"1b7179f5-adc5-4a42-8f8b-65c9268fc5eb"], +Cell[CellGroupData[{ +Cell[25543, 788, 322, 6, 37, "Input",ExpressionUUID->"00d82cf5-fe39-a24b-bb7b-1d0e115472c2"], +Cell[25868, 796, 154, 2, 25, "Output",ExpressionUUID->"20f7c7b1-c41b-5641-86d9-3d9ba4989b3c"] +}, Open ]], +Cell[26037, 801, 175, 2, 22, "Input",ExpressionUUID->"dfb148c5-f80e-3f46-b88b-570a723a95bc"], +Cell[CellGroupData[{ +Cell[26237, 807, 268, 5, 37, "Input",ExpressionUUID->"db5cb55e-0710-c147-81f4-1d5b600a6284"], +Cell[26508, 814, 155, 2, 25, "Output",ExpressionUUID->"3ae75741-70ab-3c4f-b4d4-bc563b8b2677"] +}, Open ]], +Cell[26678, 819, 171, 2, 22, "Input",ExpressionUUID->"bc012921-2f5f-014d-9378-a2fad1ed7321"], +Cell[CellGroupData[{ +Cell[26874, 825, 19809, 485, 1553, "Input",ExpressionUUID->"c0e79410-fc92-1e45-af3b-c110ed8e3abb"], +Cell[46686, 1312, 215, 3, 25, "Output",ExpressionUUID->"70212435-2665-e444-b864-ee00e0999634"] +}, Open ]], +Cell[CellGroupData[{ +Cell[46938, 1320, 19748, 489, 1579, "Input",ExpressionUUID->"5dd2eacd-c52a-fd43-adfd-9865b6491968"], +Cell[66689, 1811, 219, 3, 25, "Output",ExpressionUUID->"f3c88506-920f-5649-8cef-536c89929669"] +}, Open ]], +Cell[CellGroupData[{ +Cell[66945, 1819, 19748, 483, 1572, "Input",ExpressionUUID->"4ed88227-1e87-3c47-8347-5fd8655168bd"], +Cell[86696, 2304, 232, 4, 25, "Output",ExpressionUUID->"5b2dbcf4-5bbd-e94c-857e-286b041e0d5d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[86965, 2313, 22534, 553, 1766, "Input",ExpressionUUID->"69c9ca34-ec1f-344d-935e-d99be87c6a30"], +Cell[109502, 2868, 231, 4, 25, "Output",ExpressionUUID->"1a91e2eb-8f18-4c46-be3d-5f0163def9a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[109770, 2877, 22535, 553, 1773, "Input",ExpressionUUID->"8f86ffe3-4c00-0445-be01-9f9c3bf740a4"], +Cell[132308, 3432, 234, 4, 25, "Output",ExpressionUUID->"c9a32e59-2654-6d46-9a98-780d495ab2bb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[132579, 3441, 25491, 626, 1984, "Input",ExpressionUUID->"5220f60f-abac-c041-83b6-4ff9b963c510"], +Cell[158073, 4069, 234, 4, 25, "Output",ExpressionUUID->"009c1f24-f9f4-dc48-9db4-2fdf2420d110"] +}, Open ]], +Cell[CellGroupData[{ +Cell[158344, 4078, 130, 2, 22, "Input",ExpressionUUID->"50a59971-b8b3-904a-9a20-2d0c4a200469"], +Cell[158477, 4082, 200, 3, 25, "Output",ExpressionUUID->"be414436-ea10-2549-84c0-01cd6a4fb643"] +}, Open ]], +Cell[CellGroupData[{ +Cell[158714, 4090, 130, 2, 22, "Input",ExpressionUUID->"99b95585-fb4d-4c4e-a0a1-a7cadcf4974c"], +Cell[158847, 4094, 200, 3, 25, "Output",ExpressionUUID->"2c75be98-2c4b-c74f-a840-157aa124b0ca"] +}, Open ]], +Cell[CellGroupData[{ +Cell[159084, 4102, 1144, 39, 46, "Input",ExpressionUUID->"15d5ff38-e0ad-194f-988e-5bba229258a0"], +Cell[160231, 4143, 218, 3, 25, "Output",ExpressionUUID->"956f21a1-a5f0-dd48-a0db-0649818cf589"] +}, Open ]], +Cell[CellGroupData[{ +Cell[160486, 4151, 1041, 35, 46, "Input",ExpressionUUID->"f50ed71d-f500-b142-b06c-d815a3ba2272"], +Cell[161530, 4188, 232, 4, 25, "Output",ExpressionUUID->"5f60a138-1228-0647-828b-f69b6b82a394"] +}, Open ]], +Cell[CellGroupData[{ +Cell[161799, 4197, 1144, 39, 46, "Input",ExpressionUUID->"1492aaaf-0df6-6745-bf76-b9050e5655e5"], +Cell[162946, 4238, 220, 3, 25, "Output",ExpressionUUID->"72535c13-e904-2d4a-8d06-4f913f48d9aa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[163203, 4246, 108, 1, 22, "Input",ExpressionUUID->"226872db-ad1d-a848-a1b9-669b9495ae40"], +Cell[163314, 4249, 216, 3, 25, "Output",ExpressionUUID->"ba37d33c-7bfb-514d-8059-e7258cbe73a1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[163567, 4257, 108, 1, 22, "Input",ExpressionUUID->"3724e999-16ab-c946-a14b-a24ab296bb76"], +Cell[163678, 4260, 234, 4, 25, "Output",ExpressionUUID->"de2db7cc-157c-0241-a2d0-3877f60f2f74"] +}, Open ]], +Cell[CellGroupData[{ +Cell[163949, 4269, 108, 1, 22, "Input",ExpressionUUID->"7429d55c-fb1b-6c4a-a07c-c882ac4f265b"], +Cell[164060, 4272, 233, 4, 25, "Output",ExpressionUUID->"e05fb998-0c3c-914f-aab3-9061a5be8812"] +}, Open ]], +Cell[CellGroupData[{ +Cell[164330, 4281, 108, 1, 22, "Input",ExpressionUUID->"53189e64-dda1-f24f-bb2a-e33cc334a386"], +Cell[164441, 4284, 216, 3, 25, "Output",ExpressionUUID->"71a8ca09-ea43-3942-b848-248927804279"] +}, Open ]], +Cell[CellGroupData[{ +Cell[164694, 4292, 107, 1, 22, "Input",ExpressionUUID->"2dcc97af-d52c-a140-9d24-7e2362d14431"], +Cell[164804, 4295, 216, 3, 25, "Output",ExpressionUUID->"2671b6f3-ef81-624a-9348-b2e5142c2434"] +}, Open ]], +Cell[CellGroupData[{ +Cell[165057, 4303, 107, 1, 22, "Input",ExpressionUUID->"047bb9cd-1320-254a-81b6-dbbd5bc6927e"], +Cell[165167, 4306, 218, 3, 25, "Output",ExpressionUUID->"b6c62e5d-ea1a-8443-8ada-79b01a88938a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[165422, 4314, 497, 16, 46, "Input",ExpressionUUID->"5f91a530-4680-9547-ba69-eda72b5cd542"], +Cell[165922, 4332, 232, 4, 25, "Output",ExpressionUUID->"e4a29d4f-42ef-c44c-9e1b-e27ba179aa39"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166191, 4341, 497, 16, 46, "Input",ExpressionUUID->"79bd53a9-815b-6b44-a1c8-9e184a9e2d7f"], +Cell[166691, 4359, 233, 4, 25, "Output",ExpressionUUID->"0afdc4eb-983d-fa48-b9fd-53251acb64c6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166961, 4368, 1788, 60, 109, "Input",ExpressionUUID->"4d60ea42-135b-0945-9bc8-ff7080f68cbd"], +Cell[168752, 4430, 218, 3, 25, "Output",ExpressionUUID->"5192d80c-7cf4-6c48-8ca9-65876353ddc2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169007, 4438, 1101, 36, 64, "Input",ExpressionUUID->"86e3af8c-1e9e-fe48-be10-5811d3ed2f2c"], +Cell[170111, 4476, 232, 4, 25, "Output",ExpressionUUID->"a8c04634-6d98-fa48-b315-976fe5dc0f4d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170380, 4485, 1818, 61, 90, "Input",ExpressionUUID->"5e5f8981-ef44-174f-9ab1-8170c09512bd"], +Cell[172201, 4548, 214, 3, 25, "Output",ExpressionUUID->"e689f0c7-d47c-4d46-8bfc-d8d217140e2b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172452, 4556, 2499, 77, 72, "Input",ExpressionUUID->"92a8600d-0ef6-b048-81ca-4cef74274975"], +Cell[174954, 4635, 218, 3, 25, "Output",ExpressionUUID->"9827733d-e648-f943-b863-43b20946d9d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175209, 4643, 2499, 77, 72, "Input",ExpressionUUID->"7e943660-5e34-9e41-8f70-f1ec78ba3955"], +Cell[177711, 4722, 215, 3, 25, "Output",ExpressionUUID->"572140c9-bdb2-e94b-9fc1-98462344681b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[177963, 4730, 236, 4, 22, "Input",ExpressionUUID->"3ae683e0-3adf-504a-90dd-615dd0a61fd8"], +Cell[178202, 4736, 166, 2, 25, "Output",ExpressionUUID->"7c2572e2-e1ab-8342-8714-8e8cbecd10bf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[178405, 4743, 263, 4, 22, "Input",ExpressionUUID->"4fc0783d-23dd-314f-a326-64b7548d9620"], +Cell[178671, 4749, 168, 2, 25, "Output",ExpressionUUID->"d384dee7-78c2-9041-84e8-ed683d4d769b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[178876, 4756, 1297, 42, 39, "Input",ExpressionUUID->"dbbed097-5dfd-0340-bc2d-0bce9785fa70"], +Cell[180176, 4800, 217, 3, 25, "Output",ExpressionUUID->"8c38b579-256b-684a-b609-f88da9235dae"] +}, Open ]], +Cell[CellGroupData[{ +Cell[180430, 4808, 834, 27, 46, "Input",ExpressionUUID->"b04428b7-7b5e-9b48-87ae-3e90ee72682c"], +Cell[181267, 4837, 221, 3, 25, "Output",ExpressionUUID->"e8b9b65d-c28b-9b41-bf5a-9f5cd93c2a9b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181525, 4845, 889, 30, 46, "Input",ExpressionUUID->"46474706-75cc-0e49-8a10-fd571fd984c5"], +Cell[182417, 4877, 220, 3, 25, "Output",ExpressionUUID->"5b0f2f2e-cf6b-a244-a81a-d10dc7619a05"] +}, Open ]], +Cell[CellGroupData[{ +Cell[182674, 4885, 554, 18, 42, "Input",ExpressionUUID->"8968449c-8b0e-4c43-b89b-9661a6b4b7b4"], +Cell[183231, 4905, 215, 3, 25, "Output",ExpressionUUID->"ee99b645-0738-6849-b2b8-b9908b150c95"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183483, 4913, 619, 20, 42, "Input",ExpressionUUID->"4070e408-f242-2749-a9a3-2554c0750a47"], +Cell[184105, 4935, 218, 3, 25, "Output",ExpressionUUID->"e712cb91-7ce8-f94e-b8c4-545554484ba4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184360, 4943, 166, 4, 46, "Input",ExpressionUUID->"ea836fa5-3993-364c-859c-f1e1426f90c2"], +Cell[184529, 4949, 218, 3, 25, "Output",ExpressionUUID->"2c4fe25e-8710-4440-88e3-a33f2913a8ee"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184784, 4957, 166, 4, 45, "Input",ExpressionUUID->"c1eb9e5a-df42-e143-87eb-a7c14cd6489c"], +Cell[184953, 4963, 218, 3, 25, "Output",ExpressionUUID->"fc769fc2-5bd0-b646-91a6-ad48d846ec16"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185208, 4971, 177, 4, 35, "Input",ExpressionUUID->"fc11a4dc-800e-1040-b016-a172a6dca5d1"], +Cell[185388, 4977, 217, 3, 25, "Output",ExpressionUUID->"cf9420f1-557a-3b44-94ad-f81c81868148"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185642, 4985, 177, 4, 35, "Input",ExpressionUUID->"f158f63a-620a-8b45-93fe-de96c59131c3"], +Cell[185822, 4991, 219, 3, 25, "Output",ExpressionUUID->"1879be68-bf53-ad4a-b1f9-811fee749ecc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186078, 4999, 6051, 184, 310, "Input",ExpressionUUID->"290356b5-801a-1742-8269-ff0ab0e7a72f"], +Cell[192132, 5185, 220, 3, 25, "Output",ExpressionUUID->"8dd792a0-7a05-3d46-b7ea-a2bcf9e9b8f1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192389, 5193, 364, 8, 33, "Input",ExpressionUUID->"637830a9-4b17-0d47-8e69-3e6d73475803"], +Cell[192756, 5203, 217, 3, 25, "Output",ExpressionUUID->"e4acfce8-b438-9149-9532-73d25efa4f9b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193010, 5211, 6118, 186, 353, "Input",ExpressionUUID->"245e55e0-c025-d748-aa5b-d3f5a26f897a"], +Cell[199131, 5399, 222, 3, 25, "Output",ExpressionUUID->"3013b5cd-fd3e-9a44-87f0-84a67a2007ec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[199390, 5407, 364, 8, 33, "Input",ExpressionUUID->"87d3f053-a210-4945-9497-51f3b35fe58a"], +Cell[199757, 5417, 219, 3, 25, "Output",ExpressionUUID->"0f417f0c-11ad-a048-b712-718ae1c258a7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[200013, 5425, 2659, 87, 135, "Input",ExpressionUUID->"407f3978-d419-be4a-9b05-517d07c044f1"], +Cell[202675, 5514, 218, 3, 25, "Output",ExpressionUUID->"cd42716a-3013-cc4c-80a6-6fa8b8c06a09"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202930, 5522, 2599, 84, 135, "Input",ExpressionUUID->"98c81204-47e0-fd47-9c8b-67e8ab12c7de"], +Cell[205532, 5608, 220, 3, 25, "Output",ExpressionUUID->"30f51c14-1480-7740-84c4-0743b8a7826c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205789, 5616, 3708, 117, 197, "Input",ExpressionUUID->"f8815c5a-68ac-6143-b710-ab82cbe388c2"], +Cell[209500, 5735, 221, 3, 25, "Output",ExpressionUUID->"85839bdd-4f3d-db48-9f81-add261b1845b"] +}, Open ]], +Cell[209736, 5741, 276, 5, 34, "Input",ExpressionUUID->"c3247e8e-1dc6-bd47-b085-4abc2b2cf1d2"], +Cell[CellGroupData[{ +Cell[210037, 5750, 2071, 58, 92, "Input",ExpressionUUID->"9522bfa2-96cd-564e-b4a1-30bc1fcf4125"], +Cell[212111, 5810, 607, 13, 50, "Message",ExpressionUUID->"305b6ac1-5c1d-3648-8409-f9cc38d14401"], +Cell[212721, 5825, 611, 13, 50, "Message",ExpressionUUID->"def5c5bd-38e4-c546-9798-9196fa77b04f"], +Cell[213335, 5840, 612, 13, 50, "Message",ExpressionUUID->"7ef56334-b108-274e-84c3-3a464cefd9c4"], +Cell[213950, 5855, 507, 11, 20, "Message",ExpressionUUID->"d333f203-d5dc-7c49-a054-7b6a6d6bbe71"], +Cell[214460, 5868, 219, 3, 25, "Output",ExpressionUUID->"4cac7206-4795-5a4b-91c8-845dd7a198ec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[214716, 5876, 2071, 58, 92, "Input",ExpressionUUID->"61b1cdf2-7f57-2647-9828-9108456d2e21"], +Cell[216790, 5936, 607, 13, 50, "Message",ExpressionUUID->"868aef7c-68dd-7741-ae70-8bf632cacf54"], +Cell[217400, 5951, 609, 13, 50, "Message",ExpressionUUID->"e293db8c-0c36-434b-b398-dc16e16c229e"], +Cell[218012, 5966, 610, 13, 50, "Message",ExpressionUUID->"b4a62f4a-8307-d84b-a7a2-b9f17cc7921e"], +Cell[218625, 5981, 505, 11, 20, "Message",ExpressionUUID->"915cff75-3c97-194a-834e-c3f0f89d48c2"], +Cell[219133, 5994, 215, 3, 25, "Output",ExpressionUUID->"10661102-53b9-f344-aa3f-5bb36e856388"] +}, Open ]], +Cell[CellGroupData[{ +Cell[219385, 6002, 1957, 52, 69, "Input",ExpressionUUID->"0ab9b507-fb4e-e24c-9d9d-abe222e3c5e2"], +Cell[221345, 6056, 20433, 383, 189, "Output",ExpressionUUID->"81ffec5a-1537-f446-9898-c54ad2225982"] +}, Open ]], +Cell[CellGroupData[{ +Cell[241815, 6444, 2135, 59, 92, "Input",ExpressionUUID->"859f11c8-3e2a-dc42-8ed3-71283b73bfa7"], +Cell[243953, 6505, 542, 12, 33, "Message",ExpressionUUID->"249d3ae3-1411-1046-8a83-48822955b4df"], +Cell[244498, 6519, 546, 12, 33, "Message",ExpressionUUID->"145098b6-b9ef-cc4c-a280-de62a525b747"], +Cell[245047, 6533, 551, 12, 33, "Message",ExpressionUUID->"ec5836bf-205c-0d45-98bc-b15bc1ff74d7"], +Cell[245601, 6547, 501, 11, 20, "Message",ExpressionUUID->"cdfc7787-79a7-0641-b0ef-c3d9842527c1"], +Cell[246105, 6560, 21848, 403, 187, "Output",ExpressionUUID->"09c57225-2a82-0642-a8b3-b20d5a3131a6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[267990, 6968, 320, 9, 35, "Input",ExpressionUUID->"982133ce-0d36-4d45-a387-ff35350b5cb9"], +Cell[268313, 6979, 218, 3, 25, "Output",ExpressionUUID->"935b5253-5e68-0a45-8519-47bda33b7070"] +}, Open ]], +Cell[CellGroupData[{ +Cell[268568, 6987, 1833, 52, 92, "Input",ExpressionUUID->"90b7f5f1-808a-1b4d-aa45-edfd6d6a25f8"], +Cell[270404, 7041, 518, 11, 33, "Message",ExpressionUUID->"121035ac-88eb-6047-9d1c-5b9b46d74812"], +Cell[270925, 7054, 522, 11, 33, "Message",ExpressionUUID->"90859807-c965-c644-8d4b-91e03e95dca9"], +Cell[271450, 7067, 523, 11, 33, "Message",ExpressionUUID->"bddb06de-4c67-9049-875f-3d819f665270"], +Cell[271976, 7080, 478, 10, 20, "Message",ExpressionUUID->"ddfca9c2-4456-0f4b-84ba-8053e71fcf0e"], +Cell[272457, 7092, 22141, 408, 187, "Output",ExpressionUUID->"47e58eaa-14ec-fe46-8896-8bdab7804ed4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[294635, 7505, 1612, 47, 69, "Input",ExpressionUUID->"eea9d904-4069-4649-bea7-08e03245dd6c"], +Cell[296250, 7554, 598, 13, 50, "Message",ExpressionUUID->"297b3917-f89a-0246-aa10-39e7fe008f44"], +Cell[296851, 7569, 602, 13, 50, "Message",ExpressionUUID->"a15e307a-c029-db4d-9ccf-908ec1e02c3a"], +Cell[297456, 7584, 606, 13, 50, "Message",ExpressionUUID->"07817f25-3005-da49-b6f2-115349f6c932"], +Cell[298065, 7599, 502, 11, 20, "Message",ExpressionUUID->"a5b76321-d487-494f-a8f0-28c1a9327ad5"], +Cell[298570, 7612, 218, 3, 25, "Output",ExpressionUUID->"b299da9e-abca-3e4b-8017-f973fc3fcb0a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[298825, 7620, 2296, 64, 131, "Input",ExpressionUUID->"3915107a-86d9-0f46-b139-986db5ca6b3b"], +Cell[301124, 7686, 607, 13, 50, "Message",ExpressionUUID->"0253666c-215a-d743-b5e6-d25ed4d9abd5"], +Cell[301734, 7701, 609, 13, 50, "Message",ExpressionUUID->"b077382c-7b28-1347-bd4f-028175da9e2e"], +Cell[302346, 7716, 612, 13, 50, "Message",ExpressionUUID->"07423249-97eb-cf49-8cdb-27573bb00791"], +Cell[302961, 7731, 505, 11, 20, "Message",ExpressionUUID->"4192f7d4-03b1-2a46-9d32-e7ab7a877684"], +Cell[303469, 7744, 217, 3, 25, "Output",ExpressionUUID->"e1fe7bde-cdc4-6f4e-9f38-7a93d0c645c6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[303723, 7752, 2238, 63, 131, "Input",ExpressionUUID->"f3705611-962a-7d49-8494-287e0d1eefa8"], +Cell[305964, 7817, 606, 13, 50, "Message",ExpressionUUID->"1798346d-f9bf-4d47-9ed9-c5409b70307e"], +Cell[306573, 7832, 608, 13, 50, "Message",ExpressionUUID->"7fb09d21-401e-5247-8d64-d7ceed03fd8b"], +Cell[307184, 7847, 609, 13, 50, "Message",ExpressionUUID->"20a7c27e-c0a4-0f45-b664-3c15b52f3892"], +Cell[307796, 7862, 502, 11, 20, "Message",ExpressionUUID->"0f69f23f-9ebd-e648-bdb9-6fd79332c624"], +Cell[308301, 7875, 219, 3, 25, "Output",ExpressionUUID->"5039ca40-577a-9845-9005-952d6fd4ba80"] +}, Open ]], +Cell[CellGroupData[{ +Cell[308557, 7883, 2242, 64, 131, "Input",ExpressionUUID->"1c2bb25c-a24b-4143-a03c-8699409c5ef4"], +Cell[310802, 7949, 607, 13, 50, "Message",ExpressionUUID->"1e42db4b-3b6e-c242-b9d7-d1a4a590205c"], +Cell[311412, 7964, 609, 13, 50, "Message",ExpressionUUID->"5711e838-c643-2748-8d96-0fab3b2f1e7d"], +Cell[312024, 7979, 612, 13, 50, "Message",ExpressionUUID->"dd8620f4-80cf-c643-a446-5bcc1b5bdb0e"], +Cell[312639, 7994, 505, 11, 20, "Message",ExpressionUUID->"cf9dccda-eee8-994b-ad9a-25e60dad1234"], +Cell[313147, 8007, 219, 4, 25, "Output",ExpressionUUID->"10ac8af1-fb09-ed44-ade0-041f4f437b34"] +}, Open ]], +Cell[CellGroupData[{ +Cell[313403, 8016, 236, 6, 38, "Input",ExpressionUUID->"df5a49d1-7ffc-9d41-9de9-b2cb4ed5c458"], +Cell[313642, 8024, 221, 4, 25, "Output",ExpressionUUID->"9a8cd210-28fb-3a49-9264-6c45d78c3519"] +}, Open ]], +Cell[313878, 8031, 271, 6, 34, "Input",ExpressionUUID->"f1e753e6-7de9-0b47-aa25-47e49d9ceac1"], +Cell[CellGroupData[{ +Cell[314174, 8041, 558, 19, 42, "Input",ExpressionUUID->"24c8f2e4-3fba-8b49-a53c-9297f14cb47a"], +Cell[314735, 8062, 219, 4, 25, "Output",ExpressionUUID->"d71ca9d4-3a99-114e-8429-d0bb97d6c51f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[314991, 8071, 170, 5, 46, "Input",ExpressionUUID->"56d70fe5-9e2b-c64e-bfc2-fde134e22b5d"], +Cell[315164, 8078, 221, 4, 25, "Output",ExpressionUUID->"40be2a73-a34f-fb46-80e9-9b4b48bcce4c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[315422, 8087, 181, 5, 35, "Input",ExpressionUUID->"4acc66ff-efd9-9749-a32c-ab2aed359d56"], +Cell[315606, 8094, 218, 4, 25, "Output",ExpressionUUID->"4dfbfd6c-3163-3243-b4bd-2ebdd9be75d5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[315861, 8103, 6055, 185, 310, "Input",ExpressionUUID->"b77d1393-1706-0344-94ba-b60790e869c9"], +Cell[321919, 8290, 220, 4, 25, "Output",ExpressionUUID->"da550190-2da4-fa43-8d86-a2b03847dc98"] +}, Open ]], +Cell[CellGroupData[{ +Cell[322176, 8299, 368, 9, 33, "Input",ExpressionUUID->"d3dc886c-76ef-e140-8bf7-ae2b35b15037"], +Cell[322547, 8310, 217, 4, 25, "Output",ExpressionUUID->"ec1fb74f-463c-9b4d-a2f4-699641dae361"] +}, Open ]], +Cell[CellGroupData[{ +Cell[322801, 8319, 6122, 187, 353, "Input",ExpressionUUID->"a2a617e0-a59a-4147-bc6f-17a0446bc938"], +Cell[328926, 8508, 224, 4, 25, "Output",ExpressionUUID->"7cc13680-4e83-0846-87e9-af1bbaa68702"] +}, Open ]], +Cell[CellGroupData[{ +Cell[329187, 8517, 368, 9, 33, "Input",ExpressionUUID->"764ea9ee-2dee-8949-964f-92b7fcc0b4f1"], +Cell[329558, 8528, 218, 4, 25, "Output",ExpressionUUID->"766ea627-714a-b042-b5e0-d28e31761bf4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[329813, 8537, 2663, 88, 135, "Input",ExpressionUUID->"8de6527c-f379-114f-be34-ffaf646fc19c"], +Cell[332479, 8627, 224, 4, 25, "Output",ExpressionUUID->"656f80a5-d397-e44b-8a1d-19559d79ce10"] +}, Open ]], +Cell[CellGroupData[{ +Cell[332740, 8636, 2603, 85, 135, "Input",ExpressionUUID->"bcbbe365-5317-404f-8cca-b17046887210"], +Cell[335346, 8723, 218, 4, 25, "Output",ExpressionUUID->"d1907b1c-4d75-3c44-bdf7-887c25017421"] +}, Open ]], +Cell[CellGroupData[{ +Cell[335601, 8732, 3712, 118, 197, "Input",ExpressionUUID->"c57327ef-c920-754d-8029-af14560ebe8f"], +Cell[339316, 8852, 223, 4, 25, "Output",ExpressionUUID->"2b293f6d-4cad-384c-8140-d4f49d425c15"] +}, Open ]], +Cell[CellGroupData[{ +Cell[339576, 8861, 2074, 59, 92, "Input",ExpressionUUID->"670d91c8-ce08-f444-b144-138ebae0f868"], +Cell[341653, 8922, 592, 12, 50, "Message",ExpressionUUID->"68702f7c-93b9-8f49-9333-85446d9da20e"], +Cell[342248, 8936, 595, 12, 50, "Message",ExpressionUUID->"6e578805-a7c7-4a41-b8bc-6dde237f5bb9"], +Cell[342846, 8950, 601, 13, 50, "Message",ExpressionUUID->"dd8b0a48-a91b-b641-b25f-476fa8891f1d"], +Cell[343450, 8965, 507, 11, 20, "Message",ExpressionUUID->"7e02e9ea-40a9-0f4a-8e7b-f28d97a52c31"], +Cell[343960, 8978, 222, 4, 25, "Output",ExpressionUUID->"cf0c119b-2a0c-eb4c-b64f-fd333af7acd4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[344219, 8987, 2074, 59, 92, "Input",ExpressionUUID->"862c274e-f293-6a41-8f4f-719ed57da8ce"], +Cell[346296, 9048, 592, 12, 50, "Message",ExpressionUUID->"44fe1e60-99c2-6c4a-b132-f376efa351ff"], +Cell[346891, 9062, 595, 12, 50, "Message",ExpressionUUID->"fe77862c-526a-bc4c-9aa4-07d6c1add029"], +Cell[347489, 9076, 601, 13, 50, "Message",ExpressionUUID->"11e2f001-632d-2249-a07e-54f51308c266"], +Cell[348093, 9091, 507, 11, 20, "Message",ExpressionUUID->"c1688544-c5ab-a841-b801-9e36c53c9ae0"], +Cell[348603, 9104, 222, 4, 25, "Output",ExpressionUUID->"d95798d7-3189-bd47-b181-2ace7657c85b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[348862, 9113, 2138, 60, 92, "Input",ExpressionUUID->"f5360edc-957d-9f48-b8b4-746fa181d4a5"], +Cell[351003, 9175, 520, 11, 33, "Message",ExpressionUUID->"e436725b-b1eb-1e47-af0a-457135dd821e"], +Cell[351526, 9188, 521, 11, 33, "Message",ExpressionUUID->"5f2d212e-c110-ae4d-ac63-a731495de57c"], +Cell[352050, 9201, 524, 11, 33, "Message",ExpressionUUID->"9e0c44a2-2856-1a4e-82e4-79ffb8fe99dd"], +Cell[352577, 9214, 480, 10, 20, "Message",ExpressionUUID->"c0990c17-72fb-be43-a0ee-7f925c4d7e89"], +Cell[353060, 9226, 184, 3, 25, "Output",ExpressionUUID->"5860a3fc-cc7e-1b4b-8ec4-a45686f94234"] +}, Open ]], +Cell[CellGroupData[{ +Cell[353281, 9234, 1616, 48, 69, "Input",ExpressionUUID->"143d6afa-76a8-b440-a2a9-2759769b081f"], +Cell[354900, 9284, 618, 12, 53, "Message",ExpressionUUID->"4237e138-f145-b443-83e0-43390364f340"], +Cell[355521, 9298, 618, 12, 53, "Message",ExpressionUUID->"f1817fe7-de7f-424a-8c32-fd6eb18ad55d"], +Cell[356142, 9312, 626, 12, 53, "Message",ExpressionUUID->"d01422f2-ac30-d647-9174-416a2de0acdd"], +Cell[356771, 9326, 482, 10, 20, "Message",ExpressionUUID->"1cc939d5-2041-e346-853b-0da1f5d3fdb3"], +Cell[357256, 9338, 192, 3, 25, "Output",ExpressionUUID->"be53344f-c49c-d340-8fe2-187c78764ee3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[357485, 9346, 2249, 64, 131, "Input",ExpressionUUID->"2e239e43-8455-8947-be70-b8e43bbe859a"], +Cell[359737, 9412, 594, 12, 50, "Message",ExpressionUUID->"376bc77a-50fd-0d47-9681-2bc434722c43"], +Cell[360334, 9426, 597, 12, 50, "Message",ExpressionUUID->"2efa0725-97f0-1746-a14f-4d0ef984c116"], +Cell[360934, 9440, 602, 12, 69, "Message",ExpressionUUID->"3247c80e-edc6-e745-8fee-5b551559a9ce"], +Cell[361539, 9454, 482, 10, 20, "Message",ExpressionUUID->"5e6cbab7-7762-ef49-bbd5-8d0e64879c32"], +Cell[362024, 9466, 197, 3, 25, "Output",ExpressionUUID->"14e4c193-7d63-6f44-b586-9c58b6278944"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362258, 9474, 2221, 64, 131, "Input",ExpressionUUID->"99e346c1-cf6d-8f4a-b6fb-39037ee79c0a"], +Cell[364482, 9540, 592, 12, 50, "Message",ExpressionUUID->"b53712a8-b3d6-1f4e-8898-5e6ce60da8c7"], +Cell[365077, 9554, 597, 12, 50, "Message",ExpressionUUID->"5dee7001-7024-b140-89a6-01103fff2a2b"], +Cell[365677, 9568, 602, 12, 69, "Message",ExpressionUUID->"f711f4eb-2b29-5047-8426-bced102f0fee"], +Cell[366282, 9582, 480, 10, 20, "Message",ExpressionUUID->"b2bdb7ab-4d79-044f-8a69-305a4f35a1be"], +Cell[366765, 9594, 196, 3, 25, "Output",ExpressionUUID->"635433e0-898b-ef4f-97c3-27cb9c864fdc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[366998, 9602, 2221, 64, 131, "Input",ExpressionUUID->"867b2dc8-7ef3-234b-80bd-e701484a92f5"], +Cell[369222, 9668, 596, 12, 50, "Message",ExpressionUUID->"5521676c-b5e4-1145-b679-3dc06940bc52"], +Cell[369821, 9682, 599, 12, 50, "Message",ExpressionUUID->"88c4b1ae-962d-3b4a-a9c8-1101d0b0bcfc"], +Cell[370423, 9696, 604, 12, 69, "Message",ExpressionUUID->"56a57c6b-07a8-f146-b18a-9a7e9cc34f3a"], +Cell[371030, 9710, 479, 10, 20, "Message",ExpressionUUID->"ec38de78-337d-2648-bf83-eb09a46b18b3"], +Cell[371512, 9722, 197, 3, 25, "Output",ExpressionUUID->"b1693ef0-2cab-0142-884b-588173786ea2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[371746, 9730, 213, 6, 38, "Input",ExpressionUUID->"b1cee125-11a3-8a43-b076-a72829d187d3"], +Cell[371962, 9738, 194, 3, 25, "Output",ExpressionUUID->"0df6ed8f-8670-fa47-923c-919d6c136038"] +}, Open ]], +Cell[372171, 9744, 242, 5, 34, "Input",ExpressionUUID->"e87cb7b6-2d4f-2b46-b7dc-f61f4036bef1"], +Cell[CellGroupData[{ +Cell[372438, 9753, 558, 19, 42, "Input",ExpressionUUID->"dafb41d5-8379-5e45-a5a7-0828c3048eab"], +Cell[372999, 9774, 197, 3, 25, "Output",ExpressionUUID->"c881c11d-abad-0d49-99e0-f303d09aef0a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[373233, 9782, 170, 5, 46, "Input",ExpressionUUID->"3d6ec365-065c-9046-b32d-db356c9d51fa"], +Cell[373406, 9789, 193, 3, 25, "Output",ExpressionUUID->"9caa35c4-53d8-fa45-a312-698f5ed5b1e5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[373636, 9797, 181, 5, 35, "Input",ExpressionUUID->"c7dc55d1-f163-224f-bef1-731f35b2237f"], +Cell[373820, 9804, 197, 3, 25, "Output",ExpressionUUID->"833d0ac6-4c09-d440-8bc3-d5df9ca76865"] +}, Open ]], +Cell[CellGroupData[{ +Cell[374054, 9812, 6055, 185, 310, "Input",ExpressionUUID->"ae1da06e-d004-c94e-a60b-5d6c8a81d4a0"], +Cell[380112, 9999, 196, 3, 25, "Output",ExpressionUUID->"0382a191-ad63-844a-8759-086853e23ce5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[380345, 10007, 368, 9, 33, "Input",ExpressionUUID->"711641aa-bfb1-b442-a8a1-7f2d92e52258"], +Cell[380716, 10018, 192, 3, 25, "Output",ExpressionUUID->"219c4b04-20e8-3f41-8e84-a455d4da6bdc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[380945, 10026, 6122, 187, 353, "Input",ExpressionUUID->"03560694-f256-804d-bdf2-150141b736fd"], +Cell[387070, 10215, 197, 3, 25, "Output",ExpressionUUID->"b204ec83-ad19-5349-8b02-7defd6db0df8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[387304, 10223, 368, 9, 33, "Input",ExpressionUUID->"41fd6fe5-afbf-ed41-96d1-404a404fc933"], +Cell[387675, 10234, 196, 3, 25, "Output",ExpressionUUID->"c15b8bac-d390-9f42-a7c0-c761ed162cd9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[387908, 10242, 2663, 88, 135, "Input",ExpressionUUID->"1ffc2e4a-e112-f841-8653-59d1c97f1323"], +Cell[390574, 10332, 197, 3, 25, "Output",ExpressionUUID->"c7904c57-9026-5d42-a13c-7cf9c291f02e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[390808, 10340, 2603, 85, 135, "Input",ExpressionUUID->"c98e90b4-3450-674d-a534-9abe2866d10f"], +Cell[393414, 10427, 196, 3, 25, "Output",ExpressionUUID->"07fee721-d71d-e947-a10f-a3d491f5375c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[393647, 10435, 3712, 118, 197, "Input",ExpressionUUID->"3a1b0a64-3226-5845-846d-8f00794d5760"], +Cell[397362, 10555, 196, 3, 25, "Output",ExpressionUUID->"61d2bf74-dc83-444c-9d85-173366eb4115"] +}, Open ]], +Cell[CellGroupData[{ +Cell[397595, 10563, 2054, 59, 92, "Input",ExpressionUUID->"157a27fc-8a7f-ef4c-bd2d-9f444415254b"], +Cell[399652, 10624, 589, 12, 50, "Message",ExpressionUUID->"0c8f7a0d-d84f-5048-ba48-794ef1d00127"], +Cell[400244, 10638, 591, 12, 50, "Message",ExpressionUUID->"e0f5c7bd-1699-2c49-bf84-66232a770396"], +Cell[400838, 10652, 597, 12, 50, "Message",ExpressionUUID->"650d4e60-de9d-c448-9e55-c9a2ff3adfbd"], +Cell[401438, 10666, 482, 10, 20, "Message",ExpressionUUID->"02aaa7f6-e3fa-f246-ae96-c2637dc36a8a"], +Cell[401923, 10678, 194, 3, 25, "Output",ExpressionUUID->"e85ac070-0188-1a40-a36b-aa73ff8bf583"] +}, Open ]], +Cell[CellGroupData[{ +Cell[402154, 10686, 2052, 59, 92, "Input",ExpressionUUID->"11801718-69ec-bf4e-86d8-e9949dfbcff4"], +Cell[404209, 10747, 589, 12, 50, "Message",ExpressionUUID->"92fdcdbe-704c-8643-ac44-6336f3afd685"], +Cell[404801, 10761, 593, 12, 50, "Message",ExpressionUUID->"22fb307d-fe2e-4e40-aecb-68b60c56d53f"], +Cell[405397, 10775, 597, 12, 50, "Message",ExpressionUUID->"fe4891cd-9e5e-304f-b8fa-b9a722a2b0ed"], +Cell[405997, 10789, 482, 10, 20, "Message",ExpressionUUID->"3700feb7-ec5c-144b-8683-e9364219ca8f"], +Cell[406482, 10801, 194, 3, 25, "Output",ExpressionUUID->"8b9d1dc2-78af-9e49-aad9-8e9bc3b553be"] +}, Open ]], +Cell[CellGroupData[{ +Cell[406713, 10809, 2120, 60, 92, "Input",ExpressionUUID->"4d882d59-3e42-1040-97a9-33dddc2b9855"], +Cell[408836, 10871, 496, 11, 33, "Message",ExpressionUUID->"20149181-1e2c-4b41-b02e-304cc98619fd"], +Cell[409335, 10884, 501, 11, 33, "Message",ExpressionUUID->"44ce87a6-827a-304b-86da-3cdac8e926dc"], +Cell[409839, 10897, 505, 11, 33, "Message",ExpressionUUID->"b6629f6a-df4e-5a42-a25e-15825d979765"], +Cell[410347, 10910, 455, 10, 20, "Message",ExpressionUUID->"5b7f13bb-27ba-5041-8f22-5700d1dce8b8"], +Cell[410805, 10922, 21721, 403, 187, "Output",ExpressionUUID->"ed04804c-1f60-394e-87d4-29e6f5f16859"] +}, Open ]], +Cell[CellGroupData[{ +Cell[432563, 11330, 1616, 48, 69, "Input",ExpressionUUID->"804e6c9f-1b36-2141-acb9-3b729fb7abb0"], +Cell[434182, 11380, 614, 12, 53, "Message",ExpressionUUID->"47145e38-56d2-404b-b2c9-a4c6bd4713fc"], +Cell[434799, 11394, 616, 12, 53, "Message",ExpressionUUID->"c894df32-367b-2344-a42a-d2aaa61a6442"], +Cell[435418, 11408, 616, 12, 53, "Message",ExpressionUUID->"dd94c528-2deb-d443-8dc9-050571e0f325"], +Cell[436037, 11422, 480, 10, 20, "Message",ExpressionUUID->"23602150-0799-1542-bae7-7ae74cb1ca39"], +Cell[436520, 11434, 197, 3, 25, "Output",ExpressionUUID->"283063f8-35c9-364f-a699-de6e0a543cf7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[436754, 11442, 2249, 64, 131, "Input",ExpressionUUID->"9b45c184-4df7-db4d-adb2-01f19f0f15b0"], +Cell[439006, 11508, 585, 12, 50, "Message",ExpressionUUID->"a788a2f4-d4f1-2443-8afb-75cfb56de955"], +Cell[439594, 11522, 589, 12, 50, "Message",ExpressionUUID->"be132617-3a6c-7243-9ffe-8f7551dfb0f4"], +Cell[440186, 11536, 595, 12, 50, "Message",ExpressionUUID->"0d46806c-287f-8f45-adf8-aa98d149c28b"], +Cell[440784, 11550, 480, 10, 20, "Message",ExpressionUUID->"7c6c4499-aad8-2745-a278-f3d39e8c21d9"], +Cell[441267, 11562, 192, 3, 25, "Output",ExpressionUUID->"9d6b69a4-8782-c54e-b077-f0b89827acb9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[441496, 11570, 2221, 64, 131, "Input",ExpressionUUID->"00ca455f-f3f6-2c4f-8927-9e8c2d28dafd"], +Cell[443720, 11636, 589, 12, 50, "Message",ExpressionUUID->"58cce6cc-55d6-8447-b0af-98545f6e8b94"], +Cell[444312, 11650, 593, 12, 50, "Message",ExpressionUUID->"a8dc6fa7-2ffc-a94c-acac-c04ec7ca9ce4"], +Cell[444908, 11664, 597, 12, 50, "Message",ExpressionUUID->"9072d850-7d12-7542-9452-001fb3ad3caa"], +Cell[445508, 11678, 480, 10, 20, "Message",ExpressionUUID->"5b507f90-a99e-494e-8b83-58443f9760dd"] +}, Open ]], +Cell[446003, 11691, 189, 4, 22, "Input",ExpressionUUID->"8cac9b30-e121-024d-91d3-cf92fd4a988a"], +Cell[CellGroupData[{ +Cell[446217, 11699, 2221, 64, 131, "Input",ExpressionUUID->"b454660a-890c-f24b-923b-563bff174231"], +Cell[448441, 11765, 584, 12, 50, "Message",ExpressionUUID->"8119867f-f85f-364e-8254-1ef6052311fc"], +Cell[449028, 11779, 589, 12, 50, "Message",ExpressionUUID->"c0c54d2a-f8dc-8e40-838e-476f912b22f3"], +Cell[449620, 11793, 595, 12, 50, "Message",ExpressionUUID->"02b3b0aa-3c27-2340-a0f3-fddaabda96cb"], +Cell[450218, 11807, 480, 10, 20, "Message",ExpressionUUID->"34c92b2b-5689-2d44-aa86-39776cc9979f"], +Cell[450701, 11819, 197, 3, 25, "Output",ExpressionUUID->"2b7d55d3-b0f9-2446-a1be-cbacdaca9c16"] +}, Open ]], +Cell[CellGroupData[{ +Cell[450935, 11827, 215, 6, 38, "Input",ExpressionUUID->"673f44c9-71c5-b64a-9ddb-ff434e6a2570"], +Cell[451153, 11835, 198, 3, 25, "Output",ExpressionUUID->"16796d12-1b0d-d745-b4a7-59e302a2c068"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3(ДЛЯ АЭСНИКОВ)/l_АЭСНИКАМ_osc_Qw2.nb b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3(ДЛЯ АЭСНИКОВ)/l_АЭСНИКАМ_osc_Qw2.nb new file mode 100755 index 0000000..91a3186 --- /dev/null +++ b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3(ДЛЯ АЭСНИКОВ)/l_АЭСНИКАМ_osc_Qw2.nb @@ -0,0 +1,14081 @@ +(* 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[ 572771, 14073] +NotebookOptionsPosition[ 533346, 13443] +NotebookOutlinePosition[ 533770, 13460] +CellTagsIndexPosition[ 533727, 13457] +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}, + CellLabel->"In[1]:=",ExpressionUUID->"7af76b20-47eb-4947-b82c-88607e2425d8"], + +Cell[BoxData["3"], "Output", + CellChangeTimes->{3.991320420900818*^9, 3.992089565723549*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"7b5e8ee2-cbf6-f54c-abb7-f9b6bbf35f1e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "234"}]], "Input", + CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { + 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, + 3.99179303935478*^9}, 3.9920893973301544`*^9}, + CellLabel->"In[2]:=",ExpressionUUID->"28f12cd5-18c7-0c4e-9660-86136dac566b"], + +Cell[BoxData["234"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.9920895659023285`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"d8397540-2d10-ef4b-814b-617895f20c1c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "82"}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.992089401338833*^9, + 3.9920894018500023`*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"cc9d1e65-5d3b-274a-990c-6ce025f33ccb"], + +Cell[BoxData["82"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9920895659261894`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"f3d5b555-ce2f-3a46-9727-10269c33a1f4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"90c48fc9-b53c-af45-bfb9-f00d4b1dadaa"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9, 3.991707828219631*^9, + 3.9917123414174232`*^9, 3.9920895659317207`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"7e7ddeee-4bf6-564c-b0ae-96cf6695dd3d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"7842dec9-157c-fb49-bcc6-94fe025c4730"], + +Cell[BoxData["0.5544871794871795`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9, 3.9917078282275677`*^9, + 3.9917123414253197`*^9, 3.9920895659537334`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"983fb5a6-0a5c-e543-af1c-a02785962c36"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"b17bb579-64fa-af4c-b78a-a8bac80b827e"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9, 3.9917078282485256`*^9, + 3.9917123414324265`*^9, 3.9920895659587307`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"e4c03cd2-07c6-9848-a139-c78143a1d792"] +}, 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->"836e4938-4de0-3349-894c-1dccfcd0a498"], + +Cell[BoxData["5.0395985234915885`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9, 3.9917078282706223`*^9, + 3.9917123414384117`*^9, 3.992089565981739*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"6ef7db62-d4be-ec4d-b45f-f2a5cd6f85b6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"45d811e2-fc77-2049-be14-dbafce0a7f22"], + +Cell[BoxData["6.190691825034912`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9, 3.9917078282785244`*^9, + 3.991712341447321*^9, 3.9920895660013065`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"3aebb824-5d8a-174b-94e9-df728faba014"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.421480706633547"}]], "Input", + CellChangeTimes->{3.9917123951294365`*^9, 3.99179305435186*^9, + 3.9920894102175694`*^9}, + CellLabel->"In[9]:=",ExpressionUUID->"57b7d81f-468b-a746-b33a-96f21092b3cb"], + +Cell[BoxData["0.421480706633547`"], "Output", + CellChangeTimes->{3.991319649862606*^9, 3.991707828301527*^9, + 3.9917123414573193`*^9, 3.991712407248003*^9, 3.9920895660059776`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"25541067-6729-b64e-b7f4-82a7f88ec5b3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.744261692152701"}]], "Input", + CellChangeTimes->{3.9917124038115807`*^9, 3.991793052797516*^9, + 3.9920894153197956`*^9}, + CellLabel->"In[10]:=",ExpressionUUID->"8f4bc0a4-1edf-c745-a78c-584ebe594ec6"], + +Cell[BoxData["0.744261692152701`"], "Output", + CellChangeTimes->{3.9913196498716316`*^9, 3.991707828308525*^9, + 3.99171234146842*^9, 3.9917124073213234`*^9, 3.9920895660299835`*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"e198b284-33df-f249-a11d-0fe25a663cca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"52a31f76-37b8-634c-ab0e-53f4cc917a3f"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9, 3.9917078283276424`*^9, + 3.991712341478319*^9, 3.9920895660361767`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"69a5625a-b477-c842-91e9-5fbbbd5e1231"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"bad3cf6a-5d22-6a45-a93b-2b20e329924b"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9, 3.99170782834754*^9, + 3.9917123414863186`*^9, 3.992089566041706*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"bca99840-dd70-ee43-ac21-1703f4092419"] +}, 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->"eb2941b4-8018-4b44-aac0-1ce0febe8137"], + +Cell[BoxData["1.4675571041126967`"], "Output", + CellChangeTimes->{3.9913197863028755`*^9, 3.991707968406042*^9, + 3.992089566066429*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"a573c934-e218-d04a-baaa-38b6d8d5e3c4"] +}, 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->"5c8af646-1783-384a-aa48-dc8c9aa0db65"], + +Cell[BoxData["1.9764491154865769`"], "Output", + CellChangeTimes->{3.9913197864610195`*^9, 3.9917079684291363`*^9, + 3.9920895660724354`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"2b2fe62d-8726-a043-b4dc-bb7b160c758d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"50dd0ec9-5355-3644-b35d-c1868a8b58da"], + +Cell[BoxData["0.6559383278596986`"], "Output", + CellChangeTimes->{3.991319786533783*^9, 3.991707968457081*^9, + 3.992089566098549*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"96657e9f-3032-6949-acdb-ea951ed007b9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"051a5338-e267-1045-aa79-03c3371c46ea"], + +Cell[BoxData[ + RowBox[{"-", "0.37229468143309563`"}]], "Output", + CellChangeTimes->{3.991319786540777*^9, 3.9917079684650364`*^9, + 3.992089566104553*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"e347f702-bcdf-d643-91fd-2a8931e06eaa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"372c2e63-c46b-6e46-8677-c1b719a36a3e"], + +Cell[BoxData[ + RowBox[{"-", "0.10565103139566565`"}]], "Output", + CellChangeTimes->{3.9913197865777817`*^9, 3.9917079684860363`*^9, + 3.9920895661334343`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"3552d586-299c-cb47-bc79-7fc8922e5746"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"696e9667-8c50-6f40-8c42-86e5fa98991c"], + +Cell[BoxData["0.4612539649188019`"], "Output", + CellChangeTimes->{3.9913197866129*^9, 3.9917079684940376`*^9, + 3.992089566154436*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"3f63847e-fcfd-7749-afdb-18ad1a27ac23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"2d496a9e-aca2-bf46-bcd1-5594cc8e5188"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786620775*^9, 3.9917079685140343`*^9, + 3.992089566161434*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"395808c6-3fdd-544b-9fcd-f7f2b7a8f7f2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellChangeTimes->{3.9918430951178913`*^9}, + CellLabel->"In[20]:=",ExpressionUUID->"8b3c8ed5-4340-4445-9d94-c6e114cb215d"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{3.991319786657793*^9, 3.991707968535036*^9, + 3.99208956616745*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"bc4619db-21e8-a142-98fd-5569c3c57e7a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"87dd5848-9b5a-0f45-9ddd-5a0ebacfca29"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{3.9913197866657925`*^9, 3.9917079685410557`*^9, + 3.992089566190012*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"0ae7f4e9-f4c3-d944-a37f-557a458f7c70"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"2b6475b8-e8a9-0542-b622-db179e1b89bd"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{3.9913197866996*^9, 3.991707968561041*^9, + 3.992089566195524*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"ca7c6157-9441-164d-ab04-17c6bf27a075"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"93bdd082-a5e8-7b4c-a02d-ea527d155069"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{3.9913197867406044`*^9, 3.9917079685810375`*^9, + 3.992089566225437*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"5ff78eac-d617-3a45-879e-5805c6184528"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "32"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.9917930777342243`*^9, + 3.9920894233840046`*^9}, + CellLabel->"In[24]:=",ExpressionUUID->"b021ae84-5bca-fc4a-a567-e8e28f2ff395"], + +Cell[BoxData["32"], "Output", + CellChangeTimes->{3.992089566254753*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"8de75c2f-09ee-994b-96eb-699f6f33d848"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431115646553`*^9, 3.991843111569187*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"635b133c-c0bf-eb47-8623-007b4879fac1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"92", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, { + 3.991644237125025*^9, 3.991644237304865*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"0979aad1-64a1-4947-841b-41e0e9a6a815"], + +Cell[BoxData["60"], "Output", + CellChangeTimes->{3.9913197867928696`*^9, 3.991707968608036*^9, + 3.99208956628076*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"b1985621-0f6a-454f-acd0-bc6a5dfe39e4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"468488f6-1d00-1f49-a607-f5b114b588f3"], + +Cell[BoxData["152"], "Output", + CellChangeTimes->{3.991319786827894*^9, 3.9917079686284103`*^9, + 3.9920895662857647`*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"e8768842-e538-d741-b4e4-d7333cbd45ca"] +}, 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->"5f4b947c-a70a-4449-bef8-4291773c641a"], + +Cell[BoxData["0.10940949935815147`"], "Output", + CellChangeTimes->{3.9913197868648605`*^9, 3.9917079686354065`*^9, + 3.9920895662917824`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"7fe4c271-1c64-3f46-8817-83af8d06923e"] +}, 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->"ed9995f5-3d5a-9643-903f-4b8994a5dac3"], + +Cell[BoxData[ + RowBox[{"-", "2.565044929396662`"}]], "Output", + CellChangeTimes->{3.9913197868718567`*^9, 3.991707968658518*^9, + 3.9920895663198013`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"4f2b99a9-eb7f-5542-a2d6-acb17f970a88"] +}, 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.991972093618887*^9, 3.9919720982596817`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"d889c950-8e54-674e-a44b-e8e13778a129"], + +Cell[BoxData["18.13233419952894`"], "Output", + CellChangeTimes->{3.9913197869068584`*^9, 3.991707968678421*^9, + 3.992089566342434*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"83cc7ff1-bdf6-8f4e-8582-ded03cb108b2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"dc70fa8d-74cc-cb41-99ef-278e2e2c47b4"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786940857*^9, 3.9917079686854057`*^9, + 3.9920895663484135`*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"11b5d657-717f-724f-b697-54ca5b5800be"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "0.889"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.991793106556059*^9, 3.9920891167348633`*^9}, + CellLabel->"In[32]:=",ExpressionUUID->"3a689cb6-519b-4340-a734-5274eea318ac"], + +Cell[BoxData["0.889`"], "Output", + CellChangeTimes->{3.9920895663544292`*^9}, + CellLabel->"Out[32]=",ExpressionUUID->"f2812a09-4bb1-f149-830f-7cef615590cb"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431193859673`*^9, 3.9918431193894367`*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"b1f8ace4-417d-2147-a34d-2da54bc7b22c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.634"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917169698218613`*^9, 3.991717907758713*^9, + 3.991793107839529*^9, 3.9920891205275974`*^9}, + CellLabel->"In[34]:=",ExpressionUUID->"f3a033c1-6cde-e74f-bfee-47f629c69328"], + +Cell[BoxData["0.634`"], "Output", + CellChangeTimes->{3.9920895663844376`*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"860e0808-1b87-6241-a269-77395ec0a6bb"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843120757866*^9, 3.9918431207603054`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"cd91ab8f-4493-7040-8a78-45eef3353576"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "1.069"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.991717916696951*^9, + 3.991793108990593*^9, 3.992089124257103*^9}, + CellLabel->"In[36]:=",ExpressionUUID->"d9a80083-e913-ad4e-817b-0e4386e197ad"], + +Cell[BoxData["1.069`"], "Output", + CellChangeTimes->{3.9920895664084415`*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"3e701883-9a95-1d4e-8e4b-de6ee331431c"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431220200443`*^9, 3.9918431220220585`*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"3e08b346-fbb5-0141-bc87-0df6c31feaad"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn1", "=", "0.744"}], "\n"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.991716995355715*^9, + 3.9917931103354855`*^9, 3.9920891300041294`*^9}, + CellLabel->"In[38]:=",ExpressionUUID->"6e4d61ad-2038-5e41-832d-cfe641117e57"], + +Cell[BoxData["0.744`"], "Output", + CellChangeTimes->{3.9920895664164486`*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"31290a54-93f5-5646-8c64-059ad7c7355f"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431237966404`*^9, 3.9918431238010616`*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"e198ec7e-9dfd-4248-860a-01920bb9f100"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"v2", "=", "1.991"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991717006317978*^9, 3.9917931115739956`*^9, 3.9920891335540543`*^9}, + CellLabel->"In[40]:=",ExpressionUUID->"99f31a34-85c7-a14e-86a8-b5f3b8ade546"], + +Cell[BoxData["1.991`"], "Output", + CellChangeTimes->{3.992089566442686*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"bb6a7196-251b-b34b-9380-4f375348932b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431249171696`*^9, 3.991843124921198*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"72dd5383-7133-e644-b34b-6af98dbdf9cd"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"n2", "=", "0.921"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917170151233826`*^9, 3.9917931128910503`*^9, 3.992089139983057*^9}, + CellLabel->"In[42]:=",ExpressionUUID->"d1be27e4-b444-3d4c-9afb-0d20975d05af"], + +Cell[BoxData["0.921`"], "Output", + CellChangeTimes->{3.9920895664756985`*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"abe4c909-c524-1840-a641-8ebb1cb052a7"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843126102844*^9, 3.991843126104536*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"dba12a62-bf76-bc47-affb-5f299d399fa5"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv2", "=", "2.422"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, { + 3.9917170243815575`*^9, 3.991717046491377*^9}, 3.991793114539028*^9, + 3.99208914362006*^9}, + CellLabel->"In[44]:=",ExpressionUUID->"c8073757-b303-654f-afab-9b71bb1081f7"], + +Cell[BoxData["2.422`"], "Output", + CellChangeTimes->{3.992089566507509*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"a39c1eb7-8dd2-5441-b48e-7a94b4153fb8"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431274420605`*^9, 3.9918431274461517`*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"4705d92e-9da0-4740-a58d-48e59f620e52"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn2", "=", "1.520"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.991793116134735*^9, 3.992089147661951*^9}, + CellLabel->"In[46]:=",ExpressionUUID->"fa54d50d-7dee-1042-8ffa-ac7e7d2884d4"], + +Cell[BoxData["1.52`"], "Output", + CellChangeTimes->{3.9920895665374985`*^9}, + CellLabel->"Out[46]=",ExpressionUUID->"35fc82ef-bc54-314e-b308-809b9014ed6b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843129570627*^9, 3.991843129574024*^9}}, + CellLabel->"In[47]:=",ExpressionUUID->"8e8e3c70-2322-2142-b529-8c612888d3aa"], + +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[48]:=",ExpressionUUID->"f353ab41-7188-4248-a546-b91d3e6d82fd"], + +Cell[BoxData["3.512937062486845`"], "Output", + CellChangeTimes->{3.991319787430073*^9, 3.991707979950527*^9, + 3.9920895666035786`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"262c2d7d-75fa-dd4e-9009-d9b8de2e5c4f"] +}, 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[49]:=",ExpressionUUID->"bdba6fcd-656a-e34f-8dcb-124eefee8d20"], + +Cell[BoxData["0.10043705144066703`"], "Output", + CellChangeTimes->{3.991319787574972*^9, 3.9917079908393784`*^9, + 3.9920895666534615`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"b019b0ad-b8e2-484a-9130-53e5a5ee2585"] +}, 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[50]:=",ExpressionUUID->"4cd8376d-826a-dd4a-a897-70b63a952589"], + +Cell[BoxData[ + RowBox[{"-", "89.89927414638353`"}]], "Output", + CellChangeTimes->{3.991319787641424*^9, 3.991707995240637*^9, + 3.9920895666934986`*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"d8ad5b6d-888d-574f-826c-1132fd6a8a28"] +}, 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[51]:=",ExpressionUUID->"4e99f3e2-0411-4b40-bfb4-0a670571c5c2"], + +Cell[BoxData[ + RowBox[{"-", "147.91129574560722`"}]], "Output", + CellChangeTimes->{3.991319787711939*^9, 3.991707999380541*^9, + 3.992089566742504*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"e4a467fd-541a-5842-b56e-b2697b6de1d9"] +}, 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[52]:=",ExpressionUUID->"99bf7039-5bf3-4440-8c18-72148170868a"], + +Cell[BoxData[ + RowBox[{"-", "77.38698403004418`"}]], "Output", + CellChangeTimes->{3.9913197877723045`*^9, 3.991708001954468*^9, + 3.9920895667890034`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"d61a1dbe-0991-6c49-a578-e2d6536b65bc"] +}, 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[53]:=",ExpressionUUID->"5be20d36-6fb8-3640-bb58-bac5a614c6b0"], + +Cell[BoxData[ + RowBox[{"-", "262.6843748771715`"}]], "Output", + CellChangeTimes->{3.991319787833355*^9, 3.9917080040838356`*^9, + 3.9920895668848705`*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"9f7cd5f2-08b1-3243-bdbb-c66b32daa6f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"1b22b00e-2ad2-6942-89c5-c02daebf5c00"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210013676`*^9, 3.991708067458639*^9, + 3.9920895669137783`*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"5f1a51d3-151a-5540-917b-fcf3404a41de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"840ea210-71e5-9a4b-9983-ed3f112150ad"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210355663`*^9, 3.9917080674805565`*^9, + 3.992089566936777*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"f70ee1be-76c1-9549-8d65-c0282a6c1361"] +}, 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[56]:=",ExpressionUUID->"822ba515-819e-b34f-a941-8e9b357504a1"], + +Cell[BoxData["258.50760713766147`"], "Output", + CellChangeTimes->{3.991320421068556*^9, 3.9917080675026455`*^9, + 3.9920895669487705`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"8fc5ee99-4313-964e-8a1b-630cf7bfcf3d"] +}, 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[57]:=",ExpressionUUID->"f5d79eca-dc83-4944-be0e-f5ad610c4581"], + +Cell[BoxData[ + RowBox[{"-", "173.4091077962894`"}]], "Output", + CellChangeTimes->{3.991320421098543*^9, 3.991708067510544*^9, + 3.9920895669727745`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"799e5c4a-4fd3-ea40-bd6c-3039489aada0"] +}, 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[58]:=",ExpressionUUID->"ac5ad298-eab8-8f4b-aec3-08651e26e098"], + +Cell[BoxData["214.93123633488517`"], "Output", + CellChangeTimes->{3.9913204211275444`*^9, 3.9917080675337753`*^9, + 3.9920895669797745`*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"926833a1-e71a-b243-a9f2-0db0c8b7e69a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"ec2d7e1c-1773-074e-804e-515848d42983"], + +Cell[BoxData["0.6559383278596986`"], "Output", + CellChangeTimes->{3.9913204211385536`*^9, 3.991708067540825*^9, + 3.992089567007345*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"fd7d12b0-8187-6744-a466-5021a9a29d12"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"85094bf1-e1c8-e449-96b6-fb72a8490917"], + +Cell[BoxData[ + RowBox[{"-", "0.37229468143309563`"}]], "Output", + CellChangeTimes->{3.9913204211683464`*^9, 3.991708067561775*^9, + 3.992089567034361*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"edab82d9-f33b-0340-b01c-805cd5b46a00"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"43939263-4c3b-e647-a248-378144df6bda"], + +Cell[BoxData[ + RowBox[{"-", "0.10565103139566565`"}]], "Output", + CellChangeTimes->{3.991320421199068*^9, 3.9917080675837746`*^9, + 3.99208956704138*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"840fe420-69aa-ea45-892f-88808f370e7f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"01840429-959c-5945-a282-94923602233b"], + +Cell[BoxData["0.4612539649188019`"], "Output", + CellChangeTimes->{3.991320421228037*^9, 3.9917080675917854`*^9, + 3.992089567068819*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"d974dbed-2b29-3a47-8d0b-8b02abc2245f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"ff1fb106-cea2-ca42-87c0-1d29621dc295"], + +Cell[BoxData["1.4675571041126967`"], "Output", + CellChangeTimes->{3.9913204212585373`*^9, 3.991708067612774*^9, + 3.992089567091913*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"476de8b6-c7cf-314f-b2ee-1bf7cb6718cc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"92c7cfd3-7080-5447-97a0-cb2fd0b74060"], + +Cell[BoxData["1.9764491154865769`"], "Output", + CellChangeTimes->{3.9913204212884274`*^9, 3.991708067619776*^9, + 3.9920895670979404`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"8a6aa12b-974d-b946-88e8-33763cff5427"] +}, 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[65]:=",ExpressionUUID->"26dfbda1-f2c2-7e48-8ee0-f39fbc8f170c"], + +Cell[BoxData[ + RowBox[{"-", "7.349370511218955`"}]], "Output", + CellChangeTimes->{3.9913204213185234`*^9, 3.991708067640772*^9, + 3.992089567104452*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"3d045e6f-6e7c-d64a-887e-d96c6a032039"] +}, 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[66]:=",ExpressionUUID->"d781cd22-0a2f-8b4c-86ee-4701b754040e"], + +Cell[BoxData[ + RowBox[{"-", "23.078177749593607`"}]], "Output", + CellChangeTimes->{3.991320421349531*^9, 3.991708067662775*^9, + 3.9920895671316357`*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"b5bb204c-3b8f-4148-a8dd-5632c4894db3"] +}, 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[67]:=",ExpressionUUID->"10365d10-5cf1-864f-8f0a-a17234afd1ab"], + +Cell[BoxData["251.15823662644252`"], "Output", + CellChangeTimes->{3.9913204213784294`*^9, 3.991708067669775*^9, + 3.9920895671566715`*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"f7e9ddd7-8ab4-2548-a421-fc357e17bc8b"] +}, 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[68]:=",ExpressionUUID->"286c465f-b047-eb4a-9eeb-60479c772e2f"], + +Cell[BoxData[ + RowBox[{"-", "173.4091077962894`"}]], "Output", + CellChangeTimes->{3.9913204213904285`*^9, 3.991708067690773*^9, + 3.992089567162657*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"f7b1ec93-8d40-c344-aa00-43c6884c2e0e"] +}, 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[69]:=",ExpressionUUID->"15777df3-905e-324f-8c63-ba85817a3779"], + +Cell[BoxData["191.85305858529156`"], "Output", + CellChangeTimes->{3.991320421419428*^9, 3.991708067697775*^9, + 3.992089567189335*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"5f1a8ba6-8806-ef41-a0cf-fed8350a37e7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"372b1d2c-085f-6e45-81b1-705b3f52847d"], + +Cell[BoxData["101.27199504223573`"], "Output", + CellChangeTimes->{3.9913204214494324`*^9, 3.9917080677197742`*^9, + 3.992089567218281*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"8cadb557-4f54-6d44-9228-545532c99842"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"445d2e4d-3e45-9a42-adbb-9f9580a74182"], + +Cell[BoxData["597.1387713314264`"], "Output", + CellChangeTimes->{3.991320421481529*^9, 3.991708067726776*^9, + 3.9920895672256775`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"5f3397c8-36c2-bf4e-b674-9b4cd55a07ec"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.524334841228278"}]], "Input", + CellChangeTimes->{ + 3.991846457174755*^9, {3.9920898974003143`*^9, + 3.9920899047944126`*^9}},ExpressionUUID->"58382c59-dd64-b449-aa77-\ +b500c631729a"], + +Cell[BoxData["0.62`"], "Output", + CellChangeTimes->{3.991339230490425*^9}, + CellLabel-> + "Out[314]=",ExpressionUUID->"8bc528b5-d7e5-b04f-8824-04a5ba44f02f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.902604856378696"}]], "Input", + CellChangeTimes->{3.9918464585717087`*^9, + 3.992089910124529*^9},ExpressionUUID->"1e2a9573-08d6-094d-b2f8-\ +1c2ad58521b5"], + +Cell[BoxData["0.84`"], "Output", + CellChangeTimes->{3.991339230517523*^9}, + CellLabel-> + "Out[315]=",ExpressionUUID->"c1c87292-1cd0-7148-ae35-05da8f9df00b"] +}, Open ]], + +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->"ee9e3f9b-cd15-314a-959e-23f6767d8629"], + +Cell[BoxData["2.3793916761039797`*^-53"], "Output", + CellChangeTimes->{3.991339230528511*^9}, + CellLabel-> + "Out[316]=",ExpressionUUID->"f9bebeff-7b36-a841-ae60-79aab85878cb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + 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"]}]], "*", "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, {3.9915581887684402`*^9, + 3.991558193612196*^9}},ExpressionUUID->"edc47846-771c-164b-bedc-\ +99ac8c0783df"], + +Cell[BoxData["2.192147584896785`*^-54"], "Output", + CellChangeTimes->{3.991339230554512*^9}, + CellLabel-> + "Out[317]=",ExpressionUUID->"dd9bd6be-98ec-9547-9e2c-ebed31965dd0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + 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"]}]], "*", + 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}, + 3.9915581864980736`*^9},ExpressionUUID->"a1f930ec-56b4-2f43-abd0-\ +dd8b8a4708b1"], + +Cell[BoxData["3.508823705223133`*^-54"], "Output", + CellChangeTimes->{3.9913392305796223`*^9}, + CellLabel-> + "Out[318]=",ExpressionUUID->"2d6d3a17-c283-8646-b256-a9dbc673c9bc"] +}, 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->"41ba9715-7e52-a24a-aa04-cf2166cf0dfa"], + +Cell[BoxData["44.37747929594205`"], "Output", + CellChangeTimes->{3.9913392305906105`*^9}, + CellLabel-> + "Out[319]=",ExpressionUUID->"98b38576-def0-1e40-8080-5c3f5765197b"] +}, 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->"163fb4a0-76e7-4649-86cb-bfaf41944c98"], + +Cell[BoxData["102.55835649176893`"], "Output", + CellChangeTimes->{3.99133923061561*^9}, + CellLabel-> + "Out[320]=",ExpressionUUID->"ea23bd61-3699-734f-8a76-9cad8281ef61"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[321]:=",ExpressionUUID->"5f0f180a-aa4c-dd4b-bdd8-1378a8fe1b95"], + +Cell[BoxData["0.5630879721742558`"], "Output", + CellChangeTimes->{3.9913392306426105`*^9}, + CellLabel-> + "Out[321]=",ExpressionUUID->"6002c9fb-3c6f-5a46-96f3-d95ebe5fcb07"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[322]:=",ExpressionUUID->"1922f255-2223-ac46-b784-0bce07b8e6a9"], + +Cell[BoxData["1.956498159343112`"], "Output", + CellChangeTimes->{3.99133923065361*^9}, + CellLabel-> + "Out[322]=",ExpressionUUID->"54e7ec9c-75a9-1d4e-a041-1032d97b3c9c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[323]:=",ExpressionUUID->"ef536efb-880a-d543-b7af-57dde3479623"], + +Cell[BoxData["200.65523570140064`"], "Output", + CellChangeTimes->{3.9913392306776104`*^9}, + CellLabel-> + "Out[323]=",ExpressionUUID->"aa339681-2ea5-f647-b66a-0492fa8f2ab6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[324]:=",ExpressionUUID->"23ab10a2-3c20-0544-ade1-f1d12ec5aec2"], + +Cell[BoxData["24.98842482695703`"], "Output", + CellChangeTimes->{3.991339230703802*^9}, + CellLabel-> + "Out[324]=",ExpressionUUID->"2418bfa6-2d55-cb40-b519-958a954750e7"] +}, 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->"aca75c7d-c5bb-8b47-872f-20148e5c7111"], + +Cell[BoxData["0.01829601703069907`"], "Output", + CellChangeTimes->{3.9913392307297993`*^9}, + CellLabel-> + "Out[325]=",ExpressionUUID->"f503c6c4-4e73-ad4e-8d38-70a1b8888f41"] +}, 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->"cd1abe66-0480-c04d-bbfd-f65271be3b80"], + +Cell[BoxData["6.551890985609901`"], "Output", + CellChangeTimes->{3.991339230837267*^9}, + CellLabel-> + "Out[326]=",ExpressionUUID->"d5c10871-8190-e34b-bafd-c8f1bf959b75"] +}, 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->"c96cc89e-a2d4-f442-8558-837587935139"], + +Cell[BoxData["0.00990105610750653`"], "Output", + CellChangeTimes->{3.9913392308522797`*^9}, + CellLabel-> + "Out[327]=",ExpressionUUID->"21257e6b-3192-d14d-ae2c-f6bb441a55d5"] +}, 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->"1997c8c5-b99e-0343-82de-11d88a9a1347"], + +Cell[BoxData["8.906440683949702`"], "Output", + CellChangeTimes->{3.991339230966341*^9}, + CellLabel-> + "Out[328]=",ExpressionUUID->"6e224ad7-7bb4-3d4b-9ad8-ee907ebc0667"] +}, 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->"b151d79d-271f-514b-8b93-936c1a72f6cb"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991339230988348*^9}, + CellLabel-> + "Out[329]=",ExpressionUUID->"8f4a029e-ffe6-ac48-ac2f-26d4c6f8ae6c"] +}, 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->"ca085857-4c01-0248-853e-e9dc47d19120"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991339231030445*^9}, + CellLabel-> + "Out[330]=",ExpressionUUID->"a0d0e412-b0a8-da49-99d6-5e8fa7d61f8f"] +}, 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->"953e3c2f-fb9c-3f46-89c8-95be764d13e2"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991339231060343*^9}, + CellLabel-> + "Out[331]=",ExpressionUUID->"113275b9-f155-0c40-9fb5-4237227d5946"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"ea9dfb1b-57ad-\ +0148-b647-106c07557f97"], + +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.9918464744109974`*^9},ExpressionUUID->"b8b3f009-678c-e54b-8a0c-\ +4de3179a9fb0"], + +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->"c2771e87-d21b-5a4e-975c-e841dd59c44a"], + +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->"ff170e27-3c46-a544-b2dd-c8eb8ed350ea"], + +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->"1becfb7e-341c-2c43-a01b-4766385a028d"], + +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->"17ed9ce9-43ce-c04b-9baf-441313120d44"], + +Cell[BoxData["6.551890985609901`"], "Output", + CellChangeTimes->{3.9913392346332226`*^9}, + CellLabel-> + "Out[332]=",ExpressionUUID->"125cfb6f-a2d2-194d-9427-f352c26ad1ae"] +}, 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.9918464780941105`*^9},ExpressionUUID->"d9fdb976-d745-4c44-9c66-\ +2929c00590fc"], + +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->"53bbc450-5242-e641-942d-bc7e5add9ee6"], + +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->"2da21055-0b71-ca4c-a4e7-b80153da78d0"], + +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->"a669604f-6176-dd48-8e79-07fc64e4d41b"], + +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->"b2fab6ca-4706-de4f-990c-effa48d983de"], + +Cell[BoxData["8.906440683949707`"], "Output", + CellChangeTimes->{3.99133923819088*^9}, + CellLabel-> + "Out[333]=",ExpressionUUID->"eb68ee17-dac2-1e46-84d5-909c4cb50318"] +}, 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.9918464867236023`*^9},ExpressionUUID->"a3abef6a-80f9-8c44-ac94-\ +1eacd8c5b802"], + +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->"419e66ef-e794-0e41-8cfb-f36151a9a031"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918464901028175`*^9, + 3.9918465034759026`*^9}},ExpressionUUID->"5b0c09f8-5e46-a545-8946-\ +a08264de1b62"], + +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->"a4931f15-eaa0-1242-81c3-10e27a7c5ad4"], + +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->"ab5949a3-42fa-c340-946f-728a0b7f660d"], + +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->"e6df8db5-d6c5-4b4a-ae1b-671c3aaa30b3"], + +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->"0387496f-9be6-1343-8ff5-34662019e71b"], + +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->"9d88b545-fa49-1040-a93c-61d85d3a7a24"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.991923767707161*^9},ExpressionUUID->"15c72253-d078-7f43-9f29-\ +7ac094706013"], + +Cell[BoxData["12.55365498952246`"], "Output", + CellChangeTimes->{3.991340544411957*^9}, + CellLabel-> + "Out[337]=",ExpressionUUID->"6748be9e-23e0-b742-b32d-b4d0b2af2d47"] +}, 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.9919237699816914`*^9},ExpressionUUID->"8ab23ce3-6dd3-7740-bde2-\ +eb9eba4ac874"], + +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->"68caf80c-08a0-5a4f-86e7-94369a91094e"], + +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->"99e2d7e0-6b3a-4241-b934-9876555b06af"], + +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->"35c8608a-cdb9-7b49-a349-ff93419909b7"], + +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->"be12d8f1-8442-ce44-8064-691aa975f7de"], + +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->"331394c4-497c-0346-8d4a-8dd138d0b1ec"] +}, 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->"6f4b7e44-0b17-c840-a01f-706fcd68fd89"], + +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->"c81c58e6-5421-304d-872c-00439d312fe4"], + +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->"55f72141-2a48-cb49-9d96-f54968f261ca"], + +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->"02912ea6-4ba4-644f-aec0-867d70fcdcf0"], + +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->"b4acd794-c7cb-6242-90b6-7a7453ebdeb1"], + +Cell[BoxData["12.553654989521348`"], "Output", + CellChangeTimes->{3.9913408882266617`*^9}, + CellLabel-> + "Out[339]=",ExpressionUUID->"320f82af-6278-6a41-a4de-a355ccf7664a"] +}, 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.9918465455039177`*^9, + 3.9918465541706066`*^9}},ExpressionUUID->"55574de4-5bf4-6a47-8b7c-\ +0502360e0741"], + +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->"ad528e52-1db8-df47-9908-86690dda4ace"], + +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->"a92c32b5-c23e-7943-9656-aea4b5c428d7"], + +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->"278bf77a-d73c-c84a-8914-85a2a0d1559c"], + +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->"341ce956-49ff-8f46-84bb-bcaaba1e8ea9"], + +Cell[BoxData["1.3456729512531673`"], "Output", + CellChangeTimes->{3.991340895263792*^9}, + CellLabel-> + "Out[340]=",ExpressionUUID->"94404803-8b83-8a42-8385-1167ffd078a8"] +}, 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.991846558454563*^9, + 3.991846561166006*^9}},ExpressionUUID->"a62e28a7-2963-b449-b2d2-\ +4774e534a560"], + +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->"c97b7826-1134-834a-8813-439f81fdc13f"], + +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->"5648dba3-b48a-c549-a33c-f599b4e5b995"], + +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->"7563d59f-361e-3948-b073-d7842f12334e"], + +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->"726f2b8e-ea46-7c48-8586-2eb207eadde6"], + +Cell[BoxData["11.729429210875175`"], "Output", + CellChangeTimes->{3.9913409010488796`*^9}, + CellLabel-> + "Out[341]=",ExpressionUUID->"db379c33-b649-2d43-ac47-d39edb6bd127"] +}, 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.991846565092888*^9, + 3.991846568588709*^9}},ExpressionUUID->"9dbddde0-a221-414e-bf4d-\ +6be0dfb61fa1"], + +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->"230d0e01-4d30-3142-81a2-ed4c42905a05"], + +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->"77058178-333e-354d-80c4-e12104a807ce"], + +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->"b5bc528a-d748-0f4f-94e7-12c75a1d74a6"], + +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->"2107b1d1-4ebe-2440-81fa-60e90e5253f9"], + +Cell[BoxData["21.67464099510054`"], "Output", + CellChangeTimes->{3.991340904517517*^9}, + CellLabel-> + "Out[342]=",ExpressionUUID->"7bdb3303-182d-9d45-b807-70346e03e157"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991846571659788*^9, + 3.991846575865097*^9}},ExpressionUUID->"a4f97f96-646f-ae45-96cc-\ +9c4165440b9d"], + +Cell[BoxData["0.0843966342510027`"], "Output", + CellChangeTimes->{3.991340904549515*^9}, + CellLabel-> + "Out[343]=",ExpressionUUID->"37b2a818-74be-9440-ae6a-a43cc0ec40a8"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918465789006596`*^9, 3.9918465811046677`*^9}, + 3.991923777228119*^9},ExpressionUUID->"35c63783-19fc-b040-b8f7-\ +ef972ba7b6ed"], + +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->"82776c92-7c10-2f45-a63e-50057ffca54a"], + +Cell[BoxData["19.580504093356314`"], "Output", + CellChangeTimes->{3.9913409045775146`*^9}, + CellLabel-> + "Out[345]=",ExpressionUUID->"37bd912e-575b-eb4f-8032-971d1e707228"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[347]:=",ExpressionUUID->"a56d8b01-6731-b840-bb77-f7f462892539"], + +Cell[BoxData["0.8477067309358528`"], "Output", + CellChangeTimes->{3.991340904625164*^9}, + CellLabel-> + "Out[347]=",ExpressionUUID->"3a344811-90b2-ec44-89d0-1c709ea9d046"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[350]:=",ExpressionUUID->"d4bf0543-67ce-024d-a419-60bff835c466"], + +Cell[BoxData["16.598525115055164`"], "Output", + CellChangeTimes->{3.9913409046880226`*^9}, + CellLabel-> + "Out[350]=",ExpressionUUID->"665369d7-97a6-fa48-bef2-b3decb044e25"] +}, 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->"276e96f1-558d-9846-adb4-2350594341f3"], + +Cell[BoxData["0.021613768236132463`"], "Output", + CellChangeTimes->{3.9913409047132187`*^9}, + CellLabel-> + "Out[351]=",ExpressionUUID->"ffc1a009-137c-b34d-9076-1696d057b6db"] +}, 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->"fff85ae9-ba42-8247-a314-19fd83d5dbdb"], + +Cell[BoxData["6.028089553291302`"], "Output", + CellChangeTimes->{3.9913409048112164`*^9}, + CellLabel-> + "Out[352]=",ExpressionUUID->"895d1a28-2153-a84d-81e3-1cdf5d6d48ed"] +}, 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->"37b23358-bc27-224f-b5f7-62b1fc97e785"], + +Cell[BoxData["0.010798036798660033`"], "Output", + CellChangeTimes->{3.991340904825058*^9}, + CellLabel-> + "Out[353]=",ExpressionUUID->"d4750c6a-3354-8a41-a70f-517b49b84087"] +}, 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->"eeb5992b-a45f-a14b-8a22-14af99af15e2"], + +Cell[BoxData["8.5284977476633`"], "Output", + CellChangeTimes->{3.9913409049303207`*^9}, + CellLabel-> + "Out[354]=",ExpressionUUID->"5a3e32eb-a9a4-414a-82df-9b56efed1b93"] +}, 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->"6ddb4033-5394-f34c-95af-22d1f1297351"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991340904948307*^9}, + CellLabel-> + "Out[355]=",ExpressionUUID->"69873497-f6d3-324c-852f-4bb50568f85a"] +}, 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->"22b71737-ea19-a348-af70-a874963373f8"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991340904981308*^9}, + CellLabel-> + "Out[356]=",ExpressionUUID->"13526c56-3d85-3c46-83ee-6fb4edbe82d4"] +}, 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->"08fab4d8-dc36-3f43-8a7e-9a5fa838c25d"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.99134090500931*^9}, + CellLabel-> + "Out[357]=",ExpressionUUID->"b4a365f6-f572-034d-a2e6-640ba90b8a4e"] +}, 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.9918465999055576`*^9},ExpressionUUID->"d3f05697-a372-2a42-8c9c-\ +ccc9289a44b2"], + +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->"dedd9f21-b30a-8e42-82f2-2e7179121ba4"], + +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->"93a73c80-9680-654d-99e9-e1bbed8734bd"], + +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->"424f437d-38a4-9145-b6b6-1508229b7d8c"], + +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->"e793f45c-63f6-1a4c-a8b0-a632d0f13f9c"], + +Cell[BoxData["6.028089553291301`"], "Output", + CellChangeTimes->{3.991340908920454*^9}, + CellLabel-> + "Out[358]=",ExpressionUUID->"ce1fa0ad-8b26-074b-acfe-1ea0d6a21afc"] +}, 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.991846603740141*^9},ExpressionUUID->"7ddfee1b-0897-3d44-810e-\ +ee309c4e8981"], + +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->"36d155d3-589e-794d-9cf1-db14439adeb2"], + +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->"96775aa8-3123-8641-a422-091bbfbfb205"], + +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->"bc2025f1-37fb-ab47-8425-81a033e22370"], + +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->"be10e44a-c9da-4b44-b4a3-1024a86046c1"], + +Cell[BoxData["8.528497747663296`"], "Output", + CellChangeTimes->{3.991340912767397*^9}, + CellLabel-> + "Out[359]=",ExpressionUUID->"d3ed87ff-6c98-ec45-a1b5-3155c267d9aa"] +}, 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.9918466101881027`*^9},ExpressionUUID->"edc0f744-d665-ee48-9e1d-\ +32ecc25a02c4"], + +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->"f43b713e-4442-024e-aa3a-d7907c7b2d57"] +}, 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", ",", "15"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918466141799603`*^9},ExpressionUUID->"556a1eda-5f63-f94a-8981-\ +af3901893679"], + +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->"346e0290-ff74-c04a-98f4-4b3b3d9364c5"], + +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->"ce3310df-8528-a243-9163-01df1bba8789"], + +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->"ac270026-fa69-2b44-8823-7a4a31d727b7"], + +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->"bb15b9e5-873c-b443-b9aa-a9ce94c451b4"], + +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->"787ac492-4e0a-fd43-b6f7-df921f726ea4"] +}, 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[365]:=",ExpressionUUID->"1ecbbb3f-ee46-da42-8494-bab66d31929d"], + +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->"ff5f87ad-0547-2e4d-89ac-2a19dabd294e"], + +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->"4f2b71d6-333a-cf47-9307-2421af7d6535"], + +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->"d1d04bbb-5842-0645-bad0-4769b073ee9a"], + +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->"6eb43be6-bae6-ed4a-aaaf-c88bf605b97b"], + +Cell[BoxData["12.5536549879565`"], "Output", + CellChangeTimes->{3.9913423425170345`*^9}, + CellLabel-> + "Out[365]=",ExpressionUUID->"edccccc4-7997-b54a-b45b-3f22383f2466"] +}, 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.9918466382952557`*^9, + 3.9918466432862854`*^9}},ExpressionUUID->"fc5d2c23-4a6f-a449-ab65-\ +d4efe503e761"], + +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->"6b4a6697-4d78-6348-aa33-09faf2e911d5"], + +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->"ff3f230d-c2f3-0a4b-92bb-4d06b5d3791d"], + +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->"ef73945b-c6bc-b44c-a3fe-a5985e6926fb"], + +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->"0dbccea2-a398-8e4f-96d9-c32a7f87f538"], + +Cell[BoxData["2.904399821349581`"], "Output", + CellChangeTimes->{3.9913423499055786`*^9}, + CellLabel-> + "Out[366]=",ExpressionUUID->"288e2dce-c937-8742-9640-a3e8f057e389"] +}, 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.9918466470672035`*^9, + 3.991846650208416*^9}},ExpressionUUID->"43c7013a-a6e2-1a44-9690-\ +1cefd2c28187"], + +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->"f13edf30-029d-f44b-80aa-7454fa8a48eb"], + +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->"9d4bffff-d8ba-5a4b-ba27-25e0bcf141ed"], + +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->"03541b7d-a305-9542-b64e-53c12d61a33e"], + +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->"1c28a402-6927-1f4a-8631-2d356954a732"], + +Cell[BoxData["9.928941323789857`"], "Output", + CellChangeTimes->{3.991342356382967*^9}, + CellLabel-> + "Out[367]=",ExpressionUUID->"f80ab114-db4a-5644-a33e-f2edc512069c"] +}, 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.99184665401457*^9, + 3.991846657234188*^9}},ExpressionUUID->"41fb449c-01a0-ed48-856e-\ +cc313bd0a6c7"], + +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->"00b8f68b-770c-674c-8948-37aa9dbeba3b"], + +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->"8193dcf9-288a-d04f-81d0-67db9580cad4"], + +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->"f07c17e3-2923-c44f-8e3c-8f3ec985f07f"], + +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->"6165087b-71c6-5242-84a4-b7f2ddeda33f"], + +Cell[BoxData["19.874153108015193`"], "Output", + CellChangeTimes->{3.9913423600715523`*^9}, + CellLabel-> + "Out[368]=",ExpressionUUID->"f6c86172-b23f-f047-b574-633c44f7d8cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991846664151518*^9, + 3.991846668968689*^9}},ExpressionUUID->"63e2fa1e-7c56-c749-a270-\ +c9c703386fca"], + +Cell[BoxData["0.2067571864462191`"], "Output", + CellChangeTimes->{3.9913423601046352`*^9}, + CellLabel-> + "Out[369]=",ExpressionUUID->"61a3e242-6b8f-6c43-96c1-0f461f3aa111"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991846671829691*^9, 3.991846673735302*^9}, + 3.9919237989916477`*^9},ExpressionUUID->"8b2e971d-5760-5e43-92fb-\ +a0baf224e1e6"], + +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->"ed5b29da-ad52-224c-9e8e-5cfb6cba7ae5"], + +Cell[BoxData["29.129739599983825`"], "Output", + CellChangeTimes->{3.9913423601345863`*^9}, + CellLabel-> + "Out[371]=",ExpressionUUID->"73bada1a-f8bf-544a-9ef4-a0ed1cad3a20"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[373]:=",ExpressionUUID->"52bec50b-93fb-4b4d-b447-2d6401f3d9c3"], + +Cell[BoxData["0.6950071373045505`"], "Output", + CellChangeTimes->{3.9913423601709976`*^9}, + CellLabel-> + "Out[373]=",ExpressionUUID->"a055216b-2938-334b-91b2-e1767bdc02c1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[376]:=",ExpressionUUID->"1256eede-590d-b745-a810-815fbd90d864"], + +Cell[BoxData["20.245376929811762`"], "Output", + CellChangeTimes->{3.9913423602320137`*^9}, + CellLabel-> + "Out[376]=",ExpressionUUID->"1cb3b090-b3a4-5041-90d2-cd331e939555"] +}, 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->"26b3e9a1-c12d-c340-b102-39e3418b2423"], + +Cell[BoxData["0.02003459702393596`"], "Output", + CellChangeTimes->{3.991342360260002*^9}, + CellLabel-> + "Out[377]=",ExpressionUUID->"d87c8c95-b548-7743-a9ae-ba00333bd7d5"] +}, 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->"f1c368f7-48c1-ae41-985d-84d539f430bf"], + +Cell[BoxData["6.261157591052328`"], "Output", + CellChangeTimes->{3.9913423603598785`*^9}, + CellLabel-> + "Out[378]=",ExpressionUUID->"5c166658-06fc-9646-bfdb-835a116404d0"] +}, 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->"8303e334-ad11-5445-af0f-63c02c371294"], + +Cell[BoxData["0.010388932679900494`"], "Output", + CellChangeTimes->{3.991342360375868*^9}, + CellLabel-> + "Out[379]=",ExpressionUUID->"f5459de9-bc9d-bb43-82ac-bbb255c0bb6b"] +}, 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->"9a6f9d0e-1f18-634f-a091-d3e4beab45d1"], + +Cell[BoxData["8.694797556550151`"], "Output", + CellChangeTimes->{3.991342360471882*^9}, + CellLabel-> + "Out[380]=",ExpressionUUID->"7547cec8-bbb9-474e-a326-2aa5b5d0ea0e"] +}, 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->"d36c329f-0f97-3149-b3e7-38d2ece236d0"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991342360486868*^9}, + CellLabel-> + "Out[381]=",ExpressionUUID->"67a86a49-0510-5043-b0e4-0c9fbd007328"] +}, 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->"9d78a1b5-e3d2-144d-9443-73ce54c6aaab"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.9913423605138645`*^9}, + CellLabel-> + "Out[382]=",ExpressionUUID->"4375608b-4469-c645-b9da-2341df1da6f3"] +}, 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->"66c99cb8-7b1e-c84b-9bf9-362f26e0fb97"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.9913423605448647`*^9}, + CellLabel-> + "Out[383]=",ExpressionUUID->"d85e146c-555e-ff43-a64b-dc61481e05ba"] +}, 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.9918466934711*^9},ExpressionUUID->"f0de9d8e-43d1-8b49-87d3-7f90d7e4f5e3"], + +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->"0b50a344-9b6a-6f43-a31a-1906b6b83303"], + +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->"a61f676b-80fb-564e-91e4-f0d82f0e9781"], + +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->"6e5727c3-e53a-0d47-882d-51da7563867b"], + +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->"d4019ad4-a9c4-064b-945e-f11a073e5bac"], + +Cell[BoxData["6.261157591052324`"], "Output", + CellChangeTimes->{3.9913423642473736`*^9}, + CellLabel-> + "Out[384]=",ExpressionUUID->"c8ba2a53-8163-c84b-820e-bd4c6c80df97"] +}, 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.9918466985968094`*^9},ExpressionUUID->"61250ade-2a8a-1a4d-bb58-\ +5bb7aa60c04a"], + +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->"337843af-226f-af40-a4c7-0e7c7d9ce578"], + +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->"5caa0d49-db8e-7047-81dc-724c9a57223e"], + +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->"89243390-869b-ab4b-bd60-81c23885cae2"], + +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->"7212133e-ab68-b54b-b1d5-ecb5b003feb9"], + +Cell[BoxData["8.694797556550144`"], "Output", + CellChangeTimes->{3.9913423679416714`*^9}, + CellLabel-> + "Out[385]=",ExpressionUUID->"68a706fc-6e54-074e-91f9-e60e01512997"] +}, 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.991846701939392*^9},ExpressionUUID->"020bdd6e-add3-0a46-9b39-\ +04b7ffae8470"], + +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->"24c99615-29ec-434a-9120-6a0e664bd2c0"] +}, 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", ",", "15"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918467058861084`*^9},ExpressionUUID->"5cbca01a-701c-5744-b740-\ +3bf6288a42b7"], + +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->"012afcdf-095f-f547-ae49-5e5eab6ac53d"], + +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->"efe4240f-cfb2-1544-b97a-0d31a46a5acc"], + +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->"f00a9c55-0183-344a-88dd-02375b09fbdb"], + +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->"948ef9a9-e05b-a247-a398-dab2b9b01e6c"], + +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->"3cb194f4-3fee-2848-822d-18b4cc4f12ed"] +}, 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[391]:=",ExpressionUUID->"bd700bac-9ff0-794b-a1df-85afecca9797"], + +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->"16053233-c82a-df40-9f76-57858a5ce653"], + +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->"c17aef07-6675-4240-9659-a4faf651ba84"], + +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->"7e2cd7a6-7004-5545-8ead-85e58be0261f"], + +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->"133cf53d-6aa7-f54b-97b8-85e2d528574d"], + +Cell[BoxData["12.55365498945131`"], "Output", + CellChangeTimes->{3.991343769962549*^9}, + CellLabel-> + "Out[391]=",ExpressionUUID->"4a14d2c1-d4aa-bb44-a445-b9d5e6a8ec44"] +}, 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.991846744062315*^9, + 3.9918467481290073`*^9}},ExpressionUUID->"aa4ca102-401f-6c45-84ea-\ +b21fa4222eb4"], + +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->"67370f99-93a3-2a4c-abfb-9ec2739f82e3"], + +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->"c65b7f06-a5d9-2b42-b82a-61a8418de1aa"], + +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->"c5205368-7549-5d4a-91b5-fc0c385cffcd"], + +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->"75f147e7-0111-f945-9d68-054bd31d6468"], + +Cell[BoxData["2.1234790234082306`"], "Output", + CellChangeTimes->{3.9913437771602173`*^9}, + CellLabel-> + "Out[392]=",ExpressionUUID->"5463c495-050f-3a48-ad8b-56249455c6df"] +}, 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.9918467529108715`*^9, + 3.9918467555119896`*^9}},ExpressionUUID->"6ecebc3a-297f-ad45-be0e-\ +687cb63b6c02"], + +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->"f1435cf6-8920-cf4a-89bd-205dc850fb13"], + +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->"153c989b-3e07-ba44-9502-ce5eeeaef20b"], + +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->"f96787a5-8527-9249-955c-61c282829a8e"], + +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->"74b767aa-86c3-b342-aaa5-b3aa8db05a0c"], + +Cell[BoxData["10.711562421053975`"], "Output", + CellChangeTimes->{3.991343783589731*^9}, + CellLabel-> + "Out[393]=",ExpressionUUID->"428a5219-3885-624b-b9ef-667a709b85a0"] +}, 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.9918467593835926`*^9, + 3.991846761720169*^9}},ExpressionUUID->"f4d4d2f3-a6fe-7445-a71e-\ +f1844b022d84"], + +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->"003d8265-71b4-9b48-956a-875004c8f691"], + +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->"58af30c7-a170-574d-a307-1d28d4712f2c"], + +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->"503404b6-a33b-f146-8dab-1a0f0a48a6bb"], + +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->"ec987c19-b918-e54c-a15c-61c6a7a0cb83"], + +Cell[BoxData["20.656774205279326`"], "Output", + CellChangeTimes->{3.9913437870822353`*^9}, + CellLabel-> + "Out[394]=",ExpressionUUID->"fd0d79df-b556-504a-b816-cff0691012a5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918467646351814`*^9, + 3.99184676823822*^9}},ExpressionUUID->"84cd8b8a-60e5-9e4d-8a98-\ +fd76363577db"], + +Cell[BoxData["0.14275466609450368`"], "Output", + CellChangeTimes->{3.991343787117275*^9}, + CellLabel-> + "Out[395]=",ExpressionUUID->"e1ed9356-8f68-774e-9d61-631f2714eaaf"] +}, 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->"feb57727-78bd-5c41-b356-12adf3ce0cb1" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 250, 5, 28, "Input",ExpressionUUID->"7af76b20-47eb-4947-b82c-88607e2425d8"], +Cell[829, 29, 170, 2, 32, "Output",ExpressionUUID->"7b5e8ee2-cbf6-f54c-abb7-f9b6bbf35f1e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1036, 36, 326, 5, 28, "Input",ExpressionUUID->"28f12cd5-18c7-0c4e-9660-86136dac566b"], +Cell[1365, 43, 255, 4, 32, "Output",ExpressionUUID->"d8397540-2d10-ef4b-814b-617895f20c1c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1657, 52, 252, 5, 28, "Input",ExpressionUUID->"cc9d1e65-5d3b-274a-990c-6ce025f33ccb"], +Cell[1912, 59, 252, 4, 32, "Output",ExpressionUUID->"f3d5b555-ce2f-3a46-9727-10269c33a1f4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2201, 68, 175, 3, 28, "Input",ExpressionUUID->"90c48fc9-b53c-af45-bfb9-f00d4b1dadaa"], +Cell[2379, 73, 225, 3, 32, "Output",ExpressionUUID->"7e7ddeee-4bf6-564c-b0ae-96cf6695dd3d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2641, 81, 257, 7, 43, "Input",ExpressionUUID->"7842dec9-157c-fb49-bcc6-94fe025c4730"], +Cell[2901, 90, 243, 3, 32, "Output",ExpressionUUID->"983fb5a6-0a5c-e543-af1c-a02785962c36"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3181, 98, 131, 2, 28, "Input",ExpressionUUID->"b17bb579-64fa-af4c-b78a-a8bac80b827e"], +Cell[3315, 102, 229, 3, 32, "Output",ExpressionUUID->"e4c03cd2-07c6-9848-a139-c78143a1d792"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3581, 110, 276, 6, 28, "Input",ExpressionUUID->"836e4938-4de0-3349-894c-1dccfcd0a498"], +Cell[3860, 118, 241, 3, 32, "Output",ExpressionUUID->"6ef7db62-d4be-ec4d-b45f-f2a5cd6f85b6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4138, 126, 257, 7, 28, "Input",ExpressionUUID->"45d811e2-fc77-2049-be14-dbafce0a7f22"], +Cell[4398, 135, 240, 3, 32, "Output",ExpressionUUID->"3aebb824-5d8a-174b-94e9-df728faba014"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4675, 143, 236, 4, 28, "Input",ExpressionUUID->"57b7d81f-468b-a746-b33a-96f21092b3cb"], +Cell[4914, 149, 260, 3, 32, "Output",ExpressionUUID->"25541067-6729-b64e-b7f4-82a7f88ec5b3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5211, 157, 238, 4, 28, "Input",ExpressionUUID->"8f4bc0a4-1edf-c745-a78c-584ebe594ec6"], +Cell[5452, 163, 262, 3, 32, "Output",ExpressionUUID->"e198b284-33df-f249-a11d-0fe25a663cca"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5751, 171, 129, 2, 28, "Input",ExpressionUUID->"52a31f76-37b8-634c-ab0e-53f4cc917a3f"], +Cell[5883, 175, 224, 3, 32, "Output",ExpressionUUID->"69a5625a-b477-c842-91e9-5fbbbd5e1231"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6144, 183, 129, 2, 28, "Input",ExpressionUUID->"bad3cf6a-5d22-6a45-a93b-2b20e329924b"], +Cell[6276, 187, 221, 3, 32, "Output",ExpressionUUID->"bca99840-dd70-ee43-ac21-1703f4092419"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6534, 195, 557, 19, 79, "Input",ExpressionUUID->"eb2941b4-8018-4b44-aac0-1ce0febe8137"], +Cell[7094, 216, 216, 3, 32, "Output",ExpressionUUID->"a573c934-e218-d04a-baaa-38b6d8d5e3c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7347, 224, 557, 19, 79, "Input",ExpressionUUID->"5c8af646-1783-384a-aa48-dc8c9aa0db65"], +Cell[7907, 245, 220, 3, 32, "Output",ExpressionUUID->"2b2fe62d-8726-a043-b4dc-bb7b160c758d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8164, 253, 1492, 48, 80, "Input",ExpressionUUID->"50dd0ec9-5355-3644-b35d-c1868a8b58da"], +Cell[9659, 303, 214, 3, 32, "Output",ExpressionUUID->"96657e9f-3032-6949-acdb-ea951ed007b9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9910, 311, 1331, 44, 80, "Input",ExpressionUUID->"051a5338-e267-1045-aa79-03c3371c46ea"], +Cell[11244, 357, 234, 4, 32, "Output",ExpressionUUID->"e347f702-bcdf-d643-91fd-2a8931e06eaa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[11515, 366, 1331, 44, 80, "Input",ExpressionUUID->"372c2e63-c46b-6e46-8677-c1b719a36a3e"], +Cell[12849, 412, 238, 4, 32, "Output",ExpressionUUID->"3552d586-299c-cb47-bc79-7fc8922e5746"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13124, 421, 1492, 48, 80, "Input",ExpressionUUID->"696e9667-8c50-6f40-8c42-86e5fa98991c"], +Cell[14619, 471, 214, 3, 32, "Output",ExpressionUUID->"3f63847e-fcfd-7749-afdb-18ad1a27ac23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14870, 479, 131, 2, 28, "Input",ExpressionUUID->"2d496a9e-aca2-bf46-bcd1-5594cc8e5188"], +Cell[15004, 483, 200, 3, 32, "Output",ExpressionUUID->"395808c6-3fdd-544b-9fcd-f7f2b7a8f7f2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15241, 491, 177, 3, 28, "Input",ExpressionUUID->"8b3c8ed5-4340-4445-9d94-c6e114cb215d"], +Cell[15421, 496, 199, 3, 32, "Output",ExpressionUUID->"bc4619db-21e8-a142-98fd-5569c3c57e7a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15657, 504, 134, 2, 28, "Input",ExpressionUUID->"87dd5848-9b5a-0f45-9ddd-5a0ebacfca29"], +Cell[15794, 508, 204, 3, 32, "Output",ExpressionUUID->"0ae7f4e9-f4c3-d944-a37f-557a458f7c70"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16035, 516, 219, 4, 28, "Input",ExpressionUUID->"2b6475b8-e8a9-0542-b622-db179e1b89bd"], +Cell[16257, 522, 215, 4, 32, "Output",ExpressionUUID->"ca7c6157-9441-164d-ab04-17c6bf27a075"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16509, 531, 134, 2, 28, "Input",ExpressionUUID->"93bdd082-a5e8-7b4c-a02d-ea527d155069"], +Cell[16646, 535, 204, 3, 32, "Output",ExpressionUUID->"5ff78eac-d617-3a45-879e-5805c6184528"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16887, 543, 302, 5, 28, "Input",ExpressionUUID->"b021ae84-5bca-fc4a-a567-e8e28f2ff395"], +Cell[17192, 550, 150, 2, 32, "Output",ExpressionUUID->"8de75c2f-09ee-994b-96eb-699f6f33d848"] +}, Open ]], +Cell[17357, 555, 173, 2, 28, "Input",ExpressionUUID->"635b133c-c0bf-eb47-8623-007b4879fac1"], +Cell[CellGroupData[{ +Cell[17555, 561, 271, 5, 28, "Input",ExpressionUUID->"0979aad1-64a1-4947-841b-41e0e9a6a815"], +Cell[17829, 568, 198, 3, 32, "Output",ExpressionUUID->"b1985621-0f6a-454f-acd0-bc6a5dfe39e4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18064, 576, 219, 4, 28, "Input",ExpressionUUID->"468488f6-1d00-1f49-a607-f5b114b588f3"], +Cell[18286, 582, 202, 3, 32, "Output",ExpressionUUID->"e8768842-e538-d741-b4e4-d7333cbd45ca"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18525, 590, 350, 10, 43, "Input",ExpressionUUID->"5f4b947c-a70a-4449-bef8-4291773c641a"], +Cell[18878, 602, 221, 3, 32, "Output",ExpressionUUID->"7fe4c271-1c64-3f46-8817-83af8d06923e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19136, 610, 350, 10, 43, "Input",ExpressionUUID->"ed9995f5-3d5a-9643-903f-4b8994a5dac3"], +Cell[19489, 622, 234, 4, 32, "Output",ExpressionUUID->"4f2b99a9-eb7f-5542-a2d6-acb17f970a88"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19760, 631, 992, 26, 113, "Input",ExpressionUUID->"d889c950-8e54-674e-a44b-e8e13778a129"], +Cell[20755, 659, 215, 3, 32, "Output",ExpressionUUID->"83cc7ff1-bdf6-8f4e-8582-ded03cb108b2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21007, 667, 199, 3, 28, "Input",ExpressionUUID->"dc70fa8d-74cc-cb41-99ef-278e2e2c47b4"], +Cell[21209, 672, 202, 3, 32, "Output",ExpressionUUID->"11b5d657-717f-724f-b697-54ca5b5800be"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21448, 680, 275, 4, 28, "Input",ExpressionUUID->"3a689cb6-519b-4340-a734-5274eea318ac"], +Cell[21726, 686, 156, 2, 32, "Output",ExpressionUUID->"f2812a09-4bb1-f149-830f-7cef615590cb"] +}, Open ]], +Cell[21897, 691, 175, 2, 28, "Input",ExpressionUUID->"b1f8ace4-417d-2147-a34d-2da54bc7b22c"], +Cell[CellGroupData[{ +Cell[22097, 697, 325, 5, 28, "Input",ExpressionUUID->"f3a033c1-6cde-e74f-bfee-47f629c69328"], +Cell[22425, 704, 156, 2, 32, "Output",ExpressionUUID->"860e0808-1b87-6241-a269-77395ec0a6bb"] +}, Open ]], +Cell[22596, 709, 173, 2, 28, "Input",ExpressionUUID->"cd91ab8f-4493-7040-8a78-45eef3353576"], +Cell[CellGroupData[{ +Cell[22794, 715, 324, 5, 28, "Input",ExpressionUUID->"d9a80083-e913-ad4e-817b-0e4386e197ad"], +Cell[23121, 722, 156, 2, 32, "Output",ExpressionUUID->"3e701883-9a95-1d4e-8e4b-de6ee331431c"] +}, Open ]], +Cell[23292, 727, 175, 2, 28, "Input",ExpressionUUID->"3e08b346-fbb5-0141-bc87-0df6c31feaad"], +Cell[CellGroupData[{ +Cell[23492, 733, 349, 6, 47, "Input",ExpressionUUID->"6e4d61ad-2038-5e41-832d-cfe641117e57"], +Cell[23844, 741, 156, 2, 32, "Output",ExpressionUUID->"31290a54-93f5-5646-8c64-059ad7c7355f"] +}, Open ]], +Cell[24015, 746, 175, 2, 28, "Input",ExpressionUUID->"e198ec7e-9dfd-4248-860a-01920bb9f100"], +Cell[CellGroupData[{ +Cell[24215, 752, 294, 5, 47, "Input",ExpressionUUID->"99f31a34-85c7-a14e-86a8-b5f3b8ade546"], +Cell[24512, 759, 154, 2, 32, "Output",ExpressionUUID->"bb6a7196-251b-b34b-9380-4f375348932b"] +}, Open ]], +Cell[24681, 764, 173, 2, 28, "Input",ExpressionUUID->"72dd5383-7133-e644-b34b-6af98dbdf9cd"], +Cell[CellGroupData[{ +Cell[24879, 770, 294, 5, 47, "Input",ExpressionUUID->"d1be27e4-b444-3d4c-9afb-0d20975d05af"], +Cell[25176, 777, 156, 2, 32, "Output",ExpressionUUID->"abe4c909-c524-1840-a641-8ebb1cb052a7"] +}, Open ]], +Cell[25347, 782, 171, 2, 28, "Input",ExpressionUUID->"dba12a62-bf76-bc47-affb-5f299d399fa5"], +Cell[CellGroupData[{ +Cell[25543, 788, 322, 6, 47, "Input",ExpressionUUID->"c8073757-b303-654f-afab-9b71bb1081f7"], +Cell[25868, 796, 154, 2, 32, "Output",ExpressionUUID->"a39c1eb7-8dd2-5441-b48e-7a94b4153fb8"] +}, Open ]], +Cell[26037, 801, 175, 2, 28, "Input",ExpressionUUID->"4705d92e-9da0-4740-a58d-48e59f620e52"], +Cell[CellGroupData[{ +Cell[26237, 807, 268, 5, 47, "Input",ExpressionUUID->"fa54d50d-7dee-1042-8ffa-ac7e7d2884d4"], +Cell[26508, 814, 155, 2, 32, "Output",ExpressionUUID->"35fc82ef-bc54-314e-b308-809b9014ed6b"] +}, Open ]], +Cell[26678, 819, 171, 2, 28, "Input",ExpressionUUID->"8e8e3c70-2322-2142-b529-8c612888d3aa"], +Cell[CellGroupData[{ +Cell[26874, 825, 19809, 485, 2217, "Input",ExpressionUUID->"f353ab41-7188-4248-a546-b91d3e6d82fd"], +Cell[46686, 1312, 215, 3, 32, "Output",ExpressionUUID->"262c2d7d-75fa-dd4e-9009-d9b8de2e5c4f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[46938, 1320, 19748, 489, 2304, "Input",ExpressionUUID->"bdba6fcd-656a-e34f-8dcb-124eefee8d20"], +Cell[66689, 1811, 219, 3, 32, "Output",ExpressionUUID->"b019b0ad-b8e2-484a-9130-53e5a5ee2585"] +}, Open ]], +Cell[CellGroupData[{ +Cell[66945, 1819, 19748, 483, 2276, "Input",ExpressionUUID->"4cd8376d-826a-dd4a-a897-70b63a952589"], +Cell[86696, 2304, 232, 4, 32, "Output",ExpressionUUID->"d8ad5b6d-888d-574f-826c-1132fd6a8a28"] +}, Open ]], +Cell[CellGroupData[{ +Cell[86965, 2313, 22534, 553, 2583, "Input",ExpressionUUID->"4e99f3e2-0411-4b40-bfb4-0a670571c5c2"], +Cell[109502, 2868, 231, 4, 32, "Output",ExpressionUUID->"e4a467fd-541a-5842-b56e-b2697b6de1d9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[109770, 2877, 22535, 553, 2583, "Input",ExpressionUUID->"99bf7039-5bf3-4440-8c18-72148170868a"], +Cell[132308, 3432, 234, 4, 32, "Output",ExpressionUUID->"d61a1dbe-0991-6c49-a578-e2d6536b65bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[132579, 3441, 25491, 626, 2890, "Input",ExpressionUUID->"5be20d36-6fb8-3640-bb58-bac5a614c6b0"], +Cell[158073, 4069, 234, 4, 32, "Output",ExpressionUUID->"9f7cd5f2-08b1-3243-bdbb-c66b32daa6f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[158344, 4078, 130, 2, 28, "Input",ExpressionUUID->"1b22b00e-2ad2-6942-89c5-c02daebf5c00"], +Cell[158477, 4082, 200, 3, 32, "Output",ExpressionUUID->"5f1a51d3-151a-5540-917b-fcf3404a41de"] +}, Open ]], +Cell[CellGroupData[{ +Cell[158714, 4090, 130, 2, 28, "Input",ExpressionUUID->"840ea210-71e5-9a4b-9983-ed3f112150ad"], +Cell[158847, 4094, 200, 3, 32, "Output",ExpressionUUID->"f70ee1be-76c1-9549-8d65-c0282a6c1361"] +}, Open ]], +Cell[CellGroupData[{ +Cell[159084, 4102, 1144, 39, 110, "Input",ExpressionUUID->"822ba515-819e-b34f-a941-8e9b357504a1"], +Cell[160231, 4143, 218, 3, 32, "Output",ExpressionUUID->"8fc5ee99-4313-964e-8a1b-630cf7bfcf3d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[160486, 4151, 1041, 35, 110, "Input",ExpressionUUID->"f5d79eca-dc83-4944-be0e-f5ad610c4581"], +Cell[161530, 4188, 232, 4, 32, "Output",ExpressionUUID->"799e5c4a-4fd3-ea40-bd6c-3039489aada0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[161799, 4197, 1144, 39, 110, "Input",ExpressionUUID->"ac5ad298-eab8-8f4b-aec3-08651e26e098"], +Cell[162946, 4238, 220, 3, 32, "Output",ExpressionUUID->"926833a1-e71a-b243-a9f2-0db0c8b7e69a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[163203, 4246, 108, 1, 28, "Input",ExpressionUUID->"ec2d7e1c-1773-074e-804e-515848d42983"], +Cell[163314, 4249, 216, 3, 32, "Output",ExpressionUUID->"fd7d12b0-8187-6744-a466-5021a9a29d12"] +}, Open ]], +Cell[CellGroupData[{ +Cell[163567, 4257, 108, 1, 28, "Input",ExpressionUUID->"85094bf1-e1c8-e449-96b6-fb72a8490917"], +Cell[163678, 4260, 234, 4, 32, "Output",ExpressionUUID->"edab82d9-f33b-0340-b01c-805cd5b46a00"] +}, Open ]], +Cell[CellGroupData[{ +Cell[163949, 4269, 108, 1, 28, "Input",ExpressionUUID->"43939263-4c3b-e647-a248-378144df6bda"], +Cell[164060, 4272, 233, 4, 32, "Output",ExpressionUUID->"840fe420-69aa-ea45-892f-88808f370e7f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[164330, 4281, 108, 1, 28, "Input",ExpressionUUID->"01840429-959c-5945-a282-94923602233b"], +Cell[164441, 4284, 216, 3, 32, "Output",ExpressionUUID->"d974dbed-2b29-3a47-8d0b-8b02abc2245f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[164694, 4292, 107, 1, 28, "Input",ExpressionUUID->"ff1fb106-cea2-ca42-87c0-1d29621dc295"], +Cell[164804, 4295, 216, 3, 32, "Output",ExpressionUUID->"476de8b6-c7cf-314f-b2ee-1bf7cb6718cc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[165057, 4303, 107, 1, 28, "Input",ExpressionUUID->"92c7cfd3-7080-5447-97a0-cb2fd0b74060"], +Cell[165167, 4306, 218, 3, 32, "Output",ExpressionUUID->"8a6aa12b-974d-b946-88e8-33763cff5427"] +}, Open ]], +Cell[CellGroupData[{ +Cell[165422, 4314, 497, 16, 56, "Input",ExpressionUUID->"26dfbda1-f2c2-7e48-8ee0-f39fbc8f170c"], +Cell[165922, 4332, 232, 4, 32, "Output",ExpressionUUID->"3d045e6f-6e7c-d64a-887e-d96c6a032039"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166191, 4341, 497, 16, 56, "Input",ExpressionUUID->"d781cd22-0a2f-8b4c-86ee-4701b754040e"], +Cell[166691, 4359, 233, 4, 32, "Output",ExpressionUUID->"b5bb204c-3b8f-4148-a8dd-5632c4894db3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166961, 4368, 1788, 60, 188, "Input",ExpressionUUID->"10365d10-5cf1-864f-8f0a-a17234afd1ab"], +Cell[168752, 4430, 218, 3, 32, "Output",ExpressionUUID->"f7e9ddd7-8ab4-2548-a421-fc357e17bc8b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169007, 4438, 1101, 36, 133, "Input",ExpressionUUID->"286c465f-b047-eb4a-9eeb-60479c772e2f"], +Cell[170111, 4476, 232, 4, 32, "Output",ExpressionUUID->"f7b1ec93-8d40-c344-aa00-43c6884c2e0e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170380, 4485, 1818, 61, 165, "Input",ExpressionUUID->"15777df3-905e-324f-8c63-ba85817a3779"], +Cell[172201, 4548, 214, 3, 32, "Output",ExpressionUUID->"5f1a8ba6-8806-ef41-a0cf-fed8350a37e7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172452, 4556, 2499, 77, 133, "Input",ExpressionUUID->"372b1d2c-085f-6e45-81b1-705b3f52847d"], +Cell[174954, 4635, 218, 3, 32, "Output",ExpressionUUID->"8cadb557-4f54-6d44-9228-545532c99842"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175209, 4643, 2499, 77, 133, "Input",ExpressionUUID->"445d2e4d-3e45-9a42-adbb-9f9580a74182"], +Cell[177711, 4722, 215, 3, 32, "Output",ExpressionUUID->"5f3397c8-36c2-bf4e-b674-9b4cd55a07ec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[177963, 4730, 222, 5, 28, "Input",ExpressionUUID->"58382c59-dd64-b449-aa77-b500c631729a"], +Cell[178188, 4737, 157, 3, 32, "Output",ExpressionUUID->"8bc528b5-d7e5-b04f-8824-04a5ba44f02f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[178382, 4745, 192, 4, 28, "Input",ExpressionUUID->"1e2a9573-08d6-094d-b2f8-1c2ad58521b5"], +Cell[178577, 4751, 157, 3, 32, "Output",ExpressionUUID->"c1c87292-1cd0-7148-ae35-05da8f9df00b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[178771, 4759, 1301, 43, 113, "Input",ExpressionUUID->"ee9e3f9b-cd15-314a-959e-23f6767d8629"], +Cell[180075, 4804, 176, 3, 32, "Output",ExpressionUUID->"f9bebeff-7b36-a841-ae60-79aab85878cb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[180288, 4812, 909, 30, 56, "Input",ExpressionUUID->"edc47846-771c-164b-bedc-99ac8c0783df"], +Cell[181200, 4844, 175, 3, 32, "Output",ExpressionUUID->"dd9bd6be-98ec-9547-9e2c-ebed31965dd0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181412, 4852, 963, 32, 56, "Input",ExpressionUUID->"a1f930ec-56b4-2f43-abd0-dd8b8a4708b1"], +Cell[182378, 4886, 177, 3, 32, "Output",ExpressionUUID->"2d6d3a17-c283-8646-b256-a9dbc673c9bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[182592, 4894, 558, 19, 52, "Input",ExpressionUUID->"41ba9715-7e52-a24a-aa04-cf2166cf0dfa"], +Cell[183153, 4915, 172, 3, 32, "Output",ExpressionUUID->"98b38576-def0-1e40-8080-5c3f5765197b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183362, 4923, 651, 22, 52, "Input",ExpressionUUID->"163fb4a0-76e7-4649-86cb-bfaf41944c98"], +Cell[184016, 4947, 170, 3, 32, "Output",ExpressionUUID->"ea23bd61-3699-734f-8a76-9cad8281ef61"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184223, 4955, 170, 5, 56, "Input",ExpressionUUID->"5f0f180a-aa4c-dd4b-bdd8-1378a8fe1b95"], +Cell[184396, 4962, 173, 3, 32, "Output",ExpressionUUID->"6002c9fb-3c6f-5a46-96f3-d95ebe5fcb07"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184606, 4970, 170, 5, 55, "Input",ExpressionUUID->"1922f255-2223-ac46-b784-0bce07b8e6a9"], +Cell[184779, 4977, 169, 3, 32, "Output",ExpressionUUID->"54e7ec9c-75a9-1d4e-a041-1032d97b3c9c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184985, 4985, 181, 5, 43, "Input",ExpressionUUID->"ef536efb-880a-d543-b7af-57dde3479623"], +Cell[185169, 4992, 173, 3, 32, "Output",ExpressionUUID->"aa339681-2ea5-f647-b66a-0492fa8f2ab6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185379, 5000, 181, 5, 43, "Input",ExpressionUUID->"23ab10a2-3c20-0544-ade1-f1d12ec5aec2"], +Cell[185563, 5007, 170, 3, 32, "Output",ExpressionUUID->"2418bfa6-2d55-cb40-b519-958a954750e7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185770, 5015, 6055, 185, 498, "Input",ExpressionUUID->"aca75c7d-c5bb-8b47-872f-20148e5c7111"], +Cell[191828, 5202, 174, 3, 32, "Output",ExpressionUUID->"f503c6c4-4e73-ad4e-8d38-70a1b8888f41"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192039, 5210, 368, 9, 42, "Input",ExpressionUUID->"cd1abe66-0480-c04d-bbfd-f65271be3b80"], +Cell[192410, 5221, 170, 3, 32, "Output",ExpressionUUID->"d5c10871-8190-e34b-bafd-c8f1bf959b75"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192617, 5229, 6122, 187, 500, "Input",ExpressionUUID->"c96cc89e-a2d4-f442-8558-837587935139"], +Cell[198742, 5418, 174, 3, 32, "Output",ExpressionUUID->"21257e6b-3192-d14d-ae2c-f6bb441a55d5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198953, 5426, 368, 9, 42, "Input",ExpressionUUID->"1997c8c5-b99e-0343-82de-11d88a9a1347"], +Cell[199324, 5437, 170, 3, 32, "Output",ExpressionUUID->"6e224ad7-7bb4-3d4b-9ad8-ee907ebc0667"] +}, Open ]], +Cell[CellGroupData[{ +Cell[199531, 5445, 2663, 88, 187, "Input",ExpressionUUID->"b151d79d-271f-514b-8b93-936c1a72f6cb"], +Cell[202197, 5535, 171, 3, 32, "Output",ExpressionUUID->"8f4a029e-ffe6-ac48-ac2f-26d4c6f8ae6c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202405, 5543, 2603, 85, 165, "Input",ExpressionUUID->"ca085857-4c01-0248-853e-e9dc47d19120"], +Cell[205011, 5630, 171, 3, 32, "Output",ExpressionUUID->"a0d0e412-b0a8-da49-99d6-5e8fa7d61f8f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205219, 5638, 3712, 118, 348, "Input",ExpressionUUID->"953e3c2f-fb9c-3f46-89c8-95be764d13e2"], +Cell[208934, 5758, 171, 3, 32, "Output",ExpressionUUID->"113275b9-f155-0c40-9fb5-4237227d5946"] +}, Open ]], +Cell[209120, 5764, 138, 3, 42, "Input",ExpressionUUID->"ea9dfb1b-57ad-0148-b647-106c07557f97"], +Cell[CellGroupData[{ +Cell[209283, 5771, 2054, 59, 228, "Input",ExpressionUUID->"b8b3f009-678c-e54b-8a0c-4de3179a9fb0"], +Cell[211340, 5832, 566, 12, 85, "Message",ExpressionUUID->"c2771e87-d21b-5a4e-975c-e841dd59c44a"], +Cell[211909, 5846, 569, 12, 85, "Message",ExpressionUUID->"ff170e27-3c46-a544-b2dd-c8eb8ed350ea"], +Cell[212481, 5860, 570, 12, 85, "Message",ExpressionUUID->"1becfb7e-341c-2c43-a01b-4766385a028d"], +Cell[213054, 5874, 458, 10, 26, "Message",ExpressionUUID->"17ed9ce9-43ce-c04b-9baf-441313120d44"], +Cell[213515, 5886, 172, 3, 32, "Output",ExpressionUUID->"125cfb6f-a2d2-194d-9427-f352c26ad1ae"] +}, Open ]], +Cell[CellGroupData[{ +Cell[213724, 5894, 2054, 59, 228, "Input",ExpressionUUID->"d9fdb976-d745-4c44-9c66-2929c00590fc"], +Cell[215781, 5955, 564, 12, 85, "Message",ExpressionUUID->"53bbc450-5242-e641-942d-bc7e5add9ee6"], +Cell[216348, 5969, 567, 12, 85, "Message",ExpressionUUID->"2da21055-0b71-ca4c-a4e7-b80153da78d0"], +Cell[216918, 5983, 570, 12, 85, "Message",ExpressionUUID->"a669604f-6176-dd48-8e79-07fc64e4d41b"], +Cell[217491, 5997, 455, 10, 26, "Message",ExpressionUUID->"b2fab6ca-4706-de4f-990c-effa48d983de"], +Cell[217949, 6009, 169, 3, 32, "Output",ExpressionUUID->"eb68ee17-dac2-1e46-84d5-909c4cb50318"] +}, Open ]], +Cell[CellGroupData[{ +Cell[218155, 6017, 1938, 53, 115, "Input",ExpressionUUID->"a3abef6a-80f9-8c44-ac94-1eacd8c5b802"], +Cell[220096, 6072, 19983, 375, 237, "Output",ExpressionUUID->"419e66ef-e794-0e41-8cfb-f36151a9a031"] +}, Open ]], +Cell[CellGroupData[{ +Cell[240116, 6452, 2120, 60, 211, "Input",ExpressionUUID->"5b0c09f8-5e46-a545-8946-a08264de1b62"], +Cell[242239, 6514, 501, 11, 60, "Message",ExpressionUUID->"a4931f15-eaa0-1242-81c3-10e27a7c5ad4"], +Cell[242743, 6527, 503, 11, 60, "Message",ExpressionUUID->"ab5949a3-42fa-c340-946f-728a0b7f660d"], +Cell[243249, 6540, 506, 11, 60, "Message",ExpressionUUID->"e6df8db5-d6c5-4b4a-ae1b-671c3aaa30b3"], +Cell[243758, 6553, 456, 10, 26, "Message",ExpressionUUID->"0387496f-9be6-1343-8ff5-34662019e71b"], +Cell[244217, 6565, 41581, 727, 235, "Output",ExpressionUUID->"9d88b545-fa49-1040-a93c-61d85d3a7a24"] +}, Open ]], +Cell[CellGroupData[{ +Cell[285835, 7297, 215, 7, 48, "Input",ExpressionUUID->"15c72253-d078-7f43-9f29-7ac094706013"], +Cell[286053, 7306, 170, 3, 32, "Output",ExpressionUUID->"6748be9e-23e0-b742-b32d-b4d0b2af2d47"] +}, Open ]], +Cell[CellGroupData[{ +Cell[286260, 7314, 1816, 53, 183, "Input",ExpressionUUID->"8ab23ce3-6dd3-7740-bde2-eb9eba4ac874"], +Cell[288079, 7369, 506, 11, 60, "Message",ExpressionUUID->"68caf80c-08a0-5a4f-86e7-94369a91094e"], +Cell[288588, 7382, 512, 11, 60, "Message",ExpressionUUID->"99e2d7e0-6b3a-4241-b934-9876555b06af"], +Cell[289103, 7395, 509, 11, 60, "Message",ExpressionUUID->"35c8608a-cdb9-7b49-a349-ff93419909b7"], +Cell[289615, 7408, 456, 10, 26, "Message",ExpressionUUID->"be12d8f1-8442-ce44-8064-691aa975f7de"], +Cell[290074, 7420, 22336, 412, 233, "Output",ExpressionUUID->"331394c4-497c-0346-8d4a-8dd138d0b1ec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[312447, 7837, 1616, 48, 113, "Input",ExpressionUUID->"6f4b7e44-0b17-c840-a01f-706fcd68fd89"], +Cell[314066, 7887, 584, 12, 85, "Message",ExpressionUUID->"c81c58e6-5421-304d-872c-00439d312fe4"], +Cell[314653, 7901, 588, 12, 85, "Message",ExpressionUUID->"55f72141-2a48-cb49-9d96-f54968f261ca"], +Cell[315244, 7915, 591, 12, 85, "Message",ExpressionUUID->"02912ea6-4ba4-644f-aec0-867d70fcdcf0"], +Cell[315838, 7929, 456, 10, 26, "Message",ExpressionUUID->"b4acd794-c7cb-6242-90b6-7a7453ebdeb1"], +Cell[316297, 7941, 173, 3, 32, "Output",ExpressionUUID->"320f82af-6278-6a41-a4de-a355ccf7664a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[316507, 7949, 2251, 64, 223, "Input",ExpressionUUID->"55574de4-5bf4-6a47-8b7c-0502360e0741"], +Cell[318761, 8015, 566, 12, 85, "Message",ExpressionUUID->"ad528e52-1db8-df47-9908-86690dda4ace"], +Cell[319330, 8029, 569, 12, 85, "Message",ExpressionUUID->"a92c32b5-c23e-7943-9656-aea4b5c428d7"], +Cell[319902, 8043, 572, 12, 85, "Message",ExpressionUUID->"278bf77a-d73c-c84a-8914-85a2a0d1559c"], +Cell[320477, 8057, 458, 10, 26, "Message",ExpressionUUID->"341ce956-49ff-8f46-84bb-bcaaba1e8ea9"], +Cell[320938, 8069, 171, 3, 32, "Output",ExpressionUUID->"94404803-8b83-8a42-8385-1167ffd078a8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[321146, 8077, 2219, 64, 162, "Input",ExpressionUUID->"a62e28a7-2963-b449-b2d2-4774e534a560"], +Cell[323368, 8143, 564, 12, 85, "Message",ExpressionUUID->"c97b7826-1134-834a-8813-439f81fdc13f"], +Cell[323935, 8157, 567, 12, 85, "Message",ExpressionUUID->"5648dba3-b48a-c549-a33c-f599b4e5b995"], +Cell[324505, 8171, 570, 12, 85, "Message",ExpressionUUID->"7563d59f-361e-3948-b073-d7842f12334e"], +Cell[325078, 8185, 456, 10, 26, "Message",ExpressionUUID->"726f2b8e-ea46-7c48-8586-2eb207eadde6"], +Cell[325537, 8197, 173, 3, 32, "Output",ExpressionUUID->"db379c33-b649-2d43-ac47-d39edb6bd127"] +}, Open ]], +Cell[CellGroupData[{ +Cell[325747, 8205, 2219, 64, 162, "Input",ExpressionUUID->"9dbddde0-a221-414e-bf4d-6be0dfb61fa1"], +Cell[327969, 8271, 566, 12, 85, "Message",ExpressionUUID->"230d0e01-4d30-3142-81a2-ed4c42905a05"], +Cell[328538, 8285, 569, 12, 85, "Message",ExpressionUUID->"77058178-333e-354d-80c4-e12104a807ce"], +Cell[329110, 8299, 570, 12, 85, "Message",ExpressionUUID->"b5bc528a-d748-0f4f-94e7-12c75a1d74a6"], +Cell[329683, 8313, 458, 10, 26, "Message",ExpressionUUID->"2107b1d1-4ebe-2440-81fa-60e90e5253f9"], +Cell[330144, 8325, 170, 3, 32, "Output",ExpressionUUID->"7bdb3303-182d-9d45-b807-70346e03e157"] +}, Open ]], +Cell[CellGroupData[{ +Cell[330351, 8333, 211, 6, 47, "Input",ExpressionUUID->"a4f97f96-646f-ae45-96cc-9c4165440b9d"], +Cell[330565, 8341, 171, 3, 32, "Output",ExpressionUUID->"37b2a818-74be-9440-ae6a-a43cc0ec40a8"] +}, Open ]], +Cell[330751, 8347, 247, 5, 42, "Input",ExpressionUUID->"35c63783-19fc-b040-b8f7-ef972ba7b6ed"], +Cell[CellGroupData[{ +Cell[331023, 8356, 558, 19, 52, "Input",ExpressionUUID->"82776c92-7c10-2f45-a63e-50057ffca54a"], +Cell[331584, 8377, 173, 3, 32, "Output",ExpressionUUID->"37bd912e-575b-eb4f-8032-971d1e707228"] +}, Open ]], +Cell[CellGroupData[{ +Cell[331794, 8385, 170, 5, 56, "Input",ExpressionUUID->"a56d8b01-6731-b840-bb77-f7f462892539"], +Cell[331967, 8392, 171, 3, 32, "Output",ExpressionUUID->"3a344811-90b2-ec44-89d0-1c709ea9d046"] +}, Open ]], +Cell[CellGroupData[{ +Cell[332175, 8400, 181, 5, 43, "Input",ExpressionUUID->"d4bf0543-67ce-024d-a419-60bff835c466"], +Cell[332359, 8407, 173, 3, 32, "Output",ExpressionUUID->"665369d7-97a6-fa48-bef2-b3decb044e25"] +}, Open ]], +Cell[CellGroupData[{ +Cell[332569, 8415, 6055, 185, 498, "Input",ExpressionUUID->"276e96f1-558d-9846-adb4-2350594341f3"], +Cell[338627, 8602, 175, 3, 32, "Output",ExpressionUUID->"ffc1a009-137c-b34d-9076-1696d057b6db"] +}, Open ]], +Cell[CellGroupData[{ +Cell[338839, 8610, 368, 9, 42, "Input",ExpressionUUID->"fff85ae9-ba42-8247-a314-19fd83d5dbdb"], +Cell[339210, 8621, 172, 3, 32, "Output",ExpressionUUID->"895d1a28-2153-a84d-81e3-1cdf5d6d48ed"] +}, Open ]], +Cell[CellGroupData[{ +Cell[339419, 8629, 6122, 187, 500, "Input",ExpressionUUID->"37b23358-bc27-224f-b5f7-62b1fc97e785"], +Cell[345544, 8818, 173, 3, 32, "Output",ExpressionUUID->"d4750c6a-3354-8a41-a70f-517b49b84087"] +}, Open ]], +Cell[CellGroupData[{ +Cell[345754, 8826, 368, 9, 42, "Input",ExpressionUUID->"eeb5992b-a45f-a14b-8a22-14af99af15e2"], +Cell[346125, 8837, 170, 3, 32, "Output",ExpressionUUID->"5a3e32eb-a9a4-414a-82df-9b56efed1b93"] +}, Open ]], +Cell[CellGroupData[{ +Cell[346332, 8845, 2663, 88, 187, "Input",ExpressionUUID->"6ddb4033-5394-f34c-95af-22d1f1297351"], +Cell[348998, 8935, 171, 3, 32, "Output",ExpressionUUID->"69873497-f6d3-324c-852f-4bb50568f85a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[349206, 8943, 2603, 85, 165, "Input",ExpressionUUID->"22b71737-ea19-a348-af70-a874963373f8"], +Cell[351812, 9030, 171, 3, 32, "Output",ExpressionUUID->"13526c56-3d85-3c46-83ee-6fb4edbe82d4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[352020, 9038, 3712, 118, 348, "Input",ExpressionUUID->"08fab4d8-dc36-3f43-8a7e-9a5fa838c25d"], +Cell[355735, 9158, 170, 3, 32, "Output",ExpressionUUID->"b4a365f6-f572-034d-a2e6-640ba90b8a4e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[355942, 9166, 2054, 59, 228, "Input",ExpressionUUID->"d3f05697-a372-2a42-8c9c-ccc9289a44b2"], +Cell[357999, 9227, 573, 12, 85, "Message",ExpressionUUID->"dedd9f21-b30a-8e42-82f2-2e7179121ba4"], +Cell[358575, 9241, 577, 12, 85, "Message",ExpressionUUID->"93a73c80-9680-654d-99e9-e1bbed8734bd"], +Cell[359155, 9255, 580, 12, 85, "Message",ExpressionUUID->"424f437d-38a4-9145-b6b6-1508229b7d8c"], +Cell[359738, 9269, 456, 10, 26, "Message",ExpressionUUID->"e793f45c-63f6-1a4c-a8b0-a632d0f13f9c"], +Cell[360197, 9281, 170, 3, 32, "Output",ExpressionUUID->"ce1fa0ad-8b26-074b-acfe-1ea0d6a21afc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[360404, 9289, 2052, 59, 228, "Input",ExpressionUUID->"7ddfee1b-0897-3d44-810e-ee309c4e8981"], +Cell[362459, 9350, 573, 12, 85, "Message",ExpressionUUID->"36d155d3-589e-794d-9cf1-db14439adeb2"], +Cell[363035, 9364, 577, 12, 85, "Message",ExpressionUUID->"96775aa8-3123-8641-a422-091bbfbfb205"], +Cell[363615, 9378, 582, 12, 85, "Message",ExpressionUUID->"bc2025f1-37fb-ab47-8425-81a033e22370"], +Cell[364200, 9392, 456, 10, 26, "Message",ExpressionUUID->"be10e44a-c9da-4b44-b4a3-1024a86046c1"], +Cell[364659, 9404, 170, 3, 32, "Output",ExpressionUUID->"d3ed87ff-6c98-ec45-a1b5-3155c267d9aa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364866, 9412, 2030, 55, 160, "Input",ExpressionUUID->"edc0f744-d665-ee48-9e1d-32ecc25a02c4"], +Cell[366899, 9469, 20422, 382, 237, "Output",ExpressionUUID->"f43b713e-4442-024e-aa3a-d7907c7b2d57"] +}, Open ]], +Cell[CellGroupData[{ +Cell[387358, 9856, 2094, 60, 211, "Input",ExpressionUUID->"556a1eda-5f63-f94a-8981-af3901893679"], +Cell[389455, 9918, 502, 11, 60, "Message",ExpressionUUID->"346e0290-ff74-c04a-98f4-4b3b3d9364c5"], +Cell[389960, 9931, 506, 11, 60, "Message",ExpressionUUID->"ce3310df-8528-a243-9163-01df1bba8789"], +Cell[390469, 9944, 505, 11, 60, "Message",ExpressionUUID->"ac270026-fa69-2b44-8823-7a4a31d727b7"], +Cell[390977, 9957, 458, 10, 26, "Message",ExpressionUUID->"bb15b9e5-873c-b443-b9aa-a9ce94c451b4"], +Cell[391438, 9969, 22288, 412, 233, "Output",ExpressionUUID->"787ac492-4e0a-fd43-b6f7-df921f726ea4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[413763, 10386, 1616, 48, 113, "Input",ExpressionUUID->"1ecbbb3f-ee46-da42-8494-bab66d31929d"], +Cell[415382, 10436, 595, 12, 85, "Message",ExpressionUUID->"ff5f87ad-0547-2e4d-89ac-2a19dabd294e"], +Cell[415980, 10450, 595, 12, 85, "Message",ExpressionUUID->"4f2b71d6-333a-cf47-9307-2421af7d6535"], +Cell[416578, 10464, 599, 12, 85, "Message",ExpressionUUID->"d1d04bbb-5842-0645-bad0-4769b073ee9a"], +Cell[417180, 10478, 456, 10, 26, "Message",ExpressionUUID->"6eb43be6-bae6-ed4a-aaaf-c88bf605b97b"], +Cell[417639, 10490, 171, 3, 32, "Output",ExpressionUUID->"edccccc4-7997-b54a-b45b-3f22383f2466"] +}, Open ]], +Cell[CellGroupData[{ +Cell[417847, 10498, 2251, 64, 223, "Input",ExpressionUUID->"fc5d2c23-4a6f-a449-ab65-d4efe503e761"], +Cell[420101, 10564, 575, 12, 85, "Message",ExpressionUUID->"6b4a6697-4d78-6348-aa33-09faf2e911d5"], +Cell[420679, 10578, 577, 12, 85, "Message",ExpressionUUID->"ff3f230d-c2f3-0a4b-92bb-4d06b5d3791d"], +Cell[421259, 10592, 582, 12, 85, "Message",ExpressionUUID->"ef73945b-c6bc-b44c-a3fe-a5985e6926fb"], +Cell[421844, 10606, 458, 10, 26, "Message",ExpressionUUID->"0dbccea2-a398-8e4f-96d9-c32a7f87f538"], +Cell[422305, 10618, 172, 3, 32, "Output",ExpressionUUID->"288e2dce-c937-8742-9640-a3e8f057e389"] +}, Open ]], +Cell[CellGroupData[{ +Cell[422514, 10626, 2221, 64, 162, "Input",ExpressionUUID->"43c7013a-a6e2-1a44-9690-1cefd2c28187"], +Cell[424738, 10692, 575, 12, 85, "Message",ExpressionUUID->"f13edf30-029d-f44b-80aa-7454fa8a48eb"], +Cell[425316, 10706, 577, 12, 85, "Message",ExpressionUUID->"9d4bffff-d8ba-5a4b-ba27-25e0bcf141ed"], +Cell[425896, 10720, 582, 12, 85, "Message",ExpressionUUID->"03541b7d-a305-9542-b64e-53c12d61a33e"], +Cell[426481, 10734, 458, 10, 26, "Message",ExpressionUUID->"1c28a402-6927-1f4a-8631-2d356954a732"], +Cell[426942, 10746, 170, 3, 32, "Output",ExpressionUUID->"f80ab114-db4a-5644-a33e-f2edc512069c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[427149, 10754, 2218, 64, 162, "Input",ExpressionUUID->"41fb449c-01a0-ed48-856e-cc313bd0a6c7"], +Cell[429370, 10820, 573, 12, 85, "Message",ExpressionUUID->"00b8f68b-770c-674c-8948-37aa9dbeba3b"], +Cell[429946, 10834, 577, 12, 85, "Message",ExpressionUUID->"8193dcf9-288a-d04f-81d0-67db9580cad4"], +Cell[430526, 10848, 580, 12, 85, "Message",ExpressionUUID->"f07c17e3-2923-c44f-8e3c-8f3ec985f07f"], +Cell[431109, 10862, 456, 10, 26, "Message",ExpressionUUID->"6165087b-71c6-5242-84a4-b7f2ddeda33f"], +Cell[431568, 10874, 173, 3, 32, "Output",ExpressionUUID->"f6c86172-b23f-f047-b574-633c44f7d8cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[431778, 10882, 211, 6, 47, "Input",ExpressionUUID->"63e2fa1e-7c56-c749-a270-c9c703386fca"], +Cell[431992, 10890, 173, 3, 32, "Output",ExpressionUUID->"61a3e242-6b8f-6c43-96c1-0f461f3aa111"] +}, Open ]], +Cell[432180, 10896, 245, 5, 42, "Input",ExpressionUUID->"8b2e971d-5760-5e43-92fb-a0baf224e1e6"], +Cell[CellGroupData[{ +Cell[432450, 10905, 558, 19, 52, "Input",ExpressionUUID->"ed5b29da-ad52-224c-9e8e-5cfb6cba7ae5"], +Cell[433011, 10926, 173, 3, 32, "Output",ExpressionUUID->"73bada1a-f8bf-544a-9ef4-a0ed1cad3a20"] +}, Open ]], +Cell[CellGroupData[{ +Cell[433221, 10934, 170, 5, 56, "Input",ExpressionUUID->"52bec50b-93fb-4b4d-b447-2d6401f3d9c3"], +Cell[433394, 10941, 173, 3, 32, "Output",ExpressionUUID->"a055216b-2938-334b-91b2-e1767bdc02c1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[433604, 10949, 181, 5, 43, "Input",ExpressionUUID->"1256eede-590d-b745-a810-815fbd90d864"], +Cell[433788, 10956, 173, 3, 32, "Output",ExpressionUUID->"1cb3b090-b3a4-5041-90d2-cd331e939555"] +}, Open ]], +Cell[CellGroupData[{ +Cell[433998, 10964, 6055, 185, 498, "Input",ExpressionUUID->"26b3e9a1-c12d-c340-b102-39e3418b2423"], +Cell[440056, 11151, 172, 3, 32, "Output",ExpressionUUID->"d87c8c95-b548-7743-a9ae-ba00333bd7d5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[440265, 11159, 368, 9, 42, "Input",ExpressionUUID->"f1c368f7-48c1-ae41-985d-84d539f430bf"], +Cell[440636, 11170, 172, 3, 32, "Output",ExpressionUUID->"5c166658-06fc-9646-bfdb-835a116404d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[440845, 11178, 6122, 187, 500, "Input",ExpressionUUID->"8303e334-ad11-5445-af0f-63c02c371294"], +Cell[446970, 11367, 173, 3, 32, "Output",ExpressionUUID->"f5459de9-bc9d-bb43-82ac-bbb255c0bb6b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[447180, 11375, 368, 9, 42, "Input",ExpressionUUID->"9a6f9d0e-1f18-634f-a091-d3e4beab45d1"], +Cell[447551, 11386, 170, 3, 32, "Output",ExpressionUUID->"7547cec8-bbb9-474e-a326-2aa5b5d0ea0e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[447758, 11394, 2663, 88, 187, "Input",ExpressionUUID->"d36c329f-0f97-3149-b3e7-38d2ece236d0"], +Cell[450424, 11484, 171, 3, 32, "Output",ExpressionUUID->"67a86a49-0510-5043-b0e4-0c9fbd007328"] +}, Open ]], +Cell[CellGroupData[{ +Cell[450632, 11492, 2603, 85, 165, "Input",ExpressionUUID->"9d78a1b5-e3d2-144d-9443-73ce54c6aaab"], +Cell[453238, 11579, 173, 3, 32, "Output",ExpressionUUID->"4375608b-4469-c645-b9da-2341df1da6f3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[453448, 11587, 3712, 118, 348, "Input",ExpressionUUID->"66c99cb8-7b1e-c84b-9bf9-362f26e0fb97"], +Cell[457163, 11707, 173, 3, 32, "Output",ExpressionUUID->"d85e146c-555e-ff43-a64b-dc61481e05ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[457373, 11715, 2048, 58, 228, "Input",ExpressionUUID->"f0de9d8e-43d1-8b49-87d3-7f90d7e4f5e3"], +Cell[459424, 11775, 568, 12, 85, "Message",ExpressionUUID->"0b50a344-9b6a-6f43-a31a-1906b6b83303"], +Cell[459995, 11789, 573, 12, 85, "Message",ExpressionUUID->"a61f676b-80fb-564e-91e4-f0d82f0e9781"], +Cell[460571, 11803, 576, 12, 85, "Message",ExpressionUUID->"6e5727c3-e53a-0d47-882d-51da7563867b"], +Cell[461150, 11817, 458, 10, 26, "Message",ExpressionUUID->"d4019ad4-a9c4-064b-945e-f11a073e5bac"], +Cell[461611, 11829, 172, 3, 32, "Output",ExpressionUUID->"c8ba2a53-8163-c84b-820e-bd4c6c80df97"] +}, Open ]], +Cell[CellGroupData[{ +Cell[461820, 11837, 2054, 59, 228, "Input",ExpressionUUID->"61250ade-2a8a-1a4d-bb58-5bb7aa60c04a"], +Cell[463877, 11898, 568, 12, 85, "Message",ExpressionUUID->"337843af-226f-af40-a4c7-0e7c7d9ce578"], +Cell[464448, 11912, 573, 12, 85, "Message",ExpressionUUID->"5caa0d49-db8e-7047-81dc-724c9a57223e"], +Cell[465024, 11926, 574, 12, 85, "Message",ExpressionUUID->"89243390-869b-ab4b-bd60-81c23885cae2"], +Cell[465601, 11940, 458, 10, 26, "Message",ExpressionUUID->"7212133e-ab68-b54b-b1d5-ecb5b003feb9"], +Cell[466062, 11952, 172, 3, 32, "Output",ExpressionUUID->"68a706fc-6e54-074e-91f9-e60e01512997"] +}, Open ]], +Cell[CellGroupData[{ +Cell[466271, 11960, 2028, 55, 160, "Input",ExpressionUUID->"020bdd6e-add3-0a46-9b39-04b7ffae8470"], +Cell[468302, 12017, 20375, 384, 237, "Output",ExpressionUUID->"24c99615-29ec-434a-9120-6a0e664bd2c0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[488714, 12406, 2094, 60, 211, "Input",ExpressionUUID->"5cbca01a-701c-5744-b740-3bf6288a42b7"], +Cell[490811, 12468, 501, 11, 60, "Message",ExpressionUUID->"012afcdf-095f-f547-ae49-5e5eab6ac53d"], +Cell[491315, 12481, 503, 11, 60, "Message",ExpressionUUID->"efe4240f-cfb2-1544-b97a-0d31a46a5acc"], +Cell[491821, 12494, 506, 11, 60, "Message",ExpressionUUID->"f00a9c55-0183-344a-88dd-02375b09fbdb"], +Cell[492330, 12507, 458, 10, 26, "Message",ExpressionUUID->"948ef9a9-e05b-a247-a398-dab2b9b01e6c"], +Cell[492791, 12519, 22161, 409, 233, "Output",ExpressionUUID->"3cb194f4-3fee-2848-822d-18b4cc4f12ed"] +}, Open ]], +Cell[CellGroupData[{ +Cell[514989, 12933, 1616, 48, 113, "Input",ExpressionUUID->"bd700bac-9ff0-794b-a1df-85afecca9797"], +Cell[516608, 12983, 590, 12, 85, "Message",ExpressionUUID->"16053233-c82a-df40-9f76-57858a5ce653"], +Cell[517201, 12997, 589, 12, 85, "Message",ExpressionUUID->"c17aef07-6675-4240-9659-a4faf651ba84"], +Cell[517793, 13011, 593, 12, 85, "Message",ExpressionUUID->"7e2cd7a6-7004-5545-8ead-85e58be0261f"], +Cell[518389, 13025, 456, 10, 26, "Message",ExpressionUUID->"133cf53d-6aa7-f54b-97b8-85e2d528574d"], +Cell[518848, 13037, 170, 3, 32, "Output",ExpressionUUID->"4a14d2c1-d4aa-bb44-a445-b9d5e6a8ec44"] +}, Open ]], +Cell[CellGroupData[{ +Cell[519055, 13045, 2249, 64, 223, "Input",ExpressionUUID->"aa4ca102-401f-6c45-84ea-b21fa4222eb4"], +Cell[521307, 13111, 568, 12, 85, "Message",ExpressionUUID->"67370f99-93a3-2a4c-abfb-9ec2739f82e3"], +Cell[521878, 13125, 573, 12, 85, "Message",ExpressionUUID->"c65b7f06-a5d9-2b42-b82a-61a8418de1aa"], +Cell[522454, 13139, 574, 12, 85, "Message",ExpressionUUID->"c5205368-7549-5d4a-91b5-fc0c385cffcd"], +Cell[523031, 13153, 458, 10, 26, "Message",ExpressionUUID->"75f147e7-0111-f945-9d68-054bd31d6468"], +Cell[523492, 13165, 173, 3, 32, "Output",ExpressionUUID->"5463c495-050f-3a48-ad8b-56249455c6df"] +}, Open ]], +Cell[CellGroupData[{ +Cell[523702, 13173, 2223, 64, 162, "Input",ExpressionUUID->"6ecebc3a-297f-ad45-be0e-687cb63b6c02"], +Cell[525928, 13239, 570, 12, 85, "Message",ExpressionUUID->"f1435cf6-8920-cf4a-89bd-205dc850fb13"], +Cell[526501, 13253, 573, 12, 85, "Message",ExpressionUUID->"153c989b-3e07-ba44-9502-ce5eeeaef20b"], +Cell[527077, 13267, 573, 12, 85, "Message",ExpressionUUID->"f96787a5-8527-9249-955c-61c282829a8e"], +Cell[527653, 13281, 458, 10, 26, "Message",ExpressionUUID->"74b767aa-86c3-b342-aaa5-b3aa8db05a0c"], +Cell[528114, 13293, 171, 3, 32, "Output",ExpressionUUID->"428a5219-3885-624b-b9ef-667a709b85a0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[528322, 13301, 2221, 64, 162, "Input",ExpressionUUID->"f4d4d2f3-a6fe-7445-a71e-f1844b022d84"], +Cell[530546, 13367, 570, 12, 85, "Message",ExpressionUUID->"003d8265-71b4-9b48-956a-875004c8f691"], +Cell[531119, 13381, 573, 12, 85, "Message",ExpressionUUID->"58af30c7-a170-574d-a307-1d28d4712f2c"], +Cell[531695, 13395, 574, 12, 85, "Message",ExpressionUUID->"503404b6-a33b-f146-8dab-1a0f0a48a6bb"], +Cell[532272, 13409, 458, 10, 26, "Message",ExpressionUUID->"ec987c19-b918-e54c-a15c-61c6a7a0cb83"], +Cell[532733, 13421, 173, 3, 32, "Output",ExpressionUUID->"fd0d79df-b556-504a-b816-cff0691012a5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[532943, 13429, 212, 6, 47, "Input",ExpressionUUID->"84cd8b8a-60e5-9e4d-8a98-fd76363577db"], +Cell[533158, 13437, 172, 3, 32, "Output",ExpressionUUID->"e1ed9356-8f68-774e-9d61-631f2714eaaf"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3(ДЛЯ АЭСНИКОВ)/l_АЭСНИКАМ_pr_Qw1.nb b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3(ДЛЯ АЭСНИКОВ)/l_АЭСНИКАМ_pr_Qw1.nb new file mode 100755 index 0000000..0da5693 --- /dev/null +++ b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3(ДЛЯ АЭСНИКОВ)/l_АЭСНИКАМ_pr_Qw1.nb @@ -0,0 +1,14702 @@ +(* 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[ 610885, 14694] +NotebookOptionsPosition[ 571500, 14067] +NotebookOutlinePosition[ 571953, 14085] +CellTagsIndexPosition[ 571910, 14082] +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}, + CellLabel->"In[1]:=",ExpressionUUID->"5c53cc3f-a847-ea43-919e-ec3fddab5018"], + +Cell[BoxData["3"], "Output", + CellChangeTimes->{3.991320420900818*^9, 3.992089565723549*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"a22a8bf1-3cda-c445-9b1e-c959986cb881"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "234"}]], "Input", + CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { + 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, + 3.99179303935478*^9}, 3.9920893973301544`*^9}, + CellLabel->"In[2]:=",ExpressionUUID->"b007e25b-46cd-e741-b8ee-6dec373d2814"], + +Cell[BoxData["234"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.9920895659023285`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"243492c9-bad7-534e-8c7d-2698a36e9928"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "82"}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.992089401338833*^9, + 3.9920894018500023`*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"509c4d57-ba2a-4344-b148-c08c7290301f"], + +Cell[BoxData["82"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9920895659261894`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"0b34954d-a044-3a4d-98a8-fa583c1df7b8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"784ef5b9-be2d-7e42-975e-274b5b3f4edb"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9, 3.991707828219631*^9, + 3.9917123414174232`*^9, 3.9920895659317207`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"d498484c-e641-b847-b98c-b972ecaebafe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"68853928-aac9-a142-9042-54ccdc1d1625"], + +Cell[BoxData["0.5544871794871795`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9, 3.9917078282275677`*^9, + 3.9917123414253197`*^9, 3.9920895659537334`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"af0a8034-6a55-134b-a088-cb12eafc619c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"1065e8fc-9793-2d47-998d-680ae47defc7"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9, 3.9917078282485256`*^9, + 3.9917123414324265`*^9, 3.9920895659587307`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"f25b7cfb-c492-9844-be97-cfb9a987e1ad"] +}, 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->"459bcdad-4d48-8145-b2b7-57e30673f7c0"], + +Cell[BoxData["5.0395985234915885`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9, 3.9917078282706223`*^9, + 3.9917123414384117`*^9, 3.992089565981739*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"b9368322-f18b-674c-8d8d-38b90a8e226f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"6b6f70ae-7ecd-4d4a-a343-f7557ce4590c"], + +Cell[BoxData["6.190691825034912`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9, 3.9917078282785244`*^9, + 3.991712341447321*^9, 3.9920895660013065`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"05b5e0c2-9763-574b-8358-4b5484139955"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.421480706633547"}]], "Input", + CellChangeTimes->{3.9917123951294365`*^9, 3.99179305435186*^9, + 3.9920894102175694`*^9}, + CellLabel->"In[9]:=",ExpressionUUID->"c2902661-ab59-3b46-a9ed-c36f08b8fc0a"], + +Cell[BoxData["0.421480706633547`"], "Output", + CellChangeTimes->{3.991319649862606*^9, 3.991707828301527*^9, + 3.9917123414573193`*^9, 3.991712407248003*^9, 3.9920895660059776`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"58c8e257-10d7-384b-ae7c-31172731c153"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.744261692152701"}]], "Input", + CellChangeTimes->{3.9917124038115807`*^9, 3.991793052797516*^9, + 3.9920894153197956`*^9}, + CellLabel->"In[10]:=",ExpressionUUID->"82048c87-87e2-f444-a83a-2e57b3de4982"], + +Cell[BoxData["0.744261692152701`"], "Output", + CellChangeTimes->{3.9913196498716316`*^9, 3.991707828308525*^9, + 3.99171234146842*^9, 3.9917124073213234`*^9, 3.9920895660299835`*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"b70ca051-da87-3b47-8946-d6b4c6534cff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"762dff8f-cdb4-714d-ad5b-d20ed3032585"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9, 3.9917078283276424`*^9, + 3.991712341478319*^9, 3.9920895660361767`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"56d2b6c2-cab3-0b4e-a719-fdba0d6c8a20"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"4aed484f-9e5f-604e-8992-e993e93175a7"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9, 3.99170782834754*^9, + 3.9917123414863186`*^9, 3.992089566041706*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"da41569c-082b-d543-9c04-75e21834951f"] +}, 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->"860b316b-ede1-8647-87c5-5e0698c00fb4"], + +Cell[BoxData["1.4675571041126967`"], "Output", + CellChangeTimes->{3.9913197863028755`*^9, 3.991707968406042*^9, + 3.992089566066429*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"474c4a3a-2d86-5145-9f31-363ced03473c"] +}, 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->"18dfe53d-9a6a-d645-9fb4-4e3cc9901a6d"], + +Cell[BoxData["1.9764491154865769`"], "Output", + CellChangeTimes->{3.9913197864610195`*^9, 3.9917079684291363`*^9, + 3.9920895660724354`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"321cd7dd-8689-0c45-9690-b9da8802e3b3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"1c694041-1aea-c447-a95e-17a1533d6e51"], + +Cell[BoxData["0.6559383278596986`"], "Output", + CellChangeTimes->{3.991319786533783*^9, 3.991707968457081*^9, + 3.992089566098549*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"45ef1d4d-b6e1-2345-92e5-7728828c31a9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"5475d114-6261-d541-aafa-fdb9659d4864"], + +Cell[BoxData[ + RowBox[{"-", "0.37229468143309563`"}]], "Output", + CellChangeTimes->{3.991319786540777*^9, 3.9917079684650364`*^9, + 3.992089566104553*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"3bbd7dc8-2e78-cb45-91e3-93dea055aa1c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"2944f218-5705-f14c-a576-85530fdd99aa"], + +Cell[BoxData[ + RowBox[{"-", "0.10565103139566565`"}]], "Output", + CellChangeTimes->{3.9913197865777817`*^9, 3.9917079684860363`*^9, + 3.9920895661334343`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"add091b2-5ef6-5540-ab74-c5f80e3d1b26"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"0c144073-694f-ae47-a3f3-72d089237d4a"], + +Cell[BoxData["0.4612539649188019`"], "Output", + CellChangeTimes->{3.9913197866129*^9, 3.9917079684940376`*^9, + 3.992089566154436*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"f344ec62-3349-0d45-91f2-ff976ed17793"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"b7f5b3af-06ff-b84e-a700-f92ff0ab4d8e"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786620775*^9, 3.9917079685140343`*^9, + 3.992089566161434*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"882e2fb2-e0d3-b545-9a44-38911a84dbd2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellChangeTimes->{3.9918430951178913`*^9}, + CellLabel->"In[20]:=",ExpressionUUID->"ad317da0-0cdb-034e-a907-b1e8898396b7"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{3.991319786657793*^9, 3.991707968535036*^9, + 3.99208956616745*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"61aaf5b5-aeae-c941-913b-21d20bb582ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"fb4f857d-577f-2f40-b995-2cc678cd4ae8"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{3.9913197866657925`*^9, 3.9917079685410557`*^9, + 3.992089566190012*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"f6b464e3-1924-4c47-a269-5546ba3d48c2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"7f4a7a4b-1a46-6d40-a942-00c5572afffd"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{3.9913197866996*^9, 3.991707968561041*^9, + 3.992089566195524*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"bd97475e-f7bd-1840-aaba-05594b6030ca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"6d1c657f-0e6a-7d43-9908-84d4b4d63437"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{3.9913197867406044`*^9, 3.9917079685810375`*^9, + 3.992089566225437*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"3dda69d7-e339-bd45-a083-da45605fd97a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "32"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.9917930777342243`*^9, + 3.9920894233840046`*^9}, + CellLabel->"In[24]:=",ExpressionUUID->"94e086b8-8e9f-1b4b-b1c2-f611d5276e63"], + +Cell[BoxData["32"], "Output", + CellChangeTimes->{3.992089566254753*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"bbbb9326-94f5-254d-aa6e-ef72d42647c9"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431115646553`*^9, 3.991843111569187*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"b2a3cffd-4228-0043-ae98-29fae1123c03"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"92", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, { + 3.991644237125025*^9, 3.991644237304865*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"66c624dc-f115-1547-a427-6a7c919ee29d"], + +Cell[BoxData["60"], "Output", + CellChangeTimes->{3.9913197867928696`*^9, 3.991707968608036*^9, + 3.99208956628076*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"c0f890ca-f394-0d43-9d63-84093b55fbc8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"25b5c07a-8750-ae4b-8df7-0d6fef46eca8"], + +Cell[BoxData["152"], "Output", + CellChangeTimes->{3.991319786827894*^9, 3.9917079686284103`*^9, + 3.9920895662857647`*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"64fb51c0-75ed-ea4b-9b29-410a3424a7ee"] +}, 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->"e17fd0de-a1d1-4c40-bead-6671f0ba0de7"], + +Cell[BoxData["0.10940949935815147`"], "Output", + CellChangeTimes->{3.9913197868648605`*^9, 3.9917079686354065`*^9, + 3.9920895662917824`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"3e68d367-8cd3-6f42-9e7d-8305efca0cde"] +}, 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->"40a6ddb6-55b9-7d4d-8068-0878eb7adc95"], + +Cell[BoxData[ + RowBox[{"-", "2.565044929396662`"}]], "Output", + CellChangeTimes->{3.9913197868718567`*^9, 3.991707968658518*^9, + 3.9920895663198013`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"0c2b3665-7040-4f4f-b2ed-ce6945409112"] +}, 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.991972093618887*^9, 3.9919720982596817`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"7e5517f2-ecf2-1547-941b-cf99ab1cfc0b"], + +Cell[BoxData["18.13233419952894`"], "Output", + CellChangeTimes->{3.9913197869068584`*^9, 3.991707968678421*^9, + 3.992089566342434*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"878ab69e-4349-714f-ae25-bcf53f497d95"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"d697b8dc-157a-e441-b9ac-7bbd39bee453"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786940857*^9, 3.9917079686854057`*^9, + 3.9920895663484135`*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"7206fe0c-a2c5-144e-be6b-faa7864024f0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "0.889"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.991793106556059*^9, 3.9920891167348633`*^9}, + CellLabel->"In[32]:=",ExpressionUUID->"69c107a3-b273-d44e-9677-044cdd4d6d11"], + +Cell[BoxData["0.889`"], "Output", + CellChangeTimes->{3.9920895663544292`*^9}, + CellLabel->"Out[32]=",ExpressionUUID->"a94e6c48-b696-6942-bbc1-00618b232152"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431193859673`*^9, 3.9918431193894367`*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"34a59133-6f43-ba40-9f73-33ca3249914e"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.634"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917169698218613`*^9, 3.991717907758713*^9, + 3.991793107839529*^9, 3.9920891205275974`*^9}, + CellLabel->"In[34]:=",ExpressionUUID->"e62b4b0b-68d5-e046-8822-d18d6800a28d"], + +Cell[BoxData["0.634`"], "Output", + CellChangeTimes->{3.9920895663844376`*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"ff067781-76a8-df46-b528-6df6d1efdb9d"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843120757866*^9, 3.9918431207603054`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"41a9f77f-5b19-754f-81f2-3b152d6657be"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "1.069"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.991717916696951*^9, + 3.991793108990593*^9, 3.992089124257103*^9}, + CellLabel->"In[36]:=",ExpressionUUID->"87eebcf6-52d6-6344-83c2-708fbac47c12"], + +Cell[BoxData["1.069`"], "Output", + CellChangeTimes->{3.9920895664084415`*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"a8390bb4-be1d-a240-80b1-5ae672bc7e13"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431220200443`*^9, 3.9918431220220585`*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"f21b366b-5999-ed40-b319-000f72623e25"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn1", "=", "0.744"}], "\n"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.991716995355715*^9, + 3.9917931103354855`*^9, 3.9920891300041294`*^9}, + CellLabel->"In[38]:=",ExpressionUUID->"ce5a0695-496f-b947-9c6f-6d21f680dee2"], + +Cell[BoxData["0.744`"], "Output", + CellChangeTimes->{3.9920895664164486`*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"1957fcaa-b50d-8c4a-bfa6-2e1800df928a"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431237966404`*^9, 3.9918431238010616`*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"37607808-f051-fd4f-a3b6-cef0d84be1a5"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"v2", "=", "1.991"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991717006317978*^9, 3.9917931115739956`*^9, 3.9920891335540543`*^9}, + CellLabel->"In[40]:=",ExpressionUUID->"3d3d0219-b32c-8149-9ca5-9b6e81fb6eb1"], + +Cell[BoxData["1.991`"], "Output", + CellChangeTimes->{3.992089566442686*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"26bdae68-fadb-544d-88ef-ce9b7d8b5a6b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431249171696`*^9, 3.991843124921198*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"1f544a7a-cb21-e041-b58d-3c9a5ab9e6f7"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"n2", "=", "0.921"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917170151233826`*^9, 3.9917931128910503`*^9, 3.992089139983057*^9}, + CellLabel->"In[42]:=",ExpressionUUID->"80d3bfb3-e9fd-294d-890b-8a9f88a0780d"], + +Cell[BoxData["0.921`"], "Output", + CellChangeTimes->{3.9920895664756985`*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"ed273f02-b4bc-054f-8f57-4da6deadc00a"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843126102844*^9, 3.991843126104536*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"c77970e5-fc9e-2041-963b-719ba9c2edf6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv2", "=", "2.422"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, { + 3.9917170243815575`*^9, 3.991717046491377*^9}, 3.991793114539028*^9, + 3.99208914362006*^9}, + CellLabel->"In[44]:=",ExpressionUUID->"f9abd0ca-5558-5b47-9d3b-cf23b9e6e838"], + +Cell[BoxData["2.422`"], "Output", + CellChangeTimes->{3.992089566507509*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"0122cb3a-26ae-374e-9b00-3ec4a79b8521"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431274420605`*^9, 3.9918431274461517`*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"b87740a0-1917-3f49-bb29-7852d7858c55"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn2", "=", "1.520"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.991793116134735*^9, 3.992089147661951*^9}, + CellLabel->"In[46]:=",ExpressionUUID->"52d1f7d9-beee-cc45-99f5-641da626d30a"], + +Cell[BoxData["1.52`"], "Output", + CellChangeTimes->{3.9920895665374985`*^9}, + CellLabel->"Out[46]=",ExpressionUUID->"38bb4dc8-9669-614c-ab97-9b5cdde1aa49"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843129570627*^9, 3.991843129574024*^9}}, + CellLabel->"In[47]:=",ExpressionUUID->"358c583d-74ba-ad4d-a8d4-e3982b3aead3"], + +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[48]:=",ExpressionUUID->"5cbc0f1b-0140-ac46-a39b-743d4e8e4464"], + +Cell[BoxData["3.512937062486845`"], "Output", + CellChangeTimes->{3.991319787430073*^9, 3.991707979950527*^9, + 3.9920895666035786`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"b1b061e4-c503-b74a-9b67-ab2ddc7d8ad4"] +}, 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[49]:=",ExpressionUUID->"36718181-4bb0-af43-ad07-d7fb6f5b28ac"], + +Cell[BoxData["0.10043705144066703`"], "Output", + CellChangeTimes->{3.991319787574972*^9, 3.9917079908393784`*^9, + 3.9920895666534615`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"e0ae2fab-351f-1a4a-a0d3-a70acce34e2b"] +}, 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[50]:=",ExpressionUUID->"8b052be9-f277-6f41-822a-d12cf3b4ae0b"], + +Cell[BoxData[ + RowBox[{"-", "89.89927414638353`"}]], "Output", + CellChangeTimes->{3.991319787641424*^9, 3.991707995240637*^9, + 3.9920895666934986`*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"3e84c61f-9371-1c49-89d2-c793c44fc990"] +}, 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[51]:=",ExpressionUUID->"76d57e29-78be-fa43-8dc9-7e99a65e25e8"], + +Cell[BoxData[ + RowBox[{"-", "147.91129574560722`"}]], "Output", + CellChangeTimes->{3.991319787711939*^9, 3.991707999380541*^9, + 3.992089566742504*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"7de14c2d-842c-7447-abdf-85840b657816"] +}, 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[52]:=",ExpressionUUID->"f3ba3405-7fff-8644-b0ed-6091958d0625"], + +Cell[BoxData[ + RowBox[{"-", "77.38698403004418`"}]], "Output", + CellChangeTimes->{3.9913197877723045`*^9, 3.991708001954468*^9, + 3.9920895667890034`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"70a7767b-2a75-a648-8125-ca8c5607879c"] +}, 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[53]:=",ExpressionUUID->"7d3c635a-29fa-ef4f-a3cb-a6d31a6c1afc"], + +Cell[BoxData[ + RowBox[{"-", "262.6843748771715`"}]], "Output", + CellChangeTimes->{3.991319787833355*^9, 3.9917080040838356`*^9, + 3.9920895668848705`*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"9842d45a-c67c-7744-876c-51aae670a6e8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"f0dc6b05-95b4-3c4e-8218-6f24e1e9074f"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210013676`*^9, 3.991708067458639*^9, + 3.9920895669137783`*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"bc13d31c-f4e8-0842-b5d8-816ee7caf70f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"de5aa1cd-73a2-a74d-a88a-8bd9b6d56a2d"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210355663`*^9, 3.9917080674805565`*^9, + 3.992089566936777*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"8faea0c4-d667-394f-9443-06971bbb2bc4"] +}, 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[56]:=",ExpressionUUID->"771525b1-a3b0-9c42-a2ce-f358dbc46ecd"], + +Cell[BoxData["258.50760713766147`"], "Output", + CellChangeTimes->{3.991320421068556*^9, 3.9917080675026455`*^9, + 3.9920895669487705`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"d1a1d5e2-73e4-4345-8ea0-82236a4bb0f8"] +}, 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[57]:=",ExpressionUUID->"6f87b1b6-ba0f-ec48-a3ee-b41b8cb0c982"], + +Cell[BoxData[ + RowBox[{"-", "173.4091077962894`"}]], "Output", + CellChangeTimes->{3.991320421098543*^9, 3.991708067510544*^9, + 3.9920895669727745`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"f931bd6c-d3d2-a244-ace8-9df245ee414e"] +}, 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[58]:=",ExpressionUUID->"5db04c62-bc8e-2344-b319-eb24f68c5d2f"], + +Cell[BoxData["214.93123633488517`"], "Output", + CellChangeTimes->{3.9913204211275444`*^9, 3.9917080675337753`*^9, + 3.9920895669797745`*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"5f8225aa-3a5c-8245-853b-f9fabc044e3e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"e331a59e-8aa4-a54a-b717-a70abe3da5db"], + +Cell[BoxData["0.6559383278596986`"], "Output", + CellChangeTimes->{3.9913204211385536`*^9, 3.991708067540825*^9, + 3.992089567007345*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"33ce5ac0-f8bc-7249-ac4b-7487487d1234"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"f2472c70-bdea-4c4d-b3ee-b106a5633869"], + +Cell[BoxData[ + RowBox[{"-", "0.37229468143309563`"}]], "Output", + CellChangeTimes->{3.9913204211683464`*^9, 3.991708067561775*^9, + 3.992089567034361*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"a9800f4f-93be-c84e-9bd7-20bd7f321f52"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"d6b8982b-3b83-b34d-95b6-0ae72e2558c1"], + +Cell[BoxData[ + RowBox[{"-", "0.10565103139566565`"}]], "Output", + CellChangeTimes->{3.991320421199068*^9, 3.9917080675837746`*^9, + 3.99208956704138*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"b2a1c0b7-f419-9f4e-8ed2-bb066a345034"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"9171cbc5-844d-aa41-bc6f-585cbd0fc983"], + +Cell[BoxData["0.4612539649188019`"], "Output", + CellChangeTimes->{3.991320421228037*^9, 3.9917080675917854`*^9, + 3.992089567068819*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"06a130ef-2bb7-fd47-ad35-f7c625dc59af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"e1cc69dd-a728-0040-b179-8741ffc6e337"], + +Cell[BoxData["1.4675571041126967`"], "Output", + CellChangeTimes->{3.9913204212585373`*^9, 3.991708067612774*^9, + 3.992089567091913*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"8ce6de8f-0621-2445-ac1b-90e1ce984a4c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"020afb9f-18cc-7547-b2c4-fca2b231124a"], + +Cell[BoxData["1.9764491154865769`"], "Output", + CellChangeTimes->{3.9913204212884274`*^9, 3.991708067619776*^9, + 3.9920895670979404`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"c442dcd5-de84-1c48-89ad-9feeb6a4447b"] +}, 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[65]:=",ExpressionUUID->"25c058e7-229a-854d-95de-648f136126f0"], + +Cell[BoxData[ + RowBox[{"-", "7.349370511218955`"}]], "Output", + CellChangeTimes->{3.9913204213185234`*^9, 3.991708067640772*^9, + 3.992089567104452*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"ef0a464a-9d5a-c741-8e33-2ef9f825e4f7"] +}, 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[66]:=",ExpressionUUID->"0406f2f8-cf77-404d-a18b-b4c925e94fcb"], + +Cell[BoxData[ + RowBox[{"-", "23.078177749593607`"}]], "Output", + CellChangeTimes->{3.991320421349531*^9, 3.991708067662775*^9, + 3.9920895671316357`*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"762dc66a-a81b-3b44-b43f-0adfa74e17fe"] +}, 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[67]:=",ExpressionUUID->"06a776a6-047d-694d-818c-670507d1b937"], + +Cell[BoxData["251.15823662644252`"], "Output", + CellChangeTimes->{3.9913204213784294`*^9, 3.991708067669775*^9, + 3.9920895671566715`*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"5df1b96c-a6f7-9443-a782-7613aa8c14d4"] +}, 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[68]:=",ExpressionUUID->"12de86d7-0916-a646-a5a3-8d8fd6963183"], + +Cell[BoxData[ + RowBox[{"-", "173.4091077962894`"}]], "Output", + CellChangeTimes->{3.9913204213904285`*^9, 3.991708067690773*^9, + 3.992089567162657*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"b433989d-bd5f-4b48-8655-3e25fc9e410c"] +}, 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[69]:=",ExpressionUUID->"fe7f0c13-fd68-f644-a05d-3f27f137b7f4"], + +Cell[BoxData["191.85305858529156`"], "Output", + CellChangeTimes->{3.991320421419428*^9, 3.991708067697775*^9, + 3.992089567189335*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"594d7da0-b3ab-e844-a4d0-9731cb9eb29e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"ec8a2220-5a33-df40-8181-5d2b73d984d2"], + +Cell[BoxData["101.27199504223573`"], "Output", + CellChangeTimes->{3.9913204214494324`*^9, 3.9917080677197742`*^9, + 3.992089567218281*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"3254af7b-f0a1-7a4b-af5c-901855138812"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"2dc5f240-3f4c-4d49-99ac-2f098fd9bca9"], + +Cell[BoxData["597.1387713314264`"], "Output", + CellChangeTimes->{3.991320421481529*^9, 3.991708067726776*^9, + 3.9920895672256775`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"763a317e-a8e8-2642-b522-0e492052cc6c"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.195350778744494"}]], "Input", + CellChangeTimes->{3.991844487293215*^9, + 3.99208968770142*^9},ExpressionUUID->"8b10a187-c7b7-0f44-8f32-75ec5ae33e70"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991844505909937*^9, + 3.991844505914568*^9}},ExpressionUUID->"d7190627-18d6-a94b-880e-\ +e3f073ed75cd"], + +Cell[BoxData[ + RowBox[{"f2", "=", "0.422139750624708"}]], "Input", + CellChangeTimes->{3.991844489013321*^9, + 3.992089691636652*^9},ExpressionUUID->"ff3a0633-5725-474e-a1df-\ +0fae08da0391"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991844506884182*^9, + 3.9918445068872185`*^9}},ExpressionUUID->"c4cb48f6-8bef-5140-97cb-\ +74fc477176c0"], + +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->"1479e503-99dc-8043-a7ed-41f4ebd401a5"], + +Cell[BoxData["2.3793916761039797`*^-53"], "Output", + CellChangeTimes->{3.9913279321052856`*^9}, + CellLabel-> + "Out[150]=",ExpressionUUID->"56570731-d969-eb41-878a-b8b4e7feda04"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + 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"]}]], "*", "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, {3.9915580161429977`*^9, + 3.991558019706772*^9}},ExpressionUUID->"ee451e0a-03c5-5d4b-809d-\ +1baa2036c180"], + +Cell[BoxData["8.839304777809617`*^-55"], "Output", + CellChangeTimes->{3.991327932129387*^9}, + CellLabel-> + "Out[151]=",ExpressionUUID->"6c597397-08ed-6045-9d69-fd291ab08bb7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + 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"]}]], "*", + 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}, + 3.991558013605444*^9},ExpressionUUID->"1b7f9814-f540-ee4f-a97a-\ +82e0c001ccbc"], + +Cell[BoxData["2.0384594858915346`*^-54"], "Output", + CellChangeTimes->{3.991327932138338*^9}, + CellLabel-> + "Out[152]=",ExpressionUUID->"df7fd0ae-abcd-f746-a5e5-204909cac9a1"] +}, 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->"add7dc78-05f0-9740-a4f6-53e576919ef8"], + +Cell[BoxData["27.24865368249903`"], "Output", + CellChangeTimes->{3.9913279321616154`*^9}, + CellLabel-> + "Out[153]=",ExpressionUUID->"3a877309-deb0-5f44-9dfa-c0ac87131362"] +}, 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->"9b673079-5994-e34c-a858-9ada9b775642"], + +Cell[BoxData["37.77192070584817`"], "Output", + CellChangeTimes->{3.9913279321696014`*^9}, + CellLabel-> + "Out[154]=",ExpressionUUID->"22ab525d-794a-7c4d-8f53-b4d75969da27"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[155]:=",ExpressionUUID->"2e19814e-d8e4-0440-a349-54cc93ccdf53"], + +Cell[BoxData["0.718596406513947`"], "Output", + CellChangeTimes->{3.9913279321926613`*^9}, + CellLabel-> + "Out[155]=",ExpressionUUID->"1896ee18-ae10-e644-828f-5f5df642d0f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[156]:=",ExpressionUUID->"538f6b3e-6e49-7749-a73e-74beaffe6942"], + +Cell[BoxData["3.2238916343938024`"], "Output", + CellChangeTimes->{3.991327932200657*^9}, + CellLabel-> + "Out[156]=",ExpressionUUID->"b400a1d2-95af-fb40-b3ff-41d1750a93a6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[157]:=",ExpressionUUID->"0943a4c5-ab88-024e-b598-6ab09308c529"], + +Cell[BoxData["121.77257917856996`"], "Output", + CellChangeTimes->{3.99132793222501*^9}, + CellLabel-> + "Out[157]=",ExpressionUUID->"8ca2cab9-f56c-6b47-8a70-792841a4fe85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[158]:=",ExpressionUUID->"5313d107-d67a-0a42-97ea-bdd5afbb176c"], + +Cell[BoxData["19.58078461858683`"], "Output", + CellChangeTimes->{3.9913279322642612`*^9}, + CellLabel-> + "Out[158]=",ExpressionUUID->"a5943015-372b-c144-b0e4-4a01bb107ed7"] +}, 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->"05311468-f950-6f43-ae68-9cc6502c4986"], + +Cell[BoxData["0.032550594324745`"], "Output", + CellChangeTimes->{3.9913279322906475`*^9}, + CellLabel-> + "Out[159]=",ExpressionUUID->"d0296c8c-1490-7c4a-92bd-55e7f4162d6c"] +}, 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->"55ab7556-231d-f846-b625-6b6079424223"], + +Cell[BoxData["4.91208054446651`"], "Output", + CellChangeTimes->{3.9913279323826447`*^9}, + CellLabel-> + "Out[160]=",ExpressionUUID->"9dd7cddc-5c45-9245-9b72-df722da611af"] +}, 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->"de97f1d4-a997-5d44-ad21-9d29636b6b11"], + +Cell[BoxData["0.012685641417856707`"], "Output", + CellChangeTimes->{3.991327932394655*^9}, + CellLabel-> + "Out[161]=",ExpressionUUID->"495d1ed0-b317-7449-85b9-baf4df7f0d01"] +}, 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->"69bf2733-1c68-0d45-9dcf-32eb09d0774e"], + +Cell[BoxData["7.868441587445692`"], "Output", + CellChangeTimes->{3.991327932491659*^9}, + CellLabel-> + "Out[162]=",ExpressionUUID->"04beffaf-62f7-0b45-9712-c72de536f25b"] +}, 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->"790285fd-a791-004a-beb8-81432d5fe6ed"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991327932509678*^9}, + CellLabel-> + "Out[163]=",ExpressionUUID->"29664369-b402-8f4f-96f8-4e73d4b4ac49"] +}, 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->"8d9d59ff-5258-ed44-b54a-00649424f6ab"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913279325457134`*^9}, + CellLabel-> + "Out[164]=",ExpressionUUID->"983f75a1-f997-be4a-81f5-6dbcd2c0b96b"] +}, 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->"082cc170-e78d-1f4c-ac49-a1fc473fe786"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913279325697117`*^9}, + CellLabel-> + "Out[165]=",ExpressionUUID->"d4d9342c-f66d-924d-84fc-6729720d8960"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"b80089e4-e129-\ +a84d-a279-8559e98c6042"], + +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.991844522599167*^9},ExpressionUUID->"d15c8f9d-5cd8-0448-9115-\ +8fd811f7859e"], + +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->"4061b475-d37f-3641-8b49-887dcca71780"], + +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->"405af2e3-b633-ec4f-a8af-038ad86e22fe"], + +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->"af7f9224-4f54-674b-94d8-a07a9f6c53fd"], + +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->"3d0f87c1-75a2-eb40-96ff-130376937dee"], + +Cell[BoxData["4.912080544466506`"], "Output", + CellChangeTimes->{3.9913279359974174`*^9}, + CellLabel-> + "Out[166]=",ExpressionUUID->"7ce936d7-d120-de47-ab26-d4794a00a858"] +}, 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.991844527271263*^9},ExpressionUUID->"a596efda-1871-9b45-afb4-\ +f85dfdafd26c"], + +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->"7fbc6b76-65ea-934a-b19a-39f44c5b4b90"], + +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->"35ea7ca0-84c8-d147-ab12-3deebbaaa154"], + +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->"b6cc553e-783f-0e4d-92d5-4078be1419c9"], + +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->"f4f151bb-1037-1e45-96b1-aa03e2ec2e08"], + +Cell[BoxData["7.868441587445692`"], "Output", + CellChangeTimes->{3.9913279393385086`*^9}, + CellLabel-> + "Out[167]=",ExpressionUUID->"531f82ba-09ac-9c40-a730-44e0b959edc3"] +}, 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.991844532798546*^9},ExpressionUUID->"98a8fe78-0965-1043-b897-\ +797c175d7e63"], + +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->"711c25c1-ed76-2e4b-84a6-d57a020489df"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.991844539101469*^9, + 3.991844648037607*^9},ExpressionUUID->"9a11a03e-c4c1-5741-ac7d-\ +23e1536f3e79"], + +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->"a638aba8-20a5-a64e-a190-4d33ebd1b8cb"], + +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->"ae7b53dc-f8ec-854b-9226-f16bb757a2e5"], + +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->"eac3fa47-f68a-0843-85a5-2531dd3a1acc"], + +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->"cf422af8-1404-4a4c-bb03-11722827e096"], + +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->"da078250-620d-dc47-9190-f4147c2a22d7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.991844724526314*^9},ExpressionUUID->"f431849e-0899-864c-b9d1-\ +1df0491628db"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.9913294794877434`*^9}, + CellLabel-> + "Out[171]=",ExpressionUUID->"d513da22-514d-5e4b-95c1-28c30db4448a"] +}, 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.9918447267207756`*^9},ExpressionUUID->"650ee12b-eb50-044b-94e9-\ +ce88ff255deb"], + +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->"d1868775-7452-3b40-942a-63d8a590148d"], + +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->"63636793-87e5-c34e-8b32-996c1b2c9165"], + +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->"16e0b7d9-d776-8f46-ad6d-707495a25e9c"], + +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->"2573cc1f-e89e-934a-aa43-79a47df211bd"], + +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->"2c03bcb6-3be4-1844-9ca2-48c18a26626a"] +}, 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->"5c6d0b57-910e-664a-8fd6-40771b36868b"], + +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->"85dcf820-db3d-024c-98b1-83dd2ba7d04c"], + +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->"1f9f96e1-4a57-6049-b6cc-4e4928609a9a"], + +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->"41c8c94b-43e8-be40-bbc3-83ecc5178dd9"], + +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->"12ccc187-b899-d54e-92ad-c3128a04ec4d"], + +Cell[BoxData["9.77956849963325`"], "Output", + CellChangeTimes->{3.991329904262455*^9}, + CellLabel-> + "Out[173]=",ExpressionUUID->"00bb2d18-fd7c-c946-b7e2-ea5f28955604"] +}, 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.991844712341957*^9, + 3.991844718198534*^9}},ExpressionUUID->"b04a104f-3249-a34a-8102-\ +7d9b3c7b796d"], + +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->"5de31c03-28cf-dc48-81c5-7c7746c54276"], + +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->"87ee2218-308b-1c43-8925-324a31500f9d"], + +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->"31bf6478-b1c1-9542-9dec-15ccf89a4566"], + +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->"413f0426-4563-cc47-9e61-5f6f0ab61394"], + +Cell[BoxData["0.1491428555515254`"], "Output", + CellChangeTimes->{3.9913299110465336`*^9}, + CellLabel-> + "Out[174]=",ExpressionUUID->"f8144886-988a-7544-861d-6c87500bf6c5"] +}, 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.9918447603776054`*^9, + 3.991844763418377*^9}},ExpressionUUID->"6b8170ef-e8e1-8b4d-b589-\ +528a0f547fe8"], + +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->"da8f8f97-234b-bc42-936f-0785b24ee446"], + +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->"2e3a9bc1-9d8c-5142-9abf-1720c1836f03"], + +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->"5831990e-e4f4-2b4f-a9c3-44a115dcf032"], + +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->"e1b6cf3c-14e6-964f-8a14-d24948c74c5a"], + +Cell[BoxData["6.5928699937564845`"], "Output", + CellChangeTimes->{3.9913299163114815`*^9}, + CellLabel-> + "Out[175]=",ExpressionUUID->"eefb0037-cb99-2a44-8be0-7ef1ec5adb6b"] +}, 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.991844769790985*^9, + 3.991844773139332*^9}},ExpressionUUID->"984387ef-9fd9-3c47-bc3d-\ +b6f0e8b03e2c"], + +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->"bf747c94-a1b1-5e42-af32-1d43d2dce0cc"], + +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->"e6de31d8-cd61-c14b-9dd6-e01a31d33bd5"], + +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->"330f1117-2847-c64f-987e-1999701c026c"], + +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->"ca8f5a06-fe5d-5246-9421-637b037f4be3"], + +Cell[BoxData["16.916908616104454`"], "Output", + CellChangeTimes->{3.9913299193276234`*^9}, + CellLabel-> + "Out[176]=",ExpressionUUID->"dcde32d3-c138-4f4b-9743-87921cc6c9e7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991844780323551*^9, + 3.9918447845314407`*^9}},ExpressionUUID->"a1d4e2a6-d632-ee42-bf72-\ +0ec0037a6c16"], + +Cell[BoxData["0.01412227604937243`"], "Output", + CellChangeTimes->{3.99132991935894*^9}, + CellLabel-> + "Out[177]=",ExpressionUUID->"d851969f-aae6-ff40-b54a-f81b9a16b06d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991844802080488*^9, 3.991844804321781*^9}, + 3.9919238865933857`*^9},ExpressionUUID->"ab8417e8-4709-e943-87cd-\ +c5b8a0910541"], + +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->"befa51f5-5940-8743-b07a-eb3a8aba653f"], + +Cell[BoxData["8.947947137013426`"], "Output", + CellChangeTimes->{3.9913299193849545`*^9}, + CellLabel-> + "Out[179]=",ExpressionUUID->"d3696bfe-4fa2-f04a-96eb-2ffcb275e098"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[181]:=",ExpressionUUID->"8c248539-c23a-4a42-8e54-3b513c751017"], + +Cell[BoxData["1.2539951617800844`"], "Output", + CellChangeTimes->{3.9913299194207077`*^9}, + CellLabel-> + "Out[181]=",ExpressionUUID->"19996e75-8d0f-2049-b0ab-f705e12070ee"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[184]:=",ExpressionUUID->"293f8673-c8b0-6746-85db-59c8f599b57c"], + +Cell[BoxData["11.220682417678793`"], "Output", + CellChangeTimes->{3.9913299194738407`*^9}, + CellLabel-> + "Out[184]=",ExpressionUUID->"6b23bccd-f31e-9d46-9023-034bd51ad3bb"] +}, 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->"8fe440ff-6433-ee43-8ab0-44131de05652"], + +Cell[BoxData["0.04472011299838893`"], "Output", + CellChangeTimes->{3.991329919501911*^9}, + CellLabel-> + "Out[185]=",ExpressionUUID->"62171c19-5f83-2049-9194-385f2231542c"] +}, 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->"ec04ad19-eb6d-ba4f-929a-62702cc30a12"], + +Cell[BoxData["4.190766798679958`"], "Output", + CellChangeTimes->{3.991329919596855*^9}, + CellLabel-> + "Out[186]=",ExpressionUUID->"deee1bab-ce6f-c047-9ddf-87c9b2a4acea"] +}, 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->"301beffb-a956-b44c-beb2-37fe9711e64e"], + +Cell[BoxData["0.014190600885170185`"], "Output", + CellChangeTimes->{3.9913299196126003`*^9}, + CellLabel-> + "Out[187]=",ExpressionUUID->"73bc7c9d-800c-a442-97e6-20db932568ad"] +}, 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->"603274e8-9f12-ce48-b425-66b0e2e5dd2e"], + +Cell[BoxData["7.439513700547701`"], "Output", + CellChangeTimes->{3.9913299197036095`*^9}, + CellLabel-> + "Out[188]=",ExpressionUUID->"bbde9dcf-faa4-2d4f-b406-f2d0c7495b65"] +}, 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->"26d67789-9b33-7843-a368-14c85da65ff3"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913299197165985`*^9}, + CellLabel-> + "Out[189]=",ExpressionUUID->"2f8aa250-eefc-864d-99db-2d5482d1949c"] +}, 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->"a37295b9-9f23-ed46-af76-8081da173c8b"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991329919739599*^9}, + CellLabel-> + "Out[190]=",ExpressionUUID->"0b037e26-4d38-4e42-a978-3ca735d36a45"] +}, 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->"8cb2872a-60dc-2845-b059-08954f0afeb4"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913299197646008`*^9}, + CellLabel-> + "Out[191]=",ExpressionUUID->"706324b4-7c0c-914f-bb1a-cf2595e95f52"] +}, 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.991844883530533*^9},ExpressionUUID->"003a047b-90eb-3149-b4f8-\ +a296c2b2cdcd"], + +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->"b352bd85-52e4-bc41-b324-534f96ccf0e6"], + +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->"86af3939-d1d7-d647-b19c-39e3436e5502"], + +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->"d19a6c38-6670-b646-b496-e1d520cf6398"], + +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->"0a65d080-4626-264a-957d-e0dedd3bbc33"], + +Cell[BoxData["4.190766798679958`"], "Output", + CellChangeTimes->{3.991329923627493*^9}, + CellLabel-> + "Out[192]=",ExpressionUUID->"24ab5ee4-c131-f84c-b2e4-0200f87c8b2d"] +}, 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.991844898486679*^9},ExpressionUUID->"17f0d32c-a57d-2a45-81f1-\ +ef75e11de8a0"], + +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->"bd7deec6-2c8e-3746-920e-2051f2f357c4"], + +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->"38bcde0f-fd6a-1240-9c86-1d4b53e7d01b"], + +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->"abf7d101-d355-3b49-ab40-00c114c9b9da"], + +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->"9dcaae4f-6c03-c04b-a023-85d91df5e7c7"], + +Cell[BoxData["7.439513700547696`"], "Output", + CellChangeTimes->{3.9913299274564743`*^9}, + CellLabel-> + "Out[193]=",ExpressionUUID->"ccb5155b-66b6-0547-a5f2-a08c72158762"] +}, 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.9918449035840626`*^9},ExpressionUUID->"fcd15b99-cf8b-0648-a673-\ +70cdac1f227f"], + +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->"637e3f8e-a1de-d24b-8d0a-9daaf526b8f9"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991844910383686*^9, {3.9918455278812733`*^9, + 3.9918455284898663`*^9}},ExpressionUUID->"76321b6a-1af8-9c49-b2f7-\ +d5c92a8c63b6"], + +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->"795a4e03-9348-bc44-bc59-9c81576134fb"], + +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->"7ea7e400-7b44-4743-aaa2-4d6d1b08b804"], + +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->"8c3efc69-51e4-0349-9387-81018769ac2c"], + +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->"d01f1fa2-329b-d248-8b6a-32256534f54c"], + +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->"490311aa-bd00-914a-9f58-947467dd9297"] +}, 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[199]:=",ExpressionUUID->"37173e44-18b6-f345-bdbf-3935ac3d85ba"], + +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->"535ab9af-e2f0-944f-9023-d0d7fa4c31e5"], + +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->"763653e6-d2c5-2c4b-b148-2d601b18999e"], + +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->"6712547a-cfd4-1747-b710-24dcd8b85594"], + +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->"44853999-274b-4a4d-befb-0519af052f8e"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.991331759108553*^9}, + CellLabel-> + "Out[199]=",ExpressionUUID->"d265ec31-c37b-b34b-9f4e-2a798572ba0d"] +}, 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.991844980123823*^9, + 3.991844984423441*^9}},ExpressionUUID->"c4a8a8b0-0b31-ac4c-a7ce-\ +152da20b42d7"], + +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->"0a0b8acc-d88c-f541-9f43-3ad7f8ff671a"], + +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->"dbdc2977-d53e-404d-b6e6-a598c19760d4"], + +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->"c66123d8-b0b6-0144-99d0-8ca0ecfb4093"], + +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->"36aff51b-c5d2-5d4f-878f-fb1430bbf46d"], + +Cell[BoxData["1.044718879268698`"], "Output", + CellChangeTimes->{3.991331766558941*^9}, + CellLabel-> + "Out[200]=",ExpressionUUID->"330b8bea-4179-8348-95aa-c6fba51d26c2"] +}, 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.9918449914836025`*^9, + 3.991844997178608*^9}},ExpressionUUID->"3975f6bc-b8e0-0049-badb-\ +74a4e7126d8f"], + +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->"fa38804d-d1cb-1447-8203-2445dfa4fcda"], + +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->"21e377cd-5f17-ee4d-9c79-89037091bc25"], + +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->"73743e57-e60a-4847-8af4-f6d159a2fc37"], + +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->"b407e7dc-c0ec-4843-b3e5-381bd4c692b7"], + +Cell[BoxData["4.7987767072565894`"], "Output", + CellChangeTimes->{3.991331773590704*^9}, + CellLabel-> + "Out[201]=",ExpressionUUID->"070c193e-9eba-f642-847f-cac8b588492e"] +}, 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.991845005870302*^9, + 3.991845010049778*^9}},ExpressionUUID->"f4f95d15-5683-9549-85ce-\ +3970c364fc34"], + +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->"eb423938-ff5a-344a-969c-b7d904599c4b"], + +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->"b4b8c5b2-00a6-ec4c-8b4f-a4d9bd1e8c35"], + +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->"72ea416d-dd3f-7941-b395-c37fefc1b337"], + +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->"e78b7c76-2ded-8940-b41a-b392437045c0"], + +Cell[BoxData["15.12281532960454`"], "Output", + CellChangeTimes->{3.991331777337887*^9}, + CellLabel-> + "Out[202]=",ExpressionUUID->"a780e023-1794-804c-8339-bc10a750b9f0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918450170370293`*^9, + 3.9918450213597164`*^9}},ExpressionUUID->"16838e8f-dc9a-d74c-8675-\ +3a4476217af6"], + +Cell[BoxData["0.12263596348954131`"], "Output", + CellChangeTimes->{3.9913317773679104`*^9}, + CellLabel-> + "Out[203]=",ExpressionUUID->"15b51804-0720-9c4e-b20b-e353de084a0e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918450249714966`*^9, 3.9918450285250053`*^9}, + 3.991923905136156*^9},ExpressionUUID->"5671b6c5-96eb-9840-bb09-\ +6698022336a6"], + +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->"4d014000-6f17-9a45-b3a6-a3a0cf36c628"], + +Cell[BoxData["12.368532070745184`"], "Output", + CellChangeTimes->{3.9913317774008274`*^9}, + CellLabel-> + "Out[205]=",ExpressionUUID->"934b3a30-897a-9e41-85e9-504d7ee2ff62"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[207]:=",ExpressionUUID->"fe5bd3c5-5fb8-684b-9227-f90b633f4a5d"], + +Cell[BoxData["1.0665924029125342`"], "Output", + CellChangeTimes->{3.9913317774358253`*^9}, + CellLabel-> + "Out[207]=",ExpressionUUID->"2fbbe691-91db-6640-99ed-fb726285d981"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[210]:=",ExpressionUUID->"fcb96232-efe5-6c4a-80fc-3e0409b7c756"], + +Cell[BoxData["13.192182341836848`"], "Output", + CellChangeTimes->{3.991331777510603*^9}, + CellLabel-> + "Out[210]=",ExpressionUUID->"12ec0e81-c346-2f44-a188-d2441d58a6ee"] +}, 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->"826a4822-fe82-2545-859e-1dcc0d2c7665"], + +Cell[BoxData["0.041096786108657246`"], "Output", + CellChangeTimes->{3.991331777537592*^9}, + CellLabel-> + "Out[211]=",ExpressionUUID->"8ec31e5d-c440-8b41-a98c-226b6d9ffc36"] +}, 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->"8e8ef1c8-b957-7e47-8bd7-349d078e5615"], + +Cell[BoxData["4.371605972693579`"], "Output", + CellChangeTimes->{3.9913317776362495`*^9}, + CellLabel-> + "Out[212]=",ExpressionUUID->"bcb4b779-10f1-9041-9a4c-3cdec2a68741"] +}, 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->"ef7ab6c6-a465-144e-9b2e-d87983d89cc3"], + +Cell[BoxData["0.013804398425195999`"], "Output", + CellChangeTimes->{3.9913317776511555`*^9}, + CellLabel-> + "Out[213]=",ExpressionUUID->"1bb933d6-f02a-2d47-939d-352095da19e4"] +}, 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->"005cbf5d-7cfe-0a47-85df-3f41c0cd74cc"], + +Cell[BoxData["7.5428626210616345`"], "Output", + CellChangeTimes->{3.991331777742655*^9}, + CellLabel-> + "Out[214]=",ExpressionUUID->"417f7831-47f1-634e-b3b3-4519fff106b6"] +}, 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->"11446a18-6985-d84f-b09e-6be9463bee70"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913317777546787`*^9}, + CellLabel-> + "Out[215]=",ExpressionUUID->"2a38d751-aa08-544a-bed2-19499b9d4e28"] +}, 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->"cf191722-8995-064e-a60c-6ab12800222b"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991331777779663*^9}, + CellLabel-> + "Out[216]=",ExpressionUUID->"46c519d5-59d4-f441-bd4f-aa5b2f67d025"] +}, 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->"146e47d3-0f15-fc4b-b22a-e41827d0b353"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913317778036633`*^9}, + CellLabel-> + "Out[217]=",ExpressionUUID->"92f70f88-e69c-1542-bc35-e0a4a79c0778"] +}, 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.991845055619808*^9},ExpressionUUID->"b1b29f9b-c1d5-3048-84ff-\ +9fde8e93d227"], + +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->"f7ec4848-a774-4241-8252-c4a345b7b537"], + +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->"b1cc9ffb-8539-884b-83ac-f80545b77446"], + +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->"0d692fe8-00d8-2648-b9dc-a50ab2117d15"], + +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->"f1156f88-ad59-a64f-9387-30a62e4910c3"], + +Cell[BoxData["4.37160597269358`"], "Output", + CellChangeTimes->{3.991331781456501*^9}, + CellLabel-> + "Out[218]=",ExpressionUUID->"b12401fc-f91d-dc4c-aefa-dbdb0f0fee52"] +}, 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.991845062111332*^9},ExpressionUUID->"7833995d-3f7b-3a4e-944a-\ +db222bb16395"], + +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->"7db9f46f-8a38-cb4a-a687-c722730b8b16"], + +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->"6430db22-9f1b-7245-9227-60a3d496b498"], + +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->"6f0f625d-6657-4c45-9368-10b8293fb84f"], + +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->"7da75495-a67b-ae4b-9f38-dff9e5fd170b"], + +Cell[BoxData["7.54286262106163`"], "Output", + CellChangeTimes->{3.9913317851500416`*^9}, + CellLabel-> + "Out[219]=",ExpressionUUID->"9c2483c6-51ba-7e4c-a701-0fa72c2d8ca1"] +}, 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.991845068201048*^9},ExpressionUUID->"cfa7b206-7d8f-ba43-acf6-\ +c3e910046666"], + +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->"f9c851f7-b559-7d4a-b035-4845c67e3a3f"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918450725877113`*^9, {3.991845494880064*^9, + 3.9918454954591675`*^9}},ExpressionUUID->"485e4bed-973b-f94f-bcff-\ +d7674e9a7110"], + +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->"f059ab7e-e874-8240-9bfe-d7e368a299f7"], + +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->"dbe978bc-9547-1a48-b457-4a5508183e55"], + +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->"16d105d4-645d-f34c-ab78-1cc2dd85030b"], + +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->"b2ac087e-12b1-2c45-a87d-09319151e16f"], + +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->"84d25c2a-3d95-8a4f-b44b-f3bad52460c9"] +}, 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[225]:=",ExpressionUUID->"9cb62145-2ada-bc41-956f-2b9918d80413"], + +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->"16aadf7c-39a3-2342-980f-bebe21018618"], + +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->"4a6270d2-2cff-8a43-a054-69c4140f594b"], + +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->"e3a9765f-2bfe-b14b-8d69-4a2bea7b9156"], + +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->"8da14ef6-3ff7-6944-bb4c-973d9ac0bba0"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.9913335200445786`*^9}, + CellLabel-> + "Out[225]=",ExpressionUUID->"57bdb082-bd1f-6545-af52-ae718626e470"] +}, 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.991845086901308*^9, + 3.991845092064165*^9}},ExpressionUUID->"3b8ec59c-bf90-a74e-8e19-\ +98c05b1b569e"], + +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->"b257d5c2-9dc7-f54b-9734-676d18632a27"], + +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->"0d2bee34-8477-ff4a-a5f9-f9e477d2d683"], + +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->"ba8b5fcf-743f-8242-99fd-e814e715c59e"], + +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->"a4214718-9750-e246-9ae7-4b24f55652c1"], + +Cell[BoxData["0.7348275136088338`"], "Output", + CellChangeTimes->{3.9913335271231823`*^9}, + CellLabel-> + "Out[226]=",ExpressionUUID->"0b0263fd-52eb-7a4b-97ef-be9fc1b0ecc8"] +}, 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.991845095514675*^9, + 3.991845099002287*^9}},ExpressionUUID->"ca9a5900-6241-e942-8e6f-\ +ccee4f3ad231"], + +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->"fc86abcb-555b-294f-9929-a479af0ae8f6"], + +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->"186009b3-7587-f94a-abe7-c098dc60f14f"], + +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->"90efeff9-ba63-084d-8f62-cd826b88eb74"], + +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->"971bb95b-6c51-1147-a610-18d7656c3629"], + +Cell[BoxData["5.221864211842707`"], "Output", + CellChangeTimes->{3.9913335331581306`*^9}, + CellLabel-> + "Out[227]=",ExpressionUUID->"ae353e01-df4e-154e-bbd2-0444671a0f3e"] +}, 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.991845103890877*^9, + 3.9918451079172287`*^9}},ExpressionUUID->"4b76f315-df8b-2e44-9766-\ +11e105bf7f03"], + +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->"ed610062-32b2-4747-9cf7-cdf5861e3759"], + +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->"48806774-48ab-a543-9a1c-8bd0048d2f4a"], + +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->"39ea2316-8e1d-fb46-b839-5fdc5c4b72de"], + +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->"9b3c6b11-fc56-8c45-8c8c-7dc51bc571a1"], + +Cell[BoxData["15.545902834190647`"], "Output", + CellChangeTimes->{3.9913335366055527`*^9}, + CellLabel-> + "Out[228]=",ExpressionUUID->"50f5cefa-b666-c54b-92c2-5f98a1396137"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918451116798954`*^9, + 3.991845116011841*^9}},ExpressionUUID->"c61261a4-9291-8d4e-84ee-\ +07cf74de18fa"], + +Cell[BoxData["0.08155763943441016`"], "Output", + CellChangeTimes->{3.9913335366395893`*^9}, + CellLabel-> + "Out[229]=",ExpressionUUID->"449de59f-e30f-3641-b8d5-c2f2f70e6df1"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>1. Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"477cbae2-68b6-a84d-b5e5-8fac157f8e8b" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 250, 5, 28, "Input",ExpressionUUID->"5c53cc3f-a847-ea43-919e-ec3fddab5018"], +Cell[829, 29, 170, 2, 32, "Output",ExpressionUUID->"a22a8bf1-3cda-c445-9b1e-c959986cb881"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1036, 36, 326, 5, 28, "Input",ExpressionUUID->"b007e25b-46cd-e741-b8ee-6dec373d2814"], +Cell[1365, 43, 255, 4, 32, "Output",ExpressionUUID->"243492c9-bad7-534e-8c7d-2698a36e9928"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1657, 52, 252, 5, 28, "Input",ExpressionUUID->"509c4d57-ba2a-4344-b148-c08c7290301f"], +Cell[1912, 59, 252, 4, 32, "Output",ExpressionUUID->"0b34954d-a044-3a4d-98a8-fa583c1df7b8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2201, 68, 175, 3, 28, "Input",ExpressionUUID->"784ef5b9-be2d-7e42-975e-274b5b3f4edb"], +Cell[2379, 73, 225, 3, 32, "Output",ExpressionUUID->"d498484c-e641-b847-b98c-b972ecaebafe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2641, 81, 257, 7, 44, "Input",ExpressionUUID->"68853928-aac9-a142-9042-54ccdc1d1625"], +Cell[2901, 90, 243, 3, 32, "Output",ExpressionUUID->"af0a8034-6a55-134b-a088-cb12eafc619c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3181, 98, 131, 2, 28, "Input",ExpressionUUID->"1065e8fc-9793-2d47-998d-680ae47defc7"], +Cell[3315, 102, 229, 3, 32, "Output",ExpressionUUID->"f25b7cfb-c492-9844-be97-cfb9a987e1ad"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3581, 110, 276, 6, 28, "Input",ExpressionUUID->"459bcdad-4d48-8145-b2b7-57e30673f7c0"], +Cell[3860, 118, 241, 3, 32, "Output",ExpressionUUID->"b9368322-f18b-674c-8d8d-38b90a8e226f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4138, 126, 257, 7, 28, "Input",ExpressionUUID->"6b6f70ae-7ecd-4d4a-a343-f7557ce4590c"], +Cell[4398, 135, 240, 3, 32, "Output",ExpressionUUID->"05b5e0c2-9763-574b-8358-4b5484139955"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4675, 143, 236, 4, 28, "Input",ExpressionUUID->"c2902661-ab59-3b46-a9ed-c36f08b8fc0a"], +Cell[4914, 149, 260, 3, 32, "Output",ExpressionUUID->"58c8e257-10d7-384b-ae7c-31172731c153"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5211, 157, 238, 4, 28, "Input",ExpressionUUID->"82048c87-87e2-f444-a83a-2e57b3de4982"], +Cell[5452, 163, 262, 3, 32, "Output",ExpressionUUID->"b70ca051-da87-3b47-8946-d6b4c6534cff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5751, 171, 129, 2, 28, "Input",ExpressionUUID->"762dff8f-cdb4-714d-ad5b-d20ed3032585"], +Cell[5883, 175, 224, 3, 32, "Output",ExpressionUUID->"56d2b6c2-cab3-0b4e-a719-fdba0d6c8a20"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6144, 183, 129, 2, 28, "Input",ExpressionUUID->"4aed484f-9e5f-604e-8992-e993e93175a7"], +Cell[6276, 187, 221, 3, 32, "Output",ExpressionUUID->"da41569c-082b-d543-9c04-75e21834951f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6534, 195, 557, 19, 81, "Input",ExpressionUUID->"860b316b-ede1-8647-87c5-5e0698c00fb4"], +Cell[7094, 216, 216, 3, 32, "Output",ExpressionUUID->"474c4a3a-2d86-5145-9f31-363ced03473c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7347, 224, 557, 19, 81, "Input",ExpressionUUID->"18dfe53d-9a6a-d645-9fb4-4e3cc9901a6d"], +Cell[7907, 245, 220, 3, 32, "Output",ExpressionUUID->"321cd7dd-8689-0c45-9690-b9da8802e3b3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8164, 253, 1492, 48, 81, "Input",ExpressionUUID->"1c694041-1aea-c447-a95e-17a1533d6e51"], +Cell[9659, 303, 214, 3, 32, "Output",ExpressionUUID->"45ef1d4d-b6e1-2345-92e5-7728828c31a9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9910, 311, 1331, 44, 81, "Input",ExpressionUUID->"5475d114-6261-d541-aafa-fdb9659d4864"], +Cell[11244, 357, 234, 4, 32, "Output",ExpressionUUID->"3bbd7dc8-2e78-cb45-91e3-93dea055aa1c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[11515, 366, 1331, 44, 81, "Input",ExpressionUUID->"2944f218-5705-f14c-a576-85530fdd99aa"], +Cell[12849, 412, 238, 4, 32, "Output",ExpressionUUID->"add091b2-5ef6-5540-ab74-c5f80e3d1b26"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13124, 421, 1492, 48, 81, "Input",ExpressionUUID->"0c144073-694f-ae47-a3f3-72d089237d4a"], +Cell[14619, 471, 214, 3, 32, "Output",ExpressionUUID->"f344ec62-3349-0d45-91f2-ff976ed17793"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14870, 479, 131, 2, 28, "Input",ExpressionUUID->"b7f5b3af-06ff-b84e-a700-f92ff0ab4d8e"], +Cell[15004, 483, 200, 3, 32, "Output",ExpressionUUID->"882e2fb2-e0d3-b545-9a44-38911a84dbd2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15241, 491, 177, 3, 28, "Input",ExpressionUUID->"ad317da0-0cdb-034e-a907-b1e8898396b7"], +Cell[15421, 496, 199, 3, 32, "Output",ExpressionUUID->"61aaf5b5-aeae-c941-913b-21d20bb582ab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15657, 504, 134, 2, 28, "Input",ExpressionUUID->"fb4f857d-577f-2f40-b995-2cc678cd4ae8"], +Cell[15794, 508, 204, 3, 32, "Output",ExpressionUUID->"f6b464e3-1924-4c47-a269-5546ba3d48c2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16035, 516, 219, 4, 28, "Input",ExpressionUUID->"7f4a7a4b-1a46-6d40-a942-00c5572afffd"], +Cell[16257, 522, 215, 4, 32, "Output",ExpressionUUID->"bd97475e-f7bd-1840-aaba-05594b6030ca"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16509, 531, 134, 2, 28, "Input",ExpressionUUID->"6d1c657f-0e6a-7d43-9908-84d4b4d63437"], +Cell[16646, 535, 204, 3, 32, "Output",ExpressionUUID->"3dda69d7-e339-bd45-a083-da45605fd97a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16887, 543, 302, 5, 28, "Input",ExpressionUUID->"94e086b8-8e9f-1b4b-b1c2-f611d5276e63"], +Cell[17192, 550, 150, 2, 32, "Output",ExpressionUUID->"bbbb9326-94f5-254d-aa6e-ef72d42647c9"] +}, Open ]], +Cell[17357, 555, 173, 2, 28, "Input",ExpressionUUID->"b2a3cffd-4228-0043-ae98-29fae1123c03"], +Cell[CellGroupData[{ +Cell[17555, 561, 271, 5, 28, "Input",ExpressionUUID->"66c624dc-f115-1547-a427-6a7c919ee29d"], +Cell[17829, 568, 198, 3, 32, "Output",ExpressionUUID->"c0f890ca-f394-0d43-9d63-84093b55fbc8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18064, 576, 219, 4, 28, "Input",ExpressionUUID->"25b5c07a-8750-ae4b-8df7-0d6fef46eca8"], +Cell[18286, 582, 202, 3, 32, "Output",ExpressionUUID->"64fb51c0-75ed-ea4b-9b29-410a3424a7ee"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18525, 590, 350, 10, 44, "Input",ExpressionUUID->"e17fd0de-a1d1-4c40-bead-6671f0ba0de7"], +Cell[18878, 602, 221, 3, 32, "Output",ExpressionUUID->"3e68d367-8cd3-6f42-9e7d-8305efca0cde"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19136, 610, 350, 10, 44, "Input",ExpressionUUID->"40a6ddb6-55b9-7d4d-8068-0878eb7adc95"], +Cell[19489, 622, 234, 4, 32, "Output",ExpressionUUID->"0c2b3665-7040-4f4f-b2ed-ce6945409112"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19760, 631, 992, 26, 115, "Input",ExpressionUUID->"7e5517f2-ecf2-1547-941b-cf99ab1cfc0b"], +Cell[20755, 659, 215, 3, 32, "Output",ExpressionUUID->"878ab69e-4349-714f-ae25-bcf53f497d95"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21007, 667, 199, 3, 28, "Input",ExpressionUUID->"d697b8dc-157a-e441-b9ac-7bbd39bee453"], +Cell[21209, 672, 202, 3, 32, "Output",ExpressionUUID->"7206fe0c-a2c5-144e-be6b-faa7864024f0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21448, 680, 275, 4, 28, "Input",ExpressionUUID->"69c107a3-b273-d44e-9677-044cdd4d6d11"], +Cell[21726, 686, 156, 2, 32, "Output",ExpressionUUID->"a94e6c48-b696-6942-bbc1-00618b232152"] +}, Open ]], +Cell[21897, 691, 175, 2, 28, "Input",ExpressionUUID->"34a59133-6f43-ba40-9f73-33ca3249914e"], +Cell[CellGroupData[{ +Cell[22097, 697, 325, 5, 28, "Input",ExpressionUUID->"e62b4b0b-68d5-e046-8822-d18d6800a28d"], +Cell[22425, 704, 156, 2, 32, "Output",ExpressionUUID->"ff067781-76a8-df46-b528-6df6d1efdb9d"] +}, Open ]], +Cell[22596, 709, 173, 2, 28, "Input",ExpressionUUID->"41a9f77f-5b19-754f-81f2-3b152d6657be"], +Cell[CellGroupData[{ +Cell[22794, 715, 324, 5, 28, "Input",ExpressionUUID->"87eebcf6-52d6-6344-83c2-708fbac47c12"], +Cell[23121, 722, 156, 2, 32, "Output",ExpressionUUID->"a8390bb4-be1d-a240-80b1-5ae672bc7e13"] +}, Open ]], +Cell[23292, 727, 175, 2, 28, "Input",ExpressionUUID->"f21b366b-5999-ed40-b319-000f72623e25"], +Cell[CellGroupData[{ +Cell[23492, 733, 349, 6, 47, "Input",ExpressionUUID->"ce5a0695-496f-b947-9c6f-6d21f680dee2"], +Cell[23844, 741, 156, 2, 32, "Output",ExpressionUUID->"1957fcaa-b50d-8c4a-bfa6-2e1800df928a"] +}, Open ]], +Cell[24015, 746, 175, 2, 28, "Input",ExpressionUUID->"37607808-f051-fd4f-a3b6-cef0d84be1a5"], +Cell[CellGroupData[{ +Cell[24215, 752, 294, 5, 47, "Input",ExpressionUUID->"3d3d0219-b32c-8149-9ca5-9b6e81fb6eb1"], +Cell[24512, 759, 154, 2, 32, "Output",ExpressionUUID->"26bdae68-fadb-544d-88ef-ce9b7d8b5a6b"] +}, Open ]], +Cell[24681, 764, 173, 2, 28, "Input",ExpressionUUID->"1f544a7a-cb21-e041-b58d-3c9a5ab9e6f7"], +Cell[CellGroupData[{ +Cell[24879, 770, 294, 5, 47, "Input",ExpressionUUID->"80d3bfb3-e9fd-294d-890b-8a9f88a0780d"], +Cell[25176, 777, 156, 2, 32, "Output",ExpressionUUID->"ed273f02-b4bc-054f-8f57-4da6deadc00a"] +}, Open ]], +Cell[25347, 782, 171, 2, 28, "Input",ExpressionUUID->"c77970e5-fc9e-2041-963b-719ba9c2edf6"], +Cell[CellGroupData[{ +Cell[25543, 788, 322, 6, 47, "Input",ExpressionUUID->"f9abd0ca-5558-5b47-9d3b-cf23b9e6e838"], +Cell[25868, 796, 154, 2, 32, "Output",ExpressionUUID->"0122cb3a-26ae-374e-9b00-3ec4a79b8521"] +}, Open ]], +Cell[26037, 801, 175, 2, 28, "Input",ExpressionUUID->"b87740a0-1917-3f49-bb29-7852d7858c55"], +Cell[CellGroupData[{ +Cell[26237, 807, 268, 5, 47, "Input",ExpressionUUID->"52d1f7d9-beee-cc45-99f5-641da626d30a"], +Cell[26508, 814, 155, 2, 32, "Output",ExpressionUUID->"38bb4dc8-9669-614c-ab97-9b5cdde1aa49"] +}, Open ]], +Cell[26678, 819, 171, 2, 28, "Input",ExpressionUUID->"358c583d-74ba-ad4d-a8d4-e3982b3aead3"], +Cell[CellGroupData[{ +Cell[26874, 825, 19809, 485, 1941, "Input",ExpressionUUID->"5cbc0f1b-0140-ac46-a39b-743d4e8e4464"], +Cell[46686, 1312, 215, 3, 32, "Output",ExpressionUUID->"b1b061e4-c503-b74a-9b67-ab2ddc7d8ad4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[46938, 1320, 19748, 489, 1974, "Input",ExpressionUUID->"36718181-4bb0-af43-ad07-d7fb6f5b28ac"], +Cell[66689, 1811, 219, 3, 32, "Output",ExpressionUUID->"e0ae2fab-351f-1a4a-a0d3-a70acce34e2b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[66945, 1819, 19748, 483, 1965, "Input",ExpressionUUID->"8b052be9-f277-6f41-822a-d12cf3b4ae0b"], +Cell[86696, 2304, 232, 4, 32, "Output",ExpressionUUID->"3e84c61f-9371-1c49-89d2-c793c44fc990"] +}, Open ]], +Cell[CellGroupData[{ +Cell[86965, 2313, 22534, 553, 2208, "Input",ExpressionUUID->"76d57e29-78be-fa43-8dc9-7e99a65e25e8"], +Cell[109502, 2868, 231, 4, 32, "Output",ExpressionUUID->"7de14c2d-842c-7447-abdf-85840b657816"] +}, Open ]], +Cell[CellGroupData[{ +Cell[109770, 2877, 22535, 553, 2216, "Input",ExpressionUUID->"f3ba3405-7fff-8644-b0ed-6091958d0625"], +Cell[132308, 3432, 234, 4, 32, "Output",ExpressionUUID->"70a7767b-2a75-a648-8125-ca8c5607879c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[132579, 3441, 25491, 626, 2480, "Input",ExpressionUUID->"7d3c635a-29fa-ef4f-a3cb-a6d31a6c1afc"], +Cell[158073, 4069, 234, 4, 32, "Output",ExpressionUUID->"9842d45a-c67c-7744-876c-51aae670a6e8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[158344, 4078, 130, 2, 28, "Input",ExpressionUUID->"f0dc6b05-95b4-3c4e-8218-6f24e1e9074f"], +Cell[158477, 4082, 200, 3, 32, "Output",ExpressionUUID->"bc13d31c-f4e8-0842-b5d8-816ee7caf70f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[158714, 4090, 130, 2, 28, "Input",ExpressionUUID->"de5aa1cd-73a2-a74d-a88a-8bd9b6d56a2d"], +Cell[158847, 4094, 200, 3, 32, "Output",ExpressionUUID->"8faea0c4-d667-394f-9443-06971bbb2bc4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[159084, 4102, 1144, 39, 57, "Input",ExpressionUUID->"771525b1-a3b0-9c42-a2ce-f358dbc46ecd"], +Cell[160231, 4143, 218, 3, 32, "Output",ExpressionUUID->"d1a1d5e2-73e4-4345-8ea0-82236a4bb0f8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[160486, 4151, 1041, 35, 57, "Input",ExpressionUUID->"6f87b1b6-ba0f-ec48-a3ee-b41b8cb0c982"], +Cell[161530, 4188, 232, 4, 32, "Output",ExpressionUUID->"f931bd6c-d3d2-a244-ace8-9df245ee414e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[161799, 4197, 1144, 39, 57, "Input",ExpressionUUID->"5db04c62-bc8e-2344-b319-eb24f68c5d2f"], +Cell[162946, 4238, 220, 3, 32, "Output",ExpressionUUID->"5f8225aa-3a5c-8245-853b-f9fabc044e3e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[163203, 4246, 108, 1, 28, "Input",ExpressionUUID->"e331a59e-8aa4-a54a-b717-a70abe3da5db"], +Cell[163314, 4249, 216, 3, 32, "Output",ExpressionUUID->"33ce5ac0-f8bc-7249-ac4b-7487487d1234"] +}, Open ]], +Cell[CellGroupData[{ +Cell[163567, 4257, 108, 1, 28, "Input",ExpressionUUID->"f2472c70-bdea-4c4d-b3ee-b106a5633869"], +Cell[163678, 4260, 234, 4, 32, "Output",ExpressionUUID->"a9800f4f-93be-c84e-9bd7-20bd7f321f52"] +}, Open ]], +Cell[CellGroupData[{ +Cell[163949, 4269, 108, 1, 28, "Input",ExpressionUUID->"d6b8982b-3b83-b34d-95b6-0ae72e2558c1"], +Cell[164060, 4272, 233, 4, 32, "Output",ExpressionUUID->"b2a1c0b7-f419-9f4e-8ed2-bb066a345034"] +}, Open ]], +Cell[CellGroupData[{ +Cell[164330, 4281, 108, 1, 28, "Input",ExpressionUUID->"9171cbc5-844d-aa41-bc6f-585cbd0fc983"], +Cell[164441, 4284, 216, 3, 32, "Output",ExpressionUUID->"06a130ef-2bb7-fd47-ad35-f7c625dc59af"] +}, Open ]], +Cell[CellGroupData[{ +Cell[164694, 4292, 107, 1, 28, "Input",ExpressionUUID->"e1cc69dd-a728-0040-b179-8741ffc6e337"], +Cell[164804, 4295, 216, 3, 32, "Output",ExpressionUUID->"8ce6de8f-0621-2445-ac1b-90e1ce984a4c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[165057, 4303, 107, 1, 28, "Input",ExpressionUUID->"020afb9f-18cc-7547-b2c4-fca2b231124a"], +Cell[165167, 4306, 218, 3, 32, "Output",ExpressionUUID->"c442dcd5-de84-1c48-89ad-9feeb6a4447b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[165422, 4314, 497, 16, 57, "Input",ExpressionUUID->"25c058e7-229a-854d-95de-648f136126f0"], +Cell[165922, 4332, 232, 4, 32, "Output",ExpressionUUID->"ef0a464a-9d5a-c741-8e33-2ef9f825e4f7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166191, 4341, 497, 16, 57, "Input",ExpressionUUID->"0406f2f8-cf77-404d-a18b-b4c925e94fcb"], +Cell[166691, 4359, 233, 4, 32, "Output",ExpressionUUID->"762dc66a-a81b-3b44-b43f-0adfa74e17fe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166961, 4368, 1788, 60, 136, "Input",ExpressionUUID->"06a776a6-047d-694d-818c-670507d1b937"], +Cell[168752, 4430, 218, 3, 32, "Output",ExpressionUUID->"5df1b96c-a6f7-9443-a782-7613aa8c14d4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169007, 4438, 1101, 36, 133, "Input",ExpressionUUID->"12de86d7-0916-a646-a5a3-8d8fd6963183"], +Cell[170111, 4476, 232, 4, 32, "Output",ExpressionUUID->"b433989d-bd5f-4b48-8655-3e25fc9e410c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170380, 4485, 1818, 61, 165, "Input",ExpressionUUID->"fe7f0c13-fd68-f644-a05d-3f27f137b7f4"], +Cell[172201, 4548, 214, 3, 32, "Output",ExpressionUUID->"594d7da0-b3ab-e844-a4d0-9731cb9eb29e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172452, 4556, 2499, 77, 133, "Input",ExpressionUUID->"ec8a2220-5a33-df40-8181-5d2b73d984d2"], +Cell[174954, 4635, 218, 3, 32, "Output",ExpressionUUID->"3254af7b-f0a1-7a4b-af5c-901855138812"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175209, 4643, 2499, 77, 133, "Input",ExpressionUUID->"2dc5f240-3f4c-4d49-99ac-2f098fd9bca9"], +Cell[177711, 4722, 215, 3, 32, "Output",ExpressionUUID->"763a317e-a8e8-2642-b522-0e492052cc6c"] +}, Open ]], +Cell[177941, 4728, 187, 3, 28, "Input",ExpressionUUID->"8b10a187-c7b7-0f44-8f32-75ec5ae33e70"], +Cell[178131, 4733, 152, 3, 28, "Input",ExpressionUUID->"d7190627-18d6-a94b-880e-e3f073ed75cd"], +Cell[178286, 4738, 190, 4, 28, "Input",ExpressionUUID->"ff3a0633-5725-474e-a1df-0fae08da0391"], +Cell[178479, 4744, 154, 3, 28, "Input",ExpressionUUID->"c4cb48f6-8bef-5140-97cb-74fc477176c0"], +Cell[CellGroupData[{ +Cell[178658, 4751, 1301, 43, 113, "Input",ExpressionUUID->"1479e503-99dc-8043-a7ed-41f4ebd401a5"], +Cell[179962, 4796, 178, 3, 32, "Output",ExpressionUUID->"56570731-d969-eb41-878a-b8b4e7feda04"] +}, Open ]], +Cell[CellGroupData[{ +Cell[180177, 4804, 911, 30, 56, "Input",ExpressionUUID->"ee451e0a-03c5-5d4b-809d-1baa2036c180"], +Cell[181091, 4836, 175, 3, 32, "Output",ExpressionUUID->"6c597397-08ed-6045-9d69-fd291ab08bb7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181303, 4844, 961, 32, 56, "Input",ExpressionUUID->"1b7f9814-f540-ee4f-a97a-82e0c001ccbc"], +Cell[182267, 4878, 176, 3, 32, "Output",ExpressionUUID->"df7fd0ae-abcd-f746-a5e5-204909cac9a1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[182480, 4886, 558, 19, 52, "Input",ExpressionUUID->"add7dc78-05f0-9740-a4f6-53e576919ef8"], +Cell[183041, 4907, 172, 3, 32, "Output",ExpressionUUID->"3a877309-deb0-5f44-9dfa-c0ac87131362"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183250, 4915, 623, 21, 52, "Input",ExpressionUUID->"9b673079-5994-e34c-a858-9ada9b775642"], +Cell[183876, 4938, 172, 3, 32, "Output",ExpressionUUID->"22ab525d-794a-7c4d-8f53-b4d75969da27"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184085, 4946, 170, 5, 56, "Input",ExpressionUUID->"2e19814e-d8e4-0440-a349-54cc93ccdf53"], +Cell[184258, 4953, 172, 3, 32, "Output",ExpressionUUID->"1896ee18-ae10-e644-828f-5f5df642d0f1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184467, 4961, 170, 5, 55, "Input",ExpressionUUID->"538f6b3e-6e49-7749-a73e-74beaffe6942"], +Cell[184640, 4968, 171, 3, 32, "Output",ExpressionUUID->"b400a1d2-95af-fb40-b3ff-41d1750a93a6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184848, 4976, 181, 5, 44, "Input",ExpressionUUID->"0943a4c5-ab88-024e-b598-6ab09308c529"], +Cell[185032, 4983, 170, 3, 32, "Output",ExpressionUUID->"8ca2cab9-f56c-6b47-8a70-792841a4fe85"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185239, 4991, 181, 5, 44, "Input",ExpressionUUID->"5313d107-d67a-0a42-97ea-bdd5afbb176c"], +Cell[185423, 4998, 172, 3, 32, "Output",ExpressionUUID->"a5943015-372b-c144-b0e4-4a01bb107ed7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185632, 5006, 6055, 185, 387, "Input",ExpressionUUID->"05311468-f950-6f43-ae68-9cc6502c4986"], +Cell[191690, 5193, 172, 3, 32, "Output",ExpressionUUID->"d0296c8c-1490-7c4a-92bd-55e7f4162d6c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191899, 5201, 368, 9, 42, "Input",ExpressionUUID->"55ab7556-231d-f846-b625-6b6079424223"], +Cell[192270, 5212, 171, 3, 32, "Output",ExpressionUUID->"9dd7cddc-5c45-9245-9b72-df722da611af"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192478, 5220, 6122, 187, 441, "Input",ExpressionUUID->"de97f1d4-a997-5d44-ad21-9d29636b6b11"], +Cell[198603, 5409, 173, 3, 32, "Output",ExpressionUUID->"495d1ed0-b317-7449-85b9-baf4df7f0d01"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198813, 5417, 368, 9, 42, "Input",ExpressionUUID->"69bf2733-1c68-0d45-9dcf-32eb09d0774e"], +Cell[199184, 5428, 170, 3, 32, "Output",ExpressionUUID->"04beffaf-62f7-0b45-9712-c72de536f25b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[199391, 5436, 2663, 88, 168, "Input",ExpressionUUID->"790285fd-a791-004a-beb8-81432d5fe6ed"], +Cell[202057, 5526, 171, 3, 32, "Output",ExpressionUUID->"29664369-b402-8f4f-96f8-4e73d4b4ac49"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202265, 5534, 2603, 85, 168, "Input",ExpressionUUID->"8d9d59ff-5258-ed44-b54a-00649424f6ab"], +Cell[204871, 5621, 173, 3, 32, "Output",ExpressionUUID->"983f75a1-f997-be4a-81f5-6dbcd2c0b96b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205081, 5629, 3712, 118, 247, "Input",ExpressionUUID->"082cc170-e78d-1f4c-ac49-a1fc473fe786"], +Cell[208796, 5749, 174, 3, 32, "Output",ExpressionUUID->"d4d9342c-f66d-924d-84fc-6729720d8960"] +}, Open ]], +Cell[208985, 5755, 138, 3, 42, "Input",ExpressionUUID->"b80089e4-e129-a84d-a279-8559e98c6042"], +Cell[CellGroupData[{ +Cell[209148, 5762, 2052, 59, 115, "Input",ExpressionUUID->"d15c8f9d-5cd8-0448-9115-8fd811f7859e"], +Cell[211203, 5823, 557, 12, 46, "Message",ExpressionUUID->"4061b475-d37f-3641-8b49-887dcca71780"], +Cell[211763, 5837, 559, 12, 46, "Message",ExpressionUUID->"405af2e3-b633-ec4f-a8af-038ad86e22fe"], +Cell[212325, 5851, 561, 12, 46, "Message",ExpressionUUID->"af7f9224-4f54-674b-94d8-a07a9f6c53fd"], +Cell[212889, 5865, 458, 10, 26, "Message",ExpressionUUID->"3d0f87c1-75a2-eb40-96ff-130376937dee"], +Cell[213350, 5877, 172, 3, 32, "Output",ExpressionUUID->"7ce936d7-d120-de47-ab26-d4794a00a858"] +}, Open ]], +Cell[CellGroupData[{ +Cell[213559, 5885, 2052, 59, 115, "Input",ExpressionUUID->"a596efda-1871-9b45-afb4-f85dfdafd26c"], +Cell[215614, 5946, 555, 12, 62, "Message",ExpressionUUID->"7fbc6b76-65ea-934a-b19a-39f44c5b4b90"], +Cell[216172, 5960, 559, 12, 62, "Message",ExpressionUUID->"35ea7ca0-84c8-d147-ab12-3deebbaaa154"], +Cell[216734, 5974, 561, 12, 62, "Message",ExpressionUUID->"b6cc553e-783f-0e4d-92d5-4078be1419c9"], +Cell[217298, 5988, 458, 10, 26, "Message",ExpressionUUID->"f4f151bb-1037-1e45-96b1-aa03e2ec2e08"], +Cell[217759, 6000, 172, 3, 32, "Output",ExpressionUUID->"531f82ba-09ac-9c40-a730-44e0b959edc3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[217968, 6008, 1936, 53, 87, "Input",ExpressionUUID->"98a8fe78-0965-1043-b897-797c175d7e63"], +Cell[219907, 6063, 20440, 382, 238, "Output",ExpressionUUID->"711c25c1-ed76-2e4b-84a6-d57a020489df"] +}, Open ]], +Cell[CellGroupData[{ +Cell[240384, 6450, 2114, 60, 115, "Input",ExpressionUUID->"9a11a03e-c4c1-5741-ac7d-23e1536f3e79"], +Cell[242501, 6512, 500, 11, 41, "Message",ExpressionUUID->"a638aba8-20a5-a64e-a190-4d33ebd1b8cb"], +Cell[243004, 6525, 503, 11, 41, "Message",ExpressionUUID->"ae7b53dc-f8ec-854b-9226-f16bb757a2e5"], +Cell[243510, 6538, 506, 11, 41, "Message",ExpressionUUID->"eac3fa47-f68a-0843-85a5-2531dd3a1acc"], +Cell[244019, 6551, 455, 10, 26, "Message",ExpressionUUID->"cf422af8-1404-4a4c-bb03-11722827e096"], +Cell[244477, 6563, 57321, 985, 234, "Output",ExpressionUUID->"da078250-620d-dc47-9190-f4147c2a22d7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[301835, 7553, 215, 7, 49, "Input",ExpressionUUID->"f431849e-0899-864c-b9d1-1df0491628db"], +Cell[302053, 7562, 172, 3, 32, "Output",ExpressionUUID->"d513da22-514d-5e4b-95c1-28c30db4448a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[302262, 7570, 1816, 53, 115, "Input",ExpressionUUID->"650ee12b-eb50-044b-94e9-ce88ff255deb"], +Cell[304081, 7625, 508, 11, 62, "Message",ExpressionUUID->"d1868775-7452-3b40-942a-63d8a590148d"], +Cell[304592, 7638, 508, 11, 62, "Message",ExpressionUUID->"63636793-87e5-c34e-8b32-996c1b2c9165"], +Cell[305103, 7651, 511, 11, 62, "Message",ExpressionUUID->"16e0b7d9-d776-8f46-ad6d-707495a25e9c"], +Cell[305617, 7664, 456, 10, 26, "Message",ExpressionUUID->"2573cc1f-e89e-934a-aa43-79a47df211bd"], +Cell[306076, 7676, 26000, 472, 234, "Output",ExpressionUUID->"2c03bcb6-3be4-1844-9ca2-48c18a26626a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[332113, 8153, 1616, 48, 87, "Input",ExpressionUUID->"5c6d0b57-910e-664a-8fd6-40771b36868b"], +Cell[333732, 8203, 584, 12, 66, "Message",ExpressionUUID->"85dcf820-db3d-024c-98b1-83dd2ba7d04c"], +Cell[334319, 8217, 588, 12, 66, "Message",ExpressionUUID->"1f9f96e1-4a57-6049-b6cc-4e4928609a9a"], +Cell[334910, 8231, 592, 12, 66, "Message",ExpressionUUID->"41c8c94b-43e8-be40-bbc3-83ecc5178dd9"], +Cell[335505, 8245, 456, 10, 26, "Message",ExpressionUUID->"12ccc187-b899-d54e-92ad-c3128a04ec4d"], +Cell[335964, 8257, 169, 3, 32, "Output",ExpressionUUID->"00bb2d18-fd7c-c946-b7e2-ea5f28955604"] +}, Open ]], +Cell[CellGroupData[{ +Cell[336170, 8265, 2247, 64, 164, "Input",ExpressionUUID->"b04a104f-3249-a34a-8102-7d9b3c7b796d"], +Cell[338420, 8331, 555, 12, 62, "Message",ExpressionUUID->"5de31c03-28cf-dc48-81c5-7c7746c54276"], +Cell[338978, 8345, 557, 12, 62, "Message",ExpressionUUID->"87ee2218-308b-1c43-8925-324a31500f9d"], +Cell[339538, 8359, 563, 12, 62, "Message",ExpressionUUID->"31bf6478-b1c1-9542-9dec-15ccf89a4566"], +Cell[340104, 8373, 458, 10, 26, "Message",ExpressionUUID->"413f0426-4563-cc47-9e61-5f6f0ab61394"], +Cell[340565, 8385, 173, 3, 32, "Output",ExpressionUUID->"f8144886-988a-7544-861d-6c87500bf6c5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[340775, 8393, 2221, 64, 164, "Input",ExpressionUUID->"6b8170ef-e8e1-8b4d-b589-528a0f547fe8"], +Cell[342999, 8459, 555, 12, 62, "Message",ExpressionUUID->"da8f8f97-234b-bc42-936f-0785b24ee446"], +Cell[343557, 8473, 557, 12, 62, "Message",ExpressionUUID->"2e3a9bc1-9d8c-5142-9abf-1720c1836f03"], +Cell[344117, 8487, 561, 12, 62, "Message",ExpressionUUID->"5831990e-e4f4-2b4f-a9c3-44a115dcf032"], +Cell[344681, 8501, 458, 10, 26, "Message",ExpressionUUID->"e1b6cf3c-14e6-964f-8a14-d24948c74c5a"], +Cell[345142, 8513, 173, 3, 32, "Output",ExpressionUUID->"eefb0037-cb99-2a44-8be0-7ef1ec5adb6b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[345352, 8521, 2219, 64, 164, "Input",ExpressionUUID->"984387ef-9fd9-3c47-bc3d-b6f0e8b03e2c"], +Cell[347574, 8587, 557, 12, 62, "Message",ExpressionUUID->"bf747c94-a1b1-5e42-af32-1d43d2dce0cc"], +Cell[348134, 8601, 557, 12, 62, "Message",ExpressionUUID->"e6de31d8-cd61-c14b-9dd6-e01a31d33bd5"], +Cell[348694, 8615, 563, 12, 62, "Message",ExpressionUUID->"330f1117-2847-c64f-987e-1999701c026c"], +Cell[349260, 8629, 456, 10, 26, "Message",ExpressionUUID->"ca8f5a06-fe5d-5246-9421-637b037f4be3"], +Cell[349719, 8641, 173, 3, 32, "Output",ExpressionUUID->"dcde32d3-c138-4f4b-9743-87921cc6c9e7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[349929, 8649, 213, 6, 48, "Input",ExpressionUUID->"a1d4e2a6-d632-ee42-bf72-0ec0037a6c16"], +Cell[350145, 8657, 171, 3, 32, "Output",ExpressionUUID->"d851969f-aae6-ff40-b54a-f81b9a16b06d"] +}, Open ]], +Cell[350331, 8663, 245, 5, 42, "Input",ExpressionUUID->"ab8417e8-4709-e943-87cd-c5b8a0910541"], +Cell[CellGroupData[{ +Cell[350601, 8672, 558, 19, 53, "Input",ExpressionUUID->"befa51f5-5940-8743-b07a-eb3a8aba653f"], +Cell[351162, 8693, 172, 3, 32, "Output",ExpressionUUID->"d3696bfe-4fa2-f04a-96eb-2ffcb275e098"] +}, Open ]], +Cell[CellGroupData[{ +Cell[351371, 8701, 170, 5, 57, "Input",ExpressionUUID->"8c248539-c23a-4a42-8e54-3b513c751017"], +Cell[351544, 8708, 173, 3, 32, "Output",ExpressionUUID->"19996e75-8d0f-2049-b0ab-f705e12070ee"] +}, Open ]], +Cell[CellGroupData[{ +Cell[351754, 8716, 181, 5, 44, "Input",ExpressionUUID->"293f8673-c8b0-6746-85db-59c8f599b57c"], +Cell[351938, 8723, 173, 3, 32, "Output",ExpressionUUID->"6b23bccd-f31e-9d46-9023-034bd51ad3bb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[352148, 8731, 6055, 185, 387, "Input",ExpressionUUID->"8fe440ff-6433-ee43-8ab0-44131de05652"], +Cell[358206, 8918, 172, 3, 32, "Output",ExpressionUUID->"62171c19-5f83-2049-9194-385f2231542c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[358415, 8926, 368, 9, 42, "Input",ExpressionUUID->"ec04ad19-eb6d-ba4f-929a-62702cc30a12"], +Cell[358786, 8937, 170, 3, 32, "Output",ExpressionUUID->"deee1bab-ce6f-c047-9ddf-87c9b2a4acea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[358993, 8945, 6122, 187, 441, "Input",ExpressionUUID->"301beffb-a956-b44c-beb2-37fe9711e64e"], +Cell[365118, 9134, 175, 3, 32, "Output",ExpressionUUID->"73bc7c9d-800c-a442-97e6-20db932568ad"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365330, 9142, 368, 9, 42, "Input",ExpressionUUID->"603274e8-9f12-ce48-b425-66b0e2e5dd2e"], +Cell[365701, 9153, 172, 3, 32, "Output",ExpressionUUID->"bbde9dcf-faa4-2d4f-b406-f2d0c7495b65"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365910, 9161, 2663, 88, 168, "Input",ExpressionUUID->"26d67789-9b33-7843-a368-14c85da65ff3"], +Cell[368576, 9251, 173, 3, 32, "Output",ExpressionUUID->"2f8aa250-eefc-864d-99db-2d5482d1949c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[368786, 9259, 2603, 85, 168, "Input",ExpressionUUID->"a37295b9-9f23-ed46-af76-8081da173c8b"], +Cell[371392, 9346, 171, 3, 32, "Output",ExpressionUUID->"0b037e26-4d38-4e42-a978-3ca735d36a45"] +}, Open ]], +Cell[CellGroupData[{ +Cell[371600, 9354, 3712, 118, 247, "Input",ExpressionUUID->"8cb2872a-60dc-2845-b059-08954f0afeb4"], +Cell[375315, 9474, 174, 3, 32, "Output",ExpressionUUID->"706324b4-7c0c-914f-bb1a-cf2595e95f52"] +}, Open ]], +Cell[CellGroupData[{ +Cell[375526, 9482, 2052, 59, 115, "Input",ExpressionUUID->"003a047b-90eb-3149-b4f8-a296c2b2cdcd"], +Cell[377581, 9543, 578, 12, 87, "Message",ExpressionUUID->"b352bd85-52e4-bc41-b324-534f96ccf0e6"], +Cell[378162, 9557, 583, 12, 66, "Message",ExpressionUUID->"86af3939-d1d7-d647-b19c-39e3436e5502"], +Cell[378748, 9571, 586, 12, 66, "Message",ExpressionUUID->"d19a6c38-6670-b646-b496-e1d520cf6398"], +Cell[379337, 9585, 456, 10, 26, "Message",ExpressionUUID->"0a65d080-4626-264a-957d-e0dedd3bbc33"], +Cell[379796, 9597, 170, 3, 32, "Output",ExpressionUUID->"24ab5ee4-c131-f84c-b2e4-0200f87c8b2d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[380003, 9605, 2052, 59, 115, "Input",ExpressionUUID->"17f0d32c-a57d-2a45-81f1-ef75e11de8a0"], +Cell[382058, 9666, 576, 12, 87, "Message",ExpressionUUID->"bd7deec6-2c8e-3746-920e-2051f2f357c4"], +Cell[382637, 9680, 581, 12, 66, "Message",ExpressionUUID->"38bcde0f-fd6a-1240-9c86-1d4b53e7d01b"], +Cell[383221, 9694, 586, 12, 66, "Message",ExpressionUUID->"abf7d101-d355-3b49-ab40-00c114c9b9da"], +Cell[383810, 9708, 458, 10, 26, "Message",ExpressionUUID->"9dcaae4f-6c03-c04b-a023-85d91df5e7c7"], +Cell[384271, 9720, 172, 3, 32, "Output",ExpressionUUID->"ccb5155b-66b6-0547-a5f2-a08c72158762"] +}, Open ]], +Cell[CellGroupData[{ +Cell[384480, 9728, 2030, 55, 160, "Input",ExpressionUUID->"fcd15b99-cf8b-0648-a673-70cdac1f227f"], +Cell[386513, 9785, 20011, 378, 237, "Output",ExpressionUUID->"637e3f8e-a1de-d24b-8d0a-9daaf526b8f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[406561, 10168, 2146, 61, 211, "Input",ExpressionUUID->"76321b6a-1af8-9c49-b2f7-d5c92a8c63b6"], +Cell[408710, 10231, 501, 11, 60, "Message",ExpressionUUID->"795a4e03-9348-bc44-bc59-9c81576134fb"], +Cell[409214, 10244, 503, 11, 60, "Message",ExpressionUUID->"7ea7e400-7b44-4743-aaa2-4d6d1b08b804"], +Cell[409720, 10257, 505, 11, 60, "Message",ExpressionUUID->"8c3efc69-51e4-0349-9387-81018769ac2c"], +Cell[410228, 10270, 456, 10, 26, "Message",ExpressionUUID->"d01f1fa2-329b-d248-8b6a-32256534f54c"], +Cell[410687, 10282, 32548, 580, 233, "Output",ExpressionUUID->"490311aa-bd00-914a-9f58-947467dd9297"] +}, Open ]], +Cell[CellGroupData[{ +Cell[443272, 10867, 1616, 48, 113, "Input",ExpressionUUID->"37173e44-18b6-f345-bdbf-3935ac3d85ba"], +Cell[444891, 10917, 596, 12, 85, "Message",ExpressionUUID->"535ab9af-e2f0-944f-9023-d0d7fa4c31e5"], +Cell[445490, 10931, 599, 12, 85, "Message",ExpressionUUID->"763653e6-d2c5-2c4b-b148-2d601b18999e"], +Cell[446092, 10945, 605, 12, 85, "Message",ExpressionUUID->"6712547a-cfd4-1747-b710-24dcd8b85594"], +Cell[446700, 10959, 456, 10, 26, "Message",ExpressionUUID->"44853999-274b-4a4d-befb-0519af052f8e"], +Cell[447159, 10971, 170, 3, 32, "Output",ExpressionUUID->"d265ec31-c37b-b34b-9f4e-2a798572ba0d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[447366, 10979, 2247, 64, 223, "Input",ExpressionUUID->"c4a8a8b0-0b31-ac4c-a7ce-152da20b42d7"], +Cell[449616, 11045, 580, 12, 85, "Message",ExpressionUUID->"0a0b8acc-d88c-f541-9f43-3ad7f8ff671a"], +Cell[450199, 11059, 583, 12, 85, "Message",ExpressionUUID->"dbdc2977-d53e-404d-b6e6-a598c19760d4"], +Cell[450785, 11073, 584, 12, 85, "Message",ExpressionUUID->"c66123d8-b0b6-0144-99d0-8ca0ecfb4093"], +Cell[451372, 11087, 458, 10, 26, "Message",ExpressionUUID->"36aff51b-c5d2-5d4f-878f-fb1430bbf46d"], +Cell[451833, 11099, 170, 3, 32, "Output",ExpressionUUID->"330b8bea-4179-8348-95aa-c6fba51d26c2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[452040, 11107, 2221, 64, 162, "Input",ExpressionUUID->"3975f6bc-b8e0-0049-badb-74a4e7126d8f"], +Cell[454264, 11173, 580, 12, 85, "Message",ExpressionUUID->"fa38804d-d1cb-1447-8203-2445dfa4fcda"], +Cell[454847, 11187, 583, 12, 85, "Message",ExpressionUUID->"21e377cd-5f17-ee4d-9c79-89037091bc25"], +Cell[455433, 11201, 586, 12, 85, "Message",ExpressionUUID->"73743e57-e60a-4847-8af4-f6d159a2fc37"], +Cell[456022, 11215, 458, 10, 26, "Message",ExpressionUUID->"b407e7dc-c0ec-4843-b3e5-381bd4c692b7"], +Cell[456483, 11227, 171, 3, 32, "Output",ExpressionUUID->"070c193e-9eba-f642-847f-cac8b588492e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[456691, 11235, 2219, 64, 162, "Input",ExpressionUUID->"f4f95d15-5683-9549-85ce-3970c364fc34"], +Cell[458913, 11301, 580, 12, 85, "Message",ExpressionUUID->"eb423938-ff5a-344a-969c-b7d904599c4b"], +Cell[459496, 11315, 583, 12, 85, "Message",ExpressionUUID->"b4b8c5b2-00a6-ec4c-8b4f-a4d9bd1e8c35"], +Cell[460082, 11329, 584, 12, 85, "Message",ExpressionUUID->"72ea416d-dd3f-7941-b395-c37fefc1b337"], +Cell[460669, 11343, 456, 10, 26, "Message",ExpressionUUID->"e78b7c76-2ded-8940-b41a-b392437045c0"], +Cell[461128, 11355, 170, 3, 32, "Output",ExpressionUUID->"a780e023-1794-804c-8339-bc10a750b9f0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[461335, 11363, 215, 6, 47, "Input",ExpressionUUID->"16838e8f-dc9a-d74c-8675-3a4476217af6"], +Cell[461553, 11371, 174, 3, 32, "Output",ExpressionUUID->"15b51804-0720-9c4e-b20b-e353de084a0e"] +}, Open ]], +Cell[461742, 11377, 247, 5, 42, "Input",ExpressionUUID->"5671b6c5-96eb-9840-bb09-6698022336a6"], +Cell[CellGroupData[{ +Cell[462014, 11386, 558, 19, 52, "Input",ExpressionUUID->"4d014000-6f17-9a45-b3a6-a3a0cf36c628"], +Cell[462575, 11407, 173, 3, 32, "Output",ExpressionUUID->"934b3a30-897a-9e41-85e9-504d7ee2ff62"] +}, Open ]], +Cell[CellGroupData[{ +Cell[462785, 11415, 170, 5, 57, "Input",ExpressionUUID->"fe5bd3c5-5fb8-684b-9227-f90b633f4a5d"], +Cell[462958, 11422, 173, 3, 32, "Output",ExpressionUUID->"2fbbe691-91db-6640-99ed-fb726285d981"] +}, Open ]], +Cell[CellGroupData[{ +Cell[463168, 11430, 181, 5, 44, "Input",ExpressionUUID->"fcb96232-efe5-6c4a-80fc-3e0409b7c756"], +Cell[463352, 11437, 171, 3, 32, "Output",ExpressionUUID->"12ec0e81-c346-2f44-a188-d2441d58a6ee"] +}, Open ]], +Cell[CellGroupData[{ +Cell[463560, 11445, 6055, 185, 387, "Input",ExpressionUUID->"826a4822-fe82-2545-859e-1dcc0d2c7665"], +Cell[469618, 11632, 173, 3, 32, "Output",ExpressionUUID->"8ec31e5d-c440-8b41-a98c-226b6d9ffc36"] +}, Open ]], +Cell[CellGroupData[{ +Cell[469828, 11640, 368, 9, 42, "Input",ExpressionUUID->"8e8ef1c8-b957-7e47-8bd7-349d078e5615"], +Cell[470199, 11651, 172, 3, 32, "Output",ExpressionUUID->"bcb4b779-10f1-9041-9a4c-3cdec2a68741"] +}, Open ]], +Cell[CellGroupData[{ +Cell[470408, 11659, 6122, 187, 441, "Input",ExpressionUUID->"ef7ab6c6-a465-144e-9b2e-d87983d89cc3"], +Cell[476533, 11848, 175, 3, 32, "Output",ExpressionUUID->"1bb933d6-f02a-2d47-939d-352095da19e4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[476745, 11856, 368, 9, 42, "Input",ExpressionUUID->"005cbf5d-7cfe-0a47-85df-3f41c0cd74cc"], +Cell[477116, 11867, 171, 3, 32, "Output",ExpressionUUID->"417f7831-47f1-634e-b3b3-4519fff106b6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[477324, 11875, 2663, 88, 168, "Input",ExpressionUUID->"11446a18-6985-d84f-b09e-6be9463bee70"], +Cell[479990, 11965, 173, 3, 32, "Output",ExpressionUUID->"2a38d751-aa08-544a-bed2-19499b9d4e28"] +}, Open ]], +Cell[CellGroupData[{ +Cell[480200, 11973, 2603, 85, 168, "Input",ExpressionUUID->"cf191722-8995-064e-a60c-6ab12800222b"], +Cell[482806, 12060, 171, 3, 32, "Output",ExpressionUUID->"46c519d5-59d4-f441-bd4f-aa5b2f67d025"] +}, Open ]], +Cell[CellGroupData[{ +Cell[483014, 12068, 3712, 118, 247, "Input",ExpressionUUID->"146e47d3-0f15-fc4b-b22a-e41827d0b353"], +Cell[486729, 12188, 174, 3, 32, "Output",ExpressionUUID->"92f70f88-e69c-1542-bc35-e0a4a79c0778"] +}, Open ]], +Cell[CellGroupData[{ +Cell[486940, 12196, 2052, 59, 115, "Input",ExpressionUUID->"b1b29f9b-c1d5-3048-84ff-9fde8e93d227"], +Cell[488995, 12257, 572, 12, 62, "Message",ExpressionUUID->"f7ec4848-a774-4241-8252-c4a345b7b537"], +Cell[489570, 12271, 573, 12, 62, "Message",ExpressionUUID->"b1cc9ffb-8539-884b-83ac-f80545b77446"], +Cell[490146, 12285, 579, 12, 86, "Message",ExpressionUUID->"0d692fe8-00d8-2648-b9dc-a50ab2117d15"], +Cell[490728, 12299, 456, 10, 26, "Message",ExpressionUUID->"f1156f88-ad59-a64f-9387-30a62e4910c3"], +Cell[491187, 12311, 169, 3, 32, "Output",ExpressionUUID->"b12401fc-f91d-dc4c-aefa-dbdb0f0fee52"] +}, Open ]], +Cell[CellGroupData[{ +Cell[491393, 12319, 2052, 59, 115, "Input",ExpressionUUID->"7833995d-3f7b-3a4e-944a-db222bb16395"], +Cell[493448, 12380, 570, 12, 62, "Message",ExpressionUUID->"7db9f46f-8a38-cb4a-a687-c722730b8b16"], +Cell[494021, 12394, 575, 12, 62, "Message",ExpressionUUID->"6430db22-9f1b-7245-9227-60a3d496b498"], +Cell[494599, 12408, 579, 12, 86, "Message",ExpressionUUID->"6f0f625d-6657-4c45-9368-10b8293fb84f"], +Cell[495181, 12422, 458, 10, 26, "Message",ExpressionUUID->"7da75495-a67b-ae4b-9f38-dff9e5fd170b"], +Cell[495642, 12434, 171, 3, 32, "Output",ExpressionUUID->"9c2483c6-51ba-7e4c-a701-0fa72c2d8ca1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495850, 12442, 2028, 55, 68, "Input",ExpressionUUID->"cfa7b206-7d8f-ba43-acf6-c3e910046666"], +Cell[497881, 12499, 20011, 378, 237, "Output",ExpressionUUID->"f9c851f7-b559-7d4a-b035-4845c67e3a3f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[517929, 12882, 2146, 61, 115, "Input",ExpressionUUID->"485e4bed-973b-f94f-bcff-d7674e9a7110"], +Cell[520078, 12945, 501, 11, 41, "Message",ExpressionUUID->"f059ab7e-e874-8240-9bfe-d7e368a299f7"], +Cell[520582, 12958, 505, 11, 41, "Message",ExpressionUUID->"dbe978bc-9547-1a48-b457-4a5508183e55"], +Cell[521090, 12971, 506, 11, 62, "Message",ExpressionUUID->"16d105d4-645d-f34c-ab78-1cc2dd85030b"], +Cell[521599, 12984, 456, 10, 26, "Message",ExpressionUUID->"b2ac087e-12b1-2c45-a87d-09319151e16f"], +Cell[522058, 12996, 31008, 556, 234, "Output",ExpressionUUID->"84d25c2a-3d95-8a4f-b44b-f3bad52460c9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[553103, 13557, 1616, 48, 87, "Input",ExpressionUUID->"9cb62145-2ada-bc41-956f-2b9918d80413"], +Cell[554722, 13607, 593, 12, 66, "Message",ExpressionUUID->"16aadf7c-39a3-2342-980f-bebe21018618"], +Cell[555318, 13621, 595, 12, 66, "Message",ExpressionUUID->"4a6270d2-2cff-8a43-a054-69c4140f594b"], +Cell[555916, 13635, 602, 12, 66, "Message",ExpressionUUID->"e3a9765f-2bfe-b14b-8d69-4a2bea7b9156"], +Cell[556521, 13649, 456, 10, 26, "Message",ExpressionUUID->"8da14ef6-3ff7-6944-bb4c-973d9ac0bba0"], +Cell[556980, 13661, 172, 3, 32, "Output",ExpressionUUID->"57bdb082-bd1f-6545-af52-ae718626e470"] +}, Open ]], +Cell[CellGroupData[{ +Cell[557189, 13669, 2247, 64, 164, "Input",ExpressionUUID->"3b8ec59c-bf90-a74e-8e19-98c05b1b569e"], +Cell[559439, 13735, 572, 12, 62, "Message",ExpressionUUID->"b257d5c2-9dc7-f54b-9734-676d18632a27"], +Cell[560014, 13749, 575, 12, 62, "Message",ExpressionUUID->"0d2bee34-8477-ff4a-a5f9-f9e477d2d683"], +Cell[560592, 13763, 579, 12, 86, "Message",ExpressionUUID->"ba8b5fcf-743f-8242-99fd-e814e715c59e"], +Cell[561174, 13777, 458, 10, 26, "Message",ExpressionUUID->"a4214718-9750-e246-9ae7-4b24f55652c1"], +Cell[561635, 13789, 173, 3, 32, "Output",ExpressionUUID->"0b0263fd-52eb-7a4b-97ef-be9fc1b0ecc8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[561845, 13797, 2219, 64, 164, "Input",ExpressionUUID->"ca9a5900-6241-e942-8e6f-ccee4f3ad231"], +Cell[564067, 13863, 572, 12, 62, "Message",ExpressionUUID->"fc86abcb-555b-294f-9929-a479af0ae8f6"], +Cell[564642, 13877, 575, 12, 62, "Message",ExpressionUUID->"186009b3-7587-f94a-abe7-c098dc60f14f"], +Cell[565220, 13891, 577, 12, 86, "Message",ExpressionUUID->"90efeff9-ba63-084d-8f62-cd826b88eb74"], +Cell[565800, 13905, 456, 10, 26, "Message",ExpressionUUID->"971bb95b-6c51-1147-a610-18d7656c3629"], +Cell[566259, 13917, 172, 3, 32, "Output",ExpressionUUID->"ae353e01-df4e-154e-bbd2-0444671a0f3e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[566468, 13925, 2221, 64, 164, "Input",ExpressionUUID->"4b76f315-df8b-2e44-9766-11e105bf7f03"], +Cell[568692, 13991, 572, 12, 62, "Message",ExpressionUUID->"ed610062-32b2-4747-9cf7-cdf5861e3759"], +Cell[569267, 14005, 573, 12, 62, "Message",ExpressionUUID->"48806774-48ab-a543-9a1c-8bd0048d2f4a"], +Cell[569843, 14019, 579, 12, 86, "Message",ExpressionUUID->"39ea2316-8e1d-fb46-b839-5fdc5c4b72de"], +Cell[570425, 14033, 456, 10, 26, "Message",ExpressionUUID->"9b3c6b11-fc56-8c45-8c8c-7dc51bc571a1"], +Cell[570884, 14045, 173, 3, 32, "Output",ExpressionUUID->"50f5cefa-b666-c54b-92c2-5f98a1396137"] +}, Open ]], +Cell[CellGroupData[{ +Cell[571094, 14053, 213, 6, 48, "Input",ExpressionUUID->"c61261a4-9291-8d4e-84ee-07cf74de18fa"], +Cell[571310, 14061, 174, 3, 32, "Output",ExpressionUUID->"449de59f-e30f-3641-b8d5-c2f2f70e6df1"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3(ДЛЯ АЭСНИКОВ)/l_АЭСНИКАМ_pr_Qw2.nb b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3(ДЛЯ АЭСНИКОВ)/l_АЭСНИКАМ_pr_Qw2.nb new file mode 100755 index 0000000..0afd79f --- /dev/null +++ b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3(ДЛЯ АЭСНИКОВ)/l_АЭСНИКАМ_pr_Qw2.nb @@ -0,0 +1,14441 @@ +(* 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[ 598656, 14433] +NotebookOptionsPosition[ 560204, 13816] +NotebookOutlinePosition[ 560628, 13833] +CellTagsIndexPosition[ 560585, 13830] +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}, + CellLabel->"In[1]:=",ExpressionUUID->"cac2cd5b-7a8e-d241-b51a-681e82b94538"], + +Cell[BoxData["3"], "Output", + CellChangeTimes->{3.991320420900818*^9, 3.992089565723549*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"f589f12b-fab2-7f43-8b3b-41ce25921bb9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "234"}]], "Input", + CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { + 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, + 3.99179303935478*^9}, 3.9920893973301544`*^9}, + CellLabel->"In[2]:=",ExpressionUUID->"765f73ce-0f72-d34b-9dc1-d08e1ddd8b41"], + +Cell[BoxData["234"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.9920895659023285`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"5c80a062-b127-4342-b438-e22c3bffdc6c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "82"}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.992089401338833*^9, + 3.9920894018500023`*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"57023e31-4eb4-7c40-a2ca-eed12cc07e7d"], + +Cell[BoxData["82"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9920895659261894`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"35cc06b6-d5bd-dd48-9222-db9439a92c31"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"7c76b263-a094-c848-9119-e7b7c5c8b33e"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9, 3.991707828219631*^9, + 3.9917123414174232`*^9, 3.9920895659317207`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"45722560-3322-5448-9044-7b75c34a8cde"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"681924aa-3c83-5147-9887-0e7540c03c76"], + +Cell[BoxData["0.5544871794871795`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9, 3.9917078282275677`*^9, + 3.9917123414253197`*^9, 3.9920895659537334`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"cbe79e46-1a9e-2445-8952-99b6cb4640c1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"976b5913-cd4f-ea4e-8108-aa217a5c8375"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9, 3.9917078282485256`*^9, + 3.9917123414324265`*^9, 3.9920895659587307`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"2b5ccbe7-51fa-a84b-9c94-52a27177c050"] +}, 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->"7352414e-522c-5b40-a190-c5b61b5c98ba"], + +Cell[BoxData["5.0395985234915885`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9, 3.9917078282706223`*^9, + 3.9917123414384117`*^9, 3.992089565981739*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"622263ba-dd4b-a44f-8662-d84a3c5256f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"57c655f2-5b8b-ba49-9da4-7ae771d8ea11"], + +Cell[BoxData["6.190691825034912`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9, 3.9917078282785244`*^9, + 3.991712341447321*^9, 3.9920895660013065`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"f449025f-df46-294f-a897-7619d70d7831"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.421480706633547"}]], "Input", + CellChangeTimes->{3.9917123951294365`*^9, 3.99179305435186*^9, + 3.9920894102175694`*^9}, + CellLabel->"In[9]:=",ExpressionUUID->"6f01a783-a6f6-d246-8f99-9fae22626f15"], + +Cell[BoxData["0.421480706633547`"], "Output", + CellChangeTimes->{3.991319649862606*^9, 3.991707828301527*^9, + 3.9917123414573193`*^9, 3.991712407248003*^9, 3.9920895660059776`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"cd0cd067-672c-a548-b7a7-8b30b98d090b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.744261692152701"}]], "Input", + CellChangeTimes->{3.9917124038115807`*^9, 3.991793052797516*^9, + 3.9920894153197956`*^9}, + CellLabel->"In[10]:=",ExpressionUUID->"de63cadb-71f8-5448-af8e-cb62d3aaab1f"], + +Cell[BoxData["0.744261692152701`"], "Output", + CellChangeTimes->{3.9913196498716316`*^9, 3.991707828308525*^9, + 3.99171234146842*^9, 3.9917124073213234`*^9, 3.9920895660299835`*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"8af1ee3f-4c4e-0d4e-ac43-18b17c4979c6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"71affa2f-4276-a949-beeb-b74ca87ca086"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9, 3.9917078283276424`*^9, + 3.991712341478319*^9, 3.9920895660361767`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"2666bd97-b3c1-464a-88d1-ecdd537aaeba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"60c28f4b-b367-9e4d-bbb5-a9d160b51f5b"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9, 3.99170782834754*^9, + 3.9917123414863186`*^9, 3.992089566041706*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"7190c8ae-94dc-c548-9f4c-d3807bb40616"] +}, 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->"90cef9fa-c611-7348-ba2d-982329185ff6"], + +Cell[BoxData["1.4675571041126967`"], "Output", + CellChangeTimes->{3.9913197863028755`*^9, 3.991707968406042*^9, + 3.992089566066429*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"b1d37b20-420a-904e-bad0-d0b9d8762e05"] +}, 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->"75df842a-02ff-c344-9b23-2784968675a0"], + +Cell[BoxData["1.9764491154865769`"], "Output", + CellChangeTimes->{3.9913197864610195`*^9, 3.9917079684291363`*^9, + 3.9920895660724354`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"2f5c4ebe-b889-3d4e-b601-6b51b8035770"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"10f97c5d-46b2-3144-80cd-ed5d21a3548d"], + +Cell[BoxData["0.6559383278596986`"], "Output", + CellChangeTimes->{3.991319786533783*^9, 3.991707968457081*^9, + 3.992089566098549*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"9ddb72bf-e169-ed46-8b61-a841e3aee47d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"fa6143e8-b659-ec4b-8b04-5fcddd2374e3"], + +Cell[BoxData[ + RowBox[{"-", "0.37229468143309563`"}]], "Output", + CellChangeTimes->{3.991319786540777*^9, 3.9917079684650364`*^9, + 3.992089566104553*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"f08f1eba-855a-bf40-9706-18e1d83e2fcd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"f4cf167f-8841-9d4e-8eb5-91cf0f35398c"], + +Cell[BoxData[ + RowBox[{"-", "0.10565103139566565`"}]], "Output", + CellChangeTimes->{3.9913197865777817`*^9, 3.9917079684860363`*^9, + 3.9920895661334343`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"abb2a3c3-ae11-bc4a-9b7b-ebcebafde6a0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"2acf2fb0-4aba-e940-9a1a-8f3161370251"], + +Cell[BoxData["0.4612539649188019`"], "Output", + CellChangeTimes->{3.9913197866129*^9, 3.9917079684940376`*^9, + 3.992089566154436*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"a1ae7e51-ba32-8043-ae74-cd8985326dab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"c0c43d57-8940-c749-9cda-64a6404b66e9"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786620775*^9, 3.9917079685140343`*^9, + 3.992089566161434*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"0ae6f4f8-f9bd-5849-894f-b5b1ca7386ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellChangeTimes->{3.9918430951178913`*^9}, + CellLabel->"In[20]:=",ExpressionUUID->"b0e7a16f-2516-3b4f-8d6b-f4e0f4617f2e"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{3.991319786657793*^9, 3.991707968535036*^9, + 3.99208956616745*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"55a5fd0d-1120-da49-8193-a9b70dc7526e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"cd5604ee-6f1e-b24a-91bb-c7eddb427fa0"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{3.9913197866657925`*^9, 3.9917079685410557`*^9, + 3.992089566190012*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"e8605886-02f7-2743-be69-4cdec43166a3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"749fce91-885f-4846-8491-cca652099dda"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{3.9913197866996*^9, 3.991707968561041*^9, + 3.992089566195524*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"df7aaf7a-cf64-b249-9978-28906fb080b7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"3b8a40e0-b91f-fa4d-b6c8-2d493f5c3558"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{3.9913197867406044`*^9, 3.9917079685810375`*^9, + 3.992089566225437*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"abbd8a50-b512-e94a-9b97-2213291b626f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "32"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.9917930777342243`*^9, + 3.9920894233840046`*^9}, + CellLabel->"In[24]:=",ExpressionUUID->"aa498698-c92e-ad4c-b001-93e29e3ec952"], + +Cell[BoxData["32"], "Output", + CellChangeTimes->{3.992089566254753*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"aa931738-2ec9-3443-9ba4-b89592e855e3"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431115646553`*^9, 3.991843111569187*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"19555bbd-72f4-5f40-b1ec-d9a91fefb12c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"92", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, { + 3.991644237125025*^9, 3.991644237304865*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"abfde232-beb2-0a45-8272-cf72f0cf14be"], + +Cell[BoxData["60"], "Output", + CellChangeTimes->{3.9913197867928696`*^9, 3.991707968608036*^9, + 3.99208956628076*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"beee0e36-fd05-034b-b140-4e7520459554"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"3bbcda1d-22f2-ab48-9f1c-ed45b5d64081"], + +Cell[BoxData["152"], "Output", + CellChangeTimes->{3.991319786827894*^9, 3.9917079686284103`*^9, + 3.9920895662857647`*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"2a2979d9-7f48-1749-8456-d5b765d10a24"] +}, 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->"16ce4d3c-be88-234b-aae7-f614687a50a4"], + +Cell[BoxData["0.10940949935815147`"], "Output", + CellChangeTimes->{3.9913197868648605`*^9, 3.9917079686354065`*^9, + 3.9920895662917824`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"e673fafb-bfeb-3c48-bb22-ae764c304638"] +}, 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->"a3dcfbf8-2af7-194d-86cf-1123de47b437"], + +Cell[BoxData[ + RowBox[{"-", "2.565044929396662`"}]], "Output", + CellChangeTimes->{3.9913197868718567`*^9, 3.991707968658518*^9, + 3.9920895663198013`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"c8e25790-773d-ff44-be2b-0904c360b111"] +}, 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.991972093618887*^9, 3.9919720982596817`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"2e2251e8-37c9-a048-af78-35206d5bb258"], + +Cell[BoxData["18.13233419952894`"], "Output", + CellChangeTimes->{3.9913197869068584`*^9, 3.991707968678421*^9, + 3.992089566342434*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"318ccb2a-f7e6-8e42-82b0-00adbd9ae759"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"ebaec148-8f86-b044-8075-8835ab2788aa"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786940857*^9, 3.9917079686854057`*^9, + 3.9920895663484135`*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"00bb7a1f-0a67-ce4f-a954-9c3e029c3ae9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "0.889"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.991793106556059*^9, 3.9920891167348633`*^9}, + CellLabel->"In[32]:=",ExpressionUUID->"7583ced7-bdc7-6e41-8eca-bc56ffb514c3"], + +Cell[BoxData["0.889`"], "Output", + CellChangeTimes->{3.9920895663544292`*^9}, + CellLabel->"Out[32]=",ExpressionUUID->"1aa7176f-1384-b04b-bc10-490f71072d6f"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431193859673`*^9, 3.9918431193894367`*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"bfe7fd5f-36f4-9043-8f24-3d33a5f1cd5d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.634"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917169698218613`*^9, 3.991717907758713*^9, + 3.991793107839529*^9, 3.9920891205275974`*^9}, + CellLabel->"In[34]:=",ExpressionUUID->"68249122-ae58-1a46-a7cf-44f3aaaec1a0"], + +Cell[BoxData["0.634`"], "Output", + CellChangeTimes->{3.9920895663844376`*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"a0315835-4aa3-264e-b645-4b61ea14caea"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843120757866*^9, 3.9918431207603054`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"0ecbb601-4db9-fd40-9642-bb595261ffbe"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "1.069"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.991717916696951*^9, + 3.991793108990593*^9, 3.992089124257103*^9}, + CellLabel->"In[36]:=",ExpressionUUID->"e056798a-b0a6-244a-98dd-2c0623a197dc"], + +Cell[BoxData["1.069`"], "Output", + CellChangeTimes->{3.9920895664084415`*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"15bc1d5d-9cc9-5b45-8642-d52eded2f2e7"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431220200443`*^9, 3.9918431220220585`*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"6b9f2578-3f8a-2a4a-880c-5b333a76a337"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn1", "=", "0.744"}], "\n"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.991716995355715*^9, + 3.9917931103354855`*^9, 3.9920891300041294`*^9}, + CellLabel->"In[38]:=",ExpressionUUID->"2d3bb20e-8f7b-b84a-a54c-6b05eb6c5c2d"], + +Cell[BoxData["0.744`"], "Output", + CellChangeTimes->{3.9920895664164486`*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"b2dea668-1e96-224b-976c-2e7312644515"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431237966404`*^9, 3.9918431238010616`*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"363e18ca-1763-6446-9e64-8e05b0be105b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"v2", "=", "1.991"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991717006317978*^9, 3.9917931115739956`*^9, 3.9920891335540543`*^9}, + CellLabel->"In[40]:=",ExpressionUUID->"a688984f-c361-3a45-b79c-d0342428eda6"], + +Cell[BoxData["1.991`"], "Output", + CellChangeTimes->{3.992089566442686*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"bd5ae05e-4ff6-2740-bd99-95945875b9da"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431249171696`*^9, 3.991843124921198*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"3f9e23f5-fc89-6841-b922-c86c03fa6c3c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"n2", "=", "0.921"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917170151233826`*^9, 3.9917931128910503`*^9, 3.992089139983057*^9}, + CellLabel->"In[42]:=",ExpressionUUID->"4195867e-6da8-9849-8401-d4651cc40346"], + +Cell[BoxData["0.921`"], "Output", + CellChangeTimes->{3.9920895664756985`*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"4a02a628-2173-a046-9331-38dd16bd50c8"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843126102844*^9, 3.991843126104536*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"f70ca6e7-0115-8841-91ec-fa06f4b3bbb9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv2", "=", "2.422"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, { + 3.9917170243815575`*^9, 3.991717046491377*^9}, 3.991793114539028*^9, + 3.99208914362006*^9}, + CellLabel->"In[44]:=",ExpressionUUID->"65955152-a7c0-a34c-9538-72598dd4e217"], + +Cell[BoxData["2.422`"], "Output", + CellChangeTimes->{3.992089566507509*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"27d7032b-7a4a-434b-b1f4-e5c9e775de1e"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431274420605`*^9, 3.9918431274461517`*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"c15894e2-517c-2746-92be-c75409f84bc2"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn2", "=", "1.520"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.991793116134735*^9, 3.992089147661951*^9}, + CellLabel->"In[46]:=",ExpressionUUID->"9311b3d3-5cdc-a848-9d00-7476b81057a9"], + +Cell[BoxData["1.52`"], "Output", + CellChangeTimes->{3.9920895665374985`*^9}, + CellLabel->"Out[46]=",ExpressionUUID->"58b09c99-ec14-b145-9488-061afc84f9e4"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843129570627*^9, 3.991843129574024*^9}}, + CellLabel->"In[47]:=",ExpressionUUID->"2ca52c32-2723-2448-acce-d48ce3360943"], + +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[48]:=",ExpressionUUID->"90697ce2-0e5d-5e45-a1a0-d1ec7b4c09f3"], + +Cell[BoxData["3.512937062486845`"], "Output", + CellChangeTimes->{3.991319787430073*^9, 3.991707979950527*^9, + 3.9920895666035786`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"04f9c83b-9c0e-0c41-9465-e5f1803421f4"] +}, 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[49]:=",ExpressionUUID->"2a8a85b5-2cd5-a84c-bad6-ef150e5bb0d2"], + +Cell[BoxData["0.10043705144066703`"], "Output", + CellChangeTimes->{3.991319787574972*^9, 3.9917079908393784`*^9, + 3.9920895666534615`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"6024bd6b-6e50-8441-862d-a1c27017409b"] +}, 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[50]:=",ExpressionUUID->"f98bc7c8-85fb-084a-b458-13626583145a"], + +Cell[BoxData[ + RowBox[{"-", "89.89927414638353`"}]], "Output", + CellChangeTimes->{3.991319787641424*^9, 3.991707995240637*^9, + 3.9920895666934986`*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"de2d2458-8f68-504e-b597-423e1ea0ecdd"] +}, 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[51]:=",ExpressionUUID->"6c786e9f-9c96-a74d-b862-7a9d36c80ff3"], + +Cell[BoxData[ + RowBox[{"-", "147.91129574560722`"}]], "Output", + CellChangeTimes->{3.991319787711939*^9, 3.991707999380541*^9, + 3.992089566742504*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"203c028a-5239-a449-8ae3-644fe08a56d2"] +}, 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[52]:=",ExpressionUUID->"1360f25b-f201-d342-9386-d08effbd8b7c"], + +Cell[BoxData[ + RowBox[{"-", "77.38698403004418`"}]], "Output", + CellChangeTimes->{3.9913197877723045`*^9, 3.991708001954468*^9, + 3.9920895667890034`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"c540ce2e-be13-3746-a764-ff9eb366d2ec"] +}, 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[53]:=",ExpressionUUID->"b004de58-bcbb-394f-b2fd-06688ed38aa2"], + +Cell[BoxData[ + RowBox[{"-", "262.6843748771715`"}]], "Output", + CellChangeTimes->{3.991319787833355*^9, 3.9917080040838356`*^9, + 3.9920895668848705`*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"b97ef6ac-4863-024c-a071-c3d25f43a9dc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"97e8f194-8981-1c43-9b12-b3f386711df8"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210013676`*^9, 3.991708067458639*^9, + 3.9920895669137783`*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"b82df2d3-c4cb-3547-8977-978bcc2936d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"61db12b5-f6ed-8845-8b64-d191c22017b1"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210355663`*^9, 3.9917080674805565`*^9, + 3.992089566936777*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"419df752-ff67-c442-b67d-2d755d621556"] +}, 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[56]:=",ExpressionUUID->"4b8cdab9-4dd1-7342-bd88-d41412b74b13"], + +Cell[BoxData["258.50760713766147`"], "Output", + CellChangeTimes->{3.991320421068556*^9, 3.9917080675026455`*^9, + 3.9920895669487705`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"7cbcb330-460e-7942-a24c-ca7756105e9e"] +}, 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[57]:=",ExpressionUUID->"b3420833-1a1b-2143-b231-31b748c2d93e"], + +Cell[BoxData[ + RowBox[{"-", "173.4091077962894`"}]], "Output", + CellChangeTimes->{3.991320421098543*^9, 3.991708067510544*^9, + 3.9920895669727745`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"cb9accb0-c7b3-bc49-aa2f-941118b2dee7"] +}, 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[58]:=",ExpressionUUID->"8dd097e4-f073-474d-a8de-4689a097c666"], + +Cell[BoxData["214.93123633488517`"], "Output", + CellChangeTimes->{3.9913204211275444`*^9, 3.9917080675337753`*^9, + 3.9920895669797745`*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"d8da789a-84ef-8b47-939b-ea60b13a66c6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"799b926d-330c-ef4d-a57e-1b6f8705cde1"], + +Cell[BoxData["0.6559383278596986`"], "Output", + CellChangeTimes->{3.9913204211385536`*^9, 3.991708067540825*^9, + 3.992089567007345*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"da4d514a-bc59-c94e-92e7-8dfdfb4b2be4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"8a860e98-6228-994d-b57f-70d883630277"], + +Cell[BoxData[ + RowBox[{"-", "0.37229468143309563`"}]], "Output", + CellChangeTimes->{3.9913204211683464`*^9, 3.991708067561775*^9, + 3.992089567034361*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"bf76ab08-c8ed-9c48-b36b-4e0a3207a5c8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"823f3189-8819-5b4b-b312-887c63768c62"], + +Cell[BoxData[ + RowBox[{"-", "0.10565103139566565`"}]], "Output", + CellChangeTimes->{3.991320421199068*^9, 3.9917080675837746`*^9, + 3.99208956704138*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"437874f5-3414-cd45-9f55-fadedee5a628"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"edc53cc8-9ce5-024b-b94f-8f3921fb0e18"], + +Cell[BoxData["0.4612539649188019`"], "Output", + CellChangeTimes->{3.991320421228037*^9, 3.9917080675917854`*^9, + 3.992089567068819*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"03e084a1-0ff1-6a45-9faf-3818970a843f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"9f190aeb-c07f-854c-8cb7-9811ae89e314"], + +Cell[BoxData["1.4675571041126967`"], "Output", + CellChangeTimes->{3.9913204212585373`*^9, 3.991708067612774*^9, + 3.992089567091913*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"0d06c2eb-0ed1-ee44-88ae-3b5e939d1267"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"d7300424-6d62-ea42-9be0-892ffd46b8ff"], + +Cell[BoxData["1.9764491154865769`"], "Output", + CellChangeTimes->{3.9913204212884274`*^9, 3.991708067619776*^9, + 3.9920895670979404`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"548c39bf-db7c-3b4d-a8d5-814334bce92e"] +}, 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[65]:=",ExpressionUUID->"f5f351e8-0d6a-554a-9c43-3b8ea05148c1"], + +Cell[BoxData[ + RowBox[{"-", "7.349370511218955`"}]], "Output", + CellChangeTimes->{3.9913204213185234`*^9, 3.991708067640772*^9, + 3.992089567104452*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"1d6cb626-1d0d-db4b-9799-79da9b68ad64"] +}, 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[66]:=",ExpressionUUID->"003ccd93-6d5b-5e40-9f0c-75ab624dd3ea"], + +Cell[BoxData[ + RowBox[{"-", "23.078177749593607`"}]], "Output", + CellChangeTimes->{3.991320421349531*^9, 3.991708067662775*^9, + 3.9920895671316357`*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"fa8d6863-7f67-a941-9309-03fbf78d2459"] +}, 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[67]:=",ExpressionUUID->"017fe4d2-c148-3549-b189-3472f6f3af3f"], + +Cell[BoxData["251.15823662644252`"], "Output", + CellChangeTimes->{3.9913204213784294`*^9, 3.991708067669775*^9, + 3.9920895671566715`*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"9244feea-830d-2e4a-874e-9c262f951931"] +}, 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[68]:=",ExpressionUUID->"23a6d0ee-badc-2c44-96f7-21505f93ecd6"], + +Cell[BoxData[ + RowBox[{"-", "173.4091077962894`"}]], "Output", + CellChangeTimes->{3.9913204213904285`*^9, 3.991708067690773*^9, + 3.992089567162657*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"4e54e74d-0ca1-4143-8d17-b4338bbf1fcc"] +}, 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[69]:=",ExpressionUUID->"769d08d1-7626-304c-83c4-d7a104bed497"], + +Cell[BoxData["191.85305858529156`"], "Output", + CellChangeTimes->{3.991320421419428*^9, 3.991708067697775*^9, + 3.992089567189335*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"95d220c1-e479-d24d-ae82-338877bbea17"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"387b4c6e-e5d4-4f4c-a4e3-be280f7e732d"], + +Cell[BoxData["101.27199504223573`"], "Output", + CellChangeTimes->{3.9913204214494324`*^9, 3.9917080677197742`*^9, + 3.992089567218281*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"3f757a08-0acc-e648-beb1-61f5dad06dd3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"f8d54720-f6da-fb40-9968-41db4c718c1a"], + +Cell[BoxData["597.1387713314264`"], "Output", + CellChangeTimes->{3.991320421481529*^9, 3.991708067726776*^9, + 3.9920895672256775`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"225495ea-d252-974a-9aee-9b5f77938260"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.195350778744494"}]], "Input", + CellChangeTimes->{3.9918469322950954`*^9, + 3.9920899768101177`*^9},ExpressionUUID->"7c3e9316-835f-9e4b-9a49-\ +3b4d17d5ac6f"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991846933466057*^9, + 3.991846933469059*^9}},ExpressionUUID->"583d3f2a-de58-8142-9cfe-\ +a0e52258d17f"], + +Cell[BoxData[ + RowBox[{"f2", "=", "0.422139750624708"}]], "Input", + CellChangeTimes->{3.9918469351421127`*^9, + 3.9920899813374596`*^9},ExpressionUUID->"20139eb5-401a-4b4a-9fa1-\ +5ac66a5ce03b"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918469363719063`*^9, + 3.991846936376911*^9}},ExpressionUUID->"8f81c5bb-6006-6b49-93bb-\ +3460180e6492"], + +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->"d0f946fc-504f-c546-bd13-fc6956e18c7f"], + +Cell[BoxData["2.3793916761039797`*^-53"], "Output", + CellChangeTimes->{3.9913437871842365`*^9}, + CellLabel-> + "Out[399]=",ExpressionUUID->"eee3e6f5-bf54-104d-aacb-1c5d9bb3da72"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + 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"]}]], "*", "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, {3.991558360387518*^9, + 3.991558363336605*^9}},ExpressionUUID->"c6441294-7eb2-2949-9da6-\ +67254244512f"], + +Cell[BoxData["8.839304777809617`*^-55"], "Output", + CellChangeTimes->{3.9913437872132397`*^9}, + CellLabel-> + "Out[400]=",ExpressionUUID->"586d096a-2b7f-5a48-8ed7-66293c7d553c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + 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"]}]], "*", + 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}, + 3.991558357640812*^9},ExpressionUUID->"0e9cd1c8-cad4-dc4a-89c9-\ +68faf6ac59e1"], + +Cell[BoxData["2.0384594858915346`*^-54"], "Output", + CellChangeTimes->{3.9913437872412376`*^9}, + CellLabel-> + "Out[401]=",ExpressionUUID->"1ae1e3cd-cafb-3f45-96d4-d224b94de140"] +}, 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->"9284744b-e118-014c-8926-3a51fd91c939"], + +Cell[BoxData["27.24865368249903`"], "Output", + CellChangeTimes->{3.9913437872672386`*^9}, + CellLabel-> + "Out[402]=",ExpressionUUID->"b31939a9-5d35-324a-8d19-2eccc9ab2e0c"] +}, 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->"1aab4741-497a-9845-8d77-820f63cb5555"], + +Cell[BoxData["47.62007062351`"], "Output", + CellChangeTimes->{3.991343787279253*^9}, + CellLabel-> + "Out[403]=",ExpressionUUID->"ea6f6b0c-3057-e14d-9c39-2b31eb0f9621"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[404]:=",ExpressionUUID->"03d57d66-9155-cf4b-b103-8d5f98199ed8"], + +Cell[BoxData["0.718596406513947`"], "Output", + CellChangeTimes->{3.9913437873062572`*^9}, + CellLabel-> + "Out[404]=",ExpressionUUID->"bbbfe046-4dd1-6242-9bee-c0b76bc74cb2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[405]:=",ExpressionUUID->"dd583ad4-ba05-e74f-9c30-907aa111db1e"], + +Cell[BoxData["2.8712430196956706`"], "Output", + CellChangeTimes->{3.9913437873353844`*^9}, + CellLabel-> + "Out[405]=",ExpressionUUID->"fcfc958d-7982-7143-ba12-796e90324801"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[406]:=",ExpressionUUID->"a1b92a44-c90e-d942-9f90-47bfabccaf08"], + +Cell[BoxData["136.72879537516795`"], "Output", + CellChangeTimes->{3.991343787361582*^9}, + CellLabel-> + "Out[406]=",ExpressionUUID->"a7a34d03-2368-c24b-95db-201f96c75648"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[407]:=",ExpressionUUID->"51b3d1b0-fc32-2443-90dc-d335ab6c08c0"], + +Cell[BoxData["19.58078461858683`"], "Output", + CellChangeTimes->{3.9913437873734856`*^9}, + CellLabel-> + "Out[407]=",ExpressionUUID->"97bb7b25-6ae9-8d4d-86be-4c22b9038464"] +}, 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->"bb0f3cd0-3c69-9040-aa0d-76f7af168d91"], + +Cell[BoxData["0.03116264120310575`"], "Output", + CellChangeTimes->{3.9913437874002857`*^9}, + CellLabel-> + "Out[408]=",ExpressionUUID->"5427a866-023c-174b-9e6d-fbf8b8e707a5"] +}, 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->"c7e96eeb-d934-e843-a9c0-226435d03e38"], + +Cell[BoxData["5.020278507983894`"], "Output", + CellChangeTimes->{3.9913437875033875`*^9}, + CellLabel-> + "Out[409]=",ExpressionUUID->"0d169b1a-2d1c-7b44-8942-0f9754dbfde4"] +}, 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->"c90e2c4d-483b-8948-ad73-554cb9bb1353"], + +Cell[BoxData["0.011613560908040731`"], "Output", + CellChangeTimes->{3.9913437875342865`*^9}, + CellLabel-> + "Out[410]=",ExpressionUUID->"234d4d05-30cf-8546-8a4c-8e92b174dd54"] +}, 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->"344c5706-3a8a-754a-b4da-5866eb210a38"], + +Cell[BoxData["8.223604958038852`"], "Output", + CellChangeTimes->{3.9913437876352882`*^9}, + CellLabel-> + "Out[411]=",ExpressionUUID->"04e9f189-3e04-ae43-be68-86210fdb22c2"] +}, 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->"39da6bde-a34a-f944-af17-b87c664ce50c"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991343787650694*^9}, + CellLabel-> + "Out[412]=",ExpressionUUID->"0cadffd6-f139-f648-ad7f-793752291569"] +}, 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->"3c3f03ba-5eee-ac4e-84c3-b29e4adbaa6e"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913437876776943`*^9}, + CellLabel-> + "Out[413]=",ExpressionUUID->"4e20a900-1f64-424e-9fdb-3d89088a0768"] +}, 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->"ddf61768-a227-c447-bfc3-df30c7b64565"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913437877049465`*^9}, + CellLabel-> + "Out[414]=",ExpressionUUID->"068ebb27-1be5-6c40-8bf8-2f0268f5216d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"0a12571c-0d3c-\ +324d-9fb1-59d5c707bb07"], + +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.991846957646223*^9},ExpressionUUID->"61186e9c-fdd7-7943-9937-\ +691e3ab971c8"], + +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->"3bfa23d6-b5a3-e944-a9bb-ca6e68d969fe"], + +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->"b8fe04c8-adbe-0e49-b84c-7c9b51bb8636"], + +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->"427779f4-4b28-5543-9a01-503bd7cdf693"], + +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->"f6221017-7213-3b49-a432-06b611d306e1"], + +Cell[BoxData["5.020278507983898`"], "Output", + CellChangeTimes->{3.991343791131052*^9}, + CellLabel-> + "Out[415]=",ExpressionUUID->"8ac7cd76-8447-3745-aaee-2af284a32577"] +}, 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.9918469611416626`*^9},ExpressionUUID->"9256a2f6-45c2-e140-bcdd-\ +85d8e1970f4a"], + +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->"2a7e3aab-a746-1146-b27a-e663e8cd1152"], + +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->"7b5059be-83df-794a-9d63-d309a35a2ce1"], + +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->"53abd70a-2c4f-7046-be11-447ced8cdefb"], + +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->"64cbc54f-20f2-ce4f-b6f2-0ea91eeb179c"], + +Cell[BoxData["8.223604958038848`"], "Output", + CellChangeTimes->{3.991343794599764*^9}, + CellLabel-> + "Out[416]=",ExpressionUUID->"bd8591b1-ba8a-6b40-b518-84bec35d20f2"] +}, 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.991846968477251*^9},ExpressionUUID->"2543960d-965e-7a4e-aecb-\ +694d21d63061"], + +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->"609377ee-fc16-7c4a-9e56-8f28efda1b3b"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991846972527668*^9, + 3.9918469897830563`*^9}},ExpressionUUID->"e19ad739-7d82-2c45-9f2a-\ +a1d24bf6372a"], + +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->"108a1881-cb0d-bd45-a774-02403dfdab8d"], + +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->"fb491355-d244-9746-9ef1-167761fef655"], + +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->"a75a12d7-3727-3447-b8ef-6f1b5b957750"], + +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->"5a45253c-33f9-ee48-80d9-da0679c1ba8a"], + +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->"3fb98a86-5ada-4149-bdd3-377ee3650435"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L130", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellLabel-> + "In[420]:=",ExpressionUUID->"2efb0a57-1e82-4941-9ddf-43034c8e204d"], + +Cell[BoxData["10.362747935330784`"], "Output", + CellChangeTimes->{3.9913453868532257`*^9}, + CellLabel-> + "Out[420]=",ExpressionUUID->"856c94f8-a219-f048-b225-011837a6e00a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L130", "=", + 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", + CellLabel-> + "In[421]:=",ExpressionUUID->"b7e3ddd8-e22a-794d-b607-7a48a064fd4a"], + +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->"814ee749-2cde-7245-9b7e-69b30787da15"], + +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->"af05aa14-ccc3-9040-b043-2aa272509b41"], + +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->"c8d85ed0-fe8f-c945-af5e-55ea809c674a"], + +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->"320c3ecd-1b7b-6744-991f-5112ad4520bf"], + +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->"03e3bbb2-7d95-6f47-8763-c6796c705c92"] +}, 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->"3d764097-ec6b-e749-9f31-cab8832af315"], + +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->"a4ce5518-811f-8349-a17b-d2bf1297144e"], + +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->"f5111cd7-2c56-5e45-8f8e-8a05bf9b95a2"], + +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->"38176049-5d0a-d741-93c1-c658e0a1af06"], + +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->"d16a134c-2a3f-da45-9fb2-6550e1a86488"], + +Cell[BoxData["10.362747935330768`"], "Output", + CellChangeTimes->{3.991345792196575*^9}, + CellLabel-> + "Out[422]=",ExpressionUUID->"2f22685f-8c37-684f-9766-884eff532552"] +}, 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.991847002744938*^9, + 3.9918470078833466`*^9}},ExpressionUUID->"94c81ca6-5acf-1648-b9d8-\ +a303cc71dab7"], + +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->"4ed16eac-aa41-bc43-949b-97ab0e84980a"], + +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->"90cf97c3-411e-6d4b-bad4-f62835c46e4c"], + +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->"f57ff7ba-dfca-eb44-912d-da23358d49ca"], + +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->"b9781b1e-c411-054b-ac86-e24155108e57"], + +Cell[BoxData["0.32136877427435395`"], "Output", + CellChangeTimes->{3.991345799137081*^9}, + CellLabel-> + "Out[423]=",ExpressionUUID->"597cf6d6-a43f-8b49-bc71-101a9cb09e95"] +}, 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.9918470141153297`*^9, + 3.991847018285223*^9}},ExpressionUUID->"d789fb78-c161-1741-b7b8-\ +90fa3d585b38"], + +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->"42c57f6e-4641-0f42-b0dd-b86a5ad2dfe9"], + +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->"d128fb64-8fa5-1e4d-a5ed-889242afc70f"], + +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->"b905e7eb-c247-1242-a8bc-aaa9779d376e"], + +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->"fc538907-32f5-a34f-9b6b-76d90e786319"], + +Cell[BoxData["6.886509882261309`"], "Output", + CellChangeTimes->{3.991345804559931*^9}, + CellLabel-> + "Out[424]=",ExpressionUUID->"de957708-f977-9848-9f79-7201648cd385"] +}, 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.9918470289577656`*^9, + 3.99184703187117*^9}},ExpressionUUID->"98f8448c-bc27-4646-9fd2-\ +f2c22cf9b4d2"], + +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->"cc7d691e-f34a-f24f-9ae8-91d0fac0de8f"], + +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->"e2a59359-7911-7442-a0f3-73fa99ebe8ee"], + +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->"191c175a-4a14-3f4a-aca6-3833ea4390d8"], + +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->"e149580c-1c12-0145-b9d5-38404db9a3ce"], + +Cell[BoxData["18.478556086442907`"], "Output", + CellChangeTimes->{3.991345807954506*^9}, + CellLabel-> + "Out[425]=",ExpressionUUID->"497174af-5058-2544-9743-796d2255db6b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991847036891796*^9, + 3.9918470411375484`*^9}},ExpressionUUID->"c0718b2f-c4a4-934b-afa0-\ +c67e8ff1bd9c"], + +Cell[BoxData["0.028488532115740543`"], "Output", + CellChangeTimes->{3.991345807987507*^9}, + CellLabel-> + "Out[426]=",ExpressionUUID->"e7135af2-919e-634d-88c2-bc305d038b62"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991847043896475*^9, 3.991847046265915*^9}, + 3.991923721144022*^9},ExpressionUUID->"73fa861d-79d1-6043-8b49-\ +ac6d11636734"], + +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->"6c38f559-2389-4242-bc4d-38979252b0b4"], + +Cell[BoxData["8.947947137013426`"], "Output", + CellChangeTimes->{3.991345808020666*^9}, + CellLabel-> + "Out[428]=",ExpressionUUID->"fea30492-36d2-7045-88cc-aae9158fb839"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[430]:=",ExpressionUUID->"e3e9365e-1e6c-9843-9e29-11080a5f4701"], + +Cell[BoxData["1.2539951617800844`"], "Output", + CellChangeTimes->{3.9913458080616665`*^9}, + CellLabel-> + "Out[430]=",ExpressionUUID->"e81ecb9b-5a01-e843-870e-5e384d1e28cc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[433]:=",ExpressionUUID->"123e61eb-c41d-2242-a32d-5c1fffa2cf57"], + +Cell[BoxData["11.220682417678793`"], "Output", + CellChangeTimes->{3.991345808188246*^9}, + CellLabel-> + "Out[433]=",ExpressionUUID->"43bb0088-17d8-d048-a253-fc8b6be59a68"] +}, 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->"79eeca66-2446-f741-8700-944472de348f"], + +Cell[BoxData["0.04214145338799881`"], "Output", + CellChangeTimes->{3.991345808220566*^9}, + CellLabel-> + "Out[434]=",ExpressionUUID->"338ae54a-64ed-994b-af22-96a296166408"] +}, 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->"9790a07a-bad8-674c-aada-41e3d20aeff5"], + +Cell[BoxData["4.317080886816563`"], "Output", + CellChangeTimes->{3.9913458083195686`*^9}, + CellLabel-> + "Out[435]=",ExpressionUUID->"e206cd3a-25d4-eb48-899a-45dd7defc5fe"] +}, 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->"cd927d7c-f3cd-534f-b509-5ac03fad6276"], + +Cell[BoxData["0.012862376162526763`"], "Output", + CellChangeTimes->{3.991345808334568*^9}, + CellLabel-> + "Out[436]=",ExpressionUUID->"a5cbfc1b-c447-724b-a144-ad8475ce711a"] +}, 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->"6d1a5282-01c9-b240-a0b0-7e2aa562e7f8"], + +Cell[BoxData["7.814196669618258`"], "Output", + CellChangeTimes->{3.991345808432392*^9}, + CellLabel-> + "Out[437]=",ExpressionUUID->"6f6d3be7-a8ef-df41-96c9-fca809317a9d"] +}, 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->"b3f5d88a-186d-e74b-84a0-eac59afb71e7"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991345808448488*^9}, + CellLabel-> + "Out[438]=",ExpressionUUID->"e1c5a778-dccd-8443-98b9-732ae795c2ac"] +}, 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->"712c99dc-f88a-984c-9ea1-ddb538fa1846"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913458084773808`*^9}, + CellLabel-> + "Out[439]=",ExpressionUUID->"4063f10b-c9dc-f24d-8ad2-77cf2302aa5c"] +}, 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->"46415a4e-0839-a640-a9be-83fc8d482c42"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913458085134735`*^9}, + CellLabel-> + "Out[440]=",ExpressionUUID->"fa8f93a6-4eb6-b44c-a934-4b4d3f7a051e"] +}, 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.991847118583315*^9},ExpressionUUID->"33a64b79-213d-c445-8c32-\ +436b16263096"], + +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->"88717102-665c-9946-ac95-81e91596f1a3"], + +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->"fef05ccf-1889-484a-ad95-0ed0a53f85b4"], + +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->"c1de584c-2f89-774b-b751-1278ba9a8d1f"], + +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->"24f5f743-5338-9641-885e-a4948c5c9d6e"], + +Cell[BoxData["4.317080886816564`"], "Output", + CellChangeTimes->{3.9913458125059433`*^9}, + CellLabel-> + "Out[441]=",ExpressionUUID->"e0668815-ad18-f946-aefd-da0b1916d420"] +}, 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.9918471223197117`*^9},ExpressionUUID->"a558e928-6d30-db4d-81da-\ +8e12b46e0cf1"], + +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->"52373f6a-60b2-bf48-9785-d2499fa543af"], + +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->"1ff9836d-6279-2340-8080-e305c05b649e"], + +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->"983d828c-78d1-1441-bba2-2e64fa6b8f6f"], + +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->"dd795d07-bc4f-2b40-8351-e980cc967c15"], + +Cell[BoxData["7.8141966696182585`"], "Output", + CellChangeTimes->{3.991345816415531*^9}, + CellLabel-> + "Out[442]=",ExpressionUUID->"17c8f52c-8091-bf41-b7c9-160a5315608c"] +}, 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.9918471264328136`*^9},ExpressionUUID->"c2f625be-331c-a24f-ad5b-\ +6daaa9131a45"], + +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->"7a9be15e-f600-1b49-a731-c78d88a43ea5"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918471776293755`*^9, {3.9918474259081*^9, + 3.991847426207552*^9}},ExpressionUUID->"e083cd39-87a5-ca4f-ab3f-\ +88bfd4c0e0d2"], + +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->"fcd06738-edc8-474f-b579-5c8fba66d5d8"], + +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->"9de7c9a4-4b93-0b4f-9a25-4f1d7917ab21"], + +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->"03ef6a33-8701-ef42-bc6a-4a21f0a09522"], + +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->"038a3a74-0bc1-c44d-9c90-bf60eda4a7bc"], + +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->"1c17de43-a886-0b4f-ac6b-9644b9c88ec7"] +}, 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[448]:=",ExpressionUUID->"94a1b9ea-c98a-ee4e-bb2c-43256dd887e6"], + +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->"f479187b-9eda-204a-88bb-4f36ab0a2712"], + +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->"f832b030-dfa8-5847-8a8e-714d29039227"], + +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->"c86ba442-eaba-9f46-8c0c-52b951d5bfb0"], + +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->"dc6d10bb-5f0b-8545-9e40-4768fde2dbc1"], + +Cell[BoxData["10.362747935330763`"], "Output", + CellChangeTimes->{3.991347578228073*^9}, + CellLabel-> + "Out[448]=",ExpressionUUID->"7d6c1b18-ad7f-3448-8021-ab5886691637"] +}, 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.9918472030801735`*^9, + 3.9918472073134327`*^9}},ExpressionUUID->"ad8fe405-3f1b-4e4d-b1dd-\ +9e266c1ec152"], + +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->"01da16e0-14b6-bf48-a829-a262126159db"], + +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->"4bf24ca6-4e30-e94a-be43-cf8e5608fc87"], + +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->"006741fa-e30f-4b44-972c-035fe0e9a3bf"], + +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->"cf218763-64fa-3446-a7cd-1c601e3a0059"], + +Cell[BoxData["1.4359199941844076`"], "Output", + CellChangeTimes->{3.9913475858902473`*^9}, + CellLabel-> + "Out[449]=",ExpressionUUID->"65c43bde-9dc5-1442-ba50-c6fa98b8835b"] +}, 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.9918472136550217`*^9, + 3.9918472163537464`*^9}},ExpressionUUID->"6531fc5f-fdb5-a54c-abb2-\ +46a9d151a60a"], + +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->"592083af-558d-0641-832e-e27a751915bd"], + +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->"66370498-e112-fa4b-a8af-1fcc4f9e1213"], + +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->"84900485-cd47-2c49-9717-bd11f4470d4b"], + +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->"07a10e89-58d6-6b49-8cb3-9461aae3594b"], + +Cell[BoxData["5.09241659576143`"], "Output", + CellChangeTimes->{3.9913475931276417`*^9}, + CellLabel-> + "Out[450]=",ExpressionUUID->"82e8998a-3c72-6247-9df9-94b065408465"] +}, 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.9918472906473484`*^9, + 3.9918472935952396`*^9}},ExpressionUUID->"36639f46-66ce-b34a-8a89-\ +e422f177de00"], + +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->"fda4f669-ecf2-4d4e-b48b-3afcc84ca1c4"], + +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->"36a981e6-ab0a-6c43-9d36-e415d38164fb"], + +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->"4b3aecb3-626b-d84a-940e-7ff8608fd52c"], + +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->"8319d34b-55d1-094b-9206-d0c33b2abbd6"], + +Cell[BoxData["16.684462799943017`"], "Output", + CellChangeTimes->{3.9913475973006153`*^9}, + CellLabel-> + "Out[451]=",ExpressionUUID->"c60c830d-34c5-f541-b310-49552ac2034c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991847296668375*^9, + 3.991847300654911*^9}},ExpressionUUID->"f76b8e94-11bd-a34a-a9ba-\ +20d331e64105"], + +Cell[BoxData["0.15578016747845222`"], "Output", + CellChangeTimes->{3.991347597341627*^9}, + CellLabel-> + "Out[452]=",ExpressionUUID->"278ae42a-5de9-444e-9245-d09cf8d28509"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.99184730319516*^9, 3.991847305889347*^9}, + 3.991923738541313*^9},ExpressionUUID->"bb206cb0-d23b-e24e-876b-\ +f9f1b2cbe57a"], + +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->"4fd11557-be32-b042-a20e-65ee1f3d31f0"], + +Cell[BoxData["12.368532070745184`"], "Output", + CellChangeTimes->{3.991347597372614*^9}, + CellLabel-> + "Out[454]=",ExpressionUUID->"8f491dd5-7bfd-b341-b43c-c3a9d183ce9d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[456]:=",ExpressionUUID->"d73f0f23-b2e1-e243-aa8d-70b95de7c666"], + +Cell[BoxData["1.0665924029125342`"], "Output", + CellChangeTimes->{3.991347597428034*^9}, + CellLabel-> + "Out[456]=",ExpressionUUID->"b9d3b5de-b2b7-e44d-bc5c-44767d89cf65"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[459]:=",ExpressionUUID->"8870b029-14dd-d441-82f4-8690b0fb603d"], + +Cell[BoxData["13.192182341836848`"], "Output", + CellChangeTimes->{3.9913475974971066`*^9}, + CellLabel-> + "Out[459]=",ExpressionUUID->"6b8a7f35-f691-844e-aeda-7cce2cf01b4d"] +}, 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->"78b2a753-17fc-484f-a953-d278346207ad"], + +Cell[BoxData["0.038908834568544604`"], "Output", + CellChangeTimes->{3.991347597528105*^9}, + CellLabel-> + "Out[460]=",ExpressionUUID->"4011df14-d624-cf4c-ba4a-7e4d30ff836f"] +}, 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->"19eddd1c-d1b6-4344-85e0-95e5a6b87d4b"], + +Cell[BoxData["4.492838724335521`"], "Output", + CellChangeTimes->{3.9913475976441536`*^9}, + CellLabel-> + "Out[461]=",ExpressionUUID->"d4677fbf-c75c-ca43-b340-204087aa8c86"] +}, 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->"75baa02d-f77e-e542-9519-8afd2f729182"], + +Cell[BoxData["0.012544276227890849`"], "Output", + CellChangeTimes->{3.991347597671173*^9}, + CellLabel-> + "Out[462]=",ExpressionUUID->"57c3e5a5-34bb-e842-b4a4-6bfbe7fe997b"] +}, 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->"78cdb0f4-4e26-2f44-b234-6fa78a24207f"], + +Cell[BoxData["7.912653285153153`"], "Output", + CellChangeTimes->{3.9913475977705975`*^9}, + CellLabel-> + "Out[463]=",ExpressionUUID->"dc513bc7-ae9a-0043-ae49-195b0da7d4ae"] +}, 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->"1d69257c-6504-2041-93e1-2a57c1dfc14b"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913475977856007`*^9}, + CellLabel-> + "Out[464]=",ExpressionUUID->"8d685ee2-dc72-774b-bbc8-778682e632d2"] +}, 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->"482f62c1-da9c-ae43-adda-68c26afa85d0"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991347597813669*^9}, + CellLabel-> + "Out[465]=",ExpressionUUID->"c69ac66b-aa24-cb4d-9510-bfa972119e6b"] +}, 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->"b28b6b1b-1ce5-eb47-bd61-38bdc082dbc8"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913475978426323`*^9}, + CellLabel-> + "Out[466]=",ExpressionUUID->"1c470c55-d28c-4543-be1f-6a28be0ba400"] +}, 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.991847320104244*^9},ExpressionUUID->"61630af4-ce16-4645-bd89-\ +fd67d7ba48d8"], + +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->"43a2687a-b1fe-f34f-89ff-c066d808b1f9"], + +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->"4af47df9-8236-7241-95f9-152813b1879a"], + +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->"6b7cc034-1771-4d40-a1be-6400e7b80609"], + +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->"3f4e0008-1259-8f45-ad63-fd8d4329e9ae"], + +Cell[BoxData["4.492838724335523`"], "Output", + CellChangeTimes->{3.9913476018505497`*^9}, + CellLabel-> + "Out[467]=",ExpressionUUID->"e57330fd-c13c-984d-8ddc-a0b641a07ec3"] +}, 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.991847326557415*^9},ExpressionUUID->"b8324bb7-c44f-6342-bd59-\ +920c679e8136"], + +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->"29405dbd-598a-ef40-a6b1-6fd2363b1575"], + +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->"ad96af95-7997-6e4b-bb29-aba6a927545b"], + +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->"bbc2b8eb-1cbf-044c-9f8a-9437e2069bad"], + +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->"153f64f2-c43c-3945-815f-e938e8bf1d5a"], + +Cell[BoxData["7.912653285153152`"], "Output", + CellChangeTimes->{3.9913476058912296`*^9}, + CellLabel-> + "Out[468]=",ExpressionUUID->"cd0f4614-a592-5544-b5ef-4fad0c35ca7c"] +}, 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.9918473312384872`*^9},ExpressionUUID->"a8eb6c66-2550-3146-b69f-\ +2cd48e2cafc8"], + +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->"fde4983c-8a31-cc4e-87c4-d107fc324654"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918473358384743`*^9, {3.9918474091630096`*^9, + 3.9918474093563137`*^9}},ExpressionUUID->"29fc72a2-353e-bf42-8947-\ +0608fa83191a"], + +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->"02febf10-3e5e-7c4e-a0cc-5555abda60b9"], + +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->"6d9e5c2e-5d6c-ee42-9183-8e53cad47804"], + +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->"b36a228f-868c-ba41-aa49-f11f9ef30d38"], + +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->"9512baf9-a3b8-4d40-ba0e-e787bd767c9e"], + +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->"1d2e0852-2fc7-f64d-be49-84b2bbb91a03"] +}, 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->"0a506e45-082d-6641-9693-c99384fc0ac2"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"a616c950-333c-c34e-b37c-e912edc150ff"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"5e38a489-6451-064f-b86a-c8e93d83815c"] +}, 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.9918473569283657`*^9, + 3.991847361118864*^9}},ExpressionUUID->"1d3ec6f9-6ce8-8a4d-95c2-\ +733ef0de97b0"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"e36a792d-6d34-e344-80e0-65db5822f94f"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"0dfefdcd-d1b3-8f47-b86d-c0f72147cb73"], + +Cell[BoxData["1.0713232818739324`"], "Output",ExpressionUUID->"8272fc8d-2aef-284d-85ad-5d09a4d55c26"] +}, 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.991847365260393*^9, + 3.991847368101671*^9}},ExpressionUUID->"b5bf5915-d0df-a045-96bd-\ +1dffa35c1421"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"69e9eac8-2173-184e-8807-5fd844762da7"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"baaf252e-485c-b643-a22f-956a9ee4c418"], + +Cell[BoxData["5.515504100347031`"], "Output",ExpressionUUID->"8828a790-0478-5f4d-95d9-3a6a0e7217e5"] +}, 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.99184737148876*^9, + 3.9918473756828785`*^9}},ExpressionUUID->"0f4fb648-c81c-bf44-8487-\ +747d613813fd"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"51550cf4-6c37-c443-851d-569d8808cf04"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"d7f343d4-811d-2f43-8fb6-ccefbdc3518f"], + +Cell[BoxData["17.107550304528036`"], "Output",ExpressionUUID->"7a1f905d-9581-5744-a98c-76e2b1fb25bb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918473798697987`*^9, + 3.991847383988016*^9}},ExpressionUUID->"2d256a7e-c4c8-f746-8004-\ +9b6b43692a68"], + +Cell[BoxData["0.11028946354837708`"], "Output",ExpressionUUID->"59ec06ef-9d4f-1d47-8ac6-5acc72d626ee"] +}, 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->"0a22498a-17e0-084c-99f4-08fa56dfe4d0" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 250, 5, 28, "Input",ExpressionUUID->"cac2cd5b-7a8e-d241-b51a-681e82b94538"], +Cell[829, 29, 170, 2, 32, "Output",ExpressionUUID->"f589f12b-fab2-7f43-8b3b-41ce25921bb9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1036, 36, 326, 5, 28, "Input",ExpressionUUID->"765f73ce-0f72-d34b-9dc1-d08e1ddd8b41"], +Cell[1365, 43, 255, 4, 32, "Output",ExpressionUUID->"5c80a062-b127-4342-b438-e22c3bffdc6c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1657, 52, 252, 5, 28, "Input",ExpressionUUID->"57023e31-4eb4-7c40-a2ca-eed12cc07e7d"], +Cell[1912, 59, 252, 4, 32, "Output",ExpressionUUID->"35cc06b6-d5bd-dd48-9222-db9439a92c31"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2201, 68, 175, 3, 28, "Input",ExpressionUUID->"7c76b263-a094-c848-9119-e7b7c5c8b33e"], +Cell[2379, 73, 225, 3, 32, "Output",ExpressionUUID->"45722560-3322-5448-9044-7b75c34a8cde"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2641, 81, 257, 7, 43, "Input",ExpressionUUID->"681924aa-3c83-5147-9887-0e7540c03c76"], +Cell[2901, 90, 243, 3, 32, "Output",ExpressionUUID->"cbe79e46-1a9e-2445-8952-99b6cb4640c1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3181, 98, 131, 2, 28, "Input",ExpressionUUID->"976b5913-cd4f-ea4e-8108-aa217a5c8375"], +Cell[3315, 102, 229, 3, 32, "Output",ExpressionUUID->"2b5ccbe7-51fa-a84b-9c94-52a27177c050"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3581, 110, 276, 6, 28, "Input",ExpressionUUID->"7352414e-522c-5b40-a190-c5b61b5c98ba"], +Cell[3860, 118, 241, 3, 32, "Output",ExpressionUUID->"622263ba-dd4b-a44f-8662-d84a3c5256f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4138, 126, 257, 7, 28, "Input",ExpressionUUID->"57c655f2-5b8b-ba49-9da4-7ae771d8ea11"], +Cell[4398, 135, 240, 3, 32, "Output",ExpressionUUID->"f449025f-df46-294f-a897-7619d70d7831"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4675, 143, 236, 4, 28, "Input",ExpressionUUID->"6f01a783-a6f6-d246-8f99-9fae22626f15"], +Cell[4914, 149, 260, 3, 32, "Output",ExpressionUUID->"cd0cd067-672c-a548-b7a7-8b30b98d090b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5211, 157, 238, 4, 28, "Input",ExpressionUUID->"de63cadb-71f8-5448-af8e-cb62d3aaab1f"], +Cell[5452, 163, 262, 3, 32, "Output",ExpressionUUID->"8af1ee3f-4c4e-0d4e-ac43-18b17c4979c6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5751, 171, 129, 2, 28, "Input",ExpressionUUID->"71affa2f-4276-a949-beeb-b74ca87ca086"], +Cell[5883, 175, 224, 3, 32, "Output",ExpressionUUID->"2666bd97-b3c1-464a-88d1-ecdd537aaeba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6144, 183, 129, 2, 28, "Input",ExpressionUUID->"60c28f4b-b367-9e4d-bbb5-a9d160b51f5b"], +Cell[6276, 187, 221, 3, 25, "Output",ExpressionUUID->"7190c8ae-94dc-c548-9f4c-d3807bb40616"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6534, 195, 557, 19, 65, "Input",ExpressionUUID->"90cef9fa-c611-7348-ba2d-982329185ff6"], +Cell[7094, 216, 216, 3, 25, "Output",ExpressionUUID->"b1d37b20-420a-904e-bad0-d0b9d8762e05"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7347, 224, 557, 19, 65, "Input",ExpressionUUID->"75df842a-02ff-c344-9b23-2784968675a0"], +Cell[7907, 245, 220, 3, 25, "Output",ExpressionUUID->"2f5c4ebe-b889-3d4e-b601-6b51b8035770"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8164, 253, 1492, 48, 65, "Input",ExpressionUUID->"10f97c5d-46b2-3144-80cd-ed5d21a3548d"], +Cell[9659, 303, 214, 3, 25, "Output",ExpressionUUID->"9ddb72bf-e169-ed46-8b61-a841e3aee47d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9910, 311, 1331, 44, 65, "Input",ExpressionUUID->"fa6143e8-b659-ec4b-8b04-5fcddd2374e3"], +Cell[11244, 357, 234, 4, 25, "Output",ExpressionUUID->"f08f1eba-855a-bf40-9706-18e1d83e2fcd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[11515, 366, 1331, 44, 65, "Input",ExpressionUUID->"f4cf167f-8841-9d4e-8eb5-91cf0f35398c"], +Cell[12849, 412, 238, 4, 25, "Output",ExpressionUUID->"abb2a3c3-ae11-bc4a-9b7b-ebcebafde6a0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13124, 421, 1492, 48, 65, "Input",ExpressionUUID->"2acf2fb0-4aba-e940-9a1a-8f3161370251"], +Cell[14619, 471, 214, 3, 25, "Output",ExpressionUUID->"a1ae7e51-ba32-8043-ae74-cd8985326dab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14870, 479, 131, 2, 22, "Input",ExpressionUUID->"c0c43d57-8940-c749-9cda-64a6404b66e9"], +Cell[15004, 483, 200, 3, 25, "Output",ExpressionUUID->"0ae6f4f8-f9bd-5849-894f-b5b1ca7386ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15241, 491, 177, 3, 22, "Input",ExpressionUUID->"b0e7a16f-2516-3b4f-8d6b-f4e0f4617f2e"], +Cell[15421, 496, 199, 3, 25, "Output",ExpressionUUID->"55a5fd0d-1120-da49-8193-a9b70dc7526e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15657, 504, 134, 2, 22, "Input",ExpressionUUID->"cd5604ee-6f1e-b24a-91bb-c7eddb427fa0"], +Cell[15794, 508, 204, 3, 25, "Output",ExpressionUUID->"e8605886-02f7-2743-be69-4cdec43166a3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16035, 516, 219, 4, 22, "Input",ExpressionUUID->"749fce91-885f-4846-8491-cca652099dda"], +Cell[16257, 522, 215, 4, 25, "Output",ExpressionUUID->"df7aaf7a-cf64-b249-9978-28906fb080b7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16509, 531, 134, 2, 22, "Input",ExpressionUUID->"3b8a40e0-b91f-fa4d-b6c8-2d493f5c3558"], +Cell[16646, 535, 204, 3, 25, "Output",ExpressionUUID->"abbd8a50-b512-e94a-9b97-2213291b626f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16887, 543, 302, 5, 22, "Input",ExpressionUUID->"aa498698-c92e-ad4c-b001-93e29e3ec952"], +Cell[17192, 550, 150, 2, 25, "Output",ExpressionUUID->"aa931738-2ec9-3443-9ba4-b89592e855e3"] +}, Open ]], +Cell[17357, 555, 173, 2, 22, "Input",ExpressionUUID->"19555bbd-72f4-5f40-b1ec-d9a91fefb12c"], +Cell[CellGroupData[{ +Cell[17555, 561, 271, 5, 22, "Input",ExpressionUUID->"abfde232-beb2-0a45-8272-cf72f0cf14be"], +Cell[17829, 568, 198, 3, 25, "Output",ExpressionUUID->"beee0e36-fd05-034b-b140-4e7520459554"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18064, 576, 219, 4, 22, "Input",ExpressionUUID->"3bbcda1d-22f2-ab48-9f1c-ed45b5d64081"], +Cell[18286, 582, 202, 3, 25, "Output",ExpressionUUID->"2a2979d9-7f48-1749-8456-d5b765d10a24"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18525, 590, 350, 10, 35, "Input",ExpressionUUID->"16ce4d3c-be88-234b-aae7-f614687a50a4"], +Cell[18878, 602, 221, 3, 25, "Output",ExpressionUUID->"e673fafb-bfeb-3c48-bb22-ae764c304638"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19136, 610, 350, 10, 35, "Input",ExpressionUUID->"a3dcfbf8-2af7-194d-86cf-1123de47b437"], +Cell[19489, 622, 234, 4, 25, "Output",ExpressionUUID->"c8e25790-773d-ff44-be2b-0904c360b111"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19760, 631, 992, 26, 92, "Input",ExpressionUUID->"2e2251e8-37c9-a048-af78-35206d5bb258"], +Cell[20755, 659, 215, 3, 25, "Output",ExpressionUUID->"318ccb2a-f7e6-8e42-82b0-00adbd9ae759"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21007, 667, 199, 3, 22, "Input",ExpressionUUID->"ebaec148-8f86-b044-8075-8835ab2788aa"], +Cell[21209, 672, 202, 3, 25, "Output",ExpressionUUID->"00bb7a1f-0a67-ce4f-a954-9c3e029c3ae9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21448, 680, 275, 4, 22, "Input",ExpressionUUID->"7583ced7-bdc7-6e41-8eca-bc56ffb514c3"], +Cell[21726, 686, 156, 2, 25, "Output",ExpressionUUID->"1aa7176f-1384-b04b-bc10-490f71072d6f"] +}, Open ]], +Cell[21897, 691, 175, 2, 22, "Input",ExpressionUUID->"bfe7fd5f-36f4-9043-8f24-3d33a5f1cd5d"], +Cell[CellGroupData[{ +Cell[22097, 697, 325, 5, 22, "Input",ExpressionUUID->"68249122-ae58-1a46-a7cf-44f3aaaec1a0"], +Cell[22425, 704, 156, 2, 25, "Output",ExpressionUUID->"a0315835-4aa3-264e-b645-4b61ea14caea"] +}, Open ]], +Cell[22596, 709, 173, 2, 22, "Input",ExpressionUUID->"0ecbb601-4db9-fd40-9642-bb595261ffbe"], +Cell[CellGroupData[{ +Cell[22794, 715, 324, 5, 22, "Input",ExpressionUUID->"e056798a-b0a6-244a-98dd-2c0623a197dc"], +Cell[23121, 722, 156, 2, 25, "Output",ExpressionUUID->"15bc1d5d-9cc9-5b45-8642-d52eded2f2e7"] +}, Open ]], +Cell[23292, 727, 175, 2, 22, "Input",ExpressionUUID->"6b9f2578-3f8a-2a4a-880c-5b333a76a337"], +Cell[CellGroupData[{ +Cell[23492, 733, 349, 6, 37, "Input",ExpressionUUID->"2d3bb20e-8f7b-b84a-a54c-6b05eb6c5c2d"], +Cell[23844, 741, 156, 2, 25, "Output",ExpressionUUID->"b2dea668-1e96-224b-976c-2e7312644515"] +}, Open ]], +Cell[24015, 746, 175, 2, 22, "Input",ExpressionUUID->"363e18ca-1763-6446-9e64-8e05b0be105b"], +Cell[CellGroupData[{ +Cell[24215, 752, 294, 5, 37, "Input",ExpressionUUID->"a688984f-c361-3a45-b79c-d0342428eda6"], +Cell[24512, 759, 154, 2, 25, "Output",ExpressionUUID->"bd5ae05e-4ff6-2740-bd99-95945875b9da"] +}, Open ]], +Cell[24681, 764, 173, 2, 22, "Input",ExpressionUUID->"3f9e23f5-fc89-6841-b922-c86c03fa6c3c"], +Cell[CellGroupData[{ +Cell[24879, 770, 294, 5, 37, "Input",ExpressionUUID->"4195867e-6da8-9849-8401-d4651cc40346"], +Cell[25176, 777, 156, 2, 25, "Output",ExpressionUUID->"4a02a628-2173-a046-9331-38dd16bd50c8"] +}, Open ]], +Cell[25347, 782, 171, 2, 22, "Input",ExpressionUUID->"f70ca6e7-0115-8841-91ec-fa06f4b3bbb9"], +Cell[CellGroupData[{ +Cell[25543, 788, 322, 6, 37, "Input",ExpressionUUID->"65955152-a7c0-a34c-9538-72598dd4e217"], +Cell[25868, 796, 154, 2, 25, "Output",ExpressionUUID->"27d7032b-7a4a-434b-b1f4-e5c9e775de1e"] +}, Open ]], +Cell[26037, 801, 175, 2, 22, "Input",ExpressionUUID->"c15894e2-517c-2746-92be-c75409f84bc2"], +Cell[CellGroupData[{ +Cell[26237, 807, 268, 5, 37, "Input",ExpressionUUID->"9311b3d3-5cdc-a848-9d00-7476b81057a9"], +Cell[26508, 814, 155, 2, 25, "Output",ExpressionUUID->"58b09c99-ec14-b145-9488-061afc84f9e4"] +}, Open ]], +Cell[26678, 819, 171, 2, 22, "Input",ExpressionUUID->"2ca52c32-2723-2448-acce-d48ce3360943"], +Cell[CellGroupData[{ +Cell[26874, 825, 19809, 485, 1553, "Input",ExpressionUUID->"90697ce2-0e5d-5e45-a1a0-d1ec7b4c09f3"], +Cell[46686, 1312, 215, 3, 25, "Output",ExpressionUUID->"04f9c83b-9c0e-0c41-9465-e5f1803421f4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[46938, 1320, 19748, 489, 1579, "Input",ExpressionUUID->"2a8a85b5-2cd5-a84c-bad6-ef150e5bb0d2"], +Cell[66689, 1811, 219, 3, 25, "Output",ExpressionUUID->"6024bd6b-6e50-8441-862d-a1c27017409b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[66945, 1819, 19748, 483, 1572, "Input",ExpressionUUID->"f98bc7c8-85fb-084a-b458-13626583145a"], +Cell[86696, 2304, 232, 4, 25, "Output",ExpressionUUID->"de2d2458-8f68-504e-b597-423e1ea0ecdd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[86965, 2313, 22534, 553, 1766, "Input",ExpressionUUID->"6c786e9f-9c96-a74d-b862-7a9d36c80ff3"], +Cell[109502, 2868, 231, 4, 25, "Output",ExpressionUUID->"203c028a-5239-a449-8ae3-644fe08a56d2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[109770, 2877, 22535, 553, 1773, "Input",ExpressionUUID->"1360f25b-f201-d342-9386-d08effbd8b7c"], +Cell[132308, 3432, 234, 4, 25, "Output",ExpressionUUID->"c540ce2e-be13-3746-a764-ff9eb366d2ec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[132579, 3441, 25491, 626, 1984, "Input",ExpressionUUID->"b004de58-bcbb-394f-b2fd-06688ed38aa2"], +Cell[158073, 4069, 234, 4, 25, "Output",ExpressionUUID->"b97ef6ac-4863-024c-a071-c3d25f43a9dc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[158344, 4078, 130, 2, 22, "Input",ExpressionUUID->"97e8f194-8981-1c43-9b12-b3f386711df8"], +Cell[158477, 4082, 200, 3, 25, "Output",ExpressionUUID->"b82df2d3-c4cb-3547-8977-978bcc2936d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[158714, 4090, 130, 2, 22, "Input",ExpressionUUID->"61db12b5-f6ed-8845-8b64-d191c22017b1"], +Cell[158847, 4094, 200, 3, 25, "Output",ExpressionUUID->"419df752-ff67-c442-b67d-2d755d621556"] +}, Open ]], +Cell[CellGroupData[{ +Cell[159084, 4102, 1144, 39, 46, "Input",ExpressionUUID->"4b8cdab9-4dd1-7342-bd88-d41412b74b13"], +Cell[160231, 4143, 218, 3, 25, "Output",ExpressionUUID->"7cbcb330-460e-7942-a24c-ca7756105e9e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[160486, 4151, 1041, 35, 46, "Input",ExpressionUUID->"b3420833-1a1b-2143-b231-31b748c2d93e"], +Cell[161530, 4188, 232, 4, 25, "Output",ExpressionUUID->"cb9accb0-c7b3-bc49-aa2f-941118b2dee7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[161799, 4197, 1144, 39, 46, "Input",ExpressionUUID->"8dd097e4-f073-474d-a8de-4689a097c666"], +Cell[162946, 4238, 220, 3, 25, "Output",ExpressionUUID->"d8da789a-84ef-8b47-939b-ea60b13a66c6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[163203, 4246, 108, 1, 22, "Input",ExpressionUUID->"799b926d-330c-ef4d-a57e-1b6f8705cde1"], +Cell[163314, 4249, 216, 3, 25, "Output",ExpressionUUID->"da4d514a-bc59-c94e-92e7-8dfdfb4b2be4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[163567, 4257, 108, 1, 22, "Input",ExpressionUUID->"8a860e98-6228-994d-b57f-70d883630277"], +Cell[163678, 4260, 234, 4, 25, "Output",ExpressionUUID->"bf76ab08-c8ed-9c48-b36b-4e0a3207a5c8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[163949, 4269, 108, 1, 22, "Input",ExpressionUUID->"823f3189-8819-5b4b-b312-887c63768c62"], +Cell[164060, 4272, 233, 4, 25, "Output",ExpressionUUID->"437874f5-3414-cd45-9f55-fadedee5a628"] +}, Open ]], +Cell[CellGroupData[{ +Cell[164330, 4281, 108, 1, 22, "Input",ExpressionUUID->"edc53cc8-9ce5-024b-b94f-8f3921fb0e18"], +Cell[164441, 4284, 216, 3, 25, "Output",ExpressionUUID->"03e084a1-0ff1-6a45-9faf-3818970a843f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[164694, 4292, 107, 1, 22, "Input",ExpressionUUID->"9f190aeb-c07f-854c-8cb7-9811ae89e314"], +Cell[164804, 4295, 216, 3, 25, "Output",ExpressionUUID->"0d06c2eb-0ed1-ee44-88ae-3b5e939d1267"] +}, Open ]], +Cell[CellGroupData[{ +Cell[165057, 4303, 107, 1, 22, "Input",ExpressionUUID->"d7300424-6d62-ea42-9be0-892ffd46b8ff"], +Cell[165167, 4306, 218, 3, 25, "Output",ExpressionUUID->"548c39bf-db7c-3b4d-a8d5-814334bce92e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[165422, 4314, 497, 16, 46, "Input",ExpressionUUID->"f5f351e8-0d6a-554a-9c43-3b8ea05148c1"], +Cell[165922, 4332, 232, 4, 25, "Output",ExpressionUUID->"1d6cb626-1d0d-db4b-9799-79da9b68ad64"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166191, 4341, 497, 16, 46, "Input",ExpressionUUID->"003ccd93-6d5b-5e40-9f0c-75ab624dd3ea"], +Cell[166691, 4359, 233, 4, 25, "Output",ExpressionUUID->"fa8d6863-7f67-a941-9309-03fbf78d2459"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166961, 4368, 1788, 60, 109, "Input",ExpressionUUID->"017fe4d2-c148-3549-b189-3472f6f3af3f"], +Cell[168752, 4430, 218, 3, 25, "Output",ExpressionUUID->"9244feea-830d-2e4a-874e-9c262f951931"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169007, 4438, 1101, 36, 133, "Input",ExpressionUUID->"23a6d0ee-badc-2c44-96f7-21505f93ecd6"], +Cell[170111, 4476, 232, 4, 32, "Output",ExpressionUUID->"4e54e74d-0ca1-4143-8d17-b4338bbf1fcc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170380, 4485, 1818, 61, 165, "Input",ExpressionUUID->"769d08d1-7626-304c-83c4-d7a104bed497"], +Cell[172201, 4548, 214, 3, 32, "Output",ExpressionUUID->"95d220c1-e479-d24d-ae82-338877bbea17"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172452, 4556, 2499, 77, 133, "Input",ExpressionUUID->"387b4c6e-e5d4-4f4c-a4e3-be280f7e732d"], +Cell[174954, 4635, 218, 3, 32, "Output",ExpressionUUID->"3f757a08-0acc-e648-beb1-61f5dad06dd3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175209, 4643, 2499, 77, 133, "Input",ExpressionUUID->"f8d54720-f6da-fb40-9968-41db4c718c1a"], +Cell[177711, 4722, 215, 3, 32, "Output",ExpressionUUID->"225495ea-d252-974a-9aee-9b5f77938260"] +}, Open ]], +Cell[177941, 4728, 194, 4, 28, "Input",ExpressionUUID->"7c3e9316-835f-9e4b-9a49-3b4d17d5ac6f"], +Cell[178138, 4734, 152, 3, 28, "Input",ExpressionUUID->"583d3f2a-de58-8142-9cfe-a0e52258d17f"], +Cell[178293, 4739, 194, 4, 28, "Input",ExpressionUUID->"20139eb5-401a-4b4a-9fa1-5ac66a5ce03b"], +Cell[178490, 4745, 154, 3, 28, "Input",ExpressionUUID->"8f81c5bb-6006-6b49-93bb-3460180e6492"], +Cell[CellGroupData[{ +Cell[178669, 4752, 1301, 43, 113, "Input",ExpressionUUID->"d0f946fc-504f-c546-bd13-fc6956e18c7f"], +Cell[179973, 4797, 178, 3, 32, "Output",ExpressionUUID->"eee3e6f5-bf54-104d-aacb-1c5d9bb3da72"] +}, Open ]], +Cell[CellGroupData[{ +Cell[180188, 4805, 907, 30, 56, "Input",ExpressionUUID->"c6441294-7eb2-2949-9da6-67254244512f"], +Cell[181098, 4837, 177, 3, 32, "Output",ExpressionUUID->"586d096a-2b7f-5a48-8ed7-66293c7d553c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181312, 4845, 963, 32, 56, "Input",ExpressionUUID->"0e9cd1c8-cad4-dc4a-89c9-68faf6ac59e1"], +Cell[182278, 4879, 178, 3, 32, "Output",ExpressionUUID->"1ae1e3cd-cafb-3f45-96d4-d224b94de140"] +}, Open ]], +Cell[CellGroupData[{ +Cell[182493, 4887, 558, 19, 52, "Input",ExpressionUUID->"9284744b-e118-014c-8926-3a51fd91c939"], +Cell[183054, 4908, 172, 3, 32, "Output",ExpressionUUID->"b31939a9-5d35-324a-8d19-2eccc9ab2e0c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183263, 4916, 651, 22, 52, "Input",ExpressionUUID->"1aab4741-497a-9845-8d77-820f63cb5555"], +Cell[183917, 4940, 167, 3, 32, "Output",ExpressionUUID->"ea6f6b0c-3057-e14d-9c39-2b31eb0f9621"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184121, 4948, 170, 5, 56, "Input",ExpressionUUID->"03d57d66-9155-cf4b-b103-8d5f98199ed8"], +Cell[184294, 4955, 172, 3, 32, "Output",ExpressionUUID->"bbbfe046-4dd1-6242-9bee-c0b76bc74cb2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184503, 4963, 170, 5, 55, "Input",ExpressionUUID->"dd583ad4-ba05-e74f-9c30-907aa111db1e"], +Cell[184676, 4970, 173, 3, 32, "Output",ExpressionUUID->"fcfc958d-7982-7143-ba12-796e90324801"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184886, 4978, 181, 5, 43, "Input",ExpressionUUID->"a1b92a44-c90e-d942-9f90-47bfabccaf08"], +Cell[185070, 4985, 171, 3, 32, "Output",ExpressionUUID->"a7a34d03-2368-c24b-95db-201f96c75648"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185278, 4993, 181, 5, 43, "Input",ExpressionUUID->"51b3d1b0-fc32-2443-90dc-d335ab6c08c0"], +Cell[185462, 5000, 172, 3, 32, "Output",ExpressionUUID->"97bb7b25-6ae9-8d4d-86be-4c22b9038464"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185671, 5008, 6055, 185, 498, "Input",ExpressionUUID->"bb0f3cd0-3c69-9040-aa0d-76f7af168d91"], +Cell[191729, 5195, 174, 3, 32, "Output",ExpressionUUID->"5427a866-023c-174b-9e6d-fbf8b8e707a5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191940, 5203, 368, 9, 42, "Input",ExpressionUUID->"c7e96eeb-d934-e843-a9c0-226435d03e38"], +Cell[192311, 5214, 172, 3, 32, "Output",ExpressionUUID->"0d169b1a-2d1c-7b44-8942-0f9754dbfde4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192520, 5222, 6122, 187, 500, "Input",ExpressionUUID->"c90e2c4d-483b-8948-ad73-554cb9bb1353"], +Cell[198645, 5411, 175, 3, 32, "Output",ExpressionUUID->"234d4d05-30cf-8546-8a4c-8e92b174dd54"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198857, 5419, 368, 9, 42, "Input",ExpressionUUID->"344c5706-3a8a-754a-b4da-5866eb210a38"], +Cell[199228, 5430, 172, 3, 32, "Output",ExpressionUUID->"04e9f189-3e04-ae43-be68-86210fdb22c2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[199437, 5438, 2663, 88, 187, "Input",ExpressionUUID->"39da6bde-a34a-f944-af17-b87c664ce50c"], +Cell[202103, 5528, 171, 3, 32, "Output",ExpressionUUID->"0cadffd6-f139-f648-ad7f-793752291569"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202311, 5536, 2603, 85, 165, "Input",ExpressionUUID->"3c3f03ba-5eee-ac4e-84c3-b29e4adbaa6e"], +Cell[204917, 5623, 173, 3, 32, "Output",ExpressionUUID->"4e20a900-1f64-424e-9fdb-3d89088a0768"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205127, 5631, 3712, 118, 348, "Input",ExpressionUUID->"ddf61768-a227-c447-bfc3-df30c7b64565"], +Cell[208842, 5751, 174, 3, 32, "Output",ExpressionUUID->"068ebb27-1be5-6c40-8bf8-2f0268f5216d"] +}, Open ]], +Cell[209031, 5757, 138, 3, 42, "Input",ExpressionUUID->"0a12571c-0d3c-324d-9fb1-59d5c707bb07"], +Cell[CellGroupData[{ +Cell[209194, 5764, 2052, 59, 228, "Input",ExpressionUUID->"61186e9c-fdd7-7943-9937-691e3ab971c8"], +Cell[211249, 5825, 559, 12, 66, "Message",ExpressionUUID->"3bfa23d6-b5a3-e944-a9bb-ca6e68d969fe"], +Cell[211811, 5839, 560, 12, 85, "Message",ExpressionUUID->"b8fe04c8-adbe-0e49-b84c-7c9b51bb8636"], +Cell[212374, 5853, 565, 12, 85, "Message",ExpressionUUID->"427779f4-4b28-5543-9a01-503bd7cdf693"], +Cell[212942, 5867, 456, 10, 26, "Message",ExpressionUUID->"f6221017-7213-3b49-a432-06b611d306e1"], +Cell[213401, 5879, 170, 3, 32, "Output",ExpressionUUID->"8ac7cd76-8447-3745-aaee-2af284a32577"] +}, Open ]], +Cell[CellGroupData[{ +Cell[213608, 5887, 2054, 59, 228, "Input",ExpressionUUID->"9256a2f6-45c2-e140-bcdd-85d8e1970f4a"], +Cell[215665, 5948, 559, 12, 66, "Message",ExpressionUUID->"2a7e3aab-a746-1146-b27a-e663e8cd1152"], +Cell[216227, 5962, 559, 12, 85, "Message",ExpressionUUID->"7b5059be-83df-794a-9d63-d309a35a2ce1"], +Cell[216789, 5976, 565, 12, 85, "Message",ExpressionUUID->"53abd70a-2c4f-7046-be11-447ced8cdefb"], +Cell[217357, 5990, 458, 10, 26, "Message",ExpressionUUID->"64cbc54f-20f2-ce4f-b6f2-0ea91eeb179c"], +Cell[217818, 6002, 170, 3, 32, "Output",ExpressionUUID->"bd8591b1-ba8a-6b40-b518-84bec35d20f2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[218025, 6010, 1936, 53, 115, "Input",ExpressionUUID->"2543960d-965e-7a4e-aecb-694d21d63061"], +Cell[219964, 6065, 20196, 379, 237, "Output",ExpressionUUID->"609377ee-fc16-7c4a-9e56-8f28efda1b3b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[240197, 6449, 2118, 60, 211, "Input",ExpressionUUID->"e19ad739-7d82-2c45-9f2a-a1d24bf6372a"], +Cell[242318, 6511, 503, 11, 60, "Message",ExpressionUUID->"108a1881-cb0d-bd45-a774-02403dfdab8d"], +Cell[242824, 6524, 505, 11, 60, "Message",ExpressionUUID->"fb491355-d244-9746-9ef1-167761fef655"], +Cell[243332, 6537, 506, 11, 60, "Message",ExpressionUUID->"a75a12d7-3727-3447-b8ef-6f1b5b957750"], +Cell[243841, 6550, 455, 10, 26, "Message",ExpressionUUID->"5a45253c-33f9-ee48-80d9-da0679c1ba8a"], +Cell[244299, 6562, 55770, 961, 233, "Output",ExpressionUUID->"3fb98a86-5ada-4149-bdd3-377ee3650435"] +}, Open ]], +Cell[CellGroupData[{ +Cell[300106, 7528, 199, 6, 48, "Input",ExpressionUUID->"2efb0a57-1e82-4941-9ddf-43034c8e204d"], +Cell[300308, 7536, 173, 3, 32, "Output",ExpressionUUID->"856c94f8-a219-f048-b225-011837a6e00a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[300518, 7544, 1798, 52, 183, "Input",ExpressionUUID->"b7e3ddd8-e22a-794d-b607-7a48a064fd4a"], +Cell[302319, 7598, 506, 11, 60, "Message",ExpressionUUID->"814ee749-2cde-7245-9b7e-69b30787da15"], +Cell[302828, 7611, 508, 11, 60, "Message",ExpressionUUID->"af05aa14-ccc3-9040-b043-2aa272509b41"], +Cell[303339, 7624, 509, 11, 60, "Message",ExpressionUUID->"c8d85ed0-fe8f-c945-af5e-55ea809c674a"], +Cell[303851, 7637, 458, 10, 26, "Message",ExpressionUUID->"320c3ecd-1b7b-6744-991f-5112ad4520bf"], +Cell[304312, 7649, 24818, 454, 233, "Output",ExpressionUUID->"03e3bbb2-7d95-6f47-8763-c6796c705c92"] +}, Open ]], +Cell[CellGroupData[{ +Cell[329167, 8108, 1616, 48, 113, "Input",ExpressionUUID->"3d764097-ec6b-e749-9f31-cab8832af315"], +Cell[330786, 8158, 582, 12, 85, "Message",ExpressionUUID->"a4ce5518-811f-8349-a17b-d2bf1297144e"], +Cell[331371, 8172, 588, 12, 85, "Message",ExpressionUUID->"f5111cd7-2c56-5e45-8f8e-8a05bf9b95a2"], +Cell[331962, 8186, 590, 12, 85, "Message",ExpressionUUID->"38176049-5d0a-d741-93c1-c658e0a1af06"], +Cell[332555, 8200, 458, 10, 26, "Message",ExpressionUUID->"d16a134c-2a3f-da45-9fb2-6550e1a86488"], +Cell[333016, 8212, 171, 3, 32, "Output",ExpressionUUID->"2f22685f-8c37-684f-9766-884eff532552"] +}, Open ]], +Cell[CellGroupData[{ +Cell[333224, 8220, 2249, 64, 223, "Input",ExpressionUUID->"94c81ca6-5acf-1648-b9d8-a303cc71dab7"], +Cell[335476, 8286, 557, 12, 66, "Message",ExpressionUUID->"4ed16eac-aa41-bc43-949b-97ab0e84980a"], +Cell[336036, 8300, 560, 12, 85, "Message",ExpressionUUID->"90cf97c3-411e-6d4b-bad4-f62835c46e4c"], +Cell[336599, 8314, 565, 12, 85, "Message",ExpressionUUID->"f57ff7ba-dfca-eb44-912d-da23358d49ca"], +Cell[337167, 8328, 458, 10, 26, "Message",ExpressionUUID->"b9781b1e-c411-054b-ac86-e24155108e57"], +Cell[337628, 8340, 172, 3, 32, "Output",ExpressionUUID->"597cf6d6-a43f-8b49-bc71-101a9cb09e95"] +}, Open ]], +Cell[CellGroupData[{ +Cell[337837, 8348, 2221, 64, 162, "Input",ExpressionUUID->"d789fb78-c161-1741-b7b8-90fa3d585b38"], +Cell[340061, 8414, 559, 12, 66, "Message",ExpressionUUID->"42c57f6e-4641-0f42-b0dd-b86a5ad2dfe9"], +Cell[340623, 8428, 562, 12, 85, "Message",ExpressionUUID->"d128fb64-8fa5-1e4d-a5ed-889242afc70f"], +Cell[341188, 8442, 563, 12, 85, "Message",ExpressionUUID->"b905e7eb-c247-1242-a8bc-aaa9779d376e"], +Cell[341754, 8456, 458, 10, 26, "Message",ExpressionUUID->"fc538907-32f5-a34f-9b6b-76d90e786319"], +Cell[342215, 8468, 170, 3, 32, "Output",ExpressionUUID->"de957708-f977-9848-9f79-7201648cd385"] +}, Open ]], +Cell[CellGroupData[{ +Cell[342422, 8476, 2220, 64, 162, "Input",ExpressionUUID->"98f8448c-bc27-4646-9fd2-f2c22cf9b4d2"], +Cell[344645, 8542, 559, 12, 66, "Message",ExpressionUUID->"cc7d691e-f34a-f24f-9ae8-91d0fac0de8f"], +Cell[345207, 8556, 562, 12, 85, "Message",ExpressionUUID->"e2a59359-7911-7442-a0f3-73fa99ebe8ee"], +Cell[345772, 8570, 563, 12, 85, "Message",ExpressionUUID->"191c175a-4a14-3f4a-aca6-3833ea4390d8"], +Cell[346338, 8584, 458, 10, 26, "Message",ExpressionUUID->"e149580c-1c12-0145-b9d5-38404db9a3ce"], +Cell[346799, 8596, 171, 3, 32, "Output",ExpressionUUID->"497174af-5058-2544-9743-796d2255db6b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[347007, 8604, 213, 6, 47, "Input",ExpressionUUID->"c0718b2f-c4a4-934b-afa0-c67e8ff1bd9c"], +Cell[347223, 8612, 173, 3, 32, "Output",ExpressionUUID->"e7135af2-919e-634d-88c2-bc305d038b62"] +}, Open ]], +Cell[347411, 8618, 243, 5, 42, "Input",ExpressionUUID->"73fa861d-79d1-6043-8b49-ac6d11636734"], +Cell[CellGroupData[{ +Cell[347679, 8627, 558, 19, 52, "Input",ExpressionUUID->"6c38f559-2389-4242-bc4d-38979252b0b4"], +Cell[348240, 8648, 170, 3, 32, "Output",ExpressionUUID->"fea30492-36d2-7045-88cc-aae9158fb839"] +}, Open ]], +Cell[CellGroupData[{ +Cell[348447, 8656, 170, 5, 56, "Input",ExpressionUUID->"e3e9365e-1e6c-9843-9e29-11080a5f4701"], +Cell[348620, 8663, 173, 3, 32, "Output",ExpressionUUID->"e81ecb9b-5a01-e843-870e-5e384d1e28cc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[348830, 8671, 181, 5, 43, "Input",ExpressionUUID->"123e61eb-c41d-2242-a32d-5c1fffa2cf57"], +Cell[349014, 8678, 171, 3, 32, "Output",ExpressionUUID->"43bb0088-17d8-d048-a253-fc8b6be59a68"] +}, Open ]], +Cell[CellGroupData[{ +Cell[349222, 8686, 6055, 185, 498, "Input",ExpressionUUID->"79eeca66-2446-f741-8700-944472de348f"], +Cell[355280, 8873, 172, 3, 32, "Output",ExpressionUUID->"338ae54a-64ed-994b-af22-96a296166408"] +}, Open ]], +Cell[CellGroupData[{ +Cell[355489, 8881, 368, 9, 42, "Input",ExpressionUUID->"9790a07a-bad8-674c-aada-41e3d20aeff5"], +Cell[355860, 8892, 172, 3, 32, "Output",ExpressionUUID->"e206cd3a-25d4-eb48-899a-45dd7defc5fe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[356069, 8900, 6122, 187, 500, "Input",ExpressionUUID->"cd927d7c-f3cd-534f-b509-5ac03fad6276"], +Cell[362194, 9089, 173, 3, 32, "Output",ExpressionUUID->"a5cbfc1b-c447-724b-a144-ad8475ce711a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362404, 9097, 368, 9, 42, "Input",ExpressionUUID->"6d1a5282-01c9-b240-a0b0-7e2aa562e7f8"], +Cell[362775, 9108, 170, 3, 32, "Output",ExpressionUUID->"6f6d3be7-a8ef-df41-96c9-fca809317a9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362982, 9116, 2663, 88, 187, "Input",ExpressionUUID->"b3f5d88a-186d-e74b-84a0-eac59afb71e7"], +Cell[365648, 9206, 171, 3, 32, "Output",ExpressionUUID->"e1c5a778-dccd-8443-98b9-732ae795c2ac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365856, 9214, 2603, 85, 165, "Input",ExpressionUUID->"712c99dc-f88a-984c-9ea1-ddb538fa1846"], +Cell[368462, 9301, 173, 3, 32, "Output",ExpressionUUID->"4063f10b-c9dc-f24d-8ad2-77cf2302aa5c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[368672, 9309, 3712, 118, 348, "Input",ExpressionUUID->"46415a4e-0839-a640-a9be-83fc8d482c42"], +Cell[372387, 9429, 174, 3, 32, "Output",ExpressionUUID->"fa8f93a6-4eb6-b44c-a934-4b4d3f7a051e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[372598, 9437, 2052, 59, 228, "Input",ExpressionUUID->"33a64b79-213d-c445-8c32-436b16263096"], +Cell[374653, 9498, 579, 12, 85, "Message",ExpressionUUID->"88717102-665c-9946-ac95-81e91596f1a3"], +Cell[375235, 9512, 582, 12, 85, "Message",ExpressionUUID->"fef05ccf-1889-484a-ad95-0ed0a53f85b4"], +Cell[375820, 9526, 584, 12, 85, "Message",ExpressionUUID->"c1de584c-2f89-774b-b751-1278ba9a8d1f"], +Cell[376407, 9540, 458, 10, 26, "Message",ExpressionUUID->"24f5f743-5338-9641-885e-a4948c5c9d6e"], +Cell[376868, 9552, 172, 3, 32, "Output",ExpressionUUID->"e0668815-ad18-f946-aefd-da0b1916d420"] +}, Open ]], +Cell[CellGroupData[{ +Cell[377077, 9560, 2054, 59, 228, "Input",ExpressionUUID->"a558e928-6d30-db4d-81da-8e12b46e0cf1"], +Cell[379134, 9621, 577, 12, 85, "Message",ExpressionUUID->"52373f6a-60b2-bf48-9785-d2499fa543af"], +Cell[379714, 9635, 580, 12, 85, "Message",ExpressionUUID->"1ff9836d-6279-2340-8080-e305c05b649e"], +Cell[380297, 9649, 583, 12, 85, "Message",ExpressionUUID->"983d828c-78d1-1441-bba2-2e64fa6b8f6f"], +Cell[380883, 9663, 456, 10, 26, "Message",ExpressionUUID->"dd795d07-bc4f-2b40-8351-e980cc967c15"], +Cell[381342, 9675, 171, 3, 32, "Output",ExpressionUUID->"17c8f52c-8091-bf41-b7c9-160a5315608c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[381550, 9683, 2030, 55, 160, "Input",ExpressionUUID->"c2f625be-331c-a24f-ad5b-6daaa9131a45"], +Cell[383583, 9740, 20493, 384, 237, "Output",ExpressionUUID->"7a9be15e-f600-1b49-a731-c78d88a43ea5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[404113, 10129, 2142, 61, 211, "Input",ExpressionUUID->"e083cd39-87a5-ca4f-ab3f-88bfd4c0e0d2"], +Cell[406258, 10192, 501, 11, 60, "Message",ExpressionUUID->"fcd06738-edc8-474f-b579-5c8fba66d5d8"], +Cell[406762, 10205, 504, 11, 60, "Message",ExpressionUUID->"9de7c9a4-4b93-0b4f-9a25-4f1d7917ab21"], +Cell[407269, 10218, 508, 11, 60, "Message",ExpressionUUID->"03ef6a33-8701-ef42-bc6a-4a21f0a09522"], +Cell[407780, 10231, 456, 10, 26, "Message",ExpressionUUID->"038a3a74-0bc1-c44d-9c90-bf60eda4a7bc"], +Cell[408239, 10243, 31462, 562, 233, "Output",ExpressionUUID->"1c17de43-a886-0b4f-ac6b-9644b9c88ec7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[439738, 10810, 1616, 48, 113, "Input",ExpressionUUID->"94a1b9ea-c98a-ee4e-bb2c-43256dd887e6"], +Cell[441357, 10860, 596, 12, 85, "Message",ExpressionUUID->"f479187b-9eda-204a-88bb-4f36ab0a2712"], +Cell[441956, 10874, 602, 12, 85, "Message",ExpressionUUID->"f832b030-dfa8-5847-8a8e-714d29039227"], +Cell[442561, 10888, 605, 12, 85, "Message",ExpressionUUID->"c86ba442-eaba-9f46-8c0c-52b951d5bfb0"], +Cell[443169, 10902, 458, 10, 26, "Message",ExpressionUUID->"dc6d10bb-5f0b-8545-9e40-4768fde2dbc1"], +Cell[443630, 10914, 171, 3, 32, "Output",ExpressionUUID->"7d6c1b18-ad7f-3448-8021-ab5886691637"] +}, Open ]], +Cell[CellGroupData[{ +Cell[443838, 10922, 2251, 64, 223, "Input",ExpressionUUID->"ad8fe405-3f1b-4e4d-b1dd-9e266c1ec152"], +Cell[446092, 10988, 577, 12, 85, "Message",ExpressionUUID->"01da16e0-14b6-bf48-a829-a262126159db"], +Cell[446672, 11002, 580, 12, 85, "Message",ExpressionUUID->"4bf24ca6-4e30-e94a-be43-cf8e5608fc87"], +Cell[447255, 11016, 586, 12, 85, "Message",ExpressionUUID->"006741fa-e30f-4b44-972c-035fe0e9a3bf"], +Cell[447844, 11030, 458, 10, 26, "Message",ExpressionUUID->"cf218763-64fa-3446-a7cd-1c601e3a0059"], +Cell[448305, 11042, 173, 3, 32, "Output",ExpressionUUID->"65c43bde-9dc5-1442-ba50-c6fa98b8835b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[448515, 11050, 2223, 64, 162, "Input",ExpressionUUID->"6531fc5f-fdb5-a54c-abb2-46a9d151a60a"], +Cell[450741, 11116, 579, 12, 85, "Message",ExpressionUUID->"592083af-558d-0641-832e-e27a751915bd"], +Cell[451323, 11130, 580, 12, 85, "Message",ExpressionUUID->"66370498-e112-fa4b-a8af-1fcc4f9e1213"], +Cell[451906, 11144, 586, 12, 85, "Message",ExpressionUUID->"84900485-cd47-2c49-9717-bd11f4470d4b"], +Cell[452495, 11158, 458, 10, 26, "Message",ExpressionUUID->"07a10e89-58d6-6b49-8cb3-9461aae3594b"], +Cell[452956, 11170, 171, 3, 32, "Output",ExpressionUUID->"82e8998a-3c72-6247-9df9-94b065408465"] +}, Open ]], +Cell[CellGroupData[{ +Cell[453164, 11178, 2223, 64, 162, "Input",ExpressionUUID->"36639f46-66ce-b34a-8a89-e422f177de00"], +Cell[455390, 11244, 576, 12, 85, "Message",ExpressionUUID->"fda4f669-ecf2-4d4e-b48b-3afcc84ca1c4"], +Cell[455969, 11258, 580, 12, 85, "Message",ExpressionUUID->"36a981e6-ab0a-6c43-9d36-e415d38164fb"], +Cell[456552, 11272, 584, 12, 85, "Message",ExpressionUUID->"4b3aecb3-626b-d84a-940e-7ff8608fd52c"], +Cell[457139, 11286, 458, 10, 26, "Message",ExpressionUUID->"8319d34b-55d1-094b-9206-d0c33b2abbd6"], +Cell[457600, 11298, 173, 3, 32, "Output",ExpressionUUID->"c60c830d-34c5-f541-b310-49552ac2034c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[457810, 11306, 211, 6, 47, "Input",ExpressionUUID->"f76b8e94-11bd-a34a-a9ba-20d331e64105"], +Cell[458024, 11314, 172, 3, 32, "Output",ExpressionUUID->"278ae42a-5de9-444e-9245-d09cf8d28509"] +}, Open ]], +Cell[458211, 11320, 242, 5, 42, "Input",ExpressionUUID->"bb206cb0-d23b-e24e-876b-f9f1b2cbe57a"], +Cell[CellGroupData[{ +Cell[458478, 11329, 558, 19, 52, "Input",ExpressionUUID->"4fd11557-be32-b042-a20e-65ee1f3d31f0"], +Cell[459039, 11350, 171, 3, 32, "Output",ExpressionUUID->"8f491dd5-7bfd-b341-b43c-c3a9d183ce9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[459247, 11358, 170, 5, 56, "Input",ExpressionUUID->"d73f0f23-b2e1-e243-aa8d-70b95de7c666"], +Cell[459420, 11365, 171, 3, 32, "Output",ExpressionUUID->"b9d3b5de-b2b7-e44d-bc5c-44767d89cf65"] +}, Open ]], +Cell[CellGroupData[{ +Cell[459628, 11373, 181, 5, 43, "Input",ExpressionUUID->"8870b029-14dd-d441-82f4-8690b0fb603d"], +Cell[459812, 11380, 173, 3, 32, "Output",ExpressionUUID->"6b8a7f35-f691-844e-aeda-7cce2cf01b4d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[460022, 11388, 6055, 185, 498, "Input",ExpressionUUID->"78b2a753-17fc-484f-a953-d278346207ad"], +Cell[466080, 11575, 173, 3, 32, "Output",ExpressionUUID->"4011df14-d624-cf4c-ba4a-7e4d30ff836f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[466290, 11583, 368, 9, 42, "Input",ExpressionUUID->"19eddd1c-d1b6-4344-85e0-95e5a6b87d4b"], +Cell[466661, 11594, 172, 3, 32, "Output",ExpressionUUID->"d4677fbf-c75c-ca43-b340-204087aa8c86"] +}, Open ]], +Cell[CellGroupData[{ +Cell[466870, 11602, 6122, 187, 500, "Input",ExpressionUUID->"75baa02d-f77e-e542-9519-8afd2f729182"], +Cell[472995, 11791, 173, 3, 32, "Output",ExpressionUUID->"57c3e5a5-34bb-e842-b4a4-6bfbe7fe997b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[473205, 11799, 368, 9, 42, "Input",ExpressionUUID->"78cdb0f4-4e26-2f44-b234-6fa78a24207f"], +Cell[473576, 11810, 172, 3, 32, "Output",ExpressionUUID->"dc513bc7-ae9a-0043-ae49-195b0da7d4ae"] +}, Open ]], +Cell[CellGroupData[{ +Cell[473785, 11818, 2663, 88, 187, "Input",ExpressionUUID->"1d69257c-6504-2041-93e1-2a57c1dfc14b"], +Cell[476451, 11908, 173, 3, 32, "Output",ExpressionUUID->"8d685ee2-dc72-774b-bbc8-778682e632d2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[476661, 11916, 2603, 85, 165, "Input",ExpressionUUID->"482f62c1-da9c-ae43-adda-68c26afa85d0"], +Cell[479267, 12003, 171, 3, 32, "Output",ExpressionUUID->"c69ac66b-aa24-cb4d-9510-bfa972119e6b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[479475, 12011, 3712, 118, 348, "Input",ExpressionUUID->"b28b6b1b-1ce5-eb47-bd61-38bdc082dbc8"], +Cell[483190, 12131, 174, 3, 32, "Output",ExpressionUUID->"1c470c55-d28c-4543-be1f-6a28be0ba400"] +}, Open ]], +Cell[CellGroupData[{ +Cell[483401, 12139, 2052, 59, 228, "Input",ExpressionUUID->"61630af4-ce16-4645-bd89-fd67d7ba48d8"], +Cell[485456, 12200, 574, 12, 85, "Message",ExpressionUUID->"43a2687a-b1fe-f34f-89ff-c066d808b1f9"], +Cell[486033, 12214, 580, 12, 85, "Message",ExpressionUUID->"4af47df9-8236-7241-95f9-152813b1879a"], +Cell[486616, 12228, 580, 12, 85, "Message",ExpressionUUID->"6b7cc034-1771-4d40-a1be-6400e7b80609"], +Cell[487199, 12242, 456, 10, 26, "Message",ExpressionUUID->"3f4e0008-1259-8f45-ad63-fd8d4329e9ae"], +Cell[487658, 12254, 172, 3, 32, "Output",ExpressionUUID->"e57330fd-c13c-984d-8ddc-a0b641a07ec3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[487867, 12262, 2052, 59, 228, "Input",ExpressionUUID->"b8324bb7-c44f-6342-bd59-920c679e8136"], +Cell[489922, 12323, 576, 12, 85, "Message",ExpressionUUID->"29405dbd-598a-ef40-a6b1-6fd2363b1575"], +Cell[490501, 12337, 577, 12, 85, "Message",ExpressionUUID->"ad96af95-7997-6e4b-bb29-aba6a927545b"], +Cell[491081, 12351, 582, 12, 85, "Message",ExpressionUUID->"bbc2b8eb-1cbf-044c-9f8a-9437e2069bad"], +Cell[491666, 12365, 458, 10, 26, "Message",ExpressionUUID->"153f64f2-c43c-3945-815f-e938e8bf1d5a"], +Cell[492127, 12377, 172, 3, 32, "Output",ExpressionUUID->"cd0f4614-a592-5544-b5ef-4fad0c35ca7c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[492336, 12385, 2030, 55, 160, "Input",ExpressionUUID->"a8eb6c66-2550-3146-b69f-2cd48e2cafc8"], +Cell[494369, 12442, 20021, 378, 237, "Output",ExpressionUUID->"fde4983c-8a31-cc4e-87c4-d107fc324654"] +}, Open ]], +Cell[CellGroupData[{ +Cell[514427, 12825, 2148, 61, 211, "Input",ExpressionUUID->"29fc72a2-353e-bf42-8947-0608fa83191a"], +Cell[516578, 12888, 502, 11, 60, "Message",ExpressionUUID->"02febf10-3e5e-7c4e-a0cc-5555abda60b9"], +Cell[517083, 12901, 506, 11, 60, "Message",ExpressionUUID->"6d9e5c2e-5d6c-ee42-9183-8e53cad47804"], +Cell[517592, 12914, 508, 11, 60, "Message",ExpressionUUID->"b36a228f-868c-ba41-aa49-f11f9ef30d38"], +Cell[518103, 12927, 456, 10, 26, "Message",ExpressionUUID->"9512baf9-a3b8-4d40-ba0e-e787bd767c9e"], +Cell[518562, 12939, 30015, 538, 233, "Output",ExpressionUUID->"1d2e0852-2fc7-f64d-be49-84b2bbb91a03"] +}, Open ]], +Cell[CellGroupData[{ +Cell[548614, 13482, 1590, 47, 113, "Input",ExpressionUUID->"0a506e45-082d-6641-9693-c99384fc0ac2"], +Cell[550207, 13531, 342, 6, 20, "Message",ExpressionUUID->"a616c950-333c-c34e-b37c-e912edc150ff"], +Cell[550552, 13539, 101, 0, 32, "Output",ExpressionUUID->"5e38a489-6451-064f-b86a-c8e93d83815c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[550690, 13544, 2249, 64, 223, "Input",ExpressionUUID->"1d3ec6f9-6ce8-8a4d-95c2-733ef0de97b0"], +Cell[552942, 13610, 342, 6, 20, "Message",ExpressionUUID->"e36a792d-6d34-e344-80e0-65db5822f94f"], +Cell[553287, 13618, 342, 6, 20, "Message",ExpressionUUID->"0dfefdcd-d1b3-8f47-b86d-c0f72147cb73"], +Cell[553632, 13626, 101, 0, 32, "Output",ExpressionUUID->"8272fc8d-2aef-284d-85ad-5d09a4d55c26"] +}, Open ]], +Cell[CellGroupData[{ +Cell[553770, 13631, 2219, 64, 162, "Input",ExpressionUUID->"b5bf5915-d0df-a045-96bd-1dffa35c1421"], +Cell[555992, 13697, 342, 6, 20, "Message",ExpressionUUID->"69e9eac8-2173-184e-8807-5fd844762da7"], +Cell[556337, 13705, 342, 6, 20, "Message",ExpressionUUID->"baaf252e-485c-b643-a22f-956a9ee4c418"], +Cell[556682, 13713, 100, 0, 32, "Output",ExpressionUUID->"8828a790-0478-5f4d-95d9-3a6a0e7217e5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[556819, 13718, 2220, 64, 162, "Input",ExpressionUUID->"0f4fb648-c81c-bf44-8487-747d613813fd"], +Cell[559042, 13784, 342, 6, 20, "Message",ExpressionUUID->"51550cf4-6c37-c443-851d-569d8808cf04"], +Cell[559387, 13792, 342, 6, 20, "Message",ExpressionUUID->"d7f343d4-811d-2f43-8fb6-ccefbdc3518f"], +Cell[559732, 13800, 101, 0, 32, "Output",ExpressionUUID->"7a1f905d-9581-5744-a98c-76e2b1fb25bb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[559870, 13805, 213, 6, 47, "Input",ExpressionUUID->"2d256a7e-c4c8-f746-8004-9b6b43692a68"], +Cell[560086, 13813, 102, 0, 32, "Output",ExpressionUUID->"59ec06ef-9d4f-1d47-8ac6-5acc72d626ee"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_gid_Qw1.nb b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_gid_Qw1.nb new file mode 100755 index 0000000..c94b1c0 --- /dev/null +++ b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_gid_Qw1.nb @@ -0,0 +1,17254 @@ +(* 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[ 752912, 17246] +NotebookOptionsPosition[ 712348, 16598] +NotebookOutlinePosition[ 712772, 16615] +CellTagsIndexPosition[ 712729, 16612] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "0.1"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.992086540831894*^9, 3.9920865523321934`*^9}, { + 3.992086586219898*^9, 3.992086610363735*^9}, {3.9920867343035507`*^9, + 3.992086784359892*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"4e704073-7441-fe45-b4d4-47be51ab4fd0"], + +Cell[BoxData["0.1`"], "Output", + CellChangeTimes->{3.992086762207903*^9, 3.9920868028367424`*^9, + 3.9920993338472137`*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"45b43216-30a4-a14d-a36c-3eb6372f6c0a"] +}, Open ]], + +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.992085811016073*^9, 3.9920858120004807`*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"b975ff8d-9493-c843-bb7c-b2c81eb69198"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.9920860563908997`*^9, 3.992086267214739*^9, + 3.992086570082403*^9, 3.9920866008307095`*^9, 3.9920866670307636`*^9, { + 3.9920867754973392`*^9, 3.9920868028625736`*^9}, 3.9920993338662586`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"860be294-109a-3447-8de9-ec6af6944955"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "58"}]], "Input", + CellChangeTimes->{3.9917123636954575`*^9, 3.9917930477498703`*^9, + 3.9920858245124893`*^9}, + CellLabel->"In[3]:=",ExpressionUUID->"d020bb06-0d86-234c-ab84-d9e8628823e8"], + +Cell[BoxData["58"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9920860564147377`*^9, 3.9920862672333508`*^9, + 3.992086570087515*^9, 3.992086600854433*^9, 3.992086667052353*^9, { + 3.99208677552532*^9, 3.9920868028686295`*^9}, 3.9920993338732834`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"c758e50b-c06c-5c4b-9625-4b9fd1d5f5ce"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"7ca9cba1-0117-5343-9039-c58fda56d08f"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.991707828219631*^9, 3.9917123414174232`*^9, + 3.992086056442711*^9, 3.992086267243601*^9, 3.9920865701074047`*^9, + 3.992086600883713*^9, 3.9920866670570984`*^9, {3.9920867755491276`*^9, + 3.9920868028899593`*^9}, 3.9920993338804684`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"813b2cd1-7f26-4f43-8410-e0d649aca38e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"960dd727-bd2f-3449-be0c-abe5b2917833"], + +Cell[BoxData["0.5577500000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.9917078282275677`*^9, 3.9917123414253197`*^9, + 3.992086056472231*^9, 3.9920862672656536`*^9, 3.9920865701119137`*^9, + 3.9920866009103184`*^9, 3.9920866670824966`*^9, {3.992086775556343*^9, + 3.9920868028954678`*^9}, 3.9920993338875065`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"176c029f-44e5-054f-a6e4-4fafb135cd25"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"2a693e04-7ecf-e545-8c00-ace038dd3501"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9917078282485256`*^9, 3.9917123414324265`*^9, + 3.992086056479254*^9, 3.992086267270653*^9, 3.9920865701184216`*^9, + 3.9920866009393177`*^9, 3.9920866670875015`*^9, {3.992086775577345*^9, + 3.9920868029233513`*^9}, 3.9920993338944855`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"697146ce-e84a-ad40-a0fa-454fc2e1c46b"] +}, 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->"4f708b9c-8e17-1748-b34c-93e278c3bdb4"], + +Cell[BoxData["4.4902169031282435`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.9917078282706223`*^9, 3.9917123414384117`*^9, + 3.992086056511862*^9, 3.992086267275753*^9, 3.9920865701434135`*^9, + 3.9920866009463215`*^9, 3.992086667111265*^9, {3.992086775588663*^9, + 3.9920868029544296`*^9}, 3.9920993339025784`*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"fff35079-4826-6749-aef4-ce44b675933a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"e6fa4d80-8a71-714a-a484-44c67fbd4b19"], + +Cell[BoxData["6.573779285392593`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.9917078282785244`*^9, 3.991712341447321*^9, + 3.9920860565348663`*^9, 3.99208626729467*^9, 3.9920865701494427`*^9, + 3.9920866009676666`*^9, 3.9920866671364613`*^9, {3.9920867756105766`*^9, + 3.992086802964319*^9}, 3.9920993339111977`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"3dde2fe6-a8f5-e348-a4e1-6d04d41cbc22"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.363557285532272"}]], "Input", + CellChangeTimes->{ + 3.9917123951294365`*^9, 3.99179305435186*^9, {3.9920858393278446`*^9, + 3.9920858536690025`*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"456c9727-0dcf-c048-b38f-573ce3086221"], + +Cell[BoxData["0.363557285532272`"], "Output", + CellChangeTimes->{ + 3.991319649862606*^9, 3.991707828301527*^9, 3.9917123414573193`*^9, + 3.991712407248003*^9, 3.9920860565659294`*^9, 3.992086267305723*^9, + 3.992086570171528*^9, 3.992086600972666*^9, 3.9920866671645985`*^9, { + 3.9920867756155777`*^9, 3.9920868029898014`*^9}, 3.9920993339191856`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"a6471119-efd6-bb42-842b-92b836822afb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "1.14032997838104"}]], "Input", + CellChangeTimes->{ + 3.9917124038115807`*^9, 3.991793052797516*^9, {3.992085843612673*^9, + 3.9920858505623627`*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"b7a4101b-9ac6-e64e-911c-26ec0523cd05"], + +Cell[BoxData["1.14032997838104`"], "Output", + CellChangeTimes->{ + 3.9913196498716316`*^9, 3.991707828308525*^9, 3.99171234146842*^9, + 3.9917124073213234`*^9, 3.992086056571884*^9, 3.9920862673247185`*^9, + 3.992086570200531*^9, 3.9920866009956837`*^9, 3.9920866671913986`*^9, { + 3.992086775620594*^9, 3.9920868029953136`*^9}, 3.992099333926077*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"b9b0d817-49f4-0548-b101-75cac757ae50"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"57bb031a-21fe-0040-a62d-5fa4ceba0c1b"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.9917078283276424`*^9, 3.991712341478319*^9, + 3.992086056594942*^9, 3.992086267342724*^9, 3.992086570206547*^9, + 3.992086601016636*^9, 3.992086667196371*^9, {3.9920867756454487`*^9, + 3.9920868030243797`*^9}, 3.99209933393524*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"4a6e75b0-6970-9a43-bc34-a04640346ddf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"43ef55bf-3691-f640-8741-fee90e0d4301"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.99170782834754*^9, 3.9917123414863186`*^9, + 3.99208605659988*^9, 3.992086267369709*^9, 3.9920865702305107`*^9, + 3.992086601021658*^9, 3.992086667220396*^9, {3.9920867756661854`*^9, + 3.9920868030533276`*^9}, 3.9920993339422398`*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"cd6c029a-49e6-f244-bc97-8f3c1e0aacb3"] +}, 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->"f3b4c213-46e3-5748-9641-6fae551196cd"], + +Cell[BoxData["1.3932112707868565`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.991707968406042*^9, 3.9920860566229687`*^9, + 3.9920862673877125`*^9, 3.992086570250431*^9, 3.9920866010503235`*^9, + 3.9920866672243824`*^9, {3.9920867756911926`*^9, 3.992086803080593*^9}, + 3.9920993339512405`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"688360c2-3e19-df44-b9b6-9ac2eb7cfc27"] +}, 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->"600ed8c5-c6fd-474b-b8ec-38e456f3172e"], + +Cell[BoxData["3.0097040215395996`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.9917079684291363`*^9, 3.992086056628895*^9, + 3.992086267395834*^9, 3.9920865702819977`*^9, 3.9920866010553265`*^9, + 3.992086667248516*^9, {3.992086775697193*^9, 3.992086803086094*^9}, + 3.992099333960369*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"916ef501-6f47-6347-8b44-fa6c95b9b543"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"aaeb44c7-62f1-f143-bf33-5b1a49d1d3ab"], + +Cell[BoxData["0.8492253700915684`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.991707968457081*^9, 3.9920860566568546`*^9, + 3.9920862674018364`*^9, 3.9920865702885704`*^9, 3.9920866010823193`*^9, + 3.9920866672535152`*^9, {3.9920867757212353`*^9, 3.9920868031092052`*^9}, + 3.992099334002695*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"ed3976f2-94ab-cb45-90eb-b1ec79be7485"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"53b345d4-8713-8641-8856-894783bbb961"], + +Cell[BoxData[ + RowBox[{"-", "1.1896646126189885`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.9917079684650364`*^9, 3.992086056661869*^9, + 3.9920862674289207`*^9, 3.992086570310892*^9, 3.992086601108303*^9, + 3.992086667258547*^9, {3.9920867757272587`*^9, 3.9920868031152153`*^9}, + 3.9920993340147*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"2310de4e-7f51-5048-899a-aecb9238430a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"f30bf89f-ed57-e841-be4f-b108ee3d508d"], + +Cell[BoxData[ + RowBox[{"-", "0.07157823242670158`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.9917079684860363`*^9, 3.992086056689867*^9, + 3.992086267451708*^9, 3.9920865703164005`*^9, 3.9920866011133003`*^9, + 3.992086667287239*^9, {3.9920867757482376`*^9, 3.992086803136221*^9}, + 3.9920993340245934`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"65e72791-e15d-694e-9f02-8397870eb9e6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"6c3711dc-7082-f642-9d2c-5bccf2a27b03"], + +Cell[BoxData["0.36531988493615475`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9917079684940376`*^9, 3.992086056698021*^9, + 3.9920862674576683`*^9, 3.992086570322399*^9, 3.9920866011363144`*^9, + 3.9920866673132973`*^9, {3.9920867757535*^9, 3.9920868031582184`*^9}, + 3.9920993340344143`*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"53c9b236-23e8-0d47-ac75-3d372a762d6c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"3dc88b7b-ebfb-554f-a688-79f6122afb69"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9917079685140343`*^9, 3.992086056725519*^9, + 3.992086267463503*^9, 3.99208657034342*^9, 3.9920866011623287`*^9, + 3.992086667319298*^9, {3.9920867757785244`*^9, 3.992086803166567*^9}, + 3.9920993340425377`*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"55b95038-5087-1842-9242-9ca44238f304"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellChangeTimes->{3.9918430951178913`*^9}, + CellLabel->"In[20]:=",ExpressionUUID->"d292ae01-cfc6-8b47-84f9-4e8e1489da16"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.991707968535036*^9, 3.9920860567525387`*^9, + 3.992086267484522*^9, 3.992086570353693*^9, 3.992086601167244*^9, + 3.992086667338505*^9, {3.9920867757885113`*^9, 3.992086803188101*^9}, + 3.992099334050535*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"d727faf3-2b8c-5a4c-9eec-2254efc99da0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"21a46007-fcf5-0c4e-9a23-1df0eb4a012f"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.9917079685410557`*^9, 3.9920860567575817`*^9, + 3.99208626748954*^9, 3.992086570375412*^9, 3.99208660118725*^9, + 3.9920866673587112`*^9, {3.9920867758099976`*^9, 3.992086803193638*^9}, + 3.992099334059412*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"2a60bafa-b2c8-6b4f-983c-0be1dfa082d3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"6be546ad-856f-3741-b9c6-8be425ff18c0"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.991707968561041*^9, 3.992086056786278*^9, + 3.9920862675157433`*^9, 3.9920865703804207`*^9, 3.9920866011932716`*^9, + 3.9920866673642235`*^9, {3.992086775814476*^9, 3.992086803217211*^9}, + 3.992099334067415*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"a48773f7-aac1-ca41-9c65-acc9de69755b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"9069c921-1699-7948-bebf-176d8fb2d295"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.9917079685810375`*^9, 3.9920860567917824`*^9, + 3.992086267522707*^9, 3.9920865704054184`*^9, 3.992086601216263*^9, + 3.9920866673882236`*^9, {3.9920867758395653`*^9, 3.992086803222191*^9}, + 3.9920993340767784`*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"3384b286-aed4-ca47-adfd-9bf7acba2612"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "20"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.9917930777342243`*^9, + 3.9920858934566765`*^9}, + CellLabel->"In[24]:=",ExpressionUUID->"f38bb0ff-c7de-3544-8d07-d665f8252324"], + +Cell[BoxData["20"], "Output", + CellChangeTimes->{ + 3.992086056815359*^9, 3.992086267560713*^9, 3.992086570414318*^9, + 3.992086601221264*^9, 3.992086667394369*^9, {3.9920867758671284`*^9, + 3.9920868032586155`*^9}, 3.9920993340867844`*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"b1a97c35-fe3d-fa49-af15-4806a35b8fa4"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431115646553`*^9, 3.991843111569187*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"baffc875-ac19-aa4b-b317-b67201343b2c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, { + 3.991644237125025*^9, 3.991644237304865*^9}, {3.992085912752716*^9, + 3.9920859130864887`*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"d2a9f66a-30e9-8340-af69-318ebd0417a8"], + +Cell[BoxData["74"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.991707968608036*^9, 3.9920860568239784`*^9, + 3.99208626756872*^9, 3.9920865704393387`*^9, 3.9920866012487774`*^9, + 3.992086667421444*^9, {3.9920867758944263`*^9, 3.992086803283657*^9}, + 3.992099334098713*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"e7dc1160-35c0-4348-b067-d80572dd13bb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"8500d0e7-89a9-6a4a-bc1c-2125d91928c9"], + +Cell[BoxData["182"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.9917079686284103`*^9, 3.9920860568515472`*^9, + 3.9920862675907288`*^9, 3.9920865704453335`*^9, 3.9920866012762756`*^9, + 3.992086667425951*^9, {3.992086775900427*^9, 3.9920868032897816`*^9}, + 3.992099334107609*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"16ed93ea-f76a-f440-9a47-fc261084821e"] +}, 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->"cd502e68-f916-3d41-9777-007b3d275509"], + +Cell[BoxData["0.1143501326259947`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9917079686354065`*^9, 3.9920860568816433`*^9, + 3.9920862675967255`*^9, 3.9920865704673367`*^9, 3.9920866012962723`*^9, + 3.992086667430956*^9, {3.992086775921425*^9, 3.992086803313404*^9}, + 3.992099334116617*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"a3737848-1627-e943-b71c-a82043ef84f7"] +}, 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->"dc9e7d45-a86e-8549-a9ed-54c3075ee4f5"], + +Cell[BoxData[ + RowBox[{"-", "2.558692686623721`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.991707968658518*^9, 3.9920860569066925`*^9, + 3.992086267627468*^9, 3.9920865704723377`*^9, 3.9920866013012753`*^9, + 3.9920866674524727`*^9, {3.9920867759274426`*^9, 3.9920868033194046`*^9}, + 3.9920993341257267`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"2b8c39e7-6eb4-5440-8b8c-11830a04b121"] +}, 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.991972093618887*^9, 3.9919720982596817`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"fcf31744-7c06-c346-a02f-b02c3acdfe9c"], + +Cell[BoxData["16.19476930294046`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.991707968678421*^9, 3.9920860569136944`*^9, + 3.992086267651493*^9, 3.9920865704962807`*^9, 3.992086601307276*^9, + 3.992086667458479*^9, {3.992086775951008*^9, 3.992086803343006*^9}, + 3.9920993341347294`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"e963342b-7b9e-5145-a838-733ff1523184"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"bd371f8b-faa5-5848-ae21-63e721a13b5c"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.9917079686854057`*^9, 3.992086056939745*^9, + 3.992086267670479*^9, 3.992086570523632*^9, 3.9920866013305016`*^9, + 3.9920866674794827`*^9, {3.9920867759565735`*^9, 3.9920868033491592`*^9}, + 3.9920993341426125`*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"491c38aa-bdab-d446-935f-46c9eea56215"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "0.889"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.991793106556059*^9, 3.992085933324785*^9}, + CellLabel->"In[32]:=",ExpressionUUID->"a156c351-7671-e64c-b7a4-d297071c83f6"], + +Cell[BoxData["0.889`"], "Output", + CellChangeTimes->{ + 3.9920860569446983`*^9, 3.9920862676814785`*^9, 3.9920865705475826`*^9, + 3.9920866013365097`*^9, 3.9920866675006237`*^9, {3.9920867759825478`*^9, + 3.9920868033546314`*^9}, 3.992099334151676*^9}, + CellLabel->"Out[32]=",ExpressionUUID->"8c34d036-f1a4-ea43-b16b-7fd52e5c29f9"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431193859673`*^9, 3.9918431193894367`*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"020ee4c3-20e1-184f-8a55-8da42eb685c9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"n1", "=", "0.634"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917169698218613`*^9, 3.991717907758713*^9, + 3.991793107839529*^9, 3.9920859368147087`*^9}, + CellLabel->"In[34]:=",ExpressionUUID->"bc4903cd-c82a-264f-9571-65c53696313a"], + +Cell[BoxData["0.634`"], "Output", + CellChangeTimes->{ + 3.9920860569747295`*^9, 3.992086267704502*^9, 3.99208657055459*^9, + 3.992086601359558*^9, 3.992086667509161*^9, {3.992086775989546*^9, + 3.9920868033846836`*^9}, 3.9920993341627407`*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"4859c935-0919-eb43-b61a-438860898525"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843120757866*^9, 3.9918431207603054`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"d0cc9243-6f1a-3c4d-8fa8-ae971bdcba8e"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv1", "=", "1.069"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.991717916696951*^9, + 3.991793108990593*^9, 3.992085941493677*^9}, + CellLabel->"In[36]:=",ExpressionUUID->"2e2a32d1-8f00-4440-9024-23561cb3fe8c"], + +Cell[BoxData["1.069`"], "Output", + CellChangeTimes->{ + 3.9920860570089607`*^9, 3.9920862677305984`*^9, 3.9920865705816116`*^9, + 3.9920866013675575`*^9, 3.992086667531679*^9, {3.992086776016308*^9, + 3.992086803410513*^9}, 3.9920993341757317`*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"e5b08433-4643-134e-b8e6-c46c50f16948"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431220200443`*^9, 3.9918431220220585`*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"48948dee-4483-e44f-b4d8-3d3f46844b64"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn1", "=", "0.744"}], "\n"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.991716995355715*^9, + 3.9917931103354855`*^9, 3.9920859453537045`*^9}, + CellLabel->"In[38]:=",ExpressionUUID->"130058f9-3d8b-7142-97ba-a17d0fa00eb8"], + +Cell[BoxData["0.744`"], "Output", + CellChangeTimes->{ + 3.9920860571022167`*^9, 3.9920862677565975`*^9, 3.9920865705886135`*^9, + 3.99208660139657*^9, 3.992086667539192*^9, {3.9920867760232925`*^9, + 3.992086803417515*^9}, 3.992099334186741*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"f3aa1239-4142-3e49-9474-725405b6b0bf"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431237966404`*^9, 3.9918431238010616`*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"cabca342-96dc-454c-b758-b3f5f02c034c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.991"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991717006317978*^9, 3.9917931115739956`*^9, 3.9920859513160667`*^9}, + CellLabel->"In[40]:=",ExpressionUUID->"05b3f544-3db4-bf4e-abbb-4481269e5183"], + +Cell[BoxData["1.991`"], "Output", + CellChangeTimes->{ + 3.9920860571301746`*^9, 3.9920862677775993`*^9, 3.9920865706167297`*^9, + 3.992086601418375*^9, 3.99208666756719*^9, {3.9920867760472984`*^9, + 3.992086803446306*^9}, 3.992099334197733*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"66548d8b-f2ba-5447-85a1-cc23666e0b6b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431249171696`*^9, 3.991843124921198*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"601ca6a9-cdd2-9145-91d0-9859b2c8afcd"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.921"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917170151233826`*^9, 3.9917931128910503`*^9, 3.9920859570410233`*^9}, + CellLabel->"In[42]:=",ExpressionUUID->"272046df-8390-c14d-94ca-7dc3a031d1a2"], + +Cell[BoxData["0.921`"], "Output", + CellChangeTimes->{ + 3.992086057153713*^9, 3.9920862677985992`*^9, 3.992086570642597*^9, + 3.9920866014433823`*^9, 3.9920866675731907`*^9, {3.9920867760553913`*^9, + 3.9920868034683304`*^9}, 3.992099334211437*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"014ea838-df2a-6045-a3ad-f6a8a57a0021"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843126102844*^9, 3.991843126104536*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"06cc8922-145e-454b-810e-450ce13ef149"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "2.422"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, { + 3.9917170243815575`*^9, 3.991717046491377*^9}, 3.991793114539028*^9, + 3.9920859610670395`*^9}, + CellLabel->"In[44]:=",ExpressionUUID->"49845d1d-18ac-b545-93c6-d60cf1bdcf6b"], + +Cell[BoxData["2.422`"], "Output", + CellChangeTimes->{ + 3.9920860571617165`*^9, 3.99208626780674*^9, 3.992086570651617*^9, + 3.992086601467415*^9, 3.9920866675994263`*^9, {3.992086776087263*^9, + 3.9920868034795456`*^9}, 3.9920993342236576`*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"7242f334-c11a-be4e-bd98-862b93a14951"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431274420605`*^9, 3.9918431274461517`*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"017d83be-5804-7340-9aff-1680f8faef71"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "1.520"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.991793116134735*^9, 3.9920859650537796`*^9}, + CellLabel->"In[46]:=",ExpressionUUID->"6b00b62e-7b8c-4549-b17f-e7c4f833c97c"], + +Cell[BoxData["1.52`"], "Output", + CellChangeTimes->{ + 3.992086057192232*^9, 3.992086267836733*^9, 3.992086570676237*^9, + 3.9920866014884205`*^9, 3.992086667620432*^9, {3.992086776115265*^9, + 3.9920868035049725`*^9}, 3.992099334235777*^9}, + CellLabel->"Out[46]=",ExpressionUUID->"11be106e-1fda-4049-bc50-3c6a01c8a00f"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843129570627*^9, 3.991843129574024*^9}}, + CellLabel->"In[47]:=",ExpressionUUID->"b8d4ac41-704e-6240-b2bf-8f652914eb87"], + +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[48]:=",ExpressionUUID->"4d921be0-6220-a84f-83ba-2165f404e8f7"], + +Cell[BoxData["31.169618376887957`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.991707979950527*^9, 3.99208605754793*^9, + 3.9920862678957367`*^9, 3.9920865707097645`*^9, 3.992086601521433*^9, + 3.9920866676705303`*^9, {3.9920867761731644`*^9, 3.9920868035374813`*^9}, + 3.992099334299282*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"78092468-c42f-034c-9b5e-ca07dd7a1ea2"] +}, 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[49]:=",ExpressionUUID->"1a7a1476-5e17-c94c-af5b-04ba6c2e03b5"], + +Cell[BoxData["0.6731047036398055`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9917079908393784`*^9, 3.9920860575922737`*^9, + 3.9920862679383984`*^9, 3.992086570747278*^9, 3.9920866015565434`*^9, + 3.992086667708521*^9, {3.9920867762131767`*^9, 3.992086803570322*^9}, + 3.9920993343571663`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"34fff01b-b122-5848-8ebb-d1da6ad2c39f"] +}, 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[50]:=",ExpressionUUID->"0d7e1e77-445a-034d-b76e-a1ac677e2a91"], + +Cell[BoxData[ + RowBox[{"-", "372.70649967012986`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.991707995240637*^9, 3.9920860576318016`*^9, + 3.992086267978388*^9, 3.992086570780279*^9, 3.9920866015855484`*^9, + 3.9920866677442665`*^9, {3.9920867762461967`*^9, 3.992086803601267*^9}, + 3.9920993344122887`*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"0f844d14-aa04-d148-9d0f-942aa1d0be70"] +}, 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[51]:=",ExpressionUUID->"76cb1734-b84f-9444-acdb-3d227a29c871"], + +Cell[BoxData[ + RowBox[{"-", "1044.7246524682707`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.991707999380541*^9, 3.9920860576748123`*^9, + 3.9920862680234985`*^9, 3.992086570817337*^9, 3.9920866016215477`*^9, + 3.9920866677821484`*^9, {3.992086776283224*^9, 3.992086803636261*^9}, + 3.992099334475006*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"cb9b145a-47fd-1142-b0b2-1293dbb62ef7"] +}, 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[52]:=",ExpressionUUID->"99ccbfaa-5c29-854a-a530-52fd7b341fce"], + +Cell[BoxData[ + RowBox[{"-", "259.8695599568833`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.991708001954468*^9, 3.992086057718851*^9, + 3.992086268066494*^9, 3.992086570860342*^9, 3.9920866016586037`*^9, + 3.992086667819168*^9, {3.992086776323227*^9, 3.9920868036722755`*^9}, + 3.9920993345383244`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"a76c8bbe-4990-9247-a90e-b65c0a95c045"] +}, 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[53]:=",ExpressionUUID->"086c7e51-1263-494b-87cb-6f98f257b41e"], + +Cell[BoxData[ + RowBox[{"-", "1495.7852478733544`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.9917080040838356`*^9, 3.992086057776539*^9, + 3.992086268121565*^9, 3.992086570903343*^9, 3.992086601703615*^9, + 3.992086667865225*^9, {3.992086776370306*^9, 3.9920868037133484`*^9}, + 3.99209933460742*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"a7f27564-9a2c-9c41-8c7b-15f25bd0d138"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"2f99bf7a-52e7-2e46-bb76-ee974db553d0"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.991708067458639*^9, 3.9920860577975445`*^9, + 3.992086268141716*^9, 3.992086570923395*^9, 3.992086601725624*^9, + 3.992086667870228*^9, {3.992086776398308*^9, 3.9920868037333527`*^9}, + 3.992099334621311*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"97e1308e-5bfd-3842-9817-3531e3e9d98f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"eebb948a-63cd-a442-b833-842277921a53"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.9917080674805565`*^9, 3.9920860578025436`*^9, + 3.992086268149719*^9, 3.992086570929405*^9, 3.9920866017452965`*^9, + 3.992086667896475*^9, {3.992086776419306*^9, 3.992086803739353*^9}, + 3.992099334630352*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"ec8d0c68-228c-1744-bcfb-eb6e11434021"] +}, 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[56]:=",ExpressionUUID->"6e867428-93ae-e240-89ff-31631071a68c"], + +Cell[BoxData["2212.1207838096793`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9917080675026455`*^9, 3.9920860578265495`*^9, + 3.992086268167341*^9, 3.992086570954405*^9, 3.9920866017743587`*^9, + 3.9920866679175053`*^9, {3.992086776426306*^9, 3.9920868037613735`*^9}, + 3.9920993346393127`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"24540007-0089-5049-8b4a-5f5a0b001f1d"] +}, 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[57]:=",ExpressionUUID->"bd8b9002-5460-1d49-aacf-583105fa4755"], + +Cell[BoxData[ + RowBox[{"-", "3166.463119014952`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.991708067510544*^9, 3.99208605783457*^9, + 3.9920862681909695`*^9, 3.992086570961405*^9, 3.9920866017975693`*^9, + 3.9920866679425335`*^9, {3.9920867764324074`*^9, 3.9920868037683716`*^9}, + 3.9920993346490498`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"9c5b57bd-a16f-8e44-a2f1-f4573cf8f9b9"] +}, 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[58]:=",ExpressionUUID->"68d472d8-2648-2748-83b2-d844d8ecb8bb"], + +Cell[BoxData["4780.565019838899`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9917080675337753`*^9, 3.9920860578555565`*^9, + 3.9920862681974792`*^9, 3.992086570983412*^9, 3.9920866018035927`*^9, + 3.992086667948538*^9, {3.992086776457493*^9, 3.9920868037919464`*^9}, + 3.9920993346590633`*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"253045e7-77a9-824b-84c8-ce08de3b45e5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"5b5a8c8e-b242-714d-a8b7-82448475c921"], + +Cell[BoxData["0.8492253700915684`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.991708067540825*^9, 3.992086057861557*^9, + 3.9920862682165356`*^9, 3.992086570993412*^9, 3.9920866018254967`*^9, + 3.992086667970564*^9, {3.992086776462492*^9, 3.992086803812454*^9}, + 3.992099334668062*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"005d2618-561b-434a-91df-01351cd5f8c8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"b83dfc16-72d3-7e44-9293-ee02d41e2804"], + +Cell[BoxData[ + RowBox[{"-", "1.1896646126189885`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.991708067561775*^9, 3.9920860578695545`*^9, + 3.9920862682215385`*^9, 3.9920865710174274`*^9, 3.9920866018499928`*^9, + 3.9920866679765587`*^9, {3.9920867764902725`*^9, 3.9920868038194695`*^9}, + 3.9920993346770496`*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"abffdf28-6519-d846-a57b-a8f423b14698"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"f95654b6-7a61-0c44-936d-46eaeffdcfb7"], + +Cell[BoxData[ + RowBox[{"-", "0.07157823242670158`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.9917080675837746`*^9, 3.992086057898611*^9, + 3.992086268229542*^9, 3.9920865710414886`*^9, 3.992086601870537*^9, + 3.99208666799856*^9, {3.992086776511881*^9, 3.9920868038434715`*^9}, + 3.99209933468556*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"341eab09-e0e0-fb46-a582-1df174a1f9a7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"dc8a1e5a-c41c-e048-a141-5f4b09f3f733"], + +Cell[BoxData["0.36531988493615475`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.9917080675917854`*^9, 3.9920860579196167`*^9, + 3.9920862682466774`*^9, 3.992086571067438*^9, 3.9920866018954678`*^9, + 3.992086668004545*^9, {3.992086776540409*^9, 3.9920868038534584`*^9}, + 3.992099334694832*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"b7e960fc-634a-ba45-95da-a190a332e893"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"4b99d4f2-04ad-5546-8a36-6e453a4d42bb"], + +Cell[BoxData["1.3932112707868565`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.991708067612774*^9, 3.992086057924618*^9, + 3.9920862682647114`*^9, 3.9920865710734444`*^9, 3.99208660190147*^9, + 3.992086668009548*^9, {3.9920867765645065`*^9, 3.9920868038804703`*^9}, + 3.9920993347038326`*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"7d811afa-a76f-cf49-a3a1-316e37f9e8df"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"2c611c37-9024-2948-ad05-81f23ed86fa4"], + +Cell[BoxData["3.0097040215395996`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.991708067619776*^9, 3.9920860579496193`*^9, + 3.9920862682697086`*^9, 3.9920865711034584`*^9, 3.992086601925476*^9, + 3.9920866680342903`*^9, {3.992086776570503*^9, 3.99208680388603*^9}, + 3.992099334711832*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"c36de680-e33a-fe4b-8e5e-24beb18cbbc4"] +}, 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[65]:=",ExpressionUUID->"8d8264fd-a79c-3644-91fa-755c8f060dc6"], + +Cell[BoxData[ + RowBox[{"-", "5.270467564360312`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.991708067640772*^9, 3.9920860579616146`*^9, + 3.9920862682944393`*^9, 3.992086571123514*^9, 3.992086601930479*^9, + 3.9920866680632725`*^9, {3.99208677659153*^9, 3.9920868039130783`*^9}, + 3.992099334721819*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"1d240484-12ab-0543-8fc5-1be4bde2778d"] +}, 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[66]:=",ExpressionUUID->"32a72538-4b4c-fa49-877c-c1bb0f793329"], + +Cell[BoxData[ + RowBox[{"-", "51.15351790227487`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.991708067662775*^9, 3.9920860579829197`*^9, + 3.992086268301441*^9, 3.992086571129526*^9, 3.992086601955652*^9, + 3.992086668069273*^9, {3.9920867766018753`*^9, 3.9920868039341793`*^9}, + 3.9920993347308197`*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"d88d52d3-bc30-5541-baf4-afea8b11d61d"] +}, 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[67]:=",ExpressionUUID->"9bcd69f6-e764-484d-98a4-b95600ed9b7f"], + +Cell[BoxData["2206.850316245319`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.991708067669775*^9, 3.992086057988922*^9, + 3.9920862683069553`*^9, 3.992086571153517*^9, 3.9920866019616756`*^9, + 3.9920866680988617`*^9, {3.992086776625183*^9, 3.992086803955179*^9}, + 3.99209933474082*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"c2ce73b6-2ae0-2a45-bd7a-e9d580c7297d"] +}, 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[68]:=",ExpressionUUID->"035c7338-5a26-334d-814f-aaf357f424c7"], + +Cell[BoxData[ + RowBox[{"-", "3166.463119014952`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.991708067690773*^9, 3.9920860580136375`*^9, + 3.9920862683254623`*^9, 3.9920865711785164`*^9, 3.9920866019914055`*^9, + 3.992086668104372*^9, {3.99208677663167*^9, 3.9920868039611816`*^9}, + 3.992099334749264*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"755148ba-bc13-0241-9b76-f9b1dfbba011"] +}, 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[69]:=",ExpressionUUID->"88364e9a-a5c0-614b-adca-40cfe4299d0d"], + +Cell[BoxData["4729.4115019366245`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.991708067697775*^9, 3.9920860580186367`*^9, + 3.992086268332466*^9, 3.9920865711994247`*^9, 3.9920866020163975`*^9, + 3.992086668129669*^9, {3.9920867766542397`*^9, 3.992086803983183*^9}, + 3.992099334759384*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"6a9e13a2-2f15-e44d-a5c1-f2027d4f99dd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"2143c15f-8edb-5645-bc38-8baf15164190"], + +Cell[BoxData["199.42817651512246`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.9917080677197742`*^9, 3.9920860580256405`*^9, + 3.992086268355482*^9, 3.9920865712064476`*^9, 3.992086602022396*^9, + 3.992086668135229*^9, {3.992086776660242*^9, 3.992086803989208*^9}, + 3.992099334769598*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"73aa72f3-3b5c-ce46-b40f-f1e5fda0a110"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"87beafd8-d9de-784e-a815-cd383a8626f9"], + +Cell[BoxData["6725.14571990162`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.991708067726776*^9, 3.9920860580466385`*^9, + 3.9920862683614655`*^9, 3.992086571211939*^9, 3.9920866020454216`*^9, + 3.99208666816308*^9, {3.9920867766842403`*^9, 3.9920868040112057`*^9}, + 3.992099334784172*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"62e429d5-0fd6-6442-8960-28c7919f406a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.10045722207791"}]], "Input", + CellChangeTimes->{3.9918455833864365`*^9, 3.992088489688469*^9}, + CellLabel->"In[72]:=",ExpressionUUID->"e6c462cd-8982-3c4a-8614-a4032c2a753f"], + +Cell[BoxData["0.10045722207791`"], "Output", + CellChangeTimes->{3.992099334789171*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"4b3862c6-6770-8641-8b61-432964f394ae"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991845586273697*^9, 3.9918455862781773`*^9}}, + CellLabel->"In[73]:=",ExpressionUUID->"abfd70d0-05dc-ae40-8117-a301872389cf"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.572083902248993"}]], "Input", + CellChangeTimes->{3.9918455848875866`*^9, 3.992088494358206*^9}, + CellLabel->"In[74]:=",ExpressionUUID->"ab6f3c19-7b16-eb44-924b-0479fa42666f"], + +Cell[BoxData["0.572083902248993`"], "Output", + CellChangeTimes->{3.9920993348036823`*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"7245dba8-2e21-f949-be74-c99b12adba77"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991845587327196*^9, 3.991845587331728*^9}}, + CellLabel->"In[75]:=",ExpressionUUID->"6e63ff1c-fb16-304a-8e59-6a9d82a9fa7a"], + +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[76]:=",ExpressionUUID->"764f2b72-583f-404a-86dd-302e46704fa0"], + +Cell[BoxData["9.103990235902606`*^-54"], "Output", + CellChangeTimes->{3.9913335367025833`*^9, 3.9920993348458633`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"8aaffa01-b744-8f4e-847f-a659c171db3d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + 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"]}]], "*", "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, {3.9915581188955975`*^9, 3.9915581216343517`*^9}}, + CellLabel->"In[77]:=",ExpressionUUID->"296c29c6-b9f9-1d4a-99c7-5d23057d1dfa"], + +Cell[BoxData["8.929535587268165`*^-56"], "Output", + CellChangeTimes->{3.991333536726557*^9, 3.992099334861862*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"6911d534-8759-cf4c-9ee0-51d1e5aba384"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + 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"]}]], "*", + 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}, + 3.9915581158968887`*^9}, + CellLabel->"In[78]:=",ExpressionUUID->"da02f8be-1800-4945-83f1-7acaa76423f4"], + +Cell[BoxData["5.016159784621923`*^-54"], "Output", + CellChangeTimes->{3.9913335367515736`*^9, 3.9920993348726807`*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"95326814-e08a-af4e-8405-cb906353ec93"] +}, 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[79]:=",ExpressionUUID->"c6346807-3d42-e948-8c5a-115ea1f6a2c2"], + +Cell[BoxData["46.9359074551804`"], "Output", + CellChangeTimes->{3.9913335367605553`*^9, 3.992099334881815*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"91650ea3-b84c-5341-b20a-1f956c1d80a1"] +}, 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[80]:=",ExpressionUUID->"474c5dd1-c344-a04c-8714-ada3650bf998"], + +Cell[BoxData["47.47123228262528`"], "Output", + CellChangeTimes->{3.991333536783556*^9, 3.992099334890789*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"0d4643d1-a7df-024f-9d73-7241cf95b369"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[81]:=",ExpressionUUID->"2305be88-628a-524a-b468-85b3cc42efc7"], + +Cell[BoxData["2.0612973725615147`"], "Output", + CellChangeTimes->{3.9913335367915726`*^9, 3.992099334899681*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"99c1ea81-c779-fb42-a87b-fdb2f7334f39"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"426f7e1e-7abd-a446-8679-e422e283f98f"], + +Cell[BoxData["11.902428924644067`"], "Output", + CellChangeTimes->{3.99133353681583*^9, 3.9920993349076805`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"a755335e-ccde-1f4c-80f8-6ab6355ee34d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[83]:=",ExpressionUUID->"933badd0-5ce1-e645-bb03-d046b1312945"], + +Cell[BoxData["565.0229682092163`"], "Output", + CellChangeTimes->{3.991333536826782*^9, 3.9920993349158096`*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"f4670e9f-2904-584b-bd94-4b71f426b858"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[84]:=",ExpressionUUID->"2d8a17a7-6a4c-d94e-b0e2-4da7c60ebbeb"], + +Cell[BoxData["96.74886271615377`"], "Output", + CellChangeTimes->{3.9913335368508377`*^9, 3.992099334927183*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"a9c196b5-bbcb-ae4b-a3c8-ee17aa5a0c33"] +}, 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[85]:=",ExpressionUUID->"042e7197-09fd-dc46-b3fd-dc1740a81970"], + +Cell[BoxData["0.01031760615220318`"], "Output", + CellChangeTimes->{3.9913335368758316`*^9, 3.992099334941126*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"9e27dff5-7f24-d845-baad-d1a13fe822c0"] +}, 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[86]:=",ExpressionUUID->"bccf6e25-da00-4449-8f0f-f2b61c58f67f"], + +Cell[BoxData["8.724799747775068`"], "Output", + CellChangeTimes->{3.991333536973074*^9, 3.9920993350169735`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"5bd2ae7f-bf11-0344-b389-7387fb30e3fc"] +}, 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[87]:=",ExpressionUUID->"9f9260b3-ca67-3f4a-a0c4-5bf2cb98e110"], + +Cell[BoxData["0.0015571958928053342`"], "Output", + CellChangeTimes->{3.9913335369870644`*^9, 3.9920993350289593`*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"7e786ca6-864e-8147-9826-78357c2ba301"] +}, 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[88]:=",ExpressionUUID->"52f82243-9920-3742-90e6-48395671d171"], + +Cell[BoxData["22.458115751204417`"], "Output", + CellChangeTimes->{3.9913335370800858`*^9, 3.992099335103136*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"ba98d4db-f522-8c47-98c4-9415dfdbddc3"] +}, 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[89]:=",ExpressionUUID->"a147c908-551b-8647-9cf0-48614f0cb274"], + +Cell[BoxData["0.9825098148127043`"], "Output", + CellChangeTimes->{3.9913335370930634`*^9, 3.992099335117258*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"1ee5ff45-8eba-0743-a870-fbf9a955b6d1"] +}, 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[90]:=",ExpressionUUID->"4c078cff-433d-8245-900f-0a3b49ecb9e6"], + +Cell[BoxData["0.017490185187295736`"], "Output", + CellChangeTimes->{3.991333537118065*^9, 3.9920993351292553`*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"222a62a0-873f-7147-a793-486323406eb5"] +}, 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[91]:=",ExpressionUUID->"f07c74eb-272f-1743-a996-1dc503a54262"], + +Cell[BoxData["0.017184278609409836`"], "Output", + CellChangeTimes->{3.9913335371420746`*^9, 3.99209933513982*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"21b07ddb-893f-7941-a6a8-fa18b2ae8368"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[92]:=",ExpressionUUID->"c5ebf9ff-e333-7b4d-b8d5-46482917dc06"], + +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.991845612037445*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"e7569d02-bed5-3743-8058-837bf8cfd65c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.705403456017331`*^-219\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 93, 350, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335371540604`*^9, 3.9920993351618004`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"a0ac8ef7-bf7f-0846-b83d-2fa237c9dcde"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4464176192624529`*^-224\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 93, 351, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335371540604`*^9, 3.992099335177801*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"ec7fab97-6781-5a4c-86a3-9cb38fbcb4ae"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.6669167140254687`*^-230\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 93, 352, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335371540604`*^9, 3.9920993351858006`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"5646e58a-f51b-254c-b734-63186a00bfb6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 93, 353, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335371540604`*^9, 3.992099335193798*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"bad7d70a-cd0c-2747-a4f3-b606fd96b0b4"], + +Cell[BoxData["8.724799747775059`"], "Output", + CellChangeTimes->{3.9913335399194164`*^9, 3.992099337575142*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"e98e2e5d-85ef-1a4d-89b4-674f10fd0c53"] +}, 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.9918456299851303`*^9}, + CellLabel->"In[94]:=",ExpressionUUID->"71739d4a-f3fc-9d4f-b803-99b4407cdc6f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.705403456017331`*^-219\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 94, 354, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335399544125`*^9, 3.992099337628107*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"fd80b465-6584-7b4c-b84f-6e613b2c2016"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4464176192624529`*^-224\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 94, 355, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335399544125`*^9, 3.9920993376361065`*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"acdb17dd-9508-4d46-b500-77b677716c76"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.6669167140254687`*^-230\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 94, 356, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335399544125`*^9, 3.9920993376431084`*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"344b088a-b8a1-164c-94fb-753cf9cebe03"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 94, 357, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335399544125`*^9, 3.9920993376514797`*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"1c012323-3975-1944-a480-16ddcc4e63a6"], + +Cell[BoxData["22.4581157512044`"], "Output", + CellChangeTimes->{3.991333542631773*^9, 3.992099339938238*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"ba0abfa9-2c30-bb4e-a296-ce5afa3a4b9a"] +}, 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.991845637746252*^9}, + CellLabel->"In[95]:=",ExpressionUUID->"762274ee-d7cb-9644-9b5c-516685cd7481"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk4VWsXAHCRkqEMmRLJVJT4zFTWCiUSUskQcTpno0FC0sQthEyRG3VD +gzJkrAyFUhrcuBGaI/sYkjFjnF353v7Yz35+z9rP2uvda6+1nHXIicPPx8fX +R64/98Ov1qyoaH5lbl9pcy4whgbz4WxDllUB6Cj/78kfd2YZpapZVcOi+C6/ +IGJH9n/zRPWfwZSg9+lg4tLQ8DpBq0aozswTCiGOfS5XG57/GrIP1sweJb7f +fDjzp94b6D1/hTpO3P/x5cljVe/BVNt6/SniJT2q7lOWn0HXvybiL+ItIydN +gxq/ADdq1jSS+OHPfpHQfBosCsW8YojfnpY9Ue7fBTWqfZPxxMPzrPon9Hrg +iU4Sk0w8Lz7AVf9HL8gpCRxOI1aSyKg/XNUHoRZWzhnE9gpTt4YtB0EvQycg +n5i6qiKjLTQMZlc+ZpcSh6s7RO1vHIE7rB0294nfy7b9Lzh/FLjK5fS/xGy3 +fX4X4segWybrTQvx9yt81+74j0N1s4vpZ2IhFW3xUb1JEH+Ljt+JU9l11uLS +U+C3M0CAIVbOcQ3X+TEFc/mCNObF0mCy+uzwwappuBkzUaVI7Gv0pbHf8ies +Kfup5kQ8EXpkrrDGL1ha/MHZi/ivKpF1mkK/Iao7adqfOB1Nbvs0zoJ5bFxc +AjH7Zr1VYP4cnOZ+GGkizn9+ofO0Aj8eunv5Kk38/avnyeR4fnx1Yt3jceKT +WpN3S/wFMH3bCif5c6Te4uWqI3qCuFT6wR0/4o/Ngw9/3xDElmPXuWHEymMV +bgul56EYHDmTSlxgYJ+i/WMe+ih9kXhM/PT+8TkHqoQwflH/oWVxNEzWtX7p +sxTFsFvLtUaJJe1ExU88FMVbiz1qFsXToNtmhWKmYjjvyvq2NcT7usuu/m/N +QrSvmYr3Jw7gb9RdLyqOB57EaE0Q96gUjUZNSWDk4EY5uUTyfaiXC5r0JfGk +71CvOTH/7d7lcoclsdbW25QiVtZf5pQ/IInirvf9yondLM/fedUphWaWx6d3 +J9HQtDcwSLZBGvnffGx+cp6GjpzEOC8hGbwYm9s+Sjw4kH8jb6MMFukG+S9P +pkE4uKt1ba0MmtWILj1DbBW5w8CrTBbTs0tybFJoeJBtNJmbJY8hhe8jRi/Q +kN3DCzELVkT3bUf3ZafRsHlndEdQoSKWWvjWfSEefCq1qbBXEUU/vE9SSKfB +IHu1tLKrEk5lWEekEj9led4VNF+Ga+7VtcVdomFspPNoX4QyDp5OVD//Dw1S +B63u3d2qglPHblweyaKhN1vY13GfCq6dWrHf9CoNlZ+bFYbOquCBhqLiCOLd +dh4RGrUqeLPoTar8NVLfqhCnS3qqKKq2oNn2Onl/f873MFk1XLBBbWFdNg07 +fES0bWl1bD0X0yBM5hBCdurt+qWObhUdvt7EWlFZxmx5DYxRsg+pJOa7oW8R +tk0Dyxcm0D63aSjscN9157EG/vdLgddQQObTueD0kusr0KpI1iSvmNRntfVt +P0sTjYtzxSrLaLixPe3TjzBNPKURU7m0nIZEFt059x9N7GzUbTtNzP7ryIBS +qyYmuk56bK2gQaI6g2+7pRaqPx6r+lZJ/h/9Ya0q1VWocXlhjnE1DQoqSeFx +3avRoTaTs7KOhupzE5oz/NpYe5J/Kpt497hrG7VcG3dmiIiqPKUh86mapoWn +Nr4K0f1X8RkNKj4PWqbfaaPQ8YoYhRfkvAU96lTDGvz67yE13QYaFBWUKGVX +XXxlJrLwYSsNq28GizKghxJbkuv8e2lgsSMmte31sD66PJD/K5lX1ZQOr916 +qHNqT/pFYoHrxSXPQ/Xwd/se69o+Mm+Z/TtSSvUwRljKUH6A7NN0rwxNVX3k +yintokdIf+Ps1rjMM8ALTvOmXs7QcC1QzbGs0RBb7kRXCC7iwp2O2ji5z4Y4 +JOVl+Jz4ia3HixMDhjgljRuixbnQrXLR3ELYCPdfsxMQkeSCRut87SZrI2xk +S+jJS3OhQH9gwbcnRjgwY7DJUYELlROldUvvG2Owpna+5kouNIeAceRNU6SW +zcbGW3Jhuecbe48D63H07TnudDgXOLPlRYrHEN1jNGNCarkgO1A5X5ZlgbO/ +LzjELOqCYP11n1O0rNAkVcnBkNUFrKGf9VL9G3FxkZL+h6ouKLQImp/VZI0S +/P0JUiu6IXti3+OCVBtM9447/Sa1G6Y3yP33NHwLHjta4vlKpgfa+QRGae+t +ePT2jv0z13rAf+mh86dVHfCF9Ej86TW9UORXX/t3lCPO1fi3ZUlrLxwfl/+x +ym8b/pjz0iw99CtM2m5yfrHHCSuyPU45mPaBqXvyhp5t29EC33RGz/0GLfIZ ++57q78C03m9fBZq+wZJbEdW5K3eiq0P1xZ+V/VDZqWVnL+aMJWeUhzZeGwCl +tu8+IUPOeO/RAfMVKYOg/3dywY3OXTgo1xdkd2sIMuaOr0mpc8EUw1+XO8uG +oXyDzseo+65Y2vwiaPnACKQbn5P4me+GmWliEyWp36Hp082z+vHumPecEXfW +GYWyrVfUAv7ajVn1z112tY/C6MHtfP5sD4w8bCggHTUGk5s0fYctPbHdZubS +M+1xyB36MB1ktAcjf/ooX+gbB5drN/d6iHphL5v9ZsOlCbh7Z8segWgv1NLU +Hu52nQRThZaZ2Bkv/JjeKGkoNgWqnT4fX/t5Y8XaPa/rH0xBt8h+hytd3rjZ +cVfSqcAf0Jxov9d6JwuP1LbEnpOdhtTQLJEjzSy0kmhx6q+dhuqHszN7bfbi +Cqp7YtZtBhbtxmj9B3uxb1NHTUT7DJh6DedGGbAxcma15yo3Hty69D3I3oiN +5WbVF9+782Bx65i5rAkb9eWeVUZ68GB444+23LVsfBTGqvjgxSP7i29OowUb +g3xLkkN8eLDwh4Sr5DY2JuWccDoRzIPuBMMFWQfZ+PjN+ubCBB4kVp30q7zF +xnlJdF9GNQ8O6qWZhuaycZHSrileDQ/s8koXmOSzkbVCqt35EQ+E03rzKgrZ +2HrtnYHIEx5EBTr2l99j46t13/mpFzw4qam2v+wJG5tkjJ91vebBvrSGA3c6 +2Fihk+jwq4cHNgt71wV2kvhY/n8GX3mwMopPTI/LxpWPPOX39/GgN9CwsLSH +jRfHV8q19fPA2z5rqGSQjQHqOXlpIzxwEQzyL+axMSXWqrl7mgfWQUsCCmQ4 +2LFD+HOqMANPss7apshxEF1cwqtFGFjXOKYWuoSD9b1phVyyiXTVGz5YKnFQ +cq9bntYiBuTfnbD8pM7BwBAxqTwpBgbM2mWEDTm4OK7Udc9SBpL4r9b4bOeg +09WzysWrGRDWEU3fupODmzu8fXO0GYh0Dw3U38XBnY7ROplrGAi957hi1o2D +zS3uZtG6DHhTc5IvsjjIfjluYm3AgP5LFvvZYQ6Wmz5ODlvLwLtkdRHV8xy8 +VyYeV7+ZgSIQ8+1L5mDewHjrGRuSf2jiaeEFDuZGH3y21pZsUpunYSZpHKyR +sbyWt4WBRL69Y1szOdh+zcfoiD0Dmw5d/RBawMEg2JvTsJ0BRcUYI/MiDi7L +VPMK2MHAxMtDFwRKOPi0R+Oh1E4GrmvA1sS7HBx9oeHn7MzAr/b22hsPOHg5 +vvxIgwsD9+wUcl/Vc5B7PByCPRiI4/ELpr7kYJLLC0MBTwZYuf3ero0clA70 +fnWeWHzuA4XuJg72j3T05Oxh4ECVS9LMWw7+NnPJe+bNgKrWxRC1Hg5+Oujj ++YjDAO/dqdZvvRzsEXWnTCgGmqM4usV9HHykqLCwhDiMNug3HeRg2a2D6/7x +YeBjequHwzgHi40OiXv7MZAyX2Lj8TkUuq78dDT/AAPVY+3uwQIU/lzGeSd3 +kIGv7fmB/oIUujzzORVFvO6e1VXWAgo103WvuPoz0OsVythKUFiZ46M8dIjU +b7dRcqMUhV8f2RRvDWBgrbGkJkhTuPqqb0QB8XmxAmd9eQrP2jfw2IdJ/MGX +UoXlFKZEO6g8DmSAullQL61K4XbK/J1UEHn+/LEvi9Qp3BDg0swm7qWkxOZq +UujTkpw4J5jEpax9B3UppG5/MNY4wsCD31LhvXoUdsu1C+8n7vnW+XenAYWx +l9WWFxGb1R6vazOhUJInJ6sTwkD3gSKlGqTQL2RQfelRBha6nDCssKBwk7q3 ++HZiU8vNdqVW5DznPNbHECfKc4/d3EyhxdwrnkPElXOLz2fZUmgkXOGkGMpA +18iJnEt2FLrdFondQmzyXPpNgiOFRwQVqq8Ts0q5A9FOFDovulfZQJxwpZj/ +zA4KvZ0tf4wRcwNtdENcKLS9LmS27hgDYp4y1gFuFL5wUTH3JDax6fLYt5vC +zOKZiDDihGWn4jy9KDwsVNJ2n7hS2Pa6C4tCPaXQL23E3EmZ+05sCmeZplXD +f/LRXU12FIVtHwvvCx4n+RpLejf5Uih8VShWgZhVceoX7qMwof3dJR3ihOu2 +i9ceoLDjtdTgBuLKBNlVhv4UfvMpC3ci5oZ2b9AJoNDLuHyHN7Eou9RFM5DC +fZHi+/2JjR3CDqkGk37AoyfH/uQ323JWMYTCXfMfukcQx6vLZciGUtiutsAo +jrhcvOeuxHEKnZIytiUT00zpS5GTpP/9oUV//8n/NYwWDCP5oi7ZpRMbtWyZ +ng2nUHXP71WXiP8PPzL8Lw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4VWsXAHCRkqEMmRLJVJT4zFTWCiUSUskQcTpno0FC0sQthEyRG3VD +gzJkrAyFUhrcuBGaI/sYkjFjnF353v7Yz35+z9rP2uvda6+1nHXIicPPx8fX +R64/98Ov1qyoaH5lbl9pcy4whgbz4WxDllUB6Cj/78kfd2YZpapZVcOi+C6/ +IGJH9n/zRPWfwZSg9+lg4tLQ8DpBq0aozswTCiGOfS5XG57/GrIP1sweJb7f +fDjzp94b6D1/hTpO3P/x5cljVe/BVNt6/SniJT2q7lOWn0HXvybiL+ItIydN +gxq/ADdq1jSS+OHPfpHQfBosCsW8YojfnpY9Ue7fBTWqfZPxxMPzrPon9Hrg +iU4Sk0w8Lz7AVf9HL8gpCRxOI1aSyKg/XNUHoRZWzhnE9gpTt4YtB0EvQycg +n5i6qiKjLTQMZlc+ZpcSh6s7RO1vHIE7rB0294nfy7b9Lzh/FLjK5fS/xGy3 +fX4X4segWybrTQvx9yt81+74j0N1s4vpZ2IhFW3xUb1JEH+Ljt+JU9l11uLS +U+C3M0CAIVbOcQ3X+TEFc/mCNObF0mCy+uzwwappuBkzUaVI7Gv0pbHf8ies +Kfup5kQ8EXpkrrDGL1ha/MHZi/ivKpF1mkK/Iao7adqfOB1Nbvs0zoJ5bFxc +AjH7Zr1VYP4cnOZ+GGkizn9+ofO0Aj8eunv5Kk38/avnyeR4fnx1Yt3jceKT +WpN3S/wFMH3bCif5c6Te4uWqI3qCuFT6wR0/4o/Ngw9/3xDElmPXuWHEymMV +bgul56EYHDmTSlxgYJ+i/WMe+ih9kXhM/PT+8TkHqoQwflH/oWVxNEzWtX7p +sxTFsFvLtUaJJe1ExU88FMVbiz1qFsXToNtmhWKmYjjvyvq2NcT7usuu/m/N +QrSvmYr3Jw7gb9RdLyqOB57EaE0Q96gUjUZNSWDk4EY5uUTyfaiXC5r0JfGk +71CvOTH/7d7lcoclsdbW25QiVtZf5pQ/IInirvf9yondLM/fedUphWaWx6d3 +J9HQtDcwSLZBGvnffGx+cp6GjpzEOC8hGbwYm9s+Sjw4kH8jb6MMFukG+S9P +pkE4uKt1ba0MmtWILj1DbBW5w8CrTBbTs0tybFJoeJBtNJmbJY8hhe8jRi/Q +kN3DCzELVkT3bUf3ZafRsHlndEdQoSKWWvjWfSEefCq1qbBXEUU/vE9SSKfB +IHu1tLKrEk5lWEekEj9led4VNF+Ga+7VtcVdomFspPNoX4QyDp5OVD//Dw1S +B63u3d2qglPHblweyaKhN1vY13GfCq6dWrHf9CoNlZ+bFYbOquCBhqLiCOLd +dh4RGrUqeLPoTar8NVLfqhCnS3qqKKq2oNn2Onl/f873MFk1XLBBbWFdNg07 +fES0bWl1bD0X0yBM5hBCdurt+qWObhUdvt7EWlFZxmx5DYxRsg+pJOa7oW8R +tk0Dyxcm0D63aSjscN9157EG/vdLgddQQObTueD0kusr0KpI1iSvmNRntfVt +P0sTjYtzxSrLaLixPe3TjzBNPKURU7m0nIZEFt059x9N7GzUbTtNzP7ryIBS +qyYmuk56bK2gQaI6g2+7pRaqPx6r+lZJ/h/9Ya0q1VWocXlhjnE1DQoqSeFx +3avRoTaTs7KOhupzE5oz/NpYe5J/Kpt497hrG7VcG3dmiIiqPKUh86mapoWn +Nr4K0f1X8RkNKj4PWqbfaaPQ8YoYhRfkvAU96lTDGvz67yE13QYaFBWUKGVX +XXxlJrLwYSsNq28GizKghxJbkuv8e2lgsSMmte31sD66PJD/K5lX1ZQOr916 +qHNqT/pFYoHrxSXPQ/Xwd/se69o+Mm+Z/TtSSvUwRljKUH6A7NN0rwxNVX3k +yintokdIf+Ps1rjMM8ALTvOmXs7QcC1QzbGs0RBb7kRXCC7iwp2O2ji5z4Y4 +JOVl+Jz4ia3HixMDhjgljRuixbnQrXLR3ELYCPdfsxMQkeSCRut87SZrI2xk +S+jJS3OhQH9gwbcnRjgwY7DJUYELlROldUvvG2Owpna+5kouNIeAceRNU6SW +zcbGW3Jhuecbe48D63H07TnudDgXOLPlRYrHEN1jNGNCarkgO1A5X5ZlgbO/ +LzjELOqCYP11n1O0rNAkVcnBkNUFrKGf9VL9G3FxkZL+h6ouKLQImp/VZI0S +/P0JUiu6IXti3+OCVBtM9447/Sa1G6Y3yP33NHwLHjta4vlKpgfa+QRGae+t +ePT2jv0z13rAf+mh86dVHfCF9Ej86TW9UORXX/t3lCPO1fi3ZUlrLxwfl/+x +ym8b/pjz0iw99CtM2m5yfrHHCSuyPU45mPaBqXvyhp5t29EC33RGz/0GLfIZ ++57q78C03m9fBZq+wZJbEdW5K3eiq0P1xZ+V/VDZqWVnL+aMJWeUhzZeGwCl +tu8+IUPOeO/RAfMVKYOg/3dywY3OXTgo1xdkd2sIMuaOr0mpc8EUw1+XO8uG +oXyDzseo+65Y2vwiaPnACKQbn5P4me+GmWliEyWp36Hp082z+vHumPecEXfW +GYWyrVfUAv7ajVn1z112tY/C6MHtfP5sD4w8bCggHTUGk5s0fYctPbHdZubS +M+1xyB36MB1ktAcjf/ooX+gbB5drN/d6iHphL5v9ZsOlCbh7Z8segWgv1NLU +Hu52nQRThZaZ2Bkv/JjeKGkoNgWqnT4fX/t5Y8XaPa/rH0xBt8h+hytd3rjZ +cVfSqcAf0Jxov9d6JwuP1LbEnpOdhtTQLJEjzSy0kmhx6q+dhuqHszN7bfbi +Cqp7YtZtBhbtxmj9B3uxb1NHTUT7DJh6DedGGbAxcma15yo3Hty69D3I3oiN +5WbVF9+782Bx65i5rAkb9eWeVUZ68GB444+23LVsfBTGqvjgxSP7i29OowUb +g3xLkkN8eLDwh4Sr5DY2JuWccDoRzIPuBMMFWQfZ+PjN+ubCBB4kVp30q7zF +xnlJdF9GNQ8O6qWZhuaycZHSrileDQ/s8koXmOSzkbVCqt35EQ+E03rzKgrZ +2HrtnYHIEx5EBTr2l99j46t13/mpFzw4qam2v+wJG5tkjJ91vebBvrSGA3c6 +2Fihk+jwq4cHNgt71wV2kvhY/n8GX3mwMopPTI/LxpWPPOX39/GgN9CwsLSH +jRfHV8q19fPA2z5rqGSQjQHqOXlpIzxwEQzyL+axMSXWqrl7mgfWQUsCCmQ4 +2LFD+HOqMANPss7apshxEF1cwqtFGFjXOKYWuoSD9b1phVyyiXTVGz5YKnFQ +cq9bntYiBuTfnbD8pM7BwBAxqTwpBgbM2mWEDTm4OK7Udc9SBpL4r9b4bOeg +09WzysWrGRDWEU3fupODmzu8fXO0GYh0Dw3U38XBnY7ROplrGAi957hi1o2D +zS3uZtG6DHhTc5IvsjjIfjluYm3AgP5LFvvZYQ6Wmz5ODlvLwLtkdRHV8xy8 +VyYeV7+ZgSIQ8+1L5mDewHjrGRuSf2jiaeEFDuZGH3y21pZsUpunYSZpHKyR +sbyWt4WBRL69Y1szOdh+zcfoiD0Dmw5d/RBawMEg2JvTsJ0BRcUYI/MiDi7L +VPMK2MHAxMtDFwRKOPi0R+Oh1E4GrmvA1sS7HBx9oeHn7MzAr/b22hsPOHg5 +vvxIgwsD9+wUcl/Vc5B7PByCPRiI4/ELpr7kYJLLC0MBTwZYuf3ero0clA70 +fnWeWHzuA4XuJg72j3T05Oxh4ECVS9LMWw7+NnPJe+bNgKrWxRC1Hg5+Oujj ++YjDAO/dqdZvvRzsEXWnTCgGmqM4usV9HHykqLCwhDiMNug3HeRg2a2D6/7x +YeBjequHwzgHi40OiXv7MZAyX2Lj8TkUuq78dDT/AAPVY+3uwQIU/lzGeSd3 +kIGv7fmB/oIUujzzORVFvO6e1VXWAgo103WvuPoz0OsVythKUFiZ46M8dIjU +b7dRcqMUhV8f2RRvDWBgrbGkJkhTuPqqb0QB8XmxAmd9eQrP2jfw2IdJ/MGX +UoXlFKZEO6g8DmSAullQL61K4XbK/J1UEHn+/LEvi9Qp3BDg0swm7qWkxOZq +UujTkpw4J5jEpax9B3UppG5/MNY4wsCD31LhvXoUdsu1C+8n7vnW+XenAYWx +l9WWFxGb1R6vazOhUJInJ6sTwkD3gSKlGqTQL2RQfelRBha6nDCssKBwk7q3 ++HZiU8vNdqVW5DznPNbHECfKc4/d3EyhxdwrnkPElXOLz2fZUmgkXOGkGMpA +18iJnEt2FLrdFondQmzyXPpNgiOFRwQVqq8Ts0q5A9FOFDovulfZQJxwpZj/ +zA4KvZ0tf4wRcwNtdENcKLS9LmS27hgDYp4y1gFuFL5wUTH3JDax6fLYt5vC +zOKZiDDihGWn4jy9KDwsVNJ2n7hS2Pa6C4tCPaXQL23E3EmZ+05sCmeZplXD +f/LRXU12FIVtHwvvCx4n+RpLejf5Uih8VShWgZhVceoX7qMwof3dJR3ihOu2 +i9ceoLDjtdTgBuLKBNlVhv4UfvMpC3ci5oZ2b9AJoNDLuHyHN7Eou9RFM5DC +fZHi+/2JjR3CDqkGk37AoyfH/uQ323JWMYTCXfMfukcQx6vLZciGUtiutsAo +jrhcvOeuxHEKnZIytiUT00zpS5GTpP/9oUV//8n/NYwWDCP5oi7ZpRMbtWyZ +ng2nUHXP71WXiP8PPzL8Lw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5479061795174489, + 1.7174312323094874`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5479061795174501}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.5479061795174489, + 1.7174312323094874`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5479061795174501}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4VWsXAHCRkqEMmRLJVJT4zFTWCiUSUskQcTpno0FC0sQthEyRG3VD +gzJkrAyFUhrcuBGaI/sYkjFjnF353v7Yz35+z9rP2uvda6+1nHXIicPPx8fX +R64/98Ov1qyoaH5lbl9pcy4whgbz4WxDllUB6Cj/78kfd2YZpapZVcOi+C6/ +IGJH9n/zRPWfwZSg9+lg4tLQ8DpBq0aozswTCiGOfS5XG57/GrIP1sweJb7f +fDjzp94b6D1/hTpO3P/x5cljVe/BVNt6/SniJT2q7lOWn0HXvybiL+ItIydN +gxq/ADdq1jSS+OHPfpHQfBosCsW8YojfnpY9Ue7fBTWqfZPxxMPzrPon9Hrg +iU4Sk0w8Lz7AVf9HL8gpCRxOI1aSyKg/XNUHoRZWzhnE9gpTt4YtB0EvQycg +n5i6qiKjLTQMZlc+ZpcSh6s7RO1vHIE7rB0294nfy7b9Lzh/FLjK5fS/xGy3 +fX4X4segWybrTQvx9yt81+74j0N1s4vpZ2IhFW3xUb1JEH+Ljt+JU9l11uLS +U+C3M0CAIVbOcQ3X+TEFc/mCNObF0mCy+uzwwappuBkzUaVI7Gv0pbHf8ies +Kfup5kQ8EXpkrrDGL1ha/MHZi/ivKpF1mkK/Iao7adqfOB1Nbvs0zoJ5bFxc +AjH7Zr1VYP4cnOZ+GGkizn9+ofO0Aj8eunv5Kk38/avnyeR4fnx1Yt3jceKT +WpN3S/wFMH3bCif5c6Te4uWqI3qCuFT6wR0/4o/Ngw9/3xDElmPXuWHEymMV +bgul56EYHDmTSlxgYJ+i/WMe+ih9kXhM/PT+8TkHqoQwflH/oWVxNEzWtX7p +sxTFsFvLtUaJJe1ExU88FMVbiz1qFsXToNtmhWKmYjjvyvq2NcT7usuu/m/N +QrSvmYr3Jw7gb9RdLyqOB57EaE0Q96gUjUZNSWDk4EY5uUTyfaiXC5r0JfGk +71CvOTH/7d7lcoclsdbW25QiVtZf5pQ/IInirvf9yondLM/fedUphWaWx6d3 +J9HQtDcwSLZBGvnffGx+cp6GjpzEOC8hGbwYm9s+Sjw4kH8jb6MMFukG+S9P +pkE4uKt1ba0MmtWILj1DbBW5w8CrTBbTs0tybFJoeJBtNJmbJY8hhe8jRi/Q +kN3DCzELVkT3bUf3ZafRsHlndEdQoSKWWvjWfSEefCq1qbBXEUU/vE9SSKfB +IHu1tLKrEk5lWEekEj9led4VNF+Ga+7VtcVdomFspPNoX4QyDp5OVD//Dw1S +B63u3d2qglPHblweyaKhN1vY13GfCq6dWrHf9CoNlZ+bFYbOquCBhqLiCOLd +dh4RGrUqeLPoTar8NVLfqhCnS3qqKKq2oNn2Onl/f873MFk1XLBBbWFdNg07 +fES0bWl1bD0X0yBM5hBCdurt+qWObhUdvt7EWlFZxmx5DYxRsg+pJOa7oW8R +tk0Dyxcm0D63aSjscN9157EG/vdLgddQQObTueD0kusr0KpI1iSvmNRntfVt +P0sTjYtzxSrLaLixPe3TjzBNPKURU7m0nIZEFt059x9N7GzUbTtNzP7ryIBS +qyYmuk56bK2gQaI6g2+7pRaqPx6r+lZJ/h/9Ya0q1VWocXlhjnE1DQoqSeFx +3avRoTaTs7KOhupzE5oz/NpYe5J/Kpt497hrG7VcG3dmiIiqPKUh86mapoWn +Nr4K0f1X8RkNKj4PWqbfaaPQ8YoYhRfkvAU96lTDGvz67yE13QYaFBWUKGVX +XXxlJrLwYSsNq28GizKghxJbkuv8e2lgsSMmte31sD66PJD/K5lX1ZQOr916 +qHNqT/pFYoHrxSXPQ/Xwd/se69o+Mm+Z/TtSSvUwRljKUH6A7NN0rwxNVX3k +yintokdIf+Ps1rjMM8ALTvOmXs7QcC1QzbGs0RBb7kRXCC7iwp2O2ji5z4Y4 +JOVl+Jz4ia3HixMDhjgljRuixbnQrXLR3ELYCPdfsxMQkeSCRut87SZrI2xk +S+jJS3OhQH9gwbcnRjgwY7DJUYELlROldUvvG2Owpna+5kouNIeAceRNU6SW +zcbGW3Jhuecbe48D63H07TnudDgXOLPlRYrHEN1jNGNCarkgO1A5X5ZlgbO/ +LzjELOqCYP11n1O0rNAkVcnBkNUFrKGf9VL9G3FxkZL+h6ouKLQImp/VZI0S +/P0JUiu6IXti3+OCVBtM9447/Sa1G6Y3yP33NHwLHjta4vlKpgfa+QRGae+t +ePT2jv0z13rAf+mh86dVHfCF9Ej86TW9UORXX/t3lCPO1fi3ZUlrLxwfl/+x +ym8b/pjz0iw99CtM2m5yfrHHCSuyPU45mPaBqXvyhp5t29EC33RGz/0GLfIZ ++57q78C03m9fBZq+wZJbEdW5K3eiq0P1xZ+V/VDZqWVnL+aMJWeUhzZeGwCl +tu8+IUPOeO/RAfMVKYOg/3dywY3OXTgo1xdkd2sIMuaOr0mpc8EUw1+XO8uG +oXyDzseo+65Y2vwiaPnACKQbn5P4me+GmWliEyWp36Hp082z+vHumPecEXfW +GYWyrVfUAv7ajVn1z112tY/C6MHtfP5sD4w8bCggHTUGk5s0fYctPbHdZubS +M+1xyB36MB1ktAcjf/ooX+gbB5drN/d6iHphL5v9ZsOlCbh7Z8segWgv1NLU +Hu52nQRThZaZ2Bkv/JjeKGkoNgWqnT4fX/t5Y8XaPa/rH0xBt8h+hytd3rjZ +cVfSqcAf0Jxov9d6JwuP1LbEnpOdhtTQLJEjzSy0kmhx6q+dhuqHszN7bfbi +Cqp7YtZtBhbtxmj9B3uxb1NHTUT7DJh6DedGGbAxcma15yo3Hty69D3I3oiN +5WbVF9+782Bx65i5rAkb9eWeVUZ68GB444+23LVsfBTGqvjgxSP7i29OowUb +g3xLkkN8eLDwh4Sr5DY2JuWccDoRzIPuBMMFWQfZ+PjN+ubCBB4kVp30q7zF +xnlJdF9GNQ8O6qWZhuaycZHSrileDQ/s8koXmOSzkbVCqt35EQ+E03rzKgrZ +2HrtnYHIEx5EBTr2l99j46t13/mpFzw4qam2v+wJG5tkjJ91vebBvrSGA3c6 +2Fihk+jwq4cHNgt71wV2kvhY/n8GX3mwMopPTI/LxpWPPOX39/GgN9CwsLSH +jRfHV8q19fPA2z5rqGSQjQHqOXlpIzxwEQzyL+axMSXWqrl7mgfWQUsCCmQ4 +2LFD+HOqMANPss7apshxEF1cwqtFGFjXOKYWuoSD9b1phVyyiXTVGz5YKnFQ +cq9bntYiBuTfnbD8pM7BwBAxqTwpBgbM2mWEDTm4OK7Udc9SBpL4r9b4bOeg +09WzysWrGRDWEU3fupODmzu8fXO0GYh0Dw3U38XBnY7ROplrGAi957hi1o2D +zS3uZtG6DHhTc5IvsjjIfjluYm3AgP5LFvvZYQ6Wmz5ODlvLwLtkdRHV8xy8 +VyYeV7+ZgSIQ8+1L5mDewHjrGRuSf2jiaeEFDuZGH3y21pZsUpunYSZpHKyR +sbyWt4WBRL69Y1szOdh+zcfoiD0Dmw5d/RBawMEg2JvTsJ0BRcUYI/MiDi7L +VPMK2MHAxMtDFwRKOPi0R+Oh1E4GrmvA1sS7HBx9oeHn7MzAr/b22hsPOHg5 +vvxIgwsD9+wUcl/Vc5B7PByCPRiI4/ELpr7kYJLLC0MBTwZYuf3ero0clA70 +fnWeWHzuA4XuJg72j3T05Oxh4ECVS9LMWw7+NnPJe+bNgKrWxRC1Hg5+Oujj ++YjDAO/dqdZvvRzsEXWnTCgGmqM4usV9HHykqLCwhDiMNug3HeRg2a2D6/7x +YeBjequHwzgHi40OiXv7MZAyX2Lj8TkUuq78dDT/AAPVY+3uwQIU/lzGeSd3 +kIGv7fmB/oIUujzzORVFvO6e1VXWAgo103WvuPoz0OsVythKUFiZ46M8dIjU +b7dRcqMUhV8f2RRvDWBgrbGkJkhTuPqqb0QB8XmxAmd9eQrP2jfw2IdJ/MGX +UoXlFKZEO6g8DmSAullQL61K4XbK/J1UEHn+/LEvi9Qp3BDg0swm7qWkxOZq +UujTkpw4J5jEpax9B3UppG5/MNY4wsCD31LhvXoUdsu1C+8n7vnW+XenAYWx +l9WWFxGb1R6vazOhUJInJ6sTwkD3gSKlGqTQL2RQfelRBha6nDCssKBwk7q3 ++HZiU8vNdqVW5DznPNbHECfKc4/d3EyhxdwrnkPElXOLz2fZUmgkXOGkGMpA +18iJnEt2FLrdFondQmzyXPpNgiOFRwQVqq8Ts0q5A9FOFDovulfZQJxwpZj/ +zA4KvZ0tf4wRcwNtdENcKLS9LmS27hgDYp4y1gFuFL5wUTH3JDax6fLYt5vC +zOKZiDDihGWn4jy9KDwsVNJ2n7hS2Pa6C4tCPaXQL23E3EmZ+05sCmeZplXD +f/LRXU12FIVtHwvvCx4n+RpLejf5Uih8VShWgZhVceoX7qMwof3dJR3ihOu2 +i9ceoLDjtdTgBuLKBNlVhv4UfvMpC3ci5oZ2b9AJoNDLuHyHN7Eou9RFM5DC +fZHi+/2JjR3CDqkGk37AoyfH/uQ323JWMYTCXfMfukcQx6vLZciGUtiutsAo +jrhcvOeuxHEKnZIytiUT00zpS5GTpP/9oUV//8n/NYwWDCP5oi7ZpRMbtWyZ +ng2nUHXP71WXiP8PPzL8Lw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5479061795174489, 1.7174312323094874`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5479061795174501}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.5479061795174501}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "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.5479061795174489, 1.7174312323094874`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991333813212965*^9, 3.992099539839651*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"ea986581-a74b-cc43-8fe3-b942302d708d"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918456416071854`*^9, 3.991845656553877*^9}}, + CellLabel->"In[96]:=",ExpressionUUID->"c4af1473-2d54-b047-b3e2-18c19d38cfdd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.080695191081614`*^-273\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 96, + 358, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333813432829*^9, 3.99209954004158*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"c0c0d280-b436-8b4a-9e76-84a9ca7c67e5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.573336397565439`*^-285\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 96, + 359, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333813432829*^9, 3.9920995400495815`*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"9112370c-6d2c-be4d-a7b1-9f95facb17c1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0890301202315586`*^-297\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 96, + 360, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333813432829*^9, 3.9920995400565834`*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"c88edc5a-6e3d-8f4a-996c-fa068259a3b6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 96, 361, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333813432829*^9, 3.9920995400645847`*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"8f0be32d-19f3-2849-8c9e-4a34e95e1c85"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4VXsXB3BzKg1mzj6OQyIznYSStYwZSirSKLkZinCVkkNuJJQMkVky +V5Tp7N1AiqRC0ktSKFdESrlEplvvvn/sZz+fP37Ps57fXuu7tpK7/w4PAT4+ +vt/0898754y7iP7hLNPC9Q0Ru2TMTRs72Ftc2KfB7nP/4sA0Nvxuqotks2Nh +zE84Y0uaHuQ8uqQozM6AIII/0CANwXdT0LGfijfAQ8VSRS7NETrmvVPGFe+B +p9nFKw2pbrCoZ0BtTPE5lN7mNw29EgB5zbl/flF8C2ciE+p9Ev+C2+WxPb46 +o2ARbWjtpJkEXvAq42vgJLg3up2ftM8AvyH1j7zbs5DvG/JXYuQ1WKJ0Tu2D +ER/Wdeg8qYwphPiVLRp5boKo/PyxQLDMdXDvcXoo2CqC79/WDH8tL4U/n5xz +91dbglkllcqM77ehMkBsp5ztMozPyRe3elMBeVyfUT2XlVj2qbm8UqMKInIX +tv/4Ko6Q8UTM0LQaHPXu/qk5KY6nArVFWObVwKo/nuQ+K45GL56cE7CuhvsD +o+3twhJ47GT+ysat1TCx+u22WywJdFAY2K9+oBrcy8itno4SmDY+khbKrQaz +e3623dUSaHaSZWhJVQNfRz/Whkiix4PKZgcVHpz7XJcXclYSw0p0X/Wq8WAx +X46AcYwk7iy17vfS5IGE9p5G8ook3hZukg1ay4PV0a82l1dIYpRZ74gP8sBu +Y4ND/idJPCe+faF5Hw+SCwr2x+yQQrcKKWeHRB7I3T/7wHqPFIr3MMzCknmQ +3X6QJewmhYxpK86NVB4U/0v0nz0mhSZfvqjPZPPgrkvKH9wYKbStajwYeIMH +vUujjvrVSWEiv+fom3oeqJ7wDHbSkEbF8Okor3EeaG/4sDNXTxqDmOoqiyZ5 +sI5vt+7oemmcyNivWTjFA/M420/hFtK4efnUia45HrgWajmV7pdGoQnHaUKY +hNTOCV2BBGkUuJhUpyFPgrBB+HD5pDSmK5oOuwAJYvM/G+ZmpXE8X6Sp0IwE +ifqAq1Z8MujEZ7HyuwUJ7K3uzj1iMjg0Gz3MtSHBxMPqsYiqDAYrnCg8uZ2E +E1eW5h7YLYMBxouOj7uTMDiVtmvpAxlsaVnkMh1JQr4Z53jfYxk0SW11IM6T +cPBSW0J5swyemL1jsSmGhHcqws93dstgbP/H1cFxJLzaGbgxe1IGn4Z+ePU8 +hYS6yi1sbQ1ZrNKS/be3kIS0Y/yjDmmyWHvZ5EhjAwlO97JFlK7KYoTorfDY +Rrp+YaNVk4WyGHn3SpZ9Ewnx2X7706pkcc5SZKjpOQnnWnraPryQxb/HhJ9m +tJMQoE5VBwjJ4ULQ7eWVfSTYDR0Nu/ynHIrmti+6PkWCddiqMstgOWxxfD2y +6CcJ5tK976bPyOEVu5CpwzMkbLDaarQvTg4Fv8omy8yToFGkO7mqRA43iH76 +7MJHwVKPH95krxwWZ7Xv2bmEAtF/y9K8PsrhcutwpfNLKRC64tEkPyqHQ0t6 +GZQYBQuNXavO/JRDexPDwmUrKPiqcu+9tYQ8spXvMLMkKWgdDHPq3iyPL6jn +fHpMCp6Fro+84CCPl8RBar0CBY1S3ytNnOUxpILPzZhFQa2l24o8d3lcXrgq +35BNQVmhefORMHlceXhVn4QKBZcOL8L5KnlM0y1NstSk4MLCQ79b9+Rxa9NX +V5YWBedTgnMOPpLHHLsinynaZxo/zz1+IY87s3ZbZelQ4KfSSsaNyGNmxg+R +Jn0KHAYTNVksBnKTFXXSDel6NQc796vQVlsSs8GIAvvjhmeyNBhIib+NfEfb +RuB9u5whAystGtwlN1BgztY8KenIwNX+Ws+9TSh45HVGcccuBg5uzts0QxvK +Xz1L3M9AQzszl6hNFJiYBhPLjzBwX+ItbropBQb7nzwSjWCguchMSj5SwCuQ +O7o5hoGq+86ZKppRsPaLj+T5eAYSe7MSM2jrhEh4CmYxUN2ZrRdtTsGa9INL +f1Uz0MMz29vakoLiD1U8k/sMfBKT5F5Be7WaiCv3EQP7lGNF5awoUKbKKmZa +GTjQZL63nzazc9Z5coiBhwZtlZw3U5BJbP2t/5WBbhvvR5fRlv/j2vWACQaW +Pq7N4behQGbCen7sFwPbbTe/K6SdYpxZqCVM4OqCO/yTtCXPjm31WUqg5+CF +d6a2FKxcmXJtRJZAnXc6+S9px7sM26qxCFz3ejRJyo6CZbkbJj1UCGy27F/n +QnuJzt9WH/UITF2yI/U17Zigdd+VDAmUjat1FrenQORBdLrbJgL3dps029EW +3KLzpc+WwBXEwU6KdkTy2RSmI4E7iImjn2nz9XRu2reLwKTZ0LvyW+h+PcJN +7HYn0MXBLeQ47ZDKNmPZIwSOFJd9z6Y9O6P00dmfQOW8boVG2tPRzww6uAQW +s2uKl26l4MRL4oN4BIE9e7wFtGhPyvjHOMYQqJc9IGdHO9C1QT8hnsBMpeJR +D9rjRdI9L1II3BamGxxO22/M+5xYFl1P1nx9Ku2xdbXa9nkEnqqPflZK2zd0 +xZvYEgLvx22Pq6M9+tj9r2e3CIyf7Fr2krZiUvfReB6Bhl9Ir/e0nVwdnJ1q +CCz8EMv4QjtWsxEYDQTe/fRDdYp23YyxRv8z+j4TMi4t/Ffvk3Kp4pcE2g4w +tvE70P2TvPq3TxeB4QeZvoK0D7hlfdbvI9CYz3xIgPZlbfHOnx8JDDHQq/lN +n386d77uwSiBfCMXv83SXni6cD3yHwK/nZoL/4e2/pXAZNsZAqNqlQI+0fZ0 +Hwlb8ZvA/wlef9hNO0vX1fu1MBPdJNb5P6PdvtCxI0uMiV+Vj4WTtEWabTcd +kmSi9Ke58VzaG9MeqqkxmLg0IqoxmnbAYQOJMTYTbS6Tc760i/VLF6rUmGik +ti5lG+2eX+zhYB0mTj65maRLe2Vr6itTAyYOez2eFKNtlSFWK2TCxPiQNTXD +/31/z4jiZnMmMj+cG3lIe5DPj7vLkYkJf7w65U1bvu2jB9OFiQ+j5HuMaDtk +7XEcOMDE1n9FS0Ro3zWwWu3nw0Tr95e5mXS/jQnUrFgXyMRT72Ki3Ggrt+vN +zQYz0Xdn39wq2nFHmS+jzjORenhAo4Du73rDy/fsLzFxV9vIkCvtaSHRQvEU +JlYnJK6Qo+2WOxmck8dEIb3Z8gh6ftZ1NiuTtUw8szvbyJietyN5uIz7mIlH +XE8F99PzetWP+onNTNR149OKoi26OL+19Q0TVVeNjTdZU9C36fTJwQkmLsz8 +Etai519i6Xe3m7NM3Ksv9bOOzgub7sP2AXwKaDQXeWgb7apAR/bCMgXUDN9e +5G1B52uJWrOkugKO73i5EPpfHol3KVgcVMD0JJF4bTrfPl36FHHFQwGtJ0T8 +8+n8y1nyc3jYRwGnnJtVpWmLCclVxQUr4A4tIYUfdH6OTu+x7kpSQCeBjQbp +dL4W9fb5HWlUwJJmj5zTHAr27/nWUdOsgBsTrnFa11Ig1fXLaPkrBcxq8L7J +pB3xUlGwuk8BT5uxTO7o0ffVcChtYVoBT6ql8Xdo0/l2fehhgjoLd3WdzitS +o6BTZVplQJeFwg71F7tUKbiYJ3Jh3XoWblh2002Y9lymmtNbcxYain5r3U/v +m+5LR0aU97OQyDeon6D3UfLxsZVUPAud27ffqJGn8wqmDvVOsvBMzuTipsUU +BJutEaXmWCizzezWVVH6Piz23U7gV0RDs4XpE4soaLCpnzNfoYjD3SpnGcJ0 +/+24lHxDQxHXi2OMLb1/v3isfnLykCIGqpUpG02T0BrnvEb8pSK+0k7IO9BP +7++EmLbR14oYHev/6Ot7Eq4n1Zxo7FXElrcVeafp/4FzqUr1p0YVMdPi8+24 +dySw2qe1vguwsb7Lall6JwldbxueOLPYeDLOrMDyGQmbx/b+VHZmY8WP3Qnz +t0i4KhXZEb6bjQ8mpB5sKSPhx8bS8t59bAyL+qcv6yYJ1y7Me6W6s1GwNn6B +U0LCnFp29+IANhb6Tj+xv0ZCmXvfvfEL9PlA1jbGZRJWdh8MrXvERj02HDc+ +QUJ3w2H+vVpKuNfaxq9qLQnjZu8YYbpK+P368vtleiQsqt+27tpaJbzzwNC/ +SIeE9Q83eH0yUsKulCq5yxokpNSsfBFopYQfDzmH7VYmYRuvNv2iqxKKXftl +kClOQlORlN6DRCX0MXlZPv2NB2RMoyt7Sgk//7vbx7SIB57CQf1tbcrYuWnv +4PWJavgjkEuKZa5CBZXzzALDatD10mzbckgFo4aOawQFVMFLCa2lQcarcXdO +q536hUqouR2RpSWoinv4O17L3qgALr+GY2ufKgqGavgu2lcOS3pDbPx4ango +qLFD+vAtGCpWSskNXYMrok4+dI4rhZQ18kL3nNUx7P6f6doJNyAx0/PpIbYG +FhxbuyXxfgnsTTnQJjasgaN/L9u4fLYIZiyLZnPrNDGW+1bjjWIhfBwyD26I +1kL/qZzUeyfzIX+TPvHikDZy17/z3Vx3DW5FBYl7aetg7pESux/+VyHa+Q97 +wSkdjD/2fXtodhYY9ObdiH6hi/03rgn616ZDunrWrRf2etjpm9CtapIK4Y8u +pdvf08NB//zZU/eSYSvhXNSsoo8Ncem1XUFJYOb3dJ94rD4G2RYcUxJLgFym +u0rrlD5a8UkenjK8CCqPS1Id9q3F0IjckYi5aEjUbtD4X91aZKs5H2uRjwLP +SaFXzzU4yH5rVLTdPgLcKyfYsQkcjMgsPyM8Eg6+ETsX7JI46DX1nWfdGQ5B +O3lvxJI5WJjd1ZP0KBxipoLiE1M5uHZ30DerjHC4bTw7n5bDQZ69YIuKfTjM +1v/uKi7lYGCK4tn7FWcg8X9ilxqfctD3rN0bncgwyCw45n3+OQePS803lASE +QcGJNgubFg66Ks8baLiGASWTONfSxkEX8k6hvXEY9O6V9O54zcGW0XobvvFQ +UPsobzHwkYN/10481T4YCnq8EFbhEAfnp69nb9oaChuiemY9hjl45OTA410b +Q2GLWk7F51EOFleVLhTKhkKgD5v1zz8czOrVqalo50KoydnZqkkOHphPfbrk +IReilg10npjiYH0lIeZ3iwvp5QUXZ2Y4mM+w0XO8wIX8v4S87s9x0DZy1+KX +wVwo3e5hHrrAQeEJh2UuXlzgKTcpmP7ioOzAoNGIMxfqJlVnf//m4L6+lpgI +Sy78H63uLgk= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VXsXB3BzKg1mzj6OQyIznYSStYwZSirSKLkZinCVkkNuJJQMkVky +V5Tp7N1AiqRC0ktSKFdESrlEplvvvn/sZz+fP37Ps57fXuu7tpK7/w4PAT4+ +vt/0898754y7iP7hLNPC9Q0Ru2TMTRs72Ftc2KfB7nP/4sA0Nvxuqotks2Nh +zE84Y0uaHuQ8uqQozM6AIII/0CANwXdT0LGfijfAQ8VSRS7NETrmvVPGFe+B +p9nFKw2pbrCoZ0BtTPE5lN7mNw29EgB5zbl/flF8C2ciE+p9Ev+C2+WxPb46 +o2ARbWjtpJkEXvAq42vgJLg3up2ftM8AvyH1j7zbs5DvG/JXYuQ1WKJ0Tu2D +ER/Wdeg8qYwphPiVLRp5boKo/PyxQLDMdXDvcXoo2CqC79/WDH8tL4U/n5xz +91dbglkllcqM77ehMkBsp5ztMozPyRe3elMBeVyfUT2XlVj2qbm8UqMKInIX +tv/4Ko6Q8UTM0LQaHPXu/qk5KY6nArVFWObVwKo/nuQ+K45GL56cE7CuhvsD +o+3twhJ47GT+ysat1TCx+u22WywJdFAY2K9+oBrcy8itno4SmDY+khbKrQaz +e3623dUSaHaSZWhJVQNfRz/Whkiix4PKZgcVHpz7XJcXclYSw0p0X/Wq8WAx +X46AcYwk7iy17vfS5IGE9p5G8ook3hZukg1ay4PV0a82l1dIYpRZ74gP8sBu +Y4ND/idJPCe+faF5Hw+SCwr2x+yQQrcKKWeHRB7I3T/7wHqPFIr3MMzCknmQ +3X6QJewmhYxpK86NVB4U/0v0nz0mhSZfvqjPZPPgrkvKH9wYKbStajwYeIMH +vUujjvrVSWEiv+fom3oeqJ7wDHbSkEbF8Okor3EeaG/4sDNXTxqDmOoqiyZ5 +sI5vt+7oemmcyNivWTjFA/M420/hFtK4efnUia45HrgWajmV7pdGoQnHaUKY +hNTOCV2BBGkUuJhUpyFPgrBB+HD5pDSmK5oOuwAJYvM/G+ZmpXE8X6Sp0IwE +ifqAq1Z8MujEZ7HyuwUJ7K3uzj1iMjg0Gz3MtSHBxMPqsYiqDAYrnCg8uZ2E +E1eW5h7YLYMBxouOj7uTMDiVtmvpAxlsaVnkMh1JQr4Z53jfYxk0SW11IM6T +cPBSW0J5swyemL1jsSmGhHcqws93dstgbP/H1cFxJLzaGbgxe1IGn4Z+ePU8 +hYS6yi1sbQ1ZrNKS/be3kIS0Y/yjDmmyWHvZ5EhjAwlO97JFlK7KYoTorfDY +Rrp+YaNVk4WyGHn3SpZ9Ewnx2X7706pkcc5SZKjpOQnnWnraPryQxb/HhJ9m +tJMQoE5VBwjJ4ULQ7eWVfSTYDR0Nu/ynHIrmti+6PkWCddiqMstgOWxxfD2y +6CcJ5tK976bPyOEVu5CpwzMkbLDaarQvTg4Fv8omy8yToFGkO7mqRA43iH76 +7MJHwVKPH95krxwWZ7Xv2bmEAtF/y9K8PsrhcutwpfNLKRC64tEkPyqHQ0t6 +GZQYBQuNXavO/JRDexPDwmUrKPiqcu+9tYQ8spXvMLMkKWgdDHPq3iyPL6jn +fHpMCp6Fro+84CCPl8RBar0CBY1S3ytNnOUxpILPzZhFQa2l24o8d3lcXrgq +35BNQVmhefORMHlceXhVn4QKBZcOL8L5KnlM0y1NstSk4MLCQ79b9+Rxa9NX +V5YWBedTgnMOPpLHHLsinynaZxo/zz1+IY87s3ZbZelQ4KfSSsaNyGNmxg+R +Jn0KHAYTNVksBnKTFXXSDel6NQc796vQVlsSs8GIAvvjhmeyNBhIib+NfEfb +RuB9u5whAystGtwlN1BgztY8KenIwNX+Ws+9TSh45HVGcccuBg5uzts0QxvK +Xz1L3M9AQzszl6hNFJiYBhPLjzBwX+ItbropBQb7nzwSjWCguchMSj5SwCuQ +O7o5hoGq+86ZKppRsPaLj+T5eAYSe7MSM2jrhEh4CmYxUN2ZrRdtTsGa9INL +f1Uz0MMz29vakoLiD1U8k/sMfBKT5F5Be7WaiCv3EQP7lGNF5awoUKbKKmZa +GTjQZL63nzazc9Z5coiBhwZtlZw3U5BJbP2t/5WBbhvvR5fRlv/j2vWACQaW +Pq7N4behQGbCen7sFwPbbTe/K6SdYpxZqCVM4OqCO/yTtCXPjm31WUqg5+CF +d6a2FKxcmXJtRJZAnXc6+S9px7sM26qxCFz3ejRJyo6CZbkbJj1UCGy27F/n +QnuJzt9WH/UITF2yI/U17Zigdd+VDAmUjat1FrenQORBdLrbJgL3dps029EW +3KLzpc+WwBXEwU6KdkTy2RSmI4E7iImjn2nz9XRu2reLwKTZ0LvyW+h+PcJN +7HYn0MXBLeQ47ZDKNmPZIwSOFJd9z6Y9O6P00dmfQOW8boVG2tPRzww6uAQW +s2uKl26l4MRL4oN4BIE9e7wFtGhPyvjHOMYQqJc9IGdHO9C1QT8hnsBMpeJR +D9rjRdI9L1II3BamGxxO22/M+5xYFl1P1nx9Ku2xdbXa9nkEnqqPflZK2zd0 +xZvYEgLvx22Pq6M9+tj9r2e3CIyf7Fr2krZiUvfReB6Bhl9Ir/e0nVwdnJ1q +CCz8EMv4QjtWsxEYDQTe/fRDdYp23YyxRv8z+j4TMi4t/Ffvk3Kp4pcE2g4w +tvE70P2TvPq3TxeB4QeZvoK0D7hlfdbvI9CYz3xIgPZlbfHOnx8JDDHQq/lN +n386d77uwSiBfCMXv83SXni6cD3yHwK/nZoL/4e2/pXAZNsZAqNqlQI+0fZ0 +Hwlb8ZvA/wlef9hNO0vX1fu1MBPdJNb5P6PdvtCxI0uMiV+Vj4WTtEWabTcd +kmSi9Ke58VzaG9MeqqkxmLg0IqoxmnbAYQOJMTYTbS6Tc760i/VLF6rUmGik +ti5lG+2eX+zhYB0mTj65maRLe2Vr6itTAyYOez2eFKNtlSFWK2TCxPiQNTXD +/31/z4jiZnMmMj+cG3lIe5DPj7vLkYkJf7w65U1bvu2jB9OFiQ+j5HuMaDtk +7XEcOMDE1n9FS0Ro3zWwWu3nw0Tr95e5mXS/jQnUrFgXyMRT72Ki3Ggrt+vN +zQYz0Xdn39wq2nFHmS+jzjORenhAo4Du73rDy/fsLzFxV9vIkCvtaSHRQvEU +JlYnJK6Qo+2WOxmck8dEIb3Z8gh6ftZ1NiuTtUw8szvbyJietyN5uIz7mIlH +XE8F99PzetWP+onNTNR149OKoi26OL+19Q0TVVeNjTdZU9C36fTJwQkmLsz8 +Etai519i6Xe3m7NM3Ksv9bOOzgub7sP2AXwKaDQXeWgb7apAR/bCMgXUDN9e +5G1B52uJWrOkugKO73i5EPpfHol3KVgcVMD0JJF4bTrfPl36FHHFQwGtJ0T8 +8+n8y1nyc3jYRwGnnJtVpWmLCclVxQUr4A4tIYUfdH6OTu+x7kpSQCeBjQbp +dL4W9fb5HWlUwJJmj5zTHAr27/nWUdOsgBsTrnFa11Ig1fXLaPkrBcxq8L7J +pB3xUlGwuk8BT5uxTO7o0ffVcChtYVoBT6ql8Xdo0/l2fehhgjoLd3WdzitS +o6BTZVplQJeFwg71F7tUKbiYJ3Jh3XoWblh2002Y9lymmtNbcxYain5r3U/v +m+5LR0aU97OQyDeon6D3UfLxsZVUPAud27ffqJGn8wqmDvVOsvBMzuTipsUU +BJutEaXmWCizzezWVVH6Piz23U7gV0RDs4XpE4soaLCpnzNfoYjD3SpnGcJ0 +/+24lHxDQxHXi2OMLb1/v3isfnLykCIGqpUpG02T0BrnvEb8pSK+0k7IO9BP +7++EmLbR14oYHev/6Ot7Eq4n1Zxo7FXElrcVeafp/4FzqUr1p0YVMdPi8+24 +dySw2qe1vguwsb7Lall6JwldbxueOLPYeDLOrMDyGQmbx/b+VHZmY8WP3Qnz +t0i4KhXZEb6bjQ8mpB5sKSPhx8bS8t59bAyL+qcv6yYJ1y7Me6W6s1GwNn6B +U0LCnFp29+IANhb6Tj+xv0ZCmXvfvfEL9PlA1jbGZRJWdh8MrXvERj02HDc+ +QUJ3w2H+vVpKuNfaxq9qLQnjZu8YYbpK+P368vtleiQsqt+27tpaJbzzwNC/ +SIeE9Q83eH0yUsKulCq5yxokpNSsfBFopYQfDzmH7VYmYRuvNv2iqxKKXftl +kClOQlORlN6DRCX0MXlZPv2NB2RMoyt7Sgk//7vbx7SIB57CQf1tbcrYuWnv +4PWJavgjkEuKZa5CBZXzzALDatD10mzbckgFo4aOawQFVMFLCa2lQcarcXdO +q536hUqouR2RpSWoinv4O17L3qgALr+GY2ufKgqGavgu2lcOS3pDbPx4ango +qLFD+vAtGCpWSskNXYMrok4+dI4rhZQ18kL3nNUx7P6f6doJNyAx0/PpIbYG +FhxbuyXxfgnsTTnQJjasgaN/L9u4fLYIZiyLZnPrNDGW+1bjjWIhfBwyD26I +1kL/qZzUeyfzIX+TPvHikDZy17/z3Vx3DW5FBYl7aetg7pESux/+VyHa+Q97 +wSkdjD/2fXtodhYY9ObdiH6hi/03rgn616ZDunrWrRf2etjpm9CtapIK4Y8u +pdvf08NB//zZU/eSYSvhXNSsoo8Ncem1XUFJYOb3dJ94rD4G2RYcUxJLgFym +u0rrlD5a8UkenjK8CCqPS1Id9q3F0IjckYi5aEjUbtD4X91aZKs5H2uRjwLP +SaFXzzU4yH5rVLTdPgLcKyfYsQkcjMgsPyM8Eg6+ETsX7JI46DX1nWfdGQ5B +O3lvxJI5WJjd1ZP0KBxipoLiE1M5uHZ30DerjHC4bTw7n5bDQZ69YIuKfTjM +1v/uKi7lYGCK4tn7FWcg8X9ilxqfctD3rN0bncgwyCw45n3+OQePS803lASE +QcGJNgubFg66Ks8baLiGASWTONfSxkEX8k6hvXEY9O6V9O54zcGW0XobvvFQ +UPsobzHwkYN/10481T4YCnq8EFbhEAfnp69nb9oaChuiemY9hjl45OTA410b +Q2GLWk7F51EOFleVLhTKhkKgD5v1zz8czOrVqalo50KoydnZqkkOHphPfbrk +IReilg10npjiYH0lIeZ3iwvp5QUXZ2Y4mM+w0XO8wIX8v4S87s9x0DZy1+KX +wVwo3e5hHrrAQeEJh2UuXlzgKTcpmP7ioOzAoNGIMxfqJlVnf//m4L6+lpgI +Sy78H63uLgk= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08712788953232396}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08712788953232396}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VXsXB3BzKg1mzj6OQyIznYSStYwZSirSKLkZinCVkkNuJJQMkVky +V5Tp7N1AiqRC0ktSKFdESrlEplvvvn/sZz+fP37Ps57fXuu7tpK7/w4PAT4+ +vt/0898754y7iP7hLNPC9Q0Ru2TMTRs72Ftc2KfB7nP/4sA0Nvxuqotks2Nh +zE84Y0uaHuQ8uqQozM6AIII/0CANwXdT0LGfijfAQ8VSRS7NETrmvVPGFe+B +p9nFKw2pbrCoZ0BtTPE5lN7mNw29EgB5zbl/flF8C2ciE+p9Ev+C2+WxPb46 +o2ARbWjtpJkEXvAq42vgJLg3up2ftM8AvyH1j7zbs5DvG/JXYuQ1WKJ0Tu2D +ER/Wdeg8qYwphPiVLRp5boKo/PyxQLDMdXDvcXoo2CqC79/WDH8tL4U/n5xz +91dbglkllcqM77ehMkBsp5ztMozPyRe3elMBeVyfUT2XlVj2qbm8UqMKInIX +tv/4Ko6Q8UTM0LQaHPXu/qk5KY6nArVFWObVwKo/nuQ+K45GL56cE7CuhvsD +o+3twhJ47GT+ysat1TCx+u22WywJdFAY2K9+oBrcy8itno4SmDY+khbKrQaz +e3623dUSaHaSZWhJVQNfRz/Whkiix4PKZgcVHpz7XJcXclYSw0p0X/Wq8WAx +X46AcYwk7iy17vfS5IGE9p5G8ook3hZukg1ay4PV0a82l1dIYpRZ74gP8sBu +Y4ND/idJPCe+faF5Hw+SCwr2x+yQQrcKKWeHRB7I3T/7wHqPFIr3MMzCknmQ +3X6QJewmhYxpK86NVB4U/0v0nz0mhSZfvqjPZPPgrkvKH9wYKbStajwYeIMH +vUujjvrVSWEiv+fom3oeqJ7wDHbSkEbF8Okor3EeaG/4sDNXTxqDmOoqiyZ5 +sI5vt+7oemmcyNivWTjFA/M420/hFtK4efnUia45HrgWajmV7pdGoQnHaUKY +hNTOCV2BBGkUuJhUpyFPgrBB+HD5pDSmK5oOuwAJYvM/G+ZmpXE8X6Sp0IwE +ifqAq1Z8MujEZ7HyuwUJ7K3uzj1iMjg0Gz3MtSHBxMPqsYiqDAYrnCg8uZ2E +E1eW5h7YLYMBxouOj7uTMDiVtmvpAxlsaVnkMh1JQr4Z53jfYxk0SW11IM6T +cPBSW0J5swyemL1jsSmGhHcqws93dstgbP/H1cFxJLzaGbgxe1IGn4Z+ePU8 +hYS6yi1sbQ1ZrNKS/be3kIS0Y/yjDmmyWHvZ5EhjAwlO97JFlK7KYoTorfDY +Rrp+YaNVk4WyGHn3SpZ9Ewnx2X7706pkcc5SZKjpOQnnWnraPryQxb/HhJ9m +tJMQoE5VBwjJ4ULQ7eWVfSTYDR0Nu/ynHIrmti+6PkWCddiqMstgOWxxfD2y +6CcJ5tK976bPyOEVu5CpwzMkbLDaarQvTg4Fv8omy8yToFGkO7mqRA43iH76 +7MJHwVKPH95krxwWZ7Xv2bmEAtF/y9K8PsrhcutwpfNLKRC64tEkPyqHQ0t6 +GZQYBQuNXavO/JRDexPDwmUrKPiqcu+9tYQ8spXvMLMkKWgdDHPq3iyPL6jn +fHpMCp6Fro+84CCPl8RBar0CBY1S3ytNnOUxpILPzZhFQa2l24o8d3lcXrgq +35BNQVmhefORMHlceXhVn4QKBZcOL8L5KnlM0y1NstSk4MLCQ79b9+Rxa9NX +V5YWBedTgnMOPpLHHLsinynaZxo/zz1+IY87s3ZbZelQ4KfSSsaNyGNmxg+R +Jn0KHAYTNVksBnKTFXXSDel6NQc796vQVlsSs8GIAvvjhmeyNBhIib+NfEfb +RuB9u5whAystGtwlN1BgztY8KenIwNX+Ws+9TSh45HVGcccuBg5uzts0QxvK +Xz1L3M9AQzszl6hNFJiYBhPLjzBwX+ItbropBQb7nzwSjWCguchMSj5SwCuQ +O7o5hoGq+86ZKppRsPaLj+T5eAYSe7MSM2jrhEh4CmYxUN2ZrRdtTsGa9INL +f1Uz0MMz29vakoLiD1U8k/sMfBKT5F5Be7WaiCv3EQP7lGNF5awoUKbKKmZa +GTjQZL63nzazc9Z5coiBhwZtlZw3U5BJbP2t/5WBbhvvR5fRlv/j2vWACQaW +Pq7N4behQGbCen7sFwPbbTe/K6SdYpxZqCVM4OqCO/yTtCXPjm31WUqg5+CF +d6a2FKxcmXJtRJZAnXc6+S9px7sM26qxCFz3ejRJyo6CZbkbJj1UCGy27F/n +QnuJzt9WH/UITF2yI/U17Zigdd+VDAmUjat1FrenQORBdLrbJgL3dps029EW +3KLzpc+WwBXEwU6KdkTy2RSmI4E7iImjn2nz9XRu2reLwKTZ0LvyW+h+PcJN +7HYn0MXBLeQ47ZDKNmPZIwSOFJd9z6Y9O6P00dmfQOW8boVG2tPRzww6uAQW +s2uKl26l4MRL4oN4BIE9e7wFtGhPyvjHOMYQqJc9IGdHO9C1QT8hnsBMpeJR +D9rjRdI9L1II3BamGxxO22/M+5xYFl1P1nx9Ku2xdbXa9nkEnqqPflZK2zd0 +xZvYEgLvx22Pq6M9+tj9r2e3CIyf7Fr2krZiUvfReB6Bhl9Ir/e0nVwdnJ1q +CCz8EMv4QjtWsxEYDQTe/fRDdYp23YyxRv8z+j4TMi4t/Ffvk3Kp4pcE2g4w +tvE70P2TvPq3TxeB4QeZvoK0D7hlfdbvI9CYz3xIgPZlbfHOnx8JDDHQq/lN +n386d77uwSiBfCMXv83SXni6cD3yHwK/nZoL/4e2/pXAZNsZAqNqlQI+0fZ0 +Hwlb8ZvA/wlef9hNO0vX1fu1MBPdJNb5P6PdvtCxI0uMiV+Vj4WTtEWabTcd +kmSi9Ke58VzaG9MeqqkxmLg0IqoxmnbAYQOJMTYTbS6Tc760i/VLF6rUmGik +ti5lG+2eX+zhYB0mTj65maRLe2Vr6itTAyYOez2eFKNtlSFWK2TCxPiQNTXD +/31/z4jiZnMmMj+cG3lIe5DPj7vLkYkJf7w65U1bvu2jB9OFiQ+j5HuMaDtk +7XEcOMDE1n9FS0Ro3zWwWu3nw0Tr95e5mXS/jQnUrFgXyMRT72Ki3Ggrt+vN +zQYz0Xdn39wq2nFHmS+jzjORenhAo4Du73rDy/fsLzFxV9vIkCvtaSHRQvEU +JlYnJK6Qo+2WOxmck8dEIb3Z8gh6ftZ1NiuTtUw8szvbyJietyN5uIz7mIlH +XE8F99PzetWP+onNTNR149OKoi26OL+19Q0TVVeNjTdZU9C36fTJwQkmLsz8 +Etai519i6Xe3m7NM3Ksv9bOOzgub7sP2AXwKaDQXeWgb7apAR/bCMgXUDN9e +5G1B52uJWrOkugKO73i5EPpfHol3KVgcVMD0JJF4bTrfPl36FHHFQwGtJ0T8 +8+n8y1nyc3jYRwGnnJtVpWmLCclVxQUr4A4tIYUfdH6OTu+x7kpSQCeBjQbp +dL4W9fb5HWlUwJJmj5zTHAr27/nWUdOsgBsTrnFa11Ig1fXLaPkrBcxq8L7J +pB3xUlGwuk8BT5uxTO7o0ffVcChtYVoBT6ql8Xdo0/l2fehhgjoLd3WdzitS +o6BTZVplQJeFwg71F7tUKbiYJ3Jh3XoWblh2002Y9lymmtNbcxYain5r3U/v +m+5LR0aU97OQyDeon6D3UfLxsZVUPAud27ffqJGn8wqmDvVOsvBMzuTipsUU +BJutEaXmWCizzezWVVH6Piz23U7gV0RDs4XpE4soaLCpnzNfoYjD3SpnGcJ0 +/+24lHxDQxHXi2OMLb1/v3isfnLykCIGqpUpG02T0BrnvEb8pSK+0k7IO9BP +7++EmLbR14oYHev/6Ot7Eq4n1Zxo7FXElrcVeafp/4FzqUr1p0YVMdPi8+24 +dySw2qe1vguwsb7Lall6JwldbxueOLPYeDLOrMDyGQmbx/b+VHZmY8WP3Qnz +t0i4KhXZEb6bjQ8mpB5sKSPhx8bS8t59bAyL+qcv6yYJ1y7Me6W6s1GwNn6B +U0LCnFp29+IANhb6Tj+xv0ZCmXvfvfEL9PlA1jbGZRJWdh8MrXvERj02HDc+ +QUJ3w2H+vVpKuNfaxq9qLQnjZu8YYbpK+P368vtleiQsqt+27tpaJbzzwNC/ +SIeE9Q83eH0yUsKulCq5yxokpNSsfBFopYQfDzmH7VYmYRuvNv2iqxKKXftl +kClOQlORlN6DRCX0MXlZPv2NB2RMoyt7Sgk//7vbx7SIB57CQf1tbcrYuWnv +4PWJavgjkEuKZa5CBZXzzALDatD10mzbckgFo4aOawQFVMFLCa2lQcarcXdO +q536hUqouR2RpSWoinv4O17L3qgALr+GY2ufKgqGavgu2lcOS3pDbPx4ango +qLFD+vAtGCpWSskNXYMrok4+dI4rhZQ18kL3nNUx7P6f6doJNyAx0/PpIbYG +FhxbuyXxfgnsTTnQJjasgaN/L9u4fLYIZiyLZnPrNDGW+1bjjWIhfBwyD26I +1kL/qZzUeyfzIX+TPvHikDZy17/z3Vx3DW5FBYl7aetg7pESux/+VyHa+Q97 +wSkdjD/2fXtodhYY9ObdiH6hi/03rgn616ZDunrWrRf2etjpm9CtapIK4Y8u +pdvf08NB//zZU/eSYSvhXNSsoo8Ncem1XUFJYOb3dJ94rD4G2RYcUxJLgFym +u0rrlD5a8UkenjK8CCqPS1Id9q3F0IjckYi5aEjUbtD4X91aZKs5H2uRjwLP +SaFXzzU4yH5rVLTdPgLcKyfYsQkcjMgsPyM8Eg6+ETsX7JI46DX1nWfdGQ5B +O3lvxJI5WJjd1ZP0KBxipoLiE1M5uHZ30DerjHC4bTw7n5bDQZ69YIuKfTjM +1v/uKi7lYGCK4tn7FWcg8X9ilxqfctD3rN0bncgwyCw45n3+OQePS803lASE +QcGJNgubFg66Ks8baLiGASWTONfSxkEX8k6hvXEY9O6V9O54zcGW0XobvvFQ +UPsobzHwkYN/10481T4YCnq8EFbhEAfnp69nb9oaChuiemY9hjl45OTA410b +Q2GLWk7F51EOFleVLhTKhkKgD5v1zz8czOrVqalo50KoydnZqkkOHphPfbrk +IReilg10npjiYH0lIeZ3iwvp5QUXZ2Y4mM+w0XO8wIX8v4S87s9x0DZy1+KX +wVwo3e5hHrrAQeEJh2UuXlzgKTcpmP7ioOzAoNGIMxfqJlVnf//m4L6+lpgI +Sy78H63uLgk= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08712788953232396}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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, 20}, {0., 0.08712788953232396}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991334471589432*^9, 3.992099716502489*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"41b358f4-4f05-8e41-8f39-85e35832fea0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.020752"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.058831"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.090855"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.11027"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.120683"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.117878"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.109585"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.093652"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.077678"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.059892"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.045412"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.032103"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.022647"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.014816"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.009893"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.006002"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.003879"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.002155"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.001404"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.000678"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.00048"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991714709387436*^9, 3.991714738003292*^9}, { + 3.991714834117689*^9, 3.991714842328617*^9}, 3.991793311407936*^9, + 3.9917953263701286`*^9, 3.9920885342053337`*^9}, + CellLabel->"In[97]:=",ExpressionUUID->"7383cf4d-77c8-1d41-ab20-d4ea9a390940"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 20.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9917148467316074`*^9, 3.992099716568165*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"d3679f5f-2e34-d843-950f-da2c3b9ef8a6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel->"In[98]:=",ExpressionUUID->"e431227d-0e31-a446-ad0d-76902a9a3bd8"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4VXsXB3BzKg1mzj6OQyIznYSStYwZSirSKLkZinCVkkNuJJQMkVky +V5Tp7N1AiqRC0ktSKFdESrlEplvvvn/sZz+fP37Ps57fXuu7tpK7/w4PAT4+ +vt/0898754y7iP7hLNPC9Q0Ru2TMTRs72Ftc2KfB7nP/4sA0Nvxuqotks2Nh +zE84Y0uaHuQ8uqQozM6AIII/0CANwXdT0LGfijfAQ8VSRS7NETrmvVPGFe+B +p9nFKw2pbrCoZ0BtTPE5lN7mNw29EgB5zbl/flF8C2ciE+p9Ev+C2+WxPb46 +o2ARbWjtpJkEXvAq42vgJLg3up2ftM8AvyH1j7zbs5DvG/JXYuQ1WKJ0Tu2D +ER/Wdeg8qYwphPiVLRp5boKo/PyxQLDMdXDvcXoo2CqC79/WDH8tL4U/n5xz +91dbglkllcqM77ehMkBsp5ztMozPyRe3elMBeVyfUT2XlVj2qbm8UqMKInIX +tv/4Ko6Q8UTM0LQaHPXu/qk5KY6nArVFWObVwKo/nuQ+K45GL56cE7CuhvsD +o+3twhJ47GT+ysat1TCx+u22WywJdFAY2K9+oBrcy8itno4SmDY+khbKrQaz +e3623dUSaHaSZWhJVQNfRz/Whkiix4PKZgcVHpz7XJcXclYSw0p0X/Wq8WAx +X46AcYwk7iy17vfS5IGE9p5G8ook3hZukg1ay4PV0a82l1dIYpRZ74gP8sBu +Y4ND/idJPCe+faF5Hw+SCwr2x+yQQrcKKWeHRB7I3T/7wHqPFIr3MMzCknmQ +3X6QJewmhYxpK86NVB4U/0v0nz0mhSZfvqjPZPPgrkvKH9wYKbStajwYeIMH +vUujjvrVSWEiv+fom3oeqJ7wDHbSkEbF8Okor3EeaG/4sDNXTxqDmOoqiyZ5 +sI5vt+7oemmcyNivWTjFA/M420/hFtK4efnUia45HrgWajmV7pdGoQnHaUKY +hNTOCV2BBGkUuJhUpyFPgrBB+HD5pDSmK5oOuwAJYvM/G+ZmpXE8X6Sp0IwE +ifqAq1Z8MujEZ7HyuwUJ7K3uzj1iMjg0Gz3MtSHBxMPqsYiqDAYrnCg8uZ2E +E1eW5h7YLYMBxouOj7uTMDiVtmvpAxlsaVnkMh1JQr4Z53jfYxk0SW11IM6T +cPBSW0J5swyemL1jsSmGhHcqws93dstgbP/H1cFxJLzaGbgxe1IGn4Z+ePU8 +hYS6yi1sbQ1ZrNKS/be3kIS0Y/yjDmmyWHvZ5EhjAwlO97JFlK7KYoTorfDY +Rrp+YaNVk4WyGHn3SpZ9Ewnx2X7706pkcc5SZKjpOQnnWnraPryQxb/HhJ9m +tJMQoE5VBwjJ4ULQ7eWVfSTYDR0Nu/ynHIrmti+6PkWCddiqMstgOWxxfD2y +6CcJ5tK976bPyOEVu5CpwzMkbLDaarQvTg4Fv8omy8yToFGkO7mqRA43iH76 +7MJHwVKPH95krxwWZ7Xv2bmEAtF/y9K8PsrhcutwpfNLKRC64tEkPyqHQ0t6 +GZQYBQuNXavO/JRDexPDwmUrKPiqcu+9tYQ8spXvMLMkKWgdDHPq3iyPL6jn +fHpMCp6Fro+84CCPl8RBar0CBY1S3ytNnOUxpILPzZhFQa2l24o8d3lcXrgq +35BNQVmhefORMHlceXhVn4QKBZcOL8L5KnlM0y1NstSk4MLCQ79b9+Rxa9NX +V5YWBedTgnMOPpLHHLsinynaZxo/zz1+IY87s3ZbZelQ4KfSSsaNyGNmxg+R +Jn0KHAYTNVksBnKTFXXSDel6NQc796vQVlsSs8GIAvvjhmeyNBhIib+NfEfb +RuB9u5whAystGtwlN1BgztY8KenIwNX+Ws+9TSh45HVGcccuBg5uzts0QxvK +Xz1L3M9AQzszl6hNFJiYBhPLjzBwX+ItbropBQb7nzwSjWCguchMSj5SwCuQ +O7o5hoGq+86ZKppRsPaLj+T5eAYSe7MSM2jrhEh4CmYxUN2ZrRdtTsGa9INL +f1Uz0MMz29vakoLiD1U8k/sMfBKT5F5Be7WaiCv3EQP7lGNF5awoUKbKKmZa +GTjQZL63nzazc9Z5coiBhwZtlZw3U5BJbP2t/5WBbhvvR5fRlv/j2vWACQaW +Pq7N4behQGbCen7sFwPbbTe/K6SdYpxZqCVM4OqCO/yTtCXPjm31WUqg5+CF +d6a2FKxcmXJtRJZAnXc6+S9px7sM26qxCFz3ejRJyo6CZbkbJj1UCGy27F/n +QnuJzt9WH/UITF2yI/U17Zigdd+VDAmUjat1FrenQORBdLrbJgL3dps029EW +3KLzpc+WwBXEwU6KdkTy2RSmI4E7iImjn2nz9XRu2reLwKTZ0LvyW+h+PcJN +7HYn0MXBLeQ47ZDKNmPZIwSOFJd9z6Y9O6P00dmfQOW8boVG2tPRzww6uAQW +s2uKl26l4MRL4oN4BIE9e7wFtGhPyvjHOMYQqJc9IGdHO9C1QT8hnsBMpeJR +D9rjRdI9L1II3BamGxxO22/M+5xYFl1P1nx9Ku2xdbXa9nkEnqqPflZK2zd0 +xZvYEgLvx22Pq6M9+tj9r2e3CIyf7Fr2krZiUvfReB6Bhl9Ir/e0nVwdnJ1q +CCz8EMv4QjtWsxEYDQTe/fRDdYp23YyxRv8z+j4TMi4t/Ffvk3Kp4pcE2g4w +tvE70P2TvPq3TxeB4QeZvoK0D7hlfdbvI9CYz3xIgPZlbfHOnx8JDDHQq/lN +n386d77uwSiBfCMXv83SXni6cD3yHwK/nZoL/4e2/pXAZNsZAqNqlQI+0fZ0 +Hwlb8ZvA/wlef9hNO0vX1fu1MBPdJNb5P6PdvtCxI0uMiV+Vj4WTtEWabTcd +kmSi9Ke58VzaG9MeqqkxmLg0IqoxmnbAYQOJMTYTbS6Tc760i/VLF6rUmGik +ti5lG+2eX+zhYB0mTj65maRLe2Vr6itTAyYOez2eFKNtlSFWK2TCxPiQNTXD +/31/z4jiZnMmMj+cG3lIe5DPj7vLkYkJf7w65U1bvu2jB9OFiQ+j5HuMaDtk +7XEcOMDE1n9FS0Ro3zWwWu3nw0Tr95e5mXS/jQnUrFgXyMRT72Ki3Ggrt+vN +zQYz0Xdn39wq2nFHmS+jzjORenhAo4Du73rDy/fsLzFxV9vIkCvtaSHRQvEU +JlYnJK6Qo+2WOxmck8dEIb3Z8gh6ftZ1NiuTtUw8szvbyJietyN5uIz7mIlH +XE8F99PzetWP+onNTNR149OKoi26OL+19Q0TVVeNjTdZU9C36fTJwQkmLsz8 +Etai519i6Xe3m7NM3Ksv9bOOzgub7sP2AXwKaDQXeWgb7apAR/bCMgXUDN9e +5G1B52uJWrOkugKO73i5EPpfHol3KVgcVMD0JJF4bTrfPl36FHHFQwGtJ0T8 +8+n8y1nyc3jYRwGnnJtVpWmLCclVxQUr4A4tIYUfdH6OTu+x7kpSQCeBjQbp +dL4W9fb5HWlUwJJmj5zTHAr27/nWUdOsgBsTrnFa11Ig1fXLaPkrBcxq8L7J +pB3xUlGwuk8BT5uxTO7o0ffVcChtYVoBT6ql8Xdo0/l2fehhgjoLd3WdzitS +o6BTZVplQJeFwg71F7tUKbiYJ3Jh3XoWblh2002Y9lymmtNbcxYain5r3U/v +m+5LR0aU97OQyDeon6D3UfLxsZVUPAud27ffqJGn8wqmDvVOsvBMzuTipsUU +BJutEaXmWCizzezWVVH6Piz23U7gV0RDs4XpE4soaLCpnzNfoYjD3SpnGcJ0 +/+24lHxDQxHXi2OMLb1/v3isfnLykCIGqpUpG02T0BrnvEb8pSK+0k7IO9BP +7++EmLbR14oYHev/6Ot7Eq4n1Zxo7FXElrcVeafp/4FzqUr1p0YVMdPi8+24 +dySw2qe1vguwsb7Lall6JwldbxueOLPYeDLOrMDyGQmbx/b+VHZmY8WP3Qnz +t0i4KhXZEb6bjQ8mpB5sKSPhx8bS8t59bAyL+qcv6yYJ1y7Me6W6s1GwNn6B +U0LCnFp29+IANhb6Tj+xv0ZCmXvfvfEL9PlA1jbGZRJWdh8MrXvERj02HDc+ +QUJ3w2H+vVpKuNfaxq9qLQnjZu8YYbpK+P368vtleiQsqt+27tpaJbzzwNC/ +SIeE9Q83eH0yUsKulCq5yxokpNSsfBFopYQfDzmH7VYmYRuvNv2iqxKKXftl +kClOQlORlN6DRCX0MXlZPv2NB2RMoyt7Sgk//7vbx7SIB57CQf1tbcrYuWnv +4PWJavgjkEuKZa5CBZXzzALDatD10mzbckgFo4aOawQFVMFLCa2lQcarcXdO +q536hUqouR2RpSWoinv4O17L3qgALr+GY2ufKgqGavgu2lcOS3pDbPx4ango +qLFD+vAtGCpWSskNXYMrok4+dI4rhZQ18kL3nNUx7P6f6doJNyAx0/PpIbYG +FhxbuyXxfgnsTTnQJjasgaN/L9u4fLYIZiyLZnPrNDGW+1bjjWIhfBwyD26I +1kL/qZzUeyfzIX+TPvHikDZy17/z3Vx3DW5FBYl7aetg7pESux/+VyHa+Q97 +wSkdjD/2fXtodhYY9ObdiH6hi/03rgn616ZDunrWrRf2etjpm9CtapIK4Y8u +pdvf08NB//zZU/eSYSvhXNSsoo8Ncem1XUFJYOb3dJ94rD4G2RYcUxJLgFym +u0rrlD5a8UkenjK8CCqPS1Id9q3F0IjckYi5aEjUbtD4X91aZKs5H2uRjwLP +SaFXzzU4yH5rVLTdPgLcKyfYsQkcjMgsPyM8Eg6+ETsX7JI46DX1nWfdGQ5B +O3lvxJI5WJjd1ZP0KBxipoLiE1M5uHZ30DerjHC4bTw7n5bDQZ69YIuKfTjM +1v/uKi7lYGCK4tn7FWcg8X9ilxqfctD3rN0bncgwyCw45n3+OQePS803lASE +QcGJNgubFg66Ks8baLiGASWTONfSxkEX8k6hvXEY9O6V9O54zcGW0XobvvFQ +UPsobzHwkYN/10481T4YCnq8EFbhEAfnp69nb9oaChuiemY9hjl45OTA410b +Q2GLWk7F51EOFleVLhTKhkKgD5v1zz8czOrVqalo50KoydnZqkkOHphPfbrk +IReilg10npjiYH0lIeZ3iwvp5QUXZ2Y4mM+w0XO8wIX8v4S87s9x0DZy1+KX +wVwo3e5hHrrAQeEJh2UuXlzgKTcpmP7ioOzAoNGIMxfqJlVnf//m4L6+lpgI +Sy78H63uLgk= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VXsXB3BzKg1mzj6OQyIznYSStYwZSirSKLkZinCVkkNuJJQMkVky +V5Tp7N1AiqRC0ktSKFdESrlEplvvvn/sZz+fP37Ps57fXuu7tpK7/w4PAT4+ +vt/0898754y7iP7hLNPC9Q0Ru2TMTRs72Ftc2KfB7nP/4sA0Nvxuqotks2Nh +zE84Y0uaHuQ8uqQozM6AIII/0CANwXdT0LGfijfAQ8VSRS7NETrmvVPGFe+B +p9nFKw2pbrCoZ0BtTPE5lN7mNw29EgB5zbl/flF8C2ciE+p9Ev+C2+WxPb46 +o2ARbWjtpJkEXvAq42vgJLg3up2ftM8AvyH1j7zbs5DvG/JXYuQ1WKJ0Tu2D +ER/Wdeg8qYwphPiVLRp5boKo/PyxQLDMdXDvcXoo2CqC79/WDH8tL4U/n5xz +91dbglkllcqM77ehMkBsp5ztMozPyRe3elMBeVyfUT2XlVj2qbm8UqMKInIX +tv/4Ko6Q8UTM0LQaHPXu/qk5KY6nArVFWObVwKo/nuQ+K45GL56cE7CuhvsD +o+3twhJ47GT+ysat1TCx+u22WywJdFAY2K9+oBrcy8itno4SmDY+khbKrQaz +e3623dUSaHaSZWhJVQNfRz/Whkiix4PKZgcVHpz7XJcXclYSw0p0X/Wq8WAx +X46AcYwk7iy17vfS5IGE9p5G8ook3hZukg1ay4PV0a82l1dIYpRZ74gP8sBu +Y4ND/idJPCe+faF5Hw+SCwr2x+yQQrcKKWeHRB7I3T/7wHqPFIr3MMzCknmQ +3X6QJewmhYxpK86NVB4U/0v0nz0mhSZfvqjPZPPgrkvKH9wYKbStajwYeIMH +vUujjvrVSWEiv+fom3oeqJ7wDHbSkEbF8Okor3EeaG/4sDNXTxqDmOoqiyZ5 +sI5vt+7oemmcyNivWTjFA/M420/hFtK4efnUia45HrgWajmV7pdGoQnHaUKY +hNTOCV2BBGkUuJhUpyFPgrBB+HD5pDSmK5oOuwAJYvM/G+ZmpXE8X6Sp0IwE +ifqAq1Z8MujEZ7HyuwUJ7K3uzj1iMjg0Gz3MtSHBxMPqsYiqDAYrnCg8uZ2E +E1eW5h7YLYMBxouOj7uTMDiVtmvpAxlsaVnkMh1JQr4Z53jfYxk0SW11IM6T +cPBSW0J5swyemL1jsSmGhHcqws93dstgbP/H1cFxJLzaGbgxe1IGn4Z+ePU8 +hYS6yi1sbQ1ZrNKS/be3kIS0Y/yjDmmyWHvZ5EhjAwlO97JFlK7KYoTorfDY +Rrp+YaNVk4WyGHn3SpZ9Ewnx2X7706pkcc5SZKjpOQnnWnraPryQxb/HhJ9m +tJMQoE5VBwjJ4ULQ7eWVfSTYDR0Nu/ynHIrmti+6PkWCddiqMstgOWxxfD2y +6CcJ5tK976bPyOEVu5CpwzMkbLDaarQvTg4Fv8omy8yToFGkO7mqRA43iH76 +7MJHwVKPH95krxwWZ7Xv2bmEAtF/y9K8PsrhcutwpfNLKRC64tEkPyqHQ0t6 +GZQYBQuNXavO/JRDexPDwmUrKPiqcu+9tYQ8spXvMLMkKWgdDHPq3iyPL6jn +fHpMCp6Fro+84CCPl8RBar0CBY1S3ytNnOUxpILPzZhFQa2l24o8d3lcXrgq +35BNQVmhefORMHlceXhVn4QKBZcOL8L5KnlM0y1NstSk4MLCQ79b9+Rxa9NX +V5YWBedTgnMOPpLHHLsinynaZxo/zz1+IY87s3ZbZelQ4KfSSsaNyGNmxg+R +Jn0KHAYTNVksBnKTFXXSDel6NQc796vQVlsSs8GIAvvjhmeyNBhIib+NfEfb +RuB9u5whAystGtwlN1BgztY8KenIwNX+Ws+9TSh45HVGcccuBg5uzts0QxvK +Xz1L3M9AQzszl6hNFJiYBhPLjzBwX+ItbropBQb7nzwSjWCguchMSj5SwCuQ +O7o5hoGq+86ZKppRsPaLj+T5eAYSe7MSM2jrhEh4CmYxUN2ZrRdtTsGa9INL +f1Uz0MMz29vakoLiD1U8k/sMfBKT5F5Be7WaiCv3EQP7lGNF5awoUKbKKmZa +GTjQZL63nzazc9Z5coiBhwZtlZw3U5BJbP2t/5WBbhvvR5fRlv/j2vWACQaW +Pq7N4behQGbCen7sFwPbbTe/K6SdYpxZqCVM4OqCO/yTtCXPjm31WUqg5+CF +d6a2FKxcmXJtRJZAnXc6+S9px7sM26qxCFz3ejRJyo6CZbkbJj1UCGy27F/n +QnuJzt9WH/UITF2yI/U17Zigdd+VDAmUjat1FrenQORBdLrbJgL3dps029EW +3KLzpc+WwBXEwU6KdkTy2RSmI4E7iImjn2nz9XRu2reLwKTZ0LvyW+h+PcJN +7HYn0MXBLeQ47ZDKNmPZIwSOFJd9z6Y9O6P00dmfQOW8boVG2tPRzww6uAQW +s2uKl26l4MRL4oN4BIE9e7wFtGhPyvjHOMYQqJc9IGdHO9C1QT8hnsBMpeJR +D9rjRdI9L1II3BamGxxO22/M+5xYFl1P1nx9Ku2xdbXa9nkEnqqPflZK2zd0 +xZvYEgLvx22Pq6M9+tj9r2e3CIyf7Fr2krZiUvfReB6Bhl9Ir/e0nVwdnJ1q +CCz8EMv4QjtWsxEYDQTe/fRDdYp23YyxRv8z+j4TMi4t/Ffvk3Kp4pcE2g4w +tvE70P2TvPq3TxeB4QeZvoK0D7hlfdbvI9CYz3xIgPZlbfHOnx8JDDHQq/lN +n386d77uwSiBfCMXv83SXni6cD3yHwK/nZoL/4e2/pXAZNsZAqNqlQI+0fZ0 +Hwlb8ZvA/wlef9hNO0vX1fu1MBPdJNb5P6PdvtCxI0uMiV+Vj4WTtEWabTcd +kmSi9Ke58VzaG9MeqqkxmLg0IqoxmnbAYQOJMTYTbS6Tc760i/VLF6rUmGik +ti5lG+2eX+zhYB0mTj65maRLe2Vr6itTAyYOez2eFKNtlSFWK2TCxPiQNTXD +/31/z4jiZnMmMj+cG3lIe5DPj7vLkYkJf7w65U1bvu2jB9OFiQ+j5HuMaDtk +7XEcOMDE1n9FS0Ro3zWwWu3nw0Tr95e5mXS/jQnUrFgXyMRT72Ki3Ggrt+vN +zQYz0Xdn39wq2nFHmS+jzjORenhAo4Du73rDy/fsLzFxV9vIkCvtaSHRQvEU +JlYnJK6Qo+2WOxmck8dEIb3Z8gh6ftZ1NiuTtUw8szvbyJietyN5uIz7mIlH +XE8F99PzetWP+onNTNR149OKoi26OL+19Q0TVVeNjTdZU9C36fTJwQkmLsz8 +Etai519i6Xe3m7NM3Ksv9bOOzgub7sP2AXwKaDQXeWgb7apAR/bCMgXUDN9e +5G1B52uJWrOkugKO73i5EPpfHol3KVgcVMD0JJF4bTrfPl36FHHFQwGtJ0T8 +8+n8y1nyc3jYRwGnnJtVpWmLCclVxQUr4A4tIYUfdH6OTu+x7kpSQCeBjQbp +dL4W9fb5HWlUwJJmj5zTHAr27/nWUdOsgBsTrnFa11Ig1fXLaPkrBcxq8L7J +pB3xUlGwuk8BT5uxTO7o0ffVcChtYVoBT6ql8Xdo0/l2fehhgjoLd3WdzitS +o6BTZVplQJeFwg71F7tUKbiYJ3Jh3XoWblh2002Y9lymmtNbcxYain5r3U/v +m+5LR0aU97OQyDeon6D3UfLxsZVUPAud27ffqJGn8wqmDvVOsvBMzuTipsUU +BJutEaXmWCizzezWVVH6Piz23U7gV0RDs4XpE4soaLCpnzNfoYjD3SpnGcJ0 +/+24lHxDQxHXi2OMLb1/v3isfnLykCIGqpUpG02T0BrnvEb8pSK+0k7IO9BP +7++EmLbR14oYHev/6Ot7Eq4n1Zxo7FXElrcVeafp/4FzqUr1p0YVMdPi8+24 +dySw2qe1vguwsb7Lall6JwldbxueOLPYeDLOrMDyGQmbx/b+VHZmY8WP3Qnz +t0i4KhXZEb6bjQ8mpB5sKSPhx8bS8t59bAyL+qcv6yYJ1y7Me6W6s1GwNn6B +U0LCnFp29+IANhb6Tj+xv0ZCmXvfvfEL9PlA1jbGZRJWdh8MrXvERj02HDc+ +QUJ3w2H+vVpKuNfaxq9qLQnjZu8YYbpK+P368vtleiQsqt+27tpaJbzzwNC/ +SIeE9Q83eH0yUsKulCq5yxokpNSsfBFopYQfDzmH7VYmYRuvNv2iqxKKXftl +kClOQlORlN6DRCX0MXlZPv2NB2RMoyt7Sgk//7vbx7SIB57CQf1tbcrYuWnv +4PWJavgjkEuKZa5CBZXzzALDatD10mzbckgFo4aOawQFVMFLCa2lQcarcXdO +q536hUqouR2RpSWoinv4O17L3qgALr+GY2ufKgqGavgu2lcOS3pDbPx4ango +qLFD+vAtGCpWSskNXYMrok4+dI4rhZQ18kL3nNUx7P6f6doJNyAx0/PpIbYG +FhxbuyXxfgnsTTnQJjasgaN/L9u4fLYIZiyLZnPrNDGW+1bjjWIhfBwyD26I +1kL/qZzUeyfzIX+TPvHikDZy17/z3Vx3DW5FBYl7aetg7pESux/+VyHa+Q97 +wSkdjD/2fXtodhYY9ObdiH6hi/03rgn616ZDunrWrRf2etjpm9CtapIK4Y8u +pdvf08NB//zZU/eSYSvhXNSsoo8Ncem1XUFJYOb3dJ94rD4G2RYcUxJLgFym +u0rrlD5a8UkenjK8CCqPS1Id9q3F0IjckYi5aEjUbtD4X91aZKs5H2uRjwLP +SaFXzzU4yH5rVLTdPgLcKyfYsQkcjMgsPyM8Eg6+ETsX7JI46DX1nWfdGQ5B +O3lvxJI5WJjd1ZP0KBxipoLiE1M5uHZ30DerjHC4bTw7n5bDQZ69YIuKfTjM +1v/uKi7lYGCK4tn7FWcg8X9ilxqfctD3rN0bncgwyCw45n3+OQePS803lASE +QcGJNgubFg66Ks8baLiGASWTONfSxkEX8k6hvXEY9O6V9O54zcGW0XobvvFQ +UPsobzHwkYN/10481T4YCnq8EFbhEAfnp69nb9oaChuiemY9hjl45OTA410b +Q2GLWk7F51EOFleVLhTKhkKgD5v1zz8czOrVqalo50KoydnZqkkOHphPfbrk +IReilg10npjiYH0lIeZ3iwvp5QUXZ2Y4mM+w0XO8wIX8v4S87s9x0DZy1+KX +wVwo3e5hHrrAQeEJh2UuXlzgKTcpmP7ioOzAoNGIMxfqJlVnf//m4L6+lpgI +Sy78H63uLgk= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08712788953232396}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08712788953232396}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VXsXB3BzKg1mzj6OQyIznYSStYwZSirSKLkZinCVkkNuJJQMkVky +V5Tp7N1AiqRC0ktSKFdESrlEplvvvn/sZz+fP37Ps57fXuu7tpK7/w4PAT4+ +vt/0898754y7iP7hLNPC9Q0Ru2TMTRs72Ftc2KfB7nP/4sA0Nvxuqotks2Nh +zE84Y0uaHuQ8uqQozM6AIII/0CANwXdT0LGfijfAQ8VSRS7NETrmvVPGFe+B +p9nFKw2pbrCoZ0BtTPE5lN7mNw29EgB5zbl/flF8C2ciE+p9Ev+C2+WxPb46 +o2ARbWjtpJkEXvAq42vgJLg3up2ftM8AvyH1j7zbs5DvG/JXYuQ1WKJ0Tu2D +ER/Wdeg8qYwphPiVLRp5boKo/PyxQLDMdXDvcXoo2CqC79/WDH8tL4U/n5xz +91dbglkllcqM77ehMkBsp5ztMozPyRe3elMBeVyfUT2XlVj2qbm8UqMKInIX +tv/4Ko6Q8UTM0LQaHPXu/qk5KY6nArVFWObVwKo/nuQ+K45GL56cE7CuhvsD +o+3twhJ47GT+ysat1TCx+u22WywJdFAY2K9+oBrcy8itno4SmDY+khbKrQaz +e3623dUSaHaSZWhJVQNfRz/Whkiix4PKZgcVHpz7XJcXclYSw0p0X/Wq8WAx +X46AcYwk7iy17vfS5IGE9p5G8ook3hZukg1ay4PV0a82l1dIYpRZ74gP8sBu +Y4ND/idJPCe+faF5Hw+SCwr2x+yQQrcKKWeHRB7I3T/7wHqPFIr3MMzCknmQ +3X6QJewmhYxpK86NVB4U/0v0nz0mhSZfvqjPZPPgrkvKH9wYKbStajwYeIMH +vUujjvrVSWEiv+fom3oeqJ7wDHbSkEbF8Okor3EeaG/4sDNXTxqDmOoqiyZ5 +sI5vt+7oemmcyNivWTjFA/M420/hFtK4efnUia45HrgWajmV7pdGoQnHaUKY +hNTOCV2BBGkUuJhUpyFPgrBB+HD5pDSmK5oOuwAJYvM/G+ZmpXE8X6Sp0IwE +ifqAq1Z8MujEZ7HyuwUJ7K3uzj1iMjg0Gz3MtSHBxMPqsYiqDAYrnCg8uZ2E +E1eW5h7YLYMBxouOj7uTMDiVtmvpAxlsaVnkMh1JQr4Z53jfYxk0SW11IM6T +cPBSW0J5swyemL1jsSmGhHcqws93dstgbP/H1cFxJLzaGbgxe1IGn4Z+ePU8 +hYS6yi1sbQ1ZrNKS/be3kIS0Y/yjDmmyWHvZ5EhjAwlO97JFlK7KYoTorfDY +Rrp+YaNVk4WyGHn3SpZ9Ewnx2X7706pkcc5SZKjpOQnnWnraPryQxb/HhJ9m +tJMQoE5VBwjJ4ULQ7eWVfSTYDR0Nu/ynHIrmti+6PkWCddiqMstgOWxxfD2y +6CcJ5tK976bPyOEVu5CpwzMkbLDaarQvTg4Fv8omy8yToFGkO7mqRA43iH76 +7MJHwVKPH95krxwWZ7Xv2bmEAtF/y9K8PsrhcutwpfNLKRC64tEkPyqHQ0t6 +GZQYBQuNXavO/JRDexPDwmUrKPiqcu+9tYQ8spXvMLMkKWgdDHPq3iyPL6jn +fHpMCp6Fro+84CCPl8RBar0CBY1S3ytNnOUxpILPzZhFQa2l24o8d3lcXrgq +35BNQVmhefORMHlceXhVn4QKBZcOL8L5KnlM0y1NstSk4MLCQ79b9+Rxa9NX +V5YWBedTgnMOPpLHHLsinynaZxo/zz1+IY87s3ZbZelQ4KfSSsaNyGNmxg+R +Jn0KHAYTNVksBnKTFXXSDel6NQc796vQVlsSs8GIAvvjhmeyNBhIib+NfEfb +RuB9u5whAystGtwlN1BgztY8KenIwNX+Ws+9TSh45HVGcccuBg5uzts0QxvK +Xz1L3M9AQzszl6hNFJiYBhPLjzBwX+ItbropBQb7nzwSjWCguchMSj5SwCuQ +O7o5hoGq+86ZKppRsPaLj+T5eAYSe7MSM2jrhEh4CmYxUN2ZrRdtTsGa9INL +f1Uz0MMz29vakoLiD1U8k/sMfBKT5F5Be7WaiCv3EQP7lGNF5awoUKbKKmZa +GTjQZL63nzazc9Z5coiBhwZtlZw3U5BJbP2t/5WBbhvvR5fRlv/j2vWACQaW +Pq7N4behQGbCen7sFwPbbTe/K6SdYpxZqCVM4OqCO/yTtCXPjm31WUqg5+CF +d6a2FKxcmXJtRJZAnXc6+S9px7sM26qxCFz3ejRJyo6CZbkbJj1UCGy27F/n +QnuJzt9WH/UITF2yI/U17Zigdd+VDAmUjat1FrenQORBdLrbJgL3dps029EW +3KLzpc+WwBXEwU6KdkTy2RSmI4E7iImjn2nz9XRu2reLwKTZ0LvyW+h+PcJN +7HYn0MXBLeQ47ZDKNmPZIwSOFJd9z6Y9O6P00dmfQOW8boVG2tPRzww6uAQW +s2uKl26l4MRL4oN4BIE9e7wFtGhPyvjHOMYQqJc9IGdHO9C1QT8hnsBMpeJR +D9rjRdI9L1II3BamGxxO22/M+5xYFl1P1nx9Ku2xdbXa9nkEnqqPflZK2zd0 +xZvYEgLvx22Pq6M9+tj9r2e3CIyf7Fr2krZiUvfReB6Bhl9Ir/e0nVwdnJ1q +CCz8EMv4QjtWsxEYDQTe/fRDdYp23YyxRv8z+j4TMi4t/Ffvk3Kp4pcE2g4w +tvE70P2TvPq3TxeB4QeZvoK0D7hlfdbvI9CYz3xIgPZlbfHOnx8JDDHQq/lN +n386d77uwSiBfCMXv83SXni6cD3yHwK/nZoL/4e2/pXAZNsZAqNqlQI+0fZ0 +Hwlb8ZvA/wlef9hNO0vX1fu1MBPdJNb5P6PdvtCxI0uMiV+Vj4WTtEWabTcd +kmSi9Ke58VzaG9MeqqkxmLg0IqoxmnbAYQOJMTYTbS6Tc760i/VLF6rUmGik +ti5lG+2eX+zhYB0mTj65maRLe2Vr6itTAyYOez2eFKNtlSFWK2TCxPiQNTXD +/31/z4jiZnMmMj+cG3lIe5DPj7vLkYkJf7w65U1bvu2jB9OFiQ+j5HuMaDtk +7XEcOMDE1n9FS0Ro3zWwWu3nw0Tr95e5mXS/jQnUrFgXyMRT72Ki3Ggrt+vN +zQYz0Xdn39wq2nFHmS+jzjORenhAo4Du73rDy/fsLzFxV9vIkCvtaSHRQvEU +JlYnJK6Qo+2WOxmck8dEIb3Z8gh6ftZ1NiuTtUw8szvbyJietyN5uIz7mIlH +XE8F99PzetWP+onNTNR149OKoi26OL+19Q0TVVeNjTdZU9C36fTJwQkmLsz8 +Etai519i6Xe3m7NM3Ksv9bOOzgub7sP2AXwKaDQXeWgb7apAR/bCMgXUDN9e +5G1B52uJWrOkugKO73i5EPpfHol3KVgcVMD0JJF4bTrfPl36FHHFQwGtJ0T8 +8+n8y1nyc3jYRwGnnJtVpWmLCclVxQUr4A4tIYUfdH6OTu+x7kpSQCeBjQbp +dL4W9fb5HWlUwJJmj5zTHAr27/nWUdOsgBsTrnFa11Ig1fXLaPkrBcxq8L7J +pB3xUlGwuk8BT5uxTO7o0ffVcChtYVoBT6ql8Xdo0/l2fehhgjoLd3WdzitS +o6BTZVplQJeFwg71F7tUKbiYJ3Jh3XoWblh2002Y9lymmtNbcxYain5r3U/v +m+5LR0aU97OQyDeon6D3UfLxsZVUPAud27ffqJGn8wqmDvVOsvBMzuTipsUU +BJutEaXmWCizzezWVVH6Piz23U7gV0RDs4XpE4soaLCpnzNfoYjD3SpnGcJ0 +/+24lHxDQxHXi2OMLb1/v3isfnLykCIGqpUpG02T0BrnvEb8pSK+0k7IO9BP +7++EmLbR14oYHev/6Ot7Eq4n1Zxo7FXElrcVeafp/4FzqUr1p0YVMdPi8+24 +dySw2qe1vguwsb7Lall6JwldbxueOLPYeDLOrMDyGQmbx/b+VHZmY8WP3Qnz +t0i4KhXZEb6bjQ8mpB5sKSPhx8bS8t59bAyL+qcv6yYJ1y7Me6W6s1GwNn6B +U0LCnFp29+IANhb6Tj+xv0ZCmXvfvfEL9PlA1jbGZRJWdh8MrXvERj02HDc+ +QUJ3w2H+vVpKuNfaxq9qLQnjZu8YYbpK+P368vtleiQsqt+27tpaJbzzwNC/ +SIeE9Q83eH0yUsKulCq5yxokpNSsfBFopYQfDzmH7VYmYRuvNv2iqxKKXftl +kClOQlORlN6DRCX0MXlZPv2NB2RMoyt7Sgk//7vbx7SIB57CQf1tbcrYuWnv +4PWJavgjkEuKZa5CBZXzzALDatD10mzbckgFo4aOawQFVMFLCa2lQcarcXdO +q536hUqouR2RpSWoinv4O17L3qgALr+GY2ufKgqGavgu2lcOS3pDbPx4ango +qLFD+vAtGCpWSskNXYMrok4+dI4rhZQ18kL3nNUx7P6f6doJNyAx0/PpIbYG +FhxbuyXxfgnsTTnQJjasgaN/L9u4fLYIZiyLZnPrNDGW+1bjjWIhfBwyD26I +1kL/qZzUeyfzIX+TPvHikDZy17/z3Vx3DW5FBYl7aetg7pESux/+VyHa+Q97 +wSkdjD/2fXtodhYY9ObdiH6hi/03rgn616ZDunrWrRf2etjpm9CtapIK4Y8u +pdvf08NB//zZU/eSYSvhXNSsoo8Ncem1XUFJYOb3dJ94rD4G2RYcUxJLgFym +u0rrlD5a8UkenjK8CCqPS1Id9q3F0IjckYi5aEjUbtD4X91aZKs5H2uRjwLP +SaFXzzU4yH5rVLTdPgLcKyfYsQkcjMgsPyM8Eg6+ETsX7JI46DX1nWfdGQ5B +O3lvxJI5WJjd1ZP0KBxipoLiE1M5uHZ30DerjHC4bTw7n5bDQZ69YIuKfTjM +1v/uKi7lYGCK4tn7FWcg8X9ilxqfctD3rN0bncgwyCw45n3+OQePS803lASE +QcGJNgubFg66Ks8baLiGASWTONfSxkEX8k6hvXEY9O6V9O54zcGW0XobvvFQ +UPsobzHwkYN/10481T4YCnq8EFbhEAfnp69nb9oaChuiemY9hjl45OTA410b +Q2GLWk7F51EOFleVLhTKhkKgD5v1zz8czOrVqalo50KoydnZqkkOHphPfbrk +IReilg10npjiYH0lIeZ3iwvp5QUXZ2Y4mM+w0XO8wIX8v4S87s9x0DZy1+KX +wVwo3e5hHrrAQeEJh2UuXlzgKTcpmP7ioOzAoNGIMxfqJlVnf//m4L6+lpgI +Sy78H63uLgk= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08712788953232396}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 20}, {0., 0.08712788953232396}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.992099716587059*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"18e41340-96d3-0a4c-8ab5-d223a57e2988"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{3.991846110594208*^9}, + CellLabel->"In[99]:=",ExpressionUUID->"4e5b3330-e10a-4342-8f3d-b24f9b16b9de"], + +Cell[BoxData["21.06580170581916`"], "Output", + CellChangeTimes->{3.991334803166374*^9, 3.99209971661405*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"90a5f243-fae2-e240-a475-7ad874444592"] +}, 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.991846112020672*^9}, + CellLabel-> + "In[100]:=",ExpressionUUID->"bb5f3a72-8528-7a48-a67a-a23038fc5b71"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.029921483242923`*^-279\\\", \ +\\\"5919012181389927685417441689600000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 100, 362, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133480336051*^9, 3.9920997167853966`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"bae69c80-fb06-324e-9624-e0f513084e2b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.40162776130444`*^-293\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 363, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133480336051*^9, 3.9920997167934113`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"8817ff80-ddde-ec44-bb16-f9c76a098ef6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.085374273803878`*^-307\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 364, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133480336051*^9, 3.992099716800396*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"dc7306a2-3ad5-ad43-8572-1b37b2c06cee"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 100, 365, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133480336051*^9, 3.992099716807396*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"b984473a-1584-6742-87fc-4e67003eaf2a"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1mk8VVsUAHBpwouMIUOZw3Wdcy8puvZCJUQURY9ChFKGSiIZCillyjUP +94RKpYRESMpYChFJIg2mwpMx5e0+nd//w16/c9Y6e60l5+y125Wbi4uLZwkX +19/ndG/jc8XLOfqk3kvDjAx5/fZMiTMGXWGo7Ve4Q5TIEgRir50luuLR2LJw +ziERIeRnmd+5tItC8+FtXLtE5JDQD/H4uc4HiFuyPJclQqKPFRZePztrUJ3o +oWYJEQO0XXH4w0RnG3JM9H2UKGyF5jp1Esc7P6E/oZ334gSd0DOjGzmt1CT6 +JVOuOFPlg6Q/ln11pv1GibzHojqMA5Co58H8lUZLIU3GYF/B9lAUT25/bGHD +Ax+jtnWtLgxH75KJ6glBfjjtccJrpjwKXc4Jfs0tKQQiZieGZLmuIvFrA1EJ +GSJAq6sJrOCJQ5HWJvpt02LgcUnc27U3Hp3YzDnYGCYBb83RLYeGa2jr2HzA +8YG10FU4+o/wOTYK3WLltHaTDDBU28etxZORbkFK8bkn62Bgzahn0+MU5Dk7 +EdLALwcVa+dEXtPS0Jy6YK+GjTy8jrYjgEpHW27fyWazFUC3qHvHn58ZaELY +1HFvjSLEn+YPNhHPQp+jHff6rlSGGD+bj3Vrs5HJ2GmTLxtV4PO/32oq4rPR +6CGeE8XBG2Dk4sf6ouUcnE9x7sgaVdhi9BbM3ThoyNn4pl69KrjUczenu3NQ +NOe0xfgLVehWuRox4sFBb2S7Uu06VGHEsjk0wpODHCVTmLRBVfC9ZpTywIeD +zghIubbyq8GAx4zFQCAH3ZmVbZCyU4Oda1aM58VwkHCz8tX7Y2pQr3xV6FEx +B/0ZI3KbfqoB5ev0abiEg4aF9So+z6mB5laBSulSDqqx3TUssUwdovvEY4PK +OOjE59PbQyXUwTz2211mFQe1/2r4Y2WgDhXLclp86jkoSe2o12S8Onj0W85q +v+OgC+anIviT1WHzdiFx024O8vYOzlDJUIc71mPg8J6DdjxMePHvDXXYF854 +GPKBg2YNKlSeP1aHgBPSGyr6OWi/HX/ftc/qsC3iN3P5MAdJX7xnuXEjDVhv +Nm3tm+Og/IK7z+Z0aWA+bJBWO89Bmzpub6xENBAN0pbN/8VB1vI3pbea0GD7 +ar6b3r9xPiuyB63saTCqWPBykotCv8bjQo6F0aDVCLm0raRQt93J+zmvaGB6 +OFN+QpRC7iG+Cu5vaNA46SRQIUah6TxvtnoXDbLcMlQi1lBI+Kfn2Qf9NFj5 +qPCTuASFTK+67qj+SQN50xdnSSkKldXs7Xu/VgNiE1/tZMlRKFl9s6CImwbc +vZHwpJRGIRuz5tiqoxogvk1m0UUDxzvqJHTEWwMGiJV+QnQKXc6PEn56RgNq +8rT53DUpdE61W9QrWgP4JhKa/2FQyEUlUPJFoQZ4/qPbrKFDIVKhUv78ggbs +fbxmbQ9Q6Ieh1XX6Ejo0BmY6extQKN/5i0L3cjqECh3/vNSQQooUvxK5mg47 +tZSubTCikITcAZWPcnR4HV6W676NQn9kF9X1jOnwybEz65kJhZrWGmhPxtGh +wS7c9YsVhVpk7ykvS6JDrd+BI0d3U+itvIyEWDodYk3eRo5j96vNzW/Mo8Or +FwurZvdQaFa3sDqgnA6EWY7hgg2FlP+V28k9QAfDkRivd3YUoh2MYYkM0sHb +QIrXaj+FGId+0xW/0yHL7FFFPTbr6Duh7TN0GM6L8H3wL4WsA+M6o/7RBL4g +YakgBwqFpS05JKSlCY4agqe+OVLoYpaXtfxmTaj9h/uxpROFrl7/sI2prwkv +tC9Jl2Gn3C7bYLNDEx7/V82IdKbQ/cc+P5LtNYEZfKFAwoVCve/7z6wP1wTl +wuA5QTcK6UrXxGq+1QSZmOtx+zwp9ElBsXeoWxP6dgcczMKOUo9Qz/moCQdW +63h8xe7SNa2TGNKEFHo54XuMQqft2n4tWdAEs+Fd8SHHKbTfzIc5LEhA2mXV +In9vCtF3ye83FiFguOOpSTE29543ITliBOgX58iMYd/ar/3qwFoCXqzIDXL2 +wfn0mHN/o0AAK19ADnwpxL4YmlmxkYBRt+u8nScodCSaUSu5mYD3g9eDV5yk +kH7swIifHgFvJg9qaWN/Sdq2mQQCWmLc98dia93gbc81IaDi/a401ikK8dwu +n+feScDgnmpeN+yegqNyjhYEnD94qzQG+/zD5uNr9xAglrq1rRe7rTaON8ae +AGNJ/eUn/SiU12hIjB4gIMNGyDcJO6B5cq+JEwFNGjLryrHlOmxylh7G75OE +dH9je3+WRP5e+Hu0bE8HnKbQ1sEm1w4fAqo+JA8mYUuMBkYzThJwVr4jtRj7 +yeSHd6P+BCz0UDUj2AJLqZNOYQQ4wHZ5K38KrZh7smfiAgGWRbuvHMH+8+MD +IzSSgALhIYnz2GPdkhPZ0QTolTLiC7EHW3RaiBgC7hUrhdRj99XZ3KuOI2DF +avmYHuyWB3HH+tgEyM0/FFx2hkINN+/t9E4hIKQm5vwa7OrMZnWudAKG9v4n +vgG78BLv8DoOAWZL3ubuwM4PUWm8d50An+akrH3YlN+2myiPgKlWl8eu2PHO +oYcP3iYgM4OyC8a+ZJu1bewuAc+SrXsuYYdZVCoG3ydAR+taaCJ2wNb3S1cX +ESBNhplkYZ/QnfuUWUKAuiPSuontSYjX0B8RUMIZNbiP7aKszakqJyDlS75v +Kba99J4Qi0qcb/W0ukpsa2Gfg71PCIgO7WU9w97JE6N/vAb/TyvYXfXYW//c +kfnznIDNQ5/YL7C3/GxauFJPQLXrV/9X2NrDg+9lmgjY1Pj0XAs2vW/F47sv +CSj1Yt9sxVZ+q5jKek3Aw+fh038t+9LwTHMrAcuNCt3/ek2No61DO673Sd3F +19gCj87pfH9LwK5Jw/Jm7BUF6WuC3hHg5Daa0oT953r51KoeAgYu2mbWYc+k +dLWn9xIwI3ur/in2eMx0Ea2fgMnFRbEK7MFw0YSKAQLshIKjSrD7Ahm+O78S +8Mp4h3wBdpePpVXPIAGiN4L6crFb3I4TniMErDI0eJ7+t94O0asXvhOQo1vS +HP+33nvyf1weJ+Dd018LkdhlJg3NUpME5Ivr7D6L/QB9vXN7igCJy1HNXn/r +r70sWm+WgPUBYl7O2KlyYPrvb1yPK4eUtv2tv/gB1ZFFAq4/OqKr/bf+/Gd5 +ArlJ8PLU9lPEDpwrrUtdScKsbLYzF/bJsY5cNT4S1qeFi3zH/6fnl8kL5atI +aEotG+nCtm/VNOoWIuHj02ThAmzrenP5I6IkFPVEOSVh76w8umR+DQmtTjZd +wdisWzeeSEqTIMnk0bfAlg1dt8VOGZ/vKf3eh+9XwQke+Q8bSFgn2ML3HFv/ +8MRKJ3USEiHHNg/bwezZG3cCnzdZGemOnS7mdtRfl4T0Eg/GAL7fNB5Lq4Ut +JISRIu+eYD+e36QTgkhocI0sTMPu/si39OJWEu5a2c5aYkvmF6QmWZAgG2fX +X4j7y830pBApKxJSm8XWXsTeFBNyOGsPCZbNBeEO2LYndzNu2JIwI7pkejk2 +W3+68aEzCeMJY/rmuL+JvmHNdfiR8JLlGluC+2VOrfJHuzM4/j6tlcHYzEer +az8EknCWV6DIGHt3Rn/slxASuL2O57/F/TbOLXzD1CUSKvxrpEZwPxZYeLlP +NIuEuZxulR+4n2f+KGElc0h4fXNuMR+b3p+pIJ1DwvRLh9Vu2OZ13mMKt0hQ +eRHe3oPnQXSsaCSziIQrHJOFKjwveJXsH+6uJ2F5m3e/wxHcvyWR6e1GEvzM +H2SLYDfxy/cufUlC0m2zogYPfH762/KSFhKCM3+3EdgCDSdsxLtJYLNyF2fd +/u4Tl3++HyXBp3zfBg9XCkkXljNchRnAv6vycuNBCp3NzairFGWAvlP0uAf2 +h5SQ/WvEGeB+N+QOL3Zm2PaweikGrPpsrWZ8gELrrdtaVZUY4LVJyKDcnkJK +M0PeP3QYcOHq+ukQPL/pLMl7px0YcFEtcn8cnv9FCh6/uB0Z8KzwE7cI9ia+ +MuOrzgxof2k+lID3B8NO274cNwbcF532TrCk0F6fZKE2HwacvcvjHWVBoeBc +8ZO0COzXKlZWpvg+8q/Z3F/AgBec1U+t8D5j89M13LOQAXzxxoGP8b7T3V3S +OlPEABmo8lfE/nzD5ohAGQN0/AX1f+rjeWmQmKb3jAEC3N+mL23B88dP9E9i +JwMmu3y3J+L9ybdX+JkpFxNOLFRHyuJ9rKHOvjKfmwnqvfPRZ/G+Jnsvr5Rv +OROCbQ7+904d1yNY904TLxM6VbR749UoJC/nnGgqwoTqngnWbxUKtR4qdDNV +ZsKXvAdbiuUpRAztWmW6kwmCIm+JO+J4/kxG25gkM2GhvarjxSIH9XRx9mak +MkEj7vnUCuymyof7JtKZ0Jzec8HgDwflRPbZpXCYMFz1arx4Ae/HUloHhvKZ +EL7h0tJEvA/XGr4/HFXJhFVq3xi6kxyUFqfq3/iJCbJfMgokv3KQsWZdqomG +FnCWfe3QauKgqkm9XzOvtGBCbV27TwQHHacxultdtWF0RD71jT4HsX64tNvx +boSbvi1rnw5mo22KEub81EawHDHPko/LRhtCLvnX6OjAvOgdTxHtbKTmuvmJ +UrcOrFJoOSzCzkKuVe4Xin02wVRumeeH2kz0JLvdZUJsM4zV7wgM7c5AP28u +zmiWboYrLkpnBEbS0SGl27yp5rrwvNF+IGB5OppQS9j4YFwXikvXha1bmYYe +5fzqn7qoBw41N1bViKWi/VsVQE92C8jY/rKOUU5BUsciy+jVW6Cfe2W8uVwy +EuPzLDTfxwLPseFT32hJKMcoKGDcjgXUbwXTnA1JiBF01SjBngVf9OKVnBST +kMX4/Y4uJxbwK++Y7JZKQhFvp+YOebJguu/Wf6/4ktAsFWwYEMqCJqug2keD +bNStl/Am7zYLvKpjuxJz2Mj9VE66SQELaKxWVetsNpouKHEdvc+CecbIZeF0 +NhKW75ohH7IANLvPxySwkRmPjHRlNQtkF76YXgpjo4r2PJc3HSw4vOT06fOO +bGQq8EjDr4sFZueS5gzt2ajLuHFa4j0LzJ8axHHbstHP8pGLB/pY4Bprzx22 +i400OMTdoWEW3BCpnQzVx/G6Dfyiv7OgTM5CzVAXxxPdgzTHWRAUd9+feyMb +HY481XpyigXahSoHzmvgeNURqeKzLDin/XrKSJWNwuaTDpXPs2D181N5y5TY +SFDrFs3hNwueX3Hxrl3PRpnHyqcWF1kQcOfznghpNvof9VaNxw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1mk8VVsUAHBpwouMIUOZw3Wdcy8puvZCJUQURY9ChFKGSiIZCillyjUP +94RKpYRESMpYChFJIg2mwpMx5e0+nd//w16/c9Y6e60l5+y125Wbi4uLZwkX +19/ndG/jc8XLOfqk3kvDjAx5/fZMiTMGXWGo7Ve4Q5TIEgRir50luuLR2LJw +ziERIeRnmd+5tItC8+FtXLtE5JDQD/H4uc4HiFuyPJclQqKPFRZePztrUJ3o +oWYJEQO0XXH4w0RnG3JM9H2UKGyF5jp1Esc7P6E/oZ334gSd0DOjGzmt1CT6 +JVOuOFPlg6Q/ln11pv1GibzHojqMA5Co58H8lUZLIU3GYF/B9lAUT25/bGHD +Ax+jtnWtLgxH75KJ6glBfjjtccJrpjwKXc4Jfs0tKQQiZieGZLmuIvFrA1EJ +GSJAq6sJrOCJQ5HWJvpt02LgcUnc27U3Hp3YzDnYGCYBb83RLYeGa2jr2HzA +8YG10FU4+o/wOTYK3WLltHaTDDBU28etxZORbkFK8bkn62Bgzahn0+MU5Dk7 +EdLALwcVa+dEXtPS0Jy6YK+GjTy8jrYjgEpHW27fyWazFUC3qHvHn58ZaELY +1HFvjSLEn+YPNhHPQp+jHff6rlSGGD+bj3Vrs5HJ2GmTLxtV4PO/32oq4rPR +6CGeE8XBG2Dk4sf6ouUcnE9x7sgaVdhi9BbM3ThoyNn4pl69KrjUczenu3NQ +NOe0xfgLVehWuRox4sFBb2S7Uu06VGHEsjk0wpODHCVTmLRBVfC9ZpTywIeD +zghIubbyq8GAx4zFQCAH3ZmVbZCyU4Oda1aM58VwkHCz8tX7Y2pQr3xV6FEx +B/0ZI3KbfqoB5ev0abiEg4aF9So+z6mB5laBSulSDqqx3TUssUwdovvEY4PK +OOjE59PbQyXUwTz2211mFQe1/2r4Y2WgDhXLclp86jkoSe2o12S8Onj0W85q +v+OgC+anIviT1WHzdiFx024O8vYOzlDJUIc71mPg8J6DdjxMePHvDXXYF854 +GPKBg2YNKlSeP1aHgBPSGyr6OWi/HX/ftc/qsC3iN3P5MAdJX7xnuXEjDVhv +Nm3tm+Og/IK7z+Z0aWA+bJBWO89Bmzpub6xENBAN0pbN/8VB1vI3pbea0GD7 +ar6b3r9xPiuyB63saTCqWPBykotCv8bjQo6F0aDVCLm0raRQt93J+zmvaGB6 +OFN+QpRC7iG+Cu5vaNA46SRQIUah6TxvtnoXDbLcMlQi1lBI+Kfn2Qf9NFj5 +qPCTuASFTK+67qj+SQN50xdnSSkKldXs7Xu/VgNiE1/tZMlRKFl9s6CImwbc +vZHwpJRGIRuz5tiqoxogvk1m0UUDxzvqJHTEWwMGiJV+QnQKXc6PEn56RgNq +8rT53DUpdE61W9QrWgP4JhKa/2FQyEUlUPJFoQZ4/qPbrKFDIVKhUv78ggbs +fbxmbQ9Q6Ieh1XX6Ejo0BmY6extQKN/5i0L3cjqECh3/vNSQQooUvxK5mg47 +tZSubTCikITcAZWPcnR4HV6W676NQn9kF9X1jOnwybEz65kJhZrWGmhPxtGh +wS7c9YsVhVpk7ykvS6JDrd+BI0d3U+itvIyEWDodYk3eRo5j96vNzW/Mo8Or +FwurZvdQaFa3sDqgnA6EWY7hgg2FlP+V28k9QAfDkRivd3YUoh2MYYkM0sHb +QIrXaj+FGId+0xW/0yHL7FFFPTbr6Duh7TN0GM6L8H3wL4WsA+M6o/7RBL4g +YakgBwqFpS05JKSlCY4agqe+OVLoYpaXtfxmTaj9h/uxpROFrl7/sI2prwkv +tC9Jl2Gn3C7bYLNDEx7/V82IdKbQ/cc+P5LtNYEZfKFAwoVCve/7z6wP1wTl +wuA5QTcK6UrXxGq+1QSZmOtx+zwp9ElBsXeoWxP6dgcczMKOUo9Qz/moCQdW +63h8xe7SNa2TGNKEFHo54XuMQqft2n4tWdAEs+Fd8SHHKbTfzIc5LEhA2mXV +In9vCtF3ye83FiFguOOpSTE29543ITliBOgX58iMYd/ar/3qwFoCXqzIDXL2 +wfn0mHN/o0AAK19ADnwpxL4YmlmxkYBRt+u8nScodCSaUSu5mYD3g9eDV5yk +kH7swIifHgFvJg9qaWN/Sdq2mQQCWmLc98dia93gbc81IaDi/a401ikK8dwu +n+feScDgnmpeN+yegqNyjhYEnD94qzQG+/zD5uNr9xAglrq1rRe7rTaON8ae +AGNJ/eUn/SiU12hIjB4gIMNGyDcJO6B5cq+JEwFNGjLryrHlOmxylh7G75OE +dH9je3+WRP5e+Hu0bE8HnKbQ1sEm1w4fAqo+JA8mYUuMBkYzThJwVr4jtRj7 +yeSHd6P+BCz0UDUj2AJLqZNOYQQ4wHZ5K38KrZh7smfiAgGWRbuvHMH+8+MD +IzSSgALhIYnz2GPdkhPZ0QTolTLiC7EHW3RaiBgC7hUrhdRj99XZ3KuOI2DF +avmYHuyWB3HH+tgEyM0/FFx2hkINN+/t9E4hIKQm5vwa7OrMZnWudAKG9v4n +vgG78BLv8DoOAWZL3ubuwM4PUWm8d50An+akrH3YlN+2myiPgKlWl8eu2PHO +oYcP3iYgM4OyC8a+ZJu1bewuAc+SrXsuYYdZVCoG3ydAR+taaCJ2wNb3S1cX +ESBNhplkYZ/QnfuUWUKAuiPSuontSYjX0B8RUMIZNbiP7aKszakqJyDlS75v +Kba99J4Qi0qcb/W0ukpsa2Gfg71PCIgO7WU9w97JE6N/vAb/TyvYXfXYW//c +kfnznIDNQ5/YL7C3/GxauFJPQLXrV/9X2NrDg+9lmgjY1Pj0XAs2vW/F47sv +CSj1Yt9sxVZ+q5jKek3Aw+fh038t+9LwTHMrAcuNCt3/ek2No61DO673Sd3F +19gCj87pfH9LwK5Jw/Jm7BUF6WuC3hHg5Daa0oT953r51KoeAgYu2mbWYc+k +dLWn9xIwI3ur/in2eMx0Ea2fgMnFRbEK7MFw0YSKAQLshIKjSrD7Ahm+O78S +8Mp4h3wBdpePpVXPIAGiN4L6crFb3I4TniMErDI0eJ7+t94O0asXvhOQo1vS +HP+33nvyf1weJ+Dd018LkdhlJg3NUpME5Ivr7D6L/QB9vXN7igCJy1HNXn/r +r70sWm+WgPUBYl7O2KlyYPrvb1yPK4eUtv2tv/gB1ZFFAq4/OqKr/bf+/Gd5 +ArlJ8PLU9lPEDpwrrUtdScKsbLYzF/bJsY5cNT4S1qeFi3zH/6fnl8kL5atI +aEotG+nCtm/VNOoWIuHj02ThAmzrenP5I6IkFPVEOSVh76w8umR+DQmtTjZd +wdisWzeeSEqTIMnk0bfAlg1dt8VOGZ/vKf3eh+9XwQke+Q8bSFgn2ML3HFv/ +8MRKJ3USEiHHNg/bwezZG3cCnzdZGemOnS7mdtRfl4T0Eg/GAL7fNB5Lq4Ut +JISRIu+eYD+e36QTgkhocI0sTMPu/si39OJWEu5a2c5aYkvmF6QmWZAgG2fX +X4j7y830pBApKxJSm8XWXsTeFBNyOGsPCZbNBeEO2LYndzNu2JIwI7pkejk2 +W3+68aEzCeMJY/rmuL+JvmHNdfiR8JLlGluC+2VOrfJHuzM4/j6tlcHYzEer +az8EknCWV6DIGHt3Rn/slxASuL2O57/F/TbOLXzD1CUSKvxrpEZwPxZYeLlP +NIuEuZxulR+4n2f+KGElc0h4fXNuMR+b3p+pIJ1DwvRLh9Vu2OZ13mMKt0hQ +eRHe3oPnQXSsaCSziIQrHJOFKjwveJXsH+6uJ2F5m3e/wxHcvyWR6e1GEvzM +H2SLYDfxy/cufUlC0m2zogYPfH762/KSFhKCM3+3EdgCDSdsxLtJYLNyF2fd +/u4Tl3++HyXBp3zfBg9XCkkXljNchRnAv6vycuNBCp3NzairFGWAvlP0uAf2 +h5SQ/WvEGeB+N+QOL3Zm2PaweikGrPpsrWZ8gELrrdtaVZUY4LVJyKDcnkJK +M0PeP3QYcOHq+ukQPL/pLMl7px0YcFEtcn8cnv9FCh6/uB0Z8KzwE7cI9ia+ +MuOrzgxof2k+lID3B8NO274cNwbcF532TrCk0F6fZKE2HwacvcvjHWVBoeBc +8ZO0COzXKlZWpvg+8q/Z3F/AgBec1U+t8D5j89M13LOQAXzxxoGP8b7T3V3S +OlPEABmo8lfE/nzD5ohAGQN0/AX1f+rjeWmQmKb3jAEC3N+mL23B88dP9E9i +JwMmu3y3J+L9ybdX+JkpFxNOLFRHyuJ9rKHOvjKfmwnqvfPRZ/G+Jnsvr5Rv +OROCbQ7+904d1yNY904TLxM6VbR749UoJC/nnGgqwoTqngnWbxUKtR4qdDNV +ZsKXvAdbiuUpRAztWmW6kwmCIm+JO+J4/kxG25gkM2GhvarjxSIH9XRx9mak +MkEj7vnUCuymyof7JtKZ0Jzec8HgDwflRPbZpXCYMFz1arx4Ae/HUloHhvKZ +EL7h0tJEvA/XGr4/HFXJhFVq3xi6kxyUFqfq3/iJCbJfMgokv3KQsWZdqomG +FnCWfe3QauKgqkm9XzOvtGBCbV27TwQHHacxultdtWF0RD71jT4HsX64tNvx +boSbvi1rnw5mo22KEub81EawHDHPko/LRhtCLvnX6OjAvOgdTxHtbKTmuvmJ +UrcOrFJoOSzCzkKuVe4Xin02wVRumeeH2kz0JLvdZUJsM4zV7wgM7c5AP28u +zmiWboYrLkpnBEbS0SGl27yp5rrwvNF+IGB5OppQS9j4YFwXikvXha1bmYYe +5fzqn7qoBw41N1bViKWi/VsVQE92C8jY/rKOUU5BUsciy+jVW6Cfe2W8uVwy +EuPzLDTfxwLPseFT32hJKMcoKGDcjgXUbwXTnA1JiBF01SjBngVf9OKVnBST +kMX4/Y4uJxbwK++Y7JZKQhFvp+YOebJguu/Wf6/4ktAsFWwYEMqCJqug2keD +bNStl/Am7zYLvKpjuxJz2Mj9VE66SQELaKxWVetsNpouKHEdvc+CecbIZeF0 +NhKW75ohH7IANLvPxySwkRmPjHRlNQtkF76YXgpjo4r2PJc3HSw4vOT06fOO +bGQq8EjDr4sFZueS5gzt2ajLuHFa4j0LzJ8axHHbstHP8pGLB/pY4Bprzx22 +i400OMTdoWEW3BCpnQzVx/G6Dfyiv7OgTM5CzVAXxxPdgzTHWRAUd9+feyMb +HY481XpyigXahSoHzmvgeNURqeKzLDin/XrKSJWNwuaTDpXPs2D181N5y5TY +SFDrFs3hNwueX3Hxrl3PRpnHyqcWF1kQcOfznghpNvof9VaNxw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.036085664122660274`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.036085664122660274`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1mk8VVsUAHBpwouMIUOZw3Wdcy8puvZCJUQURY9ChFKGSiIZCillyjUP +94RKpYRESMpYChFJIg2mwpMx5e0+nd//w16/c9Y6e60l5+y125Wbi4uLZwkX +19/ndG/jc8XLOfqk3kvDjAx5/fZMiTMGXWGo7Ve4Q5TIEgRir50luuLR2LJw +ziERIeRnmd+5tItC8+FtXLtE5JDQD/H4uc4HiFuyPJclQqKPFRZePztrUJ3o +oWYJEQO0XXH4w0RnG3JM9H2UKGyF5jp1Esc7P6E/oZ334gSd0DOjGzmt1CT6 +JVOuOFPlg6Q/ln11pv1GibzHojqMA5Co58H8lUZLIU3GYF/B9lAUT25/bGHD +Ax+jtnWtLgxH75KJ6glBfjjtccJrpjwKXc4Jfs0tKQQiZieGZLmuIvFrA1EJ +GSJAq6sJrOCJQ5HWJvpt02LgcUnc27U3Hp3YzDnYGCYBb83RLYeGa2jr2HzA +8YG10FU4+o/wOTYK3WLltHaTDDBU28etxZORbkFK8bkn62Bgzahn0+MU5Dk7 +EdLALwcVa+dEXtPS0Jy6YK+GjTy8jrYjgEpHW27fyWazFUC3qHvHn58ZaELY +1HFvjSLEn+YPNhHPQp+jHff6rlSGGD+bj3Vrs5HJ2GmTLxtV4PO/32oq4rPR +6CGeE8XBG2Dk4sf6ouUcnE9x7sgaVdhi9BbM3ThoyNn4pl69KrjUczenu3NQ +NOe0xfgLVehWuRox4sFBb2S7Uu06VGHEsjk0wpODHCVTmLRBVfC9ZpTywIeD +zghIubbyq8GAx4zFQCAH3ZmVbZCyU4Oda1aM58VwkHCz8tX7Y2pQr3xV6FEx +B/0ZI3KbfqoB5ev0abiEg4aF9So+z6mB5laBSulSDqqx3TUssUwdovvEY4PK +OOjE59PbQyXUwTz2211mFQe1/2r4Y2WgDhXLclp86jkoSe2o12S8Onj0W85q +v+OgC+anIviT1WHzdiFx024O8vYOzlDJUIc71mPg8J6DdjxMePHvDXXYF854 +GPKBg2YNKlSeP1aHgBPSGyr6OWi/HX/ftc/qsC3iN3P5MAdJX7xnuXEjDVhv +Nm3tm+Og/IK7z+Z0aWA+bJBWO89Bmzpub6xENBAN0pbN/8VB1vI3pbea0GD7 +ar6b3r9xPiuyB63saTCqWPBykotCv8bjQo6F0aDVCLm0raRQt93J+zmvaGB6 +OFN+QpRC7iG+Cu5vaNA46SRQIUah6TxvtnoXDbLcMlQi1lBI+Kfn2Qf9NFj5 +qPCTuASFTK+67qj+SQN50xdnSSkKldXs7Xu/VgNiE1/tZMlRKFl9s6CImwbc +vZHwpJRGIRuz5tiqoxogvk1m0UUDxzvqJHTEWwMGiJV+QnQKXc6PEn56RgNq +8rT53DUpdE61W9QrWgP4JhKa/2FQyEUlUPJFoQZ4/qPbrKFDIVKhUv78ggbs +fbxmbQ9Q6Ieh1XX6Ejo0BmY6extQKN/5i0L3cjqECh3/vNSQQooUvxK5mg47 +tZSubTCikITcAZWPcnR4HV6W676NQn9kF9X1jOnwybEz65kJhZrWGmhPxtGh +wS7c9YsVhVpk7ykvS6JDrd+BI0d3U+itvIyEWDodYk3eRo5j96vNzW/Mo8Or +FwurZvdQaFa3sDqgnA6EWY7hgg2FlP+V28k9QAfDkRivd3YUoh2MYYkM0sHb +QIrXaj+FGId+0xW/0yHL7FFFPTbr6Duh7TN0GM6L8H3wL4WsA+M6o/7RBL4g +YakgBwqFpS05JKSlCY4agqe+OVLoYpaXtfxmTaj9h/uxpROFrl7/sI2prwkv +tC9Jl2Gn3C7bYLNDEx7/V82IdKbQ/cc+P5LtNYEZfKFAwoVCve/7z6wP1wTl +wuA5QTcK6UrXxGq+1QSZmOtx+zwp9ElBsXeoWxP6dgcczMKOUo9Qz/moCQdW +63h8xe7SNa2TGNKEFHo54XuMQqft2n4tWdAEs+Fd8SHHKbTfzIc5LEhA2mXV +In9vCtF3ye83FiFguOOpSTE29543ITliBOgX58iMYd/ar/3qwFoCXqzIDXL2 +wfn0mHN/o0AAK19ADnwpxL4YmlmxkYBRt+u8nScodCSaUSu5mYD3g9eDV5yk +kH7swIifHgFvJg9qaWN/Sdq2mQQCWmLc98dia93gbc81IaDi/a401ikK8dwu +n+feScDgnmpeN+yegqNyjhYEnD94qzQG+/zD5uNr9xAglrq1rRe7rTaON8ae +AGNJ/eUn/SiU12hIjB4gIMNGyDcJO6B5cq+JEwFNGjLryrHlOmxylh7G75OE +dH9je3+WRP5e+Hu0bE8HnKbQ1sEm1w4fAqo+JA8mYUuMBkYzThJwVr4jtRj7 +yeSHd6P+BCz0UDUj2AJLqZNOYQQ4wHZ5K38KrZh7smfiAgGWRbuvHMH+8+MD +IzSSgALhIYnz2GPdkhPZ0QTolTLiC7EHW3RaiBgC7hUrhdRj99XZ3KuOI2DF +avmYHuyWB3HH+tgEyM0/FFx2hkINN+/t9E4hIKQm5vwa7OrMZnWudAKG9v4n +vgG78BLv8DoOAWZL3ubuwM4PUWm8d50An+akrH3YlN+2myiPgKlWl8eu2PHO +oYcP3iYgM4OyC8a+ZJu1bewuAc+SrXsuYYdZVCoG3ydAR+taaCJ2wNb3S1cX +ESBNhplkYZ/QnfuUWUKAuiPSuontSYjX0B8RUMIZNbiP7aKszakqJyDlS75v +Kba99J4Qi0qcb/W0ukpsa2Gfg71PCIgO7WU9w97JE6N/vAb/TyvYXfXYW//c +kfnznIDNQ5/YL7C3/GxauFJPQLXrV/9X2NrDg+9lmgjY1Pj0XAs2vW/F47sv +CSj1Yt9sxVZ+q5jKek3Aw+fh038t+9LwTHMrAcuNCt3/ek2No61DO673Sd3F +19gCj87pfH9LwK5Jw/Jm7BUF6WuC3hHg5Daa0oT953r51KoeAgYu2mbWYc+k +dLWn9xIwI3ur/in2eMx0Ea2fgMnFRbEK7MFw0YSKAQLshIKjSrD7Ahm+O78S +8Mp4h3wBdpePpVXPIAGiN4L6crFb3I4TniMErDI0eJ7+t94O0asXvhOQo1vS +HP+33nvyf1weJ+Dd018LkdhlJg3NUpME5Ivr7D6L/QB9vXN7igCJy1HNXn/r +r70sWm+WgPUBYl7O2KlyYPrvb1yPK4eUtv2tv/gB1ZFFAq4/OqKr/bf+/Gd5 +ArlJ8PLU9lPEDpwrrUtdScKsbLYzF/bJsY5cNT4S1qeFi3zH/6fnl8kL5atI +aEotG+nCtm/VNOoWIuHj02ThAmzrenP5I6IkFPVEOSVh76w8umR+DQmtTjZd +wdisWzeeSEqTIMnk0bfAlg1dt8VOGZ/vKf3eh+9XwQke+Q8bSFgn2ML3HFv/ +8MRKJ3USEiHHNg/bwezZG3cCnzdZGemOnS7mdtRfl4T0Eg/GAL7fNB5Lq4Ut +JISRIu+eYD+e36QTgkhocI0sTMPu/si39OJWEu5a2c5aYkvmF6QmWZAgG2fX +X4j7y830pBApKxJSm8XWXsTeFBNyOGsPCZbNBeEO2LYndzNu2JIwI7pkejk2 +W3+68aEzCeMJY/rmuL+JvmHNdfiR8JLlGluC+2VOrfJHuzM4/j6tlcHYzEer +az8EknCWV6DIGHt3Rn/slxASuL2O57/F/TbOLXzD1CUSKvxrpEZwPxZYeLlP +NIuEuZxulR+4n2f+KGElc0h4fXNuMR+b3p+pIJ1DwvRLh9Vu2OZ13mMKt0hQ +eRHe3oPnQXSsaCSziIQrHJOFKjwveJXsH+6uJ2F5m3e/wxHcvyWR6e1GEvzM +H2SLYDfxy/cufUlC0m2zogYPfH762/KSFhKCM3+3EdgCDSdsxLtJYLNyF2fd +/u4Tl3++HyXBp3zfBg9XCkkXljNchRnAv6vycuNBCp3NzairFGWAvlP0uAf2 +h5SQ/WvEGeB+N+QOL3Zm2PaweikGrPpsrWZ8gELrrdtaVZUY4LVJyKDcnkJK +M0PeP3QYcOHq+ukQPL/pLMl7px0YcFEtcn8cnv9FCh6/uB0Z8KzwE7cI9ia+ +MuOrzgxof2k+lID3B8NO274cNwbcF532TrCk0F6fZKE2HwacvcvjHWVBoeBc +8ZO0COzXKlZWpvg+8q/Z3F/AgBec1U+t8D5j89M13LOQAXzxxoGP8b7T3V3S +OlPEABmo8lfE/nzD5ohAGQN0/AX1f+rjeWmQmKb3jAEC3N+mL23B88dP9E9i +JwMmu3y3J+L9ybdX+JkpFxNOLFRHyuJ9rKHOvjKfmwnqvfPRZ/G+Jnsvr5Rv +OROCbQ7+904d1yNY904TLxM6VbR749UoJC/nnGgqwoTqngnWbxUKtR4qdDNV +ZsKXvAdbiuUpRAztWmW6kwmCIm+JO+J4/kxG25gkM2GhvarjxSIH9XRx9mak +MkEj7vnUCuymyof7JtKZ0Jzec8HgDwflRPbZpXCYMFz1arx4Ae/HUloHhvKZ +EL7h0tJEvA/XGr4/HFXJhFVq3xi6kxyUFqfq3/iJCbJfMgokv3KQsWZdqomG +FnCWfe3QauKgqkm9XzOvtGBCbV27TwQHHacxultdtWF0RD71jT4HsX64tNvx +boSbvi1rnw5mo22KEub81EawHDHPko/LRhtCLvnX6OjAvOgdTxHtbKTmuvmJ +UrcOrFJoOSzCzkKuVe4Xin02wVRumeeH2kz0JLvdZUJsM4zV7wgM7c5AP28u +zmiWboYrLkpnBEbS0SGl27yp5rrwvNF+IGB5OppQS9j4YFwXikvXha1bmYYe +5fzqn7qoBw41N1bViKWi/VsVQE92C8jY/rKOUU5BUsciy+jVW6Cfe2W8uVwy +EuPzLDTfxwLPseFT32hJKMcoKGDcjgXUbwXTnA1JiBF01SjBngVf9OKVnBST +kMX4/Y4uJxbwK++Y7JZKQhFvp+YOebJguu/Wf6/4ktAsFWwYEMqCJqug2keD +bNStl/Am7zYLvKpjuxJz2Mj9VE66SQELaKxWVetsNpouKHEdvc+CecbIZeF0 +NhKW75ohH7IANLvPxySwkRmPjHRlNQtkF76YXgpjo4r2PJc3HSw4vOT06fOO +bGQq8EjDr4sFZueS5gzt2ajLuHFa4j0LzJ8axHHbstHP8pGLB/pY4Bprzx22 +i400OMTdoWEW3BCpnQzVx/G6Dfyiv7OgTM5CzVAXxxPdgzTHWRAUd9+feyMb +HY481XpyigXahSoHzmvgeNURqeKzLDin/XrKSJWNwuaTDpXPs2D181N5y5TY +SFDrFs3hNwueX3Hxrl3PRpnHyqcWF1kQcOfznghpNvof9VaNxw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.036085664122660274`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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.036085664122660274`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991335257344549*^9, 3.992099874078636*^9}, + CellLabel-> + "Out[100]=",ExpressionUUID->"0d5bd983-bae7-1443-afca-d35f6b4ead2f"] +}, 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[101]:=",ExpressionUUID->"0da19810-21b5-1440-b6da-efec04765d71"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.8675203755591973`*^-240\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 101, 366, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335257395241*^9, 3.9920998741594944`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"ac00dfbc-65a3-9341-81c6-f70c8b052fb5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.371380919251974`*^-248\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 101, 367, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335257395241*^9, 3.9920998741668377`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"5f7496bf-2bc5-c946-9888-a0061bd0b2d9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0626732797528457`*^-255\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 101, 368, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335257395241*^9, 3.9920998741752033`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"1f21e233-10ad-1e40-86bc-fafbc3cfdde3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 101, 369, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335257395241*^9, 3.9920998741831036`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"2af1ef0d-e214-e940-be6d-ca8ae522ef99"], + +Cell[BoxData["21.065801705819148`"], "Output", + CellChangeTimes->{3.991335263670042*^9, 3.99209988998151*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"e8e9bbd6-6894-204a-a801-dc35ce93c1ba"] +}, 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.991845708089321*^9, 3.9918457122231236`*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"d3b2932a-2d3f-fa41-a705-f816ef30ba1b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.705403456017331`*^-219\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 102, 370, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335263710146*^9, 3.9920998900205097`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"b6da5d53-31dd-2442-b9cf-3bcc98ab39b9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4464176192624529`*^-224\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 102, 371, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335263710146*^9, 3.992099890028509*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"c155a76b-bab7-1143-b331-47066eecf766"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.6669167140254687`*^-230\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 102, 372, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335263710146*^9, 3.992099890035513*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"f11e72d4-c905-f04e-8c49-247205add74e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 102, 373, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335263710146*^9, 3.9920998900435085`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"14da3214-dfa7-1a4c-a66a-401fcbcf9f08"], + +Cell[BoxData["6.009224223964007`"], "Output", + CellChangeTimes->{3.991335268779545*^9, 3.9920998945799847`*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"0767bfa0-499a-bd4a-96a1-e3cdd47fff34"] +}, 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.9918457167596684`*^9, 3.991845720288498*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"3a5379d3-3adc-3844-bbe2-4530809b7b8c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.705403456017331`*^-219\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 103, 374, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335268812542*^9, 3.9920998946194344`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"ff75c101-5b3b-a842-b9cd-74a367536b78"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4464176192624529`*^-224\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 103, 375, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335268812542*^9, 3.9920998946274376`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"df5f18a8-adb8-dd44-a6af-f8743dab4365"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.6669167140254687`*^-230\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 103, 376, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335268812542*^9, 3.9920998946344376`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"a4c8c2fc-9463-d546-ba32-2d14462acc76"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 103, 377, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335268812542*^9, 3.992099894642439*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"b7fe6d01-c5e2-bd44-9956-274503e6ba95"], + +Cell[BoxData["20.799576320009724`"], "Output", + CellChangeTimes->{3.991335272704685*^9, 3.9920998984416924`*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"76a55485-202b-bf4f-bea3-d9d5d296bfeb"] +}, 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.991845728758301*^9, 3.9918461210058537`*^9}, + CellLabel-> + "In[104]:=",ExpressionUUID->"208e04c0-4af7-a344-9e86-ceb616bf22d8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.705403456017331`*^-219\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 104, 378, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352727386665`*^9, 3.9920998984796886`*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"b8152a15-e77e-2c4c-aded-5e20bea87cd7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4464176192624529`*^-224\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 104, 379, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352727386665`*^9, 3.992099898487789*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"ac4ef626-598c-bb46-9638-a31ce6c2446e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.6669167140254687`*^-230\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 104, 380, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352727386665`*^9, 3.9920998984957905`*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"29f257b4-c2d7-1046-8c3a-825affac8524"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 104, 381, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913352727386665`*^9, 3.9920998985027905`*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"0a33e60f-21ee-2146-bf8f-735887d4c722"], + +Cell[BoxData["137.81299937539674`"], "Output", + CellChangeTimes->{3.991335275154251*^9, 3.9920999007215633`*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"81ac552f-ee63-1d43-bdc8-c2e01c7cbcf0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991846126007372*^9, 3.9918461306014214`*^9}}, + CellLabel-> + "In[105]:=",ExpressionUUID->"53a3c067-888b-bc49-a5e6-f228162e6070"], + +Cell[BoxData["0.11223959024475469`"], "Output", + CellChangeTimes->{3.991335275186266*^9, 3.9920999007475243`*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"a5986757-7c96-9a47-b399-6791f039df58"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991846134278736*^9, 3.9918461363904533`*^9}, + 3.9919238355720615`*^9}, + CellLabel-> + "In[106]:=",ExpressionUUID->"0c2ac2c8-096e-e64a-aaeb-bb84e7548fdc"], + +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[107]:=",ExpressionUUID->"5c8cab9c-f39b-364c-ae6b-c415e4dbcf46"], + +Cell[BoxData["1.2732308544160063`"], "Output", + CellChangeTimes->{3.9913352752142563`*^9, 3.99209990075955*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"4c1a8bc1-9f2e-774c-aa2f-f521cb954bec"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"106a4571-94f1-5343-b4a9-78f21d5e84b3"], + +Cell[BoxData["12.515254397406263`"], "Output", + CellChangeTimes->{3.9913352752482567`*^9, 3.992099900768524*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"20a44e97-7be6-1447-b17d-55286b77dffc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[109]:=",ExpressionUUID->"b7c1808d-73a9-d645-bf95-223de85093e2"], + +Cell[BoxData["15.934808049643255`"], "Output", + CellChangeTimes->{3.9913352753089123`*^9, 3.9920999007775536`*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"6bb82b2c-e284-da41-a1db-c917562cb1e5"] +}, 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[110]:=",ExpressionUUID->"e9c41729-285f-7d42-bb43-ee09dea88444"], + +Cell[BoxData["0.06208229367352196`"], "Output", + CellChangeTimes->{3.9913352753341656`*^9, 3.992099900789524*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"55cee0f0-b426-1a4b-a71b-f310c14638a4"] +}, 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[111]:=",ExpressionUUID->"efa9c5ac-4baa-3e4e-9760-1e46cf5c01c0"], + +Cell[BoxData["3.556813254445267`"], "Output", + CellChangeTimes->{3.9913352754296722`*^9, 3.992099900868019*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"9e814285-6bdd-2e4e-8fc5-f98c2245428a"] +}, 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[112]:=",ExpressionUUID->"7dcb74da-1357-7e4e-a03d-852f8e740128"], + +Cell[BoxData["0.0017813693102828212`"], "Output", + CellChangeTimes->{3.9913352754426765`*^9, 3.992099900880007*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"a28eab01-59f3-9848-b4ae-f84f6c2647b8"] +}, 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[113]:=",ExpressionUUID->"4c537c9f-ce6a-8f4c-9e68-01e12e3017b7"], + +Cell[BoxData["20.997517781459713`"], "Output", + CellChangeTimes->{3.991335275540678*^9, 3.992099900955019*^9}, + CellLabel-> + "Out[113]=",ExpressionUUID->"96e7323a-9860-6448-a46e-90e5694fc0f0"] +}, 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[114]:=",ExpressionUUID->"1e3d1dc2-d9ac-9045-a648-58006d1d6cf6"], + +Cell[BoxData["0.9825098148127043`"], "Output", + CellChangeTimes->{3.9913352755566807`*^9, 3.992099900965006*^9}, + CellLabel-> + "Out[114]=",ExpressionUUID->"bb94e5bd-bfea-0143-9bbe-af74b50277a0"] +}, 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[115]:=",ExpressionUUID->"2371743b-ee83-9146-bf98-330cb0fb7e0a"], + +Cell[BoxData["0.017490185187295736`"], "Output", + CellChangeTimes->{3.991335275581682*^9, 3.9920999009763565`*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"77e97800-97c2-3b45-b6d9-6fdfbfcfa833"] +}, 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[116]:=",ExpressionUUID->"8b6de8d6-9524-3347-a11b-48bba48b07d0"], + +Cell[BoxData["0.017184278609409836`"], "Output", + CellChangeTimes->{3.9913352756087036`*^9, 3.9920999009884663`*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"5a90f194-5180-7d44-83a4-2e1102eeb8fc"] +}, 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.991846151022602*^9}, + CellLabel-> + "In[117]:=",ExpressionUUID->"a41abb59-b808-8547-b1d9-a574acad5c53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.895933413319073`*^-228\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 117, 382, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335275636673*^9, 3.992099901008354*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"8278e40d-0761-1a4d-9649-63b630f05f17"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3844672882433587`*^-234\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 117, 383, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335275636673*^9, 3.9920999010163555`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"917b8bc0-97b3-7843-be21-9880d876e622"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.618762929424897`*^-241\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 117, 384, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335275636673*^9, 3.9920999010233517`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"1fe98454-f6db-c040-81f7-7c29c6eea48d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 117, 385, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335275636673*^9, 3.9920999010303535`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"4bdd67d8-9c31-2f44-8f8a-7df19fc7b88d"], + +Cell[BoxData["3.5568132544452697`"], "Output", + CellChangeTimes->{3.991335279487499*^9, 3.9920999033410397`*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"6e436fe4-adee-5e4f-bf91-6d86ea4e7fd1"] +}, 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.9918461538845863`*^9}, + CellLabel-> + "In[118]:=",ExpressionUUID->"779c8db8-6bae-9046-915d-05cf0a3cee42"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.895933413319073`*^-228\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 118, 386, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335279522499*^9, 3.992099903380039*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"3b8cb8a7-7dde-4b4b-98d2-7614657d98ae"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3844672882433587`*^-234\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 118, 387, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335279522499*^9, 3.9920999033880405`*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"dddc9a38-05f6-d241-8ef2-b689c52020fc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.618762929424897`*^-241\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 118, 388, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335279522499*^9, 3.9920999033950405`*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"4ac1e345-d47c-0e4c-aaf3-acdd54b53ac9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 118, 389, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335279522499*^9, 3.992099903403042*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"7d6cdfc5-91c3-6146-9973-84856ce1e528"], + +Cell[BoxData["20.997517781459724`"], "Output", + CellChangeTimes->{3.991335283631424*^9, 3.992099905634714*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"53674424-12ba-5240-a3df-e5eade232dd1"] +}, 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.991846157029255*^9}, + CellLabel-> + "In[119]:=",ExpressionUUID->"2fa4bc1d-3549-0e49-9fa0-9e5dc16aa40f"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk8VN0fB3AJyVZ4LJGdnocizaBEzteS7FHRILLMvZaSrWQJbbShUk+0 +UZaSrNmX/EoqyRNlTYQsiZkxY2/1O/PHfd3X+3XO/ZzvOefe87oqPsF7CF4e +Hh4mvrj30Hc6f1e1vzPZ9SX+zfduBjJh5ej7WBSgrxkGg1wPZRpcV7eoR/tc +XZV/YDvS/xMQob5EtDUTSVyXRsa/4LdoRQ+eflH/iX3hleyz+Pz36OBB6wmu +a9pDM35RutAMU77nF/ZkX8uJqLpeNOLtxvmNLTem5r5g3o/YpXxbl7Ftp08Y +hrcOosYOuTyeHgZq+DUpHJk/jMzq7ljwYnefkompPDKCbNwvivBhswQsJuco +Y2guZ2SZH1sgKcSVujiOzp3PUxTEVhS/2xxaN4F45nr9hbAd5BcesMwZKEj6 +RPwabPKeqrS2IAu5Z7NsJbDjNXYnHGqdRg70VnMp7F6Zzi1H8zlIQOlNhTw2 +3S0w4FrSDAoZ+bpZCZt9h+f+kyOzKDk0tEsVW1BVey2HMo8+hDRlaWFfp7/Y +tVZqAe2+n9yig6380DV+8+ICqpN7rkDF3rYpkRVUt4SM95OWxtj+BoOtk+a/ +kEZV7j1H7LnIY3xCG36j2oV6NRfsk3XCxpqCfxDHcMcHd+x02PbYr3UZmYpF +lvpx68tttgjLXwEp4e8jT2Hnv7o2dEqeF/IObtx/nlvvV88TV5N4obCE4XUZ ++4TWfFnJkZVgmZazcJdbb7GK2jSFHzQbv2g9xe5rZzT8yeYHf61Q+ktu/TNV +bmJSAjD7h/7mP+wCPYdU7UUBcOyOkRrEbqqJXnG4ThDsHDwrV/Yy0PyLjsEJ +cxEQd3wi54wtYSeyNqZBBDztWIte2LqdFiBqKApmzhqCQdiBoxX3tuiIwUzF +6ecJ2CG8rbo7RNZCOMFMq8EeUy3iJCyIQ1+peIfWR7w+ZMvqNqoETJi+GDTE +5n08riIbKgEu9/2UrLGVqUp78qckwDkmcas/tpv5lSfvhiQh56vw2zzsNt+w +cJm3UmB891EctY+BPj9MueQlKA3zria1O7EZU/nZj3ZKw46qun9o2EJHRzqM +nkmDyJmgjFhsi7P79LwqZEDP4iajBbs2x2A+L3MdVCsFSgZ/YqCcsR8R248q +gJubY8JAPwNZOZ/7HF6oAHOfaqLmsBlNkpaF4wrgrRh8S3iAgfRyNkkpuyrC +uvc1Xtuxm3w8y/hNlGDDqlqeW9gz00PHJ84og+Dt0mTvzwwkGWRRXmavCobq +KV3iQww0niPk7xioCvXeXU462NX97fLMRFVYM2j3wwb7gJ3HmQ3PVCG7qbnt +LHbOxog9Nylq8Ez2Y9IPbL3Jh+w4GXWo7I91YA0z0D4/YW2bYQ3452r6xMII +A6EIZ8r+3xrwxvvlDtlRBtJKyNxKX7cB2G02Tw2xebKpZnFOG6CH4m4Ui134 +2X3/k+cbYOpiOFVgDH+fLgWn5LL+Bpe8CxLK47g+C/vuSR9NyJcyOhs+wUDZ +e9M+LcZpwoNca9Vb2Ck+w0N8tzXh+61Lk8+w6SePTSl2aEJkSc53sW8MJF5/ +l2evuRZUSghKFGIHUlladWobYTA0XIszyUDyqpfjL41ugqANV9jpTAaqvzin ++Z1XG1Q/30xqxj4w69pJqmhDFG2d2xJ2RpO6ppmnNthYhF2gsRhI1a/2w1KP +NiAHmqH8NJ5vwZgG+VYHOgin/kdsBlKQVySVXXXhsEWoCmOWgTblHhX5iSgQ +P/ZIn+8nA/nQz8xrO1CgMN5X0Rg7XS31s9cBClwefLrlKPbKrOKSV5EUeOZh +3zuK3ZcxuS+1lAITP+6rN//C52m6111NNSqs+BJafeMP3t9Ldjo0AT0wO97f +sJeXie6HqTtWtOrDcotZh50QE7VHoK1ncw0hW2/Wv0uBiVQ8uxw8Du+AHu/X +5ktUJiKWK4sUogBkPZrsDWyZSGaqepWMjxlE3a6e1fFjoqNU4/5ULQvgv3pr +rPMME/kwfzVLTu6EuCS5ZsMsJio0C1+V2bYLdPo9X5S/ZKKcucDnBdet4V3w +Ci3Jb0y0ZCr7X1O8LXhKj869FGehAZ6VnGFve2AfKzFfNmKhI+uDr5xS2w2p +lpTT1gQLFQU0P/s3wREsTjXa8F9noejZdYsbA5zgU9YdM5fnLDRvY+ny+uAe +WJ+zPVx5joUM3a+ajjntBeu+sIqEv6fRh3V3A5uo+8C6+GXIY9o0kntwpj7v +H2cIsBgMkLg8jaqHtOwcRF0gWLZ5oKZxGil2sv0imC5ArL/G83t+GlH/vVqQ +PbQfMmMSw4Vk2Ogu36xO6gsaMLtmi523sFGl6ea+hBpXsOE1Ce6xZ6P0rRfF +f+W7gcafP2kVAWzU9ik3kZrkDqoR3TXRZ9iowv6OesjJAxDNjI8WzWQjTtBe +niN0D9hzQ2nUqZqN5i01/VnmnpCgMWF1vp2N8pgfl8INDkJ2kdpJ0Uk2ot3P +9fUQ8QIdNasrq1dwUNkT24Mrz3kBwbIJnJLlIEP5D98vfPeCUk/FN8o6HKQ2 +5Nf3PsAbfP3lL74x5aBR4UO774x4Q1GnTVKNMwe1pzj47nL2gSe/drMYJAdd +j8wUPtbuAzk7qm5NHeeg+obl777WvnDh+4JVdyIHrTkA56i1vhDLl5wqfY2D +lP963ba+3hdYdR/ErLB1W+1lBRp8Yd+dc4eisPcYuz/qfe4LkrOarz5hX18f +8Tb2jS+U0v+3nHGdg+QGHq9p7vUFo5WP45VucJC6p0z6gUVfyDCVvSx4E8/H +i5WXoEeHl93Ep6gMDnpwkx3uYECH5zH9Sfew/+qYMZHZRoeimEaV19isnYud +eUZ0cNn0bl4yk4PPL54VrWZ0+GNy0rIAW2xR3FXCiQ5pPw3O9dzD65Gsvzoz +iA5zauVBstkc5PR6a6dfMB3e/96daITdwLM9UzeUDjelmac8sW+Gm+g3HqXD +LEtBNQfbwXWX91gMHdqpy/w6ORxUo+5as/EiHUTD2DTjXA5KqTsRUP2ADsr7 +bkuZP+SgIEqaYWQeHTbomEx6Y9s9Kl29LZ8O/uezs05iC6WNP6oqpMOhvPyG +p9gJYY6TleV0yEryyDbI46ATmuqHKhrpYNQwv17tEQcFpr09/OQzHY7FhjaM +4/8Qa7Fx47AhOkgp6gvwPuagfxJ4RClfcH8Xvy0K2ONh+oWlY3TYVS1K2Yvt +7ZDJLGHQ4dayQv9TbBp/+JHiH3Q430Z5n1zAQbvC5UIKpAnweDGqI1vEQY2Z +iTapsgT8T755eAu2ceuMeqQcAQolZWG22Loabz+aKxIgnJWuE4e9rifG/JMG +AZdWOYh9wZ7aPiAtpE9AUrzUoexiDrrMe++p314CuueszouU4vlvFkm3dybg +Va/2ogr2WffIMOp+AtJiWsy3YkeWO/697EaA1ZBKhDe2N7ni6g0fApCqECrH +prb40F+GEjB/oPPg3icc1HNVQ1jtCgGfFgrfHS/joCIk6j9xlQAw0209h32W +OddUeI2AhJOZj9OwKdZNcdvSCKifMFlbhZ3C4ztjn0HAkwu0kDlsy+B7HyML +COixqrkYUM5BCgrnDUyKCIh97fngOPZcS/C1lSUEPHrTl52AnbUB2aeU4f6K +Thb3sX8PDDzLriWAkJKU78Eut5PPe9dMQHpZl+KOCg669IOX/3oLAZuO2+23 +xvbJm/R2bSXAWSEx1Bl7LV+t/GgbAQ2XdtgGYR+uo13+3k2A1Ne7125jq2nd +iFAfI0A1Wf/4DPaPntiOb+MEND6kvf2F3Z5A6BZPEPC2S3vFqkoOihvWmzRk +EOB0e1JcHrsvvcNj9ywBAhXXXptip64S3xm9ggT/yv7TF7DrZwbcj64kobzl +3WQq9teB/LAj/CSs/j216Q62cbnFPZ/VJJQczkZF2ONekT9txEkgdn7LaMde +a7dTYqckCTFL0r292EZbJTSRFAmbMvymhrCviBa4UNfh9uWge2xue+1gqbwK +Cbea5s3FqjiIzC1ollIjQT9dxUEK+8qVqME1GiQU2gdQ1mOPk5KifJokDGha +X9Dktkvu8mfoknBZVz/EDLv2j2T8OIWE6FgtWyvssW9D/w7pkZBZqc/jgL39 +WfSLzm0kfLO8tETDHj1cpPgUSLhvpaIahC1Gi9GvMsN5puX/hWIbmlvZlVqQ +EG9H2xuBnbLuS1SuFQmJ8e8ZcdjVfMVXMm1I2P4gl+cM9sh0zMObdiTo9Z9n +JWJveyXVlexIwp/saFoKtk/pl6lze/D4+893XsVOvlPMe3ofCXYHs7X+xf4S +Zq0bQSMhamCZfhtb1FN6V4gbCR9vgnUGN896xCPwAAmDesmr7nOfV4q95OlF +QkejlcQDbj1CNlk0HxK6Fas887h589I1e+gkPNyom5DPzRseabMj8fh5ZQkF +3LzWknFLfxKK3Uy9irj1VcX+hkASIld//KuEm59l85fRYRKMT0dnl3Lzk2U2 +6h8hwf2GhkgZNz9y1HRzCAkF8n0O5dgi9FKaZhgJwYy0QxXYW3fHBasdJcHt +q6dPJTd/u22iQgQJqdM61CrsJA3ZuzKReH8Zqz5zXbl2rEw8Gr9fLd98qrGH +f5a2CJ8gYW1053OuRb7GDfPHkVA5/foH1wYfbJeW40lYUm8SrcH+P8S8WPk= + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VN0fB3AJyVZ4LJGdnocizaBEzteS7FHRILLMvZaSrWQJbbShUk+0 +UZaSrNmX/EoqyRNlTYQsiZkxY2/1O/PHfd3X+3XO/ZzvOefe87oqPsF7CF4e +Hh4mvrj30Hc6f1e1vzPZ9SX+zfduBjJh5ej7WBSgrxkGg1wPZRpcV7eoR/tc +XZV/YDvS/xMQob5EtDUTSVyXRsa/4LdoRQ+eflH/iX3hleyz+Pz36OBB6wmu +a9pDM35RutAMU77nF/ZkX8uJqLpeNOLtxvmNLTem5r5g3o/YpXxbl7Ftp08Y +hrcOosYOuTyeHgZq+DUpHJk/jMzq7ljwYnefkompPDKCbNwvivBhswQsJuco +Y2guZ2SZH1sgKcSVujiOzp3PUxTEVhS/2xxaN4F45nr9hbAd5BcesMwZKEj6 +RPwabPKeqrS2IAu5Z7NsJbDjNXYnHGqdRg70VnMp7F6Zzi1H8zlIQOlNhTw2 +3S0w4FrSDAoZ+bpZCZt9h+f+kyOzKDk0tEsVW1BVey2HMo8+hDRlaWFfp7/Y +tVZqAe2+n9yig6380DV+8+ICqpN7rkDF3rYpkRVUt4SM95OWxtj+BoOtk+a/ +kEZV7j1H7LnIY3xCG36j2oV6NRfsk3XCxpqCfxDHcMcHd+x02PbYr3UZmYpF +lvpx68tttgjLXwEp4e8jT2Hnv7o2dEqeF/IObtx/nlvvV88TV5N4obCE4XUZ ++4TWfFnJkZVgmZazcJdbb7GK2jSFHzQbv2g9xe5rZzT8yeYHf61Q+ktu/TNV +bmJSAjD7h/7mP+wCPYdU7UUBcOyOkRrEbqqJXnG4ThDsHDwrV/Yy0PyLjsEJ +cxEQd3wi54wtYSeyNqZBBDztWIte2LqdFiBqKApmzhqCQdiBoxX3tuiIwUzF +6ecJ2CG8rbo7RNZCOMFMq8EeUy3iJCyIQ1+peIfWR7w+ZMvqNqoETJi+GDTE +5n08riIbKgEu9/2UrLGVqUp78qckwDkmcas/tpv5lSfvhiQh56vw2zzsNt+w +cJm3UmB891EctY+BPj9MueQlKA3zria1O7EZU/nZj3ZKw46qun9o2EJHRzqM +nkmDyJmgjFhsi7P79LwqZEDP4iajBbs2x2A+L3MdVCsFSgZ/YqCcsR8R248q +gJubY8JAPwNZOZ/7HF6oAHOfaqLmsBlNkpaF4wrgrRh8S3iAgfRyNkkpuyrC +uvc1Xtuxm3w8y/hNlGDDqlqeW9gz00PHJ84og+Dt0mTvzwwkGWRRXmavCobq +KV3iQww0niPk7xioCvXeXU462NX97fLMRFVYM2j3wwb7gJ3HmQ3PVCG7qbnt +LHbOxog9Nylq8Ez2Y9IPbL3Jh+w4GXWo7I91YA0z0D4/YW2bYQ3452r6xMII +A6EIZ8r+3xrwxvvlDtlRBtJKyNxKX7cB2G02Tw2xebKpZnFOG6CH4m4Ui134 +2X3/k+cbYOpiOFVgDH+fLgWn5LL+Bpe8CxLK47g+C/vuSR9NyJcyOhs+wUDZ +e9M+LcZpwoNca9Vb2Ck+w0N8tzXh+61Lk8+w6SePTSl2aEJkSc53sW8MJF5/ +l2evuRZUSghKFGIHUlladWobYTA0XIszyUDyqpfjL41ugqANV9jpTAaqvzin ++Z1XG1Q/30xqxj4w69pJqmhDFG2d2xJ2RpO6ppmnNthYhF2gsRhI1a/2w1KP +NiAHmqH8NJ5vwZgG+VYHOgin/kdsBlKQVySVXXXhsEWoCmOWgTblHhX5iSgQ +P/ZIn+8nA/nQz8xrO1CgMN5X0Rg7XS31s9cBClwefLrlKPbKrOKSV5EUeOZh +3zuK3ZcxuS+1lAITP+6rN//C52m6111NNSqs+BJafeMP3t9Ldjo0AT0wO97f +sJeXie6HqTtWtOrDcotZh50QE7VHoK1ncw0hW2/Wv0uBiVQ8uxw8Du+AHu/X +5ktUJiKWK4sUogBkPZrsDWyZSGaqepWMjxlE3a6e1fFjoqNU4/5ULQvgv3pr +rPMME/kwfzVLTu6EuCS5ZsMsJio0C1+V2bYLdPo9X5S/ZKKcucDnBdet4V3w +Ci3Jb0y0ZCr7X1O8LXhKj869FGehAZ6VnGFve2AfKzFfNmKhI+uDr5xS2w2p +lpTT1gQLFQU0P/s3wREsTjXa8F9noejZdYsbA5zgU9YdM5fnLDRvY+ny+uAe +WJ+zPVx5joUM3a+ajjntBeu+sIqEv6fRh3V3A5uo+8C6+GXIY9o0kntwpj7v +H2cIsBgMkLg8jaqHtOwcRF0gWLZ5oKZxGil2sv0imC5ArL/G83t+GlH/vVqQ +PbQfMmMSw4Vk2Ogu36xO6gsaMLtmi523sFGl6ea+hBpXsOE1Ce6xZ6P0rRfF +f+W7gcafP2kVAWzU9ik3kZrkDqoR3TXRZ9iowv6OesjJAxDNjI8WzWQjTtBe +niN0D9hzQ2nUqZqN5i01/VnmnpCgMWF1vp2N8pgfl8INDkJ2kdpJ0Uk2ot3P +9fUQ8QIdNasrq1dwUNkT24Mrz3kBwbIJnJLlIEP5D98vfPeCUk/FN8o6HKQ2 +5Nf3PsAbfP3lL74x5aBR4UO774x4Q1GnTVKNMwe1pzj47nL2gSe/drMYJAdd +j8wUPtbuAzk7qm5NHeeg+obl777WvnDh+4JVdyIHrTkA56i1vhDLl5wqfY2D +lP963ba+3hdYdR/ErLB1W+1lBRp8Yd+dc4eisPcYuz/qfe4LkrOarz5hX18f +8Tb2jS+U0v+3nHGdg+QGHq9p7vUFo5WP45VucJC6p0z6gUVfyDCVvSx4E8/H +i5WXoEeHl93Ep6gMDnpwkx3uYECH5zH9Sfew/+qYMZHZRoeimEaV19isnYud +eUZ0cNn0bl4yk4PPL54VrWZ0+GNy0rIAW2xR3FXCiQ5pPw3O9dzD65Gsvzoz +iA5zauVBstkc5PR6a6dfMB3e/96daITdwLM9UzeUDjelmac8sW+Gm+g3HqXD +LEtBNQfbwXWX91gMHdqpy/w6ORxUo+5as/EiHUTD2DTjXA5KqTsRUP2ADsr7 +bkuZP+SgIEqaYWQeHTbomEx6Y9s9Kl29LZ8O/uezs05iC6WNP6oqpMOhvPyG +p9gJYY6TleV0yEryyDbI46ATmuqHKhrpYNQwv17tEQcFpr09/OQzHY7FhjaM +4/8Qa7Fx47AhOkgp6gvwPuagfxJ4RClfcH8Xvy0K2ONh+oWlY3TYVS1K2Yvt +7ZDJLGHQ4dayQv9TbBp/+JHiH3Q430Z5n1zAQbvC5UIKpAnweDGqI1vEQY2Z +iTapsgT8T755eAu2ceuMeqQcAQolZWG22Loabz+aKxIgnJWuE4e9rifG/JMG +AZdWOYh9wZ7aPiAtpE9AUrzUoexiDrrMe++p314CuueszouU4vlvFkm3dybg +Va/2ogr2WffIMOp+AtJiWsy3YkeWO/697EaA1ZBKhDe2N7ni6g0fApCqECrH +prb40F+GEjB/oPPg3icc1HNVQ1jtCgGfFgrfHS/joCIk6j9xlQAw0209h32W +OddUeI2AhJOZj9OwKdZNcdvSCKifMFlbhZ3C4ztjn0HAkwu0kDlsy+B7HyML +COixqrkYUM5BCgrnDUyKCIh97fngOPZcS/C1lSUEPHrTl52AnbUB2aeU4f6K +Thb3sX8PDDzLriWAkJKU78Eut5PPe9dMQHpZl+KOCg669IOX/3oLAZuO2+23 +xvbJm/R2bSXAWSEx1Bl7LV+t/GgbAQ2XdtgGYR+uo13+3k2A1Ne7125jq2nd +iFAfI0A1Wf/4DPaPntiOb+MEND6kvf2F3Z5A6BZPEPC2S3vFqkoOihvWmzRk +EOB0e1JcHrsvvcNj9ywBAhXXXptip64S3xm9ggT/yv7TF7DrZwbcj64kobzl +3WQq9teB/LAj/CSs/j216Q62cbnFPZ/VJJQczkZF2ONekT9txEkgdn7LaMde +a7dTYqckCTFL0r292EZbJTSRFAmbMvymhrCviBa4UNfh9uWge2xue+1gqbwK +Cbea5s3FqjiIzC1ollIjQT9dxUEK+8qVqME1GiQU2gdQ1mOPk5KifJokDGha +X9Dktkvu8mfoknBZVz/EDLv2j2T8OIWE6FgtWyvssW9D/w7pkZBZqc/jgL39 +WfSLzm0kfLO8tETDHj1cpPgUSLhvpaIahC1Gi9GvMsN5puX/hWIbmlvZlVqQ +EG9H2xuBnbLuS1SuFQmJ8e8ZcdjVfMVXMm1I2P4gl+cM9sh0zMObdiTo9Z9n +JWJveyXVlexIwp/saFoKtk/pl6lze/D4+893XsVOvlPMe3ofCXYHs7X+xf4S +Zq0bQSMhamCZfhtb1FN6V4gbCR9vgnUGN896xCPwAAmDesmr7nOfV4q95OlF +QkejlcQDbj1CNlk0HxK6Fas887h589I1e+gkPNyom5DPzRseabMj8fh5ZQkF +3LzWknFLfxKK3Uy9irj1VcX+hkASIld//KuEm59l85fRYRKMT0dnl3Lzk2U2 +6h8hwf2GhkgZNz9y1HRzCAkF8n0O5dgi9FKaZhgJwYy0QxXYW3fHBasdJcHt +q6dPJTd/u22iQgQJqdM61CrsJA3ZuzKReH8Zqz5zXbl2rEw8Gr9fLd98qrGH +f5a2CJ8gYW1053OuRb7GDfPHkVA5/foH1wYfbJeW40lYUm8SrcH+P8S8WPk= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9012421546495454, + 1.1073542154065859`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9012421546495474}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.9012421546495454, + 1.1073542154065859`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9012421546495474}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VN0fB3AJyVZ4LJGdnocizaBEzteS7FHRILLMvZaSrWQJbbShUk+0 +UZaSrNmX/EoqyRNlTYQsiZkxY2/1O/PHfd3X+3XO/ZzvOefe87oqPsF7CF4e +Hh4mvrj30Hc6f1e1vzPZ9SX+zfduBjJh5ej7WBSgrxkGg1wPZRpcV7eoR/tc +XZV/YDvS/xMQob5EtDUTSVyXRsa/4LdoRQ+eflH/iX3hleyz+Pz36OBB6wmu +a9pDM35RutAMU77nF/ZkX8uJqLpeNOLtxvmNLTem5r5g3o/YpXxbl7Ftp08Y +hrcOosYOuTyeHgZq+DUpHJk/jMzq7ljwYnefkompPDKCbNwvivBhswQsJuco +Y2guZ2SZH1sgKcSVujiOzp3PUxTEVhS/2xxaN4F45nr9hbAd5BcesMwZKEj6 +RPwabPKeqrS2IAu5Z7NsJbDjNXYnHGqdRg70VnMp7F6Zzi1H8zlIQOlNhTw2 +3S0w4FrSDAoZ+bpZCZt9h+f+kyOzKDk0tEsVW1BVey2HMo8+hDRlaWFfp7/Y +tVZqAe2+n9yig6380DV+8+ICqpN7rkDF3rYpkRVUt4SM95OWxtj+BoOtk+a/ +kEZV7j1H7LnIY3xCG36j2oV6NRfsk3XCxpqCfxDHcMcHd+x02PbYr3UZmYpF +lvpx68tttgjLXwEp4e8jT2Hnv7o2dEqeF/IObtx/nlvvV88TV5N4obCE4XUZ ++4TWfFnJkZVgmZazcJdbb7GK2jSFHzQbv2g9xe5rZzT8yeYHf61Q+ktu/TNV +bmJSAjD7h/7mP+wCPYdU7UUBcOyOkRrEbqqJXnG4ThDsHDwrV/Yy0PyLjsEJ +cxEQd3wi54wtYSeyNqZBBDztWIte2LqdFiBqKApmzhqCQdiBoxX3tuiIwUzF +6ecJ2CG8rbo7RNZCOMFMq8EeUy3iJCyIQ1+peIfWR7w+ZMvqNqoETJi+GDTE +5n08riIbKgEu9/2UrLGVqUp78qckwDkmcas/tpv5lSfvhiQh56vw2zzsNt+w +cJm3UmB891EctY+BPj9MueQlKA3zria1O7EZU/nZj3ZKw46qun9o2EJHRzqM +nkmDyJmgjFhsi7P79LwqZEDP4iajBbs2x2A+L3MdVCsFSgZ/YqCcsR8R248q +gJubY8JAPwNZOZ/7HF6oAHOfaqLmsBlNkpaF4wrgrRh8S3iAgfRyNkkpuyrC +uvc1Xtuxm3w8y/hNlGDDqlqeW9gz00PHJ84og+Dt0mTvzwwkGWRRXmavCobq +KV3iQww0niPk7xioCvXeXU462NX97fLMRFVYM2j3wwb7gJ3HmQ3PVCG7qbnt +LHbOxog9Nylq8Ez2Y9IPbL3Jh+w4GXWo7I91YA0z0D4/YW2bYQ3452r6xMII +A6EIZ8r+3xrwxvvlDtlRBtJKyNxKX7cB2G02Tw2xebKpZnFOG6CH4m4Ui134 +2X3/k+cbYOpiOFVgDH+fLgWn5LL+Bpe8CxLK47g+C/vuSR9NyJcyOhs+wUDZ +e9M+LcZpwoNca9Vb2Ck+w0N8tzXh+61Lk8+w6SePTSl2aEJkSc53sW8MJF5/ +l2evuRZUSghKFGIHUlladWobYTA0XIszyUDyqpfjL41ugqANV9jpTAaqvzin ++Z1XG1Q/30xqxj4w69pJqmhDFG2d2xJ2RpO6ppmnNthYhF2gsRhI1a/2w1KP +NiAHmqH8NJ5vwZgG+VYHOgin/kdsBlKQVySVXXXhsEWoCmOWgTblHhX5iSgQ +P/ZIn+8nA/nQz8xrO1CgMN5X0Rg7XS31s9cBClwefLrlKPbKrOKSV5EUeOZh +3zuK3ZcxuS+1lAITP+6rN//C52m6111NNSqs+BJafeMP3t9Ldjo0AT0wO97f +sJeXie6HqTtWtOrDcotZh50QE7VHoK1ncw0hW2/Wv0uBiVQ8uxw8Du+AHu/X +5ktUJiKWK4sUogBkPZrsDWyZSGaqepWMjxlE3a6e1fFjoqNU4/5ULQvgv3pr +rPMME/kwfzVLTu6EuCS5ZsMsJio0C1+V2bYLdPo9X5S/ZKKcucDnBdet4V3w +Ci3Jb0y0ZCr7X1O8LXhKj869FGehAZ6VnGFve2AfKzFfNmKhI+uDr5xS2w2p +lpTT1gQLFQU0P/s3wREsTjXa8F9noejZdYsbA5zgU9YdM5fnLDRvY+ny+uAe +WJ+zPVx5joUM3a+ajjntBeu+sIqEv6fRh3V3A5uo+8C6+GXIY9o0kntwpj7v +H2cIsBgMkLg8jaqHtOwcRF0gWLZ5oKZxGil2sv0imC5ArL/G83t+GlH/vVqQ +PbQfMmMSw4Vk2Ogu36xO6gsaMLtmi523sFGl6ea+hBpXsOE1Ce6xZ6P0rRfF +f+W7gcafP2kVAWzU9ik3kZrkDqoR3TXRZ9iowv6OesjJAxDNjI8WzWQjTtBe +niN0D9hzQ2nUqZqN5i01/VnmnpCgMWF1vp2N8pgfl8INDkJ2kdpJ0Uk2ot3P +9fUQ8QIdNasrq1dwUNkT24Mrz3kBwbIJnJLlIEP5D98vfPeCUk/FN8o6HKQ2 +5Nf3PsAbfP3lL74x5aBR4UO774x4Q1GnTVKNMwe1pzj47nL2gSe/drMYJAdd +j8wUPtbuAzk7qm5NHeeg+obl777WvnDh+4JVdyIHrTkA56i1vhDLl5wqfY2D +lP963ba+3hdYdR/ErLB1W+1lBRp8Yd+dc4eisPcYuz/qfe4LkrOarz5hX18f +8Tb2jS+U0v+3nHGdg+QGHq9p7vUFo5WP45VucJC6p0z6gUVfyDCVvSx4E8/H +i5WXoEeHl93Ep6gMDnpwkx3uYECH5zH9Sfew/+qYMZHZRoeimEaV19isnYud +eUZ0cNn0bl4yk4PPL54VrWZ0+GNy0rIAW2xR3FXCiQ5pPw3O9dzD65Gsvzoz +iA5zauVBstkc5PR6a6dfMB3e/96daITdwLM9UzeUDjelmac8sW+Gm+g3HqXD +LEtBNQfbwXWX91gMHdqpy/w6ORxUo+5as/EiHUTD2DTjXA5KqTsRUP2ADsr7 +bkuZP+SgIEqaYWQeHTbomEx6Y9s9Kl29LZ8O/uezs05iC6WNP6oqpMOhvPyG +p9gJYY6TleV0yEryyDbI46ATmuqHKhrpYNQwv17tEQcFpr09/OQzHY7FhjaM +4/8Qa7Fx47AhOkgp6gvwPuagfxJ4RClfcH8Xvy0K2ONh+oWlY3TYVS1K2Yvt +7ZDJLGHQ4dayQv9TbBp/+JHiH3Q430Z5n1zAQbvC5UIKpAnweDGqI1vEQY2Z +iTapsgT8T755eAu2ceuMeqQcAQolZWG22Loabz+aKxIgnJWuE4e9rifG/JMG +AZdWOYh9wZ7aPiAtpE9AUrzUoexiDrrMe++p314CuueszouU4vlvFkm3dybg +Va/2ogr2WffIMOp+AtJiWsy3YkeWO/697EaA1ZBKhDe2N7ni6g0fApCqECrH +prb40F+GEjB/oPPg3icc1HNVQ1jtCgGfFgrfHS/joCIk6j9xlQAw0209h32W +OddUeI2AhJOZj9OwKdZNcdvSCKifMFlbhZ3C4ztjn0HAkwu0kDlsy+B7HyML +COixqrkYUM5BCgrnDUyKCIh97fngOPZcS/C1lSUEPHrTl52AnbUB2aeU4f6K +Thb3sX8PDDzLriWAkJKU78Eut5PPe9dMQHpZl+KOCg669IOX/3oLAZuO2+23 +xvbJm/R2bSXAWSEx1Bl7LV+t/GgbAQ2XdtgGYR+uo13+3k2A1Ne7125jq2nd +iFAfI0A1Wf/4DPaPntiOb+MEND6kvf2F3Z5A6BZPEPC2S3vFqkoOihvWmzRk +EOB0e1JcHrsvvcNj9ywBAhXXXptip64S3xm9ggT/yv7TF7DrZwbcj64kobzl +3WQq9teB/LAj/CSs/j216Q62cbnFPZ/VJJQczkZF2ONekT9txEkgdn7LaMde +a7dTYqckCTFL0r292EZbJTSRFAmbMvymhrCviBa4UNfh9uWge2xue+1gqbwK +Cbea5s3FqjiIzC1ollIjQT9dxUEK+8qVqME1GiQU2gdQ1mOPk5KifJokDGha +X9Dktkvu8mfoknBZVz/EDLv2j2T8OIWE6FgtWyvssW9D/w7pkZBZqc/jgL39 +WfSLzm0kfLO8tETDHj1cpPgUSLhvpaIahC1Gi9GvMsN5puX/hWIbmlvZlVqQ +EG9H2xuBnbLuS1SuFQmJ8e8ZcdjVfMVXMm1I2P4gl+cM9sh0zMObdiTo9Z9n +JWJveyXVlexIwp/saFoKtk/pl6lze/D4+893XsVOvlPMe3ofCXYHs7X+xf4S +Zq0bQSMhamCZfhtb1FN6V4gbCR9vgnUGN896xCPwAAmDesmr7nOfV4q95OlF +QkejlcQDbj1CNlk0HxK6Fas887h589I1e+gkPNyom5DPzRseabMj8fh5ZQkF +3LzWknFLfxKK3Uy9irj1VcX+hkASIld//KuEm59l85fRYRKMT0dnl3Lzk2U2 +6h8hwf2GhkgZNz9y1HRzCAkF8n0O5dgi9FKaZhgJwYy0QxXYW3fHBasdJcHt +q6dPJTd/u22iQgQJqdM61CrsJA3ZuzKReH8Zqz5zXbl2rEw8Gr9fLd98qrGH +f5a2CJ8gYW1053OuRb7GDfPHkVA5/foH1wYfbJeW40lYUm8SrcH+P8S8WPk= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9012421546495454, 1.1073542154065859`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9012421546495474}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.9012421546495474}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "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.9012421546495454, 1.1073542154065859`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913355426284504`*^9, 3.9921001139080296`*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"af2a5c83-e1fd-f34b-825d-282145d5d3c4"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918461617737026`*^9, 3.9918461709620533`*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"6e23e6bb-e46c-1c43-a88f-db092cf7ac8d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.762587702206803`*^-276\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 120, + 390, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913355428514004`*^9, 3.9921001141079655`*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"2c3d22c9-8b32-2746-a746-8b96d33920f2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.992983297585178`*^-289\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 120, + 391, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913355428514004`*^9, 3.992100114115967*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"72699420-47d2-4c42-950c-cb8c790fd3e6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.5807504657545`*^-302\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 120, + 392, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913355428514004`*^9, 3.992100114123968*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"e15bf587-7a7c-7940-9249-c9e5aeb3d5ef"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 120, 393, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913355428514004`*^9, 3.9921001141319656`*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"808e76b2-1085-824b-bba3-51c59e6e406f"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVmnc8V/8Xx+0tioY9s8dniKTP+33MhBSilISUHZIIja9KZZQosygrkVFJ +KHt/PlaRJMnKCtlZ5ff5/XPv4/m497zPOa9z3u97/rhSTt6WZ5kYGBg66Zf/ +359cdWIjOicj+YnyQqs9HqiuU9LsmORlfO/RzF6bJWO82VBxQ1LyLo7sWD8m +uHQcP6mKkmCVTMTlygImtEVX7Enx9/oj8QJ/ipO3YFsMxJ3rrg9nJUrxKcV1 +kJ67g9m/DclPSzTjgcOOInk/E/AzaqrvL4mv2E7L6PuukmycX3D3m6faJF55 +o87ydL4ET26bjDRxnMT1p3+5sdLXkb9kghQeTuITW3d/tjItxU/3cz8bXp3E +jIsBsrnppTimOfLcifpfeGa/9F1sVYYvDd+fO2A3jVf6VJf6897jVG7aja2G +s3imS89643AFdsEfE6cuLODkqs1ExafVmCFtuexbxALmXuGOevS6GiewiPZR +MxbwS5WWoPm6atzUfE78RfcCPlpmvu3aRDVWOLqRdnbfIm6jWjQPEmvwuKv8 +y37GJdz+POxUTWUNdo+5UtERvYxr0Jfmx+21mGkp7Ufli2VcdkDQh3+gFicd +a2IoqFnGCXk1iX6ztZgqKqAftbiMZ7sczDm21mHl59mNB4//wenZItLuFnV4 +6n1nR43ECm4d8p9ka6/D538qDhflr+IcP8YLZ8vr8YD9V47q5lV8xSph33RL +PbbquaPWOrKKn5doHnLoq8d7aWOXfwqv4YIj/5Q41usx86tM/h2313DsDa7m +U1oNOCFECgWcXsdrKQsbu1424GoBoURt/r+Y9vCzR+KtRqwR1VRhqPwXX1Pg +KwyKacRZbIEjFkZ/8X0B5yNGqY04crVb3T3kL+7w3Rv9uKQR2/x42JA0/hc/ +rXp6zWCyEU/m8C+uV/3DOaHOUlcPNmEuqZvyP/YywDajRcq1P024af8D9auG +DMAk0nv/D0MzDjueoiVmyQC6Ryxy7biaMVN0yYGTHgwg0PFj37RoM177N+Xy +5QkDqCdoZcrrNuNffdbZ7UyMcOSrjw5jWDPOWXEqPM/HCAU3v3w3vNeMXQV9 +SnhFGSF4u71BQFwzHjENbzLdwwimhwtOP81qxn1lFeONLozww6ZhkLuhGbck +yCtWtTAC10j6gjEjFYcXaRBPf2WElavGuic4qNi4Q1f7309GsG8jnz3OR8V1 +7HYH928yQgz3Ay0RMSr+cCnarYTIBOHTerrvtag47+jqi8I4JmD3S+R0caNi +Tx+214fTmSCRI+CjkTcVK0UKlM0UMMGpR6kJAv5UnFWrSlVpZoIX1uKki9ep +OIXkNJm9zgTFGm8XLOKo+B4/TemZAzN45d5hv1FBxaVaYm/NzzPDwLndlIRa +Kh6x98YbwczQwvnFI76JinXyBI4ei2cG8nmTFqtPVDx+0O4KbxszfE/0N6of +oWJB33z299+Y4dy2+VmlCSrGCQwxrhPMMFq8pTFomorjRjOyallYAIbvbP26 +RMX6N6bbL+uwQOFr9DOalYbP5+AT8gdZQL2h6JUxJw0nfXww0mXDAnU29sOT +PDQ8K6G5qn6BBbJ4JB/NCNBwyoer0qPZLBD1WJB/UZKGm4c7XsYWs8D2JrHh +TRkaXuSS0dKtY4F/xIqTy3I0bGrbaPr4BwuYrP4+na5CwytLfP6WO1ihVmcj ++58mDcuIOW1uyrCC5MrkYwdtGjY3KLqbR2SFT43uV/J0aDgz5ngKxyFWSNr8 +T5EDaLijNEeh+AQrUJ5zcezQo+GNgY3XZ1xZISqNbXWLAQ1bqj9rrLjBCtvG +DmnXHKDhqzYLFp4PWOFEvsXjkIM0/OKKYZ9QKitE39LWljalYYaWidmLZaxw +q4x8UN2chpUXdIKlm1hhtru6I+4wDdsI32Pt+MwKpVj5/cQRGs5zJQkrz7EC +O+X+kIUVDffcv5nR848V4qrrNFyO0jDLu261MB42SCSYCrpa07B6v0IpWZgN +hMvWIo7a0PAJ1mD9QXk6t9dkqRyj4TCV1tZ7e9hAhSHHe5bOr6wkju/XZ4Ov +31rnUo/TcF+Q79DEETbgbHXaq2NLwxxptZ7x9mygsPrGvIbO5Obtfww82cBE +XAb2nKBh+1mX/+Yv05/7Kux6SOfwnWXcT2+zwUqQ5VA/nd8inrhDj9hg7x/D +nO0naXjgrL3kehobWL0qD95LZ56owpzsQjYgOYU7HaCzVhHTHpsKNkiPinHX +o7PTt6OVzC1sUHb6U6oinbmSB718v7LBrtwC7n/09V+fOC/6Y5QNWscO+1XS ++YTwOtVskQ2yE4yGvOjM3Hv7chkjOxT073PmpPPLREEFBT522Dw+xhJDz+eo +7bPuR6LsUMwi3MFO541dareYldghU7Tooztdj4yeMrKvFjsIrr7Y/p6ul1nC +gaF+A3Yw+s2UvULXd/FYV7SZJTuIEL8+lKHz452OuOw0O7i9tB3XodfD8Mv0 +tLwXO5ydrM3XpddrJi7o8aMgdlibcVvUoNczzobdlPkOO8zuLKzfbknDo58l +s/vT2CHAhJPylN4P9x7l2ZgVssO2F3jjIL1fNK33sZaVs4PEQ7vLg2Y0fLvL +yulRDzt0uRwd+ErvN8LDAX7mUXaoNxsY3mdM7xcrr0qfBXZQv1jUc9eIhhU6 +w0TNtnDA+SBr6hy9nztiBGilIhxQ02k3yKVLw4GWTy/L0zs/REpKfBum77eP +pd1MBhwgX8+Lfu2jYfeOqejSyxygX37wfjORhrdFX8bytzkg+90jU2t1Gi47 +zDbz8CEHdLqnJrbT9x93u4SpTwEH3DEXlo6Wp+vfaskq/5MDyiwPueuJ0vWP ++vHm4TwHmKiWaBsI0fU383RiYuAEQe0mrj07aPhQy63K78KcsN/q5+QwH10/ +asnlh0c4AeVG7wlkousXbqjAZM8Juy/qZCz8o2Jk8qnb24MThPW237Ffp+L7 +zb/IpmGcwC8lOcm0SMWEJvEZxg+cUMfz9+1t+nnmW3/TyVueC+qXGMPv1VCx ++IgR2zKZCzJHrqba0M9LGhNnTghwwabFmuTWMireDVFzd2254J2WWNKpV1T8 +tezR9YwILpjP1WmwTqVi3cKslK+/uSBfP0axLZCKZ9pc9Rw2uCB427W5Gj8q +Tp5WGh3l4IaM0pa5nPNUvKRUoLooxQ3Y/EX7UWcqfpH57sOWo9ygXVB+futh +Kt6a3NSrX8IND+ov1mhLU3FFafhVah037Jwq1nYVpWKPHjNpi4/c0DRV+yF8 +BxXXb//oZj/JDfb9EyIvuaj4cvTXlUBRHvA+iN85zjfjwVuTO/Kv84D4mq12 +RmUzfuXDY7XrIC9k2DLxjVrQv2dJApfzbHihKbxLWdCkGY/WCafqOfPCZEAS +0tRrxsJCir88r/HCxvRypA2pGd+sNrxR/ZYXtlbYV3Bua8Y22669cZfeArbn +kjhM2pvw2ps5gfL1LZCapmNSoNuEnwV7TBKO8UPxq3K3Zc5GTKjiXLl9ih80 +3JtenWJoxFUs2aw/zvBD9jauUxXLDXggakQyyocfvud67vAcbsDiT08dm7jL +D30adzKCPjTgpLrDdc8+8IPIju6nPl4NOIZXI2Wb9FZQXFjvlqbV49DUDYvF +qa2w0ipamRlYhxk6B+BDkAAcLHHpkqyuxnIXzwUeVdoOM/cI11liy/HIUrwN +d/kOiHz/py77UAk2+el+JcZ3F+gXWjW0ib/B5iPRyuLiwvBNx1N73CMPtyiP +dNnJCoOqdx2qOJSHTf20riYrCUP+tYuvstXzsDFTf8cuLWHYTDk/UrbwEutJ +Kl8SOCIMfCc50rpCXuI9dvVVHKHC0GScQOiPycWiXavWCz+FYY3TZqdJ2ws8 +Wet0vSlPBGzZ99vphGZhiQc97veKRMCgPFiIyyULH7U3tz76XgSc8496zJpm +4YoVbaWBJhFo3pB+x7wjC8eobu36MywCcKXbwiA3E+vEV8rLC4vC5iY+ptCb +gSPdRdtvhYnCDTeTIbOD6bhaK6bUNEoURiMTxxiJ6XiZhSNj60NRSEl4n9W6 +Kx07pC4EPnkmCpdGXYgvxtOwRhdV+u0HUWhpSYn0vpuGv1MuXxqZF4VIr2fl +xPZnWG1rt5j+aTHIgIteph5P8WjUaOijs2JwfJ70QuPYU/yE68/YmIcY2Kt5 +5hH0n2Iell2vIwPFwBj5TTuIPMWTy7ZG3Q/EQPr+aIleYirO7Pt+3q1OjL6/ +FV9pnE3Botk/K+8risOfTbaXJ3c9xl2yy7JD6uKwOzZ5sXwxGUc8YwvX0BQH +hV9F4fofk/FakvzRr3riIJTrZ1kSnox7otzGpe3EIXa+hWi0mYRj/ab5i++J +Q4ez05ahmUTMhZcc+xbEoWQg8ea9sXgcqKvAUbwmDi32Hwbj6uPxqP7J/PuM +EmDvYl1Znx6Pa4yr1/T4JOB3Po6Jc4jHQZZRsS+UJGDocmohY18c/nV2d/0l +RwlYFZgOGP36CLdEWitsbZeAATPxQNW5WLzv/p22yc8SIHbx6++PnbE4+8H7 +i3V9EvDZf9edxOJYfDNOqjpgUgKMC4xePgiJxeIdyyq/mSRBc8G/WporFnd/ +ram3FpcELys2lkLlGHxg+sQfaWtJMBQQffz2djROEbzRee24JBA7Tzf+PR+N +F3VyC/pOSsLc8+ZgZ5to/DR83SXOSRIyrkfsjNodjdfkH/dw+kjCz/v7r0WH +38cvnb6XzoZLwqirAVOq4D3M33M6pKJKEi6bHVr9YhWBz23ePi5SJwkHi862 +ZipG4A9yhRqBjZLwfkfn3pzNcOzmzzBNbJOEcsklDpuX4bhm27NTmd8k4eiy +wQqZIxxfPDSEIpclwbw79EFf8x3cU+PMeEJFCmbHNAau+YXhWd1e4SvqUrA/ +3EtTxjIMs1cf1nhKkgKLbPHkWUIY1qzc5zK6Vwo8VR7Mcvy+hR++52+9YCgF +wUKv/ZS9buHDRR8SIuylQGbW4fB235u4IVOQUB4tBT7kWD+PuFDcLxt+cCBW +CoYlTJ6yBIXipfRNJ+Z4OvdnM9SeCsWyaZOPDj6Rghy/svr83aE4NKVq/fML +KfCKmzFC7/7DKN6zcaZGCtoJI7Gig9fx2zt19pJLUvCc2flz7pOrONuEtuv2 +ihT8VCphinW7ipN4Pn2aXpeC0+6i4w17ruLr0T+M3jNJw7r8GX+B9iv0eWNN +zYZfGgx9NX7sYb2Ch54TNiOUpUF1z4VBy2vBeEvj49Q/jtKQUmP96UF2IGa8 +m25rf1YazpfY6rtcCcSLJjkC9a7ScP0AFF21DMRf297djvGWhqFB5cMX/gbg +jO5P3qpXpOFWPu3uGZsAvG+UA84kSIN4ud24vOAlfI7Vf6CtTRr8JraYCZb7 +YWGJ5i/rH+n+7u4vnkj2w217xdoVPkvDychv5NkgP6zpWV8e+k0aOGS3BN3X +9sNsnduTNcelgbIr+hV/6QWc+bTYOoVRBqrO/XKfrPLFIzorVC8NGchm07Ht +GvHGCdZmNUlaMnB3u9214TxvbOb9tLRxnwzcLlF7aBTgjYvSjLOldGVARr2n +j43bG9/kTLz1+ZAM+K9bGThrnseyX7SB4iIDmwfZr2k+9sRnLgS/5UmSASlt +fX2vZ25Yk9T/VvGJDOhcun1C0N8Nc81DsdFTGbhSdW9m09gNF/qyvbueJQNZ +xSZy6XOueMPnQcniaxko+uAixG/kiuO8n7/vo8nA6JzBUa31c7jZs7P65V96 +PgpPOF0eOuPHKpo1zQyy0Jko7L3s7Yx9phJqRpllgav8dHWlqTPe4WlfK8kl +C2ZRIbP/mJ2xk8dE3cMdssBrSB2XCziDN9w2G0PUZUGv8E3bVxcnrO6i3Gbm +KAsD/7aFV/k44H43Ce88Z1nY4kOUuXTEAUd6CvBvcZUFh3b5dWeCA57wXbdo +Py8LButb+HsHT+P0ENpnixBZaBOkSuybsMc7Yzy+28TLwvjoGo8zzym8+SF3 +yqFVFoSIBuV9qbY4vzI1qrpDFqa3J0RZetpiu5pYNekuWQjmfeotp22LSxuD +fYZ7ZeHSVQX+0c7j2O+T6eLZcVmIzVX6r4j3OB4b+7XuzrwbQvX7wrfE2OD2 +bSrc/tq7gSLULDv41QojL6+J5P27IcjmefGHN1Y4vzG/sYY+Vdnka4p+i7LC +90KIN/mNdkPb6331/XpW2GxU82+u5W7IkQs+vVxgiamlur+HPHZDV0ri6JY4 +C1zvcKzzSMpuMO4sYAsVP4w13ie8Cni2Gxzvcgz5DJrjjO2991MydgPTSPzl +1gxzfJNqZzaVsxt8WZwkW1XMsZ6GU/3td7tB5KCJdafuIVzF7vWuomM32A8N +Jp+7Zorf54cmqzDLgaC+qDDRwBizmVkLx7PJwRPZpIVbfMbYYkI+kZFLDnzj +TEf1vx3AYzKtcd38cnDvZY/Cit8BLJC4M+a6uBz8qfr9TTXHCHvceHmnS1sO ++HNNTqsrGuJiyWvsmCIHO2zWpKvWDDBjhUXYC5ADjhD5+vwWAxy/snzj6gE5 +iOcoWk/zNcC1XrrXFKzl4H7CM2pXpT4WOd7tH+IjB0/VHvG3eerhc0vZi6N+ +ciD2cy/Lb309/Com2M8iQA7eLao8PyOihw+0SvrKXZUDOfOJB4Y0Xeyn5+HZ +ESEHPkJxR76p6WKaCsMZ2edyoFx7fl8LC+BgRqUjLd/lQDu4YUtduw4eNeDu +kRuUgxOLck4jD3TwkTtTp/8bkQPpzO86N4/qYFm+Am/NX3JQySRKRd/24RZR +jftPV+QgTMz0ya0ZbSy+F7VdFJCHbsUhuwfKe/GdYAmb9h3ycCzAPIGypIXn +Kxj6FYXlITLx6u6TlVq40bB2ul9SHoKmI3tHj2phHytj3oNq8hAozn1D8ZYm +rjlvaSZ2UB5GgiLHs1Y1sMprcleAmTx4aasGsVE1cNySoN2nw/Lg63fyATVJ +A3uEfPG4bSMPnHLvTK9QNLBguF3E3Bl5+nxltjPwNhmfyzxHrb8qDyL6rfaS +qiTM1RdkfL5IHnZLWazQLqpjzYAXvPffyYN43HBMB0EdO27r+VRQRo+/L1XJ +floNlxjvOTVXJQ99O1xO87uq4XNvf/tebJWHG34nE9+eUcXV95yTg0blIf/r +01Nqfsp4SjHWIXlCHnY2kIoPaynjXfXVuz9MyYPAtbK1yXUlfH5dvPDvvDzc +LpUrjQhTwqKuX+uub8pD+/e8wFPPFOnziPlM2C4FOMl3khg6JY8z+kLePBdR +AIptcHLvO3ncHpAb2CSuAPyvw0+n3pDHcvkczFy7FWBmTanGXVQedwrX7owi +KoCWimT3vKUcVlvU0o01UYBjXtvLRDpl8c8sqYepIQqgsyHWWiAsjaduDq4y +X1eA3hINxeIZKTzv9Oy06w0FcLAszZKslcIMElLKxHAFGOWWLhf3ksLC8ZI1 +NfEKUJ4+XZBdL4mP3JaY/flaAVbydvWF8UvgY2d/WJsUK4D22ZP/jteJY3v9 +1Pf5pQoQzOUa3Bsojj02xW8HVClAxC/t1z+HxXBYgLg4Z5sClLZ1/VysFsUf +XMTMVCYUgLYre7X8sTCuNfz+KnpKAQjcg3l9J4QxVebJzqXfCnDT82XOQyFh +/OWH6HD5sgKMK963piUI4fljokGHWRRBPddxSD1lF1YwFsm+IKEI7WU6QdW1 +O/BDBSGWUmtF4GGpfPzDVwDb2cs9Hz6uCE4hgqWCBgJY9iHZZIudIgyX3PMu +2CGAizYPRZ9xUoSN69Znt5Vvw13doaJbvBXhu2f/UMCWbVjg1pTGmTuK8DR2 +T/jWWn7cW7b6JSpCEa4YntbVTebHabNswSX3FCFS6Lci1Y8fk+ykqnkfKcLs +55znI7v5sSXZ5lDJM0UwV01PPiLKh2MGK8/yvleEsaC704/7ePCJna0ceysU +oe2f8dDleB4sfag316laEbZtJu1ZsOTBr0sW5941KkIZceDjWxo3/nRf8apT +lyIURx10PFbHhbei2Lh304rAzKzd/aeDA0cnnWt0lFSCR29IqncOs+KAS6F+ +ITJKMP6gczFdlBXbW6ZIxMspwczvlnekSRaswtUd0KKiBFk6n5wzw1hw82VD +BS1tJbCfdd5TX8eMmWxl7/JYKsGKJIO7jDUTntCAPfLWSiA9t9DHoMiEO/jt +BnWPK0HPDfRb7y8jTm2K1Q6wVwIZnYPxc1mMeP9e5slBdyUYUf3vy+A/Buy/ +c8jk3Q0luLFIHS26vonsFv4ufwxTgsg/8iRdjU1k0C6UPnVXCQa7Sk5eGf+H +tt22WJeKVgJmm4unNi3/ofzlqtzIx/R4tPjMGAl/0fjnVB6nt0qwG+9vqeRY +RycenmrjGVOC/mjOxHblP0j0DZeIxyQ933EzwZ7pZfTj4zuX5mklMCVPzVwp +XEbOfNsYwxaVoDVA9Gey1jI6H95A3mRUhpyaK1dXzJZQ6HX1xDlRZYBzaRwb +MQvIILXv52FJZZjiqpIi2i8g9oq7pHwZZeD263kwrbiAIteHae5KylCK1Oz/ +1MyjuEsJ/4a1lMFh2DxReX0OvfBkdO62VAY379P67DdmkWdEfqGGjTKU5B55 +KW4zi9RyTv6NsVWGxelzB3MUZ9Hrsbdxhx2UYZ9lhQs54zf64OTe3OSlDCPb +ZWv8j8ygjuOdau/vKMOPI+7PNT/+QisGmaupFcrAFMM3OHZ2DIW8T71RV60M +VLWfn24qjiEGUhLvRB3dX6uXafH0KGKXuC9FoinD4EK718eAUbRjNfBg3Rdl +KB7zdqmN+YnIeWaJ47PKYK5gt3FpaBgVyxyQ4V1Uhr70Q4VV+cNoX5JuHvGP +MuwSeP08PHgY6d3WrA76qwwN3d/zk3YMoyOOkhM8XCowmvu+I9xyCJ3fvriX +KKMC/qrL8q8GBtB8xEyNtZwKmIxdPx9QNID8mSbMghRVIMk3xOLlnQEU8vu7 +Q626ChRr3+k+RRpAEc2Nd6z3q8B6seO129t/oOwryT2XrVWA9E2yNPRJHxr+ +qRdYc1sFpFhytY339SC91LY0pQgV+KnGq3lx8Qt6evxEa8w9FXB0EnvkUPAF +2dN8pc88UoHcHrX0C/JfUG/h0xbmdBUwTOqQNpLsRp+C/0kaVqgArbVwBze5 +CxH3hJvmVavAxZ2Kz06udKLome2XtterwPcmxwOHKzqRuaMq7SdNBbb8HlcX +MutEVCM7/7CvKvCkP+AYp/cnVLO1rLlxUQUUhIo8/nR0ICma4aL6igq8pD1O +K0ntQNdvfhRPWFcBvdj0CWbvDoT+jPu5MqlC5rPmSRJfByrr2ynOya8KU5Xd +OXG5bej1c/8LJsqqUPvyrbrnEg1tdWR88lpNFSSEHlNH02jIRziqUZikCoM3 +pytMLGhILSpD9NdeVWBM6BivK6SinAudDRFGqnCkt20LDmpGaRSiSKujKiRo +/qkw2NOIasy5bqw7q4Lsz8T1xsUGNHR6eFLRVRVulmsz/SlqQDKhj8rCzquC +8ujaUwutBpTRsGoLwapwSMbYh6pfjzIP1yS8eagKTjODaY5BtajBIZlhKF4V +bN+0V33Xr0Wjvhdd+ZNVYYOST5nirUVyD+X2ej1TBe+/DiFl6TUoqyf8i1y+ +KpyQjvu18LkaZTta7UhqVIX9106VZlhVoaYLKlebqKpwUsc/OWV3FRq/wTq6 +3Ep//6wGn9JsJVLIevfWqksVWJ5lLY7sr0QvJkWseQdVoWXX0aKkwXKU4zcS +e31NFQruWv03b/0e5d3y3+qiqgaHB0m233uL0dT+U6G3CGogLneFlZZUjFQW +DRbSyWrQdJ1mefZkMcpxEvw8oK0G97qXBhP636Js/CbhhJEaXNvZtbdlqghl +rM5KmJ9Wg5GJOpdFuTdopLAn2tNJDUr/CpSOzL5GMq5VjBFn1cD/jG+zy/vX +KK37/nCjhxow343UlLR8jVLfqD3XDVQDtaWMQGLYK5Tk5am254EaEEwuTyax +F6Je2aOpVg/V4NPluRe7igqQUJ8O/4V4uv2N/qxF2wKUYMI9n/9EDTTvBE1H +ZeejR/I5bxVy1GA9M3dg80geih4c2y9aqwaeY2IMjS05qCOhPW9fgxpUPlhn +2XU9B/EdeSdu26wGbskKRvs1ctC9ijCGuHY1mJPpb1lKeYEik3fX8fWpQYPW +iQNzV7LRbeszpsxL9HgNVQSQQxZKO9xnd3ZFDU5yjDacFM5CHw5an29cV4MH +qLjE9HMmmqcceBDBpA6b1qbDCYcykZ2c8hcBfnVQWtod9/xABiL9mXeSVVYH +vsfh6xmn09ChOY+LYWrqUIMuC/TsTkOuv0ZujRPVoam6w6Ns6hl68qM7++Ve +dQhi+vHrZsgzxNFUNqNhpA6vPTsr1tKfov6E0CBDRzoHO/jdl0pBqzHrEc+d +1YHdvV9oZ80TJBh18Qmnqzpo8LIH1Jx5gg7+d66q9bw6KPyy3ryU8xgVuZmw +2YSoQ2/x98V1g2QUvm9bzLl4dXjgrmxUkpuAMjUi0puS1EFZv3z1r10CqlJj +eauUog5qR6O3a/IloCXp5S8zGergCRa2Fy7FIwfuXrGA1+pw9NSN+22H49Ce +vmcvbreqA9uL3jCq8kPEr+a6UtChDiIe3p36v2PR1DW1Az2d6lDX/sLP800s +ypB5P6LQqw4ZFDaBOkosEvTokqCOqoOPYXva8RMxaC2E2ZSNgQDqC/8Kbr2K +RuOZ5y4kMRIgj4tdSPhaNOpua05UYyZAWmR8vO6haPRaMnrcho0AoilqrWHd +95F7nWjYcx4COCequrecvIe+cmtWGwsRoGs2YjUnIQI1aCSO9wkT4PaWwe/1 +BhGo6NQGn68oAR7zGOz5MheOogtq7BMlCEASF3L8ZB6OjK0Ob0zsJsDGdybd +AYG7qCTJVSuCRIAPWpfmxZrCUFYtzV5CgwCZfbwbrqFh6OGUWtibPQTw4NPS +CqWEIR+01PVtLwHaVGjCO4pvIYWh/y6oYAIc0CH13yy8iRIUk/NaTQkATJb6 +j5tC0eKCUeaNQwQIoEToLN0NRYcr5h9rHybACalWq11moYjNyiQy05IAcVm7 +hN98+g/5h6y6X7ElAI8aA/fK+HVk2X5MQdWFAH43Tr644n0V5ScySw670uPv +FTttyHkVcToX7Ex0J4CxdLOZbcYVVLXCxs56ngCuobfirftDkLp08c++iwS4 +Vd3CSnQMRjz+gumRoQT4uED1kE4NRK64KknvJgH8n7i6/DANRLWcnjErtwhg +5PB87eVqAApKqf3P+S4BzlezXfU8HoAmGi847I8mwI7zZw9ISV9CDcIfxaae +EGDe/apZxrAfkv4Zsj0tlQA3FK7nTKX6oSsFCrzHnxGAtTzaVvCUH9IwuL5R +m0GAkl/x8ctfL6A0L/VvybkEKJz/MVT23Rddq4pKMC0lQNImR9Mmlw+a/F71 +cLWMACk8F9IZc7yRzfpC9PMPBLhgpz11BnsjFc0Td5mr6PWy5/ysdf486smV +C3rfQADb5zp9Wd88ESm+8qRyFwEk3ko+EZp3Q0+K5o99/UwAd0JkOinJDXF8 +2n309hcCWAll2Xvqu6EfPJFmw70EUEZnXpITXVFk6HFK8iABzlxY3l5o4YJG +vebEuX8T4HKlxmf/BWdkESErUjpL9xcln8P80hl9yD6202WeAFLXuqlXzjqj +2OFyvtolAsQYLSoqfzuDwDacIXiDAMK0I7NCH51QkoHM0CQnEd4aP4oZGHFA +rE42/QncRLCbv7lrJMcB+Vy722vESwS5JfuybF8HdKDs96c0fiKcZfnx1IPR +AS2qf6g9sZMI9uvEO8pW9uiQiHUmVZZuL1SQyrTnJEoYUas6KUeEEsrUd9Pv +J9BIHse3KXkiaPpYxT0PO4FC4AM/nzIRgll4Qu/22aKXZ2VCrIhEiBJ1fZHy +8DjiKpyz7KMQIeXV0FYXsg2yuUzz8sJEiJP2sDj3yxql6WXe+QdEcLiSf8Q4 +wxppfz5eIWlAhHeu5U0vdlkj17VKxbMmRHh4NOh3AvdR1Ghwj2HGhggxaonX +FnZaom1bXEWuHSdCDup1/dVngey/6GrynyDC5KGgsylpFmjZbcmDdIoIz6xs +slQIFkjuvt2XS2eI0HJZfnue1RF086tS/qY3EXpX2fs+XjyEOtJYmqN9iTDG +OVu3W/AQEvXsH5byI4KN5q/lvCIz9ObfAyGDS0RozDaxN1s1RUMyqzfvhBBh +1ymV9yejTZDu+caTW+8S//8/RMD7+QNorWfCqC6cCAKMb4y3PDmAivR5SAGR +RNi2dI43wvgAkhOy4Ph+nwg9SRYt82lGiKeutyg7jggffDXs+M8aoh6hGV7I +IEJIYNFVaxF9FHOTf3U+k15PDt+wiG49ZPqbNJL5nAgzEnpOr2P0UEVdQBl3 +LhGWP57+Ws+rhzK8GV2+vKLr8ejiwMstusinXrDqfCURlBqP5Tf7IqRE0MqV +qibClaTc51eYERpOso3rqiGChh2vbXEcBdn4pHjuayCCokW8+rPq/Wi/iIIQ +WysRWJqs/doVdBCHr86FJ71EYDbs33Zi715U8+3UqSN9RDh9xOy/LQNaKNjo +ujFzPxEo+swqG3e00IxIvbjbIBH0gjTcLvRroq4Gc5rGOBFMR4Z/H4vfg1JF +nWRblojwvN3fMoVCRvvIympOf4gQGaZ68PU6CXUdXNRaWSFC2lUFsbQyEuII +CDOV3SDCZuGmAZcOCfl8zLkQwkSCxXd17YWGRARhC1UqfCQoO73+VZ5BHfU+ +/kCt4SeBzFDq3aOP1NDFN7e6jm8jAdg9zhtTVkPZAzvHb24nwZbkD+Lqp1TR +Vp39fN9FSFA+a368oV0ZDf2+eSpKgQRrDtoVDnMKKITN3EVGiQS0A+7Gv5MU +0A6xnb6lyiRw26eT/sxQAZmYvLj5U40EO17+HHBKkUevM1pzKXvo9pzxL+bs +5NAN2x1r07ok0HJcWdLklkXiPj+Yb+rT7QXZG07Uy6CSsGxeYUN6PFxc3R7X +ZdDUm31SRsYk6DWE0IOr0ujoltPGKeYkmHBqq0xdkkKytc/jzE+SYH5GknH/ +DknUprKS0WdHgoRxe4PRcgkUGGf8xt2eBC21Y0MNRyQQzW2iPcyRBI89+91a +gsTRBX5lzkoXEvSs8Bm7/hBFlafyg9UvkmCMzZ+db0wIuTb+u1vuT4IL48pf +IqOE0Dbi4QTTABI8GqXu2btHCJ1jmS1yCSJB5ZjSPo47uxBPLnEm9ToJlm/9 +w7I6O9GJlSIH/igSHP6mGqfYJYhYnFi9U+6RwO5i7GdqhCDKp1lfUYkmAe+x +CnNHA0HEmLqcaBxLAuW6R9aOJQIo23Bv5/VEEjiQDr07lrsNLcW8N5zLpOvX +6X8uqowfpWxwH732nAS2r90uiF7nR8bn7Jx4X9D9bYXsC0b86LH236uKL0ng +yn00qiuHD+kNoBLH1yRoYg8Rvb7Ci6JVa5Q+VdD1P8Tj8a2bC2XvPckZWkUC +70gG2XQfLlSpvzhGrCHBODNb7Sg3F5qxlct8UE+CiIW2gy1GnMg0LFzCooUE +ybvEXl5tZUdsPywFO76SYCGPMKsizIrEJn/NX/tGgiO7gvlsmlmQxtLNj+rf +6fV1OxOQd5kFneF+d+/+AAlqwo3XP39nRlVaIpyHx+j58dcLJr5hQsHRw39b +F0lwJvPCV58HDCgmOaTvyjIJHKP1tJIsGFBO1vb3qiskGKQIVL3ZxoB6PhwI +jFqnx0/aq22lvknRnMidN2Miw1Co6/Gw438phxYNPm4wk6HA7oWb5NgGxXnz +e8FLVjJ4xXI5nwvYoMRu5/fi4SSDxxPdmO+P1ymzuhfHaHxkeOVyhO3T2iqF +4xBvQ/BWMsj/Z70oE7dKkTielaEsQIaaQJmFedIqxfx8j2PEDjLs1TyA5n1W +KLlJ+/tMxMjw9OUersG/y5RzCywfm5XIoN39877gsUWKfY5Bm50KGawcb7ls +5V2k2DjepP1WJQNTz9tj2+sWKEbtzA3biWQ4tHnvkOyeBYpcLtN7Ry0yHMnZ +UfZXep7y04khc1WfDFraQeblSrOUPiH6aGhIhjvnCA2kH78pXR3XUiUOkOGi +4pfyB+6/KXVoM9HQhAzXjsdIq4bNUDKE/917cIQMxw9061I6pijOn9YDFU+R +oXTMKkUkd4Jid1fn0gd7MnyLa3lcbDZBOQrBfocdyLC+9mM04/c4xSB/zcv/ +DBlCpG99dtUep8iGrzpVu5FBVdm8g69vlDKs+8fM9hIZxjc11IVOjFB6VzRN +pgLI4AoTjn1bRiifCi4duHaZDP6eKqEFdcOUGrFl3cwQMtxm35J8iTxMSVtd +1JwLJcOZ4G9npMWGKE6v5iXv3ieDzYDL5oTYAMUz1GrD5AEZmp8U1e8t/kHx +tyr6whNLBjX0UeI96QflzpL/veg4Mrxv3Ev4Q+yn5Guvrsc/IcOE4QtFd+M+ +SgnXiS+2qWQIfPiGs+fTN0r1t7LXIs/I8P3N898yp79Ruq6EuKVmkMFFQEFv +75Veymr1ZndWLhm2P+9zCm/roTDFOrx2zaOvVzjHIuHSQ+Fxro5SKiBDtstF +N1vGHoo42w2D/NdkOHUryypz3xeKgQnb67elZIgz4pAcr/xMif7EE1XXSO+3 +69LN3/g6KUnpXq5hzWTYOJhiNFP5iZJ+sU3fmEaGy1d+FBr7fqIU74heo7WR +ofAAT3fVl4+UvhMCrp2fyUC+NXeV/KaDMqp8Uf/RFzJ0SU5Nr3p2UH5vdIkf ++0qGPqWuY4PyHRSm1LjPvX1keJeYw8Ok106RHxbSHxomQ6yoicA2aKUQioLE +M36SoTq2aEdJXQtl361vq2fHyFA+JrX3pGkLxUz+SeHEJBlyD5/uD7SnUS54 +SIrPzZFhstOscW9yMyVk/3+rrxfo/fDXcnRarZlyi3eo6+ISGbblth45U9dE +SShIj1hZIYP5q6SWC4uNlLTrLC5la2RYq8lj3bzXSMm1OKsXskGGNr3BHnXl +RkqRdIMY+keG0Kvvn/xraqBULMitbm6S4YvKzgZn1wbK/wAtXofl + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVmnc8V/8Xx+0tioY9s8dniKTP+33MhBSilISUHZIIja9KZZQosygrkVFJ +KHt/PlaRJMnKCtlZ5ff5/XPv4/m497zPOa9z3u97/rhSTt6WZ5kYGBg66Zf/ +359cdWIjOicj+YnyQqs9HqiuU9LsmORlfO/RzF6bJWO82VBxQ1LyLo7sWD8m +uHQcP6mKkmCVTMTlygImtEVX7Enx9/oj8QJ/ipO3YFsMxJ3rrg9nJUrxKcV1 +kJ67g9m/DclPSzTjgcOOInk/E/AzaqrvL4mv2E7L6PuukmycX3D3m6faJF55 +o87ydL4ET26bjDRxnMT1p3+5sdLXkb9kghQeTuITW3d/tjItxU/3cz8bXp3E +jIsBsrnppTimOfLcifpfeGa/9F1sVYYvDd+fO2A3jVf6VJf6897jVG7aja2G +s3imS89643AFdsEfE6cuLODkqs1ExafVmCFtuexbxALmXuGOevS6GiewiPZR +MxbwS5WWoPm6atzUfE78RfcCPlpmvu3aRDVWOLqRdnbfIm6jWjQPEmvwuKv8 +y37GJdz+POxUTWUNdo+5UtERvYxr0Jfmx+21mGkp7Ufli2VcdkDQh3+gFicd +a2IoqFnGCXk1iX6ztZgqKqAftbiMZ7sczDm21mHl59mNB4//wenZItLuFnV4 +6n1nR43ECm4d8p9ka6/D538qDhflr+IcP8YLZ8vr8YD9V47q5lV8xSph33RL +PbbquaPWOrKKn5doHnLoq8d7aWOXfwqv4YIj/5Q41usx86tM/h2313DsDa7m +U1oNOCFECgWcXsdrKQsbu1424GoBoURt/r+Y9vCzR+KtRqwR1VRhqPwXX1Pg +KwyKacRZbIEjFkZ/8X0B5yNGqY04crVb3T3kL+7w3Rv9uKQR2/x42JA0/hc/ +rXp6zWCyEU/m8C+uV/3DOaHOUlcPNmEuqZvyP/YywDajRcq1P024af8D9auG +DMAk0nv/D0MzDjueoiVmyQC6Ryxy7biaMVN0yYGTHgwg0PFj37RoM177N+Xy +5QkDqCdoZcrrNuNffdbZ7UyMcOSrjw5jWDPOWXEqPM/HCAU3v3w3vNeMXQV9 +SnhFGSF4u71BQFwzHjENbzLdwwimhwtOP81qxn1lFeONLozww6ZhkLuhGbck +yCtWtTAC10j6gjEjFYcXaRBPf2WElavGuic4qNi4Q1f7309GsG8jnz3OR8V1 +7HYH928yQgz3Ay0RMSr+cCnarYTIBOHTerrvtag47+jqi8I4JmD3S+R0caNi +Tx+214fTmSCRI+CjkTcVK0UKlM0UMMGpR6kJAv5UnFWrSlVpZoIX1uKki9ep +OIXkNJm9zgTFGm8XLOKo+B4/TemZAzN45d5hv1FBxaVaYm/NzzPDwLndlIRa +Kh6x98YbwczQwvnFI76JinXyBI4ei2cG8nmTFqtPVDx+0O4KbxszfE/0N6of +oWJB33z299+Y4dy2+VmlCSrGCQwxrhPMMFq8pTFomorjRjOyallYAIbvbP26 +RMX6N6bbL+uwQOFr9DOalYbP5+AT8gdZQL2h6JUxJw0nfXww0mXDAnU29sOT +PDQ8K6G5qn6BBbJ4JB/NCNBwyoer0qPZLBD1WJB/UZKGm4c7XsYWs8D2JrHh +TRkaXuSS0dKtY4F/xIqTy3I0bGrbaPr4BwuYrP4+na5CwytLfP6WO1ihVmcj ++58mDcuIOW1uyrCC5MrkYwdtGjY3KLqbR2SFT43uV/J0aDgz5ngKxyFWSNr8 +T5EDaLijNEeh+AQrUJ5zcezQo+GNgY3XZ1xZISqNbXWLAQ1bqj9rrLjBCtvG +DmnXHKDhqzYLFp4PWOFEvsXjkIM0/OKKYZ9QKitE39LWljalYYaWidmLZaxw +q4x8UN2chpUXdIKlm1hhtru6I+4wDdsI32Pt+MwKpVj5/cQRGs5zJQkrz7EC +O+X+kIUVDffcv5nR848V4qrrNFyO0jDLu261MB42SCSYCrpa07B6v0IpWZgN +hMvWIo7a0PAJ1mD9QXk6t9dkqRyj4TCV1tZ7e9hAhSHHe5bOr6wkju/XZ4Ov +31rnUo/TcF+Q79DEETbgbHXaq2NLwxxptZ7x9mygsPrGvIbO5Obtfww82cBE +XAb2nKBh+1mX/+Yv05/7Kux6SOfwnWXcT2+zwUqQ5VA/nd8inrhDj9hg7x/D +nO0naXjgrL3kehobWL0qD95LZ56owpzsQjYgOYU7HaCzVhHTHpsKNkiPinHX +o7PTt6OVzC1sUHb6U6oinbmSB718v7LBrtwC7n/09V+fOC/6Y5QNWscO+1XS ++YTwOtVskQ2yE4yGvOjM3Hv7chkjOxT073PmpPPLREEFBT522Dw+xhJDz+eo +7bPuR6LsUMwi3MFO541dareYldghU7Tooztdj4yeMrKvFjsIrr7Y/p6ul1nC +gaF+A3Yw+s2UvULXd/FYV7SZJTuIEL8+lKHz452OuOw0O7i9tB3XodfD8Mv0 +tLwXO5ydrM3XpddrJi7o8aMgdlibcVvUoNczzobdlPkOO8zuLKzfbknDo58l +s/vT2CHAhJPylN4P9x7l2ZgVssO2F3jjIL1fNK33sZaVs4PEQ7vLg2Y0fLvL +yulRDzt0uRwd+ErvN8LDAX7mUXaoNxsY3mdM7xcrr0qfBXZQv1jUc9eIhhU6 +w0TNtnDA+SBr6hy9nztiBGilIhxQ02k3yKVLw4GWTy/L0zs/REpKfBum77eP +pd1MBhwgX8+Lfu2jYfeOqejSyxygX37wfjORhrdFX8bytzkg+90jU2t1Gi47 +zDbz8CEHdLqnJrbT9x93u4SpTwEH3DEXlo6Wp+vfaskq/5MDyiwPueuJ0vWP ++vHm4TwHmKiWaBsI0fU383RiYuAEQe0mrj07aPhQy63K78KcsN/q5+QwH10/ +asnlh0c4AeVG7wlkousXbqjAZM8Juy/qZCz8o2Jk8qnb24MThPW237Ffp+L7 +zb/IpmGcwC8lOcm0SMWEJvEZxg+cUMfz9+1t+nnmW3/TyVueC+qXGMPv1VCx ++IgR2zKZCzJHrqba0M9LGhNnTghwwabFmuTWMireDVFzd2254J2WWNKpV1T8 +tezR9YwILpjP1WmwTqVi3cKslK+/uSBfP0axLZCKZ9pc9Rw2uCB427W5Gj8q +Tp5WGh3l4IaM0pa5nPNUvKRUoLooxQ3Y/EX7UWcqfpH57sOWo9ygXVB+futh +Kt6a3NSrX8IND+ov1mhLU3FFafhVah037Jwq1nYVpWKPHjNpi4/c0DRV+yF8 +BxXXb//oZj/JDfb9EyIvuaj4cvTXlUBRHvA+iN85zjfjwVuTO/Kv84D4mq12 +RmUzfuXDY7XrIC9k2DLxjVrQv2dJApfzbHihKbxLWdCkGY/WCafqOfPCZEAS +0tRrxsJCir88r/HCxvRypA2pGd+sNrxR/ZYXtlbYV3Bua8Y22669cZfeArbn +kjhM2pvw2ps5gfL1LZCapmNSoNuEnwV7TBKO8UPxq3K3Zc5GTKjiXLl9ih80 +3JtenWJoxFUs2aw/zvBD9jauUxXLDXggakQyyocfvud67vAcbsDiT08dm7jL +D30adzKCPjTgpLrDdc8+8IPIju6nPl4NOIZXI2Wb9FZQXFjvlqbV49DUDYvF +qa2w0ipamRlYhxk6B+BDkAAcLHHpkqyuxnIXzwUeVdoOM/cI11liy/HIUrwN +d/kOiHz/py77UAk2+el+JcZ3F+gXWjW0ib/B5iPRyuLiwvBNx1N73CMPtyiP +dNnJCoOqdx2qOJSHTf20riYrCUP+tYuvstXzsDFTf8cuLWHYTDk/UrbwEutJ +Kl8SOCIMfCc50rpCXuI9dvVVHKHC0GScQOiPycWiXavWCz+FYY3TZqdJ2ws8 +Wet0vSlPBGzZ99vphGZhiQc97veKRMCgPFiIyyULH7U3tz76XgSc8496zJpm +4YoVbaWBJhFo3pB+x7wjC8eobu36MywCcKXbwiA3E+vEV8rLC4vC5iY+ptCb +gSPdRdtvhYnCDTeTIbOD6bhaK6bUNEoURiMTxxiJ6XiZhSNj60NRSEl4n9W6 +Kx07pC4EPnkmCpdGXYgvxtOwRhdV+u0HUWhpSYn0vpuGv1MuXxqZF4VIr2fl +xPZnWG1rt5j+aTHIgIteph5P8WjUaOijs2JwfJ70QuPYU/yE68/YmIcY2Kt5 +5hH0n2Iell2vIwPFwBj5TTuIPMWTy7ZG3Q/EQPr+aIleYirO7Pt+3q1OjL6/ +FV9pnE3Botk/K+8risOfTbaXJ3c9xl2yy7JD6uKwOzZ5sXwxGUc8YwvX0BQH +hV9F4fofk/FakvzRr3riIJTrZ1kSnox7otzGpe3EIXa+hWi0mYRj/ab5i++J +Q4ez05ahmUTMhZcc+xbEoWQg8ea9sXgcqKvAUbwmDi32Hwbj6uPxqP7J/PuM +EmDvYl1Znx6Pa4yr1/T4JOB3Po6Jc4jHQZZRsS+UJGDocmohY18c/nV2d/0l +RwlYFZgOGP36CLdEWitsbZeAATPxQNW5WLzv/p22yc8SIHbx6++PnbE4+8H7 +i3V9EvDZf9edxOJYfDNOqjpgUgKMC4xePgiJxeIdyyq/mSRBc8G/WporFnd/ +ram3FpcELys2lkLlGHxg+sQfaWtJMBQQffz2djROEbzRee24JBA7Tzf+PR+N +F3VyC/pOSsLc8+ZgZ5to/DR83SXOSRIyrkfsjNodjdfkH/dw+kjCz/v7r0WH +38cvnb6XzoZLwqirAVOq4D3M33M6pKJKEi6bHVr9YhWBz23ePi5SJwkHi862 +ZipG4A9yhRqBjZLwfkfn3pzNcOzmzzBNbJOEcsklDpuX4bhm27NTmd8k4eiy +wQqZIxxfPDSEIpclwbw79EFf8x3cU+PMeEJFCmbHNAau+YXhWd1e4SvqUrA/ +3EtTxjIMs1cf1nhKkgKLbPHkWUIY1qzc5zK6Vwo8VR7Mcvy+hR++52+9YCgF +wUKv/ZS9buHDRR8SIuylQGbW4fB235u4IVOQUB4tBT7kWD+PuFDcLxt+cCBW +CoYlTJ6yBIXipfRNJ+Z4OvdnM9SeCsWyaZOPDj6Rghy/svr83aE4NKVq/fML +KfCKmzFC7/7DKN6zcaZGCtoJI7Gig9fx2zt19pJLUvCc2flz7pOrONuEtuv2 +ihT8VCphinW7ipN4Pn2aXpeC0+6i4w17ruLr0T+M3jNJw7r8GX+B9iv0eWNN +zYZfGgx9NX7sYb2Ch54TNiOUpUF1z4VBy2vBeEvj49Q/jtKQUmP96UF2IGa8 +m25rf1YazpfY6rtcCcSLJjkC9a7ScP0AFF21DMRf297djvGWhqFB5cMX/gbg +jO5P3qpXpOFWPu3uGZsAvG+UA84kSIN4ud24vOAlfI7Vf6CtTRr8JraYCZb7 +YWGJ5i/rH+n+7u4vnkj2w217xdoVPkvDychv5NkgP6zpWV8e+k0aOGS3BN3X +9sNsnduTNcelgbIr+hV/6QWc+bTYOoVRBqrO/XKfrPLFIzorVC8NGchm07Ht +GvHGCdZmNUlaMnB3u9214TxvbOb9tLRxnwzcLlF7aBTgjYvSjLOldGVARr2n +j43bG9/kTLz1+ZAM+K9bGThrnseyX7SB4iIDmwfZr2k+9sRnLgS/5UmSASlt +fX2vZ25Yk9T/VvGJDOhcun1C0N8Nc81DsdFTGbhSdW9m09gNF/qyvbueJQNZ +xSZy6XOueMPnQcniaxko+uAixG/kiuO8n7/vo8nA6JzBUa31c7jZs7P65V96 +PgpPOF0eOuPHKpo1zQyy0Jko7L3s7Yx9phJqRpllgav8dHWlqTPe4WlfK8kl +C2ZRIbP/mJ2xk8dE3cMdssBrSB2XCziDN9w2G0PUZUGv8E3bVxcnrO6i3Gbm +KAsD/7aFV/k44H43Ce88Z1nY4kOUuXTEAUd6CvBvcZUFh3b5dWeCA57wXbdo +Py8LButb+HsHT+P0ENpnixBZaBOkSuybsMc7Yzy+28TLwvjoGo8zzym8+SF3 +yqFVFoSIBuV9qbY4vzI1qrpDFqa3J0RZetpiu5pYNekuWQjmfeotp22LSxuD +fYZ7ZeHSVQX+0c7j2O+T6eLZcVmIzVX6r4j3OB4b+7XuzrwbQvX7wrfE2OD2 +bSrc/tq7gSLULDv41QojL6+J5P27IcjmefGHN1Y4vzG/sYY+Vdnka4p+i7LC +90KIN/mNdkPb6331/XpW2GxU82+u5W7IkQs+vVxgiamlur+HPHZDV0ri6JY4 +C1zvcKzzSMpuMO4sYAsVP4w13ie8Cni2Gxzvcgz5DJrjjO2991MydgPTSPzl +1gxzfJNqZzaVsxt8WZwkW1XMsZ6GU/3td7tB5KCJdafuIVzF7vWuomM32A8N +Jp+7Zorf54cmqzDLgaC+qDDRwBizmVkLx7PJwRPZpIVbfMbYYkI+kZFLDnzj +TEf1vx3AYzKtcd38cnDvZY/Cit8BLJC4M+a6uBz8qfr9TTXHCHvceHmnS1sO ++HNNTqsrGuJiyWvsmCIHO2zWpKvWDDBjhUXYC5ADjhD5+vwWAxy/snzj6gE5 +iOcoWk/zNcC1XrrXFKzl4H7CM2pXpT4WOd7tH+IjB0/VHvG3eerhc0vZi6N+ +ciD2cy/Lb309/Com2M8iQA7eLao8PyOihw+0SvrKXZUDOfOJB4Y0Xeyn5+HZ +ESEHPkJxR76p6WKaCsMZ2edyoFx7fl8LC+BgRqUjLd/lQDu4YUtduw4eNeDu +kRuUgxOLck4jD3TwkTtTp/8bkQPpzO86N4/qYFm+Am/NX3JQySRKRd/24RZR +jftPV+QgTMz0ya0ZbSy+F7VdFJCHbsUhuwfKe/GdYAmb9h3ycCzAPIGypIXn +Kxj6FYXlITLx6u6TlVq40bB2ul9SHoKmI3tHj2phHytj3oNq8hAozn1D8ZYm +rjlvaSZ2UB5GgiLHs1Y1sMprcleAmTx4aasGsVE1cNySoN2nw/Lg63fyATVJ +A3uEfPG4bSMPnHLvTK9QNLBguF3E3Bl5+nxltjPwNhmfyzxHrb8qDyL6rfaS +qiTM1RdkfL5IHnZLWazQLqpjzYAXvPffyYN43HBMB0EdO27r+VRQRo+/L1XJ +floNlxjvOTVXJQ99O1xO87uq4XNvf/tebJWHG34nE9+eUcXV95yTg0blIf/r +01Nqfsp4SjHWIXlCHnY2kIoPaynjXfXVuz9MyYPAtbK1yXUlfH5dvPDvvDzc +LpUrjQhTwqKuX+uub8pD+/e8wFPPFOnziPlM2C4FOMl3khg6JY8z+kLePBdR +AIptcHLvO3ncHpAb2CSuAPyvw0+n3pDHcvkczFy7FWBmTanGXVQedwrX7owi +KoCWimT3vKUcVlvU0o01UYBjXtvLRDpl8c8sqYepIQqgsyHWWiAsjaduDq4y +X1eA3hINxeIZKTzv9Oy06w0FcLAszZKslcIMElLKxHAFGOWWLhf3ksLC8ZI1 +NfEKUJ4+XZBdL4mP3JaY/flaAVbydvWF8UvgY2d/WJsUK4D22ZP/jteJY3v9 +1Pf5pQoQzOUa3Bsojj02xW8HVClAxC/t1z+HxXBYgLg4Z5sClLZ1/VysFsUf +XMTMVCYUgLYre7X8sTCuNfz+KnpKAQjcg3l9J4QxVebJzqXfCnDT82XOQyFh +/OWH6HD5sgKMK963piUI4fljokGHWRRBPddxSD1lF1YwFsm+IKEI7WU6QdW1 +O/BDBSGWUmtF4GGpfPzDVwDb2cs9Hz6uCE4hgqWCBgJY9iHZZIudIgyX3PMu +2CGAizYPRZ9xUoSN69Znt5Vvw13doaJbvBXhu2f/UMCWbVjg1pTGmTuK8DR2 +T/jWWn7cW7b6JSpCEa4YntbVTebHabNswSX3FCFS6Lci1Y8fk+ykqnkfKcLs +55znI7v5sSXZ5lDJM0UwV01PPiLKh2MGK8/yvleEsaC704/7ePCJna0ceysU +oe2f8dDleB4sfag316laEbZtJu1ZsOTBr0sW5941KkIZceDjWxo3/nRf8apT +lyIURx10PFbHhbei2Lh304rAzKzd/aeDA0cnnWt0lFSCR29IqncOs+KAS6F+ +ITJKMP6gczFdlBXbW6ZIxMspwczvlnekSRaswtUd0KKiBFk6n5wzw1hw82VD +BS1tJbCfdd5TX8eMmWxl7/JYKsGKJIO7jDUTntCAPfLWSiA9t9DHoMiEO/jt +BnWPK0HPDfRb7y8jTm2K1Q6wVwIZnYPxc1mMeP9e5slBdyUYUf3vy+A/Buy/ +c8jk3Q0luLFIHS26vonsFv4ufwxTgsg/8iRdjU1k0C6UPnVXCQa7Sk5eGf+H +tt22WJeKVgJmm4unNi3/ofzlqtzIx/R4tPjMGAl/0fjnVB6nt0qwG+9vqeRY +RycenmrjGVOC/mjOxHblP0j0DZeIxyQ933EzwZ7pZfTj4zuX5mklMCVPzVwp +XEbOfNsYwxaVoDVA9Gey1jI6H95A3mRUhpyaK1dXzJZQ6HX1xDlRZYBzaRwb +MQvIILXv52FJZZjiqpIi2i8g9oq7pHwZZeD263kwrbiAIteHae5KylCK1Oz/ +1MyjuEsJ/4a1lMFh2DxReX0OvfBkdO62VAY379P67DdmkWdEfqGGjTKU5B55 +KW4zi9RyTv6NsVWGxelzB3MUZ9Hrsbdxhx2UYZ9lhQs54zf64OTe3OSlDCPb +ZWv8j8ygjuOdau/vKMOPI+7PNT/+QisGmaupFcrAFMM3OHZ2DIW8T71RV60M +VLWfn24qjiEGUhLvRB3dX6uXafH0KGKXuC9FoinD4EK718eAUbRjNfBg3Rdl +KB7zdqmN+YnIeWaJ47PKYK5gt3FpaBgVyxyQ4V1Uhr70Q4VV+cNoX5JuHvGP +MuwSeP08PHgY6d3WrA76qwwN3d/zk3YMoyOOkhM8XCowmvu+I9xyCJ3fvriX +KKMC/qrL8q8GBtB8xEyNtZwKmIxdPx9QNID8mSbMghRVIMk3xOLlnQEU8vu7 +Q626ChRr3+k+RRpAEc2Nd6z3q8B6seO129t/oOwryT2XrVWA9E2yNPRJHxr+ +qRdYc1sFpFhytY339SC91LY0pQgV+KnGq3lx8Qt6evxEa8w9FXB0EnvkUPAF +2dN8pc88UoHcHrX0C/JfUG/h0xbmdBUwTOqQNpLsRp+C/0kaVqgArbVwBze5 +CxH3hJvmVavAxZ2Kz06udKLome2XtterwPcmxwOHKzqRuaMq7SdNBbb8HlcX +MutEVCM7/7CvKvCkP+AYp/cnVLO1rLlxUQUUhIo8/nR0ICma4aL6igq8pD1O +K0ntQNdvfhRPWFcBvdj0CWbvDoT+jPu5MqlC5rPmSRJfByrr2ynOya8KU5Xd +OXG5bej1c/8LJsqqUPvyrbrnEg1tdWR88lpNFSSEHlNH02jIRziqUZikCoM3 +pytMLGhILSpD9NdeVWBM6BivK6SinAudDRFGqnCkt20LDmpGaRSiSKujKiRo +/qkw2NOIasy5bqw7q4Lsz8T1xsUGNHR6eFLRVRVulmsz/SlqQDKhj8rCzquC +8ujaUwutBpTRsGoLwapwSMbYh6pfjzIP1yS8eagKTjODaY5BtajBIZlhKF4V +bN+0V33Xr0Wjvhdd+ZNVYYOST5nirUVyD+X2ej1TBe+/DiFl6TUoqyf8i1y+ +KpyQjvu18LkaZTta7UhqVIX9106VZlhVoaYLKlebqKpwUsc/OWV3FRq/wTq6 +3Ep//6wGn9JsJVLIevfWqksVWJ5lLY7sr0QvJkWseQdVoWXX0aKkwXKU4zcS +e31NFQruWv03b/0e5d3y3+qiqgaHB0m233uL0dT+U6G3CGogLneFlZZUjFQW +DRbSyWrQdJ1mefZkMcpxEvw8oK0G97qXBhP636Js/CbhhJEaXNvZtbdlqghl +rM5KmJ9Wg5GJOpdFuTdopLAn2tNJDUr/CpSOzL5GMq5VjBFn1cD/jG+zy/vX +KK37/nCjhxow343UlLR8jVLfqD3XDVQDtaWMQGLYK5Tk5am254EaEEwuTyax +F6Je2aOpVg/V4NPluRe7igqQUJ8O/4V4uv2N/qxF2wKUYMI9n/9EDTTvBE1H +ZeejR/I5bxVy1GA9M3dg80geih4c2y9aqwaeY2IMjS05qCOhPW9fgxpUPlhn +2XU9B/EdeSdu26wGbskKRvs1ctC9ijCGuHY1mJPpb1lKeYEik3fX8fWpQYPW +iQNzV7LRbeszpsxL9HgNVQSQQxZKO9xnd3ZFDU5yjDacFM5CHw5an29cV4MH +qLjE9HMmmqcceBDBpA6b1qbDCYcykZ2c8hcBfnVQWtod9/xABiL9mXeSVVYH +vsfh6xmn09ChOY+LYWrqUIMuC/TsTkOuv0ZujRPVoam6w6Ns6hl68qM7++Ve +dQhi+vHrZsgzxNFUNqNhpA6vPTsr1tKfov6E0CBDRzoHO/jdl0pBqzHrEc+d +1YHdvV9oZ80TJBh18Qmnqzpo8LIH1Jx5gg7+d66q9bw6KPyy3ryU8xgVuZmw +2YSoQ2/x98V1g2QUvm9bzLl4dXjgrmxUkpuAMjUi0puS1EFZv3z1r10CqlJj +eauUog5qR6O3a/IloCXp5S8zGergCRa2Fy7FIwfuXrGA1+pw9NSN+22H49Ce +vmcvbreqA9uL3jCq8kPEr+a6UtChDiIe3p36v2PR1DW1Az2d6lDX/sLP800s +ypB5P6LQqw4ZFDaBOkosEvTokqCOqoOPYXva8RMxaC2E2ZSNgQDqC/8Kbr2K +RuOZ5y4kMRIgj4tdSPhaNOpua05UYyZAWmR8vO6haPRaMnrcho0AoilqrWHd +95F7nWjYcx4COCequrecvIe+cmtWGwsRoGs2YjUnIQI1aCSO9wkT4PaWwe/1 +BhGo6NQGn68oAR7zGOz5MheOogtq7BMlCEASF3L8ZB6OjK0Ob0zsJsDGdybd +AYG7qCTJVSuCRIAPWpfmxZrCUFYtzV5CgwCZfbwbrqFh6OGUWtibPQTw4NPS +CqWEIR+01PVtLwHaVGjCO4pvIYWh/y6oYAIc0CH13yy8iRIUk/NaTQkATJb6 +j5tC0eKCUeaNQwQIoEToLN0NRYcr5h9rHybACalWq11moYjNyiQy05IAcVm7 +hN98+g/5h6y6X7ElAI8aA/fK+HVk2X5MQdWFAH43Tr644n0V5ScySw670uPv +FTttyHkVcToX7Ex0J4CxdLOZbcYVVLXCxs56ngCuobfirftDkLp08c++iwS4 +Vd3CSnQMRjz+gumRoQT4uED1kE4NRK64KknvJgH8n7i6/DANRLWcnjErtwhg +5PB87eVqAApKqf3P+S4BzlezXfU8HoAmGi847I8mwI7zZw9ISV9CDcIfxaae +EGDe/apZxrAfkv4Zsj0tlQA3FK7nTKX6oSsFCrzHnxGAtTzaVvCUH9IwuL5R +m0GAkl/x8ctfL6A0L/VvybkEKJz/MVT23Rddq4pKMC0lQNImR9Mmlw+a/F71 +cLWMACk8F9IZc7yRzfpC9PMPBLhgpz11BnsjFc0Td5mr6PWy5/ysdf486smV +C3rfQADb5zp9Wd88ESm+8qRyFwEk3ko+EZp3Q0+K5o99/UwAd0JkOinJDXF8 +2n309hcCWAll2Xvqu6EfPJFmw70EUEZnXpITXVFk6HFK8iABzlxY3l5o4YJG +vebEuX8T4HKlxmf/BWdkESErUjpL9xcln8P80hl9yD6202WeAFLXuqlXzjqj +2OFyvtolAsQYLSoqfzuDwDacIXiDAMK0I7NCH51QkoHM0CQnEd4aP4oZGHFA +rE42/QncRLCbv7lrJMcB+Vy722vESwS5JfuybF8HdKDs96c0fiKcZfnx1IPR +AS2qf6g9sZMI9uvEO8pW9uiQiHUmVZZuL1SQyrTnJEoYUas6KUeEEsrUd9Pv +J9BIHse3KXkiaPpYxT0PO4FC4AM/nzIRgll4Qu/22aKXZ2VCrIhEiBJ1fZHy +8DjiKpyz7KMQIeXV0FYXsg2yuUzz8sJEiJP2sDj3yxql6WXe+QdEcLiSf8Q4 +wxppfz5eIWlAhHeu5U0vdlkj17VKxbMmRHh4NOh3AvdR1Ghwj2HGhggxaonX +FnZaom1bXEWuHSdCDup1/dVngey/6GrynyDC5KGgsylpFmjZbcmDdIoIz6xs +slQIFkjuvt2XS2eI0HJZfnue1RF086tS/qY3EXpX2fs+XjyEOtJYmqN9iTDG +OVu3W/AQEvXsH5byI4KN5q/lvCIz9ObfAyGDS0RozDaxN1s1RUMyqzfvhBBh +1ymV9yejTZDu+caTW+8S//8/RMD7+QNorWfCqC6cCAKMb4y3PDmAivR5SAGR +RNi2dI43wvgAkhOy4Ph+nwg9SRYt82lGiKeutyg7jggffDXs+M8aoh6hGV7I +IEJIYNFVaxF9FHOTf3U+k15PDt+wiG49ZPqbNJL5nAgzEnpOr2P0UEVdQBl3 +LhGWP57+Ws+rhzK8GV2+vKLr8ejiwMstusinXrDqfCURlBqP5Tf7IqRE0MqV +qibClaTc51eYERpOso3rqiGChh2vbXEcBdn4pHjuayCCokW8+rPq/Wi/iIIQ +WysRWJqs/doVdBCHr86FJ71EYDbs33Zi715U8+3UqSN9RDh9xOy/LQNaKNjo +ujFzPxEo+swqG3e00IxIvbjbIBH0gjTcLvRroq4Gc5rGOBFMR4Z/H4vfg1JF +nWRblojwvN3fMoVCRvvIympOf4gQGaZ68PU6CXUdXNRaWSFC2lUFsbQyEuII +CDOV3SDCZuGmAZcOCfl8zLkQwkSCxXd17YWGRARhC1UqfCQoO73+VZ5BHfU+ +/kCt4SeBzFDq3aOP1NDFN7e6jm8jAdg9zhtTVkPZAzvHb24nwZbkD+Lqp1TR +Vp39fN9FSFA+a368oV0ZDf2+eSpKgQRrDtoVDnMKKITN3EVGiQS0A+7Gv5MU +0A6xnb6lyiRw26eT/sxQAZmYvLj5U40EO17+HHBKkUevM1pzKXvo9pzxL+bs +5NAN2x1r07ok0HJcWdLklkXiPj+Yb+rT7QXZG07Uy6CSsGxeYUN6PFxc3R7X +ZdDUm31SRsYk6DWE0IOr0ujoltPGKeYkmHBqq0xdkkKytc/jzE+SYH5GknH/ +DknUprKS0WdHgoRxe4PRcgkUGGf8xt2eBC21Y0MNRyQQzW2iPcyRBI89+91a +gsTRBX5lzkoXEvSs8Bm7/hBFlafyg9UvkmCMzZ+db0wIuTb+u1vuT4IL48pf +IqOE0Dbi4QTTABI8GqXu2btHCJ1jmS1yCSJB5ZjSPo47uxBPLnEm9ToJlm/9 +w7I6O9GJlSIH/igSHP6mGqfYJYhYnFi9U+6RwO5i7GdqhCDKp1lfUYkmAe+x +CnNHA0HEmLqcaBxLAuW6R9aOJQIo23Bv5/VEEjiQDr07lrsNLcW8N5zLpOvX +6X8uqowfpWxwH732nAS2r90uiF7nR8bn7Jx4X9D9bYXsC0b86LH236uKL0ng +yn00qiuHD+kNoBLH1yRoYg8Rvb7Ci6JVa5Q+VdD1P8Tj8a2bC2XvPckZWkUC +70gG2XQfLlSpvzhGrCHBODNb7Sg3F5qxlct8UE+CiIW2gy1GnMg0LFzCooUE +ybvEXl5tZUdsPywFO76SYCGPMKsizIrEJn/NX/tGgiO7gvlsmlmQxtLNj+rf +6fV1OxOQd5kFneF+d+/+AAlqwo3XP39nRlVaIpyHx+j58dcLJr5hQsHRw39b +F0lwJvPCV58HDCgmOaTvyjIJHKP1tJIsGFBO1vb3qiskGKQIVL3ZxoB6PhwI +jFqnx0/aq22lvknRnMidN2Miw1Co6/Gw438phxYNPm4wk6HA7oWb5NgGxXnz +e8FLVjJ4xXI5nwvYoMRu5/fi4SSDxxPdmO+P1ymzuhfHaHxkeOVyhO3T2iqF +4xBvQ/BWMsj/Z70oE7dKkTielaEsQIaaQJmFedIqxfx8j2PEDjLs1TyA5n1W +KLlJ+/tMxMjw9OUersG/y5RzCywfm5XIoN39877gsUWKfY5Bm50KGawcb7ls +5V2k2DjepP1WJQNTz9tj2+sWKEbtzA3biWQ4tHnvkOyeBYpcLtN7Ry0yHMnZ +UfZXep7y04khc1WfDFraQeblSrOUPiH6aGhIhjvnCA2kH78pXR3XUiUOkOGi +4pfyB+6/KXVoM9HQhAzXjsdIq4bNUDKE/917cIQMxw9061I6pijOn9YDFU+R +oXTMKkUkd4Jid1fn0gd7MnyLa3lcbDZBOQrBfocdyLC+9mM04/c4xSB/zcv/ +DBlCpG99dtUep8iGrzpVu5FBVdm8g69vlDKs+8fM9hIZxjc11IVOjFB6VzRN +pgLI4AoTjn1bRiifCi4duHaZDP6eKqEFdcOUGrFl3cwQMtxm35J8iTxMSVtd +1JwLJcOZ4G9npMWGKE6v5iXv3ieDzYDL5oTYAMUz1GrD5AEZmp8U1e8t/kHx +tyr6whNLBjX0UeI96QflzpL/veg4Mrxv3Ev4Q+yn5Guvrsc/IcOE4QtFd+M+ +SgnXiS+2qWQIfPiGs+fTN0r1t7LXIs/I8P3N898yp79Ruq6EuKVmkMFFQEFv +75Veymr1ZndWLhm2P+9zCm/roTDFOrx2zaOvVzjHIuHSQ+Fxro5SKiBDtstF +N1vGHoo42w2D/NdkOHUryypz3xeKgQnb67elZIgz4pAcr/xMif7EE1XXSO+3 +69LN3/g6KUnpXq5hzWTYOJhiNFP5iZJ+sU3fmEaGy1d+FBr7fqIU74heo7WR +ofAAT3fVl4+UvhMCrp2fyUC+NXeV/KaDMqp8Uf/RFzJ0SU5Nr3p2UH5vdIkf ++0qGPqWuY4PyHRSm1LjPvX1keJeYw8Ok106RHxbSHxomQ6yoicA2aKUQioLE +M36SoTq2aEdJXQtl361vq2fHyFA+JrX3pGkLxUz+SeHEJBlyD5/uD7SnUS54 +SIrPzZFhstOscW9yMyVk/3+rrxfo/fDXcnRarZlyi3eo6+ISGbblth45U9dE +SShIj1hZIYP5q6SWC4uNlLTrLC5la2RYq8lj3bzXSMm1OKsXskGGNr3BHnXl +RkqRdIMY+keG0Kvvn/xraqBULMitbm6S4YvKzgZn1wbK/wAtXofl + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.21372310935545752`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.21372310935545752`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVmnc8V/8Xx+0tioY9s8dniKTP+33MhBSilISUHZIIja9KZZQosygrkVFJ +KHt/PlaRJMnKCtlZ5ff5/XPv4/m497zPOa9z3u97/rhSTt6WZ5kYGBg66Zf/ +359cdWIjOicj+YnyQqs9HqiuU9LsmORlfO/RzF6bJWO82VBxQ1LyLo7sWD8m +uHQcP6mKkmCVTMTlygImtEVX7Enx9/oj8QJ/ipO3YFsMxJ3rrg9nJUrxKcV1 +kJ67g9m/DclPSzTjgcOOInk/E/AzaqrvL4mv2E7L6PuukmycX3D3m6faJF55 +o87ydL4ET26bjDRxnMT1p3+5sdLXkb9kghQeTuITW3d/tjItxU/3cz8bXp3E +jIsBsrnppTimOfLcifpfeGa/9F1sVYYvDd+fO2A3jVf6VJf6897jVG7aja2G +s3imS89643AFdsEfE6cuLODkqs1ExafVmCFtuexbxALmXuGOevS6GiewiPZR +MxbwS5WWoPm6atzUfE78RfcCPlpmvu3aRDVWOLqRdnbfIm6jWjQPEmvwuKv8 +y37GJdz+POxUTWUNdo+5UtERvYxr0Jfmx+21mGkp7Ufli2VcdkDQh3+gFicd +a2IoqFnGCXk1iX6ztZgqKqAftbiMZ7sczDm21mHl59mNB4//wenZItLuFnV4 +6n1nR43ECm4d8p9ka6/D538qDhflr+IcP8YLZ8vr8YD9V47q5lV8xSph33RL +PbbquaPWOrKKn5doHnLoq8d7aWOXfwqv4YIj/5Q41usx86tM/h2313DsDa7m +U1oNOCFECgWcXsdrKQsbu1424GoBoURt/r+Y9vCzR+KtRqwR1VRhqPwXX1Pg +KwyKacRZbIEjFkZ/8X0B5yNGqY04crVb3T3kL+7w3Rv9uKQR2/x42JA0/hc/ +rXp6zWCyEU/m8C+uV/3DOaHOUlcPNmEuqZvyP/YywDajRcq1P024af8D9auG +DMAk0nv/D0MzDjueoiVmyQC6Ryxy7biaMVN0yYGTHgwg0PFj37RoM177N+Xy +5QkDqCdoZcrrNuNffdbZ7UyMcOSrjw5jWDPOWXEqPM/HCAU3v3w3vNeMXQV9 +SnhFGSF4u71BQFwzHjENbzLdwwimhwtOP81qxn1lFeONLozww6ZhkLuhGbck +yCtWtTAC10j6gjEjFYcXaRBPf2WElavGuic4qNi4Q1f7309GsG8jnz3OR8V1 +7HYH928yQgz3Ay0RMSr+cCnarYTIBOHTerrvtag47+jqi8I4JmD3S+R0caNi +Tx+214fTmSCRI+CjkTcVK0UKlM0UMMGpR6kJAv5UnFWrSlVpZoIX1uKki9ep +OIXkNJm9zgTFGm8XLOKo+B4/TemZAzN45d5hv1FBxaVaYm/NzzPDwLndlIRa +Kh6x98YbwczQwvnFI76JinXyBI4ei2cG8nmTFqtPVDx+0O4KbxszfE/0N6of +oWJB33z299+Y4dy2+VmlCSrGCQwxrhPMMFq8pTFomorjRjOyallYAIbvbP26 +RMX6N6bbL+uwQOFr9DOalYbP5+AT8gdZQL2h6JUxJw0nfXww0mXDAnU29sOT +PDQ8K6G5qn6BBbJ4JB/NCNBwyoer0qPZLBD1WJB/UZKGm4c7XsYWs8D2JrHh +TRkaXuSS0dKtY4F/xIqTy3I0bGrbaPr4BwuYrP4+na5CwytLfP6WO1ihVmcj ++58mDcuIOW1uyrCC5MrkYwdtGjY3KLqbR2SFT43uV/J0aDgz5ngKxyFWSNr8 +T5EDaLijNEeh+AQrUJ5zcezQo+GNgY3XZ1xZISqNbXWLAQ1bqj9rrLjBCtvG +DmnXHKDhqzYLFp4PWOFEvsXjkIM0/OKKYZ9QKitE39LWljalYYaWidmLZaxw +q4x8UN2chpUXdIKlm1hhtru6I+4wDdsI32Pt+MwKpVj5/cQRGs5zJQkrz7EC +O+X+kIUVDffcv5nR848V4qrrNFyO0jDLu261MB42SCSYCrpa07B6v0IpWZgN +hMvWIo7a0PAJ1mD9QXk6t9dkqRyj4TCV1tZ7e9hAhSHHe5bOr6wkju/XZ4Ov +31rnUo/TcF+Q79DEETbgbHXaq2NLwxxptZ7x9mygsPrGvIbO5Obtfww82cBE +XAb2nKBh+1mX/+Yv05/7Kux6SOfwnWXcT2+zwUqQ5VA/nd8inrhDj9hg7x/D +nO0naXjgrL3kehobWL0qD95LZ56owpzsQjYgOYU7HaCzVhHTHpsKNkiPinHX +o7PTt6OVzC1sUHb6U6oinbmSB718v7LBrtwC7n/09V+fOC/6Y5QNWscO+1XS ++YTwOtVskQ2yE4yGvOjM3Hv7chkjOxT073PmpPPLREEFBT522Dw+xhJDz+eo +7bPuR6LsUMwi3MFO541dareYldghU7Tooztdj4yeMrKvFjsIrr7Y/p6ul1nC +gaF+A3Yw+s2UvULXd/FYV7SZJTuIEL8+lKHz452OuOw0O7i9tB3XodfD8Mv0 +tLwXO5ydrM3XpddrJi7o8aMgdlibcVvUoNczzobdlPkOO8zuLKzfbknDo58l +s/vT2CHAhJPylN4P9x7l2ZgVssO2F3jjIL1fNK33sZaVs4PEQ7vLg2Y0fLvL +yulRDzt0uRwd+ErvN8LDAX7mUXaoNxsY3mdM7xcrr0qfBXZQv1jUc9eIhhU6 +w0TNtnDA+SBr6hy9nztiBGilIhxQ02k3yKVLw4GWTy/L0zs/REpKfBum77eP +pd1MBhwgX8+Lfu2jYfeOqejSyxygX37wfjORhrdFX8bytzkg+90jU2t1Gi47 +zDbz8CEHdLqnJrbT9x93u4SpTwEH3DEXlo6Wp+vfaskq/5MDyiwPueuJ0vWP ++vHm4TwHmKiWaBsI0fU383RiYuAEQe0mrj07aPhQy63K78KcsN/q5+QwH10/ +asnlh0c4AeVG7wlkousXbqjAZM8Juy/qZCz8o2Jk8qnb24MThPW237Ffp+L7 +zb/IpmGcwC8lOcm0SMWEJvEZxg+cUMfz9+1t+nnmW3/TyVueC+qXGMPv1VCx ++IgR2zKZCzJHrqba0M9LGhNnTghwwabFmuTWMireDVFzd2254J2WWNKpV1T8 +tezR9YwILpjP1WmwTqVi3cKslK+/uSBfP0axLZCKZ9pc9Rw2uCB427W5Gj8q +Tp5WGh3l4IaM0pa5nPNUvKRUoLooxQ3Y/EX7UWcqfpH57sOWo9ygXVB+futh +Kt6a3NSrX8IND+ov1mhLU3FFafhVah037Jwq1nYVpWKPHjNpi4/c0DRV+yF8 +BxXXb//oZj/JDfb9EyIvuaj4cvTXlUBRHvA+iN85zjfjwVuTO/Kv84D4mq12 +RmUzfuXDY7XrIC9k2DLxjVrQv2dJApfzbHihKbxLWdCkGY/WCafqOfPCZEAS +0tRrxsJCir88r/HCxvRypA2pGd+sNrxR/ZYXtlbYV3Bua8Y22669cZfeArbn +kjhM2pvw2ps5gfL1LZCapmNSoNuEnwV7TBKO8UPxq3K3Zc5GTKjiXLl9ih80 +3JtenWJoxFUs2aw/zvBD9jauUxXLDXggakQyyocfvud67vAcbsDiT08dm7jL +D30adzKCPjTgpLrDdc8+8IPIju6nPl4NOIZXI2Wb9FZQXFjvlqbV49DUDYvF +qa2w0ipamRlYhxk6B+BDkAAcLHHpkqyuxnIXzwUeVdoOM/cI11liy/HIUrwN +d/kOiHz/py77UAk2+el+JcZ3F+gXWjW0ib/B5iPRyuLiwvBNx1N73CMPtyiP +dNnJCoOqdx2qOJSHTf20riYrCUP+tYuvstXzsDFTf8cuLWHYTDk/UrbwEutJ +Kl8SOCIMfCc50rpCXuI9dvVVHKHC0GScQOiPycWiXavWCz+FYY3TZqdJ2ws8 +Wet0vSlPBGzZ99vphGZhiQc97veKRMCgPFiIyyULH7U3tz76XgSc8496zJpm +4YoVbaWBJhFo3pB+x7wjC8eobu36MywCcKXbwiA3E+vEV8rLC4vC5iY+ptCb +gSPdRdtvhYnCDTeTIbOD6bhaK6bUNEoURiMTxxiJ6XiZhSNj60NRSEl4n9W6 +Kx07pC4EPnkmCpdGXYgvxtOwRhdV+u0HUWhpSYn0vpuGv1MuXxqZF4VIr2fl +xPZnWG1rt5j+aTHIgIteph5P8WjUaOijs2JwfJ70QuPYU/yE68/YmIcY2Kt5 +5hH0n2Iell2vIwPFwBj5TTuIPMWTy7ZG3Q/EQPr+aIleYirO7Pt+3q1OjL6/ +FV9pnE3Botk/K+8risOfTbaXJ3c9xl2yy7JD6uKwOzZ5sXwxGUc8YwvX0BQH +hV9F4fofk/FakvzRr3riIJTrZ1kSnox7otzGpe3EIXa+hWi0mYRj/ab5i++J +Q4ez05ahmUTMhZcc+xbEoWQg8ea9sXgcqKvAUbwmDi32Hwbj6uPxqP7J/PuM +EmDvYl1Znx6Pa4yr1/T4JOB3Po6Jc4jHQZZRsS+UJGDocmohY18c/nV2d/0l +RwlYFZgOGP36CLdEWitsbZeAATPxQNW5WLzv/p22yc8SIHbx6++PnbE4+8H7 +i3V9EvDZf9edxOJYfDNOqjpgUgKMC4xePgiJxeIdyyq/mSRBc8G/WporFnd/ +ram3FpcELys2lkLlGHxg+sQfaWtJMBQQffz2djROEbzRee24JBA7Tzf+PR+N +F3VyC/pOSsLc8+ZgZ5to/DR83SXOSRIyrkfsjNodjdfkH/dw+kjCz/v7r0WH +38cvnb6XzoZLwqirAVOq4D3M33M6pKJKEi6bHVr9YhWBz23ePi5SJwkHi862 +ZipG4A9yhRqBjZLwfkfn3pzNcOzmzzBNbJOEcsklDpuX4bhm27NTmd8k4eiy +wQqZIxxfPDSEIpclwbw79EFf8x3cU+PMeEJFCmbHNAau+YXhWd1e4SvqUrA/ +3EtTxjIMs1cf1nhKkgKLbPHkWUIY1qzc5zK6Vwo8VR7Mcvy+hR++52+9YCgF +wUKv/ZS9buHDRR8SIuylQGbW4fB235u4IVOQUB4tBT7kWD+PuFDcLxt+cCBW +CoYlTJ6yBIXipfRNJ+Z4OvdnM9SeCsWyaZOPDj6Rghy/svr83aE4NKVq/fML +KfCKmzFC7/7DKN6zcaZGCtoJI7Gig9fx2zt19pJLUvCc2flz7pOrONuEtuv2 +ihT8VCphinW7ipN4Pn2aXpeC0+6i4w17ruLr0T+M3jNJw7r8GX+B9iv0eWNN +zYZfGgx9NX7sYb2Ch54TNiOUpUF1z4VBy2vBeEvj49Q/jtKQUmP96UF2IGa8 +m25rf1YazpfY6rtcCcSLJjkC9a7ScP0AFF21DMRf297djvGWhqFB5cMX/gbg +jO5P3qpXpOFWPu3uGZsAvG+UA84kSIN4ud24vOAlfI7Vf6CtTRr8JraYCZb7 +YWGJ5i/rH+n+7u4vnkj2w217xdoVPkvDychv5NkgP6zpWV8e+k0aOGS3BN3X +9sNsnduTNcelgbIr+hV/6QWc+bTYOoVRBqrO/XKfrPLFIzorVC8NGchm07Ht +GvHGCdZmNUlaMnB3u9214TxvbOb9tLRxnwzcLlF7aBTgjYvSjLOldGVARr2n +j43bG9/kTLz1+ZAM+K9bGThrnseyX7SB4iIDmwfZr2k+9sRnLgS/5UmSASlt +fX2vZ25Yk9T/VvGJDOhcun1C0N8Nc81DsdFTGbhSdW9m09gNF/qyvbueJQNZ +xSZy6XOueMPnQcniaxko+uAixG/kiuO8n7/vo8nA6JzBUa31c7jZs7P65V96 +PgpPOF0eOuPHKpo1zQyy0Jko7L3s7Yx9phJqRpllgav8dHWlqTPe4WlfK8kl +C2ZRIbP/mJ2xk8dE3cMdssBrSB2XCziDN9w2G0PUZUGv8E3bVxcnrO6i3Gbm +KAsD/7aFV/k44H43Ce88Z1nY4kOUuXTEAUd6CvBvcZUFh3b5dWeCA57wXbdo +Py8LButb+HsHT+P0ENpnixBZaBOkSuybsMc7Yzy+28TLwvjoGo8zzym8+SF3 +yqFVFoSIBuV9qbY4vzI1qrpDFqa3J0RZetpiu5pYNekuWQjmfeotp22LSxuD +fYZ7ZeHSVQX+0c7j2O+T6eLZcVmIzVX6r4j3OB4b+7XuzrwbQvX7wrfE2OD2 +bSrc/tq7gSLULDv41QojL6+J5P27IcjmefGHN1Y4vzG/sYY+Vdnka4p+i7LC +90KIN/mNdkPb6331/XpW2GxU82+u5W7IkQs+vVxgiamlur+HPHZDV0ri6JY4 +C1zvcKzzSMpuMO4sYAsVP4w13ie8Cni2Gxzvcgz5DJrjjO2991MydgPTSPzl +1gxzfJNqZzaVsxt8WZwkW1XMsZ6GU/3td7tB5KCJdafuIVzF7vWuomM32A8N +Jp+7Zorf54cmqzDLgaC+qDDRwBizmVkLx7PJwRPZpIVbfMbYYkI+kZFLDnzj +TEf1vx3AYzKtcd38cnDvZY/Cit8BLJC4M+a6uBz8qfr9TTXHCHvceHmnS1sO ++HNNTqsrGuJiyWvsmCIHO2zWpKvWDDBjhUXYC5ADjhD5+vwWAxy/snzj6gE5 +iOcoWk/zNcC1XrrXFKzl4H7CM2pXpT4WOd7tH+IjB0/VHvG3eerhc0vZi6N+ +ciD2cy/Lb309/Com2M8iQA7eLao8PyOihw+0SvrKXZUDOfOJB4Y0Xeyn5+HZ +ESEHPkJxR76p6WKaCsMZ2edyoFx7fl8LC+BgRqUjLd/lQDu4YUtduw4eNeDu +kRuUgxOLck4jD3TwkTtTp/8bkQPpzO86N4/qYFm+Am/NX3JQySRKRd/24RZR +jftPV+QgTMz0ya0ZbSy+F7VdFJCHbsUhuwfKe/GdYAmb9h3ycCzAPIGypIXn +Kxj6FYXlITLx6u6TlVq40bB2ul9SHoKmI3tHj2phHytj3oNq8hAozn1D8ZYm +rjlvaSZ2UB5GgiLHs1Y1sMprcleAmTx4aasGsVE1cNySoN2nw/Lg63fyATVJ +A3uEfPG4bSMPnHLvTK9QNLBguF3E3Bl5+nxltjPwNhmfyzxHrb8qDyL6rfaS +qiTM1RdkfL5IHnZLWazQLqpjzYAXvPffyYN43HBMB0EdO27r+VRQRo+/L1XJ +floNlxjvOTVXJQ99O1xO87uq4XNvf/tebJWHG34nE9+eUcXV95yTg0blIf/r +01Nqfsp4SjHWIXlCHnY2kIoPaynjXfXVuz9MyYPAtbK1yXUlfH5dvPDvvDzc +LpUrjQhTwqKuX+uub8pD+/e8wFPPFOnziPlM2C4FOMl3khg6JY8z+kLePBdR +AIptcHLvO3ncHpAb2CSuAPyvw0+n3pDHcvkczFy7FWBmTanGXVQedwrX7owi +KoCWimT3vKUcVlvU0o01UYBjXtvLRDpl8c8sqYepIQqgsyHWWiAsjaduDq4y +X1eA3hINxeIZKTzv9Oy06w0FcLAszZKslcIMElLKxHAFGOWWLhf3ksLC8ZI1 +NfEKUJ4+XZBdL4mP3JaY/flaAVbydvWF8UvgY2d/WJsUK4D22ZP/jteJY3v9 +1Pf5pQoQzOUa3Bsojj02xW8HVClAxC/t1z+HxXBYgLg4Z5sClLZ1/VysFsUf +XMTMVCYUgLYre7X8sTCuNfz+KnpKAQjcg3l9J4QxVebJzqXfCnDT82XOQyFh +/OWH6HD5sgKMK963piUI4fljokGHWRRBPddxSD1lF1YwFsm+IKEI7WU6QdW1 +O/BDBSGWUmtF4GGpfPzDVwDb2cs9Hz6uCE4hgqWCBgJY9iHZZIudIgyX3PMu +2CGAizYPRZ9xUoSN69Znt5Vvw13doaJbvBXhu2f/UMCWbVjg1pTGmTuK8DR2 +T/jWWn7cW7b6JSpCEa4YntbVTebHabNswSX3FCFS6Lci1Y8fk+ykqnkfKcLs +55znI7v5sSXZ5lDJM0UwV01PPiLKh2MGK8/yvleEsaC704/7ePCJna0ceysU +oe2f8dDleB4sfag316laEbZtJu1ZsOTBr0sW5941KkIZceDjWxo3/nRf8apT +lyIURx10PFbHhbei2Lh304rAzKzd/aeDA0cnnWt0lFSCR29IqncOs+KAS6F+ +ITJKMP6gczFdlBXbW6ZIxMspwczvlnekSRaswtUd0KKiBFk6n5wzw1hw82VD +BS1tJbCfdd5TX8eMmWxl7/JYKsGKJIO7jDUTntCAPfLWSiA9t9DHoMiEO/jt +BnWPK0HPDfRb7y8jTm2K1Q6wVwIZnYPxc1mMeP9e5slBdyUYUf3vy+A/Buy/ +c8jk3Q0luLFIHS26vonsFv4ufwxTgsg/8iRdjU1k0C6UPnVXCQa7Sk5eGf+H +tt22WJeKVgJmm4unNi3/ofzlqtzIx/R4tPjMGAl/0fjnVB6nt0qwG+9vqeRY +RycenmrjGVOC/mjOxHblP0j0DZeIxyQ933EzwZ7pZfTj4zuX5mklMCVPzVwp +XEbOfNsYwxaVoDVA9Gey1jI6H95A3mRUhpyaK1dXzJZQ6HX1xDlRZYBzaRwb +MQvIILXv52FJZZjiqpIi2i8g9oq7pHwZZeD263kwrbiAIteHae5KylCK1Oz/ +1MyjuEsJ/4a1lMFh2DxReX0OvfBkdO62VAY379P67DdmkWdEfqGGjTKU5B55 +KW4zi9RyTv6NsVWGxelzB3MUZ9Hrsbdxhx2UYZ9lhQs54zf64OTe3OSlDCPb +ZWv8j8ygjuOdau/vKMOPI+7PNT/+QisGmaupFcrAFMM3OHZ2DIW8T71RV60M +VLWfn24qjiEGUhLvRB3dX6uXafH0KGKXuC9FoinD4EK718eAUbRjNfBg3Rdl +KB7zdqmN+YnIeWaJ47PKYK5gt3FpaBgVyxyQ4V1Uhr70Q4VV+cNoX5JuHvGP +MuwSeP08PHgY6d3WrA76qwwN3d/zk3YMoyOOkhM8XCowmvu+I9xyCJ3fvriX +KKMC/qrL8q8GBtB8xEyNtZwKmIxdPx9QNID8mSbMghRVIMk3xOLlnQEU8vu7 +Q626ChRr3+k+RRpAEc2Nd6z3q8B6seO129t/oOwryT2XrVWA9E2yNPRJHxr+ +qRdYc1sFpFhytY339SC91LY0pQgV+KnGq3lx8Qt6evxEa8w9FXB0EnvkUPAF +2dN8pc88UoHcHrX0C/JfUG/h0xbmdBUwTOqQNpLsRp+C/0kaVqgArbVwBze5 +CxH3hJvmVavAxZ2Kz06udKLome2XtterwPcmxwOHKzqRuaMq7SdNBbb8HlcX +MutEVCM7/7CvKvCkP+AYp/cnVLO1rLlxUQUUhIo8/nR0ICma4aL6igq8pD1O +K0ntQNdvfhRPWFcBvdj0CWbvDoT+jPu5MqlC5rPmSRJfByrr2ynOya8KU5Xd +OXG5bej1c/8LJsqqUPvyrbrnEg1tdWR88lpNFSSEHlNH02jIRziqUZikCoM3 +pytMLGhILSpD9NdeVWBM6BivK6SinAudDRFGqnCkt20LDmpGaRSiSKujKiRo +/qkw2NOIasy5bqw7q4Lsz8T1xsUGNHR6eFLRVRVulmsz/SlqQDKhj8rCzquC +8ujaUwutBpTRsGoLwapwSMbYh6pfjzIP1yS8eagKTjODaY5BtajBIZlhKF4V +bN+0V33Xr0Wjvhdd+ZNVYYOST5nirUVyD+X2ej1TBe+/DiFl6TUoqyf8i1y+ +KpyQjvu18LkaZTta7UhqVIX9106VZlhVoaYLKlebqKpwUsc/OWV3FRq/wTq6 +3Ep//6wGn9JsJVLIevfWqksVWJ5lLY7sr0QvJkWseQdVoWXX0aKkwXKU4zcS +e31NFQruWv03b/0e5d3y3+qiqgaHB0m233uL0dT+U6G3CGogLneFlZZUjFQW +DRbSyWrQdJ1mefZkMcpxEvw8oK0G97qXBhP636Js/CbhhJEaXNvZtbdlqghl +rM5KmJ9Wg5GJOpdFuTdopLAn2tNJDUr/CpSOzL5GMq5VjBFn1cD/jG+zy/vX +KK37/nCjhxow343UlLR8jVLfqD3XDVQDtaWMQGLYK5Tk5am254EaEEwuTyax +F6Je2aOpVg/V4NPluRe7igqQUJ8O/4V4uv2N/qxF2wKUYMI9n/9EDTTvBE1H +ZeejR/I5bxVy1GA9M3dg80geih4c2y9aqwaeY2IMjS05qCOhPW9fgxpUPlhn +2XU9B/EdeSdu26wGbskKRvs1ctC9ijCGuHY1mJPpb1lKeYEik3fX8fWpQYPW +iQNzV7LRbeszpsxL9HgNVQSQQxZKO9xnd3ZFDU5yjDacFM5CHw5an29cV4MH +qLjE9HMmmqcceBDBpA6b1qbDCYcykZ2c8hcBfnVQWtod9/xABiL9mXeSVVYH +vsfh6xmn09ChOY+LYWrqUIMuC/TsTkOuv0ZujRPVoam6w6Ns6hl68qM7++Ve +dQhi+vHrZsgzxNFUNqNhpA6vPTsr1tKfov6E0CBDRzoHO/jdl0pBqzHrEc+d +1YHdvV9oZ80TJBh18Qmnqzpo8LIH1Jx5gg7+d66q9bw6KPyy3ryU8xgVuZmw +2YSoQ2/x98V1g2QUvm9bzLl4dXjgrmxUkpuAMjUi0puS1EFZv3z1r10CqlJj +eauUog5qR6O3a/IloCXp5S8zGergCRa2Fy7FIwfuXrGA1+pw9NSN+22H49Ce +vmcvbreqA9uL3jCq8kPEr+a6UtChDiIe3p36v2PR1DW1Az2d6lDX/sLP800s +ypB5P6LQqw4ZFDaBOkosEvTokqCOqoOPYXva8RMxaC2E2ZSNgQDqC/8Kbr2K +RuOZ5y4kMRIgj4tdSPhaNOpua05UYyZAWmR8vO6haPRaMnrcho0AoilqrWHd +95F7nWjYcx4COCequrecvIe+cmtWGwsRoGs2YjUnIQI1aCSO9wkT4PaWwe/1 +BhGo6NQGn68oAR7zGOz5MheOogtq7BMlCEASF3L8ZB6OjK0Ob0zsJsDGdybd +AYG7qCTJVSuCRIAPWpfmxZrCUFYtzV5CgwCZfbwbrqFh6OGUWtibPQTw4NPS +CqWEIR+01PVtLwHaVGjCO4pvIYWh/y6oYAIc0CH13yy8iRIUk/NaTQkATJb6 +j5tC0eKCUeaNQwQIoEToLN0NRYcr5h9rHybACalWq11moYjNyiQy05IAcVm7 +hN98+g/5h6y6X7ElAI8aA/fK+HVk2X5MQdWFAH43Tr644n0V5ScySw670uPv +FTttyHkVcToX7Ex0J4CxdLOZbcYVVLXCxs56ngCuobfirftDkLp08c++iwS4 +Vd3CSnQMRjz+gumRoQT4uED1kE4NRK64KknvJgH8n7i6/DANRLWcnjErtwhg +5PB87eVqAApKqf3P+S4BzlezXfU8HoAmGi847I8mwI7zZw9ISV9CDcIfxaae +EGDe/apZxrAfkv4Zsj0tlQA3FK7nTKX6oSsFCrzHnxGAtTzaVvCUH9IwuL5R +m0GAkl/x8ctfL6A0L/VvybkEKJz/MVT23Rddq4pKMC0lQNImR9Mmlw+a/F71 +cLWMACk8F9IZc7yRzfpC9PMPBLhgpz11BnsjFc0Td5mr6PWy5/ysdf486smV +C3rfQADb5zp9Wd88ESm+8qRyFwEk3ko+EZp3Q0+K5o99/UwAd0JkOinJDXF8 +2n309hcCWAll2Xvqu6EfPJFmw70EUEZnXpITXVFk6HFK8iABzlxY3l5o4YJG +vebEuX8T4HKlxmf/BWdkESErUjpL9xcln8P80hl9yD6202WeAFLXuqlXzjqj +2OFyvtolAsQYLSoqfzuDwDacIXiDAMK0I7NCH51QkoHM0CQnEd4aP4oZGHFA +rE42/QncRLCbv7lrJMcB+Vy722vESwS5JfuybF8HdKDs96c0fiKcZfnx1IPR +AS2qf6g9sZMI9uvEO8pW9uiQiHUmVZZuL1SQyrTnJEoYUas6KUeEEsrUd9Pv +J9BIHse3KXkiaPpYxT0PO4FC4AM/nzIRgll4Qu/22aKXZ2VCrIhEiBJ1fZHy +8DjiKpyz7KMQIeXV0FYXsg2yuUzz8sJEiJP2sDj3yxql6WXe+QdEcLiSf8Q4 +wxppfz5eIWlAhHeu5U0vdlkj17VKxbMmRHh4NOh3AvdR1Ghwj2HGhggxaonX +FnZaom1bXEWuHSdCDup1/dVngey/6GrynyDC5KGgsylpFmjZbcmDdIoIz6xs +slQIFkjuvt2XS2eI0HJZfnue1RF086tS/qY3EXpX2fs+XjyEOtJYmqN9iTDG +OVu3W/AQEvXsH5byI4KN5q/lvCIz9ObfAyGDS0RozDaxN1s1RUMyqzfvhBBh +1ymV9yejTZDu+caTW+8S//8/RMD7+QNorWfCqC6cCAKMb4y3PDmAivR5SAGR +RNi2dI43wvgAkhOy4Ph+nwg9SRYt82lGiKeutyg7jggffDXs+M8aoh6hGV7I +IEJIYNFVaxF9FHOTf3U+k15PDt+wiG49ZPqbNJL5nAgzEnpOr2P0UEVdQBl3 +LhGWP57+Ws+rhzK8GV2+vKLr8ejiwMstusinXrDqfCURlBqP5Tf7IqRE0MqV +qibClaTc51eYERpOso3rqiGChh2vbXEcBdn4pHjuayCCokW8+rPq/Wi/iIIQ +WysRWJqs/doVdBCHr86FJ71EYDbs33Zi715U8+3UqSN9RDh9xOy/LQNaKNjo +ujFzPxEo+swqG3e00IxIvbjbIBH0gjTcLvRroq4Gc5rGOBFMR4Z/H4vfg1JF +nWRblojwvN3fMoVCRvvIympOf4gQGaZ68PU6CXUdXNRaWSFC2lUFsbQyEuII +CDOV3SDCZuGmAZcOCfl8zLkQwkSCxXd17YWGRARhC1UqfCQoO73+VZ5BHfU+ +/kCt4SeBzFDq3aOP1NDFN7e6jm8jAdg9zhtTVkPZAzvHb24nwZbkD+Lqp1TR +Vp39fN9FSFA+a368oV0ZDf2+eSpKgQRrDtoVDnMKKITN3EVGiQS0A+7Gv5MU +0A6xnb6lyiRw26eT/sxQAZmYvLj5U40EO17+HHBKkUevM1pzKXvo9pzxL+bs +5NAN2x1r07ok0HJcWdLklkXiPj+Yb+rT7QXZG07Uy6CSsGxeYUN6PFxc3R7X +ZdDUm31SRsYk6DWE0IOr0ujoltPGKeYkmHBqq0xdkkKytc/jzE+SYH5GknH/ +DknUprKS0WdHgoRxe4PRcgkUGGf8xt2eBC21Y0MNRyQQzW2iPcyRBI89+91a +gsTRBX5lzkoXEvSs8Bm7/hBFlafyg9UvkmCMzZ+db0wIuTb+u1vuT4IL48pf +IqOE0Dbi4QTTABI8GqXu2btHCJ1jmS1yCSJB5ZjSPo47uxBPLnEm9ToJlm/9 +w7I6O9GJlSIH/igSHP6mGqfYJYhYnFi9U+6RwO5i7GdqhCDKp1lfUYkmAe+x +CnNHA0HEmLqcaBxLAuW6R9aOJQIo23Bv5/VEEjiQDr07lrsNLcW8N5zLpOvX +6X8uqowfpWxwH732nAS2r90uiF7nR8bn7Jx4X9D9bYXsC0b86LH236uKL0ng +yn00qiuHD+kNoBLH1yRoYg8Rvb7Ci6JVa5Q+VdD1P8Tj8a2bC2XvPckZWkUC +70gG2XQfLlSpvzhGrCHBODNb7Sg3F5qxlct8UE+CiIW2gy1GnMg0LFzCooUE +ybvEXl5tZUdsPywFO76SYCGPMKsizIrEJn/NX/tGgiO7gvlsmlmQxtLNj+rf +6fV1OxOQd5kFneF+d+/+AAlqwo3XP39nRlVaIpyHx+j58dcLJr5hQsHRw39b +F0lwJvPCV58HDCgmOaTvyjIJHKP1tJIsGFBO1vb3qiskGKQIVL3ZxoB6PhwI +jFqnx0/aq22lvknRnMidN2Miw1Co6/Gw438phxYNPm4wk6HA7oWb5NgGxXnz +e8FLVjJ4xXI5nwvYoMRu5/fi4SSDxxPdmO+P1ymzuhfHaHxkeOVyhO3T2iqF +4xBvQ/BWMsj/Z70oE7dKkTielaEsQIaaQJmFedIqxfx8j2PEDjLs1TyA5n1W +KLlJ+/tMxMjw9OUersG/y5RzCywfm5XIoN39877gsUWKfY5Bm50KGawcb7ls +5V2k2DjepP1WJQNTz9tj2+sWKEbtzA3biWQ4tHnvkOyeBYpcLtN7Ry0yHMnZ +UfZXep7y04khc1WfDFraQeblSrOUPiH6aGhIhjvnCA2kH78pXR3XUiUOkOGi +4pfyB+6/KXVoM9HQhAzXjsdIq4bNUDKE/917cIQMxw9061I6pijOn9YDFU+R +oXTMKkUkd4Jid1fn0gd7MnyLa3lcbDZBOQrBfocdyLC+9mM04/c4xSB/zcv/ +DBlCpG99dtUep8iGrzpVu5FBVdm8g69vlDKs+8fM9hIZxjc11IVOjFB6VzRN +pgLI4AoTjn1bRiifCi4duHaZDP6eKqEFdcOUGrFl3cwQMtxm35J8iTxMSVtd +1JwLJcOZ4G9npMWGKE6v5iXv3ieDzYDL5oTYAMUz1GrD5AEZmp8U1e8t/kHx +tyr6whNLBjX0UeI96QflzpL/veg4Mrxv3Ev4Q+yn5Guvrsc/IcOE4QtFd+M+ +SgnXiS+2qWQIfPiGs+fTN0r1t7LXIs/I8P3N898yp79Ruq6EuKVmkMFFQEFv +75Veymr1ZndWLhm2P+9zCm/roTDFOrx2zaOvVzjHIuHSQ+Fxro5SKiBDtstF +N1vGHoo42w2D/NdkOHUryypz3xeKgQnb67elZIgz4pAcr/xMif7EE1XXSO+3 +69LN3/g6KUnpXq5hzWTYOJhiNFP5iZJ+sU3fmEaGy1d+FBr7fqIU74heo7WR +ofAAT3fVl4+UvhMCrp2fyUC+NXeV/KaDMqp8Uf/RFzJ0SU5Nr3p2UH5vdIkf ++0qGPqWuY4PyHRSm1LjPvX1keJeYw8Ok106RHxbSHxomQ6yoicA2aKUQioLE +M36SoTq2aEdJXQtl361vq2fHyFA+JrX3pGkLxUz+SeHEJBlyD5/uD7SnUS54 +SIrPzZFhstOscW9yMyVk/3+rrxfo/fDXcnRarZlyi3eo6+ISGbblth45U9dE +SShIj1hZIYP5q6SWC4uNlLTrLC5la2RYq8lj3bzXSMm1OKsXskGGNr3BHnXl +RkqRdIMY+keG0Kvvn/xraqBULMitbm6S4YvKzgZn1wbK/wAtXofl + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.21372310935545752`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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, 20}, {0., 0.21372310935545752`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991336179267145*^9, 3.9921005661835575`*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"c5bac7b1-5ca8-e24f-a9c3-0dbe9b6617e8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel-> + "In[121]:=",ExpressionUUID->"028f7072-05bf-cf40-ac60-9f298ef86e88"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVmnc8V/8Xx+0tioY9s8dniKTP+33MhBSilISUHZIIja9KZZQosygrkVFJ +KHt/PlaRJMnKCtlZ5ff5/XPv4/m497zPOa9z3u97/rhSTt6WZ5kYGBg66Zf/ +359cdWIjOicj+YnyQqs9HqiuU9LsmORlfO/RzF6bJWO82VBxQ1LyLo7sWD8m +uHQcP6mKkmCVTMTlygImtEVX7Enx9/oj8QJ/ipO3YFsMxJ3rrg9nJUrxKcV1 +kJ67g9m/DclPSzTjgcOOInk/E/AzaqrvL4mv2E7L6PuukmycX3D3m6faJF55 +o87ydL4ET26bjDRxnMT1p3+5sdLXkb9kghQeTuITW3d/tjItxU/3cz8bXp3E +jIsBsrnppTimOfLcifpfeGa/9F1sVYYvDd+fO2A3jVf6VJf6897jVG7aja2G +s3imS89643AFdsEfE6cuLODkqs1ExafVmCFtuexbxALmXuGOevS6GiewiPZR +MxbwS5WWoPm6atzUfE78RfcCPlpmvu3aRDVWOLqRdnbfIm6jWjQPEmvwuKv8 +y37GJdz+POxUTWUNdo+5UtERvYxr0Jfmx+21mGkp7Ufli2VcdkDQh3+gFicd +a2IoqFnGCXk1iX6ztZgqKqAftbiMZ7sczDm21mHl59mNB4//wenZItLuFnV4 +6n1nR43ECm4d8p9ka6/D538qDhflr+IcP8YLZ8vr8YD9V47q5lV8xSph33RL +PbbquaPWOrKKn5doHnLoq8d7aWOXfwqv4YIj/5Q41usx86tM/h2313DsDa7m +U1oNOCFECgWcXsdrKQsbu1424GoBoURt/r+Y9vCzR+KtRqwR1VRhqPwXX1Pg +KwyKacRZbIEjFkZ/8X0B5yNGqY04crVb3T3kL+7w3Rv9uKQR2/x42JA0/hc/ +rXp6zWCyEU/m8C+uV/3DOaHOUlcPNmEuqZvyP/YywDajRcq1P024af8D9auG +DMAk0nv/D0MzDjueoiVmyQC6Ryxy7biaMVN0yYGTHgwg0PFj37RoM177N+Xy +5QkDqCdoZcrrNuNffdbZ7UyMcOSrjw5jWDPOWXEqPM/HCAU3v3w3vNeMXQV9 +SnhFGSF4u71BQFwzHjENbzLdwwimhwtOP81qxn1lFeONLozww6ZhkLuhGbck +yCtWtTAC10j6gjEjFYcXaRBPf2WElavGuic4qNi4Q1f7309GsG8jnz3OR8V1 +7HYH928yQgz3Ay0RMSr+cCnarYTIBOHTerrvtag47+jqi8I4JmD3S+R0caNi +Tx+214fTmSCRI+CjkTcVK0UKlM0UMMGpR6kJAv5UnFWrSlVpZoIX1uKki9ep +OIXkNJm9zgTFGm8XLOKo+B4/TemZAzN45d5hv1FBxaVaYm/NzzPDwLndlIRa +Kh6x98YbwczQwvnFI76JinXyBI4ei2cG8nmTFqtPVDx+0O4KbxszfE/0N6of +oWJB33z299+Y4dy2+VmlCSrGCQwxrhPMMFq8pTFomorjRjOyallYAIbvbP26 +RMX6N6bbL+uwQOFr9DOalYbP5+AT8gdZQL2h6JUxJw0nfXww0mXDAnU29sOT +PDQ8K6G5qn6BBbJ4JB/NCNBwyoer0qPZLBD1WJB/UZKGm4c7XsYWs8D2JrHh +TRkaXuSS0dKtY4F/xIqTy3I0bGrbaPr4BwuYrP4+na5CwytLfP6WO1ihVmcj ++58mDcuIOW1uyrCC5MrkYwdtGjY3KLqbR2SFT43uV/J0aDgz5ngKxyFWSNr8 +T5EDaLijNEeh+AQrUJ5zcezQo+GNgY3XZ1xZISqNbXWLAQ1bqj9rrLjBCtvG +DmnXHKDhqzYLFp4PWOFEvsXjkIM0/OKKYZ9QKitE39LWljalYYaWidmLZaxw +q4x8UN2chpUXdIKlm1hhtru6I+4wDdsI32Pt+MwKpVj5/cQRGs5zJQkrz7EC +O+X+kIUVDffcv5nR848V4qrrNFyO0jDLu261MB42SCSYCrpa07B6v0IpWZgN +hMvWIo7a0PAJ1mD9QXk6t9dkqRyj4TCV1tZ7e9hAhSHHe5bOr6wkju/XZ4Ov +31rnUo/TcF+Q79DEETbgbHXaq2NLwxxptZ7x9mygsPrGvIbO5Obtfww82cBE +XAb2nKBh+1mX/+Yv05/7Kux6SOfwnWXcT2+zwUqQ5VA/nd8inrhDj9hg7x/D +nO0naXjgrL3kehobWL0qD95LZ56owpzsQjYgOYU7HaCzVhHTHpsKNkiPinHX +o7PTt6OVzC1sUHb6U6oinbmSB718v7LBrtwC7n/09V+fOC/6Y5QNWscO+1XS ++YTwOtVskQ2yE4yGvOjM3Hv7chkjOxT073PmpPPLREEFBT522Dw+xhJDz+eo +7bPuR6LsUMwi3MFO541dareYldghU7Tooztdj4yeMrKvFjsIrr7Y/p6ul1nC +gaF+A3Yw+s2UvULXd/FYV7SZJTuIEL8+lKHz452OuOw0O7i9tB3XodfD8Mv0 +tLwXO5ydrM3XpddrJi7o8aMgdlibcVvUoNczzobdlPkOO8zuLKzfbknDo58l +s/vT2CHAhJPylN4P9x7l2ZgVssO2F3jjIL1fNK33sZaVs4PEQ7vLg2Y0fLvL +yulRDzt0uRwd+ErvN8LDAX7mUXaoNxsY3mdM7xcrr0qfBXZQv1jUc9eIhhU6 +w0TNtnDA+SBr6hy9nztiBGilIhxQ02k3yKVLw4GWTy/L0zs/REpKfBum77eP +pd1MBhwgX8+Lfu2jYfeOqejSyxygX37wfjORhrdFX8bytzkg+90jU2t1Gi47 +zDbz8CEHdLqnJrbT9x93u4SpTwEH3DEXlo6Wp+vfaskq/5MDyiwPueuJ0vWP ++vHm4TwHmKiWaBsI0fU383RiYuAEQe0mrj07aPhQy63K78KcsN/q5+QwH10/ +asnlh0c4AeVG7wlkousXbqjAZM8Juy/qZCz8o2Jk8qnb24MThPW237Ffp+L7 +zb/IpmGcwC8lOcm0SMWEJvEZxg+cUMfz9+1t+nnmW3/TyVueC+qXGMPv1VCx ++IgR2zKZCzJHrqba0M9LGhNnTghwwabFmuTWMireDVFzd2254J2WWNKpV1T8 +tezR9YwILpjP1WmwTqVi3cKslK+/uSBfP0axLZCKZ9pc9Rw2uCB427W5Gj8q +Tp5WGh3l4IaM0pa5nPNUvKRUoLooxQ3Y/EX7UWcqfpH57sOWo9ygXVB+futh +Kt6a3NSrX8IND+ov1mhLU3FFafhVah037Jwq1nYVpWKPHjNpi4/c0DRV+yF8 +BxXXb//oZj/JDfb9EyIvuaj4cvTXlUBRHvA+iN85zjfjwVuTO/Kv84D4mq12 +RmUzfuXDY7XrIC9k2DLxjVrQv2dJApfzbHihKbxLWdCkGY/WCafqOfPCZEAS +0tRrxsJCir88r/HCxvRypA2pGd+sNrxR/ZYXtlbYV3Bua8Y22669cZfeArbn +kjhM2pvw2ps5gfL1LZCapmNSoNuEnwV7TBKO8UPxq3K3Zc5GTKjiXLl9ih80 +3JtenWJoxFUs2aw/zvBD9jauUxXLDXggakQyyocfvud67vAcbsDiT08dm7jL +D30adzKCPjTgpLrDdc8+8IPIju6nPl4NOIZXI2Wb9FZQXFjvlqbV49DUDYvF +qa2w0ipamRlYhxk6B+BDkAAcLHHpkqyuxnIXzwUeVdoOM/cI11liy/HIUrwN +d/kOiHz/py77UAk2+el+JcZ3F+gXWjW0ib/B5iPRyuLiwvBNx1N73CMPtyiP +dNnJCoOqdx2qOJSHTf20riYrCUP+tYuvstXzsDFTf8cuLWHYTDk/UrbwEutJ +Kl8SOCIMfCc50rpCXuI9dvVVHKHC0GScQOiPycWiXavWCz+FYY3TZqdJ2ws8 +Wet0vSlPBGzZ99vphGZhiQc97veKRMCgPFiIyyULH7U3tz76XgSc8496zJpm +4YoVbaWBJhFo3pB+x7wjC8eobu36MywCcKXbwiA3E+vEV8rLC4vC5iY+ptCb +gSPdRdtvhYnCDTeTIbOD6bhaK6bUNEoURiMTxxiJ6XiZhSNj60NRSEl4n9W6 +Kx07pC4EPnkmCpdGXYgvxtOwRhdV+u0HUWhpSYn0vpuGv1MuXxqZF4VIr2fl +xPZnWG1rt5j+aTHIgIteph5P8WjUaOijs2JwfJ70QuPYU/yE68/YmIcY2Kt5 +5hH0n2Iell2vIwPFwBj5TTuIPMWTy7ZG3Q/EQPr+aIleYirO7Pt+3q1OjL6/ +FV9pnE3Botk/K+8risOfTbaXJ3c9xl2yy7JD6uKwOzZ5sXwxGUc8YwvX0BQH +hV9F4fofk/FakvzRr3riIJTrZ1kSnox7otzGpe3EIXa+hWi0mYRj/ab5i++J +Q4ez05ahmUTMhZcc+xbEoWQg8ea9sXgcqKvAUbwmDi32Hwbj6uPxqP7J/PuM +EmDvYl1Znx6Pa4yr1/T4JOB3Po6Jc4jHQZZRsS+UJGDocmohY18c/nV2d/0l +RwlYFZgOGP36CLdEWitsbZeAATPxQNW5WLzv/p22yc8SIHbx6++PnbE4+8H7 +i3V9EvDZf9edxOJYfDNOqjpgUgKMC4xePgiJxeIdyyq/mSRBc8G/WporFnd/ +ram3FpcELys2lkLlGHxg+sQfaWtJMBQQffz2djROEbzRee24JBA7Tzf+PR+N +F3VyC/pOSsLc8+ZgZ5to/DR83SXOSRIyrkfsjNodjdfkH/dw+kjCz/v7r0WH +38cvnb6XzoZLwqirAVOq4D3M33M6pKJKEi6bHVr9YhWBz23ePi5SJwkHi862 +ZipG4A9yhRqBjZLwfkfn3pzNcOzmzzBNbJOEcsklDpuX4bhm27NTmd8k4eiy +wQqZIxxfPDSEIpclwbw79EFf8x3cU+PMeEJFCmbHNAau+YXhWd1e4SvqUrA/ +3EtTxjIMs1cf1nhKkgKLbPHkWUIY1qzc5zK6Vwo8VR7Mcvy+hR++52+9YCgF +wUKv/ZS9buHDRR8SIuylQGbW4fB235u4IVOQUB4tBT7kWD+PuFDcLxt+cCBW +CoYlTJ6yBIXipfRNJ+Z4OvdnM9SeCsWyaZOPDj6Rghy/svr83aE4NKVq/fML +KfCKmzFC7/7DKN6zcaZGCtoJI7Gig9fx2zt19pJLUvCc2flz7pOrONuEtuv2 +ihT8VCphinW7ipN4Pn2aXpeC0+6i4w17ruLr0T+M3jNJw7r8GX+B9iv0eWNN +zYZfGgx9NX7sYb2Ch54TNiOUpUF1z4VBy2vBeEvj49Q/jtKQUmP96UF2IGa8 +m25rf1YazpfY6rtcCcSLJjkC9a7ScP0AFF21DMRf297djvGWhqFB5cMX/gbg +jO5P3qpXpOFWPu3uGZsAvG+UA84kSIN4ud24vOAlfI7Vf6CtTRr8JraYCZb7 +YWGJ5i/rH+n+7u4vnkj2w217xdoVPkvDychv5NkgP6zpWV8e+k0aOGS3BN3X +9sNsnduTNcelgbIr+hV/6QWc+bTYOoVRBqrO/XKfrPLFIzorVC8NGchm07Ht +GvHGCdZmNUlaMnB3u9214TxvbOb9tLRxnwzcLlF7aBTgjYvSjLOldGVARr2n +j43bG9/kTLz1+ZAM+K9bGThrnseyX7SB4iIDmwfZr2k+9sRnLgS/5UmSASlt +fX2vZ25Yk9T/VvGJDOhcun1C0N8Nc81DsdFTGbhSdW9m09gNF/qyvbueJQNZ +xSZy6XOueMPnQcniaxko+uAixG/kiuO8n7/vo8nA6JzBUa31c7jZs7P65V96 +PgpPOF0eOuPHKpo1zQyy0Jko7L3s7Yx9phJqRpllgav8dHWlqTPe4WlfK8kl +C2ZRIbP/mJ2xk8dE3cMdssBrSB2XCziDN9w2G0PUZUGv8E3bVxcnrO6i3Gbm +KAsD/7aFV/k44H43Ce88Z1nY4kOUuXTEAUd6CvBvcZUFh3b5dWeCA57wXbdo +Py8LButb+HsHT+P0ENpnixBZaBOkSuybsMc7Yzy+28TLwvjoGo8zzym8+SF3 +yqFVFoSIBuV9qbY4vzI1qrpDFqa3J0RZetpiu5pYNekuWQjmfeotp22LSxuD +fYZ7ZeHSVQX+0c7j2O+T6eLZcVmIzVX6r4j3OB4b+7XuzrwbQvX7wrfE2OD2 +bSrc/tq7gSLULDv41QojL6+J5P27IcjmefGHN1Y4vzG/sYY+Vdnka4p+i7LC +90KIN/mNdkPb6331/XpW2GxU82+u5W7IkQs+vVxgiamlur+HPHZDV0ri6JY4 +C1zvcKzzSMpuMO4sYAsVP4w13ie8Cni2Gxzvcgz5DJrjjO2991MydgPTSPzl +1gxzfJNqZzaVsxt8WZwkW1XMsZ6GU/3td7tB5KCJdafuIVzF7vWuomM32A8N +Jp+7Zorf54cmqzDLgaC+qDDRwBizmVkLx7PJwRPZpIVbfMbYYkI+kZFLDnzj +TEf1vx3AYzKtcd38cnDvZY/Cit8BLJC4M+a6uBz8qfr9TTXHCHvceHmnS1sO ++HNNTqsrGuJiyWvsmCIHO2zWpKvWDDBjhUXYC5ADjhD5+vwWAxy/snzj6gE5 +iOcoWk/zNcC1XrrXFKzl4H7CM2pXpT4WOd7tH+IjB0/VHvG3eerhc0vZi6N+ +ciD2cy/Lb309/Com2M8iQA7eLao8PyOihw+0SvrKXZUDOfOJB4Y0Xeyn5+HZ +ESEHPkJxR76p6WKaCsMZ2edyoFx7fl8LC+BgRqUjLd/lQDu4YUtduw4eNeDu +kRuUgxOLck4jD3TwkTtTp/8bkQPpzO86N4/qYFm+Am/NX3JQySRKRd/24RZR +jftPV+QgTMz0ya0ZbSy+F7VdFJCHbsUhuwfKe/GdYAmb9h3ycCzAPIGypIXn +Kxj6FYXlITLx6u6TlVq40bB2ul9SHoKmI3tHj2phHytj3oNq8hAozn1D8ZYm +rjlvaSZ2UB5GgiLHs1Y1sMprcleAmTx4aasGsVE1cNySoN2nw/Lg63fyATVJ +A3uEfPG4bSMPnHLvTK9QNLBguF3E3Bl5+nxltjPwNhmfyzxHrb8qDyL6rfaS +qiTM1RdkfL5IHnZLWazQLqpjzYAXvPffyYN43HBMB0EdO27r+VRQRo+/L1XJ +floNlxjvOTVXJQ99O1xO87uq4XNvf/tebJWHG34nE9+eUcXV95yTg0blIf/r +01Nqfsp4SjHWIXlCHnY2kIoPaynjXfXVuz9MyYPAtbK1yXUlfH5dvPDvvDzc +LpUrjQhTwqKuX+uub8pD+/e8wFPPFOnziPlM2C4FOMl3khg6JY8z+kLePBdR +AIptcHLvO3ncHpAb2CSuAPyvw0+n3pDHcvkczFy7FWBmTanGXVQedwrX7owi +KoCWimT3vKUcVlvU0o01UYBjXtvLRDpl8c8sqYepIQqgsyHWWiAsjaduDq4y +X1eA3hINxeIZKTzv9Oy06w0FcLAszZKslcIMElLKxHAFGOWWLhf3ksLC8ZI1 +NfEKUJ4+XZBdL4mP3JaY/flaAVbydvWF8UvgY2d/WJsUK4D22ZP/jteJY3v9 +1Pf5pQoQzOUa3Bsojj02xW8HVClAxC/t1z+HxXBYgLg4Z5sClLZ1/VysFsUf +XMTMVCYUgLYre7X8sTCuNfz+KnpKAQjcg3l9J4QxVebJzqXfCnDT82XOQyFh +/OWH6HD5sgKMK963piUI4fljokGHWRRBPddxSD1lF1YwFsm+IKEI7WU6QdW1 +O/BDBSGWUmtF4GGpfPzDVwDb2cs9Hz6uCE4hgqWCBgJY9iHZZIudIgyX3PMu +2CGAizYPRZ9xUoSN69Znt5Vvw13doaJbvBXhu2f/UMCWbVjg1pTGmTuK8DR2 +T/jWWn7cW7b6JSpCEa4YntbVTebHabNswSX3FCFS6Lci1Y8fk+ykqnkfKcLs +55znI7v5sSXZ5lDJM0UwV01PPiLKh2MGK8/yvleEsaC704/7ePCJna0ceysU +oe2f8dDleB4sfag316laEbZtJu1ZsOTBr0sW5941KkIZceDjWxo3/nRf8apT +lyIURx10PFbHhbei2Lh304rAzKzd/aeDA0cnnWt0lFSCR29IqncOs+KAS6F+ +ITJKMP6gczFdlBXbW6ZIxMspwczvlnekSRaswtUd0KKiBFk6n5wzw1hw82VD +BS1tJbCfdd5TX8eMmWxl7/JYKsGKJIO7jDUTntCAPfLWSiA9t9DHoMiEO/jt +BnWPK0HPDfRb7y8jTm2K1Q6wVwIZnYPxc1mMeP9e5slBdyUYUf3vy+A/Buy/ +c8jk3Q0luLFIHS26vonsFv4ufwxTgsg/8iRdjU1k0C6UPnVXCQa7Sk5eGf+H +tt22WJeKVgJmm4unNi3/ofzlqtzIx/R4tPjMGAl/0fjnVB6nt0qwG+9vqeRY +RycenmrjGVOC/mjOxHblP0j0DZeIxyQ933EzwZ7pZfTj4zuX5mklMCVPzVwp +XEbOfNsYwxaVoDVA9Gey1jI6H95A3mRUhpyaK1dXzJZQ6HX1xDlRZYBzaRwb +MQvIILXv52FJZZjiqpIi2i8g9oq7pHwZZeD263kwrbiAIteHae5KylCK1Oz/ +1MyjuEsJ/4a1lMFh2DxReX0OvfBkdO62VAY379P67DdmkWdEfqGGjTKU5B55 +KW4zi9RyTv6NsVWGxelzB3MUZ9Hrsbdxhx2UYZ9lhQs54zf64OTe3OSlDCPb +ZWv8j8ygjuOdau/vKMOPI+7PNT/+QisGmaupFcrAFMM3OHZ2DIW8T71RV60M +VLWfn24qjiEGUhLvRB3dX6uXafH0KGKXuC9FoinD4EK718eAUbRjNfBg3Rdl +KB7zdqmN+YnIeWaJ47PKYK5gt3FpaBgVyxyQ4V1Uhr70Q4VV+cNoX5JuHvGP +MuwSeP08PHgY6d3WrA76qwwN3d/zk3YMoyOOkhM8XCowmvu+I9xyCJ3fvriX +KKMC/qrL8q8GBtB8xEyNtZwKmIxdPx9QNID8mSbMghRVIMk3xOLlnQEU8vu7 +Q626ChRr3+k+RRpAEc2Nd6z3q8B6seO129t/oOwryT2XrVWA9E2yNPRJHxr+ +qRdYc1sFpFhytY339SC91LY0pQgV+KnGq3lx8Qt6evxEa8w9FXB0EnvkUPAF +2dN8pc88UoHcHrX0C/JfUG/h0xbmdBUwTOqQNpLsRp+C/0kaVqgArbVwBze5 +CxH3hJvmVavAxZ2Kz06udKLome2XtterwPcmxwOHKzqRuaMq7SdNBbb8HlcX +MutEVCM7/7CvKvCkP+AYp/cnVLO1rLlxUQUUhIo8/nR0ICma4aL6igq8pD1O +K0ntQNdvfhRPWFcBvdj0CWbvDoT+jPu5MqlC5rPmSRJfByrr2ynOya8KU5Xd +OXG5bej1c/8LJsqqUPvyrbrnEg1tdWR88lpNFSSEHlNH02jIRziqUZikCoM3 +pytMLGhILSpD9NdeVWBM6BivK6SinAudDRFGqnCkt20LDmpGaRSiSKujKiRo +/qkw2NOIasy5bqw7q4Lsz8T1xsUGNHR6eFLRVRVulmsz/SlqQDKhj8rCzquC +8ujaUwutBpTRsGoLwapwSMbYh6pfjzIP1yS8eagKTjODaY5BtajBIZlhKF4V +bN+0V33Xr0Wjvhdd+ZNVYYOST5nirUVyD+X2ej1TBe+/DiFl6TUoqyf8i1y+ +KpyQjvu18LkaZTta7UhqVIX9106VZlhVoaYLKlebqKpwUsc/OWV3FRq/wTq6 +3Ep//6wGn9JsJVLIevfWqksVWJ5lLY7sr0QvJkWseQdVoWXX0aKkwXKU4zcS +e31NFQruWv03b/0e5d3y3+qiqgaHB0m233uL0dT+U6G3CGogLneFlZZUjFQW +DRbSyWrQdJ1mefZkMcpxEvw8oK0G97qXBhP636Js/CbhhJEaXNvZtbdlqghl +rM5KmJ9Wg5GJOpdFuTdopLAn2tNJDUr/CpSOzL5GMq5VjBFn1cD/jG+zy/vX +KK37/nCjhxow343UlLR8jVLfqD3XDVQDtaWMQGLYK5Tk5am254EaEEwuTyax +F6Je2aOpVg/V4NPluRe7igqQUJ8O/4V4uv2N/qxF2wKUYMI9n/9EDTTvBE1H +ZeejR/I5bxVy1GA9M3dg80geih4c2y9aqwaeY2IMjS05qCOhPW9fgxpUPlhn +2XU9B/EdeSdu26wGbskKRvs1ctC9ijCGuHY1mJPpb1lKeYEik3fX8fWpQYPW +iQNzV7LRbeszpsxL9HgNVQSQQxZKO9xnd3ZFDU5yjDacFM5CHw5an29cV4MH +qLjE9HMmmqcceBDBpA6b1qbDCYcykZ2c8hcBfnVQWtod9/xABiL9mXeSVVYH +vsfh6xmn09ChOY+LYWrqUIMuC/TsTkOuv0ZujRPVoam6w6Ns6hl68qM7++Ve +dQhi+vHrZsgzxNFUNqNhpA6vPTsr1tKfov6E0CBDRzoHO/jdl0pBqzHrEc+d +1YHdvV9oZ80TJBh18Qmnqzpo8LIH1Jx5gg7+d66q9bw6KPyy3ryU8xgVuZmw +2YSoQ2/x98V1g2QUvm9bzLl4dXjgrmxUkpuAMjUi0puS1EFZv3z1r10CqlJj +eauUog5qR6O3a/IloCXp5S8zGergCRa2Fy7FIwfuXrGA1+pw9NSN+22H49Ce +vmcvbreqA9uL3jCq8kPEr+a6UtChDiIe3p36v2PR1DW1Az2d6lDX/sLP800s +ypB5P6LQqw4ZFDaBOkosEvTokqCOqoOPYXva8RMxaC2E2ZSNgQDqC/8Kbr2K +RuOZ5y4kMRIgj4tdSPhaNOpua05UYyZAWmR8vO6haPRaMnrcho0AoilqrWHd +95F7nWjYcx4COCequrecvIe+cmtWGwsRoGs2YjUnIQI1aCSO9wkT4PaWwe/1 +BhGo6NQGn68oAR7zGOz5MheOogtq7BMlCEASF3L8ZB6OjK0Ob0zsJsDGdybd +AYG7qCTJVSuCRIAPWpfmxZrCUFYtzV5CgwCZfbwbrqFh6OGUWtibPQTw4NPS +CqWEIR+01PVtLwHaVGjCO4pvIYWh/y6oYAIc0CH13yy8iRIUk/NaTQkATJb6 +j5tC0eKCUeaNQwQIoEToLN0NRYcr5h9rHybACalWq11moYjNyiQy05IAcVm7 +hN98+g/5h6y6X7ElAI8aA/fK+HVk2X5MQdWFAH43Tr644n0V5ScySw670uPv +FTttyHkVcToX7Ex0J4CxdLOZbcYVVLXCxs56ngCuobfirftDkLp08c++iwS4 +Vd3CSnQMRjz+gumRoQT4uED1kE4NRK64KknvJgH8n7i6/DANRLWcnjErtwhg +5PB87eVqAApKqf3P+S4BzlezXfU8HoAmGi847I8mwI7zZw9ISV9CDcIfxaae +EGDe/apZxrAfkv4Zsj0tlQA3FK7nTKX6oSsFCrzHnxGAtTzaVvCUH9IwuL5R +m0GAkl/x8ctfL6A0L/VvybkEKJz/MVT23Rddq4pKMC0lQNImR9Mmlw+a/F71 +cLWMACk8F9IZc7yRzfpC9PMPBLhgpz11BnsjFc0Td5mr6PWy5/ysdf486smV +C3rfQADb5zp9Wd88ESm+8qRyFwEk3ko+EZp3Q0+K5o99/UwAd0JkOinJDXF8 +2n309hcCWAll2Xvqu6EfPJFmw70EUEZnXpITXVFk6HFK8iABzlxY3l5o4YJG +vebEuX8T4HKlxmf/BWdkESErUjpL9xcln8P80hl9yD6202WeAFLXuqlXzjqj +2OFyvtolAsQYLSoqfzuDwDacIXiDAMK0I7NCH51QkoHM0CQnEd4aP4oZGHFA +rE42/QncRLCbv7lrJMcB+Vy722vESwS5JfuybF8HdKDs96c0fiKcZfnx1IPR +AS2qf6g9sZMI9uvEO8pW9uiQiHUmVZZuL1SQyrTnJEoYUas6KUeEEsrUd9Pv +J9BIHse3KXkiaPpYxT0PO4FC4AM/nzIRgll4Qu/22aKXZ2VCrIhEiBJ1fZHy +8DjiKpyz7KMQIeXV0FYXsg2yuUzz8sJEiJP2sDj3yxql6WXe+QdEcLiSf8Q4 +wxppfz5eIWlAhHeu5U0vdlkj17VKxbMmRHh4NOh3AvdR1Ghwj2HGhggxaonX +FnZaom1bXEWuHSdCDup1/dVngey/6GrynyDC5KGgsylpFmjZbcmDdIoIz6xs +slQIFkjuvt2XS2eI0HJZfnue1RF086tS/qY3EXpX2fs+XjyEOtJYmqN9iTDG +OVu3W/AQEvXsH5byI4KN5q/lvCIz9ObfAyGDS0RozDaxN1s1RUMyqzfvhBBh +1ymV9yejTZDu+caTW+8S//8/RMD7+QNorWfCqC6cCAKMb4y3PDmAivR5SAGR +RNi2dI43wvgAkhOy4Ph+nwg9SRYt82lGiKeutyg7jggffDXs+M8aoh6hGV7I +IEJIYNFVaxF9FHOTf3U+k15PDt+wiG49ZPqbNJL5nAgzEnpOr2P0UEVdQBl3 +LhGWP57+Ws+rhzK8GV2+vKLr8ejiwMstusinXrDqfCURlBqP5Tf7IqRE0MqV +qibClaTc51eYERpOso3rqiGChh2vbXEcBdn4pHjuayCCokW8+rPq/Wi/iIIQ +WysRWJqs/doVdBCHr86FJ71EYDbs33Zi715U8+3UqSN9RDh9xOy/LQNaKNjo +ujFzPxEo+swqG3e00IxIvbjbIBH0gjTcLvRroq4Gc5rGOBFMR4Z/H4vfg1JF +nWRblojwvN3fMoVCRvvIympOf4gQGaZ68PU6CXUdXNRaWSFC2lUFsbQyEuII +CDOV3SDCZuGmAZcOCfl8zLkQwkSCxXd17YWGRARhC1UqfCQoO73+VZ5BHfU+ +/kCt4SeBzFDq3aOP1NDFN7e6jm8jAdg9zhtTVkPZAzvHb24nwZbkD+Lqp1TR +Vp39fN9FSFA+a368oV0ZDf2+eSpKgQRrDtoVDnMKKITN3EVGiQS0A+7Gv5MU +0A6xnb6lyiRw26eT/sxQAZmYvLj5U40EO17+HHBKkUevM1pzKXvo9pzxL+bs +5NAN2x1r07ok0HJcWdLklkXiPj+Yb+rT7QXZG07Uy6CSsGxeYUN6PFxc3R7X +ZdDUm31SRsYk6DWE0IOr0ujoltPGKeYkmHBqq0xdkkKytc/jzE+SYH5GknH/ +DknUprKS0WdHgoRxe4PRcgkUGGf8xt2eBC21Y0MNRyQQzW2iPcyRBI89+91a +gsTRBX5lzkoXEvSs8Bm7/hBFlafyg9UvkmCMzZ+db0wIuTb+u1vuT4IL48pf +IqOE0Dbi4QTTABI8GqXu2btHCJ1jmS1yCSJB5ZjSPo47uxBPLnEm9ToJlm/9 +w7I6O9GJlSIH/igSHP6mGqfYJYhYnFi9U+6RwO5i7GdqhCDKp1lfUYkmAe+x +CnNHA0HEmLqcaBxLAuW6R9aOJQIo23Bv5/VEEjiQDr07lrsNLcW8N5zLpOvX +6X8uqowfpWxwH732nAS2r90uiF7nR8bn7Jx4X9D9bYXsC0b86LH236uKL0ng +yn00qiuHD+kNoBLH1yRoYg8Rvb7Ci6JVa5Q+VdD1P8Tj8a2bC2XvPckZWkUC +70gG2XQfLlSpvzhGrCHBODNb7Sg3F5qxlct8UE+CiIW2gy1GnMg0LFzCooUE +ybvEXl5tZUdsPywFO76SYCGPMKsizIrEJn/NX/tGgiO7gvlsmlmQxtLNj+rf +6fV1OxOQd5kFneF+d+/+AAlqwo3XP39nRlVaIpyHx+j58dcLJr5hQsHRw39b +F0lwJvPCV58HDCgmOaTvyjIJHKP1tJIsGFBO1vb3qiskGKQIVL3ZxoB6PhwI +jFqnx0/aq22lvknRnMidN2Miw1Co6/Gw438phxYNPm4wk6HA7oWb5NgGxXnz +e8FLVjJ4xXI5nwvYoMRu5/fi4SSDxxPdmO+P1ymzuhfHaHxkeOVyhO3T2iqF +4xBvQ/BWMsj/Z70oE7dKkTielaEsQIaaQJmFedIqxfx8j2PEDjLs1TyA5n1W +KLlJ+/tMxMjw9OUersG/y5RzCywfm5XIoN39877gsUWKfY5Bm50KGawcb7ls +5V2k2DjepP1WJQNTz9tj2+sWKEbtzA3biWQ4tHnvkOyeBYpcLtN7Ry0yHMnZ +UfZXep7y04khc1WfDFraQeblSrOUPiH6aGhIhjvnCA2kH78pXR3XUiUOkOGi +4pfyB+6/KXVoM9HQhAzXjsdIq4bNUDKE/917cIQMxw9061I6pijOn9YDFU+R +oXTMKkUkd4Jid1fn0gd7MnyLa3lcbDZBOQrBfocdyLC+9mM04/c4xSB/zcv/ +DBlCpG99dtUep8iGrzpVu5FBVdm8g69vlDKs+8fM9hIZxjc11IVOjFB6VzRN +pgLI4AoTjn1bRiifCi4duHaZDP6eKqEFdcOUGrFl3cwQMtxm35J8iTxMSVtd +1JwLJcOZ4G9npMWGKE6v5iXv3ieDzYDL5oTYAMUz1GrD5AEZmp8U1e8t/kHx +tyr6whNLBjX0UeI96QflzpL/veg4Mrxv3Ev4Q+yn5Guvrsc/IcOE4QtFd+M+ +SgnXiS+2qWQIfPiGs+fTN0r1t7LXIs/I8P3N898yp79Ruq6EuKVmkMFFQEFv +75Veymr1ZndWLhm2P+9zCm/roTDFOrx2zaOvVzjHIuHSQ+Fxro5SKiBDtstF +N1vGHoo42w2D/NdkOHUryypz3xeKgQnb67elZIgz4pAcr/xMif7EE1XXSO+3 +69LN3/g6KUnpXq5hzWTYOJhiNFP5iZJ+sU3fmEaGy1d+FBr7fqIU74heo7WR +ofAAT3fVl4+UvhMCrp2fyUC+NXeV/KaDMqp8Uf/RFzJ0SU5Nr3p2UH5vdIkf ++0qGPqWuY4PyHRSm1LjPvX1keJeYw8Ok106RHxbSHxomQ6yoicA2aKUQioLE +M36SoTq2aEdJXQtl361vq2fHyFA+JrX3pGkLxUz+SeHEJBlyD5/uD7SnUS54 +SIrPzZFhstOscW9yMyVk/3+rrxfo/fDXcnRarZlyi3eo6+ISGbblth45U9dE +SShIj1hZIYP5q6SWC4uNlLTrLC5la2RYq8lj3bzXSMm1OKsXskGGNr3BHnXl +RkqRdIMY+keG0Kvvn/xraqBULMitbm6S4YvKzgZn1wbK/wAtXofl + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVmnc8V/8Xx+0tioY9s8dniKTP+33MhBSilISUHZIIja9KZZQosygrkVFJ +KHt/PlaRJMnKCtlZ5ff5/XPv4/m497zPOa9z3u97/rhSTt6WZ5kYGBg66Zf/ +359cdWIjOicj+YnyQqs9HqiuU9LsmORlfO/RzF6bJWO82VBxQ1LyLo7sWD8m +uHQcP6mKkmCVTMTlygImtEVX7Enx9/oj8QJ/ipO3YFsMxJ3rrg9nJUrxKcV1 +kJ67g9m/DclPSzTjgcOOInk/E/AzaqrvL4mv2E7L6PuukmycX3D3m6faJF55 +o87ydL4ET26bjDRxnMT1p3+5sdLXkb9kghQeTuITW3d/tjItxU/3cz8bXp3E +jIsBsrnppTimOfLcifpfeGa/9F1sVYYvDd+fO2A3jVf6VJf6897jVG7aja2G +s3imS89643AFdsEfE6cuLODkqs1ExafVmCFtuexbxALmXuGOevS6GiewiPZR +MxbwS5WWoPm6atzUfE78RfcCPlpmvu3aRDVWOLqRdnbfIm6jWjQPEmvwuKv8 +y37GJdz+POxUTWUNdo+5UtERvYxr0Jfmx+21mGkp7Ufli2VcdkDQh3+gFicd +a2IoqFnGCXk1iX6ztZgqKqAftbiMZ7sczDm21mHl59mNB4//wenZItLuFnV4 +6n1nR43ECm4d8p9ka6/D538qDhflr+IcP8YLZ8vr8YD9V47q5lV8xSph33RL +PbbquaPWOrKKn5doHnLoq8d7aWOXfwqv4YIj/5Q41usx86tM/h2313DsDa7m +U1oNOCFECgWcXsdrKQsbu1424GoBoURt/r+Y9vCzR+KtRqwR1VRhqPwXX1Pg +KwyKacRZbIEjFkZ/8X0B5yNGqY04crVb3T3kL+7w3Rv9uKQR2/x42JA0/hc/ +rXp6zWCyEU/m8C+uV/3DOaHOUlcPNmEuqZvyP/YywDajRcq1P024af8D9auG +DMAk0nv/D0MzDjueoiVmyQC6Ryxy7biaMVN0yYGTHgwg0PFj37RoM177N+Xy +5QkDqCdoZcrrNuNffdbZ7UyMcOSrjw5jWDPOWXEqPM/HCAU3v3w3vNeMXQV9 +SnhFGSF4u71BQFwzHjENbzLdwwimhwtOP81qxn1lFeONLozww6ZhkLuhGbck +yCtWtTAC10j6gjEjFYcXaRBPf2WElavGuic4qNi4Q1f7309GsG8jnz3OR8V1 +7HYH928yQgz3Ay0RMSr+cCnarYTIBOHTerrvtag47+jqi8I4JmD3S+R0caNi +Tx+214fTmSCRI+CjkTcVK0UKlM0UMMGpR6kJAv5UnFWrSlVpZoIX1uKki9ep +OIXkNJm9zgTFGm8XLOKo+B4/TemZAzN45d5hv1FBxaVaYm/NzzPDwLndlIRa +Kh6x98YbwczQwvnFI76JinXyBI4ei2cG8nmTFqtPVDx+0O4KbxszfE/0N6of +oWJB33z299+Y4dy2+VmlCSrGCQwxrhPMMFq8pTFomorjRjOyallYAIbvbP26 +RMX6N6bbL+uwQOFr9DOalYbP5+AT8gdZQL2h6JUxJw0nfXww0mXDAnU29sOT +PDQ8K6G5qn6BBbJ4JB/NCNBwyoer0qPZLBD1WJB/UZKGm4c7XsYWs8D2JrHh +TRkaXuSS0dKtY4F/xIqTy3I0bGrbaPr4BwuYrP4+na5CwytLfP6WO1ihVmcj ++58mDcuIOW1uyrCC5MrkYwdtGjY3KLqbR2SFT43uV/J0aDgz5ngKxyFWSNr8 +T5EDaLijNEeh+AQrUJ5zcezQo+GNgY3XZ1xZISqNbXWLAQ1bqj9rrLjBCtvG +DmnXHKDhqzYLFp4PWOFEvsXjkIM0/OKKYZ9QKitE39LWljalYYaWidmLZaxw +q4x8UN2chpUXdIKlm1hhtru6I+4wDdsI32Pt+MwKpVj5/cQRGs5zJQkrz7EC +O+X+kIUVDffcv5nR848V4qrrNFyO0jDLu261MB42SCSYCrpa07B6v0IpWZgN +hMvWIo7a0PAJ1mD9QXk6t9dkqRyj4TCV1tZ7e9hAhSHHe5bOr6wkju/XZ4Ov +31rnUo/TcF+Q79DEETbgbHXaq2NLwxxptZ7x9mygsPrGvIbO5Obtfww82cBE +XAb2nKBh+1mX/+Yv05/7Kux6SOfwnWXcT2+zwUqQ5VA/nd8inrhDj9hg7x/D +nO0naXjgrL3kehobWL0qD95LZ56owpzsQjYgOYU7HaCzVhHTHpsKNkiPinHX +o7PTt6OVzC1sUHb6U6oinbmSB718v7LBrtwC7n/09V+fOC/6Y5QNWscO+1XS ++YTwOtVskQ2yE4yGvOjM3Hv7chkjOxT073PmpPPLREEFBT522Dw+xhJDz+eo +7bPuR6LsUMwi3MFO541dareYldghU7Tooztdj4yeMrKvFjsIrr7Y/p6ul1nC +gaF+A3Yw+s2UvULXd/FYV7SZJTuIEL8+lKHz452OuOw0O7i9tB3XodfD8Mv0 +tLwXO5ydrM3XpddrJi7o8aMgdlibcVvUoNczzobdlPkOO8zuLKzfbknDo58l +s/vT2CHAhJPylN4P9x7l2ZgVssO2F3jjIL1fNK33sZaVs4PEQ7vLg2Y0fLvL +yulRDzt0uRwd+ErvN8LDAX7mUXaoNxsY3mdM7xcrr0qfBXZQv1jUc9eIhhU6 +w0TNtnDA+SBr6hy9nztiBGilIhxQ02k3yKVLw4GWTy/L0zs/REpKfBum77eP +pd1MBhwgX8+Lfu2jYfeOqejSyxygX37wfjORhrdFX8bytzkg+90jU2t1Gi47 +zDbz8CEHdLqnJrbT9x93u4SpTwEH3DEXlo6Wp+vfaskq/5MDyiwPueuJ0vWP ++vHm4TwHmKiWaBsI0fU383RiYuAEQe0mrj07aPhQy63K78KcsN/q5+QwH10/ +asnlh0c4AeVG7wlkousXbqjAZM8Juy/qZCz8o2Jk8qnb24MThPW237Ffp+L7 +zb/IpmGcwC8lOcm0SMWEJvEZxg+cUMfz9+1t+nnmW3/TyVueC+qXGMPv1VCx ++IgR2zKZCzJHrqba0M9LGhNnTghwwabFmuTWMireDVFzd2254J2WWNKpV1T8 +tezR9YwILpjP1WmwTqVi3cKslK+/uSBfP0axLZCKZ9pc9Rw2uCB427W5Gj8q +Tp5WGh3l4IaM0pa5nPNUvKRUoLooxQ3Y/EX7UWcqfpH57sOWo9ygXVB+futh +Kt6a3NSrX8IND+ov1mhLU3FFafhVah037Jwq1nYVpWKPHjNpi4/c0DRV+yF8 +BxXXb//oZj/JDfb9EyIvuaj4cvTXlUBRHvA+iN85zjfjwVuTO/Kv84D4mq12 +RmUzfuXDY7XrIC9k2DLxjVrQv2dJApfzbHihKbxLWdCkGY/WCafqOfPCZEAS +0tRrxsJCir88r/HCxvRypA2pGd+sNrxR/ZYXtlbYV3Bua8Y22669cZfeArbn +kjhM2pvw2ps5gfL1LZCapmNSoNuEnwV7TBKO8UPxq3K3Zc5GTKjiXLl9ih80 +3JtenWJoxFUs2aw/zvBD9jauUxXLDXggakQyyocfvud67vAcbsDiT08dm7jL +D30adzKCPjTgpLrDdc8+8IPIju6nPl4NOIZXI2Wb9FZQXFjvlqbV49DUDYvF +qa2w0ipamRlYhxk6B+BDkAAcLHHpkqyuxnIXzwUeVdoOM/cI11liy/HIUrwN +d/kOiHz/py77UAk2+el+JcZ3F+gXWjW0ib/B5iPRyuLiwvBNx1N73CMPtyiP +dNnJCoOqdx2qOJSHTf20riYrCUP+tYuvstXzsDFTf8cuLWHYTDk/UrbwEutJ +Kl8SOCIMfCc50rpCXuI9dvVVHKHC0GScQOiPycWiXavWCz+FYY3TZqdJ2ws8 +Wet0vSlPBGzZ99vphGZhiQc97veKRMCgPFiIyyULH7U3tz76XgSc8496zJpm +4YoVbaWBJhFo3pB+x7wjC8eobu36MywCcKXbwiA3E+vEV8rLC4vC5iY+ptCb +gSPdRdtvhYnCDTeTIbOD6bhaK6bUNEoURiMTxxiJ6XiZhSNj60NRSEl4n9W6 +Kx07pC4EPnkmCpdGXYgvxtOwRhdV+u0HUWhpSYn0vpuGv1MuXxqZF4VIr2fl +xPZnWG1rt5j+aTHIgIteph5P8WjUaOijs2JwfJ70QuPYU/yE68/YmIcY2Kt5 +5hH0n2Iell2vIwPFwBj5TTuIPMWTy7ZG3Q/EQPr+aIleYirO7Pt+3q1OjL6/ +FV9pnE3Botk/K+8risOfTbaXJ3c9xl2yy7JD6uKwOzZ5sXwxGUc8YwvX0BQH +hV9F4fofk/FakvzRr3riIJTrZ1kSnox7otzGpe3EIXa+hWi0mYRj/ab5i++J +Q4ez05ahmUTMhZcc+xbEoWQg8ea9sXgcqKvAUbwmDi32Hwbj6uPxqP7J/PuM +EmDvYl1Znx6Pa4yr1/T4JOB3Po6Jc4jHQZZRsS+UJGDocmohY18c/nV2d/0l +RwlYFZgOGP36CLdEWitsbZeAATPxQNW5WLzv/p22yc8SIHbx6++PnbE4+8H7 +i3V9EvDZf9edxOJYfDNOqjpgUgKMC4xePgiJxeIdyyq/mSRBc8G/WporFnd/ +ram3FpcELys2lkLlGHxg+sQfaWtJMBQQffz2djROEbzRee24JBA7Tzf+PR+N +F3VyC/pOSsLc8+ZgZ5to/DR83SXOSRIyrkfsjNodjdfkH/dw+kjCz/v7r0WH +38cvnb6XzoZLwqirAVOq4D3M33M6pKJKEi6bHVr9YhWBz23ePi5SJwkHi862 +ZipG4A9yhRqBjZLwfkfn3pzNcOzmzzBNbJOEcsklDpuX4bhm27NTmd8k4eiy +wQqZIxxfPDSEIpclwbw79EFf8x3cU+PMeEJFCmbHNAau+YXhWd1e4SvqUrA/ +3EtTxjIMs1cf1nhKkgKLbPHkWUIY1qzc5zK6Vwo8VR7Mcvy+hR++52+9YCgF +wUKv/ZS9buHDRR8SIuylQGbW4fB235u4IVOQUB4tBT7kWD+PuFDcLxt+cCBW +CoYlTJ6yBIXipfRNJ+Z4OvdnM9SeCsWyaZOPDj6Rghy/svr83aE4NKVq/fML +KfCKmzFC7/7DKN6zcaZGCtoJI7Gig9fx2zt19pJLUvCc2flz7pOrONuEtuv2 +ihT8VCphinW7ipN4Pn2aXpeC0+6i4w17ruLr0T+M3jNJw7r8GX+B9iv0eWNN +zYZfGgx9NX7sYb2Ch54TNiOUpUF1z4VBy2vBeEvj49Q/jtKQUmP96UF2IGa8 +m25rf1YazpfY6rtcCcSLJjkC9a7ScP0AFF21DMRf297djvGWhqFB5cMX/gbg +jO5P3qpXpOFWPu3uGZsAvG+UA84kSIN4ud24vOAlfI7Vf6CtTRr8JraYCZb7 +YWGJ5i/rH+n+7u4vnkj2w217xdoVPkvDychv5NkgP6zpWV8e+k0aOGS3BN3X +9sNsnduTNcelgbIr+hV/6QWc+bTYOoVRBqrO/XKfrPLFIzorVC8NGchm07Ht +GvHGCdZmNUlaMnB3u9214TxvbOb9tLRxnwzcLlF7aBTgjYvSjLOldGVARr2n +j43bG9/kTLz1+ZAM+K9bGThrnseyX7SB4iIDmwfZr2k+9sRnLgS/5UmSASlt +fX2vZ25Yk9T/VvGJDOhcun1C0N8Nc81DsdFTGbhSdW9m09gNF/qyvbueJQNZ +xSZy6XOueMPnQcniaxko+uAixG/kiuO8n7/vo8nA6JzBUa31c7jZs7P65V96 +PgpPOF0eOuPHKpo1zQyy0Jko7L3s7Yx9phJqRpllgav8dHWlqTPe4WlfK8kl +C2ZRIbP/mJ2xk8dE3cMdssBrSB2XCziDN9w2G0PUZUGv8E3bVxcnrO6i3Gbm +KAsD/7aFV/k44H43Ce88Z1nY4kOUuXTEAUd6CvBvcZUFh3b5dWeCA57wXbdo +Py8LButb+HsHT+P0ENpnixBZaBOkSuybsMc7Yzy+28TLwvjoGo8zzym8+SF3 +yqFVFoSIBuV9qbY4vzI1qrpDFqa3J0RZetpiu5pYNekuWQjmfeotp22LSxuD +fYZ7ZeHSVQX+0c7j2O+T6eLZcVmIzVX6r4j3OB4b+7XuzrwbQvX7wrfE2OD2 +bSrc/tq7gSLULDv41QojL6+J5P27IcjmefGHN1Y4vzG/sYY+Vdnka4p+i7LC +90KIN/mNdkPb6331/XpW2GxU82+u5W7IkQs+vVxgiamlur+HPHZDV0ri6JY4 +C1zvcKzzSMpuMO4sYAsVP4w13ie8Cni2Gxzvcgz5DJrjjO2991MydgPTSPzl +1gxzfJNqZzaVsxt8WZwkW1XMsZ6GU/3td7tB5KCJdafuIVzF7vWuomM32A8N +Jp+7Zorf54cmqzDLgaC+qDDRwBizmVkLx7PJwRPZpIVbfMbYYkI+kZFLDnzj +TEf1vx3AYzKtcd38cnDvZY/Cit8BLJC4M+a6uBz8qfr9TTXHCHvceHmnS1sO ++HNNTqsrGuJiyWvsmCIHO2zWpKvWDDBjhUXYC5ADjhD5+vwWAxy/snzj6gE5 +iOcoWk/zNcC1XrrXFKzl4H7CM2pXpT4WOd7tH+IjB0/VHvG3eerhc0vZi6N+ +ciD2cy/Lb309/Com2M8iQA7eLao8PyOihw+0SvrKXZUDOfOJB4Y0Xeyn5+HZ +ESEHPkJxR76p6WKaCsMZ2edyoFx7fl8LC+BgRqUjLd/lQDu4YUtduw4eNeDu +kRuUgxOLck4jD3TwkTtTp/8bkQPpzO86N4/qYFm+Am/NX3JQySRKRd/24RZR +jftPV+QgTMz0ya0ZbSy+F7VdFJCHbsUhuwfKe/GdYAmb9h3ycCzAPIGypIXn +Kxj6FYXlITLx6u6TlVq40bB2ul9SHoKmI3tHj2phHytj3oNq8hAozn1D8ZYm +rjlvaSZ2UB5GgiLHs1Y1sMprcleAmTx4aasGsVE1cNySoN2nw/Lg63fyATVJ +A3uEfPG4bSMPnHLvTK9QNLBguF3E3Bl5+nxltjPwNhmfyzxHrb8qDyL6rfaS +qiTM1RdkfL5IHnZLWazQLqpjzYAXvPffyYN43HBMB0EdO27r+VRQRo+/L1XJ +floNlxjvOTVXJQ99O1xO87uq4XNvf/tebJWHG34nE9+eUcXV95yTg0blIf/r +01Nqfsp4SjHWIXlCHnY2kIoPaynjXfXVuz9MyYPAtbK1yXUlfH5dvPDvvDzc +LpUrjQhTwqKuX+uub8pD+/e8wFPPFOnziPlM2C4FOMl3khg6JY8z+kLePBdR +AIptcHLvO3ncHpAb2CSuAPyvw0+n3pDHcvkczFy7FWBmTanGXVQedwrX7owi +KoCWimT3vKUcVlvU0o01UYBjXtvLRDpl8c8sqYepIQqgsyHWWiAsjaduDq4y +X1eA3hINxeIZKTzv9Oy06w0FcLAszZKslcIMElLKxHAFGOWWLhf3ksLC8ZI1 +NfEKUJ4+XZBdL4mP3JaY/flaAVbydvWF8UvgY2d/WJsUK4D22ZP/jteJY3v9 +1Pf5pQoQzOUa3Bsojj02xW8HVClAxC/t1z+HxXBYgLg4Z5sClLZ1/VysFsUf +XMTMVCYUgLYre7X8sTCuNfz+KnpKAQjcg3l9J4QxVebJzqXfCnDT82XOQyFh +/OWH6HD5sgKMK963piUI4fljokGHWRRBPddxSD1lF1YwFsm+IKEI7WU6QdW1 +O/BDBSGWUmtF4GGpfPzDVwDb2cs9Hz6uCE4hgqWCBgJY9iHZZIudIgyX3PMu +2CGAizYPRZ9xUoSN69Znt5Vvw13doaJbvBXhu2f/UMCWbVjg1pTGmTuK8DR2 +T/jWWn7cW7b6JSpCEa4YntbVTebHabNswSX3FCFS6Lci1Y8fk+ykqnkfKcLs +55znI7v5sSXZ5lDJM0UwV01PPiLKh2MGK8/yvleEsaC704/7ePCJna0ceysU +oe2f8dDleB4sfag316laEbZtJu1ZsOTBr0sW5941KkIZceDjWxo3/nRf8apT +lyIURx10PFbHhbei2Lh304rAzKzd/aeDA0cnnWt0lFSCR29IqncOs+KAS6F+ +ITJKMP6gczFdlBXbW6ZIxMspwczvlnekSRaswtUd0KKiBFk6n5wzw1hw82VD +BS1tJbCfdd5TX8eMmWxl7/JYKsGKJIO7jDUTntCAPfLWSiA9t9DHoMiEO/jt +BnWPK0HPDfRb7y8jTm2K1Q6wVwIZnYPxc1mMeP9e5slBdyUYUf3vy+A/Buy/ +c8jk3Q0luLFIHS26vonsFv4ufwxTgsg/8iRdjU1k0C6UPnVXCQa7Sk5eGf+H +tt22WJeKVgJmm4unNi3/ofzlqtzIx/R4tPjMGAl/0fjnVB6nt0qwG+9vqeRY +RycenmrjGVOC/mjOxHblP0j0DZeIxyQ933EzwZ7pZfTj4zuX5mklMCVPzVwp +XEbOfNsYwxaVoDVA9Gey1jI6H95A3mRUhpyaK1dXzJZQ6HX1xDlRZYBzaRwb +MQvIILXv52FJZZjiqpIi2i8g9oq7pHwZZeD263kwrbiAIteHae5KylCK1Oz/ +1MyjuEsJ/4a1lMFh2DxReX0OvfBkdO62VAY379P67DdmkWdEfqGGjTKU5B55 +KW4zi9RyTv6NsVWGxelzB3MUZ9Hrsbdxhx2UYZ9lhQs54zf64OTe3OSlDCPb +ZWv8j8ygjuOdau/vKMOPI+7PNT/+QisGmaupFcrAFMM3OHZ2DIW8T71RV60M +VLWfn24qjiEGUhLvRB3dX6uXafH0KGKXuC9FoinD4EK718eAUbRjNfBg3Rdl +KB7zdqmN+YnIeWaJ47PKYK5gt3FpaBgVyxyQ4V1Uhr70Q4VV+cNoX5JuHvGP +MuwSeP08PHgY6d3WrA76qwwN3d/zk3YMoyOOkhM8XCowmvu+I9xyCJ3fvriX +KKMC/qrL8q8GBtB8xEyNtZwKmIxdPx9QNID8mSbMghRVIMk3xOLlnQEU8vu7 +Q626ChRr3+k+RRpAEc2Nd6z3q8B6seO129t/oOwryT2XrVWA9E2yNPRJHxr+ +qRdYc1sFpFhytY339SC91LY0pQgV+KnGq3lx8Qt6evxEa8w9FXB0EnvkUPAF +2dN8pc88UoHcHrX0C/JfUG/h0xbmdBUwTOqQNpLsRp+C/0kaVqgArbVwBze5 +CxH3hJvmVavAxZ2Kz06udKLome2XtterwPcmxwOHKzqRuaMq7SdNBbb8HlcX +MutEVCM7/7CvKvCkP+AYp/cnVLO1rLlxUQUUhIo8/nR0ICma4aL6igq8pD1O +K0ntQNdvfhRPWFcBvdj0CWbvDoT+jPu5MqlC5rPmSRJfByrr2ynOya8KU5Xd +OXG5bej1c/8LJsqqUPvyrbrnEg1tdWR88lpNFSSEHlNH02jIRziqUZikCoM3 +pytMLGhILSpD9NdeVWBM6BivK6SinAudDRFGqnCkt20LDmpGaRSiSKujKiRo +/qkw2NOIasy5bqw7q4Lsz8T1xsUGNHR6eFLRVRVulmsz/SlqQDKhj8rCzquC +8ujaUwutBpTRsGoLwapwSMbYh6pfjzIP1yS8eagKTjODaY5BtajBIZlhKF4V +bN+0V33Xr0Wjvhdd+ZNVYYOST5nirUVyD+X2ej1TBe+/DiFl6TUoqyf8i1y+ +KpyQjvu18LkaZTta7UhqVIX9106VZlhVoaYLKlebqKpwUsc/OWV3FRq/wTq6 +3Ep//6wGn9JsJVLIevfWqksVWJ5lLY7sr0QvJkWseQdVoWXX0aKkwXKU4zcS +e31NFQruWv03b/0e5d3y3+qiqgaHB0m233uL0dT+U6G3CGogLneFlZZUjFQW +DRbSyWrQdJ1mefZkMcpxEvw8oK0G97qXBhP636Js/CbhhJEaXNvZtbdlqghl +rM5KmJ9Wg5GJOpdFuTdopLAn2tNJDUr/CpSOzL5GMq5VjBFn1cD/jG+zy/vX +KK37/nCjhxow343UlLR8jVLfqD3XDVQDtaWMQGLYK5Tk5am254EaEEwuTyax +F6Je2aOpVg/V4NPluRe7igqQUJ8O/4V4uv2N/qxF2wKUYMI9n/9EDTTvBE1H +ZeejR/I5bxVy1GA9M3dg80geih4c2y9aqwaeY2IMjS05qCOhPW9fgxpUPlhn +2XU9B/EdeSdu26wGbskKRvs1ctC9ijCGuHY1mJPpb1lKeYEik3fX8fWpQYPW +iQNzV7LRbeszpsxL9HgNVQSQQxZKO9xnd3ZFDU5yjDacFM5CHw5an29cV4MH +qLjE9HMmmqcceBDBpA6b1qbDCYcykZ2c8hcBfnVQWtod9/xABiL9mXeSVVYH +vsfh6xmn09ChOY+LYWrqUIMuC/TsTkOuv0ZujRPVoam6w6Ns6hl68qM7++Ve +dQhi+vHrZsgzxNFUNqNhpA6vPTsr1tKfov6E0CBDRzoHO/jdl0pBqzHrEc+d +1YHdvV9oZ80TJBh18Qmnqzpo8LIH1Jx5gg7+d66q9bw6KPyy3ryU8xgVuZmw +2YSoQ2/x98V1g2QUvm9bzLl4dXjgrmxUkpuAMjUi0puS1EFZv3z1r10CqlJj +eauUog5qR6O3a/IloCXp5S8zGergCRa2Fy7FIwfuXrGA1+pw9NSN+22H49Ce +vmcvbreqA9uL3jCq8kPEr+a6UtChDiIe3p36v2PR1DW1Az2d6lDX/sLP800s +ypB5P6LQqw4ZFDaBOkosEvTokqCOqoOPYXva8RMxaC2E2ZSNgQDqC/8Kbr2K +RuOZ5y4kMRIgj4tdSPhaNOpua05UYyZAWmR8vO6haPRaMnrcho0AoilqrWHd +95F7nWjYcx4COCequrecvIe+cmtWGwsRoGs2YjUnIQI1aCSO9wkT4PaWwe/1 +BhGo6NQGn68oAR7zGOz5MheOogtq7BMlCEASF3L8ZB6OjK0Ob0zsJsDGdybd +AYG7qCTJVSuCRIAPWpfmxZrCUFYtzV5CgwCZfbwbrqFh6OGUWtibPQTw4NPS +CqWEIR+01PVtLwHaVGjCO4pvIYWh/y6oYAIc0CH13yy8iRIUk/NaTQkATJb6 +j5tC0eKCUeaNQwQIoEToLN0NRYcr5h9rHybACalWq11moYjNyiQy05IAcVm7 +hN98+g/5h6y6X7ElAI8aA/fK+HVk2X5MQdWFAH43Tr644n0V5ScySw670uPv +FTttyHkVcToX7Ex0J4CxdLOZbcYVVLXCxs56ngCuobfirftDkLp08c++iwS4 +Vd3CSnQMRjz+gumRoQT4uED1kE4NRK64KknvJgH8n7i6/DANRLWcnjErtwhg +5PB87eVqAApKqf3P+S4BzlezXfU8HoAmGi847I8mwI7zZw9ISV9CDcIfxaae +EGDe/apZxrAfkv4Zsj0tlQA3FK7nTKX6oSsFCrzHnxGAtTzaVvCUH9IwuL5R +m0GAkl/x8ctfL6A0L/VvybkEKJz/MVT23Rddq4pKMC0lQNImR9Mmlw+a/F71 +cLWMACk8F9IZc7yRzfpC9PMPBLhgpz11BnsjFc0Td5mr6PWy5/ysdf486smV +C3rfQADb5zp9Wd88ESm+8qRyFwEk3ko+EZp3Q0+K5o99/UwAd0JkOinJDXF8 +2n309hcCWAll2Xvqu6EfPJFmw70EUEZnXpITXVFk6HFK8iABzlxY3l5o4YJG +vebEuX8T4HKlxmf/BWdkESErUjpL9xcln8P80hl9yD6202WeAFLXuqlXzjqj +2OFyvtolAsQYLSoqfzuDwDacIXiDAMK0I7NCH51QkoHM0CQnEd4aP4oZGHFA +rE42/QncRLCbv7lrJMcB+Vy722vESwS5JfuybF8HdKDs96c0fiKcZfnx1IPR +AS2qf6g9sZMI9uvEO8pW9uiQiHUmVZZuL1SQyrTnJEoYUas6KUeEEsrUd9Pv +J9BIHse3KXkiaPpYxT0PO4FC4AM/nzIRgll4Qu/22aKXZ2VCrIhEiBJ1fZHy +8DjiKpyz7KMQIeXV0FYXsg2yuUzz8sJEiJP2sDj3yxql6WXe+QdEcLiSf8Q4 +wxppfz5eIWlAhHeu5U0vdlkj17VKxbMmRHh4NOh3AvdR1Ghwj2HGhggxaonX +FnZaom1bXEWuHSdCDup1/dVngey/6GrynyDC5KGgsylpFmjZbcmDdIoIz6xs +slQIFkjuvt2XS2eI0HJZfnue1RF086tS/qY3EXpX2fs+XjyEOtJYmqN9iTDG +OVu3W/AQEvXsH5byI4KN5q/lvCIz9ObfAyGDS0RozDaxN1s1RUMyqzfvhBBh +1ymV9yejTZDu+caTW+8S//8/RMD7+QNorWfCqC6cCAKMb4y3PDmAivR5SAGR +RNi2dI43wvgAkhOy4Ph+nwg9SRYt82lGiKeutyg7jggffDXs+M8aoh6hGV7I +IEJIYNFVaxF9FHOTf3U+k15PDt+wiG49ZPqbNJL5nAgzEnpOr2P0UEVdQBl3 +LhGWP57+Ws+rhzK8GV2+vKLr8ejiwMstusinXrDqfCURlBqP5Tf7IqRE0MqV +qibClaTc51eYERpOso3rqiGChh2vbXEcBdn4pHjuayCCokW8+rPq/Wi/iIIQ +WysRWJqs/doVdBCHr86FJ71EYDbs33Zi715U8+3UqSN9RDh9xOy/LQNaKNjo +ujFzPxEo+swqG3e00IxIvbjbIBH0gjTcLvRroq4Gc5rGOBFMR4Z/H4vfg1JF +nWRblojwvN3fMoVCRvvIympOf4gQGaZ68PU6CXUdXNRaWSFC2lUFsbQyEuII +CDOV3SDCZuGmAZcOCfl8zLkQwkSCxXd17YWGRARhC1UqfCQoO73+VZ5BHfU+ +/kCt4SeBzFDq3aOP1NDFN7e6jm8jAdg9zhtTVkPZAzvHb24nwZbkD+Lqp1TR +Vp39fN9FSFA+a368oV0ZDf2+eSpKgQRrDtoVDnMKKITN3EVGiQS0A+7Gv5MU +0A6xnb6lyiRw26eT/sxQAZmYvLj5U40EO17+HHBKkUevM1pzKXvo9pzxL+bs +5NAN2x1r07ok0HJcWdLklkXiPj+Yb+rT7QXZG07Uy6CSsGxeYUN6PFxc3R7X +ZdDUm31SRsYk6DWE0IOr0ujoltPGKeYkmHBqq0xdkkKytc/jzE+SYH5GknH/ +DknUprKS0WdHgoRxe4PRcgkUGGf8xt2eBC21Y0MNRyQQzW2iPcyRBI89+91a +gsTRBX5lzkoXEvSs8Bm7/hBFlafyg9UvkmCMzZ+db0wIuTb+u1vuT4IL48pf +IqOE0Dbi4QTTABI8GqXu2btHCJ1jmS1yCSJB5ZjSPo47uxBPLnEm9ToJlm/9 +w7I6O9GJlSIH/igSHP6mGqfYJYhYnFi9U+6RwO5i7GdqhCDKp1lfUYkmAe+x +CnNHA0HEmLqcaBxLAuW6R9aOJQIo23Bv5/VEEjiQDr07lrsNLcW8N5zLpOvX +6X8uqowfpWxwH732nAS2r90uiF7nR8bn7Jx4X9D9bYXsC0b86LH236uKL0ng +yn00qiuHD+kNoBLH1yRoYg8Rvb7Ci6JVa5Q+VdD1P8Tj8a2bC2XvPckZWkUC +70gG2XQfLlSpvzhGrCHBODNb7Sg3F5qxlct8UE+CiIW2gy1GnMg0LFzCooUE +ybvEXl5tZUdsPywFO76SYCGPMKsizIrEJn/NX/tGgiO7gvlsmlmQxtLNj+rf +6fV1OxOQd5kFneF+d+/+AAlqwo3XP39nRlVaIpyHx+j58dcLJr5hQsHRw39b +F0lwJvPCV58HDCgmOaTvyjIJHKP1tJIsGFBO1vb3qiskGKQIVL3ZxoB6PhwI +jFqnx0/aq22lvknRnMidN2Miw1Co6/Gw438phxYNPm4wk6HA7oWb5NgGxXnz +e8FLVjJ4xXI5nwvYoMRu5/fi4SSDxxPdmO+P1ymzuhfHaHxkeOVyhO3T2iqF +4xBvQ/BWMsj/Z70oE7dKkTielaEsQIaaQJmFedIqxfx8j2PEDjLs1TyA5n1W +KLlJ+/tMxMjw9OUersG/y5RzCywfm5XIoN39877gsUWKfY5Bm50KGawcb7ls +5V2k2DjepP1WJQNTz9tj2+sWKEbtzA3biWQ4tHnvkOyeBYpcLtN7Ry0yHMnZ +UfZXep7y04khc1WfDFraQeblSrOUPiH6aGhIhjvnCA2kH78pXR3XUiUOkOGi +4pfyB+6/KXVoM9HQhAzXjsdIq4bNUDKE/917cIQMxw9061I6pijOn9YDFU+R +oXTMKkUkd4Jid1fn0gd7MnyLa3lcbDZBOQrBfocdyLC+9mM04/c4xSB/zcv/ +DBlCpG99dtUep8iGrzpVu5FBVdm8g69vlDKs+8fM9hIZxjc11IVOjFB6VzRN +pgLI4AoTjn1bRiifCi4duHaZDP6eKqEFdcOUGrFl3cwQMtxm35J8iTxMSVtd +1JwLJcOZ4G9npMWGKE6v5iXv3ieDzYDL5oTYAMUz1GrD5AEZmp8U1e8t/kHx +tyr6whNLBjX0UeI96QflzpL/veg4Mrxv3Ev4Q+yn5Guvrsc/IcOE4QtFd+M+ +SgnXiS+2qWQIfPiGs+fTN0r1t7LXIs/I8P3N898yp79Ruq6EuKVmkMFFQEFv +75Veymr1ZndWLhm2P+9zCm/roTDFOrx2zaOvVzjHIuHSQ+Fxro5SKiBDtstF +N1vGHoo42w2D/NdkOHUryypz3xeKgQnb67elZIgz4pAcr/xMif7EE1XXSO+3 +69LN3/g6KUnpXq5hzWTYOJhiNFP5iZJ+sU3fmEaGy1d+FBr7fqIU74heo7WR +ofAAT3fVl4+UvhMCrp2fyUC+NXeV/KaDMqp8Uf/RFzJ0SU5Nr3p2UH5vdIkf ++0qGPqWuY4PyHRSm1LjPvX1keJeYw8Ok106RHxbSHxomQ6yoicA2aKUQioLE +M36SoTq2aEdJXQtl361vq2fHyFA+JrX3pGkLxUz+SeHEJBlyD5/uD7SnUS54 +SIrPzZFhstOscW9yMyVk/3+rrxfo/fDXcnRarZlyi3eo6+ISGbblth45U9dE +SShIj1hZIYP5q6SWC4uNlLTrLC5la2RYq8lj3bzXSMm1OKsXskGGNr3BHnXl +RkqRdIMY+keG0Kvvn/xraqBULMitbm6S4YvKzgZn1wbK/wAtXofl + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.21372310935545752`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.21372310935545752`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVmnc8V/8Xx+0tioY9s8dniKTP+33MhBSilISUHZIIja9KZZQosygrkVFJ +KHt/PlaRJMnKCtlZ5ff5/XPv4/m497zPOa9z3u97/rhSTt6WZ5kYGBg66Zf/ +359cdWIjOicj+YnyQqs9HqiuU9LsmORlfO/RzF6bJWO82VBxQ1LyLo7sWD8m +uHQcP6mKkmCVTMTlygImtEVX7Enx9/oj8QJ/ipO3YFsMxJ3rrg9nJUrxKcV1 +kJ67g9m/DclPSzTjgcOOInk/E/AzaqrvL4mv2E7L6PuukmycX3D3m6faJF55 +o87ydL4ET26bjDRxnMT1p3+5sdLXkb9kghQeTuITW3d/tjItxU/3cz8bXp3E +jIsBsrnppTimOfLcifpfeGa/9F1sVYYvDd+fO2A3jVf6VJf6897jVG7aja2G +s3imS89643AFdsEfE6cuLODkqs1ExafVmCFtuexbxALmXuGOevS6GiewiPZR +MxbwS5WWoPm6atzUfE78RfcCPlpmvu3aRDVWOLqRdnbfIm6jWjQPEmvwuKv8 +y37GJdz+POxUTWUNdo+5UtERvYxr0Jfmx+21mGkp7Ufli2VcdkDQh3+gFicd +a2IoqFnGCXk1iX6ztZgqKqAftbiMZ7sczDm21mHl59mNB4//wenZItLuFnV4 +6n1nR43ECm4d8p9ka6/D538qDhflr+IcP8YLZ8vr8YD9V47q5lV8xSph33RL +PbbquaPWOrKKn5doHnLoq8d7aWOXfwqv4YIj/5Q41usx86tM/h2313DsDa7m +U1oNOCFECgWcXsdrKQsbu1424GoBoURt/r+Y9vCzR+KtRqwR1VRhqPwXX1Pg +KwyKacRZbIEjFkZ/8X0B5yNGqY04crVb3T3kL+7w3Rv9uKQR2/x42JA0/hc/ +rXp6zWCyEU/m8C+uV/3DOaHOUlcPNmEuqZvyP/YywDajRcq1P024af8D9auG +DMAk0nv/D0MzDjueoiVmyQC6Ryxy7biaMVN0yYGTHgwg0PFj37RoM177N+Xy +5QkDqCdoZcrrNuNffdbZ7UyMcOSrjw5jWDPOWXEqPM/HCAU3v3w3vNeMXQV9 +SnhFGSF4u71BQFwzHjENbzLdwwimhwtOP81qxn1lFeONLozww6ZhkLuhGbck +yCtWtTAC10j6gjEjFYcXaRBPf2WElavGuic4qNi4Q1f7309GsG8jnz3OR8V1 +7HYH928yQgz3Ay0RMSr+cCnarYTIBOHTerrvtag47+jqi8I4JmD3S+R0caNi +Tx+214fTmSCRI+CjkTcVK0UKlM0UMMGpR6kJAv5UnFWrSlVpZoIX1uKki9ep +OIXkNJm9zgTFGm8XLOKo+B4/TemZAzN45d5hv1FBxaVaYm/NzzPDwLndlIRa +Kh6x98YbwczQwvnFI76JinXyBI4ei2cG8nmTFqtPVDx+0O4KbxszfE/0N6of +oWJB33z299+Y4dy2+VmlCSrGCQwxrhPMMFq8pTFomorjRjOyallYAIbvbP26 +RMX6N6bbL+uwQOFr9DOalYbP5+AT8gdZQL2h6JUxJw0nfXww0mXDAnU29sOT +PDQ8K6G5qn6BBbJ4JB/NCNBwyoer0qPZLBD1WJB/UZKGm4c7XsYWs8D2JrHh +TRkaXuSS0dKtY4F/xIqTy3I0bGrbaPr4BwuYrP4+na5CwytLfP6WO1ihVmcj ++58mDcuIOW1uyrCC5MrkYwdtGjY3KLqbR2SFT43uV/J0aDgz5ngKxyFWSNr8 +T5EDaLijNEeh+AQrUJ5zcezQo+GNgY3XZ1xZISqNbXWLAQ1bqj9rrLjBCtvG +DmnXHKDhqzYLFp4PWOFEvsXjkIM0/OKKYZ9QKitE39LWljalYYaWidmLZaxw +q4x8UN2chpUXdIKlm1hhtru6I+4wDdsI32Pt+MwKpVj5/cQRGs5zJQkrz7EC +O+X+kIUVDffcv5nR848V4qrrNFyO0jDLu261MB42SCSYCrpa07B6v0IpWZgN +hMvWIo7a0PAJ1mD9QXk6t9dkqRyj4TCV1tZ7e9hAhSHHe5bOr6wkju/XZ4Ov +31rnUo/TcF+Q79DEETbgbHXaq2NLwxxptZ7x9mygsPrGvIbO5Obtfww82cBE +XAb2nKBh+1mX/+Yv05/7Kux6SOfwnWXcT2+zwUqQ5VA/nd8inrhDj9hg7x/D +nO0naXjgrL3kehobWL0qD95LZ56owpzsQjYgOYU7HaCzVhHTHpsKNkiPinHX +o7PTt6OVzC1sUHb6U6oinbmSB718v7LBrtwC7n/09V+fOC/6Y5QNWscO+1XS ++YTwOtVskQ2yE4yGvOjM3Hv7chkjOxT073PmpPPLREEFBT522Dw+xhJDz+eo +7bPuR6LsUMwi3MFO541dareYldghU7Tooztdj4yeMrKvFjsIrr7Y/p6ul1nC +gaF+A3Yw+s2UvULXd/FYV7SZJTuIEL8+lKHz452OuOw0O7i9tB3XodfD8Mv0 +tLwXO5ydrM3XpddrJi7o8aMgdlibcVvUoNczzobdlPkOO8zuLKzfbknDo58l +s/vT2CHAhJPylN4P9x7l2ZgVssO2F3jjIL1fNK33sZaVs4PEQ7vLg2Y0fLvL +yulRDzt0uRwd+ErvN8LDAX7mUXaoNxsY3mdM7xcrr0qfBXZQv1jUc9eIhhU6 +w0TNtnDA+SBr6hy9nztiBGilIhxQ02k3yKVLw4GWTy/L0zs/REpKfBum77eP +pd1MBhwgX8+Lfu2jYfeOqejSyxygX37wfjORhrdFX8bytzkg+90jU2t1Gi47 +zDbz8CEHdLqnJrbT9x93u4SpTwEH3DEXlo6Wp+vfaskq/5MDyiwPueuJ0vWP ++vHm4TwHmKiWaBsI0fU383RiYuAEQe0mrj07aPhQy63K78KcsN/q5+QwH10/ +asnlh0c4AeVG7wlkousXbqjAZM8Juy/qZCz8o2Jk8qnb24MThPW237Ffp+L7 +zb/IpmGcwC8lOcm0SMWEJvEZxg+cUMfz9+1t+nnmW3/TyVueC+qXGMPv1VCx ++IgR2zKZCzJHrqba0M9LGhNnTghwwabFmuTWMireDVFzd2254J2WWNKpV1T8 +tezR9YwILpjP1WmwTqVi3cKslK+/uSBfP0axLZCKZ9pc9Rw2uCB427W5Gj8q +Tp5WGh3l4IaM0pa5nPNUvKRUoLooxQ3Y/EX7UWcqfpH57sOWo9ygXVB+futh +Kt6a3NSrX8IND+ov1mhLU3FFafhVah037Jwq1nYVpWKPHjNpi4/c0DRV+yF8 +BxXXb//oZj/JDfb9EyIvuaj4cvTXlUBRHvA+iN85zjfjwVuTO/Kv84D4mq12 +RmUzfuXDY7XrIC9k2DLxjVrQv2dJApfzbHihKbxLWdCkGY/WCafqOfPCZEAS +0tRrxsJCir88r/HCxvRypA2pGd+sNrxR/ZYXtlbYV3Bua8Y22669cZfeArbn +kjhM2pvw2ps5gfL1LZCapmNSoNuEnwV7TBKO8UPxq3K3Zc5GTKjiXLl9ih80 +3JtenWJoxFUs2aw/zvBD9jauUxXLDXggakQyyocfvud67vAcbsDiT08dm7jL +D30adzKCPjTgpLrDdc8+8IPIju6nPl4NOIZXI2Wb9FZQXFjvlqbV49DUDYvF +qa2w0ipamRlYhxk6B+BDkAAcLHHpkqyuxnIXzwUeVdoOM/cI11liy/HIUrwN +d/kOiHz/py77UAk2+el+JcZ3F+gXWjW0ib/B5iPRyuLiwvBNx1N73CMPtyiP +dNnJCoOqdx2qOJSHTf20riYrCUP+tYuvstXzsDFTf8cuLWHYTDk/UrbwEutJ +Kl8SOCIMfCc50rpCXuI9dvVVHKHC0GScQOiPycWiXavWCz+FYY3TZqdJ2ws8 +Wet0vSlPBGzZ99vphGZhiQc97veKRMCgPFiIyyULH7U3tz76XgSc8496zJpm +4YoVbaWBJhFo3pB+x7wjC8eobu36MywCcKXbwiA3E+vEV8rLC4vC5iY+ptCb +gSPdRdtvhYnCDTeTIbOD6bhaK6bUNEoURiMTxxiJ6XiZhSNj60NRSEl4n9W6 +Kx07pC4EPnkmCpdGXYgvxtOwRhdV+u0HUWhpSYn0vpuGv1MuXxqZF4VIr2fl +xPZnWG1rt5j+aTHIgIteph5P8WjUaOijs2JwfJ70QuPYU/yE68/YmIcY2Kt5 +5hH0n2Iell2vIwPFwBj5TTuIPMWTy7ZG3Q/EQPr+aIleYirO7Pt+3q1OjL6/ +FV9pnE3Botk/K+8risOfTbaXJ3c9xl2yy7JD6uKwOzZ5sXwxGUc8YwvX0BQH +hV9F4fofk/FakvzRr3riIJTrZ1kSnox7otzGpe3EIXa+hWi0mYRj/ab5i++J +Q4ez05ahmUTMhZcc+xbEoWQg8ea9sXgcqKvAUbwmDi32Hwbj6uPxqP7J/PuM +EmDvYl1Znx6Pa4yr1/T4JOB3Po6Jc4jHQZZRsS+UJGDocmohY18c/nV2d/0l +RwlYFZgOGP36CLdEWitsbZeAATPxQNW5WLzv/p22yc8SIHbx6++PnbE4+8H7 +i3V9EvDZf9edxOJYfDNOqjpgUgKMC4xePgiJxeIdyyq/mSRBc8G/WporFnd/ +ram3FpcELys2lkLlGHxg+sQfaWtJMBQQffz2djROEbzRee24JBA7Tzf+PR+N +F3VyC/pOSsLc8+ZgZ5to/DR83SXOSRIyrkfsjNodjdfkH/dw+kjCz/v7r0WH +38cvnb6XzoZLwqirAVOq4D3M33M6pKJKEi6bHVr9YhWBz23ePi5SJwkHi862 +ZipG4A9yhRqBjZLwfkfn3pzNcOzmzzBNbJOEcsklDpuX4bhm27NTmd8k4eiy +wQqZIxxfPDSEIpclwbw79EFf8x3cU+PMeEJFCmbHNAau+YXhWd1e4SvqUrA/ +3EtTxjIMs1cf1nhKkgKLbPHkWUIY1qzc5zK6Vwo8VR7Mcvy+hR++52+9YCgF +wUKv/ZS9buHDRR8SIuylQGbW4fB235u4IVOQUB4tBT7kWD+PuFDcLxt+cCBW +CoYlTJ6yBIXipfRNJ+Z4OvdnM9SeCsWyaZOPDj6Rghy/svr83aE4NKVq/fML +KfCKmzFC7/7DKN6zcaZGCtoJI7Gig9fx2zt19pJLUvCc2flz7pOrONuEtuv2 +ihT8VCphinW7ipN4Pn2aXpeC0+6i4w17ruLr0T+M3jNJw7r8GX+B9iv0eWNN +zYZfGgx9NX7sYb2Ch54TNiOUpUF1z4VBy2vBeEvj49Q/jtKQUmP96UF2IGa8 +m25rf1YazpfY6rtcCcSLJjkC9a7ScP0AFF21DMRf297djvGWhqFB5cMX/gbg +jO5P3qpXpOFWPu3uGZsAvG+UA84kSIN4ud24vOAlfI7Vf6CtTRr8JraYCZb7 +YWGJ5i/rH+n+7u4vnkj2w217xdoVPkvDychv5NkgP6zpWV8e+k0aOGS3BN3X +9sNsnduTNcelgbIr+hV/6QWc+bTYOoVRBqrO/XKfrPLFIzorVC8NGchm07Ht +GvHGCdZmNUlaMnB3u9214TxvbOb9tLRxnwzcLlF7aBTgjYvSjLOldGVARr2n +j43bG9/kTLz1+ZAM+K9bGThrnseyX7SB4iIDmwfZr2k+9sRnLgS/5UmSASlt +fX2vZ25Yk9T/VvGJDOhcun1C0N8Nc81DsdFTGbhSdW9m09gNF/qyvbueJQNZ +xSZy6XOueMPnQcniaxko+uAixG/kiuO8n7/vo8nA6JzBUa31c7jZs7P65V96 +PgpPOF0eOuPHKpo1zQyy0Jko7L3s7Yx9phJqRpllgav8dHWlqTPe4WlfK8kl +C2ZRIbP/mJ2xk8dE3cMdssBrSB2XCziDN9w2G0PUZUGv8E3bVxcnrO6i3Gbm +KAsD/7aFV/k44H43Ce88Z1nY4kOUuXTEAUd6CvBvcZUFh3b5dWeCA57wXbdo +Py8LButb+HsHT+P0ENpnixBZaBOkSuybsMc7Yzy+28TLwvjoGo8zzym8+SF3 +yqFVFoSIBuV9qbY4vzI1qrpDFqa3J0RZetpiu5pYNekuWQjmfeotp22LSxuD +fYZ7ZeHSVQX+0c7j2O+T6eLZcVmIzVX6r4j3OB4b+7XuzrwbQvX7wrfE2OD2 +bSrc/tq7gSLULDv41QojL6+J5P27IcjmefGHN1Y4vzG/sYY+Vdnka4p+i7LC +90KIN/mNdkPb6331/XpW2GxU82+u5W7IkQs+vVxgiamlur+HPHZDV0ri6JY4 +C1zvcKzzSMpuMO4sYAsVP4w13ie8Cni2Gxzvcgz5DJrjjO2991MydgPTSPzl +1gxzfJNqZzaVsxt8WZwkW1XMsZ6GU/3td7tB5KCJdafuIVzF7vWuomM32A8N +Jp+7Zorf54cmqzDLgaC+qDDRwBizmVkLx7PJwRPZpIVbfMbYYkI+kZFLDnzj +TEf1vx3AYzKtcd38cnDvZY/Cit8BLJC4M+a6uBz8qfr9TTXHCHvceHmnS1sO ++HNNTqsrGuJiyWvsmCIHO2zWpKvWDDBjhUXYC5ADjhD5+vwWAxy/snzj6gE5 +iOcoWk/zNcC1XrrXFKzl4H7CM2pXpT4WOd7tH+IjB0/VHvG3eerhc0vZi6N+ +ciD2cy/Lb309/Com2M8iQA7eLao8PyOihw+0SvrKXZUDOfOJB4Y0Xeyn5+HZ +ESEHPkJxR76p6WKaCsMZ2edyoFx7fl8LC+BgRqUjLd/lQDu4YUtduw4eNeDu +kRuUgxOLck4jD3TwkTtTp/8bkQPpzO86N4/qYFm+Am/NX3JQySRKRd/24RZR +jftPV+QgTMz0ya0ZbSy+F7VdFJCHbsUhuwfKe/GdYAmb9h3ycCzAPIGypIXn +Kxj6FYXlITLx6u6TlVq40bB2ul9SHoKmI3tHj2phHytj3oNq8hAozn1D8ZYm +rjlvaSZ2UB5GgiLHs1Y1sMprcleAmTx4aasGsVE1cNySoN2nw/Lg63fyATVJ +A3uEfPG4bSMPnHLvTK9QNLBguF3E3Bl5+nxltjPwNhmfyzxHrb8qDyL6rfaS +qiTM1RdkfL5IHnZLWazQLqpjzYAXvPffyYN43HBMB0EdO27r+VRQRo+/L1XJ +floNlxjvOTVXJQ99O1xO87uq4XNvf/tebJWHG34nE9+eUcXV95yTg0blIf/r +01Nqfsp4SjHWIXlCHnY2kIoPaynjXfXVuz9MyYPAtbK1yXUlfH5dvPDvvDzc +LpUrjQhTwqKuX+uub8pD+/e8wFPPFOnziPlM2C4FOMl3khg6JY8z+kLePBdR +AIptcHLvO3ncHpAb2CSuAPyvw0+n3pDHcvkczFy7FWBmTanGXVQedwrX7owi +KoCWimT3vKUcVlvU0o01UYBjXtvLRDpl8c8sqYepIQqgsyHWWiAsjaduDq4y +X1eA3hINxeIZKTzv9Oy06w0FcLAszZKslcIMElLKxHAFGOWWLhf3ksLC8ZI1 +NfEKUJ4+XZBdL4mP3JaY/flaAVbydvWF8UvgY2d/WJsUK4D22ZP/jteJY3v9 +1Pf5pQoQzOUa3Bsojj02xW8HVClAxC/t1z+HxXBYgLg4Z5sClLZ1/VysFsUf +XMTMVCYUgLYre7X8sTCuNfz+KnpKAQjcg3l9J4QxVebJzqXfCnDT82XOQyFh +/OWH6HD5sgKMK963piUI4fljokGHWRRBPddxSD1lF1YwFsm+IKEI7WU6QdW1 +O/BDBSGWUmtF4GGpfPzDVwDb2cs9Hz6uCE4hgqWCBgJY9iHZZIudIgyX3PMu +2CGAizYPRZ9xUoSN69Znt5Vvw13doaJbvBXhu2f/UMCWbVjg1pTGmTuK8DR2 +T/jWWn7cW7b6JSpCEa4YntbVTebHabNswSX3FCFS6Lci1Y8fk+ykqnkfKcLs +55znI7v5sSXZ5lDJM0UwV01PPiLKh2MGK8/yvleEsaC704/7ePCJna0ceysU +oe2f8dDleB4sfag316laEbZtJu1ZsOTBr0sW5941KkIZceDjWxo3/nRf8apT +lyIURx10PFbHhbei2Lh304rAzKzd/aeDA0cnnWt0lFSCR29IqncOs+KAS6F+ +ITJKMP6gczFdlBXbW6ZIxMspwczvlnekSRaswtUd0KKiBFk6n5wzw1hw82VD +BS1tJbCfdd5TX8eMmWxl7/JYKsGKJIO7jDUTntCAPfLWSiA9t9DHoMiEO/jt +BnWPK0HPDfRb7y8jTm2K1Q6wVwIZnYPxc1mMeP9e5slBdyUYUf3vy+A/Buy/ +c8jk3Q0luLFIHS26vonsFv4ufwxTgsg/8iRdjU1k0C6UPnVXCQa7Sk5eGf+H +tt22WJeKVgJmm4unNi3/ofzlqtzIx/R4tPjMGAl/0fjnVB6nt0qwG+9vqeRY +RycenmrjGVOC/mjOxHblP0j0DZeIxyQ933EzwZ7pZfTj4zuX5mklMCVPzVwp +XEbOfNsYwxaVoDVA9Gey1jI6H95A3mRUhpyaK1dXzJZQ6HX1xDlRZYBzaRwb +MQvIILXv52FJZZjiqpIi2i8g9oq7pHwZZeD263kwrbiAIteHae5KylCK1Oz/ +1MyjuEsJ/4a1lMFh2DxReX0OvfBkdO62VAY379P67DdmkWdEfqGGjTKU5B55 +KW4zi9RyTv6NsVWGxelzB3MUZ9Hrsbdxhx2UYZ9lhQs54zf64OTe3OSlDCPb +ZWv8j8ygjuOdau/vKMOPI+7PNT/+QisGmaupFcrAFMM3OHZ2DIW8T71RV60M +VLWfn24qjiEGUhLvRB3dX6uXafH0KGKXuC9FoinD4EK718eAUbRjNfBg3Rdl +KB7zdqmN+YnIeWaJ47PKYK5gt3FpaBgVyxyQ4V1Uhr70Q4VV+cNoX5JuHvGP +MuwSeP08PHgY6d3WrA76qwwN3d/zk3YMoyOOkhM8XCowmvu+I9xyCJ3fvriX +KKMC/qrL8q8GBtB8xEyNtZwKmIxdPx9QNID8mSbMghRVIMk3xOLlnQEU8vu7 +Q626ChRr3+k+RRpAEc2Nd6z3q8B6seO129t/oOwryT2XrVWA9E2yNPRJHxr+ +qRdYc1sFpFhytY339SC91LY0pQgV+KnGq3lx8Qt6evxEa8w9FXB0EnvkUPAF +2dN8pc88UoHcHrX0C/JfUG/h0xbmdBUwTOqQNpLsRp+C/0kaVqgArbVwBze5 +CxH3hJvmVavAxZ2Kz06udKLome2XtterwPcmxwOHKzqRuaMq7SdNBbb8HlcX +MutEVCM7/7CvKvCkP+AYp/cnVLO1rLlxUQUUhIo8/nR0ICma4aL6igq8pD1O +K0ntQNdvfhRPWFcBvdj0CWbvDoT+jPu5MqlC5rPmSRJfByrr2ynOya8KU5Xd +OXG5bej1c/8LJsqqUPvyrbrnEg1tdWR88lpNFSSEHlNH02jIRziqUZikCoM3 +pytMLGhILSpD9NdeVWBM6BivK6SinAudDRFGqnCkt20LDmpGaRSiSKujKiRo +/qkw2NOIasy5bqw7q4Lsz8T1xsUGNHR6eFLRVRVulmsz/SlqQDKhj8rCzquC +8ujaUwutBpTRsGoLwapwSMbYh6pfjzIP1yS8eagKTjODaY5BtajBIZlhKF4V +bN+0V33Xr0Wjvhdd+ZNVYYOST5nirUVyD+X2ej1TBe+/DiFl6TUoqyf8i1y+ +KpyQjvu18LkaZTta7UhqVIX9106VZlhVoaYLKlebqKpwUsc/OWV3FRq/wTq6 +3Ep//6wGn9JsJVLIevfWqksVWJ5lLY7sr0QvJkWseQdVoWXX0aKkwXKU4zcS +e31NFQruWv03b/0e5d3y3+qiqgaHB0m233uL0dT+U6G3CGogLneFlZZUjFQW +DRbSyWrQdJ1mefZkMcpxEvw8oK0G97qXBhP636Js/CbhhJEaXNvZtbdlqghl +rM5KmJ9Wg5GJOpdFuTdopLAn2tNJDUr/CpSOzL5GMq5VjBFn1cD/jG+zy/vX +KK37/nCjhxow343UlLR8jVLfqD3XDVQDtaWMQGLYK5Tk5am254EaEEwuTyax +F6Je2aOpVg/V4NPluRe7igqQUJ8O/4V4uv2N/qxF2wKUYMI9n/9EDTTvBE1H +ZeejR/I5bxVy1GA9M3dg80geih4c2y9aqwaeY2IMjS05qCOhPW9fgxpUPlhn +2XU9B/EdeSdu26wGbskKRvs1ctC9ijCGuHY1mJPpb1lKeYEik3fX8fWpQYPW +iQNzV7LRbeszpsxL9HgNVQSQQxZKO9xnd3ZFDU5yjDacFM5CHw5an29cV4MH +qLjE9HMmmqcceBDBpA6b1qbDCYcykZ2c8hcBfnVQWtod9/xABiL9mXeSVVYH +vsfh6xmn09ChOY+LYWrqUIMuC/TsTkOuv0ZujRPVoam6w6Ns6hl68qM7++Ve +dQhi+vHrZsgzxNFUNqNhpA6vPTsr1tKfov6E0CBDRzoHO/jdl0pBqzHrEc+d +1YHdvV9oZ80TJBh18Qmnqzpo8LIH1Jx5gg7+d66q9bw6KPyy3ryU8xgVuZmw +2YSoQ2/x98V1g2QUvm9bzLl4dXjgrmxUkpuAMjUi0puS1EFZv3z1r10CqlJj +eauUog5qR6O3a/IloCXp5S8zGergCRa2Fy7FIwfuXrGA1+pw9NSN+22H49Ce +vmcvbreqA9uL3jCq8kPEr+a6UtChDiIe3p36v2PR1DW1Az2d6lDX/sLP800s +ypB5P6LQqw4ZFDaBOkosEvTokqCOqoOPYXva8RMxaC2E2ZSNgQDqC/8Kbr2K +RuOZ5y4kMRIgj4tdSPhaNOpua05UYyZAWmR8vO6haPRaMnrcho0AoilqrWHd +95F7nWjYcx4COCequrecvIe+cmtWGwsRoGs2YjUnIQI1aCSO9wkT4PaWwe/1 +BhGo6NQGn68oAR7zGOz5MheOogtq7BMlCEASF3L8ZB6OjK0Ob0zsJsDGdybd +AYG7qCTJVSuCRIAPWpfmxZrCUFYtzV5CgwCZfbwbrqFh6OGUWtibPQTw4NPS +CqWEIR+01PVtLwHaVGjCO4pvIYWh/y6oYAIc0CH13yy8iRIUk/NaTQkATJb6 +j5tC0eKCUeaNQwQIoEToLN0NRYcr5h9rHybACalWq11moYjNyiQy05IAcVm7 +hN98+g/5h6y6X7ElAI8aA/fK+HVk2X5MQdWFAH43Tr644n0V5ScySw670uPv +FTttyHkVcToX7Ex0J4CxdLOZbcYVVLXCxs56ngCuobfirftDkLp08c++iwS4 +Vd3CSnQMRjz+gumRoQT4uED1kE4NRK64KknvJgH8n7i6/DANRLWcnjErtwhg +5PB87eVqAApKqf3P+S4BzlezXfU8HoAmGi847I8mwI7zZw9ISV9CDcIfxaae +EGDe/apZxrAfkv4Zsj0tlQA3FK7nTKX6oSsFCrzHnxGAtTzaVvCUH9IwuL5R +m0GAkl/x8ctfL6A0L/VvybkEKJz/MVT23Rddq4pKMC0lQNImR9Mmlw+a/F71 +cLWMACk8F9IZc7yRzfpC9PMPBLhgpz11BnsjFc0Td5mr6PWy5/ysdf486smV +C3rfQADb5zp9Wd88ESm+8qRyFwEk3ko+EZp3Q0+K5o99/UwAd0JkOinJDXF8 +2n309hcCWAll2Xvqu6EfPJFmw70EUEZnXpITXVFk6HFK8iABzlxY3l5o4YJG +vebEuX8T4HKlxmf/BWdkESErUjpL9xcln8P80hl9yD6202WeAFLXuqlXzjqj +2OFyvtolAsQYLSoqfzuDwDacIXiDAMK0I7NCH51QkoHM0CQnEd4aP4oZGHFA +rE42/QncRLCbv7lrJMcB+Vy722vESwS5JfuybF8HdKDs96c0fiKcZfnx1IPR +AS2qf6g9sZMI9uvEO8pW9uiQiHUmVZZuL1SQyrTnJEoYUas6KUeEEsrUd9Pv +J9BIHse3KXkiaPpYxT0PO4FC4AM/nzIRgll4Qu/22aKXZ2VCrIhEiBJ1fZHy +8DjiKpyz7KMQIeXV0FYXsg2yuUzz8sJEiJP2sDj3yxql6WXe+QdEcLiSf8Q4 +wxppfz5eIWlAhHeu5U0vdlkj17VKxbMmRHh4NOh3AvdR1Ghwj2HGhggxaonX +FnZaom1bXEWuHSdCDup1/dVngey/6GrynyDC5KGgsylpFmjZbcmDdIoIz6xs +slQIFkjuvt2XS2eI0HJZfnue1RF086tS/qY3EXpX2fs+XjyEOtJYmqN9iTDG +OVu3W/AQEvXsH5byI4KN5q/lvCIz9ObfAyGDS0RozDaxN1s1RUMyqzfvhBBh +1ymV9yejTZDu+caTW+8S//8/RMD7+QNorWfCqC6cCAKMb4y3PDmAivR5SAGR +RNi2dI43wvgAkhOy4Ph+nwg9SRYt82lGiKeutyg7jggffDXs+M8aoh6hGV7I +IEJIYNFVaxF9FHOTf3U+k15PDt+wiG49ZPqbNJL5nAgzEnpOr2P0UEVdQBl3 +LhGWP57+Ws+rhzK8GV2+vKLr8ejiwMstusinXrDqfCURlBqP5Tf7IqRE0MqV +qibClaTc51eYERpOso3rqiGChh2vbXEcBdn4pHjuayCCokW8+rPq/Wi/iIIQ +WysRWJqs/doVdBCHr86FJ71EYDbs33Zi715U8+3UqSN9RDh9xOy/LQNaKNjo +ujFzPxEo+swqG3e00IxIvbjbIBH0gjTcLvRroq4Gc5rGOBFMR4Z/H4vfg1JF +nWRblojwvN3fMoVCRvvIympOf4gQGaZ68PU6CXUdXNRaWSFC2lUFsbQyEuII +CDOV3SDCZuGmAZcOCfl8zLkQwkSCxXd17YWGRARhC1UqfCQoO73+VZ5BHfU+ +/kCt4SeBzFDq3aOP1NDFN7e6jm8jAdg9zhtTVkPZAzvHb24nwZbkD+Lqp1TR +Vp39fN9FSFA+a368oV0ZDf2+eSpKgQRrDtoVDnMKKITN3EVGiQS0A+7Gv5MU +0A6xnb6lyiRw26eT/sxQAZmYvLj5U40EO17+HHBKkUevM1pzKXvo9pzxL+bs +5NAN2x1r07ok0HJcWdLklkXiPj+Yb+rT7QXZG07Uy6CSsGxeYUN6PFxc3R7X +ZdDUm31SRsYk6DWE0IOr0ujoltPGKeYkmHBqq0xdkkKytc/jzE+SYH5GknH/ +DknUprKS0WdHgoRxe4PRcgkUGGf8xt2eBC21Y0MNRyQQzW2iPcyRBI89+91a +gsTRBX5lzkoXEvSs8Bm7/hBFlafyg9UvkmCMzZ+db0wIuTb+u1vuT4IL48pf +IqOE0Dbi4QTTABI8GqXu2btHCJ1jmS1yCSJB5ZjSPo47uxBPLnEm9ToJlm/9 +w7I6O9GJlSIH/igSHP6mGqfYJYhYnFi9U+6RwO5i7GdqhCDKp1lfUYkmAe+x +CnNHA0HEmLqcaBxLAuW6R9aOJQIo23Bv5/VEEjiQDr07lrsNLcW8N5zLpOvX +6X8uqowfpWxwH732nAS2r90uiF7nR8bn7Jx4X9D9bYXsC0b86LH236uKL0ng +yn00qiuHD+kNoBLH1yRoYg8Rvb7Ci6JVa5Q+VdD1P8Tj8a2bC2XvPckZWkUC +70gG2XQfLlSpvzhGrCHBODNb7Sg3F5qxlct8UE+CiIW2gy1GnMg0LFzCooUE +ybvEXl5tZUdsPywFO76SYCGPMKsizIrEJn/NX/tGgiO7gvlsmlmQxtLNj+rf +6fV1OxOQd5kFneF+d+/+AAlqwo3XP39nRlVaIpyHx+j58dcLJr5hQsHRw39b +F0lwJvPCV58HDCgmOaTvyjIJHKP1tJIsGFBO1vb3qiskGKQIVL3ZxoB6PhwI +jFqnx0/aq22lvknRnMidN2Miw1Co6/Gw438phxYNPm4wk6HA7oWb5NgGxXnz +e8FLVjJ4xXI5nwvYoMRu5/fi4SSDxxPdmO+P1ymzuhfHaHxkeOVyhO3T2iqF +4xBvQ/BWMsj/Z70oE7dKkTielaEsQIaaQJmFedIqxfx8j2PEDjLs1TyA5n1W +KLlJ+/tMxMjw9OUersG/y5RzCywfm5XIoN39877gsUWKfY5Bm50KGawcb7ls +5V2k2DjepP1WJQNTz9tj2+sWKEbtzA3biWQ4tHnvkOyeBYpcLtN7Ry0yHMnZ +UfZXep7y04khc1WfDFraQeblSrOUPiH6aGhIhjvnCA2kH78pXR3XUiUOkOGi +4pfyB+6/KXVoM9HQhAzXjsdIq4bNUDKE/917cIQMxw9061I6pijOn9YDFU+R +oXTMKkUkd4Jid1fn0gd7MnyLa3lcbDZBOQrBfocdyLC+9mM04/c4xSB/zcv/ +DBlCpG99dtUep8iGrzpVu5FBVdm8g69vlDKs+8fM9hIZxjc11IVOjFB6VzRN +pgLI4AoTjn1bRiifCi4duHaZDP6eKqEFdcOUGrFl3cwQMtxm35J8iTxMSVtd +1JwLJcOZ4G9npMWGKE6v5iXv3ieDzYDL5oTYAMUz1GrD5AEZmp8U1e8t/kHx +tyr6whNLBjX0UeI96QflzpL/veg4Mrxv3Ev4Q+yn5Guvrsc/IcOE4QtFd+M+ +SgnXiS+2qWQIfPiGs+fTN0r1t7LXIs/I8P3N898yp79Ruq6EuKVmkMFFQEFv +75Veymr1ZndWLhm2P+9zCm/roTDFOrx2zaOvVzjHIuHSQ+Fxro5SKiBDtstF +N1vGHoo42w2D/NdkOHUryypz3xeKgQnb67elZIgz4pAcr/xMif7EE1XXSO+3 +69LN3/g6KUnpXq5hzWTYOJhiNFP5iZJ+sU3fmEaGy1d+FBr7fqIU74heo7WR +ofAAT3fVl4+UvhMCrp2fyUC+NXeV/KaDMqp8Uf/RFzJ0SU5Nr3p2UH5vdIkf ++0qGPqWuY4PyHRSm1LjPvX1keJeYw8Ok106RHxbSHxomQ6yoicA2aKUQioLE +M36SoTq2aEdJXQtl361vq2fHyFA+JrX3pGkLxUz+SeHEJBlyD5/uD7SnUS54 +SIrPzZFhstOscW9yMyVk/3+rrxfo/fDXcnRarZlyi3eo6+ISGbblth45U9dE +SShIj1hZIYP5q6SWC4uNlLTrLC5la2RYq8lj3bzXSMm1OKsXskGGNr3BHnXl +RkqRdIMY+keG0Kvvn/xraqBULMitbm6S4YvKzgZn1wbK/wAtXofl + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.21372310935545752`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 20}, {0., 0.21372310935545752`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}, + 3.9921005662355976`*^9}, + CellLabel-> + "Out[121]=",ExpressionUUID->"454cae5c-566e-8e47-ad18-353204b0c1c2"] +}, 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[122]:=",ExpressionUUID->"e94e1ddb-0658-3b45-ad00-7392c646ee51"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1858108896994459`*^-225\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 122, 394, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337269930374*^9, 3.9921005662764053`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"4fa12d9d-5c43-784d-820b-1508ed373cc4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4285997747323577`*^-231\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 122, 395, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337269930374*^9, 3.992100566284439*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"41f95730-57bd-004f-9ca1-c0f4374bab10"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7210984770789436`*^-237\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 122, 396, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337269930374*^9, 3.992100566292448*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"6f2d3a64-8642-bb46-a8f1-4a73924a770c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 122, 397, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337269930374*^9, 3.9921005663004475`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"4946135e-8316-384d-a1af-68e41a484fc8"], + +Cell[BoxData["21.065801705819155`"], "Output", + CellChangeTimes->{3.9913372766841774`*^9, 3.9921005946656284`*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"f0ec20b2-919c-ae48-b119-ed6009744f55"] +}, 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.991846210534153*^9, 3.991846213941681*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"23c7e6b2-69d5-1a4e-bd5f-947421a54e26"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.895933413319073`*^-228\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 123, 398, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372767181473`*^9, 3.992100594710747*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"d844bebc-fbf5-4a49-b768-3393c7fd1952"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3844672882433587`*^-234\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 123, 399, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372767181473`*^9, 3.992100594718748*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"abf09cc9-631d-e24a-a658-b0f745d59c24"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.618762929424897`*^-241\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 123, 400, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372767181473`*^9, 3.99210059472575*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"9a2ce6bd-ea75-b149-a1d7-3c85110a6187"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 123, 401, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372767181473`*^9, 3.992100594733755*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"33ad31e3-745d-fb41-aed3-aa2a6a76438e"], + +Cell[BoxData["0.08004370767715091`"], "Output", + CellChangeTimes->{3.991337284091696*^9, 3.992100598865803*^9}, + CellLabel-> + "Out[123]=",ExpressionUUID->"0919b2a1-63dc-1441-80c6-f8729c57325d"] +}, 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.991846217504902*^9, 3.991846220659443*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"38ca1203-b2e6-3044-aa85-97017d76bb30"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.895933413319073`*^-228\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 124, 402, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337284131695*^9, 3.9921005989057655`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"fcb82379-def7-6e41-b15b-2ebe9c8f25f3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3844672882433587`*^-234\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 124, 403, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337284131695*^9, 3.9921005989143314`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"009e26d8-b867-c946-bf3d-eeea69dcb4f3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.618762929424897`*^-241\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 124, 404, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337284131695*^9, 3.992100598922333*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"cf5771d7-c4b2-bd49-90ef-d609991a5156"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 124, 405, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337284131695*^9, 3.9921005989293346`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"972660ec-b5e7-6040-bb6e-992cc0858721"], + +Cell[BoxData["3.45673176527753`"], "Output", + CellChangeTimes->{3.9913372907074146`*^9, 3.9921006021959915`*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"47280940-ca99-8f42-a2f3-3b59fa91f6ea"] +}, 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.9918462258948135`*^9, 3.9918462291469593`*^9}}, + CellLabel-> + "In[125]:=",ExpressionUUID->"087e4064-7024-cb41-8231-fe78ad70afda"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.895933413319073`*^-228\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 125, 406, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337290744484*^9, 3.9921006022390003`*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"fce3de28-3f51-6942-b998-0a597a592954"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3844672882433587`*^-234\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 125, 407, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337290744484*^9, 3.992100602247011*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"fbc08b22-0201-fd45-afb7-042780aea2ec"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.618762929424897`*^-241\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 125, 408, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337290744484*^9, 3.992100602254999*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"608140af-eac7-1548-9149-bd01c179781b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 125, 409, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337290744484*^9, 3.992100602262001*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"c6d02368-ae5d-b643-ae77-9f450d71a128"], + +Cell[BoxData["120.47015482066497`"], "Output", + CellChangeTimes->{3.991337294569908*^9, 3.9921006042880497`*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"1fde16d2-bcff-1b4e-b348-19d27b5ab52f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918462331551914`*^9, 3.991846236994051*^9}}, + CellLabel-> + "In[126]:=",ExpressionUUID->"cd9a77e7-d597-394b-a710-f971fc40d827"], + +Cell[BoxData["0.003922424769246018`"], "Output", + CellChangeTimes->{3.9913372946009064`*^9, 3.992100604316124*^9}, + CellLabel-> + "Out[126]=",ExpressionUUID->"dba91fa9-740d-5642-9273-9e26c2617a2c"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991846241790388*^9, 3.9918462437859745`*^9}, + 3.9919238532202225`*^9}, + CellLabel-> + "In[127]:=",ExpressionUUID->"13a90bf7-f7dc-7e48-845e-80048a92ff15"], + +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->"ce764b10-5670-7a4e-86ae-3f77893f67b3"], + +Cell[BoxData["1.283309142944473`"], "Output", + CellChangeTimes->{3.991337294629921*^9, 3.9921006043586273`*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"16ab744a-03f0-ca4a-8b31-f3e982f88cbd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[129]:=",ExpressionUUID->"717d3ead-30a8-ec47-9afe-f9884217d594"], + +Cell[BoxData["12.466014133126249`"], "Output", + CellChangeTimes->{3.9913372946629753`*^9, 3.9921006043677387`*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"c7590f88-b95c-7e4e-aea7-c01e2c415551"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[130]:=",ExpressionUUID->"c43d0cec-6a64-9643-a5bb-27ab984c3bb2"], + +Cell[BoxData["15.997749913115934`"], "Output", + CellChangeTimes->{3.9913372947367725`*^9, 3.992100604378023*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"5e8c5ea6-f441-4e4c-ad10-703836fb344f"] +}, 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->"e15da858-b31b-c344-a560-00b30705c2c2"], + +Cell[BoxData["0.06184064669290803`"], "Output", + CellChangeTimes->{3.9913372947513313`*^9, 3.992100604392023*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"1b7841a5-ae6f-3145-a57b-8ec945033738"] +}, 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->"f53a321d-2180-024b-b925-7b08c74c1c33"], + +Cell[BoxData["3.563755736715102`"], "Output", + CellChangeTimes->{3.9913372948636913`*^9, 3.9921006044702435`*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"9faf895b-2e68-7747-b556-46b28af3bf42"] +}, 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->"6fc2e120-104b-274c-a69b-ff643539124b"], + +Cell[BoxData["0.0017811696007310426`"], "Output", + CellChangeTimes->{3.991337294877693*^9, 3.9921006044822426`*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"71c471c9-ebdd-f240-98ff-51b5b8840299"] +}, 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->"1ebbe4bd-69b2-ba4a-b880-612b325b749b"], + +Cell[BoxData["20.998694897699956`"], "Output", + CellChangeTimes->{3.991337294976324*^9, 3.9921006045630913`*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"b6925efd-7a13-b04f-89e0-df5eebfecbef"] +}, 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->"1efe60b3-9182-2c4c-bd13-9e4d244d7e70"], + +Cell[BoxData["0.9825098148127043`"], "Output", + CellChangeTimes->{3.9913372950022793`*^9, 3.99210060457646*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"ac029762-77fb-0641-a5d6-ecc7bfd1c597"] +}, 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->"66f987a0-c978-3745-b4d7-87ccf5fea6cf"], + +Cell[BoxData["0.017490185187295736`"], "Output", + CellChangeTimes->{3.991337295013279*^9, 3.992100604588436*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"8627da2f-7efa-8443-8277-bc0e0a8b131a"] +}, 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->"696f9a62-0454-0540-abef-a5c123c32f5f"], + +Cell[BoxData["0.017184278609409836`"], "Output", + CellChangeTimes->{3.991337295041279*^9, 3.992100604601492*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"85c32e82-9ca4-f643-b24f-341c16bbfc63"] +}, 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.991846260820032*^9}, + CellLabel-> + "In[138]:=",ExpressionUUID->"efacefcd-90be-574d-92a2-eec47ae06964"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.4986740335837474`*^-228\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 138, 410, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950662746`*^9, 3.992100604624365*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"686cdc6a-ce2f-8b41-bac9-72ea582e5bd2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.177170441982783`*^-234\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 138, 411, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950662746`*^9, 3.9921006046303673`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"a1e5ae7a-c281-2642-9832-e9d6a7d4d982"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.053659611267158`*^-240\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 138, 412, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950662746`*^9, 3.992100604636364*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"f76c36f5-b583-5c49-a8d9-e06aa100523c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 138, 413, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950662746`*^9, 3.9921006046423664`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"5066f900-f536-3e4f-a249-c72a3df9e94f"], + +Cell[BoxData["3.5637557367151014`"], "Output", + CellChangeTimes->{3.991337298790371*^9, 3.992100606951847*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"bde747b4-1200-cd4e-ab5d-293546118a3a"] +}, 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.991846268674473*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"113e0d2a-28bc-cb46-97f5-cf1d438fc6f4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.4986740335837474`*^-228\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 139, 414, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988243732`*^9, 3.9921006069938297`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"5d71f84d-9e2c-f748-a058-3d313cf5dd3a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.177170441982783`*^-234\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 139, 415, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988243732`*^9, 3.9921006070008297`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"a2500435-6615-a641-a81d-709b60ffe3eb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.053659611267158`*^-240\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 139, 416, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988243732`*^9, 3.9921006070068283`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"558e3aff-2533-504c-b4e6-06ddaeced6eb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 139, 417, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988243732`*^9, 3.992100607012018*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"6b24d717-5471-5a4a-a2f3-c0b14497f731"], + +Cell[BoxData["20.998694897699952`"], "Output", + CellChangeTimes->{3.991337302457178*^9, 3.9921006092633743`*^9}, + CellLabel-> + "Out[139]=",ExpressionUUID->"5f0d8c3f-e8b2-3f45-947a-f64869ee0416"] +}, 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.9918462728234997`*^9}, + CellLabel-> + "In[140]:=",ExpressionUUID->"1fd4421d-3fcd-2d4f-bd05-28d15302273b"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4VdsbB3BzypAhc1SmLiIdc9R6M0TmNJjFcc42hMwpU92i362oNNAg +Zc6QkJmusYSSqVAySxycY4ji1m+dP/azn8+z9v6u911r7/3sXeQzdlQ2FhaW +OXwwz0Hv1XZXfHh/0E+My6b4Aw0dnM/UIhsXIF3LMQrTI2nad+SNa1GGX1g2 +07aUd1y8Gi3oTvi/wiXYxRGxTZzGHegKUV/A9D+vxetj87rQXZ2IoFLsqg9B +jzdIfSh4fMrjJfbMYFvUuZp+dJbMG1OGLTkp5/zD6AsKzp9uKce2WIjSC+kY +Rr9LI/UqsV9tzPBE5I2iLYEt/VXYHy+KRZYHjKPA7paMGux5LuOZZdIkiu2I +elCHzXU90FFjdQqNWM3U/ostI5jaGlQzjfaZ8PM0YltL/cieN6Khz2bnlN9g +E09kRVW559Gicv36W+xYBZu40x0LiHtv3VoHdr9Y777QPAaK1BsI68GmOPn6 +3L6+iBK3rK18xKY/YnlaErCEuG53PB3E5pZVFWCQVlCq7b2oMew7lCZTAZEf +SNbkWv4U9s4cx9i9qz+QeqAW1yy27p74ef+aNZQzkHtwGdtbe7hjxmgDJVRt +quXuoqHliDCOLYr/oTKVdDN+7As1PAZK3L9R4A06yzbsFNDN9+r4g7gDcpd3 +YFOyWo2D81hhP3/stB523uvbIxel2KDxYWk3YNO/uUXdus4GQ5EPpk2xo5RX +Sl8EsIOzeUzySew7RbvkFkic4Hg6mTUcG/f06ncGJ7wZtz8Sg71zscKJX4QL +7Mtba+OxCzStk1RXucD5WLViCnZz1XlWvxpuYI/u46rDXmnqGZ424gXuqJxV +/m4aErLkFYh8xQubT7p9l8RW7zUGPj0+ACtv/t3YvhNlT/ap8QO1NmQRYQey +dagf4BUASxtn2VDsSdnnjLgfgjAVtbFzCnuZaNvcqSEE2UvPTFew2fKndokH +CYGTefpTjh5cr8YOu7xZISgyDlqQw3YyulnyfkQY1ivOLlKwOz2DQ8TaReDs +vQd36dhfcxKvuXOLwjvDAjpbLw3RZvMynpmIgsaT3zEi2FtCx3v060XhdypZ +Sx/b+PJxTfcyMZD5R3jzP9jVmdoruWkScKIryEKtj4YyJ3+F7w+VBm+DWO20 +jzRkduLK15BCafgpfMeuHJvWLHy4cEoa+kMOPXyHrZm5R2SnowxkV5BLNrCb +yW6lnAd3wDWvZ6sun2hocWHk7PSlnVBgeXtIoZ+GhP2NX5ZayUJR13eBgQEa +msrc4m3rKwtq5mGvVrArv3yQmouXBcu30SlCgzTkYul6SbFeFlQ2sXVbYmeq +hNvdJ8nBikutUxO25kwOPUZMHirIko2Vn2nouBePqvmoAki6GIw2D9EQCj9B +sv9PAcyHpQOnsJXj0nQoEoog0fZUifsrDbFkaBjGHFUE9bjr2y2xC78625c0 +KILbpk7Wj9hcJwsuSqbvhsgTW98yhnF9xlYfZ8hKsK7rZ3hkjIYyjiV/Xo1R +ggsF3nKB2Ink0RGOh0qwYDWmloxNuRA2K9OjBCIiZi2T2IK1qSzHjJQh6WD1 +wuVx/PxozCvXyKlAcZ74/vYJGpKSvRF7bWIPbB8NfHj2Gw3VXl1W+smmCld2 +SlzNwXZZcuwldqlCPCMh7xP242Z5JUM3VeBd7bugO01Dsl7V3WufVEFyLP/v +DWzlgkkFol0N4u3aBxJmaEhaSobY6agOh+SOtvbN0dCerFDedUQCTrEXGr+W +aYhMubSiak2CnLqGaNIKfl/lkr66u5CguvrfRV9s9vSiF68jSPBO/pzrF+zB +xzPHk4pJsM2pQKvhB/6eprinKslpwKo+ZSFpDe/vNUs1By5N0FIxO39yg4ae +BsvblnVogeR57fOuHHPoQzjSuZylB5f/njTlFp9Du9z6rF39DkBPidd2O7U5 +RP1T/lz6HMCezx6WVSZzSGy2cpMY2RD6m0Zbxj3mUKiGwZckZWPI+t818bqY +OUSe22gVnjEBI7Z9ww6pc6jQMGRTWqcp9Mt6+m9rmEOZy74NBXeOgOMVmZrS +iTm0dkj8XXOsBbTcbfpSzDePhljYGaMeVpB5dEBov+48Cth+5uZFORtY+Gaj +2e0xj577tNbfjbOFZ43BbN9uzqPzSxKrKj5HoeKDq+qNV/NoxfzwyTen7KAw +K21HLWMe6TnfOjR59BhIkFN84xUWULdEqm+zxnFYvJDbzme/gCSzL9Xm/nUC +3pn+3DSWsIAqR5QtrflOQvqVWdfFhgUk00v3Cp87CfQx/6LHKwtI4+6tgowR +e/Ayaw8XEaOjVI4ltaQmB7jecrsneR8dlR/aOxhX5Qjcg5/XT1jTUYrOVcGN +PCfgOOTTf8aXjjo/Z8VrXHeGfUFd9X6X6ajM6pF84AUXaLnq+Vb/CR0x/I+x +BFBc4VMox0ZFFR2tHFbynjdyg76Jejv5bjrKnRtYC9E+Bd+71GbGZunI4WmW +pyuvOyTYcksJszNQaYnFKfYr7uD+UOy2ihQD6Ul1//znpztEFRT33VJnILkR +r8EuHw9gd7LQ9zZmoAme0zaPxj1AdafgQLwDA31ItPY0PUEGx7rykjEfBroT +kcYT9oEMX6KS722OZKDaV39+eh7xhC5lt0axqwy01QWuaFR7wsVsqeNh9xho +57Y3ndtrPcEj5tvhHGz1Ditxrlee4D3QLzGAbWfg/Ky/wRPmFkXdDZJx/vbw +9ui3nvDcyd+fNYWBJIfyt7b2e0LH/cX4uPsMJO8mluKy6gnNpy7dCnuE+3Gf +z43TpEBMwyX60lMGyr5PD7HWpkBDLOsfyXQG2tazeFBMlwLu0vn0Q9jzJqu9 +ufoUiPYJib6BnanCwtphSIGJtWADpQwG4l8VdBQ6SgEnHl4r+0y8Hglam9P8 +KaAnuONJajYDHX2j0+t1hgJJhgf4GrBfsexPUw+iQOEXMdcJ7PshB7UaQykw +x7OSqZzDQNaOph6TkRQIUl/qLcOuknesUrlKgTpRxdLXuQyUWBPlU5lNgf5U +Nbtu/J/gT0rWi8ilwErxX0EMbMtnxZt18ygwvPA0RCCfgbYkTz2rKKTA+xdc +ctbYccG2M+UvKZB2xEKlFTtKSf50WSMF7JUdh8sLGMg3ud2v5CsFfra/b4x5 +zkBH+KcMgkcosC0gwPIB9l9xLHykMQqEmepWlWFPBWsVFk9SgKsADGjYHtZp +cy9oFFjfMfzNvoiBHDhDAop+USDfgNSj9IKBTEMkAwtEqdA38vJ7RTEDNabF +myeJU0HsXulgF7ZBx6J8hCQVbH54P5vFVldoHzCSoYJaHm1YpoSBJD5FGn1W +oMKUBU/xJezZ/UOiW7So0FlnOXq4lIFusD2p8zpGBfeYAa/Sl7j/vbwpVieo +IJyevOUt9mXniGANezy+VH31K3bES9vdf5yosG9it9zmMlw/wXrrHpkK/CTn +ly7YGm1kSksQnm+f1sn/sD/dUuCRu0mFErep/8lXMNBzxOc9fYsKLqI7CjWx +L88tNxfepoKuwkaJMTbpSHOMbjIVnpqlelKwE1k8F60eU+FvEzuHdOzDZ54M +RBRQodrZJFG8koGkpf+nffA5ziNEOhSxl9vO3GZ/QQVVwZBZTex0RWSVWEqF +8Y2u97bY/w0N1WdUUyGx8efuK9gvLaVy37dSQZTvk+w89rVfbJx32qhwz3g6 +4hc2OXfGw7GDCncMQl5wVTGQAEe11EQnFegDjCYZbL8ahxs/P1Jh0SU4ygpb +TvleuPwkzotOJGVh//oU3fN9igo/zSvTirA/xFHVi6apENZrPl+FHTOqOaNH +w/t5IHvve+zBlB5XmyUqnP8lZbSCnbRJ0OQ8KwGs+noFB6rx92BxyDmUnYDP +gz+UTbG/DeUFB3ASkLB+6ZIttsFL4yfkzQSkkrkbydhT7hHr5oIEkHUehcZh +C1iaCJkIE9CiVtmQgK2vI6SERAjw9ng4fRf7Jl/BSQ0JAjLySpuymOPVw8VS +uwgIVRQqasImsgpaReQIOEiybmtjXn/z3PBWBQKWjpr/28WcjxDm41Ai4HJi +rPYwc1zY1JumTsAgtDquYVf/Fo6dIhFgJLhg+Bt78vvI3RFNAiZpnZwcNQy0 +v/58U68uAbdE68S3Yk/4PZepAwIIikaIHDa/Q6RWhSEB42niyn9h6xmZWRYb +E9C9UVK9BztRYuxclhkBvuscPlrYlRxFN9PMCTibUhOvhz2+EJlz3xL3b6UQ +cwBb97VIX4ItAVQlgV/G2OTisdkrdgRwnLkZY4ad8KiI7e/jeH15Gr9YYI8F +H1EPdyDAp0pH0Q6bz03UNNCJgA2+SMETzLwj466+LgSso4CP9sz7d0Rfc3Mn +QH6ZPOfCrGeLeboDmYALQ57oFDNvRbTKjkJAfrDwaQ9m3uh4pyVBQERwUKAn +M6/jxdRhbwK0n0TbUJn1VUT/B74E1DXpcHsx89PNt+n7EeD0LO2BNzM/QUxF +K4CA/l1lXL7M/IiJQ3sDCYhni7A8jc1LKXZQCiZATWH6tB+2jk3MGblQArZ7 +c1L9mfn7LeKlwwkQed6pE4B9XUE8VSyCAM+vhyeYLheYLBU8T8DbCV/fM9ij +68VtPFEEXCvWb2Oa91vMKGcMASF6VeyB2NrdFmt/YgmoDhsXZfr/xHRZjg== + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VdsbB3BzypAhc1SmLiIdc9R6M0TmNJjFcc42hMwpU92i362oNNAg +Zc6QkJmusYSSqVAySxycY4ji1m+dP/azn8+z9v6u911r7/3sXeQzdlQ2FhaW +OXwwz0Hv1XZXfHh/0E+My6b4Aw0dnM/UIhsXIF3LMQrTI2nad+SNa1GGX1g2 +07aUd1y8Gi3oTvi/wiXYxRGxTZzGHegKUV/A9D+vxetj87rQXZ2IoFLsqg9B +jzdIfSh4fMrjJfbMYFvUuZp+dJbMG1OGLTkp5/zD6AsKzp9uKce2WIjSC+kY +Rr9LI/UqsV9tzPBE5I2iLYEt/VXYHy+KRZYHjKPA7paMGux5LuOZZdIkiu2I +elCHzXU90FFjdQqNWM3U/ostI5jaGlQzjfaZ8PM0YltL/cieN6Khz2bnlN9g +E09kRVW559Gicv36W+xYBZu40x0LiHtv3VoHdr9Y777QPAaK1BsI68GmOPn6 +3L6+iBK3rK18xKY/YnlaErCEuG53PB3E5pZVFWCQVlCq7b2oMew7lCZTAZEf +SNbkWv4U9s4cx9i9qz+QeqAW1yy27p74ef+aNZQzkHtwGdtbe7hjxmgDJVRt +quXuoqHliDCOLYr/oTKVdDN+7As1PAZK3L9R4A06yzbsFNDN9+r4g7gDcpd3 +YFOyWo2D81hhP3/stB523uvbIxel2KDxYWk3YNO/uUXdus4GQ5EPpk2xo5RX +Sl8EsIOzeUzySew7RbvkFkic4Hg6mTUcG/f06ncGJ7wZtz8Sg71zscKJX4QL +7Mtba+OxCzStk1RXucD5WLViCnZz1XlWvxpuYI/u46rDXmnqGZ424gXuqJxV +/m4aErLkFYh8xQubT7p9l8RW7zUGPj0+ACtv/t3YvhNlT/ap8QO1NmQRYQey +dagf4BUASxtn2VDsSdnnjLgfgjAVtbFzCnuZaNvcqSEE2UvPTFew2fKndokH +CYGTefpTjh5cr8YOu7xZISgyDlqQw3YyulnyfkQY1ivOLlKwOz2DQ8TaReDs +vQd36dhfcxKvuXOLwjvDAjpbLw3RZvMynpmIgsaT3zEi2FtCx3v060XhdypZ +Sx/b+PJxTfcyMZD5R3jzP9jVmdoruWkScKIryEKtj4YyJ3+F7w+VBm+DWO20 +jzRkduLK15BCafgpfMeuHJvWLHy4cEoa+kMOPXyHrZm5R2SnowxkV5BLNrCb +yW6lnAd3wDWvZ6sun2hocWHk7PSlnVBgeXtIoZ+GhP2NX5ZayUJR13eBgQEa +msrc4m3rKwtq5mGvVrArv3yQmouXBcu30SlCgzTkYul6SbFeFlQ2sXVbYmeq +hNvdJ8nBikutUxO25kwOPUZMHirIko2Vn2nouBePqvmoAki6GIw2D9EQCj9B +sv9PAcyHpQOnsJXj0nQoEoog0fZUifsrDbFkaBjGHFUE9bjr2y2xC78625c0 +KILbpk7Wj9hcJwsuSqbvhsgTW98yhnF9xlYfZ8hKsK7rZ3hkjIYyjiV/Xo1R +ggsF3nKB2Ink0RGOh0qwYDWmloxNuRA2K9OjBCIiZi2T2IK1qSzHjJQh6WD1 +wuVx/PxozCvXyKlAcZ74/vYJGpKSvRF7bWIPbB8NfHj2Gw3VXl1W+smmCld2 +SlzNwXZZcuwldqlCPCMh7xP242Z5JUM3VeBd7bugO01Dsl7V3WufVEFyLP/v +DWzlgkkFol0N4u3aBxJmaEhaSobY6agOh+SOtvbN0dCerFDedUQCTrEXGr+W +aYhMubSiak2CnLqGaNIKfl/lkr66u5CguvrfRV9s9vSiF68jSPBO/pzrF+zB +xzPHk4pJsM2pQKvhB/6eprinKslpwKo+ZSFpDe/vNUs1By5N0FIxO39yg4ae +BsvblnVogeR57fOuHHPoQzjSuZylB5f/njTlFp9Du9z6rF39DkBPidd2O7U5 +RP1T/lz6HMCezx6WVSZzSGy2cpMY2RD6m0Zbxj3mUKiGwZckZWPI+t818bqY +OUSe22gVnjEBI7Z9ww6pc6jQMGRTWqcp9Mt6+m9rmEOZy74NBXeOgOMVmZrS +iTm0dkj8XXOsBbTcbfpSzDePhljYGaMeVpB5dEBov+48Cth+5uZFORtY+Gaj +2e0xj577tNbfjbOFZ43BbN9uzqPzSxKrKj5HoeKDq+qNV/NoxfzwyTen7KAw +K21HLWMe6TnfOjR59BhIkFN84xUWULdEqm+zxnFYvJDbzme/gCSzL9Xm/nUC +3pn+3DSWsIAqR5QtrflOQvqVWdfFhgUk00v3Cp87CfQx/6LHKwtI4+6tgowR +e/Ayaw8XEaOjVI4ltaQmB7jecrsneR8dlR/aOxhX5Qjcg5/XT1jTUYrOVcGN +PCfgOOTTf8aXjjo/Z8VrXHeGfUFd9X6X6ajM6pF84AUXaLnq+Vb/CR0x/I+x +BFBc4VMox0ZFFR2tHFbynjdyg76Jejv5bjrKnRtYC9E+Bd+71GbGZunI4WmW +pyuvOyTYcksJszNQaYnFKfYr7uD+UOy2ihQD6Ul1//znpztEFRT33VJnILkR +r8EuHw9gd7LQ9zZmoAme0zaPxj1AdafgQLwDA31ItPY0PUEGx7rykjEfBroT +kcYT9oEMX6KS722OZKDaV39+eh7xhC5lt0axqwy01QWuaFR7wsVsqeNh9xho +57Y3ndtrPcEj5tvhHGz1Ditxrlee4D3QLzGAbWfg/Ky/wRPmFkXdDZJx/vbw +9ui3nvDcyd+fNYWBJIfyt7b2e0LH/cX4uPsMJO8mluKy6gnNpy7dCnuE+3Gf +z43TpEBMwyX60lMGyr5PD7HWpkBDLOsfyXQG2tazeFBMlwLu0vn0Q9jzJqu9 +ufoUiPYJib6BnanCwtphSIGJtWADpQwG4l8VdBQ6SgEnHl4r+0y8Hglam9P8 +KaAnuONJajYDHX2j0+t1hgJJhgf4GrBfsexPUw+iQOEXMdcJ7PshB7UaQykw +x7OSqZzDQNaOph6TkRQIUl/qLcOuknesUrlKgTpRxdLXuQyUWBPlU5lNgf5U +Nbtu/J/gT0rWi8ilwErxX0EMbMtnxZt18ygwvPA0RCCfgbYkTz2rKKTA+xdc +ctbYccG2M+UvKZB2xEKlFTtKSf50WSMF7JUdh8sLGMg3ud2v5CsFfra/b4x5 +zkBH+KcMgkcosC0gwPIB9l9xLHykMQqEmepWlWFPBWsVFk9SgKsADGjYHtZp +cy9oFFjfMfzNvoiBHDhDAop+USDfgNSj9IKBTEMkAwtEqdA38vJ7RTEDNabF +myeJU0HsXulgF7ZBx6J8hCQVbH54P5vFVldoHzCSoYJaHm1YpoSBJD5FGn1W +oMKUBU/xJezZ/UOiW7So0FlnOXq4lIFusD2p8zpGBfeYAa/Sl7j/vbwpVieo +IJyevOUt9mXniGANezy+VH31K3bES9vdf5yosG9it9zmMlw/wXrrHpkK/CTn +ly7YGm1kSksQnm+f1sn/sD/dUuCRu0mFErep/8lXMNBzxOc9fYsKLqI7CjWx +L88tNxfepoKuwkaJMTbpSHOMbjIVnpqlelKwE1k8F60eU+FvEzuHdOzDZ54M +RBRQodrZJFG8koGkpf+nffA5ziNEOhSxl9vO3GZ/QQVVwZBZTex0RWSVWEqF +8Y2u97bY/w0N1WdUUyGx8efuK9gvLaVy37dSQZTvk+w89rVfbJx32qhwz3g6 +4hc2OXfGw7GDCncMQl5wVTGQAEe11EQnFegDjCYZbL8ahxs/P1Jh0SU4ygpb +TvleuPwkzotOJGVh//oU3fN9igo/zSvTirA/xFHVi6apENZrPl+FHTOqOaNH +w/t5IHvve+zBlB5XmyUqnP8lZbSCnbRJ0OQ8KwGs+noFB6rx92BxyDmUnYDP +gz+UTbG/DeUFB3ASkLB+6ZIttsFL4yfkzQSkkrkbydhT7hHr5oIEkHUehcZh +C1iaCJkIE9CiVtmQgK2vI6SERAjw9ng4fRf7Jl/BSQ0JAjLySpuymOPVw8VS +uwgIVRQqasImsgpaReQIOEiybmtjXn/z3PBWBQKWjpr/28WcjxDm41Ai4HJi +rPYwc1zY1JumTsAgtDquYVf/Fo6dIhFgJLhg+Bt78vvI3RFNAiZpnZwcNQy0 +v/58U68uAbdE68S3Yk/4PZepAwIIikaIHDa/Q6RWhSEB42niyn9h6xmZWRYb +E9C9UVK9BztRYuxclhkBvuscPlrYlRxFN9PMCTibUhOvhz2+EJlz3xL3b6UQ +cwBb97VIX4ItAVQlgV/G2OTisdkrdgRwnLkZY4ad8KiI7e/jeH15Gr9YYI8F +H1EPdyDAp0pH0Q6bz03UNNCJgA2+SMETzLwj466+LgSso4CP9sz7d0Rfc3Mn +QH6ZPOfCrGeLeboDmYALQ57oFDNvRbTKjkJAfrDwaQ9m3uh4pyVBQERwUKAn +M6/jxdRhbwK0n0TbUJn1VUT/B74E1DXpcHsx89PNt+n7EeD0LO2BNzM/QUxF +K4CA/l1lXL7M/IiJQ3sDCYhni7A8jc1LKXZQCiZATWH6tB+2jk3MGblQArZ7 +c1L9mfn7LeKlwwkQed6pE4B9XUE8VSyCAM+vhyeYLheYLBU8T8DbCV/fM9ij +68VtPFEEXCvWb2Oa91vMKGcMASF6VeyB2NrdFmt/YgmoDhsXZfr/xHRZjg== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9004751723702902, + 1.1082611936648008`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9004751723702922}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.9004751723702902, + 1.1082611936648008`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9004751723702922}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VdsbB3BzypAhc1SmLiIdc9R6M0TmNJjFcc42hMwpU92i362oNNAg +Zc6QkJmusYSSqVAySxycY4ji1m+dP/azn8+z9v6u911r7/3sXeQzdlQ2FhaW +OXwwz0Hv1XZXfHh/0E+My6b4Aw0dnM/UIhsXIF3LMQrTI2nad+SNa1GGX1g2 +07aUd1y8Gi3oTvi/wiXYxRGxTZzGHegKUV/A9D+vxetj87rQXZ2IoFLsqg9B +jzdIfSh4fMrjJfbMYFvUuZp+dJbMG1OGLTkp5/zD6AsKzp9uKce2WIjSC+kY +Rr9LI/UqsV9tzPBE5I2iLYEt/VXYHy+KRZYHjKPA7paMGux5LuOZZdIkiu2I +elCHzXU90FFjdQqNWM3U/ostI5jaGlQzjfaZ8PM0YltL/cieN6Khz2bnlN9g +E09kRVW559Gicv36W+xYBZu40x0LiHtv3VoHdr9Y777QPAaK1BsI68GmOPn6 +3L6+iBK3rK18xKY/YnlaErCEuG53PB3E5pZVFWCQVlCq7b2oMew7lCZTAZEf +SNbkWv4U9s4cx9i9qz+QeqAW1yy27p74ef+aNZQzkHtwGdtbe7hjxmgDJVRt +quXuoqHliDCOLYr/oTKVdDN+7As1PAZK3L9R4A06yzbsFNDN9+r4g7gDcpd3 +YFOyWo2D81hhP3/stB523uvbIxel2KDxYWk3YNO/uUXdus4GQ5EPpk2xo5RX +Sl8EsIOzeUzySew7RbvkFkic4Hg6mTUcG/f06ncGJ7wZtz8Sg71zscKJX4QL +7Mtba+OxCzStk1RXucD5WLViCnZz1XlWvxpuYI/u46rDXmnqGZ424gXuqJxV +/m4aErLkFYh8xQubT7p9l8RW7zUGPj0+ACtv/t3YvhNlT/ap8QO1NmQRYQey +dagf4BUASxtn2VDsSdnnjLgfgjAVtbFzCnuZaNvcqSEE2UvPTFew2fKndokH +CYGTefpTjh5cr8YOu7xZISgyDlqQw3YyulnyfkQY1ivOLlKwOz2DQ8TaReDs +vQd36dhfcxKvuXOLwjvDAjpbLw3RZvMynpmIgsaT3zEi2FtCx3v060XhdypZ +Sx/b+PJxTfcyMZD5R3jzP9jVmdoruWkScKIryEKtj4YyJ3+F7w+VBm+DWO20 +jzRkduLK15BCafgpfMeuHJvWLHy4cEoa+kMOPXyHrZm5R2SnowxkV5BLNrCb +yW6lnAd3wDWvZ6sun2hocWHk7PSlnVBgeXtIoZ+GhP2NX5ZayUJR13eBgQEa +msrc4m3rKwtq5mGvVrArv3yQmouXBcu30SlCgzTkYul6SbFeFlQ2sXVbYmeq +hNvdJ8nBikutUxO25kwOPUZMHirIko2Vn2nouBePqvmoAki6GIw2D9EQCj9B +sv9PAcyHpQOnsJXj0nQoEoog0fZUifsrDbFkaBjGHFUE9bjr2y2xC78625c0 +KILbpk7Wj9hcJwsuSqbvhsgTW98yhnF9xlYfZ8hKsK7rZ3hkjIYyjiV/Xo1R +ggsF3nKB2Ink0RGOh0qwYDWmloxNuRA2K9OjBCIiZi2T2IK1qSzHjJQh6WD1 +wuVx/PxozCvXyKlAcZ74/vYJGpKSvRF7bWIPbB8NfHj2Gw3VXl1W+smmCld2 +SlzNwXZZcuwldqlCPCMh7xP242Z5JUM3VeBd7bugO01Dsl7V3WufVEFyLP/v +DWzlgkkFol0N4u3aBxJmaEhaSobY6agOh+SOtvbN0dCerFDedUQCTrEXGr+W +aYhMubSiak2CnLqGaNIKfl/lkr66u5CguvrfRV9s9vSiF68jSPBO/pzrF+zB +xzPHk4pJsM2pQKvhB/6eprinKslpwKo+ZSFpDe/vNUs1By5N0FIxO39yg4ae +BsvblnVogeR57fOuHHPoQzjSuZylB5f/njTlFp9Du9z6rF39DkBPidd2O7U5 +RP1T/lz6HMCezx6WVSZzSGy2cpMY2RD6m0Zbxj3mUKiGwZckZWPI+t818bqY +OUSe22gVnjEBI7Z9ww6pc6jQMGRTWqcp9Mt6+m9rmEOZy74NBXeOgOMVmZrS +iTm0dkj8XXOsBbTcbfpSzDePhljYGaMeVpB5dEBov+48Cth+5uZFORtY+Gaj +2e0xj577tNbfjbOFZ43BbN9uzqPzSxKrKj5HoeKDq+qNV/NoxfzwyTen7KAw +K21HLWMe6TnfOjR59BhIkFN84xUWULdEqm+zxnFYvJDbzme/gCSzL9Xm/nUC +3pn+3DSWsIAqR5QtrflOQvqVWdfFhgUk00v3Cp87CfQx/6LHKwtI4+6tgowR +e/Ayaw8XEaOjVI4ltaQmB7jecrsneR8dlR/aOxhX5Qjcg5/XT1jTUYrOVcGN +PCfgOOTTf8aXjjo/Z8VrXHeGfUFd9X6X6ajM6pF84AUXaLnq+Vb/CR0x/I+x +BFBc4VMox0ZFFR2tHFbynjdyg76Jejv5bjrKnRtYC9E+Bd+71GbGZunI4WmW +pyuvOyTYcksJszNQaYnFKfYr7uD+UOy2ihQD6Ul1//znpztEFRT33VJnILkR +r8EuHw9gd7LQ9zZmoAme0zaPxj1AdafgQLwDA31ItPY0PUEGx7rykjEfBroT +kcYT9oEMX6KS722OZKDaV39+eh7xhC5lt0axqwy01QWuaFR7wsVsqeNh9xho +57Y3ndtrPcEj5tvhHGz1Ditxrlee4D3QLzGAbWfg/Ky/wRPmFkXdDZJx/vbw +9ui3nvDcyd+fNYWBJIfyt7b2e0LH/cX4uPsMJO8mluKy6gnNpy7dCnuE+3Gf +z43TpEBMwyX60lMGyr5PD7HWpkBDLOsfyXQG2tazeFBMlwLu0vn0Q9jzJqu9 +ufoUiPYJib6BnanCwtphSIGJtWADpQwG4l8VdBQ6SgEnHl4r+0y8Hglam9P8 +KaAnuONJajYDHX2j0+t1hgJJhgf4GrBfsexPUw+iQOEXMdcJ7PshB7UaQykw +x7OSqZzDQNaOph6TkRQIUl/qLcOuknesUrlKgTpRxdLXuQyUWBPlU5lNgf5U +Nbtu/J/gT0rWi8ilwErxX0EMbMtnxZt18ygwvPA0RCCfgbYkTz2rKKTA+xdc +ctbYccG2M+UvKZB2xEKlFTtKSf50WSMF7JUdh8sLGMg3ud2v5CsFfra/b4x5 +zkBH+KcMgkcosC0gwPIB9l9xLHykMQqEmepWlWFPBWsVFk9SgKsADGjYHtZp +cy9oFFjfMfzNvoiBHDhDAop+USDfgNSj9IKBTEMkAwtEqdA38vJ7RTEDNabF +myeJU0HsXulgF7ZBx6J8hCQVbH54P5vFVldoHzCSoYJaHm1YpoSBJD5FGn1W +oMKUBU/xJezZ/UOiW7So0FlnOXq4lIFusD2p8zpGBfeYAa/Sl7j/vbwpVieo +IJyevOUt9mXniGANezy+VH31K3bES9vdf5yosG9it9zmMlw/wXrrHpkK/CTn +ly7YGm1kSksQnm+f1sn/sD/dUuCRu0mFErep/8lXMNBzxOc9fYsKLqI7CjWx +L88tNxfepoKuwkaJMTbpSHOMbjIVnpqlelKwE1k8F60eU+FvEzuHdOzDZ54M +RBRQodrZJFG8koGkpf+nffA5ziNEOhSxl9vO3GZ/QQVVwZBZTex0RWSVWEqF +8Y2u97bY/w0N1WdUUyGx8efuK9gvLaVy37dSQZTvk+w89rVfbJx32qhwz3g6 +4hc2OXfGw7GDCncMQl5wVTGQAEe11EQnFegDjCYZbL8ahxs/P1Jh0SU4ygpb +TvleuPwkzotOJGVh//oU3fN9igo/zSvTirA/xFHVi6apENZrPl+FHTOqOaNH +w/t5IHvve+zBlB5XmyUqnP8lZbSCnbRJ0OQ8KwGs+noFB6rx92BxyDmUnYDP +gz+UTbG/DeUFB3ASkLB+6ZIttsFL4yfkzQSkkrkbydhT7hHr5oIEkHUehcZh +C1iaCJkIE9CiVtmQgK2vI6SERAjw9ng4fRf7Jl/BSQ0JAjLySpuymOPVw8VS +uwgIVRQqasImsgpaReQIOEiybmtjXn/z3PBWBQKWjpr/28WcjxDm41Ai4HJi +rPYwc1zY1JumTsAgtDquYVf/Fo6dIhFgJLhg+Bt78vvI3RFNAiZpnZwcNQy0 +v/58U68uAbdE68S3Yk/4PZepAwIIikaIHDa/Q6RWhSEB42niyn9h6xmZWRYb +E9C9UVK9BztRYuxclhkBvuscPlrYlRxFN9PMCTibUhOvhz2+EJlz3xL3b6UQ +cwBb97VIX4ItAVQlgV/G2OTisdkrdgRwnLkZY4ad8KiI7e/jeH15Gr9YYI8F +H1EPdyDAp0pH0Q6bz03UNNCJgA2+SMETzLwj466+LgSso4CP9sz7d0Rfc3Mn +QH6ZPOfCrGeLeboDmYALQ57oFDNvRbTKjkJAfrDwaQ9m3uh4pyVBQERwUKAn +M6/jxdRhbwK0n0TbUJn1VUT/B74E1DXpcHsx89PNt+n7EeD0LO2BNzM/QUxF +K4CA/l1lXL7M/IiJQ3sDCYhni7A8jc1LKXZQCiZATWH6tB+2jk3MGblQArZ7 +c1L9mfn7LeKlwwkQed6pE4B9XUE8VSyCAM+vhyeYLheYLBU8T8DbCV/fM9ij +68VtPFEEXCvWb2Oa91vMKGcMASF6VeyB2NrdFmt/YgmoDhsXZfr/xHRZjg== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9004751723702902, 1.1082611936648008`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9004751723702922}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.9004751723702922}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "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.9004751723702902, 1.1082611936648008`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991337564416748*^9, 3.9921008183623753`*^9}, + CellLabel-> + "Out[140]=",ExpressionUUID->"70f5d02e-9682-0847-a186-3662438eef1a"] +}, 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", ",", "15"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.991846277689621*^9}, + CellLabel-> + "In[141]:=",ExpressionUUID->"0a8036ea-ac95-654b-96a9-78af964912a2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.40906604234004`*^-281\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 418, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337564646551*^9, 3.9921008185666313`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"dd8d7f63-073b-6d48-9a22-9aa02003f3a2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.912468006416197`*^-294\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 419, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337564646551*^9, 3.992100818573635*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"63a6cac0-1bbe-be4e-9873-ce21a67d4842"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3235110751489251`*^-307\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 420, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337564646551*^9, 3.9921008185786324`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"984c3336-6bfb-a546-8fa2-f60fb793ca7d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 141, 421, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337564646551*^9, 3.992100818584633*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"8642d6c8-1953-2949-bd81-e06a231aa494"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVl3k4VV8Xx81TkczJfLm4Q0qlqM5aKDIWhahMZYgiQ0QqCREJCWlCaFCK +ShmKiLhX5hAyNiCJzNPPe9+/zvN5znnW/n7XWnvvdRSdvS1dONjY2CbY2dj+ +/5zpqf2oHJNEyBTutnl84DjRek8qSLfDF9YPVUzaZesBijc4S3WEQXSzSig9 +2xIC9j9p5+xIhL9rohe5s51h7Zhk4nx7JpiPrQg9z/KF3lJz76n2AvhM118K +eBAGBsoj3ybaK4BktUv38b1EmG/fdnO8vRlm5n2uXYnJhEr9h1lNmYNQIvjN +at9iAcj0Fv10pv0BXzv9dCfPEhA76fCEV38SZnw4dMtPfgAK74Pq/TaT4Pnp +nQzz3AfAzJ8Dtzwnod6aQa27+gFOdpxaT0uahFrz6E8vHn2Aj7tDYvf/mISU +vxc3cX7/AP6yt7xuXZkC0d7nddWHKqClvlmTWjcN6kkPZ9J0KiFxk0GJudUc +JG65vF2l5yNodNka7nJnsd7fh2+GP0Jd+KkW6rk5qFjLuQenPwJPR9Jvvow5 +2Hp/aW7z6io4d2FwfeXoHAid6O3N0q6C48zQkG3h83DR7evFx4lVoOVSskvh +5QJ83rjPgryrGlqEGmqFqhcg/odgfqBhNZx+O2C13LEAJZVLLe8tquHJKgGv +zv8WwOo26dAG12qQLzh0L8l4EQyPWq9OjKsGvpXp//gGFuEAjrSc+FYNX1M3 +lk8IL0PO5I4ZI79PkNaSuyZAZRmeKZ17uub8J7ATUnVY0F4GviucXLWRn6D7 +sux/HMeWQSkh4ZpE2ifo8xLYKfZ6GfY9dmPKlH+Cod3f32jZ/gf1CnbrW/lr +YG485fm5jBWwNdCM7r9RA0VU0ZWV1yvwVsjsseSdGgh2jTMPZ6wAVUJ5i25W +DSx1hf+JnVyBiJnlCK9XNRA6+Fa8QYkNeVb5sGm21kB4ffaBPn82pNw/+ODw +2lqIybrYwLGOHZftbx/VCqsF4y0nRMRJ7JiUMsMoiqoFvo+WVqp0dnyaFLdq +0/VaCB9U6TLRZUe1zBjexdu1EKJU9zPpBDt+/ndiaulVLXilS/1HLmbHwi98 +QkXfa4G2kUNX+yM7Dh09MBg0UgsjZb8vm9SzozYGJG0YrwW33vf8pwfY0TY3 +/5rfYi04yrmIFwlwoNHVhWnPtQywuJNPMznMgRoWr2MkdzBAmHbb+6gLB9pO +aaVKIAPqS8ILvL05UMLJLZF/DwOMu2y2J13mwJWBSCumOQP0pP/T/5bLgd0p +SfjeiQFbUo0Pey9xYPaFbPFjEQz4p7rl3iUeTsz6cKQ4I5oBL97I9t8Q5sSb +J667tV5jAL193PWtMidGXzAdFE9mAFkixZfdjBN97u27xZ/DAMmkwegbdzmx +F7u+v65kgBT1dfhcDieOUX5vXqhmgHRF5MWjLzjRSVF++xYGA+TG1c+oVnKi +h/Fa9+hGBqiYnnYsGWKtd3Z/+ttuVvxB3cMK/zgxzi+y+UkvA9SCRa0jFlnv +jcoYiQMMoD0qNNknxIVDM3ISu4cYsJlrWWtwMxeejttyiDbJ8ne7ftPeXVwo +t2tqvm6aAVqa6bRnBlz44J+C/7E5Bug46isF2nJh5jqPRZ9lBuiWRguuusiF ++PRRmjgvE/b5S3zXZHChya4G6yApJuxfNdST0sKFgrTQZ2elmWCZWfR1qZsL +l0r/cXvJMMG68UhD9V8u9OonPukoMOEo7UGxnTg3cmk86DyiygT7Sv/XZXLc +eDLTPW61OhMc7QxeKKtxo19UjV0BhQnHo4azx3S48XiZhlEfnQme3zUSwhy5 +cSDgXWPVZiacPMce++sEN0ql7L9L3soEL5GWSFM/FiuUpZ3XYoIvBoRIRHLj ++Zo3W4S0meDfbhh47jo30rYntRvqMCHAa51vXyo33n44/iZwBxOC7pS6Pcnl +Rr0SfqJ4FxOCN8c5r3nNjRqj+iN1BBNCGA5H/d9z4znafN8XYELoHMcBookb +PV8KlDB0mRB2vdXsQSc3KquuyS7UY0I4OWcv33duvLLQ8zNVnwlXDhoRzTPc ++JHN8yLuYYL0q3ppDnYeNPtXISJhwIQ80YOzm1bx4MeIm4f7WKzn97XFSZwH +aZZm9vcNmdDWbP8iQZ4HrwgekT+wlwkemt9jP6jzoHmEzoNFFi8nnDgxsZkH +e5Ldx1KNmKBs4a9ksZcHi+TaRvONmfD2xfx/oZY82Gy3/THdhAmmwhe7Xhzh +QfFnGnCPxX3eXG/7XHlQtdH+JacpE/waopOEfXjwk6O3gD2LeTTW+OA5HpRq +W2v0jMVpcUlmpyN48FfQst8EizeMraOkX+fBScfx6xQzJlSY3edpvMWDssee +ZxxisfUz5cGVByw9ojx551g8svpJmUYeD+YWVRfdYPGFkxp3HN7yYIYhozad +xWvrXp29XsGD+gfHBzJZnEXVsSqr48GDIvICaSzeHlO26W8bD7bu1d8dyeK6 +kd1C8v08qGKyP9mNxY7GjBHz36z1J4CbYPHU432fLkzzoPx1kWR+Fl/h//Ig +b4UHNcbqzRgs/dIn7EJ7+HlxTj9sUyiL82p6jwiJ8WI/BQ2oLNZTc9Em5HiR +I00pgcnKV9uVEXEvNV7c+s1I0onFHr+8/93V5EXea93ffrPyvWwwXf95Jy++ +ieQd8WRxfE5w7rIBL1K+L2P//+vDwxZFt+DF7sm5XyYsNq0S0L3mwoueOuw7 +2Fn17FOOl33nzYsX6u5PmLDq7xcuvjAaxIvLhS6Csaz+SNNXeGkax4tn+D9H +j+5m5f9B9vWQVF7cSd84vZrFFRzUk08zebFYmOhSYvXf8IetKqvf8GLADzm6 +Bqtft6NJCrOXF59Z3bvE2MnK3/1Gv8VhXvx1pP1wCms/OK5Y7adO8eJ7vu5u +W9Z+ufLekT+Gjw+PPqoaLtvG8r8z4JzxJj58OFH+WViT5f/Ook3wDj7spbSF +xGxk+V8M3fJkDx/KmOixLW1g+S2J+cNvx4e/Ok1vv6ey/GhnONSG8eHSnptV +DGUmGKcLTZnE8mG556U9YiQmKPGGRNXf5MNRt8/CVopMaGy1zm95xIedm3/d +KZVl+T29mrOnng+7jjwRVZZgwlBOYM4/aX7k+iFdd4ibCWWCP3TOKPOjr7/7 +vnWcTEj2t2yYpfNjxM6Dp5rYmLBHjz63hPzYEWN1TW2JAZnfBox43fix5dnv +Ud9/DDgiZv5n/Ut+HLo78zTkG+s8PVdy6V4pP168G6ZX1MkAgQE1CcVqfoz1 +8a36086AouecQP7Kj0ZbMx4RzQyQMCmK37jCj2dJA2dDWed94yXlLXtMBLB7 +UHw86hkDdv9dCPYaFEC6kadRyxkGBO1NonwYFcCb0vHfKL4MyMugd4rOCGDJ +FnObc16s++Ogo3YR3yo8NcYU5nVjwOjbqlnODaswTP79RoYNA26ExfvfOrsK +5WN7mzm3M2BAnOz1UXA1+jfNBnlM1oKkd5mspORqfOgQSB8eqwXTmkOfTyis +xuGmRT8n1v1bGBxDW7N5NR6Q29pI9NfC1d7xEdtDq5HY9MjxWX0taD4ucfub +uRqvgWq5/aNauLTTwkl6uyCmo2++tk0t7LW/92+bniAW2k0Wh1nUglDo78tW +poLYQm/grTKphTuVETnxjoLY+eR21FashbfGxb95ogWRcvLXRLVaLYwfIgVM +fhVE7kvpH/LnasD+zPTVunNC+JqT5t/Jmm908m69ulC2Bocd1mWJFH2Ck3MT +oTWCa1HsaMDzmrEqmKcK99CtRNCJdqJOn1kJO3Ofpicni+KAqXakYeoHmBAx +drSuEMOsyNzLr9aWwfdYR2tfXgn027dhyqWoGIz+Bhr90JJEPe/Lvh2DhTB6 +jM/v1UUpjP6derhtzUvW/CzJcaViHb7W+dgR4vgcRD6T4178lcZIjeiOD02P +QSbq+X4tLRm8zThwuCktC1Kp2sKibrL4KPh708jZdLAy+Rz/3lMW4+/fblvr +kQ4ink5rPU7LIiOZQ0T/cDrEPIkW+RAki0kiPvIfd6XDBfVOMe9YWdwoI6yF +nOlwXPXcOma+LM6n5TzQUbgPm0jvlC4vyeJJKySyne8CQ1p362SCHO47Tasq +VEyDRrnnZK4UOVQyH7j8mScN2pRkpcTvyGFJfIncwu9b0E+ZX9DKkUO9Tezl +SYW3YE4nvzy4WA7lBnsS6k1vAfmwoinHoBxG5ph5mpxPhbDb7MfWbpHH7Nyh +BoWxZNCRqYjXaJPH6Ee7ZH6sToIBknLPcKc8HgkLTbsxdwOiqZHUrF55XLej +psHy+w3o0DGulhqWRyuJOzs4S29AoG3zIvuSPM5vSpSlnrwBdiY+m0eEFfCs +S9Cm6w2JkBzF2m5aCsilx/foRGYCCHFm+juFKaDnsJhpz2gc8MyXHZgIV0Dl +xwLzRrVx8N/YN81LVxSw+jpHent2HPztXDeRHquA6/sehB5yiIPGgoRTfckK ++KBpUHCs5RokOl9ydchVwA9z0x4HK2NBosLx0NFWBUzzeufhXXwVhN5e2Pan +TQG3rwmxHEu7Cjx5dyTOf1XAXTuSHGLPXYXZWx2td3oU8M5v3XiVXVehw2e/ +RfeQAipEvfha+yEa0hTR+PCyArZyzF2rbowCuUvyO23Jing2o+n2NNcVyPPj +U/qmpojvctTKnw9HAuE6wetEVcSChVGMqI+EoyaVLe4bFbF2LJs7LDUS7oi7 +eZ7VUURDyWj7cnokrHuSl5Ziroj2umvPEkcjQKxl1/yXAEX0/yUzXtBwGbKq +yL22QYo4T0ab/DeXYfPbNVXfzini2r2ByTX3L4Pl3f74H6GK6C7oZq57+jIk +uEWoTV9VxPiM1gu2IpdBaKnORuy+Ilr5fqkXPRwG/CpHCi0/KaKC9VU19f9C +wWMdGOfWKmKKi+7nyJFQYAgq9XDWKaLyFs752bZQiJ35xf26kaVHb/qR2ItQ +EKrxs5LsVMSx/9ZVbj0Wyur/mKmuUUXMuIt+omkXQSa/WNNFRAnPbrW+p3j0 +PIRk361+J6aEO25ubA7XOQ/fboXaSUgqIf38Z6dVUufhXphB2Kf1SrjMH6YY +1hICCgebm9RVlLBuQZtD1DQEVGaHT49tU0IxNrLPY/1zsGHXuueBR5WQq+iY +wg+TIHhJOrHI4aiEg8oqZn8oQbBdoMgwzlkJmb3Bk9ICQaDXfqgvy42l54IP +6WfNWbD2SV3b7KOEtLuVltv3noWL2ZL+tEglNGoa0c0zC4RGQQnt/jwlTNe/ +LTLrewasplwiTuYrobuMtM0p6zPQ2fm6afalEq5cyfvLpXMGvj+08hAqUkJK +/dO7KexnYE735u0dlUoY9uPCGcNEf1AMEPvvZrsS+vDz3X5d5Ae+PSKVxmwk +lN2TIzMl7ws11UfePeEgYbhVRfkCny/IPc95I8BNwsbtPdLr//kA46LOUwY/ +CV955SY8+ugDSorON41FSbjrp9jEpIcPNB3LdzMmkzB97YUf20pPw8bhfauN +TUlo4P7+fE6/F0Q23eJ5Yk5Cp7NvZT4VeUF30SCbgAUJL/Pne4onekHU1cDp +WisSVnYreOjoe0Ef9X6PkQMJj4xuJ2U8PAXxXmMvjHxJqPq6oaTk7En4Oxlr +ZZRKQvvX48eXdTyguyPD+m4aCQ/bxL/ZsM4DGO8KbSbukLCVf+V75OwJyLrS +Z3srg4RRT2S1c1+dALv1W+yHn5Cw44zqk7KNJ6BKr8s1+h0JPx+WUp3VcIfb +CepnawdIKLBrTXuGkStEBRBBsj9ImPrX1MSN5goBhw8E+/wioUZQsti+Na6w +X+V8yLpREs6ZJMlEfHEBnqLG0BPTJEzeN65/5ZgL+PQFRvPzKeOz+p4D1RHH +wVCjOs2IroxBfn9GDAec4RDP3oONGsq41aq3ZbLaGTy+1QraaCpjzpD9vspc +Z4iL+Rx6fJsyGn+9a193xhnafrW6XtRVRvlXbdFhq5zhePqg5msrZRwTvjtw +ZJcThK1lZypcYMVfiNC+4OcASUNh4Q9DlTH2o91BlT0OkFPGRWy4rIx15XQF +AUkHYJziy98RpYy33dqfxZTYw1rGmhTrRGW0OF773ZXXHtLD5I7F5ihjyK/f +BfjkCLyf3LE4W6+MOvxuETnSdpBR98b5QJMyJiiP75aZsYXw7M2MvBZljN+0 +xbW8yRaMbKi3XDqUUTxRnu1GtC20Fktva+lXxmSLlYXDi4dg5NK8b96UMnY8 +w7/7f9mAhPCbkePSKviyTonq3WsF80OaluUyKkiJT67fX24F3R/yitbLq6DZ +rbQSuwwryPDLiWomqaBzQ1fxz2NWQGu/SUa6CsbK2h/oHDkIevf8ndejCoau +bknnYzsIXjTNziYXFZQx1xnaZ2AJZ2alFxzcVfD7cOj6PHVLCKnglB7zUMGY +Q2K7twpaQsyhL7YCp1VQzr09+12rBTwKP/tVL1gFnXa+Wp3vYgED3e87Xsap +4E1BXYWZuP1gfc2k/eYbFaSKlPHuXjSDo4e2zJKKVVD7Rl57CNMMjpNkJQtK +VZDj1orb4m0z8Csas67/wNK73sOhZpcZxP9IaOOpU0H+1ittKeGmwNjV8SWw +TwX1N4zEl8mZwK6x4622/GTcfVTFsCtsL0iUGGaWriLjx73K+yqP7oWxK5TT +8kJk/Ox4+0/P9r1wT3F81Q8RMoYZ7fnz/K8h/HfwnP5pGTI603LZCxwMoawk +oSBSg4x9r+Keruw1AN3o9/Evrcg4WMDHJgW7Qdo6w17iEBld9TacWpTfDf+U +wmlBdmQUkt85LMC+GzJLjWoIBzKeSmukP6vUB47x1pVadzKKXb7cOmesD5XW +v736zpGx/w9RGuKkB3uUpcwEM8k4PRm9++NThFd/qhSPZ5GxU2kmSv8GgvIb +v5niHDL2Ng+1/wxC4DJuuO+eS8aXthHfUg0RKrwj/1W+IuOBk46SrHEQiJKp +lOBPZAx4F+3rb0yAlmXTwK9RMkYaHN+id2EH5Ky/+Ib4S8a2Epnk1AM7QPwH +LfbmBBnf7X9rTFPfAVOBUVv1Z8gY2kg6JfBFBwruQtS9FTISi35jqRo6oDH8 +jDUOquLUYFZ18d/toBZ69WzFNhafXzPMkaYFpTuyuU11VFEaJ894+WnB/tmy +xC87VZHLpF9N0kwLznpNPx3SVUXXAYt0OXYtqDni2C9kqooqlWTjJc+t4K6t +ZXzYURVDpVRSH5pugcf/+tdPRaliC5JSQ7ZpApG39Oh8jCrmf9VVH5HUhOYT +klq8caqYEif8+OrcJljoM90vfUMVp5fe7z1WvAmMG96E411VzJ2tGPbATTCS +e+1PbL4q6nzMm79htREoLtplKp2qyCveeaNqNx2uK5kvXO5WxT8ab/e+EqPD +VK/z1oEeVTSA+czR7zR4bxebe29QFQeDNz7ZHkkDy/29KZJ/VLFE60qTZh0V +gnZEnOZnU8OhNxHJNi4UqFnbpPhHRQ03ZJ7heVerCvSGH0dM1NSQVFfnoZip +ComxCymPKWqYcP7XmcpgVTjCqyzkqqGG9w1fyJfRVOHvUsBCz3Y17B/csTXm +BhkkhmRaGk3U0LOr0Zd6UgVc3ruHv/JRw5ZEtWpjQxKMnRoJ3OOvhsrvtQoF +lElwVvakZ1uAGhpJW/HwspPgaoi35dw5NSwvSzF6WaIEL3QCFHZGqqGdx13B +xs1KsFR4ubQyTQ0L9tQxazcoQuLze1PNlWpY3yu/OztNDmQcFIaOVauhzFIU +9jrJQbZQZtdUjRq2pTAlQ9Tl4O2p7AqJejW8uedyZ1eRLHyjPo2361DDytnu +EKVeGVB7VEQbGFVDc9/1l/bsWA9l6a3HJ8TVUTsmQb1zqxT0mSo6BEipo+FX +jgfy/FLANn/KdlFaHR8EVzYXdEuCngWvObeCOhpZPnAsD5eEanadbeso6jgy +Mv7Mo0MC6pzv8+sS6ijFVy6beE0cOpU98uJd1THshv41NpooLDYWPhI/oY6D +ot89JflEQeY854M0T3VsyzJ6fOq7CBz9cicl67Q6HqwrTW+7KwJ9EQ2hb4PV +kemQY3BdVAR+/dxyoC9OHfUv3ovUF1gLU49WZjXeqKOw/9UW+m4h+GltkB5d +pI4XyZ1p14WEoIPr2t7BEnXMLPvBbfJVEEocpW8ll6ujik11ap23IIRJbdVZ +rlXHQt/dqb/TV4NwlEcIo1sdyRlSr5VEVwHN7QubCwcFn3Za845s5gM5cZnH +77ko2O4dwh7KxwfClc4WUrwUfMxxINnhGy9Myo1nMFdR0EpY/P38FV4obhPQ +1xSnoIPR8slrfTyw1wAjVlQpyMcl/KDhHjccU8nlTzOjIGlq+yGmKScEV9l7 +kPdTcE530v0zmRPiXUSYBZYUfBGYtluCnRNKs4NimTYUXGKT9w4u5AAx8t41 +y04UDDx1aNdFZQ6oJv8Qcwyg4EYB0fsiguxAUZNXIN+noOE7ob8x0v8RWNMc +WpBBwVdtwq2hPcuEtXtkP5FFwbXy9/V+ZS4Tlx/9ybR5TMEeXtcUbvoy0a1W +qhL9koKtz+uP+xosEXHqttTRTxSEOI1vztcWiAnKDa2CcQpanriTneA6S3TU +4R7RSQo2MqmbPXRmiXKvsQP+0xQse975NUFologrMPLRWmDlR2qzfd2bGYKi +w/a0mJOKke2n+3sFZwhno1OKlRJUfOCfd0y4ZopodTNc3bqTiqL/cnGnzz+i +hH9aeitQ0eviUBuX+T8iMzdTPVmXiiW2HIcFqf+I03+XDQ4ZUPG+/Upg948J +QjDw1aXufVTW/7Odtpv9BGEQqTj73ZmKwXnuj5vtxom3WYv901FU5Hebbwhb +GiW09P1njWOoSJdhb7pVNUq87h9dnX6NigJtD1pFr48SBXI924wTqejGdU9v +A2mUeJpafu3ebSoybDpiRvb9JtJjI7QN86gYbXOz/F/xMBHtvyYhtYWKDW8C +OrlafhJ8olE5f75QcXGQX8Lo4U8iMp+tVK+DihY8dPq3cz+J8LGJn6PdVDQb +C/r0T+UnccG9dafuTypO4Pznj+d/EL5Hbg0Nz1HR5UPr/PUd3wm73STcIUfD +5Sd9Yaaj/cRyK59QpQINTW6p96dX9xPpLmNdxiQa3pTYxMCMfuJnZFGgnRoN +i4vvrjja9BO+tfueB2nSsPvPkQjRT33EVfMQubcGNLwnq6CR4NZL0HudRsGI +hjWiv/jVVXqJRm/D4k8mrPhb0ycNBnsIiQQR6/b9NPTmfj4p7NRDZLY8ujZj +R0PO5TK+CudvRPGhL0tbvGn4K2uT7YfzXcTR4WJGqQ8NRYeayvfodxFswemp +u/1pOKXygU2Xv4swuO255WAQDQt5WwNSkzuJ5m/sJ/0u0zBh6XtiQeFXYsR5 +Q1d+Cg3N6He9W1Z1EOtPXSnaUE7DxZWNthJcX4i4FdetMRU0/AOFkV1fWwmO +RIP8Xx9pmHn6b+fE81ZipJD7cXotDakWIw/XHG0litnCU0VaaEi/YtGzUtxC +2CWFBs78oKHi8updWhHNRD3ZcdJyiIatq3wiGQ7NhF4ReD8foeHdjTS1hzrN +BKXnP1f3vzTsWSly2jbRRMyrnrfunKNhGLXMLtupiUgtCdr6fhUdz768+MJw +XyOx2tw2X1qIjlcNJ9epbGgkQvu20wOF6ThUtnNaT7CRcOeeU94oTkfp+6eM +Q1IbiG37AsQy5eh4TOcq2SStnmgb8J2M2MT6Pj2b7/GrOkJc4GS+mQ0dq+uy +1vsRtUSW/vngcVs6dpo/PH+Lq5bQPB+nf+MIHXNWtv8mmDWE+fiLLx1OdLSX +FfjIYVdDRLZNzx87SUfHyoAui/OfiLnMi3rBl+hY8Fw8U6Oziojsjl8lG87S +a70YU/+wihCTyGwti6Rj6HGrlu4zVcTG6I+u3LF0DKSnNemLVhEnvPlj4pPp +WGhie1DpwEeic8eNlpxcOr7s3ht29GcF4X4m645RHh0HtN9Qo4oriJm81y6j +L+jop//fYbHrFYSIUsfspkI6LucyJcy1KwgTPlmZd+V0LL2e+WZj4geitDXn +eMsXOjZycQ9yW5UTxkJv6QEdLD2fn538vaGc6DCsnZHqouMTyQEjMn85MVX8 +O8q+j47W3wrMNM+XEfSMjc+GR+io23Ugu8zuPVHaqRsQ+4eOphO0p29F3xPG +YgdAY5yV3/BMfYvP7wjXK2ea/KfpKErhqz+s946YKo9Mk5yj44hmggxzuZQI +W0g5VrxAxy7LnoLWolJCeMtj2tFlOl4y9twTGFBK3DtVPL2yQseLGjYx+ZtL +if8BCK4F/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:eJwVl3k4VV8Xx81TkczJfLm4Q0qlqM5aKDIWhahMZYgiQ0QqCREJCWlCaFCK +ShmKiLhX5hAyNiCJzNPPe9+/zvN5znnW/n7XWnvvdRSdvS1dONjY2CbY2dj+ +/5zpqf2oHJNEyBTutnl84DjRek8qSLfDF9YPVUzaZesBijc4S3WEQXSzSig9 +2xIC9j9p5+xIhL9rohe5s51h7Zhk4nx7JpiPrQg9z/KF3lJz76n2AvhM118K +eBAGBsoj3ybaK4BktUv38b1EmG/fdnO8vRlm5n2uXYnJhEr9h1lNmYNQIvjN +at9iAcj0Fv10pv0BXzv9dCfPEhA76fCEV38SZnw4dMtPfgAK74Pq/TaT4Pnp +nQzz3AfAzJ8Dtzwnod6aQa27+gFOdpxaT0uahFrz6E8vHn2Aj7tDYvf/mISU +vxc3cX7/AP6yt7xuXZkC0d7nddWHKqClvlmTWjcN6kkPZ9J0KiFxk0GJudUc +JG65vF2l5yNodNka7nJnsd7fh2+GP0Jd+KkW6rk5qFjLuQenPwJPR9Jvvow5 +2Hp/aW7z6io4d2FwfeXoHAid6O3N0q6C48zQkG3h83DR7evFx4lVoOVSskvh +5QJ83rjPgryrGlqEGmqFqhcg/odgfqBhNZx+O2C13LEAJZVLLe8tquHJKgGv +zv8WwOo26dAG12qQLzh0L8l4EQyPWq9OjKsGvpXp//gGFuEAjrSc+FYNX1M3 +lk8IL0PO5I4ZI79PkNaSuyZAZRmeKZ17uub8J7ATUnVY0F4GviucXLWRn6D7 +sux/HMeWQSkh4ZpE2ifo8xLYKfZ6GfY9dmPKlH+Cod3f32jZ/gf1CnbrW/lr +YG485fm5jBWwNdCM7r9RA0VU0ZWV1yvwVsjsseSdGgh2jTMPZ6wAVUJ5i25W +DSx1hf+JnVyBiJnlCK9XNRA6+Fa8QYkNeVb5sGm21kB4ffaBPn82pNw/+ODw +2lqIybrYwLGOHZftbx/VCqsF4y0nRMRJ7JiUMsMoiqoFvo+WVqp0dnyaFLdq +0/VaCB9U6TLRZUe1zBjexdu1EKJU9zPpBDt+/ndiaulVLXilS/1HLmbHwi98 +QkXfa4G2kUNX+yM7Dh09MBg0UgsjZb8vm9SzozYGJG0YrwW33vf8pwfY0TY3 +/5rfYi04yrmIFwlwoNHVhWnPtQywuJNPMznMgRoWr2MkdzBAmHbb+6gLB9pO +aaVKIAPqS8ILvL05UMLJLZF/DwOMu2y2J13mwJWBSCumOQP0pP/T/5bLgd0p +SfjeiQFbUo0Pey9xYPaFbPFjEQz4p7rl3iUeTsz6cKQ4I5oBL97I9t8Q5sSb +J667tV5jAL193PWtMidGXzAdFE9mAFkixZfdjBN97u27xZ/DAMmkwegbdzmx +F7u+v65kgBT1dfhcDieOUX5vXqhmgHRF5MWjLzjRSVF++xYGA+TG1c+oVnKi +h/Fa9+hGBqiYnnYsGWKtd3Z/+ttuVvxB3cMK/zgxzi+y+UkvA9SCRa0jFlnv +jcoYiQMMoD0qNNknxIVDM3ISu4cYsJlrWWtwMxeejttyiDbJ8ne7ftPeXVwo +t2tqvm6aAVqa6bRnBlz44J+C/7E5Bug46isF2nJh5jqPRZ9lBuiWRguuusiF ++PRRmjgvE/b5S3zXZHChya4G6yApJuxfNdST0sKFgrTQZ2elmWCZWfR1qZsL +l0r/cXvJMMG68UhD9V8u9OonPukoMOEo7UGxnTg3cmk86DyiygT7Sv/XZXLc +eDLTPW61OhMc7QxeKKtxo19UjV0BhQnHo4azx3S48XiZhlEfnQme3zUSwhy5 +cSDgXWPVZiacPMce++sEN0ql7L9L3soEL5GWSFM/FiuUpZ3XYoIvBoRIRHLj ++Zo3W4S0meDfbhh47jo30rYntRvqMCHAa51vXyo33n44/iZwBxOC7pS6Pcnl +Rr0SfqJ4FxOCN8c5r3nNjRqj+iN1BBNCGA5H/d9z4znafN8XYELoHMcBookb +PV8KlDB0mRB2vdXsQSc3KquuyS7UY0I4OWcv33duvLLQ8zNVnwlXDhoRzTPc ++JHN8yLuYYL0q3ppDnYeNPtXISJhwIQ80YOzm1bx4MeIm4f7WKzn97XFSZwH +aZZm9vcNmdDWbP8iQZ4HrwgekT+wlwkemt9jP6jzoHmEzoNFFi8nnDgxsZkH +e5Ldx1KNmKBs4a9ksZcHi+TaRvONmfD2xfx/oZY82Gy3/THdhAmmwhe7Xhzh +QfFnGnCPxX3eXG/7XHlQtdH+JacpE/waopOEfXjwk6O3gD2LeTTW+OA5HpRq +W2v0jMVpcUlmpyN48FfQst8EizeMraOkX+fBScfx6xQzJlSY3edpvMWDssee +ZxxisfUz5cGVByw9ojx551g8svpJmUYeD+YWVRfdYPGFkxp3HN7yYIYhozad +xWvrXp29XsGD+gfHBzJZnEXVsSqr48GDIvICaSzeHlO26W8bD7bu1d8dyeK6 +kd1C8v08qGKyP9mNxY7GjBHz36z1J4CbYPHU432fLkzzoPx1kWR+Fl/h//Ig +b4UHNcbqzRgs/dIn7EJ7+HlxTj9sUyiL82p6jwiJ8WI/BQ2oLNZTc9Em5HiR +I00pgcnKV9uVEXEvNV7c+s1I0onFHr+8/93V5EXea93ffrPyvWwwXf95Jy++ +ieQd8WRxfE5w7rIBL1K+L2P//+vDwxZFt+DF7sm5XyYsNq0S0L3mwoueOuw7 +2Fn17FOOl33nzYsX6u5PmLDq7xcuvjAaxIvLhS6Csaz+SNNXeGkax4tn+D9H +j+5m5f9B9vWQVF7cSd84vZrFFRzUk08zebFYmOhSYvXf8IetKqvf8GLADzm6 +Bqtft6NJCrOXF59Z3bvE2MnK3/1Gv8VhXvx1pP1wCms/OK5Y7adO8eJ7vu5u +W9Z+ufLekT+Gjw+PPqoaLtvG8r8z4JzxJj58OFH+WViT5f/Ook3wDj7spbSF +xGxk+V8M3fJkDx/KmOixLW1g+S2J+cNvx4e/Ok1vv6ey/GhnONSG8eHSnptV +DGUmGKcLTZnE8mG556U9YiQmKPGGRNXf5MNRt8/CVopMaGy1zm95xIedm3/d +KZVl+T29mrOnng+7jjwRVZZgwlBOYM4/aX7k+iFdd4ibCWWCP3TOKPOjr7/7 +vnWcTEj2t2yYpfNjxM6Dp5rYmLBHjz63hPzYEWN1TW2JAZnfBox43fix5dnv +Ud9/DDgiZv5n/Ut+HLo78zTkG+s8PVdy6V4pP168G6ZX1MkAgQE1CcVqfoz1 +8a36086AouecQP7Kj0ZbMx4RzQyQMCmK37jCj2dJA2dDWed94yXlLXtMBLB7 +UHw86hkDdv9dCPYaFEC6kadRyxkGBO1NonwYFcCb0vHfKL4MyMugd4rOCGDJ +FnObc16s++Ogo3YR3yo8NcYU5nVjwOjbqlnODaswTP79RoYNA26ExfvfOrsK +5WN7mzm3M2BAnOz1UXA1+jfNBnlM1oKkd5mspORqfOgQSB8eqwXTmkOfTyis +xuGmRT8n1v1bGBxDW7N5NR6Q29pI9NfC1d7xEdtDq5HY9MjxWX0taD4ucfub +uRqvgWq5/aNauLTTwkl6uyCmo2++tk0t7LW/92+bniAW2k0Wh1nUglDo78tW +poLYQm/grTKphTuVETnxjoLY+eR21FashbfGxb95ogWRcvLXRLVaLYwfIgVM +fhVE7kvpH/LnasD+zPTVunNC+JqT5t/Jmm908m69ulC2Bocd1mWJFH2Ck3MT +oTWCa1HsaMDzmrEqmKcK99CtRNCJdqJOn1kJO3Ofpicni+KAqXakYeoHmBAx +drSuEMOsyNzLr9aWwfdYR2tfXgn027dhyqWoGIz+Bhr90JJEPe/Lvh2DhTB6 +jM/v1UUpjP6derhtzUvW/CzJcaViHb7W+dgR4vgcRD6T4178lcZIjeiOD02P +QSbq+X4tLRm8zThwuCktC1Kp2sKibrL4KPh708jZdLAy+Rz/3lMW4+/fblvr +kQ4ink5rPU7LIiOZQ0T/cDrEPIkW+RAki0kiPvIfd6XDBfVOMe9YWdwoI6yF +nOlwXPXcOma+LM6n5TzQUbgPm0jvlC4vyeJJKySyne8CQ1p362SCHO47Tasq +VEyDRrnnZK4UOVQyH7j8mScN2pRkpcTvyGFJfIncwu9b0E+ZX9DKkUO9Tezl +SYW3YE4nvzy4WA7lBnsS6k1vAfmwoinHoBxG5ph5mpxPhbDb7MfWbpHH7Nyh +BoWxZNCRqYjXaJPH6Ee7ZH6sToIBknLPcKc8HgkLTbsxdwOiqZHUrF55XLej +psHy+w3o0DGulhqWRyuJOzs4S29AoG3zIvuSPM5vSpSlnrwBdiY+m0eEFfCs +S9Cm6w2JkBzF2m5aCsilx/foRGYCCHFm+juFKaDnsJhpz2gc8MyXHZgIV0Dl +xwLzRrVx8N/YN81LVxSw+jpHent2HPztXDeRHquA6/sehB5yiIPGgoRTfckK ++KBpUHCs5RokOl9ydchVwA9z0x4HK2NBosLx0NFWBUzzeufhXXwVhN5e2Pan +TQG3rwmxHEu7Cjx5dyTOf1XAXTuSHGLPXYXZWx2td3oU8M5v3XiVXVehw2e/ +RfeQAipEvfha+yEa0hTR+PCyArZyzF2rbowCuUvyO23Jing2o+n2NNcVyPPj +U/qmpojvctTKnw9HAuE6wetEVcSChVGMqI+EoyaVLe4bFbF2LJs7LDUS7oi7 +eZ7VUURDyWj7cnokrHuSl5Ziroj2umvPEkcjQKxl1/yXAEX0/yUzXtBwGbKq +yL22QYo4T0ab/DeXYfPbNVXfzini2r2ByTX3L4Pl3f74H6GK6C7oZq57+jIk +uEWoTV9VxPiM1gu2IpdBaKnORuy+Ilr5fqkXPRwG/CpHCi0/KaKC9VU19f9C +wWMdGOfWKmKKi+7nyJFQYAgq9XDWKaLyFs752bZQiJ35xf26kaVHb/qR2ItQ +EKrxs5LsVMSx/9ZVbj0Wyur/mKmuUUXMuIt+omkXQSa/WNNFRAnPbrW+p3j0 +PIRk361+J6aEO25ubA7XOQ/fboXaSUgqIf38Z6dVUufhXphB2Kf1SrjMH6YY +1hICCgebm9RVlLBuQZtD1DQEVGaHT49tU0IxNrLPY/1zsGHXuueBR5WQq+iY +wg+TIHhJOrHI4aiEg8oqZn8oQbBdoMgwzlkJmb3Bk9ICQaDXfqgvy42l54IP +6WfNWbD2SV3b7KOEtLuVltv3noWL2ZL+tEglNGoa0c0zC4RGQQnt/jwlTNe/ +LTLrewasplwiTuYrobuMtM0p6zPQ2fm6afalEq5cyfvLpXMGvj+08hAqUkJK +/dO7KexnYE735u0dlUoY9uPCGcNEf1AMEPvvZrsS+vDz3X5d5Ae+PSKVxmwk +lN2TIzMl7ws11UfePeEgYbhVRfkCny/IPc95I8BNwsbtPdLr//kA46LOUwY/ +CV955SY8+ugDSorON41FSbjrp9jEpIcPNB3LdzMmkzB97YUf20pPw8bhfauN +TUlo4P7+fE6/F0Q23eJ5Yk5Cp7NvZT4VeUF30SCbgAUJL/Pne4onekHU1cDp +WisSVnYreOjoe0Ef9X6PkQMJj4xuJ2U8PAXxXmMvjHxJqPq6oaTk7En4Oxlr +ZZRKQvvX48eXdTyguyPD+m4aCQ/bxL/ZsM4DGO8KbSbukLCVf+V75OwJyLrS +Z3srg4RRT2S1c1+dALv1W+yHn5Cw44zqk7KNJ6BKr8s1+h0JPx+WUp3VcIfb +CepnawdIKLBrTXuGkStEBRBBsj9ImPrX1MSN5goBhw8E+/wioUZQsti+Na6w +X+V8yLpREs6ZJMlEfHEBnqLG0BPTJEzeN65/5ZgL+PQFRvPzKeOz+p4D1RHH +wVCjOs2IroxBfn9GDAec4RDP3oONGsq41aq3ZbLaGTy+1QraaCpjzpD9vspc +Z4iL+Rx6fJsyGn+9a193xhnafrW6XtRVRvlXbdFhq5zhePqg5msrZRwTvjtw +ZJcThK1lZypcYMVfiNC+4OcASUNh4Q9DlTH2o91BlT0OkFPGRWy4rIx15XQF +AUkHYJziy98RpYy33dqfxZTYw1rGmhTrRGW0OF773ZXXHtLD5I7F5ihjyK/f +BfjkCLyf3LE4W6+MOvxuETnSdpBR98b5QJMyJiiP75aZsYXw7M2MvBZljN+0 +xbW8yRaMbKi3XDqUUTxRnu1GtC20Fktva+lXxmSLlYXDi4dg5NK8b96UMnY8 +w7/7f9mAhPCbkePSKviyTonq3WsF80OaluUyKkiJT67fX24F3R/yitbLq6DZ +rbQSuwwryPDLiWomqaBzQ1fxz2NWQGu/SUa6CsbK2h/oHDkIevf8ndejCoau +bknnYzsIXjTNziYXFZQx1xnaZ2AJZ2alFxzcVfD7cOj6PHVLCKnglB7zUMGY +Q2K7twpaQsyhL7YCp1VQzr09+12rBTwKP/tVL1gFnXa+Wp3vYgED3e87Xsap +4E1BXYWZuP1gfc2k/eYbFaSKlPHuXjSDo4e2zJKKVVD7Rl57CNMMjpNkJQtK +VZDj1orb4m0z8Csas67/wNK73sOhZpcZxP9IaOOpU0H+1ittKeGmwNjV8SWw +TwX1N4zEl8mZwK6x4622/GTcfVTFsCtsL0iUGGaWriLjx73K+yqP7oWxK5TT +8kJk/Ox4+0/P9r1wT3F81Q8RMoYZ7fnz/K8h/HfwnP5pGTI603LZCxwMoawk +oSBSg4x9r+Keruw1AN3o9/Evrcg4WMDHJgW7Qdo6w17iEBld9TacWpTfDf+U +wmlBdmQUkt85LMC+GzJLjWoIBzKeSmukP6vUB47x1pVadzKKXb7cOmesD5XW +v736zpGx/w9RGuKkB3uUpcwEM8k4PRm9++NThFd/qhSPZ5GxU2kmSv8GgvIb +v5niHDL2Ng+1/wxC4DJuuO+eS8aXthHfUg0RKrwj/1W+IuOBk46SrHEQiJKp +lOBPZAx4F+3rb0yAlmXTwK9RMkYaHN+id2EH5Ky/+Ib4S8a2Epnk1AM7QPwH +LfbmBBnf7X9rTFPfAVOBUVv1Z8gY2kg6JfBFBwruQtS9FTISi35jqRo6oDH8 +jDUOquLUYFZ18d/toBZ69WzFNhafXzPMkaYFpTuyuU11VFEaJ894+WnB/tmy +xC87VZHLpF9N0kwLznpNPx3SVUXXAYt0OXYtqDni2C9kqooqlWTjJc+t4K6t +ZXzYURVDpVRSH5pugcf/+tdPRaliC5JSQ7ZpApG39Oh8jCrmf9VVH5HUhOYT +klq8caqYEif8+OrcJljoM90vfUMVp5fe7z1WvAmMG96E411VzJ2tGPbATTCS +e+1PbL4q6nzMm79htREoLtplKp2qyCveeaNqNx2uK5kvXO5WxT8ab/e+EqPD +VK/z1oEeVTSA+czR7zR4bxebe29QFQeDNz7ZHkkDy/29KZJ/VLFE60qTZh0V +gnZEnOZnU8OhNxHJNi4UqFnbpPhHRQ03ZJ7heVerCvSGH0dM1NSQVFfnoZip +ComxCymPKWqYcP7XmcpgVTjCqyzkqqGG9w1fyJfRVOHvUsBCz3Y17B/csTXm +BhkkhmRaGk3U0LOr0Zd6UgVc3ruHv/JRw5ZEtWpjQxKMnRoJ3OOvhsrvtQoF +lElwVvakZ1uAGhpJW/HwspPgaoi35dw5NSwvSzF6WaIEL3QCFHZGqqGdx13B +xs1KsFR4ubQyTQ0L9tQxazcoQuLze1PNlWpY3yu/OztNDmQcFIaOVauhzFIU +9jrJQbZQZtdUjRq2pTAlQ9Tl4O2p7AqJejW8uedyZ1eRLHyjPo2361DDytnu +EKVeGVB7VEQbGFVDc9/1l/bsWA9l6a3HJ8TVUTsmQb1zqxT0mSo6BEipo+FX +jgfy/FLANn/KdlFaHR8EVzYXdEuCngWvObeCOhpZPnAsD5eEanadbeso6jgy +Mv7Mo0MC6pzv8+sS6ijFVy6beE0cOpU98uJd1THshv41NpooLDYWPhI/oY6D +ot89JflEQeY854M0T3VsyzJ6fOq7CBz9cicl67Q6HqwrTW+7KwJ9EQ2hb4PV +kemQY3BdVAR+/dxyoC9OHfUv3ovUF1gLU49WZjXeqKOw/9UW+m4h+GltkB5d +pI4XyZ1p14WEoIPr2t7BEnXMLPvBbfJVEEocpW8ll6ujik11ap23IIRJbdVZ +rlXHQt/dqb/TV4NwlEcIo1sdyRlSr5VEVwHN7QubCwcFn3Za845s5gM5cZnH +77ko2O4dwh7KxwfClc4WUrwUfMxxINnhGy9Myo1nMFdR0EpY/P38FV4obhPQ +1xSnoIPR8slrfTyw1wAjVlQpyMcl/KDhHjccU8nlTzOjIGlq+yGmKScEV9l7 +kPdTcE530v0zmRPiXUSYBZYUfBGYtluCnRNKs4NimTYUXGKT9w4u5AAx8t41 +y04UDDx1aNdFZQ6oJv8Qcwyg4EYB0fsiguxAUZNXIN+noOE7ob8x0v8RWNMc +WpBBwVdtwq2hPcuEtXtkP5FFwbXy9/V+ZS4Tlx/9ybR5TMEeXtcUbvoy0a1W +qhL9koKtz+uP+xosEXHqttTRTxSEOI1vztcWiAnKDa2CcQpanriTneA6S3TU +4R7RSQo2MqmbPXRmiXKvsQP+0xQse975NUFologrMPLRWmDlR2qzfd2bGYKi +w/a0mJOKke2n+3sFZwhno1OKlRJUfOCfd0y4ZopodTNc3bqTiqL/cnGnzz+i +hH9aeitQ0eviUBuX+T8iMzdTPVmXiiW2HIcFqf+I03+XDQ4ZUPG+/Upg948J +QjDw1aXufVTW/7Odtpv9BGEQqTj73ZmKwXnuj5vtxom3WYv901FU5Hebbwhb +GiW09P1njWOoSJdhb7pVNUq87h9dnX6NigJtD1pFr48SBXI924wTqejGdU9v +A2mUeJpafu3ebSoybDpiRvb9JtJjI7QN86gYbXOz/F/xMBHtvyYhtYWKDW8C +OrlafhJ8olE5f75QcXGQX8Lo4U8iMp+tVK+DihY8dPq3cz+J8LGJn6PdVDQb +C/r0T+UnccG9dafuTypO4Pznj+d/EL5Hbg0Nz1HR5UPr/PUd3wm73STcIUfD +5Sd9Yaaj/cRyK59QpQINTW6p96dX9xPpLmNdxiQa3pTYxMCMfuJnZFGgnRoN +i4vvrjja9BO+tfueB2nSsPvPkQjRT33EVfMQubcGNLwnq6CR4NZL0HudRsGI +hjWiv/jVVXqJRm/D4k8mrPhb0ycNBnsIiQQR6/b9NPTmfj4p7NRDZLY8ujZj +R0PO5TK+CudvRPGhL0tbvGn4K2uT7YfzXcTR4WJGqQ8NRYeayvfodxFswemp +u/1pOKXygU2Xv4swuO255WAQDQt5WwNSkzuJ5m/sJ/0u0zBh6XtiQeFXYsR5 +Q1d+Cg3N6He9W1Z1EOtPXSnaUE7DxZWNthJcX4i4FdetMRU0/AOFkV1fWwmO +RIP8Xx9pmHn6b+fE81ZipJD7cXotDakWIw/XHG0litnCU0VaaEi/YtGzUtxC +2CWFBs78oKHi8updWhHNRD3ZcdJyiIatq3wiGQ7NhF4ReD8foeHdjTS1hzrN +BKXnP1f3vzTsWSly2jbRRMyrnrfunKNhGLXMLtupiUgtCdr6fhUdz768+MJw +XyOx2tw2X1qIjlcNJ9epbGgkQvu20wOF6ThUtnNaT7CRcOeeU94oTkfp+6eM +Q1IbiG37AsQy5eh4TOcq2SStnmgb8J2M2MT6Pj2b7/GrOkJc4GS+mQ0dq+uy +1vsRtUSW/vngcVs6dpo/PH+Lq5bQPB+nf+MIHXNWtv8mmDWE+fiLLx1OdLSX +FfjIYVdDRLZNzx87SUfHyoAui/OfiLnMi3rBl+hY8Fw8U6Oziojsjl8lG87S +a70YU/+wihCTyGwti6Rj6HGrlu4zVcTG6I+u3LF0DKSnNemLVhEnvPlj4pPp +WGhie1DpwEeic8eNlpxcOr7s3ht29GcF4X4m645RHh0HtN9Qo4oriJm81y6j +L+jop//fYbHrFYSIUsfspkI6LucyJcy1KwgTPlmZd+V0LL2e+WZj4geitDXn +eMsXOjZycQ9yW5UTxkJv6QEdLD2fn538vaGc6DCsnZHqouMTyQEjMn85MVX8 +O8q+j47W3wrMNM+XEfSMjc+GR+io23Ugu8zuPVHaqRsQ+4eOphO0p29F3xPG +YgdAY5yV3/BMfYvP7wjXK2ea/KfpKErhqz+s946YKo9Mk5yj44hmggxzuZQI +W0g5VrxAxy7LnoLWolJCeMtj2tFlOl4y9twTGFBK3DtVPL2yQseLGjYx+ZtL +if8BCK4F/w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.21330677109713933`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.21330677109713933`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3k4VV8Xx81TkczJfLm4Q0qlqM5aKDIWhahMZYgiQ0QqCREJCWlCaFCK +ShmKiLhX5hAyNiCJzNPPe9+/zvN5znnW/n7XWnvvdRSdvS1dONjY2CbY2dj+ +/5zpqf2oHJNEyBTutnl84DjRek8qSLfDF9YPVUzaZesBijc4S3WEQXSzSig9 +2xIC9j9p5+xIhL9rohe5s51h7Zhk4nx7JpiPrQg9z/KF3lJz76n2AvhM118K +eBAGBsoj3ybaK4BktUv38b1EmG/fdnO8vRlm5n2uXYnJhEr9h1lNmYNQIvjN +at9iAcj0Fv10pv0BXzv9dCfPEhA76fCEV38SZnw4dMtPfgAK74Pq/TaT4Pnp +nQzz3AfAzJ8Dtzwnod6aQa27+gFOdpxaT0uahFrz6E8vHn2Aj7tDYvf/mISU +vxc3cX7/AP6yt7xuXZkC0d7nddWHKqClvlmTWjcN6kkPZ9J0KiFxk0GJudUc +JG65vF2l5yNodNka7nJnsd7fh2+GP0Jd+KkW6rk5qFjLuQenPwJPR9Jvvow5 +2Hp/aW7z6io4d2FwfeXoHAid6O3N0q6C48zQkG3h83DR7evFx4lVoOVSskvh +5QJ83rjPgryrGlqEGmqFqhcg/odgfqBhNZx+O2C13LEAJZVLLe8tquHJKgGv +zv8WwOo26dAG12qQLzh0L8l4EQyPWq9OjKsGvpXp//gGFuEAjrSc+FYNX1M3 +lk8IL0PO5I4ZI79PkNaSuyZAZRmeKZ17uub8J7ATUnVY0F4GviucXLWRn6D7 +sux/HMeWQSkh4ZpE2ifo8xLYKfZ6GfY9dmPKlH+Cod3f32jZ/gf1CnbrW/lr +YG485fm5jBWwNdCM7r9RA0VU0ZWV1yvwVsjsseSdGgh2jTMPZ6wAVUJ5i25W +DSx1hf+JnVyBiJnlCK9XNRA6+Fa8QYkNeVb5sGm21kB4ffaBPn82pNw/+ODw +2lqIybrYwLGOHZftbx/VCqsF4y0nRMRJ7JiUMsMoiqoFvo+WVqp0dnyaFLdq +0/VaCB9U6TLRZUe1zBjexdu1EKJU9zPpBDt+/ndiaulVLXilS/1HLmbHwi98 +QkXfa4G2kUNX+yM7Dh09MBg0UgsjZb8vm9SzozYGJG0YrwW33vf8pwfY0TY3 +/5rfYi04yrmIFwlwoNHVhWnPtQywuJNPMznMgRoWr2MkdzBAmHbb+6gLB9pO +aaVKIAPqS8ILvL05UMLJLZF/DwOMu2y2J13mwJWBSCumOQP0pP/T/5bLgd0p +SfjeiQFbUo0Pey9xYPaFbPFjEQz4p7rl3iUeTsz6cKQ4I5oBL97I9t8Q5sSb +J667tV5jAL193PWtMidGXzAdFE9mAFkixZfdjBN97u27xZ/DAMmkwegbdzmx +F7u+v65kgBT1dfhcDieOUX5vXqhmgHRF5MWjLzjRSVF++xYGA+TG1c+oVnKi +h/Fa9+hGBqiYnnYsGWKtd3Z/+ttuVvxB3cMK/zgxzi+y+UkvA9SCRa0jFlnv +jcoYiQMMoD0qNNknxIVDM3ISu4cYsJlrWWtwMxeejttyiDbJ8ne7ftPeXVwo +t2tqvm6aAVqa6bRnBlz44J+C/7E5Bug46isF2nJh5jqPRZ9lBuiWRguuusiF ++PRRmjgvE/b5S3zXZHChya4G6yApJuxfNdST0sKFgrTQZ2elmWCZWfR1qZsL +l0r/cXvJMMG68UhD9V8u9OonPukoMOEo7UGxnTg3cmk86DyiygT7Sv/XZXLc +eDLTPW61OhMc7QxeKKtxo19UjV0BhQnHo4azx3S48XiZhlEfnQme3zUSwhy5 +cSDgXWPVZiacPMce++sEN0ql7L9L3soEL5GWSFM/FiuUpZ3XYoIvBoRIRHLj ++Zo3W4S0meDfbhh47jo30rYntRvqMCHAa51vXyo33n44/iZwBxOC7pS6Pcnl +Rr0SfqJ4FxOCN8c5r3nNjRqj+iN1BBNCGA5H/d9z4znafN8XYELoHMcBookb +PV8KlDB0mRB2vdXsQSc3KquuyS7UY0I4OWcv33duvLLQ8zNVnwlXDhoRzTPc ++JHN8yLuYYL0q3ppDnYeNPtXISJhwIQ80YOzm1bx4MeIm4f7WKzn97XFSZwH +aZZm9vcNmdDWbP8iQZ4HrwgekT+wlwkemt9jP6jzoHmEzoNFFi8nnDgxsZkH +e5Ldx1KNmKBs4a9ksZcHi+TaRvONmfD2xfx/oZY82Gy3/THdhAmmwhe7Xhzh +QfFnGnCPxX3eXG/7XHlQtdH+JacpE/waopOEfXjwk6O3gD2LeTTW+OA5HpRq +W2v0jMVpcUlmpyN48FfQst8EizeMraOkX+fBScfx6xQzJlSY3edpvMWDssee +ZxxisfUz5cGVByw9ojx551g8svpJmUYeD+YWVRfdYPGFkxp3HN7yYIYhozad +xWvrXp29XsGD+gfHBzJZnEXVsSqr48GDIvICaSzeHlO26W8bD7bu1d8dyeK6 +kd1C8v08qGKyP9mNxY7GjBHz36z1J4CbYPHU432fLkzzoPx1kWR+Fl/h//Ig +b4UHNcbqzRgs/dIn7EJ7+HlxTj9sUyiL82p6jwiJ8WI/BQ2oLNZTc9Em5HiR +I00pgcnKV9uVEXEvNV7c+s1I0onFHr+8/93V5EXea93ffrPyvWwwXf95Jy++ +ieQd8WRxfE5w7rIBL1K+L2P//+vDwxZFt+DF7sm5XyYsNq0S0L3mwoueOuw7 +2Fn17FOOl33nzYsX6u5PmLDq7xcuvjAaxIvLhS6Csaz+SNNXeGkax4tn+D9H +j+5m5f9B9vWQVF7cSd84vZrFFRzUk08zebFYmOhSYvXf8IetKqvf8GLADzm6 +Bqtft6NJCrOXF59Z3bvE2MnK3/1Gv8VhXvx1pP1wCms/OK5Y7adO8eJ7vu5u +W9Z+ufLekT+Gjw+PPqoaLtvG8r8z4JzxJj58OFH+WViT5f/Ook3wDj7spbSF +xGxk+V8M3fJkDx/KmOixLW1g+S2J+cNvx4e/Ok1vv6ey/GhnONSG8eHSnptV +DGUmGKcLTZnE8mG556U9YiQmKPGGRNXf5MNRt8/CVopMaGy1zm95xIedm3/d +KZVl+T29mrOnng+7jjwRVZZgwlBOYM4/aX7k+iFdd4ibCWWCP3TOKPOjr7/7 +vnWcTEj2t2yYpfNjxM6Dp5rYmLBHjz63hPzYEWN1TW2JAZnfBox43fix5dnv +Ud9/DDgiZv5n/Ut+HLo78zTkG+s8PVdy6V4pP168G6ZX1MkAgQE1CcVqfoz1 +8a36086AouecQP7Kj0ZbMx4RzQyQMCmK37jCj2dJA2dDWed94yXlLXtMBLB7 +UHw86hkDdv9dCPYaFEC6kadRyxkGBO1NonwYFcCb0vHfKL4MyMugd4rOCGDJ +FnObc16s++Ogo3YR3yo8NcYU5nVjwOjbqlnODaswTP79RoYNA26ExfvfOrsK +5WN7mzm3M2BAnOz1UXA1+jfNBnlM1oKkd5mspORqfOgQSB8eqwXTmkOfTyis +xuGmRT8n1v1bGBxDW7N5NR6Q29pI9NfC1d7xEdtDq5HY9MjxWX0taD4ucfub +uRqvgWq5/aNauLTTwkl6uyCmo2++tk0t7LW/92+bniAW2k0Wh1nUglDo78tW +poLYQm/grTKphTuVETnxjoLY+eR21FashbfGxb95ogWRcvLXRLVaLYwfIgVM +fhVE7kvpH/LnasD+zPTVunNC+JqT5t/Jmm908m69ulC2Bocd1mWJFH2Ck3MT +oTWCa1HsaMDzmrEqmKcK99CtRNCJdqJOn1kJO3Ofpicni+KAqXakYeoHmBAx +drSuEMOsyNzLr9aWwfdYR2tfXgn027dhyqWoGIz+Bhr90JJEPe/Lvh2DhTB6 +jM/v1UUpjP6derhtzUvW/CzJcaViHb7W+dgR4vgcRD6T4178lcZIjeiOD02P +QSbq+X4tLRm8zThwuCktC1Kp2sKibrL4KPh708jZdLAy+Rz/3lMW4+/fblvr +kQ4ink5rPU7LIiOZQ0T/cDrEPIkW+RAki0kiPvIfd6XDBfVOMe9YWdwoI6yF +nOlwXPXcOma+LM6n5TzQUbgPm0jvlC4vyeJJKySyne8CQ1p362SCHO47Tasq +VEyDRrnnZK4UOVQyH7j8mScN2pRkpcTvyGFJfIncwu9b0E+ZX9DKkUO9Tezl +SYW3YE4nvzy4WA7lBnsS6k1vAfmwoinHoBxG5ph5mpxPhbDb7MfWbpHH7Nyh +BoWxZNCRqYjXaJPH6Ee7ZH6sToIBknLPcKc8HgkLTbsxdwOiqZHUrF55XLej +psHy+w3o0DGulhqWRyuJOzs4S29AoG3zIvuSPM5vSpSlnrwBdiY+m0eEFfCs +S9Cm6w2JkBzF2m5aCsilx/foRGYCCHFm+juFKaDnsJhpz2gc8MyXHZgIV0Dl +xwLzRrVx8N/YN81LVxSw+jpHent2HPztXDeRHquA6/sehB5yiIPGgoRTfckK ++KBpUHCs5RokOl9ydchVwA9z0x4HK2NBosLx0NFWBUzzeufhXXwVhN5e2Pan +TQG3rwmxHEu7Cjx5dyTOf1XAXTuSHGLPXYXZWx2td3oU8M5v3XiVXVehw2e/ +RfeQAipEvfha+yEa0hTR+PCyArZyzF2rbowCuUvyO23Jing2o+n2NNcVyPPj +U/qmpojvctTKnw9HAuE6wetEVcSChVGMqI+EoyaVLe4bFbF2LJs7LDUS7oi7 +eZ7VUURDyWj7cnokrHuSl5Ziroj2umvPEkcjQKxl1/yXAEX0/yUzXtBwGbKq +yL22QYo4T0ab/DeXYfPbNVXfzini2r2ByTX3L4Pl3f74H6GK6C7oZq57+jIk +uEWoTV9VxPiM1gu2IpdBaKnORuy+Ilr5fqkXPRwG/CpHCi0/KaKC9VU19f9C +wWMdGOfWKmKKi+7nyJFQYAgq9XDWKaLyFs752bZQiJ35xf26kaVHb/qR2ItQ +EKrxs5LsVMSx/9ZVbj0Wyur/mKmuUUXMuIt+omkXQSa/WNNFRAnPbrW+p3j0 +PIRk361+J6aEO25ubA7XOQ/fboXaSUgqIf38Z6dVUufhXphB2Kf1SrjMH6YY +1hICCgebm9RVlLBuQZtD1DQEVGaHT49tU0IxNrLPY/1zsGHXuueBR5WQq+iY +wg+TIHhJOrHI4aiEg8oqZn8oQbBdoMgwzlkJmb3Bk9ICQaDXfqgvy42l54IP +6WfNWbD2SV3b7KOEtLuVltv3noWL2ZL+tEglNGoa0c0zC4RGQQnt/jwlTNe/ +LTLrewasplwiTuYrobuMtM0p6zPQ2fm6afalEq5cyfvLpXMGvj+08hAqUkJK +/dO7KexnYE735u0dlUoY9uPCGcNEf1AMEPvvZrsS+vDz3X5d5Ae+PSKVxmwk +lN2TIzMl7ws11UfePeEgYbhVRfkCny/IPc95I8BNwsbtPdLr//kA46LOUwY/ +CV955SY8+ugDSorON41FSbjrp9jEpIcPNB3LdzMmkzB97YUf20pPw8bhfauN +TUlo4P7+fE6/F0Q23eJ5Yk5Cp7NvZT4VeUF30SCbgAUJL/Pne4onekHU1cDp +WisSVnYreOjoe0Ef9X6PkQMJj4xuJ2U8PAXxXmMvjHxJqPq6oaTk7En4Oxlr +ZZRKQvvX48eXdTyguyPD+m4aCQ/bxL/ZsM4DGO8KbSbukLCVf+V75OwJyLrS +Z3srg4RRT2S1c1+dALv1W+yHn5Cw44zqk7KNJ6BKr8s1+h0JPx+WUp3VcIfb +CepnawdIKLBrTXuGkStEBRBBsj9ImPrX1MSN5goBhw8E+/wioUZQsti+Na6w +X+V8yLpREs6ZJMlEfHEBnqLG0BPTJEzeN65/5ZgL+PQFRvPzKeOz+p4D1RHH +wVCjOs2IroxBfn9GDAec4RDP3oONGsq41aq3ZbLaGTy+1QraaCpjzpD9vspc +Z4iL+Rx6fJsyGn+9a193xhnafrW6XtRVRvlXbdFhq5zhePqg5msrZRwTvjtw +ZJcThK1lZypcYMVfiNC+4OcASUNh4Q9DlTH2o91BlT0OkFPGRWy4rIx15XQF +AUkHYJziy98RpYy33dqfxZTYw1rGmhTrRGW0OF773ZXXHtLD5I7F5ihjyK/f +BfjkCLyf3LE4W6+MOvxuETnSdpBR98b5QJMyJiiP75aZsYXw7M2MvBZljN+0 +xbW8yRaMbKi3XDqUUTxRnu1GtC20Fktva+lXxmSLlYXDi4dg5NK8b96UMnY8 +w7/7f9mAhPCbkePSKviyTonq3WsF80OaluUyKkiJT67fX24F3R/yitbLq6DZ +rbQSuwwryPDLiWomqaBzQ1fxz2NWQGu/SUa6CsbK2h/oHDkIevf8ndejCoau +bknnYzsIXjTNziYXFZQx1xnaZ2AJZ2alFxzcVfD7cOj6PHVLCKnglB7zUMGY +Q2K7twpaQsyhL7YCp1VQzr09+12rBTwKP/tVL1gFnXa+Wp3vYgED3e87Xsap +4E1BXYWZuP1gfc2k/eYbFaSKlPHuXjSDo4e2zJKKVVD7Rl57CNMMjpNkJQtK +VZDj1orb4m0z8Csas67/wNK73sOhZpcZxP9IaOOpU0H+1ittKeGmwNjV8SWw +TwX1N4zEl8mZwK6x4622/GTcfVTFsCtsL0iUGGaWriLjx73K+yqP7oWxK5TT +8kJk/Ox4+0/P9r1wT3F81Q8RMoYZ7fnz/K8h/HfwnP5pGTI603LZCxwMoawk +oSBSg4x9r+Keruw1AN3o9/Evrcg4WMDHJgW7Qdo6w17iEBld9TacWpTfDf+U +wmlBdmQUkt85LMC+GzJLjWoIBzKeSmukP6vUB47x1pVadzKKXb7cOmesD5XW +v736zpGx/w9RGuKkB3uUpcwEM8k4PRm9++NThFd/qhSPZ5GxU2kmSv8GgvIb +v5niHDL2Ng+1/wxC4DJuuO+eS8aXthHfUg0RKrwj/1W+IuOBk46SrHEQiJKp +lOBPZAx4F+3rb0yAlmXTwK9RMkYaHN+id2EH5Ky/+Ib4S8a2Epnk1AM7QPwH +LfbmBBnf7X9rTFPfAVOBUVv1Z8gY2kg6JfBFBwruQtS9FTISi35jqRo6oDH8 +jDUOquLUYFZ18d/toBZ69WzFNhafXzPMkaYFpTuyuU11VFEaJ894+WnB/tmy +xC87VZHLpF9N0kwLznpNPx3SVUXXAYt0OXYtqDni2C9kqooqlWTjJc+t4K6t +ZXzYURVDpVRSH5pugcf/+tdPRaliC5JSQ7ZpApG39Oh8jCrmf9VVH5HUhOYT +klq8caqYEif8+OrcJljoM90vfUMVp5fe7z1WvAmMG96E411VzJ2tGPbATTCS +e+1PbL4q6nzMm79htREoLtplKp2qyCveeaNqNx2uK5kvXO5WxT8ab/e+EqPD +VK/z1oEeVTSA+czR7zR4bxebe29QFQeDNz7ZHkkDy/29KZJ/VLFE60qTZh0V +gnZEnOZnU8OhNxHJNi4UqFnbpPhHRQ03ZJ7heVerCvSGH0dM1NSQVFfnoZip +ComxCymPKWqYcP7XmcpgVTjCqyzkqqGG9w1fyJfRVOHvUsBCz3Y17B/csTXm +BhkkhmRaGk3U0LOr0Zd6UgVc3ruHv/JRw5ZEtWpjQxKMnRoJ3OOvhsrvtQoF +lElwVvakZ1uAGhpJW/HwspPgaoi35dw5NSwvSzF6WaIEL3QCFHZGqqGdx13B +xs1KsFR4ubQyTQ0L9tQxazcoQuLze1PNlWpY3yu/OztNDmQcFIaOVauhzFIU +9jrJQbZQZtdUjRq2pTAlQ9Tl4O2p7AqJejW8uedyZ1eRLHyjPo2361DDytnu +EKVeGVB7VEQbGFVDc9/1l/bsWA9l6a3HJ8TVUTsmQb1zqxT0mSo6BEipo+FX +jgfy/FLANn/KdlFaHR8EVzYXdEuCngWvObeCOhpZPnAsD5eEanadbeso6jgy +Mv7Mo0MC6pzv8+sS6ijFVy6beE0cOpU98uJd1THshv41NpooLDYWPhI/oY6D +ot89JflEQeY854M0T3VsyzJ6fOq7CBz9cicl67Q6HqwrTW+7KwJ9EQ2hb4PV +kemQY3BdVAR+/dxyoC9OHfUv3ovUF1gLU49WZjXeqKOw/9UW+m4h+GltkB5d +pI4XyZ1p14WEoIPr2t7BEnXMLPvBbfJVEEocpW8ll6ujik11ap23IIRJbdVZ +rlXHQt/dqb/TV4NwlEcIo1sdyRlSr5VEVwHN7QubCwcFn3Za845s5gM5cZnH +77ko2O4dwh7KxwfClc4WUrwUfMxxINnhGy9Myo1nMFdR0EpY/P38FV4obhPQ +1xSnoIPR8slrfTyw1wAjVlQpyMcl/KDhHjccU8nlTzOjIGlq+yGmKScEV9l7 +kPdTcE530v0zmRPiXUSYBZYUfBGYtluCnRNKs4NimTYUXGKT9w4u5AAx8t41 +y04UDDx1aNdFZQ6oJv8Qcwyg4EYB0fsiguxAUZNXIN+noOE7ob8x0v8RWNMc +WpBBwVdtwq2hPcuEtXtkP5FFwbXy9/V+ZS4Tlx/9ybR5TMEeXtcUbvoy0a1W +qhL9koKtz+uP+xosEXHqttTRTxSEOI1vztcWiAnKDa2CcQpanriTneA6S3TU +4R7RSQo2MqmbPXRmiXKvsQP+0xQse975NUFologrMPLRWmDlR2qzfd2bGYKi +w/a0mJOKke2n+3sFZwhno1OKlRJUfOCfd0y4ZopodTNc3bqTiqL/cnGnzz+i +hH9aeitQ0eviUBuX+T8iMzdTPVmXiiW2HIcFqf+I03+XDQ4ZUPG+/Upg948J +QjDw1aXufVTW/7Odtpv9BGEQqTj73ZmKwXnuj5vtxom3WYv901FU5Hebbwhb +GiW09P1njWOoSJdhb7pVNUq87h9dnX6NigJtD1pFr48SBXI924wTqejGdU9v +A2mUeJpafu3ebSoybDpiRvb9JtJjI7QN86gYbXOz/F/xMBHtvyYhtYWKDW8C +OrlafhJ8olE5f75QcXGQX8Lo4U8iMp+tVK+DihY8dPq3cz+J8LGJn6PdVDQb +C/r0T+UnccG9dafuTypO4Pznj+d/EL5Hbg0Nz1HR5UPr/PUd3wm73STcIUfD +5Sd9Yaaj/cRyK59QpQINTW6p96dX9xPpLmNdxiQa3pTYxMCMfuJnZFGgnRoN +i4vvrjja9BO+tfueB2nSsPvPkQjRT33EVfMQubcGNLwnq6CR4NZL0HudRsGI +hjWiv/jVVXqJRm/D4k8mrPhb0ycNBnsIiQQR6/b9NPTmfj4p7NRDZLY8ujZj +R0PO5TK+CudvRPGhL0tbvGn4K2uT7YfzXcTR4WJGqQ8NRYeayvfodxFswemp +u/1pOKXygU2Xv4swuO255WAQDQt5WwNSkzuJ5m/sJ/0u0zBh6XtiQeFXYsR5 +Q1d+Cg3N6He9W1Z1EOtPXSnaUE7DxZWNthJcX4i4FdetMRU0/AOFkV1fWwmO +RIP8Xx9pmHn6b+fE81ZipJD7cXotDakWIw/XHG0litnCU0VaaEi/YtGzUtxC +2CWFBs78oKHi8updWhHNRD3ZcdJyiIatq3wiGQ7NhF4ReD8foeHdjTS1hzrN +BKXnP1f3vzTsWSly2jbRRMyrnrfunKNhGLXMLtupiUgtCdr6fhUdz768+MJw +XyOx2tw2X1qIjlcNJ9epbGgkQvu20wOF6ThUtnNaT7CRcOeeU94oTkfp+6eM +Q1IbiG37AsQy5eh4TOcq2SStnmgb8J2M2MT6Pj2b7/GrOkJc4GS+mQ0dq+uy +1vsRtUSW/vngcVs6dpo/PH+Lq5bQPB+nf+MIHXNWtv8mmDWE+fiLLx1OdLSX +FfjIYVdDRLZNzx87SUfHyoAui/OfiLnMi3rBl+hY8Fw8U6Oziojsjl8lG87S +a70YU/+wihCTyGwti6Rj6HGrlu4zVcTG6I+u3LF0DKSnNemLVhEnvPlj4pPp +WGhie1DpwEeic8eNlpxcOr7s3ht29GcF4X4m645RHh0HtN9Qo4oriJm81y6j +L+jop//fYbHrFYSIUsfspkI6LucyJcy1KwgTPlmZd+V0LL2e+WZj4geitDXn +eMsXOjZycQ9yW5UTxkJv6QEdLD2fn538vaGc6DCsnZHqouMTyQEjMn85MVX8 +O8q+j47W3wrMNM+XEfSMjc+GR+io23Ugu8zuPVHaqRsQ+4eOphO0p29F3xPG +YgdAY5yV3/BMfYvP7wjXK2ea/KfpKErhqz+s946YKo9Mk5yj44hmggxzuZQI +W0g5VrxAxy7LnoLWolJCeMtj2tFlOl4y9twTGFBK3DtVPL2yQseLGjYx+ZtL +if8BCK4F/w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.21330677109713933`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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.21330677109713933`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913381496467495`*^9, 3.992101123468666*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"fce21958-3569-714e-a583-3104e56bb757"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel-> + "In[142]:=",ExpressionUUID->"936846c9-ebd9-0340-9945-b210a517ddeb"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVl3k4VV8Xx81TkczJfLm4Q0qlqM5aKDIWhahMZYgiQ0QqCREJCWlCaFCK +ShmKiLhX5hAyNiCJzNPPe9+/zvN5znnW/n7XWnvvdRSdvS1dONjY2CbY2dj+ +/5zpqf2oHJNEyBTutnl84DjRek8qSLfDF9YPVUzaZesBijc4S3WEQXSzSig9 +2xIC9j9p5+xIhL9rohe5s51h7Zhk4nx7JpiPrQg9z/KF3lJz76n2AvhM118K +eBAGBsoj3ybaK4BktUv38b1EmG/fdnO8vRlm5n2uXYnJhEr9h1lNmYNQIvjN +at9iAcj0Fv10pv0BXzv9dCfPEhA76fCEV38SZnw4dMtPfgAK74Pq/TaT4Pnp +nQzz3AfAzJ8Dtzwnod6aQa27+gFOdpxaT0uahFrz6E8vHn2Aj7tDYvf/mISU +vxc3cX7/AP6yt7xuXZkC0d7nddWHKqClvlmTWjcN6kkPZ9J0KiFxk0GJudUc +JG65vF2l5yNodNka7nJnsd7fh2+GP0Jd+KkW6rk5qFjLuQenPwJPR9Jvvow5 +2Hp/aW7z6io4d2FwfeXoHAid6O3N0q6C48zQkG3h83DR7evFx4lVoOVSskvh +5QJ83rjPgryrGlqEGmqFqhcg/odgfqBhNZx+O2C13LEAJZVLLe8tquHJKgGv +zv8WwOo26dAG12qQLzh0L8l4EQyPWq9OjKsGvpXp//gGFuEAjrSc+FYNX1M3 +lk8IL0PO5I4ZI79PkNaSuyZAZRmeKZ17uub8J7ATUnVY0F4GviucXLWRn6D7 +sux/HMeWQSkh4ZpE2ifo8xLYKfZ6GfY9dmPKlH+Cod3f32jZ/gf1CnbrW/lr +YG485fm5jBWwNdCM7r9RA0VU0ZWV1yvwVsjsseSdGgh2jTMPZ6wAVUJ5i25W +DSx1hf+JnVyBiJnlCK9XNRA6+Fa8QYkNeVb5sGm21kB4ffaBPn82pNw/+ODw +2lqIybrYwLGOHZftbx/VCqsF4y0nRMRJ7JiUMsMoiqoFvo+WVqp0dnyaFLdq +0/VaCB9U6TLRZUe1zBjexdu1EKJU9zPpBDt+/ndiaulVLXilS/1HLmbHwi98 +QkXfa4G2kUNX+yM7Dh09MBg0UgsjZb8vm9SzozYGJG0YrwW33vf8pwfY0TY3 +/5rfYi04yrmIFwlwoNHVhWnPtQywuJNPMznMgRoWr2MkdzBAmHbb+6gLB9pO +aaVKIAPqS8ILvL05UMLJLZF/DwOMu2y2J13mwJWBSCumOQP0pP/T/5bLgd0p +SfjeiQFbUo0Pey9xYPaFbPFjEQz4p7rl3iUeTsz6cKQ4I5oBL97I9t8Q5sSb +J667tV5jAL193PWtMidGXzAdFE9mAFkixZfdjBN97u27xZ/DAMmkwegbdzmx +F7u+v65kgBT1dfhcDieOUX5vXqhmgHRF5MWjLzjRSVF++xYGA+TG1c+oVnKi +h/Fa9+hGBqiYnnYsGWKtd3Z/+ttuVvxB3cMK/zgxzi+y+UkvA9SCRa0jFlnv +jcoYiQMMoD0qNNknxIVDM3ISu4cYsJlrWWtwMxeejttyiDbJ8ne7ftPeXVwo +t2tqvm6aAVqa6bRnBlz44J+C/7E5Bug46isF2nJh5jqPRZ9lBuiWRguuusiF ++PRRmjgvE/b5S3zXZHChya4G6yApJuxfNdST0sKFgrTQZ2elmWCZWfR1qZsL +l0r/cXvJMMG68UhD9V8u9OonPukoMOEo7UGxnTg3cmk86DyiygT7Sv/XZXLc +eDLTPW61OhMc7QxeKKtxo19UjV0BhQnHo4azx3S48XiZhlEfnQme3zUSwhy5 +cSDgXWPVZiacPMce++sEN0ql7L9L3soEL5GWSFM/FiuUpZ3XYoIvBoRIRHLj ++Zo3W4S0meDfbhh47jo30rYntRvqMCHAa51vXyo33n44/iZwBxOC7pS6Pcnl +Rr0SfqJ4FxOCN8c5r3nNjRqj+iN1BBNCGA5H/d9z4znafN8XYELoHMcBookb +PV8KlDB0mRB2vdXsQSc3KquuyS7UY0I4OWcv33duvLLQ8zNVnwlXDhoRzTPc ++JHN8yLuYYL0q3ppDnYeNPtXISJhwIQ80YOzm1bx4MeIm4f7WKzn97XFSZwH +aZZm9vcNmdDWbP8iQZ4HrwgekT+wlwkemt9jP6jzoHmEzoNFFi8nnDgxsZkH +e5Ldx1KNmKBs4a9ksZcHi+TaRvONmfD2xfx/oZY82Gy3/THdhAmmwhe7Xhzh +QfFnGnCPxX3eXG/7XHlQtdH+JacpE/waopOEfXjwk6O3gD2LeTTW+OA5HpRq +W2v0jMVpcUlmpyN48FfQst8EizeMraOkX+fBScfx6xQzJlSY3edpvMWDssee +ZxxisfUz5cGVByw9ojx551g8svpJmUYeD+YWVRfdYPGFkxp3HN7yYIYhozad +xWvrXp29XsGD+gfHBzJZnEXVsSqr48GDIvICaSzeHlO26W8bD7bu1d8dyeK6 +kd1C8v08qGKyP9mNxY7GjBHz36z1J4CbYPHU432fLkzzoPx1kWR+Fl/h//Ig +b4UHNcbqzRgs/dIn7EJ7+HlxTj9sUyiL82p6jwiJ8WI/BQ2oLNZTc9Em5HiR +I00pgcnKV9uVEXEvNV7c+s1I0onFHr+8/93V5EXea93ffrPyvWwwXf95Jy++ +ieQd8WRxfE5w7rIBL1K+L2P//+vDwxZFt+DF7sm5XyYsNq0S0L3mwoueOuw7 +2Fn17FOOl33nzYsX6u5PmLDq7xcuvjAaxIvLhS6Csaz+SNNXeGkax4tn+D9H +j+5m5f9B9vWQVF7cSd84vZrFFRzUk08zebFYmOhSYvXf8IetKqvf8GLADzm6 +Bqtft6NJCrOXF59Z3bvE2MnK3/1Gv8VhXvx1pP1wCms/OK5Y7adO8eJ7vu5u +W9Z+ufLekT+Gjw+PPqoaLtvG8r8z4JzxJj58OFH+WViT5f/Ook3wDj7spbSF +xGxk+V8M3fJkDx/KmOixLW1g+S2J+cNvx4e/Ok1vv6ey/GhnONSG8eHSnptV +DGUmGKcLTZnE8mG556U9YiQmKPGGRNXf5MNRt8/CVopMaGy1zm95xIedm3/d +KZVl+T29mrOnng+7jjwRVZZgwlBOYM4/aX7k+iFdd4ibCWWCP3TOKPOjr7/7 +vnWcTEj2t2yYpfNjxM6Dp5rYmLBHjz63hPzYEWN1TW2JAZnfBox43fix5dnv +Ud9/DDgiZv5n/Ut+HLo78zTkG+s8PVdy6V4pP168G6ZX1MkAgQE1CcVqfoz1 +8a36086AouecQP7Kj0ZbMx4RzQyQMCmK37jCj2dJA2dDWed94yXlLXtMBLB7 +UHw86hkDdv9dCPYaFEC6kadRyxkGBO1NonwYFcCb0vHfKL4MyMugd4rOCGDJ +FnObc16s++Ogo3YR3yo8NcYU5nVjwOjbqlnODaswTP79RoYNA26ExfvfOrsK +5WN7mzm3M2BAnOz1UXA1+jfNBnlM1oKkd5mspORqfOgQSB8eqwXTmkOfTyis +xuGmRT8n1v1bGBxDW7N5NR6Q29pI9NfC1d7xEdtDq5HY9MjxWX0taD4ucfub +uRqvgWq5/aNauLTTwkl6uyCmo2++tk0t7LW/92+bniAW2k0Wh1nUglDo78tW +poLYQm/grTKphTuVETnxjoLY+eR21FashbfGxb95ogWRcvLXRLVaLYwfIgVM +fhVE7kvpH/LnasD+zPTVunNC+JqT5t/Jmm908m69ulC2Bocd1mWJFH2Ck3MT +oTWCa1HsaMDzmrEqmKcK99CtRNCJdqJOn1kJO3Ofpicni+KAqXakYeoHmBAx +drSuEMOsyNzLr9aWwfdYR2tfXgn027dhyqWoGIz+Bhr90JJEPe/Lvh2DhTB6 +jM/v1UUpjP6derhtzUvW/CzJcaViHb7W+dgR4vgcRD6T4178lcZIjeiOD02P +QSbq+X4tLRm8zThwuCktC1Kp2sKibrL4KPh708jZdLAy+Rz/3lMW4+/fblvr +kQ4ink5rPU7LIiOZQ0T/cDrEPIkW+RAki0kiPvIfd6XDBfVOMe9YWdwoI6yF +nOlwXPXcOma+LM6n5TzQUbgPm0jvlC4vyeJJKySyne8CQ1p362SCHO47Tasq +VEyDRrnnZK4UOVQyH7j8mScN2pRkpcTvyGFJfIncwu9b0E+ZX9DKkUO9Tezl +SYW3YE4nvzy4WA7lBnsS6k1vAfmwoinHoBxG5ph5mpxPhbDb7MfWbpHH7Nyh +BoWxZNCRqYjXaJPH6Ee7ZH6sToIBknLPcKc8HgkLTbsxdwOiqZHUrF55XLej +psHy+w3o0DGulhqWRyuJOzs4S29AoG3zIvuSPM5vSpSlnrwBdiY+m0eEFfCs +S9Cm6w2JkBzF2m5aCsilx/foRGYCCHFm+juFKaDnsJhpz2gc8MyXHZgIV0Dl +xwLzRrVx8N/YN81LVxSw+jpHent2HPztXDeRHquA6/sehB5yiIPGgoRTfckK ++KBpUHCs5RokOl9ydchVwA9z0x4HK2NBosLx0NFWBUzzeufhXXwVhN5e2Pan +TQG3rwmxHEu7Cjx5dyTOf1XAXTuSHGLPXYXZWx2td3oU8M5v3XiVXVehw2e/ +RfeQAipEvfha+yEa0hTR+PCyArZyzF2rbowCuUvyO23Jing2o+n2NNcVyPPj +U/qmpojvctTKnw9HAuE6wetEVcSChVGMqI+EoyaVLe4bFbF2LJs7LDUS7oi7 +eZ7VUURDyWj7cnokrHuSl5Ziroj2umvPEkcjQKxl1/yXAEX0/yUzXtBwGbKq +yL22QYo4T0ab/DeXYfPbNVXfzini2r2ByTX3L4Pl3f74H6GK6C7oZq57+jIk +uEWoTV9VxPiM1gu2IpdBaKnORuy+Ilr5fqkXPRwG/CpHCi0/KaKC9VU19f9C +wWMdGOfWKmKKi+7nyJFQYAgq9XDWKaLyFs752bZQiJ35xf26kaVHb/qR2ItQ +EKrxs5LsVMSx/9ZVbj0Wyur/mKmuUUXMuIt+omkXQSa/WNNFRAnPbrW+p3j0 +PIRk361+J6aEO25ubA7XOQ/fboXaSUgqIf38Z6dVUufhXphB2Kf1SrjMH6YY +1hICCgebm9RVlLBuQZtD1DQEVGaHT49tU0IxNrLPY/1zsGHXuueBR5WQq+iY +wg+TIHhJOrHI4aiEg8oqZn8oQbBdoMgwzlkJmb3Bk9ICQaDXfqgvy42l54IP +6WfNWbD2SV3b7KOEtLuVltv3noWL2ZL+tEglNGoa0c0zC4RGQQnt/jwlTNe/ +LTLrewasplwiTuYrobuMtM0p6zPQ2fm6afalEq5cyfvLpXMGvj+08hAqUkJK +/dO7KexnYE735u0dlUoY9uPCGcNEf1AMEPvvZrsS+vDz3X5d5Ae+PSKVxmwk +lN2TIzMl7ws11UfePeEgYbhVRfkCny/IPc95I8BNwsbtPdLr//kA46LOUwY/ +CV955SY8+ugDSorON41FSbjrp9jEpIcPNB3LdzMmkzB97YUf20pPw8bhfauN +TUlo4P7+fE6/F0Q23eJ5Yk5Cp7NvZT4VeUF30SCbgAUJL/Pne4onekHU1cDp +WisSVnYreOjoe0Ef9X6PkQMJj4xuJ2U8PAXxXmMvjHxJqPq6oaTk7En4Oxlr +ZZRKQvvX48eXdTyguyPD+m4aCQ/bxL/ZsM4DGO8KbSbukLCVf+V75OwJyLrS +Z3srg4RRT2S1c1+dALv1W+yHn5Cw44zqk7KNJ6BKr8s1+h0JPx+WUp3VcIfb +CepnawdIKLBrTXuGkStEBRBBsj9ImPrX1MSN5goBhw8E+/wioUZQsti+Na6w +X+V8yLpREs6ZJMlEfHEBnqLG0BPTJEzeN65/5ZgL+PQFRvPzKeOz+p4D1RHH +wVCjOs2IroxBfn9GDAec4RDP3oONGsq41aq3ZbLaGTy+1QraaCpjzpD9vspc +Z4iL+Rx6fJsyGn+9a193xhnafrW6XtRVRvlXbdFhq5zhePqg5msrZRwTvjtw +ZJcThK1lZypcYMVfiNC+4OcASUNh4Q9DlTH2o91BlT0OkFPGRWy4rIx15XQF +AUkHYJziy98RpYy33dqfxZTYw1rGmhTrRGW0OF773ZXXHtLD5I7F5ihjyK/f +BfjkCLyf3LE4W6+MOvxuETnSdpBR98b5QJMyJiiP75aZsYXw7M2MvBZljN+0 +xbW8yRaMbKi3XDqUUTxRnu1GtC20Fktva+lXxmSLlYXDi4dg5NK8b96UMnY8 +w7/7f9mAhPCbkePSKviyTonq3WsF80OaluUyKkiJT67fX24F3R/yitbLq6DZ +rbQSuwwryPDLiWomqaBzQ1fxz2NWQGu/SUa6CsbK2h/oHDkIevf8ndejCoau +bknnYzsIXjTNziYXFZQx1xnaZ2AJZ2alFxzcVfD7cOj6PHVLCKnglB7zUMGY +Q2K7twpaQsyhL7YCp1VQzr09+12rBTwKP/tVL1gFnXa+Wp3vYgED3e87Xsap +4E1BXYWZuP1gfc2k/eYbFaSKlPHuXjSDo4e2zJKKVVD7Rl57CNMMjpNkJQtK +VZDj1orb4m0z8Csas67/wNK73sOhZpcZxP9IaOOpU0H+1ittKeGmwNjV8SWw +TwX1N4zEl8mZwK6x4622/GTcfVTFsCtsL0iUGGaWriLjx73K+yqP7oWxK5TT +8kJk/Ox4+0/P9r1wT3F81Q8RMoYZ7fnz/K8h/HfwnP5pGTI603LZCxwMoawk +oSBSg4x9r+Keruw1AN3o9/Evrcg4WMDHJgW7Qdo6w17iEBld9TacWpTfDf+U +wmlBdmQUkt85LMC+GzJLjWoIBzKeSmukP6vUB47x1pVadzKKXb7cOmesD5XW +v736zpGx/w9RGuKkB3uUpcwEM8k4PRm9++NThFd/qhSPZ5GxU2kmSv8GgvIb +v5niHDL2Ng+1/wxC4DJuuO+eS8aXthHfUg0RKrwj/1W+IuOBk46SrHEQiJKp +lOBPZAx4F+3rb0yAlmXTwK9RMkYaHN+id2EH5Ky/+Ib4S8a2Epnk1AM7QPwH +LfbmBBnf7X9rTFPfAVOBUVv1Z8gY2kg6JfBFBwruQtS9FTISi35jqRo6oDH8 +jDUOquLUYFZ18d/toBZ69WzFNhafXzPMkaYFpTuyuU11VFEaJ894+WnB/tmy +xC87VZHLpF9N0kwLznpNPx3SVUXXAYt0OXYtqDni2C9kqooqlWTjJc+t4K6t +ZXzYURVDpVRSH5pugcf/+tdPRaliC5JSQ7ZpApG39Oh8jCrmf9VVH5HUhOYT +klq8caqYEif8+OrcJljoM90vfUMVp5fe7z1WvAmMG96E411VzJ2tGPbATTCS +e+1PbL4q6nzMm79htREoLtplKp2qyCveeaNqNx2uK5kvXO5WxT8ab/e+EqPD +VK/z1oEeVTSA+czR7zR4bxebe29QFQeDNz7ZHkkDy/29KZJ/VLFE60qTZh0V +gnZEnOZnU8OhNxHJNi4UqFnbpPhHRQ03ZJ7heVerCvSGH0dM1NSQVFfnoZip +ComxCymPKWqYcP7XmcpgVTjCqyzkqqGG9w1fyJfRVOHvUsBCz3Y17B/csTXm +BhkkhmRaGk3U0LOr0Zd6UgVc3ruHv/JRw5ZEtWpjQxKMnRoJ3OOvhsrvtQoF +lElwVvakZ1uAGhpJW/HwspPgaoi35dw5NSwvSzF6WaIEL3QCFHZGqqGdx13B +xs1KsFR4ubQyTQ0L9tQxazcoQuLze1PNlWpY3yu/OztNDmQcFIaOVauhzFIU +9jrJQbZQZtdUjRq2pTAlQ9Tl4O2p7AqJejW8uedyZ1eRLHyjPo2361DDytnu +EKVeGVB7VEQbGFVDc9/1l/bsWA9l6a3HJ8TVUTsmQb1zqxT0mSo6BEipo+FX +jgfy/FLANn/KdlFaHR8EVzYXdEuCngWvObeCOhpZPnAsD5eEanadbeso6jgy +Mv7Mo0MC6pzv8+sS6ijFVy6beE0cOpU98uJd1THshv41NpooLDYWPhI/oY6D +ot89JflEQeY854M0T3VsyzJ6fOq7CBz9cicl67Q6HqwrTW+7KwJ9EQ2hb4PV +kemQY3BdVAR+/dxyoC9OHfUv3ovUF1gLU49WZjXeqKOw/9UW+m4h+GltkB5d +pI4XyZ1p14WEoIPr2t7BEnXMLPvBbfJVEEocpW8ll6ujik11ap23IIRJbdVZ +rlXHQt/dqb/TV4NwlEcIo1sdyRlSr5VEVwHN7QubCwcFn3Za845s5gM5cZnH +77ko2O4dwh7KxwfClc4WUrwUfMxxINnhGy9Myo1nMFdR0EpY/P38FV4obhPQ +1xSnoIPR8slrfTyw1wAjVlQpyMcl/KDhHjccU8nlTzOjIGlq+yGmKScEV9l7 +kPdTcE530v0zmRPiXUSYBZYUfBGYtluCnRNKs4NimTYUXGKT9w4u5AAx8t41 +y04UDDx1aNdFZQ6oJv8Qcwyg4EYB0fsiguxAUZNXIN+noOE7ob8x0v8RWNMc +WpBBwVdtwq2hPcuEtXtkP5FFwbXy9/V+ZS4Tlx/9ybR5TMEeXtcUbvoy0a1W +qhL9koKtz+uP+xosEXHqttTRTxSEOI1vztcWiAnKDa2CcQpanriTneA6S3TU +4R7RSQo2MqmbPXRmiXKvsQP+0xQse975NUFologrMPLRWmDlR2qzfd2bGYKi +w/a0mJOKke2n+3sFZwhno1OKlRJUfOCfd0y4ZopodTNc3bqTiqL/cnGnzz+i +hH9aeitQ0eviUBuX+T8iMzdTPVmXiiW2HIcFqf+I03+XDQ4ZUPG+/Upg948J +QjDw1aXufVTW/7Odtpv9BGEQqTj73ZmKwXnuj5vtxom3WYv901FU5Hebbwhb +GiW09P1njWOoSJdhb7pVNUq87h9dnX6NigJtD1pFr48SBXI924wTqejGdU9v +A2mUeJpafu3ebSoybDpiRvb9JtJjI7QN86gYbXOz/F/xMBHtvyYhtYWKDW8C +OrlafhJ8olE5f75QcXGQX8Lo4U8iMp+tVK+DihY8dPq3cz+J8LGJn6PdVDQb +C/r0T+UnccG9dafuTypO4Pznj+d/EL5Hbg0Nz1HR5UPr/PUd3wm73STcIUfD +5Sd9Yaaj/cRyK59QpQINTW6p96dX9xPpLmNdxiQa3pTYxMCMfuJnZFGgnRoN +i4vvrjja9BO+tfueB2nSsPvPkQjRT33EVfMQubcGNLwnq6CR4NZL0HudRsGI +hjWiv/jVVXqJRm/D4k8mrPhb0ycNBnsIiQQR6/b9NPTmfj4p7NRDZLY8ujZj +R0PO5TK+CudvRPGhL0tbvGn4K2uT7YfzXcTR4WJGqQ8NRYeayvfodxFswemp +u/1pOKXygU2Xv4swuO255WAQDQt5WwNSkzuJ5m/sJ/0u0zBh6XtiQeFXYsR5 +Q1d+Cg3N6He9W1Z1EOtPXSnaUE7DxZWNthJcX4i4FdetMRU0/AOFkV1fWwmO +RIP8Xx9pmHn6b+fE81ZipJD7cXotDakWIw/XHG0litnCU0VaaEi/YtGzUtxC +2CWFBs78oKHi8updWhHNRD3ZcdJyiIatq3wiGQ7NhF4ReD8foeHdjTS1hzrN +BKXnP1f3vzTsWSly2jbRRMyrnrfunKNhGLXMLtupiUgtCdr6fhUdz768+MJw +XyOx2tw2X1qIjlcNJ9epbGgkQvu20wOF6ThUtnNaT7CRcOeeU94oTkfp+6eM +Q1IbiG37AsQy5eh4TOcq2SStnmgb8J2M2MT6Pj2b7/GrOkJc4GS+mQ0dq+uy +1vsRtUSW/vngcVs6dpo/PH+Lq5bQPB+nf+MIHXNWtv8mmDWE+fiLLx1OdLSX +FfjIYVdDRLZNzx87SUfHyoAui/OfiLnMi3rBl+hY8Fw8U6Oziojsjl8lG87S +a70YU/+wihCTyGwti6Rj6HGrlu4zVcTG6I+u3LF0DKSnNemLVhEnvPlj4pPp +WGhie1DpwEeic8eNlpxcOr7s3ht29GcF4X4m645RHh0HtN9Qo4oriJm81y6j +L+jop//fYbHrFYSIUsfspkI6LucyJcy1KwgTPlmZd+V0LL2e+WZj4geitDXn +eMsXOjZycQ9yW5UTxkJv6QEdLD2fn538vaGc6DCsnZHqouMTyQEjMn85MVX8 +O8q+j47W3wrMNM+XEfSMjc+GR+io23Ugu8zuPVHaqRsQ+4eOphO0p29F3xPG +YgdAY5yV3/BMfYvP7wjXK2ea/KfpKErhqz+s946YKo9Mk5yj44hmggxzuZQI +W0g5VrxAxy7LnoLWolJCeMtj2tFlOl4y9twTGFBK3DtVPL2yQseLGjYx+ZtL +if8BCK4F/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:eJwVl3k4VV8Xx81TkczJfLm4Q0qlqM5aKDIWhahMZYgiQ0QqCREJCWlCaFCK +ShmKiLhX5hAyNiCJzNPPe9+/zvN5znnW/n7XWnvvdRSdvS1dONjY2CbY2dj+ +/5zpqf2oHJNEyBTutnl84DjRek8qSLfDF9YPVUzaZesBijc4S3WEQXSzSig9 +2xIC9j9p5+xIhL9rohe5s51h7Zhk4nx7JpiPrQg9z/KF3lJz76n2AvhM118K +eBAGBsoj3ybaK4BktUv38b1EmG/fdnO8vRlm5n2uXYnJhEr9h1lNmYNQIvjN +at9iAcj0Fv10pv0BXzv9dCfPEhA76fCEV38SZnw4dMtPfgAK74Pq/TaT4Pnp +nQzz3AfAzJ8Dtzwnod6aQa27+gFOdpxaT0uahFrz6E8vHn2Aj7tDYvf/mISU +vxc3cX7/AP6yt7xuXZkC0d7nddWHKqClvlmTWjcN6kkPZ9J0KiFxk0GJudUc +JG65vF2l5yNodNka7nJnsd7fh2+GP0Jd+KkW6rk5qFjLuQenPwJPR9Jvvow5 +2Hp/aW7z6io4d2FwfeXoHAid6O3N0q6C48zQkG3h83DR7evFx4lVoOVSskvh +5QJ83rjPgryrGlqEGmqFqhcg/odgfqBhNZx+O2C13LEAJZVLLe8tquHJKgGv +zv8WwOo26dAG12qQLzh0L8l4EQyPWq9OjKsGvpXp//gGFuEAjrSc+FYNX1M3 +lk8IL0PO5I4ZI79PkNaSuyZAZRmeKZ17uub8J7ATUnVY0F4GviucXLWRn6D7 +sux/HMeWQSkh4ZpE2ifo8xLYKfZ6GfY9dmPKlH+Cod3f32jZ/gf1CnbrW/lr +YG485fm5jBWwNdCM7r9RA0VU0ZWV1yvwVsjsseSdGgh2jTMPZ6wAVUJ5i25W +DSx1hf+JnVyBiJnlCK9XNRA6+Fa8QYkNeVb5sGm21kB4ffaBPn82pNw/+ODw +2lqIybrYwLGOHZftbx/VCqsF4y0nRMRJ7JiUMsMoiqoFvo+WVqp0dnyaFLdq +0/VaCB9U6TLRZUe1zBjexdu1EKJU9zPpBDt+/ndiaulVLXilS/1HLmbHwi98 +QkXfa4G2kUNX+yM7Dh09MBg0UgsjZb8vm9SzozYGJG0YrwW33vf8pwfY0TY3 +/5rfYi04yrmIFwlwoNHVhWnPtQywuJNPMznMgRoWr2MkdzBAmHbb+6gLB9pO +aaVKIAPqS8ILvL05UMLJLZF/DwOMu2y2J13mwJWBSCumOQP0pP/T/5bLgd0p +SfjeiQFbUo0Pey9xYPaFbPFjEQz4p7rl3iUeTsz6cKQ4I5oBL97I9t8Q5sSb +J667tV5jAL193PWtMidGXzAdFE9mAFkixZfdjBN97u27xZ/DAMmkwegbdzmx +F7u+v65kgBT1dfhcDieOUX5vXqhmgHRF5MWjLzjRSVF++xYGA+TG1c+oVnKi +h/Fa9+hGBqiYnnYsGWKtd3Z/+ttuVvxB3cMK/zgxzi+y+UkvA9SCRa0jFlnv +jcoYiQMMoD0qNNknxIVDM3ISu4cYsJlrWWtwMxeejttyiDbJ8ne7ftPeXVwo +t2tqvm6aAVqa6bRnBlz44J+C/7E5Bug46isF2nJh5jqPRZ9lBuiWRguuusiF ++PRRmjgvE/b5S3zXZHChya4G6yApJuxfNdST0sKFgrTQZ2elmWCZWfR1qZsL +l0r/cXvJMMG68UhD9V8u9OonPukoMOEo7UGxnTg3cmk86DyiygT7Sv/XZXLc +eDLTPW61OhMc7QxeKKtxo19UjV0BhQnHo4azx3S48XiZhlEfnQme3zUSwhy5 +cSDgXWPVZiacPMce++sEN0ql7L9L3soEL5GWSFM/FiuUpZ3XYoIvBoRIRHLj ++Zo3W4S0meDfbhh47jo30rYntRvqMCHAa51vXyo33n44/iZwBxOC7pS6Pcnl +Rr0SfqJ4FxOCN8c5r3nNjRqj+iN1BBNCGA5H/d9z4znafN8XYELoHMcBookb +PV8KlDB0mRB2vdXsQSc3KquuyS7UY0I4OWcv33duvLLQ8zNVnwlXDhoRzTPc ++JHN8yLuYYL0q3ppDnYeNPtXISJhwIQ80YOzm1bx4MeIm4f7WKzn97XFSZwH +aZZm9vcNmdDWbP8iQZ4HrwgekT+wlwkemt9jP6jzoHmEzoNFFi8nnDgxsZkH +e5Ldx1KNmKBs4a9ksZcHi+TaRvONmfD2xfx/oZY82Gy3/THdhAmmwhe7Xhzh +QfFnGnCPxX3eXG/7XHlQtdH+JacpE/waopOEfXjwk6O3gD2LeTTW+OA5HpRq +W2v0jMVpcUlmpyN48FfQst8EizeMraOkX+fBScfx6xQzJlSY3edpvMWDssee +ZxxisfUz5cGVByw9ojx551g8svpJmUYeD+YWVRfdYPGFkxp3HN7yYIYhozad +xWvrXp29XsGD+gfHBzJZnEXVsSqr48GDIvICaSzeHlO26W8bD7bu1d8dyeK6 +kd1C8v08qGKyP9mNxY7GjBHz36z1J4CbYPHU432fLkzzoPx1kWR+Fl/h//Ig +b4UHNcbqzRgs/dIn7EJ7+HlxTj9sUyiL82p6jwiJ8WI/BQ2oLNZTc9Em5HiR +I00pgcnKV9uVEXEvNV7c+s1I0onFHr+8/93V5EXea93ffrPyvWwwXf95Jy++ +ieQd8WRxfE5w7rIBL1K+L2P//+vDwxZFt+DF7sm5XyYsNq0S0L3mwoueOuw7 +2Fn17FOOl33nzYsX6u5PmLDq7xcuvjAaxIvLhS6Csaz+SNNXeGkax4tn+D9H +j+5m5f9B9vWQVF7cSd84vZrFFRzUk08zebFYmOhSYvXf8IetKqvf8GLADzm6 +Bqtft6NJCrOXF59Z3bvE2MnK3/1Gv8VhXvx1pP1wCms/OK5Y7adO8eJ7vu5u +W9Z+ufLekT+Gjw+PPqoaLtvG8r8z4JzxJj58OFH+WViT5f/Ook3wDj7spbSF +xGxk+V8M3fJkDx/KmOixLW1g+S2J+cNvx4e/Ok1vv6ey/GhnONSG8eHSnptV +DGUmGKcLTZnE8mG556U9YiQmKPGGRNXf5MNRt8/CVopMaGy1zm95xIedm3/d +KZVl+T29mrOnng+7jjwRVZZgwlBOYM4/aX7k+iFdd4ibCWWCP3TOKPOjr7/7 +vnWcTEj2t2yYpfNjxM6Dp5rYmLBHjz63hPzYEWN1TW2JAZnfBox43fix5dnv +Ud9/DDgiZv5n/Ut+HLo78zTkG+s8PVdy6V4pP168G6ZX1MkAgQE1CcVqfoz1 +8a36086AouecQP7Kj0ZbMx4RzQyQMCmK37jCj2dJA2dDWed94yXlLXtMBLB7 +UHw86hkDdv9dCPYaFEC6kadRyxkGBO1NonwYFcCb0vHfKL4MyMugd4rOCGDJ +FnObc16s++Ogo3YR3yo8NcYU5nVjwOjbqlnODaswTP79RoYNA26ExfvfOrsK +5WN7mzm3M2BAnOz1UXA1+jfNBnlM1oKkd5mspORqfOgQSB8eqwXTmkOfTyis +xuGmRT8n1v1bGBxDW7N5NR6Q29pI9NfC1d7xEdtDq5HY9MjxWX0taD4ucfub +uRqvgWq5/aNauLTTwkl6uyCmo2++tk0t7LW/92+bniAW2k0Wh1nUglDo78tW +poLYQm/grTKphTuVETnxjoLY+eR21FashbfGxb95ogWRcvLXRLVaLYwfIgVM +fhVE7kvpH/LnasD+zPTVunNC+JqT5t/Jmm908m69ulC2Bocd1mWJFH2Ck3MT +oTWCa1HsaMDzmrEqmKcK99CtRNCJdqJOn1kJO3Ofpicni+KAqXakYeoHmBAx +drSuEMOsyNzLr9aWwfdYR2tfXgn027dhyqWoGIz+Bhr90JJEPe/Lvh2DhTB6 +jM/v1UUpjP6derhtzUvW/CzJcaViHb7W+dgR4vgcRD6T4178lcZIjeiOD02P +QSbq+X4tLRm8zThwuCktC1Kp2sKibrL4KPh708jZdLAy+Rz/3lMW4+/fblvr +kQ4ink5rPU7LIiOZQ0T/cDrEPIkW+RAki0kiPvIfd6XDBfVOMe9YWdwoI6yF +nOlwXPXcOma+LM6n5TzQUbgPm0jvlC4vyeJJKySyne8CQ1p362SCHO47Tasq +VEyDRrnnZK4UOVQyH7j8mScN2pRkpcTvyGFJfIncwu9b0E+ZX9DKkUO9Tezl +SYW3YE4nvzy4WA7lBnsS6k1vAfmwoinHoBxG5ph5mpxPhbDb7MfWbpHH7Nyh +BoWxZNCRqYjXaJPH6Ee7ZH6sToIBknLPcKc8HgkLTbsxdwOiqZHUrF55XLej +psHy+w3o0DGulhqWRyuJOzs4S29AoG3zIvuSPM5vSpSlnrwBdiY+m0eEFfCs +S9Cm6w2JkBzF2m5aCsilx/foRGYCCHFm+juFKaDnsJhpz2gc8MyXHZgIV0Dl +xwLzRrVx8N/YN81LVxSw+jpHent2HPztXDeRHquA6/sehB5yiIPGgoRTfckK ++KBpUHCs5RokOl9ydchVwA9z0x4HK2NBosLx0NFWBUzzeufhXXwVhN5e2Pan +TQG3rwmxHEu7Cjx5dyTOf1XAXTuSHGLPXYXZWx2td3oU8M5v3XiVXVehw2e/ +RfeQAipEvfha+yEa0hTR+PCyArZyzF2rbowCuUvyO23Jing2o+n2NNcVyPPj +U/qmpojvctTKnw9HAuE6wetEVcSChVGMqI+EoyaVLe4bFbF2LJs7LDUS7oi7 +eZ7VUURDyWj7cnokrHuSl5Ziroj2umvPEkcjQKxl1/yXAEX0/yUzXtBwGbKq +yL22QYo4T0ab/DeXYfPbNVXfzini2r2ByTX3L4Pl3f74H6GK6C7oZq57+jIk +uEWoTV9VxPiM1gu2IpdBaKnORuy+Ilr5fqkXPRwG/CpHCi0/KaKC9VU19f9C +wWMdGOfWKmKKi+7nyJFQYAgq9XDWKaLyFs752bZQiJ35xf26kaVHb/qR2ItQ +EKrxs5LsVMSx/9ZVbj0Wyur/mKmuUUXMuIt+omkXQSa/WNNFRAnPbrW+p3j0 +PIRk361+J6aEO25ubA7XOQ/fboXaSUgqIf38Z6dVUufhXphB2Kf1SrjMH6YY +1hICCgebm9RVlLBuQZtD1DQEVGaHT49tU0IxNrLPY/1zsGHXuueBR5WQq+iY +wg+TIHhJOrHI4aiEg8oqZn8oQbBdoMgwzlkJmb3Bk9ICQaDXfqgvy42l54IP +6WfNWbD2SV3b7KOEtLuVltv3noWL2ZL+tEglNGoa0c0zC4RGQQnt/jwlTNe/ +LTLrewasplwiTuYrobuMtM0p6zPQ2fm6afalEq5cyfvLpXMGvj+08hAqUkJK +/dO7KexnYE735u0dlUoY9uPCGcNEf1AMEPvvZrsS+vDz3X5d5Ae+PSKVxmwk +lN2TIzMl7ws11UfePeEgYbhVRfkCny/IPc95I8BNwsbtPdLr//kA46LOUwY/ +CV955SY8+ugDSorON41FSbjrp9jEpIcPNB3LdzMmkzB97YUf20pPw8bhfauN +TUlo4P7+fE6/F0Q23eJ5Yk5Cp7NvZT4VeUF30SCbgAUJL/Pne4onekHU1cDp +WisSVnYreOjoe0Ef9X6PkQMJj4xuJ2U8PAXxXmMvjHxJqPq6oaTk7En4Oxlr +ZZRKQvvX48eXdTyguyPD+m4aCQ/bxL/ZsM4DGO8KbSbukLCVf+V75OwJyLrS +Z3srg4RRT2S1c1+dALv1W+yHn5Cw44zqk7KNJ6BKr8s1+h0JPx+WUp3VcIfb +CepnawdIKLBrTXuGkStEBRBBsj9ImPrX1MSN5goBhw8E+/wioUZQsti+Na6w +X+V8yLpREs6ZJMlEfHEBnqLG0BPTJEzeN65/5ZgL+PQFRvPzKeOz+p4D1RHH +wVCjOs2IroxBfn9GDAec4RDP3oONGsq41aq3ZbLaGTy+1QraaCpjzpD9vspc +Z4iL+Rx6fJsyGn+9a193xhnafrW6XtRVRvlXbdFhq5zhePqg5msrZRwTvjtw +ZJcThK1lZypcYMVfiNC+4OcASUNh4Q9DlTH2o91BlT0OkFPGRWy4rIx15XQF +AUkHYJziy98RpYy33dqfxZTYw1rGmhTrRGW0OF773ZXXHtLD5I7F5ihjyK/f +BfjkCLyf3LE4W6+MOvxuETnSdpBR98b5QJMyJiiP75aZsYXw7M2MvBZljN+0 +xbW8yRaMbKi3XDqUUTxRnu1GtC20Fktva+lXxmSLlYXDi4dg5NK8b96UMnY8 +w7/7f9mAhPCbkePSKviyTonq3WsF80OaluUyKkiJT67fX24F3R/yitbLq6DZ +rbQSuwwryPDLiWomqaBzQ1fxz2NWQGu/SUa6CsbK2h/oHDkIevf8ndejCoau +bknnYzsIXjTNziYXFZQx1xnaZ2AJZ2alFxzcVfD7cOj6PHVLCKnglB7zUMGY +Q2K7twpaQsyhL7YCp1VQzr09+12rBTwKP/tVL1gFnXa+Wp3vYgED3e87Xsap +4E1BXYWZuP1gfc2k/eYbFaSKlPHuXjSDo4e2zJKKVVD7Rl57CNMMjpNkJQtK +VZDj1orb4m0z8Csas67/wNK73sOhZpcZxP9IaOOpU0H+1ittKeGmwNjV8SWw +TwX1N4zEl8mZwK6x4622/GTcfVTFsCtsL0iUGGaWriLjx73K+yqP7oWxK5TT +8kJk/Ox4+0/P9r1wT3F81Q8RMoYZ7fnz/K8h/HfwnP5pGTI603LZCxwMoawk +oSBSg4x9r+Keruw1AN3o9/Evrcg4WMDHJgW7Qdo6w17iEBld9TacWpTfDf+U +wmlBdmQUkt85LMC+GzJLjWoIBzKeSmukP6vUB47x1pVadzKKXb7cOmesD5XW +v736zpGx/w9RGuKkB3uUpcwEM8k4PRm9++NThFd/qhSPZ5GxU2kmSv8GgvIb +v5niHDL2Ng+1/wxC4DJuuO+eS8aXthHfUg0RKrwj/1W+IuOBk46SrHEQiJKp +lOBPZAx4F+3rb0yAlmXTwK9RMkYaHN+id2EH5Ky/+Ib4S8a2Epnk1AM7QPwH +LfbmBBnf7X9rTFPfAVOBUVv1Z8gY2kg6JfBFBwruQtS9FTISi35jqRo6oDH8 +jDUOquLUYFZ18d/toBZ69WzFNhafXzPMkaYFpTuyuU11VFEaJ894+WnB/tmy +xC87VZHLpF9N0kwLznpNPx3SVUXXAYt0OXYtqDni2C9kqooqlWTjJc+t4K6t +ZXzYURVDpVRSH5pugcf/+tdPRaliC5JSQ7ZpApG39Oh8jCrmf9VVH5HUhOYT +klq8caqYEif8+OrcJljoM90vfUMVp5fe7z1WvAmMG96E411VzJ2tGPbATTCS +e+1PbL4q6nzMm79htREoLtplKp2qyCveeaNqNx2uK5kvXO5WxT8ab/e+EqPD +VK/z1oEeVTSA+czR7zR4bxebe29QFQeDNz7ZHkkDy/29KZJ/VLFE60qTZh0V +gnZEnOZnU8OhNxHJNi4UqFnbpPhHRQ03ZJ7heVerCvSGH0dM1NSQVFfnoZip +ComxCymPKWqYcP7XmcpgVTjCqyzkqqGG9w1fyJfRVOHvUsBCz3Y17B/csTXm +BhkkhmRaGk3U0LOr0Zd6UgVc3ruHv/JRw5ZEtWpjQxKMnRoJ3OOvhsrvtQoF +lElwVvakZ1uAGhpJW/HwspPgaoi35dw5NSwvSzF6WaIEL3QCFHZGqqGdx13B +xs1KsFR4ubQyTQ0L9tQxazcoQuLze1PNlWpY3yu/OztNDmQcFIaOVauhzFIU +9jrJQbZQZtdUjRq2pTAlQ9Tl4O2p7AqJejW8uedyZ1eRLHyjPo2361DDytnu +EKVeGVB7VEQbGFVDc9/1l/bsWA9l6a3HJ8TVUTsmQb1zqxT0mSo6BEipo+FX +jgfy/FLANn/KdlFaHR8EVzYXdEuCngWvObeCOhpZPnAsD5eEanadbeso6jgy +Mv7Mo0MC6pzv8+sS6ijFVy6beE0cOpU98uJd1THshv41NpooLDYWPhI/oY6D +ot89JflEQeY854M0T3VsyzJ6fOq7CBz9cicl67Q6HqwrTW+7KwJ9EQ2hb4PV +kemQY3BdVAR+/dxyoC9OHfUv3ovUF1gLU49WZjXeqKOw/9UW+m4h+GltkB5d +pI4XyZ1p14WEoIPr2t7BEnXMLPvBbfJVEEocpW8ll6ujik11ap23IIRJbdVZ +rlXHQt/dqb/TV4NwlEcIo1sdyRlSr5VEVwHN7QubCwcFn3Za845s5gM5cZnH +77ko2O4dwh7KxwfClc4WUrwUfMxxINnhGy9Myo1nMFdR0EpY/P38FV4obhPQ +1xSnoIPR8slrfTyw1wAjVlQpyMcl/KDhHjccU8nlTzOjIGlq+yGmKScEV9l7 +kPdTcE530v0zmRPiXUSYBZYUfBGYtluCnRNKs4NimTYUXGKT9w4u5AAx8t41 +y04UDDx1aNdFZQ6oJv8Qcwyg4EYB0fsiguxAUZNXIN+noOE7ob8x0v8RWNMc +WpBBwVdtwq2hPcuEtXtkP5FFwbXy9/V+ZS4Tlx/9ybR5TMEeXtcUbvoy0a1W +qhL9koKtz+uP+xosEXHqttTRTxSEOI1vztcWiAnKDa2CcQpanriTneA6S3TU +4R7RSQo2MqmbPXRmiXKvsQP+0xQse975NUFologrMPLRWmDlR2qzfd2bGYKi +w/a0mJOKke2n+3sFZwhno1OKlRJUfOCfd0y4ZopodTNc3bqTiqL/cnGnzz+i +hH9aeitQ0eviUBuX+T8iMzdTPVmXiiW2HIcFqf+I03+XDQ4ZUPG+/Upg948J +QjDw1aXufVTW/7Odtpv9BGEQqTj73ZmKwXnuj5vtxom3WYv901FU5Hebbwhb +GiW09P1njWOoSJdhb7pVNUq87h9dnX6NigJtD1pFr48SBXI924wTqejGdU9v +A2mUeJpafu3ebSoybDpiRvb9JtJjI7QN86gYbXOz/F/xMBHtvyYhtYWKDW8C +OrlafhJ8olE5f75QcXGQX8Lo4U8iMp+tVK+DihY8dPq3cz+J8LGJn6PdVDQb +C/r0T+UnccG9dafuTypO4Pznj+d/EL5Hbg0Nz1HR5UPr/PUd3wm73STcIUfD +5Sd9Yaaj/cRyK59QpQINTW6p96dX9xPpLmNdxiQa3pTYxMCMfuJnZFGgnRoN +i4vvrjja9BO+tfueB2nSsPvPkQjRT33EVfMQubcGNLwnq6CR4NZL0HudRsGI +hjWiv/jVVXqJRm/D4k8mrPhb0ycNBnsIiQQR6/b9NPTmfj4p7NRDZLY8ujZj +R0PO5TK+CudvRPGhL0tbvGn4K2uT7YfzXcTR4WJGqQ8NRYeayvfodxFswemp +u/1pOKXygU2Xv4swuO255WAQDQt5WwNSkzuJ5m/sJ/0u0zBh6XtiQeFXYsR5 +Q1d+Cg3N6He9W1Z1EOtPXSnaUE7DxZWNthJcX4i4FdetMRU0/AOFkV1fWwmO +RIP8Xx9pmHn6b+fE81ZipJD7cXotDakWIw/XHG0litnCU0VaaEi/YtGzUtxC +2CWFBs78oKHi8updWhHNRD3ZcdJyiIatq3wiGQ7NhF4ReD8foeHdjTS1hzrN +BKXnP1f3vzTsWSly2jbRRMyrnrfunKNhGLXMLtupiUgtCdr6fhUdz768+MJw +XyOx2tw2X1qIjlcNJ9epbGgkQvu20wOF6ThUtnNaT7CRcOeeU94oTkfp+6eM +Q1IbiG37AsQy5eh4TOcq2SStnmgb8J2M2MT6Pj2b7/GrOkJc4GS+mQ0dq+uy +1vsRtUSW/vngcVs6dpo/PH+Lq5bQPB+nf+MIHXNWtv8mmDWE+fiLLx1OdLSX +FfjIYVdDRLZNzx87SUfHyoAui/OfiLnMi3rBl+hY8Fw8U6Oziojsjl8lG87S +a70YU/+wihCTyGwti6Rj6HGrlu4zVcTG6I+u3LF0DKSnNemLVhEnvPlj4pPp +WGhie1DpwEeic8eNlpxcOr7s3ht29GcF4X4m645RHh0HtN9Qo4oriJm81y6j +L+jop//fYbHrFYSIUsfspkI6LucyJcy1KwgTPlmZd+V0LL2e+WZj4geitDXn +eMsXOjZycQ9yW5UTxkJv6QEdLD2fn538vaGc6DCsnZHqouMTyQEjMn85MVX8 +O8q+j47W3wrMNM+XEfSMjc+GR+io23Ugu8zuPVHaqRsQ+4eOphO0p29F3xPG +YgdAY5yV3/BMfYvP7wjXK2ea/KfpKErhqz+s946YKo9Mk5yj44hmggxzuZQI +W0g5VrxAxy7LnoLWolJCeMtj2tFlOl4y9twTGFBK3DtVPL2yQseLGjYx+ZtL +if8BCK4F/w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.21330677109713933`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.21330677109713933`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3k4VV8Xx81TkczJfLm4Q0qlqM5aKDIWhahMZYgiQ0QqCREJCWlCaFCK +ShmKiLhX5hAyNiCJzNPPe9+/zvN5znnW/n7XWnvvdRSdvS1dONjY2CbY2dj+ +/5zpqf2oHJNEyBTutnl84DjRek8qSLfDF9YPVUzaZesBijc4S3WEQXSzSig9 +2xIC9j9p5+xIhL9rohe5s51h7Zhk4nx7JpiPrQg9z/KF3lJz76n2AvhM118K +eBAGBsoj3ybaK4BktUv38b1EmG/fdnO8vRlm5n2uXYnJhEr9h1lNmYNQIvjN +at9iAcj0Fv10pv0BXzv9dCfPEhA76fCEV38SZnw4dMtPfgAK74Pq/TaT4Pnp +nQzz3AfAzJ8Dtzwnod6aQa27+gFOdpxaT0uahFrz6E8vHn2Aj7tDYvf/mISU +vxc3cX7/AP6yt7xuXZkC0d7nddWHKqClvlmTWjcN6kkPZ9J0KiFxk0GJudUc +JG65vF2l5yNodNka7nJnsd7fh2+GP0Jd+KkW6rk5qFjLuQenPwJPR9Jvvow5 +2Hp/aW7z6io4d2FwfeXoHAid6O3N0q6C48zQkG3h83DR7evFx4lVoOVSskvh +5QJ83rjPgryrGlqEGmqFqhcg/odgfqBhNZx+O2C13LEAJZVLLe8tquHJKgGv +zv8WwOo26dAG12qQLzh0L8l4EQyPWq9OjKsGvpXp//gGFuEAjrSc+FYNX1M3 +lk8IL0PO5I4ZI79PkNaSuyZAZRmeKZ17uub8J7ATUnVY0F4GviucXLWRn6D7 +sux/HMeWQSkh4ZpE2ifo8xLYKfZ6GfY9dmPKlH+Cod3f32jZ/gf1CnbrW/lr +YG485fm5jBWwNdCM7r9RA0VU0ZWV1yvwVsjsseSdGgh2jTMPZ6wAVUJ5i25W +DSx1hf+JnVyBiJnlCK9XNRA6+Fa8QYkNeVb5sGm21kB4ffaBPn82pNw/+ODw +2lqIybrYwLGOHZftbx/VCqsF4y0nRMRJ7JiUMsMoiqoFvo+WVqp0dnyaFLdq +0/VaCB9U6TLRZUe1zBjexdu1EKJU9zPpBDt+/ndiaulVLXilS/1HLmbHwi98 +QkXfa4G2kUNX+yM7Dh09MBg0UgsjZb8vm9SzozYGJG0YrwW33vf8pwfY0TY3 +/5rfYi04yrmIFwlwoNHVhWnPtQywuJNPMznMgRoWr2MkdzBAmHbb+6gLB9pO +aaVKIAPqS8ILvL05UMLJLZF/DwOMu2y2J13mwJWBSCumOQP0pP/T/5bLgd0p +SfjeiQFbUo0Pey9xYPaFbPFjEQz4p7rl3iUeTsz6cKQ4I5oBL97I9t8Q5sSb +J667tV5jAL193PWtMidGXzAdFE9mAFkixZfdjBN97u27xZ/DAMmkwegbdzmx +F7u+v65kgBT1dfhcDieOUX5vXqhmgHRF5MWjLzjRSVF++xYGA+TG1c+oVnKi +h/Fa9+hGBqiYnnYsGWKtd3Z/+ttuVvxB3cMK/zgxzi+y+UkvA9SCRa0jFlnv +jcoYiQMMoD0qNNknxIVDM3ISu4cYsJlrWWtwMxeejttyiDbJ8ne7ftPeXVwo +t2tqvm6aAVqa6bRnBlz44J+C/7E5Bug46isF2nJh5jqPRZ9lBuiWRguuusiF ++PRRmjgvE/b5S3zXZHChya4G6yApJuxfNdST0sKFgrTQZ2elmWCZWfR1qZsL +l0r/cXvJMMG68UhD9V8u9OonPukoMOEo7UGxnTg3cmk86DyiygT7Sv/XZXLc +eDLTPW61OhMc7QxeKKtxo19UjV0BhQnHo4azx3S48XiZhlEfnQme3zUSwhy5 +cSDgXWPVZiacPMce++sEN0ql7L9L3soEL5GWSFM/FiuUpZ3XYoIvBoRIRHLj ++Zo3W4S0meDfbhh47jo30rYntRvqMCHAa51vXyo33n44/iZwBxOC7pS6Pcnl +Rr0SfqJ4FxOCN8c5r3nNjRqj+iN1BBNCGA5H/d9z4znafN8XYELoHMcBookb +PV8KlDB0mRB2vdXsQSc3KquuyS7UY0I4OWcv33duvLLQ8zNVnwlXDhoRzTPc ++JHN8yLuYYL0q3ppDnYeNPtXISJhwIQ80YOzm1bx4MeIm4f7WKzn97XFSZwH +aZZm9vcNmdDWbP8iQZ4HrwgekT+wlwkemt9jP6jzoHmEzoNFFi8nnDgxsZkH +e5Ldx1KNmKBs4a9ksZcHi+TaRvONmfD2xfx/oZY82Gy3/THdhAmmwhe7Xhzh +QfFnGnCPxX3eXG/7XHlQtdH+JacpE/waopOEfXjwk6O3gD2LeTTW+OA5HpRq +W2v0jMVpcUlmpyN48FfQst8EizeMraOkX+fBScfx6xQzJlSY3edpvMWDssee +ZxxisfUz5cGVByw9ojx551g8svpJmUYeD+YWVRfdYPGFkxp3HN7yYIYhozad +xWvrXp29XsGD+gfHBzJZnEXVsSqr48GDIvICaSzeHlO26W8bD7bu1d8dyeK6 +kd1C8v08qGKyP9mNxY7GjBHz36z1J4CbYPHU432fLkzzoPx1kWR+Fl/h//Ig +b4UHNcbqzRgs/dIn7EJ7+HlxTj9sUyiL82p6jwiJ8WI/BQ2oLNZTc9Em5HiR +I00pgcnKV9uVEXEvNV7c+s1I0onFHr+8/93V5EXea93ffrPyvWwwXf95Jy++ +ieQd8WRxfE5w7rIBL1K+L2P//+vDwxZFt+DF7sm5XyYsNq0S0L3mwoueOuw7 +2Fn17FOOl33nzYsX6u5PmLDq7xcuvjAaxIvLhS6Csaz+SNNXeGkax4tn+D9H +j+5m5f9B9vWQVF7cSd84vZrFFRzUk08zebFYmOhSYvXf8IetKqvf8GLADzm6 +Bqtft6NJCrOXF59Z3bvE2MnK3/1Gv8VhXvx1pP1wCms/OK5Y7adO8eJ7vu5u +W9Z+ufLekT+Gjw+PPqoaLtvG8r8z4JzxJj58OFH+WViT5f/Ook3wDj7spbSF +xGxk+V8M3fJkDx/KmOixLW1g+S2J+cNvx4e/Ok1vv6ey/GhnONSG8eHSnptV +DGUmGKcLTZnE8mG556U9YiQmKPGGRNXf5MNRt8/CVopMaGy1zm95xIedm3/d +KZVl+T29mrOnng+7jjwRVZZgwlBOYM4/aX7k+iFdd4ibCWWCP3TOKPOjr7/7 +vnWcTEj2t2yYpfNjxM6Dp5rYmLBHjz63hPzYEWN1TW2JAZnfBox43fix5dnv +Ud9/DDgiZv5n/Ut+HLo78zTkG+s8PVdy6V4pP168G6ZX1MkAgQE1CcVqfoz1 +8a36086AouecQP7Kj0ZbMx4RzQyQMCmK37jCj2dJA2dDWed94yXlLXtMBLB7 +UHw86hkDdv9dCPYaFEC6kadRyxkGBO1NonwYFcCb0vHfKL4MyMugd4rOCGDJ +FnObc16s++Ogo3YR3yo8NcYU5nVjwOjbqlnODaswTP79RoYNA26ExfvfOrsK +5WN7mzm3M2BAnOz1UXA1+jfNBnlM1oKkd5mspORqfOgQSB8eqwXTmkOfTyis +xuGmRT8n1v1bGBxDW7N5NR6Q29pI9NfC1d7xEdtDq5HY9MjxWX0taD4ucfub +uRqvgWq5/aNauLTTwkl6uyCmo2++tk0t7LW/92+bniAW2k0Wh1nUglDo78tW +poLYQm/grTKphTuVETnxjoLY+eR21FashbfGxb95ogWRcvLXRLVaLYwfIgVM +fhVE7kvpH/LnasD+zPTVunNC+JqT5t/Jmm908m69ulC2Bocd1mWJFH2Ck3MT +oTWCa1HsaMDzmrEqmKcK99CtRNCJdqJOn1kJO3Ofpicni+KAqXakYeoHmBAx +drSuEMOsyNzLr9aWwfdYR2tfXgn027dhyqWoGIz+Bhr90JJEPe/Lvh2DhTB6 +jM/v1UUpjP6derhtzUvW/CzJcaViHb7W+dgR4vgcRD6T4178lcZIjeiOD02P +QSbq+X4tLRm8zThwuCktC1Kp2sKibrL4KPh708jZdLAy+Rz/3lMW4+/fblvr +kQ4ink5rPU7LIiOZQ0T/cDrEPIkW+RAki0kiPvIfd6XDBfVOMe9YWdwoI6yF +nOlwXPXcOma+LM6n5TzQUbgPm0jvlC4vyeJJKySyne8CQ1p362SCHO47Tasq +VEyDRrnnZK4UOVQyH7j8mScN2pRkpcTvyGFJfIncwu9b0E+ZX9DKkUO9Tezl +SYW3YE4nvzy4WA7lBnsS6k1vAfmwoinHoBxG5ph5mpxPhbDb7MfWbpHH7Nyh +BoWxZNCRqYjXaJPH6Ee7ZH6sToIBknLPcKc8HgkLTbsxdwOiqZHUrF55XLej +psHy+w3o0DGulhqWRyuJOzs4S29AoG3zIvuSPM5vSpSlnrwBdiY+m0eEFfCs +S9Cm6w2JkBzF2m5aCsilx/foRGYCCHFm+juFKaDnsJhpz2gc8MyXHZgIV0Dl +xwLzRrVx8N/YN81LVxSw+jpHent2HPztXDeRHquA6/sehB5yiIPGgoRTfckK ++KBpUHCs5RokOl9ydchVwA9z0x4HK2NBosLx0NFWBUzzeufhXXwVhN5e2Pan +TQG3rwmxHEu7Cjx5dyTOf1XAXTuSHGLPXYXZWx2td3oU8M5v3XiVXVehw2e/ +RfeQAipEvfha+yEa0hTR+PCyArZyzF2rbowCuUvyO23Jing2o+n2NNcVyPPj +U/qmpojvctTKnw9HAuE6wetEVcSChVGMqI+EoyaVLe4bFbF2LJs7LDUS7oi7 +eZ7VUURDyWj7cnokrHuSl5Ziroj2umvPEkcjQKxl1/yXAEX0/yUzXtBwGbKq +yL22QYo4T0ab/DeXYfPbNVXfzini2r2ByTX3L4Pl3f74H6GK6C7oZq57+jIk +uEWoTV9VxPiM1gu2IpdBaKnORuy+Ilr5fqkXPRwG/CpHCi0/KaKC9VU19f9C +wWMdGOfWKmKKi+7nyJFQYAgq9XDWKaLyFs752bZQiJ35xf26kaVHb/qR2ItQ +EKrxs5LsVMSx/9ZVbj0Wyur/mKmuUUXMuIt+omkXQSa/WNNFRAnPbrW+p3j0 +PIRk361+J6aEO25ubA7XOQ/fboXaSUgqIf38Z6dVUufhXphB2Kf1SrjMH6YY +1hICCgebm9RVlLBuQZtD1DQEVGaHT49tU0IxNrLPY/1zsGHXuueBR5WQq+iY +wg+TIHhJOrHI4aiEg8oqZn8oQbBdoMgwzlkJmb3Bk9ICQaDXfqgvy42l54IP +6WfNWbD2SV3b7KOEtLuVltv3noWL2ZL+tEglNGoa0c0zC4RGQQnt/jwlTNe/ +LTLrewasplwiTuYrobuMtM0p6zPQ2fm6afalEq5cyfvLpXMGvj+08hAqUkJK +/dO7KexnYE735u0dlUoY9uPCGcNEf1AMEPvvZrsS+vDz3X5d5Ae+PSKVxmwk +lN2TIzMl7ws11UfePeEgYbhVRfkCny/IPc95I8BNwsbtPdLr//kA46LOUwY/ +CV955SY8+ugDSorON41FSbjrp9jEpIcPNB3LdzMmkzB97YUf20pPw8bhfauN +TUlo4P7+fE6/F0Q23eJ5Yk5Cp7NvZT4VeUF30SCbgAUJL/Pne4onekHU1cDp +WisSVnYreOjoe0Ef9X6PkQMJj4xuJ2U8PAXxXmMvjHxJqPq6oaTk7En4Oxlr +ZZRKQvvX48eXdTyguyPD+m4aCQ/bxL/ZsM4DGO8KbSbukLCVf+V75OwJyLrS +Z3srg4RRT2S1c1+dALv1W+yHn5Cw44zqk7KNJ6BKr8s1+h0JPx+WUp3VcIfb +CepnawdIKLBrTXuGkStEBRBBsj9ImPrX1MSN5goBhw8E+/wioUZQsti+Na6w +X+V8yLpREs6ZJMlEfHEBnqLG0BPTJEzeN65/5ZgL+PQFRvPzKeOz+p4D1RHH +wVCjOs2IroxBfn9GDAec4RDP3oONGsq41aq3ZbLaGTy+1QraaCpjzpD9vspc +Z4iL+Rx6fJsyGn+9a193xhnafrW6XtRVRvlXbdFhq5zhePqg5msrZRwTvjtw +ZJcThK1lZypcYMVfiNC+4OcASUNh4Q9DlTH2o91BlT0OkFPGRWy4rIx15XQF +AUkHYJziy98RpYy33dqfxZTYw1rGmhTrRGW0OF773ZXXHtLD5I7F5ihjyK/f +BfjkCLyf3LE4W6+MOvxuETnSdpBR98b5QJMyJiiP75aZsYXw7M2MvBZljN+0 +xbW8yRaMbKi3XDqUUTxRnu1GtC20Fktva+lXxmSLlYXDi4dg5NK8b96UMnY8 +w7/7f9mAhPCbkePSKviyTonq3WsF80OaluUyKkiJT67fX24F3R/yitbLq6DZ +rbQSuwwryPDLiWomqaBzQ1fxz2NWQGu/SUa6CsbK2h/oHDkIevf8ndejCoau +bknnYzsIXjTNziYXFZQx1xnaZ2AJZ2alFxzcVfD7cOj6PHVLCKnglB7zUMGY +Q2K7twpaQsyhL7YCp1VQzr09+12rBTwKP/tVL1gFnXa+Wp3vYgED3e87Xsap +4E1BXYWZuP1gfc2k/eYbFaSKlPHuXjSDo4e2zJKKVVD7Rl57CNMMjpNkJQtK +VZDj1orb4m0z8Csas67/wNK73sOhZpcZxP9IaOOpU0H+1ittKeGmwNjV8SWw +TwX1N4zEl8mZwK6x4622/GTcfVTFsCtsL0iUGGaWriLjx73K+yqP7oWxK5TT +8kJk/Ox4+0/P9r1wT3F81Q8RMoYZ7fnz/K8h/HfwnP5pGTI603LZCxwMoawk +oSBSg4x9r+Keruw1AN3o9/Evrcg4WMDHJgW7Qdo6w17iEBld9TacWpTfDf+U +wmlBdmQUkt85LMC+GzJLjWoIBzKeSmukP6vUB47x1pVadzKKXb7cOmesD5XW +v736zpGx/w9RGuKkB3uUpcwEM8k4PRm9++NThFd/qhSPZ5GxU2kmSv8GgvIb +v5niHDL2Ng+1/wxC4DJuuO+eS8aXthHfUg0RKrwj/1W+IuOBk46SrHEQiJKp +lOBPZAx4F+3rb0yAlmXTwK9RMkYaHN+id2EH5Ky/+Ib4S8a2Epnk1AM7QPwH +LfbmBBnf7X9rTFPfAVOBUVv1Z8gY2kg6JfBFBwruQtS9FTISi35jqRo6oDH8 +jDUOquLUYFZ18d/toBZ69WzFNhafXzPMkaYFpTuyuU11VFEaJ894+WnB/tmy +xC87VZHLpF9N0kwLznpNPx3SVUXXAYt0OXYtqDni2C9kqooqlWTjJc+t4K6t +ZXzYURVDpVRSH5pugcf/+tdPRaliC5JSQ7ZpApG39Oh8jCrmf9VVH5HUhOYT +klq8caqYEif8+OrcJljoM90vfUMVp5fe7z1WvAmMG96E411VzJ2tGPbATTCS +e+1PbL4q6nzMm79htREoLtplKp2qyCveeaNqNx2uK5kvXO5WxT8ab/e+EqPD +VK/z1oEeVTSA+czR7zR4bxebe29QFQeDNz7ZHkkDy/29KZJ/VLFE60qTZh0V +gnZEnOZnU8OhNxHJNi4UqFnbpPhHRQ03ZJ7heVerCvSGH0dM1NSQVFfnoZip +ComxCymPKWqYcP7XmcpgVTjCqyzkqqGG9w1fyJfRVOHvUsBCz3Y17B/csTXm +BhkkhmRaGk3U0LOr0Zd6UgVc3ruHv/JRw5ZEtWpjQxKMnRoJ3OOvhsrvtQoF +lElwVvakZ1uAGhpJW/HwspPgaoi35dw5NSwvSzF6WaIEL3QCFHZGqqGdx13B +xs1KsFR4ubQyTQ0L9tQxazcoQuLze1PNlWpY3yu/OztNDmQcFIaOVauhzFIU +9jrJQbZQZtdUjRq2pTAlQ9Tl4O2p7AqJejW8uedyZ1eRLHyjPo2361DDytnu +EKVeGVB7VEQbGFVDc9/1l/bsWA9l6a3HJ8TVUTsmQb1zqxT0mSo6BEipo+FX +jgfy/FLANn/KdlFaHR8EVzYXdEuCngWvObeCOhpZPnAsD5eEanadbeso6jgy +Mv7Mo0MC6pzv8+sS6ijFVy6beE0cOpU98uJd1THshv41NpooLDYWPhI/oY6D +ot89JflEQeY854M0T3VsyzJ6fOq7CBz9cicl67Q6HqwrTW+7KwJ9EQ2hb4PV +kemQY3BdVAR+/dxyoC9OHfUv3ovUF1gLU49WZjXeqKOw/9UW+m4h+GltkB5d +pI4XyZ1p14WEoIPr2t7BEnXMLPvBbfJVEEocpW8ll6ujik11ap23IIRJbdVZ +rlXHQt/dqb/TV4NwlEcIo1sdyRlSr5VEVwHN7QubCwcFn3Za845s5gM5cZnH +77ko2O4dwh7KxwfClc4WUrwUfMxxINnhGy9Myo1nMFdR0EpY/P38FV4obhPQ +1xSnoIPR8slrfTyw1wAjVlQpyMcl/KDhHjccU8nlTzOjIGlq+yGmKScEV9l7 +kPdTcE530v0zmRPiXUSYBZYUfBGYtluCnRNKs4NimTYUXGKT9w4u5AAx8t41 +y04UDDx1aNdFZQ6oJv8Qcwyg4EYB0fsiguxAUZNXIN+noOE7ob8x0v8RWNMc +WpBBwVdtwq2hPcuEtXtkP5FFwbXy9/V+ZS4Tlx/9ybR5TMEeXtcUbvoy0a1W +qhL9koKtz+uP+xosEXHqttTRTxSEOI1vztcWiAnKDa2CcQpanriTneA6S3TU +4R7RSQo2MqmbPXRmiXKvsQP+0xQse975NUFologrMPLRWmDlR2qzfd2bGYKi +w/a0mJOKke2n+3sFZwhno1OKlRJUfOCfd0y4ZopodTNc3bqTiqL/cnGnzz+i +hH9aeitQ0eviUBuX+T8iMzdTPVmXiiW2HIcFqf+I03+XDQ4ZUPG+/Upg948J +QjDw1aXufVTW/7Odtpv9BGEQqTj73ZmKwXnuj5vtxom3WYv901FU5Hebbwhb +GiW09P1njWOoSJdhb7pVNUq87h9dnX6NigJtD1pFr48SBXI924wTqejGdU9v +A2mUeJpafu3ebSoybDpiRvb9JtJjI7QN86gYbXOz/F/xMBHtvyYhtYWKDW8C +OrlafhJ8olE5f75QcXGQX8Lo4U8iMp+tVK+DihY8dPq3cz+J8LGJn6PdVDQb +C/r0T+UnccG9dafuTypO4Pznj+d/EL5Hbg0Nz1HR5UPr/PUd3wm73STcIUfD +5Sd9Yaaj/cRyK59QpQINTW6p96dX9xPpLmNdxiQa3pTYxMCMfuJnZFGgnRoN +i4vvrjja9BO+tfueB2nSsPvPkQjRT33EVfMQubcGNLwnq6CR4NZL0HudRsGI +hjWiv/jVVXqJRm/D4k8mrPhb0ycNBnsIiQQR6/b9NPTmfj4p7NRDZLY8ujZj +R0PO5TK+CudvRPGhL0tbvGn4K2uT7YfzXcTR4WJGqQ8NRYeayvfodxFswemp +u/1pOKXygU2Xv4swuO255WAQDQt5WwNSkzuJ5m/sJ/0u0zBh6XtiQeFXYsR5 +Q1d+Cg3N6He9W1Z1EOtPXSnaUE7DxZWNthJcX4i4FdetMRU0/AOFkV1fWwmO +RIP8Xx9pmHn6b+fE81ZipJD7cXotDakWIw/XHG0litnCU0VaaEi/YtGzUtxC +2CWFBs78oKHi8updWhHNRD3ZcdJyiIatq3wiGQ7NhF4ReD8foeHdjTS1hzrN +BKXnP1f3vzTsWSly2jbRRMyrnrfunKNhGLXMLtupiUgtCdr6fhUdz768+MJw +XyOx2tw2X1qIjlcNJ9epbGgkQvu20wOF6ThUtnNaT7CRcOeeU94oTkfp+6eM +Q1IbiG37AsQy5eh4TOcq2SStnmgb8J2M2MT6Pj2b7/GrOkJc4GS+mQ0dq+uy +1vsRtUSW/vngcVs6dpo/PH+Lq5bQPB+nf+MIHXNWtv8mmDWE+fiLLx1OdLSX +FfjIYVdDRLZNzx87SUfHyoAui/OfiLnMi3rBl+hY8Fw8U6Oziojsjl8lG87S +a70YU/+wihCTyGwti6Rj6HGrlu4zVcTG6I+u3LF0DKSnNemLVhEnvPlj4pPp +WGhie1DpwEeic8eNlpxcOr7s3ht29GcF4X4m645RHh0HtN9Qo4oriJm81y6j +L+jop//fYbHrFYSIUsfspkI6LucyJcy1KwgTPlmZd+V0LL2e+WZj4geitDXn +eMsXOjZycQ9yW5UTxkJv6QEdLD2fn538vaGc6DCsnZHqouMTyQEjMn85MVX8 +O8q+j47W3wrMNM+XEfSMjc+GR+io23Ugu8zuPVHaqRsQ+4eOphO0p29F3xPG +YgdAY5yV3/BMfYvP7wjXK2ea/KfpKErhqz+s946YKo9Mk5yj44hmggxzuZQI +W0g5VrxAxy7LnoLWolJCeMtj2tFlOl4y9twTGFBK3DtVPL2yQseLGjYx+ZtL +if8BCK4F/w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.21330677109713933`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 15}, {0., 0.21330677109713933`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}, + 3.9921011235190754`*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"0deb2fb8-eb79-c04f-a1b6-004fc4211c14"] +}, 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[143]:=",ExpressionUUID->"2b7767f9-449f-c646-ae0c-43037957b685"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.788167829704626`*^-226\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 143, 422, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133920579224*^9, 3.992101123558071*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"c662d462-5a71-2342-9fda-b2274b2e0d97"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0504354047601841`*^-231\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 143, 423, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133920579224*^9, 3.9921011235640755`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"c0ec3c0c-015d-0345-90ab-82f4e61762c8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2555683516239552`*^-237\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 143, 424, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133920579224*^9, 3.992101123570114*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"213387ff-cedc-9d4a-9d2b-74bcf7747f2f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 143, 425, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133920579224*^9, 3.992101123576086*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"8d40b6f2-b1db-d84b-a2b6-c2961775ad5c"], + +Cell[BoxData["21.065801705819165`"], "Output", + CellChangeTimes->{3.9913392124888554`*^9, 3.992101147355158*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"91f0a9b5-40b2-9c49-916b-05f3bf015800"] +}, 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.99184628914184*^9, 3.9918462932986107`*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"8304a1af-5a77-304f-9cc7-82724e2b3df7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.4986740335837474`*^-228\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 144, 426, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125258827`*^9, 3.992101147394518*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"07458b43-72a1-474f-87e6-0eef9f35a5b8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.177170441982783`*^-234\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 144, 427, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125258827`*^9, 3.9921011474005203`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"2ad89f73-179d-2f49-8bed-e430fe0e442b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.053659611267158`*^-240\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 144, 428, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125258827`*^9, 3.9921011474075184`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"d2bfc863-61b6-d742-bed2-087d66683cf6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 144, 429, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125258827`*^9, 3.992101147413521*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"fc399718-1033-ff41-8d26-cd034dd4276a"], + +Cell[BoxData["0.08150716523638897`"], "Output", + CellChangeTimes->{3.9913392196090164`*^9, 3.992101151562914*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"afb27a41-54d3-2b44-859f-e1ff05509ecf"] +}, 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.9918462963096733`*^9, 3.991846299126808*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"3ed977a3-b24a-0644-a438-d2ebbf0c1dea"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.4986740335837474`*^-228\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 145, 430, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392196440163`*^9, 3.9921011516019115`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"0e5faf36-e4fd-9f42-a49b-4ce7075c0703"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.177170441982783`*^-234\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 145, 431, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392196440163`*^9, 3.9921011516089115`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"0ad1a1bc-c1f1-9342-9444-04e661f1fa75"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.053659611267158`*^-240\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 145, 432, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392196440163`*^9, 3.992101151614912*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"f7118513-8b41-9b43-98e5-7d9cd3d3e216"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 145, 433, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392196440163`*^9, 3.9921011516209126`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"cb0367c1-f722-be4c-8a36-8b1792721884"], + +Cell[BoxData["3.470239204777967`"], "Output", + CellChangeTimes->{3.9913392268711624`*^9, 3.9921011550497074`*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"d597ce14-0a75-3f42-825b-9129545b6929"] +}, 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.991846303469427*^9, 3.991846306205721*^9}}, + CellLabel-> + "In[146]:=",ExpressionUUID->"0a258b12-85fc-2a47-9b1a-8264aa20d65c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.4986740335837474`*^-228\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 146, 434, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339226907137*^9, 3.9921011550870285`*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"731d1689-4aa1-714c-9131-a00b1ee90432"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.177170441982783`*^-234\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 146, 435, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339226907137*^9, 3.9921011550940323`*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"9e839266-cb04-f541-8cb3-ebac0e4f7c36"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.053659611267158`*^-240\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 146, 436, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339226907137*^9, 3.9921011550990295`*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"0730db4c-6287-9c4c-b453-b9864a6676e6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 146, 437, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339226907137*^9, 3.99210115510503*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"c8e1290a-03b8-1c4c-9d12-a283a5810f3a"], + +Cell[BoxData["120.48366226016557`"], "Output", + CellChangeTimes->{3.9913392304284153`*^9, 3.992101157185957*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"0cd7523b-1147-164d-8acb-6d38b29af9c9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991846309734665*^9, 3.991846313322897*^9}}, + CellLabel-> + "In[147]:=",ExpressionUUID->"1cb0d12f-90a8-b449-9dd4-8435ee411a7c"], + +Cell[BoxData["0.0039861349995214115`"], "Output", + CellChangeTimes->{3.9913392304624157`*^9, 3.9921011572109985`*^9}, + CellLabel-> + "Out[147]=",ExpressionUUID->"e92f3798-de54-d64b-b87f-bfa1cf85c2da"] +}, 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->"1d8c20c2-003a-2a4c-a42e-33895f032914" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 402, 7, 28, "Input",ExpressionUUID->"4e704073-7441-fe45-b4d4-47be51ab4fd0"], +Cell[981, 31, 202, 3, 32, "Output",ExpressionUUID->"45b43216-30a4-a14d-a36c-3eb6372f6c0a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1220, 39, 348, 5, 28, "Input",ExpressionUUID->"b975ff8d-9493-c843-bb7c-b2c81eb69198"], +Cell[1571, 46, 429, 6, 32, "Output",ExpressionUUID->"860be294-109a-3447-8de9-ec6af6944955"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2037, 57, 224, 4, 28, "Input",ExpressionUUID->"d020bb06-0d86-234c-ab84-d9e8628823e8"], +Cell[2264, 63, 421, 6, 32, "Output",ExpressionUUID->"c758e50b-c06c-5c4b-9625-4b9fd1d5f5ce"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2722, 74, 175, 3, 28, "Input",ExpressionUUID->"7ca9cba1-0117-5343-9039-c58fda56d08f"], +Cell[2900, 79, 401, 6, 32, "Output",ExpressionUUID->"813b2cd1-7f26-4f43-8410-e0d649aca38e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3338, 90, 257, 7, 43, "Input",ExpressionUUID->"960dd727-bd2f-3449-be0c-abe5b2917833"], +Cell[3598, 99, 421, 6, 32, "Output",ExpressionUUID->"176c029f-44e5-054f-a6e4-4fafb135cd25"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4056, 110, 131, 2, 28, "Input",ExpressionUUID->"2a693e04-7ecf-e545-8c00-ace038dd3501"], +Cell[4190, 114, 405, 6, 32, "Output",ExpressionUUID->"697146ce-e84a-ad40-a0fa-454fc2e1c46b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4632, 125, 276, 6, 28, "Input",ExpressionUUID->"4f708b9c-8e17-1748-b34c-93e278c3bdb4"], +Cell[4911, 133, 417, 6, 32, "Output",ExpressionUUID->"fff35079-4826-6749-aef4-ce44b675933a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5365, 144, 257, 7, 28, "Input",ExpressionUUID->"e6fa4d80-8a71-714a-a484-44c67fbd4b19"], +Cell[5625, 153, 417, 6, 32, "Output",ExpressionUUID->"3dde2fe6-a8f5-e348-a4e1-6d04d41cbc22"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6079, 164, 266, 5, 28, "Input",ExpressionUUID->"456c9727-0dcf-c048-b38f-573ce3086221"], +Cell[6348, 171, 436, 6, 32, "Output",ExpressionUUID->"a6471119-efd6-bb42-842b-92b836822afb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6821, 182, 265, 5, 28, "Input",ExpressionUUID->"b7a4101b-9ac6-e64e-911c-26ec0523cd05"], +Cell[7089, 189, 435, 6, 32, "Output",ExpressionUUID->"b9b0d817-49f4-0548-b101-75cac757ae50"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7561, 200, 129, 2, 28, "Input",ExpressionUUID->"57bb031a-21fe-0040-a62d-5fa4ceba0c1b"], +Cell[7693, 204, 393, 6, 32, "Output",ExpressionUUID->"4a6e75b0-6970-9a43-bc34-a04640346ddf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8123, 215, 129, 2, 28, "Input",ExpressionUUID->"43ef55bf-3691-f640-8741-fee90e0d4301"], +Cell[8255, 219, 396, 6, 32, "Output",ExpressionUUID->"cd6c029a-49e6-f244-bc97-8f3c1e0aacb3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8688, 230, 557, 19, 79, "Input",ExpressionUUID->"f3b4c213-46e3-5748-9641-6fae551196cd"], +Cell[9248, 251, 396, 6, 32, "Output",ExpressionUUID->"688360c2-3e19-df44-b9b6-9ac2eb7cfc27"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9681, 262, 557, 19, 79, "Input",ExpressionUUID->"600ed8c5-c6fd-474b-b8ec-38e456f3172e"], +Cell[10241, 283, 390, 6, 32, "Output",ExpressionUUID->"916ef501-6f47-6347-8b44-fa6c95b9b543"] +}, Open ]], +Cell[CellGroupData[{ +Cell[10668, 294, 1492, 48, 80, "Input",ExpressionUUID->"aaeb44c7-62f1-f143-bf33-5b1a49d1d3ab"], +Cell[12163, 344, 396, 6, 32, "Output",ExpressionUUID->"ed3976f2-94ab-cb45-90eb-b1ec79be7485"] +}, Open ]], +Cell[CellGroupData[{ +Cell[12596, 355, 1331, 44, 80, "Input",ExpressionUUID->"53b345d4-8713-8641-8856-894783bbb961"], +Cell[13930, 401, 405, 7, 32, "Output",ExpressionUUID->"2310de4e-7f51-5048-899a-aecb9238430a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14372, 413, 1331, 44, 80, "Input",ExpressionUUID->"f30bf89f-ed57-e841-be4f-b108ee3d508d"], +Cell[15706, 459, 412, 7, 32, "Output",ExpressionUUID->"65e72791-e15d-694e-9f02-8397870eb9e6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16155, 471, 1492, 48, 80, "Input",ExpressionUUID->"6c3711dc-7082-f642-9d2c-5bccf2a27b03"], +Cell[17650, 521, 391, 6, 32, "Output",ExpressionUUID->"53c9b236-23e8-0d47-ac75-3d372a762d6c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18078, 532, 131, 2, 28, "Input",ExpressionUUID->"3dc88b7b-ebfb-554f-a688-79f6122afb69"], +Cell[18212, 536, 373, 6, 32, "Output",ExpressionUUID->"55b95038-5087-1842-9242-9ca44238f304"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18622, 547, 177, 3, 28, "Input",ExpressionUUID->"d292ae01-cfc6-8b47-84f9-4e8e1489da16"], +Cell[18802, 552, 372, 6, 32, "Output",ExpressionUUID->"d727faf3-2b8c-5a4c-9eec-2254efc99da0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19211, 563, 134, 2, 28, "Input",ExpressionUUID->"21a46007-fcf5-0c4e-9a23-1df0eb4a012f"], +Cell[19348, 567, 376, 6, 32, "Output",ExpressionUUID->"2a60bafa-b2c8-6b4f-983c-0be1dfa082d3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19761, 578, 219, 4, 28, "Input",ExpressionUUID->"6be546ad-856f-3741-b9c6-8be425ff18c0"], +Cell[19983, 584, 391, 7, 32, "Output",ExpressionUUID->"a48773f7-aac1-ca41-9c65-acc9de69755b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20411, 596, 134, 2, 28, "Input",ExpressionUUID->"9069c921-1699-7948-bebf-176d8fb2d295"], +Cell[20548, 600, 382, 6, 32, "Output",ExpressionUUID->"3384b286-aed4-ca47-adfd-9bf7acba2612"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20967, 611, 302, 5, 28, "Input",ExpressionUUID->"f38bb0ff-c7de-3544-8d07-d665f8252324"], +Cell[21272, 618, 323, 5, 32, "Output",ExpressionUUID->"b1a97c35-fe3d-fa49-af15-4806a35b8fa4"] +}, Open ]], +Cell[21610, 626, 173, 2, 28, "Input",ExpressionUUID->"baffc875-ac19-aa4b-b317-b67201343b2c"], +Cell[CellGroupData[{ +Cell[21808, 632, 322, 6, 28, "Input",ExpressionUUID->"d2a9f66a-30e9-8340-af69-318ebd0417a8"], +Cell[22133, 640, 374, 6, 32, "Output",ExpressionUUID->"e7dc1160-35c0-4348-b067-d80572dd13bb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22544, 651, 219, 4, 28, "Input",ExpressionUUID->"8500d0e7-89a9-6a4a-bc1c-2125d91928c9"], +Cell[22766, 657, 378, 6, 32, "Output",ExpressionUUID->"16ed93ea-f76a-f440-9a47-fc261084821e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23181, 668, 350, 10, 43, "Input",ExpressionUUID->"cd502e68-f916-3d41-9777-007b3d275509"], +Cell[23534, 680, 394, 6, 32, "Output",ExpressionUUID->"a3737848-1627-e943-b71c-a82043ef84f7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23965, 691, 350, 10, 43, "Input",ExpressionUUID->"dc9e7d45-a86e-8549-a9ed-54c3075ee4f5"], +Cell[24318, 703, 414, 7, 32, "Output",ExpressionUUID->"2b8c39e7-6eb4-5440-8b8c-11830a04b121"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24769, 715, 992, 26, 113, "Input",ExpressionUUID->"fcf31744-7c06-c346-a02f-b02c3acdfe9c"], +Cell[25764, 743, 389, 6, 32, "Output",ExpressionUUID->"e963342b-7b9e-5145-a838-733ff1523184"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26190, 754, 199, 3, 28, "Input",ExpressionUUID->"bd371f8b-faa5-5848-ae21-63e721a13b5c"], +Cell[26392, 759, 378, 6, 32, "Output",ExpressionUUID->"491c38aa-bdab-d446-935f-46c9eea56215"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26807, 770, 273, 4, 28, "Input",ExpressionUUID->"a156c351-7671-e64c-b7a4-d297071c83f6"], +Cell[27083, 776, 335, 5, 32, "Output",ExpressionUUID->"8c34d036-f1a4-ea43-b16b-7fd52e5c29f9"] +}, Open ]], +Cell[27433, 784, 175, 2, 28, "Input",ExpressionUUID->"020ee4c3-20e1-184f-8a55-8da42eb685c9"], +Cell[CellGroupData[{ +Cell[27633, 790, 344, 6, 47, "Input",ExpressionUUID->"bc4903cd-c82a-264f-9571-65c53696313a"], +Cell[27980, 798, 326, 5, 32, "Output",ExpressionUUID->"4859c935-0919-eb43-b61a-438860898525"] +}, Open ]], +Cell[28321, 806, 173, 2, 28, "Input",ExpressionUUID->"d0cc9243-6f1a-3c4d-8fa8-ae971bdcba8e"], +Cell[CellGroupData[{ +Cell[28519, 812, 343, 6, 47, "Input",ExpressionUUID->"2e2a32d1-8f00-4440-9024-23561cb3fe8c"], +Cell[28865, 820, 331, 5, 32, "Output",ExpressionUUID->"e5b08433-4643-134e-b8e6-c46c50f16948"] +}, Open ]], +Cell[29211, 828, 175, 2, 28, "Input",ExpressionUUID->"48948dee-4483-e44f-b4d8-3d3f46844b64"], +Cell[CellGroupData[{ +Cell[29411, 834, 349, 6, 47, "Input",ExpressionUUID->"130058f9-3d8b-7142-97ba-a17d0fa00eb8"], +Cell[29763, 842, 328, 5, 32, "Output",ExpressionUUID->"f3aa1239-4142-3e49-9474-725405b6b0bf"] +}, Open ]], +Cell[30106, 850, 175, 2, 28, "Input",ExpressionUUID->"cabca342-96dc-454c-b758-b3f5f02c034c"], +Cell[CellGroupData[{ +Cell[30306, 856, 275, 4, 28, "Input",ExpressionUUID->"05b3f544-3db4-bf4e-abbb-4481269e5183"], +Cell[30584, 862, 328, 5, 32, "Output",ExpressionUUID->"66548d8b-f2ba-5447-85a1-cc23666e0b6b"] +}, Open ]], +Cell[30927, 870, 173, 2, 28, "Input",ExpressionUUID->"601ca6a9-cdd2-9145-91d0-9859b2c8afcd"], +Cell[CellGroupData[{ +Cell[31125, 876, 277, 4, 28, "Input",ExpressionUUID->"272046df-8390-c14d-94ca-7dc3a031d1a2"], +Cell[31405, 882, 331, 5, 32, "Output",ExpressionUUID->"014ea838-df2a-6045-a3ad-f6a8a57a0021"] +}, Open ]], +Cell[31751, 890, 171, 2, 28, "Input",ExpressionUUID->"06cc8922-145e-454b-810e-450ce13ef149"], +Cell[CellGroupData[{ +Cell[31947, 896, 306, 5, 28, "Input",ExpressionUUID->"49845d1d-18ac-b545-93c6-d60cf1bdcf6b"], +Cell[32256, 903, 328, 5, 32, "Output",ExpressionUUID->"7242f334-c11a-be4e-bd98-862b93a14951"] +}, Open ]], +Cell[32599, 911, 175, 2, 28, "Input",ExpressionUUID->"017d83be-5804-7340-9aff-1680f8faef71"], +Cell[CellGroupData[{ +Cell[32799, 917, 251, 4, 28, "Input",ExpressionUUID->"6b00b62e-7b8c-4549-b17f-e7c4f833c97c"], +Cell[33053, 923, 324, 5, 32, "Output",ExpressionUUID->"11be106e-1fda-4049-bc50-3c6a01c8a00f"] +}, Open ]], +Cell[33392, 931, 171, 2, 28, "Input",ExpressionUUID->"b8d4ac41-704e-6240-b2bf-8f652914eb87"], +Cell[CellGroupData[{ +Cell[33588, 937, 19809, 485, 2217, "Input",ExpressionUUID->"4d921be0-6220-a84f-83ba-2165f404e8f7"], +Cell[53400, 1424, 391, 6, 32, "Output",ExpressionUUID->"78092468-c42f-034c-9b5e-ca07dd7a1ea2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[53828, 1435, 19748, 489, 2304, "Input",ExpressionUUID->"1a7a1476-5e17-c94c-af5b-04ba6c2e03b5"], +Cell[73579, 1926, 394, 6, 32, "Output",ExpressionUUID->"34fff01b-b122-5848-8ebb-d1da6ad2c39f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[74010, 1937, 19748, 483, 2276, "Input",ExpressionUUID->"0d7e1e77-445a-034d-b76e-a1ac677e2a91"], +Cell[93761, 2422, 409, 7, 32, "Output",ExpressionUUID->"0f844d14-aa04-d148-9d0f-942aa1d0be70"] +}, Open ]], +Cell[CellGroupData[{ +Cell[94207, 2434, 22534, 553, 2583, "Input",ExpressionUUID->"76cb1734-b84f-9444-acdb-3d227a29c871"], +Cell[116744, 2989, 407, 7, 32, "Output",ExpressionUUID->"cb9b145a-47fd-1142-b0b2-1293dbb62ef7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[117188, 3001, 22535, 553, 2583, "Input",ExpressionUUID->"99ccbfaa-5c29-854a-a530-52fd7b341fce"], +Cell[139726, 3556, 406, 7, 32, "Output",ExpressionUUID->"a76c8bbe-4990-9247-a90e-b65c0a95c045"] +}, Open ]], +Cell[CellGroupData[{ +Cell[140169, 3568, 25491, 626, 2890, "Input",ExpressionUUID->"086c7e51-1263-494b-87cb-6f98f257b41e"], +Cell[165663, 4196, 402, 7, 32, "Output",ExpressionUUID->"a7f27564-9a2c-9c41-8c7b-15f25bd0d138"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166102, 4208, 130, 2, 28, "Input",ExpressionUUID->"2f99bf7a-52e7-2e46-bb76-ee974db553d0"], +Cell[166235, 4212, 370, 6, 32, "Output",ExpressionUUID->"97e1308e-5bfd-3842-9817-3531e3e9d98f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166642, 4223, 130, 2, 28, "Input",ExpressionUUID->"eebb948a-63cd-a442-b833-842277921a53"], +Cell[166775, 4227, 372, 6, 32, "Output",ExpressionUUID->"ec8d0c68-228c-1744-bcfb-eb6e11434021"] +}, Open ]], +Cell[CellGroupData[{ +Cell[167184, 4238, 1144, 39, 110, "Input",ExpressionUUID->"6e867428-93ae-e240-89ff-31631071a68c"], +Cell[168331, 4279, 394, 6, 32, "Output",ExpressionUUID->"24540007-0089-5049-8b4a-5f5a0b001f1d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[168762, 4290, 1041, 35, 110, "Input",ExpressionUUID->"bd8b9002-5460-1d49-aacf-583105fa4755"], +Cell[169806, 4327, 409, 7, 32, "Output",ExpressionUUID->"9c5b57bd-a16f-8e44-a2f1-f4573cf8f9b9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170252, 4339, 1144, 39, 110, "Input",ExpressionUUID->"68d472d8-2648-2748-83b2-d844d8ecb8bb"], +Cell[171399, 4380, 395, 6, 32, "Output",ExpressionUUID->"253045e7-77a9-824b-84c8-ce08de3b45e5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[171831, 4391, 108, 1, 28, "Input",ExpressionUUID->"5b5a8c8e-b242-714d-a8b7-82448475c921"], +Cell[171942, 4394, 388, 6, 32, "Output",ExpressionUUID->"005d2618-561b-434a-91df-01351cd5f8c8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172367, 4405, 108, 1, 28, "Input",ExpressionUUID->"b83dfc16-72d3-7e44-9293-ee02d41e2804"], +Cell[172478, 4408, 417, 7, 32, "Output",ExpressionUUID->"abffdf28-6519-d846-a57b-a8f423b14698"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172932, 4420, 108, 1, 28, "Input",ExpressionUUID->"f95654b6-7a61-0c44-936d-46eaeffdcfb7"], +Cell[173043, 4423, 404, 7, 32, "Output",ExpressionUUID->"341eab09-e0e0-fb46-a582-1df174a1f9a7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173484, 4435, 108, 1, 28, "Input",ExpressionUUID->"dc8a1e5a-c41c-e048-a141-5f4b09f3f733"], +Cell[173595, 4438, 393, 6, 32, "Output",ExpressionUUID->"b7e960fc-634a-ba45-95da-a190a332e893"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174025, 4449, 107, 1, 28, "Input",ExpressionUUID->"4b99d4f2-04ad-5546-8a36-6e453a4d42bb"], +Cell[174135, 4452, 393, 6, 32, "Output",ExpressionUUID->"7d811afa-a76f-cf49-a3a1-316e37f9e8df"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174565, 4463, 107, 1, 28, "Input",ExpressionUUID->"2c611c37-9024-2948-ad05-81f23ed86fa4"], +Cell[174675, 4466, 391, 6, 32, "Output",ExpressionUUID->"c36de680-e33a-fe4b-8e5e-24beb18cbbc4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175103, 4477, 497, 16, 56, "Input",ExpressionUUID->"8d8264fd-a79c-3644-91fa-755c8f060dc6"], +Cell[175603, 4495, 407, 7, 32, "Output",ExpressionUUID->"1d240484-12ab-0543-8fc5-1be4bde2778d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176047, 4507, 497, 16, 56, "Input",ExpressionUUID->"32a72538-4b4c-fa49-877c-c1bb0f793329"], +Cell[176547, 4525, 406, 7, 32, "Output",ExpressionUUID->"d88d52d3-bc30-5541-baf4-afea8b11d61d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176990, 4537, 1788, 60, 188, "Input",ExpressionUUID->"9bcd69f6-e764-484d-98a4-b95600ed9b7f"], +Cell[178781, 4599, 388, 6, 32, "Output",ExpressionUUID->"c2ce73b6-2ae0-2a45-bd7a-e9d580c7297d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[179206, 4610, 1101, 36, 133, "Input",ExpressionUUID->"035c7338-5a26-334d-814f-aaf357f424c7"], +Cell[180310, 4648, 409, 7, 32, "Output",ExpressionUUID->"755148ba-bc13-0241-9b76-f9b1dfbba011"] +}, Open ]], +Cell[CellGroupData[{ +Cell[180756, 4660, 1818, 61, 165, "Input",ExpressionUUID->"88364e9a-a5c0-614b-adca-40cfe4299d0d"], +Cell[182577, 4723, 390, 6, 32, "Output",ExpressionUUID->"6a9e13a2-2f15-e44d-a5c1-f2027d4f99dd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183004, 4734, 2499, 77, 133, "Input",ExpressionUUID->"2143c15f-8edb-5645-bc38-8baf15164190"], +Cell[185506, 4813, 390, 6, 32, "Output",ExpressionUUID->"73aa72f3-3b5c-ce46-b40f-f1e5fda0a110"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185933, 4824, 2499, 77, 133, "Input",ExpressionUUID->"87beafd8-d9de-784e-a815-cd383a8626f9"], +Cell[188435, 4903, 389, 6, 32, "Output",ExpressionUUID->"62e429d5-0fd6-6442-8960-28c7919f406a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188861, 4914, 210, 3, 28, "Input",ExpressionUUID->"e6c462cd-8982-3c4a-8614-a4032c2a753f"], +Cell[189074, 4919, 165, 2, 32, "Output",ExpressionUUID->"4b3862c6-6770-8641-8b61-432964f394ae"] +}, Open ]], +Cell[189254, 4924, 173, 2, 28, "Input",ExpressionUUID->"abfd70d0-05dc-ae40-8117-a301872389cf"], +Cell[CellGroupData[{ +Cell[189452, 4930, 211, 3, 28, "Input",ExpressionUUID->"ab6f3c19-7b16-eb44-924b-0479fa42666f"], +Cell[189666, 4935, 168, 2, 32, "Output",ExpressionUUID->"7245dba8-2e21-f949-be74-c99b12adba77"] +}, Open ]], +Cell[189849, 4940, 171, 2, 28, "Input",ExpressionUUID->"6e63ff1c-fb16-304a-8e59-6a9d82a9fa7a"], +Cell[CellGroupData[{ +Cell[190045, 4946, 1297, 42, 113, "Input",ExpressionUUID->"764f2b72-583f-404a-86dd-302e46704fa0"], +Cell[191345, 4990, 197, 2, 32, "Output",ExpressionUUID->"8aaffa01-b744-8f4e-847f-a659c171db3d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191579, 4997, 931, 29, 56, "Input",ExpressionUUID->"296c29c6-b9f9-1d4a-99c7-5d23057d1dfa"], +Cell[192513, 5028, 193, 2, 32, "Output",ExpressionUUID->"6911d534-8759-cf4c-9ee0-51d1e5aba384"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192743, 5035, 983, 32, 56, "Input",ExpressionUUID->"da02f8be-1800-4945-83f1-7acaa76423f4"], +Cell[193729, 5069, 197, 2, 32, "Output",ExpressionUUID->"95326814-e08a-af4e-8405-cb906353ec93"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193963, 5076, 554, 18, 52, "Input",ExpressionUUID->"c6346807-3d42-e948-8c5a-115ea1f6a2c2"], +Cell[194520, 5096, 189, 2, 32, "Output",ExpressionUUID->"91650ea3-b84c-5341-b20a-1f956c1d80a1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194746, 5103, 619, 20, 52, "Input",ExpressionUUID->"474c5dd1-c344-a04c-8714-ada3650bf998"], +Cell[195368, 5125, 188, 2, 32, "Output",ExpressionUUID->"0d4643d1-a7df-024f-9d73-7241cf95b369"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195593, 5132, 166, 4, 56, "Input",ExpressionUUID->"2305be88-628a-524a-b468-85b3cc42efc7"], +Cell[195762, 5138, 191, 2, 32, "Output",ExpressionUUID->"99c1ea81-c779-fb42-a87b-fdb2f7334f39"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195990, 5145, 166, 4, 55, "Input",ExpressionUUID->"426f7e1e-7abd-a446-8679-e422e283f98f"], +Cell[196159, 5151, 190, 2, 32, "Output",ExpressionUUID->"a755335e-ccde-1f4c-80f8-6ab6355ee34d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196386, 5158, 177, 4, 43, "Input",ExpressionUUID->"933badd0-5ce1-e645-bb03-d046b1312945"], +Cell[196566, 5164, 190, 2, 32, "Output",ExpressionUUID->"f4670e9f-2904-584b-bd94-4b71f426b858"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196793, 5171, 177, 4, 43, "Input",ExpressionUUID->"2d8a17a7-6a4c-d94e-b0e2-4da7c60ebbeb"], +Cell[196973, 5177, 190, 2, 32, "Output",ExpressionUUID->"a9c196b5-bbcb-ae4b-a3c8-ee17aa5a0c33"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197200, 5184, 6051, 184, 498, "Input",ExpressionUUID->"042e7197-09fd-dc46-b3fd-dc1740a81970"], +Cell[203254, 5370, 192, 2, 32, "Output",ExpressionUUID->"9e27dff5-7f24-d845-baad-d1a13fe822c0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[203483, 5377, 364, 8, 42, "Input",ExpressionUUID->"bccf6e25-da00-4449-8f0f-f2b61c58f67f"], +Cell[203850, 5387, 190, 2, 32, "Output",ExpressionUUID->"5bd2ae7f-bf11-0344-b389-7387fb30e3fc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204077, 5394, 6118, 186, 500, "Input",ExpressionUUID->"9f9260b3-ca67-3f4a-a0c4-5bf2cb98e110"], +Cell[210198, 5582, 196, 2, 32, "Output",ExpressionUUID->"7e786ca6-864e-8147-9826-78357c2ba301"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210431, 5589, 364, 8, 42, "Input",ExpressionUUID->"52f82243-9920-3742-90e6-48395671d171"], +Cell[210798, 5599, 191, 2, 32, "Output",ExpressionUUID->"ba98d4db-f522-8c47-98c4-9415dfdbddc3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[211026, 5606, 2659, 87, 187, "Input",ExpressionUUID->"a147c908-551b-8647-9cf0-48614f0cb274"], +Cell[213688, 5695, 191, 2, 32, "Output",ExpressionUUID->"1ee5ff45-8eba-0743-a870-fbf9a955b6d1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[213916, 5702, 2599, 84, 165, "Input",ExpressionUUID->"4c078cff-433d-8245-900f-0a3b49ecb9e6"], +Cell[216518, 5788, 193, 2, 32, "Output",ExpressionUUID->"222a62a0-873f-7147-a793-486323406eb5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[216748, 5795, 3708, 117, 348, "Input",ExpressionUUID->"f07c74eb-272f-1743-a996-1dc503a54262"], +Cell[220459, 5914, 192, 2, 32, "Output",ExpressionUUID->"21b07ddb-893f-7941-a6a8-fa18b2ae8368"] +}, Open ]], +Cell[220666, 5919, 160, 3, 42, "Input",ExpressionUUID->"c5ebf9ff-e333-7b4d-b8d5-46482917dc06"], +Cell[CellGroupData[{ +Cell[220851, 5926, 2071, 58, 228, "Input",ExpressionUUID->"e7569d02-bed5-3743-8058-837bf8cfd65c"], +Cell[222925, 5986, 567, 11, 84, "Message",ExpressionUUID->"a0ac8ef7-bf7f-0846-b83d-2fa237c9dcde"], +Cell[223495, 5999, 573, 12, 84, "Message",ExpressionUUID->"ec7fab97-6781-5a4c-86a3-9cb38fbcb4ae"], +Cell[224071, 6013, 579, 12, 66, "Message",ExpressionUUID->"5646e58a-f51b-254c-b734-63186a00bfb6"], +Cell[224653, 6027, 478, 10, 26, "Message",ExpressionUUID->"bad7d70a-cd0c-2747-a4f3-b606fd96b0b4"], +Cell[225134, 6039, 190, 2, 32, "Output",ExpressionUUID->"e98e2e5d-85ef-1a4d-89b4-674f10fd0c53"] +}, Open ]], +Cell[CellGroupData[{ +Cell[225361, 6046, 2073, 58, 228, "Input",ExpressionUUID->"71739d4a-f3fc-9d4f-b803-99b4407cdc6f"], +Cell[227437, 6106, 565, 11, 84, "Message",ExpressionUUID->"fd80b465-6584-7b4c-b84f-6e613b2c2016"], +Cell[228005, 6119, 575, 12, 84, "Message",ExpressionUUID->"acdb17dd-9508-4d46-b500-77b677716c76"], +Cell[228583, 6133, 579, 12, 66, "Message",ExpressionUUID->"344b088a-b8a1-164c-94fb-753cf9cebe03"], +Cell[229165, 6147, 480, 10, 26, "Message",ExpressionUUID->"1c012323-3975-1944-a480-16ddcc4e63a6"], +Cell[229648, 6159, 187, 2, 32, "Output",ExpressionUUID->"ba0abfa9-2c30-bb4e-a296-ce5afa3a4b9a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[229872, 6166, 1955, 52, 115, "Input",ExpressionUUID->"762274ee-d7cb-9644-9b5c-516685cd7481"], +Cell[231830, 6220, 20465, 383, 237, "Output",ExpressionUUID->"ea986581-a74b-cc43-8fe3-b942302d708d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[252332, 6608, 2137, 59, 211, "Input",ExpressionUUID->"c4af1473-2d54-b047-b3e2-18c19d38cfdd"], +Cell[254472, 6669, 514, 11, 60, "Message",ExpressionUUID->"c0c0d280-b436-8b4a-9e76-84a9ca7c67e5"], +Cell[254989, 6682, 519, 11, 60, "Message",ExpressionUUID->"9112370c-6d2c-be4d-a7b1-9f95facb17c1"], +Cell[255511, 6695, 523, 11, 60, "Message",ExpressionUUID->"c88edc5a-6e3d-8f4a-996c-fa068259a3b6"], +Cell[256037, 6708, 478, 10, 26, "Message",ExpressionUUID->"8f0be32d-19f3-2849-8c9e-4a34e95e1c85"], +Cell[256518, 6720, 21882, 405, 233, "Output",ExpressionUUID->"41b358f4-4f05-8e41-8f39-85e35832fea0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[278437, 7130, 1862, 50, 120, "Input",ExpressionUUID->"7383cf4d-77c8-1d41-ab20-d4ea9a390940"], +Cell[280302, 7182, 8993, 209, 240, "Output",ExpressionUUID->"d3679f5f-2e34-d843-950f-da2c3b9ef8a6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[289332, 7396, 276, 5, 42, "Input",ExpressionUUID->"e431227d-0e31-a446-ad0d-76902a9a3bd8"], +Cell[289611, 7403, 27843, 529, 233, "Output",ExpressionUUID->"18e41340-96d3-0a4c-8ab5-d223a57e2988"] +}, Open ]], +Cell[CellGroupData[{ +Cell[317491, 7937, 234, 6, 48, "Input",ExpressionUUID->"4e5b3330-e10a-4342-8f3d-b24f9b16b9de"], +Cell[317728, 7945, 187, 2, 32, "Output",ExpressionUUID->"90a5f243-fae2-e240-a475-7ad874444592"] +}, Open ]], +Cell[CellGroupData[{ +Cell[317952, 7952, 1837, 53, 183, "Input",ExpressionUUID->"bb5f3a72-8528-7a48-a67a-a23038fc5b71"], +Cell[319792, 8007, 512, 11, 60, "Message",ExpressionUUID->"bae69c80-fb06-324e-9624-e0f513084e2b"], +Cell[320307, 8020, 514, 11, 60, "Message",ExpressionUUID->"8817ff80-ddde-ec44-bb16-f9c76a098ef6"], +Cell[320824, 8033, 516, 11, 60, "Message",ExpressionUUID->"dc7306a2-3ad5-ad43-8572-1b37b2c06cee"], +Cell[321343, 8046, 477, 10, 26, "Message",ExpressionUUID->"b984473a-1584-6742-87fc-4e67003eaf2a"], +Cell[321823, 8058, 22197, 409, 233, "Output",ExpressionUUID->"0d5bd983-bae7-1443-afca-d35f6b4ead2f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[344057, 8472, 1616, 48, 113, "Input",ExpressionUUID->"0da19810-21b5-1440-b6da-efec04765d71"], +Cell[345676, 8522, 546, 11, 60, "Message",ExpressionUUID->"ac00dfbc-65a3-9341-81c6-f70c8b052fb5"], +Cell[346225, 8535, 548, 11, 60, "Message",ExpressionUUID->"5f7496bf-2bc5-c946-9888-a0061bd0b2d9"], +Cell[346776, 8548, 552, 11, 60, "Message",ExpressionUUID->"1f21e233-10ad-1e40-86bc-fafbc3cfdde3"], +Cell[347331, 8561, 480, 10, 26, "Message",ExpressionUUID->"2af1ef0d-e214-e940-be6d-ca8ae522ef99"], +Cell[347814, 8573, 192, 3, 32, "Output",ExpressionUUID->"e8e9bbd6-6894-204a-a801-dc35ce93c1ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[348043, 8581, 2272, 64, 223, "Input",ExpressionUUID->"d3b2932a-2d3f-fa41-a705-f816ef30ba1b"], +Cell[350318, 8647, 567, 11, 84, "Message",ExpressionUUID->"b6da5d53-31dd-2442-b9cf-3bcc98ab39b9"], +Cell[350888, 8660, 573, 12, 84, "Message",ExpressionUUID->"c155a76b-bab7-1143-b331-47066eecf766"], +Cell[351464, 8674, 577, 12, 66, "Message",ExpressionUUID->"f11e72d4-c905-f04e-8c49-247205add74e"], +Cell[352044, 8688, 480, 10, 26, "Message",ExpressionUUID->"14da3214-dfa7-1a4c-a66a-401fcbcf9f08"], +Cell[352527, 8700, 194, 3, 32, "Output",ExpressionUUID->"0767bfa0-499a-bd4a-96a1-e3cdd47fff34"] +}, Open ]], +Cell[CellGroupData[{ +Cell[352758, 8708, 2244, 64, 162, "Input",ExpressionUUID->"3a5379d3-3adc-3844-bbe2-4530809b7b8c"], +Cell[355005, 8774, 567, 11, 84, "Message",ExpressionUUID->"ff75c101-5b3b-a842-b9cd-74a367536b78"], +Cell[355575, 8787, 575, 12, 84, "Message",ExpressionUUID->"df5f18a8-adb8-dd44-a6af-f8743dab4365"], +Cell[356153, 8801, 579, 12, 66, "Message",ExpressionUUID->"a4c8c2fc-9463-d546-ba32-2d14462acc76"], +Cell[356735, 8815, 478, 10, 26, "Message",ExpressionUUID->"b7fe6d01-c5e2-bd44-9956-274503e6ba95"], +Cell[357216, 8827, 195, 3, 32, "Output",ExpressionUUID->"76a55485-202b-bf4f-bea3-d9d5d296bfeb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[357448, 8835, 2242, 64, 162, "Input",ExpressionUUID->"208e04c0-4af7-a344-9e86-ceb616bf22d8"], +Cell[359693, 8901, 569, 11, 84, "Message",ExpressionUUID->"b8152a15-e77e-2c4c-aded-5e20bea87cd7"], +Cell[360265, 8914, 575, 12, 84, "Message",ExpressionUUID->"ac4ef626-598c-bb46-9638-a31ce6c2446e"], +Cell[360843, 8928, 581, 12, 66, "Message",ExpressionUUID->"29f257b4-c2d7-1046-8c3a-825affac8524"], +Cell[361427, 8942, 482, 10, 26, "Message",ExpressionUUID->"0a33e60f-21ee-2146-bf8f-735887d4c722"], +Cell[361912, 8954, 195, 3, 32, "Output",ExpressionUUID->"81ac552f-ee63-1d43-bdc8-c2e01c7cbcf0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362144, 8962, 236, 6, 47, "Input",ExpressionUUID->"53a3c067-888b-bc49-a5e6-f228162e6070"], +Cell[362383, 8970, 196, 3, 32, "Output",ExpressionUUID->"a5986757-7c96-9a47-b399-6791f039df58"] +}, Open ]], +Cell[362594, 8976, 273, 6, 42, "Input",ExpressionUUID->"0c2ac2c8-096e-e64a-aaeb-bb84e7548fdc"], +Cell[CellGroupData[{ +Cell[362892, 8986, 558, 19, 52, "Input",ExpressionUUID->"5c8cab9c-f39b-364c-ae6b-c415e4dbcf46"], +Cell[363453, 9007, 194, 3, 32, "Output",ExpressionUUID->"4c1a8bc1-9f2e-774c-aa2f-f521cb954bec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[363684, 9015, 170, 5, 56, "Input",ExpressionUUID->"106a4571-94f1-5343-b4a9-78f21d5e84b3"], +Cell[363857, 9022, 195, 3, 32, "Output",ExpressionUUID->"20a44e97-7be6-1447-b17d-55286b77dffc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364089, 9030, 181, 5, 43, "Input",ExpressionUUID->"b7c1808d-73a9-d645-bf95-223de85093e2"], +Cell[364273, 9037, 197, 3, 32, "Output",ExpressionUUID->"6bb82b2c-e284-da41-a1db-c917562cb1e5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364507, 9045, 6055, 185, 498, "Input",ExpressionUUID->"e9c41729-285f-7d42-bb43-ee09dea88444"], +Cell[370565, 9232, 196, 3, 32, "Output",ExpressionUUID->"55cee0f0-b426-1a4b-a71b-f310c14638a4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[370798, 9240, 368, 9, 42, "Input",ExpressionUUID->"efa9c5ac-4baa-3e4e-9760-1e46cf5c01c0"], +Cell[371169, 9251, 194, 3, 32, "Output",ExpressionUUID->"9e814285-6bdd-2e4e-8fc5-f98c2245428a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[371400, 9259, 6122, 187, 500, "Input",ExpressionUUID->"7dcb74da-1357-7e4e-a03d-852f8e740128"], +Cell[377525, 9448, 198, 3, 32, "Output",ExpressionUUID->"a28eab01-59f3-9848-b4ae-f84f6c2647b8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[377760, 9456, 368, 9, 42, "Input",ExpressionUUID->"4c537c9f-ce6a-8f4c-9e68-01e12e3017b7"], +Cell[378131, 9467, 193, 3, 32, "Output",ExpressionUUID->"96e7323a-9860-6448-a46e-90e5694fc0f0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[378361, 9475, 2663, 88, 187, "Input",ExpressionUUID->"1e3d1dc2-d9ac-9045-a648-58006d1d6cf6"], +Cell[381027, 9565, 195, 3, 32, "Output",ExpressionUUID->"bb94e5bd-bfea-0143-9bbe-af74b50277a0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[381259, 9573, 2603, 85, 165, "Input",ExpressionUUID->"2371743b-ee83-9146-bf98-330cb0fb7e0a"], +Cell[383865, 9660, 197, 3, 32, "Output",ExpressionUUID->"77e97800-97c2-3b45-b6d9-6fdfbfcfa833"] +}, Open ]], +Cell[CellGroupData[{ +Cell[384099, 9668, 3712, 118, 348, "Input",ExpressionUUID->"8b6de8d6-9524-3347-a11b-48bba48b07d0"], +Cell[387814, 9788, 199, 3, 32, "Output",ExpressionUUID->"5a90f194-5180-7d44-83a4-2e1102eeb8fc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[388050, 9796, 2075, 59, 228, "Input",ExpressionUUID->"a41abb59-b808-8547-b1d9-a574acad5c53"], +Cell[390128, 9857, 556, 11, 60, "Message",ExpressionUUID->"8278e40d-0761-1a4d-9649-63b630f05f17"], +Cell[390687, 9870, 562, 11, 60, "Message",ExpressionUUID->"917b8bc0-97b3-7843-be21-9880d876e622"], +Cell[391252, 9883, 564, 11, 60, "Message",ExpressionUUID->"1fe98454-f6db-c040-81f7-7c29c6eea48d"], +Cell[391819, 9896, 480, 10, 26, "Message",ExpressionUUID->"4bdd67d8-9c31-2f44-8f8a-7df19fc7b88d"], +Cell[392302, 9908, 195, 3, 32, "Output",ExpressionUUID->"6e436fe4-adee-5e4f-bf91-6d86ea4e7fd1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[392534, 9916, 2077, 59, 228, "Input",ExpressionUUID->"779c8db8-6bae-9046-915d-05cf0a3cee42"], +Cell[394614, 9977, 556, 11, 60, "Message",ExpressionUUID->"3b8cb8a7-7dde-4b4b-98d2-7614657d98ae"], +Cell[395173, 9990, 562, 11, 60, "Message",ExpressionUUID->"dddc9a38-05f6-d241-8ef2-b689c52020fc"], +Cell[395738, 10003, 564, 11, 60, "Message",ExpressionUUID->"4ac1e345-d47c-0e4c-aaf3-acdd54b53ac9"], +Cell[396305, 10016, 478, 10, 26, "Message",ExpressionUUID->"7d6cdfc5-91c3-6146-9973-84856ce1e528"], +Cell[396786, 10028, 193, 3, 32, "Output",ExpressionUUID->"53674424-12ba-5240-a3df-e5eade232dd1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[397016, 10036, 2051, 55, 160, "Input",ExpressionUUID->"2fa4bc1d-3549-0e49-9fa0-9e5dc16aa40f"], +Cell[399070, 10093, 20401, 384, 233, "Output",ExpressionUUID->"af2a5c83-e1fd-f34b-825d-282145d5d3c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[419508, 10482, 2143, 60, 211, "Input",ExpressionUUID->"6e23e6bb-e46c-1c43-a88f-db092cf7ac8d"], +Cell[421654, 10544, 518, 11, 60, "Message",ExpressionUUID->"2c3d22c9-8b32-2746-a746-8b96d33920f2"], +Cell[422175, 10557, 519, 11, 60, "Message",ExpressionUUID->"72699420-47d2-4c42-950c-cb8c790fd3e6"], +Cell[422697, 10570, 519, 11, 60, "Message",ExpressionUUID->"e15bf587-7a7c-7940-9249-c9e5aeb3d5ef"], +Cell[423219, 10583, 482, 10, 26, "Message",ExpressionUUID->"808e76b2-1085-824b-bba3-51c59e6e406f"], +Cell[423704, 10595, 51658, 892, 233, "Output",ExpressionUUID->"c5bac7b1-5ca8-e24f-a9c3-0dbe9b6617e8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[475399, 11492, 280, 6, 42, "Input",ExpressionUUID->"028f7072-05bf-cf40-ac60-9f298ef86e88"], +Cell[475682, 11500, 57671, 1017, 233, "Output",ExpressionUUID->"454cae5c-566e-8e47-ad18-353204b0c1c2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[533390, 12522, 1616, 48, 113, "Input",ExpressionUUID->"e94e1ddb-0658-3b45-ad00-7392c646ee51"], +Cell[535009, 12572, 565, 11, 60, "Message",ExpressionUUID->"4fa12d9d-5c43-784d-820b-1508ed373cc4"], +Cell[535577, 12585, 566, 11, 84, "Message",ExpressionUUID->"41f95730-57bd-004f-9ca1-c0f4374bab10"], +Cell[536146, 12598, 573, 12, 84, "Message",ExpressionUUID->"6f2d3a64-8642-bb46-a8f1-4a73924a770c"], +Cell[536722, 12612, 480, 10, 26, "Message",ExpressionUUID->"4946135e-8316-384d-a1af-68e41a484fc8"], +Cell[537205, 12624, 197, 3, 32, "Output",ExpressionUUID->"f0ec20b2-919c-ae48-b119-ed6009744f55"] +}, Open ]], +Cell[CellGroupData[{ +Cell[537439, 12632, 2270, 64, 223, "Input",ExpressionUUID->"23c7e6b2-69d5-1a4e-bd5f-947421a54e26"], +Cell[539712, 12698, 558, 11, 60, "Message",ExpressionUUID->"d844bebc-fbf5-4a49-b768-3393c7fd1952"], +Cell[540273, 12711, 562, 11, 60, "Message",ExpressionUUID->"abf09cc9-631d-e24a-a658-b0f745d59c24"], +Cell[540838, 12724, 563, 11, 60, "Message",ExpressionUUID->"9a2ce6bd-ea75-b149-a1d7-3c85110a6187"], +Cell[541404, 12737, 480, 10, 26, "Message",ExpressionUUID->"33ad31e3-745d-fb41-aed3-aa2a6a76438e"], +Cell[541887, 12749, 194, 3, 32, "Output",ExpressionUUID->"0919b2a1-63dc-1441-80c6-f8729c57325d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[542118, 12757, 2242, 64, 162, "Input",ExpressionUUID->"38ca1203-b2e6-3044-aa85-97017d76bb30"], +Cell[544363, 12823, 558, 11, 60, "Message",ExpressionUUID->"fcb82379-def7-6e41-b15b-2ebe9c8f25f3"], +Cell[544924, 12836, 562, 11, 60, "Message",ExpressionUUID->"009e26d8-b867-c946-bf3d-eeea69dcb4f3"], +Cell[545489, 12849, 562, 11, 60, "Message",ExpressionUUID->"cf5771d7-c4b2-bd49-90ef-d609991a5156"], +Cell[546054, 12862, 480, 10, 26, "Message",ExpressionUUID->"972660ec-b5e7-6040-bb6e-992cc0858721"], +Cell[546537, 12874, 195, 3, 32, "Output",ExpressionUUID->"47280940-ca99-8f42-a2f3-3b59fa91f6ea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[546769, 12882, 2246, 64, 162, "Input",ExpressionUUID->"087e4064-7024-cb41-8231-fe78ad70afda"], +Cell[549018, 12948, 558, 11, 60, "Message",ExpressionUUID->"fce3de28-3f51-6942-b998-0a597a592954"], +Cell[549579, 12961, 560, 11, 60, "Message",ExpressionUUID->"fbc08b22-0201-fd45-afb7-042780aea2ec"], +Cell[550142, 12974, 562, 11, 60, "Message",ExpressionUUID->"608140af-eac7-1548-9149-bd01c179781b"], +Cell[550707, 12987, 478, 10, 26, "Message",ExpressionUUID->"c6d02368-ae5d-b643-ae77-9f450d71a128"], +Cell[551188, 12999, 195, 3, 32, "Output",ExpressionUUID->"1fde16d2-bcff-1b4e-b348-19d27b5ab52f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[551420, 13007, 236, 6, 47, "Input",ExpressionUUID->"cd9a77e7-d597-394b-a710-f971fc40d827"], +Cell[551659, 13015, 197, 3, 32, "Output",ExpressionUUID->"dba91fa9-740d-5642-9273-9e26c2617a2c"] +}, Open ]], +Cell[551871, 13021, 273, 6, 42, "Input",ExpressionUUID->"13a90bf7-f7dc-7e48-845e-80048a92ff15"], +Cell[CellGroupData[{ +Cell[552169, 13031, 558, 19, 52, "Input",ExpressionUUID->"ce764b10-5670-7a4e-86ae-3f77893f67b3"], +Cell[552730, 13052, 194, 3, 32, "Output",ExpressionUUID->"16ab744a-03f0-ca4a-8b31-f3e982f88cbd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[552961, 13060, 170, 5, 56, "Input",ExpressionUUID->"717d3ead-30a8-ec47-9afe-f9884217d594"], +Cell[553134, 13067, 197, 3, 32, "Output",ExpressionUUID->"c7590f88-b95c-7e4e-aea7-c01e2c415551"] +}, Open ]], +Cell[CellGroupData[{ +Cell[553368, 13075, 181, 5, 43, "Input",ExpressionUUID->"c43d0cec-6a64-9643-a5bb-27ab984c3bb2"], +Cell[553552, 13082, 195, 3, 32, "Output",ExpressionUUID->"5e8c5ea6-f441-4e4c-ad10-703836fb344f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[553784, 13090, 6055, 185, 498, "Input",ExpressionUUID->"e15da858-b31b-c344-a560-00b30705c2c2"], +Cell[559842, 13277, 196, 3, 32, "Output",ExpressionUUID->"1b7841a5-ae6f-3145-a57b-8ec945033738"] +}, Open ]], +Cell[CellGroupData[{ +Cell[560075, 13285, 368, 9, 42, "Input",ExpressionUUID->"f53a321d-2180-024b-b925-7b08c74c1c33"], +Cell[560446, 13296, 196, 3, 32, "Output",ExpressionUUID->"9faf895b-2e68-7747-b556-46b28af3bf42"] +}, Open ]], +Cell[CellGroupData[{ +Cell[560679, 13304, 6122, 187, 500, "Input",ExpressionUUID->"6fc2e120-104b-274c-a69b-ff643539124b"], +Cell[566804, 13493, 198, 3, 32, "Output",ExpressionUUID->"71c471c9-ebdd-f240-98ff-51b5b8840299"] +}, Open ]], +Cell[CellGroupData[{ +Cell[567039, 13501, 368, 9, 42, "Input",ExpressionUUID->"1ebbe4bd-69b2-ba4a-b880-612b325b749b"], +Cell[567410, 13512, 195, 3, 32, "Output",ExpressionUUID->"b6925efd-7a13-b04f-89e0-df5eebfecbef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[567642, 13520, 2663, 88, 187, "Input",ExpressionUUID->"1efe60b3-9182-2c4c-bd13-9e4d244d7e70"], +Cell[570308, 13610, 194, 3, 32, "Output",ExpressionUUID->"ac029762-77fb-0641-a5d6-ecc7bfd1c597"] +}, Open ]], +Cell[CellGroupData[{ +Cell[570539, 13618, 2603, 85, 165, "Input",ExpressionUUID->"66f987a0-c978-3745-b4d7-87ccf5fea6cf"], +Cell[573145, 13705, 195, 3, 32, "Output",ExpressionUUID->"8627da2f-7efa-8443-8277-bc0e0a8b131a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[573377, 13713, 3712, 118, 348, "Input",ExpressionUUID->"696f9a62-0454-0540-abef-a5c123c32f5f"], +Cell[577092, 13833, 195, 3, 32, "Output",ExpressionUUID->"85c32e82-9ca4-f643-b24f-341c16bbfc63"] +}, Open ]], +Cell[CellGroupData[{ +Cell[577324, 13841, 2075, 59, 228, "Input",ExpressionUUID->"efacefcd-90be-574d-92a2-eec47ae06964"], +Cell[579402, 13902, 559, 11, 60, "Message",ExpressionUUID->"686cdc6a-ce2f-8b41-bac9-72ea582e5bd2"], +Cell[579964, 13915, 563, 11, 60, "Message",ExpressionUUID->"a1e5ae7a-c281-2642-9832-e9d6a7d4d982"], +Cell[580530, 13928, 564, 11, 60, "Message",ExpressionUUID->"f76c36f5-b583-5c49-a8d9-e06aa100523c"], +Cell[581097, 13941, 482, 10, 26, "Message",ExpressionUUID->"5066f900-f536-3e4f-a249-c72a3df9e94f"], +Cell[581582, 13953, 193, 3, 32, "Output",ExpressionUUID->"bde747b4-1200-cd4e-ab5d-293546118a3a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[581812, 13961, 2075, 59, 228, "Input",ExpressionUUID->"113e0d2a-28bc-cb46-97f5-cf1d438fc6f4"], +Cell[583890, 14022, 561, 11, 60, "Message",ExpressionUUID->"5d71f84d-9e2c-f748-a058-3d313cf5dd3a"], +Cell[584454, 14035, 563, 11, 60, "Message",ExpressionUUID->"a2500435-6615-a641-a81d-709b60ffe3eb"], +Cell[585020, 14048, 566, 11, 60, "Message",ExpressionUUID->"558e3aff-2533-504c-b4e6-06ddaeced6eb"], +Cell[585589, 14061, 480, 10, 26, "Message",ExpressionUUID->"6b24d717-5471-5a4a-a2f3-c0b14497f731"], +Cell[586072, 14073, 195, 3, 32, "Output",ExpressionUUID->"5f0d8c3f-e8b2-3f45-947a-f64869ee0416"] +}, Open ]], +Cell[CellGroupData[{ +Cell[586304, 14081, 2053, 55, 160, "Input",ExpressionUUID->"1fd4421d-3fcd-2d4f-bd05-28d15302273b"], +Cell[588360, 14138, 20399, 384, 233, "Output",ExpressionUUID->"70f5d02e-9682-0847-a186-3662438eef1a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[608796, 14527, 2115, 60, 211, "Input",ExpressionUUID->"0a8036ea-ac95-654b-96a9-78af964912a2"], +Cell[610914, 14589, 515, 11, 60, "Message",ExpressionUUID->"dd8d7f63-073b-6d48-9a22-9aa02003f3a2"], +Cell[611432, 14602, 517, 11, 60, "Message",ExpressionUUID->"63a6cac0-1bbe-be4e-9873-ce21a67d4842"], +Cell[611952, 14615, 522, 11, 60, "Message",ExpressionUUID->"984c3336-6bfb-a546-8fa2-f60fb793ca7d"], +Cell[612477, 14628, 478, 10, 26, "Message",ExpressionUUID->"8642d6c8-1953-2949-bd81-e06a231aa494"], +Cell[612958, 14640, 37264, 658, 233, "Output",ExpressionUUID->"fce21958-3569-714e-a583-3104e56bb757"] +}, Open ]], +Cell[CellGroupData[{ +Cell[650259, 15303, 280, 6, 42, "Input",ExpressionUUID->"936846c9-ebd9-0340-9945-b210a517ddeb"], +Cell[650542, 15311, 43277, 783, 233, "Output",ExpressionUUID->"0deb2fb8-eb79-c04f-a1b6-004fc4211c14"] +}, Open ]], +Cell[CellGroupData[{ +Cell[693856, 16099, 1616, 48, 113, "Input",ExpressionUUID->"2b7767f9-449f-c646-ae0c-43037957b685"], +Cell[695475, 16149, 561, 11, 60, "Message",ExpressionUUID->"c662d462-5a71-2342-9fda-b2274b2e0d97"], +Cell[696039, 16162, 567, 11, 84, "Message",ExpressionUUID->"c0ec3c0c-015d-0345-90ab-82f4e61762c8"], +Cell[696609, 16175, 572, 12, 84, "Message",ExpressionUUID->"213387ff-cedc-9d4a-9d2b-74bcf7747f2f"], +Cell[697184, 16189, 477, 10, 26, "Message",ExpressionUUID->"8d40b6f2-b1db-d84b-a2b6-c2961775ad5c"], +Cell[697664, 16201, 195, 3, 32, "Output",ExpressionUUID->"91f0a9b5-40b2-9c49-916b-05f3bf015800"] +}, Open ]], +Cell[CellGroupData[{ +Cell[697896, 16209, 2271, 64, 223, "Input",ExpressionUUID->"8304a1af-5a77-304f-9cc7-82724e2b3df7"], +Cell[700170, 16275, 559, 11, 60, "Message",ExpressionUUID->"07458b43-72a1-474f-87e6-0eef9f35a5b8"], +Cell[700732, 16288, 563, 11, 60, "Message",ExpressionUUID->"2ad89f73-179d-2f49-8bed-e430fe0e442b"], +Cell[701298, 16301, 566, 11, 60, "Message",ExpressionUUID->"d2bfc863-61b6-d742-bed2-087d66683cf6"], +Cell[701867, 16314, 480, 10, 26, "Message",ExpressionUUID->"fc399718-1033-ff41-8d26-cd034dd4276a"], +Cell[702350, 16326, 196, 3, 32, "Output",ExpressionUUID->"afb27a41-54d3-2b44-859f-e1ff05509ecf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[702583, 16334, 2244, 64, 162, "Input",ExpressionUUID->"3ed977a3-b24a-0644-a438-d2ebbf0c1dea"], +Cell[704830, 16400, 561, 11, 60, "Message",ExpressionUUID->"0e5faf36-e4fd-9f42-a49b-4ce7075c0703"], +Cell[705394, 16413, 563, 11, 60, "Message",ExpressionUUID->"0ad1a1bc-c1f1-9342-9444-04e661f1fa75"], +Cell[705960, 16426, 564, 11, 60, "Message",ExpressionUUID->"f7118513-8b41-9b43-98e5-7d9cd3d3e216"], +Cell[706527, 16439, 482, 10, 26, "Message",ExpressionUUID->"cb0367c1-f722-be4c-8a36-8b1792721884"], +Cell[707012, 16451, 196, 3, 32, "Output",ExpressionUUID->"d597ce14-0a75-3f42-825b-9129545b6929"] +}, Open ]], +Cell[CellGroupData[{ +Cell[707245, 16459, 2242, 64, 162, "Input",ExpressionUUID->"0a258b12-85fc-2a47-9b1a-8264aa20d65c"], +Cell[709490, 16525, 559, 11, 60, "Message",ExpressionUUID->"731d1689-4aa1-714c-9131-a00b1ee90432"], +Cell[710052, 16538, 561, 11, 60, "Message",ExpressionUUID->"9e839266-cb04-f541-8cb3-ebac0e4f7c36"], +Cell[710616, 16551, 564, 11, 60, "Message",ExpressionUUID->"0730db4c-6287-9c4c-b453-b9864a6676e6"], +Cell[711183, 16564, 477, 10, 26, "Message",ExpressionUUID->"c8e1290a-03b8-1c4c-9d12-a283a5810f3a"], +Cell[711663, 16576, 195, 3, 32, "Output",ExpressionUUID->"0cd7523b-1147-164d-8acb-6d38b29af9c9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[711895, 16584, 234, 6, 47, "Input",ExpressionUUID->"1cb0d12f-90a8-b449-9dd4-8435ee411a7c"], +Cell[712132, 16592, 200, 3, 32, "Output",ExpressionUUID->"e92f3798-de54-d64b-b87f-bfa1cf85c2da"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_gid_Qw2.nb b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_gid_Qw2.nb new file mode 100755 index 0000000..68b7a0b --- /dev/null +++ b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_gid_Qw2.nb @@ -0,0 +1,17688 @@ +(* 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[ 776182, 17680] +NotebookOptionsPosition[ 735614, 17031] +NotebookOutlinePosition[ 736068, 17049] +CellTagsIndexPosition[ 736025, 17046] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "0.1"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.992086540831894*^9, 3.9920865523321934`*^9}, { + 3.992086586219898*^9, 3.992086610363735*^9}, {3.9920867343035507`*^9, + 3.992086784359892*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"decf87f5-69e6-d145-96ee-b1c4602a22f7"], + +Cell[BoxData["0.1`"], "Output", + CellChangeTimes->{3.992086762207903*^9, 3.9920868028367424`*^9, + 3.9921096046773777`*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"037f92dd-f7d4-dd42-8d89-71be0ece8f89"] +}, Open ]], + +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.992085811016073*^9, 3.9920858120004807`*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"8e5ddefa-2b5c-6247-af17-e3667ab45a14"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.9920860563908997`*^9, 3.992086267214739*^9, + 3.992086570082403*^9, 3.9920866008307095`*^9, 3.9920866670307636`*^9, { + 3.9920867754973392`*^9, 3.9920868028625736`*^9}, 3.992109604748682*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"7789abd9-a823-f641-8cff-f98715a0b74c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "58"}]], "Input", + CellChangeTimes->{3.9917123636954575`*^9, 3.9917930477498703`*^9, + 3.9920858245124893`*^9}, + CellLabel->"In[3]:=",ExpressionUUID->"8a146821-63d3-254d-a6aa-0fea2d176440"], + +Cell[BoxData["58"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9920860564147377`*^9, 3.9920862672333508`*^9, + 3.992086570087515*^9, 3.992086600854433*^9, 3.992086667052353*^9, { + 3.99208677552532*^9, 3.9920868028686295`*^9}, 3.992109604770052*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"71ea40e9-b179-bd47-829a-c620683ff078"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"7295cc77-b1eb-c148-a8f8-0524ae53fa9e"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.991707828219631*^9, 3.9917123414174232`*^9, + 3.992086056442711*^9, 3.992086267243601*^9, 3.9920865701074047`*^9, + 3.992086600883713*^9, 3.9920866670570984`*^9, {3.9920867755491276`*^9, + 3.9920868028899593`*^9}, 3.9921096047900524`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"8b78feac-6cbf-3649-8c34-d9a2e0343aa5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"427bcb6b-7203-4f4c-8b5f-92422f3332dd"], + +Cell[BoxData["0.5577500000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.9917078282275677`*^9, 3.9917123414253197`*^9, + 3.992086056472231*^9, 3.9920862672656536`*^9, 3.9920865701119137`*^9, + 3.9920866009103184`*^9, 3.9920866670824966`*^9, {3.992086775556343*^9, + 3.9920868028954678`*^9}, 3.9921096048040676`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"bda5a226-706a-4948-bfcb-3a10753e2b6b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"e6a2dce0-48a1-a54b-87dd-64a39dc278b4"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9917078282485256`*^9, 3.9917123414324265`*^9, + 3.992086056479254*^9, 3.992086267270653*^9, 3.9920865701184216`*^9, + 3.9920866009393177`*^9, 3.9920866670875015`*^9, {3.992086775577345*^9, + 3.9920868029233513`*^9}, 3.9921096048189125`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"c08867b0-eaaa-d443-bee6-aa10d5507e37"] +}, 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->"b34f20c3-bc0e-7a48-88ab-231ba26f94ee"], + +Cell[BoxData["4.4902169031282435`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.9917078282706223`*^9, 3.9917123414384117`*^9, + 3.992086056511862*^9, 3.992086267275753*^9, 3.9920865701434135`*^9, + 3.9920866009463215`*^9, 3.992086667111265*^9, {3.992086775588663*^9, + 3.9920868029544296`*^9}, 3.992109604835928*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"8309cc1e-4e7a-c245-9b75-ad6b7eee8803"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"17226ba2-7113-be41-8022-c382d0d83c53"], + +Cell[BoxData["6.573779285392593`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.9917078282785244`*^9, 3.991712341447321*^9, + 3.9920860565348663`*^9, 3.99208626729467*^9, 3.9920865701494427`*^9, + 3.9920866009676666`*^9, 3.9920866671364613`*^9, {3.9920867756105766`*^9, + 3.992086802964319*^9}, 3.992109604851145*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"e9200f28-724e-4a4a-af0e-d800b26343bb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.363557285532272"}]], "Input", + CellChangeTimes->{ + 3.9917123951294365`*^9, 3.99179305435186*^9, {3.9920858393278446`*^9, + 3.9920858536690025`*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"baab3e06-2bee-bf4a-8618-822c95e824b3"], + +Cell[BoxData["0.363557285532272`"], "Output", + CellChangeTimes->{ + 3.991319649862606*^9, 3.991707828301527*^9, 3.9917123414573193`*^9, + 3.991712407248003*^9, 3.9920860565659294`*^9, 3.992086267305723*^9, + 3.992086570171528*^9, 3.992086600972666*^9, 3.9920866671645985`*^9, { + 3.9920867756155777`*^9, 3.9920868029898014`*^9}, 3.992109604864212*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"d460e0c9-c573-0343-b6c2-db2829ea09a6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "1.14032997838104"}]], "Input", + CellChangeTimes->{ + 3.9917124038115807`*^9, 3.991793052797516*^9, {3.992085843612673*^9, + 3.9920858505623627`*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"7c3df1a3-2591-9d46-b7f7-9a56a5f63bc3"], + +Cell[BoxData["1.14032997838104`"], "Output", + CellChangeTimes->{ + 3.9913196498716316`*^9, 3.991707828308525*^9, 3.99171234146842*^9, + 3.9917124073213234`*^9, 3.992086056571884*^9, 3.9920862673247185`*^9, + 3.992086570200531*^9, 3.9920866009956837`*^9, 3.9920866671913986`*^9, { + 3.992086775620594*^9, 3.9920868029953136`*^9}, 3.9921096048773155`*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"0424535a-cb05-1e46-a721-1451ca3ad51a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"de60ffba-7cbc-5847-8549-d4fbe4875db8"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.9917078283276424`*^9, 3.991712341478319*^9, + 3.992086056594942*^9, 3.992086267342724*^9, 3.992086570206547*^9, + 3.992086601016636*^9, 3.992086667196371*^9, {3.9920867756454487`*^9, + 3.9920868030243797`*^9}, 3.992109604891365*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"f4e5fb0e-749f-1a4a-ae0a-019dc46fb26f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"69dc8ea6-676a-dc49-9351-23993cceae89"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.99170782834754*^9, 3.9917123414863186`*^9, + 3.99208605659988*^9, 3.992086267369709*^9, 3.9920865702305107`*^9, + 3.992086601021658*^9, 3.992086667220396*^9, {3.9920867756661854`*^9, + 3.9920868030533276`*^9}, 3.992109604905491*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"61afd43e-bef6-8b44-928b-7b9781b3acb3"] +}, 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->"ec44c837-c052-fc4b-b261-10c7daf03ac1"], + +Cell[BoxData["1.3932112707868565`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.991707968406042*^9, 3.9920860566229687`*^9, + 3.9920862673877125`*^9, 3.992086570250431*^9, 3.9920866010503235`*^9, + 3.9920866672243824`*^9, {3.9920867756911926`*^9, 3.992086803080593*^9}, + 3.9921096049206276`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"0c8eb7b6-c1c9-a24b-9ea7-2bbd4352dac1"] +}, 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->"903d3654-408b-a548-a092-284ecafd818f"], + +Cell[BoxData["3.0097040215395996`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.9917079684291363`*^9, 3.992086056628895*^9, + 3.992086267395834*^9, 3.9920865702819977`*^9, 3.9920866010553265`*^9, + 3.992086667248516*^9, {3.992086775697193*^9, 3.992086803086094*^9}, + 3.9921096049323063`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"42ed48f2-7ef5-1846-904f-9ebc55fb6977"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"c11e02a6-b1fe-f849-935d-f92cea21acd7"], + +Cell[BoxData["0.8492253700915684`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.991707968457081*^9, 3.9920860566568546`*^9, + 3.9920862674018364`*^9, 3.9920865702885704`*^9, 3.9920866010823193`*^9, + 3.9920866672535152`*^9, {3.9920867757212353`*^9, 3.9920868031092052`*^9}, + 3.992109604941307*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"b1cd425e-0025-304a-a71f-e374a32632e8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"7780fc5c-1700-dc4d-a078-34ee438027dd"], + +Cell[BoxData[ + RowBox[{"-", "1.1896646126189885`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.9917079684650364`*^9, 3.992086056661869*^9, + 3.9920862674289207`*^9, 3.992086570310892*^9, 3.992086601108303*^9, + 3.992086667258547*^9, {3.9920867757272587`*^9, 3.9920868031152153`*^9}, + 3.9921096049498177`*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"58290a99-eddd-2a4a-9e68-9ec70d9a630f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"0f58db59-f855-dd43-8594-5f641286c017"], + +Cell[BoxData[ + RowBox[{"-", "0.07157823242670158`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.9917079684860363`*^9, 3.992086056689867*^9, + 3.992086267451708*^9, 3.9920865703164005`*^9, 3.9920866011133003`*^9, + 3.992086667287239*^9, {3.9920867757482376`*^9, 3.992086803136221*^9}, + 3.9921096049604263`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"14d13c4a-1bab-1c40-a445-e8a7a9b887f7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"41eb03c2-c064-b149-b5d2-584b0fd9db0a"], + +Cell[BoxData["0.36531988493615475`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9917079684940376`*^9, 3.992086056698021*^9, + 3.9920862674576683`*^9, 3.992086570322399*^9, 3.9920866011363144`*^9, + 3.9920866673132973`*^9, {3.9920867757535*^9, 3.9920868031582184`*^9}, + 3.9921096049694347`*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"b189f191-1a9a-114c-b824-de338a8889b3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"98b38ee5-898b-4346-917d-7a87820c915c"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9917079685140343`*^9, 3.992086056725519*^9, + 3.992086267463503*^9, 3.99208657034342*^9, 3.9920866011623287`*^9, + 3.992086667319298*^9, {3.9920867757785244`*^9, 3.992086803166567*^9}, + 3.992109604979332*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"04fd09cf-8783-524f-b249-0904c7c74e77"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellChangeTimes->{3.9918430951178913`*^9}, + CellLabel->"In[20]:=",ExpressionUUID->"7d9f16ed-a447-3941-8b54-dce1ce689754"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.991707968535036*^9, 3.9920860567525387`*^9, + 3.992086267484522*^9, 3.992086570353693*^9, 3.992086601167244*^9, + 3.992086667338505*^9, {3.9920867757885113`*^9, 3.992086803188101*^9}, + 3.992109604988329*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"28745d6d-37b1-c441-b0c8-5e12f448417d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"b09734e4-465e-a14c-9263-94c6edb02ca1"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.9917079685410557`*^9, 3.9920860567575817`*^9, + 3.99208626748954*^9, 3.992086570375412*^9, 3.99208660118725*^9, + 3.9920866673587112`*^9, {3.9920867758099976`*^9, 3.992086803193638*^9}, + 3.992109604998331*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"eafa1984-4a8c-5340-91cf-59e74f192a05"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"f29a2307-3447-1943-ad48-50f33841cc64"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.991707968561041*^9, 3.992086056786278*^9, + 3.9920862675157433`*^9, 3.9920865703804207`*^9, 3.9920866011932716`*^9, + 3.9920866673642235`*^9, {3.992086775814476*^9, 3.992086803217211*^9}, + 3.9921096050073547`*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"0fa286b7-e602-7a4a-a92b-e3af361cba0c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"718c455f-8eef-1340-9f83-7e9fc093ef89"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.9917079685810375`*^9, 3.9920860567917824`*^9, + 3.992086267522707*^9, 3.9920865704054184`*^9, 3.992086601216263*^9, + 3.9920866673882236`*^9, {3.9920867758395653`*^9, 3.992086803222191*^9}, + 3.992109605019367*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"b42251b2-cc66-b943-8221-5a127e24c64c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "20"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.9917930777342243`*^9, + 3.9920858934566765`*^9}, + CellLabel->"In[24]:=",ExpressionUUID->"abe15f34-4031-994f-9573-919cbff5ae28"], + +Cell[BoxData["20"], "Output", + CellChangeTimes->{ + 3.992086056815359*^9, 3.992086267560713*^9, 3.992086570414318*^9, + 3.992086601221264*^9, 3.992086667394369*^9, {3.9920867758671284`*^9, + 3.9920868032586155`*^9}, 3.992109605037531*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"f50f8890-1337-5c46-b3cc-60cc1b458829"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431115646553`*^9, 3.991843111569187*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"f54cbe34-7d26-ac45-b04d-4a0dfc786756"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, { + 3.991644237125025*^9, 3.991644237304865*^9}, {3.992085912752716*^9, + 3.9920859130864887`*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"e1ee6a2a-ad12-8c4a-ae1e-ef92600b7ef6"], + +Cell[BoxData["74"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.991707968608036*^9, 3.9920860568239784`*^9, + 3.99208626756872*^9, 3.9920865704393387`*^9, 3.9920866012487774`*^9, + 3.992086667421444*^9, {3.9920867758944263`*^9, 3.992086803283657*^9}, + 3.9921096050535297`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"289b7694-e5cb-ad44-b982-62789f1432bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"72c6f3b5-aacd-764e-a14b-934f0a2d9058"], + +Cell[BoxData["182"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.9917079686284103`*^9, 3.9920860568515472`*^9, + 3.9920862675907288`*^9, 3.9920865704453335`*^9, 3.9920866012762756`*^9, + 3.992086667425951*^9, {3.992086775900427*^9, 3.9920868032897816`*^9}, + 3.9921096050675716`*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"cb1050b7-2889-ca49-933d-fae85067be83"] +}, 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->"8d56e723-95f7-6a47-9bf1-95688d14840e"], + +Cell[BoxData["0.1143501326259947`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9917079686354065`*^9, 3.9920860568816433`*^9, + 3.9920862675967255`*^9, 3.9920865704673367`*^9, 3.9920866012962723`*^9, + 3.992086667430956*^9, {3.992086775921425*^9, 3.992086803313404*^9}, + 3.9921096050815735`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"4b038fb7-920c-d147-9d67-db9591bb424e"] +}, 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->"fc1da402-09a7-0b43-a5f1-0e0072c9924b"], + +Cell[BoxData[ + RowBox[{"-", "2.558692686623721`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.991707968658518*^9, 3.9920860569066925`*^9, + 3.992086267627468*^9, 3.9920865704723377`*^9, 3.9920866013012753`*^9, + 3.9920866674524727`*^9, {3.9920867759274426`*^9, 3.9920868033194046`*^9}, + 3.992109605096775*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"e45030cb-0044-3649-aba8-852d9a444399"] +}, 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.991972093618887*^9, 3.9919720982596817`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"fa3765b6-425c-014a-8bca-452a47a684d1"], + +Cell[BoxData["16.19476930294046`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.991707968678421*^9, 3.9920860569136944`*^9, + 3.992086267651493*^9, 3.9920865704962807`*^9, 3.992086601307276*^9, + 3.992086667458479*^9, {3.992086775951008*^9, 3.992086803343006*^9}, + 3.9921096051188164`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"c82d18c4-ed50-7c47-81c7-3a425d3051e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"9c05f553-4d62-174a-afaa-6c2d98d8398c"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.9917079686854057`*^9, 3.992086056939745*^9, + 3.992086267670479*^9, 3.992086570523632*^9, 3.9920866013305016`*^9, + 3.9920866674794827`*^9, {3.9920867759565735`*^9, 3.9920868033491592`*^9}, + 3.99210960513237*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"7a12913a-da48-694f-a357-4dfd7f41225b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "0.889"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.991793106556059*^9, 3.992085933324785*^9}, + CellLabel->"In[32]:=",ExpressionUUID->"0092b9dd-a828-174c-9f21-7ca0983820ad"], + +Cell[BoxData["0.889`"], "Output", + CellChangeTimes->{ + 3.9920860569446983`*^9, 3.9920862676814785`*^9, 3.9920865705475826`*^9, + 3.9920866013365097`*^9, 3.9920866675006237`*^9, {3.9920867759825478`*^9, + 3.9920868033546314`*^9}, 3.9921096051473675`*^9}, + CellLabel->"Out[32]=",ExpressionUUID->"25b0ec7f-f5fc-e946-84fb-bc072d1a78f4"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431193859673`*^9, 3.9918431193894367`*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"4bcb9c4c-d2b7-9c48-913d-55402ef0fcfa"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"n1", "=", "0.634"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917169698218613`*^9, 3.991717907758713*^9, + 3.991793107839529*^9, 3.9920859368147087`*^9}, + CellLabel->"In[34]:=",ExpressionUUID->"0f0e26aa-0a4b-e248-95f9-dce212751b21"], + +Cell[BoxData["0.634`"], "Output", + CellChangeTimes->{ + 3.9920860569747295`*^9, 3.992086267704502*^9, 3.99208657055459*^9, + 3.992086601359558*^9, 3.992086667509161*^9, {3.992086775989546*^9, + 3.9920868033846836`*^9}, 3.9921096051743526`*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"0dd3578a-5406-2345-97c6-197f49623abf"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843120757866*^9, 3.9918431207603054`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"fd088c34-4c8f-be4a-90b1-8e9cebf9d8af"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv1", "=", "1.069"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.991717916696951*^9, + 3.991793108990593*^9, 3.992085941493677*^9}, + CellLabel->"In[36]:=",ExpressionUUID->"7a1ce979-d02f-c14c-b529-a5816c5f6ff2"], + +Cell[BoxData["1.069`"], "Output", + CellChangeTimes->{ + 3.9920860570089607`*^9, 3.9920862677305984`*^9, 3.9920865705816116`*^9, + 3.9920866013675575`*^9, 3.992086667531679*^9, {3.992086776016308*^9, + 3.992086803410513*^9}, 3.992109605208372*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"386d65ee-8569-1d40-a192-0c5b598d715a"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431220200443`*^9, 3.9918431220220585`*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"d5070180-8e6f-c14a-969e-b70ae8ba5b81"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn1", "=", "0.744"}], "\n"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.991716995355715*^9, + 3.9917931103354855`*^9, 3.9920859453537045`*^9}, + CellLabel->"In[38]:=",ExpressionUUID->"33ef9ecf-fe4f-5a4e-b834-98d5e1d4b9a3"], + +Cell[BoxData["0.744`"], "Output", + CellChangeTimes->{ + 3.9920860571022167`*^9, 3.9920862677565975`*^9, 3.9920865705886135`*^9, + 3.99208660139657*^9, 3.992086667539192*^9, {3.9920867760232925`*^9, + 3.992086803417515*^9}, 3.992109605232235*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"0c5704be-782c-984d-90bd-7014d381ba78"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431237966404`*^9, 3.9918431238010616`*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"4d99777a-a73d-3c4c-a873-cf9287520628"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.991"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991717006317978*^9, 3.9917931115739956`*^9, 3.9920859513160667`*^9}, + CellLabel->"In[40]:=",ExpressionUUID->"c4da4ab8-da50-d140-91ed-bb4066d15de8"], + +Cell[BoxData["1.991`"], "Output", + CellChangeTimes->{ + 3.9920860571301746`*^9, 3.9920862677775993`*^9, 3.9920865706167297`*^9, + 3.992086601418375*^9, 3.99208666756719*^9, {3.9920867760472984`*^9, + 3.992086803446306*^9}, 3.992109605245224*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"2dfe1558-cb56-b048-8672-0dc5f266beaf"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431249171696`*^9, 3.991843124921198*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"e4a8db4e-c5ef-f345-89f9-2f0eb815fbe1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.921"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917170151233826`*^9, 3.9917931128910503`*^9, 3.9920859570410233`*^9}, + CellLabel->"In[42]:=",ExpressionUUID->"47599e08-b2e7-a24b-961e-ebca74dfa067"], + +Cell[BoxData["0.921`"], "Output", + CellChangeTimes->{ + 3.992086057153713*^9, 3.9920862677985992`*^9, 3.992086570642597*^9, + 3.9920866014433823`*^9, 3.9920866675731907`*^9, {3.9920867760553913`*^9, + 3.9920868034683304`*^9}, 3.99210960526725*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"351c888e-d7c6-5443-8419-831a2773e27a"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843126102844*^9, 3.991843126104536*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"5abac94d-6a40-7b4e-a070-b0cdf9d611ef"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "2.422"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, { + 3.9917170243815575`*^9, 3.991717046491377*^9}, 3.991793114539028*^9, + 3.9920859610670395`*^9}, + CellLabel->"In[44]:=",ExpressionUUID->"4bd0080e-efc5-924d-a473-45f092280dce"], + +Cell[BoxData["2.422`"], "Output", + CellChangeTimes->{ + 3.9920860571617165`*^9, 3.99208626780674*^9, 3.992086570651617*^9, + 3.992086601467415*^9, 3.9920866675994263`*^9, {3.992086776087263*^9, + 3.9920868034795456`*^9}, 3.9921096052942505`*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"af8dbf57-4bc3-814f-948e-e7716d6fd140"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431274420605`*^9, 3.9918431274461517`*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"625a868e-ee7b-4d49-9d19-38755610271f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "1.520"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.991793116134735*^9, 3.9920859650537796`*^9}, + CellLabel->"In[46]:=",ExpressionUUID->"739c797d-3b78-0042-9a14-ddf85766de83"], + +Cell[BoxData["1.52`"], "Output", + CellChangeTimes->{ + 3.992086057192232*^9, 3.992086267836733*^9, 3.992086570676237*^9, + 3.9920866014884205`*^9, 3.992086667620432*^9, {3.992086776115265*^9, + 3.9920868035049725`*^9}, 3.992109605315632*^9}, + CellLabel->"Out[46]=",ExpressionUUID->"3d6724c6-71f4-5b42-a14c-d169029f383d"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843129570627*^9, 3.991843129574024*^9}}, + CellLabel->"In[47]:=",ExpressionUUID->"ecd0b3c7-07cc-5848-98fb-ada047a431f8"], + +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[48]:=",ExpressionUUID->"11051a1e-7803-124a-bbf6-5e5b0c006c65"], + +Cell[BoxData["31.169618376887957`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.991707979950527*^9, 3.99208605754793*^9, + 3.9920862678957367`*^9, 3.9920865707097645`*^9, 3.992086601521433*^9, + 3.9920866676705303`*^9, {3.9920867761731644`*^9, 3.9920868035374813`*^9}, + 3.9921096054570465`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"f6f9cf1f-fe29-ec47-80c1-a386c35ce893"] +}, 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[49]:=",ExpressionUUID->"96edc5b8-4ef1-c94a-818f-f5a96a641439"], + +Cell[BoxData["0.6731047036398055`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9917079908393784`*^9, 3.9920860575922737`*^9, + 3.9920862679383984`*^9, 3.992086570747278*^9, 3.9920866015565434`*^9, + 3.992086667708521*^9, {3.9920867762131767`*^9, 3.992086803570322*^9}, + 3.9921096056573544`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"c51367ae-cef6-5c41-a88e-8e5ea6e1a20a"] +}, 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[50]:=",ExpressionUUID->"708941cb-a3a5-e54e-bb40-daefd233b708"], + +Cell[BoxData[ + RowBox[{"-", "372.70649967012986`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.991707995240637*^9, 3.9920860576318016`*^9, + 3.992086267978388*^9, 3.992086570780279*^9, 3.9920866015855484`*^9, + 3.9920866677442665`*^9, {3.9920867762461967`*^9, 3.992086803601267*^9}, + 3.992109605892563*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"6d6898a7-ba09-684f-ab39-5b1a1efc924e"] +}, 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[51]:=",ExpressionUUID->"5555416b-be67-5042-b0b0-59b97ae6edb3"], + +Cell[BoxData[ + RowBox[{"-", "1044.7246524682707`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.991707999380541*^9, 3.9920860576748123`*^9, + 3.9920862680234985`*^9, 3.992086570817337*^9, 3.9920866016215477`*^9, + 3.9920866677821484`*^9, {3.992086776283224*^9, 3.992086803636261*^9}, + 3.9921096060529785`*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"b10444ee-3769-6a4a-9ed5-9dd0663d61c4"] +}, 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[52]:=",ExpressionUUID->"2911c1dc-149c-7440-a9aa-771caffdd5dc"], + +Cell[BoxData[ + RowBox[{"-", "259.8695599568833`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.991708001954468*^9, 3.992086057718851*^9, + 3.992086268066494*^9, 3.992086570860342*^9, 3.9920866016586037`*^9, + 3.992086667819168*^9, {3.992086776323227*^9, 3.9920868036722755`*^9}, + 3.992109606231552*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"bbb44830-1b15-8247-834a-1f8aa275e0a5"] +}, 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[53]:=",ExpressionUUID->"593e0efd-8e77-db47-859f-ecfe43b09741"], + +Cell[BoxData[ + RowBox[{"-", "1495.7852478733544`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.9917080040838356`*^9, 3.992086057776539*^9, + 3.992086268121565*^9, 3.992086570903343*^9, 3.992086601703615*^9, + 3.992086667865225*^9, {3.992086776370306*^9, 3.9920868037133484`*^9}, + 3.992109606406515*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"addeb39f-2ecd-b34f-82d3-c6cbd9b9648b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"ea2f6c5c-5c2c-c24e-9f30-84f28bc50c35"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.991708067458639*^9, 3.9920860577975445`*^9, + 3.992086268141716*^9, 3.992086570923395*^9, 3.992086601725624*^9, + 3.992086667870228*^9, {3.992086776398308*^9, 3.9920868037333527`*^9}, + 3.992109606432686*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"9f519549-95c6-de4b-89fe-08472985ce8d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"1ababc70-6150-5846-91a9-d660a9f9a67e"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.9917080674805565`*^9, 3.9920860578025436`*^9, + 3.992086268149719*^9, 3.992086570929405*^9, 3.9920866017452965`*^9, + 3.992086667896475*^9, {3.992086776419306*^9, 3.992086803739353*^9}, + 3.992109606446636*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"b34172a8-4eef-ac4d-8069-43693fcc9c60"] +}, 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[56]:=",ExpressionUUID->"1474f49b-9092-f140-95bb-72e241815f2e"], + +Cell[BoxData["2212.1207838096793`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9917080675026455`*^9, 3.9920860578265495`*^9, + 3.992086268167341*^9, 3.992086570954405*^9, 3.9920866017743587`*^9, + 3.9920866679175053`*^9, {3.992086776426306*^9, 3.9920868037613735`*^9}, + 3.99210960646043*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"89858ab3-46fa-d844-9aac-851252906c3d"] +}, 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[57]:=",ExpressionUUID->"e8c2feb4-92bd-7841-b6ef-3e4f56980121"], + +Cell[BoxData[ + RowBox[{"-", "3166.463119014952`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.991708067510544*^9, 3.99208605783457*^9, + 3.9920862681909695`*^9, 3.992086570961405*^9, 3.9920866017975693`*^9, + 3.9920866679425335`*^9, {3.9920867764324074`*^9, 3.9920868037683716`*^9}, + 3.992109606474596*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"a29cf6f6-8b46-b04b-9931-62cd5ae6cc83"] +}, 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[58]:=",ExpressionUUID->"d0712258-5cdf-d84f-a90c-0bd8f16ed7ac"], + +Cell[BoxData["4780.565019838899`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9917080675337753`*^9, 3.9920860578555565`*^9, + 3.9920862681974792`*^9, 3.992086570983412*^9, 3.9920866018035927`*^9, + 3.992086667948538*^9, {3.992086776457493*^9, 3.9920868037919464`*^9}, + 3.9921096064874783`*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"5a3743ff-1ad2-5e47-adc2-8ca726c04c85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"e80ec461-f58c-3a41-8a51-5ce0215747a4"], + +Cell[BoxData["0.8492253700915684`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.991708067540825*^9, 3.992086057861557*^9, + 3.9920862682165356`*^9, 3.992086570993412*^9, 3.9920866018254967`*^9, + 3.992086667970564*^9, {3.992086776462492*^9, 3.992086803812454*^9}, + 3.99210960650745*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"b28d78b0-721c-5e4f-995f-1e85eea6a51e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"e7a54f02-e8fe-3449-be87-07e7449f49e2"], + +Cell[BoxData[ + RowBox[{"-", "1.1896646126189885`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.991708067561775*^9, 3.9920860578695545`*^9, + 3.9920862682215385`*^9, 3.9920865710174274`*^9, 3.9920866018499928`*^9, + 3.9920866679765587`*^9, {3.9920867764902725`*^9, 3.9920868038194695`*^9}, + 3.9921096065326614`*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"78195888-f0e7-1c47-8bc4-8de64ce4ecc5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"392bf6dd-56e8-8d45-a404-04d36f52457c"], + +Cell[BoxData[ + RowBox[{"-", "0.07157823242670158`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.9917080675837746`*^9, 3.992086057898611*^9, + 3.992086268229542*^9, 3.9920865710414886`*^9, 3.992086601870537*^9, + 3.99208666799856*^9, {3.992086776511881*^9, 3.9920868038434715`*^9}, + 3.9921096065452805`*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"efa538f7-ddae-8d4c-bac0-bde89faa3904"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"a4bf94b1-872b-c44e-b0b5-ea82980c6498"], + +Cell[BoxData["0.36531988493615475`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.9917080675917854`*^9, 3.9920860579196167`*^9, + 3.9920862682466774`*^9, 3.992086571067438*^9, 3.9920866018954678`*^9, + 3.992086668004545*^9, {3.992086776540409*^9, 3.9920868038534584`*^9}, + 3.9921096065713673`*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"8adc0b83-b7c4-1244-b2b4-28ed204e79cc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"63b2c61d-a6cb-9846-abc0-bea8cbedddc9"], + +Cell[BoxData["1.3932112707868565`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.991708067612774*^9, 3.992086057924618*^9, + 3.9920862682647114`*^9, 3.9920865710734444`*^9, 3.99208660190147*^9, + 3.992086668009548*^9, {3.9920867765645065`*^9, 3.9920868038804703`*^9}, + 3.9921096065906296`*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"208760b5-3431-9949-bc3d-78a5959c3339"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"5a33f683-67f9-2e4c-9d75-6668f054f7ec"], + +Cell[BoxData["3.0097040215395996`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.991708067619776*^9, 3.9920860579496193`*^9, + 3.9920862682697086`*^9, 3.9920865711034584`*^9, 3.992086601925476*^9, + 3.9920866680342903`*^9, {3.992086776570503*^9, 3.99208680388603*^9}, + 3.992109606615362*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"0a9ad17e-761c-6648-8e28-9de7a1bef1e7"] +}, 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[65]:=",ExpressionUUID->"852c4cc3-cc32-d341-b2e7-aaf1877a0b85"], + +Cell[BoxData[ + RowBox[{"-", "5.270467564360312`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.991708067640772*^9, 3.9920860579616146`*^9, + 3.9920862682944393`*^9, 3.992086571123514*^9, 3.992086601930479*^9, + 3.9920866680632725`*^9, {3.99208677659153*^9, 3.9920868039130783`*^9}, + 3.992109606644783*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"a7883e95-d9c2-3648-a494-5b05664e3dd7"] +}, 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[66]:=",ExpressionUUID->"e6141e71-fa56-8440-92dc-fe9eaad0db2d"], + +Cell[BoxData[ + RowBox[{"-", "51.15351790227487`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.991708067662775*^9, 3.9920860579829197`*^9, + 3.992086268301441*^9, 3.992086571129526*^9, 3.992086601955652*^9, + 3.992086668069273*^9, {3.9920867766018753`*^9, 3.9920868039341793`*^9}, + 3.9921096066654873`*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"f30e0ee4-1790-2a48-95f5-ceab01e3f9a4"] +}, 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[67]:=",ExpressionUUID->"b0483f30-dff3-5b4c-b999-b882cea897cb"], + +Cell[BoxData["2206.850316245319`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.991708067669775*^9, 3.992086057988922*^9, + 3.9920862683069553`*^9, 3.992086571153517*^9, 3.9920866019616756`*^9, + 3.9920866680988617`*^9, {3.992086776625183*^9, 3.992086803955179*^9}, + 3.9921096066826935`*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"9026ed35-6d5c-9d4e-951c-07e836ddc9ea"] +}, 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[68]:=",ExpressionUUID->"fa9a97d0-df53-7447-92fc-35c155dcd720"], + +Cell[BoxData[ + RowBox[{"-", "3166.463119014952`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.991708067690773*^9, 3.9920860580136375`*^9, + 3.9920862683254623`*^9, 3.9920865711785164`*^9, 3.9920866019914055`*^9, + 3.992086668104372*^9, {3.99208677663167*^9, 3.9920868039611816`*^9}, + 3.9921096067348385`*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"f5596963-44fb-b040-b137-5d34e9d72ea1"] +}, 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[69]:=",ExpressionUUID->"91a92f00-9760-3d4f-904d-80df035e0096"], + +Cell[BoxData["4729.4115019366245`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.991708067697775*^9, 3.9920860580186367`*^9, + 3.992086268332466*^9, 3.9920865711994247`*^9, 3.9920866020163975`*^9, + 3.992086668129669*^9, {3.9920867766542397`*^9, 3.992086803983183*^9}, + 3.992109606772257*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"387fa299-4016-d948-9704-a0eec89cd849"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"3cc1e27a-ca24-114e-9c66-41e2a911610c"], + +Cell[BoxData["199.42817651512246`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.9917080677197742`*^9, 3.9920860580256405`*^9, + 3.992086268355482*^9, 3.9920865712064476`*^9, 3.992086602022396*^9, + 3.992086668135229*^9, {3.992086776660242*^9, 3.992086803989208*^9}, + 3.9921096067994347`*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"1e26b1f5-2e60-1d4f-b380-5cefce0e963a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"73776e57-9b30-1441-aab4-a1f5f42f120d"], + +Cell[BoxData["6725.14571990162`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.991708067726776*^9, 3.9920860580466385`*^9, + 3.9920862683614655`*^9, 3.992086571211939*^9, 3.9920866020454216`*^9, + 3.99208666816308*^9, {3.9920867766842403`*^9, 3.9920868040112057`*^9}, + 3.992109606822544*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"65dadbf9-b8c6-cc40-8b7a-dee91bad4f89"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.10045722207791"}]], "Input", + CellChangeTimes->{3.991847456288412*^9, 3.992088732190998*^9}, + CellLabel->"In[72]:=",ExpressionUUID->"02c50ee4-f89d-e84b-babb-c4951c25ae7a"], + +Cell[BoxData["0.10045722207791`"], "Output", + CellChangeTimes->{3.992109606834923*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"a239eb39-d6a3-134c-a853-4230facf61d6"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991847457119114*^9, 3.991847457122698*^9}}, + CellLabel->"In[73]:=",ExpressionUUID->"a3744ee1-3657-ed40-afd1-ad7c272f2bae"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.572083902248993"}]], "Input", + CellChangeTimes->{3.9918474584496803`*^9, 3.992088738183317*^9}, + CellLabel->"In[74]:=",ExpressionUUID->"fea443da-bb80-5942-940a-8bd97c50a7b3"], + +Cell[BoxData["0.572083902248993`"], "Output", + CellChangeTimes->{3.9921096068502674`*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"17186124-ae42-4d48-b08a-fc650d492e90"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918474591039295`*^9, 3.9918474591064377`*^9}}, + CellLabel->"In[75]:=",ExpressionUUID->"4a8ede4b-c349-9d4b-b8be-a33659ac7670"], + +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[76]:=",ExpressionUUID->"c66d12ee-7a7e-014a-a59f-f5290f75e383"], + +Cell[BoxData["9.103990235902606`*^-54"], "Output", + CellChangeTimes->{3.992109606870119*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"a5ee31fb-b85e-5248-bcc0-65fe47a2ebb4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + 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"]}]], "*", "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, {3.9915584375659084`*^9, 3.9915584522049637`*^9}}, + CellLabel->"In[77]:=",ExpressionUUID->"f4d1663f-2f7d-a640-9003-22515624ffcb"], + +Cell[BoxData["8.929535587268165`*^-56"], "Output", + CellChangeTimes->{3.992109606899397*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"eabfe586-d950-284e-a5ee-55568e11b869"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + 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"]}]], "*", + 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}, + 3.9915584476498585`*^9}, + CellLabel->"In[78]:=",ExpressionUUID->"85637b45-1c33-1f4e-90c3-07deba1b9b3a"], + +Cell[BoxData["5.016159784621923`*^-54"], "Output", + CellChangeTimes->{3.9921096069417305`*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"5ee5dca0-1b43-8840-b3b4-78102887df34"] +}, 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[79]:=",ExpressionUUID->"8f97c456-7671-cb44-95b8-323a276088fe"], + +Cell[BoxData["46.9359074551804`"], "Output", + CellChangeTimes->{3.992109606956732*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"440b8370-393a-404b-852e-d85899ee7f75"] +}, 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[80]:=",ExpressionUUID->"e2507f75-9610-1346-854c-33db9330e900"], + +Cell[BoxData["115.6434907823223`"], "Output", + CellChangeTimes->{3.9921096069699078`*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"f14e4444-991b-dd43-b839-32d4d5bd2b14"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[81]:=",ExpressionUUID->"148e44ba-fb40-0e42-959d-44858270229f"], + +Cell[BoxData["2.0612973725615147`"], "Output", + CellChangeTimes->{3.992109606984297*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"c3f12543-581c-0748-a57d-f828a470dbee"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"0c021142-f067-b94a-bf73-69c3aa281aca"], + +Cell[BoxData["7.62588502528582`"], "Output", + CellChangeTimes->{3.9921096069975395`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"e50d804a-d3c2-c34a-8850-554dc242d84d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[83]:=",ExpressionUUID->"827e3da4-16db-854c-89ad-c94762d57459"], + +Cell[BoxData["881.8839646286904`"], "Output", + CellChangeTimes->{3.9921096070217667`*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"b4ade9a2-e436-f343-a919-1be5560d22b9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[84]:=",ExpressionUUID->"9149adf7-16ac-794c-81f7-04a88d48bdc9"], + +Cell[BoxData["96.74886271615377`"], "Output", + CellChangeTimes->{3.9921096070449924`*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"4917653c-d50d-ad42-af81-17902e00ff15"] +}, 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[85]:=",ExpressionUUID->"14dc1278-8ac3-2246-90ef-ba23d2bdffaa"], + +Cell[BoxData["0.010307297986840226`"], "Output", + CellChangeTimes->{3.99210960706851*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"3a9123bf-30df-4941-9217-c58b18be88ba"] +}, 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[86]:=",ExpressionUUID->"6c632312-3007-0b42-93b3-6c1b961afeb6"], + +Cell[BoxData["8.729161424513658`"], "Output", + CellChangeTimes->{3.9921096073064327`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"cd8bbe3c-ed93-564b-95cf-593b6e8b9b34"] +}, 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[87]:=",ExpressionUUID->"60d1b3b3-12f2-2644-8ed8-788b5437fdfb"], + +Cell[BoxData["0.0010547922667890118`"], "Output", + CellChangeTimes->{3.992109607330862*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"ab40c33a-b4e2-c34d-9eec-968c77921501"] +}, 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[88]:=",ExpressionUUID->"8bbc8f7a-f751-794c-9337-a97f1bdae578"], + +Cell[BoxData["27.28735695844119`"], "Output", + CellChangeTimes->{3.9921096075297527`*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"d67bf10a-7386-4844-b52c-a79317562e14"] +}, 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[89]:=",ExpressionUUID->"9338c89c-67a3-6e41-be9a-1cf34020b040"], + +Cell[BoxData["0.9825098148127043`"], "Output", + CellChangeTimes->{3.9921096075541153`*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"c3eb79fa-4fb4-bf4a-87a4-81220dabba4d"] +}, 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[90]:=",ExpressionUUID->"ae8d22a0-13a2-9d41-b648-0faf6caf2253"], + +Cell[BoxData["0.017490185187295736`"], "Output", + CellChangeTimes->{3.9921096075742702`*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"83821887-dd58-7549-9156-ff4faa070c10"] +}, 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[91]:=",ExpressionUUID->"7d419d4a-7a13-e94d-beb1-cf3b1cd962e0"], + +Cell[BoxData["0.017184278609409836`"], "Output", + CellChangeTimes->{3.992109607609543*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"ad354ce7-0796-1949-997d-7c1f1c4621bf"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[92]:=",ExpressionUUID->"5ded2365-6100-7b43-ad8b-c1b09dc62d32"], + +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.991847477953953*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"4fe3e3d4-6e7a-b544-8531-81ac5c3a022e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.6693955258568047`*^-224\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 93, 614, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921096076710567`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"e5320d3e-ae0b-ec43-bab3-dad0443eba59"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3558287049091777`*^-230\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 93, 615, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921096077268944`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"4d38e58b-6838-c34f-9b57-2e75d2dc33d6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.069057619255373`*^-236\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 93, 616, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921096077439976`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"a77914a7-b069-b14e-969f-570c20acae6b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 93, 617, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992109607765007*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"d369d2bb-6d5e-534c-816e-56bff4f53fa6"], + +Cell[BoxData["8.72916142451366`"], "Output", + CellChangeTimes->{3.992109615417532*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"daa17776-4f93-7f49-a2fe-24e89dd70e2b"] +}, 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.991847481589756*^9}, + CellLabel->"In[94]:=",ExpressionUUID->"2e2efe37-106e-8a4d-98e1-c6d073c59256"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.6693955258568047`*^-224\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 94, 618, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921096155823*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"be9878bf-4f97-e849-918c-720994ed09da"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3558287049091777`*^-230\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 94, 619, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921096156162376`*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"d7f5033b-9e87-314f-bbf7-5b2c741ad333"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.069057619255373`*^-236\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 94, 620, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992109615635517*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"ead88118-f56d-5f49-9c12-a33c8e9ba159"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 94, 621, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921096156526165`*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"4b836978-fc40-1b41-a377-a0ab870081f1"], + +Cell[BoxData["27.287356958441137`"], "Output", + CellChangeTimes->{3.9921096230474377`*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"d4fe0879-7657-3b4c-8dad-c81781067c0f"] +}, 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.991847486086582*^9}, + CellLabel->"In[95]:=",ExpressionUUID->"5ef8c446-ea46-eb49-90ca-5a9d2703a626"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk0Vd0bB3BDNKBCCJFZSHTNDfaDm5mEioxd95xEZkkSTfT+MoQ0va+p +UJcQKpkqpUEoSlKiyLmSKZnuTclv++OsvT5rr/U9z372oMgIcSb4eHh4hvC3 +OIa93qR+v/21qabxd9F2JoVMxwsMGPQSdGqtgtWi+3INM1Xo9ShA9vHgop2Y +rwSF9Z6hOcvWiTfYFdHxjQL0VgSFZkQH9v+er22IL36DQumK9E7smvawnD+0 +TlRtGJjShT3c3Rx7tO4D8s5Yb9aNLcNW9pi16EHZYaY+vdh2P2JNIlq/oLeT +L771YT/8MywUXdyPXI3ruyns9yeljlUFD6BMf1nj79jjgvThaRob8ZexF8aw +BZND3fU4g0jTSJY2hS0vmt0UVjeEogzrX3OxHWVnb4xbjKItUWZWAgSFyDwl +Se1l42hSR01ZGDtedWdCYOsPFON85KA49gepd5sji38ijZ8+BsrYzH0BBy8k +T6IOQW6tFvZEFs+1yuApVFY9X6yPvUxJe/VP2gw65eTSbIWdyWy0Wi0xiwIm +8n/twla46R6vw5lF3nl+FzyxjTcmjgfVcdFY+2bBCGx/wy+twxZ/0Psaie8F +2NPRh5esUJtHwD8SWIl9ok5om8ayv+iyoJ57A/YVML51oHUBzXrKRfQu1lfY +RA8v5oU0ycCCdSSFip9f6DspywdP+tkx2tgT37xj05P5wF38Q50pdqzmzJ3y +YH4YtVc9zsDOvK2o/IMmAGqhUfNl2N3tow//5gvA+aJH6o3YCpP3962UEAQ3 +bkJ9F3aJvmOGNkcQNOeSVfkOUOhpTQzvobplwBf834wH9kxjx5chC2FIso9L +VfankJi98OpjD4XB7VXQTcDWfUcHERMR8CUubffGDqDu5W3etBLi1K/0/4sd +ytequ114NbAsziyTOUghtlLZz4RZURi5atGhE4D7QzYvb9MTA0IopMEVm+/W +oOLaMDG4aDeiGYOtoLfeuXhEDN4M9Rx5jr3PIq3ydZ84zOa9+8kMpFCbX3iE +VIsEqGWyDtQcotDnm6lJvsskoWT9Pc1B7NGR4vyiHZLw95FOoHgQhVZEDnRs +bZCEUOcjzBBs+hlXfd97UpAc9z9j7WAK1RYYzrBypeGZ3L/+DSEUKmDPRW2J +lIMq7TQuPYJC1rvPfo4olQOphQ3+x7FHn4pblg7KgcYZ7x1V2PoFGyUU3OXB +JIZlrRGJ+8nwviNguh5sqmbD1xym0OSPviNDpxXgt2a820IUhcSD6HfvOCjB +tfWbo9WPUWiwYIW/U4AStJ2czg3Cru5plx1LVAKvNfkGd7E97b1OqzUogVlF +a7F5LK5PK8r5Kk0ZeHlz65nH8f+Hb07ESanATdv7Jx7EU8j1gJC2bb8qHAm3 +zX18hkIoajdt77wquDMyBsQTKKSZkGvElFaDpTWf0klsnnw987hdatD6Nm6j +SCKFSj977K18rAZLRL32+ZzF93NPyUmZ6+rgzDH+T+ocro/u8H6YoQFXJHWa +us5TKN/l8idOHLbPe2ejNAqlMvr7lvynAbL8Q1aXsZknDo/Id2jA9Ui3MLd0 +ConWZ/O4WGhCZPqbx18y8PnRG9esU9aCsBgHT75LFJJVOh+fRG0EnaSo9MtZ +FKo/N63xi08biu2qbotk435Mub8jFbVBk1VndwY756mKhrm3Nmz6T2s+PIdC +Sgdq33K7tKHZXtdyTx5ebwlblWzZBEnNnof1CygkJytPKrjrAqX+KmhnCYU2 +FkYK/0Y02Df9l5/3IYUYzNMz2o40+FPE+yAZ+4pyxmdfTxrw2L6m1j6iEP/1 +2+XPo2nQMPnxBK0B37ecYdeMChrIetqPBDzB7+kV32wNZT34G2aQOvEc72+S +/SY3QX2YqPl38852Cl0LV3G612oADyU61TwoCrVHIaMzhSbw1Lzh5XsJNlL0 +7nT0OrQdRL63eKU6shGxUFUmdxTAMJJPovscG0mNVC+VYpjDuFnC47B3bBSp +t60nQ5MOC8sdnXkVBxFj7E+T+PAOsE07VpQRMYhKzSOW5rZZQRtL8cHDzkFU +MB3wuCTTBor9KwIzTL4hrtnaV0/j7aCHx9TkR9k31MvD/7N/vwOctZPdflVr +CAWvC0k7qbwTlFw5ipGsIVR2sKnhYoITuN7V4Ttg8h3FTElztA7ugs/SrPnG +l9/RjK3lnhc+zqAjo39UN3QYmXikm7F3ucAJMb43jXIj6K10dsBTPVcoYA19 +etU0gmRunK5nbdgNZEGOj1LyKKru07R3FNkDREq+WZndGJJ/N3EgamwPpLXM +H/+6ahzpXUwvye/bCz0ifZU9Y+Moe8nUpoxGN9AylzHTffYDVZnpdCfUuMOx +M0JPIjwm0BWjc6J/iveByMpw1nTnBGr7VJiol+wBddppWWD3E91zyFIJPeEJ +p3PXVG999RP9DHLhCWZ6wZFTV5dctZ5EM5Ya/uMW3gDLGazXTyYRa+wjN8LQ +B3oebfESsp5CbtcK/byEfUF+IYxH9ukUulNp58N/1hfYltaeljbTyET27a// +/fIFjaPD/+5unEbKfQe63xzcDxOcpfKvjGYQJRS4M2tgP3zlluftrJhB7amO +fla7GdB2oWnj/LpZlBmdK3S4nQHn/EoTVp2bRfUPF3752fiBxEthz9Wjs2iV +J5zVq/WD2p63X3RMOUhhzYu2dfV+MJdXXhyHOEi31WGt4EM/KDx8oboVOMh5 +m0fRh8d+kKGyIYu04KDMdVEtx1/i+UMdR9OtOUim99aqpg9+UOPaYtPozEEq +3lJXPDl+MLtvSuoiyUEmvuOsBH0mWF9Pe9SXxEE3rk5EOBoyYePS+7wjyRy0 +pmPSVMqYCfbXi1KnUzhofAfnHWsrE+x4RP4RSOPg94uHt9WcCYk8iZPymRy0 +kiPqLraLCb5h0ZE6WRxEpRgszw1iwtC6voJntzgotS72YPUNJojTiNHaJg4K +ol02iWYx4XCj5UD6Sw6yL6pYblzMhAxSa71/MwetuDxYdL+UCc3sHYRYKwcl +hDsNV91lwnTJI1XvNg6K1VAJvPeECchoq9PbTg4KuNxyqPIzE+pqQiQ3fuUg +m5WD28L7mMCvDntHsDck8IjQvjLBVOZqV9EABw2GG5RWsJmwhRddUmFz0H7H +3LHyUSaEGfQIig5xkJtARPDtOSYsLWSnPxvjIKsImdASSQIyho9vzeJy0JPc +RNuMtQQ0DJvRd/3ioG2tkyrRMgToXLrLFJjD+6Xa8tFCngDmw5GRgN8cJN11 +zOKTKgHI5dJKrb8cNLKlV3KFAQHTEabH4/m56Dxf3oMDLgRE9he9PiLCRSt0 +hK847CZgR4D1kVUrueiMR3S43l4CQuibaTewo+86qS/sI8C4kP65fRUX7Sd5 +0y8xCBhUpQnJinGRXjOD+SyMgKWs0UunJLmoK11VSDmNgBPZ+6Oz5bmoDIn4 +D6UT8FuNvnTVepw/Nv209AIBFyVsG+OxaTZP44wvEyA45vbEW4GLUnn8Jh1y +CCA9az+KKXGRZUjex+gSAloW2HtdVLlITu4fQ9MyvF4369L72NPNIRf4y3F+ +ieUmWTUuuq6GHFLvEND9o67yC/Z8b29Dfi0BQT3ijd4buOiuvSzrdRMBR74E +j+trcVHSHJ9AZjMBn6rQVBI2gzW8370V95vtqvQVe/WSWlmqjYDwuT9/kzZy +0aE6t/O/3hOgEaFc3qnNRcqal6JU2AS85CX6QZeL5rqOd3wfJED0UebJc9jt +CYTu7SECulj9th3Ycf36wyajBEh/O+/G2MxF3Vc6vHZOEZC1JsI7isZFGUtF +d8TwkrAgkiMYpc9F9ZO9HpH8JHwTiVaqwf7WWxweLEDCrT97Nv/G3naXnsdY +TkJtZZd6rAEXDfpG/7YVJeFXZf/hMENcv/0OsR3iJGww+6xegr3VSEwDSZBw +rWRnKxs7TaRkj540CbFtjqO7jfB87ZcKWUUSPisvJGoYcxFZWNIkoUyCkHd/ +swd2WtrRL6tUSXB9UMeTgj1Iioss0SAh0lnBfHRxXtzKf1SXhLcl2jI5JlxU ++1c8fpBGwqHnLqMvsNnf+y726ZOwpm5Z+QT2loaYxnfGJKxynxBCW7iIOlQm +/wBImI2IX9OGvdLtmMF9cxK2OQ2ETWCbWFjbV9BJWLb9RMPqrfi8SH89WmhN +AlsHNjtiVy+5nZZrS8I/QbtcArEHfhy7edWehBbNaPIstvFzic4UJxISJ9g+ +9diMiq8jZ51JEM6Xs+zETsm6zXfKlQQbDXu5Meyv4Ta6UW4kbPILz5HexkUi +3pJWoftI4NP3st6EbWwz4BXgScKQmOqAGXbK+uNJ3r4k6GQajBDY1Stsr7sx +SPB9EeEWhf11RrLGmUmCg2ZMVcJiXv9Amz1JQqkNXSBzMa+1fNDSn4Qcntf0 +a9iM+8fnIYCE4Wjxw6WL+ddt12w9RMILTdFL1Yv5KVJaBsEkrO1tvPlkMT+a +MtMJJUG3cENxC7Yws8JNI5wEsW/bsjuwjXbGhShHkgC7/57oXszfYpcoF0VC +x0TA7j7sZNW12VLRJKQsPynDxq5azb4jGkNC+XbUPoTd/7uiWSiWhPUxBVEj +i/nf4voF4kjwmbstMoZt+NaOuxBPwmnr/RcX/X8BEN6Q + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk0Vd0bB3BDNKBCCJFZSHTNDfaDm5mEioxd95xEZkkSTfT+MoQ0va+p +UJcQKpkqpUEoSlKiyLmSKZnuTclv++OsvT5rr/U9z372oMgIcSb4eHh4hvC3 +OIa93qR+v/21qabxd9F2JoVMxwsMGPQSdGqtgtWi+3INM1Xo9ShA9vHgop2Y +rwSF9Z6hOcvWiTfYFdHxjQL0VgSFZkQH9v+er22IL36DQumK9E7smvawnD+0 +TlRtGJjShT3c3Rx7tO4D8s5Yb9aNLcNW9pi16EHZYaY+vdh2P2JNIlq/oLeT +L771YT/8MywUXdyPXI3ruyns9yeljlUFD6BMf1nj79jjgvThaRob8ZexF8aw +BZND3fU4g0jTSJY2hS0vmt0UVjeEogzrX3OxHWVnb4xbjKItUWZWAgSFyDwl +Se1l42hSR01ZGDtedWdCYOsPFON85KA49gepd5sji38ijZ8+BsrYzH0BBy8k +T6IOQW6tFvZEFs+1yuApVFY9X6yPvUxJe/VP2gw65eTSbIWdyWy0Wi0xiwIm +8n/twla46R6vw5lF3nl+FzyxjTcmjgfVcdFY+2bBCGx/wy+twxZ/0Psaie8F +2NPRh5esUJtHwD8SWIl9ok5om8ayv+iyoJ57A/YVML51oHUBzXrKRfQu1lfY +RA8v5oU0ycCCdSSFip9f6DspywdP+tkx2tgT37xj05P5wF38Q50pdqzmzJ3y +YH4YtVc9zsDOvK2o/IMmAGqhUfNl2N3tow//5gvA+aJH6o3YCpP3962UEAQ3 +bkJ9F3aJvmOGNkcQNOeSVfkOUOhpTQzvobplwBf834wH9kxjx5chC2FIso9L +VfankJi98OpjD4XB7VXQTcDWfUcHERMR8CUubffGDqDu5W3etBLi1K/0/4sd +ytequ114NbAsziyTOUghtlLZz4RZURi5atGhE4D7QzYvb9MTA0IopMEVm+/W +oOLaMDG4aDeiGYOtoLfeuXhEDN4M9Rx5jr3PIq3ydZ84zOa9+8kMpFCbX3iE +VIsEqGWyDtQcotDnm6lJvsskoWT9Pc1B7NGR4vyiHZLw95FOoHgQhVZEDnRs +bZCEUOcjzBBs+hlXfd97UpAc9z9j7WAK1RYYzrBypeGZ3L/+DSEUKmDPRW2J +lIMq7TQuPYJC1rvPfo4olQOphQ3+x7FHn4pblg7KgcYZ7x1V2PoFGyUU3OXB +JIZlrRGJ+8nwviNguh5sqmbD1xym0OSPviNDpxXgt2a820IUhcSD6HfvOCjB +tfWbo9WPUWiwYIW/U4AStJ2czg3Cru5plx1LVAKvNfkGd7E97b1OqzUogVlF +a7F5LK5PK8r5Kk0ZeHlz65nH8f+Hb07ESanATdv7Jx7EU8j1gJC2bb8qHAm3 +zX18hkIoajdt77wquDMyBsQTKKSZkGvElFaDpTWf0klsnnw987hdatD6Nm6j +SCKFSj977K18rAZLRL32+ZzF93NPyUmZ6+rgzDH+T+ocro/u8H6YoQFXJHWa +us5TKN/l8idOHLbPe2ejNAqlMvr7lvynAbL8Q1aXsZknDo/Id2jA9Ui3MLd0 +ConWZ/O4WGhCZPqbx18y8PnRG9esU9aCsBgHT75LFJJVOh+fRG0EnaSo9MtZ +FKo/N63xi08biu2qbotk435Mub8jFbVBk1VndwY756mKhrm3Nmz6T2s+PIdC +Sgdq33K7tKHZXtdyTx5ebwlblWzZBEnNnof1CygkJytPKrjrAqX+KmhnCYU2 +FkYK/0Y02Df9l5/3IYUYzNMz2o40+FPE+yAZ+4pyxmdfTxrw2L6m1j6iEP/1 +2+XPo2nQMPnxBK0B37ecYdeMChrIetqPBDzB7+kV32wNZT34G2aQOvEc72+S +/SY3QX2YqPl38852Cl0LV3G612oADyU61TwoCrVHIaMzhSbw1Lzh5XsJNlL0 +7nT0OrQdRL63eKU6shGxUFUmdxTAMJJPovscG0mNVC+VYpjDuFnC47B3bBSp +t60nQ5MOC8sdnXkVBxFj7E+T+PAOsE07VpQRMYhKzSOW5rZZQRtL8cHDzkFU +MB3wuCTTBor9KwIzTL4hrtnaV0/j7aCHx9TkR9k31MvD/7N/vwOctZPdflVr +CAWvC0k7qbwTlFw5ipGsIVR2sKnhYoITuN7V4Ttg8h3FTElztA7ugs/SrPnG +l9/RjK3lnhc+zqAjo39UN3QYmXikm7F3ucAJMb43jXIj6K10dsBTPVcoYA19 +etU0gmRunK5nbdgNZEGOj1LyKKru07R3FNkDREq+WZndGJJ/N3EgamwPpLXM +H/+6ahzpXUwvye/bCz0ifZU9Y+Moe8nUpoxGN9AylzHTffYDVZnpdCfUuMOx +M0JPIjwm0BWjc6J/iveByMpw1nTnBGr7VJiol+wBddppWWD3E91zyFIJPeEJ +p3PXVG999RP9DHLhCWZ6wZFTV5dctZ5EM5Ya/uMW3gDLGazXTyYRa+wjN8LQ +B3oebfESsp5CbtcK/byEfUF+IYxH9ukUulNp58N/1hfYltaeljbTyET27a// +/fIFjaPD/+5unEbKfQe63xzcDxOcpfKvjGYQJRS4M2tgP3zlluftrJhB7amO +fla7GdB2oWnj/LpZlBmdK3S4nQHn/EoTVp2bRfUPF3752fiBxEthz9Wjs2iV +J5zVq/WD2p63X3RMOUhhzYu2dfV+MJdXXhyHOEi31WGt4EM/KDx8oboVOMh5 +m0fRh8d+kKGyIYu04KDMdVEtx1/i+UMdR9OtOUim99aqpg9+UOPaYtPozEEq +3lJXPDl+MLtvSuoiyUEmvuOsBH0mWF9Pe9SXxEE3rk5EOBoyYePS+7wjyRy0 +pmPSVMqYCfbXi1KnUzhofAfnHWsrE+x4RP4RSOPg94uHt9WcCYk8iZPymRy0 +kiPqLraLCb5h0ZE6WRxEpRgszw1iwtC6voJntzgotS72YPUNJojTiNHaJg4K +ol02iWYx4XCj5UD6Sw6yL6pYblzMhAxSa71/MwetuDxYdL+UCc3sHYRYKwcl +hDsNV91lwnTJI1XvNg6K1VAJvPeECchoq9PbTg4KuNxyqPIzE+pqQiQ3fuUg +m5WD28L7mMCvDntHsDck8IjQvjLBVOZqV9EABw2GG5RWsJmwhRddUmFz0H7H +3LHyUSaEGfQIig5xkJtARPDtOSYsLWSnPxvjIKsImdASSQIyho9vzeJy0JPc +RNuMtQQ0DJvRd/3ioG2tkyrRMgToXLrLFJjD+6Xa8tFCngDmw5GRgN8cJN11 +zOKTKgHI5dJKrb8cNLKlV3KFAQHTEabH4/m56Dxf3oMDLgRE9he9PiLCRSt0 +hK847CZgR4D1kVUrueiMR3S43l4CQuibaTewo+86qS/sI8C4kP65fRUX7Sd5 +0y8xCBhUpQnJinGRXjOD+SyMgKWs0UunJLmoK11VSDmNgBPZ+6Oz5bmoDIn4 +D6UT8FuNvnTVepw/Nv209AIBFyVsG+OxaTZP44wvEyA45vbEW4GLUnn8Jh1y +CCA9az+KKXGRZUjex+gSAloW2HtdVLlITu4fQ9MyvF4369L72NPNIRf4y3F+ +ieUmWTUuuq6GHFLvEND9o67yC/Z8b29Dfi0BQT3ijd4buOiuvSzrdRMBR74E +j+trcVHSHJ9AZjMBn6rQVBI2gzW8370V95vtqvQVe/WSWlmqjYDwuT9/kzZy +0aE6t/O/3hOgEaFc3qnNRcqal6JU2AS85CX6QZeL5rqOd3wfJED0UebJc9jt +CYTu7SECulj9th3Ycf36wyajBEh/O+/G2MxF3Vc6vHZOEZC1JsI7isZFGUtF +d8TwkrAgkiMYpc9F9ZO9HpH8JHwTiVaqwf7WWxweLEDCrT97Nv/G3naXnsdY +TkJtZZd6rAEXDfpG/7YVJeFXZf/hMENcv/0OsR3iJGww+6xegr3VSEwDSZBw +rWRnKxs7TaRkj540CbFtjqO7jfB87ZcKWUUSPisvJGoYcxFZWNIkoUyCkHd/ +swd2WtrRL6tUSXB9UMeTgj1Iioss0SAh0lnBfHRxXtzKf1SXhLcl2jI5JlxU ++1c8fpBGwqHnLqMvsNnf+y726ZOwpm5Z+QT2loaYxnfGJKxynxBCW7iIOlQm +/wBImI2IX9OGvdLtmMF9cxK2OQ2ETWCbWFjbV9BJWLb9RMPqrfi8SH89WmhN +AlsHNjtiVy+5nZZrS8I/QbtcArEHfhy7edWehBbNaPIstvFzic4UJxISJ9g+ +9diMiq8jZ51JEM6Xs+zETsm6zXfKlQQbDXu5Meyv4Ta6UW4kbPILz5HexkUi +3pJWoftI4NP3st6EbWwz4BXgScKQmOqAGXbK+uNJ3r4k6GQajBDY1Stsr7sx +SPB9EeEWhf11RrLGmUmCg2ZMVcJiXv9Amz1JQqkNXSBzMa+1fNDSn4Qcntf0 +a9iM+8fnIYCE4Wjxw6WL+ddt12w9RMILTdFL1Yv5KVJaBsEkrO1tvPlkMT+a +MtMJJUG3cENxC7Yws8JNI5wEsW/bsjuwjXbGhShHkgC7/57oXszfYpcoF0VC +x0TA7j7sZNW12VLRJKQsPynDxq5azb4jGkNC+XbUPoTd/7uiWSiWhPUxBVEj +i/nf4voF4kjwmbstMoZt+NaOuxBPwmnr/RcX/X8BEN6Q + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6373062467407682, + 1.5148750147969003`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6373062467407696}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.6373062467407682, + 1.5148750147969003`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6373062467407696}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk0Vd0bB3BDNKBCCJFZSHTNDfaDm5mEioxd95xEZkkSTfT+MoQ0va+p +UJcQKpkqpUEoSlKiyLmSKZnuTclv++OsvT5rr/U9z372oMgIcSb4eHh4hvC3 +OIa93qR+v/21qabxd9F2JoVMxwsMGPQSdGqtgtWi+3INM1Xo9ShA9vHgop2Y +rwSF9Z6hOcvWiTfYFdHxjQL0VgSFZkQH9v+er22IL36DQumK9E7smvawnD+0 +TlRtGJjShT3c3Rx7tO4D8s5Yb9aNLcNW9pi16EHZYaY+vdh2P2JNIlq/oLeT +L771YT/8MywUXdyPXI3ruyns9yeljlUFD6BMf1nj79jjgvThaRob8ZexF8aw +BZND3fU4g0jTSJY2hS0vmt0UVjeEogzrX3OxHWVnb4xbjKItUWZWAgSFyDwl +Se1l42hSR01ZGDtedWdCYOsPFON85KA49gepd5sji38ijZ8+BsrYzH0BBy8k +T6IOQW6tFvZEFs+1yuApVFY9X6yPvUxJe/VP2gw65eTSbIWdyWy0Wi0xiwIm +8n/twla46R6vw5lF3nl+FzyxjTcmjgfVcdFY+2bBCGx/wy+twxZ/0Psaie8F +2NPRh5esUJtHwD8SWIl9ok5om8ayv+iyoJ57A/YVML51oHUBzXrKRfQu1lfY +RA8v5oU0ycCCdSSFip9f6DspywdP+tkx2tgT37xj05P5wF38Q50pdqzmzJ3y +YH4YtVc9zsDOvK2o/IMmAGqhUfNl2N3tow//5gvA+aJH6o3YCpP3962UEAQ3 +bkJ9F3aJvmOGNkcQNOeSVfkOUOhpTQzvobplwBf834wH9kxjx5chC2FIso9L +VfankJi98OpjD4XB7VXQTcDWfUcHERMR8CUubffGDqDu5W3etBLi1K/0/4sd +ytequ114NbAsziyTOUghtlLZz4RZURi5atGhE4D7QzYvb9MTA0IopMEVm+/W +oOLaMDG4aDeiGYOtoLfeuXhEDN4M9Rx5jr3PIq3ydZ84zOa9+8kMpFCbX3iE +VIsEqGWyDtQcotDnm6lJvsskoWT9Pc1B7NGR4vyiHZLw95FOoHgQhVZEDnRs +bZCEUOcjzBBs+hlXfd97UpAc9z9j7WAK1RYYzrBypeGZ3L/+DSEUKmDPRW2J +lIMq7TQuPYJC1rvPfo4olQOphQ3+x7FHn4pblg7KgcYZ7x1V2PoFGyUU3OXB +JIZlrRGJ+8nwviNguh5sqmbD1xym0OSPviNDpxXgt2a820IUhcSD6HfvOCjB +tfWbo9WPUWiwYIW/U4AStJ2czg3Cru5plx1LVAKvNfkGd7E97b1OqzUogVlF +a7F5LK5PK8r5Kk0ZeHlz65nH8f+Hb07ESanATdv7Jx7EU8j1gJC2bb8qHAm3 +zX18hkIoajdt77wquDMyBsQTKKSZkGvElFaDpTWf0klsnnw987hdatD6Nm6j +SCKFSj977K18rAZLRL32+ZzF93NPyUmZ6+rgzDH+T+ocro/u8H6YoQFXJHWa +us5TKN/l8idOHLbPe2ejNAqlMvr7lvynAbL8Q1aXsZknDo/Id2jA9Ui3MLd0 +ConWZ/O4WGhCZPqbx18y8PnRG9esU9aCsBgHT75LFJJVOh+fRG0EnaSo9MtZ +FKo/N63xi08biu2qbotk435Mub8jFbVBk1VndwY756mKhrm3Nmz6T2s+PIdC +Sgdq33K7tKHZXtdyTx5ebwlblWzZBEnNnof1CygkJytPKrjrAqX+KmhnCYU2 +FkYK/0Y02Df9l5/3IYUYzNMz2o40+FPE+yAZ+4pyxmdfTxrw2L6m1j6iEP/1 +2+XPo2nQMPnxBK0B37ecYdeMChrIetqPBDzB7+kV32wNZT34G2aQOvEc72+S +/SY3QX2YqPl38852Cl0LV3G612oADyU61TwoCrVHIaMzhSbw1Lzh5XsJNlL0 +7nT0OrQdRL63eKU6shGxUFUmdxTAMJJPovscG0mNVC+VYpjDuFnC47B3bBSp +t60nQ5MOC8sdnXkVBxFj7E+T+PAOsE07VpQRMYhKzSOW5rZZQRtL8cHDzkFU +MB3wuCTTBor9KwIzTL4hrtnaV0/j7aCHx9TkR9k31MvD/7N/vwOctZPdflVr +CAWvC0k7qbwTlFw5ipGsIVR2sKnhYoITuN7V4Ttg8h3FTElztA7ugs/SrPnG +l9/RjK3lnhc+zqAjo39UN3QYmXikm7F3ucAJMb43jXIj6K10dsBTPVcoYA19 +etU0gmRunK5nbdgNZEGOj1LyKKru07R3FNkDREq+WZndGJJ/N3EgamwPpLXM +H/+6ahzpXUwvye/bCz0ifZU9Y+Moe8nUpoxGN9AylzHTffYDVZnpdCfUuMOx +M0JPIjwm0BWjc6J/iveByMpw1nTnBGr7VJiol+wBddppWWD3E91zyFIJPeEJ +p3PXVG999RP9DHLhCWZ6wZFTV5dctZ5EM5Ya/uMW3gDLGazXTyYRa+wjN8LQ +B3oebfESsp5CbtcK/byEfUF+IYxH9ukUulNp58N/1hfYltaeljbTyET27a// +/fIFjaPD/+5unEbKfQe63xzcDxOcpfKvjGYQJRS4M2tgP3zlluftrJhB7amO +fla7GdB2oWnj/LpZlBmdK3S4nQHn/EoTVp2bRfUPF3752fiBxEthz9Wjs2iV +J5zVq/WD2p63X3RMOUhhzYu2dfV+MJdXXhyHOEi31WGt4EM/KDx8oboVOMh5 +m0fRh8d+kKGyIYu04KDMdVEtx1/i+UMdR9OtOUim99aqpg9+UOPaYtPozEEq +3lJXPDl+MLtvSuoiyUEmvuOsBH0mWF9Pe9SXxEE3rk5EOBoyYePS+7wjyRy0 +pmPSVMqYCfbXi1KnUzhofAfnHWsrE+x4RP4RSOPg94uHt9WcCYk8iZPymRy0 +kiPqLraLCb5h0ZE6WRxEpRgszw1iwtC6voJntzgotS72YPUNJojTiNHaJg4K +ol02iWYx4XCj5UD6Sw6yL6pYblzMhAxSa71/MwetuDxYdL+UCc3sHYRYKwcl +hDsNV91lwnTJI1XvNg6K1VAJvPeECchoq9PbTg4KuNxyqPIzE+pqQiQ3fuUg +m5WD28L7mMCvDntHsDck8IjQvjLBVOZqV9EABw2GG5RWsJmwhRddUmFz0H7H +3LHyUSaEGfQIig5xkJtARPDtOSYsLWSnPxvjIKsImdASSQIyho9vzeJy0JPc +RNuMtQQ0DJvRd/3ioG2tkyrRMgToXLrLFJjD+6Xa8tFCngDmw5GRgN8cJN11 +zOKTKgHI5dJKrb8cNLKlV3KFAQHTEabH4/m56Dxf3oMDLgRE9he9PiLCRSt0 +hK847CZgR4D1kVUrueiMR3S43l4CQuibaTewo+86qS/sI8C4kP65fRUX7Sd5 +0y8xCBhUpQnJinGRXjOD+SyMgKWs0UunJLmoK11VSDmNgBPZ+6Oz5bmoDIn4 +D6UT8FuNvnTVepw/Nv209AIBFyVsG+OxaTZP44wvEyA45vbEW4GLUnn8Jh1y +CCA9az+KKXGRZUjex+gSAloW2HtdVLlITu4fQ9MyvF4369L72NPNIRf4y3F+ +ieUmWTUuuq6GHFLvEND9o67yC/Z8b29Dfi0BQT3ijd4buOiuvSzrdRMBR74E +j+trcVHSHJ9AZjMBn6rQVBI2gzW8370V95vtqvQVe/WSWlmqjYDwuT9/kzZy +0aE6t/O/3hOgEaFc3qnNRcqal6JU2AS85CX6QZeL5rqOd3wfJED0UebJc9jt +CYTu7SECulj9th3Ycf36wyajBEh/O+/G2MxF3Vc6vHZOEZC1JsI7isZFGUtF +d8TwkrAgkiMYpc9F9ZO9HpH8JHwTiVaqwf7WWxweLEDCrT97Nv/G3naXnsdY +TkJtZZd6rAEXDfpG/7YVJeFXZf/hMENcv/0OsR3iJGww+6xegr3VSEwDSZBw +rWRnKxs7TaRkj540CbFtjqO7jfB87ZcKWUUSPisvJGoYcxFZWNIkoUyCkHd/ +swd2WtrRL6tUSXB9UMeTgj1Iioss0SAh0lnBfHRxXtzKf1SXhLcl2jI5JlxU ++1c8fpBGwqHnLqMvsNnf+y726ZOwpm5Z+QT2loaYxnfGJKxynxBCW7iIOlQm +/wBImI2IX9OGvdLtmMF9cxK2OQ2ETWCbWFjbV9BJWLb9RMPqrfi8SH89WmhN +AlsHNjtiVy+5nZZrS8I/QbtcArEHfhy7edWehBbNaPIstvFzic4UJxISJ9g+ +9diMiq8jZ51JEM6Xs+zETsm6zXfKlQQbDXu5Meyv4Ta6UW4kbPILz5HexkUi +3pJWoftI4NP3st6EbWwz4BXgScKQmOqAGXbK+uNJ3r4k6GQajBDY1Stsr7sx +SPB9EeEWhf11RrLGmUmCg2ZMVcJiXv9Amz1JQqkNXSBzMa+1fNDSn4Qcntf0 +a9iM+8fnIYCE4Wjxw6WL+ddt12w9RMILTdFL1Yv5KVJaBsEkrO1tvPlkMT+a +MtMJJUG3cENxC7Yws8JNI5wEsW/bsjuwjXbGhShHkgC7/57oXszfYpcoF0VC +x0TA7j7sZNW12VLRJKQsPynDxq5azb4jGkNC+XbUPoTd/7uiWSiWhPUxBVEj +i/nf4voF4kjwmbstMoZt+NaOuxBPwmnr/RcX/X8BEN6Q + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6373062467407682, 1.5148750147969003`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6373062467407696}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.6373062467407696}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "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.6373062467407682, 1.5148750147969003`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99211022356826*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"e2f9067f-850c-9a4c-ab02-bd8a1df03859"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991847500514847*^9, {3.991847890840927*^9, 3.991847891020767*^9}}, + CellLabel->"In[96]:=",ExpressionUUID->"b7386bff-07bb-694b-b11c-7d3ff3a35bae"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.22048080986939`*^-270\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 96, + 622, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992110223941353*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"0d5c0c65-b068-6440-9579-5a91dd4f118b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.102319174261917`*^-282\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 96, + 623, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921102239704475`*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"de473ecb-83e5-534f-a565-dccce1defba1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.682862393712884`*^-295\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 96, + 624, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992110223987459*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"b1da91c4-9bfa-7f45-9297-c4eb628dc75b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 96, 625, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921102240063515`*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"1f75219c-ad3d-7b4f-963e-f3de99d75029"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk0VesbB3AKZUjmOPvg0DGWqUOZ8jyRIum6Ik2iUyhKrlIylggVmaIS +MpYIcfa+laJQSqZKIlQ3KYmr28k89Nu/P/ba67PWu/Z+1nqf5/u+atwjzl4L +BAQE5ujn/++sCK6I0f5Mq/wfl80paWurhteszW6skzA/zqjgpLLg99OaMyxW +PIy90LCXTDWErEcJqsKsK+BAbdeZSEE4tDbo8IRqMZB5Gwe7U5zg9cyBtB+q +90Bzhh0dneIJi3o+aY2oPgcdqd5XVskBkNuU89d31W6oT7o5bHjhFJSVx/cc +0h+Cp9OaPROayeADL68MB/IBPl06lGZ7BfwHdPp5ZVNgZBfOPxp5HcTUorU+ +mArgnJO77a0zBZAo9UI313Mh8oZq15RJ3QRuj0vtwmYRjBa/8+JIcQn89SSa +e0RLDIVXMbuWDpbBnQCJrYr2S/CZ/BiZ+LoCckP9hgzdpPBjUMWrLs1KiMqZ +/fPXsDTKGF//9w/zKnAyvPvXCr40CtWkv1ptVQUqj48mc6ekkZ3z1JKwroL7 +n4ba24Vl0Dt6OK/Xvgp+anT/cVtFBh/LaFSs21EF3FLS0dtJBj+O5mennaiC +dff87buqZFDQxsR3d2UVCLz+iA9CZLFvlvLyZfEg+ltNbshpWTwuM5w5uZwH +ogJZC8ziZDFC7FvPGS0eyOjtaCAvyWJkZ21wsj4PNGJfbiyvkMV8x9vq8ZY8 +2GRRtyXviyzaaFuzhtx4kJqfvzvOWQ6nXpzQC7zAA8X7px9u2CGHkZq5/rkX +eXCt3UNF2FMOD31V+LslhQdFc8TH04fl8Fp0o7vyFR7cdUvbFxonh8HNZwSv +FPKgVzzG179GDk9c+JYtWMMDzWPewS668lirK2p+eZgHeuYftuYYyuMzq2v2 +pqM8MBbYbjC0Wh6VS3Xq3/zHA+sL9l8ibeTx38N7fy2e4MGegpUuJbvlMb8g +z8lJkIT0jp8GCy7KY3DX0jmuPAnCJpFfy/ny2GXeWHjZggSJmYm66Sl5LFPL +kfuylgSZxwHZtgIKeO1zz6ghksBy5Lr2SCjgYAL/e816Eiy9bOtFNBVQ7FbD +XLUjCccuiee4b1fAq4c/5Jl7kPB5LGOb+EMFzG5/9XnTKRLy1nGO9tUr4KaA +jssBUSR4JLReLG9SwMxLEg6p0SS8Yws/39qlgF9XCJS0xZHwcmugxTW+Al6I +MPVgJ5NQc2czS093GRab2bSszSUh47Dg0JaMZVjvHxOzqpYEl3vXRNSyl2Ff +Mvfk5CO6fmHT5fyCZSi16/7R6joSEq/5786oXIZxGZLhpk9JiH7R0/qhZRnO +MT4MSbaQEKBDVQUIKeIB96GTeu9I2DTgG57ylyLqvs9+yPlJwobw5aXrgxXx +je679DQ+Cdbyve/GIxTxder1az9/kWBu62i664IiFtWAQdEECbqFBvzlNxRx +sGU+5PssCeJevw6QvYq4L4kQGBWhYPFcaYZPvyKemTzeqr6YAqFLXk+VhhTx +07d9bVtFKZht6FweMaGIae9jfW+LUzDMvvd+g4wSnqP0pEGKgubP4S5dG5Uw +T+NoaK8iBc/CVp85t0UJBzRT8/uVKGiQG71j6aqEkqt7hAYZFDxY77k0l6uE +d4OuHRtkUlBaYN10MFwJjTuk5J+xKEjYvwhnKpXQd5z/YIE2Bedma/1v31PC +RBFuaR/ts2nBWR6PlNBthNFL6lAQ0fBtur5FCfVq7ObdV1Dgz24mLwwqYXdW +5c4EfQq2fE5aoaLCwM52v/cHjOl6V3zu2M1mYKyo1FYJEwocjq6JyNRl4MEB +e9/btO0WvG9XXMPAi2uIqMHVFFizVhyXdWJg1mAK19qMgkc+EarO2xgYwcKJ +V7Sh/OWzpN0MlDjx1GivOQWWVsGE5EEGrk9fdPW4BQUmu588WhzFwKQ7UjYx +ayng5Sv6boxjoCOaySy0omDVdz/Zs4kMFF2ScS6Ctn6IjPfCTAbKld4I9gcK +tC97iM9X0etNtbatWkdB0YdKnuV9BgptEAzNoq2hJbIn9BED9ceiN4tYU6BO +lVZMNjPwa9ymiXbazI4pV/4AA18mrgzetJ6Cq4Tjb6NhBr6SKZfMp6207/rN +gJ8MVIr0cZ2irfBzw8zIPAO1V28cy7alIM3sasFKYQL1513/+Je27OkRRz9x +Ai/ePLjLYgMFUlJp1weXESiUF3i+lXai21d7LRUCXbY7V8htpGBJjjnfi00g +s1Y8fjttMf1/bPsNCdTz+ezWTXvhZv3vffYE3nqiH1xrR0FU6uk0phOBh4ge +Oz5tgZ6Otbu2EWiwmPmSbU/348HQpC4uga7/gNhp2iF3Ws2WHSQwo0X+QQnt +qUm1ftcjBNo4eWt10B6PfWbyOpRA+ynPlSqbKDjWRnyQjiIw6odAI9DmKxyJ +c4oj8KTqImUP2oF76owuJhK4bcuofhjtH4XyPS1pBHKzTebSafuPHIiWyCSw +M35bXDntEeMHeg65BN7ob21/QvtQ2NK38TcIdH5LvO2mPVTPPfXsNoElg/cz +v9NWTe7yTeQR+Ihd5TJL22XPFleXagJ3OTv5iDlQEL+iARh1BC4d43TI066Z +NNP9+IzA06IC11Ro85+UyxW1Eagq7FbLpq2dqvHbr5PA3jc9Vtq03T0zvxn1 +Edj0jxGhQztFT7pjop/A7yJzLlq0G6fP1jwcIrDx6j/D6rRnG2dvnvmPQDPf +6H6CttGlwFT7SXo/750zk6HtzR0MX/qbwMJ1V0eFaWca7DnwRpiJo8Y7RCbo ++ttnXztnSjCx2sw/YoC2SJP92r2yTOQdOrX9JW2LjFotLQYTBzzWXLpPO2C/ +icwIi4kXGBYmubSLjEpmK7WYWKFobBZDu2ee9TVYn4lfN73I9aYt1Zz+0sqE +ifPyt47Y0ra9IvFAyJKJxc4h+Wq0Q7yjipqsmWju+GXtDL3fnwX8Q7c5MTF2 +xLK4iLZSa78X042JWn4RocG0t2TucPrkzsSPrqJ/b6R918RWw9+PiVbiZYfe +0/02sqB6qXEgE52s1AcLaau3G05PBTOxrCytzZf2BV9mW8xZJgby9QaG6f59 +vCblnkMCE99RlXK3aI8LLS6QTmOiwKX/KvfT9szhB2fl0v933GP1ip4P444m +dfIBE2fynQoS6Xk6mItLQuuZqKkh4L6GdrY/NYFNdH1bx+P76HlcLJrX3PyW +iY+1Y2zUafetPXn8808mjgd8s0ug51tGfNTz1hQTT6nF/a1G265rv0OAgDIG +uMlfr6LzoTLQiTW7RBnnjN/+04Z0ft7QapLVUca1S2Qth/6fN9KdyjYeyrh7 +efpIEZ1fXxK+RF3yUsY3rKUWyrSzxCa+fvVTxpHaeo9kOu8khBQrLwQro+T4 +RqOjpnR/j+/Y0JlMfz+2UFiZzsvC3j7/gw3KuNB5ckbUiILdO/59Xd2kjC9F +Z4T3GFIg1zlvKvlSGbfOzfwoN6DnvU11YVUfvf7w0UOOdF571u3NmB1XxnSz +ArEjdJ4zbw7UXtRRwUPV2wMcNSjoYI+zPxmoYLKI+ZtINgXnc0XOGa9WwQ9x +GhoVyymYvqrl0m2tgm4fb8SJqVPQlXBwUH23CobUrAsoUqEg9eiIFJWogpaM +oT9Dl9F5BGN7e/kqOL6lZSRrEQXB67QXU9MquIh9zjSYPh+/2Owquyioim/b +mbpOwhTU2T2etl6qihoqK4WnFtD955yQWqyriiuVP1bqz5Pw3UvjyfG9qjg6 +o3xblz6Pmy+4aku3qaLESLWR33v6fL4Y1zr0RhVbKgcWzvaScDO5+lhDryqO +dDdcPtdD3wfS1R6fGFJF+yqOZG4XCSrt4ytHF7CQl9iJVa9I6Oyue+KqwkKp +nDWJh+n7w8aRnRPqrix07l/GwlISsuXOvI7czsJGx50LUm+R8MuipLx3Fwtr +t8287b9JwvVzMz7pXBYuMe/2jCwkYVrrWpdoAAuXPUwSzM4moZTbd+/HORYO +rJZcH5JEglSXR1jNIxbqlaUKkoEkdNXtF9y5Ug3d7XOLvYxI+LHuHSPcQA0d +5FrT9xqQsOjxH8bXV6lhw4qjI7v0SFhda+7zxVQNZ2bZ7xx0SEirlmoJtFXD +6Cz2U0U1Ev7gPbh8fo8abijpSfKRIuFpoZzhwyQ1fJHyyfT9CA/IuIY9rDE1 +LL332WNnAQ+8hYM+traqY4rdiV6Tn1WwLzCUlLi6HL8EcK0z1lSBgc+K1s17 +2dh9uJXXFFAJbTIrxYPMNNCvo6v607k7UF0WlblyoSYy1gr2ad2qgFBBXafm +Pk18NjB64JV7OYj1htj587TwvGTxYJDPbRgoUkvLCdPGS008WYOkEkjTVhK6 +56qDBX6NG4+nFkPSVe/GvSxdNB6ebdervQE709xbJb7qIm9slc7IXCFMri+c +yqlZgUSVc+03dgH0D1gH18WuRN322UXfQ/Mgb60R0bJXD5f7OuTG1V+H2zFB +0j56+qiAVGxQSDbEuu5zWDimj9ptGsGfijLBpDe3OLbFAFd1jollP70Ml3Uy +b7c4GOKa+smTSzakQ+SjhMsO9wzx+QnXX7N1qeBIuBY2sY2Qr+ouMRyRDOv8 +G3dJxxthSrPIQy/li5DD5LKbx4ywVvyDr77deWDX30jfsmsVnl2d6P23aBwk +6dXpvqpZhSHp1IdprRjw5gu9fK7LQX4aw2L/9ijg3vnJir/Iwaby+LYlAqfg +UNTW2U3JHFxhZXV363AkBG3lvZVI5WCa3lDdpa5IiBsLSkxK56DnjZKcNXci +ocxsaiYji4OcTAXiJzcSph7/7iwq4WAhZ9YcnkVA0iuJhIZGDr7700B9+dVw +uJp/+MDZ5xzctaFzaWpsOOQfa7Wxe8HB0bP9MRJB4UApJE2/aOXgCwmRecIp +HHp3yh54/YaDPQ8t6kpFwkGrX8nmUz8H375pvJsSFAaGvBCVggEOTnGrcq/s +CwPzmJ4pr68cbHzg8r74zzDYrJVV8W2Igzh73vaLXhgE+rFU/vuPg5sZqUda +v4RCmOXpqUo+B1XP8q+ovgmFmCWfOo6NcfD9joq5k/WhcLk8//zkJAcXjcvs +33Q9FPJOCfncn+bgA56656PEUCj508s6bJaDP55z4yA8FHjqT5Wt5jlo7BjX +3egXCjV8zanfvznI3mfntGNnKPwPz/oreg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0VesbB3AKZUjmOPvg0DGWqUOZ8jyRIum6Ik2iUyhKrlIylggVmaIS +MpYIcfa+laJQSqZKIlQ3KYmr28k89Nu/P/ba67PWu/Z+1nqf5/u+atwjzl4L +BAQE5ujn/++sCK6I0f5Mq/wfl80paWurhteszW6skzA/zqjgpLLg99OaMyxW +PIy90LCXTDWErEcJqsKsK+BAbdeZSEE4tDbo8IRqMZB5Gwe7U5zg9cyBtB+q +90Bzhh0dneIJi3o+aY2oPgcdqd5XVskBkNuU89d31W6oT7o5bHjhFJSVx/cc +0h+Cp9OaPROayeADL68MB/IBPl06lGZ7BfwHdPp5ZVNgZBfOPxp5HcTUorU+ +mArgnJO77a0zBZAo9UI313Mh8oZq15RJ3QRuj0vtwmYRjBa/8+JIcQn89SSa +e0RLDIVXMbuWDpbBnQCJrYr2S/CZ/BiZ+LoCckP9hgzdpPBjUMWrLs1KiMqZ +/fPXsDTKGF//9w/zKnAyvPvXCr40CtWkv1ptVQUqj48mc6ekkZ3z1JKwroL7 +n4ba24Vl0Dt6OK/Xvgp+anT/cVtFBh/LaFSs21EF3FLS0dtJBj+O5mennaiC +dff87buqZFDQxsR3d2UVCLz+iA9CZLFvlvLyZfEg+ltNbshpWTwuM5w5uZwH +ogJZC8ziZDFC7FvPGS0eyOjtaCAvyWJkZ21wsj4PNGJfbiyvkMV8x9vq8ZY8 +2GRRtyXviyzaaFuzhtx4kJqfvzvOWQ6nXpzQC7zAA8X7px9u2CGHkZq5/rkX +eXCt3UNF2FMOD31V+LslhQdFc8TH04fl8Fp0o7vyFR7cdUvbFxonh8HNZwSv +FPKgVzzG179GDk9c+JYtWMMDzWPewS668lirK2p+eZgHeuYftuYYyuMzq2v2 +pqM8MBbYbjC0Wh6VS3Xq3/zHA+sL9l8ibeTx38N7fy2e4MGegpUuJbvlMb8g +z8lJkIT0jp8GCy7KY3DX0jmuPAnCJpFfy/ny2GXeWHjZggSJmYm66Sl5LFPL +kfuylgSZxwHZtgIKeO1zz6ghksBy5Lr2SCjgYAL/e816Eiy9bOtFNBVQ7FbD +XLUjCccuiee4b1fAq4c/5Jl7kPB5LGOb+EMFzG5/9XnTKRLy1nGO9tUr4KaA +jssBUSR4JLReLG9SwMxLEg6p0SS8Yws/39qlgF9XCJS0xZHwcmugxTW+Al6I +MPVgJ5NQc2czS093GRab2bSszSUh47Dg0JaMZVjvHxOzqpYEl3vXRNSyl2Ff +Mvfk5CO6fmHT5fyCZSi16/7R6joSEq/5786oXIZxGZLhpk9JiH7R0/qhZRnO +MT4MSbaQEKBDVQUIKeIB96GTeu9I2DTgG57ylyLqvs9+yPlJwobw5aXrgxXx +je679DQ+Cdbyve/GIxTxder1az9/kWBu62i664IiFtWAQdEECbqFBvzlNxRx +sGU+5PssCeJevw6QvYq4L4kQGBWhYPFcaYZPvyKemTzeqr6YAqFLXk+VhhTx +07d9bVtFKZht6FweMaGIae9jfW+LUzDMvvd+g4wSnqP0pEGKgubP4S5dG5Uw +T+NoaK8iBc/CVp85t0UJBzRT8/uVKGiQG71j6aqEkqt7hAYZFDxY77k0l6uE +d4OuHRtkUlBaYN10MFwJjTuk5J+xKEjYvwhnKpXQd5z/YIE2Bedma/1v31PC +RBFuaR/ts2nBWR6PlNBthNFL6lAQ0fBtur5FCfVq7ObdV1Dgz24mLwwqYXdW +5c4EfQq2fE5aoaLCwM52v/cHjOl6V3zu2M1mYKyo1FYJEwocjq6JyNRl4MEB +e9/btO0WvG9XXMPAi2uIqMHVFFizVhyXdWJg1mAK19qMgkc+EarO2xgYwcKJ +V7Sh/OWzpN0MlDjx1GivOQWWVsGE5EEGrk9fdPW4BQUmu588WhzFwKQ7UjYx +ayng5Sv6boxjoCOaySy0omDVdz/Zs4kMFF2ScS6Ctn6IjPfCTAbKld4I9gcK +tC97iM9X0etNtbatWkdB0YdKnuV9BgptEAzNoq2hJbIn9BED9ceiN4tYU6BO +lVZMNjPwa9ymiXbazI4pV/4AA18mrgzetJ6Cq4Tjb6NhBr6SKZfMp6207/rN +gJ8MVIr0cZ2irfBzw8zIPAO1V28cy7alIM3sasFKYQL1513/+Je27OkRRz9x +Ai/ePLjLYgMFUlJp1weXESiUF3i+lXai21d7LRUCXbY7V8htpGBJjjnfi00g +s1Y8fjttMf1/bPsNCdTz+ezWTXvhZv3vffYE3nqiH1xrR0FU6uk0phOBh4ge +Oz5tgZ6Otbu2EWiwmPmSbU/348HQpC4uga7/gNhp2iF3Ws2WHSQwo0X+QQnt +qUm1ftcjBNo4eWt10B6PfWbyOpRA+ynPlSqbKDjWRnyQjiIw6odAI9DmKxyJ +c4oj8KTqImUP2oF76owuJhK4bcuofhjtH4XyPS1pBHKzTebSafuPHIiWyCSw +M35bXDntEeMHeg65BN7ob21/QvtQ2NK38TcIdH5LvO2mPVTPPfXsNoElg/cz +v9NWTe7yTeQR+Ihd5TJL22XPFleXagJ3OTv5iDlQEL+iARh1BC4d43TI066Z +NNP9+IzA06IC11Ro85+UyxW1Eagq7FbLpq2dqvHbr5PA3jc9Vtq03T0zvxn1 +Edj0jxGhQztFT7pjop/A7yJzLlq0G6fP1jwcIrDx6j/D6rRnG2dvnvmPQDPf +6H6CttGlwFT7SXo/750zk6HtzR0MX/qbwMJ1V0eFaWca7DnwRpiJo8Y7RCbo ++ttnXztnSjCx2sw/YoC2SJP92r2yTOQdOrX9JW2LjFotLQYTBzzWXLpPO2C/ +icwIi4kXGBYmubSLjEpmK7WYWKFobBZDu2ee9TVYn4lfN73I9aYt1Zz+0sqE +ifPyt47Y0ra9IvFAyJKJxc4h+Wq0Q7yjipqsmWju+GXtDL3fnwX8Q7c5MTF2 +xLK4iLZSa78X042JWn4RocG0t2TucPrkzsSPrqJ/b6R918RWw9+PiVbiZYfe +0/02sqB6qXEgE52s1AcLaau3G05PBTOxrCytzZf2BV9mW8xZJgby9QaG6f59 +vCblnkMCE99RlXK3aI8LLS6QTmOiwKX/KvfT9szhB2fl0v933GP1ip4P444m +dfIBE2fynQoS6Xk6mItLQuuZqKkh4L6GdrY/NYFNdH1bx+P76HlcLJrX3PyW +iY+1Y2zUafetPXn8808mjgd8s0ug51tGfNTz1hQTT6nF/a1G265rv0OAgDIG +uMlfr6LzoTLQiTW7RBnnjN/+04Z0ft7QapLVUca1S2Qth/6fN9KdyjYeyrh7 +efpIEZ1fXxK+RF3yUsY3rKUWyrSzxCa+fvVTxpHaeo9kOu8khBQrLwQro+T4 +RqOjpnR/j+/Y0JlMfz+2UFiZzsvC3j7/gw3KuNB5ckbUiILdO/59Xd2kjC9F +Z4T3GFIg1zlvKvlSGbfOzfwoN6DnvU11YVUfvf7w0UOOdF571u3NmB1XxnSz +ArEjdJ4zbw7UXtRRwUPV2wMcNSjoYI+zPxmoYLKI+ZtINgXnc0XOGa9WwQ9x +GhoVyymYvqrl0m2tgm4fb8SJqVPQlXBwUH23CobUrAsoUqEg9eiIFJWogpaM +oT9Dl9F5BGN7e/kqOL6lZSRrEQXB67QXU9MquIh9zjSYPh+/2Owquyioim/b +mbpOwhTU2T2etl6qihoqK4WnFtD955yQWqyriiuVP1bqz5Pw3UvjyfG9qjg6 +o3xblz6Pmy+4aku3qaLESLWR33v6fL4Y1zr0RhVbKgcWzvaScDO5+lhDryqO +dDdcPtdD3wfS1R6fGFJF+yqOZG4XCSrt4ytHF7CQl9iJVa9I6Oyue+KqwkKp +nDWJh+n7w8aRnRPqrix07l/GwlISsuXOvI7czsJGx50LUm+R8MuipLx3Fwtr +t8287b9JwvVzMz7pXBYuMe/2jCwkYVrrWpdoAAuXPUwSzM4moZTbd+/HORYO +rJZcH5JEglSXR1jNIxbqlaUKkoEkdNXtF9y5Ug3d7XOLvYxI+LHuHSPcQA0d +5FrT9xqQsOjxH8bXV6lhw4qjI7v0SFhda+7zxVQNZ2bZ7xx0SEirlmoJtFXD +6Cz2U0U1Ev7gPbh8fo8abijpSfKRIuFpoZzhwyQ1fJHyyfT9CA/IuIY9rDE1 +LL332WNnAQ+8hYM+traqY4rdiV6Tn1WwLzCUlLi6HL8EcK0z1lSBgc+K1s17 +2dh9uJXXFFAJbTIrxYPMNNCvo6v607k7UF0WlblyoSYy1gr2ad2qgFBBXafm +Pk18NjB64JV7OYj1htj587TwvGTxYJDPbRgoUkvLCdPGS008WYOkEkjTVhK6 +56qDBX6NG4+nFkPSVe/GvSxdNB6ebdervQE709xbJb7qIm9slc7IXCFMri+c +yqlZgUSVc+03dgH0D1gH18WuRN322UXfQ/Mgb60R0bJXD5f7OuTG1V+H2zFB +0j56+qiAVGxQSDbEuu5zWDimj9ptGsGfijLBpDe3OLbFAFd1jollP70Ml3Uy +b7c4GOKa+smTSzakQ+SjhMsO9wzx+QnXX7N1qeBIuBY2sY2Qr+ouMRyRDOv8 +G3dJxxthSrPIQy/li5DD5LKbx4ywVvyDr77deWDX30jfsmsVnl2d6P23aBwk +6dXpvqpZhSHp1IdprRjw5gu9fK7LQX4aw2L/9ijg3vnJir/Iwaby+LYlAqfg +UNTW2U3JHFxhZXV363AkBG3lvZVI5WCa3lDdpa5IiBsLSkxK56DnjZKcNXci +ocxsaiYji4OcTAXiJzcSph7/7iwq4WAhZ9YcnkVA0iuJhIZGDr7700B9+dVw +uJp/+MDZ5xzctaFzaWpsOOQfa7Wxe8HB0bP9MRJB4UApJE2/aOXgCwmRecIp +HHp3yh54/YaDPQ8t6kpFwkGrX8nmUz8H375pvJsSFAaGvBCVggEOTnGrcq/s +CwPzmJ4pr68cbHzg8r74zzDYrJVV8W2Igzh73vaLXhgE+rFU/vuPg5sZqUda +v4RCmOXpqUo+B1XP8q+ovgmFmCWfOo6NcfD9joq5k/WhcLk8//zkJAcXjcvs +33Q9FPJOCfncn+bgA56656PEUCj508s6bJaDP55z4yA8FHjqT5Wt5jlo7BjX +3egXCjV8zanfvznI3mfntGNnKPwPz/oreg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08708435930191807}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08708435930191807}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0VesbB3AKZUjmOPvg0DGWqUOZ8jyRIum6Ik2iUyhKrlIylggVmaIS +MpYIcfa+laJQSqZKIlQ3KYmr28k89Nu/P/ba67PWu/Z+1nqf5/u+atwjzl4L +BAQE5ujn/++sCK6I0f5Mq/wfl80paWurhteszW6skzA/zqjgpLLg99OaMyxW +PIy90LCXTDWErEcJqsKsK+BAbdeZSEE4tDbo8IRqMZB5Gwe7U5zg9cyBtB+q +90Bzhh0dneIJi3o+aY2oPgcdqd5XVskBkNuU89d31W6oT7o5bHjhFJSVx/cc +0h+Cp9OaPROayeADL68MB/IBPl06lGZ7BfwHdPp5ZVNgZBfOPxp5HcTUorU+ +mArgnJO77a0zBZAo9UI313Mh8oZq15RJ3QRuj0vtwmYRjBa/8+JIcQn89SSa +e0RLDIVXMbuWDpbBnQCJrYr2S/CZ/BiZ+LoCckP9hgzdpPBjUMWrLs1KiMqZ +/fPXsDTKGF//9w/zKnAyvPvXCr40CtWkv1ptVQUqj48mc6ekkZ3z1JKwroL7 +n4ba24Vl0Dt6OK/Xvgp+anT/cVtFBh/LaFSs21EF3FLS0dtJBj+O5mennaiC +dff87buqZFDQxsR3d2UVCLz+iA9CZLFvlvLyZfEg+ltNbshpWTwuM5w5uZwH +ogJZC8ziZDFC7FvPGS0eyOjtaCAvyWJkZ21wsj4PNGJfbiyvkMV8x9vq8ZY8 +2GRRtyXviyzaaFuzhtx4kJqfvzvOWQ6nXpzQC7zAA8X7px9u2CGHkZq5/rkX +eXCt3UNF2FMOD31V+LslhQdFc8TH04fl8Fp0o7vyFR7cdUvbFxonh8HNZwSv +FPKgVzzG179GDk9c+JYtWMMDzWPewS668lirK2p+eZgHeuYftuYYyuMzq2v2 +pqM8MBbYbjC0Wh6VS3Xq3/zHA+sL9l8ibeTx38N7fy2e4MGegpUuJbvlMb8g +z8lJkIT0jp8GCy7KY3DX0jmuPAnCJpFfy/ny2GXeWHjZggSJmYm66Sl5LFPL +kfuylgSZxwHZtgIKeO1zz6ghksBy5Lr2SCjgYAL/e816Eiy9bOtFNBVQ7FbD +XLUjCccuiee4b1fAq4c/5Jl7kPB5LGOb+EMFzG5/9XnTKRLy1nGO9tUr4KaA +jssBUSR4JLReLG9SwMxLEg6p0SS8Yws/39qlgF9XCJS0xZHwcmugxTW+Al6I +MPVgJ5NQc2czS093GRab2bSszSUh47Dg0JaMZVjvHxOzqpYEl3vXRNSyl2Ff +Mvfk5CO6fmHT5fyCZSi16/7R6joSEq/5786oXIZxGZLhpk9JiH7R0/qhZRnO +MT4MSbaQEKBDVQUIKeIB96GTeu9I2DTgG57ylyLqvs9+yPlJwobw5aXrgxXx +je679DQ+Cdbyve/GIxTxder1az9/kWBu62i664IiFtWAQdEECbqFBvzlNxRx +sGU+5PssCeJevw6QvYq4L4kQGBWhYPFcaYZPvyKemTzeqr6YAqFLXk+VhhTx +07d9bVtFKZht6FweMaGIae9jfW+LUzDMvvd+g4wSnqP0pEGKgubP4S5dG5Uw +T+NoaK8iBc/CVp85t0UJBzRT8/uVKGiQG71j6aqEkqt7hAYZFDxY77k0l6uE +d4OuHRtkUlBaYN10MFwJjTuk5J+xKEjYvwhnKpXQd5z/YIE2Bedma/1v31PC +RBFuaR/ts2nBWR6PlNBthNFL6lAQ0fBtur5FCfVq7ObdV1Dgz24mLwwqYXdW +5c4EfQq2fE5aoaLCwM52v/cHjOl6V3zu2M1mYKyo1FYJEwocjq6JyNRl4MEB +e9/btO0WvG9XXMPAi2uIqMHVFFizVhyXdWJg1mAK19qMgkc+EarO2xgYwcKJ +V7Sh/OWzpN0MlDjx1GivOQWWVsGE5EEGrk9fdPW4BQUmu588WhzFwKQ7UjYx +ayng5Sv6boxjoCOaySy0omDVdz/Zs4kMFF2ScS6Ctn6IjPfCTAbKld4I9gcK +tC97iM9X0etNtbatWkdB0YdKnuV9BgptEAzNoq2hJbIn9BED9ceiN4tYU6BO +lVZMNjPwa9ymiXbazI4pV/4AA18mrgzetJ6Cq4Tjb6NhBr6SKZfMp6207/rN +gJ8MVIr0cZ2irfBzw8zIPAO1V28cy7alIM3sasFKYQL1513/+Je27OkRRz9x +Ai/ePLjLYgMFUlJp1weXESiUF3i+lXai21d7LRUCXbY7V8htpGBJjjnfi00g +s1Y8fjttMf1/bPsNCdTz+ezWTXvhZv3vffYE3nqiH1xrR0FU6uk0phOBh4ge +Oz5tgZ6Otbu2EWiwmPmSbU/348HQpC4uga7/gNhp2iF3Ws2WHSQwo0X+QQnt +qUm1ftcjBNo4eWt10B6PfWbyOpRA+ynPlSqbKDjWRnyQjiIw6odAI9DmKxyJ +c4oj8KTqImUP2oF76owuJhK4bcuofhjtH4XyPS1pBHKzTebSafuPHIiWyCSw +M35bXDntEeMHeg65BN7ob21/QvtQ2NK38TcIdH5LvO2mPVTPPfXsNoElg/cz +v9NWTe7yTeQR+Ihd5TJL22XPFleXagJ3OTv5iDlQEL+iARh1BC4d43TI066Z +NNP9+IzA06IC11Ro85+UyxW1Eagq7FbLpq2dqvHbr5PA3jc9Vtq03T0zvxn1 +Edj0jxGhQztFT7pjop/A7yJzLlq0G6fP1jwcIrDx6j/D6rRnG2dvnvmPQDPf +6H6CttGlwFT7SXo/750zk6HtzR0MX/qbwMJ1V0eFaWca7DnwRpiJo8Y7RCbo ++ttnXztnSjCx2sw/YoC2SJP92r2yTOQdOrX9JW2LjFotLQYTBzzWXLpPO2C/ +icwIi4kXGBYmubSLjEpmK7WYWKFobBZDu2ee9TVYn4lfN73I9aYt1Zz+0sqE +ifPyt47Y0ra9IvFAyJKJxc4h+Wq0Q7yjipqsmWju+GXtDL3fnwX8Q7c5MTF2 +xLK4iLZSa78X042JWn4RocG0t2TucPrkzsSPrqJ/b6R918RWw9+PiVbiZYfe +0/02sqB6qXEgE52s1AcLaau3G05PBTOxrCytzZf2BV9mW8xZJgby9QaG6f59 +vCblnkMCE99RlXK3aI8LLS6QTmOiwKX/KvfT9szhB2fl0v933GP1ip4P444m +dfIBE2fynQoS6Xk6mItLQuuZqKkh4L6GdrY/NYFNdH1bx+P76HlcLJrX3PyW +iY+1Y2zUafetPXn8808mjgd8s0ug51tGfNTz1hQTT6nF/a1G265rv0OAgDIG +uMlfr6LzoTLQiTW7RBnnjN/+04Z0ft7QapLVUca1S2Qth/6fN9KdyjYeyrh7 +efpIEZ1fXxK+RF3yUsY3rKUWyrSzxCa+fvVTxpHaeo9kOu8khBQrLwQro+T4 +RqOjpnR/j+/Y0JlMfz+2UFiZzsvC3j7/gw3KuNB5ckbUiILdO/59Xd2kjC9F +Z4T3GFIg1zlvKvlSGbfOzfwoN6DnvU11YVUfvf7w0UOOdF571u3NmB1XxnSz +ArEjdJ4zbw7UXtRRwUPV2wMcNSjoYI+zPxmoYLKI+ZtINgXnc0XOGa9WwQ9x +GhoVyymYvqrl0m2tgm4fb8SJqVPQlXBwUH23CobUrAsoUqEg9eiIFJWogpaM +oT9Dl9F5BGN7e/kqOL6lZSRrEQXB67QXU9MquIh9zjSYPh+/2Owquyioim/b +mbpOwhTU2T2etl6qihoqK4WnFtD955yQWqyriiuVP1bqz5Pw3UvjyfG9qjg6 +o3xblz6Pmy+4aku3qaLESLWR33v6fL4Y1zr0RhVbKgcWzvaScDO5+lhDryqO +dDdcPtdD3wfS1R6fGFJF+yqOZG4XCSrt4ytHF7CQl9iJVa9I6Oyue+KqwkKp +nDWJh+n7w8aRnRPqrix07l/GwlISsuXOvI7czsJGx50LUm+R8MuipLx3Fwtr +t8287b9JwvVzMz7pXBYuMe/2jCwkYVrrWpdoAAuXPUwSzM4moZTbd+/HORYO +rJZcH5JEglSXR1jNIxbqlaUKkoEkdNXtF9y5Ug3d7XOLvYxI+LHuHSPcQA0d +5FrT9xqQsOjxH8bXV6lhw4qjI7v0SFhda+7zxVQNZ2bZ7xx0SEirlmoJtFXD +6Cz2U0U1Ev7gPbh8fo8abijpSfKRIuFpoZzhwyQ1fJHyyfT9CA/IuIY9rDE1 +LL332WNnAQ+8hYM+traqY4rdiV6Tn1WwLzCUlLi6HL8EcK0z1lSBgc+K1s17 +2dh9uJXXFFAJbTIrxYPMNNCvo6v607k7UF0WlblyoSYy1gr2ad2qgFBBXafm +Pk18NjB64JV7OYj1htj587TwvGTxYJDPbRgoUkvLCdPGS008WYOkEkjTVhK6 +56qDBX6NG4+nFkPSVe/GvSxdNB6ebdervQE709xbJb7qIm9slc7IXCFMri+c +yqlZgUSVc+03dgH0D1gH18WuRN322UXfQ/Mgb60R0bJXD5f7OuTG1V+H2zFB +0j56+qiAVGxQSDbEuu5zWDimj9ptGsGfijLBpDe3OLbFAFd1jollP70Ml3Uy +b7c4GOKa+smTSzakQ+SjhMsO9wzx+QnXX7N1qeBIuBY2sY2Qr+ouMRyRDOv8 +G3dJxxthSrPIQy/li5DD5LKbx4ywVvyDr77deWDX30jfsmsVnl2d6P23aBwk +6dXpvqpZhSHp1IdprRjw5gu9fK7LQX4aw2L/9ijg3vnJir/Iwaby+LYlAqfg +UNTW2U3JHFxhZXV363AkBG3lvZVI5WCa3lDdpa5IiBsLSkxK56DnjZKcNXci +ocxsaiYji4OcTAXiJzcSph7/7iwq4WAhZ9YcnkVA0iuJhIZGDr7700B9+dVw +uJp/+MDZ5xzctaFzaWpsOOQfa7Wxe8HB0bP9MRJB4UApJE2/aOXgCwmRecIp +HHp3yh54/YaDPQ8t6kpFwkGrX8nmUz8H375pvJsSFAaGvBCVggEOTnGrcq/s +CwPzmJ4pr68cbHzg8r74zzDYrJVV8W2Igzh73vaLXhgE+rFU/vuPg5sZqUda +v4RCmOXpqUo+B1XP8q+ovgmFmCWfOo6NcfD9joq5k/WhcLk8//zkJAcXjcvs +33Q9FPJOCfncn+bgA56656PEUCj508s6bJaDP55z4yA8FHjqT5Wt5jlo7BjX +3egXCjV8zanfvznI3mfntGNnKPwPz/oreg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08708435930191807}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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, 20}, {0., 0.08708435930191807}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.992110732607151*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"dc0827f7-ad93-1949-8c5f-cdc9e1376071"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.020752"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.058831"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.090855"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.11027"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.120683"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.117878"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.109585"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.093652"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.077678"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.059892"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.045412"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.032103"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.022647"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.014816"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.009893"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.006002"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.003879"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.002155"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.001404"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.000678"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.00048"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991714709387436*^9, 3.991714738003292*^9}, { + 3.991714834117689*^9, 3.991714842328617*^9}, 3.991793311407936*^9, + 3.9917953263701286`*^9, {3.9920887801019936`*^9, 3.9920887811481247`*^9}}, + CellLabel->"In[97]:=",ExpressionUUID->"08cc1ff9-b63b-d741-9dab-b5604b3208c2"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 20.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9917148467316074`*^9, 3.992110732830179*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"55649c41-94da-fa4b-8c7a-517228ae0c44"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel->"In[98]:=",ExpressionUUID->"c833855b-86a8-7349-9ccf-32b52052d827"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk0VesbB3AKZUjmOPvg0DGWqUOZ8jyRIum6Ik2iUyhKrlIylggVmaIS +MpYIcfa+laJQSqZKIlQ3KYmr28k89Nu/P/ba67PWu/Z+1nqf5/u+atwjzl4L +BAQE5ujn/++sCK6I0f5Mq/wfl80paWurhteszW6skzA/zqjgpLLg99OaMyxW +PIy90LCXTDWErEcJqsKsK+BAbdeZSEE4tDbo8IRqMZB5Gwe7U5zg9cyBtB+q +90Bzhh0dneIJi3o+aY2oPgcdqd5XVskBkNuU89d31W6oT7o5bHjhFJSVx/cc +0h+Cp9OaPROayeADL68MB/IBPl06lGZ7BfwHdPp5ZVNgZBfOPxp5HcTUorU+ +mArgnJO77a0zBZAo9UI313Mh8oZq15RJ3QRuj0vtwmYRjBa/8+JIcQn89SSa +e0RLDIVXMbuWDpbBnQCJrYr2S/CZ/BiZ+LoCckP9hgzdpPBjUMWrLs1KiMqZ +/fPXsDTKGF//9w/zKnAyvPvXCr40CtWkv1ptVQUqj48mc6ekkZ3z1JKwroL7 +n4ba24Vl0Dt6OK/Xvgp+anT/cVtFBh/LaFSs21EF3FLS0dtJBj+O5mennaiC +dff87buqZFDQxsR3d2UVCLz+iA9CZLFvlvLyZfEg+ltNbshpWTwuM5w5uZwH +ogJZC8ziZDFC7FvPGS0eyOjtaCAvyWJkZ21wsj4PNGJfbiyvkMV8x9vq8ZY8 +2GRRtyXviyzaaFuzhtx4kJqfvzvOWQ6nXpzQC7zAA8X7px9u2CGHkZq5/rkX +eXCt3UNF2FMOD31V+LslhQdFc8TH04fl8Fp0o7vyFR7cdUvbFxonh8HNZwSv +FPKgVzzG179GDk9c+JYtWMMDzWPewS668lirK2p+eZgHeuYftuYYyuMzq2v2 +pqM8MBbYbjC0Wh6VS3Xq3/zHA+sL9l8ibeTx38N7fy2e4MGegpUuJbvlMb8g +z8lJkIT0jp8GCy7KY3DX0jmuPAnCJpFfy/ny2GXeWHjZggSJmYm66Sl5LFPL +kfuylgSZxwHZtgIKeO1zz6ghksBy5Lr2SCjgYAL/e816Eiy9bOtFNBVQ7FbD +XLUjCccuiee4b1fAq4c/5Jl7kPB5LGOb+EMFzG5/9XnTKRLy1nGO9tUr4KaA +jssBUSR4JLReLG9SwMxLEg6p0SS8Yws/39qlgF9XCJS0xZHwcmugxTW+Al6I +MPVgJ5NQc2czS093GRab2bSszSUh47Dg0JaMZVjvHxOzqpYEl3vXRNSyl2Ff +Mvfk5CO6fmHT5fyCZSi16/7R6joSEq/5786oXIZxGZLhpk9JiH7R0/qhZRnO +MT4MSbaQEKBDVQUIKeIB96GTeu9I2DTgG57ylyLqvs9+yPlJwobw5aXrgxXx +je679DQ+Cdbyve/GIxTxder1az9/kWBu62i664IiFtWAQdEECbqFBvzlNxRx +sGU+5PssCeJevw6QvYq4L4kQGBWhYPFcaYZPvyKemTzeqr6YAqFLXk+VhhTx +07d9bVtFKZht6FweMaGIae9jfW+LUzDMvvd+g4wSnqP0pEGKgubP4S5dG5Uw +T+NoaK8iBc/CVp85t0UJBzRT8/uVKGiQG71j6aqEkqt7hAYZFDxY77k0l6uE +d4OuHRtkUlBaYN10MFwJjTuk5J+xKEjYvwhnKpXQd5z/YIE2Bedma/1v31PC +RBFuaR/ts2nBWR6PlNBthNFL6lAQ0fBtur5FCfVq7ObdV1Dgz24mLwwqYXdW +5c4EfQq2fE5aoaLCwM52v/cHjOl6V3zu2M1mYKyo1FYJEwocjq6JyNRl4MEB +e9/btO0WvG9XXMPAi2uIqMHVFFizVhyXdWJg1mAK19qMgkc+EarO2xgYwcKJ +V7Sh/OWzpN0MlDjx1GivOQWWVsGE5EEGrk9fdPW4BQUmu588WhzFwKQ7UjYx +ayng5Sv6boxjoCOaySy0omDVdz/Zs4kMFF2ScS6Ctn6IjPfCTAbKld4I9gcK +tC97iM9X0etNtbatWkdB0YdKnuV9BgptEAzNoq2hJbIn9BED9ceiN4tYU6BO +lVZMNjPwa9ymiXbazI4pV/4AA18mrgzetJ6Cq4Tjb6NhBr6SKZfMp6207/rN +gJ8MVIr0cZ2irfBzw8zIPAO1V28cy7alIM3sasFKYQL1513/+Je27OkRRz9x +Ai/ePLjLYgMFUlJp1weXESiUF3i+lXai21d7LRUCXbY7V8htpGBJjjnfi00g +s1Y8fjttMf1/bPsNCdTz+ezWTXvhZv3vffYE3nqiH1xrR0FU6uk0phOBh4ge +Oz5tgZ6Otbu2EWiwmPmSbU/348HQpC4uga7/gNhp2iF3Ws2WHSQwo0X+QQnt +qUm1ftcjBNo4eWt10B6PfWbyOpRA+ynPlSqbKDjWRnyQjiIw6odAI9DmKxyJ +c4oj8KTqImUP2oF76owuJhK4bcuofhjtH4XyPS1pBHKzTebSafuPHIiWyCSw +M35bXDntEeMHeg65BN7ob21/QvtQ2NK38TcIdH5LvO2mPVTPPfXsNoElg/cz +v9NWTe7yTeQR+Ihd5TJL22XPFleXagJ3OTv5iDlQEL+iARh1BC4d43TI066Z +NNP9+IzA06IC11Ro85+UyxW1Eagq7FbLpq2dqvHbr5PA3jc9Vtq03T0zvxn1 +Edj0jxGhQztFT7pjop/A7yJzLlq0G6fP1jwcIrDx6j/D6rRnG2dvnvmPQDPf +6H6CttGlwFT7SXo/750zk6HtzR0MX/qbwMJ1V0eFaWca7DnwRpiJo8Y7RCbo ++ttnXztnSjCx2sw/YoC2SJP92r2yTOQdOrX9JW2LjFotLQYTBzzWXLpPO2C/ +icwIi4kXGBYmubSLjEpmK7WYWKFobBZDu2ee9TVYn4lfN73I9aYt1Zz+0sqE +ifPyt47Y0ra9IvFAyJKJxc4h+Wq0Q7yjipqsmWju+GXtDL3fnwX8Q7c5MTF2 +xLK4iLZSa78X042JWn4RocG0t2TucPrkzsSPrqJ/b6R918RWw9+PiVbiZYfe +0/02sqB6qXEgE52s1AcLaau3G05PBTOxrCytzZf2BV9mW8xZJgby9QaG6f59 +vCblnkMCE99RlXK3aI8LLS6QTmOiwKX/KvfT9szhB2fl0v933GP1ip4P444m +dfIBE2fynQoS6Xk6mItLQuuZqKkh4L6GdrY/NYFNdH1bx+P76HlcLJrX3PyW +iY+1Y2zUafetPXn8808mjgd8s0ug51tGfNTz1hQTT6nF/a1G265rv0OAgDIG +uMlfr6LzoTLQiTW7RBnnjN/+04Z0ft7QapLVUca1S2Qth/6fN9KdyjYeyrh7 +efpIEZ1fXxK+RF3yUsY3rKUWyrSzxCa+fvVTxpHaeo9kOu8khBQrLwQro+T4 +RqOjpnR/j+/Y0JlMfz+2UFiZzsvC3j7/gw3KuNB5ckbUiILdO/59Xd2kjC9F +Z4T3GFIg1zlvKvlSGbfOzfwoN6DnvU11YVUfvf7w0UOOdF571u3NmB1XxnSz +ArEjdJ4zbw7UXtRRwUPV2wMcNSjoYI+zPxmoYLKI+ZtINgXnc0XOGa9WwQ9x +GhoVyymYvqrl0m2tgm4fb8SJqVPQlXBwUH23CobUrAsoUqEg9eiIFJWogpaM +oT9Dl9F5BGN7e/kqOL6lZSRrEQXB67QXU9MquIh9zjSYPh+/2Owquyioim/b +mbpOwhTU2T2etl6qihoqK4WnFtD955yQWqyriiuVP1bqz5Pw3UvjyfG9qjg6 +o3xblz6Pmy+4aku3qaLESLWR33v6fL4Y1zr0RhVbKgcWzvaScDO5+lhDryqO +dDdcPtdD3wfS1R6fGFJF+yqOZG4XCSrt4ytHF7CQl9iJVa9I6Oyue+KqwkKp +nDWJh+n7w8aRnRPqrix07l/GwlISsuXOvI7czsJGx50LUm+R8MuipLx3Fwtr +t8287b9JwvVzMz7pXBYuMe/2jCwkYVrrWpdoAAuXPUwSzM4moZTbd+/HORYO +rJZcH5JEglSXR1jNIxbqlaUKkoEkdNXtF9y5Ug3d7XOLvYxI+LHuHSPcQA0d +5FrT9xqQsOjxH8bXV6lhw4qjI7v0SFhda+7zxVQNZ2bZ7xx0SEirlmoJtFXD +6Cz2U0U1Ev7gPbh8fo8abijpSfKRIuFpoZzhwyQ1fJHyyfT9CA/IuIY9rDE1 +LL332WNnAQ+8hYM+traqY4rdiV6Tn1WwLzCUlLi6HL8EcK0z1lSBgc+K1s17 +2dh9uJXXFFAJbTIrxYPMNNCvo6v607k7UF0WlblyoSYy1gr2ad2qgFBBXafm +Pk18NjB64JV7OYj1htj587TwvGTxYJDPbRgoUkvLCdPGS008WYOkEkjTVhK6 +56qDBX6NG4+nFkPSVe/GvSxdNB6ebdervQE709xbJb7qIm9slc7IXCFMri+c +yqlZgUSVc+03dgH0D1gH18WuRN322UXfQ/Mgb60R0bJXD5f7OuTG1V+H2zFB +0j56+qiAVGxQSDbEuu5zWDimj9ptGsGfijLBpDe3OLbFAFd1jollP70Ml3Uy +b7c4GOKa+smTSzakQ+SjhMsO9wzx+QnXX7N1qeBIuBY2sY2Qr+ouMRyRDOv8 +G3dJxxthSrPIQy/li5DD5LKbx4ywVvyDr77deWDX30jfsmsVnl2d6P23aBwk +6dXpvqpZhSHp1IdprRjw5gu9fK7LQX4aw2L/9ijg3vnJir/Iwaby+LYlAqfg +UNTW2U3JHFxhZXV363AkBG3lvZVI5WCa3lDdpa5IiBsLSkxK56DnjZKcNXci +ocxsaiYji4OcTAXiJzcSph7/7iwq4WAhZ9YcnkVA0iuJhIZGDr7700B9+dVw +uJp/+MDZ5xzctaFzaWpsOOQfa7Wxe8HB0bP9MRJB4UApJE2/aOXgCwmRecIp +HHp3yh54/YaDPQ8t6kpFwkGrX8nmUz8H375pvJsSFAaGvBCVggEOTnGrcq/s +CwPzmJ4pr68cbHzg8r74zzDYrJVV8W2Igzh73vaLXhgE+rFU/vuPg5sZqUda +v4RCmOXpqUo+B1XP8q+ovgmFmCWfOo6NcfD9joq5k/WhcLk8//zkJAcXjcvs +33Q9FPJOCfncn+bgA56656PEUCj508s6bJaDP55z4yA8FHjqT5Wt5jlo7BjX +3egXCjV8zanfvznI3mfntGNnKPwPz/oreg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0VesbB3AKZUjmOPvg0DGWqUOZ8jyRIum6Ik2iUyhKrlIylggVmaIS +MpYIcfa+laJQSqZKIlQ3KYmr28k89Nu/P/ba67PWu/Z+1nqf5/u+atwjzl4L +BAQE5ujn/++sCK6I0f5Mq/wfl80paWurhteszW6skzA/zqjgpLLg99OaMyxW +PIy90LCXTDWErEcJqsKsK+BAbdeZSEE4tDbo8IRqMZB5Gwe7U5zg9cyBtB+q +90Bzhh0dneIJi3o+aY2oPgcdqd5XVskBkNuU89d31W6oT7o5bHjhFJSVx/cc +0h+Cp9OaPROayeADL68MB/IBPl06lGZ7BfwHdPp5ZVNgZBfOPxp5HcTUorU+ +mArgnJO77a0zBZAo9UI313Mh8oZq15RJ3QRuj0vtwmYRjBa/8+JIcQn89SSa +e0RLDIVXMbuWDpbBnQCJrYr2S/CZ/BiZ+LoCckP9hgzdpPBjUMWrLs1KiMqZ +/fPXsDTKGF//9w/zKnAyvPvXCr40CtWkv1ptVQUqj48mc6ekkZ3z1JKwroL7 +n4ba24Vl0Dt6OK/Xvgp+anT/cVtFBh/LaFSs21EF3FLS0dtJBj+O5mennaiC +dff87buqZFDQxsR3d2UVCLz+iA9CZLFvlvLyZfEg+ltNbshpWTwuM5w5uZwH +ogJZC8ziZDFC7FvPGS0eyOjtaCAvyWJkZ21wsj4PNGJfbiyvkMV8x9vq8ZY8 +2GRRtyXviyzaaFuzhtx4kJqfvzvOWQ6nXpzQC7zAA8X7px9u2CGHkZq5/rkX +eXCt3UNF2FMOD31V+LslhQdFc8TH04fl8Fp0o7vyFR7cdUvbFxonh8HNZwSv +FPKgVzzG179GDk9c+JYtWMMDzWPewS668lirK2p+eZgHeuYftuYYyuMzq2v2 +pqM8MBbYbjC0Wh6VS3Xq3/zHA+sL9l8ibeTx38N7fy2e4MGegpUuJbvlMb8g +z8lJkIT0jp8GCy7KY3DX0jmuPAnCJpFfy/ny2GXeWHjZggSJmYm66Sl5LFPL +kfuylgSZxwHZtgIKeO1zz6ghksBy5Lr2SCjgYAL/e816Eiy9bOtFNBVQ7FbD +XLUjCccuiee4b1fAq4c/5Jl7kPB5LGOb+EMFzG5/9XnTKRLy1nGO9tUr4KaA +jssBUSR4JLReLG9SwMxLEg6p0SS8Yws/39qlgF9XCJS0xZHwcmugxTW+Al6I +MPVgJ5NQc2czS093GRab2bSszSUh47Dg0JaMZVjvHxOzqpYEl3vXRNSyl2Ff +Mvfk5CO6fmHT5fyCZSi16/7R6joSEq/5786oXIZxGZLhpk9JiH7R0/qhZRnO +MT4MSbaQEKBDVQUIKeIB96GTeu9I2DTgG57ylyLqvs9+yPlJwobw5aXrgxXx +je679DQ+Cdbyve/GIxTxder1az9/kWBu62i664IiFtWAQdEECbqFBvzlNxRx +sGU+5PssCeJevw6QvYq4L4kQGBWhYPFcaYZPvyKemTzeqr6YAqFLXk+VhhTx +07d9bVtFKZht6FweMaGIae9jfW+LUzDMvvd+g4wSnqP0pEGKgubP4S5dG5Uw +T+NoaK8iBc/CVp85t0UJBzRT8/uVKGiQG71j6aqEkqt7hAYZFDxY77k0l6uE +d4OuHRtkUlBaYN10MFwJjTuk5J+xKEjYvwhnKpXQd5z/YIE2Bedma/1v31PC +RBFuaR/ts2nBWR6PlNBthNFL6lAQ0fBtur5FCfVq7ObdV1Dgz24mLwwqYXdW +5c4EfQq2fE5aoaLCwM52v/cHjOl6V3zu2M1mYKyo1FYJEwocjq6JyNRl4MEB +e9/btO0WvG9XXMPAi2uIqMHVFFizVhyXdWJg1mAK19qMgkc+EarO2xgYwcKJ +V7Sh/OWzpN0MlDjx1GivOQWWVsGE5EEGrk9fdPW4BQUmu588WhzFwKQ7UjYx +ayng5Sv6boxjoCOaySy0omDVdz/Zs4kMFF2ScS6Ctn6IjPfCTAbKld4I9gcK +tC97iM9X0etNtbatWkdB0YdKnuV9BgptEAzNoq2hJbIn9BED9ceiN4tYU6BO +lVZMNjPwa9ymiXbazI4pV/4AA18mrgzetJ6Cq4Tjb6NhBr6SKZfMp6207/rN +gJ8MVIr0cZ2irfBzw8zIPAO1V28cy7alIM3sasFKYQL1513/+Je27OkRRz9x +Ai/ePLjLYgMFUlJp1weXESiUF3i+lXai21d7LRUCXbY7V8htpGBJjjnfi00g +s1Y8fjttMf1/bPsNCdTz+ezWTXvhZv3vffYE3nqiH1xrR0FU6uk0phOBh4ge +Oz5tgZ6Otbu2EWiwmPmSbU/348HQpC4uga7/gNhp2iF3Ws2WHSQwo0X+QQnt +qUm1ftcjBNo4eWt10B6PfWbyOpRA+ynPlSqbKDjWRnyQjiIw6odAI9DmKxyJ +c4oj8KTqImUP2oF76owuJhK4bcuofhjtH4XyPS1pBHKzTebSafuPHIiWyCSw +M35bXDntEeMHeg65BN7ob21/QvtQ2NK38TcIdH5LvO2mPVTPPfXsNoElg/cz +v9NWTe7yTeQR+Ihd5TJL22XPFleXagJ3OTv5iDlQEL+iARh1BC4d43TI066Z +NNP9+IzA06IC11Ro85+UyxW1Eagq7FbLpq2dqvHbr5PA3jc9Vtq03T0zvxn1 +Edj0jxGhQztFT7pjop/A7yJzLlq0G6fP1jwcIrDx6j/D6rRnG2dvnvmPQDPf +6H6CttGlwFT7SXo/750zk6HtzR0MX/qbwMJ1V0eFaWca7DnwRpiJo8Y7RCbo ++ttnXztnSjCx2sw/YoC2SJP92r2yTOQdOrX9JW2LjFotLQYTBzzWXLpPO2C/ +icwIi4kXGBYmubSLjEpmK7WYWKFobBZDu2ee9TVYn4lfN73I9aYt1Zz+0sqE +ifPyt47Y0ra9IvFAyJKJxc4h+Wq0Q7yjipqsmWju+GXtDL3fnwX8Q7c5MTF2 +xLK4iLZSa78X042JWn4RocG0t2TucPrkzsSPrqJ/b6R918RWw9+PiVbiZYfe +0/02sqB6qXEgE52s1AcLaau3G05PBTOxrCytzZf2BV9mW8xZJgby9QaG6f59 +vCblnkMCE99RlXK3aI8LLS6QTmOiwKX/KvfT9szhB2fl0v933GP1ip4P444m +dfIBE2fynQoS6Xk6mItLQuuZqKkh4L6GdrY/NYFNdH1bx+P76HlcLJrX3PyW +iY+1Y2zUafetPXn8808mjgd8s0ug51tGfNTz1hQTT6nF/a1G265rv0OAgDIG +uMlfr6LzoTLQiTW7RBnnjN/+04Z0ft7QapLVUca1S2Qth/6fN9KdyjYeyrh7 +efpIEZ1fXxK+RF3yUsY3rKUWyrSzxCa+fvVTxpHaeo9kOu8khBQrLwQro+T4 +RqOjpnR/j+/Y0JlMfz+2UFiZzsvC3j7/gw3KuNB5ckbUiILdO/59Xd2kjC9F +Z4T3GFIg1zlvKvlSGbfOzfwoN6DnvU11YVUfvf7w0UOOdF571u3NmB1XxnSz +ArEjdJ4zbw7UXtRRwUPV2wMcNSjoYI+zPxmoYLKI+ZtINgXnc0XOGa9WwQ9x +GhoVyymYvqrl0m2tgm4fb8SJqVPQlXBwUH23CobUrAsoUqEg9eiIFJWogpaM +oT9Dl9F5BGN7e/kqOL6lZSRrEQXB67QXU9MquIh9zjSYPh+/2Owquyioim/b +mbpOwhTU2T2etl6qihoqK4WnFtD955yQWqyriiuVP1bqz5Pw3UvjyfG9qjg6 +o3xblz6Pmy+4aku3qaLESLWR33v6fL4Y1zr0RhVbKgcWzvaScDO5+lhDryqO +dDdcPtdD3wfS1R6fGFJF+yqOZG4XCSrt4ytHF7CQl9iJVa9I6Oyue+KqwkKp +nDWJh+n7w8aRnRPqrix07l/GwlISsuXOvI7czsJGx50LUm+R8MuipLx3Fwtr +t8287b9JwvVzMz7pXBYuMe/2jCwkYVrrWpdoAAuXPUwSzM4moZTbd+/HORYO +rJZcH5JEglSXR1jNIxbqlaUKkoEkdNXtF9y5Ug3d7XOLvYxI+LHuHSPcQA0d +5FrT9xqQsOjxH8bXV6lhw4qjI7v0SFhda+7zxVQNZ2bZ7xx0SEirlmoJtFXD +6Cz2U0U1Ev7gPbh8fo8abijpSfKRIuFpoZzhwyQ1fJHyyfT9CA/IuIY9rDE1 +LL332WNnAQ+8hYM+traqY4rdiV6Tn1WwLzCUlLi6HL8EcK0z1lSBgc+K1s17 +2dh9uJXXFFAJbTIrxYPMNNCvo6v607k7UF0WlblyoSYy1gr2ad2qgFBBXafm +Pk18NjB64JV7OYj1htj587TwvGTxYJDPbRgoUkvLCdPGS008WYOkEkjTVhK6 +56qDBX6NG4+nFkPSVe/GvSxdNB6ebdervQE709xbJb7qIm9slc7IXCFMri+c +yqlZgUSVc+03dgH0D1gH18WuRN322UXfQ/Mgb60R0bJXD5f7OuTG1V+H2zFB +0j56+qiAVGxQSDbEuu5zWDimj9ptGsGfijLBpDe3OLbFAFd1jollP70Ml3Uy +b7c4GOKa+smTSzakQ+SjhMsO9wzx+QnXX7N1qeBIuBY2sY2Qr+ouMRyRDOv8 +G3dJxxthSrPIQy/li5DD5LKbx4ywVvyDr77deWDX30jfsmsVnl2d6P23aBwk +6dXpvqpZhSHp1IdprRjw5gu9fK7LQX4aw2L/9ijg3vnJir/Iwaby+LYlAqfg +UNTW2U3JHFxhZXV363AkBG3lvZVI5WCa3lDdpa5IiBsLSkxK56DnjZKcNXci +ocxsaiYji4OcTAXiJzcSph7/7iwq4WAhZ9YcnkVA0iuJhIZGDr7700B9+dVw +uJp/+MDZ5xzctaFzaWpsOOQfa7Wxe8HB0bP9MRJB4UApJE2/aOXgCwmRecIp +HHp3yh54/YaDPQ8t6kpFwkGrX8nmUz8H375pvJsSFAaGvBCVggEOTnGrcq/s +CwPzmJ4pr68cbHzg8r74zzDYrJVV8W2Igzh73vaLXhgE+rFU/vuPg5sZqUda +v4RCmOXpqUo+B1XP8q+ovgmFmCWfOo6NcfD9joq5k/WhcLk8//zkJAcXjcvs +33Q9FPJOCfncn+bgA56656PEUCj508s6bJaDP55z4yA8FHjqT5Wt5jlo7BjX +3egXCjV8zanfvznI3mfntGNnKPwPz/oreg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08708435930191807}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08708435930191807}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0VesbB3AKZUjmOPvg0DGWqUOZ8jyRIum6Ik2iUyhKrlIylggVmaIS +MpYIcfa+laJQSqZKIlQ3KYmr28k89Nu/P/ba67PWu/Z+1nqf5/u+atwjzl4L +BAQE5ujn/++sCK6I0f5Mq/wfl80paWurhteszW6skzA/zqjgpLLg99OaMyxW +PIy90LCXTDWErEcJqsKsK+BAbdeZSEE4tDbo8IRqMZB5Gwe7U5zg9cyBtB+q +90Bzhh0dneIJi3o+aY2oPgcdqd5XVskBkNuU89d31W6oT7o5bHjhFJSVx/cc +0h+Cp9OaPROayeADL68MB/IBPl06lGZ7BfwHdPp5ZVNgZBfOPxp5HcTUorU+ +mArgnJO77a0zBZAo9UI313Mh8oZq15RJ3QRuj0vtwmYRjBa/8+JIcQn89SSa +e0RLDIVXMbuWDpbBnQCJrYr2S/CZ/BiZ+LoCckP9hgzdpPBjUMWrLs1KiMqZ +/fPXsDTKGF//9w/zKnAyvPvXCr40CtWkv1ptVQUqj48mc6ekkZ3z1JKwroL7 +n4ba24Vl0Dt6OK/Xvgp+anT/cVtFBh/LaFSs21EF3FLS0dtJBj+O5mennaiC +dff87buqZFDQxsR3d2UVCLz+iA9CZLFvlvLyZfEg+ltNbshpWTwuM5w5uZwH +ogJZC8ziZDFC7FvPGS0eyOjtaCAvyWJkZ21wsj4PNGJfbiyvkMV8x9vq8ZY8 +2GRRtyXviyzaaFuzhtx4kJqfvzvOWQ6nXpzQC7zAA8X7px9u2CGHkZq5/rkX +eXCt3UNF2FMOD31V+LslhQdFc8TH04fl8Fp0o7vyFR7cdUvbFxonh8HNZwSv +FPKgVzzG179GDk9c+JYtWMMDzWPewS668lirK2p+eZgHeuYftuYYyuMzq2v2 +pqM8MBbYbjC0Wh6VS3Xq3/zHA+sL9l8ibeTx38N7fy2e4MGegpUuJbvlMb8g +z8lJkIT0jp8GCy7KY3DX0jmuPAnCJpFfy/ny2GXeWHjZggSJmYm66Sl5LFPL +kfuylgSZxwHZtgIKeO1zz6ghksBy5Lr2SCjgYAL/e816Eiy9bOtFNBVQ7FbD +XLUjCccuiee4b1fAq4c/5Jl7kPB5LGOb+EMFzG5/9XnTKRLy1nGO9tUr4KaA +jssBUSR4JLReLG9SwMxLEg6p0SS8Yws/39qlgF9XCJS0xZHwcmugxTW+Al6I +MPVgJ5NQc2czS093GRab2bSszSUh47Dg0JaMZVjvHxOzqpYEl3vXRNSyl2Ff +Mvfk5CO6fmHT5fyCZSi16/7R6joSEq/5786oXIZxGZLhpk9JiH7R0/qhZRnO +MT4MSbaQEKBDVQUIKeIB96GTeu9I2DTgG57ylyLqvs9+yPlJwobw5aXrgxXx +je679DQ+Cdbyve/GIxTxder1az9/kWBu62i664IiFtWAQdEECbqFBvzlNxRx +sGU+5PssCeJevw6QvYq4L4kQGBWhYPFcaYZPvyKemTzeqr6YAqFLXk+VhhTx +07d9bVtFKZht6FweMaGIae9jfW+LUzDMvvd+g4wSnqP0pEGKgubP4S5dG5Uw +T+NoaK8iBc/CVp85t0UJBzRT8/uVKGiQG71j6aqEkqt7hAYZFDxY77k0l6uE +d4OuHRtkUlBaYN10MFwJjTuk5J+xKEjYvwhnKpXQd5z/YIE2Bedma/1v31PC +RBFuaR/ts2nBWR6PlNBthNFL6lAQ0fBtur5FCfVq7ObdV1Dgz24mLwwqYXdW +5c4EfQq2fE5aoaLCwM52v/cHjOl6V3zu2M1mYKyo1FYJEwocjq6JyNRl4MEB +e9/btO0WvG9XXMPAi2uIqMHVFFizVhyXdWJg1mAK19qMgkc+EarO2xgYwcKJ +V7Sh/OWzpN0MlDjx1GivOQWWVsGE5EEGrk9fdPW4BQUmu588WhzFwKQ7UjYx +ayng5Sv6boxjoCOaySy0omDVdz/Zs4kMFF2ScS6Ctn6IjPfCTAbKld4I9gcK +tC97iM9X0etNtbatWkdB0YdKnuV9BgptEAzNoq2hJbIn9BED9ceiN4tYU6BO +lVZMNjPwa9ymiXbazI4pV/4AA18mrgzetJ6Cq4Tjb6NhBr6SKZfMp6207/rN +gJ8MVIr0cZ2irfBzw8zIPAO1V28cy7alIM3sasFKYQL1513/+Je27OkRRz9x +Ai/ePLjLYgMFUlJp1weXESiUF3i+lXai21d7LRUCXbY7V8htpGBJjjnfi00g +s1Y8fjttMf1/bPsNCdTz+ezWTXvhZv3vffYE3nqiH1xrR0FU6uk0phOBh4ge +Oz5tgZ6Otbu2EWiwmPmSbU/348HQpC4uga7/gNhp2iF3Ws2WHSQwo0X+QQnt +qUm1ftcjBNo4eWt10B6PfWbyOpRA+ynPlSqbKDjWRnyQjiIw6odAI9DmKxyJ +c4oj8KTqImUP2oF76owuJhK4bcuofhjtH4XyPS1pBHKzTebSafuPHIiWyCSw +M35bXDntEeMHeg65BN7ob21/QvtQ2NK38TcIdH5LvO2mPVTPPfXsNoElg/cz +v9NWTe7yTeQR+Ihd5TJL22XPFleXagJ3OTv5iDlQEL+iARh1BC4d43TI066Z +NNP9+IzA06IC11Ro85+UyxW1Eagq7FbLpq2dqvHbr5PA3jc9Vtq03T0zvxn1 +Edj0jxGhQztFT7pjop/A7yJzLlq0G6fP1jwcIrDx6j/D6rRnG2dvnvmPQDPf +6H6CttGlwFT7SXo/750zk6HtzR0MX/qbwMJ1V0eFaWca7DnwRpiJo8Y7RCbo ++ttnXztnSjCx2sw/YoC2SJP92r2yTOQdOrX9JW2LjFotLQYTBzzWXLpPO2C/ +icwIi4kXGBYmubSLjEpmK7WYWKFobBZDu2ee9TVYn4lfN73I9aYt1Zz+0sqE +ifPyt47Y0ra9IvFAyJKJxc4h+Wq0Q7yjipqsmWju+GXtDL3fnwX8Q7c5MTF2 +xLK4iLZSa78X042JWn4RocG0t2TucPrkzsSPrqJ/b6R918RWw9+PiVbiZYfe +0/02sqB6qXEgE52s1AcLaau3G05PBTOxrCytzZf2BV9mW8xZJgby9QaG6f59 +vCblnkMCE99RlXK3aI8LLS6QTmOiwKX/KvfT9szhB2fl0v933GP1ip4P444m +dfIBE2fynQoS6Xk6mItLQuuZqKkh4L6GdrY/NYFNdH1bx+P76HlcLJrX3PyW +iY+1Y2zUafetPXn8808mjgd8s0ug51tGfNTz1hQTT6nF/a1G265rv0OAgDIG +uMlfr6LzoTLQiTW7RBnnjN/+04Z0ft7QapLVUca1S2Qth/6fN9KdyjYeyrh7 +efpIEZ1fXxK+RF3yUsY3rKUWyrSzxCa+fvVTxpHaeo9kOu8khBQrLwQro+T4 +RqOjpnR/j+/Y0JlMfz+2UFiZzsvC3j7/gw3KuNB5ckbUiILdO/59Xd2kjC9F +Z4T3GFIg1zlvKvlSGbfOzfwoN6DnvU11YVUfvf7w0UOOdF571u3NmB1XxnSz +ArEjdJ4zbw7UXtRRwUPV2wMcNSjoYI+zPxmoYLKI+ZtINgXnc0XOGa9WwQ9x +GhoVyymYvqrl0m2tgm4fb8SJqVPQlXBwUH23CobUrAsoUqEg9eiIFJWogpaM +oT9Dl9F5BGN7e/kqOL6lZSRrEQXB67QXU9MquIh9zjSYPh+/2Owquyioim/b +mbpOwhTU2T2etl6qihoqK4WnFtD955yQWqyriiuVP1bqz5Pw3UvjyfG9qjg6 +o3xblz6Pmy+4aku3qaLESLWR33v6fL4Y1zr0RhVbKgcWzvaScDO5+lhDryqO +dDdcPtdD3wfS1R6fGFJF+yqOZG4XCSrt4ytHF7CQl9iJVa9I6Oyue+KqwkKp +nDWJh+n7w8aRnRPqrix07l/GwlISsuXOvI7czsJGx50LUm+R8MuipLx3Fwtr +t8287b9JwvVzMz7pXBYuMe/2jCwkYVrrWpdoAAuXPUwSzM4moZTbd+/HORYO +rJZcH5JEglSXR1jNIxbqlaUKkoEkdNXtF9y5Ug3d7XOLvYxI+LHuHSPcQA0d +5FrT9xqQsOjxH8bXV6lhw4qjI7v0SFhda+7zxVQNZ2bZ7xx0SEirlmoJtFXD +6Cz2U0U1Ev7gPbh8fo8abijpSfKRIuFpoZzhwyQ1fJHyyfT9CA/IuIY9rDE1 +LL332WNnAQ+8hYM+traqY4rdiV6Tn1WwLzCUlLi6HL8EcK0z1lSBgc+K1s17 +2dh9uJXXFFAJbTIrxYPMNNCvo6v607k7UF0WlblyoSYy1gr2ad2qgFBBXafm +Pk18NjB64JV7OYj1htj587TwvGTxYJDPbRgoUkvLCdPGS008WYOkEkjTVhK6 +56qDBX6NG4+nFkPSVe/GvSxdNB6ebdervQE709xbJb7qIm9slc7IXCFMri+c +yqlZgUSVc+03dgH0D1gH18WuRN322UXfQ/Mgb60R0bJXD5f7OuTG1V+H2zFB +0j56+qiAVGxQSDbEuu5zWDimj9ptGsGfijLBpDe3OLbFAFd1jollP70Ml3Uy +b7c4GOKa+smTSzakQ+SjhMsO9wzx+QnXX7N1qeBIuBY2sY2Qr+ouMRyRDOv8 +G3dJxxthSrPIQy/li5DD5LKbx4ywVvyDr77deWDX30jfsmsVnl2d6P23aBwk +6dXpvqpZhSHp1IdprRjw5gu9fK7LQX4aw2L/9ijg3vnJir/Iwaby+LYlAqfg +UNTW2U3JHFxhZXV363AkBG3lvZVI5WCa3lDdpa5IiBsLSkxK56DnjZKcNXci +ocxsaiYji4OcTAXiJzcSph7/7iwq4WAhZ9YcnkVA0iuJhIZGDr7700B9+dVw +uJp/+MDZ5xzctaFzaWpsOOQfa7Wxe8HB0bP9MRJB4UApJE2/aOXgCwmRecIp +HHp3yh54/YaDPQ8t6kpFwkGrX8nmUz8H375pvJsSFAaGvBCVggEOTnGrcq/s +CwPzmJ4pr68cbHzg8r74zzDYrJVV8W2Igzh73vaLXhgE+rFU/vuPg5sZqUda +v4RCmOXpqUo+B1XP8q+ovgmFmCWfOo6NcfD9joq5k/WhcLk8//zkJAcXjcvs +33Q9FPJOCfncn+bgA56656PEUCj508s6bJaDP55z4yA8FHjqT5Wt5jlo7BjX +3egXCjV8zanfvznI3mfntGNnKPwPz/oreg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08708435930191807}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 20}, {0., 0.08708435930191807}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}, + 3.9921107329051437`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"b9dd4563-826d-fa45-b026-126726676ae8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{3.9918480149621506`*^9}, + CellLabel->"In[99]:=",ExpressionUUID->"c6de3c8b-ad61-c04a-b1df-f10741068cd1"], + +Cell[BoxData["26.31786553178342`"], "Output", + CellChangeTimes->{3.9921107329665413`*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"58dfbc60-6789-7b4b-9126-5dd69677b1e1"] +}, 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.9918480132941303`*^9}, + CellLabel-> + "In[100]:=",ExpressionUUID->"e95bae90-91f9-c74f-b890-1d51c0908f7e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.029921483242923`*^-279\\\", \ +\\\"5919012181389927685417441689600000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 100, 626, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992110733259762*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"32649659-0367-0346-b721-a8ee92d84cc0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.40162776130444`*^-293\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 627, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992110733280798*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"c8d3b9a3-af71-6544-9336-c2d39095ceb2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.085374273803878`*^-307\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 628, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921107333018055`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"cf525010-2df1-e445-895e-b3a6c553bebb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 100, 629, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992110733325714*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"55d17c00-ef34-f946-bcb8-f91ee8eb358d"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k4lGsUAHApWSoXJWt2Sllnvm/GNt6DrjLkFllbyFJUtNrJkjSyJJKG ++VxEkkIKkRBpUbeyhETIdZOsZUnrff01z++Z7znPe97vzDlnlD2O2Hnz8/Hx +iS3h41v8nHv39KFaQr5ptRodXeuRMu3Ilg4x645BG6IO3i0dnDUFyZce0t2p +SP+ZOzdyUAAFbr/etbQ7D91365LaPyiJxCekUhe6ylEgv+B5+0F11F9re2Sm +qxENOiVvpA+SyFJttG+6qw0ZTrqGPBr4Ey10MdOnut6jkAhPA4V+B9RkUZjf +mvcF5dwxHZho3I/k+6v/89D6iZR/LNcs6D+K1hx2uy5osRSOnrirud4gEKXq +W96zdRCCqKnwypuzYejNZb2GabFVoNk3v7777yiUkB/5kl9GHO7LWSysP34a +SV0cik+jVsMfzDSTGc04dHanlWnbnCRs5I2URxRw0AnDXLenMdKAOt255pYJ +aPPkt1D/IVmw1LDNDS1KQtEmO/bJGqyDAGauR9rkeWRUwr1zql4RnrQZ9vyl +eQEd/jod9WSVMjxPk6tWN0lFC5vE3mk7qMDmZTmdyDUNmRTfyLl0SRU2VMjz +UvdfRNMSbHfHRjU4qb6uQdEhHf2b6O54XFADruz4aZjDvoSsJoOshhnrIYml +eXBGJQONeQqduBO5AdpafIqX/M7A9ynFf7ZRE+QU8/j1n1xGEv9oJJdNboQk +S0J6VyAXyXNKtzMYWiBbbvLTUC0TXd5kKLb6gDac23raZe/dTNQia0Z+uaAD +iofZHMIkCxnJN6boduqCAU/MXqc2C4kuzTu5L0YPgrOeNYap85BCtKKJi4Y+ +oIwF3mYOD5WcEFLp26AP/4Z/6b4Wz0Om+6cF923Sh5rYYKWVCTy0x7qp3UdP +HyovW7a9TOIhnuSBQ8FG+mC7dOSBdRoPyVwvycyw1Qeb1DVvJLN5aE07a+F1 +oD68fOG74Us5Dwmr7660e6wP0k0uUR1veOigDGIXP9UHre0/JEZ6eKhllcq7 +pc/14aCQdvu3tzyUOPdBoOKVPkSdc+td946HRJ+ccJDqweftl17t+p6HJA4l +zLwd0wfdyHDZ4lEekr9VQ/OWoEF17EJX6TceCi+gHt1fQwP3q026Rd95qI8b +5bpWigbcvz0qc3/wUHaMZcxjORr4+7C3p/ziIaWdba2a6jTQSvlc5clPIfX5 +j0cnmDT48Xab+5AwhXRYMqVBe2gwc9rNy1KaQrdVfb/zu9PgWI/pKQMZChmI +VG9J9qDBUrsXVzRlKWTe5TyQf4AGVp1GEsLyFHI8dlm87RgNXJ0XImoVKRRZ +IHVSK44GD/lLs2c1KPRq1VrDwRIa3GMXnbxFUMhhxvvM4Vs0UHmpqHqGpFBP +T0Xr/G0aJIlv7XdiUOjfQoeDotU02MOejvrGpNBXs/Qs4yYadGZEHyKMKaQc +uOZXehcNQpMzx0LNKHT8nUQTm48OCm+NZOy3UejJo933r/PTwatM+OIPbIXS +q1UiAnRQd6ZYBbYUaok0utEiTIfdX23XzfxFIRVlj3T2amy/KDGOHYVaPW8d +YGvQ4eXtfe0cJwrpffxrJduGDvnW65kT7hSKa+Uuv25LB2674bWIfRTqrR7i +E9lBB9dtS9grPSjEORc0+9SBDssCJxXXe1JoYNPf76zc6HBbe5WUvTeFUvwn +yqyO0+HRzHmI9aXQ5JdEB6vLdCjaeWHG+hiO153rSGXSQcDqg009dsv9Sqdp +Hh3qM5YP6B+nUP7ZARduLh02ir6vXHOCQq5yxN6P1+mQlt++ofUkhZrN3+6P +v0+HgDezm9SDKVS+fupAXz0dsgrjDRKxc1YK+Oo30uF0+njUZ+zQTp1Dbx7R +oTfDp7k2BOd7MOaI5is6gBef4tYwCmVd0Ax++p4Oh1xDVY1O4fwCTUPWDdNh +6sWXmYvYgbvsQ499oMN3MZulk9jb1SPCZcbw+7jX15kTSaHl1a+ifGfpcIvj +s+t7FIWODQTFCwsRYBJr8zHhNIX2Niee2yNCwNnVrSk92DbXcxNurSSgdYQd +uCGWQhonnyW5iBOwRdz7+wPsXkHF1CJZAmxrVKc+naHQFt1HmVbaBBw5tT9N +jkMh5+Vbd77SJWBc/l6TJ/bBvqernGgERFh+FCvGTk74J8qLSUD7gg4/M55C +nR869keaERDm+cl88zkKjdQ5Ki3fTMC2tIzdZ7C/pXe/SbQkIO5tV1oz9rrN +vTaZ1gQUPDi+yyKBQl45Q7QKBwKcI6/uIBLxfQR5jxk7E5D78KyrPzbH9kNB +oysByltroguxb/wYlX7lRsAN9+ObpJIo9MX5869RXwLIoOcTn7BjxJc8UzpF +gMRjBvvQeQpdHImJLYwiQNrOzyID+2r9MlOd0wR8lg7a3Yjd4id0y5hDgDlr +/4RkCoXEW/7IcEwloIXtcbEcWyX3wva+iwQodQ8md2ETwatFvDIIXO8LRd+x +nTWkIo7xCLDpsDc3u4DrI0bBM/EqAWrNfr8eYJe75MivLiIgOtybbwD7oZ5K +J7eYgEecWtWf2CPv1K0KywiIWTr+gkjF91VRyK9zGz9f+9XxL+yVSZq1dyoI +8HJ7wueLrWusrdtYQ8BFL+kaLjZIlI5svY+/d3/2tAzb7qNe3st6AmRDCr8/ +wg7MICT7HhJwIAceTWFz/CtfeD7G+WTouS1Lo1Dmnwac0acE/AwtlZXCrvti +/H3+BQGilg0Lhti5z6s87FsJUPW9/ocVdmwBvaWknYBQx/XeTtj7T5Xqi3QS +YDRu/c0L28ppE9e7m4CR1dovj2Fr6RXyPeghwP9u/1AEtqiwqo98HwEir4IN +8KBGHTWyzPZBAjTsynMp7Kq0S9k6/xLw+ll45dXF8x2WWH7uPwI+dkavKMUO +/zPZb3iEAMukzpxKbDcFkdfwCecrlhJ4H9t8/owJb5yAnrNNiU3Yaq+W5M9P +4npXixt6gi1YFLHC/jMBwfLjof9gj0YvHC+ZIaC4ZJV9K/Y/rgE9wvMEBCj9 +PNSBXUafNvNeICC/7lVzJ3bqSr+ihu8EsPso927sgOERMflfBJR0hZi8wXau +8woO4iPBWSzUZdFGGQP9bfwk8E3frlp8ft3R3Vt0BEjgjZo4dWHzWXWXxAuS +YB2w0eA19pDyzrXDwiQcEEt1bcN+9O1lBKwkIcg8vu4F9rV26+EsURI2cNW9 +WrATbjy2mRcjYW9RuHUztv8Zizt2q0mQ/iP/ZD329r31ciWSJHD8bvXfxaYz +jU8LS5Mw51+TeAt7rVjVqJcsCb0PO8KKsBdGaHYN8iQ8Xr/2Zg5274OSajlF +EnydLiplLNZH5kblIGUSEmS9OxMX6+PEVU6bKgkyKPtF9GJ92KhMaWuQIJjp +IBy4WB/q2U7xG3A+grlxvov10JWuAdokaN60trLF/qNMPDlLl4RfDZ3JCPsz +J2l2Tp8ERvY2Kb3FejA68/Amg4RN1Y7ToovvN/ukhxzgfGTgeROuZ/WgqaeB +5iT8OZm6qRRbaPth/bbNJKRvi3mx+Pv4Z4kXX7wVCWzO+f7D2M7e9tlzdiRs +rmnXE8E2Nn0pYOdAwvsDoaWT+PeoIGXtd9OJhENyR493YA89MTfx2k2Cp2Ne +cxa2vxatp9WbhJ6xjCvK2AHzst/cfEg42msV9wv3g/DGpbITB0m4nouSerAT +nF+7iBwlgVQ9KJSCfS02+I15KAn/2gxXTuH+U/rXvoVX4STcmO6ve4RdKcuW +cYsk4b7N8rEs7OYyOZewWBImHrMrLbDf99Z1304mYan18Kr4ZAp9LCz8anaB +BO03R8ydsaeOp0i/SiPhb3sxSgP7t5CH89hlErS6hZobcH+UJwW61a6QEFEq +MTSK+6ljknVXehW+b9XwY2txP97jTMyr1uD6MLCU7Mb92kt1nVR5LQlbE5cM +XsY+UT3h+OIBCeM/m6aksFOGL3Quf07CldjGmRV4HrSwul8HDZCgZixV9CwO +7wNCD2YFhkiofSvTE4nd3V4keXGYBD+xzwQd+4NvmEPZKAmsGMonA8+jZZcU +Xo/MkDDNMXrmgOcVa8Krw0WYARFvQy5fj8b1em9LXu0KBvxnLeLphD1xduNR +RVEGZHyNP7kUO1t5asWwBAPYu2oPu+B5+WtnmMVReQZM8d+58wPP1/p7F8rj +dBmQuNKoWimcQmbxdSm3HRiQo2qztT+AQrKOuXvXOjNgh6i9SgD2Z5VYrRBX +BpyUj7IUwc6rtXpi6sYAiQ0VfjS8L/BPdfx+6sMAxo8DRqF4v2hy/OQ/EMaA +gHdjQx/8KfSnmvS2VXkMkLHL0DM5QKE7483KXvkMGE+aEq7bj/tT1Ym5mqsM +2Jpzk4mwl7Ff/u1TzIDUvLspCO87jUfiPjfdYUBIc7exAd6HTO/NZIQ+ZsDD +S5xEYTcKMexa338YY4DAloUWLUc83+Qiq0wn8XmXWHtwHSgkOayVmD7NgOYr +5A4B7JkgDmkxh+Plsxhv7fF8wiMh+ze+385pxcgdeL58vKntIMGELR+aOYU2 +FP5feC64kcmE5wW/D4SZU6jWuEDAxogJW2vJvod4f9w+X5/62oQJV4o1U1Zh +B/vP3hgxY4KPeHspD+F9crf7oKgNE8p3Db+5ZUIhH0MGe5c7E8akP85V4X21 +6POg3AyHCXv/a99MbKTQRm/DevUeHJ+ofDIjSqHzKrbfTvcyIfDSNVkF7Jl+ +D/L9OyYI+s61WK7C/cg1sTh7iAnTUtJbLq3A8297f4bUOD5/QXaZthCFQozP +HBXmMwChg4oepkvwecRblcfVDWD0lOiKkc885F3nE3vnmAFUpJUOeXTwUH1O +h9e0pCEEytbeFj7HQzPXfs/rVhkCaDhEZzF4yFO9WDhzmxGw23h83/uz0PTG +NEb5lBGIxzyIFgrJQnfzvw/OcowhjFUb+FssC7luVgVjBRPcr1RI6fxMJOd3 +tlqnwQRKqqREHmtkIkmRw7e2ObGgWIkpXlTMRfkWEaFTLixYp8RNDyziIlpE +skXabhYkhJbctCjkItupstfd+1ggk1/E7c3jorjO2QXPwywohXfewplc9DUv +0jw0mgUxZkrzthwu6jFOa79azILbvXXGCV5c5BOQz7MqYcEz1vNkXCForqTC +e6yMBTmprLAV7lwkodI9r1/JgqInS5TP7eIia6F18vcbWPB1SLAgxo6Lajuu +erW/ZsEh+weV7sBFbNG72oHdLLhh5VAha8pF3Vuezkm/ZcESpur2DmMumqn5 +xNk7wIJZI5Vdlkwu0s7Vu/lxFJ9vb+4zdR0cr8csMHGcBeyUhbLeTTjeGnuk +O4XzFZ+jp2ly0f6zAa0nZ1mwYsWF1b/VcLyGuEypryzo4D939I4KF8V8y/Cs ++cYCaaveQ75KXCRGFGnt+cmCBukKAQUFLsr2q5n9/ZsFD6+bmbbJcdH/yqa5 +Eg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4lGsUAHApWSoXJWt2Sllnvm/GNt6DrjLkFllbyFJUtNrJkjSyJJKG ++VxEkkIKkRBpUbeyhETIdZOsZUnrff01z++Z7znPe97vzDlnlD2O2Hnz8/Hx +iS3h41v8nHv39KFaQr5ptRodXeuRMu3Ilg4x645BG6IO3i0dnDUFyZce0t2p +SP+ZOzdyUAAFbr/etbQ7D91365LaPyiJxCekUhe6ylEgv+B5+0F11F9re2Sm +qxENOiVvpA+SyFJttG+6qw0ZTrqGPBr4Ey10MdOnut6jkAhPA4V+B9RkUZjf +mvcF5dwxHZho3I/k+6v/89D6iZR/LNcs6D+K1hx2uy5osRSOnrirud4gEKXq +W96zdRCCqKnwypuzYejNZb2GabFVoNk3v7777yiUkB/5kl9GHO7LWSysP34a +SV0cik+jVsMfzDSTGc04dHanlWnbnCRs5I2URxRw0AnDXLenMdKAOt255pYJ +aPPkt1D/IVmw1LDNDS1KQtEmO/bJGqyDAGauR9rkeWRUwr1zql4RnrQZ9vyl +eQEd/jod9WSVMjxPk6tWN0lFC5vE3mk7qMDmZTmdyDUNmRTfyLl0SRU2VMjz +UvdfRNMSbHfHRjU4qb6uQdEhHf2b6O54XFADruz4aZjDvoSsJoOshhnrIYml +eXBGJQONeQqduBO5AdpafIqX/M7A9ynFf7ZRE+QU8/j1n1xGEv9oJJdNboQk +S0J6VyAXyXNKtzMYWiBbbvLTUC0TXd5kKLb6gDac23raZe/dTNQia0Z+uaAD +iofZHMIkCxnJN6boduqCAU/MXqc2C4kuzTu5L0YPgrOeNYap85BCtKKJi4Y+ +oIwF3mYOD5WcEFLp26AP/4Z/6b4Wz0Om+6cF923Sh5rYYKWVCTy0x7qp3UdP +HyovW7a9TOIhnuSBQ8FG+mC7dOSBdRoPyVwvycyw1Qeb1DVvJLN5aE07a+F1 +oD68fOG74Us5Dwmr7660e6wP0k0uUR1veOigDGIXP9UHre0/JEZ6eKhllcq7 +pc/14aCQdvu3tzyUOPdBoOKVPkSdc+td946HRJ+ccJDqweftl17t+p6HJA4l +zLwd0wfdyHDZ4lEekr9VQ/OWoEF17EJX6TceCi+gHt1fQwP3q026Rd95qI8b +5bpWigbcvz0qc3/wUHaMZcxjORr4+7C3p/ziIaWdba2a6jTQSvlc5clPIfX5 +j0cnmDT48Xab+5AwhXRYMqVBe2gwc9rNy1KaQrdVfb/zu9PgWI/pKQMZChmI +VG9J9qDBUrsXVzRlKWTe5TyQf4AGVp1GEsLyFHI8dlm87RgNXJ0XImoVKRRZ +IHVSK44GD/lLs2c1KPRq1VrDwRIa3GMXnbxFUMhhxvvM4Vs0UHmpqHqGpFBP +T0Xr/G0aJIlv7XdiUOjfQoeDotU02MOejvrGpNBXs/Qs4yYadGZEHyKMKaQc +uOZXehcNQpMzx0LNKHT8nUQTm48OCm+NZOy3UejJo933r/PTwatM+OIPbIXS +q1UiAnRQd6ZYBbYUaok0utEiTIfdX23XzfxFIRVlj3T2amy/KDGOHYVaPW8d +YGvQ4eXtfe0cJwrpffxrJduGDvnW65kT7hSKa+Uuv25LB2674bWIfRTqrR7i +E9lBB9dtS9grPSjEORc0+9SBDssCJxXXe1JoYNPf76zc6HBbe5WUvTeFUvwn +yqyO0+HRzHmI9aXQ5JdEB6vLdCjaeWHG+hiO153rSGXSQcDqg009dsv9Sqdp +Hh3qM5YP6B+nUP7ZARduLh02ir6vXHOCQq5yxN6P1+mQlt++ofUkhZrN3+6P +v0+HgDezm9SDKVS+fupAXz0dsgrjDRKxc1YK+Oo30uF0+njUZ+zQTp1Dbx7R +oTfDp7k2BOd7MOaI5is6gBef4tYwCmVd0Ax++p4Oh1xDVY1O4fwCTUPWDdNh +6sWXmYvYgbvsQ499oMN3MZulk9jb1SPCZcbw+7jX15kTSaHl1a+ifGfpcIvj +s+t7FIWODQTFCwsRYBJr8zHhNIX2Niee2yNCwNnVrSk92DbXcxNurSSgdYQd +uCGWQhonnyW5iBOwRdz7+wPsXkHF1CJZAmxrVKc+naHQFt1HmVbaBBw5tT9N +jkMh5+Vbd77SJWBc/l6TJ/bBvqernGgERFh+FCvGTk74J8qLSUD7gg4/M55C +nR869keaERDm+cl88zkKjdQ5Ki3fTMC2tIzdZ7C/pXe/SbQkIO5tV1oz9rrN +vTaZ1gQUPDi+yyKBQl45Q7QKBwKcI6/uIBLxfQR5jxk7E5D78KyrPzbH9kNB +oysByltroguxb/wYlX7lRsAN9+ObpJIo9MX5869RXwLIoOcTn7BjxJc8UzpF +gMRjBvvQeQpdHImJLYwiQNrOzyID+2r9MlOd0wR8lg7a3Yjd4id0y5hDgDlr +/4RkCoXEW/7IcEwloIXtcbEcWyX3wva+iwQodQ8md2ETwatFvDIIXO8LRd+x +nTWkIo7xCLDpsDc3u4DrI0bBM/EqAWrNfr8eYJe75MivLiIgOtybbwD7oZ5K +J7eYgEecWtWf2CPv1K0KywiIWTr+gkjF91VRyK9zGz9f+9XxL+yVSZq1dyoI +8HJ7wueLrWusrdtYQ8BFL+kaLjZIlI5svY+/d3/2tAzb7qNe3st6AmRDCr8/ +wg7MICT7HhJwIAceTWFz/CtfeD7G+WTouS1Lo1Dmnwac0acE/AwtlZXCrvti +/H3+BQGilg0Lhti5z6s87FsJUPW9/ocVdmwBvaWknYBQx/XeTtj7T5Xqi3QS +YDRu/c0L28ppE9e7m4CR1dovj2Fr6RXyPeghwP9u/1AEtqiwqo98HwEir4IN +8KBGHTWyzPZBAjTsynMp7Kq0S9k6/xLw+ll45dXF8x2WWH7uPwI+dkavKMUO +/zPZb3iEAMukzpxKbDcFkdfwCecrlhJ4H9t8/owJb5yAnrNNiU3Yaq+W5M9P +4npXixt6gi1YFLHC/jMBwfLjof9gj0YvHC+ZIaC4ZJV9K/Y/rgE9wvMEBCj9 +PNSBXUafNvNeICC/7lVzJ3bqSr+ihu8EsPso927sgOERMflfBJR0hZi8wXau +8woO4iPBWSzUZdFGGQP9bfwk8E3frlp8ft3R3Vt0BEjgjZo4dWHzWXWXxAuS +YB2w0eA19pDyzrXDwiQcEEt1bcN+9O1lBKwkIcg8vu4F9rV26+EsURI2cNW9 +WrATbjy2mRcjYW9RuHUztv8Zizt2q0mQ/iP/ZD329r31ciWSJHD8bvXfxaYz +jU8LS5Mw51+TeAt7rVjVqJcsCb0PO8KKsBdGaHYN8iQ8Xr/2Zg5274OSajlF +EnydLiplLNZH5kblIGUSEmS9OxMX6+PEVU6bKgkyKPtF9GJ92KhMaWuQIJjp +IBy4WB/q2U7xG3A+grlxvov10JWuAdokaN60trLF/qNMPDlLl4RfDZ3JCPsz +J2l2Tp8ERvY2Kb3FejA68/Amg4RN1Y7ToovvN/ukhxzgfGTgeROuZ/WgqaeB +5iT8OZm6qRRbaPth/bbNJKRvi3mx+Pv4Z4kXX7wVCWzO+f7D2M7e9tlzdiRs +rmnXE8E2Nn0pYOdAwvsDoaWT+PeoIGXtd9OJhENyR493YA89MTfx2k2Cp2Ne +cxa2vxatp9WbhJ6xjCvK2AHzst/cfEg42msV9wv3g/DGpbITB0m4nouSerAT +nF+7iBwlgVQ9KJSCfS02+I15KAn/2gxXTuH+U/rXvoVX4STcmO6ve4RdKcuW +cYsk4b7N8rEs7OYyOZewWBImHrMrLbDf99Z1304mYan18Kr4ZAp9LCz8anaB +BO03R8ydsaeOp0i/SiPhb3sxSgP7t5CH89hlErS6hZobcH+UJwW61a6QEFEq +MTSK+6ljknVXehW+b9XwY2txP97jTMyr1uD6MLCU7Mb92kt1nVR5LQlbE5cM +XsY+UT3h+OIBCeM/m6aksFOGL3Quf07CldjGmRV4HrSwul8HDZCgZixV9CwO +7wNCD2YFhkiofSvTE4nd3V4keXGYBD+xzwQd+4NvmEPZKAmsGMonA8+jZZcU +Xo/MkDDNMXrmgOcVa8Krw0WYARFvQy5fj8b1em9LXu0KBvxnLeLphD1xduNR +RVEGZHyNP7kUO1t5asWwBAPYu2oPu+B5+WtnmMVReQZM8d+58wPP1/p7F8rj +dBmQuNKoWimcQmbxdSm3HRiQo2qztT+AQrKOuXvXOjNgh6i9SgD2Z5VYrRBX +BpyUj7IUwc6rtXpi6sYAiQ0VfjS8L/BPdfx+6sMAxo8DRqF4v2hy/OQ/EMaA +gHdjQx/8KfSnmvS2VXkMkLHL0DM5QKE7483KXvkMGE+aEq7bj/tT1Ym5mqsM +2Jpzk4mwl7Ff/u1TzIDUvLspCO87jUfiPjfdYUBIc7exAd6HTO/NZIQ+ZsDD +S5xEYTcKMexa338YY4DAloUWLUc83+Qiq0wn8XmXWHtwHSgkOayVmD7NgOYr +5A4B7JkgDmkxh+Plsxhv7fF8wiMh+ze+385pxcgdeL58vKntIMGELR+aOYU2 +FP5feC64kcmE5wW/D4SZU6jWuEDAxogJW2vJvod4f9w+X5/62oQJV4o1U1Zh +B/vP3hgxY4KPeHspD+F9crf7oKgNE8p3Db+5ZUIhH0MGe5c7E8akP85V4X21 +6POg3AyHCXv/a99MbKTQRm/DevUeHJ+ofDIjSqHzKrbfTvcyIfDSNVkF7Jl+ +D/L9OyYI+s61WK7C/cg1sTh7iAnTUtJbLq3A8297f4bUOD5/QXaZthCFQozP +HBXmMwChg4oepkvwecRblcfVDWD0lOiKkc885F3nE3vnmAFUpJUOeXTwUH1O +h9e0pCEEytbeFj7HQzPXfs/rVhkCaDhEZzF4yFO9WDhzmxGw23h83/uz0PTG +NEb5lBGIxzyIFgrJQnfzvw/OcowhjFUb+FssC7luVgVjBRPcr1RI6fxMJOd3 +tlqnwQRKqqREHmtkIkmRw7e2ObGgWIkpXlTMRfkWEaFTLixYp8RNDyziIlpE +skXabhYkhJbctCjkItupstfd+1ggk1/E7c3jorjO2QXPwywohXfewplc9DUv +0jw0mgUxZkrzthwu6jFOa79azILbvXXGCV5c5BOQz7MqYcEz1vNkXCForqTC +e6yMBTmprLAV7lwkodI9r1/JgqInS5TP7eIia6F18vcbWPB1SLAgxo6Lajuu +erW/ZsEh+weV7sBFbNG72oHdLLhh5VAha8pF3Vuezkm/ZcESpur2DmMumqn5 +xNk7wIJZI5Vdlkwu0s7Vu/lxFJ9vb+4zdR0cr8csMHGcBeyUhbLeTTjeGnuk +O4XzFZ+jp2ly0f6zAa0nZ1mwYsWF1b/VcLyGuEypryzo4D939I4KF8V8y/Cs ++cYCaaveQ75KXCRGFGnt+cmCBukKAQUFLsr2q5n9/ZsFD6+bmbbJcdH/yqa5 +Eg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.028884311758261866`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.028884311758261866`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4lGsUAHApWSoXJWt2Sllnvm/GNt6DrjLkFllbyFJUtNrJkjSyJJKG ++VxEkkIKkRBpUbeyhETIdZOsZUnrff01z++Z7znPe97vzDlnlD2O2Hnz8/Hx +iS3h41v8nHv39KFaQr5ptRodXeuRMu3Ilg4x645BG6IO3i0dnDUFyZce0t2p +SP+ZOzdyUAAFbr/etbQ7D91365LaPyiJxCekUhe6ylEgv+B5+0F11F9re2Sm +qxENOiVvpA+SyFJttG+6qw0ZTrqGPBr4Ey10MdOnut6jkAhPA4V+B9RkUZjf +mvcF5dwxHZho3I/k+6v/89D6iZR/LNcs6D+K1hx2uy5osRSOnrirud4gEKXq +W96zdRCCqKnwypuzYejNZb2GabFVoNk3v7777yiUkB/5kl9GHO7LWSysP34a +SV0cik+jVsMfzDSTGc04dHanlWnbnCRs5I2URxRw0AnDXLenMdKAOt255pYJ +aPPkt1D/IVmw1LDNDS1KQtEmO/bJGqyDAGauR9rkeWRUwr1zql4RnrQZ9vyl +eQEd/jod9WSVMjxPk6tWN0lFC5vE3mk7qMDmZTmdyDUNmRTfyLl0SRU2VMjz +UvdfRNMSbHfHRjU4qb6uQdEhHf2b6O54XFADruz4aZjDvoSsJoOshhnrIYml +eXBGJQONeQqduBO5AdpafIqX/M7A9ynFf7ZRE+QU8/j1n1xGEv9oJJdNboQk +S0J6VyAXyXNKtzMYWiBbbvLTUC0TXd5kKLb6gDac23raZe/dTNQia0Z+uaAD +iofZHMIkCxnJN6boduqCAU/MXqc2C4kuzTu5L0YPgrOeNYap85BCtKKJi4Y+ +oIwF3mYOD5WcEFLp26AP/4Z/6b4Wz0Om+6cF923Sh5rYYKWVCTy0x7qp3UdP +HyovW7a9TOIhnuSBQ8FG+mC7dOSBdRoPyVwvycyw1Qeb1DVvJLN5aE07a+F1 +oD68fOG74Us5Dwmr7660e6wP0k0uUR1veOigDGIXP9UHre0/JEZ6eKhllcq7 +pc/14aCQdvu3tzyUOPdBoOKVPkSdc+td946HRJ+ccJDqweftl17t+p6HJA4l +zLwd0wfdyHDZ4lEekr9VQ/OWoEF17EJX6TceCi+gHt1fQwP3q026Rd95qI8b +5bpWigbcvz0qc3/wUHaMZcxjORr4+7C3p/ziIaWdba2a6jTQSvlc5clPIfX5 +j0cnmDT48Xab+5AwhXRYMqVBe2gwc9rNy1KaQrdVfb/zu9PgWI/pKQMZChmI +VG9J9qDBUrsXVzRlKWTe5TyQf4AGVp1GEsLyFHI8dlm87RgNXJ0XImoVKRRZ +IHVSK44GD/lLs2c1KPRq1VrDwRIa3GMXnbxFUMhhxvvM4Vs0UHmpqHqGpFBP +T0Xr/G0aJIlv7XdiUOjfQoeDotU02MOejvrGpNBXs/Qs4yYadGZEHyKMKaQc +uOZXehcNQpMzx0LNKHT8nUQTm48OCm+NZOy3UejJo933r/PTwatM+OIPbIXS +q1UiAnRQd6ZYBbYUaok0utEiTIfdX23XzfxFIRVlj3T2amy/KDGOHYVaPW8d +YGvQ4eXtfe0cJwrpffxrJduGDvnW65kT7hSKa+Uuv25LB2674bWIfRTqrR7i +E9lBB9dtS9grPSjEORc0+9SBDssCJxXXe1JoYNPf76zc6HBbe5WUvTeFUvwn +yqyO0+HRzHmI9aXQ5JdEB6vLdCjaeWHG+hiO153rSGXSQcDqg009dsv9Sqdp +Hh3qM5YP6B+nUP7ZARduLh02ir6vXHOCQq5yxN6P1+mQlt++ofUkhZrN3+6P +v0+HgDezm9SDKVS+fupAXz0dsgrjDRKxc1YK+Oo30uF0+njUZ+zQTp1Dbx7R +oTfDp7k2BOd7MOaI5is6gBef4tYwCmVd0Ax++p4Oh1xDVY1O4fwCTUPWDdNh +6sWXmYvYgbvsQ499oMN3MZulk9jb1SPCZcbw+7jX15kTSaHl1a+ifGfpcIvj +s+t7FIWODQTFCwsRYBJr8zHhNIX2Niee2yNCwNnVrSk92DbXcxNurSSgdYQd +uCGWQhonnyW5iBOwRdz7+wPsXkHF1CJZAmxrVKc+naHQFt1HmVbaBBw5tT9N +jkMh5+Vbd77SJWBc/l6TJ/bBvqernGgERFh+FCvGTk74J8qLSUD7gg4/M55C +nR869keaERDm+cl88zkKjdQ5Ki3fTMC2tIzdZ7C/pXe/SbQkIO5tV1oz9rrN +vTaZ1gQUPDi+yyKBQl45Q7QKBwKcI6/uIBLxfQR5jxk7E5D78KyrPzbH9kNB +oysByltroguxb/wYlX7lRsAN9+ObpJIo9MX5869RXwLIoOcTn7BjxJc8UzpF +gMRjBvvQeQpdHImJLYwiQNrOzyID+2r9MlOd0wR8lg7a3Yjd4id0y5hDgDlr +/4RkCoXEW/7IcEwloIXtcbEcWyX3wva+iwQodQ8md2ETwatFvDIIXO8LRd+x +nTWkIo7xCLDpsDc3u4DrI0bBM/EqAWrNfr8eYJe75MivLiIgOtybbwD7oZ5K +J7eYgEecWtWf2CPv1K0KywiIWTr+gkjF91VRyK9zGz9f+9XxL+yVSZq1dyoI +8HJ7wueLrWusrdtYQ8BFL+kaLjZIlI5svY+/d3/2tAzb7qNe3st6AmRDCr8/ +wg7MICT7HhJwIAceTWFz/CtfeD7G+WTouS1Lo1Dmnwac0acE/AwtlZXCrvti +/H3+BQGilg0Lhti5z6s87FsJUPW9/ocVdmwBvaWknYBQx/XeTtj7T5Xqi3QS +YDRu/c0L28ppE9e7m4CR1dovj2Fr6RXyPeghwP9u/1AEtqiwqo98HwEir4IN +8KBGHTWyzPZBAjTsynMp7Kq0S9k6/xLw+ll45dXF8x2WWH7uPwI+dkavKMUO +/zPZb3iEAMukzpxKbDcFkdfwCecrlhJ4H9t8/owJb5yAnrNNiU3Yaq+W5M9P +4npXixt6gi1YFLHC/jMBwfLjof9gj0YvHC+ZIaC4ZJV9K/Y/rgE9wvMEBCj9 +PNSBXUafNvNeICC/7lVzJ3bqSr+ihu8EsPso927sgOERMflfBJR0hZi8wXau +8woO4iPBWSzUZdFGGQP9bfwk8E3frlp8ft3R3Vt0BEjgjZo4dWHzWXWXxAuS +YB2w0eA19pDyzrXDwiQcEEt1bcN+9O1lBKwkIcg8vu4F9rV26+EsURI2cNW9 +WrATbjy2mRcjYW9RuHUztv8Zizt2q0mQ/iP/ZD329r31ciWSJHD8bvXfxaYz +jU8LS5Mw51+TeAt7rVjVqJcsCb0PO8KKsBdGaHYN8iQ8Xr/2Zg5274OSajlF +EnydLiplLNZH5kblIGUSEmS9OxMX6+PEVU6bKgkyKPtF9GJ92KhMaWuQIJjp +IBy4WB/q2U7xG3A+grlxvov10JWuAdokaN60trLF/qNMPDlLl4RfDZ3JCPsz +J2l2Tp8ERvY2Kb3FejA68/Amg4RN1Y7ToovvN/ukhxzgfGTgeROuZ/WgqaeB +5iT8OZm6qRRbaPth/bbNJKRvi3mx+Pv4Z4kXX7wVCWzO+f7D2M7e9tlzdiRs +rmnXE8E2Nn0pYOdAwvsDoaWT+PeoIGXtd9OJhENyR493YA89MTfx2k2Cp2Ne +cxa2vxatp9WbhJ6xjCvK2AHzst/cfEg42msV9wv3g/DGpbITB0m4nouSerAT +nF+7iBwlgVQ9KJSCfS02+I15KAn/2gxXTuH+U/rXvoVX4STcmO6ve4RdKcuW +cYsk4b7N8rEs7OYyOZewWBImHrMrLbDf99Z1304mYan18Kr4ZAp9LCz8anaB +BO03R8ydsaeOp0i/SiPhb3sxSgP7t5CH89hlErS6hZobcH+UJwW61a6QEFEq +MTSK+6ljknVXehW+b9XwY2txP97jTMyr1uD6MLCU7Mb92kt1nVR5LQlbE5cM +XsY+UT3h+OIBCeM/m6aksFOGL3Quf07CldjGmRV4HrSwul8HDZCgZixV9CwO +7wNCD2YFhkiofSvTE4nd3V4keXGYBD+xzwQd+4NvmEPZKAmsGMonA8+jZZcU +Xo/MkDDNMXrmgOcVa8Krw0WYARFvQy5fj8b1em9LXu0KBvxnLeLphD1xduNR +RVEGZHyNP7kUO1t5asWwBAPYu2oPu+B5+WtnmMVReQZM8d+58wPP1/p7F8rj +dBmQuNKoWimcQmbxdSm3HRiQo2qztT+AQrKOuXvXOjNgh6i9SgD2Z5VYrRBX +BpyUj7IUwc6rtXpi6sYAiQ0VfjS8L/BPdfx+6sMAxo8DRqF4v2hy/OQ/EMaA +gHdjQx/8KfSnmvS2VXkMkLHL0DM5QKE7483KXvkMGE+aEq7bj/tT1Ym5mqsM +2Jpzk4mwl7Ff/u1TzIDUvLspCO87jUfiPjfdYUBIc7exAd6HTO/NZIQ+ZsDD +S5xEYTcKMexa338YY4DAloUWLUc83+Qiq0wn8XmXWHtwHSgkOayVmD7NgOYr +5A4B7JkgDmkxh+Plsxhv7fF8wiMh+ze+385pxcgdeL58vKntIMGELR+aOYU2 +FP5feC64kcmE5wW/D4SZU6jWuEDAxogJW2vJvod4f9w+X5/62oQJV4o1U1Zh +B/vP3hgxY4KPeHspD+F9crf7oKgNE8p3Db+5ZUIhH0MGe5c7E8akP85V4X21 +6POg3AyHCXv/a99MbKTQRm/DevUeHJ+ofDIjSqHzKrbfTvcyIfDSNVkF7Jl+ +D/L9OyYI+s61WK7C/cg1sTh7iAnTUtJbLq3A8297f4bUOD5/QXaZthCFQozP +HBXmMwChg4oepkvwecRblcfVDWD0lOiKkc885F3nE3vnmAFUpJUOeXTwUH1O +h9e0pCEEytbeFj7HQzPXfs/rVhkCaDhEZzF4yFO9WDhzmxGw23h83/uz0PTG +NEb5lBGIxzyIFgrJQnfzvw/OcowhjFUb+FssC7luVgVjBRPcr1RI6fxMJOd3 +tlqnwQRKqqREHmtkIkmRw7e2ObGgWIkpXlTMRfkWEaFTLixYp8RNDyziIlpE +skXabhYkhJbctCjkItupstfd+1ggk1/E7c3jorjO2QXPwywohXfewplc9DUv +0jw0mgUxZkrzthwu6jFOa79azILbvXXGCV5c5BOQz7MqYcEz1vNkXCForqTC +e6yMBTmprLAV7lwkodI9r1/JgqInS5TP7eIia6F18vcbWPB1SLAgxo6Lajuu +erW/ZsEh+weV7sBFbNG72oHdLLhh5VAha8pF3Vuezkm/ZcESpur2DmMumqn5 +xNk7wIJZI5Vdlkwu0s7Vu/lxFJ9vb+4zdR0cr8csMHGcBeyUhbLeTTjeGnuk +O4XzFZ+jp2ly0f6zAa0nZ1mwYsWF1b/VcLyGuEypryzo4D939I4KF8V8y/Cs ++cYCaaveQ75KXCRGFGnt+cmCBukKAQUFLsr2q5n9/ZsFD6+bmbbJcdH/yqa5 +Eg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.028884311758261866`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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.028884311758261866`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.992111233158764*^9}, + CellLabel-> + "Out[100]=",ExpressionUUID->"c8fa6e85-ca7e-d749-b59b-f81445ad3d9f"] +}, 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[101]:=",ExpressionUUID->"b292bf25-9f2c-1b44-bd26-31940b3b367d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.8675203755591973`*^-240\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 101, 630, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992111233300091*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"c67f0021-f8ab-fe4b-bef4-f76286a20ca2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.371380919251974`*^-248\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 101, 631, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921112333116055`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"fc18f967-acb6-c840-a1c3-ef62dcde1cbe"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0626732797528457`*^-255\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 101, 632, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921112333374977`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"7a0f5cbe-798b-3a43-8c0b-358fce5c421f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 101, 633, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921112333633556`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"0b54c598-4392-fb4e-a878-50de6763d592"], + +Cell[BoxData["26.317865531783397`"], "Output", + CellChangeTimes->{3.9921112771309433`*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"6eb57d53-db36-bc4b-880f-c492f8a667b1"] +}, 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.9918475382015915`*^9, 3.9918475423636837`*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"101ef0da-c6f5-1c49-9804-85fb5ed316b5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.6693955258568047`*^-224\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 102, 634, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921112772805977`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"90a290c9-5087-4341-b751-747e3cd474ec"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3558287049091777`*^-230\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 102, 635, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921112773005943`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"08d40d32-85d6-294c-a6b2-56b21d28ab3a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.069057619255373`*^-236\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 102, 636, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921112773166065`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"aa7c009e-42c1-ac4d-9537-b8a3a9e64ca9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 102, 637, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921112773346004`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"38de7700-d4d8-e142-9db4-4decfa8c7cb0"], + +Cell[BoxData["4.3301441814460935`"], "Output", + CellChangeTimes->{3.992111288056841*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"b0ee4c32-6317-3f44-8578-6eb265b3dcfe"] +}, 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.991847547003359*^9, 3.9918475498243904`*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"087f1adc-ca17-4a4e-8be3-617724431d54"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.6693955258568047`*^-224\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 103, 638, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992111288149748*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"1e8ca755-062d-d540-aef3-d434745279a7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3558287049091777`*^-230\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 103, 639, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992111288186754*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"0bbb1f97-d204-3c47-9ff2-3e6dcf0d8e8b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.069057619255373`*^-236\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 103, 640, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992111288218754*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"071dce6f-a76f-3d4e-8f34-7fe9d62ef95c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 103, 641, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992111288237852*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"8888c9b0-8a07-fb47-a4fd-e02ec566caa0"], + +Cell[BoxData["20.820377646648332`"], "Output", + CellChangeTimes->{3.992111298514166*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"a7cb163e-7caf-1542-944e-319f2392364e"] +}, 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.9918475561652145`*^9, 3.991847558757557*^9}}, + CellLabel-> + "In[104]:=",ExpressionUUID->"562762dd-8337-c248-84ed-48f09efe77cb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.6693955258568047`*^-224\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 104, 642, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99211129860021*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"2173b90f-23f5-2846-8375-66884c3def53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3558287049091777`*^-230\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 104, 643, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921112986301117`*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"01b90bb6-058a-1845-ab19-38491003c87e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.069057619255373`*^-236\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 104, 644, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99211129865711*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"fec4f3df-5edb-b042-ac11-875a7b95806e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 104, 645, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992111298676111*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"7ea16f80-fc4f-b641-8f55-6aaf6ed5b450"], + +Cell[BoxData["203.4541239630444`"], "Output", + CellChangeTimes->{3.992111305820421*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"bd1faab8-0e72-e24e-83e8-fefb98126575"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991847567835865*^9, 3.9918475715285187`*^9}}, + CellLabel-> + "In[105]:=",ExpressionUUID->"b22d48b0-99f1-fc43-8d66-dfdcb64caaf4"], + +Cell[BoxData["0.06653111584453447`"], "Output", + CellChangeTimes->{3.9921113059307976`*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"185c0c3f-5ee4-d74d-80ba-6a79d831658e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991847581296728*^9, 3.991847583342928*^9}, + 3.9919236579457912`*^9}, + CellLabel-> + "In[106]:=",ExpressionUUID->"324c5332-372a-9346-847e-b48a2f85529f"], + +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[107]:=",ExpressionUUID->"3aa52613-e091-4440-b97b-cbff40fea673"], + +Cell[BoxData["1.2732308544160063`"], "Output", + CellChangeTimes->{3.992111305959635*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"70f4eacb-832e-4c41-91aa-147d0b6ae14b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"00409e7b-892c-b145-91f2-fd5d9616a547"], + +Cell[BoxData["12.515254397406263`"], "Output", + CellChangeTimes->{3.9921113059917564`*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"77d6ed3c-64b6-8a4b-befd-1fe7b5770e20"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[109]:=",ExpressionUUID->"eb9f1869-8c47-4c47-ad8f-589aa7e556b3"], + +Cell[BoxData["15.934808049643255`"], "Output", + CellChangeTimes->{3.9921113060166454`*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"6f500449-dd0e-8649-b0fb-adbb87edd044"] +}, 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[110]:=",ExpressionUUID->"a68db5dc-89e4-f247-a519-53dcbe6905b1"], + +Cell[BoxData["0.06171094017808546`"], "Output", + CellChangeTimes->{3.9921113060462723`*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"6b40fb94-b2c4-9046-86ab-0247e3d65634"] +}, 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[111]:=",ExpressionUUID->"d3d0889a-1b29-9a4d-af3d-093ef0359f4b"], + +Cell[BoxData["3.5674989927733827`"], "Output", + CellChangeTimes->{3.992111306271616*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"ec23a64f-874a-8a4b-be21-8e1397391c25"] +}, 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[112]:=",ExpressionUUID->"9fe1a567-82b8-a345-b4b0-80b2c100f9f3"], + +Cell[BoxData["0.001153083452463589`"], "Output", + CellChangeTimes->{3.992111306300228*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"c9c5645c-04b5-fc46-ba21-079cf2546710"] +}, 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[113]:=",ExpressionUUID->"3372ffe6-5d5a-b247-8795-4c6a022053d0"], + +Cell[BoxData["26.098441326362945`"], "Output", + CellChangeTimes->{3.9921113065426483`*^9}, + CellLabel-> + "Out[113]=",ExpressionUUID->"4696d7eb-28ea-6f4b-9bfc-c415b99c38c8"] +}, 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[114]:=",ExpressionUUID->"367b34da-973d-2d45-8020-5f24b7ad9501"], + +Cell[BoxData["0.9825098148127043`"], "Output", + CellChangeTimes->{3.9921113065716476`*^9}, + CellLabel-> + "Out[114]=",ExpressionUUID->"a80721cc-91cf-aa4a-b26c-55571761b275"] +}, 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[115]:=",ExpressionUUID->"112859ae-f114-4041-84e8-1ba64a91ebc1"], + +Cell[BoxData["0.017490185187295736`"], "Output", + CellChangeTimes->{3.9921113066033363`*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"27204d98-0d4b-714d-9977-012310a37a7d"] +}, 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[116]:=",ExpressionUUID->"695320bc-fa3e-3547-be92-70a745b298b2"], + +Cell[BoxData["0.017184278609409836`"], "Output", + CellChangeTimes->{3.992111306643053*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"d5984f89-eb52-6d42-804d-3685337df3e3"] +}, 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.9918476180917797`*^9}, + CellLabel-> + "In[117]:=",ExpressionUUID->"b1722e07-c26a-4d47-97af-4f4eb5664e3b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5141521085875795`*^-247\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 117, 646, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921113066802692`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"19ad97d1-e4b2-1243-a73a-941a6829a713"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.668107707033072`*^-256\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 117, 647, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992111306724146*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"4962cf58-aa6e-e941-b81c-1864640eca20"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4391704400681853`*^-264\\\", \ +\\\"67615075532642592962076366156210530912566907412833894400000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 117, 648, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992111306756151*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"2be79ac0-e9f0-0d4e-8008-9c32d29ae57e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 117, 649, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992111306776249*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"0ffc045a-0a2d-6b47-99dd-078f68922aa6"], + +Cell[BoxData["3.5674989927733836`"], "Output", + CellChangeTimes->{3.992111312884596*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"39d86737-c549-9442-8946-a306217cd3de"] +}, 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.9918476209740715`*^9}, + CellLabel-> + "In[118]:=",ExpressionUUID->"e785cfe1-8cd5-4a44-8f18-a3bdb03abf99"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5141521085875795`*^-247\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 118, 650, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921113129795876`*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"93eb5cb5-8c41-ef49-a079-9d805e210f15"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.668107707033072`*^-256\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 118, 651, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921113130075912`*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"0c93c049-729e-9744-9ce3-e0826fe78acd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4391704400681853`*^-264\\\", \ +\\\"67615075532642592962076366156210530912566907412833894400000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 118, 652, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992111313029688*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"df804e3f-a9be-cc4f-bb66-6337a91642ad"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 118, 653, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921113130526867`*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"df34a7e1-5a90-704d-b485-9ff27d8d4a4f"], + +Cell[BoxData["26.098441326362963`"], "Output", + CellChangeTimes->{3.9921113190258465`*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"b400d4cd-d162-d74b-888a-c18df43261a9"] +}, 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.9918476243275547`*^9}, + CellLabel-> + "In[119]:=",ExpressionUUID->"39feef99-fcf4-8440-bed1-25beef5a0630"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwd1Xk0Vd0bB3AUKUOGEKJMFSLdi1DZT1yJzCqzuO45hszTK2MDjVTkjYoU +KcmQzENSKEnxJiols8p0byGaf/v8/jjrrM/aaz37u8+zz94KzCA7goeLi2sa +P9Q75IXmhuquF4YiW39IFdxhI8OZGzpMRhGaYx+VoTyYo5uuzGhAB2bWKFK2 +YT3nE6S3ovQtbZqUy6ISmnkZHUiyNhEon3q8uimh8D80eczOgXJtV8jVX7Qe +lHF+Sxjlib722EP1b1BKv0I6ZZkxJZdvxu9Rm49SHeU97Fj9sI4BFKulO0a5 +8deEQFThEKrY4ixxG7v3iFRMVeAImvY9Z055ho8xMUcbQ697ehIp8yUHO9EX +xhEzVKOFsrxodltI/SfUtO0ifyG2ley3mzPGU6iXceUaZfKaoqQG/wzKi9k6 +RzlBxTrpYAcbNT8ftbiD/Ubq1Zbwwi9opCRUqAib5ezneyH5K/qPZh9BmZPF +df1e4CxqrGcMU+ZX1BD5QptHvx85PyvGTmc1m4pIfEMf6AmmJdjrbjklbF74 +hsbOVrRR1tt0fCagfhElj9r2lWL76A50TBj/QkGb9hvcw56Lili6Yv1vtEOQ +e4Dy4XqB7ar8f9CP1IaT5diZoHfHu+MvAh9isoLKl9/GCC3khgiZuOlq7MLH +FwaPyPLAyLKiuhoq70f32NRkHjjFmEyuxY5Vmy+/G7gE1GIuQz2Vt1RBiU3j +hfeRdaON2H1dU41/8nihNdqv7wGV/2u1s7AEHxxnqfU0YRdpW6VpLPDBaOnb +t4+wW2qjuf3r+aE4dm7tE+z55u6BT8aCYFQjmNOFLWYhKBLTKAjNOT7cL7G1 +XjFASF8I3rhX+XZj+41WXtuiKQyO3BsserGDeTq0dgiKgLyIs+N77DHFki9J +30ShsJ2d8pn6PmT78k66GFx54Wo9ic1zZ1xhdYgYPPpSKzlN5aWvtSucFINo +GUY1B9vZ+Py9F4PicPifdLSI3ekVGib1TAIuafEH8Bex0YdbZ8948EtC6hPv +lBXYU5OFebdNJKHIvbJcEHtF+Ej3tiZJ0PkmLSaKzUjcq+1RKQUbs5ZKymDX +3dCdL8iRhsip7QYa2DfGfkQahMvBt2dCsw7Yu/ed+BBWLAcf/xG65kzVbxHf +VTwuBz8/0O3csLVvbJJY5yQPvQZzrUzsFqZ7Oa/hWjicZTgZgP2VPfjPp2Pr +wPvmq01J2OIBjIpyS0X4UNV+uhp7/MYKHxs/RajNtXhfh13zvkt2+rgiJP7L +pjViu1q4HVvfpAiDrRnsFiqfeqTdJZoStJcfvPmSmn/iFideShny3swuZ2Pv +9RbQMB9SAc1F3lvqxWyEIvfRHH6rQJPw3pObsdWScraypNfDaOKpQDo2Vx7d +KN52PXTcuW22Dbv4g4vDvYfroeByjcEebL79RUdkcjeAyYP+Zf7YNQzL3gmm +KlxKybIow86zz3i3EK8Kn+eZ7ZXYZ5lDg0uvqMI3yeWWddiswxGT8t2q0Boz +69GMLdqQzWVvrAY5Z/Sbe7D96DNq9Urq8KzaOuQntqziuYQzo5sg2+h+iHkJ +GzWcnlP9zqMBZh6d362xXWedXpEKGkBzuHBiH/bVFmVVI3cNGLPbXOGBrehd +93LxtQaM/Ciy/QdbrWhMhXymCbWpvtn52HKy8uQ6Jy3IG98QwVfKRpvywwV/ +IhqImR8SfovNZB2b17CiAXOZwKkB7EyltA8erjQQUo/hH8deklt693EUDeTX +zUvMYvddndibVkaD4BUmB4Xu4vM00yNbVYkOTw3+/DHCHj9joenIpw2zI6Jt +ZdjXQ5VtKjt0YINKydPsMjbqikRbE/P1wVh8a9iHcjZScO+xcvPfARfTaFa+ +VWxE/K0qkTsEwHtjoFS0lo2kJmuWSTGN4JD2rQhoYKNw+vb3aWoMGOJ54Rv/ +AOef/tUmPmECWcvzFj8/wv00CluW02kK3tkZuUOP8f6Z83tYlG4GMUH6Fp3t +bLS4c/XzloQ9EDs4rmXRyUb9XEu+DHlaQj/9/PuJbjYKXBN0/oiSNVzU6nAk +37BRiW9b079JNrBU70VMYD8bRc9KL6j72sLiVNQUYxifH+a79j85YAc9S4JK +b3xkI32X1J1jtvagalPat2yajV5KZ/u10PeC8ee8fMWv+D65eayhYOM+0LrK +l1e/gPfXoJqFldB+4J3VN/v7C98HrzjekdP7geh5rSvJzUH0f1OL8gYdAAn7 +2I8u4aDspbOaac2OoHWyQzaBj4Oqdm7uS6p1gsvTh0X3LOegzK2nRX8VOoPR +6iFZLkEO6nyXf5ye7AK2rVeWxQhzUKVllnLwYVcwifBUXiPKQV8C7LkCWW6w +s2otM0Gcg+Z3qfrMGLsDFP/d1CLBQQXTbxfDdA9AL9dyLaXVHOR4Pd/LTdAD +ZGOsD+6U4aDye3sOLDnhAQIabWTwGg7Sl335/dR3DwgpvizqJs9BSoPeff/5 +esLCqqR8xXUcNCpw0DprxBNE/FVzJxU4qOuslZfpPiZYK0lHhylxUHpUjkBE +FxNehraEzylzUEPj3+9eZl4Qp3M4k7Geg1a6wgl6nReMZIWFOGzgoHWrnnSu +afCC/dEerS7YWh2Wq/kavUC4I0rSA9tuu8vtNw+94PtRtbs+2OlrIp/FPfUC +utmph4ewZfrvrGx74wX826ZdrmAru0tlui54wdohhYD32PoeMwVJ2iz479wp +zr6NHHTzEifMSpcFYyK51k7Yq7q/GkrpsUA/jVbkij1jsvCqYBsLeivr3Lyw +b6hzcXcYseDJQc/cYGzhBVEnMVsWuIe9KTuNPZqiszwngAVpl+c+NmDbPtn6 +yjuIBR/f5c0/wG7kMsjRCmHB3aAWrmbsS2GGOo/CWfC52XHlU2wrJ1PPsRgW +lGa3CfVg1yo71aqfZgEj49K5Keyz9bG+NTdZIEoU50urclAALUM/qoAFjXyB +9muwLW6XLdcrZIHv3fI/8tgrMsZvVxez4G3wc0tl7KRQm4mqChZ08Oi+0MSO +VVU+WPmIBRIvqxyMsf0ynvnf+8ACuTjnZD9sM+Hx7aGDLHAx85/wx96YxCVE +G2aBv9gfkyDs8VCd4rIxFixben0+DNvTKmf67hQLNloO6sZhO/KGBZb+YMFq +A+Wd57BNw2SCiyQJ8O18ElaG/SjnuHnaagJYUWtLyrG3d3xVjpIhYD758Fgl +tpbKs7fG8gS8tHXfU4ct/TrG+J0KARqtx2YfYU8a9Euu0CHAatCushv7HM+1 ++972BAR1ffn9lVr/ZsFMy30E+CuovZ3DTnSJCqU7EEAX8S77hh1VYbPhrzMB +QttnHH9Q+Unu1ItMAn4KaCZyq+H/tZ3Jag0hQGzH/j0rsV+nqggonSdgZs73 +ykbsEiTk8ymVgF8ixb9VsROn51qKLxDQKrLXTR2bZtYSr5dBgI/n81Wa2Ge5 +vL5aXiUA3vqx6Ni7gq69jSoiINTI8PgObDm5k7qGJQScYVY2GmLPtQddWHIX +5xU9N4ewc9cjy7PlBLxo93U0wv7d39+UV0dAenIdlyl2hYVswYs2AhYf1XRb +Y5/5wcOb3k5AdK/1sA02s2DC06mDAHur3TO22CJL62RHOwkIXO/2xx7bv97x +3PdeAn5fW/XXAVtJ7WKk8hgBWWlFRw9g/3gd1/15nIARPTtvD+yuJEKr9BMB +bgxHM0/s+CHtCf0pAv7YJPF6YfdldrtZzxKgXOnpTmKnLRM1ieYmofS1VJo/ +dsPXfpfwJST01u1iBmB/7C8MDeQl4WLR5s2B2NsrGNeYy0m4HL35QRD2uEfU +T3NREgZ4x6pDqfwWJmIm4iS4Xx8OCMPetlVMFUmQcKnz0rpw7PNCRfvp0iTs +v6MdG0GN1w2UySqQ8G5ARjAKm8wvapNQIiHw3MgtyufPHxpYqUJCPknAIWo+ +UlxoqSoJ4S7p3tHUuLipz5QWCcbSV8/GYtf9EU8Yp5Ew0qgpEoc99nnw30Ft +El5viTpL2aApuvmVHglpDjpH4rFH/Uvk7wMJ3RkO6DC2sGOMTrURCQ+vFN+k +rG+826KMQcIRpYYVR6j9Ij18KH83Cbeu8jylXLO09HyOOQldRw2UjmKPsGNu +XbIgwaFDLZqy3mOJnhQbEvrCtOWPUf0uG548YUdCdYvlQcopWaU8R/eScMdj +bSXl4VAzrUhHEiKZk4aJ2ELukqbBziTsvj8WT1nPbMTNz5UEecvMesopa+PO +uHuQULWoop5E5VlhnuvIJOGkALc75eF5yVo7FglJO9NTKAsNjXRakLhfFwdq +Ket13B3f5UMCP//IMGVmddxv8COhPvUq/3Gqfq75qm3+JHC0xNQp16RIqesE +kvBxeIc55eGo0Z2bg3GefAWSsiCrzFE1lATXiPvxlLdaxwcphZNQaCuaTplp +sOe4XCQJNnpyNyknq6zOlooioX/DUAXlKpGxctFoEpTXujVRHvpZ1i4QS4Ku +XGrb/+t/jB/ijSchWCHuOWXdl3sW/yaQ4Keu0En5f9VfD4I= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwd1Xk0Vd0bB3AUKUOGEKJMFSLdi1DZT1yJzCqzuO45hszTK2MDjVTkjYoU +KcmQzENSKEnxJiols8p0byGaf/v8/jjrrM/aaz37u8+zz94KzCA7goeLi2sa +P9Q75IXmhuquF4YiW39IFdxhI8OZGzpMRhGaYx+VoTyYo5uuzGhAB2bWKFK2 +YT3nE6S3ovQtbZqUy6ISmnkZHUiyNhEon3q8uimh8D80eczOgXJtV8jVX7Qe +lHF+Sxjlib722EP1b1BKv0I6ZZkxJZdvxu9Rm49SHeU97Fj9sI4BFKulO0a5 +8deEQFThEKrY4ixxG7v3iFRMVeAImvY9Z055ho8xMUcbQ697ehIp8yUHO9EX +xhEzVKOFsrxodltI/SfUtO0ifyG2ley3mzPGU6iXceUaZfKaoqQG/wzKi9k6 +RzlBxTrpYAcbNT8ftbiD/Ubq1Zbwwi9opCRUqAib5ezneyH5K/qPZh9BmZPF +df1e4CxqrGcMU+ZX1BD5QptHvx85PyvGTmc1m4pIfEMf6AmmJdjrbjklbF74 +hsbOVrRR1tt0fCagfhElj9r2lWL76A50TBj/QkGb9hvcw56Lili6Yv1vtEOQ +e4Dy4XqB7ar8f9CP1IaT5diZoHfHu+MvAh9isoLKl9/GCC3khgiZuOlq7MLH +FwaPyPLAyLKiuhoq70f32NRkHjjFmEyuxY5Vmy+/G7gE1GIuQz2Vt1RBiU3j +hfeRdaON2H1dU41/8nihNdqv7wGV/2u1s7AEHxxnqfU0YRdpW6VpLPDBaOnb +t4+wW2qjuf3r+aE4dm7tE+z55u6BT8aCYFQjmNOFLWYhKBLTKAjNOT7cL7G1 +XjFASF8I3rhX+XZj+41WXtuiKQyO3BsserGDeTq0dgiKgLyIs+N77DHFki9J +30ShsJ2d8pn6PmT78k66GFx54Wo9ic1zZ1xhdYgYPPpSKzlN5aWvtSucFINo +GUY1B9vZ+Py9F4PicPifdLSI3ekVGib1TAIuafEH8Bex0YdbZ8948EtC6hPv +lBXYU5OFebdNJKHIvbJcEHtF+Ej3tiZJ0PkmLSaKzUjcq+1RKQUbs5ZKymDX +3dCdL8iRhsip7QYa2DfGfkQahMvBt2dCsw7Yu/ed+BBWLAcf/xG65kzVbxHf +VTwuBz8/0O3csLVvbJJY5yQPvQZzrUzsFqZ7Oa/hWjicZTgZgP2VPfjPp2Pr +wPvmq01J2OIBjIpyS0X4UNV+uhp7/MYKHxs/RajNtXhfh13zvkt2+rgiJP7L +pjViu1q4HVvfpAiDrRnsFiqfeqTdJZoStJcfvPmSmn/iFideShny3swuZ2Pv +9RbQMB9SAc1F3lvqxWyEIvfRHH6rQJPw3pObsdWScraypNfDaOKpQDo2Vx7d +KN52PXTcuW22Dbv4g4vDvYfroeByjcEebL79RUdkcjeAyYP+Zf7YNQzL3gmm +KlxKybIow86zz3i3EK8Kn+eZ7ZXYZ5lDg0uvqMI3yeWWddiswxGT8t2q0Boz +69GMLdqQzWVvrAY5Z/Sbe7D96DNq9Urq8KzaOuQntqziuYQzo5sg2+h+iHkJ +GzWcnlP9zqMBZh6d362xXWedXpEKGkBzuHBiH/bVFmVVI3cNGLPbXOGBrehd +93LxtQaM/Ciy/QdbrWhMhXymCbWpvtn52HKy8uQ6Jy3IG98QwVfKRpvywwV/ +IhqImR8SfovNZB2b17CiAXOZwKkB7EyltA8erjQQUo/hH8deklt693EUDeTX +zUvMYvddndibVkaD4BUmB4Xu4vM00yNbVYkOTw3+/DHCHj9joenIpw2zI6Jt +ZdjXQ5VtKjt0YINKydPsMjbqikRbE/P1wVh8a9iHcjZScO+xcvPfARfTaFa+ +VWxE/K0qkTsEwHtjoFS0lo2kJmuWSTGN4JD2rQhoYKNw+vb3aWoMGOJ54Rv/ +AOef/tUmPmECWcvzFj8/wv00CluW02kK3tkZuUOP8f6Z83tYlG4GMUH6Fp3t +bLS4c/XzloQ9EDs4rmXRyUb9XEu+DHlaQj/9/PuJbjYKXBN0/oiSNVzU6nAk +37BRiW9b079JNrBU70VMYD8bRc9KL6j72sLiVNQUYxifH+a79j85YAc9S4JK +b3xkI32X1J1jtvagalPat2yajV5KZ/u10PeC8ee8fMWv+D65eayhYOM+0LrK +l1e/gPfXoJqFldB+4J3VN/v7C98HrzjekdP7geh5rSvJzUH0f1OL8gYdAAn7 +2I8u4aDspbOaac2OoHWyQzaBj4Oqdm7uS6p1gsvTh0X3LOegzK2nRX8VOoPR +6iFZLkEO6nyXf5ye7AK2rVeWxQhzUKVllnLwYVcwifBUXiPKQV8C7LkCWW6w +s2otM0Gcg+Z3qfrMGLsDFP/d1CLBQQXTbxfDdA9AL9dyLaXVHOR4Pd/LTdAD +ZGOsD+6U4aDye3sOLDnhAQIabWTwGg7Sl335/dR3DwgpvizqJs9BSoPeff/5 +esLCqqR8xXUcNCpw0DprxBNE/FVzJxU4qOuslZfpPiZYK0lHhylxUHpUjkBE +FxNehraEzylzUEPj3+9eZl4Qp3M4k7Geg1a6wgl6nReMZIWFOGzgoHWrnnSu +afCC/dEerS7YWh2Wq/kavUC4I0rSA9tuu8vtNw+94PtRtbs+2OlrIp/FPfUC +utmph4ewZfrvrGx74wX826ZdrmAru0tlui54wdohhYD32PoeMwVJ2iz479wp +zr6NHHTzEifMSpcFYyK51k7Yq7q/GkrpsUA/jVbkij1jsvCqYBsLeivr3Lyw +b6hzcXcYseDJQc/cYGzhBVEnMVsWuIe9KTuNPZqiszwngAVpl+c+NmDbPtn6 +yjuIBR/f5c0/wG7kMsjRCmHB3aAWrmbsS2GGOo/CWfC52XHlU2wrJ1PPsRgW +lGa3CfVg1yo71aqfZgEj49K5Keyz9bG+NTdZIEoU50urclAALUM/qoAFjXyB +9muwLW6XLdcrZIHv3fI/8tgrMsZvVxez4G3wc0tl7KRQm4mqChZ08Oi+0MSO +VVU+WPmIBRIvqxyMsf0ynvnf+8ACuTjnZD9sM+Hx7aGDLHAx85/wx96YxCVE +G2aBv9gfkyDs8VCd4rIxFixben0+DNvTKmf67hQLNloO6sZhO/KGBZb+YMFq +A+Wd57BNw2SCiyQJ8O18ElaG/SjnuHnaagJYUWtLyrG3d3xVjpIhYD758Fgl +tpbKs7fG8gS8tHXfU4ct/TrG+J0KARqtx2YfYU8a9Euu0CHAatCushv7HM+1 ++972BAR1ffn9lVr/ZsFMy30E+CuovZ3DTnSJCqU7EEAX8S77hh1VYbPhrzMB +QttnHH9Q+Unu1ItMAn4KaCZyq+H/tZ3Jag0hQGzH/j0rsV+nqggonSdgZs73 +ykbsEiTk8ymVgF8ixb9VsROn51qKLxDQKrLXTR2bZtYSr5dBgI/n81Wa2Ge5 +vL5aXiUA3vqx6Ni7gq69jSoiINTI8PgObDm5k7qGJQScYVY2GmLPtQddWHIX +5xU9N4ewc9cjy7PlBLxo93U0wv7d39+UV0dAenIdlyl2hYVswYs2AhYf1XRb +Y5/5wcOb3k5AdK/1sA02s2DC06mDAHur3TO22CJL62RHOwkIXO/2xx7bv97x +3PdeAn5fW/XXAVtJ7WKk8hgBWWlFRw9g/3gd1/15nIARPTtvD+yuJEKr9BMB +bgxHM0/s+CHtCf0pAv7YJPF6YfdldrtZzxKgXOnpTmKnLRM1ieYmofS1VJo/ +dsPXfpfwJST01u1iBmB/7C8MDeQl4WLR5s2B2NsrGNeYy0m4HL35QRD2uEfU +T3NREgZ4x6pDqfwWJmIm4iS4Xx8OCMPetlVMFUmQcKnz0rpw7PNCRfvp0iTs +v6MdG0GN1w2UySqQ8G5ARjAKm8wvapNQIiHw3MgtyufPHxpYqUJCPknAIWo+ +UlxoqSoJ4S7p3tHUuLipz5QWCcbSV8/GYtf9EU8Yp5Ew0qgpEoc99nnw30Ft +El5viTpL2aApuvmVHglpDjpH4rFH/Uvk7wMJ3RkO6DC2sGOMTrURCQ+vFN+k +rG+826KMQcIRpYYVR6j9Ij18KH83Cbeu8jylXLO09HyOOQldRw2UjmKPsGNu +XbIgwaFDLZqy3mOJnhQbEvrCtOWPUf0uG548YUdCdYvlQcopWaU8R/eScMdj +bSXl4VAzrUhHEiKZk4aJ2ELukqbBziTsvj8WT1nPbMTNz5UEecvMesopa+PO +uHuQULWoop5E5VlhnuvIJOGkALc75eF5yVo7FglJO9NTKAsNjXRakLhfFwdq +Ket13B3f5UMCP//IMGVmddxv8COhPvUq/3Gqfq75qm3+JHC0xNQp16RIqesE +kvBxeIc55eGo0Z2bg3GefAWSsiCrzFE1lATXiPvxlLdaxwcphZNQaCuaTplp +sOe4XCQJNnpyNyknq6zOlooioX/DUAXlKpGxctFoEpTXujVRHvpZ1i4QS4Ku +XGrb/+t/jB/ijSchWCHuOWXdl3sW/yaQ4Keu0En5f9VfD4I= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9897041767414709, + 1.0103824702261712`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9897041767414732}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.9897041767414709, + 1.0103824702261712`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9897041767414732}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwd1Xk0Vd0bB3AUKUOGEKJMFSLdi1DZT1yJzCqzuO45hszTK2MDjVTkjYoU +KcmQzENSKEnxJiols8p0byGaf/v8/jjrrM/aaz37u8+zz94KzCA7goeLi2sa +P9Q75IXmhuquF4YiW39IFdxhI8OZGzpMRhGaYx+VoTyYo5uuzGhAB2bWKFK2 +YT3nE6S3ovQtbZqUy6ISmnkZHUiyNhEon3q8uimh8D80eczOgXJtV8jVX7Qe +lHF+Sxjlib722EP1b1BKv0I6ZZkxJZdvxu9Rm49SHeU97Fj9sI4BFKulO0a5 +8deEQFThEKrY4ixxG7v3iFRMVeAImvY9Z055ho8xMUcbQ697ehIp8yUHO9EX +xhEzVKOFsrxodltI/SfUtO0ifyG2ley3mzPGU6iXceUaZfKaoqQG/wzKi9k6 +RzlBxTrpYAcbNT8ftbiD/Ubq1Zbwwi9opCRUqAib5ezneyH5K/qPZh9BmZPF +df1e4CxqrGcMU+ZX1BD5QptHvx85PyvGTmc1m4pIfEMf6AmmJdjrbjklbF74 +hsbOVrRR1tt0fCagfhElj9r2lWL76A50TBj/QkGb9hvcw56Lili6Yv1vtEOQ +e4Dy4XqB7ar8f9CP1IaT5diZoHfHu+MvAh9isoLKl9/GCC3khgiZuOlq7MLH +FwaPyPLAyLKiuhoq70f32NRkHjjFmEyuxY5Vmy+/G7gE1GIuQz2Vt1RBiU3j +hfeRdaON2H1dU41/8nihNdqv7wGV/2u1s7AEHxxnqfU0YRdpW6VpLPDBaOnb +t4+wW2qjuf3r+aE4dm7tE+z55u6BT8aCYFQjmNOFLWYhKBLTKAjNOT7cL7G1 +XjFASF8I3rhX+XZj+41WXtuiKQyO3BsserGDeTq0dgiKgLyIs+N77DHFki9J +30ShsJ2d8pn6PmT78k66GFx54Wo9ic1zZ1xhdYgYPPpSKzlN5aWvtSucFINo +GUY1B9vZ+Py9F4PicPifdLSI3ekVGib1TAIuafEH8Bex0YdbZ8948EtC6hPv +lBXYU5OFebdNJKHIvbJcEHtF+Ej3tiZJ0PkmLSaKzUjcq+1RKQUbs5ZKymDX +3dCdL8iRhsip7QYa2DfGfkQahMvBt2dCsw7Yu/ed+BBWLAcf/xG65kzVbxHf +VTwuBz8/0O3csLVvbJJY5yQPvQZzrUzsFqZ7Oa/hWjicZTgZgP2VPfjPp2Pr +wPvmq01J2OIBjIpyS0X4UNV+uhp7/MYKHxs/RajNtXhfh13zvkt2+rgiJP7L +pjViu1q4HVvfpAiDrRnsFiqfeqTdJZoStJcfvPmSmn/iFideShny3swuZ2Pv +9RbQMB9SAc1F3lvqxWyEIvfRHH6rQJPw3pObsdWScraypNfDaOKpQDo2Vx7d +KN52PXTcuW22Dbv4g4vDvYfroeByjcEebL79RUdkcjeAyYP+Zf7YNQzL3gmm +KlxKybIow86zz3i3EK8Kn+eZ7ZXYZ5lDg0uvqMI3yeWWddiswxGT8t2q0Boz +69GMLdqQzWVvrAY5Z/Sbe7D96DNq9Urq8KzaOuQntqziuYQzo5sg2+h+iHkJ +GzWcnlP9zqMBZh6d362xXWedXpEKGkBzuHBiH/bVFmVVI3cNGLPbXOGBrehd +93LxtQaM/Ciy/QdbrWhMhXymCbWpvtn52HKy8uQ6Jy3IG98QwVfKRpvywwV/ +IhqImR8SfovNZB2b17CiAXOZwKkB7EyltA8erjQQUo/hH8deklt693EUDeTX +zUvMYvddndibVkaD4BUmB4Xu4vM00yNbVYkOTw3+/DHCHj9joenIpw2zI6Jt +ZdjXQ5VtKjt0YINKydPsMjbqikRbE/P1wVh8a9iHcjZScO+xcvPfARfTaFa+ +VWxE/K0qkTsEwHtjoFS0lo2kJmuWSTGN4JD2rQhoYKNw+vb3aWoMGOJ54Rv/ +AOef/tUmPmECWcvzFj8/wv00CluW02kK3tkZuUOP8f6Z83tYlG4GMUH6Fp3t +bLS4c/XzloQ9EDs4rmXRyUb9XEu+DHlaQj/9/PuJbjYKXBN0/oiSNVzU6nAk +37BRiW9b079JNrBU70VMYD8bRc9KL6j72sLiVNQUYxifH+a79j85YAc9S4JK +b3xkI32X1J1jtvagalPat2yajV5KZ/u10PeC8ee8fMWv+D65eayhYOM+0LrK +l1e/gPfXoJqFldB+4J3VN/v7C98HrzjekdP7geh5rSvJzUH0f1OL8gYdAAn7 +2I8u4aDspbOaac2OoHWyQzaBj4Oqdm7uS6p1gsvTh0X3LOegzK2nRX8VOoPR +6iFZLkEO6nyXf5ye7AK2rVeWxQhzUKVllnLwYVcwifBUXiPKQV8C7LkCWW6w +s2otM0Gcg+Z3qfrMGLsDFP/d1CLBQQXTbxfDdA9AL9dyLaXVHOR4Pd/LTdAD +ZGOsD+6U4aDye3sOLDnhAQIabWTwGg7Sl335/dR3DwgpvizqJs9BSoPeff/5 +esLCqqR8xXUcNCpw0DprxBNE/FVzJxU4qOuslZfpPiZYK0lHhylxUHpUjkBE +FxNehraEzylzUEPj3+9eZl4Qp3M4k7Geg1a6wgl6nReMZIWFOGzgoHWrnnSu +afCC/dEerS7YWh2Wq/kavUC4I0rSA9tuu8vtNw+94PtRtbs+2OlrIp/FPfUC +utmph4ewZfrvrGx74wX826ZdrmAru0tlui54wdohhYD32PoeMwVJ2iz479wp +zr6NHHTzEifMSpcFYyK51k7Yq7q/GkrpsUA/jVbkij1jsvCqYBsLeivr3Lyw +b6hzcXcYseDJQc/cYGzhBVEnMVsWuIe9KTuNPZqiszwngAVpl+c+NmDbPtn6 +yjuIBR/f5c0/wG7kMsjRCmHB3aAWrmbsS2GGOo/CWfC52XHlU2wrJ1PPsRgW +lGa3CfVg1yo71aqfZgEj49K5Keyz9bG+NTdZIEoU50urclAALUM/qoAFjXyB +9muwLW6XLdcrZIHv3fI/8tgrMsZvVxez4G3wc0tl7KRQm4mqChZ08Oi+0MSO +VVU+WPmIBRIvqxyMsf0ynvnf+8ACuTjnZD9sM+Hx7aGDLHAx85/wx96YxCVE +G2aBv9gfkyDs8VCd4rIxFixben0+DNvTKmf67hQLNloO6sZhO/KGBZb+YMFq +A+Wd57BNw2SCiyQJ8O18ElaG/SjnuHnaagJYUWtLyrG3d3xVjpIhYD758Fgl +tpbKs7fG8gS8tHXfU4ct/TrG+J0KARqtx2YfYU8a9Euu0CHAatCushv7HM+1 ++972BAR1ffn9lVr/ZsFMy30E+CuovZ3DTnSJCqU7EEAX8S77hh1VYbPhrzMB +QttnHH9Q+Unu1ItMAn4KaCZyq+H/tZ3Jag0hQGzH/j0rsV+nqggonSdgZs73 +ykbsEiTk8ymVgF8ixb9VsROn51qKLxDQKrLXTR2bZtYSr5dBgI/n81Wa2Ge5 +vL5aXiUA3vqx6Ni7gq69jSoiINTI8PgObDm5k7qGJQScYVY2GmLPtQddWHIX +5xU9N4ewc9cjy7PlBLxo93U0wv7d39+UV0dAenIdlyl2hYVswYs2AhYf1XRb +Y5/5wcOb3k5AdK/1sA02s2DC06mDAHur3TO22CJL62RHOwkIXO/2xx7bv97x +3PdeAn5fW/XXAVtJ7WKk8hgBWWlFRw9g/3gd1/15nIARPTtvD+yuJEKr9BMB +bgxHM0/s+CHtCf0pAv7YJPF6YfdldrtZzxKgXOnpTmKnLRM1ieYmofS1VJo/ +dsPXfpfwJST01u1iBmB/7C8MDeQl4WLR5s2B2NsrGNeYy0m4HL35QRD2uEfU +T3NREgZ4x6pDqfwWJmIm4iS4Xx8OCMPetlVMFUmQcKnz0rpw7PNCRfvp0iTs +v6MdG0GN1w2UySqQ8G5ARjAKm8wvapNQIiHw3MgtyufPHxpYqUJCPknAIWo+ +UlxoqSoJ4S7p3tHUuLipz5QWCcbSV8/GYtf9EU8Yp5Ew0qgpEoc99nnw30Ft +El5viTpL2aApuvmVHglpDjpH4rFH/Uvk7wMJ3RkO6DC2sGOMTrURCQ+vFN+k +rG+826KMQcIRpYYVR6j9Ij18KH83Cbeu8jylXLO09HyOOQldRw2UjmKPsGNu +XbIgwaFDLZqy3mOJnhQbEvrCtOWPUf0uG548YUdCdYvlQcopWaU8R/eScMdj +bSXl4VAzrUhHEiKZk4aJ2ELukqbBziTsvj8WT1nPbMTNz5UEecvMesopa+PO +uHuQULWoop5E5VlhnuvIJOGkALc75eF5yVo7FglJO9NTKAsNjXRakLhfFwdq +Ket13B3f5UMCP//IMGVmddxv8COhPvUq/3Gqfq75qm3+JHC0xNQp16RIqesE +kvBxeIc55eGo0Z2bg3GefAWSsiCrzFE1lATXiPvxlLdaxwcphZNQaCuaTplp +sOe4XCQJNnpyNyknq6zOlooioX/DUAXlKpGxctFoEpTXujVRHvpZ1i4QS4Ku +XGrb/+t/jB/ijSchWCHuOWXdl3sW/yaQ4Keu0En5f9VfD4I= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9897041767414709, 1.0103824702261712`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9897041767414732}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.9897041767414732}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "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.9897041767414709, 1.0103824702261712`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9921119400309277`*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"b1777edd-dc55-8049-91b8-b862ba2160b0"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918476306797314`*^9, {3.9918479463234234`*^9, 3.9918479465064144`*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"e605439d-19dd-2645-8993-c76100de5ed2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.300955133069278`*^-291\\\", \ +\\\"14797530453474819213543604224000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 120, 654, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921119404476223`*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"39b7f16f-228a-c541-8cbe-392f836a4360"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.698818453494929`*^-306\\\", \ +\\\"5919012181389927685417441689600000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 120, 655, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921119404686203`*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"2fc896c2-6dc6-3243-bb3f-a069e1b4320f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{\\\"-\\\", \ +\\\"2.2685777813421294`*^-8\\\"}], \\\")\\\"}], \\\"42\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 120, 656, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921119404887257`*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"a22bb038-0e09-c342-b4a6-b4e7358db9f0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 120, 657, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921119405067177`*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"9211017a-6c3d-6c4f-a73e-338cb9316964"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVlnc8lt8bx+0Rsipl7z2ekRGecy4ZFUoykq8kEaGiRZFkVkZCGWWPZIcy +kuzxPFllpzTsNMyI6vf8/rnv1/t17nPO5/pc1zn3JeV8/ogrEwMDQy/98f93 +aqAzG9HlIZL1mS9/wuWJWt5Kmh+VvIq/SsgYiffsx//a6kMkJW9jj78hI2Pd +dji1IVqCVTIZmw8Y3EzodsdelMtnf0k8wa+6ubr6uvzw2w33hJ8SNfg//qGw +VeotzP7us8I3iU68Rk49nPMqCWdS032+Sozg7W+K3qTE5eOS0tvvvNTncNij +UH2G7mo8JzAXZXpyDsum38tX/l2NFa6YIsWEOfxvX9dxJF+DM/S5Mr+sz2Hx +/7p4pAJrcFxn1Gn71q94Z5CfT49qLb7y5e7CPodvmGVVSrEs7AVO56KF8Bv/ +xPOkEx8iZOuxG+5Lnr+whEU0LtpkRTRihqzV2neRS9j+00OGjeRGnMQiOkbN +WcJbrr7oNSpqxB2dp8WfDC7hm7+IRYW9jVjRejPLVXcZ72AfmGvZ2YRn3BWK +PjCuYHc7sWzhvCbsEXe9vjd2FVt7t+1jeNaMmVayxl89WcX22y1FT7c245Sj +HQylTat4Ydw488VAM6aKChpGL6/imabkeM3VZqzyOL/9gN0vfDadldFFqwXP +v3jb2ySxhj/crLyZVdGCz00qfaksWccsaT4jpzNb8UfHEY7GznWcShQdmSxr +xVbDt9S7JtYxb6fmscMNrViHNn11Uvg3dj6Jnk1/aMXMT3P5dkT8xq/73d6L +i7ThpAAp5HtiAxeYvTv++G4bbhTclbyH7w9eNhLX/+rejndHd9Qbq/zBZSWV +odTL7TiPzW/C0uQP3st0/URCcDuOWh/U8Aj4g/+IWD6fftiObccT2lJm/uBF +GLSP6mrHcwV8yxsNf3FSwm3fTtUOvEUqVGFchwEmuN1s10c7cIf+PY1AYwZw +98xguDLRgcPt0rTFjjCAfk9S5vi3DswUW73vP08G8Hd2ar7K0Il//513G0pl +gBt7K7w6ZTvx1zGb/B4mRjDWdBsaONOJC9acy87xMsLyclGK1IVO7L7Nu5pH +lBHefek7aH+tE0+Y3ekw02QEIV7tsLg7nXistn6m3Y0RbBmW9okXdOLXSQpK +Da8ZIbqcfzJ7shPfqdxNPDHCCGT0ienVfCfe32uw5+8kIzySXpdsX+rELewO +B/T/McKPBl3XNEYqrrsSe6aayASfHAONz4hScbH1+pOyB0xg9UDA48IhKvby +Ziu3yGYCAZ/j8Y7WVKwcJVj7vZQJfDq+fdG2p+K8ZjWqaicT+F3KYC93peI0 +kvNc/gYTaHhbVbX4U3EMH00504kZ7kde+H46h4prtMWeHTrHDLUfb5KjnlDx +hON5vOnPDNfeTqY+LKFivWJB66OJzHDyXNW6XzUVzxxwuM7TzQx1FdyX1WlU +vM2nhP3FO2awFQiJzO2hYpzEEOc+ywyVLCZrbP1U/GAqJ6+ZhQVaA/f+uDVG +xYYh33qu6rGAn+MOwTvzVHyuANsrHGCBVDf1h9Y/qTil795Evy0LPMq88ZRz +mYp/Smita1xggfcrHXnkDXo8dYHSU/kssNpdFhnBQcOdX3qL4p+zQP6ZGIfH +XDS8vEVG26CFBZLx4d9Pt9Kw2bF2s0fjLFBwnvoyYhsNr63wXj6ygxWYOoyt +tCRoWEbM+d8/GVb48FT3arEUDR8yqrxdTGQFieNGT3llaTg3zi6N4yArZPDz +B9xXpOHemgLF5/asICdzWKpGmYY3P26Wn3JnBbPOh3/aVWn4iEZme30IK6jp +nLz5mEDDgbZLll73WEH7mqi+H4mGn1w3HtuVzgqirG7Wu3fTMMPr2Z+XalkB +vmi3ntOmYZUlPX/pDla4pNtI/KZDw7bCMay9A6zwLWtc5qguDRe7k4RVFljh +z57pxm/6NDx8NzRn+C8r3P4XGyyMaJilalA9nJsNOpoPL5IwDWt8UKwhC7NB +8dZGEW2gYXtWf8NPCmzAdzWeU8GAhsNVu7piNNngT2RsG9NeGn5qJWGnb8gG +X9MTj1PpPHbN5/PsYTagvUgbuW5IwxxZzV6JjvTvL5YbixnRMLlz+y8jLzZQ +71wpyqez40+3m4tX6euzZwlLGtPwHaFarowINmDKZksJofMzxP3g4H02CBS+ +rfWWzh9dHSU3stggtS9nY6sJDXNHlxXkl7HBgYW5ZS06a1cyadrWs0GAMZO6 +GZ2d31m/Yn7NBpYij8v/z1sefjrrM8IGtpnM2/fQudz+nOj4FBucGJ28K0hn +e+ENqvkyG3Sdy1F/R9+PeTTiai0jOySHPNm8S+ei5G2KirzssJRygZVEZ+tj +mYP3Rdmh61KsdSM9ns2d6mHMyuxg+iNvhULnnOFaso82O0hOey0/pvthnrTv +8wcjdvgsVOTwj+7X8tH+WPMj7KCxCbpGdH4kdBLXnmCH98XCyVfofhsPffum +cJYdGNp0wx7Q8/H9wbVH96+xw6z+sy059Hw9sGU3Y77FDpymZZrp9HxODUjm +f8ii739DpNiRnu+Y+8W25mXssJNAEpDRo2EtG13W2pfs0Ldvx6GBPTQc0W/l +fH+Yrt/VNoCZXk+EhI98zFPsIPdpMuKGJr1erM6+8l5iB3OvJ49myTSs+DZc +1HwrBzQV/tx2i16vvXGCtBoRDlAqIcTVqdOw35GMqwpKHDAsLGY+Tq/vzr6a +QSYjDtinp1Lwg34ePHrnY2uuckB83L8bFEkaFoi9ihUiOGC9j89qUoyGay3Y +vickcMCC49vX/iI0zNUjYeZdygEdNQ/nLu2g+991hFVhkgOK3d8fTKafX+vo +8YqERQ5I31PaX0U/35vmXs5MDJzgTxX2bmWl4YOvw169F+aElAuvRUv+UfF3 +avXVhMOcEB6zbeT5Iv2+uWOsyOTICTfjO+5a/KBiZPpm8Lwnfdw6/fXQVyq+ +2/mVbBbOCYR7gQJVE1RM6BD/zljHCXs1zpwuH6Bin9ZQ5/MKWyDw5G/BJ5VU +LD5hwrZK3gKrm8g+uoyKaUycBQGwBd7Idgq5FFGxHEQv3D62BcS4eJVns6l4 +pPZ+UE7kFtD5/J7NKo6KDcry0kZ+bIHHwxuJZV50vd3ue502twC72XvVJjcq +fvhNeWqKgwustqkytTtT8YpyqdqyFBcIGZ7KLLCj4ie5VXVbrbkgS3lF+J0h +FfM/7Bg1rOYCvWWi7bwQFdfX3AmktnABQ68Rs44AFXsOm0tb9nHBuBNjoy83 +Fbdu7zvjOMcFXP+OZb9loOKrsSNrfqLcUIZmrvyd6cSfwuZ2lARxQ50kmVW1 +qhM/9ea22nmAB9rWkrYYm9H/ZymCV4ttecCqVm97vGEnnmoRTt/rwgOlT45t +G9DrxMK7lL563eABtRRuLU3VThzaaBzS+IwHYso1F924O7GtwI0KD+mtIMda +UpJH7cC/KxYEX25she1rY5UsuANn+nvOEY7ygd/o21VJrnZMaOBcizjOB5Tl +BuEcxnbcwJLPOn6KD/42LyVIrrXhj9ETktHefJDd0tPCOtmGxTOOH529zQcH +1IlpwfVtOKXFoiWzjg8eCFTdOeLdhuN4dqcJSPMDZ/ro9uKeVhycvmm5PM8P +9hG2j8yCWjDD249Qd00QCuqmXk93NWL5S6f9rJW3Q+L1s9XOlS/xxEqiLdfL +HSAV9nZd+GI1Np30uB7nsxOsn5s2+BlX4EMTsSri4sJwjHnCwPp5MX6tMtHv +ICsMcnHFDkJJxdjsonbgQ2Vh+HT4Vdn3q8V4P9OH3p3awnC36C7XKKUY75VU +uSJ4WBii3n9/lt1WhDUdWhs4goVhfKJ/mHmsEIv2r9ssTQqDZcgd1t/bC/Bc +s3NQR7EIdPpIloe15WGJe8MeMZUioEEKury7MA9bOx6ysX4hAuKpIY9/383D +9Wt7lD92iIAbNjXsOpaH49T4+399EYHEep72O99zsV7iKwUFYVHwPrq5w1k0 +F0d5iPaEhYvCto68Ipvb2bhRO67GLFoUjvVefjrlnY1XWThy+BNEgUgdtYmx +y8ZO6Ut+qZmiUKL98riUYjbe3U+VflYnCuJNExE2HVn4PeXqlYlFUQh5I7D6 +nTsLq/MPihmeEIMtipfXHudl4KnoqeD7rmJQzbBd8WxcBk7d8mt62lMMHG3S +BYwDMzA3y87yKD8xWE9I+6Vqm4HnVo+ZDN4Tg7/tLLvG2DJw7tj7c2daxEBM +c+yx01AaFs2ffHVXSRx+yekPToU9wv2yq7KfNcShtetY4t+Tj3BkJtud3Vri +sPOxRcoe9Aj/TlGwHtkrDuo2McK7fj3Ew9FnZqQdxEEoL3DR3+Mhjr/4je95 +jDiEyLZCw9EUvAWvnBxbEodxY+a4WrMk7GegyPH8tzjsp16/4aOUhKcM/yu5 +yygBBaHXfxxiT8JN+xt/7+WVAL1e6x8BzYn42pHo+CfKEvB1e/T9LEoi/uoq +13rlpATY1QrF/NF5gF9H2Sjy90hA2GjJIx2zBKx791b33IAEpM2mU6PUEnD+ +vReXWsYkIKnkqBILXwIOfSDV6DsnAcnSA9wOA/FYvHdV9QeTJLRksFwuPhmP +B0eaWm3EJYH7OS/Lq6A4vO+b/S9pG0l4vpxx+MNQLE7bFvL2hp0kyHCp2I/W +x+JlvcLSsf8kodLuNPtKbizOuLPh9sBZEvRl70+GXYrFvxUeDXN6S0LeQOZ7 +AcFYXOT8vubnHUkwVws4El4Yg/mGTwTUN0iCwYtB+7hPkfj0vwg7kRZJYGgN +vd/zPBLXyZft9muXBJbyl0WGUZH4zGWGb8RuSYj/2Znbox2JmwQyj+e+k4TX +vX3aPvfu4EsHP6OoVbrehdnykkO38XCTC6O9qhTcdjVsrPwRjn8ajApf15AC +Y//anyNd4Zi90WJ3BkkKrMQaLykVhWOtV7puUzpS4BixdczkTDhOeMHXdcFY +Cs56fx64MhmGLSrrkiIdpWAPxsK3J0NxW+42wstYKchRmTrkxhyCP8jeOfAx +XgqMQlKvRU4F45Xsf87MiVIwo/RDbqAzGMtmzd0/kCoFE0P7XIdjg3FwWsPG +wBMpuDmn6p0iGYxRolf79yYpUIipxvMmN/GzWy2OkitSoGl6dHvMfzdwvilt +Z8SaFPjIaKZFyd/AKdxv3nzbkIJIlbdJwwuBOCh23OQFkzTkvVQIPHo7kN5v +/Fa35ZOGw9tnLKdfXMefHxP+RapIw+SskxyTRgDe2v4o/ddJaVDTruPpNL2K +GW9nH3N0lYZEwcuaXeJX8bJpgWCruzQIK0ns3Lbkh0e6qyLizkuDEuV2u/sj +P5wz+Oa82nVpqB8z/Sa76It1pzjgVJI0FGQ825n15Ao+zXr5Y3e3NDTMGElG +mlzCwhKdQxt90rDtV2hLuewl3K0j1qM4IA2mg30i3MyXsJZX68vgd9LA/i16 +6UjDRcz2dvtDrRlpkDXWaFKmXMS5Gc9t0hhlIGyccKQHX8ATemvUs7tl4JGP +6b9jbt44yca8KUVbBkp4vZz3mXlj8/MZNe26MsC5i9n2hIY3rszany9lIAM0 +Z1F10Z/ncShnctjAQRk40WdxsGnHeSw7tAcobjKQeSU00fHiWXzqgv8z7hQZ +sHtEU+Jw88BapA/PlFJlQKLM3id3jwfesgjPTTJkQLiCw+wWtwcu82GrCsqT +gdCvQ2ZiFWfwpve96uVyGWC8OFt1jfkMfnD+8YsxmgzYzx7deFbmhju93jYW +/ZGBS9eSBgd0XfEjVa2mTgZZeNqT/S1guyv2nk9qmmKWBbVw1SXHny54h5dj +s+QWWThlaRf5Js8FO3vOtiTskIVXAikHz+9wwZtn/rUHaMhCgpKYoB7DKazh +ptJtflIWpiP/cHFvOuEPZyTOF7vIQjVtr870qBOO8hLk2+ouC15pFjWbNU54 +1mfDsuecLEjuzLEd8HPC2QG0AcsA+n7D8a9OL57AQnGe720TZUFHRV2hhMMR +/6srnHfqkoWLbDaSX0Psccmr9OjGXll4lvtJ4vshe+zQFK8u3S8Lts2DMpbC +9rim3d/7y6gsvB2XHdldfgxffGO27DojCz69zGHOU3Z4evrrhgezHJBv8lYN +nDiKewRUuS7vkYP5+IxxnXhrjM6enX2oLwe0f+EmC57WuKS9pL2J3lUxReYz +fjeyxjEBxFA+EzlIuF/SV/7LCptPaf0pPCIHpnq6Nx2drDC1xuDHZ085sMzt +5p2kHMGtTkffHk6jz08JaGZQOIx3v0h66pspB/v2j9oEsx/GOdtH76blyIFQ +vCXZr9cCh1IdzOcL5GDBQD272NoC793t3BpRJQeFhdsbkfMh3MB+tqq+Vw6a +dy72Ot8zxy9Kgh+qMstDaCv1o4LeAcxmbiOcyCYPuyzaFOpZDmDLWYVkxi3y +UNDGCg3d+/G0TNeDQT55mNEpmmFx2Y8Fk4XigsTlod522dc/fh/2DCm61b9H +HrJuDAkHsJrg55I32DFFHvalHjT2GzDGjPWW4U9AHg6PXnnTn2uME9dWQwL3 +ycNE8oJj0T5j3HzW4IaijTyk2rjcbLprhEXsBi8HeMuDnPfqkTWCIT69kr88 +dVEe3L0drxayGeKncf4XLX3l4f7jx5mVY3vxvi5JH/lAeYi/lR/cdnsvvrjX +06s3Uh5OPJW8NTRtgGmqDKdkH8tDdDKpR6kCsD+j8uHX7+WheK/YPRIrBU8Z +cQ3Lf5IHga1PTnK16uPDt+ZP3JyQhwMVgjfdwvSxLG/pea2v8vDjdd14Lrs+ +fi26+27Gmjw8u1cyLCmgh8V1UPclQQXAJ2jRe9EefMtfwrZnhwIw2/ef+8S6 +By/WM3xQElYANjyza6VLB7cbN3/7IKkA1StyTr4ndLC31X6eA+oKUMVQsN4T +oY2bzh0xFzugAFPPnax2ftPEquXkfl9zBdDSm+5Lf6GJH6xsc3hjoQDJXAVM +d+9oYs+AIc8IWwX4c3XtVKaSJt52xyFy4ZQCnD3W2RXktRufzj1NbQ1UABvR +d4UhLGS8Zeza/nOVCvCPYpqY60fAWr5PeO5WKcDPZ/mHTWwI+KTA8JvSWrqe +ZM9+NRIBV+/XPL7QoADBqdIeaSMa+PSzHz6XuhSg1Ol7XQpVHTfGuDy8NqUA +/VYVigmtqnheKd7p4awCmKhQh3QiVPHO1ka5unkFSNw/nPvfAVV8bkO87M+i +AmwL27Um1KOCRd1HWoL+KYAeUVf3yEdlej9y6Hv4TkVYGV7T5tilhHPGAioe +iyhCVoXdCdnPirjHt9CvQ1wRvDyePSsrVMTyJRzMW+QU4bTbzdwdoIjfCjcL +RRMV4d1xixGGcwpYfVnbIN5UEfymPxmkvpfDk3lSCekBihArtUEuY5PB86Gf +1pmDFOHRr/n65mFpvOicecI9RBHEXCTkcaE0ZpCQUiHeUYTZmXAFD0tpLJwo +2dSUqAh3jwxmXc2SwocjJH5OliuCoWDmaoetJD7qOm5j+lwRLi684FpTl8SO +hukvSmoUoXjjjFIwuyT2/Cce4dugCIK1VRv7L0rgcF9xcc5uRWB1wcW7jMRx +nZuYueqsInxQ7rzygFUUNxu/fxo7T9fL/OHE4wYRTJVJFVr5oQjnLx5LOhog +gofGRb+8XFWE8a4DubErwnjxqOg1CxYloBgF34Afu7DifpH8CxJKcN+TZfPq +XyGcoLiLpcZGCVZiuWRnQ7ZhB0f5x1/slMBkUPvslNU2LJtANt3qoATcVtSw +g7LbcOW/g7GnnJUgyZ/UbNMmiPsHg0W3nleCPHLeLm1eQSwYNr/71C0lKAnq +S4qo4MejtetD0ZFKcON9WPyr2/w46yebf3WMEnw6zXLL2okfkxykGnnuK8Fx +3s8OcVv58RGy7cHqTCUI/yq4sf88H4779MqV54UShJ3XCWQM3orthbo4dOqV +4F16uLDznq1Y+uBooXOjEuREGY+7LvDg8urlhap2JVh6XhNleYoHv7mrFOjc +rwSP/ntVlnCIG/Oj+AdV35SglbtAqMhgC45NOd1+UlIZcg57fSm6x4Z9rwRf +DJBRBgGRjAQxBzbseCRNIlFeGVLsXl1jU2DDqlsGfV+rKsPHoqUV/XpW3HnV +WFF7jzLEueSHSC2yYKZjsre5jyjDdkHv+ZVzzHh2N2gq2ChDsGNFsS8w414+ +h08GdsqwIdNY6yzAjNM74vf4OiqDfM8efZ8qJqyvwzz3yUMZPOYTh46yMeHL +Qp9Nq0KUIfuscm3scwbssPRntS9cGfj07GT3xjBgo55d2fO3lUEYOAosTjNg +gQjLDalYZXg3+GjJX4gBl6w2FEY9UobhnzVRHJt/0cxAOrfzM2VwY8r4e/z5 +JrJPON7NPa0MLh6/uSWz1pBoxRYRzzll4B3YCMt3WkPjfVVund+UYbzNUmlQ +Yg258Aowhi8rQ/Kz/DfCGb/QuTtt5H+MKsDwTCBXIn8VBQdpJC+IqsDfzqTc +vv5lZJQ+NmkhqQL5z7som4+WEXv9bVKJjAq8CS9lf+a6jKI2vtA8lFUg9ZLh +OG1tCT24kvT3i7YK/f7U3+Iht4SeeDG6DB5RActvF6UOJi4gr8iSst229Pn3 +3M0b3RaQesF/f+KOqUDRyYnSUp0FVD797IGFkwoIbHAFr777ieqcPTo7zqqA +a67vXW7Fn6jX7q36i1sqUGdrv9pR8A2tGeWup9ergNx9IMpvzKCAF+khLY0q +0P3qbIfgixnEQErhmW1RAX1Pz++p/jOIXeKuFImmArrleYbBf6fRjnW/Ay1D +KnDxnJyJC9c0IhebJ8/8VAGDUq5FJ5hEz2X2yfAsq0B0Y6f/Jc5JpJtiUEz8 +pQInhLED79sJtDdCq/HaHxXY7vlRc9BtAh0+KTnLvUUVyjNO+YQnfkHnti/r +EGVUYaQgpN5j62e0GPm9yUZeFWR5T91yHf+ELjPNml9TUoW7K0UKA2WfUMCP +907NGqrA9logdavNJxTZ2X7LRl8Vziu2T7zO+ojyrz8cvmqjCqHwY1E29wP6 +MrnXrylCFZIVLW9LrY+gvendWcqRqqCPByzqSkZQhp19V1yMKiDOf9XSriPI +keYjfeo+fZzJfbdp/zAaLct4zZytCnLfUjRoL4bQG/+/ksb1qsApfEjlY/EA +ImreMStuVIW4bYMf950fQLHft1/Z3qoKVQk3zzkQB9Chk2q0SZoqPDzAxBhW +1Y+oJg6Xw0dUYUrqUUA27S1q4q/tbF9WBSmuK+fT+d8gKZrxssaaKuRIhpzh +fN+HgkL7xJM2VGHRMW2M9UkfQr9mLrozqUFG6w+psr19qHZMSJyTTw2CeCPy +MgJ6UfnjyxdMVdRAzmzkm7NgN+I/yZharq4GJe7sTsovupC3cHS7MEkNsIZS +0eypLqQenSP6VUcNfKWfXjeufo0KLrxtizRRA9ZrRpIqXjSURSGKdJ1Ug8Ts +pKHIvx2o6dCWkA0XNTh1nccmvKYDfT7xZU7JXQ1knISDtC93IJng+7Xh59Sg +dG6w7Pn3dpTTtn4M/OnrBb5R+DXbhnItmpIqEtRgWuCQFTNDK2pzesjwOVEN +3m89PZ7c2oKmfC658z1Ug+K/PpTXkS1IPkFe52ymGkQ49Br83dWC8obvDMmX +qEHurWMbXpRmlH/SakdKuxpsS3x5RS29EXVcUA3soKpBo8M5k56zjWgmhHVq +tUsNllY2e1b0G5FiXtUzq341sBKcaKSNNaAncyI2PJ/UwDU+uuiKdAMquDgR +H/RbDb6nrp1yvP0SFYdd5ndTUweHE8OZy9XVaF7/eHAYQZ3en/n7CF6qRqrL +RkvZZHW4fjMxZ06jGhU4bxv4uEcdfv4tHq19UoXycUWSvYk6nM/qZynLfY5y +1n9KHDqhDo5ExzNuLyvRRNlwrJezOnRZuvTqhFQiGfcGxkhXdfDZsSn1+EAl +yhq8+6XdUx3e5RZqWg9XoPQK9ccGfur0/iKd1rJZjlLOeqlr3lOHHAUp66dO +T9GorHW6VYI6VMbu//JQ4ynaNabHdyFRHYYDk7u5/pWhJFOuxZJUdfp9OmR5 +Jb0M3VcoeKZYoA7d7SzvMl+XothP0/qizeqgGVOzb3N7MepN6inWbaPHL1fK +YtJchHgPV4kf61SHkdYJ6Qs+RSimPpzhQY86eNdzGLr3FqKoh3ItvGPqcO7p +t7iopAIUYXPKjHlFHb6bE2poFvkoy2LMwXVNHQI7aw7ZsOSjugM259o31KH9 +0YUrDTWP0SJl371IJg1IW1L0ICo8Rg7yKkOCfBpwW6jwow53HiL9WnSWVdGA +MhHnPNpmNjq44HkpXF0D4ji+MB2qz0buXyfCZogacNNya1ZUUDZKHR/ML9LR +ALdDGupa7NmIo6P2+24TDdjgaPBgEMtCH5KCrxmf1ACT410mFe4ZaD1uI/Kx +iwYktkkS2TUz0LboS6mc7hqQXa+4+YsxAx24ebqh65wGnHTQVTqil44qz5iy +2QZoQJJlIQexOhXd0RWIO52oAfyDmgc8p1NQ7u7I7I4UDZjbYpAhFJeCGtRZ +nimnaUBRSTtzJyUFrUivDn3P0QCVM8qb6knJyIlrVMy3XANS6ouHntklIc2x +zCcRXRrw/lZ7ry7bA8Sn7r5W2qsBJ3bUuUe13EfzN9T3Db/VgAGhk9wPQ+6j +HJkXE4qjGnCU1+DwNPN9tM2zX4I6pQH7BRNmmHkS0O8AZjM2BgJkMgYeTsdx +aCb39IUURgIYmBMWhzji0GB3Z7I6MwE+6sf/V/rmHiqXjJ2xZSNAVE9MOtn9 +HvJoEQ1/zE0A8xSObOeUWDTCpdW4fxcBfu4gZr0nx6C23ckzY8IEeCvyyOfR +cDSqPL7J6yNKACfzxlTXwGgUW9rkmCxBAP2es6e4uqLQfiuLzVk5Aqy4BNVa +X4lE1Snu2pEkArRs/czst3oL5TXTHCV2E+Dly7+xMQW3UMK8eniFJgG2Ttfq +h564hbzRSv87HQJYdnHtYn4dgRQ/37ygigkQFlV+has0HCUpPSzuMiNA4eFD +DvAwFC0vmeSGHCSAKrPm05+2ociifvHRHgsCHH+nxxggGIrYrEyjco8QYFXf +hHPX3RB0OWDd4/oxAjiozObLxgajIz1HFdXcCCB+qF7OvioIlSQzS35xJ8D+ +4aCi6BtBiNOlVCjZgwDvodz18v4g1LDGxs56jgBVghunnlbfQBrSzyfHLhHA +dyv/B9edgYj78rbsqGACpNYONQ1v80fuuCFlbyiB3l9mvX1bcw01c3rFrYUR +YOCN2N/VE9fQtbTmmy63CdDqfFf+celVNNt+wUk/lgCLNp97zBz8UJtwn9h8 +KgF4f9UJPp2+jKQnA7ZnpRNAUCLI9F7qZXS9VJHHLpMAzLO00y7Wl9Fuo6DN +5hwCXBJztRtquYSyzmq8e1hIAJ9rnlZpZRfRjYboJLMaApwoPd6DnvqgufcN +Ceu1BJA7I7zKe8UH2W4sxT6uIwDBLnU2Q88HqWrZ32ZuIEDeX5H3ax3eaLhQ +/tqLNgIEPQ3nDR4+j0iJr/5T6SeABzNFIi7PC6VWLh4dGSBAlnbktl0mXojj +jZx1xBABUgSoX0anPNE4d5T5l1F6Pu43Jv1T8URRwXaUh58I0K1XnXOq5Qya +OrsgzvWDAGdGOWzPKrshy0hZkZqfBJjrmzk+++40qss/KuS2SIDXgbLn3WJO +o/gvL3mbVwjQYHhzxmHVFcGxOwz+m3T/rn38OdDnglKMZD7PcRLhGDWE6lLp +jFidbT8kcRGByeJB1/1Lzsj7xu1REx4iMOSsriVrOqN9tT/eZPERYTIgwoC/ +9iRa1qhrthciQubQx4KLr53QQRGbXKosERjv/S1rVnJESRPqDf/JE8GeynNM +rPM4mijmeDevQAT9XxK3s88cRwFQx8erQgQ53woPhRIHVOQqE2BFJELE3Pzr +IqP/0JayhSNjFCKU/RNZpebYIdurtLNnMRHWa9Jm7G3sUNbe3Ft/gQgncz56 +f2GzQ3sG7OoljYggZi0R8cbrKHL//UrJ1ZQIqkSe8GFDW9RuFMPw3ZYI1jfm +k0RFrZHAVneRG3ZEEL/tJDA9aoUchwy0+OyJoLgzcTIwxQqtnlnxJB0nQmmv ++xC3qBWSv+swdOUUEWRXdZVPKB5BoSPKJf/OEwG961D4cOow6s1i6Yz1IcI7 +Jp6PbuqHkajXhy9SF4lQUnCLVWvJAlX8vbfL6AoRKrctjMzJWKDPMuuhtwKI +kHuAtzc84SAyONf+H/9tIlxm1ZnQKjVFv4dnTVru0P14KfHK+rApqjTkJvlG +ESEmzOhG7eIBJL/LkuP9XSJwMVfEm+sdQNwto5X5D+gs52C+490+NLzrOw/k +EGGTv9Sg1dIYxYXyrS/mEsFZ6UunP6sxMvtBmsh9TAThhOpqvVojVN/iW8tV +SAS/78LDnfJGKOc8o9vQUyK0SkavvOIyRN6t2xrOvSKCtPfZVQqTAVImaBdK +NRJhpLJD7V8LoC8pxx70NxGBQPr8+cEtQLbeaV66bUS4XnHHCwkA0hdR3MXW +RYT7zLFiBo4IcfjoXUgdJcJ0dqtf6y491PTu+PHDY0TwVU6ujq/SRf4mQfuZ +PxDBUi1Mps5WF30XaRU/84kIP823cXAm70H9bYdou2eIcPPsyT3b1XRQuqiz +7OsVIig9y/1P564m0iWrqDv/IoKHtUBrl7Em6j+wrL22RoR5Ca+btn92Iw7f +cDPZTSJcpO5r0Dy/G3n3FVwIYCKBL08N8/BxMoLwpQZVXhJU7LPoVnchotFH +ddQmPhLwhqd5pSkS0aWKsH47ARJciPbO7/9GQPkfhWZCt5NAZpvZ0p1rBMSv +p8/7XoQESkffdlbu0UCff4Qej1YkwY1Y6YdLrKoogO2Qm4wyCSQP2GV75aqg +HWJCPjUqJNA7fzxAyUQFmZo+CZ1UJ8HVrVkajpHKqDynq5CiSYINHS8rQ1kl +FHJsx+9vBiRIaPRdz4qSR+Le48yhhiSA7OWSMCSPqsPzeYSNSaAsl8DsvSCH +5it0pUz2k8Daroz/kL0cst56Yn/aIRIcyxHoeKsti2SbHz849B8JMrk87fZJ +SKNu1bWcMQcSVMps/ez0SQr5Pdhf4eFIgpj6wiv7c6QQ7cxsT/hJElTrHTvu +qyqFLvCpcL5yI0HO6BNVHhNJ9Op4ib/GJbpf6eZXV7TFkHv739svL5NALcVU +8uFbUSRAtEgy86WPi/I3xXqLotMsPyvdrpGgV6xszr5EBHEXEr+nB5FARzLX +a1VHGNmvVTrxRZMgYNiC0hcuhFicWc+nxZCAxOAkFKcphEpoNtdVY0kwoTsc +7jK5AzGmrybvj6f7e9JJg7B/B8o31nkblEwCgd7iw8zC29FK3AvjhVwSDKsz +fm74KoDSNrmsbzwmwcqtooNbCwTQ/tMOzjxPSMCYsa6te0YAPdrzJ1CpiAQq +V1pEpOf40d6PqPpkOQkan6ZJT6zwoVi1JuU39SRIvHKj6oXrVpSv8x9ncAMJ +ZtMmTxQs8qBXhsvTxCYSdPCbMu+9yYO+H5PPvddK1/fixDnrbG5kFn5HwvI1 +Cc6rv3p56vcWxDZ+ZFvvCD3+KQo4/GBHYnNfF2+8I8GaeOzEngR2tHsltE/j +PQle6iQRPHTZ0Smuqpi7H0mQdW/fk9I7bKhBW4TTYpoE/+3yljbXZUX+sV/+ +dC2T4MjdqKwffUwo7mHA2PVVElzT23Fx7DYTKsjb/kJtjQScVYO1g3uZ0HDd +Pr/oDRLIug2fnqhiRFqzhYvmTGSAplMSm8UM6KfBpWkaLxn6ZGcO8sT8oXAc +5Gnz5yfDMwZOLy3RPxQJu7wcFUEy3Kz8WstVtEk5dG74ZOQOMkg3kK9m9W5Q +ClP0x0zFyGC++UxwVPU35fQSS1+nMhl4fi56Bqv+ojgWGHU7qJJhu6FWZfnw +KsX2ZCjthxoZuMj3ebnCVykmPcxt24lk+JxYKyY7sUKRL2R6cVKbDJTHZ80j +i5cpk84MueuGZFjU7pZa8VmkjO2CrChjMrxaC0qZUF+k9PfeSJfYRwblxa2H +m+YXKC3oX7KxKRkmez490PNcoOQI/425d5gMLT1JP7su/KS4vNnwUzpOhgsi +SqLFVt8oDrf1rtQ5koFTxtbPf2aeYg3+Fy2cyLDtjmddR+A8xajk99nLp8jg +ynRgN630K0X2zrpz4xl6/HbX9D9Lz1G+GPwyP3aFDKTFJF/pA9OU0TUt03lf +Mrx+0/wtbmmK8qb0yr4bV8lw3IX1mVb6FKVJbNUgN4AM+QP7vNl/T1Ky1pe1 +FoLJYHjjsMl/Lycozk8XJW/fJYP/5orfad/PFK9gq03Te2RgEV8JOqLymXLZ +qnKIO54MXc/5GX0+fqLcWrkcE/uADJfvDeSRDn2ilOxZ30hMJcOyafjOA9of +KdVb7IeOpZOhWVR1/N7MOKXxXW25SCYZKhT9/5W4jFP6rwecSc8hA0fMGVvJ +Ux8o643/BvMKyfBn+mD4H98xClO8U7l7MRmY1+rZ2ZjGKNwujdHKpWT4Ya2V +PR/9jiLOFmJUUk7XM7JRoVU4SjEyZSt/VkOvF8nm3au/hymxb7ijW9rJ0JFx +w1N3doCSkn3WPbyTXl/lu4Vmowco2Ze6DffTyCD5jWkn9+4ByvMdsb9p3WSo +VC1iTgrtp4zZC7q/HSDDkb/d7cpabylTKpcM7w+RIWRovv7D5BvKj81+8aMj +ZLjmf0Do3YM3FKb0BwOjY2S4r/X8RtJmH0Xhyy7Dz1/IkHJ05dbDwV4KofKa +eM4kGZbs31ixx/ZSdMPerbtOk8GOn5aWYNpLMVdILZudo/v9kWzGHN5DueAp +Kb6wQAYBQZlqm5tdlAD9m+vlS2S4c0JexIK1ixLG87n/0goZPtIW6kwiX1OS +SrMj19bIMIwzu/lSaZSsIBa32t9kEBoNuv9WkUYptHTdG7BJBjkP4v7Lz6mU +Suk2MfSXDHkM2o7fjamU+iX59X//yFArWuKlPdRJ+R9VvE0v + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8lt8bx+0Rsipl7z2ekRGecy4ZFUoykq8kEaGiRZFkVkZCGWWPZIcy +kuzxPFllpzTsNMyI6vf8/rnv1/t17nPO5/pc1zn3JeV8/ogrEwMDQy/98f93 +aqAzG9HlIZL1mS9/wuWJWt5Kmh+VvIq/SsgYiffsx//a6kMkJW9jj78hI2Pd +dji1IVqCVTIZmw8Y3EzodsdelMtnf0k8wa+6ubr6uvzw2w33hJ8SNfg//qGw +VeotzP7us8I3iU68Rk49nPMqCWdS032+Sozg7W+K3qTE5eOS0tvvvNTncNij +UH2G7mo8JzAXZXpyDsum38tX/l2NFa6YIsWEOfxvX9dxJF+DM/S5Mr+sz2Hx +/7p4pAJrcFxn1Gn71q94Z5CfT49qLb7y5e7CPodvmGVVSrEs7AVO56KF8Bv/ +xPOkEx8iZOuxG+5Lnr+whEU0LtpkRTRihqzV2neRS9j+00OGjeRGnMQiOkbN +WcJbrr7oNSpqxB2dp8WfDC7hm7+IRYW9jVjRejPLVXcZ72AfmGvZ2YRn3BWK +PjCuYHc7sWzhvCbsEXe9vjd2FVt7t+1jeNaMmVayxl89WcX22y1FT7c245Sj +HQylTat4Ydw488VAM6aKChpGL6/imabkeM3VZqzyOL/9gN0vfDadldFFqwXP +v3jb2ySxhj/crLyZVdGCz00qfaksWccsaT4jpzNb8UfHEY7GznWcShQdmSxr +xVbDt9S7JtYxb6fmscMNrViHNn11Uvg3dj6Jnk1/aMXMT3P5dkT8xq/73d6L +i7ThpAAp5HtiAxeYvTv++G4bbhTclbyH7w9eNhLX/+rejndHd9Qbq/zBZSWV +odTL7TiPzW/C0uQP3st0/URCcDuOWh/U8Aj4g/+IWD6fftiObccT2lJm/uBF +GLSP6mrHcwV8yxsNf3FSwm3fTtUOvEUqVGFchwEmuN1s10c7cIf+PY1AYwZw +98xguDLRgcPt0rTFjjCAfk9S5vi3DswUW73vP08G8Hd2ar7K0Il//513G0pl +gBt7K7w6ZTvx1zGb/B4mRjDWdBsaONOJC9acy87xMsLyclGK1IVO7L7Nu5pH +lBHefek7aH+tE0+Y3ekw02QEIV7tsLg7nXistn6m3Y0RbBmW9okXdOLXSQpK +Da8ZIbqcfzJ7shPfqdxNPDHCCGT0ienVfCfe32uw5+8kIzySXpdsX+rELewO +B/T/McKPBl3XNEYqrrsSe6aayASfHAONz4hScbH1+pOyB0xg9UDA48IhKvby +Ziu3yGYCAZ/j8Y7WVKwcJVj7vZQJfDq+fdG2p+K8ZjWqaicT+F3KYC93peI0 +kvNc/gYTaHhbVbX4U3EMH00504kZ7kde+H46h4prtMWeHTrHDLUfb5KjnlDx +hON5vOnPDNfeTqY+LKFivWJB66OJzHDyXNW6XzUVzxxwuM7TzQx1FdyX1WlU +vM2nhP3FO2awFQiJzO2hYpzEEOc+ywyVLCZrbP1U/GAqJ6+ZhQVaA/f+uDVG +xYYh33qu6rGAn+MOwTvzVHyuANsrHGCBVDf1h9Y/qTil795Evy0LPMq88ZRz +mYp/Smita1xggfcrHXnkDXo8dYHSU/kssNpdFhnBQcOdX3qL4p+zQP6ZGIfH +XDS8vEVG26CFBZLx4d9Pt9Kw2bF2s0fjLFBwnvoyYhsNr63wXj6ygxWYOoyt +tCRoWEbM+d8/GVb48FT3arEUDR8yqrxdTGQFieNGT3llaTg3zi6N4yArZPDz +B9xXpOHemgLF5/asICdzWKpGmYY3P26Wn3JnBbPOh3/aVWn4iEZme30IK6jp +nLz5mEDDgbZLll73WEH7mqi+H4mGn1w3HtuVzgqirG7Wu3fTMMPr2Z+XalkB +vmi3ntOmYZUlPX/pDla4pNtI/KZDw7bCMay9A6zwLWtc5qguDRe7k4RVFljh +z57pxm/6NDx8NzRn+C8r3P4XGyyMaJilalA9nJsNOpoPL5IwDWt8UKwhC7NB +8dZGEW2gYXtWf8NPCmzAdzWeU8GAhsNVu7piNNngT2RsG9NeGn5qJWGnb8gG +X9MTj1PpPHbN5/PsYTagvUgbuW5IwxxZzV6JjvTvL5YbixnRMLlz+y8jLzZQ +71wpyqez40+3m4tX6euzZwlLGtPwHaFarowINmDKZksJofMzxP3g4H02CBS+ +rfWWzh9dHSU3stggtS9nY6sJDXNHlxXkl7HBgYW5ZS06a1cyadrWs0GAMZO6 +GZ2d31m/Yn7NBpYij8v/z1sefjrrM8IGtpnM2/fQudz+nOj4FBucGJ28K0hn +e+ENqvkyG3Sdy1F/R9+PeTTiai0jOySHPNm8S+ei5G2KirzssJRygZVEZ+tj +mYP3Rdmh61KsdSM9ns2d6mHMyuxg+iNvhULnnOFaso82O0hOey0/pvthnrTv +8wcjdvgsVOTwj+7X8tH+WPMj7KCxCbpGdH4kdBLXnmCH98XCyVfofhsPffum +cJYdGNp0wx7Q8/H9wbVH96+xw6z+sy059Hw9sGU3Y77FDpymZZrp9HxODUjm +f8ii739DpNiRnu+Y+8W25mXssJNAEpDRo2EtG13W2pfs0Ldvx6GBPTQc0W/l +fH+Yrt/VNoCZXk+EhI98zFPsIPdpMuKGJr1erM6+8l5iB3OvJ49myTSs+DZc +1HwrBzQV/tx2i16vvXGCtBoRDlAqIcTVqdOw35GMqwpKHDAsLGY+Tq/vzr6a +QSYjDtinp1Lwg34ePHrnY2uuckB83L8bFEkaFoi9ihUiOGC9j89qUoyGay3Y +vickcMCC49vX/iI0zNUjYeZdygEdNQ/nLu2g+991hFVhkgOK3d8fTKafX+vo +8YqERQ5I31PaX0U/35vmXs5MDJzgTxX2bmWl4YOvw169F+aElAuvRUv+UfF3 +avXVhMOcEB6zbeT5Iv2+uWOsyOTICTfjO+5a/KBiZPpm8Lwnfdw6/fXQVyq+ +2/mVbBbOCYR7gQJVE1RM6BD/zljHCXs1zpwuH6Bin9ZQ5/MKWyDw5G/BJ5VU +LD5hwrZK3gKrm8g+uoyKaUycBQGwBd7Idgq5FFGxHEQv3D62BcS4eJVns6l4 +pPZ+UE7kFtD5/J7NKo6KDcry0kZ+bIHHwxuJZV50vd3ue502twC72XvVJjcq +fvhNeWqKgwustqkytTtT8YpyqdqyFBcIGZ7KLLCj4ie5VXVbrbkgS3lF+J0h +FfM/7Bg1rOYCvWWi7bwQFdfX3AmktnABQ68Rs44AFXsOm0tb9nHBuBNjoy83 +Fbdu7zvjOMcFXP+OZb9loOKrsSNrfqLcUIZmrvyd6cSfwuZ2lARxQ50kmVW1 +qhM/9ea22nmAB9rWkrYYm9H/ZymCV4ttecCqVm97vGEnnmoRTt/rwgOlT45t +G9DrxMK7lL563eABtRRuLU3VThzaaBzS+IwHYso1F924O7GtwI0KD+mtIMda +UpJH7cC/KxYEX25she1rY5UsuANn+nvOEY7ygd/o21VJrnZMaOBcizjOB5Tl +BuEcxnbcwJLPOn6KD/42LyVIrrXhj9ETktHefJDd0tPCOtmGxTOOH529zQcH +1IlpwfVtOKXFoiWzjg8eCFTdOeLdhuN4dqcJSPMDZ/ro9uKeVhycvmm5PM8P +9hG2j8yCWjDD249Qd00QCuqmXk93NWL5S6f9rJW3Q+L1s9XOlS/xxEqiLdfL +HSAV9nZd+GI1Np30uB7nsxOsn5s2+BlX4EMTsSri4sJwjHnCwPp5MX6tMtHv +ICsMcnHFDkJJxdjsonbgQ2Vh+HT4Vdn3q8V4P9OH3p3awnC36C7XKKUY75VU +uSJ4WBii3n9/lt1WhDUdWhs4goVhfKJ/mHmsEIv2r9ssTQqDZcgd1t/bC/Bc +s3NQR7EIdPpIloe15WGJe8MeMZUioEEKury7MA9bOx6ysX4hAuKpIY9/383D +9Wt7lD92iIAbNjXsOpaH49T4+399EYHEep72O99zsV7iKwUFYVHwPrq5w1k0 +F0d5iPaEhYvCto68Ipvb2bhRO67GLFoUjvVefjrlnY1XWThy+BNEgUgdtYmx +y8ZO6Ut+qZmiUKL98riUYjbe3U+VflYnCuJNExE2HVn4PeXqlYlFUQh5I7D6 +nTsLq/MPihmeEIMtipfXHudl4KnoqeD7rmJQzbBd8WxcBk7d8mt62lMMHG3S +BYwDMzA3y87yKD8xWE9I+6Vqm4HnVo+ZDN4Tg7/tLLvG2DJw7tj7c2daxEBM +c+yx01AaFs2ffHVXSRx+yekPToU9wv2yq7KfNcShtetY4t+Tj3BkJtud3Vri +sPOxRcoe9Aj/TlGwHtkrDuo2McK7fj3Ew9FnZqQdxEEoL3DR3+Mhjr/4je95 +jDiEyLZCw9EUvAWvnBxbEodxY+a4WrMk7GegyPH8tzjsp16/4aOUhKcM/yu5 +yygBBaHXfxxiT8JN+xt/7+WVAL1e6x8BzYn42pHo+CfKEvB1e/T9LEoi/uoq +13rlpATY1QrF/NF5gF9H2Sjy90hA2GjJIx2zBKx791b33IAEpM2mU6PUEnD+ +vReXWsYkIKnkqBILXwIOfSDV6DsnAcnSA9wOA/FYvHdV9QeTJLRksFwuPhmP +B0eaWm3EJYH7OS/Lq6A4vO+b/S9pG0l4vpxx+MNQLE7bFvL2hp0kyHCp2I/W +x+JlvcLSsf8kodLuNPtKbizOuLPh9sBZEvRl70+GXYrFvxUeDXN6S0LeQOZ7 +AcFYXOT8vubnHUkwVws4El4Yg/mGTwTUN0iCwYtB+7hPkfj0vwg7kRZJYGgN +vd/zPBLXyZft9muXBJbyl0WGUZH4zGWGb8RuSYj/2Znbox2JmwQyj+e+k4TX +vX3aPvfu4EsHP6OoVbrehdnykkO38XCTC6O9qhTcdjVsrPwRjn8ajApf15AC +Y//anyNd4Zi90WJ3BkkKrMQaLykVhWOtV7puUzpS4BixdczkTDhOeMHXdcFY +Cs56fx64MhmGLSrrkiIdpWAPxsK3J0NxW+42wstYKchRmTrkxhyCP8jeOfAx +XgqMQlKvRU4F45Xsf87MiVIwo/RDbqAzGMtmzd0/kCoFE0P7XIdjg3FwWsPG +wBMpuDmn6p0iGYxRolf79yYpUIipxvMmN/GzWy2OkitSoGl6dHvMfzdwvilt +Z8SaFPjIaKZFyd/AKdxv3nzbkIJIlbdJwwuBOCh23OQFkzTkvVQIPHo7kN5v +/Fa35ZOGw9tnLKdfXMefHxP+RapIw+SskxyTRgDe2v4o/ddJaVDTruPpNL2K +GW9nH3N0lYZEwcuaXeJX8bJpgWCruzQIK0ns3Lbkh0e6qyLizkuDEuV2u/sj +P5wz+Oa82nVpqB8z/Sa76It1pzjgVJI0FGQ825n15Ao+zXr5Y3e3NDTMGElG +mlzCwhKdQxt90rDtV2hLuewl3K0j1qM4IA2mg30i3MyXsJZX68vgd9LA/i16 +6UjDRcz2dvtDrRlpkDXWaFKmXMS5Gc9t0hhlIGyccKQHX8ATemvUs7tl4JGP +6b9jbt44yca8KUVbBkp4vZz3mXlj8/MZNe26MsC5i9n2hIY3rszany9lIAM0 +Z1F10Z/ncShnctjAQRk40WdxsGnHeSw7tAcobjKQeSU00fHiWXzqgv8z7hQZ +sHtEU+Jw88BapA/PlFJlQKLM3id3jwfesgjPTTJkQLiCw+wWtwcu82GrCsqT +gdCvQ2ZiFWfwpve96uVyGWC8OFt1jfkMfnD+8YsxmgzYzx7deFbmhju93jYW +/ZGBS9eSBgd0XfEjVa2mTgZZeNqT/S1guyv2nk9qmmKWBbVw1SXHny54h5dj +s+QWWThlaRf5Js8FO3vOtiTskIVXAikHz+9wwZtn/rUHaMhCgpKYoB7DKazh +ptJtflIWpiP/cHFvOuEPZyTOF7vIQjVtr870qBOO8hLk2+ouC15pFjWbNU54 +1mfDsuecLEjuzLEd8HPC2QG0AcsA+n7D8a9OL57AQnGe720TZUFHRV2hhMMR +/6srnHfqkoWLbDaSX0Psccmr9OjGXll4lvtJ4vshe+zQFK8u3S8Lts2DMpbC +9rim3d/7y6gsvB2XHdldfgxffGO27DojCz69zGHOU3Z4evrrhgezHJBv8lYN +nDiKewRUuS7vkYP5+IxxnXhrjM6enX2oLwe0f+EmC57WuKS9pL2J3lUxReYz +fjeyxjEBxFA+EzlIuF/SV/7LCptPaf0pPCIHpnq6Nx2drDC1xuDHZ085sMzt +5p2kHMGtTkffHk6jz08JaGZQOIx3v0h66pspB/v2j9oEsx/GOdtH76blyIFQ +vCXZr9cCh1IdzOcL5GDBQD272NoC793t3BpRJQeFhdsbkfMh3MB+tqq+Vw6a +dy72Ot8zxy9Kgh+qMstDaCv1o4LeAcxmbiOcyCYPuyzaFOpZDmDLWYVkxi3y +UNDGCg3d+/G0TNeDQT55mNEpmmFx2Y8Fk4XigsTlod522dc/fh/2DCm61b9H +HrJuDAkHsJrg55I32DFFHvalHjT2GzDGjPWW4U9AHg6PXnnTn2uME9dWQwL3 +ycNE8oJj0T5j3HzW4IaijTyk2rjcbLprhEXsBi8HeMuDnPfqkTWCIT69kr88 +dVEe3L0drxayGeKncf4XLX3l4f7jx5mVY3vxvi5JH/lAeYi/lR/cdnsvvrjX +06s3Uh5OPJW8NTRtgGmqDKdkH8tDdDKpR6kCsD+j8uHX7+WheK/YPRIrBU8Z +cQ3Lf5IHga1PTnK16uPDt+ZP3JyQhwMVgjfdwvSxLG/pea2v8vDjdd14Lrs+ +fi26+27Gmjw8u1cyLCmgh8V1UPclQQXAJ2jRe9EefMtfwrZnhwIw2/ef+8S6 +By/WM3xQElYANjyza6VLB7cbN3/7IKkA1StyTr4ndLC31X6eA+oKUMVQsN4T +oY2bzh0xFzugAFPPnax2ftPEquXkfl9zBdDSm+5Lf6GJH6xsc3hjoQDJXAVM +d+9oYs+AIc8IWwX4c3XtVKaSJt52xyFy4ZQCnD3W2RXktRufzj1NbQ1UABvR +d4UhLGS8Zeza/nOVCvCPYpqY60fAWr5PeO5WKcDPZ/mHTWwI+KTA8JvSWrqe +ZM9+NRIBV+/XPL7QoADBqdIeaSMa+PSzHz6XuhSg1Ol7XQpVHTfGuDy8NqUA +/VYVigmtqnheKd7p4awCmKhQh3QiVPHO1ka5unkFSNw/nPvfAVV8bkO87M+i +AmwL27Um1KOCRd1HWoL+KYAeUVf3yEdlej9y6Hv4TkVYGV7T5tilhHPGAioe +iyhCVoXdCdnPirjHt9CvQ1wRvDyePSsrVMTyJRzMW+QU4bTbzdwdoIjfCjcL +RRMV4d1xixGGcwpYfVnbIN5UEfymPxmkvpfDk3lSCekBihArtUEuY5PB86Gf +1pmDFOHRr/n65mFpvOicecI9RBHEXCTkcaE0ZpCQUiHeUYTZmXAFD0tpLJwo +2dSUqAh3jwxmXc2SwocjJH5OliuCoWDmaoetJD7qOm5j+lwRLi684FpTl8SO +hukvSmoUoXjjjFIwuyT2/Cce4dugCIK1VRv7L0rgcF9xcc5uRWB1wcW7jMRx +nZuYueqsInxQ7rzygFUUNxu/fxo7T9fL/OHE4wYRTJVJFVr5oQjnLx5LOhog +gofGRb+8XFWE8a4DubErwnjxqOg1CxYloBgF34Afu7DifpH8CxJKcN+TZfPq +XyGcoLiLpcZGCVZiuWRnQ7ZhB0f5x1/slMBkUPvslNU2LJtANt3qoATcVtSw +g7LbcOW/g7GnnJUgyZ/UbNMmiPsHg0W3nleCPHLeLm1eQSwYNr/71C0lKAnq +S4qo4MejtetD0ZFKcON9WPyr2/w46yebf3WMEnw6zXLL2okfkxykGnnuK8Fx +3s8OcVv58RGy7cHqTCUI/yq4sf88H4779MqV54UShJ3XCWQM3orthbo4dOqV +4F16uLDznq1Y+uBooXOjEuREGY+7LvDg8urlhap2JVh6XhNleYoHv7mrFOjc +rwSP/ntVlnCIG/Oj+AdV35SglbtAqMhgC45NOd1+UlIZcg57fSm6x4Z9rwRf +DJBRBgGRjAQxBzbseCRNIlFeGVLsXl1jU2DDqlsGfV+rKsPHoqUV/XpW3HnV +WFF7jzLEueSHSC2yYKZjsre5jyjDdkHv+ZVzzHh2N2gq2ChDsGNFsS8w414+ +h08GdsqwIdNY6yzAjNM74vf4OiqDfM8efZ8qJqyvwzz3yUMZPOYTh46yMeHL +Qp9Nq0KUIfuscm3scwbssPRntS9cGfj07GT3xjBgo55d2fO3lUEYOAosTjNg +gQjLDalYZXg3+GjJX4gBl6w2FEY9UobhnzVRHJt/0cxAOrfzM2VwY8r4e/z5 +JrJPON7NPa0MLh6/uSWz1pBoxRYRzzll4B3YCMt3WkPjfVVund+UYbzNUmlQ +Yg258Aowhi8rQ/Kz/DfCGb/QuTtt5H+MKsDwTCBXIn8VBQdpJC+IqsDfzqTc +vv5lZJQ+NmkhqQL5z7som4+WEXv9bVKJjAq8CS9lf+a6jKI2vtA8lFUg9ZLh +OG1tCT24kvT3i7YK/f7U3+Iht4SeeDG6DB5RActvF6UOJi4gr8iSst229Pn3 +3M0b3RaQesF/f+KOqUDRyYnSUp0FVD797IGFkwoIbHAFr777ieqcPTo7zqqA +a67vXW7Fn6jX7q36i1sqUGdrv9pR8A2tGeWup9ergNx9IMpvzKCAF+khLY0q +0P3qbIfgixnEQErhmW1RAX1Pz++p/jOIXeKuFImmArrleYbBf6fRjnW/Ay1D +KnDxnJyJC9c0IhebJ8/8VAGDUq5FJ5hEz2X2yfAsq0B0Y6f/Jc5JpJtiUEz8 +pQInhLED79sJtDdCq/HaHxXY7vlRc9BtAh0+KTnLvUUVyjNO+YQnfkHnti/r +EGVUYaQgpN5j62e0GPm9yUZeFWR5T91yHf+ELjPNml9TUoW7K0UKA2WfUMCP +907NGqrA9logdavNJxTZ2X7LRl8Vziu2T7zO+ojyrz8cvmqjCqHwY1E29wP6 +MrnXrylCFZIVLW9LrY+gvendWcqRqqCPByzqSkZQhp19V1yMKiDOf9XSriPI +keYjfeo+fZzJfbdp/zAaLct4zZytCnLfUjRoL4bQG/+/ksb1qsApfEjlY/EA +ImreMStuVIW4bYMf950fQLHft1/Z3qoKVQk3zzkQB9Chk2q0SZoqPDzAxBhW +1Y+oJg6Xw0dUYUrqUUA27S1q4q/tbF9WBSmuK+fT+d8gKZrxssaaKuRIhpzh +fN+HgkL7xJM2VGHRMW2M9UkfQr9mLrozqUFG6w+psr19qHZMSJyTTw2CeCPy +MgJ6UfnjyxdMVdRAzmzkm7NgN+I/yZharq4GJe7sTsovupC3cHS7MEkNsIZS +0eypLqQenSP6VUcNfKWfXjeufo0KLrxtizRRA9ZrRpIqXjSURSGKdJ1Ug8Ts +pKHIvx2o6dCWkA0XNTh1nccmvKYDfT7xZU7JXQ1knISDtC93IJng+7Xh59Sg +dG6w7Pn3dpTTtn4M/OnrBb5R+DXbhnItmpIqEtRgWuCQFTNDK2pzesjwOVEN +3m89PZ7c2oKmfC658z1Ug+K/PpTXkS1IPkFe52ymGkQ49Br83dWC8obvDMmX +qEHurWMbXpRmlH/SakdKuxpsS3x5RS29EXVcUA3soKpBo8M5k56zjWgmhHVq +tUsNllY2e1b0G5FiXtUzq341sBKcaKSNNaAncyI2PJ/UwDU+uuiKdAMquDgR +H/RbDb6nrp1yvP0SFYdd5ndTUweHE8OZy9XVaF7/eHAYQZ3en/n7CF6qRqrL +RkvZZHW4fjMxZ06jGhU4bxv4uEcdfv4tHq19UoXycUWSvYk6nM/qZynLfY5y +1n9KHDqhDo5ExzNuLyvRRNlwrJezOnRZuvTqhFQiGfcGxkhXdfDZsSn1+EAl +yhq8+6XdUx3e5RZqWg9XoPQK9ccGfur0/iKd1rJZjlLOeqlr3lOHHAUp66dO +T9GorHW6VYI6VMbu//JQ4ynaNabHdyFRHYYDk7u5/pWhJFOuxZJUdfp9OmR5 +Jb0M3VcoeKZYoA7d7SzvMl+XothP0/qizeqgGVOzb3N7MepN6inWbaPHL1fK +YtJchHgPV4kf61SHkdYJ6Qs+RSimPpzhQY86eNdzGLr3FqKoh3ItvGPqcO7p +t7iopAIUYXPKjHlFHb6bE2poFvkoy2LMwXVNHQI7aw7ZsOSjugM259o31KH9 +0YUrDTWP0SJl371IJg1IW1L0ICo8Rg7yKkOCfBpwW6jwow53HiL9WnSWVdGA +MhHnPNpmNjq44HkpXF0D4ji+MB2qz0buXyfCZogacNNya1ZUUDZKHR/ML9LR +ALdDGupa7NmIo6P2+24TDdjgaPBgEMtCH5KCrxmf1ACT410mFe4ZaD1uI/Kx +iwYktkkS2TUz0LboS6mc7hqQXa+4+YsxAx24ebqh65wGnHTQVTqil44qz5iy +2QZoQJJlIQexOhXd0RWIO52oAfyDmgc8p1NQ7u7I7I4UDZjbYpAhFJeCGtRZ +nimnaUBRSTtzJyUFrUivDn3P0QCVM8qb6knJyIlrVMy3XANS6ouHntklIc2x +zCcRXRrw/lZ7ry7bA8Sn7r5W2qsBJ3bUuUe13EfzN9T3Db/VgAGhk9wPQ+6j +HJkXE4qjGnCU1+DwNPN9tM2zX4I6pQH7BRNmmHkS0O8AZjM2BgJkMgYeTsdx +aCb39IUURgIYmBMWhzji0GB3Z7I6MwE+6sf/V/rmHiqXjJ2xZSNAVE9MOtn9 +HvJoEQ1/zE0A8xSObOeUWDTCpdW4fxcBfu4gZr0nx6C23ckzY8IEeCvyyOfR +cDSqPL7J6yNKACfzxlTXwGgUW9rkmCxBAP2es6e4uqLQfiuLzVk5Aqy4BNVa +X4lE1Snu2pEkArRs/czst3oL5TXTHCV2E+Dly7+xMQW3UMK8eniFJgG2Ttfq +h564hbzRSv87HQJYdnHtYn4dgRQ/37ygigkQFlV+has0HCUpPSzuMiNA4eFD +DvAwFC0vmeSGHCSAKrPm05+2ociifvHRHgsCHH+nxxggGIrYrEyjco8QYFXf +hHPX3RB0OWDd4/oxAjiozObLxgajIz1HFdXcCCB+qF7OvioIlSQzS35xJ8D+ +4aCi6BtBiNOlVCjZgwDvodz18v4g1LDGxs56jgBVghunnlbfQBrSzyfHLhHA +dyv/B9edgYj78rbsqGACpNYONQ1v80fuuCFlbyiB3l9mvX1bcw01c3rFrYUR +YOCN2N/VE9fQtbTmmy63CdDqfFf+celVNNt+wUk/lgCLNp97zBz8UJtwn9h8 +KgF4f9UJPp2+jKQnA7ZnpRNAUCLI9F7qZXS9VJHHLpMAzLO00y7Wl9Fuo6DN +5hwCXBJztRtquYSyzmq8e1hIAJ9rnlZpZRfRjYboJLMaApwoPd6DnvqgufcN +Ceu1BJA7I7zKe8UH2W4sxT6uIwDBLnU2Q88HqWrZ32ZuIEDeX5H3ax3eaLhQ +/tqLNgIEPQ3nDR4+j0iJr/5T6SeABzNFIi7PC6VWLh4dGSBAlnbktl0mXojj +jZx1xBABUgSoX0anPNE4d5T5l1F6Pu43Jv1T8URRwXaUh58I0K1XnXOq5Qya +OrsgzvWDAGdGOWzPKrshy0hZkZqfBJjrmzk+++40qss/KuS2SIDXgbLn3WJO +o/gvL3mbVwjQYHhzxmHVFcGxOwz+m3T/rn38OdDnglKMZD7PcRLhGDWE6lLp +jFidbT8kcRGByeJB1/1Lzsj7xu1REx4iMOSsriVrOqN9tT/eZPERYTIgwoC/ +9iRa1qhrthciQubQx4KLr53QQRGbXKosERjv/S1rVnJESRPqDf/JE8GeynNM +rPM4mijmeDevQAT9XxK3s88cRwFQx8erQgQ53woPhRIHVOQqE2BFJELE3Pzr +IqP/0JayhSNjFCKU/RNZpebYIdurtLNnMRHWa9Jm7G3sUNbe3Ft/gQgncz56 +f2GzQ3sG7OoljYggZi0R8cbrKHL//UrJ1ZQIqkSe8GFDW9RuFMPw3ZYI1jfm +k0RFrZHAVneRG3ZEEL/tJDA9aoUchwy0+OyJoLgzcTIwxQqtnlnxJB0nQmmv ++xC3qBWSv+swdOUUEWRXdZVPKB5BoSPKJf/OEwG961D4cOow6s1i6Yz1IcI7 +Jp6PbuqHkajXhy9SF4lQUnCLVWvJAlX8vbfL6AoRKrctjMzJWKDPMuuhtwKI +kHuAtzc84SAyONf+H/9tIlxm1ZnQKjVFv4dnTVru0P14KfHK+rApqjTkJvlG +ESEmzOhG7eIBJL/LkuP9XSJwMVfEm+sdQNwto5X5D+gs52C+490+NLzrOw/k +EGGTv9Sg1dIYxYXyrS/mEsFZ6UunP6sxMvtBmsh9TAThhOpqvVojVN/iW8tV +SAS/78LDnfJGKOc8o9vQUyK0SkavvOIyRN6t2xrOvSKCtPfZVQqTAVImaBdK +NRJhpLJD7V8LoC8pxx70NxGBQPr8+cEtQLbeaV66bUS4XnHHCwkA0hdR3MXW +RYT7zLFiBo4IcfjoXUgdJcJ0dqtf6y491PTu+PHDY0TwVU6ujq/SRf4mQfuZ +PxDBUi1Mps5WF30XaRU/84kIP823cXAm70H9bYdou2eIcPPsyT3b1XRQuqiz +7OsVIig9y/1P564m0iWrqDv/IoKHtUBrl7Em6j+wrL22RoR5Ca+btn92Iw7f +cDPZTSJcpO5r0Dy/G3n3FVwIYCKBL08N8/BxMoLwpQZVXhJU7LPoVnchotFH +ddQmPhLwhqd5pSkS0aWKsH47ARJciPbO7/9GQPkfhWZCt5NAZpvZ0p1rBMSv +p8/7XoQESkffdlbu0UCff4Qej1YkwY1Y6YdLrKoogO2Qm4wyCSQP2GV75aqg +HWJCPjUqJNA7fzxAyUQFmZo+CZ1UJ8HVrVkajpHKqDynq5CiSYINHS8rQ1kl +FHJsx+9vBiRIaPRdz4qSR+Le48yhhiSA7OWSMCSPqsPzeYSNSaAsl8DsvSCH +5it0pUz2k8Daroz/kL0cst56Yn/aIRIcyxHoeKsti2SbHz849B8JMrk87fZJ +SKNu1bWcMQcSVMps/ez0SQr5Pdhf4eFIgpj6wiv7c6QQ7cxsT/hJElTrHTvu +qyqFLvCpcL5yI0HO6BNVHhNJ9Op4ib/GJbpf6eZXV7TFkHv739svL5NALcVU +8uFbUSRAtEgy86WPi/I3xXqLotMsPyvdrpGgV6xszr5EBHEXEr+nB5FARzLX +a1VHGNmvVTrxRZMgYNiC0hcuhFicWc+nxZCAxOAkFKcphEpoNtdVY0kwoTsc +7jK5AzGmrybvj6f7e9JJg7B/B8o31nkblEwCgd7iw8zC29FK3AvjhVwSDKsz +fm74KoDSNrmsbzwmwcqtooNbCwTQ/tMOzjxPSMCYsa6te0YAPdrzJ1CpiAQq +V1pEpOf40d6PqPpkOQkan6ZJT6zwoVi1JuU39SRIvHKj6oXrVpSv8x9ncAMJ +ZtMmTxQs8qBXhsvTxCYSdPCbMu+9yYO+H5PPvddK1/fixDnrbG5kFn5HwvI1 +Cc6rv3p56vcWxDZ+ZFvvCD3+KQo4/GBHYnNfF2+8I8GaeOzEngR2tHsltE/j +PQle6iQRPHTZ0Smuqpi7H0mQdW/fk9I7bKhBW4TTYpoE/+3yljbXZUX+sV/+ +dC2T4MjdqKwffUwo7mHA2PVVElzT23Fx7DYTKsjb/kJtjQScVYO1g3uZ0HDd +Pr/oDRLIug2fnqhiRFqzhYvmTGSAplMSm8UM6KfBpWkaLxn6ZGcO8sT8oXAc +5Gnz5yfDMwZOLy3RPxQJu7wcFUEy3Kz8WstVtEk5dG74ZOQOMkg3kK9m9W5Q +ClP0x0zFyGC++UxwVPU35fQSS1+nMhl4fi56Bqv+ojgWGHU7qJJhu6FWZfnw +KsX2ZCjthxoZuMj3ebnCVykmPcxt24lk+JxYKyY7sUKRL2R6cVKbDJTHZ80j +i5cpk84MueuGZFjU7pZa8VmkjO2CrChjMrxaC0qZUF+k9PfeSJfYRwblxa2H +m+YXKC3oX7KxKRkmez490PNcoOQI/425d5gMLT1JP7su/KS4vNnwUzpOhgsi +SqLFVt8oDrf1rtQ5koFTxtbPf2aeYg3+Fy2cyLDtjmddR+A8xajk99nLp8jg +ynRgN630K0X2zrpz4xl6/HbX9D9Lz1G+GPwyP3aFDKTFJF/pA9OU0TUt03lf +Mrx+0/wtbmmK8qb0yr4bV8lw3IX1mVb6FKVJbNUgN4AM+QP7vNl/T1Ky1pe1 +FoLJYHjjsMl/Lycozk8XJW/fJYP/5orfad/PFK9gq03Te2RgEV8JOqLymXLZ +qnKIO54MXc/5GX0+fqLcWrkcE/uADJfvDeSRDn2ilOxZ30hMJcOyafjOA9of +KdVb7IeOpZOhWVR1/N7MOKXxXW25SCYZKhT9/5W4jFP6rwecSc8hA0fMGVvJ +Ux8o643/BvMKyfBn+mD4H98xClO8U7l7MRmY1+rZ2ZjGKNwujdHKpWT4Ya2V +PR/9jiLOFmJUUk7XM7JRoVU4SjEyZSt/VkOvF8nm3au/hymxb7ijW9rJ0JFx +w1N3doCSkn3WPbyTXl/lu4Vmowco2Ze6DffTyCD5jWkn9+4ByvMdsb9p3WSo +VC1iTgrtp4zZC7q/HSDDkb/d7cpabylTKpcM7w+RIWRovv7D5BvKj81+8aMj +ZLjmf0Do3YM3FKb0BwOjY2S4r/X8RtJmH0Xhyy7Dz1/IkHJ05dbDwV4KofKa +eM4kGZbs31ixx/ZSdMPerbtOk8GOn5aWYNpLMVdILZudo/v9kWzGHN5DueAp +Kb6wQAYBQZlqm5tdlAD9m+vlS2S4c0JexIK1ixLG87n/0goZPtIW6kwiX1OS +SrMj19bIMIwzu/lSaZSsIBa32t9kEBoNuv9WkUYptHTdG7BJBjkP4v7Lz6mU +Suk2MfSXDHkM2o7fjamU+iX59X//yFArWuKlPdRJ+R9VvE0v + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.21308275435714077`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.21308275435714077`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8lt8bx+0Rsipl7z2ekRGecy4ZFUoykq8kEaGiRZFkVkZCGWWPZIcy +kuzxPFllpzTsNMyI6vf8/rnv1/t17nPO5/pc1zn3JeV8/ogrEwMDQy/98f93 +aqAzG9HlIZL1mS9/wuWJWt5Kmh+VvIq/SsgYiffsx//a6kMkJW9jj78hI2Pd +dji1IVqCVTIZmw8Y3EzodsdelMtnf0k8wa+6ubr6uvzw2w33hJ8SNfg//qGw +VeotzP7us8I3iU68Rk49nPMqCWdS032+Sozg7W+K3qTE5eOS0tvvvNTncNij +UH2G7mo8JzAXZXpyDsum38tX/l2NFa6YIsWEOfxvX9dxJF+DM/S5Mr+sz2Hx +/7p4pAJrcFxn1Gn71q94Z5CfT49qLb7y5e7CPodvmGVVSrEs7AVO56KF8Bv/ +xPOkEx8iZOuxG+5Lnr+whEU0LtpkRTRihqzV2neRS9j+00OGjeRGnMQiOkbN +WcJbrr7oNSpqxB2dp8WfDC7hm7+IRYW9jVjRejPLVXcZ72AfmGvZ2YRn3BWK +PjCuYHc7sWzhvCbsEXe9vjd2FVt7t+1jeNaMmVayxl89WcX22y1FT7c245Sj +HQylTat4Ydw488VAM6aKChpGL6/imabkeM3VZqzyOL/9gN0vfDadldFFqwXP +v3jb2ySxhj/crLyZVdGCz00qfaksWccsaT4jpzNb8UfHEY7GznWcShQdmSxr +xVbDt9S7JtYxb6fmscMNrViHNn11Uvg3dj6Jnk1/aMXMT3P5dkT8xq/73d6L +i7ThpAAp5HtiAxeYvTv++G4bbhTclbyH7w9eNhLX/+rejndHd9Qbq/zBZSWV +odTL7TiPzW/C0uQP3st0/URCcDuOWh/U8Aj4g/+IWD6fftiObccT2lJm/uBF +GLSP6mrHcwV8yxsNf3FSwm3fTtUOvEUqVGFchwEmuN1s10c7cIf+PY1AYwZw +98xguDLRgcPt0rTFjjCAfk9S5vi3DswUW73vP08G8Hd2ar7K0Il//513G0pl +gBt7K7w6ZTvx1zGb/B4mRjDWdBsaONOJC9acy87xMsLyclGK1IVO7L7Nu5pH +lBHefek7aH+tE0+Y3ekw02QEIV7tsLg7nXistn6m3Y0RbBmW9okXdOLXSQpK +Da8ZIbqcfzJ7shPfqdxNPDHCCGT0ienVfCfe32uw5+8kIzySXpdsX+rELewO +B/T/McKPBl3XNEYqrrsSe6aayASfHAONz4hScbH1+pOyB0xg9UDA48IhKvby +Ziu3yGYCAZ/j8Y7WVKwcJVj7vZQJfDq+fdG2p+K8ZjWqaicT+F3KYC93peI0 +kvNc/gYTaHhbVbX4U3EMH00504kZ7kde+H46h4prtMWeHTrHDLUfb5KjnlDx +hON5vOnPDNfeTqY+LKFivWJB66OJzHDyXNW6XzUVzxxwuM7TzQx1FdyX1WlU +vM2nhP3FO2awFQiJzO2hYpzEEOc+ywyVLCZrbP1U/GAqJ6+ZhQVaA/f+uDVG +xYYh33qu6rGAn+MOwTvzVHyuANsrHGCBVDf1h9Y/qTil795Evy0LPMq88ZRz +mYp/Smita1xggfcrHXnkDXo8dYHSU/kssNpdFhnBQcOdX3qL4p+zQP6ZGIfH +XDS8vEVG26CFBZLx4d9Pt9Kw2bF2s0fjLFBwnvoyYhsNr63wXj6ygxWYOoyt +tCRoWEbM+d8/GVb48FT3arEUDR8yqrxdTGQFieNGT3llaTg3zi6N4yArZPDz +B9xXpOHemgLF5/asICdzWKpGmYY3P26Wn3JnBbPOh3/aVWn4iEZme30IK6jp +nLz5mEDDgbZLll73WEH7mqi+H4mGn1w3HtuVzgqirG7Wu3fTMMPr2Z+XalkB +vmi3ntOmYZUlPX/pDla4pNtI/KZDw7bCMay9A6zwLWtc5qguDRe7k4RVFljh +z57pxm/6NDx8NzRn+C8r3P4XGyyMaJilalA9nJsNOpoPL5IwDWt8UKwhC7NB +8dZGEW2gYXtWf8NPCmzAdzWeU8GAhsNVu7piNNngT2RsG9NeGn5qJWGnb8gG +X9MTj1PpPHbN5/PsYTagvUgbuW5IwxxZzV6JjvTvL5YbixnRMLlz+y8jLzZQ +71wpyqez40+3m4tX6euzZwlLGtPwHaFarowINmDKZksJofMzxP3g4H02CBS+ +rfWWzh9dHSU3stggtS9nY6sJDXNHlxXkl7HBgYW5ZS06a1cyadrWs0GAMZO6 +GZ2d31m/Yn7NBpYij8v/z1sefjrrM8IGtpnM2/fQudz+nOj4FBucGJ28K0hn +e+ENqvkyG3Sdy1F/R9+PeTTiai0jOySHPNm8S+ei5G2KirzssJRygZVEZ+tj +mYP3Rdmh61KsdSM9ns2d6mHMyuxg+iNvhULnnOFaso82O0hOey0/pvthnrTv +8wcjdvgsVOTwj+7X8tH+WPMj7KCxCbpGdH4kdBLXnmCH98XCyVfofhsPffum +cJYdGNp0wx7Q8/H9wbVH96+xw6z+sy059Hw9sGU3Y77FDpymZZrp9HxODUjm +f8ii739DpNiRnu+Y+8W25mXssJNAEpDRo2EtG13W2pfs0Ldvx6GBPTQc0W/l +fH+Yrt/VNoCZXk+EhI98zFPsIPdpMuKGJr1erM6+8l5iB3OvJ49myTSs+DZc +1HwrBzQV/tx2i16vvXGCtBoRDlAqIcTVqdOw35GMqwpKHDAsLGY+Tq/vzr6a +QSYjDtinp1Lwg34ePHrnY2uuckB83L8bFEkaFoi9ihUiOGC9j89qUoyGay3Y +vickcMCC49vX/iI0zNUjYeZdygEdNQ/nLu2g+991hFVhkgOK3d8fTKafX+vo +8YqERQ5I31PaX0U/35vmXs5MDJzgTxX2bmWl4YOvw169F+aElAuvRUv+UfF3 +avXVhMOcEB6zbeT5Iv2+uWOsyOTICTfjO+5a/KBiZPpm8Lwnfdw6/fXQVyq+ +2/mVbBbOCYR7gQJVE1RM6BD/zljHCXs1zpwuH6Bin9ZQ5/MKWyDw5G/BJ5VU +LD5hwrZK3gKrm8g+uoyKaUycBQGwBd7Idgq5FFGxHEQv3D62BcS4eJVns6l4 +pPZ+UE7kFtD5/J7NKo6KDcry0kZ+bIHHwxuJZV50vd3ue502twC72XvVJjcq +fvhNeWqKgwustqkytTtT8YpyqdqyFBcIGZ7KLLCj4ie5VXVbrbkgS3lF+J0h +FfM/7Bg1rOYCvWWi7bwQFdfX3AmktnABQ68Rs44AFXsOm0tb9nHBuBNjoy83 +Fbdu7zvjOMcFXP+OZb9loOKrsSNrfqLcUIZmrvyd6cSfwuZ2lARxQ50kmVW1 +qhM/9ea22nmAB9rWkrYYm9H/ZymCV4ttecCqVm97vGEnnmoRTt/rwgOlT45t +G9DrxMK7lL563eABtRRuLU3VThzaaBzS+IwHYso1F924O7GtwI0KD+mtIMda +UpJH7cC/KxYEX25she1rY5UsuANn+nvOEY7ygd/o21VJrnZMaOBcizjOB5Tl +BuEcxnbcwJLPOn6KD/42LyVIrrXhj9ETktHefJDd0tPCOtmGxTOOH529zQcH +1IlpwfVtOKXFoiWzjg8eCFTdOeLdhuN4dqcJSPMDZ/ro9uKeVhycvmm5PM8P +9hG2j8yCWjDD249Qd00QCuqmXk93NWL5S6f9rJW3Q+L1s9XOlS/xxEqiLdfL +HSAV9nZd+GI1Np30uB7nsxOsn5s2+BlX4EMTsSri4sJwjHnCwPp5MX6tMtHv +ICsMcnHFDkJJxdjsonbgQ2Vh+HT4Vdn3q8V4P9OH3p3awnC36C7XKKUY75VU +uSJ4WBii3n9/lt1WhDUdWhs4goVhfKJ/mHmsEIv2r9ssTQqDZcgd1t/bC/Bc +s3NQR7EIdPpIloe15WGJe8MeMZUioEEKury7MA9bOx6ysX4hAuKpIY9/383D +9Wt7lD92iIAbNjXsOpaH49T4+399EYHEep72O99zsV7iKwUFYVHwPrq5w1k0 +F0d5iPaEhYvCto68Ipvb2bhRO67GLFoUjvVefjrlnY1XWThy+BNEgUgdtYmx +y8ZO6Ut+qZmiUKL98riUYjbe3U+VflYnCuJNExE2HVn4PeXqlYlFUQh5I7D6 +nTsLq/MPihmeEIMtipfXHudl4KnoqeD7rmJQzbBd8WxcBk7d8mt62lMMHG3S +BYwDMzA3y87yKD8xWE9I+6Vqm4HnVo+ZDN4Tg7/tLLvG2DJw7tj7c2daxEBM +c+yx01AaFs2ffHVXSRx+yekPToU9wv2yq7KfNcShtetY4t+Tj3BkJtud3Vri +sPOxRcoe9Aj/TlGwHtkrDuo2McK7fj3Ew9FnZqQdxEEoL3DR3+Mhjr/4je95 +jDiEyLZCw9EUvAWvnBxbEodxY+a4WrMk7GegyPH8tzjsp16/4aOUhKcM/yu5 +yygBBaHXfxxiT8JN+xt/7+WVAL1e6x8BzYn42pHo+CfKEvB1e/T9LEoi/uoq +13rlpATY1QrF/NF5gF9H2Sjy90hA2GjJIx2zBKx791b33IAEpM2mU6PUEnD+ +vReXWsYkIKnkqBILXwIOfSDV6DsnAcnSA9wOA/FYvHdV9QeTJLRksFwuPhmP +B0eaWm3EJYH7OS/Lq6A4vO+b/S9pG0l4vpxx+MNQLE7bFvL2hp0kyHCp2I/W +x+JlvcLSsf8kodLuNPtKbizOuLPh9sBZEvRl70+GXYrFvxUeDXN6S0LeQOZ7 +AcFYXOT8vubnHUkwVws4El4Yg/mGTwTUN0iCwYtB+7hPkfj0vwg7kRZJYGgN +vd/zPBLXyZft9muXBJbyl0WGUZH4zGWGb8RuSYj/2Znbox2JmwQyj+e+k4TX +vX3aPvfu4EsHP6OoVbrehdnykkO38XCTC6O9qhTcdjVsrPwRjn8ajApf15AC +Y//anyNd4Zi90WJ3BkkKrMQaLykVhWOtV7puUzpS4BixdczkTDhOeMHXdcFY +Cs56fx64MhmGLSrrkiIdpWAPxsK3J0NxW+42wstYKchRmTrkxhyCP8jeOfAx +XgqMQlKvRU4F45Xsf87MiVIwo/RDbqAzGMtmzd0/kCoFE0P7XIdjg3FwWsPG +wBMpuDmn6p0iGYxRolf79yYpUIipxvMmN/GzWy2OkitSoGl6dHvMfzdwvilt +Z8SaFPjIaKZFyd/AKdxv3nzbkIJIlbdJwwuBOCh23OQFkzTkvVQIPHo7kN5v +/Fa35ZOGw9tnLKdfXMefHxP+RapIw+SskxyTRgDe2v4o/ddJaVDTruPpNL2K +GW9nH3N0lYZEwcuaXeJX8bJpgWCruzQIK0ns3Lbkh0e6qyLizkuDEuV2u/sj +P5wz+Oa82nVpqB8z/Sa76It1pzjgVJI0FGQ825n15Ao+zXr5Y3e3NDTMGElG +mlzCwhKdQxt90rDtV2hLuewl3K0j1qM4IA2mg30i3MyXsJZX68vgd9LA/i16 +6UjDRcz2dvtDrRlpkDXWaFKmXMS5Gc9t0hhlIGyccKQHX8ATemvUs7tl4JGP +6b9jbt44yca8KUVbBkp4vZz3mXlj8/MZNe26MsC5i9n2hIY3rszany9lIAM0 +Z1F10Z/ncShnctjAQRk40WdxsGnHeSw7tAcobjKQeSU00fHiWXzqgv8z7hQZ +sHtEU+Jw88BapA/PlFJlQKLM3id3jwfesgjPTTJkQLiCw+wWtwcu82GrCsqT +gdCvQ2ZiFWfwpve96uVyGWC8OFt1jfkMfnD+8YsxmgzYzx7deFbmhju93jYW +/ZGBS9eSBgd0XfEjVa2mTgZZeNqT/S1guyv2nk9qmmKWBbVw1SXHny54h5dj +s+QWWThlaRf5Js8FO3vOtiTskIVXAikHz+9wwZtn/rUHaMhCgpKYoB7DKazh +ptJtflIWpiP/cHFvOuEPZyTOF7vIQjVtr870qBOO8hLk2+ouC15pFjWbNU54 +1mfDsuecLEjuzLEd8HPC2QG0AcsA+n7D8a9OL57AQnGe720TZUFHRV2hhMMR +/6srnHfqkoWLbDaSX0Psccmr9OjGXll4lvtJ4vshe+zQFK8u3S8Lts2DMpbC +9rim3d/7y6gsvB2XHdldfgxffGO27DojCz69zGHOU3Z4evrrhgezHJBv8lYN +nDiKewRUuS7vkYP5+IxxnXhrjM6enX2oLwe0f+EmC57WuKS9pL2J3lUxReYz +fjeyxjEBxFA+EzlIuF/SV/7LCptPaf0pPCIHpnq6Nx2drDC1xuDHZ085sMzt +5p2kHMGtTkffHk6jz08JaGZQOIx3v0h66pspB/v2j9oEsx/GOdtH76blyIFQ +vCXZr9cCh1IdzOcL5GDBQD272NoC793t3BpRJQeFhdsbkfMh3MB+tqq+Vw6a +dy72Ot8zxy9Kgh+qMstDaCv1o4LeAcxmbiOcyCYPuyzaFOpZDmDLWYVkxi3y +UNDGCg3d+/G0TNeDQT55mNEpmmFx2Y8Fk4XigsTlod522dc/fh/2DCm61b9H +HrJuDAkHsJrg55I32DFFHvalHjT2GzDGjPWW4U9AHg6PXnnTn2uME9dWQwL3 +ycNE8oJj0T5j3HzW4IaijTyk2rjcbLprhEXsBi8HeMuDnPfqkTWCIT69kr88 +dVEe3L0drxayGeKncf4XLX3l4f7jx5mVY3vxvi5JH/lAeYi/lR/cdnsvvrjX +06s3Uh5OPJW8NTRtgGmqDKdkH8tDdDKpR6kCsD+j8uHX7+WheK/YPRIrBU8Z +cQ3Lf5IHga1PTnK16uPDt+ZP3JyQhwMVgjfdwvSxLG/pea2v8vDjdd14Lrs+ +fi26+27Gmjw8u1cyLCmgh8V1UPclQQXAJ2jRe9EefMtfwrZnhwIw2/ef+8S6 +By/WM3xQElYANjyza6VLB7cbN3/7IKkA1StyTr4ndLC31X6eA+oKUMVQsN4T +oY2bzh0xFzugAFPPnax2ftPEquXkfl9zBdDSm+5Lf6GJH6xsc3hjoQDJXAVM +d+9oYs+AIc8IWwX4c3XtVKaSJt52xyFy4ZQCnD3W2RXktRufzj1NbQ1UABvR +d4UhLGS8Zeza/nOVCvCPYpqY60fAWr5PeO5WKcDPZ/mHTWwI+KTA8JvSWrqe +ZM9+NRIBV+/XPL7QoADBqdIeaSMa+PSzHz6XuhSg1Ol7XQpVHTfGuDy8NqUA +/VYVigmtqnheKd7p4awCmKhQh3QiVPHO1ka5unkFSNw/nPvfAVV8bkO87M+i +AmwL27Um1KOCRd1HWoL+KYAeUVf3yEdlej9y6Hv4TkVYGV7T5tilhHPGAioe +iyhCVoXdCdnPirjHt9CvQ1wRvDyePSsrVMTyJRzMW+QU4bTbzdwdoIjfCjcL +RRMV4d1xixGGcwpYfVnbIN5UEfymPxmkvpfDk3lSCekBihArtUEuY5PB86Gf +1pmDFOHRr/n65mFpvOicecI9RBHEXCTkcaE0ZpCQUiHeUYTZmXAFD0tpLJwo +2dSUqAh3jwxmXc2SwocjJH5OliuCoWDmaoetJD7qOm5j+lwRLi684FpTl8SO +hukvSmoUoXjjjFIwuyT2/Cce4dugCIK1VRv7L0rgcF9xcc5uRWB1wcW7jMRx +nZuYueqsInxQ7rzygFUUNxu/fxo7T9fL/OHE4wYRTJVJFVr5oQjnLx5LOhog +gofGRb+8XFWE8a4DubErwnjxqOg1CxYloBgF34Afu7DifpH8CxJKcN+TZfPq +XyGcoLiLpcZGCVZiuWRnQ7ZhB0f5x1/slMBkUPvslNU2LJtANt3qoATcVtSw +g7LbcOW/g7GnnJUgyZ/UbNMmiPsHg0W3nleCPHLeLm1eQSwYNr/71C0lKAnq +S4qo4MejtetD0ZFKcON9WPyr2/w46yebf3WMEnw6zXLL2okfkxykGnnuK8Fx +3s8OcVv58RGy7cHqTCUI/yq4sf88H4779MqV54UShJ3XCWQM3orthbo4dOqV +4F16uLDznq1Y+uBooXOjEuREGY+7LvDg8urlhap2JVh6XhNleYoHv7mrFOjc +rwSP/ntVlnCIG/Oj+AdV35SglbtAqMhgC45NOd1+UlIZcg57fSm6x4Z9rwRf +DJBRBgGRjAQxBzbseCRNIlFeGVLsXl1jU2DDqlsGfV+rKsPHoqUV/XpW3HnV +WFF7jzLEueSHSC2yYKZjsre5jyjDdkHv+ZVzzHh2N2gq2ChDsGNFsS8w414+ +h08GdsqwIdNY6yzAjNM74vf4OiqDfM8efZ8qJqyvwzz3yUMZPOYTh46yMeHL +Qp9Nq0KUIfuscm3scwbssPRntS9cGfj07GT3xjBgo55d2fO3lUEYOAosTjNg +gQjLDalYZXg3+GjJX4gBl6w2FEY9UobhnzVRHJt/0cxAOrfzM2VwY8r4e/z5 +JrJPON7NPa0MLh6/uSWz1pBoxRYRzzll4B3YCMt3WkPjfVVund+UYbzNUmlQ +Yg258Aowhi8rQ/Kz/DfCGb/QuTtt5H+MKsDwTCBXIn8VBQdpJC+IqsDfzqTc +vv5lZJQ+NmkhqQL5z7som4+WEXv9bVKJjAq8CS9lf+a6jKI2vtA8lFUg9ZLh +OG1tCT24kvT3i7YK/f7U3+Iht4SeeDG6DB5RActvF6UOJi4gr8iSst229Pn3 +3M0b3RaQesF/f+KOqUDRyYnSUp0FVD797IGFkwoIbHAFr777ieqcPTo7zqqA +a67vXW7Fn6jX7q36i1sqUGdrv9pR8A2tGeWup9ergNx9IMpvzKCAF+khLY0q +0P3qbIfgixnEQErhmW1RAX1Pz++p/jOIXeKuFImmArrleYbBf6fRjnW/Ay1D +KnDxnJyJC9c0IhebJ8/8VAGDUq5FJ5hEz2X2yfAsq0B0Y6f/Jc5JpJtiUEz8 +pQInhLED79sJtDdCq/HaHxXY7vlRc9BtAh0+KTnLvUUVyjNO+YQnfkHnti/r +EGVUYaQgpN5j62e0GPm9yUZeFWR5T91yHf+ELjPNml9TUoW7K0UKA2WfUMCP +907NGqrA9logdavNJxTZ2X7LRl8Vziu2T7zO+ojyrz8cvmqjCqHwY1E29wP6 +MrnXrylCFZIVLW9LrY+gvendWcqRqqCPByzqSkZQhp19V1yMKiDOf9XSriPI +keYjfeo+fZzJfbdp/zAaLct4zZytCnLfUjRoL4bQG/+/ksb1qsApfEjlY/EA +ImreMStuVIW4bYMf950fQLHft1/Z3qoKVQk3zzkQB9Chk2q0SZoqPDzAxBhW +1Y+oJg6Xw0dUYUrqUUA27S1q4q/tbF9WBSmuK+fT+d8gKZrxssaaKuRIhpzh +fN+HgkL7xJM2VGHRMW2M9UkfQr9mLrozqUFG6w+psr19qHZMSJyTTw2CeCPy +MgJ6UfnjyxdMVdRAzmzkm7NgN+I/yZharq4GJe7sTsovupC3cHS7MEkNsIZS +0eypLqQenSP6VUcNfKWfXjeufo0KLrxtizRRA9ZrRpIqXjSURSGKdJ1Ug8Ts +pKHIvx2o6dCWkA0XNTh1nccmvKYDfT7xZU7JXQ1knISDtC93IJng+7Xh59Sg +dG6w7Pn3dpTTtn4M/OnrBb5R+DXbhnItmpIqEtRgWuCQFTNDK2pzesjwOVEN +3m89PZ7c2oKmfC658z1Ug+K/PpTXkS1IPkFe52ymGkQ49Br83dWC8obvDMmX +qEHurWMbXpRmlH/SakdKuxpsS3x5RS29EXVcUA3soKpBo8M5k56zjWgmhHVq +tUsNllY2e1b0G5FiXtUzq341sBKcaKSNNaAncyI2PJ/UwDU+uuiKdAMquDgR +H/RbDb6nrp1yvP0SFYdd5ndTUweHE8OZy9XVaF7/eHAYQZ3en/n7CF6qRqrL +RkvZZHW4fjMxZ06jGhU4bxv4uEcdfv4tHq19UoXycUWSvYk6nM/qZynLfY5y +1n9KHDqhDo5ExzNuLyvRRNlwrJezOnRZuvTqhFQiGfcGxkhXdfDZsSn1+EAl +yhq8+6XdUx3e5RZqWg9XoPQK9ccGfur0/iKd1rJZjlLOeqlr3lOHHAUp66dO +T9GorHW6VYI6VMbu//JQ4ynaNabHdyFRHYYDk7u5/pWhJFOuxZJUdfp9OmR5 +Jb0M3VcoeKZYoA7d7SzvMl+XothP0/qizeqgGVOzb3N7MepN6inWbaPHL1fK +YtJchHgPV4kf61SHkdYJ6Qs+RSimPpzhQY86eNdzGLr3FqKoh3ItvGPqcO7p +t7iopAIUYXPKjHlFHb6bE2poFvkoy2LMwXVNHQI7aw7ZsOSjugM259o31KH9 +0YUrDTWP0SJl371IJg1IW1L0ICo8Rg7yKkOCfBpwW6jwow53HiL9WnSWVdGA +MhHnPNpmNjq44HkpXF0D4ji+MB2qz0buXyfCZogacNNya1ZUUDZKHR/ML9LR +ALdDGupa7NmIo6P2+24TDdjgaPBgEMtCH5KCrxmf1ACT410mFe4ZaD1uI/Kx +iwYktkkS2TUz0LboS6mc7hqQXa+4+YsxAx24ebqh65wGnHTQVTqil44qz5iy +2QZoQJJlIQexOhXd0RWIO52oAfyDmgc8p1NQ7u7I7I4UDZjbYpAhFJeCGtRZ +nimnaUBRSTtzJyUFrUivDn3P0QCVM8qb6knJyIlrVMy3XANS6ouHntklIc2x +zCcRXRrw/lZ7ry7bA8Sn7r5W2qsBJ3bUuUe13EfzN9T3Db/VgAGhk9wPQ+6j +HJkXE4qjGnCU1+DwNPN9tM2zX4I6pQH7BRNmmHkS0O8AZjM2BgJkMgYeTsdx +aCb39IUURgIYmBMWhzji0GB3Z7I6MwE+6sf/V/rmHiqXjJ2xZSNAVE9MOtn9 +HvJoEQ1/zE0A8xSObOeUWDTCpdW4fxcBfu4gZr0nx6C23ckzY8IEeCvyyOfR +cDSqPL7J6yNKACfzxlTXwGgUW9rkmCxBAP2es6e4uqLQfiuLzVk5Aqy4BNVa +X4lE1Snu2pEkArRs/czst3oL5TXTHCV2E+Dly7+xMQW3UMK8eniFJgG2Ttfq +h564hbzRSv87HQJYdnHtYn4dgRQ/37ygigkQFlV+has0HCUpPSzuMiNA4eFD +DvAwFC0vmeSGHCSAKrPm05+2ociifvHRHgsCHH+nxxggGIrYrEyjco8QYFXf +hHPX3RB0OWDd4/oxAjiozObLxgajIz1HFdXcCCB+qF7OvioIlSQzS35xJ8D+ +4aCi6BtBiNOlVCjZgwDvodz18v4g1LDGxs56jgBVghunnlbfQBrSzyfHLhHA +dyv/B9edgYj78rbsqGACpNYONQ1v80fuuCFlbyiB3l9mvX1bcw01c3rFrYUR +YOCN2N/VE9fQtbTmmy63CdDqfFf+celVNNt+wUk/lgCLNp97zBz8UJtwn9h8 +KgF4f9UJPp2+jKQnA7ZnpRNAUCLI9F7qZXS9VJHHLpMAzLO00y7Wl9Fuo6DN +5hwCXBJztRtquYSyzmq8e1hIAJ9rnlZpZRfRjYboJLMaApwoPd6DnvqgufcN +Ceu1BJA7I7zKe8UH2W4sxT6uIwDBLnU2Q88HqWrZ32ZuIEDeX5H3ax3eaLhQ +/tqLNgIEPQ3nDR4+j0iJr/5T6SeABzNFIi7PC6VWLh4dGSBAlnbktl0mXojj +jZx1xBABUgSoX0anPNE4d5T5l1F6Pu43Jv1T8URRwXaUh58I0K1XnXOq5Qya +OrsgzvWDAGdGOWzPKrshy0hZkZqfBJjrmzk+++40qss/KuS2SIDXgbLn3WJO +o/gvL3mbVwjQYHhzxmHVFcGxOwz+m3T/rn38OdDnglKMZD7PcRLhGDWE6lLp +jFidbT8kcRGByeJB1/1Lzsj7xu1REx4iMOSsriVrOqN9tT/eZPERYTIgwoC/ +9iRa1qhrthciQubQx4KLr53QQRGbXKosERjv/S1rVnJESRPqDf/JE8GeynNM +rPM4mijmeDevQAT9XxK3s88cRwFQx8erQgQ53woPhRIHVOQqE2BFJELE3Pzr +IqP/0JayhSNjFCKU/RNZpebYIdurtLNnMRHWa9Jm7G3sUNbe3Ft/gQgncz56 +f2GzQ3sG7OoljYggZi0R8cbrKHL//UrJ1ZQIqkSe8GFDW9RuFMPw3ZYI1jfm +k0RFrZHAVneRG3ZEEL/tJDA9aoUchwy0+OyJoLgzcTIwxQqtnlnxJB0nQmmv ++xC3qBWSv+swdOUUEWRXdZVPKB5BoSPKJf/OEwG961D4cOow6s1i6Yz1IcI7 +Jp6PbuqHkajXhy9SF4lQUnCLVWvJAlX8vbfL6AoRKrctjMzJWKDPMuuhtwKI +kHuAtzc84SAyONf+H/9tIlxm1ZnQKjVFv4dnTVru0P14KfHK+rApqjTkJvlG +ESEmzOhG7eIBJL/LkuP9XSJwMVfEm+sdQNwto5X5D+gs52C+490+NLzrOw/k +EGGTv9Sg1dIYxYXyrS/mEsFZ6UunP6sxMvtBmsh9TAThhOpqvVojVN/iW8tV +SAS/78LDnfJGKOc8o9vQUyK0SkavvOIyRN6t2xrOvSKCtPfZVQqTAVImaBdK +NRJhpLJD7V8LoC8pxx70NxGBQPr8+cEtQLbeaV66bUS4XnHHCwkA0hdR3MXW +RYT7zLFiBo4IcfjoXUgdJcJ0dqtf6y491PTu+PHDY0TwVU6ujq/SRf4mQfuZ +PxDBUi1Mps5WF30XaRU/84kIP823cXAm70H9bYdou2eIcPPsyT3b1XRQuqiz +7OsVIig9y/1P564m0iWrqDv/IoKHtUBrl7Em6j+wrL22RoR5Ca+btn92Iw7f +cDPZTSJcpO5r0Dy/G3n3FVwIYCKBL08N8/BxMoLwpQZVXhJU7LPoVnchotFH +ddQmPhLwhqd5pSkS0aWKsH47ARJciPbO7/9GQPkfhWZCt5NAZpvZ0p1rBMSv +p8/7XoQESkffdlbu0UCff4Qej1YkwY1Y6YdLrKoogO2Qm4wyCSQP2GV75aqg +HWJCPjUqJNA7fzxAyUQFmZo+CZ1UJ8HVrVkajpHKqDynq5CiSYINHS8rQ1kl +FHJsx+9vBiRIaPRdz4qSR+Le48yhhiSA7OWSMCSPqsPzeYSNSaAsl8DsvSCH +5it0pUz2k8Daroz/kL0cst56Yn/aIRIcyxHoeKsti2SbHz849B8JMrk87fZJ +SKNu1bWcMQcSVMps/ez0SQr5Pdhf4eFIgpj6wiv7c6QQ7cxsT/hJElTrHTvu +qyqFLvCpcL5yI0HO6BNVHhNJ9Op4ib/GJbpf6eZXV7TFkHv739svL5NALcVU +8uFbUSRAtEgy86WPi/I3xXqLotMsPyvdrpGgV6xszr5EBHEXEr+nB5FARzLX +a1VHGNmvVTrxRZMgYNiC0hcuhFicWc+nxZCAxOAkFKcphEpoNtdVY0kwoTsc +7jK5AzGmrybvj6f7e9JJg7B/B8o31nkblEwCgd7iw8zC29FK3AvjhVwSDKsz +fm74KoDSNrmsbzwmwcqtooNbCwTQ/tMOzjxPSMCYsa6te0YAPdrzJ1CpiAQq +V1pEpOf40d6PqPpkOQkan6ZJT6zwoVi1JuU39SRIvHKj6oXrVpSv8x9ncAMJ +ZtMmTxQs8qBXhsvTxCYSdPCbMu+9yYO+H5PPvddK1/fixDnrbG5kFn5HwvI1 +Cc6rv3p56vcWxDZ+ZFvvCD3+KQo4/GBHYnNfF2+8I8GaeOzEngR2tHsltE/j +PQle6iQRPHTZ0Smuqpi7H0mQdW/fk9I7bKhBW4TTYpoE/+3yljbXZUX+sV/+ +dC2T4MjdqKwffUwo7mHA2PVVElzT23Fx7DYTKsjb/kJtjQScVYO1g3uZ0HDd +Pr/oDRLIug2fnqhiRFqzhYvmTGSAplMSm8UM6KfBpWkaLxn6ZGcO8sT8oXAc +5Gnz5yfDMwZOLy3RPxQJu7wcFUEy3Kz8WstVtEk5dG74ZOQOMkg3kK9m9W5Q +ClP0x0zFyGC++UxwVPU35fQSS1+nMhl4fi56Bqv+ojgWGHU7qJJhu6FWZfnw +KsX2ZCjthxoZuMj3ebnCVykmPcxt24lk+JxYKyY7sUKRL2R6cVKbDJTHZ80j +i5cpk84MueuGZFjU7pZa8VmkjO2CrChjMrxaC0qZUF+k9PfeSJfYRwblxa2H +m+YXKC3oX7KxKRkmez490PNcoOQI/425d5gMLT1JP7su/KS4vNnwUzpOhgsi +SqLFVt8oDrf1rtQ5koFTxtbPf2aeYg3+Fy2cyLDtjmddR+A8xajk99nLp8jg +ynRgN630K0X2zrpz4xl6/HbX9D9Lz1G+GPwyP3aFDKTFJF/pA9OU0TUt03lf +Mrx+0/wtbmmK8qb0yr4bV8lw3IX1mVb6FKVJbNUgN4AM+QP7vNl/T1Ky1pe1 +FoLJYHjjsMl/Lycozk8XJW/fJYP/5orfad/PFK9gq03Te2RgEV8JOqLymXLZ +qnKIO54MXc/5GX0+fqLcWrkcE/uADJfvDeSRDn2ilOxZ30hMJcOyafjOA9of +KdVb7IeOpZOhWVR1/N7MOKXxXW25SCYZKhT9/5W4jFP6rwecSc8hA0fMGVvJ +Ux8o643/BvMKyfBn+mD4H98xClO8U7l7MRmY1+rZ2ZjGKNwujdHKpWT4Ya2V +PR/9jiLOFmJUUk7XM7JRoVU4SjEyZSt/VkOvF8nm3au/hymxb7ijW9rJ0JFx +w1N3doCSkn3WPbyTXl/lu4Vmowco2Ze6DffTyCD5jWkn9+4ByvMdsb9p3WSo +VC1iTgrtp4zZC7q/HSDDkb/d7cpabylTKpcM7w+RIWRovv7D5BvKj81+8aMj +ZLjmf0Do3YM3FKb0BwOjY2S4r/X8RtJmH0Xhyy7Dz1/IkHJ05dbDwV4KofKa +eM4kGZbs31ixx/ZSdMPerbtOk8GOn5aWYNpLMVdILZudo/v9kWzGHN5DueAp +Kb6wQAYBQZlqm5tdlAD9m+vlS2S4c0JexIK1ixLG87n/0goZPtIW6kwiX1OS +SrMj19bIMIwzu/lSaZSsIBa32t9kEBoNuv9WkUYptHTdG7BJBjkP4v7Lz6mU +Suk2MfSXDHkM2o7fjamU+iX59X//yFArWuKlPdRJ+R9VvE0v + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.21308275435714077`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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, 20}, {0., 0.21308275435714077`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9921130121545124`*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"1b40c314-5709-9a4d-928a-39e6438f8355"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel-> + "In[121]:=",ExpressionUUID->"3e01852b-fa23-2642-abab-f1f489e06059"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVlnc8lt8bx+0Rsipl7z2ekRGecy4ZFUoykq8kEaGiRZFkVkZCGWWPZIcy +kuzxPFllpzTsNMyI6vf8/rnv1/t17nPO5/pc1zn3JeV8/ogrEwMDQy/98f93 +aqAzG9HlIZL1mS9/wuWJWt5Kmh+VvIq/SsgYiffsx//a6kMkJW9jj78hI2Pd +dji1IVqCVTIZmw8Y3EzodsdelMtnf0k8wa+6ubr6uvzw2w33hJ8SNfg//qGw +VeotzP7us8I3iU68Rk49nPMqCWdS032+Sozg7W+K3qTE5eOS0tvvvNTncNij +UH2G7mo8JzAXZXpyDsum38tX/l2NFa6YIsWEOfxvX9dxJF+DM/S5Mr+sz2Hx +/7p4pAJrcFxn1Gn71q94Z5CfT49qLb7y5e7CPodvmGVVSrEs7AVO56KF8Bv/ +xPOkEx8iZOuxG+5Lnr+whEU0LtpkRTRihqzV2neRS9j+00OGjeRGnMQiOkbN +WcJbrr7oNSpqxB2dp8WfDC7hm7+IRYW9jVjRejPLVXcZ72AfmGvZ2YRn3BWK +PjCuYHc7sWzhvCbsEXe9vjd2FVt7t+1jeNaMmVayxl89WcX22y1FT7c245Sj +HQylTat4Ydw488VAM6aKChpGL6/imabkeM3VZqzyOL/9gN0vfDadldFFqwXP +v3jb2ySxhj/crLyZVdGCz00qfaksWccsaT4jpzNb8UfHEY7GznWcShQdmSxr +xVbDt9S7JtYxb6fmscMNrViHNn11Uvg3dj6Jnk1/aMXMT3P5dkT8xq/73d6L +i7ThpAAp5HtiAxeYvTv++G4bbhTclbyH7w9eNhLX/+rejndHd9Qbq/zBZSWV +odTL7TiPzW/C0uQP3st0/URCcDuOWh/U8Aj4g/+IWD6fftiObccT2lJm/uBF +GLSP6mrHcwV8yxsNf3FSwm3fTtUOvEUqVGFchwEmuN1s10c7cIf+PY1AYwZw +98xguDLRgcPt0rTFjjCAfk9S5vi3DswUW73vP08G8Hd2ar7K0Il//513G0pl +gBt7K7w6ZTvx1zGb/B4mRjDWdBsaONOJC9acy87xMsLyclGK1IVO7L7Nu5pH +lBHefek7aH+tE0+Y3ekw02QEIV7tsLg7nXistn6m3Y0RbBmW9okXdOLXSQpK +Da8ZIbqcfzJ7shPfqdxNPDHCCGT0ienVfCfe32uw5+8kIzySXpdsX+rELewO +B/T/McKPBl3XNEYqrrsSe6aayASfHAONz4hScbH1+pOyB0xg9UDA48IhKvby +Ziu3yGYCAZ/j8Y7WVKwcJVj7vZQJfDq+fdG2p+K8ZjWqaicT+F3KYC93peI0 +kvNc/gYTaHhbVbX4U3EMH00504kZ7kde+H46h4prtMWeHTrHDLUfb5KjnlDx +hON5vOnPDNfeTqY+LKFivWJB66OJzHDyXNW6XzUVzxxwuM7TzQx1FdyX1WlU +vM2nhP3FO2awFQiJzO2hYpzEEOc+ywyVLCZrbP1U/GAqJ6+ZhQVaA/f+uDVG +xYYh33qu6rGAn+MOwTvzVHyuANsrHGCBVDf1h9Y/qTil795Evy0LPMq88ZRz +mYp/Smita1xggfcrHXnkDXo8dYHSU/kssNpdFhnBQcOdX3qL4p+zQP6ZGIfH +XDS8vEVG26CFBZLx4d9Pt9Kw2bF2s0fjLFBwnvoyYhsNr63wXj6ygxWYOoyt +tCRoWEbM+d8/GVb48FT3arEUDR8yqrxdTGQFieNGT3llaTg3zi6N4yArZPDz +B9xXpOHemgLF5/asICdzWKpGmYY3P26Wn3JnBbPOh3/aVWn4iEZme30IK6jp +nLz5mEDDgbZLll73WEH7mqi+H4mGn1w3HtuVzgqirG7Wu3fTMMPr2Z+XalkB +vmi3ntOmYZUlPX/pDla4pNtI/KZDw7bCMay9A6zwLWtc5qguDRe7k4RVFljh +z57pxm/6NDx8NzRn+C8r3P4XGyyMaJilalA9nJsNOpoPL5IwDWt8UKwhC7NB +8dZGEW2gYXtWf8NPCmzAdzWeU8GAhsNVu7piNNngT2RsG9NeGn5qJWGnb8gG +X9MTj1PpPHbN5/PsYTagvUgbuW5IwxxZzV6JjvTvL5YbixnRMLlz+y8jLzZQ +71wpyqez40+3m4tX6euzZwlLGtPwHaFarowINmDKZksJofMzxP3g4H02CBS+ +rfWWzh9dHSU3stggtS9nY6sJDXNHlxXkl7HBgYW5ZS06a1cyadrWs0GAMZO6 +GZ2d31m/Yn7NBpYij8v/z1sefjrrM8IGtpnM2/fQudz+nOj4FBucGJ28K0hn +e+ENqvkyG3Sdy1F/R9+PeTTiai0jOySHPNm8S+ei5G2KirzssJRygZVEZ+tj +mYP3Rdmh61KsdSM9ns2d6mHMyuxg+iNvhULnnOFaso82O0hOey0/pvthnrTv +8wcjdvgsVOTwj+7X8tH+WPMj7KCxCbpGdH4kdBLXnmCH98XCyVfofhsPffum +cJYdGNp0wx7Q8/H9wbVH96+xw6z+sy059Hw9sGU3Y77FDpymZZrp9HxODUjm +f8ii739DpNiRnu+Y+8W25mXssJNAEpDRo2EtG13W2pfs0Ldvx6GBPTQc0W/l +fH+Yrt/VNoCZXk+EhI98zFPsIPdpMuKGJr1erM6+8l5iB3OvJ49myTSs+DZc +1HwrBzQV/tx2i16vvXGCtBoRDlAqIcTVqdOw35GMqwpKHDAsLGY+Tq/vzr6a +QSYjDtinp1Lwg34ePHrnY2uuckB83L8bFEkaFoi9ihUiOGC9j89qUoyGay3Y +vickcMCC49vX/iI0zNUjYeZdygEdNQ/nLu2g+991hFVhkgOK3d8fTKafX+vo +8YqERQ5I31PaX0U/35vmXs5MDJzgTxX2bmWl4YOvw169F+aElAuvRUv+UfF3 +avXVhMOcEB6zbeT5Iv2+uWOsyOTICTfjO+5a/KBiZPpm8Lwnfdw6/fXQVyq+ +2/mVbBbOCYR7gQJVE1RM6BD/zljHCXs1zpwuH6Bin9ZQ5/MKWyDw5G/BJ5VU +LD5hwrZK3gKrm8g+uoyKaUycBQGwBd7Idgq5FFGxHEQv3D62BcS4eJVns6l4 +pPZ+UE7kFtD5/J7NKo6KDcry0kZ+bIHHwxuJZV50vd3ue502twC72XvVJjcq +fvhNeWqKgwustqkytTtT8YpyqdqyFBcIGZ7KLLCj4ie5VXVbrbkgS3lF+J0h +FfM/7Bg1rOYCvWWi7bwQFdfX3AmktnABQ68Rs44AFXsOm0tb9nHBuBNjoy83 +Fbdu7zvjOMcFXP+OZb9loOKrsSNrfqLcUIZmrvyd6cSfwuZ2lARxQ50kmVW1 +qhM/9ea22nmAB9rWkrYYm9H/ZymCV4ttecCqVm97vGEnnmoRTt/rwgOlT45t +G9DrxMK7lL563eABtRRuLU3VThzaaBzS+IwHYso1F924O7GtwI0KD+mtIMda +UpJH7cC/KxYEX25she1rY5UsuANn+nvOEY7ygd/o21VJrnZMaOBcizjOB5Tl +BuEcxnbcwJLPOn6KD/42LyVIrrXhj9ETktHefJDd0tPCOtmGxTOOH529zQcH +1IlpwfVtOKXFoiWzjg8eCFTdOeLdhuN4dqcJSPMDZ/ro9uKeVhycvmm5PM8P +9hG2j8yCWjDD249Qd00QCuqmXk93NWL5S6f9rJW3Q+L1s9XOlS/xxEqiLdfL +HSAV9nZd+GI1Np30uB7nsxOsn5s2+BlX4EMTsSri4sJwjHnCwPp5MX6tMtHv +ICsMcnHFDkJJxdjsonbgQ2Vh+HT4Vdn3q8V4P9OH3p3awnC36C7XKKUY75VU +uSJ4WBii3n9/lt1WhDUdWhs4goVhfKJ/mHmsEIv2r9ssTQqDZcgd1t/bC/Bc +s3NQR7EIdPpIloe15WGJe8MeMZUioEEKury7MA9bOx6ysX4hAuKpIY9/383D +9Wt7lD92iIAbNjXsOpaH49T4+399EYHEep72O99zsV7iKwUFYVHwPrq5w1k0 +F0d5iPaEhYvCto68Ipvb2bhRO67GLFoUjvVefjrlnY1XWThy+BNEgUgdtYmx +y8ZO6Ut+qZmiUKL98riUYjbe3U+VflYnCuJNExE2HVn4PeXqlYlFUQh5I7D6 +nTsLq/MPihmeEIMtipfXHudl4KnoqeD7rmJQzbBd8WxcBk7d8mt62lMMHG3S +BYwDMzA3y87yKD8xWE9I+6Vqm4HnVo+ZDN4Tg7/tLLvG2DJw7tj7c2daxEBM +c+yx01AaFs2ffHVXSRx+yekPToU9wv2yq7KfNcShtetY4t+Tj3BkJtud3Vri +sPOxRcoe9Aj/TlGwHtkrDuo2McK7fj3Ew9FnZqQdxEEoL3DR3+Mhjr/4je95 +jDiEyLZCw9EUvAWvnBxbEodxY+a4WrMk7GegyPH8tzjsp16/4aOUhKcM/yu5 +yygBBaHXfxxiT8JN+xt/7+WVAL1e6x8BzYn42pHo+CfKEvB1e/T9LEoi/uoq +13rlpATY1QrF/NF5gF9H2Sjy90hA2GjJIx2zBKx791b33IAEpM2mU6PUEnD+ +vReXWsYkIKnkqBILXwIOfSDV6DsnAcnSA9wOA/FYvHdV9QeTJLRksFwuPhmP +B0eaWm3EJYH7OS/Lq6A4vO+b/S9pG0l4vpxx+MNQLE7bFvL2hp0kyHCp2I/W +x+JlvcLSsf8kodLuNPtKbizOuLPh9sBZEvRl70+GXYrFvxUeDXN6S0LeQOZ7 +AcFYXOT8vubnHUkwVws4El4Yg/mGTwTUN0iCwYtB+7hPkfj0vwg7kRZJYGgN +vd/zPBLXyZft9muXBJbyl0WGUZH4zGWGb8RuSYj/2Znbox2JmwQyj+e+k4TX +vX3aPvfu4EsHP6OoVbrehdnykkO38XCTC6O9qhTcdjVsrPwRjn8ajApf15AC +Y//anyNd4Zi90WJ3BkkKrMQaLykVhWOtV7puUzpS4BixdczkTDhOeMHXdcFY +Cs56fx64MhmGLSrrkiIdpWAPxsK3J0NxW+42wstYKchRmTrkxhyCP8jeOfAx +XgqMQlKvRU4F45Xsf87MiVIwo/RDbqAzGMtmzd0/kCoFE0P7XIdjg3FwWsPG +wBMpuDmn6p0iGYxRolf79yYpUIipxvMmN/GzWy2OkitSoGl6dHvMfzdwvilt +Z8SaFPjIaKZFyd/AKdxv3nzbkIJIlbdJwwuBOCh23OQFkzTkvVQIPHo7kN5v +/Fa35ZOGw9tnLKdfXMefHxP+RapIw+SskxyTRgDe2v4o/ddJaVDTruPpNL2K +GW9nH3N0lYZEwcuaXeJX8bJpgWCruzQIK0ns3Lbkh0e6qyLizkuDEuV2u/sj +P5wz+Oa82nVpqB8z/Sa76It1pzjgVJI0FGQ825n15Ao+zXr5Y3e3NDTMGElG +mlzCwhKdQxt90rDtV2hLuewl3K0j1qM4IA2mg30i3MyXsJZX68vgd9LA/i16 +6UjDRcz2dvtDrRlpkDXWaFKmXMS5Gc9t0hhlIGyccKQHX8ATemvUs7tl4JGP +6b9jbt44yca8KUVbBkp4vZz3mXlj8/MZNe26MsC5i9n2hIY3rszany9lIAM0 +Z1F10Z/ncShnctjAQRk40WdxsGnHeSw7tAcobjKQeSU00fHiWXzqgv8z7hQZ +sHtEU+Jw88BapA/PlFJlQKLM3id3jwfesgjPTTJkQLiCw+wWtwcu82GrCsqT +gdCvQ2ZiFWfwpve96uVyGWC8OFt1jfkMfnD+8YsxmgzYzx7deFbmhju93jYW +/ZGBS9eSBgd0XfEjVa2mTgZZeNqT/S1guyv2nk9qmmKWBbVw1SXHny54h5dj +s+QWWThlaRf5Js8FO3vOtiTskIVXAikHz+9wwZtn/rUHaMhCgpKYoB7DKazh +ptJtflIWpiP/cHFvOuEPZyTOF7vIQjVtr870qBOO8hLk2+ouC15pFjWbNU54 +1mfDsuecLEjuzLEd8HPC2QG0AcsA+n7D8a9OL57AQnGe720TZUFHRV2hhMMR +/6srnHfqkoWLbDaSX0Psccmr9OjGXll4lvtJ4vshe+zQFK8u3S8Lts2DMpbC +9rim3d/7y6gsvB2XHdldfgxffGO27DojCz69zGHOU3Z4evrrhgezHJBv8lYN +nDiKewRUuS7vkYP5+IxxnXhrjM6enX2oLwe0f+EmC57WuKS9pL2J3lUxReYz +fjeyxjEBxFA+EzlIuF/SV/7LCptPaf0pPCIHpnq6Nx2drDC1xuDHZ085sMzt +5p2kHMGtTkffHk6jz08JaGZQOIx3v0h66pspB/v2j9oEsx/GOdtH76blyIFQ +vCXZr9cCh1IdzOcL5GDBQD272NoC793t3BpRJQeFhdsbkfMh3MB+tqq+Vw6a +dy72Ot8zxy9Kgh+qMstDaCv1o4LeAcxmbiOcyCYPuyzaFOpZDmDLWYVkxi3y +UNDGCg3d+/G0TNeDQT55mNEpmmFx2Y8Fk4XigsTlod522dc/fh/2DCm61b9H +HrJuDAkHsJrg55I32DFFHvalHjT2GzDGjPWW4U9AHg6PXnnTn2uME9dWQwL3 +ycNE8oJj0T5j3HzW4IaijTyk2rjcbLprhEXsBi8HeMuDnPfqkTWCIT69kr88 +dVEe3L0drxayGeKncf4XLX3l4f7jx5mVY3vxvi5JH/lAeYi/lR/cdnsvvrjX +06s3Uh5OPJW8NTRtgGmqDKdkH8tDdDKpR6kCsD+j8uHX7+WheK/YPRIrBU8Z +cQ3Lf5IHga1PTnK16uPDt+ZP3JyQhwMVgjfdwvSxLG/pea2v8vDjdd14Lrs+ +fi26+27Gmjw8u1cyLCmgh8V1UPclQQXAJ2jRe9EefMtfwrZnhwIw2/ef+8S6 +By/WM3xQElYANjyza6VLB7cbN3/7IKkA1StyTr4ndLC31X6eA+oKUMVQsN4T +oY2bzh0xFzugAFPPnax2ftPEquXkfl9zBdDSm+5Lf6GJH6xsc3hjoQDJXAVM +d+9oYs+AIc8IWwX4c3XtVKaSJt52xyFy4ZQCnD3W2RXktRufzj1NbQ1UABvR +d4UhLGS8Zeza/nOVCvCPYpqY60fAWr5PeO5WKcDPZ/mHTWwI+KTA8JvSWrqe +ZM9+NRIBV+/XPL7QoADBqdIeaSMa+PSzHz6XuhSg1Ol7XQpVHTfGuDy8NqUA +/VYVigmtqnheKd7p4awCmKhQh3QiVPHO1ka5unkFSNw/nPvfAVV8bkO87M+i +AmwL27Um1KOCRd1HWoL+KYAeUVf3yEdlej9y6Hv4TkVYGV7T5tilhHPGAioe +iyhCVoXdCdnPirjHt9CvQ1wRvDyePSsrVMTyJRzMW+QU4bTbzdwdoIjfCjcL +RRMV4d1xixGGcwpYfVnbIN5UEfymPxmkvpfDk3lSCekBihArtUEuY5PB86Gf +1pmDFOHRr/n65mFpvOicecI9RBHEXCTkcaE0ZpCQUiHeUYTZmXAFD0tpLJwo +2dSUqAh3jwxmXc2SwocjJH5OliuCoWDmaoetJD7qOm5j+lwRLi684FpTl8SO +hukvSmoUoXjjjFIwuyT2/Cce4dugCIK1VRv7L0rgcF9xcc5uRWB1wcW7jMRx +nZuYueqsInxQ7rzygFUUNxu/fxo7T9fL/OHE4wYRTJVJFVr5oQjnLx5LOhog +gofGRb+8XFWE8a4DubErwnjxqOg1CxYloBgF34Afu7DifpH8CxJKcN+TZfPq +XyGcoLiLpcZGCVZiuWRnQ7ZhB0f5x1/slMBkUPvslNU2LJtANt3qoATcVtSw +g7LbcOW/g7GnnJUgyZ/UbNMmiPsHg0W3nleCPHLeLm1eQSwYNr/71C0lKAnq +S4qo4MejtetD0ZFKcON9WPyr2/w46yebf3WMEnw6zXLL2okfkxykGnnuK8Fx +3s8OcVv58RGy7cHqTCUI/yq4sf88H4779MqV54UShJ3XCWQM3orthbo4dOqV +4F16uLDznq1Y+uBooXOjEuREGY+7LvDg8urlhap2JVh6XhNleYoHv7mrFOjc +rwSP/ntVlnCIG/Oj+AdV35SglbtAqMhgC45NOd1+UlIZcg57fSm6x4Z9rwRf +DJBRBgGRjAQxBzbseCRNIlFeGVLsXl1jU2DDqlsGfV+rKsPHoqUV/XpW3HnV +WFF7jzLEueSHSC2yYKZjsre5jyjDdkHv+ZVzzHh2N2gq2ChDsGNFsS8w414+ +h08GdsqwIdNY6yzAjNM74vf4OiqDfM8efZ8qJqyvwzz3yUMZPOYTh46yMeHL +Qp9Nq0KUIfuscm3scwbssPRntS9cGfj07GT3xjBgo55d2fO3lUEYOAosTjNg +gQjLDalYZXg3+GjJX4gBl6w2FEY9UobhnzVRHJt/0cxAOrfzM2VwY8r4e/z5 +JrJPON7NPa0MLh6/uSWz1pBoxRYRzzll4B3YCMt3WkPjfVVund+UYbzNUmlQ +Yg258Aowhi8rQ/Kz/DfCGb/QuTtt5H+MKsDwTCBXIn8VBQdpJC+IqsDfzqTc +vv5lZJQ+NmkhqQL5z7som4+WEXv9bVKJjAq8CS9lf+a6jKI2vtA8lFUg9ZLh +OG1tCT24kvT3i7YK/f7U3+Iht4SeeDG6DB5RActvF6UOJi4gr8iSst229Pn3 +3M0b3RaQesF/f+KOqUDRyYnSUp0FVD797IGFkwoIbHAFr777ieqcPTo7zqqA +a67vXW7Fn6jX7q36i1sqUGdrv9pR8A2tGeWup9ergNx9IMpvzKCAF+khLY0q +0P3qbIfgixnEQErhmW1RAX1Pz++p/jOIXeKuFImmArrleYbBf6fRjnW/Ay1D +KnDxnJyJC9c0IhebJ8/8VAGDUq5FJ5hEz2X2yfAsq0B0Y6f/Jc5JpJtiUEz8 +pQInhLED79sJtDdCq/HaHxXY7vlRc9BtAh0+KTnLvUUVyjNO+YQnfkHnti/r +EGVUYaQgpN5j62e0GPm9yUZeFWR5T91yHf+ELjPNml9TUoW7K0UKA2WfUMCP +907NGqrA9logdavNJxTZ2X7LRl8Vziu2T7zO+ojyrz8cvmqjCqHwY1E29wP6 +MrnXrylCFZIVLW9LrY+gvendWcqRqqCPByzqSkZQhp19V1yMKiDOf9XSriPI +keYjfeo+fZzJfbdp/zAaLct4zZytCnLfUjRoL4bQG/+/ksb1qsApfEjlY/EA +ImreMStuVIW4bYMf950fQLHft1/Z3qoKVQk3zzkQB9Chk2q0SZoqPDzAxBhW +1Y+oJg6Xw0dUYUrqUUA27S1q4q/tbF9WBSmuK+fT+d8gKZrxssaaKuRIhpzh +fN+HgkL7xJM2VGHRMW2M9UkfQr9mLrozqUFG6w+psr19qHZMSJyTTw2CeCPy +MgJ6UfnjyxdMVdRAzmzkm7NgN+I/yZharq4GJe7sTsovupC3cHS7MEkNsIZS +0eypLqQenSP6VUcNfKWfXjeufo0KLrxtizRRA9ZrRpIqXjSURSGKdJ1Ug8Ts +pKHIvx2o6dCWkA0XNTh1nccmvKYDfT7xZU7JXQ1knISDtC93IJng+7Xh59Sg +dG6w7Pn3dpTTtn4M/OnrBb5R+DXbhnItmpIqEtRgWuCQFTNDK2pzesjwOVEN +3m89PZ7c2oKmfC658z1Ug+K/PpTXkS1IPkFe52ymGkQ49Br83dWC8obvDMmX +qEHurWMbXpRmlH/SakdKuxpsS3x5RS29EXVcUA3soKpBo8M5k56zjWgmhHVq +tUsNllY2e1b0G5FiXtUzq341sBKcaKSNNaAncyI2PJ/UwDU+uuiKdAMquDgR +H/RbDb6nrp1yvP0SFYdd5ndTUweHE8OZy9XVaF7/eHAYQZ3en/n7CF6qRqrL +RkvZZHW4fjMxZ06jGhU4bxv4uEcdfv4tHq19UoXycUWSvYk6nM/qZynLfY5y +1n9KHDqhDo5ExzNuLyvRRNlwrJezOnRZuvTqhFQiGfcGxkhXdfDZsSn1+EAl +yhq8+6XdUx3e5RZqWg9XoPQK9ccGfur0/iKd1rJZjlLOeqlr3lOHHAUp66dO +T9GorHW6VYI6VMbu//JQ4ynaNabHdyFRHYYDk7u5/pWhJFOuxZJUdfp9OmR5 +Jb0M3VcoeKZYoA7d7SzvMl+XothP0/qizeqgGVOzb3N7MepN6inWbaPHL1fK +YtJchHgPV4kf61SHkdYJ6Qs+RSimPpzhQY86eNdzGLr3FqKoh3ItvGPqcO7p +t7iopAIUYXPKjHlFHb6bE2poFvkoy2LMwXVNHQI7aw7ZsOSjugM259o31KH9 +0YUrDTWP0SJl371IJg1IW1L0ICo8Rg7yKkOCfBpwW6jwow53HiL9WnSWVdGA +MhHnPNpmNjq44HkpXF0D4ji+MB2qz0buXyfCZogacNNya1ZUUDZKHR/ML9LR +ALdDGupa7NmIo6P2+24TDdjgaPBgEMtCH5KCrxmf1ACT410mFe4ZaD1uI/Kx +iwYktkkS2TUz0LboS6mc7hqQXa+4+YsxAx24ebqh65wGnHTQVTqil44qz5iy +2QZoQJJlIQexOhXd0RWIO52oAfyDmgc8p1NQ7u7I7I4UDZjbYpAhFJeCGtRZ +nimnaUBRSTtzJyUFrUivDn3P0QCVM8qb6knJyIlrVMy3XANS6ouHntklIc2x +zCcRXRrw/lZ7ry7bA8Sn7r5W2qsBJ3bUuUe13EfzN9T3Db/VgAGhk9wPQ+6j +HJkXE4qjGnCU1+DwNPN9tM2zX4I6pQH7BRNmmHkS0O8AZjM2BgJkMgYeTsdx +aCb39IUURgIYmBMWhzji0GB3Z7I6MwE+6sf/V/rmHiqXjJ2xZSNAVE9MOtn9 +HvJoEQ1/zE0A8xSObOeUWDTCpdW4fxcBfu4gZr0nx6C23ckzY8IEeCvyyOfR +cDSqPL7J6yNKACfzxlTXwGgUW9rkmCxBAP2es6e4uqLQfiuLzVk5Aqy4BNVa +X4lE1Snu2pEkArRs/czst3oL5TXTHCV2E+Dly7+xMQW3UMK8eniFJgG2Ttfq +h564hbzRSv87HQJYdnHtYn4dgRQ/37ygigkQFlV+has0HCUpPSzuMiNA4eFD +DvAwFC0vmeSGHCSAKrPm05+2ociifvHRHgsCHH+nxxggGIrYrEyjco8QYFXf +hHPX3RB0OWDd4/oxAjiozObLxgajIz1HFdXcCCB+qF7OvioIlSQzS35xJ8D+ +4aCi6BtBiNOlVCjZgwDvodz18v4g1LDGxs56jgBVghunnlbfQBrSzyfHLhHA +dyv/B9edgYj78rbsqGACpNYONQ1v80fuuCFlbyiB3l9mvX1bcw01c3rFrYUR +YOCN2N/VE9fQtbTmmy63CdDqfFf+celVNNt+wUk/lgCLNp97zBz8UJtwn9h8 +KgF4f9UJPp2+jKQnA7ZnpRNAUCLI9F7qZXS9VJHHLpMAzLO00y7Wl9Fuo6DN +5hwCXBJztRtquYSyzmq8e1hIAJ9rnlZpZRfRjYboJLMaApwoPd6DnvqgufcN +Ceu1BJA7I7zKe8UH2W4sxT6uIwDBLnU2Q88HqWrZ32ZuIEDeX5H3ax3eaLhQ +/tqLNgIEPQ3nDR4+j0iJr/5T6SeABzNFIi7PC6VWLh4dGSBAlnbktl0mXojj +jZx1xBABUgSoX0anPNE4d5T5l1F6Pu43Jv1T8URRwXaUh58I0K1XnXOq5Qya +OrsgzvWDAGdGOWzPKrshy0hZkZqfBJjrmzk+++40qss/KuS2SIDXgbLn3WJO +o/gvL3mbVwjQYHhzxmHVFcGxOwz+m3T/rn38OdDnglKMZD7PcRLhGDWE6lLp +jFidbT8kcRGByeJB1/1Lzsj7xu1REx4iMOSsriVrOqN9tT/eZPERYTIgwoC/ +9iRa1qhrthciQubQx4KLr53QQRGbXKosERjv/S1rVnJESRPqDf/JE8GeynNM +rPM4mijmeDevQAT9XxK3s88cRwFQx8erQgQ53woPhRIHVOQqE2BFJELE3Pzr +IqP/0JayhSNjFCKU/RNZpebYIdurtLNnMRHWa9Jm7G3sUNbe3Ft/gQgncz56 +f2GzQ3sG7OoljYggZi0R8cbrKHL//UrJ1ZQIqkSe8GFDW9RuFMPw3ZYI1jfm +k0RFrZHAVneRG3ZEEL/tJDA9aoUchwy0+OyJoLgzcTIwxQqtnlnxJB0nQmmv ++xC3qBWSv+swdOUUEWRXdZVPKB5BoSPKJf/OEwG961D4cOow6s1i6Yz1IcI7 +Jp6PbuqHkajXhy9SF4lQUnCLVWvJAlX8vbfL6AoRKrctjMzJWKDPMuuhtwKI +kHuAtzc84SAyONf+H/9tIlxm1ZnQKjVFv4dnTVru0P14KfHK+rApqjTkJvlG +ESEmzOhG7eIBJL/LkuP9XSJwMVfEm+sdQNwto5X5D+gs52C+490+NLzrOw/k +EGGTv9Sg1dIYxYXyrS/mEsFZ6UunP6sxMvtBmsh9TAThhOpqvVojVN/iW8tV +SAS/78LDnfJGKOc8o9vQUyK0SkavvOIyRN6t2xrOvSKCtPfZVQqTAVImaBdK +NRJhpLJD7V8LoC8pxx70NxGBQPr8+cEtQLbeaV66bUS4XnHHCwkA0hdR3MXW +RYT7zLFiBo4IcfjoXUgdJcJ0dqtf6y491PTu+PHDY0TwVU6ujq/SRf4mQfuZ +PxDBUi1Mps5WF30XaRU/84kIP823cXAm70H9bYdou2eIcPPsyT3b1XRQuqiz +7OsVIig9y/1P564m0iWrqDv/IoKHtUBrl7Em6j+wrL22RoR5Ca+btn92Iw7f +cDPZTSJcpO5r0Dy/G3n3FVwIYCKBL08N8/BxMoLwpQZVXhJU7LPoVnchotFH +ddQmPhLwhqd5pSkS0aWKsH47ARJciPbO7/9GQPkfhWZCt5NAZpvZ0p1rBMSv +p8/7XoQESkffdlbu0UCff4Qej1YkwY1Y6YdLrKoogO2Qm4wyCSQP2GV75aqg +HWJCPjUqJNA7fzxAyUQFmZo+CZ1UJ8HVrVkajpHKqDynq5CiSYINHS8rQ1kl +FHJsx+9vBiRIaPRdz4qSR+Le48yhhiSA7OWSMCSPqsPzeYSNSaAsl8DsvSCH +5it0pUz2k8Daroz/kL0cst56Yn/aIRIcyxHoeKsti2SbHz849B8JMrk87fZJ +SKNu1bWcMQcSVMps/ez0SQr5Pdhf4eFIgpj6wiv7c6QQ7cxsT/hJElTrHTvu +qyqFLvCpcL5yI0HO6BNVHhNJ9Op4ib/GJbpf6eZXV7TFkHv739svL5NALcVU +8uFbUSRAtEgy86WPi/I3xXqLotMsPyvdrpGgV6xszr5EBHEXEr+nB5FARzLX +a1VHGNmvVTrxRZMgYNiC0hcuhFicWc+nxZCAxOAkFKcphEpoNtdVY0kwoTsc +7jK5AzGmrybvj6f7e9JJg7B/B8o31nkblEwCgd7iw8zC29FK3AvjhVwSDKsz +fm74KoDSNrmsbzwmwcqtooNbCwTQ/tMOzjxPSMCYsa6te0YAPdrzJ1CpiAQq +V1pEpOf40d6PqPpkOQkan6ZJT6zwoVi1JuU39SRIvHKj6oXrVpSv8x9ncAMJ +ZtMmTxQs8qBXhsvTxCYSdPCbMu+9yYO+H5PPvddK1/fixDnrbG5kFn5HwvI1 +Cc6rv3p56vcWxDZ+ZFvvCD3+KQo4/GBHYnNfF2+8I8GaeOzEngR2tHsltE/j +PQle6iQRPHTZ0Smuqpi7H0mQdW/fk9I7bKhBW4TTYpoE/+3yljbXZUX+sV/+ +dC2T4MjdqKwffUwo7mHA2PVVElzT23Fx7DYTKsjb/kJtjQScVYO1g3uZ0HDd +Pr/oDRLIug2fnqhiRFqzhYvmTGSAplMSm8UM6KfBpWkaLxn6ZGcO8sT8oXAc +5Gnz5yfDMwZOLy3RPxQJu7wcFUEy3Kz8WstVtEk5dG74ZOQOMkg3kK9m9W5Q +ClP0x0zFyGC++UxwVPU35fQSS1+nMhl4fi56Bqv+ojgWGHU7qJJhu6FWZfnw +KsX2ZCjthxoZuMj3ebnCVykmPcxt24lk+JxYKyY7sUKRL2R6cVKbDJTHZ80j +i5cpk84MueuGZFjU7pZa8VmkjO2CrChjMrxaC0qZUF+k9PfeSJfYRwblxa2H +m+YXKC3oX7KxKRkmez490PNcoOQI/425d5gMLT1JP7su/KS4vNnwUzpOhgsi +SqLFVt8oDrf1rtQ5koFTxtbPf2aeYg3+Fy2cyLDtjmddR+A8xajk99nLp8jg +ynRgN630K0X2zrpz4xl6/HbX9D9Lz1G+GPwyP3aFDKTFJF/pA9OU0TUt03lf +Mrx+0/wtbmmK8qb0yr4bV8lw3IX1mVb6FKVJbNUgN4AM+QP7vNl/T1Ky1pe1 +FoLJYHjjsMl/Lycozk8XJW/fJYP/5orfad/PFK9gq03Te2RgEV8JOqLymXLZ +qnKIO54MXc/5GX0+fqLcWrkcE/uADJfvDeSRDn2ilOxZ30hMJcOyafjOA9of +KdVb7IeOpZOhWVR1/N7MOKXxXW25SCYZKhT9/5W4jFP6rwecSc8hA0fMGVvJ +Ux8o643/BvMKyfBn+mD4H98xClO8U7l7MRmY1+rZ2ZjGKNwujdHKpWT4Ya2V +PR/9jiLOFmJUUk7XM7JRoVU4SjEyZSt/VkOvF8nm3au/hymxb7ijW9rJ0JFx +w1N3doCSkn3WPbyTXl/lu4Vmowco2Ze6DffTyCD5jWkn9+4ByvMdsb9p3WSo +VC1iTgrtp4zZC7q/HSDDkb/d7cpabylTKpcM7w+RIWRovv7D5BvKj81+8aMj +ZLjmf0Do3YM3FKb0BwOjY2S4r/X8RtJmH0Xhyy7Dz1/IkHJ05dbDwV4KofKa +eM4kGZbs31ixx/ZSdMPerbtOk8GOn5aWYNpLMVdILZudo/v9kWzGHN5DueAp +Kb6wQAYBQZlqm5tdlAD9m+vlS2S4c0JexIK1ixLG87n/0goZPtIW6kwiX1OS +SrMj19bIMIwzu/lSaZSsIBa32t9kEBoNuv9WkUYptHTdG7BJBjkP4v7Lz6mU +Suk2MfSXDHkM2o7fjamU+iX59X//yFArWuKlPdRJ+R9VvE0v + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8lt8bx+0Rsipl7z2ekRGecy4ZFUoykq8kEaGiRZFkVkZCGWWPZIcy +kuzxPFllpzTsNMyI6vf8/rnv1/t17nPO5/pc1zn3JeV8/ogrEwMDQy/98f93 +aqAzG9HlIZL1mS9/wuWJWt5Kmh+VvIq/SsgYiffsx//a6kMkJW9jj78hI2Pd +dji1IVqCVTIZmw8Y3EzodsdelMtnf0k8wa+6ubr6uvzw2w33hJ8SNfg//qGw +VeotzP7us8I3iU68Rk49nPMqCWdS032+Sozg7W+K3qTE5eOS0tvvvNTncNij +UH2G7mo8JzAXZXpyDsum38tX/l2NFa6YIsWEOfxvX9dxJF+DM/S5Mr+sz2Hx +/7p4pAJrcFxn1Gn71q94Z5CfT49qLb7y5e7CPodvmGVVSrEs7AVO56KF8Bv/ +xPOkEx8iZOuxG+5Lnr+whEU0LtpkRTRihqzV2neRS9j+00OGjeRGnMQiOkbN +WcJbrr7oNSpqxB2dp8WfDC7hm7+IRYW9jVjRejPLVXcZ72AfmGvZ2YRn3BWK +PjCuYHc7sWzhvCbsEXe9vjd2FVt7t+1jeNaMmVayxl89WcX22y1FT7c245Sj +HQylTat4Ydw488VAM6aKChpGL6/imabkeM3VZqzyOL/9gN0vfDadldFFqwXP +v3jb2ySxhj/crLyZVdGCz00qfaksWccsaT4jpzNb8UfHEY7GznWcShQdmSxr +xVbDt9S7JtYxb6fmscMNrViHNn11Uvg3dj6Jnk1/aMXMT3P5dkT8xq/73d6L +i7ThpAAp5HtiAxeYvTv++G4bbhTclbyH7w9eNhLX/+rejndHd9Qbq/zBZSWV +odTL7TiPzW/C0uQP3st0/URCcDuOWh/U8Aj4g/+IWD6fftiObccT2lJm/uBF +GLSP6mrHcwV8yxsNf3FSwm3fTtUOvEUqVGFchwEmuN1s10c7cIf+PY1AYwZw +98xguDLRgcPt0rTFjjCAfk9S5vi3DswUW73vP08G8Hd2ar7K0Il//513G0pl +gBt7K7w6ZTvx1zGb/B4mRjDWdBsaONOJC9acy87xMsLyclGK1IVO7L7Nu5pH +lBHefek7aH+tE0+Y3ekw02QEIV7tsLg7nXistn6m3Y0RbBmW9okXdOLXSQpK +Da8ZIbqcfzJ7shPfqdxNPDHCCGT0ienVfCfe32uw5+8kIzySXpdsX+rELewO +B/T/McKPBl3XNEYqrrsSe6aayASfHAONz4hScbH1+pOyB0xg9UDA48IhKvby +Ziu3yGYCAZ/j8Y7WVKwcJVj7vZQJfDq+fdG2p+K8ZjWqaicT+F3KYC93peI0 +kvNc/gYTaHhbVbX4U3EMH00504kZ7kde+H46h4prtMWeHTrHDLUfb5KjnlDx +hON5vOnPDNfeTqY+LKFivWJB66OJzHDyXNW6XzUVzxxwuM7TzQx1FdyX1WlU +vM2nhP3FO2awFQiJzO2hYpzEEOc+ywyVLCZrbP1U/GAqJ6+ZhQVaA/f+uDVG +xYYh33qu6rGAn+MOwTvzVHyuANsrHGCBVDf1h9Y/qTil795Evy0LPMq88ZRz +mYp/Smita1xggfcrHXnkDXo8dYHSU/kssNpdFhnBQcOdX3qL4p+zQP6ZGIfH +XDS8vEVG26CFBZLx4d9Pt9Kw2bF2s0fjLFBwnvoyYhsNr63wXj6ygxWYOoyt +tCRoWEbM+d8/GVb48FT3arEUDR8yqrxdTGQFieNGT3llaTg3zi6N4yArZPDz +B9xXpOHemgLF5/asICdzWKpGmYY3P26Wn3JnBbPOh3/aVWn4iEZme30IK6jp +nLz5mEDDgbZLll73WEH7mqi+H4mGn1w3HtuVzgqirG7Wu3fTMMPr2Z+XalkB +vmi3ntOmYZUlPX/pDla4pNtI/KZDw7bCMay9A6zwLWtc5qguDRe7k4RVFljh +z57pxm/6NDx8NzRn+C8r3P4XGyyMaJilalA9nJsNOpoPL5IwDWt8UKwhC7NB +8dZGEW2gYXtWf8NPCmzAdzWeU8GAhsNVu7piNNngT2RsG9NeGn5qJWGnb8gG +X9MTj1PpPHbN5/PsYTagvUgbuW5IwxxZzV6JjvTvL5YbixnRMLlz+y8jLzZQ +71wpyqez40+3m4tX6euzZwlLGtPwHaFarowINmDKZksJofMzxP3g4H02CBS+ +rfWWzh9dHSU3stggtS9nY6sJDXNHlxXkl7HBgYW5ZS06a1cyadrWs0GAMZO6 +GZ2d31m/Yn7NBpYij8v/z1sefjrrM8IGtpnM2/fQudz+nOj4FBucGJ28K0hn +e+ENqvkyG3Sdy1F/R9+PeTTiai0jOySHPNm8S+ei5G2KirzssJRygZVEZ+tj +mYP3Rdmh61KsdSM9ns2d6mHMyuxg+iNvhULnnOFaso82O0hOey0/pvthnrTv +8wcjdvgsVOTwj+7X8tH+WPMj7KCxCbpGdH4kdBLXnmCH98XCyVfofhsPffum +cJYdGNp0wx7Q8/H9wbVH96+xw6z+sy059Hw9sGU3Y77FDpymZZrp9HxODUjm +f8ii739DpNiRnu+Y+8W25mXssJNAEpDRo2EtG13W2pfs0Ldvx6GBPTQc0W/l +fH+Yrt/VNoCZXk+EhI98zFPsIPdpMuKGJr1erM6+8l5iB3OvJ49myTSs+DZc +1HwrBzQV/tx2i16vvXGCtBoRDlAqIcTVqdOw35GMqwpKHDAsLGY+Tq/vzr6a +QSYjDtinp1Lwg34ePHrnY2uuckB83L8bFEkaFoi9ihUiOGC9j89qUoyGay3Y +vickcMCC49vX/iI0zNUjYeZdygEdNQ/nLu2g+991hFVhkgOK3d8fTKafX+vo +8YqERQ5I31PaX0U/35vmXs5MDJzgTxX2bmWl4YOvw169F+aElAuvRUv+UfF3 +avXVhMOcEB6zbeT5Iv2+uWOsyOTICTfjO+5a/KBiZPpm8Lwnfdw6/fXQVyq+ +2/mVbBbOCYR7gQJVE1RM6BD/zljHCXs1zpwuH6Bin9ZQ5/MKWyDw5G/BJ5VU +LD5hwrZK3gKrm8g+uoyKaUycBQGwBd7Idgq5FFGxHEQv3D62BcS4eJVns6l4 +pPZ+UE7kFtD5/J7NKo6KDcry0kZ+bIHHwxuJZV50vd3ue502twC72XvVJjcq +fvhNeWqKgwustqkytTtT8YpyqdqyFBcIGZ7KLLCj4ie5VXVbrbkgS3lF+J0h +FfM/7Bg1rOYCvWWi7bwQFdfX3AmktnABQ68Rs44AFXsOm0tb9nHBuBNjoy83 +Fbdu7zvjOMcFXP+OZb9loOKrsSNrfqLcUIZmrvyd6cSfwuZ2lARxQ50kmVW1 +qhM/9ea22nmAB9rWkrYYm9H/ZymCV4ttecCqVm97vGEnnmoRTt/rwgOlT45t +G9DrxMK7lL563eABtRRuLU3VThzaaBzS+IwHYso1F924O7GtwI0KD+mtIMda +UpJH7cC/KxYEX25she1rY5UsuANn+nvOEY7ygd/o21VJrnZMaOBcizjOB5Tl +BuEcxnbcwJLPOn6KD/42LyVIrrXhj9ETktHefJDd0tPCOtmGxTOOH529zQcH +1IlpwfVtOKXFoiWzjg8eCFTdOeLdhuN4dqcJSPMDZ/ro9uKeVhycvmm5PM8P +9hG2j8yCWjDD249Qd00QCuqmXk93NWL5S6f9rJW3Q+L1s9XOlS/xxEqiLdfL +HSAV9nZd+GI1Np30uB7nsxOsn5s2+BlX4EMTsSri4sJwjHnCwPp5MX6tMtHv +ICsMcnHFDkJJxdjsonbgQ2Vh+HT4Vdn3q8V4P9OH3p3awnC36C7XKKUY75VU +uSJ4WBii3n9/lt1WhDUdWhs4goVhfKJ/mHmsEIv2r9ssTQqDZcgd1t/bC/Bc +s3NQR7EIdPpIloe15WGJe8MeMZUioEEKury7MA9bOx6ysX4hAuKpIY9/383D +9Wt7lD92iIAbNjXsOpaH49T4+399EYHEep72O99zsV7iKwUFYVHwPrq5w1k0 +F0d5iPaEhYvCto68Ipvb2bhRO67GLFoUjvVefjrlnY1XWThy+BNEgUgdtYmx +y8ZO6Ut+qZmiUKL98riUYjbe3U+VflYnCuJNExE2HVn4PeXqlYlFUQh5I7D6 +nTsLq/MPihmeEIMtipfXHudl4KnoqeD7rmJQzbBd8WxcBk7d8mt62lMMHG3S +BYwDMzA3y87yKD8xWE9I+6Vqm4HnVo+ZDN4Tg7/tLLvG2DJw7tj7c2daxEBM +c+yx01AaFs2ffHVXSRx+yekPToU9wv2yq7KfNcShtetY4t+Tj3BkJtud3Vri +sPOxRcoe9Aj/TlGwHtkrDuo2McK7fj3Ew9FnZqQdxEEoL3DR3+Mhjr/4je95 +jDiEyLZCw9EUvAWvnBxbEodxY+a4WrMk7GegyPH8tzjsp16/4aOUhKcM/yu5 +yygBBaHXfxxiT8JN+xt/7+WVAL1e6x8BzYn42pHo+CfKEvB1e/T9LEoi/uoq +13rlpATY1QrF/NF5gF9H2Sjy90hA2GjJIx2zBKx791b33IAEpM2mU6PUEnD+ +vReXWsYkIKnkqBILXwIOfSDV6DsnAcnSA9wOA/FYvHdV9QeTJLRksFwuPhmP +B0eaWm3EJYH7OS/Lq6A4vO+b/S9pG0l4vpxx+MNQLE7bFvL2hp0kyHCp2I/W +x+JlvcLSsf8kodLuNPtKbizOuLPh9sBZEvRl70+GXYrFvxUeDXN6S0LeQOZ7 +AcFYXOT8vubnHUkwVws4El4Yg/mGTwTUN0iCwYtB+7hPkfj0vwg7kRZJYGgN +vd/zPBLXyZft9muXBJbyl0WGUZH4zGWGb8RuSYj/2Znbox2JmwQyj+e+k4TX +vX3aPvfu4EsHP6OoVbrehdnykkO38XCTC6O9qhTcdjVsrPwRjn8ajApf15AC +Y//anyNd4Zi90WJ3BkkKrMQaLykVhWOtV7puUzpS4BixdczkTDhOeMHXdcFY +Cs56fx64MhmGLSrrkiIdpWAPxsK3J0NxW+42wstYKchRmTrkxhyCP8jeOfAx +XgqMQlKvRU4F45Xsf87MiVIwo/RDbqAzGMtmzd0/kCoFE0P7XIdjg3FwWsPG +wBMpuDmn6p0iGYxRolf79yYpUIipxvMmN/GzWy2OkitSoGl6dHvMfzdwvilt +Z8SaFPjIaKZFyd/AKdxv3nzbkIJIlbdJwwuBOCh23OQFkzTkvVQIPHo7kN5v +/Fa35ZOGw9tnLKdfXMefHxP+RapIw+SskxyTRgDe2v4o/ddJaVDTruPpNL2K +GW9nH3N0lYZEwcuaXeJX8bJpgWCruzQIK0ns3Lbkh0e6qyLizkuDEuV2u/sj +P5wz+Oa82nVpqB8z/Sa76It1pzjgVJI0FGQ825n15Ao+zXr5Y3e3NDTMGElG +mlzCwhKdQxt90rDtV2hLuewl3K0j1qM4IA2mg30i3MyXsJZX68vgd9LA/i16 +6UjDRcz2dvtDrRlpkDXWaFKmXMS5Gc9t0hhlIGyccKQHX8ATemvUs7tl4JGP +6b9jbt44yca8KUVbBkp4vZz3mXlj8/MZNe26MsC5i9n2hIY3rszany9lIAM0 +Z1F10Z/ncShnctjAQRk40WdxsGnHeSw7tAcobjKQeSU00fHiWXzqgv8z7hQZ +sHtEU+Jw88BapA/PlFJlQKLM3id3jwfesgjPTTJkQLiCw+wWtwcu82GrCsqT +gdCvQ2ZiFWfwpve96uVyGWC8OFt1jfkMfnD+8YsxmgzYzx7deFbmhju93jYW +/ZGBS9eSBgd0XfEjVa2mTgZZeNqT/S1guyv2nk9qmmKWBbVw1SXHny54h5dj +s+QWWThlaRf5Js8FO3vOtiTskIVXAikHz+9wwZtn/rUHaMhCgpKYoB7DKazh +ptJtflIWpiP/cHFvOuEPZyTOF7vIQjVtr870qBOO8hLk2+ouC15pFjWbNU54 +1mfDsuecLEjuzLEd8HPC2QG0AcsA+n7D8a9OL57AQnGe720TZUFHRV2hhMMR +/6srnHfqkoWLbDaSX0Psccmr9OjGXll4lvtJ4vshe+zQFK8u3S8Lts2DMpbC +9rim3d/7y6gsvB2XHdldfgxffGO27DojCz69zGHOU3Z4evrrhgezHJBv8lYN +nDiKewRUuS7vkYP5+IxxnXhrjM6enX2oLwe0f+EmC57WuKS9pL2J3lUxReYz +fjeyxjEBxFA+EzlIuF/SV/7LCptPaf0pPCIHpnq6Nx2drDC1xuDHZ085sMzt +5p2kHMGtTkffHk6jz08JaGZQOIx3v0h66pspB/v2j9oEsx/GOdtH76blyIFQ +vCXZr9cCh1IdzOcL5GDBQD272NoC793t3BpRJQeFhdsbkfMh3MB+tqq+Vw6a +dy72Ot8zxy9Kgh+qMstDaCv1o4LeAcxmbiOcyCYPuyzaFOpZDmDLWYVkxi3y +UNDGCg3d+/G0TNeDQT55mNEpmmFx2Y8Fk4XigsTlod522dc/fh/2DCm61b9H +HrJuDAkHsJrg55I32DFFHvalHjT2GzDGjPWW4U9AHg6PXnnTn2uME9dWQwL3 +ycNE8oJj0T5j3HzW4IaijTyk2rjcbLprhEXsBi8HeMuDnPfqkTWCIT69kr88 +dVEe3L0drxayGeKncf4XLX3l4f7jx5mVY3vxvi5JH/lAeYi/lR/cdnsvvrjX +06s3Uh5OPJW8NTRtgGmqDKdkH8tDdDKpR6kCsD+j8uHX7+WheK/YPRIrBU8Z +cQ3Lf5IHga1PTnK16uPDt+ZP3JyQhwMVgjfdwvSxLG/pea2v8vDjdd14Lrs+ +fi26+27Gmjw8u1cyLCmgh8V1UPclQQXAJ2jRe9EefMtfwrZnhwIw2/ef+8S6 +By/WM3xQElYANjyza6VLB7cbN3/7IKkA1StyTr4ndLC31X6eA+oKUMVQsN4T +oY2bzh0xFzugAFPPnax2ftPEquXkfl9zBdDSm+5Lf6GJH6xsc3hjoQDJXAVM +d+9oYs+AIc8IWwX4c3XtVKaSJt52xyFy4ZQCnD3W2RXktRufzj1NbQ1UABvR +d4UhLGS8Zeza/nOVCvCPYpqY60fAWr5PeO5WKcDPZ/mHTWwI+KTA8JvSWrqe +ZM9+NRIBV+/XPL7QoADBqdIeaSMa+PSzHz6XuhSg1Ol7XQpVHTfGuDy8NqUA +/VYVigmtqnheKd7p4awCmKhQh3QiVPHO1ka5unkFSNw/nPvfAVV8bkO87M+i +AmwL27Um1KOCRd1HWoL+KYAeUVf3yEdlej9y6Hv4TkVYGV7T5tilhHPGAioe +iyhCVoXdCdnPirjHt9CvQ1wRvDyePSsrVMTyJRzMW+QU4bTbzdwdoIjfCjcL +RRMV4d1xixGGcwpYfVnbIN5UEfymPxmkvpfDk3lSCekBihArtUEuY5PB86Gf +1pmDFOHRr/n65mFpvOicecI9RBHEXCTkcaE0ZpCQUiHeUYTZmXAFD0tpLJwo +2dSUqAh3jwxmXc2SwocjJH5OliuCoWDmaoetJD7qOm5j+lwRLi684FpTl8SO +hukvSmoUoXjjjFIwuyT2/Cce4dugCIK1VRv7L0rgcF9xcc5uRWB1wcW7jMRx +nZuYueqsInxQ7rzygFUUNxu/fxo7T9fL/OHE4wYRTJVJFVr5oQjnLx5LOhog +gofGRb+8XFWE8a4DubErwnjxqOg1CxYloBgF34Afu7DifpH8CxJKcN+TZfPq +XyGcoLiLpcZGCVZiuWRnQ7ZhB0f5x1/slMBkUPvslNU2LJtANt3qoATcVtSw +g7LbcOW/g7GnnJUgyZ/UbNMmiPsHg0W3nleCPHLeLm1eQSwYNr/71C0lKAnq +S4qo4MejtetD0ZFKcON9WPyr2/w46yebf3WMEnw6zXLL2okfkxykGnnuK8Fx +3s8OcVv58RGy7cHqTCUI/yq4sf88H4779MqV54UShJ3XCWQM3orthbo4dOqV +4F16uLDznq1Y+uBooXOjEuREGY+7LvDg8urlhap2JVh6XhNleYoHv7mrFOjc +rwSP/ntVlnCIG/Oj+AdV35SglbtAqMhgC45NOd1+UlIZcg57fSm6x4Z9rwRf +DJBRBgGRjAQxBzbseCRNIlFeGVLsXl1jU2DDqlsGfV+rKsPHoqUV/XpW3HnV +WFF7jzLEueSHSC2yYKZjsre5jyjDdkHv+ZVzzHh2N2gq2ChDsGNFsS8w414+ +h08GdsqwIdNY6yzAjNM74vf4OiqDfM8efZ8qJqyvwzz3yUMZPOYTh46yMeHL +Qp9Nq0KUIfuscm3scwbssPRntS9cGfj07GT3xjBgo55d2fO3lUEYOAosTjNg +gQjLDalYZXg3+GjJX4gBl6w2FEY9UobhnzVRHJt/0cxAOrfzM2VwY8r4e/z5 +JrJPON7NPa0MLh6/uSWz1pBoxRYRzzll4B3YCMt3WkPjfVVund+UYbzNUmlQ +Yg258Aowhi8rQ/Kz/DfCGb/QuTtt5H+MKsDwTCBXIn8VBQdpJC+IqsDfzqTc +vv5lZJQ+NmkhqQL5z7som4+WEXv9bVKJjAq8CS9lf+a6jKI2vtA8lFUg9ZLh +OG1tCT24kvT3i7YK/f7U3+Iht4SeeDG6DB5RActvF6UOJi4gr8iSst229Pn3 +3M0b3RaQesF/f+KOqUDRyYnSUp0FVD797IGFkwoIbHAFr777ieqcPTo7zqqA +a67vXW7Fn6jX7q36i1sqUGdrv9pR8A2tGeWup9ergNx9IMpvzKCAF+khLY0q +0P3qbIfgixnEQErhmW1RAX1Pz++p/jOIXeKuFImmArrleYbBf6fRjnW/Ay1D +KnDxnJyJC9c0IhebJ8/8VAGDUq5FJ5hEz2X2yfAsq0B0Y6f/Jc5JpJtiUEz8 +pQInhLED79sJtDdCq/HaHxXY7vlRc9BtAh0+KTnLvUUVyjNO+YQnfkHnti/r +EGVUYaQgpN5j62e0GPm9yUZeFWR5T91yHf+ELjPNml9TUoW7K0UKA2WfUMCP +907NGqrA9logdavNJxTZ2X7LRl8Vziu2T7zO+ojyrz8cvmqjCqHwY1E29wP6 +MrnXrylCFZIVLW9LrY+gvendWcqRqqCPByzqSkZQhp19V1yMKiDOf9XSriPI +keYjfeo+fZzJfbdp/zAaLct4zZytCnLfUjRoL4bQG/+/ksb1qsApfEjlY/EA +ImreMStuVIW4bYMf950fQLHft1/Z3qoKVQk3zzkQB9Chk2q0SZoqPDzAxBhW +1Y+oJg6Xw0dUYUrqUUA27S1q4q/tbF9WBSmuK+fT+d8gKZrxssaaKuRIhpzh +fN+HgkL7xJM2VGHRMW2M9UkfQr9mLrozqUFG6w+psr19qHZMSJyTTw2CeCPy +MgJ6UfnjyxdMVdRAzmzkm7NgN+I/yZharq4GJe7sTsovupC3cHS7MEkNsIZS +0eypLqQenSP6VUcNfKWfXjeufo0KLrxtizRRA9ZrRpIqXjSURSGKdJ1Ug8Ts +pKHIvx2o6dCWkA0XNTh1nccmvKYDfT7xZU7JXQ1knISDtC93IJng+7Xh59Sg +dG6w7Pn3dpTTtn4M/OnrBb5R+DXbhnItmpIqEtRgWuCQFTNDK2pzesjwOVEN +3m89PZ7c2oKmfC658z1Ug+K/PpTXkS1IPkFe52ymGkQ49Br83dWC8obvDMmX +qEHurWMbXpRmlH/SakdKuxpsS3x5RS29EXVcUA3soKpBo8M5k56zjWgmhHVq +tUsNllY2e1b0G5FiXtUzq341sBKcaKSNNaAncyI2PJ/UwDU+uuiKdAMquDgR +H/RbDb6nrp1yvP0SFYdd5ndTUweHE8OZy9XVaF7/eHAYQZ3en/n7CF6qRqrL +RkvZZHW4fjMxZ06jGhU4bxv4uEcdfv4tHq19UoXycUWSvYk6nM/qZynLfY5y +1n9KHDqhDo5ExzNuLyvRRNlwrJezOnRZuvTqhFQiGfcGxkhXdfDZsSn1+EAl +yhq8+6XdUx3e5RZqWg9XoPQK9ccGfur0/iKd1rJZjlLOeqlr3lOHHAUp66dO +T9GorHW6VYI6VMbu//JQ4ynaNabHdyFRHYYDk7u5/pWhJFOuxZJUdfp9OmR5 +Jb0M3VcoeKZYoA7d7SzvMl+XothP0/qizeqgGVOzb3N7MepN6inWbaPHL1fK +YtJchHgPV4kf61SHkdYJ6Qs+RSimPpzhQY86eNdzGLr3FqKoh3ItvGPqcO7p +t7iopAIUYXPKjHlFHb6bE2poFvkoy2LMwXVNHQI7aw7ZsOSjugM259o31KH9 +0YUrDTWP0SJl371IJg1IW1L0ICo8Rg7yKkOCfBpwW6jwow53HiL9WnSWVdGA +MhHnPNpmNjq44HkpXF0D4ji+MB2qz0buXyfCZogacNNya1ZUUDZKHR/ML9LR +ALdDGupa7NmIo6P2+24TDdjgaPBgEMtCH5KCrxmf1ACT410mFe4ZaD1uI/Kx +iwYktkkS2TUz0LboS6mc7hqQXa+4+YsxAx24ebqh65wGnHTQVTqil44qz5iy +2QZoQJJlIQexOhXd0RWIO52oAfyDmgc8p1NQ7u7I7I4UDZjbYpAhFJeCGtRZ +nimnaUBRSTtzJyUFrUivDn3P0QCVM8qb6knJyIlrVMy3XANS6ouHntklIc2x +zCcRXRrw/lZ7ry7bA8Sn7r5W2qsBJ3bUuUe13EfzN9T3Db/VgAGhk9wPQ+6j +HJkXE4qjGnCU1+DwNPN9tM2zX4I6pQH7BRNmmHkS0O8AZjM2BgJkMgYeTsdx +aCb39IUURgIYmBMWhzji0GB3Z7I6MwE+6sf/V/rmHiqXjJ2xZSNAVE9MOtn9 +HvJoEQ1/zE0A8xSObOeUWDTCpdW4fxcBfu4gZr0nx6C23ckzY8IEeCvyyOfR +cDSqPL7J6yNKACfzxlTXwGgUW9rkmCxBAP2es6e4uqLQfiuLzVk5Aqy4BNVa +X4lE1Snu2pEkArRs/czst3oL5TXTHCV2E+Dly7+xMQW3UMK8eniFJgG2Ttfq +h564hbzRSv87HQJYdnHtYn4dgRQ/37ygigkQFlV+has0HCUpPSzuMiNA4eFD +DvAwFC0vmeSGHCSAKrPm05+2ociifvHRHgsCHH+nxxggGIrYrEyjco8QYFXf +hHPX3RB0OWDd4/oxAjiozObLxgajIz1HFdXcCCB+qF7OvioIlSQzS35xJ8D+ +4aCi6BtBiNOlVCjZgwDvodz18v4g1LDGxs56jgBVghunnlbfQBrSzyfHLhHA +dyv/B9edgYj78rbsqGACpNYONQ1v80fuuCFlbyiB3l9mvX1bcw01c3rFrYUR +YOCN2N/VE9fQtbTmmy63CdDqfFf+celVNNt+wUk/lgCLNp97zBz8UJtwn9h8 +KgF4f9UJPp2+jKQnA7ZnpRNAUCLI9F7qZXS9VJHHLpMAzLO00y7Wl9Fuo6DN +5hwCXBJztRtquYSyzmq8e1hIAJ9rnlZpZRfRjYboJLMaApwoPd6DnvqgufcN +Ceu1BJA7I7zKe8UH2W4sxT6uIwDBLnU2Q88HqWrZ32ZuIEDeX5H3ax3eaLhQ +/tqLNgIEPQ3nDR4+j0iJr/5T6SeABzNFIi7PC6VWLh4dGSBAlnbktl0mXojj +jZx1xBABUgSoX0anPNE4d5T5l1F6Pu43Jv1T8URRwXaUh58I0K1XnXOq5Qya +OrsgzvWDAGdGOWzPKrshy0hZkZqfBJjrmzk+++40qss/KuS2SIDXgbLn3WJO +o/gvL3mbVwjQYHhzxmHVFcGxOwz+m3T/rn38OdDnglKMZD7PcRLhGDWE6lLp +jFidbT8kcRGByeJB1/1Lzsj7xu1REx4iMOSsriVrOqN9tT/eZPERYTIgwoC/ +9iRa1qhrthciQubQx4KLr53QQRGbXKosERjv/S1rVnJESRPqDf/JE8GeynNM +rPM4mijmeDevQAT9XxK3s88cRwFQx8erQgQ53woPhRIHVOQqE2BFJELE3Pzr +IqP/0JayhSNjFCKU/RNZpebYIdurtLNnMRHWa9Jm7G3sUNbe3Ft/gQgncz56 +f2GzQ3sG7OoljYggZi0R8cbrKHL//UrJ1ZQIqkSe8GFDW9RuFMPw3ZYI1jfm +k0RFrZHAVneRG3ZEEL/tJDA9aoUchwy0+OyJoLgzcTIwxQqtnlnxJB0nQmmv ++xC3qBWSv+swdOUUEWRXdZVPKB5BoSPKJf/OEwG961D4cOow6s1i6Yz1IcI7 +Jp6PbuqHkajXhy9SF4lQUnCLVWvJAlX8vbfL6AoRKrctjMzJWKDPMuuhtwKI +kHuAtzc84SAyONf+H/9tIlxm1ZnQKjVFv4dnTVru0P14KfHK+rApqjTkJvlG +ESEmzOhG7eIBJL/LkuP9XSJwMVfEm+sdQNwto5X5D+gs52C+490+NLzrOw/k +EGGTv9Sg1dIYxYXyrS/mEsFZ6UunP6sxMvtBmsh9TAThhOpqvVojVN/iW8tV +SAS/78LDnfJGKOc8o9vQUyK0SkavvOIyRN6t2xrOvSKCtPfZVQqTAVImaBdK +NRJhpLJD7V8LoC8pxx70NxGBQPr8+cEtQLbeaV66bUS4XnHHCwkA0hdR3MXW +RYT7zLFiBo4IcfjoXUgdJcJ0dqtf6y491PTu+PHDY0TwVU6ujq/SRf4mQfuZ +PxDBUi1Mps5WF30XaRU/84kIP823cXAm70H9bYdou2eIcPPsyT3b1XRQuqiz +7OsVIig9y/1P564m0iWrqDv/IoKHtUBrl7Em6j+wrL22RoR5Ca+btn92Iw7f +cDPZTSJcpO5r0Dy/G3n3FVwIYCKBL08N8/BxMoLwpQZVXhJU7LPoVnchotFH +ddQmPhLwhqd5pSkS0aWKsH47ARJciPbO7/9GQPkfhWZCt5NAZpvZ0p1rBMSv +p8/7XoQESkffdlbu0UCff4Qej1YkwY1Y6YdLrKoogO2Qm4wyCSQP2GV75aqg +HWJCPjUqJNA7fzxAyUQFmZo+CZ1UJ8HVrVkajpHKqDynq5CiSYINHS8rQ1kl +FHJsx+9vBiRIaPRdz4qSR+Le48yhhiSA7OWSMCSPqsPzeYSNSaAsl8DsvSCH +5it0pUz2k8Daroz/kL0cst56Yn/aIRIcyxHoeKsti2SbHz849B8JMrk87fZJ +SKNu1bWcMQcSVMps/ez0SQr5Pdhf4eFIgpj6wiv7c6QQ7cxsT/hJElTrHTvu +qyqFLvCpcL5yI0HO6BNVHhNJ9Op4ib/GJbpf6eZXV7TFkHv739svL5NALcVU +8uFbUSRAtEgy86WPi/I3xXqLotMsPyvdrpGgV6xszr5EBHEXEr+nB5FARzLX +a1VHGNmvVTrxRZMgYNiC0hcuhFicWc+nxZCAxOAkFKcphEpoNtdVY0kwoTsc +7jK5AzGmrybvj6f7e9JJg7B/B8o31nkblEwCgd7iw8zC29FK3AvjhVwSDKsz +fm74KoDSNrmsbzwmwcqtooNbCwTQ/tMOzjxPSMCYsa6te0YAPdrzJ1CpiAQq +V1pEpOf40d6PqPpkOQkan6ZJT6zwoVi1JuU39SRIvHKj6oXrVpSv8x9ncAMJ +ZtMmTxQs8qBXhsvTxCYSdPCbMu+9yYO+H5PPvddK1/fixDnrbG5kFn5HwvI1 +Cc6rv3p56vcWxDZ+ZFvvCD3+KQo4/GBHYnNfF2+8I8GaeOzEngR2tHsltE/j +PQle6iQRPHTZ0Smuqpi7H0mQdW/fk9I7bKhBW4TTYpoE/+3yljbXZUX+sV/+ +dC2T4MjdqKwffUwo7mHA2PVVElzT23Fx7DYTKsjb/kJtjQScVYO1g3uZ0HDd +Pr/oDRLIug2fnqhiRFqzhYvmTGSAplMSm8UM6KfBpWkaLxn6ZGcO8sT8oXAc +5Gnz5yfDMwZOLy3RPxQJu7wcFUEy3Kz8WstVtEk5dG74ZOQOMkg3kK9m9W5Q +ClP0x0zFyGC++UxwVPU35fQSS1+nMhl4fi56Bqv+ojgWGHU7qJJhu6FWZfnw +KsX2ZCjthxoZuMj3ebnCVykmPcxt24lk+JxYKyY7sUKRL2R6cVKbDJTHZ80j +i5cpk84MueuGZFjU7pZa8VmkjO2CrChjMrxaC0qZUF+k9PfeSJfYRwblxa2H +m+YXKC3oX7KxKRkmez490PNcoOQI/425d5gMLT1JP7su/KS4vNnwUzpOhgsi +SqLFVt8oDrf1rtQ5koFTxtbPf2aeYg3+Fy2cyLDtjmddR+A8xajk99nLp8jg +ynRgN630K0X2zrpz4xl6/HbX9D9Lz1G+GPwyP3aFDKTFJF/pA9OU0TUt03lf +Mrx+0/wtbmmK8qb0yr4bV8lw3IX1mVb6FKVJbNUgN4AM+QP7vNl/T1Ky1pe1 +FoLJYHjjsMl/Lycozk8XJW/fJYP/5orfad/PFK9gq03Te2RgEV8JOqLymXLZ +qnKIO54MXc/5GX0+fqLcWrkcE/uADJfvDeSRDn2ilOxZ30hMJcOyafjOA9of +KdVb7IeOpZOhWVR1/N7MOKXxXW25SCYZKhT9/5W4jFP6rwecSc8hA0fMGVvJ +Ux8o643/BvMKyfBn+mD4H98xClO8U7l7MRmY1+rZ2ZjGKNwujdHKpWT4Ya2V +PR/9jiLOFmJUUk7XM7JRoVU4SjEyZSt/VkOvF8nm3au/hymxb7ijW9rJ0JFx +w1N3doCSkn3WPbyTXl/lu4Vmowco2Ze6DffTyCD5jWkn9+4ByvMdsb9p3WSo +VC1iTgrtp4zZC7q/HSDDkb/d7cpabylTKpcM7w+RIWRovv7D5BvKj81+8aMj +ZLjmf0Do3YM3FKb0BwOjY2S4r/X8RtJmH0Xhyy7Dz1/IkHJ05dbDwV4KofKa +eM4kGZbs31ixx/ZSdMPerbtOk8GOn5aWYNpLMVdILZudo/v9kWzGHN5DueAp +Kb6wQAYBQZlqm5tdlAD9m+vlS2S4c0JexIK1ixLG87n/0goZPtIW6kwiX1OS +SrMj19bIMIwzu/lSaZSsIBa32t9kEBoNuv9WkUYptHTdG7BJBjkP4v7Lz6mU +Suk2MfSXDHkM2o7fjamU+iX59X//yFArWuKlPdRJ+R9VvE0v + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.21308275435714077`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.21308275435714077`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8lt8bx+0Rsipl7z2ekRGecy4ZFUoykq8kEaGiRZFkVkZCGWWPZIcy +kuzxPFllpzTsNMyI6vf8/rnv1/t17nPO5/pc1zn3JeV8/ogrEwMDQy/98f93 +aqAzG9HlIZL1mS9/wuWJWt5Kmh+VvIq/SsgYiffsx//a6kMkJW9jj78hI2Pd +dji1IVqCVTIZmw8Y3EzodsdelMtnf0k8wa+6ubr6uvzw2w33hJ8SNfg//qGw +VeotzP7us8I3iU68Rk49nPMqCWdS032+Sozg7W+K3qTE5eOS0tvvvNTncNij +UH2G7mo8JzAXZXpyDsum38tX/l2NFa6YIsWEOfxvX9dxJF+DM/S5Mr+sz2Hx +/7p4pAJrcFxn1Gn71q94Z5CfT49qLb7y5e7CPodvmGVVSrEs7AVO56KF8Bv/ +xPOkEx8iZOuxG+5Lnr+whEU0LtpkRTRihqzV2neRS9j+00OGjeRGnMQiOkbN +WcJbrr7oNSpqxB2dp8WfDC7hm7+IRYW9jVjRejPLVXcZ72AfmGvZ2YRn3BWK +PjCuYHc7sWzhvCbsEXe9vjd2FVt7t+1jeNaMmVayxl89WcX22y1FT7c245Sj +HQylTat4Ydw488VAM6aKChpGL6/imabkeM3VZqzyOL/9gN0vfDadldFFqwXP +v3jb2ySxhj/crLyZVdGCz00qfaksWccsaT4jpzNb8UfHEY7GznWcShQdmSxr +xVbDt9S7JtYxb6fmscMNrViHNn11Uvg3dj6Jnk1/aMXMT3P5dkT8xq/73d6L +i7ThpAAp5HtiAxeYvTv++G4bbhTclbyH7w9eNhLX/+rejndHd9Qbq/zBZSWV +odTL7TiPzW/C0uQP3st0/URCcDuOWh/U8Aj4g/+IWD6fftiObccT2lJm/uBF +GLSP6mrHcwV8yxsNf3FSwm3fTtUOvEUqVGFchwEmuN1s10c7cIf+PY1AYwZw +98xguDLRgcPt0rTFjjCAfk9S5vi3DswUW73vP08G8Hd2ar7K0Il//513G0pl +gBt7K7w6ZTvx1zGb/B4mRjDWdBsaONOJC9acy87xMsLyclGK1IVO7L7Nu5pH +lBHefek7aH+tE0+Y3ekw02QEIV7tsLg7nXistn6m3Y0RbBmW9okXdOLXSQpK +Da8ZIbqcfzJ7shPfqdxNPDHCCGT0ienVfCfe32uw5+8kIzySXpdsX+rELewO +B/T/McKPBl3XNEYqrrsSe6aayASfHAONz4hScbH1+pOyB0xg9UDA48IhKvby +Ziu3yGYCAZ/j8Y7WVKwcJVj7vZQJfDq+fdG2p+K8ZjWqaicT+F3KYC93peI0 +kvNc/gYTaHhbVbX4U3EMH00504kZ7kde+H46h4prtMWeHTrHDLUfb5KjnlDx +hON5vOnPDNfeTqY+LKFivWJB66OJzHDyXNW6XzUVzxxwuM7TzQx1FdyX1WlU +vM2nhP3FO2awFQiJzO2hYpzEEOc+ywyVLCZrbP1U/GAqJ6+ZhQVaA/f+uDVG +xYYh33qu6rGAn+MOwTvzVHyuANsrHGCBVDf1h9Y/qTil795Evy0LPMq88ZRz +mYp/Smita1xggfcrHXnkDXo8dYHSU/kssNpdFhnBQcOdX3qL4p+zQP6ZGIfH +XDS8vEVG26CFBZLx4d9Pt9Kw2bF2s0fjLFBwnvoyYhsNr63wXj6ygxWYOoyt +tCRoWEbM+d8/GVb48FT3arEUDR8yqrxdTGQFieNGT3llaTg3zi6N4yArZPDz +B9xXpOHemgLF5/asICdzWKpGmYY3P26Wn3JnBbPOh3/aVWn4iEZme30IK6jp +nLz5mEDDgbZLll73WEH7mqi+H4mGn1w3HtuVzgqirG7Wu3fTMMPr2Z+XalkB +vmi3ntOmYZUlPX/pDla4pNtI/KZDw7bCMay9A6zwLWtc5qguDRe7k4RVFljh +z57pxm/6NDx8NzRn+C8r3P4XGyyMaJilalA9nJsNOpoPL5IwDWt8UKwhC7NB +8dZGEW2gYXtWf8NPCmzAdzWeU8GAhsNVu7piNNngT2RsG9NeGn5qJWGnb8gG +X9MTj1PpPHbN5/PsYTagvUgbuW5IwxxZzV6JjvTvL5YbixnRMLlz+y8jLzZQ +71wpyqez40+3m4tX6euzZwlLGtPwHaFarowINmDKZksJofMzxP3g4H02CBS+ +rfWWzh9dHSU3stggtS9nY6sJDXNHlxXkl7HBgYW5ZS06a1cyadrWs0GAMZO6 +GZ2d31m/Yn7NBpYij8v/z1sefjrrM8IGtpnM2/fQudz+nOj4FBucGJ28K0hn +e+ENqvkyG3Sdy1F/R9+PeTTiai0jOySHPNm8S+ei5G2KirzssJRygZVEZ+tj +mYP3Rdmh61KsdSM9ns2d6mHMyuxg+iNvhULnnOFaso82O0hOey0/pvthnrTv +8wcjdvgsVOTwj+7X8tH+WPMj7KCxCbpGdH4kdBLXnmCH98XCyVfofhsPffum +cJYdGNp0wx7Q8/H9wbVH96+xw6z+sy059Hw9sGU3Y77FDpymZZrp9HxODUjm +f8ii739DpNiRnu+Y+8W25mXssJNAEpDRo2EtG13W2pfs0Ldvx6GBPTQc0W/l +fH+Yrt/VNoCZXk+EhI98zFPsIPdpMuKGJr1erM6+8l5iB3OvJ49myTSs+DZc +1HwrBzQV/tx2i16vvXGCtBoRDlAqIcTVqdOw35GMqwpKHDAsLGY+Tq/vzr6a +QSYjDtinp1Lwg34ePHrnY2uuckB83L8bFEkaFoi9ihUiOGC9j89qUoyGay3Y +vickcMCC49vX/iI0zNUjYeZdygEdNQ/nLu2g+991hFVhkgOK3d8fTKafX+vo +8YqERQ5I31PaX0U/35vmXs5MDJzgTxX2bmWl4YOvw169F+aElAuvRUv+UfF3 +avXVhMOcEB6zbeT5Iv2+uWOsyOTICTfjO+5a/KBiZPpm8Lwnfdw6/fXQVyq+ +2/mVbBbOCYR7gQJVE1RM6BD/zljHCXs1zpwuH6Bin9ZQ5/MKWyDw5G/BJ5VU +LD5hwrZK3gKrm8g+uoyKaUycBQGwBd7Idgq5FFGxHEQv3D62BcS4eJVns6l4 +pPZ+UE7kFtD5/J7NKo6KDcry0kZ+bIHHwxuJZV50vd3ue502twC72XvVJjcq +fvhNeWqKgwustqkytTtT8YpyqdqyFBcIGZ7KLLCj4ie5VXVbrbkgS3lF+J0h +FfM/7Bg1rOYCvWWi7bwQFdfX3AmktnABQ68Rs44AFXsOm0tb9nHBuBNjoy83 +Fbdu7zvjOMcFXP+OZb9loOKrsSNrfqLcUIZmrvyd6cSfwuZ2lARxQ50kmVW1 +qhM/9ea22nmAB9rWkrYYm9H/ZymCV4ttecCqVm97vGEnnmoRTt/rwgOlT45t +G9DrxMK7lL563eABtRRuLU3VThzaaBzS+IwHYso1F924O7GtwI0KD+mtIMda +UpJH7cC/KxYEX25she1rY5UsuANn+nvOEY7ygd/o21VJrnZMaOBcizjOB5Tl +BuEcxnbcwJLPOn6KD/42LyVIrrXhj9ETktHefJDd0tPCOtmGxTOOH529zQcH +1IlpwfVtOKXFoiWzjg8eCFTdOeLdhuN4dqcJSPMDZ/ro9uKeVhycvmm5PM8P +9hG2j8yCWjDD249Qd00QCuqmXk93NWL5S6f9rJW3Q+L1s9XOlS/xxEqiLdfL +HSAV9nZd+GI1Np30uB7nsxOsn5s2+BlX4EMTsSri4sJwjHnCwPp5MX6tMtHv +ICsMcnHFDkJJxdjsonbgQ2Vh+HT4Vdn3q8V4P9OH3p3awnC36C7XKKUY75VU +uSJ4WBii3n9/lt1WhDUdWhs4goVhfKJ/mHmsEIv2r9ssTQqDZcgd1t/bC/Bc +s3NQR7EIdPpIloe15WGJe8MeMZUioEEKury7MA9bOx6ysX4hAuKpIY9/383D +9Wt7lD92iIAbNjXsOpaH49T4+399EYHEep72O99zsV7iKwUFYVHwPrq5w1k0 +F0d5iPaEhYvCto68Ipvb2bhRO67GLFoUjvVefjrlnY1XWThy+BNEgUgdtYmx +y8ZO6Ut+qZmiUKL98riUYjbe3U+VflYnCuJNExE2HVn4PeXqlYlFUQh5I7D6 +nTsLq/MPihmeEIMtipfXHudl4KnoqeD7rmJQzbBd8WxcBk7d8mt62lMMHG3S +BYwDMzA3y87yKD8xWE9I+6Vqm4HnVo+ZDN4Tg7/tLLvG2DJw7tj7c2daxEBM +c+yx01AaFs2ffHVXSRx+yekPToU9wv2yq7KfNcShtetY4t+Tj3BkJtud3Vri +sPOxRcoe9Aj/TlGwHtkrDuo2McK7fj3Ew9FnZqQdxEEoL3DR3+Mhjr/4je95 +jDiEyLZCw9EUvAWvnBxbEodxY+a4WrMk7GegyPH8tzjsp16/4aOUhKcM/yu5 +yygBBaHXfxxiT8JN+xt/7+WVAL1e6x8BzYn42pHo+CfKEvB1e/T9LEoi/uoq +13rlpATY1QrF/NF5gF9H2Sjy90hA2GjJIx2zBKx791b33IAEpM2mU6PUEnD+ +vReXWsYkIKnkqBILXwIOfSDV6DsnAcnSA9wOA/FYvHdV9QeTJLRksFwuPhmP +B0eaWm3EJYH7OS/Lq6A4vO+b/S9pG0l4vpxx+MNQLE7bFvL2hp0kyHCp2I/W +x+JlvcLSsf8kodLuNPtKbizOuLPh9sBZEvRl70+GXYrFvxUeDXN6S0LeQOZ7 +AcFYXOT8vubnHUkwVws4El4Yg/mGTwTUN0iCwYtB+7hPkfj0vwg7kRZJYGgN +vd/zPBLXyZft9muXBJbyl0WGUZH4zGWGb8RuSYj/2Znbox2JmwQyj+e+k4TX +vX3aPvfu4EsHP6OoVbrehdnykkO38XCTC6O9qhTcdjVsrPwRjn8ajApf15AC +Y//anyNd4Zi90WJ3BkkKrMQaLykVhWOtV7puUzpS4BixdczkTDhOeMHXdcFY +Cs56fx64MhmGLSrrkiIdpWAPxsK3J0NxW+42wstYKchRmTrkxhyCP8jeOfAx +XgqMQlKvRU4F45Xsf87MiVIwo/RDbqAzGMtmzd0/kCoFE0P7XIdjg3FwWsPG +wBMpuDmn6p0iGYxRolf79yYpUIipxvMmN/GzWy2OkitSoGl6dHvMfzdwvilt +Z8SaFPjIaKZFyd/AKdxv3nzbkIJIlbdJwwuBOCh23OQFkzTkvVQIPHo7kN5v +/Fa35ZOGw9tnLKdfXMefHxP+RapIw+SskxyTRgDe2v4o/ddJaVDTruPpNL2K +GW9nH3N0lYZEwcuaXeJX8bJpgWCruzQIK0ns3Lbkh0e6qyLizkuDEuV2u/sj +P5wz+Oa82nVpqB8z/Sa76It1pzjgVJI0FGQ825n15Ao+zXr5Y3e3NDTMGElG +mlzCwhKdQxt90rDtV2hLuewl3K0j1qM4IA2mg30i3MyXsJZX68vgd9LA/i16 +6UjDRcz2dvtDrRlpkDXWaFKmXMS5Gc9t0hhlIGyccKQHX8ATemvUs7tl4JGP +6b9jbt44yca8KUVbBkp4vZz3mXlj8/MZNe26MsC5i9n2hIY3rszany9lIAM0 +Z1F10Z/ncShnctjAQRk40WdxsGnHeSw7tAcobjKQeSU00fHiWXzqgv8z7hQZ +sHtEU+Jw88BapA/PlFJlQKLM3id3jwfesgjPTTJkQLiCw+wWtwcu82GrCsqT +gdCvQ2ZiFWfwpve96uVyGWC8OFt1jfkMfnD+8YsxmgzYzx7deFbmhju93jYW +/ZGBS9eSBgd0XfEjVa2mTgZZeNqT/S1guyv2nk9qmmKWBbVw1SXHny54h5dj +s+QWWThlaRf5Js8FO3vOtiTskIVXAikHz+9wwZtn/rUHaMhCgpKYoB7DKazh +ptJtflIWpiP/cHFvOuEPZyTOF7vIQjVtr870qBOO8hLk2+ouC15pFjWbNU54 +1mfDsuecLEjuzLEd8HPC2QG0AcsA+n7D8a9OL57AQnGe720TZUFHRV2hhMMR +/6srnHfqkoWLbDaSX0Psccmr9OjGXll4lvtJ4vshe+zQFK8u3S8Lts2DMpbC +9rim3d/7y6gsvB2XHdldfgxffGO27DojCz69zGHOU3Z4evrrhgezHJBv8lYN +nDiKewRUuS7vkYP5+IxxnXhrjM6enX2oLwe0f+EmC57WuKS9pL2J3lUxReYz +fjeyxjEBxFA+EzlIuF/SV/7LCptPaf0pPCIHpnq6Nx2drDC1xuDHZ085sMzt +5p2kHMGtTkffHk6jz08JaGZQOIx3v0h66pspB/v2j9oEsx/GOdtH76blyIFQ +vCXZr9cCh1IdzOcL5GDBQD272NoC793t3BpRJQeFhdsbkfMh3MB+tqq+Vw6a +dy72Ot8zxy9Kgh+qMstDaCv1o4LeAcxmbiOcyCYPuyzaFOpZDmDLWYVkxi3y +UNDGCg3d+/G0TNeDQT55mNEpmmFx2Y8Fk4XigsTlod522dc/fh/2DCm61b9H +HrJuDAkHsJrg55I32DFFHvalHjT2GzDGjPWW4U9AHg6PXnnTn2uME9dWQwL3 +ycNE8oJj0T5j3HzW4IaijTyk2rjcbLprhEXsBi8HeMuDnPfqkTWCIT69kr88 +dVEe3L0drxayGeKncf4XLX3l4f7jx5mVY3vxvi5JH/lAeYi/lR/cdnsvvrjX +06s3Uh5OPJW8NTRtgGmqDKdkH8tDdDKpR6kCsD+j8uHX7+WheK/YPRIrBU8Z +cQ3Lf5IHga1PTnK16uPDt+ZP3JyQhwMVgjfdwvSxLG/pea2v8vDjdd14Lrs+ +fi26+27Gmjw8u1cyLCmgh8V1UPclQQXAJ2jRe9EefMtfwrZnhwIw2/ef+8S6 +By/WM3xQElYANjyza6VLB7cbN3/7IKkA1StyTr4ndLC31X6eA+oKUMVQsN4T +oY2bzh0xFzugAFPPnax2ftPEquXkfl9zBdDSm+5Lf6GJH6xsc3hjoQDJXAVM +d+9oYs+AIc8IWwX4c3XtVKaSJt52xyFy4ZQCnD3W2RXktRufzj1NbQ1UABvR +d4UhLGS8Zeza/nOVCvCPYpqY60fAWr5PeO5WKcDPZ/mHTWwI+KTA8JvSWrqe +ZM9+NRIBV+/XPL7QoADBqdIeaSMa+PSzHz6XuhSg1Ol7XQpVHTfGuDy8NqUA +/VYVigmtqnheKd7p4awCmKhQh3QiVPHO1ka5unkFSNw/nPvfAVV8bkO87M+i +AmwL27Um1KOCRd1HWoL+KYAeUVf3yEdlej9y6Hv4TkVYGV7T5tilhHPGAioe +iyhCVoXdCdnPirjHt9CvQ1wRvDyePSsrVMTyJRzMW+QU4bTbzdwdoIjfCjcL +RRMV4d1xixGGcwpYfVnbIN5UEfymPxmkvpfDk3lSCekBihArtUEuY5PB86Gf +1pmDFOHRr/n65mFpvOicecI9RBHEXCTkcaE0ZpCQUiHeUYTZmXAFD0tpLJwo +2dSUqAh3jwxmXc2SwocjJH5OliuCoWDmaoetJD7qOm5j+lwRLi684FpTl8SO +hukvSmoUoXjjjFIwuyT2/Cce4dugCIK1VRv7L0rgcF9xcc5uRWB1wcW7jMRx +nZuYueqsInxQ7rzygFUUNxu/fxo7T9fL/OHE4wYRTJVJFVr5oQjnLx5LOhog +gofGRb+8XFWE8a4DubErwnjxqOg1CxYloBgF34Afu7DifpH8CxJKcN+TZfPq +XyGcoLiLpcZGCVZiuWRnQ7ZhB0f5x1/slMBkUPvslNU2LJtANt3qoATcVtSw +g7LbcOW/g7GnnJUgyZ/UbNMmiPsHg0W3nleCPHLeLm1eQSwYNr/71C0lKAnq +S4qo4MejtetD0ZFKcON9WPyr2/w46yebf3WMEnw6zXLL2okfkxykGnnuK8Fx +3s8OcVv58RGy7cHqTCUI/yq4sf88H4779MqV54UShJ3XCWQM3orthbo4dOqV +4F16uLDznq1Y+uBooXOjEuREGY+7LvDg8urlhap2JVh6XhNleYoHv7mrFOjc +rwSP/ntVlnCIG/Oj+AdV35SglbtAqMhgC45NOd1+UlIZcg57fSm6x4Z9rwRf +DJBRBgGRjAQxBzbseCRNIlFeGVLsXl1jU2DDqlsGfV+rKsPHoqUV/XpW3HnV +WFF7jzLEueSHSC2yYKZjsre5jyjDdkHv+ZVzzHh2N2gq2ChDsGNFsS8w414+ +h08GdsqwIdNY6yzAjNM74vf4OiqDfM8efZ8qJqyvwzz3yUMZPOYTh46yMeHL +Qp9Nq0KUIfuscm3scwbssPRntS9cGfj07GT3xjBgo55d2fO3lUEYOAosTjNg +gQjLDalYZXg3+GjJX4gBl6w2FEY9UobhnzVRHJt/0cxAOrfzM2VwY8r4e/z5 +JrJPON7NPa0MLh6/uSWz1pBoxRYRzzll4B3YCMt3WkPjfVVund+UYbzNUmlQ +Yg258Aowhi8rQ/Kz/DfCGb/QuTtt5H+MKsDwTCBXIn8VBQdpJC+IqsDfzqTc +vv5lZJQ+NmkhqQL5z7som4+WEXv9bVKJjAq8CS9lf+a6jKI2vtA8lFUg9ZLh +OG1tCT24kvT3i7YK/f7U3+Iht4SeeDG6DB5RActvF6UOJi4gr8iSst229Pn3 +3M0b3RaQesF/f+KOqUDRyYnSUp0FVD797IGFkwoIbHAFr777ieqcPTo7zqqA +a67vXW7Fn6jX7q36i1sqUGdrv9pR8A2tGeWup9ergNx9IMpvzKCAF+khLY0q +0P3qbIfgixnEQErhmW1RAX1Pz++p/jOIXeKuFImmArrleYbBf6fRjnW/Ay1D +KnDxnJyJC9c0IhebJ8/8VAGDUq5FJ5hEz2X2yfAsq0B0Y6f/Jc5JpJtiUEz8 +pQInhLED79sJtDdCq/HaHxXY7vlRc9BtAh0+KTnLvUUVyjNO+YQnfkHnti/r +EGVUYaQgpN5j62e0GPm9yUZeFWR5T91yHf+ELjPNml9TUoW7K0UKA2WfUMCP +907NGqrA9logdavNJxTZ2X7LRl8Vziu2T7zO+ojyrz8cvmqjCqHwY1E29wP6 +MrnXrylCFZIVLW9LrY+gvendWcqRqqCPByzqSkZQhp19V1yMKiDOf9XSriPI +keYjfeo+fZzJfbdp/zAaLct4zZytCnLfUjRoL4bQG/+/ksb1qsApfEjlY/EA +ImreMStuVIW4bYMf950fQLHft1/Z3qoKVQk3zzkQB9Chk2q0SZoqPDzAxBhW +1Y+oJg6Xw0dUYUrqUUA27S1q4q/tbF9WBSmuK+fT+d8gKZrxssaaKuRIhpzh +fN+HgkL7xJM2VGHRMW2M9UkfQr9mLrozqUFG6w+psr19qHZMSJyTTw2CeCPy +MgJ6UfnjyxdMVdRAzmzkm7NgN+I/yZharq4GJe7sTsovupC3cHS7MEkNsIZS +0eypLqQenSP6VUcNfKWfXjeufo0KLrxtizRRA9ZrRpIqXjSURSGKdJ1Ug8Ts +pKHIvx2o6dCWkA0XNTh1nccmvKYDfT7xZU7JXQ1knISDtC93IJng+7Xh59Sg +dG6w7Pn3dpTTtn4M/OnrBb5R+DXbhnItmpIqEtRgWuCQFTNDK2pzesjwOVEN +3m89PZ7c2oKmfC658z1Ug+K/PpTXkS1IPkFe52ymGkQ49Br83dWC8obvDMmX +qEHurWMbXpRmlH/SakdKuxpsS3x5RS29EXVcUA3soKpBo8M5k56zjWgmhHVq +tUsNllY2e1b0G5FiXtUzq341sBKcaKSNNaAncyI2PJ/UwDU+uuiKdAMquDgR +H/RbDb6nrp1yvP0SFYdd5ndTUweHE8OZy9XVaF7/eHAYQZ3en/n7CF6qRqrL +RkvZZHW4fjMxZ06jGhU4bxv4uEcdfv4tHq19UoXycUWSvYk6nM/qZynLfY5y +1n9KHDqhDo5ExzNuLyvRRNlwrJezOnRZuvTqhFQiGfcGxkhXdfDZsSn1+EAl +yhq8+6XdUx3e5RZqWg9XoPQK9ccGfur0/iKd1rJZjlLOeqlr3lOHHAUp66dO +T9GorHW6VYI6VMbu//JQ4ynaNabHdyFRHYYDk7u5/pWhJFOuxZJUdfp9OmR5 +Jb0M3VcoeKZYoA7d7SzvMl+XothP0/qizeqgGVOzb3N7MepN6inWbaPHL1fK +YtJchHgPV4kf61SHkdYJ6Qs+RSimPpzhQY86eNdzGLr3FqKoh3ItvGPqcO7p +t7iopAIUYXPKjHlFHb6bE2poFvkoy2LMwXVNHQI7aw7ZsOSjugM259o31KH9 +0YUrDTWP0SJl371IJg1IW1L0ICo8Rg7yKkOCfBpwW6jwow53HiL9WnSWVdGA +MhHnPNpmNjq44HkpXF0D4ji+MB2qz0buXyfCZogacNNya1ZUUDZKHR/ML9LR +ALdDGupa7NmIo6P2+24TDdjgaPBgEMtCH5KCrxmf1ACT410mFe4ZaD1uI/Kx +iwYktkkS2TUz0LboS6mc7hqQXa+4+YsxAx24ebqh65wGnHTQVTqil44qz5iy +2QZoQJJlIQexOhXd0RWIO52oAfyDmgc8p1NQ7u7I7I4UDZjbYpAhFJeCGtRZ +nimnaUBRSTtzJyUFrUivDn3P0QCVM8qb6knJyIlrVMy3XANS6ouHntklIc2x +zCcRXRrw/lZ7ry7bA8Sn7r5W2qsBJ3bUuUe13EfzN9T3Db/VgAGhk9wPQ+6j +HJkXE4qjGnCU1+DwNPN9tM2zX4I6pQH7BRNmmHkS0O8AZjM2BgJkMgYeTsdx +aCb39IUURgIYmBMWhzji0GB3Z7I6MwE+6sf/V/rmHiqXjJ2xZSNAVE9MOtn9 +HvJoEQ1/zE0A8xSObOeUWDTCpdW4fxcBfu4gZr0nx6C23ckzY8IEeCvyyOfR +cDSqPL7J6yNKACfzxlTXwGgUW9rkmCxBAP2es6e4uqLQfiuLzVk5Aqy4BNVa +X4lE1Snu2pEkArRs/czst3oL5TXTHCV2E+Dly7+xMQW3UMK8eniFJgG2Ttfq +h564hbzRSv87HQJYdnHtYn4dgRQ/37ygigkQFlV+has0HCUpPSzuMiNA4eFD +DvAwFC0vmeSGHCSAKrPm05+2ociifvHRHgsCHH+nxxggGIrYrEyjco8QYFXf +hHPX3RB0OWDd4/oxAjiozObLxgajIz1HFdXcCCB+qF7OvioIlSQzS35xJ8D+ +4aCi6BtBiNOlVCjZgwDvodz18v4g1LDGxs56jgBVghunnlbfQBrSzyfHLhHA +dyv/B9edgYj78rbsqGACpNYONQ1v80fuuCFlbyiB3l9mvX1bcw01c3rFrYUR +YOCN2N/VE9fQtbTmmy63CdDqfFf+celVNNt+wUk/lgCLNp97zBz8UJtwn9h8 +KgF4f9UJPp2+jKQnA7ZnpRNAUCLI9F7qZXS9VJHHLpMAzLO00y7Wl9Fuo6DN +5hwCXBJztRtquYSyzmq8e1hIAJ9rnlZpZRfRjYboJLMaApwoPd6DnvqgufcN +Ceu1BJA7I7zKe8UH2W4sxT6uIwDBLnU2Q88HqWrZ32ZuIEDeX5H3ax3eaLhQ +/tqLNgIEPQ3nDR4+j0iJr/5T6SeABzNFIi7PC6VWLh4dGSBAlnbktl0mXojj +jZx1xBABUgSoX0anPNE4d5T5l1F6Pu43Jv1T8URRwXaUh58I0K1XnXOq5Qya +OrsgzvWDAGdGOWzPKrshy0hZkZqfBJjrmzk+++40qss/KuS2SIDXgbLn3WJO +o/gvL3mbVwjQYHhzxmHVFcGxOwz+m3T/rn38OdDnglKMZD7PcRLhGDWE6lLp +jFidbT8kcRGByeJB1/1Lzsj7xu1REx4iMOSsriVrOqN9tT/eZPERYTIgwoC/ +9iRa1qhrthciQubQx4KLr53QQRGbXKosERjv/S1rVnJESRPqDf/JE8GeynNM +rPM4mijmeDevQAT9XxK3s88cRwFQx8erQgQ53woPhRIHVOQqE2BFJELE3Pzr +IqP/0JayhSNjFCKU/RNZpebYIdurtLNnMRHWa9Jm7G3sUNbe3Ft/gQgncz56 +f2GzQ3sG7OoljYggZi0R8cbrKHL//UrJ1ZQIqkSe8GFDW9RuFMPw3ZYI1jfm +k0RFrZHAVneRG3ZEEL/tJDA9aoUchwy0+OyJoLgzcTIwxQqtnlnxJB0nQmmv ++xC3qBWSv+swdOUUEWRXdZVPKB5BoSPKJf/OEwG961D4cOow6s1i6Yz1IcI7 +Jp6PbuqHkajXhy9SF4lQUnCLVWvJAlX8vbfL6AoRKrctjMzJWKDPMuuhtwKI +kHuAtzc84SAyONf+H/9tIlxm1ZnQKjVFv4dnTVru0P14KfHK+rApqjTkJvlG +ESEmzOhG7eIBJL/LkuP9XSJwMVfEm+sdQNwto5X5D+gs52C+490+NLzrOw/k +EGGTv9Sg1dIYxYXyrS/mEsFZ6UunP6sxMvtBmsh9TAThhOpqvVojVN/iW8tV +SAS/78LDnfJGKOc8o9vQUyK0SkavvOIyRN6t2xrOvSKCtPfZVQqTAVImaBdK +NRJhpLJD7V8LoC8pxx70NxGBQPr8+cEtQLbeaV66bUS4XnHHCwkA0hdR3MXW +RYT7zLFiBo4IcfjoXUgdJcJ0dqtf6y491PTu+PHDY0TwVU6ujq/SRf4mQfuZ +PxDBUi1Mps5WF30XaRU/84kIP823cXAm70H9bYdou2eIcPPsyT3b1XRQuqiz +7OsVIig9y/1P564m0iWrqDv/IoKHtUBrl7Em6j+wrL22RoR5Ca+btn92Iw7f +cDPZTSJcpO5r0Dy/G3n3FVwIYCKBL08N8/BxMoLwpQZVXhJU7LPoVnchotFH +ddQmPhLwhqd5pSkS0aWKsH47ARJciPbO7/9GQPkfhWZCt5NAZpvZ0p1rBMSv +p8/7XoQESkffdlbu0UCff4Qej1YkwY1Y6YdLrKoogO2Qm4wyCSQP2GV75aqg +HWJCPjUqJNA7fzxAyUQFmZo+CZ1UJ8HVrVkajpHKqDynq5CiSYINHS8rQ1kl +FHJsx+9vBiRIaPRdz4qSR+Le48yhhiSA7OWSMCSPqsPzeYSNSaAsl8DsvSCH +5it0pUz2k8Daroz/kL0cst56Yn/aIRIcyxHoeKsti2SbHz849B8JMrk87fZJ +SKNu1bWcMQcSVMps/ez0SQr5Pdhf4eFIgpj6wiv7c6QQ7cxsT/hJElTrHTvu +qyqFLvCpcL5yI0HO6BNVHhNJ9Op4ib/GJbpf6eZXV7TFkHv739svL5NALcVU +8uFbUSRAtEgy86WPi/I3xXqLotMsPyvdrpGgV6xszr5EBHEXEr+nB5FARzLX +a1VHGNmvVTrxRZMgYNiC0hcuhFicWc+nxZCAxOAkFKcphEpoNtdVY0kwoTsc +7jK5AzGmrybvj6f7e9JJg7B/B8o31nkblEwCgd7iw8zC29FK3AvjhVwSDKsz +fm74KoDSNrmsbzwmwcqtooNbCwTQ/tMOzjxPSMCYsa6te0YAPdrzJ1CpiAQq +V1pEpOf40d6PqPpkOQkan6ZJT6zwoVi1JuU39SRIvHKj6oXrVpSv8x9ncAMJ +ZtMmTxQs8qBXhsvTxCYSdPCbMu+9yYO+H5PPvddK1/fixDnrbG5kFn5HwvI1 +Cc6rv3p56vcWxDZ+ZFvvCD3+KQo4/GBHYnNfF2+8I8GaeOzEngR2tHsltE/j +PQle6iQRPHTZ0Smuqpi7H0mQdW/fk9I7bKhBW4TTYpoE/+3yljbXZUX+sV/+ +dC2T4MjdqKwffUwo7mHA2PVVElzT23Fx7DYTKsjb/kJtjQScVYO1g3uZ0HDd +Pr/oDRLIug2fnqhiRFqzhYvmTGSAplMSm8UM6KfBpWkaLxn6ZGcO8sT8oXAc +5Gnz5yfDMwZOLy3RPxQJu7wcFUEy3Kz8WstVtEk5dG74ZOQOMkg3kK9m9W5Q +ClP0x0zFyGC++UxwVPU35fQSS1+nMhl4fi56Bqv+ojgWGHU7qJJhu6FWZfnw +KsX2ZCjthxoZuMj3ebnCVykmPcxt24lk+JxYKyY7sUKRL2R6cVKbDJTHZ80j +i5cpk84MueuGZFjU7pZa8VmkjO2CrChjMrxaC0qZUF+k9PfeSJfYRwblxa2H +m+YXKC3oX7KxKRkmez490PNcoOQI/425d5gMLT1JP7su/KS4vNnwUzpOhgsi +SqLFVt8oDrf1rtQ5koFTxtbPf2aeYg3+Fy2cyLDtjmddR+A8xajk99nLp8jg +ynRgN630K0X2zrpz4xl6/HbX9D9Lz1G+GPwyP3aFDKTFJF/pA9OU0TUt03lf +Mrx+0/wtbmmK8qb0yr4bV8lw3IX1mVb6FKVJbNUgN4AM+QP7vNl/T1Ky1pe1 +FoLJYHjjsMl/Lycozk8XJW/fJYP/5orfad/PFK9gq03Te2RgEV8JOqLymXLZ +qnKIO54MXc/5GX0+fqLcWrkcE/uADJfvDeSRDn2ilOxZ30hMJcOyafjOA9of +KdVb7IeOpZOhWVR1/N7MOKXxXW25SCYZKhT9/5W4jFP6rwecSc8hA0fMGVvJ +Ux8o643/BvMKyfBn+mD4H98xClO8U7l7MRmY1+rZ2ZjGKNwujdHKpWT4Ya2V +PR/9jiLOFmJUUk7XM7JRoVU4SjEyZSt/VkOvF8nm3au/hymxb7ijW9rJ0JFx +w1N3doCSkn3WPbyTXl/lu4Vmowco2Ze6DffTyCD5jWkn9+4ByvMdsb9p3WSo +VC1iTgrtp4zZC7q/HSDDkb/d7cpabylTKpcM7w+RIWRovv7D5BvKj81+8aMj +ZLjmf0Do3YM3FKb0BwOjY2S4r/X8RtJmH0Xhyy7Dz1/IkHJ05dbDwV4KofKa +eM4kGZbs31ixx/ZSdMPerbtOk8GOn5aWYNpLMVdILZudo/v9kWzGHN5DueAp +Kb6wQAYBQZlqm5tdlAD9m+vlS2S4c0JexIK1ixLG87n/0goZPtIW6kwiX1OS +SrMj19bIMIwzu/lSaZSsIBa32t9kEBoNuv9WkUYptHTdG7BJBjkP4v7Lz6mU +Suk2MfSXDHkM2o7fjamU+iX59X//yFArWuKlPdRJ+R9VvE0v + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.21308275435714077`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 20}, {0., 0.21308275435714077`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}, + 3.9921130123273087`*^9}, + CellLabel-> + "Out[121]=",ExpressionUUID->"40638c45-c86d-7548-8e86-ee6f812d15c4"] +}, 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[122]:=",ExpressionUUID->"cec9d659-40a4-9344-876a-cec895b68137"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1858108896994459`*^-225\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 122, 658, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992113012427273*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"fccf9ad5-768f-aa46-b2be-4514d63a854a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4285997747323577`*^-231\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 122, 659, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992113012449276*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"610843a2-592c-2c4d-b17e-e3c31fe8e872"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7210984770789436`*^-237\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 122, 660, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921130124732666`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"6c936a58-f49b-c344-98d5-a44b5064c7ba"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 122, 661, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921130124992733`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"71a2acba-fa3a-1549-bade-61c67b202e1a"], + +Cell[BoxData["26.317865531783436`"], "Output", + CellChangeTimes->{3.992113095225609*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"97cfae6c-c065-a844-be76-0428d1006809"] +}, 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.991847653697838*^9, 3.991847658442892*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"dcfb8a1f-77bf-c54a-8dd4-08e72b48e971"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5141521085875795`*^-247\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 123, 662, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921130953283463`*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"028be4b4-912b-324e-939d-a0d250e0021e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.668107707033072`*^-256\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 123, 663, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921130953463554`*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"dca5b815-9844-1244-983e-451ffcf2a9e5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4391704400681853`*^-264\\\", \ +\\\"67615075532642592962076366156210530912566907412833894400000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 123, 664, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992113095364254*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"98e39870-633d-ec4e-9b56-e246fc40b688"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 123, 665, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921130953863525`*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"328c80df-10f2-f244-9bda-e4f5555f39b7"], + +Cell[BoxData["0.0010083944436825147`"], "Output", + CellChangeTimes->{3.992113104559675*^9}, + CellLabel-> + "Out[123]=",ExpressionUUID->"0631cb22-b670-3846-ad15-69639b34022b"] +}, 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.991847661764683*^9, 3.991847664668476*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"b256ae65-c9c8-994b-815e-de484a821375"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5141521085875795`*^-247\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 124, 666, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921131046406937`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"a82d887b-cf97-6b46-a81b-193dcc5db986"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.668107707033072`*^-256\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 124, 667, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921131046585827`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"a9905666-f15b-4c40-8781-b88430d867e9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4391704400681853`*^-264\\\", \ +\\\"67615075532642592962076366156210530912566907412833894400000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 124, 668, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921131046776867`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"0845c60d-d0dd-2e49-909d-096abc25c63c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 124, 669, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992113104697687*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"af33df1d-0871-2e4d-bf1f-afb5e3a9b3ee"], + +Cell[BoxData["3.4775330919161767`"], "Output", + CellChangeTimes->{3.9921131132556973`*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"78a3b590-1bdd-8b4d-b726-29e6c53ab39e"] +}, 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.9918476677400265`*^9, 3.9918476736757298`*^9}}, + CellLabel-> + "In[125]:=",ExpressionUUID->"8fd338d4-a1be-6841-b853-e94a67cb9612"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5141521085875795`*^-247\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 125, 670, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992113113381714*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"45fdeccf-459c-4240-bc03-bfca0b0bbd02"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.668107707033072`*^-256\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 125, 671, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921131134136047`*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"4e1e727b-aa53-ec46-a783-e278e6529280"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4391704400681853`*^-264\\\", \ +\\\"67615075532642592962076366156210530912566907412833894400000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 125, 672, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992113113432705*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"4d3c3bfb-fecf-6c4b-887a-0eaa241bd20d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 125, 673, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921131134526997`*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"4e59ee48-9d44-184b-9c04-eafa5d094697"], + +Cell[BoxData["186.11127940831187`"], "Output", + CellChangeTimes->{3.992113119055355*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"2b9e0d78-970e-8649-92dd-a3e019636172"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918476765269012`*^9, 3.9918476808687553`*^9}}, + CellLabel-> + "In[126]:=",ExpressionUUID->"9231c462-6016-ac42-bd11-cb0c7e92fda2"], + +Cell[BoxData["0.00003963770133558771`"], "Output", + CellChangeTimes->{3.9921131191686783`*^9}, + CellLabel-> + "Out[126]=",ExpressionUUID->"d13ae2fe-024d-084b-a317-157213c4ff24"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918476877717896`*^9, 3.9918476906207848`*^9}, + 3.9919236729399815`*^9}, + CellLabel-> + "In[127]:=",ExpressionUUID->"7b4f4188-e9b4-a249-91fe-f977b92c20b2"], + +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->"e639aabf-9918-b148-b52f-1037c590e22d"], + +Cell[BoxData["1.283309142944473`"], "Output", + CellChangeTimes->{3.992113119203911*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"b9201ddd-7c20-7e4a-8265-51dcc39e73a1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[129]:=",ExpressionUUID->"9f21bdcd-6887-bf47-af20-cb6fe2ae22d1"], + +Cell[BoxData["12.466014133126249`"], "Output", + CellChangeTimes->{3.992113119220913*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"2944e89a-4f02-5847-8353-94d2e5ac1dd4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[130]:=",ExpressionUUID->"807c9644-b813-4545-bd97-a39923ad2c85"], + +Cell[BoxData["15.997749913115934`"], "Output", + CellChangeTimes->{3.9921131192369156`*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"d3b4e679-eaee-9d44-9a2a-89e4272596ba"] +}, 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->"c029bbe7-1e0d-6c47-9817-6aab8cca4349"], + +Cell[BoxData["0.061472169879239466`"], "Output", + CellChangeTimes->{3.9921131192596874`*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"8d329473-571e-0142-b3e0-33fc6339b70d"] +}, 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->"02414061-9268-3a40-809c-791f7b1bc727"], + +Cell[BoxData["3.5744207205379914`"], "Output", + CellChangeTimes->{3.992113119498785*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"15d28748-874b-4144-9954-8631e6cdd1db"] +}, 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->"0cf6ee00-990f-aa48-80f8-a2822701e626"], + +Cell[BoxData["0.001152999770944126`"], "Output", + CellChangeTimes->{3.9921131195240364`*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"6283aa2c-c7ea-f94e-aa33-c6dc4e7368d2"] +}, 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->"0e7a310e-8267-084b-8d71-ceb0b816dd18"], + +Cell[BoxData["26.09938838535457`"], "Output", + CellChangeTimes->{3.9921131197421627`*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"9fdbde2e-6fae-9843-b3b0-de88109ff1c8"] +}, 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->"16870642-9452-a14f-a1b7-576792706e56"], + +Cell[BoxData["0.9825098148127043`"], "Output", + CellChangeTimes->{3.992113119762062*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"5d9fdd3f-b9c9-5845-84dc-8ee718f98c42"] +}, 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->"207b673b-eb18-904e-8dba-9c1c1dd6034c"], + +Cell[BoxData["0.017490185187295736`"], "Output", + CellChangeTimes->{3.9921131197821026`*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"10aee8b1-4533-594c-9e18-abc1e63104d6"] +}, 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->"fcc33f59-ac5d-dc44-a6a0-01cb1397795c"], + +Cell[BoxData["0.017184278609409836`"], "Output", + CellChangeTimes->{3.9921131198091545`*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"45e92fd4-f829-a043-9bc7-4c8a64477bd3"] +}, 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.9918477038948536`*^9}, + CellLabel-> + "In[138]:=",ExpressionUUID->"c2bffed8-3648-ee47-bc6e-be191758bd92"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.8719435058172795`*^-254\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 138, 674, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921131198503876`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"c6de5648-07bc-ce4c-b124-1ac24d3aea7d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3831203752204099`*^-262\\\", \ +\\\"67615075532642592962076366156210530912566907412833894400000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 138, 675, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921131198774776`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"9db0dd19-137d-1741-ba20-1b734cb493f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.940728007719351`*^-271\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 138, 676, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921131198993664`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"b4a473fa-0025-0e47-a404-994a4f92ba5a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 138, 677, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921131199153767`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"6996ccf4-f04f-ca4f-a061-e46f26aea6f9"], + +Cell[BoxData["3.5744207205379914`"], "Output", + CellChangeTimes->{3.9921131260295944`*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"fa45c27f-0111-b148-a46f-76badc1f0358"] +}, 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.9918477072468624`*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"162c1d78-b731-9743-923d-e14e238c88c0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.8719435058172795`*^-254\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 139, 678, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921131261355286`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"b262bfc8-b51f-f049-949d-0ae5325b0332"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3831203752204099`*^-262\\\", \ +\\\"67615075532642592962076366156210530912566907412833894400000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 139, 679, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992113126151636*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"fc021f2b-f23e-f043-aa94-157b8059cf74"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.940728007719351`*^-271\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 139, 680, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921131261705894`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"612049b8-ee24-6746-863b-ebc5ceb54f21"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 139, 681, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992113126192623*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"e43f47bf-22e5-7d40-9ec4-0c62ad635cec"], + +Cell[BoxData["26.099388385354565`"], "Output", + CellChangeTimes->{3.992113132528944*^9}, + CellLabel-> + "Out[139]=",ExpressionUUID->"01d612ef-be18-bb43-8dbe-be9c8d4bcf5b"] +}, 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.991847711887806*^9}, + CellLabel-> + "In[140]:=",ExpressionUUID->"e062485f-eb72-5b44-8f24-f29169102337"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwd1Xk0VesbB/BDSOZZJTLrGEqGKNV+zEKiVIZIxzm7qAyHpISE3CZFk+7N +UGaRKcpw1UUoiqJJmQrJdE4qEun37N8fe+31Wc+7nvf7DmtvFUbgdhYvjUab +wId6Bz9frXW/4/nmzpTuOfFsDrF5MsuYYVVIzLpdXaDcn77uirpVLZHg91hA +Au3MfCYgYviYcH/qL0O5NDy6gd+qjbA+Hq9F+UzT0kfRBS8Iq3BZoFzVEZw2 +b/CKWNOw3JvyaPfTE8dq3hK/3K7GUF4+pOY5bfmB4DWNL6DswDmxPqStjzjk +NfqWct38qHB4wQBR1dQoIol+HSMfURnwiZAMlrGhPClgNfrdYIjQdn8XR1ng +fJC74cwwoRAh/YSykmRqS3DNCLGjs15KCu2kMJ0zaTlODMrEVFImM1Tl9AQn +iebvFyWk0dEa2+IPtnGI+hnpIMpv5bvWhhZ8JdguEYQMmunh73f5/BRhfNO7 +mDL3Ju1WWcA3wm6qUl0WLaiqJ/HV4AexI7tppRz6CrPBVkJ2mmj4FplNWTnX +PXrNzDSRr1+gL4821T09ebjmJ1Gxc9/upegD6/raRi3niYndW4aXo7+HH+ET +0vxN6KzKva6APlkjvJEuuEAQacecVqBTwPTO/rY/RJrziTZFKl92ixW7gAfC +rswsUUEXNF3uj1HgBab77DBl7mfvE0nneWGADHyiij6h/aO8JGARmGs9SFOn +8harqHEM+GGktvrsKnR3x3jdQiY/dNt6XaZT+afue4jJCkBqQcgtbXShkVOy +3owACD6Ye6aLbqw6znOoRhBUdY8eWIv+0dDZN2IpAudNRDLN0FKOIhIRdSJw +x7RWeRNav8sKRNeLgltwZ9ZmtP9gRcba1WIguNLkkTk6iLdNf5OIBGxmd1ja +oYdU736Nn5aEocq1Ubuo/SGfLmk3lII3Y7YMNzTvnWGVpcFSYHKywdGDymu4 +cnvBmBSMwqiRN9rD8lLZ835paNg/5UKi233ZIfKtsmAy+6zuKLo3N/Gcj6Ac ++GTQlxxHj48VZOZby0H23hH3E2ih0E+dZo/kgHY6USwGbRXnauRTIQ9Hv4U3 +nkVXZ637kZe+DCy+ZTDS0VlDv8I2hCqC8ac58hnabmdCb0iRIvwr+MKug+rf +KG1TNKwI4nkG+p1ooyxdWWV3JTiV9bf4O2o/Gd7l/JtXgnD5T4kh9BSn/+hI +rDIIiDxWXEBLH7a6V75VFXgzHb2NcjjEcJbQAWd/Vdh2Z+dXE/SDDx0KE6dV +QUV86IwZeo+jV6zmI1UQk7jWaoHO0gnbfsNADU5xNyS5oI1Gc7lR8uqwb8Rb +Iwjtul9Yz35AA4qiQgNL0UTYToPdvzWgfo1vagVaOz7dhLlMEyzpf3dUoWmZ +hhZRLprAz9NvU48u6vXcXfafJpjFNbI70QK7CmOW39aCwb6q5mkqn9XW16MM +OogfTGSa53KIzB3X389E0YGtKGRmg05kDPTz/UOH2I+P5RzQzJNHxpQ66TB2 +dr7HFS1Zm0rbYakNnxO87xxA+xtOateo6UDI2wrzJLSC6sXoc4O6MOWW6zGM +rj37nT7LqwfiggvbxtF7vrl3kSp6EK9/1GEKndaoTrfw1oOb29tdF9Cq+6tf +/nyjB3KXhEvl8nC9hUMaZOtqiFzvdtEOraigRCq760MYbVt/CVo3O1RkjjAA +E99H1ZfzOQSDGftDz8kANgm7VfyNTlFL7vXZYwDekasrbqEX3S4uaQo3gAXF +a43F6O60UdfkUgPQemml2oY+k+KTSlczhFciDW/5C/B8zzmudhMwgtUc+zWR +6FtsdeeKNmNQ+tLiF3GHQ3SEESZx2evB5lVs6kgRh1DxfuXkdWgT9K7Y35hd +wiFYfyrvKh4DWJt7779T5RxCfuzBYnmGBZgwYpK4lRwi1HDjh2RtKwi162wO +qMb8E/Mt0qPWIKRiqadUh+dpEbI4vd0WBk5OpjDr8f589/+v8MoWUP/1zCmj +iUP8NF/6rDHaAW4M09lhrRyih7bo68C+rfBTYad0cAeHCFgReClGbRt4Rar0 +Wb/iEHf9Wh5djXcGr2VR3mXdHOL4t2UzOn4u8DvnLPmlD78f9ja7mvduh41F +H6/cG+IQ6z2TzIdcdoDXsciLsWMc4uWyVP9GQ1eg+fWm8X3F/0lObG3eqp3w +xeX1gOgM3q9+bUcn0V2wV9pjU808/g+6uPvDJnbBL5lA01U8XMLwalJhZv9u +aJbKf7Kaj0uk8n1bndzgBkZyWqILAlyi0nxNd3yVOyzuPHiYV4hLpJiclZwv +8IDTrr7qkyJcov199mnD857QkCxq/I84l6jYelM96OQeeBFSeCZYikt8PbyD +FsD0Av4R1VX8slzihw39wKSlNyweZ0wflecSeRPvfoas2wuzu7JWLF7OJdxu +Zft6ifgA78NAhvMKLlFe5rB3UYIPPO9Sar6jxCXWK7ycPTPrAyWzS9IfKnMJ +tf793S/89oH17pMO+apcYlD44Labn/aB116FomvqXKIj0cnXdicDylyCH27S +5BJXwtOFj3QwAHaFH+7R4hK1dX9mfbf4gvK5RF87OpcQ3wMJhtW+UPQwRy9Y +m0soyzS3r6j1BZnnwt1H0PptW5cK1PlCQhoj9jh6+0bP/Lf/+UKu8mBbLPrK +irDWyCe+4P1d1+waennPHfGWt77AHf8rrhqt7i2fsmfGF6wqxFpoOrgen8m8 +eCMmZI2vo8Whc25wQ5zWMaFSyyIrAS3TObVZ3pQJU/eTrM+hJ61nuvLMmHBg +aD46GZ2lQ+Nps2BC3of5zgy02Iyku5QLEz7IBP6sRQ9eMF6SfpgJsU/j1n5D +uzSbdO0PZEL6pbzIaXQdbUO6fjATngUsaZ5F3wjZbFwfyoTs6zEuNF0u4eRu +u28oggl9mdbWougqdfcqnbNMOBkzkauJTqw54fcgB8dnOLrtRh82uL4+PI8J +ZyvfbfRAO+aXLjEtwPGaVUpeaKHrw/n3i5gQ6hnQzUDHs51HK+8xwV+qaG0A ++gRd/WBFPRMeLnHdG4f2v956qKyXCSN/S1feRW8RG97I7meC/sGrVqXoVfE0 +UYOPTFikxOwoRw+zjYtKh5hQmvC57wF6n1P6RMk4E+hzMb31aDf+kIDiX0x4 +G/TR/TXaNmR5UKEcC8SmLOzm0PXpp+2Tl7LgLs/akt/ojW1T6uHLWZA0NCZD +08Pz12h9Z6nEAsEjzV186GVvIizfa7DAq01itRh6bEOPnJAxCyK5j22U0Rd5 +M/7dv4MFf1ZcFrdAC60RSdm6kwXaR1skrNBxnuFsw90sOBX0WMwGHX7PWeuP +Bwtm8mV57NH7SJ6kawwWuGgKP3RBGz5lMB8Hs6AqSjvDB/0mSUNY7RILwvi2 +TEeg7xKiB0aSWPD1eG9oJNV/4ntj0WUWVAfe5kahDbY0RpleZ0E4u6IvBp1I +853amsaC0g38NxPQNoEZ78ILWWC/1+RCMlpR8a91m++y4FdOfu9l9PengZcX +lbBAec5O7yr6tiaxNbGcBZVssfrr6N89PY8yq1kQ51T25Cb6nqNC3vMWFqQ9 +c3DJQZ/7xct/5SkLjDTjj+SiGXmj+9zbWPDbdvRaHlqCr1phsJ0FRTdNXhSg +D9W4XZx9zYKscx/UitFq2tfC1IdwflUwv4/+9Say88swC1Qq9EwfoDviWfrF +Iywom7fWrUJHDRiNrh9nQYf/tHANujul02vbNxa0yu7Mr0MnL5a0Ps5Dwqo3 +856P0bVTPZ6hi0ho/dSxsQn9uaeAHcCPdZ4Vy5vRG+9ZZTCWkGCpJf+0BT3s +Ez5nL0nCIvP0P61UfkdrKWtpEm58pTe2oc1MpOiELAm3dXXin6EviRbuMlxG +wja+pPnnVL26r1RBhYSOGyOPXqDJ7MIWWTUS7s1p+L2kxl861ieuQcL3kHei +ndR8pLQoH52EXvZtxy6qLm17YFyfhOItNemv0dUL0tHDBiS0zOXqvEEPfem/ +2m9EgitD6B7lDY+ON3SZkmCsol/9Fj146K7Sv0CCofXCP91oMbcI4/sWJEwf +vS78Hr3e0s6x1IqEcPGco5QTl308lm2H67dXs/6AfsBXfCndngTBnqQcyp84 +Ebk3HEk4U36Erwdt2iT76oIzCe2iqRWUGaUfxxK2k+Ae2y/Yi75ws5j3lCsJ +Kso33Ch/ZG/RD3MjYWWl3wRlUW852yAPEhiZMQZ9VL8tn7z892C+dLFQyhdW +Rp7z9iHBqyxhnPIDIfvbbgwSoutC1Pqpfj/kqrYzSUhp6tpFWXTgU7sjScLF +poLTlE3bSoZtDpAQX/2jjDLjfuRv8CeBk1bxnvKF2/YyZodIiAkapQ1Q/S/I +6xgHkGCte0WV8sfwQfM1QVhvLwPKIsxSNzob789uG0/KJtuiAtVCSeBrcGJT +ZmxwOK0YRoKDeFs85fMaS1Plw0mQMau7SrlSYqhc8jgJstYatykPzJU+FT5B +grMuz53/9/8cNcAfRYIk16WE8rqXDj//RJMwelG+jPL/AOq/BD0= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwd1Xk0VesbB/BDSOZZJTLrGEqGKNV+zEKiVIZIxzm7qAyHpISE3CZFk+7N +UGaRKcpw1UUoiqJJmQrJdE4qEun37N8fe+31Wc+7nvf7DmtvFUbgdhYvjUab +wId6Bz9frXW/4/nmzpTuOfFsDrF5MsuYYVVIzLpdXaDcn77uirpVLZHg91hA +Au3MfCYgYviYcH/qL0O5NDy6gd+qjbA+Hq9F+UzT0kfRBS8Iq3BZoFzVEZw2 +b/CKWNOw3JvyaPfTE8dq3hK/3K7GUF4+pOY5bfmB4DWNL6DswDmxPqStjzjk +NfqWct38qHB4wQBR1dQoIol+HSMfURnwiZAMlrGhPClgNfrdYIjQdn8XR1ng +fJC74cwwoRAh/YSykmRqS3DNCLGjs15KCu2kMJ0zaTlODMrEVFImM1Tl9AQn +iebvFyWk0dEa2+IPtnGI+hnpIMpv5bvWhhZ8JdguEYQMmunh73f5/BRhfNO7 +mDL3Ju1WWcA3wm6qUl0WLaiqJ/HV4AexI7tppRz6CrPBVkJ2mmj4FplNWTnX +PXrNzDSRr1+gL4821T09ebjmJ1Gxc9/upegD6/raRi3niYndW4aXo7+HH+ET +0vxN6KzKva6APlkjvJEuuEAQacecVqBTwPTO/rY/RJrziTZFKl92ixW7gAfC +rswsUUEXNF3uj1HgBab77DBl7mfvE0nneWGADHyiij6h/aO8JGARmGs9SFOn +8harqHEM+GGktvrsKnR3x3jdQiY/dNt6XaZT+afue4jJCkBqQcgtbXShkVOy +3owACD6Ye6aLbqw6znOoRhBUdY8eWIv+0dDZN2IpAudNRDLN0FKOIhIRdSJw +x7RWeRNav8sKRNeLgltwZ9ZmtP9gRcba1WIguNLkkTk6iLdNf5OIBGxmd1ja +oYdU736Nn5aEocq1Ubuo/SGfLmk3lII3Y7YMNzTvnWGVpcFSYHKywdGDymu4 +cnvBmBSMwqiRN9rD8lLZ835paNg/5UKi233ZIfKtsmAy+6zuKLo3N/Gcj6Ac ++GTQlxxHj48VZOZby0H23hH3E2ih0E+dZo/kgHY6USwGbRXnauRTIQ9Hv4U3 +nkVXZ637kZe+DCy+ZTDS0VlDv8I2hCqC8ac58hnabmdCb0iRIvwr+MKug+rf +KG1TNKwI4nkG+p1ooyxdWWV3JTiV9bf4O2o/Gd7l/JtXgnD5T4kh9BSn/+hI +rDIIiDxWXEBLH7a6V75VFXgzHb2NcjjEcJbQAWd/Vdh2Z+dXE/SDDx0KE6dV +QUV86IwZeo+jV6zmI1UQk7jWaoHO0gnbfsNADU5xNyS5oI1Gc7lR8uqwb8Rb +Iwjtul9Yz35AA4qiQgNL0UTYToPdvzWgfo1vagVaOz7dhLlMEyzpf3dUoWmZ +hhZRLprAz9NvU48u6vXcXfafJpjFNbI70QK7CmOW39aCwb6q5mkqn9XW16MM +OogfTGSa53KIzB3X389E0YGtKGRmg05kDPTz/UOH2I+P5RzQzJNHxpQ66TB2 +dr7HFS1Zm0rbYakNnxO87xxA+xtOateo6UDI2wrzJLSC6sXoc4O6MOWW6zGM +rj37nT7LqwfiggvbxtF7vrl3kSp6EK9/1GEKndaoTrfw1oOb29tdF9Cq+6tf +/nyjB3KXhEvl8nC9hUMaZOtqiFzvdtEOraigRCq760MYbVt/CVo3O1RkjjAA +E99H1ZfzOQSDGftDz8kANgm7VfyNTlFL7vXZYwDekasrbqEX3S4uaQo3gAXF +a43F6O60UdfkUgPQemml2oY+k+KTSlczhFciDW/5C/B8zzmudhMwgtUc+zWR +6FtsdeeKNmNQ+tLiF3GHQ3SEESZx2evB5lVs6kgRh1DxfuXkdWgT9K7Y35hd +wiFYfyrvKh4DWJt7779T5RxCfuzBYnmGBZgwYpK4lRwi1HDjh2RtKwi162wO +qMb8E/Mt0qPWIKRiqadUh+dpEbI4vd0WBk5OpjDr8f589/+v8MoWUP/1zCmj +iUP8NF/6rDHaAW4M09lhrRyih7bo68C+rfBTYad0cAeHCFgReClGbRt4Rar0 +Wb/iEHf9Wh5djXcGr2VR3mXdHOL4t2UzOn4u8DvnLPmlD78f9ja7mvduh41F +H6/cG+IQ6z2TzIdcdoDXsciLsWMc4uWyVP9GQ1eg+fWm8X3F/0lObG3eqp3w +xeX1gOgM3q9+bUcn0V2wV9pjU808/g+6uPvDJnbBL5lA01U8XMLwalJhZv9u +aJbKf7Kaj0uk8n1bndzgBkZyWqILAlyi0nxNd3yVOyzuPHiYV4hLpJiclZwv +8IDTrr7qkyJcov199mnD857QkCxq/I84l6jYelM96OQeeBFSeCZYikt8PbyD +FsD0Av4R1VX8slzihw39wKSlNyweZ0wflecSeRPvfoas2wuzu7JWLF7OJdxu +Zft6ifgA78NAhvMKLlFe5rB3UYIPPO9Sar6jxCXWK7ycPTPrAyWzS9IfKnMJ +tf793S/89oH17pMO+apcYlD44Labn/aB116FomvqXKIj0cnXdicDylyCH27S +5BJXwtOFj3QwAHaFH+7R4hK1dX9mfbf4gvK5RF87OpcQ3wMJhtW+UPQwRy9Y +m0soyzS3r6j1BZnnwt1H0PptW5cK1PlCQhoj9jh6+0bP/Lf/+UKu8mBbLPrK +irDWyCe+4P1d1+waennPHfGWt77AHf8rrhqt7i2fsmfGF6wqxFpoOrgen8m8 +eCMmZI2vo8Whc25wQ5zWMaFSyyIrAS3TObVZ3pQJU/eTrM+hJ61nuvLMmHBg +aD46GZ2lQ+Nps2BC3of5zgy02Iyku5QLEz7IBP6sRQ9eMF6SfpgJsU/j1n5D +uzSbdO0PZEL6pbzIaXQdbUO6fjATngUsaZ5F3wjZbFwfyoTs6zEuNF0u4eRu +u28oggl9mdbWougqdfcqnbNMOBkzkauJTqw54fcgB8dnOLrtRh82uL4+PI8J +ZyvfbfRAO+aXLjEtwPGaVUpeaKHrw/n3i5gQ6hnQzUDHs51HK+8xwV+qaG0A ++gRd/WBFPRMeLnHdG4f2v956qKyXCSN/S1feRW8RG97I7meC/sGrVqXoVfE0 +UYOPTFikxOwoRw+zjYtKh5hQmvC57wF6n1P6RMk4E+hzMb31aDf+kIDiX0x4 +G/TR/TXaNmR5UKEcC8SmLOzm0PXpp+2Tl7LgLs/akt/ojW1T6uHLWZA0NCZD +08Pz12h9Z6nEAsEjzV186GVvIizfa7DAq01itRh6bEOPnJAxCyK5j22U0Rd5 +M/7dv4MFf1ZcFrdAC60RSdm6kwXaR1skrNBxnuFsw90sOBX0WMwGHX7PWeuP +Bwtm8mV57NH7SJ6kawwWuGgKP3RBGz5lMB8Hs6AqSjvDB/0mSUNY7RILwvi2 +TEeg7xKiB0aSWPD1eG9oJNV/4ntj0WUWVAfe5kahDbY0RpleZ0E4u6IvBp1I +853amsaC0g38NxPQNoEZ78ILWWC/1+RCMlpR8a91m++y4FdOfu9l9PengZcX +lbBAec5O7yr6tiaxNbGcBZVssfrr6N89PY8yq1kQ51T25Cb6nqNC3vMWFqQ9 +c3DJQZ/7xct/5SkLjDTjj+SiGXmj+9zbWPDbdvRaHlqCr1phsJ0FRTdNXhSg +D9W4XZx9zYKscx/UitFq2tfC1IdwflUwv4/+9Say88swC1Qq9EwfoDviWfrF +Iywom7fWrUJHDRiNrh9nQYf/tHANujul02vbNxa0yu7Mr0MnL5a0Ps5Dwqo3 +856P0bVTPZ6hi0ho/dSxsQn9uaeAHcCPdZ4Vy5vRG+9ZZTCWkGCpJf+0BT3s +Ez5nL0nCIvP0P61UfkdrKWtpEm58pTe2oc1MpOiELAm3dXXin6EviRbuMlxG +wja+pPnnVL26r1RBhYSOGyOPXqDJ7MIWWTUS7s1p+L2kxl861ieuQcL3kHei +ndR8pLQoH52EXvZtxy6qLm17YFyfhOItNemv0dUL0tHDBiS0zOXqvEEPfem/ +2m9EgitD6B7lDY+ON3SZkmCsol/9Fj146K7Sv0CCofXCP91oMbcI4/sWJEwf +vS78Hr3e0s6x1IqEcPGco5QTl308lm2H67dXs/6AfsBXfCndngTBnqQcyp84 +Ebk3HEk4U36Erwdt2iT76oIzCe2iqRWUGaUfxxK2k+Ae2y/Yi75ws5j3lCsJ +Kso33Ch/ZG/RD3MjYWWl3wRlUW852yAPEhiZMQZ9VL8tn7z892C+dLFQyhdW +Rp7z9iHBqyxhnPIDIfvbbgwSoutC1Pqpfj/kqrYzSUhp6tpFWXTgU7sjScLF +poLTlE3bSoZtDpAQX/2jjDLjfuRv8CeBk1bxnvKF2/YyZodIiAkapQ1Q/S/I +6xgHkGCte0WV8sfwQfM1QVhvLwPKIsxSNzob789uG0/KJtuiAtVCSeBrcGJT +ZmxwOK0YRoKDeFs85fMaS1Plw0mQMau7SrlSYqhc8jgJstYatykPzJU+FT5B +grMuz53/9/8cNcAfRYIk16WE8rqXDj//RJMwelG+jPL/AOq/BD0= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9888992232343078, + 1.0112015682907392`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.98889922323431}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.9888992232343078, + 1.0112015682907392`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.98889922323431}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwd1Xk0VesbB/BDSOZZJTLrGEqGKNV+zEKiVIZIxzm7qAyHpISE3CZFk+7N +UGaRKcpw1UUoiqJJmQrJdE4qEun37N8fe+31Wc+7nvf7DmtvFUbgdhYvjUab +wId6Bz9frXW/4/nmzpTuOfFsDrF5MsuYYVVIzLpdXaDcn77uirpVLZHg91hA +Au3MfCYgYviYcH/qL0O5NDy6gd+qjbA+Hq9F+UzT0kfRBS8Iq3BZoFzVEZw2 +b/CKWNOw3JvyaPfTE8dq3hK/3K7GUF4+pOY5bfmB4DWNL6DswDmxPqStjzjk +NfqWct38qHB4wQBR1dQoIol+HSMfURnwiZAMlrGhPClgNfrdYIjQdn8XR1ng +fJC74cwwoRAh/YSykmRqS3DNCLGjs15KCu2kMJ0zaTlODMrEVFImM1Tl9AQn +iebvFyWk0dEa2+IPtnGI+hnpIMpv5bvWhhZ8JdguEYQMmunh73f5/BRhfNO7 +mDL3Ju1WWcA3wm6qUl0WLaiqJ/HV4AexI7tppRz6CrPBVkJ2mmj4FplNWTnX +PXrNzDSRr1+gL4821T09ebjmJ1Gxc9/upegD6/raRi3niYndW4aXo7+HH+ET +0vxN6KzKva6APlkjvJEuuEAQacecVqBTwPTO/rY/RJrziTZFKl92ixW7gAfC +rswsUUEXNF3uj1HgBab77DBl7mfvE0nneWGADHyiij6h/aO8JGARmGs9SFOn +8harqHEM+GGktvrsKnR3x3jdQiY/dNt6XaZT+afue4jJCkBqQcgtbXShkVOy +3owACD6Ye6aLbqw6znOoRhBUdY8eWIv+0dDZN2IpAudNRDLN0FKOIhIRdSJw +x7RWeRNav8sKRNeLgltwZ9ZmtP9gRcba1WIguNLkkTk6iLdNf5OIBGxmd1ja +oYdU736Nn5aEocq1Ubuo/SGfLmk3lII3Y7YMNzTvnWGVpcFSYHKywdGDymu4 +cnvBmBSMwqiRN9rD8lLZ835paNg/5UKi233ZIfKtsmAy+6zuKLo3N/Gcj6Ac ++GTQlxxHj48VZOZby0H23hH3E2ih0E+dZo/kgHY6USwGbRXnauRTIQ9Hv4U3 +nkVXZ637kZe+DCy+ZTDS0VlDv8I2hCqC8ac58hnabmdCb0iRIvwr+MKug+rf +KG1TNKwI4nkG+p1ooyxdWWV3JTiV9bf4O2o/Gd7l/JtXgnD5T4kh9BSn/+hI +rDIIiDxWXEBLH7a6V75VFXgzHb2NcjjEcJbQAWd/Vdh2Z+dXE/SDDx0KE6dV +QUV86IwZeo+jV6zmI1UQk7jWaoHO0gnbfsNADU5xNyS5oI1Gc7lR8uqwb8Rb +Iwjtul9Yz35AA4qiQgNL0UTYToPdvzWgfo1vagVaOz7dhLlMEyzpf3dUoWmZ +hhZRLprAz9NvU48u6vXcXfafJpjFNbI70QK7CmOW39aCwb6q5mkqn9XW16MM +OogfTGSa53KIzB3X389E0YGtKGRmg05kDPTz/UOH2I+P5RzQzJNHxpQ66TB2 +dr7HFS1Zm0rbYakNnxO87xxA+xtOateo6UDI2wrzJLSC6sXoc4O6MOWW6zGM +rj37nT7LqwfiggvbxtF7vrl3kSp6EK9/1GEKndaoTrfw1oOb29tdF9Cq+6tf +/nyjB3KXhEvl8nC9hUMaZOtqiFzvdtEOraigRCq760MYbVt/CVo3O1RkjjAA +E99H1ZfzOQSDGftDz8kANgm7VfyNTlFL7vXZYwDekasrbqEX3S4uaQo3gAXF +a43F6O60UdfkUgPQemml2oY+k+KTSlczhFciDW/5C/B8zzmudhMwgtUc+zWR +6FtsdeeKNmNQ+tLiF3GHQ3SEESZx2evB5lVs6kgRh1DxfuXkdWgT9K7Y35hd +wiFYfyrvKh4DWJt7779T5RxCfuzBYnmGBZgwYpK4lRwi1HDjh2RtKwi162wO +qMb8E/Mt0qPWIKRiqadUh+dpEbI4vd0WBk5OpjDr8f589/+v8MoWUP/1zCmj +iUP8NF/6rDHaAW4M09lhrRyih7bo68C+rfBTYad0cAeHCFgReClGbRt4Rar0 +Wb/iEHf9Wh5djXcGr2VR3mXdHOL4t2UzOn4u8DvnLPmlD78f9ja7mvduh41F +H6/cG+IQ6z2TzIdcdoDXsciLsWMc4uWyVP9GQ1eg+fWm8X3F/0lObG3eqp3w +xeX1gOgM3q9+bUcn0V2wV9pjU808/g+6uPvDJnbBL5lA01U8XMLwalJhZv9u +aJbKf7Kaj0uk8n1bndzgBkZyWqILAlyi0nxNd3yVOyzuPHiYV4hLpJiclZwv +8IDTrr7qkyJcov199mnD857QkCxq/I84l6jYelM96OQeeBFSeCZYikt8PbyD +FsD0Av4R1VX8slzihw39wKSlNyweZ0wflecSeRPvfoas2wuzu7JWLF7OJdxu +Zft6ifgA78NAhvMKLlFe5rB3UYIPPO9Sar6jxCXWK7ycPTPrAyWzS9IfKnMJ +tf793S/89oH17pMO+apcYlD44Labn/aB116FomvqXKIj0cnXdicDylyCH27S +5BJXwtOFj3QwAHaFH+7R4hK1dX9mfbf4gvK5RF87OpcQ3wMJhtW+UPQwRy9Y +m0soyzS3r6j1BZnnwt1H0PptW5cK1PlCQhoj9jh6+0bP/Lf/+UKu8mBbLPrK +irDWyCe+4P1d1+waennPHfGWt77AHf8rrhqt7i2fsmfGF6wqxFpoOrgen8m8 +eCMmZI2vo8Whc25wQ5zWMaFSyyIrAS3TObVZ3pQJU/eTrM+hJ61nuvLMmHBg +aD46GZ2lQ+Nps2BC3of5zgy02Iyku5QLEz7IBP6sRQ9eMF6SfpgJsU/j1n5D +uzSbdO0PZEL6pbzIaXQdbUO6fjATngUsaZ5F3wjZbFwfyoTs6zEuNF0u4eRu +u28oggl9mdbWougqdfcqnbNMOBkzkauJTqw54fcgB8dnOLrtRh82uL4+PI8J +ZyvfbfRAO+aXLjEtwPGaVUpeaKHrw/n3i5gQ6hnQzUDHs51HK+8xwV+qaG0A ++gRd/WBFPRMeLnHdG4f2v956qKyXCSN/S1feRW8RG97I7meC/sGrVqXoVfE0 +UYOPTFikxOwoRw+zjYtKh5hQmvC57wF6n1P6RMk4E+hzMb31aDf+kIDiX0x4 +G/TR/TXaNmR5UKEcC8SmLOzm0PXpp+2Tl7LgLs/akt/ojW1T6uHLWZA0NCZD +08Pz12h9Z6nEAsEjzV186GVvIizfa7DAq01itRh6bEOPnJAxCyK5j22U0Rd5 +M/7dv4MFf1ZcFrdAC60RSdm6kwXaR1skrNBxnuFsw90sOBX0WMwGHX7PWeuP +Bwtm8mV57NH7SJ6kawwWuGgKP3RBGz5lMB8Hs6AqSjvDB/0mSUNY7RILwvi2 +TEeg7xKiB0aSWPD1eG9oJNV/4ntj0WUWVAfe5kahDbY0RpleZ0E4u6IvBp1I +853amsaC0g38NxPQNoEZ78ILWWC/1+RCMlpR8a91m++y4FdOfu9l9PengZcX +lbBAec5O7yr6tiaxNbGcBZVssfrr6N89PY8yq1kQ51T25Cb6nqNC3vMWFqQ9 +c3DJQZ/7xct/5SkLjDTjj+SiGXmj+9zbWPDbdvRaHlqCr1phsJ0FRTdNXhSg +D9W4XZx9zYKscx/UitFq2tfC1IdwflUwv4/+9Say88swC1Qq9EwfoDviWfrF +Iywom7fWrUJHDRiNrh9nQYf/tHANujul02vbNxa0yu7Mr0MnL5a0Ps5Dwqo3 +856P0bVTPZ6hi0ho/dSxsQn9uaeAHcCPdZ4Vy5vRG+9ZZTCWkGCpJf+0BT3s +Ez5nL0nCIvP0P61UfkdrKWtpEm58pTe2oc1MpOiELAm3dXXin6EviRbuMlxG +wja+pPnnVL26r1RBhYSOGyOPXqDJ7MIWWTUS7s1p+L2kxl861ieuQcL3kHei +ndR8pLQoH52EXvZtxy6qLm17YFyfhOItNemv0dUL0tHDBiS0zOXqvEEPfem/ +2m9EgitD6B7lDY+ON3SZkmCsol/9Fj146K7Sv0CCofXCP91oMbcI4/sWJEwf +vS78Hr3e0s6x1IqEcPGco5QTl308lm2H67dXs/6AfsBXfCndngTBnqQcyp84 +Ebk3HEk4U36Erwdt2iT76oIzCe2iqRWUGaUfxxK2k+Ae2y/Yi75ws5j3lCsJ +Kso33Ch/ZG/RD3MjYWWl3wRlUW852yAPEhiZMQZ9VL8tn7z892C+dLFQyhdW +Rp7z9iHBqyxhnPIDIfvbbgwSoutC1Pqpfj/kqrYzSUhp6tpFWXTgU7sjScLF +poLTlE3bSoZtDpAQX/2jjDLjfuRv8CeBk1bxnvKF2/YyZodIiAkapQ1Q/S/I +6xgHkGCte0WV8sfwQfM1QVhvLwPKIsxSNzob789uG0/KJtuiAtVCSeBrcGJT +ZmxwOK0YRoKDeFs85fMaS1Plw0mQMau7SrlSYqhc8jgJstYatykPzJU+FT5B +grMuz53/9/8cNcAfRYIk16WE8rqXDj//RJMwelG+jPL/AOq/BD0= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9888992232343078, 1.0112015682907392`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.98889922323431}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.98889922323431}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "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.9888992232343078, 1.0112015682907392`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.992113749938076*^9}, + CellLabel-> + "Out[140]=",ExpressionUUID->"1cfbf3b0-25d6-9742-bb99-44d92673cb9a"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918477165865707`*^9, {3.991847931067129*^9, 3.9918479312310715`*^9}}, + CellLabel-> + "In[141]:=",ExpressionUUID->"d8f392d3-6c9e-3f4d-9982-5d019384c724"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.418413100873567`*^-290\\\", \ +\\\"14797530453474819213543604224000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 141, 682, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921137503121834`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"ebcf9d8d-97a7-3847-a420-1110b6ac001d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.231015682346092`*^-305\\\", \ +\\\"5919012181389927685417441689600000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 141, 683, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921137503361855`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"6db21928-6d80-d248-959a-e4223847d20e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{\\\"-\\\", \ +\\\"2.4419314972389574`*^-8\\\"}], \\\")\\\"}], \\\"42\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 141, 684, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992113750356188*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"8ec0d6e3-ddb3-224b-ae69-b8981713a6a4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 141, 685, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921137503731937`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"6c6793ff-2734-6248-a27b-1d436984beab"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVlnc8lt8bx+0tQsOeeWzPkFI951wysiqRVShKZJNIVJJIRjYZkVFU6Ctk +VbZQRLJDVkiUEFF+z++f+369X+c+132dz/U55zqS9h4mDgx0dHQfaI//vzOu +27OQzqeh1o652tEfzqjxo4SRhYQ/7rrG5x1Rroe3ml/fkpAIx9KFLqYG5ZY4 +ozZKnFniPl5+d8uDodwJu1Ivu/0WL8BaTLMqmmVX8McNp4Qf4pW4oTMn1KXk +DmYdGid8F2/FF/fLPFN9nIIftmV6fRMfwJEJ8ivXr+bjouLwIVeVORzHVmvp +VV6B5/jmIg3s5rAcD7RfHq/ABF8DJJcwhwPitErObavEWYc4H06sz+HtzH16 +Gw6VOK418sKppm/YY7gpcodAFfaduPfziPV3LJ8eE9brUo0zOdtvbdf5gae7 +Dl+JY3uNHXHX/XnvX3igh11kwK8O02WvVg1F/MLV6XIn99ytwylMIsNtub+w +3zPjd/bpdfht6wWxgt5f+O5OM/3/auuw3MnNbIcDy3hIZZIvja0ezzgRno3Q +r2BLE+dtyYn12Dnu2usPMav4s8jZkyM5DZhhJXv0TcEqVqNU7T1Y2oBTLd7S +Fdev4q4i48mwxgbcJsKvFbW8ij30woJ+TDZgxcf5LfqWv7HVhnbGX5lGPF/9 +8UO9+Bp2enx96d/DRuw+JT9RWrSO8zntN23vNeEx2wG2utZ1fCKfXbP/QRM2 +7b+j8n5yHZ/jZpSnFjXh/e1f/aeE/uD4vTdftb5rwoz/5fHuDPuDB6F6fZ6t +GacESiK/Mxs4ekmXePJaM67jF7yvwfsXl0v/e+Zh3oLVot6+1lH8i40PhSYf +PdeCH7FcmTyh+xc3lq6o7/RswZHrvarOgX8x34LoDcfwFmw+mtCcOvMXNzQm +57FXt+C5J7zLG7X/cAVh+yE9obeYQzKEMLqfDuItHqUlvH2L3x6KVb2uQwfC +r53X+bvf4lDLB/tETehAtH7JOWjoLWaIqThy2oUOzC+9CJFYeIv//Jt37Mug +g4HBGb9rfK3427BZficDPVhGVncVWLTiJ2v2z9156MFPyoTvz5lW7CTgWcEt +Qg9xfZO2+5xa8aTh3beGe+nhk81BUf8rrXi46vVMiyM9kPaeOSSY0orfpRDk +a9/Rw05Z1VfvPrbiu6VqpDMD9IA0BfkWBlux3gdNjX9T9NBNOha8+aUVN7Ja +6x/aoofHhJDqscVWXOMbc7GCxAD9r7ybmznacOHJ9YLnSQyQvXKfxEltw66e +LCXHcxiA17V6/9bhNqwQyV+1UMwABkZDQWN6bfhRg3KbUisDfLW5MeZ8sg0/ +INvP5W8wwPPN2f2Zzm04mrdd4eFZRgiiZHqGx7fhyn2iZcfcGSExK2exIqUN +T9p64M0ARjhlcvV5d0YbPljIf9IimRGkq5W2NT1uwzP61te4OxihcqDsc15V +GxbwKmKtHmIE662EbXJv2jBOoYtzmmWE1++o/yU0tOGk6dxHDUxM0CO37qD8 +rg1r3fre6X+QCU6YeOrbDLdh9yf4FEGfCaLXKI2UsTac2hU72WPOBImfsr4u +T7ThH+Lq66reTDDr+1Vn3zfaemquS03nM8HZpu1qr9bacOvEh2fx5UzApWbU +MrvRhpc5pPdpNjKBzaF6oN9qw4ZWLYbpo0xQaynM+pOpHa+t8Fw22ckMf332 +v+vhacfSovZbW9LM8FLSOMCKrx0f0y4NLyQxQ2r885OtAu04L87yAdtRZvi2 +n/zEWbAdf6h8Ild+ihnCakP2pwu3482xzZJzTsxwwj94R6VoOzZRfdjy+hYz +RH7+MVYq2Y6vm/864RrLDMwyFuPx0u244JrOsGAmM6glmFra7mnHdO9mf/hU +MYNoKmNrmVw7Vvx1MEDqLTMcOuDWd1ihHZsLRTN/+MQM+oP9N6sV23GhE1lI +8SczkHRkP3qotOP+eyG5/f+YgfLwavRT1XbM9LJXJZSLBb6Mlm37SGzHqiNy +lRQhFtivbmg7TWrHp5gDtL4QWGCxrTFsityOQ5Xev4/eywIoqSHxA6Ud/2cq +bnlIiwXuaW7FPVZrx8NXvcZnjVmAjlX3rvPedsyW3eCabMsCUzGBoYLq7ZjS +uuO3tisLcAxkxJXS2PaH480lfxb4wVpdeXBfO767q4ozK4wFxk03WIppXIa4 +ko4mssDqaNrtbfvb8ZiDrcRGNgt8T12EUzTminr+JP85C6yJntGOo/G+Uoa9 +5q9Z4GyEU1o5je2HTr5hfMcCu9wyT7TQmCPti5vXAAu4HJ541kjjklPuIqPT +LLDJok8ppvEpoY02o2UWSIqg+xFKY8bBMP8qelZoZD26YEjjZ/cF5OR4WKHh +T4jGP1p+J60e9iaKsEI0F9/nDBpv7la5zajACuULnpMKNM7tr6J47WMFdSrp +dB5tvUYpR8ZHtFlB8syKETeNly16YoxMWOG0o3eTPU2v9F12uOoMK+xe8fiQ +R9NTp+/7d4IbbVzgrX8vTe+FpKvpiVdZwU3M8f0yrR5J5qyGjHdYQSLVsI+O +xtOfJPJHsllBnqCBxmn1jU4sNDd6zgqCXPdfvKTVX93sAHPVK1ZgavvGE6Dc +jsN6TO0T+1lByGegqJ3mH2LCGC/jNCvszLPgsJKn+cXU7Y3nL9r/16Kv9xDa +sdzHUBGjbWxQxvxsIlGG5u84/vZKYTY44fn3+5BUO75ikuVPkGeDANFRLV6a +n1u7KnsZtNlAIfQLszbN784f5mMq/dmgt8f8+ABtv/DF+GNCGBuEjchLxdP2 +U9VxloWEBDb46Xe04CBvO+bsFDf0LGaDyhd8HFacNP3fmzATptigL7v+XjMd +Tf+o0RcJS2ww+m3g+u+/bXjTyNWegY4dUm9MRO+i7e+j726/+SzEDppb6vp7 +VtrwQluFf4IxO0QGjBRemaGdN3d15Bhs2eHRqISizFQbRgbdvR4u7OB+N0nj +zZc2fK/1G8UwlB1MWTW1GgfbMPGt2AJ9DTuYHbyazkk7n7yaQuw9CBzwTCKD +kP60DYtN6rKsUjjguZNxSBzt/GtnYH8SCBzA8ef5mYCcNrwHon6GW3FA1JZZ +g0xaGx6oSgzKjeCA6FqOpL7wNqz5/NGDgUUOWr9IPvz2PC3fDqfDZzc54Nvj +gZPzZ9pw2neF6Wk2TpgqHn3GeLoNrygUKy9LcsI5KWY7rhNtuCDvZc22k5ww +fG0YhR1qw9vT3g5qVXBC5HQpj8r2Nvy68u71tkZOeDVyICiSsw279BtJneji +BMsbL5lGmdtw046ui7ZztHhqq9fO/mnF/jEDa1dEuKCH0+Fh73gr/nJ7bmdR +EBe4fOk+mPZfK/7Pk8t0tz43NG2PUZnQpfWzVH7/QnNuuMT6rk4Ht+LpRqHM +w+e5IcSsWS99XysWEpT/5nqDG8772PntkWvFIXU6t+rKuEHPaIb6hK0Vm/Pd +eOEstQ3OHFN6HtlC678vfvK/2tgGZCXtHFXqW/wwwGWOaMELS8GVwo2cLZhY +y74WZsMLukmZ6lYMLbiWKZ959BwvFOfmZX5da8ZjUZMSUZ68YJ1jnvBjqhmL +ZdlYzIbzQibbzdjSN804tfF448MaXpBnKhDc7t2M47jVHvBJbYcho/5717qb +cHDm5onl+e1Qp1CpL3a7EdN9HIOaq/xgdrPZn7u3Dsv6XLhyUmEHEO6MVza1 +vsKTK8nmnK92AilA0k4logIbTDlfi/PaDS8e3ZxysH2Bj03GKIqJCcHV7Xa7 +XKcL8TvFyR5rGSGYLJ2zk35biA0v7buepiAEH0Y6GxYKCrEew8iH3fuEwGX9 +2Kc6t0J8WELRl99YCB5NvrO1Wn2G91o31bIFC0F8H4Pacc5nWKRn3ezXlBBM +Lcb9tdJ+guca7IPeFgrDFCFn/vXSIywe2+8cXSoMGqGdZ636HuGTtsfMTlYL +A+vlPAXOmkf49ZqGwthbYfhoIvKs9PYjHKe8vef3hDAs79AYFBN6hA8mvyEQ +hESA/kI50fBIHo50Fum8HSoCT+frtAZKcnDdvrhKwygRyJmNMDZNzcGrTGy5 +2xNE4L3ntW8TN3Pw2cxfVzIeisD48R2FeidysFpPm1RZjQiQas7fEv+ZjT9T +/X0nl0QgfyPPdkMtG6ts7xXVOiMKGheu8au+z8LTUdPBiQ6iYLOkSvxckYUz +OH5//eoiCr4PM/5l5GZhLqbdJZFXRKGd80aMRWAWnlu10u2NFYWYu//lFihl +4bzhz+4XG0Vhxyn9tBDJTCySP/XmnrwYvIiT/cP3Ph33yKzKjKuKgZ/jxtc/ ++ek44iHLXTV1MWB9bMDDcjsd/0klnBw4LAaJwUdrb1PTcX/UxRkpazHoPCCT +Lfc8Dcdf+s5bHi0Gi7y2U9/SUjEHXrEb/iUGdnHMsV8iU/AVTTm28j+08ZFJ +8fPOKXha63TRPXpxSAp+QeLWS8H1enV/DvOIAyP/M79uxhR81SQqvkBBHJpK +/tbIXkvG3xz2NPnaiUPxme5bo75J+F2kmdz2TnGYF/MOHLydgA/cu9Mx90kc +lBYSv/9xTMD5sdU+jcPigD4q3UcGCTgkSbLOb04cgs/4qqnyJGCxD6tKiwwS +sANSIkpS43HvQH2TmZgEnDS/oaxQEYePfD/1W8pMAgaDG3ZJcMXiBwK3Pt6w +lID9UYV/5pZi8PLBp8XDpyXgjlFVbM9ADM66u+GYZC8Br8xzLjPmx+A/hPR+ +dk8JSB96rfteJwY/s/9c+eOuBOy+/Vl3hfse5u0/E/i6VgIQt/YsH4rEF7bC +LIUbJUCPwT5riS8S18g+V7vSIgGn86PPsM9E4IuX6b6TOiTAtEpJaSguAtfz +PbTJG5KArbTiAI5vd7HP0XEUuSoB79Y5WVzzwnF//Xn6U0qSIDh3X20EwvAP +zUGha6qS8FIz99l/YmGYte64WhZZEpyknuUVb4Zi9TcHHKf3S0K9xUSgQmUo +Tqjmfe+tIwlSNpbeu9RC8fHSmpQIW0lgraOjPiPdxs15AsRXMZLwKeO/ByUG +t/CIzF39sXhJ8Dp9ZuKu8i28krNlz5gsCZKBnP13eG9hmey5RP0MSbBYzzm4 +0huMgx/UbnwqkIQjG8/7IhyCMUp2bVmolwTOivR/98Jv4rI7jbYSK5Jw38It +brbvBs43aN8dtiYJOVf914yzb+BUru7u7xuS8L6V6wiL2w0cFDOqW80gBTqO +rBpWjDdo940/Kua8UuD3Jr46iXIdjz8mbkUoSsGDuiZT6exAvK0lPfO3nRQI +5J4qJ5T5Y/rwHCtbBymINfIoybnjj5cNnvA3OUlB9XTIF3trfzzQ8TIszkMK +mO1GYwuY/HFub7eH8jUpAFcxq+OWV/CBaTY4lyIFNjrfD5Vz+uELzJfHOjqk +oJjh2u53WT5YSLy1b6NLCrS68oOCr/vgjv2inXKfpGCb2gMGF2sfrO7a9Cp4 +SApGZm6c69rtg1k+7khTn5GCxcRV3u/xl3BeVrnZA3pp+DM/d0Up3htPHlxr +c1OTBn6pAMf9pZ44xcyoPnWfNOT4vFKuS/bERh5ZlS0HpGEyFX/1CfDEpdl6 ++ZKa0rB+cuq0tZYnDmG/f/vTUWkgCs0NGjzxwDJ9GkB1lIY8zjvVE3Tu+Jx3 +QBlXqjToyR4x2znrjNXJI2XyGdLAw0X5xlztjDmWoFw3Sxouaic1H4xyxs+9 +WF4GPZIG71OOE1fIznjTM7ZiuUQaejVyRlWCLuIkj8fVw+3SQNhZa3xIzgm3 +un6se/ZXGrrt93MF5zvgdCX1+lY6GbBJIEjGBjtgz/mU+mlGGVCPimwfsnbA +O11tGyQ4ZGCXUVmWFJ8DtneZbUzYKQOyjp4P3G6cx5sXt1oCVWXgTKDdrdLz +57Cqo2KHkZ0MNNWknvtlYYdHLop7FJ6XAS6rQk+sbocjXfl5tznJgOqTn6HN +AnZ41mvjRKe7DCy/Lb0Y0n0W5wS2fzoRKAPH/vyyKjM+i3fFuXw2T5aBR75u +6bjYFm/VPJ0/+14G4rmyVZOFTuOiN5lRdR9kAJk79z+aPIWt6+NVpHpkwCJr +pXVX8Slc2RLgOTEoA1XeU1LCOqfwpW7DZYcZGfDJyN2VfNkKf/36bcOZcQ9I +vJAe+/LVAnfyKXFe1tgDhiUz1H5uM4zc3GbTDu2BiA/Zel1TJ3FRS1FLPe1W +Re1SyOZ5fRJHB5JCeHX3QLUvU9opj5PYaFr971OTPcApFUwW+2SK2yo1F8dd +9oD7pI0IQ6EJbjpr8dH4wR6I/b3D9E6EMVarTvnP7+EeuP2aY6eTizHO3TF4 +70HuHjj3YfFrkKExDmmzNpp/sgeYLm8YW3MZ48Nq9k1hL/cAe+DeP2clj+Na +VreXrz/sgfy0l+2MR47i6qLgNCVGWXhjbem4MaKPWYzMhJJZZGHtnJaVy2N9 +fGKWcJ+eQxYY5mIn9Dz18Vfp90m9vLKwkq/8Sp9RH/Pf3xUXJCYLGn7Gj46q +6GGXW8/u9GjIQrt6DHN1si4ul7jBiqmy0GBTe/zZBV1M//pEaAHIQk8yNXtr +ry5OXlu9df2ILEju2XzY+kkHN7hp3pAzk4VDdOYC/YI6WNiy93Kgpyz4Rdo6 +GrzQwhdW8penL9G+7yAKcN3Rwv/FBVw64ScLhgqn9fbYaOEj7yW8ZK/Lgi9/ +YetpNi186bCL64cIWUgXCNxosT+M25Xozsk8loUDam2pOwmaOIBewfjdZ1kw ++HWbxP+Riqe1Oftlv8iCNR//XudYKja+M3/m5qQs/OHZznjEmIpleIo91L/J +Qpz/PpnozkP4nYjavaw1WYhEYYP7eg5isf2ow4efAAUdU9zyKxr4ToC4eedO +ApiX/D3uWq2Bl17TjcgLEWA5PCJHNlgDt+g0fB+RIICrqTXTX14N7Gmqx62v +QoBLJjUPd6vtx/XuJkai+gRQ048JP35PHSuVUHr8jAjAtofF5YG1Ok5aEbDu +Pk6AXf+WBSwU1LFLYJ9LmDkBktTcMxla9mKBu9YRP88RoC302KQS8158Ie9C +W9N1Arzne8C7J4GCOYav6rmXEoDALIzSfxOxul8B972XtHyXLS6ZfCRiO77+ +7uIqArwy4l01LibiCr29Nj9rCRC7zeuTjBMRXyhb9PJ5T4DcV8/CKVWquC76 +fNrVadp8YkJp3GNlPC8ffzZtlgDC4QvtMY7KeHdT3Z6aeQKIFNU288gpY/cN +sed/lwjwzGPf88gnSljEaaAxaIsAf5PTCpzKFGn3kWMLobvlwMnTsH/sizzO +HQ588VhYDhxk5j8HFcjjTr+nV96KyUGk46P78V7yWLaIjZFjjxxQP70a5GaU +xx+FGnZFkeSgW23yPFKUwyrL+zTjDeTAKrZcauieLJ56JJmQGSgH9DedGPNy +pfF8yJd1xiA5cC1ILXW9LI2X7B+ecbolB6/6pyse6EpjOnFJRdJdOTg+2KqH +5qSwULJEfX2yHGiWB9SZqkth4zDxH1MlcnBx8Zyo+BcJbOEwamZQLgeUJu1Z +QoUEttXKrC6qlIOmsxMrUfcksMuWWJhfrRzMNr2pc8cSONRPTIy9Qw7261Xx +DOuK4xpHUSOlWTkQ+PxM/vpvEdyg8/m/mHk5WBUq3R36XAS3SWfsWlmUA/7E +oydJziK4b1Rk4tWqHOz8cVfLdVQYL1mIXD3OJA8dWhkJx7qEsJyecL63uDwc +GRpffdi1GyfICTJVmsnDBh234vzBHdjaVvbxhKU8mFrauLpz7MAyCRSDbdby +oHDh7BGbAQFcunU05py9PPQKfTe7dkUA9/QGi2zzkIdFjxf/iqr5Mf/tebVz +d+ThaUvwopgZHx6sWu+LipCH+S1nBxYFPpz9gyWgIloebto0WRzd2o7J1pJ1 +3InyMLBbO3P1yXZsQjE/WvFQHh6/NrrzkGU7jvvyxoG7Wh4e2f0td8zgwad2 +vWfb/5qWv9mBiksmPFjq6OBT+zp5MJojniew8eCSiuWfL1vkAUxbjgRd3oa7 +78lft++Rh6Ar2pndFtx4O4pPevldHorZt372aHDimNQLLXYSCnBBuIzw1JkV ++/kGXwqUVoBt0U5OJhRWbGvyQDxZVgFK3ZYtLm+yYCWOXr93Sgpw/6rvQYUY +FtzqryO3T0MB1qzNj6i9YsYMVjLhXCYKEKssh34qMeFZNdhLMFOApp66CyOb +jPgDr/UXTUsFKGga+L3vPSPOfBuv4WerAKPHLtQpeTDiQ/sZ5744K0B2Df1J +pgoGfHnXuMHLWwog+idsxzNremz96+9qV6gCMNvaKq2R6bF2p2DOfLgCDAnU +yeaw02O+sBMbkjEKwMHZnsFXQYeLVmufRqYrwCc19i5NQTo88ymTy75MAUzv +XjXw7P+LTiXYdHB9VYDG1cdz2zLXkcgLDmGXOQX43nzNhXp6HY12vXRs/a4A +i9uuGOzcvY7O8/DRhy4rQJ3Ro+Ha+DXkfreZskWvCGVjw3s64n6j4CDV+z9F +FOFoLGHoatEK0s4cnjouoQg672JW7vusINbX4eQiaUXYjNvTa3hwBUVuTLQ7 +KyhCnJPyJfu2ZZTkm/JvYp8iHMpYDt27+AsVuNKf7zVRBMpdAqexyRJyjSh6 +rmauCH3Q+OavxBJSeXL6b5yVIjByyb2Q//ETlXwtSzp+VhFOL15P+n3vJ6qx +d25966YIHU7X8ww+/UAfLD+qVN9RBM+RRInsbwtoTTtvPfO1Ivx4tCr4i3sO +BVZn3mqsU4SqmsiH59tnER05lXu2URFe5JcLXgmfRazi9yTJ7YowM/aS+wbr +LNq5fkW/sU8R6m+m80xxzCBKodH9mR+KwPUNaoeUp1G59BFp7mVFaJD7z69x +eQodSNUsJP1WBOE36doaNVPocJh63dW/ivDfggp3vdEUMraTmOXiUIKtpCu+ +yj6TyH3H8n6StBK8ecxlZjM0jpYiFurNZJXggV3rqM+TcXSZYdboqrwS+OqC +G/PVcRS4+Plsg6oSiG/rlIkSGkcRrS13zA4pAX90Zvpuuy8o/1pav7+ZEvhw +p+1SYxxDE1OHr9SHKcHDKRUeJfkhdDizI1shQgky9hY0Fg8NoizLU+/jopVg +8aN/Icu9QWTb7iV1LlEJOLoeJO5ZG0CDz7PeMeYoAXe+5pHvH/tRd8A/CZ3X +SkD+0tgxVtyLSHvvGhbWKUF49ExVtnsvilnY4bujSQkukca4dqv0omN2yu1T +7UqgM9yRsKP4E2rTtb4cOqAEs2ODPAqVPah+e1Vry7ISsPW+rt87340k23WW +Vddo8YWdt06XdaOgkC6xlA0lePe97ozQjW6Efs9ccmJQhqPj+QZWAt2oaniX +GDuvMrBmNQyV6nShkseXvQ0UlQGXf0hSvd2JttvRZ5SoKIOXBd/v3fKdyFMo +qkWIrAyJa+R1xo4OpBKVK/JtvzKkhxmSe4Q60BPvj80RusrQv+/zLoHadyib +ShJ+b6cMP7gIP4bU21D9MY5bG+eVoXz8FX/9QisaPzMxJ++kDL5jX9CFx61I +OjixKtRdGUSuEw59EWpFuc3rVhCgDMa6JlXuHG9R3vH6lBcJymD+2uOvNUcz +aj6bRjeerAxcC8EOR983oWkvHyfeNGW4lqrEMBbThGQTZPe7PVSGbEtJ7ynB +JvSo/26fbJEysFR9V9WhNKJ8O9OdqS3KcGD433mm4Hr01lvp+ts2ZTj3cbbi +zLF6NHOLeXr1vTJwHDxsrCNcj+QevSwz7VEG74qVloLyOlQwJ2zG/UUZGk2f +cJb8qkVPLk3GB/1RBoGKK5P7ON+gwtuXtzsqq4AUn0X3E7oqNH/IJvg2UQW+ +XnJNDq6oRErL2r9yKCqwss5cIeRViZ7YC3wa01CBDfBzCpmsQPn4RcopXRXI +yf3Ow97zEuWu/xA/dkYFmpuPOBzuKUOTz/tjXO1VoMbhHbt2chmSdqqlj3BQ +Ab2LHddnT5Wh7N57Ey0uKsAZcslQcLIUZb5Qeax5RQXY5XodRv++QKlurip7 +Y1XgfC7/v4KjJWhQ5mSmaYIKqP4IWVcUKkGCwwd5vZNVILbD74jG1/9QigHn +UlGGCtC5eB38EfwfSiQ8KZN7ogL85QIz+bXPUcyXr4dEGlTg6EX2PvX8IvQh +pbPwQLMKLDB8fGp3ogjxGL8Us2pVAbFpPyX/jUIU/TqULqlTBZgvucacNylE +kWl7GnmGVUCnhtI6x/EMhZmdM2RcUQH6g+HCL3MLUPbxYWuHNRUYdHVL8TAr +QDX6Zu4tGyrAYvmfgABrAVqiHomNYFCF9NKUqJ1u+chaVrGPn1cVVFMb0yu1 +HiPy7yV7GUVV8PO7En5cMA8d/eniE6qiCmEWkhFpfbnI6dvk7RmSKujYcj19 +lpSLMkZ785/tV4XpXqLHjl25iO1t1YKarirU2GoGNkrkoJGU4Ks6dqogLy1j +12L2EK3HbUQ8Pq8KpreqDJ3EHyKBKJ8MdidV2LEplFo4m4X0b16ofe+uCh6x +nr9Eg7JQ6UUDFvNAVahu/8+mySkT3T3AF3chWRWEypkc5rzSUZ5aRM7bVFWo +KDpszbM7HdWqMJUpPKDNVyTt1n2ThlakVvsWclUh4V+d/TBvGjrLOSjqV6IK +/ExVLea199He4YcFYe9V4Va4sNfS0WTEq+K0VvxBFSLFLZ0r2ZLR/A2VI/0f +VUHYQ6JDtzEJ5UpXT8oNqoIEx2fjZ9QkJODSI942rQrX/LyHHDUS0Z9ARkMW +OiJ0CbUHjJrEo5m8C96p9ETYz/Ktf7dgPOrtaL2vwkgEExjZXBuNQyUSMTPm +LETIknW3f+QRh5wbRUIfcxFBwL9MJSQpFg1wqtfpCRJB5jwjtZMuBjWr3Z8Z +FiKCn4uWu9HDe6jUZpPHS4QIC+v0Z/kO30MxxfW298WJcDxqg3UwNBrpmR7f +nN1DhDnxwgYm0ShUkeq0L4JMBAn9ymva/nfRo4Z2W3E1IvAZH0sQkL+LEuZV +Ql/sJcIPryW7zoFw5IlWeob2E8Fd8NPHP9RwJDd+01sJE8FFM899nPcOSpFP +K3xvSAQGapXZp5HbaPmXbt6to0SIYfSIe5B0Gx1/vZSucZwIleq2VseO30Ys +pgaReSZE2FtteNW8IQRdDlx3vmZFhMcGBwNeld1CJp0WcsqOtPhXtPNy6m6i +ovuMEhNORCBe3vJMDb2J2M8X77rvTASNcWbh40Y3Ue0aCyuzOxHcsiNHZgaC +kKpU+dSwDxHsWYqH0cYNxHVZICcymAg9T99MeLYFIidcm3o4hAglZnKneZwD +UQO7a9zabSJcGlcTmOYIRFcfNNw8H06ED0rCu5WNA9Bsi/fZQzFEKNB3ulo5 +44+ahbpE5zOIYGclsO35MT8kNRW4IzuTCIcGq50l6fzQtWI5bsuHNFaI3xNf +4ovUtIM2G3KJkOfCJ+Ui5Iuy3VSH0p4SYfGXz6HkFR90ozYqxbCSVr+lUMZj +fd5o7nNtwnoVEa6oMp8JS/FG5hu/Yh7X0Op9r9c84pQ3UlI/Fc5YS4S1kYs6 +s2NeqP+p7NXqZiL0hmt9rlz1ROTkN6cVe4gQ/KFX0jzcHWWULlkMfKLpLbbj +2Tcpd8TWvedkWB8RJDt9d3W8ckOjXJFGE4NEYOSz0r/42xVFBltS074QwVzQ +vS3c3wVNu/0U41wkwpOfa2fEy53QiQgZ4cofRDD0/Cfwwt4J1eRb7HJcIsJw +keYnC14nFD/xiqdhhQgV7v0MLe6OCKzu0gVsEiHR8Z7Q2L4LKFVbenyOnQTX +QCqbunYOMdubj6RwksBo/+1P9qXnkOeN8EFdbhIU2Ug/cfQ6h45ULXZn85KA +mjUgwrxgj5ZVaxpO7SLBT6+P+lo/7dBRYbO8NhkSeOtuv3NH9CxKmVSpPS1L +glKBTUTpOYMmC9mG5gkkUBWT34x3P4MCoYaXR5EEhik1hxke26JnDtKBpiQS +GHTMUJVkbRDH858mw1QS9Jo/SSo4dQqZ+7e7uWESDFYocnKxnELZh/Pu/AMS +uMxUqvmWWCGNT5avJbRJcDp972GzbVbI6c8beQcDEqTa/fSf7bJALdrRdAvm +JHjonWc4dtsM8W1zEr5hSYLG4Wv61mCGbPs01XlPkWA2+LJRycZJtHpxxYVs +Q4Lg0h+84z4nkew96z7fcySgU93DwOFlikIGFIq2PEiwEv2v1Db6BPqQzdQa +40UCaRNUcNLsBBJxHZmQvESCGorjw38iJ9CLf7GC2r4ksJCx5rhQZIzGpddD +7gSSQGZiPymm5DjSdG85vT2cBPGqFgWqaUboT/+sbuNdEojl7/o5stcIlWpx +kf0iSVA7kvhtrssQyQqeYPt8jwQUkcVBlm2GiKtxsDQ/iQQjDRyb3Yn6qF9w +gRtyaXp8Mn7JNaaL4kJ415fySJBSl1IbEq2LDBfJk3mPSZAx3nlkF9JFrxv9 +qjifkiC/9CvrtSwdlOtB79j3HwnOKJR4THtpI88mgVr3NzQWdHVR1T6MFIj7 +nkrWkeDRttMtTxkOo4lUq6SeehIMPW3N46rXROaeD1wPNJMAmD1GPbQ00SFh +OUGW9zR9Y3xFnY0BsXkd9M4YpPkjVyzZV5KK6odsbIyHSeCgii1PVhxCAbpB +eowjJLikynMgx/gQWhBuErv4hQRV95lag24fRD3Nx9rVZmj63ee9XLalgTJF +7GXerZDA00/5Ogd5HzpAUVSx/02CSKFfF20m1FGP/vK+tTUSPI13ZStNVEds +fqGGMpskYDhTcOHM373Is+uJdyADGSYe1ew071dDEPqrVomHDN02rAfEqsho +ML2mrZ6XDJoJN3wOXiUjnxe3eyz5yKCRFd2vdJCM8sd2zYTsIINJYrLPzTck +tP3gIZ7PwmQgka4rFXQR0fhiiE2UHBkm7alnIykqKJDlmKO0AhledDs8/d6u +jHaK7vKqVCSDCs+0fIGDMjIwKAiZUiFDlGcoFs1QQiW5759S95JhNCEEBwsr +oltWO/981ySDdZQxKjKRQ2Keo4whWmTgDHdmq/tHQBWh+dxCOmS4w+g5+/0p +Ac2/OCCpq0cGHo9riWHsBHRy2xm9B8fI8Pe0XKxl1x4k0/A46dhpMnhtnLsd +EiONOpTWcoetyUD1vau+fFQaXUnSe+FsS4aWYwtxwCWN2i/Odoba0eL3M2qc +j5BC3ryK7G8cyaDdJhkZES+J3tgUBaj6kCE14Oayapw4cmr5F/7qMhlEP+Ag +FVlxxEc6nmLoRwaJ52aqidVi6ALTj1LHqzS9eH833ZkTRVxPSQuZQWTI0Q1I +iLQUQafWSs/yRpEh7dHLoBNegojJntnjQTQZDFsWNt8JCqKidrNrSjFkOD5z +YsOtYTeiz1y9rxdPhhHbhPjtQrtRvs7+j0H3yRBr4XjSv2cnWomr1vmZR4Za +V4JU3VUB9GCT8+SNx2So/O5QP08RQHoXrO25C8iwvTbYgHWBH6Vr/L0u/4wM +gcpLg5vn+dHhMVRhV0IGxQTVxCQbPhSjXK/Q/ZoMFmOcBax+vCh//2n24Foy +ZImYpy/t50VvtJa/kurJIPv78MCt3zxowUo2L7aJDK59rZ30bDzIMPSu+Il3 +ZLiv9He7KZUbsYyaCHwYoK3vKPe89DI7Ep37tnRjiAy/xSuPlcWyI7WVkC7V +z2S4zvLlbwmRHZ3jfBl9b4wMMrdHO0a82VDtPmH241/JoM6usO7KyooCYib+ +vl8mw9YFJXFNNyYUlxY4fG2VDP6Rog5m4kzoyaMd1cprZKAPrv8Q0c2I+muO +XInaIMNGk2DZsUOMSH326ZIRAwWSry7tfCXCgH5o+nxt56GAx+LyuXluOsR2 +lLs5YDsFhnUDfj/O2qKKWz7KVeSnQGXauUfahC3qMfd+u4idFOioidJ5p/GP ++jT10LCBKAW+jPz4Zndpk3rhF1NXqwIFOs+POp6irFNtn2h3WCtRYPIQy5fY +/jWquV1I+6IyBZj78hvYbqxRdTsZm3eQKHCgeEdZTudvquxThmq7fRTYmQPz +gjdWqVP2dHnrWhQwmP+kEcu/TB0WhOxIHQq07DxQOtT2i9rz4Uam+BEKaDx2 +cyfc+kVtRFv3dQwoYDd8qbN0dYmaK/QvOtaYAtQpfib92Z/U890bV+RtaPGe +bn7m+7VItQ4/6FtjS4Hvg1lRtdcXqSch4NLxsxQ4Df/4ubgWqdpFf9wun6PA +7oFW3QuKC1SZu+v2dRcpkLX/V2t04Dx1QvO3kZUvBd56l9gRzs9SB9fUDeb9 +KFAea8OqwTpL7S72PXLDnwJdJ6LEk5/OUOtFVzXzAilw9cFMguzaV2r2+rL6 +z2AK3Pa95bAra5pq/9+SRPg9CvSe3ieQTJikugabbhrEUsDnGeXbl54J6mXT +0j6ueAp4mxakXLk1Qb2zcjk6JokCeqb0hy5PjlOLNNY3kjNo9UJBalJlX6gV +HKf6rDJp+VptNGi6fqHWDVWVCD+kgNSscHqozBdqz7XAi5m5FFjLcld3Txmj +rtdt9T56SoH4zlxfX6FRKkP82RKnQpo/vn7w25E6QuU6XxelUEwBrxKD4irh +EaoYyy3tohIKFJSPrfyW+UzVNmApKaukwKIkz4LDsSFqTDdXVGMLBZTj798q +Wu2jpua4OYW20upz4akfJb6PmuPToaXXToH9GW+djEh91PKdMX/aOyjwibXV +WNK7lzp8it/p4ycKBBze0VvI/Ik6reijldhH80eVe7ZcUQ91cbNHzGKAAkrO +Y3Oslj1UhsykT4PDFEiR7xn6XPyRSpgQ1BqfoOUfXGJywqObSiy9KpY7RdP3 +X7m/lVQ39cDtoXWHrxQ4ljyxPb23i2pEyHg+O0cBlvPXuV4d7qJ6u0iI/fxJ +gdVR/bBZuQ/UwEM310t+UWCu0GZHUFsn9Tb3eI/PCs2PTKupFjqd1JTinIi1 +NQroXn0ff06zg5odxORY9YcCRTF9/GH176lPTzgcDtykwLqBruILnffUUqlm +UfSPAloaniWjbe+or3/Jrm9tUUCEJf4hk8k76v8Ay1NC0Q== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8lt8bx+0tQsOeeWzPkFI951wysiqRVShKZJNIVJJIRjYZkVFU6Ctk +VbZQRLJDVkiUEFF+z++f+369X+c+132dz/U55zqS9h4mDgx0dHQfaI//vzOu +27OQzqeh1o652tEfzqjxo4SRhYQ/7rrG5x1Rroe3ml/fkpAIx9KFLqYG5ZY4 +ozZKnFniPl5+d8uDodwJu1Ivu/0WL8BaTLMqmmVX8McNp4Qf4pW4oTMn1KXk +DmYdGid8F2/FF/fLPFN9nIIftmV6fRMfwJEJ8ivXr+bjouLwIVeVORzHVmvp +VV6B5/jmIg3s5rAcD7RfHq/ABF8DJJcwhwPitErObavEWYc4H06sz+HtzH16 +Gw6VOK418sKppm/YY7gpcodAFfaduPfziPV3LJ8eE9brUo0zOdtvbdf5gae7 +Dl+JY3uNHXHX/XnvX3igh11kwK8O02WvVg1F/MLV6XIn99ytwylMIsNtub+w +3zPjd/bpdfht6wWxgt5f+O5OM/3/auuw3MnNbIcDy3hIZZIvja0ezzgRno3Q +r2BLE+dtyYn12Dnu2usPMav4s8jZkyM5DZhhJXv0TcEqVqNU7T1Y2oBTLd7S +Fdev4q4i48mwxgbcJsKvFbW8ij30woJ+TDZgxcf5LfqWv7HVhnbGX5lGPF/9 +8UO9+Bp2enx96d/DRuw+JT9RWrSO8zntN23vNeEx2wG2utZ1fCKfXbP/QRM2 +7b+j8n5yHZ/jZpSnFjXh/e1f/aeE/uD4vTdftb5rwoz/5fHuDPuDB6F6fZ6t +GacESiK/Mxs4ekmXePJaM67jF7yvwfsXl0v/e+Zh3oLVot6+1lH8i40PhSYf +PdeCH7FcmTyh+xc3lq6o7/RswZHrvarOgX8x34LoDcfwFmw+mtCcOvMXNzQm +57FXt+C5J7zLG7X/cAVh+yE9obeYQzKEMLqfDuItHqUlvH2L3x6KVb2uQwfC +r53X+bvf4lDLB/tETehAtH7JOWjoLWaIqThy2oUOzC+9CJFYeIv//Jt37Mug +g4HBGb9rfK3427BZficDPVhGVncVWLTiJ2v2z9156MFPyoTvz5lW7CTgWcEt +Qg9xfZO2+5xa8aTh3beGe+nhk81BUf8rrXi46vVMiyM9kPaeOSSY0orfpRDk +a9/Rw05Z1VfvPrbiu6VqpDMD9IA0BfkWBlux3gdNjX9T9NBNOha8+aUVN7Ja +6x/aoofHhJDqscVWXOMbc7GCxAD9r7ybmznacOHJ9YLnSQyQvXKfxEltw66e +LCXHcxiA17V6/9bhNqwQyV+1UMwABkZDQWN6bfhRg3KbUisDfLW5MeZ8sg0/ +INvP5W8wwPPN2f2Zzm04mrdd4eFZRgiiZHqGx7fhyn2iZcfcGSExK2exIqUN +T9p64M0ARjhlcvV5d0YbPljIf9IimRGkq5W2NT1uwzP61te4OxihcqDsc15V +GxbwKmKtHmIE662EbXJv2jBOoYtzmmWE1++o/yU0tOGk6dxHDUxM0CO37qD8 +rg1r3fre6X+QCU6YeOrbDLdh9yf4FEGfCaLXKI2UsTac2hU72WPOBImfsr4u +T7ThH+Lq66reTDDr+1Vn3zfaemquS03nM8HZpu1qr9bacOvEh2fx5UzApWbU +MrvRhpc5pPdpNjKBzaF6oN9qw4ZWLYbpo0xQaynM+pOpHa+t8Fw22ckMf332 +v+vhacfSovZbW9LM8FLSOMCKrx0f0y4NLyQxQ2r885OtAu04L87yAdtRZvi2 +n/zEWbAdf6h8Ild+ihnCakP2pwu3482xzZJzTsxwwj94R6VoOzZRfdjy+hYz +RH7+MVYq2Y6vm/864RrLDMwyFuPx0u244JrOsGAmM6glmFra7mnHdO9mf/hU +MYNoKmNrmVw7Vvx1MEDqLTMcOuDWd1ihHZsLRTN/+MQM+oP9N6sV23GhE1lI +8SczkHRkP3qotOP+eyG5/f+YgfLwavRT1XbM9LJXJZSLBb6Mlm37SGzHqiNy +lRQhFtivbmg7TWrHp5gDtL4QWGCxrTFsityOQ5Xev4/eywIoqSHxA6Ud/2cq +bnlIiwXuaW7FPVZrx8NXvcZnjVmAjlX3rvPedsyW3eCabMsCUzGBoYLq7ZjS +uuO3tisLcAxkxJXS2PaH480lfxb4wVpdeXBfO767q4ozK4wFxk03WIppXIa4 +ko4mssDqaNrtbfvb8ZiDrcRGNgt8T12EUzTminr+JP85C6yJntGOo/G+Uoa9 +5q9Z4GyEU1o5je2HTr5hfMcCu9wyT7TQmCPti5vXAAu4HJ541kjjklPuIqPT +LLDJok8ppvEpoY02o2UWSIqg+xFKY8bBMP8qelZoZD26YEjjZ/cF5OR4WKHh +T4jGP1p+J60e9iaKsEI0F9/nDBpv7la5zajACuULnpMKNM7tr6J47WMFdSrp +dB5tvUYpR8ZHtFlB8syKETeNly16YoxMWOG0o3eTPU2v9F12uOoMK+xe8fiQ +R9NTp+/7d4IbbVzgrX8vTe+FpKvpiVdZwU3M8f0yrR5J5qyGjHdYQSLVsI+O +xtOfJPJHsllBnqCBxmn1jU4sNDd6zgqCXPdfvKTVX93sAHPVK1ZgavvGE6Dc +jsN6TO0T+1lByGegqJ3mH2LCGC/jNCvszLPgsJKn+cXU7Y3nL9r/16Kv9xDa +sdzHUBGjbWxQxvxsIlGG5u84/vZKYTY44fn3+5BUO75ikuVPkGeDANFRLV6a +n1u7KnsZtNlAIfQLszbN784f5mMq/dmgt8f8+ABtv/DF+GNCGBuEjchLxdP2 +U9VxloWEBDb46Xe04CBvO+bsFDf0LGaDyhd8HFacNP3fmzATptigL7v+XjMd +Tf+o0RcJS2ww+m3g+u+/bXjTyNWegY4dUm9MRO+i7e+j726/+SzEDppb6vp7 +VtrwQluFf4IxO0QGjBRemaGdN3d15Bhs2eHRqISizFQbRgbdvR4u7OB+N0nj +zZc2fK/1G8UwlB1MWTW1GgfbMPGt2AJ9DTuYHbyazkk7n7yaQuw9CBzwTCKD +kP60DYtN6rKsUjjguZNxSBzt/GtnYH8SCBzA8ef5mYCcNrwHon6GW3FA1JZZ +g0xaGx6oSgzKjeCA6FqOpL7wNqz5/NGDgUUOWr9IPvz2PC3fDqfDZzc54Nvj +gZPzZ9pw2neF6Wk2TpgqHn3GeLoNrygUKy9LcsI5KWY7rhNtuCDvZc22k5ww +fG0YhR1qw9vT3g5qVXBC5HQpj8r2Nvy68u71tkZOeDVyICiSsw279BtJneji +BMsbL5lGmdtw046ui7ZztHhqq9fO/mnF/jEDa1dEuKCH0+Fh73gr/nJ7bmdR +EBe4fOk+mPZfK/7Pk8t0tz43NG2PUZnQpfWzVH7/QnNuuMT6rk4Ht+LpRqHM +w+e5IcSsWS99XysWEpT/5nqDG8772PntkWvFIXU6t+rKuEHPaIb6hK0Vm/Pd +eOEstQ3OHFN6HtlC678vfvK/2tgGZCXtHFXqW/wwwGWOaMELS8GVwo2cLZhY +y74WZsMLukmZ6lYMLbiWKZ959BwvFOfmZX5da8ZjUZMSUZ68YJ1jnvBjqhmL +ZdlYzIbzQibbzdjSN804tfF448MaXpBnKhDc7t2M47jVHvBJbYcho/5717qb +cHDm5onl+e1Qp1CpL3a7EdN9HIOaq/xgdrPZn7u3Dsv6XLhyUmEHEO6MVza1 +vsKTK8nmnK92AilA0k4logIbTDlfi/PaDS8e3ZxysH2Bj03GKIqJCcHV7Xa7 +XKcL8TvFyR5rGSGYLJ2zk35biA0v7buepiAEH0Y6GxYKCrEew8iH3fuEwGX9 +2Kc6t0J8WELRl99YCB5NvrO1Wn2G91o31bIFC0F8H4Pacc5nWKRn3ezXlBBM +Lcb9tdJ+guca7IPeFgrDFCFn/vXSIywe2+8cXSoMGqGdZ636HuGTtsfMTlYL +A+vlPAXOmkf49ZqGwthbYfhoIvKs9PYjHKe8vef3hDAs79AYFBN6hA8mvyEQ +hESA/kI50fBIHo50Fum8HSoCT+frtAZKcnDdvrhKwygRyJmNMDZNzcGrTGy5 +2xNE4L3ntW8TN3Pw2cxfVzIeisD48R2FeidysFpPm1RZjQiQas7fEv+ZjT9T +/X0nl0QgfyPPdkMtG6ts7xXVOiMKGheu8au+z8LTUdPBiQ6iYLOkSvxckYUz +OH5//eoiCr4PM/5l5GZhLqbdJZFXRKGd80aMRWAWnlu10u2NFYWYu//lFihl +4bzhz+4XG0Vhxyn9tBDJTCySP/XmnrwYvIiT/cP3Ph33yKzKjKuKgZ/jxtc/ ++ek44iHLXTV1MWB9bMDDcjsd/0klnBw4LAaJwUdrb1PTcX/UxRkpazHoPCCT +Lfc8Dcdf+s5bHi0Gi7y2U9/SUjEHXrEb/iUGdnHMsV8iU/AVTTm28j+08ZFJ +8fPOKXha63TRPXpxSAp+QeLWS8H1enV/DvOIAyP/M79uxhR81SQqvkBBHJpK +/tbIXkvG3xz2NPnaiUPxme5bo75J+F2kmdz2TnGYF/MOHLydgA/cu9Mx90kc +lBYSv/9xTMD5sdU+jcPigD4q3UcGCTgkSbLOb04cgs/4qqnyJGCxD6tKiwwS +sANSIkpS43HvQH2TmZgEnDS/oaxQEYePfD/1W8pMAgaDG3ZJcMXiBwK3Pt6w +lID9UYV/5pZi8PLBp8XDpyXgjlFVbM9ADM66u+GYZC8Br8xzLjPmx+A/hPR+ +dk8JSB96rfteJwY/s/9c+eOuBOy+/Vl3hfse5u0/E/i6VgIQt/YsH4rEF7bC +LIUbJUCPwT5riS8S18g+V7vSIgGn86PPsM9E4IuX6b6TOiTAtEpJaSguAtfz +PbTJG5KArbTiAI5vd7HP0XEUuSoB79Y5WVzzwnF//Xn6U0qSIDh3X20EwvAP +zUGha6qS8FIz99l/YmGYte64WhZZEpyknuUVb4Zi9TcHHKf3S0K9xUSgQmUo +Tqjmfe+tIwlSNpbeu9RC8fHSmpQIW0lgraOjPiPdxs15AsRXMZLwKeO/ByUG +t/CIzF39sXhJ8Dp9ZuKu8i28krNlz5gsCZKBnP13eG9hmey5RP0MSbBYzzm4 +0huMgx/UbnwqkIQjG8/7IhyCMUp2bVmolwTOivR/98Jv4rI7jbYSK5Jw38It +brbvBs43aN8dtiYJOVf914yzb+BUru7u7xuS8L6V6wiL2w0cFDOqW80gBTqO +rBpWjDdo940/Kua8UuD3Jr46iXIdjz8mbkUoSsGDuiZT6exAvK0lPfO3nRQI +5J4qJ5T5Y/rwHCtbBymINfIoybnjj5cNnvA3OUlB9XTIF3trfzzQ8TIszkMK +mO1GYwuY/HFub7eH8jUpAFcxq+OWV/CBaTY4lyIFNjrfD5Vz+uELzJfHOjqk +oJjh2u53WT5YSLy1b6NLCrS68oOCr/vgjv2inXKfpGCb2gMGF2sfrO7a9Cp4 +SApGZm6c69rtg1k+7khTn5GCxcRV3u/xl3BeVrnZA3pp+DM/d0Up3htPHlxr +c1OTBn6pAMf9pZ44xcyoPnWfNOT4vFKuS/bERh5ZlS0HpGEyFX/1CfDEpdl6 ++ZKa0rB+cuq0tZYnDmG/f/vTUWkgCs0NGjzxwDJ9GkB1lIY8zjvVE3Tu+Jx3 +QBlXqjToyR4x2znrjNXJI2XyGdLAw0X5xlztjDmWoFw3Sxouaic1H4xyxs+9 +WF4GPZIG71OOE1fIznjTM7ZiuUQaejVyRlWCLuIkj8fVw+3SQNhZa3xIzgm3 +un6se/ZXGrrt93MF5zvgdCX1+lY6GbBJIEjGBjtgz/mU+mlGGVCPimwfsnbA +O11tGyQ4ZGCXUVmWFJ8DtneZbUzYKQOyjp4P3G6cx5sXt1oCVWXgTKDdrdLz +57Cqo2KHkZ0MNNWknvtlYYdHLop7FJ6XAS6rQk+sbocjXfl5tznJgOqTn6HN +AnZ41mvjRKe7DCy/Lb0Y0n0W5wS2fzoRKAPH/vyyKjM+i3fFuXw2T5aBR75u +6bjYFm/VPJ0/+14G4rmyVZOFTuOiN5lRdR9kAJk79z+aPIWt6+NVpHpkwCJr +pXVX8Slc2RLgOTEoA1XeU1LCOqfwpW7DZYcZGfDJyN2VfNkKf/36bcOZcQ9I +vJAe+/LVAnfyKXFe1tgDhiUz1H5uM4zc3GbTDu2BiA/Zel1TJ3FRS1FLPe1W +Re1SyOZ5fRJHB5JCeHX3QLUvU9opj5PYaFr971OTPcApFUwW+2SK2yo1F8dd +9oD7pI0IQ6EJbjpr8dH4wR6I/b3D9E6EMVarTvnP7+EeuP2aY6eTizHO3TF4 +70HuHjj3YfFrkKExDmmzNpp/sgeYLm8YW3MZ48Nq9k1hL/cAe+DeP2clj+Na +VreXrz/sgfy0l+2MR47i6qLgNCVGWXhjbem4MaKPWYzMhJJZZGHtnJaVy2N9 +fGKWcJ+eQxYY5mIn9Dz18Vfp90m9vLKwkq/8Sp9RH/Pf3xUXJCYLGn7Gj46q +6GGXW8/u9GjIQrt6DHN1si4ul7jBiqmy0GBTe/zZBV1M//pEaAHIQk8yNXtr +ry5OXlu9df2ILEju2XzY+kkHN7hp3pAzk4VDdOYC/YI6WNiy93Kgpyz4Rdo6 +GrzQwhdW8penL9G+7yAKcN3Rwv/FBVw64ScLhgqn9fbYaOEj7yW8ZK/Lgi9/ +YetpNi186bCL64cIWUgXCNxosT+M25Xozsk8loUDam2pOwmaOIBewfjdZ1kw ++HWbxP+Riqe1Oftlv8iCNR//XudYKja+M3/m5qQs/OHZznjEmIpleIo91L/J +Qpz/PpnozkP4nYjavaw1WYhEYYP7eg5isf2ow4efAAUdU9zyKxr4ToC4eedO +ApiX/D3uWq2Bl17TjcgLEWA5PCJHNlgDt+g0fB+RIICrqTXTX14N7Gmqx62v +QoBLJjUPd6vtx/XuJkai+gRQ048JP35PHSuVUHr8jAjAtofF5YG1Ok5aEbDu +Pk6AXf+WBSwU1LFLYJ9LmDkBktTcMxla9mKBu9YRP88RoC302KQS8158Ie9C +W9N1Arzne8C7J4GCOYav6rmXEoDALIzSfxOxul8B972XtHyXLS6ZfCRiO77+ +7uIqArwy4l01LibiCr29Nj9rCRC7zeuTjBMRXyhb9PJ5T4DcV8/CKVWquC76 +fNrVadp8YkJp3GNlPC8ffzZtlgDC4QvtMY7KeHdT3Z6aeQKIFNU288gpY/cN +sed/lwjwzGPf88gnSljEaaAxaIsAf5PTCpzKFGn3kWMLobvlwMnTsH/sizzO +HQ588VhYDhxk5j8HFcjjTr+nV96KyUGk46P78V7yWLaIjZFjjxxQP70a5GaU +xx+FGnZFkeSgW23yPFKUwyrL+zTjDeTAKrZcauieLJ56JJmQGSgH9DedGPNy +pfF8yJd1xiA5cC1ILXW9LI2X7B+ecbolB6/6pyse6EpjOnFJRdJdOTg+2KqH +5qSwULJEfX2yHGiWB9SZqkth4zDxH1MlcnBx8Zyo+BcJbOEwamZQLgeUJu1Z +QoUEttXKrC6qlIOmsxMrUfcksMuWWJhfrRzMNr2pc8cSONRPTIy9Qw7261Xx +DOuK4xpHUSOlWTkQ+PxM/vpvEdyg8/m/mHk5WBUq3R36XAS3SWfsWlmUA/7E +oydJziK4b1Rk4tWqHOz8cVfLdVQYL1mIXD3OJA8dWhkJx7qEsJyecL63uDwc +GRpffdi1GyfICTJVmsnDBh234vzBHdjaVvbxhKU8mFrauLpz7MAyCRSDbdby +oHDh7BGbAQFcunU05py9PPQKfTe7dkUA9/QGi2zzkIdFjxf/iqr5Mf/tebVz +d+ThaUvwopgZHx6sWu+LipCH+S1nBxYFPpz9gyWgIloebto0WRzd2o7J1pJ1 +3InyMLBbO3P1yXZsQjE/WvFQHh6/NrrzkGU7jvvyxoG7Wh4e2f0td8zgwad2 +vWfb/5qWv9mBiksmPFjq6OBT+zp5MJojniew8eCSiuWfL1vkAUxbjgRd3oa7 +78lft++Rh6Ar2pndFtx4O4pPevldHorZt372aHDimNQLLXYSCnBBuIzw1JkV ++/kGXwqUVoBt0U5OJhRWbGvyQDxZVgFK3ZYtLm+yYCWOXr93Sgpw/6rvQYUY +FtzqryO3T0MB1qzNj6i9YsYMVjLhXCYKEKssh34qMeFZNdhLMFOApp66CyOb +jPgDr/UXTUsFKGga+L3vPSPOfBuv4WerAKPHLtQpeTDiQ/sZ5744K0B2Df1J +pgoGfHnXuMHLWwog+idsxzNremz96+9qV6gCMNvaKq2R6bF2p2DOfLgCDAnU +yeaw02O+sBMbkjEKwMHZnsFXQYeLVmufRqYrwCc19i5NQTo88ymTy75MAUzv +XjXw7P+LTiXYdHB9VYDG1cdz2zLXkcgLDmGXOQX43nzNhXp6HY12vXRs/a4A +i9uuGOzcvY7O8/DRhy4rQJ3Ro+Ha+DXkfreZskWvCGVjw3s64n6j4CDV+z9F +FOFoLGHoatEK0s4cnjouoQg672JW7vusINbX4eQiaUXYjNvTa3hwBUVuTLQ7 +KyhCnJPyJfu2ZZTkm/JvYp8iHMpYDt27+AsVuNKf7zVRBMpdAqexyRJyjSh6 +rmauCH3Q+OavxBJSeXL6b5yVIjByyb2Q//ETlXwtSzp+VhFOL15P+n3vJ6qx +d25966YIHU7X8ww+/UAfLD+qVN9RBM+RRInsbwtoTTtvPfO1Ivx4tCr4i3sO +BVZn3mqsU4SqmsiH59tnER05lXu2URFe5JcLXgmfRazi9yTJ7YowM/aS+wbr +LNq5fkW/sU8R6m+m80xxzCBKodH9mR+KwPUNaoeUp1G59BFp7mVFaJD7z69x +eQodSNUsJP1WBOE36doaNVPocJh63dW/ivDfggp3vdEUMraTmOXiUIKtpCu+ +yj6TyH3H8n6StBK8ecxlZjM0jpYiFurNZJXggV3rqM+TcXSZYdboqrwS+OqC +G/PVcRS4+Plsg6oSiG/rlIkSGkcRrS13zA4pAX90Zvpuuy8o/1pav7+ZEvhw +p+1SYxxDE1OHr9SHKcHDKRUeJfkhdDizI1shQgky9hY0Fg8NoizLU+/jopVg +8aN/Icu9QWTb7iV1LlEJOLoeJO5ZG0CDz7PeMeYoAXe+5pHvH/tRd8A/CZ3X +SkD+0tgxVtyLSHvvGhbWKUF49ExVtnsvilnY4bujSQkukca4dqv0omN2yu1T +7UqgM9yRsKP4E2rTtb4cOqAEs2ODPAqVPah+e1Vry7ISsPW+rt87340k23WW +Vddo8YWdt06XdaOgkC6xlA0lePe97ozQjW6Efs9ccmJQhqPj+QZWAt2oaniX +GDuvMrBmNQyV6nShkseXvQ0UlQGXf0hSvd2JttvRZ5SoKIOXBd/v3fKdyFMo +qkWIrAyJa+R1xo4OpBKVK/JtvzKkhxmSe4Q60BPvj80RusrQv+/zLoHadyib +ShJ+b6cMP7gIP4bU21D9MY5bG+eVoXz8FX/9QisaPzMxJ++kDL5jX9CFx61I +OjixKtRdGUSuEw59EWpFuc3rVhCgDMa6JlXuHG9R3vH6lBcJymD+2uOvNUcz +aj6bRjeerAxcC8EOR983oWkvHyfeNGW4lqrEMBbThGQTZPe7PVSGbEtJ7ynB +JvSo/26fbJEysFR9V9WhNKJ8O9OdqS3KcGD433mm4Hr01lvp+ts2ZTj3cbbi +zLF6NHOLeXr1vTJwHDxsrCNcj+QevSwz7VEG74qVloLyOlQwJ2zG/UUZGk2f +cJb8qkVPLk3GB/1RBoGKK5P7ON+gwtuXtzsqq4AUn0X3E7oqNH/IJvg2UQW+ +XnJNDq6oRErL2r9yKCqwss5cIeRViZ7YC3wa01CBDfBzCpmsQPn4RcopXRXI +yf3Ow97zEuWu/xA/dkYFmpuPOBzuKUOTz/tjXO1VoMbhHbt2chmSdqqlj3BQ +Ab2LHddnT5Wh7N57Ey0uKsAZcslQcLIUZb5Qeax5RQXY5XodRv++QKlurip7 +Y1XgfC7/v4KjJWhQ5mSmaYIKqP4IWVcUKkGCwwd5vZNVILbD74jG1/9QigHn +UlGGCtC5eB38EfwfSiQ8KZN7ogL85QIz+bXPUcyXr4dEGlTg6EX2PvX8IvQh +pbPwQLMKLDB8fGp3ogjxGL8Us2pVAbFpPyX/jUIU/TqULqlTBZgvucacNylE +kWl7GnmGVUCnhtI6x/EMhZmdM2RcUQH6g+HCL3MLUPbxYWuHNRUYdHVL8TAr +QDX6Zu4tGyrAYvmfgABrAVqiHomNYFCF9NKUqJ1u+chaVrGPn1cVVFMb0yu1 +HiPy7yV7GUVV8PO7En5cMA8d/eniE6qiCmEWkhFpfbnI6dvk7RmSKujYcj19 +lpSLMkZ785/tV4XpXqLHjl25iO1t1YKarirU2GoGNkrkoJGU4Ks6dqogLy1j +12L2EK3HbUQ8Pq8KpreqDJ3EHyKBKJ8MdidV2LEplFo4m4X0b16ofe+uCh6x +nr9Eg7JQ6UUDFvNAVahu/8+mySkT3T3AF3chWRWEypkc5rzSUZ5aRM7bVFWo +KDpszbM7HdWqMJUpPKDNVyTt1n2ThlakVvsWclUh4V+d/TBvGjrLOSjqV6IK +/ExVLea199He4YcFYe9V4Va4sNfS0WTEq+K0VvxBFSLFLZ0r2ZLR/A2VI/0f +VUHYQ6JDtzEJ5UpXT8oNqoIEx2fjZ9QkJODSI942rQrX/LyHHDUS0Z9ARkMW +OiJ0CbUHjJrEo5m8C96p9ETYz/Ktf7dgPOrtaL2vwkgEExjZXBuNQyUSMTPm +LETIknW3f+QRh5wbRUIfcxFBwL9MJSQpFg1wqtfpCRJB5jwjtZMuBjWr3Z8Z +FiKCn4uWu9HDe6jUZpPHS4QIC+v0Z/kO30MxxfW298WJcDxqg3UwNBrpmR7f +nN1DhDnxwgYm0ShUkeq0L4JMBAn9ymva/nfRo4Z2W3E1IvAZH0sQkL+LEuZV +Ql/sJcIPryW7zoFw5IlWeob2E8Fd8NPHP9RwJDd+01sJE8FFM899nPcOSpFP +K3xvSAQGapXZp5HbaPmXbt6to0SIYfSIe5B0Gx1/vZSucZwIleq2VseO30Ys +pgaReSZE2FtteNW8IQRdDlx3vmZFhMcGBwNeld1CJp0WcsqOtPhXtPNy6m6i +ovuMEhNORCBe3vJMDb2J2M8X77rvTASNcWbh40Y3Ue0aCyuzOxHcsiNHZgaC +kKpU+dSwDxHsWYqH0cYNxHVZICcymAg9T99MeLYFIidcm3o4hAglZnKneZwD +UQO7a9zabSJcGlcTmOYIRFcfNNw8H06ED0rCu5WNA9Bsi/fZQzFEKNB3ulo5 +44+ahbpE5zOIYGclsO35MT8kNRW4IzuTCIcGq50l6fzQtWI5bsuHNFaI3xNf +4ovUtIM2G3KJkOfCJ+Ui5Iuy3VSH0p4SYfGXz6HkFR90ozYqxbCSVr+lUMZj +fd5o7nNtwnoVEa6oMp8JS/FG5hu/Yh7X0Op9r9c84pQ3UlI/Fc5YS4S1kYs6 +s2NeqP+p7NXqZiL0hmt9rlz1ROTkN6cVe4gQ/KFX0jzcHWWULlkMfKLpLbbj +2Tcpd8TWvedkWB8RJDt9d3W8ckOjXJFGE4NEYOSz0r/42xVFBltS074QwVzQ +vS3c3wVNu/0U41wkwpOfa2fEy53QiQgZ4cofRDD0/Cfwwt4J1eRb7HJcIsJw +keYnC14nFD/xiqdhhQgV7v0MLe6OCKzu0gVsEiHR8Z7Q2L4LKFVbenyOnQTX +QCqbunYOMdubj6RwksBo/+1P9qXnkOeN8EFdbhIU2Ug/cfQ6h45ULXZn85KA +mjUgwrxgj5ZVaxpO7SLBT6+P+lo/7dBRYbO8NhkSeOtuv3NH9CxKmVSpPS1L +glKBTUTpOYMmC9mG5gkkUBWT34x3P4MCoYaXR5EEhik1hxke26JnDtKBpiQS +GHTMUJVkbRDH858mw1QS9Jo/SSo4dQqZ+7e7uWESDFYocnKxnELZh/Pu/AMS +uMxUqvmWWCGNT5avJbRJcDp972GzbVbI6c8beQcDEqTa/fSf7bJALdrRdAvm +JHjonWc4dtsM8W1zEr5hSYLG4Wv61mCGbPs01XlPkWA2+LJRycZJtHpxxYVs +Q4Lg0h+84z4nkew96z7fcySgU93DwOFlikIGFIq2PEiwEv2v1Db6BPqQzdQa +40UCaRNUcNLsBBJxHZmQvESCGorjw38iJ9CLf7GC2r4ksJCx5rhQZIzGpddD +7gSSQGZiPymm5DjSdG85vT2cBPGqFgWqaUboT/+sbuNdEojl7/o5stcIlWpx +kf0iSVA7kvhtrssQyQqeYPt8jwQUkcVBlm2GiKtxsDQ/iQQjDRyb3Yn6qF9w +gRtyaXp8Mn7JNaaL4kJ415fySJBSl1IbEq2LDBfJk3mPSZAx3nlkF9JFrxv9 +qjifkiC/9CvrtSwdlOtB79j3HwnOKJR4THtpI88mgVr3NzQWdHVR1T6MFIj7 +nkrWkeDRttMtTxkOo4lUq6SeehIMPW3N46rXROaeD1wPNJMAmD1GPbQ00SFh +OUGW9zR9Y3xFnY0BsXkd9M4YpPkjVyzZV5KK6odsbIyHSeCgii1PVhxCAbpB +eowjJLikynMgx/gQWhBuErv4hQRV95lag24fRD3Nx9rVZmj63ee9XLalgTJF +7GXerZDA00/5Ogd5HzpAUVSx/02CSKFfF20m1FGP/vK+tTUSPI13ZStNVEds +fqGGMpskYDhTcOHM373Is+uJdyADGSYe1ew071dDEPqrVomHDN02rAfEqsho +ML2mrZ6XDJoJN3wOXiUjnxe3eyz5yKCRFd2vdJCM8sd2zYTsIINJYrLPzTck +tP3gIZ7PwmQgka4rFXQR0fhiiE2UHBkm7alnIykqKJDlmKO0AhledDs8/d6u +jHaK7vKqVCSDCs+0fIGDMjIwKAiZUiFDlGcoFs1QQiW5759S95JhNCEEBwsr +oltWO/981ySDdZQxKjKRQ2Keo4whWmTgDHdmq/tHQBWh+dxCOmS4w+g5+/0p +Ac2/OCCpq0cGHo9riWHsBHRy2xm9B8fI8Pe0XKxl1x4k0/A46dhpMnhtnLsd +EiONOpTWcoetyUD1vau+fFQaXUnSe+FsS4aWYwtxwCWN2i/Odoba0eL3M2qc +j5BC3ryK7G8cyaDdJhkZES+J3tgUBaj6kCE14Oayapw4cmr5F/7qMhlEP+Ag +FVlxxEc6nmLoRwaJ52aqidVi6ALTj1LHqzS9eH833ZkTRVxPSQuZQWTI0Q1I +iLQUQafWSs/yRpEh7dHLoBNegojJntnjQTQZDFsWNt8JCqKidrNrSjFkOD5z +YsOtYTeiz1y9rxdPhhHbhPjtQrtRvs7+j0H3yRBr4XjSv2cnWomr1vmZR4Za +V4JU3VUB9GCT8+SNx2So/O5QP08RQHoXrO25C8iwvTbYgHWBH6Vr/L0u/4wM +gcpLg5vn+dHhMVRhV0IGxQTVxCQbPhSjXK/Q/ZoMFmOcBax+vCh//2n24Foy +ZImYpy/t50VvtJa/kurJIPv78MCt3zxowUo2L7aJDK59rZ30bDzIMPSu+Il3 +ZLiv9He7KZUbsYyaCHwYoK3vKPe89DI7Ep37tnRjiAy/xSuPlcWyI7WVkC7V +z2S4zvLlbwmRHZ3jfBl9b4wMMrdHO0a82VDtPmH241/JoM6usO7KyooCYib+ +vl8mw9YFJXFNNyYUlxY4fG2VDP6Rog5m4kzoyaMd1cprZKAPrv8Q0c2I+muO +XInaIMNGk2DZsUOMSH326ZIRAwWSry7tfCXCgH5o+nxt56GAx+LyuXluOsR2 +lLs5YDsFhnUDfj/O2qKKWz7KVeSnQGXauUfahC3qMfd+u4idFOioidJ5p/GP ++jT10LCBKAW+jPz4Zndpk3rhF1NXqwIFOs+POp6irFNtn2h3WCtRYPIQy5fY +/jWquV1I+6IyBZj78hvYbqxRdTsZm3eQKHCgeEdZTudvquxThmq7fRTYmQPz +gjdWqVP2dHnrWhQwmP+kEcu/TB0WhOxIHQq07DxQOtT2i9rz4Uam+BEKaDx2 +cyfc+kVtRFv3dQwoYDd8qbN0dYmaK/QvOtaYAtQpfib92Z/U890bV+RtaPGe +bn7m+7VItQ4/6FtjS4Hvg1lRtdcXqSch4NLxsxQ4Df/4ubgWqdpFf9wun6PA +7oFW3QuKC1SZu+v2dRcpkLX/V2t04Dx1QvO3kZUvBd56l9gRzs9SB9fUDeb9 +KFAea8OqwTpL7S72PXLDnwJdJ6LEk5/OUOtFVzXzAilw9cFMguzaV2r2+rL6 +z2AK3Pa95bAra5pq/9+SRPg9CvSe3ieQTJikugabbhrEUsDnGeXbl54J6mXT +0j6ueAp4mxakXLk1Qb2zcjk6JokCeqb0hy5PjlOLNNY3kjNo9UJBalJlX6gV +HKf6rDJp+VptNGi6fqHWDVWVCD+kgNSscHqozBdqz7XAi5m5FFjLcld3Txmj +rtdt9T56SoH4zlxfX6FRKkP82RKnQpo/vn7w25E6QuU6XxelUEwBrxKD4irh +EaoYyy3tohIKFJSPrfyW+UzVNmApKaukwKIkz4LDsSFqTDdXVGMLBZTj798q +Wu2jpua4OYW20upz4akfJb6PmuPToaXXToH9GW+djEh91PKdMX/aOyjwibXV +WNK7lzp8it/p4ycKBBze0VvI/Ik6reijldhH80eVe7ZcUQ91cbNHzGKAAkrO +Y3Oslj1UhsykT4PDFEiR7xn6XPyRSpgQ1BqfoOUfXGJywqObSiy9KpY7RdP3 +X7m/lVQ39cDtoXWHrxQ4ljyxPb23i2pEyHg+O0cBlvPXuV4d7qJ6u0iI/fxJ +gdVR/bBZuQ/UwEM310t+UWCu0GZHUFsn9Tb3eI/PCs2PTKupFjqd1JTinIi1 +NQroXn0ff06zg5odxORY9YcCRTF9/GH176lPTzgcDtykwLqBruILnffUUqlm +UfSPAloaniWjbe+or3/Jrm9tUUCEJf4hk8k76v8Ay1NC0Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.21267024503217932`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.21267024503217932`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8lt8bx+0tQsOeeWzPkFI951wysiqRVShKZJNIVJJIRjYZkVFU6Ctk +VbZQRLJDVkiUEFF+z++f+369X+c+132dz/U55zqS9h4mDgx0dHQfaI//vzOu +27OQzqeh1o652tEfzqjxo4SRhYQ/7rrG5x1Rroe3ml/fkpAIx9KFLqYG5ZY4 +ozZKnFniPl5+d8uDodwJu1Ivu/0WL8BaTLMqmmVX8McNp4Qf4pW4oTMn1KXk +DmYdGid8F2/FF/fLPFN9nIIftmV6fRMfwJEJ8ivXr+bjouLwIVeVORzHVmvp +VV6B5/jmIg3s5rAcD7RfHq/ABF8DJJcwhwPitErObavEWYc4H06sz+HtzH16 +Gw6VOK418sKppm/YY7gpcodAFfaduPfziPV3LJ8eE9brUo0zOdtvbdf5gae7 +Dl+JY3uNHXHX/XnvX3igh11kwK8O02WvVg1F/MLV6XIn99ytwylMIsNtub+w +3zPjd/bpdfht6wWxgt5f+O5OM/3/auuw3MnNbIcDy3hIZZIvja0ezzgRno3Q +r2BLE+dtyYn12Dnu2usPMav4s8jZkyM5DZhhJXv0TcEqVqNU7T1Y2oBTLd7S +Fdev4q4i48mwxgbcJsKvFbW8ij30woJ+TDZgxcf5LfqWv7HVhnbGX5lGPF/9 +8UO9+Bp2enx96d/DRuw+JT9RWrSO8zntN23vNeEx2wG2utZ1fCKfXbP/QRM2 +7b+j8n5yHZ/jZpSnFjXh/e1f/aeE/uD4vTdftb5rwoz/5fHuDPuDB6F6fZ6t +GacESiK/Mxs4ekmXePJaM67jF7yvwfsXl0v/e+Zh3oLVot6+1lH8i40PhSYf +PdeCH7FcmTyh+xc3lq6o7/RswZHrvarOgX8x34LoDcfwFmw+mtCcOvMXNzQm +57FXt+C5J7zLG7X/cAVh+yE9obeYQzKEMLqfDuItHqUlvH2L3x6KVb2uQwfC +r53X+bvf4lDLB/tETehAtH7JOWjoLWaIqThy2oUOzC+9CJFYeIv//Jt37Mug +g4HBGb9rfK3427BZficDPVhGVncVWLTiJ2v2z9156MFPyoTvz5lW7CTgWcEt +Qg9xfZO2+5xa8aTh3beGe+nhk81BUf8rrXi46vVMiyM9kPaeOSSY0orfpRDk +a9/Rw05Z1VfvPrbiu6VqpDMD9IA0BfkWBlux3gdNjX9T9NBNOha8+aUVN7Ja +6x/aoofHhJDqscVWXOMbc7GCxAD9r7ybmznacOHJ9YLnSQyQvXKfxEltw66e +LCXHcxiA17V6/9bhNqwQyV+1UMwABkZDQWN6bfhRg3KbUisDfLW5MeZ8sg0/ +INvP5W8wwPPN2f2Zzm04mrdd4eFZRgiiZHqGx7fhyn2iZcfcGSExK2exIqUN +T9p64M0ARjhlcvV5d0YbPljIf9IimRGkq5W2NT1uwzP61te4OxihcqDsc15V +GxbwKmKtHmIE662EbXJv2jBOoYtzmmWE1++o/yU0tOGk6dxHDUxM0CO37qD8 +rg1r3fre6X+QCU6YeOrbDLdh9yf4FEGfCaLXKI2UsTac2hU72WPOBImfsr4u +T7ThH+Lq66reTDDr+1Vn3zfaemquS03nM8HZpu1qr9bacOvEh2fx5UzApWbU +MrvRhpc5pPdpNjKBzaF6oN9qw4ZWLYbpo0xQaynM+pOpHa+t8Fw22ckMf332 +v+vhacfSovZbW9LM8FLSOMCKrx0f0y4NLyQxQ2r885OtAu04L87yAdtRZvi2 +n/zEWbAdf6h8Ild+ihnCakP2pwu3482xzZJzTsxwwj94R6VoOzZRfdjy+hYz +RH7+MVYq2Y6vm/864RrLDMwyFuPx0u244JrOsGAmM6glmFra7mnHdO9mf/hU +MYNoKmNrmVw7Vvx1MEDqLTMcOuDWd1ihHZsLRTN/+MQM+oP9N6sV23GhE1lI +8SczkHRkP3qotOP+eyG5/f+YgfLwavRT1XbM9LJXJZSLBb6Mlm37SGzHqiNy +lRQhFtivbmg7TWrHp5gDtL4QWGCxrTFsityOQ5Xev4/eywIoqSHxA6Ud/2cq +bnlIiwXuaW7FPVZrx8NXvcZnjVmAjlX3rvPedsyW3eCabMsCUzGBoYLq7ZjS +uuO3tisLcAxkxJXS2PaH480lfxb4wVpdeXBfO767q4ozK4wFxk03WIppXIa4 +ko4mssDqaNrtbfvb8ZiDrcRGNgt8T12EUzTminr+JP85C6yJntGOo/G+Uoa9 +5q9Z4GyEU1o5je2HTr5hfMcCu9wyT7TQmCPti5vXAAu4HJ541kjjklPuIqPT +LLDJok8ppvEpoY02o2UWSIqg+xFKY8bBMP8qelZoZD26YEjjZ/cF5OR4WKHh +T4jGP1p+J60e9iaKsEI0F9/nDBpv7la5zajACuULnpMKNM7tr6J47WMFdSrp +dB5tvUYpR8ZHtFlB8syKETeNly16YoxMWOG0o3eTPU2v9F12uOoMK+xe8fiQ +R9NTp+/7d4IbbVzgrX8vTe+FpKvpiVdZwU3M8f0yrR5J5qyGjHdYQSLVsI+O +xtOfJPJHsllBnqCBxmn1jU4sNDd6zgqCXPdfvKTVX93sAHPVK1ZgavvGE6Dc +jsN6TO0T+1lByGegqJ3mH2LCGC/jNCvszLPgsJKn+cXU7Y3nL9r/16Kv9xDa +sdzHUBGjbWxQxvxsIlGG5u84/vZKYTY44fn3+5BUO75ikuVPkGeDANFRLV6a +n1u7KnsZtNlAIfQLszbN784f5mMq/dmgt8f8+ABtv/DF+GNCGBuEjchLxdP2 +U9VxloWEBDb46Xe04CBvO+bsFDf0LGaDyhd8HFacNP3fmzATptigL7v+XjMd +Tf+o0RcJS2ww+m3g+u+/bXjTyNWegY4dUm9MRO+i7e+j726/+SzEDppb6vp7 +VtrwQluFf4IxO0QGjBRemaGdN3d15Bhs2eHRqISizFQbRgbdvR4u7OB+N0nj +zZc2fK/1G8UwlB1MWTW1GgfbMPGt2AJ9DTuYHbyazkk7n7yaQuw9CBzwTCKD +kP60DYtN6rKsUjjguZNxSBzt/GtnYH8SCBzA8ef5mYCcNrwHon6GW3FA1JZZ +g0xaGx6oSgzKjeCA6FqOpL7wNqz5/NGDgUUOWr9IPvz2PC3fDqfDZzc54Nvj +gZPzZ9pw2neF6Wk2TpgqHn3GeLoNrygUKy9LcsI5KWY7rhNtuCDvZc22k5ww +fG0YhR1qw9vT3g5qVXBC5HQpj8r2Nvy68u71tkZOeDVyICiSsw279BtJneji +BMsbL5lGmdtw046ui7ZztHhqq9fO/mnF/jEDa1dEuKCH0+Fh73gr/nJ7bmdR +EBe4fOk+mPZfK/7Pk8t0tz43NG2PUZnQpfWzVH7/QnNuuMT6rk4Ht+LpRqHM +w+e5IcSsWS99XysWEpT/5nqDG8772PntkWvFIXU6t+rKuEHPaIb6hK0Vm/Pd +eOEstQ3OHFN6HtlC678vfvK/2tgGZCXtHFXqW/wwwGWOaMELS8GVwo2cLZhY +y74WZsMLukmZ6lYMLbiWKZ959BwvFOfmZX5da8ZjUZMSUZ68YJ1jnvBjqhmL +ZdlYzIbzQibbzdjSN804tfF448MaXpBnKhDc7t2M47jVHvBJbYcho/5717qb +cHDm5onl+e1Qp1CpL3a7EdN9HIOaq/xgdrPZn7u3Dsv6XLhyUmEHEO6MVza1 +vsKTK8nmnK92AilA0k4logIbTDlfi/PaDS8e3ZxysH2Bj03GKIqJCcHV7Xa7 +XKcL8TvFyR5rGSGYLJ2zk35biA0v7buepiAEH0Y6GxYKCrEew8iH3fuEwGX9 +2Kc6t0J8WELRl99YCB5NvrO1Wn2G91o31bIFC0F8H4Pacc5nWKRn3ezXlBBM +Lcb9tdJ+guca7IPeFgrDFCFn/vXSIywe2+8cXSoMGqGdZ636HuGTtsfMTlYL +A+vlPAXOmkf49ZqGwthbYfhoIvKs9PYjHKe8vef3hDAs79AYFBN6hA8mvyEQ +hESA/kI50fBIHo50Fum8HSoCT+frtAZKcnDdvrhKwygRyJmNMDZNzcGrTGy5 +2xNE4L3ntW8TN3Pw2cxfVzIeisD48R2FeidysFpPm1RZjQiQas7fEv+ZjT9T +/X0nl0QgfyPPdkMtG6ts7xXVOiMKGheu8au+z8LTUdPBiQ6iYLOkSvxckYUz +OH5//eoiCr4PM/5l5GZhLqbdJZFXRKGd80aMRWAWnlu10u2NFYWYu//lFihl +4bzhz+4XG0Vhxyn9tBDJTCySP/XmnrwYvIiT/cP3Ph33yKzKjKuKgZ/jxtc/ ++ek44iHLXTV1MWB9bMDDcjsd/0klnBw4LAaJwUdrb1PTcX/UxRkpazHoPCCT +Lfc8Dcdf+s5bHi0Gi7y2U9/SUjEHXrEb/iUGdnHMsV8iU/AVTTm28j+08ZFJ +8fPOKXha63TRPXpxSAp+QeLWS8H1enV/DvOIAyP/M79uxhR81SQqvkBBHJpK +/tbIXkvG3xz2NPnaiUPxme5bo75J+F2kmdz2TnGYF/MOHLydgA/cu9Mx90kc +lBYSv/9xTMD5sdU+jcPigD4q3UcGCTgkSbLOb04cgs/4qqnyJGCxD6tKiwwS +sANSIkpS43HvQH2TmZgEnDS/oaxQEYePfD/1W8pMAgaDG3ZJcMXiBwK3Pt6w +lID9UYV/5pZi8PLBp8XDpyXgjlFVbM9ADM66u+GYZC8Br8xzLjPmx+A/hPR+ +dk8JSB96rfteJwY/s/9c+eOuBOy+/Vl3hfse5u0/E/i6VgIQt/YsH4rEF7bC +LIUbJUCPwT5riS8S18g+V7vSIgGn86PPsM9E4IuX6b6TOiTAtEpJaSguAtfz +PbTJG5KArbTiAI5vd7HP0XEUuSoB79Y5WVzzwnF//Xn6U0qSIDh3X20EwvAP +zUGha6qS8FIz99l/YmGYte64WhZZEpyknuUVb4Zi9TcHHKf3S0K9xUSgQmUo +Tqjmfe+tIwlSNpbeu9RC8fHSmpQIW0lgraOjPiPdxs15AsRXMZLwKeO/ByUG +t/CIzF39sXhJ8Dp9ZuKu8i28krNlz5gsCZKBnP13eG9hmey5RP0MSbBYzzm4 +0huMgx/UbnwqkIQjG8/7IhyCMUp2bVmolwTOivR/98Jv4rI7jbYSK5Jw38It +brbvBs43aN8dtiYJOVf914yzb+BUru7u7xuS8L6V6wiL2w0cFDOqW80gBTqO +rBpWjDdo940/Kua8UuD3Jr46iXIdjz8mbkUoSsGDuiZT6exAvK0lPfO3nRQI +5J4qJ5T5Y/rwHCtbBymINfIoybnjj5cNnvA3OUlB9XTIF3trfzzQ8TIszkMK +mO1GYwuY/HFub7eH8jUpAFcxq+OWV/CBaTY4lyIFNjrfD5Vz+uELzJfHOjqk +oJjh2u53WT5YSLy1b6NLCrS68oOCr/vgjv2inXKfpGCb2gMGF2sfrO7a9Cp4 +SApGZm6c69rtg1k+7khTn5GCxcRV3u/xl3BeVrnZA3pp+DM/d0Up3htPHlxr +c1OTBn6pAMf9pZ44xcyoPnWfNOT4vFKuS/bERh5ZlS0HpGEyFX/1CfDEpdl6 ++ZKa0rB+cuq0tZYnDmG/f/vTUWkgCs0NGjzxwDJ9GkB1lIY8zjvVE3Tu+Jx3 +QBlXqjToyR4x2znrjNXJI2XyGdLAw0X5xlztjDmWoFw3Sxouaic1H4xyxs+9 +WF4GPZIG71OOE1fIznjTM7ZiuUQaejVyRlWCLuIkj8fVw+3SQNhZa3xIzgm3 +un6se/ZXGrrt93MF5zvgdCX1+lY6GbBJIEjGBjtgz/mU+mlGGVCPimwfsnbA +O11tGyQ4ZGCXUVmWFJ8DtneZbUzYKQOyjp4P3G6cx5sXt1oCVWXgTKDdrdLz +57Cqo2KHkZ0MNNWknvtlYYdHLop7FJ6XAS6rQk+sbocjXfl5tznJgOqTn6HN +AnZ41mvjRKe7DCy/Lb0Y0n0W5wS2fzoRKAPH/vyyKjM+i3fFuXw2T5aBR75u +6bjYFm/VPJ0/+14G4rmyVZOFTuOiN5lRdR9kAJk79z+aPIWt6+NVpHpkwCJr +pXVX8Slc2RLgOTEoA1XeU1LCOqfwpW7DZYcZGfDJyN2VfNkKf/36bcOZcQ9I +vJAe+/LVAnfyKXFe1tgDhiUz1H5uM4zc3GbTDu2BiA/Zel1TJ3FRS1FLPe1W +Re1SyOZ5fRJHB5JCeHX3QLUvU9opj5PYaFr971OTPcApFUwW+2SK2yo1F8dd +9oD7pI0IQ6EJbjpr8dH4wR6I/b3D9E6EMVarTvnP7+EeuP2aY6eTizHO3TF4 +70HuHjj3YfFrkKExDmmzNpp/sgeYLm8YW3MZ48Nq9k1hL/cAe+DeP2clj+Na +VreXrz/sgfy0l+2MR47i6qLgNCVGWXhjbem4MaKPWYzMhJJZZGHtnJaVy2N9 +fGKWcJ+eQxYY5mIn9Dz18Vfp90m9vLKwkq/8Sp9RH/Pf3xUXJCYLGn7Gj46q +6GGXW8/u9GjIQrt6DHN1si4ul7jBiqmy0GBTe/zZBV1M//pEaAHIQk8yNXtr +ry5OXlu9df2ILEju2XzY+kkHN7hp3pAzk4VDdOYC/YI6WNiy93Kgpyz4Rdo6 +GrzQwhdW8penL9G+7yAKcN3Rwv/FBVw64ScLhgqn9fbYaOEj7yW8ZK/Lgi9/ +YetpNi186bCL64cIWUgXCNxosT+M25Xozsk8loUDam2pOwmaOIBewfjdZ1kw ++HWbxP+Riqe1Oftlv8iCNR//XudYKja+M3/m5qQs/OHZznjEmIpleIo91L/J +Qpz/PpnozkP4nYjavaw1WYhEYYP7eg5isf2ow4efAAUdU9zyKxr4ToC4eedO +ApiX/D3uWq2Bl17TjcgLEWA5PCJHNlgDt+g0fB+RIICrqTXTX14N7Gmqx62v +QoBLJjUPd6vtx/XuJkai+gRQ048JP35PHSuVUHr8jAjAtofF5YG1Ok5aEbDu +Pk6AXf+WBSwU1LFLYJ9LmDkBktTcMxla9mKBu9YRP88RoC302KQS8158Ie9C +W9N1Arzne8C7J4GCOYav6rmXEoDALIzSfxOxul8B972XtHyXLS6ZfCRiO77+ +7uIqArwy4l01LibiCr29Nj9rCRC7zeuTjBMRXyhb9PJ5T4DcV8/CKVWquC76 +fNrVadp8YkJp3GNlPC8ffzZtlgDC4QvtMY7KeHdT3Z6aeQKIFNU288gpY/cN +sed/lwjwzGPf88gnSljEaaAxaIsAf5PTCpzKFGn3kWMLobvlwMnTsH/sizzO +HQ588VhYDhxk5j8HFcjjTr+nV96KyUGk46P78V7yWLaIjZFjjxxQP70a5GaU +xx+FGnZFkeSgW23yPFKUwyrL+zTjDeTAKrZcauieLJ56JJmQGSgH9DedGPNy +pfF8yJd1xiA5cC1ILXW9LI2X7B+ecbolB6/6pyse6EpjOnFJRdJdOTg+2KqH +5qSwULJEfX2yHGiWB9SZqkth4zDxH1MlcnBx8Zyo+BcJbOEwamZQLgeUJu1Z +QoUEttXKrC6qlIOmsxMrUfcksMuWWJhfrRzMNr2pc8cSONRPTIy9Qw7261Xx +DOuK4xpHUSOlWTkQ+PxM/vpvEdyg8/m/mHk5WBUq3R36XAS3SWfsWlmUA/7E +oydJziK4b1Rk4tWqHOz8cVfLdVQYL1mIXD3OJA8dWhkJx7qEsJyecL63uDwc +GRpffdi1GyfICTJVmsnDBh234vzBHdjaVvbxhKU8mFrauLpz7MAyCRSDbdby +oHDh7BGbAQFcunU05py9PPQKfTe7dkUA9/QGi2zzkIdFjxf/iqr5Mf/tebVz +d+ThaUvwopgZHx6sWu+LipCH+S1nBxYFPpz9gyWgIloebto0WRzd2o7J1pJ1 +3InyMLBbO3P1yXZsQjE/WvFQHh6/NrrzkGU7jvvyxoG7Wh4e2f0td8zgwad2 +vWfb/5qWv9mBiksmPFjq6OBT+zp5MJojniew8eCSiuWfL1vkAUxbjgRd3oa7 +78lft++Rh6Ar2pndFtx4O4pPevldHorZt372aHDimNQLLXYSCnBBuIzw1JkV ++/kGXwqUVoBt0U5OJhRWbGvyQDxZVgFK3ZYtLm+yYCWOXr93Sgpw/6rvQYUY +FtzqryO3T0MB1qzNj6i9YsYMVjLhXCYKEKssh34qMeFZNdhLMFOApp66CyOb +jPgDr/UXTUsFKGga+L3vPSPOfBuv4WerAKPHLtQpeTDiQ/sZ5744K0B2Df1J +pgoGfHnXuMHLWwog+idsxzNremz96+9qV6gCMNvaKq2R6bF2p2DOfLgCDAnU +yeaw02O+sBMbkjEKwMHZnsFXQYeLVmufRqYrwCc19i5NQTo88ymTy75MAUzv +XjXw7P+LTiXYdHB9VYDG1cdz2zLXkcgLDmGXOQX43nzNhXp6HY12vXRs/a4A +i9uuGOzcvY7O8/DRhy4rQJ3Ro+Ha+DXkfreZskWvCGVjw3s64n6j4CDV+z9F +FOFoLGHoatEK0s4cnjouoQg672JW7vusINbX4eQiaUXYjNvTa3hwBUVuTLQ7 +KyhCnJPyJfu2ZZTkm/JvYp8iHMpYDt27+AsVuNKf7zVRBMpdAqexyRJyjSh6 +rmauCH3Q+OavxBJSeXL6b5yVIjByyb2Q//ETlXwtSzp+VhFOL15P+n3vJ6qx +d25966YIHU7X8ww+/UAfLD+qVN9RBM+RRInsbwtoTTtvPfO1Ivx4tCr4i3sO +BVZn3mqsU4SqmsiH59tnER05lXu2URFe5JcLXgmfRazi9yTJ7YowM/aS+wbr +LNq5fkW/sU8R6m+m80xxzCBKodH9mR+KwPUNaoeUp1G59BFp7mVFaJD7z69x +eQodSNUsJP1WBOE36doaNVPocJh63dW/ivDfggp3vdEUMraTmOXiUIKtpCu+ +yj6TyH3H8n6StBK8ecxlZjM0jpYiFurNZJXggV3rqM+TcXSZYdboqrwS+OqC +G/PVcRS4+Plsg6oSiG/rlIkSGkcRrS13zA4pAX90Zvpuuy8o/1pav7+ZEvhw +p+1SYxxDE1OHr9SHKcHDKRUeJfkhdDizI1shQgky9hY0Fg8NoizLU+/jopVg +8aN/Icu9QWTb7iV1LlEJOLoeJO5ZG0CDz7PeMeYoAXe+5pHvH/tRd8A/CZ3X +SkD+0tgxVtyLSHvvGhbWKUF49ExVtnsvilnY4bujSQkukca4dqv0omN2yu1T +7UqgM9yRsKP4E2rTtb4cOqAEs2ODPAqVPah+e1Vry7ISsPW+rt87340k23WW +Vddo8YWdt06XdaOgkC6xlA0lePe97ozQjW6Efs9ccmJQhqPj+QZWAt2oaniX +GDuvMrBmNQyV6nShkseXvQ0UlQGXf0hSvd2JttvRZ5SoKIOXBd/v3fKdyFMo +qkWIrAyJa+R1xo4OpBKVK/JtvzKkhxmSe4Q60BPvj80RusrQv+/zLoHadyib +ShJ+b6cMP7gIP4bU21D9MY5bG+eVoXz8FX/9QisaPzMxJ++kDL5jX9CFx61I +OjixKtRdGUSuEw59EWpFuc3rVhCgDMa6JlXuHG9R3vH6lBcJymD+2uOvNUcz +aj6bRjeerAxcC8EOR983oWkvHyfeNGW4lqrEMBbThGQTZPe7PVSGbEtJ7ynB +JvSo/26fbJEysFR9V9WhNKJ8O9OdqS3KcGD433mm4Hr01lvp+ts2ZTj3cbbi +zLF6NHOLeXr1vTJwHDxsrCNcj+QevSwz7VEG74qVloLyOlQwJ2zG/UUZGk2f +cJb8qkVPLk3GB/1RBoGKK5P7ON+gwtuXtzsqq4AUn0X3E7oqNH/IJvg2UQW+ +XnJNDq6oRErL2r9yKCqwss5cIeRViZ7YC3wa01CBDfBzCpmsQPn4RcopXRXI +yf3Ow97zEuWu/xA/dkYFmpuPOBzuKUOTz/tjXO1VoMbhHbt2chmSdqqlj3BQ +Ab2LHddnT5Wh7N57Ey0uKsAZcslQcLIUZb5Qeax5RQXY5XodRv++QKlurip7 +Y1XgfC7/v4KjJWhQ5mSmaYIKqP4IWVcUKkGCwwd5vZNVILbD74jG1/9QigHn +UlGGCtC5eB38EfwfSiQ8KZN7ogL85QIz+bXPUcyXr4dEGlTg6EX2PvX8IvQh +pbPwQLMKLDB8fGp3ogjxGL8Us2pVAbFpPyX/jUIU/TqULqlTBZgvucacNylE +kWl7GnmGVUCnhtI6x/EMhZmdM2RcUQH6g+HCL3MLUPbxYWuHNRUYdHVL8TAr +QDX6Zu4tGyrAYvmfgABrAVqiHomNYFCF9NKUqJ1u+chaVrGPn1cVVFMb0yu1 +HiPy7yV7GUVV8PO7En5cMA8d/eniE6qiCmEWkhFpfbnI6dvk7RmSKujYcj19 +lpSLMkZ785/tV4XpXqLHjl25iO1t1YKarirU2GoGNkrkoJGU4Ks6dqogLy1j +12L2EK3HbUQ8Pq8KpreqDJ3EHyKBKJ8MdidV2LEplFo4m4X0b16ofe+uCh6x +nr9Eg7JQ6UUDFvNAVahu/8+mySkT3T3AF3chWRWEypkc5rzSUZ5aRM7bVFWo +KDpszbM7HdWqMJUpPKDNVyTt1n2ThlakVvsWclUh4V+d/TBvGjrLOSjqV6IK +/ExVLea199He4YcFYe9V4Va4sNfS0WTEq+K0VvxBFSLFLZ0r2ZLR/A2VI/0f +VUHYQ6JDtzEJ5UpXT8oNqoIEx2fjZ9QkJODSI942rQrX/LyHHDUS0Z9ARkMW +OiJ0CbUHjJrEo5m8C96p9ETYz/Ktf7dgPOrtaL2vwkgEExjZXBuNQyUSMTPm +LETIknW3f+QRh5wbRUIfcxFBwL9MJSQpFg1wqtfpCRJB5jwjtZMuBjWr3Z8Z +FiKCn4uWu9HDe6jUZpPHS4QIC+v0Z/kO30MxxfW298WJcDxqg3UwNBrpmR7f +nN1DhDnxwgYm0ShUkeq0L4JMBAn9ymva/nfRo4Z2W3E1IvAZH0sQkL+LEuZV +Ql/sJcIPryW7zoFw5IlWeob2E8Fd8NPHP9RwJDd+01sJE8FFM899nPcOSpFP +K3xvSAQGapXZp5HbaPmXbt6to0SIYfSIe5B0Gx1/vZSucZwIleq2VseO30Ys +pgaReSZE2FtteNW8IQRdDlx3vmZFhMcGBwNeld1CJp0WcsqOtPhXtPNy6m6i +ovuMEhNORCBe3vJMDb2J2M8X77rvTASNcWbh40Y3Ue0aCyuzOxHcsiNHZgaC +kKpU+dSwDxHsWYqH0cYNxHVZICcymAg9T99MeLYFIidcm3o4hAglZnKneZwD +UQO7a9zabSJcGlcTmOYIRFcfNNw8H06ED0rCu5WNA9Bsi/fZQzFEKNB3ulo5 +44+ahbpE5zOIYGclsO35MT8kNRW4IzuTCIcGq50l6fzQtWI5bsuHNFaI3xNf +4ovUtIM2G3KJkOfCJ+Ui5Iuy3VSH0p4SYfGXz6HkFR90ozYqxbCSVr+lUMZj +fd5o7nNtwnoVEa6oMp8JS/FG5hu/Yh7X0Op9r9c84pQ3UlI/Fc5YS4S1kYs6 +s2NeqP+p7NXqZiL0hmt9rlz1ROTkN6cVe4gQ/KFX0jzcHWWULlkMfKLpLbbj +2Tcpd8TWvedkWB8RJDt9d3W8ckOjXJFGE4NEYOSz0r/42xVFBltS074QwVzQ +vS3c3wVNu/0U41wkwpOfa2fEy53QiQgZ4cofRDD0/Cfwwt4J1eRb7HJcIsJw +keYnC14nFD/xiqdhhQgV7v0MLe6OCKzu0gVsEiHR8Z7Q2L4LKFVbenyOnQTX +QCqbunYOMdubj6RwksBo/+1P9qXnkOeN8EFdbhIU2Ug/cfQ6h45ULXZn85KA +mjUgwrxgj5ZVaxpO7SLBT6+P+lo/7dBRYbO8NhkSeOtuv3NH9CxKmVSpPS1L +glKBTUTpOYMmC9mG5gkkUBWT34x3P4MCoYaXR5EEhik1hxke26JnDtKBpiQS +GHTMUJVkbRDH858mw1QS9Jo/SSo4dQqZ+7e7uWESDFYocnKxnELZh/Pu/AMS +uMxUqvmWWCGNT5avJbRJcDp972GzbVbI6c8beQcDEqTa/fSf7bJALdrRdAvm +JHjonWc4dtsM8W1zEr5hSYLG4Wv61mCGbPs01XlPkWA2+LJRycZJtHpxxYVs +Q4Lg0h+84z4nkew96z7fcySgU93DwOFlikIGFIq2PEiwEv2v1Db6BPqQzdQa +40UCaRNUcNLsBBJxHZmQvESCGorjw38iJ9CLf7GC2r4ksJCx5rhQZIzGpddD +7gSSQGZiPymm5DjSdG85vT2cBPGqFgWqaUboT/+sbuNdEojl7/o5stcIlWpx +kf0iSVA7kvhtrssQyQqeYPt8jwQUkcVBlm2GiKtxsDQ/iQQjDRyb3Yn6qF9w +gRtyaXp8Mn7JNaaL4kJ415fySJBSl1IbEq2LDBfJk3mPSZAx3nlkF9JFrxv9 +qjifkiC/9CvrtSwdlOtB79j3HwnOKJR4THtpI88mgVr3NzQWdHVR1T6MFIj7 +nkrWkeDRttMtTxkOo4lUq6SeehIMPW3N46rXROaeD1wPNJMAmD1GPbQ00SFh +OUGW9zR9Y3xFnY0BsXkd9M4YpPkjVyzZV5KK6odsbIyHSeCgii1PVhxCAbpB +eowjJLikynMgx/gQWhBuErv4hQRV95lag24fRD3Nx9rVZmj63ee9XLalgTJF +7GXerZDA00/5Ogd5HzpAUVSx/02CSKFfF20m1FGP/vK+tTUSPI13ZStNVEds +fqGGMpskYDhTcOHM373Is+uJdyADGSYe1ew071dDEPqrVomHDN02rAfEqsho +ML2mrZ6XDJoJN3wOXiUjnxe3eyz5yKCRFd2vdJCM8sd2zYTsIINJYrLPzTck +tP3gIZ7PwmQgka4rFXQR0fhiiE2UHBkm7alnIykqKJDlmKO0AhledDs8/d6u +jHaK7vKqVCSDCs+0fIGDMjIwKAiZUiFDlGcoFs1QQiW5759S95JhNCEEBwsr +oltWO/981ySDdZQxKjKRQ2Keo4whWmTgDHdmq/tHQBWh+dxCOmS4w+g5+/0p +Ac2/OCCpq0cGHo9riWHsBHRy2xm9B8fI8Pe0XKxl1x4k0/A46dhpMnhtnLsd +EiONOpTWcoetyUD1vau+fFQaXUnSe+FsS4aWYwtxwCWN2i/Odoba0eL3M2qc +j5BC3ryK7G8cyaDdJhkZES+J3tgUBaj6kCE14Oayapw4cmr5F/7qMhlEP+Ag +FVlxxEc6nmLoRwaJ52aqidVi6ALTj1LHqzS9eH833ZkTRVxPSQuZQWTI0Q1I +iLQUQafWSs/yRpEh7dHLoBNegojJntnjQTQZDFsWNt8JCqKidrNrSjFkOD5z +YsOtYTeiz1y9rxdPhhHbhPjtQrtRvs7+j0H3yRBr4XjSv2cnWomr1vmZR4Za +V4JU3VUB9GCT8+SNx2So/O5QP08RQHoXrO25C8iwvTbYgHWBH6Vr/L0u/4wM +gcpLg5vn+dHhMVRhV0IGxQTVxCQbPhSjXK/Q/ZoMFmOcBax+vCh//2n24Foy +ZImYpy/t50VvtJa/kurJIPv78MCt3zxowUo2L7aJDK59rZ30bDzIMPSu+Il3 +ZLiv9He7KZUbsYyaCHwYoK3vKPe89DI7Ep37tnRjiAy/xSuPlcWyI7WVkC7V +z2S4zvLlbwmRHZ3jfBl9b4wMMrdHO0a82VDtPmH241/JoM6usO7KyooCYib+ +vl8mw9YFJXFNNyYUlxY4fG2VDP6Rog5m4kzoyaMd1cprZKAPrv8Q0c2I+muO +XInaIMNGk2DZsUOMSH326ZIRAwWSry7tfCXCgH5o+nxt56GAx+LyuXluOsR2 +lLs5YDsFhnUDfj/O2qKKWz7KVeSnQGXauUfahC3qMfd+u4idFOioidJ5p/GP ++jT10LCBKAW+jPz4Zndpk3rhF1NXqwIFOs+POp6irFNtn2h3WCtRYPIQy5fY +/jWquV1I+6IyBZj78hvYbqxRdTsZm3eQKHCgeEdZTudvquxThmq7fRTYmQPz +gjdWqVP2dHnrWhQwmP+kEcu/TB0WhOxIHQq07DxQOtT2i9rz4Uam+BEKaDx2 +cyfc+kVtRFv3dQwoYDd8qbN0dYmaK/QvOtaYAtQpfib92Z/U890bV+RtaPGe +bn7m+7VItQ4/6FtjS4Hvg1lRtdcXqSch4NLxsxQ4Df/4ubgWqdpFf9wun6PA +7oFW3QuKC1SZu+v2dRcpkLX/V2t04Dx1QvO3kZUvBd56l9gRzs9SB9fUDeb9 +KFAea8OqwTpL7S72PXLDnwJdJ6LEk5/OUOtFVzXzAilw9cFMguzaV2r2+rL6 +z2AK3Pa95bAra5pq/9+SRPg9CvSe3ieQTJikugabbhrEUsDnGeXbl54J6mXT +0j6ueAp4mxakXLk1Qb2zcjk6JokCeqb0hy5PjlOLNNY3kjNo9UJBalJlX6gV +HKf6rDJp+VptNGi6fqHWDVWVCD+kgNSscHqozBdqz7XAi5m5FFjLcld3Txmj +rtdt9T56SoH4zlxfX6FRKkP82RKnQpo/vn7w25E6QuU6XxelUEwBrxKD4irh +EaoYyy3tohIKFJSPrfyW+UzVNmApKaukwKIkz4LDsSFqTDdXVGMLBZTj798q +Wu2jpua4OYW20upz4akfJb6PmuPToaXXToH9GW+djEh91PKdMX/aOyjwibXV +WNK7lzp8it/p4ycKBBze0VvI/Ik6reijldhH80eVe7ZcUQ91cbNHzGKAAkrO +Y3Oslj1UhsykT4PDFEiR7xn6XPyRSpgQ1BqfoOUfXGJywqObSiy9KpY7RdP3 +X7m/lVQ39cDtoXWHrxQ4ljyxPb23i2pEyHg+O0cBlvPXuV4d7qJ6u0iI/fxJ +gdVR/bBZuQ/UwEM310t+UWCu0GZHUFsn9Tb3eI/PCs2PTKupFjqd1JTinIi1 +NQroXn0ff06zg5odxORY9YcCRTF9/GH176lPTzgcDtykwLqBruILnffUUqlm +UfSPAloaniWjbe+or3/Jrm9tUUCEJf4hk8k76v8Ay1NC0Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.21267024503217932`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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, 20}, {0., 0.21267024503217932`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9921148559214935`*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"7f9f164f-d33e-9141-aa0d-52309adab880"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel-> + "In[142]:=",ExpressionUUID->"b7cf0d21-5483-ac4b-a7be-b13fedb5cf43"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVlnc8lt8bx+0tQsOeeWzPkFI951wysiqRVShKZJNIVJJIRjYZkVFU6Ctk +VbZQRLJDVkiUEFF+z++f+369X+c+132dz/U55zqS9h4mDgx0dHQfaI//vzOu +27OQzqeh1o652tEfzqjxo4SRhYQ/7rrG5x1Rroe3ml/fkpAIx9KFLqYG5ZY4 +ozZKnFniPl5+d8uDodwJu1Ivu/0WL8BaTLMqmmVX8McNp4Qf4pW4oTMn1KXk +DmYdGid8F2/FF/fLPFN9nIIftmV6fRMfwJEJ8ivXr+bjouLwIVeVORzHVmvp +VV6B5/jmIg3s5rAcD7RfHq/ABF8DJJcwhwPitErObavEWYc4H06sz+HtzH16 +Gw6VOK418sKppm/YY7gpcodAFfaduPfziPV3LJ8eE9brUo0zOdtvbdf5gae7 +Dl+JY3uNHXHX/XnvX3igh11kwK8O02WvVg1F/MLV6XIn99ytwylMIsNtub+w +3zPjd/bpdfht6wWxgt5f+O5OM/3/auuw3MnNbIcDy3hIZZIvja0ezzgRno3Q +r2BLE+dtyYn12Dnu2usPMav4s8jZkyM5DZhhJXv0TcEqVqNU7T1Y2oBTLd7S +Fdev4q4i48mwxgbcJsKvFbW8ij30woJ+TDZgxcf5LfqWv7HVhnbGX5lGPF/9 +8UO9+Bp2enx96d/DRuw+JT9RWrSO8zntN23vNeEx2wG2utZ1fCKfXbP/QRM2 +7b+j8n5yHZ/jZpSnFjXh/e1f/aeE/uD4vTdftb5rwoz/5fHuDPuDB6F6fZ6t +GacESiK/Mxs4ekmXePJaM67jF7yvwfsXl0v/e+Zh3oLVot6+1lH8i40PhSYf +PdeCH7FcmTyh+xc3lq6o7/RswZHrvarOgX8x34LoDcfwFmw+mtCcOvMXNzQm +57FXt+C5J7zLG7X/cAVh+yE9obeYQzKEMLqfDuItHqUlvH2L3x6KVb2uQwfC +r53X+bvf4lDLB/tETehAtH7JOWjoLWaIqThy2oUOzC+9CJFYeIv//Jt37Mug +g4HBGb9rfK3427BZficDPVhGVncVWLTiJ2v2z9156MFPyoTvz5lW7CTgWcEt +Qg9xfZO2+5xa8aTh3beGe+nhk81BUf8rrXi46vVMiyM9kPaeOSSY0orfpRDk +a9/Rw05Z1VfvPrbiu6VqpDMD9IA0BfkWBlux3gdNjX9T9NBNOha8+aUVN7Ja +6x/aoofHhJDqscVWXOMbc7GCxAD9r7ybmznacOHJ9YLnSQyQvXKfxEltw66e +LCXHcxiA17V6/9bhNqwQyV+1UMwABkZDQWN6bfhRg3KbUisDfLW5MeZ8sg0/ +INvP5W8wwPPN2f2Zzm04mrdd4eFZRgiiZHqGx7fhyn2iZcfcGSExK2exIqUN +T9p64M0ARjhlcvV5d0YbPljIf9IimRGkq5W2NT1uwzP61te4OxihcqDsc15V +GxbwKmKtHmIE662EbXJv2jBOoYtzmmWE1++o/yU0tOGk6dxHDUxM0CO37qD8 +rg1r3fre6X+QCU6YeOrbDLdh9yf4FEGfCaLXKI2UsTac2hU72WPOBImfsr4u +T7ThH+Lq66reTDDr+1Vn3zfaemquS03nM8HZpu1qr9bacOvEh2fx5UzApWbU +MrvRhpc5pPdpNjKBzaF6oN9qw4ZWLYbpo0xQaynM+pOpHa+t8Fw22ckMf332 +v+vhacfSovZbW9LM8FLSOMCKrx0f0y4NLyQxQ2r885OtAu04L87yAdtRZvi2 +n/zEWbAdf6h8Ild+ihnCakP2pwu3482xzZJzTsxwwj94R6VoOzZRfdjy+hYz +RH7+MVYq2Y6vm/864RrLDMwyFuPx0u244JrOsGAmM6glmFra7mnHdO9mf/hU +MYNoKmNrmVw7Vvx1MEDqLTMcOuDWd1ihHZsLRTN/+MQM+oP9N6sV23GhE1lI +8SczkHRkP3qotOP+eyG5/f+YgfLwavRT1XbM9LJXJZSLBb6Mlm37SGzHqiNy +lRQhFtivbmg7TWrHp5gDtL4QWGCxrTFsityOQ5Xev4/eywIoqSHxA6Ud/2cq +bnlIiwXuaW7FPVZrx8NXvcZnjVmAjlX3rvPedsyW3eCabMsCUzGBoYLq7ZjS +uuO3tisLcAxkxJXS2PaH480lfxb4wVpdeXBfO767q4ozK4wFxk03WIppXIa4 +ko4mssDqaNrtbfvb8ZiDrcRGNgt8T12EUzTminr+JP85C6yJntGOo/G+Uoa9 +5q9Z4GyEU1o5je2HTr5hfMcCu9wyT7TQmCPti5vXAAu4HJ541kjjklPuIqPT +LLDJok8ppvEpoY02o2UWSIqg+xFKY8bBMP8qelZoZD26YEjjZ/cF5OR4WKHh +T4jGP1p+J60e9iaKsEI0F9/nDBpv7la5zajACuULnpMKNM7tr6J47WMFdSrp +dB5tvUYpR8ZHtFlB8syKETeNly16YoxMWOG0o3eTPU2v9F12uOoMK+xe8fiQ +R9NTp+/7d4IbbVzgrX8vTe+FpKvpiVdZwU3M8f0yrR5J5qyGjHdYQSLVsI+O +xtOfJPJHsllBnqCBxmn1jU4sNDd6zgqCXPdfvKTVX93sAHPVK1ZgavvGE6Dc +jsN6TO0T+1lByGegqJ3mH2LCGC/jNCvszLPgsJKn+cXU7Y3nL9r/16Kv9xDa +sdzHUBGjbWxQxvxsIlGG5u84/vZKYTY44fn3+5BUO75ikuVPkGeDANFRLV6a +n1u7KnsZtNlAIfQLszbN784f5mMq/dmgt8f8+ABtv/DF+GNCGBuEjchLxdP2 +U9VxloWEBDb46Xe04CBvO+bsFDf0LGaDyhd8HFacNP3fmzATptigL7v+XjMd +Tf+o0RcJS2ww+m3g+u+/bXjTyNWegY4dUm9MRO+i7e+j726/+SzEDppb6vp7 +VtrwQluFf4IxO0QGjBRemaGdN3d15Bhs2eHRqISizFQbRgbdvR4u7OB+N0nj +zZc2fK/1G8UwlB1MWTW1GgfbMPGt2AJ9DTuYHbyazkk7n7yaQuw9CBzwTCKD +kP60DYtN6rKsUjjguZNxSBzt/GtnYH8SCBzA8ef5mYCcNrwHon6GW3FA1JZZ +g0xaGx6oSgzKjeCA6FqOpL7wNqz5/NGDgUUOWr9IPvz2PC3fDqfDZzc54Nvj +gZPzZ9pw2neF6Wk2TpgqHn3GeLoNrygUKy9LcsI5KWY7rhNtuCDvZc22k5ww +fG0YhR1qw9vT3g5qVXBC5HQpj8r2Nvy68u71tkZOeDVyICiSsw279BtJneji +BMsbL5lGmdtw046ui7ZztHhqq9fO/mnF/jEDa1dEuKCH0+Fh73gr/nJ7bmdR +EBe4fOk+mPZfK/7Pk8t0tz43NG2PUZnQpfWzVH7/QnNuuMT6rk4Ht+LpRqHM +w+e5IcSsWS99XysWEpT/5nqDG8772PntkWvFIXU6t+rKuEHPaIb6hK0Vm/Pd +eOEstQ3OHFN6HtlC678vfvK/2tgGZCXtHFXqW/wwwGWOaMELS8GVwo2cLZhY +y74WZsMLukmZ6lYMLbiWKZ959BwvFOfmZX5da8ZjUZMSUZ68YJ1jnvBjqhmL +ZdlYzIbzQibbzdjSN804tfF448MaXpBnKhDc7t2M47jVHvBJbYcho/5717qb +cHDm5onl+e1Qp1CpL3a7EdN9HIOaq/xgdrPZn7u3Dsv6XLhyUmEHEO6MVza1 +vsKTK8nmnK92AilA0k4logIbTDlfi/PaDS8e3ZxysH2Bj03GKIqJCcHV7Xa7 +XKcL8TvFyR5rGSGYLJ2zk35biA0v7buepiAEH0Y6GxYKCrEew8iH3fuEwGX9 +2Kc6t0J8WELRl99YCB5NvrO1Wn2G91o31bIFC0F8H4Pacc5nWKRn3ezXlBBM +Lcb9tdJ+guca7IPeFgrDFCFn/vXSIywe2+8cXSoMGqGdZ636HuGTtsfMTlYL +A+vlPAXOmkf49ZqGwthbYfhoIvKs9PYjHKe8vef3hDAs79AYFBN6hA8mvyEQ +hESA/kI50fBIHo50Fum8HSoCT+frtAZKcnDdvrhKwygRyJmNMDZNzcGrTGy5 +2xNE4L3ntW8TN3Pw2cxfVzIeisD48R2FeidysFpPm1RZjQiQas7fEv+ZjT9T +/X0nl0QgfyPPdkMtG6ts7xXVOiMKGheu8au+z8LTUdPBiQ6iYLOkSvxckYUz +OH5//eoiCr4PM/5l5GZhLqbdJZFXRKGd80aMRWAWnlu10u2NFYWYu//lFihl +4bzhz+4XG0Vhxyn9tBDJTCySP/XmnrwYvIiT/cP3Ph33yKzKjKuKgZ/jxtc/ ++ek44iHLXTV1MWB9bMDDcjsd/0klnBw4LAaJwUdrb1PTcX/UxRkpazHoPCCT +Lfc8Dcdf+s5bHi0Gi7y2U9/SUjEHXrEb/iUGdnHMsV8iU/AVTTm28j+08ZFJ +8fPOKXha63TRPXpxSAp+QeLWS8H1enV/DvOIAyP/M79uxhR81SQqvkBBHJpK +/tbIXkvG3xz2NPnaiUPxme5bo75J+F2kmdz2TnGYF/MOHLydgA/cu9Mx90kc +lBYSv/9xTMD5sdU+jcPigD4q3UcGCTgkSbLOb04cgs/4qqnyJGCxD6tKiwwS +sANSIkpS43HvQH2TmZgEnDS/oaxQEYePfD/1W8pMAgaDG3ZJcMXiBwK3Pt6w +lID9UYV/5pZi8PLBp8XDpyXgjlFVbM9ADM66u+GYZC8Br8xzLjPmx+A/hPR+ +dk8JSB96rfteJwY/s/9c+eOuBOy+/Vl3hfse5u0/E/i6VgIQt/YsH4rEF7bC +LIUbJUCPwT5riS8S18g+V7vSIgGn86PPsM9E4IuX6b6TOiTAtEpJaSguAtfz +PbTJG5KArbTiAI5vd7HP0XEUuSoB79Y5WVzzwnF//Xn6U0qSIDh3X20EwvAP +zUGha6qS8FIz99l/YmGYte64WhZZEpyknuUVb4Zi9TcHHKf3S0K9xUSgQmUo +Tqjmfe+tIwlSNpbeu9RC8fHSmpQIW0lgraOjPiPdxs15AsRXMZLwKeO/ByUG +t/CIzF39sXhJ8Dp9ZuKu8i28krNlz5gsCZKBnP13eG9hmey5RP0MSbBYzzm4 +0huMgx/UbnwqkIQjG8/7IhyCMUp2bVmolwTOivR/98Jv4rI7jbYSK5Jw38It +brbvBs43aN8dtiYJOVf914yzb+BUru7u7xuS8L6V6wiL2w0cFDOqW80gBTqO +rBpWjDdo940/Kua8UuD3Jr46iXIdjz8mbkUoSsGDuiZT6exAvK0lPfO3nRQI +5J4qJ5T5Y/rwHCtbBymINfIoybnjj5cNnvA3OUlB9XTIF3trfzzQ8TIszkMK +mO1GYwuY/HFub7eH8jUpAFcxq+OWV/CBaTY4lyIFNjrfD5Vz+uELzJfHOjqk +oJjh2u53WT5YSLy1b6NLCrS68oOCr/vgjv2inXKfpGCb2gMGF2sfrO7a9Cp4 +SApGZm6c69rtg1k+7khTn5GCxcRV3u/xl3BeVrnZA3pp+DM/d0Up3htPHlxr +c1OTBn6pAMf9pZ44xcyoPnWfNOT4vFKuS/bERh5ZlS0HpGEyFX/1CfDEpdl6 ++ZKa0rB+cuq0tZYnDmG/f/vTUWkgCs0NGjzxwDJ9GkB1lIY8zjvVE3Tu+Jx3 +QBlXqjToyR4x2znrjNXJI2XyGdLAw0X5xlztjDmWoFw3Sxouaic1H4xyxs+9 +WF4GPZIG71OOE1fIznjTM7ZiuUQaejVyRlWCLuIkj8fVw+3SQNhZa3xIzgm3 +un6se/ZXGrrt93MF5zvgdCX1+lY6GbBJIEjGBjtgz/mU+mlGGVCPimwfsnbA +O11tGyQ4ZGCXUVmWFJ8DtneZbUzYKQOyjp4P3G6cx5sXt1oCVWXgTKDdrdLz +57Cqo2KHkZ0MNNWknvtlYYdHLop7FJ6XAS6rQk+sbocjXfl5tznJgOqTn6HN +AnZ41mvjRKe7DCy/Lb0Y0n0W5wS2fzoRKAPH/vyyKjM+i3fFuXw2T5aBR75u +6bjYFm/VPJ0/+14G4rmyVZOFTuOiN5lRdR9kAJk79z+aPIWt6+NVpHpkwCJr +pXVX8Slc2RLgOTEoA1XeU1LCOqfwpW7DZYcZGfDJyN2VfNkKf/36bcOZcQ9I +vJAe+/LVAnfyKXFe1tgDhiUz1H5uM4zc3GbTDu2BiA/Zel1TJ3FRS1FLPe1W +Re1SyOZ5fRJHB5JCeHX3QLUvU9opj5PYaFr971OTPcApFUwW+2SK2yo1F8dd +9oD7pI0IQ6EJbjpr8dH4wR6I/b3D9E6EMVarTvnP7+EeuP2aY6eTizHO3TF4 +70HuHjj3YfFrkKExDmmzNpp/sgeYLm8YW3MZ48Nq9k1hL/cAe+DeP2clj+Na +VreXrz/sgfy0l+2MR47i6qLgNCVGWXhjbem4MaKPWYzMhJJZZGHtnJaVy2N9 +fGKWcJ+eQxYY5mIn9Dz18Vfp90m9vLKwkq/8Sp9RH/Pf3xUXJCYLGn7Gj46q +6GGXW8/u9GjIQrt6DHN1si4ul7jBiqmy0GBTe/zZBV1M//pEaAHIQk8yNXtr +ry5OXlu9df2ILEju2XzY+kkHN7hp3pAzk4VDdOYC/YI6WNiy93Kgpyz4Rdo6 +GrzQwhdW8penL9G+7yAKcN3Rwv/FBVw64ScLhgqn9fbYaOEj7yW8ZK/Lgi9/ +YetpNi186bCL64cIWUgXCNxosT+M25Xozsk8loUDam2pOwmaOIBewfjdZ1kw ++HWbxP+Riqe1Oftlv8iCNR//XudYKja+M3/m5qQs/OHZznjEmIpleIo91L/J +Qpz/PpnozkP4nYjavaw1WYhEYYP7eg5isf2ow4efAAUdU9zyKxr4ToC4eedO +ApiX/D3uWq2Bl17TjcgLEWA5PCJHNlgDt+g0fB+RIICrqTXTX14N7Gmqx62v +QoBLJjUPd6vtx/XuJkai+gRQ048JP35PHSuVUHr8jAjAtofF5YG1Ok5aEbDu +Pk6AXf+WBSwU1LFLYJ9LmDkBktTcMxla9mKBu9YRP88RoC302KQS8158Ie9C +W9N1Arzne8C7J4GCOYav6rmXEoDALIzSfxOxul8B972XtHyXLS6ZfCRiO77+ +7uIqArwy4l01LibiCr29Nj9rCRC7zeuTjBMRXyhb9PJ5T4DcV8/CKVWquC76 +fNrVadp8YkJp3GNlPC8ffzZtlgDC4QvtMY7KeHdT3Z6aeQKIFNU288gpY/cN +sed/lwjwzGPf88gnSljEaaAxaIsAf5PTCpzKFGn3kWMLobvlwMnTsH/sizzO +HQ588VhYDhxk5j8HFcjjTr+nV96KyUGk46P78V7yWLaIjZFjjxxQP70a5GaU +xx+FGnZFkeSgW23yPFKUwyrL+zTjDeTAKrZcauieLJ56JJmQGSgH9DedGPNy +pfF8yJd1xiA5cC1ILXW9LI2X7B+ecbolB6/6pyse6EpjOnFJRdJdOTg+2KqH +5qSwULJEfX2yHGiWB9SZqkth4zDxH1MlcnBx8Zyo+BcJbOEwamZQLgeUJu1Z +QoUEttXKrC6qlIOmsxMrUfcksMuWWJhfrRzMNr2pc8cSONRPTIy9Qw7261Xx +DOuK4xpHUSOlWTkQ+PxM/vpvEdyg8/m/mHk5WBUq3R36XAS3SWfsWlmUA/7E +oydJziK4b1Rk4tWqHOz8cVfLdVQYL1mIXD3OJA8dWhkJx7qEsJyecL63uDwc +GRpffdi1GyfICTJVmsnDBh234vzBHdjaVvbxhKU8mFrauLpz7MAyCRSDbdby +oHDh7BGbAQFcunU05py9PPQKfTe7dkUA9/QGi2zzkIdFjxf/iqr5Mf/tebVz +d+ThaUvwopgZHx6sWu+LipCH+S1nBxYFPpz9gyWgIloebto0WRzd2o7J1pJ1 +3InyMLBbO3P1yXZsQjE/WvFQHh6/NrrzkGU7jvvyxoG7Wh4e2f0td8zgwad2 +vWfb/5qWv9mBiksmPFjq6OBT+zp5MJojniew8eCSiuWfL1vkAUxbjgRd3oa7 +78lft++Rh6Ar2pndFtx4O4pPevldHorZt372aHDimNQLLXYSCnBBuIzw1JkV ++/kGXwqUVoBt0U5OJhRWbGvyQDxZVgFK3ZYtLm+yYCWOXr93Sgpw/6rvQYUY +FtzqryO3T0MB1qzNj6i9YsYMVjLhXCYKEKssh34qMeFZNdhLMFOApp66CyOb +jPgDr/UXTUsFKGga+L3vPSPOfBuv4WerAKPHLtQpeTDiQ/sZ5744K0B2Df1J +pgoGfHnXuMHLWwog+idsxzNremz96+9qV6gCMNvaKq2R6bF2p2DOfLgCDAnU +yeaw02O+sBMbkjEKwMHZnsFXQYeLVmufRqYrwCc19i5NQTo88ymTy75MAUzv +XjXw7P+LTiXYdHB9VYDG1cdz2zLXkcgLDmGXOQX43nzNhXp6HY12vXRs/a4A +i9uuGOzcvY7O8/DRhy4rQJ3Ro+Ha+DXkfreZskWvCGVjw3s64n6j4CDV+z9F +FOFoLGHoatEK0s4cnjouoQg672JW7vusINbX4eQiaUXYjNvTa3hwBUVuTLQ7 +KyhCnJPyJfu2ZZTkm/JvYp8iHMpYDt27+AsVuNKf7zVRBMpdAqexyRJyjSh6 +rmauCH3Q+OavxBJSeXL6b5yVIjByyb2Q//ETlXwtSzp+VhFOL15P+n3vJ6qx +d25966YIHU7X8ww+/UAfLD+qVN9RBM+RRInsbwtoTTtvPfO1Ivx4tCr4i3sO +BVZn3mqsU4SqmsiH59tnER05lXu2URFe5JcLXgmfRazi9yTJ7YowM/aS+wbr +LNq5fkW/sU8R6m+m80xxzCBKodH9mR+KwPUNaoeUp1G59BFp7mVFaJD7z69x +eQodSNUsJP1WBOE36doaNVPocJh63dW/ivDfggp3vdEUMraTmOXiUIKtpCu+ +yj6TyH3H8n6StBK8ecxlZjM0jpYiFurNZJXggV3rqM+TcXSZYdboqrwS+OqC +G/PVcRS4+Plsg6oSiG/rlIkSGkcRrS13zA4pAX90Zvpuuy8o/1pav7+ZEvhw +p+1SYxxDE1OHr9SHKcHDKRUeJfkhdDizI1shQgky9hY0Fg8NoizLU+/jopVg +8aN/Icu9QWTb7iV1LlEJOLoeJO5ZG0CDz7PeMeYoAXe+5pHvH/tRd8A/CZ3X +SkD+0tgxVtyLSHvvGhbWKUF49ExVtnsvilnY4bujSQkukca4dqv0omN2yu1T +7UqgM9yRsKP4E2rTtb4cOqAEs2ODPAqVPah+e1Vry7ISsPW+rt87340k23WW +Vddo8YWdt06XdaOgkC6xlA0lePe97ozQjW6Efs9ccmJQhqPj+QZWAt2oaniX +GDuvMrBmNQyV6nShkseXvQ0UlQGXf0hSvd2JttvRZ5SoKIOXBd/v3fKdyFMo +qkWIrAyJa+R1xo4OpBKVK/JtvzKkhxmSe4Q60BPvj80RusrQv+/zLoHadyib +ShJ+b6cMP7gIP4bU21D9MY5bG+eVoXz8FX/9QisaPzMxJ++kDL5jX9CFx61I +OjixKtRdGUSuEw59EWpFuc3rVhCgDMa6JlXuHG9R3vH6lBcJymD+2uOvNUcz +aj6bRjeerAxcC8EOR983oWkvHyfeNGW4lqrEMBbThGQTZPe7PVSGbEtJ7ynB +JvSo/26fbJEysFR9V9WhNKJ8O9OdqS3KcGD433mm4Hr01lvp+ts2ZTj3cbbi +zLF6NHOLeXr1vTJwHDxsrCNcj+QevSwz7VEG74qVloLyOlQwJ2zG/UUZGk2f +cJb8qkVPLk3GB/1RBoGKK5P7ON+gwtuXtzsqq4AUn0X3E7oqNH/IJvg2UQW+ +XnJNDq6oRErL2r9yKCqwss5cIeRViZ7YC3wa01CBDfBzCpmsQPn4RcopXRXI +yf3Ow97zEuWu/xA/dkYFmpuPOBzuKUOTz/tjXO1VoMbhHbt2chmSdqqlj3BQ +Ab2LHddnT5Wh7N57Ey0uKsAZcslQcLIUZb5Qeax5RQXY5XodRv++QKlurip7 +Y1XgfC7/v4KjJWhQ5mSmaYIKqP4IWVcUKkGCwwd5vZNVILbD74jG1/9QigHn +UlGGCtC5eB38EfwfSiQ8KZN7ogL85QIz+bXPUcyXr4dEGlTg6EX2PvX8IvQh +pbPwQLMKLDB8fGp3ogjxGL8Us2pVAbFpPyX/jUIU/TqULqlTBZgvucacNylE +kWl7GnmGVUCnhtI6x/EMhZmdM2RcUQH6g+HCL3MLUPbxYWuHNRUYdHVL8TAr +QDX6Zu4tGyrAYvmfgABrAVqiHomNYFCF9NKUqJ1u+chaVrGPn1cVVFMb0yu1 +HiPy7yV7GUVV8PO7En5cMA8d/eniE6qiCmEWkhFpfbnI6dvk7RmSKujYcj19 +lpSLMkZ785/tV4XpXqLHjl25iO1t1YKarirU2GoGNkrkoJGU4Ks6dqogLy1j +12L2EK3HbUQ8Pq8KpreqDJ3EHyKBKJ8MdidV2LEplFo4m4X0b16ofe+uCh6x +nr9Eg7JQ6UUDFvNAVahu/8+mySkT3T3AF3chWRWEypkc5rzSUZ5aRM7bVFWo +KDpszbM7HdWqMJUpPKDNVyTt1n2ThlakVvsWclUh4V+d/TBvGjrLOSjqV6IK +/ExVLea199He4YcFYe9V4Va4sNfS0WTEq+K0VvxBFSLFLZ0r2ZLR/A2VI/0f +VUHYQ6JDtzEJ5UpXT8oNqoIEx2fjZ9QkJODSI942rQrX/LyHHDUS0Z9ARkMW +OiJ0CbUHjJrEo5m8C96p9ETYz/Ktf7dgPOrtaL2vwkgEExjZXBuNQyUSMTPm +LETIknW3f+QRh5wbRUIfcxFBwL9MJSQpFg1wqtfpCRJB5jwjtZMuBjWr3Z8Z +FiKCn4uWu9HDe6jUZpPHS4QIC+v0Z/kO30MxxfW298WJcDxqg3UwNBrpmR7f +nN1DhDnxwgYm0ShUkeq0L4JMBAn9ymva/nfRo4Z2W3E1IvAZH0sQkL+LEuZV +Ql/sJcIPryW7zoFw5IlWeob2E8Fd8NPHP9RwJDd+01sJE8FFM899nPcOSpFP +K3xvSAQGapXZp5HbaPmXbt6to0SIYfSIe5B0Gx1/vZSucZwIleq2VseO30Ys +pgaReSZE2FtteNW8IQRdDlx3vmZFhMcGBwNeld1CJp0WcsqOtPhXtPNy6m6i +ovuMEhNORCBe3vJMDb2J2M8X77rvTASNcWbh40Y3Ue0aCyuzOxHcsiNHZgaC +kKpU+dSwDxHsWYqH0cYNxHVZICcymAg9T99MeLYFIidcm3o4hAglZnKneZwD +UQO7a9zabSJcGlcTmOYIRFcfNNw8H06ED0rCu5WNA9Bsi/fZQzFEKNB3ulo5 +44+ahbpE5zOIYGclsO35MT8kNRW4IzuTCIcGq50l6fzQtWI5bsuHNFaI3xNf +4ovUtIM2G3KJkOfCJ+Ui5Iuy3VSH0p4SYfGXz6HkFR90ozYqxbCSVr+lUMZj +fd5o7nNtwnoVEa6oMp8JS/FG5hu/Yh7X0Op9r9c84pQ3UlI/Fc5YS4S1kYs6 +s2NeqP+p7NXqZiL0hmt9rlz1ROTkN6cVe4gQ/KFX0jzcHWWULlkMfKLpLbbj +2Tcpd8TWvedkWB8RJDt9d3W8ckOjXJFGE4NEYOSz0r/42xVFBltS074QwVzQ +vS3c3wVNu/0U41wkwpOfa2fEy53QiQgZ4cofRDD0/Cfwwt4J1eRb7HJcIsJw +keYnC14nFD/xiqdhhQgV7v0MLe6OCKzu0gVsEiHR8Z7Q2L4LKFVbenyOnQTX +QCqbunYOMdubj6RwksBo/+1P9qXnkOeN8EFdbhIU2Ug/cfQ6h45ULXZn85KA +mjUgwrxgj5ZVaxpO7SLBT6+P+lo/7dBRYbO8NhkSeOtuv3NH9CxKmVSpPS1L +glKBTUTpOYMmC9mG5gkkUBWT34x3P4MCoYaXR5EEhik1hxke26JnDtKBpiQS +GHTMUJVkbRDH858mw1QS9Jo/SSo4dQqZ+7e7uWESDFYocnKxnELZh/Pu/AMS +uMxUqvmWWCGNT5avJbRJcDp972GzbVbI6c8beQcDEqTa/fSf7bJALdrRdAvm +JHjonWc4dtsM8W1zEr5hSYLG4Wv61mCGbPs01XlPkWA2+LJRycZJtHpxxYVs +Q4Lg0h+84z4nkew96z7fcySgU93DwOFlikIGFIq2PEiwEv2v1Db6BPqQzdQa +40UCaRNUcNLsBBJxHZmQvESCGorjw38iJ9CLf7GC2r4ksJCx5rhQZIzGpddD +7gSSQGZiPymm5DjSdG85vT2cBPGqFgWqaUboT/+sbuNdEojl7/o5stcIlWpx +kf0iSVA7kvhtrssQyQqeYPt8jwQUkcVBlm2GiKtxsDQ/iQQjDRyb3Yn6qF9w +gRtyaXp8Mn7JNaaL4kJ415fySJBSl1IbEq2LDBfJk3mPSZAx3nlkF9JFrxv9 +qjifkiC/9CvrtSwdlOtB79j3HwnOKJR4THtpI88mgVr3NzQWdHVR1T6MFIj7 +nkrWkeDRttMtTxkOo4lUq6SeehIMPW3N46rXROaeD1wPNJMAmD1GPbQ00SFh +OUGW9zR9Y3xFnY0BsXkd9M4YpPkjVyzZV5KK6odsbIyHSeCgii1PVhxCAbpB +eowjJLikynMgx/gQWhBuErv4hQRV95lag24fRD3Nx9rVZmj63ee9XLalgTJF +7GXerZDA00/5Ogd5HzpAUVSx/02CSKFfF20m1FGP/vK+tTUSPI13ZStNVEds +fqGGMpskYDhTcOHM373Is+uJdyADGSYe1ew071dDEPqrVomHDN02rAfEqsho +ML2mrZ6XDJoJN3wOXiUjnxe3eyz5yKCRFd2vdJCM8sd2zYTsIINJYrLPzTck +tP3gIZ7PwmQgka4rFXQR0fhiiE2UHBkm7alnIykqKJDlmKO0AhledDs8/d6u +jHaK7vKqVCSDCs+0fIGDMjIwKAiZUiFDlGcoFs1QQiW5759S95JhNCEEBwsr +oltWO/981ySDdZQxKjKRQ2Keo4whWmTgDHdmq/tHQBWh+dxCOmS4w+g5+/0p +Ac2/OCCpq0cGHo9riWHsBHRy2xm9B8fI8Pe0XKxl1x4k0/A46dhpMnhtnLsd +EiONOpTWcoetyUD1vau+fFQaXUnSe+FsS4aWYwtxwCWN2i/Odoba0eL3M2qc +j5BC3ryK7G8cyaDdJhkZES+J3tgUBaj6kCE14Oayapw4cmr5F/7qMhlEP+Ag +FVlxxEc6nmLoRwaJ52aqidVi6ALTj1LHqzS9eH833ZkTRVxPSQuZQWTI0Q1I +iLQUQafWSs/yRpEh7dHLoBNegojJntnjQTQZDFsWNt8JCqKidrNrSjFkOD5z +YsOtYTeiz1y9rxdPhhHbhPjtQrtRvs7+j0H3yRBr4XjSv2cnWomr1vmZR4Za +V4JU3VUB9GCT8+SNx2So/O5QP08RQHoXrO25C8iwvTbYgHWBH6Vr/L0u/4wM +gcpLg5vn+dHhMVRhV0IGxQTVxCQbPhSjXK/Q/ZoMFmOcBax+vCh//2n24Foy +ZImYpy/t50VvtJa/kurJIPv78MCt3zxowUo2L7aJDK59rZ30bDzIMPSu+Il3 +ZLiv9He7KZUbsYyaCHwYoK3vKPe89DI7Ep37tnRjiAy/xSuPlcWyI7WVkC7V +z2S4zvLlbwmRHZ3jfBl9b4wMMrdHO0a82VDtPmH241/JoM6usO7KyooCYib+ +vl8mw9YFJXFNNyYUlxY4fG2VDP6Rog5m4kzoyaMd1cprZKAPrv8Q0c2I+muO +XInaIMNGk2DZsUOMSH326ZIRAwWSry7tfCXCgH5o+nxt56GAx+LyuXluOsR2 +lLs5YDsFhnUDfj/O2qKKWz7KVeSnQGXauUfahC3qMfd+u4idFOioidJ5p/GP ++jT10LCBKAW+jPz4Zndpk3rhF1NXqwIFOs+POp6irFNtn2h3WCtRYPIQy5fY +/jWquV1I+6IyBZj78hvYbqxRdTsZm3eQKHCgeEdZTudvquxThmq7fRTYmQPz +gjdWqVP2dHnrWhQwmP+kEcu/TB0WhOxIHQq07DxQOtT2i9rz4Uam+BEKaDx2 +cyfc+kVtRFv3dQwoYDd8qbN0dYmaK/QvOtaYAtQpfib92Z/U890bV+RtaPGe +bn7m+7VItQ4/6FtjS4Hvg1lRtdcXqSch4NLxsxQ4Df/4ubgWqdpFf9wun6PA +7oFW3QuKC1SZu+v2dRcpkLX/V2t04Dx1QvO3kZUvBd56l9gRzs9SB9fUDeb9 +KFAea8OqwTpL7S72PXLDnwJdJ6LEk5/OUOtFVzXzAilw9cFMguzaV2r2+rL6 +z2AK3Pa95bAra5pq/9+SRPg9CvSe3ieQTJikugabbhrEUsDnGeXbl54J6mXT +0j6ueAp4mxakXLk1Qb2zcjk6JokCeqb0hy5PjlOLNNY3kjNo9UJBalJlX6gV +HKf6rDJp+VptNGi6fqHWDVWVCD+kgNSscHqozBdqz7XAi5m5FFjLcld3Txmj +rtdt9T56SoH4zlxfX6FRKkP82RKnQpo/vn7w25E6QuU6XxelUEwBrxKD4irh +EaoYyy3tohIKFJSPrfyW+UzVNmApKaukwKIkz4LDsSFqTDdXVGMLBZTj798q +Wu2jpua4OYW20upz4akfJb6PmuPToaXXToH9GW+djEh91PKdMX/aOyjwibXV +WNK7lzp8it/p4ycKBBze0VvI/Ik6reijldhH80eVe7ZcUQ91cbNHzGKAAkrO +Y3Oslj1UhsykT4PDFEiR7xn6XPyRSpgQ1BqfoOUfXGJywqObSiy9KpY7RdP3 +X7m/lVQ39cDtoXWHrxQ4ljyxPb23i2pEyHg+O0cBlvPXuV4d7qJ6u0iI/fxJ +gdVR/bBZuQ/UwEM310t+UWCu0GZHUFsn9Tb3eI/PCs2PTKupFjqd1JTinIi1 +NQroXn0ff06zg5odxORY9YcCRTF9/GH176lPTzgcDtykwLqBruILnffUUqlm +UfSPAloaniWjbe+or3/Jrm9tUUCEJf4hk8k76v8Ay1NC0Q== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8lt8bx+0tQsOeeWzPkFI951wysiqRVShKZJNIVJJIRjYZkVFU6Ctk +VbZQRLJDVkiUEFF+z++f+369X+c+132dz/U55zqS9h4mDgx0dHQfaI//vzOu +27OQzqeh1o652tEfzqjxo4SRhYQ/7rrG5x1Rroe3ml/fkpAIx9KFLqYG5ZY4 +ozZKnFniPl5+d8uDodwJu1Ivu/0WL8BaTLMqmmVX8McNp4Qf4pW4oTMn1KXk +DmYdGid8F2/FF/fLPFN9nIIftmV6fRMfwJEJ8ivXr+bjouLwIVeVORzHVmvp +VV6B5/jmIg3s5rAcD7RfHq/ABF8DJJcwhwPitErObavEWYc4H06sz+HtzH16 +Gw6VOK418sKppm/YY7gpcodAFfaduPfziPV3LJ8eE9brUo0zOdtvbdf5gae7 +Dl+JY3uNHXHX/XnvX3igh11kwK8O02WvVg1F/MLV6XIn99ytwylMIsNtub+w +3zPjd/bpdfht6wWxgt5f+O5OM/3/auuw3MnNbIcDy3hIZZIvja0ezzgRno3Q +r2BLE+dtyYn12Dnu2usPMav4s8jZkyM5DZhhJXv0TcEqVqNU7T1Y2oBTLd7S +Fdev4q4i48mwxgbcJsKvFbW8ij30woJ+TDZgxcf5LfqWv7HVhnbGX5lGPF/9 +8UO9+Bp2enx96d/DRuw+JT9RWrSO8zntN23vNeEx2wG2utZ1fCKfXbP/QRM2 +7b+j8n5yHZ/jZpSnFjXh/e1f/aeE/uD4vTdftb5rwoz/5fHuDPuDB6F6fZ6t +GacESiK/Mxs4ekmXePJaM67jF7yvwfsXl0v/e+Zh3oLVot6+1lH8i40PhSYf +PdeCH7FcmTyh+xc3lq6o7/RswZHrvarOgX8x34LoDcfwFmw+mtCcOvMXNzQm +57FXt+C5J7zLG7X/cAVh+yE9obeYQzKEMLqfDuItHqUlvH2L3x6KVb2uQwfC +r53X+bvf4lDLB/tETehAtH7JOWjoLWaIqThy2oUOzC+9CJFYeIv//Jt37Mug +g4HBGb9rfK3427BZficDPVhGVncVWLTiJ2v2z9156MFPyoTvz5lW7CTgWcEt +Qg9xfZO2+5xa8aTh3beGe+nhk81BUf8rrXi46vVMiyM9kPaeOSSY0orfpRDk +a9/Rw05Z1VfvPrbiu6VqpDMD9IA0BfkWBlux3gdNjX9T9NBNOha8+aUVN7Ja +6x/aoofHhJDqscVWXOMbc7GCxAD9r7ybmznacOHJ9YLnSQyQvXKfxEltw66e +LCXHcxiA17V6/9bhNqwQyV+1UMwABkZDQWN6bfhRg3KbUisDfLW5MeZ8sg0/ +INvP5W8wwPPN2f2Zzm04mrdd4eFZRgiiZHqGx7fhyn2iZcfcGSExK2exIqUN +T9p64M0ARjhlcvV5d0YbPljIf9IimRGkq5W2NT1uwzP61te4OxihcqDsc15V +GxbwKmKtHmIE662EbXJv2jBOoYtzmmWE1++o/yU0tOGk6dxHDUxM0CO37qD8 +rg1r3fre6X+QCU6YeOrbDLdh9yf4FEGfCaLXKI2UsTac2hU72WPOBImfsr4u +T7ThH+Lq66reTDDr+1Vn3zfaemquS03nM8HZpu1qr9bacOvEh2fx5UzApWbU +MrvRhpc5pPdpNjKBzaF6oN9qw4ZWLYbpo0xQaynM+pOpHa+t8Fw22ckMf332 +v+vhacfSovZbW9LM8FLSOMCKrx0f0y4NLyQxQ2r885OtAu04L87yAdtRZvi2 +n/zEWbAdf6h8Ild+ihnCakP2pwu3482xzZJzTsxwwj94R6VoOzZRfdjy+hYz +RH7+MVYq2Y6vm/864RrLDMwyFuPx0u244JrOsGAmM6glmFra7mnHdO9mf/hU +MYNoKmNrmVw7Vvx1MEDqLTMcOuDWd1ihHZsLRTN/+MQM+oP9N6sV23GhE1lI +8SczkHRkP3qotOP+eyG5/f+YgfLwavRT1XbM9LJXJZSLBb6Mlm37SGzHqiNy +lRQhFtivbmg7TWrHp5gDtL4QWGCxrTFsityOQ5Xev4/eywIoqSHxA6Ud/2cq +bnlIiwXuaW7FPVZrx8NXvcZnjVmAjlX3rvPedsyW3eCabMsCUzGBoYLq7ZjS +uuO3tisLcAxkxJXS2PaH480lfxb4wVpdeXBfO767q4ozK4wFxk03WIppXIa4 +ko4mssDqaNrtbfvb8ZiDrcRGNgt8T12EUzTminr+JP85C6yJntGOo/G+Uoa9 +5q9Z4GyEU1o5je2HTr5hfMcCu9wyT7TQmCPti5vXAAu4HJ541kjjklPuIqPT +LLDJok8ppvEpoY02o2UWSIqg+xFKY8bBMP8qelZoZD26YEjjZ/cF5OR4WKHh +T4jGP1p+J60e9iaKsEI0F9/nDBpv7la5zajACuULnpMKNM7tr6J47WMFdSrp +dB5tvUYpR8ZHtFlB8syKETeNly16YoxMWOG0o3eTPU2v9F12uOoMK+xe8fiQ +R9NTp+/7d4IbbVzgrX8vTe+FpKvpiVdZwU3M8f0yrR5J5qyGjHdYQSLVsI+O +xtOfJPJHsllBnqCBxmn1jU4sNDd6zgqCXPdfvKTVX93sAHPVK1ZgavvGE6Dc +jsN6TO0T+1lByGegqJ3mH2LCGC/jNCvszLPgsJKn+cXU7Y3nL9r/16Kv9xDa +sdzHUBGjbWxQxvxsIlGG5u84/vZKYTY44fn3+5BUO75ikuVPkGeDANFRLV6a +n1u7KnsZtNlAIfQLszbN784f5mMq/dmgt8f8+ABtv/DF+GNCGBuEjchLxdP2 +U9VxloWEBDb46Xe04CBvO+bsFDf0LGaDyhd8HFacNP3fmzATptigL7v+XjMd +Tf+o0RcJS2ww+m3g+u+/bXjTyNWegY4dUm9MRO+i7e+j726/+SzEDppb6vp7 +VtrwQluFf4IxO0QGjBRemaGdN3d15Bhs2eHRqISizFQbRgbdvR4u7OB+N0nj +zZc2fK/1G8UwlB1MWTW1GgfbMPGt2AJ9DTuYHbyazkk7n7yaQuw9CBzwTCKD +kP60DYtN6rKsUjjguZNxSBzt/GtnYH8SCBzA8ef5mYCcNrwHon6GW3FA1JZZ +g0xaGx6oSgzKjeCA6FqOpL7wNqz5/NGDgUUOWr9IPvz2PC3fDqfDZzc54Nvj +gZPzZ9pw2neF6Wk2TpgqHn3GeLoNrygUKy9LcsI5KWY7rhNtuCDvZc22k5ww +fG0YhR1qw9vT3g5qVXBC5HQpj8r2Nvy68u71tkZOeDVyICiSsw279BtJneji +BMsbL5lGmdtw046ui7ZztHhqq9fO/mnF/jEDa1dEuKCH0+Fh73gr/nJ7bmdR +EBe4fOk+mPZfK/7Pk8t0tz43NG2PUZnQpfWzVH7/QnNuuMT6rk4Ht+LpRqHM +w+e5IcSsWS99XysWEpT/5nqDG8772PntkWvFIXU6t+rKuEHPaIb6hK0Vm/Pd +eOEstQ3OHFN6HtlC678vfvK/2tgGZCXtHFXqW/wwwGWOaMELS8GVwo2cLZhY +y74WZsMLukmZ6lYMLbiWKZ959BwvFOfmZX5da8ZjUZMSUZ68YJ1jnvBjqhmL +ZdlYzIbzQibbzdjSN804tfF448MaXpBnKhDc7t2M47jVHvBJbYcho/5717qb +cHDm5onl+e1Qp1CpL3a7EdN9HIOaq/xgdrPZn7u3Dsv6XLhyUmEHEO6MVza1 +vsKTK8nmnK92AilA0k4logIbTDlfi/PaDS8e3ZxysH2Bj03GKIqJCcHV7Xa7 +XKcL8TvFyR5rGSGYLJ2zk35biA0v7buepiAEH0Y6GxYKCrEew8iH3fuEwGX9 +2Kc6t0J8WELRl99YCB5NvrO1Wn2G91o31bIFC0F8H4Pacc5nWKRn3ezXlBBM +Lcb9tdJ+guca7IPeFgrDFCFn/vXSIywe2+8cXSoMGqGdZ636HuGTtsfMTlYL +A+vlPAXOmkf49ZqGwthbYfhoIvKs9PYjHKe8vef3hDAs79AYFBN6hA8mvyEQ +hESA/kI50fBIHo50Fum8HSoCT+frtAZKcnDdvrhKwygRyJmNMDZNzcGrTGy5 +2xNE4L3ntW8TN3Pw2cxfVzIeisD48R2FeidysFpPm1RZjQiQas7fEv+ZjT9T +/X0nl0QgfyPPdkMtG6ts7xXVOiMKGheu8au+z8LTUdPBiQ6iYLOkSvxckYUz +OH5//eoiCr4PM/5l5GZhLqbdJZFXRKGd80aMRWAWnlu10u2NFYWYu//lFihl +4bzhz+4XG0Vhxyn9tBDJTCySP/XmnrwYvIiT/cP3Ph33yKzKjKuKgZ/jxtc/ ++ek44iHLXTV1MWB9bMDDcjsd/0klnBw4LAaJwUdrb1PTcX/UxRkpazHoPCCT +Lfc8Dcdf+s5bHi0Gi7y2U9/SUjEHXrEb/iUGdnHMsV8iU/AVTTm28j+08ZFJ +8fPOKXha63TRPXpxSAp+QeLWS8H1enV/DvOIAyP/M79uxhR81SQqvkBBHJpK +/tbIXkvG3xz2NPnaiUPxme5bo75J+F2kmdz2TnGYF/MOHLydgA/cu9Mx90kc +lBYSv/9xTMD5sdU+jcPigD4q3UcGCTgkSbLOb04cgs/4qqnyJGCxD6tKiwwS +sANSIkpS43HvQH2TmZgEnDS/oaxQEYePfD/1W8pMAgaDG3ZJcMXiBwK3Pt6w +lID9UYV/5pZi8PLBp8XDpyXgjlFVbM9ADM66u+GYZC8Br8xzLjPmx+A/hPR+ +dk8JSB96rfteJwY/s/9c+eOuBOy+/Vl3hfse5u0/E/i6VgIQt/YsH4rEF7bC +LIUbJUCPwT5riS8S18g+V7vSIgGn86PPsM9E4IuX6b6TOiTAtEpJaSguAtfz +PbTJG5KArbTiAI5vd7HP0XEUuSoB79Y5WVzzwnF//Xn6U0qSIDh3X20EwvAP +zUGha6qS8FIz99l/YmGYte64WhZZEpyknuUVb4Zi9TcHHKf3S0K9xUSgQmUo +Tqjmfe+tIwlSNpbeu9RC8fHSmpQIW0lgraOjPiPdxs15AsRXMZLwKeO/ByUG +t/CIzF39sXhJ8Dp9ZuKu8i28krNlz5gsCZKBnP13eG9hmey5RP0MSbBYzzm4 +0huMgx/UbnwqkIQjG8/7IhyCMUp2bVmolwTOivR/98Jv4rI7jbYSK5Jw38It +brbvBs43aN8dtiYJOVf914yzb+BUru7u7xuS8L6V6wiL2w0cFDOqW80gBTqO +rBpWjDdo940/Kua8UuD3Jr46iXIdjz8mbkUoSsGDuiZT6exAvK0lPfO3nRQI +5J4qJ5T5Y/rwHCtbBymINfIoybnjj5cNnvA3OUlB9XTIF3trfzzQ8TIszkMK +mO1GYwuY/HFub7eH8jUpAFcxq+OWV/CBaTY4lyIFNjrfD5Vz+uELzJfHOjqk +oJjh2u53WT5YSLy1b6NLCrS68oOCr/vgjv2inXKfpGCb2gMGF2sfrO7a9Cp4 +SApGZm6c69rtg1k+7khTn5GCxcRV3u/xl3BeVrnZA3pp+DM/d0Up3htPHlxr +c1OTBn6pAMf9pZ44xcyoPnWfNOT4vFKuS/bERh5ZlS0HpGEyFX/1CfDEpdl6 ++ZKa0rB+cuq0tZYnDmG/f/vTUWkgCs0NGjzxwDJ9GkB1lIY8zjvVE3Tu+Jx3 +QBlXqjToyR4x2znrjNXJI2XyGdLAw0X5xlztjDmWoFw3Sxouaic1H4xyxs+9 +WF4GPZIG71OOE1fIznjTM7ZiuUQaejVyRlWCLuIkj8fVw+3SQNhZa3xIzgm3 +un6se/ZXGrrt93MF5zvgdCX1+lY6GbBJIEjGBjtgz/mU+mlGGVCPimwfsnbA +O11tGyQ4ZGCXUVmWFJ8DtneZbUzYKQOyjp4P3G6cx5sXt1oCVWXgTKDdrdLz +57Cqo2KHkZ0MNNWknvtlYYdHLop7FJ6XAS6rQk+sbocjXfl5tznJgOqTn6HN +AnZ41mvjRKe7DCy/Lb0Y0n0W5wS2fzoRKAPH/vyyKjM+i3fFuXw2T5aBR75u +6bjYFm/VPJ0/+14G4rmyVZOFTuOiN5lRdR9kAJk79z+aPIWt6+NVpHpkwCJr +pXVX8Slc2RLgOTEoA1XeU1LCOqfwpW7DZYcZGfDJyN2VfNkKf/36bcOZcQ9I +vJAe+/LVAnfyKXFe1tgDhiUz1H5uM4zc3GbTDu2BiA/Zel1TJ3FRS1FLPe1W +Re1SyOZ5fRJHB5JCeHX3QLUvU9opj5PYaFr971OTPcApFUwW+2SK2yo1F8dd +9oD7pI0IQ6EJbjpr8dH4wR6I/b3D9E6EMVarTvnP7+EeuP2aY6eTizHO3TF4 +70HuHjj3YfFrkKExDmmzNpp/sgeYLm8YW3MZ48Nq9k1hL/cAe+DeP2clj+Na +VreXrz/sgfy0l+2MR47i6qLgNCVGWXhjbem4MaKPWYzMhJJZZGHtnJaVy2N9 +fGKWcJ+eQxYY5mIn9Dz18Vfp90m9vLKwkq/8Sp9RH/Pf3xUXJCYLGn7Gj46q +6GGXW8/u9GjIQrt6DHN1si4ul7jBiqmy0GBTe/zZBV1M//pEaAHIQk8yNXtr +ry5OXlu9df2ILEju2XzY+kkHN7hp3pAzk4VDdOYC/YI6WNiy93Kgpyz4Rdo6 +GrzQwhdW8penL9G+7yAKcN3Rwv/FBVw64ScLhgqn9fbYaOEj7yW8ZK/Lgi9/ +YetpNi186bCL64cIWUgXCNxosT+M25Xozsk8loUDam2pOwmaOIBewfjdZ1kw ++HWbxP+Riqe1Oftlv8iCNR//XudYKja+M3/m5qQs/OHZznjEmIpleIo91L/J +Qpz/PpnozkP4nYjavaw1WYhEYYP7eg5isf2ow4efAAUdU9zyKxr4ToC4eedO +ApiX/D3uWq2Bl17TjcgLEWA5PCJHNlgDt+g0fB+RIICrqTXTX14N7Gmqx62v +QoBLJjUPd6vtx/XuJkai+gRQ048JP35PHSuVUHr8jAjAtofF5YG1Ok5aEbDu +Pk6AXf+WBSwU1LFLYJ9LmDkBktTcMxla9mKBu9YRP88RoC302KQS8158Ie9C +W9N1Arzne8C7J4GCOYav6rmXEoDALIzSfxOxul8B972XtHyXLS6ZfCRiO77+ +7uIqArwy4l01LibiCr29Nj9rCRC7zeuTjBMRXyhb9PJ5T4DcV8/CKVWquC76 +fNrVadp8YkJp3GNlPC8ffzZtlgDC4QvtMY7KeHdT3Z6aeQKIFNU288gpY/cN +sed/lwjwzGPf88gnSljEaaAxaIsAf5PTCpzKFGn3kWMLobvlwMnTsH/sizzO +HQ588VhYDhxk5j8HFcjjTr+nV96KyUGk46P78V7yWLaIjZFjjxxQP70a5GaU +xx+FGnZFkeSgW23yPFKUwyrL+zTjDeTAKrZcauieLJ56JJmQGSgH9DedGPNy +pfF8yJd1xiA5cC1ILXW9LI2X7B+ecbolB6/6pyse6EpjOnFJRdJdOTg+2KqH +5qSwULJEfX2yHGiWB9SZqkth4zDxH1MlcnBx8Zyo+BcJbOEwamZQLgeUJu1Z +QoUEttXKrC6qlIOmsxMrUfcksMuWWJhfrRzMNr2pc8cSONRPTIy9Qw7261Xx +DOuK4xpHUSOlWTkQ+PxM/vpvEdyg8/m/mHk5WBUq3R36XAS3SWfsWlmUA/7E +oydJziK4b1Rk4tWqHOz8cVfLdVQYL1mIXD3OJA8dWhkJx7qEsJyecL63uDwc +GRpffdi1GyfICTJVmsnDBh234vzBHdjaVvbxhKU8mFrauLpz7MAyCRSDbdby +oHDh7BGbAQFcunU05py9PPQKfTe7dkUA9/QGi2zzkIdFjxf/iqr5Mf/tebVz +d+ThaUvwopgZHx6sWu+LipCH+S1nBxYFPpz9gyWgIloebto0WRzd2o7J1pJ1 +3InyMLBbO3P1yXZsQjE/WvFQHh6/NrrzkGU7jvvyxoG7Wh4e2f0td8zgwad2 +vWfb/5qWv9mBiksmPFjq6OBT+zp5MJojniew8eCSiuWfL1vkAUxbjgRd3oa7 +78lft++Rh6Ar2pndFtx4O4pPevldHorZt372aHDimNQLLXYSCnBBuIzw1JkV ++/kGXwqUVoBt0U5OJhRWbGvyQDxZVgFK3ZYtLm+yYCWOXr93Sgpw/6rvQYUY +FtzqryO3T0MB1qzNj6i9YsYMVjLhXCYKEKssh34qMeFZNdhLMFOApp66CyOb +jPgDr/UXTUsFKGga+L3vPSPOfBuv4WerAKPHLtQpeTDiQ/sZ5744K0B2Df1J +pgoGfHnXuMHLWwog+idsxzNremz96+9qV6gCMNvaKq2R6bF2p2DOfLgCDAnU +yeaw02O+sBMbkjEKwMHZnsFXQYeLVmufRqYrwCc19i5NQTo88ymTy75MAUzv +XjXw7P+LTiXYdHB9VYDG1cdz2zLXkcgLDmGXOQX43nzNhXp6HY12vXRs/a4A +i9uuGOzcvY7O8/DRhy4rQJ3Ro+Ha+DXkfreZskWvCGVjw3s64n6j4CDV+z9F +FOFoLGHoatEK0s4cnjouoQg672JW7vusINbX4eQiaUXYjNvTa3hwBUVuTLQ7 +KyhCnJPyJfu2ZZTkm/JvYp8iHMpYDt27+AsVuNKf7zVRBMpdAqexyRJyjSh6 +rmauCH3Q+OavxBJSeXL6b5yVIjByyb2Q//ETlXwtSzp+VhFOL15P+n3vJ6qx +d25966YIHU7X8ww+/UAfLD+qVN9RBM+RRInsbwtoTTtvPfO1Ivx4tCr4i3sO +BVZn3mqsU4SqmsiH59tnER05lXu2URFe5JcLXgmfRazi9yTJ7YowM/aS+wbr +LNq5fkW/sU8R6m+m80xxzCBKodH9mR+KwPUNaoeUp1G59BFp7mVFaJD7z69x +eQodSNUsJP1WBOE36doaNVPocJh63dW/ivDfggp3vdEUMraTmOXiUIKtpCu+ +yj6TyH3H8n6StBK8ecxlZjM0jpYiFurNZJXggV3rqM+TcXSZYdboqrwS+OqC +G/PVcRS4+Plsg6oSiG/rlIkSGkcRrS13zA4pAX90Zvpuuy8o/1pav7+ZEvhw +p+1SYxxDE1OHr9SHKcHDKRUeJfkhdDizI1shQgky9hY0Fg8NoizLU+/jopVg +8aN/Icu9QWTb7iV1LlEJOLoeJO5ZG0CDz7PeMeYoAXe+5pHvH/tRd8A/CZ3X +SkD+0tgxVtyLSHvvGhbWKUF49ExVtnsvilnY4bujSQkukca4dqv0omN2yu1T +7UqgM9yRsKP4E2rTtb4cOqAEs2ODPAqVPah+e1Vry7ISsPW+rt87340k23WW +Vddo8YWdt06XdaOgkC6xlA0lePe97ozQjW6Efs9ccmJQhqPj+QZWAt2oaniX +GDuvMrBmNQyV6nShkseXvQ0UlQGXf0hSvd2JttvRZ5SoKIOXBd/v3fKdyFMo +qkWIrAyJa+R1xo4OpBKVK/JtvzKkhxmSe4Q60BPvj80RusrQv+/zLoHadyib +ShJ+b6cMP7gIP4bU21D9MY5bG+eVoXz8FX/9QisaPzMxJ++kDL5jX9CFx61I +OjixKtRdGUSuEw59EWpFuc3rVhCgDMa6JlXuHG9R3vH6lBcJymD+2uOvNUcz +aj6bRjeerAxcC8EOR983oWkvHyfeNGW4lqrEMBbThGQTZPe7PVSGbEtJ7ynB +JvSo/26fbJEysFR9V9WhNKJ8O9OdqS3KcGD433mm4Hr01lvp+ts2ZTj3cbbi +zLF6NHOLeXr1vTJwHDxsrCNcj+QevSwz7VEG74qVloLyOlQwJ2zG/UUZGk2f +cJb8qkVPLk3GB/1RBoGKK5P7ON+gwtuXtzsqq4AUn0X3E7oqNH/IJvg2UQW+ +XnJNDq6oRErL2r9yKCqwss5cIeRViZ7YC3wa01CBDfBzCpmsQPn4RcopXRXI +yf3Ow97zEuWu/xA/dkYFmpuPOBzuKUOTz/tjXO1VoMbhHbt2chmSdqqlj3BQ +Ab2LHddnT5Wh7N57Ey0uKsAZcslQcLIUZb5Qeax5RQXY5XodRv++QKlurip7 +Y1XgfC7/v4KjJWhQ5mSmaYIKqP4IWVcUKkGCwwd5vZNVILbD74jG1/9QigHn +UlGGCtC5eB38EfwfSiQ8KZN7ogL85QIz+bXPUcyXr4dEGlTg6EX2PvX8IvQh +pbPwQLMKLDB8fGp3ogjxGL8Us2pVAbFpPyX/jUIU/TqULqlTBZgvucacNylE +kWl7GnmGVUCnhtI6x/EMhZmdM2RcUQH6g+HCL3MLUPbxYWuHNRUYdHVL8TAr +QDX6Zu4tGyrAYvmfgABrAVqiHomNYFCF9NKUqJ1u+chaVrGPn1cVVFMb0yu1 +HiPy7yV7GUVV8PO7En5cMA8d/eniE6qiCmEWkhFpfbnI6dvk7RmSKujYcj19 +lpSLMkZ785/tV4XpXqLHjl25iO1t1YKarirU2GoGNkrkoJGU4Ks6dqogLy1j +12L2EK3HbUQ8Pq8KpreqDJ3EHyKBKJ8MdidV2LEplFo4m4X0b16ofe+uCh6x +nr9Eg7JQ6UUDFvNAVahu/8+mySkT3T3AF3chWRWEypkc5rzSUZ5aRM7bVFWo +KDpszbM7HdWqMJUpPKDNVyTt1n2ThlakVvsWclUh4V+d/TBvGjrLOSjqV6IK +/ExVLea199He4YcFYe9V4Va4sNfS0WTEq+K0VvxBFSLFLZ0r2ZLR/A2VI/0f +VUHYQ6JDtzEJ5UpXT8oNqoIEx2fjZ9QkJODSI942rQrX/LyHHDUS0Z9ARkMW +OiJ0CbUHjJrEo5m8C96p9ETYz/Ktf7dgPOrtaL2vwkgEExjZXBuNQyUSMTPm +LETIknW3f+QRh5wbRUIfcxFBwL9MJSQpFg1wqtfpCRJB5jwjtZMuBjWr3Z8Z +FiKCn4uWu9HDe6jUZpPHS4QIC+v0Z/kO30MxxfW298WJcDxqg3UwNBrpmR7f +nN1DhDnxwgYm0ShUkeq0L4JMBAn9ymva/nfRo4Z2W3E1IvAZH0sQkL+LEuZV +Ql/sJcIPryW7zoFw5IlWeob2E8Fd8NPHP9RwJDd+01sJE8FFM899nPcOSpFP +K3xvSAQGapXZp5HbaPmXbt6to0SIYfSIe5B0Gx1/vZSucZwIleq2VseO30Ys +pgaReSZE2FtteNW8IQRdDlx3vmZFhMcGBwNeld1CJp0WcsqOtPhXtPNy6m6i +ovuMEhNORCBe3vJMDb2J2M8X77rvTASNcWbh40Y3Ue0aCyuzOxHcsiNHZgaC +kKpU+dSwDxHsWYqH0cYNxHVZICcymAg9T99MeLYFIidcm3o4hAglZnKneZwD +UQO7a9zabSJcGlcTmOYIRFcfNNw8H06ED0rCu5WNA9Bsi/fZQzFEKNB3ulo5 +44+ahbpE5zOIYGclsO35MT8kNRW4IzuTCIcGq50l6fzQtWI5bsuHNFaI3xNf +4ovUtIM2G3KJkOfCJ+Ui5Iuy3VSH0p4SYfGXz6HkFR90ozYqxbCSVr+lUMZj +fd5o7nNtwnoVEa6oMp8JS/FG5hu/Yh7X0Op9r9c84pQ3UlI/Fc5YS4S1kYs6 +s2NeqP+p7NXqZiL0hmt9rlz1ROTkN6cVe4gQ/KFX0jzcHWWULlkMfKLpLbbj +2Tcpd8TWvedkWB8RJDt9d3W8ckOjXJFGE4NEYOSz0r/42xVFBltS074QwVzQ +vS3c3wVNu/0U41wkwpOfa2fEy53QiQgZ4cofRDD0/Cfwwt4J1eRb7HJcIsJw +keYnC14nFD/xiqdhhQgV7v0MLe6OCKzu0gVsEiHR8Z7Q2L4LKFVbenyOnQTX +QCqbunYOMdubj6RwksBo/+1P9qXnkOeN8EFdbhIU2Ug/cfQ6h45ULXZn85KA +mjUgwrxgj5ZVaxpO7SLBT6+P+lo/7dBRYbO8NhkSeOtuv3NH9CxKmVSpPS1L +glKBTUTpOYMmC9mG5gkkUBWT34x3P4MCoYaXR5EEhik1hxke26JnDtKBpiQS +GHTMUJVkbRDH858mw1QS9Jo/SSo4dQqZ+7e7uWESDFYocnKxnELZh/Pu/AMS +uMxUqvmWWCGNT5avJbRJcDp972GzbVbI6c8beQcDEqTa/fSf7bJALdrRdAvm +JHjonWc4dtsM8W1zEr5hSYLG4Wv61mCGbPs01XlPkWA2+LJRycZJtHpxxYVs +Q4Lg0h+84z4nkew96z7fcySgU93DwOFlikIGFIq2PEiwEv2v1Db6BPqQzdQa +40UCaRNUcNLsBBJxHZmQvESCGorjw38iJ9CLf7GC2r4ksJCx5rhQZIzGpddD +7gSSQGZiPymm5DjSdG85vT2cBPGqFgWqaUboT/+sbuNdEojl7/o5stcIlWpx +kf0iSVA7kvhtrssQyQqeYPt8jwQUkcVBlm2GiKtxsDQ/iQQjDRyb3Yn6qF9w +gRtyaXp8Mn7JNaaL4kJ415fySJBSl1IbEq2LDBfJk3mPSZAx3nlkF9JFrxv9 +qjifkiC/9CvrtSwdlOtB79j3HwnOKJR4THtpI88mgVr3NzQWdHVR1T6MFIj7 +nkrWkeDRttMtTxkOo4lUq6SeehIMPW3N46rXROaeD1wPNJMAmD1GPbQ00SFh +OUGW9zR9Y3xFnY0BsXkd9M4YpPkjVyzZV5KK6odsbIyHSeCgii1PVhxCAbpB +eowjJLikynMgx/gQWhBuErv4hQRV95lag24fRD3Nx9rVZmj63ee9XLalgTJF +7GXerZDA00/5Ogd5HzpAUVSx/02CSKFfF20m1FGP/vK+tTUSPI13ZStNVEds +fqGGMpskYDhTcOHM373Is+uJdyADGSYe1ew071dDEPqrVomHDN02rAfEqsho +ML2mrZ6XDJoJN3wOXiUjnxe3eyz5yKCRFd2vdJCM8sd2zYTsIINJYrLPzTck +tP3gIZ7PwmQgka4rFXQR0fhiiE2UHBkm7alnIykqKJDlmKO0AhledDs8/d6u +jHaK7vKqVCSDCs+0fIGDMjIwKAiZUiFDlGcoFs1QQiW5759S95JhNCEEBwsr +oltWO/981ySDdZQxKjKRQ2Keo4whWmTgDHdmq/tHQBWh+dxCOmS4w+g5+/0p +Ac2/OCCpq0cGHo9riWHsBHRy2xm9B8fI8Pe0XKxl1x4k0/A46dhpMnhtnLsd +EiONOpTWcoetyUD1vau+fFQaXUnSe+FsS4aWYwtxwCWN2i/Odoba0eL3M2qc +j5BC3ryK7G8cyaDdJhkZES+J3tgUBaj6kCE14Oayapw4cmr5F/7qMhlEP+Ag +FVlxxEc6nmLoRwaJ52aqidVi6ALTj1LHqzS9eH833ZkTRVxPSQuZQWTI0Q1I +iLQUQafWSs/yRpEh7dHLoBNegojJntnjQTQZDFsWNt8JCqKidrNrSjFkOD5z +YsOtYTeiz1y9rxdPhhHbhPjtQrtRvs7+j0H3yRBr4XjSv2cnWomr1vmZR4Za +V4JU3VUB9GCT8+SNx2So/O5QP08RQHoXrO25C8iwvTbYgHWBH6Vr/L0u/4wM +gcpLg5vn+dHhMVRhV0IGxQTVxCQbPhSjXK/Q/ZoMFmOcBax+vCh//2n24Foy +ZImYpy/t50VvtJa/kurJIPv78MCt3zxowUo2L7aJDK59rZ30bDzIMPSu+Il3 +ZLiv9He7KZUbsYyaCHwYoK3vKPe89DI7Ep37tnRjiAy/xSuPlcWyI7WVkC7V +z2S4zvLlbwmRHZ3jfBl9b4wMMrdHO0a82VDtPmH241/JoM6usO7KyooCYib+ +vl8mw9YFJXFNNyYUlxY4fG2VDP6Rog5m4kzoyaMd1cprZKAPrv8Q0c2I+muO +XInaIMNGk2DZsUOMSH326ZIRAwWSry7tfCXCgH5o+nxt56GAx+LyuXluOsR2 +lLs5YDsFhnUDfj/O2qKKWz7KVeSnQGXauUfahC3qMfd+u4idFOioidJ5p/GP ++jT10LCBKAW+jPz4Zndpk3rhF1NXqwIFOs+POp6irFNtn2h3WCtRYPIQy5fY +/jWquV1I+6IyBZj78hvYbqxRdTsZm3eQKHCgeEdZTudvquxThmq7fRTYmQPz +gjdWqVP2dHnrWhQwmP+kEcu/TB0WhOxIHQq07DxQOtT2i9rz4Uam+BEKaDx2 +cyfc+kVtRFv3dQwoYDd8qbN0dYmaK/QvOtaYAtQpfib92Z/U890bV+RtaPGe +bn7m+7VItQ4/6FtjS4Hvg1lRtdcXqSch4NLxsxQ4Df/4ubgWqdpFf9wun6PA +7oFW3QuKC1SZu+v2dRcpkLX/V2t04Dx1QvO3kZUvBd56l9gRzs9SB9fUDeb9 +KFAea8OqwTpL7S72PXLDnwJdJ6LEk5/OUOtFVzXzAilw9cFMguzaV2r2+rL6 +z2AK3Pa95bAra5pq/9+SRPg9CvSe3ieQTJikugabbhrEUsDnGeXbl54J6mXT +0j6ueAp4mxakXLk1Qb2zcjk6JokCeqb0hy5PjlOLNNY3kjNo9UJBalJlX6gV +HKf6rDJp+VptNGi6fqHWDVWVCD+kgNSscHqozBdqz7XAi5m5FFjLcld3Txmj +rtdt9T56SoH4zlxfX6FRKkP82RKnQpo/vn7w25E6QuU6XxelUEwBrxKD4irh +EaoYyy3tohIKFJSPrfyW+UzVNmApKaukwKIkz4LDsSFqTDdXVGMLBZTj798q +Wu2jpua4OYW20upz4akfJb6PmuPToaXXToH9GW+djEh91PKdMX/aOyjwibXV +WNK7lzp8it/p4ycKBBze0VvI/Ik6reijldhH80eVe7ZcUQ91cbNHzGKAAkrO +Y3Oslj1UhsykT4PDFEiR7xn6XPyRSpgQ1BqfoOUfXGJywqObSiy9KpY7RdP3 +X7m/lVQ39cDtoXWHrxQ4ljyxPb23i2pEyHg+O0cBlvPXuV4d7qJ6u0iI/fxJ +gdVR/bBZuQ/UwEM310t+UWCu0GZHUFsn9Tb3eI/PCs2PTKupFjqd1JTinIi1 +NQroXn0ff06zg5odxORY9YcCRTF9/GH176lPTzgcDtykwLqBruILnffUUqlm +UfSPAloaniWjbe+or3/Jrm9tUUCEJf4hk8k76v8Ay1NC0Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.21267024503217932`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.21267024503217932`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8lt8bx+0tQsOeeWzPkFI951wysiqRVShKZJNIVJJIRjYZkVFU6Ctk +VbZQRLJDVkiUEFF+z++f+369X+c+132dz/U55zqS9h4mDgx0dHQfaI//vzOu +27OQzqeh1o652tEfzqjxo4SRhYQ/7rrG5x1Rroe3ml/fkpAIx9KFLqYG5ZY4 +ozZKnFniPl5+d8uDodwJu1Ivu/0WL8BaTLMqmmVX8McNp4Qf4pW4oTMn1KXk +DmYdGid8F2/FF/fLPFN9nIIftmV6fRMfwJEJ8ivXr+bjouLwIVeVORzHVmvp +VV6B5/jmIg3s5rAcD7RfHq/ABF8DJJcwhwPitErObavEWYc4H06sz+HtzH16 +Gw6VOK418sKppm/YY7gpcodAFfaduPfziPV3LJ8eE9brUo0zOdtvbdf5gae7 +Dl+JY3uNHXHX/XnvX3igh11kwK8O02WvVg1F/MLV6XIn99ytwylMIsNtub+w +3zPjd/bpdfht6wWxgt5f+O5OM/3/auuw3MnNbIcDy3hIZZIvja0ezzgRno3Q +r2BLE+dtyYn12Dnu2usPMav4s8jZkyM5DZhhJXv0TcEqVqNU7T1Y2oBTLd7S +Fdev4q4i48mwxgbcJsKvFbW8ij30woJ+TDZgxcf5LfqWv7HVhnbGX5lGPF/9 +8UO9+Bp2enx96d/DRuw+JT9RWrSO8zntN23vNeEx2wG2utZ1fCKfXbP/QRM2 +7b+j8n5yHZ/jZpSnFjXh/e1f/aeE/uD4vTdftb5rwoz/5fHuDPuDB6F6fZ6t +GacESiK/Mxs4ekmXePJaM67jF7yvwfsXl0v/e+Zh3oLVot6+1lH8i40PhSYf +PdeCH7FcmTyh+xc3lq6o7/RswZHrvarOgX8x34LoDcfwFmw+mtCcOvMXNzQm +57FXt+C5J7zLG7X/cAVh+yE9obeYQzKEMLqfDuItHqUlvH2L3x6KVb2uQwfC +r53X+bvf4lDLB/tETehAtH7JOWjoLWaIqThy2oUOzC+9CJFYeIv//Jt37Mug +g4HBGb9rfK3427BZficDPVhGVncVWLTiJ2v2z9156MFPyoTvz5lW7CTgWcEt +Qg9xfZO2+5xa8aTh3beGe+nhk81BUf8rrXi46vVMiyM9kPaeOSSY0orfpRDk +a9/Rw05Z1VfvPrbiu6VqpDMD9IA0BfkWBlux3gdNjX9T9NBNOha8+aUVN7Ja +6x/aoofHhJDqscVWXOMbc7GCxAD9r7ybmznacOHJ9YLnSQyQvXKfxEltw66e +LCXHcxiA17V6/9bhNqwQyV+1UMwABkZDQWN6bfhRg3KbUisDfLW5MeZ8sg0/ +INvP5W8wwPPN2f2Zzm04mrdd4eFZRgiiZHqGx7fhyn2iZcfcGSExK2exIqUN +T9p64M0ARjhlcvV5d0YbPljIf9IimRGkq5W2NT1uwzP61te4OxihcqDsc15V +GxbwKmKtHmIE662EbXJv2jBOoYtzmmWE1++o/yU0tOGk6dxHDUxM0CO37qD8 +rg1r3fre6X+QCU6YeOrbDLdh9yf4FEGfCaLXKI2UsTac2hU72WPOBImfsr4u +T7ThH+Lq66reTDDr+1Vn3zfaemquS03nM8HZpu1qr9bacOvEh2fx5UzApWbU +MrvRhpc5pPdpNjKBzaF6oN9qw4ZWLYbpo0xQaynM+pOpHa+t8Fw22ckMf332 +v+vhacfSovZbW9LM8FLSOMCKrx0f0y4NLyQxQ2r885OtAu04L87yAdtRZvi2 +n/zEWbAdf6h8Ild+ihnCakP2pwu3482xzZJzTsxwwj94R6VoOzZRfdjy+hYz +RH7+MVYq2Y6vm/864RrLDMwyFuPx0u244JrOsGAmM6glmFra7mnHdO9mf/hU +MYNoKmNrmVw7Vvx1MEDqLTMcOuDWd1ihHZsLRTN/+MQM+oP9N6sV23GhE1lI +8SczkHRkP3qotOP+eyG5/f+YgfLwavRT1XbM9LJXJZSLBb6Mlm37SGzHqiNy +lRQhFtivbmg7TWrHp5gDtL4QWGCxrTFsityOQ5Xev4/eywIoqSHxA6Ud/2cq +bnlIiwXuaW7FPVZrx8NXvcZnjVmAjlX3rvPedsyW3eCabMsCUzGBoYLq7ZjS +uuO3tisLcAxkxJXS2PaH480lfxb4wVpdeXBfO767q4ozK4wFxk03WIppXIa4 +ko4mssDqaNrtbfvb8ZiDrcRGNgt8T12EUzTminr+JP85C6yJntGOo/G+Uoa9 +5q9Z4GyEU1o5je2HTr5hfMcCu9wyT7TQmCPti5vXAAu4HJ541kjjklPuIqPT +LLDJok8ppvEpoY02o2UWSIqg+xFKY8bBMP8qelZoZD26YEjjZ/cF5OR4WKHh +T4jGP1p+J60e9iaKsEI0F9/nDBpv7la5zajACuULnpMKNM7tr6J47WMFdSrp +dB5tvUYpR8ZHtFlB8syKETeNly16YoxMWOG0o3eTPU2v9F12uOoMK+xe8fiQ +R9NTp+/7d4IbbVzgrX8vTe+FpKvpiVdZwU3M8f0yrR5J5qyGjHdYQSLVsI+O +xtOfJPJHsllBnqCBxmn1jU4sNDd6zgqCXPdfvKTVX93sAHPVK1ZgavvGE6Dc +jsN6TO0T+1lByGegqJ3mH2LCGC/jNCvszLPgsJKn+cXU7Y3nL9r/16Kv9xDa +sdzHUBGjbWxQxvxsIlGG5u84/vZKYTY44fn3+5BUO75ikuVPkGeDANFRLV6a +n1u7KnsZtNlAIfQLszbN784f5mMq/dmgt8f8+ABtv/DF+GNCGBuEjchLxdP2 +U9VxloWEBDb46Xe04CBvO+bsFDf0LGaDyhd8HFacNP3fmzATptigL7v+XjMd +Tf+o0RcJS2ww+m3g+u+/bXjTyNWegY4dUm9MRO+i7e+j726/+SzEDppb6vp7 +VtrwQluFf4IxO0QGjBRemaGdN3d15Bhs2eHRqISizFQbRgbdvR4u7OB+N0nj +zZc2fK/1G8UwlB1MWTW1GgfbMPGt2AJ9DTuYHbyazkk7n7yaQuw9CBzwTCKD +kP60DYtN6rKsUjjguZNxSBzt/GtnYH8SCBzA8ef5mYCcNrwHon6GW3FA1JZZ +g0xaGx6oSgzKjeCA6FqOpL7wNqz5/NGDgUUOWr9IPvz2PC3fDqfDZzc54Nvj +gZPzZ9pw2neF6Wk2TpgqHn3GeLoNrygUKy9LcsI5KWY7rhNtuCDvZc22k5ww +fG0YhR1qw9vT3g5qVXBC5HQpj8r2Nvy68u71tkZOeDVyICiSsw279BtJneji +BMsbL5lGmdtw046ui7ZztHhqq9fO/mnF/jEDa1dEuKCH0+Fh73gr/nJ7bmdR +EBe4fOk+mPZfK/7Pk8t0tz43NG2PUZnQpfWzVH7/QnNuuMT6rk4Ht+LpRqHM +w+e5IcSsWS99XysWEpT/5nqDG8772PntkWvFIXU6t+rKuEHPaIb6hK0Vm/Pd +eOEstQ3OHFN6HtlC678vfvK/2tgGZCXtHFXqW/wwwGWOaMELS8GVwo2cLZhY +y74WZsMLukmZ6lYMLbiWKZ959BwvFOfmZX5da8ZjUZMSUZ68YJ1jnvBjqhmL +ZdlYzIbzQibbzdjSN804tfF448MaXpBnKhDc7t2M47jVHvBJbYcho/5717qb +cHDm5onl+e1Qp1CpL3a7EdN9HIOaq/xgdrPZn7u3Dsv6XLhyUmEHEO6MVza1 +vsKTK8nmnK92AilA0k4logIbTDlfi/PaDS8e3ZxysH2Bj03GKIqJCcHV7Xa7 +XKcL8TvFyR5rGSGYLJ2zk35biA0v7buepiAEH0Y6GxYKCrEew8iH3fuEwGX9 +2Kc6t0J8WELRl99YCB5NvrO1Wn2G91o31bIFC0F8H4Pacc5nWKRn3ezXlBBM +Lcb9tdJ+guca7IPeFgrDFCFn/vXSIywe2+8cXSoMGqGdZ636HuGTtsfMTlYL +A+vlPAXOmkf49ZqGwthbYfhoIvKs9PYjHKe8vef3hDAs79AYFBN6hA8mvyEQ +hESA/kI50fBIHo50Fum8HSoCT+frtAZKcnDdvrhKwygRyJmNMDZNzcGrTGy5 +2xNE4L3ntW8TN3Pw2cxfVzIeisD48R2FeidysFpPm1RZjQiQas7fEv+ZjT9T +/X0nl0QgfyPPdkMtG6ts7xXVOiMKGheu8au+z8LTUdPBiQ6iYLOkSvxckYUz +OH5//eoiCr4PM/5l5GZhLqbdJZFXRKGd80aMRWAWnlu10u2NFYWYu//lFihl +4bzhz+4XG0Vhxyn9tBDJTCySP/XmnrwYvIiT/cP3Ph33yKzKjKuKgZ/jxtc/ ++ek44iHLXTV1MWB9bMDDcjsd/0klnBw4LAaJwUdrb1PTcX/UxRkpazHoPCCT +Lfc8Dcdf+s5bHi0Gi7y2U9/SUjEHXrEb/iUGdnHMsV8iU/AVTTm28j+08ZFJ +8fPOKXha63TRPXpxSAp+QeLWS8H1enV/DvOIAyP/M79uxhR81SQqvkBBHJpK +/tbIXkvG3xz2NPnaiUPxme5bo75J+F2kmdz2TnGYF/MOHLydgA/cu9Mx90kc +lBYSv/9xTMD5sdU+jcPigD4q3UcGCTgkSbLOb04cgs/4qqnyJGCxD6tKiwwS +sANSIkpS43HvQH2TmZgEnDS/oaxQEYePfD/1W8pMAgaDG3ZJcMXiBwK3Pt6w +lID9UYV/5pZi8PLBp8XDpyXgjlFVbM9ADM66u+GYZC8Br8xzLjPmx+A/hPR+ +dk8JSB96rfteJwY/s/9c+eOuBOy+/Vl3hfse5u0/E/i6VgIQt/YsH4rEF7bC +LIUbJUCPwT5riS8S18g+V7vSIgGn86PPsM9E4IuX6b6TOiTAtEpJaSguAtfz +PbTJG5KArbTiAI5vd7HP0XEUuSoB79Y5WVzzwnF//Xn6U0qSIDh3X20EwvAP +zUGha6qS8FIz99l/YmGYte64WhZZEpyknuUVb4Zi9TcHHKf3S0K9xUSgQmUo +Tqjmfe+tIwlSNpbeu9RC8fHSmpQIW0lgraOjPiPdxs15AsRXMZLwKeO/ByUG +t/CIzF39sXhJ8Dp9ZuKu8i28krNlz5gsCZKBnP13eG9hmey5RP0MSbBYzzm4 +0huMgx/UbnwqkIQjG8/7IhyCMUp2bVmolwTOivR/98Jv4rI7jbYSK5Jw38It +brbvBs43aN8dtiYJOVf914yzb+BUru7u7xuS8L6V6wiL2w0cFDOqW80gBTqO +rBpWjDdo940/Kua8UuD3Jr46iXIdjz8mbkUoSsGDuiZT6exAvK0lPfO3nRQI +5J4qJ5T5Y/rwHCtbBymINfIoybnjj5cNnvA3OUlB9XTIF3trfzzQ8TIszkMK +mO1GYwuY/HFub7eH8jUpAFcxq+OWV/CBaTY4lyIFNjrfD5Vz+uELzJfHOjqk +oJjh2u53WT5YSLy1b6NLCrS68oOCr/vgjv2inXKfpGCb2gMGF2sfrO7a9Cp4 +SApGZm6c69rtg1k+7khTn5GCxcRV3u/xl3BeVrnZA3pp+DM/d0Up3htPHlxr +c1OTBn6pAMf9pZ44xcyoPnWfNOT4vFKuS/bERh5ZlS0HpGEyFX/1CfDEpdl6 ++ZKa0rB+cuq0tZYnDmG/f/vTUWkgCs0NGjzxwDJ9GkB1lIY8zjvVE3Tu+Jx3 +QBlXqjToyR4x2znrjNXJI2XyGdLAw0X5xlztjDmWoFw3Sxouaic1H4xyxs+9 +WF4GPZIG71OOE1fIznjTM7ZiuUQaejVyRlWCLuIkj8fVw+3SQNhZa3xIzgm3 +un6se/ZXGrrt93MF5zvgdCX1+lY6GbBJIEjGBjtgz/mU+mlGGVCPimwfsnbA +O11tGyQ4ZGCXUVmWFJ8DtneZbUzYKQOyjp4P3G6cx5sXt1oCVWXgTKDdrdLz +57Cqo2KHkZ0MNNWknvtlYYdHLop7FJ6XAS6rQk+sbocjXfl5tznJgOqTn6HN +AnZ41mvjRKe7DCy/Lb0Y0n0W5wS2fzoRKAPH/vyyKjM+i3fFuXw2T5aBR75u +6bjYFm/VPJ0/+14G4rmyVZOFTuOiN5lRdR9kAJk79z+aPIWt6+NVpHpkwCJr +pXVX8Slc2RLgOTEoA1XeU1LCOqfwpW7DZYcZGfDJyN2VfNkKf/36bcOZcQ9I +vJAe+/LVAnfyKXFe1tgDhiUz1H5uM4zc3GbTDu2BiA/Zel1TJ3FRS1FLPe1W +Re1SyOZ5fRJHB5JCeHX3QLUvU9opj5PYaFr971OTPcApFUwW+2SK2yo1F8dd +9oD7pI0IQ6EJbjpr8dH4wR6I/b3D9E6EMVarTvnP7+EeuP2aY6eTizHO3TF4 +70HuHjj3YfFrkKExDmmzNpp/sgeYLm8YW3MZ48Nq9k1hL/cAe+DeP2clj+Na +VreXrz/sgfy0l+2MR47i6qLgNCVGWXhjbem4MaKPWYzMhJJZZGHtnJaVy2N9 +fGKWcJ+eQxYY5mIn9Dz18Vfp90m9vLKwkq/8Sp9RH/Pf3xUXJCYLGn7Gj46q +6GGXW8/u9GjIQrt6DHN1si4ul7jBiqmy0GBTe/zZBV1M//pEaAHIQk8yNXtr +ry5OXlu9df2ILEju2XzY+kkHN7hp3pAzk4VDdOYC/YI6WNiy93Kgpyz4Rdo6 +GrzQwhdW8penL9G+7yAKcN3Rwv/FBVw64ScLhgqn9fbYaOEj7yW8ZK/Lgi9/ +YetpNi186bCL64cIWUgXCNxosT+M25Xozsk8loUDam2pOwmaOIBewfjdZ1kw ++HWbxP+Riqe1Oftlv8iCNR//XudYKja+M3/m5qQs/OHZznjEmIpleIo91L/J +Qpz/PpnozkP4nYjavaw1WYhEYYP7eg5isf2ow4efAAUdU9zyKxr4ToC4eedO +ApiX/D3uWq2Bl17TjcgLEWA5PCJHNlgDt+g0fB+RIICrqTXTX14N7Gmqx62v +QoBLJjUPd6vtx/XuJkai+gRQ048JP35PHSuVUHr8jAjAtofF5YG1Ok5aEbDu +Pk6AXf+WBSwU1LFLYJ9LmDkBktTcMxla9mKBu9YRP88RoC302KQS8158Ie9C +W9N1Arzne8C7J4GCOYav6rmXEoDALIzSfxOxul8B972XtHyXLS6ZfCRiO77+ +7uIqArwy4l01LibiCr29Nj9rCRC7zeuTjBMRXyhb9PJ5T4DcV8/CKVWquC76 +fNrVadp8YkJp3GNlPC8ffzZtlgDC4QvtMY7KeHdT3Z6aeQKIFNU288gpY/cN +sed/lwjwzGPf88gnSljEaaAxaIsAf5PTCpzKFGn3kWMLobvlwMnTsH/sizzO +HQ588VhYDhxk5j8HFcjjTr+nV96KyUGk46P78V7yWLaIjZFjjxxQP70a5GaU +xx+FGnZFkeSgW23yPFKUwyrL+zTjDeTAKrZcauieLJ56JJmQGSgH9DedGPNy +pfF8yJd1xiA5cC1ILXW9LI2X7B+ecbolB6/6pyse6EpjOnFJRdJdOTg+2KqH +5qSwULJEfX2yHGiWB9SZqkth4zDxH1MlcnBx8Zyo+BcJbOEwamZQLgeUJu1Z +QoUEttXKrC6qlIOmsxMrUfcksMuWWJhfrRzMNr2pc8cSONRPTIy9Qw7261Xx +DOuK4xpHUSOlWTkQ+PxM/vpvEdyg8/m/mHk5WBUq3R36XAS3SWfsWlmUA/7E +oydJziK4b1Rk4tWqHOz8cVfLdVQYL1mIXD3OJA8dWhkJx7qEsJyecL63uDwc +GRpffdi1GyfICTJVmsnDBh234vzBHdjaVvbxhKU8mFrauLpz7MAyCRSDbdby +oHDh7BGbAQFcunU05py9PPQKfTe7dkUA9/QGi2zzkIdFjxf/iqr5Mf/tebVz +d+ThaUvwopgZHx6sWu+LipCH+S1nBxYFPpz9gyWgIloebto0WRzd2o7J1pJ1 +3InyMLBbO3P1yXZsQjE/WvFQHh6/NrrzkGU7jvvyxoG7Wh4e2f0td8zgwad2 +vWfb/5qWv9mBiksmPFjq6OBT+zp5MJojniew8eCSiuWfL1vkAUxbjgRd3oa7 +78lft++Rh6Ar2pndFtx4O4pPevldHorZt372aHDimNQLLXYSCnBBuIzw1JkV ++/kGXwqUVoBt0U5OJhRWbGvyQDxZVgFK3ZYtLm+yYCWOXr93Sgpw/6rvQYUY +FtzqryO3T0MB1qzNj6i9YsYMVjLhXCYKEKssh34qMeFZNdhLMFOApp66CyOb +jPgDr/UXTUsFKGga+L3vPSPOfBuv4WerAKPHLtQpeTDiQ/sZ5744K0B2Df1J +pgoGfHnXuMHLWwog+idsxzNremz96+9qV6gCMNvaKq2R6bF2p2DOfLgCDAnU +yeaw02O+sBMbkjEKwMHZnsFXQYeLVmufRqYrwCc19i5NQTo88ymTy75MAUzv +XjXw7P+LTiXYdHB9VYDG1cdz2zLXkcgLDmGXOQX43nzNhXp6HY12vXRs/a4A +i9uuGOzcvY7O8/DRhy4rQJ3Ro+Ha+DXkfreZskWvCGVjw3s64n6j4CDV+z9F +FOFoLGHoatEK0s4cnjouoQg672JW7vusINbX4eQiaUXYjNvTa3hwBUVuTLQ7 +KyhCnJPyJfu2ZZTkm/JvYp8iHMpYDt27+AsVuNKf7zVRBMpdAqexyRJyjSh6 +rmauCH3Q+OavxBJSeXL6b5yVIjByyb2Q//ETlXwtSzp+VhFOL15P+n3vJ6qx +d25966YIHU7X8ww+/UAfLD+qVN9RBM+RRInsbwtoTTtvPfO1Ivx4tCr4i3sO +BVZn3mqsU4SqmsiH59tnER05lXu2URFe5JcLXgmfRazi9yTJ7YowM/aS+wbr +LNq5fkW/sU8R6m+m80xxzCBKodH9mR+KwPUNaoeUp1G59BFp7mVFaJD7z69x +eQodSNUsJP1WBOE36doaNVPocJh63dW/ivDfggp3vdEUMraTmOXiUIKtpCu+ +yj6TyH3H8n6StBK8ecxlZjM0jpYiFurNZJXggV3rqM+TcXSZYdboqrwS+OqC +G/PVcRS4+Plsg6oSiG/rlIkSGkcRrS13zA4pAX90Zvpuuy8o/1pav7+ZEvhw +p+1SYxxDE1OHr9SHKcHDKRUeJfkhdDizI1shQgky9hY0Fg8NoizLU+/jopVg +8aN/Icu9QWTb7iV1LlEJOLoeJO5ZG0CDz7PeMeYoAXe+5pHvH/tRd8A/CZ3X +SkD+0tgxVtyLSHvvGhbWKUF49ExVtnsvilnY4bujSQkukca4dqv0omN2yu1T +7UqgM9yRsKP4E2rTtb4cOqAEs2ODPAqVPah+e1Vry7ISsPW+rt87340k23WW +Vddo8YWdt06XdaOgkC6xlA0lePe97ozQjW6Efs9ccmJQhqPj+QZWAt2oaniX +GDuvMrBmNQyV6nShkseXvQ0UlQGXf0hSvd2JttvRZ5SoKIOXBd/v3fKdyFMo +qkWIrAyJa+R1xo4OpBKVK/JtvzKkhxmSe4Q60BPvj80RusrQv+/zLoHadyib +ShJ+b6cMP7gIP4bU21D9MY5bG+eVoXz8FX/9QisaPzMxJ++kDL5jX9CFx61I +OjixKtRdGUSuEw59EWpFuc3rVhCgDMa6JlXuHG9R3vH6lBcJymD+2uOvNUcz +aj6bRjeerAxcC8EOR983oWkvHyfeNGW4lqrEMBbThGQTZPe7PVSGbEtJ7ynB +JvSo/26fbJEysFR9V9WhNKJ8O9OdqS3KcGD433mm4Hr01lvp+ts2ZTj3cbbi +zLF6NHOLeXr1vTJwHDxsrCNcj+QevSwz7VEG74qVloLyOlQwJ2zG/UUZGk2f +cJb8qkVPLk3GB/1RBoGKK5P7ON+gwtuXtzsqq4AUn0X3E7oqNH/IJvg2UQW+ +XnJNDq6oRErL2r9yKCqwss5cIeRViZ7YC3wa01CBDfBzCpmsQPn4RcopXRXI +yf3Ow97zEuWu/xA/dkYFmpuPOBzuKUOTz/tjXO1VoMbhHbt2chmSdqqlj3BQ +Ab2LHddnT5Wh7N57Ey0uKsAZcslQcLIUZb5Qeax5RQXY5XodRv++QKlurip7 +Y1XgfC7/v4KjJWhQ5mSmaYIKqP4IWVcUKkGCwwd5vZNVILbD74jG1/9QigHn +UlGGCtC5eB38EfwfSiQ8KZN7ogL85QIz+bXPUcyXr4dEGlTg6EX2PvX8IvQh +pbPwQLMKLDB8fGp3ogjxGL8Us2pVAbFpPyX/jUIU/TqULqlTBZgvucacNylE +kWl7GnmGVUCnhtI6x/EMhZmdM2RcUQH6g+HCL3MLUPbxYWuHNRUYdHVL8TAr +QDX6Zu4tGyrAYvmfgABrAVqiHomNYFCF9NKUqJ1u+chaVrGPn1cVVFMb0yu1 +HiPy7yV7GUVV8PO7En5cMA8d/eniE6qiCmEWkhFpfbnI6dvk7RmSKujYcj19 +lpSLMkZ785/tV4XpXqLHjl25iO1t1YKarirU2GoGNkrkoJGU4Ks6dqogLy1j +12L2EK3HbUQ8Pq8KpreqDJ3EHyKBKJ8MdidV2LEplFo4m4X0b16ofe+uCh6x +nr9Eg7JQ6UUDFvNAVahu/8+mySkT3T3AF3chWRWEypkc5rzSUZ5aRM7bVFWo +KDpszbM7HdWqMJUpPKDNVyTt1n2ThlakVvsWclUh4V+d/TBvGjrLOSjqV6IK +/ExVLea199He4YcFYe9V4Va4sNfS0WTEq+K0VvxBFSLFLZ0r2ZLR/A2VI/0f +VUHYQ6JDtzEJ5UpXT8oNqoIEx2fjZ9QkJODSI942rQrX/LyHHDUS0Z9ARkMW +OiJ0CbUHjJrEo5m8C96p9ETYz/Ktf7dgPOrtaL2vwkgEExjZXBuNQyUSMTPm +LETIknW3f+QRh5wbRUIfcxFBwL9MJSQpFg1wqtfpCRJB5jwjtZMuBjWr3Z8Z +FiKCn4uWu9HDe6jUZpPHS4QIC+v0Z/kO30MxxfW298WJcDxqg3UwNBrpmR7f +nN1DhDnxwgYm0ShUkeq0L4JMBAn9ymva/nfRo4Z2W3E1IvAZH0sQkL+LEuZV +Ql/sJcIPryW7zoFw5IlWeob2E8Fd8NPHP9RwJDd+01sJE8FFM899nPcOSpFP +K3xvSAQGapXZp5HbaPmXbt6to0SIYfSIe5B0Gx1/vZSucZwIleq2VseO30Ys +pgaReSZE2FtteNW8IQRdDlx3vmZFhMcGBwNeld1CJp0WcsqOtPhXtPNy6m6i +ovuMEhNORCBe3vJMDb2J2M8X77rvTASNcWbh40Y3Ue0aCyuzOxHcsiNHZgaC +kKpU+dSwDxHsWYqH0cYNxHVZICcymAg9T99MeLYFIidcm3o4hAglZnKneZwD +UQO7a9zabSJcGlcTmOYIRFcfNNw8H06ED0rCu5WNA9Bsi/fZQzFEKNB3ulo5 +44+ahbpE5zOIYGclsO35MT8kNRW4IzuTCIcGq50l6fzQtWI5bsuHNFaI3xNf +4ovUtIM2G3KJkOfCJ+Ui5Iuy3VSH0p4SYfGXz6HkFR90ozYqxbCSVr+lUMZj +fd5o7nNtwnoVEa6oMp8JS/FG5hu/Yh7X0Op9r9c84pQ3UlI/Fc5YS4S1kYs6 +s2NeqP+p7NXqZiL0hmt9rlz1ROTkN6cVe4gQ/KFX0jzcHWWULlkMfKLpLbbj +2Tcpd8TWvedkWB8RJDt9d3W8ckOjXJFGE4NEYOSz0r/42xVFBltS074QwVzQ +vS3c3wVNu/0U41wkwpOfa2fEy53QiQgZ4cofRDD0/Cfwwt4J1eRb7HJcIsJw +keYnC14nFD/xiqdhhQgV7v0MLe6OCKzu0gVsEiHR8Z7Q2L4LKFVbenyOnQTX +QCqbunYOMdubj6RwksBo/+1P9qXnkOeN8EFdbhIU2Ug/cfQ6h45ULXZn85KA +mjUgwrxgj5ZVaxpO7SLBT6+P+lo/7dBRYbO8NhkSeOtuv3NH9CxKmVSpPS1L +glKBTUTpOYMmC9mG5gkkUBWT34x3P4MCoYaXR5EEhik1hxke26JnDtKBpiQS +GHTMUJVkbRDH858mw1QS9Jo/SSo4dQqZ+7e7uWESDFYocnKxnELZh/Pu/AMS +uMxUqvmWWCGNT5avJbRJcDp972GzbVbI6c8beQcDEqTa/fSf7bJALdrRdAvm +JHjonWc4dtsM8W1zEr5hSYLG4Wv61mCGbPs01XlPkWA2+LJRycZJtHpxxYVs +Q4Lg0h+84z4nkew96z7fcySgU93DwOFlikIGFIq2PEiwEv2v1Db6BPqQzdQa +40UCaRNUcNLsBBJxHZmQvESCGorjw38iJ9CLf7GC2r4ksJCx5rhQZIzGpddD +7gSSQGZiPymm5DjSdG85vT2cBPGqFgWqaUboT/+sbuNdEojl7/o5stcIlWpx +kf0iSVA7kvhtrssQyQqeYPt8jwQUkcVBlm2GiKtxsDQ/iQQjDRyb3Yn6qF9w +gRtyaXp8Mn7JNaaL4kJ415fySJBSl1IbEq2LDBfJk3mPSZAx3nlkF9JFrxv9 +qjifkiC/9CvrtSwdlOtB79j3HwnOKJR4THtpI88mgVr3NzQWdHVR1T6MFIj7 +nkrWkeDRttMtTxkOo4lUq6SeehIMPW3N46rXROaeD1wPNJMAmD1GPbQ00SFh +OUGW9zR9Y3xFnY0BsXkd9M4YpPkjVyzZV5KK6odsbIyHSeCgii1PVhxCAbpB +eowjJLikynMgx/gQWhBuErv4hQRV95lag24fRD3Nx9rVZmj63ee9XLalgTJF +7GXerZDA00/5Ogd5HzpAUVSx/02CSKFfF20m1FGP/vK+tTUSPI13ZStNVEds +fqGGMpskYDhTcOHM373Is+uJdyADGSYe1ew071dDEPqrVomHDN02rAfEqsho +ML2mrZ6XDJoJN3wOXiUjnxe3eyz5yKCRFd2vdJCM8sd2zYTsIINJYrLPzTck +tP3gIZ7PwmQgka4rFXQR0fhiiE2UHBkm7alnIykqKJDlmKO0AhledDs8/d6u +jHaK7vKqVCSDCs+0fIGDMjIwKAiZUiFDlGcoFs1QQiW5759S95JhNCEEBwsr +oltWO/981ySDdZQxKjKRQ2Keo4whWmTgDHdmq/tHQBWh+dxCOmS4w+g5+/0p +Ac2/OCCpq0cGHo9riWHsBHRy2xm9B8fI8Pe0XKxl1x4k0/A46dhpMnhtnLsd +EiONOpTWcoetyUD1vau+fFQaXUnSe+FsS4aWYwtxwCWN2i/Odoba0eL3M2qc +j5BC3ryK7G8cyaDdJhkZES+J3tgUBaj6kCE14Oayapw4cmr5F/7qMhlEP+Ag +FVlxxEc6nmLoRwaJ52aqidVi6ALTj1LHqzS9eH833ZkTRVxPSQuZQWTI0Q1I +iLQUQafWSs/yRpEh7dHLoBNegojJntnjQTQZDFsWNt8JCqKidrNrSjFkOD5z +YsOtYTeiz1y9rxdPhhHbhPjtQrtRvs7+j0H3yRBr4XjSv2cnWomr1vmZR4Za +V4JU3VUB9GCT8+SNx2So/O5QP08RQHoXrO25C8iwvTbYgHWBH6Vr/L0u/4wM +gcpLg5vn+dHhMVRhV0IGxQTVxCQbPhSjXK/Q/ZoMFmOcBax+vCh//2n24Foy +ZImYpy/t50VvtJa/kurJIPv78MCt3zxowUo2L7aJDK59rZ30bDzIMPSu+Il3 +ZLiv9He7KZUbsYyaCHwYoK3vKPe89DI7Ep37tnRjiAy/xSuPlcWyI7WVkC7V +z2S4zvLlbwmRHZ3jfBl9b4wMMrdHO0a82VDtPmH241/JoM6usO7KyooCYib+ +vl8mw9YFJXFNNyYUlxY4fG2VDP6Rog5m4kzoyaMd1cprZKAPrv8Q0c2I+muO +XInaIMNGk2DZsUOMSH326ZIRAwWSry7tfCXCgH5o+nxt56GAx+LyuXluOsR2 +lLs5YDsFhnUDfj/O2qKKWz7KVeSnQGXauUfahC3qMfd+u4idFOioidJ5p/GP ++jT10LCBKAW+jPz4Zndpk3rhF1NXqwIFOs+POp6irFNtn2h3WCtRYPIQy5fY +/jWquV1I+6IyBZj78hvYbqxRdTsZm3eQKHCgeEdZTudvquxThmq7fRTYmQPz +gjdWqVP2dHnrWhQwmP+kEcu/TB0WhOxIHQq07DxQOtT2i9rz4Uam+BEKaDx2 +cyfc+kVtRFv3dQwoYDd8qbN0dYmaK/QvOtaYAtQpfib92Z/U890bV+RtaPGe +bn7m+7VItQ4/6FtjS4Hvg1lRtdcXqSch4NLxsxQ4Df/4ubgWqdpFf9wun6PA +7oFW3QuKC1SZu+v2dRcpkLX/V2t04Dx1QvO3kZUvBd56l9gRzs9SB9fUDeb9 +KFAea8OqwTpL7S72PXLDnwJdJ6LEk5/OUOtFVzXzAilw9cFMguzaV2r2+rL6 +z2AK3Pa95bAra5pq/9+SRPg9CvSe3ieQTJikugabbhrEUsDnGeXbl54J6mXT +0j6ueAp4mxakXLk1Qb2zcjk6JokCeqb0hy5PjlOLNNY3kjNo9UJBalJlX6gV +HKf6rDJp+VptNGi6fqHWDVWVCD+kgNSscHqozBdqz7XAi5m5FFjLcld3Txmj +rtdt9T56SoH4zlxfX6FRKkP82RKnQpo/vn7w25E6QuU6XxelUEwBrxKD4irh +EaoYyy3tohIKFJSPrfyW+UzVNmApKaukwKIkz4LDsSFqTDdXVGMLBZTj798q +Wu2jpua4OYW20upz4akfJb6PmuPToaXXToH9GW+djEh91PKdMX/aOyjwibXV +WNK7lzp8it/p4ycKBBze0VvI/Ik6reijldhH80eVe7ZcUQ91cbNHzGKAAkrO +Y3Oslj1UhsykT4PDFEiR7xn6XPyRSpgQ1BqfoOUfXGJywqObSiy9KpY7RdP3 +X7m/lVQ39cDtoXWHrxQ4ljyxPb23i2pEyHg+O0cBlvPXuV4d7qJ6u0iI/fxJ +gdVR/bBZuQ/UwEM310t+UWCu0GZHUFsn9Tb3eI/PCs2PTKupFjqd1JTinIi1 +NQroXn0ff06zg5odxORY9YcCRTF9/GH176lPTzgcDtykwLqBruILnffUUqlm +UfSPAloaniWjbe+or3/Jrm9tUUCEJf4hk8k76v8Ay1NC0Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.21267024503217932`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 20}, {0., 0.21267024503217932`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}, + 3.9921148560525*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"f99b5e51-f810-424c-83fc-639cdac82da5"] +}, 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[143]:=",ExpressionUUID->"f102c80c-cb19-a64b-98f1-a3bbc351ff15"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.788167829704626`*^-226\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 143, 686, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921148561574516`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"c3c59255-09e0-bd48-b05c-b559a04c6289"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0504354047601841`*^-231\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 143, 687, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921148561824455`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"71800716-54d7-f547-9eb9-a3a460a70ff4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2555683516239552`*^-237\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 143, 688, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921148562003555`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"66c2900a-3555-2d46-9a88-cef06c7bda00"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 143, 689, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992114856219454*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"ab6e7881-9886-f74f-b670-4935abc610db"], + +Cell[BoxData["26.317865531783415`"], "Output", + CellChangeTimes->{3.992114937198139*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"5ed9662d-6924-7943-8732-574edf964492"] +}, 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.991847745338249*^9, 3.9918477508965435`*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"ad23855f-c99b-a44c-9a12-deb534d421e5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.8719435058172795`*^-254\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 144, 690, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921149373523827`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"d9c484ff-2231-9f46-9926-337a0b7dfc7a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3831203752204099`*^-262\\\", \ +\\\"67615075532642592962076366156210530912566907412833894400000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 144, 691, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921149373774796`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"74f74dcd-4eb4-3f41-9d7a-e19c328f436c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.940728007719351`*^-271\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 144, 692, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921149373954315`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"ff3479fd-cd23-1148-9960-aef5cc33e18c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 144, 693, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921149374124775`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"1134b4c1-359a-f848-adbe-a1e88101fe03"], + +Cell[BoxData["0.0011753218379237402`"], "Output", + CellChangeTimes->{3.9921149466149445`*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"2dfe7fd2-1c2a-d243-b913-c454686fd572"] +}, 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.9918477556924458`*^9, 3.991847758600897*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"04adbbfb-46b7-244b-ac81-2150361c4bc9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.8719435058172795`*^-254\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 145, 694, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921149466988487`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"977b1147-216c-2a44-b914-bd3cbad86183"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3831203752204099`*^-262\\\", \ +\\\"67615075532642592962076366156210530912566907412833894400000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 145, 695, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921149467169437`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"dfd15a78-bd0d-5949-b1ba-f2ea54c0d390"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.940728007719351`*^-271\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 145, 696, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992114946739847*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"443b0185-235a-d140-8953-5402b20e55b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 145, 697, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992114946770952*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"fc70e0ba-cad2-e844-be3f-5ea448bb637e"], + +Cell[BoxData["3.4910405314166053`"], "Output", + CellChangeTimes->{3.992114955336405*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"2812e1af-de55-8e4f-9209-f6d332ea1a90"] +}, 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.991847762058655*^9, 3.9918477649417477`*^9}}, + CellLabel-> + "In[146]:=",ExpressionUUID->"a64b278e-5de9-3f4d-8a34-31c8693c1f49"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.8719435058172795`*^-254\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 146, 698, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992114955482542*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"d59783f2-d080-a043-a5eb-9fc4d05c5ae3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3831203752204099`*^-262\\\", \ +\\\"67615075532642592962076366156210530912566907412833894400000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 146, 699, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921149555295353`*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"faed6dfb-29ec-b74f-b8fc-fa58eba8a71b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.940728007719351`*^-271\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 146, 700, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992114955547634*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"0c80e423-2469-6a4d-8ffc-ceeac846c33f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 146, 701, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992114955561653*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"94628aa9-24b3-4546-8bf6-3ffd53ee1e4b"], + +Cell[BoxData["186.12478684781294`"], "Output", + CellChangeTimes->{3.9921149613447685`*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"e14e0b70-c491-9f44-b1ce-1f4eeb269f10"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918477668459435`*^9, 3.99184777089764*^9}}, + CellLabel-> + "In[147]:=",ExpressionUUID->"4be81bbf-81c0-3047-be62-a85883f3e3bb"], + +Cell[BoxData["0.000046108102862267437`"], "Output", + CellChangeTimes->{3.9921149614174194`*^9}, + CellLabel-> + "Out[147]=",ExpressionUUID->"33005208-1af3-b04b-a5be-0a4cb0e9bab5"] +}, 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->"1e6d0353-69f5-de4f-ae7f-57aae5493e4a" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 402, 7, 22, "Input",ExpressionUUID->"decf87f5-69e6-d145-96ee-b1c4602a22f7"], +Cell[981, 31, 202, 3, 25, "Output",ExpressionUUID->"037f92dd-f7d4-dd42-8d89-71be0ece8f89"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1220, 39, 348, 5, 22, "Input",ExpressionUUID->"8e5ddefa-2b5c-6247-af17-e3667ab45a14"], +Cell[1571, 46, 427, 6, 25, "Output",ExpressionUUID->"7789abd9-a823-f641-8cff-f98715a0b74c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2035, 57, 224, 4, 22, "Input",ExpressionUUID->"8a146821-63d3-254d-a6aa-0fea2d176440"], +Cell[2262, 63, 419, 6, 25, "Output",ExpressionUUID->"71ea40e9-b179-bd47-829a-c620683ff078"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2718, 74, 175, 3, 22, "Input",ExpressionUUID->"7295cc77-b1eb-c148-a8f8-0524ae53fa9e"], +Cell[2896, 79, 401, 6, 25, "Output",ExpressionUUID->"8b78feac-6cbf-3649-8c34-d9a2e0343aa5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3334, 90, 257, 7, 35, "Input",ExpressionUUID->"427bcb6b-7203-4f4c-8b5f-92422f3332dd"], +Cell[3594, 99, 421, 6, 25, "Output",ExpressionUUID->"bda5a226-706a-4948-bfcb-3a10753e2b6b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4052, 110, 131, 2, 22, "Input",ExpressionUUID->"e6a2dce0-48a1-a54b-87dd-64a39dc278b4"], +Cell[4186, 114, 405, 6, 25, "Output",ExpressionUUID->"c08867b0-eaaa-d443-bee6-aa10d5507e37"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4628, 125, 276, 6, 22, "Input",ExpressionUUID->"b34f20c3-bc0e-7a48-88ab-231ba26f94ee"], +Cell[4907, 133, 415, 6, 25, "Output",ExpressionUUID->"8309cc1e-4e7a-c245-9b75-ad6b7eee8803"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5359, 144, 257, 7, 22, "Input",ExpressionUUID->"17226ba2-7113-be41-8022-c382d0d83c53"], +Cell[5619, 153, 415, 6, 25, "Output",ExpressionUUID->"e9200f28-724e-4a4a-af0e-d800b26343bb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6071, 164, 266, 5, 22, "Input",ExpressionUUID->"baab3e06-2bee-bf4a-8618-822c95e824b3"], +Cell[6340, 171, 434, 6, 25, "Output",ExpressionUUID->"d460e0c9-c573-0343-b6c2-db2829ea09a6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6811, 182, 265, 5, 22, "Input",ExpressionUUID->"7c3df1a3-2591-9d46-b7f7-9a56a5f63bc3"], +Cell[7079, 189, 437, 6, 25, "Output",ExpressionUUID->"0424535a-cb05-1e46-a721-1451ca3ad51a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7553, 200, 129, 2, 22, "Input",ExpressionUUID->"de60ffba-7cbc-5847-8549-d4fbe4875db8"], +Cell[7685, 204, 394, 6, 25, "Output",ExpressionUUID->"f4e5fb0e-749f-1a4a-ae0a-019dc46fb26f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8116, 215, 129, 2, 22, "Input",ExpressionUUID->"69dc8ea6-676a-dc49-9351-23993cceae89"], +Cell[8248, 219, 394, 6, 25, "Output",ExpressionUUID->"61afd43e-bef6-8b44-928b-7b9781b3acb3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8679, 230, 557, 19, 65, "Input",ExpressionUUID->"ec44c837-c052-fc4b-b261-10c7daf03ac1"], +Cell[9239, 251, 396, 6, 25, "Output",ExpressionUUID->"0c8eb7b6-c1c9-a24b-9ea7-2bbd4352dac1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9672, 262, 557, 19, 65, "Input",ExpressionUUID->"903d3654-408b-a548-a092-284ecafd818f"], +Cell[10232, 283, 392, 6, 25, "Output",ExpressionUUID->"42ed48f2-7ef5-1846-904f-9ebc55fb6977"] +}, Open ]], +Cell[CellGroupData[{ +Cell[10661, 294, 1492, 48, 65, "Input",ExpressionUUID->"c11e02a6-b1fe-f849-935d-f92cea21acd7"], +Cell[12156, 344, 396, 6, 25, "Output",ExpressionUUID->"b1cd425e-0025-304a-a71f-e374a32632e8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[12589, 355, 1331, 44, 65, "Input",ExpressionUUID->"7780fc5c-1700-dc4d-a078-34ee438027dd"], +Cell[13923, 401, 409, 7, 25, "Output",ExpressionUUID->"58290a99-eddd-2a4a-9e68-9ec70d9a630f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14369, 413, 1331, 44, 65, "Input",ExpressionUUID->"0f58db59-f855-dd43-8594-5f641286c017"], +Cell[15703, 459, 412, 7, 25, "Output",ExpressionUUID->"14d13c4a-1bab-1c40-a445-e8a7a9b887f7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16152, 471, 1492, 48, 65, "Input",ExpressionUUID->"41eb03c2-c064-b149-b5d2-584b0fd9db0a"], +Cell[17647, 521, 391, 6, 25, "Output",ExpressionUUID->"b189f191-1a9a-114c-b824-de338a8889b3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18075, 532, 131, 2, 22, "Input",ExpressionUUID->"98b38ee5-898b-4346-917d-7a87820c915c"], +Cell[18209, 536, 371, 6, 25, "Output",ExpressionUUID->"04fd09cf-8783-524f-b249-0904c7c74e77"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18617, 547, 177, 3, 22, "Input",ExpressionUUID->"7d9f16ed-a447-3941-8b54-dce1ce689754"], +Cell[18797, 552, 372, 6, 25, "Output",ExpressionUUID->"28745d6d-37b1-c441-b0c8-5e12f448417d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19206, 563, 134, 2, 22, "Input",ExpressionUUID->"b09734e4-465e-a14c-9263-94c6edb02ca1"], +Cell[19343, 567, 376, 6, 25, "Output",ExpressionUUID->"eafa1984-4a8c-5340-91cf-59e74f192a05"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19756, 578, 219, 4, 22, "Input",ExpressionUUID->"f29a2307-3447-1943-ad48-50f33841cc64"], +Cell[19978, 584, 393, 7, 25, "Output",ExpressionUUID->"0fa286b7-e602-7a4a-a92b-e3af361cba0c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20408, 596, 134, 2, 22, "Input",ExpressionUUID->"718c455f-8eef-1340-9f83-7e9fc093ef89"], +Cell[20545, 600, 380, 6, 25, "Output",ExpressionUUID->"b42251b2-cc66-b943-8221-5a127e24c64c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20962, 611, 302, 5, 22, "Input",ExpressionUUID->"abe15f34-4031-994f-9573-919cbff5ae28"], +Cell[21267, 618, 321, 5, 25, "Output",ExpressionUUID->"f50f8890-1337-5c46-b3cc-60cc1b458829"] +}, Open ]], +Cell[21603, 626, 173, 2, 22, "Input",ExpressionUUID->"f54cbe34-7d26-ac45-b04d-4a0dfc786756"], +Cell[CellGroupData[{ +Cell[21801, 632, 322, 6, 22, "Input",ExpressionUUID->"e1ee6a2a-ad12-8c4a-ae1e-ef92600b7ef6"], +Cell[22126, 640, 376, 6, 25, "Output",ExpressionUUID->"289b7694-e5cb-ad44-b982-62789f1432bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22539, 651, 219, 4, 22, "Input",ExpressionUUID->"72c6f3b5-aacd-764e-a14b-934f0a2d9058"], +Cell[22761, 657, 380, 6, 25, "Output",ExpressionUUID->"cb1050b7-2889-ca49-933d-fae85067be83"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23178, 668, 350, 10, 35, "Input",ExpressionUUID->"8d56e723-95f7-6a47-9bf1-95688d14840e"], +Cell[23531, 680, 396, 6, 25, "Output",ExpressionUUID->"4b038fb7-920c-d147-9d67-db9591bb424e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23964, 691, 350, 10, 35, "Input",ExpressionUUID->"fc1da402-09a7-0b43-a5f1-0e0072c9924b"], +Cell[24317, 703, 412, 7, 25, "Output",ExpressionUUID->"e45030cb-0044-3649-aba8-852d9a444399"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24766, 715, 992, 26, 92, "Input",ExpressionUUID->"fa3765b6-425c-014a-8bca-452a47a684d1"], +Cell[25761, 743, 389, 6, 25, "Output",ExpressionUUID->"c82d18c4-ed50-7c47-81c7-3a425d3051e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26187, 754, 199, 3, 22, "Input",ExpressionUUID->"9c05f553-4d62-174a-afaa-6c2d98d8398c"], +Cell[26389, 759, 375, 6, 25, "Output",ExpressionUUID->"7a12913a-da48-694f-a357-4dfd7f41225b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26801, 770, 273, 4, 22, "Input",ExpressionUUID->"0092b9dd-a828-174c-9f21-7ca0983820ad"], +Cell[27077, 776, 337, 5, 25, "Output",ExpressionUUID->"25b0ec7f-f5fc-e946-84fb-bc072d1a78f4"] +}, Open ]], +Cell[27429, 784, 175, 2, 22, "Input",ExpressionUUID->"4bcb9c4c-d2b7-9c48-913d-55402ef0fcfa"], +Cell[CellGroupData[{ +Cell[27629, 790, 344, 6, 37, "Input",ExpressionUUID->"0f0e26aa-0a4b-e248-95f9-dce212751b21"], +Cell[27976, 798, 326, 5, 25, "Output",ExpressionUUID->"0dd3578a-5406-2345-97c6-197f49623abf"] +}, Open ]], +Cell[28317, 806, 173, 2, 22, "Input",ExpressionUUID->"fd088c34-4c8f-be4a-90b1-8e9cebf9d8af"], +Cell[CellGroupData[{ +Cell[28515, 812, 343, 6, 37, "Input",ExpressionUUID->"7a1ce979-d02f-c14c-b529-a5816c5f6ff2"], +Cell[28861, 820, 329, 5, 25, "Output",ExpressionUUID->"386d65ee-8569-1d40-a192-0c5b598d715a"] +}, Open ]], +Cell[29205, 828, 175, 2, 22, "Input",ExpressionUUID->"d5070180-8e6f-c14a-969e-b70ae8ba5b81"], +Cell[CellGroupData[{ +Cell[29405, 834, 349, 6, 37, "Input",ExpressionUUID->"33ef9ecf-fe4f-5a4e-b834-98d5e1d4b9a3"], +Cell[29757, 842, 328, 5, 25, "Output",ExpressionUUID->"0c5704be-782c-984d-90bd-7014d381ba78"] +}, Open ]], +Cell[30100, 850, 175, 2, 22, "Input",ExpressionUUID->"4d99777a-a73d-3c4c-a873-cf9287520628"], +Cell[CellGroupData[{ +Cell[30300, 856, 275, 4, 22, "Input",ExpressionUUID->"c4da4ab8-da50-d140-91ed-bb4066d15de8"], +Cell[30578, 862, 328, 5, 25, "Output",ExpressionUUID->"2dfe1558-cb56-b048-8672-0dc5f266beaf"] +}, Open ]], +Cell[30921, 870, 173, 2, 22, "Input",ExpressionUUID->"e4a8db4e-c5ef-f345-89f9-2f0eb815fbe1"], +Cell[CellGroupData[{ +Cell[31119, 876, 277, 4, 22, "Input",ExpressionUUID->"47599e08-b2e7-a24b-961e-ebca74dfa067"], +Cell[31399, 882, 330, 5, 25, "Output",ExpressionUUID->"351c888e-d7c6-5443-8419-831a2773e27a"] +}, Open ]], +Cell[31744, 890, 171, 2, 22, "Input",ExpressionUUID->"5abac94d-6a40-7b4e-a070-b0cdf9d611ef"], +Cell[CellGroupData[{ +Cell[31940, 896, 306, 5, 22, "Input",ExpressionUUID->"4bd0080e-efc5-924d-a473-45f092280dce"], +Cell[32249, 903, 328, 5, 25, "Output",ExpressionUUID->"af8dbf57-4bc3-814f-948e-e7716d6fd140"] +}, Open ]], +Cell[32592, 911, 175, 2, 22, "Input",ExpressionUUID->"625a868e-ee7b-4d49-9d19-38755610271f"], +Cell[CellGroupData[{ +Cell[32792, 917, 251, 4, 22, "Input",ExpressionUUID->"739c797d-3b78-0042-9a14-ddf85766de83"], +Cell[33046, 923, 324, 5, 25, "Output",ExpressionUUID->"3d6724c6-71f4-5b42-a14c-d169029f383d"] +}, Open ]], +Cell[33385, 931, 171, 2, 22, "Input",ExpressionUUID->"ecd0b3c7-07cc-5848-98fb-ada047a431f8"], +Cell[CellGroupData[{ +Cell[33581, 937, 19809, 485, 1553, "Input",ExpressionUUID->"11051a1e-7803-124a-bbf6-5e5b0c006c65"], +Cell[53393, 1424, 393, 6, 25, "Output",ExpressionUUID->"f6f9cf1f-fe29-ec47-80c1-a386c35ce893"] +}, Open ]], +Cell[CellGroupData[{ +Cell[53823, 1435, 19748, 489, 1579, "Input",ExpressionUUID->"96edc5b8-4ef1-c94a-818f-f5a96a641439"], +Cell[73574, 1926, 394, 6, 25, "Output",ExpressionUUID->"c51367ae-cef6-5c41-a88e-8e5ea6e1a20a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[74005, 1937, 19748, 483, 1572, "Input",ExpressionUUID->"708941cb-a3a5-e54e-bb40-daefd233b708"], +Cell[93756, 2422, 407, 7, 25, "Output",ExpressionUUID->"6d6898a7-ba09-684f-ab39-5b1a1efc924e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[94200, 2434, 22534, 553, 1766, "Input",ExpressionUUID->"5555416b-be67-5042-b0b0-59b97ae6edb3"], +Cell[116737, 2989, 409, 7, 25, "Output",ExpressionUUID->"b10444ee-3769-6a4a-9ed5-9dd0663d61c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[117183, 3001, 22535, 553, 1773, "Input",ExpressionUUID->"2911c1dc-149c-7440-a9aa-771caffdd5dc"], +Cell[139721, 3556, 404, 7, 25, "Output",ExpressionUUID->"bbb44830-1b15-8247-834a-1f8aa275e0a5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[140162, 3568, 25491, 626, 1984, "Input",ExpressionUUID->"593e0efd-8e77-db47-859f-ecfe43b09741"], +Cell[165656, 4196, 403, 7, 25, "Output",ExpressionUUID->"addeb39f-2ecd-b34f-82d3-c6cbd9b9648b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166096, 4208, 130, 2, 22, "Input",ExpressionUUID->"ea2f6c5c-5c2c-c24e-9f30-84f28bc50c35"], +Cell[166229, 4212, 370, 6, 25, "Output",ExpressionUUID->"9f519549-95c6-de4b-89fe-08472985ce8d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166636, 4223, 130, 2, 22, "Input",ExpressionUUID->"1ababc70-6150-5846-91a9-d660a9f9a67e"], +Cell[166769, 4227, 372, 6, 25, "Output",ExpressionUUID->"b34172a8-4eef-ac4d-8069-43693fcc9c60"] +}, Open ]], +Cell[CellGroupData[{ +Cell[167178, 4238, 1144, 39, 46, "Input",ExpressionUUID->"1474f49b-9092-f140-95bb-72e241815f2e"], +Cell[168325, 4279, 391, 6, 25, "Output",ExpressionUUID->"89858ab3-46fa-d844-9aac-851252906c3d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[168753, 4290, 1041, 35, 46, "Input",ExpressionUUID->"e8c2feb4-92bd-7841-b6ef-3e4f56980121"], +Cell[169797, 4327, 407, 7, 25, "Output",ExpressionUUID->"a29cf6f6-8b46-b04b-9931-62cd5ae6cc83"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170241, 4339, 1144, 39, 46, "Input",ExpressionUUID->"d0712258-5cdf-d84f-a90c-0bd8f16ed7ac"], +Cell[171388, 4380, 395, 6, 25, "Output",ExpressionUUID->"5a3743ff-1ad2-5e47-adc2-8ca726c04c85"] +}, Open ]], +Cell[CellGroupData[{ +Cell[171820, 4391, 108, 1, 22, "Input",ExpressionUUID->"e80ec461-f58c-3a41-8a51-5ce0215747a4"], +Cell[171931, 4394, 387, 6, 25, "Output",ExpressionUUID->"b28d78b0-721c-5e4f-995f-1e85eea6a51e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172355, 4405, 108, 1, 22, "Input",ExpressionUUID->"e7a54f02-e8fe-3449-be87-07e7449f49e2"], +Cell[172466, 4408, 417, 7, 25, "Output",ExpressionUUID->"78195888-f0e7-1c47-8bc4-8de64ce4ecc5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172920, 4420, 108, 1, 22, "Input",ExpressionUUID->"392bf6dd-56e8-8d45-a404-04d36f52457c"], +Cell[173031, 4423, 407, 7, 25, "Output",ExpressionUUID->"efa538f7-ddae-8d4c-bac0-bde89faa3904"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173475, 4435, 108, 1, 22, "Input",ExpressionUUID->"a4bf94b1-872b-c44e-b0b5-ea82980c6498"], +Cell[173586, 4438, 395, 6, 25, "Output",ExpressionUUID->"8adc0b83-b7c4-1244-b2b4-28ed204e79cc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174018, 4449, 107, 1, 22, "Input",ExpressionUUID->"63b2c61d-a6cb-9846-abc0-bea8cbedddc9"], +Cell[174128, 4452, 393, 6, 25, "Output",ExpressionUUID->"208760b5-3431-9949-bc3d-78a5959c3339"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174558, 4463, 107, 1, 22, "Input",ExpressionUUID->"5a33f683-67f9-2e4c-9d75-6668f054f7ec"], +Cell[174668, 4466, 391, 6, 25, "Output",ExpressionUUID->"0a9ad17e-761c-6648-8e28-9de7a1bef1e7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175096, 4477, 497, 16, 46, "Input",ExpressionUUID->"852c4cc3-cc32-d341-b2e7-aaf1877a0b85"], +Cell[175596, 4495, 407, 7, 25, "Output",ExpressionUUID->"a7883e95-d9c2-3648-a494-5b05664e3dd7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176040, 4507, 497, 16, 46, "Input",ExpressionUUID->"e6141e71-fa56-8440-92dc-fe9eaad0db2d"], +Cell[176540, 4525, 406, 7, 25, "Output",ExpressionUUID->"f30e0ee4-1790-2a48-95f5-ceab01e3f9a4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176983, 4537, 1788, 60, 109, "Input",ExpressionUUID->"b0483f30-dff3-5b4c-b999-b882cea897cb"], +Cell[178774, 4599, 391, 6, 25, "Output",ExpressionUUID->"9026ed35-6d5c-9d4e-951c-07e836ddc9ea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[179202, 4610, 1101, 36, 64, "Input",ExpressionUUID->"fa9a97d0-df53-7447-92fc-35c155dcd720"], +Cell[180306, 4648, 411, 7, 25, "Output",ExpressionUUID->"f5596963-44fb-b040-b137-5d34e9d72ea1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[180754, 4660, 1818, 61, 90, "Input",ExpressionUUID->"91a92f00-9760-3d4f-904d-80df035e0096"], +Cell[182575, 4723, 390, 6, 25, "Output",ExpressionUUID->"387fa299-4016-d948-9704-a0eec89cd849"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183002, 4734, 2499, 77, 72, "Input",ExpressionUUID->"3cc1e27a-ca24-114e-9c66-41e2a911610c"], +Cell[185504, 4813, 392, 6, 25, "Output",ExpressionUUID->"1e26b1f5-2e60-1d4f-b380-5cefce0e963a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185933, 4824, 2499, 77, 72, "Input",ExpressionUUID->"73776e57-9b30-1441-aab4-a1f5f42f120d"], +Cell[188435, 4903, 389, 6, 25, "Output",ExpressionUUID->"65dadbf9-b8c6-cc40-8b7a-dee91bad4f89"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188861, 4914, 208, 3, 22, "Input",ExpressionUUID->"02c50ee4-f89d-e84b-babb-c4951c25ae7a"], +Cell[189072, 4919, 165, 2, 25, "Output",ExpressionUUID->"a239eb39-d6a3-134c-a853-4230facf61d6"] +}, Open ]], +Cell[189252, 4924, 171, 2, 22, "Input",ExpressionUUID->"a3744ee1-3657-ed40-afd1-ad7c272f2bae"], +Cell[CellGroupData[{ +Cell[189448, 4930, 211, 3, 22, "Input",ExpressionUUID->"fea443da-bb80-5942-940a-8bd97c50a7b3"], +Cell[189662, 4935, 168, 2, 25, "Output",ExpressionUUID->"17186124-ae42-4d48-b08a-fc650d492e90"] +}, Open ]], +Cell[189845, 4940, 175, 2, 22, "Input",ExpressionUUID->"4a8ede4b-c349-9d4b-b8be-a33659ac7670"], +Cell[CellGroupData[{ +Cell[190045, 4946, 1297, 42, 39, "Input",ExpressionUUID->"c66d12ee-7a7e-014a-a59f-f5290f75e383"], +Cell[191345, 4990, 171, 2, 25, "Output",ExpressionUUID->"a5ee31fb-b85e-5248-bcc0-65fe47a2ebb4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191553, 4997, 931, 29, 46, "Input",ExpressionUUID->"f4d1663f-2f7d-a640-9003-22515624ffcb"], +Cell[192487, 5028, 171, 2, 25, "Output",ExpressionUUID->"eabfe586-d950-284e-a5ee-55568e11b869"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192695, 5035, 983, 32, 46, "Input",ExpressionUUID->"85637b45-1c33-1f4e-90c3-07deba1b9b3a"], +Cell[193681, 5069, 173, 2, 25, "Output",ExpressionUUID->"5ee5dca0-1b43-8840-b3b4-78102887df34"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193891, 5076, 554, 18, 42, "Input",ExpressionUUID->"8f97c456-7671-cb44-95b8-323a276088fe"], +Cell[194448, 5096, 165, 2, 25, "Output",ExpressionUUID->"440b8370-393a-404b-852e-d85899ee7f75"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194650, 5103, 647, 21, 42, "Input",ExpressionUUID->"e2507f75-9610-1346-854c-33db9330e900"], +Cell[195300, 5126, 168, 2, 25, "Output",ExpressionUUID->"f14e4444-991b-dd43-b839-32d4d5bd2b14"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195505, 5133, 166, 4, 46, "Input",ExpressionUUID->"148e44ba-fb40-0e42-959d-44858270229f"], +Cell[195674, 5139, 167, 2, 25, "Output",ExpressionUUID->"c3f12543-581c-0748-a57d-f828a470dbee"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195878, 5146, 166, 4, 45, "Input",ExpressionUUID->"0c021142-f067-b94a-bf73-69c3aa281aca"], +Cell[196047, 5152, 167, 2, 25, "Output",ExpressionUUID->"e50d804a-d3c2-c34a-8850-554dc242d84d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196251, 5159, 177, 4, 35, "Input",ExpressionUUID->"827e3da4-16db-854c-89ad-c94762d57459"], +Cell[196431, 5165, 168, 2, 25, "Output",ExpressionUUID->"b4ade9a2-e436-f343-a919-1be5560d22b9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196636, 5172, 177, 4, 35, "Input",ExpressionUUID->"9149adf7-16ac-794c-81f7-04a88d48bdc9"], +Cell[196816, 5178, 168, 2, 25, "Output",ExpressionUUID->"4917653c-d50d-ad42-af81-17902e00ff15"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197021, 5185, 6051, 184, 310, "Input",ExpressionUUID->"14dc1278-8ac3-2246-90ef-ba23d2bdffaa"], +Cell[203075, 5371, 168, 2, 25, "Output",ExpressionUUID->"3a9123bf-30df-4941-9217-c58b18be88ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[203280, 5378, 364, 8, 33, "Input",ExpressionUUID->"6c632312-3007-0b42-93b3-6c1b961afeb6"], +Cell[203647, 5388, 168, 2, 25, "Output",ExpressionUUID->"cd8bbe3c-ed93-564b-95cf-593b6e8b9b34"] +}, Open ]], +Cell[CellGroupData[{ +Cell[203852, 5395, 6118, 186, 353, "Input",ExpressionUUID->"60d1b3b3-12f2-2644-8ed8-788b5437fdfb"], +Cell[209973, 5583, 170, 2, 25, "Output",ExpressionUUID->"ab40c33a-b4e2-c34d-9eec-968c77921501"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210180, 5590, 364, 8, 33, "Input",ExpressionUUID->"8bbc8f7a-f751-794c-9337-a97f1bdae578"], +Cell[210547, 5600, 168, 2, 25, "Output",ExpressionUUID->"d67bf10a-7386-4844-b52c-a79317562e14"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210752, 5607, 2659, 87, 135, "Input",ExpressionUUID->"9338c89c-67a3-6e41-be9a-1cf34020b040"], +Cell[213414, 5696, 169, 2, 25, "Output",ExpressionUUID->"c3eb79fa-4fb4-bf4a-87a4-81220dabba4d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[213620, 5703, 2599, 84, 135, "Input",ExpressionUUID->"ae8d22a0-13a2-9d41-b648-0faf6caf2253"], +Cell[216222, 5789, 171, 2, 25, "Output",ExpressionUUID->"83821887-dd58-7549-9156-ff4faa070c10"] +}, Open ]], +Cell[CellGroupData[{ +Cell[216430, 5796, 3708, 117, 197, "Input",ExpressionUUID->"7d419d4a-7a13-e94d-beb1-cf3b1cd962e0"], +Cell[220141, 5915, 169, 2, 25, "Output",ExpressionUUID->"ad354ce7-0796-1949-997d-7c1f1c4621bf"] +}, Open ]], +Cell[220325, 5920, 160, 3, 34, "Input",ExpressionUUID->"5ded2365-6100-7b43-ad8b-c1b09dc62d32"], +Cell[CellGroupData[{ +Cell[220510, 5927, 2071, 58, 92, "Input",ExpressionUUID->"4fe3e3d4-6e7a-b544-8531-81ac5c3a022e"], +Cell[222584, 5987, 538, 11, 50, "Message",ExpressionUUID->"e5320d3e-ae0b-ec43-bab3-dad0443eba59"], +Cell[223125, 6000, 541, 11, 50, "Message",ExpressionUUID->"4d38e58b-6838-c34f-9b57-2e75d2dc33d6"], +Cell[223669, 6013, 543, 11, 50, "Message",ExpressionUUID->"a77914a7-b069-b14e-969f-570c20acae6b"], +Cell[224215, 6026, 454, 10, 20, "Message",ExpressionUUID->"d369d2bb-6d5e-534c-816e-56bff4f53fa6"], +Cell[224672, 6038, 165, 2, 25, "Output",ExpressionUUID->"daa17776-4f93-7f49-a2fe-24e89dd70e2b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[224874, 6045, 2071, 58, 92, "Input",ExpressionUUID->"2e2efe37-106e-8a4d-98e1-c6d073c59256"], +Cell[226948, 6105, 534, 11, 50, "Message",ExpressionUUID->"be9878bf-4f97-e849-918c-720994ed09da"], +Cell[227485, 6118, 541, 11, 50, "Message",ExpressionUUID->"d7f5033b-9e87-314f-bbf7-5b2c741ad333"], +Cell[228029, 6131, 541, 11, 50, "Message",ExpressionUUID->"ead88118-f56d-5f49-9c12-a33c8e9ba159"], +Cell[228573, 6144, 456, 10, 20, "Message",ExpressionUUID->"4b836978-fc40-1b41-a377-a0ab870081f1"], +Cell[229032, 6156, 169, 2, 25, "Output",ExpressionUUID->"d4fe0879-7657-3b4c-8dad-c81781067c0f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[229238, 6163, 1955, 52, 69, "Input",ExpressionUUID->"5ef8c446-ea46-eb49-90ca-5a9d2703a626"], +Cell[231196, 6217, 20319, 380, 189, "Output",ExpressionUUID->"e2f9067f-850c-9a4c-ab02-bd8a1df03859"] +}, Open ]], +Cell[CellGroupData[{ +Cell[251552, 6602, 2160, 60, 92, "Input",ExpressionUUID->"b7386bff-07bb-694b-b11c-7d3ff3a35bae"], +Cell[253715, 6664, 489, 11, 33, "Message",ExpressionUUID->"0d5c0c65-b068-6440-9579-5a91dd4f118b"], +Cell[254207, 6677, 495, 11, 33, "Message",ExpressionUUID->"de473ecb-83e5-534f-a565-dccce1defba1"], +Cell[254705, 6690, 495, 11, 33, "Message",ExpressionUUID->"b1da91c4-9bfa-7f45-9297-c4eb628dc75b"], +Cell[255203, 6703, 456, 10, 20, "Message",ExpressionUUID->"1f75219c-ad3d-7b4f-963e-f3de99d75029"], +Cell[255662, 6715, 21749, 402, 187, "Output",ExpressionUUID->"dc0827f7-ad93-1949-8c5f-cdc9e1376071"] +}, Open ]], +Cell[CellGroupData[{ +Cell[277448, 7122, 1888, 50, 81, "Input",ExpressionUUID->"08cc1ff9-b63b-d741-9dab-b5604b3208c2"], +Cell[279339, 7174, 8993, 209, 192, "Output",ExpressionUUID->"55649c41-94da-fa4b-8c7a-517228ae0c44"] +}, Open ]], +Cell[CellGroupData[{ +Cell[288369, 7388, 276, 5, 34, "Input",ExpressionUUID->"c833855b-86a8-7349-9ccf-32b52052d827"], +Cell[288648, 7395, 27786, 527, 187, "Output",ExpressionUUID->"b9dd4563-826d-fa45-b026-126726676ae8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[316471, 7927, 236, 6, 39, "Input",ExpressionUUID->"c6de3c8b-ad61-c04a-b1df-f10741068cd1"], +Cell[316710, 7935, 168, 2, 25, "Output",ExpressionUUID->"58dfbc60-6789-7b4b-9126-5dd69677b1e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[316915, 7942, 1839, 53, 92, "Input",ExpressionUUID->"e95bae90-91f9-c74f-b890-1d51c0908f7e"], +Cell[318757, 7997, 489, 11, 33, "Message",ExpressionUUID->"32649659-0367-0346-b721-a8ee92d84cc0"], +Cell[319249, 8010, 491, 11, 33, "Message",ExpressionUUID->"c8d3b9a3-af71-6544-9336-c2d39095ceb2"], +Cell[319743, 8023, 497, 11, 33, "Message",ExpressionUUID->"cf525010-2df1-e445-895e-b3a6c553bebb"], +Cell[320243, 8036, 456, 10, 20, "Message",ExpressionUUID->"55d17c00-ef34-f946-bcb8-f91ee8eb358d"], +Cell[320702, 8048, 22580, 418, 186, "Output",ExpressionUUID->"c8fa6e85-ca7e-d749-b59b-f81445ad3d9f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[343319, 8471, 1616, 48, 69, "Input",ExpressionUUID->"b292bf25-9f2c-1b44-bd26-31940b3b367d"], +Cell[344938, 8521, 522, 11, 50, "Message",ExpressionUUID->"c67f0021-f8ab-fe4b-bef4-f76286a20ca2"], +Cell[345463, 8534, 526, 11, 50, "Message",ExpressionUUID->"fc18f967-acb6-c840-a1c3-ef62dcde1cbe"], +Cell[345992, 8547, 530, 11, 50, "Message",ExpressionUUID->"7a0f5cbe-798b-3a43-8c0b-358fce5c421f"], +Cell[346525, 8560, 458, 10, 20, "Message",ExpressionUUID->"0b54c598-4392-fb4e-a878-50de6763d592"], +Cell[346986, 8572, 173, 3, 25, "Output",ExpressionUUID->"6eb57d53-db36-bc4b-880f-c492f8a667b1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[347196, 8580, 2274, 64, 131, "Input",ExpressionUUID->"101ef0da-c6f5-1c49-9804-85fb5ed316b5"], +Cell[349473, 8646, 540, 11, 50, "Message",ExpressionUUID->"90a290c9-5087-4341-b751-747e3cd474ec"], +Cell[350016, 8659, 543, 11, 50, "Message",ExpressionUUID->"08d40d32-85d6-294c-a6b2-56b21d28ab3a"], +Cell[350562, 8672, 545, 11, 50, "Message",ExpressionUUID->"aa7c009e-42c1-ac4d-9537-b8a3a9e64ca9"], +Cell[351110, 8685, 458, 10, 20, "Message",ExpressionUUID->"38de7700-d4d8-e142-9db4-4decfa8c7cb0"], +Cell[351571, 8697, 171, 3, 25, "Output",ExpressionUUID->"b0ee4c32-6317-3f44-8578-6eb265b3dcfe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[351779, 8705, 2244, 64, 131, "Input",ExpressionUUID->"087f1adc-ca17-4a4e-8be3-617724431d54"], +Cell[354026, 8771, 538, 11, 50, "Message",ExpressionUUID->"1e8ca755-062d-d540-aef3-d434745279a7"], +Cell[354567, 8784, 541, 11, 50, "Message",ExpressionUUID->"0bbb1f97-d204-3c47-9ff2-3e6dcf0d8e8b"], +Cell[355111, 8797, 543, 11, 50, "Message",ExpressionUUID->"071dce6f-a76f-3d4e-8f34-7fe9d62ef95c"], +Cell[355657, 8810, 456, 10, 20, "Message",ExpressionUUID->"8888c9b0-8a07-fb47-a4fd-e02ec566caa0"], +Cell[356116, 8822, 171, 3, 25, "Output",ExpressionUUID->"a7cb163e-7caf-1542-944e-319f2392364e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[356324, 8830, 2244, 64, 131, "Input",ExpressionUUID->"562762dd-8337-c248-84ed-48f09efe77cb"], +Cell[358571, 8896, 537, 11, 50, "Message",ExpressionUUID->"2173b90f-23f5-2846-8375-66884c3def53"], +Cell[359111, 8909, 543, 11, 50, "Message",ExpressionUUID->"01b90bb6-058a-1845-ab19-38491003c87e"], +Cell[359657, 8922, 542, 11, 50, "Message",ExpressionUUID->"fec4f3df-5edb-b042-ac11-875a7b95806e"], +Cell[360202, 8935, 456, 10, 20, "Message",ExpressionUUID->"7ea16f80-fc4f-b641-8f55-6aaf6ed5b450"], +Cell[360661, 8947, 170, 3, 25, "Output",ExpressionUUID->"bd1faab8-0e72-e24e-83e8-fefb98126575"] +}, Open ]], +Cell[CellGroupData[{ +Cell[360868, 8955, 236, 6, 38, "Input",ExpressionUUID->"b22d48b0-99f1-fc43-8d66-dfdcb64caaf4"], +Cell[361107, 8963, 174, 3, 25, "Output",ExpressionUUID->"185c0c3f-5ee4-d74d-80ba-6a79d831658e"] +}, Open ]], +Cell[361296, 8969, 271, 6, 34, "Input",ExpressionUUID->"324c5332-372a-9346-847e-b48a2f85529f"], +Cell[CellGroupData[{ +Cell[361592, 8979, 558, 19, 42, "Input",ExpressionUUID->"3aa52613-e091-4440-b97b-cbff40fea673"], +Cell[362153, 9000, 171, 3, 25, "Output",ExpressionUUID->"70f4eacb-832e-4c41-91aa-147d0b6ae14b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362361, 9008, 170, 5, 46, "Input",ExpressionUUID->"00409e7b-892c-b145-91f2-fd5d9616a547"], +Cell[362534, 9015, 173, 3, 25, "Output",ExpressionUUID->"77d6ed3c-64b6-8a4b-befd-1fe7b5770e20"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362744, 9023, 181, 5, 35, "Input",ExpressionUUID->"eb9f1869-8c47-4c47-ad8f-589aa7e556b3"], +Cell[362928, 9030, 173, 3, 25, "Output",ExpressionUUID->"6f500449-dd0e-8649-b0fb-adbb87edd044"] +}, Open ]], +Cell[CellGroupData[{ +Cell[363138, 9038, 6055, 185, 310, "Input",ExpressionUUID->"a68db5dc-89e4-f247-a519-53dcbe6905b1"], +Cell[369196, 9225, 174, 3, 25, "Output",ExpressionUUID->"6b40fb94-b2c4-9046-86ab-0247e3d65634"] +}, Open ]], +Cell[CellGroupData[{ +Cell[369407, 9233, 368, 9, 33, "Input",ExpressionUUID->"d3d0889a-1b29-9a4d-af3d-093ef0359f4b"], +Cell[369778, 9244, 171, 3, 25, "Output",ExpressionUUID->"ec23a64f-874a-8a4b-be21-8e1397391c25"] +}, Open ]], +Cell[CellGroupData[{ +Cell[369986, 9252, 6122, 187, 353, "Input",ExpressionUUID->"9fe1a567-82b8-a345-b4b0-80b2c100f9f3"], +Cell[376111, 9441, 173, 3, 25, "Output",ExpressionUUID->"c9c5645c-04b5-fc46-ba21-079cf2546710"] +}, Open ]], +Cell[CellGroupData[{ +Cell[376321, 9449, 368, 9, 33, "Input",ExpressionUUID->"3372ffe6-5d5a-b247-8795-4c6a022053d0"], +Cell[376692, 9460, 173, 3, 25, "Output",ExpressionUUID->"4696d7eb-28ea-6f4b-9bfc-c415b99c38c8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[376902, 9468, 2663, 88, 135, "Input",ExpressionUUID->"367b34da-973d-2d45-8020-5f24b7ad9501"], +Cell[379568, 9558, 173, 3, 25, "Output",ExpressionUUID->"a80721cc-91cf-aa4a-b26c-55571761b275"] +}, Open ]], +Cell[CellGroupData[{ +Cell[379778, 9566, 2603, 85, 135, "Input",ExpressionUUID->"112859ae-f114-4041-84e8-1ba64a91ebc1"], +Cell[382384, 9653, 175, 3, 25, "Output",ExpressionUUID->"27204d98-0d4b-714d-9977-012310a37a7d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[382596, 9661, 3712, 118, 197, "Input",ExpressionUUID->"695320bc-fa3e-3547-be92-70a745b298b2"], +Cell[386311, 9781, 173, 3, 25, "Output",ExpressionUUID->"d5984f89-eb52-6d42-804d-3685337df3e3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[386521, 9789, 2077, 59, 92, "Input",ExpressionUUID->"b1722e07-c26a-4d47-97af-4f4eb5664e3b"], +Cell[388601, 9850, 515, 11, 50, "Message",ExpressionUUID->"19ad97d1-e4b2-1243-a73a-941a6829a713"], +Cell[389119, 9863, 515, 11, 50, "Message",ExpressionUUID->"4962cf58-aa6e-e941-b81c-1864640eca20"], +Cell[389637, 9876, 519, 11, 50, "Message",ExpressionUUID->"2be79ac0-e9f0-0d4e-8008-9c32d29ae57e"], +Cell[390159, 9889, 456, 10, 20, "Message",ExpressionUUID->"0ffc045a-0a2d-6b47-99dd-078f68922aa6"], +Cell[390618, 9901, 171, 3, 25, "Output",ExpressionUUID->"39d86737-c549-9442-8946-a306217cd3de"] +}, Open ]], +Cell[CellGroupData[{ +Cell[390826, 9909, 2077, 59, 92, "Input",ExpressionUUID->"e785cfe1-8cd5-4a44-8f18-a3bdb03abf99"], +Cell[392906, 9970, 515, 11, 50, "Message",ExpressionUUID->"93eb5cb5-8c41-ef49-a079-9d805e210f15"], +Cell[393424, 9983, 517, 11, 50, "Message",ExpressionUUID->"0c93c049-729e-9744-9ce3-e0826fe78acd"], +Cell[393944, 9996, 519, 11, 50, "Message",ExpressionUUID->"df804e3f-a9be-cc4f-bb66-6337a91642ad"], +Cell[394466, 10009, 458, 10, 20, "Message",ExpressionUUID->"df34a7e1-5a90-704d-b485-9ff27d8d4a4f"], +Cell[394927, 10021, 173, 3, 25, "Output",ExpressionUUID->"b400d4cd-d162-d74b-888a-c18df43261a9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[395137, 10029, 2053, 55, 54, "Input",ExpressionUUID->"39feef99-fcf4-8440-bed1-25beef5a0630"], +Cell[397193, 10086, 19972, 375, 184, "Output",ExpressionUUID->"b1777edd-dc55-8049-91b8-b862ba2160b0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[417202, 10466, 2170, 61, 92, "Input",ExpressionUUID->"e605439d-19dd-2645-8993-c76100de5ed2"], +Cell[419375, 10529, 489, 11, 33, "Message",ExpressionUUID->"39b7f16f-228a-c541-8cbe-392f836a4360"], +Cell[419867, 10542, 491, 11, 33, "Message",ExpressionUUID->"2fc896c2-6dc6-3243-bb3f-a069e1b4320f"], +Cell[420361, 10555, 511, 11, 21, "Message",ExpressionUUID->"a22bb038-0e09-c342-b4a6-b4e7358db9f0"], +Cell[420875, 10568, 458, 10, 20, "Message",ExpressionUUID->"9211017a-6c3d-6c4f-a73e-338cb9316964"], +Cell[421336, 10580, 51441, 889, 187, "Output",ExpressionUUID->"1b40c314-5709-9a4d-928a-39e6438f8355"] +}, Open ]], +Cell[CellGroupData[{ +Cell[472814, 11474, 280, 6, 34, "Input",ExpressionUUID->"3e01852b-fa23-2642-abab-f1f489e06059"], +Cell[473097, 11482, 57473, 1014, 187, "Output",ExpressionUUID->"40638c45-c86d-7548-8e86-ee6f812d15c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[530607, 12501, 1616, 48, 69, "Input",ExpressionUUID->"cec9d659-40a4-9344-876a-cec895b68137"], +Cell[532226, 12551, 541, 11, 50, "Message",ExpressionUUID->"fccf9ad5-768f-aa46-b2be-4514d63a854a"], +Cell[532770, 12564, 544, 11, 50, "Message",ExpressionUUID->"610843a2-592c-2c4d-b17e-e3c31fe8e872"], +Cell[533317, 12577, 553, 12, 50, "Message",ExpressionUUID->"6c936a58-f49b-c344-98d5-a44b5064c7ba"], +Cell[533873, 12591, 458, 10, 20, "Message",ExpressionUUID->"71a2acba-fa3a-1549-bade-61c67b202e1a"], +Cell[534334, 12603, 171, 3, 25, "Output",ExpressionUUID->"97cfae6c-c065-a844-be76-0428d1006809"] +}, Open ]], +Cell[CellGroupData[{ +Cell[534542, 12611, 2270, 64, 131, "Input",ExpressionUUID->"dcfb8a1f-77bf-c54a-8dd4-08e72b48e971"], +Cell[536815, 12677, 515, 11, 50, "Message",ExpressionUUID->"028be4b4-912b-324e-939d-a0d250e0021e"], +Cell[537333, 12690, 517, 11, 50, "Message",ExpressionUUID->"dca5b815-9844-1244-983e-451ffcf2a9e5"], +Cell[537853, 12703, 519, 11, 50, "Message",ExpressionUUID->"98e39870-633d-ec4e-9b56-e246fc40b688"], +Cell[538375, 12716, 458, 10, 20, "Message",ExpressionUUID->"328c80df-10f2-f244-9bda-e4f5555f39b7"], +Cell[538836, 12728, 174, 3, 25, "Output",ExpressionUUID->"0631cb22-b670-3846-ad15-69639b34022b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[539047, 12736, 2242, 64, 131, "Input",ExpressionUUID->"b256ae65-c9c8-994b-815e-de484a821375"], +Cell[541292, 12802, 515, 11, 50, "Message",ExpressionUUID->"a82d887b-cf97-6b46-a81b-193dcc5db986"], +Cell[541810, 12815, 517, 11, 50, "Message",ExpressionUUID->"a9905666-f15b-4c40-8781-b88430d867e9"], +Cell[542330, 12828, 521, 11, 50, "Message",ExpressionUUID->"0845c60d-d0dd-2e49-909d-096abc25c63c"], +Cell[542854, 12841, 456, 10, 20, "Message",ExpressionUUID->"af33df1d-0871-2e4d-bf1f-afb5e3a9b3ee"], +Cell[543313, 12853, 173, 3, 25, "Output",ExpressionUUID->"78a3b590-1bdd-8b4d-b726-29e6c53ab39e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[543523, 12861, 2246, 64, 131, "Input",ExpressionUUID->"8fd338d4-a1be-6841-b853-e94a67cb9612"], +Cell[545772, 12927, 513, 11, 50, "Message",ExpressionUUID->"45fdeccf-459c-4240-bc03-bfca0b0bbd02"], +Cell[546288, 12940, 517, 11, 50, "Message",ExpressionUUID->"4e1e727b-aa53-ec46-a783-e278e6529280"], +Cell[546808, 12953, 519, 11, 50, "Message",ExpressionUUID->"4d3c3bfb-fecf-6c4b-887a-0eaa241bd20d"], +Cell[547330, 12966, 458, 10, 20, "Message",ExpressionUUID->"4e59ee48-9d44-184b-9c04-eafa5d094697"], +Cell[547791, 12978, 171, 3, 25, "Output",ExpressionUUID->"2b9e0d78-970e-8649-92dd-a3e019636172"] +}, Open ]], +Cell[CellGroupData[{ +Cell[547999, 12986, 238, 6, 38, "Input",ExpressionUUID->"9231c462-6016-ac42-bd11-cb0c7e92fda2"], +Cell[548240, 12994, 177, 3, 25, "Output",ExpressionUUID->"d13ae2fe-024d-084b-a317-157213c4ff24"] +}, Open ]], +Cell[548432, 13000, 275, 6, 34, "Input",ExpressionUUID->"7b4f4188-e9b4-a249-91fe-f977b92c20b2"], +Cell[CellGroupData[{ +Cell[548732, 13010, 558, 19, 42, "Input",ExpressionUUID->"e639aabf-9918-b148-b52f-1037c590e22d"], +Cell[549293, 13031, 170, 3, 25, "Output",ExpressionUUID->"b9201ddd-7c20-7e4a-8265-51dcc39e73a1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[549500, 13039, 170, 5, 46, "Input",ExpressionUUID->"9f21bdcd-6887-bf47-af20-cb6fe2ae22d1"], +Cell[549673, 13046, 171, 3, 25, "Output",ExpressionUUID->"2944e89a-4f02-5847-8353-94d2e5ac1dd4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[549881, 13054, 181, 5, 35, "Input",ExpressionUUID->"807c9644-b813-4545-bd97-a39923ad2c85"], +Cell[550065, 13061, 173, 3, 25, "Output",ExpressionUUID->"d3b4e679-eaee-9d44-9a2a-89e4272596ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[550275, 13069, 6055, 185, 312, "Input",ExpressionUUID->"c029bbe7-1e0d-6c47-9817-6aab8cca4349"], +Cell[556333, 13256, 175, 3, 25, "Output",ExpressionUUID->"8d329473-571e-0142-b3e0-33fc6339b70d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[556545, 13264, 368, 9, 33, "Input",ExpressionUUID->"02414061-9268-3a40-809c-791f7b1bc727"], +Cell[556916, 13275, 171, 3, 25, "Output",ExpressionUUID->"15d28748-874b-4144-9954-8631e6cdd1db"] +}, Open ]], +Cell[CellGroupData[{ +Cell[557124, 13283, 6122, 187, 310, "Input",ExpressionUUID->"0cf6ee00-990f-aa48-80f8-a2822701e626"], +Cell[563249, 13472, 175, 3, 25, "Output",ExpressionUUID->"6283aa2c-c7ea-f94e-aa33-c6dc4e7368d2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[563461, 13480, 368, 9, 33, "Input",ExpressionUUID->"0e7a310e-8267-084b-8d71-ceb0b816dd18"], +Cell[563832, 13491, 172, 3, 25, "Output",ExpressionUUID->"9fdbde2e-6fae-9843-b3b0-de88109ff1c8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[564041, 13499, 2663, 88, 135, "Input",ExpressionUUID->"16870642-9452-a14f-a1b7-576792706e56"], +Cell[566707, 13589, 171, 3, 25, "Output",ExpressionUUID->"5d9fdd3f-b9c9-5845-84dc-8ee718f98c42"] +}, Open ]], +Cell[CellGroupData[{ +Cell[566915, 13597, 2603, 85, 135, "Input",ExpressionUUID->"207b673b-eb18-904e-8dba-9c1c1dd6034c"], +Cell[569521, 13684, 175, 3, 25, "Output",ExpressionUUID->"10aee8b1-4533-594c-9e18-abc1e63104d6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[569733, 13692, 3712, 118, 197, "Input",ExpressionUUID->"fcc33f59-ac5d-dc44-a6a0-01cb1397795c"], +Cell[573448, 13812, 175, 3, 25, "Output",ExpressionUUID->"45e92fd4-f829-a043-9bc7-4c8a64477bd3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[573660, 13820, 2077, 59, 92, "Input",ExpressionUUID->"c2bffed8-3648-ee47-bc6e-be191758bd92"], +Cell[575740, 13881, 518, 11, 50, "Message",ExpressionUUID->"c6de5648-07bc-ce4c-b124-1ac24d3aea7d"], +Cell[576261, 13894, 521, 11, 50, "Message",ExpressionUUID->"9db0dd19-137d-1741-ba20-1b734cb493f1"], +Cell[576785, 13907, 523, 11, 50, "Message",ExpressionUUID->"b4a473fa-0025-0e47-a404-994a4f92ba5a"], +Cell[577311, 13920, 458, 10, 20, "Message",ExpressionUUID->"6996ccf4-f04f-ca4f-a061-e46f26aea6f9"], +Cell[577772, 13932, 173, 3, 25, "Output",ExpressionUUID->"fa45c27f-0111-b148-a46f-76badc1f0358"] +}, Open ]], +Cell[CellGroupData[{ +Cell[577982, 13940, 2077, 59, 92, "Input",ExpressionUUID->"162c1d78-b731-9743-923d-e14e238c88c0"], +Cell[580062, 14001, 518, 11, 50, "Message",ExpressionUUID->"b262bfc8-b51f-f049-949d-0ae5325b0332"], +Cell[580583, 14014, 519, 11, 50, "Message",ExpressionUUID->"fc021f2b-f23e-f043-aa94-157b8059cf74"], +Cell[581105, 14027, 523, 11, 50, "Message",ExpressionUUID->"612049b8-ee24-6746-863b-ebc5ceb54f21"], +Cell[581631, 14040, 456, 10, 20, "Message",ExpressionUUID->"e43f47bf-22e5-7d40-9ec4-0c62ad635cec"], +Cell[582090, 14052, 171, 3, 25, "Output",ExpressionUUID->"01d612ef-be18-bb43-8dbe-be9c8d4bcf5b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[582298, 14060, 2051, 55, 54, "Input",ExpressionUUID->"e062485f-eb72-5b44-8f24-f29169102337"], +Cell[584352, 14117, 19974, 375, 184, "Output",ExpressionUUID->"1cfbf3b0-25d6-9742-bb99-44d92673cb9a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[604363, 14497, 2168, 61, 92, "Input",ExpressionUUID->"d8f392d3-6c9e-3f4d-9982-5d019384c724"], +Cell[606534, 14560, 489, 11, 33, "Message",ExpressionUUID->"ebcf9d8d-97a7-3847-a420-1110b6ac001d"], +Cell[607026, 14573, 491, 11, 33, "Message",ExpressionUUID->"6db21928-6d80-d248-959a-e4223847d20e"], +Cell[607520, 14586, 509, 11, 21, "Message",ExpressionUUID->"8ec0d6e3-ddb3-224b-ae69-b8981713a6a4"], +Cell[608032, 14599, 458, 10, 20, "Message",ExpressionUUID->"6c6793ff-2734-6248-a27b-1d436984beab"], +Cell[608493, 14611, 51441, 889, 187, "Output",ExpressionUUID->"7f9f164f-d33e-9141-aa0d-52309adab880"] +}, Open ]], +Cell[CellGroupData[{ +Cell[659971, 15505, 280, 6, 34, "Input",ExpressionUUID->"b7cf0d21-5483-ac4b-a7be-b13fedb5cf43"], +Cell[660254, 15513, 57469, 1014, 187, "Output",ExpressionUUID->"f99b5e51-f810-424c-83fc-639cdac82da5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[717760, 16532, 1616, 48, 69, "Input",ExpressionUUID->"f102c80c-cb19-a64b-98f1-a3bbc351ff15"], +Cell[719379, 16582, 542, 11, 50, "Message",ExpressionUUID->"c3c59255-09e0-bd48-b05c-b559a04c6289"], +Cell[719924, 16595, 546, 11, 50, "Message",ExpressionUUID->"71800716-54d7-f547-9eb9-a3a460a70ff4"], +Cell[720473, 16608, 553, 12, 50, "Message",ExpressionUUID->"66c2900a-3555-2d46-9a88-cef06c7bda00"], +Cell[721029, 16622, 456, 10, 20, "Message",ExpressionUUID->"ab6e7881-9886-f74f-b670-4935abc610db"], +Cell[721488, 16634, 171, 3, 25, "Output",ExpressionUUID->"5ed9662d-6924-7943-8732-574edf964492"] +}, Open ]], +Cell[CellGroupData[{ +Cell[721696, 16642, 2272, 64, 131, "Input",ExpressionUUID->"ad23855f-c99b-a44c-9a12-deb534d421e5"], +Cell[723971, 16708, 518, 11, 50, "Message",ExpressionUUID->"d9c484ff-2231-9f46-9926-337a0b7dfc7a"], +Cell[724492, 16721, 521, 11, 50, "Message",ExpressionUUID->"74f74dcd-4eb4-3f41-9d7a-e19c328f436c"], +Cell[725016, 16734, 523, 11, 50, "Message",ExpressionUUID->"ff3479fd-cd23-1148-9960-aef5cc33e18c"], +Cell[725542, 16747, 458, 10, 20, "Message",ExpressionUUID->"1134b4c1-359a-f848-adbe-a1e88101fe03"], +Cell[726003, 16759, 176, 3, 25, "Output",ExpressionUUID->"2dfe7fd2-1c2a-d243-b913-c454686fd572"] +}, Open ]], +Cell[CellGroupData[{ +Cell[726216, 16767, 2244, 64, 131, "Input",ExpressionUUID->"04adbbfb-46b7-244b-ac81-2150361c4bc9"], +Cell[728463, 16833, 518, 11, 50, "Message",ExpressionUUID->"977b1147-216c-2a44-b914-bd3cbad86183"], +Cell[728984, 16846, 521, 11, 50, "Message",ExpressionUUID->"dfd15a78-bd0d-5949-b1ba-f2ea54c0d390"], +Cell[729508, 16859, 521, 11, 50, "Message",ExpressionUUID->"443b0185-235a-d140-8953-5402b20e55b7"], +Cell[730032, 16872, 456, 10, 20, "Message",ExpressionUUID->"fc70e0ba-cad2-e844-be3f-5ea448bb637e"], +Cell[730491, 16884, 171, 3, 25, "Output",ExpressionUUID->"2812e1af-de55-8e4f-9209-f6d332ea1a90"] +}, Open ]], +Cell[CellGroupData[{ +Cell[730699, 16892, 2244, 64, 131, "Input",ExpressionUUID->"a64b278e-5de9-3f4d-8a34-31c8693c1f49"], +Cell[732946, 16958, 516, 11, 50, "Message",ExpressionUUID->"d59783f2-d080-a043-a5eb-9fc4d05c5ae3"], +Cell[733465, 16971, 521, 11, 50, "Message",ExpressionUUID->"faed6dfb-29ec-b74f-b8fc-fa58eba8a71b"], +Cell[733989, 16984, 521, 11, 50, "Message",ExpressionUUID->"0c80e423-2469-6a4d-8ffc-ceeac846c33f"], +Cell[734513, 16997, 456, 10, 20, "Message",ExpressionUUID->"94628aa9-24b3-4546-8bf6-3ffd53ee1e4b"], +Cell[734972, 17009, 173, 3, 25, "Output",ExpressionUUID->"e14e0b70-c491-9f44-b1ce-1f4eeb269f10"] +}, Open ]], +Cell[CellGroupData[{ +Cell[735182, 17017, 235, 6, 38, "Input",ExpressionUUID->"4be81bbf-81c0-3047-be62-a85883f3e3bb"], +Cell[735420, 17025, 178, 3, 25, "Output",ExpressionUUID->"33005208-1af3-b04b-a5be-0a4cb0e9bab5"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_osc_Qw1.nb b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_osc_Qw1.nb new file mode 100755 index 0000000..072d500 --- /dev/null +++ b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_osc_Qw1.nb @@ -0,0 +1,16192 @@ +(* 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[ 683854, 16184] +NotebookOptionsPosition[ 641772, 15508] +NotebookOutlinePosition[ 642226, 15526] +CellTagsIndexPosition[ 642183, 15523] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "0.1"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.992086540831894*^9, 3.9920865523321934`*^9}, { + 3.992086586219898*^9, 3.992086610363735*^9}, {3.9920867343035507`*^9, + 3.992086784359892*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"05f0731c-d41f-bc4e-b3a5-fe37ee9edd84"], + +Cell[BoxData["0.1`"], "Output", + CellChangeTimes->{3.992086762207903*^9, 3.9920868028367424`*^9, + 3.992093689446821*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"1f2f37e1-51c2-aa49-ab29-c0b6caf9a546"] +}, Open ]], + +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.992085811016073*^9, 3.9920858120004807`*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"12aae3bb-3c18-fc49-a0b1-b91fdc1bbe34"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.9920860563908997`*^9, 3.992086267214739*^9, + 3.992086570082403*^9, 3.9920866008307095`*^9, 3.9920866670307636`*^9, { + 3.9920867754973392`*^9, 3.9920868028625736`*^9}, 3.9920936895308037`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"0d226516-7f6f-0d42-8224-96106a402797"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "58"}]], "Input", + CellChangeTimes->{3.9917123636954575`*^9, 3.9917930477498703`*^9, + 3.9920858245124893`*^9}, + CellLabel->"In[3]:=",ExpressionUUID->"93a900cf-d755-b944-921b-a609f0a955d2"], + +Cell[BoxData["58"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9920860564147377`*^9, 3.9920862672333508`*^9, + 3.992086570087515*^9, 3.992086600854433*^9, 3.992086667052353*^9, { + 3.99208677552532*^9, 3.9920868028686295`*^9}, 3.9920936895420704`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"074cb25d-ca6d-da48-a3fb-273dd265f29f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"ad2e1847-77bb-2547-a825-69fabcda8ddf"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.991707828219631*^9, 3.9917123414174232`*^9, + 3.992086056442711*^9, 3.992086267243601*^9, 3.9920865701074047`*^9, + 3.992086600883713*^9, 3.9920866670570984`*^9, {3.9920867755491276`*^9, + 3.9920868028899593`*^9}, 3.99209368956221*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"8d48d129-5a72-0143-a341-cc4bf8b26681"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"4cc840b0-88d4-374e-a12e-54b8464f3172"], + +Cell[BoxData["0.5577500000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.9917078282275677`*^9, 3.9917123414253197`*^9, + 3.992086056472231*^9, 3.9920862672656536`*^9, 3.9920865701119137`*^9, + 3.9920866009103184`*^9, 3.9920866670824966`*^9, {3.992086775556343*^9, + 3.9920868028954678`*^9}, 3.992093689569212*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"b0db3da0-a949-ab4c-be0b-7052ee9c4be1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"7e4318c8-0990-ce41-a87a-43c5428155f4"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9917078282485256`*^9, 3.9917123414324265`*^9, + 3.992086056479254*^9, 3.992086267270653*^9, 3.9920865701184216`*^9, + 3.9920866009393177`*^9, 3.9920866670875015`*^9, {3.992086775577345*^9, + 3.9920868029233513`*^9}, 3.9920936895882225`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"f7c34acf-b2b8-7247-b530-1a9cd747565a"] +}, 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->"c991c4ea-4c61-ff4f-8dd1-a921864ebed7"], + +Cell[BoxData["4.4902169031282435`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.9917078282706223`*^9, 3.9917123414384117`*^9, + 3.992086056511862*^9, 3.992086267275753*^9, 3.9920865701434135`*^9, + 3.9920866009463215`*^9, 3.992086667111265*^9, {3.992086775588663*^9, + 3.9920868029544296`*^9}, 3.9920936896107674`*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"f6e39c89-ab95-bb4d-88d3-e96aa6fee407"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"c0ebd7fd-cfec-df46-a449-f750a93384d0"], + +Cell[BoxData["6.573779285392593`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.9917078282785244`*^9, 3.991712341447321*^9, + 3.9920860565348663`*^9, 3.99208626729467*^9, 3.9920865701494427`*^9, + 3.9920866009676666`*^9, 3.9920866671364613`*^9, {3.9920867756105766`*^9, + 3.992086802964319*^9}, 3.9920936896178417`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"82ed812d-f01a-b746-afb8-7d9ff80a17a1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.363557285532272"}]], "Input", + CellChangeTimes->{ + 3.9917123951294365`*^9, 3.99179305435186*^9, {3.9920858393278446`*^9, + 3.9920858536690025`*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"4df260b6-0d11-1441-9e2e-22f951821193"], + +Cell[BoxData["0.363557285532272`"], "Output", + CellChangeTimes->{ + 3.991319649862606*^9, 3.991707828301527*^9, 3.9917123414573193`*^9, + 3.991712407248003*^9, 3.9920860565659294`*^9, 3.992086267305723*^9, + 3.992086570171528*^9, 3.992086600972666*^9, 3.9920866671645985`*^9, { + 3.9920867756155777`*^9, 3.9920868029898014`*^9}, 3.992093689638378*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"573e6b29-47b4-d04d-bf7c-a3f2ab63a3e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "1.14032997838104"}]], "Input", + CellChangeTimes->{ + 3.9917124038115807`*^9, 3.991793052797516*^9, {3.992085843612673*^9, + 3.9920858505623627`*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"2d27be30-fef3-4449-b748-886004fbb723"], + +Cell[BoxData["1.14032997838104`"], "Output", + CellChangeTimes->{ + 3.9913196498716316`*^9, 3.991707828308525*^9, 3.99171234146842*^9, + 3.9917124073213234`*^9, 3.992086056571884*^9, 3.9920862673247185`*^9, + 3.992086570200531*^9, 3.9920866009956837`*^9, 3.9920866671913986`*^9, { + 3.992086775620594*^9, 3.9920868029953136`*^9}, 3.9920936896491985`*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"1f5248fe-f5ee-f94a-9cb2-30a73060f695"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"58f05ac2-9a5b-b743-b028-7f6094b06d91"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.9917078283276424`*^9, 3.991712341478319*^9, + 3.992086056594942*^9, 3.992086267342724*^9, 3.992086570206547*^9, + 3.992086601016636*^9, 3.992086667196371*^9, {3.9920867756454487`*^9, + 3.9920868030243797`*^9}, 3.992093689673212*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"7c1e72ed-9d9b-5143-a8a7-5a624b06b6ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"b018faa3-5a51-4f49-9b0d-7936087c5070"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.99170782834754*^9, 3.9917123414863186`*^9, + 3.99208605659988*^9, 3.992086267369709*^9, 3.9920865702305107`*^9, + 3.992086601021658*^9, 3.992086667220396*^9, {3.9920867756661854`*^9, + 3.9920868030533276`*^9}, 3.992093689681217*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"102d3e37-23fa-3a4e-b821-07729749ff5a"] +}, 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->"44764fb1-9da1-4d4e-a570-89126d15f894"], + +Cell[BoxData["1.3932112707868565`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.991707968406042*^9, 3.9920860566229687`*^9, + 3.9920862673877125`*^9, 3.992086570250431*^9, 3.9920866010503235`*^9, + 3.9920866672243824`*^9, {3.9920867756911926`*^9, 3.992086803080593*^9}, + 3.992093689702215*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"90fdc215-b4fd-ac45-a6cc-34220152dc28"] +}, 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->"3281618b-d4a7-c942-98be-b78c0b986321"], + +Cell[BoxData["3.0097040215395996`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.9917079684291363`*^9, 3.992086056628895*^9, + 3.992086267395834*^9, 3.9920865702819977`*^9, 3.9920866010553265`*^9, + 3.992086667248516*^9, {3.992086775697193*^9, 3.992086803086094*^9}, + 3.992093689735426*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"07d50c48-a449-a348-b422-86d4648310e2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"fed40061-6b4e-1748-b42c-03e683b18808"], + +Cell[BoxData["0.8492253700915684`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.991707968457081*^9, 3.9920860566568546`*^9, + 3.9920862674018364`*^9, 3.9920865702885704`*^9, 3.9920866010823193`*^9, + 3.9920866672535152`*^9, {3.9920867757212353`*^9, 3.9920868031092052`*^9}, + 3.9920936897469025`*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"5f4faa23-6cfc-b54b-ab03-6a64a24b2bbd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"f615b39c-9820-5147-95ce-618baa4e4991"], + +Cell[BoxData[ + RowBox[{"-", "1.1896646126189885`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.9917079684650364`*^9, 3.992086056661869*^9, + 3.9920862674289207`*^9, 3.992086570310892*^9, 3.992086601108303*^9, + 3.992086667258547*^9, {3.9920867757272587`*^9, 3.9920868031152153`*^9}, + 3.992093689772423*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"dbc78de8-1e08-6849-bc49-7f041bb6452b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"7b2f9469-8c15-d349-a2c9-fcf9fcf6e8df"], + +Cell[BoxData[ + RowBox[{"-", "0.07157823242670158`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.9917079684860363`*^9, 3.992086056689867*^9, + 3.992086267451708*^9, 3.9920865703164005`*^9, 3.9920866011133003`*^9, + 3.992086667287239*^9, {3.9920867757482376`*^9, 3.992086803136221*^9}, + 3.992093689800432*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"4063585e-143e-2b43-a75f-1b776b8fce82"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"e673379f-2460-4e49-90d0-35742055e8f6"], + +Cell[BoxData["0.36531988493615475`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9917079684940376`*^9, 3.992086056698021*^9, + 3.9920862674576683`*^9, 3.992086570322399*^9, 3.9920866011363144`*^9, + 3.9920866673132973`*^9, {3.9920867757535*^9, 3.9920868031582184`*^9}, + 3.9920936898090153`*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"0d442392-bd3d-ff4e-8f68-3ebbc162b4c5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"f65ba40e-adc9-4340-8c19-3a5692a89c19"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9917079685140343`*^9, 3.992086056725519*^9, + 3.992086267463503*^9, 3.99208657034342*^9, 3.9920866011623287`*^9, + 3.992086667319298*^9, {3.9920867757785244`*^9, 3.992086803166567*^9}, + 3.9920936898360558`*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"04d06914-3184-d14d-908b-593b185fe88a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellChangeTimes->{3.9918430951178913`*^9}, + CellLabel->"In[20]:=",ExpressionUUID->"da90429f-71c9-fb44-900f-54f9ecb15c0c"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.991707968535036*^9, 3.9920860567525387`*^9, + 3.992086267484522*^9, 3.992086570353693*^9, 3.992086601167244*^9, + 3.992086667338505*^9, {3.9920867757885113`*^9, 3.992086803188101*^9}, + 3.9920936898700943`*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"688cb4fe-767a-4342-8955-062fa63b67db"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"ba9e3c3f-c755-9949-abdf-5c8716be163d"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.9917079685410557`*^9, 3.9920860567575817`*^9, + 3.99208626748954*^9, 3.992086570375412*^9, 3.99208660118725*^9, + 3.9920866673587112`*^9, {3.9920867758099976`*^9, 3.992086803193638*^9}, + 3.992093689897066*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"03852b79-94dd-e64e-8ac2-57f88633e47d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"1df1d99a-14d1-664a-9952-fc0ffe17d214"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.991707968561041*^9, 3.992086056786278*^9, + 3.9920862675157433`*^9, 3.9920865703804207`*^9, 3.9920866011932716`*^9, + 3.9920866673642235`*^9, {3.992086775814476*^9, 3.992086803217211*^9}, + 3.9920936899223213`*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"697312b3-4fa6-1a4c-9b6a-c1f0c713fd0b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"934f8f71-5ebb-8a42-88af-b686f4e3e457"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.9917079685810375`*^9, 3.9920860567917824`*^9, + 3.992086267522707*^9, 3.9920865704054184`*^9, 3.992086601216263*^9, + 3.9920866673882236`*^9, {3.9920867758395653`*^9, 3.992086803222191*^9}, + 3.9920936899302807`*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"64b09692-4bfd-eb41-80fb-6ba22074c6d2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "20"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.9917930777342243`*^9, + 3.9920858934566765`*^9}, + CellLabel->"In[24]:=",ExpressionUUID->"6e10280b-ebb3-f646-bb1d-00a00fc0ed1c"], + +Cell[BoxData["20"], "Output", + CellChangeTimes->{ + 3.992086056815359*^9, 3.992086267560713*^9, 3.992086570414318*^9, + 3.992086601221264*^9, 3.992086667394369*^9, {3.9920867758671284`*^9, + 3.9920868032586155`*^9}, 3.992093689957302*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"d3e71f0b-2a72-2748-9419-6a731779dad4"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431115646553`*^9, 3.991843111569187*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"b89c6b57-db32-1742-8cc6-85b9a16d9dd6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, { + 3.991644237125025*^9, 3.991644237304865*^9}, {3.992085912752716*^9, + 3.9920859130864887`*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"f0485430-2764-5f40-9255-6cf8c0e180ff"], + +Cell[BoxData["74"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.991707968608036*^9, 3.9920860568239784`*^9, + 3.99208626756872*^9, 3.9920865704393387`*^9, 3.9920866012487774`*^9, + 3.992086667421444*^9, {3.9920867758944263`*^9, 3.992086803283657*^9}, + 3.9920936900013313`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"c77d4c5d-5d04-5a40-8aca-b57a05dc186b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"a5017589-44b9-f144-b351-bb9b15123fd4"], + +Cell[BoxData["182"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.9917079686284103`*^9, 3.9920860568515472`*^9, + 3.9920862675907288`*^9, 3.9920865704453335`*^9, 3.9920866012762756`*^9, + 3.992086667425951*^9, {3.992086775900427*^9, 3.9920868032897816`*^9}, + 3.9920936900104046`*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"3983ac4f-577f-2a44-bbd6-03ed5fa13dda"] +}, 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->"7ab41717-55b0-584a-809f-945d0d693a80"], + +Cell[BoxData["0.1143501326259947`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9917079686354065`*^9, 3.9920860568816433`*^9, + 3.9920862675967255`*^9, 3.9920865704673367`*^9, 3.9920866012962723`*^9, + 3.992086667430956*^9, {3.992086775921425*^9, 3.992086803313404*^9}, + 3.9920936900479927`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"0426af90-7075-7d44-a5ac-4aaae47b9883"] +}, 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->"fde3e1f9-4cc1-8049-ba69-a2294a6452b9"], + +Cell[BoxData[ + RowBox[{"-", "2.558692686623721`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.991707968658518*^9, 3.9920860569066925`*^9, + 3.992086267627468*^9, 3.9920865704723377`*^9, 3.9920866013012753`*^9, + 3.9920866674524727`*^9, {3.9920867759274426`*^9, 3.9920868033194046`*^9}, + 3.9920936900569973`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"50389186-e923-c84f-946b-b3b46aa53d98"] +}, 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.991972093618887*^9, 3.9919720982596817`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"622e209c-a48d-e442-88d4-31c1022a52c8"], + +Cell[BoxData["16.19476930294046`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.991707968678421*^9, 3.9920860569136944`*^9, + 3.992086267651493*^9, 3.9920865704962807`*^9, 3.992086601307276*^9, + 3.992086667458479*^9, {3.992086775951008*^9, 3.992086803343006*^9}, + 3.99209369008601*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"c7d50fa0-7655-3949-9754-84c4bf6981a5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"10ba819b-2025-9a47-9ea5-95a5611cda6a"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.9917079686854057`*^9, 3.992086056939745*^9, + 3.992086267670479*^9, 3.992086570523632*^9, 3.9920866013305016`*^9, + 3.9920866674794827`*^9, {3.9920867759565735`*^9, 3.9920868033491592`*^9}, + 3.9920936901175175`*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"8d07dc3f-1bef-9345-bbf5-a82b89663086"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "0.889"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.991793106556059*^9, 3.992085933324785*^9}, + CellLabel->"In[32]:=",ExpressionUUID->"8e0c7ad3-3b58-ea40-9983-94e32bbe2818"], + +Cell[BoxData["0.889`"], "Output", + CellChangeTimes->{ + 3.9920860569446983`*^9, 3.9920862676814785`*^9, 3.9920865705475826`*^9, + 3.9920866013365097`*^9, 3.9920866675006237`*^9, {3.9920867759825478`*^9, + 3.9920868033546314`*^9}, 3.9920936901461945`*^9}, + CellLabel->"Out[32]=",ExpressionUUID->"94e6e8fd-09ef-5b49-a93a-aa3f77d4d0de"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431193859673`*^9, 3.9918431193894367`*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"eb8d52d1-9df0-c54e-85b2-4b5b928d8058"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"n1", "=", "0.634"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917169698218613`*^9, 3.991717907758713*^9, + 3.991793107839529*^9, 3.9920859368147087`*^9}, + CellLabel->"In[34]:=",ExpressionUUID->"59432052-36a9-0e4a-b136-b5ef6e1cf7dc"], + +Cell[BoxData["0.634`"], "Output", + CellChangeTimes->{ + 3.9920860569747295`*^9, 3.992086267704502*^9, 3.99208657055459*^9, + 3.992086601359558*^9, 3.992086667509161*^9, {3.992086775989546*^9, + 3.9920868033846836`*^9}, 3.9920936901861935`*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"b13c1c89-2d69-5b47-9206-7ba98b7bcfd6"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843120757866*^9, 3.9918431207603054`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"7620191d-049f-d749-807c-ff7994d2bf64"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv1", "=", "1.069"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.991717916696951*^9, + 3.991793108990593*^9, 3.992085941493677*^9}, + CellLabel->"In[36]:=",ExpressionUUID->"2838c52a-e621-824e-8a28-6ddd911b4320"], + +Cell[BoxData["1.069`"], "Output", + CellChangeTimes->{ + 3.9920860570089607`*^9, 3.9920862677305984`*^9, 3.9920865705816116`*^9, + 3.9920866013675575`*^9, 3.992086667531679*^9, {3.992086776016308*^9, + 3.992086803410513*^9}, 3.9920936902242184`*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"2350ab51-f952-f54c-9d58-4dd3680622a7"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431220200443`*^9, 3.9918431220220585`*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"42e257a2-6901-9d4f-a831-1954f32e9186"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn1", "=", "0.744"}], "\n"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.991716995355715*^9, + 3.9917931103354855`*^9, 3.9920859453537045`*^9}, + CellLabel->"In[38]:=",ExpressionUUID->"26236e3a-fdac-eb4e-a22f-56d02cebcf41"], + +Cell[BoxData["0.744`"], "Output", + CellChangeTimes->{ + 3.9920860571022167`*^9, 3.9920862677565975`*^9, 3.9920865705886135`*^9, + 3.99208660139657*^9, 3.992086667539192*^9, {3.9920867760232925`*^9, + 3.992086803417515*^9}, 3.992093690257223*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"56eea41f-21fa-4540-b2c4-3417d606fc85"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431237966404`*^9, 3.9918431238010616`*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"dd3588b2-9ab9-a34a-afe1-cdd040915619"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.991"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991717006317978*^9, 3.9917931115739956`*^9, 3.9920859513160667`*^9}, + CellLabel->"In[40]:=",ExpressionUUID->"02fa1476-84ef-ac4d-a088-22546d6249ff"], + +Cell[BoxData["1.991`"], "Output", + CellChangeTimes->{ + 3.9920860571301746`*^9, 3.9920862677775993`*^9, 3.9920865706167297`*^9, + 3.992086601418375*^9, 3.99208666756719*^9, {3.9920867760472984`*^9, + 3.992086803446306*^9}, 3.9920936902952385`*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"cec57294-4cf1-7d4f-97d1-524ea696524d"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431249171696`*^9, 3.991843124921198*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"5841a374-f07b-3948-b1fb-c9f1f2e2508c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.921"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917170151233826`*^9, 3.9917931128910503`*^9, 3.9920859570410233`*^9}, + CellLabel->"In[42]:=",ExpressionUUID->"2fad32fe-2323-a247-8df8-53787ce8fe84"], + +Cell[BoxData["0.921`"], "Output", + CellChangeTimes->{ + 3.992086057153713*^9, 3.9920862677985992`*^9, 3.992086570642597*^9, + 3.9920866014433823`*^9, 3.9920866675731907`*^9, {3.9920867760553913`*^9, + 3.9920868034683304`*^9}, 3.9920936903381577`*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"d72a26d7-325b-f84f-b1d3-d09b92650c97"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843126102844*^9, 3.991843126104536*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"1b7179f5-adc5-4a42-8f8b-65c9268fc5eb"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "2.422"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, { + 3.9917170243815575`*^9, 3.991717046491377*^9}, 3.991793114539028*^9, + 3.9920859610670395`*^9}, + CellLabel->"In[44]:=",ExpressionUUID->"00d82cf5-fe39-a24b-bb7b-1d0e115472c2"], + +Cell[BoxData["2.422`"], "Output", + CellChangeTimes->{ + 3.9920860571617165`*^9, 3.99208626780674*^9, 3.992086570651617*^9, + 3.992086601467415*^9, 3.9920866675994263`*^9, {3.992086776087263*^9, + 3.9920868034795456`*^9}, 3.992093690374052*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"33479ab1-1831-d84f-b5a3-18e49010da28"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431274420605`*^9, 3.9918431274461517`*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"dfb148c5-f80e-3f46-b88b-570a723a95bc"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "1.520"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.991793116134735*^9, 3.9920859650537796`*^9}, + CellLabel->"In[46]:=",ExpressionUUID->"db5cb55e-0710-c147-81f4-1d5b600a6284"], + +Cell[BoxData["1.52`"], "Output", + CellChangeTimes->{ + 3.992086057192232*^9, 3.992086267836733*^9, 3.992086570676237*^9, + 3.9920866014884205`*^9, 3.992086667620432*^9, {3.992086776115265*^9, + 3.9920868035049725`*^9}, 3.9920936904114246`*^9}, + CellLabel->"Out[46]=",ExpressionUUID->"d095e0e9-867b-0545-8112-e3ecb007e777"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843129570627*^9, 3.991843129574024*^9}}, + CellLabel->"In[47]:=",ExpressionUUID->"bc012921-2f5f-014d-9378-a2fad1ed7321"], + +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[48]:=",ExpressionUUID->"c0e79410-fc92-1e45-af3b-c110ed8e3abb"], + +Cell[BoxData["31.169618376887957`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.991707979950527*^9, 3.99208605754793*^9, + 3.9920862678957367`*^9, 3.9920865707097645`*^9, 3.992086601521433*^9, + 3.9920866676705303`*^9, {3.9920867761731644`*^9, 3.9920868035374813`*^9}, + 3.992093690498558*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"bc32f52b-90bb-1748-9186-3f822f3369ba"] +}, 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[49]:=",ExpressionUUID->"5dd2eacd-c52a-fd43-adfd-9865b6491968"], + +Cell[BoxData["0.6731047036398055`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9917079908393784`*^9, 3.9920860575922737`*^9, + 3.9920862679383984`*^9, 3.992086570747278*^9, 3.9920866015565434`*^9, + 3.992086667708521*^9, {3.9920867762131767`*^9, 3.992086803570322*^9}, + 3.9920936906632156`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"d51decb7-b850-e94b-a633-eccd08eb4f21"] +}, 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[50]:=",ExpressionUUID->"4ed88227-1e87-3c47-8347-5fd8655168bd"], + +Cell[BoxData[ + RowBox[{"-", "372.70649967012986`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.991707995240637*^9, 3.9920860576318016`*^9, + 3.992086267978388*^9, 3.992086570780279*^9, 3.9920866015855484`*^9, + 3.9920866677442665`*^9, {3.9920867762461967`*^9, 3.992086803601267*^9}, + 3.9920936907187996`*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"5b064c3d-5a75-da42-820e-2d64aa12966c"] +}, 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[51]:=",ExpressionUUID->"69c9ca34-ec1f-344d-935e-d99be87c6a30"], + +Cell[BoxData[ + RowBox[{"-", "1044.7246524682707`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.991707999380541*^9, 3.9920860576748123`*^9, + 3.9920862680234985`*^9, 3.992086570817337*^9, 3.9920866016215477`*^9, + 3.9920866677821484`*^9, {3.992086776283224*^9, 3.992086803636261*^9}, + 3.992093690782261*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"f97a5b10-7037-e348-b9c2-17043c2def2a"] +}, 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[52]:=",ExpressionUUID->"8f86ffe3-4c00-0445-be01-9f9c3bf740a4"], + +Cell[BoxData[ + RowBox[{"-", "259.8695599568833`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.991708001954468*^9, 3.992086057718851*^9, + 3.992086268066494*^9, 3.992086570860342*^9, 3.9920866016586037`*^9, + 3.992086667819168*^9, {3.992086776323227*^9, 3.9920868036722755`*^9}, + 3.9920936908443317`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"4dd43dad-a0f7-0b42-95b8-e0219acd1335"] +}, 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[53]:=",ExpressionUUID->"5220f60f-abac-c041-83b6-4ff9b963c510"], + +Cell[BoxData[ + RowBox[{"-", "1495.7852478733544`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.9917080040838356`*^9, 3.992086057776539*^9, + 3.992086268121565*^9, 3.992086570903343*^9, 3.992086601703615*^9, + 3.992086667865225*^9, {3.992086776370306*^9, 3.9920868037133484`*^9}, + 3.992093690911442*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"e3523e85-ff1a-c64b-9621-8b0068e58521"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"50a59971-b8b3-904a-9a20-2d0c4a200469"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.991708067458639*^9, 3.9920860577975445`*^9, + 3.992086268141716*^9, 3.992086570923395*^9, 3.992086601725624*^9, + 3.992086667870228*^9, {3.992086776398308*^9, 3.9920868037333527`*^9}, + 3.9920936909440136`*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"1e6689cb-fde0-a14c-a86b-0589cf6d7588"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"99b95585-fb4d-4c4e-a0a1-a7cadcf4974c"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.9917080674805565`*^9, 3.9920860578025436`*^9, + 3.992086268149719*^9, 3.992086570929405*^9, 3.9920866017452965`*^9, + 3.992086667896475*^9, {3.992086776419306*^9, 3.992086803739353*^9}, + 3.9920936909700184`*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"91e27dbf-41c9-6945-8df6-00e08f25c9e6"] +}, 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[56]:=",ExpressionUUID->"15d5ff38-e0ad-194f-988e-5bba229258a0"], + +Cell[BoxData["2212.1207838096793`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9917080675026455`*^9, 3.9920860578265495`*^9, + 3.992086268167341*^9, 3.992086570954405*^9, 3.9920866017743587`*^9, + 3.9920866679175053`*^9, {3.992086776426306*^9, 3.9920868037613735`*^9}, + 3.9920936910010414`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"7673e0c6-02ca-0a45-8f3c-98de3d2dd0a4"] +}, 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[57]:=",ExpressionUUID->"f50ed71d-f500-b142-b06c-d815a3ba2272"], + +Cell[BoxData[ + RowBox[{"-", "3166.463119014952`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.991708067510544*^9, 3.99208605783457*^9, + 3.9920862681909695`*^9, 3.992086570961405*^9, 3.9920866017975693`*^9, + 3.9920866679425335`*^9, {3.9920867764324074`*^9, 3.9920868037683716`*^9}, + 3.9920936910090523`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"fe14dedb-d5f5-c440-957b-4366a156d6ce"] +}, 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[58]:=",ExpressionUUID->"1492aaaf-0df6-6745-bf76-b9050e5655e5"], + +Cell[BoxData["4780.565019838899`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9917080675337753`*^9, 3.9920860578555565`*^9, + 3.9920862681974792`*^9, 3.992086570983412*^9, 3.9920866018035927`*^9, + 3.992086667948538*^9, {3.992086776457493*^9, 3.9920868037919464`*^9}, + 3.9920936910360928`*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"f5b936d8-78bf-f441-b6a3-7f6897cde95c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"226872db-ad1d-a848-a1b9-669b9495ae40"], + +Cell[BoxData["0.8492253700915684`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.991708067540825*^9, 3.992086057861557*^9, + 3.9920862682165356`*^9, 3.992086570993412*^9, 3.9920866018254967`*^9, + 3.992086667970564*^9, {3.992086776462492*^9, 3.992086803812454*^9}, + 3.992093691064106*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"e617dd14-34ec-b141-9877-14ead2feb413"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"3724e999-16ab-c946-a14b-a24ab296bb76"], + +Cell[BoxData[ + RowBox[{"-", "1.1896646126189885`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.991708067561775*^9, 3.9920860578695545`*^9, + 3.9920862682215385`*^9, 3.9920865710174274`*^9, 3.9920866018499928`*^9, + 3.9920866679765587`*^9, {3.9920867764902725`*^9, 3.9920868038194695`*^9}, + 3.9920936910721054`*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"db643f4e-6585-f34a-834d-f4884e38f627"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"7429d55c-fb1b-6c4a-a07c-c882ac4f265b"], + +Cell[BoxData[ + RowBox[{"-", "0.07157823242670158`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.9917080675837746`*^9, 3.992086057898611*^9, + 3.992086268229542*^9, 3.9920865710414886`*^9, 3.992086601870537*^9, + 3.99208666799856*^9, {3.992086776511881*^9, 3.9920868038434715`*^9}, + 3.992093691095112*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"7afa0c29-f1d4-4848-96d5-afa83fd7e517"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"53189e64-dda1-f24f-bb2a-e33cc334a386"], + +Cell[BoxData["0.36531988493615475`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.9917080675917854`*^9, 3.9920860579196167`*^9, + 3.9920862682466774`*^9, 3.992086571067438*^9, 3.9920866018954678`*^9, + 3.992086668004545*^9, {3.992086776540409*^9, 3.9920868038534584`*^9}, + 3.992093691103117*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"3a64b02c-f608-7f4f-8c13-0477ab6534f6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"2dcc97af-d52c-a140-9d24-7e2362d14431"], + +Cell[BoxData["1.3932112707868565`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.991708067612774*^9, 3.992086057924618*^9, + 3.9920862682647114`*^9, 3.9920865710734444`*^9, 3.99208660190147*^9, + 3.992086668009548*^9, {3.9920867765645065`*^9, 3.9920868038804703`*^9}, + 3.992093691128193*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"1082e557-f74c-7943-b608-194fcfb39dc3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"047bb9cd-1320-254a-81b6-dbbd5bc6927e"], + +Cell[BoxData["3.0097040215395996`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.991708067619776*^9, 3.9920860579496193`*^9, + 3.9920862682697086`*^9, 3.9920865711034584`*^9, 3.992086601925476*^9, + 3.9920866680342903`*^9, {3.992086776570503*^9, 3.99208680388603*^9}, + 3.9920936911371803`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"5b163a5c-0abd-874f-9fcd-d6e6189f2fee"] +}, 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[65]:=",ExpressionUUID->"5f91a530-4680-9547-ba69-eda72b5cd542"], + +Cell[BoxData[ + RowBox[{"-", "5.270467564360312`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.991708067640772*^9, 3.9920860579616146`*^9, + 3.9920862682944393`*^9, 3.992086571123514*^9, 3.992086601930479*^9, + 3.9920866680632725`*^9, {3.99208677659153*^9, 3.9920868039130783`*^9}, + 3.992093691163191*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"514d73e5-dfac-614b-bc7f-1fb2465b1b8b"] +}, 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[66]:=",ExpressionUUID->"79bd53a9-815b-6b44-a1c8-9e184a9e2d7f"], + +Cell[BoxData[ + RowBox[{"-", "51.15351790227487`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.991708067662775*^9, 3.9920860579829197`*^9, + 3.992086268301441*^9, 3.992086571129526*^9, 3.992086601955652*^9, + 3.992086668069273*^9, {3.9920867766018753`*^9, 3.9920868039341793`*^9}, + 3.99209369118721*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"9fe787f2-9fa5-c149-b9cd-67edb07274a7"] +}, 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[67]:=",ExpressionUUID->"4d60ea42-135b-0945-9bc8-ff7080f68cbd"], + +Cell[BoxData["2206.850316245319`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.991708067669775*^9, 3.992086057988922*^9, + 3.9920862683069553`*^9, 3.992086571153517*^9, 3.9920866019616756`*^9, + 3.9920866680988617`*^9, {3.992086776625183*^9, 3.992086803955179*^9}, + 3.9920936911962776`*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"21fa67d5-9135-be44-9236-479701c3eb82"] +}, 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[68]:=",ExpressionUUID->"86e3af8c-1e9e-fe48-be10-5811d3ed2f2c"], + +Cell[BoxData[ + RowBox[{"-", "3166.463119014952`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.991708067690773*^9, 3.9920860580136375`*^9, + 3.9920862683254623`*^9, 3.9920865711785164`*^9, 3.9920866019914055`*^9, + 3.992086668104372*^9, {3.99208677663167*^9, 3.9920868039611816`*^9}, + 3.99209369122736*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"3bbd01b2-c00d-e74c-ae88-fc6e61a80a2e"] +}, 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[69]:=",ExpressionUUID->"5e5f8981-ef44-174f-9ab1-8170c09512bd"], + +Cell[BoxData["4729.4115019366245`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.991708067697775*^9, 3.9920860580186367`*^9, + 3.992086268332466*^9, 3.9920865711994247`*^9, 3.9920866020163975`*^9, + 3.992086668129669*^9, {3.9920867766542397`*^9, 3.992086803983183*^9}, + 3.992093691254925*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"150268e6-aef4-de48-90ec-24cd40bccdfa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"92a8600d-0ef6-b048-81ca-4cef74274975"], + +Cell[BoxData["199.42817651512246`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.9917080677197742`*^9, 3.9920860580256405`*^9, + 3.992086268355482*^9, 3.9920865712064476`*^9, 3.992086602022396*^9, + 3.992086668135229*^9, {3.992086776660242*^9, 3.992086803989208*^9}, + 3.992093691297888*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"ac97ed9a-a816-db4d-a59a-9dbb5fc182c3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"7e943660-5e34-9e41-8f70-f1ec78ba3955"], + +Cell[BoxData["6725.14571990162`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.991708067726776*^9, 3.9920860580466385`*^9, + 3.9920862683614655`*^9, 3.992086571211939*^9, 3.9920866020454216`*^9, + 3.99208666816308*^9, {3.9920867766842403`*^9, 3.9920868040112057`*^9}, + 3.99209369130591*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"8174809b-c48f-7843-9e4e-0df6caf60a77"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.524334841228278"}]], "Input", + CellChangeTimes->{3.991708306458519*^9, 3.991793259431082*^9, + 3.992085999252714*^9}, + CellLabel->"In[72]:=",ExpressionUUID->"3ae683e0-3adf-504a-90dd-615dd0a61fd8"], + +Cell[BoxData["0.524334841228278`"], "Output", + CellChangeTimes->{ + 3.9920860581609154`*^9, 3.9920862683704853`*^9, 3.992086571237465*^9, + 3.9920866020509415`*^9, 3.992086668182081*^9, {3.9920867766902733`*^9, + 3.992086804033209*^9}, 3.9920936913309917`*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"575bccc9-5040-2240-88c9-e6b124d5f0e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.902604856378696"}]], "Input", + CellChangeTimes->{{3.991708314438408*^9, 3.9917083191838818`*^9}, + 3.9917932613989296`*^9, 3.9920860033668804`*^9}, + CellLabel->"In[73]:=",ExpressionUUID->"4fc0783d-23dd-314f-a326-64b7548d9620"], + +Cell[BoxData["0.902604856378696`"], "Output", + CellChangeTimes->{ + 3.9920860581871033`*^9, 3.9920862683883247`*^9, 3.9920865712434673`*^9, + 3.9920866020744514`*^9, 3.9920866682030888`*^9, {3.992086776697239*^9, + 3.9920868040392265`*^9}, 3.9920936913399887`*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"0fa3666a-cfa7-3047-86b7-82a3bd007080"] +}, Open ]], + +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[74]:=",ExpressionUUID->"dbbed097-5dfd-0340-bc2d-0bce9785fa70"], + +Cell[BoxData["9.103990235902606`*^-54"], "Output", + CellChangeTimes->{ + 3.99132042156752*^9, 3.991708376806082*^9, 3.9920860581936607`*^9, + 3.992086268394327*^9, 3.992086571266678*^9, 3.9920866020974503`*^9, + 3.9920866682090855`*^9, {3.9920867767192497`*^9, 3.992086804065281*^9}, + 3.9920936913660793`*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"60caf887-115a-ee4d-8104-7740331b3a98"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + 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"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellLabel->"In[75]:=",ExpressionUUID->"b04428b7-7b5e-9b48-87ae-3e90ee72682c"], + +Cell[BoxData["4.6607566161458405`*^-55"], "Output", + CellChangeTimes->{ + 3.99132042159643*^9, 3.9917083768301735`*^9, 3.9920860582176247`*^9, + 3.9920862684183464`*^9, 3.992086571271679*^9, 3.992086602104452*^9, + 3.992086668236105*^9, {3.9920867767252483`*^9, 3.9920868040722847`*^9}, + 3.9920936913971157`*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"c0a33838-a30d-2849-947e-04e7918c1035"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + 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"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellLabel->"In[76]:=",ExpressionUUID->"46474706-75cc-0e49-8a10-fd571fd984c5"], + +Cell[BoxData["7.914241537250374`*^-54"], "Output", + CellChangeTimes->{ + 3.9913204216085243`*^9, 3.99170837683708*^9, 3.9920860582236614`*^9, + 3.9920862684417877`*^9, 3.992086571293192*^9, 3.9920866021284943`*^9, + 3.9920866682604446`*^9, {3.992086776746256*^9, 3.9920868040953465`*^9}, + 3.9920936914328957`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"bb64f621-728f-fb46-9a5d-15177462bdbb"] +}, 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[77]:=",ExpressionUUID->"5ab6ac7c-83ae-6940-b5e3-8f463231aa41"], + +Cell[BoxData["6.387731496076312`"], "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.9920936914599*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"61a5d6a8-42ea-0044-8638-fd9ef4da45f3"] +}, 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[78]:=",ExpressionUUID->"ad27a0b7-bc3a-1b4e-aa65-7473f98c4a9a"], + +Cell[BoxData["63.32645699437282`"], "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.992093691490885*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"f2c71c2c-b3a9-7048-a6ad-cc13c98c9926"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel->"In[79]:=",ExpressionUUID->"ed86276b-f471-6f4e-8c1f-259c300ae2e3"], + +Cell[BoxData["5.587530835375371`"], "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.992093691516409*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"349a9538-20d5-9343-bf63-4b00833da39a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw2"]]}]], "Input", + CellChangeTimes->{{3.992086303949501*^9, 3.992086304210249*^9}}, + CellLabel->"In[80]:=",ExpressionUUID->"b778afd8-0c57-064d-a11e-d7318164b910"], + +Cell[BoxData["10.305243407554503`"], "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.9920936915519524`*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"14ac3d20-89fe-e749-945d-6e1b76de23f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw2", "*", "hw"}], "1"]}]], "Input", + CellChangeTimes->{3.992086167409481*^9}, + CellLabel->"In[81]:=",ExpressionUUID->"6e57b6df-ce1a-784f-8068-542326a39aac"], + +Cell[BoxData["652.5945534650442`"], "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.992093691583002*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"b2994db0-f60e-1e4b-90b8-da26ca3956ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"eb50975c-b4ec-eb46-b7be-45bdd474b7dd"], + +Cell[BoxData["35.69164670242484`"], "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.9920936916115227`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"bceecd21-34c7-e240-b93f-e3fd1376a2ef"] +}, 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[83]:=",ExpressionUUID->"18e7b19c-7ef6-ac40-b366-c555cd77dfe4"], + +Cell[BoxData["0.02651804012336609`"], "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.9920936916430473`*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"fd2104fc-9239-9c43-a8fb-1a68b0221900"] +}, 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[84]:=",ExpressionUUID->"362c980c-4dd4-a246-98d7-f0637b84f583"], + +Cell[BoxData["5.442196629098006`"], "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.9920936917300854`*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"d25f9328-a161-e649-ab59-e0352fbf631b"] +}, 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[85]:=",ExpressionUUID->"4b46d0c0-ae96-6346-8059-3d7eedda7d5a"], + +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[86]:=",ExpressionUUID->"8968449c-8b0e-4c43-b89b-9661a6b4b7b4"], + +Cell[BoxData["61.44238060379939`"], "Output", + CellChangeTimes->{3.991320421637537*^9, 3.991708376860197*^9, + 3.992087085599785*^9, 3.992093691768099*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"1f56ad2a-ebe2-ed43-aed8-707b53ebdbab"] +}, 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[87]:=",ExpressionUUID->"4070e408-f242-2749-a9a3-2554c0750a47"], + +Cell[BoxData["63.32645699437282`"], "Output", + CellChangeTimes->{3.9913204216685333`*^9, 3.9917083768681793`*^9, + 3.9920870857871895`*^9, 3.992093691804102*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"3fbd8164-f6b3-a245-8a5a-68a826eee5fe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[88]:=",ExpressionUUID->"ea836fa5-3993-364c-859c-f1e1426f90c2"], + +Cell[BoxData["1.8016036043009018`"], "Output", + CellChangeTimes->{3.991320421698473*^9, 3.9917083768895397`*^9, + 3.9920870857935734`*^9, 3.9920936918291264`*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"99325b7e-8d08-524c-96ba-11147cf7b380"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[89]:=",ExpressionUUID->"c1eb9e5a-df42-e143-87eb-a7c14cd6489c"], + +Cell[BoxData["10.305243407554503`"], "Output", + CellChangeTimes->{3.991320421726494*^9, 3.9917083769120636`*^9, + 3.992087085800623*^9, 3.9920936918401337`*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"c6bf2375-16bc-2144-af0c-73a6055b684c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[90]:=",ExpressionUUID->"fc11a4dc-800e-1040-b016-a172a6dca5d1"], + +Cell[BoxData["652.5945534650442`"], "Output", + CellChangeTimes->{3.9913204217554817`*^9, 3.9917083769190636`*^9, + 3.992087085812317*^9, 3.9920936918663006`*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"087bd074-167b-ce41-b0e3-e0884fa5caaf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[91]:=",ExpressionUUID->"f158f63a-620a-8b45-93fe-de96c59131c3"], + +Cell[BoxData["110.6948143526328`"], "Output", + CellChangeTimes->{3.9913204217855225`*^9, 3.9917083769420624`*^9, + 3.992087085819336*^9, 3.992093691905016*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"26f14ab4-2ecc-b34c-a504-fde1491ef3a6"] +}, 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[92]:=",ExpressionUUID->"290356b5-801a-1742-8269-ff0ab0e7a72f"], + +Cell[BoxData["0.00887206389508509`"], "Output", + CellChangeTimes->{3.9913204218154297`*^9, 3.991708376966078*^9, + 3.9920870858313293`*^9, 3.992093691933058*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"d00c7d73-f327-f24e-a529-7601ff4ddf5e"] +}, 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[93]:=",ExpressionUUID->"637830a9-4b17-0d47-8e69-3e6d73475803"], + +Cell[BoxData["9.408764757991872`"], "Output", + CellChangeTimes->{3.991320422776104*^9, 3.9917083773418655`*^9, + 3.9920870859015446`*^9, 3.99209369201775*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"df5e744b-4c6e-314b-952f-51a04746b3ea"] +}, 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[94]:=",ExpressionUUID->"245e55e0-c025-d748-aa5b-d3f5a26f897a"], + +Cell[BoxData["0.001443586515236076`"], "Output", + CellChangeTimes->{3.9913204229248886`*^9, 3.9917083773678513`*^9, + 3.992087085922167*^9, 3.9920936920442657`*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"727f20d0-cbcf-b64b-88ad-713d668bd8e1"] +}, 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[95]:=",ExpressionUUID->"87d3f053-a210-4945-9497-51f3b35fe58a"], + +Cell[BoxData["23.325100969113365`"], "Output", + CellChangeTimes->{3.9913204230053368`*^9, 3.9917083774558525`*^9, + 3.9920870859902134`*^9, 3.992093692134289*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"5def92cd-3187-424d-a872-4204ea48a66d"] +}, 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[96]:=",ExpressionUUID->"407f3978-d419-be4a-9b05-517d07c044f1"], + +Cell[BoxData["0.9443844844348241`"], "Output", + CellChangeTimes->{3.9913204230393543`*^9, 3.9917083774798565`*^9, + 3.992087086010071*^9, 3.9920936921772957`*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"9d56b156-3341-2b47-9af0-b3a81d37da45"] +}, 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[97]:=",ExpressionUUID->"98c81204-47e0-fd47-9c8b-67e8ab12c7de"], + +Cell[BoxData["0.05561551556517575`"], "Output", + CellChangeTimes->{3.9913204230728855`*^9, 3.9917083775008526`*^9, + 3.9920870860331287`*^9, 3.9920936922093105`*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"c36d45c7-4dbd-3d4d-9c97-8f343d81e6b6"] +}, 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[98]:=",ExpressionUUID->"f8815c5a-68ac-6143-b710-ab82cbe388c2"], + +Cell[BoxData["0.05252242999359545`"], "Output", + CellChangeTimes->{3.9913204231038837`*^9, 3.9917083775258636`*^9, + 3.992087086044157*^9, 3.992093692238348*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"f5483177-7bc5-1e46-ab07-910bca3edd92"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellChangeTimes->{{3.991972340255615*^9, 3.9919723414591656`*^9}, { + 3.99197238607337*^9, 3.991972394033249*^9}}, + CellLabel->"In[99]:=",ExpressionUUID->"c3247e8e-1dc6-bd47-b085-4abc2b2cf1d2"], + +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.991795120812044*^9}, + CellLabel-> + "In[100]:=",ExpressionUUID->"9522bfa2-96cd-564e-b4a1-30bc1fcf4125"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.189714888666355`*^-227\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 100, 174, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204231548862`*^9, 3.9917083775522175`*^9, + 3.99208708609013*^9, 3.9920936922852116`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"d6cdbe65-8d25-6548-b0fd-25c330196b30"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.045860565064055`*^-233\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 100, 175, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204231548862`*^9, 3.9917083775522175`*^9, + 3.99208708609013*^9, 3.9920936923549347`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"973a7dc9-2a55-974e-a8ef-ad96123bc066"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.003955405032896`*^-239\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 100, 176, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204231548862`*^9, 3.9917083775522175`*^9, + 3.99208708609013*^9, 3.9920936923639355`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"4692edbb-9e20-544a-82a3-c807336945df"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 100, 177, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204231548862`*^9, 3.9917083775522175`*^9, + 3.99208708609013*^9, 3.992093692371935*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"8790a6fd-6ed5-884e-8a56-d5e095abda7c"], + +Cell[BoxData["9.408764757991879`"], "Output", + CellChangeTimes->{3.9913204260017204`*^9, 3.9917083806494102`*^9, + 3.992087088375992*^9, 3.9920936949029503`*^9}, + CellLabel-> + "Out[100]=",ExpressionUUID->"2a87223c-bd46-8e46-8e15-1778bf52e6fb"] +}, 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.991795125308359*^9}, + CellLabel-> + "In[101]:=",ExpressionUUID->"61b1cdf2-7f57-2647-9828-9108456d2e21"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.189714888666355`*^-227\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 101, 178, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204262354183`*^9, 3.991708380747463*^9, + 3.9920870884131947`*^9, 3.9920936949509335`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"a1db36eb-e945-424c-88aa-e17dee223e87"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.045860565064055`*^-233\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 101, 179, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204262354183`*^9, 3.991708380747463*^9, + 3.9920870884131947`*^9, 3.9920936949589787`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"971475ec-bf28-134c-94b3-2bc79bca6a5d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.003955405032896`*^-239\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 101, 180, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204262354183`*^9, 3.991708380747463*^9, + 3.9920870884131947`*^9, 3.992093694973984*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"96728789-d869-1f42-8203-cf326fe65248"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 101, 181, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204262354183`*^9, 3.991708380747463*^9, + 3.9920870884131947`*^9, 3.9920936949809895`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"33526f03-2ae8-b646-9bfc-6e2c19be22ce"], + +Cell[BoxData["23.325100969113375`"], "Output", + CellChangeTimes->{3.991320428882721*^9, 3.991708383647377*^9, + 3.9920870907111187`*^9, 3.992093697455309*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"fc902aac-b437-9346-9d50-5ec1334da407"] +}, 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.9917951318268585`*^9}, + CellLabel-> + "In[102]:=",ExpressionUUID->"0ab9b507-fb4e-e24c-9d9d-abe222e3c5e2"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk4VdsbB3AklSmSOckcN3LPKWO1XvPQMSRkjuOcbUgypRMiiQahKNQl +DZRcKoRCmuQnuUhKKVNtcs3z2bkNv+WP/ezn86y9v+tda79rKzEPObH5eHh4 +vuBr+R7epqNR09G2a+dqQevTRiTaNVm4nWleirL/TDq27IECvYuq5vXol+CY +whlsR9Y/AsL0l6jzionmWexyTsKLleatKHUspSAV+0yTzNOEkjfovVDd8TTs +Rx3hV3/Q3qFHon2tGdijPS1xR+s+IGWh6aRMbLkhFc9Fs8/ozIaZokvYu6fi +DCNb+5Erc5B2Gbvhx6gQp2QQ2fI808rHfp8oHVsd+hVZbTyfdh17UsB8dJ42 +hIJH7D1vYQucC3Onc4fRmoyfWX9jbxTPbw6vG0EZlnn65dj28ou3Js3G0b32 +kiePsYlrylLaqyeRkaJ8YSN2gppD8oHWKfS/2Li519gfpLv+jCqZQUYpEm8/ +YbM8goOyzs2iW29t/Ens6Tye6xWhc4h9MMJnAnu1srbYDG0BrZ376xKPMYku +sl5YiUkuIp1r+W8EsTfddk/Yyl1EazZkcSSxDbakTB6so1CgrueqLdiBev2t +o2Y/UHJqyGYf7HnOYX5B9Z/I3FG2/gD28TqhHZqrfyGdise1R7FzweDvgNbf +yOfkFJWNzSpqNo8o4YVr/6w6+h67pClrIFGeD5pfJbK+YU9/84m7cI4PVHdR +tRR2nNZC5f3QFZDO6C3esAPXe09JZYq2EmJl8k4HYfd0jDf8urkSwjtEWo9h +b5qt8RCVFACjkcSYTOzSbfaZ2lwBqI6JknmM3fgohjekbjVYT15xk95JooUX +b/tHzIRhx/jD0X7sdQxhsdgGYahW5t38E1u3yxxEDEUg5rniV7ldJAomq679 +qSMKRk+GOvdhh/G16u4UFoPu2Prcbuwh5bszyYviEBMy3DCJ8P4QLWva6evg +l6dljwSQiO/vYSWZ8HUQ5H4p0hB7E13RqWRsHUiFr9qUgu1hdr6ibUACXH8f +9FUzIVG7f0Sk9GtJON4/fDzWlER9t9NTfVdLQYTa+rhi7PGxkpt3LKTAgLRf +eIctGPX1rfFTKejSXfCjmZHI/KTzNt8qabi+2kR1Bru2UG+huEAWAv9utk+x +IFHh0FK0UZQCdIZ7M9bakMja5VRfZJkC8L/YsMIae7xRwrJsWAHyHQQ2J2Jv +K9wiucl9I5ia+9XPYzcyfSpX7lKE2YojawdtSTQ7NXBkJGkTeBfu9GtjkEji +oPmDSjtlKPvwqvE/RxINFwoGOgYrg/vHTAvTPSR6+LlDfiJFGegl3dvOYHsx +vJPUnypDlPiAj4wTru+PaKfLNBXIMNoxaLwXzz96ezpeWhU0rCqu57iQyDlA +SNt2UA1UxZfUb3iQCEW70Pb9VIOxr0e65rG1kgv0WbLqcL8hedzKk0Q8N+mm +8XvUAYGP1xR2WZ/nvopn6vBxp5exmTc+n66liXI3NCAvKOD7r/24PnO796NM +TeB/5Z/WxCbRzb05n7jxmmBAOGepEyRKZw4O8P+lCVm6pvynsFnHD49tfKsJ +jykVDZsAEonX5/PsNdOCsKGA8M5A3D/0Sa06lT+ghWMk//0AieSVMxJSyS0Q +HqvUnx1Bovqz85rf+bRhb4ZXjkgk3o859y5CSRt6a9a2ncS+2qiqaeqjDR8S +5qqjokikHFDbSXVrw/RNyyMe0Xi9pUNqxGsdOHG6p3pnDIkU5DcSm9x1Yf5K +i5v/CRJtKYoS/g/RwJCoCt9ykURMVtKCtj0NbgiWDz3EzlXJ7PP1ooGppOIr +i0skWnHj3v0mDg2yBgP6fLPxebs66pxZTgPRd2Zmebn4f5rrm6+pQoeq4Ykl +jXz8fVMZOm4C2yB0aoNN1i0SXY9Qdaxq3Q7dekq3amtJ1BGN9E8WGcLhotTK +2HESKfm8s/cO2Qk9tLrJZLUhxP5dfVfhKMCH43KK2swhJD32cJU00xR++dRE +GZYOoSj6js+ZWuYw/65Gz/r7EGJO/GiWGLWAMxFXPIIYw6jMNHJVQbsV9CdS +Djb3hlHhfPCz0os20FRu3NQr8Q1RJjL/NCbsBquWg32aZ7+hXp4VM4N+dlBF +7Z4eWDWCQjccOp+o4gAJv1LSPySPoLtBzU8vJTuCczTr92aZf1HMnCz3j6A9 +sLvJm7F451+0YGvp+r/9TiBu1ayp6jSKDD0vmAzt2QvGBk9QMe8Y6pTND26k +O0POjqsZNXfHkNytpPrizS7Qc1zGNC5qHD0c0GLYi7iCXEnoxXS9CbSxazog +esIV8qbeT8b+nED0SxdKbw7sg5PPGxSq+iZRPv+cTuYLN/AZF7VwfzSFqk22 +9iQ/cgcDwc9Wx/ZNo1z9s+I/SjzgjaBu1PquadT+qSiFfs4TmuKs73N2z6Aq +uzzVsONesM5dbO2X9hk0c3AvTyjLG76o5owX282iBUvNwEkzH1BUjFzt1TKL +iic+UpF6+6HhinJ+iNMccrte5O8t7As1e6ZUDN/MocqK3ftXnPIF2fTL4eHu +88hQvvP7me++IBhmYEu8n0cqAwE9b4L8QCmfNH9ot4BIoQMOeV/94NzJjGOM +lgXUkW7vb+XCBP79s85NBovoIqdA6HAHE0rPPrd/VryI6ht+f/e38YfLJs6x +h0S4aK0XnKLX+sMFRbbkRz8uMvSdLE7exoLjz9QsG8q56Nbl6Uh7PRZwcofU +Oyq4aP3b2V3SBizI/1xuN1jJRZMW3K5iYxb08SSE8FZz8f+Fh7fVlAUXGT4j +BrVcJMoVd1+3Bz9/j1508jkXkWnb1xQcZIFCkeuVtE4uSq+LC3p4iwWtgh6b +3Ke56CAtx5BTzIJZ1l0nvRkuYtwpX2NQwgL1E18a181ykWDO8J2aMhZU1moG +vprjouQIx9HqByyooi0VanO5KE5T9UDVcxY469u3vfnJRcE5r0Mq+ligozGQ +d0qQQjaiwzsiBligH9MexhCi0OZkHhHaFxY8OUDGiwlTaDhie1n5EAs8RDut +s0Uo5GdfMHF/nAWvLddk5IpRyG1lZOi9JRawP3Q+OSJFIatIubBSKTbwJp/I +LFCi0POCFNtMGTbIKZ4ecVem0I7WWVWOHBsuv73uIKFCIV211x/NNrJhtN3e +MUmVQrLdsWaf1Niwv81ayk2DQmNGvVKC29lQVs1I7dpCoQy+a48D9rLB0WFf +j7Q+hQS3CufaubBh1+oZqhL7pCcngr4Pzz+3pOxgQCHOA0eN3x5s6H5Tm3vC +ENdP8F7IZrJh8xGOQJ8xhegtTNbLcDZMuqg3E0Ch7gtqQirn2aCxW+xTgzWF +7iKRwJELbMguW99It8H5E/ONZVls2C4q3XUbm2bTGG+QwwatV3cC02wplM7j +P2t3lQ1OXxX87BkUsjx07SOnlA2uZbmc2w4UUlA4rbfrLhva+I1fijpSaL7l +UNaK+2zIrzfRP4x9Qx3ZpVeyYax8QyraQ6Gfvb1Pb9ay4QcRPfXKiUIPGPLF +bc1sSPF7nV3lQqHUJb6VF1vYIHnwm85aVwoxi0f93FvZYKzLMxaALcZfK0+2 +syG2p6tNah+FQurcMr6/Z8OT5g7TYDcKqWhlR6sOsWFL4mjLNw8KLXUfe/vv +MBtCZRIv0z0p1JHM1r03gtcX1X82Hjt+cNuo4TgbcozL3ol7Uagn9623wxwb +PPNK1+h4UyhzlbhFDC8Bd/0GPu/YT6H62V7PqBUEzEurLSZif+stiQhdSUBo +V+zSS+wdD8yvMdcQ0Nu7ttHWF/ebL+c/W3EC3jBq3Kz8cP0Mi3UWEgRkyR1q +TsI21l+niSQJuLHxhvIT7PMipa50WQLeM7dl05h4vLa/XF6JgKMt2znC/hQi +ikqbJVUI8OKbMQTs8+eP9q9VI4B3sHAoAnuYkBDh1yRg1KluqWt5XMIqcFyX +ABd5KblzLArV/pJIGKYR4MxcpVWDPfTvwKWBbbhTpJJUBrGNnsa86DIg4FLt +SOefbAqRIXc3PgYC4v01lJuwRd1it9eYEqDuonpsBNvQzJpRbk6AO7nn2RoC +94vsl6NF1gTwC8istMF+yH/vfIEtAWlL+fwB2F+nYm9fZhDQ47h1IgnboEny +XZojzg9xOlqLzSz/MnbKiYAnKl0burDT8u7xnXAm4OYmkzvj2F8ibHSj3Qio +d3kaJxdAIREfKaswDwJ8xV6+2IptYPPVO9iLgNOSV+bMsNMUj6X6+OK81HyR +IOyHgrY33JgE2Io94x7F/rIg9ciJRcBhgYKWM8t5g1/bGQQBYS9pKbnLea33 +hy0DCahcPKJ1C5tZc+wnBBPQfSm4pmI5/4bteuMQAh5PC2g3LOenSf+xPZSA +c7dtUpuX8zmkydYwAq6Wbu18gy3MKnfTjCDgjHk1bw+2vkP8IZUoAnQEPskO +Lucb7U5RiCbgWc9fct+wz6nJ5Etz8Ps/F1eMY1eLDVWKxxCQ8GP03RT24H/l +LUJxBBA10ednl/O/xQ+ujMf77XuZPo+t17mb+p1AQGac05Nl/x/MJbI2 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4VdsbB3AklSmSOckcN3LPKWO1XvPQMSRkjuOcbUgypRMiiQahKNQl +DZRcKoRCmuQnuUhKKVNtcs3z2bkNv+WP/ezn86y9v+tda79rKzEPObH5eHh4 +vuBr+R7epqNR09G2a+dqQevTRiTaNVm4nWleirL/TDq27IECvYuq5vXol+CY +whlsR9Y/AsL0l6jzionmWexyTsKLleatKHUspSAV+0yTzNOEkjfovVDd8TTs +Rx3hV3/Q3qFHon2tGdijPS1xR+s+IGWh6aRMbLkhFc9Fs8/ozIaZokvYu6fi +DCNb+5Erc5B2Gbvhx6gQp2QQ2fI808rHfp8oHVsd+hVZbTyfdh17UsB8dJ42 +hIJH7D1vYQucC3Onc4fRmoyfWX9jbxTPbw6vG0EZlnn65dj28ou3Js3G0b32 +kiePsYlrylLaqyeRkaJ8YSN2gppD8oHWKfS/2Li519gfpLv+jCqZQUYpEm8/ +YbM8goOyzs2iW29t/Ens6Tye6xWhc4h9MMJnAnu1srbYDG0BrZ376xKPMYku +sl5YiUkuIp1r+W8EsTfddk/Yyl1EazZkcSSxDbakTB6so1CgrueqLdiBev2t +o2Y/UHJqyGYf7HnOYX5B9Z/I3FG2/gD28TqhHZqrfyGdise1R7FzweDvgNbf +yOfkFJWNzSpqNo8o4YVr/6w6+h67pClrIFGeD5pfJbK+YU9/84m7cI4PVHdR +tRR2nNZC5f3QFZDO6C3esAPXe09JZYq2EmJl8k4HYfd0jDf8urkSwjtEWo9h +b5qt8RCVFACjkcSYTOzSbfaZ2lwBqI6JknmM3fgohjekbjVYT15xk95JooUX +b/tHzIRhx/jD0X7sdQxhsdgGYahW5t38E1u3yxxEDEUg5rniV7ldJAomq679 +qSMKRk+GOvdhh/G16u4UFoPu2Prcbuwh5bszyYviEBMy3DCJ8P4QLWva6evg +l6dljwSQiO/vYSWZ8HUQ5H4p0hB7E13RqWRsHUiFr9qUgu1hdr6ibUACXH8f +9FUzIVG7f0Sk9GtJON4/fDzWlER9t9NTfVdLQYTa+rhi7PGxkpt3LKTAgLRf +eIctGPX1rfFTKejSXfCjmZHI/KTzNt8qabi+2kR1Bru2UG+huEAWAv9utk+x +IFHh0FK0UZQCdIZ7M9bakMja5VRfZJkC8L/YsMIae7xRwrJsWAHyHQQ2J2Jv +K9wiucl9I5ia+9XPYzcyfSpX7lKE2YojawdtSTQ7NXBkJGkTeBfu9GtjkEji +oPmDSjtlKPvwqvE/RxINFwoGOgYrg/vHTAvTPSR6+LlDfiJFGegl3dvOYHsx +vJPUnypDlPiAj4wTru+PaKfLNBXIMNoxaLwXzz96ezpeWhU0rCqu57iQyDlA +SNt2UA1UxZfUb3iQCEW70Pb9VIOxr0e65rG1kgv0WbLqcL8hedzKk0Q8N+mm +8XvUAYGP1xR2WZ/nvopn6vBxp5exmTc+n66liXI3NCAvKOD7r/24PnO796NM +TeB/5Z/WxCbRzb05n7jxmmBAOGepEyRKZw4O8P+lCVm6pvynsFnHD49tfKsJ +jykVDZsAEonX5/PsNdOCsKGA8M5A3D/0Sa06lT+ghWMk//0AieSVMxJSyS0Q +HqvUnx1Bovqz85rf+bRhb4ZXjkgk3o859y5CSRt6a9a2ncS+2qiqaeqjDR8S +5qqjokikHFDbSXVrw/RNyyMe0Xi9pUNqxGsdOHG6p3pnDIkU5DcSm9x1Yf5K +i5v/CRJtKYoS/g/RwJCoCt9ykURMVtKCtj0NbgiWDz3EzlXJ7PP1ooGppOIr +i0skWnHj3v0mDg2yBgP6fLPxebs66pxZTgPRd2Zmebn4f5rrm6+pQoeq4Ykl +jXz8fVMZOm4C2yB0aoNN1i0SXY9Qdaxq3Q7dekq3amtJ1BGN9E8WGcLhotTK +2HESKfm8s/cO2Qk9tLrJZLUhxP5dfVfhKMCH43KK2swhJD32cJU00xR++dRE +GZYOoSj6js+ZWuYw/65Gz/r7EGJO/GiWGLWAMxFXPIIYw6jMNHJVQbsV9CdS +Djb3hlHhfPCz0os20FRu3NQr8Q1RJjL/NCbsBquWg32aZ7+hXp4VM4N+dlBF +7Z4eWDWCQjccOp+o4gAJv1LSPySPoLtBzU8vJTuCczTr92aZf1HMnCz3j6A9 +sLvJm7F451+0YGvp+r/9TiBu1ayp6jSKDD0vmAzt2QvGBk9QMe8Y6pTND26k +O0POjqsZNXfHkNytpPrizS7Qc1zGNC5qHD0c0GLYi7iCXEnoxXS9CbSxazog +esIV8qbeT8b+nED0SxdKbw7sg5PPGxSq+iZRPv+cTuYLN/AZF7VwfzSFqk22 +9iQ/cgcDwc9Wx/ZNo1z9s+I/SjzgjaBu1PquadT+qSiFfs4TmuKs73N2z6Aq +uzzVsONesM5dbO2X9hk0c3AvTyjLG76o5owX282iBUvNwEkzH1BUjFzt1TKL +iic+UpF6+6HhinJ+iNMccrte5O8t7As1e6ZUDN/MocqK3ftXnPIF2fTL4eHu +88hQvvP7me++IBhmYEu8n0cqAwE9b4L8QCmfNH9ot4BIoQMOeV/94NzJjGOM +lgXUkW7vb+XCBP79s85NBovoIqdA6HAHE0rPPrd/VryI6ht+f/e38YfLJs6x +h0S4aK0XnKLX+sMFRbbkRz8uMvSdLE7exoLjz9QsG8q56Nbl6Uh7PRZwcofU +Oyq4aP3b2V3SBizI/1xuN1jJRZMW3K5iYxb08SSE8FZz8f+Fh7fVlAUXGT4j +BrVcJMoVd1+3Bz9/j1508jkXkWnb1xQcZIFCkeuVtE4uSq+LC3p4iwWtgh6b +3Ke56CAtx5BTzIJZ1l0nvRkuYtwpX2NQwgL1E18a181ykWDO8J2aMhZU1moG +vprjouQIx9HqByyooi0VanO5KE5T9UDVcxY469u3vfnJRcE5r0Mq+ligozGQ +d0qQQjaiwzsiBligH9MexhCi0OZkHhHaFxY8OUDGiwlTaDhie1n5EAs8RDut +s0Uo5GdfMHF/nAWvLddk5IpRyG1lZOi9JRawP3Q+OSJFIatIubBSKTbwJp/I +LFCi0POCFNtMGTbIKZ4ecVem0I7WWVWOHBsuv73uIKFCIV211x/NNrJhtN3e +MUmVQrLdsWaf1Niwv81ayk2DQmNGvVKC29lQVs1I7dpCoQy+a48D9rLB0WFf +j7Q+hQS3CufaubBh1+oZqhL7pCcngr4Pzz+3pOxgQCHOA0eN3x5s6H5Tm3vC +ENdP8F7IZrJh8xGOQJ8xhegtTNbLcDZMuqg3E0Ch7gtqQirn2aCxW+xTgzWF +7iKRwJELbMguW99It8H5E/ONZVls2C4q3XUbm2bTGG+QwwatV3cC02wplM7j +P2t3lQ1OXxX87BkUsjx07SOnlA2uZbmc2w4UUlA4rbfrLhva+I1fijpSaL7l +UNaK+2zIrzfRP4x9Qx3ZpVeyYax8QyraQ6Gfvb1Pb9ay4QcRPfXKiUIPGPLF +bc1sSPF7nV3lQqHUJb6VF1vYIHnwm85aVwoxi0f93FvZYKzLMxaALcZfK0+2 +syG2p6tNah+FQurcMr6/Z8OT5g7TYDcKqWhlR6sOsWFL4mjLNw8KLXUfe/vv +MBtCZRIv0z0p1JHM1r03gtcX1X82Hjt+cNuo4TgbcozL3ol7Uagn9623wxwb +PPNK1+h4UyhzlbhFDC8Bd/0GPu/YT6H62V7PqBUEzEurLSZif+stiQhdSUBo +V+zSS+wdD8yvMdcQ0Nu7ttHWF/ebL+c/W3EC3jBq3Kz8cP0Mi3UWEgRkyR1q +TsI21l+niSQJuLHxhvIT7PMipa50WQLeM7dl05h4vLa/XF6JgKMt2znC/hQi +ikqbJVUI8OKbMQTs8+eP9q9VI4B3sHAoAnuYkBDh1yRg1KluqWt5XMIqcFyX +ABd5KblzLArV/pJIGKYR4MxcpVWDPfTvwKWBbbhTpJJUBrGNnsa86DIg4FLt +SOefbAqRIXc3PgYC4v01lJuwRd1it9eYEqDuonpsBNvQzJpRbk6AO7nn2RoC +94vsl6NF1gTwC8istMF+yH/vfIEtAWlL+fwB2F+nYm9fZhDQ47h1IgnboEny +XZojzg9xOlqLzSz/MnbKiYAnKl0burDT8u7xnXAm4OYmkzvj2F8ibHSj3Qio +d3kaJxdAIREfKaswDwJ8xV6+2IptYPPVO9iLgNOSV+bMsNMUj6X6+OK81HyR +IOyHgrY33JgE2Io94x7F/rIg9ciJRcBhgYKWM8t5g1/bGQQBYS9pKbnLea33 +hy0DCahcPKJ1C5tZc+wnBBPQfSm4pmI5/4bteuMQAh5PC2g3LOenSf+xPZSA +c7dtUpuX8zmkydYwAq6Wbu18gy3MKnfTjCDgjHk1bw+2vkP8IZUoAnQEPskO +Lucb7U5RiCbgWc9fct+wz6nJ5Etz8Ps/F1eMY1eLDVWKxxCQ8GP03RT24H/l +LUJxBBA10ednl/O/xQ+ujMf77XuZPo+t17mb+p1AQGac05Nl/x/MJbI2 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6321450621619601, + 1.5253798936389882`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6321450621619615}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.6321450621619601, + 1.5253798936389882`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6321450621619615}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4VdsbB3AklSmSOckcN3LPKWO1XvPQMSRkjuOcbUgypRMiiQahKNQl +DZRcKoRCmuQnuUhKKVNtcs3z2bkNv+WP/ezn86y9v+tda79rKzEPObH5eHh4 +vuBr+R7epqNR09G2a+dqQevTRiTaNVm4nWleirL/TDq27IECvYuq5vXol+CY +whlsR9Y/AsL0l6jzionmWexyTsKLleatKHUspSAV+0yTzNOEkjfovVDd8TTs +Rx3hV3/Q3qFHon2tGdijPS1xR+s+IGWh6aRMbLkhFc9Fs8/ozIaZokvYu6fi +DCNb+5Erc5B2Gbvhx6gQp2QQ2fI808rHfp8oHVsd+hVZbTyfdh17UsB8dJ42 +hIJH7D1vYQucC3Onc4fRmoyfWX9jbxTPbw6vG0EZlnn65dj28ou3Js3G0b32 +kiePsYlrylLaqyeRkaJ8YSN2gppD8oHWKfS/2Li519gfpLv+jCqZQUYpEm8/ +YbM8goOyzs2iW29t/Ens6Tye6xWhc4h9MMJnAnu1srbYDG0BrZ376xKPMYku +sl5YiUkuIp1r+W8EsTfddk/Yyl1EazZkcSSxDbakTB6so1CgrueqLdiBev2t +o2Y/UHJqyGYf7HnOYX5B9Z/I3FG2/gD28TqhHZqrfyGdise1R7FzweDvgNbf +yOfkFJWNzSpqNo8o4YVr/6w6+h67pClrIFGeD5pfJbK+YU9/84m7cI4PVHdR +tRR2nNZC5f3QFZDO6C3esAPXe09JZYq2EmJl8k4HYfd0jDf8urkSwjtEWo9h +b5qt8RCVFACjkcSYTOzSbfaZ2lwBqI6JknmM3fgohjekbjVYT15xk95JooUX +b/tHzIRhx/jD0X7sdQxhsdgGYahW5t38E1u3yxxEDEUg5rniV7ldJAomq679 +qSMKRk+GOvdhh/G16u4UFoPu2Prcbuwh5bszyYviEBMy3DCJ8P4QLWva6evg +l6dljwSQiO/vYSWZ8HUQ5H4p0hB7E13RqWRsHUiFr9qUgu1hdr6ibUACXH8f +9FUzIVG7f0Sk9GtJON4/fDzWlER9t9NTfVdLQYTa+rhi7PGxkpt3LKTAgLRf +eIctGPX1rfFTKejSXfCjmZHI/KTzNt8qabi+2kR1Bru2UG+huEAWAv9utk+x +IFHh0FK0UZQCdIZ7M9bakMja5VRfZJkC8L/YsMIae7xRwrJsWAHyHQQ2J2Jv +K9wiucl9I5ia+9XPYzcyfSpX7lKE2YojawdtSTQ7NXBkJGkTeBfu9GtjkEji +oPmDSjtlKPvwqvE/RxINFwoGOgYrg/vHTAvTPSR6+LlDfiJFGegl3dvOYHsx +vJPUnypDlPiAj4wTru+PaKfLNBXIMNoxaLwXzz96ezpeWhU0rCqu57iQyDlA +SNt2UA1UxZfUb3iQCEW70Pb9VIOxr0e65rG1kgv0WbLqcL8hedzKk0Q8N+mm +8XvUAYGP1xR2WZ/nvopn6vBxp5exmTc+n66liXI3NCAvKOD7r/24PnO796NM +TeB/5Z/WxCbRzb05n7jxmmBAOGepEyRKZw4O8P+lCVm6pvynsFnHD49tfKsJ +jykVDZsAEonX5/PsNdOCsKGA8M5A3D/0Sa06lT+ghWMk//0AieSVMxJSyS0Q +HqvUnx1Bovqz85rf+bRhb4ZXjkgk3o859y5CSRt6a9a2ncS+2qiqaeqjDR8S +5qqjokikHFDbSXVrw/RNyyMe0Xi9pUNqxGsdOHG6p3pnDIkU5DcSm9x1Yf5K +i5v/CRJtKYoS/g/RwJCoCt9ykURMVtKCtj0NbgiWDz3EzlXJ7PP1ooGppOIr +i0skWnHj3v0mDg2yBgP6fLPxebs66pxZTgPRd2Zmebn4f5rrm6+pQoeq4Ykl +jXz8fVMZOm4C2yB0aoNN1i0SXY9Qdaxq3Q7dekq3amtJ1BGN9E8WGcLhotTK +2HESKfm8s/cO2Qk9tLrJZLUhxP5dfVfhKMCH43KK2swhJD32cJU00xR++dRE +GZYOoSj6js+ZWuYw/65Gz/r7EGJO/GiWGLWAMxFXPIIYw6jMNHJVQbsV9CdS +Djb3hlHhfPCz0os20FRu3NQr8Q1RJjL/NCbsBquWg32aZ7+hXp4VM4N+dlBF +7Z4eWDWCQjccOp+o4gAJv1LSPySPoLtBzU8vJTuCczTr92aZf1HMnCz3j6A9 +sLvJm7F451+0YGvp+r/9TiBu1ayp6jSKDD0vmAzt2QvGBk9QMe8Y6pTND26k +O0POjqsZNXfHkNytpPrizS7Qc1zGNC5qHD0c0GLYi7iCXEnoxXS9CbSxazog +esIV8qbeT8b+nED0SxdKbw7sg5PPGxSq+iZRPv+cTuYLN/AZF7VwfzSFqk22 +9iQ/cgcDwc9Wx/ZNo1z9s+I/SjzgjaBu1PquadT+qSiFfs4TmuKs73N2z6Aq +uzzVsONesM5dbO2X9hk0c3AvTyjLG76o5owX282iBUvNwEkzH1BUjFzt1TKL +iic+UpF6+6HhinJ+iNMccrte5O8t7As1e6ZUDN/MocqK3ftXnPIF2fTL4eHu +88hQvvP7me++IBhmYEu8n0cqAwE9b4L8QCmfNH9ot4BIoQMOeV/94NzJjGOM +lgXUkW7vb+XCBP79s85NBovoIqdA6HAHE0rPPrd/VryI6ht+f/e38YfLJs6x +h0S4aK0XnKLX+sMFRbbkRz8uMvSdLE7exoLjz9QsG8q56Nbl6Uh7PRZwcofU +Oyq4aP3b2V3SBizI/1xuN1jJRZMW3K5iYxb08SSE8FZz8f+Fh7fVlAUXGT4j +BrVcJMoVd1+3Bz9/j1508jkXkWnb1xQcZIFCkeuVtE4uSq+LC3p4iwWtgh6b +3Ke56CAtx5BTzIJZ1l0nvRkuYtwpX2NQwgL1E18a181ykWDO8J2aMhZU1moG +vprjouQIx9HqByyooi0VanO5KE5T9UDVcxY469u3vfnJRcE5r0Mq+ligozGQ +d0qQQjaiwzsiBligH9MexhCi0OZkHhHaFxY8OUDGiwlTaDhie1n5EAs8RDut +s0Uo5GdfMHF/nAWvLddk5IpRyG1lZOi9JRawP3Q+OSJFIatIubBSKTbwJp/I +LFCi0POCFNtMGTbIKZ4ecVem0I7WWVWOHBsuv73uIKFCIV211x/NNrJhtN3e +MUmVQrLdsWaf1Niwv81ayk2DQmNGvVKC29lQVs1I7dpCoQy+a48D9rLB0WFf +j7Q+hQS3CufaubBh1+oZqhL7pCcngr4Pzz+3pOxgQCHOA0eN3x5s6H5Tm3vC +ENdP8F7IZrJh8xGOQJ8xhegtTNbLcDZMuqg3E0Ch7gtqQirn2aCxW+xTgzWF +7iKRwJELbMguW99It8H5E/ONZVls2C4q3XUbm2bTGG+QwwatV3cC02wplM7j +P2t3lQ1OXxX87BkUsjx07SOnlA2uZbmc2w4UUlA4rbfrLhva+I1fijpSaL7l +UNaK+2zIrzfRP4x9Qx3ZpVeyYax8QyraQ6Gfvb1Pb9ay4QcRPfXKiUIPGPLF +bc1sSPF7nV3lQqHUJb6VF1vYIHnwm85aVwoxi0f93FvZYKzLMxaALcZfK0+2 +syG2p6tNah+FQurcMr6/Z8OT5g7TYDcKqWhlR6sOsWFL4mjLNw8KLXUfe/vv +MBtCZRIv0z0p1JHM1r03gtcX1X82Hjt+cNuo4TgbcozL3ol7Uagn9623wxwb +PPNK1+h4UyhzlbhFDC8Bd/0GPu/YT6H62V7PqBUEzEurLSZif+stiQhdSUBo +V+zSS+wdD8yvMdcQ0Nu7ttHWF/ebL+c/W3EC3jBq3Kz8cP0Mi3UWEgRkyR1q +TsI21l+niSQJuLHxhvIT7PMipa50WQLeM7dl05h4vLa/XF6JgKMt2znC/hQi +ikqbJVUI8OKbMQTs8+eP9q9VI4B3sHAoAnuYkBDh1yRg1KluqWt5XMIqcFyX +ABd5KblzLArV/pJIGKYR4MxcpVWDPfTvwKWBbbhTpJJUBrGNnsa86DIg4FLt +SOefbAqRIXc3PgYC4v01lJuwRd1it9eYEqDuonpsBNvQzJpRbk6AO7nn2RoC +94vsl6NF1gTwC8istMF+yH/vfIEtAWlL+fwB2F+nYm9fZhDQ47h1IgnboEny +XZojzg9xOlqLzSz/MnbKiYAnKl0burDT8u7xnXAm4OYmkzvj2F8ibHSj3Qio +d3kaJxdAIREfKaswDwJ8xV6+2IptYPPVO9iLgNOSV+bMsNMUj6X6+OK81HyR +IOyHgrY33JgE2Io94x7F/rIg9ciJRcBhgYKWM8t5g1/bGQQBYS9pKbnLea33 +hy0DCahcPKJ1C5tZc+wnBBPQfSm4pmI5/4bteuMQAh5PC2g3LOenSf+xPZSA +c7dtUpuX8zmkydYwAq6Wbu18gy3MKnfTjCDgjHk1bw+2vkP8IZUoAnQEPskO +Lucb7U5RiCbgWc9fct+wz6nJ5Etz8Ps/F1eMY1eLDVWKxxCQ8GP03RT24H/l +LUJxBBA10ednl/O/xQ+ujMf77XuZPo+t17mb+p1AQGac05Nl/x/MJbI2 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6321450621619601, 1.5253798936389882`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6321450621619615}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.6321450621619615}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "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.6321450621619601, 1.5253798936389882`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913206956809444`*^9, 3.9920872836559963`*^9, + 3.992093906456703*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"adb49142-9e13-5c44-86ed-a0f8a1f5fddf"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.9917947276636543`*^9, 3.991795135217745*^9}, + CellLabel-> + "In[103]:=",ExpressionUUID->"859f11c8-3e2a-dc42-8ed3-71283b73bfa7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.348243828587806`*^-281\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 182, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9, 3.991714940248539*^9, + 3.992087284153816*^9, 3.9920939066555214`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"9613d1d6-ec2d-8b4e-84ce-d80d2f4bf81c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7463321566811068`*^-293\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 183, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9, 3.991714940248539*^9, + 3.992087284153816*^9, 3.9920939066654987`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"18226e25-871e-8344-b233-03d870d34080"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.262298306910113`*^-306\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 184, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9, 3.991714940248539*^9, + 3.992087284153816*^9, 3.9920939066715794`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"d8671db1-887f-a448-8553-bb2f17f70e0c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 103, 185, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9, 3.991714940248539*^9, + 3.992087284153816*^9, 3.9920939066795807`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"d36497ab-6403-6d4b-b7c8-db9111eff71a"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk0VW0bBnAlESmS+UykDCl0UjTdd5IUqURFMmWKkgxlSAOOI5mKzGWO +CDlnq7dPyVQ0oFDJUCENisRrKvE97197/dbaa++9nv1c1/0oOZ40d54rICAg +OEdA4L/r9XOO83Wc0raUtfS8WacIW+paWaYHWQFgMbSR/U8EDWafVIayWJfg +Y6wT3T9CE65XRTOFWCnwnZMcti9iExzf7HdignkLILtLQCXCFFr/uCUMM+/D +42mRo7lcGxDu7FUdZD6Fxq1311dzjkPWs4xT35nv4N7teodt585CSemlzuOr +B6DmfmLtkZhocIVXKT+8RyEvKdU36sU18OxX76NKpsBxwtag4GI6iCqFqX7Q +E0DL1oZu1dosiJF4rpFlL4is1Me7S/pywbHT4pHgi/k4peis/lamAE49DnM8 +qSqKum/sdmUKFkGZ18L9cjvFUbdl+0AItxiygjwGtA9KYKRtg2KNwB0IyZje +9+8PSSyatexpEikDgdaP+CBQCuVjysY5P8og7FtlVuBFKbQ4Uf6ONlwGCwSu +z9WPkMI/UXmuZaNlsGSVVV35NSksEw0Obf1dBsu5r3aU3pFCo2Ph5X9EeLBr +Y41Z9mcp5Kdcae9U4UF8To5NhPlSDL6r0/POmgcrfF38LTSk8X/N3Na6RzxY +teHD/gxtaezeOfL6Sg0P1goc0hpYJ43pOvcbbB7zwCBq5+fz26RRS592/scz +HtjmaloU2UijYdDlVaOveZDYNqI1N1YaCwq+hl3/zgMh3fNfSkel0Sa3pdlZ +mg8L/0zU/J6SRm3hqsfDsnxYUu11Y7uADB7MfVgYoMAH1m5Hy86FMpif376V +w+TDJufttfNXyGDZn5W5oep88L0mlnHkkAzGHvBYT9/Mh09jSQfEHsrg0lcB +6bWOfMjeyvbprpXBnV8lT2925oNddFNs6TMZHO637aVc+dChIvR0f7sMNlps +9kk/zodX+703po/K4PsfWmfMTvOhssyUtUpDFpfb3Fqy5RIfkk7MGTBLksW5 +PxOFTYv5YHE/fb7SDVkcEbXd719Kvl9Ib9loriwWuk6ws8v4EJPuaZPEk0Vb +JSFqqJwPYc87mz40ymLJemeeeyUfvNTv8r3myeHp3tiqoSY+7Op3D756Sg4n +rQ/OqA7xwSh42W1DfzksfJpjP/OTDwbSXR3j5+QwYFDGu+UXHzZs3613OEoO +I2MW5PiM8UEjT2t0Wb4c2ok5bk2d5oOY879u5V3Eglbx/qIUvPgUbNG+Qx7H +juVXBqpQ0HB2XWikmTxGNeQdFF5BQd3Sn2WbLOWxvONI3hVVCh4Y2i/OcpRH +1Y6ndhkaFNzONXh2LFgefQb2HMjQpiDaSRj/8OTR5Z1LgM4mCsw+xa1kMBQQ +DWdVM/eR96381GajooAJe48LN5lTYOKz/lyahgKuems1NLWfAuO571/KrVfA +t54RrSYHKDBgrTwttVcBe0IF57RbU6Br87hKJEQByyt+yF49SgGVI+e+I0IB +l7/OjMh0omDNdw+p8BgFtH+N84qdKVgduMRFME0B1/ao06tcKVBLthOb4Sug +1IrxziYPCmhtU5aj/Qooc51ZHeNDQari7lmdHwrYRls8HexLgfzRzAKvEQUc +YmRv9/CjQGbE6M/gjAKOtBQK4RkKJCQSMr/KKuLrgyxsCaRA0HT19+6disg6 +YfUm5SIFIfEXE2h7FfEfppa8ewgFAp1tmw8fUEQ370JPvVAKpo8FxbU7KuIO +Trp5cxgF49wG3dYgRRSiNwh95lIwUOt4oaFYESN6JyzuRVPAvNLuHkMpYtUx +qVdnYiiwsDWztKhQRF3nfvF1sRRUTuprfGxQRGpQ9nlRHAVXV0m2TfQp4gyr +4sjZeAo2Jj1SVVWg4ekjh3R5yRR4OekuGWTRMFRd96tZCgU3dYqmeao0/Gya +5fCNWOJF4qstujS89rfwlmwaBZ8EPIMO7KXh1zjtFKvrFES505o54TS0oGeY ++mRRUL3+6n2TaBrqKqcl/iAenyeSK5lAw6sdtsVHsymwzxj1v55Fw/Pb2w1M +cihY2/ZMufwBDQPN++QE8ig4loXiQbU0/N899zZX4huedyfwGQ1nv03aNRKL +LMh+8eIted6il1+v3KSge3PA6U8jNOzNW9AoUEDBErGf9oVTNORsdV56kNi4 +3cnES4COAXF0rSJinvde1rQ4HaV+WH40vUXBF3giWrOUjmaFpWdSiWnim8a4 +inS8cU7+Uz9xeL7qMyl1Os5ktm0+XUhBhe916p0WHdPd5mpWEA9vlcrIWEfH +ZfpTw3+JrbtmfFYa0nEtNSMQXET2n+Qb+jY7OqZw87Y73Kbgc/TnkGvOdFSr +bb52hfi66MSXLx50lIgRF64iXjhPjhflT8e369eZyRaT/F1Qk/1wjo7dgx0q +SBz0V++sDoeOhj3zGa7EA+NWRm+u0JE+4x5QSpzt416klkxH6wV2XS+JrYYD +JYJu0HGHtPnRYWKJE5f9GnPpuLA8e9GiEpL3b2kdzCKyPg9K36sTn3e5Dd5l +dOyD9tZtxOv6HuTW3aPjvISgocPEQ3aNC2Qr6diye2q1N3FeV7fnsTo6ehqU +XQsntrEaaq14Rsf+cMFlKcRL38zoLXpFx1Vee9/eIn5uvviG/Vs6Dlyd5P1D +HNLMFOR30/Fgrc3dx8QbTLXdhD7RkSH9vucl8a8GbDw4QMctnd26HcQF2/et +KRymY1f+Q14PsX2NQ9L0OB1VTD8c+kIsB97TZn/J+rfnqn0nbq4IccgSZGBv +qpfyIHG4XvyT0QUMvKmUZ/Sft5TnrDSSYGCAXt61/+4f16HikmUYWPqtdfFX +4uKSurEBGgOfByeU9xI7rXxtvXkZA08E7eJ2EtMK+h/FqjNQJd+K00LcpjKu +0qvFQFPBFXfqiS9nzY9cu46BX5qlRCqIDRiyP8M3MTA8kht9m/h3qqrFOwMG +Kgz1YzoxT1bv/sqdDGwfiVeOJD6WYMw4t4eBYk3ja04Tt0cf+6psw8A28VM9 +xsRxooG7/RwZaC9ucUGLeAc3klfvxkAB+dA9S4nvXig6e9yPgUtV7C60k/9/ +4m9FT2UQA99kveu9R6wS+MJIMoSBUmobz1wjjvcZlLgbw8Dl7/euNyHeNfzX +T+QaAzd5tB1dRjz3xKJO6zQGilR0106R/erlopU3m8/AvAFlVhaxWh+Impcw +UGuuNt2b+IPd3pO5FAOTTJz3bCU2szqlv7OarL/7oEUHycf8NxdvpNUzcK6Z +lHou8UPzq4JDjQw8dE547XFiTVN+49UOBro5Cg6Pk3yJwphD1yiD9NWI2ATJ +p/9WNZG7vxnobzv2+jbx522HS2LnMLG5m3XZnrjGuPq3wWIm2hvI3K8m+Q80 +j46/pcHEw55X13jkU/DVoko/VIeJJSmDThLEBw6OfrDRY6KCSF04n/TLGhsr +TQkjJmp+k0wbJf3z3Xn549MOTIyVjpY+nEvy7nbIY68bEz8lKrb+JH3W4H5Z +UuMkE5lxl8NCiHNP/jrSfZaJHdnGj7NI/9kEPBzflszEybK2xvpMMg+jLNUk +m5m4dmBJAC+d7P/YiKaB10xcsG/y3grigisVvnVdTNyQVDuaTPo3LFGp+swA +E91eHnA6k0oB4+W45s+5LGRMRunTSJ+/eVfz2JLBQpwjsm4+6Xvxw13JNUos +vMG/FWF9lQLDrjEPreUsLPYJ7rl9hey392pLFmiykJ8jW2BC5kVMX4ztA30W +duwqTjlF5s2OQesJZUsWBpgOxduReXRjaWjr+UMs9H9buyM5nIJ/NxaVdh1m +4Re5rfRmDgWZkX9cEx1ZOMM5p7WezLPfquntC7xYeDdaZc6vC+S84Nh9fziS +hTWXOzvEyLyUaLc7W1nFQt/AJxd73SlwmeUeUqxjoZBy8uWPx8h5Y8Wdtf71 +LIzQeP+0y43kwU9gUKeJhYujtT43u5D/uyTrSF4nC20jXpRkOlLgu7t3S9Q4 +C7fcrBUetCJ5qXGaY62phKEnWpV0d/zX1x0KwVrELdfEJIwoEK7eszZzjRLq +i/ie/mZI+u7RBtfPekpIXYp6lWRAQUKFRKP3diVcvcy7qHczBXuoB8mXbZXQ +42Kuvc5aCp7kLdV+GKeEX71Njt9lUlAeUWfLGlPC+as/7Dk7woeCXc/luJNK +WG0vptQ5zIfUhS0tg3+U8FZSykE9cn67EPfBqGKuMu7ZmjYx+J0Ppsm/Vx+Q +UMb3FX4yRv186M3Xnr28UhkHb4q7F77lw6L69IwJB2U0n5zdZlzBBxchv49N +TcooKKQzT+AcH456B5UvTF2G/K57XWHTPNByXdlk6qCCX8y5ooHHedC8RFPM +T385Wja4+Jc9KoOKkpA0TcEV6Mf19nKTLIOgORp7X3SvQC0LTqLQzjsg2hVo +7EmpYlb6Jafi8RLov6mUkHFWDY1zE7TjPIohQU1+3n1LdRRUWBNpfq8I4lJd +6h1YGuiwetvGLlohWCccaVr4RQMrS19XDkcWwKRh3lRG5UoMM+dafey4CX39 +Bv41XE3cL3DrSKRZHmRv1lFsdFiFEJthtKkoB4o5fpKuq1ZjKTQfqdbKBq7l +URPBsdXo5PJStLshE3S7sm5xG7XQr37WcCz/BiSrpxU3mmhjramig75kOpyv +ik42ua+NwrLNt44fS4HdipZ5z1R0cMOs6+/t44mw1bP+sOQlHbzzNbvr+6sE +yKA5qrwY00H7IcN78flXQaU2P9Hs8BoUdOvlpNTHQdyqGo2WyjW4zDzphpNq +DLiMznv1VION7v8uN1atjgTHshHWpVg2Su3+Y/bwHReOh+yf3nWFjXURScaH +Grngt596uzCejRdffV87WcWFiDG/mLhENm43edFjVMCFEv2pP0nX2ZhkWOXF +PMOFqerZNzeL2Fg0fTHsgTQX4loWRtfVs/Gb9j8+GQfCITXnhFv4UzYe8lBv +fbMrHHJ8m7YZP2fjpRXD86QgHO7KxP1+3sRG2VCLzhTVcOiylnJrfc3GxZe2 +rOuZ5IBqn/y23j42Ps44dd8ynQPaVCAjt5+NUUdCq97FcWADp3PK+QsbVV2k +LzlyOGCqev3OtwE2Vu47Yx3iyQFvDxbj1y82pm4y/vgbOXB208Up3igbJ4t8 +X+fqcoAj3tvmO8ZGxcQrofs1OJBcmnN5cpKNrQO75z+S4kD2hXmu//vNxj1j +de1BIhwo2udscHaajacqOu02/w0DSvkJfcsMG4+qBqcKjoRB5eiKqdlZNuo2 +xHObPofB/wGw6YVA + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0VW0bBnAlESmS+UykDCl0UjTdd5IUqURFMmWKkgxlSAOOI5mKzGWO +CDlnq7dPyVQ0oFDJUCENisRrKvE97197/dbaa++9nv1c1/0oOZ40d54rICAg +OEdA4L/r9XOO83Wc0raUtfS8WacIW+paWaYHWQFgMbSR/U8EDWafVIayWJfg +Y6wT3T9CE65XRTOFWCnwnZMcti9iExzf7HdignkLILtLQCXCFFr/uCUMM+/D +42mRo7lcGxDu7FUdZD6Fxq1311dzjkPWs4xT35nv4N7teodt585CSemlzuOr +B6DmfmLtkZhocIVXKT+8RyEvKdU36sU18OxX76NKpsBxwtag4GI6iCqFqX7Q +E0DL1oZu1dosiJF4rpFlL4is1Me7S/pywbHT4pHgi/k4peis/lamAE49DnM8 +qSqKum/sdmUKFkGZ18L9cjvFUbdl+0AItxiygjwGtA9KYKRtg2KNwB0IyZje +9+8PSSyatexpEikDgdaP+CBQCuVjysY5P8og7FtlVuBFKbQ4Uf6ONlwGCwSu +z9WPkMI/UXmuZaNlsGSVVV35NSksEw0Obf1dBsu5r3aU3pFCo2Ph5X9EeLBr +Y41Z9mcp5Kdcae9U4UF8To5NhPlSDL6r0/POmgcrfF38LTSk8X/N3Na6RzxY +teHD/gxtaezeOfL6Sg0P1goc0hpYJ43pOvcbbB7zwCBq5+fz26RRS592/scz +HtjmaloU2UijYdDlVaOveZDYNqI1N1YaCwq+hl3/zgMh3fNfSkel0Sa3pdlZ +mg8L/0zU/J6SRm3hqsfDsnxYUu11Y7uADB7MfVgYoMAH1m5Hy86FMpif376V +w+TDJufttfNXyGDZn5W5oep88L0mlnHkkAzGHvBYT9/Mh09jSQfEHsrg0lcB +6bWOfMjeyvbprpXBnV8lT2925oNddFNs6TMZHO637aVc+dChIvR0f7sMNlps +9kk/zodX+703po/K4PsfWmfMTvOhssyUtUpDFpfb3Fqy5RIfkk7MGTBLksW5 +PxOFTYv5YHE/fb7SDVkcEbXd719Kvl9Ib9loriwWuk6ws8v4EJPuaZPEk0Vb +JSFqqJwPYc87mz40ymLJemeeeyUfvNTv8r3myeHp3tiqoSY+7Op3D756Sg4n +rQ/OqA7xwSh42W1DfzksfJpjP/OTDwbSXR3j5+QwYFDGu+UXHzZs3613OEoO +I2MW5PiM8UEjT2t0Wb4c2ok5bk2d5oOY879u5V3Eglbx/qIUvPgUbNG+Qx7H +juVXBqpQ0HB2XWikmTxGNeQdFF5BQd3Sn2WbLOWxvONI3hVVCh4Y2i/OcpRH +1Y6ndhkaFNzONXh2LFgefQb2HMjQpiDaSRj/8OTR5Z1LgM4mCsw+xa1kMBQQ +DWdVM/eR96381GajooAJe48LN5lTYOKz/lyahgKuems1NLWfAuO571/KrVfA +t54RrSYHKDBgrTwttVcBe0IF57RbU6Br87hKJEQByyt+yF49SgGVI+e+I0IB +l7/OjMh0omDNdw+p8BgFtH+N84qdKVgduMRFME0B1/ao06tcKVBLthOb4Sug +1IrxziYPCmhtU5aj/Qooc51ZHeNDQari7lmdHwrYRls8HexLgfzRzAKvEQUc +YmRv9/CjQGbE6M/gjAKOtBQK4RkKJCQSMr/KKuLrgyxsCaRA0HT19+6disg6 +YfUm5SIFIfEXE2h7FfEfppa8ewgFAp1tmw8fUEQ370JPvVAKpo8FxbU7KuIO +Trp5cxgF49wG3dYgRRSiNwh95lIwUOt4oaFYESN6JyzuRVPAvNLuHkMpYtUx +qVdnYiiwsDWztKhQRF3nfvF1sRRUTuprfGxQRGpQ9nlRHAVXV0m2TfQp4gyr +4sjZeAo2Jj1SVVWg4ekjh3R5yRR4OekuGWTRMFRd96tZCgU3dYqmeao0/Gya +5fCNWOJF4qstujS89rfwlmwaBZ8EPIMO7KXh1zjtFKvrFES505o54TS0oGeY ++mRRUL3+6n2TaBrqKqcl/iAenyeSK5lAw6sdtsVHsymwzxj1v55Fw/Pb2w1M +cihY2/ZMufwBDQPN++QE8ig4loXiQbU0/N899zZX4huedyfwGQ1nv03aNRKL +LMh+8eIted6il1+v3KSge3PA6U8jNOzNW9AoUEDBErGf9oVTNORsdV56kNi4 +3cnES4COAXF0rSJinvde1rQ4HaV+WH40vUXBF3giWrOUjmaFpWdSiWnim8a4 +inS8cU7+Uz9xeL7qMyl1Os5ktm0+XUhBhe916p0WHdPd5mpWEA9vlcrIWEfH +ZfpTw3+JrbtmfFYa0nEtNSMQXET2n+Qb+jY7OqZw87Y73Kbgc/TnkGvOdFSr +bb52hfi66MSXLx50lIgRF64iXjhPjhflT8e369eZyRaT/F1Qk/1wjo7dgx0q +SBz0V++sDoeOhj3zGa7EA+NWRm+u0JE+4x5QSpzt416klkxH6wV2XS+JrYYD +JYJu0HGHtPnRYWKJE5f9GnPpuLA8e9GiEpL3b2kdzCKyPg9K36sTn3e5Dd5l +dOyD9tZtxOv6HuTW3aPjvISgocPEQ3aNC2Qr6diye2q1N3FeV7fnsTo6ehqU +XQsntrEaaq14Rsf+cMFlKcRL38zoLXpFx1Vee9/eIn5uvviG/Vs6Dlyd5P1D +HNLMFOR30/Fgrc3dx8QbTLXdhD7RkSH9vucl8a8GbDw4QMctnd26HcQF2/et +KRymY1f+Q14PsX2NQ9L0OB1VTD8c+kIsB97TZn/J+rfnqn0nbq4IccgSZGBv +qpfyIHG4XvyT0QUMvKmUZ/Sft5TnrDSSYGCAXt61/+4f16HikmUYWPqtdfFX +4uKSurEBGgOfByeU9xI7rXxtvXkZA08E7eJ2EtMK+h/FqjNQJd+K00LcpjKu +0qvFQFPBFXfqiS9nzY9cu46BX5qlRCqIDRiyP8M3MTA8kht9m/h3qqrFOwMG +Kgz1YzoxT1bv/sqdDGwfiVeOJD6WYMw4t4eBYk3ja04Tt0cf+6psw8A28VM9 +xsRxooG7/RwZaC9ucUGLeAc3klfvxkAB+dA9S4nvXig6e9yPgUtV7C60k/9/ +4m9FT2UQA99kveu9R6wS+MJIMoSBUmobz1wjjvcZlLgbw8Dl7/euNyHeNfzX +T+QaAzd5tB1dRjz3xKJO6zQGilR0106R/erlopU3m8/AvAFlVhaxWh+Impcw +UGuuNt2b+IPd3pO5FAOTTJz3bCU2szqlv7OarL/7oEUHycf8NxdvpNUzcK6Z +lHou8UPzq4JDjQw8dE547XFiTVN+49UOBro5Cg6Pk3yJwphD1yiD9NWI2ATJ +p/9WNZG7vxnobzv2+jbx522HS2LnMLG5m3XZnrjGuPq3wWIm2hvI3K8m+Q80 +j46/pcHEw55X13jkU/DVoko/VIeJJSmDThLEBw6OfrDRY6KCSF04n/TLGhsr +TQkjJmp+k0wbJf3z3Xn549MOTIyVjpY+nEvy7nbIY68bEz8lKrb+JH3W4H5Z +UuMkE5lxl8NCiHNP/jrSfZaJHdnGj7NI/9kEPBzflszEybK2xvpMMg+jLNUk +m5m4dmBJAC+d7P/YiKaB10xcsG/y3grigisVvnVdTNyQVDuaTPo3LFGp+swA +E91eHnA6k0oB4+W45s+5LGRMRunTSJ+/eVfz2JLBQpwjsm4+6Xvxw13JNUos +vMG/FWF9lQLDrjEPreUsLPYJ7rl9hey392pLFmiykJ8jW2BC5kVMX4ztA30W +duwqTjlF5s2OQesJZUsWBpgOxduReXRjaWjr+UMs9H9buyM5nIJ/NxaVdh1m +4Re5rfRmDgWZkX9cEx1ZOMM5p7WezLPfquntC7xYeDdaZc6vC+S84Nh9fziS +hTWXOzvEyLyUaLc7W1nFQt/AJxd73SlwmeUeUqxjoZBy8uWPx8h5Y8Wdtf71 +LIzQeP+0y43kwU9gUKeJhYujtT43u5D/uyTrSF4nC20jXpRkOlLgu7t3S9Q4 +C7fcrBUetCJ5qXGaY62phKEnWpV0d/zX1x0KwVrELdfEJIwoEK7eszZzjRLq +i/ie/mZI+u7RBtfPekpIXYp6lWRAQUKFRKP3diVcvcy7qHczBXuoB8mXbZXQ +42Kuvc5aCp7kLdV+GKeEX71Njt9lUlAeUWfLGlPC+as/7Dk7woeCXc/luJNK +WG0vptQ5zIfUhS0tg3+U8FZSykE9cn67EPfBqGKuMu7ZmjYx+J0Ppsm/Vx+Q +UMb3FX4yRv186M3Xnr28UhkHb4q7F77lw6L69IwJB2U0n5zdZlzBBxchv49N +TcooKKQzT+AcH456B5UvTF2G/K57XWHTPNByXdlk6qCCX8y5ooHHedC8RFPM +T385Wja4+Jc9KoOKkpA0TcEV6Mf19nKTLIOgORp7X3SvQC0LTqLQzjsg2hVo +7EmpYlb6Jafi8RLov6mUkHFWDY1zE7TjPIohQU1+3n1LdRRUWBNpfq8I4lJd +6h1YGuiwetvGLlohWCccaVr4RQMrS19XDkcWwKRh3lRG5UoMM+dafey4CX39 +Bv41XE3cL3DrSKRZHmRv1lFsdFiFEJthtKkoB4o5fpKuq1ZjKTQfqdbKBq7l +URPBsdXo5PJStLshE3S7sm5xG7XQr37WcCz/BiSrpxU3mmhjramig75kOpyv +ik42ua+NwrLNt44fS4HdipZ5z1R0cMOs6+/t44mw1bP+sOQlHbzzNbvr+6sE +yKA5qrwY00H7IcN78flXQaU2P9Hs8BoUdOvlpNTHQdyqGo2WyjW4zDzphpNq +DLiMznv1VION7v8uN1atjgTHshHWpVg2Su3+Y/bwHReOh+yf3nWFjXURScaH +Grngt596uzCejRdffV87WcWFiDG/mLhENm43edFjVMCFEv2pP0nX2ZhkWOXF +PMOFqerZNzeL2Fg0fTHsgTQX4loWRtfVs/Gb9j8+GQfCITXnhFv4UzYe8lBv +fbMrHHJ8m7YZP2fjpRXD86QgHO7KxP1+3sRG2VCLzhTVcOiylnJrfc3GxZe2 +rOuZ5IBqn/y23j42Ps44dd8ynQPaVCAjt5+NUUdCq97FcWADp3PK+QsbVV2k +LzlyOGCqev3OtwE2Vu47Yx3iyQFvDxbj1y82pm4y/vgbOXB208Up3igbJ4t8 +X+fqcoAj3tvmO8ZGxcQrofs1OJBcmnN5cpKNrQO75z+S4kD2hXmu//vNxj1j +de1BIhwo2udscHaajacqOu02/w0DSvkJfcsMG4+qBqcKjoRB5eiKqdlZNuo2 +xHObPofB/wGw6YVA + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08079417204601799}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08079417204601799}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0VW0bBnAlESmS+UykDCl0UjTdd5IUqURFMmWKkgxlSAOOI5mKzGWO +CDlnq7dPyVQ0oFDJUCENisRrKvE97197/dbaa++9nv1c1/0oOZ40d54rICAg +OEdA4L/r9XOO83Wc0raUtfS8WacIW+paWaYHWQFgMbSR/U8EDWafVIayWJfg +Y6wT3T9CE65XRTOFWCnwnZMcti9iExzf7HdignkLILtLQCXCFFr/uCUMM+/D +42mRo7lcGxDu7FUdZD6Fxq1311dzjkPWs4xT35nv4N7teodt585CSemlzuOr +B6DmfmLtkZhocIVXKT+8RyEvKdU36sU18OxX76NKpsBxwtag4GI6iCqFqX7Q +E0DL1oZu1dosiJF4rpFlL4is1Me7S/pywbHT4pHgi/k4peis/lamAE49DnM8 +qSqKum/sdmUKFkGZ18L9cjvFUbdl+0AItxiygjwGtA9KYKRtg2KNwB0IyZje +9+8PSSyatexpEikDgdaP+CBQCuVjysY5P8og7FtlVuBFKbQ4Uf6ONlwGCwSu +z9WPkMI/UXmuZaNlsGSVVV35NSksEw0Obf1dBsu5r3aU3pFCo2Ph5X9EeLBr +Y41Z9mcp5Kdcae9U4UF8To5NhPlSDL6r0/POmgcrfF38LTSk8X/N3Na6RzxY +teHD/gxtaezeOfL6Sg0P1goc0hpYJ43pOvcbbB7zwCBq5+fz26RRS592/scz +HtjmaloU2UijYdDlVaOveZDYNqI1N1YaCwq+hl3/zgMh3fNfSkel0Sa3pdlZ +mg8L/0zU/J6SRm3hqsfDsnxYUu11Y7uADB7MfVgYoMAH1m5Hy86FMpif376V +w+TDJufttfNXyGDZn5W5oep88L0mlnHkkAzGHvBYT9/Mh09jSQfEHsrg0lcB +6bWOfMjeyvbprpXBnV8lT2925oNddFNs6TMZHO637aVc+dChIvR0f7sMNlps +9kk/zodX+703po/K4PsfWmfMTvOhssyUtUpDFpfb3Fqy5RIfkk7MGTBLksW5 +PxOFTYv5YHE/fb7SDVkcEbXd719Kvl9Ib9loriwWuk6ws8v4EJPuaZPEk0Vb +JSFqqJwPYc87mz40ymLJemeeeyUfvNTv8r3myeHp3tiqoSY+7Op3D756Sg4n +rQ/OqA7xwSh42W1DfzksfJpjP/OTDwbSXR3j5+QwYFDGu+UXHzZs3613OEoO +I2MW5PiM8UEjT2t0Wb4c2ok5bk2d5oOY879u5V3Eglbx/qIUvPgUbNG+Qx7H +juVXBqpQ0HB2XWikmTxGNeQdFF5BQd3Sn2WbLOWxvONI3hVVCh4Y2i/OcpRH +1Y6ndhkaFNzONXh2LFgefQb2HMjQpiDaSRj/8OTR5Z1LgM4mCsw+xa1kMBQQ +DWdVM/eR96381GajooAJe48LN5lTYOKz/lyahgKuems1NLWfAuO571/KrVfA +t54RrSYHKDBgrTwttVcBe0IF57RbU6Br87hKJEQByyt+yF49SgGVI+e+I0IB +l7/OjMh0omDNdw+p8BgFtH+N84qdKVgduMRFME0B1/ao06tcKVBLthOb4Sug +1IrxziYPCmhtU5aj/Qooc51ZHeNDQari7lmdHwrYRls8HexLgfzRzAKvEQUc +YmRv9/CjQGbE6M/gjAKOtBQK4RkKJCQSMr/KKuLrgyxsCaRA0HT19+6disg6 +YfUm5SIFIfEXE2h7FfEfppa8ewgFAp1tmw8fUEQ370JPvVAKpo8FxbU7KuIO +Trp5cxgF49wG3dYgRRSiNwh95lIwUOt4oaFYESN6JyzuRVPAvNLuHkMpYtUx +qVdnYiiwsDWztKhQRF3nfvF1sRRUTuprfGxQRGpQ9nlRHAVXV0m2TfQp4gyr +4sjZeAo2Jj1SVVWg4ekjh3R5yRR4OekuGWTRMFRd96tZCgU3dYqmeao0/Gya +5fCNWOJF4qstujS89rfwlmwaBZ8EPIMO7KXh1zjtFKvrFES505o54TS0oGeY ++mRRUL3+6n2TaBrqKqcl/iAenyeSK5lAw6sdtsVHsymwzxj1v55Fw/Pb2w1M +cihY2/ZMufwBDQPN++QE8ig4loXiQbU0/N899zZX4huedyfwGQ1nv03aNRKL +LMh+8eIted6il1+v3KSge3PA6U8jNOzNW9AoUEDBErGf9oVTNORsdV56kNi4 +3cnES4COAXF0rSJinvde1rQ4HaV+WH40vUXBF3giWrOUjmaFpWdSiWnim8a4 +inS8cU7+Uz9xeL7qMyl1Os5ktm0+XUhBhe916p0WHdPd5mpWEA9vlcrIWEfH +ZfpTw3+JrbtmfFYa0nEtNSMQXET2n+Qb+jY7OqZw87Y73Kbgc/TnkGvOdFSr +bb52hfi66MSXLx50lIgRF64iXjhPjhflT8e369eZyRaT/F1Qk/1wjo7dgx0q +SBz0V++sDoeOhj3zGa7EA+NWRm+u0JE+4x5QSpzt416klkxH6wV2XS+JrYYD +JYJu0HGHtPnRYWKJE5f9GnPpuLA8e9GiEpL3b2kdzCKyPg9K36sTn3e5Dd5l +dOyD9tZtxOv6HuTW3aPjvISgocPEQ3aNC2Qr6diye2q1N3FeV7fnsTo6ehqU +XQsntrEaaq14Rsf+cMFlKcRL38zoLXpFx1Vee9/eIn5uvviG/Vs6Dlyd5P1D +HNLMFOR30/Fgrc3dx8QbTLXdhD7RkSH9vucl8a8GbDw4QMctnd26HcQF2/et +KRymY1f+Q14PsX2NQ9L0OB1VTD8c+kIsB97TZn/J+rfnqn0nbq4IccgSZGBv +qpfyIHG4XvyT0QUMvKmUZ/Sft5TnrDSSYGCAXt61/+4f16HikmUYWPqtdfFX +4uKSurEBGgOfByeU9xI7rXxtvXkZA08E7eJ2EtMK+h/FqjNQJd+K00LcpjKu +0qvFQFPBFXfqiS9nzY9cu46BX5qlRCqIDRiyP8M3MTA8kht9m/h3qqrFOwMG +Kgz1YzoxT1bv/sqdDGwfiVeOJD6WYMw4t4eBYk3ja04Tt0cf+6psw8A28VM9 +xsRxooG7/RwZaC9ucUGLeAc3klfvxkAB+dA9S4nvXig6e9yPgUtV7C60k/9/ +4m9FT2UQA99kveu9R6wS+MJIMoSBUmobz1wjjvcZlLgbw8Dl7/euNyHeNfzX +T+QaAzd5tB1dRjz3xKJO6zQGilR0106R/erlopU3m8/AvAFlVhaxWh+Impcw +UGuuNt2b+IPd3pO5FAOTTJz3bCU2szqlv7OarL/7oEUHycf8NxdvpNUzcK6Z +lHou8UPzq4JDjQw8dE547XFiTVN+49UOBro5Cg6Pk3yJwphD1yiD9NWI2ATJ +p/9WNZG7vxnobzv2+jbx522HS2LnMLG5m3XZnrjGuPq3wWIm2hvI3K8m+Q80 +j46/pcHEw55X13jkU/DVoko/VIeJJSmDThLEBw6OfrDRY6KCSF04n/TLGhsr +TQkjJmp+k0wbJf3z3Xn549MOTIyVjpY+nEvy7nbIY68bEz8lKrb+JH3W4H5Z +UuMkE5lxl8NCiHNP/jrSfZaJHdnGj7NI/9kEPBzflszEybK2xvpMMg+jLNUk +m5m4dmBJAC+d7P/YiKaB10xcsG/y3grigisVvnVdTNyQVDuaTPo3LFGp+swA +E91eHnA6k0oB4+W45s+5LGRMRunTSJ+/eVfz2JLBQpwjsm4+6Xvxw13JNUos +vMG/FWF9lQLDrjEPreUsLPYJ7rl9hey392pLFmiykJ8jW2BC5kVMX4ztA30W +duwqTjlF5s2OQesJZUsWBpgOxduReXRjaWjr+UMs9H9buyM5nIJ/NxaVdh1m +4Re5rfRmDgWZkX9cEx1ZOMM5p7WezLPfquntC7xYeDdaZc6vC+S84Nh9fziS +hTWXOzvEyLyUaLc7W1nFQt/AJxd73SlwmeUeUqxjoZBy8uWPx8h5Y8Wdtf71 +LIzQeP+0y43kwU9gUKeJhYujtT43u5D/uyTrSF4nC20jXpRkOlLgu7t3S9Q4 +C7fcrBUetCJ5qXGaY62phKEnWpV0d/zX1x0KwVrELdfEJIwoEK7eszZzjRLq +i/ie/mZI+u7RBtfPekpIXYp6lWRAQUKFRKP3diVcvcy7qHczBXuoB8mXbZXQ +42Kuvc5aCp7kLdV+GKeEX71Njt9lUlAeUWfLGlPC+as/7Dk7woeCXc/luJNK +WG0vptQ5zIfUhS0tg3+U8FZSykE9cn67EPfBqGKuMu7ZmjYx+J0Ppsm/Vx+Q +UMb3FX4yRv186M3Xnr28UhkHb4q7F77lw6L69IwJB2U0n5zdZlzBBxchv49N +TcooKKQzT+AcH456B5UvTF2G/K57XWHTPNByXdlk6qCCX8y5ooHHedC8RFPM +T385Wja4+Jc9KoOKkpA0TcEV6Mf19nKTLIOgORp7X3SvQC0LTqLQzjsg2hVo +7EmpYlb6Jafi8RLov6mUkHFWDY1zE7TjPIohQU1+3n1LdRRUWBNpfq8I4lJd +6h1YGuiwetvGLlohWCccaVr4RQMrS19XDkcWwKRh3lRG5UoMM+dafey4CX39 +Bv41XE3cL3DrSKRZHmRv1lFsdFiFEJthtKkoB4o5fpKuq1ZjKTQfqdbKBq7l +URPBsdXo5PJStLshE3S7sm5xG7XQr37WcCz/BiSrpxU3mmhjramig75kOpyv +ik42ua+NwrLNt44fS4HdipZ5z1R0cMOs6+/t44mw1bP+sOQlHbzzNbvr+6sE +yKA5qrwY00H7IcN78flXQaU2P9Hs8BoUdOvlpNTHQdyqGo2WyjW4zDzphpNq +DLiMznv1VION7v8uN1atjgTHshHWpVg2Su3+Y/bwHReOh+yf3nWFjXURScaH +Grngt596uzCejRdffV87WcWFiDG/mLhENm43edFjVMCFEv2pP0nX2ZhkWOXF +PMOFqerZNzeL2Fg0fTHsgTQX4loWRtfVs/Gb9j8+GQfCITXnhFv4UzYe8lBv +fbMrHHJ8m7YZP2fjpRXD86QgHO7KxP1+3sRG2VCLzhTVcOiylnJrfc3GxZe2 +rOuZ5IBqn/y23j42Ps44dd8ynQPaVCAjt5+NUUdCq97FcWADp3PK+QsbVV2k +LzlyOGCqev3OtwE2Vu47Yx3iyQFvDxbj1y82pm4y/vgbOXB208Up3igbJ4t8 +X+fqcoAj3tvmO8ZGxcQrofs1OJBcmnN5cpKNrQO75z+S4kD2hXmu//vNxj1j +de1BIhwo2udscHaajacqOu02/w0DSvkJfcsMG4+qBqcKjoRB5eiKqdlZNuo2 +xHObPofB/wGw6YVA + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08079417204601799}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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, 20}, {0., 0.08079417204601799}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913218813523655`*^9, 3.991716043222481*^9, + 3.992087470181017*^9, 3.9920940959108505`*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"9cce9ccc-63ba-7f49-85cd-6b18572cfa7d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.020752"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.058831"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.090855"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.11027"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.120683"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.117878"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.109585"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.093652"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.077678"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.059892"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.045412"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.032103"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.022647"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.014816"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.009893"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.006002"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.003879"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.002155"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.001404"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.000678"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.00048"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991714709387436*^9, 3.991714738003292*^9}, { + 3.991714834117689*^9, 3.991714842328617*^9}, 3.991793311407936*^9, + 3.9917953263701286`*^9, {3.992087051653343*^9, 3.9920870536785927`*^9}}, + CellLabel-> + "In[104]:=",ExpressionUUID->"60c27e2c-7c95-1e4a-ab78-642e76a08b0b"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 20.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9917148467316074`*^9, 3.992087470563801*^9, + 3.9920940959861126`*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"5b9ba159-9875-924d-a362-62402dccc85c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel-> + "In[105]:=",ExpressionUUID->"7b17964f-3903-af4c-a72d-552615ef4a37"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk0VW0bBnAlESmS+UykDCl0UjTdd5IUqURFMmWKkgxlSAOOI5mKzGWO +CDlnq7dPyVQ0oFDJUCENisRrKvE97197/dbaa++9nv1c1/0oOZ40d54rICAg +OEdA4L/r9XOO83Wc0raUtfS8WacIW+paWaYHWQFgMbSR/U8EDWafVIayWJfg +Y6wT3T9CE65XRTOFWCnwnZMcti9iExzf7HdignkLILtLQCXCFFr/uCUMM+/D +42mRo7lcGxDu7FUdZD6Fxq1311dzjkPWs4xT35nv4N7teodt585CSemlzuOr +B6DmfmLtkZhocIVXKT+8RyEvKdU36sU18OxX76NKpsBxwtag4GI6iCqFqX7Q +E0DL1oZu1dosiJF4rpFlL4is1Me7S/pywbHT4pHgi/k4peis/lamAE49DnM8 +qSqKum/sdmUKFkGZ18L9cjvFUbdl+0AItxiygjwGtA9KYKRtg2KNwB0IyZje +9+8PSSyatexpEikDgdaP+CBQCuVjysY5P8og7FtlVuBFKbQ4Uf6ONlwGCwSu +z9WPkMI/UXmuZaNlsGSVVV35NSksEw0Obf1dBsu5r3aU3pFCo2Ph5X9EeLBr +Y41Z9mcp5Kdcae9U4UF8To5NhPlSDL6r0/POmgcrfF38LTSk8X/N3Na6RzxY +teHD/gxtaezeOfL6Sg0P1goc0hpYJ43pOvcbbB7zwCBq5+fz26RRS592/scz +HtjmaloU2UijYdDlVaOveZDYNqI1N1YaCwq+hl3/zgMh3fNfSkel0Sa3pdlZ +mg8L/0zU/J6SRm3hqsfDsnxYUu11Y7uADB7MfVgYoMAH1m5Hy86FMpif376V +w+TDJufttfNXyGDZn5W5oep88L0mlnHkkAzGHvBYT9/Mh09jSQfEHsrg0lcB +6bWOfMjeyvbprpXBnV8lT2925oNddFNs6TMZHO637aVc+dChIvR0f7sMNlps +9kk/zodX+703po/K4PsfWmfMTvOhssyUtUpDFpfb3Fqy5RIfkk7MGTBLksW5 +PxOFTYv5YHE/fb7SDVkcEbXd719Kvl9Ib9loriwWuk6ws8v4EJPuaZPEk0Vb +JSFqqJwPYc87mz40ymLJemeeeyUfvNTv8r3myeHp3tiqoSY+7Op3D756Sg4n +rQ/OqA7xwSh42W1DfzksfJpjP/OTDwbSXR3j5+QwYFDGu+UXHzZs3613OEoO +I2MW5PiM8UEjT2t0Wb4c2ok5bk2d5oOY879u5V3Eglbx/qIUvPgUbNG+Qx7H +juVXBqpQ0HB2XWikmTxGNeQdFF5BQd3Sn2WbLOWxvONI3hVVCh4Y2i/OcpRH +1Y6ndhkaFNzONXh2LFgefQb2HMjQpiDaSRj/8OTR5Z1LgM4mCsw+xa1kMBQQ +DWdVM/eR96381GajooAJe48LN5lTYOKz/lyahgKuems1NLWfAuO571/KrVfA +t54RrSYHKDBgrTwttVcBe0IF57RbU6Br87hKJEQByyt+yF49SgGVI+e+I0IB +l7/OjMh0omDNdw+p8BgFtH+N84qdKVgduMRFME0B1/ao06tcKVBLthOb4Sug +1IrxziYPCmhtU5aj/Qooc51ZHeNDQari7lmdHwrYRls8HexLgfzRzAKvEQUc +YmRv9/CjQGbE6M/gjAKOtBQK4RkKJCQSMr/KKuLrgyxsCaRA0HT19+6disg6 +YfUm5SIFIfEXE2h7FfEfppa8ewgFAp1tmw8fUEQ370JPvVAKpo8FxbU7KuIO +Trp5cxgF49wG3dYgRRSiNwh95lIwUOt4oaFYESN6JyzuRVPAvNLuHkMpYtUx +qVdnYiiwsDWztKhQRF3nfvF1sRRUTuprfGxQRGpQ9nlRHAVXV0m2TfQp4gyr +4sjZeAo2Jj1SVVWg4ekjh3R5yRR4OekuGWTRMFRd96tZCgU3dYqmeao0/Gya +5fCNWOJF4qstujS89rfwlmwaBZ8EPIMO7KXh1zjtFKvrFES505o54TS0oGeY ++mRRUL3+6n2TaBrqKqcl/iAenyeSK5lAw6sdtsVHsymwzxj1v55Fw/Pb2w1M +cihY2/ZMufwBDQPN++QE8ig4loXiQbU0/N899zZX4huedyfwGQ1nv03aNRKL +LMh+8eIted6il1+v3KSge3PA6U8jNOzNW9AoUEDBErGf9oVTNORsdV56kNi4 +3cnES4COAXF0rSJinvde1rQ4HaV+WH40vUXBF3giWrOUjmaFpWdSiWnim8a4 +inS8cU7+Uz9xeL7qMyl1Os5ktm0+XUhBhe916p0WHdPd5mpWEA9vlcrIWEfH +ZfpTw3+JrbtmfFYa0nEtNSMQXET2n+Qb+jY7OqZw87Y73Kbgc/TnkGvOdFSr +bb52hfi66MSXLx50lIgRF64iXjhPjhflT8e369eZyRaT/F1Qk/1wjo7dgx0q +SBz0V++sDoeOhj3zGa7EA+NWRm+u0JE+4x5QSpzt416klkxH6wV2XS+JrYYD +JYJu0HGHtPnRYWKJE5f9GnPpuLA8e9GiEpL3b2kdzCKyPg9K36sTn3e5Dd5l +dOyD9tZtxOv6HuTW3aPjvISgocPEQ3aNC2Qr6diye2q1N3FeV7fnsTo6ehqU +XQsntrEaaq14Rsf+cMFlKcRL38zoLXpFx1Vee9/eIn5uvviG/Vs6Dlyd5P1D +HNLMFOR30/Fgrc3dx8QbTLXdhD7RkSH9vucl8a8GbDw4QMctnd26HcQF2/et +KRymY1f+Q14PsX2NQ9L0OB1VTD8c+kIsB97TZn/J+rfnqn0nbq4IccgSZGBv +qpfyIHG4XvyT0QUMvKmUZ/Sft5TnrDSSYGCAXt61/+4f16HikmUYWPqtdfFX +4uKSurEBGgOfByeU9xI7rXxtvXkZA08E7eJ2EtMK+h/FqjNQJd+K00LcpjKu +0qvFQFPBFXfqiS9nzY9cu46BX5qlRCqIDRiyP8M3MTA8kht9m/h3qqrFOwMG +Kgz1YzoxT1bv/sqdDGwfiVeOJD6WYMw4t4eBYk3ja04Tt0cf+6psw8A28VM9 +xsRxooG7/RwZaC9ucUGLeAc3klfvxkAB+dA9S4nvXig6e9yPgUtV7C60k/9/ +4m9FT2UQA99kveu9R6wS+MJIMoSBUmobz1wjjvcZlLgbw8Dl7/euNyHeNfzX +T+QaAzd5tB1dRjz3xKJO6zQGilR0106R/erlopU3m8/AvAFlVhaxWh+Impcw +UGuuNt2b+IPd3pO5FAOTTJz3bCU2szqlv7OarL/7oEUHycf8NxdvpNUzcK6Z +lHou8UPzq4JDjQw8dE547XFiTVN+49UOBro5Cg6Pk3yJwphD1yiD9NWI2ATJ +p/9WNZG7vxnobzv2+jbx522HS2LnMLG5m3XZnrjGuPq3wWIm2hvI3K8m+Q80 +j46/pcHEw55X13jkU/DVoko/VIeJJSmDThLEBw6OfrDRY6KCSF04n/TLGhsr +TQkjJmp+k0wbJf3z3Xn549MOTIyVjpY+nEvy7nbIY68bEz8lKrb+JH3W4H5Z +UuMkE5lxl8NCiHNP/jrSfZaJHdnGj7NI/9kEPBzflszEybK2xvpMMg+jLNUk +m5m4dmBJAC+d7P/YiKaB10xcsG/y3grigisVvnVdTNyQVDuaTPo3LFGp+swA +E91eHnA6k0oB4+W45s+5LGRMRunTSJ+/eVfz2JLBQpwjsm4+6Xvxw13JNUos +vMG/FWF9lQLDrjEPreUsLPYJ7rl9hey392pLFmiykJ8jW2BC5kVMX4ztA30W +duwqTjlF5s2OQesJZUsWBpgOxduReXRjaWjr+UMs9H9buyM5nIJ/NxaVdh1m +4Re5rfRmDgWZkX9cEx1ZOMM5p7WezLPfquntC7xYeDdaZc6vC+S84Nh9fziS +hTWXOzvEyLyUaLc7W1nFQt/AJxd73SlwmeUeUqxjoZBy8uWPx8h5Y8Wdtf71 +LIzQeP+0y43kwU9gUKeJhYujtT43u5D/uyTrSF4nC20jXpRkOlLgu7t3S9Q4 +C7fcrBUetCJ5qXGaY62phKEnWpV0d/zX1x0KwVrELdfEJIwoEK7eszZzjRLq +i/ie/mZI+u7RBtfPekpIXYp6lWRAQUKFRKP3diVcvcy7qHczBXuoB8mXbZXQ +42Kuvc5aCp7kLdV+GKeEX71Njt9lUlAeUWfLGlPC+as/7Dk7woeCXc/luJNK +WG0vptQ5zIfUhS0tg3+U8FZSykE9cn67EPfBqGKuMu7ZmjYx+J0Ppsm/Vx+Q +UMb3FX4yRv186M3Xnr28UhkHb4q7F77lw6L69IwJB2U0n5zdZlzBBxchv49N +TcooKKQzT+AcH456B5UvTF2G/K57XWHTPNByXdlk6qCCX8y5ooHHedC8RFPM +T385Wja4+Jc9KoOKkpA0TcEV6Mf19nKTLIOgORp7X3SvQC0LTqLQzjsg2hVo +7EmpYlb6Jafi8RLov6mUkHFWDY1zE7TjPIohQU1+3n1LdRRUWBNpfq8I4lJd +6h1YGuiwetvGLlohWCccaVr4RQMrS19XDkcWwKRh3lRG5UoMM+dafey4CX39 +Bv41XE3cL3DrSKRZHmRv1lFsdFiFEJthtKkoB4o5fpKuq1ZjKTQfqdbKBq7l +URPBsdXo5PJStLshE3S7sm5xG7XQr37WcCz/BiSrpxU3mmhjramig75kOpyv +ik42ua+NwrLNt44fS4HdipZ5z1R0cMOs6+/t44mw1bP+sOQlHbzzNbvr+6sE +yKA5qrwY00H7IcN78flXQaU2P9Hs8BoUdOvlpNTHQdyqGo2WyjW4zDzphpNq +DLiMznv1VION7v8uN1atjgTHshHWpVg2Su3+Y/bwHReOh+yf3nWFjXURScaH +Grngt596uzCejRdffV87WcWFiDG/mLhENm43edFjVMCFEv2pP0nX2ZhkWOXF +PMOFqerZNzeL2Fg0fTHsgTQX4loWRtfVs/Gb9j8+GQfCITXnhFv4UzYe8lBv +fbMrHHJ8m7YZP2fjpRXD86QgHO7KxP1+3sRG2VCLzhTVcOiylnJrfc3GxZe2 +rOuZ5IBqn/y23j42Ps44dd8ynQPaVCAjt5+NUUdCq97FcWADp3PK+QsbVV2k +LzlyOGCqev3OtwE2Vu47Yx3iyQFvDxbj1y82pm4y/vgbOXB208Up3igbJ4t8 +X+fqcoAj3tvmO8ZGxcQrofs1OJBcmnN5cpKNrQO75z+S4kD2hXmu//vNxj1j +de1BIhwo2udscHaajacqOu02/w0DSvkJfcsMG4+qBqcKjoRB5eiKqdlZNuo2 +xHObPofB/wGw6YVA + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0VW0bBnAlESmS+UykDCl0UjTdd5IUqURFMmWKkgxlSAOOI5mKzGWO +CDlnq7dPyVQ0oFDJUCENisRrKvE97197/dbaa++9nv1c1/0oOZ40d54rICAg +OEdA4L/r9XOO83Wc0raUtfS8WacIW+paWaYHWQFgMbSR/U8EDWafVIayWJfg +Y6wT3T9CE65XRTOFWCnwnZMcti9iExzf7HdignkLILtLQCXCFFr/uCUMM+/D +42mRo7lcGxDu7FUdZD6Fxq1311dzjkPWs4xT35nv4N7teodt585CSemlzuOr +B6DmfmLtkZhocIVXKT+8RyEvKdU36sU18OxX76NKpsBxwtag4GI6iCqFqX7Q +E0DL1oZu1dosiJF4rpFlL4is1Me7S/pywbHT4pHgi/k4peis/lamAE49DnM8 +qSqKum/sdmUKFkGZ18L9cjvFUbdl+0AItxiygjwGtA9KYKRtg2KNwB0IyZje +9+8PSSyatexpEikDgdaP+CBQCuVjysY5P8og7FtlVuBFKbQ4Uf6ONlwGCwSu +z9WPkMI/UXmuZaNlsGSVVV35NSksEw0Obf1dBsu5r3aU3pFCo2Ph5X9EeLBr +Y41Z9mcp5Kdcae9U4UF8To5NhPlSDL6r0/POmgcrfF38LTSk8X/N3Na6RzxY +teHD/gxtaezeOfL6Sg0P1goc0hpYJ43pOvcbbB7zwCBq5+fz26RRS592/scz +HtjmaloU2UijYdDlVaOveZDYNqI1N1YaCwq+hl3/zgMh3fNfSkel0Sa3pdlZ +mg8L/0zU/J6SRm3hqsfDsnxYUu11Y7uADB7MfVgYoMAH1m5Hy86FMpif376V +w+TDJufttfNXyGDZn5W5oep88L0mlnHkkAzGHvBYT9/Mh09jSQfEHsrg0lcB +6bWOfMjeyvbprpXBnV8lT2925oNddFNs6TMZHO637aVc+dChIvR0f7sMNlps +9kk/zodX+703po/K4PsfWmfMTvOhssyUtUpDFpfb3Fqy5RIfkk7MGTBLksW5 +PxOFTYv5YHE/fb7SDVkcEbXd719Kvl9Ib9loriwWuk6ws8v4EJPuaZPEk0Vb +JSFqqJwPYc87mz40ymLJemeeeyUfvNTv8r3myeHp3tiqoSY+7Op3D756Sg4n +rQ/OqA7xwSh42W1DfzksfJpjP/OTDwbSXR3j5+QwYFDGu+UXHzZs3613OEoO +I2MW5PiM8UEjT2t0Wb4c2ok5bk2d5oOY879u5V3Eglbx/qIUvPgUbNG+Qx7H +juVXBqpQ0HB2XWikmTxGNeQdFF5BQd3Sn2WbLOWxvONI3hVVCh4Y2i/OcpRH +1Y6ndhkaFNzONXh2LFgefQb2HMjQpiDaSRj/8OTR5Z1LgM4mCsw+xa1kMBQQ +DWdVM/eR96381GajooAJe48LN5lTYOKz/lyahgKuems1NLWfAuO571/KrVfA +t54RrSYHKDBgrTwttVcBe0IF57RbU6Br87hKJEQByyt+yF49SgGVI+e+I0IB +l7/OjMh0omDNdw+p8BgFtH+N84qdKVgduMRFME0B1/ao06tcKVBLthOb4Sug +1IrxziYPCmhtU5aj/Qooc51ZHeNDQari7lmdHwrYRls8HexLgfzRzAKvEQUc +YmRv9/CjQGbE6M/gjAKOtBQK4RkKJCQSMr/KKuLrgyxsCaRA0HT19+6disg6 +YfUm5SIFIfEXE2h7FfEfppa8ewgFAp1tmw8fUEQ370JPvVAKpo8FxbU7KuIO +Trp5cxgF49wG3dYgRRSiNwh95lIwUOt4oaFYESN6JyzuRVPAvNLuHkMpYtUx +qVdnYiiwsDWztKhQRF3nfvF1sRRUTuprfGxQRGpQ9nlRHAVXV0m2TfQp4gyr +4sjZeAo2Jj1SVVWg4ekjh3R5yRR4OekuGWTRMFRd96tZCgU3dYqmeao0/Gya +5fCNWOJF4qstujS89rfwlmwaBZ8EPIMO7KXh1zjtFKvrFES505o54TS0oGeY ++mRRUL3+6n2TaBrqKqcl/iAenyeSK5lAw6sdtsVHsymwzxj1v55Fw/Pb2w1M +cihY2/ZMufwBDQPN++QE8ig4loXiQbU0/N899zZX4huedyfwGQ1nv03aNRKL +LMh+8eIted6il1+v3KSge3PA6U8jNOzNW9AoUEDBErGf9oVTNORsdV56kNi4 +3cnES4COAXF0rSJinvde1rQ4HaV+WH40vUXBF3giWrOUjmaFpWdSiWnim8a4 +inS8cU7+Uz9xeL7qMyl1Os5ktm0+XUhBhe916p0WHdPd5mpWEA9vlcrIWEfH +ZfpTw3+JrbtmfFYa0nEtNSMQXET2n+Qb+jY7OqZw87Y73Kbgc/TnkGvOdFSr +bb52hfi66MSXLx50lIgRF64iXjhPjhflT8e369eZyRaT/F1Qk/1wjo7dgx0q +SBz0V++sDoeOhj3zGa7EA+NWRm+u0JE+4x5QSpzt416klkxH6wV2XS+JrYYD +JYJu0HGHtPnRYWKJE5f9GnPpuLA8e9GiEpL3b2kdzCKyPg9K36sTn3e5Dd5l +dOyD9tZtxOv6HuTW3aPjvISgocPEQ3aNC2Qr6diye2q1N3FeV7fnsTo6ehqU +XQsntrEaaq14Rsf+cMFlKcRL38zoLXpFx1Vee9/eIn5uvviG/Vs6Dlyd5P1D +HNLMFOR30/Fgrc3dx8QbTLXdhD7RkSH9vucl8a8GbDw4QMctnd26HcQF2/et +KRymY1f+Q14PsX2NQ9L0OB1VTD8c+kIsB97TZn/J+rfnqn0nbq4IccgSZGBv +qpfyIHG4XvyT0QUMvKmUZ/Sft5TnrDSSYGCAXt61/+4f16HikmUYWPqtdfFX +4uKSurEBGgOfByeU9xI7rXxtvXkZA08E7eJ2EtMK+h/FqjNQJd+K00LcpjKu +0qvFQFPBFXfqiS9nzY9cu46BX5qlRCqIDRiyP8M3MTA8kht9m/h3qqrFOwMG +Kgz1YzoxT1bv/sqdDGwfiVeOJD6WYMw4t4eBYk3ja04Tt0cf+6psw8A28VM9 +xsRxooG7/RwZaC9ucUGLeAc3klfvxkAB+dA9S4nvXig6e9yPgUtV7C60k/9/ +4m9FT2UQA99kveu9R6wS+MJIMoSBUmobz1wjjvcZlLgbw8Dl7/euNyHeNfzX +T+QaAzd5tB1dRjz3xKJO6zQGilR0106R/erlopU3m8/AvAFlVhaxWh+Impcw +UGuuNt2b+IPd3pO5FAOTTJz3bCU2szqlv7OarL/7oEUHycf8NxdvpNUzcK6Z +lHou8UPzq4JDjQw8dE547XFiTVN+49UOBro5Cg6Pk3yJwphD1yiD9NWI2ATJ +p/9WNZG7vxnobzv2+jbx522HS2LnMLG5m3XZnrjGuPq3wWIm2hvI3K8m+Q80 +j46/pcHEw55X13jkU/DVoko/VIeJJSmDThLEBw6OfrDRY6KCSF04n/TLGhsr +TQkjJmp+k0wbJf3z3Xn549MOTIyVjpY+nEvy7nbIY68bEz8lKrb+JH3W4H5Z +UuMkE5lxl8NCiHNP/jrSfZaJHdnGj7NI/9kEPBzflszEybK2xvpMMg+jLNUk +m5m4dmBJAC+d7P/YiKaB10xcsG/y3grigisVvnVdTNyQVDuaTPo3LFGp+swA +E91eHnA6k0oB4+W45s+5LGRMRunTSJ+/eVfz2JLBQpwjsm4+6Xvxw13JNUos +vMG/FWF9lQLDrjEPreUsLPYJ7rl9hey392pLFmiykJ8jW2BC5kVMX4ztA30W +duwqTjlF5s2OQesJZUsWBpgOxduReXRjaWjr+UMs9H9buyM5nIJ/NxaVdh1m +4Re5rfRmDgWZkX9cEx1ZOMM5p7WezLPfquntC7xYeDdaZc6vC+S84Nh9fziS +hTWXOzvEyLyUaLc7W1nFQt/AJxd73SlwmeUeUqxjoZBy8uWPx8h5Y8Wdtf71 +LIzQeP+0y43kwU9gUKeJhYujtT43u5D/uyTrSF4nC20jXpRkOlLgu7t3S9Q4 +C7fcrBUetCJ5qXGaY62phKEnWpV0d/zX1x0KwVrELdfEJIwoEK7eszZzjRLq +i/ie/mZI+u7RBtfPekpIXYp6lWRAQUKFRKP3diVcvcy7qHczBXuoB8mXbZXQ +42Kuvc5aCp7kLdV+GKeEX71Njt9lUlAeUWfLGlPC+as/7Dk7woeCXc/luJNK +WG0vptQ5zIfUhS0tg3+U8FZSykE9cn67EPfBqGKuMu7ZmjYx+J0Ppsm/Vx+Q +UMb3FX4yRv186M3Xnr28UhkHb4q7F77lw6L69IwJB2U0n5zdZlzBBxchv49N +TcooKKQzT+AcH456B5UvTF2G/K57XWHTPNByXdlk6qCCX8y5ooHHedC8RFPM +T385Wja4+Jc9KoOKkpA0TcEV6Mf19nKTLIOgORp7X3SvQC0LTqLQzjsg2hVo +7EmpYlb6Jafi8RLov6mUkHFWDY1zE7TjPIohQU1+3n1LdRRUWBNpfq8I4lJd +6h1YGuiwetvGLlohWCccaVr4RQMrS19XDkcWwKRh3lRG5UoMM+dafey4CX39 +Bv41XE3cL3DrSKRZHmRv1lFsdFiFEJthtKkoB4o5fpKuq1ZjKTQfqdbKBq7l +URPBsdXo5PJStLshE3S7sm5xG7XQr37WcCz/BiSrpxU3mmhjramig75kOpyv +ik42ua+NwrLNt44fS4HdipZ5z1R0cMOs6+/t44mw1bP+sOQlHbzzNbvr+6sE +yKA5qrwY00H7IcN78flXQaU2P9Hs8BoUdOvlpNTHQdyqGo2WyjW4zDzphpNq +DLiMznv1VION7v8uN1atjgTHshHWpVg2Su3+Y/bwHReOh+yf3nWFjXURScaH +Grngt596uzCejRdffV87WcWFiDG/mLhENm43edFjVMCFEv2pP0nX2ZhkWOXF +PMOFqerZNzeL2Fg0fTHsgTQX4loWRtfVs/Gb9j8+GQfCITXnhFv4UzYe8lBv +fbMrHHJ8m7YZP2fjpRXD86QgHO7KxP1+3sRG2VCLzhTVcOiylnJrfc3GxZe2 +rOuZ5IBqn/y23j42Ps44dd8ynQPaVCAjt5+NUUdCq97FcWADp3PK+QsbVV2k +LzlyOGCqev3OtwE2Vu47Yx3iyQFvDxbj1y82pm4y/vgbOXB208Up3igbJ4t8 +X+fqcoAj3tvmO8ZGxcQrofs1OJBcmnN5cpKNrQO75z+S4kD2hXmu//vNxj1j +de1BIhwo2udscHaajacqOu02/w0DSvkJfcsMG4+qBqcKjoRB5eiKqdlZNuo2 +xHObPofB/wGw6YVA + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08079417204601799}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08079417204601799}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0VW0bBnAlESmS+UykDCl0UjTdd5IUqURFMmWKkgxlSAOOI5mKzGWO +CDlnq7dPyVQ0oFDJUCENisRrKvE97197/dbaa++9nv1c1/0oOZ40d54rICAg +OEdA4L/r9XOO83Wc0raUtfS8WacIW+paWaYHWQFgMbSR/U8EDWafVIayWJfg +Y6wT3T9CE65XRTOFWCnwnZMcti9iExzf7HdignkLILtLQCXCFFr/uCUMM+/D +42mRo7lcGxDu7FUdZD6Fxq1311dzjkPWs4xT35nv4N7teodt585CSemlzuOr +B6DmfmLtkZhocIVXKT+8RyEvKdU36sU18OxX76NKpsBxwtag4GI6iCqFqX7Q +E0DL1oZu1dosiJF4rpFlL4is1Me7S/pywbHT4pHgi/k4peis/lamAE49DnM8 +qSqKum/sdmUKFkGZ18L9cjvFUbdl+0AItxiygjwGtA9KYKRtg2KNwB0IyZje +9+8PSSyatexpEikDgdaP+CBQCuVjysY5P8og7FtlVuBFKbQ4Uf6ONlwGCwSu +z9WPkMI/UXmuZaNlsGSVVV35NSksEw0Obf1dBsu5r3aU3pFCo2Ph5X9EeLBr +Y41Z9mcp5Kdcae9U4UF8To5NhPlSDL6r0/POmgcrfF38LTSk8X/N3Na6RzxY +teHD/gxtaezeOfL6Sg0P1goc0hpYJ43pOvcbbB7zwCBq5+fz26RRS592/scz +HtjmaloU2UijYdDlVaOveZDYNqI1N1YaCwq+hl3/zgMh3fNfSkel0Sa3pdlZ +mg8L/0zU/J6SRm3hqsfDsnxYUu11Y7uADB7MfVgYoMAH1m5Hy86FMpif376V +w+TDJufttfNXyGDZn5W5oep88L0mlnHkkAzGHvBYT9/Mh09jSQfEHsrg0lcB +6bWOfMjeyvbprpXBnV8lT2925oNddFNs6TMZHO637aVc+dChIvR0f7sMNlps +9kk/zodX+703po/K4PsfWmfMTvOhssyUtUpDFpfb3Fqy5RIfkk7MGTBLksW5 +PxOFTYv5YHE/fb7SDVkcEbXd719Kvl9Ib9loriwWuk6ws8v4EJPuaZPEk0Vb +JSFqqJwPYc87mz40ymLJemeeeyUfvNTv8r3myeHp3tiqoSY+7Op3D756Sg4n +rQ/OqA7xwSh42W1DfzksfJpjP/OTDwbSXR3j5+QwYFDGu+UXHzZs3613OEoO +I2MW5PiM8UEjT2t0Wb4c2ok5bk2d5oOY879u5V3Eglbx/qIUvPgUbNG+Qx7H +juVXBqpQ0HB2XWikmTxGNeQdFF5BQd3Sn2WbLOWxvONI3hVVCh4Y2i/OcpRH +1Y6ndhkaFNzONXh2LFgefQb2HMjQpiDaSRj/8OTR5Z1LgM4mCsw+xa1kMBQQ +DWdVM/eR96381GajooAJe48LN5lTYOKz/lyahgKuems1NLWfAuO571/KrVfA +t54RrSYHKDBgrTwttVcBe0IF57RbU6Br87hKJEQByyt+yF49SgGVI+e+I0IB +l7/OjMh0omDNdw+p8BgFtH+N84qdKVgduMRFME0B1/ao06tcKVBLthOb4Sug +1IrxziYPCmhtU5aj/Qooc51ZHeNDQari7lmdHwrYRls8HexLgfzRzAKvEQUc +YmRv9/CjQGbE6M/gjAKOtBQK4RkKJCQSMr/KKuLrgyxsCaRA0HT19+6disg6 +YfUm5SIFIfEXE2h7FfEfppa8ewgFAp1tmw8fUEQ370JPvVAKpo8FxbU7KuIO +Trp5cxgF49wG3dYgRRSiNwh95lIwUOt4oaFYESN6JyzuRVPAvNLuHkMpYtUx +qVdnYiiwsDWztKhQRF3nfvF1sRRUTuprfGxQRGpQ9nlRHAVXV0m2TfQp4gyr +4sjZeAo2Jj1SVVWg4ekjh3R5yRR4OekuGWTRMFRd96tZCgU3dYqmeao0/Gya +5fCNWOJF4qstujS89rfwlmwaBZ8EPIMO7KXh1zjtFKvrFES505o54TS0oGeY ++mRRUL3+6n2TaBrqKqcl/iAenyeSK5lAw6sdtsVHsymwzxj1v55Fw/Pb2w1M +cihY2/ZMufwBDQPN++QE8ig4loXiQbU0/N899zZX4huedyfwGQ1nv03aNRKL +LMh+8eIted6il1+v3KSge3PA6U8jNOzNW9AoUEDBErGf9oVTNORsdV56kNi4 +3cnES4COAXF0rSJinvde1rQ4HaV+WH40vUXBF3giWrOUjmaFpWdSiWnim8a4 +inS8cU7+Uz9xeL7qMyl1Os5ktm0+XUhBhe916p0WHdPd5mpWEA9vlcrIWEfH +ZfpTw3+JrbtmfFYa0nEtNSMQXET2n+Qb+jY7OqZw87Y73Kbgc/TnkGvOdFSr +bb52hfi66MSXLx50lIgRF64iXjhPjhflT8e369eZyRaT/F1Qk/1wjo7dgx0q +SBz0V++sDoeOhj3zGa7EA+NWRm+u0JE+4x5QSpzt416klkxH6wV2XS+JrYYD +JYJu0HGHtPnRYWKJE5f9GnPpuLA8e9GiEpL3b2kdzCKyPg9K36sTn3e5Dd5l +dOyD9tZtxOv6HuTW3aPjvISgocPEQ3aNC2Qr6diye2q1N3FeV7fnsTo6ehqU +XQsntrEaaq14Rsf+cMFlKcRL38zoLXpFx1Vee9/eIn5uvviG/Vs6Dlyd5P1D +HNLMFOR30/Fgrc3dx8QbTLXdhD7RkSH9vucl8a8GbDw4QMctnd26HcQF2/et +KRymY1f+Q14PsX2NQ9L0OB1VTD8c+kIsB97TZn/J+rfnqn0nbq4IccgSZGBv +qpfyIHG4XvyT0QUMvKmUZ/Sft5TnrDSSYGCAXt61/+4f16HikmUYWPqtdfFX +4uKSurEBGgOfByeU9xI7rXxtvXkZA08E7eJ2EtMK+h/FqjNQJd+K00LcpjKu +0qvFQFPBFXfqiS9nzY9cu46BX5qlRCqIDRiyP8M3MTA8kht9m/h3qqrFOwMG +Kgz1YzoxT1bv/sqdDGwfiVeOJD6WYMw4t4eBYk3ja04Tt0cf+6psw8A28VM9 +xsRxooG7/RwZaC9ucUGLeAc3klfvxkAB+dA9S4nvXig6e9yPgUtV7C60k/9/ +4m9FT2UQA99kveu9R6wS+MJIMoSBUmobz1wjjvcZlLgbw8Dl7/euNyHeNfzX +T+QaAzd5tB1dRjz3xKJO6zQGilR0106R/erlopU3m8/AvAFlVhaxWh+Impcw +UGuuNt2b+IPd3pO5FAOTTJz3bCU2szqlv7OarL/7oEUHycf8NxdvpNUzcK6Z +lHou8UPzq4JDjQw8dE547XFiTVN+49UOBro5Cg6Pk3yJwphD1yiD9NWI2ATJ +p/9WNZG7vxnobzv2+jbx522HS2LnMLG5m3XZnrjGuPq3wWIm2hvI3K8m+Q80 +j46/pcHEw55X13jkU/DVoko/VIeJJSmDThLEBw6OfrDRY6KCSF04n/TLGhsr +TQkjJmp+k0wbJf3z3Xn549MOTIyVjpY+nEvy7nbIY68bEz8lKrb+JH3W4H5Z +UuMkE5lxl8NCiHNP/jrSfZaJHdnGj7NI/9kEPBzflszEybK2xvpMMg+jLNUk +m5m4dmBJAC+d7P/YiKaB10xcsG/y3grigisVvnVdTNyQVDuaTPo3LFGp+swA +E91eHnA6k0oB4+W45s+5LGRMRunTSJ+/eVfz2JLBQpwjsm4+6Xvxw13JNUos +vMG/FWF9lQLDrjEPreUsLPYJ7rl9hey392pLFmiykJ8jW2BC5kVMX4ztA30W +duwqTjlF5s2OQesJZUsWBpgOxduReXRjaWjr+UMs9H9buyM5nIJ/NxaVdh1m +4Re5rfRmDgWZkX9cEx1ZOMM5p7WezLPfquntC7xYeDdaZc6vC+S84Nh9fziS +hTWXOzvEyLyUaLc7W1nFQt/AJxd73SlwmeUeUqxjoZBy8uWPx8h5Y8Wdtf71 +LIzQeP+0y43kwU9gUKeJhYujtT43u5D/uyTrSF4nC20jXpRkOlLgu7t3S9Q4 +C7fcrBUetCJ5qXGaY62phKEnWpV0d/zX1x0KwVrELdfEJIwoEK7eszZzjRLq +i/ie/mZI+u7RBtfPekpIXYp6lWRAQUKFRKP3diVcvcy7qHczBXuoB8mXbZXQ +42Kuvc5aCp7kLdV+GKeEX71Njt9lUlAeUWfLGlPC+as/7Dk7woeCXc/luJNK +WG0vptQ5zIfUhS0tg3+U8FZSykE9cn67EPfBqGKuMu7ZmjYx+J0Ppsm/Vx+Q +UMb3FX4yRv186M3Xnr28UhkHb4q7F77lw6L69IwJB2U0n5zdZlzBBxchv49N +TcooKKQzT+AcH456B5UvTF2G/K57XWHTPNByXdlk6qCCX8y5ooHHedC8RFPM +T385Wja4+Jc9KoOKkpA0TcEV6Mf19nKTLIOgORp7X3SvQC0LTqLQzjsg2hVo +7EmpYlb6Jafi8RLov6mUkHFWDY1zE7TjPIohQU1+3n1LdRRUWBNpfq8I4lJd +6h1YGuiwetvGLlohWCccaVr4RQMrS19XDkcWwKRh3lRG5UoMM+dafey4CX39 +Bv41XE3cL3DrSKRZHmRv1lFsdFiFEJthtKkoB4o5fpKuq1ZjKTQfqdbKBq7l +URPBsdXo5PJStLshE3S7sm5xG7XQr37WcCz/BiSrpxU3mmhjramig75kOpyv +ik42ua+NwrLNt44fS4HdipZ5z1R0cMOs6+/t44mw1bP+sOQlHbzzNbvr+6sE +yKA5qrwY00H7IcN78flXQaU2P9Hs8BoUdOvlpNTHQdyqGo2WyjW4zDzphpNq +DLiMznv1VION7v8uN1atjgTHshHWpVg2Su3+Y/bwHReOh+yf3nWFjXURScaH +Grngt596uzCejRdffV87WcWFiDG/mLhENm43edFjVMCFEv2pP0nX2ZhkWOXF +PMOFqerZNzeL2Fg0fTHsgTQX4loWRtfVs/Gb9j8+GQfCITXnhFv4UzYe8lBv +fbMrHHJ8m7YZP2fjpRXD86QgHO7KxP1+3sRG2VCLzhTVcOiylnJrfc3GxZe2 +rOuZ5IBqn/y23j42Ps44dd8ynQPaVCAjt5+NUUdCq97FcWADp3PK+QsbVV2k +LzlyOGCqev3OtwE2Vu47Yx3iyQFvDxbj1y82pm4y/vgbOXB208Up3igbJ4t8 +X+fqcoAj3tvmO8ZGxcQrofs1OJBcmnN5cpKNrQO75z+S4kD2hXmu//vNxj1j +de1BIhwo2udscHaajacqOu02/w0DSvkJfcsMG4+qBqcKjoRB5eiKqdlZNuo2 +xHObPofB/wGw6YVA + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08079417204601799}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 20}, {0., 0.08079417204601799}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}, + 3.9920874705918217`*^9, 3.992094096016508*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"bcdf045b-0488-b741-b71d-bf8650035540"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{ + FractionBox["1", "2"], + RowBox[{"(", + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"Cw", "*", "\[Pi]"}], ")"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{3.9917953353381157`*^9}, + CellLabel-> + "In[106]:=",ExpressionUUID->"982133ce-0d36-4d45-a387-ff35350b5cb9"], + +Cell[BoxData["22.63949124283988`"], "Output", + CellChangeTimes->{3.9913229040054893`*^9, 3.9917087761038074`*^9, + 3.992087470625908*^9, 3.992094096051859*^9}, + CellLabel-> + "Out[106]=",ExpressionUUID->"547eade0-de49-9f40-ba2f-67866f7de0f2"] +}, 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.991795437556492*^9}, + CellLabel-> + "In[107]:=",ExpressionUUID->"90b7f5f1-808a-1b4d-aa45-edfd6d6a25f8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.265679998435527`*^-274\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 107, + 186, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9, 3.9920874707988853`*^9, + 3.99209409624082*^9}, + CellLabel-> + "During evaluation of \ +In[107]:=",ExpressionUUID->"b98a9dbc-c8b3-b746-8477-e4134f91c4ce"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.096203614206159`*^-287\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 107, + 187, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9, 3.9920874707988853`*^9, + 3.9920940962508183`*^9}, + CellLabel-> + "During evaluation of \ +In[107]:=",ExpressionUUID->"630f9697-d264-064a-a1ec-a13f7ad7c6c1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.935522410406355`*^-300\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 107, + 188, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9, 3.9920874707988853`*^9, + 3.9920940962588215`*^9}, + CellLabel-> + "During evaluation of \ +In[107]:=",ExpressionUUID->"b60774b2-bbba-4045-a22f-27d1acee818a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 107, 189, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9, 3.9920874707988853`*^9, + 3.9920940962678204`*^9}, + CellLabel-> + "During evaluation of \ +In[107]:=",ExpressionUUID->"16a4b044-59e5-aa4e-b8c8-7aeab06c5c31"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk8lF0UB3BbRSJUlkghkmVmnmcma+OeKIWIUBQR0iayJNKCCtmKiiHL +M4XKLknK1iq9bZaQEEkRkSzZvbe/5vP9zMydc5+595yfgovXzgN8PDw8S3h5 +eP69jnfUPl8blWHQ7+4wuUp+jUFjmnTgppZQtDN3q1tz3KwBrHjvIt0Sj/YU +VaolxIkgf8vsZv6Wmyhec8tPn7hVSHxQKn6y+R4yU9/0eFecJvpSbuE12vwU +/U7oOSQfx0bGa3+2DzfXI345v932V8zRZLP29d/NX1Hx3RxH6xhH9Mzodkbd +zRGkU8hvH1LhieS+lH130ZhFuTmqVdQLf7Tcwyl7kRE/pGyLjR4dPYPiCePH +FraCkLZ/o1BgfSj6xGFUD4uJQJbrd4sJuzAUlXHuPZ+MODgiPlNvyUgkda37 +0tXUZXD8neVt1+wYFG5jYlA/vgKUqy8NGPpdQb66XKfaUGlYHVjlWLguHm0e +mjrl2b0Sah9H7aUXXEUhG632r9RZBdemm040rb6O9PKT7p+tWg0C9LDK6tQE +5DExHPxKRAGyUr6JMH4nokl1sQ5NW0Uom6XqLpomoY05uVRCghJQxuZbeyKS +0bCEqfOup2uBSy6waky9gb5FO+/yWaQCIfKivC+LU5DJ0EmTHq114BV1e6qA +m4oGXAV9759ThZS0yUW3otLw85TiC3+6Htga1yf77NKRxFuV2MIhNVh9zMFX +n5dCchEFllpaGrC38ey+dVYUys7PezappwHtM6JsvZ0U0vmYo1WBNMBg51LP +7dYUslG8I7fZRAOcez1rPG0pFF1O9Vo5aECbuLhdjj2Fpn/HBR8L1YBKJcNR +fhcKtdr7FWa80wCnXdUbmD4U4qjrii07qAm7nzgPRl6hkK3Z2yuVRzVBNaiT +1zOOQhJH94sfOa4Jefufe1nGUygq+5LEk0BNOC1dt2fZNQqdXd+63CtaE0xo +OZ5xiRRyWxck81+RJnxbMxDvmUYhQqlC8fyMJsxJSczk5lBo0NDqFo2XBteL +cw4F5eL9ufQotS6gga1dMMMkj0Jrb4ooE0tpoG86Ufc1n0LSCvvWfVGgAf/3 +EQfRexSak59X199KgxXyz5OMH1Lo9cpNG0biaEDTon3Xf06hD/IFKgKJNPAy +igpf8IJCTYqrpFek0KBGR/3QO+wutckprSwa/BV3/uFYQ6EJvaLqU49oYM3T +1OH7mkIqexW283XToEDx2+OgDxQKvcHrKs6iwzGenuDpzxSKSPeyUdSlQ6yZ +iEJeG4Vib7VvYRrQ4ZXjKO++dgol5ZSp2m6jQ3o3EVbRQaHCx96DHAc67Cyv +T/LtolDH567ANRfpcHdSZvLxdwrpyT29Qm+iQ/jRobGK3xT6qrS2o6+VDhWC +02HmwxS6pB6mnvGFDkZhwz5t2C16pi+l++gwwPtu78QfCp20r5/mnaGDtvFl +H9UxCu0x82b+FGOAQWdm5eFJCiVEhKSVazEgS6JaxZuXi45Eky9kdBlwuC1B +YwDb4Ep3v78+A7qsvsa683FRT+IWXQIYsEZQ+LA9Pxexbgs1Zpow4J6O2Ant +BVxU/yJO6LIDA+J4Pf82CnKRKP9Nv/2hDCAk4/gTlnLRwskq6+ELDBBuT9yy +QIyL5gbbyZBwBsScDq71xR5qlRmmohmw1AwlWohz0Yd7ccc6E3A9Cp7bpyW4 +KN4lxN0phwFDHfGahCQXRdqlbxnKY8DtWMOEa9ihFhVrzxUyQEZgatNfbF+9 +ya9pJQz4GvSfyyMpLrKR8HbqqGLAVaHFb7RluEjyqbOdYyMDdCKyzZfK4Xof +ntX+1cQAkeYnQ+7YC/NTJM98YkB94rKmCuy/SS2NKR14vfr7XodXcVGLt6VV +Wy8DOjNWfCqV56JkBTDdO4v3g0quEwq4Xql96/vnGfBMteLCGexIkdOCQXwE +NJYYlL3CDposfZm8iIByHZ4RB0UucqijG7WKE/BrpizntBIXyYes3mivQoCg +t8zmJGUuyvcVVGxXJcBvKuBwC7aB+/Ci/eoEiL+3bJNU4SJHs2cNhxgEFNuU +Zcdhp6w4eDRAjwD6amrg7DouksnOT060IODT7SBJnfVcdCclMVjWioDmvU1y +Htg6l4Pd060JmLEc9E7HtvPbSd62I0Ct6o6ggBoXJRiM1z5wIeCndczP59jL +G9iTH/0J4D/lHq+swUUZL1S+2AcS8PbYvlgLbObDpS/agwgQS3Bt9cfemdp1 +pSeYAKWZny4vsOMOXlQdiyQAnhjr7NHkojV7PEUDYwjgK+QpPYNduH336Mxl +AgJafcMo7A/E+mqB6wRoFbVJfcMWnXmze3k6AaXOKxe50rgobbCEzeESMNs2 +LxKCTetKU5LLIOC8sbl7Grb5y+NDSncJWMIfINyMHX1leTizmICuvQFqQOci +ufOzHqUl2IRglR12zonvO/UfEtBqUpR5HPv1nofyRhUE8BTdOZyGLaTs8GBn +DQGjj6l3w9hHZJBpTi0Bl7L+FPEz8OdFFDv43+Dn2XB9bjl29PiPBSUfCIi5 +JtO4AXvg5+skkQYCqoVWO27BNv+Sp+n+kYAfF6t22GCLvvK1lWrF/0+urM9x +bM/yXX1ebbi+kzPcM9jvC3XPvOog4FDkU/1I7CtJ8xmB3QTckDXJ42L/jvmq +U99DgNcE7WIutlXoizdqvQQIf9pc8wBb4mjU6OcBAlIemEXWYvs4eUawhgiw +2OEiXI/dYG0lFzNMAKE0Ov4Jm7WNVdgzQoDpsuXmXdjXNkptNhgnYKvgR5Fe +7DHGVHPCBAHH/5joDmLvUm4/OjRFwKPai+9HsB/IVM9vnSXgdsyNDxPYUqK3 +rlLzBLhuSds4ix3AF7ZukpeEzHlqGS+B79f4ocdWAiS8qH9gK4Ct22+2I3sh +CXfa/vAtwk7+QuvmEyKhxvCQrBD2VIP4yb3CJKwl1dIXY+99Nbr4vggJll/M +YoWxy8ub05aIkXAgrLP3n+WKHpEHJEjgOzqd/8+nM1NfViwnwayloPPf99uT +gvdISpHQuUb87L/1DWJdBz1lSPiRRob/+/20UOPQGlkSporXzfyrb85/veQa +eRKYtfzt/+p3OrokO2ANCXI7WtfP4f1VOw2x6xRJKK+o/DqJvcamvm69MgnB +154vGsMO3lZyIHQdCaZ75jlD2F0bOZOt60k4khqa0IdtSATFMDVISBjZz9ON +fVN5n0I0jYS+ycKmz9j8KzeVfGOQ8N3mvEwjtpvoWhM2kwS/woFX/2Er/+07 +PqhNQjK74VgZdlj/G4GteiS87T/pWoD9/UsBJ30jCaVX+V5mYN95daLachMJ +0Stl6mOwBSvsbO4a4fcL3wSFYB8u0u/lNSZBoKAk3g9bLZlXrNiUhP9unhS0 +x46M/XZL2JyEN5cCDppi94fWaLvtIIG3fI6pj517NMZphQ0Jv1j9K2SxaWyZ +gpOOJER4n5xvwPepWOnwNJ8zCV1xMuuqsHUWl22NdcH73aF96y62YbNdZ8ZB +EtykzZNOY+/y5ojXe5NwV/3huZXYn3f3Ojr6kZCzWcSCB9vZQCe7158Ej695 +3j34/h8RbjGcDyJBZ49eWR72uUwpP40wEvxXO23XwhaIPlhdGkHCrrnBGkns +SJ/SJUZR+Hw9Tkkax/3nGtqdaX+FBKvix+g+9p1PCU1hySRoTA0mrfvXr0Qk +dbvySaAzLqYOqnOR7eiBix5F+DwkeIU/x25tLan7W0zCradKtUnY327bHhEt +IyGsxNbGEHti0/Ub+s9I6Jhsjo7C/VbBf/nc9WYS1CxYaXOqXJTl4Gaq0ErC +zayz4q+xNYzuJ+S2kUBKbuu4hq0lZkN/1oXPW93LC6rYptlXnX/3kzDTGiS4 +Dc8Dnw6JZ6Y8TCiZVuQ/hOfJq5cOFdl8TLjkm7FDE1u+IKt08QImyKvEL/mz +Fvezc3q5r4WYcI1PtCUQW1HB5brpMiaQ54UfhuJ5VedadNBUhQl+QzsLA/F8 +Y/TtWGK6nQnit2WUZ/H8DKtLWphtwYQNectzC7Hbyrp5FlsxYeCVe5YrdkTk +ybFaWyZssvQaq5Hlok719A4TJyZcOJY7f2kl7m+eg4UmPkxYIv/00wie50Mj +0bYmHCYMF85ud8L5oK2Fuys1mQlLKye28mO/rniweziFCWHCeZVZOE9khHfa +J3GZsONL6uoBnDf2yLL29WUzYfa76r3jOJ+8MPzsfqmCCYpH9Wj7l3DRjbj1 +AbVfmZDuKq3SifNNhL9B4KoeJrxp8Hjhi+2/1/qU9w8mRHMPdS/EtlQ+c1pm +gAleZ0tuqAvg/FD2IfjwGBPenkY8Xjg/eXeevCQkyIKmk/N57XMU2kp/mWyi +yQKuT/zmvX8pZLdwm80HOgu81q7Y3jhOoSPttSK7SRbo1n+q3I4dG/U22E2b +BSp/Mr/r4zzX9KPR/dwmFizzum+4bATna6qbLLFlgWemzLasQZxPxXn/W3OW +BZblLW77eihUOaI//fcdC95pl3atqqMQ902pi3UdCy6ftqGfxXn2QibzdX4D +CxaaHeHreE8hk93qSQdaWHBj5LBuyjsKNT5aqd3QxQLy6K1fEm8o9DNk0id/ +lAW0Zw5hfS8pJClW+tNt5Qbw6LrP2lhOIU8NsrXuwAaYziw9fiaTQuxBt0Z7 +IS1gGhcLCnpSaMtaaXORm1pQUu6zT5RJIdXgyICn2towtjLgbV9POlI7oFul +3KoN9w7uKmw2T0cHKg9duO+tA/PFt04U3k9DVVSj2/AKXThMvDVL4U9Do3fm +/9JLdSHmyWrDLLNU5KqcI5RsrgeZch7jApwUNKx2Vevebz041hGsf/XtDfQw +Y7prLEIfmm9FPbNffAPt2awE+vIbgUO5WS8yTkayx8LLaNUboVOb7D7lkYRW +LPYoMt/Nhk9qPzjSaRyUYXTm1G97NvQKC/4KSOYg8kys0VUHNoj+6RX7lMBB +Fr8LP7bsZ0NB4IJazmUOCmsam3T1YIOj234+yRAOmrh5zvBUCBust+g1L3Lj +oFb9qw1ZOWwotT018no9Bx06kZFiks8GNefrNcoqHDSeX3JgoJANzjs1/YIV +OUhCseUv8YAN+xR6d2+Q5SAzwVVyFdW4nv5lVqlLOKi8Mcut4SMbluZ7GLsP +JSJT0Yea/i1sWFbJeVrZn4hattaOS39mw/TpaFmp3kQ0+qg/Yl8nGya+fXar +6UxEmlxGXt9PNlQGxDio1Cei8tZN/tG/2CAfeOTlmXd4veXWiP6bDdoX6Es/ +vk5E7uEn6vzG2CD3I9jg/DO8XnVYstQEG5SLrym3ViWi0KlE10dTbNjvkz7A +KE9EYqy7Go6zbPhS/u1q+MNElHbs0dj8PBvm5O7IdtxPRP8DGbGGLQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8lF0UB3BbRSJUlkghkmVmnmcma+OeKIWIUBQR0iayJNKCCtmKiiHL +M4XKLknK1iq9bZaQEEkRkSzZvbe/5vP9zMydc5+595yfgovXzgN8PDw8S3h5 +eP69jnfUPl8blWHQ7+4wuUp+jUFjmnTgppZQtDN3q1tz3KwBrHjvIt0Sj/YU +VaolxIkgf8vsZv6Wmyhec8tPn7hVSHxQKn6y+R4yU9/0eFecJvpSbuE12vwU +/U7oOSQfx0bGa3+2DzfXI345v932V8zRZLP29d/NX1Hx3RxH6xhH9Mzodkbd +zRGkU8hvH1LhieS+lH130ZhFuTmqVdQLf7Tcwyl7kRE/pGyLjR4dPYPiCePH +FraCkLZ/o1BgfSj6xGFUD4uJQJbrd4sJuzAUlXHuPZ+MODgiPlNvyUgkda37 +0tXUZXD8neVt1+wYFG5jYlA/vgKUqy8NGPpdQb66XKfaUGlYHVjlWLguHm0e +mjrl2b0Sah9H7aUXXEUhG632r9RZBdemm040rb6O9PKT7p+tWg0C9LDK6tQE +5DExHPxKRAGyUr6JMH4nokl1sQ5NW0Uom6XqLpomoY05uVRCghJQxuZbeyKS +0bCEqfOup2uBSy6waky9gb5FO+/yWaQCIfKivC+LU5DJ0EmTHq114BV1e6qA +m4oGXAV9759ThZS0yUW3otLw85TiC3+6Htga1yf77NKRxFuV2MIhNVh9zMFX +n5dCchEFllpaGrC38ey+dVYUys7PezappwHtM6JsvZ0U0vmYo1WBNMBg51LP +7dYUslG8I7fZRAOcez1rPG0pFF1O9Vo5aECbuLhdjj2Fpn/HBR8L1YBKJcNR +fhcKtdr7FWa80wCnXdUbmD4U4qjrii07qAm7nzgPRl6hkK3Z2yuVRzVBNaiT +1zOOQhJH94sfOa4Jefufe1nGUygq+5LEk0BNOC1dt2fZNQqdXd+63CtaE0xo +OZ5xiRRyWxck81+RJnxbMxDvmUYhQqlC8fyMJsxJSczk5lBo0NDqFo2XBteL +cw4F5eL9ufQotS6gga1dMMMkj0Jrb4ooE0tpoG86Ufc1n0LSCvvWfVGgAf/3 +EQfRexSak59X199KgxXyz5OMH1Lo9cpNG0biaEDTon3Xf06hD/IFKgKJNPAy +igpf8IJCTYqrpFek0KBGR/3QO+wutckprSwa/BV3/uFYQ6EJvaLqU49oYM3T +1OH7mkIqexW283XToEDx2+OgDxQKvcHrKs6iwzGenuDpzxSKSPeyUdSlQ6yZ +iEJeG4Vib7VvYRrQ4ZXjKO++dgol5ZSp2m6jQ3o3EVbRQaHCx96DHAc67Cyv +T/LtolDH567ANRfpcHdSZvLxdwrpyT29Qm+iQ/jRobGK3xT6qrS2o6+VDhWC +02HmwxS6pB6mnvGFDkZhwz5t2C16pi+l++gwwPtu78QfCp20r5/mnaGDtvFl +H9UxCu0x82b+FGOAQWdm5eFJCiVEhKSVazEgS6JaxZuXi45Eky9kdBlwuC1B +YwDb4Ep3v78+A7qsvsa683FRT+IWXQIYsEZQ+LA9Pxexbgs1Zpow4J6O2Ant +BVxU/yJO6LIDA+J4Pf82CnKRKP9Nv/2hDCAk4/gTlnLRwskq6+ELDBBuT9yy +QIyL5gbbyZBwBsScDq71xR5qlRmmohmw1AwlWohz0Yd7ccc6E3A9Cp7bpyW4 +KN4lxN0phwFDHfGahCQXRdqlbxnKY8DtWMOEa9ihFhVrzxUyQEZgatNfbF+9 +ya9pJQz4GvSfyyMpLrKR8HbqqGLAVaHFb7RluEjyqbOdYyMDdCKyzZfK4Xof +ntX+1cQAkeYnQ+7YC/NTJM98YkB94rKmCuy/SS2NKR14vfr7XodXcVGLt6VV +Wy8DOjNWfCqV56JkBTDdO4v3g0quEwq4Xql96/vnGfBMteLCGexIkdOCQXwE +NJYYlL3CDposfZm8iIByHZ4RB0UucqijG7WKE/BrpizntBIXyYes3mivQoCg +t8zmJGUuyvcVVGxXJcBvKuBwC7aB+/Ci/eoEiL+3bJNU4SJHs2cNhxgEFNuU +Zcdhp6w4eDRAjwD6amrg7DouksnOT060IODT7SBJnfVcdCclMVjWioDmvU1y +Htg6l4Pd060JmLEc9E7HtvPbSd62I0Ct6o6ggBoXJRiM1z5wIeCndczP59jL +G9iTH/0J4D/lHq+swUUZL1S+2AcS8PbYvlgLbObDpS/agwgQS3Bt9cfemdp1 +pSeYAKWZny4vsOMOXlQdiyQAnhjr7NHkojV7PEUDYwjgK+QpPYNduH336Mxl +AgJafcMo7A/E+mqB6wRoFbVJfcMWnXmze3k6AaXOKxe50rgobbCEzeESMNs2 +LxKCTetKU5LLIOC8sbl7Grb5y+NDSncJWMIfINyMHX1leTizmICuvQFqQOci +ufOzHqUl2IRglR12zonvO/UfEtBqUpR5HPv1nofyRhUE8BTdOZyGLaTs8GBn +DQGjj6l3w9hHZJBpTi0Bl7L+FPEz8OdFFDv43+Dn2XB9bjl29PiPBSUfCIi5 +JtO4AXvg5+skkQYCqoVWO27BNv+Sp+n+kYAfF6t22GCLvvK1lWrF/0+urM9x +bM/yXX1ebbi+kzPcM9jvC3XPvOog4FDkU/1I7CtJ8xmB3QTckDXJ42L/jvmq +U99DgNcE7WIutlXoizdqvQQIf9pc8wBb4mjU6OcBAlIemEXWYvs4eUawhgiw +2OEiXI/dYG0lFzNMAKE0Ov4Jm7WNVdgzQoDpsuXmXdjXNkptNhgnYKvgR5Fe +7DHGVHPCBAHH/5joDmLvUm4/OjRFwKPai+9HsB/IVM9vnSXgdsyNDxPYUqK3 +rlLzBLhuSds4ix3AF7ZukpeEzHlqGS+B79f4ocdWAiS8qH9gK4Ct22+2I3sh +CXfa/vAtwk7+QuvmEyKhxvCQrBD2VIP4yb3CJKwl1dIXY+99Nbr4vggJll/M +YoWxy8ub05aIkXAgrLP3n+WKHpEHJEjgOzqd/8+nM1NfViwnwayloPPf99uT +gvdISpHQuUb87L/1DWJdBz1lSPiRRob/+/20UOPQGlkSporXzfyrb85/veQa +eRKYtfzt/+p3OrokO2ANCXI7WtfP4f1VOw2x6xRJKK+o/DqJvcamvm69MgnB +154vGsMO3lZyIHQdCaZ75jlD2F0bOZOt60k4khqa0IdtSATFMDVISBjZz9ON +fVN5n0I0jYS+ycKmz9j8KzeVfGOQ8N3mvEwjtpvoWhM2kwS/woFX/2Er/+07 +PqhNQjK74VgZdlj/G4GteiS87T/pWoD9/UsBJ30jCaVX+V5mYN95daLachMJ +0Stl6mOwBSvsbO4a4fcL3wSFYB8u0u/lNSZBoKAk3g9bLZlXrNiUhP9unhS0 +x46M/XZL2JyEN5cCDppi94fWaLvtIIG3fI6pj517NMZphQ0Jv1j9K2SxaWyZ +gpOOJER4n5xvwPepWOnwNJ8zCV1xMuuqsHUWl22NdcH73aF96y62YbNdZ8ZB +EtykzZNOY+/y5ojXe5NwV/3huZXYn3f3Ojr6kZCzWcSCB9vZQCe7158Ej695 +3j34/h8RbjGcDyJBZ49eWR72uUwpP40wEvxXO23XwhaIPlhdGkHCrrnBGkns +SJ/SJUZR+Hw9Tkkax/3nGtqdaX+FBKvix+g+9p1PCU1hySRoTA0mrfvXr0Qk +dbvySaAzLqYOqnOR7eiBix5F+DwkeIU/x25tLan7W0zCradKtUnY327bHhEt +IyGsxNbGEHti0/Ub+s9I6Jhsjo7C/VbBf/nc9WYS1CxYaXOqXJTl4Gaq0ErC +zayz4q+xNYzuJ+S2kUBKbuu4hq0lZkN/1oXPW93LC6rYptlXnX/3kzDTGiS4 +Dc8Dnw6JZ6Y8TCiZVuQ/hOfJq5cOFdl8TLjkm7FDE1u+IKt08QImyKvEL/mz +Fvezc3q5r4WYcI1PtCUQW1HB5brpMiaQ54UfhuJ5VedadNBUhQl+QzsLA/F8 +Y/TtWGK6nQnit2WUZ/H8DKtLWphtwYQNectzC7Hbyrp5FlsxYeCVe5YrdkTk +ybFaWyZssvQaq5Hlok719A4TJyZcOJY7f2kl7m+eg4UmPkxYIv/00wie50Mj +0bYmHCYMF85ud8L5oK2Fuys1mQlLKye28mO/rniweziFCWHCeZVZOE9khHfa +J3GZsONL6uoBnDf2yLL29WUzYfa76r3jOJ+8MPzsfqmCCYpH9Wj7l3DRjbj1 +AbVfmZDuKq3SifNNhL9B4KoeJrxp8Hjhi+2/1/qU9w8mRHMPdS/EtlQ+c1pm +gAleZ0tuqAvg/FD2IfjwGBPenkY8Xjg/eXeevCQkyIKmk/N57XMU2kp/mWyi +yQKuT/zmvX8pZLdwm80HOgu81q7Y3jhOoSPttSK7SRbo1n+q3I4dG/U22E2b +BSp/Mr/r4zzX9KPR/dwmFizzum+4bATna6qbLLFlgWemzLasQZxPxXn/W3OW +BZblLW77eihUOaI//fcdC95pl3atqqMQ902pi3UdCy6ftqGfxXn2QibzdX4D +CxaaHeHreE8hk93qSQdaWHBj5LBuyjsKNT5aqd3QxQLy6K1fEm8o9DNk0id/ +lAW0Zw5hfS8pJClW+tNt5Qbw6LrP2lhOIU8NsrXuwAaYziw9fiaTQuxBt0Z7 +IS1gGhcLCnpSaMtaaXORm1pQUu6zT5RJIdXgyICn2towtjLgbV9POlI7oFul +3KoN9w7uKmw2T0cHKg9duO+tA/PFt04U3k9DVVSj2/AKXThMvDVL4U9Do3fm +/9JLdSHmyWrDLLNU5KqcI5RsrgeZch7jApwUNKx2Vevebz041hGsf/XtDfQw +Y7prLEIfmm9FPbNffAPt2awE+vIbgUO5WS8yTkayx8LLaNUboVOb7D7lkYRW +LPYoMt/Nhk9qPzjSaRyUYXTm1G97NvQKC/4KSOYg8kys0VUHNoj+6RX7lMBB +Fr8LP7bsZ0NB4IJazmUOCmsam3T1YIOj234+yRAOmrh5zvBUCBust+g1L3Lj +oFb9qw1ZOWwotT018no9Bx06kZFiks8GNefrNcoqHDSeX3JgoJANzjs1/YIV +OUhCseUv8YAN+xR6d2+Q5SAzwVVyFdW4nv5lVqlLOKi8Mcut4SMbluZ7GLsP +JSJT0Yea/i1sWFbJeVrZn4hattaOS39mw/TpaFmp3kQ0+qg/Yl8nGya+fXar +6UxEmlxGXt9PNlQGxDio1Cei8tZN/tG/2CAfeOTlmXd4veXWiP6bDdoX6Es/ +vk5E7uEn6vzG2CD3I9jg/DO8XnVYstQEG5SLrym3ViWi0KlE10dTbNjvkz7A +KE9EYqy7Go6zbPhS/u1q+MNElHbs0dj8PBvm5O7IdtxPRP8DGbGGLQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.03357732026803432}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.03357732026803432}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8lF0UB3BbRSJUlkghkmVmnmcma+OeKIWIUBQR0iayJNKCCtmKiiHL +M4XKLknK1iq9bZaQEEkRkSzZvbe/5vP9zMydc5+595yfgovXzgN8PDw8S3h5 +eP69jnfUPl8blWHQ7+4wuUp+jUFjmnTgppZQtDN3q1tz3KwBrHjvIt0Sj/YU +VaolxIkgf8vsZv6Wmyhec8tPn7hVSHxQKn6y+R4yU9/0eFecJvpSbuE12vwU +/U7oOSQfx0bGa3+2DzfXI345v932V8zRZLP29d/NX1Hx3RxH6xhH9Mzodkbd +zRGkU8hvH1LhieS+lH130ZhFuTmqVdQLf7Tcwyl7kRE/pGyLjR4dPYPiCePH +FraCkLZ/o1BgfSj6xGFUD4uJQJbrd4sJuzAUlXHuPZ+MODgiPlNvyUgkda37 +0tXUZXD8neVt1+wYFG5jYlA/vgKUqy8NGPpdQb66XKfaUGlYHVjlWLguHm0e +mjrl2b0Sah9H7aUXXEUhG632r9RZBdemm040rb6O9PKT7p+tWg0C9LDK6tQE +5DExHPxKRAGyUr6JMH4nokl1sQ5NW0Uom6XqLpomoY05uVRCghJQxuZbeyKS +0bCEqfOup2uBSy6waky9gb5FO+/yWaQCIfKivC+LU5DJ0EmTHq114BV1e6qA +m4oGXAV9759ThZS0yUW3otLw85TiC3+6Htga1yf77NKRxFuV2MIhNVh9zMFX +n5dCchEFllpaGrC38ey+dVYUys7PezappwHtM6JsvZ0U0vmYo1WBNMBg51LP +7dYUslG8I7fZRAOcez1rPG0pFF1O9Vo5aECbuLhdjj2Fpn/HBR8L1YBKJcNR +fhcKtdr7FWa80wCnXdUbmD4U4qjrii07qAm7nzgPRl6hkK3Z2yuVRzVBNaiT +1zOOQhJH94sfOa4Jefufe1nGUygq+5LEk0BNOC1dt2fZNQqdXd+63CtaE0xo +OZ5xiRRyWxck81+RJnxbMxDvmUYhQqlC8fyMJsxJSczk5lBo0NDqFo2XBteL +cw4F5eL9ufQotS6gga1dMMMkj0Jrb4ooE0tpoG86Ufc1n0LSCvvWfVGgAf/3 +EQfRexSak59X199KgxXyz5OMH1Lo9cpNG0biaEDTon3Xf06hD/IFKgKJNPAy +igpf8IJCTYqrpFek0KBGR/3QO+wutckprSwa/BV3/uFYQ6EJvaLqU49oYM3T +1OH7mkIqexW283XToEDx2+OgDxQKvcHrKs6iwzGenuDpzxSKSPeyUdSlQ6yZ +iEJeG4Vib7VvYRrQ4ZXjKO++dgol5ZSp2m6jQ3o3EVbRQaHCx96DHAc67Cyv +T/LtolDH567ANRfpcHdSZvLxdwrpyT29Qm+iQ/jRobGK3xT6qrS2o6+VDhWC +02HmwxS6pB6mnvGFDkZhwz5t2C16pi+l++gwwPtu78QfCp20r5/mnaGDtvFl +H9UxCu0x82b+FGOAQWdm5eFJCiVEhKSVazEgS6JaxZuXi45Eky9kdBlwuC1B +YwDb4Ep3v78+A7qsvsa683FRT+IWXQIYsEZQ+LA9Pxexbgs1Zpow4J6O2Ant +BVxU/yJO6LIDA+J4Pf82CnKRKP9Nv/2hDCAk4/gTlnLRwskq6+ELDBBuT9yy +QIyL5gbbyZBwBsScDq71xR5qlRmmohmw1AwlWohz0Yd7ccc6E3A9Cp7bpyW4 +KN4lxN0phwFDHfGahCQXRdqlbxnKY8DtWMOEa9ihFhVrzxUyQEZgatNfbF+9 +ya9pJQz4GvSfyyMpLrKR8HbqqGLAVaHFb7RluEjyqbOdYyMDdCKyzZfK4Xof +ntX+1cQAkeYnQ+7YC/NTJM98YkB94rKmCuy/SS2NKR14vfr7XodXcVGLt6VV +Wy8DOjNWfCqV56JkBTDdO4v3g0quEwq4Xql96/vnGfBMteLCGexIkdOCQXwE +NJYYlL3CDposfZm8iIByHZ4RB0UucqijG7WKE/BrpizntBIXyYes3mivQoCg +t8zmJGUuyvcVVGxXJcBvKuBwC7aB+/Ci/eoEiL+3bJNU4SJHs2cNhxgEFNuU +Zcdhp6w4eDRAjwD6amrg7DouksnOT060IODT7SBJnfVcdCclMVjWioDmvU1y +Htg6l4Pd060JmLEc9E7HtvPbSd62I0Ct6o6ggBoXJRiM1z5wIeCndczP59jL +G9iTH/0J4D/lHq+swUUZL1S+2AcS8PbYvlgLbObDpS/agwgQS3Bt9cfemdp1 +pSeYAKWZny4vsOMOXlQdiyQAnhjr7NHkojV7PEUDYwjgK+QpPYNduH336Mxl +AgJafcMo7A/E+mqB6wRoFbVJfcMWnXmze3k6AaXOKxe50rgobbCEzeESMNs2 +LxKCTetKU5LLIOC8sbl7Grb5y+NDSncJWMIfINyMHX1leTizmICuvQFqQOci +ufOzHqUl2IRglR12zonvO/UfEtBqUpR5HPv1nofyRhUE8BTdOZyGLaTs8GBn +DQGjj6l3w9hHZJBpTi0Bl7L+FPEz8OdFFDv43+Dn2XB9bjl29PiPBSUfCIi5 +JtO4AXvg5+skkQYCqoVWO27BNv+Sp+n+kYAfF6t22GCLvvK1lWrF/0+urM9x +bM/yXX1ebbi+kzPcM9jvC3XPvOog4FDkU/1I7CtJ8xmB3QTckDXJ42L/jvmq +U99DgNcE7WIutlXoizdqvQQIf9pc8wBb4mjU6OcBAlIemEXWYvs4eUawhgiw +2OEiXI/dYG0lFzNMAKE0Ov4Jm7WNVdgzQoDpsuXmXdjXNkptNhgnYKvgR5Fe +7DHGVHPCBAHH/5joDmLvUm4/OjRFwKPai+9HsB/IVM9vnSXgdsyNDxPYUqK3 +rlLzBLhuSds4ix3AF7ZukpeEzHlqGS+B79f4ocdWAiS8qH9gK4Ct22+2I3sh +CXfa/vAtwk7+QuvmEyKhxvCQrBD2VIP4yb3CJKwl1dIXY+99Nbr4vggJll/M +YoWxy8ub05aIkXAgrLP3n+WKHpEHJEjgOzqd/8+nM1NfViwnwayloPPf99uT +gvdISpHQuUb87L/1DWJdBz1lSPiRRob/+/20UOPQGlkSporXzfyrb85/veQa +eRKYtfzt/+p3OrokO2ANCXI7WtfP4f1VOw2x6xRJKK+o/DqJvcamvm69MgnB +154vGsMO3lZyIHQdCaZ75jlD2F0bOZOt60k4khqa0IdtSATFMDVISBjZz9ON +fVN5n0I0jYS+ycKmz9j8KzeVfGOQ8N3mvEwjtpvoWhM2kwS/woFX/2Er/+07 +PqhNQjK74VgZdlj/G4GteiS87T/pWoD9/UsBJ30jCaVX+V5mYN95daLachMJ +0Stl6mOwBSvsbO4a4fcL3wSFYB8u0u/lNSZBoKAk3g9bLZlXrNiUhP9unhS0 +x46M/XZL2JyEN5cCDppi94fWaLvtIIG3fI6pj517NMZphQ0Jv1j9K2SxaWyZ +gpOOJER4n5xvwPepWOnwNJ8zCV1xMuuqsHUWl22NdcH73aF96y62YbNdZ8ZB +EtykzZNOY+/y5ojXe5NwV/3huZXYn3f3Ojr6kZCzWcSCB9vZQCe7158Ej695 +3j34/h8RbjGcDyJBZ49eWR72uUwpP40wEvxXO23XwhaIPlhdGkHCrrnBGkns +SJ/SJUZR+Hw9Tkkax/3nGtqdaX+FBKvix+g+9p1PCU1hySRoTA0mrfvXr0Qk +dbvySaAzLqYOqnOR7eiBix5F+DwkeIU/x25tLan7W0zCradKtUnY327bHhEt +IyGsxNbGEHti0/Ub+s9I6Jhsjo7C/VbBf/nc9WYS1CxYaXOqXJTl4Gaq0ErC +zayz4q+xNYzuJ+S2kUBKbuu4hq0lZkN/1oXPW93LC6rYptlXnX/3kzDTGiS4 +Dc8Dnw6JZ6Y8TCiZVuQ/hOfJq5cOFdl8TLjkm7FDE1u+IKt08QImyKvEL/mz +Fvezc3q5r4WYcI1PtCUQW1HB5brpMiaQ54UfhuJ5VedadNBUhQl+QzsLA/F8 +Y/TtWGK6nQnit2WUZ/H8DKtLWphtwYQNectzC7Hbyrp5FlsxYeCVe5YrdkTk +ybFaWyZssvQaq5Hlok719A4TJyZcOJY7f2kl7m+eg4UmPkxYIv/00wie50Mj +0bYmHCYMF85ud8L5oK2Fuys1mQlLKye28mO/rniweziFCWHCeZVZOE9khHfa +J3GZsONL6uoBnDf2yLL29WUzYfa76r3jOJ+8MPzsfqmCCYpH9Wj7l3DRjbj1 +AbVfmZDuKq3SifNNhL9B4KoeJrxp8Hjhi+2/1/qU9w8mRHMPdS/EtlQ+c1pm +gAleZ0tuqAvg/FD2IfjwGBPenkY8Xjg/eXeevCQkyIKmk/N57XMU2kp/mWyi +yQKuT/zmvX8pZLdwm80HOgu81q7Y3jhOoSPttSK7SRbo1n+q3I4dG/U22E2b +BSp/Mr/r4zzX9KPR/dwmFizzum+4bATna6qbLLFlgWemzLasQZxPxXn/W3OW +BZblLW77eihUOaI//fcdC95pl3atqqMQ902pi3UdCy6ftqGfxXn2QibzdX4D +CxaaHeHreE8hk93qSQdaWHBj5LBuyjsKNT5aqd3QxQLy6K1fEm8o9DNk0id/ +lAW0Zw5hfS8pJClW+tNt5Qbw6LrP2lhOIU8NsrXuwAaYziw9fiaTQuxBt0Z7 +IS1gGhcLCnpSaMtaaXORm1pQUu6zT5RJIdXgyICn2towtjLgbV9POlI7oFul +3KoN9w7uKmw2T0cHKg9duO+tA/PFt04U3k9DVVSj2/AKXThMvDVL4U9Do3fm +/9JLdSHmyWrDLLNU5KqcI5RsrgeZch7jApwUNKx2Vevebz041hGsf/XtDfQw +Y7prLEIfmm9FPbNffAPt2awE+vIbgUO5WS8yTkayx8LLaNUboVOb7D7lkYRW +LPYoMt/Nhk9qPzjSaRyUYXTm1G97NvQKC/4KSOYg8kys0VUHNoj+6RX7lMBB +Fr8LP7bsZ0NB4IJazmUOCmsam3T1YIOj234+yRAOmrh5zvBUCBust+g1L3Lj +oFb9qw1ZOWwotT018no9Bx06kZFiks8GNefrNcoqHDSeX3JgoJANzjs1/YIV +OUhCseUv8YAN+xR6d2+Q5SAzwVVyFdW4nv5lVqlLOKi8Mcut4SMbluZ7GLsP +JSJT0Yea/i1sWFbJeVrZn4hattaOS39mw/TpaFmp3kQ0+qg/Yl8nGya+fXar +6UxEmlxGXt9PNlQGxDio1Cei8tZN/tG/2CAfeOTlmXd4veXWiP6bDdoX6Es/ +vk5E7uEn6vzG2CD3I9jg/DO8XnVYstQEG5SLrym3ViWi0KlE10dTbNjvkz7A +KE9EYqy7Go6zbPhS/u1q+MNElHbs0dj8PBvm5O7IdtxPRP8DGbGGLQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.03357732026803432}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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.03357732026803432}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913408819317417`*^9, 3.992087665892849*^9, + 3.9920944895099907`*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"7380f4fc-b088-7344-943b-94a7f40c1b2b"] +}, 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[108]:=",ExpressionUUID->"eea9d904-4069-4649-bea7-08e03245dd6c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1879779830544592`*^-231\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 108, 190, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323664732767*^9, 3.99170890340884*^9, + 3.992087666043844*^9, 3.992094489673418*^9}, + CellLabel-> + "During evaluation of \ +In[108]:=",ExpressionUUID->"5d58617b-00b9-8847-bb2b-79a5097c6a03"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.9987880705219257`*^-238\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 108, 191, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323664732767*^9, 3.99170890340884*^9, + 3.992087666043844*^9, 3.9920944896938305`*^9}, + CellLabel-> + "During evaluation of \ +In[108]:=",ExpressionUUID->"d5e0363e-d496-d342-a1d6-e5721e7b6007"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.569778245202013`*^-245\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 108, 192, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323664732767*^9, 3.99170890340884*^9, + 3.992087666043844*^9, 3.9920944897208557`*^9}, + CellLabel-> + "During evaluation of \ +In[108]:=",ExpressionUUID->"5e792f81-b248-d94e-9d4f-2cf0626a8786"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 108, 193, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323664732767*^9, 3.99170890340884*^9, + 3.992087666043844*^9, 3.9920944897449284`*^9}, + CellLabel-> + "During evaluation of \ +In[108]:=",ExpressionUUID->"82b2f5ac-bbd6-774a-812c-4c28011fb573"], + +Cell[BoxData["22.639491242839895`"], "Output", + CellChangeTimes->{3.9913236764669056`*^9, 3.991708909801548*^9, + 3.992087684342634*^9, 3.9920945376579075`*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"8f3a429f-4c4a-4247-854c-f1967364c2cc"] +}, 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.9917953473881397`*^9, 3.9917953498651447`*^9}, + 3.991795392697935*^9}, + CellLabel-> + "In[109]:=",ExpressionUUID->"3915107a-86d9-0f46-b139-986db5ca6b3b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.189714888666355`*^-227\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 109, 194, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236765399036`*^9, 3.991708909851534*^9, + 3.992087684422621*^9, 3.9920945377649136`*^9}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"adf45258-d8bd-0d45-9727-1df8d0b6a4d7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.045860565064055`*^-233\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 109, 195, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236765399036`*^9, 3.991708909851534*^9, + 3.992087684422621*^9, 3.992094537798807*^9}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"bb1dbbb7-5342-564b-85f8-113738804c1e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.003955405032896`*^-239\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 109, 196, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236765399036`*^9, 3.991708909851534*^9, + 3.992087684422621*^9, 3.9920945378238087`*^9}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"5ee0de5c-f255-e448-a774-f7d03336c3ab"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 109, 197, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236765399036`*^9, 3.991708909851534*^9, + 3.992087684422621*^9, 3.992094537842901*^9}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"f7a1703a-6d55-4649-afaf-3723f64cacac"], + +Cell[BoxData["4.123160883771822`"], "Output", + CellChangeTimes->{3.9913236883162384`*^9, 3.991708915455509*^9, + 3.9920876888555984`*^9, 3.992094548407585*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"4a0f67fc-5162-e64a-a019-edbd508b4c69"] +}, 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.991795355482418*^9, 3.991795359037939*^9}}, + CellLabel-> + "In[110]:=",ExpressionUUID->"f3705611-962a-7d49-8494-287e0d1eefa8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.189714888666355`*^-227\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 110, 198, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132368839011*^9, 3.9917089154944935`*^9, + 3.9920876888945713`*^9, 3.9920945485576687`*^9}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"4f1c8a7a-a965-4147-882d-b4aae11b76c3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.045860565064055`*^-233\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 110, 199, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132368839011*^9, 3.9917089154944935`*^9, + 3.9920876888945713`*^9, 3.99209454860376*^9}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"b837c9e8-7303-7d42-a2b3-7b69f22d984c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.003955405032896`*^-239\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 110, 200, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132368839011*^9, 3.9917089154944935`*^9, + 3.9920876888945713`*^9, 3.992094548625763*^9}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"8cd3b322-26a1-fc4f-8a54-32b1cb17b6fb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 110, 201, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132368839011*^9, 3.9917089154944935`*^9, + 3.9920876888945713`*^9, 3.9920945486457615`*^9}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"f479e1f6-a89f-fa42-8da1-817e21a9c8d7"], + +Cell[BoxData["24.188490878817557`"], "Output", + CellChangeTimes->{3.9913236988049507`*^9, 3.9917089191072826`*^9, + 3.9920876922227306`*^9, 3.9920945584381256`*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"18969214-7402-ba47-9c5a-dd4f823a3b51"] +}, 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.991795365232689*^9, 3.991795367348419*^9}}, + CellLabel-> + "In[111]:=",ExpressionUUID->"1c2bb25c-a24b-4143-a03c-8699409c5ef4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.189714888666355`*^-227\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 111, 202, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698915848*^9, 3.991708919139282*^9, + 3.9920876922637577`*^9, 3.992094558543009*^9}, + CellLabel-> + "During evaluation of \ +In[111]:=",ExpressionUUID->"05117271-b40b-0441-9da0-429a3ebf17a5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.045860565064055`*^-233\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 111, 203, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698915848*^9, 3.991708919139282*^9, + 3.9920876922637577`*^9, 3.992094558580103*^9}, + CellLabel-> + "During evaluation of \ +In[111]:=",ExpressionUUID->"2facaa62-1f78-5545-86e7-f46d95ac1c40"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.003955405032896`*^-239\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 111, 204, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698915848*^9, 3.991708919139282*^9, + 3.9920876922637577`*^9, 3.992094558598007*^9}, + CellLabel-> + "During evaluation of \ +In[111]:=",ExpressionUUID->"bdadfef4-6c2c-314c-a2d4-88803e50751c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 111, 205, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698915848*^9, 3.991708919139282*^9, + 3.9920876922637577`*^9, 3.9920945586241055`*^9}, + CellLabel-> + "During evaluation of \ +In[111]:=",ExpressionUUID->"a56933a2-3a6d-7743-ab0e-75c86c8c88fc"], + +Cell[BoxData["148.65879830379055`"], "Output", + CellChangeTimes->{3.991323706795576*^9, 3.991708921519884*^9, + 3.992087694375929*^9, 3.9920945660959377`*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"189552eb-1c9c-224b-90b9-7ef245383a9d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991795377777033*^9, 3.9917953861610203`*^9}}, + CellLabel-> + "In[112]:=",ExpressionUUID->"df5a49d1-7ffc-9d41-9de9-b2cb4ed5c458"], + +Cell[BoxData["0.06875916363226768`"], "Output", + CellChangeTimes->{3.991323706858589*^9, 3.9917089215598965`*^9, + 3.992087694412674*^9, 3.9920945662035885`*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"0a8e0955-ce9c-e940-8e56-7347aa883526"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991795400313652*^9, 3.991795402535782*^9}, + 3.9919235486175213`*^9}, + CellLabel-> + "In[113]:=",ExpressionUUID->"f1e753e6-7de9-0b47-aa25-47e49d9ceac1"], + +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[114]:=",ExpressionUUID->"24c8f2e4-3fba-8b49-a53c-9297f14cb47a"], + +Cell[BoxData["6.387731496076312`"], "Output", + CellChangeTimes->{3.991323706886154*^9, 3.9917089973478775`*^9, + 3.99208769443791*^9, 3.992094566242483*^9}, + CellLabel-> + "Out[114]=",ExpressionUUID->"1df77361-bbd7-3747-bd4e-d686b1c97935"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[115]:=",ExpressionUUID->"56d70fe5-9e2b-c64e-bfc2-fde134e22b5d"], + +Cell[BoxData["5.587530835375371`"], "Output", + CellChangeTimes->{3.9913237069236546`*^9, 3.9917089973924427`*^9, + 3.9920876944438095`*^9, 3.992094566256483*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"ac36d08b-3fd3-c748-8d7b-6d3db712f6e2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[116]:=",ExpressionUUID->"4acc66ff-efd9-9749-a32c-ab2aed359d56"], + +Cell[BoxData["35.69164670242484`"], "Output", + CellChangeTimes->{3.9913237069753113`*^9, 3.99170899744343*^9, + 3.992087694464855*^9, 3.9920945662711525`*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"512d5f42-2b52-aa42-a41a-79581b371ea8"] +}, 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[117]:=",ExpressionUUID->"b77d1393-1706-0344-94ba-b60790e869c9"], + +Cell[BoxData["0.02651804012336609`"], "Output", + CellChangeTimes->{3.991323707000412*^9, 3.991708997465433*^9, + 3.9920876944888535`*^9, 3.9920945663042545`*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"bc9a3d95-1222-0149-a4cb-647439e71140"] +}, 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[118]:=",ExpressionUUID->"d3dc886c-76ef-e140-8bf7-ae2b35b15037"], + +Cell[BoxData["5.442196629098006`"], "Output", + CellChangeTimes->{3.991323707203314*^9, 3.991708997556095*^9, + 3.9920876945677853`*^9, 3.9920945665216713`*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"ff99978a-b4f6-834c-bdd1-38045c81f38e"] +}, 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[119]:=",ExpressionUUID->"a2a617e0-a59a-4147-bc6f-17a0446bc938"], + +Cell[BoxData["0.0016188670121013722`"], "Output", + CellChangeTimes->{3.9913237072224197`*^9, 3.9917089975825768`*^9, + 3.9920876945897923`*^9, 3.9920945665517826`*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"0516d552-c612-dc45-8980-bd5254f713d1"] +}, 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[120]:=",ExpressionUUID->"764ea9ee-2dee-8949-964f-92b7fcc0b4f1"], + +Cell[BoxData["22.02618861941095`"], "Output", + CellChangeTimes->{3.991323707432623*^9, 3.991708997674572*^9, + 3.992087694666874*^9, 3.9920945667691307`*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"32843051-db5d-5449-9596-10a1089cea6f"] +}, 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[121]:=",ExpressionUUID->"8de6527c-f379-114f-be34-ffaf646fc19c"], + +Cell[BoxData["0.9443844844348241`"], "Output", + CellChangeTimes->{3.9913237074497375`*^9, 3.9917089977023544`*^9, + 3.9920876946878643`*^9, 3.9920945667890434`*^9}, + CellLabel-> + "Out[121]=",ExpressionUUID->"ac6d6644-f912-a84f-86bc-884d933d5061"] +}, 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[122]:=",ExpressionUUID->"bcbbe365-5317-404f-8cca-b17046887210"], + +Cell[BoxData["0.05561551556517575`"], "Output", + CellChangeTimes->{3.991323707467621*^9, 3.991708997725395*^9, + 3.992087694696867*^9, 3.992094566833168*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"9d9980d8-df46-5644-8bb2-4a0ba6c6e66d"] +}, 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[123]:=",ExpressionUUID->"c57327ef-c920-754d-8029-af14560ebe8f"], + +Cell[BoxData["0.05252242999359545`"], "Output", + CellChangeTimes->{3.991323707488617*^9, 3.9917089977477455`*^9, + 3.9920876947178783`*^9, 3.9920945668571815`*^9}, + CellLabel-> + "Out[123]=",ExpressionUUID->"97e73886-59ac-a242-bcf4-fe47d27b4a97"] +}, 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.99179485681155*^9}, + CellLabel-> + "In[124]:=",ExpressionUUID->"670d91c8-ce08-f444-b144-138ebae0f868"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0651721150524208`*^-253\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 124, 206, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237075117207`*^9, 3.991708997774729*^9, + 3.992087694743927*^9, 3.9920945669008827`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"cf88e398-8f44-484c-af5c-147dcc94da0d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.935504816244284`*^-262\\\", \ +\\\"67615075532642592962076366156210530912566907412833894400000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 124, 207, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237075117207`*^9, 3.991708997774729*^9, + 3.992087694743927*^9, 3.992094566944784*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"027405c7-9743-f049-bcb2-e32b622b1e77"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4540559163924165`*^-270\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 124, 208, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237075117207`*^9, 3.991708997774729*^9, + 3.992087694743927*^9, 3.9920945669637833`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"be4a183a-d0a8-4647-b98d-ac649536105a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 124, 209, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237075117207`*^9, 3.991708997774729*^9, + 3.992087694743927*^9, 3.9920945669868984`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"b45ac5df-e8e6-c14f-990f-547ff0f00cad"], + +Cell[BoxData["5.442196629098009`"], "Output", + CellChangeTimes->{3.9913237161181736`*^9, 3.991709001238739*^9, + 3.9920876967368793`*^9, 3.9920945728251324`*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"93a233ef-ddcc-374c-8bda-ebd5bddf6181"] +}, 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.99179697882374*^9}, + CellLabel-> + "In[125]:=",ExpressionUUID->"862c274e-f293-6a41-8f4f-719ed57da8ce"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0651721150524208`*^-253\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 125, 210, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237161871567`*^9, 3.991709001285738*^9, + 3.9920876967768936`*^9, 3.992094572929592*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"1be6857f-792f-a043-975f-2ba4a70175d6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.935504816244284`*^-262\\\", \ +\\\"67615075532642592962076366156210530912566907412833894400000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 125, 211, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237161871567`*^9, 3.991709001285738*^9, + 3.9920876967768936`*^9, 3.992094572961687*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"a19c660d-f826-be45-82af-ca7529c80f53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4540559163924165`*^-270\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 125, 212, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237161871567`*^9, 3.991709001285738*^9, + 3.9920876967768936`*^9, 3.9920945729806995`*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"5e640cf2-50de-104d-af8b-643b79d82f83"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 125, 213, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237161871567`*^9, 3.991709001285738*^9, + 3.9920876967768936`*^9, 3.9920945730006905`*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"0a93686d-69d8-474d-a0fd-409f62953eee"], + +Cell[BoxData["22.026188619410956`"], "Output", + CellChangeTimes->{3.991323724852854*^9, 3.9917090047631493`*^9, + 3.9920876987374287`*^9, 3.992094578852234*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"2e46ddf3-0062-224b-9796-1306bdd2aa7b"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.99179699111117*^9, 3.991797003874716*^9}}, + CellLabel-> + "In[126]:=",ExpressionUUID->"f5360edc-957d-9f48-b8b4-746fa181d4a5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0285283599530657`*^-289\\\", \ +\\\"14797530453474819213543604224000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 126, 214, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991324246104725*^9, 3.992087698928713*^9, + 3.9920945791497154`*^9}, + CellLabel-> + "During evaluation of \ +In[126]:=",ExpressionUUID->"93c85051-1f5f-454b-8284-ec6b1503035c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.343558028594324`*^-305\\\", \ +\\\"5919012181389927685417441689600000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 126, 215, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991324246104725*^9, 3.992087698928713*^9, + 3.9920945791748104`*^9}, + CellLabel-> + "During evaluation of \ +In[126]:=",ExpressionUUID->"78504fd0-5163-4c43-b557-f5bf3753c331"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{\\\"-\\\", \ +\\\"2.483466596316541`*^-8\\\"}], \\\")\\\"}], \\\"42\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 126, + 216, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991324246104725*^9, 3.992087698928713*^9, + 3.9920945791958103`*^9}, + CellLabel-> + "During evaluation of \ +In[126]:=",ExpressionUUID->"f8eab59e-ff29-9043-98e0-0d255dae1661"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 126, 217, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991324246104725*^9, 3.992087698928713*^9, + 3.9920945792168217`*^9}, + CellLabel-> + "During evaluation of \ +In[126]:=",ExpressionUUID->"2bcce08d-1c3f-364f-a211-f2a3f5fa9381"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nc8Ve8fAHA7I9xrNcjOvK47FGV8PkYpFBEys0IRZRRR9qpEkkRCOxkJ +ZcU9QkmU0VD6alDRFMqqfuf313m9X+c85/N6nufz+TyPkk+o/S4eLi6um9xc +XP9/Fh3xEWD6FZrYVB/84mPibNI+oGjjrBgNBzqd0NF+DfzrbElSVMyAhcjB +XGX7DVDEyVTgVzwLj1zKC+e3OUKwceTe3wrXYYcHS6J82y4YWAjM/aHQAHwp +xhcK7CJhyat36l8VuoDH2PXubpsUKH1YvP+zwhDseTWeVm94GiqrMl4F0yeA ++4DRRMTAZQiAvrNfwqYgt3yDr93dKggZ03xfWzkHr+7tfFrlWgvCSsnqIwZc +uK06WGWuqh4eGJ3UPbKBC0cp5b5zLfWQuuO8/ip7Lly27cKJHz31wJNdb+kW +xIXZ02tP3ftcD/N/vwQ8L+LCkhNPXi+oNcDnYcdrj3m4MbPkFFFd2ACP8tU1 +OY+48UyfNFPmSCOcoHRrlXrxoujFtv7vq5uhQX9V3dYQXqTqDFeeZTfDqGco +LMbwYshfq25902YwrJDc7nyGF398XXfbzr0ZPm12Pyzay4v3xc9/nT7ZDOZJ +Xx9HG/Lh39MG93kXmmF2RjzSXoYfh43P/VZpvwsqq3z+/VPhR7N95Ua2T+7C +VovajAomP+pcUncNGb4Ll3N2nBfcwo91ZSmS6dN3wV639H5LEj++2tSwRlO1 +BSoCWSu1J/nx42QZt2JCC/i82t7K+0gAdcfUax4zW0G48O3e/UMCSLS3vwCj +VrjlGiI38kEApesreC5tbAXel2nRjdxL0Lr1j/smt1a49KKRvV9/CRoeCOfi +Tm6FD08Vr/13YQmqmAW3MQZaYc+TL9kN0YKYLDXzGvU4IJEdDeppgugmQP1x +x4ADjbYC33JzBdFXaXxSw5gDIo8VrPdVCWJiUMy92Q0cKO+x51cfE0R7+zun +bZ058O1hfXSunRAaFGi2DkVxYH9Hsk+oujCqPpGh7bzDAfnRjQK/2MJo841n +42AjB7p5hMpiURjtbfVkLFo4sBozJzNchDFrtndIsoMDQ42n4y8dE8bE2e2T +4f0cML155fzQd2HkfS+WuvYLGa830MxrURhfbVaQcf7OgcKvWh8+CIpggY3t +zrCfHJjRqtKZVhJBokdZ/uwsB65fvtMstl0Er8ffdbzKRwC18MFL83oRzDG+ ++KtTloCWhqNHHraLoD1vvskpeQKCXtgob+sTwWFn1gZXJQI6pPt2e06IYAdN +OvuFGgHR2UOzUXJLUfaOg2Yek4C3KRMylfFL8aqV3gvpjQRU71vqsHyzKP69 +KKCsHUTAowLJ6AonUQx9Xu1xZC8BH9pXFpv5ieLGjIsJ3aEErFyh+Tk4ThRF +o1ipDhEEJBMbkog6USzUvVy08jABThJxNXuUxfDB+tXfUjIJ2GeUOvRPVwxn +VmdoRGURcNQ/81+usRh656509ztJQGtjoXXrDjHcvS6iRus0ARq+9e8ls8Qw +p+OwReg5AuZrJiXvLoihcl+wwNB1AqT+m11nLySOf8f6/INuEEAX5PL6KCOO +nUOnB3+XE+DrLlZOZYljRevt13+ryPnwaVv4B4qjr2V4T0cdOR86a89CpDg2 +jj1u1bhDAJfLuuzsJHL8lacPU+oJWFNhOdx4XhxP9zcz6E0EnHf0ixB/Ko7R +w/d3GXAIqI8LKrj0ThynR1dbBhMEDFwP46z7IY4xm423FLQRwBeHArf4KVhN +edkz2k6AwcBW+2FFCsZZmfawuwjYEGg/dkWdgpblD7nWPSTA/o9j1H46BW/L +jewy6CYgWN3jvIARBQ9GWHWv7iGgNCZoguFMwWObDVhNTwhgcIRm0zzI8V1N +Asl9BHD4rvGP+FIw5Mmh55b9BLzJHFXM3EfBjzxu4ZwBcv37E+mjByio7+9i +GjlIwD8ZJSPDwxTMvbuFuvopAfIlHs7jGRSkp0w0Rz4joHJ0wQ+zKdgZnlAo +85wAY82CsDN5FKyy/Zxwi7T7rWeZGy6S8bfQgl+9IKCg3ba9tJmCi1EZbyZf +EqAl9K1vto2CI5O96kGvCGjYcnzEtouCz9cuSRoh/eLZg/k/TynIep4W0zBM +QKBsgKDjMAW36U/KKrwm4PdOfpnydxQM3Z31LI60zLgp0/U7BT99aCth/UfA +FZ03JtUzFLxflFGTTHpN2BEbwUUKLp//+KGPdPttOdedPFQMvxdjtHKEgO0L +jQG3Bam4o2O0zoP0KLhEiopT0bOnffs50uHJvxP9pKkYcr115TPSPF2ns5tk +qTi5OkZI5A0BOaJ65yWUqfhTpFjZkLSyff+N3RpU3KXwNMCfdHXevgYOnYqb +VnW9PE4aX4ndX7aGio8aNA5Xkn6iUDEYYkjF4+cv2nWT9vKzftdhSsWawM9O +70l/vzb+XW4TFWlXa07+In3ka9qf8K1UbH5RzcP/lgAxlppI93Yqmu8puiFG ++vyB9uXKblQcqNU9IUlap8lHLdqbii8WVMr/7+Z/XHpPAqhoGaS/RJy0jUWx +qXoIFRukNUv//7/hdGPbIxFULPjZEPObjBfU88r96SHy++Hy/FHS89RDe2gJ +VKSf6Jx7RPqo0/KopDQq/rrQU3KT9MrC2ykvM6lYmnM0K4v09ZHtp5i5VLx4 +8/793aQNVKdK0guoSNXaZg2kHwSerBwpoWIV74wshfSOCt3mtVepKLc8yXCY +XO+Pkz1dmRVUHJXuuXGRtECM8JhhIxWNSkZTVEnntV77mcOh4pVznlOvyf1d +zWfJNdFJRVfPr/U5pC0yk2TzB6g43lfn8I3Ml8E+Jc3vQ1TcZ1lGO03aV4az +duMbKnbza+7SJ51YvLht+gsVhbZtXdxL5p8do36/9hQV/zmIp/ORlifCT/rM +UTEwsPlaHpmvje8mnjzhl0BvBbGbFWR+p4df+bFkqQRqBtoVsEg78flQQEIC +HUUaFWuGCPi5esi2Ql4Cr/PaCV0l64NzOzd0VFUCBXLUQleSPmFplyWrLYF3 +xqOiMsh60tp9vzdDXwKJfb9iXcn68ymv2+JvJ4Huv/YlPCDrl2G8f2+RkwTC +Un39FaT/9tAyB90l8HZ0UPEust4Lvl98ZLZbAveurTsxSfaHflaOtUKiBKb0 +68s/I/uHaUPI5hc1Evjhz8rqgU4yn6y0dos3SuA6dbeINx1kPrwcS9/IkcBV +CkJC42S/ilp0f1D7SAKT7xZXfiX72U2wtjw5JoE33p1T7mghQLFTfYPVMknM +S/LfX0n2029O7/0SVkmi40SOUXQtmX8fzyfXq0jiDd3MOagh91tIpl2NIYlS +PYxtxE0Csm34zHk3S+KBXK/qU2T/5hp4g82HJFHHtls4uoQ8T8ZbSg8lSKKW +/Y0lo+cJEOIq4lmXLon5WzT8rYoIkNBxaa87LYnEzBd7oQIyH9L6LKtuSmJ8 +ykUDu1MEWBm2bb3wgYx3dbSUL4WA3m0lVV5fJbGrYgefehIBDoFHKArTkuhl +PzFtkUD2s9Pr+wu5pRC1Go+Fk+dXyPdbjqflpNDM69JIYSQBpy5edE+3l0K7 +3SOlsrsIWN6YcHejixTukRg0mvUh4NyTnfL8XlKYfaP/1BMvsj/9kX2TsFcK +c83yEiLcyfPCOdc3Jl0KS1uXVWY4kOstkrInpEUKPed+vv6MBKhF+Edt15JG +9cVTQZeWk/W8fsShmCGNKQ2H7mnLEKDHtUN3Yq00Lj7JvlMlSYDZ8c0f4syl +8aUP60iFGAGel2jbb7hLY/nsvYfx5H0hb/CnLk+WNDKIJVnp5H2Df03cx6op +aYyIH7Cn3+PA6MwZJ5G7Mii+Q2zcy5sDF0zZ4a/vyWDxS5bbaw8O7Mzszap6 +KIOCe79mO7ly4KUqf5fDCxms77ffDg4c6HMIMzw3JYP0e4wzExYcaKm2UdTR +WoZvRM7+KFPnwJm93BNbzyxDeeOtOoNPW8FqbM/hnP3L8bDVBgH9/hbYOpqt +LS+/Eg2KMl4pFTfDxD2f+AcVsvghNrVO2q8R6NRnq8x3rsKXR1ea3Bq+A8Iw +4z08JY//LQv/eCiqDiy/uv5WdlTEwbxLW7ZO3IIXbX7crjQlXLwp12EWfxPq +0ts9FWeUMPGtllZsazn480e+6e1Vxokz7fyq0dfANyymbmmBCubLFNVHPLsE +ugHavTbeqtjZweHzKimFxxI0kch1qzE65qnUX+kiaKpMLKTxquEK6aitutR8 +iOHWsnv0Wg2PtX4J0PY7BcLDhzaF1KrjvQ1J7SJCWbD24HXRrDvqaLlfSqDs +2wnwlnjRX9Wojq0fM7RdB09A/aY1HpMcdZxqb+L7UXwC/Ou+74/oUcdpM27l +Sf0TQJzwKzz0QR2v5k5lmQVlQpTp1m+pyzXwVe6I7Lf/jsHYFaXc4lgNnAgv +NW2bTYcvyW/neOM1cF7n+zXOm3T46VO6MzBJA1fFnHzX9yAduBSUtJlHNdBu +actl2tl0WHlGsa3tjAbGf5lzaVufDnZpCj/Gbmng2kac2JWQBs0Bq2xo4xpY +VyyxYrNcKuRqrOBrcNRE1xgfbbfUJHD3VLv6focmPjIsdhSLSALVXLaVmLsm +Huxp6njsnQS1/7Zk+/poYnTRgvNh4yQYfJYoJxaqiUaYH5A4kwiSKV/0fNM1 +cf7Atq06gYmQ87Z1l2iTJjrliVg+dk6A7AL/+96KWlgfJxqvePcIHDyQGB6r +ooWSxTvDOoqPgKf9eYUzalqY7XF8RWLiEaAJPzv4iKaFXXN7tphtOgJd0Rs0 +9Ndp4WvG9ebhwcPA46KasdReC1U+HbXd+zMWIpe9s7qTpIWl7Sk3C0xiwDXX +o3fpRy2UNi94s2p5FMjVCMsGTWhhrfUbRcO/B2Gk705A11ctPBB0x2Df6EHw +E5fgTp3WQpFdtBtK1Qch5Ggn+x+3Nl6poRDF1gchMV737KScNroXS0zPJR+A +68Hcfs/stdGmReV1tWAkzFpcnitu0cbSW/VeJXZhENtUnNROaGOM27OsLOMw +4GIViI63a6PKA9ZCllYYLFHIUmJ1a6PTkffb2/nCQGYuanP7c20Mi56qn2vY +D+wKm7OffmgjV4to7HH1/RAiPW3AVKHh25gHvYti++DnsW9tjmo0bE2tuvB7 +IRQiecZtDmnSsOZ533Lpl6EQ+/211z1dGlZqysxX5IXCsa776Y5GNOS7dZfL +kRoK1w4Xvoh2pOGbJLN236Uh8H7MLKotjYZcj34Xv18eDGbFvRe0jtHwkeyY ++4rZICjZ4dqTc4KG8Rsrq/Y9DwLP7v3KvqdpeHJ8/ZWkvCB4ebPkEe9FGh41 +i+nUlwmC/pi/ihtaaPgfUhI4snugjdrYdX+ahgrUv0m5JoGg1L1hWneWhiNR +IoX3lQIhPrlPPn+BhjyuKm+X8weCye9P4YE8Oignfuek9KMAaBxeJi9E0UEX +l9ayCLcAuHU1MsxKWwcV3Q4p18T5wwVjpmyPtw5W7svIiXvtB21bhZMW/HRQ +NX+yabLDD97tfD+hGaiDXEr3DsZU+oFK4unG1BAdvPmk3vlpnB9c6pxzwRgd +pHGrnCpR8YPLtm35Nbk6uNzW80dSqC9c83aQKbivg8+16WGzy3zgQRjtyIOH +Oqi0MumEPq8PfEri//CrRwfLBXcPH/vmDRpX7tQ5DOrg4yvD98I7vOH6hKyj +6FsdVMssajeJ8Iay8NFT8fM6qF26taf6qRdUpERSA3TouLfM6Yai7U74YuSR +mMKgo1tq+4S79k6gTVtMXWTTUSAzo+rukp1Q5iP19M06Oi5xX2P1heMJ16Am +33UjHQOs/e3m9Tzh0twPha076aj5p3Vji4oHFOwNpq85SccVNYc2icu6kf1/ +e7FDLh1z1pw0K1lwhRXDhpSwM3RcqJX/uW3YFfKtRH5WFtFxaHR6Uea8K5xW +L6vTKKNjhJ31aVUVV8h++9FI7h6dvM/8qdJju0Cao6817wwdMfRXnu8eZ7hg +O+y+a5Z8f07pd5yNMzRvdgy5v0DHpcFjt1rozvDT2PLkMR5d5HMbr70w5QTu +atrPJSm6uC4ni84d5wSs3z99VLV1MXwYy+cLHeG//MRDG7x1sSfV/uH8VweY +y1k4dtVPF2sf2aUpDzqAVGZEkVCgLiYYGWYFNjrA5gR/Tk+ILs7uDuezTXOA +2t1WAk6xunj1nblWorIDHF0vkeN/RhdPSt1+7+9pD2uGS6+n9eiiq22anNtn +O6DQA2ernuhi6Y++z5nP7OBLHN3yxYAuOom9/vKcsINLKk2jGi910dCsXbM6 +3w6kggYVHn7QxeM9ZSsOWNrBfCyvtQAXA5+X7uwItreFIZG1xKYVDNx+O2nf +5JwNdOqd/TS8koFQRI/tfWoDtR6L4vvlGHicrpE2WG0D2VVtnmcVGOhcE/Pb +dY8NbHKwXRxfzcADcypPbF5bQ31BoP4xFgN1Hx8wK31oBfmahRU91gx8erXv +8zyxCaanNl5O2sLALr3QZWIlm8C25ee5dbYMtJ90qrA+sgkEHKyOX7ZnoM73 +fPcNhpsgMnZuz2EXBq5qdL6lc8cS7B87a+gEMDBJUkKi7PZGWBopdfF4IgOV +Hyz8Wj5gAYHAKTBLZqCtyzNC6bYF3BMKzplNYeBvscIg27MWcOj8vQS/DAZq +p6jVLfeygPH7YV5G2Qw0F+446/ndHDpX9q36UkTGs22aOSVlDnGczHzrBgY+ +4RbfkBVlChOvOblzjQyUiqA83uFlCk4LU9lXmxmoJjGiarrJFGhrXTN4OQzs +/yR+be9yU3hxQ+1QUycDe2/YmrIaEVhnWt20Bxm48eOqPmtehA97J+VFvjMw +ev6oc5WjMWw7pirb8IOB5b16XWE0Y2i+5rws4CcDue9q5ATxGsOp93fF780w +UFAnjbVYbQTocpQrZpGB7sa3fuVQjaDAQuXdhBAT84oqS7xfroctso6XH6oy +sZgxs/1TtgHkj9I5bmpM9BX/umi4zwBGKwRffVFnotC57U13bA0gFpsp4tpM +3Kzn+lBN3ADKd6nEOjCZaP+52+e/LH0QvjlpP2zMxDaeWzmZ+WvhvsUJrm9O +THSLyubp6NADCbFA2bgdTPS5INjy4LoeeD43XUtxZaLjKn/H75l68Gv3TBDL +g4mfAz8euuSkB2pZ7s8P+DJRb4B7Z9k4G5KHtCr/hTJxjdXSWR4ZNpiG3Hej +ZjDRYvpl+LtUJsy/GN/YfpSJb1Jkm2aCmVBrvpR18DgTBV8dPEpzYILaim2C +r7OYqMr5SuFTZMLS9pe11/KYeNdAd8qxiQEvVnwTxUtMnEuWu9PyQxf2dUhx +QlqZOPNZ3b9LWge0GPo3lAgmhup8G9SZoMH7Ape8wTYmeqhnLvS20MBp3/ng +9Z1MrDt3y6gzkAZGshorBHqY+ExgTD++VRsE9xuGFb1k4t9y3rA3B7WgWM5H +9dEME7t3j/1wlNCA9Wxtus9vJu7vdqik/1CHwc3T+rOzTEz0s0nW61UHwYOp +1qqLTJT5d6Ck86g67OsrC4vlYSGL72ztX351wNQpDk2chXujTUey+NTg3fdk +j0wNFkZu7HXqVVSFWIGtASpaLPSILxQY41UFmVXL9jdos/DIECdE+aMKWFld +Tx6jszAujFVGqVSBW5d6bhivYWHy2POrdcYqkOQiM//VlIW7Tuvoz/kqg+q9 +q3lb3Vg4GRtfRetWhF7a7KVhdxaelFFuMqpRhKi8TTV7PFlYOPjwcnChInTv +Hn+c6s3Cl1XesdrBihBG0RZqDWChRL7pjKK4IrR6VMboRrAw3px+/VSdPLjO +1npRMlmYFGfuqkKRAz4f/tDzJ1iYN8X0LfsoC5Xdjodp2Sysyv0jFNgqC9zF +v85uOsVCQ8chpdRQWbi2wWAg/iwLl2iOKWzsXwkzOU0bJi+T8z/nGVFYugKy +ddq0+ltYmH9UeO+rXcvgmoGbUCKHhas+rOYaxGXQaj79kdnGQp03nvG8csvg +m4va5ZMdLMwRTZYVGJAB69SjCtsesbDmsVP+SXMZEBixl3oyxMK0tOG6BLo0 +xGS//9MzzcKBJ+nUIU1JyCmMHT78i4V3J6/aqopIQtkV6SadWRY6sCpbi75I +wItmy6jMBRYWmTvrrbwpAWvHb/y04WHjugT5Q6x1EvDDNOJjtzgb/aNte647 +UMF/iq+vS4uNfB6RbnJ24uBZZtHrTmOjjtLp6VpFcXDyTu7+rsPGrZ9uC5+c +FIONj3k7pZlsLPtZtVkiVwzUbvA0eeuzUWNtUZDusCiM+XBdnjNnY7Wprk96 +1FLw61+I0vRgI/0sYRI0IgTuGYYHmj3ZKCA5crz3jhBsx5hwWy826i+EzO3J +FgKLyvm9kb5stOh6vLDFTAhUj875ELvJ/631d6u9JgjvTX/buBxgo43oLR8i +bgn4VP9UzMhi40Q6c2RsOz8EJzosWp1kY9vxM7YiDH6IdKh9vvQUG4/bfO4J +FuGH9JnIE9l5bLwwNpv2ro0PKtfNLZwpYuOMR65Mlh4fzBH/nl25wcYVbl/c +i5V5Ibt/aWb7fTamuvtYWKtzQ8HFvYGpXWykxT2etxLihosRveabutl45pqn +WexnLrgtkz3f3cvGutc2DmE3uWDYVTJw4CkbawLGDS4ZcYH6+xXm796zkfF1 +/9Xmpr8mjNpD8pfG2Fgy88H+Wspfk/Upr+Z2fWSji+741FfbvyY26kU3xyfY +OBBY8DF57I9JWJCi/OQkG9fEB0f1S/0xiTVKmLs1xcbdlXEVR94umqSIvhuM +mGGjmoLVifjKRZP8qovHZmfZaLtYaJS0edHkQjxfQOM8G9k8j7mSli2a3Ni2 +yyx2kcyPE2Kez8YWTGqVO1eZ/GWjltTxvtjaBZOWKbW5f//YaJ29ZigyacHk +fztCKdY= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Ve8fAHA7I9xrNcjOvK47FGV8PkYpFBEys0IRZRRR9qpEkkRCOxkJ +ZcU9QkmU0VD6alDRFMqqfuf313m9X+c85/N6nufz+TyPkk+o/S4eLi6um9xc +XP9/Fh3xEWD6FZrYVB/84mPibNI+oGjjrBgNBzqd0NF+DfzrbElSVMyAhcjB +XGX7DVDEyVTgVzwLj1zKC+e3OUKwceTe3wrXYYcHS6J82y4YWAjM/aHQAHwp +xhcK7CJhyat36l8VuoDH2PXubpsUKH1YvP+zwhDseTWeVm94GiqrMl4F0yeA ++4DRRMTAZQiAvrNfwqYgt3yDr93dKggZ03xfWzkHr+7tfFrlWgvCSsnqIwZc +uK06WGWuqh4eGJ3UPbKBC0cp5b5zLfWQuuO8/ip7Lly27cKJHz31wJNdb+kW +xIXZ02tP3ftcD/N/vwQ8L+LCkhNPXi+oNcDnYcdrj3m4MbPkFFFd2ACP8tU1 +OY+48UyfNFPmSCOcoHRrlXrxoujFtv7vq5uhQX9V3dYQXqTqDFeeZTfDqGco +LMbwYshfq25902YwrJDc7nyGF398XXfbzr0ZPm12Pyzay4v3xc9/nT7ZDOZJ +Xx9HG/Lh39MG93kXmmF2RjzSXoYfh43P/VZpvwsqq3z+/VPhR7N95Ua2T+7C +VovajAomP+pcUncNGb4Ll3N2nBfcwo91ZSmS6dN3wV639H5LEj++2tSwRlO1 +BSoCWSu1J/nx42QZt2JCC/i82t7K+0gAdcfUax4zW0G48O3e/UMCSLS3vwCj +VrjlGiI38kEApesreC5tbAXel2nRjdxL0Lr1j/smt1a49KKRvV9/CRoeCOfi +Tm6FD08Vr/13YQmqmAW3MQZaYc+TL9kN0YKYLDXzGvU4IJEdDeppgugmQP1x +x4ADjbYC33JzBdFXaXxSw5gDIo8VrPdVCWJiUMy92Q0cKO+x51cfE0R7+zun +bZ058O1hfXSunRAaFGi2DkVxYH9Hsk+oujCqPpGh7bzDAfnRjQK/2MJo841n +42AjB7p5hMpiURjtbfVkLFo4sBozJzNchDFrtndIsoMDQ42n4y8dE8bE2e2T +4f0cML155fzQd2HkfS+WuvYLGa830MxrURhfbVaQcf7OgcKvWh8+CIpggY3t +zrCfHJjRqtKZVhJBokdZ/uwsB65fvtMstl0Er8ffdbzKRwC18MFL83oRzDG+ ++KtTloCWhqNHHraLoD1vvskpeQKCXtgob+sTwWFn1gZXJQI6pPt2e06IYAdN +OvuFGgHR2UOzUXJLUfaOg2Yek4C3KRMylfFL8aqV3gvpjQRU71vqsHyzKP69 +KKCsHUTAowLJ6AonUQx9Xu1xZC8BH9pXFpv5ieLGjIsJ3aEErFyh+Tk4ThRF +o1ipDhEEJBMbkog6USzUvVy08jABThJxNXuUxfDB+tXfUjIJ2GeUOvRPVwxn +VmdoRGURcNQ/81+usRh656509ztJQGtjoXXrDjHcvS6iRus0ARq+9e8ls8Qw +p+OwReg5AuZrJiXvLoihcl+wwNB1AqT+m11nLySOf8f6/INuEEAX5PL6KCOO +nUOnB3+XE+DrLlZOZYljRevt13+ryPnwaVv4B4qjr2V4T0cdOR86a89CpDg2 +jj1u1bhDAJfLuuzsJHL8lacPU+oJWFNhOdx4XhxP9zcz6E0EnHf0ixB/Ko7R +w/d3GXAIqI8LKrj0ThynR1dbBhMEDFwP46z7IY4xm423FLQRwBeHArf4KVhN +edkz2k6AwcBW+2FFCsZZmfawuwjYEGg/dkWdgpblD7nWPSTA/o9j1H46BW/L +jewy6CYgWN3jvIARBQ9GWHWv7iGgNCZoguFMwWObDVhNTwhgcIRm0zzI8V1N +Asl9BHD4rvGP+FIw5Mmh55b9BLzJHFXM3EfBjzxu4ZwBcv37E+mjByio7+9i +GjlIwD8ZJSPDwxTMvbuFuvopAfIlHs7jGRSkp0w0Rz4joHJ0wQ+zKdgZnlAo +85wAY82CsDN5FKyy/Zxwi7T7rWeZGy6S8bfQgl+9IKCg3ba9tJmCi1EZbyZf +EqAl9K1vto2CI5O96kGvCGjYcnzEtouCz9cuSRoh/eLZg/k/TynIep4W0zBM +QKBsgKDjMAW36U/KKrwm4PdOfpnydxQM3Z31LI60zLgp0/U7BT99aCth/UfA +FZ03JtUzFLxflFGTTHpN2BEbwUUKLp//+KGPdPttOdedPFQMvxdjtHKEgO0L +jQG3Bam4o2O0zoP0KLhEiopT0bOnffs50uHJvxP9pKkYcr115TPSPF2ns5tk +qTi5OkZI5A0BOaJ65yWUqfhTpFjZkLSyff+N3RpU3KXwNMCfdHXevgYOnYqb +VnW9PE4aX4ndX7aGio8aNA5Xkn6iUDEYYkjF4+cv2nWT9vKzftdhSsWawM9O +70l/vzb+XW4TFWlXa07+In3ka9qf8K1UbH5RzcP/lgAxlppI93Yqmu8puiFG ++vyB9uXKblQcqNU9IUlap8lHLdqbii8WVMr/7+Z/XHpPAqhoGaS/RJy0jUWx +qXoIFRukNUv//7/hdGPbIxFULPjZEPObjBfU88r96SHy++Hy/FHS89RDe2gJ +VKSf6Jx7RPqo0/KopDQq/rrQU3KT9MrC2ykvM6lYmnM0K4v09ZHtp5i5VLx4 +8/793aQNVKdK0guoSNXaZg2kHwSerBwpoWIV74wshfSOCt3mtVepKLc8yXCY +XO+Pkz1dmRVUHJXuuXGRtECM8JhhIxWNSkZTVEnntV77mcOh4pVznlOvyf1d +zWfJNdFJRVfPr/U5pC0yk2TzB6g43lfn8I3Ml8E+Jc3vQ1TcZ1lGO03aV4az +duMbKnbza+7SJ51YvLht+gsVhbZtXdxL5p8do36/9hQV/zmIp/ORlifCT/rM +UTEwsPlaHpmvje8mnjzhl0BvBbGbFWR+p4df+bFkqQRqBtoVsEg78flQQEIC +HUUaFWuGCPi5esi2Ql4Cr/PaCV0l64NzOzd0VFUCBXLUQleSPmFplyWrLYF3 +xqOiMsh60tp9vzdDXwKJfb9iXcn68ymv2+JvJ4Huv/YlPCDrl2G8f2+RkwTC +Un39FaT/9tAyB90l8HZ0UPEust4Lvl98ZLZbAveurTsxSfaHflaOtUKiBKb0 +68s/I/uHaUPI5hc1Evjhz8rqgU4yn6y0dos3SuA6dbeINx1kPrwcS9/IkcBV +CkJC42S/ilp0f1D7SAKT7xZXfiX72U2wtjw5JoE33p1T7mghQLFTfYPVMknM +S/LfX0n2029O7/0SVkmi40SOUXQtmX8fzyfXq0jiDd3MOagh91tIpl2NIYlS +PYxtxE0Csm34zHk3S+KBXK/qU2T/5hp4g82HJFHHtls4uoQ8T8ZbSg8lSKKW +/Y0lo+cJEOIq4lmXLon5WzT8rYoIkNBxaa87LYnEzBd7oQIyH9L6LKtuSmJ8 +ykUDu1MEWBm2bb3wgYx3dbSUL4WA3m0lVV5fJbGrYgefehIBDoFHKArTkuhl +PzFtkUD2s9Pr+wu5pRC1Go+Fk+dXyPdbjqflpNDM69JIYSQBpy5edE+3l0K7 +3SOlsrsIWN6YcHejixTukRg0mvUh4NyTnfL8XlKYfaP/1BMvsj/9kX2TsFcK +c83yEiLcyfPCOdc3Jl0KS1uXVWY4kOstkrInpEUKPed+vv6MBKhF+Edt15JG +9cVTQZeWk/W8fsShmCGNKQ2H7mnLEKDHtUN3Yq00Lj7JvlMlSYDZ8c0f4syl +8aUP60iFGAGel2jbb7hLY/nsvYfx5H0hb/CnLk+WNDKIJVnp5H2Df03cx6op +aYyIH7Cn3+PA6MwZJ5G7Mii+Q2zcy5sDF0zZ4a/vyWDxS5bbaw8O7Mzszap6 +KIOCe79mO7ly4KUqf5fDCxms77ffDg4c6HMIMzw3JYP0e4wzExYcaKm2UdTR +WoZvRM7+KFPnwJm93BNbzyxDeeOtOoNPW8FqbM/hnP3L8bDVBgH9/hbYOpqt +LS+/Eg2KMl4pFTfDxD2f+AcVsvghNrVO2q8R6NRnq8x3rsKXR1ea3Bq+A8Iw +4z08JY//LQv/eCiqDiy/uv5WdlTEwbxLW7ZO3IIXbX7crjQlXLwp12EWfxPq +0ts9FWeUMPGtllZsazn480e+6e1Vxokz7fyq0dfANyymbmmBCubLFNVHPLsE +ugHavTbeqtjZweHzKimFxxI0kch1qzE65qnUX+kiaKpMLKTxquEK6aitutR8 +iOHWsnv0Wg2PtX4J0PY7BcLDhzaF1KrjvQ1J7SJCWbD24HXRrDvqaLlfSqDs +2wnwlnjRX9Wojq0fM7RdB09A/aY1HpMcdZxqb+L7UXwC/Ou+74/oUcdpM27l +Sf0TQJzwKzz0QR2v5k5lmQVlQpTp1m+pyzXwVe6I7Lf/jsHYFaXc4lgNnAgv +NW2bTYcvyW/neOM1cF7n+zXOm3T46VO6MzBJA1fFnHzX9yAduBSUtJlHNdBu +actl2tl0WHlGsa3tjAbGf5lzaVufDnZpCj/Gbmng2kac2JWQBs0Bq2xo4xpY +VyyxYrNcKuRqrOBrcNRE1xgfbbfUJHD3VLv6focmPjIsdhSLSALVXLaVmLsm +Huxp6njsnQS1/7Zk+/poYnTRgvNh4yQYfJYoJxaqiUaYH5A4kwiSKV/0fNM1 +cf7Atq06gYmQ87Z1l2iTJjrliVg+dk6A7AL/+96KWlgfJxqvePcIHDyQGB6r +ooWSxTvDOoqPgKf9eYUzalqY7XF8RWLiEaAJPzv4iKaFXXN7tphtOgJd0Rs0 +9Ndp4WvG9ebhwcPA46KasdReC1U+HbXd+zMWIpe9s7qTpIWl7Sk3C0xiwDXX +o3fpRy2UNi94s2p5FMjVCMsGTWhhrfUbRcO/B2Gk705A11ctPBB0x2Df6EHw +E5fgTp3WQpFdtBtK1Qch5Ggn+x+3Nl6poRDF1gchMV737KScNroXS0zPJR+A +68Hcfs/stdGmReV1tWAkzFpcnitu0cbSW/VeJXZhENtUnNROaGOM27OsLOMw +4GIViI63a6PKA9ZCllYYLFHIUmJ1a6PTkffb2/nCQGYuanP7c20Mi56qn2vY +D+wKm7OffmgjV4to7HH1/RAiPW3AVKHh25gHvYti++DnsW9tjmo0bE2tuvB7 +IRQiecZtDmnSsOZ533Lpl6EQ+/211z1dGlZqysxX5IXCsa776Y5GNOS7dZfL +kRoK1w4Xvoh2pOGbJLN236Uh8H7MLKotjYZcj34Xv18eDGbFvRe0jtHwkeyY ++4rZICjZ4dqTc4KG8Rsrq/Y9DwLP7v3KvqdpeHJ8/ZWkvCB4ebPkEe9FGh41 +i+nUlwmC/pi/ihtaaPgfUhI4snugjdrYdX+ahgrUv0m5JoGg1L1hWneWhiNR +IoX3lQIhPrlPPn+BhjyuKm+X8weCye9P4YE8Oignfuek9KMAaBxeJi9E0UEX +l9ayCLcAuHU1MsxKWwcV3Q4p18T5wwVjpmyPtw5W7svIiXvtB21bhZMW/HRQ +NX+yabLDD97tfD+hGaiDXEr3DsZU+oFK4unG1BAdvPmk3vlpnB9c6pxzwRgd +pHGrnCpR8YPLtm35Nbk6uNzW80dSqC9c83aQKbivg8+16WGzy3zgQRjtyIOH +Oqi0MumEPq8PfEri//CrRwfLBXcPH/vmDRpX7tQ5DOrg4yvD98I7vOH6hKyj +6FsdVMssajeJ8Iay8NFT8fM6qF26taf6qRdUpERSA3TouLfM6Yai7U74YuSR +mMKgo1tq+4S79k6gTVtMXWTTUSAzo+rukp1Q5iP19M06Oi5xX2P1heMJ16Am +33UjHQOs/e3m9Tzh0twPha076aj5p3Vji4oHFOwNpq85SccVNYc2icu6kf1/ +e7FDLh1z1pw0K1lwhRXDhpSwM3RcqJX/uW3YFfKtRH5WFtFxaHR6Uea8K5xW +L6vTKKNjhJ31aVUVV8h++9FI7h6dvM/8qdJju0Cao6817wwdMfRXnu8eZ7hg +O+y+a5Z8f07pd5yNMzRvdgy5v0DHpcFjt1rozvDT2PLkMR5d5HMbr70w5QTu +atrPJSm6uC4ni84d5wSs3z99VLV1MXwYy+cLHeG//MRDG7x1sSfV/uH8VweY +y1k4dtVPF2sf2aUpDzqAVGZEkVCgLiYYGWYFNjrA5gR/Tk+ILs7uDuezTXOA +2t1WAk6xunj1nblWorIDHF0vkeN/RhdPSt1+7+9pD2uGS6+n9eiiq22anNtn +O6DQA2ernuhi6Y++z5nP7OBLHN3yxYAuOom9/vKcsINLKk2jGi910dCsXbM6 +3w6kggYVHn7QxeM9ZSsOWNrBfCyvtQAXA5+X7uwItreFIZG1xKYVDNx+O2nf +5JwNdOqd/TS8koFQRI/tfWoDtR6L4vvlGHicrpE2WG0D2VVtnmcVGOhcE/Pb +dY8NbHKwXRxfzcADcypPbF5bQ31BoP4xFgN1Hx8wK31oBfmahRU91gx8erXv +8zyxCaanNl5O2sLALr3QZWIlm8C25ee5dbYMtJ90qrA+sgkEHKyOX7ZnoM73 +fPcNhpsgMnZuz2EXBq5qdL6lc8cS7B87a+gEMDBJUkKi7PZGWBopdfF4IgOV +Hyz8Wj5gAYHAKTBLZqCtyzNC6bYF3BMKzplNYeBvscIg27MWcOj8vQS/DAZq +p6jVLfeygPH7YV5G2Qw0F+446/ndHDpX9q36UkTGs22aOSVlDnGczHzrBgY+ +4RbfkBVlChOvOblzjQyUiqA83uFlCk4LU9lXmxmoJjGiarrJFGhrXTN4OQzs +/yR+be9yU3hxQ+1QUycDe2/YmrIaEVhnWt20Bxm48eOqPmtehA97J+VFvjMw +ev6oc5WjMWw7pirb8IOB5b16XWE0Y2i+5rws4CcDue9q5ATxGsOp93fF780w +UFAnjbVYbQTocpQrZpGB7sa3fuVQjaDAQuXdhBAT84oqS7xfroctso6XH6oy +sZgxs/1TtgHkj9I5bmpM9BX/umi4zwBGKwRffVFnotC57U13bA0gFpsp4tpM +3Kzn+lBN3ADKd6nEOjCZaP+52+e/LH0QvjlpP2zMxDaeWzmZ+WvhvsUJrm9O +THSLyubp6NADCbFA2bgdTPS5INjy4LoeeD43XUtxZaLjKn/H75l68Gv3TBDL +g4mfAz8euuSkB2pZ7s8P+DJRb4B7Z9k4G5KHtCr/hTJxjdXSWR4ZNpiG3Hej +ZjDRYvpl+LtUJsy/GN/YfpSJb1Jkm2aCmVBrvpR18DgTBV8dPEpzYILaim2C +r7OYqMr5SuFTZMLS9pe11/KYeNdAd8qxiQEvVnwTxUtMnEuWu9PyQxf2dUhx +QlqZOPNZ3b9LWge0GPo3lAgmhup8G9SZoMH7Ape8wTYmeqhnLvS20MBp3/ng +9Z1MrDt3y6gzkAZGshorBHqY+ExgTD++VRsE9xuGFb1k4t9y3rA3B7WgWM5H +9dEME7t3j/1wlNCA9Wxtus9vJu7vdqik/1CHwc3T+rOzTEz0s0nW61UHwYOp +1qqLTJT5d6Ck86g67OsrC4vlYSGL72ztX351wNQpDk2chXujTUey+NTg3fdk +j0wNFkZu7HXqVVSFWIGtASpaLPSILxQY41UFmVXL9jdos/DIECdE+aMKWFld +Tx6jszAujFVGqVSBW5d6bhivYWHy2POrdcYqkOQiM//VlIW7Tuvoz/kqg+q9 +q3lb3Vg4GRtfRetWhF7a7KVhdxaelFFuMqpRhKi8TTV7PFlYOPjwcnChInTv +Hn+c6s3Cl1XesdrBihBG0RZqDWChRL7pjKK4IrR6VMboRrAw3px+/VSdPLjO +1npRMlmYFGfuqkKRAz4f/tDzJ1iYN8X0LfsoC5Xdjodp2Sysyv0jFNgqC9zF +v85uOsVCQ8chpdRQWbi2wWAg/iwLl2iOKWzsXwkzOU0bJi+T8z/nGVFYugKy +ddq0+ltYmH9UeO+rXcvgmoGbUCKHhas+rOYaxGXQaj79kdnGQp03nvG8csvg +m4va5ZMdLMwRTZYVGJAB69SjCtsesbDmsVP+SXMZEBixl3oyxMK0tOG6BLo0 +xGS//9MzzcKBJ+nUIU1JyCmMHT78i4V3J6/aqopIQtkV6SadWRY6sCpbi75I +wItmy6jMBRYWmTvrrbwpAWvHb/y04WHjugT5Q6x1EvDDNOJjtzgb/aNte647 +UMF/iq+vS4uNfB6RbnJ24uBZZtHrTmOjjtLp6VpFcXDyTu7+rsPGrZ9uC5+c +FIONj3k7pZlsLPtZtVkiVwzUbvA0eeuzUWNtUZDusCiM+XBdnjNnY7Wprk96 +1FLw61+I0vRgI/0sYRI0IgTuGYYHmj3ZKCA5crz3jhBsx5hwWy826i+EzO3J +FgKLyvm9kb5stOh6vLDFTAhUj875ELvJ/631d6u9JgjvTX/buBxgo43oLR8i +bgn4VP9UzMhi40Q6c2RsOz8EJzosWp1kY9vxM7YiDH6IdKh9vvQUG4/bfO4J +FuGH9JnIE9l5bLwwNpv2ro0PKtfNLZwpYuOMR65Mlh4fzBH/nl25wcYVbl/c +i5V5Ibt/aWb7fTamuvtYWKtzQ8HFvYGpXWykxT2etxLihosRveabutl45pqn +WexnLrgtkz3f3cvGutc2DmE3uWDYVTJw4CkbawLGDS4ZcYH6+xXm796zkfF1 +/9Xmpr8mjNpD8pfG2Fgy88H+Wspfk/Upr+Z2fWSji+741FfbvyY26kU3xyfY +OBBY8DF57I9JWJCi/OQkG9fEB0f1S/0xiTVKmLs1xcbdlXEVR94umqSIvhuM +mGGjmoLVifjKRZP8qovHZmfZaLtYaJS0edHkQjxfQOM8G9k8j7mSli2a3Ni2 +yyx2kcyPE2Kez8YWTGqVO1eZ/GWjltTxvtjaBZOWKbW5f//YaJ29ZigyacHk +fztCKdY= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.13968130021382197`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.13968130021382197`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Ve8fAHA7I9xrNcjOvK47FGV8PkYpFBEys0IRZRRR9qpEkkRCOxkJ +ZcU9QkmU0VD6alDRFMqqfuf313m9X+c85/N6nufz+TyPkk+o/S4eLi6um9xc +XP9/Fh3xEWD6FZrYVB/84mPibNI+oGjjrBgNBzqd0NF+DfzrbElSVMyAhcjB +XGX7DVDEyVTgVzwLj1zKC+e3OUKwceTe3wrXYYcHS6J82y4YWAjM/aHQAHwp +xhcK7CJhyat36l8VuoDH2PXubpsUKH1YvP+zwhDseTWeVm94GiqrMl4F0yeA ++4DRRMTAZQiAvrNfwqYgt3yDr93dKggZ03xfWzkHr+7tfFrlWgvCSsnqIwZc +uK06WGWuqh4eGJ3UPbKBC0cp5b5zLfWQuuO8/ip7Lly27cKJHz31wJNdb+kW +xIXZ02tP3ftcD/N/vwQ8L+LCkhNPXi+oNcDnYcdrj3m4MbPkFFFd2ACP8tU1 +OY+48UyfNFPmSCOcoHRrlXrxoujFtv7vq5uhQX9V3dYQXqTqDFeeZTfDqGco +LMbwYshfq25902YwrJDc7nyGF398XXfbzr0ZPm12Pyzay4v3xc9/nT7ZDOZJ +Xx9HG/Lh39MG93kXmmF2RjzSXoYfh43P/VZpvwsqq3z+/VPhR7N95Ua2T+7C +VovajAomP+pcUncNGb4Ll3N2nBfcwo91ZSmS6dN3wV639H5LEj++2tSwRlO1 +BSoCWSu1J/nx42QZt2JCC/i82t7K+0gAdcfUax4zW0G48O3e/UMCSLS3vwCj +VrjlGiI38kEApesreC5tbAXel2nRjdxL0Lr1j/smt1a49KKRvV9/CRoeCOfi +Tm6FD08Vr/13YQmqmAW3MQZaYc+TL9kN0YKYLDXzGvU4IJEdDeppgugmQP1x +x4ADjbYC33JzBdFXaXxSw5gDIo8VrPdVCWJiUMy92Q0cKO+x51cfE0R7+zun +bZ058O1hfXSunRAaFGi2DkVxYH9Hsk+oujCqPpGh7bzDAfnRjQK/2MJo841n +42AjB7p5hMpiURjtbfVkLFo4sBozJzNchDFrtndIsoMDQ42n4y8dE8bE2e2T +4f0cML155fzQd2HkfS+WuvYLGa830MxrURhfbVaQcf7OgcKvWh8+CIpggY3t +zrCfHJjRqtKZVhJBokdZ/uwsB65fvtMstl0Er8ffdbzKRwC18MFL83oRzDG+ ++KtTloCWhqNHHraLoD1vvskpeQKCXtgob+sTwWFn1gZXJQI6pPt2e06IYAdN +OvuFGgHR2UOzUXJLUfaOg2Yek4C3KRMylfFL8aqV3gvpjQRU71vqsHyzKP69 +KKCsHUTAowLJ6AonUQx9Xu1xZC8BH9pXFpv5ieLGjIsJ3aEErFyh+Tk4ThRF +o1ipDhEEJBMbkog6USzUvVy08jABThJxNXuUxfDB+tXfUjIJ2GeUOvRPVwxn +VmdoRGURcNQ/81+usRh656509ztJQGtjoXXrDjHcvS6iRus0ARq+9e8ls8Qw +p+OwReg5AuZrJiXvLoihcl+wwNB1AqT+m11nLySOf8f6/INuEEAX5PL6KCOO +nUOnB3+XE+DrLlZOZYljRevt13+ryPnwaVv4B4qjr2V4T0cdOR86a89CpDg2 +jj1u1bhDAJfLuuzsJHL8lacPU+oJWFNhOdx4XhxP9zcz6E0EnHf0ixB/Ko7R +w/d3GXAIqI8LKrj0ThynR1dbBhMEDFwP46z7IY4xm423FLQRwBeHArf4KVhN +edkz2k6AwcBW+2FFCsZZmfawuwjYEGg/dkWdgpblD7nWPSTA/o9j1H46BW/L +jewy6CYgWN3jvIARBQ9GWHWv7iGgNCZoguFMwWObDVhNTwhgcIRm0zzI8V1N +Asl9BHD4rvGP+FIw5Mmh55b9BLzJHFXM3EfBjzxu4ZwBcv37E+mjByio7+9i +GjlIwD8ZJSPDwxTMvbuFuvopAfIlHs7jGRSkp0w0Rz4joHJ0wQ+zKdgZnlAo +85wAY82CsDN5FKyy/Zxwi7T7rWeZGy6S8bfQgl+9IKCg3ba9tJmCi1EZbyZf +EqAl9K1vto2CI5O96kGvCGjYcnzEtouCz9cuSRoh/eLZg/k/TynIep4W0zBM +QKBsgKDjMAW36U/KKrwm4PdOfpnydxQM3Z31LI60zLgp0/U7BT99aCth/UfA +FZ03JtUzFLxflFGTTHpN2BEbwUUKLp//+KGPdPttOdedPFQMvxdjtHKEgO0L +jQG3Bam4o2O0zoP0KLhEiopT0bOnffs50uHJvxP9pKkYcr115TPSPF2ns5tk +qTi5OkZI5A0BOaJ65yWUqfhTpFjZkLSyff+N3RpU3KXwNMCfdHXevgYOnYqb +VnW9PE4aX4ndX7aGio8aNA5Xkn6iUDEYYkjF4+cv2nWT9vKzftdhSsWawM9O +70l/vzb+XW4TFWlXa07+In3ka9qf8K1UbH5RzcP/lgAxlppI93Yqmu8puiFG ++vyB9uXKblQcqNU9IUlap8lHLdqbii8WVMr/7+Z/XHpPAqhoGaS/RJy0jUWx +qXoIFRukNUv//7/hdGPbIxFULPjZEPObjBfU88r96SHy++Hy/FHS89RDe2gJ +VKSf6Jx7RPqo0/KopDQq/rrQU3KT9MrC2ykvM6lYmnM0K4v09ZHtp5i5VLx4 +8/793aQNVKdK0guoSNXaZg2kHwSerBwpoWIV74wshfSOCt3mtVepKLc8yXCY +XO+Pkz1dmRVUHJXuuXGRtECM8JhhIxWNSkZTVEnntV77mcOh4pVznlOvyf1d +zWfJNdFJRVfPr/U5pC0yk2TzB6g43lfn8I3Ml8E+Jc3vQ1TcZ1lGO03aV4az +duMbKnbza+7SJ51YvLht+gsVhbZtXdxL5p8do36/9hQV/zmIp/ORlifCT/rM +UTEwsPlaHpmvje8mnjzhl0BvBbGbFWR+p4df+bFkqQRqBtoVsEg78flQQEIC +HUUaFWuGCPi5esi2Ql4Cr/PaCV0l64NzOzd0VFUCBXLUQleSPmFplyWrLYF3 +xqOiMsh60tp9vzdDXwKJfb9iXcn68ymv2+JvJ4Huv/YlPCDrl2G8f2+RkwTC +Un39FaT/9tAyB90l8HZ0UPEust4Lvl98ZLZbAveurTsxSfaHflaOtUKiBKb0 +68s/I/uHaUPI5hc1Evjhz8rqgU4yn6y0dos3SuA6dbeINx1kPrwcS9/IkcBV +CkJC42S/ilp0f1D7SAKT7xZXfiX72U2wtjw5JoE33p1T7mghQLFTfYPVMknM +S/LfX0n2029O7/0SVkmi40SOUXQtmX8fzyfXq0jiDd3MOagh91tIpl2NIYlS +PYxtxE0Csm34zHk3S+KBXK/qU2T/5hp4g82HJFHHtls4uoQ8T8ZbSg8lSKKW +/Y0lo+cJEOIq4lmXLon5WzT8rYoIkNBxaa87LYnEzBd7oQIyH9L6LKtuSmJ8 +ykUDu1MEWBm2bb3wgYx3dbSUL4WA3m0lVV5fJbGrYgefehIBDoFHKArTkuhl +PzFtkUD2s9Pr+wu5pRC1Go+Fk+dXyPdbjqflpNDM69JIYSQBpy5edE+3l0K7 +3SOlsrsIWN6YcHejixTukRg0mvUh4NyTnfL8XlKYfaP/1BMvsj/9kX2TsFcK +c83yEiLcyfPCOdc3Jl0KS1uXVWY4kOstkrInpEUKPed+vv6MBKhF+Edt15JG +9cVTQZeWk/W8fsShmCGNKQ2H7mnLEKDHtUN3Yq00Lj7JvlMlSYDZ8c0f4syl +8aUP60iFGAGel2jbb7hLY/nsvYfx5H0hb/CnLk+WNDKIJVnp5H2Df03cx6op +aYyIH7Cn3+PA6MwZJ5G7Mii+Q2zcy5sDF0zZ4a/vyWDxS5bbaw8O7Mzszap6 +KIOCe79mO7ly4KUqf5fDCxms77ffDg4c6HMIMzw3JYP0e4wzExYcaKm2UdTR +WoZvRM7+KFPnwJm93BNbzyxDeeOtOoNPW8FqbM/hnP3L8bDVBgH9/hbYOpqt +LS+/Eg2KMl4pFTfDxD2f+AcVsvghNrVO2q8R6NRnq8x3rsKXR1ea3Bq+A8Iw +4z08JY//LQv/eCiqDiy/uv5WdlTEwbxLW7ZO3IIXbX7crjQlXLwp12EWfxPq +0ts9FWeUMPGtllZsazn480e+6e1Vxokz7fyq0dfANyymbmmBCubLFNVHPLsE +ugHavTbeqtjZweHzKimFxxI0kch1qzE65qnUX+kiaKpMLKTxquEK6aitutR8 +iOHWsnv0Wg2PtX4J0PY7BcLDhzaF1KrjvQ1J7SJCWbD24HXRrDvqaLlfSqDs +2wnwlnjRX9Wojq0fM7RdB09A/aY1HpMcdZxqb+L7UXwC/Ou+74/oUcdpM27l +Sf0TQJzwKzz0QR2v5k5lmQVlQpTp1m+pyzXwVe6I7Lf/jsHYFaXc4lgNnAgv +NW2bTYcvyW/neOM1cF7n+zXOm3T46VO6MzBJA1fFnHzX9yAduBSUtJlHNdBu +actl2tl0WHlGsa3tjAbGf5lzaVufDnZpCj/Gbmng2kac2JWQBs0Bq2xo4xpY +VyyxYrNcKuRqrOBrcNRE1xgfbbfUJHD3VLv6focmPjIsdhSLSALVXLaVmLsm +Huxp6njsnQS1/7Zk+/poYnTRgvNh4yQYfJYoJxaqiUaYH5A4kwiSKV/0fNM1 +cf7Atq06gYmQ87Z1l2iTJjrliVg+dk6A7AL/+96KWlgfJxqvePcIHDyQGB6r +ooWSxTvDOoqPgKf9eYUzalqY7XF8RWLiEaAJPzv4iKaFXXN7tphtOgJd0Rs0 +9Ndp4WvG9ebhwcPA46KasdReC1U+HbXd+zMWIpe9s7qTpIWl7Sk3C0xiwDXX +o3fpRy2UNi94s2p5FMjVCMsGTWhhrfUbRcO/B2Gk705A11ctPBB0x2Df6EHw +E5fgTp3WQpFdtBtK1Qch5Ggn+x+3Nl6poRDF1gchMV737KScNroXS0zPJR+A +68Hcfs/stdGmReV1tWAkzFpcnitu0cbSW/VeJXZhENtUnNROaGOM27OsLOMw +4GIViI63a6PKA9ZCllYYLFHIUmJ1a6PTkffb2/nCQGYuanP7c20Mi56qn2vY +D+wKm7OffmgjV4to7HH1/RAiPW3AVKHh25gHvYti++DnsW9tjmo0bE2tuvB7 +IRQiecZtDmnSsOZ533Lpl6EQ+/211z1dGlZqysxX5IXCsa776Y5GNOS7dZfL +kRoK1w4Xvoh2pOGbJLN236Uh8H7MLKotjYZcj34Xv18eDGbFvRe0jtHwkeyY ++4rZICjZ4dqTc4KG8Rsrq/Y9DwLP7v3KvqdpeHJ8/ZWkvCB4ebPkEe9FGh41 +i+nUlwmC/pi/ihtaaPgfUhI4snugjdrYdX+ahgrUv0m5JoGg1L1hWneWhiNR +IoX3lQIhPrlPPn+BhjyuKm+X8weCye9P4YE8Oignfuek9KMAaBxeJi9E0UEX +l9ayCLcAuHU1MsxKWwcV3Q4p18T5wwVjpmyPtw5W7svIiXvtB21bhZMW/HRQ +NX+yabLDD97tfD+hGaiDXEr3DsZU+oFK4unG1BAdvPmk3vlpnB9c6pxzwRgd +pHGrnCpR8YPLtm35Nbk6uNzW80dSqC9c83aQKbivg8+16WGzy3zgQRjtyIOH +Oqi0MumEPq8PfEri//CrRwfLBXcPH/vmDRpX7tQ5DOrg4yvD98I7vOH6hKyj +6FsdVMssajeJ8Iay8NFT8fM6qF26taf6qRdUpERSA3TouLfM6Yai7U74YuSR +mMKgo1tq+4S79k6gTVtMXWTTUSAzo+rukp1Q5iP19M06Oi5xX2P1heMJ16Am +33UjHQOs/e3m9Tzh0twPha076aj5p3Vji4oHFOwNpq85SccVNYc2icu6kf1/ +e7FDLh1z1pw0K1lwhRXDhpSwM3RcqJX/uW3YFfKtRH5WFtFxaHR6Uea8K5xW +L6vTKKNjhJ31aVUVV8h++9FI7h6dvM/8qdJju0Cao6817wwdMfRXnu8eZ7hg +O+y+a5Z8f07pd5yNMzRvdgy5v0DHpcFjt1rozvDT2PLkMR5d5HMbr70w5QTu +atrPJSm6uC4ni84d5wSs3z99VLV1MXwYy+cLHeG//MRDG7x1sSfV/uH8VweY +y1k4dtVPF2sf2aUpDzqAVGZEkVCgLiYYGWYFNjrA5gR/Tk+ILs7uDuezTXOA +2t1WAk6xunj1nblWorIDHF0vkeN/RhdPSt1+7+9pD2uGS6+n9eiiq22anNtn +O6DQA2ernuhi6Y++z5nP7OBLHN3yxYAuOom9/vKcsINLKk2jGi910dCsXbM6 +3w6kggYVHn7QxeM9ZSsOWNrBfCyvtQAXA5+X7uwItreFIZG1xKYVDNx+O2nf +5JwNdOqd/TS8koFQRI/tfWoDtR6L4vvlGHicrpE2WG0D2VVtnmcVGOhcE/Pb +dY8NbHKwXRxfzcADcypPbF5bQ31BoP4xFgN1Hx8wK31oBfmahRU91gx8erXv +8zyxCaanNl5O2sLALr3QZWIlm8C25ee5dbYMtJ90qrA+sgkEHKyOX7ZnoM73 +fPcNhpsgMnZuz2EXBq5qdL6lc8cS7B87a+gEMDBJUkKi7PZGWBopdfF4IgOV +Hyz8Wj5gAYHAKTBLZqCtyzNC6bYF3BMKzplNYeBvscIg27MWcOj8vQS/DAZq +p6jVLfeygPH7YV5G2Qw0F+446/ndHDpX9q36UkTGs22aOSVlDnGczHzrBgY+ +4RbfkBVlChOvOblzjQyUiqA83uFlCk4LU9lXmxmoJjGiarrJFGhrXTN4OQzs +/yR+be9yU3hxQ+1QUycDe2/YmrIaEVhnWt20Bxm48eOqPmtehA97J+VFvjMw +ev6oc5WjMWw7pirb8IOB5b16XWE0Y2i+5rws4CcDue9q5ATxGsOp93fF780w +UFAnjbVYbQTocpQrZpGB7sa3fuVQjaDAQuXdhBAT84oqS7xfroctso6XH6oy +sZgxs/1TtgHkj9I5bmpM9BX/umi4zwBGKwRffVFnotC57U13bA0gFpsp4tpM +3Kzn+lBN3ADKd6nEOjCZaP+52+e/LH0QvjlpP2zMxDaeWzmZ+WvhvsUJrm9O +THSLyubp6NADCbFA2bgdTPS5INjy4LoeeD43XUtxZaLjKn/H75l68Gv3TBDL +g4mfAz8euuSkB2pZ7s8P+DJRb4B7Z9k4G5KHtCr/hTJxjdXSWR4ZNpiG3Hej +ZjDRYvpl+LtUJsy/GN/YfpSJb1Jkm2aCmVBrvpR18DgTBV8dPEpzYILaim2C +r7OYqMr5SuFTZMLS9pe11/KYeNdAd8qxiQEvVnwTxUtMnEuWu9PyQxf2dUhx +QlqZOPNZ3b9LWge0GPo3lAgmhup8G9SZoMH7Ape8wTYmeqhnLvS20MBp3/ng +9Z1MrDt3y6gzkAZGshorBHqY+ExgTD++VRsE9xuGFb1k4t9y3rA3B7WgWM5H +9dEME7t3j/1wlNCA9Wxtus9vJu7vdqik/1CHwc3T+rOzTEz0s0nW61UHwYOp +1qqLTJT5d6Ck86g67OsrC4vlYSGL72ztX351wNQpDk2chXujTUey+NTg3fdk +j0wNFkZu7HXqVVSFWIGtASpaLPSILxQY41UFmVXL9jdos/DIECdE+aMKWFld +Tx6jszAujFVGqVSBW5d6bhivYWHy2POrdcYqkOQiM//VlIW7Tuvoz/kqg+q9 +q3lb3Vg4GRtfRetWhF7a7KVhdxaelFFuMqpRhKi8TTV7PFlYOPjwcnChInTv +Hn+c6s3Cl1XesdrBihBG0RZqDWChRL7pjKK4IrR6VMboRrAw3px+/VSdPLjO +1npRMlmYFGfuqkKRAz4f/tDzJ1iYN8X0LfsoC5Xdjodp2Sysyv0jFNgqC9zF +v85uOsVCQ8chpdRQWbi2wWAg/iwLl2iOKWzsXwkzOU0bJi+T8z/nGVFYugKy +ddq0+ltYmH9UeO+rXcvgmoGbUCKHhas+rOYaxGXQaj79kdnGQp03nvG8csvg +m4va5ZMdLMwRTZYVGJAB69SjCtsesbDmsVP+SXMZEBixl3oyxMK0tOG6BLo0 +xGS//9MzzcKBJ+nUIU1JyCmMHT78i4V3J6/aqopIQtkV6SadWRY6sCpbi75I +wItmy6jMBRYWmTvrrbwpAWvHb/y04WHjugT5Q6x1EvDDNOJjtzgb/aNte647 +UMF/iq+vS4uNfB6RbnJ24uBZZtHrTmOjjtLp6VpFcXDyTu7+rsPGrZ9uC5+c +FIONj3k7pZlsLPtZtVkiVwzUbvA0eeuzUWNtUZDusCiM+XBdnjNnY7Wprk96 +1FLw61+I0vRgI/0sYRI0IgTuGYYHmj3ZKCA5crz3jhBsx5hwWy826i+EzO3J +FgKLyvm9kb5stOh6vLDFTAhUj875ELvJ/631d6u9JgjvTX/buBxgo43oLR8i +bgn4VP9UzMhi40Q6c2RsOz8EJzosWp1kY9vxM7YiDH6IdKh9vvQUG4/bfO4J +FuGH9JnIE9l5bLwwNpv2ro0PKtfNLZwpYuOMR65Mlh4fzBH/nl25wcYVbl/c +i5V5Ibt/aWb7fTamuvtYWKtzQ8HFvYGpXWykxT2etxLihosRveabutl45pqn +WexnLrgtkz3f3cvGutc2DmE3uWDYVTJw4CkbawLGDS4ZcYH6+xXm796zkfF1 +/9Xmpr8mjNpD8pfG2Fgy88H+Wspfk/Upr+Z2fWSji+741FfbvyY26kU3xyfY +OBBY8DF57I9JWJCi/OQkG9fEB0f1S/0xiTVKmLs1xcbdlXEVR94umqSIvhuM +mGGjmoLVifjKRZP8qovHZmfZaLtYaJS0edHkQjxfQOM8G9k8j7mSli2a3Ni2 +yyx2kcyPE2Kez8YWTGqVO1eZ/GWjltTxvtjaBZOWKbW5f//YaJ29ZigyacHk +fztCKdY= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.13968130021382197`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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, 20}, {0., 0.13968130021382197`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991324915847246*^9, 3.9920879372314587`*^9, + 3.9920952143913555`*^9}, + CellLabel-> + "Out[126]=",ExpressionUUID->"0d2e6a4e-7884-ac4a-b403-2f7c3e1c38cc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991797019894987*^9, 3.99179702451466*^9}}, + CellLabel-> + "In[127]:=",ExpressionUUID->"b422dcab-ec5f-5543-9fba-aafac96e937c"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nc8Ve8fAHA7I9xrNcjOvK47FGV8PkYpFBEys0IRZRRR9qpEkkRCOxkJ +ZcU9QkmU0VD6alDRFMqqfuf313m9X+c85/N6nufz+TyPkk+o/S4eLi6um9xc +XP9/Fh3xEWD6FZrYVB/84mPibNI+oGjjrBgNBzqd0NF+DfzrbElSVMyAhcjB +XGX7DVDEyVTgVzwLj1zKC+e3OUKwceTe3wrXYYcHS6J82y4YWAjM/aHQAHwp +xhcK7CJhyat36l8VuoDH2PXubpsUKH1YvP+zwhDseTWeVm94GiqrMl4F0yeA ++4DRRMTAZQiAvrNfwqYgt3yDr93dKggZ03xfWzkHr+7tfFrlWgvCSsnqIwZc +uK06WGWuqh4eGJ3UPbKBC0cp5b5zLfWQuuO8/ip7Lly27cKJHz31wJNdb+kW +xIXZ02tP3ftcD/N/vwQ8L+LCkhNPXi+oNcDnYcdrj3m4MbPkFFFd2ACP8tU1 +OY+48UyfNFPmSCOcoHRrlXrxoujFtv7vq5uhQX9V3dYQXqTqDFeeZTfDqGco +LMbwYshfq25902YwrJDc7nyGF398XXfbzr0ZPm12Pyzay4v3xc9/nT7ZDOZJ +Xx9HG/Lh39MG93kXmmF2RjzSXoYfh43P/VZpvwsqq3z+/VPhR7N95Ua2T+7C +VovajAomP+pcUncNGb4Ll3N2nBfcwo91ZSmS6dN3wV639H5LEj++2tSwRlO1 +BSoCWSu1J/nx42QZt2JCC/i82t7K+0gAdcfUax4zW0G48O3e/UMCSLS3vwCj +VrjlGiI38kEApesreC5tbAXel2nRjdxL0Lr1j/smt1a49KKRvV9/CRoeCOfi +Tm6FD08Vr/13YQmqmAW3MQZaYc+TL9kN0YKYLDXzGvU4IJEdDeppgugmQP1x +x4ADjbYC33JzBdFXaXxSw5gDIo8VrPdVCWJiUMy92Q0cKO+x51cfE0R7+zun +bZ058O1hfXSunRAaFGi2DkVxYH9Hsk+oujCqPpGh7bzDAfnRjQK/2MJo841n +42AjB7p5hMpiURjtbfVkLFo4sBozJzNchDFrtndIsoMDQ42n4y8dE8bE2e2T +4f0cML155fzQd2HkfS+WuvYLGa830MxrURhfbVaQcf7OgcKvWh8+CIpggY3t +zrCfHJjRqtKZVhJBokdZ/uwsB65fvtMstl0Er8ffdbzKRwC18MFL83oRzDG+ ++KtTloCWhqNHHraLoD1vvskpeQKCXtgob+sTwWFn1gZXJQI6pPt2e06IYAdN +OvuFGgHR2UOzUXJLUfaOg2Yek4C3KRMylfFL8aqV3gvpjQRU71vqsHyzKP69 +KKCsHUTAowLJ6AonUQx9Xu1xZC8BH9pXFpv5ieLGjIsJ3aEErFyh+Tk4ThRF +o1ipDhEEJBMbkog6USzUvVy08jABThJxNXuUxfDB+tXfUjIJ2GeUOvRPVwxn +VmdoRGURcNQ/81+usRh656509ztJQGtjoXXrDjHcvS6iRus0ARq+9e8ls8Qw +p+OwReg5AuZrJiXvLoihcl+wwNB1AqT+m11nLySOf8f6/INuEEAX5PL6KCOO +nUOnB3+XE+DrLlZOZYljRevt13+ryPnwaVv4B4qjr2V4T0cdOR86a89CpDg2 +jj1u1bhDAJfLuuzsJHL8lacPU+oJWFNhOdx4XhxP9zcz6E0EnHf0ixB/Ko7R +w/d3GXAIqI8LKrj0ThynR1dbBhMEDFwP46z7IY4xm423FLQRwBeHArf4KVhN +edkz2k6AwcBW+2FFCsZZmfawuwjYEGg/dkWdgpblD7nWPSTA/o9j1H46BW/L +jewy6CYgWN3jvIARBQ9GWHWv7iGgNCZoguFMwWObDVhNTwhgcIRm0zzI8V1N +Asl9BHD4rvGP+FIw5Mmh55b9BLzJHFXM3EfBjzxu4ZwBcv37E+mjByio7+9i +GjlIwD8ZJSPDwxTMvbuFuvopAfIlHs7jGRSkp0w0Rz4joHJ0wQ+zKdgZnlAo +85wAY82CsDN5FKyy/Zxwi7T7rWeZGy6S8bfQgl+9IKCg3ba9tJmCi1EZbyZf +EqAl9K1vto2CI5O96kGvCGjYcnzEtouCz9cuSRoh/eLZg/k/TynIep4W0zBM +QKBsgKDjMAW36U/KKrwm4PdOfpnydxQM3Z31LI60zLgp0/U7BT99aCth/UfA +FZ03JtUzFLxflFGTTHpN2BEbwUUKLp//+KGPdPttOdedPFQMvxdjtHKEgO0L +jQG3Bam4o2O0zoP0KLhEiopT0bOnffs50uHJvxP9pKkYcr115TPSPF2ns5tk +qTi5OkZI5A0BOaJ65yWUqfhTpFjZkLSyff+N3RpU3KXwNMCfdHXevgYOnYqb +VnW9PE4aX4ndX7aGio8aNA5Xkn6iUDEYYkjF4+cv2nWT9vKzftdhSsWawM9O +70l/vzb+XW4TFWlXa07+In3ka9qf8K1UbH5RzcP/lgAxlppI93Yqmu8puiFG ++vyB9uXKblQcqNU9IUlap8lHLdqbii8WVMr/7+Z/XHpPAqhoGaS/RJy0jUWx +qXoIFRukNUv//7/hdGPbIxFULPjZEPObjBfU88r96SHy++Hy/FHS89RDe2gJ +VKSf6Jx7RPqo0/KopDQq/rrQU3KT9MrC2ykvM6lYmnM0K4v09ZHtp5i5VLx4 +8/793aQNVKdK0guoSNXaZg2kHwSerBwpoWIV74wshfSOCt3mtVepKLc8yXCY +XO+Pkz1dmRVUHJXuuXGRtECM8JhhIxWNSkZTVEnntV77mcOh4pVznlOvyf1d +zWfJNdFJRVfPr/U5pC0yk2TzB6g43lfn8I3Ml8E+Jc3vQ1TcZ1lGO03aV4az +duMbKnbza+7SJ51YvLht+gsVhbZtXdxL5p8do36/9hQV/zmIp/ORlifCT/rM +UTEwsPlaHpmvje8mnjzhl0BvBbGbFWR+p4df+bFkqQRqBtoVsEg78flQQEIC +HUUaFWuGCPi5esi2Ql4Cr/PaCV0l64NzOzd0VFUCBXLUQleSPmFplyWrLYF3 +xqOiMsh60tp9vzdDXwKJfb9iXcn68ymv2+JvJ4Huv/YlPCDrl2G8f2+RkwTC +Un39FaT/9tAyB90l8HZ0UPEust4Lvl98ZLZbAveurTsxSfaHflaOtUKiBKb0 +68s/I/uHaUPI5hc1Evjhz8rqgU4yn6y0dos3SuA6dbeINx1kPrwcS9/IkcBV +CkJC42S/ilp0f1D7SAKT7xZXfiX72U2wtjw5JoE33p1T7mghQLFTfYPVMknM +S/LfX0n2029O7/0SVkmi40SOUXQtmX8fzyfXq0jiDd3MOagh91tIpl2NIYlS +PYxtxE0Csm34zHk3S+KBXK/qU2T/5hp4g82HJFHHtls4uoQ8T8ZbSg8lSKKW +/Y0lo+cJEOIq4lmXLon5WzT8rYoIkNBxaa87LYnEzBd7oQIyH9L6LKtuSmJ8 +ykUDu1MEWBm2bb3wgYx3dbSUL4WA3m0lVV5fJbGrYgefehIBDoFHKArTkuhl +PzFtkUD2s9Pr+wu5pRC1Go+Fk+dXyPdbjqflpNDM69JIYSQBpy5edE+3l0K7 +3SOlsrsIWN6YcHejixTukRg0mvUh4NyTnfL8XlKYfaP/1BMvsj/9kX2TsFcK +c83yEiLcyfPCOdc3Jl0KS1uXVWY4kOstkrInpEUKPed+vv6MBKhF+Edt15JG +9cVTQZeWk/W8fsShmCGNKQ2H7mnLEKDHtUN3Yq00Lj7JvlMlSYDZ8c0f4syl +8aUP60iFGAGel2jbb7hLY/nsvYfx5H0hb/CnLk+WNDKIJVnp5H2Df03cx6op +aYyIH7Cn3+PA6MwZJ5G7Mii+Q2zcy5sDF0zZ4a/vyWDxS5bbaw8O7Mzszap6 +KIOCe79mO7ly4KUqf5fDCxms77ffDg4c6HMIMzw3JYP0e4wzExYcaKm2UdTR +WoZvRM7+KFPnwJm93BNbzyxDeeOtOoNPW8FqbM/hnP3L8bDVBgH9/hbYOpqt +LS+/Eg2KMl4pFTfDxD2f+AcVsvghNrVO2q8R6NRnq8x3rsKXR1ea3Bq+A8Iw +4z08JY//LQv/eCiqDiy/uv5WdlTEwbxLW7ZO3IIXbX7crjQlXLwp12EWfxPq +0ts9FWeUMPGtllZsazn480e+6e1Vxokz7fyq0dfANyymbmmBCubLFNVHPLsE +ugHavTbeqtjZweHzKimFxxI0kch1qzE65qnUX+kiaKpMLKTxquEK6aitutR8 +iOHWsnv0Wg2PtX4J0PY7BcLDhzaF1KrjvQ1J7SJCWbD24HXRrDvqaLlfSqDs +2wnwlnjRX9Wojq0fM7RdB09A/aY1HpMcdZxqb+L7UXwC/Ou+74/oUcdpM27l +Sf0TQJzwKzz0QR2v5k5lmQVlQpTp1m+pyzXwVe6I7Lf/jsHYFaXc4lgNnAgv +NW2bTYcvyW/neOM1cF7n+zXOm3T46VO6MzBJA1fFnHzX9yAduBSUtJlHNdBu +actl2tl0WHlGsa3tjAbGf5lzaVufDnZpCj/Gbmng2kac2JWQBs0Bq2xo4xpY +VyyxYrNcKuRqrOBrcNRE1xgfbbfUJHD3VLv6focmPjIsdhSLSALVXLaVmLsm +Huxp6njsnQS1/7Zk+/poYnTRgvNh4yQYfJYoJxaqiUaYH5A4kwiSKV/0fNM1 +cf7Atq06gYmQ87Z1l2iTJjrliVg+dk6A7AL/+96KWlgfJxqvePcIHDyQGB6r +ooWSxTvDOoqPgKf9eYUzalqY7XF8RWLiEaAJPzv4iKaFXXN7tphtOgJd0Rs0 +9Ndp4WvG9ebhwcPA46KasdReC1U+HbXd+zMWIpe9s7qTpIWl7Sk3C0xiwDXX +o3fpRy2UNi94s2p5FMjVCMsGTWhhrfUbRcO/B2Gk705A11ctPBB0x2Df6EHw +E5fgTp3WQpFdtBtK1Qch5Ggn+x+3Nl6poRDF1gchMV737KScNroXS0zPJR+A +68Hcfs/stdGmReV1tWAkzFpcnitu0cbSW/VeJXZhENtUnNROaGOM27OsLOMw +4GIViI63a6PKA9ZCllYYLFHIUmJ1a6PTkffb2/nCQGYuanP7c20Mi56qn2vY +D+wKm7OffmgjV4to7HH1/RAiPW3AVKHh25gHvYti++DnsW9tjmo0bE2tuvB7 +IRQiecZtDmnSsOZ533Lpl6EQ+/211z1dGlZqysxX5IXCsa776Y5GNOS7dZfL +kRoK1w4Xvoh2pOGbJLN236Uh8H7MLKotjYZcj34Xv18eDGbFvRe0jtHwkeyY ++4rZICjZ4dqTc4KG8Rsrq/Y9DwLP7v3KvqdpeHJ8/ZWkvCB4ebPkEe9FGh41 +i+nUlwmC/pi/ihtaaPgfUhI4snugjdrYdX+ahgrUv0m5JoGg1L1hWneWhiNR +IoX3lQIhPrlPPn+BhjyuKm+X8weCye9P4YE8Oignfuek9KMAaBxeJi9E0UEX +l9ayCLcAuHU1MsxKWwcV3Q4p18T5wwVjpmyPtw5W7svIiXvtB21bhZMW/HRQ +NX+yabLDD97tfD+hGaiDXEr3DsZU+oFK4unG1BAdvPmk3vlpnB9c6pxzwRgd +pHGrnCpR8YPLtm35Nbk6uNzW80dSqC9c83aQKbivg8+16WGzy3zgQRjtyIOH +Oqi0MumEPq8PfEri//CrRwfLBXcPH/vmDRpX7tQ5DOrg4yvD98I7vOH6hKyj +6FsdVMssajeJ8Iay8NFT8fM6qF26taf6qRdUpERSA3TouLfM6Yai7U74YuSR +mMKgo1tq+4S79k6gTVtMXWTTUSAzo+rukp1Q5iP19M06Oi5xX2P1heMJ16Am +33UjHQOs/e3m9Tzh0twPha076aj5p3Vji4oHFOwNpq85SccVNYc2icu6kf1/ +e7FDLh1z1pw0K1lwhRXDhpSwM3RcqJX/uW3YFfKtRH5WFtFxaHR6Uea8K5xW +L6vTKKNjhJ31aVUVV8h++9FI7h6dvM/8qdJju0Cao6817wwdMfRXnu8eZ7hg +O+y+a5Z8f07pd5yNMzRvdgy5v0DHpcFjt1rozvDT2PLkMR5d5HMbr70w5QTu +atrPJSm6uC4ni84d5wSs3z99VLV1MXwYy+cLHeG//MRDG7x1sSfV/uH8VweY +y1k4dtVPF2sf2aUpDzqAVGZEkVCgLiYYGWYFNjrA5gR/Tk+ILs7uDuezTXOA +2t1WAk6xunj1nblWorIDHF0vkeN/RhdPSt1+7+9pD2uGS6+n9eiiq22anNtn +O6DQA2ernuhi6Y++z5nP7OBLHN3yxYAuOom9/vKcsINLKk2jGi910dCsXbM6 +3w6kggYVHn7QxeM9ZSsOWNrBfCyvtQAXA5+X7uwItreFIZG1xKYVDNx+O2nf +5JwNdOqd/TS8koFQRI/tfWoDtR6L4vvlGHicrpE2WG0D2VVtnmcVGOhcE/Pb +dY8NbHKwXRxfzcADcypPbF5bQ31BoP4xFgN1Hx8wK31oBfmahRU91gx8erXv +8zyxCaanNl5O2sLALr3QZWIlm8C25ee5dbYMtJ90qrA+sgkEHKyOX7ZnoM73 +fPcNhpsgMnZuz2EXBq5qdL6lc8cS7B87a+gEMDBJUkKi7PZGWBopdfF4IgOV +Hyz8Wj5gAYHAKTBLZqCtyzNC6bYF3BMKzplNYeBvscIg27MWcOj8vQS/DAZq +p6jVLfeygPH7YV5G2Qw0F+446/ndHDpX9q36UkTGs22aOSVlDnGczHzrBgY+ +4RbfkBVlChOvOblzjQyUiqA83uFlCk4LU9lXmxmoJjGiarrJFGhrXTN4OQzs +/yR+be9yU3hxQ+1QUycDe2/YmrIaEVhnWt20Bxm48eOqPmtehA97J+VFvjMw +ev6oc5WjMWw7pirb8IOB5b16XWE0Y2i+5rws4CcDue9q5ATxGsOp93fF780w +UFAnjbVYbQTocpQrZpGB7sa3fuVQjaDAQuXdhBAT84oqS7xfroctso6XH6oy +sZgxs/1TtgHkj9I5bmpM9BX/umi4zwBGKwRffVFnotC57U13bA0gFpsp4tpM +3Kzn+lBN3ADKd6nEOjCZaP+52+e/LH0QvjlpP2zMxDaeWzmZ+WvhvsUJrm9O +THSLyubp6NADCbFA2bgdTPS5INjy4LoeeD43XUtxZaLjKn/H75l68Gv3TBDL +g4mfAz8euuSkB2pZ7s8P+DJRb4B7Z9k4G5KHtCr/hTJxjdXSWR4ZNpiG3Hej +ZjDRYvpl+LtUJsy/GN/YfpSJb1Jkm2aCmVBrvpR18DgTBV8dPEpzYILaim2C +r7OYqMr5SuFTZMLS9pe11/KYeNdAd8qxiQEvVnwTxUtMnEuWu9PyQxf2dUhx +QlqZOPNZ3b9LWge0GPo3lAgmhup8G9SZoMH7Ape8wTYmeqhnLvS20MBp3/ng +9Z1MrDt3y6gzkAZGshorBHqY+ExgTD++VRsE9xuGFb1k4t9y3rA3B7WgWM5H +9dEME7t3j/1wlNCA9Wxtus9vJu7vdqik/1CHwc3T+rOzTEz0s0nW61UHwYOp +1qqLTJT5d6Ck86g67OsrC4vlYSGL72ztX351wNQpDk2chXujTUey+NTg3fdk +j0wNFkZu7HXqVVSFWIGtASpaLPSILxQY41UFmVXL9jdos/DIECdE+aMKWFld +Tx6jszAujFVGqVSBW5d6bhivYWHy2POrdcYqkOQiM//VlIW7Tuvoz/kqg+q9 +q3lb3Vg4GRtfRetWhF7a7KVhdxaelFFuMqpRhKi8TTV7PFlYOPjwcnChInTv +Hn+c6s3Cl1XesdrBihBG0RZqDWChRL7pjKK4IrR6VMboRrAw3px+/VSdPLjO +1npRMlmYFGfuqkKRAz4f/tDzJ1iYN8X0LfsoC5Xdjodp2Sysyv0jFNgqC9zF +v85uOsVCQ8chpdRQWbi2wWAg/iwLl2iOKWzsXwkzOU0bJi+T8z/nGVFYugKy +ddq0+ltYmH9UeO+rXcvgmoGbUCKHhas+rOYaxGXQaj79kdnGQp03nvG8csvg +m4va5ZMdLMwRTZYVGJAB69SjCtsesbDmsVP+SXMZEBixl3oyxMK0tOG6BLo0 +xGS//9MzzcKBJ+nUIU1JyCmMHT78i4V3J6/aqopIQtkV6SadWRY6sCpbi75I +wItmy6jMBRYWmTvrrbwpAWvHb/y04WHjugT5Q6x1EvDDNOJjtzgb/aNte647 +UMF/iq+vS4uNfB6RbnJ24uBZZtHrTmOjjtLp6VpFcXDyTu7+rsPGrZ9uC5+c +FIONj3k7pZlsLPtZtVkiVwzUbvA0eeuzUWNtUZDusCiM+XBdnjNnY7Wprk96 +1FLw61+I0vRgI/0sYRI0IgTuGYYHmj3ZKCA5crz3jhBsx5hwWy826i+EzO3J +FgKLyvm9kb5stOh6vLDFTAhUj875ELvJ/631d6u9JgjvTX/buBxgo43oLR8i +bgn4VP9UzMhi40Q6c2RsOz8EJzosWp1kY9vxM7YiDH6IdKh9vvQUG4/bfO4J +FuGH9JnIE9l5bLwwNpv2ro0PKtfNLZwpYuOMR65Mlh4fzBH/nl25wcYVbl/c +i5V5Ibt/aWb7fTamuvtYWKtzQ8HFvYGpXWykxT2etxLihosRveabutl45pqn +WexnLrgtkz3f3cvGutc2DmE3uWDYVTJw4CkbawLGDS4ZcYH6+xXm796zkfF1 +/9Xmpr8mjNpD8pfG2Fgy88H+Wspfk/Upr+Z2fWSji+741FfbvyY26kU3xyfY +OBBY8DF57I9JWJCi/OQkG9fEB0f1S/0xiTVKmLs1xcbdlXEVR94umqSIvhuM +mGGjmoLVifjKRZP8qovHZmfZaLtYaJS0edHkQjxfQOM8G9k8j7mSli2a3Ni2 +yyx2kcyPE2Kez8YWTGqVO1eZ/GWjltTxvtjaBZOWKbW5f//YaJ29ZigyacHk +fztCKdY= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Ve8fAHA7I9xrNcjOvK47FGV8PkYpFBEys0IRZRRR9qpEkkRCOxkJ +ZcU9QkmU0VD6alDRFMqqfuf313m9X+c85/N6nufz+TyPkk+o/S4eLi6um9xc +XP9/Fh3xEWD6FZrYVB/84mPibNI+oGjjrBgNBzqd0NF+DfzrbElSVMyAhcjB +XGX7DVDEyVTgVzwLj1zKC+e3OUKwceTe3wrXYYcHS6J82y4YWAjM/aHQAHwp +xhcK7CJhyat36l8VuoDH2PXubpsUKH1YvP+zwhDseTWeVm94GiqrMl4F0yeA ++4DRRMTAZQiAvrNfwqYgt3yDr93dKggZ03xfWzkHr+7tfFrlWgvCSsnqIwZc +uK06WGWuqh4eGJ3UPbKBC0cp5b5zLfWQuuO8/ip7Lly27cKJHz31wJNdb+kW +xIXZ02tP3ftcD/N/vwQ8L+LCkhNPXi+oNcDnYcdrj3m4MbPkFFFd2ACP8tU1 +OY+48UyfNFPmSCOcoHRrlXrxoujFtv7vq5uhQX9V3dYQXqTqDFeeZTfDqGco +LMbwYshfq25902YwrJDc7nyGF398XXfbzr0ZPm12Pyzay4v3xc9/nT7ZDOZJ +Xx9HG/Lh39MG93kXmmF2RjzSXoYfh43P/VZpvwsqq3z+/VPhR7N95Ua2T+7C +VovajAomP+pcUncNGb4Ll3N2nBfcwo91ZSmS6dN3wV639H5LEj++2tSwRlO1 +BSoCWSu1J/nx42QZt2JCC/i82t7K+0gAdcfUax4zW0G48O3e/UMCSLS3vwCj +VrjlGiI38kEApesreC5tbAXel2nRjdxL0Lr1j/smt1a49KKRvV9/CRoeCOfi +Tm6FD08Vr/13YQmqmAW3MQZaYc+TL9kN0YKYLDXzGvU4IJEdDeppgugmQP1x +x4ADjbYC33JzBdFXaXxSw5gDIo8VrPdVCWJiUMy92Q0cKO+x51cfE0R7+zun +bZ058O1hfXSunRAaFGi2DkVxYH9Hsk+oujCqPpGh7bzDAfnRjQK/2MJo841n +42AjB7p5hMpiURjtbfVkLFo4sBozJzNchDFrtndIsoMDQ42n4y8dE8bE2e2T +4f0cML155fzQd2HkfS+WuvYLGa830MxrURhfbVaQcf7OgcKvWh8+CIpggY3t +zrCfHJjRqtKZVhJBokdZ/uwsB65fvtMstl0Er8ffdbzKRwC18MFL83oRzDG+ ++KtTloCWhqNHHraLoD1vvskpeQKCXtgob+sTwWFn1gZXJQI6pPt2e06IYAdN +OvuFGgHR2UOzUXJLUfaOg2Yek4C3KRMylfFL8aqV3gvpjQRU71vqsHyzKP69 +KKCsHUTAowLJ6AonUQx9Xu1xZC8BH9pXFpv5ieLGjIsJ3aEErFyh+Tk4ThRF +o1ipDhEEJBMbkog6USzUvVy08jABThJxNXuUxfDB+tXfUjIJ2GeUOvRPVwxn +VmdoRGURcNQ/81+usRh656509ztJQGtjoXXrDjHcvS6iRus0ARq+9e8ls8Qw +p+OwReg5AuZrJiXvLoihcl+wwNB1AqT+m11nLySOf8f6/INuEEAX5PL6KCOO +nUOnB3+XE+DrLlZOZYljRevt13+ryPnwaVv4B4qjr2V4T0cdOR86a89CpDg2 +jj1u1bhDAJfLuuzsJHL8lacPU+oJWFNhOdx4XhxP9zcz6E0EnHf0ixB/Ko7R +w/d3GXAIqI8LKrj0ThynR1dbBhMEDFwP46z7IY4xm423FLQRwBeHArf4KVhN +edkz2k6AwcBW+2FFCsZZmfawuwjYEGg/dkWdgpblD7nWPSTA/o9j1H46BW/L +jewy6CYgWN3jvIARBQ9GWHWv7iGgNCZoguFMwWObDVhNTwhgcIRm0zzI8V1N +Asl9BHD4rvGP+FIw5Mmh55b9BLzJHFXM3EfBjzxu4ZwBcv37E+mjByio7+9i +GjlIwD8ZJSPDwxTMvbuFuvopAfIlHs7jGRSkp0w0Rz4joHJ0wQ+zKdgZnlAo +85wAY82CsDN5FKyy/Zxwi7T7rWeZGy6S8bfQgl+9IKCg3ba9tJmCi1EZbyZf +EqAl9K1vto2CI5O96kGvCGjYcnzEtouCz9cuSRoh/eLZg/k/TynIep4W0zBM +QKBsgKDjMAW36U/KKrwm4PdOfpnydxQM3Z31LI60zLgp0/U7BT99aCth/UfA +FZ03JtUzFLxflFGTTHpN2BEbwUUKLp//+KGPdPttOdedPFQMvxdjtHKEgO0L +jQG3Bam4o2O0zoP0KLhEiopT0bOnffs50uHJvxP9pKkYcr115TPSPF2ns5tk +qTi5OkZI5A0BOaJ65yWUqfhTpFjZkLSyff+N3RpU3KXwNMCfdHXevgYOnYqb +VnW9PE4aX4ndX7aGio8aNA5Xkn6iUDEYYkjF4+cv2nWT9vKzftdhSsWawM9O +70l/vzb+XW4TFWlXa07+In3ka9qf8K1UbH5RzcP/lgAxlppI93Yqmu8puiFG ++vyB9uXKblQcqNU9IUlap8lHLdqbii8WVMr/7+Z/XHpPAqhoGaS/RJy0jUWx +qXoIFRukNUv//7/hdGPbIxFULPjZEPObjBfU88r96SHy++Hy/FHS89RDe2gJ +VKSf6Jx7RPqo0/KopDQq/rrQU3KT9MrC2ykvM6lYmnM0K4v09ZHtp5i5VLx4 +8/793aQNVKdK0guoSNXaZg2kHwSerBwpoWIV74wshfSOCt3mtVepKLc8yXCY +XO+Pkz1dmRVUHJXuuXGRtECM8JhhIxWNSkZTVEnntV77mcOh4pVznlOvyf1d +zWfJNdFJRVfPr/U5pC0yk2TzB6g43lfn8I3Ml8E+Jc3vQ1TcZ1lGO03aV4az +duMbKnbza+7SJ51YvLht+gsVhbZtXdxL5p8do36/9hQV/zmIp/ORlifCT/rM +UTEwsPlaHpmvje8mnjzhl0BvBbGbFWR+p4df+bFkqQRqBtoVsEg78flQQEIC +HUUaFWuGCPi5esi2Ql4Cr/PaCV0l64NzOzd0VFUCBXLUQleSPmFplyWrLYF3 +xqOiMsh60tp9vzdDXwKJfb9iXcn68ymv2+JvJ4Huv/YlPCDrl2G8f2+RkwTC +Un39FaT/9tAyB90l8HZ0UPEust4Lvl98ZLZbAveurTsxSfaHflaOtUKiBKb0 +68s/I/uHaUPI5hc1Evjhz8rqgU4yn6y0dos3SuA6dbeINx1kPrwcS9/IkcBV +CkJC42S/ilp0f1D7SAKT7xZXfiX72U2wtjw5JoE33p1T7mghQLFTfYPVMknM +S/LfX0n2029O7/0SVkmi40SOUXQtmX8fzyfXq0jiDd3MOagh91tIpl2NIYlS +PYxtxE0Csm34zHk3S+KBXK/qU2T/5hp4g82HJFHHtls4uoQ8T8ZbSg8lSKKW +/Y0lo+cJEOIq4lmXLon5WzT8rYoIkNBxaa87LYnEzBd7oQIyH9L6LKtuSmJ8 +ykUDu1MEWBm2bb3wgYx3dbSUL4WA3m0lVV5fJbGrYgefehIBDoFHKArTkuhl +PzFtkUD2s9Pr+wu5pRC1Go+Fk+dXyPdbjqflpNDM69JIYSQBpy5edE+3l0K7 +3SOlsrsIWN6YcHejixTukRg0mvUh4NyTnfL8XlKYfaP/1BMvsj/9kX2TsFcK +c83yEiLcyfPCOdc3Jl0KS1uXVWY4kOstkrInpEUKPed+vv6MBKhF+Edt15JG +9cVTQZeWk/W8fsShmCGNKQ2H7mnLEKDHtUN3Yq00Lj7JvlMlSYDZ8c0f4syl +8aUP60iFGAGel2jbb7hLY/nsvYfx5H0hb/CnLk+WNDKIJVnp5H2Df03cx6op +aYyIH7Cn3+PA6MwZJ5G7Mii+Q2zcy5sDF0zZ4a/vyWDxS5bbaw8O7Mzszap6 +KIOCe79mO7ly4KUqf5fDCxms77ffDg4c6HMIMzw3JYP0e4wzExYcaKm2UdTR +WoZvRM7+KFPnwJm93BNbzyxDeeOtOoNPW8FqbM/hnP3L8bDVBgH9/hbYOpqt +LS+/Eg2KMl4pFTfDxD2f+AcVsvghNrVO2q8R6NRnq8x3rsKXR1ea3Bq+A8Iw +4z08JY//LQv/eCiqDiy/uv5WdlTEwbxLW7ZO3IIXbX7crjQlXLwp12EWfxPq +0ts9FWeUMPGtllZsazn480e+6e1Vxokz7fyq0dfANyymbmmBCubLFNVHPLsE +ugHavTbeqtjZweHzKimFxxI0kch1qzE65qnUX+kiaKpMLKTxquEK6aitutR8 +iOHWsnv0Wg2PtX4J0PY7BcLDhzaF1KrjvQ1J7SJCWbD24HXRrDvqaLlfSqDs +2wnwlnjRX9Wojq0fM7RdB09A/aY1HpMcdZxqb+L7UXwC/Ou+74/oUcdpM27l +Sf0TQJzwKzz0QR2v5k5lmQVlQpTp1m+pyzXwVe6I7Lf/jsHYFaXc4lgNnAgv +NW2bTYcvyW/neOM1cF7n+zXOm3T46VO6MzBJA1fFnHzX9yAduBSUtJlHNdBu +actl2tl0WHlGsa3tjAbGf5lzaVufDnZpCj/Gbmng2kac2JWQBs0Bq2xo4xpY +VyyxYrNcKuRqrOBrcNRE1xgfbbfUJHD3VLv6focmPjIsdhSLSALVXLaVmLsm +Huxp6njsnQS1/7Zk+/poYnTRgvNh4yQYfJYoJxaqiUaYH5A4kwiSKV/0fNM1 +cf7Atq06gYmQ87Z1l2iTJjrliVg+dk6A7AL/+96KWlgfJxqvePcIHDyQGB6r +ooWSxTvDOoqPgKf9eYUzalqY7XF8RWLiEaAJPzv4iKaFXXN7tphtOgJd0Rs0 +9Ndp4WvG9ebhwcPA46KasdReC1U+HbXd+zMWIpe9s7qTpIWl7Sk3C0xiwDXX +o3fpRy2UNi94s2p5FMjVCMsGTWhhrfUbRcO/B2Gk705A11ctPBB0x2Df6EHw +E5fgTp3WQpFdtBtK1Qch5Ggn+x+3Nl6poRDF1gchMV737KScNroXS0zPJR+A +68Hcfs/stdGmReV1tWAkzFpcnitu0cbSW/VeJXZhENtUnNROaGOM27OsLOMw +4GIViI63a6PKA9ZCllYYLFHIUmJ1a6PTkffb2/nCQGYuanP7c20Mi56qn2vY +D+wKm7OffmgjV4to7HH1/RAiPW3AVKHh25gHvYti++DnsW9tjmo0bE2tuvB7 +IRQiecZtDmnSsOZ533Lpl6EQ+/211z1dGlZqysxX5IXCsa776Y5GNOS7dZfL +kRoK1w4Xvoh2pOGbJLN236Uh8H7MLKotjYZcj34Xv18eDGbFvRe0jtHwkeyY ++4rZICjZ4dqTc4KG8Rsrq/Y9DwLP7v3KvqdpeHJ8/ZWkvCB4ebPkEe9FGh41 +i+nUlwmC/pi/ihtaaPgfUhI4snugjdrYdX+ahgrUv0m5JoGg1L1hWneWhiNR +IoX3lQIhPrlPPn+BhjyuKm+X8weCye9P4YE8Oignfuek9KMAaBxeJi9E0UEX +l9ayCLcAuHU1MsxKWwcV3Q4p18T5wwVjpmyPtw5W7svIiXvtB21bhZMW/HRQ +NX+yabLDD97tfD+hGaiDXEr3DsZU+oFK4unG1BAdvPmk3vlpnB9c6pxzwRgd +pHGrnCpR8YPLtm35Nbk6uNzW80dSqC9c83aQKbivg8+16WGzy3zgQRjtyIOH +Oqi0MumEPq8PfEri//CrRwfLBXcPH/vmDRpX7tQ5DOrg4yvD98I7vOH6hKyj +6FsdVMssajeJ8Iay8NFT8fM6qF26taf6qRdUpERSA3TouLfM6Yai7U74YuSR +mMKgo1tq+4S79k6gTVtMXWTTUSAzo+rukp1Q5iP19M06Oi5xX2P1heMJ16Am +33UjHQOs/e3m9Tzh0twPha076aj5p3Vji4oHFOwNpq85SccVNYc2icu6kf1/ +e7FDLh1z1pw0K1lwhRXDhpSwM3RcqJX/uW3YFfKtRH5WFtFxaHR6Uea8K5xW +L6vTKKNjhJ31aVUVV8h++9FI7h6dvM/8qdJju0Cao6817wwdMfRXnu8eZ7hg +O+y+a5Z8f07pd5yNMzRvdgy5v0DHpcFjt1rozvDT2PLkMR5d5HMbr70w5QTu +atrPJSm6uC4ni84d5wSs3z99VLV1MXwYy+cLHeG//MRDG7x1sSfV/uH8VweY +y1k4dtVPF2sf2aUpDzqAVGZEkVCgLiYYGWYFNjrA5gR/Tk+ILs7uDuezTXOA +2t1WAk6xunj1nblWorIDHF0vkeN/RhdPSt1+7+9pD2uGS6+n9eiiq22anNtn +O6DQA2ernuhi6Y++z5nP7OBLHN3yxYAuOom9/vKcsINLKk2jGi910dCsXbM6 +3w6kggYVHn7QxeM9ZSsOWNrBfCyvtQAXA5+X7uwItreFIZG1xKYVDNx+O2nf +5JwNdOqd/TS8koFQRI/tfWoDtR6L4vvlGHicrpE2WG0D2VVtnmcVGOhcE/Pb +dY8NbHKwXRxfzcADcypPbF5bQ31BoP4xFgN1Hx8wK31oBfmahRU91gx8erXv +8zyxCaanNl5O2sLALr3QZWIlm8C25ee5dbYMtJ90qrA+sgkEHKyOX7ZnoM73 +fPcNhpsgMnZuz2EXBq5qdL6lc8cS7B87a+gEMDBJUkKi7PZGWBopdfF4IgOV +Hyz8Wj5gAYHAKTBLZqCtyzNC6bYF3BMKzplNYeBvscIg27MWcOj8vQS/DAZq +p6jVLfeygPH7YV5G2Qw0F+446/ndHDpX9q36UkTGs22aOSVlDnGczHzrBgY+ +4RbfkBVlChOvOblzjQyUiqA83uFlCk4LU9lXmxmoJjGiarrJFGhrXTN4OQzs +/yR+be9yU3hxQ+1QUycDe2/YmrIaEVhnWt20Bxm48eOqPmtehA97J+VFvjMw +ev6oc5WjMWw7pirb8IOB5b16XWE0Y2i+5rws4CcDue9q5ATxGsOp93fF780w +UFAnjbVYbQTocpQrZpGB7sa3fuVQjaDAQuXdhBAT84oqS7xfroctso6XH6oy +sZgxs/1TtgHkj9I5bmpM9BX/umi4zwBGKwRffVFnotC57U13bA0gFpsp4tpM +3Kzn+lBN3ADKd6nEOjCZaP+52+e/LH0QvjlpP2zMxDaeWzmZ+WvhvsUJrm9O +THSLyubp6NADCbFA2bgdTPS5INjy4LoeeD43XUtxZaLjKn/H75l68Gv3TBDL +g4mfAz8euuSkB2pZ7s8P+DJRb4B7Z9k4G5KHtCr/hTJxjdXSWR4ZNpiG3Hej +ZjDRYvpl+LtUJsy/GN/YfpSJb1Jkm2aCmVBrvpR18DgTBV8dPEpzYILaim2C +r7OYqMr5SuFTZMLS9pe11/KYeNdAd8qxiQEvVnwTxUtMnEuWu9PyQxf2dUhx +QlqZOPNZ3b9LWge0GPo3lAgmhup8G9SZoMH7Ape8wTYmeqhnLvS20MBp3/ng +9Z1MrDt3y6gzkAZGshorBHqY+ExgTD++VRsE9xuGFb1k4t9y3rA3B7WgWM5H +9dEME7t3j/1wlNCA9Wxtus9vJu7vdqik/1CHwc3T+rOzTEz0s0nW61UHwYOp +1qqLTJT5d6Ck86g67OsrC4vlYSGL72ztX351wNQpDk2chXujTUey+NTg3fdk +j0wNFkZu7HXqVVSFWIGtASpaLPSILxQY41UFmVXL9jdos/DIECdE+aMKWFld +Tx6jszAujFVGqVSBW5d6bhivYWHy2POrdcYqkOQiM//VlIW7Tuvoz/kqg+q9 +q3lb3Vg4GRtfRetWhF7a7KVhdxaelFFuMqpRhKi8TTV7PFlYOPjwcnChInTv +Hn+c6s3Cl1XesdrBihBG0RZqDWChRL7pjKK4IrR6VMboRrAw3px+/VSdPLjO +1npRMlmYFGfuqkKRAz4f/tDzJ1iYN8X0LfsoC5Xdjodp2Sysyv0jFNgqC9zF +v85uOsVCQ8chpdRQWbi2wWAg/iwLl2iOKWzsXwkzOU0bJi+T8z/nGVFYugKy +ddq0+ltYmH9UeO+rXcvgmoGbUCKHhas+rOYaxGXQaj79kdnGQp03nvG8csvg +m4va5ZMdLMwRTZYVGJAB69SjCtsesbDmsVP+SXMZEBixl3oyxMK0tOG6BLo0 +xGS//9MzzcKBJ+nUIU1JyCmMHT78i4V3J6/aqopIQtkV6SadWRY6sCpbi75I +wItmy6jMBRYWmTvrrbwpAWvHb/y04WHjugT5Q6x1EvDDNOJjtzgb/aNte647 +UMF/iq+vS4uNfB6RbnJ24uBZZtHrTmOjjtLp6VpFcXDyTu7+rsPGrZ9uC5+c +FIONj3k7pZlsLPtZtVkiVwzUbvA0eeuzUWNtUZDusCiM+XBdnjNnY7Wprk96 +1FLw61+I0vRgI/0sYRI0IgTuGYYHmj3ZKCA5crz3jhBsx5hwWy826i+EzO3J +FgKLyvm9kb5stOh6vLDFTAhUj875ELvJ/631d6u9JgjvTX/buBxgo43oLR8i +bgn4VP9UzMhi40Q6c2RsOz8EJzosWp1kY9vxM7YiDH6IdKh9vvQUG4/bfO4J +FuGH9JnIE9l5bLwwNpv2ro0PKtfNLZwpYuOMR65Mlh4fzBH/nl25wcYVbl/c +i5V5Ibt/aWb7fTamuvtYWKtzQ8HFvYGpXWykxT2etxLihosRveabutl45pqn +WexnLrgtkz3f3cvGutc2DmE3uWDYVTJw4CkbawLGDS4ZcYH6+xXm796zkfF1 +/9Xmpr8mjNpD8pfG2Fgy88H+Wspfk/Upr+Z2fWSji+741FfbvyY26kU3xyfY +OBBY8DF57I9JWJCi/OQkG9fEB0f1S/0xiTVKmLs1xcbdlXEVR94umqSIvhuM +mGGjmoLVifjKRZP8qovHZmfZaLtYaJS0edHkQjxfQOM8G9k8j7mSli2a3Ni2 +yyx2kcyPE2Kez8YWTGqVO1eZ/GWjltTxvtjaBZOWKbW5f//YaJ29ZigyacHk +fztCKdY= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.13968130021382197`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.13968130021382197`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Ve8fAHA7I9xrNcjOvK47FGV8PkYpFBEys0IRZRRR9qpEkkRCOxkJ +ZcU9QkmU0VD6alDRFMqqfuf313m9X+c85/N6nufz+TyPkk+o/S4eLi6um9xc +XP9/Fh3xEWD6FZrYVB/84mPibNI+oGjjrBgNBzqd0NF+DfzrbElSVMyAhcjB +XGX7DVDEyVTgVzwLj1zKC+e3OUKwceTe3wrXYYcHS6J82y4YWAjM/aHQAHwp +xhcK7CJhyat36l8VuoDH2PXubpsUKH1YvP+zwhDseTWeVm94GiqrMl4F0yeA ++4DRRMTAZQiAvrNfwqYgt3yDr93dKggZ03xfWzkHr+7tfFrlWgvCSsnqIwZc +uK06WGWuqh4eGJ3UPbKBC0cp5b5zLfWQuuO8/ip7Lly27cKJHz31wJNdb+kW +xIXZ02tP3ftcD/N/vwQ8L+LCkhNPXi+oNcDnYcdrj3m4MbPkFFFd2ACP8tU1 +OY+48UyfNFPmSCOcoHRrlXrxoujFtv7vq5uhQX9V3dYQXqTqDFeeZTfDqGco +LMbwYshfq25902YwrJDc7nyGF398XXfbzr0ZPm12Pyzay4v3xc9/nT7ZDOZJ +Xx9HG/Lh39MG93kXmmF2RjzSXoYfh43P/VZpvwsqq3z+/VPhR7N95Ua2T+7C +VovajAomP+pcUncNGb4Ll3N2nBfcwo91ZSmS6dN3wV639H5LEj++2tSwRlO1 +BSoCWSu1J/nx42QZt2JCC/i82t7K+0gAdcfUax4zW0G48O3e/UMCSLS3vwCj +VrjlGiI38kEApesreC5tbAXel2nRjdxL0Lr1j/smt1a49KKRvV9/CRoeCOfi +Tm6FD08Vr/13YQmqmAW3MQZaYc+TL9kN0YKYLDXzGvU4IJEdDeppgugmQP1x +x4ADjbYC33JzBdFXaXxSw5gDIo8VrPdVCWJiUMy92Q0cKO+x51cfE0R7+zun +bZ058O1hfXSunRAaFGi2DkVxYH9Hsk+oujCqPpGh7bzDAfnRjQK/2MJo841n +42AjB7p5hMpiURjtbfVkLFo4sBozJzNchDFrtndIsoMDQ42n4y8dE8bE2e2T +4f0cML155fzQd2HkfS+WuvYLGa830MxrURhfbVaQcf7OgcKvWh8+CIpggY3t +zrCfHJjRqtKZVhJBokdZ/uwsB65fvtMstl0Er8ffdbzKRwC18MFL83oRzDG+ ++KtTloCWhqNHHraLoD1vvskpeQKCXtgob+sTwWFn1gZXJQI6pPt2e06IYAdN +OvuFGgHR2UOzUXJLUfaOg2Yek4C3KRMylfFL8aqV3gvpjQRU71vqsHyzKP69 +KKCsHUTAowLJ6AonUQx9Xu1xZC8BH9pXFpv5ieLGjIsJ3aEErFyh+Tk4ThRF +o1ipDhEEJBMbkog6USzUvVy08jABThJxNXuUxfDB+tXfUjIJ2GeUOvRPVwxn +VmdoRGURcNQ/81+usRh656509ztJQGtjoXXrDjHcvS6iRus0ARq+9e8ls8Qw +p+OwReg5AuZrJiXvLoihcl+wwNB1AqT+m11nLySOf8f6/INuEEAX5PL6KCOO +nUOnB3+XE+DrLlZOZYljRevt13+ryPnwaVv4B4qjr2V4T0cdOR86a89CpDg2 +jj1u1bhDAJfLuuzsJHL8lacPU+oJWFNhOdx4XhxP9zcz6E0EnHf0ixB/Ko7R +w/d3GXAIqI8LKrj0ThynR1dbBhMEDFwP46z7IY4xm423FLQRwBeHArf4KVhN +edkz2k6AwcBW+2FFCsZZmfawuwjYEGg/dkWdgpblD7nWPSTA/o9j1H46BW/L +jewy6CYgWN3jvIARBQ9GWHWv7iGgNCZoguFMwWObDVhNTwhgcIRm0zzI8V1N +Asl9BHD4rvGP+FIw5Mmh55b9BLzJHFXM3EfBjzxu4ZwBcv37E+mjByio7+9i +GjlIwD8ZJSPDwxTMvbuFuvopAfIlHs7jGRSkp0w0Rz4joHJ0wQ+zKdgZnlAo +85wAY82CsDN5FKyy/Zxwi7T7rWeZGy6S8bfQgl+9IKCg3ba9tJmCi1EZbyZf +EqAl9K1vto2CI5O96kGvCGjYcnzEtouCz9cuSRoh/eLZg/k/TynIep4W0zBM +QKBsgKDjMAW36U/KKrwm4PdOfpnydxQM3Z31LI60zLgp0/U7BT99aCth/UfA +FZ03JtUzFLxflFGTTHpN2BEbwUUKLp//+KGPdPttOdedPFQMvxdjtHKEgO0L +jQG3Bam4o2O0zoP0KLhEiopT0bOnffs50uHJvxP9pKkYcr115TPSPF2ns5tk +qTi5OkZI5A0BOaJ65yWUqfhTpFjZkLSyff+N3RpU3KXwNMCfdHXevgYOnYqb +VnW9PE4aX4ndX7aGio8aNA5Xkn6iUDEYYkjF4+cv2nWT9vKzftdhSsWawM9O +70l/vzb+XW4TFWlXa07+In3ka9qf8K1UbH5RzcP/lgAxlppI93Yqmu8puiFG ++vyB9uXKblQcqNU9IUlap8lHLdqbii8WVMr/7+Z/XHpPAqhoGaS/RJy0jUWx +qXoIFRukNUv//7/hdGPbIxFULPjZEPObjBfU88r96SHy++Hy/FHS89RDe2gJ +VKSf6Jx7RPqo0/KopDQq/rrQU3KT9MrC2ykvM6lYmnM0K4v09ZHtp5i5VLx4 +8/793aQNVKdK0guoSNXaZg2kHwSerBwpoWIV74wshfSOCt3mtVepKLc8yXCY +XO+Pkz1dmRVUHJXuuXGRtECM8JhhIxWNSkZTVEnntV77mcOh4pVznlOvyf1d +zWfJNdFJRVfPr/U5pC0yk2TzB6g43lfn8I3Ml8E+Jc3vQ1TcZ1lGO03aV4az +duMbKnbza+7SJ51YvLht+gsVhbZtXdxL5p8do36/9hQV/zmIp/ORlifCT/rM +UTEwsPlaHpmvje8mnjzhl0BvBbGbFWR+p4df+bFkqQRqBtoVsEg78flQQEIC +HUUaFWuGCPi5esi2Ql4Cr/PaCV0l64NzOzd0VFUCBXLUQleSPmFplyWrLYF3 +xqOiMsh60tp9vzdDXwKJfb9iXcn68ymv2+JvJ4Huv/YlPCDrl2G8f2+RkwTC +Un39FaT/9tAyB90l8HZ0UPEust4Lvl98ZLZbAveurTsxSfaHflaOtUKiBKb0 +68s/I/uHaUPI5hc1Evjhz8rqgU4yn6y0dos3SuA6dbeINx1kPrwcS9/IkcBV +CkJC42S/ilp0f1D7SAKT7xZXfiX72U2wtjw5JoE33p1T7mghQLFTfYPVMknM +S/LfX0n2029O7/0SVkmi40SOUXQtmX8fzyfXq0jiDd3MOagh91tIpl2NIYlS +PYxtxE0Csm34zHk3S+KBXK/qU2T/5hp4g82HJFHHtls4uoQ8T8ZbSg8lSKKW +/Y0lo+cJEOIq4lmXLon5WzT8rYoIkNBxaa87LYnEzBd7oQIyH9L6LKtuSmJ8 +ykUDu1MEWBm2bb3wgYx3dbSUL4WA3m0lVV5fJbGrYgefehIBDoFHKArTkuhl +PzFtkUD2s9Pr+wu5pRC1Go+Fk+dXyPdbjqflpNDM69JIYSQBpy5edE+3l0K7 +3SOlsrsIWN6YcHejixTukRg0mvUh4NyTnfL8XlKYfaP/1BMvsj/9kX2TsFcK +c83yEiLcyfPCOdc3Jl0KS1uXVWY4kOstkrInpEUKPed+vv6MBKhF+Edt15JG +9cVTQZeWk/W8fsShmCGNKQ2H7mnLEKDHtUN3Yq00Lj7JvlMlSYDZ8c0f4syl +8aUP60iFGAGel2jbb7hLY/nsvYfx5H0hb/CnLk+WNDKIJVnp5H2Df03cx6op +aYyIH7Cn3+PA6MwZJ5G7Mii+Q2zcy5sDF0zZ4a/vyWDxS5bbaw8O7Mzszap6 +KIOCe79mO7ly4KUqf5fDCxms77ffDg4c6HMIMzw3JYP0e4wzExYcaKm2UdTR +WoZvRM7+KFPnwJm93BNbzyxDeeOtOoNPW8FqbM/hnP3L8bDVBgH9/hbYOpqt +LS+/Eg2KMl4pFTfDxD2f+AcVsvghNrVO2q8R6NRnq8x3rsKXR1ea3Bq+A8Iw +4z08JY//LQv/eCiqDiy/uv5WdlTEwbxLW7ZO3IIXbX7crjQlXLwp12EWfxPq +0ts9FWeUMPGtllZsazn480e+6e1Vxokz7fyq0dfANyymbmmBCubLFNVHPLsE +ugHavTbeqtjZweHzKimFxxI0kch1qzE65qnUX+kiaKpMLKTxquEK6aitutR8 +iOHWsnv0Wg2PtX4J0PY7BcLDhzaF1KrjvQ1J7SJCWbD24HXRrDvqaLlfSqDs +2wnwlnjRX9Wojq0fM7RdB09A/aY1HpMcdZxqb+L7UXwC/Ou+74/oUcdpM27l +Sf0TQJzwKzz0QR2v5k5lmQVlQpTp1m+pyzXwVe6I7Lf/jsHYFaXc4lgNnAgv +NW2bTYcvyW/neOM1cF7n+zXOm3T46VO6MzBJA1fFnHzX9yAduBSUtJlHNdBu +actl2tl0WHlGsa3tjAbGf5lzaVufDnZpCj/Gbmng2kac2JWQBs0Bq2xo4xpY +VyyxYrNcKuRqrOBrcNRE1xgfbbfUJHD3VLv6focmPjIsdhSLSALVXLaVmLsm +Huxp6njsnQS1/7Zk+/poYnTRgvNh4yQYfJYoJxaqiUaYH5A4kwiSKV/0fNM1 +cf7Atq06gYmQ87Z1l2iTJjrliVg+dk6A7AL/+96KWlgfJxqvePcIHDyQGB6r +ooWSxTvDOoqPgKf9eYUzalqY7XF8RWLiEaAJPzv4iKaFXXN7tphtOgJd0Rs0 +9Ndp4WvG9ebhwcPA46KasdReC1U+HbXd+zMWIpe9s7qTpIWl7Sk3C0xiwDXX +o3fpRy2UNi94s2p5FMjVCMsGTWhhrfUbRcO/B2Gk705A11ctPBB0x2Df6EHw +E5fgTp3WQpFdtBtK1Qch5Ggn+x+3Nl6poRDF1gchMV737KScNroXS0zPJR+A +68Hcfs/stdGmReV1tWAkzFpcnitu0cbSW/VeJXZhENtUnNROaGOM27OsLOMw +4GIViI63a6PKA9ZCllYYLFHIUmJ1a6PTkffb2/nCQGYuanP7c20Mi56qn2vY +D+wKm7OffmgjV4to7HH1/RAiPW3AVKHh25gHvYti++DnsW9tjmo0bE2tuvB7 +IRQiecZtDmnSsOZ533Lpl6EQ+/211z1dGlZqysxX5IXCsa776Y5GNOS7dZfL +kRoK1w4Xvoh2pOGbJLN236Uh8H7MLKotjYZcj34Xv18eDGbFvRe0jtHwkeyY ++4rZICjZ4dqTc4KG8Rsrq/Y9DwLP7v3KvqdpeHJ8/ZWkvCB4ebPkEe9FGh41 +i+nUlwmC/pi/ihtaaPgfUhI4snugjdrYdX+ahgrUv0m5JoGg1L1hWneWhiNR +IoX3lQIhPrlPPn+BhjyuKm+X8weCye9P4YE8Oignfuek9KMAaBxeJi9E0UEX +l9ayCLcAuHU1MsxKWwcV3Q4p18T5wwVjpmyPtw5W7svIiXvtB21bhZMW/HRQ +NX+yabLDD97tfD+hGaiDXEr3DsZU+oFK4unG1BAdvPmk3vlpnB9c6pxzwRgd +pHGrnCpR8YPLtm35Nbk6uNzW80dSqC9c83aQKbivg8+16WGzy3zgQRjtyIOH +Oqi0MumEPq8PfEri//CrRwfLBXcPH/vmDRpX7tQ5DOrg4yvD98I7vOH6hKyj +6FsdVMssajeJ8Iay8NFT8fM6qF26taf6qRdUpERSA3TouLfM6Yai7U74YuSR +mMKgo1tq+4S79k6gTVtMXWTTUSAzo+rukp1Q5iP19M06Oi5xX2P1heMJ16Am +33UjHQOs/e3m9Tzh0twPha076aj5p3Vji4oHFOwNpq85SccVNYc2icu6kf1/ +e7FDLh1z1pw0K1lwhRXDhpSwM3RcqJX/uW3YFfKtRH5WFtFxaHR6Uea8K5xW +L6vTKKNjhJ31aVUVV8h++9FI7h6dvM/8qdJju0Cao6817wwdMfRXnu8eZ7hg +O+y+a5Z8f07pd5yNMzRvdgy5v0DHpcFjt1rozvDT2PLkMR5d5HMbr70w5QTu +atrPJSm6uC4ni84d5wSs3z99VLV1MXwYy+cLHeG//MRDG7x1sSfV/uH8VweY +y1k4dtVPF2sf2aUpDzqAVGZEkVCgLiYYGWYFNjrA5gR/Tk+ILs7uDuezTXOA +2t1WAk6xunj1nblWorIDHF0vkeN/RhdPSt1+7+9pD2uGS6+n9eiiq22anNtn +O6DQA2ernuhi6Y++z5nP7OBLHN3yxYAuOom9/vKcsINLKk2jGi910dCsXbM6 +3w6kggYVHn7QxeM9ZSsOWNrBfCyvtQAXA5+X7uwItreFIZG1xKYVDNx+O2nf +5JwNdOqd/TS8koFQRI/tfWoDtR6L4vvlGHicrpE2WG0D2VVtnmcVGOhcE/Pb +dY8NbHKwXRxfzcADcypPbF5bQ31BoP4xFgN1Hx8wK31oBfmahRU91gx8erXv +8zyxCaanNl5O2sLALr3QZWIlm8C25ee5dbYMtJ90qrA+sgkEHKyOX7ZnoM73 +fPcNhpsgMnZuz2EXBq5qdL6lc8cS7B87a+gEMDBJUkKi7PZGWBopdfF4IgOV +Hyz8Wj5gAYHAKTBLZqCtyzNC6bYF3BMKzplNYeBvscIg27MWcOj8vQS/DAZq +p6jVLfeygPH7YV5G2Qw0F+446/ndHDpX9q36UkTGs22aOSVlDnGczHzrBgY+ +4RbfkBVlChOvOblzjQyUiqA83uFlCk4LU9lXmxmoJjGiarrJFGhrXTN4OQzs +/yR+be9yU3hxQ+1QUycDe2/YmrIaEVhnWt20Bxm48eOqPmtehA97J+VFvjMw +ev6oc5WjMWw7pirb8IOB5b16XWE0Y2i+5rws4CcDue9q5ATxGsOp93fF780w +UFAnjbVYbQTocpQrZpGB7sa3fuVQjaDAQuXdhBAT84oqS7xfroctso6XH6oy +sZgxs/1TtgHkj9I5bmpM9BX/umi4zwBGKwRffVFnotC57U13bA0gFpsp4tpM +3Kzn+lBN3ADKd6nEOjCZaP+52+e/LH0QvjlpP2zMxDaeWzmZ+WvhvsUJrm9O +THSLyubp6NADCbFA2bgdTPS5INjy4LoeeD43XUtxZaLjKn/H75l68Gv3TBDL +g4mfAz8euuSkB2pZ7s8P+DJRb4B7Z9k4G5KHtCr/hTJxjdXSWR4ZNpiG3Hej +ZjDRYvpl+LtUJsy/GN/YfpSJb1Jkm2aCmVBrvpR18DgTBV8dPEpzYILaim2C +r7OYqMr5SuFTZMLS9pe11/KYeNdAd8qxiQEvVnwTxUtMnEuWu9PyQxf2dUhx +QlqZOPNZ3b9LWge0GPo3lAgmhup8G9SZoMH7Ape8wTYmeqhnLvS20MBp3/ng +9Z1MrDt3y6gzkAZGshorBHqY+ExgTD++VRsE9xuGFb1k4t9y3rA3B7WgWM5H +9dEME7t3j/1wlNCA9Wxtus9vJu7vdqik/1CHwc3T+rOzTEz0s0nW61UHwYOp +1qqLTJT5d6Ck86g67OsrC4vlYSGL72ztX351wNQpDk2chXujTUey+NTg3fdk +j0wNFkZu7HXqVVSFWIGtASpaLPSILxQY41UFmVXL9jdos/DIECdE+aMKWFld +Tx6jszAujFVGqVSBW5d6bhivYWHy2POrdcYqkOQiM//VlIW7Tuvoz/kqg+q9 +q3lb3Vg4GRtfRetWhF7a7KVhdxaelFFuMqpRhKi8TTV7PFlYOPjwcnChInTv +Hn+c6s3Cl1XesdrBihBG0RZqDWChRL7pjKK4IrR6VMboRrAw3px+/VSdPLjO +1npRMlmYFGfuqkKRAz4f/tDzJ1iYN8X0LfsoC5Xdjodp2Sysyv0jFNgqC9zF +v85uOsVCQ8chpdRQWbi2wWAg/iwLl2iOKWzsXwkzOU0bJi+T8z/nGVFYugKy +ddq0+ltYmH9UeO+rXcvgmoGbUCKHhas+rOYaxGXQaj79kdnGQp03nvG8csvg +m4va5ZMdLMwRTZYVGJAB69SjCtsesbDmsVP+SXMZEBixl3oyxMK0tOG6BLo0 +xGS//9MzzcKBJ+nUIU1JyCmMHT78i4V3J6/aqopIQtkV6SadWRY6sCpbi75I +wItmy6jMBRYWmTvrrbwpAWvHb/y04WHjugT5Q6x1EvDDNOJjtzgb/aNte647 +UMF/iq+vS4uNfB6RbnJ24uBZZtHrTmOjjtLp6VpFcXDyTu7+rsPGrZ9uC5+c +FIONj3k7pZlsLPtZtVkiVwzUbvA0eeuzUWNtUZDusCiM+XBdnjNnY7Wprk96 +1FLw61+I0vRgI/0sYRI0IgTuGYYHmj3ZKCA5crz3jhBsx5hwWy826i+EzO3J +FgKLyvm9kb5stOh6vLDFTAhUj875ELvJ/631d6u9JgjvTX/buBxgo43oLR8i +bgn4VP9UzMhi40Q6c2RsOz8EJzosWp1kY9vxM7YiDH6IdKh9vvQUG4/bfO4J +FuGH9JnIE9l5bLwwNpv2ro0PKtfNLZwpYuOMR65Mlh4fzBH/nl25wcYVbl/c +i5V5Ibt/aWb7fTamuvtYWKtzQ8HFvYGpXWykxT2etxLihosRveabutl45pqn +WexnLrgtkz3f3cvGutc2DmE3uWDYVTJw4CkbawLGDS4ZcYH6+xXm796zkfF1 +/9Xmpr8mjNpD8pfG2Fgy88H+Wspfk/Upr+Z2fWSji+741FfbvyY26kU3xyfY +OBBY8DF57I9JWJCi/OQkG9fEB0f1S/0xiTVKmLs1xcbdlXEVR94umqSIvhuM +mGGjmoLVifjKRZP8qovHZmfZaLtYaJS0edHkQjxfQOM8G9k8j7mSli2a3Ni2 +yyx2kcyPE2Kez8YWTGqVO1eZ/GWjltTxvtjaBZOWKbW5f//YaJ29ZigyacHk +fztCKdY= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.13968130021382197`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 20}, {0., 0.13968130021382197`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.992087937276457*^9, 3.9920952145399895`*^9}, + CellLabel-> + "Out[127]=",ExpressionUUID->"86a52464-7f53-8d46-a5d1-a814b9500274"] +}, 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[128]:=",ExpressionUUID->"143d6afa-76a8-b440-a2a9-2759769b081f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0594776668265516`*^-219\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 128, 218, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9, 3.9917091704635696`*^9, + 3.9920879373075237`*^9, 3.9920952146149693`*^9}, + CellLabel-> + "During evaluation of \ +In[128]:=",ExpressionUUID->"75884a80-7c5f-dc4c-9602-bf0bfeb0950c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.5724714926217337`*^-225\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 128, 219, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9, 3.9917091704635696`*^9, + 3.9920879373075237`*^9, 3.992095214652876*^9}, + CellLabel-> + "During evaluation of \ +In[128]:=",ExpressionUUID->"12822573-a2b6-a245-8e96-f52e80420c06"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.246105781703911`*^-231\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 128, 220, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9, 3.9917091704635696`*^9, + 3.9920879373075237`*^9, 3.992095214678873*^9}, + CellLabel-> + "During evaluation of \ +In[128]:=",ExpressionUUID->"ba19b056-e5a8-154e-adfd-b32de95e27f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 128, 221, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9, 3.9917091704635696`*^9, + 3.9920879373075237`*^9, 3.9920952146989765`*^9}, + CellLabel-> + "During evaluation of \ +In[128]:=",ExpressionUUID->"2c41def5-c18f-ef47-bda2-2a93dd6f1051"], + +Cell[BoxData["22.63949124283989`"], "Output", + CellChangeTimes->{3.991326513010317*^9, 3.991709175908993*^9, + 3.992087962144432*^9, 3.992095277908125*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"8ec02c35-78ad-8045-a91c-bfd068e2b14b"] +}, 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.9917970149184284`*^9, 3.991797037687023*^9}}, + CellLabel-> + "In[129]:=",ExpressionUUID->"2e239e43-8455-8947-be70-b8e43bbe859a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0651721150524208`*^-253\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 129, 222, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265130447063`*^9, 3.991709175963011*^9, + 3.9920879621784115`*^9, 3.992095278012697*^9}, + CellLabel-> + "During evaluation of \ +In[129]:=",ExpressionUUID->"a5b33038-fea0-7741-aeeb-7a49a752fa24"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.935504816244284`*^-262\\\", \ +\\\"67615075532642592962076366156210530912566907412833894400000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 129, 223, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265130447063`*^9, 3.991709175963011*^9, + 3.9920879621784115`*^9, 3.9920952780575542`*^9}, + CellLabel-> + "During evaluation of \ +In[129]:=",ExpressionUUID->"20fa1f4c-f172-9a4b-b892-b0319d036d84"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4540559163924165`*^-270\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 129, 224, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265130447063`*^9, 3.991709175963011*^9, + 3.9920879621784115`*^9, 3.9920952780906487`*^9}, + CellLabel-> + "During evaluation of \ +In[129]:=",ExpressionUUID->"9d354040-a1a0-2d4b-be51-fedd561b06a1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 129, 225, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265130447063`*^9, 3.991709175963011*^9, + 3.9920879621784115`*^9, 3.992095278115656*^9}, + CellLabel-> + "During evaluation of \ +In[129]:=",ExpressionUUID->"98749a41-ecbe-5f45-abdd-838e213ef8fd"], + +Cell[BoxData["0.0025787500203033505`"], "Output", + CellChangeTimes->{3.9913265201819115`*^9, 3.9917091805041294`*^9, + 3.9920879657184753`*^9, 3.9920952869914436`*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"4dc1f06d-9408-7e45-a030-2c676d143ef7"] +}, 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.9917970412382812`*^9, 3.991797045066601*^9}}, + CellLabel-> + "In[130]:=",ExpressionUUID->"99e346c1-cf6d-8f4a-b6fb-39037ee79c0a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0651721150524208`*^-253\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 130, 226, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326520216116*^9, 3.991709180543247*^9, + 3.9920879657508583`*^9, 3.992095287123516*^9}, + CellLabel-> + "During evaluation of \ +In[130]:=",ExpressionUUID->"c5275299-3fde-c94d-b347-7da6f61e547b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.935504816244284`*^-262\\\", \ +\\\"67615075532642592962076366156210530912566907412833894400000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 130, 227, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326520216116*^9, 3.991709180543247*^9, + 3.9920879657508583`*^9, 3.992095287160486*^9}, + CellLabel-> + "During evaluation of \ +In[130]:=",ExpressionUUID->"9790c932-563b-7140-bff3-9bf4d134623f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4540559163924165`*^-270\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 130, 228, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326520216116*^9, 3.991709180543247*^9, + 3.9920879657508583`*^9, 3.992095287177513*^9}, + CellLabel-> + "During evaluation of \ +In[130]:=",ExpressionUUID->"2ae0fe8c-af7c-d840-8392-7d6b67b8d21d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 130, 229, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326520216116*^9, 3.991709180543247*^9, + 3.9920879657508583`*^9, 3.992095287202532*^9}, + CellLabel-> + "During evaluation of \ +In[130]:=",ExpressionUUID->"c5eb565b-77c6-e147-90ed-902921f0a965"], + +Cell[BoxData["8.092673350073776`"], "Output", + CellChangeTimes->{3.9913265264075394`*^9, 3.9917091848753357`*^9, + 3.992087968323471*^9, 3.9920952955711327`*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"3ae43d36-9223-c94c-8024-3fc8db4fc86d"] +}, 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.9917970522453213`*^9, 3.991797055966772*^9}}, + CellLabel-> + "In[131]:=",ExpressionUUID->"867b2dc8-7ef3-234b-80bd-e701484a92f5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0651721150524208`*^-253\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 131, 230, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265264435444`*^9, 3.9917091849153366`*^9, + 3.992087968355812*^9, 3.992095295673092*^9}, + CellLabel-> + "During evaluation of \ +In[131]:=",ExpressionUUID->"d3f0ed56-bb79-b24e-9ce2-9c0f2416b9ce"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.935504816244284`*^-262\\\", \ +\\\"67615075532642592962076366156210530912566907412833894400000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 131, 231, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265264435444`*^9, 3.9917091849153366`*^9, + 3.992087968355812*^9, 3.9920952957031193`*^9}, + CellLabel-> + "During evaluation of \ +In[131]:=",ExpressionUUID->"1e646479-dde8-144f-acca-05609b4f614e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4540559163924165`*^-270\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 131, 232, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265264435444`*^9, 3.9917091849153366`*^9, + 3.992087968355812*^9, 3.9920952957211285`*^9}, + CellLabel-> + "During evaluation of \ +In[131]:=",ExpressionUUID->"478cc043-a50a-ab4d-8e73-3c14a1374c59"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 131, 233, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265264435444`*^9, 3.9917091849153366`*^9, + 3.992087968355812*^9, 3.9920952957391224`*^9}, + CellLabel-> + "During evaluation of \ +In[131]:=",ExpressionUUID->"2e452b1a-76de-e54d-ac3a-c67b3d435661"], + +Cell[BoxData["132.5629807750473`"], "Output", + CellChangeTimes->{3.9913265299431496`*^9, 3.9917091876094093`*^9, + 3.9920879700286446`*^9, 3.9920953009150314`*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"01afdb5a-a31f-bb44-a07a-08bda2465f7d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991797060470949*^9, 3.9917970642464314`*^9}}, + CellLabel-> + "In[132]:=",ExpressionUUID->"b1cee125-11a3-8a43-b076-a72829d187d3"], + +Cell[BoxData["0.00007873214949058848`"], "Output", + CellChangeTimes->{3.991326529975149*^9, 3.991709187637409*^9, + 3.992087970054697*^9, 3.9920953009792404`*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"13540a6e-ea57-574b-a2e4-5a933d01b5b0"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.99179708384041*^9, 3.991797089031517*^9}, + 3.991923586725128*^9}, + CellLabel-> + "In[133]:=",ExpressionUUID->"e87cb7b6-2d4f-2b46-b7dc-f61f4036bef1"], + +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[134]:=",ExpressionUUID->"dafb41d5-8379-5e45-a5a7-0828c3048eab"], + +Cell[BoxData["6.434497911915048`"], "Output", + CellChangeTimes->{3.9913265300040226`*^9, 3.9917092389246387`*^9, + 3.992087970080673*^9, 3.9920953010422573`*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"efb62571-0061-b941-98f0-9bad1b3dd062"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[135]:=",ExpressionUUID->"3d6ec365-065c-9046-b32d-db356c9d51fa"], + +Cell[BoxData["5.5671885079343415`"], "Output", + CellChangeTimes->{3.991326530052025*^9, 3.991709238967621*^9, + 3.992087970087681*^9, 3.9920953010583305`*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"a1e25184-43fd-3640-ac6a-8360e3f757ca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[136]:=",ExpressionUUID->"c7dc55d1-f163-224f-bef1-731f35b2237f"], + +Cell[BoxData["35.82206282954097`"], "Output", + CellChangeTimes->{3.9913265300922585`*^9, 3.9917092390388947`*^9, + 3.9920879701086807`*^9, 3.9920953010787697`*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"d534abfb-a242-8047-9afa-e1ae43e37f18"] +}, 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[137]:=",ExpressionUUID->"ae1da06e-d004-c94e-a60b-5d6c8a81d4a0"], + +Cell[BoxData["0.026426646734412064`"], "Output", + CellChangeTimes->{3.9913265301172295`*^9, 3.991709239061901*^9, + 3.9920879701327267`*^9, 3.9920953011081505`*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"75189e96-af7c-2240-b331-293903e30f54"] +}, 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[138]:=",ExpressionUUID->"711641aa-bfb1-b442-a8a1-7f2d92e52258"], + +Cell[BoxData["5.451599099024077`"], "Output", + CellChangeTimes->{3.991326530210228*^9, 3.991709239151787*^9, + 3.992087970209774*^9, 3.9920953013575706`*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"c10e95dd-7df9-1b4b-b975-dd444da23052"] +}, 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[139]:=",ExpressionUUID->"03560694-f256-804d-bdf2-150141b736fd"], + +Cell[BoxData["0.0016185252987367153`"], "Output", + CellChangeTimes->{3.9913265302252293`*^9, 3.991709239183817*^9, + 3.9920879702317944`*^9, 3.9920953013926487`*^9}, + CellLabel-> + "Out[139]=",ExpressionUUID->"c948849b-cafa-214b-be04-78cb33ccab7d"] +}, 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[140]:=",ExpressionUUID->"41fd6fe5-afbf-ed41-96d1-404a404fc933"], + +Cell[BoxData["22.02851365127898`"], "Output", + CellChangeTimes->{3.9913265303172264`*^9, 3.9917092392730465`*^9, + 3.9920879703093796`*^9, 3.992095301611532*^9}, + CellLabel-> + "Out[140]=",ExpressionUUID->"2e97305c-0557-904e-88d9-5af3b027d5f6"] +}, 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[141]:=",ExpressionUUID->"1ffc2e4a-e112-f841-8653-59d1c97f1323"], + +Cell[BoxData["0.9443844844348241`"], "Output", + CellChangeTimes->{3.9913265303292294`*^9, 3.9917092392950573`*^9, + 3.992087970331398*^9, 3.992095301644438*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"deec3469-7db7-ca47-ad1c-02e73ff141ca"] +}, 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[142]:=",ExpressionUUID->"c98e90b4-3450-674d-a534-9abe2866d10f"], + +Cell[BoxData["0.05561551556517575`"], "Output", + CellChangeTimes->{3.991326530340416*^9, 3.9917092393180447`*^9, + 3.9920879703544407`*^9, 3.99209530166737*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"c79a8dce-7a4c-fd47-a5d2-18b05310b8d7"] +}, 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[143]:=",ExpressionUUID->"3a1b0a64-3226-5845-846d-8f00794d5760"], + +Cell[BoxData["0.05252242999359545`"], "Output", + CellChangeTimes->{3.991326530367384*^9, 3.9917092393410416`*^9, + 3.9920879703774605`*^9, 3.9920953016905537`*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"a8c89ebf-b25a-574a-a3c2-763635903336"] +}, 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.9917970976395664`*^9}, + CellLabel-> + "In[144]:=",ExpressionUUID->"157a27fc-8a7f-ef4c-bd2d-9f444415254b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.69232866960825`*^-251\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 144, 234, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265303923836`*^9, 3.9917092393670444`*^9, + 3.9920879704024487`*^9, 3.992095301743532*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"52968881-9fdd-3247-9f0e-12e7d89eb2e8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.403450930335177`*^-260\\\", \ +\\\"67615075532642592962076366156210530912566907412833894400000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 144, 235, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265303923836`*^9, 3.9917092393670444`*^9, + 3.9920879704024487`*^9, 3.9920953017785244`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"4ff70a73-e0a8-874f-95f8-637eaa4857d2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2387967338855546`*^-268\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 144, 236, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265303923836`*^9, 3.9917092393670444`*^9, + 3.9920879704024487`*^9, 3.992095301802532*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"eb36c090-1522-f148-bb8a-712cd538f6ec"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 144, 237, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265303923836`*^9, 3.9917092393670444`*^9, + 3.9920879704024487`*^9, 3.9920953018295383`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"dc46d9f9-3a95-6d48-809e-0bac80064f97"], + +Cell[BoxData["5.451599099024076`"], "Output", + CellChangeTimes->{3.9913265339749985`*^9, 3.991709242710472*^9, + 3.9920879723666058`*^9, 3.992095307537245*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"73a21fc2-aafc-8344-a764-3f06847a2e81"] +}, 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.991797103207548*^9}, + CellLabel-> + "In[145]:=",ExpressionUUID->"11801718-69ec-bf4e-86d8-e9949dfbcff4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.69232866960825`*^-251\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 145, 238, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340092525`*^9, 3.9917092427514687`*^9, + 3.9920879724076176`*^9, 3.9920953076732616`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"2e6f13bb-fab0-dc4d-8e0d-399b2b5c3afa"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.403450930335177`*^-260\\\", \ +\\\"67615075532642592962076366156210530912566907412833894400000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 145, 239, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340092525`*^9, 3.9917092427514687`*^9, + 3.9920879724076176`*^9, 3.992095307708254*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"e9c17583-b1c9-4e46-a8d2-6cacf01fbe1c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2387967338855546`*^-268\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 145, 240, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340092525`*^9, 3.9917092427514687`*^9, + 3.9920879724076176`*^9, 3.9920953077312775`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"4bcdcd5c-830e-bc42-a377-8d13ec350007"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 145, 241, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340092525`*^9, 3.9917092427514687`*^9, + 3.9920879724076176`*^9, 3.992095307749264*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"5c6a4779-23ac-c441-9ba0-1c00ef474065"], + +Cell[BoxData["22.02851365127897`"], "Output", + CellChangeTimes->{3.9913265375649567`*^9, 3.991709245963009*^9, + 3.9920879743627453`*^9, 3.9920953136104984`*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"41f44cb4-8774-314f-bb12-e35ad53da4cc"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9917971087080173`*^9, 3.9917971122297535`*^9}}, + CellLabel-> + "In[146]:=",ExpressionUUID->"4d882d59-3e42-1040-97a9-33dddc2b9855"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.548144520935719`*^-288\\\", \ +\\\"14797530453474819213543604224000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 146, 242, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326773051552*^9, 3.992087974554783*^9, + 3.9920953139414043`*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"dc2c7297-7849-1f45-b5b5-5fc66f484f7f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8608421404902835`*^-303\\\", \ +\\\"5919012181389927685417441689600000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 146, 243, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326773051552*^9, 3.992087974554783*^9, + 3.992095313970402*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"a8047b00-b032-3548-99f7-a162f70653a9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{\\\"-\\\", \ +\\\"2.702357102916186`*^-8\\\"}], \\\")\\\"}], \\\"42\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 146, + 244, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326773051552*^9, 3.992087974554783*^9, + 3.992095313990404*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"a89ef68d-0b7b-164d-9716-87d8b76ebb37"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 146, 245, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326773051552*^9, 3.992087974554783*^9, + 3.992095314009405*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"e3d5e900-1285-7e4f-b1d5-d65cb3bf7280"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Xc81f8XB3A7I9yLNOyRcV3ckUrGOUjZQjIjm5IQJUpJVkVCWZWSZDeo +rLhXSgllRqkkEt+mUUbl9/n9dR/Px/3c+znv9/uc11vB+4C9HxcHB8cdTg6O +/39ejvXmo/vmG362Xfg2ou5k2Norb+UkfwRCR3v9E0AHlp80xcvLp4BrdfV/ +9mAKl1mpcrzyueAxmKCsAY4QbBC5/7dcKTwWoUq9NfSD3qXArB9ydfD2w8Ok +ToNIWPFmVPWr3DN4F32Ts0g3Aa61F4T9JzcEm18OqJHUL0DVrZQ3wVpTkK8S +7XyadQMCoDv3S/gMHGJa7QsovAUh4+ofa6oWoEoi8PSMeQ0IKpxSfb+ZA1/M +uUieu1QLT/XPa8eacmDPusMGSeW1kOh8ZZOMPQd6vWrffai+FrjSa7e77ePA +0d7yKN3BWlj89yXg1WUOLHS+esVevA7+G3YsecHFiRvEhn93JNVBR46qOquD +Ews37At8HFQPaaTnlGt7uFHo9BJpltQIdZtk7tmEcKMmHGLkyjbCmMcB+BPD +jdm/1YoZ1EbQqxTf6ZTNjSdmrCONtzfCZ3P3Y8Jd3Fju/dey/2gjmMR/fXFE +jwdvhV9ltY43wvycaKS9JC++PvzwUnXVQ1CS8V5eVuJF42BJv+H6h2CztSal +ks6LbIv21QtPHsKNDOcr/Na8mKPnTxd5/xDsta+1NcXzYr+w1n/FIk1QGchY +p/GTF3Varxil72sC7zc7m7k7+FC1LSyIId0Mgvkf9ocN8eFZzgSbQpVmuOsa +Iv3+Ex8q0ubM+OjNwP066Ug95wrU/BF9uMy0GYoG65lhm1bgVu7icz4hzfCp +X77kXeEKJDf5BGU/bIa9L7+k1x3hRxXtVbmx6iwQSz8Cqkn82LDues4vTRbU +2/J9y8rix32iuumBDBYIvZCzDL3Fj9XiCv5b9FhQ0WnPqzrOj1L3NYouWLHg +W3vtkawdAujrm6JNCWFB2ONT3gdUBdGLR+BQewULZMe28f1iCqJf4F9Po9ss +eM4lUHYUBXFOR35FdTUL1mPqzxQXQXwTbpOaWM+CofoLJ4rOCKK7dfjRb20s +MLpdfGXouyAqLb9Y0fKBeF9XoPGeP4IolqfVPzbGgvyvlE+f+IWwui7Qm+sz +C+YotzRnFYTQXzPqoeY3FpTeeNAoslMIXRL7jpkusoCc//S1Sa0Qpu8qDzlC +ZkNT3enY9lYhPB++xcNMgg37Bq0U7bqF0O7xvJjYajY8XtUd5DElhJGO1Z0X +pNlwJH1oPkp6Je6tO5nlocqGDwlTklUnVmJPokjvnB4b7oSudFhjLozPC9Lm +DL3Y0JEnfqRylzDa/Fv8esGHDZ9a1xUY+wpjWf9A/yc/Nqxbq/5f8HFhbDW/ +dvjQXjacYpvGs+8J4+mWS7LWB9mwS+x49V5FEbTXEng3GM+GUP3EoWVtEZwU +8jF9kcCG0/6py1kGIhgr2FLRnMSG5vp8y2ZnEbyVqXYi7Qwb1HxqP4qfE8EI +/VjXsQw2LFb/FH+4JIIcMmu+h11lg8S7eV17AVGc7gya4C9kgxY/x54JSVGc +ccifyb3OBh93kQoyQxT1Jrmty4qJ9fBobPUPFMWls76UUxXEerQYe5ciRfGn +xprP/1WygcNFNz09XhQp9U9brW+xQady+3D9FVGUXpgcWb7DhiuOvhGi/aKo +f9GlU+YBG2qP78srGhXFu5VCFbtq2dBbGs7S/SGKQwWX7qXUsYHnOPLd5SUh +96kE23cNbNjca2M/LE9CRq1JuxGLDaaB9uPFqiT0/nVTw4rNBvu/jlFhWiQs +9Ext3dHChmDV3Vf49El46p/vdbNWNlyL2TdFcyLhyFC5yUwbG2gsgfmk3STc +El6+lv2UDSyeEt73PiTMePrtR8ozNoykjsmnhpJwyW64ZOVzYv97TmqNHSKh +E8vl7BPCy5IK+nrHSDjlyT4U08EG2au7nSZTSPhtl7D/QCcbqsaWfDGdhJlr +B/Yf7WKDgXpeePZFot4Ru5MyL9jgfncg1fQ6CX9WG7/a8ZINea22rdcaSciz +5prr0R42UAS+dc+3kLC8/vTPRcJ11mff2z4jYXO47LWIXjYMDjxd/NtPwkMG +ATtc+tgQKBXA7zhMwmIupkMr4d+evJIVoyR8ZzgQQelng+SkEd31OwktOCbW +fSZcrDlieGeO8JmYQhggzis81or/DwkDLujYZhBuvS/t6slFxrDKSsURwjuX +6gPu85Ox2ydWVv0VG8bAJVJYlIw1Zlu37id88NTvk76ryOgydflCBWGuZxfS +G6TIqNWrITFBOEN4wxUxRTKuSU5nSw+yQdG+pzxIjYzFiaEF1oTvXAytY2mR +EUzCbx0hjG9E2lbrkNFJ1XDmKuGXcpV9IXpkLD0XG/yI8B5fy9HHRmR0bX8v +/YHw95LJ79JmZNy0isS3SDj2a9LfgzZkHMlvVhcZYoMIQ0Xo+U4yzkdeTZEh +fOVQ6xpFNzJa3vBXVSOs2eCtcsSLjCsknvJoEW5c5tjwMoD4fcZRJW3CVlsL +jFRDyGj0yiBBg/BwsoFtbAQZDxxp01AivK/zjXt/NBkbpgfWSBJeJEfvpcaR +8Ua+hg0P4dO71kTFJxH/X5bY+ZWob13+/YTXqWTU1y7P6SFc+n5nJj2LjCaS +HnfuEt6sPHM1OY+MXxT816YRfhp4vur9VTLOTZ3p8SXsXKnduPEmGWnvct9t +JDzxs/NZaiUZK7a4Aw/hQxuDX41VE+cleu1XB7H/fDGC43r1ZIzT28x3nvDF +5pLpDBaxnsCZAzsIr+fZzjH1hIz2QsU6QoS3psZL5fSS8e1Bs+Fw4vz7uhXU +vw+RsYT/M0uOsI8ka+O2ETIWVb3jf0r008mCP3azX8h4U21ruyDhHbTaMI0Z +Mm6XW7K7SfSjLPvgee8FMioua4cD4frRqZcvecXwgiAj3pvo5+SDxT9WrBRD +w4iMw1+Jft/F400CMTF8DdlCEYSn1w/ZVsqK4V3247UR3cS83s86MKYshlJw +LvsrMT9p23eck9IQQ59S/UZvwpSgtq6UTWLo+CKTE4l58664Z+2/QwytbzTe +ekLMK80gbP/lXWK4e1EpR4bwv05qap+7GMZ1bNoYSsx33vfrHcZBhG+P5/G3 +s6GHkWEpd1IMr7gx9PiI/DCqCzEfrBbDY4Kk+I1EHolYUIJE68XQt8WlzLyZ +6I/X48nbWGK4r3nxhnMTG6L+uD+t6RDDtARZxb2NbLgNltvPj4vhopeBnxuR +f/JPVE0tVosjR/fD/igiP7/t+ugbJyOOOk+F6BZVRD9OXDlVqySOGx42nFhN +5K2zgGSrCk0cs++G8RaXsSHdiseE21wcX+h2vM24QeRx7wg2Rouj3+65vMo8 +4n6ZbLoWHSeOSoHfRuRy2SDAcZlLN1kcm5TVzqRms0FM06X13gVxfLZu42q3 +LKIfkrq337otjp49/1yaU9lgoddiU/hJHBv6/H5WHWdDl93VW3u+iqOt98Kj +wWNscAiMJcnNimPEwIjKvxgi3y5s6cnnlEDFgY8lelFsCPl+1/GCtAQme2V+ +iQtlQ+b16+7J9hIopvfuq8EeNqypj3u4zUUCVQuU1yp6sOHSS09Z3j0SKGpo +yMXlTuTVX6mRuP0SCJei1t5zIu4PpyyfmGQJLH5OrfxsQ+y3UMLekCYJ9BXP +/pWkzwaVCP+onZRVKHlgvKaBuN81t7x3KKCtwpOKZVstxNiwgcNZe2rjKtxR +GhbWL8oG47Pmn46brEIy75vyD4Js8Cii7ix3X4XGRQufuzmIeemb1uY6twor +tl+tFP/CAl6d4xO3Zlah4y/9dk0WC8bmsncJPZREcw0jW3NPFhQaMQ++fSSJ +2Sn/Xe10Y4Fnate5W+2SKBxQcM/GmQWvlXmfOQxKYsT9zTrb7VjQ7RCud2lG +ErvL+j+TTVjQdMdKXpOyGme+3F0mqbAgez/nlE32aqx+qNCR29sMFuN7j2WE +rcE6gR7jie4msBlL15CVXYe5YocGvAsbYeqR94mnlVKY70kS37m3HrTIAzIm +njKofUUv6MH4AxCEOa/hGVksKCw1z4m/B9u/uv5WdJTHLKcJc9nfd2GwxZfT +laqAA4fVKJS023AvudVDfk4BC4O2FbkNV4A/b+RIV5ciNi86/9h4sQR8wmPu +rcxTwi/hVZump4tAO0Cjy8pLGeOb489WN1yDF2JUoUjd9ahQpXx4rfllaKg6 +mU/lVsGE7Ikea8yBGE7Kjo63KvjnjILBqbRMEByONgupUcWF/f+kFxzOwcbD +pcLnHqgipDe0huueAy+xwZ5b9aooHChr90/2HNSa6ez+yVLFy51NixZTaeB/ +73tYRKcqhqx3eVwXlwbsNN/86E+qmOL77uWn6lSIMrL5lrhGDf0CNNUs15+F +8WKFrIKjavi2eEYkf0sKfDn1YYH7hBou2OhlhyumwLT3Nc/AeDXsjfv2210w +BTjkFDTop9Vwo/RLqb2vk2FdtnxLS7YaZnKNvvWNSYYdSXI/xu+qIQcvtaOX +lQSNATJW1Ek1VDLIQweXRMhSW8tT56iOJDe9Bw+a4sHdQ+XmR2d1bArKSDCr +iAflLKaFiLs6Is+DwonceKhZtk738VbH2mN/SndExkPfwElpkQPqWD9eSeqk +xoN4wpcNPsnqOPFS0ifwyknI+NDsJ9ygjvxT3aHTZ+IgPc+/zUuegr0GkfKm +Msfh8KGTB48qUTDF1LqifDkWPOyvyGWrUHDb41NclNFYoAoOHO6gUnAuQr9/ +/81YeHbEVG2TLgX3K5ckkpixwOWinLLSnoI57u/r79kcg8jVoxYP4inY4Gaw +XiY7BlyzdnetnKBgtId/i0tQFEhXC0rtm6IgyWt9vK5tFLzvfhDw7CsFq32b +NtF1osBXVIwzcZaCs8drNgdyRkHI6SfMZU4N/Jofw5rOOwwnT2jn/pTWwHcZ +NfR9PYegNJjTd8BeAxueL9Ij7SNhfuuNhYImDXyuLRrhmRkORxsK4lvZGhjw +vXyF9Ilw4GDkCU+2aqDLvO7PyeBwWCF3ToHxXANZn4Ky6raFg+RClHnrKw28 +J8fNUlkKA2alVe7nHxqYODI9phkQBiGrZjfTlai4cM5ue55lKEyf+dbiqEJF +zpDw8aAtoRDJNWkVrU7F6httjubqoXD0+9s9j7SpGFLBE7tpRSicedaW7KhP +RZ7cIPOCpANQcix/8IgjFc1mPmxuPx4CH8eNo1qSqJhYatNekhgMxgVdhZQz +VFQK8K2N9QuGq86unRlpVGyaWhd1aGsweDwPU/S5QEWjmdtL7VzB8Pr21Q7u +61Sc7ezn5I3bBz0x/+RNm6gYgHduFcXvhRZy/bO2WSqueCD2s+dqICg8N53V +nqfiNsHkgsr4QDhxqls2Z4moX/TUg2L/QDD8/flgIJcmNtooNsxQA6F+eLWs +AEkT63JHdH7VB8Ddm5HhFhqa+MlyxCFx2B8KDehSnV6amGymuFlBxw9abATj +l3w1kcew/Ox2GT8Y9fw4pR6oiR7vBG4k8PqB0skL9Ykhmtjtod5jNuALRU8W +XDCG+L6q4tfnKF+4YduSU52liS4TKo7HW3ygxMtBMq9NEzt1jtBj/b3haTg1 +9mm7JlJqjc4ctvOGz/G8n351amLiQd1tifreoFb84J5DnybaLwRf/CjmDaVT +Uo7CHzTx/Qf/a/ksLyg7OJZ5YlETLUJjMn/KeUFlQiQ5QFMLF2JPFIS98YQv ++rtPJtC0cOzciXjaA0+gzm6duc7UwqDp4K0SmZ5Q5i3RP6KrhVMiRW/NLT2h +BKpzXLdp4cj01l9BDz2gaOGHnI2nFq7u7zP3LtkNefuDtXTOayHjXvmiW44b +kf87CxyytPDI4ArL6Cg3WDusRwrP1kJnKUZRnbMb5FgITVdd1sJ9FfVLeWvd +4IJq2T21Mi2c/HxMdPySK6R/mNCXfqSFo6oyp4+VukCSo48l95wWurt9GloY +coJC22F3v3kt5DKOfl/U4ASN5o4hbUtayBnrfzn8shNMG2w/f4ZLG2nHDesi +vZzAXUXjlThJG1uyDj6Q/G8XMH5PeytraKNM/AnnYp5d8C7nZLSplzamG38f +XLVjJyxkLJ256auNVol7Dr/S2QkSqRGXBQK1cVY6+cEDqZ1gHufP6gzRxrTp +V1d7JxygJsiCb9dRbYzs5a6NjHOA01vEMvyztVEk5biNWb096AxfK03q1MZ/ +Hn0Du4zsgKQVOH/rpTZuWJiT3kC1gy/HtbYP9moj6wPljdpqOyhSahhTe62N +fXXNvs5fd4DEvj659k/E87MSzM68HbB4lNuSj4OG/6jgODtjC0NCG9lma2m4 +s/CDzPnz1vBkQ+7n4XU0NBDNFesLtoaa3X9Ew6RpKFfpnYJm1pB+q8UjV46G +lh/9nC8sW4GZg+2fyfU0zGKRuCihVlCbF7jpDIOGpkub5IedLSFHPb+y05KG +LeFpyrbbzWF2ZtuNeGsa0r5bB3com4Nt0/QlXVsaPpv3q4jgMgc+B4uzN+xp +mNpe6mzaZAaRRxf2HnOh4VUvGo5uMgP7F05qmgE0/FT1tOMDYzusjJS4fvYk +DZ1/qCc1bjOFQGDlGZ+iodIrVjiqm8IjgeCM+QQaztzUaJ4UMoXoK4/ifFOI ++i4a95R3b4XJtvA9+uk0dHqYvGPSYys8Wdct8+UyDSuqhW6uP2ECx1mpOZZ1 +NNzLcD90ZtgIpt6yshbqaahx/P2zD4+MYNfSTPrNRhq2x8m6OZUbAXWjawo3 +i4aV9VdLC6KNYLBcJbrhCQ2NAl4oXFtnBIzsZjeNPhqKcPuYmu9B+LT/p6zQ +dxpGZ9llJ3IZgt0ZZam6HzQcVDHsiB00gMYSp9UB0zTUrJBVrawygMyPD0Uf +zdHwiFPzznI3A0CX0xwxf4j6TcTbVGr1IW+r0uiUAB21fo2cHYvWA2spxxvt +ynSkipkID6/XhZwxLZabCh2DaF0rU3h0YayS/80XVTreB43HHh83w1FsJIlq +0PHYGbPK+GubocJP6agDnY6/g3tiq+Q2g+Dtn/bDBnTUl/vb5aW0Cdq2pnF8 +20XHvbTgVxLbdUBMJFDquDMdBVp/mSZQdMDjldFGkisd+ZWDlNaK6MCvoLl9 +jN105I6Es2X9G0DlnPurQz50HL1T++SA/wY4NUSpWj5AR+PnbmNeaUwwCmlz +I6fQ8fj3m5eHf9FhcXByW+tpOk629lF8hulQY7KScfgs8T7X2TfCLXRQWWvH +//YcHf9qGf7uSqXDytbXNSUX6Via8t/mJRU6DK79JoxFdLT+0dzY70mD0McS +rJBmOm7oKPrd36cJFNqmcgU2HS/9+NNlWqIJH/NcLva10PG2VeXBmRhN2BV6 +JXjLEzqmnnX7yqesCfpSamv5OunoYHxXi+8wFfjD9MIvv6ajm3ZYgJKaBhRI +eyt3zBHrK33C6q9Rgy1MDS3v33Qs/7LuzufzatBnPrtpfp6Oi/cj09UPqAH/ +4URL5T90THJqhw0UNQjtLgs/ysXAsybJ/gGFqoCJMyyqKAP3HGhoWpWvAqPf +T+1OVWPgiw+1iesrlOEon02AEoWBKz0l286lKYOkzOqwOg0Gnnn8KFYhTBks +LEpPjWsxcK55d2b9RmW4W9RZbqDDQB5p1TVNj5Qg3kVy8asRA+UCIeTDmCIo +P7p50caNgX1FKrmuxgrQRZ0vGnZnYEf/vzuv1BUg6qJZ9V4PBkL+fatIsgI8 +D5p8kejFQJOvKUHkD/IQTtIQaA5gYNyt5F9P4+SheXdVjHYEA0WPrdRWzZAD +1/maPaRUBvYufDyrOCwNPN68B66kMZC1uF2u7K40VD13PEZNZ2DeZ2ZoUIo0 +cBb8yjXLZOA/5UndtE3SUGK6ufdELgMnBANmAi9KwVxGg+nPGwzcMuiuoeax +DtI1Wyg9TQwcP/RYh09iDZRsdhM4yWKgvqjzeZFvq6HZZHaC3sLA2yUyfLZP +V8M3F5Ub5x8zsGtPvMDhY6vBMvG0nF0HAyOQh+Y2JQl87+0lXg4xcEGw+iuj +axXEpH/82znLQA+JzI2URnHIyD86fOwXAy/e9XUvuSQOZcWrGjTnGfh4/bE6 +x2PiMNi4PSp1iYGZkq/FDUAcNk6WT1txMVF9RyZz02Mx+GEUMfFclIlqB89H +Xxsig/8MT/czChOn5netv6ZIAo+yrV3uVCamfQpPthAkwS6vU8+/azKR5rLl +PXVMFLa94H6yis7E25k26pRToqBSztXgtYmJkwleV+zaRGDcm+PGggkT4/Ri +W/lchcG3ZylKfTcTFwNGpe5VCYJ7it6hRg8mmi7UjHIkCsJOjDlou4eJB2Xn +5ZN2C8LWqsX9kT5MfKnX+9xIWBCUTy94s4OYGN9aFhBwQAA+Gv22cjnERBvh +XzvohvzgfWdaPuUcE32OdHg0c/NB8EmHPxbnmSgyNTEx9JYXIh1qXq3MZKJx +5ewsvZYXkuci09IvMlFuFUM1dz8vVOkuLGVfZiJdIvKd7hseWGAvDxSXM7G7 +gPNpJJsb0ntWpra2MbGyj7U++gEn5F3fH5j4jIkBBeW2eTmccD2iy8TsORPz +no6Zfz3CCfcl0xefdzGx09HiMMWAE4ZdxQN7+5mYULRm28JjDlD9uNZk9CMT +LQNctK3Zy4a0mmjZonEmXvK5qH01ZdlwS8KbBb8JJn68uSXc1n7Z0Er18u3J +KSbuHeyLZ439MwzfJy/78ydxno0+gW+F/xke1Y9buDvDxLuptnzcQ38NE4RH ++yLmmMhItE04UfTXMOfW9TPz80z8cryQJ07/r2HhCZ6A+kUmrhz6PMcl8New +3M7P+OgfJipLqJW97v9jWKP4RMbwHxOtEx/mr7j+x7BpRmVheZmJ+/WfmKaE +/jH8HxM6JGk= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xc81f8XB3A7I9yLNOyRcV3ckUrGOUjZQjIjm5IQJUpJVkVCWZWSZDeo +rLhXSgllRqkkEt+mUUbl9/n9dR/Px/3c+znv9/uc11vB+4C9HxcHB8cdTg6O +/39ejvXmo/vmG362Xfg2ou5k2Norb+UkfwRCR3v9E0AHlp80xcvLp4BrdfV/ +9mAKl1mpcrzyueAxmKCsAY4QbBC5/7dcKTwWoUq9NfSD3qXArB9ydfD2w8Ok +ToNIWPFmVPWr3DN4F32Ts0g3Aa61F4T9JzcEm18OqJHUL0DVrZQ3wVpTkK8S +7XyadQMCoDv3S/gMHGJa7QsovAUh4+ofa6oWoEoi8PSMeQ0IKpxSfb+ZA1/M +uUieu1QLT/XPa8eacmDPusMGSeW1kOh8ZZOMPQd6vWrffai+FrjSa7e77ePA +0d7yKN3BWlj89yXg1WUOLHS+esVevA7+G3YsecHFiRvEhn93JNVBR46qOquD +Ews37At8HFQPaaTnlGt7uFHo9BJpltQIdZtk7tmEcKMmHGLkyjbCmMcB+BPD +jdm/1YoZ1EbQqxTf6ZTNjSdmrCONtzfCZ3P3Y8Jd3Fju/dey/2gjmMR/fXFE +jwdvhV9ltY43wvycaKS9JC++PvzwUnXVQ1CS8V5eVuJF42BJv+H6h2CztSal +ks6LbIv21QtPHsKNDOcr/Na8mKPnTxd5/xDsta+1NcXzYr+w1n/FIk1QGchY +p/GTF3Varxil72sC7zc7m7k7+FC1LSyIId0Mgvkf9ocN8eFZzgSbQpVmuOsa +Iv3+Ex8q0ubM+OjNwP066Ug95wrU/BF9uMy0GYoG65lhm1bgVu7icz4hzfCp +X77kXeEKJDf5BGU/bIa9L7+k1x3hRxXtVbmx6iwQSz8Cqkn82LDues4vTRbU +2/J9y8rix32iuumBDBYIvZCzDL3Fj9XiCv5b9FhQ0WnPqzrOj1L3NYouWLHg +W3vtkawdAujrm6JNCWFB2ONT3gdUBdGLR+BQewULZMe28f1iCqJf4F9Po9ss +eM4lUHYUBXFOR35FdTUL1mPqzxQXQXwTbpOaWM+CofoLJ4rOCKK7dfjRb20s +MLpdfGXouyAqLb9Y0fKBeF9XoPGeP4IolqfVPzbGgvyvlE+f+IWwui7Qm+sz +C+YotzRnFYTQXzPqoeY3FpTeeNAoslMIXRL7jpkusoCc//S1Sa0Qpu8qDzlC +ZkNT3enY9lYhPB++xcNMgg37Bq0U7bqF0O7xvJjYajY8XtUd5DElhJGO1Z0X +pNlwJH1oPkp6Je6tO5nlocqGDwlTklUnVmJPokjvnB4b7oSudFhjLozPC9Lm +DL3Y0JEnfqRylzDa/Fv8esGHDZ9a1xUY+wpjWf9A/yc/Nqxbq/5f8HFhbDW/ +dvjQXjacYpvGs+8J4+mWS7LWB9mwS+x49V5FEbTXEng3GM+GUP3EoWVtEZwU +8jF9kcCG0/6py1kGIhgr2FLRnMSG5vp8y2ZnEbyVqXYi7Qwb1HxqP4qfE8EI +/VjXsQw2LFb/FH+4JIIcMmu+h11lg8S7eV17AVGc7gya4C9kgxY/x54JSVGc +ccifyb3OBh93kQoyQxT1Jrmty4qJ9fBobPUPFMWls76UUxXEerQYe5ciRfGn +xprP/1WygcNFNz09XhQp9U9brW+xQady+3D9FVGUXpgcWb7DhiuOvhGi/aKo +f9GlU+YBG2qP78srGhXFu5VCFbtq2dBbGs7S/SGKQwWX7qXUsYHnOPLd5SUh +96kE23cNbNjca2M/LE9CRq1JuxGLDaaB9uPFqiT0/nVTw4rNBvu/jlFhWiQs +9Ext3dHChmDV3Vf49El46p/vdbNWNlyL2TdFcyLhyFC5yUwbG2gsgfmk3STc +El6+lv2UDSyeEt73PiTMePrtR8ozNoykjsmnhpJwyW64ZOVzYv97TmqNHSKh +E8vl7BPCy5IK+nrHSDjlyT4U08EG2au7nSZTSPhtl7D/QCcbqsaWfDGdhJlr +B/Yf7WKDgXpeePZFot4Ru5MyL9jgfncg1fQ6CX9WG7/a8ZINea22rdcaSciz +5prr0R42UAS+dc+3kLC8/vTPRcJ11mff2z4jYXO47LWIXjYMDjxd/NtPwkMG +ATtc+tgQKBXA7zhMwmIupkMr4d+evJIVoyR8ZzgQQelng+SkEd31OwktOCbW +fSZcrDlieGeO8JmYQhggzis81or/DwkDLujYZhBuvS/t6slFxrDKSsURwjuX +6gPu85Ox2ydWVv0VG8bAJVJYlIw1Zlu37id88NTvk76ryOgydflCBWGuZxfS +G6TIqNWrITFBOEN4wxUxRTKuSU5nSw+yQdG+pzxIjYzFiaEF1oTvXAytY2mR +EUzCbx0hjG9E2lbrkNFJ1XDmKuGXcpV9IXpkLD0XG/yI8B5fy9HHRmR0bX8v +/YHw95LJ79JmZNy0isS3SDj2a9LfgzZkHMlvVhcZYoMIQ0Xo+U4yzkdeTZEh +fOVQ6xpFNzJa3vBXVSOs2eCtcsSLjCsknvJoEW5c5tjwMoD4fcZRJW3CVlsL +jFRDyGj0yiBBg/BwsoFtbAQZDxxp01AivK/zjXt/NBkbpgfWSBJeJEfvpcaR +8Ua+hg0P4dO71kTFJxH/X5bY+ZWob13+/YTXqWTU1y7P6SFc+n5nJj2LjCaS +HnfuEt6sPHM1OY+MXxT816YRfhp4vur9VTLOTZ3p8SXsXKnduPEmGWnvct9t +JDzxs/NZaiUZK7a4Aw/hQxuDX41VE+cleu1XB7H/fDGC43r1ZIzT28x3nvDF +5pLpDBaxnsCZAzsIr+fZzjH1hIz2QsU6QoS3psZL5fSS8e1Bs+Fw4vz7uhXU +vw+RsYT/M0uOsI8ka+O2ETIWVb3jf0r008mCP3azX8h4U21ruyDhHbTaMI0Z +Mm6XW7K7SfSjLPvgee8FMioua4cD4frRqZcvecXwgiAj3pvo5+SDxT9WrBRD +w4iMw1+Jft/F400CMTF8DdlCEYSn1w/ZVsqK4V3247UR3cS83s86MKYshlJw +LvsrMT9p23eck9IQQ59S/UZvwpSgtq6UTWLo+CKTE4l58664Z+2/QwytbzTe +ekLMK80gbP/lXWK4e1EpR4bwv05qap+7GMZ1bNoYSsx33vfrHcZBhG+P5/G3 +s6GHkWEpd1IMr7gx9PiI/DCqCzEfrBbDY4Kk+I1EHolYUIJE68XQt8WlzLyZ +6I/X48nbWGK4r3nxhnMTG6L+uD+t6RDDtARZxb2NbLgNltvPj4vhopeBnxuR +f/JPVE0tVosjR/fD/igiP7/t+ugbJyOOOk+F6BZVRD9OXDlVqySOGx42nFhN +5K2zgGSrCk0cs++G8RaXsSHdiseE21wcX+h2vM24QeRx7wg2Rouj3+65vMo8 +4n6ZbLoWHSeOSoHfRuRy2SDAcZlLN1kcm5TVzqRms0FM06X13gVxfLZu42q3 +LKIfkrq337otjp49/1yaU9lgoddiU/hJHBv6/H5WHWdDl93VW3u+iqOt98Kj +wWNscAiMJcnNimPEwIjKvxgi3y5s6cnnlEDFgY8lelFsCPl+1/GCtAQme2V+ +iQtlQ+b16+7J9hIopvfuq8EeNqypj3u4zUUCVQuU1yp6sOHSS09Z3j0SKGpo +yMXlTuTVX6mRuP0SCJei1t5zIu4PpyyfmGQJLH5OrfxsQ+y3UMLekCYJ9BXP +/pWkzwaVCP+onZRVKHlgvKaBuN81t7x3KKCtwpOKZVstxNiwgcNZe2rjKtxR +GhbWL8oG47Pmn46brEIy75vyD4Js8Cii7ix3X4XGRQufuzmIeemb1uY6twor +tl+tFP/CAl6d4xO3Zlah4y/9dk0WC8bmsncJPZREcw0jW3NPFhQaMQ++fSSJ +2Sn/Xe10Y4Fnate5W+2SKBxQcM/GmQWvlXmfOQxKYsT9zTrb7VjQ7RCud2lG +ErvL+j+TTVjQdMdKXpOyGme+3F0mqbAgez/nlE32aqx+qNCR29sMFuN7j2WE +rcE6gR7jie4msBlL15CVXYe5YocGvAsbYeqR94mnlVKY70kS37m3HrTIAzIm +njKofUUv6MH4AxCEOa/hGVksKCw1z4m/B9u/uv5WdJTHLKcJc9nfd2GwxZfT +laqAA4fVKJS023AvudVDfk4BC4O2FbkNV4A/b+RIV5ciNi86/9h4sQR8wmPu +rcxTwi/hVZump4tAO0Cjy8pLGeOb489WN1yDF2JUoUjd9ahQpXx4rfllaKg6 +mU/lVsGE7Ikea8yBGE7Kjo63KvjnjILBqbRMEByONgupUcWF/f+kFxzOwcbD +pcLnHqgipDe0huueAy+xwZ5b9aooHChr90/2HNSa6ez+yVLFy51NixZTaeB/ +73tYRKcqhqx3eVwXlwbsNN/86E+qmOL77uWn6lSIMrL5lrhGDf0CNNUs15+F +8WKFrIKjavi2eEYkf0sKfDn1YYH7hBou2OhlhyumwLT3Nc/AeDXsjfv2210w +BTjkFDTop9Vwo/RLqb2vk2FdtnxLS7YaZnKNvvWNSYYdSXI/xu+qIQcvtaOX +lQSNATJW1Ek1VDLIQweXRMhSW8tT56iOJDe9Bw+a4sHdQ+XmR2d1bArKSDCr +iAflLKaFiLs6Is+DwonceKhZtk738VbH2mN/SndExkPfwElpkQPqWD9eSeqk +xoN4wpcNPsnqOPFS0ifwyknI+NDsJ9ygjvxT3aHTZ+IgPc+/zUuegr0GkfKm +Msfh8KGTB48qUTDF1LqifDkWPOyvyGWrUHDb41NclNFYoAoOHO6gUnAuQr9/ +/81YeHbEVG2TLgX3K5ckkpixwOWinLLSnoI57u/r79kcg8jVoxYP4inY4Gaw +XiY7BlyzdnetnKBgtId/i0tQFEhXC0rtm6IgyWt9vK5tFLzvfhDw7CsFq32b +NtF1osBXVIwzcZaCs8drNgdyRkHI6SfMZU4N/Jofw5rOOwwnT2jn/pTWwHcZ +NfR9PYegNJjTd8BeAxueL9Ij7SNhfuuNhYImDXyuLRrhmRkORxsK4lvZGhjw +vXyF9Ilw4GDkCU+2aqDLvO7PyeBwWCF3ToHxXANZn4Ky6raFg+RClHnrKw28 +J8fNUlkKA2alVe7nHxqYODI9phkQBiGrZjfTlai4cM5ue55lKEyf+dbiqEJF +zpDw8aAtoRDJNWkVrU7F6httjubqoXD0+9s9j7SpGFLBE7tpRSicedaW7KhP +RZ7cIPOCpANQcix/8IgjFc1mPmxuPx4CH8eNo1qSqJhYatNekhgMxgVdhZQz +VFQK8K2N9QuGq86unRlpVGyaWhd1aGsweDwPU/S5QEWjmdtL7VzB8Pr21Q7u +61Sc7ezn5I3bBz0x/+RNm6gYgHduFcXvhRZy/bO2WSqueCD2s+dqICg8N53V +nqfiNsHkgsr4QDhxqls2Z4moX/TUg2L/QDD8/flgIJcmNtooNsxQA6F+eLWs +AEkT63JHdH7VB8Ddm5HhFhqa+MlyxCFx2B8KDehSnV6amGymuFlBxw9abATj +l3w1kcew/Ox2GT8Y9fw4pR6oiR7vBG4k8PqB0skL9Ykhmtjtod5jNuALRU8W +XDCG+L6q4tfnKF+4YduSU52liS4TKo7HW3ygxMtBMq9NEzt1jtBj/b3haTg1 +9mm7JlJqjc4ctvOGz/G8n351amLiQd1tifreoFb84J5DnybaLwRf/CjmDaVT +Uo7CHzTx/Qf/a/ksLyg7OJZ5YlETLUJjMn/KeUFlQiQ5QFMLF2JPFIS98YQv ++rtPJtC0cOzciXjaA0+gzm6duc7UwqDp4K0SmZ5Q5i3RP6KrhVMiRW/NLT2h +BKpzXLdp4cj01l9BDz2gaOGHnI2nFq7u7zP3LtkNefuDtXTOayHjXvmiW44b +kf87CxyytPDI4ArL6Cg3WDusRwrP1kJnKUZRnbMb5FgITVdd1sJ9FfVLeWvd +4IJq2T21Mi2c/HxMdPySK6R/mNCXfqSFo6oyp4+VukCSo48l95wWurt9GloY +coJC22F3v3kt5DKOfl/U4ASN5o4hbUtayBnrfzn8shNMG2w/f4ZLG2nHDesi +vZzAXUXjlThJG1uyDj6Q/G8XMH5PeytraKNM/AnnYp5d8C7nZLSplzamG38f +XLVjJyxkLJ256auNVol7Dr/S2QkSqRGXBQK1cVY6+cEDqZ1gHufP6gzRxrTp +V1d7JxygJsiCb9dRbYzs5a6NjHOA01vEMvyztVEk5biNWb096AxfK03q1MZ/ +Hn0Du4zsgKQVOH/rpTZuWJiT3kC1gy/HtbYP9moj6wPljdpqOyhSahhTe62N +fXXNvs5fd4DEvj659k/E87MSzM68HbB4lNuSj4OG/6jgODtjC0NCG9lma2m4 +s/CDzPnz1vBkQ+7n4XU0NBDNFesLtoaa3X9Ew6RpKFfpnYJm1pB+q8UjV46G +lh/9nC8sW4GZg+2fyfU0zGKRuCihVlCbF7jpDIOGpkub5IedLSFHPb+y05KG +LeFpyrbbzWF2ZtuNeGsa0r5bB3com4Nt0/QlXVsaPpv3q4jgMgc+B4uzN+xp +mNpe6mzaZAaRRxf2HnOh4VUvGo5uMgP7F05qmgE0/FT1tOMDYzusjJS4fvYk +DZ1/qCc1bjOFQGDlGZ+iodIrVjiqm8IjgeCM+QQaztzUaJ4UMoXoK4/ifFOI ++i4a95R3b4XJtvA9+uk0dHqYvGPSYys8Wdct8+UyDSuqhW6uP2ECx1mpOZZ1 +NNzLcD90ZtgIpt6yshbqaahx/P2zD4+MYNfSTPrNRhq2x8m6OZUbAXWjawo3 +i4aV9VdLC6KNYLBcJbrhCQ2NAl4oXFtnBIzsZjeNPhqKcPuYmu9B+LT/p6zQ +dxpGZ9llJ3IZgt0ZZam6HzQcVDHsiB00gMYSp9UB0zTUrJBVrawygMyPD0Uf +zdHwiFPzznI3A0CX0xwxf4j6TcTbVGr1IW+r0uiUAB21fo2cHYvWA2spxxvt +ynSkipkID6/XhZwxLZabCh2DaF0rU3h0YayS/80XVTreB43HHh83w1FsJIlq +0PHYGbPK+GubocJP6agDnY6/g3tiq+Q2g+Dtn/bDBnTUl/vb5aW0Cdq2pnF8 +20XHvbTgVxLbdUBMJFDquDMdBVp/mSZQdMDjldFGkisd+ZWDlNaK6MCvoLl9 +jN105I6Es2X9G0DlnPurQz50HL1T++SA/wY4NUSpWj5AR+PnbmNeaUwwCmlz +I6fQ8fj3m5eHf9FhcXByW+tpOk629lF8hulQY7KScfgs8T7X2TfCLXRQWWvH +//YcHf9qGf7uSqXDytbXNSUX6Via8t/mJRU6DK79JoxFdLT+0dzY70mD0McS +rJBmOm7oKPrd36cJFNqmcgU2HS/9+NNlWqIJH/NcLva10PG2VeXBmRhN2BV6 +JXjLEzqmnnX7yqesCfpSamv5OunoYHxXi+8wFfjD9MIvv6ajm3ZYgJKaBhRI +eyt3zBHrK33C6q9Rgy1MDS3v33Qs/7LuzufzatBnPrtpfp6Oi/cj09UPqAH/ +4URL5T90THJqhw0UNQjtLgs/ysXAsybJ/gGFqoCJMyyqKAP3HGhoWpWvAqPf +T+1OVWPgiw+1iesrlOEon02AEoWBKz0l286lKYOkzOqwOg0Gnnn8KFYhTBks +LEpPjWsxcK55d2b9RmW4W9RZbqDDQB5p1TVNj5Qg3kVy8asRA+UCIeTDmCIo +P7p50caNgX1FKrmuxgrQRZ0vGnZnYEf/vzuv1BUg6qJZ9V4PBkL+fatIsgI8 +D5p8kejFQJOvKUHkD/IQTtIQaA5gYNyt5F9P4+SheXdVjHYEA0WPrdRWzZAD +1/maPaRUBvYufDyrOCwNPN68B66kMZC1uF2u7K40VD13PEZNZ2DeZ2ZoUIo0 +cBb8yjXLZOA/5UndtE3SUGK6ufdELgMnBANmAi9KwVxGg+nPGwzcMuiuoeax +DtI1Wyg9TQwcP/RYh09iDZRsdhM4yWKgvqjzeZFvq6HZZHaC3sLA2yUyfLZP +V8M3F5Ub5x8zsGtPvMDhY6vBMvG0nF0HAyOQh+Y2JQl87+0lXg4xcEGw+iuj +axXEpH/82znLQA+JzI2URnHIyD86fOwXAy/e9XUvuSQOZcWrGjTnGfh4/bE6 +x2PiMNi4PSp1iYGZkq/FDUAcNk6WT1txMVF9RyZz02Mx+GEUMfFclIlqB89H +Xxsig/8MT/czChOn5netv6ZIAo+yrV3uVCamfQpPthAkwS6vU8+/azKR5rLl +PXVMFLa94H6yis7E25k26pRToqBSztXgtYmJkwleV+zaRGDcm+PGggkT4/Ri +W/lchcG3ZylKfTcTFwNGpe5VCYJ7it6hRg8mmi7UjHIkCsJOjDlou4eJB2Xn +5ZN2C8LWqsX9kT5MfKnX+9xIWBCUTy94s4OYGN9aFhBwQAA+Gv22cjnERBvh +XzvohvzgfWdaPuUcE32OdHg0c/NB8EmHPxbnmSgyNTEx9JYXIh1qXq3MZKJx +5ewsvZYXkuci09IvMlFuFUM1dz8vVOkuLGVfZiJdIvKd7hseWGAvDxSXM7G7 +gPNpJJsb0ntWpra2MbGyj7U++gEn5F3fH5j4jIkBBeW2eTmccD2iy8TsORPz +no6Zfz3CCfcl0xefdzGx09HiMMWAE4ZdxQN7+5mYULRm28JjDlD9uNZk9CMT +LQNctK3Zy4a0mmjZonEmXvK5qH01ZdlwS8KbBb8JJn68uSXc1n7Z0Er18u3J +KSbuHeyLZ439MwzfJy/78ydxno0+gW+F/xke1Y9buDvDxLuptnzcQ38NE4RH ++yLmmMhItE04UfTXMOfW9TPz80z8cryQJ07/r2HhCZ6A+kUmrhz6PMcl8New +3M7P+OgfJipLqJW97v9jWKP4RMbwHxOtEx/mr7j+x7BpRmVheZmJ+/WfmKaE +/jH8HxM6JGk= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.13944043381447724`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.13944043381447724`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xc81f8XB3A7I9yLNOyRcV3ckUrGOUjZQjIjm5IQJUpJVkVCWZWSZDeo +rLhXSgllRqkkEt+mUUbl9/n9dR/Px/3c+znv9/uc11vB+4C9HxcHB8cdTg6O +/39ejvXmo/vmG362Xfg2ou5k2Norb+UkfwRCR3v9E0AHlp80xcvLp4BrdfV/ +9mAKl1mpcrzyueAxmKCsAY4QbBC5/7dcKTwWoUq9NfSD3qXArB9ydfD2w8Ok +ToNIWPFmVPWr3DN4F32Ts0g3Aa61F4T9JzcEm18OqJHUL0DVrZQ3wVpTkK8S +7XyadQMCoDv3S/gMHGJa7QsovAUh4+ofa6oWoEoi8PSMeQ0IKpxSfb+ZA1/M +uUieu1QLT/XPa8eacmDPusMGSeW1kOh8ZZOMPQd6vWrffai+FrjSa7e77ePA +0d7yKN3BWlj89yXg1WUOLHS+esVevA7+G3YsecHFiRvEhn93JNVBR46qOquD +Ews37At8HFQPaaTnlGt7uFHo9BJpltQIdZtk7tmEcKMmHGLkyjbCmMcB+BPD +jdm/1YoZ1EbQqxTf6ZTNjSdmrCONtzfCZ3P3Y8Jd3Fju/dey/2gjmMR/fXFE +jwdvhV9ltY43wvycaKS9JC++PvzwUnXVQ1CS8V5eVuJF42BJv+H6h2CztSal +ks6LbIv21QtPHsKNDOcr/Na8mKPnTxd5/xDsta+1NcXzYr+w1n/FIk1QGchY +p/GTF3Varxil72sC7zc7m7k7+FC1LSyIId0Mgvkf9ocN8eFZzgSbQpVmuOsa +Iv3+Ex8q0ubM+OjNwP066Ug95wrU/BF9uMy0GYoG65lhm1bgVu7icz4hzfCp +X77kXeEKJDf5BGU/bIa9L7+k1x3hRxXtVbmx6iwQSz8Cqkn82LDues4vTRbU +2/J9y8rix32iuumBDBYIvZCzDL3Fj9XiCv5b9FhQ0WnPqzrOj1L3NYouWLHg +W3vtkawdAujrm6JNCWFB2ONT3gdUBdGLR+BQewULZMe28f1iCqJf4F9Po9ss +eM4lUHYUBXFOR35FdTUL1mPqzxQXQXwTbpOaWM+CofoLJ4rOCKK7dfjRb20s +MLpdfGXouyAqLb9Y0fKBeF9XoPGeP4IolqfVPzbGgvyvlE+f+IWwui7Qm+sz +C+YotzRnFYTQXzPqoeY3FpTeeNAoslMIXRL7jpkusoCc//S1Sa0Qpu8qDzlC +ZkNT3enY9lYhPB++xcNMgg37Bq0U7bqF0O7xvJjYajY8XtUd5DElhJGO1Z0X +pNlwJH1oPkp6Je6tO5nlocqGDwlTklUnVmJPokjvnB4b7oSudFhjLozPC9Lm +DL3Y0JEnfqRylzDa/Fv8esGHDZ9a1xUY+wpjWf9A/yc/Nqxbq/5f8HFhbDW/ +dvjQXjacYpvGs+8J4+mWS7LWB9mwS+x49V5FEbTXEng3GM+GUP3EoWVtEZwU +8jF9kcCG0/6py1kGIhgr2FLRnMSG5vp8y2ZnEbyVqXYi7Qwb1HxqP4qfE8EI +/VjXsQw2LFb/FH+4JIIcMmu+h11lg8S7eV17AVGc7gya4C9kgxY/x54JSVGc +ccifyb3OBh93kQoyQxT1Jrmty4qJ9fBobPUPFMWls76UUxXEerQYe5ciRfGn +xprP/1WygcNFNz09XhQp9U9brW+xQady+3D9FVGUXpgcWb7DhiuOvhGi/aKo +f9GlU+YBG2qP78srGhXFu5VCFbtq2dBbGs7S/SGKQwWX7qXUsYHnOPLd5SUh +96kE23cNbNjca2M/LE9CRq1JuxGLDaaB9uPFqiT0/nVTw4rNBvu/jlFhWiQs +9Ext3dHChmDV3Vf49El46p/vdbNWNlyL2TdFcyLhyFC5yUwbG2gsgfmk3STc +El6+lv2UDSyeEt73PiTMePrtR8ozNoykjsmnhpJwyW64ZOVzYv97TmqNHSKh +E8vl7BPCy5IK+nrHSDjlyT4U08EG2au7nSZTSPhtl7D/QCcbqsaWfDGdhJlr +B/Yf7WKDgXpeePZFot4Ru5MyL9jgfncg1fQ6CX9WG7/a8ZINea22rdcaSciz +5prr0R42UAS+dc+3kLC8/vTPRcJ11mff2z4jYXO47LWIXjYMDjxd/NtPwkMG +ATtc+tgQKBXA7zhMwmIupkMr4d+evJIVoyR8ZzgQQelng+SkEd31OwktOCbW +fSZcrDlieGeO8JmYQhggzis81or/DwkDLujYZhBuvS/t6slFxrDKSsURwjuX +6gPu85Ox2ydWVv0VG8bAJVJYlIw1Zlu37id88NTvk76ryOgydflCBWGuZxfS +G6TIqNWrITFBOEN4wxUxRTKuSU5nSw+yQdG+pzxIjYzFiaEF1oTvXAytY2mR +EUzCbx0hjG9E2lbrkNFJ1XDmKuGXcpV9IXpkLD0XG/yI8B5fy9HHRmR0bX8v +/YHw95LJ79JmZNy0isS3SDj2a9LfgzZkHMlvVhcZYoMIQ0Xo+U4yzkdeTZEh +fOVQ6xpFNzJa3vBXVSOs2eCtcsSLjCsknvJoEW5c5tjwMoD4fcZRJW3CVlsL +jFRDyGj0yiBBg/BwsoFtbAQZDxxp01AivK/zjXt/NBkbpgfWSBJeJEfvpcaR +8Ua+hg0P4dO71kTFJxH/X5bY+ZWob13+/YTXqWTU1y7P6SFc+n5nJj2LjCaS +HnfuEt6sPHM1OY+MXxT816YRfhp4vur9VTLOTZ3p8SXsXKnduPEmGWnvct9t +JDzxs/NZaiUZK7a4Aw/hQxuDX41VE+cleu1XB7H/fDGC43r1ZIzT28x3nvDF +5pLpDBaxnsCZAzsIr+fZzjH1hIz2QsU6QoS3psZL5fSS8e1Bs+Fw4vz7uhXU +vw+RsYT/M0uOsI8ka+O2ETIWVb3jf0r008mCP3azX8h4U21ruyDhHbTaMI0Z +Mm6XW7K7SfSjLPvgee8FMioua4cD4frRqZcvecXwgiAj3pvo5+SDxT9WrBRD +w4iMw1+Jft/F400CMTF8DdlCEYSn1w/ZVsqK4V3247UR3cS83s86MKYshlJw +LvsrMT9p23eck9IQQ59S/UZvwpSgtq6UTWLo+CKTE4l58664Z+2/QwytbzTe +ekLMK80gbP/lXWK4e1EpR4bwv05qap+7GMZ1bNoYSsx33vfrHcZBhG+P5/G3 +s6GHkWEpd1IMr7gx9PiI/DCqCzEfrBbDY4Kk+I1EHolYUIJE68XQt8WlzLyZ +6I/X48nbWGK4r3nxhnMTG6L+uD+t6RDDtARZxb2NbLgNltvPj4vhopeBnxuR +f/JPVE0tVosjR/fD/igiP7/t+ugbJyOOOk+F6BZVRD9OXDlVqySOGx42nFhN +5K2zgGSrCk0cs++G8RaXsSHdiseE21wcX+h2vM24QeRx7wg2Rouj3+65vMo8 +4n6ZbLoWHSeOSoHfRuRy2SDAcZlLN1kcm5TVzqRms0FM06X13gVxfLZu42q3 +LKIfkrq337otjp49/1yaU9lgoddiU/hJHBv6/H5WHWdDl93VW3u+iqOt98Kj +wWNscAiMJcnNimPEwIjKvxgi3y5s6cnnlEDFgY8lelFsCPl+1/GCtAQme2V+ +iQtlQ+b16+7J9hIopvfuq8EeNqypj3u4zUUCVQuU1yp6sOHSS09Z3j0SKGpo +yMXlTuTVX6mRuP0SCJei1t5zIu4PpyyfmGQJLH5OrfxsQ+y3UMLekCYJ9BXP +/pWkzwaVCP+onZRVKHlgvKaBuN81t7x3KKCtwpOKZVstxNiwgcNZe2rjKtxR +GhbWL8oG47Pmn46brEIy75vyD4Js8Cii7ix3X4XGRQufuzmIeemb1uY6twor +tl+tFP/CAl6d4xO3Zlah4y/9dk0WC8bmsncJPZREcw0jW3NPFhQaMQ++fSSJ +2Sn/Xe10Y4Fnate5W+2SKBxQcM/GmQWvlXmfOQxKYsT9zTrb7VjQ7RCud2lG +ErvL+j+TTVjQdMdKXpOyGme+3F0mqbAgez/nlE32aqx+qNCR29sMFuN7j2WE +rcE6gR7jie4msBlL15CVXYe5YocGvAsbYeqR94mnlVKY70kS37m3HrTIAzIm +njKofUUv6MH4AxCEOa/hGVksKCw1z4m/B9u/uv5WdJTHLKcJc9nfd2GwxZfT +laqAA4fVKJS023AvudVDfk4BC4O2FbkNV4A/b+RIV5ciNi86/9h4sQR8wmPu +rcxTwi/hVZump4tAO0Cjy8pLGeOb489WN1yDF2JUoUjd9ahQpXx4rfllaKg6 +mU/lVsGE7Ikea8yBGE7Kjo63KvjnjILBqbRMEByONgupUcWF/f+kFxzOwcbD +pcLnHqgipDe0huueAy+xwZ5b9aooHChr90/2HNSa6ez+yVLFy51NixZTaeB/ +73tYRKcqhqx3eVwXlwbsNN/86E+qmOL77uWn6lSIMrL5lrhGDf0CNNUs15+F +8WKFrIKjavi2eEYkf0sKfDn1YYH7hBou2OhlhyumwLT3Nc/AeDXsjfv2210w +BTjkFDTop9Vwo/RLqb2vk2FdtnxLS7YaZnKNvvWNSYYdSXI/xu+qIQcvtaOX +lQSNATJW1Ek1VDLIQweXRMhSW8tT56iOJDe9Bw+a4sHdQ+XmR2d1bArKSDCr +iAflLKaFiLs6Is+DwonceKhZtk738VbH2mN/SndExkPfwElpkQPqWD9eSeqk +xoN4wpcNPsnqOPFS0ifwyknI+NDsJ9ygjvxT3aHTZ+IgPc+/zUuegr0GkfKm +Msfh8KGTB48qUTDF1LqifDkWPOyvyGWrUHDb41NclNFYoAoOHO6gUnAuQr9/ +/81YeHbEVG2TLgX3K5ckkpixwOWinLLSnoI57u/r79kcg8jVoxYP4inY4Gaw +XiY7BlyzdnetnKBgtId/i0tQFEhXC0rtm6IgyWt9vK5tFLzvfhDw7CsFq32b +NtF1osBXVIwzcZaCs8drNgdyRkHI6SfMZU4N/Jofw5rOOwwnT2jn/pTWwHcZ +NfR9PYegNJjTd8BeAxueL9Ij7SNhfuuNhYImDXyuLRrhmRkORxsK4lvZGhjw +vXyF9Ilw4GDkCU+2aqDLvO7PyeBwWCF3ToHxXANZn4Ky6raFg+RClHnrKw28 +J8fNUlkKA2alVe7nHxqYODI9phkQBiGrZjfTlai4cM5ue55lKEyf+dbiqEJF +zpDw8aAtoRDJNWkVrU7F6httjubqoXD0+9s9j7SpGFLBE7tpRSicedaW7KhP +RZ7cIPOCpANQcix/8IgjFc1mPmxuPx4CH8eNo1qSqJhYatNekhgMxgVdhZQz +VFQK8K2N9QuGq86unRlpVGyaWhd1aGsweDwPU/S5QEWjmdtL7VzB8Pr21Q7u +61Sc7ezn5I3bBz0x/+RNm6gYgHduFcXvhRZy/bO2WSqueCD2s+dqICg8N53V +nqfiNsHkgsr4QDhxqls2Z4moX/TUg2L/QDD8/flgIJcmNtooNsxQA6F+eLWs +AEkT63JHdH7VB8Ddm5HhFhqa+MlyxCFx2B8KDehSnV6amGymuFlBxw9abATj +l3w1kcew/Ox2GT8Y9fw4pR6oiR7vBG4k8PqB0skL9Ykhmtjtod5jNuALRU8W +XDCG+L6q4tfnKF+4YduSU52liS4TKo7HW3ygxMtBMq9NEzt1jtBj/b3haTg1 +9mm7JlJqjc4ctvOGz/G8n351amLiQd1tifreoFb84J5DnybaLwRf/CjmDaVT +Uo7CHzTx/Qf/a/ksLyg7OJZ5YlETLUJjMn/KeUFlQiQ5QFMLF2JPFIS98YQv ++rtPJtC0cOzciXjaA0+gzm6duc7UwqDp4K0SmZ5Q5i3RP6KrhVMiRW/NLT2h +BKpzXLdp4cj01l9BDz2gaOGHnI2nFq7u7zP3LtkNefuDtXTOayHjXvmiW44b +kf87CxyytPDI4ArL6Cg3WDusRwrP1kJnKUZRnbMb5FgITVdd1sJ9FfVLeWvd +4IJq2T21Mi2c/HxMdPySK6R/mNCXfqSFo6oyp4+VukCSo48l95wWurt9GloY +coJC22F3v3kt5DKOfl/U4ASN5o4hbUtayBnrfzn8shNMG2w/f4ZLG2nHDesi +vZzAXUXjlThJG1uyDj6Q/G8XMH5PeytraKNM/AnnYp5d8C7nZLSplzamG38f +XLVjJyxkLJ256auNVol7Dr/S2QkSqRGXBQK1cVY6+cEDqZ1gHufP6gzRxrTp +V1d7JxygJsiCb9dRbYzs5a6NjHOA01vEMvyztVEk5biNWb096AxfK03q1MZ/ +Hn0Du4zsgKQVOH/rpTZuWJiT3kC1gy/HtbYP9moj6wPljdpqOyhSahhTe62N +fXXNvs5fd4DEvj659k/E87MSzM68HbB4lNuSj4OG/6jgODtjC0NCG9lma2m4 +s/CDzPnz1vBkQ+7n4XU0NBDNFesLtoaa3X9Ew6RpKFfpnYJm1pB+q8UjV46G +lh/9nC8sW4GZg+2fyfU0zGKRuCihVlCbF7jpDIOGpkub5IedLSFHPb+y05KG +LeFpyrbbzWF2ZtuNeGsa0r5bB3com4Nt0/QlXVsaPpv3q4jgMgc+B4uzN+xp +mNpe6mzaZAaRRxf2HnOh4VUvGo5uMgP7F05qmgE0/FT1tOMDYzusjJS4fvYk +DZ1/qCc1bjOFQGDlGZ+iodIrVjiqm8IjgeCM+QQaztzUaJ4UMoXoK4/ifFOI ++i4a95R3b4XJtvA9+uk0dHqYvGPSYys8Wdct8+UyDSuqhW6uP2ECx1mpOZZ1 +NNzLcD90ZtgIpt6yshbqaahx/P2zD4+MYNfSTPrNRhq2x8m6OZUbAXWjawo3 +i4aV9VdLC6KNYLBcJbrhCQ2NAl4oXFtnBIzsZjeNPhqKcPuYmu9B+LT/p6zQ +dxpGZ9llJ3IZgt0ZZam6HzQcVDHsiB00gMYSp9UB0zTUrJBVrawygMyPD0Uf +zdHwiFPzznI3A0CX0xwxf4j6TcTbVGr1IW+r0uiUAB21fo2cHYvWA2spxxvt +ynSkipkID6/XhZwxLZabCh2DaF0rU3h0YayS/80XVTreB43HHh83w1FsJIlq +0PHYGbPK+GubocJP6agDnY6/g3tiq+Q2g+Dtn/bDBnTUl/vb5aW0Cdq2pnF8 +20XHvbTgVxLbdUBMJFDquDMdBVp/mSZQdMDjldFGkisd+ZWDlNaK6MCvoLl9 +jN105I6Es2X9G0DlnPurQz50HL1T++SA/wY4NUSpWj5AR+PnbmNeaUwwCmlz +I6fQ8fj3m5eHf9FhcXByW+tpOk629lF8hulQY7KScfgs8T7X2TfCLXRQWWvH +//YcHf9qGf7uSqXDytbXNSUX6Via8t/mJRU6DK79JoxFdLT+0dzY70mD0McS +rJBmOm7oKPrd36cJFNqmcgU2HS/9+NNlWqIJH/NcLva10PG2VeXBmRhN2BV6 +JXjLEzqmnnX7yqesCfpSamv5OunoYHxXi+8wFfjD9MIvv6ajm3ZYgJKaBhRI +eyt3zBHrK33C6q9Rgy1MDS3v33Qs/7LuzufzatBnPrtpfp6Oi/cj09UPqAH/ +4URL5T90THJqhw0UNQjtLgs/ysXAsybJ/gGFqoCJMyyqKAP3HGhoWpWvAqPf +T+1OVWPgiw+1iesrlOEon02AEoWBKz0l286lKYOkzOqwOg0Gnnn8KFYhTBks +LEpPjWsxcK55d2b9RmW4W9RZbqDDQB5p1TVNj5Qg3kVy8asRA+UCIeTDmCIo +P7p50caNgX1FKrmuxgrQRZ0vGnZnYEf/vzuv1BUg6qJZ9V4PBkL+fatIsgI8 +D5p8kejFQJOvKUHkD/IQTtIQaA5gYNyt5F9P4+SheXdVjHYEA0WPrdRWzZAD +1/maPaRUBvYufDyrOCwNPN68B66kMZC1uF2u7K40VD13PEZNZ2DeZ2ZoUIo0 +cBb8yjXLZOA/5UndtE3SUGK6ufdELgMnBANmAi9KwVxGg+nPGwzcMuiuoeax +DtI1Wyg9TQwcP/RYh09iDZRsdhM4yWKgvqjzeZFvq6HZZHaC3sLA2yUyfLZP +V8M3F5Ub5x8zsGtPvMDhY6vBMvG0nF0HAyOQh+Y2JQl87+0lXg4xcEGw+iuj +axXEpH/82znLQA+JzI2URnHIyD86fOwXAy/e9XUvuSQOZcWrGjTnGfh4/bE6 +x2PiMNi4PSp1iYGZkq/FDUAcNk6WT1txMVF9RyZz02Mx+GEUMfFclIlqB89H +Xxsig/8MT/czChOn5netv6ZIAo+yrV3uVCamfQpPthAkwS6vU8+/azKR5rLl +PXVMFLa94H6yis7E25k26pRToqBSztXgtYmJkwleV+zaRGDcm+PGggkT4/Ri +W/lchcG3ZylKfTcTFwNGpe5VCYJ7it6hRg8mmi7UjHIkCsJOjDlou4eJB2Xn +5ZN2C8LWqsX9kT5MfKnX+9xIWBCUTy94s4OYGN9aFhBwQAA+Gv22cjnERBvh +XzvohvzgfWdaPuUcE32OdHg0c/NB8EmHPxbnmSgyNTEx9JYXIh1qXq3MZKJx +5ewsvZYXkuci09IvMlFuFUM1dz8vVOkuLGVfZiJdIvKd7hseWGAvDxSXM7G7 +gPNpJJsb0ntWpra2MbGyj7U++gEn5F3fH5j4jIkBBeW2eTmccD2iy8TsORPz +no6Zfz3CCfcl0xefdzGx09HiMMWAE4ZdxQN7+5mYULRm28JjDlD9uNZk9CMT +LQNctK3Zy4a0mmjZonEmXvK5qH01ZdlwS8KbBb8JJn68uSXc1n7Z0Er18u3J +KSbuHeyLZ439MwzfJy/78ydxno0+gW+F/xke1Y9buDvDxLuptnzcQ38NE4RH ++yLmmMhItE04UfTXMOfW9TPz80z8cryQJ07/r2HhCZ6A+kUmrhz6PMcl8New +3M7P+OgfJipLqJW97v9jWKP4RMbwHxOtEx/mr7j+x7BpRmVheZmJ+/WfmKaE +/jH8HxM6JGk= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.13944043381447724`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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, 20}, {0., 0.13944043381447724`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991327033758711*^9, 3.99208821553434*^9, + 3.992095953676708*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"e0995f3d-7180-784d-b12f-3285544284c5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917971206132183`*^9, 3.9917971229936733`*^9}}, + CellLabel-> + "In[147]:=",ExpressionUUID->"715f943f-d061-fa48-bb45-20a62a80a7df"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Xc81f8XB3A7I9yLNOyRcV3ckUrGOUjZQjIjm5IQJUpJVkVCWZWSZDeo +rLhXSgllRqkkEt+mUUbl9/n9dR/Px/3c+znv9/uc11vB+4C9HxcHB8cdTg6O +/39ejvXmo/vmG362Xfg2ou5k2Norb+UkfwRCR3v9E0AHlp80xcvLp4BrdfV/ +9mAKl1mpcrzyueAxmKCsAY4QbBC5/7dcKTwWoUq9NfSD3qXArB9ydfD2w8Ok +ToNIWPFmVPWr3DN4F32Ts0g3Aa61F4T9JzcEm18OqJHUL0DVrZQ3wVpTkK8S +7XyadQMCoDv3S/gMHGJa7QsovAUh4+ofa6oWoEoi8PSMeQ0IKpxSfb+ZA1/M +uUieu1QLT/XPa8eacmDPusMGSeW1kOh8ZZOMPQd6vWrffai+FrjSa7e77ePA +0d7yKN3BWlj89yXg1WUOLHS+esVevA7+G3YsecHFiRvEhn93JNVBR46qOquD +Ews37At8HFQPaaTnlGt7uFHo9BJpltQIdZtk7tmEcKMmHGLkyjbCmMcB+BPD +jdm/1YoZ1EbQqxTf6ZTNjSdmrCONtzfCZ3P3Y8Jd3Fju/dey/2gjmMR/fXFE +jwdvhV9ltY43wvycaKS9JC++PvzwUnXVQ1CS8V5eVuJF42BJv+H6h2CztSal +ks6LbIv21QtPHsKNDOcr/Na8mKPnTxd5/xDsta+1NcXzYr+w1n/FIk1QGchY +p/GTF3Varxil72sC7zc7m7k7+FC1LSyIId0Mgvkf9ocN8eFZzgSbQpVmuOsa +Iv3+Ex8q0ubM+OjNwP066Ug95wrU/BF9uMy0GYoG65lhm1bgVu7icz4hzfCp +X77kXeEKJDf5BGU/bIa9L7+k1x3hRxXtVbmx6iwQSz8Cqkn82LDues4vTRbU +2/J9y8rix32iuumBDBYIvZCzDL3Fj9XiCv5b9FhQ0WnPqzrOj1L3NYouWLHg +W3vtkawdAujrm6JNCWFB2ONT3gdUBdGLR+BQewULZMe28f1iCqJf4F9Po9ss +eM4lUHYUBXFOR35FdTUL1mPqzxQXQXwTbpOaWM+CofoLJ4rOCKK7dfjRb20s +MLpdfGXouyAqLb9Y0fKBeF9XoPGeP4IolqfVPzbGgvyvlE+f+IWwui7Qm+sz +C+YotzRnFYTQXzPqoeY3FpTeeNAoslMIXRL7jpkusoCc//S1Sa0Qpu8qDzlC +ZkNT3enY9lYhPB++xcNMgg37Bq0U7bqF0O7xvJjYajY8XtUd5DElhJGO1Z0X +pNlwJH1oPkp6Je6tO5nlocqGDwlTklUnVmJPokjvnB4b7oSudFhjLozPC9Lm +DL3Y0JEnfqRylzDa/Fv8esGHDZ9a1xUY+wpjWf9A/yc/Nqxbq/5f8HFhbDW/ +dvjQXjacYpvGs+8J4+mWS7LWB9mwS+x49V5FEbTXEng3GM+GUP3EoWVtEZwU +8jF9kcCG0/6py1kGIhgr2FLRnMSG5vp8y2ZnEbyVqXYi7Qwb1HxqP4qfE8EI +/VjXsQw2LFb/FH+4JIIcMmu+h11lg8S7eV17AVGc7gya4C9kgxY/x54JSVGc +ccifyb3OBh93kQoyQxT1Jrmty4qJ9fBobPUPFMWls76UUxXEerQYe5ciRfGn +xprP/1WygcNFNz09XhQp9U9brW+xQady+3D9FVGUXpgcWb7DhiuOvhGi/aKo +f9GlU+YBG2qP78srGhXFu5VCFbtq2dBbGs7S/SGKQwWX7qXUsYHnOPLd5SUh +96kE23cNbNjca2M/LE9CRq1JuxGLDaaB9uPFqiT0/nVTw4rNBvu/jlFhWiQs +9Ext3dHChmDV3Vf49El46p/vdbNWNlyL2TdFcyLhyFC5yUwbG2gsgfmk3STc +El6+lv2UDSyeEt73PiTMePrtR8ozNoykjsmnhpJwyW64ZOVzYv97TmqNHSKh +E8vl7BPCy5IK+nrHSDjlyT4U08EG2au7nSZTSPhtl7D/QCcbqsaWfDGdhJlr +B/Yf7WKDgXpeePZFot4Ru5MyL9jgfncg1fQ6CX9WG7/a8ZINea22rdcaSciz +5prr0R42UAS+dc+3kLC8/vTPRcJ11mff2z4jYXO47LWIXjYMDjxd/NtPwkMG +ATtc+tgQKBXA7zhMwmIupkMr4d+evJIVoyR8ZzgQQelng+SkEd31OwktOCbW +fSZcrDlieGeO8JmYQhggzis81or/DwkDLujYZhBuvS/t6slFxrDKSsURwjuX +6gPu85Ox2ydWVv0VG8bAJVJYlIw1Zlu37id88NTvk76ryOgydflCBWGuZxfS +G6TIqNWrITFBOEN4wxUxRTKuSU5nSw+yQdG+pzxIjYzFiaEF1oTvXAytY2mR +EUzCbx0hjG9E2lbrkNFJ1XDmKuGXcpV9IXpkLD0XG/yI8B5fy9HHRmR0bX8v +/YHw95LJ79JmZNy0isS3SDj2a9LfgzZkHMlvVhcZYoMIQ0Xo+U4yzkdeTZEh +fOVQ6xpFNzJa3vBXVSOs2eCtcsSLjCsknvJoEW5c5tjwMoD4fcZRJW3CVlsL +jFRDyGj0yiBBg/BwsoFtbAQZDxxp01AivK/zjXt/NBkbpgfWSBJeJEfvpcaR +8Ua+hg0P4dO71kTFJxH/X5bY+ZWob13+/YTXqWTU1y7P6SFc+n5nJj2LjCaS +HnfuEt6sPHM1OY+MXxT816YRfhp4vur9VTLOTZ3p8SXsXKnduPEmGWnvct9t +JDzxs/NZaiUZK7a4Aw/hQxuDX41VE+cleu1XB7H/fDGC43r1ZIzT28x3nvDF +5pLpDBaxnsCZAzsIr+fZzjH1hIz2QsU6QoS3psZL5fSS8e1Bs+Fw4vz7uhXU +vw+RsYT/M0uOsI8ka+O2ETIWVb3jf0r008mCP3azX8h4U21ruyDhHbTaMI0Z +Mm6XW7K7SfSjLPvgee8FMioua4cD4frRqZcvecXwgiAj3pvo5+SDxT9WrBRD +w4iMw1+Jft/F400CMTF8DdlCEYSn1w/ZVsqK4V3247UR3cS83s86MKYshlJw +LvsrMT9p23eck9IQQ59S/UZvwpSgtq6UTWLo+CKTE4l58664Z+2/QwytbzTe +ekLMK80gbP/lXWK4e1EpR4bwv05qap+7GMZ1bNoYSsx33vfrHcZBhG+P5/G3 +s6GHkWEpd1IMr7gx9PiI/DCqCzEfrBbDY4Kk+I1EHolYUIJE68XQt8WlzLyZ +6I/X48nbWGK4r3nxhnMTG6L+uD+t6RDDtARZxb2NbLgNltvPj4vhopeBnxuR +f/JPVE0tVosjR/fD/igiP7/t+ugbJyOOOk+F6BZVRD9OXDlVqySOGx42nFhN +5K2zgGSrCk0cs++G8RaXsSHdiseE21wcX+h2vM24QeRx7wg2Rouj3+65vMo8 +4n6ZbLoWHSeOSoHfRuRy2SDAcZlLN1kcm5TVzqRms0FM06X13gVxfLZu42q3 +LKIfkrq337otjp49/1yaU9lgoddiU/hJHBv6/H5WHWdDl93VW3u+iqOt98Kj +wWNscAiMJcnNimPEwIjKvxgi3y5s6cnnlEDFgY8lelFsCPl+1/GCtAQme2V+ +iQtlQ+b16+7J9hIopvfuq8EeNqypj3u4zUUCVQuU1yp6sOHSS09Z3j0SKGpo +yMXlTuTVX6mRuP0SCJei1t5zIu4PpyyfmGQJLH5OrfxsQ+y3UMLekCYJ9BXP +/pWkzwaVCP+onZRVKHlgvKaBuN81t7x3KKCtwpOKZVstxNiwgcNZe2rjKtxR +GhbWL8oG47Pmn46brEIy75vyD4Js8Cii7ix3X4XGRQufuzmIeemb1uY6twor +tl+tFP/CAl6d4xO3Zlah4y/9dk0WC8bmsncJPZREcw0jW3NPFhQaMQ++fSSJ +2Sn/Xe10Y4Fnate5W+2SKBxQcM/GmQWvlXmfOQxKYsT9zTrb7VjQ7RCud2lG +ErvL+j+TTVjQdMdKXpOyGme+3F0mqbAgez/nlE32aqx+qNCR29sMFuN7j2WE +rcE6gR7jie4msBlL15CVXYe5YocGvAsbYeqR94mnlVKY70kS37m3HrTIAzIm +njKofUUv6MH4AxCEOa/hGVksKCw1z4m/B9u/uv5WdJTHLKcJc9nfd2GwxZfT +laqAA4fVKJS023AvudVDfk4BC4O2FbkNV4A/b+RIV5ciNi86/9h4sQR8wmPu +rcxTwi/hVZump4tAO0Cjy8pLGeOb489WN1yDF2JUoUjd9ahQpXx4rfllaKg6 +mU/lVsGE7Ikea8yBGE7Kjo63KvjnjILBqbRMEByONgupUcWF/f+kFxzOwcbD +pcLnHqgipDe0huueAy+xwZ5b9aooHChr90/2HNSa6ez+yVLFy51NixZTaeB/ +73tYRKcqhqx3eVwXlwbsNN/86E+qmOL77uWn6lSIMrL5lrhGDf0CNNUs15+F +8WKFrIKjavi2eEYkf0sKfDn1YYH7hBou2OhlhyumwLT3Nc/AeDXsjfv2210w +BTjkFDTop9Vwo/RLqb2vk2FdtnxLS7YaZnKNvvWNSYYdSXI/xu+qIQcvtaOX +lQSNATJW1Ek1VDLIQweXRMhSW8tT56iOJDe9Bw+a4sHdQ+XmR2d1bArKSDCr +iAflLKaFiLs6Is+DwonceKhZtk738VbH2mN/SndExkPfwElpkQPqWD9eSeqk +xoN4wpcNPsnqOPFS0ifwyknI+NDsJ9ygjvxT3aHTZ+IgPc+/zUuegr0GkfKm +Msfh8KGTB48qUTDF1LqifDkWPOyvyGWrUHDb41NclNFYoAoOHO6gUnAuQr9/ +/81YeHbEVG2TLgX3K5ckkpixwOWinLLSnoI57u/r79kcg8jVoxYP4inY4Gaw +XiY7BlyzdnetnKBgtId/i0tQFEhXC0rtm6IgyWt9vK5tFLzvfhDw7CsFq32b +NtF1osBXVIwzcZaCs8drNgdyRkHI6SfMZU4N/Jofw5rOOwwnT2jn/pTWwHcZ +NfR9PYegNJjTd8BeAxueL9Ij7SNhfuuNhYImDXyuLRrhmRkORxsK4lvZGhjw +vXyF9Ilw4GDkCU+2aqDLvO7PyeBwWCF3ToHxXANZn4Ky6raFg+RClHnrKw28 +J8fNUlkKA2alVe7nHxqYODI9phkQBiGrZjfTlai4cM5ue55lKEyf+dbiqEJF +zpDw8aAtoRDJNWkVrU7F6httjubqoXD0+9s9j7SpGFLBE7tpRSicedaW7KhP +RZ7cIPOCpANQcix/8IgjFc1mPmxuPx4CH8eNo1qSqJhYatNekhgMxgVdhZQz +VFQK8K2N9QuGq86unRlpVGyaWhd1aGsweDwPU/S5QEWjmdtL7VzB8Pr21Q7u +61Sc7ezn5I3bBz0x/+RNm6gYgHduFcXvhRZy/bO2WSqueCD2s+dqICg8N53V +nqfiNsHkgsr4QDhxqls2Z4moX/TUg2L/QDD8/flgIJcmNtooNsxQA6F+eLWs +AEkT63JHdH7VB8Ddm5HhFhqa+MlyxCFx2B8KDehSnV6amGymuFlBxw9abATj +l3w1kcew/Ox2GT8Y9fw4pR6oiR7vBG4k8PqB0skL9Ykhmtjtod5jNuALRU8W +XDCG+L6q4tfnKF+4YduSU52liS4TKo7HW3ygxMtBMq9NEzt1jtBj/b3haTg1 +9mm7JlJqjc4ctvOGz/G8n351amLiQd1tifreoFb84J5DnybaLwRf/CjmDaVT +Uo7CHzTx/Qf/a/ksLyg7OJZ5YlETLUJjMn/KeUFlQiQ5QFMLF2JPFIS98YQv ++rtPJtC0cOzciXjaA0+gzm6duc7UwqDp4K0SmZ5Q5i3RP6KrhVMiRW/NLT2h +BKpzXLdp4cj01l9BDz2gaOGHnI2nFq7u7zP3LtkNefuDtXTOayHjXvmiW44b +kf87CxyytPDI4ArL6Cg3WDusRwrP1kJnKUZRnbMb5FgITVdd1sJ9FfVLeWvd +4IJq2T21Mi2c/HxMdPySK6R/mNCXfqSFo6oyp4+VukCSo48l95wWurt9GloY +coJC22F3v3kt5DKOfl/U4ASN5o4hbUtayBnrfzn8shNMG2w/f4ZLG2nHDesi +vZzAXUXjlThJG1uyDj6Q/G8XMH5PeytraKNM/AnnYp5d8C7nZLSplzamG38f +XLVjJyxkLJ256auNVol7Dr/S2QkSqRGXBQK1cVY6+cEDqZ1gHufP6gzRxrTp +V1d7JxygJsiCb9dRbYzs5a6NjHOA01vEMvyztVEk5biNWb096AxfK03q1MZ/ +Hn0Du4zsgKQVOH/rpTZuWJiT3kC1gy/HtbYP9moj6wPljdpqOyhSahhTe62N +fXXNvs5fd4DEvj659k/E87MSzM68HbB4lNuSj4OG/6jgODtjC0NCG9lma2m4 +s/CDzPnz1vBkQ+7n4XU0NBDNFesLtoaa3X9Ew6RpKFfpnYJm1pB+q8UjV46G +lh/9nC8sW4GZg+2fyfU0zGKRuCihVlCbF7jpDIOGpkub5IedLSFHPb+y05KG +LeFpyrbbzWF2ZtuNeGsa0r5bB3com4Nt0/QlXVsaPpv3q4jgMgc+B4uzN+xp +mNpe6mzaZAaRRxf2HnOh4VUvGo5uMgP7F05qmgE0/FT1tOMDYzusjJS4fvYk +DZ1/qCc1bjOFQGDlGZ+iodIrVjiqm8IjgeCM+QQaztzUaJ4UMoXoK4/ifFOI ++i4a95R3b4XJtvA9+uk0dHqYvGPSYys8Wdct8+UyDSuqhW6uP2ECx1mpOZZ1 +NNzLcD90ZtgIpt6yshbqaahx/P2zD4+MYNfSTPrNRhq2x8m6OZUbAXWjawo3 +i4aV9VdLC6KNYLBcJbrhCQ2NAl4oXFtnBIzsZjeNPhqKcPuYmu9B+LT/p6zQ +dxpGZ9llJ3IZgt0ZZam6HzQcVDHsiB00gMYSp9UB0zTUrJBVrawygMyPD0Uf +zdHwiFPzznI3A0CX0xwxf4j6TcTbVGr1IW+r0uiUAB21fo2cHYvWA2spxxvt +ynSkipkID6/XhZwxLZabCh2DaF0rU3h0YayS/80XVTreB43HHh83w1FsJIlq +0PHYGbPK+GubocJP6agDnY6/g3tiq+Q2g+Dtn/bDBnTUl/vb5aW0Cdq2pnF8 +20XHvbTgVxLbdUBMJFDquDMdBVp/mSZQdMDjldFGkisd+ZWDlNaK6MCvoLl9 +jN105I6Es2X9G0DlnPurQz50HL1T++SA/wY4NUSpWj5AR+PnbmNeaUwwCmlz +I6fQ8fj3m5eHf9FhcXByW+tpOk629lF8hulQY7KScfgs8T7X2TfCLXRQWWvH +//YcHf9qGf7uSqXDytbXNSUX6Via8t/mJRU6DK79JoxFdLT+0dzY70mD0McS +rJBmOm7oKPrd36cJFNqmcgU2HS/9+NNlWqIJH/NcLva10PG2VeXBmRhN2BV6 +JXjLEzqmnnX7yqesCfpSamv5OunoYHxXi+8wFfjD9MIvv6ajm3ZYgJKaBhRI +eyt3zBHrK33C6q9Rgy1MDS3v33Qs/7LuzufzatBnPrtpfp6Oi/cj09UPqAH/ +4URL5T90THJqhw0UNQjtLgs/ysXAsybJ/gGFqoCJMyyqKAP3HGhoWpWvAqPf +T+1OVWPgiw+1iesrlOEon02AEoWBKz0l286lKYOkzOqwOg0Gnnn8KFYhTBks +LEpPjWsxcK55d2b9RmW4W9RZbqDDQB5p1TVNj5Qg3kVy8asRA+UCIeTDmCIo +P7p50caNgX1FKrmuxgrQRZ0vGnZnYEf/vzuv1BUg6qJZ9V4PBkL+fatIsgI8 +D5p8kejFQJOvKUHkD/IQTtIQaA5gYNyt5F9P4+SheXdVjHYEA0WPrdRWzZAD +1/maPaRUBvYufDyrOCwNPN68B66kMZC1uF2u7K40VD13PEZNZ2DeZ2ZoUIo0 +cBb8yjXLZOA/5UndtE3SUGK6ufdELgMnBANmAi9KwVxGg+nPGwzcMuiuoeax +DtI1Wyg9TQwcP/RYh09iDZRsdhM4yWKgvqjzeZFvq6HZZHaC3sLA2yUyfLZP +V8M3F5Ub5x8zsGtPvMDhY6vBMvG0nF0HAyOQh+Y2JQl87+0lXg4xcEGw+iuj +axXEpH/82znLQA+JzI2URnHIyD86fOwXAy/e9XUvuSQOZcWrGjTnGfh4/bE6 +x2PiMNi4PSp1iYGZkq/FDUAcNk6WT1txMVF9RyZz02Mx+GEUMfFclIlqB89H +Xxsig/8MT/czChOn5netv6ZIAo+yrV3uVCamfQpPthAkwS6vU8+/azKR5rLl +PXVMFLa94H6yis7E25k26pRToqBSztXgtYmJkwleV+zaRGDcm+PGggkT4/Ri +W/lchcG3ZylKfTcTFwNGpe5VCYJ7it6hRg8mmi7UjHIkCsJOjDlou4eJB2Xn +5ZN2C8LWqsX9kT5MfKnX+9xIWBCUTy94s4OYGN9aFhBwQAA+Gv22cjnERBvh +XzvohvzgfWdaPuUcE32OdHg0c/NB8EmHPxbnmSgyNTEx9JYXIh1qXq3MZKJx +5ewsvZYXkuci09IvMlFuFUM1dz8vVOkuLGVfZiJdIvKd7hseWGAvDxSXM7G7 +gPNpJJsb0ntWpra2MbGyj7U++gEn5F3fH5j4jIkBBeW2eTmccD2iy8TsORPz +no6Zfz3CCfcl0xefdzGx09HiMMWAE4ZdxQN7+5mYULRm28JjDlD9uNZk9CMT +LQNctK3Zy4a0mmjZonEmXvK5qH01ZdlwS8KbBb8JJn68uSXc1n7Z0Er18u3J +KSbuHeyLZ439MwzfJy/78ydxno0+gW+F/xke1Y9buDvDxLuptnzcQ38NE4RH ++yLmmMhItE04UfTXMOfW9TPz80z8cryQJ07/r2HhCZ6A+kUmrhz6PMcl8New +3M7P+OgfJipLqJW97v9jWKP4RMbwHxOtEx/mr7j+x7BpRmVheZmJ+/WfmKaE +/jH8HxM6JGk= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xc81f8XB3A7I9yLNOyRcV3ckUrGOUjZQjIjm5IQJUpJVkVCWZWSZDeo +rLhXSgllRqkkEt+mUUbl9/n9dR/Px/3c+znv9/uc11vB+4C9HxcHB8cdTg6O +/39ejvXmo/vmG362Xfg2ou5k2Norb+UkfwRCR3v9E0AHlp80xcvLp4BrdfV/ +9mAKl1mpcrzyueAxmKCsAY4QbBC5/7dcKTwWoUq9NfSD3qXArB9ydfD2w8Ok +ToNIWPFmVPWr3DN4F32Ts0g3Aa61F4T9JzcEm18OqJHUL0DVrZQ3wVpTkK8S +7XyadQMCoDv3S/gMHGJa7QsovAUh4+ofa6oWoEoi8PSMeQ0IKpxSfb+ZA1/M +uUieu1QLT/XPa8eacmDPusMGSeW1kOh8ZZOMPQd6vWrffai+FrjSa7e77ePA +0d7yKN3BWlj89yXg1WUOLHS+esVevA7+G3YsecHFiRvEhn93JNVBR46qOquD +Ews37At8HFQPaaTnlGt7uFHo9BJpltQIdZtk7tmEcKMmHGLkyjbCmMcB+BPD +jdm/1YoZ1EbQqxTf6ZTNjSdmrCONtzfCZ3P3Y8Jd3Fju/dey/2gjmMR/fXFE +jwdvhV9ltY43wvycaKS9JC++PvzwUnXVQ1CS8V5eVuJF42BJv+H6h2CztSal +ks6LbIv21QtPHsKNDOcr/Na8mKPnTxd5/xDsta+1NcXzYr+w1n/FIk1QGchY +p/GTF3Varxil72sC7zc7m7k7+FC1LSyIId0Mgvkf9ocN8eFZzgSbQpVmuOsa +Iv3+Ex8q0ubM+OjNwP066Ug95wrU/BF9uMy0GYoG65lhm1bgVu7icz4hzfCp +X77kXeEKJDf5BGU/bIa9L7+k1x3hRxXtVbmx6iwQSz8Cqkn82LDues4vTRbU +2/J9y8rix32iuumBDBYIvZCzDL3Fj9XiCv5b9FhQ0WnPqzrOj1L3NYouWLHg +W3vtkawdAujrm6JNCWFB2ONT3gdUBdGLR+BQewULZMe28f1iCqJf4F9Po9ss +eM4lUHYUBXFOR35FdTUL1mPqzxQXQXwTbpOaWM+CofoLJ4rOCKK7dfjRb20s +MLpdfGXouyAqLb9Y0fKBeF9XoPGeP4IolqfVPzbGgvyvlE+f+IWwui7Qm+sz +C+YotzRnFYTQXzPqoeY3FpTeeNAoslMIXRL7jpkusoCc//S1Sa0Qpu8qDzlC +ZkNT3enY9lYhPB++xcNMgg37Bq0U7bqF0O7xvJjYajY8XtUd5DElhJGO1Z0X +pNlwJH1oPkp6Je6tO5nlocqGDwlTklUnVmJPokjvnB4b7oSudFhjLozPC9Lm +DL3Y0JEnfqRylzDa/Fv8esGHDZ9a1xUY+wpjWf9A/yc/Nqxbq/5f8HFhbDW/ +dvjQXjacYpvGs+8J4+mWS7LWB9mwS+x49V5FEbTXEng3GM+GUP3EoWVtEZwU +8jF9kcCG0/6py1kGIhgr2FLRnMSG5vp8y2ZnEbyVqXYi7Qwb1HxqP4qfE8EI +/VjXsQw2LFb/FH+4JIIcMmu+h11lg8S7eV17AVGc7gya4C9kgxY/x54JSVGc +ccifyb3OBh93kQoyQxT1Jrmty4qJ9fBobPUPFMWls76UUxXEerQYe5ciRfGn +xprP/1WygcNFNz09XhQp9U9brW+xQady+3D9FVGUXpgcWb7DhiuOvhGi/aKo +f9GlU+YBG2qP78srGhXFu5VCFbtq2dBbGs7S/SGKQwWX7qXUsYHnOPLd5SUh +96kE23cNbNjca2M/LE9CRq1JuxGLDaaB9uPFqiT0/nVTw4rNBvu/jlFhWiQs +9Ext3dHChmDV3Vf49El46p/vdbNWNlyL2TdFcyLhyFC5yUwbG2gsgfmk3STc +El6+lv2UDSyeEt73PiTMePrtR8ozNoykjsmnhpJwyW64ZOVzYv97TmqNHSKh +E8vl7BPCy5IK+nrHSDjlyT4U08EG2au7nSZTSPhtl7D/QCcbqsaWfDGdhJlr +B/Yf7WKDgXpeePZFot4Ru5MyL9jgfncg1fQ6CX9WG7/a8ZINea22rdcaSciz +5prr0R42UAS+dc+3kLC8/vTPRcJ11mff2z4jYXO47LWIXjYMDjxd/NtPwkMG +ATtc+tgQKBXA7zhMwmIupkMr4d+evJIVoyR8ZzgQQelng+SkEd31OwktOCbW +fSZcrDlieGeO8JmYQhggzis81or/DwkDLujYZhBuvS/t6slFxrDKSsURwjuX +6gPu85Ox2ydWVv0VG8bAJVJYlIw1Zlu37id88NTvk76ryOgydflCBWGuZxfS +G6TIqNWrITFBOEN4wxUxRTKuSU5nSw+yQdG+pzxIjYzFiaEF1oTvXAytY2mR +EUzCbx0hjG9E2lbrkNFJ1XDmKuGXcpV9IXpkLD0XG/yI8B5fy9HHRmR0bX8v +/YHw95LJ79JmZNy0isS3SDj2a9LfgzZkHMlvVhcZYoMIQ0Xo+U4yzkdeTZEh +fOVQ6xpFNzJa3vBXVSOs2eCtcsSLjCsknvJoEW5c5tjwMoD4fcZRJW3CVlsL +jFRDyGj0yiBBg/BwsoFtbAQZDxxp01AivK/zjXt/NBkbpgfWSBJeJEfvpcaR +8Ua+hg0P4dO71kTFJxH/X5bY+ZWob13+/YTXqWTU1y7P6SFc+n5nJj2LjCaS +HnfuEt6sPHM1OY+MXxT816YRfhp4vur9VTLOTZ3p8SXsXKnduPEmGWnvct9t +JDzxs/NZaiUZK7a4Aw/hQxuDX41VE+cleu1XB7H/fDGC43r1ZIzT28x3nvDF +5pLpDBaxnsCZAzsIr+fZzjH1hIz2QsU6QoS3psZL5fSS8e1Bs+Fw4vz7uhXU +vw+RsYT/M0uOsI8ka+O2ETIWVb3jf0r008mCP3azX8h4U21ruyDhHbTaMI0Z +Mm6XW7K7SfSjLPvgee8FMioua4cD4frRqZcvecXwgiAj3pvo5+SDxT9WrBRD +w4iMw1+Jft/F400CMTF8DdlCEYSn1w/ZVsqK4V3247UR3cS83s86MKYshlJw +LvsrMT9p23eck9IQQ59S/UZvwpSgtq6UTWLo+CKTE4l58664Z+2/QwytbzTe +ekLMK80gbP/lXWK4e1EpR4bwv05qap+7GMZ1bNoYSsx33vfrHcZBhG+P5/G3 +s6GHkWEpd1IMr7gx9PiI/DCqCzEfrBbDY4Kk+I1EHolYUIJE68XQt8WlzLyZ +6I/X48nbWGK4r3nxhnMTG6L+uD+t6RDDtARZxb2NbLgNltvPj4vhopeBnxuR +f/JPVE0tVosjR/fD/igiP7/t+ugbJyOOOk+F6BZVRD9OXDlVqySOGx42nFhN +5K2zgGSrCk0cs++G8RaXsSHdiseE21wcX+h2vM24QeRx7wg2Rouj3+65vMo8 +4n6ZbLoWHSeOSoHfRuRy2SDAcZlLN1kcm5TVzqRms0FM06X13gVxfLZu42q3 +LKIfkrq337otjp49/1yaU9lgoddiU/hJHBv6/H5WHWdDl93VW3u+iqOt98Kj +wWNscAiMJcnNimPEwIjKvxgi3y5s6cnnlEDFgY8lelFsCPl+1/GCtAQme2V+ +iQtlQ+b16+7J9hIopvfuq8EeNqypj3u4zUUCVQuU1yp6sOHSS09Z3j0SKGpo +yMXlTuTVX6mRuP0SCJei1t5zIu4PpyyfmGQJLH5OrfxsQ+y3UMLekCYJ9BXP +/pWkzwaVCP+onZRVKHlgvKaBuN81t7x3KKCtwpOKZVstxNiwgcNZe2rjKtxR +GhbWL8oG47Pmn46brEIy75vyD4Js8Cii7ix3X4XGRQufuzmIeemb1uY6twor +tl+tFP/CAl6d4xO3Zlah4y/9dk0WC8bmsncJPZREcw0jW3NPFhQaMQ++fSSJ +2Sn/Xe10Y4Fnate5W+2SKBxQcM/GmQWvlXmfOQxKYsT9zTrb7VjQ7RCud2lG +ErvL+j+TTVjQdMdKXpOyGme+3F0mqbAgez/nlE32aqx+qNCR29sMFuN7j2WE +rcE6gR7jie4msBlL15CVXYe5YocGvAsbYeqR94mnlVKY70kS37m3HrTIAzIm +njKofUUv6MH4AxCEOa/hGVksKCw1z4m/B9u/uv5WdJTHLKcJc9nfd2GwxZfT +laqAA4fVKJS023AvudVDfk4BC4O2FbkNV4A/b+RIV5ciNi86/9h4sQR8wmPu +rcxTwi/hVZump4tAO0Cjy8pLGeOb489WN1yDF2JUoUjd9ahQpXx4rfllaKg6 +mU/lVsGE7Ikea8yBGE7Kjo63KvjnjILBqbRMEByONgupUcWF/f+kFxzOwcbD +pcLnHqgipDe0huueAy+xwZ5b9aooHChr90/2HNSa6ez+yVLFy51NixZTaeB/ +73tYRKcqhqx3eVwXlwbsNN/86E+qmOL77uWn6lSIMrL5lrhGDf0CNNUs15+F +8WKFrIKjavi2eEYkf0sKfDn1YYH7hBou2OhlhyumwLT3Nc/AeDXsjfv2210w +BTjkFDTop9Vwo/RLqb2vk2FdtnxLS7YaZnKNvvWNSYYdSXI/xu+qIQcvtaOX +lQSNATJW1Ek1VDLIQweXRMhSW8tT56iOJDe9Bw+a4sHdQ+XmR2d1bArKSDCr +iAflLKaFiLs6Is+DwonceKhZtk738VbH2mN/SndExkPfwElpkQPqWD9eSeqk +xoN4wpcNPsnqOPFS0ifwyknI+NDsJ9ygjvxT3aHTZ+IgPc+/zUuegr0GkfKm +Msfh8KGTB48qUTDF1LqifDkWPOyvyGWrUHDb41NclNFYoAoOHO6gUnAuQr9/ +/81YeHbEVG2TLgX3K5ckkpixwOWinLLSnoI57u/r79kcg8jVoxYP4inY4Gaw +XiY7BlyzdnetnKBgtId/i0tQFEhXC0rtm6IgyWt9vK5tFLzvfhDw7CsFq32b +NtF1osBXVIwzcZaCs8drNgdyRkHI6SfMZU4N/Jofw5rOOwwnT2jn/pTWwHcZ +NfR9PYegNJjTd8BeAxueL9Ij7SNhfuuNhYImDXyuLRrhmRkORxsK4lvZGhjw +vXyF9Ilw4GDkCU+2aqDLvO7PyeBwWCF3ToHxXANZn4Ky6raFg+RClHnrKw28 +J8fNUlkKA2alVe7nHxqYODI9phkQBiGrZjfTlai4cM5ue55lKEyf+dbiqEJF +zpDw8aAtoRDJNWkVrU7F6httjubqoXD0+9s9j7SpGFLBE7tpRSicedaW7KhP +RZ7cIPOCpANQcix/8IgjFc1mPmxuPx4CH8eNo1qSqJhYatNekhgMxgVdhZQz +VFQK8K2N9QuGq86unRlpVGyaWhd1aGsweDwPU/S5QEWjmdtL7VzB8Pr21Q7u +61Sc7ezn5I3bBz0x/+RNm6gYgHduFcXvhRZy/bO2WSqueCD2s+dqICg8N53V +nqfiNsHkgsr4QDhxqls2Z4moX/TUg2L/QDD8/flgIJcmNtooNsxQA6F+eLWs +AEkT63JHdH7VB8Ddm5HhFhqa+MlyxCFx2B8KDehSnV6amGymuFlBxw9abATj +l3w1kcew/Ox2GT8Y9fw4pR6oiR7vBG4k8PqB0skL9Ykhmtjtod5jNuALRU8W +XDCG+L6q4tfnKF+4YduSU52liS4TKo7HW3ygxMtBMq9NEzt1jtBj/b3haTg1 +9mm7JlJqjc4ctvOGz/G8n351amLiQd1tifreoFb84J5DnybaLwRf/CjmDaVT +Uo7CHzTx/Qf/a/ksLyg7OJZ5YlETLUJjMn/KeUFlQiQ5QFMLF2JPFIS98YQv ++rtPJtC0cOzciXjaA0+gzm6duc7UwqDp4K0SmZ5Q5i3RP6KrhVMiRW/NLT2h +BKpzXLdp4cj01l9BDz2gaOGHnI2nFq7u7zP3LtkNefuDtXTOayHjXvmiW44b +kf87CxyytPDI4ArL6Cg3WDusRwrP1kJnKUZRnbMb5FgITVdd1sJ9FfVLeWvd +4IJq2T21Mi2c/HxMdPySK6R/mNCXfqSFo6oyp4+VukCSo48l95wWurt9GloY +coJC22F3v3kt5DKOfl/U4ASN5o4hbUtayBnrfzn8shNMG2w/f4ZLG2nHDesi +vZzAXUXjlThJG1uyDj6Q/G8XMH5PeytraKNM/AnnYp5d8C7nZLSplzamG38f +XLVjJyxkLJ256auNVol7Dr/S2QkSqRGXBQK1cVY6+cEDqZ1gHufP6gzRxrTp +V1d7JxygJsiCb9dRbYzs5a6NjHOA01vEMvyztVEk5biNWb096AxfK03q1MZ/ +Hn0Du4zsgKQVOH/rpTZuWJiT3kC1gy/HtbYP9moj6wPljdpqOyhSahhTe62N +fXXNvs5fd4DEvj659k/E87MSzM68HbB4lNuSj4OG/6jgODtjC0NCG9lma2m4 +s/CDzPnz1vBkQ+7n4XU0NBDNFesLtoaa3X9Ew6RpKFfpnYJm1pB+q8UjV46G +lh/9nC8sW4GZg+2fyfU0zGKRuCihVlCbF7jpDIOGpkub5IedLSFHPb+y05KG +LeFpyrbbzWF2ZtuNeGsa0r5bB3com4Nt0/QlXVsaPpv3q4jgMgc+B4uzN+xp +mNpe6mzaZAaRRxf2HnOh4VUvGo5uMgP7F05qmgE0/FT1tOMDYzusjJS4fvYk +DZ1/qCc1bjOFQGDlGZ+iodIrVjiqm8IjgeCM+QQaztzUaJ4UMoXoK4/ifFOI ++i4a95R3b4XJtvA9+uk0dHqYvGPSYys8Wdct8+UyDSuqhW6uP2ECx1mpOZZ1 +NNzLcD90ZtgIpt6yshbqaahx/P2zD4+MYNfSTPrNRhq2x8m6OZUbAXWjawo3 +i4aV9VdLC6KNYLBcJbrhCQ2NAl4oXFtnBIzsZjeNPhqKcPuYmu9B+LT/p6zQ +dxpGZ9llJ3IZgt0ZZam6HzQcVDHsiB00gMYSp9UB0zTUrJBVrawygMyPD0Uf +zdHwiFPzznI3A0CX0xwxf4j6TcTbVGr1IW+r0uiUAB21fo2cHYvWA2spxxvt +ynSkipkID6/XhZwxLZabCh2DaF0rU3h0YayS/80XVTreB43HHh83w1FsJIlq +0PHYGbPK+GubocJP6agDnY6/g3tiq+Q2g+Dtn/bDBnTUl/vb5aW0Cdq2pnF8 +20XHvbTgVxLbdUBMJFDquDMdBVp/mSZQdMDjldFGkisd+ZWDlNaK6MCvoLl9 +jN105I6Es2X9G0DlnPurQz50HL1T++SA/wY4NUSpWj5AR+PnbmNeaUwwCmlz +I6fQ8fj3m5eHf9FhcXByW+tpOk629lF8hulQY7KScfgs8T7X2TfCLXRQWWvH +//YcHf9qGf7uSqXDytbXNSUX6Via8t/mJRU6DK79JoxFdLT+0dzY70mD0McS +rJBmOm7oKPrd36cJFNqmcgU2HS/9+NNlWqIJH/NcLva10PG2VeXBmRhN2BV6 +JXjLEzqmnnX7yqesCfpSamv5OunoYHxXi+8wFfjD9MIvv6ajm3ZYgJKaBhRI +eyt3zBHrK33C6q9Rgy1MDS3v33Qs/7LuzufzatBnPrtpfp6Oi/cj09UPqAH/ +4URL5T90THJqhw0UNQjtLgs/ysXAsybJ/gGFqoCJMyyqKAP3HGhoWpWvAqPf +T+1OVWPgiw+1iesrlOEon02AEoWBKz0l286lKYOkzOqwOg0Gnnn8KFYhTBks +LEpPjWsxcK55d2b9RmW4W9RZbqDDQB5p1TVNj5Qg3kVy8asRA+UCIeTDmCIo +P7p50caNgX1FKrmuxgrQRZ0vGnZnYEf/vzuv1BUg6qJZ9V4PBkL+fatIsgI8 +D5p8kejFQJOvKUHkD/IQTtIQaA5gYNyt5F9P4+SheXdVjHYEA0WPrdRWzZAD +1/maPaRUBvYufDyrOCwNPN68B66kMZC1uF2u7K40VD13PEZNZ2DeZ2ZoUIo0 +cBb8yjXLZOA/5UndtE3SUGK6ufdELgMnBANmAi9KwVxGg+nPGwzcMuiuoeax +DtI1Wyg9TQwcP/RYh09iDZRsdhM4yWKgvqjzeZFvq6HZZHaC3sLA2yUyfLZP +V8M3F5Ub5x8zsGtPvMDhY6vBMvG0nF0HAyOQh+Y2JQl87+0lXg4xcEGw+iuj +axXEpH/82znLQA+JzI2URnHIyD86fOwXAy/e9XUvuSQOZcWrGjTnGfh4/bE6 +x2PiMNi4PSp1iYGZkq/FDUAcNk6WT1txMVF9RyZz02Mx+GEUMfFclIlqB89H +Xxsig/8MT/czChOn5netv6ZIAo+yrV3uVCamfQpPthAkwS6vU8+/azKR5rLl +PXVMFLa94H6yis7E25k26pRToqBSztXgtYmJkwleV+zaRGDcm+PGggkT4/Ri +W/lchcG3ZylKfTcTFwNGpe5VCYJ7it6hRg8mmi7UjHIkCsJOjDlou4eJB2Xn +5ZN2C8LWqsX9kT5MfKnX+9xIWBCUTy94s4OYGN9aFhBwQAA+Gv22cjnERBvh +XzvohvzgfWdaPuUcE32OdHg0c/NB8EmHPxbnmSgyNTEx9JYXIh1qXq3MZKJx +5ewsvZYXkuci09IvMlFuFUM1dz8vVOkuLGVfZiJdIvKd7hseWGAvDxSXM7G7 +gPNpJJsb0ntWpra2MbGyj7U++gEn5F3fH5j4jIkBBeW2eTmccD2iy8TsORPz +no6Zfz3CCfcl0xefdzGx09HiMMWAE4ZdxQN7+5mYULRm28JjDlD9uNZk9CMT +LQNctK3Zy4a0mmjZonEmXvK5qH01ZdlwS8KbBb8JJn68uSXc1n7Z0Er18u3J +KSbuHeyLZ439MwzfJy/78ydxno0+gW+F/xke1Y9buDvDxLuptnzcQ38NE4RH ++yLmmMhItE04UfTXMOfW9TPz80z8cryQJ07/r2HhCZ6A+kUmrhz6PMcl8New +3M7P+OgfJipLqJW97v9jWKP4RMbwHxOtEx/mr7j+x7BpRmVheZmJ+/WfmKaE +/jH8HxM6JGk= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.13944043381447724`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.13944043381447724`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xc81f8XB3A7I9yLNOyRcV3ckUrGOUjZQjIjm5IQJUpJVkVCWZWSZDeo +rLhXSgllRqkkEt+mUUbl9/n9dR/Px/3c+znv9/uc11vB+4C9HxcHB8cdTg6O +/39ejvXmo/vmG362Xfg2ou5k2Norb+UkfwRCR3v9E0AHlp80xcvLp4BrdfV/ +9mAKl1mpcrzyueAxmKCsAY4QbBC5/7dcKTwWoUq9NfSD3qXArB9ydfD2w8Ok +ToNIWPFmVPWr3DN4F32Ts0g3Aa61F4T9JzcEm18OqJHUL0DVrZQ3wVpTkK8S +7XyadQMCoDv3S/gMHGJa7QsovAUh4+ofa6oWoEoi8PSMeQ0IKpxSfb+ZA1/M +uUieu1QLT/XPa8eacmDPusMGSeW1kOh8ZZOMPQd6vWrffai+FrjSa7e77ePA +0d7yKN3BWlj89yXg1WUOLHS+esVevA7+G3YsecHFiRvEhn93JNVBR46qOquD +Ews37At8HFQPaaTnlGt7uFHo9BJpltQIdZtk7tmEcKMmHGLkyjbCmMcB+BPD +jdm/1YoZ1EbQqxTf6ZTNjSdmrCONtzfCZ3P3Y8Jd3Fju/dey/2gjmMR/fXFE +jwdvhV9ltY43wvycaKS9JC++PvzwUnXVQ1CS8V5eVuJF42BJv+H6h2CztSal +ks6LbIv21QtPHsKNDOcr/Na8mKPnTxd5/xDsta+1NcXzYr+w1n/FIk1QGchY +p/GTF3Varxil72sC7zc7m7k7+FC1LSyIId0Mgvkf9ocN8eFZzgSbQpVmuOsa +Iv3+Ex8q0ubM+OjNwP066Ug95wrU/BF9uMy0GYoG65lhm1bgVu7icz4hzfCp +X77kXeEKJDf5BGU/bIa9L7+k1x3hRxXtVbmx6iwQSz8Cqkn82LDues4vTRbU +2/J9y8rix32iuumBDBYIvZCzDL3Fj9XiCv5b9FhQ0WnPqzrOj1L3NYouWLHg +W3vtkawdAujrm6JNCWFB2ONT3gdUBdGLR+BQewULZMe28f1iCqJf4F9Po9ss +eM4lUHYUBXFOR35FdTUL1mPqzxQXQXwTbpOaWM+CofoLJ4rOCKK7dfjRb20s +MLpdfGXouyAqLb9Y0fKBeF9XoPGeP4IolqfVPzbGgvyvlE+f+IWwui7Qm+sz +C+YotzRnFYTQXzPqoeY3FpTeeNAoslMIXRL7jpkusoCc//S1Sa0Qpu8qDzlC +ZkNT3enY9lYhPB++xcNMgg37Bq0U7bqF0O7xvJjYajY8XtUd5DElhJGO1Z0X +pNlwJH1oPkp6Je6tO5nlocqGDwlTklUnVmJPokjvnB4b7oSudFhjLozPC9Lm +DL3Y0JEnfqRylzDa/Fv8esGHDZ9a1xUY+wpjWf9A/yc/Nqxbq/5f8HFhbDW/ +dvjQXjacYpvGs+8J4+mWS7LWB9mwS+x49V5FEbTXEng3GM+GUP3EoWVtEZwU +8jF9kcCG0/6py1kGIhgr2FLRnMSG5vp8y2ZnEbyVqXYi7Qwb1HxqP4qfE8EI +/VjXsQw2LFb/FH+4JIIcMmu+h11lg8S7eV17AVGc7gya4C9kgxY/x54JSVGc +ccifyb3OBh93kQoyQxT1Jrmty4qJ9fBobPUPFMWls76UUxXEerQYe5ciRfGn +xprP/1WygcNFNz09XhQp9U9brW+xQady+3D9FVGUXpgcWb7DhiuOvhGi/aKo +f9GlU+YBG2qP78srGhXFu5VCFbtq2dBbGs7S/SGKQwWX7qXUsYHnOPLd5SUh +96kE23cNbNjca2M/LE9CRq1JuxGLDaaB9uPFqiT0/nVTw4rNBvu/jlFhWiQs +9Ext3dHChmDV3Vf49El46p/vdbNWNlyL2TdFcyLhyFC5yUwbG2gsgfmk3STc +El6+lv2UDSyeEt73PiTMePrtR8ozNoykjsmnhpJwyW64ZOVzYv97TmqNHSKh +E8vl7BPCy5IK+nrHSDjlyT4U08EG2au7nSZTSPhtl7D/QCcbqsaWfDGdhJlr +B/Yf7WKDgXpeePZFot4Ru5MyL9jgfncg1fQ6CX9WG7/a8ZINea22rdcaSciz +5prr0R42UAS+dc+3kLC8/vTPRcJ11mff2z4jYXO47LWIXjYMDjxd/NtPwkMG +ATtc+tgQKBXA7zhMwmIupkMr4d+evJIVoyR8ZzgQQelng+SkEd31OwktOCbW +fSZcrDlieGeO8JmYQhggzis81or/DwkDLujYZhBuvS/t6slFxrDKSsURwjuX +6gPu85Ox2ydWVv0VG8bAJVJYlIw1Zlu37id88NTvk76ryOgydflCBWGuZxfS +G6TIqNWrITFBOEN4wxUxRTKuSU5nSw+yQdG+pzxIjYzFiaEF1oTvXAytY2mR +EUzCbx0hjG9E2lbrkNFJ1XDmKuGXcpV9IXpkLD0XG/yI8B5fy9HHRmR0bX8v +/YHw95LJ79JmZNy0isS3SDj2a9LfgzZkHMlvVhcZYoMIQ0Xo+U4yzkdeTZEh +fOVQ6xpFNzJa3vBXVSOs2eCtcsSLjCsknvJoEW5c5tjwMoD4fcZRJW3CVlsL +jFRDyGj0yiBBg/BwsoFtbAQZDxxp01AivK/zjXt/NBkbpgfWSBJeJEfvpcaR +8Ua+hg0P4dO71kTFJxH/X5bY+ZWob13+/YTXqWTU1y7P6SFc+n5nJj2LjCaS +HnfuEt6sPHM1OY+MXxT816YRfhp4vur9VTLOTZ3p8SXsXKnduPEmGWnvct9t +JDzxs/NZaiUZK7a4Aw/hQxuDX41VE+cleu1XB7H/fDGC43r1ZIzT28x3nvDF +5pLpDBaxnsCZAzsIr+fZzjH1hIz2QsU6QoS3psZL5fSS8e1Bs+Fw4vz7uhXU +vw+RsYT/M0uOsI8ka+O2ETIWVb3jf0r008mCP3azX8h4U21ruyDhHbTaMI0Z +Mm6XW7K7SfSjLPvgee8FMioua4cD4frRqZcvecXwgiAj3pvo5+SDxT9WrBRD +w4iMw1+Jft/F400CMTF8DdlCEYSn1w/ZVsqK4V3247UR3cS83s86MKYshlJw +LvsrMT9p23eck9IQQ59S/UZvwpSgtq6UTWLo+CKTE4l58664Z+2/QwytbzTe +ekLMK80gbP/lXWK4e1EpR4bwv05qap+7GMZ1bNoYSsx33vfrHcZBhG+P5/G3 +s6GHkWEpd1IMr7gx9PiI/DCqCzEfrBbDY4Kk+I1EHolYUIJE68XQt8WlzLyZ +6I/X48nbWGK4r3nxhnMTG6L+uD+t6RDDtARZxb2NbLgNltvPj4vhopeBnxuR +f/JPVE0tVosjR/fD/igiP7/t+ugbJyOOOk+F6BZVRD9OXDlVqySOGx42nFhN +5K2zgGSrCk0cs++G8RaXsSHdiseE21wcX+h2vM24QeRx7wg2Rouj3+65vMo8 +4n6ZbLoWHSeOSoHfRuRy2SDAcZlLN1kcm5TVzqRms0FM06X13gVxfLZu42q3 +LKIfkrq337otjp49/1yaU9lgoddiU/hJHBv6/H5WHWdDl93VW3u+iqOt98Kj +wWNscAiMJcnNimPEwIjKvxgi3y5s6cnnlEDFgY8lelFsCPl+1/GCtAQme2V+ +iQtlQ+b16+7J9hIopvfuq8EeNqypj3u4zUUCVQuU1yp6sOHSS09Z3j0SKGpo +yMXlTuTVX6mRuP0SCJei1t5zIu4PpyyfmGQJLH5OrfxsQ+y3UMLekCYJ9BXP +/pWkzwaVCP+onZRVKHlgvKaBuN81t7x3KKCtwpOKZVstxNiwgcNZe2rjKtxR +GhbWL8oG47Pmn46brEIy75vyD4Js8Cii7ix3X4XGRQufuzmIeemb1uY6twor +tl+tFP/CAl6d4xO3Zlah4y/9dk0WC8bmsncJPZREcw0jW3NPFhQaMQ++fSSJ +2Sn/Xe10Y4Fnate5W+2SKBxQcM/GmQWvlXmfOQxKYsT9zTrb7VjQ7RCud2lG +ErvL+j+TTVjQdMdKXpOyGme+3F0mqbAgez/nlE32aqx+qNCR29sMFuN7j2WE +rcE6gR7jie4msBlL15CVXYe5YocGvAsbYeqR94mnlVKY70kS37m3HrTIAzIm +njKofUUv6MH4AxCEOa/hGVksKCw1z4m/B9u/uv5WdJTHLKcJc9nfd2GwxZfT +laqAA4fVKJS023AvudVDfk4BC4O2FbkNV4A/b+RIV5ciNi86/9h4sQR8wmPu +rcxTwi/hVZump4tAO0Cjy8pLGeOb489WN1yDF2JUoUjd9ahQpXx4rfllaKg6 +mU/lVsGE7Ikea8yBGE7Kjo63KvjnjILBqbRMEByONgupUcWF/f+kFxzOwcbD +pcLnHqgipDe0huueAy+xwZ5b9aooHChr90/2HNSa6ez+yVLFy51NixZTaeB/ +73tYRKcqhqx3eVwXlwbsNN/86E+qmOL77uWn6lSIMrL5lrhGDf0CNNUs15+F +8WKFrIKjavi2eEYkf0sKfDn1YYH7hBou2OhlhyumwLT3Nc/AeDXsjfv2210w +BTjkFDTop9Vwo/RLqb2vk2FdtnxLS7YaZnKNvvWNSYYdSXI/xu+qIQcvtaOX +lQSNATJW1Ek1VDLIQweXRMhSW8tT56iOJDe9Bw+a4sHdQ+XmR2d1bArKSDCr +iAflLKaFiLs6Is+DwonceKhZtk738VbH2mN/SndExkPfwElpkQPqWD9eSeqk +xoN4wpcNPsnqOPFS0ifwyknI+NDsJ9ygjvxT3aHTZ+IgPc+/zUuegr0GkfKm +Msfh8KGTB48qUTDF1LqifDkWPOyvyGWrUHDb41NclNFYoAoOHO6gUnAuQr9/ +/81YeHbEVG2TLgX3K5ckkpixwOWinLLSnoI57u/r79kcg8jVoxYP4inY4Gaw +XiY7BlyzdnetnKBgtId/i0tQFEhXC0rtm6IgyWt9vK5tFLzvfhDw7CsFq32b +NtF1osBXVIwzcZaCs8drNgdyRkHI6SfMZU4N/Jofw5rOOwwnT2jn/pTWwHcZ +NfR9PYegNJjTd8BeAxueL9Ij7SNhfuuNhYImDXyuLRrhmRkORxsK4lvZGhjw +vXyF9Ilw4GDkCU+2aqDLvO7PyeBwWCF3ToHxXANZn4Ky6raFg+RClHnrKw28 +J8fNUlkKA2alVe7nHxqYODI9phkQBiGrZjfTlai4cM5ue55lKEyf+dbiqEJF +zpDw8aAtoRDJNWkVrU7F6httjubqoXD0+9s9j7SpGFLBE7tpRSicedaW7KhP +RZ7cIPOCpANQcix/8IgjFc1mPmxuPx4CH8eNo1qSqJhYatNekhgMxgVdhZQz +VFQK8K2N9QuGq86unRlpVGyaWhd1aGsweDwPU/S5QEWjmdtL7VzB8Pr21Q7u +61Sc7ezn5I3bBz0x/+RNm6gYgHduFcXvhRZy/bO2WSqueCD2s+dqICg8N53V +nqfiNsHkgsr4QDhxqls2Z4moX/TUg2L/QDD8/flgIJcmNtooNsxQA6F+eLWs +AEkT63JHdH7VB8Ddm5HhFhqa+MlyxCFx2B8KDehSnV6amGymuFlBxw9abATj +l3w1kcew/Ox2GT8Y9fw4pR6oiR7vBG4k8PqB0skL9Ykhmtjtod5jNuALRU8W +XDCG+L6q4tfnKF+4YduSU52liS4TKo7HW3ygxMtBMq9NEzt1jtBj/b3haTg1 +9mm7JlJqjc4ctvOGz/G8n351amLiQd1tifreoFb84J5DnybaLwRf/CjmDaVT +Uo7CHzTx/Qf/a/ksLyg7OJZ5YlETLUJjMn/KeUFlQiQ5QFMLF2JPFIS98YQv ++rtPJtC0cOzciXjaA0+gzm6duc7UwqDp4K0SmZ5Q5i3RP6KrhVMiRW/NLT2h +BKpzXLdp4cj01l9BDz2gaOGHnI2nFq7u7zP3LtkNefuDtXTOayHjXvmiW44b +kf87CxyytPDI4ArL6Cg3WDusRwrP1kJnKUZRnbMb5FgITVdd1sJ9FfVLeWvd +4IJq2T21Mi2c/HxMdPySK6R/mNCXfqSFo6oyp4+VukCSo48l95wWurt9GloY +coJC22F3v3kt5DKOfl/U4ASN5o4hbUtayBnrfzn8shNMG2w/f4ZLG2nHDesi +vZzAXUXjlThJG1uyDj6Q/G8XMH5PeytraKNM/AnnYp5d8C7nZLSplzamG38f +XLVjJyxkLJ256auNVol7Dr/S2QkSqRGXBQK1cVY6+cEDqZ1gHufP6gzRxrTp +V1d7JxygJsiCb9dRbYzs5a6NjHOA01vEMvyztVEk5biNWb096AxfK03q1MZ/ +Hn0Du4zsgKQVOH/rpTZuWJiT3kC1gy/HtbYP9moj6wPljdpqOyhSahhTe62N +fXXNvs5fd4DEvj659k/E87MSzM68HbB4lNuSj4OG/6jgODtjC0NCG9lma2m4 +s/CDzPnz1vBkQ+7n4XU0NBDNFesLtoaa3X9Ew6RpKFfpnYJm1pB+q8UjV46G +lh/9nC8sW4GZg+2fyfU0zGKRuCihVlCbF7jpDIOGpkub5IedLSFHPb+y05KG +LeFpyrbbzWF2ZtuNeGsa0r5bB3com4Nt0/QlXVsaPpv3q4jgMgc+B4uzN+xp +mNpe6mzaZAaRRxf2HnOh4VUvGo5uMgP7F05qmgE0/FT1tOMDYzusjJS4fvYk +DZ1/qCc1bjOFQGDlGZ+iodIrVjiqm8IjgeCM+QQaztzUaJ4UMoXoK4/ifFOI ++i4a95R3b4XJtvA9+uk0dHqYvGPSYys8Wdct8+UyDSuqhW6uP2ECx1mpOZZ1 +NNzLcD90ZtgIpt6yshbqaahx/P2zD4+MYNfSTPrNRhq2x8m6OZUbAXWjawo3 +i4aV9VdLC6KNYLBcJbrhCQ2NAl4oXFtnBIzsZjeNPhqKcPuYmu9B+LT/p6zQ +dxpGZ9llJ3IZgt0ZZam6HzQcVDHsiB00gMYSp9UB0zTUrJBVrawygMyPD0Uf +zdHwiFPzznI3A0CX0xwxf4j6TcTbVGr1IW+r0uiUAB21fo2cHYvWA2spxxvt +ynSkipkID6/XhZwxLZabCh2DaF0rU3h0YayS/80XVTreB43HHh83w1FsJIlq +0PHYGbPK+GubocJP6agDnY6/g3tiq+Q2g+Dtn/bDBnTUl/vb5aW0Cdq2pnF8 +20XHvbTgVxLbdUBMJFDquDMdBVp/mSZQdMDjldFGkisd+ZWDlNaK6MCvoLl9 +jN105I6Es2X9G0DlnPurQz50HL1T++SA/wY4NUSpWj5AR+PnbmNeaUwwCmlz +I6fQ8fj3m5eHf9FhcXByW+tpOk629lF8hulQY7KScfgs8T7X2TfCLXRQWWvH +//YcHf9qGf7uSqXDytbXNSUX6Via8t/mJRU6DK79JoxFdLT+0dzY70mD0McS +rJBmOm7oKPrd36cJFNqmcgU2HS/9+NNlWqIJH/NcLva10PG2VeXBmRhN2BV6 +JXjLEzqmnnX7yqesCfpSamv5OunoYHxXi+8wFfjD9MIvv6ajm3ZYgJKaBhRI +eyt3zBHrK33C6q9Rgy1MDS3v33Qs/7LuzufzatBnPrtpfp6Oi/cj09UPqAH/ +4URL5T90THJqhw0UNQjtLgs/ysXAsybJ/gGFqoCJMyyqKAP3HGhoWpWvAqPf +T+1OVWPgiw+1iesrlOEon02AEoWBKz0l286lKYOkzOqwOg0Gnnn8KFYhTBks +LEpPjWsxcK55d2b9RmW4W9RZbqDDQB5p1TVNj5Qg3kVy8asRA+UCIeTDmCIo +P7p50caNgX1FKrmuxgrQRZ0vGnZnYEf/vzuv1BUg6qJZ9V4PBkL+fatIsgI8 +D5p8kejFQJOvKUHkD/IQTtIQaA5gYNyt5F9P4+SheXdVjHYEA0WPrdRWzZAD +1/maPaRUBvYufDyrOCwNPN68B66kMZC1uF2u7K40VD13PEZNZ2DeZ2ZoUIo0 +cBb8yjXLZOA/5UndtE3SUGK6ufdELgMnBANmAi9KwVxGg+nPGwzcMuiuoeax +DtI1Wyg9TQwcP/RYh09iDZRsdhM4yWKgvqjzeZFvq6HZZHaC3sLA2yUyfLZP +V8M3F5Ub5x8zsGtPvMDhY6vBMvG0nF0HAyOQh+Y2JQl87+0lXg4xcEGw+iuj +axXEpH/82znLQA+JzI2URnHIyD86fOwXAy/e9XUvuSQOZcWrGjTnGfh4/bE6 +x2PiMNi4PSp1iYGZkq/FDUAcNk6WT1txMVF9RyZz02Mx+GEUMfFclIlqB89H +Xxsig/8MT/czChOn5netv6ZIAo+yrV3uVCamfQpPthAkwS6vU8+/azKR5rLl +PXVMFLa94H6yis7E25k26pRToqBSztXgtYmJkwleV+zaRGDcm+PGggkT4/Ri +W/lchcG3ZylKfTcTFwNGpe5VCYJ7it6hRg8mmi7UjHIkCsJOjDlou4eJB2Xn +5ZN2C8LWqsX9kT5MfKnX+9xIWBCUTy94s4OYGN9aFhBwQAA+Gv22cjnERBvh +XzvohvzgfWdaPuUcE32OdHg0c/NB8EmHPxbnmSgyNTEx9JYXIh1qXq3MZKJx +5ewsvZYXkuci09IvMlFuFUM1dz8vVOkuLGVfZiJdIvKd7hseWGAvDxSXM7G7 +gPNpJJsb0ntWpra2MbGyj7U++gEn5F3fH5j4jIkBBeW2eTmccD2iy8TsORPz +no6Zfz3CCfcl0xefdzGx09HiMMWAE4ZdxQN7+5mYULRm28JjDlD9uNZk9CMT +LQNctK3Zy4a0mmjZonEmXvK5qH01ZdlwS8KbBb8JJn68uSXc1n7Z0Er18u3J +KSbuHeyLZ439MwzfJy/78ydxno0+gW+F/xke1Y9buDvDxLuptnzcQ38NE4RH ++yLmmMhItE04UfTXMOfW9TPz80z8cryQJ07/r2HhCZ6A+kUmrhz6PMcl8New +3M7P+OgfJipLqJW97v9jWKP4RMbwHxOtEx/mr7j+x7BpRmVheZmJ+/WfmKaE +/jH8HxM6JGk= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.13944043381447724`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 20}, {0., 0.13944043381447724`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9920882155785446`*^9, 3.992095953801792*^9}, + CellLabel-> + "Out[147]=",ExpressionUUID->"f0f8510a-6470-3044-8808-0ee991b89b91"] +}, 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[148]:=",ExpressionUUID->"804e6c9f-1b36-2141-acb9-3b729fb7abb0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.97148714582981`*^-220\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 148, 246, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9, 3.9917093711796627`*^9, + 3.9920882156105976`*^9, 3.992095953916519*^9}, + CellLabel-> + "During evaluation of \ +In[148]:=",ExpressionUUID->"55d161d1-12aa-034d-b4ea-a77bbce98bf0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.921454490510376`*^-225\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 148, 247, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9, 3.9917093711796627`*^9, + 3.9920882156105976`*^9, 3.992095953945528*^9}, + CellLabel-> + "During evaluation of \ +In[148]:=",ExpressionUUID->"97756aa7-c1c7-114f-93a9-a9512cb146c2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.6314913284830476`*^-231\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 148, 248, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9, 3.9917093711796627`*^9, + 3.9920882156105976`*^9, 3.992095953962488*^9}, + CellLabel-> + "During evaluation of \ +In[148]:=",ExpressionUUID->"2c132bc4-3890-cd47-bfeb-5e1de5bd13c8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 148, 249, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9, 3.9917093711796627`*^9, + 3.9920882156105976`*^9, 3.992095953981512*^9}, + CellLabel-> + "During evaluation of \ +In[148]:=",ExpressionUUID->"7d7e446f-7989-cb45-8334-f93cbe9d5025"], + +Cell[BoxData["22.639491242839892`"], "Output", + CellChangeTimes->{3.9913279159698696`*^9, 3.9917093778765774`*^9, + 3.9920882415644855`*^9, 3.99209601683687*^9}, + CellLabel-> + "Out[148]=",ExpressionUUID->"ab6f7f89-9dfe-dc42-b50e-08c295130e9f"] +}, 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.9917971275265427`*^9, 3.991797131794855*^9}}, + CellLabel-> + "In[149]:=",ExpressionUUID->"9b45c184-4df7-db4d-adb2-01f19f0f15b0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.69232866960825`*^-251\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 149, 250, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327916008396*^9, 3.991709377917576*^9, + 3.992088241595501*^9, 3.9920960169208736`*^9}, + CellLabel-> + "During evaluation of \ +In[149]:=",ExpressionUUID->"12343424-c269-9048-8d13-dd655c8eea75"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.403450930335177`*^-260\\\", \ +\\\"67615075532642592962076366156210530912566907412833894400000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 149, 251, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327916008396*^9, 3.991709377917576*^9, + 3.992088241595501*^9, 3.992096016949871*^9}, + CellLabel-> + "During evaluation of \ +In[149]:=",ExpressionUUID->"b5fccfa1-a08f-cb42-83ee-641a7ff4ae71"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2387967338855546`*^-268\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 149, 252, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327916008396*^9, 3.991709377917576*^9, + 3.992088241595501*^9, 3.9920960169748383`*^9}, + CellLabel-> + "During evaluation of \ +In[149]:=",ExpressionUUID->"81c5f1ee-d76f-854e-a7f5-3f46c7374ba3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 149, 253, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327916008396*^9, 3.991709377917576*^9, + 3.992088241595501*^9, 3.9920960169948254`*^9}, + CellLabel-> + "During evaluation of \ +In[149]:=",ExpressionUUID->"83ce3613-9f03-8b4a-9532-4ff7b967a63e"], + +Cell[BoxData["0.0030700892719918165`"], "Output", + CellChangeTimes->{3.991327922931429*^9, 3.99170938241395*^9, + 3.992088245187561*^9, 3.9920960258598213`*^9}, + CellLabel-> + "Out[149]=",ExpressionUUID->"6ec5dbe3-f6e7-8c4a-9c0d-cb43308fac64"] +}, 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.9917971357813015`*^9, 3.991797138809105*^9}}, + CellLabel-> + "In[150]:=",ExpressionUUID->"00ca455f-f3f6-2c4f-8927-9e8c2d28dafd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.69232866960825`*^-251\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 150, 254, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279229664307`*^9, 3.9917093824549503`*^9, + 3.992088245219576*^9, 3.9920960259577084`*^9}, + CellLabel-> + "During evaluation of \ +In[150]:=",ExpressionUUID->"9561cb48-6125-be4d-9e56-92082bf85aa7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.403450930335177`*^-260\\\", \ +\\\"67615075532642592962076366156210530912566907412833894400000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 150, 255, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279229664307`*^9, 3.9917093824549503`*^9, + 3.992088245219576*^9, 3.992096025992668*^9}, + CellLabel-> + "During evaluation of \ +In[150]:=",ExpressionUUID->"f0ed2788-633b-9b4e-bc6f-e4c694432b1f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2387967338855546`*^-268\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 150, 256, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279229664307`*^9, 3.9917093824549503`*^9, + 3.992088245219576*^9, 3.9920960260167084`*^9}, + CellLabel-> + "During evaluation of \ +In[150]:=",ExpressionUUID->"d7a166a2-52ca-6b4b-9aba-bee1de03c1a1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 150, 257, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279229664307`*^9, 3.9917093824549503`*^9, + 3.992088245219576*^9, 3.992096026037716*^9}, + CellLabel-> + "During evaluation of \ +In[150]:=",ExpressionUUID->"39e725f9-aa49-f74a-ba8a-429980004912"], + +Cell[BoxData["8.12066089047551`"], "Output", + CellChangeTimes->{3.9920882479408455`*^9, 3.992096034356451*^9}, + CellLabel-> + "Out[150]=",ExpressionUUID->"5439bb3b-e8a6-6d4a-b85b-7f43852619c5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"8.211884331115483`", " "}]], "Input", + CellChangeTimes->{{3.9917094784975224`*^9, 3.991709478503729*^9}}, + CellLabel-> + "In[151]:=",ExpressionUUID->"8cac9b30-e121-024d-91d3-cf92fd4a988a"], + +Cell[BoxData["8.211884331115483`"], "Output", + CellChangeTimes->{3.992088247967409*^9, 3.9920960344640045`*^9}, + CellLabel-> + "Out[151]=",ExpressionUUID->"015f049d-e66a-3c4e-9e41-d9d5f705331a"] +}, 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.9917971437506504`*^9, 3.991797147210884*^9}}, + CellLabel-> + "In[152]:=",ExpressionUUID->"b454660a-890c-f24b-923b-563bff174231"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.69232866960825`*^-251\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 152, 258, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928854006*^9, 3.99170938660993*^9, + 3.992088247996401*^9, 3.992096034503969*^9}, + CellLabel-> + "During evaluation of \ +In[152]:=",ExpressionUUID->"51589503-1b7b-7b46-9ed1-654b3d3d94bd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.403450930335177`*^-260\\\", \ +\\\"67615075532642592962076366156210530912566907412833894400000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 152, 259, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928854006*^9, 3.99170938660993*^9, + 3.992088247996401*^9, 3.9920960345430183`*^9}, + CellLabel-> + "During evaluation of \ +In[152]:=",ExpressionUUID->"a84ca43d-73c0-cd47-a35e-c64bf52eb0e3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2387967338855546`*^-268\\\", \ +\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 152, 260, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928854006*^9, 3.99170938660993*^9, + 3.992088247996401*^9, 3.9920960345680065`*^9}, + CellLabel-> + "During evaluation of \ +In[152]:=",ExpressionUUID->"5900028f-c4bd-7f4b-84a6-feb752262ead"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 152, 261, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928854006*^9, 3.99170938660993*^9, + 3.992088247996401*^9, 3.992096034584921*^9}, + CellLabel-> + "During evaluation of \ +In[152]:=",ExpressionUUID->"d0d45a8e-b93b-fc4d-882d-2aa6d8215b27"], + +Cell[BoxData["132.59096831544795`"], "Output", + CellChangeTimes->{3.9913279320131683`*^9, 3.9917093893412666`*^9, + 3.992088249588396*^9, 3.9920960398108215`*^9}, + CellLabel-> + "Out[152]=",ExpressionUUID->"dd5c3f0a-fa8b-9a46-8b76-fcbb457e5272"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9917971542239857`*^9, 3.9917971576817684`*^9}}, + CellLabel-> + "In[153]:=",ExpressionUUID->"673f44c9-71c5-b64a-9ddb-ff434e6a2570"], + +Cell[BoxData["0.00009356175192925738`"], "Output", + CellChangeTimes->{3.9913279320452003`*^9, 3.9917093893762684`*^9, + 3.9920882496154118`*^9, 3.9920960398707848`*^9}, + CellLabel-> + "Out[153]=",ExpressionUUID->"0dbd93a3-e48f-424a-a43d-1df1388a0395"] +}, Open ]] +}, +WindowSize->{718.5, 735}, +WindowMargins->{{-5.25, Automatic}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>1. Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"3e00b719-7d57-4247-80f9-54af9e03f9d1" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 402, 7, 28, "Input",ExpressionUUID->"05f0731c-d41f-bc4e-b3a5-fe37ee9edd84"], +Cell[981, 31, 200, 3, 32, "Output",ExpressionUUID->"1f2f37e1-51c2-aa49-ab29-c0b6caf9a546"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1218, 39, 348, 5, 28, "Input",ExpressionUUID->"12aae3bb-3c18-fc49-a0b1-b91fdc1bbe34"], +Cell[1569, 46, 429, 6, 32, "Output",ExpressionUUID->"0d226516-7f6f-0d42-8224-96106a402797"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2035, 57, 224, 4, 28, "Input",ExpressionUUID->"93a900cf-d755-b944-921b-a609f0a955d2"], +Cell[2262, 63, 421, 6, 32, "Output",ExpressionUUID->"074cb25d-ca6d-da48-a3fb-273dd265f29f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2720, 74, 175, 3, 28, "Input",ExpressionUUID->"ad2e1847-77bb-2547-a825-69fabcda8ddf"], +Cell[2898, 79, 398, 6, 32, "Output",ExpressionUUID->"8d48d129-5a72-0143-a341-cc4bf8b26681"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3333, 90, 257, 7, 43, "Input",ExpressionUUID->"4cc840b0-88d4-374e-a12e-54b8464f3172"], +Cell[3593, 99, 419, 6, 32, "Output",ExpressionUUID->"b0db3da0-a949-ab4c-be0b-7052ee9c4be1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4049, 110, 131, 2, 28, "Input",ExpressionUUID->"7e4318c8-0990-ce41-a87a-43c5428155f4"], +Cell[4183, 114, 405, 6, 32, "Output",ExpressionUUID->"f7c34acf-b2b8-7247-b530-1a9cd747565a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4625, 125, 276, 6, 28, "Input",ExpressionUUID->"c991c4ea-4c61-ff4f-8dd1-a921864ebed7"], +Cell[4904, 133, 417, 6, 32, "Output",ExpressionUUID->"f6e39c89-ab95-bb4d-88d3-e96aa6fee407"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5358, 144, 257, 7, 28, "Input",ExpressionUUID->"c0ebd7fd-cfec-df46-a449-f750a93384d0"], +Cell[5618, 153, 417, 6, 32, "Output",ExpressionUUID->"82ed812d-f01a-b746-afb8-7d9ff80a17a1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6072, 164, 266, 5, 28, "Input",ExpressionUUID->"4df260b6-0d11-1441-9e2e-22f951821193"], +Cell[6341, 171, 434, 6, 32, "Output",ExpressionUUID->"573e6b29-47b4-d04d-bf7c-a3f2ab63a3e9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6812, 182, 265, 5, 28, "Input",ExpressionUUID->"2d27be30-fef3-4449-b748-886004fbb723"], +Cell[7080, 189, 437, 6, 32, "Output",ExpressionUUID->"1f5248fe-f5ee-f94a-9cb2-30a73060f695"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7554, 200, 129, 2, 28, "Input",ExpressionUUID->"58f05ac2-9a5b-b743-b028-7f6094b06d91"], +Cell[7686, 204, 394, 6, 32, "Output",ExpressionUUID->"7c1e72ed-9d9b-5143-a8a7-5a624b06b6ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8117, 215, 129, 2, 28, "Input",ExpressionUUID->"b018faa3-5a51-4f49-9b0d-7936087c5070"], +Cell[8249, 219, 394, 6, 32, "Output",ExpressionUUID->"102d3e37-23fa-3a4e-b821-07729749ff5a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8680, 230, 557, 19, 79, "Input",ExpressionUUID->"44764fb1-9da1-4d4e-a570-89126d15f894"], +Cell[9240, 251, 394, 6, 32, "Output",ExpressionUUID->"90fdc215-b4fd-ac45-a6cc-34220152dc28"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9671, 262, 557, 19, 79, "Input",ExpressionUUID->"3281618b-d4a7-c942-98be-b78c0b986321"], +Cell[10231, 283, 390, 6, 32, "Output",ExpressionUUID->"07d50c48-a449-a348-b422-86d4648310e2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[10658, 294, 1492, 48, 80, "Input",ExpressionUUID->"fed40061-6b4e-1748-b42c-03e683b18808"], +Cell[12153, 344, 398, 6, 32, "Output",ExpressionUUID->"5f4faa23-6cfc-b54b-ab03-6a64a24b2bbd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[12588, 355, 1331, 44, 80, "Input",ExpressionUUID->"f615b39c-9820-5147-95ce-618baa4e4991"], +Cell[13922, 401, 407, 7, 32, "Output",ExpressionUUID->"dbc78de8-1e08-6849-bc49-7f041bb6452b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14366, 413, 1331, 44, 80, "Input",ExpressionUUID->"7b2f9469-8c15-d349-a2c9-fcf9fcf6e8df"], +Cell[15700, 459, 410, 7, 32, "Output",ExpressionUUID->"4063585e-143e-2b43-a75f-1b776b8fce82"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16147, 471, 1492, 48, 80, "Input",ExpressionUUID->"e673379f-2460-4e49-90d0-35742055e8f6"], +Cell[17642, 521, 391, 6, 32, "Output",ExpressionUUID->"0d442392-bd3d-ff4e-8f68-3ebbc162b4c5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18070, 532, 131, 2, 28, "Input",ExpressionUUID->"f65ba40e-adc9-4340-8c19-3a5692a89c19"], +Cell[18204, 536, 373, 6, 32, "Output",ExpressionUUID->"04d06914-3184-d14d-908b-593b185fe88a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18614, 547, 177, 3, 28, "Input",ExpressionUUID->"da90429f-71c9-fb44-900f-54f9ecb15c0c"], +Cell[18794, 552, 374, 6, 32, "Output",ExpressionUUID->"688cb4fe-767a-4342-8955-062fa63b67db"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19205, 563, 134, 2, 28, "Input",ExpressionUUID->"ba9e3c3f-c755-9949-abdf-5c8716be163d"], +Cell[19342, 567, 376, 6, 32, "Output",ExpressionUUID->"03852b79-94dd-e64e-8ac2-57f88633e47d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19755, 578, 219, 4, 28, "Input",ExpressionUUID->"1df1d99a-14d1-664a-9952-fc0ffe17d214"], +Cell[19977, 584, 393, 7, 32, "Output",ExpressionUUID->"697312b3-4fa6-1a4c-9b6a-c1f0c713fd0b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20407, 596, 134, 2, 28, "Input",ExpressionUUID->"934f8f71-5ebb-8a42-88af-b686f4e3e457"], +Cell[20544, 600, 382, 6, 32, "Output",ExpressionUUID->"64b09692-4bfd-eb41-80fb-6ba22074c6d2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20963, 611, 302, 5, 28, "Input",ExpressionUUID->"6e10280b-ebb3-f646-bb1d-00a00fc0ed1c"], +Cell[21268, 618, 321, 5, 32, "Output",ExpressionUUID->"d3e71f0b-2a72-2748-9419-6a731779dad4"] +}, Open ]], +Cell[21604, 626, 173, 2, 28, "Input",ExpressionUUID->"b89c6b57-db32-1742-8cc6-85b9a16d9dd6"], +Cell[CellGroupData[{ +Cell[21802, 632, 322, 6, 28, "Input",ExpressionUUID->"f0485430-2764-5f40-9255-6cf8c0e180ff"], +Cell[22127, 640, 376, 6, 32, "Output",ExpressionUUID->"c77d4c5d-5d04-5a40-8aca-b57a05dc186b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22540, 651, 219, 4, 28, "Input",ExpressionUUID->"a5017589-44b9-f144-b351-bb9b15123fd4"], +Cell[22762, 657, 380, 6, 32, "Output",ExpressionUUID->"3983ac4f-577f-2a44-bbd6-03ed5fa13dda"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23179, 668, 350, 10, 43, "Input",ExpressionUUID->"7ab41717-55b0-584a-809f-945d0d693a80"], +Cell[23532, 680, 396, 6, 32, "Output",ExpressionUUID->"0426af90-7075-7d44-a5ac-4aaae47b9883"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23965, 691, 350, 10, 43, "Input",ExpressionUUID->"fde3e1f9-4cc1-8049-ba69-a2294a6452b9"], +Cell[24318, 703, 414, 7, 32, "Output",ExpressionUUID->"50389186-e923-c84f-946b-b3b46aa53d98"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24769, 715, 992, 26, 113, "Input",ExpressionUUID->"622e209c-a48d-e442-88d4-31c1022a52c8"], +Cell[25764, 743, 386, 6, 32, "Output",ExpressionUUID->"c7d50fa0-7655-3949-9754-84c4bf6981a5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26187, 754, 199, 3, 28, "Input",ExpressionUUID->"10ba819b-2025-9a47-9ea5-95a5611cda6a"], +Cell[26389, 759, 378, 6, 32, "Output",ExpressionUUID->"8d07dc3f-1bef-9345-bbf5-a82b89663086"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26804, 770, 273, 4, 28, "Input",ExpressionUUID->"8e0c7ad3-3b58-ea40-9983-94e32bbe2818"], +Cell[27080, 776, 337, 5, 32, "Output",ExpressionUUID->"94e6e8fd-09ef-5b49-a93a-aa3f77d4d0de"] +}, Open ]], +Cell[27432, 784, 175, 2, 28, "Input",ExpressionUUID->"eb8d52d1-9df0-c54e-85b2-4b5b928d8058"], +Cell[CellGroupData[{ +Cell[27632, 790, 344, 6, 47, "Input",ExpressionUUID->"59432052-36a9-0e4a-b136-b5ef6e1cf7dc"], +Cell[27979, 798, 326, 5, 32, "Output",ExpressionUUID->"b13c1c89-2d69-5b47-9206-7ba98b7bcfd6"] +}, Open ]], +Cell[28320, 806, 173, 2, 28, "Input",ExpressionUUID->"7620191d-049f-d749-807c-ff7994d2bf64"], +Cell[CellGroupData[{ +Cell[28518, 812, 343, 6, 47, "Input",ExpressionUUID->"2838c52a-e621-824e-8a28-6ddd911b4320"], +Cell[28864, 820, 331, 5, 32, "Output",ExpressionUUID->"2350ab51-f952-f54c-9d58-4dd3680622a7"] +}, Open ]], +Cell[29210, 828, 175, 2, 28, "Input",ExpressionUUID->"42e257a2-6901-9d4f-a831-1954f32e9186"], +Cell[CellGroupData[{ +Cell[29410, 834, 349, 6, 47, "Input",ExpressionUUID->"26236e3a-fdac-eb4e-a22f-56d02cebcf41"], +Cell[29762, 842, 328, 5, 32, "Output",ExpressionUUID->"56eea41f-21fa-4540-b2c4-3417d606fc85"] +}, Open ]], +Cell[30105, 850, 175, 2, 28, "Input",ExpressionUUID->"dd3588b2-9ab9-a34a-afe1-cdd040915619"], +Cell[CellGroupData[{ +Cell[30305, 856, 275, 4, 28, "Input",ExpressionUUID->"02fa1476-84ef-ac4d-a088-22546d6249ff"], +Cell[30583, 862, 330, 5, 32, "Output",ExpressionUUID->"cec57294-4cf1-7d4f-97d1-524ea696524d"] +}, Open ]], +Cell[30928, 870, 173, 2, 28, "Input",ExpressionUUID->"5841a374-f07b-3948-b1fb-c9f1f2e2508c"], +Cell[CellGroupData[{ +Cell[31126, 876, 277, 4, 28, "Input",ExpressionUUID->"2fad32fe-2323-a247-8df8-53787ce8fe84"], +Cell[31406, 882, 333, 5, 32, "Output",ExpressionUUID->"d72a26d7-325b-f84f-b1d3-d09b92650c97"] +}, Open ]], +Cell[31754, 890, 171, 2, 28, "Input",ExpressionUUID->"1b7179f5-adc5-4a42-8f8b-65c9268fc5eb"], +Cell[CellGroupData[{ +Cell[31950, 896, 306, 5, 28, "Input",ExpressionUUID->"00d82cf5-fe39-a24b-bb7b-1d0e115472c2"], +Cell[32259, 903, 326, 5, 32, "Output",ExpressionUUID->"33479ab1-1831-d84f-b5a3-18e49010da28"] +}, Open ]], +Cell[32600, 911, 175, 2, 28, "Input",ExpressionUUID->"dfb148c5-f80e-3f46-b88b-570a723a95bc"], +Cell[CellGroupData[{ +Cell[32800, 917, 251, 4, 28, "Input",ExpressionUUID->"db5cb55e-0710-c147-81f4-1d5b600a6284"], +Cell[33054, 923, 326, 5, 32, "Output",ExpressionUUID->"d095e0e9-867b-0545-8112-e3ecb007e777"] +}, Open ]], +Cell[33395, 931, 171, 2, 28, "Input",ExpressionUUID->"bc012921-2f5f-014d-9378-a2fad1ed7321"], +Cell[CellGroupData[{ +Cell[33591, 937, 19809, 485, 2217, "Input",ExpressionUUID->"c0e79410-fc92-1e45-af3b-c110ed8e3abb"], +Cell[53403, 1424, 391, 6, 32, "Output",ExpressionUUID->"bc32f52b-90bb-1748-9186-3f822f3369ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[53831, 1435, 19748, 489, 2304, "Input",ExpressionUUID->"5dd2eacd-c52a-fd43-adfd-9865b6491968"], +Cell[73582, 1926, 394, 6, 32, "Output",ExpressionUUID->"d51decb7-b850-e94b-a633-eccd08eb4f21"] +}, Open ]], +Cell[CellGroupData[{ +Cell[74013, 1937, 19748, 483, 2276, "Input",ExpressionUUID->"4ed88227-1e87-3c47-8347-5fd8655168bd"], +Cell[93764, 2422, 409, 7, 32, "Output",ExpressionUUID->"5b064c3d-5a75-da42-820e-2d64aa12966c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[94210, 2434, 22534, 553, 2583, "Input",ExpressionUUID->"69c9ca34-ec1f-344d-935e-d99be87c6a30"], +Cell[116747, 2989, 407, 7, 32, "Output",ExpressionUUID->"f97a5b10-7037-e348-b9c2-17043c2def2a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[117191, 3001, 22535, 553, 2583, "Input",ExpressionUUID->"8f86ffe3-4c00-0445-be01-9f9c3bf740a4"], +Cell[139729, 3556, 406, 7, 32, "Output",ExpressionUUID->"4dd43dad-a0f7-0b42-95b8-e0219acd1335"] +}, Open ]], +Cell[CellGroupData[{ +Cell[140172, 3568, 25491, 626, 2890, "Input",ExpressionUUID->"5220f60f-abac-c041-83b6-4ff9b963c510"], +Cell[165666, 4196, 403, 7, 32, "Output",ExpressionUUID->"e3523e85-ff1a-c64b-9621-8b0068e58521"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166106, 4208, 130, 2, 28, "Input",ExpressionUUID->"50a59971-b8b3-904a-9a20-2d0c4a200469"], +Cell[166239, 4212, 372, 6, 32, "Output",ExpressionUUID->"1e6689cb-fde0-a14c-a86b-0589cf6d7588"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166648, 4223, 130, 2, 28, "Input",ExpressionUUID->"99b95585-fb4d-4c4e-a0a1-a7cadcf4974c"], +Cell[166781, 4227, 374, 6, 32, "Output",ExpressionUUID->"91e27dbf-41c9-6945-8df6-00e08f25c9e6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[167192, 4238, 1144, 39, 110, "Input",ExpressionUUID->"15d5ff38-e0ad-194f-988e-5bba229258a0"], +Cell[168339, 4279, 394, 6, 32, "Output",ExpressionUUID->"7673e0c6-02ca-0a45-8f3c-98de3d2dd0a4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[168770, 4290, 1041, 35, 110, "Input",ExpressionUUID->"f50ed71d-f500-b142-b06c-d815a3ba2272"], +Cell[169814, 4327, 409, 7, 32, "Output",ExpressionUUID->"fe14dedb-d5f5-c440-957b-4366a156d6ce"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170260, 4339, 1144, 39, 110, "Input",ExpressionUUID->"1492aaaf-0df6-6745-bf76-b9050e5655e5"], +Cell[171407, 4380, 395, 6, 32, "Output",ExpressionUUID->"f5b936d8-78bf-f441-b6a3-7f6897cde95c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[171839, 4391, 108, 1, 28, "Input",ExpressionUUID->"226872db-ad1d-a848-a1b9-669b9495ae40"], +Cell[171950, 4394, 388, 6, 32, "Output",ExpressionUUID->"e617dd14-34ec-b141-9877-14ead2feb413"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172375, 4405, 108, 1, 28, "Input",ExpressionUUID->"3724e999-16ab-c946-a14b-a24ab296bb76"], +Cell[172486, 4408, 417, 7, 32, "Output",ExpressionUUID->"db643f4e-6585-f34a-834d-f4884e38f627"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172940, 4420, 108, 1, 28, "Input",ExpressionUUID->"7429d55c-fb1b-6c4a-a07c-c882ac4f265b"], +Cell[173051, 4423, 405, 7, 32, "Output",ExpressionUUID->"7afa0c29-f1d4-4848-96d5-afa83fd7e517"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173493, 4435, 108, 1, 28, "Input",ExpressionUUID->"53189e64-dda1-f24f-bb2a-e33cc334a386"], +Cell[173604, 4438, 393, 6, 32, "Output",ExpressionUUID->"3a64b02c-f608-7f4f-8c13-0477ab6534f6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174034, 4449, 107, 1, 28, "Input",ExpressionUUID->"2dcc97af-d52c-a140-9d24-7e2362d14431"], +Cell[174144, 4452, 391, 6, 32, "Output",ExpressionUUID->"1082e557-f74c-7943-b608-194fcfb39dc3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174572, 4463, 107, 1, 28, "Input",ExpressionUUID->"047bb9cd-1320-254a-81b6-dbbd5bc6927e"], +Cell[174682, 4466, 393, 6, 32, "Output",ExpressionUUID->"5b163a5c-0abd-874f-9fcd-d6e6189f2fee"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175112, 4477, 497, 16, 56, "Input",ExpressionUUID->"5f91a530-4680-9547-ba69-eda72b5cd542"], +Cell[175612, 4495, 407, 7, 32, "Output",ExpressionUUID->"514d73e5-dfac-614b-bc7f-1fb2465b1b8b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176056, 4507, 497, 16, 56, "Input",ExpressionUUID->"79bd53a9-815b-6b44-a1c8-9e184a9e2d7f"], +Cell[176556, 4525, 403, 7, 32, "Output",ExpressionUUID->"9fe787f2-9fa5-c149-b9cd-67edb07274a7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176996, 4537, 1788, 60, 188, "Input",ExpressionUUID->"4d60ea42-135b-0945-9bc8-ff7080f68cbd"], +Cell[178787, 4599, 391, 6, 32, "Output",ExpressionUUID->"21fa67d5-9135-be44-9236-479701c3eb82"] +}, Open ]], +Cell[CellGroupData[{ +Cell[179215, 4610, 1101, 36, 133, "Input",ExpressionUUID->"86e3af8c-1e9e-fe48-be10-5811d3ed2f2c"], +Cell[180319, 4648, 408, 7, 32, "Output",ExpressionUUID->"3bbd01b2-c00d-e74c-ae88-fc6e61a80a2e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[180764, 4660, 1818, 61, 165, "Input",ExpressionUUID->"5e5f8981-ef44-174f-9ab1-8170c09512bd"], +Cell[182585, 4723, 390, 6, 32, "Output",ExpressionUUID->"150268e6-aef4-de48-90ec-24cd40bccdfa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183012, 4734, 2499, 77, 133, "Input",ExpressionUUID->"92a8600d-0ef6-b048-81ca-4cef74274975"], +Cell[185514, 4813, 390, 6, 32, "Output",ExpressionUUID->"ac97ed9a-a816-db4d-a59a-9dbb5fc182c3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185941, 4824, 2499, 77, 133, "Input",ExpressionUUID->"7e943660-5e34-9e41-8f70-f1ec78ba3955"], +Cell[188443, 4903, 388, 6, 32, "Output",ExpressionUUID->"8174809b-c48f-7843-9e4e-0df6caf60a77"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188868, 4914, 234, 4, 28, "Input",ExpressionUUID->"3ae683e0-3adf-504a-90dd-615dd0a61fd8"], +Cell[189105, 4920, 343, 5, 32, "Output",ExpressionUUID->"575bccc9-5040-2240-88c9-e6b124d5f0e9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189485, 4930, 265, 4, 28, "Input",ExpressionUUID->"4fc0783d-23dd-314f-a326-64b7548d9620"], +Cell[189753, 4936, 347, 5, 32, "Output",ExpressionUUID->"0fa3666a-cfa7-3047-86b7-82a3bd007080"] +}, Open ]], +Cell[CellGroupData[{ +Cell[190137, 4946, 1297, 42, 113, "Input",ExpressionUUID->"dbbed097-5dfd-0340-bc2d-0bce9785fa70"], +Cell[191437, 4990, 395, 6, 32, "Output",ExpressionUUID->"60caf887-115a-ee4d-8104-7740331b3a98"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191869, 5001, 834, 27, 56, "Input",ExpressionUUID->"b04428b7-7b5e-9b48-87ae-3e90ee72682c"], +Cell[192706, 5030, 398, 6, 32, "Output",ExpressionUUID->"c0a33838-a30d-2849-947e-04e7918c1035"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193141, 5041, 889, 30, 56, "Input",ExpressionUUID->"46474706-75cc-0e49-8a10-fd571fd984c5"], +Cell[194033, 5073, 399, 6, 32, "Output",ExpressionUUID->"bb64f621-728f-fb46-9a5d-15177462bdbb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194469, 5084, 554, 18, 52, "Input",ExpressionUUID->"5ab6ac7c-83ae-6940-b5e3-8f463231aa41"], +Cell[195026, 5104, 408, 6, 32, "Output",ExpressionUUID->"61a5d6a8-42ea-0044-8638-fd9ef4da45f3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195471, 5115, 661, 21, 52, "Input",ExpressionUUID->"ad27a0b7-bc3a-1b4e-aa65-7473f98c4a9a"], +Cell[196135, 5138, 393, 6, 32, "Output",ExpressionUUID->"f2c71c2c-b3a9-7048-a6ad-cc13c98c9926"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196565, 5149, 166, 4, 56, "Input",ExpressionUUID->"ed86276b-f471-6f4e-8c1f-259c300ae2e3"], +Cell[196734, 5155, 419, 6, 32, "Output",ExpressionUUID->"349a9538-20d5-9343-bf63-4b00833da39a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197190, 5166, 232, 5, 55, "Input",ExpressionUUID->"b778afd8-0c57-064d-a11e-d7318164b910"], +Cell[197425, 5173, 367, 5, 32, "Output",ExpressionUUID->"14ac3d20-89fe-e749-945d-6e1b76de23f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197829, 5183, 219, 5, 43, "Input",ExpressionUUID->"6e57b6df-ce1a-784f-8068-542326a39aac"], +Cell[198051, 5190, 395, 6, 32, "Output",ExpressionUUID->"b2994db0-f60e-1e4b-90b8-da26ca3956ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198483, 5201, 177, 4, 43, "Input",ExpressionUUID->"eb50975c-b4ec-eb46-b7be-45bdd474b7dd"], +Cell[198663, 5207, 413, 6, 32, "Output",ExpressionUUID->"bceecd21-34c7-e240-b93f-e3fd1376a2ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[199113, 5218, 6051, 184, 498, "Input",ExpressionUUID->"18e7b19c-7ef6-ac40-b366-c555cd77dfe4"], +Cell[205167, 5404, 393, 6, 32, "Output",ExpressionUUID->"fd2104fc-9239-9c43-a8fb-1a68b0221900"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205597, 5415, 364, 8, 42, "Input",ExpressionUUID->"362c980c-4dd4-a246-98d7-f0637b84f583"], +Cell[205964, 5425, 362, 5, 32, "Output",ExpressionUUID->"d25f9328-a161-e649-ab59-e0352fbf631b"] +}, Open ]], +Cell[206341, 5433, 488, 9, 42, "Input",ExpressionUUID->"4b46d0c0-ae96-6346-8059-3d7eedda7d5a"], +Cell[CellGroupData[{ +Cell[206854, 5446, 554, 18, 52, "Input",ExpressionUUID->"8968449c-8b0e-4c43-b89b-9661a6b4b7b4"], +Cell[207411, 5466, 235, 3, 32, "Output",ExpressionUUID->"1f56ad2a-ebe2-ed43-aed8-707b53ebdbab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[207683, 5474, 619, 20, 52, "Input",ExpressionUUID->"4070e408-f242-2749-a9a3-2554c0750a47"], +Cell[208305, 5496, 241, 3, 32, "Output",ExpressionUUID->"3fbd8164-f6b3-a245-8a5a-68a826eee5fe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208583, 5504, 166, 4, 56, "Input",ExpressionUUID->"ea836fa5-3993-364c-859c-f1e1426f90c2"], +Cell[208752, 5510, 242, 3, 32, "Output",ExpressionUUID->"99325b7e-8d08-524c-96ba-11147cf7b380"] +}, Open ]], +Cell[CellGroupData[{ +Cell[209031, 5518, 166, 4, 55, "Input",ExpressionUUID->"c1eb9e5a-df42-e143-87eb-a7c14cd6489c"], +Cell[209200, 5524, 240, 3, 32, "Output",ExpressionUUID->"c6bf2375-16bc-2144-af0c-73a6055b684c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[209477, 5532, 177, 4, 43, "Input",ExpressionUUID->"fc11a4dc-800e-1040-b016-a172a6dca5d1"], +Cell[209657, 5538, 241, 3, 32, "Output",ExpressionUUID->"087bd074-167b-ce41-b0e3-e0884fa5caaf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[209935, 5546, 177, 4, 43, "Input",ExpressionUUID->"f158f63a-620a-8b45-93fe-de96c59131c3"], +Cell[210115, 5552, 239, 3, 32, "Output",ExpressionUUID->"26f14ab4-2ecc-b34c-a504-fde1491ef3a6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210391, 5560, 6051, 184, 498, "Input",ExpressionUUID->"290356b5-801a-1742-8269-ff0ab0e7a72f"], +Cell[216445, 5746, 241, 3, 32, "Output",ExpressionUUID->"d00c7d73-f327-f24e-a529-7601ff4ddf5e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[216723, 5754, 364, 8, 42, "Input",ExpressionUUID->"637830a9-4b17-0d47-8e69-3e6d73475803"], +Cell[217090, 5764, 238, 3, 32, "Output",ExpressionUUID->"df5e744b-4c6e-314b-952f-51a04746b3ea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[217365, 5772, 6118, 186, 500, "Input",ExpressionUUID->"245e55e0-c025-d748-aa5b-d3f5a26f897a"], +Cell[223486, 5960, 244, 3, 32, "Output",ExpressionUUID->"727f20d0-cbcf-b64b-88ad-713d668bd8e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[223767, 5968, 364, 8, 42, "Input",ExpressionUUID->"87d3f053-a210-4945-9497-51f3b35fe58a"], +Cell[224134, 5978, 242, 3, 32, "Output",ExpressionUUID->"5def92cd-3187-424d-a872-4204ea48a66d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[224413, 5986, 2659, 87, 187, "Input",ExpressionUUID->"407f3978-d419-be4a-9b05-517d07c044f1"], +Cell[227075, 6075, 242, 3, 32, "Output",ExpressionUUID->"9d56b156-3341-2b47-9af0-b3a81d37da45"] +}, Open ]], +Cell[CellGroupData[{ +Cell[227354, 6083, 2599, 84, 165, "Input",ExpressionUUID->"98c81204-47e0-fd47-9c8b-67e8ab12c7de"], +Cell[229956, 6169, 245, 3, 32, "Output",ExpressionUUID->"c36d45c7-4dbd-3d4d-9c97-8f343d81e6b6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[230238, 6177, 3708, 117, 348, "Input",ExpressionUUID->"f8815c5a-68ac-6143-b710-ab82cbe388c2"], +Cell[233949, 6296, 241, 3, 32, "Output",ExpressionUUID->"f5483177-7bc5-1e46-ab07-910bca3edd92"] +}, Open ]], +Cell[234205, 6302, 276, 5, 42, "Input",ExpressionUUID->"c3247e8e-1dc6-bd47-b085-4abc2b2cf1d2"], +Cell[CellGroupData[{ +Cell[234506, 6311, 2075, 59, 228, "Input",ExpressionUUID->"9522bfa2-96cd-564e-b4a1-30bc1fcf4125"], +Cell[236584, 6372, 614, 12, 60, "Message",ExpressionUUID->"d6cdbe65-8d25-6548-b0fd-25c330196b30"], +Cell[237201, 6386, 617, 12, 84, "Message",ExpressionUUID->"973a7dc9-2a55-974e-a8ef-ad96123bc066"], +Cell[237821, 6400, 624, 13, 84, "Message",ExpressionUUID->"4692edbb-9e20-544a-82a3-c807336945df"], +Cell[238448, 6415, 528, 11, 26, "Message",ExpressionUUID->"8790a6fd-6ed5-884e-8a56-d5e095abda7c"], +Cell[238979, 6428, 245, 4, 32, "Output",ExpressionUUID->"2a87223c-bd46-8e46-8e15-1778bf52e6fb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[239261, 6437, 2075, 59, 228, "Input",ExpressionUUID->"61b1cdf2-7f57-2647-9828-9108456d2e21"], +Cell[241339, 6498, 615, 12, 60, "Message",ExpressionUUID->"a1db36eb-e945-424c-88aa-e17dee223e87"], +Cell[241957, 6512, 618, 12, 84, "Message",ExpressionUUID->"971475ec-bf28-134c-94b3-2bc79bca6a5d"], +Cell[242578, 6526, 623, 13, 84, "Message",ExpressionUUID->"96728789-d869-1f42-8203-cf326fe65248"], +Cell[243204, 6541, 531, 11, 26, "Message",ExpressionUUID->"33526f03-2ae8-b646-9bfc-6e2c19be22ce"], +Cell[243738, 6554, 242, 4, 32, "Output",ExpressionUUID->"fc902aac-b437-9346-9d50-5ec1334da407"] +}, Open ]], +Cell[CellGroupData[{ +Cell[244017, 6563, 1961, 53, 115, "Input",ExpressionUUID->"0ab9b507-fb4e-e24c-9d9d-abe222e3c5e2"], +Cell[245981, 6618, 20045, 376, 237, "Output",ExpressionUUID->"adb49142-9e13-5c44-86ed-a0f8a1f5fddf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[266063, 6999, 2139, 60, 211, "Input",ExpressionUUID->"859f11c8-3e2a-dc42-8ed3-71283b73bfa7"], +Cell[268205, 7061, 566, 12, 60, "Message",ExpressionUUID->"9613d1d6-ec2d-8b4e-84ce-d80d2f4bf81c"], +Cell[268774, 7075, 569, 12, 60, "Message",ExpressionUUID->"18226e25-871e-8344-b233-03d870d34080"], +Cell[269346, 7089, 571, 12, 60, "Message",ExpressionUUID->"d8671db1-887f-a448-8553-bb2f17f70e0c"], +Cell[269920, 7103, 527, 11, 26, "Message",ExpressionUUID->"d36497ab-6403-6d4b-b7c8-db9111eff71a"], +Cell[270450, 7116, 22132, 410, 233, "Output",ExpressionUUID->"9cce9ccc-63ba-7f49-85cd-6b18572cfa7d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[292619, 7531, 1890, 51, 120, "Input",ExpressionUUID->"60c27e2c-7c95-1e4a-ab78-642e76a08b0b"], +Cell[294512, 7584, 9024, 211, 240, "Output",ExpressionUUID->"5b9ba159-9875-924d-a362-62402dccc85c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[303573, 7800, 280, 6, 42, "Input",ExpressionUUID->"7b17964f-3903-af4c-a72d-552615ef4a37"], +Cell[303856, 7808, 28118, 534, 233, "Output",ExpressionUUID->"bcdf045b-0488-b741-b71d-bf8650035540"] +}, Open ]], +Cell[CellGroupData[{ +Cell[332011, 8347, 324, 10, 43, "Input",ExpressionUUID->"982133ce-0d36-4d45-a387-ff35350b5cb9"], +Cell[332338, 8359, 243, 4, 32, "Output",ExpressionUUID->"547eade0-de49-9f40-ba2f-67866f7de0f2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[332618, 8368, 1837, 53, 183, "Input",ExpressionUUID->"90b7f5f1-808a-1b4d-aa45-edfd6d6a25f8"], +Cell[334458, 8423, 540, 12, 60, "Message",ExpressionUUID->"b98a9dbc-c8b3-b746-8477-e4134f91c4ce"], +Cell[335001, 8437, 546, 12, 60, "Message",ExpressionUUID->"630f9697-d264-064a-a1ec-a13f7ad7c6c1"], +Cell[335550, 8451, 548, 12, 60, "Message",ExpressionUUID->"b60774b2-bbba-4045-a22f-27d1acee818a"], +Cell[336101, 8465, 507, 11, 26, "Message",ExpressionUUID->"16a4b044-59e5-aa4e-b8c8-7aeab06c5c31"], +Cell[336611, 8478, 22413, 413, 233, "Output",ExpressionUUID->"7380f4fc-b088-7344-943b-94a7f40c1b2b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[359061, 8896, 1616, 48, 113, "Input",ExpressionUUID->"eea9d904-4069-4649-bea7-08e03245dd6c"], +Cell[360680, 8946, 600, 12, 60, "Message",ExpressionUUID->"5d58617b-00b9-8847-bb2b-79a5097c6a03"], +Cell[361283, 8960, 605, 12, 60, "Message",ExpressionUUID->"d5e0363e-d496-d342-a1d6-e5721e7b6007"], +Cell[361891, 8974, 607, 12, 60, "Message",ExpressionUUID->"5e792f81-b248-d94e-9d4f-2cf0626a8786"], +Cell[362501, 8988, 526, 11, 26, "Message",ExpressionUUID->"82b2f5ac-bbd6-774a-812c-4c28011fb573"], +Cell[363030, 9001, 244, 4, 32, "Output",ExpressionUUID->"8f3a429f-4c4a-4247-854c-f1967364c2cc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[363311, 9010, 2300, 65, 223, "Input",ExpressionUUID->"3915107a-86d9-0f46-b139-986db5ca6b3b"], +Cell[365614, 9077, 613, 12, 60, "Message",ExpressionUUID->"adf45258-d8bd-0d45-9727-1df8d0b6a4d7"], +Cell[366230, 9091, 614, 12, 84, "Message",ExpressionUUID->"bb1dbbb7-5342-564b-85f8-113738804c1e"], +Cell[366847, 9105, 623, 13, 84, "Message",ExpressionUUID->"5ee0de5c-f255-e448-a774-f7d03336c3ab"], +Cell[367473, 9120, 527, 11, 26, "Message",ExpressionUUID->"f7a1703a-6d55-4649-afaf-3723f64cacac"], +Cell[368003, 9133, 243, 4, 32, "Output",ExpressionUUID->"4a0f67fc-5162-e64a-a019-edbd508b4c69"] +}, Open ]], +Cell[CellGroupData[{ +Cell[368283, 9142, 2242, 64, 162, "Input",ExpressionUUID->"f3705611-962a-7d49-8494-287e0d1eefa8"], +Cell[370528, 9208, 614, 12, 60, "Message",ExpressionUUID->"4f1c8a7a-a965-4147-882d-b4aae11b76c3"], +Cell[371145, 9222, 614, 12, 84, "Message",ExpressionUUID->"b837c9e8-7303-7d42-a2b3-7b69f22d984c"], +Cell[371762, 9236, 622, 13, 84, "Message",ExpressionUUID->"8cd3b322-26a1-fc4f-8a54-32b1cb17b6fb"], +Cell[372387, 9251, 530, 11, 26, "Message",ExpressionUUID->"f479e1f6-a89f-fa42-8da1-817e21a9c8d7"], +Cell[372920, 9264, 248, 4, 32, "Output",ExpressionUUID->"18969214-7402-ba47-9c5a-dd4f823a3b51"] +}, Open ]], +Cell[CellGroupData[{ +Cell[373205, 9273, 2242, 64, 162, "Input",ExpressionUUID->"1c2bb25c-a24b-4143-a03c-8699409c5ef4"], +Cell[375450, 9339, 611, 12, 60, "Message",ExpressionUUID->"05117271-b40b-0441-9da0-429a3ebf17a5"], +Cell[376064, 9353, 614, 12, 84, "Message",ExpressionUUID->"2facaa62-1f78-5545-86e7-f46d95ac1c40"], +Cell[376681, 9367, 621, 13, 84, "Message",ExpressionUUID->"bdadfef4-6c2c-314c-a2d4-88803e50751c"], +Cell[377305, 9382, 529, 11, 26, "Message",ExpressionUUID->"a56933a2-3a6d-7743-ab0e-75c86c8c88fc"], +Cell[377837, 9395, 242, 4, 32, "Output",ExpressionUUID->"189552eb-1c9c-224b-90b9-7ef245383a9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[378116, 9404, 236, 6, 47, "Input",ExpressionUUID->"df5a49d1-7ffc-9d41-9de9-b2cb4ed5c458"], +Cell[378355, 9412, 245, 4, 32, "Output",ExpressionUUID->"0a8e0955-ce9c-e940-8e56-7347aa883526"] +}, Open ]], +Cell[378615, 9419, 271, 6, 42, "Input",ExpressionUUID->"f1e753e6-7de9-0b47-aa25-47e49d9ceac1"], +Cell[CellGroupData[{ +Cell[378911, 9429, 558, 19, 52, "Input",ExpressionUUID->"24c8f2e4-3fba-8b49-a53c-9297f14cb47a"], +Cell[379472, 9450, 240, 4, 32, "Output",ExpressionUUID->"1df77361-bbd7-3747-bd4e-d686b1c97935"] +}, Open ]], +Cell[CellGroupData[{ +Cell[379749, 9459, 170, 5, 56, "Input",ExpressionUUID->"56d70fe5-9e2b-c64e-bfc2-fde134e22b5d"], +Cell[379922, 9466, 245, 4, 32, "Output",ExpressionUUID->"ac36d08b-3fd3-c748-8d7b-6d3db712f6e2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[380204, 9475, 181, 5, 43, "Input",ExpressionUUID->"4acc66ff-efd9-9749-a32c-ab2aed359d56"], +Cell[380388, 9482, 242, 4, 32, "Output",ExpressionUUID->"512d5f42-2b52-aa42-a41a-79581b371ea8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[380667, 9491, 6055, 185, 498, "Input",ExpressionUUID->"b77d1393-1706-0344-94ba-b60790e869c9"], +Cell[386725, 9678, 245, 4, 32, "Output",ExpressionUUID->"bc9a3d95-1222-0149-a4cb-647439e71140"] +}, Open ]], +Cell[CellGroupData[{ +Cell[387007, 9687, 368, 9, 42, "Input",ExpressionUUID->"d3dc886c-76ef-e140-8bf7-ae2b35b15037"], +Cell[387378, 9698, 243, 4, 32, "Output",ExpressionUUID->"ff99978a-b4f6-834c-bdd1-38045c81f38e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[387658, 9707, 6122, 187, 500, "Input",ExpressionUUID->"a2a617e0-a59a-4147-bc6f-17a0446bc938"], +Cell[393783, 9896, 251, 4, 32, "Output",ExpressionUUID->"0516d552-c612-dc45-8980-bd5254f713d1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[394071, 9905, 368, 9, 42, "Input",ExpressionUUID->"764ea9ee-2dee-8949-964f-92b7fcc0b4f1"], +Cell[394442, 9916, 241, 4, 32, "Output",ExpressionUUID->"32843051-db5d-5449-9596-10a1089cea6f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[394720, 9925, 2663, 88, 187, "Input",ExpressionUUID->"8de6527c-f379-114f-be34-ffaf646fc19c"], +Cell[397386, 10015, 248, 4, 32, "Output",ExpressionUUID->"ac6d6644-f912-a84f-86bc-884d933d5061"] +}, Open ]], +Cell[CellGroupData[{ +Cell[397671, 10024, 2603, 85, 165, "Input",ExpressionUUID->"bcbbe365-5317-404f-8cca-b17046887210"], +Cell[400277, 10111, 241, 4, 32, "Output",ExpressionUUID->"9d9980d8-df46-5644-8bb2-4a0ba6c6e66d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[400555, 10120, 3712, 118, 348, "Input",ExpressionUUID->"c57327ef-c920-754d-8029-af14560ebe8f"], +Cell[404270, 10240, 247, 4, 32, "Output",ExpressionUUID->"97e73886-59ac-a242-bcf4-fe47d27b4a97"] +}, Open ]], +Cell[CellGroupData[{ +Cell[404554, 10249, 2074, 59, 228, "Input",ExpressionUUID->"670d91c8-ce08-f444-b144-138ebae0f868"], +Cell[406631, 10310, 589, 12, 60, "Message",ExpressionUUID->"cf88e398-8f44-484c-af5c-147dcc94da0d"], +Cell[407223, 10324, 589, 12, 60, "Message",ExpressionUUID->"027405c7-9743-f049-bcb2-e32b622b1e77"], +Cell[407815, 10338, 595, 12, 60, "Message",ExpressionUUID->"be4a183a-d0a8-4647-b98d-ac649536105a"], +Cell[408413, 10352, 529, 11, 26, "Message",ExpressionUUID->"b45ac5df-e8e6-c14f-990f-547ff0f00cad"], +Cell[408945, 10365, 245, 4, 32, "Output",ExpressionUUID->"93a233ef-ddcc-374c-8bda-ebd5bddf6181"] +}, Open ]], +Cell[CellGroupData[{ +Cell[409227, 10374, 2074, 59, 228, "Input",ExpressionUUID->"862c274e-f293-6a41-8f4f-719ed57da8ce"], +Cell[411304, 10435, 589, 12, 60, "Message",ExpressionUUID->"1be6857f-792f-a043-975f-2ba4a70175d6"], +Cell[411896, 10449, 591, 12, 60, "Message",ExpressionUUID->"a19c660d-f826-be45-82af-ca7529c80f53"], +Cell[412490, 10463, 597, 12, 60, "Message",ExpressionUUID->"5e640cf2-50de-104d-af8b-643b79d82f83"], +Cell[413090, 10477, 531, 11, 26, "Message",ExpressionUUID->"0a93686d-69d8-474d-a0fd-409f62953eee"], +Cell[413624, 10490, 244, 4, 32, "Output",ExpressionUUID->"2e46ddf3-0062-224b-9796-1306bdd2aa7b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[413905, 10499, 2138, 60, 211, "Input",ExpressionUUID->"f5360edc-957d-9f48-b8b4-746fa181d4a5"], +Cell[416046, 10561, 537, 12, 60, "Message",ExpressionUUID->"93c85051-1f5f-454b-8284-ec6b1503035c"], +Cell[416586, 10575, 538, 12, 60, "Message",ExpressionUUID->"78504fd0-5163-4c43-b557-f5bf3753c331"], +Cell[417127, 10589, 557, 12, 27, "Message",ExpressionUUID->"f8eab59e-ff29-9043-98e0-0d255dae1661"], +Cell[417687, 10603, 505, 11, 26, "Message",ExpressionUUID->"2bcce08d-1c3f-364f-a211-f2a3f5fa9381"], +Cell[418195, 10616, 33070, 590, 233, "Output",ExpressionUUID->"0d2e6a4e-7884-ac4a-b403-2f7c3e1c38cc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[451302, 11211, 229, 5, 42, "Input",ExpressionUUID->"b422dcab-ec5f-5543-9fba-aafac96e937c"], +Cell[451534, 11218, 39026, 713, 233, "Output",ExpressionUUID->"86a52464-7f53-8d46-a5d1-a814b9500274"] +}, Open ]], +Cell[CellGroupData[{ +Cell[490597, 11936, 1616, 48, 113, "Input",ExpressionUUID->"143d6afa-76a8-b440-a2a9-2759769b081f"], +Cell[492216, 11986, 621, 12, 84, "Message",ExpressionUUID->"75884a80-7c5f-dc4c-9602-bf0bfeb0950c"], +Cell[492840, 12000, 626, 13, 84, "Message",ExpressionUUID->"12822573-a2b6-a245-8e96-f52e80420c06"], +Cell[493469, 12015, 629, 13, 66, "Message",ExpressionUUID->"ba19b056-e5a8-154e-adfd-b32de95e27f1"], +Cell[494101, 12030, 533, 11, 26, "Message",ExpressionUUID->"2c41def5-c18f-ef47-bda2-2a93dd6f1051"], +Cell[494637, 12043, 239, 4, 32, "Output",ExpressionUUID->"8ec02c35-78ad-8045-a91c-bfd068e2b14b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[494913, 12052, 2272, 64, 223, "Input",ExpressionUUID->"2e239e43-8455-8947-be70-b8e43bbe859a"], +Cell[497188, 12118, 589, 12, 60, "Message",ExpressionUUID->"a5b33038-fea0-7741-aeeb-7a49a752fa24"], +Cell[497780, 12132, 593, 12, 60, "Message",ExpressionUUID->"20fa1f4c-f172-9a4b-b892-b0319d036d84"], +Cell[498376, 12146, 597, 12, 60, "Message",ExpressionUUID->"9d354040-a1a0-2d4b-be51-fedd561b06a1"], +Cell[498976, 12160, 529, 11, 26, "Message",ExpressionUUID->"98749a41-ecbe-5f45-abdd-838e213ef8fd"], +Cell[499508, 12173, 251, 4, 32, "Output",ExpressionUUID->"4dc1f06d-9408-7e45-a030-2c676d143ef7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[499796, 12182, 2244, 64, 162, "Input",ExpressionUUID->"99e346c1-cf6d-8f4a-b6fb-39037ee79c0a"], +Cell[502043, 12248, 587, 12, 60, "Message",ExpressionUUID->"c5275299-3fde-c94d-b347-7da6f61e547b"], +Cell[502633, 12262, 589, 12, 60, "Message",ExpressionUUID->"9790c932-563b-7140-bff3-9bf4d134623f"], +Cell[503225, 12276, 593, 12, 60, "Message",ExpressionUUID->"2ae0fe8c-af7c-d840-8392-7d6b67b8d21d"], +Cell[503821, 12290, 527, 11, 26, "Message",ExpressionUUID->"c5eb565b-77c6-e147-90ed-902921f0a965"], +Cell[504351, 12303, 245, 4, 32, "Output",ExpressionUUID->"3ae43d36-9223-c94c-8024-3fc8db4fc86d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[504633, 12312, 2244, 64, 162, "Input",ExpressionUUID->"867b2dc8-7ef3-234b-80bd-e701484a92f5"], +Cell[506880, 12378, 589, 12, 60, "Message",ExpressionUUID->"d3f0ed56-bb79-b24e-9ce2-9c0f2416b9ce"], +Cell[507472, 12392, 593, 12, 60, "Message",ExpressionUUID->"1e646479-dde8-144f-acca-05609b4f614e"], +Cell[508068, 12406, 597, 12, 60, "Message",ExpressionUUID->"478cc043-a50a-ab4d-8e73-3c14a1374c59"], +Cell[508668, 12420, 531, 11, 26, "Message",ExpressionUUID->"2e452b1a-76de-e54d-ac3a-c67b3d435661"], +Cell[509202, 12433, 247, 4, 32, "Output",ExpressionUUID->"01afdb5a-a31f-bb44-a07a-08bda2465f7d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[509486, 12442, 236, 6, 47, "Input",ExpressionUUID->"b1cee125-11a3-8a43-b076-a72829d187d3"], +Cell[509725, 12450, 246, 4, 32, "Output",ExpressionUUID->"13540a6e-ea57-574b-a2e4-5a933d01b5b0"] +}, Open ]], +Cell[509986, 12457, 268, 6, 42, "Input",ExpressionUUID->"e87cb7b6-2d4f-2b46-b7dc-f61f4036bef1"], +Cell[CellGroupData[{ +Cell[510279, 12467, 558, 19, 52, "Input",ExpressionUUID->"dafb41d5-8379-5e45-a5a7-0828c3048eab"], +Cell[510840, 12488, 245, 4, 32, "Output",ExpressionUUID->"efb62571-0061-b941-98f0-9bad1b3dd062"] +}, Open ]], +Cell[CellGroupData[{ +Cell[511122, 12497, 170, 5, 56, "Input",ExpressionUUID->"3d6ec365-065c-9046-b32d-db356c9d51fa"], +Cell[511295, 12504, 242, 4, 32, "Output",ExpressionUUID->"a1e25184-43fd-3640-ac6a-8360e3f757ca"] +}, Open ]], +Cell[CellGroupData[{ +Cell[511574, 12513, 181, 5, 43, "Input",ExpressionUUID->"c7dc55d1-f163-224f-bef1-731f35b2237f"], +Cell[511758, 12520, 247, 4, 32, "Output",ExpressionUUID->"d534abfb-a242-8047-9afa-e1ae43e37f18"] +}, Open ]], +Cell[CellGroupData[{ +Cell[512042, 12529, 6055, 185, 498, "Input",ExpressionUUID->"ae1da06e-d004-c94e-a60b-5d6c8a81d4a0"], +Cell[518100, 12716, 248, 4, 32, "Output",ExpressionUUID->"75189e96-af7c-2240-b331-293903e30f54"] +}, Open ]], +Cell[CellGroupData[{ +Cell[518385, 12725, 368, 9, 42, "Input",ExpressionUUID->"711641aa-bfb1-b442-a8a1-7f2d92e52258"], +Cell[518756, 12736, 241, 4, 32, "Output",ExpressionUUID->"c10e95dd-7df9-1b4b-b975-dd444da23052"] +}, Open ]], +Cell[CellGroupData[{ +Cell[519034, 12745, 6122, 187, 500, "Input",ExpressionUUID->"03560694-f256-804d-bdf2-150141b736fd"], +Cell[525159, 12934, 249, 4, 32, "Output",ExpressionUUID->"c948849b-cafa-214b-be04-78cb33ccab7d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[525445, 12943, 368, 9, 42, "Input",ExpressionUUID->"41fd6fe5-afbf-ed41-96d1-404a404fc933"], +Cell[525816, 12954, 245, 4, 32, "Output",ExpressionUUID->"2e97305c-0557-904e-88d9-5af3b027d5f6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[526098, 12963, 2663, 88, 187, "Input",ExpressionUUID->"1ffc2e4a-e112-f841-8653-59d1c97f1323"], +Cell[528764, 13053, 244, 4, 32, "Output",ExpressionUUID->"deec3469-7db7-ca47-ad1c-02e73ff141ca"] +}, Open ]], +Cell[CellGroupData[{ +Cell[529045, 13062, 2603, 85, 165, "Input",ExpressionUUID->"c98e90b4-3450-674d-a534-9abe2866d10f"], +Cell[531651, 13149, 244, 4, 32, "Output",ExpressionUUID->"c79a8dce-7a4c-fd47-a5d2-18b05310b8d7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[531932, 13158, 3712, 118, 348, "Input",ExpressionUUID->"3a1b0a64-3226-5845-846d-8f00794d5760"], +Cell[535647, 13278, 247, 4, 32, "Output",ExpressionUUID->"a8c89ebf-b25a-574a-a3c2-763635903336"] +}, Open ]], +Cell[CellGroupData[{ +Cell[535931, 13287, 2077, 59, 228, "Input",ExpressionUUID->"157a27fc-8a7f-ef4c-bd2d-9f444415254b"], +Cell[538011, 13348, 589, 12, 60, "Message",ExpressionUUID->"52968881-9fdd-3247-9f0e-12e7d89eb2e8"], +Cell[538603, 13362, 595, 12, 60, "Message",ExpressionUUID->"4ff70a73-e0a8-874f-95f8-637eaa4857d2"], +Cell[539201, 13376, 597, 12, 60, "Message",ExpressionUUID->"eb36c090-1522-f148-bb8a-712cd538f6ec"], +Cell[539801, 13390, 533, 11, 26, "Message",ExpressionUUID->"dc46d9f9-3a95-6d48-809e-0bac80064f97"], +Cell[540337, 13403, 243, 4, 32, "Output",ExpressionUUID->"73a21fc2-aafc-8344-a764-3f06847a2e81"] +}, Open ]], +Cell[CellGroupData[{ +Cell[540617, 13412, 2075, 59, 228, "Input",ExpressionUUID->"11801718-69ec-bf4e-86d8-e9949dfbcff4"], +Cell[542695, 13473, 591, 12, 60, "Message",ExpressionUUID->"2e6f13bb-fab0-dc4d-8e0d-399b2b5c3afa"], +Cell[543289, 13487, 593, 12, 60, "Message",ExpressionUUID->"e9c17583-b1c9-4e46-a8d2-6cacf01fbe1c"], +Cell[543885, 13501, 599, 12, 60, "Message",ExpressionUUID->"4bcdcd5c-830e-bc42-a377-8d13ec350007"], +Cell[544487, 13515, 531, 11, 26, "Message",ExpressionUUID->"5c6a4779-23ac-c441-9ba0-1c00ef474065"], +Cell[545021, 13528, 245, 4, 32, "Output",ExpressionUUID->"41f44cb4-8774-314f-bb12-e35ad53da4cc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[545303, 13537, 2143, 60, 211, "Input",ExpressionUUID->"4d882d59-3e42-1040-97a9-33dddc2b9855"], +Cell[547449, 13599, 536, 12, 60, "Message",ExpressionUUID->"dc2c7297-7849-1f45-b5b5-5fc66f484f7f"], +Cell[547988, 13613, 537, 12, 60, "Message",ExpressionUUID->"a8047b00-b032-3548-99f7-a162f70653a9"], +Cell[548528, 13627, 555, 12, 27, "Message",ExpressionUUID->"a89ef68d-0b7b-164d-9716-87d8b76ebb37"], +Cell[549086, 13641, 503, 11, 26, "Message",ExpressionUUID->"e3d5e900-1285-7e4f-b1d5-d65cb3bf7280"], +Cell[549592, 13654, 33077, 590, 233, "Output",ExpressionUUID->"e0995f3d-7180-784d-b12f-3285544284c5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[582706, 14249, 234, 5, 42, "Input",ExpressionUUID->"715f943f-d061-fa48-bb45-20a62a80a7df"], +Cell[582943, 14256, 39038, 713, 233, "Output",ExpressionUUID->"f0f8510a-6470-3044-8808-0ee991b89b91"] +}, Open ]], +Cell[CellGroupData[{ +Cell[622018, 14974, 1616, 48, 113, "Input",ExpressionUUID->"804e6c9f-1b36-2141-acb9-3b729fb7abb0"], +Cell[623637, 15024, 617, 12, 84, "Message",ExpressionUUID->"55d161d1-12aa-034d-b4ea-a77bbce98bf0"], +Cell[624257, 15038, 625, 13, 84, "Message",ExpressionUUID->"97756aa7-c1c7-114f-93a9-a9512cb146c2"], +Cell[624885, 15053, 630, 13, 66, "Message",ExpressionUUID->"2c132bc4-3890-cd47-bfeb-5e1de5bd13c8"], +Cell[625518, 15068, 531, 11, 26, "Message",ExpressionUUID->"7d7e446f-7989-cb45-8334-f93cbe9d5025"], +Cell[626052, 15081, 245, 4, 32, "Output",ExpressionUUID->"ab6f7f89-9dfe-dc42-b50e-08c295130e9f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[626334, 15090, 2272, 64, 223, "Input",ExpressionUUID->"9b45c184-4df7-db4d-adb2-01f19f0f15b0"], +Cell[628609, 15156, 585, 12, 60, "Message",ExpressionUUID->"12343424-c269-9048-8d13-dd655c8eea75"], +Cell[629197, 15170, 587, 12, 60, "Message",ExpressionUUID->"b5fccfa1-a08f-cb42-83ee-641a7ff4ae71"], +Cell[629787, 15184, 593, 12, 60, "Message",ExpressionUUID->"81c5f1ee-d76f-854e-a7f5-3f46c7374ba3"], +Cell[630383, 15198, 527, 11, 26, "Message",ExpressionUUID->"83ce3613-9f03-8b4a-9532-4ff7b967a63e"], +Cell[630913, 15211, 244, 4, 32, "Output",ExpressionUUID->"6ec5dbe3-f6e7-8c4a-9c0d-cb43308fac64"] +}, Open ]], +Cell[CellGroupData[{ +Cell[631194, 15220, 2244, 64, 162, "Input",ExpressionUUID->"00ca455f-f3f6-2c4f-8927-9e8c2d28dafd"], +Cell[633441, 15286, 589, 12, 60, "Message",ExpressionUUID->"9561cb48-6125-be4d-9e56-92082bf85aa7"], +Cell[634033, 15300, 591, 12, 60, "Message",ExpressionUUID->"f0ed2788-633b-9b4e-bc6f-e4c694432b1f"], +Cell[634627, 15314, 597, 12, 60, "Message",ExpressionUUID->"d7a166a2-52ca-6b4b-9aba-bee1de03c1a1"], +Cell[635227, 15328, 529, 11, 26, "Message",ExpressionUUID->"39e725f9-aa49-f74a-ba8a-429980004912"], +Cell[635759, 15341, 193, 3, 32, "Output",ExpressionUUID->"5439bb3b-e8a6-6d4a-b85b-7f43852619c5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[635989, 15349, 212, 4, 28, "Input",ExpressionUUID->"8cac9b30-e121-024d-91d3-cf92fd4a988a"], +Cell[636204, 15355, 194, 3, 32, "Output",ExpressionUUID->"015f049d-e66a-3c4e-9e41-d9d5f705331a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[636435, 15363, 2244, 64, 162, "Input",ExpressionUUID->"b454660a-890c-f24b-923b-563bff174231"], +Cell[638682, 15429, 582, 12, 60, "Message",ExpressionUUID->"51589503-1b7b-7b46-9ed1-654b3d3d94bd"], +Cell[639267, 15443, 588, 12, 60, "Message",ExpressionUUID->"a84ca43d-73c0-cd47-a35e-c64bf52eb0e3"], +Cell[639858, 15457, 592, 12, 60, "Message",ExpressionUUID->"5900028f-c4bd-7f4b-84a6-feb752262ead"], +Cell[640453, 15471, 524, 11, 26, "Message",ExpressionUUID->"d0d45a8e-b93b-fc4d-882d-2aa6d8215b27"], +Cell[640980, 15484, 246, 4, 32, "Output",ExpressionUUID->"dd5c3f0a-fa8b-9a46-8b76-fcbb457e5272"] +}, Open ]], +Cell[CellGroupData[{ +Cell[641263, 15493, 238, 6, 47, "Input",ExpressionUUID->"673f44c9-71c5-b64a-9ddb-ff434e6a2570"], +Cell[641504, 15501, 252, 4, 32, "Output",ExpressionUUID->"0dbd93a3-e48f-424a-a43d-1df1388a0395"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_osc_Qw2.nb b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_osc_Qw2.nb new file mode 100755 index 0000000..c808704 --- /dev/null +++ b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_osc_Qw2.nb @@ -0,0 +1,15770 @@ +(* 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[ 662957, 15762] +NotebookOptionsPosition[ 622585, 15115] +NotebookOutlinePosition[ 623039, 15133] +CellTagsIndexPosition[ 622996, 15130] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "0.1"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.992086540831894*^9, 3.9920865523321934`*^9}, { + 3.992086586219898*^9, 3.992086610363735*^9}, {3.9920867343035507`*^9, + 3.992086784359892*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"9ccd59f4-b50f-6c4d-9886-000ac16bbd26"], + +Cell[BoxData["0.1`"], "Output", + CellChangeTimes->{3.992086762207903*^9, 3.9920868028367424`*^9, + 3.992101157250986*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"23ad788c-d1c4-c648-a53a-b88e6662a5e7"] +}, Open ]], + +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.992085811016073*^9, 3.9920858120004807`*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"4d114053-0661-9c46-9efb-62b794f6d316"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.9920860563908997`*^9, 3.992086267214739*^9, + 3.992086570082403*^9, 3.9920866008307095`*^9, 3.9920866670307636`*^9, { + 3.9920867754973392`*^9, 3.9920868028625736`*^9}, 3.9921011572700233`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"742bdbfe-14da-8c4e-b89b-2094ee32f1d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "58"}]], "Input", + CellChangeTimes->{3.9917123636954575`*^9, 3.9917930477498703`*^9, + 3.9920858245124893`*^9}, + CellLabel->"In[3]:=",ExpressionUUID->"ced22664-e0d6-624d-8572-c84cb7e5fc4e"], + +Cell[BoxData["58"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9920860564147377`*^9, 3.9920862672333508`*^9, + 3.992086570087515*^9, 3.992086600854433*^9, 3.992086667052353*^9, { + 3.99208677552532*^9, 3.9920868028686295`*^9}, 3.9921011572779865`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"55d74540-9694-a24a-92c0-b02c4afc5327"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"1ed6267e-43c1-1c4d-9cac-75c315fa9fbf"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.991707828219631*^9, 3.9917123414174232`*^9, + 3.992086056442711*^9, 3.992086267243601*^9, 3.9920865701074047`*^9, + 3.992086600883713*^9, 3.9920866670570984`*^9, {3.9920867755491276`*^9, + 3.9920868028899593`*^9}, 3.9921011572849865`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"191107d5-b6fa-234e-86b2-48a0b998be28"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"4cbb0a58-3499-604e-853b-6f3e8cc9c133"], + +Cell[BoxData["0.5577500000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.9917078282275677`*^9, 3.9917123414253197`*^9, + 3.992086056472231*^9, 3.9920862672656536`*^9, 3.9920865701119137`*^9, + 3.9920866009103184`*^9, 3.9920866670824966`*^9, {3.992086775556343*^9, + 3.9920868028954678`*^9}, 3.9921011572929993`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"39cc5908-7c47-f742-a7d0-1a13504d9abc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"a9d26615-ac75-5d43-9095-7ee22a3c33f8"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9917078282485256`*^9, 3.9917123414324265`*^9, + 3.992086056479254*^9, 3.992086267270653*^9, 3.9920865701184216`*^9, + 3.9920866009393177`*^9, 3.9920866670875015`*^9, {3.992086775577345*^9, + 3.9920868029233513`*^9}, 3.992101157299999*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"22da2c48-581a-fe47-8b0e-d89677dc7303"] +}, 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->"afacc702-e08b-f746-bb79-b94eeaa27f24"], + +Cell[BoxData["4.4902169031282435`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.9917078282706223`*^9, 3.9917123414384117`*^9, + 3.992086056511862*^9, 3.992086267275753*^9, 3.9920865701434135`*^9, + 3.9920866009463215`*^9, 3.992086667111265*^9, {3.992086775588663*^9, + 3.9920868029544296`*^9}, 3.992101157306999*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"c6329d89-7905-8644-b610-c664c8b8a967"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"c82b30ad-d126-0f4e-ab97-5d5aead5ef82"], + +Cell[BoxData["6.573779285392593`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.9917078282785244`*^9, 3.991712341447321*^9, + 3.9920860565348663`*^9, 3.99208626729467*^9, 3.9920865701494427`*^9, + 3.9920866009676666`*^9, 3.9920866671364613`*^9, {3.9920867756105766`*^9, + 3.992086802964319*^9}, 3.9921011573149986`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"cf12ab24-c447-a948-b199-e4ac6ffedb84"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.363557285532272"}]], "Input", + CellChangeTimes->{ + 3.9917123951294365`*^9, 3.99179305435186*^9, {3.9920858393278446`*^9, + 3.9920858536690025`*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"2e0bbff7-5261-7c4c-bce6-fdcc2f61f29d"], + +Cell[BoxData["0.363557285532272`"], "Output", + CellChangeTimes->{ + 3.991319649862606*^9, 3.991707828301527*^9, 3.9917123414573193`*^9, + 3.991712407248003*^9, 3.9920860565659294`*^9, 3.992086267305723*^9, + 3.992086570171528*^9, 3.992086600972666*^9, 3.9920866671645985`*^9, { + 3.9920867756155777`*^9, 3.9920868029898014`*^9}, 3.992101157322998*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"5a6598e6-0595-5a47-9fd4-2933af7fa985"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "1.14032997838104"}]], "Input", + CellChangeTimes->{ + 3.9917124038115807`*^9, 3.991793052797516*^9, {3.992085843612673*^9, + 3.9920858505623627`*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"a35ada31-bed9-6449-83df-c374bb5ad9a8"], + +Cell[BoxData["1.14032997838104`"], "Output", + CellChangeTimes->{ + 3.9913196498716316`*^9, 3.991707828308525*^9, 3.99171234146842*^9, + 3.9917124073213234`*^9, 3.992086056571884*^9, 3.9920862673247185`*^9, + 3.992086570200531*^9, 3.9920866009956837`*^9, 3.9920866671913986`*^9, { + 3.992086775620594*^9, 3.9920868029953136`*^9}, 3.992101157330986*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"ce1926fc-0fe9-4744-b19b-9125d51ba8b8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"e2aa0c35-146e-024c-abf8-7efe27e145b9"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.9917078283276424`*^9, 3.991712341478319*^9, + 3.992086056594942*^9, 3.992086267342724*^9, 3.992086570206547*^9, + 3.992086601016636*^9, 3.992086667196371*^9, {3.9920867756454487`*^9, + 3.9920868030243797`*^9}, 3.9921011573419876`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"4f6bd922-3beb-cd4e-bdf2-45bee584935a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"2108fa0d-6ba5-ef49-ac71-a3cbb4a4e7cf"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.99170782834754*^9, 3.9917123414863186`*^9, + 3.99208605659988*^9, 3.992086267369709*^9, 3.9920865702305107`*^9, + 3.992086601021658*^9, 3.992086667220396*^9, {3.9920867756661854`*^9, + 3.9920868030533276`*^9}, 3.9921011573499985`*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"7fb75b75-36ef-da48-b462-652f2a86fcdd"] +}, 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->"e8122927-0ce0-5648-a7ca-ac7dbc32a743"], + +Cell[BoxData["1.3932112707868565`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.991707968406042*^9, 3.9920860566229687`*^9, + 3.9920862673877125`*^9, 3.992086570250431*^9, 3.9920866010503235`*^9, + 3.9920866672243824`*^9, {3.9920867756911926`*^9, 3.992086803080593*^9}, + 3.9921011573580055`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"9f543f89-4a6f-c446-affa-eddbfae03610"] +}, 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->"7b11db5f-82f4-f644-9690-d7bdcd8f26c2"], + +Cell[BoxData["3.0097040215395996`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.9917079684291363`*^9, 3.992086056628895*^9, + 3.992086267395834*^9, 3.9920865702819977`*^9, 3.9920866010553265`*^9, + 3.992086667248516*^9, {3.992086775697193*^9, 3.992086803086094*^9}, + 3.992101157368023*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"a8d4c118-89a1-774d-8b68-acb1c0f3bae1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"321e4fb5-b305-9c48-b98b-e22eee8323a4"], + +Cell[BoxData["0.8492253700915684`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.991707968457081*^9, 3.9920860566568546`*^9, + 3.9920862674018364`*^9, 3.9920865702885704`*^9, 3.9920866010823193`*^9, + 3.9920866672535152`*^9, {3.9920867757212353`*^9, 3.9920868031092052`*^9}, + 3.9921011574106674`*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"11296915-be13-d64a-8ad6-ed6c8176a220"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"558a79a4-d07f-2943-8bfb-31bc438d7b34"], + +Cell[BoxData[ + RowBox[{"-", "1.1896646126189885`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.9917079684650364`*^9, 3.992086056661869*^9, + 3.9920862674289207`*^9, 3.992086570310892*^9, 3.992086601108303*^9, + 3.992086667258547*^9, {3.9920867757272587`*^9, 3.9920868031152153`*^9}, + 3.9921011574207897`*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"c674a226-5adc-6148-98f2-f4532926ed31"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"c6988e85-c3ab-9542-8ac3-eaf150a60a4d"], + +Cell[BoxData[ + RowBox[{"-", "0.07157823242670158`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.9917079684860363`*^9, 3.992086056689867*^9, + 3.992086267451708*^9, 3.9920865703164005`*^9, 3.9920866011133003`*^9, + 3.992086667287239*^9, {3.9920867757482376`*^9, 3.992086803136221*^9}, + 3.9921011574307957`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"77622a22-4b9e-df42-9240-1aab8b48e8c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"4872db5a-8d18-ae4d-86a9-e80539c50c5a"], + +Cell[BoxData["0.36531988493615475`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9917079684940376`*^9, 3.992086056698021*^9, + 3.9920862674576683`*^9, 3.992086570322399*^9, 3.9920866011363144`*^9, + 3.9920866673132973`*^9, {3.9920867757535*^9, 3.9920868031582184`*^9}, + 3.992101157440668*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"38428511-8eaf-b340-b546-a1344a49d8f4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"6a6fafa8-9028-ea40-981c-d6f33a2bf931"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9917079685140343`*^9, 3.992086056725519*^9, + 3.992086267463503*^9, 3.99208657034342*^9, 3.9920866011623287`*^9, + 3.992086667319298*^9, {3.9920867757785244`*^9, 3.992086803166567*^9}, + 3.99210115745006*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"6e27f826-5117-f44e-b5a8-68e67fb7c5e6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellChangeTimes->{3.9918430951178913`*^9}, + CellLabel->"In[20]:=",ExpressionUUID->"957c02af-69f2-044c-b66f-ca8aec73b6ba"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.991707968535036*^9, 3.9920860567525387`*^9, + 3.992086267484522*^9, 3.992086570353693*^9, 3.992086601167244*^9, + 3.992086667338505*^9, {3.9920867757885113`*^9, 3.992086803188101*^9}, + 3.9921011574580574`*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"fc96cea4-773a-d044-bdbb-e1698f16fcc7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"1a0834d3-f5c7-b544-ab5a-ad55f704b3fb"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.9917079685410557`*^9, 3.9920860567575817`*^9, + 3.99208626748954*^9, 3.992086570375412*^9, 3.99208660118725*^9, + 3.9920866673587112`*^9, {3.9920867758099976`*^9, 3.992086803193638*^9}, + 3.9921011574671593`*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"eed9d627-216e-7e48-8a41-a480f9bced58"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"17a3155f-1014-3f47-95c8-649b5592093b"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.991707968561041*^9, 3.992086056786278*^9, + 3.9920862675157433`*^9, 3.9920865703804207`*^9, 3.9920866011932716`*^9, + 3.9920866673642235`*^9, {3.992086775814476*^9, 3.992086803217211*^9}, + 3.9921011574770584`*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"e2eae877-2548-0141-9b41-ca661fd54f5f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"262ddec4-b25b-0145-9154-91c4534f0366"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.9917079685810375`*^9, 3.9920860567917824`*^9, + 3.992086267522707*^9, 3.9920865704054184`*^9, 3.992086601216263*^9, + 3.9920866673882236`*^9, {3.9920867758395653`*^9, 3.992086803222191*^9}, + 3.992101157486189*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"2762cc5f-7e1d-0f4c-b680-97001871dff1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "20"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.9917930777342243`*^9, + 3.9920858934566765`*^9}, + CellLabel->"In[24]:=",ExpressionUUID->"98db454e-b76d-c448-a5fb-db17668fba13"], + +Cell[BoxData["20"], "Output", + CellChangeTimes->{ + 3.992086056815359*^9, 3.992086267560713*^9, 3.992086570414318*^9, + 3.992086601221264*^9, 3.992086667394369*^9, {3.9920867758671284`*^9, + 3.9920868032586155`*^9}, 3.992101157496174*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"a1421cbd-4f29-4443-ba6d-aa624ed9e6ad"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431115646553`*^9, 3.991843111569187*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"49b4df59-ba96-204d-8a7a-a050e7dc5eaf"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, { + 3.991644237125025*^9, 3.991644237304865*^9}, {3.992085912752716*^9, + 3.9920859130864887`*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"67372b79-e3d7-e740-aa8a-b6f2277896de"], + +Cell[BoxData["74"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.991707968608036*^9, 3.9920860568239784`*^9, + 3.99208626756872*^9, 3.9920865704393387`*^9, 3.9920866012487774`*^9, + 3.992086667421444*^9, {3.9920867758944263`*^9, 3.992086803283657*^9}, + 3.9921011575080585`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"9b20a5e2-3962-2446-8ccf-e040fdcf65cb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"1db0f49a-d634-c240-a060-6437c979d1d8"], + +Cell[BoxData["182"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.9917079686284103`*^9, 3.9920860568515472`*^9, + 3.9920862675907288`*^9, 3.9920865704453335`*^9, 3.9920866012762756`*^9, + 3.992086667425951*^9, {3.992086775900427*^9, 3.9920868032897816`*^9}, + 3.9921011575173874`*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"d566e4e6-6b36-c147-84d4-2fbd8f97412a"] +}, 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->"38ed2f59-f1de-6c43-9d51-88bdd21c2523"], + +Cell[BoxData["0.1143501326259947`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9917079686354065`*^9, 3.9920860568816433`*^9, + 3.9920862675967255`*^9, 3.9920865704673367`*^9, 3.9920866012962723`*^9, + 3.992086667430956*^9, {3.992086775921425*^9, 3.992086803313404*^9}, + 3.992101157526268*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"0466128c-8a36-a049-8b76-d1a7cf7368d8"] +}, 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->"e98ec72c-94a3-7a4f-aea3-cc9c0d9f8fbe"], + +Cell[BoxData[ + RowBox[{"-", "2.558692686623721`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.991707968658518*^9, 3.9920860569066925`*^9, + 3.992086267627468*^9, 3.9920865704723377`*^9, 3.9920866013012753`*^9, + 3.9920866674524727`*^9, {3.9920867759274426`*^9, 3.9920868033194046`*^9}, + 3.9921011575353775`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"4f6ac787-6dba-a048-b94a-ff7ccc9800e8"] +}, 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.991972093618887*^9, 3.9919720982596817`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"071b0853-87fe-2c4d-abbd-372a4824c05d"], + +Cell[BoxData["16.19476930294046`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.991707968678421*^9, 3.9920860569136944`*^9, + 3.992086267651493*^9, 3.9920865704962807`*^9, 3.992086601307276*^9, + 3.992086667458479*^9, {3.992086775951008*^9, 3.992086803343006*^9}, + 3.9921011575443993`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"129fc845-1a27-4b4a-8a13-b4990133fe49"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"d18f685d-e63f-3647-b6c2-98e303089120"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.9917079686854057`*^9, 3.992086056939745*^9, + 3.992086267670479*^9, 3.992086570523632*^9, 3.9920866013305016`*^9, + 3.9920866674794827`*^9, {3.9920867759565735`*^9, 3.9920868033491592`*^9}, + 3.9921011575532665`*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"241a7478-4b59-fe4d-a1dc-e830c4dd748f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "0.889"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.991793106556059*^9, 3.992085933324785*^9}, + CellLabel->"In[32]:=",ExpressionUUID->"7ce4bf33-678e-6345-a119-39c36ca77ae4"], + +Cell[BoxData["0.889`"], "Output", + CellChangeTimes->{ + 3.9920860569446983`*^9, 3.9920862676814785`*^9, 3.9920865705475826`*^9, + 3.9920866013365097`*^9, 3.9920866675006237`*^9, {3.9920867759825478`*^9, + 3.9920868033546314`*^9}, 3.9921011575623817`*^9}, + CellLabel->"Out[32]=",ExpressionUUID->"f6354a05-0760-6540-ad47-73c9b7319414"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431193859673`*^9, 3.9918431193894367`*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"b514a123-6026-484f-84d7-8e150ce2db52"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"n1", "=", "0.634"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917169698218613`*^9, 3.991717907758713*^9, + 3.991793107839529*^9, 3.9920859368147087`*^9}, + CellLabel->"In[34]:=",ExpressionUUID->"c7106883-e563-8540-866d-1ddabf1f4a4b"], + +Cell[BoxData["0.634`"], "Output", + CellChangeTimes->{ + 3.9920860569747295`*^9, 3.992086267704502*^9, 3.99208657055459*^9, + 3.992086601359558*^9, 3.992086667509161*^9, {3.992086775989546*^9, + 3.9920868033846836`*^9}, 3.9921011575742664`*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"1f9a30e5-a4f9-6d42-9eae-6091e1b974e0"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843120757866*^9, 3.9918431207603054`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"0f6b6481-ff2b-604e-ab4b-84f8f6224cad"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv1", "=", "1.069"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.991717916696951*^9, + 3.991793108990593*^9, 3.992085941493677*^9}, + CellLabel->"In[36]:=",ExpressionUUID->"be96ddc4-8bf8-8545-90da-8898239f225a"], + +Cell[BoxData["1.069`"], "Output", + CellChangeTimes->{ + 3.9920860570089607`*^9, 3.9920862677305984`*^9, 3.9920865705816116`*^9, + 3.9920866013675575`*^9, 3.992086667531679*^9, {3.992086776016308*^9, + 3.992086803410513*^9}, 3.9921011575873737`*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"1de0f87c-c932-c24a-89c1-bf11c04da45b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431220200443`*^9, 3.9918431220220585`*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"4c4bc4fd-4076-5942-89e5-3d70dd3c09b0"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn1", "=", "0.744"}], "\n"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.991716995355715*^9, + 3.9917931103354855`*^9, 3.9920859453537045`*^9}, + CellLabel->"In[38]:=",ExpressionUUID->"3a0ba0b6-13d6-1b4e-b15e-a9bb6e05bad2"], + +Cell[BoxData["0.744`"], "Output", + CellChangeTimes->{ + 3.9920860571022167`*^9, 3.9920862677565975`*^9, 3.9920865705886135`*^9, + 3.99208660139657*^9, 3.992086667539192*^9, {3.9920867760232925`*^9, + 3.992086803417515*^9}, 3.9921011575993958`*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"7131298a-cffc-0441-8a08-cfa556588e2c"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431237966404`*^9, 3.9918431238010616`*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"a69ee115-40fc-104b-ba38-f14b73376dea"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.991"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991717006317978*^9, 3.9917931115739956`*^9, 3.9920859513160667`*^9}, + CellLabel->"In[40]:=",ExpressionUUID->"a205c97c-d165-0947-aa6a-57c755f27d35"], + +Cell[BoxData["1.991`"], "Output", + CellChangeTimes->{ + 3.9920860571301746`*^9, 3.9920862677775993`*^9, 3.9920865706167297`*^9, + 3.992086601418375*^9, 3.99208666756719*^9, {3.9920867760472984`*^9, + 3.992086803446306*^9}, 3.992101157611391*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"a0d63818-5af8-0142-8ff8-36d51797889c"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431249171696`*^9, 3.991843124921198*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"258ac512-03f3-424e-93ee-86aed42f7780"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.921"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917170151233826`*^9, 3.9917931128910503`*^9, 3.9920859570410233`*^9}, + CellLabel->"In[42]:=",ExpressionUUID->"c1098943-f83d-634e-a451-074cdf3705ed"], + +Cell[BoxData["0.921`"], "Output", + CellChangeTimes->{ + 3.992086057153713*^9, 3.9920862677985992`*^9, 3.992086570642597*^9, + 3.9920866014433823`*^9, 3.9920866675731907`*^9, {3.9920867760553913`*^9, + 3.9920868034683304`*^9}, 3.992101157623268*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"5a6437c5-8318-1f45-b730-ae04b16232c5"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843126102844*^9, 3.991843126104536*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"44a4b217-3a12-9a49-86c6-7bb730d97e55"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "2.422"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, { + 3.9917170243815575`*^9, 3.991717046491377*^9}, 3.991793114539028*^9, + 3.9920859610670395`*^9}, + CellLabel->"In[44]:=",ExpressionUUID->"f9f0ed60-c7b0-9640-832c-69d7b64be9e3"], + +Cell[BoxData["2.422`"], "Output", + CellChangeTimes->{ + 3.9920860571617165`*^9, 3.99208626780674*^9, 3.992086570651617*^9, + 3.992086601467415*^9, 3.9920866675994263`*^9, {3.992086776087263*^9, + 3.9920868034795456`*^9}, 3.992101157637266*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"d62f5506-7706-cc42-8c58-67026a3d210d"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431274420605`*^9, 3.9918431274461517`*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"85153c64-3ee0-b545-802b-0660958a54a9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "1.520"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.991793116134735*^9, 3.9920859650537796`*^9}, + CellLabel->"In[46]:=",ExpressionUUID->"81fd5cca-b4e6-eb4f-b249-e58b286958b5"], + +Cell[BoxData["1.52`"], "Output", + CellChangeTimes->{ + 3.992086057192232*^9, 3.992086267836733*^9, 3.992086570676237*^9, + 3.9920866014884205`*^9, 3.992086667620432*^9, {3.992086776115265*^9, + 3.9920868035049725`*^9}, 3.992101157649267*^9}, + CellLabel->"Out[46]=",ExpressionUUID->"1afbd77d-e4f1-9e4e-a752-ba98d7dd8f68"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843129570627*^9, 3.991843129574024*^9}}, + CellLabel->"In[47]:=",ExpressionUUID->"e2b47040-d8c9-5e42-b8f2-74a7171d0d6c"], + +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[48]:=",ExpressionUUID->"4f430795-a3f2-4043-afa8-6d125e5219dd"], + +Cell[BoxData["31.169618376887957`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.991707979950527*^9, 3.99208605754793*^9, + 3.9920862678957367`*^9, 3.9920865707097645`*^9, 3.992086601521433*^9, + 3.9920866676705303`*^9, {3.9920867761731644`*^9, 3.9920868035374813`*^9}, + 3.992101157706749*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"7420f7af-3ead-3749-b57a-eb08edde6396"] +}, 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[49]:=",ExpressionUUID->"40979b35-fde6-2047-a3c0-d71f140ab8aa"], + +Cell[BoxData["0.6731047036398055`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9917079908393784`*^9, 3.9920860575922737`*^9, + 3.9920862679383984`*^9, 3.992086570747278*^9, 3.9920866015565434`*^9, + 3.992086667708521*^9, {3.9920867762131767`*^9, 3.992086803570322*^9}, + 3.9921011577648582`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"16380e18-1ba2-444a-91a0-c6070e2921b5"] +}, 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[50]:=",ExpressionUUID->"19bf37a0-5998-014c-ba51-61b4a081bdf5"], + +Cell[BoxData[ + RowBox[{"-", "372.70649967012986`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.991707995240637*^9, 3.9920860576318016`*^9, + 3.992086267978388*^9, 3.992086570780279*^9, 3.9920866015855484`*^9, + 3.9920866677442665`*^9, {3.9920867762461967`*^9, 3.992086803601267*^9}, + 3.9921011578198395`*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"26cd2065-73d9-7344-938f-decccc4dfb84"] +}, 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[51]:=",ExpressionUUID->"a27eec37-110d-6245-9258-0590846070f3"], + +Cell[BoxData[ + RowBox[{"-", "1044.7246524682707`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.991707999380541*^9, 3.9920860576748123`*^9, + 3.9920862680234985`*^9, 3.992086570817337*^9, 3.9920866016215477`*^9, + 3.9920866677821484`*^9, {3.992086776283224*^9, 3.992086803636261*^9}, + 3.9921011578838234`*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"bbb9b121-e262-504c-9c61-e85849cc878d"] +}, 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[52]:=",ExpressionUUID->"dea08646-8790-374a-b1e1-a9f90787270f"], + +Cell[BoxData[ + RowBox[{"-", "259.8695599568833`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.991708001954468*^9, 3.992086057718851*^9, + 3.992086268066494*^9, 3.992086570860342*^9, 3.9920866016586037`*^9, + 3.992086667819168*^9, {3.992086776323227*^9, 3.9920868036722755`*^9}, + 3.9921011579468555`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"5ee9861a-4264-b14c-8de5-482f38cf2131"] +}, 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[53]:=",ExpressionUUID->"790e8edf-0829-964a-8673-ab402f0052eb"], + +Cell[BoxData[ + RowBox[{"-", "1495.7852478733544`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.9917080040838356`*^9, 3.992086057776539*^9, + 3.992086268121565*^9, 3.992086570903343*^9, 3.992086601703615*^9, + 3.992086667865225*^9, {3.992086776370306*^9, 3.9920868037133484`*^9}, + 3.99210115801672*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"d5b4f3ac-6f08-6141-bc2d-64ad2febbb93"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"ae47a8e6-15de-3a4d-a0e3-606d1abc5204"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.991708067458639*^9, 3.9920860577975445`*^9, + 3.992086268141716*^9, 3.992086570923395*^9, 3.992086601725624*^9, + 3.992086667870228*^9, {3.992086776398308*^9, 3.9920868037333527`*^9}, + 3.992101158031719*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"500adfe9-84db-5a43-a44b-e46eb6948f0a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"511ac548-1ba3-b447-aed3-6201a9681039"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.9917080674805565`*^9, 3.9920860578025436`*^9, + 3.992086268149719*^9, 3.992086570929405*^9, 3.9920866017452965`*^9, + 3.992086667896475*^9, {3.992086776419306*^9, 3.992086803739353*^9}, + 3.9921011580397224`*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"02d09e2d-5dc5-4d4e-9301-1aa44abf122b"] +}, 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[56]:=",ExpressionUUID->"71a53709-0931-9b46-9464-a9642603eac2"], + +Cell[BoxData["2212.1207838096793`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9917080675026455`*^9, 3.9920860578265495`*^9, + 3.992086268167341*^9, 3.992086570954405*^9, 3.9920866017743587`*^9, + 3.9920866679175053`*^9, {3.992086776426306*^9, 3.9920868037613735`*^9}, + 3.992101158048828*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"b795c298-e60e-5e43-b690-6425a2f89817"] +}, 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[57]:=",ExpressionUUID->"02b71010-ebeb-5c45-b62e-6e5da40a9039"], + +Cell[BoxData[ + RowBox[{"-", "3166.463119014952`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.991708067510544*^9, 3.99208605783457*^9, + 3.9920862681909695`*^9, 3.992086570961405*^9, 3.9920866017975693`*^9, + 3.9920866679425335`*^9, {3.9920867764324074`*^9, 3.9920868037683716`*^9}, + 3.9921011580587196`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"bce8972c-aae9-594f-a717-db8b9a6eea60"] +}, 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[58]:=",ExpressionUUID->"4105a2bc-885a-9c49-9823-cadb72617b61"], + +Cell[BoxData["4780.565019838899`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9917080675337753`*^9, 3.9920860578555565`*^9, + 3.9920862681974792`*^9, 3.992086570983412*^9, 3.9920866018035927`*^9, + 3.992086667948538*^9, {3.992086776457493*^9, 3.9920868037919464`*^9}, + 3.9921011580688286`*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"0a8b86b4-75eb-e84f-8bdd-c72755283be1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"c0b972e2-1e2a-924c-b12e-ff655675d5ee"], + +Cell[BoxData["0.8492253700915684`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.991708067540825*^9, 3.992086057861557*^9, + 3.9920862682165356`*^9, 3.992086570993412*^9, 3.9920866018254967`*^9, + 3.992086667970564*^9, {3.992086776462492*^9, 3.992086803812454*^9}, + 3.9921011580778217`*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"e0a2bfa6-f075-014f-a694-d286331585d9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"7bbd518d-ee7d-f34a-afa5-93d250bf1681"], + +Cell[BoxData[ + RowBox[{"-", "1.1896646126189885`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.991708067561775*^9, 3.9920860578695545`*^9, + 3.9920862682215385`*^9, 3.9920865710174274`*^9, 3.9920866018499928`*^9, + 3.9920866679765587`*^9, {3.9920867764902725`*^9, 3.9920868038194695`*^9}, + 3.9921011580868454`*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"875e5cc6-c373-d641-9031-615e901dd210"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"959162e6-9a6e-ff45-9bbc-85b0866303eb"], + +Cell[BoxData[ + RowBox[{"-", "0.07157823242670158`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.9917080675837746`*^9, 3.992086057898611*^9, + 3.992086268229542*^9, 3.9920865710414886`*^9, 3.992086601870537*^9, + 3.99208666799856*^9, {3.992086776511881*^9, 3.9920868038434715`*^9}, + 3.992101158097843*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"262fb303-2a81-7248-b989-9cbbe23eafbc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"8086e113-5e34-1043-804a-fd3fefeeaf1a"], + +Cell[BoxData["0.36531988493615475`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.9917080675917854`*^9, 3.9920860579196167`*^9, + 3.9920862682466774`*^9, 3.992086571067438*^9, 3.9920866018954678`*^9, + 3.992086668004545*^9, {3.992086776540409*^9, 3.9920868038534584`*^9}, + 3.992101158106846*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"e10a9c4d-04a8-914e-9890-a9ff43611f53"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"c1230acc-9188-a146-be4a-d76917ffbc66"], + +Cell[BoxData["1.3932112707868565`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.991708067612774*^9, 3.992086057924618*^9, + 3.9920862682647114`*^9, 3.9920865710734444`*^9, 3.99208660190147*^9, + 3.992086668009548*^9, {3.9920867765645065`*^9, 3.9920868038804703`*^9}, + 3.9921011581157207`*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"2c8c8238-6710-b542-a3c3-5487b2f0b4c6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"70656adf-941f-8147-afa8-d0eb1c319a31"], + +Cell[BoxData["3.0097040215395996`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.991708067619776*^9, 3.9920860579496193`*^9, + 3.9920862682697086`*^9, 3.9920865711034584`*^9, 3.992086601925476*^9, + 3.9920866680342903`*^9, {3.992086776570503*^9, 3.99208680388603*^9}, + 3.9921011581248264`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"a3166d3c-9424-2540-8974-1666e9b456af"] +}, 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[65]:=",ExpressionUUID->"8649d9fb-b2b4-6c49-893b-2df07ccbf42c"], + +Cell[BoxData[ + RowBox[{"-", "5.270467564360312`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.991708067640772*^9, 3.9920860579616146`*^9, + 3.9920862682944393`*^9, 3.992086571123514*^9, 3.992086601930479*^9, + 3.9920866680632725`*^9, {3.99208677659153*^9, 3.9920868039130783`*^9}, + 3.992101158133852*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"1915069e-4cc5-ed4b-abbb-12dfc4f2569a"] +}, 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[66]:=",ExpressionUUID->"fc6dce02-59c7-ea44-a554-a4bdca467974"], + +Cell[BoxData[ + RowBox[{"-", "51.15351790227487`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.991708067662775*^9, 3.9920860579829197`*^9, + 3.992086268301441*^9, 3.992086571129526*^9, 3.992086601955652*^9, + 3.992086668069273*^9, {3.9920867766018753`*^9, 3.9920868039341793`*^9}, + 3.9921011581457176`*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"bdd0feb8-60af-344c-b34d-53179761962a"] +}, 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[67]:=",ExpressionUUID->"adae67d7-bc50-7649-b94d-fec5a188ac2e"], + +Cell[BoxData["2206.850316245319`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.991708067669775*^9, 3.992086057988922*^9, + 3.9920862683069553`*^9, 3.992086571153517*^9, 3.9920866019616756`*^9, + 3.9920866680988617`*^9, {3.992086776625183*^9, 3.992086803955179*^9}, + 3.992101158154848*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"6ae1ed77-4f9f-894e-93af-1f29b62a8885"] +}, 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[68]:=",ExpressionUUID->"bfe0d5b4-f04e-e44b-851a-766cd65ca74f"], + +Cell[BoxData[ + RowBox[{"-", "3166.463119014952`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.991708067690773*^9, 3.9920860580136375`*^9, + 3.9920862683254623`*^9, 3.9920865711785164`*^9, 3.9920866019914055`*^9, + 3.992086668104372*^9, {3.99208677663167*^9, 3.9920868039611816`*^9}, + 3.9921011581647224`*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"ae1c0e86-c544-ea47-a538-4c064b6f2b72"] +}, 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[69]:=",ExpressionUUID->"bfed6d3b-d506-874a-8c92-a614da11466e"], + +Cell[BoxData["4729.4115019366245`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.991708067697775*^9, 3.9920860580186367`*^9, + 3.992086268332466*^9, 3.9920865711994247`*^9, 3.9920866020163975`*^9, + 3.992086668129669*^9, {3.9920867766542397`*^9, 3.992086803983183*^9}, + 3.992101158175844*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"9db746cf-bd78-e546-83a7-38575de37952"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"2c5fdb57-2b2e-504d-af64-a4390c61ddf3"], + +Cell[BoxData["199.42817651512246`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.9917080677197742`*^9, 3.9920860580256405`*^9, + 3.992086268355482*^9, 3.9920865712064476`*^9, 3.992086602022396*^9, + 3.992086668135229*^9, {3.992086776660242*^9, 3.992086803989208*^9}, + 3.992101158187044*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"ff42d3d0-e9e4-6b49-88aa-8b2b8df42faa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"0e044b6a-eca5-8043-907f-b0d8a935429c"], + +Cell[BoxData["6725.14571990162`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.991708067726776*^9, 3.9920860580466385`*^9, + 3.9920862683614655`*^9, 3.992086571211939*^9, 3.9920866020454216`*^9, + 3.99208666816308*^9, {3.9920867766842403`*^9, 3.9920868040112057`*^9}, + 3.9921011582012424`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"44bd3aa8-99e1-5a4e-ba1b-32ddb86158a9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.524334841228278"}]], "Input", + CellChangeTimes->{3.991846457174755*^9, 3.992088598180334*^9}, + CellLabel->"In[72]:=",ExpressionUUID->"58382c59-dd64-b449-aa77-b500c631729a"], + +Cell[BoxData["0.524334841228278`"], "Output", + CellChangeTimes->{3.991339230490425*^9, 3.9921011582093563`*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"f1bbbdee-ed4c-1c45-9f1d-f9076c5ff6df"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.902604856378696"}]], "Input", + CellChangeTimes->{3.9918464585717087`*^9, 3.992088602549412*^9}, + CellLabel->"In[73]:=",ExpressionUUID->"1e2a9573-08d6-094d-b2f8-1c2ad58521b5"], + +Cell[BoxData["0.902604856378696`"], "Output", + CellChangeTimes->{3.991339230517523*^9, 3.9921011582197456`*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"08db4283-ed4b-4449-9000-7264777672f8"] +}, Open ]], + +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[74]:=",ExpressionUUID->"ee9e3f9b-cd15-314a-959e-23f6767d8629"], + +Cell[BoxData["9.103990235902606`*^-54"], "Output", + CellChangeTimes->{3.991339230528511*^9, 3.992101158228859*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"c5fca004-4066-954a-91e6-e6f81e869e6d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + 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"]}]], "*", "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, {3.9915581887684402`*^9, 3.991558193612196*^9}}, + CellLabel->"In[75]:=",ExpressionUUID->"edc47846-771c-164b-bedc-99ac8c0783df"], + +Cell[BoxData["4.6607566161458405`*^-55"], "Output", + CellChangeTimes->{3.991339230554512*^9, 3.9921011582667217`*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"920ed119-6d3d-ef41-b24c-9edc81255f65"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + 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"]}]], "*", + 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}, + 3.9915581864980736`*^9}, + CellLabel->"In[76]:=",ExpressionUUID->"a1f930ec-56b4-2f43-abd0-dd8b8a4708b1"], + +Cell[BoxData["7.914241537250374`*^-54"], "Output", + CellChangeTimes->{3.9913392305796223`*^9, 3.9921011582825985`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"cf34a479-4552-6d4e-b5a3-dca5051d9d53"] +}, 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[77]:=",ExpressionUUID->"41ba9715-7e52-a24a-aa04-cf2166cf0dfa"], + +Cell[BoxData["61.44238060379939`"], "Output", + CellChangeTimes->{3.9913392305906105`*^9, 3.9921011582916985`*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"55dcbc68-472e-9b45-852c-a595ff441c37"] +}, 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[78]:=",ExpressionUUID->"163fb4a0-76e7-4649-86cb-bfaf41944c98"], + +Cell[BoxData["233.5707701444674`"], "Output", + CellChangeTimes->{3.99133923061561*^9, 3.992101158299721*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"94f3dc60-b60a-6a48-b91e-aef89a6e24ce"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[79]:=",ExpressionUUID->"5f0f180a-aa4c-dd4b-bdd8-1378a8fe1b95"], + +Cell[BoxData["1.8016036043009018`"], "Output", + CellChangeTimes->{3.9913392306426105`*^9, 3.9921011583097134`*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"0cb20c04-93ab-4c49-98d8-85a98afa9f47"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[80]:=",ExpressionUUID->"1922f255-2223-ac46-b784-0bce07b8e6a9"], + +Cell[BoxData["5.365887994763638`"], "Output", + CellChangeTimes->{3.99133923065361*^9, 3.992101158318598*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"47a33522-af54-0a45-b000-1b27fa13dd11"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[81]:=",ExpressionUUID->"ef536efb-880a-d543-b7af-57dde3479623"], + +Cell[BoxData["1253.3145914458948`"], "Output", + CellChangeTimes->{3.9913392306776104`*^9, 3.992101158328596*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"dacfb8cd-894d-2443-b9c4-f66e52a81132"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"23ab10a2-3c20-0544-ade1-f1d12ec5aec2"], + +Cell[BoxData["110.6948143526328`"], "Output", + CellChangeTimes->{3.991339230703802*^9, 3.9921011583381596`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"89a0b9ee-2690-a34c-ac14-56ed151c8ba3"] +}, 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[83]:=",ExpressionUUID->"aca75c7d-c5bb-8b47-872f-20148e5c7111"], + +Cell[BoxData["0.008728179927406914`"], "Output", + CellChangeTimes->{3.9913392307297993`*^9, 3.992101158350113*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"b7f17378-ae8f-8a4c-8619-70ee881b39c4"] +}, 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[84]:=",ExpressionUUID->"cd1abe66-0480-c04d-bbfd-f65271be3b80"], + +Cell[BoxData["9.48599945701404`"], "Output", + CellChangeTimes->{3.991339230837267*^9, 3.9921011584269447`*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"991d1bde-412b-8e44-beb9-56079748f38b"] +}, 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[85]:=",ExpressionUUID->"c96cc89e-a2d4-f442-8558-837587935139"], + +Cell[BoxData["0.0008140150330969787`"], "Output", + CellChangeTimes->{3.9913392308522797`*^9, 3.9921011584387074`*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"455fbf97-3fcb-5948-a490-a64b84693d94"] +}, 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[86]:=",ExpressionUUID->"1997c8c5-b99e-0343-82de-11d88a9a1347"], + +Cell[BoxData["31.061950834919497`"], "Output", + CellChangeTimes->{3.991339230966341*^9, 3.992101158513544*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"bba0c568-37d5-e043-9bc7-207daf324f5e"] +}, 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[87]:=",ExpressionUUID->"b151d79d-271f-514b-8b93-936c1a72f6cb"], + +Cell[BoxData["0.9443844844348241`"], "Output", + CellChangeTimes->{3.991339230988348*^9, 3.992101158525505*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"3e21c97f-0daf-5543-a954-ef04b0455527"] +}, 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[88]:=",ExpressionUUID->"ca085857-4c01-0248-853e-e9dc47d19120"], + +Cell[BoxData["0.05561551556517575`"], "Output", + CellChangeTimes->{3.991339231030445*^9, 3.992101158537636*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"d352d455-3052-b546-8375-1c606f4f65b8"] +}, 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[89]:=",ExpressionUUID->"953e3c2f-fb9c-3f46-89c8-95be764d13e2"], + +Cell[BoxData["0.05252242999359545`"], "Output", + CellChangeTimes->{3.991339231060343*^9, 3.992101158549719*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"6fe5344e-63e5-dd43-89ea-91a605b576bf"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[90]:=",ExpressionUUID->"ea9dfb1b-57ad-0148-b647-106c07557f97"], + +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.9918464744109974`*^9}, + CellLabel->"In[91]:=",ExpressionUUID->"b8b3f009-678c-e54b-8a0c-4de3179a9fb0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.5999031455581303`*^-238\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 91, 438, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392310873375`*^9, 3.992101158570717*^9}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"0d8aa19f-2d03-604c-8faf-7a1893a3096f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.811065790338395`*^-245\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 91, 439, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392310873375`*^9, 3.9921011585857162`*^9}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"91d39584-f1e9-1641-8c25-c525b30d1a86"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.03192204412294`*^-252\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 91, 440, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392310873375`*^9, 3.9921011585917187`*^9}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"4e985c69-4e22-784c-848a-4a04a11e08e2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 91, 441, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392310873375`*^9, 3.99210115859774*^9}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"8a2e98d1-96d0-e548-b622-f83ea2d6e690"], + +Cell[BoxData["9.485999457014051`"], "Output", + CellChangeTimes->{3.9913392346332226`*^9, 3.992101160721525*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"354699f2-0a91-c44f-a9e6-8537dac067d8"] +}, 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.9918464780941105`*^9}, + CellLabel->"In[92]:=",ExpressionUUID->"d9fdb976-d745-4c44-9c66-2929c00590fc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.5999031455581303`*^-238\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 92, 442, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339234667631*^9, 3.992101160776186*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"4a14d5fc-c4a8-0243-969b-f80ee10b53e3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.811065790338395`*^-245\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 92, 443, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339234667631*^9, 3.9921011607821865`*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"3dcf1e01-9ab3-214b-8ea5-137076d45e2d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.03192204412294`*^-252\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 92, 444, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339234667631*^9, 3.992101160788183*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"3f73be19-027e-fe4d-8c4c-5cbebd108aa5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 92, 445, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339234667631*^9, 3.9921011607931843`*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"4740b54e-e341-5e4f-ad37-8c51ce73fa06"], + +Cell[BoxData["31.061950834919486`"], "Output", + CellChangeTimes->{3.99133923819088*^9, 3.9921011628802776`*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"090362cc-a4b7-1147-8131-58262e0ffe5b"] +}, 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.9918464867236023`*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"a3abef6a-80f9-8c44-ac94-1eacd8c5b802"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k4Fd8fB3AJLZZQtmRfilJyrSnnY0uELAnZuXdIllzSjVD2EqFF+SZ7 +SZaIFuTbt1QqxS9aSEKoxn7HnvI7/phnntdzZt7nc86ZM8+MnHewHYOTg4Nj +FB/L55B32zc/aHtnILk1V3S3H4kMxoq0vE3KUO6/u/SW3ZurfUnRpAFJyPHm +L9uG/paHj/YcJVsLWu/BrmLFPOM2aUEzphZggH32hfiTmNL/oRiuRycQ9qO2 +kBuLGh/QXKLrFGCTXa9Pnaz/jJaaNe8bYW8cVHCZMe5GCc8NH5tg7x8/pRfa +8g19Co9bY4bduEjyskr7UMjH+Wxz7I9nxCLvB31HS91FIZbYYzwm5JTGIDoU +G596AJvn/DFn2uwQuvX46pgdtrRQTnNI/U/kl9B36RC2teTMzTHjEZR9QbDK +HZvIkxdVWz2GJupmlH2wY5QOJBxtGUcnTYT6fbE/i3XsDCudREz975uZ2PTD +/kcunmejCynZ1SewJ65z5FcHUchpKSE2Cnu1vJrgpMY0ahWYnzyLfYn+zExQ +ZAbJJp3OSMeWveUcs2N2Bm3t1g/PwtbdljgWWD+HtN5arbuJ7af9rYU0XkTX +w7pjXmBPsY5zrVX+gz6f4TBvxT5dz7tbZfVfJPvI0fEz9lXQvePbsoSS9+Qa +Dy/XV9xswixdAdbZFw5vOEKi0hcXe89IcsKeeXMrGeyJH+6nMs5zwliOdoIq +9inV6Xt3g1ZCos7NJkPsS5VyCuMa3ODyu+tMKHZX20jj30JuiOpWuHEaW5b9 +4LCACA+cGM1ZSsUu07TOVJvlgRRupczb2E2PIlYE1K+GtIqI6e/Y08/av/00 +5oM9btK1DH8SCVvyCUY28kF/xO8bLGz1DhPg1+MH5brNXSnY/gO1eTu3C8CN +awEm97CPcbao7+EThPS4vJ/cR0k0KF8xmTAjBBlVzOA67Cni9ZpWmjB40OSC +3mNz3hmSEw8RBhnzjY0ktixNxq50WBj6hkjbTQEkOmycXv2udz2surO4Lw67 +1YcZKvZGBPL+vRTmGUiinltpKZ6rRaEr51lSFPbIcGnhbVNRaPDXGcnGXhv2 +vV3/iSh8gZGSj9gm8Qc1PWvF4NvdmEnbIBLVFWlPl+RKgGLWRKNjMImKBhfC +d4VJQdG1T2Z5ISTa55DUE1ouBeM1T4easEea1u8tH5ICr4XIll/YmkXbRGSd +paHN3DFAk4nn09v9HreBDMTUFP1pwWaP9574GScLARVaBG8YidYHmtTcs5KH +d9869z8OJ9FQ0Vo/G395yKgufEZiP+xukxxNlIcKzW2x4idI5GrpFqf8RB7K +N51oD8Mu2hpud01DAbKkBl+os3D/5K2JaDFFuMZVNFF7kkQHfXnVLPqUYHNt +2v7pUyRC4Q4ajn+UYDywLFk1ikSqCbk6dAlleDt3f40nNkchzSjaVhmmeNM/ +vcEu73FxrP5PGVpLoOBmNN6fh8rObCzYDFd+8lF+p3F9JlYfSW8VWNtbFiUb +T6JC+6wvs9Eq8OqlnI47dpp3Xy/XPypgKxCkeR2bfvr4sHS7CjS/PbsgnkAi +oYYcDntjVbgS9ahGJBE/P7Qx1XqFrRDYY9srmUwiSfkLMSkD22DadU7A5TyJ +Gs5NqcxzqoFDjrLuLWxXyrmDkFOD8VDeKgr7RpOiipG7GnhfnMpITSWRvG/d ++7lPaqAlqyz4PA2Pt2xQiXizHRi7BP4YZZBISlKakHVWh043Mj3iCom2FYfx +/UYaELVR2PVzPom86XHTatYacIWQ+LuzAO9XhcweT1cNuKpiPpiCvbKg8u4L +lgb0HZOKg0K8326QBzOrNGDEirVYVoTfp1c9c1QUaLDxw+hA5i28vimW2514 +NAEl2cRnlpMon6loU9uiBVZPe2o860jUFo504ov1IG+Vk/z7ThLJuX+wdgvY +A5UcTguZf0jEWLpfIXUSwKiddQ8UhpHY8MNVYt5GUBva6fXKZhiF0XZ3Z6qa +wIlQASiMGUbeo4vN60lTuF+Wb3G5ahiVG4Wuym01gw+/PA1oI8OoaMr/v7JL +5mBI8z0zpzyC5gzF3zbF7Iec97YJXEdH0FeOlZN9XlYQN/RgtXj1CAraFJx+ +RuEAbLlSXS88N4IqjjQ/uZxgA+0b3hzrNBtFEZTE7NYjttB5JwVeXx5F0xZ7 +D730sIMv8ZeYH0ZHkZ5LhuGgrT2IeRWPlpmNofcSOf5NtIMwdzxxm+WNMbTx +ZlxDyRYHeCV4OW/p7xh62Ktqac1/COQYRVM5LuNIumPCN3z0EBir3Za2eTiO +aJczygp7HcFu4XKw3boJlMNFbc985gQ/WHuTH6IJdN9wR1fCI2dgnI/ecyds +Al3VOSe0WHoY+uM0Bn6VTKDWL8WJtPMusBAe9upW5wSqtbqueOy0K7TE2Aqa +CkyiyUB7jiC6G8Tlf9v302ASTe9V8RszdgezUM/pwcBJVDLaOReq7QEvHzyP +/Jg7iZzyi33c+DyhMT62Xe3tJLpXvd9jZZInPG7if1eyOIn0JN/Pn533BBnV +f40UN7ORQq9v1/+OeIFYkJbsa2s2GuA9euD6dy+4X3W33/gEG7WlWfuYOXhD +cK1UD5HNRpdYubzH27whUZUStX3MRg2NS/M+5j4Q7eFgL9vNRutcIYlW5wM0 +tdj8lGk2kt3wsnVTgw9YeCzEs7HVW6zEeRp9gJuK2+I8w0Z2u11uf/7PB3jI +zEqlWZy/KfxN1CsfYIeINdTPsdHGr3fWNX/2gWrHC0+//GYjRXexq66zPrD/ +daTS8AoK6XmOlSRo0uHQaLOHCT+Fbl6bCLXWpsO9mXC5y9gb2tkGYrp08MrP +KBnEHjOd7SjRp8Pb0kGeRAEKv784VrQY0eFzxSxn0zoKCcwKOQvb0qFxh92E +pjCFBlK11uQG0sEvtsaNFKWQ7UudDt9gOvztYtXRxCjUyLErVz2EDjyro76c +wr4WaqD1NIwO59bK+QuIU8ja2cxrMJIOep49D7dLUOiRovOjrefooEGP2ECX +pFBa/akjD2/SwceYOzlfhkKBGll6rBI6FG3TEerHtrxdtUa3lA7a76Y95GUp +tDZr6PaDcjrYPl2wKsBOYNqQ92vosCnrwNFcOQqdUlE8WvuUDkoj/xSlKVDI +P+tNQHUPzk/o6IHNFDIXGNrN7KWDToUTbwT2lgQOfo1+OsRHxy5WYw8xtcqr +BnF/M3e2KW6hkJd17ujdETpwDVx7tlIFf6dwhwZVLtBBmCby4oEqhcxCNx4r +E2VA8bq0CbYahZ7mJlpkijMgZdb8y5btFNrdwlZkbWSAZ49OjDu2utKbTmNp +BiwxU9jN2BKfIo2/KDFgwR0Ss3dQaHjXV9G1WgwYPxLuor6TQhc48x772jMg +6UBjirImHv8OvqtWDgyQ92tLs8eOd2ExaY4MsD2hZXEam1Vjs3npMAMS1L79 ++oztRazIuOLNgMH1nC2JWhSivfamPw9hwA/3HaIftCn0KUOJVyGdASK/Y6/p +61GoAvH7/cxgQOqAiZYbdvzoVFP5RQZcTP6bEY2tYd4UrZuF643fl/YEO43D +h211gwEr8p5nGO6i0N7gvE5WGQN09See6OhTSEoqWdugggGLDgf8HbCnXgdf +XHmXAdsbfTuY2AXKyCrtHp4/spYsw/7z9euTwjo83gwfGendFKqxlCx518wA +69TF4inslAVO7kuvGZC81dJZYA+FvEtIL+cWBuwNlH67GVuQq05yoJUB04YG +M87YAfVOF+Y/MiCiZoN1PbaC6pVwxUGcfyVWiGlAoYVPUe2/hhjgUZr5Jgm7 +LYGhXvmTAWpnZ0xzsKP7NEm9EQa4clVGvsTuutrudoDC66uRTYojCmWuEjKN +WEEAOKh1VGI3sL+6hK0kYIMTceMZ9o+vpcwgbgI8D4tKfMLeXWOS572GAAun +Vpk/2EOerN8WQgS0PrdnmgKu39JU2HQ9AR8W2P8ewtbXEVZBIgSU0NmPfbHT ++csO0SQI4HRZ9SZ5ub3uW5WkHAEa8sYqL7GJ4rJmEQUCZGevz39Yvj795Ld1 +SgSUmxtHDGAPEev5uVQIUAoPOM9hiNvXm/mNqBOgzz1NaWLX/V0fM6SB6z0b +vtcQe/BX7+VeTQJ4ftHMrbB3PYl41qFLgH3HYQ869kBAhfRjIMDLcMu7NGwB +p0itB0YExO90LLiKrWe8z7LKhABWSI1yAXaaRP/J4n0EdHFPoRrsh1yV6bkW +BPyX0t7RgP19PPLWNUuc1/RF4jm27guRD6k2BHTqetV0YHtX9Q8n2RGgvKZ7 +TTd26vVKztiDeL5rI9Z9x+5nmquHOxEwayOzdQKb313U7NhhAvx1FQxnlvPM +v7v5u+L6yL2rFpfvl4lKcfckYFiJLOQxwvWstShw8sbrscYvghe7f1r0kR2d +gLOBnCsEsfn7vrdaEgS45zzU2YCt23J3aK8fAfhvRVoc2/tB1B/wJ4BoO14r +iZ1aYLFBP4AA0dLIRenl/FSxrVpBBPQvZlNyy/msAcMdxwhYZd+erYjNR69y +UmESoGisyFbG1jkQHawQRoDhsdT5Lcv5u/YnSoUT8PKsQJUq9nkl8RwxFgFJ ++2+Jb8O+Lzh4TyiCgLooR3U17L7fVa95TxHwe0p6btl8P6L7uKMJMMv8E7wd +W/v9/rmlGAL4jamsZf8f0GYMgA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Fd8fB3AJLZZQtmRfilJyrSnnY0uELAnZuXdIllzSjVD2EqFF+SZ7 +SZaIFuTbt1QqxS9aSEKoxn7HnvI7/phnntdzZt7nc86ZM8+MnHewHYOTg4Nj +FB/L55B32zc/aHtnILk1V3S3H4kMxoq0vE3KUO6/u/SW3ZurfUnRpAFJyPHm +L9uG/paHj/YcJVsLWu/BrmLFPOM2aUEzphZggH32hfiTmNL/oRiuRycQ9qO2 +kBuLGh/QXKLrFGCTXa9Pnaz/jJaaNe8bYW8cVHCZMe5GCc8NH5tg7x8/pRfa +8g19Co9bY4bduEjyskr7UMjH+Wxz7I9nxCLvB31HS91FIZbYYzwm5JTGIDoU +G596AJvn/DFn2uwQuvX46pgdtrRQTnNI/U/kl9B36RC2teTMzTHjEZR9QbDK +HZvIkxdVWz2GJupmlH2wY5QOJBxtGUcnTYT6fbE/i3XsDCudREz975uZ2PTD +/kcunmejCynZ1SewJ65z5FcHUchpKSE2Cnu1vJrgpMY0ahWYnzyLfYn+zExQ +ZAbJJp3OSMeWveUcs2N2Bm3t1g/PwtbdljgWWD+HtN5arbuJ7af9rYU0XkTX +w7pjXmBPsY5zrVX+gz6f4TBvxT5dz7tbZfVfJPvI0fEz9lXQvePbsoSS9+Qa +Dy/XV9xswixdAdbZFw5vOEKi0hcXe89IcsKeeXMrGeyJH+6nMs5zwliOdoIq +9inV6Xt3g1ZCos7NJkPsS5VyCuMa3ODyu+tMKHZX20jj30JuiOpWuHEaW5b9 +4LCACA+cGM1ZSsUu07TOVJvlgRRupczb2E2PIlYE1K+GtIqI6e/Y08/av/00 +5oM9btK1DH8SCVvyCUY28kF/xO8bLGz1DhPg1+MH5brNXSnY/gO1eTu3C8CN +awEm97CPcbao7+EThPS4vJ/cR0k0KF8xmTAjBBlVzOA67Cni9ZpWmjB40OSC +3mNz3hmSEw8RBhnzjY0ktixNxq50WBj6hkjbTQEkOmycXv2udz2surO4Lw67 +1YcZKvZGBPL+vRTmGUiinltpKZ6rRaEr51lSFPbIcGnhbVNRaPDXGcnGXhv2 +vV3/iSh8gZGSj9gm8Qc1PWvF4NvdmEnbIBLVFWlPl+RKgGLWRKNjMImKBhfC +d4VJQdG1T2Z5ISTa55DUE1ouBeM1T4easEea1u8tH5ICr4XIll/YmkXbRGSd +paHN3DFAk4nn09v9HreBDMTUFP1pwWaP9574GScLARVaBG8YidYHmtTcs5KH +d9869z8OJ9FQ0Vo/G395yKgufEZiP+xukxxNlIcKzW2x4idI5GrpFqf8RB7K +N51oD8Mu2hpud01DAbKkBl+os3D/5K2JaDFFuMZVNFF7kkQHfXnVLPqUYHNt +2v7pUyRC4Q4ajn+UYDywLFk1ikSqCbk6dAlleDt3f40nNkchzSjaVhmmeNM/ +vcEu73FxrP5PGVpLoOBmNN6fh8rObCzYDFd+8lF+p3F9JlYfSW8VWNtbFiUb +T6JC+6wvs9Eq8OqlnI47dpp3Xy/XPypgKxCkeR2bfvr4sHS7CjS/PbsgnkAi +oYYcDntjVbgS9ahGJBE/P7Qx1XqFrRDYY9srmUwiSfkLMSkD22DadU7A5TyJ +Gs5NqcxzqoFDjrLuLWxXyrmDkFOD8VDeKgr7RpOiipG7GnhfnMpITSWRvG/d ++7lPaqAlqyz4PA2Pt2xQiXizHRi7BP4YZZBISlKakHVWh043Mj3iCom2FYfx +/UYaELVR2PVzPom86XHTatYacIWQ+LuzAO9XhcweT1cNuKpiPpiCvbKg8u4L +lgb0HZOKg0K8326QBzOrNGDEirVYVoTfp1c9c1QUaLDxw+hA5i28vimW2514 +NAEl2cRnlpMon6loU9uiBVZPe2o860jUFo504ov1IG+Vk/z7ThLJuX+wdgvY +A5UcTguZf0jEWLpfIXUSwKiddQ8UhpHY8MNVYt5GUBva6fXKZhiF0XZ3Z6qa +wIlQASiMGUbeo4vN60lTuF+Wb3G5ahiVG4Wuym01gw+/PA1oI8OoaMr/v7JL +5mBI8z0zpzyC5gzF3zbF7Iec97YJXEdH0FeOlZN9XlYQN/RgtXj1CAraFJx+ +RuEAbLlSXS88N4IqjjQ/uZxgA+0b3hzrNBtFEZTE7NYjttB5JwVeXx5F0xZ7 +D730sIMv8ZeYH0ZHkZ5LhuGgrT2IeRWPlpmNofcSOf5NtIMwdzxxm+WNMbTx +ZlxDyRYHeCV4OW/p7xh62Ktqac1/COQYRVM5LuNIumPCN3z0EBir3Za2eTiO +aJczygp7HcFu4XKw3boJlMNFbc985gQ/WHuTH6IJdN9wR1fCI2dgnI/ecyds +Al3VOSe0WHoY+uM0Bn6VTKDWL8WJtPMusBAe9upW5wSqtbqueOy0K7TE2Aqa +CkyiyUB7jiC6G8Tlf9v302ASTe9V8RszdgezUM/pwcBJVDLaOReq7QEvHzyP +/Jg7iZzyi33c+DyhMT62Xe3tJLpXvd9jZZInPG7if1eyOIn0JN/Pn533BBnV +f40UN7ORQq9v1/+OeIFYkJbsa2s2GuA9euD6dy+4X3W33/gEG7WlWfuYOXhD +cK1UD5HNRpdYubzH27whUZUStX3MRg2NS/M+5j4Q7eFgL9vNRutcIYlW5wM0 +tdj8lGk2kt3wsnVTgw9YeCzEs7HVW6zEeRp9gJuK2+I8w0Z2u11uf/7PB3jI +zEqlWZy/KfxN1CsfYIeINdTPsdHGr3fWNX/2gWrHC0+//GYjRXexq66zPrD/ +daTS8AoK6XmOlSRo0uHQaLOHCT+Fbl6bCLXWpsO9mXC5y9gb2tkGYrp08MrP +KBnEHjOd7SjRp8Pb0kGeRAEKv784VrQY0eFzxSxn0zoKCcwKOQvb0qFxh92E +pjCFBlK11uQG0sEvtsaNFKWQ7UudDt9gOvztYtXRxCjUyLErVz2EDjyro76c +wr4WaqD1NIwO59bK+QuIU8ja2cxrMJIOep49D7dLUOiRovOjrefooEGP2ECX +pFBa/akjD2/SwceYOzlfhkKBGll6rBI6FG3TEerHtrxdtUa3lA7a76Y95GUp +tDZr6PaDcjrYPl2wKsBOYNqQ92vosCnrwNFcOQqdUlE8WvuUDkoj/xSlKVDI +P+tNQHUPzk/o6IHNFDIXGNrN7KWDToUTbwT2lgQOfo1+OsRHxy5WYw8xtcqr +BnF/M3e2KW6hkJd17ujdETpwDVx7tlIFf6dwhwZVLtBBmCby4oEqhcxCNx4r +E2VA8bq0CbYahZ7mJlpkijMgZdb8y5btFNrdwlZkbWSAZ49OjDu2utKbTmNp +BiwxU9jN2BKfIo2/KDFgwR0Ss3dQaHjXV9G1WgwYPxLuor6TQhc48x772jMg +6UBjirImHv8OvqtWDgyQ92tLs8eOd2ExaY4MsD2hZXEam1Vjs3npMAMS1L79 ++oztRazIuOLNgMH1nC2JWhSivfamPw9hwA/3HaIftCn0KUOJVyGdASK/Y6/p +61GoAvH7/cxgQOqAiZYbdvzoVFP5RQZcTP6bEY2tYd4UrZuF643fl/YEO43D +h211gwEr8p5nGO6i0N7gvE5WGQN09See6OhTSEoqWdugggGLDgf8HbCnXgdf +XHmXAdsbfTuY2AXKyCrtHp4/spYsw/7z9euTwjo83gwfGendFKqxlCx518wA +69TF4inslAVO7kuvGZC81dJZYA+FvEtIL+cWBuwNlH67GVuQq05yoJUB04YG +M87YAfVOF+Y/MiCiZoN1PbaC6pVwxUGcfyVWiGlAoYVPUe2/hhjgUZr5Jgm7 +LYGhXvmTAWpnZ0xzsKP7NEm9EQa4clVGvsTuutrudoDC66uRTYojCmWuEjKN +WEEAOKh1VGI3sL+6hK0kYIMTceMZ9o+vpcwgbgI8D4tKfMLeXWOS572GAAun +Vpk/2EOerN8WQgS0PrdnmgKu39JU2HQ9AR8W2P8ewtbXEVZBIgSU0NmPfbHT ++csO0SQI4HRZ9SZ5ub3uW5WkHAEa8sYqL7GJ4rJmEQUCZGevz39Yvj795Ld1 +SgSUmxtHDGAPEev5uVQIUAoPOM9hiNvXm/mNqBOgzz1NaWLX/V0fM6SB6z0b +vtcQe/BX7+VeTQJ4ftHMrbB3PYl41qFLgH3HYQ869kBAhfRjIMDLcMu7NGwB +p0itB0YExO90LLiKrWe8z7LKhABWSI1yAXaaRP/J4n0EdHFPoRrsh1yV6bkW +BPyX0t7RgP19PPLWNUuc1/RF4jm27guRD6k2BHTqetV0YHtX9Q8n2RGgvKZ7 +TTd26vVKztiDeL5rI9Z9x+5nmquHOxEwayOzdQKb313U7NhhAvx1FQxnlvPM +v7v5u+L6yL2rFpfvl4lKcfckYFiJLOQxwvWstShw8sbrscYvghe7f1r0kR2d +gLOBnCsEsfn7vrdaEgS45zzU2YCt23J3aK8fAfhvRVoc2/tB1B/wJ4BoO14r +iZ1aYLFBP4AA0dLIRenl/FSxrVpBBPQvZlNyy/msAcMdxwhYZd+erYjNR69y +UmESoGisyFbG1jkQHawQRoDhsdT5Lcv5u/YnSoUT8PKsQJUq9nkl8RwxFgFJ ++2+Jb8O+Lzh4TyiCgLooR3U17L7fVa95TxHwe0p6btl8P6L7uKMJMMv8E7wd +W/v9/rmlGAL4jamsZf8f0GYMgA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.8252239648657879, + 1.2036577163273166`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.8252239648657897}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.8252239648657879, + 1.2036577163273166`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.8252239648657897}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Fd8fB3AJLZZQtmRfilJyrSnnY0uELAnZuXdIllzSjVD2EqFF+SZ7 +SZaIFuTbt1QqxS9aSEKoxn7HnvI7/phnntdzZt7nc86ZM8+MnHewHYOTg4Nj +FB/L55B32zc/aHtnILk1V3S3H4kMxoq0vE3KUO6/u/SW3ZurfUnRpAFJyPHm +L9uG/paHj/YcJVsLWu/BrmLFPOM2aUEzphZggH32hfiTmNL/oRiuRycQ9qO2 +kBuLGh/QXKLrFGCTXa9Pnaz/jJaaNe8bYW8cVHCZMe5GCc8NH5tg7x8/pRfa +8g19Co9bY4bduEjyskr7UMjH+Wxz7I9nxCLvB31HS91FIZbYYzwm5JTGIDoU +G596AJvn/DFn2uwQuvX46pgdtrRQTnNI/U/kl9B36RC2teTMzTHjEZR9QbDK +HZvIkxdVWz2GJupmlH2wY5QOJBxtGUcnTYT6fbE/i3XsDCudREz975uZ2PTD +/kcunmejCynZ1SewJ65z5FcHUchpKSE2Cnu1vJrgpMY0ahWYnzyLfYn+zExQ +ZAbJJp3OSMeWveUcs2N2Bm3t1g/PwtbdljgWWD+HtN5arbuJ7af9rYU0XkTX +w7pjXmBPsY5zrVX+gz6f4TBvxT5dz7tbZfVfJPvI0fEz9lXQvePbsoSS9+Qa +Dy/XV9xswixdAdbZFw5vOEKi0hcXe89IcsKeeXMrGeyJH+6nMs5zwliOdoIq +9inV6Xt3g1ZCos7NJkPsS5VyCuMa3ODyu+tMKHZX20jj30JuiOpWuHEaW5b9 +4LCACA+cGM1ZSsUu07TOVJvlgRRupczb2E2PIlYE1K+GtIqI6e/Y08/av/00 +5oM9btK1DH8SCVvyCUY28kF/xO8bLGz1DhPg1+MH5brNXSnY/gO1eTu3C8CN +awEm97CPcbao7+EThPS4vJ/cR0k0KF8xmTAjBBlVzOA67Cni9ZpWmjB40OSC +3mNz3hmSEw8RBhnzjY0ktixNxq50WBj6hkjbTQEkOmycXv2udz2surO4Lw67 +1YcZKvZGBPL+vRTmGUiinltpKZ6rRaEr51lSFPbIcGnhbVNRaPDXGcnGXhv2 +vV3/iSh8gZGSj9gm8Qc1PWvF4NvdmEnbIBLVFWlPl+RKgGLWRKNjMImKBhfC +d4VJQdG1T2Z5ISTa55DUE1ouBeM1T4easEea1u8tH5ICr4XIll/YmkXbRGSd +paHN3DFAk4nn09v9HreBDMTUFP1pwWaP9574GScLARVaBG8YidYHmtTcs5KH +d9869z8OJ9FQ0Vo/G395yKgufEZiP+xukxxNlIcKzW2x4idI5GrpFqf8RB7K +N51oD8Mu2hpud01DAbKkBl+os3D/5K2JaDFFuMZVNFF7kkQHfXnVLPqUYHNt +2v7pUyRC4Q4ajn+UYDywLFk1ikSqCbk6dAlleDt3f40nNkchzSjaVhmmeNM/ +vcEu73FxrP5PGVpLoOBmNN6fh8rObCzYDFd+8lF+p3F9JlYfSW8VWNtbFiUb +T6JC+6wvs9Eq8OqlnI47dpp3Xy/XPypgKxCkeR2bfvr4sHS7CjS/PbsgnkAi +oYYcDntjVbgS9ahGJBE/P7Qx1XqFrRDYY9srmUwiSfkLMSkD22DadU7A5TyJ +Gs5NqcxzqoFDjrLuLWxXyrmDkFOD8VDeKgr7RpOiipG7GnhfnMpITSWRvG/d ++7lPaqAlqyz4PA2Pt2xQiXizHRi7BP4YZZBISlKakHVWh043Mj3iCom2FYfx +/UYaELVR2PVzPom86XHTatYacIWQ+LuzAO9XhcweT1cNuKpiPpiCvbKg8u4L +lgb0HZOKg0K8326QBzOrNGDEirVYVoTfp1c9c1QUaLDxw+hA5i28vimW2514 +NAEl2cRnlpMon6loU9uiBVZPe2o860jUFo504ov1IG+Vk/z7ThLJuX+wdgvY +A5UcTguZf0jEWLpfIXUSwKiddQ8UhpHY8MNVYt5GUBva6fXKZhiF0XZ3Z6qa +wIlQASiMGUbeo4vN60lTuF+Wb3G5ahiVG4Wuym01gw+/PA1oI8OoaMr/v7JL +5mBI8z0zpzyC5gzF3zbF7Iec97YJXEdH0FeOlZN9XlYQN/RgtXj1CAraFJx+ +RuEAbLlSXS88N4IqjjQ/uZxgA+0b3hzrNBtFEZTE7NYjttB5JwVeXx5F0xZ7 +D730sIMv8ZeYH0ZHkZ5LhuGgrT2IeRWPlpmNofcSOf5NtIMwdzxxm+WNMbTx +ZlxDyRYHeCV4OW/p7xh62Ktqac1/COQYRVM5LuNIumPCN3z0EBir3Za2eTiO +aJczygp7HcFu4XKw3boJlMNFbc985gQ/WHuTH6IJdN9wR1fCI2dgnI/ecyds +Al3VOSe0WHoY+uM0Bn6VTKDWL8WJtPMusBAe9upW5wSqtbqueOy0K7TE2Aqa +CkyiyUB7jiC6G8Tlf9v302ASTe9V8RszdgezUM/pwcBJVDLaOReq7QEvHzyP +/Jg7iZzyi33c+DyhMT62Xe3tJLpXvd9jZZInPG7if1eyOIn0JN/Pn533BBnV +f40UN7ORQq9v1/+OeIFYkJbsa2s2GuA9euD6dy+4X3W33/gEG7WlWfuYOXhD +cK1UD5HNRpdYubzH27whUZUStX3MRg2NS/M+5j4Q7eFgL9vNRutcIYlW5wM0 +tdj8lGk2kt3wsnVTgw9YeCzEs7HVW6zEeRp9gJuK2+I8w0Z2u11uf/7PB3jI +zEqlWZy/KfxN1CsfYIeINdTPsdHGr3fWNX/2gWrHC0+//GYjRXexq66zPrD/ +daTS8AoK6XmOlSRo0uHQaLOHCT+Fbl6bCLXWpsO9mXC5y9gb2tkGYrp08MrP +KBnEHjOd7SjRp8Pb0kGeRAEKv784VrQY0eFzxSxn0zoKCcwKOQvb0qFxh92E +pjCFBlK11uQG0sEvtsaNFKWQ7UudDt9gOvztYtXRxCjUyLErVz2EDjyro76c +wr4WaqD1NIwO59bK+QuIU8ja2cxrMJIOep49D7dLUOiRovOjrefooEGP2ECX +pFBa/akjD2/SwceYOzlfhkKBGll6rBI6FG3TEerHtrxdtUa3lA7a76Y95GUp +tDZr6PaDcjrYPl2wKsBOYNqQ92vosCnrwNFcOQqdUlE8WvuUDkoj/xSlKVDI +P+tNQHUPzk/o6IHNFDIXGNrN7KWDToUTbwT2lgQOfo1+OsRHxy5WYw8xtcqr +BnF/M3e2KW6hkJd17ujdETpwDVx7tlIFf6dwhwZVLtBBmCby4oEqhcxCNx4r +E2VA8bq0CbYahZ7mJlpkijMgZdb8y5btFNrdwlZkbWSAZ49OjDu2utKbTmNp +BiwxU9jN2BKfIo2/KDFgwR0Ss3dQaHjXV9G1WgwYPxLuor6TQhc48x772jMg +6UBjirImHv8OvqtWDgyQ92tLs8eOd2ExaY4MsD2hZXEam1Vjs3npMAMS1L79 ++oztRazIuOLNgMH1nC2JWhSivfamPw9hwA/3HaIftCn0KUOJVyGdASK/Y6/p +61GoAvH7/cxgQOqAiZYbdvzoVFP5RQZcTP6bEY2tYd4UrZuF643fl/YEO43D +h211gwEr8p5nGO6i0N7gvE5WGQN09See6OhTSEoqWdugggGLDgf8HbCnXgdf +XHmXAdsbfTuY2AXKyCrtHp4/spYsw/7z9euTwjo83gwfGendFKqxlCx518wA +69TF4inslAVO7kuvGZC81dJZYA+FvEtIL+cWBuwNlH67GVuQq05yoJUB04YG +M87YAfVOF+Y/MiCiZoN1PbaC6pVwxUGcfyVWiGlAoYVPUe2/hhjgUZr5Jgm7 +LYGhXvmTAWpnZ0xzsKP7NEm9EQa4clVGvsTuutrudoDC66uRTYojCmWuEjKN +WEEAOKh1VGI3sL+6hK0kYIMTceMZ9o+vpcwgbgI8D4tKfMLeXWOS572GAAun +Vpk/2EOerN8WQgS0PrdnmgKu39JU2HQ9AR8W2P8ewtbXEVZBIgSU0NmPfbHT ++csO0SQI4HRZ9SZ5ub3uW5WkHAEa8sYqL7GJ4rJmEQUCZGevz39Yvj795Ld1 +SgSUmxtHDGAPEev5uVQIUAoPOM9hiNvXm/mNqBOgzz1NaWLX/V0fM6SB6z0b +vtcQe/BX7+VeTQJ4ftHMrbB3PYl41qFLgH3HYQ869kBAhfRjIMDLcMu7NGwB +p0itB0YExO90LLiKrWe8z7LKhABWSI1yAXaaRP/J4n0EdHFPoRrsh1yV6bkW +BPyX0t7RgP19PPLWNUuc1/RF4jm27guRD6k2BHTqetV0YHtX9Q8n2RGgvKZ7 +TTd26vVKztiDeL5rI9Z9x+5nmquHOxEwayOzdQKb313U7NhhAvx1FQxnlvPM +v7v5u+L6yL2rFpfvl4lKcfckYFiJLOQxwvWstShw8sbrscYvghe7f1r0kR2d +gLOBnCsEsfn7vrdaEgS45zzU2YCt23J3aK8fAfhvRVoc2/tB1B/wJ4BoO14r +iZ1aYLFBP4AA0dLIRenl/FSxrVpBBPQvZlNyy/msAcMdxwhYZd+erYjNR69y +UmESoGisyFbG1jkQHawQRoDhsdT5Lcv5u/YnSoUT8PKsQJUq9nkl8RwxFgFJ ++2+Jb8O+Lzh4TyiCgLooR3U17L7fVa95TxHwe0p6btl8P6L7uKMJMMv8E7wd +W/v9/rmlGAL4jamsZf8f0GYMgA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.8252239648657879, 1.2036577163273166`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.8252239648657897}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.8252239648657897}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "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.8252239648657879, 1.2036577163273166`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991339493274267*^9, 3.9921013744087257`*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"a3167d2c-5d61-2b40-a6f1-07bc367eb59a"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918464901028175`*^9, 3.9918465034759026`*^9}}, + CellLabel->"In[94]:=",ExpressionUUID->"5b0c09f8-5e46-a545-8946-a08264de1b62"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.927425973998234`*^-276\\\", \ +\\\"5919012181389927685417441689600000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 94, 446, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339493498577*^9, 3.9921013746091976`*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"2a3613cc-8856-d442-b625-b485082d49aa"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2094850047253624`*^-289\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 94, + 447, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339493498577*^9, 3.992101374616276*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"9c1d0f2a-3e3c-e84f-968d-8f382ef15056"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1116847471864206`*^-303\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 94, + 448, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339493498577*^9, 3.99210137462125*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"4325ddd5-2866-224a-96c8-8f4b8fcd3b9b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 94, 449, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339493498577*^9, 3.9921013746272507`*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"9fa5a028-a5a8-2441-8ae4-c28446848de5"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13c4lt8fB3BRdmWPx7NICBk9DUU+H5IoaSBZJWUrZZQvSjaVqKxIMlqk +8jw3LSEpZZWMFFKkoZSyMsrv/P66r9d1zn2u+1znfN7n3Mpu/tvd+fn4+ETm +8PH9/5lzzE1Qf1+28bD+0TbJLGPj2la2lT37P1hWlCBrIkWH2aeV0Wx2Ing0 +e0ryS2lDTnUSax77PFRrBKzqljQCv7XB+ydY1+HPFvFvtyStoHXaK3WYdQ/C +vhyzWC7pDEJdfepDrOcgVLgl03WhH+TV5x76xnoDbz87eLKFw+HmrcQuP51B ++HEh6tNumSTwhJbz3wNGINvp9/6VgWlwYGBJP3VzEs6LKQxNzL8Aosox6r0G +fNiwg6mwMDwPTks0aOa5CiA3Z/MV9zOF4NZlWyXQKIh+HqG93+5dhUNPYtz8 +1UWxSnuuxK+cIig9KG6jYDkfT3bYuJsplUBemO+gnr0Eqt9eOiyQcguicme2 +jX6XRGmOnu7x5tvA1/oeK0KlMWY/dS+xtBRivlbmhUZK4+E7HjGsslIQ4cvh +X50gjf1NZSK8u6UgtdShtixNGrHefl1rVSksjm/ZcOu2NMo0Cez/01QKGw1r +rPM/SeOJ83YH2r+WwrmCAueE7TI4yX3zsZPFBbUgjxBbTVkUbGiS+hvDhaVr +em1y9WRxbuJgcWM8F5bz7dQdXCmLiY2FplknuGB6yvJTxDpZHH1y3Us3hQu7 +CrVti51lMa9UIs0kmwvpbb91+ZNlUbjAfs+8Ui7MWxHx+daILL4Py/cR7eKC ++PREzdSkLM4eNso+38MFqUcHL67nk8O3pe/r1N5zgb3Zza5LXA6nVi2VNRzg +gpH7+seCanJYHqgbseknF4LSxHJddsrhNuO6U2ICPPg4lrFD7KEcdlTQjgsv +4UG+CSew57Ec+nueuZGgxYPdSc3Jt+rlsOJkZqigDg/eqs57btMph237/aen +lvGgxSbA8MKIHL6LmEmpM+JBZakVe6mmPO5LF5X+uYUHGfvnDFpnyOOlQ3F1 +R4J4YHvvgqDyRXlcJ2K05sZhHkjNM1g0UiiP3jEqW9+F8OD0hQPOGVx57LjS +7m54lAcxDV3NvU3yiDqrDN/E8uDgknLewbkK+EYtMr8gnQcbB3yOnj2kgMLj ++uygch6YH110wyxEAfVkrY1t7/LAVLb77fgxBYx8/kFh2X0erFm/2cDplAIq +HRgX+PyQB5qXdUcWXVVA8+jzZSue8EDMfdSrrFsBpQKtrni08qDx41Hbzg2K +qODi8EL+Bw+eha+MPmGtiCXFXk9u/eRBrczPUiM7ReR8Hwpf/4sHFWauC/Pc +FLE/UVbfZ5QHNwpN672PKqLlywW8zCkeJO0TwmmuIuZ9uWZxQpAC648pWkwm +DdN+HlF/RKegUetjm7MqDYc2pUpNMyjYFLjqWLYmDa+vuLuQw6LAgv/dS4VV +NPS++xpzlCkwZWsdlt5KQ3H1pmhHNQpWOD+pFo6ioYTB+rshuhRQBQo+GxJo +qHZfpuucHgXLvvlKx52mofU7SekSfQp0QqU8BLJJe7XX4zccCjQyd4v949FQ +ZMJNi25AAb1t0m5kgIYfn2y0WI8UZCltntX/TsOIaqfXJiYUKO69dO3gbxrG +HhKNMDKlQO63+fTQPxr2jagpaptRICGReumLvBIu4pQfG91AgYCVzrceSyU0 +c/1sqrmFgsHHbseflSjhkOkcZy1nClhnOn1OU0pov2A4Z5rYdpe1ne0DJeSI +5Bc/d6Gg8s9qzffPlHDj9nyt3bspOLtUsm2iXwmjD/nV+btRYJhRpa5Oo2OV +Avu+uhcFB/etkBpi03E85d77NuIr+sUzXHU6bjc81RnhTb6vMb3FeAUdRY9u +WPvCh4KPfAfCdmylo76L1IDNfgpO+dBfxMbR8U7E/NnRQxQ8WnX23qYkOpqH ++O+LCKBgfK5woWQqHSsrei4JBVLgmjsSkpNHRy9v10uSQRQsb6tXKaugY2Rd +Vq3YYQq883B+2GM6dtAmv8cQXzxQPoH1dCx08v85TSwskt/Y+JqOfxX1YvqP +UNCz9r/DH3/TkaY8NJH5HwVSYj9diybpOC04Ms0XSvZD575NB/kYKPRoWY8H +MTdgK3tmPgODdCYMtMMoiLuqXi+9hIHfgxpcc8IpeBCUQ73RZaCuUrvDKPGw +iXRu7koGxnlv5VgepcCx+1+glhkDz9sbJ34n1pHsYKzbzcC8O6GNihEUfEr6 +FJXmzkCRtUNrnIhzRCc+f/Zl4MPrt15lEYvPVeCeCmGg2MTxCJnjFNQe15Dv +PcbA3a+N06yJw/4ahOvHMnDJxaL2OOLBcQfzjjMMnLr4/fUv4vxAn2KNTAba +dwZmqUZS4DAcKhF2kYE546KJdsTPvma/ZRUz0CO76VspcYTHDQgoZeAb+g3X +HuKV/RWFtXcY2BbCJyAURcHl7p4D3rUMjPcNbLEldnb40fqgnoF3R83/hRDL +dPwzWNDCQLW1Uw7ZxA3bF150fc1AN8cvHx8QR71gCfB6GLj1kl/uW+I1Vnpe +8z4ycOZSX+IE8a9n2GQ/yMAT2lcKpaLJ+tfsyZgZJ/NzjPNbR6wAATPWfxmY +1OJEcyB+8SBqT54AE/WODU/6EccZnHs6IsLE2H15YhHExmUFWuYSTMSnDVuS +icf1qZRMOSYaqzQ9zSEuuVk7NkhnosdygUNFxPu02h3XLmJixFiDdRkx/dpA +VfISJi7MjnWtJG5THVft02WiVcbpK0+IT+YJnli+kok9meuVG4hNmfI/44yY +2HpCpKWZeCpL3faNKRNDU1eXvyTmyhvc07JkoqHiipb/2zvVgnlsCxPD7jqp +vCBmSzpEv7Qj/TfPL/r/eJ1J3l9UnMn8fl73ekqcIhq6OdiNifrDZ3ZVEW+I +P8Gt82LisXeLT5UT/xPIlqf5MzEk+umvYuLy48XhfsFMLO5vS84l3v/3wYfK +MCbeMeZ6nCFWDW00l4xios7C6sORxN3j3cV7E5joK+pa7U98LnBIovw0GZ89 +us6ZeOPw32DhNCZOhr2bs4GYf/+CLsdsJvZGRk7pEt/7ysSSPCYeaQEdeeKD +HrqXZ68yUcssPGeGrK9GP4huv8nEgKHzFu+Je3dv9S+kmJhJm9GtIbZ2OLTa +8hETw3fQy44TC3ZEXsyuYyKNnW/jQvxw+1mBH01MlOuf1jUg1rbiNZ19y8T1 +Jg8LvpD9Kgpje7pHmHjTIjJqOXGIiYZw+RQT46J9B/6Revi0zulm8hwWXnge +Z1hHXGPxaMp0IQvNpnY+3kYcuj3p3HVNFg7Y391iTervi2316mh9FqoaBDsK +E++wH+l1NmBh/2iYc/Uxkv/ODtoS5iysl/nPQpP4m/viJ4f3sNC+r7p5gOSB +o9dO361eLHwc55CfTPzM56Skpj8LUxo8D60iLvT/5dITzsL3eXxzI0m+OP/3 +cHxdJgvPpo2IzJB8ajxlpyH5goVCGlskzpI8W5Oc0DzYzkJRFYkuJeJrZx4E +1XazsO5o+/WCYApi0pUfHRlkoU9vll0JyUvmy3Htn/xsvO+wa+waydeONzVP +7JhsLG9ktJgcoGC+U3dmjTIbtfaKMW+QfDbrHvPVXcxGPsHWIzLE3HcaUiLa +bPxtpGvb60vB6f7TuypWs1Hj7ocqF5L3G4YcJ1Ts2OgRYtj3dy/JX5no1oid +bFxRxZdsRTxqWHyr24mN3WHue8+T8+TSiWnPdDc2mnQaxS7dQ+pD/UKnyEE2 +lhSEV8AuCm649dwbPsHGlsNNQeI7yXnSuTu8spqNq1d/Hd24kQKP2fidSrVs +LBr8em23JQUVareXh9SxkT0YmB5gQeopmG9Iv5mNkxn+7HPmZH2l8lwud7Fx +mlrEV0XO06DNfcanxtl46ZbSwZo1pL5q9s1x1FbGiaD7S8KX/D+/39KO6irj +6RGFx34aFAg92rL80jJlFBRZ88FJneRh1RrPTwbKaJJcVrJiMQWpDySaAtYr +o+fI8rTXbAq2UBWZJ3cpY/LXXrF2eQqeXpbRe5iijHv5LcTuz6XgneoJy/fn +lPFR82m9cAEKxgpm3QQylPHyAY9BI35Sj/mDaZY5yhiaVM+4P8uDqIvV0+3X +lZHqOnqmgNx3jDP86n7UKGOkL5fBGeZBWULtLvaYMloKxe60eMuDaxsbFOL/ +KONajbX/VXXyIEv81auhadJe+3vOitc8OJ7Sa/6AXwW3lP/ZrNTGA6vMKZ0d +Eip44/znvrYmHvRd1Zs9qaWCCjGJqTPVPFhQdyF3Yo8KvmG1Vqlc4YHHvOD3 +zc0quL1I8etPXx7QWM9fT7eoYF7fQKuaDw+aDRgvNNpVsKQz87izFw9W+j15 +GNWlgr4vhpVr9/FAsFU2e+UXFczOZ6TGuPDg8qVyu4tzFuGC7Zuoemtyfzb8 +U79/+SK83B/c4a/Hg70BYWXiWYuw5Pk/z7XDXND11Gq22qOKgUPP8trcufBC +SlssePVi/Fd9RV6I/G88uBmVrS2ghuUu2kJsuVIIm6O5tbFHDRuH5jzbYHMb +RLtDLQ5Q6ijaBVUOsrdg4Ipyam64BvpGbaoYP1sCqRqKc+/ZLUEF9Phn+bkY +UrI86vawNRGig75/sykCx1SXZvHPmkhJnLGRfnYN/phdnsyt1MJ0qa9rMhlX +oX/ANKQmXhv3rnyqF5t2GfLX6is17VmKoUVhmi1jBVASGyzpuVQHE3Td/z4J +z4d4u72bBMZ00Oymbt1B+TxY0Z13Pb5JF3dJGDhVmedC5pLskqZNeuhaWLRk +3u0LEFGdlLnpnh5a75WruyuYBZuV7C7Xq+qj65Hg8YqUDDA5UOckmaiPq4R/ +UCVeaZBLd1NtHNNHdR8I2rb6HKg+vppu7bQMzdyEenptzkDK0hrNV5XL0KJG +z1V4eTJ4jMxtea7JwYn1O/Xbq06CW+lvdmIyB7NeXC0qqU8AvyibmY1nOPhA +5pe8aGUCBNtQr8XPcfCdPb+/b2kCJIwFn05JJ378tsMoMwFurp6czsjhoKdo +ZyDNIwEmH812XCnm4EyjgGw1fwKkvBJPqq3jIGfMwecmxENWwX6vuOccrK1+ +aHaFEw8FQc3rLBo4GL7y62C+ejyUy6VMNTST92/fSS9aGA/djtJere0cjBH6 +t3WkNw7U+xXX9fVz0LaWFuwdGQd6VCizcICDd/9+SC8JjoM1sV2T7p85qHm9 +OmjcOw6s1HNufx0k8/N/7pq+PQ4CfNnMX784uPmQ7LsFqnEQbhQ5yR3hoH/3 +1doQhTiInd/XFjTGwdGt23Z/Fo+DzFsFJ//84aBA+Icbr8ZiIf/4XM/7UxyM +snjssmUwFoq3uZuGz3DQehO38uW7WKBUnjKM/3GwQqa4eUdrLFSOqE3OznLw +Qsv1Ux/qYuF/DmOVcw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c4lt8fB3BRdmWPx7NICBk9DUU+H5IoaSBZJWUrZZQvSjaVqKxIMlqk +8jw3LSEpZZWMFFKkoZSyMsrv/P66r9d1zn2u+1znfN7n3Mpu/tvd+fn4+ETm +8PH9/5lzzE1Qf1+28bD+0TbJLGPj2la2lT37P1hWlCBrIkWH2aeV0Wx2Ing0 +e0ryS2lDTnUSax77PFRrBKzqljQCv7XB+ydY1+HPFvFvtyStoHXaK3WYdQ/C +vhyzWC7pDEJdfepDrOcgVLgl03WhH+TV5x76xnoDbz87eLKFw+HmrcQuP51B ++HEh6tNumSTwhJbz3wNGINvp9/6VgWlwYGBJP3VzEs6LKQxNzL8Aosox6r0G +fNiwg6mwMDwPTks0aOa5CiA3Z/MV9zOF4NZlWyXQKIh+HqG93+5dhUNPYtz8 +1UWxSnuuxK+cIig9KG6jYDkfT3bYuJsplUBemO+gnr0Eqt9eOiyQcguicme2 +jX6XRGmOnu7x5tvA1/oeK0KlMWY/dS+xtBRivlbmhUZK4+E7HjGsslIQ4cvh +X50gjf1NZSK8u6UgtdShtixNGrHefl1rVSksjm/ZcOu2NMo0Cez/01QKGw1r +rPM/SeOJ83YH2r+WwrmCAueE7TI4yX3zsZPFBbUgjxBbTVkUbGiS+hvDhaVr +em1y9WRxbuJgcWM8F5bz7dQdXCmLiY2FplknuGB6yvJTxDpZHH1y3Us3hQu7 +CrVti51lMa9UIs0kmwvpbb91+ZNlUbjAfs+8Ui7MWxHx+daILL4Py/cR7eKC ++PREzdSkLM4eNso+38MFqUcHL67nk8O3pe/r1N5zgb3Zza5LXA6nVi2VNRzg +gpH7+seCanJYHqgbseknF4LSxHJddsrhNuO6U2ICPPg4lrFD7KEcdlTQjgsv +4UG+CSew57Ec+nueuZGgxYPdSc3Jt+rlsOJkZqigDg/eqs57btMph237/aen +lvGgxSbA8MKIHL6LmEmpM+JBZakVe6mmPO5LF5X+uYUHGfvnDFpnyOOlQ3F1 +R4J4YHvvgqDyRXlcJ2K05sZhHkjNM1g0UiiP3jEqW9+F8OD0hQPOGVx57LjS +7m54lAcxDV3NvU3yiDqrDN/E8uDgknLewbkK+EYtMr8gnQcbB3yOnj2kgMLj ++uygch6YH110wyxEAfVkrY1t7/LAVLb77fgxBYx8/kFh2X0erFm/2cDplAIq +HRgX+PyQB5qXdUcWXVVA8+jzZSue8EDMfdSrrFsBpQKtrni08qDx41Hbzg2K +qODi8EL+Bw+eha+MPmGtiCXFXk9u/eRBrczPUiM7ReR8Hwpf/4sHFWauC/Pc +FLE/UVbfZ5QHNwpN672PKqLlywW8zCkeJO0TwmmuIuZ9uWZxQpAC648pWkwm +DdN+HlF/RKegUetjm7MqDYc2pUpNMyjYFLjqWLYmDa+vuLuQw6LAgv/dS4VV +NPS++xpzlCkwZWsdlt5KQ3H1pmhHNQpWOD+pFo6ioYTB+rshuhRQBQo+GxJo +qHZfpuucHgXLvvlKx52mofU7SekSfQp0QqU8BLJJe7XX4zccCjQyd4v949FQ +ZMJNi25AAb1t0m5kgIYfn2y0WI8UZCltntX/TsOIaqfXJiYUKO69dO3gbxrG +HhKNMDKlQO63+fTQPxr2jagpaptRICGReumLvBIu4pQfG91AgYCVzrceSyU0 +c/1sqrmFgsHHbseflSjhkOkcZy1nClhnOn1OU0pov2A4Z5rYdpe1ne0DJeSI +5Bc/d6Gg8s9qzffPlHDj9nyt3bspOLtUsm2iXwmjD/nV+btRYJhRpa5Oo2OV +Avu+uhcFB/etkBpi03E85d77NuIr+sUzXHU6bjc81RnhTb6vMb3FeAUdRY9u +WPvCh4KPfAfCdmylo76L1IDNfgpO+dBfxMbR8U7E/NnRQxQ8WnX23qYkOpqH ++O+LCKBgfK5woWQqHSsrei4JBVLgmjsSkpNHRy9v10uSQRQsb6tXKaugY2Rd +Vq3YYQq883B+2GM6dtAmv8cQXzxQPoH1dCx08v85TSwskt/Y+JqOfxX1YvqP +UNCz9r/DH3/TkaY8NJH5HwVSYj9diybpOC04Ms0XSvZD575NB/kYKPRoWY8H +MTdgK3tmPgODdCYMtMMoiLuqXi+9hIHfgxpcc8IpeBCUQ73RZaCuUrvDKPGw +iXRu7koGxnlv5VgepcCx+1+glhkDz9sbJ34n1pHsYKzbzcC8O6GNihEUfEr6 +FJXmzkCRtUNrnIhzRCc+f/Zl4MPrt15lEYvPVeCeCmGg2MTxCJnjFNQe15Dv +PcbA3a+N06yJw/4ahOvHMnDJxaL2OOLBcQfzjjMMnLr4/fUv4vxAn2KNTAba +dwZmqUZS4DAcKhF2kYE546KJdsTPvma/ZRUz0CO76VspcYTHDQgoZeAb+g3X +HuKV/RWFtXcY2BbCJyAURcHl7p4D3rUMjPcNbLEldnb40fqgnoF3R83/hRDL +dPwzWNDCQLW1Uw7ZxA3bF150fc1AN8cvHx8QR71gCfB6GLj1kl/uW+I1Vnpe +8z4ycOZSX+IE8a9n2GQ/yMAT2lcKpaLJ+tfsyZgZJ/NzjPNbR6wAATPWfxmY +1OJEcyB+8SBqT54AE/WODU/6EccZnHs6IsLE2H15YhHExmUFWuYSTMSnDVuS +icf1qZRMOSYaqzQ9zSEuuVk7NkhnosdygUNFxPu02h3XLmJixFiDdRkx/dpA +VfISJi7MjnWtJG5THVft02WiVcbpK0+IT+YJnli+kok9meuVG4hNmfI/44yY +2HpCpKWZeCpL3faNKRNDU1eXvyTmyhvc07JkoqHiipb/2zvVgnlsCxPD7jqp +vCBmSzpEv7Qj/TfPL/r/eJ1J3l9UnMn8fl73ekqcIhq6OdiNifrDZ3ZVEW+I +P8Gt82LisXeLT5UT/xPIlqf5MzEk+umvYuLy48XhfsFMLO5vS84l3v/3wYfK +MCbeMeZ6nCFWDW00l4xios7C6sORxN3j3cV7E5joK+pa7U98LnBIovw0GZ89 +us6ZeOPw32DhNCZOhr2bs4GYf/+CLsdsJvZGRk7pEt/7ysSSPCYeaQEdeeKD +HrqXZ68yUcssPGeGrK9GP4huv8nEgKHzFu+Je3dv9S+kmJhJm9GtIbZ2OLTa +8hETw3fQy44TC3ZEXsyuYyKNnW/jQvxw+1mBH01MlOuf1jUg1rbiNZ19y8T1 +Jg8LvpD9Kgpje7pHmHjTIjJqOXGIiYZw+RQT46J9B/6Revi0zulm8hwWXnge +Z1hHXGPxaMp0IQvNpnY+3kYcuj3p3HVNFg7Y391iTervi2316mh9FqoaBDsK +E++wH+l1NmBh/2iYc/Uxkv/ODtoS5iysl/nPQpP4m/viJ4f3sNC+r7p5gOSB +o9dO361eLHwc55CfTPzM56Skpj8LUxo8D60iLvT/5dITzsL3eXxzI0m+OP/3 +cHxdJgvPpo2IzJB8ajxlpyH5goVCGlskzpI8W5Oc0DzYzkJRFYkuJeJrZx4E +1XazsO5o+/WCYApi0pUfHRlkoU9vll0JyUvmy3Htn/xsvO+wa+waydeONzVP +7JhsLG9ktJgcoGC+U3dmjTIbtfaKMW+QfDbrHvPVXcxGPsHWIzLE3HcaUiLa +bPxtpGvb60vB6f7TuypWs1Hj7ocqF5L3G4YcJ1Ts2OgRYtj3dy/JX5no1oid +bFxRxZdsRTxqWHyr24mN3WHue8+T8+TSiWnPdDc2mnQaxS7dQ+pD/UKnyEE2 +lhSEV8AuCm649dwbPsHGlsNNQeI7yXnSuTu8spqNq1d/Hd24kQKP2fidSrVs +LBr8em23JQUVareXh9SxkT0YmB5gQeopmG9Iv5mNkxn+7HPmZH2l8lwud7Fx +mlrEV0XO06DNfcanxtl46ZbSwZo1pL5q9s1x1FbGiaD7S8KX/D+/39KO6irj +6RGFx34aFAg92rL80jJlFBRZ88FJneRh1RrPTwbKaJJcVrJiMQWpDySaAtYr +o+fI8rTXbAq2UBWZJ3cpY/LXXrF2eQqeXpbRe5iijHv5LcTuz6XgneoJy/fn +lPFR82m9cAEKxgpm3QQylPHyAY9BI35Sj/mDaZY5yhiaVM+4P8uDqIvV0+3X +lZHqOnqmgNx3jDP86n7UKGOkL5fBGeZBWULtLvaYMloKxe60eMuDaxsbFOL/ +KONajbX/VXXyIEv81auhadJe+3vOitc8OJ7Sa/6AXwW3lP/ZrNTGA6vMKZ0d +Eip44/znvrYmHvRd1Zs9qaWCCjGJqTPVPFhQdyF3Yo8KvmG1Vqlc4YHHvOD3 +zc0quL1I8etPXx7QWM9fT7eoYF7fQKuaDw+aDRgvNNpVsKQz87izFw9W+j15 +GNWlgr4vhpVr9/FAsFU2e+UXFczOZ6TGuPDg8qVyu4tzFuGC7Zuoemtyfzb8 +U79/+SK83B/c4a/Hg70BYWXiWYuw5Pk/z7XDXND11Gq22qOKgUPP8trcufBC +SlssePVi/Fd9RV6I/G88uBmVrS2ghuUu2kJsuVIIm6O5tbFHDRuH5jzbYHMb +RLtDLQ5Q6ijaBVUOsrdg4Ipyam64BvpGbaoYP1sCqRqKc+/ZLUEF9Phn+bkY +UrI86vawNRGig75/sykCx1SXZvHPmkhJnLGRfnYN/phdnsyt1MJ0qa9rMhlX +oX/ANKQmXhv3rnyqF5t2GfLX6is17VmKoUVhmi1jBVASGyzpuVQHE3Td/z4J +z4d4u72bBMZ00Oymbt1B+TxY0Z13Pb5JF3dJGDhVmedC5pLskqZNeuhaWLRk +3u0LEFGdlLnpnh5a75WruyuYBZuV7C7Xq+qj65Hg8YqUDDA5UOckmaiPq4R/ +UCVeaZBLd1NtHNNHdR8I2rb6HKg+vppu7bQMzdyEenptzkDK0hrNV5XL0KJG +z1V4eTJ4jMxtea7JwYn1O/Xbq06CW+lvdmIyB7NeXC0qqU8AvyibmY1nOPhA +5pe8aGUCBNtQr8XPcfCdPb+/b2kCJIwFn05JJ378tsMoMwFurp6czsjhoKdo +ZyDNIwEmH812XCnm4EyjgGw1fwKkvBJPqq3jIGfMwecmxENWwX6vuOccrK1+ +aHaFEw8FQc3rLBo4GL7y62C+ejyUy6VMNTST92/fSS9aGA/djtJere0cjBH6 +t3WkNw7U+xXX9fVz0LaWFuwdGQd6VCizcICDd/9+SC8JjoM1sV2T7p85qHm9 +OmjcOw6s1HNufx0k8/N/7pq+PQ4CfNnMX784uPmQ7LsFqnEQbhQ5yR3hoH/3 +1doQhTiInd/XFjTGwdGt23Z/Fo+DzFsFJ//84aBA+Icbr8ZiIf/4XM/7UxyM +snjssmUwFoq3uZuGz3DQehO38uW7WKBUnjKM/3GwQqa4eUdrLFSOqE3OznLw +Qsv1Ux/qYuF/DmOVcw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08013634784319816}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08013634784319816}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c4lt8fB3BRdmWPx7NICBk9DUU+H5IoaSBZJWUrZZQvSjaVqKxIMlqk +8jw3LSEpZZWMFFKkoZSyMsrv/P66r9d1zn2u+1znfN7n3Mpu/tvd+fn4+ETm +8PH9/5lzzE1Qf1+28bD+0TbJLGPj2la2lT37P1hWlCBrIkWH2aeV0Wx2Ing0 +e0ryS2lDTnUSax77PFRrBKzqljQCv7XB+ydY1+HPFvFvtyStoHXaK3WYdQ/C +vhyzWC7pDEJdfepDrOcgVLgl03WhH+TV5x76xnoDbz87eLKFw+HmrcQuP51B ++HEh6tNumSTwhJbz3wNGINvp9/6VgWlwYGBJP3VzEs6LKQxNzL8Aosox6r0G +fNiwg6mwMDwPTks0aOa5CiA3Z/MV9zOF4NZlWyXQKIh+HqG93+5dhUNPYtz8 +1UWxSnuuxK+cIig9KG6jYDkfT3bYuJsplUBemO+gnr0Eqt9eOiyQcguicme2 +jX6XRGmOnu7x5tvA1/oeK0KlMWY/dS+xtBRivlbmhUZK4+E7HjGsslIQ4cvh +X50gjf1NZSK8u6UgtdShtixNGrHefl1rVSksjm/ZcOu2NMo0Cez/01QKGw1r +rPM/SeOJ83YH2r+WwrmCAueE7TI4yX3zsZPFBbUgjxBbTVkUbGiS+hvDhaVr +em1y9WRxbuJgcWM8F5bz7dQdXCmLiY2FplknuGB6yvJTxDpZHH1y3Us3hQu7 +CrVti51lMa9UIs0kmwvpbb91+ZNlUbjAfs+8Ui7MWxHx+daILL4Py/cR7eKC ++PREzdSkLM4eNso+38MFqUcHL67nk8O3pe/r1N5zgb3Zza5LXA6nVi2VNRzg +gpH7+seCanJYHqgbseknF4LSxHJddsrhNuO6U2ICPPg4lrFD7KEcdlTQjgsv +4UG+CSew57Ec+nueuZGgxYPdSc3Jt+rlsOJkZqigDg/eqs57btMph237/aen +lvGgxSbA8MKIHL6LmEmpM+JBZakVe6mmPO5LF5X+uYUHGfvnDFpnyOOlQ3F1 +R4J4YHvvgqDyRXlcJ2K05sZhHkjNM1g0UiiP3jEqW9+F8OD0hQPOGVx57LjS +7m54lAcxDV3NvU3yiDqrDN/E8uDgknLewbkK+EYtMr8gnQcbB3yOnj2kgMLj ++uygch6YH110wyxEAfVkrY1t7/LAVLb77fgxBYx8/kFh2X0erFm/2cDplAIq +HRgX+PyQB5qXdUcWXVVA8+jzZSue8EDMfdSrrFsBpQKtrni08qDx41Hbzg2K +qODi8EL+Bw+eha+MPmGtiCXFXk9u/eRBrczPUiM7ReR8Hwpf/4sHFWauC/Pc +FLE/UVbfZ5QHNwpN672PKqLlywW8zCkeJO0TwmmuIuZ9uWZxQpAC648pWkwm +DdN+HlF/RKegUetjm7MqDYc2pUpNMyjYFLjqWLYmDa+vuLuQw6LAgv/dS4VV +NPS++xpzlCkwZWsdlt5KQ3H1pmhHNQpWOD+pFo6ioYTB+rshuhRQBQo+GxJo +qHZfpuucHgXLvvlKx52mofU7SekSfQp0QqU8BLJJe7XX4zccCjQyd4v949FQ +ZMJNi25AAb1t0m5kgIYfn2y0WI8UZCltntX/TsOIaqfXJiYUKO69dO3gbxrG +HhKNMDKlQO63+fTQPxr2jagpaptRICGReumLvBIu4pQfG91AgYCVzrceSyU0 +c/1sqrmFgsHHbseflSjhkOkcZy1nClhnOn1OU0pov2A4Z5rYdpe1ne0DJeSI +5Bc/d6Gg8s9qzffPlHDj9nyt3bspOLtUsm2iXwmjD/nV+btRYJhRpa5Oo2OV +Avu+uhcFB/etkBpi03E85d77NuIr+sUzXHU6bjc81RnhTb6vMb3FeAUdRY9u +WPvCh4KPfAfCdmylo76L1IDNfgpO+dBfxMbR8U7E/NnRQxQ8WnX23qYkOpqH ++O+LCKBgfK5woWQqHSsrei4JBVLgmjsSkpNHRy9v10uSQRQsb6tXKaugY2Rd +Vq3YYQq883B+2GM6dtAmv8cQXzxQPoH1dCx08v85TSwskt/Y+JqOfxX1YvqP +UNCz9r/DH3/TkaY8NJH5HwVSYj9diybpOC04Ms0XSvZD575NB/kYKPRoWY8H +MTdgK3tmPgODdCYMtMMoiLuqXi+9hIHfgxpcc8IpeBCUQ73RZaCuUrvDKPGw +iXRu7koGxnlv5VgepcCx+1+glhkDz9sbJ34n1pHsYKzbzcC8O6GNihEUfEr6 +FJXmzkCRtUNrnIhzRCc+f/Zl4MPrt15lEYvPVeCeCmGg2MTxCJnjFNQe15Dv +PcbA3a+N06yJw/4ahOvHMnDJxaL2OOLBcQfzjjMMnLr4/fUv4vxAn2KNTAba +dwZmqUZS4DAcKhF2kYE546KJdsTPvma/ZRUz0CO76VspcYTHDQgoZeAb+g3X +HuKV/RWFtXcY2BbCJyAURcHl7p4D3rUMjPcNbLEldnb40fqgnoF3R83/hRDL +dPwzWNDCQLW1Uw7ZxA3bF150fc1AN8cvHx8QR71gCfB6GLj1kl/uW+I1Vnpe +8z4ycOZSX+IE8a9n2GQ/yMAT2lcKpaLJ+tfsyZgZJ/NzjPNbR6wAATPWfxmY +1OJEcyB+8SBqT54AE/WODU/6EccZnHs6IsLE2H15YhHExmUFWuYSTMSnDVuS +icf1qZRMOSYaqzQ9zSEuuVk7NkhnosdygUNFxPu02h3XLmJixFiDdRkx/dpA +VfISJi7MjnWtJG5THVft02WiVcbpK0+IT+YJnli+kok9meuVG4hNmfI/44yY +2HpCpKWZeCpL3faNKRNDU1eXvyTmyhvc07JkoqHiipb/2zvVgnlsCxPD7jqp +vCBmSzpEv7Qj/TfPL/r/eJ1J3l9UnMn8fl73ekqcIhq6OdiNifrDZ3ZVEW+I +P8Gt82LisXeLT5UT/xPIlqf5MzEk+umvYuLy48XhfsFMLO5vS84l3v/3wYfK +MCbeMeZ6nCFWDW00l4xios7C6sORxN3j3cV7E5joK+pa7U98LnBIovw0GZ89 +us6ZeOPw32DhNCZOhr2bs4GYf/+CLsdsJvZGRk7pEt/7ysSSPCYeaQEdeeKD +HrqXZ68yUcssPGeGrK9GP4huv8nEgKHzFu+Je3dv9S+kmJhJm9GtIbZ2OLTa +8hETw3fQy44TC3ZEXsyuYyKNnW/jQvxw+1mBH01MlOuf1jUg1rbiNZ19y8T1 +Jg8LvpD9Kgpje7pHmHjTIjJqOXGIiYZw+RQT46J9B/6Revi0zulm8hwWXnge +Z1hHXGPxaMp0IQvNpnY+3kYcuj3p3HVNFg7Y391iTervi2316mh9FqoaBDsK +E++wH+l1NmBh/2iYc/Uxkv/ODtoS5iysl/nPQpP4m/viJ4f3sNC+r7p5gOSB +o9dO361eLHwc55CfTPzM56Skpj8LUxo8D60iLvT/5dITzsL3eXxzI0m+OP/3 +cHxdJgvPpo2IzJB8ajxlpyH5goVCGlskzpI8W5Oc0DzYzkJRFYkuJeJrZx4E +1XazsO5o+/WCYApi0pUfHRlkoU9vll0JyUvmy3Htn/xsvO+wa+waydeONzVP +7JhsLG9ktJgcoGC+U3dmjTIbtfaKMW+QfDbrHvPVXcxGPsHWIzLE3HcaUiLa +bPxtpGvb60vB6f7TuypWs1Hj7ocqF5L3G4YcJ1Ts2OgRYtj3dy/JX5no1oid +bFxRxZdsRTxqWHyr24mN3WHue8+T8+TSiWnPdDc2mnQaxS7dQ+pD/UKnyEE2 +lhSEV8AuCm649dwbPsHGlsNNQeI7yXnSuTu8spqNq1d/Hd24kQKP2fidSrVs +LBr8em23JQUVareXh9SxkT0YmB5gQeopmG9Iv5mNkxn+7HPmZH2l8lwud7Fx +mlrEV0XO06DNfcanxtl46ZbSwZo1pL5q9s1x1FbGiaD7S8KX/D+/39KO6irj +6RGFx34aFAg92rL80jJlFBRZ88FJneRh1RrPTwbKaJJcVrJiMQWpDySaAtYr +o+fI8rTXbAq2UBWZJ3cpY/LXXrF2eQqeXpbRe5iijHv5LcTuz6XgneoJy/fn +lPFR82m9cAEKxgpm3QQylPHyAY9BI35Sj/mDaZY5yhiaVM+4P8uDqIvV0+3X +lZHqOnqmgNx3jDP86n7UKGOkL5fBGeZBWULtLvaYMloKxe60eMuDaxsbFOL/ +KONajbX/VXXyIEv81auhadJe+3vOitc8OJ7Sa/6AXwW3lP/ZrNTGA6vMKZ0d +Eip44/znvrYmHvRd1Zs9qaWCCjGJqTPVPFhQdyF3Yo8KvmG1Vqlc4YHHvOD3 +zc0quL1I8etPXx7QWM9fT7eoYF7fQKuaDw+aDRgvNNpVsKQz87izFw9W+j15 +GNWlgr4vhpVr9/FAsFU2e+UXFczOZ6TGuPDg8qVyu4tzFuGC7Zuoemtyfzb8 +U79/+SK83B/c4a/Hg70BYWXiWYuw5Pk/z7XDXND11Gq22qOKgUPP8trcufBC +SlssePVi/Fd9RV6I/G88uBmVrS2ghuUu2kJsuVIIm6O5tbFHDRuH5jzbYHMb +RLtDLQ5Q6ijaBVUOsrdg4Ipyam64BvpGbaoYP1sCqRqKc+/ZLUEF9Phn+bkY +UrI86vawNRGig75/sykCx1SXZvHPmkhJnLGRfnYN/phdnsyt1MJ0qa9rMhlX +oX/ANKQmXhv3rnyqF5t2GfLX6is17VmKoUVhmi1jBVASGyzpuVQHE3Td/z4J +z4d4u72bBMZ00Oymbt1B+TxY0Z13Pb5JF3dJGDhVmedC5pLskqZNeuhaWLRk +3u0LEFGdlLnpnh5a75WruyuYBZuV7C7Xq+qj65Hg8YqUDDA5UOckmaiPq4R/ +UCVeaZBLd1NtHNNHdR8I2rb6HKg+vppu7bQMzdyEenptzkDK0hrNV5XL0KJG +z1V4eTJ4jMxtea7JwYn1O/Xbq06CW+lvdmIyB7NeXC0qqU8AvyibmY1nOPhA +5pe8aGUCBNtQr8XPcfCdPb+/b2kCJIwFn05JJ378tsMoMwFurp6czsjhoKdo +ZyDNIwEmH812XCnm4EyjgGw1fwKkvBJPqq3jIGfMwecmxENWwX6vuOccrK1+ +aHaFEw8FQc3rLBo4GL7y62C+ejyUy6VMNTST92/fSS9aGA/djtJere0cjBH6 +t3WkNw7U+xXX9fVz0LaWFuwdGQd6VCizcICDd/9+SC8JjoM1sV2T7p85qHm9 +OmjcOw6s1HNufx0k8/N/7pq+PQ4CfNnMX784uPmQ7LsFqnEQbhQ5yR3hoH/3 +1doQhTiInd/XFjTGwdGt23Z/Fo+DzFsFJ//84aBA+Icbr8ZiIf/4XM/7UxyM +snjssmUwFoq3uZuGz3DQehO38uW7WKBUnjKM/3GwQqa4eUdrLFSOqE3OznLw +Qsv1Ux/qYuF/DmOVcw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08013634784319816}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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, 20}, {0., 0.08013634784319816}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991340117671425*^9, 3.99210182841634*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"c6b9c42d-543e-934c-b745-098fa5a900f3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.020752"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.058831"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.090855"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.11027"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.120683"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.117878"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.109585"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.093652"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.077678"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.059892"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.045412"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.032103"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.022647"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.014816"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.009893"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.006002"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.003879"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.002155"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.001404"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.000678"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.00048"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991714709387436*^9, 3.991714738003292*^9}, { + 3.991714834117689*^9, 3.991714842328617*^9}, 3.991793311407936*^9, + 3.9917953263701286`*^9, {3.9920886200292816`*^9, 3.9920886214341545`*^9}}, + CellLabel->"In[95]:=",ExpressionUUID->"a890eeb1-6bca-424f-a8f9-1a35c4cca33c"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 20.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9917148467316074`*^9, 3.9921018285884457`*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"f2daac46-dad8-2249-a0db-4787ed63d6c3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel->"In[96]:=",ExpressionUUID->"b1f266e4-128a-e44e-90be-31846216bd9c"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13c4lt8fB3BRdmWPx7NICBk9DUU+H5IoaSBZJWUrZZQvSjaVqKxIMlqk +8jw3LSEpZZWMFFKkoZSyMsrv/P66r9d1zn2u+1znfN7n3Mpu/tvd+fn4+ETm +8PH9/5lzzE1Qf1+28bD+0TbJLGPj2la2lT37P1hWlCBrIkWH2aeV0Wx2Ing0 +e0ryS2lDTnUSax77PFRrBKzqljQCv7XB+ydY1+HPFvFvtyStoHXaK3WYdQ/C +vhyzWC7pDEJdfepDrOcgVLgl03WhH+TV5x76xnoDbz87eLKFw+HmrcQuP51B ++HEh6tNumSTwhJbz3wNGINvp9/6VgWlwYGBJP3VzEs6LKQxNzL8Aosox6r0G +fNiwg6mwMDwPTks0aOa5CiA3Z/MV9zOF4NZlWyXQKIh+HqG93+5dhUNPYtz8 +1UWxSnuuxK+cIig9KG6jYDkfT3bYuJsplUBemO+gnr0Eqt9eOiyQcguicme2 +jX6XRGmOnu7x5tvA1/oeK0KlMWY/dS+xtBRivlbmhUZK4+E7HjGsslIQ4cvh +X50gjf1NZSK8u6UgtdShtixNGrHefl1rVSksjm/ZcOu2NMo0Cez/01QKGw1r +rPM/SeOJ83YH2r+WwrmCAueE7TI4yX3zsZPFBbUgjxBbTVkUbGiS+hvDhaVr +em1y9WRxbuJgcWM8F5bz7dQdXCmLiY2FplknuGB6yvJTxDpZHH1y3Us3hQu7 +CrVti51lMa9UIs0kmwvpbb91+ZNlUbjAfs+8Ui7MWxHx+daILL4Py/cR7eKC ++PREzdSkLM4eNso+38MFqUcHL67nk8O3pe/r1N5zgb3Zza5LXA6nVi2VNRzg +gpH7+seCanJYHqgbseknF4LSxHJddsrhNuO6U2ICPPg4lrFD7KEcdlTQjgsv +4UG+CSew57Ec+nueuZGgxYPdSc3Jt+rlsOJkZqigDg/eqs57btMph237/aen +lvGgxSbA8MKIHL6LmEmpM+JBZakVe6mmPO5LF5X+uYUHGfvnDFpnyOOlQ3F1 +R4J4YHvvgqDyRXlcJ2K05sZhHkjNM1g0UiiP3jEqW9+F8OD0hQPOGVx57LjS +7m54lAcxDV3NvU3yiDqrDN/E8uDgknLewbkK+EYtMr8gnQcbB3yOnj2kgMLj ++uygch6YH110wyxEAfVkrY1t7/LAVLb77fgxBYx8/kFh2X0erFm/2cDplAIq +HRgX+PyQB5qXdUcWXVVA8+jzZSue8EDMfdSrrFsBpQKtrni08qDx41Hbzg2K +qODi8EL+Bw+eha+MPmGtiCXFXk9u/eRBrczPUiM7ReR8Hwpf/4sHFWauC/Pc +FLE/UVbfZ5QHNwpN672PKqLlywW8zCkeJO0TwmmuIuZ9uWZxQpAC648pWkwm +DdN+HlF/RKegUetjm7MqDYc2pUpNMyjYFLjqWLYmDa+vuLuQw6LAgv/dS4VV +NPS++xpzlCkwZWsdlt5KQ3H1pmhHNQpWOD+pFo6ioYTB+rshuhRQBQo+GxJo +qHZfpuucHgXLvvlKx52mofU7SekSfQp0QqU8BLJJe7XX4zccCjQyd4v949FQ +ZMJNi25AAb1t0m5kgIYfn2y0WI8UZCltntX/TsOIaqfXJiYUKO69dO3gbxrG +HhKNMDKlQO63+fTQPxr2jagpaptRICGReumLvBIu4pQfG91AgYCVzrceSyU0 +c/1sqrmFgsHHbseflSjhkOkcZy1nClhnOn1OU0pov2A4Z5rYdpe1ne0DJeSI +5Bc/d6Gg8s9qzffPlHDj9nyt3bspOLtUsm2iXwmjD/nV+btRYJhRpa5Oo2OV +Avu+uhcFB/etkBpi03E85d77NuIr+sUzXHU6bjc81RnhTb6vMb3FeAUdRY9u +WPvCh4KPfAfCdmylo76L1IDNfgpO+dBfxMbR8U7E/NnRQxQ8WnX23qYkOpqH ++O+LCKBgfK5woWQqHSsrei4JBVLgmjsSkpNHRy9v10uSQRQsb6tXKaugY2Rd +Vq3YYQq883B+2GM6dtAmv8cQXzxQPoH1dCx08v85TSwskt/Y+JqOfxX1YvqP +UNCz9r/DH3/TkaY8NJH5HwVSYj9diybpOC04Ms0XSvZD575NB/kYKPRoWY8H +MTdgK3tmPgODdCYMtMMoiLuqXi+9hIHfgxpcc8IpeBCUQ73RZaCuUrvDKPGw +iXRu7koGxnlv5VgepcCx+1+glhkDz9sbJ34n1pHsYKzbzcC8O6GNihEUfEr6 +FJXmzkCRtUNrnIhzRCc+f/Zl4MPrt15lEYvPVeCeCmGg2MTxCJnjFNQe15Dv +PcbA3a+N06yJw/4ahOvHMnDJxaL2OOLBcQfzjjMMnLr4/fUv4vxAn2KNTAba +dwZmqUZS4DAcKhF2kYE546KJdsTPvma/ZRUz0CO76VspcYTHDQgoZeAb+g3X +HuKV/RWFtXcY2BbCJyAURcHl7p4D3rUMjPcNbLEldnb40fqgnoF3R83/hRDL +dPwzWNDCQLW1Uw7ZxA3bF150fc1AN8cvHx8QR71gCfB6GLj1kl/uW+I1Vnpe +8z4ycOZSX+IE8a9n2GQ/yMAT2lcKpaLJ+tfsyZgZJ/NzjPNbR6wAATPWfxmY +1OJEcyB+8SBqT54AE/WODU/6EccZnHs6IsLE2H15YhHExmUFWuYSTMSnDVuS +icf1qZRMOSYaqzQ9zSEuuVk7NkhnosdygUNFxPu02h3XLmJixFiDdRkx/dpA +VfISJi7MjnWtJG5THVft02WiVcbpK0+IT+YJnli+kok9meuVG4hNmfI/44yY +2HpCpKWZeCpL3faNKRNDU1eXvyTmyhvc07JkoqHiipb/2zvVgnlsCxPD7jqp +vCBmSzpEv7Qj/TfPL/r/eJ1J3l9UnMn8fl73ekqcIhq6OdiNifrDZ3ZVEW+I +P8Gt82LisXeLT5UT/xPIlqf5MzEk+umvYuLy48XhfsFMLO5vS84l3v/3wYfK +MCbeMeZ6nCFWDW00l4xios7C6sORxN3j3cV7E5joK+pa7U98LnBIovw0GZ89 +us6ZeOPw32DhNCZOhr2bs4GYf/+CLsdsJvZGRk7pEt/7ysSSPCYeaQEdeeKD +HrqXZ68yUcssPGeGrK9GP4huv8nEgKHzFu+Je3dv9S+kmJhJm9GtIbZ2OLTa +8hETw3fQy44TC3ZEXsyuYyKNnW/jQvxw+1mBH01MlOuf1jUg1rbiNZ19y8T1 +Jg8LvpD9Kgpje7pHmHjTIjJqOXGIiYZw+RQT46J9B/6Revi0zulm8hwWXnge +Z1hHXGPxaMp0IQvNpnY+3kYcuj3p3HVNFg7Y391iTervi2316mh9FqoaBDsK +E++wH+l1NmBh/2iYc/Uxkv/ODtoS5iysl/nPQpP4m/viJ4f3sNC+r7p5gOSB +o9dO361eLHwc55CfTPzM56Skpj8LUxo8D60iLvT/5dITzsL3eXxzI0m+OP/3 +cHxdJgvPpo2IzJB8ajxlpyH5goVCGlskzpI8W5Oc0DzYzkJRFYkuJeJrZx4E +1XazsO5o+/WCYApi0pUfHRlkoU9vll0JyUvmy3Htn/xsvO+wa+waydeONzVP +7JhsLG9ktJgcoGC+U3dmjTIbtfaKMW+QfDbrHvPVXcxGPsHWIzLE3HcaUiLa +bPxtpGvb60vB6f7TuypWs1Hj7ocqF5L3G4YcJ1Ts2OgRYtj3dy/JX5no1oid +bFxRxZdsRTxqWHyr24mN3WHue8+T8+TSiWnPdDc2mnQaxS7dQ+pD/UKnyEE2 +lhSEV8AuCm649dwbPsHGlsNNQeI7yXnSuTu8spqNq1d/Hd24kQKP2fidSrVs +LBr8em23JQUVareXh9SxkT0YmB5gQeopmG9Iv5mNkxn+7HPmZH2l8lwud7Fx +mlrEV0XO06DNfcanxtl46ZbSwZo1pL5q9s1x1FbGiaD7S8KX/D+/39KO6irj +6RGFx34aFAg92rL80jJlFBRZ88FJneRh1RrPTwbKaJJcVrJiMQWpDySaAtYr +o+fI8rTXbAq2UBWZJ3cpY/LXXrF2eQqeXpbRe5iijHv5LcTuz6XgneoJy/fn +lPFR82m9cAEKxgpm3QQylPHyAY9BI35Sj/mDaZY5yhiaVM+4P8uDqIvV0+3X +lZHqOnqmgNx3jDP86n7UKGOkL5fBGeZBWULtLvaYMloKxe60eMuDaxsbFOL/ +KONajbX/VXXyIEv81auhadJe+3vOitc8OJ7Sa/6AXwW3lP/ZrNTGA6vMKZ0d +Eip44/znvrYmHvRd1Zs9qaWCCjGJqTPVPFhQdyF3Yo8KvmG1Vqlc4YHHvOD3 +zc0quL1I8etPXx7QWM9fT7eoYF7fQKuaDw+aDRgvNNpVsKQz87izFw9W+j15 +GNWlgr4vhpVr9/FAsFU2e+UXFczOZ6TGuPDg8qVyu4tzFuGC7Zuoemtyfzb8 +U79/+SK83B/c4a/Hg70BYWXiWYuw5Pk/z7XDXND11Gq22qOKgUPP8trcufBC +SlssePVi/Fd9RV6I/G88uBmVrS2ghuUu2kJsuVIIm6O5tbFHDRuH5jzbYHMb +RLtDLQ5Q6ijaBVUOsrdg4Ipyam64BvpGbaoYP1sCqRqKc+/ZLUEF9Phn+bkY +UrI86vawNRGig75/sykCx1SXZvHPmkhJnLGRfnYN/phdnsyt1MJ0qa9rMhlX +oX/ANKQmXhv3rnyqF5t2GfLX6is17VmKoUVhmi1jBVASGyzpuVQHE3Td/z4J +z4d4u72bBMZ00Oymbt1B+TxY0Z13Pb5JF3dJGDhVmedC5pLskqZNeuhaWLRk +3u0LEFGdlLnpnh5a75WruyuYBZuV7C7Xq+qj65Hg8YqUDDA5UOckmaiPq4R/ +UCVeaZBLd1NtHNNHdR8I2rb6HKg+vppu7bQMzdyEenptzkDK0hrNV5XL0KJG +z1V4eTJ4jMxtea7JwYn1O/Xbq06CW+lvdmIyB7NeXC0qqU8AvyibmY1nOPhA +5pe8aGUCBNtQr8XPcfCdPb+/b2kCJIwFn05JJ378tsMoMwFurp6czsjhoKdo +ZyDNIwEmH812XCnm4EyjgGw1fwKkvBJPqq3jIGfMwecmxENWwX6vuOccrK1+ +aHaFEw8FQc3rLBo4GL7y62C+ejyUy6VMNTST92/fSS9aGA/djtJere0cjBH6 +t3WkNw7U+xXX9fVz0LaWFuwdGQd6VCizcICDd/9+SC8JjoM1sV2T7p85qHm9 +OmjcOw6s1HNufx0k8/N/7pq+PQ4CfNnMX784uPmQ7LsFqnEQbhQ5yR3hoH/3 +1doQhTiInd/XFjTGwdGt23Z/Fo+DzFsFJ//84aBA+Icbr8ZiIf/4XM/7UxyM +snjssmUwFoq3uZuGz3DQehO38uW7WKBUnjKM/3GwQqa4eUdrLFSOqE3OznLw +Qsv1Ux/qYuF/DmOVcw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c4lt8fB3BRdmWPx7NICBk9DUU+H5IoaSBZJWUrZZQvSjaVqKxIMlqk +8jw3LSEpZZWMFFKkoZSyMsrv/P66r9d1zn2u+1znfN7n3Mpu/tvd+fn4+ETm +8PH9/5lzzE1Qf1+28bD+0TbJLGPj2la2lT37P1hWlCBrIkWH2aeV0Wx2Ing0 +e0ryS2lDTnUSax77PFRrBKzqljQCv7XB+ydY1+HPFvFvtyStoHXaK3WYdQ/C +vhyzWC7pDEJdfepDrOcgVLgl03WhH+TV5x76xnoDbz87eLKFw+HmrcQuP51B ++HEh6tNumSTwhJbz3wNGINvp9/6VgWlwYGBJP3VzEs6LKQxNzL8Aosox6r0G +fNiwg6mwMDwPTks0aOa5CiA3Z/MV9zOF4NZlWyXQKIh+HqG93+5dhUNPYtz8 +1UWxSnuuxK+cIig9KG6jYDkfT3bYuJsplUBemO+gnr0Eqt9eOiyQcguicme2 +jX6XRGmOnu7x5tvA1/oeK0KlMWY/dS+xtBRivlbmhUZK4+E7HjGsslIQ4cvh +X50gjf1NZSK8u6UgtdShtixNGrHefl1rVSksjm/ZcOu2NMo0Cez/01QKGw1r +rPM/SeOJ83YH2r+WwrmCAueE7TI4yX3zsZPFBbUgjxBbTVkUbGiS+hvDhaVr +em1y9WRxbuJgcWM8F5bz7dQdXCmLiY2FplknuGB6yvJTxDpZHH1y3Us3hQu7 +CrVti51lMa9UIs0kmwvpbb91+ZNlUbjAfs+8Ui7MWxHx+daILL4Py/cR7eKC ++PREzdSkLM4eNso+38MFqUcHL67nk8O3pe/r1N5zgb3Zza5LXA6nVi2VNRzg +gpH7+seCanJYHqgbseknF4LSxHJddsrhNuO6U2ICPPg4lrFD7KEcdlTQjgsv +4UG+CSew57Ec+nueuZGgxYPdSc3Jt+rlsOJkZqigDg/eqs57btMph237/aen +lvGgxSbA8MKIHL6LmEmpM+JBZakVe6mmPO5LF5X+uYUHGfvnDFpnyOOlQ3F1 +R4J4YHvvgqDyRXlcJ2K05sZhHkjNM1g0UiiP3jEqW9+F8OD0hQPOGVx57LjS +7m54lAcxDV3NvU3yiDqrDN/E8uDgknLewbkK+EYtMr8gnQcbB3yOnj2kgMLj ++uygch6YH110wyxEAfVkrY1t7/LAVLb77fgxBYx8/kFh2X0erFm/2cDplAIq +HRgX+PyQB5qXdUcWXVVA8+jzZSue8EDMfdSrrFsBpQKtrni08qDx41Hbzg2K +qODi8EL+Bw+eha+MPmGtiCXFXk9u/eRBrczPUiM7ReR8Hwpf/4sHFWauC/Pc +FLE/UVbfZ5QHNwpN672PKqLlywW8zCkeJO0TwmmuIuZ9uWZxQpAC648pWkwm +DdN+HlF/RKegUetjm7MqDYc2pUpNMyjYFLjqWLYmDa+vuLuQw6LAgv/dS4VV +NPS++xpzlCkwZWsdlt5KQ3H1pmhHNQpWOD+pFo6ioYTB+rshuhRQBQo+GxJo +qHZfpuucHgXLvvlKx52mofU7SekSfQp0QqU8BLJJe7XX4zccCjQyd4v949FQ +ZMJNi25AAb1t0m5kgIYfn2y0WI8UZCltntX/TsOIaqfXJiYUKO69dO3gbxrG +HhKNMDKlQO63+fTQPxr2jagpaptRICGReumLvBIu4pQfG91AgYCVzrceSyU0 +c/1sqrmFgsHHbseflSjhkOkcZy1nClhnOn1OU0pov2A4Z5rYdpe1ne0DJeSI +5Bc/d6Gg8s9qzffPlHDj9nyt3bspOLtUsm2iXwmjD/nV+btRYJhRpa5Oo2OV +Avu+uhcFB/etkBpi03E85d77NuIr+sUzXHU6bjc81RnhTb6vMb3FeAUdRY9u +WPvCh4KPfAfCdmylo76L1IDNfgpO+dBfxMbR8U7E/NnRQxQ8WnX23qYkOpqH ++O+LCKBgfK5woWQqHSsrei4JBVLgmjsSkpNHRy9v10uSQRQsb6tXKaugY2Rd +Vq3YYQq883B+2GM6dtAmv8cQXzxQPoH1dCx08v85TSwskt/Y+JqOfxX1YvqP +UNCz9r/DH3/TkaY8NJH5HwVSYj9diybpOC04Ms0XSvZD575NB/kYKPRoWY8H +MTdgK3tmPgODdCYMtMMoiLuqXi+9hIHfgxpcc8IpeBCUQ73RZaCuUrvDKPGw +iXRu7koGxnlv5VgepcCx+1+glhkDz9sbJ34n1pHsYKzbzcC8O6GNihEUfEr6 +FJXmzkCRtUNrnIhzRCc+f/Zl4MPrt15lEYvPVeCeCmGg2MTxCJnjFNQe15Dv +PcbA3a+N06yJw/4ahOvHMnDJxaL2OOLBcQfzjjMMnLr4/fUv4vxAn2KNTAba +dwZmqUZS4DAcKhF2kYE546KJdsTPvma/ZRUz0CO76VspcYTHDQgoZeAb+g3X +HuKV/RWFtXcY2BbCJyAURcHl7p4D3rUMjPcNbLEldnb40fqgnoF3R83/hRDL +dPwzWNDCQLW1Uw7ZxA3bF150fc1AN8cvHx8QR71gCfB6GLj1kl/uW+I1Vnpe +8z4ycOZSX+IE8a9n2GQ/yMAT2lcKpaLJ+tfsyZgZJ/NzjPNbR6wAATPWfxmY +1OJEcyB+8SBqT54AE/WODU/6EccZnHs6IsLE2H15YhHExmUFWuYSTMSnDVuS +icf1qZRMOSYaqzQ9zSEuuVk7NkhnosdygUNFxPu02h3XLmJixFiDdRkx/dpA +VfISJi7MjnWtJG5THVft02WiVcbpK0+IT+YJnli+kok9meuVG4hNmfI/44yY +2HpCpKWZeCpL3faNKRNDU1eXvyTmyhvc07JkoqHiipb/2zvVgnlsCxPD7jqp +vCBmSzpEv7Qj/TfPL/r/eJ1J3l9UnMn8fl73ekqcIhq6OdiNifrDZ3ZVEW+I +P8Gt82LisXeLT5UT/xPIlqf5MzEk+umvYuLy48XhfsFMLO5vS84l3v/3wYfK +MCbeMeZ6nCFWDW00l4xios7C6sORxN3j3cV7E5joK+pa7U98LnBIovw0GZ89 +us6ZeOPw32DhNCZOhr2bs4GYf/+CLsdsJvZGRk7pEt/7ysSSPCYeaQEdeeKD +HrqXZ68yUcssPGeGrK9GP4huv8nEgKHzFu+Je3dv9S+kmJhJm9GtIbZ2OLTa +8hETw3fQy44TC3ZEXsyuYyKNnW/jQvxw+1mBH01MlOuf1jUg1rbiNZ19y8T1 +Jg8LvpD9Kgpje7pHmHjTIjJqOXGIiYZw+RQT46J9B/6Revi0zulm8hwWXnge +Z1hHXGPxaMp0IQvNpnY+3kYcuj3p3HVNFg7Y391iTervi2316mh9FqoaBDsK +E++wH+l1NmBh/2iYc/Uxkv/ODtoS5iysl/nPQpP4m/viJ4f3sNC+r7p5gOSB +o9dO361eLHwc55CfTPzM56Skpj8LUxo8D60iLvT/5dITzsL3eXxzI0m+OP/3 +cHxdJgvPpo2IzJB8ajxlpyH5goVCGlskzpI8W5Oc0DzYzkJRFYkuJeJrZx4E +1XazsO5o+/WCYApi0pUfHRlkoU9vll0JyUvmy3Htn/xsvO+wa+waydeONzVP +7JhsLG9ktJgcoGC+U3dmjTIbtfaKMW+QfDbrHvPVXcxGPsHWIzLE3HcaUiLa +bPxtpGvb60vB6f7TuypWs1Hj7ocqF5L3G4YcJ1Ts2OgRYtj3dy/JX5no1oid +bFxRxZdsRTxqWHyr24mN3WHue8+T8+TSiWnPdDc2mnQaxS7dQ+pD/UKnyEE2 +lhSEV8AuCm649dwbPsHGlsNNQeI7yXnSuTu8spqNq1d/Hd24kQKP2fidSrVs +LBr8em23JQUVareXh9SxkT0YmB5gQeopmG9Iv5mNkxn+7HPmZH2l8lwud7Fx +mlrEV0XO06DNfcanxtl46ZbSwZo1pL5q9s1x1FbGiaD7S8KX/D+/39KO6irj +6RGFx34aFAg92rL80jJlFBRZ88FJneRh1RrPTwbKaJJcVrJiMQWpDySaAtYr +o+fI8rTXbAq2UBWZJ3cpY/LXXrF2eQqeXpbRe5iijHv5LcTuz6XgneoJy/fn +lPFR82m9cAEKxgpm3QQylPHyAY9BI35Sj/mDaZY5yhiaVM+4P8uDqIvV0+3X +lZHqOnqmgNx3jDP86n7UKGOkL5fBGeZBWULtLvaYMloKxe60eMuDaxsbFOL/ +KONajbX/VXXyIEv81auhadJe+3vOitc8OJ7Sa/6AXwW3lP/ZrNTGA6vMKZ0d +Eip44/znvrYmHvRd1Zs9qaWCCjGJqTPVPFhQdyF3Yo8KvmG1Vqlc4YHHvOD3 +zc0quL1I8etPXx7QWM9fT7eoYF7fQKuaDw+aDRgvNNpVsKQz87izFw9W+j15 +GNWlgr4vhpVr9/FAsFU2e+UXFczOZ6TGuPDg8qVyu4tzFuGC7Zuoemtyfzb8 +U79/+SK83B/c4a/Hg70BYWXiWYuw5Pk/z7XDXND11Gq22qOKgUPP8trcufBC +SlssePVi/Fd9RV6I/G88uBmVrS2ghuUu2kJsuVIIm6O5tbFHDRuH5jzbYHMb +RLtDLQ5Q6ijaBVUOsrdg4Ipyam64BvpGbaoYP1sCqRqKc+/ZLUEF9Phn+bkY +UrI86vawNRGig75/sykCx1SXZvHPmkhJnLGRfnYN/phdnsyt1MJ0qa9rMhlX +oX/ANKQmXhv3rnyqF5t2GfLX6is17VmKoUVhmi1jBVASGyzpuVQHE3Td/z4J +z4d4u72bBMZ00Oymbt1B+TxY0Z13Pb5JF3dJGDhVmedC5pLskqZNeuhaWLRk +3u0LEFGdlLnpnh5a75WruyuYBZuV7C7Xq+qj65Hg8YqUDDA5UOckmaiPq4R/ +UCVeaZBLd1NtHNNHdR8I2rb6HKg+vppu7bQMzdyEenptzkDK0hrNV5XL0KJG +z1V4eTJ4jMxtea7JwYn1O/Xbq06CW+lvdmIyB7NeXC0qqU8AvyibmY1nOPhA +5pe8aGUCBNtQr8XPcfCdPb+/b2kCJIwFn05JJ378tsMoMwFurp6czsjhoKdo +ZyDNIwEmH812XCnm4EyjgGw1fwKkvBJPqq3jIGfMwecmxENWwX6vuOccrK1+ +aHaFEw8FQc3rLBo4GL7y62C+ejyUy6VMNTST92/fSS9aGA/djtJere0cjBH6 +t3WkNw7U+xXX9fVz0LaWFuwdGQd6VCizcICDd/9+SC8JjoM1sV2T7p85qHm9 +OmjcOw6s1HNufx0k8/N/7pq+PQ4CfNnMX784uPmQ7LsFqnEQbhQ5yR3hoH/3 +1doQhTiInd/XFjTGwdGt23Z/Fo+DzFsFJ//84aBA+Icbr8ZiIf/4XM/7UxyM +snjssmUwFoq3uZuGz3DQehO38uW7WKBUnjKM/3GwQqa4eUdrLFSOqE3OznLw +Qsv1Ux/qYuF/DmOVcw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08013634784319816}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08013634784319816}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c4lt8fB3BRdmWPx7NICBk9DUU+H5IoaSBZJWUrZZQvSjaVqKxIMlqk +8jw3LSEpZZWMFFKkoZSyMsrv/P66r9d1zn2u+1znfN7n3Mpu/tvd+fn4+ETm +8PH9/5lzzE1Qf1+28bD+0TbJLGPj2la2lT37P1hWlCBrIkWH2aeV0Wx2Ing0 +e0ryS2lDTnUSax77PFRrBKzqljQCv7XB+ydY1+HPFvFvtyStoHXaK3WYdQ/C +vhyzWC7pDEJdfepDrOcgVLgl03WhH+TV5x76xnoDbz87eLKFw+HmrcQuP51B ++HEh6tNumSTwhJbz3wNGINvp9/6VgWlwYGBJP3VzEs6LKQxNzL8Aosox6r0G +fNiwg6mwMDwPTks0aOa5CiA3Z/MV9zOF4NZlWyXQKIh+HqG93+5dhUNPYtz8 +1UWxSnuuxK+cIig9KG6jYDkfT3bYuJsplUBemO+gnr0Eqt9eOiyQcguicme2 +jX6XRGmOnu7x5tvA1/oeK0KlMWY/dS+xtBRivlbmhUZK4+E7HjGsslIQ4cvh +X50gjf1NZSK8u6UgtdShtixNGrHefl1rVSksjm/ZcOu2NMo0Cez/01QKGw1r +rPM/SeOJ83YH2r+WwrmCAueE7TI4yX3zsZPFBbUgjxBbTVkUbGiS+hvDhaVr +em1y9WRxbuJgcWM8F5bz7dQdXCmLiY2FplknuGB6yvJTxDpZHH1y3Us3hQu7 +CrVti51lMa9UIs0kmwvpbb91+ZNlUbjAfs+8Ui7MWxHx+daILL4Py/cR7eKC ++PREzdSkLM4eNso+38MFqUcHL67nk8O3pe/r1N5zgb3Zza5LXA6nVi2VNRzg +gpH7+seCanJYHqgbseknF4LSxHJddsrhNuO6U2ICPPg4lrFD7KEcdlTQjgsv +4UG+CSew57Ec+nueuZGgxYPdSc3Jt+rlsOJkZqigDg/eqs57btMph237/aen +lvGgxSbA8MKIHL6LmEmpM+JBZakVe6mmPO5LF5X+uYUHGfvnDFpnyOOlQ3F1 +R4J4YHvvgqDyRXlcJ2K05sZhHkjNM1g0UiiP3jEqW9+F8OD0hQPOGVx57LjS +7m54lAcxDV3NvU3yiDqrDN/E8uDgknLewbkK+EYtMr8gnQcbB3yOnj2kgMLj ++uygch6YH110wyxEAfVkrY1t7/LAVLb77fgxBYx8/kFh2X0erFm/2cDplAIq +HRgX+PyQB5qXdUcWXVVA8+jzZSue8EDMfdSrrFsBpQKtrni08qDx41Hbzg2K +qODi8EL+Bw+eha+MPmGtiCXFXk9u/eRBrczPUiM7ReR8Hwpf/4sHFWauC/Pc +FLE/UVbfZ5QHNwpN672PKqLlywW8zCkeJO0TwmmuIuZ9uWZxQpAC648pWkwm +DdN+HlF/RKegUetjm7MqDYc2pUpNMyjYFLjqWLYmDa+vuLuQw6LAgv/dS4VV +NPS++xpzlCkwZWsdlt5KQ3H1pmhHNQpWOD+pFo6ioYTB+rshuhRQBQo+GxJo +qHZfpuucHgXLvvlKx52mofU7SekSfQp0QqU8BLJJe7XX4zccCjQyd4v949FQ +ZMJNi25AAb1t0m5kgIYfn2y0WI8UZCltntX/TsOIaqfXJiYUKO69dO3gbxrG +HhKNMDKlQO63+fTQPxr2jagpaptRICGReumLvBIu4pQfG91AgYCVzrceSyU0 +c/1sqrmFgsHHbseflSjhkOkcZy1nClhnOn1OU0pov2A4Z5rYdpe1ne0DJeSI +5Bc/d6Gg8s9qzffPlHDj9nyt3bspOLtUsm2iXwmjD/nV+btRYJhRpa5Oo2OV +Avu+uhcFB/etkBpi03E85d77NuIr+sUzXHU6bjc81RnhTb6vMb3FeAUdRY9u +WPvCh4KPfAfCdmylo76L1IDNfgpO+dBfxMbR8U7E/NnRQxQ8WnX23qYkOpqH ++O+LCKBgfK5woWQqHSsrei4JBVLgmjsSkpNHRy9v10uSQRQsb6tXKaugY2Rd +Vq3YYQq883B+2GM6dtAmv8cQXzxQPoH1dCx08v85TSwskt/Y+JqOfxX1YvqP +UNCz9r/DH3/TkaY8NJH5HwVSYj9diybpOC04Ms0XSvZD575NB/kYKPRoWY8H +MTdgK3tmPgODdCYMtMMoiLuqXi+9hIHfgxpcc8IpeBCUQ73RZaCuUrvDKPGw +iXRu7koGxnlv5VgepcCx+1+glhkDz9sbJ34n1pHsYKzbzcC8O6GNihEUfEr6 +FJXmzkCRtUNrnIhzRCc+f/Zl4MPrt15lEYvPVeCeCmGg2MTxCJnjFNQe15Dv +PcbA3a+N06yJw/4ahOvHMnDJxaL2OOLBcQfzjjMMnLr4/fUv4vxAn2KNTAba +dwZmqUZS4DAcKhF2kYE546KJdsTPvma/ZRUz0CO76VspcYTHDQgoZeAb+g3X +HuKV/RWFtXcY2BbCJyAURcHl7p4D3rUMjPcNbLEldnb40fqgnoF3R83/hRDL +dPwzWNDCQLW1Uw7ZxA3bF150fc1AN8cvHx8QR71gCfB6GLj1kl/uW+I1Vnpe +8z4ycOZSX+IE8a9n2GQ/yMAT2lcKpaLJ+tfsyZgZJ/NzjPNbR6wAATPWfxmY +1OJEcyB+8SBqT54AE/WODU/6EccZnHs6IsLE2H15YhHExmUFWuYSTMSnDVuS +icf1qZRMOSYaqzQ9zSEuuVk7NkhnosdygUNFxPu02h3XLmJixFiDdRkx/dpA +VfISJi7MjnWtJG5THVft02WiVcbpK0+IT+YJnli+kok9meuVG4hNmfI/44yY +2HpCpKWZeCpL3faNKRNDU1eXvyTmyhvc07JkoqHiipb/2zvVgnlsCxPD7jqp +vCBmSzpEv7Qj/TfPL/r/eJ1J3l9UnMn8fl73ekqcIhq6OdiNifrDZ3ZVEW+I +P8Gt82LisXeLT5UT/xPIlqf5MzEk+umvYuLy48XhfsFMLO5vS84l3v/3wYfK +MCbeMeZ6nCFWDW00l4xios7C6sORxN3j3cV7E5joK+pa7U98LnBIovw0GZ89 +us6ZeOPw32DhNCZOhr2bs4GYf/+CLsdsJvZGRk7pEt/7ysSSPCYeaQEdeeKD +HrqXZ68yUcssPGeGrK9GP4huv8nEgKHzFu+Je3dv9S+kmJhJm9GtIbZ2OLTa +8hETw3fQy44TC3ZEXsyuYyKNnW/jQvxw+1mBH01MlOuf1jUg1rbiNZ19y8T1 +Jg8LvpD9Kgpje7pHmHjTIjJqOXGIiYZw+RQT46J9B/6Revi0zulm8hwWXnge +Z1hHXGPxaMp0IQvNpnY+3kYcuj3p3HVNFg7Y391iTervi2316mh9FqoaBDsK +E++wH+l1NmBh/2iYc/Uxkv/ODtoS5iysl/nPQpP4m/viJ4f3sNC+r7p5gOSB +o9dO361eLHwc55CfTPzM56Skpj8LUxo8D60iLvT/5dITzsL3eXxzI0m+OP/3 +cHxdJgvPpo2IzJB8ajxlpyH5goVCGlskzpI8W5Oc0DzYzkJRFYkuJeJrZx4E +1XazsO5o+/WCYApi0pUfHRlkoU9vll0JyUvmy3Htn/xsvO+wa+waydeONzVP +7JhsLG9ktJgcoGC+U3dmjTIbtfaKMW+QfDbrHvPVXcxGPsHWIzLE3HcaUiLa +bPxtpGvb60vB6f7TuypWs1Hj7ocqF5L3G4YcJ1Ts2OgRYtj3dy/JX5no1oid +bFxRxZdsRTxqWHyr24mN3WHue8+T8+TSiWnPdDc2mnQaxS7dQ+pD/UKnyEE2 +lhSEV8AuCm649dwbPsHGlsNNQeI7yXnSuTu8spqNq1d/Hd24kQKP2fidSrVs +LBr8em23JQUVareXh9SxkT0YmB5gQeopmG9Iv5mNkxn+7HPmZH2l8lwud7Fx +mlrEV0XO06DNfcanxtl46ZbSwZo1pL5q9s1x1FbGiaD7S8KX/D+/39KO6irj +6RGFx34aFAg92rL80jJlFBRZ88FJneRh1RrPTwbKaJJcVrJiMQWpDySaAtYr +o+fI8rTXbAq2UBWZJ3cpY/LXXrF2eQqeXpbRe5iijHv5LcTuz6XgneoJy/fn +lPFR82m9cAEKxgpm3QQylPHyAY9BI35Sj/mDaZY5yhiaVM+4P8uDqIvV0+3X +lZHqOnqmgNx3jDP86n7UKGOkL5fBGeZBWULtLvaYMloKxe60eMuDaxsbFOL/ +KONajbX/VXXyIEv81auhadJe+3vOitc8OJ7Sa/6AXwW3lP/ZrNTGA6vMKZ0d +Eip44/znvrYmHvRd1Zs9qaWCCjGJqTPVPFhQdyF3Yo8KvmG1Vqlc4YHHvOD3 +zc0quL1I8etPXx7QWM9fT7eoYF7fQKuaDw+aDRgvNNpVsKQz87izFw9W+j15 +GNWlgr4vhpVr9/FAsFU2e+UXFczOZ6TGuPDg8qVyu4tzFuGC7Zuoemtyfzb8 +U79/+SK83B/c4a/Hg70BYWXiWYuw5Pk/z7XDXND11Gq22qOKgUPP8trcufBC +SlssePVi/Fd9RV6I/G88uBmVrS2ghuUu2kJsuVIIm6O5tbFHDRuH5jzbYHMb +RLtDLQ5Q6ijaBVUOsrdg4Ipyam64BvpGbaoYP1sCqRqKc+/ZLUEF9Phn+bkY +UrI86vawNRGig75/sykCx1SXZvHPmkhJnLGRfnYN/phdnsyt1MJ0qa9rMhlX +oX/ANKQmXhv3rnyqF5t2GfLX6is17VmKoUVhmi1jBVASGyzpuVQHE3Td/z4J +z4d4u72bBMZ00Oymbt1B+TxY0Z13Pb5JF3dJGDhVmedC5pLskqZNeuhaWLRk +3u0LEFGdlLnpnh5a75WruyuYBZuV7C7Xq+qj65Hg8YqUDDA5UOckmaiPq4R/ +UCVeaZBLd1NtHNNHdR8I2rb6HKg+vppu7bQMzdyEenptzkDK0hrNV5XL0KJG +z1V4eTJ4jMxtea7JwYn1O/Xbq06CW+lvdmIyB7NeXC0qqU8AvyibmY1nOPhA +5pe8aGUCBNtQr8XPcfCdPb+/b2kCJIwFn05JJ378tsMoMwFurp6czsjhoKdo +ZyDNIwEmH812XCnm4EyjgGw1fwKkvBJPqq3jIGfMwecmxENWwX6vuOccrK1+ +aHaFEw8FQc3rLBo4GL7y62C+ejyUy6VMNTST92/fSS9aGA/djtJere0cjBH6 +t3WkNw7U+xXX9fVz0LaWFuwdGQd6VCizcICDd/9+SC8JjoM1sV2T7p85qHm9 +OmjcOw6s1HNufx0k8/N/7pq+PQ4CfNnMX784uPmQ7LsFqnEQbhQ5yR3hoH/3 +1doQhTiInd/XFjTGwdGt23Z/Fo+DzFsFJ//84aBA+Icbr8ZiIf/4XM/7UxyM +snjssmUwFoq3uZuGz3DQehO38uW7WKBUnjKM/3GwQqa4eUdrLFSOqE3OznLw +Qsv1Ux/qYuF/DmOVcw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08013634784319816}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 20}, {0., 0.08013634784319816}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}, + 3.992101828644449*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"3dc75e34-5270-844b-802c-74a3ff117b72"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{3.991923767707161*^9}, + CellLabel->"In[97]:=",ExpressionUUID->"15c72253-d078-7f43-9f29-7ac094706013"], + +Cell[BoxData["31.37436817341234`"], "Output", + CellChangeTimes->{3.991340544411957*^9, 3.992101828702856*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"77f349a4-d64f-cf46-b97e-07e7bad3b23d"] +}, 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.9919237699816914`*^9}, + CellLabel->"In[98]:=",ExpressionUUID->"8ab23ce3-6dd3-7740-bde2-eb9eba4ac874"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.265679998435527`*^-274\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 98, + 450, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9, 3.992101828957815*^9}, + CellLabel-> + "During evaluation of \ +In[98]:=",ExpressionUUID->"2706148a-c11b-af46-8b16-ab3aefb68e97"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.096203614206159`*^-287\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 98, + 451, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9, 3.9921018289748096`*^9}, + CellLabel-> + "During evaluation of \ +In[98]:=",ExpressionUUID->"34ab4ebb-0893-9a40-aab7-6cbe40c26f92"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.935522410406355`*^-300\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 98, + 452, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9, 3.992101828987707*^9}, + CellLabel-> + "During evaluation of \ +In[98]:=",ExpressionUUID->"c2d37903-5d14-b340-bd5e-b4ee36fc17eb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 98, 453, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9, 3.992101829001713*^9}, + CellLabel-> + "During evaluation of \ +In[98]:=",ExpressionUUID->"532b2c9c-1bba-ff41-89f5-9cd17d43504c"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV12k8VV0XAHDhiVLIFDIkQyRJce8597r2KmVKJUUl6VYSEsn0JhKZklnc +Q0+KCBGSjD3GCCmEKCUpDWYhQ+Hdfbq//4ezz7l7rb3W2gqnXMzPcHNxca1a +xsX19/dXb+MzpRtpelL7c68ONAjrdSRLXtrRHYAKiFER1RejeiDeckqyOxaV +pWQEf2la1PM0e9DF052KDozKmlc3CaI1o2tj57oK0HD67sWsJjn08ek+l6mu +GlQ3oegc0rQFGSgNfpjoeo0WitUipZv00FwXPX68qx/5aas1ezTsQ7X6GWlt +qZOIE29+U3k5G8l8LP16avMCCn6KuqvrziIxpxMP+PR5oDRFZfLiIRcUq2VQ +vs+CH5TNC8Tkn7qht9TWqgnh1WCs7lX70s8L3Ujza+GWWgNK32yft4VeRmtv +fr4ed1sUOD1b6tNd/VDIIWO917/EYUNd77eOQH/kRqacaAyQBNm5th5bl2to +19i8t/NnaVCvcuTv2hqE/HUPnJQmZIGeGs6s6QtGjNzEwiuV8hCi4vD0x4NQ +5DQ7cbVhtQIYJzTqDOwJQ3Pqwr0aFhuAlnVCo4AnHOlm59xNSFAEw/pd2Y73 +I9CEiAnbskYJDMRcjuavj0JfwtmWF/lUgPdjjnGAZTQyHvMyHqBtBMTRXczi +j0HDp/ndCv1UYaXarf94a2Lwfq7lDqlRA55ST+cZl1gk8lIlMn9sE/Qu1Zz7 +sDIOyYTmmdFom0Fii8DdqAdxiFInhUXPasCQntuTavpN1CS9Q2cyZguo7Vxy +TS27iRgyNdGabzTh+W2QEIB4JMiT6n4yYCu8iXS+bFsYj+T85XWPqmhByTNe +8WC1BLRC2brI/LkWWM6f28iOS0BbWFJ5Xse3gZ2aWOu3kQR0sVek1oRrO/xp +G14uZ8hBY5PhFsbUdkh5/dzmdwwHGWrWJxlraEOejv+qgHYOqphk/p55pQ3P +UoXTutdQKKW5+NTBNm144eAglS9CocD07U257drwpiRVOESUQsaH1RPPdGtD +ccLzwO3iFOook6a3f9KGja37A4MlKTToP3cxd0obPKpEv4jJU0hCuHjQVloH +4o8I7m5Xp5Dz5m3v2s7oQObXs1Fd+hTymJGeP2GvA7mp9qJ3dlHIp4ZHetRR +B34pxvDa7abQjSOdR1de0IGJz25bfhpQKDPwf293eutAbBQjhceEQv3vK7of +R+rAavt8fgEzCllG7OmKL9aB/9p9hXKOUYg1attxdAUN2lrCowlX/D3lhqlP +BWgw4Jf4qhV7NGTTBXlBGpi80oq0v0ihZIVxgQERGsToyMcmuFFo8dBl/Qsy +NBC5fe/hsAeFKstjCoI1abAYKkr6e1Nox/WK6McW+Pku+9Y91ygkbZliI3GE +Bs5edaYd2D83BG6+ZEUDvw+Be6wDKZT61LhB7wQNNgwbtjoGUYh7vGOp0Z4G +zcH3ZvxDKFRrOeTcd5kG8safaqkbFNqtJLl3dSoNXPObAu3jKFQ4Uqdgm0aD +T9/kFnuxlYrdfpXdp0Guzs2lQzcpxGvScsc+mwardi4moXgK1bgE/6wtpEG5 +coK2EIdCeuVTHO/nNHi3ds0cJ4lCNPO2/m/DNHhf92pufwqF7q/zK9Ybo4Hq +Ec2gYmzxgc3h8RM0sCcTE+VSKTTlFaqj/4sGqz/cPz6EXXAbhSYv0WBW2ueg +XxqFNH881LAQocOQ38M/0RkUUr0a9r8aOh0yLvR4H3tIoafM9H9MGXS4Fvek +sBzbbKYytlOXDsHry06vy6XQ/5ync77voIPTiKPCW+wGa/YnQVM6oBshMvvy +KWRP0kyOsenAq5IsLfeYQlk/P62bCqWDVkHNFcsS/P9y/2T63qBDfWGPazr2 +a4e1NL5IOsRUneuZxJ7vMzWTjqNDcdU6kahSCpm0FAfCbTrkcX0XrCzD+Zsd +MRL+iA4PItL3//MfhTadISuV39FhFd2AoV5NoagN++avvafDtFHFtC321MdT +Ov29dNjFTmIkY1dYhWcnf6bDwV332EI1FDI3+8hZO0IHKZU5uWHsS8ygCyu4 +CHD8t8kp6hmFemcTs89yE6BwobOmGntnUe7XOl4ChB26UyexV2l1WwesIIBm +PMxlWUehuyrqxr9FCEDT5jTxerw/a9oURpQJGKLYkb7PKaTRMmC9R5WAmhtH +QzOxY8PnOVmbCChT7F/Vjm3NpyRop0mAPNXwRKWBQmN/POd7CQJe35kJacCW ++C7T3rqHgAn3A7RfjRS6nK4lqLmPANPIxg9STRTqO2VgHGFGwAYFJ2EW9oMP +LpXGFgTU9RxeG4Ct116TXWNDwKLX+5zlLyh0psI+sNCVAN47zKU57NHzg167 +3Ql44XS4RLIZx1vW6dwbTwJkGfPfadhhPi7ms5cJUCvke+SKnc/wXK8bTMDP +XRkf+rAZgzOiL0MJaBFkH/qNXZt4ic/mBgFBq5fri7+k0JtZn1G/aALOS+4N +NcT+U3TtaW0SAaW2WwvTsYPt/sk/dJuAkqLyoXJsIYmQewN3CDgYeetWG/YG +j7AwvnQC3JvCbX9jZyutukJlEDBLL/EVekUh7Y4IV7UHBIixnIQUsQ23xxzZ +k0fAXrPUf42wW/tFTN8/IsApTI+ywraKvYnOFxKwqZCzygnbaYKjElWKv9fm +yYkI7Ni85KnXtQQcLxN81Igtc2L999P1BEQvcrt3YacLpvZMNRBg81g2/wt2 +yfn0GolXBCT7/45bwN4hu7Eoo5WAXZpvmStaKNTUnJlFtBMw7CFyXAz7g3pO +tFU3AatVXgqoYdv1aAQOvSNgs4FD4jbs8bA8L58PBFBOCXeZ2JcYWudW9xHA +XjqpsAube7DAJrmfgLf2b9eZYocnaptrDhCQsnZl9EFsceOi3VXfCEi8suyK +FXbyLJ08MIjjJfZygI2tmlm6uX+YAHFL7+d22AWHmevdxggorJZQdMJm8v0n +yvuTgIqevNkL2M+K9Pjip/D+bT5o5IG9z65qXnmGAHUQFLmE3S2+c7RojoCc +jFELH+yTdbWfDP8Q0DezTMwPe9B9d2f3IgEjjRam/tjuSs8bHJaRwCyfWQzA +Xmw3ejrPQ4Ld+Wn1QOyQa015N5aTYBBs3f7XwttN78msIOFHHmP6r5P6XyY8 +FCCBQ92O+WvF2P1heoIk1P6MzbyGnbOjzbdFmARFD1XG3/VpE+aubFESot6d +M7iKXXm3w3ZCnASFfseXvth9pgonPCVJiD12rNcbm2vu/NHf0iQ84f/p7IWt +kF528KosCe4zTD837J0H+Pb9s56EJNJAyAX79MJBo7ANJLz+IivviB2YdXen +kDIJGSKtubbY6RYjujc3khDc51Bhg12/jEGX2kRCvsvs3iPY3x4GayVvJsF0 +IPT4AWx+q3Z1RU0SLBxVR4yxjQuc1mtok/DlaGM4ie1oUypdQCMhVW3g363Y +YSuXi9NJvJ/tuzQ2YjefurNihx4JKZm8LSLYI4LDPPVAwqEjfn182ILlxKKJ +PgnZPy5e/IPz1Uz09c9DRiQIfJ5b+zefXSvlRt6akBA2kqH+N99jz537ZrOX +hBA53qq/56G9lve9vTkJFaf+OD7EnnI58GbkEAmttMf+ydhiMsmtFw+TIP54 +r1QUtqU7vc7HmoSI/adfOGO/U3LMjbYjwfjWdV1V7N+tRZniDjj+Um+Oif89 +b74895LOkXB51vXPMuzjnf9y0i6Q4LbwsvotPv99QS1XS7xJWD4Wa3MNe9k2 +mcssXxJ0Nr657vS3XvTae9T4kaDr0EmzwLalcTs2B5KgfF9PQhn721ftg32R +JHSvYQ5X4HrFH+e/90wMCeyIDypp2KroleFgHAm3srI+h2I7cs7qTlEkVHdO +fzbDHjVMUua/R0Lz7j6uHlw/pzKXZjSLSahvW1fShevtV0uDu9dLSXjb/fZi +MXY3b4TR53ISbPq7qhKwy9nSiQlV+H1O1RKHsAMkdRgLjTj/uK9nN+L6Lhzq +6NP0noTVVt8D7uL6z017pKT0kQTLHUuel7CnPs80+37C8VZevXQAuwsFyWp9 +JUGES/fFMuzkmTsVnDESZmzVLKxxf9l8tpPrDDcDHF7YkQu4X8mJy2RV8DKg +0t3qYgu2cO2pA5J8DGisW0Qp2JNy4ykvBBhQphKaqI9d9mal/jZxBpiMDhhc +w/3PyACCljYyIDxQIn4U98/TytkrkvYy4NFOGXOPSgp519k4qpgx4ALk0HWw +o8+IvCgwZ0DcXOvdqQo8b6RfCn9xmAH9P8QXXbHFVIyEFk4y4F4S86sd7u/1 +KgNibE8GjLtd8CbLcb9XlV+vcocBQpV88gFFFIKG11cLUhhgmqMQvw3b0j74 +k14aA1zMqqP7n1DoWuZI6uEsBnypbpXcgf1e9any9ccMMFMePD+L55NItaPq +w88ZsKWhjzR7RKGJTXG0gnEGfI2yakjLxvFqht2ikwxwm188Zopd5Tx60H2a +Ab5jycGTD/DzBcautHkGnJJYngLYmxhcOWU8TNDT6B/qzKTQKePzCrUSTMhR +Yw8Mp+N5/Kzhqg5dJvSYnH3WfAf3i7Tfn6ZDmXDvJf+Gw7G4Pum7z5jcYMK8 +aKHstxgKPfk0vOpuBBMOaOUUe2IXyPXSTWKZUFFcVH8zGtc3qioi+RYTJjvv +mDdH4vkjPIg0zGXCLeX1Gmp4Pr3uLhRDtTOhTXWbURKed612KQJTThfqvcdm +rPH8vNDBL1i7Xhf67+8/1ojn67tnRntMFHVB53XMfh3sr8GlXlaquhDZxDUk +gOfxi4378y5t04X4/Y5jj51xvdnnI1dioAsRgT6sMQecH0c6/2i76MLy9qyz +omwKrTsfUrqlShfSq/Kfie/B/Wil06O9h1lw08fc4hK+f6Tp+3qPH2WBtUlY +RZYchbb5RurHWbOghnOl5K0s7i/j+Z3dJ1lwx2zMhpDB88Gb6bnTTizoldL+ +3zi+z8ym+u309mfBs0qH0T34PvSOGdd+P5sF871T3vm8eB71SPvXOJcF4wMj +iu08FPqV++TMcD4L7Nt12dPcFBLZ0D2jVcQCc5WtccQyCu3hl5X5r4oF0sHF +X0oXOOhpx33b9k4WxClkGGX+4iATwRINz24WfJDq2PpsmoO6DRt/Sfaw4Mry +jIcfpzhoqmwo1KaPBSAQd0Z8koM0UrY+/DHIglfHX7deHsPrvdvhGT7CAqEg +X/bNUbye2EGkOc4CRXevoJwRDrIL8Whzn2bBSmZOVM8QXq8qOGntLAvy2Gs8 +fg5yUMA853TZPAuqfkiN82MLa2dtPr7AAiPuHi75HxyUfL5semmJBexuhwzt +7xz0f4UL4Ic= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV12k8VV0XAHDhiVLIFDIkQyRJce8597r2KmVKJUUl6VYSEsn0JhKZklnc +Q0+KCBGSjD3GCCmEKCUpDWYhQ+Hdfbq//4ezz7l7rb3W2gqnXMzPcHNxca1a +xsX19/dXb+MzpRtpelL7c68ONAjrdSRLXtrRHYAKiFER1RejeiDeckqyOxaV +pWQEf2la1PM0e9DF052KDozKmlc3CaI1o2tj57oK0HD67sWsJjn08ek+l6mu +GlQ3oegc0rQFGSgNfpjoeo0WitUipZv00FwXPX68qx/5aas1ezTsQ7X6GWlt +qZOIE29+U3k5G8l8LP16avMCCn6KuqvrziIxpxMP+PR5oDRFZfLiIRcUq2VQ +vs+CH5TNC8Tkn7qht9TWqgnh1WCs7lX70s8L3Ujza+GWWgNK32yft4VeRmtv +fr4ed1sUOD1b6tNd/VDIIWO917/EYUNd77eOQH/kRqacaAyQBNm5th5bl2to +19i8t/NnaVCvcuTv2hqE/HUPnJQmZIGeGs6s6QtGjNzEwiuV8hCi4vD0x4NQ +5DQ7cbVhtQIYJzTqDOwJQ3Pqwr0aFhuAlnVCo4AnHOlm59xNSFAEw/pd2Y73 +I9CEiAnbskYJDMRcjuavj0JfwtmWF/lUgPdjjnGAZTQyHvMyHqBtBMTRXczi +j0HDp/ndCv1UYaXarf94a2Lwfq7lDqlRA55ST+cZl1gk8lIlMn9sE/Qu1Zz7 +sDIOyYTmmdFom0Fii8DdqAdxiFInhUXPasCQntuTavpN1CS9Q2cyZguo7Vxy +TS27iRgyNdGabzTh+W2QEIB4JMiT6n4yYCu8iXS+bFsYj+T85XWPqmhByTNe +8WC1BLRC2brI/LkWWM6f28iOS0BbWFJ5Xse3gZ2aWOu3kQR0sVek1oRrO/xp +G14uZ8hBY5PhFsbUdkh5/dzmdwwHGWrWJxlraEOejv+qgHYOqphk/p55pQ3P +UoXTutdQKKW5+NTBNm144eAglS9CocD07U257drwpiRVOESUQsaH1RPPdGtD +ccLzwO3iFOook6a3f9KGja37A4MlKTToP3cxd0obPKpEv4jJU0hCuHjQVloH +4o8I7m5Xp5Dz5m3v2s7oQObXs1Fd+hTymJGeP2GvA7mp9qJ3dlHIp4ZHetRR +B34pxvDa7abQjSOdR1de0IGJz25bfhpQKDPwf293eutAbBQjhceEQv3vK7of +R+rAavt8fgEzCllG7OmKL9aB/9p9hXKOUYg1attxdAUN2lrCowlX/D3lhqlP +BWgw4Jf4qhV7NGTTBXlBGpi80oq0v0ihZIVxgQERGsToyMcmuFFo8dBl/Qsy +NBC5fe/hsAeFKstjCoI1abAYKkr6e1Nox/WK6McW+Pku+9Y91ygkbZliI3GE +Bs5edaYd2D83BG6+ZEUDvw+Be6wDKZT61LhB7wQNNgwbtjoGUYh7vGOp0Z4G +zcH3ZvxDKFRrOeTcd5kG8safaqkbFNqtJLl3dSoNXPObAu3jKFQ4Uqdgm0aD +T9/kFnuxlYrdfpXdp0Guzs2lQzcpxGvScsc+mwardi4moXgK1bgE/6wtpEG5 +coK2EIdCeuVTHO/nNHi3ds0cJ4lCNPO2/m/DNHhf92pufwqF7q/zK9Ybo4Hq +Ec2gYmzxgc3h8RM0sCcTE+VSKTTlFaqj/4sGqz/cPz6EXXAbhSYv0WBW2ueg +XxqFNH881LAQocOQ38M/0RkUUr0a9r8aOh0yLvR4H3tIoafM9H9MGXS4Fvek +sBzbbKYytlOXDsHry06vy6XQ/5ync77voIPTiKPCW+wGa/YnQVM6oBshMvvy +KWRP0kyOsenAq5IsLfeYQlk/P62bCqWDVkHNFcsS/P9y/2T63qBDfWGPazr2 +a4e1NL5IOsRUneuZxJ7vMzWTjqNDcdU6kahSCpm0FAfCbTrkcX0XrCzD+Zsd +MRL+iA4PItL3//MfhTadISuV39FhFd2AoV5NoagN++avvafDtFHFtC321MdT +Ov29dNjFTmIkY1dYhWcnf6bDwV332EI1FDI3+8hZO0IHKZU5uWHsS8ygCyu4 +CHD8t8kp6hmFemcTs89yE6BwobOmGntnUe7XOl4ChB26UyexV2l1WwesIIBm +PMxlWUehuyrqxr9FCEDT5jTxerw/a9oURpQJGKLYkb7PKaTRMmC9R5WAmhtH +QzOxY8PnOVmbCChT7F/Vjm3NpyRop0mAPNXwRKWBQmN/POd7CQJe35kJacCW ++C7T3rqHgAn3A7RfjRS6nK4lqLmPANPIxg9STRTqO2VgHGFGwAYFJ2EW9oMP +LpXGFgTU9RxeG4Ct116TXWNDwKLX+5zlLyh0psI+sNCVAN47zKU57NHzg167 +3Ql44XS4RLIZx1vW6dwbTwJkGfPfadhhPi7ms5cJUCvke+SKnc/wXK8bTMDP +XRkf+rAZgzOiL0MJaBFkH/qNXZt4ic/mBgFBq5fri7+k0JtZn1G/aALOS+4N +NcT+U3TtaW0SAaW2WwvTsYPt/sk/dJuAkqLyoXJsIYmQewN3CDgYeetWG/YG +j7AwvnQC3JvCbX9jZyutukJlEDBLL/EVekUh7Y4IV7UHBIixnIQUsQ23xxzZ +k0fAXrPUf42wW/tFTN8/IsApTI+ywraKvYnOFxKwqZCzygnbaYKjElWKv9fm +yYkI7Ni85KnXtQQcLxN81Igtc2L999P1BEQvcrt3YacLpvZMNRBg81g2/wt2 +yfn0GolXBCT7/45bwN4hu7Eoo5WAXZpvmStaKNTUnJlFtBMw7CFyXAz7g3pO +tFU3AatVXgqoYdv1aAQOvSNgs4FD4jbs8bA8L58PBFBOCXeZ2JcYWudW9xHA +XjqpsAube7DAJrmfgLf2b9eZYocnaptrDhCQsnZl9EFsceOi3VXfCEi8suyK +FXbyLJ08MIjjJfZygI2tmlm6uX+YAHFL7+d22AWHmevdxggorJZQdMJm8v0n +yvuTgIqevNkL2M+K9Pjip/D+bT5o5IG9z65qXnmGAHUQFLmE3S2+c7RojoCc +jFELH+yTdbWfDP8Q0DezTMwPe9B9d2f3IgEjjRam/tjuSs8bHJaRwCyfWQzA +Xmw3ejrPQ4Ld+Wn1QOyQa015N5aTYBBs3f7XwttN78msIOFHHmP6r5P6XyY8 +FCCBQ92O+WvF2P1heoIk1P6MzbyGnbOjzbdFmARFD1XG3/VpE+aubFESot6d +M7iKXXm3w3ZCnASFfseXvth9pgonPCVJiD12rNcbm2vu/NHf0iQ84f/p7IWt +kF528KosCe4zTD837J0H+Pb9s56EJNJAyAX79MJBo7ANJLz+IivviB2YdXen +kDIJGSKtubbY6RYjujc3khDc51Bhg12/jEGX2kRCvsvs3iPY3x4GayVvJsF0 +IPT4AWx+q3Z1RU0SLBxVR4yxjQuc1mtok/DlaGM4ie1oUypdQCMhVW3g363Y +YSuXi9NJvJ/tuzQ2YjefurNihx4JKZm8LSLYI4LDPPVAwqEjfn182ILlxKKJ +PgnZPy5e/IPz1Uz09c9DRiQIfJ5b+zefXSvlRt6akBA2kqH+N99jz537ZrOX +hBA53qq/56G9lve9vTkJFaf+OD7EnnI58GbkEAmttMf+ydhiMsmtFw+TIP54 +r1QUtqU7vc7HmoSI/adfOGO/U3LMjbYjwfjWdV1V7N+tRZniDjj+Um+Oif89 +b74895LOkXB51vXPMuzjnf9y0i6Q4LbwsvotPv99QS1XS7xJWD4Wa3MNe9k2 +mcssXxJ0Nr657vS3XvTae9T4kaDr0EmzwLalcTs2B5KgfF9PQhn721ftg32R +JHSvYQ5X4HrFH+e/90wMCeyIDypp2KroleFgHAm3srI+h2I7cs7qTlEkVHdO +fzbDHjVMUua/R0Lz7j6uHlw/pzKXZjSLSahvW1fShevtV0uDu9dLSXjb/fZi +MXY3b4TR53ISbPq7qhKwy9nSiQlV+H1O1RKHsAMkdRgLjTj/uK9nN+L6Lhzq +6NP0noTVVt8D7uL6z017pKT0kQTLHUuel7CnPs80+37C8VZevXQAuwsFyWp9 +JUGES/fFMuzkmTsVnDESZmzVLKxxf9l8tpPrDDcDHF7YkQu4X8mJy2RV8DKg +0t3qYgu2cO2pA5J8DGisW0Qp2JNy4ykvBBhQphKaqI9d9mal/jZxBpiMDhhc +w/3PyACCljYyIDxQIn4U98/TytkrkvYy4NFOGXOPSgp519k4qpgx4ALk0HWw +o8+IvCgwZ0DcXOvdqQo8b6RfCn9xmAH9P8QXXbHFVIyEFk4y4F4S86sd7u/1 +KgNibE8GjLtd8CbLcb9XlV+vcocBQpV88gFFFIKG11cLUhhgmqMQvw3b0j74 +k14aA1zMqqP7n1DoWuZI6uEsBnypbpXcgf1e9any9ccMMFMePD+L55NItaPq +w88ZsKWhjzR7RKGJTXG0gnEGfI2yakjLxvFqht2ikwxwm188Zopd5Tx60H2a +Ab5jycGTD/DzBcautHkGnJJYngLYmxhcOWU8TNDT6B/qzKTQKePzCrUSTMhR +Yw8Mp+N5/Kzhqg5dJvSYnH3WfAf3i7Tfn6ZDmXDvJf+Gw7G4Pum7z5jcYMK8 +aKHstxgKPfk0vOpuBBMOaOUUe2IXyPXSTWKZUFFcVH8zGtc3qioi+RYTJjvv +mDdH4vkjPIg0zGXCLeX1Gmp4Pr3uLhRDtTOhTXWbURKed612KQJTThfqvcdm +rPH8vNDBL1i7Xhf67+8/1ojn67tnRntMFHVB53XMfh3sr8GlXlaquhDZxDUk +gOfxi4378y5t04X4/Y5jj51xvdnnI1dioAsRgT6sMQecH0c6/2i76MLy9qyz +omwKrTsfUrqlShfSq/Kfie/B/Wil06O9h1lw08fc4hK+f6Tp+3qPH2WBtUlY +RZYchbb5RurHWbOghnOl5K0s7i/j+Z3dJ1lwx2zMhpDB88Gb6bnTTizoldL+ +3zi+z8ym+u309mfBs0qH0T34PvSOGdd+P5sF871T3vm8eB71SPvXOJcF4wMj +iu08FPqV++TMcD4L7Nt12dPcFBLZ0D2jVcQCc5WtccQyCu3hl5X5r4oF0sHF +X0oXOOhpx33b9k4WxClkGGX+4iATwRINz24WfJDq2PpsmoO6DRt/Sfaw4Mry +jIcfpzhoqmwo1KaPBSAQd0Z8koM0UrY+/DHIglfHX7deHsPrvdvhGT7CAqEg +X/bNUbye2EGkOc4CRXevoJwRDrIL8Whzn2bBSmZOVM8QXq8qOGntLAvy2Gs8 +fg5yUMA853TZPAuqfkiN82MLa2dtPr7AAiPuHi75HxyUfL5semmJBexuhwzt +7xz0f4UL4Ic= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0242291235614828}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.0242291235614828}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV12k8VV0XAHDhiVLIFDIkQyRJce8597r2KmVKJUUl6VYSEsn0JhKZklnc +Q0+KCBGSjD3GCCmEKCUpDWYhQ+Hdfbq//4ezz7l7rb3W2gqnXMzPcHNxca1a +xsX19/dXb+MzpRtpelL7c68ONAjrdSRLXtrRHYAKiFER1RejeiDeckqyOxaV +pWQEf2la1PM0e9DF052KDozKmlc3CaI1o2tj57oK0HD67sWsJjn08ek+l6mu +GlQ3oegc0rQFGSgNfpjoeo0WitUipZv00FwXPX68qx/5aas1ezTsQ7X6GWlt +qZOIE29+U3k5G8l8LP16avMCCn6KuqvrziIxpxMP+PR5oDRFZfLiIRcUq2VQ +vs+CH5TNC8Tkn7qht9TWqgnh1WCs7lX70s8L3Ujza+GWWgNK32yft4VeRmtv +fr4ed1sUOD1b6tNd/VDIIWO917/EYUNd77eOQH/kRqacaAyQBNm5th5bl2to +19i8t/NnaVCvcuTv2hqE/HUPnJQmZIGeGs6s6QtGjNzEwiuV8hCi4vD0x4NQ +5DQ7cbVhtQIYJzTqDOwJQ3Pqwr0aFhuAlnVCo4AnHOlm59xNSFAEw/pd2Y73 +I9CEiAnbskYJDMRcjuavj0JfwtmWF/lUgPdjjnGAZTQyHvMyHqBtBMTRXczi +j0HDp/ndCv1UYaXarf94a2Lwfq7lDqlRA55ST+cZl1gk8lIlMn9sE/Qu1Zz7 +sDIOyYTmmdFom0Fii8DdqAdxiFInhUXPasCQntuTavpN1CS9Q2cyZguo7Vxy +TS27iRgyNdGabzTh+W2QEIB4JMiT6n4yYCu8iXS+bFsYj+T85XWPqmhByTNe +8WC1BLRC2brI/LkWWM6f28iOS0BbWFJ5Xse3gZ2aWOu3kQR0sVek1oRrO/xp +G14uZ8hBY5PhFsbUdkh5/dzmdwwHGWrWJxlraEOejv+qgHYOqphk/p55pQ3P +UoXTutdQKKW5+NTBNm144eAglS9CocD07U257drwpiRVOESUQsaH1RPPdGtD +ccLzwO3iFOook6a3f9KGja37A4MlKTToP3cxd0obPKpEv4jJU0hCuHjQVloH +4o8I7m5Xp5Dz5m3v2s7oQObXs1Fd+hTymJGeP2GvA7mp9qJ3dlHIp4ZHetRR +B34pxvDa7abQjSOdR1de0IGJz25bfhpQKDPwf293eutAbBQjhceEQv3vK7of +R+rAavt8fgEzCllG7OmKL9aB/9p9hXKOUYg1attxdAUN2lrCowlX/D3lhqlP +BWgw4Jf4qhV7NGTTBXlBGpi80oq0v0ihZIVxgQERGsToyMcmuFFo8dBl/Qsy +NBC5fe/hsAeFKstjCoI1abAYKkr6e1Nox/WK6McW+Pku+9Y91ygkbZliI3GE +Bs5edaYd2D83BG6+ZEUDvw+Be6wDKZT61LhB7wQNNgwbtjoGUYh7vGOp0Z4G +zcH3ZvxDKFRrOeTcd5kG8safaqkbFNqtJLl3dSoNXPObAu3jKFQ4Uqdgm0aD +T9/kFnuxlYrdfpXdp0Guzs2lQzcpxGvScsc+mwardi4moXgK1bgE/6wtpEG5 +coK2EIdCeuVTHO/nNHi3ds0cJ4lCNPO2/m/DNHhf92pufwqF7q/zK9Ybo4Hq +Ec2gYmzxgc3h8RM0sCcTE+VSKTTlFaqj/4sGqz/cPz6EXXAbhSYv0WBW2ueg +XxqFNH881LAQocOQ38M/0RkUUr0a9r8aOh0yLvR4H3tIoafM9H9MGXS4Fvek +sBzbbKYytlOXDsHry06vy6XQ/5ync77voIPTiKPCW+wGa/YnQVM6oBshMvvy +KWRP0kyOsenAq5IsLfeYQlk/P62bCqWDVkHNFcsS/P9y/2T63qBDfWGPazr2 +a4e1NL5IOsRUneuZxJ7vMzWTjqNDcdU6kahSCpm0FAfCbTrkcX0XrCzD+Zsd +MRL+iA4PItL3//MfhTadISuV39FhFd2AoV5NoagN++avvafDtFHFtC321MdT +Ov29dNjFTmIkY1dYhWcnf6bDwV332EI1FDI3+8hZO0IHKZU5uWHsS8ygCyu4 +CHD8t8kp6hmFemcTs89yE6BwobOmGntnUe7XOl4ChB26UyexV2l1WwesIIBm +PMxlWUehuyrqxr9FCEDT5jTxerw/a9oURpQJGKLYkb7PKaTRMmC9R5WAmhtH +QzOxY8PnOVmbCChT7F/Vjm3NpyRop0mAPNXwRKWBQmN/POd7CQJe35kJacCW ++C7T3rqHgAn3A7RfjRS6nK4lqLmPANPIxg9STRTqO2VgHGFGwAYFJ2EW9oMP +LpXGFgTU9RxeG4Ct116TXWNDwKLX+5zlLyh0psI+sNCVAN47zKU57NHzg167 +3Ql44XS4RLIZx1vW6dwbTwJkGfPfadhhPi7ms5cJUCvke+SKnc/wXK8bTMDP +XRkf+rAZgzOiL0MJaBFkH/qNXZt4ic/mBgFBq5fri7+k0JtZn1G/aALOS+4N +NcT+U3TtaW0SAaW2WwvTsYPt/sk/dJuAkqLyoXJsIYmQewN3CDgYeetWG/YG +j7AwvnQC3JvCbX9jZyutukJlEDBLL/EVekUh7Y4IV7UHBIixnIQUsQ23xxzZ +k0fAXrPUf42wW/tFTN8/IsApTI+ywraKvYnOFxKwqZCzygnbaYKjElWKv9fm +yYkI7Ni85KnXtQQcLxN81Igtc2L999P1BEQvcrt3YacLpvZMNRBg81g2/wt2 +yfn0GolXBCT7/45bwN4hu7Eoo5WAXZpvmStaKNTUnJlFtBMw7CFyXAz7g3pO +tFU3AatVXgqoYdv1aAQOvSNgs4FD4jbs8bA8L58PBFBOCXeZ2JcYWudW9xHA +XjqpsAube7DAJrmfgLf2b9eZYocnaptrDhCQsnZl9EFsceOi3VXfCEi8suyK +FXbyLJ08MIjjJfZygI2tmlm6uX+YAHFL7+d22AWHmevdxggorJZQdMJm8v0n +yvuTgIqevNkL2M+K9Pjip/D+bT5o5IG9z65qXnmGAHUQFLmE3S2+c7RojoCc +jFELH+yTdbWfDP8Q0DezTMwPe9B9d2f3IgEjjRam/tjuSs8bHJaRwCyfWQzA +Xmw3ejrPQ4Ld+Wn1QOyQa015N5aTYBBs3f7XwttN78msIOFHHmP6r5P6XyY8 +FCCBQ92O+WvF2P1heoIk1P6MzbyGnbOjzbdFmARFD1XG3/VpE+aubFESot6d +M7iKXXm3w3ZCnASFfseXvth9pgonPCVJiD12rNcbm2vu/NHf0iQ84f/p7IWt +kF528KosCe4zTD837J0H+Pb9s56EJNJAyAX79MJBo7ANJLz+IivviB2YdXen +kDIJGSKtubbY6RYjujc3khDc51Bhg12/jEGX2kRCvsvs3iPY3x4GayVvJsF0 +IPT4AWx+q3Z1RU0SLBxVR4yxjQuc1mtok/DlaGM4ie1oUypdQCMhVW3g363Y +YSuXi9NJvJ/tuzQ2YjefurNihx4JKZm8LSLYI4LDPPVAwqEjfn182ILlxKKJ +PgnZPy5e/IPz1Uz09c9DRiQIfJ5b+zefXSvlRt6akBA2kqH+N99jz537ZrOX +hBA53qq/56G9lve9vTkJFaf+OD7EnnI58GbkEAmttMf+ydhiMsmtFw+TIP54 +r1QUtqU7vc7HmoSI/adfOGO/U3LMjbYjwfjWdV1V7N+tRZniDjj+Um+Oif89 +b74895LOkXB51vXPMuzjnf9y0i6Q4LbwsvotPv99QS1XS7xJWD4Wa3MNe9k2 +mcssXxJ0Nr657vS3XvTae9T4kaDr0EmzwLalcTs2B5KgfF9PQhn721ftg32R +JHSvYQ5X4HrFH+e/90wMCeyIDypp2KroleFgHAm3srI+h2I7cs7qTlEkVHdO +fzbDHjVMUua/R0Lz7j6uHlw/pzKXZjSLSahvW1fShevtV0uDu9dLSXjb/fZi +MXY3b4TR53ISbPq7qhKwy9nSiQlV+H1O1RKHsAMkdRgLjTj/uK9nN+L6Lhzq +6NP0noTVVt8D7uL6z017pKT0kQTLHUuel7CnPs80+37C8VZevXQAuwsFyWp9 +JUGES/fFMuzkmTsVnDESZmzVLKxxf9l8tpPrDDcDHF7YkQu4X8mJy2RV8DKg +0t3qYgu2cO2pA5J8DGisW0Qp2JNy4ykvBBhQphKaqI9d9mal/jZxBpiMDhhc +w/3PyACCljYyIDxQIn4U98/TytkrkvYy4NFOGXOPSgp519k4qpgx4ALk0HWw +o8+IvCgwZ0DcXOvdqQo8b6RfCn9xmAH9P8QXXbHFVIyEFk4y4F4S86sd7u/1 +KgNibE8GjLtd8CbLcb9XlV+vcocBQpV88gFFFIKG11cLUhhgmqMQvw3b0j74 +k14aA1zMqqP7n1DoWuZI6uEsBnypbpXcgf1e9any9ccMMFMePD+L55NItaPq +w88ZsKWhjzR7RKGJTXG0gnEGfI2yakjLxvFqht2ikwxwm188Zopd5Tx60H2a +Ab5jycGTD/DzBcautHkGnJJYngLYmxhcOWU8TNDT6B/qzKTQKePzCrUSTMhR +Yw8Mp+N5/Kzhqg5dJvSYnH3WfAf3i7Tfn6ZDmXDvJf+Gw7G4Pum7z5jcYMK8 +aKHstxgKPfk0vOpuBBMOaOUUe2IXyPXSTWKZUFFcVH8zGtc3qioi+RYTJjvv +mDdH4vkjPIg0zGXCLeX1Gmp4Pr3uLhRDtTOhTXWbURKed612KQJTThfqvcdm +rPH8vNDBL1i7Xhf67+8/1ojn67tnRntMFHVB53XMfh3sr8GlXlaquhDZxDUk +gOfxi4378y5t04X4/Y5jj51xvdnnI1dioAsRgT6sMQecH0c6/2i76MLy9qyz +omwKrTsfUrqlShfSq/Kfie/B/Wil06O9h1lw08fc4hK+f6Tp+3qPH2WBtUlY +RZYchbb5RurHWbOghnOl5K0s7i/j+Z3dJ1lwx2zMhpDB88Gb6bnTTizoldL+ +3zi+z8ym+u309mfBs0qH0T34PvSOGdd+P5sF871T3vm8eB71SPvXOJcF4wMj +iu08FPqV++TMcD4L7Nt12dPcFBLZ0D2jVcQCc5WtccQyCu3hl5X5r4oF0sHF +X0oXOOhpx33b9k4WxClkGGX+4iATwRINz24WfJDq2PpsmoO6DRt/Sfaw4Mry +jIcfpzhoqmwo1KaPBSAQd0Z8koM0UrY+/DHIglfHX7deHsPrvdvhGT7CAqEg +X/bNUbye2EGkOc4CRXevoJwRDrIL8Whzn2bBSmZOVM8QXq8qOGntLAvy2Gs8 +fg5yUMA853TZPAuqfkiN82MLa2dtPr7AAiPuHi75HxyUfL5semmJBexuhwzt +7xz0f4UL4Ic= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0242291235614828}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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.0242291235614828}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913408819317417`*^9, 3.992102282791353*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"3280d894-c085-6549-9181-aacf8e50ed2d"] +}, 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[99]:=",ExpressionUUID->"6f4b7e44-0b17-c840-a01f-706fcd68fd89"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1879779830544592`*^-231\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 99, 454, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340881982744*^9, 3.992102282870096*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"00b7eb07-73b9-c747-a2f2-79534efb705f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.9987880705219257`*^-238\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 99, 455, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340881982744*^9, 3.9921022828800983`*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"e08402ab-15fb-4742-9c42-6cfd41908add"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.569778245202013`*^-245\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 99, 456, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340881982744*^9, 3.992102282886095*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"2f6f0f21-211b-dc4d-bb95-da4fb58b7950"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 99, 457, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340881982744*^9, 3.9921022828920937`*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"5748e145-acc9-4040-b1f8-1e86d34bb3ee"], + +Cell[BoxData["31.374368173412364`"], "Output", + CellChangeTimes->{3.9913408882266617`*^9, 3.992102300936508*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"5b469605-a154-9743-bd68-7280e6f510de"] +}, 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.9918465455039177`*^9, 3.9918465541706066`*^9}}, + CellLabel-> + "In[100]:=",ExpressionUUID->"55574de4-5bf4-6a47-8b7c-0502360e0741"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.5999031455581303`*^-238\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 100, 458, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913408882626343`*^9, 3.9921023009762993`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"4385c333-92ae-c14d-b940-cd56ce732a47"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.811065790338395`*^-245\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 100, 459, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913408882626343`*^9, 3.992102300982809*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"799c7baa-0323-c749-9ea1-fd0489794d1e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.03192204412294`*^-252\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 100, 460, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913408882626343`*^9, 3.9921023009888096`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"86851959-c648-5743-8719-345e1a58051f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 100, 461, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913408882626343`*^9, 3.992102300994808*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"bf971445-bcf4-6f43-918c-836dc109e476"], + +Cell[BoxData["1.0545441112797334`"], "Output", + CellChangeTimes->{3.991340895263792*^9, 3.9921023051070595`*^9}, + CellLabel-> + "Out[100]=",ExpressionUUID->"047dc513-0eba-cd43-99e3-69f89ef5084d"] +}, 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.991846558454563*^9, 3.991846561166006*^9}}, + CellLabel-> + "In[101]:=",ExpressionUUID->"a62e28a7-2963-b449-b2d2-4774e534a560"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.5999031455581303`*^-238\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 101, 462, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340895297941*^9, 3.9921023051461678`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"2e0bed5e-762a-544b-9d6d-33d50b62d5f5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.811065790338395`*^-245\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 101, 463, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340895297941*^9, 3.9921023051531677`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"fb525e83-cdea-a343-8254-f578369fa513"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.03192204412294`*^-252\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 101, 464, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340895297941*^9, 3.9921023051591682`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"313c8612-d3ca-7e47-9cbc-3c29087d192e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 101, 465, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340895297941*^9, 3.9921023051651783`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"c05943a9-411a-8641-b8ae-aacbf8b3492d"], + +Cell[BoxData["24.587237933614528`"], "Output", + CellChangeTimes->{3.9913409010488796`*^9, 3.9921023086969833`*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"fc9aba4c-0c07-2343-ad56-16cfc3ecb94d"] +}, 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.991846565092888*^9, 3.991846568588709*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"9dbddde0-a221-414e-bf4d-6be0dfb61fa1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.5999031455581303`*^-238\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 102, 466, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913409010848827`*^9, 3.992102308736044*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"6dcf4964-6d63-3641-b23e-cd4323f213f3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.811065790338395`*^-245\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 102, 467, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913409010848827`*^9, 3.992102308743046*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"97157cbc-6fe5-584b-afac-48a432be4327"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.03192204412294`*^-252\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 102, 468, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913409010848827`*^9, 3.9921023087490444`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"f087df99-1dfd-c24c-9f79-db03cd027684"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 102, 469, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913409010848827`*^9, 3.992102308755045*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"3a9cb772-c110-724e-86f6-47887d15c2ad"], + +Cell[BoxData["263.6337510697847`"], "Output", + CellChangeTimes->{3.991340904517517*^9, 3.9921023107900906`*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"9893f8c6-e819-1140-9d9a-3c90e5d360ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991846571659788*^9, 3.991846575865097*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"a4f97f96-646f-ae45-96cc-9c4165440b9d"], + +Cell[BoxData["0.013098132348733485`"], "Output", + CellChangeTimes->{3.991340904549515*^9, 3.9921023108199635`*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"1e8dcfa4-9b9b-bf40-a448-dfd73e13bff0"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918465789006596`*^9, 3.9918465811046677`*^9}, + 3.991923777228119*^9}, + CellLabel-> + "In[104]:=",ExpressionUUID->"35c63783-19fc-b040-b8f7-ef972ba7b6ed"], + +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[105]:=",ExpressionUUID->"82776c92-7c10-2f45-a63e-50057ffca54a"], + +Cell[BoxData["6.387731496076312`"], "Output", + CellChangeTimes->{3.9913409045775146`*^9, 3.9921023108439655`*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"c4149dd4-cec3-3e46-a4c0-0c26d6c6a8d6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[106]:=",ExpressionUUID->"a56d8b01-6731-b840-bb77-f7f462892539"], + +Cell[BoxData["5.587530835375371`"], "Output", + CellChangeTimes->{3.991340904625164*^9, 3.9921023108659763`*^9}, + CellLabel-> + "Out[106]=",ExpressionUUID->"d394585e-453b-504e-a65f-eea7e94d3ff3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[107]:=",ExpressionUUID->"d4bf0543-67ce-024d-a419-60bff835c466"], + +Cell[BoxData["35.69164670242484`"], "Output", + CellChangeTimes->{3.9913409046880226`*^9, 3.992102310888975*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"13e6abbe-904d-b646-ba9e-ca0b566d5104"] +}, 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[108]:=",ExpressionUUID->"276e96f1-558d-9846-adb4-2350594341f3"], + +Cell[BoxData["0.0252727843364644`"], "Output", + CellChangeTimes->{3.9913409047132187`*^9, 3.992102310912964*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"34dfacf3-7ca4-ca47-b50c-47b9ddf59a69"] +}, 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[109]:=",ExpressionUUID->"fff85ae9-ba42-8247-a314-19fd83d5dbdb"], + +Cell[BoxData["5.574660131075836`"], "Output", + CellChangeTimes->{3.9913409048112164`*^9, 3.9921023109917297`*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"793939ee-555a-a14f-b5c7-8950988b549e"] +}, 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[110]:=",ExpressionUUID->"37b23358-bc27-224f-b5f7-62b1fc97e785"], + +Cell[BoxData["0.0008669452537340954`"], "Output", + CellChangeTimes->{3.991340904825058*^9, 3.992102311013729*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"1c5b8d9f-802f-2f4e-82fd-de75316d5f45"] +}, 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[111]:=",ExpressionUUID->"eeb5992b-a45f-a14b-8a22-14af99af15e2"], + +Cell[BoxData["30.09879465276791`"], "Output", + CellChangeTimes->{3.9913409049303207`*^9, 3.9921023110912323`*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"279115ac-a48f-f44a-b062-fbdd4a4143f4"] +}, 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[112]:=",ExpressionUUID->"6ddb4033-5394-f34c-95af-22d1f1297351"], + +Cell[BoxData["0.9443844844348241`"], "Output", + CellChangeTimes->{3.991340904948307*^9, 3.9921023111142197`*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"a13a27ee-7e77-9a48-9feb-6b7a8144ea92"] +}, 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[113]:=",ExpressionUUID->"22b71737-ea19-a348-af70-a874963373f8"], + +Cell[BoxData["0.05561551556517575`"], "Output", + CellChangeTimes->{3.991340904981308*^9, 3.9921023111382313`*^9}, + CellLabel-> + "Out[113]=",ExpressionUUID->"a1acd141-efa8-1848-8820-820934b1e7a1"] +}, 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[114]:=",ExpressionUUID->"08fab4d8-dc36-3f43-8a7e-9a5fa838c25d"], + +Cell[BoxData["0.05252242999359545`"], "Output", + CellChangeTimes->{3.99134090500931*^9, 3.9921023111612186`*^9}, + CellLabel-> + "Out[114]=",ExpressionUUID->"7ce5da1a-7659-6541-9d70-77bb2aec996a"] +}, 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.9918465999055576`*^9}, + CellLabel-> + "In[115]:=",ExpressionUUID->"d3f05697-a372-2a42-8c9c-ccc9289a44b2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.451479086701762`*^-229\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 115, 470, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340905038307*^9, 3.992102311189232*^9}, + CellLabel-> + "During evaluation of \ +In[115]:=",ExpressionUUID->"57eeb0ea-6382-fc40-99a9-6d8d7b8b8bf7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.0202598627639034`*^-235\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 115, 471, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340905038307*^9, 3.9921023111962414`*^9}, + CellLabel-> + "During evaluation of \ +In[115]:=",ExpressionUUID->"c5a4ddbd-115b-c748-9813-72b25fbeccdd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.168750057228497`*^-242\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 115, 472, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340905038307*^9, 3.992102311202236*^9}, + CellLabel-> + "During evaluation of \ +In[115]:=",ExpressionUUID->"86efd003-fd1f-0344-b205-7b67c00bdc53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 115, 473, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340905038307*^9, 3.9921023112082176`*^9}, + CellLabel-> + "During evaluation of \ +In[115]:=",ExpressionUUID->"6e635c9b-2ed3-5546-aed7-b81793c581cc"], + +Cell[BoxData["5.5746601310758415`"], "Output", + CellChangeTimes->{3.991340908920454*^9, 3.992102313580284*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"b0ccf111-5f22-c64f-b40b-cc80b048c5d0"] +}, 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.991846603740141*^9}, + CellLabel-> + "In[116]:=",ExpressionUUID->"7ddfee1b-0897-3d44-810e-ee309c4e8981"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.451479086701762`*^-229\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 116, 474, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340908954941*^9, 3.992102313636814*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"54f9d314-4fa3-d740-a0cd-6d818f3d0044"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.0202598627639034`*^-235\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 116, 475, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340908954941*^9, 3.992102313643816*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"65c64c97-79ba-844f-868d-0b913a4f3f71"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.168750057228497`*^-242\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 116, 476, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340908954941*^9, 3.9921023136498184`*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"71ecee3b-b3c2-bd41-bfbf-f4d899dabdb1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 116, 477, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340908954941*^9, 3.992102313655815*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"3d8fc746-9c71-b342-bd17-dec6be3e4945"], + +Cell[BoxData["30.098794652767896`"], "Output", + CellChangeTimes->{3.991340912767397*^9, 3.9921023159598904`*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"0aded2fb-7a9c-f240-8bfa-11e4e842af6f"] +}, 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.9918466101881027`*^9}, + CellLabel-> + "In[117]:=",ExpressionUUID->"edc0f744-d665-ee48-9e1d-32ecc25a02c4"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk0Ve0XB3BESYhkThkrydA1lzw7Q5QxrwZj3HvPIZn5yYuoVzQhhFKK +TEkoU5nyigZFEiqUeci5xtyQhrff44+zzvqs56zv2mfvtR85up8dwcXBwTGB +n5V3QJvatsftbYbZGREcR76wkeFMrjbdpAjxsHO6D2MPZuqkKJrUoayyTe4r +tmW+Wc2v+Ry1To6n22OXhkY18Zi0ok/VXNF/YV98IdEQVfgOcRv7b7LDrm4P +uP2L9h55V6mTttis3tcRf9d2I9kj+9yssaXGFJwWjT8jSUYenyW2xWyEflDr +ANLd5UwcwK7/xVoXWjiELGVI//3YH86Khz/yHUHiV5pUjLFnVpuwvtHG0O7l +4GsIe3Wcv4Pm0jhCPWHle7A3C99qDqidQPcev4/SxbaWXsyfMZ5CIs1xymrY +ZJa8mCrvDErfx1qtjB2lZBNzsnUWJZpnpihgd4t37Qou/Ire84g8FcdmOnqd +uBo3j346dh4Xxp7L4LhT5stG6uEzJXzYvPKqQl9pC8ivQ8/11zgbpTCbzIRE +F9GVPyfqv2HL3nWIUl9aRHMjy21T2Ho7Y2d8ar+jOJ3dnJ+xPXUGWlnGv1Cq +vGvhI+xvof/j5tv6G5V/zosvwj5Tu85Amfc/VLvriFw29nXQu+/R+gdZ+yw6 +xGEz85pNAgs5gew4LuSCXfji6uBZaS5Q/1fslC323BfXiKQ4LsgbMUowxo7Y +sVD+0HcVPJjjbNu+Uu8DOYVZGg9YmdtcnR1jo972qfr/cnhAq3Pk9CC27Pxj +R0HR1VDF+iXxDrtIyzpZdWk1xOo9dyvFflYdxuldywsxvyd1fLEXmjoHJoz5 +IVc350/3KBttsOQXCq/nhzzKHJqwNbpMQEBfAH6uLVMoxvYarczapSYIQn2f +O6Kw/blaNfbyC0Er968OWewx+ZKvMYvCYM3X4nJoBPeHfL32reYG8B8ObNXG +5ro/LicRsAHUeTf3S2LLam6xK5zcAKp7E1mDw2zkaJxY1jYoAlJJRIEX9ltG +YJB4iyhYZAvWeQ+xUf/dhMtuvGKQI7XVxQJ7arIw556pGCjcuHJHGZsveKRz +T4MYONF9N44NspHJOXstt0px4NyzmH0UuyZXZ6EgUxKcvPU8VQbYKHfsR8ju +YBn4J6izPv4zG5kfPt8fVCwD/dvOdDCwp56J7C8elwGOq4Jp+thauTtFZR02 +Q7bSxM7RT7ifdNdyHsMtMNGqfUMbe3528NREtCycyLsZ+qqHjUR8TCrKreRB +Q7IzoPIDG43n8nnaesmDljQ7/ix21ed26elYecjwfOFohe1s6RK9tUEeSmdy +Vo++x/WphNil0xQgbR9vgQC2FuvuXKS4Iuj+5JGw62Qje491qgeHlGCve8xI +5ls2QiGHaUd/K0GjaI0TA3tHTKYuU3IrWDjeu7AVmyNH0yjy0Fa4MPORo6iN +jYr7nY6WPd0Kav0OJ8vf4P08UnRWKnsb5Jtoa1S04PpMrD6w6MogNcmoPP2S +jaTlr0RdHt0Jtw74F9Pq2aju0jflZS5VOKveOfz5Ca6f7dBFyqmC5H/OjbHY +t58pKhu5qoLSDakzPXVsJO9R0/H9oyrc9axcCqvF9RWNKZEtaqA2az1SXMVG +MtKbSVkHDXgx1iTQVcZGO/OC+X8iGtRbTIwq5rMRnRm9oGpNA7vNbN2neXi/ +FJL73ZxpQPH7G7tgr8p+8PBFKA0GNBeiU3Lxftxm2SeX0iAN7hT9ycb333W3 +W8oKmvB9CQqaM/E8LluqHVutBaY5LgVK6Wx0J1DRtrJVG3TWcY0JXmaj9hCk +ey5PHy7ezC6mPNlIzvW9tYv3XjikK2/UbcRGxJ9HJTJ/A/RvFBlMlmYj8cmq +NeJ0I2i3N04zmJ5HwZoGn5N3mMA1vmXTlvp5RJ/+1SzCMoUkNUfBjIR5VGwU +tCbzrRlUErsMao/Oo9xvXk+LUg6ALskjHiA/j77vk3jzLMoCxOXCb7wZ/4r6 +OFZ9HXK3gjAbm+cN+N7z3eSXeFbBBthR0g4NAV9RyYnmhtQYW8j75pBK0/yK +wtiSSyonDgHPtG90wPc5tHBw/5GXx+1gz8eJbY+r5pC+U9K+sUN/webGUguP +sDnUIXnL65mmPUik+ps9gzkklR9dV7D9MDw1bFcXXTWHqgZ3WFoLHAEBW4/y ++ZRZtLlrziNk+ggMvW7kVd8+izRTk4pyBo8CcbByUKRyBt3iZqslNx2DLcdl +XcotZ9Cjfeq9MdUOUPlyl7bewDS6rntJ+FehI+iIPIeqU9Po7ae8WM04J9Ad +f5D0XWoaVVplKPqfcQarNSrxT2qm0Fefvzh8mS5w+sSrFhViCi3sV/acMXYF +ud7U5ydFp1DBdM/3IJ3jsJ1WxpXfNImO3cljuPC7gY1fQ+RM+CQqL7M4vuq8 +GwTfeB5opjmJ9KU7li8uu8GLhx2mlt9YSGHQo/fdCXeYXc2btaOWhUbXnbTJ +GHGH4zcPEV7/sFB7gjXD7DAd6uzV3jDsWCglNHPd/9rpcOFSkOEzBRaqq/+z +zDjAAH/dDyFnf1JovTOc16xhwE0y1nq0l0KyG1++3VTHABnTGMIdW6PVSmJ1 +PQNusWI+9PdQyM7A6V73UwYkSiS+6O2mUMqmkJbTrxiwKXuw/8MHCkn13V/f +3M2A3kbNrwMdFFJ0Fb/uvMSAP88Ds7VbKKTvNlMQo8WERj53+mwdhfLT54Ks +dZggvNyifgl7Y+e8obgeE/74d1koYc+YLnUV7GGCpmCDn3Mthe8bDs5WIyZw +mwt5tFVTSHBJ2GHDISbI9nFvfPqIQqPx2mszfZgwY3TLa+ghhQ691O3y8GPC +2rIi/ljseo7dmRoBTMiY9Py9Azs9yFC7MZgJeRHU6/89oJC1g5n7WDgTPimJ +i60voVC1okO1yiUmnJaL9rG9T6GE2ogTVflMMKwMUhDMp5AP7Zp+aAETOC+e +0q7Po5DlvdK1eoVMsHdRvOqLzXdt/N7jYiZEe4Ttas+lUEygLetRBRNunJP7 +kZZDoQhlxZOVjUy46JJfS7tDIa9rLd5l/UzgvfqcMyeDQgcExw0CB5lAf3Xp +ojP29hgOAdowE5rEVrmIYY8HaheXjuH+SAl+uXSTQu7WmdMPp5hQfC/1/Kkb +FDrGE+T74AcTpooLfrhep5BZkJR/kRgBfVaPCskUCjVmxh5MliBA96lBpCK2 +Qeu8YqgUAfcdJgqHr+L5K7X0GG8mYKfKw/Vu2JIfw40/KRHQHc+35ngyhSZ3 +94nxaROgE7mj2CeRQle4sp54/EXAuN3v7jdx+P/V+a9bHSagI67sXRr2OafQ +QM2jBDhEpCq4YYdW2G7740iArfdYB/syrp/kTEqjE3BnXcXxLdiar+nM5wEE +qF43pJ2/SKGPSUrrFBIJcHGNrkuPpVAJEvCcSCLgUlbTS3/sc9PfnhVfJWBR +8qGsOTbtwLNIvWsE1Jgl1C7F4PlxMOatbhPw5goj1RF7v19WT2gRAa86EnvU +zlFIRuaCjmEJATeO5v3Lh/3ttd/VVQ8JEDH2ZI9HUyh7K7JKKCegom3ZOAv7 +d19fQ04NAV9VbS6KYVdYShe0NRPQVdGXK/wPhS7/4OJJeU3A7U1fiPmzFKIX +sNwdWgmwbMkK7sQW4q6RHn1LgOxJpfA0bO/aY1eWPxDgkxOyUxZbYUdaiOIY +AYKhNrJGZyj04+PpTmqcgKNxJ+q2YbfHEBoPJghwi9DOF8COHNJi6U8RsPvg +CL03ikK91ztdbNgEMNalnzmFnbxG2DSMk4Q1d6OsGiIpVDff5xS8ioTYt4Xm +Bdhf+goDfXlIePm5IDcR26DCJIu+loRPfJuj6NjjbqE/DwqTkMKcfcKHLWRp +usFUhIRCZsW/C6cptEd3gzISJeHsWiv5IexEgaIjmpIkFKcvr61eOa8ZKJWW +IyFY0Yjhg03mFTWLKpCQcDv/pNPK94l/D6xXIqGZPtB1AHucFBHgVibhrUjb +q20r5yJmnlMaJJjwZ++diKBQzX8iUeM0EpZaCy17sMeowdRBLRJO0S/Uvcbe +3RDW1KVHwqR5Y30J9qh3yeYnQMLQTZpVOLbgsXDtx0YkDGaM0P2w9Y3NLUtN +SGgZPtHDwE6QHP47z5yEGd/FCSvsKu4HiZkHSVBo/XXWGHtkNvxuuiUJPzO6 +w/Wx9V6Ivo+3JSGpSSh5Kza9dHjyvB0J21R9SmSw4zMecP1jT0IWLVNFFHs4 +8IBGyDESujXPmfNgC7iKmfk7knAbdCd+h+O8AyMuXs4kBPI1TCxix285fdnV +jYT1bDt+FnYV38HsY3QSwre4qI9iDy+IVdsxSVBT3Fvejy0wNPLWkiSBZw37 +Ws9KXuvD8f2eJNi/iezrwqY/Pv0bvEiwjBiMbl/Jzz64cY83CeckJC63ruTH +i6to+5LwJU+J3bySHzq6T92fBL/ta+ueY/MzS48pB+L55TSONWLr2kT6KQST +ICpl59+wkr/bIlYmhISShMdO9dhxShK3xENJSFzFvluH/UhorFw4jIS0MO7D +tdhDP0tfr4sgQWhhkl6zkv8lcognkgSx4HvvqrF1Oiy+/4kiQea7wZ0V/x/e +Fhnj + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk0Ve0XB3BESYhkThkrydA1lzw7Q5QxrwZj3HvPIZn5yYuoVzQhhFKK +TEkoU5nyigZFEiqUeci5xtyQhrff44+zzvqs56zv2mfvtR85up8dwcXBwTGB +n5V3QJvatsftbYbZGREcR76wkeFMrjbdpAjxsHO6D2MPZuqkKJrUoayyTe4r +tmW+Wc2v+Ry1To6n22OXhkY18Zi0ok/VXNF/YV98IdEQVfgOcRv7b7LDrm4P +uP2L9h55V6mTttis3tcRf9d2I9kj+9yssaXGFJwWjT8jSUYenyW2xWyEflDr +ANLd5UwcwK7/xVoXWjiELGVI//3YH86Khz/yHUHiV5pUjLFnVpuwvtHG0O7l +4GsIe3Wcv4Pm0jhCPWHle7A3C99qDqidQPcev4/SxbaWXsyfMZ5CIs1xymrY +ZJa8mCrvDErfx1qtjB2lZBNzsnUWJZpnpihgd4t37Qou/Ire84g8FcdmOnqd +uBo3j346dh4Xxp7L4LhT5stG6uEzJXzYvPKqQl9pC8ivQ8/11zgbpTCbzIRE +F9GVPyfqv2HL3nWIUl9aRHMjy21T2Ho7Y2d8ar+jOJ3dnJ+xPXUGWlnGv1Cq +vGvhI+xvof/j5tv6G5V/zosvwj5Tu85Amfc/VLvriFw29nXQu+/R+gdZ+yw6 +xGEz85pNAgs5gew4LuSCXfji6uBZaS5Q/1fslC323BfXiKQ4LsgbMUowxo7Y +sVD+0HcVPJjjbNu+Uu8DOYVZGg9YmdtcnR1jo972qfr/cnhAq3Pk9CC27Pxj +R0HR1VDF+iXxDrtIyzpZdWk1xOo9dyvFflYdxuldywsxvyd1fLEXmjoHJoz5 +IVc350/3KBttsOQXCq/nhzzKHJqwNbpMQEBfAH6uLVMoxvYarczapSYIQn2f +O6Kw/blaNfbyC0Er968OWewx+ZKvMYvCYM3X4nJoBPeHfL32reYG8B8ObNXG +5ro/LicRsAHUeTf3S2LLam6xK5zcAKp7E1mDw2zkaJxY1jYoAlJJRIEX9ltG +YJB4iyhYZAvWeQ+xUf/dhMtuvGKQI7XVxQJ7arIw556pGCjcuHJHGZsveKRz +T4MYONF9N44NspHJOXstt0px4NyzmH0UuyZXZ6EgUxKcvPU8VQbYKHfsR8ju +YBn4J6izPv4zG5kfPt8fVCwD/dvOdDCwp56J7C8elwGOq4Jp+thauTtFZR02 +Q7bSxM7RT7ifdNdyHsMtMNGqfUMbe3528NREtCycyLsZ+qqHjUR8TCrKreRB +Q7IzoPIDG43n8nnaesmDljQ7/ix21ed26elYecjwfOFohe1s6RK9tUEeSmdy +Vo++x/WphNil0xQgbR9vgQC2FuvuXKS4Iuj+5JGw62Qje491qgeHlGCve8xI +5ls2QiGHaUd/K0GjaI0TA3tHTKYuU3IrWDjeu7AVmyNH0yjy0Fa4MPORo6iN +jYr7nY6WPd0Kav0OJ8vf4P08UnRWKnsb5Jtoa1S04PpMrD6w6MogNcmoPP2S +jaTlr0RdHt0Jtw74F9Pq2aju0jflZS5VOKveOfz5Ca6f7dBFyqmC5H/OjbHY +t58pKhu5qoLSDakzPXVsJO9R0/H9oyrc9axcCqvF9RWNKZEtaqA2az1SXMVG +MtKbSVkHDXgx1iTQVcZGO/OC+X8iGtRbTIwq5rMRnRm9oGpNA7vNbN2neXi/ +FJL73ZxpQPH7G7tgr8p+8PBFKA0GNBeiU3Lxftxm2SeX0iAN7hT9ycb333W3 +W8oKmvB9CQqaM/E8LluqHVutBaY5LgVK6Wx0J1DRtrJVG3TWcY0JXmaj9hCk +ey5PHy7ezC6mPNlIzvW9tYv3XjikK2/UbcRGxJ9HJTJ/A/RvFBlMlmYj8cmq +NeJ0I2i3N04zmJ5HwZoGn5N3mMA1vmXTlvp5RJ/+1SzCMoUkNUfBjIR5VGwU +tCbzrRlUErsMao/Oo9xvXk+LUg6ALskjHiA/j77vk3jzLMoCxOXCb7wZ/4r6 +OFZ9HXK3gjAbm+cN+N7z3eSXeFbBBthR0g4NAV9RyYnmhtQYW8j75pBK0/yK +wtiSSyonDgHPtG90wPc5tHBw/5GXx+1gz8eJbY+r5pC+U9K+sUN/webGUguP +sDnUIXnL65mmPUik+ps9gzkklR9dV7D9MDw1bFcXXTWHqgZ3WFoLHAEBW4/y ++ZRZtLlrziNk+ggMvW7kVd8+izRTk4pyBo8CcbByUKRyBt3iZqslNx2DLcdl +XcotZ9Cjfeq9MdUOUPlyl7bewDS6rntJ+FehI+iIPIeqU9Po7ae8WM04J9Ad +f5D0XWoaVVplKPqfcQarNSrxT2qm0Fefvzh8mS5w+sSrFhViCi3sV/acMXYF +ud7U5ydFp1DBdM/3IJ3jsJ1WxpXfNImO3cljuPC7gY1fQ+RM+CQqL7M4vuq8 +GwTfeB5opjmJ9KU7li8uu8GLhx2mlt9YSGHQo/fdCXeYXc2btaOWhUbXnbTJ +GHGH4zcPEV7/sFB7gjXD7DAd6uzV3jDsWCglNHPd/9rpcOFSkOEzBRaqq/+z +zDjAAH/dDyFnf1JovTOc16xhwE0y1nq0l0KyG1++3VTHABnTGMIdW6PVSmJ1 +PQNusWI+9PdQyM7A6V73UwYkSiS+6O2mUMqmkJbTrxiwKXuw/8MHCkn13V/f +3M2A3kbNrwMdFFJ0Fb/uvMSAP88Ds7VbKKTvNlMQo8WERj53+mwdhfLT54Ks +dZggvNyifgl7Y+e8obgeE/74d1koYc+YLnUV7GGCpmCDn3Mthe8bDs5WIyZw +mwt5tFVTSHBJ2GHDISbI9nFvfPqIQqPx2mszfZgwY3TLa+ghhQ691O3y8GPC +2rIi/ljseo7dmRoBTMiY9Py9Azs9yFC7MZgJeRHU6/89oJC1g5n7WDgTPimJ +i60voVC1okO1yiUmnJaL9rG9T6GE2ogTVflMMKwMUhDMp5AP7Zp+aAETOC+e +0q7Po5DlvdK1eoVMsHdRvOqLzXdt/N7jYiZEe4Ttas+lUEygLetRBRNunJP7 +kZZDoQhlxZOVjUy46JJfS7tDIa9rLd5l/UzgvfqcMyeDQgcExw0CB5lAf3Xp +ojP29hgOAdowE5rEVrmIYY8HaheXjuH+SAl+uXSTQu7WmdMPp5hQfC/1/Kkb +FDrGE+T74AcTpooLfrhep5BZkJR/kRgBfVaPCskUCjVmxh5MliBA96lBpCK2 +Qeu8YqgUAfcdJgqHr+L5K7X0GG8mYKfKw/Vu2JIfw40/KRHQHc+35ngyhSZ3 +94nxaROgE7mj2CeRQle4sp54/EXAuN3v7jdx+P/V+a9bHSagI67sXRr2OafQ +QM2jBDhEpCq4YYdW2G7740iArfdYB/syrp/kTEqjE3BnXcXxLdiar+nM5wEE +qF43pJ2/SKGPSUrrFBIJcHGNrkuPpVAJEvCcSCLgUlbTS3/sc9PfnhVfJWBR +8qGsOTbtwLNIvWsE1Jgl1C7F4PlxMOatbhPw5goj1RF7v19WT2gRAa86EnvU +zlFIRuaCjmEJATeO5v3Lh/3ttd/VVQ8JEDH2ZI9HUyh7K7JKKCegom3ZOAv7 +d19fQ04NAV9VbS6KYVdYShe0NRPQVdGXK/wPhS7/4OJJeU3A7U1fiPmzFKIX +sNwdWgmwbMkK7sQW4q6RHn1LgOxJpfA0bO/aY1eWPxDgkxOyUxZbYUdaiOIY +AYKhNrJGZyj04+PpTmqcgKNxJ+q2YbfHEBoPJghwi9DOF8COHNJi6U8RsPvg +CL03ikK91ztdbNgEMNalnzmFnbxG2DSMk4Q1d6OsGiIpVDff5xS8ioTYt4Xm +Bdhf+goDfXlIePm5IDcR26DCJIu+loRPfJuj6NjjbqE/DwqTkMKcfcKHLWRp +usFUhIRCZsW/C6cptEd3gzISJeHsWiv5IexEgaIjmpIkFKcvr61eOa8ZKJWW +IyFY0Yjhg03mFTWLKpCQcDv/pNPK94l/D6xXIqGZPtB1AHucFBHgVibhrUjb +q20r5yJmnlMaJJjwZ++diKBQzX8iUeM0EpZaCy17sMeowdRBLRJO0S/Uvcbe +3RDW1KVHwqR5Y30J9qh3yeYnQMLQTZpVOLbgsXDtx0YkDGaM0P2w9Y3NLUtN +SGgZPtHDwE6QHP47z5yEGd/FCSvsKu4HiZkHSVBo/XXWGHtkNvxuuiUJPzO6 +w/Wx9V6Ivo+3JSGpSSh5Kza9dHjyvB0J21R9SmSw4zMecP1jT0IWLVNFFHs4 +8IBGyDESujXPmfNgC7iKmfk7knAbdCd+h+O8AyMuXs4kBPI1TCxix285fdnV +jYT1bDt+FnYV38HsY3QSwre4qI9iDy+IVdsxSVBT3Fvejy0wNPLWkiSBZw37 +Ws9KXuvD8f2eJNi/iezrwqY/Pv0bvEiwjBiMbl/Jzz64cY83CeckJC63ruTH +i6to+5LwJU+J3bySHzq6T92fBL/ta+ueY/MzS48pB+L55TSONWLr2kT6KQST +ICpl59+wkr/bIlYmhISShMdO9dhxShK3xENJSFzFvluH/UhorFw4jIS0MO7D +tdhDP0tfr4sgQWhhkl6zkv8lcognkgSx4HvvqrF1Oiy+/4kiQea7wZ0V/x/e +Fhnj + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7963531636412459, 1.243978502179552}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7963531636412476}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.7963531636412459, 1.243978502179552}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7963531636412476}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk0Ve0XB3BESYhkThkrydA1lzw7Q5QxrwZj3HvPIZn5yYuoVzQhhFKK +TEkoU5nyigZFEiqUeci5xtyQhrff44+zzvqs56zv2mfvtR85up8dwcXBwTGB +n5V3QJvatsftbYbZGREcR76wkeFMrjbdpAjxsHO6D2MPZuqkKJrUoayyTe4r +tmW+Wc2v+Ry1To6n22OXhkY18Zi0ok/VXNF/YV98IdEQVfgOcRv7b7LDrm4P +uP2L9h55V6mTttis3tcRf9d2I9kj+9yssaXGFJwWjT8jSUYenyW2xWyEflDr +ANLd5UwcwK7/xVoXWjiELGVI//3YH86Khz/yHUHiV5pUjLFnVpuwvtHG0O7l +4GsIe3Wcv4Pm0jhCPWHle7A3C99qDqidQPcev4/SxbaWXsyfMZ5CIs1xymrY +ZJa8mCrvDErfx1qtjB2lZBNzsnUWJZpnpihgd4t37Qou/Ire84g8FcdmOnqd +uBo3j346dh4Xxp7L4LhT5stG6uEzJXzYvPKqQl9pC8ivQ8/11zgbpTCbzIRE +F9GVPyfqv2HL3nWIUl9aRHMjy21T2Ho7Y2d8ar+jOJ3dnJ+xPXUGWlnGv1Cq +vGvhI+xvof/j5tv6G5V/zosvwj5Tu85Amfc/VLvriFw29nXQu+/R+gdZ+yw6 +xGEz85pNAgs5gew4LuSCXfji6uBZaS5Q/1fslC323BfXiKQ4LsgbMUowxo7Y +sVD+0HcVPJjjbNu+Uu8DOYVZGg9YmdtcnR1jo972qfr/cnhAq3Pk9CC27Pxj +R0HR1VDF+iXxDrtIyzpZdWk1xOo9dyvFflYdxuldywsxvyd1fLEXmjoHJoz5 +IVc350/3KBttsOQXCq/nhzzKHJqwNbpMQEBfAH6uLVMoxvYarczapSYIQn2f +O6Kw/blaNfbyC0Er968OWewx+ZKvMYvCYM3X4nJoBPeHfL32reYG8B8ObNXG +5ro/LicRsAHUeTf3S2LLam6xK5zcAKp7E1mDw2zkaJxY1jYoAlJJRIEX9ltG +YJB4iyhYZAvWeQ+xUf/dhMtuvGKQI7XVxQJ7arIw556pGCjcuHJHGZsveKRz +T4MYONF9N44NspHJOXstt0px4NyzmH0UuyZXZ6EgUxKcvPU8VQbYKHfsR8ju +YBn4J6izPv4zG5kfPt8fVCwD/dvOdDCwp56J7C8elwGOq4Jp+thauTtFZR02 +Q7bSxM7RT7ifdNdyHsMtMNGqfUMbe3528NREtCycyLsZ+qqHjUR8TCrKreRB +Q7IzoPIDG43n8nnaesmDljQ7/ix21ed26elYecjwfOFohe1s6RK9tUEeSmdy +Vo++x/WphNil0xQgbR9vgQC2FuvuXKS4Iuj+5JGw62Qje491qgeHlGCve8xI +5ls2QiGHaUd/K0GjaI0TA3tHTKYuU3IrWDjeu7AVmyNH0yjy0Fa4MPORo6iN +jYr7nY6WPd0Kav0OJ8vf4P08UnRWKnsb5Jtoa1S04PpMrD6w6MogNcmoPP2S +jaTlr0RdHt0Jtw74F9Pq2aju0jflZS5VOKveOfz5Ca6f7dBFyqmC5H/OjbHY +t58pKhu5qoLSDakzPXVsJO9R0/H9oyrc9axcCqvF9RWNKZEtaqA2az1SXMVG +MtKbSVkHDXgx1iTQVcZGO/OC+X8iGtRbTIwq5rMRnRm9oGpNA7vNbN2neXi/ +FJL73ZxpQPH7G7tgr8p+8PBFKA0GNBeiU3Lxftxm2SeX0iAN7hT9ycb333W3 +W8oKmvB9CQqaM/E8LluqHVutBaY5LgVK6Wx0J1DRtrJVG3TWcY0JXmaj9hCk +ey5PHy7ezC6mPNlIzvW9tYv3XjikK2/UbcRGxJ9HJTJ/A/RvFBlMlmYj8cmq +NeJ0I2i3N04zmJ5HwZoGn5N3mMA1vmXTlvp5RJ/+1SzCMoUkNUfBjIR5VGwU +tCbzrRlUErsMao/Oo9xvXk+LUg6ALskjHiA/j77vk3jzLMoCxOXCb7wZ/4r6 +OFZ9HXK3gjAbm+cN+N7z3eSXeFbBBthR0g4NAV9RyYnmhtQYW8j75pBK0/yK +wtiSSyonDgHPtG90wPc5tHBw/5GXx+1gz8eJbY+r5pC+U9K+sUN/webGUguP +sDnUIXnL65mmPUik+ps9gzkklR9dV7D9MDw1bFcXXTWHqgZ3WFoLHAEBW4/y ++ZRZtLlrziNk+ggMvW7kVd8+izRTk4pyBo8CcbByUKRyBt3iZqslNx2DLcdl +XcotZ9Cjfeq9MdUOUPlyl7bewDS6rntJ+FehI+iIPIeqU9Po7ae8WM04J9Ad +f5D0XWoaVVplKPqfcQarNSrxT2qm0Fefvzh8mS5w+sSrFhViCi3sV/acMXYF +ud7U5ydFp1DBdM/3IJ3jsJ1WxpXfNImO3cljuPC7gY1fQ+RM+CQqL7M4vuq8 +GwTfeB5opjmJ9KU7li8uu8GLhx2mlt9YSGHQo/fdCXeYXc2btaOWhUbXnbTJ +GHGH4zcPEV7/sFB7gjXD7DAd6uzV3jDsWCglNHPd/9rpcOFSkOEzBRaqq/+z +zDjAAH/dDyFnf1JovTOc16xhwE0y1nq0l0KyG1++3VTHABnTGMIdW6PVSmJ1 +PQNusWI+9PdQyM7A6V73UwYkSiS+6O2mUMqmkJbTrxiwKXuw/8MHCkn13V/f +3M2A3kbNrwMdFFJ0Fb/uvMSAP88Ds7VbKKTvNlMQo8WERj53+mwdhfLT54Ks +dZggvNyifgl7Y+e8obgeE/74d1koYc+YLnUV7GGCpmCDn3Mthe8bDs5WIyZw +mwt5tFVTSHBJ2GHDISbI9nFvfPqIQqPx2mszfZgwY3TLa+ghhQ691O3y8GPC +2rIi/ljseo7dmRoBTMiY9Py9Azs9yFC7MZgJeRHU6/89oJC1g5n7WDgTPimJ +i60voVC1okO1yiUmnJaL9rG9T6GE2ogTVflMMKwMUhDMp5AP7Zp+aAETOC+e +0q7Po5DlvdK1eoVMsHdRvOqLzXdt/N7jYiZEe4Ttas+lUEygLetRBRNunJP7 +kZZDoQhlxZOVjUy46JJfS7tDIa9rLd5l/UzgvfqcMyeDQgcExw0CB5lAf3Xp +ojP29hgOAdowE5rEVrmIYY8HaheXjuH+SAl+uXSTQu7WmdMPp5hQfC/1/Kkb +FDrGE+T74AcTpooLfrhep5BZkJR/kRgBfVaPCskUCjVmxh5MliBA96lBpCK2 +Qeu8YqgUAfcdJgqHr+L5K7X0GG8mYKfKw/Vu2JIfw40/KRHQHc+35ngyhSZ3 +94nxaROgE7mj2CeRQle4sp54/EXAuN3v7jdx+P/V+a9bHSagI67sXRr2OafQ +QM2jBDhEpCq4YYdW2G7740iArfdYB/syrp/kTEqjE3BnXcXxLdiar+nM5wEE +qF43pJ2/SKGPSUrrFBIJcHGNrkuPpVAJEvCcSCLgUlbTS3/sc9PfnhVfJWBR +8qGsOTbtwLNIvWsE1Jgl1C7F4PlxMOatbhPw5goj1RF7v19WT2gRAa86EnvU +zlFIRuaCjmEJATeO5v3Lh/3ttd/VVQ8JEDH2ZI9HUyh7K7JKKCegom3ZOAv7 +d19fQ04NAV9VbS6KYVdYShe0NRPQVdGXK/wPhS7/4OJJeU3A7U1fiPmzFKIX +sNwdWgmwbMkK7sQW4q6RHn1LgOxJpfA0bO/aY1eWPxDgkxOyUxZbYUdaiOIY +AYKhNrJGZyj04+PpTmqcgKNxJ+q2YbfHEBoPJghwi9DOF8COHNJi6U8RsPvg +CL03ikK91ztdbNgEMNalnzmFnbxG2DSMk4Q1d6OsGiIpVDff5xS8ioTYt4Xm +Bdhf+goDfXlIePm5IDcR26DCJIu+loRPfJuj6NjjbqE/DwqTkMKcfcKHLWRp +usFUhIRCZsW/C6cptEd3gzISJeHsWiv5IexEgaIjmpIkFKcvr61eOa8ZKJWW +IyFY0Yjhg03mFTWLKpCQcDv/pNPK94l/D6xXIqGZPtB1AHucFBHgVibhrUjb +q20r5yJmnlMaJJjwZ++diKBQzX8iUeM0EpZaCy17sMeowdRBLRJO0S/Uvcbe +3RDW1KVHwqR5Y30J9qh3yeYnQMLQTZpVOLbgsXDtx0YkDGaM0P2w9Y3NLUtN +SGgZPtHDwE6QHP47z5yEGd/FCSvsKu4HiZkHSVBo/XXWGHtkNvxuuiUJPzO6 +w/Wx9V6Ivo+3JSGpSSh5Kza9dHjyvB0J21R9SmSw4zMecP1jT0IWLVNFFHs4 +8IBGyDESujXPmfNgC7iKmfk7knAbdCd+h+O8AyMuXs4kBPI1TCxix285fdnV +jYT1bDt+FnYV38HsY3QSwre4qI9iDy+IVdsxSVBT3Fvejy0wNPLWkiSBZw37 +Ws9KXuvD8f2eJNi/iezrwqY/Pv0bvEiwjBiMbl/Jzz64cY83CeckJC63ruTH +i6to+5LwJU+J3bySHzq6T92fBL/ta+ueY/MzS48pB+L55TSONWLr2kT6KQST +ICpl59+wkr/bIlYmhISShMdO9dhxShK3xENJSFzFvluH/UhorFw4jIS0MO7D +tdhDP0tfr4sgQWhhkl6zkv8lcognkgSx4HvvqrF1Oiy+/4kiQea7wZ0V/x/e +Fhnj + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7963531636412459, 1.243978502179552}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7963531636412476}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.7963531636412476}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "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.7963531636412459, 1.243978502179552}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913411752988663`*^9, 3.992102806865778*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"f1b40fd2-7980-8346-ab14-cf5674e772cd"] +}, 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", ",", "15"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.9918466141799603`*^9}, + CellLabel-> + "In[118]:=",ExpressionUUID->"556a1eda-5f63-f94a-8981-af3901893679"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.662607122819456`*^-281\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 118, + 478, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755393047`*^9, 3.992102807206995*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"9e839ac1-e2c8-2c4d-82a0-19193c9fd41e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.08518260994274`*^-295\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 118, + 479, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755393047`*^9, 3.9921028072280025`*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"7765b859-1c01-0743-84ba-03b719869aa8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.019343050275519`*^-308\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 118, + 480, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755393047`*^9, 3.992102807241989*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"006179d3-b320-3944-9aae-e683ba724381"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 118, 481, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755393047`*^9, 3.9921028072550163`*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"ed158082-d012-b249-a31a-50725a643a42"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k4VdsbB3CReTiTkFAZi3NIRCLvG2VOEymzOKZMTZQmlFJKokFK5MpQ +xgYlYW+EJnW7MuQiGn+U4Zor+a3+2M9+Ps/Zz957rfN937X24h3hm/mCAgIC +s+T4c57oflqvnnjB3PtB19jKjI3mLdcVDqxp3w3vVhcsEj2oCzjv1Q6F9jho +ctKPoqPNIXLjrTah9hSYCkgKTo12BNagfMp0WzY8Wz17fEO0J/Q8dgwfa7sD +kpfaFaIPhIGVen/XSFst3FXg3lkTeQSm24wvDre9gZypdoHdQUlQZ5mX83f2 +B3C+8Wi2YF8mKPVUfN7B/Q4Pw0YHXRXzQDbE65ao5Siscl3g+kGsGFL0rSod +nadAfsn5wqZzd6AjbRk1wpwBppOMuXbWfUjMOfpKcP4cTHxrr9T010OQv/Dh +VGqGEP6orWDbrKkEBZ37x6dyhXDnLYViN7tKUKw9cdSjVAhXty1YGrylElSG +l+7TqhNCx7cHK6L4laDhEOFd+VUIzYrH1ZxPVYLB3BmjDwZzcUTttpbC60rY +sFfu4/Jnc7HNXvnwg+2P4aSTrfmbCWG0UUoDDY8qULzXrCg4RwTXuXbqJfOr +oJjjNKkvKYIxpll/j4VWQesbz9LzC0VwbtpXjdtHqkB9017VTTYiyK8+Pvk8 +swpq12eKvL4igisvN0V2va+CGavx5pdmoljU8HD+Ks9q2GNyw+tpnBg69Ml8 +vLOuBuyyZMbsz4ghZfA7kOlQA6qihxKaL4qhMCPUNnBzDbxu2Vr2T74Y/giK +XyDqVQO6EVJC3c1i2MhX/SWwvwa+5kbl/qcojk2ZqRGf8mvAXdbx+4K74tg7 +3ldvLESBwcHK2OuPxRFuXBSQEqFAom+J3OIGcfR8cNa/S4yCihIh0OwQR199 +ubIoGQrk7CuSl82KY+hNXTg9n4LXseqG6+wl8LmYl7GWHgVrh35Eh32QwK7R +xFjcRsEBmwva9DcJvCUyJ7HIlYLiG7x3nAkJhKnX7+Q9KFBw8japEJPEjn3F +6z/6UPDt4ZNJIV1JPMmtj3XfSUFqXPLeK/sl0arvy7Jnhynom6cZVi8thQ2B +w6uvZlEgH16jLC8vhVXeIUZl2RQ4NG17GbRICjsLmfvrcygoj07kMgykcOsJ +97a+fApO9wz3b98mhc5mI+KzpRQsL6gMGMqWwoyVn73vUxTEmm3yUVwpjf1X +R8QXdFNg43n9P2MLaXxj/cJb4D0FMjEDx5wdpPHYBbczfb0UXKuLz032lkY/ +j8c7Mj5R8NDu0YDIKWm8t/6R7PdvFAxvU4sc7ZDGoDbfN2M/KHgQHSHK+iiN +Tt61aXm/KDhyrSpNd5A8T+DtSpffFEi9d6kMEpTBh0FRokVzaNAKOCPwXlsG +S6wSvy4Xo8Fz3/jpFwdlMHqyWTJflgaNyxZK/fEyKL6uPG2JHE3m71yRaLIM +3n6LwrnyNET/WvraIkcGO6nOI5cVabh4zHNexQsZdKnMnHVaRMOL842ZN5UZ +GJLMvLRKh4ZVxVfuHalhYPBzZdO75jSsbWueGWxiYGq6z8UqoMFRYK611xsG +3uuItnyCNPhuDuuATwx8ZNV+7YUFDVYHFx+NEWaicqn0xkorGiIWTvy1RoeJ +gQemFeY70jB+N7lpWo+JKoX9H6aIo210vpcZMvFQa6546wYa4nd5G6maM9Gn +Z0tAwiYa0uueNQluYmLbk7D9L51oqA/I/F4XycQzjVpuHa402P4yYR86yMTc +mS8S59xoaE5uMTKMYaK2tqSyhTsNHRXiMTmnmFi1KDI4y4OGQcm97PhrTLT4 +2PdgtTcNe7JkjFffYOL87kcJ3cRThgVu4zeZ2Kk2U3PIhwYhz+4cfgkT7ze+ +8i3bQYNCqY2xVS0T2y+anPvpR0PG2g9uvxuYmNA6cOMknwbVjsMx5c+ZWBxo +tJDlTwNP8O5TzbfkfTvL3ZQCaLBwUnYX/cpErZTIAU4QDY1fH8TUfGOixrMp +n0Rih8Obb0aNMLHAM8BaIJgGl9yTg19+MFGq0dynjzhkaiSmSZqFl3Hn+5Mh +5P/a5S/3mc3C48xRxiixWP+720IKLJScqUK3UBpudta1mquyUHloboFqGA17 +nVaGuGuxcHfzRG8sscXLwjnRXBYOHJJf2E3cXX2Re9+IhSrpHflnw2koNJao +fWPKQhONyYn3xNGlR1yGkYWrHpg66EfQIJcdEKdjz8L/la5iPCX+qPivvO1G +Fv7rH3WEuYuGO6kbi/ydWahZ0zPpRLwh3qT9hhcL/f1Q6i2xyu+i0Bo/Fl5f +ROczd5P8RqoKdQWx8Kb7kc22xI+GLqX9CGOhoZG5xFHihEBJXYW9LNx7pvF1 +GfHW3qN1Kw6w8ORsb24vsbrr2LYtR1g4POR8VmYPDZR917GkBBZmnwpP8iJO +qt80v/AsC5eWFdw6Ruy+uqH4aQoLAzf5v8sh1i5ftfbLZRZ2H9+lUkc8rVvS +MTeDhcZqaVHdxE15auGq2SykqLzPE8SXFqXNxTxyfVFYiNReGvyuSKV7FLIw +fqJSfCHxcnas3sEyFpb5eNXoEgskjtenlbPwVcTSJFPiZqFg1/JKFoLXQOQ6 +4muHuof+oVhYuTgq2oF45/jm+JEnLHzDz7yykXhVWKMi4zkL+eeN324iFvti +Wsp9zUKJWo7un99bvUrX2b0l8/FC7KY9cU67emfAOxY6mH1btZZ496YrEfE9 +LOzYfGHYhBifSYv89ZGFZqLtDVxiGcu4q9T/WBgrfK5aibircmJZ9yDJQ/H5 +dnHiQsOdDT9HWbhnXsW8MTL+6KIet/nTLOQK9UR2EttoOo0Y/WZh3UjXrxpi +ucymE05CbOyTPp9/g/ij/Gql3WJsfL+iJTqG+E5yWdk5aTYaTx/b604cI65p +XcRmY8/lw5dWEG+IS//3mTwbO+dk9koSq/yU2f1ViY0prQ1be/7kZc8xURFV +Njr7tUyU/MkHP2T5Gi4bl9gvrrT5k4/u942e+mxUzVXt/ZMvdRdnj0NG5H6P +z65oJfmjbMwTHiAbRU5zQ7cRT+swu3nObLSYjV1mSvI8kaEYa+DKRnuDRy6D +JP9jDA11Ey82Rr3ybb5OPDhqErw2iIyPOlA0Seqnr9J3wvUwGwW62+xOkfrr +4YVd8Y5j45RvtbAW8b+Z+838T7Jx5aSgfC2p19ZjZ+N2nWej24AWDu+k4Zn9 +A5mEm2wMiT77hEvqvbGKLjt7i9z/jpTDfdIf6vVeOKWWsDHy4C89U+JqTm/6 +9Qo2cgRrORBI5rNTQuv+SzbaPmH7aZH+k77TE/rG2RjvIzsaTfrZ5a7Avi8/ +2Khbv6Sqg/S7Cxv2xH+fJVbF0RXESQYJz6fEOXirWi/vsycNcT/LXBgqHDRf +tNJmKemnOxOFI8ysODgp2bHGcCsNgTMMjoU9B00Tn5gFO9PgH65Ybr2Rg/qm +b+5kkH7tvUXv12ZXDmr8pSE7s5kGpwXbE4LCOOgsXdeQQfq92e3CrEuXOChp +OPgkwIaGzkW3M9dd5aB64oj1CWuSr0sF18cyORj735XcbLKePIjNvba5gIP5 +yeyZlrWkvrZlpck85qDqVkuNRWtoWCp8IflELwdD77xQ2GRC8ud1MCaSK4tV +C+s3qC2h4X7LgaMa+rLYL+b767cmeR+7/UdaVsgifyknq12DhpQV+w4tB1nc +GSnxOl6NBmmp8P2Dm2Qx2VGlv1GFhrkVOyL8o2SRaanaMEDW3xG2nffWWll0 +vLZO6+EsBe0hqq+DG2Xx67VQPSOynlMNP+DoC1k01A8aLSPrfXL07YX5rbLY +VOp+N3uagmV9Uj3T/bIoH9KyPGiUgrCyVx4ZnHm4IXypbuJnCvo3OLt99JuH +W/NM5+s8p+DjGe+tu0Xl8OaL3s4FSeT6fq7qMik5zGd41RqeoWDSevr7d6Yc +DsesH7Y/TfZzQinxQYpyaGnup7nvBHnegbp73jw5ZMQ1y909QsFhviZnwxY5 +pLMbPnSFkf2d+bdXOplymLI9kzGxngLboSjbT0byeDCZoRUoSvZnvmJ77h1V +wHOdOxWb71eT7wF5wZO183FhkqiOoHEVsF9qJpUOKeJ/2usV2HcrQSmhZKOR +kRJmHw7c2j1eAWk6JkxOgDLm/ErXEbB+CM8U16wYPa+C+gHly8yulMMqpdpk +vdaFaHTRfqDhyT2QEcre6xO3CJdfLwi2lLsLKrELzbZrLkY7oTiRqPVlIK7h +Xr65cTGu2b9i1SuTEtBdPb8kykMVT34oNwoyKoTd3ew6OwE1HFB4/T1XpQCG +Rs8426apYWZ1ocH9oFyw1mtIt+WpY0sJ/QaG/4LqUdOfk83qyLjYYfhm3w0I +4y5/9zdfA3mqaVyp0uuwetCvZbu4Jlawz57LiU+HdeoK66WzNdGObdY+Mfcy +LIk5vb/WWAtPhGpraQylgjbfpEbjnRYy5Bnf14wnA7868Pi9XUvw34Bttv5C +Z6Emq8VvZN5SnE0RO/zOLQHG8mcn9R4sxXPCn3Rd/I+Dr8Zt8fT12hg0sU4s +yyAWRrRTje4MayMjKNslLOIQPMz52TueoIPWRil6eSVR4LpWDU1VuHjVdcMi +/Xt7YEHoyQpdios8mVtKc6QjIGnWf0ViLRfrTAVbzwtEgGCKVdmXei6+LHf7 +5vw1HPrLhQuynnJRycK17Ft5ODwSOJ7G/oeL5z81OPQ5hYPrhZioiU9cNDDW +fvspNQzSKg+sqJbk4X8eassYKqEwTyKkbL0LD81+7Uqf8Q6GHMvD0cPbefjQ +w6UqwzYYlh9Oskx156Hq6rucjcuDwXG49G27Dw+1llhzB4SC4UTr+LRvCA+H +t65tms4LgqnsoxbRsTwsmFh4OWw0EN6Zpv6Te5uHpiaOo/6XAyBwX84122Ie +Zmh+224cFwATxff530p5OBTmeEohNADYqu2T+uU8/D29TU7aMgDsxZSVqige +KvuHlFcN+cPjlly/f97yMIChdcLAwR/sZB7yItt5mJB3zlVypT+0Wz+dUOjk +4R7GR9tRNX8YezSQ4Pmeh+bTCY6jP/nAu7Gs6H/9PHQ1DHhyp5APj9+tiTzz +nYep20usJK7wwU52C+gN87DRvvXsrng++J/c9/fecR5mP0mzDPfkwxh1Il1+ +ioynjZshbM+HuB+XfR/94OHXpuSU28Z8YBoWcD1meFi0cf18H3U+XA99ND47 +y8N25WFNTRYf/g/rdSSm + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VdsbB3CReTiTkFAZi3NIRCLvG2VOEymzOKZMTZQmlFJKokFK5MpQ +xgYlYW+EJnW7MuQiGn+U4Zor+a3+2M9+Ps/Zz957rfN937X24h3hm/mCAgIC +s+T4c57oflqvnnjB3PtB19jKjI3mLdcVDqxp3w3vVhcsEj2oCzjv1Q6F9jho +ctKPoqPNIXLjrTah9hSYCkgKTo12BNagfMp0WzY8Wz17fEO0J/Q8dgwfa7sD +kpfaFaIPhIGVen/XSFst3FXg3lkTeQSm24wvDre9gZypdoHdQUlQZ5mX83f2 +B3C+8Wi2YF8mKPVUfN7B/Q4Pw0YHXRXzQDbE65ao5Siscl3g+kGsGFL0rSod +nadAfsn5wqZzd6AjbRk1wpwBppOMuXbWfUjMOfpKcP4cTHxrr9T010OQv/Dh +VGqGEP6orWDbrKkEBZ37x6dyhXDnLYViN7tKUKw9cdSjVAhXty1YGrylElSG +l+7TqhNCx7cHK6L4laDhEOFd+VUIzYrH1ZxPVYLB3BmjDwZzcUTttpbC60rY +sFfu4/Jnc7HNXvnwg+2P4aSTrfmbCWG0UUoDDY8qULzXrCg4RwTXuXbqJfOr +oJjjNKkvKYIxpll/j4VWQesbz9LzC0VwbtpXjdtHqkB9017VTTYiyK8+Pvk8 +swpq12eKvL4igisvN0V2va+CGavx5pdmoljU8HD+Ks9q2GNyw+tpnBg69Ml8 +vLOuBuyyZMbsz4ghZfA7kOlQA6qihxKaL4qhMCPUNnBzDbxu2Vr2T74Y/giK +XyDqVQO6EVJC3c1i2MhX/SWwvwa+5kbl/qcojk2ZqRGf8mvAXdbx+4K74tg7 +3ldvLESBwcHK2OuPxRFuXBSQEqFAom+J3OIGcfR8cNa/S4yCihIh0OwQR199 +ubIoGQrk7CuSl82KY+hNXTg9n4LXseqG6+wl8LmYl7GWHgVrh35Eh32QwK7R +xFjcRsEBmwva9DcJvCUyJ7HIlYLiG7x3nAkJhKnX7+Q9KFBw8japEJPEjn3F +6z/6UPDt4ZNJIV1JPMmtj3XfSUFqXPLeK/sl0arvy7Jnhynom6cZVi8thQ2B +w6uvZlEgH16jLC8vhVXeIUZl2RQ4NG17GbRICjsLmfvrcygoj07kMgykcOsJ +97a+fApO9wz3b98mhc5mI+KzpRQsL6gMGMqWwoyVn73vUxTEmm3yUVwpjf1X +R8QXdFNg43n9P2MLaXxj/cJb4D0FMjEDx5wdpPHYBbczfb0UXKuLz032lkY/ +j8c7Mj5R8NDu0YDIKWm8t/6R7PdvFAxvU4sc7ZDGoDbfN2M/KHgQHSHK+iiN +Tt61aXm/KDhyrSpNd5A8T+DtSpffFEi9d6kMEpTBh0FRokVzaNAKOCPwXlsG +S6wSvy4Xo8Fz3/jpFwdlMHqyWTJflgaNyxZK/fEyKL6uPG2JHE3m71yRaLIM +3n6LwrnyNET/WvraIkcGO6nOI5cVabh4zHNexQsZdKnMnHVaRMOL842ZN5UZ +GJLMvLRKh4ZVxVfuHalhYPBzZdO75jSsbWueGWxiYGq6z8UqoMFRYK611xsG +3uuItnyCNPhuDuuATwx8ZNV+7YUFDVYHFx+NEWaicqn0xkorGiIWTvy1RoeJ +gQemFeY70jB+N7lpWo+JKoX9H6aIo210vpcZMvFQa6546wYa4nd5G6maM9Gn +Z0tAwiYa0uueNQluYmLbk7D9L51oqA/I/F4XycQzjVpuHa402P4yYR86yMTc +mS8S59xoaE5uMTKMYaK2tqSyhTsNHRXiMTmnmFi1KDI4y4OGQcm97PhrTLT4 +2PdgtTcNe7JkjFffYOL87kcJ3cRThgVu4zeZ2Kk2U3PIhwYhz+4cfgkT7ze+ +8i3bQYNCqY2xVS0T2y+anPvpR0PG2g9uvxuYmNA6cOMknwbVjsMx5c+ZWBxo +tJDlTwNP8O5TzbfkfTvL3ZQCaLBwUnYX/cpErZTIAU4QDY1fH8TUfGOixrMp +n0Rih8Obb0aNMLHAM8BaIJgGl9yTg19+MFGq0dynjzhkaiSmSZqFl3Hn+5Mh +5P/a5S/3mc3C48xRxiixWP+720IKLJScqUK3UBpudta1mquyUHloboFqGA17 +nVaGuGuxcHfzRG8sscXLwjnRXBYOHJJf2E3cXX2Re9+IhSrpHflnw2koNJao +fWPKQhONyYn3xNGlR1yGkYWrHpg66EfQIJcdEKdjz8L/la5iPCX+qPivvO1G +Fv7rH3WEuYuGO6kbi/ydWahZ0zPpRLwh3qT9hhcL/f1Q6i2xyu+i0Bo/Fl5f +ROczd5P8RqoKdQWx8Kb7kc22xI+GLqX9CGOhoZG5xFHihEBJXYW9LNx7pvF1 +GfHW3qN1Kw6w8ORsb24vsbrr2LYtR1g4POR8VmYPDZR917GkBBZmnwpP8iJO +qt80v/AsC5eWFdw6Ruy+uqH4aQoLAzf5v8sh1i5ftfbLZRZ2H9+lUkc8rVvS +MTeDhcZqaVHdxE15auGq2SykqLzPE8SXFqXNxTxyfVFYiNReGvyuSKV7FLIw +fqJSfCHxcnas3sEyFpb5eNXoEgskjtenlbPwVcTSJFPiZqFg1/JKFoLXQOQ6 +4muHuof+oVhYuTgq2oF45/jm+JEnLHzDz7yykXhVWKMi4zkL+eeN324iFvti +Wsp9zUKJWo7un99bvUrX2b0l8/FC7KY9cU67emfAOxY6mH1btZZ496YrEfE9 +LOzYfGHYhBifSYv89ZGFZqLtDVxiGcu4q9T/WBgrfK5aibircmJZ9yDJQ/H5 +dnHiQsOdDT9HWbhnXsW8MTL+6KIet/nTLOQK9UR2EttoOo0Y/WZh3UjXrxpi +ucymE05CbOyTPp9/g/ij/Gql3WJsfL+iJTqG+E5yWdk5aTYaTx/b604cI65p +XcRmY8/lw5dWEG+IS//3mTwbO+dk9koSq/yU2f1ViY0prQ1be/7kZc8xURFV +Njr7tUyU/MkHP2T5Gi4bl9gvrrT5k4/u942e+mxUzVXt/ZMvdRdnj0NG5H6P +z65oJfmjbMwTHiAbRU5zQ7cRT+swu3nObLSYjV1mSvI8kaEYa+DKRnuDRy6D +JP9jDA11Ey82Rr3ybb5OPDhqErw2iIyPOlA0Seqnr9J3wvUwGwW62+xOkfrr +4YVd8Y5j45RvtbAW8b+Z+838T7Jx5aSgfC2p19ZjZ+N2nWej24AWDu+k4Zn9 +A5mEm2wMiT77hEvqvbGKLjt7i9z/jpTDfdIf6vVeOKWWsDHy4C89U+JqTm/6 +9Qo2cgRrORBI5rNTQuv+SzbaPmH7aZH+k77TE/rG2RjvIzsaTfrZ5a7Avi8/ +2Khbv6Sqg/S7Cxv2xH+fJVbF0RXESQYJz6fEOXirWi/vsycNcT/LXBgqHDRf +tNJmKemnOxOFI8ysODgp2bHGcCsNgTMMjoU9B00Tn5gFO9PgH65Ybr2Rg/qm +b+5kkH7tvUXv12ZXDmr8pSE7s5kGpwXbE4LCOOgsXdeQQfq92e3CrEuXOChp +OPgkwIaGzkW3M9dd5aB64oj1CWuSr0sF18cyORj735XcbLKePIjNvba5gIP5 +yeyZlrWkvrZlpck85qDqVkuNRWtoWCp8IflELwdD77xQ2GRC8ud1MCaSK4tV +C+s3qC2h4X7LgaMa+rLYL+b767cmeR+7/UdaVsgifyknq12DhpQV+w4tB1nc +GSnxOl6NBmmp8P2Dm2Qx2VGlv1GFhrkVOyL8o2SRaanaMEDW3xG2nffWWll0 +vLZO6+EsBe0hqq+DG2Xx67VQPSOynlMNP+DoC1k01A8aLSPrfXL07YX5rbLY +VOp+N3uagmV9Uj3T/bIoH9KyPGiUgrCyVx4ZnHm4IXypbuJnCvo3OLt99JuH +W/NM5+s8p+DjGe+tu0Xl8OaL3s4FSeT6fq7qMik5zGd41RqeoWDSevr7d6Yc +DsesH7Y/TfZzQinxQYpyaGnup7nvBHnegbp73jw5ZMQ1y909QsFhviZnwxY5 +pLMbPnSFkf2d+bdXOplymLI9kzGxngLboSjbT0byeDCZoRUoSvZnvmJ77h1V +wHOdOxWb71eT7wF5wZO183FhkqiOoHEVsF9qJpUOKeJ/2usV2HcrQSmhZKOR +kRJmHw7c2j1eAWk6JkxOgDLm/ErXEbB+CM8U16wYPa+C+gHly8yulMMqpdpk +vdaFaHTRfqDhyT2QEcre6xO3CJdfLwi2lLsLKrELzbZrLkY7oTiRqPVlIK7h +Xr65cTGu2b9i1SuTEtBdPb8kykMVT34oNwoyKoTd3ew6OwE1HFB4/T1XpQCG +Rs8426apYWZ1ocH9oFyw1mtIt+WpY0sJ/QaG/4LqUdOfk83qyLjYYfhm3w0I +4y5/9zdfA3mqaVyp0uuwetCvZbu4Jlawz57LiU+HdeoK66WzNdGObdY+Mfcy +LIk5vb/WWAtPhGpraQylgjbfpEbjnRYy5Bnf14wnA7868Pi9XUvw34Bttv5C +Z6Emq8VvZN5SnE0RO/zOLQHG8mcn9R4sxXPCn3Rd/I+Dr8Zt8fT12hg0sU4s +yyAWRrRTje4MayMjKNslLOIQPMz52TueoIPWRil6eSVR4LpWDU1VuHjVdcMi +/Xt7YEHoyQpdios8mVtKc6QjIGnWf0ViLRfrTAVbzwtEgGCKVdmXei6+LHf7 +5vw1HPrLhQuynnJRycK17Ft5ODwSOJ7G/oeL5z81OPQ5hYPrhZioiU9cNDDW +fvspNQzSKg+sqJbk4X8eassYKqEwTyKkbL0LD81+7Uqf8Q6GHMvD0cPbefjQ +w6UqwzYYlh9Oskx156Hq6rucjcuDwXG49G27Dw+1llhzB4SC4UTr+LRvCA+H +t65tms4LgqnsoxbRsTwsmFh4OWw0EN6Zpv6Te5uHpiaOo/6XAyBwX84122Ie +Zmh+224cFwATxff530p5OBTmeEohNADYqu2T+uU8/D29TU7aMgDsxZSVqige +KvuHlFcN+cPjlly/f97yMIChdcLAwR/sZB7yItt5mJB3zlVypT+0Wz+dUOjk +4R7GR9tRNX8YezSQ4Pmeh+bTCY6jP/nAu7Gs6H/9PHQ1DHhyp5APj9+tiTzz +nYep20usJK7wwU52C+gN87DRvvXsrng++J/c9/fecR5mP0mzDPfkwxh1Il1+ +ioynjZshbM+HuB+XfR/94OHXpuSU28Z8YBoWcD1meFi0cf18H3U+XA99ND47 +y8N25WFNTRYf/g/rdSSm + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13636229430188532`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.13636229430188532`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VdsbB3CReTiTkFAZi3NIRCLvG2VOEymzOKZMTZQmlFJKokFK5MpQ +xgYlYW+EJnW7MuQiGn+U4Zor+a3+2M9+Ps/Zz957rfN937X24h3hm/mCAgIC +s+T4c57oflqvnnjB3PtB19jKjI3mLdcVDqxp3w3vVhcsEj2oCzjv1Q6F9jho +ctKPoqPNIXLjrTah9hSYCkgKTo12BNagfMp0WzY8Wz17fEO0J/Q8dgwfa7sD +kpfaFaIPhIGVen/XSFst3FXg3lkTeQSm24wvDre9gZypdoHdQUlQZ5mX83f2 +B3C+8Wi2YF8mKPVUfN7B/Q4Pw0YHXRXzQDbE65ao5Siscl3g+kGsGFL0rSod +nadAfsn5wqZzd6AjbRk1wpwBppOMuXbWfUjMOfpKcP4cTHxrr9T010OQv/Dh +VGqGEP6orWDbrKkEBZ37x6dyhXDnLYViN7tKUKw9cdSjVAhXty1YGrylElSG +l+7TqhNCx7cHK6L4laDhEOFd+VUIzYrH1ZxPVYLB3BmjDwZzcUTttpbC60rY +sFfu4/Jnc7HNXvnwg+2P4aSTrfmbCWG0UUoDDY8qULzXrCg4RwTXuXbqJfOr +oJjjNKkvKYIxpll/j4VWQesbz9LzC0VwbtpXjdtHqkB9017VTTYiyK8+Pvk8 +swpq12eKvL4igisvN0V2va+CGavx5pdmoljU8HD+Ks9q2GNyw+tpnBg69Ml8 +vLOuBuyyZMbsz4ghZfA7kOlQA6qihxKaL4qhMCPUNnBzDbxu2Vr2T74Y/giK +XyDqVQO6EVJC3c1i2MhX/SWwvwa+5kbl/qcojk2ZqRGf8mvAXdbx+4K74tg7 +3ldvLESBwcHK2OuPxRFuXBSQEqFAom+J3OIGcfR8cNa/S4yCihIh0OwQR199 +ubIoGQrk7CuSl82KY+hNXTg9n4LXseqG6+wl8LmYl7GWHgVrh35Eh32QwK7R +xFjcRsEBmwva9DcJvCUyJ7HIlYLiG7x3nAkJhKnX7+Q9KFBw8japEJPEjn3F +6z/6UPDt4ZNJIV1JPMmtj3XfSUFqXPLeK/sl0arvy7Jnhynom6cZVi8thQ2B +w6uvZlEgH16jLC8vhVXeIUZl2RQ4NG17GbRICjsLmfvrcygoj07kMgykcOsJ +97a+fApO9wz3b98mhc5mI+KzpRQsL6gMGMqWwoyVn73vUxTEmm3yUVwpjf1X +R8QXdFNg43n9P2MLaXxj/cJb4D0FMjEDx5wdpPHYBbczfb0UXKuLz032lkY/ +j8c7Mj5R8NDu0YDIKWm8t/6R7PdvFAxvU4sc7ZDGoDbfN2M/KHgQHSHK+iiN +Tt61aXm/KDhyrSpNd5A8T+DtSpffFEi9d6kMEpTBh0FRokVzaNAKOCPwXlsG +S6wSvy4Xo8Fz3/jpFwdlMHqyWTJflgaNyxZK/fEyKL6uPG2JHE3m71yRaLIM +3n6LwrnyNET/WvraIkcGO6nOI5cVabh4zHNexQsZdKnMnHVaRMOL842ZN5UZ +GJLMvLRKh4ZVxVfuHalhYPBzZdO75jSsbWueGWxiYGq6z8UqoMFRYK611xsG +3uuItnyCNPhuDuuATwx8ZNV+7YUFDVYHFx+NEWaicqn0xkorGiIWTvy1RoeJ +gQemFeY70jB+N7lpWo+JKoX9H6aIo210vpcZMvFQa6546wYa4nd5G6maM9Gn +Z0tAwiYa0uueNQluYmLbk7D9L51oqA/I/F4XycQzjVpuHa402P4yYR86yMTc +mS8S59xoaE5uMTKMYaK2tqSyhTsNHRXiMTmnmFi1KDI4y4OGQcm97PhrTLT4 +2PdgtTcNe7JkjFffYOL87kcJ3cRThgVu4zeZ2Kk2U3PIhwYhz+4cfgkT7ze+ +8i3bQYNCqY2xVS0T2y+anPvpR0PG2g9uvxuYmNA6cOMknwbVjsMx5c+ZWBxo +tJDlTwNP8O5TzbfkfTvL3ZQCaLBwUnYX/cpErZTIAU4QDY1fH8TUfGOixrMp +n0Rih8Obb0aNMLHAM8BaIJgGl9yTg19+MFGq0dynjzhkaiSmSZqFl3Hn+5Mh +5P/a5S/3mc3C48xRxiixWP+720IKLJScqUK3UBpudta1mquyUHloboFqGA17 +nVaGuGuxcHfzRG8sscXLwjnRXBYOHJJf2E3cXX2Re9+IhSrpHflnw2koNJao +fWPKQhONyYn3xNGlR1yGkYWrHpg66EfQIJcdEKdjz8L/la5iPCX+qPivvO1G +Fv7rH3WEuYuGO6kbi/ydWahZ0zPpRLwh3qT9hhcL/f1Q6i2xyu+i0Bo/Fl5f +ROczd5P8RqoKdQWx8Kb7kc22xI+GLqX9CGOhoZG5xFHihEBJXYW9LNx7pvF1 +GfHW3qN1Kw6w8ORsb24vsbrr2LYtR1g4POR8VmYPDZR917GkBBZmnwpP8iJO +qt80v/AsC5eWFdw6Ruy+uqH4aQoLAzf5v8sh1i5ftfbLZRZ2H9+lUkc8rVvS +MTeDhcZqaVHdxE15auGq2SykqLzPE8SXFqXNxTxyfVFYiNReGvyuSKV7FLIw +fqJSfCHxcnas3sEyFpb5eNXoEgskjtenlbPwVcTSJFPiZqFg1/JKFoLXQOQ6 +4muHuof+oVhYuTgq2oF45/jm+JEnLHzDz7yykXhVWKMi4zkL+eeN324iFvti +Wsp9zUKJWo7un99bvUrX2b0l8/FC7KY9cU67emfAOxY6mH1btZZ496YrEfE9 +LOzYfGHYhBifSYv89ZGFZqLtDVxiGcu4q9T/WBgrfK5aibircmJZ9yDJQ/H5 +dnHiQsOdDT9HWbhnXsW8MTL+6KIet/nTLOQK9UR2EttoOo0Y/WZh3UjXrxpi +ucymE05CbOyTPp9/g/ij/Gql3WJsfL+iJTqG+E5yWdk5aTYaTx/b604cI65p +XcRmY8/lw5dWEG+IS//3mTwbO+dk9koSq/yU2f1ViY0prQ1be/7kZc8xURFV +Njr7tUyU/MkHP2T5Gi4bl9gvrrT5k4/u942e+mxUzVXt/ZMvdRdnj0NG5H6P +z65oJfmjbMwTHiAbRU5zQ7cRT+swu3nObLSYjV1mSvI8kaEYa+DKRnuDRy6D +JP9jDA11Ey82Rr3ybb5OPDhqErw2iIyPOlA0Seqnr9J3wvUwGwW62+xOkfrr +4YVd8Y5j45RvtbAW8b+Z+838T7Jx5aSgfC2p19ZjZ+N2nWej24AWDu+k4Zn9 +A5mEm2wMiT77hEvqvbGKLjt7i9z/jpTDfdIf6vVeOKWWsDHy4C89U+JqTm/6 +9Qo2cgRrORBI5rNTQuv+SzbaPmH7aZH+k77TE/rG2RjvIzsaTfrZ5a7Avi8/ +2Khbv6Sqg/S7Cxv2xH+fJVbF0RXESQYJz6fEOXirWi/vsycNcT/LXBgqHDRf +tNJmKemnOxOFI8ysODgp2bHGcCsNgTMMjoU9B00Tn5gFO9PgH65Ybr2Rg/qm +b+5kkH7tvUXv12ZXDmr8pSE7s5kGpwXbE4LCOOgsXdeQQfq92e3CrEuXOChp +OPgkwIaGzkW3M9dd5aB64oj1CWuSr0sF18cyORj735XcbLKePIjNvba5gIP5 +yeyZlrWkvrZlpck85qDqVkuNRWtoWCp8IflELwdD77xQ2GRC8ud1MCaSK4tV +C+s3qC2h4X7LgaMa+rLYL+b767cmeR+7/UdaVsgifyknq12DhpQV+w4tB1nc +GSnxOl6NBmmp8P2Dm2Qx2VGlv1GFhrkVOyL8o2SRaanaMEDW3xG2nffWWll0 +vLZO6+EsBe0hqq+DG2Xx67VQPSOynlMNP+DoC1k01A8aLSPrfXL07YX5rbLY +VOp+N3uagmV9Uj3T/bIoH9KyPGiUgrCyVx4ZnHm4IXypbuJnCvo3OLt99JuH +W/NM5+s8p+DjGe+tu0Xl8OaL3s4FSeT6fq7qMik5zGd41RqeoWDSevr7d6Yc +DsesH7Y/TfZzQinxQYpyaGnup7nvBHnegbp73jw5ZMQ1y909QsFhviZnwxY5 +pLMbPnSFkf2d+bdXOplymLI9kzGxngLboSjbT0byeDCZoRUoSvZnvmJ77h1V +wHOdOxWb71eT7wF5wZO183FhkqiOoHEVsF9qJpUOKeJ/2usV2HcrQSmhZKOR +kRJmHw7c2j1eAWk6JkxOgDLm/ErXEbB+CM8U16wYPa+C+gHly8yulMMqpdpk +vdaFaHTRfqDhyT2QEcre6xO3CJdfLwi2lLsLKrELzbZrLkY7oTiRqPVlIK7h +Xr65cTGu2b9i1SuTEtBdPb8kykMVT34oNwoyKoTd3ew6OwE1HFB4/T1XpQCG +Rs8426apYWZ1ocH9oFyw1mtIt+WpY0sJ/QaG/4LqUdOfk83qyLjYYfhm3w0I +4y5/9zdfA3mqaVyp0uuwetCvZbu4Jlawz57LiU+HdeoK66WzNdGObdY+Mfcy +LIk5vb/WWAtPhGpraQylgjbfpEbjnRYy5Bnf14wnA7868Pi9XUvw34Bttv5C +Z6Emq8VvZN5SnE0RO/zOLQHG8mcn9R4sxXPCn3Rd/I+Dr8Zt8fT12hg0sU4s +yyAWRrRTje4MayMjKNslLOIQPMz52TueoIPWRil6eSVR4LpWDU1VuHjVdcMi +/Xt7YEHoyQpdios8mVtKc6QjIGnWf0ViLRfrTAVbzwtEgGCKVdmXei6+LHf7 +5vw1HPrLhQuynnJRycK17Ft5ODwSOJ7G/oeL5z81OPQ5hYPrhZioiU9cNDDW +fvspNQzSKg+sqJbk4X8eassYKqEwTyKkbL0LD81+7Uqf8Q6GHMvD0cPbefjQ +w6UqwzYYlh9Oskx156Hq6rucjcuDwXG49G27Dw+1llhzB4SC4UTr+LRvCA+H +t65tms4LgqnsoxbRsTwsmFh4OWw0EN6Zpv6Te5uHpiaOo/6XAyBwX84122Ie +Zmh+224cFwATxff530p5OBTmeEohNADYqu2T+uU8/D29TU7aMgDsxZSVqige +KvuHlFcN+cPjlly/f97yMIChdcLAwR/sZB7yItt5mJB3zlVypT+0Wz+dUOjk +4R7GR9tRNX8YezSQ4Pmeh+bTCY6jP/nAu7Gs6H/9PHQ1DHhyp5APj9+tiTzz +nYep20usJK7wwU52C+gN87DRvvXsrng++J/c9/fecR5mP0mzDPfkwxh1Il1+ +ioynjZshbM+HuB+XfR/94OHXpuSU28Z8YBoWcD1meFi0cf18H3U+XA99ND47 +y8N25WFNTRYf/g/rdSSm + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13636229430188532`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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.13636229430188532`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913414579436264`*^9, 3.9921032770345783`*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"a22520ef-cc3e-854d-84c1-b89f5d659d36"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel-> + "In[119]:=",ExpressionUUID->"adc3c3bb-baff-7c45-bc8f-885e51cde7ff"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k4VdsbB3CReTiTkFAZi3NIRCLvG2VOEymzOKZMTZQmlFJKokFK5MpQ +xgYlYW+EJnW7MuQiGn+U4Zor+a3+2M9+Ps/Zz957rfN937X24h3hm/mCAgIC +s+T4c57oflqvnnjB3PtB19jKjI3mLdcVDqxp3w3vVhcsEj2oCzjv1Q6F9jho +ctKPoqPNIXLjrTah9hSYCkgKTo12BNagfMp0WzY8Wz17fEO0J/Q8dgwfa7sD +kpfaFaIPhIGVen/XSFst3FXg3lkTeQSm24wvDre9gZypdoHdQUlQZ5mX83f2 +B3C+8Wi2YF8mKPVUfN7B/Q4Pw0YHXRXzQDbE65ao5Siscl3g+kGsGFL0rSod +nadAfsn5wqZzd6AjbRk1wpwBppOMuXbWfUjMOfpKcP4cTHxrr9T010OQv/Dh +VGqGEP6orWDbrKkEBZ37x6dyhXDnLYViN7tKUKw9cdSjVAhXty1YGrylElSG +l+7TqhNCx7cHK6L4laDhEOFd+VUIzYrH1ZxPVYLB3BmjDwZzcUTttpbC60rY +sFfu4/Jnc7HNXvnwg+2P4aSTrfmbCWG0UUoDDY8qULzXrCg4RwTXuXbqJfOr +oJjjNKkvKYIxpll/j4VWQesbz9LzC0VwbtpXjdtHqkB9017VTTYiyK8+Pvk8 +swpq12eKvL4igisvN0V2va+CGavx5pdmoljU8HD+Ks9q2GNyw+tpnBg69Ml8 +vLOuBuyyZMbsz4ghZfA7kOlQA6qihxKaL4qhMCPUNnBzDbxu2Vr2T74Y/giK +XyDqVQO6EVJC3c1i2MhX/SWwvwa+5kbl/qcojk2ZqRGf8mvAXdbx+4K74tg7 +3ldvLESBwcHK2OuPxRFuXBSQEqFAom+J3OIGcfR8cNa/S4yCihIh0OwQR199 +ubIoGQrk7CuSl82KY+hNXTg9n4LXseqG6+wl8LmYl7GWHgVrh35Eh32QwK7R +xFjcRsEBmwva9DcJvCUyJ7HIlYLiG7x3nAkJhKnX7+Q9KFBw8japEJPEjn3F +6z/6UPDt4ZNJIV1JPMmtj3XfSUFqXPLeK/sl0arvy7Jnhynom6cZVi8thQ2B +w6uvZlEgH16jLC8vhVXeIUZl2RQ4NG17GbRICjsLmfvrcygoj07kMgykcOsJ +97a+fApO9wz3b98mhc5mI+KzpRQsL6gMGMqWwoyVn73vUxTEmm3yUVwpjf1X +R8QXdFNg43n9P2MLaXxj/cJb4D0FMjEDx5wdpPHYBbczfb0UXKuLz032lkY/ +j8c7Mj5R8NDu0YDIKWm8t/6R7PdvFAxvU4sc7ZDGoDbfN2M/KHgQHSHK+iiN +Tt61aXm/KDhyrSpNd5A8T+DtSpffFEi9d6kMEpTBh0FRokVzaNAKOCPwXlsG +S6wSvy4Xo8Fz3/jpFwdlMHqyWTJflgaNyxZK/fEyKL6uPG2JHE3m71yRaLIM +3n6LwrnyNET/WvraIkcGO6nOI5cVabh4zHNexQsZdKnMnHVaRMOL842ZN5UZ +GJLMvLRKh4ZVxVfuHalhYPBzZdO75jSsbWueGWxiYGq6z8UqoMFRYK611xsG +3uuItnyCNPhuDuuATwx8ZNV+7YUFDVYHFx+NEWaicqn0xkorGiIWTvy1RoeJ +gQemFeY70jB+N7lpWo+JKoX9H6aIo210vpcZMvFQa6546wYa4nd5G6maM9Gn +Z0tAwiYa0uueNQluYmLbk7D9L51oqA/I/F4XycQzjVpuHa402P4yYR86yMTc +mS8S59xoaE5uMTKMYaK2tqSyhTsNHRXiMTmnmFi1KDI4y4OGQcm97PhrTLT4 +2PdgtTcNe7JkjFffYOL87kcJ3cRThgVu4zeZ2Kk2U3PIhwYhz+4cfgkT7ze+ +8i3bQYNCqY2xVS0T2y+anPvpR0PG2g9uvxuYmNA6cOMknwbVjsMx5c+ZWBxo +tJDlTwNP8O5TzbfkfTvL3ZQCaLBwUnYX/cpErZTIAU4QDY1fH8TUfGOixrMp +n0Rih8Obb0aNMLHAM8BaIJgGl9yTg19+MFGq0dynjzhkaiSmSZqFl3Hn+5Mh +5P/a5S/3mc3C48xRxiixWP+720IKLJScqUK3UBpudta1mquyUHloboFqGA17 +nVaGuGuxcHfzRG8sscXLwjnRXBYOHJJf2E3cXX2Re9+IhSrpHflnw2koNJao +fWPKQhONyYn3xNGlR1yGkYWrHpg66EfQIJcdEKdjz8L/la5iPCX+qPivvO1G +Fv7rH3WEuYuGO6kbi/ydWahZ0zPpRLwh3qT9hhcL/f1Q6i2xyu+i0Bo/Fl5f +ROczd5P8RqoKdQWx8Kb7kc22xI+GLqX9CGOhoZG5xFHihEBJXYW9LNx7pvF1 +GfHW3qN1Kw6w8ORsb24vsbrr2LYtR1g4POR8VmYPDZR917GkBBZmnwpP8iJO +qt80v/AsC5eWFdw6Ruy+uqH4aQoLAzf5v8sh1i5ftfbLZRZ2H9+lUkc8rVvS +MTeDhcZqaVHdxE15auGq2SykqLzPE8SXFqXNxTxyfVFYiNReGvyuSKV7FLIw +fqJSfCHxcnas3sEyFpb5eNXoEgskjtenlbPwVcTSJFPiZqFg1/JKFoLXQOQ6 +4muHuof+oVhYuTgq2oF45/jm+JEnLHzDz7yykXhVWKMi4zkL+eeN324iFvti +Wsp9zUKJWo7un99bvUrX2b0l8/FC7KY9cU67emfAOxY6mH1btZZ496YrEfE9 +LOzYfGHYhBifSYv89ZGFZqLtDVxiGcu4q9T/WBgrfK5aibircmJZ9yDJQ/H5 +dnHiQsOdDT9HWbhnXsW8MTL+6KIet/nTLOQK9UR2EttoOo0Y/WZh3UjXrxpi +ucymE05CbOyTPp9/g/ij/Gql3WJsfL+iJTqG+E5yWdk5aTYaTx/b604cI65p +XcRmY8/lw5dWEG+IS//3mTwbO+dk9koSq/yU2f1ViY0prQ1be/7kZc8xURFV +Njr7tUyU/MkHP2T5Gi4bl9gvrrT5k4/u942e+mxUzVXt/ZMvdRdnj0NG5H6P +z65oJfmjbMwTHiAbRU5zQ7cRT+swu3nObLSYjV1mSvI8kaEYa+DKRnuDRy6D +JP9jDA11Ey82Rr3ybb5OPDhqErw2iIyPOlA0Seqnr9J3wvUwGwW62+xOkfrr +4YVd8Y5j45RvtbAW8b+Z+838T7Jx5aSgfC2p19ZjZ+N2nWej24AWDu+k4Zn9 +A5mEm2wMiT77hEvqvbGKLjt7i9z/jpTDfdIf6vVeOKWWsDHy4C89U+JqTm/6 +9Qo2cgRrORBI5rNTQuv+SzbaPmH7aZH+k77TE/rG2RjvIzsaTfrZ5a7Avi8/ +2Khbv6Sqg/S7Cxv2xH+fJVbF0RXESQYJz6fEOXirWi/vsycNcT/LXBgqHDRf +tNJmKemnOxOFI8ysODgp2bHGcCsNgTMMjoU9B00Tn5gFO9PgH65Ybr2Rg/qm +b+5kkH7tvUXv12ZXDmr8pSE7s5kGpwXbE4LCOOgsXdeQQfq92e3CrEuXOChp +OPgkwIaGzkW3M9dd5aB64oj1CWuSr0sF18cyORj735XcbLKePIjNvba5gIP5 +yeyZlrWkvrZlpck85qDqVkuNRWtoWCp8IflELwdD77xQ2GRC8ud1MCaSK4tV +C+s3qC2h4X7LgaMa+rLYL+b767cmeR+7/UdaVsgifyknq12DhpQV+w4tB1nc +GSnxOl6NBmmp8P2Dm2Qx2VGlv1GFhrkVOyL8o2SRaanaMEDW3xG2nffWWll0 +vLZO6+EsBe0hqq+DG2Xx67VQPSOynlMNP+DoC1k01A8aLSPrfXL07YX5rbLY +VOp+N3uagmV9Uj3T/bIoH9KyPGiUgrCyVx4ZnHm4IXypbuJnCvo3OLt99JuH +W/NM5+s8p+DjGe+tu0Xl8OaL3s4FSeT6fq7qMik5zGd41RqeoWDSevr7d6Yc +DsesH7Y/TfZzQinxQYpyaGnup7nvBHnegbp73jw5ZMQ1y909QsFhviZnwxY5 +pLMbPnSFkf2d+bdXOplymLI9kzGxngLboSjbT0byeDCZoRUoSvZnvmJ77h1V +wHOdOxWb71eT7wF5wZO183FhkqiOoHEVsF9qJpUOKeJ/2usV2HcrQSmhZKOR +kRJmHw7c2j1eAWk6JkxOgDLm/ErXEbB+CM8U16wYPa+C+gHly8yulMMqpdpk +vdaFaHTRfqDhyT2QEcre6xO3CJdfLwi2lLsLKrELzbZrLkY7oTiRqPVlIK7h +Xr65cTGu2b9i1SuTEtBdPb8kykMVT34oNwoyKoTd3ew6OwE1HFB4/T1XpQCG +Rs8426apYWZ1ocH9oFyw1mtIt+WpY0sJ/QaG/4LqUdOfk83qyLjYYfhm3w0I +4y5/9zdfA3mqaVyp0uuwetCvZbu4Jlawz57LiU+HdeoK66WzNdGObdY+Mfcy +LIk5vb/WWAtPhGpraQylgjbfpEbjnRYy5Bnf14wnA7868Pi9XUvw34Bttv5C +Z6Emq8VvZN5SnE0RO/zOLQHG8mcn9R4sxXPCn3Rd/I+Dr8Zt8fT12hg0sU4s +yyAWRrRTje4MayMjKNslLOIQPMz52TueoIPWRil6eSVR4LpWDU1VuHjVdcMi +/Xt7YEHoyQpdios8mVtKc6QjIGnWf0ViLRfrTAVbzwtEgGCKVdmXei6+LHf7 +5vw1HPrLhQuynnJRycK17Ft5ODwSOJ7G/oeL5z81OPQ5hYPrhZioiU9cNDDW +fvspNQzSKg+sqJbk4X8eassYKqEwTyKkbL0LD81+7Uqf8Q6GHMvD0cPbefjQ +w6UqwzYYlh9Oskx156Hq6rucjcuDwXG49G27Dw+1llhzB4SC4UTr+LRvCA+H +t65tms4LgqnsoxbRsTwsmFh4OWw0EN6Zpv6Te5uHpiaOo/6XAyBwX84122Ie +Zmh+224cFwATxff530p5OBTmeEohNADYqu2T+uU8/D29TU7aMgDsxZSVqige +KvuHlFcN+cPjlly/f97yMIChdcLAwR/sZB7yItt5mJB3zlVypT+0Wz+dUOjk +4R7GR9tRNX8YezSQ4Pmeh+bTCY6jP/nAu7Gs6H/9PHQ1DHhyp5APj9+tiTzz +nYep20usJK7wwU52C+gN87DRvvXsrng++J/c9/fecR5mP0mzDPfkwxh1Il1+ +ioynjZshbM+HuB+XfR/94OHXpuSU28Z8YBoWcD1meFi0cf18H3U+XA99ND47 +y8N25WFNTRYf/g/rdSSm + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VdsbB3CReTiTkFAZi3NIRCLvG2VOEymzOKZMTZQmlFJKokFK5MpQ +xgYlYW+EJnW7MuQiGn+U4Zor+a3+2M9+Ps/Zz957rfN937X24h3hm/mCAgIC +s+T4c57oflqvnnjB3PtB19jKjI3mLdcVDqxp3w3vVhcsEj2oCzjv1Q6F9jho +ctKPoqPNIXLjrTah9hSYCkgKTo12BNagfMp0WzY8Wz17fEO0J/Q8dgwfa7sD +kpfaFaIPhIGVen/XSFst3FXg3lkTeQSm24wvDre9gZypdoHdQUlQZ5mX83f2 +B3C+8Wi2YF8mKPVUfN7B/Q4Pw0YHXRXzQDbE65ao5Siscl3g+kGsGFL0rSod +nadAfsn5wqZzd6AjbRk1wpwBppOMuXbWfUjMOfpKcP4cTHxrr9T010OQv/Dh +VGqGEP6orWDbrKkEBZ37x6dyhXDnLYViN7tKUKw9cdSjVAhXty1YGrylElSG +l+7TqhNCx7cHK6L4laDhEOFd+VUIzYrH1ZxPVYLB3BmjDwZzcUTttpbC60rY +sFfu4/Jnc7HNXvnwg+2P4aSTrfmbCWG0UUoDDY8qULzXrCg4RwTXuXbqJfOr +oJjjNKkvKYIxpll/j4VWQesbz9LzC0VwbtpXjdtHqkB9017VTTYiyK8+Pvk8 +swpq12eKvL4igisvN0V2va+CGavx5pdmoljU8HD+Ks9q2GNyw+tpnBg69Ml8 +vLOuBuyyZMbsz4ghZfA7kOlQA6qihxKaL4qhMCPUNnBzDbxu2Vr2T74Y/giK +XyDqVQO6EVJC3c1i2MhX/SWwvwa+5kbl/qcojk2ZqRGf8mvAXdbx+4K74tg7 +3ldvLESBwcHK2OuPxRFuXBSQEqFAom+J3OIGcfR8cNa/S4yCihIh0OwQR199 +ubIoGQrk7CuSl82KY+hNXTg9n4LXseqG6+wl8LmYl7GWHgVrh35Eh32QwK7R +xFjcRsEBmwva9DcJvCUyJ7HIlYLiG7x3nAkJhKnX7+Q9KFBw8japEJPEjn3F +6z/6UPDt4ZNJIV1JPMmtj3XfSUFqXPLeK/sl0arvy7Jnhynom6cZVi8thQ2B +w6uvZlEgH16jLC8vhVXeIUZl2RQ4NG17GbRICjsLmfvrcygoj07kMgykcOsJ +97a+fApO9wz3b98mhc5mI+KzpRQsL6gMGMqWwoyVn73vUxTEmm3yUVwpjf1X +R8QXdFNg43n9P2MLaXxj/cJb4D0FMjEDx5wdpPHYBbczfb0UXKuLz032lkY/ +j8c7Mj5R8NDu0YDIKWm8t/6R7PdvFAxvU4sc7ZDGoDbfN2M/KHgQHSHK+iiN +Tt61aXm/KDhyrSpNd5A8T+DtSpffFEi9d6kMEpTBh0FRokVzaNAKOCPwXlsG +S6wSvy4Xo8Fz3/jpFwdlMHqyWTJflgaNyxZK/fEyKL6uPG2JHE3m71yRaLIM +3n6LwrnyNET/WvraIkcGO6nOI5cVabh4zHNexQsZdKnMnHVaRMOL842ZN5UZ +GJLMvLRKh4ZVxVfuHalhYPBzZdO75jSsbWueGWxiYGq6z8UqoMFRYK611xsG +3uuItnyCNPhuDuuATwx8ZNV+7YUFDVYHFx+NEWaicqn0xkorGiIWTvy1RoeJ +gQemFeY70jB+N7lpWo+JKoX9H6aIo210vpcZMvFQa6546wYa4nd5G6maM9Gn +Z0tAwiYa0uueNQluYmLbk7D9L51oqA/I/F4XycQzjVpuHa402P4yYR86yMTc +mS8S59xoaE5uMTKMYaK2tqSyhTsNHRXiMTmnmFi1KDI4y4OGQcm97PhrTLT4 +2PdgtTcNe7JkjFffYOL87kcJ3cRThgVu4zeZ2Kk2U3PIhwYhz+4cfgkT7ze+ +8i3bQYNCqY2xVS0T2y+anPvpR0PG2g9uvxuYmNA6cOMknwbVjsMx5c+ZWBxo +tJDlTwNP8O5TzbfkfTvL3ZQCaLBwUnYX/cpErZTIAU4QDY1fH8TUfGOixrMp +n0Rih8Obb0aNMLHAM8BaIJgGl9yTg19+MFGq0dynjzhkaiSmSZqFl3Hn+5Mh +5P/a5S/3mc3C48xRxiixWP+720IKLJScqUK3UBpudta1mquyUHloboFqGA17 +nVaGuGuxcHfzRG8sscXLwjnRXBYOHJJf2E3cXX2Re9+IhSrpHflnw2koNJao +fWPKQhONyYn3xNGlR1yGkYWrHpg66EfQIJcdEKdjz8L/la5iPCX+qPivvO1G +Fv7rH3WEuYuGO6kbi/ydWahZ0zPpRLwh3qT9hhcL/f1Q6i2xyu+i0Bo/Fl5f +ROczd5P8RqoKdQWx8Kb7kc22xI+GLqX9CGOhoZG5xFHihEBJXYW9LNx7pvF1 +GfHW3qN1Kw6w8ORsb24vsbrr2LYtR1g4POR8VmYPDZR917GkBBZmnwpP8iJO +qt80v/AsC5eWFdw6Ruy+uqH4aQoLAzf5v8sh1i5ftfbLZRZ2H9+lUkc8rVvS +MTeDhcZqaVHdxE15auGq2SykqLzPE8SXFqXNxTxyfVFYiNReGvyuSKV7FLIw +fqJSfCHxcnas3sEyFpb5eNXoEgskjtenlbPwVcTSJFPiZqFg1/JKFoLXQOQ6 +4muHuof+oVhYuTgq2oF45/jm+JEnLHzDz7yykXhVWKMi4zkL+eeN324iFvti +Wsp9zUKJWo7un99bvUrX2b0l8/FC7KY9cU67emfAOxY6mH1btZZ496YrEfE9 +LOzYfGHYhBifSYv89ZGFZqLtDVxiGcu4q9T/WBgrfK5aibircmJZ9yDJQ/H5 +dnHiQsOdDT9HWbhnXsW8MTL+6KIet/nTLOQK9UR2EttoOo0Y/WZh3UjXrxpi +ucymE05CbOyTPp9/g/ij/Gql3WJsfL+iJTqG+E5yWdk5aTYaTx/b604cI65p +XcRmY8/lw5dWEG+IS//3mTwbO+dk9koSq/yU2f1ViY0prQ1be/7kZc8xURFV +Njr7tUyU/MkHP2T5Gi4bl9gvrrT5k4/u942e+mxUzVXt/ZMvdRdnj0NG5H6P +z65oJfmjbMwTHiAbRU5zQ7cRT+swu3nObLSYjV1mSvI8kaEYa+DKRnuDRy6D +JP9jDA11Ey82Rr3ybb5OPDhqErw2iIyPOlA0Seqnr9J3wvUwGwW62+xOkfrr +4YVd8Y5j45RvtbAW8b+Z+838T7Jx5aSgfC2p19ZjZ+N2nWej24AWDu+k4Zn9 +A5mEm2wMiT77hEvqvbGKLjt7i9z/jpTDfdIf6vVeOKWWsDHy4C89U+JqTm/6 +9Qo2cgRrORBI5rNTQuv+SzbaPmH7aZH+k77TE/rG2RjvIzsaTfrZ5a7Avi8/ +2Khbv6Sqg/S7Cxv2xH+fJVbF0RXESQYJz6fEOXirWi/vsycNcT/LXBgqHDRf +tNJmKemnOxOFI8ysODgp2bHGcCsNgTMMjoU9B00Tn5gFO9PgH65Ybr2Rg/qm +b+5kkH7tvUXv12ZXDmr8pSE7s5kGpwXbE4LCOOgsXdeQQfq92e3CrEuXOChp +OPgkwIaGzkW3M9dd5aB64oj1CWuSr0sF18cyORj735XcbLKePIjNvba5gIP5 +yeyZlrWkvrZlpck85qDqVkuNRWtoWCp8IflELwdD77xQ2GRC8ud1MCaSK4tV +C+s3qC2h4X7LgaMa+rLYL+b767cmeR+7/UdaVsgifyknq12DhpQV+w4tB1nc +GSnxOl6NBmmp8P2Dm2Qx2VGlv1GFhrkVOyL8o2SRaanaMEDW3xG2nffWWll0 +vLZO6+EsBe0hqq+DG2Xx67VQPSOynlMNP+DoC1k01A8aLSPrfXL07YX5rbLY +VOp+N3uagmV9Uj3T/bIoH9KyPGiUgrCyVx4ZnHm4IXypbuJnCvo3OLt99JuH +W/NM5+s8p+DjGe+tu0Xl8OaL3s4FSeT6fq7qMik5zGd41RqeoWDSevr7d6Yc +DsesH7Y/TfZzQinxQYpyaGnup7nvBHnegbp73jw5ZMQ1y909QsFhviZnwxY5 +pLMbPnSFkf2d+bdXOplymLI9kzGxngLboSjbT0byeDCZoRUoSvZnvmJ77h1V +wHOdOxWb71eT7wF5wZO183FhkqiOoHEVsF9qJpUOKeJ/2usV2HcrQSmhZKOR +kRJmHw7c2j1eAWk6JkxOgDLm/ErXEbB+CM8U16wYPa+C+gHly8yulMMqpdpk +vdaFaHTRfqDhyT2QEcre6xO3CJdfLwi2lLsLKrELzbZrLkY7oTiRqPVlIK7h +Xr65cTGu2b9i1SuTEtBdPb8kykMVT34oNwoyKoTd3ew6OwE1HFB4/T1XpQCG +Rs8426apYWZ1ocH9oFyw1mtIt+WpY0sJ/QaG/4LqUdOfk83qyLjYYfhm3w0I +4y5/9zdfA3mqaVyp0uuwetCvZbu4Jlawz57LiU+HdeoK66WzNdGObdY+Mfcy +LIk5vb/WWAtPhGpraQylgjbfpEbjnRYy5Bnf14wnA7868Pi9XUvw34Bttv5C +Z6Emq8VvZN5SnE0RO/zOLQHG8mcn9R4sxXPCn3Rd/I+Dr8Zt8fT12hg0sU4s +yyAWRrRTje4MayMjKNslLOIQPMz52TueoIPWRil6eSVR4LpWDU1VuHjVdcMi +/Xt7YEHoyQpdios8mVtKc6QjIGnWf0ViLRfrTAVbzwtEgGCKVdmXei6+LHf7 +5vw1HPrLhQuynnJRycK17Ft5ODwSOJ7G/oeL5z81OPQ5hYPrhZioiU9cNDDW +fvspNQzSKg+sqJbk4X8eassYKqEwTyKkbL0LD81+7Uqf8Q6GHMvD0cPbefjQ +w6UqwzYYlh9Oskx156Hq6rucjcuDwXG49G27Dw+1llhzB4SC4UTr+LRvCA+H +t65tms4LgqnsoxbRsTwsmFh4OWw0EN6Zpv6Te5uHpiaOo/6XAyBwX84122Ie +Zmh+224cFwATxff530p5OBTmeEohNADYqu2T+uU8/D29TU7aMgDsxZSVqige +KvuHlFcN+cPjlly/f97yMIChdcLAwR/sZB7yItt5mJB3zlVypT+0Wz+dUOjk +4R7GR9tRNX8YezSQ4Pmeh+bTCY6jP/nAu7Gs6H/9PHQ1DHhyp5APj9+tiTzz +nYep20usJK7wwU52C+gN87DRvvXsrng++J/c9/fecR5mP0mzDPfkwxh1Il1+ +ioynjZshbM+HuB+XfR/94OHXpuSU28Z8YBoWcD1meFi0cf18H3U+XA99ND47 +y8N25WFNTRYf/g/rdSSm + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13636229430188532`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.13636229430188532`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VdsbB3CReTiTkFAZi3NIRCLvG2VOEymzOKZMTZQmlFJKokFK5MpQ +xgYlYW+EJnW7MuQiGn+U4Zor+a3+2M9+Ps/Zz957rfN937X24h3hm/mCAgIC +s+T4c57oflqvnnjB3PtB19jKjI3mLdcVDqxp3w3vVhcsEj2oCzjv1Q6F9jho +ctKPoqPNIXLjrTah9hSYCkgKTo12BNagfMp0WzY8Wz17fEO0J/Q8dgwfa7sD +kpfaFaIPhIGVen/XSFst3FXg3lkTeQSm24wvDre9gZypdoHdQUlQZ5mX83f2 +B3C+8Wi2YF8mKPVUfN7B/Q4Pw0YHXRXzQDbE65ao5Siscl3g+kGsGFL0rSod +nadAfsn5wqZzd6AjbRk1wpwBppOMuXbWfUjMOfpKcP4cTHxrr9T010OQv/Dh +VGqGEP6orWDbrKkEBZ37x6dyhXDnLYViN7tKUKw9cdSjVAhXty1YGrylElSG +l+7TqhNCx7cHK6L4laDhEOFd+VUIzYrH1ZxPVYLB3BmjDwZzcUTttpbC60rY +sFfu4/Jnc7HNXvnwg+2P4aSTrfmbCWG0UUoDDY8qULzXrCg4RwTXuXbqJfOr +oJjjNKkvKYIxpll/j4VWQesbz9LzC0VwbtpXjdtHqkB9017VTTYiyK8+Pvk8 +swpq12eKvL4igisvN0V2va+CGavx5pdmoljU8HD+Ks9q2GNyw+tpnBg69Ml8 +vLOuBuyyZMbsz4ghZfA7kOlQA6qihxKaL4qhMCPUNnBzDbxu2Vr2T74Y/giK +XyDqVQO6EVJC3c1i2MhX/SWwvwa+5kbl/qcojk2ZqRGf8mvAXdbx+4K74tg7 +3ldvLESBwcHK2OuPxRFuXBSQEqFAom+J3OIGcfR8cNa/S4yCihIh0OwQR199 +ubIoGQrk7CuSl82KY+hNXTg9n4LXseqG6+wl8LmYl7GWHgVrh35Eh32QwK7R +xFjcRsEBmwva9DcJvCUyJ7HIlYLiG7x3nAkJhKnX7+Q9KFBw8japEJPEjn3F +6z/6UPDt4ZNJIV1JPMmtj3XfSUFqXPLeK/sl0arvy7Jnhynom6cZVi8thQ2B +w6uvZlEgH16jLC8vhVXeIUZl2RQ4NG17GbRICjsLmfvrcygoj07kMgykcOsJ +97a+fApO9wz3b98mhc5mI+KzpRQsL6gMGMqWwoyVn73vUxTEmm3yUVwpjf1X +R8QXdFNg43n9P2MLaXxj/cJb4D0FMjEDx5wdpPHYBbczfb0UXKuLz032lkY/ +j8c7Mj5R8NDu0YDIKWm8t/6R7PdvFAxvU4sc7ZDGoDbfN2M/KHgQHSHK+iiN +Tt61aXm/KDhyrSpNd5A8T+DtSpffFEi9d6kMEpTBh0FRokVzaNAKOCPwXlsG +S6wSvy4Xo8Fz3/jpFwdlMHqyWTJflgaNyxZK/fEyKL6uPG2JHE3m71yRaLIM +3n6LwrnyNET/WvraIkcGO6nOI5cVabh4zHNexQsZdKnMnHVaRMOL842ZN5UZ +GJLMvLRKh4ZVxVfuHalhYPBzZdO75jSsbWueGWxiYGq6z8UqoMFRYK611xsG +3uuItnyCNPhuDuuATwx8ZNV+7YUFDVYHFx+NEWaicqn0xkorGiIWTvy1RoeJ +gQemFeY70jB+N7lpWo+JKoX9H6aIo210vpcZMvFQa6546wYa4nd5G6maM9Gn +Z0tAwiYa0uueNQluYmLbk7D9L51oqA/I/F4XycQzjVpuHa402P4yYR86yMTc +mS8S59xoaE5uMTKMYaK2tqSyhTsNHRXiMTmnmFi1KDI4y4OGQcm97PhrTLT4 +2PdgtTcNe7JkjFffYOL87kcJ3cRThgVu4zeZ2Kk2U3PIhwYhz+4cfgkT7ze+ +8i3bQYNCqY2xVS0T2y+anPvpR0PG2g9uvxuYmNA6cOMknwbVjsMx5c+ZWBxo +tJDlTwNP8O5TzbfkfTvL3ZQCaLBwUnYX/cpErZTIAU4QDY1fH8TUfGOixrMp +n0Rih8Obb0aNMLHAM8BaIJgGl9yTg19+MFGq0dynjzhkaiSmSZqFl3Hn+5Mh +5P/a5S/3mc3C48xRxiixWP+720IKLJScqUK3UBpudta1mquyUHloboFqGA17 +nVaGuGuxcHfzRG8sscXLwjnRXBYOHJJf2E3cXX2Re9+IhSrpHflnw2koNJao +fWPKQhONyYn3xNGlR1yGkYWrHpg66EfQIJcdEKdjz8L/la5iPCX+qPivvO1G +Fv7rH3WEuYuGO6kbi/ydWahZ0zPpRLwh3qT9hhcL/f1Q6i2xyu+i0Bo/Fl5f +ROczd5P8RqoKdQWx8Kb7kc22xI+GLqX9CGOhoZG5xFHihEBJXYW9LNx7pvF1 +GfHW3qN1Kw6w8ORsb24vsbrr2LYtR1g4POR8VmYPDZR917GkBBZmnwpP8iJO +qt80v/AsC5eWFdw6Ruy+uqH4aQoLAzf5v8sh1i5ftfbLZRZ2H9+lUkc8rVvS +MTeDhcZqaVHdxE15auGq2SykqLzPE8SXFqXNxTxyfVFYiNReGvyuSKV7FLIw +fqJSfCHxcnas3sEyFpb5eNXoEgskjtenlbPwVcTSJFPiZqFg1/JKFoLXQOQ6 +4muHuof+oVhYuTgq2oF45/jm+JEnLHzDz7yykXhVWKMi4zkL+eeN324iFvti +Wsp9zUKJWo7un99bvUrX2b0l8/FC7KY9cU67emfAOxY6mH1btZZ496YrEfE9 +LOzYfGHYhBifSYv89ZGFZqLtDVxiGcu4q9T/WBgrfK5aibircmJZ9yDJQ/H5 +dnHiQsOdDT9HWbhnXsW8MTL+6KIet/nTLOQK9UR2EttoOo0Y/WZh3UjXrxpi +ucymE05CbOyTPp9/g/ij/Gql3WJsfL+iJTqG+E5yWdk5aTYaTx/b604cI65p +XcRmY8/lw5dWEG+IS//3mTwbO+dk9koSq/yU2f1ViY0prQ1be/7kZc8xURFV +Njr7tUyU/MkHP2T5Gi4bl9gvrrT5k4/u942e+mxUzVXt/ZMvdRdnj0NG5H6P +z65oJfmjbMwTHiAbRU5zQ7cRT+swu3nObLSYjV1mSvI8kaEYa+DKRnuDRy6D +JP9jDA11Ey82Rr3ybb5OPDhqErw2iIyPOlA0Seqnr9J3wvUwGwW62+xOkfrr +4YVd8Y5j45RvtbAW8b+Z+838T7Jx5aSgfC2p19ZjZ+N2nWej24AWDu+k4Zn9 +A5mEm2wMiT77hEvqvbGKLjt7i9z/jpTDfdIf6vVeOKWWsDHy4C89U+JqTm/6 +9Qo2cgRrORBI5rNTQuv+SzbaPmH7aZH+k77TE/rG2RjvIzsaTfrZ5a7Avi8/ +2Khbv6Sqg/S7Cxv2xH+fJVbF0RXESQYJz6fEOXirWi/vsycNcT/LXBgqHDRf +tNJmKemnOxOFI8ysODgp2bHGcCsNgTMMjoU9B00Tn5gFO9PgH65Ybr2Rg/qm +b+5kkH7tvUXv12ZXDmr8pSE7s5kGpwXbE4LCOOgsXdeQQfq92e3CrEuXOChp +OPgkwIaGzkW3M9dd5aB64oj1CWuSr0sF18cyORj735XcbLKePIjNvba5gIP5 +yeyZlrWkvrZlpck85qDqVkuNRWtoWCp8IflELwdD77xQ2GRC8ud1MCaSK4tV +C+s3qC2h4X7LgaMa+rLYL+b767cmeR+7/UdaVsgifyknq12DhpQV+w4tB1nc +GSnxOl6NBmmp8P2Dm2Qx2VGlv1GFhrkVOyL8o2SRaanaMEDW3xG2nffWWll0 +vLZO6+EsBe0hqq+DG2Xx67VQPSOynlMNP+DoC1k01A8aLSPrfXL07YX5rbLY +VOp+N3uagmV9Uj3T/bIoH9KyPGiUgrCyVx4ZnHm4IXypbuJnCvo3OLt99JuH +W/NM5+s8p+DjGe+tu0Xl8OaL3s4FSeT6fq7qMik5zGd41RqeoWDSevr7d6Yc +DsesH7Y/TfZzQinxQYpyaGnup7nvBHnegbp73jw5ZMQ1y909QsFhviZnwxY5 +pLMbPnSFkf2d+bdXOplymLI9kzGxngLboSjbT0byeDCZoRUoSvZnvmJ77h1V +wHOdOxWb71eT7wF5wZO183FhkqiOoHEVsF9qJpUOKeJ/2usV2HcrQSmhZKOR +kRJmHw7c2j1eAWk6JkxOgDLm/ErXEbB+CM8U16wYPa+C+gHly8yulMMqpdpk +vdaFaHTRfqDhyT2QEcre6xO3CJdfLwi2lLsLKrELzbZrLkY7oTiRqPVlIK7h +Xr65cTGu2b9i1SuTEtBdPb8kykMVT34oNwoyKoTd3ew6OwE1HFB4/T1XpQCG +Rs8426apYWZ1ocH9oFyw1mtIt+WpY0sJ/QaG/4LqUdOfk83qyLjYYfhm3w0I +4y5/9zdfA3mqaVyp0uuwetCvZbu4Jlawz57LiU+HdeoK66WzNdGObdY+Mfcy +LIk5vb/WWAtPhGpraQylgjbfpEbjnRYy5Bnf14wnA7868Pi9XUvw34Bttv5C +Z6Emq8VvZN5SnE0RO/zOLQHG8mcn9R4sxXPCn3Rd/I+Dr8Zt8fT12hg0sU4s +yyAWRrRTje4MayMjKNslLOIQPMz52TueoIPWRil6eSVR4LpWDU1VuHjVdcMi +/Xt7YEHoyQpdios8mVtKc6QjIGnWf0ViLRfrTAVbzwtEgGCKVdmXei6+LHf7 +5vw1HPrLhQuynnJRycK17Ft5ODwSOJ7G/oeL5z81OPQ5hYPrhZioiU9cNDDW +fvspNQzSKg+sqJbk4X8eassYKqEwTyKkbL0LD81+7Uqf8Q6GHMvD0cPbefjQ +w6UqwzYYlh9Oskx156Hq6rucjcuDwXG49G27Dw+1llhzB4SC4UTr+LRvCA+H +t65tms4LgqnsoxbRsTwsmFh4OWw0EN6Zpv6Te5uHpiaOo/6XAyBwX84122Ie +Zmh+224cFwATxff530p5OBTmeEohNADYqu2T+uU8/D29TU7aMgDsxZSVqige +KvuHlFcN+cPjlly/f97yMIChdcLAwR/sZB7yItt5mJB3zlVypT+0Wz+dUOjk +4R7GR9tRNX8YezSQ4Pmeh+bTCY6jP/nAu7Gs6H/9PHQ1DHhyp5APj9+tiTzz +nYep20usJK7wwU52C+gN87DRvvXsrng++J/c9/fecR5mP0mzDPfkwxh1Il1+ +ioynjZshbM+HuB+XfR/94OHXpuSU28Z8YBoWcD1meFi0cf18H3U+XA99ND47 +y8N25WFNTRYf/g/rdSSm + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13636229430188532`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 15}, {0., 0.13636229430188532`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}, + 3.9921032771586018`*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"1b7f9284-ec61-fe47-95a1-ec06d683adbe"] +}, 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[120]:=",ExpressionUUID->"1ecbbb3f-ee46-da42-8494-bab66d31929d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0594776668265516`*^-219\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 120, 482, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423358439445`*^9, 3.99210327726713*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"627ad5ce-21df-cf40-8926-6bf5292da336"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.5724714926217337`*^-225\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 120, 483, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423358439445`*^9, 3.9921032772850723`*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"f0d830b1-d9cc-fd4b-a582-a01ae019036b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.246105781703911`*^-231\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 120, 484, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423358439445`*^9, 3.992103277299036*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"4c66dc37-f4b9-b048-abc1-661649c2aa1a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 120, 485, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423358439445`*^9, 3.9921032773111305`*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"9a3049df-9bf9-4d44-bd39-53307bd19da4"], + +Cell[BoxData["31.374368173412332`"], "Output", + CellChangeTimes->{3.9913423425170345`*^9, 3.9921033293589497`*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"1909a5e5-6960-5345-857f-4ecfb3a546b9"] +}, 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.9918466382952557`*^9, 3.9918466432862854`*^9}}, + CellLabel-> + "In[121]:=",ExpressionUUID->"fc5d2c23-4a6f-a449-ab65-d4efe503e761"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.451479086701762`*^-229\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 121, 486, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423425545177`*^9, 3.9921033295010395`*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"fc528c7c-714d-5c4c-bf5e-509102455a2e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.0202598627639034`*^-235\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 121, 487, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423425545177`*^9, 3.992103329514044*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"6800c1f2-7581-a848-b1d3-e289f1e3273b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.168750057228497`*^-242\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 121, 488, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423425545177`*^9, 3.9921033295281677`*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"2e2d206a-1224-4344-bdb1-7ecb82086ce7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 121, 489, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423425545177`*^9, 3.992103329549425*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"1cc67c85-c732-f84c-89f6-365b1760ca3e"], + +Cell[BoxData["0.8357011331830262`"], "Output", + CellChangeTimes->{3.9913423499055786`*^9, 3.9921033397773533`*^9}, + CellLabel-> + "Out[121]=",ExpressionUUID->"fa6f6401-5cef-5d4f-beb6-006db9a4de09"] +}, 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.9918466470672035`*^9, 3.991846650208416*^9}}, + CellLabel-> + "In[122]:=",ExpressionUUID->"43c7013a-a6e2-1a44-9690-1cefd2c28187"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.451479086701762`*^-229\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 122, 490, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423499435787`*^9, 3.9921033398636494`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"3ce57a77-3c6d-9a4f-839f-5dcd4c178a63"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.0202598627639034`*^-235\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 122, 491, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423499435787`*^9, 3.9921033398926487`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"d49b67a3-ec83-6d41-951b-46c9d580a437"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.168750057228497`*^-242\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 122, 492, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423499435787`*^9, 3.9921033399087543`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"2cb7d0e9-8e97-0b49-bc34-22e3680d2bc6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 122, 493, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423499435787`*^9, 3.992103339922779*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"0f3bfa69-8e37-ba42-b9ac-4d274eb2b67f"], + +Cell[BoxData["8.491420404870748`"], "Output", + CellChangeTimes->{3.991342356382967*^9, 3.992103349925991*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"e2e338c7-99c3-c644-8941-4f6b9f186bd0"] +}, 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.99184665401457*^9, 3.991846657234188*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"41fb449c-01a0-ed48-856e-cc313bd0a6c7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.451479086701762`*^-229\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 123, 494, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342356420965*^9, 3.9921033500209923`*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"3fcf00d2-ecb9-e24e-99db-9fbf4a83ab1e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.0202598627639034`*^-235\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 123, 495, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342356420965*^9, 3.992103350041889*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"2effae2b-37fd-de4e-ad85-af94a7c35cee"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.168750057228497`*^-242\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 123, 496, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342356420965*^9, 3.9921033500568924`*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"e5474320-47cb-4f4f-8742-02984dce80ff"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 123, 497, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342356420965*^9, 3.992103350069895*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"90407195-ddb8-dd40-9140-6d5a24513513"], + +Cell[BoxData["247.53793354104258`"], "Output", + CellChangeTimes->{3.9913423600715523`*^9, 3.992103357172613*^9}, + CellLabel-> + "Out[123]=",ExpressionUUID->"7e753d70-17d1-aa41-9424-56f560bb614d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991846664151518*^9, 3.991846668968689*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"63e2fa1e-7c56-c749-a270-c9c703386fca"], + +Cell[BoxData["0.018228038574476694`"], "Output", + CellChangeTimes->{3.9913423601046352`*^9, 3.992103357232807*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"6f359ccc-f2ea-df45-8324-d3c1f3cdabb7"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991846671829691*^9, 3.991846673735302*^9}, + 3.9919237989916477`*^9}, + CellLabel-> + "In[125]:=",ExpressionUUID->"8b2e971d-5760-5e43-92fb-a0baf224e1e6"], + +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[126]:=",ExpressionUUID->"ed5b29da-ad52-224c-9e8e-5cfb6cba7ae5"], + +Cell[BoxData["6.434497911915048`"], "Output", + CellChangeTimes->{3.9913423601345863`*^9, 3.992103357302887*^9}, + CellLabel-> + "Out[126]=",ExpressionUUID->"c53513f5-9f67-4b49-a326-46b63fd8b115"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[127]:=",ExpressionUUID->"52bec50b-93fb-4b4d-b447-2d6401f3d9c3"], + +Cell[BoxData["5.5671885079343415`"], "Output", + CellChangeTimes->{3.9913423601709976`*^9, 3.9921033573543377`*^9}, + CellLabel-> + "Out[127]=",ExpressionUUID->"c34ec96c-681c-164c-8547-da490ccf1c7a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[128]:=",ExpressionUUID->"1256eede-590d-b745-a810-815fbd90d864"], + +Cell[BoxData["35.82206282954097`"], "Output", + CellChangeTimes->{3.9913423602320137`*^9, 3.9921033574292603`*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"df14ac07-ba73-c14f-940e-24521ea0e685"] +}, 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[129]:=",ExpressionUUID->"26b3e9a1-c12d-c340-b102-39e3418b2423"], + +Cell[BoxData["0.025189759427078167`"], "Output", + CellChangeTimes->{3.991342360260002*^9, 3.9921033574868774`*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"2967dff1-c855-8345-8544-ba061bff582e"] +}, 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[130]:=",ExpressionUUID->"f1c368f7-48c1-ae41-985d-84d539f430bf"], + +Cell[BoxData["5.583839553902033`"], "Output", + CellChangeTimes->{3.9913423603598785`*^9, 3.992103357693651*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"431adf07-bff5-654a-bdc4-e8d324ad377b"] +}, 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[131]:=",ExpressionUUID->"8303e334-ad11-5445-af0f-63c02c371294"], + +Cell[BoxData["0.0008668472448271791`"], "Output", + CellChangeTimes->{3.991342360375868*^9, 3.9921033577529984`*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"915e2ed5-03c1-8042-b24d-7d344e476d39"] +}, 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[132]:=",ExpressionUUID->"9a6f9d0e-1f18-634f-a091-d3e4beab45d1"], + +Cell[BoxData["30.100496144352853`"], "Output", + CellChangeTimes->{3.991342360471882*^9, 3.9921033579194202`*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"7a385866-d9ef-a548-9f8a-a6ef260cf4ce"] +}, 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[133]:=",ExpressionUUID->"d36c329f-0f97-3149-b3e7-38d2ece236d0"], + +Cell[BoxData["0.9443844844348241`"], "Output", + CellChangeTimes->{3.991342360486868*^9, 3.992103357973875*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"7f856b82-0e34-e249-9323-d4b51f6eb30e"] +}, 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[134]:=",ExpressionUUID->"9d78a1b5-e3d2-144d-9443-73ce54c6aaab"], + +Cell[BoxData["0.05561551556517575`"], "Output", + CellChangeTimes->{3.9913423605138645`*^9, 3.9921033580262184`*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"c045046b-d790-ed42-85e6-54a152135051"] +}, 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[135]:=",ExpressionUUID->"66c99cb8-7b1e-c84b-9bf9-362f26e0fb97"], + +Cell[BoxData["0.05252242999359545`"], "Output", + CellChangeTimes->{3.9913423605448647`*^9, 3.992103358083399*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"62def4ea-96ef-3b4b-91b1-a0fad8508e30"] +}, 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.9918466934711*^9}, + CellLabel-> + "In[136]:=",ExpressionUUID->"f0de9d8e-43d1-8b49-87d3-7f90d7e4f5e3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.50518478247641`*^-229\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 136, 498, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342360571863*^9, 3.9921033581660004`*^9}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"904a71cb-4485-6e42-b43f-768d29311072"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1189418985031668`*^-235\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 136, 499, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342360571863*^9, 3.992103358178198*^9}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"2a9194d1-fa31-5e4a-9980-ebd885742673"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.9977589716484735`*^-242\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 136, 500, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342360571863*^9, 3.9921033581910744`*^9}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"83c2f634-b7ea-b34a-8fcb-80fe407c5782"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 136, 501, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342360571863*^9, 3.9921033582016277`*^9}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"bda5fa46-976e-ad45-a911-36e5d44989ee"], + +Cell[BoxData["5.583839553902038`"], "Output", + CellChangeTimes->{3.9913423642473736`*^9, 3.9921033643207607`*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"141a8e5f-5e8e-2a4c-b7b5-f8a51f367f8b"] +}, 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.9918466985968094`*^9}, + CellLabel-> + "In[137]:=",ExpressionUUID->"61250ade-2a8a-1a4d-bb58-5bb7aa60c04a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.50518478247641`*^-229\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 137, 502, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342364284378*^9, 3.9921033644192524`*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"4481646a-0c6d-5f4d-b8dd-d6f69274ec0b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1189418985031668`*^-235\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 137, 503, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342364284378*^9, 3.992103364439266*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"bffccbf5-6c1a-484f-950f-25d7492a0ee6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.9977589716484735`*^-242\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 137, 504, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342364284378*^9, 3.9921033644532547`*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"c9b275cb-e48a-ea47-88af-6846ff84af48"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 137, 505, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342364284378*^9, 3.992103364469261*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"2b19c04e-f165-8a4f-abe5-684757373997"], + +Cell[BoxData["30.100496144352935`"], "Output", + CellChangeTimes->{3.9913423679416714`*^9, 3.9921033704440746`*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"98c6c2bc-4c90-4a40-bb8d-87c90e525ed0"] +}, 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.991846701939392*^9}, + CellLabel-> + "In[138]:=",ExpressionUUID->"020bdd6e-add3-0a46-9b39-04b7ffae8470"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk4VVsfB3CZbpkSmZJ5KCQyE9bPlIyJiAyX45ytJAp5FdJkyFBIw7kR +ZbjIPE9RUVxcVHKbZKZ9DOEkKeVd/tjPfj7PevZ3f9daz1oylCBHGisLC8tn +/Gy8z/Tu3VXX32ts1PbKp2qEiYznc7Up5sWIO8reYMMjWTrp8ubNaLtPe1sl +tgP1X04ezefoarTW7wrsivDoNg7zHnSEeZ8sx772QvRJdNFLZDbGFluG3dB/ +5v6axhs0HOn7ugSb8b4r8lzTWxT++/HLR9g7JuXcv5l9RGolgpcKsW2+ROqH +9Ayj6XfU0XzsljUGd3jRKLIfqVjKwR68JBJRGziORhR/Vmdjz3OaM75qTKIP +kia7M7E5k067aa5MIVvzq7Z0bMltmZ1nmj6jTZLPZW5h24t/y583m0WnkOlw +IjaRLSusunkelXdFd8RiRyscijnZ8wW5pD72voT9VmRgX2jRIgrpNcw/i009 +5n/iZtISqvkU7RiEvZDB8qAyEM/L80XZcezNsqr8ixrLyMXJJ+oYdjq1zZJf +6BtKaKibc8SW/tstWm3lG6oNFNpqg623J3b+VNN35L9zhmqAfVxnuIdhtoZG +jKQ9hbC/hp9l51L8habjXzpzY19s4jZU2vwbvZ++uc6CfRf0Hvn1rKOIlMPE +zDDul9dpHly0CfjL319sxi56cXPkkjgrnA02Zi3HXpj2ikxNYgVKS6tWDnak +8nJVeSAbMFZlSuKx08tk5L5ocEB/wt2ZQ9jv+2dbfudwgOs78W+ALb1Ud4xP +iBM6B7sr9mEXa9mnqa5wAp9Ro6EAdnvD+U0BTZtBOp/3Qd8nJlpuez382YwH +xhLpefuxBWx5+CNaeGCK78B2RWz1AXPg1eeFVt4IRX5s/4ma7H17+WDrX0na +40NMdJq1R92Ihx/kJ6t+X8WelC1djPm2DUw9Q6DuI14fomtLn6YA5NqfIu9h +sz6akhE9IwC73+zVuYgtrSnlWDQjAAH+O5ossY+ZpVT2jgjC6ROCIa8+MFGf +b3CISLcQqPg0Zg2+Z6JPf19P9N4sDEOXfeJqsGdninIKLYTh1LqEYDo2V+j4 +6/1PhOHBuVlhB2zzq0e0vGtEILsmvL/tHRM15uosF2SJgZnQQf6/3jJR7uSP +MINQCVhXvTa3aZCJDjrHfQopkQBL68dub9/g/HbBAyVTEqBpExFWiq2Vu0dI +2k0SZK2Ln7pht1O8qjiMpSC5Iy6reICJlr6M/O/zFWm4Uxh6wew1EwmeMq+u +spMFD+6Py9r9TDSVy3XcwV8WcoN8o1mx6z/2i8/FysLgC7PG3j4m8rD1vKL4 +RBYe/lIxJ7BzVcIc6RpykFdCK0ztxf9n/L1wQUQe1odWW9/1MNERP25V61EF +EP5R7KT2DxOhMGeNo78UoMrC1IbZyUTKMVm6VDFFiA3a+70WmyVH0/TCYUVI +c1YJNsIu+eR+tPKpIkQepE8f6MDn06X40o6Hu8B8JmTY5jnuZ243yKAogd3T +GGPJp0wkLnsjOnFiD6CI3qqpOiZqTviqtMqqCtVPRzJSsT2YbgOEjCpwJP6j +boh9v11eydRLFYYOOrml1DKRrF/jq+//qYLT7cZSrRrcr3hSgejeC1kj9LBT +lUwkIS5JSLupg+Ky/IesYibakxfK8xNpgN49hix3NhNRqFeWVe01oFbBw6Ig +C58vubRP3h4a4MTWJ22BzfawrPxFuAbE882xXriPz8d9xpG0Cg1Qzjx/djYD +3393vTOV5DQBrYRLNdPxfiTa7nXl1AL3oIeTijeZ6EGwvENNjzbUl3taq8Yw +UX8Y0r2apw+U3jhze18mkvF6Y+8ZYAROXszDCUZMRFuvLZU4B2CYMLx2U5iJ +RGbq/xChmILE57g39M9LKFTT8GOasjncMAvNutK4hChza52CDAvo0GC/V5Gw +hEpMQ/7I6rOEPy1/WOkfWUK5X/2fFqdbgc1D4UVHqSX03UT03/ZoG7iRE6ci +MbGIhljYFkd97OCj+5WKyIJFFLgzKOWS3CGIPMq+azRoEZWe6HxyK8YBplSs +h1v3LaLzTLEVlROHwVrncCplZQEtWx9w6fjTEaLfpQoK1C8gffdUk8nDTiAg +2Oq+6/wCeiWW6d+ueQRWKvu7h2EB7ci/0lyw2xn+MTF2TmFbQPUjyrb2vC5Q +GhLrl377C5IcWPALm3OBsYvJpWeUvyDNW6nFOSNHIcTV+cNa3TzKZGfuTWtz +BZUAPbqawzyqNVF7H9PgBlX9ZQY243Porm7CtrWiY7A1N9fNJXIO9X3Ii9VM +cof/xltO8EvPoRq7DPnTFz3Adv7GS4cns2jxlBNLINUTLGrsnJRPzqLlA0rH +5828oOxBu2KP+CwqmHv3PUTnT6gfJO4c75pBrg/yfD15vCFxVP4kx5UZVFVp +8ydbnDcEVH8WrzSYQfrir1avrXqD8r9yMr9/MpDciN/7lyd8wIFzbkG8jYEm +uE8eyhj3AfbblWX0BAbqv27va+lMAdvYqJoXxxgoPTyL+2w/BYo7t8e77mGg +5pb1VV8rX5A0tO9H7Ay01QPiNBt94eyvW87t4ySS3t7Rt7PZF/zauZgm2Oo9 +dqKcLb4gtk+K0TpGIkdD98K3T33x/JQnm0dJlL4zrDvqH1/YrjvF1zRMoh1D +j7Z2vvUF3WcN+zo/kEjeS+Sux4ovLFyabVQYIJG+93xBjBYVdJpaN88/J1E+ +fSHEXocK9FdiRtewt79eMhbRo0K5cEurPPa8xcpAwX4qgON0mUc7ie8blk09 +plTYX969v/8ZifhWtrkJHKYCZ4wj64tWEk0ka2/JOkWFSk7SbraBRIc7dAf8 +gqigP3XNNhW7hcUgS/0MFQKEYug62PQQY+1noVSw358kebmeRPZulj6TEVTY +dZoxsLOORA3ybg0qCVTo/dea6V1NoutNkSfq86nwxub+qlwZiU5p3NEPL6CC +zFEnj4FSEtkWVmzRK6KC6BiFKwab685UYV0JFXjm0w5Ol5AoJtiBUVuN+/4C +u7JiEkUqyZ+seUaF1cPy4XZFJPK/0x1Q+YkKr6qPuzzLI5EV35Rh8AgVPuaK +KURi745h4dUYo8LjQTWkgz0VrF1SMUmFft1k50e5JPKxz5orn6XCpPd2bnoO +iVw5QgLLflBB2uM2/fIDElmG7DhdLEyDWEPKgeuZJHqWFWudJkqDWh4nD1ts +w54l+fAdNKgX4uvmwlZX6H5nJkmDPTsmKuMzSCT2X4TZBwUa9LSJFsffI9GM +wZAwlzYN1C6R5nQ6iW6wZj/2c6LBSSNNgV+38PzVeO7aOdMgOnnd5AX2Vffw +YM2jNCi2zuq6gR1e7bBr/RgNpviPTclh+xCbUm9TaKDT0WbpkE4izS4K9fkZ +GiwL3a9sSCPRf6kK3HIpNPC9yKncd4NEpYj3+OdUGny9t88rH/vq3Nf2kps0 +ONPROByFrWHVfkHvDg24vkx3qWJfZ/FdsrtPg4sDFSap10l0ICj7XXgxDfKi +FSqIZBJJSMTrGJfSILjdrMkU+2tX0E22ctwn7JmAFPZDRWR3vQqPPxotfJtE +ol9DQ09yGmkwJv4o/BB2ta14QW8nDejM2Ls2iSRK/MHKkd5Fg9MVTeF7sCkF +DB+3HhpETjjm82LzszeKT/Th9ZIuJPsTSBTQ5HpjdZAGVpLf+d2x5ZRvh8lP +0iCNrjcWdY1EP/6Lek1O0WBp7sFdX+z+GJp62WcaWAcGZVhhXxjVYujP0uCW +s26SMPb7u689DzFpcNkniqc6nkRpf2yzOL+JgHux3278iiNR89KQeygbAU8f +8OdMYk8PFQUHchDQ9C1DuBfbsNo8m7KFAOlmHqls7Cnv8J/W2wjIybKpOYjN +b2shYCFIQGrYj25N7P26AkpIiIDBozvNpLBTeItdNMUIOEdvcFyJxeONwxXi +MgQcyPRYeYRN5BV3CskRoH8of9tf2Ckp54a3KhBg1eqbFI89RQjysisREK9s +kENsjAtaHp9VJyDD7qjLLuzG34LRUxoEOAqYhIpiT5Ijt0a0COhQyVragm3w +5HzbgB4BO7Pr+edj8P0QUCr5GAjosaK8asTmc43QrjMl4FPIArMUW9/soG2F +OQHdAcyzOdjXxcbO5R0kgGWT671k7Hr2spQsawJu1zQYX8Ee/xLxN92WgJKT +KabnsPVeCL1JdiBggivzJIFNqRibiXMk4NmW1yme2MkZZayXjxBQqH1B2Bl7 +LNhKPcyVAB1DLTMLbF4vYcvTxwhY2I0YRht5VuOe/h4ERPm1LupsfC8Vlejl +TUDRqpSs8kYfLuuHrhQC2D1YbOQ38paFGxypeP9UXQYkN/JGx/tsCQLUzsq0 +iG3k9ZRPHThOwHY9ymahjX51Ub/An4DmCNEq/o38h9bb9wcQkGBh3sKzkZ8s +oqIdSEADfVJpy0Z++ISJ2mncJ3JtmQObh1rhqhRMwLXFeFk2bN1DF4LkQgkw +XEsoY9nIN7CJlQgjwDaLNfP3VRIlKYhmioQToDj0hbGGXcs/WbXtPAF36hzp +P7FHf1Z0cUcS4KCuUvADm2f6wijHBQJoB8+JbFjnlc339WgCXFiMplex/w9G +qRm/ + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4VVsfB3CZbpkSmZJ5KCQyE9bPlIyJiAyX45ytJAp5FdJkyFBIw7kR +ZbjIPE9RUVxcVHKbZKZ9DOEkKeVd/tjPfj7PevZ3f9daz1oylCBHGisLC8tn +/Gy8z/Tu3VXX32ts1PbKp2qEiYznc7Up5sWIO8reYMMjWTrp8ubNaLtPe1sl +tgP1X04ezefoarTW7wrsivDoNg7zHnSEeZ8sx772QvRJdNFLZDbGFluG3dB/ +5v6axhs0HOn7ugSb8b4r8lzTWxT++/HLR9g7JuXcv5l9RGolgpcKsW2+ROqH +9Ayj6XfU0XzsljUGd3jRKLIfqVjKwR68JBJRGziORhR/Vmdjz3OaM75qTKIP +kia7M7E5k067aa5MIVvzq7Z0bMltmZ1nmj6jTZLPZW5h24t/y583m0WnkOlw +IjaRLSusunkelXdFd8RiRyscijnZ8wW5pD72voT9VmRgX2jRIgrpNcw/i009 +5n/iZtISqvkU7RiEvZDB8qAyEM/L80XZcezNsqr8ixrLyMXJJ+oYdjq1zZJf +6BtKaKibc8SW/tstWm3lG6oNFNpqg623J3b+VNN35L9zhmqAfVxnuIdhtoZG +jKQ9hbC/hp9l51L8habjXzpzY19s4jZU2vwbvZ++uc6CfRf0Hvn1rKOIlMPE +zDDul9dpHly0CfjL319sxi56cXPkkjgrnA02Zi3HXpj2ikxNYgVKS6tWDnak +8nJVeSAbMFZlSuKx08tk5L5ocEB/wt2ZQ9jv+2dbfudwgOs78W+ALb1Ud4xP +iBM6B7sr9mEXa9mnqa5wAp9Ro6EAdnvD+U0BTZtBOp/3Qd8nJlpuez382YwH +xhLpefuxBWx5+CNaeGCK78B2RWz1AXPg1eeFVt4IRX5s/4ma7H17+WDrX0na +40NMdJq1R92Ihx/kJ6t+X8WelC1djPm2DUw9Q6DuI14fomtLn6YA5NqfIu9h +sz6akhE9IwC73+zVuYgtrSnlWDQjAAH+O5ossY+ZpVT2jgjC6ROCIa8+MFGf +b3CISLcQqPg0Zg2+Z6JPf19P9N4sDEOXfeJqsGdninIKLYTh1LqEYDo2V+j4 +6/1PhOHBuVlhB2zzq0e0vGtEILsmvL/tHRM15uosF2SJgZnQQf6/3jJR7uSP +MINQCVhXvTa3aZCJDjrHfQopkQBL68dub9/g/HbBAyVTEqBpExFWiq2Vu0dI +2k0SZK2Ln7pht1O8qjiMpSC5Iy6reICJlr6M/O/zFWm4Uxh6wew1EwmeMq+u +spMFD+6Py9r9TDSVy3XcwV8WcoN8o1mx6z/2i8/FysLgC7PG3j4m8rD1vKL4 +RBYe/lIxJ7BzVcIc6RpykFdCK0ztxf9n/L1wQUQe1odWW9/1MNERP25V61EF +EP5R7KT2DxOhMGeNo78UoMrC1IbZyUTKMVm6VDFFiA3a+70WmyVH0/TCYUVI +c1YJNsIu+eR+tPKpIkQepE8f6MDn06X40o6Hu8B8JmTY5jnuZ243yKAogd3T +GGPJp0wkLnsjOnFiD6CI3qqpOiZqTviqtMqqCtVPRzJSsT2YbgOEjCpwJP6j +boh9v11eydRLFYYOOrml1DKRrF/jq+//qYLT7cZSrRrcr3hSgejeC1kj9LBT +lUwkIS5JSLupg+Ky/IesYibakxfK8xNpgN49hix3NhNRqFeWVe01oFbBw6Ig +C58vubRP3h4a4MTWJ22BzfawrPxFuAbE882xXriPz8d9xpG0Cg1Qzjx/djYD +3393vTOV5DQBrYRLNdPxfiTa7nXl1AL3oIeTijeZ6EGwvENNjzbUl3taq8Yw +UX8Y0r2apw+U3jhze18mkvF6Y+8ZYAROXszDCUZMRFuvLZU4B2CYMLx2U5iJ +RGbq/xChmILE57g39M9LKFTT8GOasjncMAvNutK4hChza52CDAvo0GC/V5Gw +hEpMQ/7I6rOEPy1/WOkfWUK5X/2fFqdbgc1D4UVHqSX03UT03/ZoG7iRE6ci +MbGIhljYFkd97OCj+5WKyIJFFLgzKOWS3CGIPMq+azRoEZWe6HxyK8YBplSs +h1v3LaLzTLEVlROHwVrncCplZQEtWx9w6fjTEaLfpQoK1C8gffdUk8nDTiAg +2Oq+6/wCeiWW6d+ueQRWKvu7h2EB7ci/0lyw2xn+MTF2TmFbQPUjyrb2vC5Q +GhLrl377C5IcWPALm3OBsYvJpWeUvyDNW6nFOSNHIcTV+cNa3TzKZGfuTWtz +BZUAPbqawzyqNVF7H9PgBlX9ZQY243Porm7CtrWiY7A1N9fNJXIO9X3Ii9VM +cof/xltO8EvPoRq7DPnTFz3Adv7GS4cns2jxlBNLINUTLGrsnJRPzqLlA0rH +5828oOxBu2KP+CwqmHv3PUTnT6gfJO4c75pBrg/yfD15vCFxVP4kx5UZVFVp +8ydbnDcEVH8WrzSYQfrir1avrXqD8r9yMr9/MpDciN/7lyd8wIFzbkG8jYEm +uE8eyhj3AfbblWX0BAbqv27va+lMAdvYqJoXxxgoPTyL+2w/BYo7t8e77mGg +5pb1VV8rX5A0tO9H7Ay01QPiNBt94eyvW87t4ySS3t7Rt7PZF/zauZgm2Oo9 +dqKcLb4gtk+K0TpGIkdD98K3T33x/JQnm0dJlL4zrDvqH1/YrjvF1zRMoh1D +j7Z2vvUF3WcN+zo/kEjeS+Sux4ovLFyabVQYIJG+93xBjBYVdJpaN88/J1E+ +fSHEXocK9FdiRtewt79eMhbRo0K5cEurPPa8xcpAwX4qgON0mUc7ie8blk09 +plTYX969v/8ZifhWtrkJHKYCZ4wj64tWEk0ka2/JOkWFSk7SbraBRIc7dAf8 +gqigP3XNNhW7hcUgS/0MFQKEYug62PQQY+1noVSw358kebmeRPZulj6TEVTY +dZoxsLOORA3ybg0qCVTo/dea6V1NoutNkSfq86nwxub+qlwZiU5p3NEPL6CC +zFEnj4FSEtkWVmzRK6KC6BiFKwab685UYV0JFXjm0w5Ol5AoJtiBUVuN+/4C +u7JiEkUqyZ+seUaF1cPy4XZFJPK/0x1Q+YkKr6qPuzzLI5EV35Rh8AgVPuaK +KURi745h4dUYo8LjQTWkgz0VrF1SMUmFft1k50e5JPKxz5orn6XCpPd2bnoO +iVw5QgLLflBB2uM2/fIDElmG7DhdLEyDWEPKgeuZJHqWFWudJkqDWh4nD1ts +w54l+fAdNKgX4uvmwlZX6H5nJkmDPTsmKuMzSCT2X4TZBwUa9LSJFsffI9GM +wZAwlzYN1C6R5nQ6iW6wZj/2c6LBSSNNgV+38PzVeO7aOdMgOnnd5AX2Vffw +YM2jNCi2zuq6gR1e7bBr/RgNpviPTclh+xCbUm9TaKDT0WbpkE4izS4K9fkZ +GiwL3a9sSCPRf6kK3HIpNPC9yKncd4NEpYj3+OdUGny9t88rH/vq3Nf2kps0 +ONPROByFrWHVfkHvDg24vkx3qWJfZ/FdsrtPg4sDFSap10l0ICj7XXgxDfKi +FSqIZBJJSMTrGJfSILjdrMkU+2tX0E22ctwn7JmAFPZDRWR3vQqPPxotfJtE +ol9DQ09yGmkwJv4o/BB2ta14QW8nDejM2Ls2iSRK/MHKkd5Fg9MVTeF7sCkF +DB+3HhpETjjm82LzszeKT/Th9ZIuJPsTSBTQ5HpjdZAGVpLf+d2x5ZRvh8lP +0iCNrjcWdY1EP/6Lek1O0WBp7sFdX+z+GJp62WcaWAcGZVhhXxjVYujP0uCW +s26SMPb7u689DzFpcNkniqc6nkRpf2yzOL+JgHux3278iiNR89KQeygbAU8f +8OdMYk8PFQUHchDQ9C1DuBfbsNo8m7KFAOlmHqls7Cnv8J/W2wjIybKpOYjN +b2shYCFIQGrYj25N7P26AkpIiIDBozvNpLBTeItdNMUIOEdvcFyJxeONwxXi +MgQcyPRYeYRN5BV3CskRoH8of9tf2Ckp54a3KhBg1eqbFI89RQjysisREK9s +kENsjAtaHp9VJyDD7qjLLuzG34LRUxoEOAqYhIpiT5Ijt0a0COhQyVragm3w +5HzbgB4BO7Pr+edj8P0QUCr5GAjosaK8asTmc43QrjMl4FPIArMUW9/soG2F +OQHdAcyzOdjXxcbO5R0kgGWT671k7Hr2spQsawJu1zQYX8Ee/xLxN92WgJKT +KabnsPVeCL1JdiBggivzJIFNqRibiXMk4NmW1yme2MkZZayXjxBQqH1B2Bl7 +LNhKPcyVAB1DLTMLbF4vYcvTxwhY2I0YRht5VuOe/h4ERPm1LupsfC8Vlejl +TUDRqpSs8kYfLuuHrhQC2D1YbOQ38paFGxypeP9UXQYkN/JGx/tsCQLUzsq0 +iG3k9ZRPHThOwHY9ymahjX51Ub/An4DmCNEq/o38h9bb9wcQkGBh3sKzkZ8s +oqIdSEADfVJpy0Z++ISJ2mncJ3JtmQObh1rhqhRMwLXFeFk2bN1DF4LkQgkw +XEsoY9nIN7CJlQgjwDaLNfP3VRIlKYhmioQToDj0hbGGXcs/WbXtPAF36hzp +P7FHf1Z0cUcS4KCuUvADm2f6wijHBQJoB8+JbFjnlc339WgCXFiMplex/w9G +qRm/ + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.797482444417265, + 1.2423585721227959`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7974824444172668}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.797482444417265, 1.2423585721227959`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7974824444172668}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4VVsfB3CZbpkSmZJ5KCQyE9bPlIyJiAyX45ytJAp5FdJkyFBIw7kR +ZbjIPE9RUVxcVHKbZKZ9DOEkKeVd/tjPfj7PevZ3f9daz1oylCBHGisLC8tn +/Gy8z/Tu3VXX32ts1PbKp2qEiYznc7Up5sWIO8reYMMjWTrp8ubNaLtPe1sl +tgP1X04ezefoarTW7wrsivDoNg7zHnSEeZ8sx772QvRJdNFLZDbGFluG3dB/ +5v6axhs0HOn7ugSb8b4r8lzTWxT++/HLR9g7JuXcv5l9RGolgpcKsW2+ROqH +9Ayj6XfU0XzsljUGd3jRKLIfqVjKwR68JBJRGziORhR/Vmdjz3OaM75qTKIP +kia7M7E5k067aa5MIVvzq7Z0bMltmZ1nmj6jTZLPZW5h24t/y583m0WnkOlw +IjaRLSusunkelXdFd8RiRyscijnZ8wW5pD72voT9VmRgX2jRIgrpNcw/i009 +5n/iZtISqvkU7RiEvZDB8qAyEM/L80XZcezNsqr8ixrLyMXJJ+oYdjq1zZJf +6BtKaKibc8SW/tstWm3lG6oNFNpqg623J3b+VNN35L9zhmqAfVxnuIdhtoZG +jKQ9hbC/hp9l51L8habjXzpzY19s4jZU2vwbvZ++uc6CfRf0Hvn1rKOIlMPE +zDDul9dpHly0CfjL319sxi56cXPkkjgrnA02Zi3HXpj2ikxNYgVKS6tWDnak +8nJVeSAbMFZlSuKx08tk5L5ocEB/wt2ZQ9jv+2dbfudwgOs78W+ALb1Ud4xP +iBM6B7sr9mEXa9mnqa5wAp9Ro6EAdnvD+U0BTZtBOp/3Qd8nJlpuez382YwH +xhLpefuxBWx5+CNaeGCK78B2RWz1AXPg1eeFVt4IRX5s/4ma7H17+WDrX0na +40NMdJq1R92Ihx/kJ6t+X8WelC1djPm2DUw9Q6DuI14fomtLn6YA5NqfIu9h +sz6akhE9IwC73+zVuYgtrSnlWDQjAAH+O5ossY+ZpVT2jgjC6ROCIa8+MFGf +b3CISLcQqPg0Zg2+Z6JPf19P9N4sDEOXfeJqsGdninIKLYTh1LqEYDo2V+j4 +6/1PhOHBuVlhB2zzq0e0vGtEILsmvL/tHRM15uosF2SJgZnQQf6/3jJR7uSP +MINQCVhXvTa3aZCJDjrHfQopkQBL68dub9/g/HbBAyVTEqBpExFWiq2Vu0dI +2k0SZK2Ln7pht1O8qjiMpSC5Iy6reICJlr6M/O/zFWm4Uxh6wew1EwmeMq+u +spMFD+6Py9r9TDSVy3XcwV8WcoN8o1mx6z/2i8/FysLgC7PG3j4m8rD1vKL4 +RBYe/lIxJ7BzVcIc6RpykFdCK0ztxf9n/L1wQUQe1odWW9/1MNERP25V61EF +EP5R7KT2DxOhMGeNo78UoMrC1IbZyUTKMVm6VDFFiA3a+70WmyVH0/TCYUVI +c1YJNsIu+eR+tPKpIkQepE8f6MDn06X40o6Hu8B8JmTY5jnuZ243yKAogd3T +GGPJp0wkLnsjOnFiD6CI3qqpOiZqTviqtMqqCtVPRzJSsT2YbgOEjCpwJP6j +boh9v11eydRLFYYOOrml1DKRrF/jq+//qYLT7cZSrRrcr3hSgejeC1kj9LBT +lUwkIS5JSLupg+Ky/IesYibakxfK8xNpgN49hix3NhNRqFeWVe01oFbBw6Ig +C58vubRP3h4a4MTWJ22BzfawrPxFuAbE882xXriPz8d9xpG0Cg1Qzjx/djYD +3393vTOV5DQBrYRLNdPxfiTa7nXl1AL3oIeTijeZ6EGwvENNjzbUl3taq8Yw +UX8Y0r2apw+U3jhze18mkvF6Y+8ZYAROXszDCUZMRFuvLZU4B2CYMLx2U5iJ +RGbq/xChmILE57g39M9LKFTT8GOasjncMAvNutK4hChza52CDAvo0GC/V5Gw +hEpMQ/7I6rOEPy1/WOkfWUK5X/2fFqdbgc1D4UVHqSX03UT03/ZoG7iRE6ci +MbGIhljYFkd97OCj+5WKyIJFFLgzKOWS3CGIPMq+azRoEZWe6HxyK8YBplSs +h1v3LaLzTLEVlROHwVrncCplZQEtWx9w6fjTEaLfpQoK1C8gffdUk8nDTiAg +2Oq+6/wCeiWW6d+ueQRWKvu7h2EB7ci/0lyw2xn+MTF2TmFbQPUjyrb2vC5Q +GhLrl377C5IcWPALm3OBsYvJpWeUvyDNW6nFOSNHIcTV+cNa3TzKZGfuTWtz +BZUAPbqawzyqNVF7H9PgBlX9ZQY243Porm7CtrWiY7A1N9fNJXIO9X3Ii9VM +cof/xltO8EvPoRq7DPnTFz3Adv7GS4cns2jxlBNLINUTLGrsnJRPzqLlA0rH +5828oOxBu2KP+CwqmHv3PUTnT6gfJO4c75pBrg/yfD15vCFxVP4kx5UZVFVp +8ydbnDcEVH8WrzSYQfrir1avrXqD8r9yMr9/MpDciN/7lyd8wIFzbkG8jYEm +uE8eyhj3AfbblWX0BAbqv27va+lMAdvYqJoXxxgoPTyL+2w/BYo7t8e77mGg +5pb1VV8rX5A0tO9H7Ay01QPiNBt94eyvW87t4ySS3t7Rt7PZF/zauZgm2Oo9 +dqKcLb4gtk+K0TpGIkdD98K3T33x/JQnm0dJlL4zrDvqH1/YrjvF1zRMoh1D +j7Z2vvUF3WcN+zo/kEjeS+Sux4ovLFyabVQYIJG+93xBjBYVdJpaN88/J1E+ +fSHEXocK9FdiRtewt79eMhbRo0K5cEurPPa8xcpAwX4qgON0mUc7ie8blk09 +plTYX969v/8ZifhWtrkJHKYCZ4wj64tWEk0ka2/JOkWFSk7SbraBRIc7dAf8 +gqigP3XNNhW7hcUgS/0MFQKEYug62PQQY+1noVSw358kebmeRPZulj6TEVTY +dZoxsLOORA3ybg0qCVTo/dea6V1NoutNkSfq86nwxub+qlwZiU5p3NEPL6CC +zFEnj4FSEtkWVmzRK6KC6BiFKwab685UYV0JFXjm0w5Ol5AoJtiBUVuN+/4C +u7JiEkUqyZ+seUaF1cPy4XZFJPK/0x1Q+YkKr6qPuzzLI5EV35Rh8AgVPuaK +KURi745h4dUYo8LjQTWkgz0VrF1SMUmFft1k50e5JPKxz5orn6XCpPd2bnoO +iVw5QgLLflBB2uM2/fIDElmG7DhdLEyDWEPKgeuZJHqWFWudJkqDWh4nD1ts +w54l+fAdNKgX4uvmwlZX6H5nJkmDPTsmKuMzSCT2X4TZBwUa9LSJFsffI9GM +wZAwlzYN1C6R5nQ6iW6wZj/2c6LBSSNNgV+38PzVeO7aOdMgOnnd5AX2Vffw +YM2jNCi2zuq6gR1e7bBr/RgNpviPTclh+xCbUm9TaKDT0WbpkE4izS4K9fkZ +GiwL3a9sSCPRf6kK3HIpNPC9yKncd4NEpYj3+OdUGny9t88rH/vq3Nf2kps0 +ONPROByFrWHVfkHvDg24vkx3qWJfZ/FdsrtPg4sDFSap10l0ICj7XXgxDfKi +FSqIZBJJSMTrGJfSILjdrMkU+2tX0E22ctwn7JmAFPZDRWR3vQqPPxotfJtE +ol9DQ09yGmkwJv4o/BB2ta14QW8nDejM2Ls2iSRK/MHKkd5Fg9MVTeF7sCkF +DB+3HhpETjjm82LzszeKT/Th9ZIuJPsTSBTQ5HpjdZAGVpLf+d2x5ZRvh8lP +0iCNrjcWdY1EP/6Lek1O0WBp7sFdX+z+GJp62WcaWAcGZVhhXxjVYujP0uCW +s26SMPb7u689DzFpcNkniqc6nkRpf2yzOL+JgHux3278iiNR89KQeygbAU8f +8OdMYk8PFQUHchDQ9C1DuBfbsNo8m7KFAOlmHqls7Cnv8J/W2wjIybKpOYjN +b2shYCFIQGrYj25N7P26AkpIiIDBozvNpLBTeItdNMUIOEdvcFyJxeONwxXi +MgQcyPRYeYRN5BV3CskRoH8of9tf2Ckp54a3KhBg1eqbFI89RQjysisREK9s +kENsjAtaHp9VJyDD7qjLLuzG34LRUxoEOAqYhIpiT5Ijt0a0COhQyVragm3w +5HzbgB4BO7Pr+edj8P0QUCr5GAjosaK8asTmc43QrjMl4FPIArMUW9/soG2F +OQHdAcyzOdjXxcbO5R0kgGWT671k7Hr2spQsawJu1zQYX8Ee/xLxN92WgJKT +KabnsPVeCL1JdiBggivzJIFNqRibiXMk4NmW1yme2MkZZayXjxBQqH1B2Bl7 +LNhKPcyVAB1DLTMLbF4vYcvTxwhY2I0YRht5VuOe/h4ERPm1LupsfC8Vlejl +TUDRqpSs8kYfLuuHrhQC2D1YbOQ38paFGxypeP9UXQYkN/JGx/tsCQLUzsq0 +iG3k9ZRPHThOwHY9ymahjX51Ub/An4DmCNEq/o38h9bb9wcQkGBh3sKzkZ8s +oqIdSEADfVJpy0Z++ISJ2mncJ3JtmQObh1rhqhRMwLXFeFk2bN1DF4LkQgkw +XEsoY9nIN7CJlQgjwDaLNfP3VRIlKYhmioQToDj0hbGGXcs/WbXtPAF36hzp +P7FHf1Z0cUcS4KCuUvADm2f6wijHBQJoB8+JbFjnlc339WgCXFiMplex/w9G +qRm/ + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.797482444417265, 1.2423585721227959`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7974824444172668}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.7974824444172668}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "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.797482444417265, 1.2423585721227959`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991342629715925*^9, 3.992103943505089*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"2351f65c-c49a-a247-9231-90194a30be6b"] +}, 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", ",", "15"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.9918467058861084`*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"5cbca01a-701c-5744-b740-3bf6288a42b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.188918184111437`*^-281\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 139, + 506, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913426299467087`*^9, 3.9921039438941193`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"df198f7d-67be-5644-9bdc-ae1db45bdbd2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.986298272514912`*^-295\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 139, + 507, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913426299467087`*^9, 3.992103943910204*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"61863a16-eeb4-b44a-b148-c97773a833c7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*SuperscriptBox[\\\"2.047920729897901`*^-7\\\", \\\"46\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 139, 508, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913426299467087`*^9, 3.992103943923092*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"fa64c06e-85cf-b944-a59d-a162e2e0c8c7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 139, 509, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913426299467087`*^9, 3.9921039439381065`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"bc26663d-0b94-c940-9d84-7f6ea41b4c35"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k4Fm8XB3Ah+/IsQiqyVzzaLFE5h2Qtu0IL4qEkSaRsWRKlRBEpS7K0 +UKiUkBkUSkp2/aJFmyLKWqn3fuefuT7XzDVzz9znfO8ZxV377bm8PGSbw8Pz +//1kf3ODSmKqof/kOR48Y2vYkS17xKgnEBbF5z718tACnPd8l2xPDMS7+7sp +eBjCIdvr3Xw9Z4EzZHJszN0amCMyZ2e682CrQAvvTfedMFBtvX+8uxy8vopP +9rr5g6nK0Oux7jroHBIYL9weCTPdemmj3S9BoTuN+maTBPUbivLb8t5DY5GS +QvC2HFg4UPlxl+Yw7P7v/gInwSKQ8nO7LrjhJ2xJXCZzerQEzq40rbJ2moY0 +mRGzedHl0JuxghpjzEKEU+7+iDN3ITH/6HPe+XNwVZhI3YGU+yCT+v7EuSw+ +jMuYEuvkVIGsxt1j04V8mCBbGftBtwrk6o4f3VHKh4u109+OQhXIjy4NVq/n +w94lstbTdlWguinAveozH8pzkp40B1fBav5Z3fer+dHMMsHlUHUV2ARJD656 +wo8dTbLckY3VEO9oYfhyci5Gu7yZr2JRA3J3WuV45wjgREDk9dN2NXCT7Ti1 +UlQApxX9J0ZdaqDr5c7SFAUBDDIKrcj3rQEVuyAlO3MB5KyxeEol1kDd5hyB +FxcEMDZILeRJSw3Mmk60PlsniIfbXATlLR/CQf3Lbs0xQrhuSWRj9spasMyV +GLc6JYQfF4SJzerVgpJgeEJrmhB66/vfcTKshRcdW8rarwrh+MCwxqRlLWgF +iPH1twrh8yWlpT89a+FzYUjhDzlhPPMmo+1Nai1sl7IeXnBbGFMHHJ5E/6iF +1WFV0dnVwihi+GFYY7oWRN4tkVZ8LIyDCyz2vZithcpbfKDWK4wm/QlwjJ8C +aavK5BX/hHG27m1wpiQFL6JVtDdaieBE4o+9oEqByfdfof7vRdBs35j7XmsK +jpinLqO/ieDUxcriXlsKbl7m9LEnRTArF4w3OlAg6+iuXykkihmWNy2lnCn4 +dv/RFJ+WKAqJub1M8aDgXExy0IXDonj1b1WzSBAF7+ap+TeIi2EB35zB8fMU +yOyvXSQjI4Zt2TonxC5QsKnJ+dmexWLYwNcRqniRgorQRE3J1WI49bl9w4Yc +Ck4OjA65OIvhqiWlAd5FFKy6VuXzPU8MZ7RvbtG4R0H0OjsPuTXi+JLpdLS0 +gwLzndk/9IzFca66hHRGFwUSUV9jnTaJ47145bjwHgou1ccVJruL45qhqOG1 +/1Fw3/LBV4ET4miQJvo99T0Fo87Kh372iqNOUsH0rTEK7oUGCDIHxXHlqrQ1 +3J8URF6qydAaEcefRY+cZCYoEHuztWoPrwTilPHSwGkK1H1O8bxZJoHPspwN +ef9RsDN44mRLmARa2m44cEqUBtV044VDcRLI9+b2LUlxmry/MyWCyRIYP6XX +dkaChtA/S18Y50vgCn/J2uNMGtJid86rbJFAgXFDOxsZGlpSGnMKFkliNW9p +sZUSDQY3L9yJrJVEzkepreM6NJh0t86ONEnihPeX9Dl6NFjz8Ju5vZTE5vzt +y8XW0OBp798LHyTxfGi953wDGkzDFI9GzWWg99PVI2xDGgIUJq8YaTCwc+zR +5xMbaZi4ndw0s5yBRrqyj/1MyfjMNYbLtBmY7zXIs9mMhrgD7rpKhgzUPH8v +ea4FDZn1T5p47Rg4T1lIbesmGhp8cobrDzGwJcHpTLg9DRZ/9FnhYQw89ywz +TMeBhtbkDl3tKAZqPOxq+UrcWykclX+CgUcD1HNtnWgYEQ1ixV1i4JLOfzK/ +t9JwMFdCb/1lBmZ8adbPcaZhWvvatokCBvoyjzWgCw18O/vzubcY2ND8Qjrc +lQbZUnM90zoGCpSo1bRvpyHL5P22v48ZuHi8UdtzBw1KvRFRFU8ZqKx9ZP4o +MYf3drNaJwOL+9Q0ed1oMHZctF3wMwO1XJPiBD1oaPx8L6r2GwO1X50MiiHe +FGFfEDLGQDPG645fxFsL40c+/WLg9ZOlX9/vosFveiyqSZyJhi3B0eleZL4O +eEt/ZDGx+eJAggCXBqGhvht8skzULbVNDSQueFXfZajERAcF9QdG3jQEOa7x +267OxLIbs535xMbPiueEajJx80DNNL8PDf0P0zTv6jLxgfZHp2riYj2Rupdr +mRhf/yiFvZvMV2nk1lEkfhnR7UMsnecTo2HFxNhm/1jBPTQMyv0nY2HLRCML +1a/2xOXnbEu8nZhYEnLL7SKxTZx+z2U3Jl4NMQ5U9qVB/m/JvlovJsr+bmV6 +En87pMT3eg8Tv5/RpXOIE3aLaskGMVE+r9CesZeGLW+P1uscIePvW6NrQqzi +Ou7sEMlEqcxKzWBiyup1bFICExftyHNqJU5qsJtffJqJIVKZJyaJt69/fLP5 +LBOn7+e0L/CjYVmFgcmndCYOzoZrGxLPaN3q5c9i4oD9n+IdxE1FyvuV8ph4 +8P3n9aHE5xdn8GMRE0PPS3w+R+x1QSxzRzETL4obFF8nXsWKXh5WxkQqf03i +Q2KexImGjAomJh3oiXtO3Mrn61pRxcQe48+XXhNfCu//3k4xUS5Xr+0z8d4J ++7ixR0z81HReeYzYwL9RTvIpE7l3ulIniYU+rS3VfEGuz2hWnSHucivdaNnJ +xAJj7J4mzu9ReeXTx8RrXpLXJ4gD7S4ExA0wsc1UJOc7MT4RF7gyyMTJfXPv +fSSW2BBzkfpC6ond9aOP+HXV5Ir+ESZmKts7tBAXa+99/PsnE5eDbe8D4tCS +gW3zZ5jYcr8orpDYXM1xTPcvE3emrXA5Qyyd03TckY+Ffon1jsHEgzLrFwYK +sfAwr8ERZ+Ly5LKyM+IsPM7yb1xDHCWsZlbCYmFsrAFKE9vEZP73RIaF1S2h +g6NkvuR/SwR+XsjCzVKid5uIvx2MFRRQYmGmVlN5FnEC12+VkSYLfySDPvy/ +PvrfNO5cycL5gxX1ov+vj61OO8J1iRU6IztJPVHmhgn3kIWqj+JPuhMn0eWL +OjeycH16/3+KxNsN1G//sGShkryH5xtSrzMajH6OEwt1dwUznIgns+SiV7uy +cOXTgQwx4nFJVRV9Nxa6tr0IpEk/jPzU9zXZw8KqBzfklYnfVXlOukaw0Gxg +qf9j0m8DHP8L7jEsjHl2LXM38X85h9d5x7Pw6u8TCkLEXbGnYw6ksLB+9Xsd +IP37xOqeREIBGU/RrpLTniQvauiy09dZ+IrP8q4cccPyFsdzt1j4gT9lYQHJ +h4fst5nZleT58prEykl+lL8SUb/7jIVy402nikn+ZO7dCe8mWHjWZV2HyjYa +0l/vfvfpFwu7b59Yn0DyLdXmYNzwPxbey8iT+kLyL2l1wtNpYTaamHyQvELy +MeZ32VZJeTZ+4Ul2nCZ5ujdxbsA6Uza+DDL7tMSWht2zkmxjKzbmSbdf8rSh +wXu/XIWZLRsjihY/v2hNg7vD8j/2rmyUsG0r4d9Mg+MCl4Q9/mwMm+vgf5/k +/bobxbnnz7Mx/vnT9qvGNLxafCNn40U2Hteb1/XUiNTf+WvZ4zls9DPYXPEN +abgXXXjJ/hob/9CV7CVA+s85N0Oimo1WucPOcWtpWDo3Nfn4WzZumOTQfatJ +fbqFRR3SlMJ1nw48nCTr3d2OI0dVV0phr0Ypo1uRjMfycGSHjhSuLhfedncx +DWd1gsNXgRT6/Nrzaq88DeJi+w+P2JHjvwLyqPk08FfuCvAOkcJlHcqCIgwa +xliW7lvqpNB5x5Ca0m8KevyUXvg2SqFRnLlLwQwF1ONfcLRFCh/E7jZXI+t7 +cugNhatdUmiWwvVQJOv/indiAzNDUnjrZ3HWnxEK/Mue78hiz8PxfR5rzd9R +MGTjtG3Qax4e21n+Z20jBYOn3LcECkqj+pdfal0nyflDmkorxKQxadFb/vEE +CqbMZoaHGdLotSNyGSOeAhG+s3F75KRxa3C17YZYcr8j9XfcOdJoGs9VSQuj +IIKrxrZxkMZwnY/0p73ke8/w23ONHGl0ad59zcaKAovvIRYfdGXQRO2Knsdc +8r3mKXTwzlFZtONJv7H3zkPyfyDDG183H622PS1QW1MDrGdqSaXf5TA5/fnJ +/RVVsDDhlq2u7kJkzVbLHvxdCRka+gy2zyJ0DfFz3G99H57IGen8TJFH6uXt +c8Z5FWCwsC55eZcChnEfTRq9uAMSfHlBHjGLUfet2K5uxdsgH62wzkVNEXWP +WV/+4VIGwqrbK+wbFTFAmV/8r8Mt0Fo//1bIDiU02K2VbmRXDIH9rHpLHmU0 +Zf/Qr9G/Bt9/nnKyyFDG1eGiItnHCsFs+eNMC44Kxl8xFS0SyYeHP9f+nmpV +wTnP8vy3nbkM/pqr+tq4qlhlmbqW9202rB/x6nARVsPbVfX3B29nwkYV2c3i +eWpIT2eneK5IhyVRJw/X6anjt3eJyZdkUmEZV79WtU8d/8aVLubKpQD34e5j +dw4swes5TsG7zE5DbW6H19i8pVh/VjRk3oUEGL/6b2r5vaW4wFb4gELWMfBU +vSGcuXkZbg78lprvFQ1jy87plo8uw+ErJcNFj8Phfv7vtxMJGuho88E843cI +uJoo41p5TTTmNGS3Th6EBfviK7UoTUz748/yMA2ApH/eOol1mjiupCXRph8A +vGdNyz41aKI83+UIC04ADFXMvZbbrIm1sdYFDlIB8IDnWAarXROHa24uv/Bo +P7imRoVMftBE8VUe8pm8+yGj6ojOQ1EO8m1vP9mWsA/mifiVbd7KQSplWeeS +Bl/I3xAROurCwanIrLnxxb6wKiJpw7ntHOSdWHBiKtUXrEdLO3s8OHjCpsBV +0tsXjndNzHj6cbCq+f07WWFfmM47ahwazcFNbooBJ+z3QN/ac+2FNzionBtS +l/zDB3YH51+yuMlBPVinqPzaByZv3uV+K+WgumKrz+NGH2Ap9UytrODg0s2G +UZDlA1ZCixbWUBw8ElZ4/Ze5D1R3FHq1d3KwPyfJOfGKN1hK3Occ6uGgs5Ee +W/2MN/SYNU/KvuLg07+Rgu2h3jD+4GvCzjccNKwTD9xm7w2cyytKvgxx0Hev +hgqH1xuq+4wOnRrm4Kn1JVEWI1ywlHKA5aMcbH12lg7u44J3fHBb0AQHQyIs +Hs+Wc2GcOp4pM83B08qCwS45XIj5le754BcH01Ln9DckcoGhfU1zxywHP/pX +TcJhLmTvezDx7x8HbYyq7zzx4sL/ADE3NG4= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Fm8XB3Ah+/IsQiqyVzzaLFE5h2Qtu0IL4qEkSaRsWRKlRBEpS7K0 +UKiUkBkUSkp2/aJFmyLKWqn3fuefuT7XzDVzz9znfO8ZxV377bm8PGSbw8Pz +//1kf3ODSmKqof/kOR48Y2vYkS17xKgnEBbF5z718tACnPd8l2xPDMS7+7sp +eBjCIdvr3Xw9Z4EzZHJszN0amCMyZ2e682CrQAvvTfedMFBtvX+8uxy8vopP +9rr5g6nK0Oux7jroHBIYL9weCTPdemmj3S9BoTuN+maTBPUbivLb8t5DY5GS +QvC2HFg4UPlxl+Yw7P7v/gInwSKQ8nO7LrjhJ2xJXCZzerQEzq40rbJ2moY0 +mRGzedHl0JuxghpjzEKEU+7+iDN3ITH/6HPe+XNwVZhI3YGU+yCT+v7EuSw+ +jMuYEuvkVIGsxt1j04V8mCBbGftBtwrk6o4f3VHKh4u109+OQhXIjy4NVq/n +w94lstbTdlWguinAveozH8pzkp40B1fBav5Z3fer+dHMMsHlUHUV2ARJD656 +wo8dTbLckY3VEO9oYfhyci5Gu7yZr2JRA3J3WuV45wjgREDk9dN2NXCT7Ti1 +UlQApxX9J0ZdaqDr5c7SFAUBDDIKrcj3rQEVuyAlO3MB5KyxeEol1kDd5hyB +FxcEMDZILeRJSw3Mmk60PlsniIfbXATlLR/CQf3Lbs0xQrhuSWRj9spasMyV +GLc6JYQfF4SJzerVgpJgeEJrmhB66/vfcTKshRcdW8rarwrh+MCwxqRlLWgF +iPH1twrh8yWlpT89a+FzYUjhDzlhPPMmo+1Nai1sl7IeXnBbGFMHHJ5E/6iF +1WFV0dnVwihi+GFYY7oWRN4tkVZ8LIyDCyz2vZithcpbfKDWK4wm/QlwjJ8C +aavK5BX/hHG27m1wpiQFL6JVtDdaieBE4o+9oEqByfdfof7vRdBs35j7XmsK +jpinLqO/ieDUxcriXlsKbl7m9LEnRTArF4w3OlAg6+iuXykkihmWNy2lnCn4 +dv/RFJ+WKAqJub1M8aDgXExy0IXDonj1b1WzSBAF7+ap+TeIi2EB35zB8fMU +yOyvXSQjI4Zt2TonxC5QsKnJ+dmexWLYwNcRqniRgorQRE3J1WI49bl9w4Yc +Ck4OjA65OIvhqiWlAd5FFKy6VuXzPU8MZ7RvbtG4R0H0OjsPuTXi+JLpdLS0 +gwLzndk/9IzFca66hHRGFwUSUV9jnTaJ47145bjwHgou1ccVJruL45qhqOG1 +/1Fw3/LBV4ET4miQJvo99T0Fo87Kh372iqNOUsH0rTEK7oUGCDIHxXHlqrQ1 +3J8URF6qydAaEcefRY+cZCYoEHuztWoPrwTilPHSwGkK1H1O8bxZJoHPspwN +ef9RsDN44mRLmARa2m44cEqUBtV044VDcRLI9+b2LUlxmry/MyWCyRIYP6XX +dkaChtA/S18Y50vgCn/J2uNMGtJid86rbJFAgXFDOxsZGlpSGnMKFkliNW9p +sZUSDQY3L9yJrJVEzkepreM6NJh0t86ONEnihPeX9Dl6NFjz8Ju5vZTE5vzt +y8XW0OBp798LHyTxfGi953wDGkzDFI9GzWWg99PVI2xDGgIUJq8YaTCwc+zR +5xMbaZi4ndw0s5yBRrqyj/1MyfjMNYbLtBmY7zXIs9mMhrgD7rpKhgzUPH8v +ea4FDZn1T5p47Rg4T1lIbesmGhp8cobrDzGwJcHpTLg9DRZ/9FnhYQw89ywz +TMeBhtbkDl3tKAZqPOxq+UrcWykclX+CgUcD1HNtnWgYEQ1ixV1i4JLOfzK/ +t9JwMFdCb/1lBmZ8adbPcaZhWvvatokCBvoyjzWgCw18O/vzubcY2ND8Qjrc +lQbZUnM90zoGCpSo1bRvpyHL5P22v48ZuHi8UdtzBw1KvRFRFU8ZqKx9ZP4o +MYf3drNaJwOL+9Q0ed1oMHZctF3wMwO1XJPiBD1oaPx8L6r2GwO1X50MiiHe +FGFfEDLGQDPG645fxFsL40c+/WLg9ZOlX9/vosFveiyqSZyJhi3B0eleZL4O +eEt/ZDGx+eJAggCXBqGhvht8skzULbVNDSQueFXfZajERAcF9QdG3jQEOa7x +267OxLIbs535xMbPiueEajJx80DNNL8PDf0P0zTv6jLxgfZHp2riYj2Rupdr +mRhf/yiFvZvMV2nk1lEkfhnR7UMsnecTo2HFxNhm/1jBPTQMyv0nY2HLRCML +1a/2xOXnbEu8nZhYEnLL7SKxTZx+z2U3Jl4NMQ5U9qVB/m/JvlovJsr+bmV6 +En87pMT3eg8Tv5/RpXOIE3aLaskGMVE+r9CesZeGLW+P1uscIePvW6NrQqzi +Ou7sEMlEqcxKzWBiyup1bFICExftyHNqJU5qsJtffJqJIVKZJyaJt69/fLP5 +LBOn7+e0L/CjYVmFgcmndCYOzoZrGxLPaN3q5c9i4oD9n+IdxE1FyvuV8ph4 +8P3n9aHE5xdn8GMRE0PPS3w+R+x1QSxzRzETL4obFF8nXsWKXh5WxkQqf03i +Q2KexImGjAomJh3oiXtO3Mrn61pRxcQe48+XXhNfCu//3k4xUS5Xr+0z8d4J ++7ixR0z81HReeYzYwL9RTvIpE7l3ulIniYU+rS3VfEGuz2hWnSHucivdaNnJ +xAJj7J4mzu9ReeXTx8RrXpLXJ4gD7S4ExA0wsc1UJOc7MT4RF7gyyMTJfXPv +fSSW2BBzkfpC6ond9aOP+HXV5Ir+ESZmKts7tBAXa+99/PsnE5eDbe8D4tCS +gW3zZ5jYcr8orpDYXM1xTPcvE3emrXA5Qyyd03TckY+Ffon1jsHEgzLrFwYK +sfAwr8ERZ+Ly5LKyM+IsPM7yb1xDHCWsZlbCYmFsrAFKE9vEZP73RIaF1S2h +g6NkvuR/SwR+XsjCzVKid5uIvx2MFRRQYmGmVlN5FnEC12+VkSYLfySDPvy/ +PvrfNO5cycL5gxX1ov+vj61OO8J1iRU6IztJPVHmhgn3kIWqj+JPuhMn0eWL +OjeycH16/3+KxNsN1G//sGShkryH5xtSrzMajH6OEwt1dwUznIgns+SiV7uy +cOXTgQwx4nFJVRV9Nxa6tr0IpEk/jPzU9zXZw8KqBzfklYnfVXlOukaw0Gxg +qf9j0m8DHP8L7jEsjHl2LXM38X85h9d5x7Pw6u8TCkLEXbGnYw6ksLB+9Xsd +IP37xOqeREIBGU/RrpLTniQvauiy09dZ+IrP8q4cccPyFsdzt1j4gT9lYQHJ +h4fst5nZleT58prEykl+lL8SUb/7jIVy402nikn+ZO7dCe8mWHjWZV2HyjYa +0l/vfvfpFwu7b59Yn0DyLdXmYNzwPxbey8iT+kLyL2l1wtNpYTaamHyQvELy +MeZ32VZJeTZ+4Ul2nCZ5ujdxbsA6Uza+DDL7tMSWht2zkmxjKzbmSbdf8rSh +wXu/XIWZLRsjihY/v2hNg7vD8j/2rmyUsG0r4d9Mg+MCl4Q9/mwMm+vgf5/k +/bobxbnnz7Mx/vnT9qvGNLxafCNn40U2Hteb1/XUiNTf+WvZ4zls9DPYXPEN +abgXXXjJ/hob/9CV7CVA+s85N0Oimo1WucPOcWtpWDo3Nfn4WzZumOTQfatJ +fbqFRR3SlMJ1nw48nCTr3d2OI0dVV0phr0Ypo1uRjMfycGSHjhSuLhfedncx +DWd1gsNXgRT6/Nrzaq88DeJi+w+P2JHjvwLyqPk08FfuCvAOkcJlHcqCIgwa +xliW7lvqpNB5x5Ca0m8KevyUXvg2SqFRnLlLwQwF1ONfcLRFCh/E7jZXI+t7 +cugNhatdUmiWwvVQJOv/indiAzNDUnjrZ3HWnxEK/Mue78hiz8PxfR5rzd9R +MGTjtG3Qax4e21n+Z20jBYOn3LcECkqj+pdfal0nyflDmkorxKQxadFb/vEE +CqbMZoaHGdLotSNyGSOeAhG+s3F75KRxa3C17YZYcr8j9XfcOdJoGs9VSQuj +IIKrxrZxkMZwnY/0p73ke8/w23ONHGl0ad59zcaKAovvIRYfdGXQRO2Knsdc +8r3mKXTwzlFZtONJv7H3zkPyfyDDG183H622PS1QW1MDrGdqSaXf5TA5/fnJ +/RVVsDDhlq2u7kJkzVbLHvxdCRka+gy2zyJ0DfFz3G99H57IGen8TJFH6uXt +c8Z5FWCwsC55eZcChnEfTRq9uAMSfHlBHjGLUfet2K5uxdsgH62wzkVNEXWP +WV/+4VIGwqrbK+wbFTFAmV/8r8Mt0Fo//1bIDiU02K2VbmRXDIH9rHpLHmU0 +Zf/Qr9G/Bt9/nnKyyFDG1eGiItnHCsFs+eNMC44Kxl8xFS0SyYeHP9f+nmpV +wTnP8vy3nbkM/pqr+tq4qlhlmbqW9202rB/x6nARVsPbVfX3B29nwkYV2c3i +eWpIT2eneK5IhyVRJw/X6anjt3eJyZdkUmEZV79WtU8d/8aVLubKpQD34e5j +dw4swes5TsG7zE5DbW6H19i8pVh/VjRk3oUEGL/6b2r5vaW4wFb4gELWMfBU +vSGcuXkZbg78lprvFQ1jy87plo8uw+ErJcNFj8Phfv7vtxMJGuho88E843cI +uJoo41p5TTTmNGS3Th6EBfviK7UoTUz748/yMA2ApH/eOol1mjiupCXRph8A +vGdNyz41aKI83+UIC04ADFXMvZbbrIm1sdYFDlIB8IDnWAarXROHa24uv/Bo +P7imRoVMftBE8VUe8pm8+yGj6ojOQ1EO8m1vP9mWsA/mifiVbd7KQSplWeeS +Bl/I3xAROurCwanIrLnxxb6wKiJpw7ntHOSdWHBiKtUXrEdLO3s8OHjCpsBV +0tsXjndNzHj6cbCq+f07WWFfmM47ahwazcFNbooBJ+z3QN/ac+2FNzionBtS +l/zDB3YH51+yuMlBPVinqPzaByZv3uV+K+WgumKrz+NGH2Ap9UytrODg0s2G +UZDlA1ZCixbWUBw8ElZ4/Ze5D1R3FHq1d3KwPyfJOfGKN1hK3Occ6uGgs5Ee +W/2MN/SYNU/KvuLg07+Rgu2h3jD+4GvCzjccNKwTD9xm7w2cyytKvgxx0Hev +hgqH1xuq+4wOnRrm4Kn1JVEWI1ywlHKA5aMcbH12lg7u44J3fHBb0AQHQyIs +Hs+Wc2GcOp4pM83B08qCwS45XIj5le754BcH01Ln9DckcoGhfU1zxywHP/pX +TcJhLmTvezDx7x8HbYyq7zzx4sL/ADE3NG4= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13613809914580166`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.13613809914580166`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Fm8XB3Ah+/IsQiqyVzzaLFE5h2Qtu0IL4qEkSaRsWRKlRBEpS7K0 +UKiUkBkUSkp2/aJFmyLKWqn3fuefuT7XzDVzz9znfO8ZxV377bm8PGSbw8Pz +//1kf3ODSmKqof/kOR48Y2vYkS17xKgnEBbF5z718tACnPd8l2xPDMS7+7sp +eBjCIdvr3Xw9Z4EzZHJszN0amCMyZ2e682CrQAvvTfedMFBtvX+8uxy8vopP +9rr5g6nK0Oux7jroHBIYL9weCTPdemmj3S9BoTuN+maTBPUbivLb8t5DY5GS +QvC2HFg4UPlxl+Yw7P7v/gInwSKQ8nO7LrjhJ2xJXCZzerQEzq40rbJ2moY0 +mRGzedHl0JuxghpjzEKEU+7+iDN3ITH/6HPe+XNwVZhI3YGU+yCT+v7EuSw+ +jMuYEuvkVIGsxt1j04V8mCBbGftBtwrk6o4f3VHKh4u109+OQhXIjy4NVq/n +w94lstbTdlWguinAveozH8pzkp40B1fBav5Z3fer+dHMMsHlUHUV2ARJD656 +wo8dTbLckY3VEO9oYfhyci5Gu7yZr2JRA3J3WuV45wjgREDk9dN2NXCT7Ti1 +UlQApxX9J0ZdaqDr5c7SFAUBDDIKrcj3rQEVuyAlO3MB5KyxeEol1kDd5hyB +FxcEMDZILeRJSw3Mmk60PlsniIfbXATlLR/CQf3Lbs0xQrhuSWRj9spasMyV +GLc6JYQfF4SJzerVgpJgeEJrmhB66/vfcTKshRcdW8rarwrh+MCwxqRlLWgF +iPH1twrh8yWlpT89a+FzYUjhDzlhPPMmo+1Nai1sl7IeXnBbGFMHHJ5E/6iF +1WFV0dnVwihi+GFYY7oWRN4tkVZ8LIyDCyz2vZithcpbfKDWK4wm/QlwjJ8C +aavK5BX/hHG27m1wpiQFL6JVtDdaieBE4o+9oEqByfdfof7vRdBs35j7XmsK +jpinLqO/ieDUxcriXlsKbl7m9LEnRTArF4w3OlAg6+iuXykkihmWNy2lnCn4 +dv/RFJ+WKAqJub1M8aDgXExy0IXDonj1b1WzSBAF7+ap+TeIi2EB35zB8fMU +yOyvXSQjI4Zt2TonxC5QsKnJ+dmexWLYwNcRqniRgorQRE3J1WI49bl9w4Yc +Ck4OjA65OIvhqiWlAd5FFKy6VuXzPU8MZ7RvbtG4R0H0OjsPuTXi+JLpdLS0 +gwLzndk/9IzFca66hHRGFwUSUV9jnTaJ47145bjwHgou1ccVJruL45qhqOG1 +/1Fw3/LBV4ET4miQJvo99T0Fo87Kh372iqNOUsH0rTEK7oUGCDIHxXHlqrQ1 +3J8URF6qydAaEcefRY+cZCYoEHuztWoPrwTilPHSwGkK1H1O8bxZJoHPspwN +ef9RsDN44mRLmARa2m44cEqUBtV044VDcRLI9+b2LUlxmry/MyWCyRIYP6XX +dkaChtA/S18Y50vgCn/J2uNMGtJid86rbJFAgXFDOxsZGlpSGnMKFkliNW9p +sZUSDQY3L9yJrJVEzkepreM6NJh0t86ONEnihPeX9Dl6NFjz8Ju5vZTE5vzt +y8XW0OBp798LHyTxfGi953wDGkzDFI9GzWWg99PVI2xDGgIUJq8YaTCwc+zR +5xMbaZi4ndw0s5yBRrqyj/1MyfjMNYbLtBmY7zXIs9mMhrgD7rpKhgzUPH8v +ea4FDZn1T5p47Rg4T1lIbesmGhp8cobrDzGwJcHpTLg9DRZ/9FnhYQw89ywz +TMeBhtbkDl3tKAZqPOxq+UrcWykclX+CgUcD1HNtnWgYEQ1ixV1i4JLOfzK/ +t9JwMFdCb/1lBmZ8adbPcaZhWvvatokCBvoyjzWgCw18O/vzubcY2ND8Qjrc +lQbZUnM90zoGCpSo1bRvpyHL5P22v48ZuHi8UdtzBw1KvRFRFU8ZqKx9ZP4o +MYf3drNaJwOL+9Q0ed1oMHZctF3wMwO1XJPiBD1oaPx8L6r2GwO1X50MiiHe +FGFfEDLGQDPG645fxFsL40c+/WLg9ZOlX9/vosFveiyqSZyJhi3B0eleZL4O +eEt/ZDGx+eJAggCXBqGhvht8skzULbVNDSQueFXfZajERAcF9QdG3jQEOa7x +267OxLIbs535xMbPiueEajJx80DNNL8PDf0P0zTv6jLxgfZHp2riYj2Rupdr +mRhf/yiFvZvMV2nk1lEkfhnR7UMsnecTo2HFxNhm/1jBPTQMyv0nY2HLRCML +1a/2xOXnbEu8nZhYEnLL7SKxTZx+z2U3Jl4NMQ5U9qVB/m/JvlovJsr+bmV6 +En87pMT3eg8Tv5/RpXOIE3aLaskGMVE+r9CesZeGLW+P1uscIePvW6NrQqzi +Ou7sEMlEqcxKzWBiyup1bFICExftyHNqJU5qsJtffJqJIVKZJyaJt69/fLP5 +LBOn7+e0L/CjYVmFgcmndCYOzoZrGxLPaN3q5c9i4oD9n+IdxE1FyvuV8ph4 +8P3n9aHE5xdn8GMRE0PPS3w+R+x1QSxzRzETL4obFF8nXsWKXh5WxkQqf03i +Q2KexImGjAomJh3oiXtO3Mrn61pRxcQe48+XXhNfCu//3k4xUS5Xr+0z8d4J ++7ixR0z81HReeYzYwL9RTvIpE7l3ulIniYU+rS3VfEGuz2hWnSHucivdaNnJ +xAJj7J4mzu9ReeXTx8RrXpLXJ4gD7S4ExA0wsc1UJOc7MT4RF7gyyMTJfXPv +fSSW2BBzkfpC6ond9aOP+HXV5Ir+ESZmKts7tBAXa+99/PsnE5eDbe8D4tCS +gW3zZ5jYcr8orpDYXM1xTPcvE3emrXA5Qyyd03TckY+Ffon1jsHEgzLrFwYK +sfAwr8ERZ+Ly5LKyM+IsPM7yb1xDHCWsZlbCYmFsrAFKE9vEZP73RIaF1S2h +g6NkvuR/SwR+XsjCzVKid5uIvx2MFRRQYmGmVlN5FnEC12+VkSYLfySDPvy/ +PvrfNO5cycL5gxX1ov+vj61OO8J1iRU6IztJPVHmhgn3kIWqj+JPuhMn0eWL +OjeycH16/3+KxNsN1G//sGShkryH5xtSrzMajH6OEwt1dwUznIgns+SiV7uy +cOXTgQwx4nFJVRV9Nxa6tr0IpEk/jPzU9zXZw8KqBzfklYnfVXlOukaw0Gxg +qf9j0m8DHP8L7jEsjHl2LXM38X85h9d5x7Pw6u8TCkLEXbGnYw6ksLB+9Xsd +IP37xOqeREIBGU/RrpLTniQvauiy09dZ+IrP8q4cccPyFsdzt1j4gT9lYQHJ +h4fst5nZleT58prEykl+lL8SUb/7jIVy402nikn+ZO7dCe8mWHjWZV2HyjYa +0l/vfvfpFwu7b59Yn0DyLdXmYNzwPxbey8iT+kLyL2l1wtNpYTaamHyQvELy +MeZ32VZJeTZ+4Ul2nCZ5ujdxbsA6Uza+DDL7tMSWht2zkmxjKzbmSbdf8rSh +wXu/XIWZLRsjihY/v2hNg7vD8j/2rmyUsG0r4d9Mg+MCl4Q9/mwMm+vgf5/k +/bobxbnnz7Mx/vnT9qvGNLxafCNn40U2Hteb1/XUiNTf+WvZ4zls9DPYXPEN +abgXXXjJ/hob/9CV7CVA+s85N0Oimo1WucPOcWtpWDo3Nfn4WzZumOTQfatJ +fbqFRR3SlMJ1nw48nCTr3d2OI0dVV0phr0Ypo1uRjMfycGSHjhSuLhfedncx +DWd1gsNXgRT6/Nrzaq88DeJi+w+P2JHjvwLyqPk08FfuCvAOkcJlHcqCIgwa +xliW7lvqpNB5x5Ca0m8KevyUXvg2SqFRnLlLwQwF1ONfcLRFCh/E7jZXI+t7 +cugNhatdUmiWwvVQJOv/indiAzNDUnjrZ3HWnxEK/Mue78hiz8PxfR5rzd9R +MGTjtG3Qax4e21n+Z20jBYOn3LcECkqj+pdfal0nyflDmkorxKQxadFb/vEE +CqbMZoaHGdLotSNyGSOeAhG+s3F75KRxa3C17YZYcr8j9XfcOdJoGs9VSQuj +IIKrxrZxkMZwnY/0p73ke8/w23ONHGl0ad59zcaKAovvIRYfdGXQRO2Knsdc +8r3mKXTwzlFZtONJv7H3zkPyfyDDG183H622PS1QW1MDrGdqSaXf5TA5/fnJ +/RVVsDDhlq2u7kJkzVbLHvxdCRka+gy2zyJ0DfFz3G99H57IGen8TJFH6uXt +c8Z5FWCwsC55eZcChnEfTRq9uAMSfHlBHjGLUfet2K5uxdsgH62wzkVNEXWP +WV/+4VIGwqrbK+wbFTFAmV/8r8Mt0Fo//1bIDiU02K2VbmRXDIH9rHpLHmU0 +Zf/Qr9G/Bt9/nnKyyFDG1eGiItnHCsFs+eNMC44Kxl8xFS0SyYeHP9f+nmpV +wTnP8vy3nbkM/pqr+tq4qlhlmbqW9202rB/x6nARVsPbVfX3B29nwkYV2c3i +eWpIT2eneK5IhyVRJw/X6anjt3eJyZdkUmEZV79WtU8d/8aVLubKpQD34e5j +dw4swes5TsG7zE5DbW6H19i8pVh/VjRk3oUEGL/6b2r5vaW4wFb4gELWMfBU +vSGcuXkZbg78lprvFQ1jy87plo8uw+ErJcNFj8Phfv7vtxMJGuho88E843cI +uJoo41p5TTTmNGS3Th6EBfviK7UoTUz748/yMA2ApH/eOol1mjiupCXRph8A +vGdNyz41aKI83+UIC04ADFXMvZbbrIm1sdYFDlIB8IDnWAarXROHa24uv/Bo +P7imRoVMftBE8VUe8pm8+yGj6ojOQ1EO8m1vP9mWsA/mifiVbd7KQSplWeeS +Bl/I3xAROurCwanIrLnxxb6wKiJpw7ntHOSdWHBiKtUXrEdLO3s8OHjCpsBV +0tsXjndNzHj6cbCq+f07WWFfmM47ahwazcFNbooBJ+z3QN/ac+2FNzionBtS +l/zDB3YH51+yuMlBPVinqPzaByZv3uV+K+WgumKrz+NGH2Ap9UytrODg0s2G +UZDlA1ZCixbWUBw8ElZ4/Ze5D1R3FHq1d3KwPyfJOfGKN1hK3Occ6uGgs5Ee +W/2MN/SYNU/KvuLg07+Rgu2h3jD+4GvCzjccNKwTD9xm7w2cyytKvgxx0Hev +hgqH1xuq+4wOnRrm4Kn1JVEWI1ywlHKA5aMcbH12lg7u44J3fHBb0AQHQyIs +Hs+Wc2GcOp4pM83B08qCwS45XIj5le754BcH01Ln9DckcoGhfU1zxywHP/pX +TcJhLmTvezDx7x8HbYyq7zzx4sL/ADE3NG4= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13613809914580166`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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.13613809914580166`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913429049348164`*^9, 3.9921044039528275`*^9}, + CellLabel-> + "Out[139]=",ExpressionUUID->"9d6bcf65-6dc6-334e-8fc7-c38f5e882bc2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel-> + "In[140]:=",ExpressionUUID->"dfd70d8f-49d3-a04f-a31c-55e81ecceef1"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k4Fm8XB3Ah+/IsQiqyVzzaLFE5h2Qtu0IL4qEkSaRsWRKlRBEpS7K0 +UKiUkBkUSkp2/aJFmyLKWqn3fuefuT7XzDVzz9znfO8ZxV377bm8PGSbw8Pz +//1kf3ODSmKqof/kOR48Y2vYkS17xKgnEBbF5z718tACnPd8l2xPDMS7+7sp +eBjCIdvr3Xw9Z4EzZHJszN0amCMyZ2e682CrQAvvTfedMFBtvX+8uxy8vopP +9rr5g6nK0Oux7jroHBIYL9weCTPdemmj3S9BoTuN+maTBPUbivLb8t5DY5GS +QvC2HFg4UPlxl+Yw7P7v/gInwSKQ8nO7LrjhJ2xJXCZzerQEzq40rbJ2moY0 +mRGzedHl0JuxghpjzEKEU+7+iDN3ITH/6HPe+XNwVZhI3YGU+yCT+v7EuSw+ +jMuYEuvkVIGsxt1j04V8mCBbGftBtwrk6o4f3VHKh4u109+OQhXIjy4NVq/n +w94lstbTdlWguinAveozH8pzkp40B1fBav5Z3fer+dHMMsHlUHUV2ARJD656 +wo8dTbLckY3VEO9oYfhyci5Gu7yZr2JRA3J3WuV45wjgREDk9dN2NXCT7Ti1 +UlQApxX9J0ZdaqDr5c7SFAUBDDIKrcj3rQEVuyAlO3MB5KyxeEol1kDd5hyB +FxcEMDZILeRJSw3Mmk60PlsniIfbXATlLR/CQf3Lbs0xQrhuSWRj9spasMyV +GLc6JYQfF4SJzerVgpJgeEJrmhB66/vfcTKshRcdW8rarwrh+MCwxqRlLWgF +iPH1twrh8yWlpT89a+FzYUjhDzlhPPMmo+1Nai1sl7IeXnBbGFMHHJ5E/6iF +1WFV0dnVwihi+GFYY7oWRN4tkVZ8LIyDCyz2vZithcpbfKDWK4wm/QlwjJ8C +aavK5BX/hHG27m1wpiQFL6JVtDdaieBE4o+9oEqByfdfof7vRdBs35j7XmsK +jpinLqO/ieDUxcriXlsKbl7m9LEnRTArF4w3OlAg6+iuXykkihmWNy2lnCn4 +dv/RFJ+WKAqJub1M8aDgXExy0IXDonj1b1WzSBAF7+ap+TeIi2EB35zB8fMU +yOyvXSQjI4Zt2TonxC5QsKnJ+dmexWLYwNcRqniRgorQRE3J1WI49bl9w4Yc +Ck4OjA65OIvhqiWlAd5FFKy6VuXzPU8MZ7RvbtG4R0H0OjsPuTXi+JLpdLS0 +gwLzndk/9IzFca66hHRGFwUSUV9jnTaJ47145bjwHgou1ccVJruL45qhqOG1 +/1Fw3/LBV4ET4miQJvo99T0Fo87Kh372iqNOUsH0rTEK7oUGCDIHxXHlqrQ1 +3J8URF6qydAaEcefRY+cZCYoEHuztWoPrwTilPHSwGkK1H1O8bxZJoHPspwN +ef9RsDN44mRLmARa2m44cEqUBtV044VDcRLI9+b2LUlxmry/MyWCyRIYP6XX +dkaChtA/S18Y50vgCn/J2uNMGtJid86rbJFAgXFDOxsZGlpSGnMKFkliNW9p +sZUSDQY3L9yJrJVEzkepreM6NJh0t86ONEnihPeX9Dl6NFjz8Ju5vZTE5vzt +y8XW0OBp798LHyTxfGi953wDGkzDFI9GzWWg99PVI2xDGgIUJq8YaTCwc+zR +5xMbaZi4ndw0s5yBRrqyj/1MyfjMNYbLtBmY7zXIs9mMhrgD7rpKhgzUPH8v +ea4FDZn1T5p47Rg4T1lIbesmGhp8cobrDzGwJcHpTLg9DRZ/9FnhYQw89ywz +TMeBhtbkDl3tKAZqPOxq+UrcWykclX+CgUcD1HNtnWgYEQ1ixV1i4JLOfzK/ +t9JwMFdCb/1lBmZ8adbPcaZhWvvatokCBvoyjzWgCw18O/vzubcY2ND8Qjrc +lQbZUnM90zoGCpSo1bRvpyHL5P22v48ZuHi8UdtzBw1KvRFRFU8ZqKx9ZP4o +MYf3drNaJwOL+9Q0ed1oMHZctF3wMwO1XJPiBD1oaPx8L6r2GwO1X50MiiHe +FGFfEDLGQDPG645fxFsL40c+/WLg9ZOlX9/vosFveiyqSZyJhi3B0eleZL4O +eEt/ZDGx+eJAggCXBqGhvht8skzULbVNDSQueFXfZajERAcF9QdG3jQEOa7x +267OxLIbs535xMbPiueEajJx80DNNL8PDf0P0zTv6jLxgfZHp2riYj2Rupdr +mRhf/yiFvZvMV2nk1lEkfhnR7UMsnecTo2HFxNhm/1jBPTQMyv0nY2HLRCML +1a/2xOXnbEu8nZhYEnLL7SKxTZx+z2U3Jl4NMQ5U9qVB/m/JvlovJsr+bmV6 +En87pMT3eg8Tv5/RpXOIE3aLaskGMVE+r9CesZeGLW+P1uscIePvW6NrQqzi +Ou7sEMlEqcxKzWBiyup1bFICExftyHNqJU5qsJtffJqJIVKZJyaJt69/fLP5 +LBOn7+e0L/CjYVmFgcmndCYOzoZrGxLPaN3q5c9i4oD9n+IdxE1FyvuV8ph4 +8P3n9aHE5xdn8GMRE0PPS3w+R+x1QSxzRzETL4obFF8nXsWKXh5WxkQqf03i +Q2KexImGjAomJh3oiXtO3Mrn61pRxcQe48+XXhNfCu//3k4xUS5Xr+0z8d4J ++7ixR0z81HReeYzYwL9RTvIpE7l3ulIniYU+rS3VfEGuz2hWnSHucivdaNnJ +xAJj7J4mzu9ReeXTx8RrXpLXJ4gD7S4ExA0wsc1UJOc7MT4RF7gyyMTJfXPv +fSSW2BBzkfpC6ond9aOP+HXV5Ir+ESZmKts7tBAXa+99/PsnE5eDbe8D4tCS +gW3zZ5jYcr8orpDYXM1xTPcvE3emrXA5Qyyd03TckY+Ffon1jsHEgzLrFwYK +sfAwr8ERZ+Ly5LKyM+IsPM7yb1xDHCWsZlbCYmFsrAFKE9vEZP73RIaF1S2h +g6NkvuR/SwR+XsjCzVKid5uIvx2MFRRQYmGmVlN5FnEC12+VkSYLfySDPvy/ +PvrfNO5cycL5gxX1ov+vj61OO8J1iRU6IztJPVHmhgn3kIWqj+JPuhMn0eWL +OjeycH16/3+KxNsN1G//sGShkryH5xtSrzMajH6OEwt1dwUznIgns+SiV7uy +cOXTgQwx4nFJVRV9Nxa6tr0IpEk/jPzU9zXZw8KqBzfklYnfVXlOukaw0Gxg +qf9j0m8DHP8L7jEsjHl2LXM38X85h9d5x7Pw6u8TCkLEXbGnYw6ksLB+9Xsd +IP37xOqeREIBGU/RrpLTniQvauiy09dZ+IrP8q4cccPyFsdzt1j4gT9lYQHJ +h4fst5nZleT58prEykl+lL8SUb/7jIVy402nikn+ZO7dCe8mWHjWZV2HyjYa +0l/vfvfpFwu7b59Yn0DyLdXmYNzwPxbey8iT+kLyL2l1wtNpYTaamHyQvELy +MeZ32VZJeTZ+4Ul2nCZ5ujdxbsA6Uza+DDL7tMSWht2zkmxjKzbmSbdf8rSh +wXu/XIWZLRsjihY/v2hNg7vD8j/2rmyUsG0r4d9Mg+MCl4Q9/mwMm+vgf5/k +/bobxbnnz7Mx/vnT9qvGNLxafCNn40U2Hteb1/XUiNTf+WvZ4zls9DPYXPEN +abgXXXjJ/hob/9CV7CVA+s85N0Oimo1WucPOcWtpWDo3Nfn4WzZumOTQfatJ +fbqFRR3SlMJ1nw48nCTr3d2OI0dVV0phr0Ypo1uRjMfycGSHjhSuLhfedncx +DWd1gsNXgRT6/Nrzaq88DeJi+w+P2JHjvwLyqPk08FfuCvAOkcJlHcqCIgwa +xliW7lvqpNB5x5Ca0m8KevyUXvg2SqFRnLlLwQwF1ONfcLRFCh/E7jZXI+t7 +cugNhatdUmiWwvVQJOv/indiAzNDUnjrZ3HWnxEK/Mue78hiz8PxfR5rzd9R +MGTjtG3Qax4e21n+Z20jBYOn3LcECkqj+pdfal0nyflDmkorxKQxadFb/vEE +CqbMZoaHGdLotSNyGSOeAhG+s3F75KRxa3C17YZYcr8j9XfcOdJoGs9VSQuj +IIKrxrZxkMZwnY/0p73ke8/w23ONHGl0ad59zcaKAovvIRYfdGXQRO2Knsdc +8r3mKXTwzlFZtONJv7H3zkPyfyDDG183H622PS1QW1MDrGdqSaXf5TA5/fnJ +/RVVsDDhlq2u7kJkzVbLHvxdCRka+gy2zyJ0DfFz3G99H57IGen8TJFH6uXt +c8Z5FWCwsC55eZcChnEfTRq9uAMSfHlBHjGLUfet2K5uxdsgH62wzkVNEXWP +WV/+4VIGwqrbK+wbFTFAmV/8r8Mt0Fo//1bIDiU02K2VbmRXDIH9rHpLHmU0 +Zf/Qr9G/Bt9/nnKyyFDG1eGiItnHCsFs+eNMC44Kxl8xFS0SyYeHP9f+nmpV +wTnP8vy3nbkM/pqr+tq4qlhlmbqW9202rB/x6nARVsPbVfX3B29nwkYV2c3i +eWpIT2eneK5IhyVRJw/X6anjt3eJyZdkUmEZV79WtU8d/8aVLubKpQD34e5j +dw4swes5TsG7zE5DbW6H19i8pVh/VjRk3oUEGL/6b2r5vaW4wFb4gELWMfBU +vSGcuXkZbg78lprvFQ1jy87plo8uw+ErJcNFj8Phfv7vtxMJGuho88E843cI +uJoo41p5TTTmNGS3Th6EBfviK7UoTUz748/yMA2ApH/eOol1mjiupCXRph8A +vGdNyz41aKI83+UIC04ADFXMvZbbrIm1sdYFDlIB8IDnWAarXROHa24uv/Bo +P7imRoVMftBE8VUe8pm8+yGj6ojOQ1EO8m1vP9mWsA/mifiVbd7KQSplWeeS +Bl/I3xAROurCwanIrLnxxb6wKiJpw7ntHOSdWHBiKtUXrEdLO3s8OHjCpsBV +0tsXjndNzHj6cbCq+f07WWFfmM47ahwazcFNbooBJ+z3QN/ac+2FNzionBtS +l/zDB3YH51+yuMlBPVinqPzaByZv3uV+K+WgumKrz+NGH2Ap9UytrODg0s2G +UZDlA1ZCixbWUBw8ElZ4/Ze5D1R3FHq1d3KwPyfJOfGKN1hK3Occ6uGgs5Ee +W/2MN/SYNU/KvuLg07+Rgu2h3jD+4GvCzjccNKwTD9xm7w2cyytKvgxx0Hev +hgqH1xuq+4wOnRrm4Kn1JVEWI1ywlHKA5aMcbH12lg7u44J3fHBb0AQHQyIs +Hs+Wc2GcOp4pM83B08qCwS45XIj5le754BcH01Ln9DckcoGhfU1zxywHP/pX +TcJhLmTvezDx7x8HbYyq7zzx4sL/ADE3NG4= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Fm8XB3Ah+/IsQiqyVzzaLFE5h2Qtu0IL4qEkSaRsWRKlRBEpS7K0 +UKiUkBkUSkp2/aJFmyLKWqn3fuefuT7XzDVzz9znfO8ZxV377bm8PGSbw8Pz +//1kf3ODSmKqof/kOR48Y2vYkS17xKgnEBbF5z718tACnPd8l2xPDMS7+7sp +eBjCIdvr3Xw9Z4EzZHJszN0amCMyZ2e682CrQAvvTfedMFBtvX+8uxy8vopP +9rr5g6nK0Oux7jroHBIYL9weCTPdemmj3S9BoTuN+maTBPUbivLb8t5DY5GS +QvC2HFg4UPlxl+Yw7P7v/gInwSKQ8nO7LrjhJ2xJXCZzerQEzq40rbJ2moY0 +mRGzedHl0JuxghpjzEKEU+7+iDN3ITH/6HPe+XNwVZhI3YGU+yCT+v7EuSw+ +jMuYEuvkVIGsxt1j04V8mCBbGftBtwrk6o4f3VHKh4u109+OQhXIjy4NVq/n +w94lstbTdlWguinAveozH8pzkp40B1fBav5Z3fer+dHMMsHlUHUV2ARJD656 +wo8dTbLckY3VEO9oYfhyci5Gu7yZr2JRA3J3WuV45wjgREDk9dN2NXCT7Ti1 +UlQApxX9J0ZdaqDr5c7SFAUBDDIKrcj3rQEVuyAlO3MB5KyxeEol1kDd5hyB +FxcEMDZILeRJSw3Mmk60PlsniIfbXATlLR/CQf3Lbs0xQrhuSWRj9spasMyV +GLc6JYQfF4SJzerVgpJgeEJrmhB66/vfcTKshRcdW8rarwrh+MCwxqRlLWgF +iPH1twrh8yWlpT89a+FzYUjhDzlhPPMmo+1Nai1sl7IeXnBbGFMHHJ5E/6iF +1WFV0dnVwihi+GFYY7oWRN4tkVZ8LIyDCyz2vZithcpbfKDWK4wm/QlwjJ8C +aavK5BX/hHG27m1wpiQFL6JVtDdaieBE4o+9oEqByfdfof7vRdBs35j7XmsK +jpinLqO/ieDUxcriXlsKbl7m9LEnRTArF4w3OlAg6+iuXykkihmWNy2lnCn4 +dv/RFJ+WKAqJub1M8aDgXExy0IXDonj1b1WzSBAF7+ap+TeIi2EB35zB8fMU +yOyvXSQjI4Zt2TonxC5QsKnJ+dmexWLYwNcRqniRgorQRE3J1WI49bl9w4Yc +Ck4OjA65OIvhqiWlAd5FFKy6VuXzPU8MZ7RvbtG4R0H0OjsPuTXi+JLpdLS0 +gwLzndk/9IzFca66hHRGFwUSUV9jnTaJ47145bjwHgou1ccVJruL45qhqOG1 +/1Fw3/LBV4ET4miQJvo99T0Fo87Kh372iqNOUsH0rTEK7oUGCDIHxXHlqrQ1 +3J8URF6qydAaEcefRY+cZCYoEHuztWoPrwTilPHSwGkK1H1O8bxZJoHPspwN +ef9RsDN44mRLmARa2m44cEqUBtV044VDcRLI9+b2LUlxmry/MyWCyRIYP6XX +dkaChtA/S18Y50vgCn/J2uNMGtJid86rbJFAgXFDOxsZGlpSGnMKFkliNW9p +sZUSDQY3L9yJrJVEzkepreM6NJh0t86ONEnihPeX9Dl6NFjz8Ju5vZTE5vzt +y8XW0OBp798LHyTxfGi953wDGkzDFI9GzWWg99PVI2xDGgIUJq8YaTCwc+zR +5xMbaZi4ndw0s5yBRrqyj/1MyfjMNYbLtBmY7zXIs9mMhrgD7rpKhgzUPH8v +ea4FDZn1T5p47Rg4T1lIbesmGhp8cobrDzGwJcHpTLg9DRZ/9FnhYQw89ywz +TMeBhtbkDl3tKAZqPOxq+UrcWykclX+CgUcD1HNtnWgYEQ1ixV1i4JLOfzK/ +t9JwMFdCb/1lBmZ8adbPcaZhWvvatokCBvoyjzWgCw18O/vzubcY2ND8Qjrc +lQbZUnM90zoGCpSo1bRvpyHL5P22v48ZuHi8UdtzBw1KvRFRFU8ZqKx9ZP4o +MYf3drNaJwOL+9Q0ed1oMHZctF3wMwO1XJPiBD1oaPx8L6r2GwO1X50MiiHe +FGFfEDLGQDPG645fxFsL40c+/WLg9ZOlX9/vosFveiyqSZyJhi3B0eleZL4O +eEt/ZDGx+eJAggCXBqGhvht8skzULbVNDSQueFXfZajERAcF9QdG3jQEOa7x +267OxLIbs535xMbPiueEajJx80DNNL8PDf0P0zTv6jLxgfZHp2riYj2Rupdr +mRhf/yiFvZvMV2nk1lEkfhnR7UMsnecTo2HFxNhm/1jBPTQMyv0nY2HLRCML +1a/2xOXnbEu8nZhYEnLL7SKxTZx+z2U3Jl4NMQ5U9qVB/m/JvlovJsr+bmV6 +En87pMT3eg8Tv5/RpXOIE3aLaskGMVE+r9CesZeGLW+P1uscIePvW6NrQqzi +Ou7sEMlEqcxKzWBiyup1bFICExftyHNqJU5qsJtffJqJIVKZJyaJt69/fLP5 +LBOn7+e0L/CjYVmFgcmndCYOzoZrGxLPaN3q5c9i4oD9n+IdxE1FyvuV8ph4 +8P3n9aHE5xdn8GMRE0PPS3w+R+x1QSxzRzETL4obFF8nXsWKXh5WxkQqf03i +Q2KexImGjAomJh3oiXtO3Mrn61pRxcQe48+XXhNfCu//3k4xUS5Xr+0z8d4J ++7ixR0z81HReeYzYwL9RTvIpE7l3ulIniYU+rS3VfEGuz2hWnSHucivdaNnJ +xAJj7J4mzu9ReeXTx8RrXpLXJ4gD7S4ExA0wsc1UJOc7MT4RF7gyyMTJfXPv +fSSW2BBzkfpC6ond9aOP+HXV5Ir+ESZmKts7tBAXa+99/PsnE5eDbe8D4tCS +gW3zZ5jYcr8orpDYXM1xTPcvE3emrXA5Qyyd03TckY+Ffon1jsHEgzLrFwYK +sfAwr8ERZ+Ly5LKyM+IsPM7yb1xDHCWsZlbCYmFsrAFKE9vEZP73RIaF1S2h +g6NkvuR/SwR+XsjCzVKid5uIvx2MFRRQYmGmVlN5FnEC12+VkSYLfySDPvy/ +PvrfNO5cycL5gxX1ov+vj61OO8J1iRU6IztJPVHmhgn3kIWqj+JPuhMn0eWL +OjeycH16/3+KxNsN1G//sGShkryH5xtSrzMajH6OEwt1dwUznIgns+SiV7uy +cOXTgQwx4nFJVRV9Nxa6tr0IpEk/jPzU9zXZw8KqBzfklYnfVXlOukaw0Gxg +qf9j0m8DHP8L7jEsjHl2LXM38X85h9d5x7Pw6u8TCkLEXbGnYw6ksLB+9Xsd +IP37xOqeREIBGU/RrpLTniQvauiy09dZ+IrP8q4cccPyFsdzt1j4gT9lYQHJ +h4fst5nZleT58prEykl+lL8SUb/7jIVy402nikn+ZO7dCe8mWHjWZV2HyjYa +0l/vfvfpFwu7b59Yn0DyLdXmYNzwPxbey8iT+kLyL2l1wtNpYTaamHyQvELy +MeZ32VZJeTZ+4Ul2nCZ5ujdxbsA6Uza+DDL7tMSWht2zkmxjKzbmSbdf8rSh +wXu/XIWZLRsjihY/v2hNg7vD8j/2rmyUsG0r4d9Mg+MCl4Q9/mwMm+vgf5/k +/bobxbnnz7Mx/vnT9qvGNLxafCNn40U2Hteb1/XUiNTf+WvZ4zls9DPYXPEN +abgXXXjJ/hob/9CV7CVA+s85N0Oimo1WucPOcWtpWDo3Nfn4WzZumOTQfatJ +fbqFRR3SlMJ1nw48nCTr3d2OI0dVV0phr0Ypo1uRjMfycGSHjhSuLhfedncx +DWd1gsNXgRT6/Nrzaq88DeJi+w+P2JHjvwLyqPk08FfuCvAOkcJlHcqCIgwa +xliW7lvqpNB5x5Ca0m8KevyUXvg2SqFRnLlLwQwF1ONfcLRFCh/E7jZXI+t7 +cugNhatdUmiWwvVQJOv/indiAzNDUnjrZ3HWnxEK/Mue78hiz8PxfR5rzd9R +MGTjtG3Qax4e21n+Z20jBYOn3LcECkqj+pdfal0nyflDmkorxKQxadFb/vEE +CqbMZoaHGdLotSNyGSOeAhG+s3F75KRxa3C17YZYcr8j9XfcOdJoGs9VSQuj +IIKrxrZxkMZwnY/0p73ke8/w23ONHGl0ad59zcaKAovvIRYfdGXQRO2Knsdc +8r3mKXTwzlFZtONJv7H3zkPyfyDDG183H622PS1QW1MDrGdqSaXf5TA5/fnJ +/RVVsDDhlq2u7kJkzVbLHvxdCRka+gy2zyJ0DfFz3G99H57IGen8TJFH6uXt +c8Z5FWCwsC55eZcChnEfTRq9uAMSfHlBHjGLUfet2K5uxdsgH62wzkVNEXWP +WV/+4VIGwqrbK+wbFTFAmV/8r8Mt0Fo//1bIDiU02K2VbmRXDIH9rHpLHmU0 +Zf/Qr9G/Bt9/nnKyyFDG1eGiItnHCsFs+eNMC44Kxl8xFS0SyYeHP9f+nmpV +wTnP8vy3nbkM/pqr+tq4qlhlmbqW9202rB/x6nARVsPbVfX3B29nwkYV2c3i +eWpIT2eneK5IhyVRJw/X6anjt3eJyZdkUmEZV79WtU8d/8aVLubKpQD34e5j +dw4swes5TsG7zE5DbW6H19i8pVh/VjRk3oUEGL/6b2r5vaW4wFb4gELWMfBU +vSGcuXkZbg78lprvFQ1jy87plo8uw+ErJcNFj8Phfv7vtxMJGuho88E843cI +uJoo41p5TTTmNGS3Th6EBfviK7UoTUz748/yMA2ApH/eOol1mjiupCXRph8A +vGdNyz41aKI83+UIC04ADFXMvZbbrIm1sdYFDlIB8IDnWAarXROHa24uv/Bo +P7imRoVMftBE8VUe8pm8+yGj6ojOQ1EO8m1vP9mWsA/mifiVbd7KQSplWeeS +Bl/I3xAROurCwanIrLnxxb6wKiJpw7ntHOSdWHBiKtUXrEdLO3s8OHjCpsBV +0tsXjndNzHj6cbCq+f07WWFfmM47ahwazcFNbooBJ+z3QN/ac+2FNzionBtS +l/zDB3YH51+yuMlBPVinqPzaByZv3uV+K+WgumKrz+NGH2Ap9UytrODg0s2G +UZDlA1ZCixbWUBw8ElZ4/Ze5D1R3FHq1d3KwPyfJOfGKN1hK3Occ6uGgs5Ee +W/2MN/SYNU/KvuLg07+Rgu2h3jD+4GvCzjccNKwTD9xm7w2cyytKvgxx0Hev +hgqH1xuq+4wOnRrm4Kn1JVEWI1ywlHKA5aMcbH12lg7u44J3fHBb0AQHQyIs +Hs+Wc2GcOp4pM83B08qCwS45XIj5le754BcH01Ln9DckcoGhfU1zxywHP/pX +TcJhLmTvezDx7x8HbYyq7zzx4sL/ADE3NG4= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13613809914580166`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.13613809914580166`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Fm8XB3Ah+/IsQiqyVzzaLFE5h2Qtu0IL4qEkSaRsWRKlRBEpS7K0 +UKiUkBkUSkp2/aJFmyLKWqn3fuefuT7XzDVzz9znfO8ZxV377bm8PGSbw8Pz +//1kf3ODSmKqof/kOR48Y2vYkS17xKgnEBbF5z718tACnPd8l2xPDMS7+7sp +eBjCIdvr3Xw9Z4EzZHJszN0amCMyZ2e682CrQAvvTfedMFBtvX+8uxy8vopP +9rr5g6nK0Oux7jroHBIYL9weCTPdemmj3S9BoTuN+maTBPUbivLb8t5DY5GS +QvC2HFg4UPlxl+Yw7P7v/gInwSKQ8nO7LrjhJ2xJXCZzerQEzq40rbJ2moY0 +mRGzedHl0JuxghpjzEKEU+7+iDN3ITH/6HPe+XNwVZhI3YGU+yCT+v7EuSw+ +jMuYEuvkVIGsxt1j04V8mCBbGftBtwrk6o4f3VHKh4u109+OQhXIjy4NVq/n +w94lstbTdlWguinAveozH8pzkp40B1fBav5Z3fer+dHMMsHlUHUV2ARJD656 +wo8dTbLckY3VEO9oYfhyci5Gu7yZr2JRA3J3WuV45wjgREDk9dN2NXCT7Ti1 +UlQApxX9J0ZdaqDr5c7SFAUBDDIKrcj3rQEVuyAlO3MB5KyxeEol1kDd5hyB +FxcEMDZILeRJSw3Mmk60PlsniIfbXATlLR/CQf3Lbs0xQrhuSWRj9spasMyV +GLc6JYQfF4SJzerVgpJgeEJrmhB66/vfcTKshRcdW8rarwrh+MCwxqRlLWgF +iPH1twrh8yWlpT89a+FzYUjhDzlhPPMmo+1Nai1sl7IeXnBbGFMHHJ5E/6iF +1WFV0dnVwihi+GFYY7oWRN4tkVZ8LIyDCyz2vZithcpbfKDWK4wm/QlwjJ8C +aavK5BX/hHG27m1wpiQFL6JVtDdaieBE4o+9oEqByfdfof7vRdBs35j7XmsK +jpinLqO/ieDUxcriXlsKbl7m9LEnRTArF4w3OlAg6+iuXykkihmWNy2lnCn4 +dv/RFJ+WKAqJub1M8aDgXExy0IXDonj1b1WzSBAF7+ap+TeIi2EB35zB8fMU +yOyvXSQjI4Zt2TonxC5QsKnJ+dmexWLYwNcRqniRgorQRE3J1WI49bl9w4Yc +Ck4OjA65OIvhqiWlAd5FFKy6VuXzPU8MZ7RvbtG4R0H0OjsPuTXi+JLpdLS0 +gwLzndk/9IzFca66hHRGFwUSUV9jnTaJ47145bjwHgou1ccVJruL45qhqOG1 +/1Fw3/LBV4ET4miQJvo99T0Fo87Kh372iqNOUsH0rTEK7oUGCDIHxXHlqrQ1 +3J8URF6qydAaEcefRY+cZCYoEHuztWoPrwTilPHSwGkK1H1O8bxZJoHPspwN +ef9RsDN44mRLmARa2m44cEqUBtV044VDcRLI9+b2LUlxmry/MyWCyRIYP6XX +dkaChtA/S18Y50vgCn/J2uNMGtJid86rbJFAgXFDOxsZGlpSGnMKFkliNW9p +sZUSDQY3L9yJrJVEzkepreM6NJh0t86ONEnihPeX9Dl6NFjz8Ju5vZTE5vzt +y8XW0OBp798LHyTxfGi953wDGkzDFI9GzWWg99PVI2xDGgIUJq8YaTCwc+zR +5xMbaZi4ndw0s5yBRrqyj/1MyfjMNYbLtBmY7zXIs9mMhrgD7rpKhgzUPH8v +ea4FDZn1T5p47Rg4T1lIbesmGhp8cobrDzGwJcHpTLg9DRZ/9FnhYQw89ywz +TMeBhtbkDl3tKAZqPOxq+UrcWykclX+CgUcD1HNtnWgYEQ1ixV1i4JLOfzK/ +t9JwMFdCb/1lBmZ8adbPcaZhWvvatokCBvoyjzWgCw18O/vzubcY2ND8Qjrc +lQbZUnM90zoGCpSo1bRvpyHL5P22v48ZuHi8UdtzBw1KvRFRFU8ZqKx9ZP4o +MYf3drNaJwOL+9Q0ed1oMHZctF3wMwO1XJPiBD1oaPx8L6r2GwO1X50MiiHe +FGFfEDLGQDPG645fxFsL40c+/WLg9ZOlX9/vosFveiyqSZyJhi3B0eleZL4O +eEt/ZDGx+eJAggCXBqGhvht8skzULbVNDSQueFXfZajERAcF9QdG3jQEOa7x +267OxLIbs535xMbPiueEajJx80DNNL8PDf0P0zTv6jLxgfZHp2riYj2Rupdr +mRhf/yiFvZvMV2nk1lEkfhnR7UMsnecTo2HFxNhm/1jBPTQMyv0nY2HLRCML +1a/2xOXnbEu8nZhYEnLL7SKxTZx+z2U3Jl4NMQ5U9qVB/m/JvlovJsr+bmV6 +En87pMT3eg8Tv5/RpXOIE3aLaskGMVE+r9CesZeGLW+P1uscIePvW6NrQqzi +Ou7sEMlEqcxKzWBiyup1bFICExftyHNqJU5qsJtffJqJIVKZJyaJt69/fLP5 +LBOn7+e0L/CjYVmFgcmndCYOzoZrGxLPaN3q5c9i4oD9n+IdxE1FyvuV8ph4 +8P3n9aHE5xdn8GMRE0PPS3w+R+x1QSxzRzETL4obFF8nXsWKXh5WxkQqf03i +Q2KexImGjAomJh3oiXtO3Mrn61pRxcQe48+XXhNfCu//3k4xUS5Xr+0z8d4J ++7ixR0z81HReeYzYwL9RTvIpE7l3ulIniYU+rS3VfEGuz2hWnSHucivdaNnJ +xAJj7J4mzu9ReeXTx8RrXpLXJ4gD7S4ExA0wsc1UJOc7MT4RF7gyyMTJfXPv +fSSW2BBzkfpC6ond9aOP+HXV5Ir+ESZmKts7tBAXa+99/PsnE5eDbe8D4tCS +gW3zZ5jYcr8orpDYXM1xTPcvE3emrXA5Qyyd03TckY+Ffon1jsHEgzLrFwYK +sfAwr8ERZ+Ly5LKyM+IsPM7yb1xDHCWsZlbCYmFsrAFKE9vEZP73RIaF1S2h +g6NkvuR/SwR+XsjCzVKid5uIvx2MFRRQYmGmVlN5FnEC12+VkSYLfySDPvy/ +PvrfNO5cycL5gxX1ov+vj61OO8J1iRU6IztJPVHmhgn3kIWqj+JPuhMn0eWL +OjeycH16/3+KxNsN1G//sGShkryH5xtSrzMajH6OEwt1dwUznIgns+SiV7uy +cOXTgQwx4nFJVRV9Nxa6tr0IpEk/jPzU9zXZw8KqBzfklYnfVXlOukaw0Gxg +qf9j0m8DHP8L7jEsjHl2LXM38X85h9d5x7Pw6u8TCkLEXbGnYw6ksLB+9Xsd +IP37xOqeREIBGU/RrpLTniQvauiy09dZ+IrP8q4cccPyFsdzt1j4gT9lYQHJ +h4fst5nZleT58prEykl+lL8SUb/7jIVy402nikn+ZO7dCe8mWHjWZV2HyjYa +0l/vfvfpFwu7b59Yn0DyLdXmYNzwPxbey8iT+kLyL2l1wtNpYTaamHyQvELy +MeZ32VZJeTZ+4Ul2nCZ5ujdxbsA6Uza+DDL7tMSWht2zkmxjKzbmSbdf8rSh +wXu/XIWZLRsjihY/v2hNg7vD8j/2rmyUsG0r4d9Mg+MCl4Q9/mwMm+vgf5/k +/bobxbnnz7Mx/vnT9qvGNLxafCNn40U2Hteb1/XUiNTf+WvZ4zls9DPYXPEN +abgXXXjJ/hob/9CV7CVA+s85N0Oimo1WucPOcWtpWDo3Nfn4WzZumOTQfatJ +fbqFRR3SlMJ1nw48nCTr3d2OI0dVV0phr0Ypo1uRjMfycGSHjhSuLhfedncx +DWd1gsNXgRT6/Nrzaq88DeJi+w+P2JHjvwLyqPk08FfuCvAOkcJlHcqCIgwa +xliW7lvqpNB5x5Ca0m8KevyUXvg2SqFRnLlLwQwF1ONfcLRFCh/E7jZXI+t7 +cugNhatdUmiWwvVQJOv/indiAzNDUnjrZ3HWnxEK/Mue78hiz8PxfR5rzd9R +MGTjtG3Qax4e21n+Z20jBYOn3LcECkqj+pdfal0nyflDmkorxKQxadFb/vEE +CqbMZoaHGdLotSNyGSOeAhG+s3F75KRxa3C17YZYcr8j9XfcOdJoGs9VSQuj +IIKrxrZxkMZwnY/0p73ke8/w23ONHGl0ad59zcaKAovvIRYfdGXQRO2Knsdc +8r3mKXTwzlFZtONJv7H3zkPyfyDDG183H622PS1QW1MDrGdqSaXf5TA5/fnJ +/RVVsDDhlq2u7kJkzVbLHvxdCRka+gy2zyJ0DfFz3G99H57IGen8TJFH6uXt +c8Z5FWCwsC55eZcChnEfTRq9uAMSfHlBHjGLUfet2K5uxdsgH62wzkVNEXWP +WV/+4VIGwqrbK+wbFTFAmV/8r8Mt0Fo//1bIDiU02K2VbmRXDIH9rHpLHmU0 +Zf/Qr9G/Bt9/nnKyyFDG1eGiItnHCsFs+eNMC44Kxl8xFS0SyYeHP9f+nmpV +wTnP8vy3nbkM/pqr+tq4qlhlmbqW9202rB/x6nARVsPbVfX3B29nwkYV2c3i +eWpIT2eneK5IhyVRJw/X6anjt3eJyZdkUmEZV79WtU8d/8aVLubKpQD34e5j +dw4swes5TsG7zE5DbW6H19i8pVh/VjRk3oUEGL/6b2r5vaW4wFb4gELWMfBU +vSGcuXkZbg78lprvFQ1jy87plo8uw+ErJcNFj8Phfv7vtxMJGuho88E843cI +uJoo41p5TTTmNGS3Th6EBfviK7UoTUz748/yMA2ApH/eOol1mjiupCXRph8A +vGdNyz41aKI83+UIC04ADFXMvZbbrIm1sdYFDlIB8IDnWAarXROHa24uv/Bo +P7imRoVMftBE8VUe8pm8+yGj6ojOQ1EO8m1vP9mWsA/mifiVbd7KQSplWeeS +Bl/I3xAROurCwanIrLnxxb6wKiJpw7ntHOSdWHBiKtUXrEdLO3s8OHjCpsBV +0tsXjndNzHj6cbCq+f07WWFfmM47ahwazcFNbooBJ+z3QN/ac+2FNzionBtS +l/zDB3YH51+yuMlBPVinqPzaByZv3uV+K+WgumKrz+NGH2Ap9UytrODg0s2G +UZDlA1ZCixbWUBw8ElZ4/Ze5D1R3FHq1d3KwPyfJOfGKN1hK3Occ6uGgs5Ee +W/2MN/SYNU/KvuLg07+Rgu2h3jD+4GvCzjccNKwTD9xm7w2cyytKvgxx0Hev +hgqH1xuq+4wOnRrm4Kn1JVEWI1ywlHKA5aMcbH12lg7u44J3fHBb0AQHQyIs +Hs+Wc2GcOp4pM83B08qCwS45XIj5le754BcH01Ln9DckcoGhfU1zxywHP/pX +TcJhLmTvezDx7x8HbYyq7zzx4sL/ADE3NG4= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13613809914580166`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 15}, {0., 0.13613809914580166`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}, + 3.99210440408914*^9}, + CellLabel-> + "Out[140]=",ExpressionUUID->"b2a0960c-9f94-c749-bd0e-a5be3d9ca59f"] +}, 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[141]:=",ExpressionUUID->"bd700bac-9ff0-794b-a1df-85afecca9797"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.97148714582981`*^-220\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 141, 510, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437636167164`*^9, 3.9921044041968555`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"b28bea99-5ddf-3c4a-a6ac-e42484f9a202"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.921454490510376`*^-225\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 141, 511, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437636167164`*^9, 3.9921044042149544`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"5e5bb057-199c-e44d-bc0c-db027ec04e8e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.6314913284830476`*^-231\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 141, 512, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437636167164`*^9, 3.9921044042309513`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"62db4c2f-47af-a340-9030-00e4f1268e77"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 141, 513, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437636167164`*^9, 3.9921044042458572`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"f265bf8c-8076-ac4d-8311-e45258461b2e"], + +Cell[BoxData["31.374368173412375`"], "Output", + CellChangeTimes->{3.991343769962549*^9, 3.9921044581499615`*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"3bcdd31a-af86-324e-b079-ae778dd7a06f"] +}, 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.991846744062315*^9, 3.9918467481290073`*^9}}, + CellLabel-> + "In[142]:=",ExpressionUUID->"aa4ca102-401f-6c45-84ea-b21fa4222eb4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.50518478247641`*^-229\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 142, 514, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343769999645*^9, 3.9921044583118553`*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"b8859e87-21c4-704f-9f2b-ea285720f99b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1189418985031668`*^-235\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 142, 515, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343769999645*^9, 3.9921044583252583`*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"262f6f64-4a4c-b445-b7ea-47725577f046"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.9977589716484735`*^-242\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 142, 516, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343769999645*^9, 3.9921044583388996`*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"5deae5ff-c282-e745-a422-66e358c9efe3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 142, 517, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343769999645*^9, 3.992104458351675*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"31aa4854-e0de-df4c-9143-3374ced31dad"], + +Cell[BoxData["0.8270623467110724`"], "Output", + CellChangeTimes->{3.9913437771602173`*^9, 3.992104468679516*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"25b260d0-51d1-aa45-8cc8-305697504356"] +}, 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.9918467529108715`*^9, 3.9918467555119896`*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"6ecebc3a-297f-ad45-be0e-687cb63b6c02"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.50518478247641`*^-229\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 143, 518, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437771982174`*^9, 3.9921044687735195`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"9e98a6e1-acdb-4f4e-908c-cd07cb25f25d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1189418985031668`*^-235\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 143, 519, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437771982174`*^9, 3.9921044687894745`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"54982d00-8e31-fe47-b233-2f600bf1bada"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.9977589716484735`*^-242\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 143, 520, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437771982174`*^9, 3.9921044688010197`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"67486d44-82e7-c043-b04c-2b6805c8a707"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 143, 521, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437771982174`*^9, 3.992104468812538*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"8bb91b49-793d-484c-9f3a-6b4fd0d3293d"], + +Cell[BoxData["8.51940794527246`"], "Output", + CellChangeTimes->{3.991343783589731*^9, 3.9921044787073593`*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"3c94e612-828b-3549-94b4-f3499dfb645a"] +}, 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.9918467593835926`*^9, 3.991846761720169*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"f4d4d2f3-a6fe-7445-a71e-f1844b022d84"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.50518478247641`*^-229\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 144, 522, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437836316223`*^9, 3.992104478803322*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"890cb829-aa79-1a45-8b4f-c95d2ff7be4c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1189418985031668`*^-235\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 144, 523, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437836316223`*^9, 3.992104478828367*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"e78fa290-2212-6042-8b79-ac0245f95600"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.9977589716484735`*^-242\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 144, 524, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437836316223`*^9, 3.992104478844263*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"975d7b90-5c0a-fa4e-83a3-b47770799399"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 144, 525, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437836316223`*^9, 3.992104478858265*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"27fd9c4e-9a28-5548-a80a-25b7bc5b29d2"], + +Cell[BoxData["247.56592108144181`"], "Output", + CellChangeTimes->{3.9913437870822353`*^9, 3.9921044851616917`*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"e229ccbb-6f8b-a541-84c8-ca94e9243ef4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918467646351814`*^9, 3.99184676823822*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"84cd8b8a-60e5-9e4d-8a98-fd76363577db"], + +Cell[BoxData["0.018008938352818648`"], "Output", + CellChangeTimes->{3.991343787117275*^9, 3.9921044852246685`*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"effcf9ca-fa38-634c-a498-3d8843a70996"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>0.7 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"feb57727-78bd-5c41-b356-12adf3ce0cb1" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 402, 7, 21, "Input",ExpressionUUID->"9ccd59f4-b50f-6c4d-9886-000ac16bbd26"], +Cell[981, 31, 200, 3, 23, "Output",ExpressionUUID->"23ad788c-d1c4-c648-a53a-b88e6662a5e7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1218, 39, 348, 5, 21, "Input",ExpressionUUID->"4d114053-0661-9c46-9efb-62b794f6d316"], +Cell[1569, 46, 429, 6, 23, "Output",ExpressionUUID->"742bdbfe-14da-8c4e-b89b-2094ee32f1d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2035, 57, 224, 4, 21, "Input",ExpressionUUID->"ced22664-e0d6-624d-8572-c84cb7e5fc4e"], +Cell[2262, 63, 421, 6, 23, "Output",ExpressionUUID->"55d74540-9694-a24a-92c0-b02c4afc5327"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2720, 74, 175, 3, 21, "Input",ExpressionUUID->"1ed6267e-43c1-1c4d-9cac-75c315fa9fbf"], +Cell[2898, 79, 401, 6, 23, "Output",ExpressionUUID->"191107d5-b6fa-234e-86b2-48a0b998be28"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3336, 90, 257, 7, 31, "Input",ExpressionUUID->"4cbb0a58-3499-604e-853b-6f3e8cc9c133"], +Cell[3596, 99, 421, 6, 23, "Output",ExpressionUUID->"39cc5908-7c47-f742-a7d0-1a13504d9abc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4054, 110, 131, 2, 21, "Input",ExpressionUUID->"a9d26615-ac75-5d43-9095-7ee22a3c33f8"], +Cell[4188, 114, 403, 6, 23, "Output",ExpressionUUID->"22da2c48-581a-fe47-8b0e-d89677dc7303"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4628, 125, 276, 6, 21, "Input",ExpressionUUID->"afacc702-e08b-f746-bb79-b94eeaa27f24"], +Cell[4907, 133, 415, 6, 23, "Output",ExpressionUUID->"c6329d89-7905-8644-b610-c664c8b8a967"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5359, 144, 257, 7, 21, "Input",ExpressionUUID->"c82b30ad-d126-0f4e-ab97-5d5aead5ef82"], +Cell[5619, 153, 417, 6, 23, "Output",ExpressionUUID->"cf12ab24-c447-a948-b199-e4ac6ffedb84"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6073, 164, 266, 5, 21, "Input",ExpressionUUID->"2e0bbff7-5261-7c4c-bce6-fdcc2f61f29d"], +Cell[6342, 171, 434, 6, 23, "Output",ExpressionUUID->"5a6598e6-0595-5a47-9fd4-2933af7fa985"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6813, 182, 265, 5, 21, "Input",ExpressionUUID->"a35ada31-bed9-6449-83df-c374bb5ad9a8"], +Cell[7081, 189, 435, 6, 23, "Output",ExpressionUUID->"ce1926fc-0fe9-4744-b19b-9125d51ba8b8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7553, 200, 129, 2, 21, "Input",ExpressionUUID->"e2aa0c35-146e-024c-abf8-7efe27e145b9"], +Cell[7685, 204, 396, 6, 23, "Output",ExpressionUUID->"4f6bd922-3beb-cd4e-bdf2-45bee584935a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8118, 215, 129, 2, 21, "Input",ExpressionUUID->"2108fa0d-6ba5-ef49-ac71-a3cbb4a4e7cf"], +Cell[8250, 219, 396, 6, 23, "Output",ExpressionUUID->"7fb75b75-36ef-da48-b462-652f2a86fcdd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8683, 230, 557, 19, 59, "Input",ExpressionUUID->"e8122927-0ce0-5648-a7ca-ac7dbc32a743"], +Cell[9243, 251, 396, 6, 23, "Output",ExpressionUUID->"9f543f89-4a6f-c446-affa-eddbfae03610"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9676, 262, 557, 19, 59, "Input",ExpressionUUID->"7b11db5f-82f4-f644-9690-d7bdcd8f26c2"], +Cell[10236, 283, 390, 6, 23, "Output",ExpressionUUID->"a8d4c118-89a1-774d-8b68-acb1c0f3bae1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[10663, 294, 1492, 48, 59, "Input",ExpressionUUID->"321e4fb5-b305-9c48-b98b-e22eee8323a4"], +Cell[12158, 344, 398, 6, 23, "Output",ExpressionUUID->"11296915-be13-d64a-8ad6-ed6c8176a220"] +}, Open ]], +Cell[CellGroupData[{ +Cell[12593, 355, 1331, 44, 59, "Input",ExpressionUUID->"558a79a4-d07f-2943-8bfb-31bc438d7b34"], +Cell[13927, 401, 409, 7, 23, "Output",ExpressionUUID->"c674a226-5adc-6148-98f2-f4532926ed31"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14373, 413, 1331, 44, 59, "Input",ExpressionUUID->"c6988e85-c3ab-9542-8ac3-eaf150a60a4d"], +Cell[15707, 459, 412, 7, 23, "Output",ExpressionUUID->"77622a22-4b9e-df42-9240-1aab8b48e8c0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16156, 471, 1492, 48, 59, "Input",ExpressionUUID->"4872db5a-8d18-ae4d-86a9-e80539c50c5a"], +Cell[17651, 521, 389, 6, 23, "Output",ExpressionUUID->"38428511-8eaf-b340-b546-a1344a49d8f4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18077, 532, 131, 2, 21, "Input",ExpressionUUID->"6a6fafa8-9028-ea40-981c-d6f33a2bf931"], +Cell[18211, 536, 370, 6, 23, "Output",ExpressionUUID->"6e27f826-5117-f44e-b5a8-68e67fb7c5e6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18618, 547, 177, 3, 21, "Input",ExpressionUUID->"957c02af-69f2-044c-b66f-ca8aec73b6ba"], +Cell[18798, 552, 374, 6, 23, "Output",ExpressionUUID->"fc96cea4-773a-d044-bdbb-e1698f16fcc7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19209, 563, 134, 2, 21, "Input",ExpressionUUID->"1a0834d3-f5c7-b544-ab5a-ad55f704b3fb"], +Cell[19346, 567, 378, 6, 23, "Output",ExpressionUUID->"eed9d627-216e-7e48-8a41-a480f9bced58"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19761, 578, 219, 4, 21, "Input",ExpressionUUID->"17a3155f-1014-3f47-95c8-649b5592093b"], +Cell[19983, 584, 393, 7, 23, "Output",ExpressionUUID->"e2eae877-2548-0141-9b41-ca661fd54f5f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20413, 596, 134, 2, 21, "Input",ExpressionUUID->"262ddec4-b25b-0145-9154-91c4534f0366"], +Cell[20550, 600, 380, 6, 23, "Output",ExpressionUUID->"2762cc5f-7e1d-0f4c-b680-97001871dff1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20967, 611, 302, 5, 21, "Input",ExpressionUUID->"98db454e-b76d-c448-a5fb-db17668fba13"], +Cell[21272, 618, 321, 5, 23, "Output",ExpressionUUID->"a1421cbd-4f29-4443-ba6d-aa624ed9e6ad"] +}, Open ]], +Cell[21608, 626, 173, 2, 21, "Input",ExpressionUUID->"49b4df59-ba96-204d-8a7a-a050e7dc5eaf"], +Cell[CellGroupData[{ +Cell[21806, 632, 322, 6, 21, "Input",ExpressionUUID->"67372b79-e3d7-e740-aa8a-b6f2277896de"], +Cell[22131, 640, 376, 6, 23, "Output",ExpressionUUID->"9b20a5e2-3962-2446-8ccf-e040fdcf65cb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22544, 651, 219, 4, 21, "Input",ExpressionUUID->"1db0f49a-d634-c240-a060-6437c979d1d8"], +Cell[22766, 657, 380, 6, 23, "Output",ExpressionUUID->"d566e4e6-6b36-c147-84d4-2fbd8f97412a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23183, 668, 350, 10, 31, "Input",ExpressionUUID->"38ed2f59-f1de-6c43-9d51-88bdd21c2523"], +Cell[23536, 680, 394, 6, 23, "Output",ExpressionUUID->"0466128c-8a36-a049-8b76-d1a7cf7368d8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23967, 691, 350, 10, 31, "Input",ExpressionUUID->"e98ec72c-94a3-7a4f-aea3-cc9c0d9f8fbe"], +Cell[24320, 703, 414, 7, 23, "Output",ExpressionUUID->"4f6ac787-6dba-a048-b94a-ff7ccc9800e8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24771, 715, 992, 26, 43, "Input",ExpressionUUID->"071b0853-87fe-2c4d-abbd-372a4824c05d"], +Cell[25766, 743, 389, 6, 23, "Output",ExpressionUUID->"129fc845-1a27-4b4a-8a13-b4990133fe49"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26192, 754, 199, 3, 21, "Input",ExpressionUUID->"d18f685d-e63f-3647-b6c2-98e303089120"], +Cell[26394, 759, 378, 6, 23, "Output",ExpressionUUID->"241a7478-4b59-fe4d-a1dc-e830c4dd748f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26809, 770, 273, 4, 21, "Input",ExpressionUUID->"7ce4bf33-678e-6345-a119-39c36ca77ae4"], +Cell[27085, 776, 337, 5, 23, "Output",ExpressionUUID->"f6354a05-0760-6540-ad47-73c9b7319414"] +}, Open ]], +Cell[27437, 784, 175, 2, 21, "Input",ExpressionUUID->"b514a123-6026-484f-84d7-8e150ce2db52"], +Cell[CellGroupData[{ +Cell[27637, 790, 344, 6, 33, "Input",ExpressionUUID->"c7106883-e563-8540-866d-1ddabf1f4a4b"], +Cell[27984, 798, 326, 5, 23, "Output",ExpressionUUID->"1f9a30e5-a4f9-6d42-9eae-6091e1b974e0"] +}, Open ]], +Cell[28325, 806, 173, 2, 21, "Input",ExpressionUUID->"0f6b6481-ff2b-604e-ab4b-84f8f6224cad"], +Cell[CellGroupData[{ +Cell[28523, 812, 343, 6, 33, "Input",ExpressionUUID->"be96ddc4-8bf8-8545-90da-8898239f225a"], +Cell[28869, 820, 331, 5, 23, "Output",ExpressionUUID->"1de0f87c-c932-c24a-89c1-bf11c04da45b"] +}, Open ]], +Cell[29215, 828, 175, 2, 21, "Input",ExpressionUUID->"4c4bc4fd-4076-5942-89e5-3d70dd3c09b0"], +Cell[CellGroupData[{ +Cell[29415, 834, 349, 6, 33, "Input",ExpressionUUID->"3a0ba0b6-13d6-1b4e-b15e-a9bb6e05bad2"], +Cell[29767, 842, 330, 5, 23, "Output",ExpressionUUID->"7131298a-cffc-0441-8a08-cfa556588e2c"] +}, Open ]], +Cell[30112, 850, 175, 2, 21, "Input",ExpressionUUID->"a69ee115-40fc-104b-ba38-f14b73376dea"], +Cell[CellGroupData[{ +Cell[30312, 856, 275, 4, 21, "Input",ExpressionUUID->"a205c97c-d165-0947-aa6a-57c755f27d35"], +Cell[30590, 862, 328, 5, 23, "Output",ExpressionUUID->"a0d63818-5af8-0142-8ff8-36d51797889c"] +}, Open ]], +Cell[30933, 870, 173, 2, 21, "Input",ExpressionUUID->"258ac512-03f3-424e-93ee-86aed42f7780"], +Cell[CellGroupData[{ +Cell[31131, 876, 277, 4, 21, "Input",ExpressionUUID->"c1098943-f83d-634e-a451-074cdf3705ed"], +Cell[31411, 882, 331, 5, 23, "Output",ExpressionUUID->"5a6437c5-8318-1f45-b730-ae04b16232c5"] +}, Open ]], +Cell[31757, 890, 171, 2, 21, "Input",ExpressionUUID->"44a4b217-3a12-9a49-86c6-7bb730d97e55"], +Cell[CellGroupData[{ +Cell[31953, 896, 306, 5, 21, "Input",ExpressionUUID->"f9f0ed60-c7b0-9640-832c-69d7b64be9e3"], +Cell[32262, 903, 326, 5, 23, "Output",ExpressionUUID->"d62f5506-7706-cc42-8c58-67026a3d210d"] +}, Open ]], +Cell[32603, 911, 175, 2, 21, "Input",ExpressionUUID->"85153c64-3ee0-b545-802b-0660958a54a9"], +Cell[CellGroupData[{ +Cell[32803, 917, 251, 4, 21, "Input",ExpressionUUID->"81fd5cca-b4e6-eb4f-b249-e58b286958b5"], +Cell[33057, 923, 324, 5, 23, "Output",ExpressionUUID->"1afbd77d-e4f1-9e4e-a752-ba98d7dd8f68"] +}, Open ]], +Cell[33396, 931, 171, 2, 21, "Input",ExpressionUUID->"e2b47040-d8c9-5e42-b8f2-74a7171d0d6c"], +Cell[CellGroupData[{ +Cell[33592, 937, 19809, 485, 1329, "Input",ExpressionUUID->"4f430795-a3f2-4043-afa8-6d125e5219dd"], +Cell[53404, 1424, 391, 6, 23, "Output",ExpressionUUID->"7420f7af-3ead-3749-b57a-eb08edde6396"] +}, Open ]], +Cell[CellGroupData[{ +Cell[53832, 1435, 19748, 489, 1336, "Input",ExpressionUUID->"40979b35-fde6-2047-a3c0-d71f140ab8aa"], +Cell[73583, 1926, 394, 6, 23, "Output",ExpressionUUID->"16380e18-1ba2-444a-91a0-c6070e2921b5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[74014, 1937, 19748, 483, 1338, "Input",ExpressionUUID->"19bf37a0-5998-014c-ba51-61b4a081bdf5"], +Cell[93765, 2422, 409, 7, 23, "Output",ExpressionUUID->"26cd2065-73d9-7344-938f-decccc4dfb84"] +}, Open ]], +Cell[CellGroupData[{ +Cell[94211, 2434, 22534, 553, 1483, "Input",ExpressionUUID->"a27eec37-110d-6245-9258-0590846070f3"], +Cell[116748, 2989, 409, 7, 23, "Output",ExpressionUUID->"bbb9b121-e262-504c-9c61-e85849cc878d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[117194, 3001, 22535, 553, 1482, "Input",ExpressionUUID->"dea08646-8790-374a-b1e1-a9f90787270f"], +Cell[139732, 3556, 406, 7, 23, "Output",ExpressionUUID->"5ee9861a-4264-b14c-8de5-482f38cf2131"] +}, Open ]], +Cell[CellGroupData[{ +Cell[140175, 3568, 25491, 626, 1642, "Input",ExpressionUUID->"790e8edf-0829-964a-8673-ab402f0052eb"], +Cell[165669, 4196, 402, 7, 23, "Output",ExpressionUUID->"d5b4f3ac-6f08-6141-bc2d-64ad2febbb93"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166108, 4208, 130, 2, 21, "Input",ExpressionUUID->"ae47a8e6-15de-3a4d-a0e3-606d1abc5204"], +Cell[166241, 4212, 370, 6, 23, "Output",ExpressionUUID->"500adfe9-84db-5a43-a44b-e46eb6948f0a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166648, 4223, 130, 2, 21, "Input",ExpressionUUID->"511ac548-1ba3-b447-aed3-6201a9681039"], +Cell[166781, 4227, 374, 6, 23, "Output",ExpressionUUID->"02d09e2d-5dc5-4d4e-9301-1aa44abf122b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[167192, 4238, 1144, 39, 41, "Input",ExpressionUUID->"71a53709-0931-9b46-9464-a9642603eac2"], +Cell[168339, 4279, 392, 6, 23, "Output",ExpressionUUID->"b795c298-e60e-5e43-b690-6425a2f89817"] +}, Open ]], +Cell[CellGroupData[{ +Cell[168768, 4290, 1041, 35, 41, "Input",ExpressionUUID->"02b71010-ebeb-5c45-b62e-6e5da40a9039"], +Cell[169812, 4327, 409, 7, 23, "Output",ExpressionUUID->"bce8972c-aae9-594f-a717-db8b9a6eea60"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170258, 4339, 1144, 39, 41, "Input",ExpressionUUID->"4105a2bc-885a-9c49-9823-cadb72617b61"], +Cell[171405, 4380, 395, 6, 23, "Output",ExpressionUUID->"0a8b86b4-75eb-e84f-8bdd-c72755283be1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[171837, 4391, 108, 1, 21, "Input",ExpressionUUID->"c0b972e2-1e2a-924c-b12e-ff655675d5ee"], +Cell[171948, 4394, 390, 6, 23, "Output",ExpressionUUID->"e0a2bfa6-f075-014f-a694-d286331585d9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172375, 4405, 108, 1, 21, "Input",ExpressionUUID->"7bbd518d-ee7d-f34a-afa5-93d250bf1681"], +Cell[172486, 4408, 417, 7, 23, "Output",ExpressionUUID->"875e5cc6-c373-d641-9031-615e901dd210"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172940, 4420, 108, 1, 21, "Input",ExpressionUUID->"959162e6-9a6e-ff45-9bbc-85b0866303eb"], +Cell[173051, 4423, 405, 7, 23, "Output",ExpressionUUID->"262fb303-2a81-7248-b989-9cbbe23eafbc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173493, 4435, 108, 1, 21, "Input",ExpressionUUID->"8086e113-5e34-1043-804a-fd3fefeeaf1a"], +Cell[173604, 4438, 393, 6, 23, "Output",ExpressionUUID->"e10a9c4d-04a8-914e-9890-a9ff43611f53"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174034, 4449, 107, 1, 21, "Input",ExpressionUUID->"c1230acc-9188-a146-be4a-d76917ffbc66"], +Cell[174144, 4452, 393, 6, 23, "Output",ExpressionUUID->"2c8c8238-6710-b542-a3c3-5487b2f0b4c6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174574, 4463, 107, 1, 21, "Input",ExpressionUUID->"70656adf-941f-8147-afa8-d0eb1c319a31"], +Cell[174684, 4466, 393, 6, 23, "Output",ExpressionUUID->"a3166d3c-9424-2540-8974-1666e9b456af"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175114, 4477, 497, 16, 41, "Input",ExpressionUUID->"8649d9fb-b2b4-6c49-893b-2df07ccbf42c"], +Cell[175614, 4495, 407, 7, 23, "Output",ExpressionUUID->"1915069e-4cc5-ed4b-abbb-12dfc4f2569a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176058, 4507, 497, 16, 41, "Input",ExpressionUUID->"fc6dce02-59c7-ea44-a554-a4bdca467974"], +Cell[176558, 4525, 406, 7, 23, "Output",ExpressionUUID->"bdd0feb8-60af-344c-b34d-53179761962a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[177001, 4537, 1788, 60, 81, "Input",ExpressionUUID->"adae67d7-bc50-7649-b94d-fec5a188ac2e"], +Cell[178792, 4599, 389, 6, 23, "Output",ExpressionUUID->"6ae1ed77-4f9f-894e-93af-1f29b62a8885"] +}, Open ]], +Cell[CellGroupData[{ +Cell[179218, 4610, 1101, 36, 41, "Input",ExpressionUUID->"bfe0d5b4-f04e-e44b-851a-766cd65ca74f"], +Cell[180322, 4648, 411, 7, 23, "Output",ExpressionUUID->"ae1c0e86-c544-ea47-a538-4c064b6f2b72"] +}, Open ]], +Cell[CellGroupData[{ +Cell[180770, 4660, 1818, 61, 81, "Input",ExpressionUUID->"bfed6d3b-d506-874a-8c92-a614da11466e"], +Cell[182591, 4723, 390, 6, 23, "Output",ExpressionUUID->"9db746cf-bd78-e546-83a7-38575de37952"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183018, 4734, 2499, 77, 36, "Input",ExpressionUUID->"2c5fdb57-2b2e-504d-af64-a4390c61ddf3"], +Cell[185520, 4813, 390, 6, 23, "Output",ExpressionUUID->"ff42d3d0-e9e4-6b49-88aa-8b2b8df42faa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185947, 4824, 2499, 77, 36, "Input",ExpressionUUID->"0e044b6a-eca5-8043-907f-b0d8a935429c"], +Cell[188449, 4903, 391, 6, 23, "Output",ExpressionUUID->"44bd3aa8-99e1-5a4e-ba1b-32ddb86158a9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188877, 4914, 209, 3, 21, "Input",ExpressionUUID->"58382c59-dd64-b449-aa77-b500c631729a"], +Cell[189089, 4919, 190, 2, 23, "Output",ExpressionUUID->"f1bbbdee-ed4c-1c45-9f1d-f9076c5ff6df"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189316, 4926, 211, 3, 21, "Input",ExpressionUUID->"1e2a9573-08d6-094d-b2f8-1c2ad58521b5"], +Cell[189530, 4931, 190, 2, 23, "Output",ExpressionUUID->"08db4283-ed4b-4449-9000-7264777672f8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189757, 4938, 1297, 42, 35, "Input",ExpressionUUID->"ee9e3f9b-cd15-314a-959e-23f6767d8629"], +Cell[191057, 4982, 193, 2, 23, "Output",ExpressionUUID->"c5fca004-4066-954a-91e6-e6f81e869e6d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191287, 4989, 927, 29, 41, "Input",ExpressionUUID->"edc47846-771c-164b-bedc-99ac8c0783df"], +Cell[192217, 5020, 196, 2, 23, "Output",ExpressionUUID->"920ed119-6d3d-ef41-b24c-9edc81255f65"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192450, 5027, 985, 32, 41, "Input",ExpressionUUID->"a1f930ec-56b4-2f43-abd0-dd8b8a4708b1"], +Cell[193438, 5061, 197, 2, 23, "Output",ExpressionUUID->"cf34a479-4552-6d4e-b5a3-dca5051d9d53"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193672, 5068, 554, 18, 38, "Input",ExpressionUUID->"41ba9715-7e52-a24a-aa04-cf2166cf0dfa"], +Cell[194229, 5088, 192, 2, 23, "Output",ExpressionUUID->"55dcbc68-472e-9b45-852c-a595ff441c37"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194458, 5095, 647, 21, 38, "Input",ExpressionUUID->"163fb4a0-76e7-4649-86cb-bfaf41944c98"], +Cell[195108, 5118, 187, 2, 23, "Output",ExpressionUUID->"94f3dc60-b60a-6a48-b91e-aef89a6e24ce"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195332, 5125, 166, 4, 41, "Input",ExpressionUUID->"5f0f180a-aa4c-dd4b-bdd8-1378a8fe1b95"], +Cell[195501, 5131, 193, 2, 23, "Output",ExpressionUUID->"0cb20c04-93ab-4c49-98d8-85a98afa9f47"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195731, 5138, 166, 4, 40, "Input",ExpressionUUID->"1922f255-2223-ac46-b784-0bce07b8e6a9"], +Cell[195900, 5144, 187, 2, 23, "Output",ExpressionUUID->"47a33522-af54-0a45-b000-1b27fa13dd11"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196124, 5151, 177, 4, 32, "Input",ExpressionUUID->"ef536efb-880a-d543-b7af-57dde3479623"], +Cell[196304, 5157, 191, 2, 23, "Output",ExpressionUUID->"dacfb8cd-894d-2443-b9c4-f66e52a81132"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196532, 5164, 177, 4, 32, "Input",ExpressionUUID->"23ab10a2-3c20-0544-ade1-f1d12ec5aec2"], +Cell[196712, 5170, 190, 2, 23, "Output",ExpressionUUID->"89a0b9ee-2690-a34c-ac14-56ed151c8ba3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196939, 5177, 6051, 184, 242, "Input",ExpressionUUID->"aca75c7d-c5bb-8b47-872f-20148e5c7111"], +Cell[202993, 5363, 193, 2, 23, "Output",ExpressionUUID->"b7f17378-ae8f-8a4c-8619-70ee881b39c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[203223, 5370, 364, 8, 29, "Input",ExpressionUUID->"cd1abe66-0480-c04d-bbfd-f65271be3b80"], +Cell[203590, 5380, 189, 2, 23, "Output",ExpressionUUID->"991d1bde-412b-8e44-beb9-56079748f38b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[203816, 5387, 6118, 186, 242, "Input",ExpressionUUID->"c96cc89e-a2d4-f442-8558-837587935139"], +Cell[209937, 5575, 196, 2, 23, "Output",ExpressionUUID->"455fbf97-3fcb-5948-a490-a64b84693d94"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210170, 5582, 364, 8, 29, "Input",ExpressionUUID->"1997c8c5-b99e-0343-82de-11d88a9a1347"], +Cell[210537, 5592, 189, 2, 23, "Output",ExpressionUUID->"bba0c568-37d5-e043-9bc7-207daf324f5e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210763, 5599, 2659, 87, 121, "Input",ExpressionUUID->"b151d79d-271f-514b-8b93-936c1a72f6cb"], +Cell[213425, 5688, 189, 2, 23, "Output",ExpressionUUID->"3e21c97f-0daf-5543-a954-ef04b0455527"] +}, Open ]], +Cell[CellGroupData[{ +Cell[213651, 5695, 2599, 84, 121, "Input",ExpressionUUID->"ca085857-4c01-0248-853e-e9dc47d19120"], +Cell[216253, 5781, 190, 2, 23, "Output",ExpressionUUID->"d352d455-3052-b546-8375-1c606f4f65b8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[216480, 5788, 3708, 117, 178, "Input",ExpressionUUID->"953e3c2f-fb9c-3f46-89c8-95be764d13e2"], +Cell[220191, 5907, 190, 2, 23, "Output",ExpressionUUID->"6fe5344e-63e5-dd43-89ea-91a605b576bf"] +}, Open ]], +Cell[220396, 5912, 160, 3, 29, "Input",ExpressionUUID->"ea9dfb1b-57ad-0148-b647-106c07557f97"], +Cell[CellGroupData[{ +Cell[220581, 5919, 2073, 58, 83, "Input",ExpressionUUID->"b8b3f009-678c-e54b-8a0c-4de3179a9fb0"], +Cell[222657, 5979, 550, 11, 44, "Message",ExpressionUUID->"0d8aa19f-2d03-604c-8faf-7a1893a3096f"], +Cell[223210, 5992, 555, 11, 44, "Message",ExpressionUUID->"91d39584-f1e9-1641-8c25-c525b30d1a86"], +Cell[223768, 6005, 557, 11, 44, "Message",ExpressionUUID->"4e985c69-4e22-784c-848a-4a04a11e08e2"], +Cell[224328, 6018, 477, 10, 18, "Message",ExpressionUUID->"8a2e98d1-96d0-e548-b622-f83ea2d6e690"], +Cell[224808, 6030, 190, 2, 23, "Output",ExpressionUUID->"354699f2-0a91-c44f-a9e6-8537dac067d8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[225035, 6037, 2073, 58, 83, "Input",ExpressionUUID->"d9fdb976-d745-4c44-9c66-2929c00590fc"], +Cell[227111, 6097, 548, 11, 44, "Message",ExpressionUUID->"4a14d5fc-c4a8-0243-969b-f80ee10b53e3"], +Cell[227662, 6110, 553, 11, 44, "Message",ExpressionUUID->"3dcf1e01-9ab3-214b-8ea5-137076d45e2d"], +Cell[228218, 6123, 553, 11, 44, "Message",ExpressionUUID->"3f73be19-027e-fe4d-8c4c-5cbebd108aa5"], +Cell[228774, 6136, 478, 10, 18, "Message",ExpressionUUID->"4740b54e-e341-5e4f-ad37-8c51ce73fa06"], +Cell[229255, 6148, 190, 2, 23, "Output",ExpressionUUID->"090362cc-a4b7-1147-8131-58262e0ffe5b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[229482, 6155, 1957, 52, 62, "Input",ExpressionUUID->"a3abef6a-80f9-8c44-ac94-1eacd8c5b802"], +Cell[231442, 6209, 20479, 383, 166, "Output",ExpressionUUID->"a3167d2c-5d61-2b40-a6f1-07bc367eb59a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[251958, 6597, 2139, 59, 83, "Input",ExpressionUUID->"5b0c09f8-5e46-a545-8946-a08264de1b62"], +Cell[254100, 6658, 511, 11, 30, "Message",ExpressionUUID->"2a3613cc-8856-d442-b625-b485082d49aa"], +Cell[254614, 6671, 513, 11, 30, "Message",ExpressionUUID->"9c1d0f2a-3e3c-e84f-968d-8f382ef15056"], +Cell[255130, 6684, 515, 11, 30, "Message",ExpressionUUID->"4325ddd5-2866-224a-96c8-8f4b8fcd3b9b"], +Cell[255648, 6697, 478, 10, 18, "Message",ExpressionUUID->"9fa5a028-a5a8-2441-8ae4-c28446848de5"], +Cell[256129, 6709, 22454, 414, 163, "Output",ExpressionUUID->"c6b9c42d-543e-934c-b745-098fa5a900f3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[278620, 7128, 1888, 50, 57, "Input",ExpressionUUID->"a890eeb1-6bca-424f-a8f9-1a35c4cca33c"], +Cell[280511, 7180, 8995, 209, 168, "Output",ExpressionUUID->"f2daac46-dad8-2249-a0db-4787ed63d6c3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[289543, 7394, 276, 5, 29, "Input",ExpressionUUID->"b1f266e4-128a-e44e-90be-31846216bd9c"], +Cell[289822, 7401, 28468, 539, 163, "Output",ExpressionUUID->"3dc75e34-5270-844b-802c-74a3ff117b72"] +}, Open ]], +Cell[CellGroupData[{ +Cell[318327, 7945, 234, 6, 35, "Input",ExpressionUUID->"15c72253-d078-7f43-9f29-7ac094706013"], +Cell[318564, 7953, 188, 2, 23, "Output",ExpressionUUID->"77f349a4-d64f-cf46-b97e-07e7bad3b23d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[318789, 7960, 1835, 52, 83, "Input",ExpressionUUID->"8ab23ce3-6dd3-7740-bde2-eb9eba4ac874"], +Cell[320627, 8014, 512, 11, 30, "Message",ExpressionUUID->"2706148a-c11b-af46-8b16-ab3aefb68e97"], +Cell[321142, 8027, 517, 11, 30, "Message",ExpressionUUID->"34ab4ebb-0893-9a40-aab7-6cbe40c26f92"], +Cell[321662, 8040, 517, 11, 30, "Message",ExpressionUUID->"c2d37903-5d14-b340-bd5e-b4ee36fc17eb"], +Cell[322182, 8053, 476, 10, 18, "Message",ExpressionUUID->"532b2c9c-1bba-ff41-89f5-9cd17d43504c"], +Cell[322661, 8065, 22246, 411, 162, "Output",ExpressionUUID->"3280d894-c085-6549-9181-aacf8e50ed2d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[344944, 8481, 1612, 47, 62, "Input",ExpressionUUID->"6f4b7e44-0b17-c840-a01f-706fcd68fd89"], +Cell[346559, 8530, 552, 11, 44, "Message",ExpressionUUID->"00b7eb07-73b9-c747-a2f2-79534efb705f"], +Cell[347114, 8543, 557, 11, 44, "Message",ExpressionUUID->"e08402ab-15fb-4742-9c42-6cfd41908add"], +Cell[347674, 8556, 557, 11, 44, "Message",ExpressionUUID->"2f6f0f21-211b-dc4d-bb95-da4fb58b7950"], +Cell[348234, 8569, 478, 10, 18, "Message",ExpressionUUID->"5748e145-acc9-4040-b1f8-1e86d34bb3ee"], +Cell[348715, 8581, 191, 2, 23, "Output",ExpressionUUID->"5b469605-a154-9743-bd68-7280e6f510de"] +}, Open ]], +Cell[CellGroupData[{ +Cell[348943, 8588, 2274, 64, 89, "Input",ExpressionUUID->"55574de4-5bf4-6a47-8b7c-0502360e0741"], +Cell[351220, 8654, 554, 11, 44, "Message",ExpressionUUID->"4385c333-92ae-c14d-b940-cd56ce732a47"], +Cell[351777, 8667, 555, 11, 44, "Message",ExpressionUUID->"799c7baa-0323-c749-9ea1-fd0489794d1e"], +Cell[352335, 8680, 559, 11, 44, "Message",ExpressionUUID->"86851959-c648-5743-8719-345e1a58051f"], +Cell[352897, 8693, 480, 10, 18, "Message",ExpressionUUID->"bf971445-bcf4-6f43-918c-836dc109e476"], +Cell[353380, 8705, 195, 3, 33, "Output",ExpressionUUID->"047dc513-0eba-cd43-99e3-69f89ef5084d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[353612, 8713, 2242, 64, 56, "Input",ExpressionUUID->"a62e28a7-2963-b449-b2d2-4774e534a560"], +Cell[355857, 8779, 552, 11, 44, "Message",ExpressionUUID->"2e0bed5e-762a-544b-9d6d-33d50b62d5f5"], +Cell[356412, 8792, 555, 11, 44, "Message",ExpressionUUID->"fb525e83-cdea-a343-8254-f578369fa513"], +Cell[356970, 8805, 557, 11, 44, "Message",ExpressionUUID->"313c8612-d3ca-7e47-9cbc-3c29087d192e"], +Cell[357530, 8818, 480, 10, 18, "Message",ExpressionUUID->"c05943a9-411a-8641-b8ae-aacbf8b3492d"], +Cell[358013, 8830, 197, 3, 33, "Output",ExpressionUUID->"fc9aba4c-0c07-2343-ad56-16cfc3ecb94d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[358247, 8838, 2242, 64, 56, "Input",ExpressionUUID->"9dbddde0-a221-414e-bf4d-6be0dfb61fa1"], +Cell[360492, 8904, 552, 11, 44, "Message",ExpressionUUID->"6dcf4964-6d63-3641-b23e-cd4323f213f3"], +Cell[361047, 8917, 555, 11, 44, "Message",ExpressionUUID->"97157cbc-6fe5-584b-afac-48a432be4327"], +Cell[361605, 8930, 559, 11, 44, "Message",ExpressionUUID->"f087df99-1dfd-c24c-9f79-db03cd027684"], +Cell[362167, 8943, 480, 10, 18, "Message",ExpressionUUID->"3a9cb772-c110-724e-86f6-47887d15c2ad"], +Cell[362650, 8955, 194, 3, 33, "Output",ExpressionUUID->"9893f8c6-e819-1140-9d9a-3c90e5d360ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362881, 8963, 234, 6, 34, "Input",ExpressionUUID->"a4f97f96-646f-ae45-96cc-9c4165440b9d"], +Cell[363118, 8971, 197, 3, 33, "Output",ExpressionUUID->"1e8dcfa4-9b9b-bf40-a448-dfd73e13bff0"] +}, Open ]], +Cell[363330, 8977, 273, 6, 29, "Input",ExpressionUUID->"35c63783-19fc-b040-b8f7-ef972ba7b6ed"], +Cell[CellGroupData[{ +Cell[363628, 8987, 558, 19, 38, "Input",ExpressionUUID->"82776c92-7c10-2f45-a63e-50057ffca54a"], +Cell[364189, 9008, 196, 3, 33, "Output",ExpressionUUID->"c4149dd4-cec3-3e46-a4c0-0c26d6c6a8d6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364422, 9016, 170, 5, 41, "Input",ExpressionUUID->"a56d8b01-6731-b840-bb77-f7f462892539"], +Cell[364595, 9023, 194, 3, 33, "Output",ExpressionUUID->"d394585e-453b-504e-a65f-eea7e94d3ff3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364826, 9031, 181, 5, 32, "Input",ExpressionUUID->"d4bf0543-67ce-024d-a419-60bff835c466"], +Cell[365010, 9038, 194, 3, 33, "Output",ExpressionUUID->"13e6abbe-904d-b646-ba9e-ca0b566d5104"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365241, 9046, 6055, 185, 242, "Input",ExpressionUUID->"276e96f1-558d-9846-adb4-2350594341f3"], +Cell[371299, 9233, 195, 3, 33, "Output",ExpressionUUID->"34dfacf3-7ca4-ca47-b50c-47b9ddf59a69"] +}, Open ]], +Cell[CellGroupData[{ +Cell[371531, 9241, 368, 9, 29, "Input",ExpressionUUID->"fff85ae9-ba42-8247-a314-19fd83d5dbdb"], +Cell[371902, 9252, 196, 3, 33, "Output",ExpressionUUID->"793939ee-555a-a14f-b5c7-8950988b549e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[372135, 9260, 6122, 187, 242, "Input",ExpressionUUID->"37b23358-bc27-224f-b5f7-62b1fc97e785"], +Cell[378260, 9449, 196, 3, 33, "Output",ExpressionUUID->"1c5b8d9f-802f-2f4e-82fd-de75316d5f45"] +}, Open ]], +Cell[CellGroupData[{ +Cell[378493, 9457, 368, 9, 29, "Input",ExpressionUUID->"eeb5992b-a45f-a14b-8a22-14af99af15e2"], +Cell[378864, 9468, 196, 3, 33, "Output",ExpressionUUID->"279115ac-a48f-f44a-b062-fbdd4a4143f4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[379097, 9476, 2663, 88, 121, "Input",ExpressionUUID->"6ddb4033-5394-f34c-95af-22d1f1297351"], +Cell[381763, 9566, 195, 3, 33, "Output",ExpressionUUID->"a13a27ee-7e77-9a48-9feb-6b7a8144ea92"] +}, Open ]], +Cell[CellGroupData[{ +Cell[381995, 9574, 2603, 85, 121, "Input",ExpressionUUID->"22b71737-ea19-a348-af70-a874963373f8"], +Cell[384601, 9661, 196, 3, 33, "Output",ExpressionUUID->"a1acd141-efa8-1848-8820-820934b1e7a1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[384834, 9669, 3712, 118, 178, "Input",ExpressionUUID->"08fab4d8-dc36-3f43-8a7e-9a5fa838c25d"], +Cell[388549, 9789, 195, 3, 33, "Output",ExpressionUUID->"7ce5da1a-7659-6541-9d70-77bb2aec996a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[388781, 9797, 2077, 59, 83, "Input",ExpressionUUID->"d3f05697-a372-2a42-8c9c-ccc9289a44b2"], +Cell[390861, 9858, 556, 11, 44, "Message",ExpressionUUID->"57eeb0ea-6382-fc40-99a9-6d8d7b8b8bf7"], +Cell[391420, 9871, 562, 11, 44, "Message",ExpressionUUID->"c5a4ddbd-115b-c748-9813-72b25fbeccdd"], +Cell[391985, 9884, 562, 11, 44, "Message",ExpressionUUID->"86efd003-fd1f-0344-b205-7b67c00bdc53"], +Cell[392550, 9897, 480, 10, 18, "Message",ExpressionUUID->"6e635c9b-2ed3-5546-aed7-b81793c581cc"], +Cell[393033, 9909, 193, 3, 33, "Output",ExpressionUUID->"b0ccf111-5f22-c64f-b40b-cc80b048c5d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[393263, 9917, 2075, 59, 83, "Input",ExpressionUUID->"7ddfee1b-0897-3d44-810e-ee309c4e8981"], +Cell[395341, 9978, 556, 11, 44, "Message",ExpressionUUID->"54f9d314-4fa3-d740-a0cd-6d818f3d0044"], +Cell[395900, 9991, 560, 11, 44, "Message",ExpressionUUID->"65c64c97-79ba-844f-868d-0b913a4f3f71"], +Cell[396463, 10004, 564, 11, 44, "Message",ExpressionUUID->"71ecee3b-b3c2-bd41-bfbf-f4d899dabdb1"], +Cell[397030, 10017, 478, 10, 18, "Message",ExpressionUUID->"3d8fc746-9c71-b342-bd17-dec6be3e4945"], +Cell[397511, 10029, 195, 3, 33, "Output",ExpressionUUID->"0aded2fb-7a9c-f240-8bfa-11e4e842af6f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[397743, 10037, 2053, 55, 48, "Input",ExpressionUUID->"edc0f744-d665-ee48-9e1d-32ecc25a02c4"], +Cell[399799, 10094, 20193, 379, 176, "Output",ExpressionUUID->"f1b40fd2-7980-8346-ab14-cf5674e772cd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[420029, 10478, 2117, 60, 83, "Input",ExpressionUUID->"556a1eda-5f63-f94a-8981-af3901893679"], +Cell[422149, 10540, 516, 11, 30, "Message",ExpressionUUID->"9e839ac1-e2c8-2c4d-82a0-19193c9fd41e"], +Cell[422668, 10553, 520, 11, 30, "Message",ExpressionUUID->"7765b859-1c01-0743-84ba-03b719869aa8"], +Cell[423191, 10566, 521, 11, 30, "Message",ExpressionUUID->"006179d3-b320-3944-9aae-e683ba724381"], +Cell[423715, 10579, 482, 10, 18, "Message",ExpressionUUID->"ed158082-d012-b249-a31a-50725a643a42"], +Cell[424200, 10591, 21918, 406, 173, "Output",ExpressionUUID->"a22520ef-cc3e-854d-84c1-b89f5d659d36"] +}, Open ]], +Cell[CellGroupData[{ +Cell[446155, 11002, 280, 6, 29, "Input",ExpressionUUID->"adc3c3bb-baff-7c45-bc8f-885e51cde7ff"], +Cell[446438, 11010, 27929, 531, 173, "Output",ExpressionUUID->"1b7f9284-ec61-fe47-95a1-ec06d683adbe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[474404, 11546, 1616, 48, 62, "Input",ExpressionUUID->"1ecbbb3f-ee46-da42-8494-bab66d31929d"], +Cell[476023, 11596, 567, 11, 44, "Message",ExpressionUUID->"627ad5ce-21df-cf40-8926-6bf5292da336"], +Cell[476593, 11609, 577, 12, 44, "Message",ExpressionUUID->"f0d830b1-d9cc-fd4b-a582-a01ae019036b"], +Cell[477173, 11623, 578, 12, 32, "Message",ExpressionUUID->"4c66dc37-f4b9-b048-abc1-661649c2aa1a"], +Cell[477754, 11637, 482, 10, 18, "Message",ExpressionUUID->"9a3049df-9bf9-4d44-bd39-53307bd19da4"], +Cell[478239, 11649, 197, 3, 33, "Output",ExpressionUUID->"1909a5e5-6960-5345-857f-4ecfb3a546b9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[478473, 11657, 2274, 64, 89, "Input",ExpressionUUID->"fc5d2c23-4a6f-a449-ab65-d4efe503e761"], +Cell[480750, 11723, 560, 11, 44, "Message",ExpressionUUID->"fc528c7c-714d-5c4c-bf5e-509102455a2e"], +Cell[481313, 11736, 562, 11, 44, "Message",ExpressionUUID->"6800c1f2-7581-a848-b1d3-e289f1e3273b"], +Cell[481878, 11749, 566, 11, 44, "Message",ExpressionUUID->"2e2d206a-1224-4344-bdb1-7ecb82086ce7"], +Cell[482447, 11762, 480, 10, 18, "Message",ExpressionUUID->"1cc67c85-c732-f84c-89f6-365b1760ca3e"], +Cell[482930, 11774, 197, 3, 33, "Output",ExpressionUUID->"fa6f6401-5cef-5d4f-beb6-006db9a4de09"] +}, Open ]], +Cell[CellGroupData[{ +Cell[483164, 11782, 2244, 64, 56, "Input",ExpressionUUID->"43c7013a-a6e2-1a44-9690-1cefd2c28187"], +Cell[485411, 11848, 560, 11, 44, "Message",ExpressionUUID->"3ce57a77-3c6d-9a4f-839f-5dcd4c178a63"], +Cell[485974, 11861, 564, 11, 44, "Message",ExpressionUUID->"d49b67a3-ec83-6d41-951b-46c9d580a437"], +Cell[486541, 11874, 566, 11, 44, "Message",ExpressionUUID->"2cb7d0e9-8e97-0b49-bc34-22e3680d2bc6"], +Cell[487110, 11887, 480, 10, 18, "Message",ExpressionUUID->"0f3bfa69-8e37-ba42-b9ac-4d274eb2b67f"], +Cell[487593, 11899, 192, 3, 33, "Output",ExpressionUUID->"e2e338c7-99c3-c644-8941-4f6b9f186bd0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[487822, 11907, 2241, 64, 56, "Input",ExpressionUUID->"41fb449c-01a0-ed48-856e-cc313bd0a6c7"], +Cell[490066, 11973, 558, 11, 44, "Message",ExpressionUUID->"3fcf00d2-ecb9-e24e-99db-9fbf4a83ab1e"], +Cell[490627, 11986, 560, 11, 44, "Message",ExpressionUUID->"2effae2b-37fd-de4e-ad85-af94a7c35cee"], +Cell[491190, 11999, 564, 11, 44, "Message",ExpressionUUID->"e5474320-47cb-4f4f-8742-02984dce80ff"], +Cell[491757, 12012, 478, 10, 18, "Message",ExpressionUUID->"90407195-ddb8-dd40-9140-6d5a24513513"], +Cell[492238, 12024, 195, 3, 33, "Output",ExpressionUUID->"7e753d70-17d1-aa41-9424-56f560bb614d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[492470, 12032, 234, 6, 34, "Input",ExpressionUUID->"63e2fa1e-7c56-c749-a270-c9c703386fca"], +Cell[492707, 12040, 197, 3, 33, "Output",ExpressionUUID->"6f359ccc-f2ea-df45-8324-d3c1f3cdabb7"] +}, Open ]], +Cell[492919, 12046, 271, 6, 29, "Input",ExpressionUUID->"8b2e971d-5760-5e43-92fb-a0baf224e1e6"], +Cell[CellGroupData[{ +Cell[493215, 12056, 558, 19, 38, "Input",ExpressionUUID->"ed5b29da-ad52-224c-9e8e-5cfb6cba7ae5"], +Cell[493776, 12077, 194, 3, 33, "Output",ExpressionUUID->"c53513f5-9f67-4b49-a326-46b63fd8b115"] +}, Open ]], +Cell[CellGroupData[{ +Cell[494007, 12085, 170, 5, 41, "Input",ExpressionUUID->"52bec50b-93fb-4b4d-b447-2d6401f3d9c3"], +Cell[494180, 12092, 197, 3, 33, "Output",ExpressionUUID->"c34ec96c-681c-164c-8547-da490ccf1c7a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[494414, 12100, 181, 5, 32, "Input",ExpressionUUID->"1256eede-590d-b745-a810-815fbd90d864"], +Cell[494598, 12107, 196, 3, 33, "Output",ExpressionUUID->"df14ac07-ba73-c14f-940e-24521ea0e685"] +}, Open ]], +Cell[CellGroupData[{ +Cell[494831, 12115, 6055, 185, 242, "Input",ExpressionUUID->"26b3e9a1-c12d-c340-b102-39e3418b2423"], +Cell[500889, 12302, 197, 3, 33, "Output",ExpressionUUID->"2967dff1-c855-8345-8544-ba061bff582e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[501123, 12310, 368, 9, 29, "Input",ExpressionUUID->"f1c368f7-48c1-ae41-985d-84d539f430bf"], +Cell[501494, 12321, 194, 3, 33, "Output",ExpressionUUID->"431adf07-bff5-654a-bdc4-e8d324ad377b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[501725, 12329, 6122, 187, 350, "Input",ExpressionUUID->"8303e334-ad11-5445-af0f-63c02c371294"], +Cell[507850, 12518, 198, 3, 22, "Output",ExpressionUUID->"915e2ed5-03c1-8042-b24d-7d344e476d39"] +}, Open ]], +Cell[CellGroupData[{ +Cell[508085, 12526, 368, 9, 29, "Input",ExpressionUUID->"9a6f9d0e-1f18-634f-a091-d3e4beab45d1"], +Cell[508456, 12537, 195, 3, 22, "Output",ExpressionUUID->"7a385866-d9ef-a548-9f8a-a6ef260cf4ce"] +}, Open ]], +Cell[CellGroupData[{ +Cell[508688, 12545, 2663, 88, 131, "Input",ExpressionUUID->"d36c329f-0f97-3149-b3e7-38d2ece236d0"], +Cell[511354, 12635, 193, 3, 22, "Output",ExpressionUUID->"7f856b82-0e34-e249-9323-d4b51f6eb30e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[511584, 12643, 2603, 85, 115, "Input",ExpressionUUID->"9d78a1b5-e3d2-144d-9443-73ce54c6aaab"], +Cell[514190, 12730, 198, 3, 22, "Output",ExpressionUUID->"c045046b-d790-ed42-85e6-54a152135051"] +}, Open ]], +Cell[CellGroupData[{ +Cell[514425, 12738, 3712, 118, 244, "Input",ExpressionUUID->"66c99cb8-7b1e-c84b-9bf9-362f26e0fb97"], +Cell[518140, 12858, 196, 3, 22, "Output",ExpressionUUID->"62def4ea-96ef-3b4b-91b1-a0fad8508e30"] +}, Open ]], +Cell[CellGroupData[{ +Cell[518373, 12866, 2073, 59, 160, "Input",ExpressionUUID->"f0de9d8e-43d1-8b49-87d3-7f90d7e4f5e3"], +Cell[520449, 12927, 557, 11, 42, "Message",ExpressionUUID->"904a71cb-4485-6e42-b43f-768d29311072"], +Cell[521009, 12940, 560, 11, 42, "Message",ExpressionUUID->"2a9194d1-fa31-5e4a-9980-ebd885742673"], +Cell[521572, 12953, 565, 11, 42, "Message",ExpressionUUID->"83c2f634-b7ea-b34a-8fcb-80fe407c5782"], +Cell[522140, 12966, 480, 10, 18, "Message",ExpressionUUID->"bda5fa46-976e-ad45-a911-36e5d44989ee"], +Cell[522623, 12978, 196, 3, 22, "Output",ExpressionUUID->"141a8e5f-5e8e-2a4c-b7b5-f8a51f367f8b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[522856, 12986, 2077, 59, 160, "Input",ExpressionUUID->"61250ade-2a8a-1a4d-bb58-5bb7aa60c04a"], +Cell[524936, 13047, 557, 11, 42, "Message",ExpressionUUID->"4481646a-0c6d-5f4d-b8dd-d6f69274ec0b"], +Cell[525496, 13060, 560, 11, 42, "Message",ExpressionUUID->"bffccbf5-6c1a-484f-950f-25d7492a0ee6"], +Cell[526059, 13073, 565, 11, 42, "Message",ExpressionUUID->"c9b275cb-e48a-ea47-88af-6846ff84af48"], +Cell[526627, 13086, 478, 10, 18, "Message",ExpressionUUID->"2b19c04e-f165-8a4f-abe5-684757373997"], +Cell[527108, 13098, 197, 3, 22, "Output",ExpressionUUID->"98c6c2bc-4c90-4a40-bb8d-87c90e525ed0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[527342, 13106, 2051, 55, 112, "Input",ExpressionUUID->"020bdd6e-add3-0a46-9b39-04b7ffae8470"], +Cell[529396, 13163, 20209, 380, 166, "Output",ExpressionUUID->"2351f65c-c49a-a247-9231-90194a30be6b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[549642, 13548, 2117, 60, 147, "Input",ExpressionUUID->"5cbca01a-701c-5744-b740-3bf6288a42b7"], +Cell[551762, 13610, 518, 11, 42, "Message",ExpressionUUID->"df198f7d-67be-5644-9bdc-ae1db45bdbd2"], +Cell[552283, 13623, 519, 11, 42, "Message",ExpressionUUID->"61863a16-eeb4-b44a-b148-c97773a833c7"], +Cell[552805, 13636, 475, 10, 18, "Message",ExpressionUUID->"fa64c06e-85cf-b944-a59d-a162e2e0c8c7"], +Cell[553283, 13648, 482, 10, 18, "Message",ExpressionUUID->"bc26663d-0b94-c940-9d84-7f6ea41b4c35"], +Cell[553768, 13660, 21966, 406, 163, "Output",ExpressionUUID->"9d6bcf65-6dc6-334e-8fc7-c38f5e882bc2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[575771, 14071, 280, 6, 29, "Input",ExpressionUUID->"dfd70d8f-49d3-a04f-a31c-55e81ecceef1"], +Cell[576054, 14079, 27974, 531, 163, "Output",ExpressionUUID->"b2a0960c-9f94-c749-bd0e-a5be3d9ca59f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[604065, 14615, 1616, 48, 79, "Input",ExpressionUUID->"bd700bac-9ff0-794b-a1df-85afecca9797"], +Cell[605684, 14665, 568, 11, 59, "Message",ExpressionUUID->"b28bea99-5ddf-3c4a-a6ac-e42484f9a202"], +Cell[606255, 14678, 576, 12, 59, "Message",ExpressionUUID->"5e5bb057-199c-e44d-bc0c-db027ec04e8e"], +Cell[606834, 14692, 581, 12, 46, "Message",ExpressionUUID->"62db4c2f-47af-a340-9030-00e4f1268e77"], +Cell[607418, 14706, 482, 10, 18, "Message",ExpressionUUID->"f265bf8c-8076-ac4d-8311-e45258461b2e"], +Cell[607903, 14718, 195, 3, 22, "Output",ExpressionUUID->"3bcdd31a-af86-324e-b079-ae778dd7a06f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[608135, 14726, 2272, 64, 156, "Input",ExpressionUUID->"aa4ca102-401f-6c45-84ea-b21fa4222eb4"], +Cell[610410, 14792, 557, 11, 42, "Message",ExpressionUUID->"b8859e87-21c4-704f-9f2b-ea285720f99b"], +Cell[610970, 14805, 562, 11, 42, "Message",ExpressionUUID->"262f6f64-4a4c-b445-b7ea-47725577f046"], +Cell[611535, 14818, 565, 11, 42, "Message",ExpressionUUID->"5deae5ff-c282-e745-a422-66e358c9efe3"], +Cell[612103, 14831, 478, 10, 18, "Message",ExpressionUUID->"31aa4854-e0de-df4c-9143-3374ced31dad"], +Cell[612584, 14843, 195, 3, 22, "Output",ExpressionUUID->"25b260d0-51d1-aa45-8cc8-305697504356"] +}, Open ]], +Cell[CellGroupData[{ +Cell[612816, 14851, 2246, 64, 113, "Input",ExpressionUUID->"6ecebc3a-297f-ad45-be0e-687cb63b6c02"], +Cell[615065, 14917, 559, 11, 42, "Message",ExpressionUUID->"9e98a6e1-acdb-4f4e-908c-cd07cb25f25d"], +Cell[615627, 14930, 564, 11, 42, "Message",ExpressionUUID->"54982d00-8e31-fe47-b233-2f600bf1bada"], +Cell[616194, 14943, 567, 11, 42, "Message",ExpressionUUID->"67486d44-82e7-c043-b04c-2b6805c8a707"], +Cell[616764, 14956, 480, 10, 18, "Message",ExpressionUUID->"8bb91b49-793d-484c-9f3a-6b4fd0d3293d"], +Cell[617247, 14968, 193, 3, 22, "Output",ExpressionUUID->"3c94e612-828b-3549-94b4-f3499dfb645a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[617477, 14976, 2244, 64, 113, "Input",ExpressionUUID->"f4d4d2f3-a6fe-7445-a71e-f1844b022d84"], +Cell[619724, 15042, 557, 11, 42, "Message",ExpressionUUID->"890cb829-aa79-1a45-8b4f-c95d2ff7be4c"], +Cell[620284, 15055, 562, 11, 42, "Message",ExpressionUUID->"e78fa290-2212-6042-8b79-ac0245f95600"], +Cell[620849, 15068, 565, 11, 42, "Message",ExpressionUUID->"975d7b90-5c0a-fa4e-83a3-b47770799399"], +Cell[621417, 15081, 480, 10, 18, "Message",ExpressionUUID->"27fd9c4e-9a28-5548-a80a-25b7bc5b29d2"], +Cell[621900, 15093, 197, 3, 22, "Output",ExpressionUUID->"e229ccbb-6f8b-a541-84c8-ca94e9243ef4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[622134, 15101, 235, 6, 33, "Input",ExpressionUUID->"84cd8b8a-60e5-9e4d-8a98-fd76363577db"], +Cell[622372, 15109, 197, 3, 22, "Output",ExpressionUUID->"effcf9ca-fa38-634c-a498-3d8843a70996"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_pr_Qw1.nb b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_pr_Qw1.nb new file mode 100755 index 0000000..f105527 --- /dev/null +++ b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_pr_Qw1.nb @@ -0,0 +1,17192 @@ +(* 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[ 747803, 17184] +NotebookOptionsPosition[ 707237, 16536] +NotebookOutlinePosition[ 707661, 16553] +CellTagsIndexPosition[ 707618, 16550] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "0.1"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.992086540831894*^9, 3.9920865523321934`*^9}, { + 3.992086586219898*^9, 3.992086610363735*^9}, {3.9920867343035507`*^9, + 3.992086784359892*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"5d7f3c58-d7ac-3d4c-9c2d-257c77b24176"], + +Cell[BoxData["0.1`"], "Output", + CellChangeTimes->{3.992086762207903*^9, 3.9920868028367424`*^9, + 3.9920882497506466`*^9, 3.992096040081213*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"c3602a97-797f-f440-a7e0-b2c915dfc2b5"] +}, Open ]], + +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.992085811016073*^9, 3.9920858120004807`*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"ee8d63c9-a14e-c94a-82d8-c1f927d307bc"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.9920860563908997`*^9, 3.992086267214739*^9, + 3.992086570082403*^9, 3.9920866008307095`*^9, 3.9920866670307636`*^9, { + 3.9920867754973392`*^9, 3.9920868028625736`*^9}, 3.9920882497646065`*^9, + 3.992096040154625*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"52dd1fed-951a-bd48-ae2b-baa5f1b7b122"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "58"}]], "Input", + CellChangeTimes->{3.9917123636954575`*^9, 3.9917930477498703`*^9, + 3.9920858245124893`*^9}, + CellLabel->"In[3]:=",ExpressionUUID->"ef10bfb7-3507-0940-9784-5e42848fe187"], + +Cell[BoxData["58"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9920860564147377`*^9, 3.9920862672333508`*^9, + 3.992086570087515*^9, 3.992086600854433*^9, 3.992086667052353*^9, { + 3.99208677552532*^9, 3.9920868028686295`*^9}, 3.992088249770609*^9, + 3.9920960401706505`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"d801ab99-6eb9-404e-832e-146cd836f3b5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"fd898102-cff3-554d-9374-c174a9ea61d0"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.991707828219631*^9, 3.9917123414174232`*^9, + 3.992086056442711*^9, 3.992086267243601*^9, 3.9920865701074047`*^9, + 3.992086600883713*^9, 3.9920866670570984`*^9, {3.9920867755491276`*^9, + 3.9920868028899593`*^9}, 3.992088249777603*^9, 3.9920960401866264`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"be54d355-3c29-a94d-a5ec-1b1bf27b9726"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"c2890b61-7dba-2c4d-a218-225236f18479"], + +Cell[BoxData["0.5577500000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.9917078282275677`*^9, 3.9917123414253197`*^9, + 3.992086056472231*^9, 3.9920862672656536`*^9, 3.9920865701119137`*^9, + 3.9920866009103184`*^9, 3.9920866670824966`*^9, {3.992086775556343*^9, + 3.9920868028954678`*^9}, 3.992088249791605*^9, 3.9920960401996403`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"88269f3a-ed33-c749-a99e-7fa5a60eb9d6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"a0a6203e-5cc8-2740-87c4-d31769f55e98"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9917078282485256`*^9, 3.9917123414324265`*^9, + 3.992086056479254*^9, 3.992086267270653*^9, 3.9920865701184216`*^9, + 3.9920866009393177`*^9, 3.9920866670875015`*^9, {3.992086775577345*^9, + 3.9920868029233513`*^9}, 3.9920882498046093`*^9, 3.9920960402196503`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"2cb2927c-7c1c-af4c-8c06-d68bed06dc7d"] +}, 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->"8050325e-c9cc-7d40-b36b-38d7056e1638"], + +Cell[BoxData["4.4902169031282435`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.9917078282706223`*^9, 3.9917123414384117`*^9, + 3.992086056511862*^9, 3.992086267275753*^9, 3.9920865701434135`*^9, + 3.9920866009463215`*^9, 3.992086667111265*^9, {3.992086775588663*^9, + 3.9920868029544296`*^9}, 3.9920882498183975`*^9, 3.99209604023464*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"d92d8fa8-4abc-4c4e-adcb-51945dcaea14"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"d9f99a55-33da-804c-a5ad-12b4e5c626e2"], + +Cell[BoxData["6.573779285392593`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.9917078282785244`*^9, 3.991712341447321*^9, + 3.9920860565348663`*^9, 3.99208626729467*^9, 3.9920865701494427`*^9, + 3.9920866009676666`*^9, 3.9920866671364613`*^9, {3.9920867756105766`*^9, + 3.992086802964319*^9}, 3.992088249831358*^9, 3.9920960402497883`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"01824095-28ab-6b4b-adc4-af432f4c1dc0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.363557285532272"}]], "Input", + CellChangeTimes->{ + 3.9917123951294365`*^9, 3.99179305435186*^9, {3.9920858393278446`*^9, + 3.9920858536690025`*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"9477f27d-2081-7c47-8d20-05a3e74706af"], + +Cell[BoxData["0.363557285532272`"], "Output", + CellChangeTimes->{ + 3.991319649862606*^9, 3.991707828301527*^9, 3.9917123414573193`*^9, + 3.991712407248003*^9, 3.9920860565659294`*^9, 3.992086267305723*^9, + 3.992086570171528*^9, 3.992086600972666*^9, 3.9920866671645985`*^9, { + 3.9920867756155777`*^9, 3.9920868029898014`*^9}, 3.99208824983893*^9, + 3.9920960402627735`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"ba5a9596-dc06-1646-a09f-674494303941"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "1.14032997838104"}]], "Input", + CellChangeTimes->{ + 3.9917124038115807`*^9, 3.991793052797516*^9, {3.992085843612673*^9, + 3.9920858505623627`*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"99b7f8c4-7cfc-9d4e-810a-d1155882fead"], + +Cell[BoxData["1.14032997838104`"], "Output", + CellChangeTimes->{ + 3.9913196498716316`*^9, 3.991707828308525*^9, 3.99171234146842*^9, + 3.9917124073213234`*^9, 3.992086056571884*^9, 3.9920862673247185`*^9, + 3.992086570200531*^9, 3.9920866009956837`*^9, 3.9920866671913986`*^9, { + 3.992086775620594*^9, 3.9920868029953136`*^9}, 3.9920882498584347`*^9, + 3.992096040280588*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"c84439a7-50c9-474f-9c85-fa5503683014"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"1b32eb30-e14d-b642-a59f-53a56514d218"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.9917078283276424`*^9, 3.991712341478319*^9, + 3.992086056594942*^9, 3.992086267342724*^9, 3.992086570206547*^9, + 3.992086601016636*^9, 3.992086667196371*^9, {3.9920867756454487`*^9, + 3.9920868030243797`*^9}, 3.992088249886444*^9, 3.992096040292101*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"d5664c75-ec2e-da44-8339-c3d34ea37979"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"f4f33272-860a-3a4b-b2b5-8a2f0726a180"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.99170782834754*^9, 3.9917123414863186`*^9, + 3.99208605659988*^9, 3.992086267369709*^9, 3.9920865702305107`*^9, + 3.992086601021658*^9, 3.992086667220396*^9, {3.9920867756661854`*^9, + 3.9920868030533276`*^9}, 3.9920882499034405`*^9, 3.9920960403026505`*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"a213880e-71da-6745-8d93-8ddb218231df"] +}, 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->"b22b95ef-a83a-ce41-b26b-4741d866a314"], + +Cell[BoxData["1.3932112707868565`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.991707968406042*^9, 3.9920860566229687`*^9, + 3.9920862673877125`*^9, 3.992086570250431*^9, 3.9920866010503235`*^9, + 3.9920866672243824`*^9, {3.9920867756911926`*^9, 3.992086803080593*^9}, + 3.9920882499104424`*^9, 3.992096040313648*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"d622455d-63c3-f548-aec6-7caeba4a16e4"] +}, 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->"ea2e33af-6a11-4c42-a04c-b0aac8218771"], + +Cell[BoxData["3.0097040215395996`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.9917079684291363`*^9, 3.992086056628895*^9, + 3.992086267395834*^9, 3.9920865702819977`*^9, 3.9920866010553265`*^9, + 3.992086667248516*^9, {3.992086775697193*^9, 3.992086803086094*^9}, + 3.992088249946493*^9, 3.9920960403256474`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"6d61b059-a28a-f244-8054-0037e8c4e589"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"1a4025d0-1e4d-3c43-9e67-c53ed88a9262"], + +Cell[BoxData["0.8492253700915684`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.991707968457081*^9, 3.9920860566568546`*^9, + 3.9920862674018364`*^9, 3.9920865702885704`*^9, 3.9920866010823193`*^9, + 3.9920866672535152`*^9, {3.9920867757212353`*^9, 3.9920868031092052`*^9}, + 3.9920882499684944`*^9, 3.992096040338949*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"1a0dce2d-86d3-424b-9cd4-05a291a81f05"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"165bd138-dd1b-0040-aa11-2ff05911b96e"], + +Cell[BoxData[ + RowBox[{"-", "1.1896646126189885`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.9917079684650364`*^9, 3.992086056661869*^9, + 3.9920862674289207`*^9, 3.992086570310892*^9, 3.992086601108303*^9, + 3.992086667258547*^9, {3.9920867757272587`*^9, 3.9920868031152153`*^9}, + 3.9920882499924984`*^9, 3.992096040350956*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"9b649e47-74bb-5f48-8513-cf31991a9f86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"0856d9b2-bb1c-e64b-b06d-5ce0b8e04c7d"], + +Cell[BoxData[ + RowBox[{"-", "0.07157823242670158`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.9917079684860363`*^9, 3.992086056689867*^9, + 3.992086267451708*^9, 3.9920865703164005`*^9, 3.9920866011133003`*^9, + 3.992086667287239*^9, {3.9920867757482376`*^9, 3.992086803136221*^9}, + 3.992088250008505*^9, 3.992096040365471*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"9ab9fdc0-199c-5d4e-80d4-88f7e68384cc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"d81aa958-b719-f94b-8973-dfd432cb8391"], + +Cell[BoxData["0.36531988493615475`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9917079684940376`*^9, 3.992086056698021*^9, + 3.9920862674576683`*^9, 3.992086570322399*^9, 3.9920866011363144`*^9, + 3.9920866673132973`*^9, {3.9920867757535*^9, 3.9920868031582184`*^9}, + 3.9920882500235844`*^9, 3.9920960403785057`*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"858889a7-a250-e74c-98ae-298106da971d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"289fd753-f795-2449-8aae-0330b1a01cc7"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9917079685140343`*^9, 3.992086056725519*^9, + 3.992086267463503*^9, 3.99208657034342*^9, 3.9920866011623287`*^9, + 3.992086667319298*^9, {3.9920867757785244`*^9, 3.992086803166567*^9}, + 3.992088250038763*^9, 3.992096040391472*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"3c80f51a-5127-8b49-9cb4-59e3e82ae77d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellChangeTimes->{3.9918430951178913`*^9}, + CellLabel->"In[20]:=",ExpressionUUID->"64e31945-e1a2-c44d-baa4-fc7ee4b69fd7"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.991707968535036*^9, 3.9920860567525387`*^9, + 3.992086267484522*^9, 3.992086570353693*^9, 3.992086601167244*^9, + 3.992086667338505*^9, {3.9920867757885113`*^9, 3.992086803188101*^9}, + 3.99208825005081*^9, 3.9920960404044876`*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"51d36877-108d-7e45-bd1c-7ace8caa5146"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"7ca03742-98f1-914b-94f5-c65ad4ad6025"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.9917079685410557`*^9, 3.9920860567575817`*^9, + 3.99208626748954*^9, 3.992086570375412*^9, 3.99208660118725*^9, + 3.9920866673587112`*^9, {3.9920867758099976`*^9, 3.992086803193638*^9}, + 3.99208825005818*^9, 3.992096040417301*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"287eabd6-1cd6-cd48-bac1-4fa3c400e9e2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"168d97dc-93a2-534f-a4b0-ebcbec005cc0"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.991707968561041*^9, 3.992086056786278*^9, + 3.9920862675157433`*^9, 3.9920865703804207`*^9, 3.9920866011932716`*^9, + 3.9920866673642235`*^9, {3.992086775814476*^9, 3.992086803217211*^9}, + 3.992088250071129*^9, 3.99209604043198*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"e5ef94c6-ccd1-9146-9ec7-707b8e927b4a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"98921716-e68b-2f40-b378-e9bd41b83c87"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.9917079685810375`*^9, 3.9920860567917824`*^9, + 3.992086267522707*^9, 3.9920865704054184`*^9, 3.992086601216263*^9, + 3.9920866673882236`*^9, {3.9920867758395653`*^9, 3.992086803222191*^9}, + 3.9920882500849457`*^9, 3.9920960404461403`*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"4b3d3331-e7f7-854d-a757-6cbb6de3c53e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "20"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.9917930777342243`*^9, + 3.9920858934566765`*^9}, + CellLabel->"In[24]:=",ExpressionUUID->"74cc08c4-0239-974a-8ca1-3828485a5e01"], + +Cell[BoxData["20"], "Output", + CellChangeTimes->{ + 3.992086056815359*^9, 3.992086267560713*^9, 3.992086570414318*^9, + 3.992086601221264*^9, 3.992086667394369*^9, {3.9920867758671284`*^9, + 3.9920868032586155`*^9}, 3.9920882500987415`*^9, 3.9920960404602356`*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"eb8ec8e2-ad57-ec41-836c-4626217b7da6"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431115646553`*^9, 3.991843111569187*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"881423cb-ae85-f24c-be76-eb8be8221cff"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, { + 3.991644237125025*^9, 3.991644237304865*^9}, {3.992085912752716*^9, + 3.9920859130864887`*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"7a6be152-b33a-7440-943c-43a17ffc3c2a"], + +Cell[BoxData["74"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.991707968608036*^9, 3.9920860568239784`*^9, + 3.99208626756872*^9, 3.9920865704393387`*^9, 3.9920866012487774`*^9, + 3.992086667421444*^9, {3.9920867758944263`*^9, 3.992086803283657*^9}, + 3.992088250114979*^9, 3.9920960404726295`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"685af7b9-04ab-d54e-84e2-a2767d7b87f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"00fffd24-84e4-6646-8fb0-7d33fe1103d5"], + +Cell[BoxData["182"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.9917079686284103`*^9, 3.9920860568515472`*^9, + 3.9920862675907288`*^9, 3.9920865704453335`*^9, 3.9920866012762756`*^9, + 3.992086667425951*^9, {3.992086775900427*^9, 3.9920868032897816`*^9}, + 3.992088250120569*^9, 3.992096040483757*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"e3168fd7-d645-5e43-8f8d-1f8f7d9b332b"] +}, 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->"cdc9442f-43cc-cc44-b03e-a45f77c397f5"], + +Cell[BoxData["0.1143501326259947`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9917079686354065`*^9, 3.9920860568816433`*^9, + 3.9920862675967255`*^9, 3.9920865704673367`*^9, 3.9920866012962723`*^9, + 3.992086667430956*^9, {3.992086775921425*^9, 3.992086803313404*^9}, + 3.9920882501336193`*^9, 3.9920960404953747`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"495ba715-2e96-f14b-b745-b6123572e0a5"] +}, 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->"0338f402-1d7b-b840-b687-d7c5bfd53e0a"], + +Cell[BoxData[ + RowBox[{"-", "2.558692686623721`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.991707968658518*^9, 3.9920860569066925`*^9, + 3.992086267627468*^9, 3.9920865704723377`*^9, 3.9920866013012753`*^9, + 3.9920866674524727`*^9, {3.9920867759274426`*^9, 3.9920868033194046`*^9}, + 3.9920882501490326`*^9, 3.9920960405044727`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"39868942-62b9-0241-bd22-a74ab19559b1"] +}, 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.991972093618887*^9, 3.9919720982596817`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"04400c68-fee3-384f-bfc1-631bc2edc08b"], + +Cell[BoxData["16.19476930294046`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.991707968678421*^9, 3.9920860569136944`*^9, + 3.992086267651493*^9, 3.9920865704962807`*^9, 3.992086601307276*^9, + 3.992086667458479*^9, {3.992086775951008*^9, 3.992086803343006*^9}, + 3.9920882501649113`*^9, 3.99209604051548*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"f800b105-89e1-3b4e-aceb-4d24ed5a36f7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"b9a3aa8d-2d42-8c4d-8e49-036de8ab16d3"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.9917079686854057`*^9, 3.992086056939745*^9, + 3.992086267670479*^9, 3.992086570523632*^9, 3.9920866013305016`*^9, + 3.9920866674794827`*^9, {3.9920867759565735`*^9, 3.9920868033491592`*^9}, + 3.9920882501796646`*^9, 3.992096040524481*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"24d41400-ee08-7949-8568-b030514c0a94"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "0.889"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.991793106556059*^9, 3.992085933324785*^9}, + CellLabel->"In[32]:=",ExpressionUUID->"b3d5e1fb-2cc9-3742-b581-c83a9a3866e6"], + +Cell[BoxData["0.889`"], "Output", + CellChangeTimes->{ + 3.9920860569446983`*^9, 3.9920862676814785`*^9, 3.9920865705475826`*^9, + 3.9920866013365097`*^9, 3.9920866675006237`*^9, {3.9920867759825478`*^9, + 3.9920868033546314`*^9}, 3.99208825019392*^9, 3.9920960405334797`*^9}, + CellLabel->"Out[32]=",ExpressionUUID->"5ae39dcf-a8a3-a645-87a7-d92f387f2156"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431193859673`*^9, 3.9918431193894367`*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"2f4823d2-c451-d14e-97d6-d2449021df44"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"n1", "=", "0.634"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917169698218613`*^9, 3.991717907758713*^9, + 3.991793107839529*^9, 3.9920859368147087`*^9}, + CellLabel->"In[34]:=",ExpressionUUID->"9024a329-bbda-294f-901e-f3f07122e248"], + +Cell[BoxData["0.634`"], "Output", + CellChangeTimes->{ + 3.9920860569747295`*^9, 3.992086267704502*^9, 3.99208657055459*^9, + 3.992086601359558*^9, 3.992086667509161*^9, {3.992086775989546*^9, + 3.9920868033846836`*^9}, 3.992088250209507*^9, 3.9920960405474777`*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"207ae76e-6fe4-ae46-9e0c-612fc3b3c20e"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843120757866*^9, 3.9918431207603054`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"9149c3bf-88f7-0748-b176-ca6074a8a04d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv1", "=", "1.069"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.991717916696951*^9, + 3.991793108990593*^9, 3.992085941493677*^9}, + CellLabel->"In[36]:=",ExpressionUUID->"2189ec4b-9841-2440-b849-079a68843a39"], + +Cell[BoxData["1.069`"], "Output", + CellChangeTimes->{ + 3.9920860570089607`*^9, 3.9920862677305984`*^9, 3.9920865705816116`*^9, + 3.9920866013675575`*^9, 3.992086667531679*^9, {3.992086776016308*^9, + 3.992086803410513*^9}, 3.9920882502254524`*^9, 3.992096040574049*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"b34947d4-51c0-a842-9aff-5403b859b0dd"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431220200443`*^9, 3.9918431220220585`*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"4dd1c3e6-1835-424b-af0e-b0392d86b616"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn1", "=", "0.744"}], "\n"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.991716995355715*^9, + 3.9917931103354855`*^9, 3.9920859453537045`*^9}, + CellLabel->"In[38]:=",ExpressionUUID->"7d75d998-704d-1440-94c8-65a87558564a"], + +Cell[BoxData["0.744`"], "Output", + CellChangeTimes->{ + 3.9920860571022167`*^9, 3.9920862677565975`*^9, 3.9920865705886135`*^9, + 3.99208660139657*^9, 3.992086667539192*^9, {3.9920867760232925`*^9, + 3.992086803417515*^9}, 3.992088250242529*^9, 3.9920960405960503`*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"438e8804-30aa-8840-80e8-0f07515e5762"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431237966404`*^9, 3.9918431238010616`*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"8de93d16-a08a-5040-aab8-61be65f54eed"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.991"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991717006317978*^9, 3.9917931115739956`*^9, 3.9920859513160667`*^9}, + CellLabel->"In[40]:=",ExpressionUUID->"52c80ed1-89a7-e34c-bd27-bf4f55cd93d1"], + +Cell[BoxData["1.991`"], "Output", + CellChangeTimes->{ + 3.9920860571301746`*^9, 3.9920862677775993`*^9, 3.9920865706167297`*^9, + 3.992086601418375*^9, 3.99208666756719*^9, {3.9920867760472984`*^9, + 3.992086803446306*^9}, 3.992088250259033*^9, 3.9920960406160583`*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"89538673-ac1f-3541-a8ef-1f2177571064"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431249171696`*^9, 3.991843124921198*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"f571f201-b77b-5f42-b520-778741ce5344"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.921"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917170151233826`*^9, 3.9917931128910503`*^9, 3.9920859570410233`*^9}, + CellLabel->"In[42]:=",ExpressionUUID->"a61cd4ad-f1d5-d946-97ee-fe30eb4b8edb"], + +Cell[BoxData["0.921`"], "Output", + CellChangeTimes->{ + 3.992086057153713*^9, 3.9920862677985992`*^9, 3.992086570642597*^9, + 3.9920866014433823`*^9, 3.9920866675731907`*^9, {3.9920867760553913`*^9, + 3.9920868034683304`*^9}, 3.992088250276556*^9, 3.992096040631035*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"4730a0f7-52d8-4849-88a4-7ad1fc36c60a"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843126102844*^9, 3.991843126104536*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"cd574538-0409-044a-bbee-1b1b2deb12a1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "2.422"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, { + 3.9917170243815575`*^9, 3.991717046491377*^9}, 3.991793114539028*^9, + 3.9920859610670395`*^9}, + CellLabel->"In[44]:=",ExpressionUUID->"a422dcf3-e699-4543-a94d-1a54ef04fc1e"], + +Cell[BoxData["2.422`"], "Output", + CellChangeTimes->{ + 3.9920860571617165`*^9, 3.99208626780674*^9, 3.992086570651617*^9, + 3.992086601467415*^9, 3.9920866675994263`*^9, {3.992086776087263*^9, + 3.9920868034795456`*^9}, 3.992088250292721*^9, 3.99209604064419*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"d6e0f94e-7845-834a-ac1c-0dbcfcf07e26"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431274420605`*^9, 3.9918431274461517`*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"aeb525a9-edf7-3442-b8db-f3a6351001e9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "1.520"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.991793116134735*^9, 3.9920859650537796`*^9}, + CellLabel->"In[46]:=",ExpressionUUID->"f6dc2304-b377-084a-9d73-2554c49f7eaa"], + +Cell[BoxData["1.52`"], "Output", + CellChangeTimes->{ + 3.992086057192232*^9, 3.992086267836733*^9, 3.992086570676237*^9, + 3.9920866014884205`*^9, 3.992086667620432*^9, {3.992086776115265*^9, + 3.9920868035049725`*^9}, 3.9920882503105984`*^9, 3.9920960406581955`*^9}, + CellLabel->"Out[46]=",ExpressionUUID->"c90433e4-3070-2b48-ba85-5acb6b02ffb1"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843129570627*^9, 3.991843129574024*^9}}, + CellLabel->"In[47]:=",ExpressionUUID->"01a37d7a-6579-7744-9b4f-392c494ab79c"], + +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[48]:=",ExpressionUUID->"74ff4393-9419-c14e-af2a-e2c84c9c6bd3"], + +Cell[BoxData["31.169618376887957`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.991707979950527*^9, 3.99208605754793*^9, + 3.9920862678957367`*^9, 3.9920865707097645`*^9, 3.992086601521433*^9, + 3.9920866676705303`*^9, {3.9920867761731644`*^9, 3.9920868035374813`*^9}, + 3.992088250362713*^9, 3.9920960407774506`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"7f2045b0-5726-f448-828c-09426f0ee43a"] +}, 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[49]:=",ExpressionUUID->"9021d8aa-d6fd-7b42-a25b-70fe6d3bc411"], + +Cell[BoxData["0.6731047036398055`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9917079908393784`*^9, 3.9920860575922737`*^9, + 3.9920862679383984`*^9, 3.992086570747278*^9, 3.9920866015565434`*^9, + 3.992086667708521*^9, {3.9920867762131767`*^9, 3.992086803570322*^9}, + 3.992088250410885*^9, 3.9920960409336567`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"c1b73769-4f4a-b044-86ae-ecd8c032b224"] +}, 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[50]:=",ExpressionUUID->"54ab8f9a-d4c3-7b41-8dd4-daeb882bf7c7"], + +Cell[BoxData[ + RowBox[{"-", "372.70649967012986`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.991707995240637*^9, 3.9920860576318016`*^9, + 3.992086267978388*^9, 3.992086570780279*^9, 3.9920866015855484`*^9, + 3.9920866677442665`*^9, {3.9920867762461967`*^9, 3.992086803601267*^9}, + 3.992088250452675*^9, 3.992096041176893*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"b78ffbe2-7ce0-1e43-bfae-b3baabf1d008"] +}, 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[51]:=",ExpressionUUID->"f111cd74-032a-4f40-a28b-983a36c59c39"], + +Cell[BoxData[ + RowBox[{"-", "1044.7246524682707`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.991707999380541*^9, 3.9920860576748123`*^9, + 3.9920862680234985`*^9, 3.992086570817337*^9, 3.9920866016215477`*^9, + 3.9920866677821484`*^9, {3.992086776283224*^9, 3.992086803636261*^9}, + 3.992088250505533*^9, 3.992096041374275*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"d6865eb5-7059-5642-86ac-2b202b40a9ae"] +}, 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[52]:=",ExpressionUUID->"5f3fa59b-353b-9042-acc3-b8adcd159c91"], + +Cell[BoxData[ + RowBox[{"-", "259.8695599568833`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.991708001954468*^9, 3.992086057718851*^9, + 3.992086268066494*^9, 3.992086570860342*^9, 3.9920866016586037`*^9, + 3.992086667819168*^9, {3.992086776323227*^9, 3.9920868036722755`*^9}, + 3.992088250553541*^9, 3.992096041513529*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"e4e814a1-a8b4-2842-9f92-3e0999e695c4"] +}, 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[53]:=",ExpressionUUID->"7bffec34-d7d9-9b4f-94ca-33a86f0238f4"], + +Cell[BoxData[ + RowBox[{"-", "1495.7852478733544`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.9917080040838356`*^9, 3.992086057776539*^9, + 3.992086268121565*^9, 3.992086570903343*^9, 3.992086601703615*^9, + 3.992086667865225*^9, {3.992086776370306*^9, 3.9920868037133484`*^9}, + 3.992088250610298*^9, 3.9920960417019463`*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"7e7df0b4-9ee2-864d-92c7-b8e6ecffbe46"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"60185285-a7e1-224d-812f-278ba4b6916a"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.991708067458639*^9, 3.9920860577975445`*^9, + 3.992086268141716*^9, 3.992086570923395*^9, 3.992086601725624*^9, + 3.992086667870228*^9, {3.992086776398308*^9, 3.9920868037333527`*^9}, + 3.992088250623869*^9, 3.992096041735321*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"e43536d1-06d4-0548-80cf-38452b2bddbf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"49344be9-a084-ac42-9eea-f2dfcb1724ae"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.9917080674805565`*^9, 3.9920860578025436`*^9, + 3.992086268149719*^9, 3.992086570929405*^9, 3.9920866017452965`*^9, + 3.992086667896475*^9, {3.992086776419306*^9, 3.992086803739353*^9}, + 3.992088250629383*^9, 3.992096041749569*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"077ec026-8ed8-484c-bf46-a80183b8a110"] +}, 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[56]:=",ExpressionUUID->"b9e988db-c1b8-684d-bf7e-c721a9a3a25b"], + +Cell[BoxData["2212.1207838096793`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9917080675026455`*^9, 3.9920860578265495`*^9, + 3.992086268167341*^9, 3.992086570954405*^9, 3.9920866017743587`*^9, + 3.9920866679175053`*^9, {3.992086776426306*^9, 3.9920868037613735`*^9}, + 3.992088250635872*^9, 3.9920960417636585`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"ef607ab6-d365-0b45-869e-88ee9c587661"] +}, 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[57]:=",ExpressionUUID->"afe65164-4298-a646-97a0-bdbe1c07b528"], + +Cell[BoxData[ + RowBox[{"-", "3166.463119014952`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.991708067510544*^9, 3.99208605783457*^9, + 3.9920862681909695`*^9, 3.992086570961405*^9, 3.9920866017975693`*^9, + 3.9920866679425335`*^9, {3.9920867764324074`*^9, 3.9920868037683716`*^9}, + 3.9920882507046375`*^9, 3.992096041779854*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"5f59fd90-a4d0-3645-95f5-a2bef01099a9"] +}, 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[58]:=",ExpressionUUID->"febb6e99-aaa5-3544-ac76-8eea1459ab01"], + +Cell[BoxData["4780.565019838899`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9917080675337753`*^9, 3.9920860578555565`*^9, + 3.9920862681974792`*^9, 3.992086570983412*^9, 3.9920866018035927`*^9, + 3.992086667948538*^9, {3.992086776457493*^9, 3.9920868037919464`*^9}, + 3.9920882507183876`*^9, 3.99209604179578*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"9c413ef7-0e65-2140-9236-fa0eb8986002"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"ddd38bfb-9f83-4342-9ac3-9f01416596a3"], + +Cell[BoxData["0.8492253700915684`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.991708067540825*^9, 3.992086057861557*^9, + 3.9920862682165356`*^9, 3.992086570993412*^9, 3.9920866018254967`*^9, + 3.992086667970564*^9, {3.992086776462492*^9, 3.992086803812454*^9}, + 3.99208825072591*^9, 3.9920960418118095`*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"91ca52d4-5117-2b43-aa95-63f537e33f40"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"d113303b-fee6-c74b-bd6d-1ec02e5efe9f"], + +Cell[BoxData[ + RowBox[{"-", "1.1896646126189885`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.991708067561775*^9, 3.9920860578695545`*^9, + 3.9920862682215385`*^9, 3.9920865710174274`*^9, 3.9920866018499928`*^9, + 3.9920866679765587`*^9, {3.9920867764902725`*^9, 3.9920868038194695`*^9}, + 3.99208825073938*^9, 3.9920960418322487`*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"9732f2d2-a88d-9746-bba9-94ce3ae41a4e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"24b19227-a138-ad42-bf41-d7a877ffb1c9"], + +Cell[BoxData[ + RowBox[{"-", "0.07157823242670158`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.9917080675837746`*^9, 3.992086057898611*^9, + 3.992086268229542*^9, 3.9920865710414886`*^9, 3.992086601870537*^9, + 3.99208666799856*^9, {3.992086776511881*^9, 3.9920868038434715`*^9}, + 3.9920882507538776`*^9, 3.9920960418444576`*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"b87fecb4-8f31-7f49-942d-50e83c931567"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"abde0b88-7fb6-664a-9233-dd4c18a5dd8e"], + +Cell[BoxData["0.36531988493615475`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.9917080675917854`*^9, 3.9920860579196167`*^9, + 3.9920862682466774`*^9, 3.992086571067438*^9, 3.9920866018954678`*^9, + 3.992086668004545*^9, {3.992086776540409*^9, 3.9920868038534584`*^9}, + 3.992088250759762*^9, 3.992096041862383*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"7e8f81ab-fb5d-1042-9857-2785c2725c73"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"62e3f82a-3d30-0047-8c1b-19eb5558d8c0"], + +Cell[BoxData["1.3932112707868565`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.991708067612774*^9, 3.992086057924618*^9, + 3.9920862682647114`*^9, 3.9920865710734444`*^9, 3.99208660190147*^9, + 3.992086668009548*^9, {3.9920867765645065`*^9, 3.9920868038804703`*^9}, + 3.992088250773796*^9, 3.9920960418736134`*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"491ff2a4-ba96-9c4d-81af-41067460e3ce"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"3d22b994-b8ae-194a-a27d-0c225633ecab"], + +Cell[BoxData["3.0097040215395996`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.991708067619776*^9, 3.9920860579496193`*^9, + 3.9920862682697086`*^9, 3.9920865711034584`*^9, 3.992086601925476*^9, + 3.9920866680342903`*^9, {3.992086776570503*^9, 3.99208680388603*^9}, + 3.9920882507866726`*^9, 3.9920960418866177`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"7d36b7b2-ec99-5545-afa0-e852d204f811"] +}, 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[65]:=",ExpressionUUID->"9af85c7a-6b3e-d84f-baea-5073ca78047f"], + +Cell[BoxData[ + RowBox[{"-", "5.270467564360312`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.991708067640772*^9, 3.9920860579616146`*^9, + 3.9920862682944393`*^9, 3.992086571123514*^9, 3.992086601930479*^9, + 3.9920866680632725`*^9, {3.99208677659153*^9, 3.9920868039130783`*^9}, + 3.992088250793751*^9, 3.992096041900614*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"52b50e9d-a034-c54a-a54d-7c064a3217f8"] +}, 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[66]:=",ExpressionUUID->"a1929f09-4887-ae47-9754-84c1b85d58a4"], + +Cell[BoxData[ + RowBox[{"-", "51.15351790227487`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.991708067662775*^9, 3.9920860579829197`*^9, + 3.992086268301441*^9, 3.992086571129526*^9, 3.992086601955652*^9, + 3.992086668069273*^9, {3.9920867766018753`*^9, 3.9920868039341793`*^9}, + 3.992088250805893*^9, 3.992096041913143*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"5154ffdb-ecc2-dd46-9740-247dfd418834"] +}, 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[67]:=",ExpressionUUID->"c154c925-a986-d241-98b4-2f229f652ec2"], + +Cell[BoxData["2206.850316245319`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.991708067669775*^9, 3.992086057988922*^9, + 3.9920862683069553`*^9, 3.992086571153517*^9, 3.9920866019616756`*^9, + 3.9920866680988617`*^9, {3.992086776625183*^9, 3.992086803955179*^9}, + 3.992088250821102*^9, 3.9920960419277267`*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"1bcd8488-2b6e-fe4a-aaa0-6195c787ad0c"] +}, 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[68]:=",ExpressionUUID->"4ade1a5e-e6a2-d043-86ce-7f1fb5b9107d"], + +Cell[BoxData[ + RowBox[{"-", "3166.463119014952`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.991708067690773*^9, 3.9920860580136375`*^9, + 3.9920862683254623`*^9, 3.9920865711785164`*^9, 3.9920866019914055`*^9, + 3.992086668104372*^9, {3.99208677663167*^9, 3.9920868039611816`*^9}, + 3.9920882508412*^9, 3.9920960419446964`*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"12fbfc14-edb8-8f42-88f2-3f59d994fc81"] +}, 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[69]:=",ExpressionUUID->"ec9ecdef-89ad-7942-8c51-8f649ab97318"], + +Cell[BoxData["4729.4115019366245`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.991708067697775*^9, 3.9920860580186367`*^9, + 3.992086268332466*^9, 3.9920865711994247`*^9, 3.9920866020163975`*^9, + 3.992086668129669*^9, {3.9920867766542397`*^9, 3.992086803983183*^9}, + 3.9920882508492336`*^9, 3.9920960419695663`*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"c334bd6a-b34a-904e-85f5-7bb9ecc0ff69"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"47f6be2c-7d29-6249-a2c5-7fd4a4d6c695"], + +Cell[BoxData["199.42817651512246`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.9917080677197742`*^9, 3.9920860580256405`*^9, + 3.992086268355482*^9, 3.9920865712064476`*^9, 3.992086602022396*^9, + 3.992086668135229*^9, {3.992086776660242*^9, 3.992086803989208*^9}, + 3.992088250862768*^9, 3.9920960420437107`*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"f668c187-d351-ee41-80b5-b2651295f4fb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"dc144e14-e7fc-0a47-b6ea-1829a153f446"], + +Cell[BoxData["6725.14571990162`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.991708067726776*^9, 3.9920860580466385`*^9, + 3.9920862683614655`*^9, 3.992086571211939*^9, 3.9920866020454216`*^9, + 3.99208666816308*^9, {3.9920867766842403`*^9, 3.9920868040112057`*^9}, + 3.9920882508789196`*^9, 3.992096042079365*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"4244c867-69b8-834a-b9fc-7964731abc20"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.197263021899268"}]], "Input", + CellChangeTimes->{3.991844487293215*^9, 3.9920872587839756`*^9}, + CellLabel->"In[72]:=",ExpressionUUID->"8b10a187-c7b7-0f44-8f32-75ec5ae33e70"], + +Cell[BoxData["0.197263021899268`"], "Output", + CellChangeTimes->{3.99208825089365*^9, 3.992096042103428*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"5de45314-c3a5-c145-9fdb-2eb9f3962e8b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991844505909937*^9, 3.991844505914568*^9}}, + CellLabel->"In[73]:=",ExpressionUUID->"d7190627-18d6-a94b-880e-e3f073ed75cd"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.525273658113063"}]], "Input", + CellChangeTimes->{3.991844489013321*^9, 3.992087263880169*^9}, + CellLabel->"In[74]:=",ExpressionUUID->"ff3a0633-5725-474e-a1df-0fae08da0391"], + +Cell[BoxData["0.525273658113063`"], "Output", + CellChangeTimes->{3.9920882509094296`*^9, 3.9920960421322956`*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"2ca0e7ad-a5d4-2040-a283-78ec22da15c2"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991844506884182*^9, 3.9918445068872185`*^9}}, + CellLabel->"In[75]:=",ExpressionUUID->"c4cb48f6-8bef-5140-97cb-74fc477176c0"], + +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[76]:=",ExpressionUUID->"1479e503-99dc-8043-a7ed-41f4ebd401a5"], + +Cell[BoxData["9.103990235902606`*^-54"], "Output", + CellChangeTimes->{3.9913279321052856`*^9, 3.992088250927021*^9, + 3.992096042155718*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"04eaee9b-dd92-0542-948f-ec84201abdc0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + 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"]}]], "*", "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, {3.9915580161429977`*^9, 3.991558019706772*^9}}, + CellLabel->"In[77]:=",ExpressionUUID->"ee451e0a-03c5-5d4b-809d-1baa2036c180"], + +Cell[BoxData["1.7534500135146677`*^-55"], "Output", + CellChangeTimes->{3.991327932129387*^9, 3.992088250933094*^9, + 3.99209604217103*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"66b4f452-0e50-6b49-aeaa-9f4363648229"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + 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"]}]], "*", + 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}, + 3.991558013605444*^9}, + CellLabel->"In[78]:=",ExpressionUUID->"1b7f9814-f540-ee4f-a97a-82e0c001ccbc"], + +Cell[BoxData["4.6057170799418873`*^-54"], "Output", + CellChangeTimes->{3.991327932138338*^9, 3.9920882509483204`*^9, + 3.9920960421846676`*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"8193e213-cd10-ae41-b8a1-acf195603f72"] +}, 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[79]:=",ExpressionUUID->"add7dc78-05f0-9740-a4f6-53e576919ef8"], + +Cell[BoxData["44.385614932060015`"], "Output", + CellChangeTimes->{3.9913279321616154`*^9, 3.9920882509638653`*^9, + 3.9920960422169857`*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"56bc143a-503b-7744-ac66-e33467848e43"] +}, 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[80]:=",ExpressionUUID->"9b673079-5994-e34c-a858-9ada9b775642"], + +Cell[BoxData["45.493571246773044`"], "Output", + CellChangeTimes->{3.9913279321696014`*^9, 3.992088250979023*^9, + 3.992096042241062*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"d1529553-e751-2246-9698-485328fe7ad0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[81]:=",ExpressionUUID->"2e19814e-d8e4-0440-a349-54cc93ccdf53"], + +Cell[BoxData["2.1196889634300353`"], "Output", + CellChangeTimes->{3.9913279321926613`*^9, 3.9920882509957657`*^9, + 3.9920960422560616`*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"60251a30-bb97-dd4e-8362-6b146a7a1b1f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"538f6b3e-6e49-7749-a73e-74beaffe6942"], + +Cell[BoxData["12.158383404164557`"], "Output", + CellChangeTimes->{3.991327932200657*^9, 3.992088251010124*^9, + 3.9920960422675095`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"e7884dd5-ccad-bc4a-ace4-00fc39dac13b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[83]:=",ExpressionUUID->"0943a4c5-ab88-024e-b598-6ab09308c529"], + +Cell[BoxData["553.1282816429432`"], "Output", + CellChangeTimes->{3.99132793222501*^9, 3.992088251023756*^9, + 3.9920960422807903`*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"d2c85f34-ee98-8f4b-93ff-cb0837cb4166"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[84]:=",ExpressionUUID->"5313d107-d67a-0a42-97ea-bdd5afbb176c"], + +Cell[BoxData["94.083698106543`"], "Output", + CellChangeTimes->{3.9913279322642612`*^9, 3.992088251039299*^9, + 3.992096042296772*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"e86040c9-952a-0f4e-b6fb-a10fc0405b83"] +}, 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[85]:=",ExpressionUUID->"05311468-f950-6f43-ae68-9cc6502c4986"], + +Cell[BoxData["0.010545443826987293`"], "Output", + CellChangeTimes->{3.9913279322906475`*^9, 3.992088251053999*^9, + 3.992096042320696*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"74c6b349-5a34-4247-85c8-7b5939eab9b2"] +}, 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[86]:=",ExpressionUUID->"55ab7556-231d-f846-b625-6b6079424223"], + +Cell[BoxData["8.630034052406932`"], "Output", + CellChangeTimes->{3.9913279323826447`*^9, 3.9920882511326733`*^9, + 3.992096042547764*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"d6013f8c-20e0-0d48-b66a-5d67e778771f"] +}, 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[87]:=",ExpressionUUID->"de97f1d4-a997-5d44-ad21-9d29636b6b11"], + +Cell[BoxData["0.001646404614755063`"], "Output", + CellChangeTimes->{3.991327932394655*^9, 3.9920882511467133`*^9, + 3.992096042577656*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"f7ad8e48-f535-b544-992c-810f1b8caca0"] +}, 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[88]:=",ExpressionUUID->"69bf2733-1c68-0d45-9dcf-32eb09d0774e"], + +Cell[BoxData["21.841207926573983`"], "Output", + CellChangeTimes->{3.991327932491659*^9, 3.9920882512216206`*^9, + 3.992096042789713*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"f9a10c5f-e0e1-1141-b37d-eca10f77554f"] +}, 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[89]:=",ExpressionUUID->"790285fd-a791-004a-beb8-81432d5fe6ed"], + +Cell[BoxData["0.9633250942217355`"], "Output", + CellChangeTimes->{3.991327932509678*^9, 3.9920882512357063`*^9, + 3.9920960428140087`*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"4aa121c6-d48e-2c47-beab-69855d2dc72f"] +}, 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[90]:=",ExpressionUUID->"8d9d59ff-5258-ed44-b54a-00649424f6ab"], + +Cell[BoxData["0.03667490577826447`"], "Output", + CellChangeTimes->{3.9913279325457134`*^9, 3.9920882512518654`*^9, + 3.992096042839115*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"7092a207-b239-cc4c-a9a2-d27b8a535ae4"] +}, 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[91]:=",ExpressionUUID->"082cc170-e78d-1f4c-ac49-a1fc473fe786"], + +Cell[BoxData["0.035329857064419885`"], "Output", + CellChangeTimes->{3.9913279325697117`*^9, 3.9920882512675514`*^9, + 3.9920960428639393`*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"390fc299-1cc9-bf4f-8ac1-c63ba460e620"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[92]:=",ExpressionUUID->"b80089e4-e129-a84d-a279-8559e98c6042"], + +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.991844522599167*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"d15c8f9d-5cd8-0448-9115-8fd811f7859e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.488095431517469`*^-222\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 93, 262, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279325947113`*^9, 3.9920882512901287`*^9, + 3.992096042937807*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"34506e82-c915-724e-a831-74a154366a0f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.053159700901627`*^-228\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 93, 263, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279325947113`*^9, 3.9920882512901287`*^9, + 3.9920960429849243`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"497dd8d9-1eab-4645-ad96-4b90c8e14cdd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.264238140764884`*^-234\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 93, 264, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279325947113`*^9, 3.9920882512901287`*^9, + 3.9920960430096493`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"a5fa3bd6-efa8-ca47-a84c-502a75c763e1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 93, 265, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279325947113`*^9, 3.9920882512901287`*^9, + 3.9920960430356483`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"e80b8bfd-72ef-d04e-81b9-b7cc8481af90"], + +Cell[BoxData["8.630034052406936`"], "Output", + CellChangeTimes->{3.9913279359974174`*^9, 3.9920882538975773`*^9, + 3.99209605046883*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"5f66b862-cf26-ea43-882b-1a72e60af917"] +}, 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.991844527271263*^9}, + CellLabel->"In[94]:=",ExpressionUUID->"a596efda-1871-9b45-afb4-f85dfdafd26c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.488095431517469`*^-222\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 94, 266, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936033827*^9, 3.992088254012169*^9, + 3.9920960506084423`*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"e411e6e9-97fc-7248-8f6b-4067e2d54897"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.053159700901627`*^-228\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 94, 267, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936033827*^9, 3.992088254012169*^9, + 3.9920960506402054`*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"c1575fcf-ea37-704f-8326-ff067ae4be7f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.264238140764884`*^-234\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 94, 268, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936033827*^9, 3.992088254012169*^9, + 3.9920960506680756`*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"9fd03e26-8926-d24f-af8c-55439414ffdd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 94, 269, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936033827*^9, 3.992088254012169*^9, + 3.992096050689169*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"744a9f62-3832-3542-8b42-c5530f9c4158"], + +Cell[BoxData["21.84120792657401`"], "Output", + CellChangeTimes->{3.9913279393385086`*^9, 3.992088256601284*^9, + 3.9920960579478836`*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"be32d424-bf45-914a-b721-ef5c4455f3fa"] +}, 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.991844532798546*^9}, + CellLabel->"In[95]:=",ExpressionUUID->"98a8fe78-0965-1043-b897-797c175d7e63"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk4VesXB3DzUEeFcgyR+UaUTCVlLXOEpJKEOM7ZJKkkSS7XLXVvpFJJ +RdwQyZAkRfUTKpWpaKBwnGPqGAuxS/V7+2M/+/k8736+e613vXtrsPZ6cESE +hIQGyfX7vr9p+R8VLU1WUYxx6xtcHliN5pix7ApByopx+Le5mebnte0egMVC +X7UCYnd2owTD5An4XeStvElcGhVXK27XAOJv0ssKif99qlgdV/AKQrmJ2cXE +91v2X501fgP4ukS4lFjQ8SLmcNV7+KdeqqmMWLlPa8dX248gMZAqVUG8YSzG +4kBDN1z19C6tJH40K5gbVdADk/ab6x8Rv41nHrkbxgf1T/GutcSjEnaCSeM+ ++PtwP9YTSyTt224y3Q8G5vHXGonVZDPq91cNwj+BHuGtxG4qX6+P2g7DnXWX +fLjEVJamgqHUKFQnzz80QBynszFhd8MYaF56+GuU+D2zbWVEwWeo8avZ8YuY +7R2y61zSF5ASKK2Q6uHBeLrQf7fDJqC/qWCfLLGUpuGCz8ZTUBMfbaVDfJ5d +67hg0VfI31D5YgWxet72uBXTX+ErZfZkDfFqg+Oje6pm4NmTbjEP4mDz7gaB +7Szcr11UkkA8GXVQbI7uD7h6FovOEf9VNXetntRPSMi7qXSNOA1X3wxq+AWO +yfbrqonZufV24QXCWF+aUSLM40HB03PceBURDBLhLpEnHh/wizmbJIK/xoJ/ +ahPH6E+V3QoTRTVTDwln4vMlGlpjxuLYfT7d+hJxR8vwo5/Z4ri0w1C7mFj9 +S4X3vEUSmLRX5mAtcaGpW4rhtATeaqgKGCOuux8tHFolhRdcJykXPg+malu7 +B20Z+Hhjl4ZKLw/kXBgLjjxiYISJhr0FsVGbHcpYyOCVuiWCbcQhveVZK5fP +w0C1bfdTifeJNBitYyxA0wxeqHIfD/o0iz8nfJXFV2I6+mv6yf5QL6SbTeRQ +uls6xJ9Y5Ga/huJ+OWQmv1h2gljdZIlHwZAc1scMmr4l9rY9c7uJK4+Cmne+ +0QM8aA4MP8B8uQiXf8plfBjkQVdecqK/lAJmtwbtlv7Eg+Ghguwb9gro72jo +spp4TgS/1bJaARWqG89dJLY7tsXUv5yJvE1llj4CHlTmmE/lZyphckr6+I8h +HuT0fYtcE6GK1WtbxLLHeLB+64muA0Wq6D3DjOskHq6TdyjqV0Vup9xuxXEe +mOYYLFLfroYWGsvTThPXsfzKxK2W4PesjY5HP/Pgyxj30OBRdbws/e173AQP +5PfY3Slz1cSBV5NvmqZ50J8zJ9g9RBNzpD8kMWd4cO9ji8rIcU200+ou9yf2 +cfE9qlutidOvNvpNEucsi/S4ZKyF803XSmt8I+8X5I3HMrWxLSb9xelZHmwJ +mmvo3KODMBDPrBXmA0RuNd72Qwfx+d1ARRE+6CdkrmIr6WKIElMtjFgo28Qm +dpMuThWGdCqL8qGoa8e22491kclpPX5YjA8SnoXxytf+wKaIkH82SPLhnp3r +WwFLD384P+TYyPAhe/PFD9Oxepj/sS0ulziZ1cMVu6KHK7XypKTn8YH918Eh +tVY9PK5wmnpFLPsgQ2izrT7WlU5uDlrAhxCTUf0qrWV4pzKYzpPng4rm6bjE +XgPsNU1NiVHmw4OTk3q0iCEucXbXnSb2mdjeRmkYYkM+c124Ch+u1mnr2fgZ +4qy5YGLXYj5oBlW+nnlniDPvA0/sVCP9FvbpUC+XoxhPsCFQkw+qKmqU+nYj +jHnXFNuozweD3AjGdzBGie4bsHwdH1jso1OGbsY4c8Ux9H/EaVopXf4+xnhj +QTVjkxUfRK+V3HoaZYxi+b43DgIfOq4KtqSUGqPB7oUeddZ8+DfNP0NPywS9 +6+uDDjnwoT/RZbmXhCnG1+i/N3Xnw3/h2u7lDWbIZrj9OY/Dh9td1YmKH81Q +ZVtl9EviGmffZ0eGzLDFP17kX4oPvZqpVjZzzHF+o3OpeDAfdFslDZsdzfF1 +wLck8d18KDQZkv5UY45s5k6HJfvJfCZLaxffX4W6LzfOr/qTDy2RsOpYrgV2 +pNHxqWl80PB74+Ybug4jg52d6lr5wPl1t1j1MOJp2eBFLXK9wBy6J8lk2aCZ +4u6yLzt7IcJk7ccUfTucaTey3nWrF1gjs/XyAnty/o867JXsgyKbA5KZzY7Y +Xh/6a+3ePsiZDHlceN4JfaSSMvTa+2DGWrGxLm4DOpxex13m2Q+dQqKfewJc +UTvb/17Ch34IW7z3TLzWRrzofn80P2AAinfVV19IcMcmblO46s8BiJ5Qml62 +axMaubbEVVwehClnB89nOz1w2Dliu7n7J7DYcda6b9NmDN7GfXV5ngBeK2WE +1Jlswbz0WtbGlwJQvn70Qf7Srdif/rZcO2cI7nH1XdxkPPFj2LJzutHDoNY2 +HhQ54okt683OPPEcAZMLZwuzuduQ19XUwfQYhQyxieUptV6o1mvDz3Icg7vW +KzoS7m/HK8PNV64vH4e0VSdlZwu80Wn59yNHHoxD84fc4yZJO1BNyFpii/1n +KHdN1973lw/u4Lsu0e/6DJ/3bBYKY/viTfOhnIB9X2DKQS941NYPjw5rbfYS +mYD8kfaZA+Y78fn554v/d20CvP7LDfRl+KP+dYMkZ4tJKLu9YafoCX+0EFOk +9T9OgoXKa/pf2h8btupBZvgUaHGDOl7tCsAbHdosC9Gv0Dt398Z0fgDuSDU5 +aXDlK7QkuwU6bmUhd7LnzGPNaTgflTn3YAsLAz9esZktnIYHj37RgU6B6JF4 +9dCk3gzM98ETJpWB+CDdzH7tuRmw8B/NTzBlo0GtqKHb9AxcvzR+wM2cjeeM +9o7kzszAwtYvVszVbHRb5vR8lp6BUfvptnxLNl4MnHiVNztD/l9Cwg02bEyr +aVOdEKZh3rTsdrlNbNw598dWPwYNvafMpDP3sNH93XuRBHUakqtidt27zsZL +zYvqhB1o2GN80SIqn41X931zUnSkweVGqfTqAjbyg5V6DNfTMOdi/42KIjbu +C52w9nSmISHcXXD3Dhv91199esWNhhg97d3lNWz0eVqYRXvSEHLxZejtLjbG +93o//0nR4DSvf204l7jQZOprEA1LE4RkjHlsLNOW1x8NpqE/3KyotI+NRi0j +Re0hNAS4ZY7cGmZjk2AzMzeMBi/xA2El38h+SBRYykTS4HhAeV+hAgd1lVkG +GsdoqMk87pyiyMH40Q42I4GGtQ1ftKOUOXjBaXL/V2IjnZfttmoc9N41LvXs +BA1K747YftDhoLrrIU3vRBqG1nQqzDHj4J5nSvWOKTScFsl6GLSZg884XFnI +JP2vYKS5buVgttSQj1gWDcd2RIWbbOOguVFkRD1x1B33P355k/USdSnXa6R+ +SvhsKouDxpY+VY65NJi8YLGf7Ofg62lYInqThndndeZqneFgSEe175lyGopB +JnjwLAfLD4tbad8l+SOTdUXnOJifVMSoIDZ2qotdfZHUJ0iMaK8g8xMK/OJ6 +lYMVQi4hspU0OOzNao8q5GDyYoVG10c0qKr+Y25VTPo98j6+hXjyxd5zorc4 +OH+wSNPjfzRc0wXX5DIOTl6QXOpRTcOPzs7q7EoOzil5uM6+hoY7Lir5TfUc +1Pf0jZp+QkPiNxHx8y84+F7uVlfwUxpY+YKA7Q0cXOEqs6KdeIFYpUpvMwdT +pPaeuvuMhtAqr9P0Ww4+htR17Oc0aOmnRmr3cbB+7JJHYgMN39792fqpn4Nb +shRchohbEjhGJYMczNrSZejcSENsj6nAYpiD/qKfbog10dCR1uq7cYKDxdtM +4kObaUiRlLWPFqaw2rL5ouRrGh586dwRIUqhRiJDcSfxQGdBeJg4heONgxbl +xGvv2GWxpCl8PjSH5dtKzpt/1HdnWQpv2g1iRhup38Vezl6ewoQHjJefiC1X +yenBIgp9/56aMn1DwxmZQk8TJQo1PUsMnxFbVnaXqmhQqBWgqvnhLQ1UbmH9 +Ii0Kg7ZVlix+R54/c7h7vg6Fqx39On2I+yl5GTE9CvN1OIrtv9flHYOHjSj8 +ob9i7uP3NFT+lI/rN6bwrMjj1Gnivk/cC1xTCldM3X9s0E7Dmuro2rbVFCqL +XJ5KIe4NLVZ7iBSG/72m1a2DfO9eR8wqbCi8/VDPK5rYwna9S6kdhT4vfhzJ +IU5W4h3OXU/hXOHFWZPE98RKzmQ6k3qWbshS/kADf+xI3iUXCj8s1gMgXv10 +0ZtT7hQ2xld7HSNmlfKGTnhQ6JDHas0hPpVeIvL3Fgr7RBKGa4l54U5GkV4U +yvDVv/0glvFTcNznTfLbjo8qfiR5TnzfEB8KD7y1jzcmPrXkz0Q/fwptRIvi +A4jvzXG+5sWi8K8t9mORxLwphfsebApPijC/nySW6eE3u1AUpjir5Gb8zmu4 +1e8QTKFSz4aRYmJWxZ8/MIRC3udrrY9+519zXmgZSuFCdRWvxt/5p5jLzMIo +lDxeEt3xOz+q13rFPgrTyndY9hMz2KVeeuGk3wqVy+PEqzbG7tWKoBBlhlPp +3/lrNhxXjaSwtOj5SuFOGpJ0FDOYURTGSt0OkSS+u6CvTDaazFss25pB3PO9 +9MXcGAp//rx8dz4xYyC2RzyWQsumtOeyxOavN8z8iqPw3aMr0XLE/weVuhZ+ + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4VesXB3DzUEeFcgyR+UaUTCVlLXOEpJKEOM7ZJKkkSS7XLXVvpFJJ +RdwQyZAkRfUTKpWpaKBwnGPqGAuxS/V7+2M/+/k8736+e613vXtrsPZ6cESE +hIQGyfX7vr9p+R8VLU1WUYxx6xtcHliN5pix7ApByopx+Le5mebnte0egMVC +X7UCYnd2owTD5An4XeStvElcGhVXK27XAOJv0ssKif99qlgdV/AKQrmJ2cXE +91v2X501fgP4ukS4lFjQ8SLmcNV7+KdeqqmMWLlPa8dX248gMZAqVUG8YSzG +4kBDN1z19C6tJH40K5gbVdADk/ab6x8Rv41nHrkbxgf1T/GutcSjEnaCSeM+ ++PtwP9YTSyTt224y3Q8G5vHXGonVZDPq91cNwj+BHuGtxG4qX6+P2g7DnXWX +fLjEVJamgqHUKFQnzz80QBynszFhd8MYaF56+GuU+D2zbWVEwWeo8avZ8YuY +7R2y61zSF5ASKK2Q6uHBeLrQf7fDJqC/qWCfLLGUpuGCz8ZTUBMfbaVDfJ5d +67hg0VfI31D5YgWxet72uBXTX+ErZfZkDfFqg+Oje6pm4NmTbjEP4mDz7gaB +7Szcr11UkkA8GXVQbI7uD7h6FovOEf9VNXetntRPSMi7qXSNOA1X3wxq+AWO +yfbrqonZufV24QXCWF+aUSLM40HB03PceBURDBLhLpEnHh/wizmbJIK/xoJ/ +ahPH6E+V3QoTRTVTDwln4vMlGlpjxuLYfT7d+hJxR8vwo5/Z4ri0w1C7mFj9 +S4X3vEUSmLRX5mAtcaGpW4rhtATeaqgKGCOuux8tHFolhRdcJykXPg+malu7 +B20Z+Hhjl4ZKLw/kXBgLjjxiYISJhr0FsVGbHcpYyOCVuiWCbcQhveVZK5fP +w0C1bfdTifeJNBitYyxA0wxeqHIfD/o0iz8nfJXFV2I6+mv6yf5QL6SbTeRQ +uls6xJ9Y5Ga/huJ+OWQmv1h2gljdZIlHwZAc1scMmr4l9rY9c7uJK4+Cmne+ +0QM8aA4MP8B8uQiXf8plfBjkQVdecqK/lAJmtwbtlv7Eg+Ghguwb9gro72jo +spp4TgS/1bJaARWqG89dJLY7tsXUv5yJvE1llj4CHlTmmE/lZyphckr6+I8h +HuT0fYtcE6GK1WtbxLLHeLB+64muA0Wq6D3DjOskHq6TdyjqV0Vup9xuxXEe +mOYYLFLfroYWGsvTThPXsfzKxK2W4PesjY5HP/Pgyxj30OBRdbws/e173AQP +5PfY3Slz1cSBV5NvmqZ50J8zJ9g9RBNzpD8kMWd4cO9ji8rIcU200+ou9yf2 +cfE9qlutidOvNvpNEucsi/S4ZKyF803XSmt8I+8X5I3HMrWxLSb9xelZHmwJ +mmvo3KODMBDPrBXmA0RuNd72Qwfx+d1ARRE+6CdkrmIr6WKIElMtjFgo28Qm +dpMuThWGdCqL8qGoa8e22491kclpPX5YjA8SnoXxytf+wKaIkH82SPLhnp3r +WwFLD384P+TYyPAhe/PFD9Oxepj/sS0ulziZ1cMVu6KHK7XypKTn8YH918Eh +tVY9PK5wmnpFLPsgQ2izrT7WlU5uDlrAhxCTUf0qrWV4pzKYzpPng4rm6bjE +XgPsNU1NiVHmw4OTk3q0iCEucXbXnSb2mdjeRmkYYkM+c124Ch+u1mnr2fgZ +4qy5YGLXYj5oBlW+nnlniDPvA0/sVCP9FvbpUC+XoxhPsCFQkw+qKmqU+nYj +jHnXFNuozweD3AjGdzBGie4bsHwdH1jso1OGbsY4c8Ux9H/EaVopXf4+xnhj +QTVjkxUfRK+V3HoaZYxi+b43DgIfOq4KtqSUGqPB7oUeddZ8+DfNP0NPywS9 +6+uDDjnwoT/RZbmXhCnG1+i/N3Xnw3/h2u7lDWbIZrj9OY/Dh9td1YmKH81Q +ZVtl9EviGmffZ0eGzLDFP17kX4oPvZqpVjZzzHF+o3OpeDAfdFslDZsdzfF1 +wLck8d18KDQZkv5UY45s5k6HJfvJfCZLaxffX4W6LzfOr/qTDy2RsOpYrgV2 +pNHxqWl80PB74+Ybug4jg52d6lr5wPl1t1j1MOJp2eBFLXK9wBy6J8lk2aCZ +4u6yLzt7IcJk7ccUfTucaTey3nWrF1gjs/XyAnty/o867JXsgyKbA5KZzY7Y +Xh/6a+3ePsiZDHlceN4JfaSSMvTa+2DGWrGxLm4DOpxex13m2Q+dQqKfewJc +UTvb/17Ch34IW7z3TLzWRrzofn80P2AAinfVV19IcMcmblO46s8BiJ5Qml62 +axMaubbEVVwehClnB89nOz1w2Dliu7n7J7DYcda6b9NmDN7GfXV5ngBeK2WE +1Jlswbz0WtbGlwJQvn70Qf7Srdif/rZcO2cI7nH1XdxkPPFj2LJzutHDoNY2 +HhQ54okt683OPPEcAZMLZwuzuduQ19XUwfQYhQyxieUptV6o1mvDz3Icg7vW +KzoS7m/HK8PNV64vH4e0VSdlZwu80Wn59yNHHoxD84fc4yZJO1BNyFpii/1n +KHdN1973lw/u4Lsu0e/6DJ/3bBYKY/viTfOhnIB9X2DKQS941NYPjw5rbfYS +mYD8kfaZA+Y78fn554v/d20CvP7LDfRl+KP+dYMkZ4tJKLu9YafoCX+0EFOk +9T9OgoXKa/pf2h8btupBZvgUaHGDOl7tCsAbHdosC9Gv0Dt398Z0fgDuSDU5 +aXDlK7QkuwU6bmUhd7LnzGPNaTgflTn3YAsLAz9esZktnIYHj37RgU6B6JF4 +9dCk3gzM98ETJpWB+CDdzH7tuRmw8B/NTzBlo0GtqKHb9AxcvzR+wM2cjeeM +9o7kzszAwtYvVszVbHRb5vR8lp6BUfvptnxLNl4MnHiVNztD/l9Cwg02bEyr +aVOdEKZh3rTsdrlNbNw598dWPwYNvafMpDP3sNH93XuRBHUakqtidt27zsZL +zYvqhB1o2GN80SIqn41X931zUnSkweVGqfTqAjbyg5V6DNfTMOdi/42KIjbu +C52w9nSmISHcXXD3Dhv91199esWNhhg97d3lNWz0eVqYRXvSEHLxZejtLjbG +93o//0nR4DSvf204l7jQZOprEA1LE4RkjHlsLNOW1x8NpqE/3KyotI+NRi0j +Re0hNAS4ZY7cGmZjk2AzMzeMBi/xA2El38h+SBRYykTS4HhAeV+hAgd1lVkG +GsdoqMk87pyiyMH40Q42I4GGtQ1ftKOUOXjBaXL/V2IjnZfttmoc9N41LvXs +BA1K747YftDhoLrrIU3vRBqG1nQqzDHj4J5nSvWOKTScFsl6GLSZg884XFnI +JP2vYKS5buVgttSQj1gWDcd2RIWbbOOguVFkRD1x1B33P355k/USdSnXa6R+ +SvhsKouDxpY+VY65NJi8YLGf7Ofg62lYInqThndndeZqneFgSEe175lyGopB +JnjwLAfLD4tbad8l+SOTdUXnOJifVMSoIDZ2qotdfZHUJ0iMaK8g8xMK/OJ6 +lYMVQi4hspU0OOzNao8q5GDyYoVG10c0qKr+Y25VTPo98j6+hXjyxd5zorc4 +OH+wSNPjfzRc0wXX5DIOTl6QXOpRTcOPzs7q7EoOzil5uM6+hoY7Lir5TfUc +1Pf0jZp+QkPiNxHx8y84+F7uVlfwUxpY+YKA7Q0cXOEqs6KdeIFYpUpvMwdT +pPaeuvuMhtAqr9P0Ww4+htR17Oc0aOmnRmr3cbB+7JJHYgMN39792fqpn4Nb +shRchohbEjhGJYMczNrSZejcSENsj6nAYpiD/qKfbog10dCR1uq7cYKDxdtM +4kObaUiRlLWPFqaw2rL5ouRrGh586dwRIUqhRiJDcSfxQGdBeJg4heONgxbl +xGvv2GWxpCl8PjSH5dtKzpt/1HdnWQpv2g1iRhup38Vezl6ewoQHjJefiC1X +yenBIgp9/56aMn1DwxmZQk8TJQo1PUsMnxFbVnaXqmhQqBWgqvnhLQ1UbmH9 +Ii0Kg7ZVlix+R54/c7h7vg6Fqx39On2I+yl5GTE9CvN1OIrtv9flHYOHjSj8 +ob9i7uP3NFT+lI/rN6bwrMjj1Gnivk/cC1xTCldM3X9s0E7Dmuro2rbVFCqL +XJ5KIe4NLVZ7iBSG/72m1a2DfO9eR8wqbCi8/VDPK5rYwna9S6kdhT4vfhzJ +IU5W4h3OXU/hXOHFWZPE98RKzmQ6k3qWbshS/kADf+xI3iUXCj8s1gMgXv10 +0ZtT7hQ2xld7HSNmlfKGTnhQ6JDHas0hPpVeIvL3Fgr7RBKGa4l54U5GkV4U +yvDVv/0glvFTcNznTfLbjo8qfiR5TnzfEB8KD7y1jzcmPrXkz0Q/fwptRIvi +A4jvzXG+5sWi8K8t9mORxLwphfsebApPijC/nySW6eE3u1AUpjir5Gb8zmu4 +1e8QTKFSz4aRYmJWxZ8/MIRC3udrrY9+519zXmgZSuFCdRWvxt/5p5jLzMIo +lDxeEt3xOz+q13rFPgrTyndY9hMz2KVeeuGk3wqVy+PEqzbG7tWKoBBlhlPp +3/lrNhxXjaSwtOj5SuFOGpJ0FDOYURTGSt0OkSS+u6CvTDaazFss25pB3PO9 +9MXcGAp//rx8dz4xYyC2RzyWQsumtOeyxOavN8z8iqPw3aMr0XLE/weVuhZ+ + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5899244582982552, + 1.6164727010145066`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5899244582982566}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.5899244582982552, + 1.6164727010145066`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5899244582982566}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4VesXB3DzUEeFcgyR+UaUTCVlLXOEpJKEOM7ZJKkkSS7XLXVvpFJJ +RdwQyZAkRfUTKpWpaKBwnGPqGAuxS/V7+2M/+/k8736+e613vXtrsPZ6cESE +hIQGyfX7vr9p+R8VLU1WUYxx6xtcHliN5pix7ApByopx+Le5mebnte0egMVC +X7UCYnd2owTD5An4XeStvElcGhVXK27XAOJv0ssKif99qlgdV/AKQrmJ2cXE +91v2X501fgP4ukS4lFjQ8SLmcNV7+KdeqqmMWLlPa8dX248gMZAqVUG8YSzG +4kBDN1z19C6tJH40K5gbVdADk/ab6x8Rv41nHrkbxgf1T/GutcSjEnaCSeM+ ++PtwP9YTSyTt224y3Q8G5vHXGonVZDPq91cNwj+BHuGtxG4qX6+P2g7DnXWX +fLjEVJamgqHUKFQnzz80QBynszFhd8MYaF56+GuU+D2zbWVEwWeo8avZ8YuY +7R2y61zSF5ASKK2Q6uHBeLrQf7fDJqC/qWCfLLGUpuGCz8ZTUBMfbaVDfJ5d +67hg0VfI31D5YgWxet72uBXTX+ErZfZkDfFqg+Oje6pm4NmTbjEP4mDz7gaB +7Szcr11UkkA8GXVQbI7uD7h6FovOEf9VNXetntRPSMi7qXSNOA1X3wxq+AWO +yfbrqonZufV24QXCWF+aUSLM40HB03PceBURDBLhLpEnHh/wizmbJIK/xoJ/ +ahPH6E+V3QoTRTVTDwln4vMlGlpjxuLYfT7d+hJxR8vwo5/Z4ri0w1C7mFj9 +S4X3vEUSmLRX5mAtcaGpW4rhtATeaqgKGCOuux8tHFolhRdcJykXPg+malu7 +B20Z+Hhjl4ZKLw/kXBgLjjxiYISJhr0FsVGbHcpYyOCVuiWCbcQhveVZK5fP +w0C1bfdTifeJNBitYyxA0wxeqHIfD/o0iz8nfJXFV2I6+mv6yf5QL6SbTeRQ +uls6xJ9Y5Ga/huJ+OWQmv1h2gljdZIlHwZAc1scMmr4l9rY9c7uJK4+Cmne+ +0QM8aA4MP8B8uQiXf8plfBjkQVdecqK/lAJmtwbtlv7Eg+Ghguwb9gro72jo +spp4TgS/1bJaARWqG89dJLY7tsXUv5yJvE1llj4CHlTmmE/lZyphckr6+I8h +HuT0fYtcE6GK1WtbxLLHeLB+64muA0Wq6D3DjOskHq6TdyjqV0Vup9xuxXEe +mOYYLFLfroYWGsvTThPXsfzKxK2W4PesjY5HP/Pgyxj30OBRdbws/e173AQP +5PfY3Slz1cSBV5NvmqZ50J8zJ9g9RBNzpD8kMWd4cO9ji8rIcU200+ou9yf2 +cfE9qlutidOvNvpNEucsi/S4ZKyF803XSmt8I+8X5I3HMrWxLSb9xelZHmwJ +mmvo3KODMBDPrBXmA0RuNd72Qwfx+d1ARRE+6CdkrmIr6WKIElMtjFgo28Qm +dpMuThWGdCqL8qGoa8e22491kclpPX5YjA8SnoXxytf+wKaIkH82SPLhnp3r +WwFLD384P+TYyPAhe/PFD9Oxepj/sS0ulziZ1cMVu6KHK7XypKTn8YH918Eh +tVY9PK5wmnpFLPsgQ2izrT7WlU5uDlrAhxCTUf0qrWV4pzKYzpPng4rm6bjE +XgPsNU1NiVHmw4OTk3q0iCEucXbXnSb2mdjeRmkYYkM+c124Ch+u1mnr2fgZ +4qy5YGLXYj5oBlW+nnlniDPvA0/sVCP9FvbpUC+XoxhPsCFQkw+qKmqU+nYj +jHnXFNuozweD3AjGdzBGie4bsHwdH1jso1OGbsY4c8Ux9H/EaVopXf4+xnhj +QTVjkxUfRK+V3HoaZYxi+b43DgIfOq4KtqSUGqPB7oUeddZ8+DfNP0NPywS9 +6+uDDjnwoT/RZbmXhCnG1+i/N3Xnw3/h2u7lDWbIZrj9OY/Dh9td1YmKH81Q +ZVtl9EviGmffZ0eGzLDFP17kX4oPvZqpVjZzzHF+o3OpeDAfdFslDZsdzfF1 +wLck8d18KDQZkv5UY45s5k6HJfvJfCZLaxffX4W6LzfOr/qTDy2RsOpYrgV2 +pNHxqWl80PB74+Ybug4jg52d6lr5wPl1t1j1MOJp2eBFLXK9wBy6J8lk2aCZ +4u6yLzt7IcJk7ccUfTucaTey3nWrF1gjs/XyAnty/o867JXsgyKbA5KZzY7Y +Xh/6a+3ePsiZDHlceN4JfaSSMvTa+2DGWrGxLm4DOpxex13m2Q+dQqKfewJc +UTvb/17Ch34IW7z3TLzWRrzofn80P2AAinfVV19IcMcmblO46s8BiJ5Qml62 +axMaubbEVVwehClnB89nOz1w2Dliu7n7J7DYcda6b9NmDN7GfXV5ngBeK2WE +1Jlswbz0WtbGlwJQvn70Qf7Srdif/rZcO2cI7nH1XdxkPPFj2LJzutHDoNY2 +HhQ54okt683OPPEcAZMLZwuzuduQ19XUwfQYhQyxieUptV6o1mvDz3Icg7vW +KzoS7m/HK8PNV64vH4e0VSdlZwu80Wn59yNHHoxD84fc4yZJO1BNyFpii/1n +KHdN1973lw/u4Lsu0e/6DJ/3bBYKY/viTfOhnIB9X2DKQS941NYPjw5rbfYS +mYD8kfaZA+Y78fn554v/d20CvP7LDfRl+KP+dYMkZ4tJKLu9YafoCX+0EFOk +9T9OgoXKa/pf2h8btupBZvgUaHGDOl7tCsAbHdosC9Gv0Dt398Z0fgDuSDU5 +aXDlK7QkuwU6bmUhd7LnzGPNaTgflTn3YAsLAz9esZktnIYHj37RgU6B6JF4 +9dCk3gzM98ETJpWB+CDdzH7tuRmw8B/NTzBlo0GtqKHb9AxcvzR+wM2cjeeM +9o7kzszAwtYvVszVbHRb5vR8lp6BUfvptnxLNl4MnHiVNztD/l9Cwg02bEyr +aVOdEKZh3rTsdrlNbNw598dWPwYNvafMpDP3sNH93XuRBHUakqtidt27zsZL +zYvqhB1o2GN80SIqn41X931zUnSkweVGqfTqAjbyg5V6DNfTMOdi/42KIjbu +C52w9nSmISHcXXD3Dhv91199esWNhhg97d3lNWz0eVqYRXvSEHLxZejtLjbG +93o//0nR4DSvf204l7jQZOprEA1LE4RkjHlsLNOW1x8NpqE/3KyotI+NRi0j +Re0hNAS4ZY7cGmZjk2AzMzeMBi/xA2El38h+SBRYykTS4HhAeV+hAgd1lVkG +GsdoqMk87pyiyMH40Q42I4GGtQ1ftKOUOXjBaXL/V2IjnZfttmoc9N41LvXs +BA1K747YftDhoLrrIU3vRBqG1nQqzDHj4J5nSvWOKTScFsl6GLSZg884XFnI +JP2vYKS5buVgttSQj1gWDcd2RIWbbOOguVFkRD1x1B33P355k/USdSnXa6R+ +SvhsKouDxpY+VY65NJi8YLGf7Ofg62lYInqThndndeZqneFgSEe175lyGopB +JnjwLAfLD4tbad8l+SOTdUXnOJifVMSoIDZ2qotdfZHUJ0iMaK8g8xMK/OJ6 +lYMVQi4hspU0OOzNao8q5GDyYoVG10c0qKr+Y25VTPo98j6+hXjyxd5zorc4 +OH+wSNPjfzRc0wXX5DIOTl6QXOpRTcOPzs7q7EoOzil5uM6+hoY7Lir5TfUc +1Pf0jZp+QkPiNxHx8y84+F7uVlfwUxpY+YKA7Q0cXOEqs6KdeIFYpUpvMwdT +pPaeuvuMhtAqr9P0Ww4+htR17Oc0aOmnRmr3cbB+7JJHYgMN39792fqpn4Nb +shRchohbEjhGJYMczNrSZejcSENsj6nAYpiD/qKfbog10dCR1uq7cYKDxdtM +4kObaUiRlLWPFqaw2rL5ouRrGh586dwRIUqhRiJDcSfxQGdBeJg4heONgxbl +xGvv2GWxpCl8PjSH5dtKzpt/1HdnWQpv2g1iRhup38Vezl6ewoQHjJefiC1X +yenBIgp9/56aMn1DwxmZQk8TJQo1PUsMnxFbVnaXqmhQqBWgqvnhLQ1UbmH9 +Ii0Kg7ZVlix+R54/c7h7vg6Fqx39On2I+yl5GTE9CvN1OIrtv9flHYOHjSj8 +ob9i7uP3NFT+lI/rN6bwrMjj1Gnivk/cC1xTCldM3X9s0E7Dmuro2rbVFCqL +XJ5KIe4NLVZ7iBSG/72m1a2DfO9eR8wqbCi8/VDPK5rYwna9S6kdhT4vfhzJ +IU5W4h3OXU/hXOHFWZPE98RKzmQ6k3qWbshS/kADf+xI3iUXCj8s1gMgXv10 +0ZtT7hQ2xld7HSNmlfKGTnhQ6JDHas0hPpVeIvL3Fgr7RBKGa4l54U5GkV4U +yvDVv/0glvFTcNznTfLbjo8qfiR5TnzfEB8KD7y1jzcmPrXkz0Q/fwptRIvi +A4jvzXG+5sWi8K8t9mORxLwphfsebApPijC/nySW6eE3u1AUpjir5Gb8zmu4 +1e8QTKFSz4aRYmJWxZ8/MIRC3udrrY9+519zXmgZSuFCdRWvxt/5p5jLzMIo +lDxeEt3xOz+q13rFPgrTyndY9hMz2KVeeuGk3wqVy+PEqzbG7tWKoBBlhlPp +3/lrNhxXjaSwtOj5SuFOGpJ0FDOYURTGSt0OkSS+u6CvTDaazFss25pB3PO9 +9MXcGAp//rx8dz4xYyC2RzyWQsumtOeyxOavN8z8iqPw3aMr0XLE/weVuhZ+ + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5899244582982552, 1.6164727010145066`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5899244582982566}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.5899244582982566}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "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.5899244582982552, 1.6164727010145066`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913281932019863`*^9, 3.9920884916901073`*^9, + 3.9920965994463787`*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"8cbcd775-391a-794f-86cb-49bd9cf231a3"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.991844539101469*^9, 3.991844648037607*^9}, + CellLabel->"In[96]:=",ExpressionUUID->"9a11a03e-c4c1-5741-ac7d-23e1536f3e79"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.786339800587655`*^-275\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 96, + 270, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934227676`*^9, 3.992088491911268*^9, + 3.9920965998489895`*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"9948f367-fae7-3c4a-8ec7-a088bde8b511"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9817946793709456`*^-287\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 96, + 271, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934227676`*^9, 3.992088491911268*^9, + 3.9920965998779984`*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"df0d240f-ca5f-f14f-9252-a214eaefa799"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.787555322596352`*^-300\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 96, + 272, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934227676`*^9, 3.992088491911268*^9, + 3.992096599897089*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"eabe5fa8-38ae-ce4d-9631-0979ecb68256"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 96, 273, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934227676`*^9, 3.992088491911268*^9, + 3.9920965999170895`*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"8d7c7477-e481-a74d-a0c1-7dfb29f95390"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4VGscB3BlSagY68wZY4jsS4ao6P1ZIy1uSElIRMiabgiRfYmKVEgi +cVuImZMtsrQjIhHKJepariJbifvev87zeZ7znPNuv+/vlXX12+++mouLi3sV +F9f/z9wIV77Nbtk7aviiTK+cNd7R3Mncbc8MQZP1r4wMZ5lo5VndeSYzEa3j +n5uVmNVCuU9SZXiZ19Dja681Vn4A8jEMPjkvU4Lm3e2fDf6wRp2/PDO+yVQh +w4GmyPgfLmhN35DipMxL9DjIvkB7xh/lv8oLGJfpRQMLH6y/Tp5DD0oT+3w0 +xlDOoC6DnXwReaCOaxOBMyhNMcKluuca8h1RHmY/WETFOjxarh9vIgHZGMVP ++lzwt/Rpv7r5QnRB+LVKvgs3rErWO6R/pRi59tnWc7fwgdy1WwXr0D0U8DTG +1U9RAC7IM1csk0rRQ38hGynLdTCnOqctoPwQ5Yd5j2nZCwMvVfe0Q2Q5is5b ++uPHhAiQgnwU7owKZK1VGaA6IwIC5aYx41kViNEQdNF1UQRC/WrdOrIrUPXQ +WHs7LwXSDEP8Mgsq0LRC7777DAo8ytMtWi6vQK73OHuOW1Ngym3ey66jAhlV ++Vr2VFBg71+3uUSF2IircxBqQ0Wh8Gxz4dMQNor5py4/NEoUFDrjpfeFs9Fa +rtzVWxNEoYV6P+bdOTaiqB9q5mSKwiUHUro3no0U4jt2lpaJwjI//UxNJhvt +2t6499aoKNBO+tZMlLHR5YICx4T9YtCuYLtu1QgbSVVHPTY/JAYlEWkaSl/Z +KKfdmcHrIgYb3Y4a7B5no6LfxGDUSTGING2QTv7ORpX2GcfCEsTgXJ37/PBv +NuoXjPXyrRMDbu99/KslOGjTqeNnbFXEwUrs0vspEw5S3/bJJk9LHPJK3Ixi +zTlIh+ug5tgWcRAQ/GtZ0pKDjFMsRyNNxKG+7G2Q7l4OcipUs73rKA4WqTd3 +WR/koCtd05qr08Rh/VeZWl4fDuLVjfxSOiMOj48UOvhf5CChX/ONPxfFYSqx +2qnsMgdRGvxvmHFJwFz5n1WTmRzE3ONq1yckAXX+AUEu1znIwN2siW+TBDyN +svytUMBBpzIF844clIB76pGJm9kc9Hk264DgYwmorFa/Y9XFQbeMWEEDTRLA +YqeMO3dzkHNqW1rpKwn48CJfPKCHgz7I87606ZEA2sYfRFI/B3XYBG7PmZGA +17ZJC1c+c1Ddw91MdRVJGLfZr0H/wUFZJ1eN7c2ShNDLZVndwiSyrcrhk70h +CcaHJxgJFBJRePU3zhRKwkEv18wtYiS6kOPrmFUuCS8pjn8kSZIo5nVf26dW +SWj0Nd6wjkEif2Wywp9HCvLXLE5HqpBo14hX+KUAKVjZS1mWNiKRefjGe6Zn +pCDBMpbH05hExuL9H+YipCBT21uu1IRE28z26B9OkYJbnapFOuYkUrmtObPx +jhTUzI700K1IJOj+w5PTLwVyYc4WrrYk4v99L8tjWAoofHHz4XYk4sl0f0Yd +k4KgnK7mKwdItNTcvTFiXgpKe+/W1B8k0YR81UdzChUYjWWbphxJ1PI53LZn +JxW6un3sm91I9OLslvNJe6mg2LJKptydRM1iUw8N7KjwoXKtUO5xEtWaumzI +d6XCG4tDB708SXSv0PjViXAq/Cg//nzIm0TFBr8WiBgqzL9bfl7lQ6LCrgrF +tiQqeJiNfk89SaIcHoVY7atUoIxkN6n7kSjVbQ38KqdCqneaj1UgiZKW6n3v +V1FhYGfyU8EgEsVlnMl1fkIFx4Juq5fYEc3//GxqpUL3meND24NJ5Cvfwkn5 +SoWXLZ1mK3+SaO/ndFUGgwa6nosOK2fx/FQ/dznK0+Bjiuu/CeEksgrSi8hW +ocEBgRgx4QgSWaz+2C6lR4Nr3ypokpF4P5iqp0WtaaDC2ErwR5HoiUeEzP4D +NNjypdM6AhuVdrxId6SBl2EVfRrbYMcZYv0JGtSb6IS8jSaRruPTJ/zRNGC2 +kH+cjiERu0DKa2cCDcZ2+pr3YmuPe4vGXaCB9jLxbmssiTRCKce5s2mw30uv +cQb7XoP7BuN8Gkg0ZsjuiSOR6tqqynN3aPAu6zm9EFvpqrPgcgX+v8XFr7vi +SVT0qZxtUE0D9iCt+jq2giKfU9gTGvgHOCt/xZYj75UttNDAXZd7OCyBRPSu +RbuZERoUdmi0xyWS6DqxZ2XzBA2ceNbkNmFTj90s9p+mQWLGn4LL2BLT5r8m +l2mwo1ryjXcSiTK2Xi9U4yVgSM9EIQ9bNGpyj7cgAS1Dy4x2bGHhjJtfJQkw +rZBbUUnG9WL/xVKRQUBjQ+KoLfa6vG0z7vIELLRFBJ3FThlNzSlUIWDaMLoo +H1tA42+zYS0CmtrFzjVjJwTrTMnqEXCw+BHXCDbf4/irLoYEsEwnlLhTcP3x +9BnlmRDwR7TOIgObe7fG+IAlHs8NSqA+dvTlqAy6NQEvWWsz9mFz9XUZHj5A +gPLWbGc37Ag5pS/XHAk4xrP73WnspRNh6T2uBBhY5M3GYYc+bNsqeYKAAjFq +Qwb24oLssJ0fAZ7dhvo3sc9AcEpGMAHi9pcOl2DPxb/Q7QwjoLg2W7UM+9Qb +4pNINAFeiZ+K2dgzEn4J1gkElGYPd5LYgU6Nm9MuEJCnrnH/f3+7Ld7XmkEA +3zsz3f/f9530jBHKJkD0/EOfUuxJnVp1q3wCNsUs2BRj+5zd8D7xDgHXIm+N +38Aea3I99+I+AXF/6ulcxpa52ON1gU3APdOA4fPYtk577WxrCOiNvt0fgJ2o +2oxojQSkyp1nHsGuW9iqMviCgMz0qlKz/8f7tFSs6A1eT85Ckiq20mWFFe9u +/L25b+XrsY+4ZP+zeQDPn2WjNIX355K6SNf8MAGjT9vHW7Cf/4yrezxGABlD +LN/BXnq+VHz+OwFB9SPO57CPu34N37BCwP5dzWLK2NmaTp7veOmgk41OLOLz +1L7UuT9biA5vPfmFn2Nvz6pXVKTR4ft9O3sHbH83Xcokkw6j46aLMthFm+8u +lSvSoVvb/tsQPr/CLVc6dujSQT6lftAF2+yaUC2PAR3WM2P6COzQ49FFr4zp +4FJvodGF6+Mzl2/YAWs67NBnfzTAprYNu9Pt6dBk0mo4ietpb/Yh66EjdFh8 +/Gr+/3qr1DVT8PWmw21Px8h/cX2meNHfxMbR4f2g3fdgXM8NepeqrFLpYH9G +wEAEe46Hv1Akgw6rKNFfSnAeuOTNnMnNp8MnavmxzvMk0ul6JceppUPDPz94 +1+A8OZEP68Ka6LD8Kdc7FefNDV9yHl7R4fQkj74INv/aWy0t7+mQoizKL3KO +RAOGIac/T9PB3CHg+necdxTBKZe/FunwQMvS6hi2RY+blT+XNGSumfN8i/Ox +PNCaubROGhoshiaLw3De3lF8JaosDTvKbrP0QnA+iXRLmzhL47zZfqQX5+9o +6mh0prs0rOy3OaeBnSsw/+WLtzSY+634ReH8FuKRKk85Iw3/ZpY8Ygbg8zh3 +yLz7ojRE3/f9aepLotv9A74nmqWhRGPVoDzuH46H/u2seSUNMc9iafYeJBLr +XtZf3yENhLyUWjzuN9FvZLgrBqQh+Nv694O4P7k0Hs1ampMGM51pp9CjOM+K +R+rTlBlANRlrMXcgUZf8nPyQJgMeW5e8OHCIRMn5fEk6WxhwSGVbkRvufz+v +K9r2GjMgWzBlbSjujz2pJ77KOTKgzZaISd5PostBk8LkBQZMi8oOW+7CeYRm +j/bPMGA4yEtpqz6udyMlfvInA7Q4v1dNbsHrYXL4QdoqGXhbZB5yQ5dEjRYN +P403yMD+iRzTn9r4fO1PvVyiIgMn+z57ZKqTaNxd4enpozJgVG36wEEO96cU +OyWRNzKwW1WSVBTA/T8toW3snQxEBmVtuMiP++nFmlPN/TKg9vq8/AIfzrsr +sg1/jsnAnlbvmHpuEjHa59SmVjPhAl1Sj/Wbg7p7G5/aMZjwN+8jw9IpDto5 +6TAvZ8eElDzTVK5ODrohdr4z8iATuM6/H1Ht4KAf2++W9h9mQutErJrdGw66 +mfTL44orEyYOTcTnv+agn4o5PWv9mbB9y2S6bDMH3XMdqPqWxITk+qHaenw/ +E+5xPlv3hAmXu6qFwzI4qKfRbZWDmixs/a41Lofvj9+MPtDCNWVhyrJdZtGK +g9Y07NO5qS0L/GvNalvxfXNL/TaPUX1ZaI7s0Qw046CMGuHWQDNZYF7okCw2 +4KB97NqryU6ywOdUkfNChYOe3RbTepwuC+uenhYa4uUgTkKzE3NWFhK61hwp +eMRGx3mDB9va5IAdXNBm/asCHQsM4whd3whJlp6pPnoVSNNDtW33UXk4rGnc +89mjHL2hqAkGb1UA74l5+/UhD1HNg+hsNe5NcGAHT3l2ehkKW6Vi3TKwCVyz +YvSTiVIk0B9q4ctWhG28PuXLkvfRSJFsRt5ZJahQfNMpuOUuylCi8lTZKcPw +iUr/TM0SlH79+POjTBVIc3be+N3mDnLIONIm9EUFrFwcEsVSb6MF09uLeXWq +MLLoz6ksLUDDI8ZnGuPVQHjHN6NtPLfQLcPNROtRdYie6PN4tOsmuh8bLOKh +rgG9XC5qgYm5KN7umBX3rAZETTl2P6+8jnT780viWzWh33rS+dtAFrqqnH2/ +1UoLRC7xhZu7ZaLIJ6lXraq0oHBgUM5x7BLaQ9jdfiW/GZSVUswKytKRke/z +wyKJm2FqhqSsZKaiPLqrfMvsZig2yv97c28ikm+6c2XvYW1Y6E+kepbHoXT1 +RpW3ddqw7807Zauv59HxGZ6OlyosSPjYcMJVOwq5PpxmJqax4F8DNOo3HI58 +om2Wdl1kgazYyW0h7eEo2Ib9XugyC1ZUE0+kPA5HCbPBF9KvsEA6rGlXe1Y4 +erB18VdWLgv4O55Utu4OR4sNK91Fd1mwHF69I6fyLEp/K5Ta/JwFraig3S8r +DF0vOOkZ95IFGpXdXfdjw1DBqTYTi9cs4Nj+ZTYbFIZIifSfr9tYkCzl5XzT +Ogz1O4h6dr5jwTVaL8VDIAwpDlNNhoZZwFOpfroiMhRpsUMZhSMsqCnddCfO +NxRti+1bdP/CgrQjd9cdOxKKdivmlv0zxgKT/isn9baHokBvJuP7dxZkRz+S +2jsfgs4aRC2Wz7CAergt02s0BMWuG+o6NcsC3ZZptfR3IehqaUHywgILFgOL +s+cqQtCtczwe1T9ZoC7u6KNXEILu/uFufHaJBRRVV8uoSyGILfdMescyC5Kc +dmt2RYWguplNiysrLPBPvEfTCghB/wFKY2x9 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VGscB3BlSagY68wZY4jsS4ao6P1ZIy1uSElIRMiabgiRfYmKVEgi +cVuImZMtsrQjIhHKJepariJbifvev87zeZ7znPNuv+/vlXX12+++mouLi3sV +F9f/z9wIV77Nbtk7aviiTK+cNd7R3Mncbc8MQZP1r4wMZ5lo5VndeSYzEa3j +n5uVmNVCuU9SZXiZ19Dja681Vn4A8jEMPjkvU4Lm3e2fDf6wRp2/PDO+yVQh +w4GmyPgfLmhN35DipMxL9DjIvkB7xh/lv8oLGJfpRQMLH6y/Tp5DD0oT+3w0 +xlDOoC6DnXwReaCOaxOBMyhNMcKluuca8h1RHmY/WETFOjxarh9vIgHZGMVP ++lzwt/Rpv7r5QnRB+LVKvgs3rErWO6R/pRi59tnWc7fwgdy1WwXr0D0U8DTG +1U9RAC7IM1csk0rRQ38hGynLdTCnOqctoPwQ5Yd5j2nZCwMvVfe0Q2Q5is5b ++uPHhAiQgnwU7owKZK1VGaA6IwIC5aYx41kViNEQdNF1UQRC/WrdOrIrUPXQ +WHs7LwXSDEP8Mgsq0LRC7777DAo8ytMtWi6vQK73OHuOW1Ngym3ey66jAhlV ++Vr2VFBg71+3uUSF2IircxBqQ0Wh8Gxz4dMQNor5py4/NEoUFDrjpfeFs9Fa +rtzVWxNEoYV6P+bdOTaiqB9q5mSKwiUHUro3no0U4jt2lpaJwjI//UxNJhvt +2t6499aoKNBO+tZMlLHR5YICx4T9YtCuYLtu1QgbSVVHPTY/JAYlEWkaSl/Z +KKfdmcHrIgYb3Y4a7B5no6LfxGDUSTGING2QTv7ORpX2GcfCEsTgXJ37/PBv +NuoXjPXyrRMDbu99/KslOGjTqeNnbFXEwUrs0vspEw5S3/bJJk9LHPJK3Ixi +zTlIh+ug5tgWcRAQ/GtZ0pKDjFMsRyNNxKG+7G2Q7l4OcipUs73rKA4WqTd3 +WR/koCtd05qr08Rh/VeZWl4fDuLVjfxSOiMOj48UOvhf5CChX/ONPxfFYSqx +2qnsMgdRGvxvmHFJwFz5n1WTmRzE3ONq1yckAXX+AUEu1znIwN2siW+TBDyN +svytUMBBpzIF844clIB76pGJm9kc9Hk264DgYwmorFa/Y9XFQbeMWEEDTRLA +YqeMO3dzkHNqW1rpKwn48CJfPKCHgz7I87606ZEA2sYfRFI/B3XYBG7PmZGA +17ZJC1c+c1Ddw91MdRVJGLfZr0H/wUFZJ1eN7c2ShNDLZVndwiSyrcrhk70h +CcaHJxgJFBJRePU3zhRKwkEv18wtYiS6kOPrmFUuCS8pjn8kSZIo5nVf26dW +SWj0Nd6wjkEif2Wywp9HCvLXLE5HqpBo14hX+KUAKVjZS1mWNiKRefjGe6Zn +pCDBMpbH05hExuL9H+YipCBT21uu1IRE28z26B9OkYJbnapFOuYkUrmtObPx +jhTUzI700K1IJOj+w5PTLwVyYc4WrrYk4v99L8tjWAoofHHz4XYk4sl0f0Yd +k4KgnK7mKwdItNTcvTFiXgpKe+/W1B8k0YR81UdzChUYjWWbphxJ1PI53LZn +JxW6un3sm91I9OLslvNJe6mg2LJKptydRM1iUw8N7KjwoXKtUO5xEtWaumzI +d6XCG4tDB708SXSv0PjViXAq/Cg//nzIm0TFBr8WiBgqzL9bfl7lQ6LCrgrF +tiQqeJiNfk89SaIcHoVY7atUoIxkN6n7kSjVbQ38KqdCqneaj1UgiZKW6n3v +V1FhYGfyU8EgEsVlnMl1fkIFx4Juq5fYEc3//GxqpUL3meND24NJ5Cvfwkn5 +SoWXLZ1mK3+SaO/ndFUGgwa6nosOK2fx/FQ/dznK0+Bjiuu/CeEksgrSi8hW +ocEBgRgx4QgSWaz+2C6lR4Nr3ypokpF4P5iqp0WtaaDC2ErwR5HoiUeEzP4D +NNjypdM6AhuVdrxId6SBl2EVfRrbYMcZYv0JGtSb6IS8jSaRruPTJ/zRNGC2 +kH+cjiERu0DKa2cCDcZ2+pr3YmuPe4vGXaCB9jLxbmssiTRCKce5s2mw30uv +cQb7XoP7BuN8Gkg0ZsjuiSOR6tqqynN3aPAu6zm9EFvpqrPgcgX+v8XFr7vi +SVT0qZxtUE0D9iCt+jq2giKfU9gTGvgHOCt/xZYj75UttNDAXZd7OCyBRPSu +RbuZERoUdmi0xyWS6DqxZ2XzBA2ceNbkNmFTj90s9p+mQWLGn4LL2BLT5r8m +l2mwo1ryjXcSiTK2Xi9U4yVgSM9EIQ9bNGpyj7cgAS1Dy4x2bGHhjJtfJQkw +rZBbUUnG9WL/xVKRQUBjQ+KoLfa6vG0z7vIELLRFBJ3FThlNzSlUIWDaMLoo +H1tA42+zYS0CmtrFzjVjJwTrTMnqEXCw+BHXCDbf4/irLoYEsEwnlLhTcP3x +9BnlmRDwR7TOIgObe7fG+IAlHs8NSqA+dvTlqAy6NQEvWWsz9mFz9XUZHj5A +gPLWbGc37Ag5pS/XHAk4xrP73WnspRNh6T2uBBhY5M3GYYc+bNsqeYKAAjFq +Qwb24oLssJ0fAZ7dhvo3sc9AcEpGMAHi9pcOl2DPxb/Q7QwjoLg2W7UM+9Qb +4pNINAFeiZ+K2dgzEn4J1gkElGYPd5LYgU6Nm9MuEJCnrnH/f3+7Ld7XmkEA +3zsz3f/f9530jBHKJkD0/EOfUuxJnVp1q3wCNsUs2BRj+5zd8D7xDgHXIm+N +38Aea3I99+I+AXF/6ulcxpa52ON1gU3APdOA4fPYtk577WxrCOiNvt0fgJ2o +2oxojQSkyp1nHsGuW9iqMviCgMz0qlKz/8f7tFSs6A1eT85Ckiq20mWFFe9u +/L25b+XrsY+4ZP+zeQDPn2WjNIX355K6SNf8MAGjT9vHW7Cf/4yrezxGABlD +LN/BXnq+VHz+OwFB9SPO57CPu34N37BCwP5dzWLK2NmaTp7veOmgk41OLOLz +1L7UuT9biA5vPfmFn2Nvz6pXVKTR4ft9O3sHbH83Xcokkw6j46aLMthFm+8u +lSvSoVvb/tsQPr/CLVc6dujSQT6lftAF2+yaUC2PAR3WM2P6COzQ49FFr4zp +4FJvodGF6+Mzl2/YAWs67NBnfzTAprYNu9Pt6dBk0mo4ietpb/Yh66EjdFh8 +/Gr+/3qr1DVT8PWmw21Px8h/cX2meNHfxMbR4f2g3fdgXM8NepeqrFLpYH9G +wEAEe46Hv1Akgw6rKNFfSnAeuOTNnMnNp8MnavmxzvMk0ul6JceppUPDPz94 +1+A8OZEP68Ka6LD8Kdc7FefNDV9yHl7R4fQkj74INv/aWy0t7+mQoizKL3KO +RAOGIac/T9PB3CHg+necdxTBKZe/FunwQMvS6hi2RY+blT+XNGSumfN8i/Ox +PNCaubROGhoshiaLw3De3lF8JaosDTvKbrP0QnA+iXRLmzhL47zZfqQX5+9o +6mh0prs0rOy3OaeBnSsw/+WLtzSY+634ReH8FuKRKk85Iw3/ZpY8Ygbg8zh3 +yLz7ojRE3/f9aepLotv9A74nmqWhRGPVoDzuH46H/u2seSUNMc9iafYeJBLr +XtZf3yENhLyUWjzuN9FvZLgrBqQh+Nv694O4P7k0Hs1ampMGM51pp9CjOM+K +R+rTlBlANRlrMXcgUZf8nPyQJgMeW5e8OHCIRMn5fEk6WxhwSGVbkRvufz+v +K9r2GjMgWzBlbSjujz2pJ77KOTKgzZaISd5PostBk8LkBQZMi8oOW+7CeYRm +j/bPMGA4yEtpqz6udyMlfvInA7Q4v1dNbsHrYXL4QdoqGXhbZB5yQ5dEjRYN +P403yMD+iRzTn9r4fO1PvVyiIgMn+z57ZKqTaNxd4enpozJgVG36wEEO96cU +OyWRNzKwW1WSVBTA/T8toW3snQxEBmVtuMiP++nFmlPN/TKg9vq8/AIfzrsr +sg1/jsnAnlbvmHpuEjHa59SmVjPhAl1Sj/Wbg7p7G5/aMZjwN+8jw9IpDto5 +6TAvZ8eElDzTVK5ODrohdr4z8iATuM6/H1Ht4KAf2++W9h9mQutErJrdGw66 +mfTL44orEyYOTcTnv+agn4o5PWv9mbB9y2S6bDMH3XMdqPqWxITk+qHaenw/ +E+5xPlv3hAmXu6qFwzI4qKfRbZWDmixs/a41Lofvj9+MPtDCNWVhyrJdZtGK +g9Y07NO5qS0L/GvNalvxfXNL/TaPUX1ZaI7s0Qw046CMGuHWQDNZYF7okCw2 +4KB97NqryU6ywOdUkfNChYOe3RbTepwuC+uenhYa4uUgTkKzE3NWFhK61hwp +eMRGx3mDB9va5IAdXNBm/asCHQsM4whd3whJlp6pPnoVSNNDtW33UXk4rGnc +89mjHL2hqAkGb1UA74l5+/UhD1HNg+hsNe5NcGAHT3l2ehkKW6Vi3TKwCVyz +YvSTiVIk0B9q4ctWhG28PuXLkvfRSJFsRt5ZJahQfNMpuOUuylCi8lTZKcPw +iUr/TM0SlH79+POjTBVIc3be+N3mDnLIONIm9EUFrFwcEsVSb6MF09uLeXWq +MLLoz6ksLUDDI8ZnGuPVQHjHN6NtPLfQLcPNROtRdYie6PN4tOsmuh8bLOKh +rgG9XC5qgYm5KN7umBX3rAZETTl2P6+8jnT780viWzWh33rS+dtAFrqqnH2/ +1UoLRC7xhZu7ZaLIJ6lXraq0oHBgUM5x7BLaQ9jdfiW/GZSVUswKytKRke/z +wyKJm2FqhqSsZKaiPLqrfMvsZig2yv97c28ikm+6c2XvYW1Y6E+kepbHoXT1 +RpW3ddqw7807Zauv59HxGZ6OlyosSPjYcMJVOwq5PpxmJqax4F8DNOo3HI58 +om2Wdl1kgazYyW0h7eEo2Ib9XugyC1ZUE0+kPA5HCbPBF9KvsEA6rGlXe1Y4 +erB18VdWLgv4O55Utu4OR4sNK91Fd1mwHF69I6fyLEp/K5Ta/JwFraig3S8r +DF0vOOkZ95IFGpXdXfdjw1DBqTYTi9cs4Nj+ZTYbFIZIifSfr9tYkCzl5XzT +Ogz1O4h6dr5jwTVaL8VDIAwpDlNNhoZZwFOpfroiMhRpsUMZhSMsqCnddCfO +NxRti+1bdP/CgrQjd9cdOxKKdivmlv0zxgKT/isn9baHokBvJuP7dxZkRz+S +2jsfgs4aRC2Wz7CAergt02s0BMWuG+o6NcsC3ZZptfR3IehqaUHywgILFgOL +s+cqQtCtczwe1T9ZoC7u6KNXEILu/uFufHaJBRRVV8uoSyGILfdMescyC5Kc +dmt2RYWguplNiysrLPBPvEfTCghB/wFKY2x9 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08808462784837333}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08808462784837333}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VGscB3BlSagY68wZY4jsS4ao6P1ZIy1uSElIRMiabgiRfYmKVEgi +cVuImZMtsrQjIhHKJepariJbifvev87zeZ7znPNuv+/vlXX12+++mouLi3sV +F9f/z9wIV77Nbtk7aviiTK+cNd7R3Mncbc8MQZP1r4wMZ5lo5VndeSYzEa3j +n5uVmNVCuU9SZXiZ19Dja681Vn4A8jEMPjkvU4Lm3e2fDf6wRp2/PDO+yVQh +w4GmyPgfLmhN35DipMxL9DjIvkB7xh/lv8oLGJfpRQMLH6y/Tp5DD0oT+3w0 +xlDOoC6DnXwReaCOaxOBMyhNMcKluuca8h1RHmY/WETFOjxarh9vIgHZGMVP ++lzwt/Rpv7r5QnRB+LVKvgs3rErWO6R/pRi59tnWc7fwgdy1WwXr0D0U8DTG +1U9RAC7IM1csk0rRQ38hGynLdTCnOqctoPwQ5Yd5j2nZCwMvVfe0Q2Q5is5b ++uPHhAiQgnwU7owKZK1VGaA6IwIC5aYx41kViNEQdNF1UQRC/WrdOrIrUPXQ +WHs7LwXSDEP8Mgsq0LRC7777DAo8ytMtWi6vQK73OHuOW1Ngym3ey66jAhlV ++Vr2VFBg71+3uUSF2IircxBqQ0Wh8Gxz4dMQNor5py4/NEoUFDrjpfeFs9Fa +rtzVWxNEoYV6P+bdOTaiqB9q5mSKwiUHUro3no0U4jt2lpaJwjI//UxNJhvt +2t6499aoKNBO+tZMlLHR5YICx4T9YtCuYLtu1QgbSVVHPTY/JAYlEWkaSl/Z +KKfdmcHrIgYb3Y4a7B5no6LfxGDUSTGING2QTv7ORpX2GcfCEsTgXJ37/PBv +NuoXjPXyrRMDbu99/KslOGjTqeNnbFXEwUrs0vspEw5S3/bJJk9LHPJK3Ixi +zTlIh+ug5tgWcRAQ/GtZ0pKDjFMsRyNNxKG+7G2Q7l4OcipUs73rKA4WqTd3 +WR/koCtd05qr08Rh/VeZWl4fDuLVjfxSOiMOj48UOvhf5CChX/ONPxfFYSqx +2qnsMgdRGvxvmHFJwFz5n1WTmRzE3ONq1yckAXX+AUEu1znIwN2siW+TBDyN +svytUMBBpzIF844clIB76pGJm9kc9Hk264DgYwmorFa/Y9XFQbeMWEEDTRLA +YqeMO3dzkHNqW1rpKwn48CJfPKCHgz7I87606ZEA2sYfRFI/B3XYBG7PmZGA +17ZJC1c+c1Ddw91MdRVJGLfZr0H/wUFZJ1eN7c2ShNDLZVndwiSyrcrhk70h +CcaHJxgJFBJRePU3zhRKwkEv18wtYiS6kOPrmFUuCS8pjn8kSZIo5nVf26dW +SWj0Nd6wjkEif2Wywp9HCvLXLE5HqpBo14hX+KUAKVjZS1mWNiKRefjGe6Zn +pCDBMpbH05hExuL9H+YipCBT21uu1IRE28z26B9OkYJbnapFOuYkUrmtObPx +jhTUzI700K1IJOj+w5PTLwVyYc4WrrYk4v99L8tjWAoofHHz4XYk4sl0f0Yd +k4KgnK7mKwdItNTcvTFiXgpKe+/W1B8k0YR81UdzChUYjWWbphxJ1PI53LZn +JxW6un3sm91I9OLslvNJe6mg2LJKptydRM1iUw8N7KjwoXKtUO5xEtWaumzI +d6XCG4tDB708SXSv0PjViXAq/Cg//nzIm0TFBr8WiBgqzL9bfl7lQ6LCrgrF +tiQqeJiNfk89SaIcHoVY7atUoIxkN6n7kSjVbQ38KqdCqneaj1UgiZKW6n3v +V1FhYGfyU8EgEsVlnMl1fkIFx4Juq5fYEc3//GxqpUL3meND24NJ5Cvfwkn5 +SoWXLZ1mK3+SaO/ndFUGgwa6nosOK2fx/FQ/dznK0+Bjiuu/CeEksgrSi8hW +ocEBgRgx4QgSWaz+2C6lR4Nr3ypokpF4P5iqp0WtaaDC2ErwR5HoiUeEzP4D +NNjypdM6AhuVdrxId6SBl2EVfRrbYMcZYv0JGtSb6IS8jSaRruPTJ/zRNGC2 +kH+cjiERu0DKa2cCDcZ2+pr3YmuPe4vGXaCB9jLxbmssiTRCKce5s2mw30uv +cQb7XoP7BuN8Gkg0ZsjuiSOR6tqqynN3aPAu6zm9EFvpqrPgcgX+v8XFr7vi +SVT0qZxtUE0D9iCt+jq2giKfU9gTGvgHOCt/xZYj75UttNDAXZd7OCyBRPSu +RbuZERoUdmi0xyWS6DqxZ2XzBA2ceNbkNmFTj90s9p+mQWLGn4LL2BLT5r8m +l2mwo1ryjXcSiTK2Xi9U4yVgSM9EIQ9bNGpyj7cgAS1Dy4x2bGHhjJtfJQkw +rZBbUUnG9WL/xVKRQUBjQ+KoLfa6vG0z7vIELLRFBJ3FThlNzSlUIWDaMLoo +H1tA42+zYS0CmtrFzjVjJwTrTMnqEXCw+BHXCDbf4/irLoYEsEwnlLhTcP3x +9BnlmRDwR7TOIgObe7fG+IAlHs8NSqA+dvTlqAy6NQEvWWsz9mFz9XUZHj5A +gPLWbGc37Ag5pS/XHAk4xrP73WnspRNh6T2uBBhY5M3GYYc+bNsqeYKAAjFq +Qwb24oLssJ0fAZ7dhvo3sc9AcEpGMAHi9pcOl2DPxb/Q7QwjoLg2W7UM+9Qb +4pNINAFeiZ+K2dgzEn4J1gkElGYPd5LYgU6Nm9MuEJCnrnH/f3+7Ld7XmkEA +3zsz3f/f9530jBHKJkD0/EOfUuxJnVp1q3wCNsUs2BRj+5zd8D7xDgHXIm+N +38Aea3I99+I+AXF/6ulcxpa52ON1gU3APdOA4fPYtk577WxrCOiNvt0fgJ2o +2oxojQSkyp1nHsGuW9iqMviCgMz0qlKz/8f7tFSs6A1eT85Ckiq20mWFFe9u +/L25b+XrsY+4ZP+zeQDPn2WjNIX355K6SNf8MAGjT9vHW7Cf/4yrezxGABlD +LN/BXnq+VHz+OwFB9SPO57CPu34N37BCwP5dzWLK2NmaTp7veOmgk41OLOLz +1L7UuT9biA5vPfmFn2Nvz6pXVKTR4ft9O3sHbH83Xcokkw6j46aLMthFm+8u +lSvSoVvb/tsQPr/CLVc6dujSQT6lftAF2+yaUC2PAR3WM2P6COzQ49FFr4zp +4FJvodGF6+Mzl2/YAWs67NBnfzTAprYNu9Pt6dBk0mo4ietpb/Yh66EjdFh8 +/Gr+/3qr1DVT8PWmw21Px8h/cX2meNHfxMbR4f2g3fdgXM8NepeqrFLpYH9G +wEAEe46Hv1Akgw6rKNFfSnAeuOTNnMnNp8MnavmxzvMk0ul6JceppUPDPz94 +1+A8OZEP68Ka6LD8Kdc7FefNDV9yHl7R4fQkj74INv/aWy0t7+mQoizKL3KO +RAOGIac/T9PB3CHg+necdxTBKZe/FunwQMvS6hi2RY+blT+XNGSumfN8i/Ox +PNCaubROGhoshiaLw3De3lF8JaosDTvKbrP0QnA+iXRLmzhL47zZfqQX5+9o +6mh0prs0rOy3OaeBnSsw/+WLtzSY+634ReH8FuKRKk85Iw3/ZpY8Ygbg8zh3 +yLz7ojRE3/f9aepLotv9A74nmqWhRGPVoDzuH46H/u2seSUNMc9iafYeJBLr +XtZf3yENhLyUWjzuN9FvZLgrBqQh+Nv694O4P7k0Hs1ampMGM51pp9CjOM+K +R+rTlBlANRlrMXcgUZf8nPyQJgMeW5e8OHCIRMn5fEk6WxhwSGVbkRvufz+v +K9r2GjMgWzBlbSjujz2pJ77KOTKgzZaISd5PostBk8LkBQZMi8oOW+7CeYRm +j/bPMGA4yEtpqz6udyMlfvInA7Q4v1dNbsHrYXL4QdoqGXhbZB5yQ5dEjRYN +P403yMD+iRzTn9r4fO1PvVyiIgMn+z57ZKqTaNxd4enpozJgVG36wEEO96cU +OyWRNzKwW1WSVBTA/T8toW3snQxEBmVtuMiP++nFmlPN/TKg9vq8/AIfzrsr +sg1/jsnAnlbvmHpuEjHa59SmVjPhAl1Sj/Wbg7p7G5/aMZjwN+8jw9IpDto5 +6TAvZ8eElDzTVK5ODrohdr4z8iATuM6/H1Ht4KAf2++W9h9mQutErJrdGw66 +mfTL44orEyYOTcTnv+agn4o5PWv9mbB9y2S6bDMH3XMdqPqWxITk+qHaenw/ +E+5xPlv3hAmXu6qFwzI4qKfRbZWDmixs/a41Lofvj9+MPtDCNWVhyrJdZtGK +g9Y07NO5qS0L/GvNalvxfXNL/TaPUX1ZaI7s0Qw046CMGuHWQDNZYF7okCw2 +4KB97NqryU6ywOdUkfNChYOe3RbTepwuC+uenhYa4uUgTkKzE3NWFhK61hwp +eMRGx3mDB9va5IAdXNBm/asCHQsM4whd3whJlp6pPnoVSNNDtW33UXk4rGnc +89mjHL2hqAkGb1UA74l5+/UhD1HNg+hsNe5NcGAHT3l2ehkKW6Vi3TKwCVyz +YvSTiVIk0B9q4ctWhG28PuXLkvfRSJFsRt5ZJahQfNMpuOUuylCi8lTZKcPw +iUr/TM0SlH79+POjTBVIc3be+N3mDnLIONIm9EUFrFwcEsVSb6MF09uLeXWq +MLLoz6ksLUDDI8ZnGuPVQHjHN6NtPLfQLcPNROtRdYie6PN4tOsmuh8bLOKh +rgG9XC5qgYm5KN7umBX3rAZETTl2P6+8jnT780viWzWh33rS+dtAFrqqnH2/ +1UoLRC7xhZu7ZaLIJ6lXraq0oHBgUM5x7BLaQ9jdfiW/GZSVUswKytKRke/z +wyKJm2FqhqSsZKaiPLqrfMvsZig2yv97c28ikm+6c2XvYW1Y6E+kepbHoXT1 +RpW3ddqw7807Zauv59HxGZ6OlyosSPjYcMJVOwq5PpxmJqax4F8DNOo3HI58 +om2Wdl1kgazYyW0h7eEo2Ib9XugyC1ZUE0+kPA5HCbPBF9KvsEA6rGlXe1Y4 +erB18VdWLgv4O55Utu4OR4sNK91Fd1mwHF69I6fyLEp/K5Ta/JwFraig3S8r +DF0vOOkZ95IFGpXdXfdjw1DBqTYTi9cs4Nj+ZTYbFIZIifSfr9tYkCzl5XzT +Ogz1O4h6dr5jwTVaL8VDIAwpDlNNhoZZwFOpfroiMhRpsUMZhSMsqCnddCfO +NxRti+1bdP/CgrQjd9cdOxKKdivmlv0zxgKT/isn9baHokBvJuP7dxZkRz+S +2jsfgs4aRC2Wz7CAergt02s0BMWuG+o6NcsC3ZZptfR3IehqaUHywgILFgOL +s+cqQtCtczwe1T9ZoC7u6KNXEILu/uFufHaJBRRVV8uoSyGILfdMescyC5Kc +dmt2RYWguplNiysrLPBPvEfTCghB/wFKY2x9 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08808462784837333}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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, 20}, {0., 0.08808462784837333}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913290128289948`*^9, 3.992088696774971*^9, + 3.9920971128655396`*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"6634751e-80ee-6044-907a-7e25e47f573d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.020752"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.058831"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.090855"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.11027"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.120683"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.117878"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.109585"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.093652"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.077678"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.059892"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.045412"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.032103"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.022647"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.014816"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.009893"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.006002"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.003879"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.002155"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.001404"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.000678"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.00048"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991714709387436*^9, 3.991714738003292*^9}, { + 3.991714834117689*^9, 3.991714842328617*^9}, 3.991793311407936*^9, + 3.9917953263701286`*^9, 3.992087328336006*^9}, + CellLabel->"In[97]:=",ExpressionUUID->"d0e220f6-a6cd-c048-ab1a-de311ff0fdbc"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 20.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9917148467316074`*^9, 3.9920886968659515`*^9, + 3.9920971130338154`*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"8ca2b0cd-feb9-9d46-90ee-f4a7e3e9bdc2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel->"In[98]:=",ExpressionUUID->"b9d1e9a3-d136-bb41-ba98-cea12bff5352"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4VGscB3BlSagY68wZY4jsS4ao6P1ZIy1uSElIRMiabgiRfYmKVEgi +cVuImZMtsrQjIhHKJepariJbifvev87zeZ7znPNuv+/vlXX12+++mouLi3sV +F9f/z9wIV77Nbtk7aviiTK+cNd7R3Mncbc8MQZP1r4wMZ5lo5VndeSYzEa3j +n5uVmNVCuU9SZXiZ19Dja681Vn4A8jEMPjkvU4Lm3e2fDf6wRp2/PDO+yVQh +w4GmyPgfLmhN35DipMxL9DjIvkB7xh/lv8oLGJfpRQMLH6y/Tp5DD0oT+3w0 +xlDOoC6DnXwReaCOaxOBMyhNMcKluuca8h1RHmY/WETFOjxarh9vIgHZGMVP ++lzwt/Rpv7r5QnRB+LVKvgs3rErWO6R/pRi59tnWc7fwgdy1WwXr0D0U8DTG +1U9RAC7IM1csk0rRQ38hGynLdTCnOqctoPwQ5Yd5j2nZCwMvVfe0Q2Q5is5b ++uPHhAiQgnwU7owKZK1VGaA6IwIC5aYx41kViNEQdNF1UQRC/WrdOrIrUPXQ +WHs7LwXSDEP8Mgsq0LRC7777DAo8ytMtWi6vQK73OHuOW1Ngym3ey66jAhlV ++Vr2VFBg71+3uUSF2IircxBqQ0Wh8Gxz4dMQNor5py4/NEoUFDrjpfeFs9Fa +rtzVWxNEoYV6P+bdOTaiqB9q5mSKwiUHUro3no0U4jt2lpaJwjI//UxNJhvt +2t6499aoKNBO+tZMlLHR5YICx4T9YtCuYLtu1QgbSVVHPTY/JAYlEWkaSl/Z +KKfdmcHrIgYb3Y4a7B5no6LfxGDUSTGING2QTv7ORpX2GcfCEsTgXJ37/PBv +NuoXjPXyrRMDbu99/KslOGjTqeNnbFXEwUrs0vspEw5S3/bJJk9LHPJK3Ixi +zTlIh+ug5tgWcRAQ/GtZ0pKDjFMsRyNNxKG+7G2Q7l4OcipUs73rKA4WqTd3 +WR/koCtd05qr08Rh/VeZWl4fDuLVjfxSOiMOj48UOvhf5CChX/ONPxfFYSqx +2qnsMgdRGvxvmHFJwFz5n1WTmRzE3ONq1yckAXX+AUEu1znIwN2siW+TBDyN +svytUMBBpzIF844clIB76pGJm9kc9Hk264DgYwmorFa/Y9XFQbeMWEEDTRLA +YqeMO3dzkHNqW1rpKwn48CJfPKCHgz7I87606ZEA2sYfRFI/B3XYBG7PmZGA +17ZJC1c+c1Ddw91MdRVJGLfZr0H/wUFZJ1eN7c2ShNDLZVndwiSyrcrhk70h +CcaHJxgJFBJRePU3zhRKwkEv18wtYiS6kOPrmFUuCS8pjn8kSZIo5nVf26dW +SWj0Nd6wjkEif2Wywp9HCvLXLE5HqpBo14hX+KUAKVjZS1mWNiKRefjGe6Zn +pCDBMpbH05hExuL9H+YipCBT21uu1IRE28z26B9OkYJbnapFOuYkUrmtObPx +jhTUzI700K1IJOj+w5PTLwVyYc4WrrYk4v99L8tjWAoofHHz4XYk4sl0f0Yd +k4KgnK7mKwdItNTcvTFiXgpKe+/W1B8k0YR81UdzChUYjWWbphxJ1PI53LZn +JxW6un3sm91I9OLslvNJe6mg2LJKptydRM1iUw8N7KjwoXKtUO5xEtWaumzI +d6XCG4tDB708SXSv0PjViXAq/Cg//nzIm0TFBr8WiBgqzL9bfl7lQ6LCrgrF +tiQqeJiNfk89SaIcHoVY7atUoIxkN6n7kSjVbQ38KqdCqneaj1UgiZKW6n3v +V1FhYGfyU8EgEsVlnMl1fkIFx4Juq5fYEc3//GxqpUL3meND24NJ5Cvfwkn5 +SoWXLZ1mK3+SaO/ndFUGgwa6nosOK2fx/FQ/dznK0+Bjiuu/CeEksgrSi8hW +ocEBgRgx4QgSWaz+2C6lR4Nr3ypokpF4P5iqp0WtaaDC2ErwR5HoiUeEzP4D +NNjypdM6AhuVdrxId6SBl2EVfRrbYMcZYv0JGtSb6IS8jSaRruPTJ/zRNGC2 +kH+cjiERu0DKa2cCDcZ2+pr3YmuPe4vGXaCB9jLxbmssiTRCKce5s2mw30uv +cQb7XoP7BuN8Gkg0ZsjuiSOR6tqqynN3aPAu6zm9EFvpqrPgcgX+v8XFr7vi +SVT0qZxtUE0D9iCt+jq2giKfU9gTGvgHOCt/xZYj75UttNDAXZd7OCyBRPSu +RbuZERoUdmi0xyWS6DqxZ2XzBA2ceNbkNmFTj90s9p+mQWLGn4LL2BLT5r8m +l2mwo1ryjXcSiTK2Xi9U4yVgSM9EIQ9bNGpyj7cgAS1Dy4x2bGHhjJtfJQkw +rZBbUUnG9WL/xVKRQUBjQ+KoLfa6vG0z7vIELLRFBJ3FThlNzSlUIWDaMLoo +H1tA42+zYS0CmtrFzjVjJwTrTMnqEXCw+BHXCDbf4/irLoYEsEwnlLhTcP3x +9BnlmRDwR7TOIgObe7fG+IAlHs8NSqA+dvTlqAy6NQEvWWsz9mFz9XUZHj5A +gPLWbGc37Ag5pS/XHAk4xrP73WnspRNh6T2uBBhY5M3GYYc+bNsqeYKAAjFq +Qwb24oLssJ0fAZ7dhvo3sc9AcEpGMAHi9pcOl2DPxb/Q7QwjoLg2W7UM+9Qb +4pNINAFeiZ+K2dgzEn4J1gkElGYPd5LYgU6Nm9MuEJCnrnH/f3+7Ld7XmkEA +3zsz3f/f9530jBHKJkD0/EOfUuxJnVp1q3wCNsUs2BRj+5zd8D7xDgHXIm+N +38Aea3I99+I+AXF/6ulcxpa52ON1gU3APdOA4fPYtk577WxrCOiNvt0fgJ2o +2oxojQSkyp1nHsGuW9iqMviCgMz0qlKz/8f7tFSs6A1eT85Ckiq20mWFFe9u +/L25b+XrsY+4ZP+zeQDPn2WjNIX355K6SNf8MAGjT9vHW7Cf/4yrezxGABlD +LN/BXnq+VHz+OwFB9SPO57CPu34N37BCwP5dzWLK2NmaTp7veOmgk41OLOLz +1L7UuT9biA5vPfmFn2Nvz6pXVKTR4ft9O3sHbH83Xcokkw6j46aLMthFm+8u +lSvSoVvb/tsQPr/CLVc6dujSQT6lftAF2+yaUC2PAR3WM2P6COzQ49FFr4zp +4FJvodGF6+Mzl2/YAWs67NBnfzTAprYNu9Pt6dBk0mo4ietpb/Yh66EjdFh8 +/Gr+/3qr1DVT8PWmw21Px8h/cX2meNHfxMbR4f2g3fdgXM8NepeqrFLpYH9G +wEAEe46Hv1Akgw6rKNFfSnAeuOTNnMnNp8MnavmxzvMk0ul6JceppUPDPz94 +1+A8OZEP68Ka6LD8Kdc7FefNDV9yHl7R4fQkj74INv/aWy0t7+mQoizKL3KO +RAOGIac/T9PB3CHg+necdxTBKZe/FunwQMvS6hi2RY+blT+XNGSumfN8i/Ox +PNCaubROGhoshiaLw3De3lF8JaosDTvKbrP0QnA+iXRLmzhL47zZfqQX5+9o +6mh0prs0rOy3OaeBnSsw/+WLtzSY+634ReH8FuKRKk85Iw3/ZpY8Ygbg8zh3 +yLz7ojRE3/f9aepLotv9A74nmqWhRGPVoDzuH46H/u2seSUNMc9iafYeJBLr +XtZf3yENhLyUWjzuN9FvZLgrBqQh+Nv694O4P7k0Hs1ampMGM51pp9CjOM+K +R+rTlBlANRlrMXcgUZf8nPyQJgMeW5e8OHCIRMn5fEk6WxhwSGVbkRvufz+v +K9r2GjMgWzBlbSjujz2pJ77KOTKgzZaISd5PostBk8LkBQZMi8oOW+7CeYRm +j/bPMGA4yEtpqz6udyMlfvInA7Q4v1dNbsHrYXL4QdoqGXhbZB5yQ5dEjRYN +P403yMD+iRzTn9r4fO1PvVyiIgMn+z57ZKqTaNxd4enpozJgVG36wEEO96cU +OyWRNzKwW1WSVBTA/T8toW3snQxEBmVtuMiP++nFmlPN/TKg9vq8/AIfzrsr +sg1/jsnAnlbvmHpuEjHa59SmVjPhAl1Sj/Wbg7p7G5/aMZjwN+8jw9IpDto5 +6TAvZ8eElDzTVK5ODrohdr4z8iATuM6/H1Ht4KAf2++W9h9mQutErJrdGw66 +mfTL44orEyYOTcTnv+agn4o5PWv9mbB9y2S6bDMH3XMdqPqWxITk+qHaenw/ +E+5xPlv3hAmXu6qFwzI4qKfRbZWDmixs/a41Lofvj9+MPtDCNWVhyrJdZtGK +g9Y07NO5qS0L/GvNalvxfXNL/TaPUX1ZaI7s0Qw046CMGuHWQDNZYF7okCw2 +4KB97NqryU6ywOdUkfNChYOe3RbTepwuC+uenhYa4uUgTkKzE3NWFhK61hwp +eMRGx3mDB9va5IAdXNBm/asCHQsM4whd3whJlp6pPnoVSNNDtW33UXk4rGnc +89mjHL2hqAkGb1UA74l5+/UhD1HNg+hsNe5NcGAHT3l2ehkKW6Vi3TKwCVyz +YvSTiVIk0B9q4ctWhG28PuXLkvfRSJFsRt5ZJahQfNMpuOUuylCi8lTZKcPw +iUr/TM0SlH79+POjTBVIc3be+N3mDnLIONIm9EUFrFwcEsVSb6MF09uLeXWq +MLLoz6ksLUDDI8ZnGuPVQHjHN6NtPLfQLcPNROtRdYie6PN4tOsmuh8bLOKh +rgG9XC5qgYm5KN7umBX3rAZETTl2P6+8jnT780viWzWh33rS+dtAFrqqnH2/ +1UoLRC7xhZu7ZaLIJ6lXraq0oHBgUM5x7BLaQ9jdfiW/GZSVUswKytKRke/z +wyKJm2FqhqSsZKaiPLqrfMvsZig2yv97c28ikm+6c2XvYW1Y6E+kepbHoXT1 +RpW3ddqw7807Zauv59HxGZ6OlyosSPjYcMJVOwq5PpxmJqax4F8DNOo3HI58 +om2Wdl1kgazYyW0h7eEo2Ib9XugyC1ZUE0+kPA5HCbPBF9KvsEA6rGlXe1Y4 +erB18VdWLgv4O55Utu4OR4sNK91Fd1mwHF69I6fyLEp/K5Ta/JwFraig3S8r +DF0vOOkZ95IFGpXdXfdjw1DBqTYTi9cs4Nj+ZTYbFIZIifSfr9tYkCzl5XzT +Ogz1O4h6dr5jwTVaL8VDIAwpDlNNhoZZwFOpfroiMhRpsUMZhSMsqCnddCfO +NxRti+1bdP/CgrQjd9cdOxKKdivmlv0zxgKT/isn9baHokBvJuP7dxZkRz+S +2jsfgs4aRC2Wz7CAergt02s0BMWuG+o6NcsC3ZZptfR3IehqaUHywgILFgOL +s+cqQtCtczwe1T9ZoC7u6KNXEILu/uFufHaJBRRVV8uoSyGILfdMescyC5Kc +dmt2RYWguplNiysrLPBPvEfTCghB/wFKY2x9 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VGscB3BlSagY68wZY4jsS4ao6P1ZIy1uSElIRMiabgiRfYmKVEgi +cVuImZMtsrQjIhHKJepariJbifvev87zeZ7znPNuv+/vlXX12+++mouLi3sV +F9f/z9wIV77Nbtk7aviiTK+cNd7R3Mncbc8MQZP1r4wMZ5lo5VndeSYzEa3j +n5uVmNVCuU9SZXiZ19Dja681Vn4A8jEMPjkvU4Lm3e2fDf6wRp2/PDO+yVQh +w4GmyPgfLmhN35DipMxL9DjIvkB7xh/lv8oLGJfpRQMLH6y/Tp5DD0oT+3w0 +xlDOoC6DnXwReaCOaxOBMyhNMcKluuca8h1RHmY/WETFOjxarh9vIgHZGMVP ++lzwt/Rpv7r5QnRB+LVKvgs3rErWO6R/pRi59tnWc7fwgdy1WwXr0D0U8DTG +1U9RAC7IM1csk0rRQ38hGynLdTCnOqctoPwQ5Yd5j2nZCwMvVfe0Q2Q5is5b ++uPHhAiQgnwU7owKZK1VGaA6IwIC5aYx41kViNEQdNF1UQRC/WrdOrIrUPXQ +WHs7LwXSDEP8Mgsq0LRC7777DAo8ytMtWi6vQK73OHuOW1Ngym3ey66jAhlV ++Vr2VFBg71+3uUSF2IircxBqQ0Wh8Gxz4dMQNor5py4/NEoUFDrjpfeFs9Fa +rtzVWxNEoYV6P+bdOTaiqB9q5mSKwiUHUro3no0U4jt2lpaJwjI//UxNJhvt +2t6499aoKNBO+tZMlLHR5YICx4T9YtCuYLtu1QgbSVVHPTY/JAYlEWkaSl/Z +KKfdmcHrIgYb3Y4a7B5no6LfxGDUSTGING2QTv7ORpX2GcfCEsTgXJ37/PBv +NuoXjPXyrRMDbu99/KslOGjTqeNnbFXEwUrs0vspEw5S3/bJJk9LHPJK3Ixi +zTlIh+ug5tgWcRAQ/GtZ0pKDjFMsRyNNxKG+7G2Q7l4OcipUs73rKA4WqTd3 +WR/koCtd05qr08Rh/VeZWl4fDuLVjfxSOiMOj48UOvhf5CChX/ONPxfFYSqx +2qnsMgdRGvxvmHFJwFz5n1WTmRzE3ONq1yckAXX+AUEu1znIwN2siW+TBDyN +svytUMBBpzIF844clIB76pGJm9kc9Hk264DgYwmorFa/Y9XFQbeMWEEDTRLA +YqeMO3dzkHNqW1rpKwn48CJfPKCHgz7I87606ZEA2sYfRFI/B3XYBG7PmZGA +17ZJC1c+c1Ddw91MdRVJGLfZr0H/wUFZJ1eN7c2ShNDLZVndwiSyrcrhk70h +CcaHJxgJFBJRePU3zhRKwkEv18wtYiS6kOPrmFUuCS8pjn8kSZIo5nVf26dW +SWj0Nd6wjkEif2Wywp9HCvLXLE5HqpBo14hX+KUAKVjZS1mWNiKRefjGe6Zn +pCDBMpbH05hExuL9H+YipCBT21uu1IRE28z26B9OkYJbnapFOuYkUrmtObPx +jhTUzI700K1IJOj+w5PTLwVyYc4WrrYk4v99L8tjWAoofHHz4XYk4sl0f0Yd +k4KgnK7mKwdItNTcvTFiXgpKe+/W1B8k0YR81UdzChUYjWWbphxJ1PI53LZn +JxW6un3sm91I9OLslvNJe6mg2LJKptydRM1iUw8N7KjwoXKtUO5xEtWaumzI +d6XCG4tDB708SXSv0PjViXAq/Cg//nzIm0TFBr8WiBgqzL9bfl7lQ6LCrgrF +tiQqeJiNfk89SaIcHoVY7atUoIxkN6n7kSjVbQ38KqdCqneaj1UgiZKW6n3v +V1FhYGfyU8EgEsVlnMl1fkIFx4Juq5fYEc3//GxqpUL3meND24NJ5Cvfwkn5 +SoWXLZ1mK3+SaO/ndFUGgwa6nosOK2fx/FQ/dznK0+Bjiuu/CeEksgrSi8hW +ocEBgRgx4QgSWaz+2C6lR4Nr3ypokpF4P5iqp0WtaaDC2ErwR5HoiUeEzP4D +NNjypdM6AhuVdrxId6SBl2EVfRrbYMcZYv0JGtSb6IS8jSaRruPTJ/zRNGC2 +kH+cjiERu0DKa2cCDcZ2+pr3YmuPe4vGXaCB9jLxbmssiTRCKce5s2mw30uv +cQb7XoP7BuN8Gkg0ZsjuiSOR6tqqynN3aPAu6zm9EFvpqrPgcgX+v8XFr7vi +SVT0qZxtUE0D9iCt+jq2giKfU9gTGvgHOCt/xZYj75UttNDAXZd7OCyBRPSu +RbuZERoUdmi0xyWS6DqxZ2XzBA2ceNbkNmFTj90s9p+mQWLGn4LL2BLT5r8m +l2mwo1ryjXcSiTK2Xi9U4yVgSM9EIQ9bNGpyj7cgAS1Dy4x2bGHhjJtfJQkw +rZBbUUnG9WL/xVKRQUBjQ+KoLfa6vG0z7vIELLRFBJ3FThlNzSlUIWDaMLoo +H1tA42+zYS0CmtrFzjVjJwTrTMnqEXCw+BHXCDbf4/irLoYEsEwnlLhTcP3x +9BnlmRDwR7TOIgObe7fG+IAlHs8NSqA+dvTlqAy6NQEvWWsz9mFz9XUZHj5A +gPLWbGc37Ag5pS/XHAk4xrP73WnspRNh6T2uBBhY5M3GYYc+bNsqeYKAAjFq +Qwb24oLssJ0fAZ7dhvo3sc9AcEpGMAHi9pcOl2DPxb/Q7QwjoLg2W7UM+9Qb +4pNINAFeiZ+K2dgzEn4J1gkElGYPd5LYgU6Nm9MuEJCnrnH/f3+7Ld7XmkEA +3zsz3f/f9530jBHKJkD0/EOfUuxJnVp1q3wCNsUs2BRj+5zd8D7xDgHXIm+N +38Aea3I99+I+AXF/6ulcxpa52ON1gU3APdOA4fPYtk577WxrCOiNvt0fgJ2o +2oxojQSkyp1nHsGuW9iqMviCgMz0qlKz/8f7tFSs6A1eT85Ckiq20mWFFe9u +/L25b+XrsY+4ZP+zeQDPn2WjNIX355K6SNf8MAGjT9vHW7Cf/4yrezxGABlD +LN/BXnq+VHz+OwFB9SPO57CPu34N37BCwP5dzWLK2NmaTp7veOmgk41OLOLz +1L7UuT9biA5vPfmFn2Nvz6pXVKTR4ft9O3sHbH83Xcokkw6j46aLMthFm+8u +lSvSoVvb/tsQPr/CLVc6dujSQT6lftAF2+yaUC2PAR3WM2P6COzQ49FFr4zp +4FJvodGF6+Mzl2/YAWs67NBnfzTAprYNu9Pt6dBk0mo4ietpb/Yh66EjdFh8 +/Gr+/3qr1DVT8PWmw21Px8h/cX2meNHfxMbR4f2g3fdgXM8NepeqrFLpYH9G +wEAEe46Hv1Akgw6rKNFfSnAeuOTNnMnNp8MnavmxzvMk0ul6JceppUPDPz94 +1+A8OZEP68Ka6LD8Kdc7FefNDV9yHl7R4fQkj74INv/aWy0t7+mQoizKL3KO +RAOGIac/T9PB3CHg+necdxTBKZe/FunwQMvS6hi2RY+blT+XNGSumfN8i/Ox +PNCaubROGhoshiaLw3De3lF8JaosDTvKbrP0QnA+iXRLmzhL47zZfqQX5+9o +6mh0prs0rOy3OaeBnSsw/+WLtzSY+634ReH8FuKRKk85Iw3/ZpY8Ygbg8zh3 +yLz7ojRE3/f9aepLotv9A74nmqWhRGPVoDzuH46H/u2seSUNMc9iafYeJBLr +XtZf3yENhLyUWjzuN9FvZLgrBqQh+Nv694O4P7k0Hs1ampMGM51pp9CjOM+K +R+rTlBlANRlrMXcgUZf8nPyQJgMeW5e8OHCIRMn5fEk6WxhwSGVbkRvufz+v +K9r2GjMgWzBlbSjujz2pJ77KOTKgzZaISd5PostBk8LkBQZMi8oOW+7CeYRm +j/bPMGA4yEtpqz6udyMlfvInA7Q4v1dNbsHrYXL4QdoqGXhbZB5yQ5dEjRYN +P403yMD+iRzTn9r4fO1PvVyiIgMn+z57ZKqTaNxd4enpozJgVG36wEEO96cU +OyWRNzKwW1WSVBTA/T8toW3snQxEBmVtuMiP++nFmlPN/TKg9vq8/AIfzrsr +sg1/jsnAnlbvmHpuEjHa59SmVjPhAl1Sj/Wbg7p7G5/aMZjwN+8jw9IpDto5 +6TAvZ8eElDzTVK5ODrohdr4z8iATuM6/H1Ht4KAf2++W9h9mQutErJrdGw66 +mfTL44orEyYOTcTnv+agn4o5PWv9mbB9y2S6bDMH3XMdqPqWxITk+qHaenw/ +E+5xPlv3hAmXu6qFwzI4qKfRbZWDmixs/a41Lofvj9+MPtDCNWVhyrJdZtGK +g9Y07NO5qS0L/GvNalvxfXNL/TaPUX1ZaI7s0Qw046CMGuHWQDNZYF7okCw2 +4KB97NqryU6ywOdUkfNChYOe3RbTepwuC+uenhYa4uUgTkKzE3NWFhK61hwp +eMRGx3mDB9va5IAdXNBm/asCHQsM4whd3whJlp6pPnoVSNNDtW33UXk4rGnc +89mjHL2hqAkGb1UA74l5+/UhD1HNg+hsNe5NcGAHT3l2ehkKW6Vi3TKwCVyz +YvSTiVIk0B9q4ctWhG28PuXLkvfRSJFsRt5ZJahQfNMpuOUuylCi8lTZKcPw +iUr/TM0SlH79+POjTBVIc3be+N3mDnLIONIm9EUFrFwcEsVSb6MF09uLeXWq +MLLoz6ksLUDDI8ZnGuPVQHjHN6NtPLfQLcPNROtRdYie6PN4tOsmuh8bLOKh +rgG9XC5qgYm5KN7umBX3rAZETTl2P6+8jnT780viWzWh33rS+dtAFrqqnH2/ +1UoLRC7xhZu7ZaLIJ6lXraq0oHBgUM5x7BLaQ9jdfiW/GZSVUswKytKRke/z +wyKJm2FqhqSsZKaiPLqrfMvsZig2yv97c28ikm+6c2XvYW1Y6E+kepbHoXT1 +RpW3ddqw7807Zauv59HxGZ6OlyosSPjYcMJVOwq5PpxmJqax4F8DNOo3HI58 +om2Wdl1kgazYyW0h7eEo2Ib9XugyC1ZUE0+kPA5HCbPBF9KvsEA6rGlXe1Y4 +erB18VdWLgv4O55Utu4OR4sNK91Fd1mwHF69I6fyLEp/K5Ta/JwFraig3S8r +DF0vOOkZ95IFGpXdXfdjw1DBqTYTi9cs4Nj+ZTYbFIZIifSfr9tYkCzl5XzT +Ogz1O4h6dr5jwTVaL8VDIAwpDlNNhoZZwFOpfroiMhRpsUMZhSMsqCnddCfO +NxRti+1bdP/CgrQjd9cdOxKKdivmlv0zxgKT/isn9baHokBvJuP7dxZkRz+S +2jsfgs4aRC2Wz7CAergt02s0BMWuG+o6NcsC3ZZptfR3IehqaUHywgILFgOL +s+cqQtCtczwe1T9ZoC7u6KNXEILu/uFufHaJBRRVV8uoSyGILfdMescyC5Kc +dmt2RYWguplNiysrLPBPvEfTCghB/wFKY2x9 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08808462784837333}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08808462784837333}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VGscB3BlSagY68wZY4jsS4ao6P1ZIy1uSElIRMiabgiRfYmKVEgi +cVuImZMtsrQjIhHKJepariJbifvev87zeZ7znPNuv+/vlXX12+++mouLi3sV +F9f/z9wIV77Nbtk7aviiTK+cNd7R3Mncbc8MQZP1r4wMZ5lo5VndeSYzEa3j +n5uVmNVCuU9SZXiZ19Dja681Vn4A8jEMPjkvU4Lm3e2fDf6wRp2/PDO+yVQh +w4GmyPgfLmhN35DipMxL9DjIvkB7xh/lv8oLGJfpRQMLH6y/Tp5DD0oT+3w0 +xlDOoC6DnXwReaCOaxOBMyhNMcKluuca8h1RHmY/WETFOjxarh9vIgHZGMVP ++lzwt/Rpv7r5QnRB+LVKvgs3rErWO6R/pRi59tnWc7fwgdy1WwXr0D0U8DTG +1U9RAC7IM1csk0rRQ38hGynLdTCnOqctoPwQ5Yd5j2nZCwMvVfe0Q2Q5is5b ++uPHhAiQgnwU7owKZK1VGaA6IwIC5aYx41kViNEQdNF1UQRC/WrdOrIrUPXQ +WHs7LwXSDEP8Mgsq0LRC7777DAo8ytMtWi6vQK73OHuOW1Ngym3ey66jAhlV ++Vr2VFBg71+3uUSF2IircxBqQ0Wh8Gxz4dMQNor5py4/NEoUFDrjpfeFs9Fa +rtzVWxNEoYV6P+bdOTaiqB9q5mSKwiUHUro3no0U4jt2lpaJwjI//UxNJhvt +2t6499aoKNBO+tZMlLHR5YICx4T9YtCuYLtu1QgbSVVHPTY/JAYlEWkaSl/Z +KKfdmcHrIgYb3Y4a7B5no6LfxGDUSTGING2QTv7ORpX2GcfCEsTgXJ37/PBv +NuoXjPXyrRMDbu99/KslOGjTqeNnbFXEwUrs0vspEw5S3/bJJk9LHPJK3Ixi +zTlIh+ug5tgWcRAQ/GtZ0pKDjFMsRyNNxKG+7G2Q7l4OcipUs73rKA4WqTd3 +WR/koCtd05qr08Rh/VeZWl4fDuLVjfxSOiMOj48UOvhf5CChX/ONPxfFYSqx +2qnsMgdRGvxvmHFJwFz5n1WTmRzE3ONq1yckAXX+AUEu1znIwN2siW+TBDyN +svytUMBBpzIF844clIB76pGJm9kc9Hk264DgYwmorFa/Y9XFQbeMWEEDTRLA +YqeMO3dzkHNqW1rpKwn48CJfPKCHgz7I87606ZEA2sYfRFI/B3XYBG7PmZGA +17ZJC1c+c1Ddw91MdRVJGLfZr0H/wUFZJ1eN7c2ShNDLZVndwiSyrcrhk70h +CcaHJxgJFBJRePU3zhRKwkEv18wtYiS6kOPrmFUuCS8pjn8kSZIo5nVf26dW +SWj0Nd6wjkEif2Wywp9HCvLXLE5HqpBo14hX+KUAKVjZS1mWNiKRefjGe6Zn +pCDBMpbH05hExuL9H+YipCBT21uu1IRE28z26B9OkYJbnapFOuYkUrmtObPx +jhTUzI700K1IJOj+w5PTLwVyYc4WrrYk4v99L8tjWAoofHHz4XYk4sl0f0Yd +k4KgnK7mKwdItNTcvTFiXgpKe+/W1B8k0YR81UdzChUYjWWbphxJ1PI53LZn +JxW6un3sm91I9OLslvNJe6mg2LJKptydRM1iUw8N7KjwoXKtUO5xEtWaumzI +d6XCG4tDB708SXSv0PjViXAq/Cg//nzIm0TFBr8WiBgqzL9bfl7lQ6LCrgrF +tiQqeJiNfk89SaIcHoVY7atUoIxkN6n7kSjVbQ38KqdCqneaj1UgiZKW6n3v +V1FhYGfyU8EgEsVlnMl1fkIFx4Juq5fYEc3//GxqpUL3meND24NJ5Cvfwkn5 +SoWXLZ1mK3+SaO/ndFUGgwa6nosOK2fx/FQ/dznK0+Bjiuu/CeEksgrSi8hW +ocEBgRgx4QgSWaz+2C6lR4Nr3ypokpF4P5iqp0WtaaDC2ErwR5HoiUeEzP4D +NNjypdM6AhuVdrxId6SBl2EVfRrbYMcZYv0JGtSb6IS8jSaRruPTJ/zRNGC2 +kH+cjiERu0DKa2cCDcZ2+pr3YmuPe4vGXaCB9jLxbmssiTRCKce5s2mw30uv +cQb7XoP7BuN8Gkg0ZsjuiSOR6tqqynN3aPAu6zm9EFvpqrPgcgX+v8XFr7vi +SVT0qZxtUE0D9iCt+jq2giKfU9gTGvgHOCt/xZYj75UttNDAXZd7OCyBRPSu +RbuZERoUdmi0xyWS6DqxZ2XzBA2ceNbkNmFTj90s9p+mQWLGn4LL2BLT5r8m +l2mwo1ryjXcSiTK2Xi9U4yVgSM9EIQ9bNGpyj7cgAS1Dy4x2bGHhjJtfJQkw +rZBbUUnG9WL/xVKRQUBjQ+KoLfa6vG0z7vIELLRFBJ3FThlNzSlUIWDaMLoo +H1tA42+zYS0CmtrFzjVjJwTrTMnqEXCw+BHXCDbf4/irLoYEsEwnlLhTcP3x +9BnlmRDwR7TOIgObe7fG+IAlHs8NSqA+dvTlqAy6NQEvWWsz9mFz9XUZHj5A +gPLWbGc37Ag5pS/XHAk4xrP73WnspRNh6T2uBBhY5M3GYYc+bNsqeYKAAjFq +Qwb24oLssJ0fAZ7dhvo3sc9AcEpGMAHi9pcOl2DPxb/Q7QwjoLg2W7UM+9Qb +4pNINAFeiZ+K2dgzEn4J1gkElGYPd5LYgU6Nm9MuEJCnrnH/f3+7Ld7XmkEA +3zsz3f/f9530jBHKJkD0/EOfUuxJnVp1q3wCNsUs2BRj+5zd8D7xDgHXIm+N +38Aea3I99+I+AXF/6ulcxpa52ON1gU3APdOA4fPYtk577WxrCOiNvt0fgJ2o +2oxojQSkyp1nHsGuW9iqMviCgMz0qlKz/8f7tFSs6A1eT85Ckiq20mWFFe9u +/L25b+XrsY+4ZP+zeQDPn2WjNIX355K6SNf8MAGjT9vHW7Cf/4yrezxGABlD +LN/BXnq+VHz+OwFB9SPO57CPu34N37BCwP5dzWLK2NmaTp7veOmgk41OLOLz +1L7UuT9biA5vPfmFn2Nvz6pXVKTR4ft9O3sHbH83Xcokkw6j46aLMthFm+8u +lSvSoVvb/tsQPr/CLVc6dujSQT6lftAF2+yaUC2PAR3WM2P6COzQ49FFr4zp +4FJvodGF6+Mzl2/YAWs67NBnfzTAprYNu9Pt6dBk0mo4ietpb/Yh66EjdFh8 +/Gr+/3qr1DVT8PWmw21Px8h/cX2meNHfxMbR4f2g3fdgXM8NepeqrFLpYH9G +wEAEe46Hv1Akgw6rKNFfSnAeuOTNnMnNp8MnavmxzvMk0ul6JceppUPDPz94 +1+A8OZEP68Ka6LD8Kdc7FefNDV9yHl7R4fQkj74INv/aWy0t7+mQoizKL3KO +RAOGIac/T9PB3CHg+necdxTBKZe/FunwQMvS6hi2RY+blT+XNGSumfN8i/Ox +PNCaubROGhoshiaLw3De3lF8JaosDTvKbrP0QnA+iXRLmzhL47zZfqQX5+9o +6mh0prs0rOy3OaeBnSsw/+WLtzSY+634ReH8FuKRKk85Iw3/ZpY8Ygbg8zh3 +yLz7ojRE3/f9aepLotv9A74nmqWhRGPVoDzuH46H/u2seSUNMc9iafYeJBLr +XtZf3yENhLyUWjzuN9FvZLgrBqQh+Nv694O4P7k0Hs1ampMGM51pp9CjOM+K +R+rTlBlANRlrMXcgUZf8nPyQJgMeW5e8OHCIRMn5fEk6WxhwSGVbkRvufz+v +K9r2GjMgWzBlbSjujz2pJ77KOTKgzZaISd5PostBk8LkBQZMi8oOW+7CeYRm +j/bPMGA4yEtpqz6udyMlfvInA7Q4v1dNbsHrYXL4QdoqGXhbZB5yQ5dEjRYN +P403yMD+iRzTn9r4fO1PvVyiIgMn+z57ZKqTaNxd4enpozJgVG36wEEO96cU +OyWRNzKwW1WSVBTA/T8toW3snQxEBmVtuMiP++nFmlPN/TKg9vq8/AIfzrsr +sg1/jsnAnlbvmHpuEjHa59SmVjPhAl1Sj/Wbg7p7G5/aMZjwN+8jw9IpDto5 +6TAvZ8eElDzTVK5ODrohdr4z8iATuM6/H1Ht4KAf2++W9h9mQutErJrdGw66 +mfTL44orEyYOTcTnv+agn4o5PWv9mbB9y2S6bDMH3XMdqPqWxITk+qHaenw/ +E+5xPlv3hAmXu6qFwzI4qKfRbZWDmixs/a41Lofvj9+MPtDCNWVhyrJdZtGK +g9Y07NO5qS0L/GvNalvxfXNL/TaPUX1ZaI7s0Qw046CMGuHWQDNZYF7okCw2 +4KB97NqryU6ywOdUkfNChYOe3RbTepwuC+uenhYa4uUgTkKzE3NWFhK61hwp +eMRGx3mDB9va5IAdXNBm/asCHQsM4whd3whJlp6pPnoVSNNDtW33UXk4rGnc +89mjHL2hqAkGb1UA74l5+/UhD1HNg+hsNe5NcGAHT3l2ehkKW6Vi3TKwCVyz +YvSTiVIk0B9q4ctWhG28PuXLkvfRSJFsRt5ZJahQfNMpuOUuylCi8lTZKcPw +iUr/TM0SlH79+POjTBVIc3be+N3mDnLIONIm9EUFrFwcEsVSb6MF09uLeXWq +MLLoz6ksLUDDI8ZnGuPVQHjHN6NtPLfQLcPNROtRdYie6PN4tOsmuh8bLOKh +rgG9XC5qgYm5KN7umBX3rAZETTl2P6+8jnT780viWzWh33rS+dtAFrqqnH2/ +1UoLRC7xhZu7ZaLIJ6lXraq0oHBgUM5x7BLaQ9jdfiW/GZSVUswKytKRke/z +wyKJm2FqhqSsZKaiPLqrfMvsZig2yv97c28ikm+6c2XvYW1Y6E+kepbHoXT1 +RpW3ddqw7807Zauv59HxGZ6OlyosSPjYcMJVOwq5PpxmJqax4F8DNOo3HI58 +om2Wdl1kgazYyW0h7eEo2Ib9XugyC1ZUE0+kPA5HCbPBF9KvsEA6rGlXe1Y4 +erB18VdWLgv4O55Utu4OR4sNK91Fd1mwHF69I6fyLEp/K5Ta/JwFraig3S8r +DF0vOOkZ95IFGpXdXfdjw1DBqTYTi9cs4Nj+ZTYbFIZIifSfr9tYkCzl5XzT +Ogz1O4h6dr5jwTVaL8VDIAwpDlNNhoZZwFOpfroiMhRpsUMZhSMsqCnddCfO +NxRti+1bdP/CgrQjd9cdOxKKdivmlv0zxgKT/isn9baHokBvJuP7dxZkRz+S +2jsfgs4aRC2Wz7CAergt02s0BMWuG+o6NcsC3ZZptfR3IehqaUHywgILFgOL +s+cqQtCtczwe1T9ZoC7u6KNXEILu/uFufHaJBRRVV8uoSyGILfdMescyC5Kc +dmt2RYWguplNiysrLPBPvEfTCghB/wFKY2x9 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08808462784837333}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 20}, {0., 0.08808462784837333}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9920886968853626`*^9, 3.9920971130957966`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"49eaf9f0-d66d-d248-96e8-9d1b24c5e649"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{3.991844724526314*^9}, + CellLabel->"In[99]:=",ExpressionUUID->"f431849e-0899-864c-b9d1-1df0491628db"], + +Cell[BoxData["20.842886952760505`"], "Output", + CellChangeTimes->{3.9913294794877434`*^9, 3.992088696913355*^9, + 3.9920971131586475`*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"8707ea8b-950e-8f4c-a93e-7fc03d8c2221"] +}, 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.9918447267207756`*^9}, + CellLabel-> + "In[100]:=",ExpressionUUID->"650ee12b-eb50-044b-94e9-ce88ff255deb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.67331325968282`*^-279\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 274, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913294796838703`*^9, 3.9920886970970097`*^9, + 3.992097113450323*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"d14217c2-0468-2b4f-af36-5738b1135ea8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.379360399631195`*^-292\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 275, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913294796838703`*^9, 3.9920886970970097`*^9, + 3.9920971134813175`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"afff6afa-7b79-d54a-90ff-88e033c818e1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4994154234035094`*^-305\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 276, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913294796838703`*^9, 3.9920886970970097`*^9, + 3.9920971135002174`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"7fb5b0dd-013b-3646-b824-248c90e05387"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 100, 277, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913294796838703`*^9, 3.9920886970970097`*^9, + 3.992097113520218*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"d191cce1-9dc4-4848-bfae-9199e6e4a42e"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk8lPsXB3BZstxLSJZI176NmWdGyTa+R7TYd6WELKmUJVJKWSpKImQs +2ebJFiEqqWxNN6FN9lSW6P5sJSVLqN+3v+b1/uP5vp4553zP51HwCnTw5ebi +4lq1iovrz+/cQOu/ypcLjGtHfiRK8yoZd+VKh5v0xaDr2j66l4NXIVj32ku6 +LwUJx3UW+wSLoTC70l6ePhINJZvE2wYrILEvUimLvdXIwHMvyQymo8E6m8DZ +Xg4asFe3kAo2QduVJz7M9HagavGcpMQge7TYuyXta+9H1NE6vTE0YD96Ylpc +8Ib8jjI5EqTPP8eQ3OCD/7woK4gd0hBZ0HsKSRzxKOU35QFKkk1mW0E0SqFv +f2TjLABOTdFjp1Rj0dsMomlGVBgu83+0MdoWjy4XRL7mlhGDX2/P93TkJSKp +ayOXUnPWAu8elYJAr2QU52Ru3DG3DiYsa4uyIRWF6LM9WmOkIaHOdw2vThoy +m/55KmBkPbybWJPeOs1C0Ub2+9frbYD3QvcGKEkZyKAi8+7Zxo2w3WPpyi79 +LHRkYSaqRVgBxDlyg08rrqNFLdEBbWdFaGeJr/qploOMym7ls1hKMNkVVOt2 +JhfNiFt4unCUwd6u8bA2Ow+NJni6HONXhXN15TcEPPOR+fQJ80+6aqD3eB3v +6958NOUtEHI3Uh2Mzat2iFqwcT2luOM4GiBWVbz7RCkbjXvtKDF8pgGUPSHn +HpexUQL7hM3X5xqwnLPSJVTORp3yfVmu3Rrw2dh9KquSjTxlMnUoYxrQm/V0 +6vZdNgoXkfV9I6wJ//WL6d1tYKNbC/Itsq6aYKdhLCvdwUbiL1UTb09rgnpy +nYfLHBv9miYK22Y1Yae3Rmb0PBtNiBvWjS5qgmciV3fZAhtxdttOSPNqge6s +lNPKTzYKGT2xPVpaC/hFJIOv/WajrqWWX/YmWtDcMENLFSBRuqZ/4PcULRCP +aRfvlCHReevjscIZWqBzJb5yYD2JgoIic9RytODSUw27cVkS7axJfb63WAtq +xqxyljaQaMGkTu3fR1pQ+yP3oIQiifa4Cg9dG9UC7fUxryU1SSR3sdJOV5cC +o9zI1EOfRKUV5U8WDShgJB7RZWhAIr3uMt16RIHqhfjLUoYkclIskTMzp0CX +l4P/CyMSJdTlj9m7UeD1yPw3LSDR0tfkqKMxFOCqcKJytpOo3zX0dsErChjQ +PGosHUl0MOqY0sHOP+eZyQk7kWiuKIil1UeBc9S6my+xxWePRFQPU2Aj73VD +KxcSWST67myapUBMB8cIuZLoAcdl6N16bWjgMDjL7iTK0NIXXeunDQVHE3b2 +HCKRs+XLqw3+2rBophIRfhif579f7HCQNkjoFw7L+pPocukl8cfh2qATk7XV +/QiJzmr0SwQmaEPT7w3ubwNI5KN2WuZ5lTakn+kQvBlCIrpSveK5ZW04vl/l +ZkUEib5stb9BXUUFVa9qfb0zuF5en5T6+ahg3GjyqwlbmRRWoa+hwoa8CqX2 +sySSVnBXG1Sggk/AveHRKBL9kv+tZbiDCiVop8HYeRK1rTfZ/D2ZCvGVfQMu +CSRql69U5U2nwtoT6knt2D2KG6TXZVNh30ZFB/MrJBrWXPypW0SFnrgwUb1E +3F+DqqZTD6nwbckjWOgqiVT3Klhxj1DBRsSpPyaVRBSPJObaMSoYDK55/Bmb +4b1CVf5MhYymv+p2XSMR0/+t2PZ5KgQ/1ppWT8P9PZ3ce+kvGjwWHrdqYpEo +5voqb7FNNGA2hK1wMkl0MS/QSVGfBhHJ8Zs2ZpEo8caHbTrGNOB7Gxt9Cjuz +7IG6804anHUo3Ee9TqLbj4K/ZLjRoKH6uMLlbBINvBsO/+cCDeJPRkxL55Fo +dNDWnx5Pg/L/ZpMPYE+M1LttTaJB92pRqzvYPyYzkU8mDcqc8vgt8kn097I9 +X0k5DfofGeUdYZPIQI5zldZDg0++UYdib5Doo5LywHg/DRwnIrweY1/SitUq +GKSBH095yhJ2n4FFs/Q4DSqM+TOPFpDohGvH0qplGpTWm8DOQhIlEVnK7lwE +KAed/BGB7b3J0vIRNwFCueTH29h/GZVnHOcn4LQTw1eyCN8ny2CdCVECZpzG +hPuwqbaKe3asJaCwyvvC6mIScTt2RhWsI+BScdrmTdg392x+5b6eABiKhCvY +C4cWD3YqESDco8CjW0KiF0dLkwhVAtjf+UzdsfOD99ZcUSfg3tyBugvYO8Lr +eXZqE5D0hMetA5t1MTq3TpeA4x1+9l43SXQ4gfFURp8Aa/lvHuexja+OTIYZ +EiDK4ZQUYn9K36ZPBwKm7mePf8LeVCzYVWhOQOiNFc19pSQSKHv4k9uKgOyc +8yLh2O8r/BU8bQhIjpTXvoZ9ruZlwHpHAu5rf5Ntwe54miyY5EbAjh1fOKpl +JCpq3UpMuRPwkDkcbYR96uV3F/P9BDxuqomwx1bodi7gOUDAbrVjquHYs32r +n3seJOBmbEL3ZeyW9/dn6g8TIH34W1MOdtCoDDoZSICHgZB1I7bZWJtvdzAB +8zwzn19hS0+dTmCEEkD8deX5B+ypacqdpDACUt8vfJrEbvz+4e3USQIeidoy +F7FT5hO5LE4TsNWq9A3fLRIdWEJqxWcIaEYqN8SwRXjI0P0xBFCtP62oYq9e +bHScOU8A92aKJR3715cPjOg4Ahy3Ct01wJ4bXRITi8fP17P1TLGn+2Vm8hMI +8ONa99YCe6x9SzuRhP9fSGyaPfZQs3NlUzIBe5OlA3Zh99WFJNpdw/My8tnL +Dbu9OvnoEIuARV6NUE/slpJKq6BMAuTyp9je2E25L7W4sgkQCdo75Ytde21S +6GouAWsgw9EPuypecGIjmwDW5NPePy6NUmutvEGAmTt/+B+TYdtKUBEBE6mR +Ww5gZx3xjntdQkBIhv1aH+wUr+gDHmUETMfl/70fO3533rbpcgJOJCYp7cOO +salXjrxNgOGYye7d2KfM3vGsuUNA4HB/qQN2iMHix9x7eB56zshaYR8hpDjU +WgK+MmxKzbB9VDezGx4SkBgSuMsI203OMcqmngCaMp+SDraTeLDHQCOu5xBD +WAPbSiDJOIBDgJaznKQ8ttmvWxt+/UsAL/MTUxzbaLZt+cozArq8q87/6efm +ibF3G9oIGCkomJjH/aYOrX5U/oIA48mPgePYqj3KWczXBNymX5Xox5bkeO7e +10XAtYVndbXYIrVnt3zuIUCqPqupCHt1RbbkmbcENAkeHU3Fns/s68oeIOBK +IDvBH/tr0twdyjAB+eZWYi7YYxckUutGCCjTvliDsPuC7ezfjxFgCdu8RbHb +/QKII5ME9Jat8Z/H96dlX8Ka5c8EoOsrqR+wH5i3vJT9ToCqRq95MXaWAljs +XcHPO8ebE9gpUu4ak7/x+z8LdxfFjheOEDjNTQfN1Ltp0/g+n16835zFT4cU +E7Z/GbbbG5ppvxgddrGPPpDGdnpmrXhYgg4Lkq9GZ/D+sKr3X/VTkg6vYwt1 +2rCZN4sbZeTosMPUzugktnz0RiNXVTrM/KhdacX7qiJEQPGDOh1sbOP+ycE2 +PjDDv1+LDqofJwIDsfdZPuk8SNDhtBl3mhh29jo//5MGdFg1cXDZEu9HmdKK +rHQbOkzXLXpk4v1bkp0eJWtPh5g69X0e2HpJUQfyHOmg7Lb5kjL27lAHRvFu +OkT6nw64hfc3y3iutcaLDpPQGlxNkkiik7nYHUaH341CEek4Hwqeqg66htOh +ffOFk3bYOrVrnn44TQdfHp0iAWyHnOGrn6LoQH/fmBaG8yXZ74L6j3j8vm+e +tO7Mxf1ffrFLIo8OBpTWomacX4IqbjUOz+jwTYR3qwbOw8MyyKKslQ4+vxo3 +vcZ52SasOMDzgg79+pwTodgJc//ju9dOh/vOMtN1OF9FWkKcpfrpEOGXUrQt +9c/3yOXZd1N08Pz62kkX57Vc1UOGrzgDwM82Oe0SiSIKc5rrJRjA/cjzuQr2 +h8yoPZJSDPA488z13kUS5cZsj3kmywD2WZnQjjgS/ePU8UZDhQHKJQEkbyyJ +VObHg75sYUCw2ndu8xg8/0yZyhP7GFAv1lbvcIpEd5QOLXF7MkDAMi6KE47r +LfRgR6IXAzoyHM/Ssbf27h4q8GNAmuszLeGTJHIJzhDrCGZAO23Q4dFxEkUW +SoVSYhkQKS++8C0Iz7OwpP5wBQMGM9o62g+Q6NiA+BMLLh1Y5l+4YmeH57vZ +rb6UWwfaec4a59jieaosui/EpwNeTsrW4za4fpEGt9oEdUCy2u9CpDWJFBW8 +0izW6kDUxhHfAgsSvfGu8rNQ1QG+e8n87WYkIsZt/7aw0gFvF/eeSj28b78n +OJtn6EBDy6+lTHmcj7TmLHPtTcB9V6g6Z5SNGr4bLs2/2gSFg/WZvNlsFEBh +9L/x3QzD6QKt72zZiPnFp8tVUBdO6s3QB2bz0TZlaWthUhdWe7b5VmXkI/Wo ++JOcLVug/EXeiIFePtL01W9U6d8CgsdFLQRS85Bvw8Hzd4P1QL3S5Inzw1zU +mN/lM7NOHz7a1D+Vbs5BsyW/52n39aHfhPa39ats5K1SJphlbQAvu79J2Q5f +RzOaqbrVXw3A1SXcZs+7LFRbsDT846IhGF6dNHUZyUR7zJTAUN4INkbTOkS+ +ZCDZo3EPqE1GsG3zstr9j+londCRKutdTPD7dI9fcZyFCkzPnPrqyoQww2vt +LaMsxDiTaJrqxoT6lP2lgUMsZPP1dnfffiZcy+dLqe9lodieH4veR5hQHi1h +sKeZhRbIyK2nopnAVhVkpN9goX7D1M6iMiaclTX5qODOQgePF2SbVzAhOO6E +53NXFpqruOc7dZsJ/8k4LIY6s5C4Yt88vYYJo/zKES1WLGQpsEGuvokJ28Uu +vgoyZKG6riKfzm4mVEUcGmuWZiELkVrtsD4mnJPZs+mYBAv17Widk37HhKOM +wrwNoiw0+3DyovsQE6zXH+8O5WchbTZRPj7BhJdb5JuV59JQXb9JWMJnfF43 +37o3M2nIQsIR0b4yIXQh88KZz2noQNzxN6E/mFDDNf2iZzQNzTbFZkktMEHS +1LTg3FAaivmZ7v3wJ/a/h3OJ92lIdNNNyr4VJszOVjz60JuGco8+/PH7NxMO +UV2X4zvT0P8BHEtfoA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8lPsXB3BZstxLSJZI176NmWdGyTa+R7TYd6WELKmUJVJKWSpKImQs +2ebJFiEqqWxNN6FN9lSW6P5sJSVLqN+3v+b1/uP5vp4553zP51HwCnTw5ebi +4lq1iovrz+/cQOu/ypcLjGtHfiRK8yoZd+VKh5v0xaDr2j66l4NXIVj32ku6 +LwUJx3UW+wSLoTC70l6ePhINJZvE2wYrILEvUimLvdXIwHMvyQymo8E6m8DZ +Xg4asFe3kAo2QduVJz7M9HagavGcpMQge7TYuyXta+9H1NE6vTE0YD96Ylpc +8Ib8jjI5EqTPP8eQ3OCD/7woK4gd0hBZ0HsKSRzxKOU35QFKkk1mW0E0SqFv +f2TjLABOTdFjp1Rj0dsMomlGVBgu83+0MdoWjy4XRL7mlhGDX2/P93TkJSKp +ayOXUnPWAu8elYJAr2QU52Ru3DG3DiYsa4uyIRWF6LM9WmOkIaHOdw2vThoy +m/55KmBkPbybWJPeOs1C0Ub2+9frbYD3QvcGKEkZyKAi8+7Zxo2w3WPpyi79 +LHRkYSaqRVgBxDlyg08rrqNFLdEBbWdFaGeJr/qploOMym7ls1hKMNkVVOt2 +JhfNiFt4unCUwd6u8bA2Ow+NJni6HONXhXN15TcEPPOR+fQJ80+6aqD3eB3v +6958NOUtEHI3Uh2Mzat2iFqwcT2luOM4GiBWVbz7RCkbjXvtKDF8pgGUPSHn +HpexUQL7hM3X5xqwnLPSJVTORp3yfVmu3Rrw2dh9KquSjTxlMnUoYxrQm/V0 +6vZdNgoXkfV9I6wJ//WL6d1tYKNbC/Itsq6aYKdhLCvdwUbiL1UTb09rgnpy +nYfLHBv9miYK22Y1Yae3Rmb0PBtNiBvWjS5qgmciV3fZAhtxdttOSPNqge6s +lNPKTzYKGT2xPVpaC/hFJIOv/WajrqWWX/YmWtDcMENLFSBRuqZ/4PcULRCP +aRfvlCHReevjscIZWqBzJb5yYD2JgoIic9RytODSUw27cVkS7axJfb63WAtq +xqxyljaQaMGkTu3fR1pQ+yP3oIQiifa4Cg9dG9UC7fUxryU1SSR3sdJOV5cC +o9zI1EOfRKUV5U8WDShgJB7RZWhAIr3uMt16RIHqhfjLUoYkclIskTMzp0CX +l4P/CyMSJdTlj9m7UeD1yPw3LSDR0tfkqKMxFOCqcKJytpOo3zX0dsErChjQ +PGosHUl0MOqY0sHOP+eZyQk7kWiuKIil1UeBc9S6my+xxWePRFQPU2Aj73VD +KxcSWST67myapUBMB8cIuZLoAcdl6N16bWjgMDjL7iTK0NIXXeunDQVHE3b2 +HCKRs+XLqw3+2rBophIRfhif579f7HCQNkjoFw7L+pPocukl8cfh2qATk7XV +/QiJzmr0SwQmaEPT7w3ubwNI5KN2WuZ5lTakn+kQvBlCIrpSveK5ZW04vl/l +ZkUEib5stb9BXUUFVa9qfb0zuF5en5T6+ahg3GjyqwlbmRRWoa+hwoa8CqX2 +sySSVnBXG1Sggk/AveHRKBL9kv+tZbiDCiVop8HYeRK1rTfZ/D2ZCvGVfQMu +CSRql69U5U2nwtoT6knt2D2KG6TXZVNh30ZFB/MrJBrWXPypW0SFnrgwUb1E +3F+DqqZTD6nwbckjWOgqiVT3Klhxj1DBRsSpPyaVRBSPJObaMSoYDK55/Bmb +4b1CVf5MhYymv+p2XSMR0/+t2PZ5KgQ/1ppWT8P9PZ3ce+kvGjwWHrdqYpEo +5voqb7FNNGA2hK1wMkl0MS/QSVGfBhHJ8Zs2ZpEo8caHbTrGNOB7Gxt9Cjuz +7IG6804anHUo3Ee9TqLbj4K/ZLjRoKH6uMLlbBINvBsO/+cCDeJPRkxL55Fo +dNDWnx5Pg/L/ZpMPYE+M1LttTaJB92pRqzvYPyYzkU8mDcqc8vgt8kn097I9 +X0k5DfofGeUdYZPIQI5zldZDg0++UYdib5Doo5LywHg/DRwnIrweY1/SitUq +GKSBH095yhJ2n4FFs/Q4DSqM+TOPFpDohGvH0qplGpTWm8DOQhIlEVnK7lwE +KAed/BGB7b3J0vIRNwFCueTH29h/GZVnHOcn4LQTw1eyCN8ny2CdCVECZpzG +hPuwqbaKe3asJaCwyvvC6mIScTt2RhWsI+BScdrmTdg392x+5b6eABiKhCvY +C4cWD3YqESDco8CjW0KiF0dLkwhVAtjf+UzdsfOD99ZcUSfg3tyBugvYO8Lr +eXZqE5D0hMetA5t1MTq3TpeA4x1+9l43SXQ4gfFURp8Aa/lvHuexja+OTIYZ +EiDK4ZQUYn9K36ZPBwKm7mePf8LeVCzYVWhOQOiNFc19pSQSKHv4k9uKgOyc +8yLh2O8r/BU8bQhIjpTXvoZ9ruZlwHpHAu5rf5Ntwe54miyY5EbAjh1fOKpl +JCpq3UpMuRPwkDkcbYR96uV3F/P9BDxuqomwx1bodi7gOUDAbrVjquHYs32r +n3seJOBmbEL3ZeyW9/dn6g8TIH34W1MOdtCoDDoZSICHgZB1I7bZWJtvdzAB +8zwzn19hS0+dTmCEEkD8deX5B+ypacqdpDACUt8vfJrEbvz+4e3USQIeidoy +F7FT5hO5LE4TsNWq9A3fLRIdWEJqxWcIaEYqN8SwRXjI0P0xBFCtP62oYq9e +bHScOU8A92aKJR3715cPjOg4Ahy3Ct01wJ4bXRITi8fP17P1TLGn+2Vm8hMI +8ONa99YCe6x9SzuRhP9fSGyaPfZQs3NlUzIBe5OlA3Zh99WFJNpdw/My8tnL +Dbu9OvnoEIuARV6NUE/slpJKq6BMAuTyp9je2E25L7W4sgkQCdo75Ytde21S +6GouAWsgw9EPuypecGIjmwDW5NPePy6NUmutvEGAmTt/+B+TYdtKUBEBE6mR +Ww5gZx3xjntdQkBIhv1aH+wUr+gDHmUETMfl/70fO3533rbpcgJOJCYp7cOO +salXjrxNgOGYye7d2KfM3vGsuUNA4HB/qQN2iMHix9x7eB56zshaYR8hpDjU +WgK+MmxKzbB9VDezGx4SkBgSuMsI203OMcqmngCaMp+SDraTeLDHQCOu5xBD +WAPbSiDJOIBDgJaznKQ8ttmvWxt+/UsAL/MTUxzbaLZt+cozArq8q87/6efm +ibF3G9oIGCkomJjH/aYOrX5U/oIA48mPgePYqj3KWczXBNymX5Xox5bkeO7e +10XAtYVndbXYIrVnt3zuIUCqPqupCHt1RbbkmbcENAkeHU3Fns/s68oeIOBK +IDvBH/tr0twdyjAB+eZWYi7YYxckUutGCCjTvliDsPuC7ezfjxFgCdu8RbHb +/QKII5ME9Jat8Z/H96dlX8Ka5c8EoOsrqR+wH5i3vJT9ToCqRq95MXaWAljs +XcHPO8ebE9gpUu4ak7/x+z8LdxfFjheOEDjNTQfN1Ltp0/g+n16835zFT4cU +E7Z/GbbbG5ppvxgddrGPPpDGdnpmrXhYgg4Lkq9GZ/D+sKr3X/VTkg6vYwt1 +2rCZN4sbZeTosMPUzugktnz0RiNXVTrM/KhdacX7qiJEQPGDOh1sbOP+ycE2 +PjDDv1+LDqofJwIDsfdZPuk8SNDhtBl3mhh29jo//5MGdFg1cXDZEu9HmdKK +rHQbOkzXLXpk4v1bkp0eJWtPh5g69X0e2HpJUQfyHOmg7Lb5kjL27lAHRvFu +OkT6nw64hfc3y3iutcaLDpPQGlxNkkiik7nYHUaH341CEek4Hwqeqg66htOh +ffOFk3bYOrVrnn44TQdfHp0iAWyHnOGrn6LoQH/fmBaG8yXZ74L6j3j8vm+e +tO7Mxf1ffrFLIo8OBpTWomacX4IqbjUOz+jwTYR3qwbOw8MyyKKslQ4+vxo3 +vcZ52SasOMDzgg79+pwTodgJc//ju9dOh/vOMtN1OF9FWkKcpfrpEOGXUrQt +9c/3yOXZd1N08Pz62kkX57Vc1UOGrzgDwM82Oe0SiSIKc5rrJRjA/cjzuQr2 +h8yoPZJSDPA488z13kUS5cZsj3kmywD2WZnQjjgS/ePU8UZDhQHKJQEkbyyJ +VObHg75sYUCw2ndu8xg8/0yZyhP7GFAv1lbvcIpEd5QOLXF7MkDAMi6KE47r +LfRgR6IXAzoyHM/Ssbf27h4q8GNAmuszLeGTJHIJzhDrCGZAO23Q4dFxEkUW +SoVSYhkQKS++8C0Iz7OwpP5wBQMGM9o62g+Q6NiA+BMLLh1Y5l+4YmeH57vZ +rb6UWwfaec4a59jieaosui/EpwNeTsrW4za4fpEGt9oEdUCy2u9CpDWJFBW8 +0izW6kDUxhHfAgsSvfGu8rNQ1QG+e8n87WYkIsZt/7aw0gFvF/eeSj28b78n +OJtn6EBDy6+lTHmcj7TmLHPtTcB9V6g6Z5SNGr4bLs2/2gSFg/WZvNlsFEBh +9L/x3QzD6QKt72zZiPnFp8tVUBdO6s3QB2bz0TZlaWthUhdWe7b5VmXkI/Wo ++JOcLVug/EXeiIFePtL01W9U6d8CgsdFLQRS85Bvw8Hzd4P1QL3S5Inzw1zU +mN/lM7NOHz7a1D+Vbs5BsyW/52n39aHfhPa39ats5K1SJphlbQAvu79J2Q5f +RzOaqbrVXw3A1SXcZs+7LFRbsDT846IhGF6dNHUZyUR7zJTAUN4INkbTOkS+ +ZCDZo3EPqE1GsG3zstr9j+londCRKutdTPD7dI9fcZyFCkzPnPrqyoQww2vt +LaMsxDiTaJrqxoT6lP2lgUMsZPP1dnfffiZcy+dLqe9lodieH4veR5hQHi1h +sKeZhRbIyK2nopnAVhVkpN9goX7D1M6iMiaclTX5qODOQgePF2SbVzAhOO6E +53NXFpqruOc7dZsJ/8k4LIY6s5C4Yt88vYYJo/zKES1WLGQpsEGuvokJ28Uu +vgoyZKG6riKfzm4mVEUcGmuWZiELkVrtsD4mnJPZs+mYBAv17Widk37HhKOM +wrwNoiw0+3DyovsQE6zXH+8O5WchbTZRPj7BhJdb5JuV59JQXb9JWMJnfF43 +37o3M2nIQsIR0b4yIXQh88KZz2noQNzxN6E/mFDDNf2iZzQNzTbFZkktMEHS +1LTg3FAaivmZ7v3wJ/a/h3OJ92lIdNNNyr4VJszOVjz60JuGco8+/PH7NxMO +UV2X4zvT0P8BHEtfoA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.03647160061787884}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.03647160061787884}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8lPsXB3BZstxLSJZI176NmWdGyTa+R7TYd6WELKmUJVJKWSpKImQs +2ebJFiEqqWxNN6FN9lSW6P5sJSVLqN+3v+b1/uP5vp4553zP51HwCnTw5ebi +4lq1iovrz+/cQOu/ypcLjGtHfiRK8yoZd+VKh5v0xaDr2j66l4NXIVj32ku6 +LwUJx3UW+wSLoTC70l6ePhINJZvE2wYrILEvUimLvdXIwHMvyQymo8E6m8DZ +Xg4asFe3kAo2QduVJz7M9HagavGcpMQge7TYuyXta+9H1NE6vTE0YD96Ylpc +8Ib8jjI5EqTPP8eQ3OCD/7woK4gd0hBZ0HsKSRzxKOU35QFKkk1mW0E0SqFv +f2TjLABOTdFjp1Rj0dsMomlGVBgu83+0MdoWjy4XRL7mlhGDX2/P93TkJSKp +ayOXUnPWAu8elYJAr2QU52Ru3DG3DiYsa4uyIRWF6LM9WmOkIaHOdw2vThoy +m/55KmBkPbybWJPeOs1C0Ub2+9frbYD3QvcGKEkZyKAi8+7Zxo2w3WPpyi79 +LHRkYSaqRVgBxDlyg08rrqNFLdEBbWdFaGeJr/qploOMym7ls1hKMNkVVOt2 +JhfNiFt4unCUwd6u8bA2Ow+NJni6HONXhXN15TcEPPOR+fQJ80+6aqD3eB3v +6958NOUtEHI3Uh2Mzat2iFqwcT2luOM4GiBWVbz7RCkbjXvtKDF8pgGUPSHn +HpexUQL7hM3X5xqwnLPSJVTORp3yfVmu3Rrw2dh9KquSjTxlMnUoYxrQm/V0 +6vZdNgoXkfV9I6wJ//WL6d1tYKNbC/Itsq6aYKdhLCvdwUbiL1UTb09rgnpy +nYfLHBv9miYK22Y1Yae3Rmb0PBtNiBvWjS5qgmciV3fZAhtxdttOSPNqge6s +lNPKTzYKGT2xPVpaC/hFJIOv/WajrqWWX/YmWtDcMENLFSBRuqZ/4PcULRCP +aRfvlCHReevjscIZWqBzJb5yYD2JgoIic9RytODSUw27cVkS7axJfb63WAtq +xqxyljaQaMGkTu3fR1pQ+yP3oIQiifa4Cg9dG9UC7fUxryU1SSR3sdJOV5cC +o9zI1EOfRKUV5U8WDShgJB7RZWhAIr3uMt16RIHqhfjLUoYkclIskTMzp0CX +l4P/CyMSJdTlj9m7UeD1yPw3LSDR0tfkqKMxFOCqcKJytpOo3zX0dsErChjQ +PGosHUl0MOqY0sHOP+eZyQk7kWiuKIil1UeBc9S6my+xxWePRFQPU2Aj73VD +KxcSWST67myapUBMB8cIuZLoAcdl6N16bWjgMDjL7iTK0NIXXeunDQVHE3b2 +HCKRs+XLqw3+2rBophIRfhif579f7HCQNkjoFw7L+pPocukl8cfh2qATk7XV +/QiJzmr0SwQmaEPT7w3ubwNI5KN2WuZ5lTakn+kQvBlCIrpSveK5ZW04vl/l +ZkUEib5stb9BXUUFVa9qfb0zuF5en5T6+ahg3GjyqwlbmRRWoa+hwoa8CqX2 +sySSVnBXG1Sggk/AveHRKBL9kv+tZbiDCiVop8HYeRK1rTfZ/D2ZCvGVfQMu +CSRql69U5U2nwtoT6knt2D2KG6TXZVNh30ZFB/MrJBrWXPypW0SFnrgwUb1E +3F+DqqZTD6nwbckjWOgqiVT3Klhxj1DBRsSpPyaVRBSPJObaMSoYDK55/Bmb +4b1CVf5MhYymv+p2XSMR0/+t2PZ5KgQ/1ppWT8P9PZ3ce+kvGjwWHrdqYpEo +5voqb7FNNGA2hK1wMkl0MS/QSVGfBhHJ8Zs2ZpEo8caHbTrGNOB7Gxt9Cjuz +7IG6804anHUo3Ee9TqLbj4K/ZLjRoKH6uMLlbBINvBsO/+cCDeJPRkxL55Fo +dNDWnx5Pg/L/ZpMPYE+M1LttTaJB92pRqzvYPyYzkU8mDcqc8vgt8kn097I9 +X0k5DfofGeUdYZPIQI5zldZDg0++UYdib5Doo5LywHg/DRwnIrweY1/SitUq +GKSBH095yhJ2n4FFs/Q4DSqM+TOPFpDohGvH0qplGpTWm8DOQhIlEVnK7lwE +KAed/BGB7b3J0vIRNwFCueTH29h/GZVnHOcn4LQTw1eyCN8ny2CdCVECZpzG +hPuwqbaKe3asJaCwyvvC6mIScTt2RhWsI+BScdrmTdg392x+5b6eABiKhCvY +C4cWD3YqESDco8CjW0KiF0dLkwhVAtjf+UzdsfOD99ZcUSfg3tyBugvYO8Lr +eXZqE5D0hMetA5t1MTq3TpeA4x1+9l43SXQ4gfFURp8Aa/lvHuexja+OTIYZ +EiDK4ZQUYn9K36ZPBwKm7mePf8LeVCzYVWhOQOiNFc19pSQSKHv4k9uKgOyc +8yLh2O8r/BU8bQhIjpTXvoZ9ruZlwHpHAu5rf5Ntwe54miyY5EbAjh1fOKpl +JCpq3UpMuRPwkDkcbYR96uV3F/P9BDxuqomwx1bodi7gOUDAbrVjquHYs32r +n3seJOBmbEL3ZeyW9/dn6g8TIH34W1MOdtCoDDoZSICHgZB1I7bZWJtvdzAB +8zwzn19hS0+dTmCEEkD8deX5B+ypacqdpDACUt8vfJrEbvz+4e3USQIeidoy +F7FT5hO5LE4TsNWq9A3fLRIdWEJqxWcIaEYqN8SwRXjI0P0xBFCtP62oYq9e +bHScOU8A92aKJR3715cPjOg4Ahy3Ct01wJ4bXRITi8fP17P1TLGn+2Vm8hMI +8ONa99YCe6x9SzuRhP9fSGyaPfZQs3NlUzIBe5OlA3Zh99WFJNpdw/My8tnL +Dbu9OvnoEIuARV6NUE/slpJKq6BMAuTyp9je2E25L7W4sgkQCdo75Ytde21S +6GouAWsgw9EPuypecGIjmwDW5NPePy6NUmutvEGAmTt/+B+TYdtKUBEBE6mR +Ww5gZx3xjntdQkBIhv1aH+wUr+gDHmUETMfl/70fO3533rbpcgJOJCYp7cOO +salXjrxNgOGYye7d2KfM3vGsuUNA4HB/qQN2iMHix9x7eB56zshaYR8hpDjU +WgK+MmxKzbB9VDezGx4SkBgSuMsI203OMcqmngCaMp+SDraTeLDHQCOu5xBD +WAPbSiDJOIBDgJaznKQ8ttmvWxt+/UsAL/MTUxzbaLZt+cozArq8q87/6efm +ibF3G9oIGCkomJjH/aYOrX5U/oIA48mPgePYqj3KWczXBNymX5Xox5bkeO7e +10XAtYVndbXYIrVnt3zuIUCqPqupCHt1RbbkmbcENAkeHU3Fns/s68oeIOBK +IDvBH/tr0twdyjAB+eZWYi7YYxckUutGCCjTvliDsPuC7ezfjxFgCdu8RbHb +/QKII5ME9Jat8Z/H96dlX8Ka5c8EoOsrqR+wH5i3vJT9ToCqRq95MXaWAljs +XcHPO8ebE9gpUu4ak7/x+z8LdxfFjheOEDjNTQfN1Ltp0/g+n16835zFT4cU +E7Z/GbbbG5ppvxgddrGPPpDGdnpmrXhYgg4Lkq9GZ/D+sKr3X/VTkg6vYwt1 +2rCZN4sbZeTosMPUzugktnz0RiNXVTrM/KhdacX7qiJEQPGDOh1sbOP+ycE2 +PjDDv1+LDqofJwIDsfdZPuk8SNDhtBl3mhh29jo//5MGdFg1cXDZEu9HmdKK +rHQbOkzXLXpk4v1bkp0eJWtPh5g69X0e2HpJUQfyHOmg7Lb5kjL27lAHRvFu +OkT6nw64hfc3y3iutcaLDpPQGlxNkkiik7nYHUaH341CEek4Hwqeqg66htOh +ffOFk3bYOrVrnn44TQdfHp0iAWyHnOGrn6LoQH/fmBaG8yXZ74L6j3j8vm+e +tO7Mxf1ffrFLIo8OBpTWomacX4IqbjUOz+jwTYR3qwbOw8MyyKKslQ4+vxo3 +vcZ52SasOMDzgg79+pwTodgJc//ju9dOh/vOMtN1OF9FWkKcpfrpEOGXUrQt +9c/3yOXZd1N08Pz62kkX57Vc1UOGrzgDwM82Oe0SiSIKc5rrJRjA/cjzuQr2 +h8yoPZJSDPA488z13kUS5cZsj3kmywD2WZnQjjgS/ePU8UZDhQHKJQEkbyyJ +VObHg75sYUCw2ndu8xg8/0yZyhP7GFAv1lbvcIpEd5QOLXF7MkDAMi6KE47r +LfRgR6IXAzoyHM/Ssbf27h4q8GNAmuszLeGTJHIJzhDrCGZAO23Q4dFxEkUW +SoVSYhkQKS++8C0Iz7OwpP5wBQMGM9o62g+Q6NiA+BMLLh1Y5l+4YmeH57vZ +rb6UWwfaec4a59jieaosui/EpwNeTsrW4za4fpEGt9oEdUCy2u9CpDWJFBW8 +0izW6kDUxhHfAgsSvfGu8rNQ1QG+e8n87WYkIsZt/7aw0gFvF/eeSj28b78n +OJtn6EBDy6+lTHmcj7TmLHPtTcB9V6g6Z5SNGr4bLs2/2gSFg/WZvNlsFEBh +9L/x3QzD6QKt72zZiPnFp8tVUBdO6s3QB2bz0TZlaWthUhdWe7b5VmXkI/Wo ++JOcLVug/EXeiIFePtL01W9U6d8CgsdFLQRS85Bvw8Hzd4P1QL3S5Inzw1zU +mN/lM7NOHz7a1D+Vbs5BsyW/52n39aHfhPa39ats5K1SJphlbQAvu79J2Q5f +RzOaqbrVXw3A1SXcZs+7LFRbsDT846IhGF6dNHUZyUR7zJTAUN4INkbTOkS+ +ZCDZo3EPqE1GsG3zstr9j+londCRKutdTPD7dI9fcZyFCkzPnPrqyoQww2vt +LaMsxDiTaJrqxoT6lP2lgUMsZPP1dnfffiZcy+dLqe9lodieH4veR5hQHi1h +sKeZhRbIyK2nopnAVhVkpN9goX7D1M6iMiaclTX5qODOQgePF2SbVzAhOO6E +53NXFpqruOc7dZsJ/8k4LIY6s5C4Yt88vYYJo/zKES1WLGQpsEGuvokJ28Uu +vgoyZKG6riKfzm4mVEUcGmuWZiELkVrtsD4mnJPZs+mYBAv17Widk37HhKOM +wrwNoiw0+3DyovsQE6zXH+8O5WchbTZRPj7BhJdb5JuV59JQXb9JWMJnfF43 +37o3M2nIQsIR0b4yIXQh88KZz2noQNzxN6E/mFDDNf2iZzQNzTbFZkktMEHS +1LTg3FAaivmZ7v3wJ/a/h3OJ92lIdNNNyr4VJszOVjz60JuGco8+/PH7NxMO +UV2X4zvT0P8BHEtfoA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.03647160061787884}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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.03647160061787884}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913298974454536`*^9, 3.992088914306841*^9, + 3.9920975843663845`*^9}, + CellLabel-> + "Out[100]=",ExpressionUUID->"fa07d8a7-b0ec-5443-b356-724e13a86f9b"] +}, 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[101]:=",ExpressionUUID->"5c6d0b57-910e-664a-8fd6-40771b36868b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5070048198550655`*^-232\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 101, 278, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913298974999084`*^9, 3.992088914397833*^9, + 3.9920975845660343`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"ef871e35-46ba-b245-8f27-60fefbd51296"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.2899389042200305`*^-239\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 101, 279, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913298974999084`*^9, 3.992088914397833*^9, + 3.9920975845950394`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"05592ce2-95f9-944d-809e-448a5766e3b8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.479630666055037`*^-246\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 101, 280, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913298974999084`*^9, 3.992088914397833*^9, + 3.9920975846111336`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"6d14efd6-6474-aa47-9ee8-2ba2f3bbeab8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 101, 281, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913298974999084`*^9, 3.992088914397833*^9, + 3.992097584629135*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"b8692b98-27aa-2e43-a9e4-db06e05f2ea8"], + +Cell[BoxData["20.84288695276051`"], "Output", + CellChangeTimes->{3.991329904262455*^9, 3.992088933970873*^9, + 3.9920976309857903`*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"b65b523e-3a9a-2345-98f7-5f2133665585"] +}, 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.991844712341957*^9, 3.991844718198534*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"b04a104f-3249-a34a-8102-7d9b3c7b796d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.488095431517469`*^-222\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 102, 282, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904300501*^9, 3.992088934093851*^9, + 3.992097631096306*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"b6d11303-c7af-144f-89e8-08357295f81f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.053159700901627`*^-228\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 102, 283, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904300501*^9, 3.992088934093851*^9, + 3.992097631133297*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"104ec450-cf72-4649-b489-757cbd2fb8a0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.264238140764884`*^-234\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 102, 284, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904300501*^9, 3.992088934093851*^9, + 3.9920976311512966`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"f08ad4f8-b9e9-634d-a88c-8e7647d2e0c3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 102, 285, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904300501*^9, 3.992088934093851*^9, + 3.992097631168293*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"f4d3212b-b508-ea44-abf4-57e8c6aa9fca"], + +Cell[BoxData["4.57410155670111`"], "Output", + CellChangeTimes->{3.9913299110465336`*^9, 3.992088939733183*^9, + 3.9920976419556274`*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"13585f92-1b74-c241-afd2-3f9eb5f34548"] +}, 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.9918447603776054`*^9, 3.991844763418377*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"6b8170ef-e8e1-8b4d-b589-528a0f547fe8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.488095431517469`*^-222\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 103, 286, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911081766*^9, 3.992088939770611*^9, + 3.992097642060631*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"e92d017c-1f33-0340-8d2c-d44333f7f3ae"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.053159700901627`*^-228\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 103, 287, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911081766*^9, 3.992088939770611*^9, + 3.992097642100624*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"a9bb0afa-553c-8148-8d0b-426847c1f6d8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.264238140764884`*^-234\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 103, 288, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911081766*^9, 3.992088939770611*^9, + 3.9920976421205864`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"08e7a490-4bff-1c48-8627-f0721870b2bc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 103, 289, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911081766*^9, 3.992088939770611*^9, + 3.992097642143633*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"6e733448-ab0d-524a-9c1b-34bfad68fb5c"], + +Cell[BoxData["20.350194844654585`"], "Output", + CellChangeTimes->{3.9913299163114815`*^9, 3.9920889437639008`*^9, + 3.992097652158064*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"83d50851-e908-c945-85b9-aee99d98ad2b"] +}, 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.991844769790985*^9, 3.991844773139332*^9}}, + CellLabel-> + "In[104]:=",ExpressionUUID->"984387ef-9fd9-3c47-bc3d-b6f0e8b03e2c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.488095431517469`*^-222\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 104, 290, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163444805`*^9, 3.992088943808281*^9, + 3.9920976522560444`*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"64993219-98a2-614f-897b-60aff105ebde"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.053159700901627`*^-228\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 104, 291, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163444805`*^9, 3.992088943808281*^9, + 3.9920976523050404`*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"957ea713-6fb8-0844-b1a6-d33b79437d65"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.264238140764884`*^-234\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 104, 292, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163444805`*^9, 3.992088943808281*^9, + 3.9920976523281364`*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"4b8bcb14-8e99-134e-909c-07dc1aa31996"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 104, 293, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163444805`*^9, 3.992088943808281*^9, + 3.992097652348137*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"65548e04-fa59-1b4a-b4cc-b602fd354e12"], + +Cell[BoxData["130.34574531636503`"], "Output", + CellChangeTimes->{3.9913299193276234`*^9, 3.9920889440951786`*^9, + 3.992097659821041*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"4c2a980a-0372-9243-ac3e-5bb013d45b18"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991844780323551*^9, 3.9918447845314407`*^9}}, + CellLabel-> + "In[105]:=",ExpressionUUID->"a1d4e2a6-d632-ee42-bf72-0ec0037a6c16"], + +Cell[BoxData["0.08881229382771318`"], "Output", + CellChangeTimes->{3.99132991935894*^9, 3.9920976598869553`*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"e5714781-9438-f048-94ef-f0fbb2b76930"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991844802080488*^9, 3.991844804321781*^9}, + 3.9919238865933857`*^9}, + CellLabel-> + "In[106]:=",ExpressionUUID->"ab8417e8-4709-e943-87cd-c5b8a0910541"], + +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[107]:=",ExpressionUUID->"befa51f5-5940-8743-b07a-eb3a8aba653f"], + +Cell[BoxData["2.4513631194298338`"], "Output", + CellChangeTimes->{3.9913299193849545`*^9, 3.9920976599170494`*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"aaf00355-c108-2648-98ef-3d16547828ae"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"8c248539-c23a-4a42-8e54-3b513c751017"], + +Cell[BoxData["9.019644802894332`"], "Output", + CellChangeTimes->{3.9913299194207077`*^9, 3.992097659936947*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"788b9edb-cd81-f543-ab7d-3572a7f8b79d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[109]:=",ExpressionUUID->"293f8673-c8b0-6746-85db-59c8f599b57c"], + +Cell[BoxData["22.110424620172136`"], "Output", + CellChangeTimes->{3.9913299194738407`*^9, 3.9920976599579926`*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"022ed980-baa5-fc40-85d2-bc6a62091d10"] +}, 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[110]:=",ExpressionUUID->"8fe440ff-6433-ee43-8ab0-44131de05652"], + +Cell[BoxData["0.04375523320029946`"], "Output", + CellChangeTimes->{3.991329919501911*^9, 3.9920976599739475`*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"7e3d6418-4f4c-854d-9c13-61a842dacdc5"] +}, 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[111]:=",ExpressionUUID->"ec04ad19-eb6d-ba4f-929a-62702cc30a12"], + +Cell[BoxData["4.236721720364148`"], "Output", + CellChangeTimes->{3.991329919596855*^9, 3.9920976602064705`*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"6dfad148-1b2d-ae43-bc66-54a526877241"] +}, 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[112]:=",ExpressionUUID->"301beffb-a956-b44c-beb2-37fe9711e64e"], + +Cell[BoxData["0.0018677246212721085`"], "Output", + CellChangeTimes->{3.9913299196126003`*^9, 3.992097660236948*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"60a4397a-d5dd-af40-a794-7c297c76bb93"] +}, 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[113]:=",ExpressionUUID->"603274e8-9f12-ce48-b425-66b0e2e5dd2e"], + +Cell[BoxData["20.506357230916006`"], "Output", + CellChangeTimes->{3.9913299197036095`*^9, 3.992097660491068*^9}, + CellLabel-> + "Out[113]=",ExpressionUUID->"7fccc06e-6d4d-984b-84bf-e840d287c94d"] +}, 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[114]:=",ExpressionUUID->"26d67789-9b33-7843-a368-14c85da65ff3"], + +Cell[BoxData["0.9633250942217355`"], "Output", + CellChangeTimes->{3.9913299197165985`*^9, 3.992097660517164*^9}, + CellLabel-> + "Out[114]=",ExpressionUUID->"231db967-fec2-f04b-9750-82f282346ca8"] +}, 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[115]:=",ExpressionUUID->"a37295b9-9f23-ed46-af76-8081da173c8b"], + +Cell[BoxData["0.03667490577826447`"], "Output", + CellChangeTimes->{3.991329919739599*^9, 3.992097660543783*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"11c26d6b-764b-1647-9eac-1800b643af06"] +}, 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[116]:=",ExpressionUUID->"8cb2872a-60dc-2845-b059-08954f0afeb4"], + +Cell[BoxData["0.035329857064419885`"], "Output", + CellChangeTimes->{3.9913299197646008`*^9, 3.9920976605654526`*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"482139b1-4f62-5e46-af70-d0ca7ba0d29c"] +}, 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.991844883530533*^9}, + CellLabel-> + "In[117]:=",ExpressionUUID->"003a047b-90eb-3149-b4f8-a296c2b2cdcd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8566520609727662`*^-243\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 117, 294, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329919788595*^9, 3.992097660609028*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"e94e3fc3-7c2d-f24d-9dfc-53cb03f93241"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.18912517513297`*^-251\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 117, 295, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329919788595*^9, 3.9920976606538486`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"abffe7e0-de75-c041-bd8d-0f3a225e75f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.6119729993384204`*^-258\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 117, 296, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329919788595*^9, 3.992097660675852*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"1cf41d95-f98c-574a-bfa8-95b38645e095"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 117, 297, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329919788595*^9, 3.9920976607008553`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"56cb601b-a020-b445-aab2-fe197181f715"], + +Cell[BoxData["4.236721720364147`"], "Output", + CellChangeTimes->{3.991329923627493*^9, 3.9920976671489906`*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"d7384ead-bc71-7f4d-9258-214fb3f1cd64"] +}, 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.991844898486679*^9}, + CellLabel-> + "In[118]:=",ExpressionUUID->"17f0d32c-a57d-2a45-81f1-ef75e11de8a0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8566520609727662`*^-243\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 118, 298, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299236609*^9, 3.9920976672566776`*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"503491ad-4cfd-da4a-9dd3-97e70fb83533"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.18912517513297`*^-251\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 118, 299, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299236609*^9, 3.99209766728858*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"1ea217e7-ea9a-0043-8c7e-3f5cba400bf5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.6119729993384204`*^-258\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 118, 300, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299236609*^9, 3.9920976673085785`*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"fb827f59-f541-544a-86c5-d77845e9fec3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 118, 301, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299236609*^9, 3.9920976673316727`*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"8dad8d7b-a4f3-c743-98d9-617311e55eb0"], + +Cell[BoxData["20.506357230916002`"], "Output", + CellChangeTimes->{3.9913299274564743`*^9, 3.992097673728756*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"c42622fe-747c-4c46-9315-b2e79974099b"] +}, 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.9918449035840626`*^9}, + CellLabel-> + "In[119]:=",ExpressionUUID->"fcd15b99-cf8b-0648-a673-70cdac1f227f"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk4VdsbB3AJqcgUQjIrRJyDUq71ZgqZVciQjn02CZnvCaGB7i0zoTJE +imQOma6faHBLcaNJ5qlM5xxKmv3W+WM/+/k8a+93fd+1n3cr0E450rm5uLgW +8MW5B7/Q2n6/94VR3CHn0qR3TGTELNajmZaj5h0z1RyPFuhnKpu2Im+h/Kcc +2xPP+QSoj1DQuohljmsYsZ28pt0odFOwTjL234+3tMeW/Yf+UkiJ4bipNzj/ +J+UV6jDsHeR4duBp9OmWtyjeTdc6BVt6Ssnti8kg2sFo6eb4ICvaILR7BG1K +pHumYrf9nN3IKBtDiymUNWnYr89KRjUETqDuKMV6jpl8prOfKVOIYa4XmY7N +lxjkSl2ZRt+m/OwzsLeJ5HUFt3xEZXaduzOxbWW+3GaazKO1joMGWdjkDUUJ +TX4m6uvNPZSNHatiF3+ym4XWT8fG5WC/lezXCStbRJFZFRuvYxNH/U5kJC4h +bpGvfrnY7FyuwtrATyh8lHifh82vqCm8SFlGVOot1g3sTKLzgLD4F/QwmZFR +hC1f4hq7a+ULmmMFWBRj79mZwAxo+YoS/dqmSrB99Ue6Z01+Ip+iTwtV2J8Z +4TwbVH8h34x+6VrsuJaNhmr8v9Hmjtcuddg5sOeuT/cq0iKM+Js4+W51mYaU +rYEG92zdTuyyxxmjZ2W4oXA8ZvYRJ+8Hz+i0RG4QKkmo6cKOVl++Vx24Fobd +voS84OStUlBiUXjB57Bj5wD2QO982++bvGDRsJt7mJN/6f7RTeJ8UC9n6DiG +Xa5rm665wge/jhWqfMR+2BS5xr+FH8wa3l79gr3c2Tfy0UQAmCO99yUGmEjU +WkA4qk0AIpPNSBls7X5TEDQQhJI1r3fIY/tN1t/Q0doEpzZbzqphB3F3a/8h +IAzv2055GmFPKVYuxn8RgQuDpzeexP5MPl3fQxWFF6EJP4Kwue9OK2wJFgXp +9jurEdjyVDnHsjlR6FpPNT2PfdQktfbFqBjMypu35WL3eIeESj4TB8uTWyL6 +sIdLki978UvABI93yQD2/FzZzTtmEqAh1jY/hr0hbKJvX7sEePffvMfGNr1w +SNerXhKsMhQoQu+ZqLlYf7m0QAoSTsQu2mEXT32P2BsmC2YWDhGj2BaHLw6H +VsiCjnT++Rns+Ydi5hXTsjCk7Va0hK1bvFNc3nUbXLRU3sw7iM+T5nmP10gO +0tsnu9Sxl1ijf348Lw/fMqsjTmOLBZjW3bNRhBTmyxGlISaaLt7ga++nCFFu +mtK7sBsHe2UWEhThq+EH+l5sd2uP86rtiiC/7k8dB+xijQjHqxQlcN3xJScW +W3e2hB0jqQxLanOlI9iHfDZqWo2pwN1dZl3lw0yEIg5TnH+pAP+r+ZkmbPX4 +gt2ElCpsTqRufYLNdZNqHOOgCrXJ12vHsCuG3ZxrH6hCgFPnbckRPJ9Hys9K +F22H0csDdxOwG01tXs/S1MAxb79y8CgT3XTKfr8Sowbxv8Jd4rCTaWOjPNfV +QOEVJS8Fm4gLn9vWpwYpI8YuldgirXlcTibq4D99O3Me24/KVG9R0oCL23tV +/MeYSEYxJfby5E64g9YV/znORK2XPqt949aElMeyxy5hu39y7ScVNMFP4JJm +Hnb+Q2U1Y09N2OZ3jKcTW9Gn+eXXN5qw02T4qtAE7rd8SoV8pgVhLru8y7Fl +ZbaR8q7aIGPwnfw8yUQ7b4UJ/EAUcIy2ZP7zgYloxPllTVsKEBPvxvuwc5TS +h73cKcCv+fPDDPbaoqrqxwwKKE4sKkl8xPOWP3sovYYChfznaKew/87xylNT +ooJfD/Wb8gz+vpettVz4dCEiq/hC7iwTFYYo29d364GigVxP6wIT9Uag3Rdu +GUDjXd+nx5eZSMHzla2H/x9gJRavyfubieirDZWypwHY1f6DQutYSHKucZ0k +zRjmLi4++CDCQmFUw8F0dVNIy2oeXdnKQrSFn11is2awGhWdVLqDhSqMQ9cV +9ByAxyqPThvps1DxZ78H5ZmWYDAzMN1owkJf9295/jD2INA/+v5WdWKhIa61 +i2PHbUDVv8Nf1JuFAreeSj2rZAdCK6KpSSEsVHmiq/1KvD04LE2u/XaehSI/ +Sa1onHAA6fO5XzoyWWjZyvzIk2OOUHb5e1F4CQsZuKXtn3JwAiNrT8H9zSz0 +UirP7yH1EFSkh8/J4P+29O3zraU7DsOOtR3X/hlhocZRdWtbwSMwVVzfD0ss +tK2f7ROxcAT+l3/0MnCzEfVKWvnNUWcQ/rXkrCHARnk8n7TSO11gX5qJqI84 +GzXs3zUQ3+QKF95Nc7vIsVHO7ksiP8uOQsu4+cHfO9io5/2tBGqiG6gqPrd/ +r8NG9Ta5ykFx7mCdVrjmwD42Wgxw4gokPGDM/mfigAkbLZur+TJNPCFIxS+f +15qNShfefQ3VPwaFda8pmYfYyKXwlreHgBfkNLsH/uHORvdqDx5be9EL+Dr4 +i7cTbGQg8/Lb39+8YF/kj50qJ9lIadRn4L8Tx6EqwPB5djAbTW48aZc7cRxu +R4v0STHYqDfZ1vvAYRo8aohprz7DRpmMgo3hvTQY/8vnkfZ5NmptW/3mbekN +SoY/ZlcvspGQO1ykNnvDjeh3T1mX2Uh+85Oera3eeL4m7q5ia3fbbOFr84aE +0rxzQols5GjoduftA29wXJIS2YWduTXi2Zl/veHhJ+HaAGzpobtCXW+94ZPa +a+4ZbGVPyRz3FW/I+vPV6zdJuB8vZmm8LgHfAnR4slLY6PZVdqitPgGdDXJk +EfbmviUjyT0ETL7ubqvEZpqt9JfuI+AIn9ehJ9jFGlxruo0JcNjuIPwVe9OK +iKuoAwEy/+Y8dU7F55Gkt74ggABn/XvGwmls5PBkd7/PKQI8Pj6LlMFu49pb +oB1MQMfqxTuq2FdDjfQ6wgiwkv0wa4ht63rg+FQUAYuB6r98sZuUXZs0LhFw +IE702P+wk1uiTzTeJqAp7LMoPZ2NAijZBoxSAnq3x84FYlvfqVm/p4yA4sdL +zQzsDdnTd+5XEDC1Lt0oETs+xH62oY6Anpi8t7XY0WrKJ+s7CFA/6+D8G9sv ++5l/7TAB2hpXI5Mz2Mhy07RhyCgBfIyvWtnYO+K5BCnjBNz4qDFQgD0doldR +M0VAw2MB8Rrs47YFC9XzBNhdubW1D9uFNzSw6jsB1xMrQ8Qz2ehAqHRQuQQd +Gjds0c/A7ihIsErfQoepuhqf69iG3UvKDGk68Oz0S76Jra3y7J3JNjqk9+i2 +3MOWehNl8l6FDp9MtqX3Yc/tHZLYoEeH3LQqXZErbJTCfeMfHyc6HHT3tbiA +vWGXQI7NYTq8Lcjfehn7ghsjhOpMh+sDI1Np2Iw6++2rR+ngsRLnXIB9nFyT +lkWjQ9VBrftN2NSnNOJRMB2EzVt95rHfpKlsVEqlQ4GZwCXLLDaqRIK+H9Po +ELk2tdAW+8LC54cVGXR4ZhhV5YRNsXwYsyebDuoVCZUe2Mlc3ks2+XTIi/Qx +CMY2P3XjHaOcDrwt3OeysGVl/9I3qqRD/WLf6jXsz09PZaytpsN+hXVhBdhF +qsgm+R4dwhXTUSn2r6Gh9pvNdFj/Tse7CbvOWqb0RRcd3jQ7Db7Dvvydmzfz +KR0sguXah7BppbPHXbvpsNfO4toYtjBPs8xkDx2y6NU6M9j+LS4p317Toc3z +5fwKtpJ6VoTyFB2+DytmimWz0fc3Z/pmpungpFs4JIHdG0/XrvpIh2tpDFlp +7Jgx3VmDeToEhunEyWMP5PR52H2ig3n4o/92YqevEzGLXEMCNcbslgl269KQ +W9haEmqKztw0x/4wVBYSyEuCpXPZFUtswzrTG7T1JLjTRg/bYU97MX5YiZCw +/u19s6PYwtZmomZiJJTYJE24Y+/bLaqGxEl44Hg4/Bh2qmD5EaoUCbVyrWEE +Z715pEZGgQSLlOHxAGzyVnmXuBIJcybG8kGc51NPjwipkPCiO8shhLMfKSbI +o0bC0XSR1AjOutgB33ltErTLLKJjsJt/i8VOU0j43aDpGoc9NTN6ZVSXhP2K +3OrnsPe2R3b27yFhOIBREo896V+57R8gwfdSlkgi9iaXKL37xiSo6S4lJWEb +mFhY15iSIChg+DsZO1lq/PQtCxI6Oq42p2E38lSlFliREE+r4MvAnmBFlVy1 +JuFwbaV5Jvaex+KvkuxJ+MU6XZSFTasZn7voSEJkiUlbNnZSbhX3uUMk2BR9 +f56DPR5iqR3hQoLxGu1/r2ELekocCDpKQvPuyrrrnHqWEx5+7iQYHJHKzOW8 +L3fmsqcXCUs/6rXyOXk2WBW50EjQ8/www/H4skSTI0FCuifv1QJOvbGJHmuS +BLMFIcMbnHrd1dPmviQU/uDr45h2/8wv8CNBOHrWo5BTv8hq8z5/EjbRmgc5 +bkyS1NALxPWLIuyKOPUZk/t3BZGgRZFr4FiAqHFRC8F5+euEb2Lvtos5pRRG +Qp2s3jGOaXsPJshGkLDBr6iQ40SVLXmSDBLaP/x4w3GD8NQ9kUjcT9p+7mLs +sR81TzdGk9BPhMpzLPAhZow3hoRyjzQKx/ovD35djSXhbeT1PRz/H6ddVUM= + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4VdsbB3AJqcgUQjIrRJyDUq71ZgqZVciQjn02CZnvCaGB7i0zoTJE +imQOma6faHBLcaNJ5qlM5xxKmv3W+WM/+/k8a+93fd+1n3cr0E450rm5uLgW +8MW5B7/Q2n6/94VR3CHn0qR3TGTELNajmZaj5h0z1RyPFuhnKpu2Im+h/Kcc +2xPP+QSoj1DQuohljmsYsZ28pt0odFOwTjL234+3tMeW/Yf+UkiJ4bipNzj/ +J+UV6jDsHeR4duBp9OmWtyjeTdc6BVt6Ssnti8kg2sFo6eb4ICvaILR7BG1K +pHumYrf9nN3IKBtDiymUNWnYr89KRjUETqDuKMV6jpl8prOfKVOIYa4XmY7N +lxjkSl2ZRt+m/OwzsLeJ5HUFt3xEZXaduzOxbWW+3GaazKO1joMGWdjkDUUJ +TX4m6uvNPZSNHatiF3+ym4XWT8fG5WC/lezXCStbRJFZFRuvYxNH/U5kJC4h +bpGvfrnY7FyuwtrATyh8lHifh82vqCm8SFlGVOot1g3sTKLzgLD4F/QwmZFR +hC1f4hq7a+ULmmMFWBRj79mZwAxo+YoS/dqmSrB99Ue6Z01+Ip+iTwtV2J8Z +4TwbVH8h34x+6VrsuJaNhmr8v9Hmjtcuddg5sOeuT/cq0iKM+Js4+W51mYaU +rYEG92zdTuyyxxmjZ2W4oXA8ZvYRJ+8Hz+i0RG4QKkmo6cKOVl++Vx24Fobd +voS84OStUlBiUXjB57Bj5wD2QO982++bvGDRsJt7mJN/6f7RTeJ8UC9n6DiG +Xa5rm665wge/jhWqfMR+2BS5xr+FH8wa3l79gr3c2Tfy0UQAmCO99yUGmEjU +WkA4qk0AIpPNSBls7X5TEDQQhJI1r3fIY/tN1t/Q0doEpzZbzqphB3F3a/8h +IAzv2055GmFPKVYuxn8RgQuDpzeexP5MPl3fQxWFF6EJP4Kwue9OK2wJFgXp +9jurEdjyVDnHsjlR6FpPNT2PfdQktfbFqBjMypu35WL3eIeESj4TB8uTWyL6 +sIdLki978UvABI93yQD2/FzZzTtmEqAh1jY/hr0hbKJvX7sEePffvMfGNr1w +SNerXhKsMhQoQu+ZqLlYf7m0QAoSTsQu2mEXT32P2BsmC2YWDhGj2BaHLw6H +VsiCjnT++Rns+Ydi5hXTsjCk7Va0hK1bvFNc3nUbXLRU3sw7iM+T5nmP10gO +0tsnu9Sxl1ijf348Lw/fMqsjTmOLBZjW3bNRhBTmyxGlISaaLt7ga++nCFFu +mtK7sBsHe2UWEhThq+EH+l5sd2uP86rtiiC/7k8dB+xijQjHqxQlcN3xJScW +W3e2hB0jqQxLanOlI9iHfDZqWo2pwN1dZl3lw0yEIg5TnH+pAP+r+ZkmbPX4 +gt2ElCpsTqRufYLNdZNqHOOgCrXJ12vHsCuG3ZxrH6hCgFPnbckRPJ9Hys9K +F22H0csDdxOwG01tXs/S1MAxb79y8CgT3XTKfr8Sowbxv8Jd4rCTaWOjPNfV +QOEVJS8Fm4gLn9vWpwYpI8YuldgirXlcTibq4D99O3Me24/KVG9R0oCL23tV +/MeYSEYxJfby5E64g9YV/znORK2XPqt949aElMeyxy5hu39y7ScVNMFP4JJm +Hnb+Q2U1Y09N2OZ3jKcTW9Gn+eXXN5qw02T4qtAE7rd8SoV8pgVhLru8y7Fl +ZbaR8q7aIGPwnfw8yUQ7b4UJ/EAUcIy2ZP7zgYloxPllTVsKEBPvxvuwc5TS +h73cKcCv+fPDDPbaoqrqxwwKKE4sKkl8xPOWP3sovYYChfznaKew/87xylNT +ooJfD/Wb8gz+vpettVz4dCEiq/hC7iwTFYYo29d364GigVxP6wIT9Uag3Rdu +GUDjXd+nx5eZSMHzla2H/x9gJRavyfubieirDZWypwHY1f6DQutYSHKucZ0k +zRjmLi4++CDCQmFUw8F0dVNIy2oeXdnKQrSFn11is2awGhWdVLqDhSqMQ9cV +9ByAxyqPThvps1DxZ78H5ZmWYDAzMN1owkJf9295/jD2INA/+v5WdWKhIa61 +i2PHbUDVv8Nf1JuFAreeSj2rZAdCK6KpSSEsVHmiq/1KvD04LE2u/XaehSI/ +Sa1onHAA6fO5XzoyWWjZyvzIk2OOUHb5e1F4CQsZuKXtn3JwAiNrT8H9zSz0 +UirP7yH1EFSkh8/J4P+29O3zraU7DsOOtR3X/hlhocZRdWtbwSMwVVzfD0ss +tK2f7ROxcAT+l3/0MnCzEfVKWvnNUWcQ/rXkrCHARnk8n7TSO11gX5qJqI84 +GzXs3zUQ3+QKF95Nc7vIsVHO7ksiP8uOQsu4+cHfO9io5/2tBGqiG6gqPrd/ +r8NG9Ta5ykFx7mCdVrjmwD42Wgxw4gokPGDM/mfigAkbLZur+TJNPCFIxS+f +15qNShfefQ3VPwaFda8pmYfYyKXwlreHgBfkNLsH/uHORvdqDx5be9EL+Dr4 +i7cTbGQg8/Lb39+8YF/kj50qJ9lIadRn4L8Tx6EqwPB5djAbTW48aZc7cRxu +R4v0STHYqDfZ1vvAYRo8aohprz7DRpmMgo3hvTQY/8vnkfZ5NmptW/3mbekN +SoY/ZlcvspGQO1ykNnvDjeh3T1mX2Uh+85Oera3eeL4m7q5ia3fbbOFr84aE +0rxzQols5GjoduftA29wXJIS2YWduTXi2Zl/veHhJ+HaAGzpobtCXW+94ZPa +a+4ZbGVPyRz3FW/I+vPV6zdJuB8vZmm8LgHfAnR4slLY6PZVdqitPgGdDXJk +EfbmviUjyT0ETL7ubqvEZpqt9JfuI+AIn9ehJ9jFGlxruo0JcNjuIPwVe9OK +iKuoAwEy/+Y8dU7F55Gkt74ggABn/XvGwmls5PBkd7/PKQI8Pj6LlMFu49pb +oB1MQMfqxTuq2FdDjfQ6wgiwkv0wa4ht63rg+FQUAYuB6r98sZuUXZs0LhFw +IE702P+wk1uiTzTeJqAp7LMoPZ2NAijZBoxSAnq3x84FYlvfqVm/p4yA4sdL +zQzsDdnTd+5XEDC1Lt0oETs+xH62oY6Anpi8t7XY0WrKJ+s7CFA/6+D8G9sv ++5l/7TAB2hpXI5Mz2Mhy07RhyCgBfIyvWtnYO+K5BCnjBNz4qDFQgD0doldR +M0VAw2MB8Rrs47YFC9XzBNhdubW1D9uFNzSw6jsB1xMrQ8Qz2ehAqHRQuQQd +Gjds0c/A7ihIsErfQoepuhqf69iG3UvKDGk68Oz0S76Jra3y7J3JNjqk9+i2 +3MOWehNl8l6FDp9MtqX3Yc/tHZLYoEeH3LQqXZErbJTCfeMfHyc6HHT3tbiA +vWGXQI7NYTq8Lcjfehn7ghsjhOpMh+sDI1Np2Iw6++2rR+ngsRLnXIB9nFyT +lkWjQ9VBrftN2NSnNOJRMB2EzVt95rHfpKlsVEqlQ4GZwCXLLDaqRIK+H9Po +ELk2tdAW+8LC54cVGXR4ZhhV5YRNsXwYsyebDuoVCZUe2Mlc3ks2+XTIi/Qx +CMY2P3XjHaOcDrwt3OeysGVl/9I3qqRD/WLf6jXsz09PZaytpsN+hXVhBdhF +qsgm+R4dwhXTUSn2r6Gh9pvNdFj/Tse7CbvOWqb0RRcd3jQ7Db7Dvvydmzfz +KR0sguXah7BppbPHXbvpsNfO4toYtjBPs8xkDx2y6NU6M9j+LS4p317Toc3z +5fwKtpJ6VoTyFB2+DytmimWz0fc3Z/pmpungpFs4JIHdG0/XrvpIh2tpDFlp +7Jgx3VmDeToEhunEyWMP5PR52H2ig3n4o/92YqevEzGLXEMCNcbslgl269KQ +W9haEmqKztw0x/4wVBYSyEuCpXPZFUtswzrTG7T1JLjTRg/bYU97MX5YiZCw +/u19s6PYwtZmomZiJJTYJE24Y+/bLaqGxEl44Hg4/Bh2qmD5EaoUCbVyrWEE +Z715pEZGgQSLlOHxAGzyVnmXuBIJcybG8kGc51NPjwipkPCiO8shhLMfKSbI +o0bC0XSR1AjOutgB33ltErTLLKJjsJt/i8VOU0j43aDpGoc9NTN6ZVSXhP2K +3OrnsPe2R3b27yFhOIBREo896V+57R8gwfdSlkgi9iaXKL37xiSo6S4lJWEb +mFhY15iSIChg+DsZO1lq/PQtCxI6Oq42p2E38lSlFliREE+r4MvAnmBFlVy1 +JuFwbaV5Jvaex+KvkuxJ+MU6XZSFTasZn7voSEJkiUlbNnZSbhX3uUMk2BR9 +f56DPR5iqR3hQoLxGu1/r2ELekocCDpKQvPuyrrrnHqWEx5+7iQYHJHKzOW8 +L3fmsqcXCUs/6rXyOXk2WBW50EjQ8/www/H4skSTI0FCuifv1QJOvbGJHmuS +BLMFIcMbnHrd1dPmviQU/uDr45h2/8wv8CNBOHrWo5BTv8hq8z5/EjbRmgc5 +bkyS1NALxPWLIuyKOPUZk/t3BZGgRZFr4FiAqHFRC8F5+euEb2Lvtos5pRRG +Qp2s3jGOaXsPJshGkLDBr6iQ40SVLXmSDBLaP/x4w3GD8NQ9kUjcT9p+7mLs +sR81TzdGk9BPhMpzLPAhZow3hoRyjzQKx/ovD35djSXhbeT1PRz/H6ddVUM= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9640568054116017, 1.037021847841677}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9640568054116038}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.9640568054116017, 1.037021847841677}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9640568054116038}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4VdsbB3AJqcgUQjIrRJyDUq71ZgqZVciQjn02CZnvCaGB7i0zoTJE +imQOma6faHBLcaNJ5qlM5xxKmv3W+WM/+/k8a+93fd+1n3cr0E450rm5uLgW +8MW5B7/Q2n6/94VR3CHn0qR3TGTELNajmZaj5h0z1RyPFuhnKpu2Im+h/Kcc +2xPP+QSoj1DQuohljmsYsZ28pt0odFOwTjL234+3tMeW/Yf+UkiJ4bipNzj/ +J+UV6jDsHeR4duBp9OmWtyjeTdc6BVt6Ssnti8kg2sFo6eb4ICvaILR7BG1K +pHumYrf9nN3IKBtDiymUNWnYr89KRjUETqDuKMV6jpl8prOfKVOIYa4XmY7N +lxjkSl2ZRt+m/OwzsLeJ5HUFt3xEZXaduzOxbWW+3GaazKO1joMGWdjkDUUJ +TX4m6uvNPZSNHatiF3+ym4XWT8fG5WC/lezXCStbRJFZFRuvYxNH/U5kJC4h +bpGvfrnY7FyuwtrATyh8lHifh82vqCm8SFlGVOot1g3sTKLzgLD4F/QwmZFR +hC1f4hq7a+ULmmMFWBRj79mZwAxo+YoS/dqmSrB99Ue6Z01+Ip+iTwtV2J8Z +4TwbVH8h34x+6VrsuJaNhmr8v9Hmjtcuddg5sOeuT/cq0iKM+Js4+W51mYaU +rYEG92zdTuyyxxmjZ2W4oXA8ZvYRJ+8Hz+i0RG4QKkmo6cKOVl++Vx24Fobd +voS84OStUlBiUXjB57Bj5wD2QO982++bvGDRsJt7mJN/6f7RTeJ8UC9n6DiG +Xa5rm665wge/jhWqfMR+2BS5xr+FH8wa3l79gr3c2Tfy0UQAmCO99yUGmEjU +WkA4qk0AIpPNSBls7X5TEDQQhJI1r3fIY/tN1t/Q0doEpzZbzqphB3F3a/8h +IAzv2055GmFPKVYuxn8RgQuDpzeexP5MPl3fQxWFF6EJP4Kwue9OK2wJFgXp +9jurEdjyVDnHsjlR6FpPNT2PfdQktfbFqBjMypu35WL3eIeESj4TB8uTWyL6 +sIdLki978UvABI93yQD2/FzZzTtmEqAh1jY/hr0hbKJvX7sEePffvMfGNr1w +SNerXhKsMhQoQu+ZqLlYf7m0QAoSTsQu2mEXT32P2BsmC2YWDhGj2BaHLw6H +VsiCjnT++Rns+Ydi5hXTsjCk7Va0hK1bvFNc3nUbXLRU3sw7iM+T5nmP10gO +0tsnu9Sxl1ijf348Lw/fMqsjTmOLBZjW3bNRhBTmyxGlISaaLt7ga++nCFFu +mtK7sBsHe2UWEhThq+EH+l5sd2uP86rtiiC/7k8dB+xijQjHqxQlcN3xJScW +W3e2hB0jqQxLanOlI9iHfDZqWo2pwN1dZl3lw0yEIg5TnH+pAP+r+ZkmbPX4 +gt2ElCpsTqRufYLNdZNqHOOgCrXJ12vHsCuG3ZxrH6hCgFPnbckRPJ9Hys9K +F22H0csDdxOwG01tXs/S1MAxb79y8CgT3XTKfr8Sowbxv8Jd4rCTaWOjPNfV +QOEVJS8Fm4gLn9vWpwYpI8YuldgirXlcTibq4D99O3Me24/KVG9R0oCL23tV +/MeYSEYxJfby5E64g9YV/znORK2XPqt949aElMeyxy5hu39y7ScVNMFP4JJm +Hnb+Q2U1Y09N2OZ3jKcTW9Gn+eXXN5qw02T4qtAE7rd8SoV8pgVhLru8y7Fl +ZbaR8q7aIGPwnfw8yUQ7b4UJ/EAUcIy2ZP7zgYloxPllTVsKEBPvxvuwc5TS +h73cKcCv+fPDDPbaoqrqxwwKKE4sKkl8xPOWP3sovYYChfznaKew/87xylNT +ooJfD/Wb8gz+vpettVz4dCEiq/hC7iwTFYYo29d364GigVxP6wIT9Uag3Rdu +GUDjXd+nx5eZSMHzla2H/x9gJRavyfubieirDZWypwHY1f6DQutYSHKucZ0k +zRjmLi4++CDCQmFUw8F0dVNIy2oeXdnKQrSFn11is2awGhWdVLqDhSqMQ9cV +9ByAxyqPThvps1DxZ78H5ZmWYDAzMN1owkJf9295/jD2INA/+v5WdWKhIa61 +i2PHbUDVv8Nf1JuFAreeSj2rZAdCK6KpSSEsVHmiq/1KvD04LE2u/XaehSI/ +Sa1onHAA6fO5XzoyWWjZyvzIk2OOUHb5e1F4CQsZuKXtn3JwAiNrT8H9zSz0 +UirP7yH1EFSkh8/J4P+29O3zraU7DsOOtR3X/hlhocZRdWtbwSMwVVzfD0ss +tK2f7ROxcAT+l3/0MnCzEfVKWvnNUWcQ/rXkrCHARnk8n7TSO11gX5qJqI84 +GzXs3zUQ3+QKF95Nc7vIsVHO7ksiP8uOQsu4+cHfO9io5/2tBGqiG6gqPrd/ +r8NG9Ta5ykFx7mCdVrjmwD42Wgxw4gokPGDM/mfigAkbLZur+TJNPCFIxS+f +15qNShfefQ3VPwaFda8pmYfYyKXwlreHgBfkNLsH/uHORvdqDx5be9EL+Dr4 +i7cTbGQg8/Lb39+8YF/kj50qJ9lIadRn4L8Tx6EqwPB5djAbTW48aZc7cRxu +R4v0STHYqDfZ1vvAYRo8aohprz7DRpmMgo3hvTQY/8vnkfZ5NmptW/3mbekN +SoY/ZlcvspGQO1ykNnvDjeh3T1mX2Uh+85Oera3eeL4m7q5ia3fbbOFr84aE +0rxzQols5GjoduftA29wXJIS2YWduTXi2Zl/veHhJ+HaAGzpobtCXW+94ZPa +a+4ZbGVPyRz3FW/I+vPV6zdJuB8vZmm8LgHfAnR4slLY6PZVdqitPgGdDXJk +EfbmviUjyT0ETL7ubqvEZpqt9JfuI+AIn9ehJ9jFGlxruo0JcNjuIPwVe9OK +iKuoAwEy/+Y8dU7F55Gkt74ggABn/XvGwmls5PBkd7/PKQI8Pj6LlMFu49pb +oB1MQMfqxTuq2FdDjfQ6wgiwkv0wa4ht63rg+FQUAYuB6r98sZuUXZs0LhFw +IE702P+wk1uiTzTeJqAp7LMoPZ2NAijZBoxSAnq3x84FYlvfqVm/p4yA4sdL +zQzsDdnTd+5XEDC1Lt0oETs+xH62oY6Anpi8t7XY0WrKJ+s7CFA/6+D8G9sv ++5l/7TAB2hpXI5Mz2Mhy07RhyCgBfIyvWtnYO+K5BCnjBNz4qDFQgD0doldR +M0VAw2MB8Rrs47YFC9XzBNhdubW1D9uFNzSw6jsB1xMrQ8Qz2ehAqHRQuQQd +Gjds0c/A7ihIsErfQoepuhqf69iG3UvKDGk68Oz0S76Jra3y7J3JNjqk9+i2 +3MOWehNl8l6FDp9MtqX3Yc/tHZLYoEeH3LQqXZErbJTCfeMfHyc6HHT3tbiA +vWGXQI7NYTq8Lcjfehn7ghsjhOpMh+sDI1Np2Iw6++2rR+ngsRLnXIB9nFyT +lkWjQ9VBrftN2NSnNOJRMB2EzVt95rHfpKlsVEqlQ4GZwCXLLDaqRIK+H9Po +ELk2tdAW+8LC54cVGXR4ZhhV5YRNsXwYsyebDuoVCZUe2Mlc3ks2+XTIi/Qx +CMY2P3XjHaOcDrwt3OeysGVl/9I3qqRD/WLf6jXsz09PZaytpsN+hXVhBdhF +qsgm+R4dwhXTUSn2r6Gh9pvNdFj/Tse7CbvOWqb0RRcd3jQ7Db7Dvvydmzfz +KR0sguXah7BppbPHXbvpsNfO4toYtjBPs8xkDx2y6NU6M9j+LS4p317Toc3z +5fwKtpJ6VoTyFB2+DytmimWz0fc3Z/pmpungpFs4JIHdG0/XrvpIh2tpDFlp +7Jgx3VmDeToEhunEyWMP5PR52H2ig3n4o/92YqevEzGLXEMCNcbslgl269KQ +W9haEmqKztw0x/4wVBYSyEuCpXPZFUtswzrTG7T1JLjTRg/bYU97MX5YiZCw +/u19s6PYwtZmomZiJJTYJE24Y+/bLaqGxEl44Hg4/Bh2qmD5EaoUCbVyrWEE +Z715pEZGgQSLlOHxAGzyVnmXuBIJcybG8kGc51NPjwipkPCiO8shhLMfKSbI +o0bC0XSR1AjOutgB33ltErTLLKJjsJt/i8VOU0j43aDpGoc9NTN6ZVSXhP2K +3OrnsPe2R3b27yFhOIBREo896V+57R8gwfdSlkgi9iaXKL37xiSo6S4lJWEb +mFhY15iSIChg+DsZO1lq/PQtCxI6Oq42p2E38lSlFliREE+r4MvAnmBFlVy1 +JuFwbaV5Jvaex+KvkuxJ+MU6XZSFTasZn7voSEJkiUlbNnZSbhX3uUMk2BR9 +f56DPR5iqR3hQoLxGu1/r2ELekocCDpKQvPuyrrrnHqWEx5+7iQYHJHKzOW8 +L3fmsqcXCUs/6rXyOXk2WBW50EjQ8/www/H4skSTI0FCuifv1QJOvbGJHmuS +BLMFIcMbnHrd1dPmviQU/uDr45h2/8wv8CNBOHrWo5BTv8hq8z5/EjbRmgc5 +bkyS1NALxPWLIuyKOPUZk/t3BZGgRZFr4FiAqHFRC8F5+euEb2Lvtos5pRRG +Qp2s3jGOaXsPJshGkLDBr6iQ40SVLXmSDBLaP/x4w3GD8NQ9kUjcT9p+7mLs +sR81TzdGk9BPhMpzLPAhZow3hoRyjzQKx/ovD35djSXhbeT1PRz/H6ddVUM= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9640568054116017, 1.037021847841677}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9640568054116038}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.9640568054116038}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "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.9640568054116017, 1.037021847841677}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913301734961166`*^9, 3.9920982469430466`*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"5029e9f2-20b7-1945-af71-2ed45e96871e"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991844910383686*^9, {3.9918455278812733`*^9, 3.9918455284898663`*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"76321b6a-1af8-9c49-b2f7-d5c92a8c63b6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.192095326265137`*^-283\\\", \ +\\\"5919012181389927685417441689600000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 120, 302, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913301737143345`*^9, 3.9920982472980423`*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"8316ada4-1b39-b945-8275-22f4c278b609"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6139958284980357`*^-297\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 120, + 303, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913301737143345`*^9, 3.9920982473209457`*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"bbbd48df-eefb-fc40-a0dc-56494a64f191"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{\\\"-\\\", \ +\\\"8.580675649517413`*^-8\\\"}], \\\")\\\"}], \\\"44\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 120, + 304, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913301737143345`*^9, 3.9920982473410473`*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"3159a404-3db5-7c4b-81b4-00e0930b9da5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 120, 305, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913301737143345`*^9, 3.9920982473619404`*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"b6bdf82f-e0dd-8a40-91a9-aa8167f44ede"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVl3c8198Xx8ke2emLbD42n1FJ6X2PMiKSLSF7z4RCESIkM6uyZRWFMrN9 +bIrKSMsq0jAj5Pf5/fN+P56Pex/nce45r3POvaJ23oaO+6ioqHQon///H96w +oyc43MdyME96YQV7rHNURNdM5Br6asd6XS5dDe2RmyNERGKQxaiq716aAXrY +Gi9MJ5KJMscEbrxNs0UeJ/09/wiXIuMittc+ab5odNsl9bdwPVoNpmnZS72J +GN5PS/0Q7kV+F8Kc9BKSUF5fju934QmkUferL/tqHqqojHnvobiIZH5Pa7we +eIac0evMpcur6KlFw97nqHpElb/R8D5uFam2ML82K6hHGbSHpvoKV1GP36+9 +5pZ61NPrJFT6bhX9Ox5/zHqzHkkb7+Q7Hl9DTA4nnT+6NKBvLlKPP1Kvo/Cs +mLBxzUbklny9+VXiBlJJlTust9GEvOZkZmoqthDLlSt3hTha0WfrCca23i1U +HY8dIQm2IqPx24qDs1vIdON5papsKzrW//XaHP9fpHfwLI2ieiuieVbEwRv9 +F738ddQ2JrAVZYSIYoGXtlHg0U0awalW1MbNl6nCsYuEFGvXYh+0ocPxPc0a +crvo6YvAMwolbegR/dVZA81dRGcxWtRR3YbubL1TcgvZRUdwqc4DfW3I9FMq +OevbLqJPq/XV22xDi2Uca9ut/9CjxhoRJoN2xCwaKfXpGBVwcMhVa2y1ox7V +JKUbGlRwO7H3evW+DhRlnq0saEhhWR5LXtYOtC+xTuuiOxXkrAdpNQp1oL// +lpzHHlJBT5Bv1M3THej7lEnJ8D5quC8ir7gb24EGMqRkWgeoYXzHMSGHsxPF +1hwmXJqgBpkeyfIyvk505pWayr85aoiKJt8pE+1EnQyW2qp71DAzUZx1m9CJ +mgISXesI+0Anirfq5flO9MR4q/Rp2j64PDEWxBzfie5y9Mvm2dDA+qbKN8nd +TlSvLPj8nBcN9JxvfWpM24Vmrb3RTjANjHT2CQWwdKETT7iNzdJp4EAf/UIi +Xxf6pm15ff8QDcSxX5LGHelCpyN+DF87QQv9htucw65dyKsMWUhp04LjRDiD +tE8XynqdNPvGlBZc01Ry/AK60G/ho1tKl2mB4RH2Yjq8C2U33RCbL6GFiwkz +d0Tud6HNdXZ/Q1460IUXFgK9XUhc0G5vT5wO2Em6FdlDXeicek3MEwId/PfF +sILnTRcqSjbPZtSjgwvpB+rGP3YhQ6W87uYIOlAbYuBpW+1CT1yI/HLLdOAU +pSHJI0BG4wmRheP/6IB7pfBjuzAZ0da+U4xipQfbmaWLDhJkZEEXfPqLFD0c +OTJeGqpARoz5HR7p1vRgkWDQfxCRkd174xaaAXoYxibZX10iI+b7Xzx9J+iB +74+FSJY9GVVZeB36NE8PTBv/JZs5kxHNZPS1BmoG8CdcK3jsRUaF4w0kX2UG +OMYT0t0SQka6GVrTH9UZwDjkjJxkGBmtmb1J1DVkAM7Hr+huRJCRxtiPH1Ke +DBCeWyLLHEtG829FSj7mM0D/0O+oO2lkdPfeE1PdpwxgJt+9Gp9JRkdNjtM1 +vGSAxJ7cX+EPyCj6jZHdvXEG8AgxyNPKJyPp0ahDumyMoKz5VFv1CRm5vVpK +rL/GCMUH6+rftpIRV+I1JBXNCJ3fbz3j7CCjBn36n6mpjFCJ2/FR6yIjlmHh +sz6VjBDMGmQa0ktGjwcN6aTmGMHYW0zO5jUZGcd/qk5dYQTctMHw8VEy2tH1 +sNtHxQTPjtpfZHpLRnoDt1o+8DNBMjWjavg4Gf3sq7uWep4Jbr2JT5/5SEZp +sRrS+6yZAF9Vv2L1mYwwnZF33u5M8Cv2pvnAFzJK6P1OOhvFBFKSOya3Zsno +WMzV6boUJqgMHdkYniOjz2foknB5TKCwGlfD9pWM8D1CP6mbmMA3zTzTZYGS +/+jyB969FH7xvjdikYzCtI6d/fCOCU42isqmfCejV2SDkrplJqgaPhl/9wcZ +XY36aIrbY4LuD0OZQT/JSETTnS6VlRlK6jIWLH6RkW9XpJ23FDMcj6xy2vxN +RkKzmvQbJGZgdeRTL10mo/59TGUhwAw2VxR39Fco9kT79Wj0mOERkSdlicKS +EL8cc4EZ8GurrKGrZDRirX+Pw4kZCid2PRnWyCj0OqdK+mVm8OpxabhFYfkH +o1OCocwgY395Y4vCEw33wgrjmOHgvks4h3Uyipowk5DLYAa/8mvnOilM2uTr +eVbIDG9ZePz4Nyjx4Z1yP/aMGdK9ojKcKBx/JJu95SUzcL5Q6iih8HFjm2qN +PmagMvb/85nCXy+LmQ28Y4ZWtQ4V9j9klJo0+9dwhhnubcbdJVFY7emj7Ilf +zLDqeuavHoV/Drmcstlhhsd/Am9aU/j+D9n5eUYWUPHIlXak8BnWHzGeB1hg +fEVvzZbC67KVCmuiLNDJzr1gTOF8bd/XQYos4JhxmwWjsL4LyZ/6BAu4luvZ +CFJ4J2r9v9taLPCthGFpheJfaVFtE5sxC4TJ2lU3U9i085rNPRsW8N5mawyj +MM3MCdpDnixQyEFmUKHwU+p/xfnXWKAnTCP7KyU+ViKtZ2WiWMAkxCDiDoWZ +UfivymQWyNSoaZSicK2VesrRHBZ4Io3p1lPizXm/Z/J0HQt89sTFtFDy1Vwf +e6OvkwVOGpxGhynsPq4rZvCaBaaA1jaHkt+uA69drRcp/hLw2+YUPVw+nLJ/ +boMFXrTdvl5M0YuwkckzdxpW0HezCV2i6Ola4sTm1UOsIFhafMCCojdc5f0H +e9KskDRGrAmn6HF00AqijrDCP+zKfN4SGSmwTEennGMFZaYE/k6Knr/cWuSt +CGOFXZ0kg4x5Sn8ofNxwOJ4V+u24hQIo9XGiw8u6MZMVomjIxTqU+rlHtVrU +U8UKdXZfGMYp9aUdvH14ZpYVXDX5EiOnyGgj8+W46zIr6IaLvf/vPRkV1IWG +/N5lBV51RbbCCTLaXafp3OXdD8Fd/53KeUdGz3xYjf7T3g+rh2eDZF6R0UAW +97UnpvvhYLHG5fNDlP7VyZ9zymE/qPg2LHkMkBE/n8x3j9D9MNvoHx3VQ0aR +bRoRbc/3A09kn+BJSj/K/q5batqxH8pHFP9wNJNR3QHj4e+v9kPv79D4yUYy ++uFqJ8C7tB98BfXZ9Gsp+ecKrXYTY4N+gT6lZkp/81GNmthTYgO8UVILlJNR +rFP8XupJNggVq9KqLyGjlob7Z1vM2eChqMylOwWU/mhfN8OdwAYB3XqhjRlk +9Ld6mfvlNhsUdf1TUb9JRjwfN1UMmdiB2Wp2RuYGGSkyUtl85WUH1XfnqemD +ycjeku0xJ5EdpDvUX+RdoZyfVk7dyYUdfn+0nHemzINsE4cr7G/ZoZbK0Oro +WTLKC3ZfxJtxQCqvTCQPK6VftTJtRltxQNGBpTgRRjJqpS2h+2TPAQl/hSQk +aSn1Gz8rEu/DAW1bh0X/2+lCQrlWZgsxHGBnb8r26Dtl3nbqd+Y1cQDuFanZ +mTI/k/cfzuYS44T8D6Iq1aFdKDxnx2BtiROOHfjdsTHeic7j63zlVjnhh/hR +i6DRTiTU5pdkt8UJB9LxNzYHO1HD9OKrV3RcwNV3I3a2vROtSE7oPxHiglLx +E34hjzuR3ePnek7nueC1F23IsxudSK3eS3u8mgsWxVqlbIQ7EdXoZ2gK4oZF +VyK3nlEHwl1xumosewB8w2MHFlza0Ox6uinLS17AAu5MyW82I505t+vJvv+B +WnEzW2RtAzo3mygnJMQPdNTHvKeLXqDFDruwnicCMOeFVcVxVyNFzneCpy8J +QkWCv64ebyWlftdtp1aFgH01sb7hZCm6qibN+OKvEAxfTwriwpWi+dMXKxKo +haE3fKLlKlspaj/T9vcUuzD4j3hN+XwqQUGG8SmlssKgJehwgz28BH13lOwK +sBWGrA86Rxn6itHAHRNpzmFh4EsidM04PEJaPyz+iJmIwGDiBv4EuQBl80SM +hpqLANMDxsGkqgK0dqK8cuqiCLCHp2luZBeg3Nht5zQ7EXiz86D3W2AB+iv1 +YJzJRwQelMq+9pMtQI/tPtT/jhUBpKL/Wjg5H3GMXwppbhUBtcn73U3ueWi8 +3YHaQl4UtkZmvUruZqPfapP815VE4aViRrm6TzZiaNM/nEsUBR7N2PQ/Btno +aMtx5/ljovAl2M0m70A2Sm3kGLysIQq8V/0XabIfIv2apow4a1Gg9g279K/q +ASIX8eBfJopC8LLo8+QfWej57U5rkXVRmKBx2O9WkI5KdPr/i94UBW3GAHGL +2+koi3Vk5Me2KLQx4nzsPNNRWOInzcZ9YiBmNnS9UTmdcr/5q2jKIQbmIh4C +dwfT0HQxfi9OTgw0aXOHynbvIbbuBzl/bMWA7/YOtYd3KqKOKbhg7SgGLcPS +586apaI1nTLuLhcxGPrHqamGUtHEUG10srcYaNvtp/dlT0WF70a8Fa6LgUWW +kM3Hpyno+Dwj2GeIwZeFj8pzf5KRE53/56EhMUi5dd3hTFoS4hfuHdt+LQbY +qZ3qc+FJaOiY4LD0WzHQ8t5n6eyVhI56dL0Mf0+xX+sfO6yZhOhHD9w/+k0M +PnFgxKDNRFSU+8Ikm1ocFKhKCEqXEtHsic0+z8PiUMRRfyfd7y7KMNFtz1IW +B2bauuMc5+8iXe/c+u7j4nDuxrEvZfJ3UU3+mRJRNXHgvEdq1ZiPR5FMmbfe +6onDqKWMLfvFeCQxpgInncXB+OYy/SedO8j+cvBz1ixxYBusefbuVCw6Svz4 +XOahOAQ+7X1DLRGLmFfghWauOPw1pv+nQxeLnvrS14Y9EoeSE5Mcyj0xaMcn +qW6tShx0zLK2/PRjUJp3ceNUvzhYOGcvednfRr0eo22Pd8Wh8xhH6mRuFHog +f7S9l0oCLr+cnM++FYV8ljLa52kkQHVUruaGWxTi9bDuEGGWgEHGMc/Ew1HI +zn2hM5VXAhjJ/rJ/e2+hHde97hAlCYgySoW3W5FIyVluSNdWArjmNrOEPCPQ +R1dh7ycOElB35O0NCaMIdMeDm4PNRQJqQsUHtFQi0ILvtsGwlwTYXopC83QR +qCCk/61BiASog85IaG44Opjs/sE0XQKkhGlYON7fRHtN5Us2gxIQZknfsOUQ +hipacuLbXkmAFjfx2PVzYciyPUVR7I0ESLjZ8AgcC0P13cE+M5OU9bz30UUs +Ychv5Oya4zeKvxYWsXPOoejr1+/bbjSS0KfifKCG6wYa5pJn8VeRhMQ3ywx+ +8cEI8/RcuK8qCRfG7Pl0XYNRRXdFdzvlFpfXacB9TiMY3Q0hRHJoSkJtzVml +gd0gpDt/dLfckLLfSZPriU8Q6qtX+zXtLgl15kPc01bXUJeN2ej5bEl4GOsI +oiaB6HBjxrPAPElYYrI1HDkSiAoPTCZkF0rCoct/Zot5A1Fkn6XuUpkkWJh8 +pGkdD0CnDtt1RddKgtsk7kqudQBqZfCsbX4lCa/9XRtoff1RY0X4fXkaHCSu +qtb5Vfohel0T/nR6HMwkLKcQk/2QwYJUJjUzDuJn3l076O+HvooPpr3jwEFQ +vV+H4Qk/xJ15MDlMCAdV8fU/Y3svI/eIx7ffqODArnOL7tOSLxIwf+cf4oOD +efrrX+nP+SCn9ZK1eT8ccD9tOnLiiA96lhzsZxCIg86Ej02Jh3yQ1qCIL+4G +Dm4zd3edHPNGfqfcPV7F4cCZLko4mtcb9ctT2UsU4+AUvdUTwTxPFEwte37g +Aw4kPpQc9Zh1Q/PqLOO4LxR/FcwGLja6ofO3ly7dnMUB32fbv+HJbkiCvdL7 +6HccvNQjiwequaGBQ4cTcjdxIJiR8OZXnisSOoYNXeGWggDn4vtLHi6o3ctQ +V1BbCnK4X6Z6yjgh+SrSm0BdKdCno6GZpHdCaes8liP6UlBIIN0JmHVE7iFj +7tGmUrBa2MeKch0RT6xl3LK9FHze3sph4HdETkVOfV03pCDJ6M41TV4HxDwV +dMarRgp6mwetqfB26Ghg6f6EWilY7v79/g+PHbLlGh+pbJCC57d0rbn/2qK6 +M0eslluloGs5fOh5py1yev7L98qgFAg2pnwtuGiL2u463A+al4LzqyFk6kQb +ynw79zPqP2lQOtkWay9ujQqnQqqLBaQh9d4obcO6FRoOLL/aIyQN6maKg+d6 +rBCugpGGWVIado9dECd6WaFR/o6D8QRpKKXJ+jnWZIkU15TVUnSk4WnHGZyt +40U090g0NSdEGrRNmr6GfTFHS5FftmjCpOG/25mMU7XmaMUu75JLhDQgo49H +Au6aIyphUTlCrDQsOce4OqmaI/50kfb2dGnYcF4jKdw3Q+ejhX/PVUlDXouz +034HU9TkLKgrvyANGcozBisixqhD48OzxCVpMGN8Hpr6zwj1iT88uP5LGsS/ +HN9xnzJCY58OzbzckAY3I8+W+gwjtGJ2KEifVgbGY/WSe7iNkPQZgZLLwjIA +kjZ3/bkNUao0H229iQw4BgyyKSqfR5bWuOIZcxlIF2mqHzl0HkmkknTYLGWg +FF97NXvfeVSzp5dobycDTC8vDBg/1Edv3oUfYvOWgdzvTnOHXp9D3LeWDtvf +loGwaTqtWk09lPylxXF/owwc1NCg9nHWQRYHBxmPNcuAeJ+5eOsJHSSmN1lu +1yYDwgP8voYcOqiqbm25tlsGYjqC5FQbtNFIgswNuzcykDBnc4WfUxtxYilp +tT9kgEZDw/5FnxZKzHLqthWRhapjc4Ii7hooMCDcL0RcFm4JGNV3aWkga8Ns +4XScLDzJnPyRK6GB5JnfBQ7Iy4JzYd/exkd11HtNQ1pZRRaWpyK+8Zmqo30X +JGJYDWVBCVS+7uidRv4Hp3VqI2SBsfYP1QU7NWS5urvxOkoWrgt3CMhpqCH1 +Yb6CpRhZYG6uMJWVVkNc0QbboomycG2BRKz8Cahio7X8zgOKf9Nuz/uvA/r2 +NofV7rks1PKzHjhyBiGLVKsh1q+ykP+w9uK8kCo6VM0s4L4oC80kh8LxxRPo +0+ta594fsjDq8uKPeO0J5MDORR21Jguu/XcyOs6fQF6xZNIetRxwhv+dPnj7 +OAoPU8pcPiQHmEz8jxx6FVTqQe3wzlAOWD1elT5GR5FHXMXTw6Zy8GwQR+w4 +cBQpll3cTb4gB9O0Rt/Elo6gqq/P0/Rt5IAreIitKfMIarJz6+3xlINXv3sb +z2weRq/MRxUbb8uBHRezuWs7CW2qF23lNMvBpQ/7iW+jCSikMSeis00OzsuP +Nwe5EBAVMWv/QqccdG8vuBprExCDcIIosV8O5MrPfcpnISDeravanWNyIHiX +6WVBMh6RnuhmfvstB9422omzRkrI68DaMYK4PFhgx+Zu/JFDK3E/201w8tBR +z7xS0SmH/Pct6AbJyEPTQCHNkWQ5FPLrg02HkjxsRNaJqCnKobje7tsmqvJw +ioXrvY6bLCq5fn/8mok8MORQOVYvS6OZuVNX26Mp9mq6zP2P49CpnKF82Th5 +cI8430fNhkO55haDyXflgbrmt9qXL5LIut9XzP6ePFwa9mZOj5VEk09zB2gK +5MFU83fu0CcJNBL8T0SjWR6IbvKP1jPEEeFI7NknbfKgr3Un2tdXHCX+PBBw +oEse5ByyvyvriKNztgr9c/3yUFtprZy/I4b6NC39oybk4WlI+8JHBzHUztnQ +270mD/9KPxfEnRJFov0aa0qbFH9q7TquCIuisMjXQhnb8nDjb87j3B0RhP35 +5ueyTwGCNaQYW2pFUMPUQSEmDgUouViOMRFEUFWx/2UdOQXIz50v+2IthPJP +EgQGbRXg7b7lGdIzftR+jjli20EBtE9a0j+7zo+mL80syrgoQOhpOp84HX4k +Hn6vIcpLASbvfS0xmeNDheStCxCsAKrGZqOKwnyoSL89ozpVAXohn9en4CAq +sTXizepWgIoY2ybVRR7Uc1n+Rk+fAmhmSmhotPGgbxF08xuDCtBZ6ASZGTxI ++lHtc6M3CtASfiVO9AwPKl0UMNn/RQGO3SuMLSrjRmV+sylhfxXAqNHUme06 +F3pyy5/TWUERHr+uVpcw5kBLqlbht/CKQOBckjc8zIHk19RXC0iKEHXzU2gD +Dwcqs+N5+1lFEX6JjFf4PmZHJag6w0JTEV7htLk6atlQ4dZv4XOXFOHOCd57 +gjOsKMvTQ/FIkiIMJYryl0czoUkJ4xyjVEWQGf6ccsSECfFNneC4nK4IFyVU +5IXEmVCGDstKxUNF+BCcI8vQyojuSZU9ly5ThPNGoTW4fwwo8ctX1UMdipD/ +6tUqZxw9ijaxP0uzrgjE2kW34BkalK8/Zem4qQhWTI5Zp+poUJO2iVf3tiKc +3ZhJs4unQSsntZLi9inBRlCOXtkxGmSJkxvj5lCCRHkfQ82UfYj4Z8VOQk4J +ouS/h4maUyO9ZfcrUYpKIBldxSpNpEYu32dvfSMowdzIgvp1Vmr08NO7ksfH +lGBl7fgFznYqxNjT8POwphIc2WvJH8ZToY8Z4UEatkqQrdBprn3sH7aVvB1X +7KAEU+/HgvLWdzGe+CsPmVyUwE/cZjKyehfTvunUOuilBPG/1zgW8LtYjasO +vWmIEjD0X6ZmJu5gsce5kp3SlUC2+JZar+5f7MhUXmn0oBLYT4RfCfiwgXEo +umxWvlKCionzPyqfbGBLoYpa46NKkPA86b8zNzawQvHGWelJJdBgPUhOEtnA +eNzfCPfNK4GyJvv1QNd17G8IzVl6KjykNBlLbbKsYd+KnC5nUeNh+032o4Ev +q9i7od5MRRo8vJjasVyvXcWqRBK/mdLj4ZSoyh9wXMXcOg9FFbPiwSMkZqyy +YwWbYDnadoYPD+GsIi7OCcsY+XDmtyl+PEBwb6iy2zJWY7XD7nsID/J2310M +NZaxxMp260xhPCj8yLzmtPMbO2Okv7MgiQd135/nNz1/Y3VZLspxRDwYeBAr +05t+Yhky958MnsUDk/qov/HnRWxtVbMoQg8PnhfHVibyFjH95pUHKvp40Jpj +yVuwX8TojXTuFBniwX/sEWfBwgLmH7Lldv0CHuwPLapd2v6GGQ6bSSs44yF/ +rnuARfkrVpFJIzLjggdGNPfhGdVXjMmh8mCmGx40w1P+e903j7Vu0jPQeeHh ++BE8R6DNPKYk9mJu6golfrmHH2gkzWGs/jwFd8LxkPFNgOY/xlnMBbVmnYrE +wwFfbe0P4zNYB5NH8uYtPDSrzZaxls1gQdkdNx1i8DDfUaz6SG8GW+i+bKOa +iIdA70jbx5nTGJn/teDSQzyQ1h8GnVH/goW2xmecrcfDZwOuaaemD9jih9bU +rQY8cMY/T88M+ICZbq8mFjfhoezr4WIXwgdM/qhFDE0rHvrmgovflUxh4+W4 +oEYyHoLJNlFD2e8xYnrLRbk3eHAKbWj879EE9rBmxWziLR5KPuxyBbtOYIwj +ksbRY3gIUm4mOSlMYJ9Y7+jOTOLhnHqA2siLcexOuPnJ+1/wUPmsQGB6eAyb +91wWYvmFB41tudtLfO8wgzgJgfrfeHioHk00m3uLNZWYHXRewcOTF5FOKs/e +YikzL9k71vFg9Z7VyUbnLQYXYqmCd/Cw89mWXTD8DZalLj69yESAbqPkxWv0 +o5iegElRnwQBdqoC2DwsX2EZs4qtF3EEMN13QOOh8its9gnj+yUpArDWr1YL +cr/CQqCJg12OAAsTa07cacPYY0fxECMCAW799crcChnCmJ8uG06dJEDhLBs5 +wWkAM73W7+mJCMCh4xqtiRvA8k8V3f4HBBAx4E+5Pd+Pqbw1bxZRJwCvlz97 +mUs/5vK3RcZRhwDNnd+bT/v1Yd3qd6l+mhLg0BtLquncHoyLzUUg1JwAJfKs +N/tdejDrMbWjHBYE8ConmSsRerAN13V3ohUBTtMsctt1dGO4BMuxAHsCpHrR ++pn/IGORE7IVe94EiO0hJdWYdmFqXt0XOWMIIOZmyv/1ajv2d3xBszOWANyv +H0W36rRjNadZiYF3CEAncCOCUbAdw/EZMH5IIMD5Knblz+1tGGvnZE1JGgF8 +2I8EpHC3YeN8P/dTHiPw/oHvc6/EFiw5kmNrpYgAZ4Xv9rCrtWBnfxFni4op +5w+fNPVZacaaOwMbWMoJwEAWoHc1a8YKvamdx54RoOXUaWcm2ZeYTxdPq1cL +Afp/XZ5M/92AyeKVy0XbCFDmHsnu9rgBm8m6kPamnQB7hq/nv7g0YKY+2R7H +yQSoUpm70TRTj6kKSPPRDxKgzz9DeO1zHcboe+Lyw0kCXKde/KGw+QLLOWQn +MbBOWRcx1vFNrMaOk+QU7f4QoMvR3u+BbTX2RntNeXOTAL32nKYkUjXGGBh1 +VmKHAFr36tJyx6own9dll0P2EcFOPfneJckqDKJWW+XZieB91kypbPQpNvmg +qa+dgwjZVNcZceVPsSvVt96YcxGhJvDn473wp1jJ54PfIg8QoQD/iL+X9BTj +PKHK/kGACJ/PvrimSqrEpn9FWsVLE2EhKFxL+/tjLIT+nLO4LBEEno+sY0WP +MV7Bg771ckQwph0cHrv0GNPRKY2cUyTCp1Vfix/vyrGqwsHyk0eIcMKlpzFs +oAyLuMD794caEbQ/2vfxvSnBJDqK085dJMLeJ/MRJd0ibEh+s3DKkggMXqOP +6fmKsKtpZ6rdrIkw/75s0mi+EOt3XRiOsiXCbnARn154IXaZQ46pxZkIUwuX +drNbCrAWq4pgpStEyKpX+Td3Lh9z6f4X89KfCHHRN5rLxfIxLoJ+xtlAIhQN +x7qMb+RhTrS/a5yDiJChGzJnl5uHsZYTfuaEEcFD+cwH8c1czGKzxoYjnggO +KVR6Cn45GK0dnXf2XSLgoia+kXE5WEW/yXX5RCI4xlhZc7/PxqhzNjLPpBDh +SLFMSrNGNlaicWw0LJMIvlLjDCTxh9h6cqPGchERpGeZv2nsZmGJCu2yI81E +UJYyNFKXSMdKjl1kCm8lQmxBT3z2fBrWcnrtK6GdEo9P3QrppWnYzwu4oqQu +IvCfiIuyIqRhZ6NihQ0GiEA1xt7Ec+YeRv/JkOfVBBGcWxlyFxJTMMHF7yuh +7yn5i2QtCLJMwQ6vR75W+kCxzxejmiKdgtmz1N5N+EwE7ie2KybtyVirsgCT +/lci6CSZGe1uJ2HBiTO7g2tECM8u438ZlYgl3w+Zur5BBDhXqYq3SMTKHh1o +VNgkgjv1g3MHFROx8Satq/HbRPi9JHjtWkUCdnShfEV3HwlaCJw2cVZ3sd9q +V772s5Pg2QWFfa0zcZjTKu3rXlkSfPZ12fAJj8asy9SHLOVJkMlBS0jTjMZM +bSP7fymQwM1guvgcSzSmOUxDPkAggbaNzHu/tCgMV76v0VaZBFnORZuu1bew +OTuqoq3TJBCkvj81Qx+JTfFB/h0NEhiHMjHmjkZgb16F5ghrkcC8sob5fW4E +1ontZWrokGAs88mnHtUIrJD/392k8yRwMtG0tw8KxxxGtq/KWJHggLcfMZPl +JmYZcyKgyZoE8aXz8w2fwjBjCPbTtyGBerY7WbsmDFOv+Ovpb08CoV8SK2XW +YZhE7JZdmysJltoNPr70CcVm1P7oXggggZ7dDKvrbghm92xFJCaBBKsM12Ju +5F3FPMKNdnSSSFBq0CJCY3EV8zeqGWNNoew/ffTqee6r2O11/7uJaSQ4bJj2 +U/V2IFahsrWd/pAEPQEB78WCA7Cttr13j8pJ8LH0iIJ9xBVsX4pNlcsTEkDI +YGGY1hWM1aEtXraSBKfPB17UYr2CCdFHqFdUkUCLddS4N90PU9ehr3peTwKd +T0jS68VlLHGENb6zmwTjkxK3Wzh8sawCT5eoXhJ4Envz8j/6YAVXhk6f6ScB +nYEL8DzxwV7wJv7tH6LkA1WuPjjrg01ZcLuMviVBXsDZ7sNC3pjUDN/p6RkS +WNx/qMNg5YHha4KECudI8P7prjsweWDHb73fcvxKAhzrFV3XF+6YrtTDpwuL +JHiupfUnlNsdu+wuIrS8TIJDw56yQeOuWIjqza2qVYp+Lp7TXoxzxW7tn35z +ZZ1i/0OO0lFwxTIqC+I2N0lwm99g1KzcBcsPo3Vu+EuCFY+Pn6XtXLByA8dT +ITskEL1/0HSAzwWrESMLYv9IIEV1fxGNOGPNq7itvT0SRDwWsbwZ54z9D9HN +mI8= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8198Xx8ke2emLbD42n1FJ6X2PMiKSLSF7z4RCESIkM6uyZRWFMrN9 +bIrKSMsq0jAj5Pf5/fN+P56Pex/nce45r3POvaJ23oaO+6ioqHQon///H96w +oyc43MdyME96YQV7rHNURNdM5Br6asd6XS5dDe2RmyNERGKQxaiq716aAXrY +Gi9MJ5KJMscEbrxNs0UeJ/09/wiXIuMittc+ab5odNsl9bdwPVoNpmnZS72J +GN5PS/0Q7kV+F8Kc9BKSUF5fju934QmkUferL/tqHqqojHnvobiIZH5Pa7we +eIac0evMpcur6KlFw97nqHpElb/R8D5uFam2ML82K6hHGbSHpvoKV1GP36+9 +5pZ61NPrJFT6bhX9Ox5/zHqzHkkb7+Q7Hl9DTA4nnT+6NKBvLlKPP1Kvo/Cs +mLBxzUbklny9+VXiBlJJlTust9GEvOZkZmoqthDLlSt3hTha0WfrCca23i1U +HY8dIQm2IqPx24qDs1vIdON5papsKzrW//XaHP9fpHfwLI2ieiuieVbEwRv9 +F738ddQ2JrAVZYSIYoGXtlHg0U0awalW1MbNl6nCsYuEFGvXYh+0ocPxPc0a +crvo6YvAMwolbegR/dVZA81dRGcxWtRR3YbubL1TcgvZRUdwqc4DfW3I9FMq +OevbLqJPq/XV22xDi2Uca9ut/9CjxhoRJoN2xCwaKfXpGBVwcMhVa2y1ox7V +JKUbGlRwO7H3evW+DhRlnq0saEhhWR5LXtYOtC+xTuuiOxXkrAdpNQp1oL// +lpzHHlJBT5Bv1M3THej7lEnJ8D5quC8ir7gb24EGMqRkWgeoYXzHMSGHsxPF +1hwmXJqgBpkeyfIyvk505pWayr85aoiKJt8pE+1EnQyW2qp71DAzUZx1m9CJ +mgISXesI+0Anirfq5flO9MR4q/Rp2j64PDEWxBzfie5y9Mvm2dDA+qbKN8nd +TlSvLPj8nBcN9JxvfWpM24Vmrb3RTjANjHT2CQWwdKETT7iNzdJp4EAf/UIi +Xxf6pm15ff8QDcSxX5LGHelCpyN+DF87QQv9htucw65dyKsMWUhp04LjRDiD +tE8XynqdNPvGlBZc01Ry/AK60G/ho1tKl2mB4RH2Yjq8C2U33RCbL6GFiwkz +d0Tud6HNdXZ/Q1460IUXFgK9XUhc0G5vT5wO2Em6FdlDXeicek3MEwId/PfF +sILnTRcqSjbPZtSjgwvpB+rGP3YhQ6W87uYIOlAbYuBpW+1CT1yI/HLLdOAU +pSHJI0BG4wmRheP/6IB7pfBjuzAZ0da+U4xipQfbmaWLDhJkZEEXfPqLFD0c +OTJeGqpARoz5HR7p1vRgkWDQfxCRkd174xaaAXoYxibZX10iI+b7Xzx9J+iB +74+FSJY9GVVZeB36NE8PTBv/JZs5kxHNZPS1BmoG8CdcK3jsRUaF4w0kX2UG +OMYT0t0SQka6GVrTH9UZwDjkjJxkGBmtmb1J1DVkAM7Hr+huRJCRxtiPH1Ke +DBCeWyLLHEtG829FSj7mM0D/0O+oO2lkdPfeE1PdpwxgJt+9Gp9JRkdNjtM1 +vGSAxJ7cX+EPyCj6jZHdvXEG8AgxyNPKJyPp0ahDumyMoKz5VFv1CRm5vVpK +rL/GCMUH6+rftpIRV+I1JBXNCJ3fbz3j7CCjBn36n6mpjFCJ2/FR6yIjlmHh +sz6VjBDMGmQa0ktGjwcN6aTmGMHYW0zO5jUZGcd/qk5dYQTctMHw8VEy2tH1 +sNtHxQTPjtpfZHpLRnoDt1o+8DNBMjWjavg4Gf3sq7uWep4Jbr2JT5/5SEZp +sRrS+6yZAF9Vv2L1mYwwnZF33u5M8Cv2pvnAFzJK6P1OOhvFBFKSOya3Zsno +WMzV6boUJqgMHdkYniOjz2foknB5TKCwGlfD9pWM8D1CP6mbmMA3zTzTZYGS +/+jyB969FH7xvjdikYzCtI6d/fCOCU42isqmfCejV2SDkrplJqgaPhl/9wcZ +XY36aIrbY4LuD0OZQT/JSETTnS6VlRlK6jIWLH6RkW9XpJ23FDMcj6xy2vxN +RkKzmvQbJGZgdeRTL10mo/59TGUhwAw2VxR39Fco9kT79Wj0mOERkSdlicKS +EL8cc4EZ8GurrKGrZDRirX+Pw4kZCid2PRnWyCj0OqdK+mVm8OpxabhFYfkH +o1OCocwgY395Y4vCEw33wgrjmOHgvks4h3Uyipowk5DLYAa/8mvnOilM2uTr +eVbIDG9ZePz4Nyjx4Z1yP/aMGdK9ojKcKBx/JJu95SUzcL5Q6iih8HFjm2qN +PmagMvb/85nCXy+LmQ28Y4ZWtQ4V9j9klJo0+9dwhhnubcbdJVFY7emj7Ilf +zLDqeuavHoV/Drmcstlhhsd/Am9aU/j+D9n5eUYWUPHIlXak8BnWHzGeB1hg +fEVvzZbC67KVCmuiLNDJzr1gTOF8bd/XQYos4JhxmwWjsL4LyZ/6BAu4luvZ +CFJ4J2r9v9taLPCthGFpheJfaVFtE5sxC4TJ2lU3U9i085rNPRsW8N5mawyj +MM3MCdpDnixQyEFmUKHwU+p/xfnXWKAnTCP7KyU+ViKtZ2WiWMAkxCDiDoWZ +UfivymQWyNSoaZSicK2VesrRHBZ4Io3p1lPizXm/Z/J0HQt89sTFtFDy1Vwf +e6OvkwVOGpxGhynsPq4rZvCaBaaA1jaHkt+uA69drRcp/hLw2+YUPVw+nLJ/ +boMFXrTdvl5M0YuwkckzdxpW0HezCV2i6Ola4sTm1UOsIFhafMCCojdc5f0H +e9KskDRGrAmn6HF00AqijrDCP+zKfN4SGSmwTEennGMFZaYE/k6Knr/cWuSt +CGOFXZ0kg4x5Sn8ofNxwOJ4V+u24hQIo9XGiw8u6MZMVomjIxTqU+rlHtVrU +U8UKdXZfGMYp9aUdvH14ZpYVXDX5EiOnyGgj8+W46zIr6IaLvf/vPRkV1IWG +/N5lBV51RbbCCTLaXafp3OXdD8Fd/53KeUdGz3xYjf7T3g+rh2eDZF6R0UAW +97UnpvvhYLHG5fNDlP7VyZ9zymE/qPg2LHkMkBE/n8x3j9D9MNvoHx3VQ0aR +bRoRbc/3A09kn+BJSj/K/q5batqxH8pHFP9wNJNR3QHj4e+v9kPv79D4yUYy ++uFqJ8C7tB98BfXZ9Gsp+ecKrXYTY4N+gT6lZkp/81GNmthTYgO8UVILlJNR +rFP8XupJNggVq9KqLyGjlob7Z1vM2eChqMylOwWU/mhfN8OdwAYB3XqhjRlk +9Ld6mfvlNhsUdf1TUb9JRjwfN1UMmdiB2Wp2RuYGGSkyUtl85WUH1XfnqemD +ycjeku0xJ5EdpDvUX+RdoZyfVk7dyYUdfn+0nHemzINsE4cr7G/ZoZbK0Oro +WTLKC3ZfxJtxQCqvTCQPK6VftTJtRltxQNGBpTgRRjJqpS2h+2TPAQl/hSQk +aSn1Gz8rEu/DAW1bh0X/2+lCQrlWZgsxHGBnb8r26Dtl3nbqd+Y1cQDuFanZ +mTI/k/cfzuYS44T8D6Iq1aFdKDxnx2BtiROOHfjdsTHeic7j63zlVjnhh/hR +i6DRTiTU5pdkt8UJB9LxNzYHO1HD9OKrV3RcwNV3I3a2vROtSE7oPxHiglLx +E34hjzuR3ePnek7nueC1F23IsxudSK3eS3u8mgsWxVqlbIQ7EdXoZ2gK4oZF +VyK3nlEHwl1xumosewB8w2MHFlza0Ox6uinLS17AAu5MyW82I505t+vJvv+B +WnEzW2RtAzo3mygnJMQPdNTHvKeLXqDFDruwnicCMOeFVcVxVyNFzneCpy8J +QkWCv64ebyWlftdtp1aFgH01sb7hZCm6qibN+OKvEAxfTwriwpWi+dMXKxKo +haE3fKLlKlspaj/T9vcUuzD4j3hN+XwqQUGG8SmlssKgJehwgz28BH13lOwK +sBWGrA86Rxn6itHAHRNpzmFh4EsidM04PEJaPyz+iJmIwGDiBv4EuQBl80SM +hpqLANMDxsGkqgK0dqK8cuqiCLCHp2luZBeg3Nht5zQ7EXiz86D3W2AB+iv1 +YJzJRwQelMq+9pMtQI/tPtT/jhUBpKL/Wjg5H3GMXwppbhUBtcn73U3ueWi8 +3YHaQl4UtkZmvUruZqPfapP815VE4aViRrm6TzZiaNM/nEsUBR7N2PQ/Btno +aMtx5/ljovAl2M0m70A2Sm3kGLysIQq8V/0XabIfIv2apow4a1Gg9g279K/q +ASIX8eBfJopC8LLo8+QfWej57U5rkXVRmKBx2O9WkI5KdPr/i94UBW3GAHGL +2+koi3Vk5Me2KLQx4nzsPNNRWOInzcZ9YiBmNnS9UTmdcr/5q2jKIQbmIh4C +dwfT0HQxfi9OTgw0aXOHynbvIbbuBzl/bMWA7/YOtYd3KqKOKbhg7SgGLcPS +586apaI1nTLuLhcxGPrHqamGUtHEUG10srcYaNvtp/dlT0WF70a8Fa6LgUWW +kM3Hpyno+Dwj2GeIwZeFj8pzf5KRE53/56EhMUi5dd3hTFoS4hfuHdt+LQbY +qZ3qc+FJaOiY4LD0WzHQ8t5n6eyVhI56dL0Mf0+xX+sfO6yZhOhHD9w/+k0M +PnFgxKDNRFSU+8Ikm1ocFKhKCEqXEtHsic0+z8PiUMRRfyfd7y7KMNFtz1IW +B2bauuMc5+8iXe/c+u7j4nDuxrEvZfJ3UU3+mRJRNXHgvEdq1ZiPR5FMmbfe +6onDqKWMLfvFeCQxpgInncXB+OYy/SedO8j+cvBz1ixxYBusefbuVCw6Svz4 +XOahOAQ+7X1DLRGLmFfghWauOPw1pv+nQxeLnvrS14Y9EoeSE5Mcyj0xaMcn +qW6tShx0zLK2/PRjUJp3ceNUvzhYOGcvednfRr0eo22Pd8Wh8xhH6mRuFHog +f7S9l0oCLr+cnM++FYV8ljLa52kkQHVUruaGWxTi9bDuEGGWgEHGMc/Ew1HI +zn2hM5VXAhjJ/rJ/e2+hHde97hAlCYgySoW3W5FIyVluSNdWArjmNrOEPCPQ +R1dh7ycOElB35O0NCaMIdMeDm4PNRQJqQsUHtFQi0ILvtsGwlwTYXopC83QR +qCCk/61BiASog85IaG44Opjs/sE0XQKkhGlYON7fRHtN5Us2gxIQZknfsOUQ +hipacuLbXkmAFjfx2PVzYciyPUVR7I0ESLjZ8AgcC0P13cE+M5OU9bz30UUs +Ychv5Oya4zeKvxYWsXPOoejr1+/bbjSS0KfifKCG6wYa5pJn8VeRhMQ3ywx+ +8cEI8/RcuK8qCRfG7Pl0XYNRRXdFdzvlFpfXacB9TiMY3Q0hRHJoSkJtzVml +gd0gpDt/dLfckLLfSZPriU8Q6qtX+zXtLgl15kPc01bXUJeN2ej5bEl4GOsI +oiaB6HBjxrPAPElYYrI1HDkSiAoPTCZkF0rCoct/Zot5A1Fkn6XuUpkkWJh8 +pGkdD0CnDtt1RddKgtsk7kqudQBqZfCsbX4lCa/9XRtoff1RY0X4fXkaHCSu +qtb5Vfohel0T/nR6HMwkLKcQk/2QwYJUJjUzDuJn3l076O+HvooPpr3jwEFQ +vV+H4Qk/xJ15MDlMCAdV8fU/Y3svI/eIx7ffqODArnOL7tOSLxIwf+cf4oOD +efrrX+nP+SCn9ZK1eT8ccD9tOnLiiA96lhzsZxCIg86Ej02Jh3yQ1qCIL+4G +Dm4zd3edHPNGfqfcPV7F4cCZLko4mtcb9ctT2UsU4+AUvdUTwTxPFEwte37g +Aw4kPpQc9Zh1Q/PqLOO4LxR/FcwGLja6ofO3ly7dnMUB32fbv+HJbkiCvdL7 +6HccvNQjiwequaGBQ4cTcjdxIJiR8OZXnisSOoYNXeGWggDn4vtLHi6o3ctQ +V1BbCnK4X6Z6yjgh+SrSm0BdKdCno6GZpHdCaes8liP6UlBIIN0JmHVE7iFj +7tGmUrBa2MeKch0RT6xl3LK9FHze3sph4HdETkVOfV03pCDJ6M41TV4HxDwV +dMarRgp6mwetqfB26Ghg6f6EWilY7v79/g+PHbLlGh+pbJCC57d0rbn/2qK6 +M0eslluloGs5fOh5py1yev7L98qgFAg2pnwtuGiL2u463A+al4LzqyFk6kQb +ynw79zPqP2lQOtkWay9ujQqnQqqLBaQh9d4obcO6FRoOLL/aIyQN6maKg+d6 +rBCugpGGWVIado9dECd6WaFR/o6D8QRpKKXJ+jnWZIkU15TVUnSk4WnHGZyt +40U090g0NSdEGrRNmr6GfTFHS5FftmjCpOG/25mMU7XmaMUu75JLhDQgo49H +Au6aIyphUTlCrDQsOce4OqmaI/50kfb2dGnYcF4jKdw3Q+ejhX/PVUlDXouz +034HU9TkLKgrvyANGcozBisixqhD48OzxCVpMGN8Hpr6zwj1iT88uP5LGsS/ +HN9xnzJCY58OzbzckAY3I8+W+gwjtGJ2KEifVgbGY/WSe7iNkPQZgZLLwjIA +kjZ3/bkNUao0H229iQw4BgyyKSqfR5bWuOIZcxlIF2mqHzl0HkmkknTYLGWg +FF97NXvfeVSzp5dobycDTC8vDBg/1Edv3oUfYvOWgdzvTnOHXp9D3LeWDtvf +loGwaTqtWk09lPylxXF/owwc1NCg9nHWQRYHBxmPNcuAeJ+5eOsJHSSmN1lu +1yYDwgP8voYcOqiqbm25tlsGYjqC5FQbtNFIgswNuzcykDBnc4WfUxtxYilp +tT9kgEZDw/5FnxZKzHLqthWRhapjc4Ii7hooMCDcL0RcFm4JGNV3aWkga8Ns +4XScLDzJnPyRK6GB5JnfBQ7Iy4JzYd/exkd11HtNQ1pZRRaWpyK+8Zmqo30X +JGJYDWVBCVS+7uidRv4Hp3VqI2SBsfYP1QU7NWS5urvxOkoWrgt3CMhpqCH1 +Yb6CpRhZYG6uMJWVVkNc0QbboomycG2BRKz8Cahio7X8zgOKf9Nuz/uvA/r2 +NofV7rks1PKzHjhyBiGLVKsh1q+ykP+w9uK8kCo6VM0s4L4oC80kh8LxxRPo +0+ta594fsjDq8uKPeO0J5MDORR21Jguu/XcyOs6fQF6xZNIetRxwhv+dPnj7 +OAoPU8pcPiQHmEz8jxx6FVTqQe3wzlAOWD1elT5GR5FHXMXTw6Zy8GwQR+w4 +cBQpll3cTb4gB9O0Rt/Elo6gqq/P0/Rt5IAreIitKfMIarJz6+3xlINXv3sb +z2weRq/MRxUbb8uBHRezuWs7CW2qF23lNMvBpQ/7iW+jCSikMSeis00OzsuP +Nwe5EBAVMWv/QqccdG8vuBprExCDcIIosV8O5MrPfcpnISDeravanWNyIHiX +6WVBMh6RnuhmfvstB9422omzRkrI68DaMYK4PFhgx+Zu/JFDK3E/201w8tBR +z7xS0SmH/Pct6AbJyEPTQCHNkWQ5FPLrg02HkjxsRNaJqCnKobje7tsmqvJw +ioXrvY6bLCq5fn/8mok8MORQOVYvS6OZuVNX26Mp9mq6zP2P49CpnKF82Th5 +cI8430fNhkO55haDyXflgbrmt9qXL5LIut9XzP6ePFwa9mZOj5VEk09zB2gK +5MFU83fu0CcJNBL8T0SjWR6IbvKP1jPEEeFI7NknbfKgr3Un2tdXHCX+PBBw +oEse5ByyvyvriKNztgr9c/3yUFtprZy/I4b6NC39oybk4WlI+8JHBzHUztnQ +270mD/9KPxfEnRJFov0aa0qbFH9q7TquCIuisMjXQhnb8nDjb87j3B0RhP35 +5ueyTwGCNaQYW2pFUMPUQSEmDgUouViOMRFEUFWx/2UdOQXIz50v+2IthPJP +EgQGbRXg7b7lGdIzftR+jjli20EBtE9a0j+7zo+mL80syrgoQOhpOp84HX4k +Hn6vIcpLASbvfS0xmeNDheStCxCsAKrGZqOKwnyoSL89ozpVAXohn9en4CAq +sTXizepWgIoY2ybVRR7Uc1n+Rk+fAmhmSmhotPGgbxF08xuDCtBZ6ASZGTxI ++lHtc6M3CtASfiVO9AwPKl0UMNn/RQGO3SuMLSrjRmV+sylhfxXAqNHUme06 +F3pyy5/TWUERHr+uVpcw5kBLqlbht/CKQOBckjc8zIHk19RXC0iKEHXzU2gD +Dwcqs+N5+1lFEX6JjFf4PmZHJag6w0JTEV7htLk6atlQ4dZv4XOXFOHOCd57 +gjOsKMvTQ/FIkiIMJYryl0czoUkJ4xyjVEWQGf6ccsSECfFNneC4nK4IFyVU +5IXEmVCGDstKxUNF+BCcI8vQyojuSZU9ly5ThPNGoTW4fwwo8ctX1UMdipD/ +6tUqZxw9ijaxP0uzrgjE2kW34BkalK8/Zem4qQhWTI5Zp+poUJO2iVf3tiKc +3ZhJs4unQSsntZLi9inBRlCOXtkxGmSJkxvj5lCCRHkfQ82UfYj4Z8VOQk4J +ouS/h4maUyO9ZfcrUYpKIBldxSpNpEYu32dvfSMowdzIgvp1Vmr08NO7ksfH +lGBl7fgFznYqxNjT8POwphIc2WvJH8ZToY8Z4UEatkqQrdBprn3sH7aVvB1X +7KAEU+/HgvLWdzGe+CsPmVyUwE/cZjKyehfTvunUOuilBPG/1zgW8LtYjasO +vWmIEjD0X6ZmJu5gsce5kp3SlUC2+JZar+5f7MhUXmn0oBLYT4RfCfiwgXEo +umxWvlKCionzPyqfbGBLoYpa46NKkPA86b8zNzawQvHGWelJJdBgPUhOEtnA +eNzfCPfNK4GyJvv1QNd17G8IzVl6KjykNBlLbbKsYd+KnC5nUeNh+032o4Ev +q9i7od5MRRo8vJjasVyvXcWqRBK/mdLj4ZSoyh9wXMXcOg9FFbPiwSMkZqyy +YwWbYDnadoYPD+GsIi7OCcsY+XDmtyl+PEBwb6iy2zJWY7XD7nsID/J2310M +NZaxxMp260xhPCj8yLzmtPMbO2Okv7MgiQd135/nNz1/Y3VZLspxRDwYeBAr +05t+Yhky958MnsUDk/qov/HnRWxtVbMoQg8PnhfHVibyFjH95pUHKvp40Jpj +yVuwX8TojXTuFBniwX/sEWfBwgLmH7Lldv0CHuwPLapd2v6GGQ6bSSs44yF/ +rnuARfkrVpFJIzLjggdGNPfhGdVXjMmh8mCmGx40w1P+e903j7Vu0jPQeeHh ++BE8R6DNPKYk9mJu6golfrmHH2gkzWGs/jwFd8LxkPFNgOY/xlnMBbVmnYrE +wwFfbe0P4zNYB5NH8uYtPDSrzZaxls1gQdkdNx1i8DDfUaz6SG8GW+i+bKOa +iIdA70jbx5nTGJn/teDSQzyQ1h8GnVH/goW2xmecrcfDZwOuaaemD9jih9bU +rQY8cMY/T88M+ICZbq8mFjfhoezr4WIXwgdM/qhFDE0rHvrmgovflUxh4+W4 +oEYyHoLJNlFD2e8xYnrLRbk3eHAKbWj879EE9rBmxWziLR5KPuxyBbtOYIwj +ksbRY3gIUm4mOSlMYJ9Y7+jOTOLhnHqA2siLcexOuPnJ+1/wUPmsQGB6eAyb +91wWYvmFB41tudtLfO8wgzgJgfrfeHioHk00m3uLNZWYHXRewcOTF5FOKs/e +YikzL9k71vFg9Z7VyUbnLQYXYqmCd/Cw89mWXTD8DZalLj69yESAbqPkxWv0 +o5iegElRnwQBdqoC2DwsX2EZs4qtF3EEMN13QOOh8its9gnj+yUpArDWr1YL +cr/CQqCJg12OAAsTa07cacPYY0fxECMCAW799crcChnCmJ8uG06dJEDhLBs5 +wWkAM73W7+mJCMCh4xqtiRvA8k8V3f4HBBAx4E+5Pd+Pqbw1bxZRJwCvlz97 +mUs/5vK3RcZRhwDNnd+bT/v1Yd3qd6l+mhLg0BtLquncHoyLzUUg1JwAJfKs +N/tdejDrMbWjHBYE8ConmSsRerAN13V3ohUBTtMsctt1dGO4BMuxAHsCpHrR ++pn/IGORE7IVe94EiO0hJdWYdmFqXt0XOWMIIOZmyv/1ajv2d3xBszOWANyv +H0W36rRjNadZiYF3CEAncCOCUbAdw/EZMH5IIMD5Knblz+1tGGvnZE1JGgF8 +2I8EpHC3YeN8P/dTHiPw/oHvc6/EFiw5kmNrpYgAZ4Xv9rCrtWBnfxFni4op +5w+fNPVZacaaOwMbWMoJwEAWoHc1a8YKvamdx54RoOXUaWcm2ZeYTxdPq1cL +Afp/XZ5M/92AyeKVy0XbCFDmHsnu9rgBm8m6kPamnQB7hq/nv7g0YKY+2R7H +yQSoUpm70TRTj6kKSPPRDxKgzz9DeO1zHcboe+Lyw0kCXKde/KGw+QLLOWQn +MbBOWRcx1vFNrMaOk+QU7f4QoMvR3u+BbTX2RntNeXOTAL32nKYkUjXGGBh1 +VmKHAFr36tJyx6own9dll0P2EcFOPfneJckqDKJWW+XZieB91kypbPQpNvmg +qa+dgwjZVNcZceVPsSvVt96YcxGhJvDn473wp1jJ54PfIg8QoQD/iL+X9BTj +PKHK/kGACJ/PvrimSqrEpn9FWsVLE2EhKFxL+/tjLIT+nLO4LBEEno+sY0WP +MV7Bg771ckQwph0cHrv0GNPRKY2cUyTCp1Vfix/vyrGqwsHyk0eIcMKlpzFs +oAyLuMD794caEbQ/2vfxvSnBJDqK085dJMLeJ/MRJd0ibEh+s3DKkggMXqOP +6fmKsKtpZ6rdrIkw/75s0mi+EOt3XRiOsiXCbnARn154IXaZQ46pxZkIUwuX +drNbCrAWq4pgpStEyKpX+Td3Lh9z6f4X89KfCHHRN5rLxfIxLoJ+xtlAIhQN +x7qMb+RhTrS/a5yDiJChGzJnl5uHsZYTfuaEEcFD+cwH8c1czGKzxoYjnggO +KVR6Cn45GK0dnXf2XSLgoia+kXE5WEW/yXX5RCI4xlhZc7/PxqhzNjLPpBDh +SLFMSrNGNlaicWw0LJMIvlLjDCTxh9h6cqPGchERpGeZv2nsZmGJCu2yI81E +UJYyNFKXSMdKjl1kCm8lQmxBT3z2fBrWcnrtK6GdEo9P3QrppWnYzwu4oqQu +IvCfiIuyIqRhZ6NihQ0GiEA1xt7Ec+YeRv/JkOfVBBGcWxlyFxJTMMHF7yuh +7yn5i2QtCLJMwQ6vR75W+kCxzxejmiKdgtmz1N5N+EwE7ie2KybtyVirsgCT +/lci6CSZGe1uJ2HBiTO7g2tECM8u438ZlYgl3w+Zur5BBDhXqYq3SMTKHh1o +VNgkgjv1g3MHFROx8Satq/HbRPi9JHjtWkUCdnShfEV3HwlaCJw2cVZ3sd9q +V772s5Pg2QWFfa0zcZjTKu3rXlkSfPZ12fAJj8asy9SHLOVJkMlBS0jTjMZM +bSP7fymQwM1guvgcSzSmOUxDPkAggbaNzHu/tCgMV76v0VaZBFnORZuu1bew +OTuqoq3TJBCkvj81Qx+JTfFB/h0NEhiHMjHmjkZgb16F5ghrkcC8sob5fW4E +1ontZWrokGAs88mnHtUIrJD/392k8yRwMtG0tw8KxxxGtq/KWJHggLcfMZPl +JmYZcyKgyZoE8aXz8w2fwjBjCPbTtyGBerY7WbsmDFOv+Ovpb08CoV8SK2XW +YZhE7JZdmysJltoNPr70CcVm1P7oXggggZ7dDKvrbghm92xFJCaBBKsM12Ju +5F3FPMKNdnSSSFBq0CJCY3EV8zeqGWNNoew/ffTqee6r2O11/7uJaSQ4bJj2 +U/V2IFahsrWd/pAEPQEB78WCA7Cttr13j8pJ8LH0iIJ9xBVsX4pNlcsTEkDI +YGGY1hWM1aEtXraSBKfPB17UYr2CCdFHqFdUkUCLddS4N90PU9ehr3peTwKd +T0jS68VlLHGENb6zmwTjkxK3Wzh8sawCT5eoXhJ4Envz8j/6YAVXhk6f6ScB +nYEL8DzxwV7wJv7tH6LkA1WuPjjrg01ZcLuMviVBXsDZ7sNC3pjUDN/p6RkS +WNx/qMNg5YHha4KECudI8P7prjsweWDHb73fcvxKAhzrFV3XF+6YrtTDpwuL +JHiupfUnlNsdu+wuIrS8TIJDw56yQeOuWIjqza2qVYp+Lp7TXoxzxW7tn35z +ZZ1i/0OO0lFwxTIqC+I2N0lwm99g1KzcBcsPo3Vu+EuCFY+Pn6XtXLByA8dT +ITskEL1/0HSAzwWrESMLYv9IIEV1fxGNOGPNq7itvT0SRDwWsbwZ54z9D9HN +mI8= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.1794249008533784}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.1794249008533784}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8198Xx8ke2emLbD42n1FJ6X2PMiKSLSF7z4RCESIkM6uyZRWFMrN9 +bIrKSMsq0jAj5Pf5/fN+P56Pex/nce45r3POvaJ23oaO+6ioqHQon///H96w +oyc43MdyME96YQV7rHNURNdM5Br6asd6XS5dDe2RmyNERGKQxaiq716aAXrY +Gi9MJ5KJMscEbrxNs0UeJ/09/wiXIuMittc+ab5odNsl9bdwPVoNpmnZS72J +GN5PS/0Q7kV+F8Kc9BKSUF5fju934QmkUferL/tqHqqojHnvobiIZH5Pa7we +eIac0evMpcur6KlFw97nqHpElb/R8D5uFam2ML82K6hHGbSHpvoKV1GP36+9 +5pZ61NPrJFT6bhX9Ox5/zHqzHkkb7+Q7Hl9DTA4nnT+6NKBvLlKPP1Kvo/Cs +mLBxzUbklny9+VXiBlJJlTust9GEvOZkZmoqthDLlSt3hTha0WfrCca23i1U +HY8dIQm2IqPx24qDs1vIdON5papsKzrW//XaHP9fpHfwLI2ieiuieVbEwRv9 +F738ddQ2JrAVZYSIYoGXtlHg0U0awalW1MbNl6nCsYuEFGvXYh+0ocPxPc0a +crvo6YvAMwolbegR/dVZA81dRGcxWtRR3YbubL1TcgvZRUdwqc4DfW3I9FMq +OevbLqJPq/XV22xDi2Uca9ut/9CjxhoRJoN2xCwaKfXpGBVwcMhVa2y1ox7V +JKUbGlRwO7H3evW+DhRlnq0saEhhWR5LXtYOtC+xTuuiOxXkrAdpNQp1oL// +lpzHHlJBT5Bv1M3THej7lEnJ8D5quC8ir7gb24EGMqRkWgeoYXzHMSGHsxPF +1hwmXJqgBpkeyfIyvk505pWayr85aoiKJt8pE+1EnQyW2qp71DAzUZx1m9CJ +mgISXesI+0Anirfq5flO9MR4q/Rp2j64PDEWxBzfie5y9Mvm2dDA+qbKN8nd +TlSvLPj8nBcN9JxvfWpM24Vmrb3RTjANjHT2CQWwdKETT7iNzdJp4EAf/UIi +Xxf6pm15ff8QDcSxX5LGHelCpyN+DF87QQv9htucw65dyKsMWUhp04LjRDiD +tE8XynqdNPvGlBZc01Ry/AK60G/ho1tKl2mB4RH2Yjq8C2U33RCbL6GFiwkz +d0Tud6HNdXZ/Q1460IUXFgK9XUhc0G5vT5wO2Em6FdlDXeicek3MEwId/PfF +sILnTRcqSjbPZtSjgwvpB+rGP3YhQ6W87uYIOlAbYuBpW+1CT1yI/HLLdOAU +pSHJI0BG4wmRheP/6IB7pfBjuzAZ0da+U4xipQfbmaWLDhJkZEEXfPqLFD0c +OTJeGqpARoz5HR7p1vRgkWDQfxCRkd174xaaAXoYxibZX10iI+b7Xzx9J+iB +74+FSJY9GVVZeB36NE8PTBv/JZs5kxHNZPS1BmoG8CdcK3jsRUaF4w0kX2UG +OMYT0t0SQka6GVrTH9UZwDjkjJxkGBmtmb1J1DVkAM7Hr+huRJCRxtiPH1Ke +DBCeWyLLHEtG829FSj7mM0D/0O+oO2lkdPfeE1PdpwxgJt+9Gp9JRkdNjtM1 +vGSAxJ7cX+EPyCj6jZHdvXEG8AgxyNPKJyPp0ahDumyMoKz5VFv1CRm5vVpK +rL/GCMUH6+rftpIRV+I1JBXNCJ3fbz3j7CCjBn36n6mpjFCJ2/FR6yIjlmHh +sz6VjBDMGmQa0ktGjwcN6aTmGMHYW0zO5jUZGcd/qk5dYQTctMHw8VEy2tH1 +sNtHxQTPjtpfZHpLRnoDt1o+8DNBMjWjavg4Gf3sq7uWep4Jbr2JT5/5SEZp +sRrS+6yZAF9Vv2L1mYwwnZF33u5M8Cv2pvnAFzJK6P1OOhvFBFKSOya3Zsno +WMzV6boUJqgMHdkYniOjz2foknB5TKCwGlfD9pWM8D1CP6mbmMA3zTzTZYGS +/+jyB969FH7xvjdikYzCtI6d/fCOCU42isqmfCejV2SDkrplJqgaPhl/9wcZ +XY36aIrbY4LuD0OZQT/JSETTnS6VlRlK6jIWLH6RkW9XpJ23FDMcj6xy2vxN +RkKzmvQbJGZgdeRTL10mo/59TGUhwAw2VxR39Fco9kT79Wj0mOERkSdlicKS +EL8cc4EZ8GurrKGrZDRirX+Pw4kZCid2PRnWyCj0OqdK+mVm8OpxabhFYfkH +o1OCocwgY395Y4vCEw33wgrjmOHgvks4h3Uyipowk5DLYAa/8mvnOilM2uTr +eVbIDG9ZePz4Nyjx4Z1yP/aMGdK9ojKcKBx/JJu95SUzcL5Q6iih8HFjm2qN +PmagMvb/85nCXy+LmQ28Y4ZWtQ4V9j9klJo0+9dwhhnubcbdJVFY7emj7Ilf +zLDqeuavHoV/Drmcstlhhsd/Am9aU/j+D9n5eUYWUPHIlXak8BnWHzGeB1hg +fEVvzZbC67KVCmuiLNDJzr1gTOF8bd/XQYos4JhxmwWjsL4LyZ/6BAu4luvZ +CFJ4J2r9v9taLPCthGFpheJfaVFtE5sxC4TJ2lU3U9i085rNPRsW8N5mawyj +MM3MCdpDnixQyEFmUKHwU+p/xfnXWKAnTCP7KyU+ViKtZ2WiWMAkxCDiDoWZ +UfivymQWyNSoaZSicK2VesrRHBZ4Io3p1lPizXm/Z/J0HQt89sTFtFDy1Vwf +e6OvkwVOGpxGhynsPq4rZvCaBaaA1jaHkt+uA69drRcp/hLw2+YUPVw+nLJ/ +boMFXrTdvl5M0YuwkckzdxpW0HezCV2i6Ola4sTm1UOsIFhafMCCojdc5f0H +e9KskDRGrAmn6HF00AqijrDCP+zKfN4SGSmwTEennGMFZaYE/k6Knr/cWuSt +CGOFXZ0kg4x5Sn8ofNxwOJ4V+u24hQIo9XGiw8u6MZMVomjIxTqU+rlHtVrU +U8UKdXZfGMYp9aUdvH14ZpYVXDX5EiOnyGgj8+W46zIr6IaLvf/vPRkV1IWG +/N5lBV51RbbCCTLaXafp3OXdD8Fd/53KeUdGz3xYjf7T3g+rh2eDZF6R0UAW +97UnpvvhYLHG5fNDlP7VyZ9zymE/qPg2LHkMkBE/n8x3j9D9MNvoHx3VQ0aR +bRoRbc/3A09kn+BJSj/K/q5batqxH8pHFP9wNJNR3QHj4e+v9kPv79D4yUYy ++uFqJ8C7tB98BfXZ9Gsp+ecKrXYTY4N+gT6lZkp/81GNmthTYgO8UVILlJNR +rFP8XupJNggVq9KqLyGjlob7Z1vM2eChqMylOwWU/mhfN8OdwAYB3XqhjRlk +9Ld6mfvlNhsUdf1TUb9JRjwfN1UMmdiB2Wp2RuYGGSkyUtl85WUH1XfnqemD +ycjeku0xJ5EdpDvUX+RdoZyfVk7dyYUdfn+0nHemzINsE4cr7G/ZoZbK0Oro +WTLKC3ZfxJtxQCqvTCQPK6VftTJtRltxQNGBpTgRRjJqpS2h+2TPAQl/hSQk +aSn1Gz8rEu/DAW1bh0X/2+lCQrlWZgsxHGBnb8r26Dtl3nbqd+Y1cQDuFanZ +mTI/k/cfzuYS44T8D6Iq1aFdKDxnx2BtiROOHfjdsTHeic7j63zlVjnhh/hR +i6DRTiTU5pdkt8UJB9LxNzYHO1HD9OKrV3RcwNV3I3a2vROtSE7oPxHiglLx +E34hjzuR3ePnek7nueC1F23IsxudSK3eS3u8mgsWxVqlbIQ7EdXoZ2gK4oZF +VyK3nlEHwl1xumosewB8w2MHFlza0Ox6uinLS17AAu5MyW82I505t+vJvv+B +WnEzW2RtAzo3mygnJMQPdNTHvKeLXqDFDruwnicCMOeFVcVxVyNFzneCpy8J +QkWCv64ebyWlftdtp1aFgH01sb7hZCm6qibN+OKvEAxfTwriwpWi+dMXKxKo +haE3fKLlKlspaj/T9vcUuzD4j3hN+XwqQUGG8SmlssKgJehwgz28BH13lOwK +sBWGrA86Rxn6itHAHRNpzmFh4EsidM04PEJaPyz+iJmIwGDiBv4EuQBl80SM +hpqLANMDxsGkqgK0dqK8cuqiCLCHp2luZBeg3Nht5zQ7EXiz86D3W2AB+iv1 +YJzJRwQelMq+9pMtQI/tPtT/jhUBpKL/Wjg5H3GMXwppbhUBtcn73U3ueWi8 +3YHaQl4UtkZmvUruZqPfapP815VE4aViRrm6TzZiaNM/nEsUBR7N2PQ/Btno +aMtx5/ljovAl2M0m70A2Sm3kGLysIQq8V/0XabIfIv2apow4a1Gg9g279K/q +ASIX8eBfJopC8LLo8+QfWej57U5rkXVRmKBx2O9WkI5KdPr/i94UBW3GAHGL +2+koi3Vk5Me2KLQx4nzsPNNRWOInzcZ9YiBmNnS9UTmdcr/5q2jKIQbmIh4C +dwfT0HQxfi9OTgw0aXOHynbvIbbuBzl/bMWA7/YOtYd3KqKOKbhg7SgGLcPS +586apaI1nTLuLhcxGPrHqamGUtHEUG10srcYaNvtp/dlT0WF70a8Fa6LgUWW +kM3Hpyno+Dwj2GeIwZeFj8pzf5KRE53/56EhMUi5dd3hTFoS4hfuHdt+LQbY +qZ3qc+FJaOiY4LD0WzHQ8t5n6eyVhI56dL0Mf0+xX+sfO6yZhOhHD9w/+k0M +PnFgxKDNRFSU+8Ikm1ocFKhKCEqXEtHsic0+z8PiUMRRfyfd7y7KMNFtz1IW +B2bauuMc5+8iXe/c+u7j4nDuxrEvZfJ3UU3+mRJRNXHgvEdq1ZiPR5FMmbfe +6onDqKWMLfvFeCQxpgInncXB+OYy/SedO8j+cvBz1ixxYBusefbuVCw6Svz4 +XOahOAQ+7X1DLRGLmFfghWauOPw1pv+nQxeLnvrS14Y9EoeSE5Mcyj0xaMcn +qW6tShx0zLK2/PRjUJp3ceNUvzhYOGcvednfRr0eo22Pd8Wh8xhH6mRuFHog +f7S9l0oCLr+cnM++FYV8ljLa52kkQHVUruaGWxTi9bDuEGGWgEHGMc/Ew1HI +zn2hM5VXAhjJ/rJ/e2+hHde97hAlCYgySoW3W5FIyVluSNdWArjmNrOEPCPQ +R1dh7ycOElB35O0NCaMIdMeDm4PNRQJqQsUHtFQi0ILvtsGwlwTYXopC83QR +qCCk/61BiASog85IaG44Opjs/sE0XQKkhGlYON7fRHtN5Us2gxIQZknfsOUQ +hipacuLbXkmAFjfx2PVzYciyPUVR7I0ESLjZ8AgcC0P13cE+M5OU9bz30UUs +Ychv5Oya4zeKvxYWsXPOoejr1+/bbjSS0KfifKCG6wYa5pJn8VeRhMQ3ywx+ +8cEI8/RcuK8qCRfG7Pl0XYNRRXdFdzvlFpfXacB9TiMY3Q0hRHJoSkJtzVml +gd0gpDt/dLfckLLfSZPriU8Q6qtX+zXtLgl15kPc01bXUJeN2ej5bEl4GOsI +oiaB6HBjxrPAPElYYrI1HDkSiAoPTCZkF0rCoct/Zot5A1Fkn6XuUpkkWJh8 +pGkdD0CnDtt1RddKgtsk7kqudQBqZfCsbX4lCa/9XRtoff1RY0X4fXkaHCSu +qtb5Vfohel0T/nR6HMwkLKcQk/2QwYJUJjUzDuJn3l076O+HvooPpr3jwEFQ +vV+H4Qk/xJ15MDlMCAdV8fU/Y3svI/eIx7ffqODArnOL7tOSLxIwf+cf4oOD +efrrX+nP+SCn9ZK1eT8ccD9tOnLiiA96lhzsZxCIg86Ej02Jh3yQ1qCIL+4G +Dm4zd3edHPNGfqfcPV7F4cCZLko4mtcb9ctT2UsU4+AUvdUTwTxPFEwte37g +Aw4kPpQc9Zh1Q/PqLOO4LxR/FcwGLja6ofO3ly7dnMUB32fbv+HJbkiCvdL7 +6HccvNQjiwequaGBQ4cTcjdxIJiR8OZXnisSOoYNXeGWggDn4vtLHi6o3ctQ +V1BbCnK4X6Z6yjgh+SrSm0BdKdCno6GZpHdCaes8liP6UlBIIN0JmHVE7iFj +7tGmUrBa2MeKch0RT6xl3LK9FHze3sph4HdETkVOfV03pCDJ6M41TV4HxDwV +dMarRgp6mwetqfB26Ghg6f6EWilY7v79/g+PHbLlGh+pbJCC57d0rbn/2qK6 +M0eslluloGs5fOh5py1yev7L98qgFAg2pnwtuGiL2u463A+al4LzqyFk6kQb +ynw79zPqP2lQOtkWay9ujQqnQqqLBaQh9d4obcO6FRoOLL/aIyQN6maKg+d6 +rBCugpGGWVIado9dECd6WaFR/o6D8QRpKKXJ+jnWZIkU15TVUnSk4WnHGZyt +40U090g0NSdEGrRNmr6GfTFHS5FftmjCpOG/25mMU7XmaMUu75JLhDQgo49H +Au6aIyphUTlCrDQsOce4OqmaI/50kfb2dGnYcF4jKdw3Q+ejhX/PVUlDXouz +034HU9TkLKgrvyANGcozBisixqhD48OzxCVpMGN8Hpr6zwj1iT88uP5LGsS/ +HN9xnzJCY58OzbzckAY3I8+W+gwjtGJ2KEifVgbGY/WSe7iNkPQZgZLLwjIA +kjZ3/bkNUao0H229iQw4BgyyKSqfR5bWuOIZcxlIF2mqHzl0HkmkknTYLGWg +FF97NXvfeVSzp5dobycDTC8vDBg/1Edv3oUfYvOWgdzvTnOHXp9D3LeWDtvf +loGwaTqtWk09lPylxXF/owwc1NCg9nHWQRYHBxmPNcuAeJ+5eOsJHSSmN1lu +1yYDwgP8voYcOqiqbm25tlsGYjqC5FQbtNFIgswNuzcykDBnc4WfUxtxYilp +tT9kgEZDw/5FnxZKzHLqthWRhapjc4Ii7hooMCDcL0RcFm4JGNV3aWkga8Ns +4XScLDzJnPyRK6GB5JnfBQ7Iy4JzYd/exkd11HtNQ1pZRRaWpyK+8Zmqo30X +JGJYDWVBCVS+7uidRv4Hp3VqI2SBsfYP1QU7NWS5urvxOkoWrgt3CMhpqCH1 +Yb6CpRhZYG6uMJWVVkNc0QbboomycG2BRKz8Cahio7X8zgOKf9Nuz/uvA/r2 +NofV7rks1PKzHjhyBiGLVKsh1q+ykP+w9uK8kCo6VM0s4L4oC80kh8LxxRPo +0+ta594fsjDq8uKPeO0J5MDORR21Jguu/XcyOs6fQF6xZNIetRxwhv+dPnj7 +OAoPU8pcPiQHmEz8jxx6FVTqQe3wzlAOWD1elT5GR5FHXMXTw6Zy8GwQR+w4 +cBQpll3cTb4gB9O0Rt/Elo6gqq/P0/Rt5IAreIitKfMIarJz6+3xlINXv3sb +z2weRq/MRxUbb8uBHRezuWs7CW2qF23lNMvBpQ/7iW+jCSikMSeis00OzsuP +Nwe5EBAVMWv/QqccdG8vuBprExCDcIIosV8O5MrPfcpnISDeravanWNyIHiX +6WVBMh6RnuhmfvstB9422omzRkrI68DaMYK4PFhgx+Zu/JFDK3E/201w8tBR +z7xS0SmH/Pct6AbJyEPTQCHNkWQ5FPLrg02HkjxsRNaJqCnKobje7tsmqvJw +ioXrvY6bLCq5fn/8mok8MORQOVYvS6OZuVNX26Mp9mq6zP2P49CpnKF82Th5 +cI8430fNhkO55haDyXflgbrmt9qXL5LIut9XzP6ePFwa9mZOj5VEk09zB2gK +5MFU83fu0CcJNBL8T0SjWR6IbvKP1jPEEeFI7NknbfKgr3Un2tdXHCX+PBBw +oEse5ByyvyvriKNztgr9c/3yUFtprZy/I4b6NC39oybk4WlI+8JHBzHUztnQ +270mD/9KPxfEnRJFov0aa0qbFH9q7TquCIuisMjXQhnb8nDjb87j3B0RhP35 +5ueyTwGCNaQYW2pFUMPUQSEmDgUouViOMRFEUFWx/2UdOQXIz50v+2IthPJP +EgQGbRXg7b7lGdIzftR+jjli20EBtE9a0j+7zo+mL80syrgoQOhpOp84HX4k +Hn6vIcpLASbvfS0xmeNDheStCxCsAKrGZqOKwnyoSL89ozpVAXohn9en4CAq +sTXizepWgIoY2ybVRR7Uc1n+Rk+fAmhmSmhotPGgbxF08xuDCtBZ6ASZGTxI ++lHtc6M3CtASfiVO9AwPKl0UMNn/RQGO3SuMLSrjRmV+sylhfxXAqNHUme06 +F3pyy5/TWUERHr+uVpcw5kBLqlbht/CKQOBckjc8zIHk19RXC0iKEHXzU2gD +Dwcqs+N5+1lFEX6JjFf4PmZHJag6w0JTEV7htLk6atlQ4dZv4XOXFOHOCd57 +gjOsKMvTQ/FIkiIMJYryl0czoUkJ4xyjVEWQGf6ccsSECfFNneC4nK4IFyVU +5IXEmVCGDstKxUNF+BCcI8vQyojuSZU9ly5ThPNGoTW4fwwo8ctX1UMdipD/ +6tUqZxw9ijaxP0uzrgjE2kW34BkalK8/Zem4qQhWTI5Zp+poUJO2iVf3tiKc +3ZhJs4unQSsntZLi9inBRlCOXtkxGmSJkxvj5lCCRHkfQ82UfYj4Z8VOQk4J +ouS/h4maUyO9ZfcrUYpKIBldxSpNpEYu32dvfSMowdzIgvp1Vmr08NO7ksfH +lGBl7fgFznYqxNjT8POwphIc2WvJH8ZToY8Z4UEatkqQrdBprn3sH7aVvB1X +7KAEU+/HgvLWdzGe+CsPmVyUwE/cZjKyehfTvunUOuilBPG/1zgW8LtYjasO +vWmIEjD0X6ZmJu5gsce5kp3SlUC2+JZar+5f7MhUXmn0oBLYT4RfCfiwgXEo +umxWvlKCionzPyqfbGBLoYpa46NKkPA86b8zNzawQvHGWelJJdBgPUhOEtnA +eNzfCPfNK4GyJvv1QNd17G8IzVl6KjykNBlLbbKsYd+KnC5nUeNh+032o4Ev +q9i7od5MRRo8vJjasVyvXcWqRBK/mdLj4ZSoyh9wXMXcOg9FFbPiwSMkZqyy +YwWbYDnadoYPD+GsIi7OCcsY+XDmtyl+PEBwb6iy2zJWY7XD7nsID/J2310M +NZaxxMp260xhPCj8yLzmtPMbO2Okv7MgiQd135/nNz1/Y3VZLspxRDwYeBAr +05t+Yhky958MnsUDk/qov/HnRWxtVbMoQg8PnhfHVibyFjH95pUHKvp40Jpj +yVuwX8TojXTuFBniwX/sEWfBwgLmH7Lldv0CHuwPLapd2v6GGQ6bSSs44yF/ +rnuARfkrVpFJIzLjggdGNPfhGdVXjMmh8mCmGx40w1P+e903j7Vu0jPQeeHh ++BE8R6DNPKYk9mJu6golfrmHH2gkzWGs/jwFd8LxkPFNgOY/xlnMBbVmnYrE +wwFfbe0P4zNYB5NH8uYtPDSrzZaxls1gQdkdNx1i8DDfUaz6SG8GW+i+bKOa +iIdA70jbx5nTGJn/teDSQzyQ1h8GnVH/goW2xmecrcfDZwOuaaemD9jih9bU +rQY8cMY/T88M+ICZbq8mFjfhoezr4WIXwgdM/qhFDE0rHvrmgovflUxh4+W4 +oEYyHoLJNlFD2e8xYnrLRbk3eHAKbWj879EE9rBmxWziLR5KPuxyBbtOYIwj +ksbRY3gIUm4mOSlMYJ9Y7+jOTOLhnHqA2siLcexOuPnJ+1/wUPmsQGB6eAyb +91wWYvmFB41tudtLfO8wgzgJgfrfeHioHk00m3uLNZWYHXRewcOTF5FOKs/e +YikzL9k71vFg9Z7VyUbnLQYXYqmCd/Cw89mWXTD8DZalLj69yESAbqPkxWv0 +o5iegElRnwQBdqoC2DwsX2EZs4qtF3EEMN13QOOh8its9gnj+yUpArDWr1YL +cr/CQqCJg12OAAsTa07cacPYY0fxECMCAW799crcChnCmJ8uG06dJEDhLBs5 +wWkAM73W7+mJCMCh4xqtiRvA8k8V3f4HBBAx4E+5Pd+Pqbw1bxZRJwCvlz97 +mUs/5vK3RcZRhwDNnd+bT/v1Yd3qd6l+mhLg0BtLquncHoyLzUUg1JwAJfKs +N/tdejDrMbWjHBYE8ConmSsRerAN13V3ohUBTtMsctt1dGO4BMuxAHsCpHrR ++pn/IGORE7IVe94EiO0hJdWYdmFqXt0XOWMIIOZmyv/1ajv2d3xBszOWANyv +H0W36rRjNadZiYF3CEAncCOCUbAdw/EZMH5IIMD5Knblz+1tGGvnZE1JGgF8 +2I8EpHC3YeN8P/dTHiPw/oHvc6/EFiw5kmNrpYgAZ4Xv9rCrtWBnfxFni4op +5w+fNPVZacaaOwMbWMoJwEAWoHc1a8YKvamdx54RoOXUaWcm2ZeYTxdPq1cL +Afp/XZ5M/92AyeKVy0XbCFDmHsnu9rgBm8m6kPamnQB7hq/nv7g0YKY+2R7H +yQSoUpm70TRTj6kKSPPRDxKgzz9DeO1zHcboe+Lyw0kCXKde/KGw+QLLOWQn +MbBOWRcx1vFNrMaOk+QU7f4QoMvR3u+BbTX2RntNeXOTAL32nKYkUjXGGBh1 +VmKHAFr36tJyx6own9dll0P2EcFOPfneJckqDKJWW+XZieB91kypbPQpNvmg +qa+dgwjZVNcZceVPsSvVt96YcxGhJvDn473wp1jJ54PfIg8QoQD/iL+X9BTj +PKHK/kGACJ/PvrimSqrEpn9FWsVLE2EhKFxL+/tjLIT+nLO4LBEEno+sY0WP +MV7Bg771ckQwph0cHrv0GNPRKY2cUyTCp1Vfix/vyrGqwsHyk0eIcMKlpzFs +oAyLuMD794caEbQ/2vfxvSnBJDqK085dJMLeJ/MRJd0ibEh+s3DKkggMXqOP +6fmKsKtpZ6rdrIkw/75s0mi+EOt3XRiOsiXCbnARn154IXaZQ46pxZkIUwuX +drNbCrAWq4pgpStEyKpX+Td3Lh9z6f4X89KfCHHRN5rLxfIxLoJ+xtlAIhQN +x7qMb+RhTrS/a5yDiJChGzJnl5uHsZYTfuaEEcFD+cwH8c1czGKzxoYjnggO +KVR6Cn45GK0dnXf2XSLgoia+kXE5WEW/yXX5RCI4xlhZc7/PxqhzNjLPpBDh +SLFMSrNGNlaicWw0LJMIvlLjDCTxh9h6cqPGchERpGeZv2nsZmGJCu2yI81E +UJYyNFKXSMdKjl1kCm8lQmxBT3z2fBrWcnrtK6GdEo9P3QrppWnYzwu4oqQu +IvCfiIuyIqRhZ6NihQ0GiEA1xt7Ec+YeRv/JkOfVBBGcWxlyFxJTMMHF7yuh +7yn5i2QtCLJMwQ6vR75W+kCxzxejmiKdgtmz1N5N+EwE7ie2KybtyVirsgCT +/lci6CSZGe1uJ2HBiTO7g2tECM8u438ZlYgl3w+Zur5BBDhXqYq3SMTKHh1o +VNgkgjv1g3MHFROx8Satq/HbRPi9JHjtWkUCdnShfEV3HwlaCJw2cVZ3sd9q +V772s5Pg2QWFfa0zcZjTKu3rXlkSfPZ12fAJj8asy9SHLOVJkMlBS0jTjMZM +bSP7fymQwM1guvgcSzSmOUxDPkAggbaNzHu/tCgMV76v0VaZBFnORZuu1bew +OTuqoq3TJBCkvj81Qx+JTfFB/h0NEhiHMjHmjkZgb16F5ghrkcC8sob5fW4E +1ontZWrokGAs88mnHtUIrJD/392k8yRwMtG0tw8KxxxGtq/KWJHggLcfMZPl +JmYZcyKgyZoE8aXz8w2fwjBjCPbTtyGBerY7WbsmDFOv+Ovpb08CoV8SK2XW +YZhE7JZdmysJltoNPr70CcVm1P7oXggggZ7dDKvrbghm92xFJCaBBKsM12Ju +5F3FPMKNdnSSSFBq0CJCY3EV8zeqGWNNoew/ffTqee6r2O11/7uJaSQ4bJj2 +U/V2IFahsrWd/pAEPQEB78WCA7Cttr13j8pJ8LH0iIJ9xBVsX4pNlcsTEkDI +YGGY1hWM1aEtXraSBKfPB17UYr2CCdFHqFdUkUCLddS4N90PU9ehr3peTwKd +T0jS68VlLHGENb6zmwTjkxK3Wzh8sawCT5eoXhJ4Envz8j/6YAVXhk6f6ScB +nYEL8DzxwV7wJv7tH6LkA1WuPjjrg01ZcLuMviVBXsDZ7sNC3pjUDN/p6RkS +WNx/qMNg5YHha4KECudI8P7prjsweWDHb73fcvxKAhzrFV3XF+6YrtTDpwuL +JHiupfUnlNsdu+wuIrS8TIJDw56yQeOuWIjqza2qVYp+Lp7TXoxzxW7tn35z +ZZ1i/0OO0lFwxTIqC+I2N0lwm99g1KzcBcsPo3Vu+EuCFY+Pn6XtXLByA8dT +ITskEL1/0HSAzwWrESMLYv9IIEV1fxGNOGPNq7itvT0SRDwWsbwZ54z9D9HN +mI8= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.1794249008533784}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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, 20}, {0., 0.1794249008533784}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913306567510605`*^9, 3.992098722386711*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"e80a0f85-f1ca-cf4c-8eba-f71539e2e6fd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917971206132183`*^9, 3.9917971229936733`*^9}}, + CellLabel-> + "In[121]:=",ExpressionUUID->"17d8d20d-a69d-c241-a4b7-c5ab6913db6c"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVl3c8198Xx8ke2emLbD42n1FJ6X2PMiKSLSF7z4RCESIkM6uyZRWFMrN9 +bIrKSMsq0jAj5Pf5/fN+P56Pex/nce45r3POvaJ23oaO+6ioqHQon///H96w +oyc43MdyME96YQV7rHNURNdM5Br6asd6XS5dDe2RmyNERGKQxaiq716aAXrY +Gi9MJ5KJMscEbrxNs0UeJ/09/wiXIuMittc+ab5odNsl9bdwPVoNpmnZS72J +GN5PS/0Q7kV+F8Kc9BKSUF5fju934QmkUferL/tqHqqojHnvobiIZH5Pa7we +eIac0evMpcur6KlFw97nqHpElb/R8D5uFam2ML82K6hHGbSHpvoKV1GP36+9 +5pZ61NPrJFT6bhX9Ox5/zHqzHkkb7+Q7Hl9DTA4nnT+6NKBvLlKPP1Kvo/Cs +mLBxzUbklny9+VXiBlJJlTust9GEvOZkZmoqthDLlSt3hTha0WfrCca23i1U +HY8dIQm2IqPx24qDs1vIdON5papsKzrW//XaHP9fpHfwLI2ieiuieVbEwRv9 +F738ddQ2JrAVZYSIYoGXtlHg0U0awalW1MbNl6nCsYuEFGvXYh+0ocPxPc0a +crvo6YvAMwolbegR/dVZA81dRGcxWtRR3YbubL1TcgvZRUdwqc4DfW3I9FMq +OevbLqJPq/XV22xDi2Uca9ut/9CjxhoRJoN2xCwaKfXpGBVwcMhVa2y1ox7V +JKUbGlRwO7H3evW+DhRlnq0saEhhWR5LXtYOtC+xTuuiOxXkrAdpNQp1oL// +lpzHHlJBT5Bv1M3THej7lEnJ8D5quC8ir7gb24EGMqRkWgeoYXzHMSGHsxPF +1hwmXJqgBpkeyfIyvk505pWayr85aoiKJt8pE+1EnQyW2qp71DAzUZx1m9CJ +mgISXesI+0Anirfq5flO9MR4q/Rp2j64PDEWxBzfie5y9Mvm2dDA+qbKN8nd +TlSvLPj8nBcN9JxvfWpM24Vmrb3RTjANjHT2CQWwdKETT7iNzdJp4EAf/UIi +Xxf6pm15ff8QDcSxX5LGHelCpyN+DF87QQv9htucw65dyKsMWUhp04LjRDiD +tE8XynqdNPvGlBZc01Ry/AK60G/ho1tKl2mB4RH2Yjq8C2U33RCbL6GFiwkz +d0Tud6HNdXZ/Q1460IUXFgK9XUhc0G5vT5wO2Em6FdlDXeicek3MEwId/PfF +sILnTRcqSjbPZtSjgwvpB+rGP3YhQ6W87uYIOlAbYuBpW+1CT1yI/HLLdOAU +pSHJI0BG4wmRheP/6IB7pfBjuzAZ0da+U4xipQfbmaWLDhJkZEEXfPqLFD0c +OTJeGqpARoz5HR7p1vRgkWDQfxCRkd174xaaAXoYxibZX10iI+b7Xzx9J+iB +74+FSJY9GVVZeB36NE8PTBv/JZs5kxHNZPS1BmoG8CdcK3jsRUaF4w0kX2UG +OMYT0t0SQka6GVrTH9UZwDjkjJxkGBmtmb1J1DVkAM7Hr+huRJCRxtiPH1Ke +DBCeWyLLHEtG829FSj7mM0D/0O+oO2lkdPfeE1PdpwxgJt+9Gp9JRkdNjtM1 +vGSAxJ7cX+EPyCj6jZHdvXEG8AgxyNPKJyPp0ahDumyMoKz5VFv1CRm5vVpK +rL/GCMUH6+rftpIRV+I1JBXNCJ3fbz3j7CCjBn36n6mpjFCJ2/FR6yIjlmHh +sz6VjBDMGmQa0ktGjwcN6aTmGMHYW0zO5jUZGcd/qk5dYQTctMHw8VEy2tH1 +sNtHxQTPjtpfZHpLRnoDt1o+8DNBMjWjavg4Gf3sq7uWep4Jbr2JT5/5SEZp +sRrS+6yZAF9Vv2L1mYwwnZF33u5M8Cv2pvnAFzJK6P1OOhvFBFKSOya3Zsno +WMzV6boUJqgMHdkYniOjz2foknB5TKCwGlfD9pWM8D1CP6mbmMA3zTzTZYGS +/+jyB969FH7xvjdikYzCtI6d/fCOCU42isqmfCejV2SDkrplJqgaPhl/9wcZ +XY36aIrbY4LuD0OZQT/JSETTnS6VlRlK6jIWLH6RkW9XpJ23FDMcj6xy2vxN +RkKzmvQbJGZgdeRTL10mo/59TGUhwAw2VxR39Fco9kT79Wj0mOERkSdlicKS +EL8cc4EZ8GurrKGrZDRirX+Pw4kZCid2PRnWyCj0OqdK+mVm8OpxabhFYfkH +o1OCocwgY395Y4vCEw33wgrjmOHgvks4h3Uyipowk5DLYAa/8mvnOilM2uTr +eVbIDG9ZePz4Nyjx4Z1yP/aMGdK9ojKcKBx/JJu95SUzcL5Q6iih8HFjm2qN +PmagMvb/85nCXy+LmQ28Y4ZWtQ4V9j9klJo0+9dwhhnubcbdJVFY7emj7Ilf +zLDqeuavHoV/Drmcstlhhsd/Am9aU/j+D9n5eUYWUPHIlXak8BnWHzGeB1hg +fEVvzZbC67KVCmuiLNDJzr1gTOF8bd/XQYos4JhxmwWjsL4LyZ/6BAu4luvZ +CFJ4J2r9v9taLPCthGFpheJfaVFtE5sxC4TJ2lU3U9i085rNPRsW8N5mawyj +MM3MCdpDnixQyEFmUKHwU+p/xfnXWKAnTCP7KyU+ViKtZ2WiWMAkxCDiDoWZ +UfivymQWyNSoaZSicK2VesrRHBZ4Io3p1lPizXm/Z/J0HQt89sTFtFDy1Vwf +e6OvkwVOGpxGhynsPq4rZvCaBaaA1jaHkt+uA69drRcp/hLw2+YUPVw+nLJ/ +boMFXrTdvl5M0YuwkckzdxpW0HezCV2i6Ola4sTm1UOsIFhafMCCojdc5f0H +e9KskDRGrAmn6HF00AqijrDCP+zKfN4SGSmwTEennGMFZaYE/k6Knr/cWuSt +CGOFXZ0kg4x5Sn8ofNxwOJ4V+u24hQIo9XGiw8u6MZMVomjIxTqU+rlHtVrU +U8UKdXZfGMYp9aUdvH14ZpYVXDX5EiOnyGgj8+W46zIr6IaLvf/vPRkV1IWG +/N5lBV51RbbCCTLaXafp3OXdD8Fd/53KeUdGz3xYjf7T3g+rh2eDZF6R0UAW +97UnpvvhYLHG5fNDlP7VyZ9zymE/qPg2LHkMkBE/n8x3j9D9MNvoHx3VQ0aR +bRoRbc/3A09kn+BJSj/K/q5batqxH8pHFP9wNJNR3QHj4e+v9kPv79D4yUYy ++uFqJ8C7tB98BfXZ9Gsp+ecKrXYTY4N+gT6lZkp/81GNmthTYgO8UVILlJNR +rFP8XupJNggVq9KqLyGjlob7Z1vM2eChqMylOwWU/mhfN8OdwAYB3XqhjRlk +9Ld6mfvlNhsUdf1TUb9JRjwfN1UMmdiB2Wp2RuYGGSkyUtl85WUH1XfnqemD +ycjeku0xJ5EdpDvUX+RdoZyfVk7dyYUdfn+0nHemzINsE4cr7G/ZoZbK0Oro +WTLKC3ZfxJtxQCqvTCQPK6VftTJtRltxQNGBpTgRRjJqpS2h+2TPAQl/hSQk +aSn1Gz8rEu/DAW1bh0X/2+lCQrlWZgsxHGBnb8r26Dtl3nbqd+Y1cQDuFanZ +mTI/k/cfzuYS44T8D6Iq1aFdKDxnx2BtiROOHfjdsTHeic7j63zlVjnhh/hR +i6DRTiTU5pdkt8UJB9LxNzYHO1HD9OKrV3RcwNV3I3a2vROtSE7oPxHiglLx +E34hjzuR3ePnek7nueC1F23IsxudSK3eS3u8mgsWxVqlbIQ7EdXoZ2gK4oZF +VyK3nlEHwl1xumosewB8w2MHFlza0Ox6uinLS17AAu5MyW82I505t+vJvv+B +WnEzW2RtAzo3mygnJMQPdNTHvKeLXqDFDruwnicCMOeFVcVxVyNFzneCpy8J +QkWCv64ebyWlftdtp1aFgH01sb7hZCm6qibN+OKvEAxfTwriwpWi+dMXKxKo +haE3fKLlKlspaj/T9vcUuzD4j3hN+XwqQUGG8SmlssKgJehwgz28BH13lOwK +sBWGrA86Rxn6itHAHRNpzmFh4EsidM04PEJaPyz+iJmIwGDiBv4EuQBl80SM +hpqLANMDxsGkqgK0dqK8cuqiCLCHp2luZBeg3Nht5zQ7EXiz86D3W2AB+iv1 +YJzJRwQelMq+9pMtQI/tPtT/jhUBpKL/Wjg5H3GMXwppbhUBtcn73U3ueWi8 +3YHaQl4UtkZmvUruZqPfapP815VE4aViRrm6TzZiaNM/nEsUBR7N2PQ/Btno +aMtx5/ljovAl2M0m70A2Sm3kGLysIQq8V/0XabIfIv2apow4a1Gg9g279K/q +ASIX8eBfJopC8LLo8+QfWej57U5rkXVRmKBx2O9WkI5KdPr/i94UBW3GAHGL +2+koi3Vk5Me2KLQx4nzsPNNRWOInzcZ9YiBmNnS9UTmdcr/5q2jKIQbmIh4C +dwfT0HQxfi9OTgw0aXOHynbvIbbuBzl/bMWA7/YOtYd3KqKOKbhg7SgGLcPS +586apaI1nTLuLhcxGPrHqamGUtHEUG10srcYaNvtp/dlT0WF70a8Fa6LgUWW +kM3Hpyno+Dwj2GeIwZeFj8pzf5KRE53/56EhMUi5dd3hTFoS4hfuHdt+LQbY +qZ3qc+FJaOiY4LD0WzHQ8t5n6eyVhI56dL0Mf0+xX+sfO6yZhOhHD9w/+k0M +PnFgxKDNRFSU+8Ikm1ocFKhKCEqXEtHsic0+z8PiUMRRfyfd7y7KMNFtz1IW +B2bauuMc5+8iXe/c+u7j4nDuxrEvZfJ3UU3+mRJRNXHgvEdq1ZiPR5FMmbfe +6onDqKWMLfvFeCQxpgInncXB+OYy/SedO8j+cvBz1ixxYBusefbuVCw6Svz4 +XOahOAQ+7X1DLRGLmFfghWauOPw1pv+nQxeLnvrS14Y9EoeSE5Mcyj0xaMcn +qW6tShx0zLK2/PRjUJp3ceNUvzhYOGcvednfRr0eo22Pd8Wh8xhH6mRuFHog +f7S9l0oCLr+cnM++FYV8ljLa52kkQHVUruaGWxTi9bDuEGGWgEHGMc/Ew1HI +zn2hM5VXAhjJ/rJ/e2+hHde97hAlCYgySoW3W5FIyVluSNdWArjmNrOEPCPQ +R1dh7ycOElB35O0NCaMIdMeDm4PNRQJqQsUHtFQi0ILvtsGwlwTYXopC83QR +qCCk/61BiASog85IaG44Opjs/sE0XQKkhGlYON7fRHtN5Us2gxIQZknfsOUQ +hipacuLbXkmAFjfx2PVzYciyPUVR7I0ESLjZ8AgcC0P13cE+M5OU9bz30UUs +Ychv5Oya4zeKvxYWsXPOoejr1+/bbjSS0KfifKCG6wYa5pJn8VeRhMQ3ywx+ +8cEI8/RcuK8qCRfG7Pl0XYNRRXdFdzvlFpfXacB9TiMY3Q0hRHJoSkJtzVml +gd0gpDt/dLfckLLfSZPriU8Q6qtX+zXtLgl15kPc01bXUJeN2ej5bEl4GOsI +oiaB6HBjxrPAPElYYrI1HDkSiAoPTCZkF0rCoct/Zot5A1Fkn6XuUpkkWJh8 +pGkdD0CnDtt1RddKgtsk7kqudQBqZfCsbX4lCa/9XRtoff1RY0X4fXkaHCSu +qtb5Vfohel0T/nR6HMwkLKcQk/2QwYJUJjUzDuJn3l076O+HvooPpr3jwEFQ +vV+H4Qk/xJ15MDlMCAdV8fU/Y3svI/eIx7ffqODArnOL7tOSLxIwf+cf4oOD +efrrX+nP+SCn9ZK1eT8ccD9tOnLiiA96lhzsZxCIg86Ej02Jh3yQ1qCIL+4G +Dm4zd3edHPNGfqfcPV7F4cCZLko4mtcb9ctT2UsU4+AUvdUTwTxPFEwte37g +Aw4kPpQc9Zh1Q/PqLOO4LxR/FcwGLja6ofO3ly7dnMUB32fbv+HJbkiCvdL7 +6HccvNQjiwequaGBQ4cTcjdxIJiR8OZXnisSOoYNXeGWggDn4vtLHi6o3ctQ +V1BbCnK4X6Z6yjgh+SrSm0BdKdCno6GZpHdCaes8liP6UlBIIN0JmHVE7iFj +7tGmUrBa2MeKch0RT6xl3LK9FHze3sph4HdETkVOfV03pCDJ6M41TV4HxDwV +dMarRgp6mwetqfB26Ghg6f6EWilY7v79/g+PHbLlGh+pbJCC57d0rbn/2qK6 +M0eslluloGs5fOh5py1yev7L98qgFAg2pnwtuGiL2u463A+al4LzqyFk6kQb +ynw79zPqP2lQOtkWay9ujQqnQqqLBaQh9d4obcO6FRoOLL/aIyQN6maKg+d6 +rBCugpGGWVIado9dECd6WaFR/o6D8QRpKKXJ+jnWZIkU15TVUnSk4WnHGZyt +40U090g0NSdEGrRNmr6GfTFHS5FftmjCpOG/25mMU7XmaMUu75JLhDQgo49H +Au6aIyphUTlCrDQsOce4OqmaI/50kfb2dGnYcF4jKdw3Q+ejhX/PVUlDXouz +034HU9TkLKgrvyANGcozBisixqhD48OzxCVpMGN8Hpr6zwj1iT88uP5LGsS/ +HN9xnzJCY58OzbzckAY3I8+W+gwjtGJ2KEifVgbGY/WSe7iNkPQZgZLLwjIA +kjZ3/bkNUao0H229iQw4BgyyKSqfR5bWuOIZcxlIF2mqHzl0HkmkknTYLGWg +FF97NXvfeVSzp5dobycDTC8vDBg/1Edv3oUfYvOWgdzvTnOHXp9D3LeWDtvf +loGwaTqtWk09lPylxXF/owwc1NCg9nHWQRYHBxmPNcuAeJ+5eOsJHSSmN1lu +1yYDwgP8voYcOqiqbm25tlsGYjqC5FQbtNFIgswNuzcykDBnc4WfUxtxYilp +tT9kgEZDw/5FnxZKzHLqthWRhapjc4Ii7hooMCDcL0RcFm4JGNV3aWkga8Ns +4XScLDzJnPyRK6GB5JnfBQ7Iy4JzYd/exkd11HtNQ1pZRRaWpyK+8Zmqo30X +JGJYDWVBCVS+7uidRv4Hp3VqI2SBsfYP1QU7NWS5urvxOkoWrgt3CMhpqCH1 +Yb6CpRhZYG6uMJWVVkNc0QbboomycG2BRKz8Cahio7X8zgOKf9Nuz/uvA/r2 +NofV7rks1PKzHjhyBiGLVKsh1q+ykP+w9uK8kCo6VM0s4L4oC80kh8LxxRPo +0+ta594fsjDq8uKPeO0J5MDORR21Jguu/XcyOs6fQF6xZNIetRxwhv+dPnj7 +OAoPU8pcPiQHmEz8jxx6FVTqQe3wzlAOWD1elT5GR5FHXMXTw6Zy8GwQR+w4 +cBQpll3cTb4gB9O0Rt/Elo6gqq/P0/Rt5IAreIitKfMIarJz6+3xlINXv3sb +z2weRq/MRxUbb8uBHRezuWs7CW2qF23lNMvBpQ/7iW+jCSikMSeis00OzsuP +Nwe5EBAVMWv/QqccdG8vuBprExCDcIIosV8O5MrPfcpnISDeravanWNyIHiX +6WVBMh6RnuhmfvstB9422omzRkrI68DaMYK4PFhgx+Zu/JFDK3E/201w8tBR +z7xS0SmH/Pct6AbJyEPTQCHNkWQ5FPLrg02HkjxsRNaJqCnKobje7tsmqvJw +ioXrvY6bLCq5fn/8mok8MORQOVYvS6OZuVNX26Mp9mq6zP2P49CpnKF82Th5 +cI8430fNhkO55haDyXflgbrmt9qXL5LIut9XzP6ePFwa9mZOj5VEk09zB2gK +5MFU83fu0CcJNBL8T0SjWR6IbvKP1jPEEeFI7NknbfKgr3Un2tdXHCX+PBBw +oEse5ByyvyvriKNztgr9c/3yUFtprZy/I4b6NC39oybk4WlI+8JHBzHUztnQ +270mD/9KPxfEnRJFov0aa0qbFH9q7TquCIuisMjXQhnb8nDjb87j3B0RhP35 +5ueyTwGCNaQYW2pFUMPUQSEmDgUouViOMRFEUFWx/2UdOQXIz50v+2IthPJP +EgQGbRXg7b7lGdIzftR+jjli20EBtE9a0j+7zo+mL80syrgoQOhpOp84HX4k +Hn6vIcpLASbvfS0xmeNDheStCxCsAKrGZqOKwnyoSL89ozpVAXohn9en4CAq +sTXizepWgIoY2ybVRR7Uc1n+Rk+fAmhmSmhotPGgbxF08xuDCtBZ6ASZGTxI ++lHtc6M3CtASfiVO9AwPKl0UMNn/RQGO3SuMLSrjRmV+sylhfxXAqNHUme06 +F3pyy5/TWUERHr+uVpcw5kBLqlbht/CKQOBckjc8zIHk19RXC0iKEHXzU2gD +Dwcqs+N5+1lFEX6JjFf4PmZHJag6w0JTEV7htLk6atlQ4dZv4XOXFOHOCd57 +gjOsKMvTQ/FIkiIMJYryl0czoUkJ4xyjVEWQGf6ccsSECfFNneC4nK4IFyVU +5IXEmVCGDstKxUNF+BCcI8vQyojuSZU9ly5ThPNGoTW4fwwo8ctX1UMdipD/ +6tUqZxw9ijaxP0uzrgjE2kW34BkalK8/Zem4qQhWTI5Zp+poUJO2iVf3tiKc +3ZhJs4unQSsntZLi9inBRlCOXtkxGmSJkxvj5lCCRHkfQ82UfYj4Z8VOQk4J +ouS/h4maUyO9ZfcrUYpKIBldxSpNpEYu32dvfSMowdzIgvp1Vmr08NO7ksfH +lGBl7fgFznYqxNjT8POwphIc2WvJH8ZToY8Z4UEatkqQrdBprn3sH7aVvB1X +7KAEU+/HgvLWdzGe+CsPmVyUwE/cZjKyehfTvunUOuilBPG/1zgW8LtYjasO +vWmIEjD0X6ZmJu5gsce5kp3SlUC2+JZar+5f7MhUXmn0oBLYT4RfCfiwgXEo +umxWvlKCionzPyqfbGBLoYpa46NKkPA86b8zNzawQvHGWelJJdBgPUhOEtnA +eNzfCPfNK4GyJvv1QNd17G8IzVl6KjykNBlLbbKsYd+KnC5nUeNh+032o4Ev +q9i7od5MRRo8vJjasVyvXcWqRBK/mdLj4ZSoyh9wXMXcOg9FFbPiwSMkZqyy +YwWbYDnadoYPD+GsIi7OCcsY+XDmtyl+PEBwb6iy2zJWY7XD7nsID/J2310M +NZaxxMp260xhPCj8yLzmtPMbO2Okv7MgiQd135/nNz1/Y3VZLspxRDwYeBAr +05t+Yhky958MnsUDk/qov/HnRWxtVbMoQg8PnhfHVibyFjH95pUHKvp40Jpj +yVuwX8TojXTuFBniwX/sEWfBwgLmH7Lldv0CHuwPLapd2v6GGQ6bSSs44yF/ +rnuARfkrVpFJIzLjggdGNPfhGdVXjMmh8mCmGx40w1P+e903j7Vu0jPQeeHh ++BE8R6DNPKYk9mJu6golfrmHH2gkzWGs/jwFd8LxkPFNgOY/xlnMBbVmnYrE +wwFfbe0P4zNYB5NH8uYtPDSrzZaxls1gQdkdNx1i8DDfUaz6SG8GW+i+bKOa +iIdA70jbx5nTGJn/teDSQzyQ1h8GnVH/goW2xmecrcfDZwOuaaemD9jih9bU +rQY8cMY/T88M+ICZbq8mFjfhoezr4WIXwgdM/qhFDE0rHvrmgovflUxh4+W4 +oEYyHoLJNlFD2e8xYnrLRbk3eHAKbWj879EE9rBmxWziLR5KPuxyBbtOYIwj +ksbRY3gIUm4mOSlMYJ9Y7+jOTOLhnHqA2siLcexOuPnJ+1/wUPmsQGB6eAyb +91wWYvmFB41tudtLfO8wgzgJgfrfeHioHk00m3uLNZWYHXRewcOTF5FOKs/e +YikzL9k71vFg9Z7VyUbnLQYXYqmCd/Cw89mWXTD8DZalLj69yESAbqPkxWv0 +o5iegElRnwQBdqoC2DwsX2EZs4qtF3EEMN13QOOh8its9gnj+yUpArDWr1YL +cr/CQqCJg12OAAsTa07cacPYY0fxECMCAW799crcChnCmJ8uG06dJEDhLBs5 +wWkAM73W7+mJCMCh4xqtiRvA8k8V3f4HBBAx4E+5Pd+Pqbw1bxZRJwCvlz97 +mUs/5vK3RcZRhwDNnd+bT/v1Yd3qd6l+mhLg0BtLquncHoyLzUUg1JwAJfKs +N/tdejDrMbWjHBYE8ConmSsRerAN13V3ohUBTtMsctt1dGO4BMuxAHsCpHrR ++pn/IGORE7IVe94EiO0hJdWYdmFqXt0XOWMIIOZmyv/1ajv2d3xBszOWANyv +H0W36rRjNadZiYF3CEAncCOCUbAdw/EZMH5IIMD5Knblz+1tGGvnZE1JGgF8 +2I8EpHC3YeN8P/dTHiPw/oHvc6/EFiw5kmNrpYgAZ4Xv9rCrtWBnfxFni4op +5w+fNPVZacaaOwMbWMoJwEAWoHc1a8YKvamdx54RoOXUaWcm2ZeYTxdPq1cL +Afp/XZ5M/92AyeKVy0XbCFDmHsnu9rgBm8m6kPamnQB7hq/nv7g0YKY+2R7H +yQSoUpm70TRTj6kKSPPRDxKgzz9DeO1zHcboe+Lyw0kCXKde/KGw+QLLOWQn +MbBOWRcx1vFNrMaOk+QU7f4QoMvR3u+BbTX2RntNeXOTAL32nKYkUjXGGBh1 +VmKHAFr36tJyx6own9dll0P2EcFOPfneJckqDKJWW+XZieB91kypbPQpNvmg +qa+dgwjZVNcZceVPsSvVt96YcxGhJvDn473wp1jJ54PfIg8QoQD/iL+X9BTj +PKHK/kGACJ/PvrimSqrEpn9FWsVLE2EhKFxL+/tjLIT+nLO4LBEEno+sY0WP +MV7Bg771ckQwph0cHrv0GNPRKY2cUyTCp1Vfix/vyrGqwsHyk0eIcMKlpzFs +oAyLuMD794caEbQ/2vfxvSnBJDqK085dJMLeJ/MRJd0ibEh+s3DKkggMXqOP +6fmKsKtpZ6rdrIkw/75s0mi+EOt3XRiOsiXCbnARn154IXaZQ46pxZkIUwuX +drNbCrAWq4pgpStEyKpX+Td3Lh9z6f4X89KfCHHRN5rLxfIxLoJ+xtlAIhQN +x7qMb+RhTrS/a5yDiJChGzJnl5uHsZYTfuaEEcFD+cwH8c1czGKzxoYjnggO +KVR6Cn45GK0dnXf2XSLgoia+kXE5WEW/yXX5RCI4xlhZc7/PxqhzNjLPpBDh +SLFMSrNGNlaicWw0LJMIvlLjDCTxh9h6cqPGchERpGeZv2nsZmGJCu2yI81E +UJYyNFKXSMdKjl1kCm8lQmxBT3z2fBrWcnrtK6GdEo9P3QrppWnYzwu4oqQu +IvCfiIuyIqRhZ6NihQ0GiEA1xt7Ec+YeRv/JkOfVBBGcWxlyFxJTMMHF7yuh +7yn5i2QtCLJMwQ6vR75W+kCxzxejmiKdgtmz1N5N+EwE7ie2KybtyVirsgCT +/lci6CSZGe1uJ2HBiTO7g2tECM8u438ZlYgl3w+Zur5BBDhXqYq3SMTKHh1o +VNgkgjv1g3MHFROx8Satq/HbRPi9JHjtWkUCdnShfEV3HwlaCJw2cVZ3sd9q +V772s5Pg2QWFfa0zcZjTKu3rXlkSfPZ12fAJj8asy9SHLOVJkMlBS0jTjMZM +bSP7fymQwM1guvgcSzSmOUxDPkAggbaNzHu/tCgMV76v0VaZBFnORZuu1bew +OTuqoq3TJBCkvj81Qx+JTfFB/h0NEhiHMjHmjkZgb16F5ghrkcC8sob5fW4E +1ontZWrokGAs88mnHtUIrJD/392k8yRwMtG0tw8KxxxGtq/KWJHggLcfMZPl +JmYZcyKgyZoE8aXz8w2fwjBjCPbTtyGBerY7WbsmDFOv+Ovpb08CoV8SK2XW +YZhE7JZdmysJltoNPr70CcVm1P7oXggggZ7dDKvrbghm92xFJCaBBKsM12Ju +5F3FPMKNdnSSSFBq0CJCY3EV8zeqGWNNoew/ffTqee6r2O11/7uJaSQ4bJj2 +U/V2IFahsrWd/pAEPQEB78WCA7Cttr13j8pJ8LH0iIJ9xBVsX4pNlcsTEkDI +YGGY1hWM1aEtXraSBKfPB17UYr2CCdFHqFdUkUCLddS4N90PU9ehr3peTwKd +T0jS68VlLHGENb6zmwTjkxK3Wzh8sawCT5eoXhJ4Envz8j/6YAVXhk6f6ScB +nYEL8DzxwV7wJv7tH6LkA1WuPjjrg01ZcLuMviVBXsDZ7sNC3pjUDN/p6RkS +WNx/qMNg5YHha4KECudI8P7prjsweWDHb73fcvxKAhzrFV3XF+6YrtTDpwuL +JHiupfUnlNsdu+wuIrS8TIJDw56yQeOuWIjqza2qVYp+Lp7TXoxzxW7tn35z +ZZ1i/0OO0lFwxTIqC+I2N0lwm99g1KzcBcsPo3Vu+EuCFY+Pn6XtXLByA8dT +ITskEL1/0HSAzwWrESMLYv9IIEV1fxGNOGPNq7itvT0SRDwWsbwZ54z9D9HN +mI8= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8198Xx8ke2emLbD42n1FJ6X2PMiKSLSF7z4RCESIkM6uyZRWFMrN9 +bIrKSMsq0jAj5Pf5/fN+P56Pex/nce45r3POvaJ23oaO+6ioqHQon///H96w +oyc43MdyME96YQV7rHNURNdM5Br6asd6XS5dDe2RmyNERGKQxaiq716aAXrY +Gi9MJ5KJMscEbrxNs0UeJ/09/wiXIuMittc+ab5odNsl9bdwPVoNpmnZS72J +GN5PS/0Q7kV+F8Kc9BKSUF5fju934QmkUferL/tqHqqojHnvobiIZH5Pa7we +eIac0evMpcur6KlFw97nqHpElb/R8D5uFam2ML82K6hHGbSHpvoKV1GP36+9 +5pZ61NPrJFT6bhX9Ox5/zHqzHkkb7+Q7Hl9DTA4nnT+6NKBvLlKPP1Kvo/Cs +mLBxzUbklny9+VXiBlJJlTust9GEvOZkZmoqthDLlSt3hTha0WfrCca23i1U +HY8dIQm2IqPx24qDs1vIdON5papsKzrW//XaHP9fpHfwLI2ieiuieVbEwRv9 +F738ddQ2JrAVZYSIYoGXtlHg0U0awalW1MbNl6nCsYuEFGvXYh+0ocPxPc0a +crvo6YvAMwolbegR/dVZA81dRGcxWtRR3YbubL1TcgvZRUdwqc4DfW3I9FMq +OevbLqJPq/XV22xDi2Uca9ut/9CjxhoRJoN2xCwaKfXpGBVwcMhVa2y1ox7V +JKUbGlRwO7H3evW+DhRlnq0saEhhWR5LXtYOtC+xTuuiOxXkrAdpNQp1oL// +lpzHHlJBT5Bv1M3THej7lEnJ8D5quC8ir7gb24EGMqRkWgeoYXzHMSGHsxPF +1hwmXJqgBpkeyfIyvk505pWayr85aoiKJt8pE+1EnQyW2qp71DAzUZx1m9CJ +mgISXesI+0Anirfq5flO9MR4q/Rp2j64PDEWxBzfie5y9Mvm2dDA+qbKN8nd +TlSvLPj8nBcN9JxvfWpM24Vmrb3RTjANjHT2CQWwdKETT7iNzdJp4EAf/UIi +Xxf6pm15ff8QDcSxX5LGHelCpyN+DF87QQv9htucw65dyKsMWUhp04LjRDiD +tE8XynqdNPvGlBZc01Ry/AK60G/ho1tKl2mB4RH2Yjq8C2U33RCbL6GFiwkz +d0Tud6HNdXZ/Q1460IUXFgK9XUhc0G5vT5wO2Em6FdlDXeicek3MEwId/PfF +sILnTRcqSjbPZtSjgwvpB+rGP3YhQ6W87uYIOlAbYuBpW+1CT1yI/HLLdOAU +pSHJI0BG4wmRheP/6IB7pfBjuzAZ0da+U4xipQfbmaWLDhJkZEEXfPqLFD0c +OTJeGqpARoz5HR7p1vRgkWDQfxCRkd174xaaAXoYxibZX10iI+b7Xzx9J+iB +74+FSJY9GVVZeB36NE8PTBv/JZs5kxHNZPS1BmoG8CdcK3jsRUaF4w0kX2UG +OMYT0t0SQka6GVrTH9UZwDjkjJxkGBmtmb1J1DVkAM7Hr+huRJCRxtiPH1Ke +DBCeWyLLHEtG829FSj7mM0D/0O+oO2lkdPfeE1PdpwxgJt+9Gp9JRkdNjtM1 +vGSAxJ7cX+EPyCj6jZHdvXEG8AgxyNPKJyPp0ahDumyMoKz5VFv1CRm5vVpK +rL/GCMUH6+rftpIRV+I1JBXNCJ3fbz3j7CCjBn36n6mpjFCJ2/FR6yIjlmHh +sz6VjBDMGmQa0ktGjwcN6aTmGMHYW0zO5jUZGcd/qk5dYQTctMHw8VEy2tH1 +sNtHxQTPjtpfZHpLRnoDt1o+8DNBMjWjavg4Gf3sq7uWep4Jbr2JT5/5SEZp +sRrS+6yZAF9Vv2L1mYwwnZF33u5M8Cv2pvnAFzJK6P1OOhvFBFKSOya3Zsno +WMzV6boUJqgMHdkYniOjz2foknB5TKCwGlfD9pWM8D1CP6mbmMA3zTzTZYGS +/+jyB969FH7xvjdikYzCtI6d/fCOCU42isqmfCejV2SDkrplJqgaPhl/9wcZ +XY36aIrbY4LuD0OZQT/JSETTnS6VlRlK6jIWLH6RkW9XpJ23FDMcj6xy2vxN +RkKzmvQbJGZgdeRTL10mo/59TGUhwAw2VxR39Fco9kT79Wj0mOERkSdlicKS +EL8cc4EZ8GurrKGrZDRirX+Pw4kZCid2PRnWyCj0OqdK+mVm8OpxabhFYfkH +o1OCocwgY395Y4vCEw33wgrjmOHgvks4h3Uyipowk5DLYAa/8mvnOilM2uTr +eVbIDG9ZePz4Nyjx4Z1yP/aMGdK9ojKcKBx/JJu95SUzcL5Q6iih8HFjm2qN +PmagMvb/85nCXy+LmQ28Y4ZWtQ4V9j9klJo0+9dwhhnubcbdJVFY7emj7Ilf +zLDqeuavHoV/Drmcstlhhsd/Am9aU/j+D9n5eUYWUPHIlXak8BnWHzGeB1hg +fEVvzZbC67KVCmuiLNDJzr1gTOF8bd/XQYos4JhxmwWjsL4LyZ/6BAu4luvZ +CFJ4J2r9v9taLPCthGFpheJfaVFtE5sxC4TJ2lU3U9i085rNPRsW8N5mawyj +MM3MCdpDnixQyEFmUKHwU+p/xfnXWKAnTCP7KyU+ViKtZ2WiWMAkxCDiDoWZ +UfivymQWyNSoaZSicK2VesrRHBZ4Io3p1lPizXm/Z/J0HQt89sTFtFDy1Vwf +e6OvkwVOGpxGhynsPq4rZvCaBaaA1jaHkt+uA69drRcp/hLw2+YUPVw+nLJ/ +boMFXrTdvl5M0YuwkckzdxpW0HezCV2i6Ola4sTm1UOsIFhafMCCojdc5f0H +e9KskDRGrAmn6HF00AqijrDCP+zKfN4SGSmwTEennGMFZaYE/k6Knr/cWuSt +CGOFXZ0kg4x5Sn8ofNxwOJ4V+u24hQIo9XGiw8u6MZMVomjIxTqU+rlHtVrU +U8UKdXZfGMYp9aUdvH14ZpYVXDX5EiOnyGgj8+W46zIr6IaLvf/vPRkV1IWG +/N5lBV51RbbCCTLaXafp3OXdD8Fd/53KeUdGz3xYjf7T3g+rh2eDZF6R0UAW +97UnpvvhYLHG5fNDlP7VyZ9zymE/qPg2LHkMkBE/n8x3j9D9MNvoHx3VQ0aR +bRoRbc/3A09kn+BJSj/K/q5batqxH8pHFP9wNJNR3QHj4e+v9kPv79D4yUYy ++uFqJ8C7tB98BfXZ9Gsp+ecKrXYTY4N+gT6lZkp/81GNmthTYgO8UVILlJNR +rFP8XupJNggVq9KqLyGjlob7Z1vM2eChqMylOwWU/mhfN8OdwAYB3XqhjRlk +9Ld6mfvlNhsUdf1TUb9JRjwfN1UMmdiB2Wp2RuYGGSkyUtl85WUH1XfnqemD +ycjeku0xJ5EdpDvUX+RdoZyfVk7dyYUdfn+0nHemzINsE4cr7G/ZoZbK0Oro +WTLKC3ZfxJtxQCqvTCQPK6VftTJtRltxQNGBpTgRRjJqpS2h+2TPAQl/hSQk +aSn1Gz8rEu/DAW1bh0X/2+lCQrlWZgsxHGBnb8r26Dtl3nbqd+Y1cQDuFanZ +mTI/k/cfzuYS44T8D6Iq1aFdKDxnx2BtiROOHfjdsTHeic7j63zlVjnhh/hR +i6DRTiTU5pdkt8UJB9LxNzYHO1HD9OKrV3RcwNV3I3a2vROtSE7oPxHiglLx +E34hjzuR3ePnek7nueC1F23IsxudSK3eS3u8mgsWxVqlbIQ7EdXoZ2gK4oZF +VyK3nlEHwl1xumosewB8w2MHFlza0Ox6uinLS17AAu5MyW82I505t+vJvv+B +WnEzW2RtAzo3mygnJMQPdNTHvKeLXqDFDruwnicCMOeFVcVxVyNFzneCpy8J +QkWCv64ebyWlftdtp1aFgH01sb7hZCm6qibN+OKvEAxfTwriwpWi+dMXKxKo +haE3fKLlKlspaj/T9vcUuzD4j3hN+XwqQUGG8SmlssKgJehwgz28BH13lOwK +sBWGrA86Rxn6itHAHRNpzmFh4EsidM04PEJaPyz+iJmIwGDiBv4EuQBl80SM +hpqLANMDxsGkqgK0dqK8cuqiCLCHp2luZBeg3Nht5zQ7EXiz86D3W2AB+iv1 +YJzJRwQelMq+9pMtQI/tPtT/jhUBpKL/Wjg5H3GMXwppbhUBtcn73U3ueWi8 +3YHaQl4UtkZmvUruZqPfapP815VE4aViRrm6TzZiaNM/nEsUBR7N2PQ/Btno +aMtx5/ljovAl2M0m70A2Sm3kGLysIQq8V/0XabIfIv2apow4a1Gg9g279K/q +ASIX8eBfJopC8LLo8+QfWej57U5rkXVRmKBx2O9WkI5KdPr/i94UBW3GAHGL +2+koi3Vk5Me2KLQx4nzsPNNRWOInzcZ9YiBmNnS9UTmdcr/5q2jKIQbmIh4C +dwfT0HQxfi9OTgw0aXOHynbvIbbuBzl/bMWA7/YOtYd3KqKOKbhg7SgGLcPS +586apaI1nTLuLhcxGPrHqamGUtHEUG10srcYaNvtp/dlT0WF70a8Fa6LgUWW +kM3Hpyno+Dwj2GeIwZeFj8pzf5KRE53/56EhMUi5dd3hTFoS4hfuHdt+LQbY +qZ3qc+FJaOiY4LD0WzHQ8t5n6eyVhI56dL0Mf0+xX+sfO6yZhOhHD9w/+k0M +PnFgxKDNRFSU+8Ikm1ocFKhKCEqXEtHsic0+z8PiUMRRfyfd7y7KMNFtz1IW +B2bauuMc5+8iXe/c+u7j4nDuxrEvZfJ3UU3+mRJRNXHgvEdq1ZiPR5FMmbfe +6onDqKWMLfvFeCQxpgInncXB+OYy/SedO8j+cvBz1ixxYBusefbuVCw6Svz4 +XOahOAQ+7X1DLRGLmFfghWauOPw1pv+nQxeLnvrS14Y9EoeSE5Mcyj0xaMcn +qW6tShx0zLK2/PRjUJp3ceNUvzhYOGcvednfRr0eo22Pd8Wh8xhH6mRuFHog +f7S9l0oCLr+cnM++FYV8ljLa52kkQHVUruaGWxTi9bDuEGGWgEHGMc/Ew1HI +zn2hM5VXAhjJ/rJ/e2+hHde97hAlCYgySoW3W5FIyVluSNdWArjmNrOEPCPQ +R1dh7ycOElB35O0NCaMIdMeDm4PNRQJqQsUHtFQi0ILvtsGwlwTYXopC83QR +qCCk/61BiASog85IaG44Opjs/sE0XQKkhGlYON7fRHtN5Us2gxIQZknfsOUQ +hipacuLbXkmAFjfx2PVzYciyPUVR7I0ESLjZ8AgcC0P13cE+M5OU9bz30UUs +Ychv5Oya4zeKvxYWsXPOoejr1+/bbjSS0KfifKCG6wYa5pJn8VeRhMQ3ywx+ +8cEI8/RcuK8qCRfG7Pl0XYNRRXdFdzvlFpfXacB9TiMY3Q0hRHJoSkJtzVml +gd0gpDt/dLfckLLfSZPriU8Q6qtX+zXtLgl15kPc01bXUJeN2ej5bEl4GOsI +oiaB6HBjxrPAPElYYrI1HDkSiAoPTCZkF0rCoct/Zot5A1Fkn6XuUpkkWJh8 +pGkdD0CnDtt1RddKgtsk7kqudQBqZfCsbX4lCa/9XRtoff1RY0X4fXkaHCSu +qtb5Vfohel0T/nR6HMwkLKcQk/2QwYJUJjUzDuJn3l076O+HvooPpr3jwEFQ +vV+H4Qk/xJ15MDlMCAdV8fU/Y3svI/eIx7ffqODArnOL7tOSLxIwf+cf4oOD +efrrX+nP+SCn9ZK1eT8ccD9tOnLiiA96lhzsZxCIg86Ej02Jh3yQ1qCIL+4G +Dm4zd3edHPNGfqfcPV7F4cCZLko4mtcb9ctT2UsU4+AUvdUTwTxPFEwte37g +Aw4kPpQc9Zh1Q/PqLOO4LxR/FcwGLja6ofO3ly7dnMUB32fbv+HJbkiCvdL7 +6HccvNQjiwequaGBQ4cTcjdxIJiR8OZXnisSOoYNXeGWggDn4vtLHi6o3ctQ +V1BbCnK4X6Z6yjgh+SrSm0BdKdCno6GZpHdCaes8liP6UlBIIN0JmHVE7iFj +7tGmUrBa2MeKch0RT6xl3LK9FHze3sph4HdETkVOfV03pCDJ6M41TV4HxDwV +dMarRgp6mwetqfB26Ghg6f6EWilY7v79/g+PHbLlGh+pbJCC57d0rbn/2qK6 +M0eslluloGs5fOh5py1yev7L98qgFAg2pnwtuGiL2u463A+al4LzqyFk6kQb +ynw79zPqP2lQOtkWay9ujQqnQqqLBaQh9d4obcO6FRoOLL/aIyQN6maKg+d6 +rBCugpGGWVIado9dECd6WaFR/o6D8QRpKKXJ+jnWZIkU15TVUnSk4WnHGZyt +40U090g0NSdEGrRNmr6GfTFHS5FftmjCpOG/25mMU7XmaMUu75JLhDQgo49H +Au6aIyphUTlCrDQsOce4OqmaI/50kfb2dGnYcF4jKdw3Q+ejhX/PVUlDXouz +034HU9TkLKgrvyANGcozBisixqhD48OzxCVpMGN8Hpr6zwj1iT88uP5LGsS/ +HN9xnzJCY58OzbzckAY3I8+W+gwjtGJ2KEifVgbGY/WSe7iNkPQZgZLLwjIA +kjZ3/bkNUao0H229iQw4BgyyKSqfR5bWuOIZcxlIF2mqHzl0HkmkknTYLGWg +FF97NXvfeVSzp5dobycDTC8vDBg/1Edv3oUfYvOWgdzvTnOHXp9D3LeWDtvf +loGwaTqtWk09lPylxXF/owwc1NCg9nHWQRYHBxmPNcuAeJ+5eOsJHSSmN1lu +1yYDwgP8voYcOqiqbm25tlsGYjqC5FQbtNFIgswNuzcykDBnc4WfUxtxYilp +tT9kgEZDw/5FnxZKzHLqthWRhapjc4Ii7hooMCDcL0RcFm4JGNV3aWkga8Ns +4XScLDzJnPyRK6GB5JnfBQ7Iy4JzYd/exkd11HtNQ1pZRRaWpyK+8Zmqo30X +JGJYDWVBCVS+7uidRv4Hp3VqI2SBsfYP1QU7NWS5urvxOkoWrgt3CMhpqCH1 +Yb6CpRhZYG6uMJWVVkNc0QbboomycG2BRKz8Cahio7X8zgOKf9Nuz/uvA/r2 +NofV7rks1PKzHjhyBiGLVKsh1q+ykP+w9uK8kCo6VM0s4L4oC80kh8LxxRPo +0+ta594fsjDq8uKPeO0J5MDORR21Jguu/XcyOs6fQF6xZNIetRxwhv+dPnj7 +OAoPU8pcPiQHmEz8jxx6FVTqQe3wzlAOWD1elT5GR5FHXMXTw6Zy8GwQR+w4 +cBQpll3cTb4gB9O0Rt/Elo6gqq/P0/Rt5IAreIitKfMIarJz6+3xlINXv3sb +z2weRq/MRxUbb8uBHRezuWs7CW2qF23lNMvBpQ/7iW+jCSikMSeis00OzsuP +Nwe5EBAVMWv/QqccdG8vuBprExCDcIIosV8O5MrPfcpnISDeravanWNyIHiX +6WVBMh6RnuhmfvstB9422omzRkrI68DaMYK4PFhgx+Zu/JFDK3E/201w8tBR +z7xS0SmH/Pct6AbJyEPTQCHNkWQ5FPLrg02HkjxsRNaJqCnKobje7tsmqvJw +ioXrvY6bLCq5fn/8mok8MORQOVYvS6OZuVNX26Mp9mq6zP2P49CpnKF82Th5 +cI8430fNhkO55haDyXflgbrmt9qXL5LIut9XzP6ePFwa9mZOj5VEk09zB2gK +5MFU83fu0CcJNBL8T0SjWR6IbvKP1jPEEeFI7NknbfKgr3Un2tdXHCX+PBBw +oEse5ByyvyvriKNztgr9c/3yUFtprZy/I4b6NC39oybk4WlI+8JHBzHUztnQ +270mD/9KPxfEnRJFov0aa0qbFH9q7TquCIuisMjXQhnb8nDjb87j3B0RhP35 +5ueyTwGCNaQYW2pFUMPUQSEmDgUouViOMRFEUFWx/2UdOQXIz50v+2IthPJP +EgQGbRXg7b7lGdIzftR+jjli20EBtE9a0j+7zo+mL80syrgoQOhpOp84HX4k +Hn6vIcpLASbvfS0xmeNDheStCxCsAKrGZqOKwnyoSL89ozpVAXohn9en4CAq +sTXizepWgIoY2ybVRR7Uc1n+Rk+fAmhmSmhotPGgbxF08xuDCtBZ6ASZGTxI ++lHtc6M3CtASfiVO9AwPKl0UMNn/RQGO3SuMLSrjRmV+sylhfxXAqNHUme06 +F3pyy5/TWUERHr+uVpcw5kBLqlbht/CKQOBckjc8zIHk19RXC0iKEHXzU2gD +Dwcqs+N5+1lFEX6JjFf4PmZHJag6w0JTEV7htLk6atlQ4dZv4XOXFOHOCd57 +gjOsKMvTQ/FIkiIMJYryl0czoUkJ4xyjVEWQGf6ccsSECfFNneC4nK4IFyVU +5IXEmVCGDstKxUNF+BCcI8vQyojuSZU9ly5ThPNGoTW4fwwo8ctX1UMdipD/ +6tUqZxw9ijaxP0uzrgjE2kW34BkalK8/Zem4qQhWTI5Zp+poUJO2iVf3tiKc +3ZhJs4unQSsntZLi9inBRlCOXtkxGmSJkxvj5lCCRHkfQ82UfYj4Z8VOQk4J +ouS/h4maUyO9ZfcrUYpKIBldxSpNpEYu32dvfSMowdzIgvp1Vmr08NO7ksfH +lGBl7fgFznYqxNjT8POwphIc2WvJH8ZToY8Z4UEatkqQrdBprn3sH7aVvB1X +7KAEU+/HgvLWdzGe+CsPmVyUwE/cZjKyehfTvunUOuilBPG/1zgW8LtYjasO +vWmIEjD0X6ZmJu5gsce5kp3SlUC2+JZar+5f7MhUXmn0oBLYT4RfCfiwgXEo +umxWvlKCionzPyqfbGBLoYpa46NKkPA86b8zNzawQvHGWelJJdBgPUhOEtnA +eNzfCPfNK4GyJvv1QNd17G8IzVl6KjykNBlLbbKsYd+KnC5nUeNh+032o4Ev +q9i7od5MRRo8vJjasVyvXcWqRBK/mdLj4ZSoyh9wXMXcOg9FFbPiwSMkZqyy +YwWbYDnadoYPD+GsIi7OCcsY+XDmtyl+PEBwb6iy2zJWY7XD7nsID/J2310M +NZaxxMp260xhPCj8yLzmtPMbO2Okv7MgiQd135/nNz1/Y3VZLspxRDwYeBAr +05t+Yhky958MnsUDk/qov/HnRWxtVbMoQg8PnhfHVibyFjH95pUHKvp40Jpj +yVuwX8TojXTuFBniwX/sEWfBwgLmH7Lldv0CHuwPLapd2v6GGQ6bSSs44yF/ +rnuARfkrVpFJIzLjggdGNPfhGdVXjMmh8mCmGx40w1P+e903j7Vu0jPQeeHh ++BE8R6DNPKYk9mJu6golfrmHH2gkzWGs/jwFd8LxkPFNgOY/xlnMBbVmnYrE +wwFfbe0P4zNYB5NH8uYtPDSrzZaxls1gQdkdNx1i8DDfUaz6SG8GW+i+bKOa +iIdA70jbx5nTGJn/teDSQzyQ1h8GnVH/goW2xmecrcfDZwOuaaemD9jih9bU +rQY8cMY/T88M+ICZbq8mFjfhoezr4WIXwgdM/qhFDE0rHvrmgovflUxh4+W4 +oEYyHoLJNlFD2e8xYnrLRbk3eHAKbWj879EE9rBmxWziLR5KPuxyBbtOYIwj +ksbRY3gIUm4mOSlMYJ9Y7+jOTOLhnHqA2siLcexOuPnJ+1/wUPmsQGB6eAyb +91wWYvmFB41tudtLfO8wgzgJgfrfeHioHk00m3uLNZWYHXRewcOTF5FOKs/e +YikzL9k71vFg9Z7VyUbnLQYXYqmCd/Cw89mWXTD8DZalLj69yESAbqPkxWv0 +o5iegElRnwQBdqoC2DwsX2EZs4qtF3EEMN13QOOh8its9gnj+yUpArDWr1YL +cr/CQqCJg12OAAsTa07cacPYY0fxECMCAW799crcChnCmJ8uG06dJEDhLBs5 +wWkAM73W7+mJCMCh4xqtiRvA8k8V3f4HBBAx4E+5Pd+Pqbw1bxZRJwCvlz97 +mUs/5vK3RcZRhwDNnd+bT/v1Yd3qd6l+mhLg0BtLquncHoyLzUUg1JwAJfKs +N/tdejDrMbWjHBYE8ConmSsRerAN13V3ohUBTtMsctt1dGO4BMuxAHsCpHrR ++pn/IGORE7IVe94EiO0hJdWYdmFqXt0XOWMIIOZmyv/1ajv2d3xBszOWANyv +H0W36rRjNadZiYF3CEAncCOCUbAdw/EZMH5IIMD5Knblz+1tGGvnZE1JGgF8 +2I8EpHC3YeN8P/dTHiPw/oHvc6/EFiw5kmNrpYgAZ4Xv9rCrtWBnfxFni4op +5w+fNPVZacaaOwMbWMoJwEAWoHc1a8YKvamdx54RoOXUaWcm2ZeYTxdPq1cL +Afp/XZ5M/92AyeKVy0XbCFDmHsnu9rgBm8m6kPamnQB7hq/nv7g0YKY+2R7H +yQSoUpm70TRTj6kKSPPRDxKgzz9DeO1zHcboe+Lyw0kCXKde/KGw+QLLOWQn +MbBOWRcx1vFNrMaOk+QU7f4QoMvR3u+BbTX2RntNeXOTAL32nKYkUjXGGBh1 +VmKHAFr36tJyx6own9dll0P2EcFOPfneJckqDKJWW+XZieB91kypbPQpNvmg +qa+dgwjZVNcZceVPsSvVt96YcxGhJvDn473wp1jJ54PfIg8QoQD/iL+X9BTj +PKHK/kGACJ/PvrimSqrEpn9FWsVLE2EhKFxL+/tjLIT+nLO4LBEEno+sY0WP +MV7Bg771ckQwph0cHrv0GNPRKY2cUyTCp1Vfix/vyrGqwsHyk0eIcMKlpzFs +oAyLuMD794caEbQ/2vfxvSnBJDqK085dJMLeJ/MRJd0ibEh+s3DKkggMXqOP +6fmKsKtpZ6rdrIkw/75s0mi+EOt3XRiOsiXCbnARn154IXaZQ46pxZkIUwuX +drNbCrAWq4pgpStEyKpX+Td3Lh9z6f4X89KfCHHRN5rLxfIxLoJ+xtlAIhQN +x7qMb+RhTrS/a5yDiJChGzJnl5uHsZYTfuaEEcFD+cwH8c1czGKzxoYjnggO +KVR6Cn45GK0dnXf2XSLgoia+kXE5WEW/yXX5RCI4xlhZc7/PxqhzNjLPpBDh +SLFMSrNGNlaicWw0LJMIvlLjDCTxh9h6cqPGchERpGeZv2nsZmGJCu2yI81E +UJYyNFKXSMdKjl1kCm8lQmxBT3z2fBrWcnrtK6GdEo9P3QrppWnYzwu4oqQu +IvCfiIuyIqRhZ6NihQ0GiEA1xt7Ec+YeRv/JkOfVBBGcWxlyFxJTMMHF7yuh +7yn5i2QtCLJMwQ6vR75W+kCxzxejmiKdgtmz1N5N+EwE7ie2KybtyVirsgCT +/lci6CSZGe1uJ2HBiTO7g2tECM8u438ZlYgl3w+Zur5BBDhXqYq3SMTKHh1o +VNgkgjv1g3MHFROx8Satq/HbRPi9JHjtWkUCdnShfEV3HwlaCJw2cVZ3sd9q +V772s5Pg2QWFfa0zcZjTKu3rXlkSfPZ12fAJj8asy9SHLOVJkMlBS0jTjMZM +bSP7fymQwM1guvgcSzSmOUxDPkAggbaNzHu/tCgMV76v0VaZBFnORZuu1bew +OTuqoq3TJBCkvj81Qx+JTfFB/h0NEhiHMjHmjkZgb16F5ghrkcC8sob5fW4E +1ontZWrokGAs88mnHtUIrJD/392k8yRwMtG0tw8KxxxGtq/KWJHggLcfMZPl +JmYZcyKgyZoE8aXz8w2fwjBjCPbTtyGBerY7WbsmDFOv+Ovpb08CoV8SK2XW +YZhE7JZdmysJltoNPr70CcVm1P7oXggggZ7dDKvrbghm92xFJCaBBKsM12Ju +5F3FPMKNdnSSSFBq0CJCY3EV8zeqGWNNoew/ffTqee6r2O11/7uJaSQ4bJj2 +U/V2IFahsrWd/pAEPQEB78WCA7Cttr13j8pJ8LH0iIJ9xBVsX4pNlcsTEkDI +YGGY1hWM1aEtXraSBKfPB17UYr2CCdFHqFdUkUCLddS4N90PU9ehr3peTwKd +T0jS68VlLHGENb6zmwTjkxK3Wzh8sawCT5eoXhJ4Envz8j/6YAVXhk6f6ScB +nYEL8DzxwV7wJv7tH6LkA1WuPjjrg01ZcLuMviVBXsDZ7sNC3pjUDN/p6RkS +WNx/qMNg5YHha4KECudI8P7prjsweWDHb73fcvxKAhzrFV3XF+6YrtTDpwuL +JHiupfUnlNsdu+wuIrS8TIJDw56yQeOuWIjqza2qVYp+Lp7TXoxzxW7tn35z +ZZ1i/0OO0lFwxTIqC+I2N0lwm99g1KzcBcsPo3Vu+EuCFY+Pn6XtXLByA8dT +ITskEL1/0HSAzwWrESMLYv9IIEV1fxGNOGPNq7itvT0SRDwWsbwZ54z9D9HN +mI8= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.1794249008533784}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.1794249008533784}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8198Xx8ke2emLbD42n1FJ6X2PMiKSLSF7z4RCESIkM6uyZRWFMrN9 +bIrKSMsq0jAj5Pf5/fN+P56Pex/nce45r3POvaJ23oaO+6ioqHQon///H96w +oyc43MdyME96YQV7rHNURNdM5Br6asd6XS5dDe2RmyNERGKQxaiq716aAXrY +Gi9MJ5KJMscEbrxNs0UeJ/09/wiXIuMittc+ab5odNsl9bdwPVoNpmnZS72J +GN5PS/0Q7kV+F8Kc9BKSUF5fju934QmkUferL/tqHqqojHnvobiIZH5Pa7we +eIac0evMpcur6KlFw97nqHpElb/R8D5uFam2ML82K6hHGbSHpvoKV1GP36+9 +5pZ61NPrJFT6bhX9Ox5/zHqzHkkb7+Q7Hl9DTA4nnT+6NKBvLlKPP1Kvo/Cs +mLBxzUbklny9+VXiBlJJlTust9GEvOZkZmoqthDLlSt3hTha0WfrCca23i1U +HY8dIQm2IqPx24qDs1vIdON5papsKzrW//XaHP9fpHfwLI2ieiuieVbEwRv9 +F738ddQ2JrAVZYSIYoGXtlHg0U0awalW1MbNl6nCsYuEFGvXYh+0ocPxPc0a +crvo6YvAMwolbegR/dVZA81dRGcxWtRR3YbubL1TcgvZRUdwqc4DfW3I9FMq +OevbLqJPq/XV22xDi2Uca9ut/9CjxhoRJoN2xCwaKfXpGBVwcMhVa2y1ox7V +JKUbGlRwO7H3evW+DhRlnq0saEhhWR5LXtYOtC+xTuuiOxXkrAdpNQp1oL// +lpzHHlJBT5Bv1M3THej7lEnJ8D5quC8ir7gb24EGMqRkWgeoYXzHMSGHsxPF +1hwmXJqgBpkeyfIyvk505pWayr85aoiKJt8pE+1EnQyW2qp71DAzUZx1m9CJ +mgISXesI+0Anirfq5flO9MR4q/Rp2j64PDEWxBzfie5y9Mvm2dDA+qbKN8nd +TlSvLPj8nBcN9JxvfWpM24Vmrb3RTjANjHT2CQWwdKETT7iNzdJp4EAf/UIi +Xxf6pm15ff8QDcSxX5LGHelCpyN+DF87QQv9htucw65dyKsMWUhp04LjRDiD +tE8XynqdNPvGlBZc01Ry/AK60G/ho1tKl2mB4RH2Yjq8C2U33RCbL6GFiwkz +d0Tud6HNdXZ/Q1460IUXFgK9XUhc0G5vT5wO2Em6FdlDXeicek3MEwId/PfF +sILnTRcqSjbPZtSjgwvpB+rGP3YhQ6W87uYIOlAbYuBpW+1CT1yI/HLLdOAU +pSHJI0BG4wmRheP/6IB7pfBjuzAZ0da+U4xipQfbmaWLDhJkZEEXfPqLFD0c +OTJeGqpARoz5HR7p1vRgkWDQfxCRkd174xaaAXoYxibZX10iI+b7Xzx9J+iB +74+FSJY9GVVZeB36NE8PTBv/JZs5kxHNZPS1BmoG8CdcK3jsRUaF4w0kX2UG +OMYT0t0SQka6GVrTH9UZwDjkjJxkGBmtmb1J1DVkAM7Hr+huRJCRxtiPH1Ke +DBCeWyLLHEtG829FSj7mM0D/0O+oO2lkdPfeE1PdpwxgJt+9Gp9JRkdNjtM1 +vGSAxJ7cX+EPyCj6jZHdvXEG8AgxyNPKJyPp0ahDumyMoKz5VFv1CRm5vVpK +rL/GCMUH6+rftpIRV+I1JBXNCJ3fbz3j7CCjBn36n6mpjFCJ2/FR6yIjlmHh +sz6VjBDMGmQa0ktGjwcN6aTmGMHYW0zO5jUZGcd/qk5dYQTctMHw8VEy2tH1 +sNtHxQTPjtpfZHpLRnoDt1o+8DNBMjWjavg4Gf3sq7uWep4Jbr2JT5/5SEZp +sRrS+6yZAF9Vv2L1mYwwnZF33u5M8Cv2pvnAFzJK6P1OOhvFBFKSOya3Zsno +WMzV6boUJqgMHdkYniOjz2foknB5TKCwGlfD9pWM8D1CP6mbmMA3zTzTZYGS +/+jyB969FH7xvjdikYzCtI6d/fCOCU42isqmfCejV2SDkrplJqgaPhl/9wcZ +XY36aIrbY4LuD0OZQT/JSETTnS6VlRlK6jIWLH6RkW9XpJ23FDMcj6xy2vxN +RkKzmvQbJGZgdeRTL10mo/59TGUhwAw2VxR39Fco9kT79Wj0mOERkSdlicKS +EL8cc4EZ8GurrKGrZDRirX+Pw4kZCid2PRnWyCj0OqdK+mVm8OpxabhFYfkH +o1OCocwgY395Y4vCEw33wgrjmOHgvks4h3Uyipowk5DLYAa/8mvnOilM2uTr +eVbIDG9ZePz4Nyjx4Z1yP/aMGdK9ojKcKBx/JJu95SUzcL5Q6iih8HFjm2qN +PmagMvb/85nCXy+LmQ28Y4ZWtQ4V9j9klJo0+9dwhhnubcbdJVFY7emj7Ilf +zLDqeuavHoV/Drmcstlhhsd/Am9aU/j+D9n5eUYWUPHIlXak8BnWHzGeB1hg +fEVvzZbC67KVCmuiLNDJzr1gTOF8bd/XQYos4JhxmwWjsL4LyZ/6BAu4luvZ +CFJ4J2r9v9taLPCthGFpheJfaVFtE5sxC4TJ2lU3U9i085rNPRsW8N5mawyj +MM3MCdpDnixQyEFmUKHwU+p/xfnXWKAnTCP7KyU+ViKtZ2WiWMAkxCDiDoWZ +UfivymQWyNSoaZSicK2VesrRHBZ4Io3p1lPizXm/Z/J0HQt89sTFtFDy1Vwf +e6OvkwVOGpxGhynsPq4rZvCaBaaA1jaHkt+uA69drRcp/hLw2+YUPVw+nLJ/ +boMFXrTdvl5M0YuwkckzdxpW0HezCV2i6Ola4sTm1UOsIFhafMCCojdc5f0H +e9KskDRGrAmn6HF00AqijrDCP+zKfN4SGSmwTEennGMFZaYE/k6Knr/cWuSt +CGOFXZ0kg4x5Sn8ofNxwOJ4V+u24hQIo9XGiw8u6MZMVomjIxTqU+rlHtVrU +U8UKdXZfGMYp9aUdvH14ZpYVXDX5EiOnyGgj8+W46zIr6IaLvf/vPRkV1IWG +/N5lBV51RbbCCTLaXafp3OXdD8Fd/53KeUdGz3xYjf7T3g+rh2eDZF6R0UAW +97UnpvvhYLHG5fNDlP7VyZ9zymE/qPg2LHkMkBE/n8x3j9D9MNvoHx3VQ0aR +bRoRbc/3A09kn+BJSj/K/q5batqxH8pHFP9wNJNR3QHj4e+v9kPv79D4yUYy ++uFqJ8C7tB98BfXZ9Gsp+ecKrXYTY4N+gT6lZkp/81GNmthTYgO8UVILlJNR +rFP8XupJNggVq9KqLyGjlob7Z1vM2eChqMylOwWU/mhfN8OdwAYB3XqhjRlk +9Ld6mfvlNhsUdf1TUb9JRjwfN1UMmdiB2Wp2RuYGGSkyUtl85WUH1XfnqemD +ycjeku0xJ5EdpDvUX+RdoZyfVk7dyYUdfn+0nHemzINsE4cr7G/ZoZbK0Oro +WTLKC3ZfxJtxQCqvTCQPK6VftTJtRltxQNGBpTgRRjJqpS2h+2TPAQl/hSQk +aSn1Gz8rEu/DAW1bh0X/2+lCQrlWZgsxHGBnb8r26Dtl3nbqd+Y1cQDuFanZ +mTI/k/cfzuYS44T8D6Iq1aFdKDxnx2BtiROOHfjdsTHeic7j63zlVjnhh/hR +i6DRTiTU5pdkt8UJB9LxNzYHO1HD9OKrV3RcwNV3I3a2vROtSE7oPxHiglLx +E34hjzuR3ePnek7nueC1F23IsxudSK3eS3u8mgsWxVqlbIQ7EdXoZ2gK4oZF +VyK3nlEHwl1xumosewB8w2MHFlza0Ox6uinLS17AAu5MyW82I505t+vJvv+B +WnEzW2RtAzo3mygnJMQPdNTHvKeLXqDFDruwnicCMOeFVcVxVyNFzneCpy8J +QkWCv64ebyWlftdtp1aFgH01sb7hZCm6qibN+OKvEAxfTwriwpWi+dMXKxKo +haE3fKLlKlspaj/T9vcUuzD4j3hN+XwqQUGG8SmlssKgJehwgz28BH13lOwK +sBWGrA86Rxn6itHAHRNpzmFh4EsidM04PEJaPyz+iJmIwGDiBv4EuQBl80SM +hpqLANMDxsGkqgK0dqK8cuqiCLCHp2luZBeg3Nht5zQ7EXiz86D3W2AB+iv1 +YJzJRwQelMq+9pMtQI/tPtT/jhUBpKL/Wjg5H3GMXwppbhUBtcn73U3ueWi8 +3YHaQl4UtkZmvUruZqPfapP815VE4aViRrm6TzZiaNM/nEsUBR7N2PQ/Btno +aMtx5/ljovAl2M0m70A2Sm3kGLysIQq8V/0XabIfIv2apow4a1Gg9g279K/q +ASIX8eBfJopC8LLo8+QfWej57U5rkXVRmKBx2O9WkI5KdPr/i94UBW3GAHGL +2+koi3Vk5Me2KLQx4nzsPNNRWOInzcZ9YiBmNnS9UTmdcr/5q2jKIQbmIh4C +dwfT0HQxfi9OTgw0aXOHynbvIbbuBzl/bMWA7/YOtYd3KqKOKbhg7SgGLcPS +586apaI1nTLuLhcxGPrHqamGUtHEUG10srcYaNvtp/dlT0WF70a8Fa6LgUWW +kM3Hpyno+Dwj2GeIwZeFj8pzf5KRE53/56EhMUi5dd3hTFoS4hfuHdt+LQbY +qZ3qc+FJaOiY4LD0WzHQ8t5n6eyVhI56dL0Mf0+xX+sfO6yZhOhHD9w/+k0M +PnFgxKDNRFSU+8Ikm1ocFKhKCEqXEtHsic0+z8PiUMRRfyfd7y7KMNFtz1IW +B2bauuMc5+8iXe/c+u7j4nDuxrEvZfJ3UU3+mRJRNXHgvEdq1ZiPR5FMmbfe +6onDqKWMLfvFeCQxpgInncXB+OYy/SedO8j+cvBz1ixxYBusefbuVCw6Svz4 +XOahOAQ+7X1DLRGLmFfghWauOPw1pv+nQxeLnvrS14Y9EoeSE5Mcyj0xaMcn +qW6tShx0zLK2/PRjUJp3ceNUvzhYOGcvednfRr0eo22Pd8Wh8xhH6mRuFHog +f7S9l0oCLr+cnM++FYV8ljLa52kkQHVUruaGWxTi9bDuEGGWgEHGMc/Ew1HI +zn2hM5VXAhjJ/rJ/e2+hHde97hAlCYgySoW3W5FIyVluSNdWArjmNrOEPCPQ +R1dh7ycOElB35O0NCaMIdMeDm4PNRQJqQsUHtFQi0ILvtsGwlwTYXopC83QR +qCCk/61BiASog85IaG44Opjs/sE0XQKkhGlYON7fRHtN5Us2gxIQZknfsOUQ +hipacuLbXkmAFjfx2PVzYciyPUVR7I0ESLjZ8AgcC0P13cE+M5OU9bz30UUs +Ychv5Oya4zeKvxYWsXPOoejr1+/bbjSS0KfifKCG6wYa5pJn8VeRhMQ3ywx+ +8cEI8/RcuK8qCRfG7Pl0XYNRRXdFdzvlFpfXacB9TiMY3Q0hRHJoSkJtzVml +gd0gpDt/dLfckLLfSZPriU8Q6qtX+zXtLgl15kPc01bXUJeN2ej5bEl4GOsI +oiaB6HBjxrPAPElYYrI1HDkSiAoPTCZkF0rCoct/Zot5A1Fkn6XuUpkkWJh8 +pGkdD0CnDtt1RddKgtsk7kqudQBqZfCsbX4lCa/9XRtoff1RY0X4fXkaHCSu +qtb5Vfohel0T/nR6HMwkLKcQk/2QwYJUJjUzDuJn3l076O+HvooPpr3jwEFQ +vV+H4Qk/xJ15MDlMCAdV8fU/Y3svI/eIx7ffqODArnOL7tOSLxIwf+cf4oOD +efrrX+nP+SCn9ZK1eT8ccD9tOnLiiA96lhzsZxCIg86Ej02Jh3yQ1qCIL+4G +Dm4zd3edHPNGfqfcPV7F4cCZLko4mtcb9ctT2UsU4+AUvdUTwTxPFEwte37g +Aw4kPpQc9Zh1Q/PqLOO4LxR/FcwGLja6ofO3ly7dnMUB32fbv+HJbkiCvdL7 +6HccvNQjiwequaGBQ4cTcjdxIJiR8OZXnisSOoYNXeGWggDn4vtLHi6o3ctQ +V1BbCnK4X6Z6yjgh+SrSm0BdKdCno6GZpHdCaes8liP6UlBIIN0JmHVE7iFj +7tGmUrBa2MeKch0RT6xl3LK9FHze3sph4HdETkVOfV03pCDJ6M41TV4HxDwV +dMarRgp6mwetqfB26Ghg6f6EWilY7v79/g+PHbLlGh+pbJCC57d0rbn/2qK6 +M0eslluloGs5fOh5py1yev7L98qgFAg2pnwtuGiL2u463A+al4LzqyFk6kQb +ynw79zPqP2lQOtkWay9ujQqnQqqLBaQh9d4obcO6FRoOLL/aIyQN6maKg+d6 +rBCugpGGWVIado9dECd6WaFR/o6D8QRpKKXJ+jnWZIkU15TVUnSk4WnHGZyt +40U090g0NSdEGrRNmr6GfTFHS5FftmjCpOG/25mMU7XmaMUu75JLhDQgo49H +Au6aIyphUTlCrDQsOce4OqmaI/50kfb2dGnYcF4jKdw3Q+ejhX/PVUlDXouz +034HU9TkLKgrvyANGcozBisixqhD48OzxCVpMGN8Hpr6zwj1iT88uP5LGsS/ +HN9xnzJCY58OzbzckAY3I8+W+gwjtGJ2KEifVgbGY/WSe7iNkPQZgZLLwjIA +kjZ3/bkNUao0H229iQw4BgyyKSqfR5bWuOIZcxlIF2mqHzl0HkmkknTYLGWg +FF97NXvfeVSzp5dobycDTC8vDBg/1Edv3oUfYvOWgdzvTnOHXp9D3LeWDtvf +loGwaTqtWk09lPylxXF/owwc1NCg9nHWQRYHBxmPNcuAeJ+5eOsJHSSmN1lu +1yYDwgP8voYcOqiqbm25tlsGYjqC5FQbtNFIgswNuzcykDBnc4WfUxtxYilp +tT9kgEZDw/5FnxZKzHLqthWRhapjc4Ii7hooMCDcL0RcFm4JGNV3aWkga8Ns +4XScLDzJnPyRK6GB5JnfBQ7Iy4JzYd/exkd11HtNQ1pZRRaWpyK+8Zmqo30X +JGJYDWVBCVS+7uidRv4Hp3VqI2SBsfYP1QU7NWS5urvxOkoWrgt3CMhpqCH1 +Yb6CpRhZYG6uMJWVVkNc0QbboomycG2BRKz8Cahio7X8zgOKf9Nuz/uvA/r2 +NofV7rks1PKzHjhyBiGLVKsh1q+ykP+w9uK8kCo6VM0s4L4oC80kh8LxxRPo +0+ta594fsjDq8uKPeO0J5MDORR21Jguu/XcyOs6fQF6xZNIetRxwhv+dPnj7 +OAoPU8pcPiQHmEz8jxx6FVTqQe3wzlAOWD1elT5GR5FHXMXTw6Zy8GwQR+w4 +cBQpll3cTb4gB9O0Rt/Elo6gqq/P0/Rt5IAreIitKfMIarJz6+3xlINXv3sb +z2weRq/MRxUbb8uBHRezuWs7CW2qF23lNMvBpQ/7iW+jCSikMSeis00OzsuP +Nwe5EBAVMWv/QqccdG8vuBprExCDcIIosV8O5MrPfcpnISDeravanWNyIHiX +6WVBMh6RnuhmfvstB9422omzRkrI68DaMYK4PFhgx+Zu/JFDK3E/201w8tBR +z7xS0SmH/Pct6AbJyEPTQCHNkWQ5FPLrg02HkjxsRNaJqCnKobje7tsmqvJw +ioXrvY6bLCq5fn/8mok8MORQOVYvS6OZuVNX26Mp9mq6zP2P49CpnKF82Th5 +cI8430fNhkO55haDyXflgbrmt9qXL5LIut9XzP6ePFwa9mZOj5VEk09zB2gK +5MFU83fu0CcJNBL8T0SjWR6IbvKP1jPEEeFI7NknbfKgr3Un2tdXHCX+PBBw +oEse5ByyvyvriKNztgr9c/3yUFtprZy/I4b6NC39oybk4WlI+8JHBzHUztnQ +270mD/9KPxfEnRJFov0aa0qbFH9q7TquCIuisMjXQhnb8nDjb87j3B0RhP35 +5ueyTwGCNaQYW2pFUMPUQSEmDgUouViOMRFEUFWx/2UdOQXIz50v+2IthPJP +EgQGbRXg7b7lGdIzftR+jjli20EBtE9a0j+7zo+mL80syrgoQOhpOp84HX4k +Hn6vIcpLASbvfS0xmeNDheStCxCsAKrGZqOKwnyoSL89ozpVAXohn9en4CAq +sTXizepWgIoY2ybVRR7Uc1n+Rk+fAmhmSmhotPGgbxF08xuDCtBZ6ASZGTxI ++lHtc6M3CtASfiVO9AwPKl0UMNn/RQGO3SuMLSrjRmV+sylhfxXAqNHUme06 +F3pyy5/TWUERHr+uVpcw5kBLqlbht/CKQOBckjc8zIHk19RXC0iKEHXzU2gD +Dwcqs+N5+1lFEX6JjFf4PmZHJag6w0JTEV7htLk6atlQ4dZv4XOXFOHOCd57 +gjOsKMvTQ/FIkiIMJYryl0czoUkJ4xyjVEWQGf6ccsSECfFNneC4nK4IFyVU +5IXEmVCGDstKxUNF+BCcI8vQyojuSZU9ly5ThPNGoTW4fwwo8ctX1UMdipD/ +6tUqZxw9ijaxP0uzrgjE2kW34BkalK8/Zem4qQhWTI5Zp+poUJO2iVf3tiKc +3ZhJs4unQSsntZLi9inBRlCOXtkxGmSJkxvj5lCCRHkfQ82UfYj4Z8VOQk4J +ouS/h4maUyO9ZfcrUYpKIBldxSpNpEYu32dvfSMowdzIgvp1Vmr08NO7ksfH +lGBl7fgFznYqxNjT8POwphIc2WvJH8ZToY8Z4UEatkqQrdBprn3sH7aVvB1X +7KAEU+/HgvLWdzGe+CsPmVyUwE/cZjKyehfTvunUOuilBPG/1zgW8LtYjasO +vWmIEjD0X6ZmJu5gsce5kp3SlUC2+JZar+5f7MhUXmn0oBLYT4RfCfiwgXEo +umxWvlKCionzPyqfbGBLoYpa46NKkPA86b8zNzawQvHGWelJJdBgPUhOEtnA +eNzfCPfNK4GyJvv1QNd17G8IzVl6KjykNBlLbbKsYd+KnC5nUeNh+032o4Ev +q9i7od5MRRo8vJjasVyvXcWqRBK/mdLj4ZSoyh9wXMXcOg9FFbPiwSMkZqyy +YwWbYDnadoYPD+GsIi7OCcsY+XDmtyl+PEBwb6iy2zJWY7XD7nsID/J2310M +NZaxxMp260xhPCj8yLzmtPMbO2Okv7MgiQd135/nNz1/Y3VZLspxRDwYeBAr +05t+Yhky958MnsUDk/qov/HnRWxtVbMoQg8PnhfHVibyFjH95pUHKvp40Jpj +yVuwX8TojXTuFBniwX/sEWfBwgLmH7Lldv0CHuwPLapd2v6GGQ6bSSs44yF/ +rnuARfkrVpFJIzLjggdGNPfhGdVXjMmh8mCmGx40w1P+e903j7Vu0jPQeeHh ++BE8R6DNPKYk9mJu6golfrmHH2gkzWGs/jwFd8LxkPFNgOY/xlnMBbVmnYrE +wwFfbe0P4zNYB5NH8uYtPDSrzZaxls1gQdkdNx1i8DDfUaz6SG8GW+i+bKOa +iIdA70jbx5nTGJn/teDSQzyQ1h8GnVH/goW2xmecrcfDZwOuaaemD9jih9bU +rQY8cMY/T88M+ICZbq8mFjfhoezr4WIXwgdM/qhFDE0rHvrmgovflUxh4+W4 +oEYyHoLJNlFD2e8xYnrLRbk3eHAKbWj879EE9rBmxWziLR5KPuxyBbtOYIwj +ksbRY3gIUm4mOSlMYJ9Y7+jOTOLhnHqA2siLcexOuPnJ+1/wUPmsQGB6eAyb +91wWYvmFB41tudtLfO8wgzgJgfrfeHioHk00m3uLNZWYHXRewcOTF5FOKs/e +YikzL9k71vFg9Z7VyUbnLQYXYqmCd/Cw89mWXTD8DZalLj69yESAbqPkxWv0 +o5iegElRnwQBdqoC2DwsX2EZs4qtF3EEMN13QOOh8its9gnj+yUpArDWr1YL +cr/CQqCJg12OAAsTa07cacPYY0fxECMCAW799crcChnCmJ8uG06dJEDhLBs5 +wWkAM73W7+mJCMCh4xqtiRvA8k8V3f4HBBAx4E+5Pd+Pqbw1bxZRJwCvlz97 +mUs/5vK3RcZRhwDNnd+bT/v1Yd3qd6l+mhLg0BtLquncHoyLzUUg1JwAJfKs +N/tdejDrMbWjHBYE8ConmSsRerAN13V3ohUBTtMsctt1dGO4BMuxAHsCpHrR ++pn/IGORE7IVe94EiO0hJdWYdmFqXt0XOWMIIOZmyv/1ajv2d3xBszOWANyv +H0W36rRjNadZiYF3CEAncCOCUbAdw/EZMH5IIMD5Knblz+1tGGvnZE1JGgF8 +2I8EpHC3YeN8P/dTHiPw/oHvc6/EFiw5kmNrpYgAZ4Xv9rCrtWBnfxFni4op +5w+fNPVZacaaOwMbWMoJwEAWoHc1a8YKvamdx54RoOXUaWcm2ZeYTxdPq1cL +Afp/XZ5M/92AyeKVy0XbCFDmHsnu9rgBm8m6kPamnQB7hq/nv7g0YKY+2R7H +yQSoUpm70TRTj6kKSPPRDxKgzz9DeO1zHcboe+Lyw0kCXKde/KGw+QLLOWQn +MbBOWRcx1vFNrMaOk+QU7f4QoMvR3u+BbTX2RntNeXOTAL32nKYkUjXGGBh1 +VmKHAFr36tJyx6own9dll0P2EcFOPfneJckqDKJWW+XZieB91kypbPQpNvmg +qa+dgwjZVNcZceVPsSvVt96YcxGhJvDn473wp1jJ54PfIg8QoQD/iL+X9BTj +PKHK/kGACJ/PvrimSqrEpn9FWsVLE2EhKFxL+/tjLIT+nLO4LBEEno+sY0WP +MV7Bg771ckQwph0cHrv0GNPRKY2cUyTCp1Vfix/vyrGqwsHyk0eIcMKlpzFs +oAyLuMD794caEbQ/2vfxvSnBJDqK085dJMLeJ/MRJd0ibEh+s3DKkggMXqOP +6fmKsKtpZ6rdrIkw/75s0mi+EOt3XRiOsiXCbnARn154IXaZQ46pxZkIUwuX +drNbCrAWq4pgpStEyKpX+Td3Lh9z6f4X89KfCHHRN5rLxfIxLoJ+xtlAIhQN +x7qMb+RhTrS/a5yDiJChGzJnl5uHsZYTfuaEEcFD+cwH8c1czGKzxoYjnggO +KVR6Cn45GK0dnXf2XSLgoia+kXE5WEW/yXX5RCI4xlhZc7/PxqhzNjLPpBDh +SLFMSrNGNlaicWw0LJMIvlLjDCTxh9h6cqPGchERpGeZv2nsZmGJCu2yI81E +UJYyNFKXSMdKjl1kCm8lQmxBT3z2fBrWcnrtK6GdEo9P3QrppWnYzwu4oqQu +IvCfiIuyIqRhZ6NihQ0GiEA1xt7Ec+YeRv/JkOfVBBGcWxlyFxJTMMHF7yuh +7yn5i2QtCLJMwQ6vR75W+kCxzxejmiKdgtmz1N5N+EwE7ie2KybtyVirsgCT +/lci6CSZGe1uJ2HBiTO7g2tECM8u438ZlYgl3w+Zur5BBDhXqYq3SMTKHh1o +VNgkgjv1g3MHFROx8Satq/HbRPi9JHjtWkUCdnShfEV3HwlaCJw2cVZ3sd9q +V772s5Pg2QWFfa0zcZjTKu3rXlkSfPZ12fAJj8asy9SHLOVJkMlBS0jTjMZM +bSP7fymQwM1guvgcSzSmOUxDPkAggbaNzHu/tCgMV76v0VaZBFnORZuu1bew +OTuqoq3TJBCkvj81Qx+JTfFB/h0NEhiHMjHmjkZgb16F5ghrkcC8sob5fW4E +1ontZWrokGAs88mnHtUIrJD/392k8yRwMtG0tw8KxxxGtq/KWJHggLcfMZPl +JmYZcyKgyZoE8aXz8w2fwjBjCPbTtyGBerY7WbsmDFOv+Ovpb08CoV8SK2XW +YZhE7JZdmysJltoNPr70CcVm1P7oXggggZ7dDKvrbghm92xFJCaBBKsM12Ju +5F3FPMKNdnSSSFBq0CJCY3EV8zeqGWNNoew/ffTqee6r2O11/7uJaSQ4bJj2 +U/V2IFahsrWd/pAEPQEB78WCA7Cttr13j8pJ8LH0iIJ9xBVsX4pNlcsTEkDI +YGGY1hWM1aEtXraSBKfPB17UYr2CCdFHqFdUkUCLddS4N90PU9ehr3peTwKd +T0jS68VlLHGENb6zmwTjkxK3Wzh8sawCT5eoXhJ4Envz8j/6YAVXhk6f6ScB +nYEL8DzxwV7wJv7tH6LkA1WuPjjrg01ZcLuMviVBXsDZ7sNC3pjUDN/p6RkS +WNx/qMNg5YHha4KECudI8P7prjsweWDHb73fcvxKAhzrFV3XF+6YrtTDpwuL +JHiupfUnlNsdu+wuIrS8TIJDw56yQeOuWIjqza2qVYp+Lp7TXoxzxW7tn35z +ZZ1i/0OO0lFwxTIqC+I2N0lwm99g1KzcBcsPo3Vu+EuCFY+Pn6XtXLByA8dT +ITskEL1/0HSAzwWrESMLYv9IIEV1fxGNOGPNq7itvT0SRDwWsbwZ54z9D9HN +mI8= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.1794249008533784}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 20}, {0., 0.1794249008533784}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9920987224414425`*^9}, + CellLabel-> + "Out[121]=",ExpressionUUID->"e827cb17-b9f8-eb4f-b808-87c688114fe0"] +}, 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[122]:=",ExpressionUUID->"37173e44-18b6-f345-bdbf-3935ac3d85ba"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3874266998239808`*^-217\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 122, 306, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331752212366*^9, 3.99209872248942*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"b47ad8a5-1e7f-0544-836e-a97aec236958"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.817278930676562`*^-223\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 122, 307, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331752212366*^9, 3.992098722500313*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"1ec65752-0c6c-e24f-9d99-6c1a52fe2a34"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0502622182804961`*^-228\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 122, 308, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331752212366*^9, 3.992098722507313*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"275033f4-6615-084f-875c-34fbd15e95d9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 122, 309, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331752212366*^9, 3.992098722515312*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"57e5ecd0-fe78-ee4b-be8d-0bc947913088"], + +Cell[BoxData["20.84288695276049`"], "Output", + CellChangeTimes->{3.991331759108553*^9, 3.992098749460293*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"7d41369b-d08f-b242-95d9-6976f2baa79b"] +}, 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.991844980123823*^9, 3.991844984423441*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"c4a8a8b0-0b31-ac4c-a7ce-152da20b42d7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8566520609727662`*^-243\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 123, 310, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317591425533`*^9, 3.992098749501276*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"ca2f270a-2e0f-3545-8baa-79d8bc3d4d37"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.18912517513297`*^-251\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 123, 311, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317591425533`*^9, 3.992098749510277*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"ee7b7b8a-ab5f-4c4b-903f-e2583f66ff88"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.6119729993384204`*^-258\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 123, 312, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317591425533`*^9, 3.9920987495177383`*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"4d1e67f3-b1f9-d847-ade1-ea330ae4282e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 123, 313, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317591425533`*^9, 3.9920987495257416`*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"3e772d08-1987-8f43-bfd9-a520e738fdce"], + +Cell[BoxData["0.011710321811598033`"], "Output", + CellChangeTimes->{3.991331766558941*^9, 3.992098753258383*^9}, + CellLabel-> + "Out[123]=",ExpressionUUID->"256c243f-333e-8d4b-80cf-c6eb4f13d3f5"] +}, 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.9918449914836025`*^9, 3.991844997178608*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"3975f6bc-b8e0-0049-badb-74a4e7126d8f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8566520609727662`*^-243\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 124, 314, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317665951805`*^9, 3.992098753300396*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"7c91c0f5-2ca3-4b4b-b309-f3a21f62e4df"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.18912517513297`*^-251\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 124, 315, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317665951805`*^9, 3.9920987533093815`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"322aa2d9-45e4-8040-baf3-4c2f3634bf0c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.6119729993384204`*^-258\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 124, 316, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317665951805`*^9, 3.9920987533173847`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"64f9fa80-2841-3c43-9633-970c06b511f4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 124, 317, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317665951805`*^9, 3.992098753324383*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"94bad9d6-e308-1646-b5cd-7cb9e119223e"], + +Cell[BoxData["4.904598168181687`"], "Output", + CellChangeTimes->{3.991331773590704*^9, 3.992098756269556*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"38f07d3c-b9eb-e344-b11b-fea2a6c3a15e"] +}, 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.991845005870302*^9, 3.991845010049778*^9}}, + CellLabel-> + "In[125]:=",ExpressionUUID->"f4f95d15-5683-9549-85ce-3970c364fc34"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8566520609727662`*^-243\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 125, 318, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317736257057`*^9, 3.9920987563085537`*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"682aa1c6-ea39-7f48-b438-6c33a42f4d76"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.18912517513297`*^-251\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 125, 319, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317736257057`*^9, 3.992098756318556*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"be5061bb-f417-8849-9ecd-eb278a62f897"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.6119729993384204`*^-258\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 125, 320, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317736257057`*^9, 3.992098756325556*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"554fd047-5e05-c240-9d49-8790a9efeca8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 125, 321, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317736257057`*^9, 3.992098756332554*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"b5d5a4a9-256e-994a-b4e4-8b093f517d0b"], + +Cell[BoxData["114.90014863989207`"], "Output", + CellChangeTimes->{3.991331777337887*^9, 3.9920987581187153`*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"8f914f3c-51bc-3e42-bd07-4270783c8bff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918450170370293`*^9, 3.9918450213597164`*^9}}, + CellLabel-> + "In[126]:=",ExpressionUUID->"16838e8f-dc9a-d74c-8675-3a4476217af6"], + +Cell[BoxData["0.0004932951198661352`"], "Output", + CellChangeTimes->{3.9913317773679104`*^9, 3.992098758146824*^9}, + CellLabel-> + "Out[126]=",ExpressionUUID->"fa183d38-8ec6-eb46-aea1-f591d27972c6"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918450249714966`*^9, 3.9918450285250053`*^9}, + 3.991923905136156*^9}, + CellLabel-> + "In[127]:=",ExpressionUUID->"5671b6c5-96eb-9840-bb09-6698022336a6"], + +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->"4d014000-6f17-9a45-b3a6-a3a0cf36c628"], + +Cell[BoxData["2.4966041761479913`"], "Output", + CellChangeTimes->{3.9913317774008274`*^9, 3.99209875817082*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"821377a3-0b44-3e49-a363-104722fe80db"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[129]:=",ExpressionUUID->"fe5bd3c5-5fb8-684b-9227-f90b633f4a5d"], + +Cell[BoxData["8.937548526432023`"], "Output", + CellChangeTimes->{3.9913317774358253`*^9, 3.9920987581909866`*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"d09627d3-0c8d-c24c-ac04-55be6724dbbc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[130]:=",ExpressionUUID->"fcb96232-efe5-6c4a-80fc-3e0409b7c756"], + +Cell[BoxData["22.313520975615514`"], "Output", + CellChangeTimes->{3.991331777510603*^9, 3.992098758210987*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"26bff63d-6870-dd45-924b-9872712daf64"] +}, 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->"826a4822-fe82-2545-859e-1dcc0d2c7665"], + +Cell[BoxData["0.0433698260099947`"], "Output", + CellChangeTimes->{3.991331777537592*^9, 3.992098758231447*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"deed1754-f24e-f44d-960a-40a55e217506"] +}, 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->"8e8ef1c8-b957-7e47-8bd7-349d078e5615"], + +Cell[BoxData["4.255504957154119`"], "Output", + CellChangeTimes->{3.9913317776362495`*^9, 3.9920987583138676`*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"429cb130-8ac0-5342-9fba-00b6fed9d703"] +}, 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->"ef7ab6c6-a465-144e-9b2e-d87983d89cc3"], + +Cell[BoxData["0.0018670164095528528`"], "Output", + CellChangeTimes->{3.9913317776511555`*^9, 3.992098758333868*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"5c5670fc-6879-d743-a950-b0fb7b2cb8c7"] +}, 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->"005cbf5d-7cfe-0a47-85df-3f41c0cd74cc"], + +Cell[BoxData["20.51024618054348`"], "Output", + CellChangeTimes->{3.991331777742655*^9, 3.992098758416668*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"59d59b11-f0f0-ee41-9355-7775bd470ee2"] +}, 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->"11446a18-6985-d84f-b09e-6be9463bee70"], + +Cell[BoxData["0.9633250942217355`"], "Output", + CellChangeTimes->{3.9913317777546787`*^9, 3.992098758437668*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"ee5bc42e-7dc8-b347-8911-74a0f4692d36"] +}, 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->"cf191722-8995-064e-a60c-6ab12800222b"], + +Cell[BoxData["0.03667490577826447`"], "Output", + CellChangeTimes->{3.991331777779663*^9, 3.9920987584576664`*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"a4252679-4e67-294e-bb8f-fd447cbd8112"] +}, 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->"146e47d3-0f15-fc4b-b22a-e41827d0b353"], + +Cell[BoxData["0.035329857064419885`"], "Output", + CellChangeTimes->{3.9913317778036633`*^9, 3.9920987584776707`*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"1d8ec18e-8a57-6547-8bc4-000d51776991"] +}, 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.991845055619808*^9}, + CellLabel-> + "In[138]:=",ExpressionUUID->"b1b29f9b-c1d5-3048-84ff-9fde8e93d227"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5416484227527176`*^-241\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 138, 322, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317778296604`*^9, 3.992098758506666*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"001275fb-614d-8448-9fc7-dc3156422b0f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.774125824880928`*^-249\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 138, 323, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317778296604`*^9, 3.9920987585221004`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"97d11c97-01c8-f940-afd9-e4bcd7931cf0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.9202863278753376`*^-256\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 138, 324, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317778296604`*^9, 3.9920987585301*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"00545248-d898-d64a-815f-d645338b3d17"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 138, 325, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317778296604`*^9, 3.9920987585391006`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"8061a4f7-154b-e64d-9369-e8eeb9d7ed1d"], + +Cell[BoxData["4.2555049571541215`"], "Output", + CellChangeTimes->{3.991331781456501*^9, 3.9920987605836296`*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"82fd41a2-aa7a-434d-9939-1b7d9f540a7f"] +}, 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.991845062111332*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"7833995d-3f7b-3a4e-944a-db222bb16395"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5416484227527176`*^-241\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 139, 326, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331781491499*^9, 3.9920987606256847`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"37ca5db3-823c-2b4f-bb89-5a41f9a2a4a1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.774125824880928`*^-249\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 139, 327, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331781491499*^9, 3.992098760633589*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"50dfe7f9-2f49-bc4f-8ef7-90576177c756"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.9202863278753376`*^-256\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 139, 328, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331781491499*^9, 3.992098760641577*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"fe9114a3-a297-c244-b89b-65104ce093d6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 139, 329, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331781491499*^9, 3.9920987606485786`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"0dbdee7d-7a9d-214c-811f-76ccf9590577"], + +Cell[BoxData["20.510246180543497`"], "Output", + CellChangeTimes->{3.9913317851500416`*^9, 3.992098762688982*^9}, + CellLabel-> + "Out[139]=",ExpressionUUID->"37881174-f663-884a-83a2-0e6a409d5463"] +}, 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.991845068201048*^9}, + CellLabel-> + "In[140]:=",ExpressionUUID->"cfa7b206-7d8f-ba43-acf6-c3e910046666"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4ldsXB3BDVIZMmSNTCpdcB5Fhr6IiQ1HJnI5zXqWSKQlpVLdIaKAB +KTIkQ0SG60qSUNxM6Vcy1yXnHDKV5LfOH+/zPp9n7Xet7977n1eVftSZycfD +wzOOD/cd9FZvbXnbW8tRQ0lvyXoWsWRlGtGt80mIu7kf133pxtc1rKvJfe3K +s1zvZLwRFKG9JPszY4u4Lg4/9ULAuoXIvyzicH2pQa72VN6/pPGSlpUUuqIt +KO2XQSexY01ncz36oSnqRNV7UjUuvXolWmFY3WPG6iMRPXsph2s7dpRpSMtn +kp6501oaXfNrVDg8r5+ccjg0yXXXGdnIsoBBYhfa80QGzRK0Hp0yGCZ7xO7E +yKIF4wLdaLMjxHJlkb8cWlkitTGo6itJOi5Hl0c7Ks48ZFl9I4NrBy8qoql7 +ajK6y1jkrtuWslXoU2t2xBxqYRP3kp8zSuj3sh1/huZNkL/SvAtV0Ax3/4PX +4iaJi6joWjU05y5PxpOA78Rp34pidfQyNV3xCYNpEum1/Jcm+jrjxTZx6RnS +85nv73VolWy3U+tnZ0jVhGOCNtrkjwusI1VzpITqPaKHPmD8uWXU6hdZ1tG9 +ZAN6KvzYEiHNBdIr6+tqij5dJWyutew3uS0HNWboFDB55NeySM53sWqBmy+r +0To4jxfUyhXv26HzGq71nVHkgxuef/7lyM37xTsqMY4PVJ8kn3ZCR2lPlxQF +8MPtrj05e7l5C1XV2QYC8CX/WjsD/aHtW83vBwIgek7b/gA3/2S5+wppQSio +E+8+hM43dEzSnRUEnaYm9RB0fUUE7+GqZVDbyU45i55+0f75q5UIyL75dyIT +LWkvIh5ZIwJSKdHfc9H6HdYgaioKNiX5QoVo/6Gn9/7UWwGNubEnKtCBfC36 +FiLiYPvTzq0VPaxWMBEzIwGWeldUFrnnQzUtb6VJAiN/XYTASxbhezSiKhck +CcKa8J8wWoW22jlvTBKcYvuXyqPdrRKevO2Tgh07Brcaolt9g0Nkm6Whw/iv +5gB0b3Z8rM8yGUgsL4kKQ38by3uQu0UGktJ2W0WjhUIH281qZeDJmynxeLT1 ++d2GPk9lwfpJxuMCdGWm8XROujxEndv07Ts6c/hn2MZQJXg0PxMR38AiNnsu +9oY8VgKXGgutFPS3eqmtj0eUoGSjzmgG2jDzD2kVN2WY9Z178BRdT/cuEbBc +DVJuDrOf0JPsvuNfz6nAq+ojqwxesYjUEevSEgc1SP381PMreiRT6MBOfzUw +CW32nkI/+9imOH5BDSiRsBCeRhbxtPc6p1mrBn1tFzvk0Jk6Yc63DNRhaEPc +se1ow9FsTrSsBng3XTIoRu/2E9bd3r8Gzp8suhb3mkVI2B6DvQtrYKJpSfpt +tHZM+gaGvCakZKlU56B5HtA2RztpgoNlvs5L9ONej71PnmtC9aHFz7/Rgi75 +ZxTur4WHdjN3jzVhPmuHrlG6FohV/aIHNrPIg13J/5uN1oIfIx+yTqPj6f19 +S+5oQWjrgZ8JaMbpY2PK7VpgkpHwvhgtUZ3Ks8tKG8qyfhyYQvvTWNpV6jog +aXaiJ6qFRRTVrp6KHfoDln6F77ffsEj15SmtH3y6UKUyOV+A9vzu1kGp6sLl +IWf5F+i0eg2tzd66oEIpJ42h1fwq381168I/4dWRFm9xv/nDa6hmPRDSENIb +RispKlMqbvqQbeYiaN3GIn9khYrMEwPQvLbCgrSzCJ1xblrX0QDyXFUqXNAp +6km9Pp4GoBw0vjUAzX+/sKghHN1dmpyK/pA2ujup2AB0x7pEF9CXUnxStdRp +sLTV1e6fDrzfWHs9V0FDiPfN4XPqYpGMYI2dT1uMYIexskJuD4u0hZEN57NM +QbPrbUlXP4uoenc6eh22gJ77Ys9XjrEIc7GsQOkEwLmh7IfPp1hEduzZUln6 +ZuCsc4jx5GGTUJr5xyRta4joXbbCUIRN6OO/GqVGt0BD//Cvcjk2ebw5ZGl6 +6zaY7ylUtl7LJplT/s/zr9tCf4t5XIkRm8xtkntTf8oOVOY9BM22ssknHv6J +/v0OIMype2W7l00CVh1NOKO+A3JbtWj9fmxScLCx9kbMTjDlmy6+EsEmEd/l +Z3UOOoGpWbJJfBybTG/f6vJqnzPoMXeq3r3HJqYeiZuGnXaBoag2T0Mpm7yT +T/Wvp+2Gg6H1q9mv2ETh4bnqnHV74FdldCvvJzZ51qdt7yjqAmksv4ABDpso +d3D8wsZdwGyEByz5OIR2IzH/Qd9eMBk/WT4swiGpS77rJb1whRS7G23/ynBI +2ab1H2Iq3CBjRNz/jCqHpGy4LPErzx2Gqnwu9OtwSOv/si7Q4jyg2k1t+KAR +hzx1uKsReNoTfD/WUXGEQyaO7OIJYHjBek+vxQYbDpneqnWAZeUNLu/elSc6 +cUjOeM9ciPE+8DCPW93oziGuGVm+XiI+EJ2/fNUyXw4peWK3j/+iDzTtFkmI +P8Qhporvflz64QO5kR5nZUI4RL3P78O/B/eDmtRVzeURHDIkfGjH3cH94CP2 +4JnIGQ5pi3f03baHDts2D6yXusgh18PThY+10eG2iIIh7xUOqa5Z/OFr6wvN +l65W6idxiJgnXKRV+kK4mkbm0ZscorLyVeuqal+Y52yoP43Wb3GQE6zxBcmP +uj2JaGdzj9z3z33B3K6yvwR9fVVY88nXvlB3U/fILFrh0yOxxve+MKO96XBU +ModoeMumeM76glQ6xRudgvvxYeXEGDKg2lHAYt9tDnl4ixPiaMyAPbbyKYfR +K9snLWVNGDCnTPvvBJq1ZbYjx4wBbkGhR66jM3V4eFs2MyA9VPJ3I3rFrISb +pBMDVjGHLPXv4HlcMVqefoQBlsdsTWbRTq82dPgdZcCJ1Zuc+e9ySA3PxnT9 +IAbwlanQxdC3QiyN6kIZ8FXhuu9atKPbtv3DkQyYlKCNu6ArNNwqdC4zgCcu +XqEUHV8VdfDZQwacF3/dTaVyyBGDZNPwHAbc6cwOC0Lb5xYvN8nDPH9WCEeh +hZJHcssfM6D7UaBcIjomeOdoWSkDRnqUqivRUVoah57WMeB5douOSBqH+Cc3 +H37Sy4DsmqjsbLTtihHz4D4GrIvfJlyMXhfDI2owwAAfGz1mJXok2Ohx8TAD +Rjvt51vQ+x3Tx4u+MUB5rKpoAu0qEBJQ+JMB/VNtxDSdQ7aFKATmyzBBfTR4 +tBZdl35he5IcE+SaLZ6/Rpu3TGqEKzChN9c+7h1af01zj5UyEx4G0hYH0fLd +kVb/W8OE9lfiroL3OGRs4ycZISMmGM/6d9qgr/Ld+9tvFxPsrrb/qEcLrRdJ +cdjDhLpN9Xtb0Oc9woNpe5lwzGEwtx0dXrpz7aI7E5oWcrUH0Psp3sSbdCZ0 +dNqk/UbTmuiMl0FYt7BxMMrgkO7ENcLqCTgvw6fhFrqAiB74msiEymVp1uno +8+NT9Y+vMSHi0plnmWgD2/pok2QmjBDTM4XoeB7fSYc0JhTE+tysR289eq8n +PJ8JGkGmrd/QSkp/GVsWMEHQOS97Aj3VdPQafxETSmyqjs2g72sSh/gSJvBJ +VE8uohc+fap9UMmEXP/1gZL3OaTUXjHnbSOuz04KN0LH/uQTuN7EhIXQj3mm +aHrO6H63FiZIyDx/Z4EWX1KpONTKhJupbvxb0YerXK/+6GLCneB/vuxBq2vf +DNMYxnlGyn+HoH92n2z/b4QJH6ImbY6j22KY+oVfmRAu59UUgY7uNxw1/Yb9 +tkw9PoP+kNLuteM7E1oj1efi0UlLJbZE8FLQ9HNHSja6evKTRyg/BZdVOe/y +0F8+5QUHCFBQ0p7IU4A2L7W+R19OgX7Je8NS9IhP+Px2CQrsrx7mreXmt98i +uUWKgjRTiY46tNkGSS0iTcEAeXrrJTpBNN+FJk+ByL6fC03ceuXnYkVVCkxU +g7U70VRWfqO0OgUuH4VudHPXJ5z4LLaGgnyxjMke7jxKSnSJFgWJ/C8v9HLr +UtsOfNOngEUflvyCrvwtdWrEgAIxBYb0f+jh//pu9BlScLC4V2gMvbE24kWH +CQXezQ1vWeihwwXKfwPuZ86rchq9wjXSqHwzBeypst2zaFMrG/tiawoaYoQG +5tDx8gMnsmxwfce9znn0syWFCenbKZixHzRbQA+yI7Nv2VNg1Lb6xm+0SYN0 +55WdmPfEBRXeB3jfxQNjF50pcGcUOfOhr9wt5Du7m4IfA+3H+dEDwbb6Ya4U +KBgsvSOAFvWW2RboTsHrNplbgmgT20Evf08KstJXX17K/X71yVhvHwpMj6/a +shz9TGj7fVc6BXf2iosJcftNy1Q4Myg4LrvQzLVo/2CrPUXh/9pApDC3X0vR +yNYDOH+iVlmEm6/85AL4U/BqPLmU6yv3t680O0yBW6yfhSi3/xVZHaMACjbW +rK/geiB8aNP6QAq0IjlrV6BFGMWuWsEULH+We4nrDTuij6qH4vkc8ujlmr7R +7oJSGOa9KqApho5bI5cqG06Bo2KOD9dl4sMlEhEUvBeyiue6f764STiKgjK3 +rgKuRb5E9wtE4/0soddxbfzObm7xFNaFRhq5/j9Ccj+x + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4ldsXB3BDVIZMmSNTCpdcB5Fhr6IiQ1HJnI5zXqWSKQlpVLdIaKAB +KTIkQ0SG60qSUNxM6Vcy1yXnHDKV5LfOH+/zPp9n7Xet7977n1eVftSZycfD +wzOOD/cd9FZvbXnbW8tRQ0lvyXoWsWRlGtGt80mIu7kf133pxtc1rKvJfe3K +s1zvZLwRFKG9JPszY4u4Lg4/9ULAuoXIvyzicH2pQa72VN6/pPGSlpUUuqIt +KO2XQSexY01ncz36oSnqRNV7UjUuvXolWmFY3WPG6iMRPXsph2s7dpRpSMtn +kp6501oaXfNrVDg8r5+ccjg0yXXXGdnIsoBBYhfa80QGzRK0Hp0yGCZ7xO7E +yKIF4wLdaLMjxHJlkb8cWlkitTGo6itJOi5Hl0c7Ks48ZFl9I4NrBy8qoql7 +ajK6y1jkrtuWslXoU2t2xBxqYRP3kp8zSuj3sh1/huZNkL/SvAtV0Ax3/4PX +4iaJi6joWjU05y5PxpOA78Rp34pidfQyNV3xCYNpEum1/Jcm+jrjxTZx6RnS +85nv73VolWy3U+tnZ0jVhGOCNtrkjwusI1VzpITqPaKHPmD8uWXU6hdZ1tG9 +ZAN6KvzYEiHNBdIr6+tqij5dJWyutew3uS0HNWboFDB55NeySM53sWqBmy+r +0To4jxfUyhXv26HzGq71nVHkgxuef/7lyM37xTsqMY4PVJ8kn3ZCR2lPlxQF +8MPtrj05e7l5C1XV2QYC8CX/WjsD/aHtW83vBwIgek7b/gA3/2S5+wppQSio +E+8+hM43dEzSnRUEnaYm9RB0fUUE7+GqZVDbyU45i55+0f75q5UIyL75dyIT +LWkvIh5ZIwJSKdHfc9H6HdYgaioKNiX5QoVo/6Gn9/7UWwGNubEnKtCBfC36 +FiLiYPvTzq0VPaxWMBEzIwGWeldUFrnnQzUtb6VJAiN/XYTASxbhezSiKhck +CcKa8J8wWoW22jlvTBKcYvuXyqPdrRKevO2Tgh07Brcaolt9g0Nkm6Whw/iv +5gB0b3Z8rM8yGUgsL4kKQ38by3uQu0UGktJ2W0WjhUIH281qZeDJmynxeLT1 ++d2GPk9lwfpJxuMCdGWm8XROujxEndv07Ts6c/hn2MZQJXg0PxMR38AiNnsu +9oY8VgKXGgutFPS3eqmtj0eUoGSjzmgG2jDzD2kVN2WY9Z178BRdT/cuEbBc +DVJuDrOf0JPsvuNfz6nAq+ojqwxesYjUEevSEgc1SP381PMreiRT6MBOfzUw +CW32nkI/+9imOH5BDSiRsBCeRhbxtPc6p1mrBn1tFzvk0Jk6Yc63DNRhaEPc +se1ow9FsTrSsBng3XTIoRu/2E9bd3r8Gzp8suhb3mkVI2B6DvQtrYKJpSfpt +tHZM+gaGvCakZKlU56B5HtA2RztpgoNlvs5L9ONej71PnmtC9aHFz7/Rgi75 +ZxTur4WHdjN3jzVhPmuHrlG6FohV/aIHNrPIg13J/5uN1oIfIx+yTqPj6f19 +S+5oQWjrgZ8JaMbpY2PK7VpgkpHwvhgtUZ3Ks8tKG8qyfhyYQvvTWNpV6jog +aXaiJ6qFRRTVrp6KHfoDln6F77ffsEj15SmtH3y6UKUyOV+A9vzu1kGp6sLl +IWf5F+i0eg2tzd66oEIpJ42h1fwq381168I/4dWRFm9xv/nDa6hmPRDSENIb +RispKlMqbvqQbeYiaN3GIn9khYrMEwPQvLbCgrSzCJ1xblrX0QDyXFUqXNAp +6km9Pp4GoBw0vjUAzX+/sKghHN1dmpyK/pA2ujup2AB0x7pEF9CXUnxStdRp +sLTV1e6fDrzfWHs9V0FDiPfN4XPqYpGMYI2dT1uMYIexskJuD4u0hZEN57NM +QbPrbUlXP4uoenc6eh22gJ77Ys9XjrEIc7GsQOkEwLmh7IfPp1hEduzZUln6 +ZuCsc4jx5GGTUJr5xyRta4joXbbCUIRN6OO/GqVGt0BD//Cvcjk2ebw5ZGl6 +6zaY7ylUtl7LJplT/s/zr9tCf4t5XIkRm8xtkntTf8oOVOY9BM22ssknHv6J +/v0OIMype2W7l00CVh1NOKO+A3JbtWj9fmxScLCx9kbMTjDlmy6+EsEmEd/l +Z3UOOoGpWbJJfBybTG/f6vJqnzPoMXeq3r3HJqYeiZuGnXaBoag2T0Mpm7yT +T/Wvp+2Gg6H1q9mv2ETh4bnqnHV74FdldCvvJzZ51qdt7yjqAmksv4ABDpso +d3D8wsZdwGyEByz5OIR2IzH/Qd9eMBk/WT4swiGpS77rJb1whRS7G23/ynBI +2ab1H2Iq3CBjRNz/jCqHpGy4LPErzx2Gqnwu9OtwSOv/si7Q4jyg2k1t+KAR +hzx1uKsReNoTfD/WUXGEQyaO7OIJYHjBek+vxQYbDpneqnWAZeUNLu/elSc6 +cUjOeM9ciPE+8DCPW93oziGuGVm+XiI+EJ2/fNUyXw4peWK3j/+iDzTtFkmI +P8Qhporvflz64QO5kR5nZUI4RL3P78O/B/eDmtRVzeURHDIkfGjH3cH94CP2 +4JnIGQ5pi3f03baHDts2D6yXusgh18PThY+10eG2iIIh7xUOqa5Z/OFr6wvN +l65W6idxiJgnXKRV+kK4mkbm0ZscorLyVeuqal+Y52yoP43Wb3GQE6zxBcmP +uj2JaGdzj9z3z33B3K6yvwR9fVVY88nXvlB3U/fILFrh0yOxxve+MKO96XBU +ModoeMumeM76glQ6xRudgvvxYeXEGDKg2lHAYt9tDnl4ixPiaMyAPbbyKYfR +K9snLWVNGDCnTPvvBJq1ZbYjx4wBbkGhR66jM3V4eFs2MyA9VPJ3I3rFrISb +pBMDVjGHLPXv4HlcMVqefoQBlsdsTWbRTq82dPgdZcCJ1Zuc+e9ySA3PxnT9 +IAbwlanQxdC3QiyN6kIZ8FXhuu9atKPbtv3DkQyYlKCNu6ArNNwqdC4zgCcu +XqEUHV8VdfDZQwacF3/dTaVyyBGDZNPwHAbc6cwOC0Lb5xYvN8nDPH9WCEeh +hZJHcssfM6D7UaBcIjomeOdoWSkDRnqUqivRUVoah57WMeB5douOSBqH+Cc3 +H37Sy4DsmqjsbLTtihHz4D4GrIvfJlyMXhfDI2owwAAfGz1mJXok2Ohx8TAD +Rjvt51vQ+x3Tx4u+MUB5rKpoAu0qEBJQ+JMB/VNtxDSdQ7aFKATmyzBBfTR4 +tBZdl35he5IcE+SaLZ6/Rpu3TGqEKzChN9c+7h1af01zj5UyEx4G0hYH0fLd +kVb/W8OE9lfiroL3OGRs4ycZISMmGM/6d9qgr/Ld+9tvFxPsrrb/qEcLrRdJ +cdjDhLpN9Xtb0Oc9woNpe5lwzGEwtx0dXrpz7aI7E5oWcrUH0Psp3sSbdCZ0 +dNqk/UbTmuiMl0FYt7BxMMrgkO7ENcLqCTgvw6fhFrqAiB74msiEymVp1uno +8+NT9Y+vMSHi0plnmWgD2/pok2QmjBDTM4XoeB7fSYc0JhTE+tysR289eq8n +PJ8JGkGmrd/QSkp/GVsWMEHQOS97Aj3VdPQafxETSmyqjs2g72sSh/gSJvBJ +VE8uohc+fap9UMmEXP/1gZL3OaTUXjHnbSOuz04KN0LH/uQTuN7EhIXQj3mm +aHrO6H63FiZIyDx/Z4EWX1KpONTKhJupbvxb0YerXK/+6GLCneB/vuxBq2vf +DNMYxnlGyn+HoH92n2z/b4QJH6ImbY6j22KY+oVfmRAu59UUgY7uNxw1/Yb9 +tkw9PoP+kNLuteM7E1oj1efi0UlLJbZE8FLQ9HNHSja6evKTRyg/BZdVOe/y +0F8+5QUHCFBQ0p7IU4A2L7W+R19OgX7Je8NS9IhP+Px2CQrsrx7mreXmt98i +uUWKgjRTiY46tNkGSS0iTcEAeXrrJTpBNN+FJk+ByL6fC03ceuXnYkVVCkxU +g7U70VRWfqO0OgUuH4VudHPXJ5z4LLaGgnyxjMke7jxKSnSJFgWJ/C8v9HLr +UtsOfNOngEUflvyCrvwtdWrEgAIxBYb0f+jh//pu9BlScLC4V2gMvbE24kWH +CQXezQ1vWeihwwXKfwPuZ86rchq9wjXSqHwzBeypst2zaFMrG/tiawoaYoQG +5tDx8gMnsmxwfce9znn0syWFCenbKZixHzRbQA+yI7Nv2VNg1Lb6xm+0SYN0 +55WdmPfEBRXeB3jfxQNjF50pcGcUOfOhr9wt5Du7m4IfA+3H+dEDwbb6Ya4U +KBgsvSOAFvWW2RboTsHrNplbgmgT20Evf08KstJXX17K/X71yVhvHwpMj6/a +shz9TGj7fVc6BXf2iosJcftNy1Q4Myg4LrvQzLVo/2CrPUXh/9pApDC3X0vR +yNYDOH+iVlmEm6/85AL4U/BqPLmU6yv3t680O0yBW6yfhSi3/xVZHaMACjbW +rK/geiB8aNP6QAq0IjlrV6BFGMWuWsEULH+We4nrDTuij6qH4vkc8ujlmr7R +7oJSGOa9KqApho5bI5cqG06Bo2KOD9dl4sMlEhEUvBeyiue6f764STiKgjK3 +rgKuRb5E9wtE4/0soddxbfzObm7xFNaFRhq5/j9Ccj+x + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9614345395399628, + 1.0398099753953551`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9614345395399649}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.9614345395399628, + 1.0398099753953551`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9614345395399649}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4ldsXB3BDVIZMmSNTCpdcB5Fhr6IiQ1HJnI5zXqWSKQlpVLdIaKAB +KTIkQ0SG60qSUNxM6Vcy1yXnHDKV5LfOH+/zPp9n7Xet7977n1eVftSZycfD +wzOOD/cd9FZvbXnbW8tRQ0lvyXoWsWRlGtGt80mIu7kf133pxtc1rKvJfe3K +s1zvZLwRFKG9JPszY4u4Lg4/9ULAuoXIvyzicH2pQa72VN6/pPGSlpUUuqIt +KO2XQSexY01ncz36oSnqRNV7UjUuvXolWmFY3WPG6iMRPXsph2s7dpRpSMtn +kp6501oaXfNrVDg8r5+ccjg0yXXXGdnIsoBBYhfa80QGzRK0Hp0yGCZ7xO7E +yKIF4wLdaLMjxHJlkb8cWlkitTGo6itJOi5Hl0c7Ks48ZFl9I4NrBy8qoql7 +ajK6y1jkrtuWslXoU2t2xBxqYRP3kp8zSuj3sh1/huZNkL/SvAtV0Ax3/4PX +4iaJi6joWjU05y5PxpOA78Rp34pidfQyNV3xCYNpEum1/Jcm+jrjxTZx6RnS +85nv73VolWy3U+tnZ0jVhGOCNtrkjwusI1VzpITqPaKHPmD8uWXU6hdZ1tG9 +ZAN6KvzYEiHNBdIr6+tqij5dJWyutew3uS0HNWboFDB55NeySM53sWqBmy+r +0To4jxfUyhXv26HzGq71nVHkgxuef/7lyM37xTsqMY4PVJ8kn3ZCR2lPlxQF +8MPtrj05e7l5C1XV2QYC8CX/WjsD/aHtW83vBwIgek7b/gA3/2S5+wppQSio +E+8+hM43dEzSnRUEnaYm9RB0fUUE7+GqZVDbyU45i55+0f75q5UIyL75dyIT +LWkvIh5ZIwJSKdHfc9H6HdYgaioKNiX5QoVo/6Gn9/7UWwGNubEnKtCBfC36 +FiLiYPvTzq0VPaxWMBEzIwGWeldUFrnnQzUtb6VJAiN/XYTASxbhezSiKhck +CcKa8J8wWoW22jlvTBKcYvuXyqPdrRKevO2Tgh07Brcaolt9g0Nkm6Whw/iv +5gB0b3Z8rM8yGUgsL4kKQ38by3uQu0UGktJ2W0WjhUIH281qZeDJmynxeLT1 ++d2GPk9lwfpJxuMCdGWm8XROujxEndv07Ts6c/hn2MZQJXg0PxMR38AiNnsu +9oY8VgKXGgutFPS3eqmtj0eUoGSjzmgG2jDzD2kVN2WY9Z178BRdT/cuEbBc +DVJuDrOf0JPsvuNfz6nAq+ojqwxesYjUEevSEgc1SP381PMreiRT6MBOfzUw +CW32nkI/+9imOH5BDSiRsBCeRhbxtPc6p1mrBn1tFzvk0Jk6Yc63DNRhaEPc +se1ow9FsTrSsBng3XTIoRu/2E9bd3r8Gzp8suhb3mkVI2B6DvQtrYKJpSfpt +tHZM+gaGvCakZKlU56B5HtA2RztpgoNlvs5L9ONej71PnmtC9aHFz7/Rgi75 +ZxTur4WHdjN3jzVhPmuHrlG6FohV/aIHNrPIg13J/5uN1oIfIx+yTqPj6f19 +S+5oQWjrgZ8JaMbpY2PK7VpgkpHwvhgtUZ3Ks8tKG8qyfhyYQvvTWNpV6jog +aXaiJ6qFRRTVrp6KHfoDln6F77ffsEj15SmtH3y6UKUyOV+A9vzu1kGp6sLl +IWf5F+i0eg2tzd66oEIpJ42h1fwq381168I/4dWRFm9xv/nDa6hmPRDSENIb +RispKlMqbvqQbeYiaN3GIn9khYrMEwPQvLbCgrSzCJ1xblrX0QDyXFUqXNAp +6km9Pp4GoBw0vjUAzX+/sKghHN1dmpyK/pA2ujup2AB0x7pEF9CXUnxStdRp +sLTV1e6fDrzfWHs9V0FDiPfN4XPqYpGMYI2dT1uMYIexskJuD4u0hZEN57NM +QbPrbUlXP4uoenc6eh22gJ77Ys9XjrEIc7GsQOkEwLmh7IfPp1hEduzZUln6 +ZuCsc4jx5GGTUJr5xyRta4joXbbCUIRN6OO/GqVGt0BD//Cvcjk2ebw5ZGl6 +6zaY7ylUtl7LJplT/s/zr9tCf4t5XIkRm8xtkntTf8oOVOY9BM22ssknHv6J +/v0OIMype2W7l00CVh1NOKO+A3JbtWj9fmxScLCx9kbMTjDlmy6+EsEmEd/l +Z3UOOoGpWbJJfBybTG/f6vJqnzPoMXeq3r3HJqYeiZuGnXaBoag2T0Mpm7yT +T/Wvp+2Gg6H1q9mv2ETh4bnqnHV74FdldCvvJzZ51qdt7yjqAmksv4ABDpso +d3D8wsZdwGyEByz5OIR2IzH/Qd9eMBk/WT4swiGpS77rJb1whRS7G23/ynBI +2ab1H2Iq3CBjRNz/jCqHpGy4LPErzx2Gqnwu9OtwSOv/si7Q4jyg2k1t+KAR +hzx1uKsReNoTfD/WUXGEQyaO7OIJYHjBek+vxQYbDpneqnWAZeUNLu/elSc6 +cUjOeM9ciPE+8DCPW93oziGuGVm+XiI+EJ2/fNUyXw4peWK3j/+iDzTtFkmI +P8Qhporvflz64QO5kR5nZUI4RL3P78O/B/eDmtRVzeURHDIkfGjH3cH94CP2 +4JnIGQ5pi3f03baHDts2D6yXusgh18PThY+10eG2iIIh7xUOqa5Z/OFr6wvN +l65W6idxiJgnXKRV+kK4mkbm0ZscorLyVeuqal+Y52yoP43Wb3GQE6zxBcmP +uj2JaGdzj9z3z33B3K6yvwR9fVVY88nXvlB3U/fILFrh0yOxxve+MKO96XBU +ModoeMumeM76glQ6xRudgvvxYeXEGDKg2lHAYt9tDnl4ixPiaMyAPbbyKYfR +K9snLWVNGDCnTPvvBJq1ZbYjx4wBbkGhR66jM3V4eFs2MyA9VPJ3I3rFrISb +pBMDVjGHLPXv4HlcMVqefoQBlsdsTWbRTq82dPgdZcCJ1Zuc+e9ySA3PxnT9 +IAbwlanQxdC3QiyN6kIZ8FXhuu9atKPbtv3DkQyYlKCNu6ArNNwqdC4zgCcu +XqEUHV8VdfDZQwacF3/dTaVyyBGDZNPwHAbc6cwOC0Lb5xYvN8nDPH9WCEeh +hZJHcssfM6D7UaBcIjomeOdoWSkDRnqUqivRUVoah57WMeB5douOSBqH+Cc3 +H37Sy4DsmqjsbLTtihHz4D4GrIvfJlyMXhfDI2owwAAfGz1mJXok2Ohx8TAD +Rjvt51vQ+x3Tx4u+MUB5rKpoAu0qEBJQ+JMB/VNtxDSdQ7aFKATmyzBBfTR4 +tBZdl35he5IcE+SaLZ6/Rpu3TGqEKzChN9c+7h1af01zj5UyEx4G0hYH0fLd +kVb/W8OE9lfiroL3OGRs4ycZISMmGM/6d9qgr/Ld+9tvFxPsrrb/qEcLrRdJ +cdjDhLpN9Xtb0Oc9woNpe5lwzGEwtx0dXrpz7aI7E5oWcrUH0Psp3sSbdCZ0 +dNqk/UbTmuiMl0FYt7BxMMrgkO7ENcLqCTgvw6fhFrqAiB74msiEymVp1uno +8+NT9Y+vMSHi0plnmWgD2/pok2QmjBDTM4XoeB7fSYc0JhTE+tysR289eq8n +PJ8JGkGmrd/QSkp/GVsWMEHQOS97Aj3VdPQafxETSmyqjs2g72sSh/gSJvBJ +VE8uohc+fap9UMmEXP/1gZL3OaTUXjHnbSOuz04KN0LH/uQTuN7EhIXQj3mm +aHrO6H63FiZIyDx/Z4EWX1KpONTKhJupbvxb0YerXK/+6GLCneB/vuxBq2vf +DNMYxnlGyn+HoH92n2z/b4QJH6ImbY6j22KY+oVfmRAu59UUgY7uNxw1/Yb9 +tkw9PoP+kNLuteM7E1oj1efi0UlLJbZE8FLQ9HNHSja6evKTRyg/BZdVOe/y +0F8+5QUHCFBQ0p7IU4A2L7W+R19OgX7Je8NS9IhP+Px2CQrsrx7mreXmt98i +uUWKgjRTiY46tNkGSS0iTcEAeXrrJTpBNN+FJk+ByL6fC03ceuXnYkVVCkxU +g7U70VRWfqO0OgUuH4VudHPXJ5z4LLaGgnyxjMke7jxKSnSJFgWJ/C8v9HLr +UtsOfNOngEUflvyCrvwtdWrEgAIxBYb0f+jh//pu9BlScLC4V2gMvbE24kWH +CQXezQ1vWeihwwXKfwPuZ86rchq9wjXSqHwzBeypst2zaFMrG/tiawoaYoQG +5tDx8gMnsmxwfce9znn0syWFCenbKZixHzRbQA+yI7Nv2VNg1Lb6xm+0SYN0 +55WdmPfEBRXeB3jfxQNjF50pcGcUOfOhr9wt5Du7m4IfA+3H+dEDwbb6Ya4U +KBgsvSOAFvWW2RboTsHrNplbgmgT20Evf08KstJXX17K/X71yVhvHwpMj6/a +shz9TGj7fVc6BXf2iosJcftNy1Q4Myg4LrvQzLVo/2CrPUXh/9pApDC3X0vR +yNYDOH+iVlmEm6/85AL4U/BqPLmU6yv3t680O0yBW6yfhSi3/xVZHaMACjbW +rK/geiB8aNP6QAq0IjlrV6BFGMWuWsEULH+We4nrDTuij6qH4vkc8ujlmr7R +7oJSGOa9KqApho5bI5cqG06Bo2KOD9dl4sMlEhEUvBeyiue6f764STiKgjK3 +rgKuRb5E9wtE4/0soddxbfzObm7xFNaFRhq5/j9Ccj+x + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9614345395399628, 1.0398099753953551`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9614345395399649}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.9614345395399649}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "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.9614345395399628, 1.0398099753953551`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913320330871353`*^9, 3.9920989689980583`*^9}, + CellLabel-> + "Out[140]=",ExpressionUUID->"24fdc32f-d3b8-3a4a-83ed-aabcc4992bc5"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918450725877113`*^9, {3.991845494880064*^9, 3.9918454954591675`*^9}}, + CellLabel-> + "In[141]:=",ExpressionUUID->"485e4bed-973b-f94f-bcff-d7674e9a7110"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.191862503219594`*^-282\\\", \ +\\\"5919012181389927685417441689600000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 141, 330, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991332033325203*^9, 3.992098969210045*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"ffcd9f00-d21b-b14e-a388-b6e0f70b2ac4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6868683253295287`*^-296\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 331, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991332033325203*^9, 3.992098969219557*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"559d13cf-7066-5144-8c88-ec7486b27994"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{\\\"-\\\", \ +\\\"9.174895033869737`*^-8\\\"}], \\\")\\\"}], \\\"44\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 332, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991332033325203*^9, 3.9920989692266006`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"bcef89f4-2de6-2f4e-a832-bf3a84c12720"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 141, 333, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991332033325203*^9, 3.992098969234556*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"5a164f18-c166-9e42-8c8a-496687d25f7c"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVlnc8lu8Xx+3sjChlj8fmGb7Ruq9jViiZSRKSvUcURWaIEJlZWSUjJHt7 +7AaSRMseqays8nt+/9z36/26r3Ne93XO5/pcR8TazeA6DRUVlSrl8f/34zvW +DASbdGxD08r6G/U1rGNIWPei8E10naET3XVTRXvkphBh4UgULk2dZ+ymjx63 +xAjRC6eifBELNTk3K+R8ysflj9BTNBw5q97j6oGGduwTfwnVopMzLNkWLnfR +vk/fJX8I9aD8DxWDnXbxKKc3y2NR6COqzmp4H6Cfg0rLIj85KyygbglNm9H8 +F8gOvUtd8lxFjxdptqn1axFV7kbdp+hVlHa4DLRcalEKHf94b94qOmKoI+kf +WYu6e2wFn46souXGs8nVrbVIymg39/rxNWTkGWTmSahDc/aSzz9Tr6OmoCTr +X2z1yDHhdtPbuA30czjVMaeuAblOS09WlW6hiowfvtNfmtFXi4+MrT1bqClZ +8N7iVjMyHL2nMDC1hcpxkgM/mFqQSt/szenD24jEcZLcINaCaF/kc/BGbKPx +3+wJ701aUEqACOZ7dQedu5r6bKmuBbVy86Ue4/iLoC5eP/RWK1KK6W7SlP2L +fM/ovj4c3ooKGPym9LX+olO+T0Ly41vR/a0RRceAv6hV/G5wclErMvmSSE6b ++4u4mnVP/njfihaecazttPxDn04x4y4rtCFmkVDJLypUMPn0dK3QSBvqPhmv +eEeTCj5M79+J+NKGwk0zlQUMqMB95uPN6bk2RBNXc/qyExUUVJ4QDdppQ9v/ +luw+PKaC9NyFXpJwO1ocNy56Q0MNS25LNAl27ag/RVK6pZ8anL3jzA4tt6Oo +KiXC1Y/UoEUVzym20Y7OvFU99m+aGmLPkl6J/mtHHfvMz57co3CoShcVewdq +uBHnUEOggQw3/15l+Q5UYrT1tPwRDXznfUYV59CBYjn6ZHIsaaGQx0r/68cO +VKss8PK8Ky0M+/cKHPjWgaYs3NCuPy3Mc39uPD7XgU6UcBtdTKaF31H6Nyw3 +OtDcWfPbbK9pget4cA0bVydSD/nx5uYJOqB5dFTxp1Yncn2GzCTP0kG1gz31 +hXOdKO1d/NSwCR1EBafnPjHsRL+Ejm4petIBO88LAzHLTpTZcEd0pojCv4ge +oX6daHN9v48BLz3c+9yw/3VBJxITsN7bE6MHuoEwavPnnei8RlVkCYEeIlW2 +e8dfdKL8BNNMxnP08IdrbK66oRMZKOZ0NYXQQ4j+luvAu05UYk88LPubHngy +VttCtzrR6IPQvNF/9FB/qaEF/nUiulcjCuGsDHBGZbD4Jw0ZmdH7q3+TZADl +SCZ9HCsZMea2OydbMICe1FXWPwJkZP3JqJm2nwGqBXh5pBAZMad/c/H4yABP +t6kLqdXJqMLMlf/LDAMsnT7Q8lqLjGjHIm7WUe8D/gKjePXzZJQ3WkfyUN4H +t6P1NpLNyUg35fT3zxr7QMlGdh+7JRmtXRyO0zXYBypXsip9r5GR5ocfPyRd +9oEWrdmChCMZzbwXLvqcuw/SkjoEl2+QUWxSiYlu+T6Q2mi6TH2LjI4aH6ev +a9wHijeCdBhvk1HEsKF10ug+qKZv1PsdTEZSQ+H8uuyMMOYpr4GPJSPHt0tx +tTcZgYWeptsml4y44m4iyQhG+LTBUF+VR0Z1egzLiYmMoDGGS94sICOWN0I6 +7mWMgH//ks+8mIyeDxjQS04zgsCB45UJlWRkFPOlMnGFEYJKNy8FvySjXV1n +axoqJpjADTPaviKjc/1hzROHmSDsmdADpnoyWu6tuZl4gQmkTb+8aG0lo0dR +mlI0FkwQNcnDZtBORpj24IibExOgN9/jRzrI6EHPIkknnAk+LlRKN3SRkUqk +3/eah0xg8idSU6CHjL6eoY/H5TBBB1NahmcvGeG7BZepG5hAbsSLfbufjEYj +ijPcepggo92MKPeajIJOq+hMjDABA3P1E4M3ZPSWrF9U85sJcATHuwHvyMgv +/LMJbo8JzlrI/AkcJCNhLSf6RFZmwDnID/gOkZFHZ6i1myQzMAsplmi8JyPB +KS2GDRIziB4O6WMZIaM+GqZnAcAMf6ZUJrop7CfSd472HDMc97ow4/+BjCQg +5nfkJWaI9327ID5KRoMWekkctsxw1Zy83E7hwNucx5I9mcH6pNaG6Ucy+liX +FJQXzQxcWcbC18fIKPzjRXHZFGZQilDQGacwaZOv+0UeMzTgxKPOfqLUg3fc +SeUFM0X/Tt+eUzjmv8z9zY3MMB4JxgzjZHTcyLJSs5cZruyfnjem8Kyn6MX+ +EWbga815kk7hxPipbYNJZrDK6Qz/QGHV8oLMjz+ZoepQQTLTBKV/r+3VLHcp +8cuZYwQKp/+QmZlhZIEh4DK6QOEzrD8iXXhYQOGOPeN1Cq/LlMmvibBAujnH +rhuFc896vLulwALNg3dIHhTWsyf5UJ9ggSMcipX2FN4NXz907zQLuPvkBppQ ++Gn+qwZ2Ixbgi7F8fJzCJh03LZMsWeAS7R8OHgrTTp6g43eh5Mvc+jxN+d9y +6n+FuTdZwEaFhrWEwleEW3Skw1kAqsozHCnMjIJ/liWwgOPWsyRBCr+6ovHw +aBYLXF7I2Omm1MsmgEG5sZgFiFdUhhwozJnePaZewwIz3P+JUFO4qTbqTm8H +CwRWXViIpdTfaVRXVP8dCxi0nidxU/jQH3byhwkWOBS/SRVL6V8nzzsHiwUW ++O+0gOkepb+eSg/ZpjdYYKAv/pQdhYUMjV840bLCUju+upOij5txHzf9+FmB +JO7jbUvRD64sPWNPihU4KCuKKHobGrgC4f+xwh6OUPdtmIzkWb5HPDzPCpct +6cuUKfr8FrbAWxrECq07JC1vir5j857XKcWwwrnH502dKfo/0e5qUZ/KCrWN +EccuD5BREtVqfncFK+BvTN0W6COjs/47SpNTrGD27mKWEpmMNlIbRx1+s0Lw +zIX6Scp5fFITGPDrLyscjGZ/G0k5r3/XaTv+8rJB6zXWrboWMnrhzmp46Cwb +eAY+/vyijoz607hvlpiwwerTYt+NGoqfdRzOUrNhg7i/hwvwFH84zCe96BzI +BjKfVz+HUfwktFUzpPUlG9B9mAitovhN5qLuU5N2NlhL4okpeEpGNTxGbxbf +skGFJ/212EIy+uFgfYR3iQ3+WlUkoicUfXAFVjqKsoN/jsBHqTQycj8Z/nFP +kR1aQsiHepPJKMo2Zi/xFDuMPuWwtEoio+a6dJ1mU3ZQu/xT1DOO4pfXaia5 +H7DDaZ35MwLhZLRd+Zu7cYcd7uYsZme7kdGBz5vHDJj2Q0aCx2i+MxkpMFJZ +zvLuhyfqTQ9yHMjomjn7c07iflhOcs8IoPh5P52shq39fkgZqmBoM6Hsx9jG +e//7/TD6n/tK3AkyyvF3WsBf5ICfXcSqG5T7Cd/CtBlxhQPOsN09nbPdiVro +iui/XOMA15CX7h0bnehrzJRwjDsHSPcnZ60tdyLB7CsX5yM5wKFXQ/bvZ8r9 +26HXkdPAARfWs75XNXaiBDalTC5RThCPrYxZ9ulEogaDxQ5SnBDhVkh7zKMT +vXjkXtuiwAl0h8UXApw70VuhkmHXE5xw3vCB+G/rTsROxLH0GXFC4ld7rvt6 +nSjK5JBfSAQnVN1o/RUv2YmCs3b115Y44b73wg/2oQ50AV/jIbvKCf+cWp+X +D3QgwVaveOstSvxyx7pudweq+77w9i09F2wZsKn6NHagFYmPeiWCXAAuX33D +CjuQ9fOX52wvcIHmn1rVZ7c6kGqt69nRSi7g6c+VURLoQFRDX6HhFjek+loy +tRi1I5y3rZ+RDA/81x5pmeTRiqbWk01YGnlhOV6TZ+hAM9Kedryd4HEIUg11 +dqIn6tD5qThZQcHDEGnRX0g/WI0W2q2DukuOgNZAPlu5WiVS4BwRUL8qANuM +r46O+pRR/GLdanxVEKaqUgQupj1Fp3+Y/RE1FgYOpbd7Wvx5KPNAyFCgqTA4 +nBYxu8OYh9ZOFJeNXxaG3ukJl/a1Jyg7asfukbUwmJfI1t0YeIK2JTNGmdyF +4VdqftndwCfoufVE7a8oYSB/unFUciYXcYxeDWhqEYZ1XFFvVmMOGm2zoTaT +E4Fz1gxrmHQW+qU6dvi2ogjkHD66/ZA5C+1r1VPKJoqADHk9Zm8xEx1tPm43 +oyIC3dmbaofLMlFiPceApyYl3uOa6JWjmUivqiEl2kIEjhnmxXCdfYzI+Qfw +jXEi8MOProgxMB29vNdhIbwuAorNx03sZFNQkXbfoYhNEeBZ/KNOx5GC0lgH +B3/siEBZyfzl2rVkFBT3RaueRhQydQLHnZqSKfPNtoIJhyjobnFM/DJIRt8L +8XvRsqLQytGQ5x70CLF3ZWT9sRKFjuV/66tLiciW3ufr69eicOnWzhtTpgR0 +WKjnw847URCskDLnXI9Hr1UE3ki9F4WN/zi0x7/Go6POnY3Bn0Rh0faT8NOa +eMQwxJN+dE4UftreSRBwiEf52dXGmdRi0KLwFdkPxKGpE5u9Lkpi8AlX6eCt +9QClGOu2pSmLAZr+02kk+gDpumXXdh0XgwfXnp24+C8WVeWeKRJRFYMT3zwF +2qpjUShTatj7c2Jw0ZXeSl46Fol/OAan7MTAOHPw0OkDMeiap/9L1jQxKJJW +bP5FE42OEj+/lH4sBpW4UIPoySjEvALVWtli0MTHd1CjIwqVezC8CioQA9kJ +icn94VFo1z2+Zq1CDHpYePXZWaLQI7fC+vE+MTicGjSeeDgS9TgPtT7/Kwal +xU2zJ/QiUIbc0bYeKnFQOb/22IcUgdyXUtpmaMUhwKmSpu9gBOJ1tmgXZhaH +nz9P3Ov+Go6sneY7EnnFwfPX6Yus3uFo12GvK0BRHH6dqy/PzwpDinayr3Wt +xOG1WU9MEnMo+uwg5FZiIw7/MRxPY/0Vgu47c3Ow24vD3j0945z3IWjeY0f/ +jas4fLvQ5i2WE4KeBPS91w8Qh6mfk4URx0LQwQSnCZNkSj7nCY86t2C011C8 +ZDkgDmkMrl+Efgeh0uasmNa34mBt/TpOYCwImbc9VBAdFof0YsfF/9qDUG2X +v/vkmDg4ytBh1UlByGtQZ+36nDjQuSWTV04EodnZxR1HWgkQtcTmYw4Hojdc +ciw+xyRA2si7zDssAGEuLvPpJyWg+NsUja1lACrtKu1qo0xdA3oHu4NOBKDY +AEIoh5YEPNJd5CWu+CPdmaN/iw0kIPar7HCglT/qrVX9+d1JAr4UWHkXnb6F +Oi0vDl3IlIC8+AYBZYIfUqpPeeGbIwGyBX49nJx+KI9n7EFmHmWq20i7y/nb +F4X2musuPZMA854jDwJf+CI1JevOiFcSwJdw2YlLyRe17HN51fRWAniWse51 +dAPVlwany9HiwDTn1Hyfhzdi0DU+nMyAg/2r4ZYvDb2R/rxkKjUzDrxqf4Z1 +/ueNZsUGHo1w4CAkW+T4pW0vxJ16MCFIEAfT/xZnzoZ5IaeQ5/eGj+FAy1sy +Rz7XEx0xHfEJcMeBzMpe0vKGO7JdL1qb8cLBHXrHd1YT7uhFgr+Xvi8OvL11 +Zzba3dHpAWEP3B0ccNLuMobHuyMvNSfnt9E4gIVQRSUFd9QnR3VNvBAHLpWs +MZafXJE/tcyF/gkc+PrsVlswOqMZDZZR3Dcc1MdprG5NOKEL95au3p3CQVaL +4MpApRMS31/mdnQRB6VnjhwXsnRC/fxKD7I3cVDyQZHDst4RCapgr725JeFX +rayVeIADanM10BU4Kwn/jAqU2SXskFwFadhXVxK6x3irtant0KP1A+aDepIw +cHDMsWbCFjkFfHCKMJEEPwdyAi7ZFh2IMo/+fU0S1D0XC06z2iLbfNvezjuS +wGbMN+K0Z4OYx2+dca2ShMfPRRcb911DR32fsj14JQnx8QJ/ahetkRXX6GBZ +nSS4SDX+HHtjjWrO/Hfld4skaKIvVNEp1sj25U8P7wFJ2D0mIZwla41aY23S +b81IwkPVKxVeplbIT/X8cvghKfAekMp2T76K8sYDKguPSEGK88BRRvur6I1v +sV+3oBQ8Lb/T90XlKsKVMtIyS0iB11p257lPFmjocPvBGIIU2PgPz/OLWSCF +NWXVh9pSUMQu/t+ZJnM0XSCSmBUgBa+D6IO/C5uhpdBvW7RBUsAZnXgzfv0S +WrHOuWofIgXuxgMGd3svISohEVlClBSkTUyYivpcQoeThdvakin5Du7dtxww +RRcihH5NV0iBQ0DB7bDIi6jBTkBXbl4KShwd1dUUjFG75sSLuCUpKIsUsnBn +Nka9Yo8Prv+UgsQPZzzfzxihD1/4Jxs3pKBlqPyqerYRWrnIf0uPThrKSXfO +FfAYIakzR4o8haRBSmCf+1lmQ5QoxUdXaywN5xrON/Dz6SNzC1zhpKk0WGRM +uST9vYDEE0na7ObS4NyfE3z0+wVUtXcu7pq1NHByPKf7XXwBDY8E87O7SYOR +zGyLquoFxB22pHTtnjScpxva1Z45jxK+NV9nq5cG3j1irsq0DjI7OMCo0iQN +vkHpIUGvdJDoubFi61ZpGB+ZWWSN0kEVNWu/X3VJw53q5qnfijpo8IH0Heth +aWAqGX30/Y424sQePnr1QxrcTvUAp/RZFJdm22UlLAPucGnr7HMt5Hsj2CtA +TAayVRKylCO0kIVBplAyTgYasz9NmVtrITnmEd9+ORkobBwRPcenhXpuakop +H5OB75o2Zg2Rmojmkngkq4EMbH8POvbIWwP5HPyu/SpEBs5ln43SdVdD5qt/ +N96Fy0DU9P0fT/TVkMYbvidLkTJgY5B1Soakhrgi9HdE4mQgciM+t21DFZVu +tBTfz5CBt3PjoUeCVNHc+yxW65cyMC210HM0HZBZ4pXXrLMyQOXxLn3k+ynE +X8l8xGlBBrQV5/8yPj+Fvrx7ZdfzQwb4bOmkU3xOIZv9XNThazJwwJg7r5fp +FHKNIpP2qGXBsoz2k/vRkyg4SDH1N78sdPz3nls7+zh66kxtM2IgC1TZPxsT +KpSRc3RpuZKJLJR9ZnC4FK6MFJ5d/ptwSRa4RoSCnc2UUcXsy0d6lrKQYboi +dINWGTVYO/Z0u8jC51AmPuZLR9Fb0yGF+nuycIjF794bzv/Qpkb+VlaTLEh6 +G77qqCaigPqskI5WWfCJc3LOSCIiKmIa23yHLJwkp5U/8yaifUIPRIh9slCj +lZvlQCIi3i2/sx0fZKEpK1bVvpKASCW6qXO/ZCHAQO+4WCMeufKsqRDE5IDM +avZ0bUEerUQvtxnj5GBkduPz4ZfyyIdmXveWtBykf5wxSA+URwE/JyzbFeVA +PdNhoIhHHkX3dN0zPikHGzJhR2Y15VDR7fTRm8ZyYFiq98O/WgZNTqv5tUXI +wa2DNDV3hyWRWtbrXJloOQgPyIrXyZdE2aZmAwmxchBdn17tfEMSWfR5iF5L +kgNOGe6HFXySaKw8u5/2iRwksgemnrTBoUH/f8KaTXLAETXb3c8ogdo463q6 +1uTA4/5mo/B9USTSp7mmuCkHwpGx1zttRVFQ6DvBlB05OKC76VGuKoqwP3Ne +9jTyMK+g++7ipgiqGz8oyMQhD4xckf6f7UVQRaGPp7asPHDxn3S1MRFGuacI +Rwas5GEpuTv2Tgs/ajvPHLJjIw/U1/ZqwyL50ferkwvS9vKweP+6108DfiQW +nFQX7ioPah3+dHMzR1AeeesS+MvDOR+RvcvcR1C+XltKZaI8ZK32W3Xe5kNF +Voa8aV2UfFxZrbcTeVG3p9yd7l55iDfiFn5uz4vmQuhnNgbkYbhA5LrMKV4k +VfDqpeGwPEzMZUQcmOVBTxeOGLN9kwebFt70OIwHPfOaehi0LU/xr2t/X+5w +o5IwH047eQUoUG1dO1fMiZZOXgkOwyvACjEsFh/JieTWNFafkBTgKuOujL4d +J3pmfeD912OU9YqBPdrinKgIVaaYaSmAcIXN+QM5HChv65fQ+asK8MdwgvuC +zn6U5uKs8F+8ArxokbtkXs6CxsSNsgwTFUB0TatC7BYL4hs/weGZrADJR8YU +9TRYUIo2y0rpYwXQKpqfffORGSVJPnsp9UwBaKlPVl5nYkZx32ZP8rcrwDv6 +E2b6txhRhPE1Hdp1BVCooSsYzKRHuXrj5tc3FaB9Y0tC050eNZw1du3aUYC2 +oQUzXjV6tHLqdHw0jSK83Bw6MDhDh8xxsh+4ORTh3E6VTboSHSL+WbEWl1UE +pzvsap+/0qBzv528wxUU4Znaa72FVzTIfnEqbI6gCJzqmJX2Axr0+MtI0XMV +Sr4cdRY6RIMYu+uWlbQUwVHKQVA3lxp9Tgm+pWmlCN695lOFvlRoK2EnutBG +kaI/ua1nhlToQIz3YyZ7RbjrZRK4qUiFzt61bRlwVYS5KFf0bXAPq3LQZjAJ +UIQ396/qRzf/w6KOcyXYJisCR4ZyIXflLvbfeM7TiAFFkPKged61s4lxKNhv +lr1VhAZu+S727k1sKVDh9OiQIuwwbdnVJ25ieWL1U1JjisBIq6mnpriJHXAa +FuqdUQSHYXL0iv0fbDuAVoeBCg/xA7c80fI6Npdv65lGjQcuncAvkS3r2Mjr +nlQFWgpPz75QeLiOVQjHzZkw4GHixdfZ0GPrmGMHf3ghKx5wB07f0Y9awz6y +HG09w4eHwd0+kc8nVjGyUurc+GE8kAbKY4K5V7GqK7v7PfjxoH/FyNp3cQWL +K2uzSBXCw92x74t6GSvYGUO93XkJPEjR+6k/p17BatLslaOJeDiVoWf7cOwX +liKdXjKgg4edea+/L4J/YGurWvkh5/DwUA7/qgb7gek1rWQc08NDQelJY6Od +JYzBUPt+vgEeLquneGreWMJ8ArYcb1/CQ5vpAZFlz0XM4M1FKXk7PASkXBM2 +DZ/HSlNphSft8XBYr2lJRGceY7IpO5jqiAcOvm0PV455rGWTYR+9Kx6eSGXa +RWfMYYqi1dPj3niw+H2x+lXdLMbqc+DJ/WA84Mf8FTbYZjB71JKmFkqpl6zU +afexaaydyTlhMwwPbjHDNFcKp7Fbme13bSLxIEQQyYlSm8bmuzwtT8bhgS9w +K57/zhRGPvxOYOkxHnpkDRb1mSaxwJaYFJ1aPCxdXJzgdPyKLUy0JG7V4aG1 +lEZ0Sv0rZrKzGlfYgAdziZmDLIJfMbmjZpG0LXjwSDpUUFTwBRstxt2qJ+Mh +/73Ru7shnzFicvNl2WFKvH/16iezcexx1crFj+/xYP2u753PoXGMcVDCKOID +Hi79K+HJG/mEfWG9rzs5hocQR6u5GqNP2P1g01Pp3yj9Fe1czbk4hs24/BZk ++YkHYSZpZSffUUw/WvxI7S88MM/EmTeeGsUaii4etFvBg2MNx9V4ulHs4WTj +/vZ1PNz28Cuqe/gBg0tRVP67eNhtuHN37dUIlqYh9n2BiQDcctJjAgffY+eO +GOf3ihPA8PqPMz7Sg1jKlELLZRwBbt6KadikGsSmShg/LUkSgOFs++3B0XdY +ADRw7JclwBNbTcXwyHfY8+tiAYYEAnRp6IV8Wn6LMZf/Nhg/RQCygIb3xfg3 +mMnNPhcXRIA+14b+SO03WK5a/r1/QICm4794jejeYMfemzYJaxDAichcXHzz +NWa/3Sx9XZsAv7//CNB0GsC6NGKplk0IYI9vuCfs0IdxsdsfCTQlQIcz53NN +2T7M4oPqUQ4zAjCti7v/+tGLbTisOxGvEOB4p0jCoHcvhntg/uHGNQKMF2pX +F9/rwUI/ypTuuRFA9lDEdF9XF6bq2nWZM5IAX57FB+5mdGDbo/NaHVEEoL4t +kLPm0IFVqbMSfe8TYDqx5cN15Q4Mx6fPOPGAAO3l7ahsqB1j7RirKnpEgAKh +mdQWznZslG+ZDfIIIG/qXb6V24olhHJsreQToLpg7+U+31ZM5ydxKr+QAMW7 +JY13dFqxpg7fOpZiAuTq3D+Ut96C5blR2314QamP3xe9ivMtmHvngRbXZko/ +dsejZXFNmAxeuViklQD56cyycWON2GTapUfDbZT8p4Rrnz1oxEzcM52PkwkQ +rNcluLPTgJ08IsXHMEAA1joXbHy8HmP0OOH5eIwAf/u+hGg01WJZ/Nbi/esE +8JNfOnFn/SV2nCSrYP2HAPrmO8fsW19iw2fXlDc3CUCTOT7VHfMSY/QN1xHf +JcDAUt+xBcmXmPu7Z54BNETw/yYvEm9VhUH4aovcfiKITErdT5mvwMYyGnrb +OIigmrpb7tdQgXlXhg2bchGBxizpfMuDCqzo68G5UB4i2H9LcQxWrsA4T5zc +P3GECI8mt3pqo19g33+GXomRIsIBoQlRFa1yLIDhvJ2YDBHUsh+4SQuVY7wC +Bz1qZYnAdPNh3fyvMkxb+2notAIRLEdVaBVMy7CKvIHiU/8RYdEjQWRGoRQL +ucS7/UOVCGODI4I9O8WYeHvho/OXiRAhNncrg6kIey23mTduTgTZ244RNm8L +Mb9HZyodLYjwzbT5aVlyIdbnMP8m3IoIq0YVlb2ShZgnhyxTsx0R5u6Pb62d +K8Car5T6K3oTgY7o8FzmRR5m3/UvstGHCBU0s+q5gXkYF0EvRceXCMp2PQz3 +z+dhtnS/quxuEcHCf79wxY8nGGsxYTkriAh/xrli5AlPMLPNKkuOGCLwB4af +3d+fg9FZ07tlxhLhyUxdv3JODlbaZ3xbLo4IF8NPFbXfyMGoszZSzzwkQlqJ +6wa1WA5WpKkyFJRKBNvbUyrUQdnYekK95u98ItT6Kn3Je5SJxcm3yQw2EcE4 +ZffbC/U0rEjlMlNwCxFMk0Nrzf+lYs3qa7OENiJwBwsw1tSmYsuXcPnxnUS4 +7D6qf5OYiumERwnp9xNBmPTZZlM2BWP4YnDg7UcivKjErENOPcIEFhZXAj9R +OIl/yYvmEaa0HvpOcYIIn4xCmne6krBrLK9iH3wlQlm2p0+fURLWonyESW+W +CM5e2Cl1n0TMP27y78Aa5TtGt8/ybQKWkB4wfnuDCF++n14VyEzAnhXw1Mtv +EqGo7rLbFecEbLThtF/MDhE4/+3wmDMnYEfni1d0aUigZCBb/59uPPZL1Xu2 +bz8JfFNEvXL6H2C2q3TvemRIQCxeXOgfjcIsnmm8NpcjwcxMuBpnUhRmYhXa +91OeBOXzhoXb+lGY1htaMg+BBLY1inHVA5EYrpim3kqZBIVNe5ZP++9h09ZU ++VvqJHj/zfH1sdlwbJwPcu9rkqCYeH1QuCQcG34bmCV0mgQHF+DkI69wrAPb +S9XUJkGFxwidJE04lnf4X2z8BRLcqq+2aZAIw2wGd/ykr5BAyPPm46ywEMw8 +8sSNBgsS5OYYf3hvGIIZgb+XniUJjt8xfh0uGoJplG67+FwjgeLcB3uj1mBM +PGrLutWBBM2bJtyBdMHYpOof3Us3SLCv89t94ewgzPrFinDkAxJI1g9xMOgE +YM7Bhrva8ST4e8Q0uXDLH/MxrPrA+pAEUxeIgbJP/bF76z6xcY9IECz7ZPct +sz9WemxrJ/kxCbwfs3Tqj97Etlr3RgqKSdBJgws4muaL0Ty0rLAvIcGCy7bP +srEvxmrTGiNTRgIpvGDGdS5fTJAhRKO0ggTb1K+tImNuYBraDBUva0kwu8qZ +53bfB4sbZI3p6CKBxA0/BvZiLyztiYt9eA8JpO1Ep955eGFPvF+rn+mj7Cd0 +iUb5mBdWzRu33feaBI3GcwqfezyxcTNu+6H3JHARq7zuseKBSU7yqX+fJAG5 ++VCs2lV3DF91SzBvmgSnr6jeNlF0x46Hfdq6PkupB+FG/NSeG6Yr+bh8foEE +XwOuGPhqumGeTsKCv3+TIGXnaeGncRcs4OTdrYpVEty5QJNBCHPBwti+D3uv +kyDUpn4iSMEFSyl7Er25SQIPFpFMqlBnLDeIzq5umwSbJn2jsnhnrFj/ulrA +LgnYDEpHNSecsCpRsgD2j9IvM3Y23WgnrGkVt7W3R4LHTFuLJ447Yf8DhCuA +uQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8lu8Xx+3sjChlj8fmGb7Ruq9jViiZSRKSvUcURWaIEJlZWSUjJHt7 +7AaSRMseqays8nt+/9z36/26r3Ne93XO5/pcR8TazeA6DRUVlSrl8f/34zvW +DASbdGxD08r6G/U1rGNIWPei8E10naET3XVTRXvkphBh4UgULk2dZ+ymjx63 +xAjRC6eifBELNTk3K+R8ysflj9BTNBw5q97j6oGGduwTfwnVopMzLNkWLnfR +vk/fJX8I9aD8DxWDnXbxKKc3y2NR6COqzmp4H6Cfg0rLIj85KyygbglNm9H8 +F8gOvUtd8lxFjxdptqn1axFV7kbdp+hVlHa4DLRcalEKHf94b94qOmKoI+kf +WYu6e2wFn46souXGs8nVrbVIymg39/rxNWTkGWTmSahDc/aSzz9Tr6OmoCTr +X2z1yDHhdtPbuA30czjVMaeuAblOS09WlW6hiowfvtNfmtFXi4+MrT1bqClZ +8N7iVjMyHL2nMDC1hcpxkgM/mFqQSt/szenD24jEcZLcINaCaF/kc/BGbKPx +3+wJ701aUEqACOZ7dQedu5r6bKmuBbVy86Ue4/iLoC5eP/RWK1KK6W7SlP2L +fM/ovj4c3ooKGPym9LX+olO+T0Ly41vR/a0RRceAv6hV/G5wclErMvmSSE6b ++4u4mnVP/njfihaecazttPxDn04x4y4rtCFmkVDJLypUMPn0dK3QSBvqPhmv +eEeTCj5M79+J+NKGwk0zlQUMqMB95uPN6bk2RBNXc/qyExUUVJ4QDdppQ9v/ +luw+PKaC9NyFXpJwO1ocNy56Q0MNS25LNAl27ag/RVK6pZ8anL3jzA4tt6Oo +KiXC1Y/UoEUVzym20Y7OvFU99m+aGmLPkl6J/mtHHfvMz57co3CoShcVewdq +uBHnUEOggQw3/15l+Q5UYrT1tPwRDXznfUYV59CBYjn6ZHIsaaGQx0r/68cO +VKss8PK8Ky0M+/cKHPjWgaYs3NCuPy3Mc39uPD7XgU6UcBtdTKaF31H6Nyw3 +OtDcWfPbbK9pget4cA0bVydSD/nx5uYJOqB5dFTxp1Yncn2GzCTP0kG1gz31 +hXOdKO1d/NSwCR1EBafnPjHsRL+Ejm4petIBO88LAzHLTpTZcEd0pojCv4ge +oX6daHN9v48BLz3c+9yw/3VBJxITsN7bE6MHuoEwavPnnei8RlVkCYEeIlW2 +e8dfdKL8BNNMxnP08IdrbK66oRMZKOZ0NYXQQ4j+luvAu05UYk88LPubHngy +VttCtzrR6IPQvNF/9FB/qaEF/nUiulcjCuGsDHBGZbD4Jw0ZmdH7q3+TZADl +SCZ9HCsZMea2OydbMICe1FXWPwJkZP3JqJm2nwGqBXh5pBAZMad/c/H4yABP +t6kLqdXJqMLMlf/LDAMsnT7Q8lqLjGjHIm7WUe8D/gKjePXzZJQ3WkfyUN4H +t6P1NpLNyUg35fT3zxr7QMlGdh+7JRmtXRyO0zXYBypXsip9r5GR5ocfPyRd +9oEWrdmChCMZzbwXLvqcuw/SkjoEl2+QUWxSiYlu+T6Q2mi6TH2LjI4aH6ev +a9wHijeCdBhvk1HEsKF10ug+qKZv1PsdTEZSQ+H8uuyMMOYpr4GPJSPHt0tx +tTcZgYWeptsml4y44m4iyQhG+LTBUF+VR0Z1egzLiYmMoDGGS94sICOWN0I6 +7mWMgH//ks+8mIyeDxjQS04zgsCB45UJlWRkFPOlMnGFEYJKNy8FvySjXV1n +axoqJpjADTPaviKjc/1hzROHmSDsmdADpnoyWu6tuZl4gQmkTb+8aG0lo0dR +mlI0FkwQNcnDZtBORpj24IibExOgN9/jRzrI6EHPIkknnAk+LlRKN3SRkUqk +3/eah0xg8idSU6CHjL6eoY/H5TBBB1NahmcvGeG7BZepG5hAbsSLfbufjEYj +ijPcepggo92MKPeajIJOq+hMjDABA3P1E4M3ZPSWrF9U85sJcATHuwHvyMgv +/LMJbo8JzlrI/AkcJCNhLSf6RFZmwDnID/gOkZFHZ6i1myQzMAsplmi8JyPB +KS2GDRIziB4O6WMZIaM+GqZnAcAMf6ZUJrop7CfSd472HDMc97ow4/+BjCQg +5nfkJWaI9327ID5KRoMWekkctsxw1Zy83E7hwNucx5I9mcH6pNaG6Ucy+liX +FJQXzQxcWcbC18fIKPzjRXHZFGZQilDQGacwaZOv+0UeMzTgxKPOfqLUg3fc +SeUFM0X/Tt+eUzjmv8z9zY3MMB4JxgzjZHTcyLJSs5cZruyfnjem8Kyn6MX+ +EWbga815kk7hxPipbYNJZrDK6Qz/QGHV8oLMjz+ZoepQQTLTBKV/r+3VLHcp +8cuZYwQKp/+QmZlhZIEh4DK6QOEzrD8iXXhYQOGOPeN1Cq/LlMmvibBAujnH +rhuFc896vLulwALNg3dIHhTWsyf5UJ9ggSMcipX2FN4NXz907zQLuPvkBppQ ++Gn+qwZ2Ixbgi7F8fJzCJh03LZMsWeAS7R8OHgrTTp6g43eh5Mvc+jxN+d9y +6n+FuTdZwEaFhrWEwleEW3Skw1kAqsozHCnMjIJ/liWwgOPWsyRBCr+6ovHw +aBYLXF7I2Omm1MsmgEG5sZgFiFdUhhwozJnePaZewwIz3P+JUFO4qTbqTm8H +CwRWXViIpdTfaVRXVP8dCxi0nidxU/jQH3byhwkWOBS/SRVL6V8nzzsHiwUW ++O+0gOkepb+eSg/ZpjdYYKAv/pQdhYUMjV840bLCUju+upOij5txHzf9+FmB +JO7jbUvRD64sPWNPihU4KCuKKHobGrgC4f+xwh6OUPdtmIzkWb5HPDzPCpct +6cuUKfr8FrbAWxrECq07JC1vir5j857XKcWwwrnH502dKfo/0e5qUZ/KCrWN +EccuD5BREtVqfncFK+BvTN0W6COjs/47SpNTrGD27mKWEpmMNlIbRx1+s0Lw +zIX6Scp5fFITGPDrLyscjGZ/G0k5r3/XaTv+8rJB6zXWrboWMnrhzmp46Cwb +eAY+/vyijoz607hvlpiwwerTYt+NGoqfdRzOUrNhg7i/hwvwFH84zCe96BzI +BjKfVz+HUfwktFUzpPUlG9B9mAitovhN5qLuU5N2NlhL4okpeEpGNTxGbxbf +skGFJ/212EIy+uFgfYR3iQ3+WlUkoicUfXAFVjqKsoN/jsBHqTQycj8Z/nFP +kR1aQsiHepPJKMo2Zi/xFDuMPuWwtEoio+a6dJ1mU3ZQu/xT1DOO4pfXaia5 +H7DDaZ35MwLhZLRd+Zu7cYcd7uYsZme7kdGBz5vHDJj2Q0aCx2i+MxkpMFJZ +zvLuhyfqTQ9yHMjomjn7c07iflhOcs8IoPh5P52shq39fkgZqmBoM6Hsx9jG +e//7/TD6n/tK3AkyyvF3WsBf5ICfXcSqG5T7Cd/CtBlxhQPOsN09nbPdiVro +iui/XOMA15CX7h0bnehrzJRwjDsHSPcnZ60tdyLB7CsX5yM5wKFXQ/bvZ8r9 +26HXkdPAARfWs75XNXaiBDalTC5RThCPrYxZ9ulEogaDxQ5SnBDhVkh7zKMT +vXjkXtuiwAl0h8UXApw70VuhkmHXE5xw3vCB+G/rTsROxLH0GXFC4ld7rvt6 +nSjK5JBfSAQnVN1o/RUv2YmCs3b115Y44b73wg/2oQ50AV/jIbvKCf+cWp+X +D3QgwVaveOstSvxyx7pudweq+77w9i09F2wZsKn6NHagFYmPeiWCXAAuX33D +CjuQ9fOX52wvcIHmn1rVZ7c6kGqt69nRSi7g6c+VURLoQFRDX6HhFjek+loy +tRi1I5y3rZ+RDA/81x5pmeTRiqbWk01YGnlhOV6TZ+hAM9Kedryd4HEIUg11 +dqIn6tD5qThZQcHDEGnRX0g/WI0W2q2DukuOgNZAPlu5WiVS4BwRUL8qANuM +r46O+pRR/GLdanxVEKaqUgQupj1Fp3+Y/RE1FgYOpbd7Wvx5KPNAyFCgqTA4 +nBYxu8OYh9ZOFJeNXxaG3ukJl/a1Jyg7asfukbUwmJfI1t0YeIK2JTNGmdyF +4VdqftndwCfoufVE7a8oYSB/unFUciYXcYxeDWhqEYZ1XFFvVmMOGm2zoTaT +E4Fz1gxrmHQW+qU6dvi2ogjkHD66/ZA5C+1r1VPKJoqADHk9Zm8xEx1tPm43 +oyIC3dmbaofLMlFiPceApyYl3uOa6JWjmUivqiEl2kIEjhnmxXCdfYzI+Qfw +jXEi8MOProgxMB29vNdhIbwuAorNx03sZFNQkXbfoYhNEeBZ/KNOx5GC0lgH +B3/siEBZyfzl2rVkFBT3RaueRhQydQLHnZqSKfPNtoIJhyjobnFM/DJIRt8L +8XvRsqLQytGQ5x70CLF3ZWT9sRKFjuV/66tLiciW3ufr69eicOnWzhtTpgR0 +WKjnw847URCskDLnXI9Hr1UE3ki9F4WN/zi0x7/Go6POnY3Bn0Rh0faT8NOa +eMQwxJN+dE4UftreSRBwiEf52dXGmdRi0KLwFdkPxKGpE5u9Lkpi8AlX6eCt +9QClGOu2pSmLAZr+02kk+gDpumXXdh0XgwfXnp24+C8WVeWeKRJRFYMT3zwF +2qpjUShTatj7c2Jw0ZXeSl46Fol/OAan7MTAOHPw0OkDMeiap/9L1jQxKJJW +bP5FE42OEj+/lH4sBpW4UIPoySjEvALVWtli0MTHd1CjIwqVezC8CioQA9kJ +icn94VFo1z2+Zq1CDHpYePXZWaLQI7fC+vE+MTicGjSeeDgS9TgPtT7/Kwal +xU2zJ/QiUIbc0bYeKnFQOb/22IcUgdyXUtpmaMUhwKmSpu9gBOJ1tmgXZhaH +nz9P3Ov+Go6sneY7EnnFwfPX6Yus3uFo12GvK0BRHH6dqy/PzwpDinayr3Wt +xOG1WU9MEnMo+uwg5FZiIw7/MRxPY/0Vgu47c3Ow24vD3j0945z3IWjeY0f/ +jas4fLvQ5i2WE4KeBPS91w8Qh6mfk4URx0LQwQSnCZNkSj7nCY86t2C011C8 +ZDkgDmkMrl+Efgeh0uasmNa34mBt/TpOYCwImbc9VBAdFof0YsfF/9qDUG2X +v/vkmDg4ytBh1UlByGtQZ+36nDjQuSWTV04EodnZxR1HWgkQtcTmYw4Hojdc +ciw+xyRA2si7zDssAGEuLvPpJyWg+NsUja1lACrtKu1qo0xdA3oHu4NOBKDY +AEIoh5YEPNJd5CWu+CPdmaN/iw0kIPar7HCglT/qrVX9+d1JAr4UWHkXnb6F +Oi0vDl3IlIC8+AYBZYIfUqpPeeGbIwGyBX49nJx+KI9n7EFmHmWq20i7y/nb +F4X2musuPZMA854jDwJf+CI1JevOiFcSwJdw2YlLyRe17HN51fRWAniWse51 +dAPVlwany9HiwDTn1Hyfhzdi0DU+nMyAg/2r4ZYvDb2R/rxkKjUzDrxqf4Z1 +/ueNZsUGHo1w4CAkW+T4pW0vxJ16MCFIEAfT/xZnzoZ5IaeQ5/eGj+FAy1sy +Rz7XEx0xHfEJcMeBzMpe0vKGO7JdL1qb8cLBHXrHd1YT7uhFgr+Xvi8OvL11 +Zzba3dHpAWEP3B0ccNLuMobHuyMvNSfnt9E4gIVQRSUFd9QnR3VNvBAHLpWs +MZafXJE/tcyF/gkc+PrsVlswOqMZDZZR3Dcc1MdprG5NOKEL95au3p3CQVaL +4MpApRMS31/mdnQRB6VnjhwXsnRC/fxKD7I3cVDyQZHDst4RCapgr725JeFX +rayVeIADanM10BU4Kwn/jAqU2SXskFwFadhXVxK6x3irtant0KP1A+aDepIw +cHDMsWbCFjkFfHCKMJEEPwdyAi7ZFh2IMo/+fU0S1D0XC06z2iLbfNvezjuS +wGbMN+K0Z4OYx2+dca2ShMfPRRcb911DR32fsj14JQnx8QJ/ahetkRXX6GBZ +nSS4SDX+HHtjjWrO/Hfld4skaKIvVNEp1sj25U8P7wFJ2D0mIZwla41aY23S +b81IwkPVKxVeplbIT/X8cvghKfAekMp2T76K8sYDKguPSEGK88BRRvur6I1v +sV+3oBQ8Lb/T90XlKsKVMtIyS0iB11p257lPFmjocPvBGIIU2PgPz/OLWSCF +NWXVh9pSUMQu/t+ZJnM0XSCSmBUgBa+D6IO/C5uhpdBvW7RBUsAZnXgzfv0S +WrHOuWofIgXuxgMGd3svISohEVlClBSkTUyYivpcQoeThdvakin5Du7dtxww +RRcihH5NV0iBQ0DB7bDIi6jBTkBXbl4KShwd1dUUjFG75sSLuCUpKIsUsnBn +Nka9Yo8Prv+UgsQPZzzfzxihD1/4Jxs3pKBlqPyqerYRWrnIf0uPThrKSXfO +FfAYIakzR4o8haRBSmCf+1lmQ5QoxUdXaywN5xrON/Dz6SNzC1zhpKk0WGRM +uST9vYDEE0na7ObS4NyfE3z0+wVUtXcu7pq1NHByPKf7XXwBDY8E87O7SYOR +zGyLquoFxB22pHTtnjScpxva1Z45jxK+NV9nq5cG3j1irsq0DjI7OMCo0iQN +vkHpIUGvdJDoubFi61ZpGB+ZWWSN0kEVNWu/X3VJw53q5qnfijpo8IH0Heth +aWAqGX30/Y424sQePnr1QxrcTvUAp/RZFJdm22UlLAPucGnr7HMt5Hsj2CtA +TAayVRKylCO0kIVBplAyTgYasz9NmVtrITnmEd9+ORkobBwRPcenhXpuakop +H5OB75o2Zg2Rmojmkngkq4EMbH8POvbIWwP5HPyu/SpEBs5ln43SdVdD5qt/ +N96Fy0DU9P0fT/TVkMYbvidLkTJgY5B1Soakhrgi9HdE4mQgciM+t21DFZVu +tBTfz5CBt3PjoUeCVNHc+yxW65cyMC210HM0HZBZ4pXXrLMyQOXxLn3k+ynE +X8l8xGlBBrQV5/8yPj+Fvrx7ZdfzQwb4bOmkU3xOIZv9XNThazJwwJg7r5fp +FHKNIpP2qGXBsoz2k/vRkyg4SDH1N78sdPz3nls7+zh66kxtM2IgC1TZPxsT +KpSRc3RpuZKJLJR9ZnC4FK6MFJ5d/ptwSRa4RoSCnc2UUcXsy0d6lrKQYboi +dINWGTVYO/Z0u8jC51AmPuZLR9Fb0yGF+nuycIjF794bzv/Qpkb+VlaTLEh6 +G77qqCaigPqskI5WWfCJc3LOSCIiKmIa23yHLJwkp5U/8yaifUIPRIh9slCj +lZvlQCIi3i2/sx0fZKEpK1bVvpKASCW6qXO/ZCHAQO+4WCMeufKsqRDE5IDM +avZ0bUEerUQvtxnj5GBkduPz4ZfyyIdmXveWtBykf5wxSA+URwE/JyzbFeVA +PdNhoIhHHkX3dN0zPikHGzJhR2Y15VDR7fTRm8ZyYFiq98O/WgZNTqv5tUXI +wa2DNDV3hyWRWtbrXJloOQgPyIrXyZdE2aZmAwmxchBdn17tfEMSWfR5iF5L +kgNOGe6HFXySaKw8u5/2iRwksgemnrTBoUH/f8KaTXLAETXb3c8ogdo463q6 +1uTA4/5mo/B9USTSp7mmuCkHwpGx1zttRVFQ6DvBlB05OKC76VGuKoqwP3Ne +9jTyMK+g++7ipgiqGz8oyMQhD4xckf6f7UVQRaGPp7asPHDxn3S1MRFGuacI +Rwas5GEpuTv2Tgs/ajvPHLJjIw/U1/ZqwyL50ferkwvS9vKweP+6108DfiQW +nFQX7ioPah3+dHMzR1AeeesS+MvDOR+RvcvcR1C+XltKZaI8ZK32W3Xe5kNF +Voa8aV2UfFxZrbcTeVG3p9yd7l55iDfiFn5uz4vmQuhnNgbkYbhA5LrMKV4k +VfDqpeGwPEzMZUQcmOVBTxeOGLN9kwebFt70OIwHPfOaehi0LU/xr2t/X+5w +o5IwH047eQUoUG1dO1fMiZZOXgkOwyvACjEsFh/JieTWNFafkBTgKuOujL4d +J3pmfeD912OU9YqBPdrinKgIVaaYaSmAcIXN+QM5HChv65fQ+asK8MdwgvuC +zn6U5uKs8F+8ArxokbtkXs6CxsSNsgwTFUB0TatC7BYL4hs/weGZrADJR8YU +9TRYUIo2y0rpYwXQKpqfffORGSVJPnsp9UwBaKlPVl5nYkZx32ZP8rcrwDv6 +E2b6txhRhPE1Hdp1BVCooSsYzKRHuXrj5tc3FaB9Y0tC050eNZw1du3aUYC2 +oQUzXjV6tHLqdHw0jSK83Bw6MDhDh8xxsh+4ORTh3E6VTboSHSL+WbEWl1UE +pzvsap+/0qBzv528wxUU4Znaa72FVzTIfnEqbI6gCJzqmJX2Axr0+MtI0XMV +Sr4cdRY6RIMYu+uWlbQUwVHKQVA3lxp9Tgm+pWmlCN695lOFvlRoK2EnutBG +kaI/ua1nhlToQIz3YyZ7RbjrZRK4qUiFzt61bRlwVYS5KFf0bXAPq3LQZjAJ +UIQ396/qRzf/w6KOcyXYJisCR4ZyIXflLvbfeM7TiAFFkPKged61s4lxKNhv +lr1VhAZu+S727k1sKVDh9OiQIuwwbdnVJ25ieWL1U1JjisBIq6mnpriJHXAa +FuqdUQSHYXL0iv0fbDuAVoeBCg/xA7c80fI6Npdv65lGjQcuncAvkS3r2Mjr +nlQFWgpPz75QeLiOVQjHzZkw4GHixdfZ0GPrmGMHf3ghKx5wB07f0Y9awz6y +HG09w4eHwd0+kc8nVjGyUurc+GE8kAbKY4K5V7GqK7v7PfjxoH/FyNp3cQWL +K2uzSBXCw92x74t6GSvYGUO93XkJPEjR+6k/p17BatLslaOJeDiVoWf7cOwX +liKdXjKgg4edea+/L4J/YGurWvkh5/DwUA7/qgb7gek1rWQc08NDQelJY6Od +JYzBUPt+vgEeLquneGreWMJ8ArYcb1/CQ5vpAZFlz0XM4M1FKXk7PASkXBM2 +DZ/HSlNphSft8XBYr2lJRGceY7IpO5jqiAcOvm0PV455rGWTYR+9Kx6eSGXa +RWfMYYqi1dPj3niw+H2x+lXdLMbqc+DJ/WA84Mf8FTbYZjB71JKmFkqpl6zU +afexaaydyTlhMwwPbjHDNFcKp7Fbme13bSLxIEQQyYlSm8bmuzwtT8bhgS9w +K57/zhRGPvxOYOkxHnpkDRb1mSaxwJaYFJ1aPCxdXJzgdPyKLUy0JG7V4aG1 +lEZ0Sv0rZrKzGlfYgAdziZmDLIJfMbmjZpG0LXjwSDpUUFTwBRstxt2qJ+Mh +/73Ru7shnzFicvNl2WFKvH/16iezcexx1crFj+/xYP2u753PoXGMcVDCKOID +Hi79K+HJG/mEfWG9rzs5hocQR6u5GqNP2P1g01Pp3yj9Fe1czbk4hs24/BZk ++YkHYSZpZSffUUw/WvxI7S88MM/EmTeeGsUaii4etFvBg2MNx9V4ulHs4WTj +/vZ1PNz28Cuqe/gBg0tRVP67eNhtuHN37dUIlqYh9n2BiQDcctJjAgffY+eO +GOf3ihPA8PqPMz7Sg1jKlELLZRwBbt6KadikGsSmShg/LUkSgOFs++3B0XdY +ADRw7JclwBNbTcXwyHfY8+tiAYYEAnRp6IV8Wn6LMZf/Nhg/RQCygIb3xfg3 +mMnNPhcXRIA+14b+SO03WK5a/r1/QICm4794jejeYMfemzYJaxDAichcXHzz +NWa/3Sx9XZsAv7//CNB0GsC6NGKplk0IYI9vuCfs0IdxsdsfCTQlQIcz53NN +2T7M4oPqUQ4zAjCti7v/+tGLbTisOxGvEOB4p0jCoHcvhntg/uHGNQKMF2pX +F9/rwUI/ypTuuRFA9lDEdF9XF6bq2nWZM5IAX57FB+5mdGDbo/NaHVEEoL4t +kLPm0IFVqbMSfe8TYDqx5cN15Q4Mx6fPOPGAAO3l7ahsqB1j7RirKnpEgAKh +mdQWznZslG+ZDfIIIG/qXb6V24olhHJsreQToLpg7+U+31ZM5ydxKr+QAMW7 +JY13dFqxpg7fOpZiAuTq3D+Ut96C5blR2314QamP3xe9ivMtmHvngRbXZko/ +dsejZXFNmAxeuViklQD56cyycWON2GTapUfDbZT8p4Rrnz1oxEzcM52PkwkQ +rNcluLPTgJ08IsXHMEAA1joXbHy8HmP0OOH5eIwAf/u+hGg01WJZ/Nbi/esE +8JNfOnFn/SV2nCSrYP2HAPrmO8fsW19iw2fXlDc3CUCTOT7VHfMSY/QN1xHf +JcDAUt+xBcmXmPu7Z54BNETw/yYvEm9VhUH4aovcfiKITErdT5mvwMYyGnrb +OIigmrpb7tdQgXlXhg2bchGBxizpfMuDCqzo68G5UB4i2H9LcQxWrsA4T5zc +P3GECI8mt3pqo19g33+GXomRIsIBoQlRFa1yLIDhvJ2YDBHUsh+4SQuVY7wC +Bz1qZYnAdPNh3fyvMkxb+2notAIRLEdVaBVMy7CKvIHiU/8RYdEjQWRGoRQL +ucS7/UOVCGODI4I9O8WYeHvho/OXiRAhNncrg6kIey23mTduTgTZ244RNm8L +Mb9HZyodLYjwzbT5aVlyIdbnMP8m3IoIq0YVlb2ShZgnhyxTsx0R5u6Pb62d +K8Car5T6K3oTgY7o8FzmRR5m3/UvstGHCBU0s+q5gXkYF0EvRceXCMp2PQz3 +z+dhtnS/quxuEcHCf79wxY8nGGsxYTkriAh/xrli5AlPMLPNKkuOGCLwB4af +3d+fg9FZ07tlxhLhyUxdv3JODlbaZ3xbLo4IF8NPFbXfyMGoszZSzzwkQlqJ +6wa1WA5WpKkyFJRKBNvbUyrUQdnYekK95u98ItT6Kn3Je5SJxcm3yQw2EcE4 +ZffbC/U0rEjlMlNwCxFMk0Nrzf+lYs3qa7OENiJwBwsw1tSmYsuXcPnxnUS4 +7D6qf5OYiumERwnp9xNBmPTZZlM2BWP4YnDg7UcivKjErENOPcIEFhZXAj9R +OIl/yYvmEaa0HvpOcYIIn4xCmne6krBrLK9iH3wlQlm2p0+fURLWonyESW+W +CM5e2Cl1n0TMP27y78Aa5TtGt8/ybQKWkB4wfnuDCF++n14VyEzAnhXw1Mtv +EqGo7rLbFecEbLThtF/MDhE4/+3wmDMnYEfni1d0aUigZCBb/59uPPZL1Xu2 +bz8JfFNEvXL6H2C2q3TvemRIQCxeXOgfjcIsnmm8NpcjwcxMuBpnUhRmYhXa +91OeBOXzhoXb+lGY1htaMg+BBLY1inHVA5EYrpim3kqZBIVNe5ZP++9h09ZU ++VvqJHj/zfH1sdlwbJwPcu9rkqCYeH1QuCQcG34bmCV0mgQHF+DkI69wrAPb +S9XUJkGFxwidJE04lnf4X2z8BRLcqq+2aZAIw2wGd/ykr5BAyPPm46ywEMw8 +8sSNBgsS5OYYf3hvGIIZgb+XniUJjt8xfh0uGoJplG67+FwjgeLcB3uj1mBM +PGrLutWBBM2bJtyBdMHYpOof3Us3SLCv89t94ewgzPrFinDkAxJI1g9xMOgE +YM7Bhrva8ST4e8Q0uXDLH/MxrPrA+pAEUxeIgbJP/bF76z6xcY9IECz7ZPct +sz9WemxrJ/kxCbwfs3Tqj97Etlr3RgqKSdBJgws4muaL0Ty0rLAvIcGCy7bP +srEvxmrTGiNTRgIpvGDGdS5fTJAhRKO0ggTb1K+tImNuYBraDBUva0kwu8qZ +53bfB4sbZI3p6CKBxA0/BvZiLyztiYt9eA8JpO1Ep955eGFPvF+rn+mj7Cd0 +iUb5mBdWzRu33feaBI3GcwqfezyxcTNu+6H3JHARq7zuseKBSU7yqX+fJAG5 ++VCs2lV3DF91SzBvmgSnr6jeNlF0x46Hfdq6PkupB+FG/NSeG6Yr+bh8foEE +XwOuGPhqumGeTsKCv3+TIGXnaeGncRcs4OTdrYpVEty5QJNBCHPBwti+D3uv +kyDUpn4iSMEFSyl7Er25SQIPFpFMqlBnLDeIzq5umwSbJn2jsnhnrFj/ulrA +LgnYDEpHNSecsCpRsgD2j9IvM3Y23WgnrGkVt7W3R4LHTFuLJ447Yf8DhCuA +uQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.17863287939476}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.17863287939476}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8lu8Xx+3sjChlj8fmGb7Ruq9jViiZSRKSvUcURWaIEJlZWSUjJHt7 +7AaSRMseqays8nt+/9z36/26r3Ne93XO5/pcR8TazeA6DRUVlSrl8f/34zvW +DASbdGxD08r6G/U1rGNIWPei8E10naET3XVTRXvkphBh4UgULk2dZ+ymjx63 +xAjRC6eifBELNTk3K+R8ysflj9BTNBw5q97j6oGGduwTfwnVopMzLNkWLnfR +vk/fJX8I9aD8DxWDnXbxKKc3y2NR6COqzmp4H6Cfg0rLIj85KyygbglNm9H8 +F8gOvUtd8lxFjxdptqn1axFV7kbdp+hVlHa4DLRcalEKHf94b94qOmKoI+kf +WYu6e2wFn46souXGs8nVrbVIymg39/rxNWTkGWTmSahDc/aSzz9Tr6OmoCTr +X2z1yDHhdtPbuA30czjVMaeuAblOS09WlW6hiowfvtNfmtFXi4+MrT1bqClZ +8N7iVjMyHL2nMDC1hcpxkgM/mFqQSt/szenD24jEcZLcINaCaF/kc/BGbKPx +3+wJ701aUEqACOZ7dQedu5r6bKmuBbVy86Ue4/iLoC5eP/RWK1KK6W7SlP2L +fM/ovj4c3ooKGPym9LX+olO+T0Ly41vR/a0RRceAv6hV/G5wclErMvmSSE6b ++4u4mnVP/njfihaecazttPxDn04x4y4rtCFmkVDJLypUMPn0dK3QSBvqPhmv +eEeTCj5M79+J+NKGwk0zlQUMqMB95uPN6bk2RBNXc/qyExUUVJ4QDdppQ9v/ +luw+PKaC9NyFXpJwO1ocNy56Q0MNS25LNAl27ag/RVK6pZ8anL3jzA4tt6Oo +KiXC1Y/UoEUVzym20Y7OvFU99m+aGmLPkl6J/mtHHfvMz57co3CoShcVewdq +uBHnUEOggQw3/15l+Q5UYrT1tPwRDXznfUYV59CBYjn6ZHIsaaGQx0r/68cO +VKss8PK8Ky0M+/cKHPjWgaYs3NCuPy3Mc39uPD7XgU6UcBtdTKaF31H6Nyw3 +OtDcWfPbbK9pget4cA0bVydSD/nx5uYJOqB5dFTxp1Yncn2GzCTP0kG1gz31 +hXOdKO1d/NSwCR1EBafnPjHsRL+Ejm4petIBO88LAzHLTpTZcEd0pojCv4ge +oX6daHN9v48BLz3c+9yw/3VBJxITsN7bE6MHuoEwavPnnei8RlVkCYEeIlW2 +e8dfdKL8BNNMxnP08IdrbK66oRMZKOZ0NYXQQ4j+luvAu05UYk88LPubHngy +VttCtzrR6IPQvNF/9FB/qaEF/nUiulcjCuGsDHBGZbD4Jw0ZmdH7q3+TZADl +SCZ9HCsZMea2OydbMICe1FXWPwJkZP3JqJm2nwGqBXh5pBAZMad/c/H4yABP +t6kLqdXJqMLMlf/LDAMsnT7Q8lqLjGjHIm7WUe8D/gKjePXzZJQ3WkfyUN4H +t6P1NpLNyUg35fT3zxr7QMlGdh+7JRmtXRyO0zXYBypXsip9r5GR5ocfPyRd +9oEWrdmChCMZzbwXLvqcuw/SkjoEl2+QUWxSiYlu+T6Q2mi6TH2LjI4aH6ev +a9wHijeCdBhvk1HEsKF10ug+qKZv1PsdTEZSQ+H8uuyMMOYpr4GPJSPHt0tx +tTcZgYWeptsml4y44m4iyQhG+LTBUF+VR0Z1egzLiYmMoDGGS94sICOWN0I6 +7mWMgH//ks+8mIyeDxjQS04zgsCB45UJlWRkFPOlMnGFEYJKNy8FvySjXV1n +axoqJpjADTPaviKjc/1hzROHmSDsmdADpnoyWu6tuZl4gQmkTb+8aG0lo0dR +mlI0FkwQNcnDZtBORpj24IibExOgN9/jRzrI6EHPIkknnAk+LlRKN3SRkUqk +3/eah0xg8idSU6CHjL6eoY/H5TBBB1NahmcvGeG7BZepG5hAbsSLfbufjEYj +ijPcepggo92MKPeajIJOq+hMjDABA3P1E4M3ZPSWrF9U85sJcATHuwHvyMgv +/LMJbo8JzlrI/AkcJCNhLSf6RFZmwDnID/gOkZFHZ6i1myQzMAsplmi8JyPB +KS2GDRIziB4O6WMZIaM+GqZnAcAMf6ZUJrop7CfSd472HDMc97ow4/+BjCQg +5nfkJWaI9327ID5KRoMWekkctsxw1Zy83E7hwNucx5I9mcH6pNaG6Ucy+liX +FJQXzQxcWcbC18fIKPzjRXHZFGZQilDQGacwaZOv+0UeMzTgxKPOfqLUg3fc +SeUFM0X/Tt+eUzjmv8z9zY3MMB4JxgzjZHTcyLJSs5cZruyfnjem8Kyn6MX+ +EWbga815kk7hxPipbYNJZrDK6Qz/QGHV8oLMjz+ZoepQQTLTBKV/r+3VLHcp +8cuZYwQKp/+QmZlhZIEh4DK6QOEzrD8iXXhYQOGOPeN1Cq/LlMmvibBAujnH +rhuFc896vLulwALNg3dIHhTWsyf5UJ9ggSMcipX2FN4NXz907zQLuPvkBppQ ++Gn+qwZ2Ixbgi7F8fJzCJh03LZMsWeAS7R8OHgrTTp6g43eh5Mvc+jxN+d9y +6n+FuTdZwEaFhrWEwleEW3Skw1kAqsozHCnMjIJ/liWwgOPWsyRBCr+6ovHw +aBYLXF7I2Omm1MsmgEG5sZgFiFdUhhwozJnePaZewwIz3P+JUFO4qTbqTm8H +CwRWXViIpdTfaVRXVP8dCxi0nidxU/jQH3byhwkWOBS/SRVL6V8nzzsHiwUW ++O+0gOkepb+eSg/ZpjdYYKAv/pQdhYUMjV840bLCUju+upOij5txHzf9+FmB +JO7jbUvRD64sPWNPihU4KCuKKHobGrgC4f+xwh6OUPdtmIzkWb5HPDzPCpct +6cuUKfr8FrbAWxrECq07JC1vir5j857XKcWwwrnH502dKfo/0e5qUZ/KCrWN +EccuD5BREtVqfncFK+BvTN0W6COjs/47SpNTrGD27mKWEpmMNlIbRx1+s0Lw +zIX6Scp5fFITGPDrLyscjGZ/G0k5r3/XaTv+8rJB6zXWrboWMnrhzmp46Cwb +eAY+/vyijoz607hvlpiwwerTYt+NGoqfdRzOUrNhg7i/hwvwFH84zCe96BzI +BjKfVz+HUfwktFUzpPUlG9B9mAitovhN5qLuU5N2NlhL4okpeEpGNTxGbxbf +skGFJ/212EIy+uFgfYR3iQ3+WlUkoicUfXAFVjqKsoN/jsBHqTQycj8Z/nFP +kR1aQsiHepPJKMo2Zi/xFDuMPuWwtEoio+a6dJ1mU3ZQu/xT1DOO4pfXaia5 +H7DDaZ35MwLhZLRd+Zu7cYcd7uYsZme7kdGBz5vHDJj2Q0aCx2i+MxkpMFJZ +zvLuhyfqTQ9yHMjomjn7c07iflhOcs8IoPh5P52shq39fkgZqmBoM6Hsx9jG +e//7/TD6n/tK3AkyyvF3WsBf5ICfXcSqG5T7Cd/CtBlxhQPOsN09nbPdiVro +iui/XOMA15CX7h0bnehrzJRwjDsHSPcnZ60tdyLB7CsX5yM5wKFXQ/bvZ8r9 +26HXkdPAARfWs75XNXaiBDalTC5RThCPrYxZ9ulEogaDxQ5SnBDhVkh7zKMT +vXjkXtuiwAl0h8UXApw70VuhkmHXE5xw3vCB+G/rTsROxLH0GXFC4ld7rvt6 +nSjK5JBfSAQnVN1o/RUv2YmCs3b115Y44b73wg/2oQ50AV/jIbvKCf+cWp+X +D3QgwVaveOstSvxyx7pudweq+77w9i09F2wZsKn6NHagFYmPeiWCXAAuX33D +CjuQ9fOX52wvcIHmn1rVZ7c6kGqt69nRSi7g6c+VURLoQFRDX6HhFjek+loy +tRi1I5y3rZ+RDA/81x5pmeTRiqbWk01YGnlhOV6TZ+hAM9Kedryd4HEIUg11 +dqIn6tD5qThZQcHDEGnRX0g/WI0W2q2DukuOgNZAPlu5WiVS4BwRUL8qANuM +r46O+pRR/GLdanxVEKaqUgQupj1Fp3+Y/RE1FgYOpbd7Wvx5KPNAyFCgqTA4 +nBYxu8OYh9ZOFJeNXxaG3ukJl/a1Jyg7asfukbUwmJfI1t0YeIK2JTNGmdyF +4VdqftndwCfoufVE7a8oYSB/unFUciYXcYxeDWhqEYZ1XFFvVmMOGm2zoTaT +E4Fz1gxrmHQW+qU6dvi2ogjkHD66/ZA5C+1r1VPKJoqADHk9Zm8xEx1tPm43 +oyIC3dmbaofLMlFiPceApyYl3uOa6JWjmUivqiEl2kIEjhnmxXCdfYzI+Qfw +jXEi8MOProgxMB29vNdhIbwuAorNx03sZFNQkXbfoYhNEeBZ/KNOx5GC0lgH +B3/siEBZyfzl2rVkFBT3RaueRhQydQLHnZqSKfPNtoIJhyjobnFM/DJIRt8L +8XvRsqLQytGQ5x70CLF3ZWT9sRKFjuV/66tLiciW3ufr69eicOnWzhtTpgR0 +WKjnw847URCskDLnXI9Hr1UE3ki9F4WN/zi0x7/Go6POnY3Bn0Rh0faT8NOa +eMQwxJN+dE4UftreSRBwiEf52dXGmdRi0KLwFdkPxKGpE5u9Lkpi8AlX6eCt +9QClGOu2pSmLAZr+02kk+gDpumXXdh0XgwfXnp24+C8WVeWeKRJRFYMT3zwF +2qpjUShTatj7c2Jw0ZXeSl46Fol/OAan7MTAOHPw0OkDMeiap/9L1jQxKJJW +bP5FE42OEj+/lH4sBpW4UIPoySjEvALVWtli0MTHd1CjIwqVezC8CioQA9kJ +icn94VFo1z2+Zq1CDHpYePXZWaLQI7fC+vE+MTicGjSeeDgS9TgPtT7/Kwal +xU2zJ/QiUIbc0bYeKnFQOb/22IcUgdyXUtpmaMUhwKmSpu9gBOJ1tmgXZhaH +nz9P3Ov+Go6sneY7EnnFwfPX6Yus3uFo12GvK0BRHH6dqy/PzwpDinayr3Wt +xOG1WU9MEnMo+uwg5FZiIw7/MRxPY/0Vgu47c3Ow24vD3j0945z3IWjeY0f/ +jas4fLvQ5i2WE4KeBPS91w8Qh6mfk4URx0LQwQSnCZNkSj7nCY86t2C011C8 +ZDkgDmkMrl+Efgeh0uasmNa34mBt/TpOYCwImbc9VBAdFof0YsfF/9qDUG2X +v/vkmDg4ytBh1UlByGtQZ+36nDjQuSWTV04EodnZxR1HWgkQtcTmYw4Hojdc +ciw+xyRA2si7zDssAGEuLvPpJyWg+NsUja1lACrtKu1qo0xdA3oHu4NOBKDY +AEIoh5YEPNJd5CWu+CPdmaN/iw0kIPar7HCglT/qrVX9+d1JAr4UWHkXnb6F +Oi0vDl3IlIC8+AYBZYIfUqpPeeGbIwGyBX49nJx+KI9n7EFmHmWq20i7y/nb +F4X2musuPZMA854jDwJf+CI1JevOiFcSwJdw2YlLyRe17HN51fRWAniWse51 +dAPVlwany9HiwDTn1Hyfhzdi0DU+nMyAg/2r4ZYvDb2R/rxkKjUzDrxqf4Z1 +/ueNZsUGHo1w4CAkW+T4pW0vxJ16MCFIEAfT/xZnzoZ5IaeQ5/eGj+FAy1sy +Rz7XEx0xHfEJcMeBzMpe0vKGO7JdL1qb8cLBHXrHd1YT7uhFgr+Xvi8OvL11 +Zzba3dHpAWEP3B0ccNLuMobHuyMvNSfnt9E4gIVQRSUFd9QnR3VNvBAHLpWs +MZafXJE/tcyF/gkc+PrsVlswOqMZDZZR3Dcc1MdprG5NOKEL95au3p3CQVaL +4MpApRMS31/mdnQRB6VnjhwXsnRC/fxKD7I3cVDyQZHDst4RCapgr725JeFX +rayVeIADanM10BU4Kwn/jAqU2SXskFwFadhXVxK6x3irtant0KP1A+aDepIw +cHDMsWbCFjkFfHCKMJEEPwdyAi7ZFh2IMo/+fU0S1D0XC06z2iLbfNvezjuS +wGbMN+K0Z4OYx2+dca2ShMfPRRcb911DR32fsj14JQnx8QJ/ahetkRXX6GBZ +nSS4SDX+HHtjjWrO/Hfld4skaKIvVNEp1sj25U8P7wFJ2D0mIZwla41aY23S +b81IwkPVKxVeplbIT/X8cvghKfAekMp2T76K8sYDKguPSEGK88BRRvur6I1v +sV+3oBQ8Lb/T90XlKsKVMtIyS0iB11p257lPFmjocPvBGIIU2PgPz/OLWSCF +NWXVh9pSUMQu/t+ZJnM0XSCSmBUgBa+D6IO/C5uhpdBvW7RBUsAZnXgzfv0S +WrHOuWofIgXuxgMGd3svISohEVlClBSkTUyYivpcQoeThdvakin5Du7dtxww +RRcihH5NV0iBQ0DB7bDIi6jBTkBXbl4KShwd1dUUjFG75sSLuCUpKIsUsnBn +Nka9Yo8Prv+UgsQPZzzfzxihD1/4Jxs3pKBlqPyqerYRWrnIf0uPThrKSXfO +FfAYIakzR4o8haRBSmCf+1lmQ5QoxUdXaywN5xrON/Dz6SNzC1zhpKk0WGRM +uST9vYDEE0na7ObS4NyfE3z0+wVUtXcu7pq1NHByPKf7XXwBDY8E87O7SYOR +zGyLquoFxB22pHTtnjScpxva1Z45jxK+NV9nq5cG3j1irsq0DjI7OMCo0iQN +vkHpIUGvdJDoubFi61ZpGB+ZWWSN0kEVNWu/X3VJw53q5qnfijpo8IH0Heth +aWAqGX30/Y424sQePnr1QxrcTvUAp/RZFJdm22UlLAPucGnr7HMt5Hsj2CtA +TAayVRKylCO0kIVBplAyTgYasz9NmVtrITnmEd9+ORkobBwRPcenhXpuakop +H5OB75o2Zg2Rmojmkngkq4EMbH8POvbIWwP5HPyu/SpEBs5ln43SdVdD5qt/ +N96Fy0DU9P0fT/TVkMYbvidLkTJgY5B1Soakhrgi9HdE4mQgciM+t21DFZVu +tBTfz5CBt3PjoUeCVNHc+yxW65cyMC210HM0HZBZ4pXXrLMyQOXxLn3k+ynE +X8l8xGlBBrQV5/8yPj+Fvrx7ZdfzQwb4bOmkU3xOIZv9XNThazJwwJg7r5fp +FHKNIpP2qGXBsoz2k/vRkyg4SDH1N78sdPz3nls7+zh66kxtM2IgC1TZPxsT +KpSRc3RpuZKJLJR9ZnC4FK6MFJ5d/ptwSRa4RoSCnc2UUcXsy0d6lrKQYboi +dINWGTVYO/Z0u8jC51AmPuZLR9Fb0yGF+nuycIjF794bzv/Qpkb+VlaTLEh6 +G77qqCaigPqskI5WWfCJc3LOSCIiKmIa23yHLJwkp5U/8yaifUIPRIh9slCj +lZvlQCIi3i2/sx0fZKEpK1bVvpKASCW6qXO/ZCHAQO+4WCMeufKsqRDE5IDM +avZ0bUEerUQvtxnj5GBkduPz4ZfyyIdmXveWtBykf5wxSA+URwE/JyzbFeVA +PdNhoIhHHkX3dN0zPikHGzJhR2Y15VDR7fTRm8ZyYFiq98O/WgZNTqv5tUXI +wa2DNDV3hyWRWtbrXJloOQgPyIrXyZdE2aZmAwmxchBdn17tfEMSWfR5iF5L +kgNOGe6HFXySaKw8u5/2iRwksgemnrTBoUH/f8KaTXLAETXb3c8ogdo463q6 +1uTA4/5mo/B9USTSp7mmuCkHwpGx1zttRVFQ6DvBlB05OKC76VGuKoqwP3Ne +9jTyMK+g++7ipgiqGz8oyMQhD4xckf6f7UVQRaGPp7asPHDxn3S1MRFGuacI +Rwas5GEpuTv2Tgs/ajvPHLJjIw/U1/ZqwyL50ferkwvS9vKweP+6108DfiQW +nFQX7ioPah3+dHMzR1AeeesS+MvDOR+RvcvcR1C+XltKZaI8ZK32W3Xe5kNF +Voa8aV2UfFxZrbcTeVG3p9yd7l55iDfiFn5uz4vmQuhnNgbkYbhA5LrMKV4k +VfDqpeGwPEzMZUQcmOVBTxeOGLN9kwebFt70OIwHPfOaehi0LU/xr2t/X+5w +o5IwH047eQUoUG1dO1fMiZZOXgkOwyvACjEsFh/JieTWNFafkBTgKuOujL4d +J3pmfeD912OU9YqBPdrinKgIVaaYaSmAcIXN+QM5HChv65fQ+asK8MdwgvuC +zn6U5uKs8F+8ArxokbtkXs6CxsSNsgwTFUB0TatC7BYL4hs/weGZrADJR8YU +9TRYUIo2y0rpYwXQKpqfffORGSVJPnsp9UwBaKlPVl5nYkZx32ZP8rcrwDv6 +E2b6txhRhPE1Hdp1BVCooSsYzKRHuXrj5tc3FaB9Y0tC050eNZw1du3aUYC2 +oQUzXjV6tHLqdHw0jSK83Bw6MDhDh8xxsh+4ORTh3E6VTboSHSL+WbEWl1UE +pzvsap+/0qBzv528wxUU4Znaa72FVzTIfnEqbI6gCJzqmJX2Axr0+MtI0XMV +Sr4cdRY6RIMYu+uWlbQUwVHKQVA3lxp9Tgm+pWmlCN695lOFvlRoK2EnutBG +kaI/ua1nhlToQIz3YyZ7RbjrZRK4qUiFzt61bRlwVYS5KFf0bXAPq3LQZjAJ +UIQ396/qRzf/w6KOcyXYJisCR4ZyIXflLvbfeM7TiAFFkPKged61s4lxKNhv +lr1VhAZu+S727k1sKVDh9OiQIuwwbdnVJ25ieWL1U1JjisBIq6mnpriJHXAa +FuqdUQSHYXL0iv0fbDuAVoeBCg/xA7c80fI6Npdv65lGjQcuncAvkS3r2Mjr +nlQFWgpPz75QeLiOVQjHzZkw4GHixdfZ0GPrmGMHf3ghKx5wB07f0Y9awz6y +HG09w4eHwd0+kc8nVjGyUurc+GE8kAbKY4K5V7GqK7v7PfjxoH/FyNp3cQWL +K2uzSBXCw92x74t6GSvYGUO93XkJPEjR+6k/p17BatLslaOJeDiVoWf7cOwX +liKdXjKgg4edea+/L4J/YGurWvkh5/DwUA7/qgb7gek1rWQc08NDQelJY6Od +JYzBUPt+vgEeLquneGreWMJ8ArYcb1/CQ5vpAZFlz0XM4M1FKXk7PASkXBM2 +DZ/HSlNphSft8XBYr2lJRGceY7IpO5jqiAcOvm0PV455rGWTYR+9Kx6eSGXa +RWfMYYqi1dPj3niw+H2x+lXdLMbqc+DJ/WA84Mf8FTbYZjB71JKmFkqpl6zU +afexaaydyTlhMwwPbjHDNFcKp7Fbme13bSLxIEQQyYlSm8bmuzwtT8bhgS9w +K57/zhRGPvxOYOkxHnpkDRb1mSaxwJaYFJ1aPCxdXJzgdPyKLUy0JG7V4aG1 +lEZ0Sv0rZrKzGlfYgAdziZmDLIJfMbmjZpG0LXjwSDpUUFTwBRstxt2qJ+Mh +/73Ru7shnzFicvNl2WFKvH/16iezcexx1crFj+/xYP2u753PoXGMcVDCKOID +Hi79K+HJG/mEfWG9rzs5hocQR6u5GqNP2P1g01Pp3yj9Fe1czbk4hs24/BZk ++YkHYSZpZSffUUw/WvxI7S88MM/EmTeeGsUaii4etFvBg2MNx9V4ulHs4WTj +/vZ1PNz28Cuqe/gBg0tRVP67eNhtuHN37dUIlqYh9n2BiQDcctJjAgffY+eO +GOf3ihPA8PqPMz7Sg1jKlELLZRwBbt6KadikGsSmShg/LUkSgOFs++3B0XdY +ADRw7JclwBNbTcXwyHfY8+tiAYYEAnRp6IV8Wn6LMZf/Nhg/RQCygIb3xfg3 +mMnNPhcXRIA+14b+SO03WK5a/r1/QICm4794jejeYMfemzYJaxDAichcXHzz +NWa/3Sx9XZsAv7//CNB0GsC6NGKplk0IYI9vuCfs0IdxsdsfCTQlQIcz53NN +2T7M4oPqUQ4zAjCti7v/+tGLbTisOxGvEOB4p0jCoHcvhntg/uHGNQKMF2pX +F9/rwUI/ypTuuRFA9lDEdF9XF6bq2nWZM5IAX57FB+5mdGDbo/NaHVEEoL4t +kLPm0IFVqbMSfe8TYDqx5cN15Q4Mx6fPOPGAAO3l7ahsqB1j7RirKnpEgAKh +mdQWznZslG+ZDfIIIG/qXb6V24olhHJsreQToLpg7+U+31ZM5ydxKr+QAMW7 +JY13dFqxpg7fOpZiAuTq3D+Ut96C5blR2314QamP3xe9ivMtmHvngRbXZko/ +dsejZXFNmAxeuViklQD56cyycWON2GTapUfDbZT8p4Rrnz1oxEzcM52PkwkQ +rNcluLPTgJ08IsXHMEAA1joXbHy8HmP0OOH5eIwAf/u+hGg01WJZ/Nbi/esE +8JNfOnFn/SV2nCSrYP2HAPrmO8fsW19iw2fXlDc3CUCTOT7VHfMSY/QN1xHf +JcDAUt+xBcmXmPu7Z54BNETw/yYvEm9VhUH4aovcfiKITErdT5mvwMYyGnrb +OIigmrpb7tdQgXlXhg2bchGBxizpfMuDCqzo68G5UB4i2H9LcQxWrsA4T5zc +P3GECI8mt3pqo19g33+GXomRIsIBoQlRFa1yLIDhvJ2YDBHUsh+4SQuVY7wC +Bz1qZYnAdPNh3fyvMkxb+2notAIRLEdVaBVMy7CKvIHiU/8RYdEjQWRGoRQL +ucS7/UOVCGODI4I9O8WYeHvho/OXiRAhNncrg6kIey23mTduTgTZ244RNm8L +Mb9HZyodLYjwzbT5aVlyIdbnMP8m3IoIq0YVlb2ShZgnhyxTsx0R5u6Pb62d +K8Car5T6K3oTgY7o8FzmRR5m3/UvstGHCBU0s+q5gXkYF0EvRceXCMp2PQz3 +z+dhtnS/quxuEcHCf79wxY8nGGsxYTkriAh/xrli5AlPMLPNKkuOGCLwB4af +3d+fg9FZ07tlxhLhyUxdv3JODlbaZ3xbLo4IF8NPFbXfyMGoszZSzzwkQlqJ +6wa1WA5WpKkyFJRKBNvbUyrUQdnYekK95u98ItT6Kn3Je5SJxcm3yQw2EcE4 +ZffbC/U0rEjlMlNwCxFMk0Nrzf+lYs3qa7OENiJwBwsw1tSmYsuXcPnxnUS4 +7D6qf5OYiumERwnp9xNBmPTZZlM2BWP4YnDg7UcivKjErENOPcIEFhZXAj9R +OIl/yYvmEaa0HvpOcYIIn4xCmne6krBrLK9iH3wlQlm2p0+fURLWonyESW+W +CM5e2Cl1n0TMP27y78Aa5TtGt8/ybQKWkB4wfnuDCF++n14VyEzAnhXw1Mtv +EqGo7rLbFecEbLThtF/MDhE4/+3wmDMnYEfni1d0aUigZCBb/59uPPZL1Xu2 +bz8JfFNEvXL6H2C2q3TvemRIQCxeXOgfjcIsnmm8NpcjwcxMuBpnUhRmYhXa +91OeBOXzhoXb+lGY1htaMg+BBLY1inHVA5EYrpim3kqZBIVNe5ZP++9h09ZU ++VvqJHj/zfH1sdlwbJwPcu9rkqCYeH1QuCQcG34bmCV0mgQHF+DkI69wrAPb +S9XUJkGFxwidJE04lnf4X2z8BRLcqq+2aZAIw2wGd/ykr5BAyPPm46ywEMw8 +8sSNBgsS5OYYf3hvGIIZgb+XniUJjt8xfh0uGoJplG67+FwjgeLcB3uj1mBM +PGrLutWBBM2bJtyBdMHYpOof3Us3SLCv89t94ewgzPrFinDkAxJI1g9xMOgE +YM7Bhrva8ST4e8Q0uXDLH/MxrPrA+pAEUxeIgbJP/bF76z6xcY9IECz7ZPct +sz9WemxrJ/kxCbwfs3Tqj97Etlr3RgqKSdBJgws4muaL0Ty0rLAvIcGCy7bP +srEvxmrTGiNTRgIpvGDGdS5fTJAhRKO0ggTb1K+tImNuYBraDBUva0kwu8qZ +53bfB4sbZI3p6CKBxA0/BvZiLyztiYt9eA8JpO1Ep955eGFPvF+rn+mj7Cd0 +iUb5mBdWzRu33feaBI3GcwqfezyxcTNu+6H3JHARq7zuseKBSU7yqX+fJAG5 ++VCs2lV3DF91SzBvmgSnr6jeNlF0x46Hfdq6PkupB+FG/NSeG6Yr+bh8foEE +XwOuGPhqumGeTsKCv3+TIGXnaeGncRcs4OTdrYpVEty5QJNBCHPBwti+D3uv +kyDUpn4iSMEFSyl7Er25SQIPFpFMqlBnLDeIzq5umwSbJn2jsnhnrFj/ulrA +LgnYDEpHNSecsCpRsgD2j9IvM3Y23WgnrGkVt7W3R4LHTFuLJ447Yf8DhCuA +uQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.17863287939476}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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, 20}, {0., 0.17863287939476}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913324679337597`*^9, 3.9920992973838177`*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"1332b683-08d0-1e40-a60b-1ecced6a5322"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917971206132183`*^9, 3.9917971229936733`*^9}}, + CellLabel-> + "In[142]:=",ExpressionUUID->"25060c9f-5d93-6841-93a1-f53bbd9b851a"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVlnc8lu8Xx+3sjChlj8fmGb7Ruq9jViiZSRKSvUcURWaIEJlZWSUjJHt7 +7AaSRMseqays8nt+/9z36/26r3Ne93XO5/pcR8TazeA6DRUVlSrl8f/34zvW +DASbdGxD08r6G/U1rGNIWPei8E10naET3XVTRXvkphBh4UgULk2dZ+ymjx63 +xAjRC6eifBELNTk3K+R8ysflj9BTNBw5q97j6oGGduwTfwnVopMzLNkWLnfR +vk/fJX8I9aD8DxWDnXbxKKc3y2NR6COqzmp4H6Cfg0rLIj85KyygbglNm9H8 +F8gOvUtd8lxFjxdptqn1axFV7kbdp+hVlHa4DLRcalEKHf94b94qOmKoI+kf +WYu6e2wFn46souXGs8nVrbVIymg39/rxNWTkGWTmSahDc/aSzz9Tr6OmoCTr +X2z1yDHhdtPbuA30czjVMaeuAblOS09WlW6hiowfvtNfmtFXi4+MrT1bqClZ +8N7iVjMyHL2nMDC1hcpxkgM/mFqQSt/szenD24jEcZLcINaCaF/kc/BGbKPx +3+wJ701aUEqACOZ7dQedu5r6bKmuBbVy86Ue4/iLoC5eP/RWK1KK6W7SlP2L +fM/ovj4c3ooKGPym9LX+olO+T0Ly41vR/a0RRceAv6hV/G5wclErMvmSSE6b ++4u4mnVP/njfihaecazttPxDn04x4y4rtCFmkVDJLypUMPn0dK3QSBvqPhmv +eEeTCj5M79+J+NKGwk0zlQUMqMB95uPN6bk2RBNXc/qyExUUVJ4QDdppQ9v/ +luw+PKaC9NyFXpJwO1ocNy56Q0MNS25LNAl27ag/RVK6pZ8anL3jzA4tt6Oo +KiXC1Y/UoEUVzym20Y7OvFU99m+aGmLPkl6J/mtHHfvMz57co3CoShcVewdq +uBHnUEOggQw3/15l+Q5UYrT1tPwRDXznfUYV59CBYjn6ZHIsaaGQx0r/68cO +VKss8PK8Ky0M+/cKHPjWgaYs3NCuPy3Mc39uPD7XgU6UcBtdTKaF31H6Nyw3 +OtDcWfPbbK9pget4cA0bVydSD/nx5uYJOqB5dFTxp1Yncn2GzCTP0kG1gz31 +hXOdKO1d/NSwCR1EBafnPjHsRL+Ejm4petIBO88LAzHLTpTZcEd0pojCv4ge +oX6daHN9v48BLz3c+9yw/3VBJxITsN7bE6MHuoEwavPnnei8RlVkCYEeIlW2 +e8dfdKL8BNNMxnP08IdrbK66oRMZKOZ0NYXQQ4j+luvAu05UYk88LPubHngy +VttCtzrR6IPQvNF/9FB/qaEF/nUiulcjCuGsDHBGZbD4Jw0ZmdH7q3+TZADl +SCZ9HCsZMea2OydbMICe1FXWPwJkZP3JqJm2nwGqBXh5pBAZMad/c/H4yABP +t6kLqdXJqMLMlf/LDAMsnT7Q8lqLjGjHIm7WUe8D/gKjePXzZJQ3WkfyUN4H +t6P1NpLNyUg35fT3zxr7QMlGdh+7JRmtXRyO0zXYBypXsip9r5GR5ocfPyRd +9oEWrdmChCMZzbwXLvqcuw/SkjoEl2+QUWxSiYlu+T6Q2mi6TH2LjI4aH6ev +a9wHijeCdBhvk1HEsKF10ug+qKZv1PsdTEZSQ+H8uuyMMOYpr4GPJSPHt0tx +tTcZgYWeptsml4y44m4iyQhG+LTBUF+VR0Z1egzLiYmMoDGGS94sICOWN0I6 +7mWMgH//ks+8mIyeDxjQS04zgsCB45UJlWRkFPOlMnGFEYJKNy8FvySjXV1n +axoqJpjADTPaviKjc/1hzROHmSDsmdADpnoyWu6tuZl4gQmkTb+8aG0lo0dR +mlI0FkwQNcnDZtBORpj24IibExOgN9/jRzrI6EHPIkknnAk+LlRKN3SRkUqk +3/eah0xg8idSU6CHjL6eoY/H5TBBB1NahmcvGeG7BZepG5hAbsSLfbufjEYj +ijPcepggo92MKPeajIJOq+hMjDABA3P1E4M3ZPSWrF9U85sJcATHuwHvyMgv +/LMJbo8JzlrI/AkcJCNhLSf6RFZmwDnID/gOkZFHZ6i1myQzMAsplmi8JyPB +KS2GDRIziB4O6WMZIaM+GqZnAcAMf6ZUJrop7CfSd472HDMc97ow4/+BjCQg +5nfkJWaI9327ID5KRoMWekkctsxw1Zy83E7hwNucx5I9mcH6pNaG6Ucy+liX +FJQXzQxcWcbC18fIKPzjRXHZFGZQilDQGacwaZOv+0UeMzTgxKPOfqLUg3fc +SeUFM0X/Tt+eUzjmv8z9zY3MMB4JxgzjZHTcyLJSs5cZruyfnjem8Kyn6MX+ +EWbga815kk7hxPipbYNJZrDK6Qz/QGHV8oLMjz+ZoepQQTLTBKV/r+3VLHcp +8cuZYwQKp/+QmZlhZIEh4DK6QOEzrD8iXXhYQOGOPeN1Cq/LlMmvibBAujnH +rhuFc896vLulwALNg3dIHhTWsyf5UJ9ggSMcipX2FN4NXz907zQLuPvkBppQ ++Gn+qwZ2Ixbgi7F8fJzCJh03LZMsWeAS7R8OHgrTTp6g43eh5Mvc+jxN+d9y +6n+FuTdZwEaFhrWEwleEW3Skw1kAqsozHCnMjIJ/liWwgOPWsyRBCr+6ovHw +aBYLXF7I2Omm1MsmgEG5sZgFiFdUhhwozJnePaZewwIz3P+JUFO4qTbqTm8H +CwRWXViIpdTfaVRXVP8dCxi0nidxU/jQH3byhwkWOBS/SRVL6V8nzzsHiwUW ++O+0gOkepb+eSg/ZpjdYYKAv/pQdhYUMjV840bLCUju+upOij5txHzf9+FmB +JO7jbUvRD64sPWNPihU4KCuKKHobGrgC4f+xwh6OUPdtmIzkWb5HPDzPCpct +6cuUKfr8FrbAWxrECq07JC1vir5j857XKcWwwrnH502dKfo/0e5qUZ/KCrWN +EccuD5BREtVqfncFK+BvTN0W6COjs/47SpNTrGD27mKWEpmMNlIbRx1+s0Lw +zIX6Scp5fFITGPDrLyscjGZ/G0k5r3/XaTv+8rJB6zXWrboWMnrhzmp46Cwb +eAY+/vyijoz607hvlpiwwerTYt+NGoqfdRzOUrNhg7i/hwvwFH84zCe96BzI +BjKfVz+HUfwktFUzpPUlG9B9mAitovhN5qLuU5N2NlhL4okpeEpGNTxGbxbf +skGFJ/212EIy+uFgfYR3iQ3+WlUkoicUfXAFVjqKsoN/jsBHqTQycj8Z/nFP +kR1aQsiHepPJKMo2Zi/xFDuMPuWwtEoio+a6dJ1mU3ZQu/xT1DOO4pfXaia5 +H7DDaZ35MwLhZLRd+Zu7cYcd7uYsZme7kdGBz5vHDJj2Q0aCx2i+MxkpMFJZ +zvLuhyfqTQ9yHMjomjn7c07iflhOcs8IoPh5P52shq39fkgZqmBoM6Hsx9jG +e//7/TD6n/tK3AkyyvF3WsBf5ICfXcSqG5T7Cd/CtBlxhQPOsN09nbPdiVro +iui/XOMA15CX7h0bnehrzJRwjDsHSPcnZ60tdyLB7CsX5yM5wKFXQ/bvZ8r9 +26HXkdPAARfWs75XNXaiBDalTC5RThCPrYxZ9ulEogaDxQ5SnBDhVkh7zKMT +vXjkXtuiwAl0h8UXApw70VuhkmHXE5xw3vCB+G/rTsROxLH0GXFC4ld7rvt6 +nSjK5JBfSAQnVN1o/RUv2YmCs3b115Y44b73wg/2oQ50AV/jIbvKCf+cWp+X +D3QgwVaveOstSvxyx7pudweq+77w9i09F2wZsKn6NHagFYmPeiWCXAAuX33D +CjuQ9fOX52wvcIHmn1rVZ7c6kGqt69nRSi7g6c+VURLoQFRDX6HhFjek+loy +tRi1I5y3rZ+RDA/81x5pmeTRiqbWk01YGnlhOV6TZ+hAM9Kedryd4HEIUg11 +dqIn6tD5qThZQcHDEGnRX0g/WI0W2q2DukuOgNZAPlu5WiVS4BwRUL8qANuM +r46O+pRR/GLdanxVEKaqUgQupj1Fp3+Y/RE1FgYOpbd7Wvx5KPNAyFCgqTA4 +nBYxu8OYh9ZOFJeNXxaG3ukJl/a1Jyg7asfukbUwmJfI1t0YeIK2JTNGmdyF +4VdqftndwCfoufVE7a8oYSB/unFUciYXcYxeDWhqEYZ1XFFvVmMOGm2zoTaT +E4Fz1gxrmHQW+qU6dvi2ogjkHD66/ZA5C+1r1VPKJoqADHk9Zm8xEx1tPm43 +oyIC3dmbaofLMlFiPceApyYl3uOa6JWjmUivqiEl2kIEjhnmxXCdfYzI+Qfw +jXEi8MOProgxMB29vNdhIbwuAorNx03sZFNQkXbfoYhNEeBZ/KNOx5GC0lgH +B3/siEBZyfzl2rVkFBT3RaueRhQydQLHnZqSKfPNtoIJhyjobnFM/DJIRt8L +8XvRsqLQytGQ5x70CLF3ZWT9sRKFjuV/66tLiciW3ufr69eicOnWzhtTpgR0 +WKjnw847URCskDLnXI9Hr1UE3ki9F4WN/zi0x7/Go6POnY3Bn0Rh0faT8NOa +eMQwxJN+dE4UftreSRBwiEf52dXGmdRi0KLwFdkPxKGpE5u9Lkpi8AlX6eCt +9QClGOu2pSmLAZr+02kk+gDpumXXdh0XgwfXnp24+C8WVeWeKRJRFYMT3zwF +2qpjUShTatj7c2Jw0ZXeSl46Fol/OAan7MTAOHPw0OkDMeiap/9L1jQxKJJW +bP5FE42OEj+/lH4sBpW4UIPoySjEvALVWtli0MTHd1CjIwqVezC8CioQA9kJ +icn94VFo1z2+Zq1CDHpYePXZWaLQI7fC+vE+MTicGjSeeDgS9TgPtT7/Kwal +xU2zJ/QiUIbc0bYeKnFQOb/22IcUgdyXUtpmaMUhwKmSpu9gBOJ1tmgXZhaH +nz9P3Ov+Go6sneY7EnnFwfPX6Yus3uFo12GvK0BRHH6dqy/PzwpDinayr3Wt +xOG1WU9MEnMo+uwg5FZiIw7/MRxPY/0Vgu47c3Ow24vD3j0945z3IWjeY0f/ +jas4fLvQ5i2WE4KeBPS91w8Qh6mfk4URx0LQwQSnCZNkSj7nCY86t2C011C8 +ZDkgDmkMrl+Efgeh0uasmNa34mBt/TpOYCwImbc9VBAdFof0YsfF/9qDUG2X +v/vkmDg4ytBh1UlByGtQZ+36nDjQuSWTV04EodnZxR1HWgkQtcTmYw4Hojdc +ciw+xyRA2si7zDssAGEuLvPpJyWg+NsUja1lACrtKu1qo0xdA3oHu4NOBKDY +AEIoh5YEPNJd5CWu+CPdmaN/iw0kIPar7HCglT/qrVX9+d1JAr4UWHkXnb6F +Oi0vDl3IlIC8+AYBZYIfUqpPeeGbIwGyBX49nJx+KI9n7EFmHmWq20i7y/nb +F4X2musuPZMA854jDwJf+CI1JevOiFcSwJdw2YlLyRe17HN51fRWAniWse51 +dAPVlwany9HiwDTn1Hyfhzdi0DU+nMyAg/2r4ZYvDb2R/rxkKjUzDrxqf4Z1 +/ueNZsUGHo1w4CAkW+T4pW0vxJ16MCFIEAfT/xZnzoZ5IaeQ5/eGj+FAy1sy +Rz7XEx0xHfEJcMeBzMpe0vKGO7JdL1qb8cLBHXrHd1YT7uhFgr+Xvi8OvL11 +Zzba3dHpAWEP3B0ccNLuMobHuyMvNSfnt9E4gIVQRSUFd9QnR3VNvBAHLpWs +MZafXJE/tcyF/gkc+PrsVlswOqMZDZZR3Dcc1MdprG5NOKEL95au3p3CQVaL +4MpApRMS31/mdnQRB6VnjhwXsnRC/fxKD7I3cVDyQZHDst4RCapgr725JeFX +rayVeIADanM10BU4Kwn/jAqU2SXskFwFadhXVxK6x3irtant0KP1A+aDepIw +cHDMsWbCFjkFfHCKMJEEPwdyAi7ZFh2IMo/+fU0S1D0XC06z2iLbfNvezjuS +wGbMN+K0Z4OYx2+dca2ShMfPRRcb911DR32fsj14JQnx8QJ/ahetkRXX6GBZ +nSS4SDX+HHtjjWrO/Hfld4skaKIvVNEp1sj25U8P7wFJ2D0mIZwla41aY23S +b81IwkPVKxVeplbIT/X8cvghKfAekMp2T76K8sYDKguPSEGK88BRRvur6I1v +sV+3oBQ8Lb/T90XlKsKVMtIyS0iB11p257lPFmjocPvBGIIU2PgPz/OLWSCF +NWXVh9pSUMQu/t+ZJnM0XSCSmBUgBa+D6IO/C5uhpdBvW7RBUsAZnXgzfv0S +WrHOuWofIgXuxgMGd3svISohEVlClBSkTUyYivpcQoeThdvakin5Du7dtxww +RRcihH5NV0iBQ0DB7bDIi6jBTkBXbl4KShwd1dUUjFG75sSLuCUpKIsUsnBn +Nka9Yo8Prv+UgsQPZzzfzxihD1/4Jxs3pKBlqPyqerYRWrnIf0uPThrKSXfO +FfAYIakzR4o8haRBSmCf+1lmQ5QoxUdXaywN5xrON/Dz6SNzC1zhpKk0WGRM +uST9vYDEE0na7ObS4NyfE3z0+wVUtXcu7pq1NHByPKf7XXwBDY8E87O7SYOR +zGyLquoFxB22pHTtnjScpxva1Z45jxK+NV9nq5cG3j1irsq0DjI7OMCo0iQN +vkHpIUGvdJDoubFi61ZpGB+ZWWSN0kEVNWu/X3VJw53q5qnfijpo8IH0Heth +aWAqGX30/Y424sQePnr1QxrcTvUAp/RZFJdm22UlLAPucGnr7HMt5Hsj2CtA +TAayVRKylCO0kIVBplAyTgYasz9NmVtrITnmEd9+ORkobBwRPcenhXpuakop +H5OB75o2Zg2Rmojmkngkq4EMbH8POvbIWwP5HPyu/SpEBs5ln43SdVdD5qt/ +N96Fy0DU9P0fT/TVkMYbvidLkTJgY5B1Soakhrgi9HdE4mQgciM+t21DFZVu +tBTfz5CBt3PjoUeCVNHc+yxW65cyMC210HM0HZBZ4pXXrLMyQOXxLn3k+ynE +X8l8xGlBBrQV5/8yPj+Fvrx7ZdfzQwb4bOmkU3xOIZv9XNThazJwwJg7r5fp +FHKNIpP2qGXBsoz2k/vRkyg4SDH1N78sdPz3nls7+zh66kxtM2IgC1TZPxsT +KpSRc3RpuZKJLJR9ZnC4FK6MFJ5d/ptwSRa4RoSCnc2UUcXsy0d6lrKQYboi +dINWGTVYO/Z0u8jC51AmPuZLR9Fb0yGF+nuycIjF794bzv/Qpkb+VlaTLEh6 +G77qqCaigPqskI5WWfCJc3LOSCIiKmIa23yHLJwkp5U/8yaifUIPRIh9slCj +lZvlQCIi3i2/sx0fZKEpK1bVvpKASCW6qXO/ZCHAQO+4WCMeufKsqRDE5IDM +avZ0bUEerUQvtxnj5GBkduPz4ZfyyIdmXveWtBykf5wxSA+URwE/JyzbFeVA +PdNhoIhHHkX3dN0zPikHGzJhR2Y15VDR7fTRm8ZyYFiq98O/WgZNTqv5tUXI +wa2DNDV3hyWRWtbrXJloOQgPyIrXyZdE2aZmAwmxchBdn17tfEMSWfR5iF5L +kgNOGe6HFXySaKw8u5/2iRwksgemnrTBoUH/f8KaTXLAETXb3c8ogdo463q6 +1uTA4/5mo/B9USTSp7mmuCkHwpGx1zttRVFQ6DvBlB05OKC76VGuKoqwP3Ne +9jTyMK+g++7ipgiqGz8oyMQhD4xckf6f7UVQRaGPp7asPHDxn3S1MRFGuacI +Rwas5GEpuTv2Tgs/ajvPHLJjIw/U1/ZqwyL50ferkwvS9vKweP+6108DfiQW +nFQX7ioPah3+dHMzR1AeeesS+MvDOR+RvcvcR1C+XltKZaI8ZK32W3Xe5kNF +Voa8aV2UfFxZrbcTeVG3p9yd7l55iDfiFn5uz4vmQuhnNgbkYbhA5LrMKV4k +VfDqpeGwPEzMZUQcmOVBTxeOGLN9kwebFt70OIwHPfOaehi0LU/xr2t/X+5w +o5IwH047eQUoUG1dO1fMiZZOXgkOwyvACjEsFh/JieTWNFafkBTgKuOujL4d +J3pmfeD912OU9YqBPdrinKgIVaaYaSmAcIXN+QM5HChv65fQ+asK8MdwgvuC +zn6U5uKs8F+8ArxokbtkXs6CxsSNsgwTFUB0TatC7BYL4hs/weGZrADJR8YU +9TRYUIo2y0rpYwXQKpqfffORGSVJPnsp9UwBaKlPVl5nYkZx32ZP8rcrwDv6 +E2b6txhRhPE1Hdp1BVCooSsYzKRHuXrj5tc3FaB9Y0tC050eNZw1du3aUYC2 +oQUzXjV6tHLqdHw0jSK83Bw6MDhDh8xxsh+4ORTh3E6VTboSHSL+WbEWl1UE +pzvsap+/0qBzv528wxUU4Znaa72FVzTIfnEqbI6gCJzqmJX2Axr0+MtI0XMV +Sr4cdRY6RIMYu+uWlbQUwVHKQVA3lxp9Tgm+pWmlCN695lOFvlRoK2EnutBG +kaI/ua1nhlToQIz3YyZ7RbjrZRK4qUiFzt61bRlwVYS5KFf0bXAPq3LQZjAJ +UIQ396/qRzf/w6KOcyXYJisCR4ZyIXflLvbfeM7TiAFFkPKged61s4lxKNhv +lr1VhAZu+S727k1sKVDh9OiQIuwwbdnVJ25ieWL1U1JjisBIq6mnpriJHXAa +FuqdUQSHYXL0iv0fbDuAVoeBCg/xA7c80fI6Npdv65lGjQcuncAvkS3r2Mjr +nlQFWgpPz75QeLiOVQjHzZkw4GHixdfZ0GPrmGMHf3ghKx5wB07f0Y9awz6y +HG09w4eHwd0+kc8nVjGyUurc+GE8kAbKY4K5V7GqK7v7PfjxoH/FyNp3cQWL +K2uzSBXCw92x74t6GSvYGUO93XkJPEjR+6k/p17BatLslaOJeDiVoWf7cOwX +liKdXjKgg4edea+/L4J/YGurWvkh5/DwUA7/qgb7gek1rWQc08NDQelJY6Od +JYzBUPt+vgEeLquneGreWMJ8ArYcb1/CQ5vpAZFlz0XM4M1FKXk7PASkXBM2 +DZ/HSlNphSft8XBYr2lJRGceY7IpO5jqiAcOvm0PV455rGWTYR+9Kx6eSGXa +RWfMYYqi1dPj3niw+H2x+lXdLMbqc+DJ/WA84Mf8FTbYZjB71JKmFkqpl6zU +afexaaydyTlhMwwPbjHDNFcKp7Fbme13bSLxIEQQyYlSm8bmuzwtT8bhgS9w +K57/zhRGPvxOYOkxHnpkDRb1mSaxwJaYFJ1aPCxdXJzgdPyKLUy0JG7V4aG1 +lEZ0Sv0rZrKzGlfYgAdziZmDLIJfMbmjZpG0LXjwSDpUUFTwBRstxt2qJ+Mh +/73Ru7shnzFicvNl2WFKvH/16iezcexx1crFj+/xYP2u753PoXGMcVDCKOID +Hi79K+HJG/mEfWG9rzs5hocQR6u5GqNP2P1g01Pp3yj9Fe1czbk4hs24/BZk ++YkHYSZpZSffUUw/WvxI7S88MM/EmTeeGsUaii4etFvBg2MNx9V4ulHs4WTj +/vZ1PNz28Cuqe/gBg0tRVP67eNhtuHN37dUIlqYh9n2BiQDcctJjAgffY+eO +GOf3ihPA8PqPMz7Sg1jKlELLZRwBbt6KadikGsSmShg/LUkSgOFs++3B0XdY +ADRw7JclwBNbTcXwyHfY8+tiAYYEAnRp6IV8Wn6LMZf/Nhg/RQCygIb3xfg3 +mMnNPhcXRIA+14b+SO03WK5a/r1/QICm4794jejeYMfemzYJaxDAichcXHzz +NWa/3Sx9XZsAv7//CNB0GsC6NGKplk0IYI9vuCfs0IdxsdsfCTQlQIcz53NN +2T7M4oPqUQ4zAjCti7v/+tGLbTisOxGvEOB4p0jCoHcvhntg/uHGNQKMF2pX +F9/rwUI/ypTuuRFA9lDEdF9XF6bq2nWZM5IAX57FB+5mdGDbo/NaHVEEoL4t +kLPm0IFVqbMSfe8TYDqx5cN15Q4Mx6fPOPGAAO3l7ahsqB1j7RirKnpEgAKh +mdQWznZslG+ZDfIIIG/qXb6V24olhHJsreQToLpg7+U+31ZM5ydxKr+QAMW7 +JY13dFqxpg7fOpZiAuTq3D+Ut96C5blR2314QamP3xe9ivMtmHvngRbXZko/ +dsejZXFNmAxeuViklQD56cyycWON2GTapUfDbZT8p4Rrnz1oxEzcM52PkwkQ +rNcluLPTgJ08IsXHMEAA1joXbHy8HmP0OOH5eIwAf/u+hGg01WJZ/Nbi/esE +8JNfOnFn/SV2nCSrYP2HAPrmO8fsW19iw2fXlDc3CUCTOT7VHfMSY/QN1xHf +JcDAUt+xBcmXmPu7Z54BNETw/yYvEm9VhUH4aovcfiKITErdT5mvwMYyGnrb +OIigmrpb7tdQgXlXhg2bchGBxizpfMuDCqzo68G5UB4i2H9LcQxWrsA4T5zc +P3GECI8mt3pqo19g33+GXomRIsIBoQlRFa1yLIDhvJ2YDBHUsh+4SQuVY7wC +Bz1qZYnAdPNh3fyvMkxb+2notAIRLEdVaBVMy7CKvIHiU/8RYdEjQWRGoRQL +ucS7/UOVCGODI4I9O8WYeHvho/OXiRAhNncrg6kIey23mTduTgTZ244RNm8L +Mb9HZyodLYjwzbT5aVlyIdbnMP8m3IoIq0YVlb2ShZgnhyxTsx0R5u6Pb62d +K8Car5T6K3oTgY7o8FzmRR5m3/UvstGHCBU0s+q5gXkYF0EvRceXCMp2PQz3 +z+dhtnS/quxuEcHCf79wxY8nGGsxYTkriAh/xrli5AlPMLPNKkuOGCLwB4af +3d+fg9FZ07tlxhLhyUxdv3JODlbaZ3xbLo4IF8NPFbXfyMGoszZSzzwkQlqJ +6wa1WA5WpKkyFJRKBNvbUyrUQdnYekK95u98ItT6Kn3Je5SJxcm3yQw2EcE4 +ZffbC/U0rEjlMlNwCxFMk0Nrzf+lYs3qa7OENiJwBwsw1tSmYsuXcPnxnUS4 +7D6qf5OYiumERwnp9xNBmPTZZlM2BWP4YnDg7UcivKjErENOPcIEFhZXAj9R +OIl/yYvmEaa0HvpOcYIIn4xCmne6krBrLK9iH3wlQlm2p0+fURLWonyESW+W +CM5e2Cl1n0TMP27y78Aa5TtGt8/ybQKWkB4wfnuDCF++n14VyEzAnhXw1Mtv +EqGo7rLbFecEbLThtF/MDhE4/+3wmDMnYEfni1d0aUigZCBb/59uPPZL1Xu2 +bz8JfFNEvXL6H2C2q3TvemRIQCxeXOgfjcIsnmm8NpcjwcxMuBpnUhRmYhXa +91OeBOXzhoXb+lGY1htaMg+BBLY1inHVA5EYrpim3kqZBIVNe5ZP++9h09ZU ++VvqJHj/zfH1sdlwbJwPcu9rkqCYeH1QuCQcG34bmCV0mgQHF+DkI69wrAPb +S9XUJkGFxwidJE04lnf4X2z8BRLcqq+2aZAIw2wGd/ykr5BAyPPm46ywEMw8 +8sSNBgsS5OYYf3hvGIIZgb+XniUJjt8xfh0uGoJplG67+FwjgeLcB3uj1mBM +PGrLutWBBM2bJtyBdMHYpOof3Us3SLCv89t94ewgzPrFinDkAxJI1g9xMOgE +YM7Bhrva8ST4e8Q0uXDLH/MxrPrA+pAEUxeIgbJP/bF76z6xcY9IECz7ZPct +sz9WemxrJ/kxCbwfs3Tqj97Etlr3RgqKSdBJgws4muaL0Ty0rLAvIcGCy7bP +srEvxmrTGiNTRgIpvGDGdS5fTJAhRKO0ggTb1K+tImNuYBraDBUva0kwu8qZ +53bfB4sbZI3p6CKBxA0/BvZiLyztiYt9eA8JpO1Ep955eGFPvF+rn+mj7Cd0 +iUb5mBdWzRu33feaBI3GcwqfezyxcTNu+6H3JHARq7zuseKBSU7yqX+fJAG5 ++VCs2lV3DF91SzBvmgSnr6jeNlF0x46Hfdq6PkupB+FG/NSeG6Yr+bh8foEE +XwOuGPhqumGeTsKCv3+TIGXnaeGncRcs4OTdrYpVEty5QJNBCHPBwti+D3uv +kyDUpn4iSMEFSyl7Er25SQIPFpFMqlBnLDeIzq5umwSbJn2jsnhnrFj/ulrA +LgnYDEpHNSecsCpRsgD2j9IvM3Y23WgnrGkVt7W3R4LHTFuLJ447Yf8DhCuA +uQ== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8lu8Xx+3sjChlj8fmGb7Ruq9jViiZSRKSvUcURWaIEJlZWSUjJHt7 +7AaSRMseqays8nt+/9z36/26r3Ne93XO5/pcR8TazeA6DRUVlSrl8f/34zvW +DASbdGxD08r6G/U1rGNIWPei8E10naET3XVTRXvkphBh4UgULk2dZ+ymjx63 +xAjRC6eifBELNTk3K+R8ysflj9BTNBw5q97j6oGGduwTfwnVopMzLNkWLnfR +vk/fJX8I9aD8DxWDnXbxKKc3y2NR6COqzmp4H6Cfg0rLIj85KyygbglNm9H8 +F8gOvUtd8lxFjxdptqn1axFV7kbdp+hVlHa4DLRcalEKHf94b94qOmKoI+kf +WYu6e2wFn46souXGs8nVrbVIymg39/rxNWTkGWTmSahDc/aSzz9Tr6OmoCTr +X2z1yDHhdtPbuA30czjVMaeuAblOS09WlW6hiowfvtNfmtFXi4+MrT1bqClZ +8N7iVjMyHL2nMDC1hcpxkgM/mFqQSt/szenD24jEcZLcINaCaF/kc/BGbKPx +3+wJ701aUEqACOZ7dQedu5r6bKmuBbVy86Ue4/iLoC5eP/RWK1KK6W7SlP2L +fM/ovj4c3ooKGPym9LX+olO+T0Ly41vR/a0RRceAv6hV/G5wclErMvmSSE6b ++4u4mnVP/njfihaecazttPxDn04x4y4rtCFmkVDJLypUMPn0dK3QSBvqPhmv +eEeTCj5M79+J+NKGwk0zlQUMqMB95uPN6bk2RBNXc/qyExUUVJ4QDdppQ9v/ +luw+PKaC9NyFXpJwO1ocNy56Q0MNS25LNAl27ag/RVK6pZ8anL3jzA4tt6Oo +KiXC1Y/UoEUVzym20Y7OvFU99m+aGmLPkl6J/mtHHfvMz57co3CoShcVewdq +uBHnUEOggQw3/15l+Q5UYrT1tPwRDXznfUYV59CBYjn6ZHIsaaGQx0r/68cO +VKss8PK8Ky0M+/cKHPjWgaYs3NCuPy3Mc39uPD7XgU6UcBtdTKaF31H6Nyw3 +OtDcWfPbbK9pget4cA0bVydSD/nx5uYJOqB5dFTxp1Yncn2GzCTP0kG1gz31 +hXOdKO1d/NSwCR1EBafnPjHsRL+Ejm4petIBO88LAzHLTpTZcEd0pojCv4ge +oX6daHN9v48BLz3c+9yw/3VBJxITsN7bE6MHuoEwavPnnei8RlVkCYEeIlW2 +e8dfdKL8BNNMxnP08IdrbK66oRMZKOZ0NYXQQ4j+luvAu05UYk88LPubHngy +VttCtzrR6IPQvNF/9FB/qaEF/nUiulcjCuGsDHBGZbD4Jw0ZmdH7q3+TZADl +SCZ9HCsZMea2OydbMICe1FXWPwJkZP3JqJm2nwGqBXh5pBAZMad/c/H4yABP +t6kLqdXJqMLMlf/LDAMsnT7Q8lqLjGjHIm7WUe8D/gKjePXzZJQ3WkfyUN4H +t6P1NpLNyUg35fT3zxr7QMlGdh+7JRmtXRyO0zXYBypXsip9r5GR5ocfPyRd +9oEWrdmChCMZzbwXLvqcuw/SkjoEl2+QUWxSiYlu+T6Q2mi6TH2LjI4aH6ev +a9wHijeCdBhvk1HEsKF10ug+qKZv1PsdTEZSQ+H8uuyMMOYpr4GPJSPHt0tx +tTcZgYWeptsml4y44m4iyQhG+LTBUF+VR0Z1egzLiYmMoDGGS94sICOWN0I6 +7mWMgH//ks+8mIyeDxjQS04zgsCB45UJlWRkFPOlMnGFEYJKNy8FvySjXV1n +axoqJpjADTPaviKjc/1hzROHmSDsmdADpnoyWu6tuZl4gQmkTb+8aG0lo0dR +mlI0FkwQNcnDZtBORpj24IibExOgN9/jRzrI6EHPIkknnAk+LlRKN3SRkUqk +3/eah0xg8idSU6CHjL6eoY/H5TBBB1NahmcvGeG7BZepG5hAbsSLfbufjEYj +ijPcepggo92MKPeajIJOq+hMjDABA3P1E4M3ZPSWrF9U85sJcATHuwHvyMgv +/LMJbo8JzlrI/AkcJCNhLSf6RFZmwDnID/gOkZFHZ6i1myQzMAsplmi8JyPB +KS2GDRIziB4O6WMZIaM+GqZnAcAMf6ZUJrop7CfSd472HDMc97ow4/+BjCQg +5nfkJWaI9327ID5KRoMWekkctsxw1Zy83E7hwNucx5I9mcH6pNaG6Ucy+liX +FJQXzQxcWcbC18fIKPzjRXHZFGZQilDQGacwaZOv+0UeMzTgxKPOfqLUg3fc +SeUFM0X/Tt+eUzjmv8z9zY3MMB4JxgzjZHTcyLJSs5cZruyfnjem8Kyn6MX+ +EWbga815kk7hxPipbYNJZrDK6Qz/QGHV8oLMjz+ZoepQQTLTBKV/r+3VLHcp +8cuZYwQKp/+QmZlhZIEh4DK6QOEzrD8iXXhYQOGOPeN1Cq/LlMmvibBAujnH +rhuFc896vLulwALNg3dIHhTWsyf5UJ9ggSMcipX2FN4NXz907zQLuPvkBppQ ++Gn+qwZ2Ixbgi7F8fJzCJh03LZMsWeAS7R8OHgrTTp6g43eh5Mvc+jxN+d9y +6n+FuTdZwEaFhrWEwleEW3Skw1kAqsozHCnMjIJ/liWwgOPWsyRBCr+6ovHw +aBYLXF7I2Omm1MsmgEG5sZgFiFdUhhwozJnePaZewwIz3P+JUFO4qTbqTm8H +CwRWXViIpdTfaVRXVP8dCxi0nidxU/jQH3byhwkWOBS/SRVL6V8nzzsHiwUW ++O+0gOkepb+eSg/ZpjdYYKAv/pQdhYUMjV840bLCUju+upOij5txHzf9+FmB +JO7jbUvRD64sPWNPihU4KCuKKHobGrgC4f+xwh6OUPdtmIzkWb5HPDzPCpct +6cuUKfr8FrbAWxrECq07JC1vir5j857XKcWwwrnH502dKfo/0e5qUZ/KCrWN +EccuD5BREtVqfncFK+BvTN0W6COjs/47SpNTrGD27mKWEpmMNlIbRx1+s0Lw +zIX6Scp5fFITGPDrLyscjGZ/G0k5r3/XaTv+8rJB6zXWrboWMnrhzmp46Cwb +eAY+/vyijoz607hvlpiwwerTYt+NGoqfdRzOUrNhg7i/hwvwFH84zCe96BzI +BjKfVz+HUfwktFUzpPUlG9B9mAitovhN5qLuU5N2NlhL4okpeEpGNTxGbxbf +skGFJ/212EIy+uFgfYR3iQ3+WlUkoicUfXAFVjqKsoN/jsBHqTQycj8Z/nFP +kR1aQsiHepPJKMo2Zi/xFDuMPuWwtEoio+a6dJ1mU3ZQu/xT1DOO4pfXaia5 +H7DDaZ35MwLhZLRd+Zu7cYcd7uYsZme7kdGBz5vHDJj2Q0aCx2i+MxkpMFJZ +zvLuhyfqTQ9yHMjomjn7c07iflhOcs8IoPh5P52shq39fkgZqmBoM6Hsx9jG +e//7/TD6n/tK3AkyyvF3WsBf5ICfXcSqG5T7Cd/CtBlxhQPOsN09nbPdiVro +iui/XOMA15CX7h0bnehrzJRwjDsHSPcnZ60tdyLB7CsX5yM5wKFXQ/bvZ8r9 +26HXkdPAARfWs75XNXaiBDalTC5RThCPrYxZ9ulEogaDxQ5SnBDhVkh7zKMT +vXjkXtuiwAl0h8UXApw70VuhkmHXE5xw3vCB+G/rTsROxLH0GXFC4ld7rvt6 +nSjK5JBfSAQnVN1o/RUv2YmCs3b115Y44b73wg/2oQ50AV/jIbvKCf+cWp+X +D3QgwVaveOstSvxyx7pudweq+77w9i09F2wZsKn6NHagFYmPeiWCXAAuX33D +CjuQ9fOX52wvcIHmn1rVZ7c6kGqt69nRSi7g6c+VURLoQFRDX6HhFjek+loy +tRi1I5y3rZ+RDA/81x5pmeTRiqbWk01YGnlhOV6TZ+hAM9Kedryd4HEIUg11 +dqIn6tD5qThZQcHDEGnRX0g/WI0W2q2DukuOgNZAPlu5WiVS4BwRUL8qANuM +r46O+pRR/GLdanxVEKaqUgQupj1Fp3+Y/RE1FgYOpbd7Wvx5KPNAyFCgqTA4 +nBYxu8OYh9ZOFJeNXxaG3ukJl/a1Jyg7asfukbUwmJfI1t0YeIK2JTNGmdyF +4VdqftndwCfoufVE7a8oYSB/unFUciYXcYxeDWhqEYZ1XFFvVmMOGm2zoTaT +E4Fz1gxrmHQW+qU6dvi2ogjkHD66/ZA5C+1r1VPKJoqADHk9Zm8xEx1tPm43 +oyIC3dmbaofLMlFiPceApyYl3uOa6JWjmUivqiEl2kIEjhnmxXCdfYzI+Qfw +jXEi8MOProgxMB29vNdhIbwuAorNx03sZFNQkXbfoYhNEeBZ/KNOx5GC0lgH +B3/siEBZyfzl2rVkFBT3RaueRhQydQLHnZqSKfPNtoIJhyjobnFM/DJIRt8L +8XvRsqLQytGQ5x70CLF3ZWT9sRKFjuV/66tLiciW3ufr69eicOnWzhtTpgR0 +WKjnw847URCskDLnXI9Hr1UE3ki9F4WN/zi0x7/Go6POnY3Bn0Rh0faT8NOa +eMQwxJN+dE4UftreSRBwiEf52dXGmdRi0KLwFdkPxKGpE5u9Lkpi8AlX6eCt +9QClGOu2pSmLAZr+02kk+gDpumXXdh0XgwfXnp24+C8WVeWeKRJRFYMT3zwF +2qpjUShTatj7c2Jw0ZXeSl46Fol/OAan7MTAOHPw0OkDMeiap/9L1jQxKJJW +bP5FE42OEj+/lH4sBpW4UIPoySjEvALVWtli0MTHd1CjIwqVezC8CioQA9kJ +icn94VFo1z2+Zq1CDHpYePXZWaLQI7fC+vE+MTicGjSeeDgS9TgPtT7/Kwal +xU2zJ/QiUIbc0bYeKnFQOb/22IcUgdyXUtpmaMUhwKmSpu9gBOJ1tmgXZhaH +nz9P3Ov+Go6sneY7EnnFwfPX6Yus3uFo12GvK0BRHH6dqy/PzwpDinayr3Wt +xOG1WU9MEnMo+uwg5FZiIw7/MRxPY/0Vgu47c3Ow24vD3j0945z3IWjeY0f/ +jas4fLvQ5i2WE4KeBPS91w8Qh6mfk4URx0LQwQSnCZNkSj7nCY86t2C011C8 +ZDkgDmkMrl+Efgeh0uasmNa34mBt/TpOYCwImbc9VBAdFof0YsfF/9qDUG2X +v/vkmDg4ytBh1UlByGtQZ+36nDjQuSWTV04EodnZxR1HWgkQtcTmYw4Hojdc +ciw+xyRA2si7zDssAGEuLvPpJyWg+NsUja1lACrtKu1qo0xdA3oHu4NOBKDY +AEIoh5YEPNJd5CWu+CPdmaN/iw0kIPar7HCglT/qrVX9+d1JAr4UWHkXnb6F +Oi0vDl3IlIC8+AYBZYIfUqpPeeGbIwGyBX49nJx+KI9n7EFmHmWq20i7y/nb +F4X2musuPZMA854jDwJf+CI1JevOiFcSwJdw2YlLyRe17HN51fRWAniWse51 +dAPVlwany9HiwDTn1Hyfhzdi0DU+nMyAg/2r4ZYvDb2R/rxkKjUzDrxqf4Z1 +/ueNZsUGHo1w4CAkW+T4pW0vxJ16MCFIEAfT/xZnzoZ5IaeQ5/eGj+FAy1sy +Rz7XEx0xHfEJcMeBzMpe0vKGO7JdL1qb8cLBHXrHd1YT7uhFgr+Xvi8OvL11 +Zzba3dHpAWEP3B0ccNLuMobHuyMvNSfnt9E4gIVQRSUFd9QnR3VNvBAHLpWs +MZafXJE/tcyF/gkc+PrsVlswOqMZDZZR3Dcc1MdprG5NOKEL95au3p3CQVaL +4MpApRMS31/mdnQRB6VnjhwXsnRC/fxKD7I3cVDyQZHDst4RCapgr725JeFX +rayVeIADanM10BU4Kwn/jAqU2SXskFwFadhXVxK6x3irtant0KP1A+aDepIw +cHDMsWbCFjkFfHCKMJEEPwdyAi7ZFh2IMo/+fU0S1D0XC06z2iLbfNvezjuS +wGbMN+K0Z4OYx2+dca2ShMfPRRcb911DR32fsj14JQnx8QJ/ahetkRXX6GBZ +nSS4SDX+HHtjjWrO/Hfld4skaKIvVNEp1sj25U8P7wFJ2D0mIZwla41aY23S +b81IwkPVKxVeplbIT/X8cvghKfAekMp2T76K8sYDKguPSEGK88BRRvur6I1v +sV+3oBQ8Lb/T90XlKsKVMtIyS0iB11p257lPFmjocPvBGIIU2PgPz/OLWSCF +NWXVh9pSUMQu/t+ZJnM0XSCSmBUgBa+D6IO/C5uhpdBvW7RBUsAZnXgzfv0S +WrHOuWofIgXuxgMGd3svISohEVlClBSkTUyYivpcQoeThdvakin5Du7dtxww +RRcihH5NV0iBQ0DB7bDIi6jBTkBXbl4KShwd1dUUjFG75sSLuCUpKIsUsnBn +Nka9Yo8Prv+UgsQPZzzfzxihD1/4Jxs3pKBlqPyqerYRWrnIf0uPThrKSXfO +FfAYIakzR4o8haRBSmCf+1lmQ5QoxUdXaywN5xrON/Dz6SNzC1zhpKk0WGRM +uST9vYDEE0na7ObS4NyfE3z0+wVUtXcu7pq1NHByPKf7XXwBDY8E87O7SYOR +zGyLquoFxB22pHTtnjScpxva1Z45jxK+NV9nq5cG3j1irsq0DjI7OMCo0iQN +vkHpIUGvdJDoubFi61ZpGB+ZWWSN0kEVNWu/X3VJw53q5qnfijpo8IH0Heth +aWAqGX30/Y424sQePnr1QxrcTvUAp/RZFJdm22UlLAPucGnr7HMt5Hsj2CtA +TAayVRKylCO0kIVBplAyTgYasz9NmVtrITnmEd9+ORkobBwRPcenhXpuakop +H5OB75o2Zg2Rmojmkngkq4EMbH8POvbIWwP5HPyu/SpEBs5ln43SdVdD5qt/ +N96Fy0DU9P0fT/TVkMYbvidLkTJgY5B1Soakhrgi9HdE4mQgciM+t21DFZVu +tBTfz5CBt3PjoUeCVNHc+yxW65cyMC210HM0HZBZ4pXXrLMyQOXxLn3k+ynE +X8l8xGlBBrQV5/8yPj+Fvrx7ZdfzQwb4bOmkU3xOIZv9XNThazJwwJg7r5fp +FHKNIpP2qGXBsoz2k/vRkyg4SDH1N78sdPz3nls7+zh66kxtM2IgC1TZPxsT +KpSRc3RpuZKJLJR9ZnC4FK6MFJ5d/ptwSRa4RoSCnc2UUcXsy0d6lrKQYboi +dINWGTVYO/Z0u8jC51AmPuZLR9Fb0yGF+nuycIjF794bzv/Qpkb+VlaTLEh6 +G77qqCaigPqskI5WWfCJc3LOSCIiKmIa23yHLJwkp5U/8yaifUIPRIh9slCj +lZvlQCIi3i2/sx0fZKEpK1bVvpKASCW6qXO/ZCHAQO+4WCMeufKsqRDE5IDM +avZ0bUEerUQvtxnj5GBkduPz4ZfyyIdmXveWtBykf5wxSA+URwE/JyzbFeVA +PdNhoIhHHkX3dN0zPikHGzJhR2Y15VDR7fTRm8ZyYFiq98O/WgZNTqv5tUXI +wa2DNDV3hyWRWtbrXJloOQgPyIrXyZdE2aZmAwmxchBdn17tfEMSWfR5iF5L +kgNOGe6HFXySaKw8u5/2iRwksgemnrTBoUH/f8KaTXLAETXb3c8ogdo463q6 +1uTA4/5mo/B9USTSp7mmuCkHwpGx1zttRVFQ6DvBlB05OKC76VGuKoqwP3Ne +9jTyMK+g++7ipgiqGz8oyMQhD4xckf6f7UVQRaGPp7asPHDxn3S1MRFGuacI +Rwas5GEpuTv2Tgs/ajvPHLJjIw/U1/ZqwyL50ferkwvS9vKweP+6108DfiQW +nFQX7ioPah3+dHMzR1AeeesS+MvDOR+RvcvcR1C+XltKZaI8ZK32W3Xe5kNF +Voa8aV2UfFxZrbcTeVG3p9yd7l55iDfiFn5uz4vmQuhnNgbkYbhA5LrMKV4k +VfDqpeGwPEzMZUQcmOVBTxeOGLN9kwebFt70OIwHPfOaehi0LU/xr2t/X+5w +o5IwH047eQUoUG1dO1fMiZZOXgkOwyvACjEsFh/JieTWNFafkBTgKuOujL4d +J3pmfeD912OU9YqBPdrinKgIVaaYaSmAcIXN+QM5HChv65fQ+asK8MdwgvuC +zn6U5uKs8F+8ArxokbtkXs6CxsSNsgwTFUB0TatC7BYL4hs/weGZrADJR8YU +9TRYUIo2y0rpYwXQKpqfffORGSVJPnsp9UwBaKlPVl5nYkZx32ZP8rcrwDv6 +E2b6txhRhPE1Hdp1BVCooSsYzKRHuXrj5tc3FaB9Y0tC050eNZw1du3aUYC2 +oQUzXjV6tHLqdHw0jSK83Bw6MDhDh8xxsh+4ORTh3E6VTboSHSL+WbEWl1UE +pzvsap+/0qBzv528wxUU4Znaa72FVzTIfnEqbI6gCJzqmJX2Axr0+MtI0XMV +Sr4cdRY6RIMYu+uWlbQUwVHKQVA3lxp9Tgm+pWmlCN695lOFvlRoK2EnutBG +kaI/ua1nhlToQIz3YyZ7RbjrZRK4qUiFzt61bRlwVYS5KFf0bXAPq3LQZjAJ +UIQ396/qRzf/w6KOcyXYJisCR4ZyIXflLvbfeM7TiAFFkPKged61s4lxKNhv +lr1VhAZu+S727k1sKVDh9OiQIuwwbdnVJ25ieWL1U1JjisBIq6mnpriJHXAa +FuqdUQSHYXL0iv0fbDuAVoeBCg/xA7c80fI6Npdv65lGjQcuncAvkS3r2Mjr +nlQFWgpPz75QeLiOVQjHzZkw4GHixdfZ0GPrmGMHf3ghKx5wB07f0Y9awz6y +HG09w4eHwd0+kc8nVjGyUurc+GE8kAbKY4K5V7GqK7v7PfjxoH/FyNp3cQWL +K2uzSBXCw92x74t6GSvYGUO93XkJPEjR+6k/p17BatLslaOJeDiVoWf7cOwX +liKdXjKgg4edea+/L4J/YGurWvkh5/DwUA7/qgb7gek1rWQc08NDQelJY6Od +JYzBUPt+vgEeLquneGreWMJ8ArYcb1/CQ5vpAZFlz0XM4M1FKXk7PASkXBM2 +DZ/HSlNphSft8XBYr2lJRGceY7IpO5jqiAcOvm0PV455rGWTYR+9Kx6eSGXa +RWfMYYqi1dPj3niw+H2x+lXdLMbqc+DJ/WA84Mf8FTbYZjB71JKmFkqpl6zU +afexaaydyTlhMwwPbjHDNFcKp7Fbme13bSLxIEQQyYlSm8bmuzwtT8bhgS9w +K57/zhRGPvxOYOkxHnpkDRb1mSaxwJaYFJ1aPCxdXJzgdPyKLUy0JG7V4aG1 +lEZ0Sv0rZrKzGlfYgAdziZmDLIJfMbmjZpG0LXjwSDpUUFTwBRstxt2qJ+Mh +/73Ru7shnzFicvNl2WFKvH/16iezcexx1crFj+/xYP2u753PoXGMcVDCKOID +Hi79K+HJG/mEfWG9rzs5hocQR6u5GqNP2P1g01Pp3yj9Fe1czbk4hs24/BZk ++YkHYSZpZSffUUw/WvxI7S88MM/EmTeeGsUaii4etFvBg2MNx9V4ulHs4WTj +/vZ1PNz28Cuqe/gBg0tRVP67eNhtuHN37dUIlqYh9n2BiQDcctJjAgffY+eO +GOf3ihPA8PqPMz7Sg1jKlELLZRwBbt6KadikGsSmShg/LUkSgOFs++3B0XdY +ADRw7JclwBNbTcXwyHfY8+tiAYYEAnRp6IV8Wn6LMZf/Nhg/RQCygIb3xfg3 +mMnNPhcXRIA+14b+SO03WK5a/r1/QICm4794jejeYMfemzYJaxDAichcXHzz +NWa/3Sx9XZsAv7//CNB0GsC6NGKplk0IYI9vuCfs0IdxsdsfCTQlQIcz53NN +2T7M4oPqUQ4zAjCti7v/+tGLbTisOxGvEOB4p0jCoHcvhntg/uHGNQKMF2pX +F9/rwUI/ypTuuRFA9lDEdF9XF6bq2nWZM5IAX57FB+5mdGDbo/NaHVEEoL4t +kLPm0IFVqbMSfe8TYDqx5cN15Q4Mx6fPOPGAAO3l7ahsqB1j7RirKnpEgAKh +mdQWznZslG+ZDfIIIG/qXb6V24olhHJsreQToLpg7+U+31ZM5ydxKr+QAMW7 +JY13dFqxpg7fOpZiAuTq3D+Ut96C5blR2314QamP3xe9ivMtmHvngRbXZko/ +dsejZXFNmAxeuViklQD56cyycWON2GTapUfDbZT8p4Rrnz1oxEzcM52PkwkQ +rNcluLPTgJ08IsXHMEAA1joXbHy8HmP0OOH5eIwAf/u+hGg01WJZ/Nbi/esE +8JNfOnFn/SV2nCSrYP2HAPrmO8fsW19iw2fXlDc3CUCTOT7VHfMSY/QN1xHf +JcDAUt+xBcmXmPu7Z54BNETw/yYvEm9VhUH4aovcfiKITErdT5mvwMYyGnrb +OIigmrpb7tdQgXlXhg2bchGBxizpfMuDCqzo68G5UB4i2H9LcQxWrsA4T5zc +P3GECI8mt3pqo19g33+GXomRIsIBoQlRFa1yLIDhvJ2YDBHUsh+4SQuVY7wC +Bz1qZYnAdPNh3fyvMkxb+2notAIRLEdVaBVMy7CKvIHiU/8RYdEjQWRGoRQL +ucS7/UOVCGODI4I9O8WYeHvho/OXiRAhNncrg6kIey23mTduTgTZ244RNm8L +Mb9HZyodLYjwzbT5aVlyIdbnMP8m3IoIq0YVlb2ShZgnhyxTsx0R5u6Pb62d +K8Car5T6K3oTgY7o8FzmRR5m3/UvstGHCBU0s+q5gXkYF0EvRceXCMp2PQz3 +z+dhtnS/quxuEcHCf79wxY8nGGsxYTkriAh/xrli5AlPMLPNKkuOGCLwB4af +3d+fg9FZ07tlxhLhyUxdv3JODlbaZ3xbLo4IF8NPFbXfyMGoszZSzzwkQlqJ +6wa1WA5WpKkyFJRKBNvbUyrUQdnYekK95u98ItT6Kn3Je5SJxcm3yQw2EcE4 +ZffbC/U0rEjlMlNwCxFMk0Nrzf+lYs3qa7OENiJwBwsw1tSmYsuXcPnxnUS4 +7D6qf5OYiumERwnp9xNBmPTZZlM2BWP4YnDg7UcivKjErENOPcIEFhZXAj9R +OIl/yYvmEaa0HvpOcYIIn4xCmne6krBrLK9iH3wlQlm2p0+fURLWonyESW+W +CM5e2Cl1n0TMP27y78Aa5TtGt8/ybQKWkB4wfnuDCF++n14VyEzAnhXw1Mtv +EqGo7rLbFecEbLThtF/MDhE4/+3wmDMnYEfni1d0aUigZCBb/59uPPZL1Xu2 +bz8JfFNEvXL6H2C2q3TvemRIQCxeXOgfjcIsnmm8NpcjwcxMuBpnUhRmYhXa +91OeBOXzhoXb+lGY1htaMg+BBLY1inHVA5EYrpim3kqZBIVNe5ZP++9h09ZU ++VvqJHj/zfH1sdlwbJwPcu9rkqCYeH1QuCQcG34bmCV0mgQHF+DkI69wrAPb +S9XUJkGFxwidJE04lnf4X2z8BRLcqq+2aZAIw2wGd/ykr5BAyPPm46ywEMw8 +8sSNBgsS5OYYf3hvGIIZgb+XniUJjt8xfh0uGoJplG67+FwjgeLcB3uj1mBM +PGrLutWBBM2bJtyBdMHYpOof3Us3SLCv89t94ewgzPrFinDkAxJI1g9xMOgE +YM7Bhrva8ST4e8Q0uXDLH/MxrPrA+pAEUxeIgbJP/bF76z6xcY9IECz7ZPct +sz9WemxrJ/kxCbwfs3Tqj97Etlr3RgqKSdBJgws4muaL0Ty0rLAvIcGCy7bP +srEvxmrTGiNTRgIpvGDGdS5fTJAhRKO0ggTb1K+tImNuYBraDBUva0kwu8qZ +53bfB4sbZI3p6CKBxA0/BvZiLyztiYt9eA8JpO1Ep955eGFPvF+rn+mj7Cd0 +iUb5mBdWzRu33feaBI3GcwqfezyxcTNu+6H3JHARq7zuseKBSU7yqX+fJAG5 ++VCs2lV3DF91SzBvmgSnr6jeNlF0x46Hfdq6PkupB+FG/NSeG6Yr+bh8foEE +XwOuGPhqumGeTsKCv3+TIGXnaeGncRcs4OTdrYpVEty5QJNBCHPBwti+D3uv +kyDUpn4iSMEFSyl7Er25SQIPFpFMqlBnLDeIzq5umwSbJn2jsnhnrFj/ulrA +LgnYDEpHNSecsCpRsgD2j9IvM3Y23WgnrGkVt7W3R4LHTFuLJ447Yf8DhCuA +uQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.17863287939476}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.17863287939476}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8lu8Xx+3sjChlj8fmGb7Ruq9jViiZSRKSvUcURWaIEJlZWSUjJHt7 +7AaSRMseqays8nt+/9z36/26r3Ne93XO5/pcR8TazeA6DRUVlSrl8f/34zvW +DASbdGxD08r6G/U1rGNIWPei8E10naET3XVTRXvkphBh4UgULk2dZ+ymjx63 +xAjRC6eifBELNTk3K+R8ysflj9BTNBw5q97j6oGGduwTfwnVopMzLNkWLnfR +vk/fJX8I9aD8DxWDnXbxKKc3y2NR6COqzmp4H6Cfg0rLIj85KyygbglNm9H8 +F8gOvUtd8lxFjxdptqn1axFV7kbdp+hVlHa4DLRcalEKHf94b94qOmKoI+kf +WYu6e2wFn46souXGs8nVrbVIymg39/rxNWTkGWTmSahDc/aSzz9Tr6OmoCTr +X2z1yDHhdtPbuA30czjVMaeuAblOS09WlW6hiowfvtNfmtFXi4+MrT1bqClZ +8N7iVjMyHL2nMDC1hcpxkgM/mFqQSt/szenD24jEcZLcINaCaF/kc/BGbKPx +3+wJ701aUEqACOZ7dQedu5r6bKmuBbVy86Ue4/iLoC5eP/RWK1KK6W7SlP2L +fM/ovj4c3ooKGPym9LX+olO+T0Ly41vR/a0RRceAv6hV/G5wclErMvmSSE6b ++4u4mnVP/njfihaecazttPxDn04x4y4rtCFmkVDJLypUMPn0dK3QSBvqPhmv +eEeTCj5M79+J+NKGwk0zlQUMqMB95uPN6bk2RBNXc/qyExUUVJ4QDdppQ9v/ +luw+PKaC9NyFXpJwO1ocNy56Q0MNS25LNAl27ag/RVK6pZ8anL3jzA4tt6Oo +KiXC1Y/UoEUVzym20Y7OvFU99m+aGmLPkl6J/mtHHfvMz57co3CoShcVewdq +uBHnUEOggQw3/15l+Q5UYrT1tPwRDXznfUYV59CBYjn6ZHIsaaGQx0r/68cO +VKss8PK8Ky0M+/cKHPjWgaYs3NCuPy3Mc39uPD7XgU6UcBtdTKaF31H6Nyw3 +OtDcWfPbbK9pget4cA0bVydSD/nx5uYJOqB5dFTxp1Yncn2GzCTP0kG1gz31 +hXOdKO1d/NSwCR1EBafnPjHsRL+Ejm4petIBO88LAzHLTpTZcEd0pojCv4ge +oX6daHN9v48BLz3c+9yw/3VBJxITsN7bE6MHuoEwavPnnei8RlVkCYEeIlW2 +e8dfdKL8BNNMxnP08IdrbK66oRMZKOZ0NYXQQ4j+luvAu05UYk88LPubHngy +VttCtzrR6IPQvNF/9FB/qaEF/nUiulcjCuGsDHBGZbD4Jw0ZmdH7q3+TZADl +SCZ9HCsZMea2OydbMICe1FXWPwJkZP3JqJm2nwGqBXh5pBAZMad/c/H4yABP +t6kLqdXJqMLMlf/LDAMsnT7Q8lqLjGjHIm7WUe8D/gKjePXzZJQ3WkfyUN4H +t6P1NpLNyUg35fT3zxr7QMlGdh+7JRmtXRyO0zXYBypXsip9r5GR5ocfPyRd +9oEWrdmChCMZzbwXLvqcuw/SkjoEl2+QUWxSiYlu+T6Q2mi6TH2LjI4aH6ev +a9wHijeCdBhvk1HEsKF10ug+qKZv1PsdTEZSQ+H8uuyMMOYpr4GPJSPHt0tx +tTcZgYWeptsml4y44m4iyQhG+LTBUF+VR0Z1egzLiYmMoDGGS94sICOWN0I6 +7mWMgH//ks+8mIyeDxjQS04zgsCB45UJlWRkFPOlMnGFEYJKNy8FvySjXV1n +axoqJpjADTPaviKjc/1hzROHmSDsmdADpnoyWu6tuZl4gQmkTb+8aG0lo0dR +mlI0FkwQNcnDZtBORpj24IibExOgN9/jRzrI6EHPIkknnAk+LlRKN3SRkUqk +3/eah0xg8idSU6CHjL6eoY/H5TBBB1NahmcvGeG7BZepG5hAbsSLfbufjEYj +ijPcepggo92MKPeajIJOq+hMjDABA3P1E4M3ZPSWrF9U85sJcATHuwHvyMgv +/LMJbo8JzlrI/AkcJCNhLSf6RFZmwDnID/gOkZFHZ6i1myQzMAsplmi8JyPB +KS2GDRIziB4O6WMZIaM+GqZnAcAMf6ZUJrop7CfSd472HDMc97ow4/+BjCQg +5nfkJWaI9327ID5KRoMWekkctsxw1Zy83E7hwNucx5I9mcH6pNaG6Ucy+liX +FJQXzQxcWcbC18fIKPzjRXHZFGZQilDQGacwaZOv+0UeMzTgxKPOfqLUg3fc +SeUFM0X/Tt+eUzjmv8z9zY3MMB4JxgzjZHTcyLJSs5cZruyfnjem8Kyn6MX+ +EWbga815kk7hxPipbYNJZrDK6Qz/QGHV8oLMjz+ZoepQQTLTBKV/r+3VLHcp +8cuZYwQKp/+QmZlhZIEh4DK6QOEzrD8iXXhYQOGOPeN1Cq/LlMmvibBAujnH +rhuFc896vLulwALNg3dIHhTWsyf5UJ9ggSMcipX2FN4NXz907zQLuPvkBppQ ++Gn+qwZ2Ixbgi7F8fJzCJh03LZMsWeAS7R8OHgrTTp6g43eh5Mvc+jxN+d9y +6n+FuTdZwEaFhrWEwleEW3Skw1kAqsozHCnMjIJ/liWwgOPWsyRBCr+6ovHw +aBYLXF7I2Omm1MsmgEG5sZgFiFdUhhwozJnePaZewwIz3P+JUFO4qTbqTm8H +CwRWXViIpdTfaVRXVP8dCxi0nidxU/jQH3byhwkWOBS/SRVL6V8nzzsHiwUW ++O+0gOkepb+eSg/ZpjdYYKAv/pQdhYUMjV840bLCUju+upOij5txHzf9+FmB +JO7jbUvRD64sPWNPihU4KCuKKHobGrgC4f+xwh6OUPdtmIzkWb5HPDzPCpct +6cuUKfr8FrbAWxrECq07JC1vir5j857XKcWwwrnH502dKfo/0e5qUZ/KCrWN +EccuD5BREtVqfncFK+BvTN0W6COjs/47SpNTrGD27mKWEpmMNlIbRx1+s0Lw +zIX6Scp5fFITGPDrLyscjGZ/G0k5r3/XaTv+8rJB6zXWrboWMnrhzmp46Cwb +eAY+/vyijoz607hvlpiwwerTYt+NGoqfdRzOUrNhg7i/hwvwFH84zCe96BzI +BjKfVz+HUfwktFUzpPUlG9B9mAitovhN5qLuU5N2NlhL4okpeEpGNTxGbxbf +skGFJ/212EIy+uFgfYR3iQ3+WlUkoicUfXAFVjqKsoN/jsBHqTQycj8Z/nFP +kR1aQsiHepPJKMo2Zi/xFDuMPuWwtEoio+a6dJ1mU3ZQu/xT1DOO4pfXaia5 +H7DDaZ35MwLhZLRd+Zu7cYcd7uYsZme7kdGBz5vHDJj2Q0aCx2i+MxkpMFJZ +zvLuhyfqTQ9yHMjomjn7c07iflhOcs8IoPh5P52shq39fkgZqmBoM6Hsx9jG +e//7/TD6n/tK3AkyyvF3WsBf5ICfXcSqG5T7Cd/CtBlxhQPOsN09nbPdiVro +iui/XOMA15CX7h0bnehrzJRwjDsHSPcnZ60tdyLB7CsX5yM5wKFXQ/bvZ8r9 +26HXkdPAARfWs75XNXaiBDalTC5RThCPrYxZ9ulEogaDxQ5SnBDhVkh7zKMT +vXjkXtuiwAl0h8UXApw70VuhkmHXE5xw3vCB+G/rTsROxLH0GXFC4ld7rvt6 +nSjK5JBfSAQnVN1o/RUv2YmCs3b115Y44b73wg/2oQ50AV/jIbvKCf+cWp+X +D3QgwVaveOstSvxyx7pudweq+77w9i09F2wZsKn6NHagFYmPeiWCXAAuX33D +CjuQ9fOX52wvcIHmn1rVZ7c6kGqt69nRSi7g6c+VURLoQFRDX6HhFjek+loy +tRi1I5y3rZ+RDA/81x5pmeTRiqbWk01YGnlhOV6TZ+hAM9Kedryd4HEIUg11 +dqIn6tD5qThZQcHDEGnRX0g/WI0W2q2DukuOgNZAPlu5WiVS4BwRUL8qANuM +r46O+pRR/GLdanxVEKaqUgQupj1Fp3+Y/RE1FgYOpbd7Wvx5KPNAyFCgqTA4 +nBYxu8OYh9ZOFJeNXxaG3ukJl/a1Jyg7asfukbUwmJfI1t0YeIK2JTNGmdyF +4VdqftndwCfoufVE7a8oYSB/unFUciYXcYxeDWhqEYZ1XFFvVmMOGm2zoTaT +E4Fz1gxrmHQW+qU6dvi2ogjkHD66/ZA5C+1r1VPKJoqADHk9Zm8xEx1tPm43 +oyIC3dmbaofLMlFiPceApyYl3uOa6JWjmUivqiEl2kIEjhnmxXCdfYzI+Qfw +jXEi8MOProgxMB29vNdhIbwuAorNx03sZFNQkXbfoYhNEeBZ/KNOx5GC0lgH +B3/siEBZyfzl2rVkFBT3RaueRhQydQLHnZqSKfPNtoIJhyjobnFM/DJIRt8L +8XvRsqLQytGQ5x70CLF3ZWT9sRKFjuV/66tLiciW3ufr69eicOnWzhtTpgR0 +WKjnw847URCskDLnXI9Hr1UE3ki9F4WN/zi0x7/Go6POnY3Bn0Rh0faT8NOa +eMQwxJN+dE4UftreSRBwiEf52dXGmdRi0KLwFdkPxKGpE5u9Lkpi8AlX6eCt +9QClGOu2pSmLAZr+02kk+gDpumXXdh0XgwfXnp24+C8WVeWeKRJRFYMT3zwF +2qpjUShTatj7c2Jw0ZXeSl46Fol/OAan7MTAOHPw0OkDMeiap/9L1jQxKJJW +bP5FE42OEj+/lH4sBpW4UIPoySjEvALVWtli0MTHd1CjIwqVezC8CioQA9kJ +icn94VFo1z2+Zq1CDHpYePXZWaLQI7fC+vE+MTicGjSeeDgS9TgPtT7/Kwal +xU2zJ/QiUIbc0bYeKnFQOb/22IcUgdyXUtpmaMUhwKmSpu9gBOJ1tmgXZhaH +nz9P3Ov+Go6sneY7EnnFwfPX6Yus3uFo12GvK0BRHH6dqy/PzwpDinayr3Wt +xOG1WU9MEnMo+uwg5FZiIw7/MRxPY/0Vgu47c3Ow24vD3j0945z3IWjeY0f/ +jas4fLvQ5i2WE4KeBPS91w8Qh6mfk4URx0LQwQSnCZNkSj7nCY86t2C011C8 +ZDkgDmkMrl+Efgeh0uasmNa34mBt/TpOYCwImbc9VBAdFof0YsfF/9qDUG2X +v/vkmDg4ytBh1UlByGtQZ+36nDjQuSWTV04EodnZxR1HWgkQtcTmYw4Hojdc +ciw+xyRA2si7zDssAGEuLvPpJyWg+NsUja1lACrtKu1qo0xdA3oHu4NOBKDY +AEIoh5YEPNJd5CWu+CPdmaN/iw0kIPar7HCglT/qrVX9+d1JAr4UWHkXnb6F +Oi0vDl3IlIC8+AYBZYIfUqpPeeGbIwGyBX49nJx+KI9n7EFmHmWq20i7y/nb +F4X2musuPZMA854jDwJf+CI1JevOiFcSwJdw2YlLyRe17HN51fRWAniWse51 +dAPVlwany9HiwDTn1Hyfhzdi0DU+nMyAg/2r4ZYvDb2R/rxkKjUzDrxqf4Z1 +/ueNZsUGHo1w4CAkW+T4pW0vxJ16MCFIEAfT/xZnzoZ5IaeQ5/eGj+FAy1sy +Rz7XEx0xHfEJcMeBzMpe0vKGO7JdL1qb8cLBHXrHd1YT7uhFgr+Xvi8OvL11 +Zzba3dHpAWEP3B0ccNLuMobHuyMvNSfnt9E4gIVQRSUFd9QnR3VNvBAHLpWs +MZafXJE/tcyF/gkc+PrsVlswOqMZDZZR3Dcc1MdprG5NOKEL95au3p3CQVaL +4MpApRMS31/mdnQRB6VnjhwXsnRC/fxKD7I3cVDyQZHDst4RCapgr725JeFX +rayVeIADanM10BU4Kwn/jAqU2SXskFwFadhXVxK6x3irtant0KP1A+aDepIw +cHDMsWbCFjkFfHCKMJEEPwdyAi7ZFh2IMo/+fU0S1D0XC06z2iLbfNvezjuS +wGbMN+K0Z4OYx2+dca2ShMfPRRcb911DR32fsj14JQnx8QJ/ahetkRXX6GBZ +nSS4SDX+HHtjjWrO/Hfld4skaKIvVNEp1sj25U8P7wFJ2D0mIZwla41aY23S +b81IwkPVKxVeplbIT/X8cvghKfAekMp2T76K8sYDKguPSEGK88BRRvur6I1v +sV+3oBQ8Lb/T90XlKsKVMtIyS0iB11p257lPFmjocPvBGIIU2PgPz/OLWSCF +NWXVh9pSUMQu/t+ZJnM0XSCSmBUgBa+D6IO/C5uhpdBvW7RBUsAZnXgzfv0S +WrHOuWofIgXuxgMGd3svISohEVlClBSkTUyYivpcQoeThdvakin5Du7dtxww +RRcihH5NV0iBQ0DB7bDIi6jBTkBXbl4KShwd1dUUjFG75sSLuCUpKIsUsnBn +Nka9Yo8Prv+UgsQPZzzfzxihD1/4Jxs3pKBlqPyqerYRWrnIf0uPThrKSXfO +FfAYIakzR4o8haRBSmCf+1lmQ5QoxUdXaywN5xrON/Dz6SNzC1zhpKk0WGRM +uST9vYDEE0na7ObS4NyfE3z0+wVUtXcu7pq1NHByPKf7XXwBDY8E87O7SYOR +zGyLquoFxB22pHTtnjScpxva1Z45jxK+NV9nq5cG3j1irsq0DjI7OMCo0iQN +vkHpIUGvdJDoubFi61ZpGB+ZWWSN0kEVNWu/X3VJw53q5qnfijpo8IH0Heth +aWAqGX30/Y424sQePnr1QxrcTvUAp/RZFJdm22UlLAPucGnr7HMt5Hsj2CtA +TAayVRKylCO0kIVBplAyTgYasz9NmVtrITnmEd9+ORkobBwRPcenhXpuakop +H5OB75o2Zg2Rmojmkngkq4EMbH8POvbIWwP5HPyu/SpEBs5ln43SdVdD5qt/ +N96Fy0DU9P0fT/TVkMYbvidLkTJgY5B1Soakhrgi9HdE4mQgciM+t21DFZVu +tBTfz5CBt3PjoUeCVNHc+yxW65cyMC210HM0HZBZ4pXXrLMyQOXxLn3k+ynE +X8l8xGlBBrQV5/8yPj+Fvrx7ZdfzQwb4bOmkU3xOIZv9XNThazJwwJg7r5fp +FHKNIpP2qGXBsoz2k/vRkyg4SDH1N78sdPz3nls7+zh66kxtM2IgC1TZPxsT +KpSRc3RpuZKJLJR9ZnC4FK6MFJ5d/ptwSRa4RoSCnc2UUcXsy0d6lrKQYboi +dINWGTVYO/Z0u8jC51AmPuZLR9Fb0yGF+nuycIjF794bzv/Qpkb+VlaTLEh6 +G77qqCaigPqskI5WWfCJc3LOSCIiKmIa23yHLJwkp5U/8yaifUIPRIh9slCj +lZvlQCIi3i2/sx0fZKEpK1bVvpKASCW6qXO/ZCHAQO+4WCMeufKsqRDE5IDM +avZ0bUEerUQvtxnj5GBkduPz4ZfyyIdmXveWtBykf5wxSA+URwE/JyzbFeVA +PdNhoIhHHkX3dN0zPikHGzJhR2Y15VDR7fTRm8ZyYFiq98O/WgZNTqv5tUXI +wa2DNDV3hyWRWtbrXJloOQgPyIrXyZdE2aZmAwmxchBdn17tfEMSWfR5iF5L +kgNOGe6HFXySaKw8u5/2iRwksgemnrTBoUH/f8KaTXLAETXb3c8ogdo463q6 +1uTA4/5mo/B9USTSp7mmuCkHwpGx1zttRVFQ6DvBlB05OKC76VGuKoqwP3Ne +9jTyMK+g++7ipgiqGz8oyMQhD4xckf6f7UVQRaGPp7asPHDxn3S1MRFGuacI +Rwas5GEpuTv2Tgs/ajvPHLJjIw/U1/ZqwyL50ferkwvS9vKweP+6108DfiQW +nFQX7ioPah3+dHMzR1AeeesS+MvDOR+RvcvcR1C+XltKZaI8ZK32W3Xe5kNF +Voa8aV2UfFxZrbcTeVG3p9yd7l55iDfiFn5uz4vmQuhnNgbkYbhA5LrMKV4k +VfDqpeGwPEzMZUQcmOVBTxeOGLN9kwebFt70OIwHPfOaehi0LU/xr2t/X+5w +o5IwH047eQUoUG1dO1fMiZZOXgkOwyvACjEsFh/JieTWNFafkBTgKuOujL4d +J3pmfeD912OU9YqBPdrinKgIVaaYaSmAcIXN+QM5HChv65fQ+asK8MdwgvuC +zn6U5uKs8F+8ArxokbtkXs6CxsSNsgwTFUB0TatC7BYL4hs/weGZrADJR8YU +9TRYUIo2y0rpYwXQKpqfffORGSVJPnsp9UwBaKlPVl5nYkZx32ZP8rcrwDv6 +E2b6txhRhPE1Hdp1BVCooSsYzKRHuXrj5tc3FaB9Y0tC050eNZw1du3aUYC2 +oQUzXjV6tHLqdHw0jSK83Bw6MDhDh8xxsh+4ORTh3E6VTboSHSL+WbEWl1UE +pzvsap+/0qBzv528wxUU4Znaa72FVzTIfnEqbI6gCJzqmJX2Axr0+MtI0XMV +Sr4cdRY6RIMYu+uWlbQUwVHKQVA3lxp9Tgm+pWmlCN695lOFvlRoK2EnutBG +kaI/ua1nhlToQIz3YyZ7RbjrZRK4qUiFzt61bRlwVYS5KFf0bXAPq3LQZjAJ +UIQ396/qRzf/w6KOcyXYJisCR4ZyIXflLvbfeM7TiAFFkPKged61s4lxKNhv +lr1VhAZu+S727k1sKVDh9OiQIuwwbdnVJ25ieWL1U1JjisBIq6mnpriJHXAa +FuqdUQSHYXL0iv0fbDuAVoeBCg/xA7c80fI6Npdv65lGjQcuncAvkS3r2Mjr +nlQFWgpPz75QeLiOVQjHzZkw4GHixdfZ0GPrmGMHf3ghKx5wB07f0Y9awz6y +HG09w4eHwd0+kc8nVjGyUurc+GE8kAbKY4K5V7GqK7v7PfjxoH/FyNp3cQWL +K2uzSBXCw92x74t6GSvYGUO93XkJPEjR+6k/p17BatLslaOJeDiVoWf7cOwX +liKdXjKgg4edea+/L4J/YGurWvkh5/DwUA7/qgb7gek1rWQc08NDQelJY6Od +JYzBUPt+vgEeLquneGreWMJ8ArYcb1/CQ5vpAZFlz0XM4M1FKXk7PASkXBM2 +DZ/HSlNphSft8XBYr2lJRGceY7IpO5jqiAcOvm0PV455rGWTYR+9Kx6eSGXa +RWfMYYqi1dPj3niw+H2x+lXdLMbqc+DJ/WA84Mf8FTbYZjB71JKmFkqpl6zU +afexaaydyTlhMwwPbjHDNFcKp7Fbme13bSLxIEQQyYlSm8bmuzwtT8bhgS9w +K57/zhRGPvxOYOkxHnpkDRb1mSaxwJaYFJ1aPCxdXJzgdPyKLUy0JG7V4aG1 +lEZ0Sv0rZrKzGlfYgAdziZmDLIJfMbmjZpG0LXjwSDpUUFTwBRstxt2qJ+Mh +/73Ru7shnzFicvNl2WFKvH/16iezcexx1crFj+/xYP2u753PoXGMcVDCKOID +Hi79K+HJG/mEfWG9rzs5hocQR6u5GqNP2P1g01Pp3yj9Fe1czbk4hs24/BZk ++YkHYSZpZSffUUw/WvxI7S88MM/EmTeeGsUaii4etFvBg2MNx9V4ulHs4WTj +/vZ1PNz28Cuqe/gBg0tRVP67eNhtuHN37dUIlqYh9n2BiQDcctJjAgffY+eO +GOf3ihPA8PqPMz7Sg1jKlELLZRwBbt6KadikGsSmShg/LUkSgOFs++3B0XdY +ADRw7JclwBNbTcXwyHfY8+tiAYYEAnRp6IV8Wn6LMZf/Nhg/RQCygIb3xfg3 +mMnNPhcXRIA+14b+SO03WK5a/r1/QICm4794jejeYMfemzYJaxDAichcXHzz +NWa/3Sx9XZsAv7//CNB0GsC6NGKplk0IYI9vuCfs0IdxsdsfCTQlQIcz53NN +2T7M4oPqUQ4zAjCti7v/+tGLbTisOxGvEOB4p0jCoHcvhntg/uHGNQKMF2pX +F9/rwUI/ypTuuRFA9lDEdF9XF6bq2nWZM5IAX57FB+5mdGDbo/NaHVEEoL4t +kLPm0IFVqbMSfe8TYDqx5cN15Q4Mx6fPOPGAAO3l7ahsqB1j7RirKnpEgAKh +mdQWznZslG+ZDfIIIG/qXb6V24olhHJsreQToLpg7+U+31ZM5ydxKr+QAMW7 +JY13dFqxpg7fOpZiAuTq3D+Ut96C5blR2314QamP3xe9ivMtmHvngRbXZko/ +dsejZXFNmAxeuViklQD56cyycWON2GTapUfDbZT8p4Rrnz1oxEzcM52PkwkQ +rNcluLPTgJ08IsXHMEAA1joXbHy8HmP0OOH5eIwAf/u+hGg01WJZ/Nbi/esE +8JNfOnFn/SV2nCSrYP2HAPrmO8fsW19iw2fXlDc3CUCTOT7VHfMSY/QN1xHf +JcDAUt+xBcmXmPu7Z54BNETw/yYvEm9VhUH4aovcfiKITErdT5mvwMYyGnrb +OIigmrpb7tdQgXlXhg2bchGBxizpfMuDCqzo68G5UB4i2H9LcQxWrsA4T5zc +P3GECI8mt3pqo19g33+GXomRIsIBoQlRFa1yLIDhvJ2YDBHUsh+4SQuVY7wC +Bz1qZYnAdPNh3fyvMkxb+2notAIRLEdVaBVMy7CKvIHiU/8RYdEjQWRGoRQL +ucS7/UOVCGODI4I9O8WYeHvho/OXiRAhNncrg6kIey23mTduTgTZ244RNm8L +Mb9HZyodLYjwzbT5aVlyIdbnMP8m3IoIq0YVlb2ShZgnhyxTsx0R5u6Pb62d +K8Car5T6K3oTgY7o8FzmRR5m3/UvstGHCBU0s+q5gXkYF0EvRceXCMp2PQz3 +z+dhtnS/quxuEcHCf79wxY8nGGsxYTkriAh/xrli5AlPMLPNKkuOGCLwB4af +3d+fg9FZ07tlxhLhyUxdv3JODlbaZ3xbLo4IF8NPFbXfyMGoszZSzzwkQlqJ +6wa1WA5WpKkyFJRKBNvbUyrUQdnYekK95u98ItT6Kn3Je5SJxcm3yQw2EcE4 +ZffbC/U0rEjlMlNwCxFMk0Nrzf+lYs3qa7OENiJwBwsw1tSmYsuXcPnxnUS4 +7D6qf5OYiumERwnp9xNBmPTZZlM2BWP4YnDg7UcivKjErENOPcIEFhZXAj9R +OIl/yYvmEaa0HvpOcYIIn4xCmne6krBrLK9iH3wlQlm2p0+fURLWonyESW+W +CM5e2Cl1n0TMP27y78Aa5TtGt8/ybQKWkB4wfnuDCF++n14VyEzAnhXw1Mtv +EqGo7rLbFecEbLThtF/MDhE4/+3wmDMnYEfni1d0aUigZCBb/59uPPZL1Xu2 +bz8JfFNEvXL6H2C2q3TvemRIQCxeXOgfjcIsnmm8NpcjwcxMuBpnUhRmYhXa +91OeBOXzhoXb+lGY1htaMg+BBLY1inHVA5EYrpim3kqZBIVNe5ZP++9h09ZU ++VvqJHj/zfH1sdlwbJwPcu9rkqCYeH1QuCQcG34bmCV0mgQHF+DkI69wrAPb +S9XUJkGFxwidJE04lnf4X2z8BRLcqq+2aZAIw2wGd/ykr5BAyPPm46ywEMw8 +8sSNBgsS5OYYf3hvGIIZgb+XniUJjt8xfh0uGoJplG67+FwjgeLcB3uj1mBM +PGrLutWBBM2bJtyBdMHYpOof3Us3SLCv89t94ewgzPrFinDkAxJI1g9xMOgE +YM7Bhrva8ST4e8Q0uXDLH/MxrPrA+pAEUxeIgbJP/bF76z6xcY9IECz7ZPct +sz9WemxrJ/kxCbwfs3Tqj97Etlr3RgqKSdBJgws4muaL0Ty0rLAvIcGCy7bP +srEvxmrTGiNTRgIpvGDGdS5fTJAhRKO0ggTb1K+tImNuYBraDBUva0kwu8qZ +53bfB4sbZI3p6CKBxA0/BvZiLyztiYt9eA8JpO1Ep955eGFPvF+rn+mj7Cd0 +iUb5mBdWzRu33feaBI3GcwqfezyxcTNu+6H3JHARq7zuseKBSU7yqX+fJAG5 ++VCs2lV3DF91SzBvmgSnr6jeNlF0x46Hfdq6PkupB+FG/NSeG6Yr+bh8foEE +XwOuGPhqumGeTsKCv3+TIGXnaeGncRcs4OTdrYpVEty5QJNBCHPBwti+D3uv +kyDUpn4iSMEFSyl7Er25SQIPFpFMqlBnLDeIzq5umwSbJn2jsnhnrFj/ulrA +LgnYDEpHNSecsCpRsgD2j9IvM3Y23WgnrGkVt7W3R4LHTFuLJ447Yf8DhCuA +uQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.17863287939476}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 20}, {0., 0.17863287939476}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9920992974315434`*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"324ac577-08c9-2b49-86fb-e33fc9c29d64"] +}, 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[143]:=",ExpressionUUID->"9cb62145-2ada-bc41-956f-2b9918d80413"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.79939548539759`*^-218\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 143, 334, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512859148*^9, 3.9920992974705524`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"b958c607-4c23-f94c-acb5-68950c00b4f4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8368432860451523`*^-223\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 143, 335, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512859148*^9, 3.992099297479435*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"7a744023-9440-5840-b2fe-c62afdb63205"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.962195925704206`*^-229\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 143, 336, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512859148*^9, 3.992099297487438*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"a7884327-cab4-6145-8cd9-16b1d7c70e1a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 143, 337, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512859148*^9, 3.9920992974957943`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"8e17eeaf-79a8-384e-a3cd-e365834d4802"], + +Cell[BoxData["20.842886952760505`"], "Output", + CellChangeTimes->{3.9913335200445786`*^9, 3.99209932497381*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"f7af3923-be91-4747-bf22-84ca8958cffe"] +}, 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.991845086901308*^9, 3.991845092064165*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"3b8ec59c-bf90-a74e-8e19-98c05b1b569e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5416484227527176`*^-241\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 144, 338, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335200775414`*^9, 3.9920993250157948`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"6c491ae5-3c03-0248-9e86-43889fa3c104"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.774125824880928`*^-249\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 144, 339, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335200775414`*^9, 3.9920993250237713`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"6dc6a0fc-6f88-a547-9938-c756c439070e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.9202863278753376`*^-256\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 144, 340, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335200775414`*^9, 3.9920993250317726`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"cb852058-c327-e640-852e-23de46ef94a4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 144, 341, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335200775414`*^9, 3.9920993250387726`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"38add85e-6da6-e943-ab35-ba1861030e53"], + +Cell[BoxData["0.013572781125747023`"], "Output", + CellChangeTimes->{3.9913335271231823`*^9, 3.9920993288256893`*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"9ba5b485-ee0c-af40-aae1-502982f7926f"] +}, 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.991845095514675*^9, 3.991845099002287*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"ca9a5900-6241-e942-8e6f-ccee4f3ad231"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5416484227527176`*^-241\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 145, 342, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335271591835`*^9, 3.9920993288687973`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"0ac1d6e8-df8c-3c4f-ae1a-194db2a23c76"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.774125824880928`*^-249\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 145, 343, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335271591835`*^9, 3.9920993288777943`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"bf6479ea-910b-b64f-97c1-200bd1179913"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.9202863278753376`*^-256\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 145, 344, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335271591835`*^9, 3.992099328884796*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"a9fc6bdf-c529-be4f-9c55-213ac17f2205"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 145, 345, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335271591835`*^9, 3.9920993288927975`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"f58e6cff-b459-224d-b86e-09f230d8149a"], + +Cell[BoxData["4.948183019067116`"], "Output", + CellChangeTimes->{3.9913335331581306`*^9, 3.992099331857584*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"bb87cb1d-018c-034b-bd1a-7482c9d90b38"] +}, 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.991845103890877*^9, 3.9918451079172287`*^9}}, + CellLabel-> + "In[146]:=",ExpressionUUID->"4b76f315-df8b-2e44-9766-11e105bf7f03"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5416484227527176`*^-241\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 146, 346, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335331923027`*^9, 3.9920993318975697`*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"e9ad4d1a-7191-dc4b-ae6f-c1615226a7a4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.774125824880928`*^-249\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 146, 347, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335331923027`*^9, 3.9920993319065704`*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"87e8e358-1420-0142-9e16-c5af17644a90"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.9202863278753376`*^-256\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 146, 348, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335331923027`*^9, 3.992099331914572*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"490a9a5d-00a8-0e43-ae8e-0caf5ecc8717"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 146, 349, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335331923027`*^9, 3.9920993319215717`*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"c9dfd152-acaf-ae4b-94ad-9d639249649e"], + +Cell[BoxData["114.94373349077757`"], "Output", + CellChangeTimes->{3.9913335366055527`*^9, 3.9920993337616463`*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"00e6644b-899e-2043-8888-f47a06ba89bd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918451116798954`*^9, 3.991845116011841*^9}}, + CellLabel-> + "In[147]:=",ExpressionUUID->"c61261a4-9291-8d4e-84ee-07cf74de18fa"], + +Cell[BoxData["0.0005691193066815145`"], "Output", + CellChangeTimes->{3.9913335366395893`*^9, 3.992099333790659*^9}, + CellLabel-> + "Out[147]=",ExpressionUUID->"c87402cc-58bf-fa40-b08e-5ceb3cffdc66"] +}, 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->"477cbae2-68b6-a84d-b5e5-8fac157f8e8b" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 402, 7, 28, "Input",ExpressionUUID->"5d7f3c58-d7ac-3d4c-9c2d-257c77b24176"], +Cell[981, 31, 224, 3, 32, "Output",ExpressionUUID->"c3602a97-797f-f440-a7e0-b2c915dfc2b5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1242, 39, 348, 5, 28, "Input",ExpressionUUID->"ee8d63c9-a14e-c94a-82d8-c1f927d307bc"], +Cell[1593, 46, 455, 7, 32, "Output",ExpressionUUID->"52dd1fed-951a-bd48-ae2b-baa5f1b7b122"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2085, 58, 224, 4, 28, "Input",ExpressionUUID->"ef10bfb7-3507-0940-9784-5e42848fe187"], +Cell[2312, 64, 447, 7, 32, "Output",ExpressionUUID->"d801ab99-6eb9-404e-832e-146cd836f3b5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2796, 76, 175, 3, 28, "Input",ExpressionUUID->"fd898102-cff3-554d-9374-c174a9ea61d0"], +Cell[2974, 81, 423, 6, 32, "Output",ExpressionUUID->"be54d355-3c29-a94d-a5ec-1b1bf27b9726"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3434, 92, 257, 7, 43, "Input",ExpressionUUID->"c2890b61-7dba-2c4d-a218-225236f18479"], +Cell[3694, 101, 443, 6, 32, "Output",ExpressionUUID->"88269f3a-ed33-c749-a99e-7fa5a60eb9d6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4174, 112, 131, 2, 28, "Input",ExpressionUUID->"a0a6203e-5cc8-2740-87c4-d31769f55e98"], +Cell[4308, 116, 429, 6, 32, "Output",ExpressionUUID->"2cb2927c-7c1c-af4c-8c06-d68bed06dc7d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4774, 127, 276, 6, 28, "Input",ExpressionUUID->"8050325e-c9cc-7d40-b36b-38d7056e1638"], +Cell[5053, 135, 438, 6, 32, "Output",ExpressionUUID->"d92d8fa8-4abc-4c4e-adcb-51945dcaea14"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5528, 146, 257, 7, 28, "Input",ExpressionUUID->"d9f99a55-33da-804c-a5ad-12b4e5c626e2"], +Cell[5788, 155, 439, 6, 32, "Output",ExpressionUUID->"01824095-28ab-6b4b-adc4-af432f4c1dc0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6264, 166, 266, 5, 28, "Input",ExpressionUUID->"9477f27d-2081-7c47-8d20-05a3e74706af"], +Cell[6533, 173, 461, 7, 32, "Output",ExpressionUUID->"ba5a9596-dc06-1646-a09f-674494303941"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7031, 185, 265, 5, 28, "Input",ExpressionUUID->"99b7f8c4-7cfc-9d4e-810a-d1155882fead"], +Cell[7299, 192, 463, 7, 32, "Output",ExpressionUUID->"c84439a7-50c9-474f-9c85-fa5503683014"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7799, 204, 129, 2, 28, "Input",ExpressionUUID->"1b32eb30-e14d-b642-a59f-53a56514d218"], +Cell[7931, 208, 416, 6, 32, "Output",ExpressionUUID->"d5664c75-ec2e-da44-8339-c3d34ea37979"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8384, 219, 129, 2, 28, "Input",ExpressionUUID->"f4f33272-860a-3a4b-b2b5-8a2f0726a180"], +Cell[8516, 223, 420, 6, 32, "Output",ExpressionUUID->"a213880e-71da-6745-8d93-8ddb218231df"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8973, 234, 557, 19, 79, "Input",ExpressionUUID->"b22b95ef-a83a-ce41-b26b-4741d866a314"], +Cell[9533, 255, 418, 6, 32, "Output",ExpressionUUID->"d622455d-63c3-f548-aec6-7caeba4a16e4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9988, 266, 557, 19, 79, "Input",ExpressionUUID->"ea2e33af-6a11-4c42-a04c-b0aac8218771"], +Cell[10548, 287, 414, 6, 32, "Output",ExpressionUUID->"6d61b059-a28a-f244-8054-0037e8c4e589"] +}, Open ]], +Cell[CellGroupData[{ +Cell[10999, 298, 1492, 48, 80, "Input",ExpressionUUID->"1a4025d0-1e4d-3c43-9e67-c53ed88a9262"], +Cell[12494, 348, 420, 6, 32, "Output",ExpressionUUID->"1a0dce2d-86d3-424b-9cd4-05a291a81f05"] +}, Open ]], +Cell[CellGroupData[{ +Cell[12951, 359, 1331, 44, 80, "Input",ExpressionUUID->"165bd138-dd1b-0040-aa11-2ff05911b96e"], +Cell[14285, 405, 431, 7, 32, "Output",ExpressionUUID->"9b649e47-74bb-5f48-8513-cf31991a9f86"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14753, 417, 1331, 44, 80, "Input",ExpressionUUID->"0856d9b2-bb1c-e64b-b06d-5ce0b8e04c7d"], +Cell[16087, 463, 432, 7, 32, "Output",ExpressionUUID->"9ab9fdc0-199c-5d4e-80d4-88f7e68384cc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16556, 475, 1492, 48, 80, "Input",ExpressionUUID->"d81aa958-b719-f94b-8973-dfd432cb8391"], +Cell[18051, 525, 415, 6, 32, "Output",ExpressionUUID->"858889a7-a250-e74c-98ae-298106da971d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18503, 536, 131, 2, 28, "Input",ExpressionUUID->"289fd753-f795-2449-8aae-0330b1a01cc7"], +Cell[18637, 540, 393, 6, 32, "Output",ExpressionUUID->"3c80f51a-5127-8b49-9cb4-59e3e82ae77d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19067, 551, 177, 3, 28, "Input",ExpressionUUID->"64e31945-e1a2-c44d-baa4-fc7ee4b69fd7"], +Cell[19247, 556, 395, 6, 32, "Output",ExpressionUUID->"51d36877-108d-7e45-bd1c-7ace8caa5146"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19679, 567, 134, 2, 28, "Input",ExpressionUUID->"7ca03742-98f1-914b-94f5-c65ad4ad6025"], +Cell[19816, 571, 397, 6, 32, "Output",ExpressionUUID->"287eabd6-1cd6-cd48-bac1-4fa3c400e9e2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20250, 582, 219, 4, 28, "Input",ExpressionUUID->"168d97dc-93a2-534f-a4b0-ebcbec005cc0"], +Cell[20472, 588, 412, 7, 32, "Output",ExpressionUUID->"e5ef94c6-ccd1-9146-9ec7-707b8e927b4a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20921, 600, 134, 2, 28, "Input",ExpressionUUID->"98921716-e68b-2f40-b378-e9bd41b83c87"], +Cell[21058, 604, 406, 6, 32, "Output",ExpressionUUID->"4b3d3331-e7f7-854d-a757-6cbb6de3c53e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21501, 615, 302, 5, 28, "Input",ExpressionUUID->"74cc08c4-0239-974a-8ca1-3828485a5e01"], +Cell[21806, 622, 347, 5, 32, "Output",ExpressionUUID->"eb8ec8e2-ad57-ec41-836c-4626217b7da6"] +}, Open ]], +Cell[22168, 630, 173, 2, 28, "Input",ExpressionUUID->"881423cb-ae85-f24c-be76-eb8be8221cff"], +Cell[CellGroupData[{ +Cell[22366, 636, 322, 6, 28, "Input",ExpressionUUID->"7a6be152-b33a-7440-943c-43a17ffc3c2a"], +Cell[22691, 644, 398, 6, 32, "Output",ExpressionUUID->"685af7b9-04ab-d54e-84e2-a2767d7b87f1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23126, 655, 219, 4, 28, "Input",ExpressionUUID->"00fffd24-84e4-6646-8fb0-7d33fe1103d5"], +Cell[23348, 661, 400, 6, 32, "Output",ExpressionUUID->"e3168fd7-d645-5e43-8f8d-1f8f7d9b332b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23785, 672, 350, 10, 43, "Input",ExpressionUUID->"cdc9442f-43cc-cc44-b03e-a45f77c397f5"], +Cell[24138, 684, 420, 6, 32, "Output",ExpressionUUID->"495ba715-2e96-f14b-b745-b6123572e0a5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24595, 695, 350, 10, 43, "Input",ExpressionUUID->"0338f402-1d7b-b840-b687-d7c5bfd53e0a"], +Cell[24948, 707, 438, 7, 32, "Output",ExpressionUUID->"39868942-62b9-0241-bd22-a74ab19559b1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[25423, 719, 992, 26, 113, "Input",ExpressionUUID->"04400c68-fee3-384f-bfc1-631bc2edc08b"], +Cell[26418, 747, 410, 6, 32, "Output",ExpressionUUID->"f800b105-89e1-3b4e-aceb-4d24ed5a36f7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26865, 758, 199, 3, 28, "Input",ExpressionUUID->"b9a3aa8d-2d42-8c4d-8e49-036de8ab16d3"], +Cell[27067, 763, 400, 6, 32, "Output",ExpressionUUID->"24d41400-ee08-7949-8568-b030514c0a94"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27504, 774, 273, 4, 28, "Input",ExpressionUUID->"b3d5e1fb-2cc9-3742-b581-c83a9a3866e6"], +Cell[27780, 780, 358, 5, 32, "Output",ExpressionUUID->"5ae39dcf-a8a3-a645-87a7-d92f387f2156"] +}, Open ]], +Cell[28153, 788, 175, 2, 28, "Input",ExpressionUUID->"2f4823d2-c451-d14e-97d6-d2449021df44"], +Cell[CellGroupData[{ +Cell[28353, 794, 344, 6, 47, "Input",ExpressionUUID->"9024a329-bbda-294f-901e-f3f07122e248"], +Cell[28700, 802, 348, 5, 32, "Output",ExpressionUUID->"207ae76e-6fe4-ae46-9e0c-612fc3b3c20e"] +}, Open ]], +Cell[29063, 810, 173, 2, 28, "Input",ExpressionUUID->"9149c3bf-88f7-0748-b176-ca6074a8a04d"], +Cell[CellGroupData[{ +Cell[29261, 816, 343, 6, 47, "Input",ExpressionUUID->"2189ec4b-9841-2440-b849-079a68843a39"], +Cell[29607, 824, 353, 5, 32, "Output",ExpressionUUID->"b34947d4-51c0-a842-9aff-5403b859b0dd"] +}, Open ]], +Cell[29975, 832, 175, 2, 28, "Input",ExpressionUUID->"4dd1c3e6-1835-424b-af0e-b0392d86b616"], +Cell[CellGroupData[{ +Cell[30175, 838, 349, 6, 47, "Input",ExpressionUUID->"7d75d998-704d-1440-94c8-65a87558564a"], +Cell[30527, 846, 352, 5, 32, "Output",ExpressionUUID->"438e8804-30aa-8840-80e8-0f07515e5762"] +}, Open ]], +Cell[30894, 854, 175, 2, 28, "Input",ExpressionUUID->"8de93d16-a08a-5040-aab8-61be65f54eed"], +Cell[CellGroupData[{ +Cell[31094, 860, 275, 4, 28, "Input",ExpressionUUID->"52c80ed1-89a7-e34c-bd27-bf4f55cd93d1"], +Cell[31372, 866, 352, 5, 32, "Output",ExpressionUUID->"89538673-ac1f-3541-a8ef-1f2177571064"] +}, Open ]], +Cell[31739, 874, 173, 2, 28, "Input",ExpressionUUID->"f571f201-b77b-5f42-b520-778741ce5344"], +Cell[CellGroupData[{ +Cell[31937, 880, 277, 4, 28, "Input",ExpressionUUID->"a61cd4ad-f1d5-d946-97ee-fe30eb4b8edb"], +Cell[32217, 886, 353, 5, 32, "Output",ExpressionUUID->"4730a0f7-52d8-4849-88a4-7ad1fc36c60a"] +}, Open ]], +Cell[32585, 894, 171, 2, 28, "Input",ExpressionUUID->"cd574538-0409-044a-bbee-1b1b2deb12a1"], +Cell[CellGroupData[{ +Cell[32781, 900, 306, 5, 28, "Input",ExpressionUUID->"a422dcf3-e699-4543-a94d-1a54ef04fc1e"], +Cell[33090, 907, 347, 5, 32, "Output",ExpressionUUID->"d6e0f94e-7845-834a-ac1c-0dbcfcf07e26"] +}, Open ]], +Cell[33452, 915, 175, 2, 28, "Input",ExpressionUUID->"aeb525a9-edf7-3442-b8db-f3a6351001e9"], +Cell[CellGroupData[{ +Cell[33652, 921, 251, 4, 28, "Input",ExpressionUUID->"f6dc2304-b377-084a-9d73-2554c49f7eaa"], +Cell[33906, 927, 350, 5, 32, "Output",ExpressionUUID->"c90433e4-3070-2b48-ba85-5acb6b02ffb1"] +}, Open ]], +Cell[34271, 935, 171, 2, 28, "Input",ExpressionUUID->"01a37d7a-6579-7744-9b4f-392c494ab79c"], +Cell[CellGroupData[{ +Cell[34467, 941, 19809, 485, 2217, "Input",ExpressionUUID->"74ff4393-9419-c14e-af2a-e2c84c9c6bd3"], +Cell[54279, 1428, 415, 6, 32, "Output",ExpressionUUID->"7f2045b0-5726-f448-828c-09426f0ee43a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[54731, 1439, 19748, 489, 2304, "Input",ExpressionUUID->"9021d8aa-d6fd-7b42-a25b-70fe6d3bc411"], +Cell[74482, 1930, 416, 6, 32, "Output",ExpressionUUID->"c1b73769-4f4a-b044-86ae-ecd8c032b224"] +}, Open ]], +Cell[CellGroupData[{ +Cell[74935, 1941, 19748, 483, 2276, "Input",ExpressionUUID->"54ab8f9a-d4c3-7b41-8dd4-daeb882bf7c7"], +Cell[94686, 2426, 429, 7, 32, "Output",ExpressionUUID->"b78ffbe2-7ce0-1e43-bfae-b3baabf1d008"] +}, Open ]], +Cell[CellGroupData[{ +Cell[95152, 2438, 22534, 553, 2583, "Input",ExpressionUUID->"f111cd74-032a-4f40-a28b-983a36c59c39"], +Cell[117689, 2993, 429, 7, 32, "Output",ExpressionUUID->"d6865eb5-7059-5642-86ac-2b202b40a9ae"] +}, Open ]], +Cell[CellGroupData[{ +Cell[118155, 3005, 22535, 553, 2583, "Input",ExpressionUUID->"5f3fa59b-353b-9042-acc3-b8adcd159c91"], +Cell[140693, 3560, 426, 7, 32, "Output",ExpressionUUID->"e4e814a1-a8b4-2842-9f92-3e0999e695c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[141156, 3572, 25491, 626, 2890, "Input",ExpressionUUID->"7bffec34-d7d9-9b4f-94ca-33a86f0238f4"], +Cell[166650, 4200, 427, 7, 32, "Output",ExpressionUUID->"7e7df0b4-9ee2-864d-92c7-b8e6ecffbe46"] +}, Open ]], +Cell[CellGroupData[{ +Cell[167114, 4212, 130, 2, 28, "Input",ExpressionUUID->"60185285-a7e1-224d-812f-278ba4b6916a"], +Cell[167247, 4216, 392, 6, 32, "Output",ExpressionUUID->"e43536d1-06d4-0548-80cf-38452b2bddbf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[167676, 4227, 130, 2, 28, "Input",ExpressionUUID->"49344be9-a084-ac42-9eea-f2dfcb1724ae"], +Cell[167809, 4231, 394, 6, 32, "Output",ExpressionUUID->"077ec026-8ed8-484c-bf46-a80183b8a110"] +}, Open ]], +Cell[CellGroupData[{ +Cell[168240, 4242, 1144, 39, 110, "Input",ExpressionUUID->"b9e988db-c1b8-684d-bf7e-c721a9a3a25b"], +Cell[169387, 4283, 416, 6, 32, "Output",ExpressionUUID->"ef607ab6-d365-0b45-869e-88ee9c587661"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169840, 4294, 1041, 35, 110, "Input",ExpressionUUID->"afe65164-4298-a646-97a0-bdbe1c07b528"], +Cell[170884, 4331, 431, 7, 32, "Output",ExpressionUUID->"5f59fd90-a4d0-3645-95f5-a2bef01099a9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[171352, 4343, 1144, 39, 110, "Input",ExpressionUUID->"febb6e99-aaa5-3544-ac76-8eea1459ab01"], +Cell[172499, 4384, 416, 6, 32, "Output",ExpressionUUID->"9c413ef7-0e65-2140-9236-fa0eb8986002"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172952, 4395, 108, 1, 28, "Input",ExpressionUUID->"ddd38bfb-9f83-4342-9ac3-9f01416596a3"], +Cell[173063, 4398, 411, 6, 32, "Output",ExpressionUUID->"91ca52d4-5117-2b43-aa95-63f537e33f40"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173511, 4409, 108, 1, 28, "Input",ExpressionUUID->"d113303b-fee6-c74b-bd6d-1ec02e5efe9f"], +Cell[173622, 4412, 438, 7, 32, "Output",ExpressionUUID->"9732f2d2-a88d-9746-bba9-94ce3ae41a4e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174097, 4424, 108, 1, 28, "Input",ExpressionUUID->"24b19227-a138-ad42-bf41-d7a877ffb1c9"], +Cell[174208, 4427, 431, 7, 32, "Output",ExpressionUUID->"b87fecb4-8f31-7f49-942d-50e83c931567"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174676, 4439, 108, 1, 28, "Input",ExpressionUUID->"abde0b88-7fb6-664a-9233-dd4c18a5dd8e"], +Cell[174787, 4442, 415, 6, 32, "Output",ExpressionUUID->"7e8f81ab-fb5d-1042-9857-2785c2725c73"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175239, 4453, 107, 1, 28, "Input",ExpressionUUID->"62e3f82a-3d30-0047-8c1b-19eb5558d8c0"], +Cell[175349, 4456, 415, 6, 32, "Output",ExpressionUUID->"491ff2a4-ba96-9c4d-81af-41067460e3ce"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175801, 4467, 107, 1, 28, "Input",ExpressionUUID->"3d22b994-b8ae-194a-a27d-0c225633ecab"], +Cell[175911, 4470, 417, 6, 32, "Output",ExpressionUUID->"7d36b7b2-ec99-5545-afa0-e852d204f811"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176365, 4481, 497, 16, 56, "Input",ExpressionUUID->"9af85c7a-6b3e-d84f-baea-5073ca78047f"], +Cell[176865, 4499, 429, 7, 32, "Output",ExpressionUUID->"52b50e9d-a034-c54a-a54d-7c064a3217f8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[177331, 4511, 497, 16, 56, "Input",ExpressionUUID->"a1929f09-4887-ae47-9754-84c1b85d58a4"], +Cell[177831, 4529, 426, 7, 32, "Output",ExpressionUUID->"5154ffdb-ecc2-dd46-9740-247dfd418834"] +}, Open ]], +Cell[CellGroupData[{ +Cell[178294, 4541, 1788, 60, 188, "Input",ExpressionUUID->"c154c925-a986-d241-98b4-2f229f652ec2"], +Cell[180085, 4603, 413, 6, 32, "Output",ExpressionUUID->"1bcd8488-2b6e-fe4a-aaa0-6195c787ad0c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[180535, 4614, 1101, 36, 133, "Input",ExpressionUUID->"4ade1a5e-e6a2-d043-86ce-7f1fb5b9107d"], +Cell[181639, 4652, 431, 7, 32, "Output",ExpressionUUID->"12fbfc14-edb8-8f42-88f2-3f59d994fc81"] +}, Open ]], +Cell[CellGroupData[{ +Cell[182107, 4664, 1818, 61, 165, "Input",ExpressionUUID->"ec9ecdef-89ad-7942-8c51-8f649ab97318"], +Cell[183928, 4727, 416, 6, 32, "Output",ExpressionUUID->"c334bd6a-b34a-904e-85f5-7bb9ecc0ff69"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184381, 4738, 2499, 77, 133, "Input",ExpressionUUID->"47f6be2c-7d29-6249-a2c5-7fd4a4d6c695"], +Cell[186883, 4817, 414, 6, 32, "Output",ExpressionUUID->"f668c187-d351-ee41-80b5-b2651295f4fb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187334, 4828, 2499, 77, 133, "Input",ExpressionUUID->"dc144e14-e7fc-0a47-b6ea-1829a153f446"], +Cell[189836, 4907, 413, 6, 32, "Output",ExpressionUUID->"4244c867-69b8-834a-b9fc-7964731abc20"] +}, Open ]], +Cell[CellGroupData[{ +Cell[190286, 4918, 211, 3, 28, "Input",ExpressionUUID->"8b10a187-c7b7-0f44-8f32-75ec5ae33e70"], +Cell[190500, 4923, 187, 2, 32, "Output",ExpressionUUID->"5de45314-c3a5-c145-9fdb-2eb9f3962e8b"] +}, Open ]], +Cell[190702, 4928, 171, 2, 28, "Input",ExpressionUUID->"d7190627-18d6-a94b-880e-e3f073ed75cd"], +Cell[CellGroupData[{ +Cell[190898, 4934, 209, 3, 28, "Input",ExpressionUUID->"ff3a0633-5725-474e-a1df-0fae08da0391"], +Cell[191110, 4939, 192, 2, 32, "Output",ExpressionUUID->"2ca0e7ad-a5d4-2040-a283-78ec22da15c2"] +}, Open ]], +Cell[191317, 4944, 173, 2, 28, "Input",ExpressionUUID->"c4cb48f6-8bef-5140-97cb-74fc477176c0"], +Cell[CellGroupData[{ +Cell[191515, 4950, 1297, 42, 113, "Input",ExpressionUUID->"1479e503-99dc-8043-a7ed-41f4ebd401a5"], +Cell[192815, 4994, 220, 3, 32, "Output",ExpressionUUID->"04eaee9b-dd92-0542-948f-ec84201abdc0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193072, 5002, 929, 29, 56, "Input",ExpressionUUID->"ee451e0a-03c5-5d4b-809d-1baa2036c180"], +Cell[194004, 5033, 218, 3, 32, "Output",ExpressionUUID->"66b4f452-0e50-6b49-aeaa-9f4363648229"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194259, 5041, 983, 32, 56, "Input",ExpressionUUID->"1b7f9814-f540-ee4f-a97a-82e0c001ccbc"], +Cell[195245, 5075, 223, 3, 32, "Output",ExpressionUUID->"8193e213-cd10-ae41-b8a1-acf195603f72"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195505, 5083, 554, 18, 52, "Input",ExpressionUUID->"add7dc78-05f0-9740-a4f6-53e576919ef8"], +Cell[196062, 5103, 220, 3, 32, "Output",ExpressionUUID->"56bc143a-503b-7744-ac66-e33467848e43"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196319, 5111, 619, 20, 52, "Input",ExpressionUUID->"9b673079-5994-e34c-a858-9ada9b775642"], +Cell[196941, 5133, 216, 3, 32, "Output",ExpressionUUID->"d1529553-e751-2246-9698-485328fe7ad0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197194, 5141, 166, 4, 56, "Input",ExpressionUUID->"2e19814e-d8e4-0440-a349-54cc93ccdf53"], +Cell[197363, 5147, 220, 3, 32, "Output",ExpressionUUID->"60251a30-bb97-dd4e-8362-6b146a7a1b1f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197620, 5155, 166, 4, 55, "Input",ExpressionUUID->"538f6b3e-6e49-7749-a73e-74beaffe6942"], +Cell[197789, 5161, 216, 3, 32, "Output",ExpressionUUID->"e7884dd5-ccad-bc4a-ace4-00fc39dac13b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198042, 5169, 177, 4, 43, "Input",ExpressionUUID->"0943a4c5-ab88-024e-b598-6ab09308c529"], +Cell[198222, 5175, 214, 3, 32, "Output",ExpressionUUID->"d2c85f34-ee98-8f4b-93ff-cb0837cb4166"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198473, 5183, 177, 4, 43, "Input",ExpressionUUID->"5313d107-d67a-0a42-97ea-bdd5afbb176c"], +Cell[198653, 5189, 213, 3, 32, "Output",ExpressionUUID->"e86040c9-952a-0f4e-b6fb-a10fc0405b83"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198903, 5197, 6051, 184, 498, "Input",ExpressionUUID->"05311468-f950-6f43-ae68-9cc6502c4986"], +Cell[204957, 5383, 218, 3, 32, "Output",ExpressionUUID->"74c6b349-5a34-4247-85c8-7b5939eab9b2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205212, 5391, 364, 8, 42, "Input",ExpressionUUID->"55ab7556-231d-f846-b625-6b6079424223"], +Cell[205579, 5401, 217, 3, 32, "Output",ExpressionUUID->"d6013f8c-20e0-0d48-b66a-5d67e778771f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205833, 5409, 6118, 186, 500, "Input",ExpressionUUID->"de97f1d4-a997-5d44-ad21-9d29636b6b11"], +Cell[211954, 5597, 218, 3, 32, "Output",ExpressionUUID->"f7ad8e48-f535-b544-992c-810f1b8caca0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[212209, 5605, 364, 8, 42, "Input",ExpressionUUID->"69bf2733-1c68-0d45-9dcf-32eb09d0774e"], +Cell[212576, 5615, 216, 3, 32, "Output",ExpressionUUID->"f9a10c5f-e0e1-1141-b37d-eca10f77554f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[212829, 5623, 2659, 87, 187, "Input",ExpressionUUID->"790285fd-a791-004a-beb8-81432d5fe6ed"], +Cell[215491, 5712, 218, 3, 32, "Output",ExpressionUUID->"4aa121c6-d48e-2c47-beab-69855d2dc72f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[215746, 5720, 2599, 84, 165, "Input",ExpressionUUID->"8d9d59ff-5258-ed44-b54a-00649424f6ab"], +Cell[218348, 5806, 219, 3, 32, "Output",ExpressionUUID->"7092a207-b239-cc4c-a9a2-d27b8a535ae4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[218604, 5814, 3708, 117, 348, "Input",ExpressionUUID->"082cc170-e78d-1f4c-ac49-a1fc473fe786"], +Cell[222315, 5933, 222, 3, 32, "Output",ExpressionUUID->"390fc299-1cc9-bf4f-8ac1-c63ba460e620"] +}, Open ]], +Cell[222552, 5939, 160, 3, 42, "Input",ExpressionUUID->"b80089e4-e129-a84d-a279-8559e98c6042"], +Cell[CellGroupData[{ +Cell[222737, 5946, 2071, 58, 228, "Input",ExpressionUUID->"d15c8f9d-5cd8-0448-9115-8fd811f7859e"], +Cell[224811, 6006, 592, 12, 84, "Message",ExpressionUUID->"34506e82-c915-724e-a831-74a154366a0f"], +Cell[225406, 6020, 601, 13, 84, "Message",ExpressionUUID->"497dd8d9-1eab-4645-ad96-4b90c8e14cdd"], +Cell[226010, 6035, 605, 13, 66, "Message",ExpressionUUID->"a5fa3bd6-efa8-ca47-a84c-502a75c763e1"], +Cell[226618, 6050, 507, 11, 26, "Message",ExpressionUUID->"e80b8bfd-72ef-d04e-81b9-b7cc8481af90"], +Cell[227128, 6063, 216, 3, 32, "Output",ExpressionUUID->"5f66b862-cf26-ea43-882b-1a72e60af917"] +}, Open ]], +Cell[CellGroupData[{ +Cell[227381, 6071, 2071, 58, 228, "Input",ExpressionUUID->"a596efda-1871-9b45-afb4-f85dfdafd26c"], +Cell[229455, 6131, 590, 12, 84, "Message",ExpressionUUID->"e411e6e9-97fc-7248-8f6b-4067e2d54897"], +Cell[230048, 6145, 597, 13, 84, "Message",ExpressionUUID->"c1575fcf-ea37-704f-8326-ff067ae4be7f"], +Cell[230648, 6160, 601, 13, 66, "Message",ExpressionUUID->"9fd03e26-8926-d24f-af8c-55439414ffdd"], +Cell[231252, 6175, 501, 11, 26, "Message",ExpressionUUID->"744a9f62-3832-3542-8b42-c5530f9c4158"], +Cell[231756, 6188, 217, 3, 32, "Output",ExpressionUUID->"be32d424-bf45-914a-b721-ef5c4455f3fa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[232010, 6196, 1955, 52, 115, "Input",ExpressionUUID->"98a8fe78-0965-1043-b897-797c175d7e63"], +Cell[233968, 6250, 20424, 384, 237, "Output",ExpressionUUID->"8cbcd775-391a-794f-86cb-49bd9cf231a3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[254429, 6639, 2133, 59, 211, "Input",ExpressionUUID->"9a11a03e-c4c1-5741-ac7d-23e1536f3e79"], +Cell[256565, 6700, 544, 12, 60, "Message",ExpressionUUID->"9948f367-fae7-3c4a-8ec7-a088bde8b511"], +Cell[257112, 6714, 547, 12, 60, "Message",ExpressionUUID->"df0d240f-ca5f-f14f-9252-a214eaefa799"], +Cell[257662, 6728, 547, 12, 60, "Message",ExpressionUUID->"eabe5fa8-38ae-ce4d-9631-0979ecb68256"], +Cell[258212, 6742, 505, 11, 26, "Message",ExpressionUUID->"8d7c7477-e481-a74d-a0c1-7dfb29f95390"], +Cell[258720, 6755, 22166, 409, 233, "Output",ExpressionUUID->"6634751e-80ee-6044-907a-7e25e47f573d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[280923, 7169, 1860, 50, 120, "Input",ExpressionUUID->"d0e220f6-a6cd-c048-ab1a-de311ff0fdbc"], +Cell[282786, 7221, 9022, 210, 240, "Output",ExpressionUUID->"8ca2b0cd-feb9-9d46-90ee-f4a7e3e9bdc2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[291845, 7436, 276, 5, 42, "Input",ExpressionUUID->"b9d1e9a3-d136-bb41-ba98-cea12bff5352"], +Cell[292124, 7443, 28124, 532, 233, "Output",ExpressionUUID->"49eaf9f0-d66d-d248-96e8-9d1b24c5e649"] +}, Open ]], +Cell[CellGroupData[{ +Cell[320285, 7980, 234, 6, 48, "Input",ExpressionUUID->"f431849e-0899-864c-b9d1-1df0491628db"], +Cell[320522, 7988, 218, 3, 32, "Output",ExpressionUUID->"8707ea8b-950e-8f4c-a93e-7fc03d8c2221"] +}, Open ]], +Cell[CellGroupData[{ +Cell[320777, 7996, 1839, 53, 183, "Input",ExpressionUUID->"650ee12b-eb50-044b-94e9-ce88ff255deb"], +Cell[322619, 8051, 542, 12, 60, "Message",ExpressionUUID->"d14217c2-0468-2b4f-af36-5738b1135ea8"], +Cell[323164, 8065, 548, 12, 60, "Message",ExpressionUUID->"afff6afa-7b79-d54a-90ff-88e033c818e1"], +Cell[323715, 8079, 551, 12, 60, "Message",ExpressionUUID->"7fb5b0dd-013b-3646-b824-248c90e05387"], +Cell[324269, 8093, 507, 11, 26, "Message",ExpressionUUID->"d191cce1-9dc4-4848-bfae-9199e6e4a42e"], +Cell[324779, 8106, 21756, 404, 233, "Output",ExpressionUUID->"fa07d8a7-b0ec-5443-b356-724e13a86f9b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[346572, 8515, 1616, 48, 113, "Input",ExpressionUUID->"5c6d0b57-910e-664a-8fd6-40771b36868b"], +Cell[348191, 8565, 579, 12, 60, "Message",ExpressionUUID->"ef871e35-46ba-b245-8f27-60fefbd51296"], +Cell[348773, 8579, 583, 12, 60, "Message",ExpressionUUID->"05592ce2-95f9-944d-809e-448a5766e3b8"], +Cell[349359, 8593, 585, 12, 60, "Message",ExpressionUUID->"6d14efd6-6474-aa47-9ee8-2ba2f3bbeab8"], +Cell[349947, 8607, 505, 11, 26, "Message",ExpressionUUID->"b8692b98-27aa-2e43-a9e4-db06e05f2ea8"], +Cell[350455, 8620, 219, 4, 32, "Output",ExpressionUUID->"b65b523e-3a9a-2345-98f7-5f2133665585"] +}, Open ]], +Cell[CellGroupData[{ +Cell[350711, 8629, 2270, 64, 223, "Input",ExpressionUUID->"b04a104f-3249-a34a-8102-7d9b3c7b796d"], +Cell[352984, 8695, 590, 12, 84, "Message",ExpressionUUID->"b6d11303-c7af-144f-89e8-08357295f81f"], +Cell[353577, 8709, 597, 13, 84, "Message",ExpressionUUID->"104ec450-cf72-4649-b489-757cbd2fb8a0"], +Cell[354177, 8724, 603, 13, 66, "Message",ExpressionUUID->"f08ad4f8-b9e9-634d-a88c-8e7647d2e0c3"], +Cell[354783, 8739, 503, 11, 26, "Message",ExpressionUUID->"f4d3212b-b508-ea44-abf4-57e8c6aa9fca"], +Cell[355289, 8752, 220, 4, 32, "Output",ExpressionUUID->"13585f92-1b74-c241-afd2-3f9eb5f34548"] +}, Open ]], +Cell[CellGroupData[{ +Cell[355546, 8761, 2244, 64, 162, "Input",ExpressionUUID->"6b8170ef-e8e1-8b4d-b589-528a0f547fe8"], +Cell[357793, 8827, 590, 12, 84, "Message",ExpressionUUID->"e92d017c-1f33-0340-8d2c-d44333f7f3ae"], +Cell[358386, 8841, 597, 13, 84, "Message",ExpressionUUID->"a9bb0afa-553c-8148-8d0b-426847c1f6d8"], +Cell[358986, 8856, 603, 13, 66, "Message",ExpressionUUID->"08e7a490-4bff-1c48-8627-f0721870b2bc"], +Cell[359592, 8871, 503, 11, 26, "Message",ExpressionUUID->"6e733448-ab0d-524a-9c1b-34bfad68fb5c"], +Cell[360098, 8884, 222, 4, 32, "Output",ExpressionUUID->"83d50851-e908-c945-85b9-aee99d98ad2b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[360357, 8893, 2242, 64, 162, "Input",ExpressionUUID->"984387ef-9fd9-3c47-bc3d-b6f0e8b03e2c"], +Cell[362602, 8959, 594, 12, 84, "Message",ExpressionUUID->"64993219-98a2-614f-897b-60aff105ebde"], +Cell[363199, 8973, 601, 13, 84, "Message",ExpressionUUID->"957ea713-6fb8-0844-b1a6-d33b79437d65"], +Cell[363803, 8988, 605, 13, 66, "Message",ExpressionUUID->"4b8bcb14-8e99-134e-909c-07dc1aa31996"], +Cell[364411, 9003, 505, 11, 26, "Message",ExpressionUUID->"65548e04-fa59-1b4a-b4cc-b602fd354e12"], +Cell[364919, 9016, 222, 4, 32, "Output",ExpressionUUID->"4c2a980a-0372-9243-ac3e-5bb013d45b18"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365178, 9025, 236, 6, 47, "Input",ExpressionUUID->"a1d4e2a6-d632-ee42-bf72-0ec0037a6c16"], +Cell[365417, 9033, 195, 3, 32, "Output",ExpressionUUID->"e5714781-9438-f048-94ef-f0fbb2b76930"] +}, Open ]], +Cell[365627, 9039, 271, 6, 42, "Input",ExpressionUUID->"ab8417e8-4709-e943-87cd-c5b8a0910541"], +Cell[CellGroupData[{ +Cell[365923, 9049, 558, 19, 52, "Input",ExpressionUUID->"befa51f5-5940-8743-b07a-eb3a8aba653f"], +Cell[366484, 9070, 197, 3, 32, "Output",ExpressionUUID->"aaf00355-c108-2648-98ef-3d16547828ae"] +}, Open ]], +Cell[CellGroupData[{ +Cell[366718, 9078, 170, 5, 56, "Input",ExpressionUUID->"8c248539-c23a-4a42-8e54-3b513c751017"], +Cell[366891, 9085, 194, 3, 32, "Output",ExpressionUUID->"788b9edb-cd81-f543-ab7d-3572a7f8b79d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[367122, 9093, 181, 5, 43, "Input",ExpressionUUID->"293f8673-c8b0-6746-85db-59c8f599b57c"], +Cell[367306, 9100, 197, 3, 32, "Output",ExpressionUUID->"022ed980-baa5-fc40-85d2-bc6a62091d10"] +}, Open ]], +Cell[CellGroupData[{ +Cell[367540, 9108, 6055, 185, 498, "Input",ExpressionUUID->"8fe440ff-6433-ee43-8ab0-44131de05652"], +Cell[373598, 9295, 196, 3, 32, "Output",ExpressionUUID->"7e3d6418-4f4c-854d-9c13-61a842dacdc5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[373831, 9303, 368, 9, 42, "Input",ExpressionUUID->"ec04ad19-eb6d-ba4f-929a-62702cc30a12"], +Cell[374202, 9314, 194, 3, 32, "Output",ExpressionUUID->"6dfad148-1b2d-ae43-bc66-54a526877241"] +}, Open ]], +Cell[CellGroupData[{ +Cell[374433, 9322, 6122, 187, 500, "Input",ExpressionUUID->"301beffb-a956-b44c-beb2-37fe9711e64e"], +Cell[380558, 9511, 198, 3, 32, "Output",ExpressionUUID->"60a4397a-d5dd-af40-a794-7c297c76bb93"] +}, Open ]], +Cell[CellGroupData[{ +Cell[380793, 9519, 368, 9, 42, "Input",ExpressionUUID->"603274e8-9f12-ce48-b425-66b0e2e5dd2e"], +Cell[381164, 9530, 195, 3, 32, "Output",ExpressionUUID->"7fccc06e-6d4d-984b-84bf-e840d287c94d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[381396, 9538, 2663, 88, 187, "Input",ExpressionUUID->"26d67789-9b33-7843-a368-14c85da65ff3"], +Cell[384062, 9628, 195, 3, 32, "Output",ExpressionUUID->"231db967-fec2-f04b-9750-82f282346ca8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[384294, 9636, 2603, 85, 165, "Input",ExpressionUUID->"a37295b9-9f23-ed46-af76-8081da173c8b"], +Cell[386900, 9723, 194, 3, 32, "Output",ExpressionUUID->"11c26d6b-764b-1647-9eac-1800b643af06"] +}, Open ]], +Cell[CellGroupData[{ +Cell[387131, 9731, 3712, 118, 348, "Input",ExpressionUUID->"8cb2872a-60dc-2845-b059-08954f0afeb4"], +Cell[390846, 9851, 199, 3, 32, "Output",ExpressionUUID->"482139b1-4f62-5e46-af70-d0ca7ba0d29c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[391082, 9859, 2075, 59, 228, "Input",ExpressionUUID->"003a047b-90eb-3149-b4f8-a296c2b2cdcd"], +Cell[393160, 9920, 547, 11, 60, "Message",ExpressionUUID->"e94e3fc3-7c2d-f24d-9dfc-53cb03f93241"], +Cell[393710, 9933, 550, 11, 60, "Message",ExpressionUUID->"abffe7e0-de75-c041-bd8d-0f3a225e75f1"], +Cell[394263, 9946, 554, 11, 60, "Message",ExpressionUUID->"1cf41d95-f98c-574a-bfa8-95b38645e095"], +Cell[394820, 9959, 480, 10, 26, "Message",ExpressionUUID->"56cb601b-a020-b445-aab2-fe197181f715"], +Cell[395303, 9971, 194, 3, 32, "Output",ExpressionUUID->"d7384ead-bc71-7f4d-9258-214fb3f1cd64"] +}, Open ]], +Cell[CellGroupData[{ +Cell[395534, 9979, 2075, 59, 228, "Input",ExpressionUUID->"17f0d32c-a57d-2a45-81f1-ef75e11de8a0"], +Cell[397612, 10040, 547, 11, 60, "Message",ExpressionUUID->"503491ad-4cfd-da4a-9dd3-97e70fb83533"], +Cell[398162, 10053, 545, 11, 60, "Message",ExpressionUUID->"1ea217e7-ea9a-0043-8c7e-3f5cba400bf5"], +Cell[398710, 10066, 554, 11, 60, "Message",ExpressionUUID->"fb827f59-f541-544a-86c5-d77845e9fec3"], +Cell[399267, 10079, 478, 10, 26, "Message",ExpressionUUID->"8dad8d7b-a4f3-c743-98d9-617311e55eb0"], +Cell[399748, 10091, 195, 3, 32, "Output",ExpressionUUID->"c42622fe-747c-4c46-9315-b2e79974099b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[399980, 10099, 2053, 55, 160, "Input",ExpressionUUID->"fcd15b99-cf8b-0648-a673-70cdac1f227f"], +Cell[402036, 10156, 20183, 379, 236, "Output",ExpressionUUID->"5029e9f2-20b7-1945-af71-2ed45e96871e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[422256, 10540, 2168, 61, 211, "Input",ExpressionUUID->"76321b6a-1af8-9c49-b2f7-d5c92a8c63b6"], +Cell[424427, 10603, 515, 11, 60, "Message",ExpressionUUID->"8316ada4-1b39-b945-8275-22f4c278b609"], +Cell[424945, 10616, 519, 11, 60, "Message",ExpressionUUID->"bbbd48df-eefb-fc40-a0dc-56494a64f191"], +Cell[425467, 10629, 534, 11, 27, "Message",ExpressionUUID->"3159a404-3db5-7c4b-81b4-00e0930b9da5"], +Cell[426004, 10642, 482, 10, 26, "Message",ExpressionUUID->"b6bdf82f-e0dd-8a40-91a9-aa8167f44ede"], +Cell[426489, 10654, 42905, 751, 233, "Output",ExpressionUUID->"e80a0f85-f1ca-cf4c-8eba-f71539e2e6fd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[469431, 11410, 234, 5, 42, "Input",ExpressionUUID->"17d8d20d-a69d-c241-a4b7-c5ab6913db6c"], +Cell[469668, 11417, 48866, 875, 233, "Output",ExpressionUUID->"e827cb17-b9f8-eb4f-b808-87c688114fe0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[518571, 12297, 1616, 48, 113, "Input",ExpressionUUID->"37173e44-18b6-f345-bdbf-3935ac3d85ba"], +Cell[520190, 12347, 565, 11, 84, "Message",ExpressionUUID->"b47ad8a5-1e7f-0544-836e-a97aec236958"], +Cell[520758, 12360, 572, 12, 84, "Message",ExpressionUUID->"1ec65752-0c6c-e24f-9d99-6c1a52fe2a34"], +Cell[521333, 12374, 577, 12, 66, "Message",ExpressionUUID->"275033f4-6615-084f-875c-34fbd15e95d9"], +Cell[521913, 12388, 478, 10, 26, "Message",ExpressionUUID->"57e5ecd0-fe78-ee4b-be8d-0bc947913088"], +Cell[522394, 12400, 192, 3, 32, "Output",ExpressionUUID->"7d41369b-d08f-b242-95d9-6976f2baa79b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[522623, 12408, 2270, 64, 223, "Input",ExpressionUUID->"c4a8a8b0-0b31-ac4c-a7ce-152da20b42d7"], +Cell[524896, 12474, 549, 11, 60, "Message",ExpressionUUID->"ca2f270a-2e0f-3545-8baa-79d8bc3d4d37"], +Cell[525448, 12487, 550, 11, 60, "Message",ExpressionUUID->"ee7b7b8a-ab5f-4c4b-903f-e2583f66ff88"], +Cell[526001, 12500, 558, 11, 60, "Message",ExpressionUUID->"4d1e67f3-b1f9-d847-ade1-ea330ae4282e"], +Cell[526562, 12513, 482, 10, 26, "Message",ExpressionUUID->"3e772d08-1987-8f43-bfd9-a520e738fdce"], +Cell[527047, 12525, 195, 3, 32, "Output",ExpressionUUID->"256c243f-333e-8d4b-80cf-c6eb4f13d3f5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[527279, 12533, 2244, 64, 162, "Input",ExpressionUUID->"3975f6bc-b8e0-0049-badb-74a4e7126d8f"], +Cell[529526, 12599, 549, 11, 60, "Message",ExpressionUUID->"7c91c0f5-2ca3-4b4b-b309-f3a21f62e4df"], +Cell[530078, 12612, 552, 11, 60, "Message",ExpressionUUID->"322aa2d9-45e4-8040-baf3-4c2f3634bf0c"], +Cell[530633, 12625, 558, 11, 60, "Message",ExpressionUUID->"64f9fa80-2841-3c43-9633-970c06b511f4"], +Cell[531194, 12638, 480, 10, 26, "Message",ExpressionUUID->"94bad9d6-e308-1646-b5cd-7cb9e119223e"], +Cell[531677, 12650, 192, 3, 32, "Output",ExpressionUUID->"38f07d3c-b9eb-e344-b11b-fea2a6c3a15e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[531906, 12658, 2242, 64, 162, "Input",ExpressionUUID->"f4f95d15-5683-9549-85ce-3970c364fc34"], +Cell[534151, 12724, 551, 11, 60, "Message",ExpressionUUID->"682aa1c6-ea39-7f48-b438-6c33a42f4d76"], +Cell[534705, 12737, 550, 11, 60, "Message",ExpressionUUID->"be5061bb-f417-8849-9ecd-eb278a62f897"], +Cell[535258, 12750, 556, 11, 60, "Message",ExpressionUUID->"554fd047-5e05-c240-9d49-8790a9efeca8"], +Cell[535817, 12763, 480, 10, 26, "Message",ExpressionUUID->"b5d5a4a9-256e-994a-b4e4-8b093f517d0b"], +Cell[536300, 12775, 195, 3, 32, "Output",ExpressionUUID->"8f914f3c-51bc-3e42-bd07-4270783c8bff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[536532, 12783, 238, 6, 47, "Input",ExpressionUUID->"16838e8f-dc9a-d74c-8675-3a4476217af6"], +Cell[536773, 12791, 198, 3, 32, "Output",ExpressionUUID->"fa183d38-8ec6-eb46-aea1-f591d27972c6"] +}, Open ]], +Cell[536986, 12797, 273, 6, 42, "Input",ExpressionUUID->"5671b6c5-96eb-9840-bb09-6698022336a6"], +Cell[CellGroupData[{ +Cell[537284, 12807, 558, 19, 52, "Input",ExpressionUUID->"4d014000-6f17-9a45-b3a6-a3a0cf36c628"], +Cell[537845, 12828, 194, 3, 32, "Output",ExpressionUUID->"821377a3-0b44-3e49-a363-104722fe80db"] +}, Open ]], +Cell[CellGroupData[{ +Cell[538076, 12836, 170, 5, 56, "Input",ExpressionUUID->"fe5bd3c5-5fb8-684b-9227-f90b633f4a5d"], +Cell[538249, 12843, 196, 3, 32, "Output",ExpressionUUID->"d09627d3-0c8d-c24c-ac04-55be6724dbbc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[538482, 12851, 181, 5, 43, "Input",ExpressionUUID->"fcb96232-efe5-6c4a-80fc-3e0409b7c756"], +Cell[538666, 12858, 193, 3, 32, "Output",ExpressionUUID->"26bff63d-6870-dd45-924b-9872712daf64"] +}, Open ]], +Cell[CellGroupData[{ +Cell[538896, 12866, 6055, 185, 498, "Input",ExpressionUUID->"826a4822-fe82-2545-859e-1dcc0d2c7665"], +Cell[544954, 13053, 193, 3, 32, "Output",ExpressionUUID->"deed1754-f24e-f44d-960a-40a55e217506"] +}, Open ]], +Cell[CellGroupData[{ +Cell[545184, 13061, 368, 9, 42, "Input",ExpressionUUID->"8e8ef1c8-b957-7e47-8bd7-349d078e5615"], +Cell[545555, 13072, 196, 3, 32, "Output",ExpressionUUID->"429cb130-8ac0-5342-9fba-00b6fed9d703"] +}, Open ]], +Cell[CellGroupData[{ +Cell[545788, 13080, 6122, 187, 500, "Input",ExpressionUUID->"ef7ab6c6-a465-144e-9b2e-d87983d89cc3"], +Cell[551913, 13269, 198, 3, 32, "Output",ExpressionUUID->"5c5670fc-6879-d743-a950-b0fb7b2cb8c7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[552148, 13277, 368, 9, 42, "Input",ExpressionUUID->"005cbf5d-7cfe-0a47-85df-3f41c0cd74cc"], +Cell[552519, 13288, 192, 3, 32, "Output",ExpressionUUID->"59d59b11-f0f0-ee41-9355-7775bd470ee2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[552748, 13296, 2663, 88, 187, "Input",ExpressionUUID->"11446a18-6985-d84f-b09e-6be9463bee70"], +Cell[555414, 13386, 195, 3, 32, "Output",ExpressionUUID->"ee5bc42e-7dc8-b347-8911-74a0f4692d36"] +}, Open ]], +Cell[CellGroupData[{ +Cell[555646, 13394, 2603, 85, 165, "Input",ExpressionUUID->"cf191722-8995-064e-a60c-6ab12800222b"], +Cell[558252, 13481, 196, 3, 32, "Output",ExpressionUUID->"a4252679-4e67-294e-bb8f-fd447cbd8112"] +}, Open ]], +Cell[CellGroupData[{ +Cell[558485, 13489, 3712, 118, 348, "Input",ExpressionUUID->"146e47d3-0f15-fc4b-b22a-e41827d0b353"], +Cell[562200, 13609, 199, 3, 32, "Output",ExpressionUUID->"1d8ec18e-8a57-6547-8bc4-000d51776991"] +}, Open ]], +Cell[CellGroupData[{ +Cell[562436, 13617, 2075, 59, 228, "Input",ExpressionUUID->"b1b29f9b-c1d5-3048-84ff-9fde8e93d227"], +Cell[564514, 13678, 549, 11, 60, "Message",ExpressionUUID->"001275fb-614d-8448-9fc7-dc3156422b0f"], +Cell[565066, 13691, 553, 11, 60, "Message",ExpressionUUID->"97d11c97-01c8-f940-afd9-e4bcd7931cf0"], +Cell[565622, 13704, 554, 11, 60, "Message",ExpressionUUID->"00545248-d898-d64a-815f-d645338b3d17"], +Cell[566179, 13717, 482, 10, 26, "Message",ExpressionUUID->"8061a4f7-154b-e64d-9369-e8eeb9d7ed1d"], +Cell[566664, 13729, 195, 3, 32, "Output",ExpressionUUID->"82fd41a2-aa7a-434d-9939-1b7d9f540a7f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[566896, 13737, 2075, 59, 228, "Input",ExpressionUUID->"7833995d-3f7b-3a4e-944a-db222bb16395"], +Cell[568974, 13798, 549, 11, 60, "Message",ExpressionUUID->"37ca5db3-823c-2b4f-bb89-5a41f9a2a4a1"], +Cell[569526, 13811, 549, 11, 60, "Message",ExpressionUUID->"50dfe7f9-2f49-bc4f-8ef7-90576177c756"], +Cell[570078, 13824, 554, 11, 60, "Message",ExpressionUUID->"fe9114a3-a297-c244-b89b-65104ce093d6"], +Cell[570635, 13837, 480, 10, 26, "Message",ExpressionUUID->"0dbdee7d-7a9d-214c-811f-76ccf9590577"], +Cell[571118, 13849, 195, 3, 32, "Output",ExpressionUUID->"37881174-f663-884a-83a2-0e6a409d5463"] +}, Open ]], +Cell[CellGroupData[{ +Cell[571350, 13857, 2051, 55, 160, "Input",ExpressionUUID->"cfa7b206-7d8f-ba43-acf6-c3e910046666"], +Cell[573404, 13914, 20167, 378, 233, "Output",ExpressionUUID->"24fdc32f-d3b8-3a4a-83ed-aabcc4992bc5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[593608, 14297, 2168, 61, 211, "Input",ExpressionUUID->"485e4bed-973b-f94f-bcff-d7674e9a7110"], +Cell[595779, 14360, 511, 11, 60, "Message",ExpressionUUID->"ffcd9f00-d21b-b14e-a388-b6e0f70b2ac4"], +Cell[596293, 14373, 515, 11, 60, "Message",ExpressionUUID->"559d13cf-7066-5144-8c88-ec7486b27994"], +Cell[596811, 14386, 532, 11, 27, "Message",ExpressionUUID->"bcef89f4-2de6-2f4e-a832-bf3a84c12720"], +Cell[597346, 14399, 478, 10, 26, "Message",ExpressionUUID->"5a164f18-c166-9e42-8c8a-496687d25f7c"], +Cell[597827, 14411, 42350, 742, 233, "Output",ExpressionUUID->"1332b683-08d0-1e40-a60b-1ecced6a5322"] +}, Open ]], +Cell[CellGroupData[{ +Cell[640214, 15158, 234, 5, 42, "Input",ExpressionUUID->"25060c9f-5d93-6841-93a1-f53bbd9b851a"], +Cell[640451, 15165, 48309, 866, 233, "Output",ExpressionUUID->"324ac577-08c9-2b49-86fb-e33fc9c29d64"] +}, Open ]], +Cell[CellGroupData[{ +Cell[688797, 16036, 1616, 48, 113, "Input",ExpressionUUID->"9cb62145-2ada-bc41-956f-2b9918d80413"], +Cell[690416, 16086, 566, 11, 84, "Message",ExpressionUUID->"b958c607-4c23-f94c-acb5-68950c00b4f4"], +Cell[690985, 16099, 573, 12, 84, "Message",ExpressionUUID->"7a744023-9440-5840-b2fe-c62afdb63205"], +Cell[691561, 16113, 576, 12, 66, "Message",ExpressionUUID->"a7884327-cab4-6145-8cd9-16b1d7c70e1a"], +Cell[692140, 16127, 480, 10, 26, "Message",ExpressionUUID->"8e17eeaf-79a8-384e-a3cd-e365834d4802"], +Cell[692623, 16139, 194, 3, 32, "Output",ExpressionUUID->"f7af3923-be91-4747-bf22-84ca8958cffe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[692854, 16147, 2270, 64, 223, "Input",ExpressionUUID->"3b8ec59c-bf90-a74e-8e19-98c05b1b569e"], +Cell[695127, 16213, 551, 11, 60, "Message",ExpressionUUID->"6c491ae5-3c03-0248-9e86-43889fa3c104"], +Cell[695681, 16226, 553, 11, 60, "Message",ExpressionUUID->"6dc6a0fc-6f88-a547-9938-c756c439070e"], +Cell[696237, 16239, 558, 11, 60, "Message",ExpressionUUID->"cb852058-c327-e640-852e-23de46ef94a4"], +Cell[696798, 16252, 482, 10, 26, "Message",ExpressionUUID->"38add85e-6da6-e943-ab35-ba1861030e53"], +Cell[697283, 16264, 199, 3, 32, "Output",ExpressionUUID->"9ba5b485-ee0c-af40-aae1-502982f7926f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[697519, 16272, 2242, 64, 162, "Input",ExpressionUUID->"ca9a5900-6241-e942-8e6f-ccee4f3ad231"], +Cell[699764, 16338, 551, 11, 60, "Message",ExpressionUUID->"0ac1d6e8-df8c-3c4f-ae1a-194db2a23c76"], +Cell[700318, 16351, 553, 11, 60, "Message",ExpressionUUID->"bf6479ea-910b-b64f-97c1-200bd1179913"], +Cell[700874, 16364, 556, 11, 60, "Message",ExpressionUUID->"a9fc6bdf-c529-be4f-9c55-213ac17f2205"], +Cell[701433, 16377, 482, 10, 26, "Message",ExpressionUUID->"f58e6cff-b459-224d-b86e-09f230d8149a"], +Cell[701918, 16389, 194, 3, 32, "Output",ExpressionUUID->"bb87cb1d-018c-034b-bd1a-7482c9d90b38"] +}, Open ]], +Cell[CellGroupData[{ +Cell[702149, 16397, 2244, 64, 162, "Input",ExpressionUUID->"4b76f315-df8b-2e44-9766-11e105bf7f03"], +Cell[704396, 16463, 551, 11, 60, "Message",ExpressionUUID->"e9ad4d1a-7191-dc4b-ae6f-c1615226a7a4"], +Cell[704950, 16476, 553, 11, 60, "Message",ExpressionUUID->"87e8e358-1420-0142-9e16-c5af17644a90"], +Cell[705506, 16489, 556, 11, 60, "Message",ExpressionUUID->"490a9a5d-00a8-0e43-ae8e-0caf5ecc8717"], +Cell[706065, 16502, 482, 10, 26, "Message",ExpressionUUID->"c9dfd152-acaf-ae4b-94ad-9d639249649e"], +Cell[706550, 16514, 197, 3, 32, "Output",ExpressionUUID->"00e6644b-899e-2043-8888-f47a06ba89bd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[706784, 16522, 236, 6, 47, "Input",ExpressionUUID->"c61261a4-9291-8d4e-84ee-07cf74de18fa"], +Cell[707023, 16530, 198, 3, 32, "Output",ExpressionUUID->"c87402cc-58bf-fa40-b08e-5ceb3cffdc66"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_pr_Qw2.nb b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_pr_Qw2.nb new file mode 100755 index 0000000..cb5865b --- /dev/null +++ b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_pr_Qw2.nb @@ -0,0 +1,17099 @@ +(* 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[ 743472, 17091] +NotebookOptionsPosition[ 702893, 16442] +NotebookOutlinePosition[ 703347, 16460] +CellTagsIndexPosition[ 703304, 16457] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "0.1"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.992086540831894*^9, 3.9920865523321934`*^9}, { + 3.992086586219898*^9, 3.992086610363735*^9}, {3.9920867343035507`*^9, + 3.992086784359892*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"8a2f1f0b-8afa-164f-be4c-3eb352a9b787"], + +Cell[BoxData["0.1`"], "Output", + CellChangeTimes->{3.992086762207903*^9, 3.9920868028367424`*^9, + 3.992104485435251*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"b8ee6b0b-17a2-f54e-9bc0-a250aeffe01e"] +}, Open ]], + +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.992085811016073*^9, 3.9920858120004807`*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"e3b4d782-22ad-644f-b4ad-c20cd1052de1"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.9920860563908997`*^9, 3.992086267214739*^9, + 3.992086570082403*^9, 3.9920866008307095`*^9, 3.9920866670307636`*^9, { + 3.9920867754973392`*^9, 3.9920868028625736`*^9}, 3.9921044855001755`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"64ac36ea-5cdb-8049-a345-8676e0a8f0ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "58"}]], "Input", + CellChangeTimes->{3.9917123636954575`*^9, 3.9917930477498703`*^9, + 3.9920858245124893`*^9}, + CellLabel->"In[3]:=",ExpressionUUID->"738d1471-6a0a-4f4e-b5a7-3ec1c998e28c"], + +Cell[BoxData["58"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9920860564147377`*^9, 3.9920862672333508`*^9, + 3.992086570087515*^9, 3.992086600854433*^9, 3.992086667052353*^9, { + 3.99208677552532*^9, 3.9920868028686295`*^9}, 3.992104485513193*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"efe5a83f-f1c4-4d49-9907-b1e08e40e221"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"6cbc7ec2-2efb-b14c-a4ee-ce7930f692aa"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.991707828219631*^9, 3.9917123414174232`*^9, + 3.992086056442711*^9, 3.992086267243601*^9, 3.9920865701074047`*^9, + 3.992086600883713*^9, 3.9920866670570984`*^9, {3.9920867755491276`*^9, + 3.9920868028899593`*^9}, 3.992104485527193*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"2cbe006d-ba08-5f41-bbc4-862027de5c00"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"8ac8da3e-e91b-974a-b764-a1ec11f5ba7f"], + +Cell[BoxData["0.5577500000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.9917078282275677`*^9, 3.9917123414253197`*^9, + 3.992086056472231*^9, 3.9920862672656536`*^9, 3.9920865701119137`*^9, + 3.9920866009103184`*^9, 3.9920866670824966`*^9, {3.992086775556343*^9, + 3.9920868028954678`*^9}, 3.99210448554418*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"39b97283-3b3e-8246-bf75-eb809c9e7250"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"52bc0922-2f51-b046-81ef-dcd0b9f3400f"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9917078282485256`*^9, 3.9917123414324265`*^9, + 3.992086056479254*^9, 3.992086267270653*^9, 3.9920865701184216`*^9, + 3.9920866009393177`*^9, 3.9920866670875015`*^9, {3.992086775577345*^9, + 3.9920868029233513`*^9}, 3.992104485563179*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"a9b9a1df-768d-bc48-8de0-a3f1fa2abf5a"] +}, 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->"8ebd13d5-dbd4-4344-872e-069d667ed804"], + +Cell[BoxData["4.4902169031282435`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.9917078282706223`*^9, 3.9917123414384117`*^9, + 3.992086056511862*^9, 3.992086267275753*^9, 3.9920865701434135`*^9, + 3.9920866009463215`*^9, 3.992086667111265*^9, {3.992086775588663*^9, + 3.9920868029544296`*^9}, 3.9921044855762672`*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"109ece75-d216-2242-86ca-cda709a522ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"1a8f27df-929b-1f40-9040-a01ae130b44c"], + +Cell[BoxData["6.573779285392593`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.9917078282785244`*^9, 3.991712341447321*^9, + 3.9920860565348663`*^9, 3.99208626729467*^9, 3.9920865701494427`*^9, + 3.9920866009676666`*^9, 3.9920866671364613`*^9, {3.9920867756105766`*^9, + 3.992086802964319*^9}, 3.9921044855902023`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"1a58f92a-c7e3-0d46-a7e0-b08c4dbc991b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.363557285532272"}]], "Input", + CellChangeTimes->{ + 3.9917123951294365`*^9, 3.99179305435186*^9, {3.9920858393278446`*^9, + 3.9920858536690025`*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"00c07ca2-7b49-8e4a-b91b-74e30283fdb3"], + +Cell[BoxData["0.363557285532272`"], "Output", + CellChangeTimes->{ + 3.991319649862606*^9, 3.991707828301527*^9, 3.9917123414573193`*^9, + 3.991712407248003*^9, 3.9920860565659294`*^9, 3.992086267305723*^9, + 3.992086570171528*^9, 3.992086600972666*^9, 3.9920866671645985`*^9, { + 3.9920867756155777`*^9, 3.9920868029898014`*^9}, 3.992104485605318*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"be1600c0-a83a-8843-90af-a30ed0903a04"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "1.14032997838104"}]], "Input", + CellChangeTimes->{ + 3.9917124038115807`*^9, 3.991793052797516*^9, {3.992085843612673*^9, + 3.9920858505623627`*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"4a295acf-90bf-d54b-bc45-5f99546e5852"], + +Cell[BoxData["1.14032997838104`"], "Output", + CellChangeTimes->{ + 3.9913196498716316`*^9, 3.991707828308525*^9, 3.99171234146842*^9, + 3.9917124073213234`*^9, 3.992086056571884*^9, 3.9920862673247185`*^9, + 3.992086570200531*^9, 3.9920866009956837`*^9, 3.9920866671913986`*^9, { + 3.992086775620594*^9, 3.9920868029953136`*^9}, 3.992104485617174*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"925d9c00-17d0-1b4b-9c0e-5544d5595ca4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"9a7213dd-de15-ce4a-9139-73c14351235e"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.9917078283276424`*^9, 3.991712341478319*^9, + 3.992086056594942*^9, 3.992086267342724*^9, 3.992086570206547*^9, + 3.992086601016636*^9, 3.992086667196371*^9, {3.9920867756454487`*^9, + 3.9920868030243797`*^9}, 3.9921044856292763`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"fed78bb9-b363-1949-93be-732a1eb74d8c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"e866d22e-3ba3-504e-a3a5-18836e11ba87"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.99170782834754*^9, 3.9917123414863186`*^9, + 3.99208605659988*^9, 3.992086267369709*^9, 3.9920865702305107`*^9, + 3.992086601021658*^9, 3.992086667220396*^9, {3.9920867756661854`*^9, + 3.9920868030533276`*^9}, 3.992104485643198*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"fd299361-0514-484b-9f65-11ca62674bf6"] +}, 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->"34f25e32-4fb5-0a4e-a6b9-6a0c6530baea"], + +Cell[BoxData["1.3932112707868565`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.991707968406042*^9, 3.9920860566229687`*^9, + 3.9920862673877125`*^9, 3.992086570250431*^9, 3.9920866010503235`*^9, + 3.9920866672243824`*^9, {3.9920867756911926`*^9, 3.992086803080593*^9}, + 3.9921044856569176`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"b7a60f3c-b405-ed41-8253-627786445100"] +}, 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->"2a822672-28e0-b147-8446-35f8b31b7054"], + +Cell[BoxData["3.0097040215395996`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.9917079684291363`*^9, 3.992086056628895*^9, + 3.992086267395834*^9, 3.9920865702819977`*^9, 3.9920866010553265`*^9, + 3.992086667248516*^9, {3.992086775697193*^9, 3.992086803086094*^9}, + 3.99210448567194*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"19fa5df6-7344-9941-a3ed-875a41dd8272"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"2a42bbc4-8f52-1849-9062-33373609e9ce"], + +Cell[BoxData["0.8492253700915684`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.991707968457081*^9, 3.9920860566568546`*^9, + 3.9920862674018364`*^9, 3.9920865702885704`*^9, 3.9920866010823193`*^9, + 3.9920866672535152`*^9, {3.9920867757212353`*^9, 3.9920868031092052`*^9}, + 3.9921044856867523`*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"1cad65fc-1ecd-f640-8688-cd7799df585e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"96de10d8-ae10-f54f-8c9b-86e202e800df"], + +Cell[BoxData[ + RowBox[{"-", "1.1896646126189885`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.9917079684650364`*^9, 3.992086056661869*^9, + 3.9920862674289207`*^9, 3.992086570310892*^9, 3.992086601108303*^9, + 3.992086667258547*^9, {3.9920867757272587`*^9, 3.9920868031152153`*^9}, + 3.992104485704033*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"809434ef-170e-874d-82dc-a07591655749"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"c3045ecd-5faa-c242-b7f8-8cac99288502"], + +Cell[BoxData[ + RowBox[{"-", "0.07157823242670158`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.9917079684860363`*^9, 3.992086056689867*^9, + 3.992086267451708*^9, 3.9920865703164005`*^9, 3.9920866011133003`*^9, + 3.992086667287239*^9, {3.9920867757482376`*^9, 3.992086803136221*^9}, + 3.9921044857195835`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"0709fa90-affa-104a-a226-97820d18c141"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"ee834bbf-59ef-6741-8395-aa2e26eb5327"], + +Cell[BoxData["0.36531988493615475`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9917079684940376`*^9, 3.992086056698021*^9, + 3.9920862674576683`*^9, 3.992086570322399*^9, 3.9920866011363144`*^9, + 3.9920866673132973`*^9, {3.9920867757535*^9, 3.9920868031582184`*^9}, + 3.99210448573464*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"fd752e86-0fd8-d94c-986c-3b345559934c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"5d8334e3-a935-214c-848d-984006460a2b"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.9917079685140343`*^9, 3.992086056725519*^9, + 3.992086267463503*^9, 3.99208657034342*^9, 3.9920866011623287`*^9, + 3.992086667319298*^9, {3.9920867757785244`*^9, 3.992086803166567*^9}, + 3.9921044857493057`*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"20a3d54d-274c-8849-b4a6-4df090278a9c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellChangeTimes->{3.9918430951178913`*^9}, + CellLabel->"In[20]:=",ExpressionUUID->"43927710-4b46-9d43-9873-1b123d23cd06"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.991707968535036*^9, 3.9920860567525387`*^9, + 3.992086267484522*^9, 3.992086570353693*^9, 3.992086601167244*^9, + 3.992086667338505*^9, {3.9920867757885113`*^9, 3.992086803188101*^9}, + 3.992104485763609*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"bbf5b8b3-3bf9-244a-ae54-1932035e2edf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"e26b0d7d-8302-c147-8fdd-12128afa30cd"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.9917079685410557`*^9, 3.9920860567575817`*^9, + 3.99208626748954*^9, 3.992086570375412*^9, 3.99208660118725*^9, + 3.9920866673587112`*^9, {3.9920867758099976`*^9, 3.992086803193638*^9}, + 3.9921044857800274`*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"09300a56-6f76-5e4d-a0a0-9b0c4341a494"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"02ae55dc-e83b-c846-a683-605a55391e41"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.991707968561041*^9, 3.992086056786278*^9, + 3.9920862675157433`*^9, 3.9920865703804207`*^9, 3.9920866011932716`*^9, + 3.9920866673642235`*^9, {3.992086775814476*^9, 3.992086803217211*^9}, + 3.9921044857971687`*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"4607d1c7-9985-3d46-ac3e-c1e2df355fec"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"d0a548a6-8f0f-aa47-88a0-5fafcaaa02c7"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.9917079685810375`*^9, 3.9920860567917824`*^9, + 3.992086267522707*^9, 3.9920865704054184`*^9, 3.992086601216263*^9, + 3.9920866673882236`*^9, {3.9920867758395653`*^9, 3.992086803222191*^9}, + 3.9921044858117027`*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"f7daf746-442e-3a4c-9051-5ff4158b18f2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "20"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.9917930777342243`*^9, + 3.9920858934566765`*^9}, + CellLabel->"In[24]:=",ExpressionUUID->"ea7ea516-e529-424d-aae3-5a931107ea45"], + +Cell[BoxData["20"], "Output", + CellChangeTimes->{ + 3.992086056815359*^9, 3.992086267560713*^9, 3.992086570414318*^9, + 3.992086601221264*^9, 3.992086667394369*^9, {3.9920867758671284`*^9, + 3.9920868032586155`*^9}, 3.992104485827921*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"9635ffca-1643-1944-b633-d2ca7bf0678a"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431115646553`*^9, 3.991843111569187*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"c4aac062-4edc-f04c-b189-54e6d761e4f5"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, { + 3.991644237125025*^9, 3.991644237304865*^9}, {3.992085912752716*^9, + 3.9920859130864887`*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"7bd5f262-50a5-b040-a572-06f486e4769d"], + +Cell[BoxData["74"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.991707968608036*^9, 3.9920860568239784`*^9, + 3.99208626756872*^9, 3.9920865704393387`*^9, 3.9920866012487774`*^9, + 3.992086667421444*^9, {3.9920867758944263`*^9, 3.992086803283657*^9}, + 3.9921044858519154`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"769e93f2-77d7-6e40-bd07-a54b07850956"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"15738c40-d58e-644f-b4b8-cc87006c8787"], + +Cell[BoxData["182"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.9917079686284103`*^9, 3.9920860568515472`*^9, + 3.9920862675907288`*^9, 3.9920865704453335`*^9, 3.9920866012762756`*^9, + 3.992086667425951*^9, {3.992086775900427*^9, 3.9920868032897816`*^9}, + 3.9921044858664894`*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"fccf0b50-70b4-bf4d-9c8d-1cc99dcb2bc8"] +}, 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->"3d918e36-cad3-c242-944a-cea3e4582325"], + +Cell[BoxData["0.1143501326259947`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9917079686354065`*^9, 3.9920860568816433`*^9, + 3.9920862675967255`*^9, 3.9920865704673367`*^9, 3.9920866012962723`*^9, + 3.992086667430956*^9, {3.992086775921425*^9, 3.992086803313404*^9}, + 3.9921044858815193`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"6de4bc0c-4ec5-d44a-980c-ad988a9c949c"] +}, 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->"2898f460-3b0e-7c48-999a-d19f61427db7"], + +Cell[BoxData[ + RowBox[{"-", "2.558692686623721`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.991707968658518*^9, 3.9920860569066925`*^9, + 3.992086267627468*^9, 3.9920865704723377`*^9, 3.9920866013012753`*^9, + 3.9920866674524727`*^9, {3.9920867759274426`*^9, 3.9920868033194046`*^9}, + 3.9921044859001617`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"be910b5a-98a5-234d-8664-e0d6d9608b09"] +}, 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.991972093618887*^9, 3.9919720982596817`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"8b4ca0ba-ed32-ac4c-a545-5a3d8c0c1598"], + +Cell[BoxData["16.19476930294046`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.991707968678421*^9, 3.9920860569136944`*^9, + 3.992086267651493*^9, 3.9920865704962807`*^9, 3.992086601307276*^9, + 3.992086667458479*^9, {3.992086775951008*^9, 3.992086803343006*^9}, + 3.992104485915243*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"82830324-8fe9-9b43-a6d7-c20ab18a9a6f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"1ae8276e-c823-5244-9867-b2a5d5d4bc9f"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.9917079686854057`*^9, 3.992086056939745*^9, + 3.992086267670479*^9, 3.992086570523632*^9, 3.9920866013305016`*^9, + 3.9920866674794827`*^9, {3.9920867759565735`*^9, 3.9920868033491592`*^9}, + 3.9921044859289*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"02aab143-e4b1-8b43-b7b9-0ed4846f32df"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "0.889"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.991793106556059*^9, 3.992085933324785*^9}, + CellLabel->"In[32]:=",ExpressionUUID->"e9fb66e3-5966-0b4d-9ac9-aa55967ea58d"], + +Cell[BoxData["0.889`"], "Output", + CellChangeTimes->{ + 3.9920860569446983`*^9, 3.9920862676814785`*^9, 3.9920865705475826`*^9, + 3.9920866013365097`*^9, 3.9920866675006237`*^9, {3.9920867759825478`*^9, + 3.9920868033546314`*^9}, 3.99210448594182*^9}, + CellLabel->"Out[32]=",ExpressionUUID->"9d7b1a33-ebf0-fd45-a3a4-f1ff6ad42c9b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431193859673`*^9, 3.9918431193894367`*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"9572099a-8f42-5347-b7bd-9e0d0ba78041"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"n1", "=", "0.634"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917169698218613`*^9, 3.991717907758713*^9, + 3.991793107839529*^9, 3.9920859368147087`*^9}, + CellLabel->"In[34]:=",ExpressionUUID->"513e129d-29f6-5b40-a359-3ba442747866"], + +Cell[BoxData["0.634`"], "Output", + CellChangeTimes->{ + 3.9920860569747295`*^9, 3.992086267704502*^9, 3.99208657055459*^9, + 3.992086601359558*^9, 3.992086667509161*^9, {3.992086775989546*^9, + 3.9920868033846836`*^9}, 3.992104485960243*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"bd39858d-c296-6a49-8d30-da1ba4eb0b2f"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843120757866*^9, 3.9918431207603054`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"578452cc-c906-0041-b08b-b1e250c795ff"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"vv1", "=", "1.069"}], "\n"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.991717916696951*^9, + 3.991793108990593*^9, 3.992085941493677*^9}, + CellLabel->"In[36]:=",ExpressionUUID->"2793dc1e-4db7-a643-b0aa-cd39aa7e12db"], + +Cell[BoxData["1.069`"], "Output", + CellChangeTimes->{ + 3.9920860570089607`*^9, 3.9920862677305984`*^9, 3.9920865705816116`*^9, + 3.9920866013675575`*^9, 3.992086667531679*^9, {3.992086776016308*^9, + 3.992086803410513*^9}, 3.9921044859838276`*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"6fb9629f-1ef6-a84e-82ba-516d1f55d2a9"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431220200443`*^9, 3.9918431220220585`*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"add321a6-8898-d242-b2b4-4dbc890135be"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"nn1", "=", "0.744"}], "\n"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.991716995355715*^9, + 3.9917931103354855`*^9, 3.9920859453537045`*^9}, + CellLabel->"In[38]:=",ExpressionUUID->"5c6f2eba-7090-2a40-b78d-68094322a019"], + +Cell[BoxData["0.744`"], "Output", + CellChangeTimes->{ + 3.9920860571022167`*^9, 3.9920862677565975`*^9, 3.9920865705886135`*^9, + 3.99208660139657*^9, 3.992086667539192*^9, {3.9920867760232925`*^9, + 3.992086803417515*^9}, 3.9921044860052547`*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"f9568db4-6b25-9f41-91cf-a09d1a78964e"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431237966404`*^9, 3.9918431238010616`*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"9b4d9bf6-575f-624a-b7e9-f803f7391df8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.991"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991717006317978*^9, 3.9917931115739956`*^9, 3.9920859513160667`*^9}, + CellLabel->"In[40]:=",ExpressionUUID->"83e941f0-4754-5c4a-80ed-64a51356eaca"], + +Cell[BoxData["1.991`"], "Output", + CellChangeTimes->{ + 3.9920860571301746`*^9, 3.9920862677775993`*^9, 3.9920865706167297`*^9, + 3.992086601418375*^9, 3.99208666756719*^9, {3.9920867760472984`*^9, + 3.992086803446306*^9}, 3.9921044860344276`*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"f990b083-31c0-634d-a391-44b35833f0d5"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431249171696`*^9, 3.991843124921198*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"e8fb696b-bdef-964b-9caf-220c1722d523"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.921"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917170151233826`*^9, 3.9917931128910503`*^9, 3.9920859570410233`*^9}, + CellLabel->"In[42]:=",ExpressionUUID->"2165e09c-d7c4-6d49-ae7e-efda0d5ceaf6"], + +Cell[BoxData["0.921`"], "Output", + CellChangeTimes->{ + 3.992086057153713*^9, 3.9920862677985992`*^9, 3.992086570642597*^9, + 3.9920866014433823`*^9, 3.9920866675731907`*^9, {3.9920867760553913`*^9, + 3.9920868034683304`*^9}, 3.9921044860600853`*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"08d2e6ca-75fd-354a-9b05-6938bee88f68"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843126102844*^9, 3.991843126104536*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"7f6561f9-b201-c84b-a816-6822affcba33"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "2.422"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, { + 3.9917170243815575`*^9, 3.991717046491377*^9}, 3.991793114539028*^9, + 3.9920859610670395`*^9}, + CellLabel->"In[44]:=",ExpressionUUID->"ca49a0d5-2e72-f74e-b7b1-186e3d0ce00b"], + +Cell[BoxData["2.422`"], "Output", + CellChangeTimes->{ + 3.9920860571617165`*^9, 3.99208626780674*^9, 3.992086570651617*^9, + 3.992086601467415*^9, 3.9920866675994263`*^9, {3.992086776087263*^9, + 3.9920868034795456`*^9}, 3.9921044860902615`*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"f09aae4f-ac60-3943-90d2-2cc31ef849ed"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431274420605`*^9, 3.9918431274461517`*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"637cd92e-71b3-8a41-b025-20f4ff5aa862"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "1.520"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.991793116134735*^9, 3.9920859650537796`*^9}, + CellLabel->"In[46]:=",ExpressionUUID->"6679f29f-2648-824a-80f4-4c1fcf698c25"], + +Cell[BoxData["1.52`"], "Output", + CellChangeTimes->{ + 3.992086057192232*^9, 3.992086267836733*^9, 3.992086570676237*^9, + 3.9920866014884205`*^9, 3.992086667620432*^9, {3.992086776115265*^9, + 3.9920868035049725`*^9}, 3.992104486115141*^9}, + CellLabel->"Out[46]=",ExpressionUUID->"a3955366-8a4b-444a-8a4a-bb74174d2bcf"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843129570627*^9, 3.991843129574024*^9}}, + CellLabel->"In[47]:=",ExpressionUUID->"b7ab0632-3e38-a345-b222-9d593459b248"], + +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[48]:=",ExpressionUUID->"db0663a8-6d9e-1641-8ff9-d4dcc3695c77"], + +Cell[BoxData["31.169618376887957`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.991707979950527*^9, 3.99208605754793*^9, + 3.9920862678957367`*^9, 3.9920865707097645`*^9, 3.992086601521433*^9, + 3.9920866676705303`*^9, {3.9920867761731644`*^9, 3.9920868035374813`*^9}, + 3.992104486269726*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"3049f637-7f3d-4d40-884b-748ce823824c"] +}, 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[49]:=",ExpressionUUID->"de350aee-0eaa-6148-aaa5-5fb96818af5a"], + +Cell[BoxData["0.6731047036398055`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9917079908393784`*^9, 3.9920860575922737`*^9, + 3.9920862679383984`*^9, 3.992086570747278*^9, 3.9920866015565434`*^9, + 3.992086667708521*^9, {3.9920867762131767`*^9, 3.992086803570322*^9}, + 3.9921044865865192`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"132a5223-6af8-9a46-9ac7-dee63502a31f"] +}, 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[50]:=",ExpressionUUID->"69ecc5d4-90ab-8946-a070-e0d9cd5d0bf5"], + +Cell[BoxData[ + RowBox[{"-", "372.70649967012986`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.991707995240637*^9, 3.9920860576318016`*^9, + 3.992086267978388*^9, 3.992086570780279*^9, 3.9920866015855484`*^9, + 3.9920866677442665`*^9, {3.9920867762461967`*^9, 3.992086803601267*^9}, + 3.992104486762232*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"6ce8fe5b-2395-1149-8d0a-d85732f7600c"] +}, 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[51]:=",ExpressionUUID->"37d2e9af-fb6f-b44b-8f43-f611039de089"], + +Cell[BoxData[ + RowBox[{"-", "1044.7246524682707`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.991707999380541*^9, 3.9920860576748123`*^9, + 3.9920862680234985`*^9, 3.992086570817337*^9, 3.9920866016215477`*^9, + 3.9920866677821484`*^9, {3.992086776283224*^9, 3.992086803636261*^9}, + 3.9921044869347553`*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"6751334f-d4bb-3346-bef7-ef6460de12ae"] +}, 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[52]:=",ExpressionUUID->"efd3751e-efc1-6941-90aa-93c21840c4e4"], + +Cell[BoxData[ + RowBox[{"-", "259.8695599568833`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.991708001954468*^9, 3.992086057718851*^9, + 3.992086268066494*^9, 3.992086570860342*^9, 3.9920866016586037`*^9, + 3.992086667819168*^9, {3.992086776323227*^9, 3.9920868036722755`*^9}, + 3.99210448710273*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"b4a56042-c3c7-1244-ad2b-aaf222214a9d"] +}, 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[53]:=",ExpressionUUID->"494f0fee-fcb1-b24b-a976-bdcf1e446e70"], + +Cell[BoxData[ + RowBox[{"-", "1495.7852478733544`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.9917080040838356`*^9, 3.992086057776539*^9, + 3.992086268121565*^9, 3.992086570903343*^9, 3.992086601703615*^9, + 3.992086667865225*^9, {3.992086776370306*^9, 3.9920868037133484`*^9}, + 3.992104487293392*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"509881ad-90b0-7f4f-9c26-635ee20c3ffa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"01d8d0c9-6ef3-474b-94a3-777dcec63ba0"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.991708067458639*^9, 3.9920860577975445`*^9, + 3.992086268141716*^9, 3.992086570923395*^9, 3.992086601725624*^9, + 3.992086667870228*^9, {3.992086776398308*^9, 3.9920868037333527`*^9}, + 3.992104487376211*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"1c8066d5-8880-254e-97f6-1336071adbd8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"6aa8b642-2da4-724d-9e7d-4f55c9ca63a9"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.9917080674805565`*^9, 3.9920860578025436`*^9, + 3.992086268149719*^9, 3.992086570929405*^9, 3.9920866017452965`*^9, + 3.992086667896475*^9, {3.992086776419306*^9, 3.992086803739353*^9}, + 3.9921044873975735`*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"ffd7b062-2b4c-0f42-bea5-f910c5530526"] +}, 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[56]:=",ExpressionUUID->"3dd04c66-dec1-1e44-8745-3be8d3ef6405"], + +Cell[BoxData["2212.1207838096793`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9917080675026455`*^9, 3.9920860578265495`*^9, + 3.992086268167341*^9, 3.992086570954405*^9, 3.9920866017743587`*^9, + 3.9920866679175053`*^9, {3.992086776426306*^9, 3.9920868037613735`*^9}, + 3.9921044874199142`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"b7862a91-87ae-8a40-914c-62903b00ae6a"] +}, 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[57]:=",ExpressionUUID->"a0faf3fa-f6a1-4e4f-9a12-948cce7d5b6d"], + +Cell[BoxData[ + RowBox[{"-", "3166.463119014952`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.991708067510544*^9, 3.99208605783457*^9, + 3.9920862681909695`*^9, 3.992086570961405*^9, 3.9920866017975693`*^9, + 3.9920866679425335`*^9, {3.9920867764324074`*^9, 3.9920868037683716`*^9}, + 3.9921044874415607`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"83805a3b-a131-4d47-92c4-bd4f0ff935da"] +}, 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[58]:=",ExpressionUUID->"e3da3801-16ed-fb4a-a2e3-518e58f23a2f"], + +Cell[BoxData["4780.565019838899`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9917080675337753`*^9, 3.9920860578555565`*^9, + 3.9920862681974792`*^9, 3.992086570983412*^9, 3.9920866018035927`*^9, + 3.992086667948538*^9, {3.992086776457493*^9, 3.9920868037919464`*^9}, + 3.9921044874625053`*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"474df8f6-b40c-ce4a-b8a6-45a40144db5b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"236dc901-46df-6a4c-9054-47a8c9036b93"], + +Cell[BoxData["0.8492253700915684`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.991708067540825*^9, 3.992086057861557*^9, + 3.9920862682165356`*^9, 3.992086570993412*^9, 3.9920866018254967`*^9, + 3.992086667970564*^9, {3.992086776462492*^9, 3.992086803812454*^9}, + 3.992104487479624*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"5dddc767-1209-404a-99c7-7a5d2bae0e7d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"4f972b0d-2ee8-e24a-a471-0de8a99974b8"], + +Cell[BoxData[ + RowBox[{"-", "1.1896646126189885`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.991708067561775*^9, 3.9920860578695545`*^9, + 3.9920862682215385`*^9, 3.9920865710174274`*^9, 3.9920866018499928`*^9, + 3.9920866679765587`*^9, {3.9920867764902725`*^9, 3.9920868038194695`*^9}, + 3.99210448749864*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"7515121f-3372-9a44-b1be-92a4171f92dc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"605692fb-c90e-0145-9e8f-9d030f59acb1"], + +Cell[BoxData[ + RowBox[{"-", "0.07157823242670158`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.9917080675837746`*^9, 3.992086057898611*^9, + 3.992086268229542*^9, 3.9920865710414886`*^9, 3.992086601870537*^9, + 3.99208666799856*^9, {3.992086776511881*^9, 3.9920868038434715`*^9}, + 3.9921044875167236`*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"428ad22c-57c3-254e-8104-6d8a92b998f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"7bf792e0-7bd8-ab4e-b00b-c0f16b4a2ff3"], + +Cell[BoxData["0.36531988493615475`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.9917080675917854`*^9, 3.9920860579196167`*^9, + 3.9920862682466774`*^9, 3.992086571067438*^9, 3.9920866018954678`*^9, + 3.992086668004545*^9, {3.992086776540409*^9, 3.9920868038534584`*^9}, + 3.9921044875361557`*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"c4caf895-dd45-964a-8070-643495e74638"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"898c4602-c5af-c446-ab46-4b29f7b69bdc"], + +Cell[BoxData["1.3932112707868565`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.991708067612774*^9, 3.992086057924618*^9, + 3.9920862682647114`*^9, 3.9920865710734444`*^9, 3.99208660190147*^9, + 3.992086668009548*^9, {3.9920867765645065`*^9, 3.9920868038804703`*^9}, + 3.9921044875545006`*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"d2aa0b37-dcf1-ea4e-8594-1fff1d9fabb0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"b8a46813-d008-3341-9a41-33be5b783b6d"], + +Cell[BoxData["3.0097040215395996`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.991708067619776*^9, 3.9920860579496193`*^9, + 3.9920862682697086`*^9, 3.9920865711034584`*^9, 3.992086601925476*^9, + 3.9920866680342903`*^9, {3.992086776570503*^9, 3.99208680388603*^9}, + 3.9921044875728703`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"3d0b9ac4-bf74-a346-a8f8-41a9d015ac3a"] +}, 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[65]:=",ExpressionUUID->"0213daa0-b7ba-7147-a98b-2a224338b7c2"], + +Cell[BoxData[ + RowBox[{"-", "5.270467564360312`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.991708067640772*^9, 3.9920860579616146`*^9, + 3.9920862682944393`*^9, 3.992086571123514*^9, 3.992086601930479*^9, + 3.9920866680632725`*^9, {3.99208677659153*^9, 3.9920868039130783`*^9}, + 3.992104487590353*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"02ada4f0-7c7b-9346-bcb6-35ede67170dc"] +}, 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[66]:=",ExpressionUUID->"c0e2ee7d-ea99-6644-a238-e87fa188a4db"], + +Cell[BoxData[ + RowBox[{"-", "51.15351790227487`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.991708067662775*^9, 3.9920860579829197`*^9, + 3.992086268301441*^9, 3.992086571129526*^9, 3.992086601955652*^9, + 3.992086668069273*^9, {3.9920867766018753`*^9, 3.9920868039341793`*^9}, + 3.992104487610319*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"9fc44175-9184-fc4f-b6a3-5abd6c569fb3"] +}, 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[67]:=",ExpressionUUID->"64b296e5-9704-bd4d-a935-b44718164175"], + +Cell[BoxData["2206.850316245319`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.991708067669775*^9, 3.992086057988922*^9, + 3.9920862683069553`*^9, 3.992086571153517*^9, 3.9920866019616756`*^9, + 3.9920866680988617`*^9, {3.992086776625183*^9, 3.992086803955179*^9}, + 3.992104487630335*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"bbe54afa-4c08-6a41-bea2-19a0eb95999c"] +}, 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[68]:=",ExpressionUUID->"14b9de58-04e8-6547-a63b-136c5928c1f2"], + +Cell[BoxData[ + RowBox[{"-", "3166.463119014952`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.991708067690773*^9, 3.9920860580136375`*^9, + 3.9920862683254623`*^9, 3.9920865711785164`*^9, 3.9920866019914055`*^9, + 3.992086668104372*^9, {3.99208677663167*^9, 3.9920868039611816`*^9}, + 3.9921044876510506`*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"6815918d-1b13-b24b-8599-722007c8c0ee"] +}, 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[69]:=",ExpressionUUID->"4aac5d67-06d2-9a4b-bb40-3087b1e88d8d"], + +Cell[BoxData["4729.4115019366245`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.991708067697775*^9, 3.9920860580186367`*^9, + 3.992086268332466*^9, 3.9920865711994247`*^9, 3.9920866020163975`*^9, + 3.992086668129669*^9, {3.9920867766542397`*^9, 3.992086803983183*^9}, + 3.9921044876752987`*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"62e0bcf2-430f-b044-8871-e34da9789d17"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"4cd1a2a6-68bf-5743-8f6a-da2dd545cce3"], + +Cell[BoxData["199.42817651512246`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.9917080677197742`*^9, 3.9920860580256405`*^9, + 3.992086268355482*^9, 3.9920865712064476`*^9, 3.992086602022396*^9, + 3.992086668135229*^9, {3.992086776660242*^9, 3.992086803989208*^9}, + 3.9921044877014885`*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"968abdb4-68ea-e842-b76b-bfda128d7264"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"cb71509b-26fe-3944-9bfc-3b9ac6ca1e76"], + +Cell[BoxData["6725.14571990162`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.991708067726776*^9, 3.9920860580466385`*^9, + 3.9920862683614655`*^9, 3.992086571211939*^9, 3.9920866020454216`*^9, + 3.99208666816308*^9, {3.9920867766842403`*^9, 3.9920868040112057`*^9}, + 3.992104487727148*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"6ec09bee-a2b7-de45-84b3-62dae43321e8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.197263021899268"}]], "Input", + CellChangeTimes->{3.9918469322950954`*^9, 3.9920886801241207`*^9}, + CellLabel->"In[72]:=",ExpressionUUID->"7c3e9316-835f-9e4b-9a49-3b4d17d5ac6f"], + +Cell[BoxData["0.197263021899268`"], "Output", + CellChangeTimes->{3.9921044877431545`*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"98c0d15d-f91e-5d41-a806-9e3a5eba501b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991846933466057*^9, 3.991846933469059*^9}}, + CellLabel->"In[73]:=",ExpressionUUID->"583d3f2a-de58-8142-9cfe-a0e52258d17f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.525273658113063"}]], "Input", + CellChangeTimes->{3.9918469351421127`*^9, 3.9920886854582596`*^9}, + CellLabel->"In[74]:=",ExpressionUUID->"20139eb5-401a-4b4a-9fa1-5ac66a5ce03b"], + +Cell[BoxData["0.525273658113063`"], "Output", + CellChangeTimes->{3.9921044877663975`*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"a8b0aa04-9977-2e44-9357-f0f1ff0ef6ef"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918469363719063`*^9, 3.991846936376911*^9}}, + CellLabel->"In[75]:=",ExpressionUUID->"8f81c5bb-6006-6b49-93bb-3460180e6492"], + +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[76]:=",ExpressionUUID->"d0f946fc-504f-c546-bd13-fc6956e18c7f"], + +Cell[BoxData["9.103990235902606`*^-54"], "Output", + CellChangeTimes->{3.9913437871842365`*^9, 3.9921044877909737`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"b87a5ac1-31b7-a645-addc-1b307fca8c57"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + 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"]}]], "*", "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, {3.991558360387518*^9, 3.991558363336605*^9}}, + CellLabel->"In[77]:=",ExpressionUUID->"c6441294-7eb2-2949-9da6-67254244512f"], + +Cell[BoxData["1.7534500135146677`*^-55"], "Output", + CellChangeTimes->{3.9913437872132397`*^9, 3.9921044878167534`*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"58f1f81c-54e8-aa4c-8f81-87e500fd7f9e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + 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"]}]], "*", + 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}, + 3.991558357640812*^9}, + CellLabel->"In[78]:=",ExpressionUUID->"0e9cd1c8-cad4-dc4a-89c9-68faf6ac59e1"], + +Cell[BoxData["4.6057170799418873`*^-54"], "Output", + CellChangeTimes->{3.9913437872412376`*^9, 3.9921044878417416`*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"a9d789aa-373e-ca46-a740-7c861d838c05"] +}, 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[79]:=",ExpressionUUID->"9284744b-e118-014c-8926-3a51fd91c939"], + +Cell[BoxData["44.385614932060015`"], "Output", + CellChangeTimes->{3.9913437872672386`*^9, 3.9921044878602524`*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"5a3fb563-373e-bd44-a4d0-558873ea7934"] +}, 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[80]:=",ExpressionUUID->"1aab4741-497a-9845-8d77-820f63cb5555"], + +Cell[BoxData["105.8233497590889`"], "Output", + CellChangeTimes->{3.991343787279253*^9, 3.9921044878822536`*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"f5c42219-c1fc-c248-a8fe-314a4e89746b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[81]:=",ExpressionUUID->"03d57d66-9155-cf4b-b103-8d5f98199ed8"], + +Cell[BoxData["2.1196889634300353`"], "Output", + CellChangeTimes->{3.9913437873062572`*^9, 3.9921044879002533`*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"37770140-c372-4a46-be6b-8764449b6458"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"dd583ad4-ba05-e74f-9c30-907aa111db1e"], + +Cell[BoxData["7.971867967597824`"], "Output", + CellChangeTimes->{3.9913437873353844`*^9, 3.992104487921383*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"85c353b5-1c0e-514e-b394-211abb4900ae"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[83]:=",ExpressionUUID->"a1b92a44-c90e-d942-9f90-47bfabccaf08"], + +Cell[BoxData["843.6097721683817`"], "Output", + CellChangeTimes->{3.991343787361582*^9, 3.992104487940275*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"b65d8dbb-979c-584a-967f-38e58066dac7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[84]:=",ExpressionUUID->"51b3d1b0-fc32-2443-90dc-d335ab6c08c0"], + +Cell[BoxData["94.083698106543`"], "Output", + CellChangeTimes->{3.9913437873734856`*^9, 3.9921044879572678`*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"97073bf7-bbdc-a147-9c69-d7fc26b969a7"] +}, 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[85]:=",ExpressionUUID->"bb0f3cd0-3c69-9040-aa0d-76f7af168d91"], + +Cell[BoxData["0.010502172472795633`"], "Output", + CellChangeTimes->{3.9913437874002857`*^9, 3.992104487974249*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"75d223e6-4172-1641-8fb6-ef9f103ea789"] +}, 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[86]:=",ExpressionUUID->"c7e96eeb-d934-e843-a9c0-226435d03e38"], + +Cell[BoxData["8.647794634510944`"], "Output", + CellChangeTimes->{3.9913437875033875`*^9, 3.99210448817556*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"9888845e-4f6e-6a4e-bece-ee05eaa67250"] +}, 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[87]:=",ExpressionUUID->"c90e2c4d-483b-8948-ad73-554cb9bb1353"], + +Cell[BoxData["0.00114031645433252`"], "Output", + CellChangeTimes->{3.9913437875342865`*^9, 3.9921044882015724`*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"70184009-5096-6d47-b0ba-9a07f5631138"] +}, 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[88]:=",ExpressionUUID->"344c5706-3a8a-754a-b4da-5866eb210a38"], + +Cell[BoxData["26.244133914834457`"], "Output", + CellChangeTimes->{3.9913437876352882`*^9, 3.992104488382555*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"db25b3b7-1593-684d-8373-4f28071dbb6f"] +}, 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[89]:=",ExpressionUUID->"39da6bde-a34a-f944-af17-b87c664ce50c"], + +Cell[BoxData["0.9633250942217355`"], "Output", + CellChangeTimes->{3.991343787650694*^9, 3.992104488513569*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"83f7940a-0f6e-8d40-b7c0-79d6795191da"] +}, 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[90]:=",ExpressionUUID->"3c3f03ba-5eee-ac4e-84c3-b29e4adbaa6e"], + +Cell[BoxData["0.03667490577826447`"], "Output", + CellChangeTimes->{3.9913437876776943`*^9, 3.992104488547228*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"08a7db00-702f-824c-8dda-48c6615c64ab"] +}, 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[91]:=",ExpressionUUID->"ddf61768-a227-c447-bfc3-df30c7b64565"], + +Cell[BoxData["0.035329857064419885`"], "Output", + CellChangeTimes->{3.9913437877049465`*^9, 3.992104488570755*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"588e7fb4-7f6c-3648-8476-b25464baead3"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[92]:=",ExpressionUUID->"0a12571c-0d3c-324d-9fb1-59d5c707bb07"], + +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.991846957646223*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"61186e9c-fdd7-7943-9937-691e3ab971c8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6696073629387948`*^-229\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 93, 526, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437877189426`*^9, 3.9921044886446037`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"518b6085-bd6f-ca4d-937c-95bb84cf9872"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0950697094889562`*^-235\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 93, 527, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437877189426`*^9, 3.992104488681612*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"2f8ccafb-cc82-6f44-aa53-b4c14b4ffb2a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.182393269573684`*^-242\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 93, 528, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437877189426`*^9, 3.9921044886964664`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"31c890e1-dcbe-f44d-ae5c-efa850e8d757"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 93, 529, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437877189426`*^9, 3.9921044887079163`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"be6c2de0-1ee9-8e43-90cf-552d40364cfe"], + +Cell[BoxData["8.647794634510939`"], "Output", + CellChangeTimes->{3.991343791131052*^9, 3.9921044950158176`*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"96b94b1c-0402-0f49-bbb3-02d1c57a74ac"] +}, 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.9918469611416626`*^9}, + CellLabel->"In[94]:=",ExpressionUUID->"9256a2f6-45c2-e140-bcdd-85d8e1970f4a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6696073629387948`*^-229\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 94, 530, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437911686516`*^9, 3.9921044951594276`*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"5372cd13-e015-1248-a2d0-0da05bf65862"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0950697094889562`*^-235\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 94, 531, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437911686516`*^9, 3.992104495181059*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"e56d6975-4011-6446-937b-291d94c774bd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.182393269573684`*^-242\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 94, 532, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437911686516`*^9, 3.992104495201153*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"1956db0b-d68c-c540-a5be-a5b640dd589e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 94, 533, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437911686516`*^9, 3.992104495216156*^9}, + CellLabel-> + "During evaluation of \ +In[94]:=",ExpressionUUID->"21d9f63f-406c-514f-a1e5-623264e1c240"], + +Cell[BoxData["26.244133914834457`"], "Output", + CellChangeTimes->{3.991343794599764*^9, 3.9921045017210445`*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"8fd551b3-f4ae-3e42-9d35-cd5edfde01c8"] +}, 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.991846968477251*^9}, + CellLabel->"In[95]:=",ExpressionUUID->"2543960d-965e-7a4e-aecb-694d21d63061"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk8Vc0fB3DZWriyZH94cFEqkouQmm+WREhI9rjuOSFkS5StBS0S8qRF +lKUkREpCUig/VJI2RYiT7OQeKtVv/HFe5/V+zZzPmZnvzCiz99sTvDw8PEP4 +WXiHvNBaeb/9xWavaqm/tmsotHk8X49tVowiNpZr78DuzdHPUDWrRXc9Y5oW +bMd5LijMakIlKw8/tMMuj4xrEDBrQ85ZRTL22CefytTHFb1Cwk1C7xywH7SH +ZM/rvEGexdlzu7CHu1qio2reo5g9PjHO2HKDTDfa9BNqGXMh3LC3T0QbhrV9 +RrJ+R8s8sevmh4Uii/rQ9cFPnmzst0ekD1cGfUHjUX7BJPa4oNnwjM4gEkCr +Bv2xBZODXVizFFK2k324H1tR7EpzSM0Q+ttiPBeObStPXx83HUWZ8fIX4rHJ +qypSmkvGUTbvu/lE7Di1HQn72ibQRHRT4xns99Kd68OLppASn3FsFjbH1d/v +XPI00vNr3J+PPZnFc+1O0HekHh3fWIy9REVTdEqHi5gHMzLrsDM4DRaikjQK +bRuVbMZWuuESt26WRsI3o2ZfYRusTRwPrJlDwmPrByhsX/3PbcOm86ijk8mR +XEuhmcgD/MvUf6OTJ1fOK2PH1wgZayz5gzJGvWe1sC+Awa29bX8R/fuwtBU2 +p6DZLLRoEfSet/1zHLvo6bneI/K80M8VLcvAnvzqGZ2WzAsdj4Wb8rGjV3Mr +yoL4gKV5R+YpdsZtZeaEjgBUFD8iGZoU6mofrfuTJwA+dc46SthK0/ddRSQF +gTin5c3CLta1TdecFYRTe9KHXLEbHxxaFFCzBKrHLLJLsbkNrz8PmQoDS6Sn +wFeLQuLWwqKH64QBCh0aj2Frd5oBw5AByzMO7M7B9h+4d3W9lggoxjz++A47 +mLdNe5OwKAyKpLrbrqPQoErpVAItBr0lT9FObbw+ZMvSlyxx2OxL3AzD5r1F +KcuEiMMhj7qk89hKrH/ti0bE4elAbm43tqtp6p0XvRJQfdZ+Z8h6Cr30CQ2T +bpWEu8jgXKkOhXpupJz2WiIFgvyz295jj44U5d00l4L41UfCeFkUWhb+5fXG +eikQcplXd8Y2O+6o63VPGiqEyxYv1aVQdb4+tzBHFir71crj9SiUP/gzwihc +AWx9a0ueGVBo266knrASBai84AXz2KONEltLKAXwnfpjsN6QQrr5ayWVXBSB +x2SdexZ2I9uzQmDzv0BNHfU/aESh6Yneg0PHlCCYn1kIxhSSCDS7W2GjAuzH +K8txL0TlL/O181eBhP5aAW/sqk/t8mOJKvBxMqo+F9vd2uOYer0KBGqG+q7c +gse3JsL+og4TqqVOHNUzwf8fvjEZK60KN8aqejlmFHLcK6Rp1acGUWzVnaKW +FEIRu3R2/1aDiOiqAXfs1Qk5Gziy6lB9o7zrJjZPHsskdqc65Fl0jZlZUaik +x233ncfqsPmBfnncdnw+nYqPyOWuBObzipLFtnh8ZjZvh9kaUL//2ylvBwrl +OWR+nI3VgJ1GlUHV2Cnsvl7+yxrwpU31noQj3t/xB0YUX2vA08AJv2fYYrVX +eBxMV0MpIzyM5YT3D2t8dQ1zDUwyGEsUXSgkr3I27vTAWmg5H7110x4K1Z6a +0fjBqwk9K2vlb2G7f3fpJJU1wfG8OyHrRaHsRlUNE09NmH/UumsWW2Vvdcfc +O02IeXXvVhUbz7d4UI1s1YJ4jpPWTpJCCvKKpJKLNvgWm+d/CKTQ2oJw4V9I +BzLX5i+2jKUQm3OMq2mrA5t0ZBtasC8w03u83HXArvzqgHUchfhyb5c9jdQB +pdZpF/t4fN6yhx3Ty3VgVR6XwT6K79MLXlc0mCzo7WFkZyTi+p621nIW1IWe +sVthW89S6Fqoqt29Nj3QvtOe132NQu0RaMPxAkOQYXQSt1/ie9Dzja1HwCao +CtgjI8n/FRF/K0sVogAC5pYYFWz8iqRHqhZLs03Acfcrd7O4ryicZfwpfbUZ +TKxjaHGaviL22HyzxLA5dO6tc2oQHUIlJmGLc15aQKrPFP8y/yGUP+P/uDjD +EvhEHJaENg6huS0yzxvjtkN2nnTgFq1vqJuHb6rP2wY0lQ4HS2d/Q0H/7E89 +wtwBldsuqZ1gDKNSv+b6/xLswH8mvEg3ZRgd+i47u8ZvJzRx/MgcxgjiWm11 +erbHHuKP1Q1k5YwgQ7e0LYM7HSDuy2xHj/4o6pC94t/IcoTlEUctxltGkdz1 +Y7WFq3aBdJdA/bvQMVTVu9raluEE/a/CG2ylxpFi5+TeiDEncD2VHne6dhyx +/ksrzuvdDX8fPfDQOjiBrvB/10pvcIY7Kq7DhOQkqtyyrivhgQt8vCxvyoma +RBc2nBKbL3KF01S9fV/3JHr5sSCRlewGb5pHjKw3TaF7NlmqwfHuUBUfU8u8 +PoWmAh14gjgeMLKtxrh1yTTibtXwHTf1hKU+S6888JtGhWMf5sL090CXbUvP +sY5p5HytwMdD2AsKA4U+m7O+o4o72/fwJXnBSJqhvMWl78hQvuPHyR9eMFeJ +6NHZ74jZu7frlZ83SDRmu1+xm0EDQvt2ZH3xhj+hH/6NKJ5B7Sm2Pha72DAV +XPPc4vcMyojMETrQzobjO5ibLttyUW3d3x8+lj6g+vWimWEmFy13hyRWtQ8o +3/dXf/Sai5RWPHv5T60PyE8mm9/r5CLtNhsZwTofyK/v6Sx6w0X2xm433z/2 +gTf9FqYZ77go45+I1pj/+YDl5rsuXh+5SK771vLm9z5g6OO9pbufi1Q9pS+4 +z/qA1pst+b5TXGToNV6YoMuBeKcQqxphGl2/OBlmq8+BgA8lyrEMGq14Pb1Z +2oADA1KmISBCo3Hz2c7CjRxgJg9FNiyn8f3Fs6jNhANrMgzVG8RpJDIr5iK+ +kwMtxsJdhTI0GjijtzQnkAN26rcrhFVplFIT7Vd1nQMf0rL7tQxpFKiTaRhZ +yIGkTzVXW7Gtb5YvNSjiwK3gE517jWi0LJO6eb+EA74adVnZG2mUEGo3XHmX +A+1NScUCm2kUraG6794TDihu3Fz+wIRG/pmtAXd6OBAHO9KqttPIUoQyDu3l +wIYfq9pNrWm0KoGHodPPAfU3DkdeYFOheiXlgxwoZ28w6rehkbdtzljZKAeO +ioXz8dnRyFkgLOj2Tw4UOwn0aDjSyCJMLrhYioDRFVnLhN1p9CQn0SpdhoB5 +1Yjis9jGbdOqkXIEJN5YlC/uQSNttdYPpooEJK+qOSflSSPZd4dNP6oRUNCa +GyrlRaMRo26pZXoEnJAXkaJ9aHSW9+rDvQ4E7CubMtDdh+e/TviCzS4CLC6H +uudiH3eLDGXtJkBUwrVjeQCNIu/arfzrSsCupvm7Q9je5KK082wCUvh+2qcH +0YjVwuY0hRCwIe5cd2MIjd6lqQkxUwl4e+1z+vWDNCpFDN+hNAKWO37hzmEf +H5tpLDlHwLHT3o+sImmkY9kYa5BJwMfGlIRR7BQen2mbbAJW2Pz6tOoQjbbu +v/ohspgAZYXvRcejaaSgcEJ/cykBeybigp5jz7TsP8dXRoCcw8VMyRga5aoj +m5QKAiRtjOTysX93d9fnVRMwNVD5+UEsje5ayxe+aCYg+slSr+Z4Gp3+ySuQ +0UJA+Vr5iMVHaMQuHPZ2aSNgKGho0hxblL9afuAlAX2OiSseYwfUOJ/98ZaA +gRUJ4mVHacRcfT5CdZCAJLj8Ofg4jX6+i3n9jSLgjQyf8XXs9gRC+/YQAY/z +w+a7sGP7dIcNRwmIV9560ySBRl0XXnvs+E5AIVwqX5ZIo/TFYuaHFpHAECwN +j0miUe10t1s4HwleTYMrSrG/dheFBgmQoNK7eLob2/iu2VX2UhKuyHWzN57A ++80r8peVGAntiecUxrBFrc3FzSVI2PFwIE/6JI02bhDXQJIkvJhtJrdgpzKK +nViyJGywVMlNX2iv/lwur0zCOrel42tO0YgsKG6WZJJgQfbvtsNOTY36vFyN +hJlu3j9h2BQpweDXIOHD09k/VQvtEha+o9ok2NW0dhieplH1H4k4SoeEPwo/ +FJyxB7/1/terS4KNklbBAWyj+kMNnQa4f0763lLsgYBSxYdAgofKyRqpZHze +nQ/r3Tchwa1Dj9LCNjTdZl1uRoLEqkrrrdgpsv1RBdtIkLeWfx6KXcV/OzXH +ioTrjlwqCfvLxOEbF61JCDl4xjgL2+Cp5JszdiQYnhq49ASbXd4/kmRPAlP7 +Ul4n9pms27xHHUlQcv/1dRC7P9RSO8KZhOza20zBMzRieEpZBLuSMK/yS04S +28Dyi4e/OwkmYf02TOwz/8ac9vQi4S86SG7CrlpmlevMxt/7K1pbYvdzpR7Y +c0ggPjoGOi7k9X15aU3i+vRKt3gu5LWVUVt98XrSHLYvNvt+zG/wx/VuM9QP +WcjPtVqxMYCE/xlnmEct5J+RXqMXRILkrtDU+IX8yIEt64JJeGXXIZWELcwp +d9YIJSHw8p33ydgbdsTuZ4aT0PtS7G3aQr7R9kSFCBKeVY2LnMdOVpO5Ih1J +govdtmMXsStFByvEDpHgWK/AysLu+1XeIhRNwkp2kGL2Qv7X2D6BWBKe1Bma +52Drd2yf+xtHQltK3I0F/x8Vp9+m + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk8Vc0fB3DZWriyZH94cFEqkouQmm+WREhI9rjuOSFkS5StBS0S8qRF +lKUkREpCUig/VJI2RYiT7OQeKtVv/HFe5/V+zZzPmZnvzCiz99sTvDw8PEP4 +WXiHvNBaeb/9xWavaqm/tmsotHk8X49tVowiNpZr78DuzdHPUDWrRXc9Y5oW +bMd5LijMakIlKw8/tMMuj4xrEDBrQ85ZRTL22CefytTHFb1Cwk1C7xywH7SH +ZM/rvEGexdlzu7CHu1qio2reo5g9PjHO2HKDTDfa9BNqGXMh3LC3T0QbhrV9 +RrJ+R8s8sevmh4Uii/rQ9cFPnmzst0ekD1cGfUHjUX7BJPa4oNnwjM4gEkCr +Bv2xBZODXVizFFK2k324H1tR7EpzSM0Q+ttiPBeObStPXx83HUWZ8fIX4rHJ +qypSmkvGUTbvu/lE7Di1HQn72ibQRHRT4xns99Kd68OLppASn3FsFjbH1d/v +XPI00vNr3J+PPZnFc+1O0HekHh3fWIy9REVTdEqHi5gHMzLrsDM4DRaikjQK +bRuVbMZWuuESt26WRsI3o2ZfYRusTRwPrJlDwmPrByhsX/3PbcOm86ijk8mR +XEuhmcgD/MvUf6OTJ1fOK2PH1wgZayz5gzJGvWe1sC+Awa29bX8R/fuwtBU2 +p6DZLLRoEfSet/1zHLvo6bneI/K80M8VLcvAnvzqGZ2WzAsdj4Wb8rGjV3Mr +yoL4gKV5R+YpdsZtZeaEjgBUFD8iGZoU6mofrfuTJwA+dc46SthK0/ddRSQF +gTin5c3CLta1TdecFYRTe9KHXLEbHxxaFFCzBKrHLLJLsbkNrz8PmQoDS6Sn +wFeLQuLWwqKH64QBCh0aj2Frd5oBw5AByzMO7M7B9h+4d3W9lggoxjz++A47 +mLdNe5OwKAyKpLrbrqPQoErpVAItBr0lT9FObbw+ZMvSlyxx2OxL3AzD5r1F +KcuEiMMhj7qk89hKrH/ti0bE4elAbm43tqtp6p0XvRJQfdZ+Z8h6Cr30CQ2T +bpWEu8jgXKkOhXpupJz2WiIFgvyz295jj44U5d00l4L41UfCeFkUWhb+5fXG +eikQcplXd8Y2O+6o63VPGiqEyxYv1aVQdb4+tzBHFir71crj9SiUP/gzwihc +AWx9a0ueGVBo266knrASBai84AXz2KONEltLKAXwnfpjsN6QQrr5ayWVXBSB +x2SdexZ2I9uzQmDzv0BNHfU/aESh6Yneg0PHlCCYn1kIxhSSCDS7W2GjAuzH +K8txL0TlL/O181eBhP5aAW/sqk/t8mOJKvBxMqo+F9vd2uOYer0KBGqG+q7c +gse3JsL+og4TqqVOHNUzwf8fvjEZK60KN8aqejlmFHLcK6Rp1acGUWzVnaKW +FEIRu3R2/1aDiOiqAXfs1Qk5Gziy6lB9o7zrJjZPHsskdqc65Fl0jZlZUaik +x233ncfqsPmBfnncdnw+nYqPyOWuBObzipLFtnh8ZjZvh9kaUL//2ylvBwrl +OWR+nI3VgJ1GlUHV2Cnsvl7+yxrwpU31noQj3t/xB0YUX2vA08AJv2fYYrVX +eBxMV0MpIzyM5YT3D2t8dQ1zDUwyGEsUXSgkr3I27vTAWmg5H7110x4K1Z6a +0fjBqwk9K2vlb2G7f3fpJJU1wfG8OyHrRaHsRlUNE09NmH/UumsWW2Vvdcfc +O02IeXXvVhUbz7d4UI1s1YJ4jpPWTpJCCvKKpJKLNvgWm+d/CKTQ2oJw4V9I +BzLX5i+2jKUQm3OMq2mrA5t0ZBtasC8w03u83HXArvzqgHUchfhyb5c9jdQB +pdZpF/t4fN6yhx3Ty3VgVR6XwT6K79MLXlc0mCzo7WFkZyTi+p621nIW1IWe +sVthW89S6Fqoqt29Nj3QvtOe132NQu0RaMPxAkOQYXQSt1/ie9Dzja1HwCao +CtgjI8n/FRF/K0sVogAC5pYYFWz8iqRHqhZLs03Acfcrd7O4ryicZfwpfbUZ +TKxjaHGaviL22HyzxLA5dO6tc2oQHUIlJmGLc15aQKrPFP8y/yGUP+P/uDjD +EvhEHJaENg6huS0yzxvjtkN2nnTgFq1vqJuHb6rP2wY0lQ4HS2d/Q0H/7E89 +wtwBldsuqZ1gDKNSv+b6/xLswH8mvEg3ZRgd+i47u8ZvJzRx/MgcxgjiWm11 +erbHHuKP1Q1k5YwgQ7e0LYM7HSDuy2xHj/4o6pC94t/IcoTlEUctxltGkdz1 +Y7WFq3aBdJdA/bvQMVTVu9raluEE/a/CG2ylxpFi5+TeiDEncD2VHne6dhyx +/ksrzuvdDX8fPfDQOjiBrvB/10pvcIY7Kq7DhOQkqtyyrivhgQt8vCxvyoma +RBc2nBKbL3KF01S9fV/3JHr5sSCRlewGb5pHjKw3TaF7NlmqwfHuUBUfU8u8 +PoWmAh14gjgeMLKtxrh1yTTibtXwHTf1hKU+S6888JtGhWMf5sL090CXbUvP +sY5p5HytwMdD2AsKA4U+m7O+o4o72/fwJXnBSJqhvMWl78hQvuPHyR9eMFeJ +6NHZ74jZu7frlZ83SDRmu1+xm0EDQvt2ZH3xhj+hH/6NKJ5B7Sm2Pha72DAV +XPPc4vcMyojMETrQzobjO5ibLttyUW3d3x8+lj6g+vWimWEmFy13hyRWtQ8o +3/dXf/Sai5RWPHv5T60PyE8mm9/r5CLtNhsZwTofyK/v6Sx6w0X2xm433z/2 +gTf9FqYZ77go45+I1pj/+YDl5rsuXh+5SK771vLm9z5g6OO9pbufi1Q9pS+4 +z/qA1pst+b5TXGToNV6YoMuBeKcQqxphGl2/OBlmq8+BgA8lyrEMGq14Pb1Z +2oADA1KmISBCo3Hz2c7CjRxgJg9FNiyn8f3Fs6jNhANrMgzVG8RpJDIr5iK+ +kwMtxsJdhTI0GjijtzQnkAN26rcrhFVplFIT7Vd1nQMf0rL7tQxpFKiTaRhZ +yIGkTzVXW7Gtb5YvNSjiwK3gE517jWi0LJO6eb+EA74adVnZG2mUEGo3XHmX +A+1NScUCm2kUraG6794TDihu3Fz+wIRG/pmtAXd6OBAHO9KqttPIUoQyDu3l +wIYfq9pNrWm0KoGHodPPAfU3DkdeYFOheiXlgxwoZ28w6rehkbdtzljZKAeO +ioXz8dnRyFkgLOj2Tw4UOwn0aDjSyCJMLrhYioDRFVnLhN1p9CQn0SpdhoB5 +1Yjis9jGbdOqkXIEJN5YlC/uQSNttdYPpooEJK+qOSflSSPZd4dNP6oRUNCa +GyrlRaMRo26pZXoEnJAXkaJ9aHSW9+rDvQ4E7CubMtDdh+e/TviCzS4CLC6H +uudiH3eLDGXtJkBUwrVjeQCNIu/arfzrSsCupvm7Q9je5KK082wCUvh+2qcH +0YjVwuY0hRCwIe5cd2MIjd6lqQkxUwl4e+1z+vWDNCpFDN+hNAKWO37hzmEf +H5tpLDlHwLHT3o+sImmkY9kYa5BJwMfGlIRR7BQen2mbbAJW2Pz6tOoQjbbu +v/ohspgAZYXvRcejaaSgcEJ/cykBeybigp5jz7TsP8dXRoCcw8VMyRga5aoj +m5QKAiRtjOTysX93d9fnVRMwNVD5+UEsje5ayxe+aCYg+slSr+Z4Gp3+ySuQ +0UJA+Vr5iMVHaMQuHPZ2aSNgKGho0hxblL9afuAlAX2OiSseYwfUOJ/98ZaA +gRUJ4mVHacRcfT5CdZCAJLj8Ofg4jX6+i3n9jSLgjQyf8XXs9gRC+/YQAY/z +w+a7sGP7dIcNRwmIV9560ySBRl0XXnvs+E5AIVwqX5ZIo/TFYuaHFpHAECwN +j0miUe10t1s4HwleTYMrSrG/dheFBgmQoNK7eLob2/iu2VX2UhKuyHWzN57A ++80r8peVGAntiecUxrBFrc3FzSVI2PFwIE/6JI02bhDXQJIkvJhtJrdgpzKK +nViyJGywVMlNX2iv/lwur0zCOrel42tO0YgsKG6WZJJgQfbvtsNOTY36vFyN +hJlu3j9h2BQpweDXIOHD09k/VQvtEha+o9ok2NW0dhieplH1H4k4SoeEPwo/ +FJyxB7/1/terS4KNklbBAWyj+kMNnQa4f0763lLsgYBSxYdAgofKyRqpZHze +nQ/r3Tchwa1Dj9LCNjTdZl1uRoLEqkrrrdgpsv1RBdtIkLeWfx6KXcV/OzXH +ioTrjlwqCfvLxOEbF61JCDl4xjgL2+Cp5JszdiQYnhq49ASbXd4/kmRPAlP7 +Ul4n9pms27xHHUlQcv/1dRC7P9RSO8KZhOza20zBMzRieEpZBLuSMK/yS04S +28Dyi4e/OwkmYf02TOwz/8ac9vQi4S86SG7CrlpmlevMxt/7K1pbYvdzpR7Y +c0ggPjoGOi7k9X15aU3i+vRKt3gu5LWVUVt98XrSHLYvNvt+zG/wx/VuM9QP +WcjPtVqxMYCE/xlnmEct5J+RXqMXRILkrtDU+IX8yIEt64JJeGXXIZWELcwp +d9YIJSHw8p33ydgbdsTuZ4aT0PtS7G3aQr7R9kSFCBKeVY2LnMdOVpO5Ih1J +govdtmMXsStFByvEDpHgWK/AysLu+1XeIhRNwkp2kGL2Qv7X2D6BWBKe1Bma +52Drd2yf+xtHQltK3I0F/x8Vp9+m + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6927866918757211, + 1.4095760863209987`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6927866918757226}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.6927866918757211, + 1.4095760863209987`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6927866918757226}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk8Vc0fB3DZWriyZH94cFEqkouQmm+WREhI9rjuOSFkS5StBS0S8qRF +lKUkREpCUig/VJI2RYiT7OQeKtVv/HFe5/V+zZzPmZnvzCiz99sTvDw8PEP4 +WXiHvNBaeb/9xWavaqm/tmsotHk8X49tVowiNpZr78DuzdHPUDWrRXc9Y5oW +bMd5LijMakIlKw8/tMMuj4xrEDBrQ85ZRTL22CefytTHFb1Cwk1C7xywH7SH +ZM/rvEGexdlzu7CHu1qio2reo5g9PjHO2HKDTDfa9BNqGXMh3LC3T0QbhrV9 +RrJ+R8s8sevmh4Uii/rQ9cFPnmzst0ekD1cGfUHjUX7BJPa4oNnwjM4gEkCr +Bv2xBZODXVizFFK2k324H1tR7EpzSM0Q+ttiPBeObStPXx83HUWZ8fIX4rHJ +qypSmkvGUTbvu/lE7Di1HQn72ibQRHRT4xns99Kd68OLppASn3FsFjbH1d/v +XPI00vNr3J+PPZnFc+1O0HekHh3fWIy9REVTdEqHi5gHMzLrsDM4DRaikjQK +bRuVbMZWuuESt26WRsI3o2ZfYRusTRwPrJlDwmPrByhsX/3PbcOm86ijk8mR +XEuhmcgD/MvUf6OTJ1fOK2PH1wgZayz5gzJGvWe1sC+Awa29bX8R/fuwtBU2 +p6DZLLRoEfSet/1zHLvo6bneI/K80M8VLcvAnvzqGZ2WzAsdj4Wb8rGjV3Mr +yoL4gKV5R+YpdsZtZeaEjgBUFD8iGZoU6mofrfuTJwA+dc46SthK0/ddRSQF +gTin5c3CLta1TdecFYRTe9KHXLEbHxxaFFCzBKrHLLJLsbkNrz8PmQoDS6Sn +wFeLQuLWwqKH64QBCh0aj2Frd5oBw5AByzMO7M7B9h+4d3W9lggoxjz++A47 +mLdNe5OwKAyKpLrbrqPQoErpVAItBr0lT9FObbw+ZMvSlyxx2OxL3AzD5r1F +KcuEiMMhj7qk89hKrH/ti0bE4elAbm43tqtp6p0XvRJQfdZ+Z8h6Cr30CQ2T +bpWEu8jgXKkOhXpupJz2WiIFgvyz295jj44U5d00l4L41UfCeFkUWhb+5fXG +eikQcplXd8Y2O+6o63VPGiqEyxYv1aVQdb4+tzBHFir71crj9SiUP/gzwihc +AWx9a0ueGVBo266knrASBai84AXz2KONEltLKAXwnfpjsN6QQrr5ayWVXBSB +x2SdexZ2I9uzQmDzv0BNHfU/aESh6Yneg0PHlCCYn1kIxhSSCDS7W2GjAuzH +K8txL0TlL/O181eBhP5aAW/sqk/t8mOJKvBxMqo+F9vd2uOYer0KBGqG+q7c +gse3JsL+og4TqqVOHNUzwf8fvjEZK60KN8aqejlmFHLcK6Rp1acGUWzVnaKW +FEIRu3R2/1aDiOiqAXfs1Qk5Gziy6lB9o7zrJjZPHsskdqc65Fl0jZlZUaik +x233ncfqsPmBfnncdnw+nYqPyOWuBObzipLFtnh8ZjZvh9kaUL//2ylvBwrl +OWR+nI3VgJ1GlUHV2Cnsvl7+yxrwpU31noQj3t/xB0YUX2vA08AJv2fYYrVX +eBxMV0MpIzyM5YT3D2t8dQ1zDUwyGEsUXSgkr3I27vTAWmg5H7110x4K1Z6a +0fjBqwk9K2vlb2G7f3fpJJU1wfG8OyHrRaHsRlUNE09NmH/UumsWW2Vvdcfc +O02IeXXvVhUbz7d4UI1s1YJ4jpPWTpJCCvKKpJKLNvgWm+d/CKTQ2oJw4V9I +BzLX5i+2jKUQm3OMq2mrA5t0ZBtasC8w03u83HXArvzqgHUchfhyb5c9jdQB +pdZpF/t4fN6yhx3Ty3VgVR6XwT6K79MLXlc0mCzo7WFkZyTi+p621nIW1IWe +sVthW89S6Fqoqt29Nj3QvtOe132NQu0RaMPxAkOQYXQSt1/ie9Dzja1HwCao +CtgjI8n/FRF/K0sVogAC5pYYFWz8iqRHqhZLs03Acfcrd7O4ryicZfwpfbUZ +TKxjaHGaviL22HyzxLA5dO6tc2oQHUIlJmGLc15aQKrPFP8y/yGUP+P/uDjD +EvhEHJaENg6huS0yzxvjtkN2nnTgFq1vqJuHb6rP2wY0lQ4HS2d/Q0H/7E89 +wtwBldsuqZ1gDKNSv+b6/xLswH8mvEg3ZRgd+i47u8ZvJzRx/MgcxgjiWm11 +erbHHuKP1Q1k5YwgQ7e0LYM7HSDuy2xHj/4o6pC94t/IcoTlEUctxltGkdz1 +Y7WFq3aBdJdA/bvQMVTVu9raluEE/a/CG2ylxpFi5+TeiDEncD2VHne6dhyx +/ksrzuvdDX8fPfDQOjiBrvB/10pvcIY7Kq7DhOQkqtyyrivhgQt8vCxvyoma +RBc2nBKbL3KF01S9fV/3JHr5sSCRlewGb5pHjKw3TaF7NlmqwfHuUBUfU8u8 +PoWmAh14gjgeMLKtxrh1yTTibtXwHTf1hKU+S6888JtGhWMf5sL090CXbUvP +sY5p5HytwMdD2AsKA4U+m7O+o4o72/fwJXnBSJqhvMWl78hQvuPHyR9eMFeJ +6NHZ74jZu7frlZ83SDRmu1+xm0EDQvt2ZH3xhj+hH/6NKJ5B7Sm2Pha72DAV +XPPc4vcMyojMETrQzobjO5ibLttyUW3d3x8+lj6g+vWimWEmFy13hyRWtQ8o +3/dXf/Sai5RWPHv5T60PyE8mm9/r5CLtNhsZwTofyK/v6Sx6w0X2xm433z/2 +gTf9FqYZ77go45+I1pj/+YDl5rsuXh+5SK771vLm9z5g6OO9pbufi1Q9pS+4 +z/qA1pst+b5TXGToNV6YoMuBeKcQqxphGl2/OBlmq8+BgA8lyrEMGq14Pb1Z +2oADA1KmISBCo3Hz2c7CjRxgJg9FNiyn8f3Fs6jNhANrMgzVG8RpJDIr5iK+ +kwMtxsJdhTI0GjijtzQnkAN26rcrhFVplFIT7Vd1nQMf0rL7tQxpFKiTaRhZ +yIGkTzVXW7Gtb5YvNSjiwK3gE517jWi0LJO6eb+EA74adVnZG2mUEGo3XHmX +A+1NScUCm2kUraG6794TDihu3Fz+wIRG/pmtAXd6OBAHO9KqttPIUoQyDu3l +wIYfq9pNrWm0KoGHodPPAfU3DkdeYFOheiXlgxwoZ28w6rehkbdtzljZKAeO +ioXz8dnRyFkgLOj2Tw4UOwn0aDjSyCJMLrhYioDRFVnLhN1p9CQn0SpdhoB5 +1Yjis9jGbdOqkXIEJN5YlC/uQSNttdYPpooEJK+qOSflSSPZd4dNP6oRUNCa +GyrlRaMRo26pZXoEnJAXkaJ9aHSW9+rDvQ4E7CubMtDdh+e/TviCzS4CLC6H +uudiH3eLDGXtJkBUwrVjeQCNIu/arfzrSsCupvm7Q9je5KK082wCUvh+2qcH +0YjVwuY0hRCwIe5cd2MIjd6lqQkxUwl4e+1z+vWDNCpFDN+hNAKWO37hzmEf +H5tpLDlHwLHT3o+sImmkY9kYa5BJwMfGlIRR7BQen2mbbAJW2Pz6tOoQjbbu +v/ohspgAZYXvRcejaaSgcEJ/cykBeybigp5jz7TsP8dXRoCcw8VMyRga5aoj +m5QKAiRtjOTysX93d9fnVRMwNVD5+UEsje5ayxe+aCYg+slSr+Z4Gp3+ySuQ +0UJA+Vr5iMVHaMQuHPZ2aSNgKGho0hxblL9afuAlAX2OiSseYwfUOJ/98ZaA +gRUJ4mVHacRcfT5CdZCAJLj8Ofg4jX6+i3n9jSLgjQyf8XXs9gRC+/YQAY/z +w+a7sGP7dIcNRwmIV9560ySBRl0XXnvs+E5AIVwqX5ZIo/TFYuaHFpHAECwN +j0miUe10t1s4HwleTYMrSrG/dheFBgmQoNK7eLob2/iu2VX2UhKuyHWzN57A ++80r8peVGAntiecUxrBFrc3FzSVI2PFwIE/6JI02bhDXQJIkvJhtJrdgpzKK +nViyJGywVMlNX2iv/lwur0zCOrel42tO0YgsKG6WZJJgQfbvtsNOTY36vFyN +hJlu3j9h2BQpweDXIOHD09k/VQvtEha+o9ok2NW0dhieplH1H4k4SoeEPwo/ +FJyxB7/1/terS4KNklbBAWyj+kMNnQa4f0763lLsgYBSxYdAgofKyRqpZHze +nQ/r3Tchwa1Dj9LCNjTdZl1uRoLEqkrrrdgpsv1RBdtIkLeWfx6KXcV/OzXH +ioTrjlwqCfvLxOEbF61JCDl4xjgL2+Cp5JszdiQYnhq49ASbXd4/kmRPAlP7 +Ul4n9pms27xHHUlQcv/1dRC7P9RSO8KZhOza20zBMzRieEpZBLuSMK/yS04S +28Dyi4e/OwkmYf02TOwz/8ac9vQi4S86SG7CrlpmlevMxt/7K1pbYvdzpR7Y +c0ggPjoGOi7k9X15aU3i+vRKt3gu5LWVUVt98XrSHLYvNvt+zG/wx/VuM9QP +WcjPtVqxMYCE/xlnmEct5J+RXqMXRILkrtDU+IX8yIEt64JJeGXXIZWELcwp +d9YIJSHw8p33ydgbdsTuZ4aT0PtS7G3aQr7R9kSFCBKeVY2LnMdOVpO5Ih1J +govdtmMXsStFByvEDpHgWK/AysLu+1XeIhRNwkp2kGL2Qv7X2D6BWBKe1Bma +52Drd2yf+xtHQltK3I0F/x8Vp9+m + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6927866918757211, 1.4095760863209987`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6927866918757226}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.6927866918757226}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "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.6927866918757211, 1.4095760863209987`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913440619685707`*^9, 3.992105027943985*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"09febe5e-90e6-e94d-a1cc-e2201f28f26e"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991846972527668*^9, 3.9918469897830563`*^9}}, + CellLabel->"In[96]:=",ExpressionUUID->"e19ad739-7d82-2c45-9f2a-a1d24bf6372a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.708592675900099`*^-273\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 96, + 534, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621885586`*^9, 3.9921050281777*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"e4ab42d1-822a-3743-94c1-e9c811984c99"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.3450511557156395`*^-286\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 96, + 535, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621885586`*^9, 3.9921050281887035`*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"c90f78e1-5a95-264e-bdff-c6672237f3b3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.041891807485711`*^-299\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 96, + 536, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621885586`*^9, 3.9921050281937027`*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"d34fdfe6-0488-f649-ad53-c56b75a0e58d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 96, 537, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621885586`*^9, 3.9921050281997185`*^9}, + CellLabel-> + "During evaluation of \ +In[96]:=",ExpressionUUID->"08809b5c-0ef3-b041-91a2-629c9cfec6ea"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4FY0XB3BlKdFid1dXEcnapSicQ5EW5S1SkkohLRIprihLyBZR9uwt +L2W7M79UZG2xlRdFKCWVGy1u2VL9pj/mmefzzDzzzHPmnO8ZVdfj29xmi4iI +/KaOv+esYFcJg4MZ5hNV9p+0PC3NGzo4mx05AcB1CxA5NsiBPw+rwzicCzDj +ZvHKelAfsmriVMQ5aVC6Jd1IbxDhqJnfsQmVm1DstEZUZtAOOn4eSv6qUgka +jr987rzdB3N632qMqjyBjnC+i/sbb8htyj7xSaUHeHmSqhp95+B2yYXeo7oC +aFw0a9o9IBE8oD1txEcIGflmZX+q0sBraNkg//YUwDr7MrXWHJinGq7x2lgE +aW5G7kVvCyB+UbNW7j5R/FUiKTETdANce+0fiLZIIHuXaPHwkmI40Rjuelxj +HvqfOH914GgJlHlLb1feMB/fXKrSiqOVQW7gEYG+4yLc+9vfwf54OYRmz/zz +fUQGLTaOsJ+EVYCd/p0Ty4Uy2Nva5VgWWQHsWt9E1ykZ5D7ZKZoSUwF33wqe +PROXxebiTWVOSRUwpt6z9RZbFv+X+sG1Pq8CXIsJW3c7WXST6vlMq60Ai0qv +Dd0Vsjhy3t/h5c8KEOkYwPs8OVx7uSIy25MP4cPVubwQORz4sfjzsmN8kBTJ +mm0SJYflCd/Wl3nzQVZnVwNxWQ5f51l0kaf5oB7Zvr6kVA7fmH/annWeDxvX +1G3Jey+H3SONrS9y+JCUn+8ctU0eHSfTzGZ38UH5bkiV9S55jHxjKtDq5kPm +s71s8X3y+DBuW5RdLx+u/WIMhByTx5MSTamX3vDhjmPygcAoeXSyq5o3NsqH +Pqnzh72q5fEfWiWXLUHA0pPu/vZaCnhg1ObxckMCdFa/3p6tr4DpA50G9SsJ +MBTZqSdYqYCHlo6MOZoQYBm74f3ZtQrYXP0rMMCcAJcCbfsiZwWMEUkqyrQh +4ErnmN7siwpYOhSQeMCZAHGjsx9KhAroqTuH+T2EAOmfE3XTUwooHXwrZ2U4 +AbK13letRBSRfmf07KkIAji2rg690oqY6VK75XM0AaZuVvUSSxVRIB1gUJ1E +wMnLUtl7dipixpffWq8LCHj3I2WHVJUivt/lNlejkYA8C65vf70iPvsTfcH8 +EQF749ouljQpont39/dtTwh4qSb+ZHu3IpYKPkX7tBLQvt1nTaZQEYm9C+7H +dhFQXbaZo6OlhL/EIo7pDBGQcmyWYEuKEu6ZqJBaPJsE+8pMCdWrSkjnHXd6 +IUqCrLjxEmGBEhoJMzIviJMQn+nlnFKuhOEVV2fezSUhvLm37XWrEu4Nazc8 +vZAE72VkhbeYMrK8tnZKMknYOHQ46NIJZUy+kOomWEGCddCS4nX+ymgrOJBn +bEiCpULfy/FgZcw87TsdZkTCaitb492xyrhHXfhLxpgErUI94ZLryijHy9sj +ZUaClNv3Q0SfMraFqPT6WpMw91dxisegMhZg7UzSehLELrs9pAmU8T/hGiyz +IWGm4fmS4All5Hzy0x3cSMKIWuUra1kaZvnr89W2ktDyLsi+ez0NJ2qsH7Md +SXh8ZmVY9BYaPos5aiqzk4QG+S9lpg40HOtO7hHZRcL9dfsW5rrSMN2uOeGF +EwnFBZZNnkE0vJMmKnLAhYS4g3PwZzkNj79UtB07SEL0zAOvW5U0fDmVEf0/ +NxIikv2z9tbQ8EBb/2SAOwnBDcPT9a00dAtN8xz3IMFLrYWI/UjDIDbr39bD +JGx5l7CczabjkwNB9PHj1Psuf9fprEbH6bPK3uHeJGzyXRWcoUVHlqfN7kUn +SLCZ/eqZ8io6Flgv+c7xoerLWX5Kzo6OTJqYqfpJEmo8glW27aBjGhGyMYcy +lLQ/TnCmY0qT0piyHwmm5v6MBZ50vFazY4HoKRKMnBtr5obS8VHO/yLvniaB +n698eH0UHa//jjuy2J+EFZ+OyEXE03FrB20kkrIuT9ZdNIOO4W0ajZsCSNBM +3Sv1u4KO+ZbS70geCddel/NN79Kxv513VyqQBHUNCZfAGjqq19kbuFBeTBaX +TrbQMXSezuwZyszOKQfhEB0l/flmjCAS0hm2fwxG6Lgmq0ZtD2XagZwb3mN0 +vJMoUZpJWXHM+ufobzrq2ukS8sEkJJukF2iLM9DSfK6+LWW5kFHbI1IMPLlW ++p8wyosWJed8VGKg92RE5EfK8Y4fNmiwGajwZDJL6SwJ87NXC93UGKg1Fu28 +jnLs+7jMAi3q/m/36r0oz9N9YzWoz0DD/HmdVyhH+Rl+UV3FQKbleNx9yhJV +kan7zBj4zf33t9eURTfrfurfQJl38K7KORJCk0KSmXYMPOVdr2JKWaS302z3 +DgZyJ9FgB+XgxZof0pyp68EuX45RnvEMTOh2ZeDhliynMMq8sjYTJU8Gfp4T +4nuF8tSk6qDDcQaur4hefZ2yP/rFJvsxUPSWWSlBeTzysVFHIAPL9VhdtZRP +PmW8lgllIL+9+GYzZaHi8Si7KAaKn/fW7aDs41JncDGecsrIgW7KXwsVeluT +GYilhRt7KXuNHgqXzmCgWSdn8K9HDe/rbMpl4Nr9gzovKR89s/DFhesMVF3k +u/w5ZUG967nHtxg4IXToe0pZJbH7cDyfgfdOlx95SNneZYuD/T0GLkjuWX+X +8oXlDUCvo+pbc/pEEeXqSROtgccMNP1iMpz2930bS+SvPWVg2sXWkvOUNZPU +/xx5zsA30QONXpT37MsYNuin6melqu1A+ZKOTOfEIAN1r5oPGlN+NB1RXSVg +4NzPHz7R/tb30cyNsG8MbJ7Taj1JfS+Dyz5JGyYZ2Lrq6vcOyu6uH4MW/mFg +8Frp8WLKGXouh7rEmajv+XhTGOVnMx3bMqSZSO4NH99BeU3KAw0NOhNXCBts +x6n+8j5oJDvKYeJph5KftZSvGRTNlGswMVzWbVbM335sudJubsTEfCtRJQXK +VmnS98VMmShn7KD5nOpvnnvotSZLJroGWSUnU34n4hW4w46JIpI9wZJ/56Ft +0I3pyERz/+HfD85Q+ZGxy+7tHiZeivHp86V8x8hK3esIE4O+tZZ3UPMVe5j5 +9HwEE2VsXg34UvNZu+pS5aY4JtYaDe1ToDwuNrdAJpmJrzh66/jUPO/LFvpn +5TJRMjVglYCad8POpsXEfSbq7Q4ZWknlg2cuzg+sZ2Kdh1FyPZUfV73ICWxi +4n4DuWJbynMl81paXjBxuGA93YnKm36zgFPvxpj4tTlO3N6X2jdSX/b9O8XE +ipMRsi1Uftl0H9zkLcLCIIeieAvK5T52nJn5LJwnF/ZCjcq7iOsaTXLLWFhi +V1/T4kXlj8xz1tq9LIxs/zcrz5OE93HvQy+7sXAiUPe/X4dIyJo38eHDERaK +XNbu2kFZWky5PNafhZ0e6htmU/krGN9l/TyRhb9eTkybU/ld2Nfv5dnAwi/r +4hXtqHx33vW5414TC8W0P56N2kOC/PPfxgvaWVhzUb6u2pma56cqohX9LHzE +Ot+htpuqV93+lJlxFvYUrjJ7Qe0X5o2hBxeXsfGR5sGaLjsSOtXG1d7qsdE/ +3VpihNpHMbkS0YYr2RhRm6UnQnk6XcO+x5KNJqHOeottSeiO8/y42JmNyduk +xjdvICHJd3QRGc9G1r+xxuYWVB7Bj/19QjZesf7gmqxHzb+F5lxymo3hN6Ms +tupS9Vi7+/bFWSrYSAQ+mKNDQp1N7bTlQhXkbPmSeUKL6q9tcUk3tVSw6f7G +CU11Ej65qTee2q+C6Ybd35fSqf0T66Ap81QF+ztNz7hT/wurL0a1CbpU8HXl +QskXIiTcSLx3sqFPBSV2Jm+z+kNA+BXV2tMCFfRQ9VVhzBDAfjau/WU2B//L +6rlb9IOA5z11jQ5sDoZmtTTv/0jA+lGnicUOHLRcXiqi2ULAVfmwjrM7Obgh +dyDOqYmA72uKSvp2c1BpUm5ezGMCcqJ/elxx5eDaNfodQw0ETGtkdkt6c7DX +VKIutIqAYtf+yq/RHExbRXvjdJuARd17z1TXcNC71vd6dDwB3XUHZzlpq+Lp +SMZ81gYCvlq8pAfpqeLYoDF72pqAObVbDXNWqKLQ9khK1zoCVj5Y7fHeWBVd +jAwaI5GA5HuLWn2sVFHtlqFazyoCtvLvp8a4qGLaTakc/aUEPCyU169KUMXW +qjy5O7MIIKIaXDg/VPHSj9U7Hfh8cBf3G2hrW4wal1qCe6cq4IBPICGdvgQT +BYMjBasqQM9jedvm/WqomGvzu9SzHJ7Kakv5majj5jXcy6fOlMG926EZ2qJL +0XvMUsHjcikEztKya+lfijLVXjEvNUpgXh/PxouvgZbyS5tuLL0FQ9dUk7PP +aKKEkJWWYV0EyZo0sUqHZdidViL1yuImJKS7P9rP0cLAx3Otwj2ug1Pynjbp +D1oIwbwfObmFMLmucCq7ejm2i4U2z27Mh8EhS/+6SG0kVwxvGaXlQZ6ZAaN1 +vw4m7XhjnrQvB26d95Px0NHFzna3O5P8LIh0OLBJ9IcuxhulvOcPpoNRX+7N +yFY9bLvlcurpnFRIXZZxq3WTPmarJm54HnsZztbEpW6q1Mfefr6jkUwS2DIc +CpvUDPDx0xmFxK4EsPB6tFvmggGWp206J+yNg2ymq1rLDwOsidlZWESPBrX6 +61e27F6BU8+kL8Z/iYAEnTqt/6pXYNVTy1I11XBwF4q1P9HiYoJ0vmySewi4 +lo1xLlzk4noNz0RcGwxHQ7fPbEzk4j8tAmU1/WDw285/IZ1EuertWRlWMET9 +8ItPuMJFy7SYV5ITQXDbZOpnShb1vPlKZ72LgmCq9s/za0VcvD4/aqusYhAk +/Ccd1/CIi02kJiSMBUJ6/rFDEU+4GNukoHhzIBDyT7attWnmYqGJ/N7mtkAg +FROmm9u4KEWmmmgXBUKfk9yhji4uaklLl7kcDASNQdrat4NcjLI0LA7r5oE+ +n8cuGOJizr0l81Y84sHq871Tbh+4aCbg5Q8TPNiskVU6LODic+NK3skkHvgc +4bC/feMiiAt2T27hwRnTkKlyIRcNOqKNvprx4Pz8t50nf3Axg2uj902bB6kl ++TGTk1zM/dfPb4EUD/LOiXncneZif7b8Pa3pACj6x83yzAwXh9/ryNkNBwB/ +8UOW+W8uvti2ixfcHQDVwqVTf/5wceOA7ijxKAD+D4XkR3U= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4FY0XB3BlKdFid1dXEcnapSicQ5EW5S1SkkohLRIprihLyBZR9uwt +L2W7M79UZG2xlRdFKCWVGy1u2VL9pj/mmefzzDzzzHPmnO8ZVdfj29xmi4iI +/KaOv+esYFcJg4MZ5hNV9p+0PC3NGzo4mx05AcB1CxA5NsiBPw+rwzicCzDj +ZvHKelAfsmriVMQ5aVC6Jd1IbxDhqJnfsQmVm1DstEZUZtAOOn4eSv6qUgka +jr987rzdB3N632qMqjyBjnC+i/sbb8htyj7xSaUHeHmSqhp95+B2yYXeo7oC +aFw0a9o9IBE8oD1txEcIGflmZX+q0sBraNkg//YUwDr7MrXWHJinGq7x2lgE +aW5G7kVvCyB+UbNW7j5R/FUiKTETdANce+0fiLZIIHuXaPHwkmI40Rjuelxj +HvqfOH914GgJlHlLb1feMB/fXKrSiqOVQW7gEYG+4yLc+9vfwf54OYRmz/zz +fUQGLTaOsJ+EVYCd/p0Ty4Uy2Nva5VgWWQHsWt9E1ykZ5D7ZKZoSUwF33wqe +PROXxebiTWVOSRUwpt6z9RZbFv+X+sG1Pq8CXIsJW3c7WXST6vlMq60Ai0qv +Dd0Vsjhy3t/h5c8KEOkYwPs8OVx7uSIy25MP4cPVubwQORz4sfjzsmN8kBTJ +mm0SJYflCd/Wl3nzQVZnVwNxWQ5f51l0kaf5oB7Zvr6kVA7fmH/annWeDxvX +1G3Jey+H3SONrS9y+JCUn+8ctU0eHSfTzGZ38UH5bkiV9S55jHxjKtDq5kPm +s71s8X3y+DBuW5RdLx+u/WIMhByTx5MSTamX3vDhjmPygcAoeXSyq5o3NsqH +Pqnzh72q5fEfWiWXLUHA0pPu/vZaCnhg1ObxckMCdFa/3p6tr4DpA50G9SsJ +MBTZqSdYqYCHlo6MOZoQYBm74f3ZtQrYXP0rMMCcAJcCbfsiZwWMEUkqyrQh +4ErnmN7siwpYOhSQeMCZAHGjsx9KhAroqTuH+T2EAOmfE3XTUwooHXwrZ2U4 +AbK13letRBSRfmf07KkIAji2rg690oqY6VK75XM0AaZuVvUSSxVRIB1gUJ1E +wMnLUtl7dipixpffWq8LCHj3I2WHVJUivt/lNlejkYA8C65vf70iPvsTfcH8 +EQF749ouljQpont39/dtTwh4qSb+ZHu3IpYKPkX7tBLQvt1nTaZQEYm9C+7H +dhFQXbaZo6OlhL/EIo7pDBGQcmyWYEuKEu6ZqJBaPJsE+8pMCdWrSkjnHXd6 +IUqCrLjxEmGBEhoJMzIviJMQn+nlnFKuhOEVV2fezSUhvLm37XWrEu4Nazc8 +vZAE72VkhbeYMrK8tnZKMknYOHQ46NIJZUy+kOomWEGCddCS4nX+ymgrOJBn +bEiCpULfy/FgZcw87TsdZkTCaitb492xyrhHXfhLxpgErUI94ZLryijHy9sj +ZUaClNv3Q0SfMraFqPT6WpMw91dxisegMhZg7UzSehLELrs9pAmU8T/hGiyz +IWGm4fmS4All5Hzy0x3cSMKIWuUra1kaZvnr89W2ktDyLsi+ez0NJ2qsH7Md +SXh8ZmVY9BYaPos5aiqzk4QG+S9lpg40HOtO7hHZRcL9dfsW5rrSMN2uOeGF +EwnFBZZNnkE0vJMmKnLAhYS4g3PwZzkNj79UtB07SEL0zAOvW5U0fDmVEf0/ +NxIikv2z9tbQ8EBb/2SAOwnBDcPT9a00dAtN8xz3IMFLrYWI/UjDIDbr39bD +JGx5l7CczabjkwNB9PHj1Psuf9fprEbH6bPK3uHeJGzyXRWcoUVHlqfN7kUn +SLCZ/eqZ8io6Flgv+c7xoerLWX5Kzo6OTJqYqfpJEmo8glW27aBjGhGyMYcy +lLQ/TnCmY0qT0piyHwmm5v6MBZ50vFazY4HoKRKMnBtr5obS8VHO/yLvniaB +n698eH0UHa//jjuy2J+EFZ+OyEXE03FrB20kkrIuT9ZdNIOO4W0ajZsCSNBM +3Sv1u4KO+ZbS70geCddel/NN79Kxv513VyqQBHUNCZfAGjqq19kbuFBeTBaX +TrbQMXSezuwZyszOKQfhEB0l/flmjCAS0hm2fwxG6Lgmq0ZtD2XagZwb3mN0 +vJMoUZpJWXHM+ufobzrq2ukS8sEkJJukF2iLM9DSfK6+LWW5kFHbI1IMPLlW ++p8wyosWJed8VGKg92RE5EfK8Y4fNmiwGajwZDJL6SwJ87NXC93UGKg1Fu28 +jnLs+7jMAi3q/m/36r0oz9N9YzWoz0DD/HmdVyhH+Rl+UV3FQKbleNx9yhJV +kan7zBj4zf33t9eURTfrfurfQJl38K7KORJCk0KSmXYMPOVdr2JKWaS302z3 +DgZyJ9FgB+XgxZof0pyp68EuX45RnvEMTOh2ZeDhliynMMq8sjYTJU8Gfp4T +4nuF8tSk6qDDcQaur4hefZ2yP/rFJvsxUPSWWSlBeTzysVFHIAPL9VhdtZRP +PmW8lgllIL+9+GYzZaHi8Si7KAaKn/fW7aDs41JncDGecsrIgW7KXwsVeluT +GYilhRt7KXuNHgqXzmCgWSdn8K9HDe/rbMpl4Nr9gzovKR89s/DFhesMVF3k +u/w5ZUG967nHtxg4IXToe0pZJbH7cDyfgfdOlx95SNneZYuD/T0GLkjuWX+X +8oXlDUCvo+pbc/pEEeXqSROtgccMNP1iMpz2930bS+SvPWVg2sXWkvOUNZPU +/xx5zsA30QONXpT37MsYNuin6melqu1A+ZKOTOfEIAN1r5oPGlN+NB1RXSVg +4NzPHz7R/tb30cyNsG8MbJ7Taj1JfS+Dyz5JGyYZ2Lrq6vcOyu6uH4MW/mFg +8Frp8WLKGXouh7rEmajv+XhTGOVnMx3bMqSZSO4NH99BeU3KAw0NOhNXCBts +x6n+8j5oJDvKYeJph5KftZSvGRTNlGswMVzWbVbM335sudJubsTEfCtRJQXK +VmnS98VMmShn7KD5nOpvnnvotSZLJroGWSUnU34n4hW4w46JIpI9wZJ/56Ft +0I3pyERz/+HfD85Q+ZGxy+7tHiZeivHp86V8x8hK3esIE4O+tZZ3UPMVe5j5 +9HwEE2VsXg34UvNZu+pS5aY4JtYaDe1ToDwuNrdAJpmJrzh66/jUPO/LFvpn +5TJRMjVglYCad8POpsXEfSbq7Q4ZWknlg2cuzg+sZ2Kdh1FyPZUfV73ICWxi +4n4DuWJbynMl81paXjBxuGA93YnKm36zgFPvxpj4tTlO3N6X2jdSX/b9O8XE +ipMRsi1Uftl0H9zkLcLCIIeieAvK5T52nJn5LJwnF/ZCjcq7iOsaTXLLWFhi +V1/T4kXlj8xz1tq9LIxs/zcrz5OE93HvQy+7sXAiUPe/X4dIyJo38eHDERaK +XNbu2kFZWky5PNafhZ0e6htmU/krGN9l/TyRhb9eTkybU/ld2Nfv5dnAwi/r +4hXtqHx33vW5414TC8W0P56N2kOC/PPfxgvaWVhzUb6u2pma56cqohX9LHzE +Ot+htpuqV93+lJlxFvYUrjJ7Qe0X5o2hBxeXsfGR5sGaLjsSOtXG1d7qsdE/ +3VpihNpHMbkS0YYr2RhRm6UnQnk6XcO+x5KNJqHOeottSeiO8/y42JmNyduk +xjdvICHJd3QRGc9G1r+xxuYWVB7Bj/19QjZesf7gmqxHzb+F5lxymo3hN6Ms +tupS9Vi7+/bFWSrYSAQ+mKNDQp1N7bTlQhXkbPmSeUKL6q9tcUk3tVSw6f7G +CU11Ej65qTee2q+C6Ybd35fSqf0T66Ap81QF+ztNz7hT/wurL0a1CbpU8HXl +QskXIiTcSLx3sqFPBSV2Jm+z+kNA+BXV2tMCFfRQ9VVhzBDAfjau/WU2B//L +6rlb9IOA5z11jQ5sDoZmtTTv/0jA+lGnicUOHLRcXiqi2ULAVfmwjrM7Obgh +dyDOqYmA72uKSvp2c1BpUm5ezGMCcqJ/elxx5eDaNfodQw0ETGtkdkt6c7DX +VKIutIqAYtf+yq/RHExbRXvjdJuARd17z1TXcNC71vd6dDwB3XUHZzlpq+Lp +SMZ81gYCvlq8pAfpqeLYoDF72pqAObVbDXNWqKLQ9khK1zoCVj5Y7fHeWBVd +jAwaI5GA5HuLWn2sVFHtlqFazyoCtvLvp8a4qGLaTakc/aUEPCyU169KUMXW +qjy5O7MIIKIaXDg/VPHSj9U7Hfh8cBf3G2hrW4wal1qCe6cq4IBPICGdvgQT +BYMjBasqQM9jedvm/WqomGvzu9SzHJ7Kakv5majj5jXcy6fOlMG926EZ2qJL +0XvMUsHjcikEztKya+lfijLVXjEvNUpgXh/PxouvgZbyS5tuLL0FQ9dUk7PP +aKKEkJWWYV0EyZo0sUqHZdidViL1yuImJKS7P9rP0cLAx3Otwj2ug1Pynjbp +D1oIwbwfObmFMLmucCq7ejm2i4U2z27Mh8EhS/+6SG0kVwxvGaXlQZ6ZAaN1 +vw4m7XhjnrQvB26d95Px0NHFzna3O5P8LIh0OLBJ9IcuxhulvOcPpoNRX+7N +yFY9bLvlcurpnFRIXZZxq3WTPmarJm54HnsZztbEpW6q1Mfefr6jkUwS2DIc +CpvUDPDx0xmFxK4EsPB6tFvmggGWp206J+yNg2ymq1rLDwOsidlZWESPBrX6 +61e27F6BU8+kL8Z/iYAEnTqt/6pXYNVTy1I11XBwF4q1P9HiYoJ0vmySewi4 +lo1xLlzk4noNz0RcGwxHQ7fPbEzk4j8tAmU1/WDw285/IZ1EuertWRlWMET9 +8ItPuMJFy7SYV5ITQXDbZOpnShb1vPlKZ72LgmCq9s/za0VcvD4/aqusYhAk +/Ccd1/CIi02kJiSMBUJ6/rFDEU+4GNukoHhzIBDyT7attWnmYqGJ/N7mtkAg +FROmm9u4KEWmmmgXBUKfk9yhji4uaklLl7kcDASNQdrat4NcjLI0LA7r5oE+ +n8cuGOJizr0l81Y84sHq871Tbh+4aCbg5Q8TPNiskVU6LODic+NK3skkHvgc +4bC/feMiiAt2T27hwRnTkKlyIRcNOqKNvprx4Pz8t50nf3Axg2uj902bB6kl ++TGTk1zM/dfPb4EUD/LOiXncneZif7b8Pa3pACj6x83yzAwXh9/ryNkNBwB/ +8UOW+W8uvti2ixfcHQDVwqVTf/5wceOA7ijxKAD+D4XkR3U= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08790373129961977}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08790373129961977}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4FY0XB3BlKdFid1dXEcnapSicQ5EW5S1SkkohLRIprihLyBZR9uwt +L2W7M79UZG2xlRdFKCWVGy1u2VL9pj/mmefzzDzzzHPmnO8ZVdfj29xmi4iI +/KaOv+esYFcJg4MZ5hNV9p+0PC3NGzo4mx05AcB1CxA5NsiBPw+rwzicCzDj +ZvHKelAfsmriVMQ5aVC6Jd1IbxDhqJnfsQmVm1DstEZUZtAOOn4eSv6qUgka +jr987rzdB3N632qMqjyBjnC+i/sbb8htyj7xSaUHeHmSqhp95+B2yYXeo7oC +aFw0a9o9IBE8oD1txEcIGflmZX+q0sBraNkg//YUwDr7MrXWHJinGq7x2lgE +aW5G7kVvCyB+UbNW7j5R/FUiKTETdANce+0fiLZIIHuXaPHwkmI40Rjuelxj +HvqfOH914GgJlHlLb1feMB/fXKrSiqOVQW7gEYG+4yLc+9vfwf54OYRmz/zz +fUQGLTaOsJ+EVYCd/p0Ty4Uy2Nva5VgWWQHsWt9E1ykZ5D7ZKZoSUwF33wqe +PROXxebiTWVOSRUwpt6z9RZbFv+X+sG1Pq8CXIsJW3c7WXST6vlMq60Ai0qv +Dd0Vsjhy3t/h5c8KEOkYwPs8OVx7uSIy25MP4cPVubwQORz4sfjzsmN8kBTJ +mm0SJYflCd/Wl3nzQVZnVwNxWQ5f51l0kaf5oB7Zvr6kVA7fmH/annWeDxvX +1G3Jey+H3SONrS9y+JCUn+8ctU0eHSfTzGZ38UH5bkiV9S55jHxjKtDq5kPm +s71s8X3y+DBuW5RdLx+u/WIMhByTx5MSTamX3vDhjmPygcAoeXSyq5o3NsqH +Pqnzh72q5fEfWiWXLUHA0pPu/vZaCnhg1ObxckMCdFa/3p6tr4DpA50G9SsJ +MBTZqSdYqYCHlo6MOZoQYBm74f3ZtQrYXP0rMMCcAJcCbfsiZwWMEUkqyrQh +4ErnmN7siwpYOhSQeMCZAHGjsx9KhAroqTuH+T2EAOmfE3XTUwooHXwrZ2U4 +AbK13letRBSRfmf07KkIAji2rg690oqY6VK75XM0AaZuVvUSSxVRIB1gUJ1E +wMnLUtl7dipixpffWq8LCHj3I2WHVJUivt/lNlejkYA8C65vf70iPvsTfcH8 +EQF749ouljQpont39/dtTwh4qSb+ZHu3IpYKPkX7tBLQvt1nTaZQEYm9C+7H +dhFQXbaZo6OlhL/EIo7pDBGQcmyWYEuKEu6ZqJBaPJsE+8pMCdWrSkjnHXd6 +IUqCrLjxEmGBEhoJMzIviJMQn+nlnFKuhOEVV2fezSUhvLm37XWrEu4Nazc8 +vZAE72VkhbeYMrK8tnZKMknYOHQ46NIJZUy+kOomWEGCddCS4nX+ymgrOJBn +bEiCpULfy/FgZcw87TsdZkTCaitb492xyrhHXfhLxpgErUI94ZLryijHy9sj +ZUaClNv3Q0SfMraFqPT6WpMw91dxisegMhZg7UzSehLELrs9pAmU8T/hGiyz +IWGm4fmS4All5Hzy0x3cSMKIWuUra1kaZvnr89W2ktDyLsi+ez0NJ2qsH7Md +SXh8ZmVY9BYaPos5aiqzk4QG+S9lpg40HOtO7hHZRcL9dfsW5rrSMN2uOeGF +EwnFBZZNnkE0vJMmKnLAhYS4g3PwZzkNj79UtB07SEL0zAOvW5U0fDmVEf0/ +NxIikv2z9tbQ8EBb/2SAOwnBDcPT9a00dAtN8xz3IMFLrYWI/UjDIDbr39bD +JGx5l7CczabjkwNB9PHj1Psuf9fprEbH6bPK3uHeJGzyXRWcoUVHlqfN7kUn +SLCZ/eqZ8io6Flgv+c7xoerLWX5Kzo6OTJqYqfpJEmo8glW27aBjGhGyMYcy +lLQ/TnCmY0qT0piyHwmm5v6MBZ50vFazY4HoKRKMnBtr5obS8VHO/yLvniaB +n698eH0UHa//jjuy2J+EFZ+OyEXE03FrB20kkrIuT9ZdNIOO4W0ajZsCSNBM +3Sv1u4KO+ZbS70geCddel/NN79Kxv513VyqQBHUNCZfAGjqq19kbuFBeTBaX +TrbQMXSezuwZyszOKQfhEB0l/flmjCAS0hm2fwxG6Lgmq0ZtD2XagZwb3mN0 +vJMoUZpJWXHM+ufobzrq2ukS8sEkJJukF2iLM9DSfK6+LWW5kFHbI1IMPLlW ++p8wyosWJed8VGKg92RE5EfK8Y4fNmiwGajwZDJL6SwJ87NXC93UGKg1Fu28 +jnLs+7jMAi3q/m/36r0oz9N9YzWoz0DD/HmdVyhH+Rl+UV3FQKbleNx9yhJV +kan7zBj4zf33t9eURTfrfurfQJl38K7KORJCk0KSmXYMPOVdr2JKWaS302z3 +DgZyJ9FgB+XgxZof0pyp68EuX45RnvEMTOh2ZeDhliynMMq8sjYTJU8Gfp4T +4nuF8tSk6qDDcQaur4hefZ2yP/rFJvsxUPSWWSlBeTzysVFHIAPL9VhdtZRP +PmW8lgllIL+9+GYzZaHi8Si7KAaKn/fW7aDs41JncDGecsrIgW7KXwsVeluT +GYilhRt7KXuNHgqXzmCgWSdn8K9HDe/rbMpl4Nr9gzovKR89s/DFhesMVF3k +u/w5ZUG967nHtxg4IXToe0pZJbH7cDyfgfdOlx95SNneZYuD/T0GLkjuWX+X +8oXlDUCvo+pbc/pEEeXqSROtgccMNP1iMpz2930bS+SvPWVg2sXWkvOUNZPU +/xx5zsA30QONXpT37MsYNuin6melqu1A+ZKOTOfEIAN1r5oPGlN+NB1RXSVg +4NzPHz7R/tb30cyNsG8MbJ7Taj1JfS+Dyz5JGyYZ2Lrq6vcOyu6uH4MW/mFg +8Frp8WLKGXouh7rEmajv+XhTGOVnMx3bMqSZSO4NH99BeU3KAw0NOhNXCBts +x6n+8j5oJDvKYeJph5KftZSvGRTNlGswMVzWbVbM335sudJubsTEfCtRJQXK +VmnS98VMmShn7KD5nOpvnnvotSZLJroGWSUnU34n4hW4w46JIpI9wZJ/56Ft +0I3pyERz/+HfD85Q+ZGxy+7tHiZeivHp86V8x8hK3esIE4O+tZZ3UPMVe5j5 +9HwEE2VsXg34UvNZu+pS5aY4JtYaDe1ToDwuNrdAJpmJrzh66/jUPO/LFvpn +5TJRMjVglYCad8POpsXEfSbq7Q4ZWknlg2cuzg+sZ2Kdh1FyPZUfV73ICWxi +4n4DuWJbynMl81paXjBxuGA93YnKm36zgFPvxpj4tTlO3N6X2jdSX/b9O8XE +ipMRsi1Uftl0H9zkLcLCIIeieAvK5T52nJn5LJwnF/ZCjcq7iOsaTXLLWFhi +V1/T4kXlj8xz1tq9LIxs/zcrz5OE93HvQy+7sXAiUPe/X4dIyJo38eHDERaK +XNbu2kFZWky5PNafhZ0e6htmU/krGN9l/TyRhb9eTkybU/ld2Nfv5dnAwi/r +4hXtqHx33vW5414TC8W0P56N2kOC/PPfxgvaWVhzUb6u2pma56cqohX9LHzE +Ot+htpuqV93+lJlxFvYUrjJ7Qe0X5o2hBxeXsfGR5sGaLjsSOtXG1d7qsdE/ +3VpihNpHMbkS0YYr2RhRm6UnQnk6XcO+x5KNJqHOeottSeiO8/y42JmNyduk +xjdvICHJd3QRGc9G1r+xxuYWVB7Bj/19QjZesf7gmqxHzb+F5lxymo3hN6Ms +tupS9Vi7+/bFWSrYSAQ+mKNDQp1N7bTlQhXkbPmSeUKL6q9tcUk3tVSw6f7G +CU11Ej65qTee2q+C6Ybd35fSqf0T66Ap81QF+ztNz7hT/wurL0a1CbpU8HXl +QskXIiTcSLx3sqFPBSV2Jm+z+kNA+BXV2tMCFfRQ9VVhzBDAfjau/WU2B//L +6rlb9IOA5z11jQ5sDoZmtTTv/0jA+lGnicUOHLRcXiqi2ULAVfmwjrM7Obgh +dyDOqYmA72uKSvp2c1BpUm5ezGMCcqJ/elxx5eDaNfodQw0ETGtkdkt6c7DX +VKIutIqAYtf+yq/RHExbRXvjdJuARd17z1TXcNC71vd6dDwB3XUHZzlpq+Lp +SMZ81gYCvlq8pAfpqeLYoDF72pqAObVbDXNWqKLQ9khK1zoCVj5Y7fHeWBVd +jAwaI5GA5HuLWn2sVFHtlqFazyoCtvLvp8a4qGLaTakc/aUEPCyU169KUMXW +qjy5O7MIIKIaXDg/VPHSj9U7Hfh8cBf3G2hrW4wal1qCe6cq4IBPICGdvgQT +BYMjBasqQM9jedvm/WqomGvzu9SzHJ7Kakv5majj5jXcy6fOlMG926EZ2qJL +0XvMUsHjcikEztKya+lfijLVXjEvNUpgXh/PxouvgZbyS5tuLL0FQ9dUk7PP +aKKEkJWWYV0EyZo0sUqHZdidViL1yuImJKS7P9rP0cLAx3Otwj2ug1Pynjbp +D1oIwbwfObmFMLmucCq7ejm2i4U2z27Mh8EhS/+6SG0kVwxvGaXlQZ6ZAaN1 +vw4m7XhjnrQvB26d95Px0NHFzna3O5P8LIh0OLBJ9IcuxhulvOcPpoNRX+7N +yFY9bLvlcurpnFRIXZZxq3WTPmarJm54HnsZztbEpW6q1Mfefr6jkUwS2DIc +CpvUDPDx0xmFxK4EsPB6tFvmggGWp206J+yNg2ymq1rLDwOsidlZWESPBrX6 +61e27F6BU8+kL8Z/iYAEnTqt/6pXYNVTy1I11XBwF4q1P9HiYoJ0vmySewi4 +lo1xLlzk4noNz0RcGwxHQ7fPbEzk4j8tAmU1/WDw285/IZ1EuertWRlWMET9 +8ItPuMJFy7SYV5ITQXDbZOpnShb1vPlKZ72LgmCq9s/za0VcvD4/aqusYhAk +/Ccd1/CIi02kJiSMBUJ6/rFDEU+4GNukoHhzIBDyT7attWnmYqGJ/N7mtkAg +FROmm9u4KEWmmmgXBUKfk9yhji4uaklLl7kcDASNQdrat4NcjLI0LA7r5oE+ +n8cuGOJizr0l81Y84sHq871Tbh+4aCbg5Q8TPNiskVU6LODic+NK3skkHvgc +4bC/feMiiAt2T27hwRnTkKlyIRcNOqKNvprx4Pz8t50nf3Axg2uj902bB6kl ++TGTk1zM/dfPb4EUD/LOiXncneZif7b8Pa3pACj6x83yzAwXh9/ryNkNBwB/ +8UOW+W8uvti2ixfcHQDVwqVTf/5wceOA7ijxKAD+D4XkR3U= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08790373129961977}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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, 20}, {0., 0.08790373129961977}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99134491550045*^9, 3.9921054606804256`*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"03d34203-c420-7d45-bf09-8a55296e01ac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.020752"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.058831"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.090855"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.11027"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.120683"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.117878"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.109585"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.093652"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.077678"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.059892"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.045412"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.032103"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.022647"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.014816"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.009893"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.006002"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.003879"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.002155"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.001404"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.000678"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.00048"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991714709387436*^9, 3.991714738003292*^9}, { + 3.991714834117689*^9, 3.991714842328617*^9}, 3.991793311407936*^9, + 3.9917953263701286`*^9, {3.992088703603916*^9, 3.992088704449127*^9}}, + CellLabel->"In[97]:=",ExpressionUUID->"0442afd4-ab7e-8942-9b0e-e14520d1eea3"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 20.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9917148467316074`*^9, 3.9921054608654137`*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"d8680fc9-3dd5-9242-88d6-6c0204a87721"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel->"In[98]:=",ExpressionUUID->"9478c59b-a5b4-1043-afe6-75ae56a5fd89"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4FY0XB3BlKdFid1dXEcnapSicQ5EW5S1SkkohLRIprihLyBZR9uwt +L2W7M79UZG2xlRdFKCWVGy1u2VL9pj/mmefzzDzzzHPmnO8ZVdfj29xmi4iI +/KaOv+esYFcJg4MZ5hNV9p+0PC3NGzo4mx05AcB1CxA5NsiBPw+rwzicCzDj +ZvHKelAfsmriVMQ5aVC6Jd1IbxDhqJnfsQmVm1DstEZUZtAOOn4eSv6qUgka +jr987rzdB3N632qMqjyBjnC+i/sbb8htyj7xSaUHeHmSqhp95+B2yYXeo7oC +aFw0a9o9IBE8oD1txEcIGflmZX+q0sBraNkg//YUwDr7MrXWHJinGq7x2lgE +aW5G7kVvCyB+UbNW7j5R/FUiKTETdANce+0fiLZIIHuXaPHwkmI40Rjuelxj +HvqfOH914GgJlHlLb1feMB/fXKrSiqOVQW7gEYG+4yLc+9vfwf54OYRmz/zz +fUQGLTaOsJ+EVYCd/p0Ty4Uy2Nva5VgWWQHsWt9E1ykZ5D7ZKZoSUwF33wqe +PROXxebiTWVOSRUwpt6z9RZbFv+X+sG1Pq8CXIsJW3c7WXST6vlMq60Ai0qv +Dd0Vsjhy3t/h5c8KEOkYwPs8OVx7uSIy25MP4cPVubwQORz4sfjzsmN8kBTJ +mm0SJYflCd/Wl3nzQVZnVwNxWQ5f51l0kaf5oB7Zvr6kVA7fmH/annWeDxvX +1G3Jey+H3SONrS9y+JCUn+8ctU0eHSfTzGZ38UH5bkiV9S55jHxjKtDq5kPm +s71s8X3y+DBuW5RdLx+u/WIMhByTx5MSTamX3vDhjmPygcAoeXSyq5o3NsqH +Pqnzh72q5fEfWiWXLUHA0pPu/vZaCnhg1ObxckMCdFa/3p6tr4DpA50G9SsJ +MBTZqSdYqYCHlo6MOZoQYBm74f3ZtQrYXP0rMMCcAJcCbfsiZwWMEUkqyrQh +4ErnmN7siwpYOhSQeMCZAHGjsx9KhAroqTuH+T2EAOmfE3XTUwooHXwrZ2U4 +AbK13letRBSRfmf07KkIAji2rg690oqY6VK75XM0AaZuVvUSSxVRIB1gUJ1E +wMnLUtl7dipixpffWq8LCHj3I2WHVJUivt/lNlejkYA8C65vf70iPvsTfcH8 +EQF749ouljQpont39/dtTwh4qSb+ZHu3IpYKPkX7tBLQvt1nTaZQEYm9C+7H +dhFQXbaZo6OlhL/EIo7pDBGQcmyWYEuKEu6ZqJBaPJsE+8pMCdWrSkjnHXd6 +IUqCrLjxEmGBEhoJMzIviJMQn+nlnFKuhOEVV2fezSUhvLm37XWrEu4Nazc8 +vZAE72VkhbeYMrK8tnZKMknYOHQ46NIJZUy+kOomWEGCddCS4nX+ymgrOJBn +bEiCpULfy/FgZcw87TsdZkTCaitb492xyrhHXfhLxpgErUI94ZLryijHy9sj +ZUaClNv3Q0SfMraFqPT6WpMw91dxisegMhZg7UzSehLELrs9pAmU8T/hGiyz +IWGm4fmS4All5Hzy0x3cSMKIWuUra1kaZvnr89W2ktDyLsi+ez0NJ2qsH7Md +SXh8ZmVY9BYaPos5aiqzk4QG+S9lpg40HOtO7hHZRcL9dfsW5rrSMN2uOeGF +EwnFBZZNnkE0vJMmKnLAhYS4g3PwZzkNj79UtB07SEL0zAOvW5U0fDmVEf0/ +NxIikv2z9tbQ8EBb/2SAOwnBDcPT9a00dAtN8xz3IMFLrYWI/UjDIDbr39bD +JGx5l7CczabjkwNB9PHj1Psuf9fprEbH6bPK3uHeJGzyXRWcoUVHlqfN7kUn +SLCZ/eqZ8io6Flgv+c7xoerLWX5Kzo6OTJqYqfpJEmo8glW27aBjGhGyMYcy +lLQ/TnCmY0qT0piyHwmm5v6MBZ50vFazY4HoKRKMnBtr5obS8VHO/yLvniaB +n698eH0UHa//jjuy2J+EFZ+OyEXE03FrB20kkrIuT9ZdNIOO4W0ajZsCSNBM +3Sv1u4KO+ZbS70geCddel/NN79Kxv513VyqQBHUNCZfAGjqq19kbuFBeTBaX +TrbQMXSezuwZyszOKQfhEB0l/flmjCAS0hm2fwxG6Lgmq0ZtD2XagZwb3mN0 +vJMoUZpJWXHM+ufobzrq2ukS8sEkJJukF2iLM9DSfK6+LWW5kFHbI1IMPLlW ++p8wyosWJed8VGKg92RE5EfK8Y4fNmiwGajwZDJL6SwJ87NXC93UGKg1Fu28 +jnLs+7jMAi3q/m/36r0oz9N9YzWoz0DD/HmdVyhH+Rl+UV3FQKbleNx9yhJV +kan7zBj4zf33t9eURTfrfurfQJl38K7KORJCk0KSmXYMPOVdr2JKWaS302z3 +DgZyJ9FgB+XgxZof0pyp68EuX45RnvEMTOh2ZeDhliynMMq8sjYTJU8Gfp4T +4nuF8tSk6qDDcQaur4hefZ2yP/rFJvsxUPSWWSlBeTzysVFHIAPL9VhdtZRP +PmW8lgllIL+9+GYzZaHi8Si7KAaKn/fW7aDs41JncDGecsrIgW7KXwsVeluT +GYilhRt7KXuNHgqXzmCgWSdn8K9HDe/rbMpl4Nr9gzovKR89s/DFhesMVF3k +u/w5ZUG967nHtxg4IXToe0pZJbH7cDyfgfdOlx95SNneZYuD/T0GLkjuWX+X +8oXlDUCvo+pbc/pEEeXqSROtgccMNP1iMpz2930bS+SvPWVg2sXWkvOUNZPU +/xx5zsA30QONXpT37MsYNuin6melqu1A+ZKOTOfEIAN1r5oPGlN+NB1RXSVg +4NzPHz7R/tb30cyNsG8MbJ7Taj1JfS+Dyz5JGyYZ2Lrq6vcOyu6uH4MW/mFg +8Frp8WLKGXouh7rEmajv+XhTGOVnMx3bMqSZSO4NH99BeU3KAw0NOhNXCBts +x6n+8j5oJDvKYeJph5KftZSvGRTNlGswMVzWbVbM335sudJubsTEfCtRJQXK +VmnS98VMmShn7KD5nOpvnnvotSZLJroGWSUnU34n4hW4w46JIpI9wZJ/56Ft +0I3pyERz/+HfD85Q+ZGxy+7tHiZeivHp86V8x8hK3esIE4O+tZZ3UPMVe5j5 +9HwEE2VsXg34UvNZu+pS5aY4JtYaDe1ToDwuNrdAJpmJrzh66/jUPO/LFvpn +5TJRMjVglYCad8POpsXEfSbq7Q4ZWknlg2cuzg+sZ2Kdh1FyPZUfV73ICWxi +4n4DuWJbynMl81paXjBxuGA93YnKm36zgFPvxpj4tTlO3N6X2jdSX/b9O8XE +ipMRsi1Uftl0H9zkLcLCIIeieAvK5T52nJn5LJwnF/ZCjcq7iOsaTXLLWFhi +V1/T4kXlj8xz1tq9LIxs/zcrz5OE93HvQy+7sXAiUPe/X4dIyJo38eHDERaK +XNbu2kFZWky5PNafhZ0e6htmU/krGN9l/TyRhb9eTkybU/ld2Nfv5dnAwi/r +4hXtqHx33vW5414TC8W0P56N2kOC/PPfxgvaWVhzUb6u2pma56cqohX9LHzE +Ot+htpuqV93+lJlxFvYUrjJ7Qe0X5o2hBxeXsfGR5sGaLjsSOtXG1d7qsdE/ +3VpihNpHMbkS0YYr2RhRm6UnQnk6XcO+x5KNJqHOeottSeiO8/y42JmNyduk +xjdvICHJd3QRGc9G1r+xxuYWVB7Bj/19QjZesf7gmqxHzb+F5lxymo3hN6Ms +tupS9Vi7+/bFWSrYSAQ+mKNDQp1N7bTlQhXkbPmSeUKL6q9tcUk3tVSw6f7G +CU11Ej65qTee2q+C6Ybd35fSqf0T66Ap81QF+ztNz7hT/wurL0a1CbpU8HXl +QskXIiTcSLx3sqFPBSV2Jm+z+kNA+BXV2tMCFfRQ9VVhzBDAfjau/WU2B//L +6rlb9IOA5z11jQ5sDoZmtTTv/0jA+lGnicUOHLRcXiqi2ULAVfmwjrM7Obgh +dyDOqYmA72uKSvp2c1BpUm5ezGMCcqJ/elxx5eDaNfodQw0ETGtkdkt6c7DX +VKIutIqAYtf+yq/RHExbRXvjdJuARd17z1TXcNC71vd6dDwB3XUHZzlpq+Lp +SMZ81gYCvlq8pAfpqeLYoDF72pqAObVbDXNWqKLQ9khK1zoCVj5Y7fHeWBVd +jAwaI5GA5HuLWn2sVFHtlqFazyoCtvLvp8a4qGLaTakc/aUEPCyU169KUMXW +qjy5O7MIIKIaXDg/VPHSj9U7Hfh8cBf3G2hrW4wal1qCe6cq4IBPICGdvgQT +BYMjBasqQM9jedvm/WqomGvzu9SzHJ7Kakv5majj5jXcy6fOlMG926EZ2qJL +0XvMUsHjcikEztKya+lfijLVXjEvNUpgXh/PxouvgZbyS5tuLL0FQ9dUk7PP +aKKEkJWWYV0EyZo0sUqHZdidViL1yuImJKS7P9rP0cLAx3Otwj2ug1Pynjbp +D1oIwbwfObmFMLmucCq7ejm2i4U2z27Mh8EhS/+6SG0kVwxvGaXlQZ6ZAaN1 +vw4m7XhjnrQvB26d95Px0NHFzna3O5P8LIh0OLBJ9IcuxhulvOcPpoNRX+7N +yFY9bLvlcurpnFRIXZZxq3WTPmarJm54HnsZztbEpW6q1Mfefr6jkUwS2DIc +CpvUDPDx0xmFxK4EsPB6tFvmggGWp206J+yNg2ymq1rLDwOsidlZWESPBrX6 +61e27F6BU8+kL8Z/iYAEnTqt/6pXYNVTy1I11XBwF4q1P9HiYoJ0vmySewi4 +lo1xLlzk4noNz0RcGwxHQ7fPbEzk4j8tAmU1/WDw285/IZ1EuertWRlWMET9 +8ItPuMJFy7SYV5ITQXDbZOpnShb1vPlKZ72LgmCq9s/za0VcvD4/aqusYhAk +/Ccd1/CIi02kJiSMBUJ6/rFDEU+4GNukoHhzIBDyT7attWnmYqGJ/N7mtkAg +FROmm9u4KEWmmmgXBUKfk9yhji4uaklLl7kcDASNQdrat4NcjLI0LA7r5oE+ +n8cuGOJizr0l81Y84sHq871Tbh+4aCbg5Q8TPNiskVU6LODic+NK3skkHvgc +4bC/feMiiAt2T27hwRnTkKlyIRcNOqKNvprx4Pz8t50nf3Axg2uj902bB6kl ++TGTk1zM/dfPb4EUD/LOiXncneZif7b8Pa3pACj6x83yzAwXh9/ryNkNBwB/ +8UOW+W8uvti2ixfcHQDVwqVTf/5wceOA7ijxKAD+D4XkR3U= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4FY0XB3BlKdFid1dXEcnapSicQ5EW5S1SkkohLRIprihLyBZR9uwt +L2W7M79UZG2xlRdFKCWVGy1u2VL9pj/mmefzzDzzzHPmnO8ZVdfj29xmi4iI +/KaOv+esYFcJg4MZ5hNV9p+0PC3NGzo4mx05AcB1CxA5NsiBPw+rwzicCzDj +ZvHKelAfsmriVMQ5aVC6Jd1IbxDhqJnfsQmVm1DstEZUZtAOOn4eSv6qUgka +jr987rzdB3N632qMqjyBjnC+i/sbb8htyj7xSaUHeHmSqhp95+B2yYXeo7oC +aFw0a9o9IBE8oD1txEcIGflmZX+q0sBraNkg//YUwDr7MrXWHJinGq7x2lgE +aW5G7kVvCyB+UbNW7j5R/FUiKTETdANce+0fiLZIIHuXaPHwkmI40Rjuelxj +HvqfOH914GgJlHlLb1feMB/fXKrSiqOVQW7gEYG+4yLc+9vfwf54OYRmz/zz +fUQGLTaOsJ+EVYCd/p0Ty4Uy2Nva5VgWWQHsWt9E1ykZ5D7ZKZoSUwF33wqe +PROXxebiTWVOSRUwpt6z9RZbFv+X+sG1Pq8CXIsJW3c7WXST6vlMq60Ai0qv +Dd0Vsjhy3t/h5c8KEOkYwPs8OVx7uSIy25MP4cPVubwQORz4sfjzsmN8kBTJ +mm0SJYflCd/Wl3nzQVZnVwNxWQ5f51l0kaf5oB7Zvr6kVA7fmH/annWeDxvX +1G3Jey+H3SONrS9y+JCUn+8ctU0eHSfTzGZ38UH5bkiV9S55jHxjKtDq5kPm +s71s8X3y+DBuW5RdLx+u/WIMhByTx5MSTamX3vDhjmPygcAoeXSyq5o3NsqH +Pqnzh72q5fEfWiWXLUHA0pPu/vZaCnhg1ObxckMCdFa/3p6tr4DpA50G9SsJ +MBTZqSdYqYCHlo6MOZoQYBm74f3ZtQrYXP0rMMCcAJcCbfsiZwWMEUkqyrQh +4ErnmN7siwpYOhSQeMCZAHGjsx9KhAroqTuH+T2EAOmfE3XTUwooHXwrZ2U4 +AbK13letRBSRfmf07KkIAji2rg690oqY6VK75XM0AaZuVvUSSxVRIB1gUJ1E +wMnLUtl7dipixpffWq8LCHj3I2WHVJUivt/lNlejkYA8C65vf70iPvsTfcH8 +EQF749ouljQpont39/dtTwh4qSb+ZHu3IpYKPkX7tBLQvt1nTaZQEYm9C+7H +dhFQXbaZo6OlhL/EIo7pDBGQcmyWYEuKEu6ZqJBaPJsE+8pMCdWrSkjnHXd6 +IUqCrLjxEmGBEhoJMzIviJMQn+nlnFKuhOEVV2fezSUhvLm37XWrEu4Nazc8 +vZAE72VkhbeYMrK8tnZKMknYOHQ46NIJZUy+kOomWEGCddCS4nX+ymgrOJBn +bEiCpULfy/FgZcw87TsdZkTCaitb492xyrhHXfhLxpgErUI94ZLryijHy9sj +ZUaClNv3Q0SfMraFqPT6WpMw91dxisegMhZg7UzSehLELrs9pAmU8T/hGiyz +IWGm4fmS4All5Hzy0x3cSMKIWuUra1kaZvnr89W2ktDyLsi+ez0NJ2qsH7Md +SXh8ZmVY9BYaPos5aiqzk4QG+S9lpg40HOtO7hHZRcL9dfsW5rrSMN2uOeGF +EwnFBZZNnkE0vJMmKnLAhYS4g3PwZzkNj79UtB07SEL0zAOvW5U0fDmVEf0/ +NxIikv2z9tbQ8EBb/2SAOwnBDcPT9a00dAtN8xz3IMFLrYWI/UjDIDbr39bD +JGx5l7CczabjkwNB9PHj1Psuf9fprEbH6bPK3uHeJGzyXRWcoUVHlqfN7kUn +SLCZ/eqZ8io6Flgv+c7xoerLWX5Kzo6OTJqYqfpJEmo8glW27aBjGhGyMYcy +lLQ/TnCmY0qT0piyHwmm5v6MBZ50vFazY4HoKRKMnBtr5obS8VHO/yLvniaB +n698eH0UHa//jjuy2J+EFZ+OyEXE03FrB20kkrIuT9ZdNIOO4W0ajZsCSNBM +3Sv1u4KO+ZbS70geCddel/NN79Kxv513VyqQBHUNCZfAGjqq19kbuFBeTBaX +TrbQMXSezuwZyszOKQfhEB0l/flmjCAS0hm2fwxG6Lgmq0ZtD2XagZwb3mN0 +vJMoUZpJWXHM+ufobzrq2ukS8sEkJJukF2iLM9DSfK6+LWW5kFHbI1IMPLlW ++p8wyosWJed8VGKg92RE5EfK8Y4fNmiwGajwZDJL6SwJ87NXC93UGKg1Fu28 +jnLs+7jMAi3q/m/36r0oz9N9YzWoz0DD/HmdVyhH+Rl+UV3FQKbleNx9yhJV +kan7zBj4zf33t9eURTfrfurfQJl38K7KORJCk0KSmXYMPOVdr2JKWaS302z3 +DgZyJ9FgB+XgxZof0pyp68EuX45RnvEMTOh2ZeDhliynMMq8sjYTJU8Gfp4T +4nuF8tSk6qDDcQaur4hefZ2yP/rFJvsxUPSWWSlBeTzysVFHIAPL9VhdtZRP +PmW8lgllIL+9+GYzZaHi8Si7KAaKn/fW7aDs41JncDGecsrIgW7KXwsVeluT +GYilhRt7KXuNHgqXzmCgWSdn8K9HDe/rbMpl4Nr9gzovKR89s/DFhesMVF3k +u/w5ZUG967nHtxg4IXToe0pZJbH7cDyfgfdOlx95SNneZYuD/T0GLkjuWX+X +8oXlDUCvo+pbc/pEEeXqSROtgccMNP1iMpz2930bS+SvPWVg2sXWkvOUNZPU +/xx5zsA30QONXpT37MsYNuin6melqu1A+ZKOTOfEIAN1r5oPGlN+NB1RXSVg +4NzPHz7R/tb30cyNsG8MbJ7Taj1JfS+Dyz5JGyYZ2Lrq6vcOyu6uH4MW/mFg +8Frp8WLKGXouh7rEmajv+XhTGOVnMx3bMqSZSO4NH99BeU3KAw0NOhNXCBts +x6n+8j5oJDvKYeJph5KftZSvGRTNlGswMVzWbVbM335sudJubsTEfCtRJQXK +VmnS98VMmShn7KD5nOpvnnvotSZLJroGWSUnU34n4hW4w46JIpI9wZJ/56Ft +0I3pyERz/+HfD85Q+ZGxy+7tHiZeivHp86V8x8hK3esIE4O+tZZ3UPMVe5j5 +9HwEE2VsXg34UvNZu+pS5aY4JtYaDe1ToDwuNrdAJpmJrzh66/jUPO/LFvpn +5TJRMjVglYCad8POpsXEfSbq7Q4ZWknlg2cuzg+sZ2Kdh1FyPZUfV73ICWxi +4n4DuWJbynMl81paXjBxuGA93YnKm36zgFPvxpj4tTlO3N6X2jdSX/b9O8XE +ipMRsi1Uftl0H9zkLcLCIIeieAvK5T52nJn5LJwnF/ZCjcq7iOsaTXLLWFhi +V1/T4kXlj8xz1tq9LIxs/zcrz5OE93HvQy+7sXAiUPe/X4dIyJo38eHDERaK +XNbu2kFZWky5PNafhZ0e6htmU/krGN9l/TyRhb9eTkybU/ld2Nfv5dnAwi/r +4hXtqHx33vW5414TC8W0P56N2kOC/PPfxgvaWVhzUb6u2pma56cqohX9LHzE +Ot+htpuqV93+lJlxFvYUrjJ7Qe0X5o2hBxeXsfGR5sGaLjsSOtXG1d7qsdE/ +3VpihNpHMbkS0YYr2RhRm6UnQnk6XcO+x5KNJqHOeottSeiO8/y42JmNyduk +xjdvICHJd3QRGc9G1r+xxuYWVB7Bj/19QjZesf7gmqxHzb+F5lxymo3hN6Ms +tupS9Vi7+/bFWSrYSAQ+mKNDQp1N7bTlQhXkbPmSeUKL6q9tcUk3tVSw6f7G +CU11Ej65qTee2q+C6Ybd35fSqf0T66Ap81QF+ztNz7hT/wurL0a1CbpU8HXl +QskXIiTcSLx3sqFPBSV2Jm+z+kNA+BXV2tMCFfRQ9VVhzBDAfjau/WU2B//L +6rlb9IOA5z11jQ5sDoZmtTTv/0jA+lGnicUOHLRcXiqi2ULAVfmwjrM7Obgh +dyDOqYmA72uKSvp2c1BpUm5ezGMCcqJ/elxx5eDaNfodQw0ETGtkdkt6c7DX +VKIutIqAYtf+yq/RHExbRXvjdJuARd17z1TXcNC71vd6dDwB3XUHZzlpq+Lp +SMZ81gYCvlq8pAfpqeLYoDF72pqAObVbDXNWqKLQ9khK1zoCVj5Y7fHeWBVd +jAwaI5GA5HuLWn2sVFHtlqFazyoCtvLvp8a4qGLaTakc/aUEPCyU169KUMXW +qjy5O7MIIKIaXDg/VPHSj9U7Hfh8cBf3G2hrW4wal1qCe6cq4IBPICGdvgQT +BYMjBasqQM9jedvm/WqomGvzu9SzHJ7Kakv5majj5jXcy6fOlMG926EZ2qJL +0XvMUsHjcikEztKya+lfijLVXjEvNUpgXh/PxouvgZbyS5tuLL0FQ9dUk7PP +aKKEkJWWYV0EyZo0sUqHZdidViL1yuImJKS7P9rP0cLAx3Otwj2ug1Pynjbp +D1oIwbwfObmFMLmucCq7ejm2i4U2z27Mh8EhS/+6SG0kVwxvGaXlQZ6ZAaN1 +vw4m7XhjnrQvB26d95Px0NHFzna3O5P8LIh0OLBJ9IcuxhulvOcPpoNRX+7N +yFY9bLvlcurpnFRIXZZxq3WTPmarJm54HnsZztbEpW6q1Mfefr6jkUwS2DIc +CpvUDPDx0xmFxK4EsPB6tFvmggGWp206J+yNg2ymq1rLDwOsidlZWESPBrX6 +61e27F6BU8+kL8Z/iYAEnTqt/6pXYNVTy1I11XBwF4q1P9HiYoJ0vmySewi4 +lo1xLlzk4noNz0RcGwxHQ7fPbEzk4j8tAmU1/WDw285/IZ1EuertWRlWMET9 +8ItPuMJFy7SYV5ITQXDbZOpnShb1vPlKZ72LgmCq9s/za0VcvD4/aqusYhAk +/Ccd1/CIi02kJiSMBUJ6/rFDEU+4GNukoHhzIBDyT7attWnmYqGJ/N7mtkAg +FROmm9u4KEWmmmgXBUKfk9yhji4uaklLl7kcDASNQdrat4NcjLI0LA7r5oE+ +n8cuGOJizr0l81Y84sHq871Tbh+4aCbg5Q8TPNiskVU6LODic+NK3skkHvgc +4bC/feMiiAt2T27hwRnTkKlyIRcNOqKNvprx4Pz8t50nf3Axg2uj902bB6kl ++TGTk1zM/dfPb4EUD/LOiXncneZif7b8Pa3pACj6x83yzAwXh9/ryNkNBwB/ +8UOW+W8uvti2ixfcHQDVwqVTf/5wceOA7ijxKAD+D4XkR3U= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08790373129961977}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08790373129961977}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4FY0XB3BlKdFid1dXEcnapSicQ5EW5S1SkkohLRIprihLyBZR9uwt +L2W7M79UZG2xlRdFKCWVGy1u2VL9pj/mmefzzDzzzHPmnO8ZVdfj29xmi4iI +/KaOv+esYFcJg4MZ5hNV9p+0PC3NGzo4mx05AcB1CxA5NsiBPw+rwzicCzDj +ZvHKelAfsmriVMQ5aVC6Jd1IbxDhqJnfsQmVm1DstEZUZtAOOn4eSv6qUgka +jr987rzdB3N632qMqjyBjnC+i/sbb8htyj7xSaUHeHmSqhp95+B2yYXeo7oC +aFw0a9o9IBE8oD1txEcIGflmZX+q0sBraNkg//YUwDr7MrXWHJinGq7x2lgE +aW5G7kVvCyB+UbNW7j5R/FUiKTETdANce+0fiLZIIHuXaPHwkmI40Rjuelxj +HvqfOH914GgJlHlLb1feMB/fXKrSiqOVQW7gEYG+4yLc+9vfwf54OYRmz/zz +fUQGLTaOsJ+EVYCd/p0Ty4Uy2Nva5VgWWQHsWt9E1ykZ5D7ZKZoSUwF33wqe +PROXxebiTWVOSRUwpt6z9RZbFv+X+sG1Pq8CXIsJW3c7WXST6vlMq60Ai0qv +Dd0Vsjhy3t/h5c8KEOkYwPs8OVx7uSIy25MP4cPVubwQORz4sfjzsmN8kBTJ +mm0SJYflCd/Wl3nzQVZnVwNxWQ5f51l0kaf5oB7Zvr6kVA7fmH/annWeDxvX +1G3Jey+H3SONrS9y+JCUn+8ctU0eHSfTzGZ38UH5bkiV9S55jHxjKtDq5kPm +s71s8X3y+DBuW5RdLx+u/WIMhByTx5MSTamX3vDhjmPygcAoeXSyq5o3NsqH +Pqnzh72q5fEfWiWXLUHA0pPu/vZaCnhg1ObxckMCdFa/3p6tr4DpA50G9SsJ +MBTZqSdYqYCHlo6MOZoQYBm74f3ZtQrYXP0rMMCcAJcCbfsiZwWMEUkqyrQh +4ErnmN7siwpYOhSQeMCZAHGjsx9KhAroqTuH+T2EAOmfE3XTUwooHXwrZ2U4 +AbK13letRBSRfmf07KkIAji2rg690oqY6VK75XM0AaZuVvUSSxVRIB1gUJ1E +wMnLUtl7dipixpffWq8LCHj3I2WHVJUivt/lNlejkYA8C65vf70iPvsTfcH8 +EQF749ouljQpont39/dtTwh4qSb+ZHu3IpYKPkX7tBLQvt1nTaZQEYm9C+7H +dhFQXbaZo6OlhL/EIo7pDBGQcmyWYEuKEu6ZqJBaPJsE+8pMCdWrSkjnHXd6 +IUqCrLjxEmGBEhoJMzIviJMQn+nlnFKuhOEVV2fezSUhvLm37XWrEu4Nazc8 +vZAE72VkhbeYMrK8tnZKMknYOHQ46NIJZUy+kOomWEGCddCS4nX+ymgrOJBn +bEiCpULfy/FgZcw87TsdZkTCaitb492xyrhHXfhLxpgErUI94ZLryijHy9sj +ZUaClNv3Q0SfMraFqPT6WpMw91dxisegMhZg7UzSehLELrs9pAmU8T/hGiyz +IWGm4fmS4All5Hzy0x3cSMKIWuUra1kaZvnr89W2ktDyLsi+ez0NJ2qsH7Md +SXh8ZmVY9BYaPos5aiqzk4QG+S9lpg40HOtO7hHZRcL9dfsW5rrSMN2uOeGF +EwnFBZZNnkE0vJMmKnLAhYS4g3PwZzkNj79UtB07SEL0zAOvW5U0fDmVEf0/ +NxIikv2z9tbQ8EBb/2SAOwnBDcPT9a00dAtN8xz3IMFLrYWI/UjDIDbr39bD +JGx5l7CczabjkwNB9PHj1Psuf9fprEbH6bPK3uHeJGzyXRWcoUVHlqfN7kUn +SLCZ/eqZ8io6Flgv+c7xoerLWX5Kzo6OTJqYqfpJEmo8glW27aBjGhGyMYcy +lLQ/TnCmY0qT0piyHwmm5v6MBZ50vFazY4HoKRKMnBtr5obS8VHO/yLvniaB +n698eH0UHa//jjuy2J+EFZ+OyEXE03FrB20kkrIuT9ZdNIOO4W0ajZsCSNBM +3Sv1u4KO+ZbS70geCddel/NN79Kxv513VyqQBHUNCZfAGjqq19kbuFBeTBaX +TrbQMXSezuwZyszOKQfhEB0l/flmjCAS0hm2fwxG6Lgmq0ZtD2XagZwb3mN0 +vJMoUZpJWXHM+ufobzrq2ukS8sEkJJukF2iLM9DSfK6+LWW5kFHbI1IMPLlW ++p8wyosWJed8VGKg92RE5EfK8Y4fNmiwGajwZDJL6SwJ87NXC93UGKg1Fu28 +jnLs+7jMAi3q/m/36r0oz9N9YzWoz0DD/HmdVyhH+Rl+UV3FQKbleNx9yhJV +kan7zBj4zf33t9eURTfrfurfQJl38K7KORJCk0KSmXYMPOVdr2JKWaS302z3 +DgZyJ9FgB+XgxZof0pyp68EuX45RnvEMTOh2ZeDhliynMMq8sjYTJU8Gfp4T +4nuF8tSk6qDDcQaur4hefZ2yP/rFJvsxUPSWWSlBeTzysVFHIAPL9VhdtZRP +PmW8lgllIL+9+GYzZaHi8Si7KAaKn/fW7aDs41JncDGecsrIgW7KXwsVeluT +GYilhRt7KXuNHgqXzmCgWSdn8K9HDe/rbMpl4Nr9gzovKR89s/DFhesMVF3k +u/w5ZUG967nHtxg4IXToe0pZJbH7cDyfgfdOlx95SNneZYuD/T0GLkjuWX+X +8oXlDUCvo+pbc/pEEeXqSROtgccMNP1iMpz2930bS+SvPWVg2sXWkvOUNZPU +/xx5zsA30QONXpT37MsYNuin6melqu1A+ZKOTOfEIAN1r5oPGlN+NB1RXSVg +4NzPHz7R/tb30cyNsG8MbJ7Taj1JfS+Dyz5JGyYZ2Lrq6vcOyu6uH4MW/mFg +8Frp8WLKGXouh7rEmajv+XhTGOVnMx3bMqSZSO4NH99BeU3KAw0NOhNXCBts +x6n+8j5oJDvKYeJph5KftZSvGRTNlGswMVzWbVbM335sudJubsTEfCtRJQXK +VmnS98VMmShn7KD5nOpvnnvotSZLJroGWSUnU34n4hW4w46JIpI9wZJ/56Ft +0I3pyERz/+HfD85Q+ZGxy+7tHiZeivHp86V8x8hK3esIE4O+tZZ3UPMVe5j5 +9HwEE2VsXg34UvNZu+pS5aY4JtYaDe1ToDwuNrdAJpmJrzh66/jUPO/LFvpn +5TJRMjVglYCad8POpsXEfSbq7Q4ZWknlg2cuzg+sZ2Kdh1FyPZUfV73ICWxi +4n4DuWJbynMl81paXjBxuGA93YnKm36zgFPvxpj4tTlO3N6X2jdSX/b9O8XE +ipMRsi1Uftl0H9zkLcLCIIeieAvK5T52nJn5LJwnF/ZCjcq7iOsaTXLLWFhi +V1/T4kXlj8xz1tq9LIxs/zcrz5OE93HvQy+7sXAiUPe/X4dIyJo38eHDERaK +XNbu2kFZWky5PNafhZ0e6htmU/krGN9l/TyRhb9eTkybU/ld2Nfv5dnAwi/r +4hXtqHx33vW5414TC8W0P56N2kOC/PPfxgvaWVhzUb6u2pma56cqohX9LHzE +Ot+htpuqV93+lJlxFvYUrjJ7Qe0X5o2hBxeXsfGR5sGaLjsSOtXG1d7qsdE/ +3VpihNpHMbkS0YYr2RhRm6UnQnk6XcO+x5KNJqHOeottSeiO8/y42JmNyduk +xjdvICHJd3QRGc9G1r+xxuYWVB7Bj/19QjZesf7gmqxHzb+F5lxymo3hN6Ms +tupS9Vi7+/bFWSrYSAQ+mKNDQp1N7bTlQhXkbPmSeUKL6q9tcUk3tVSw6f7G +CU11Ej65qTee2q+C6Ybd35fSqf0T66Ap81QF+ztNz7hT/wurL0a1CbpU8HXl +QskXIiTcSLx3sqFPBSV2Jm+z+kNA+BXV2tMCFfRQ9VVhzBDAfjau/WU2B//L +6rlb9IOA5z11jQ5sDoZmtTTv/0jA+lGnicUOHLRcXiqi2ULAVfmwjrM7Obgh +dyDOqYmA72uKSvp2c1BpUm5ezGMCcqJ/elxx5eDaNfodQw0ETGtkdkt6c7DX +VKIutIqAYtf+yq/RHExbRXvjdJuARd17z1TXcNC71vd6dDwB3XUHZzlpq+Lp +SMZ81gYCvlq8pAfpqeLYoDF72pqAObVbDXNWqKLQ9khK1zoCVj5Y7fHeWBVd +jAwaI5GA5HuLWn2sVFHtlqFazyoCtvLvp8a4qGLaTakc/aUEPCyU169KUMXW +qjy5O7MIIKIaXDg/VPHSj9U7Hfh8cBf3G2hrW4wal1qCe6cq4IBPICGdvgQT +BYMjBasqQM9jedvm/WqomGvzu9SzHJ7Kakv5majj5jXcy6fOlMG926EZ2qJL +0XvMUsHjcikEztKya+lfijLVXjEvNUpgXh/PxouvgZbyS5tuLL0FQ9dUk7PP +aKKEkJWWYV0EyZo0sUqHZdidViL1yuImJKS7P9rP0cLAx3Otwj2ug1Pynjbp +D1oIwbwfObmFMLmucCq7ejm2i4U2z27Mh8EhS/+6SG0kVwxvGaXlQZ6ZAaN1 +vw4m7XhjnrQvB26d95Px0NHFzna3O5P8LIh0OLBJ9IcuxhulvOcPpoNRX+7N +yFY9bLvlcurpnFRIXZZxq3WTPmarJm54HnsZztbEpW6q1Mfefr6jkUwS2DIc +CpvUDPDx0xmFxK4EsPB6tFvmggGWp206J+yNg2ymq1rLDwOsidlZWESPBrX6 +61e27F6BU8+kL8Z/iYAEnTqt/6pXYNVTy1I11XBwF4q1P9HiYoJ0vmySewi4 +lo1xLlzk4noNz0RcGwxHQ7fPbEzk4j8tAmU1/WDw285/IZ1EuertWRlWMET9 +8ItPuMJFy7SYV5ITQXDbZOpnShb1vPlKZ72LgmCq9s/za0VcvD4/aqusYhAk +/Ccd1/CIi02kJiSMBUJ6/rFDEU+4GNukoHhzIBDyT7attWnmYqGJ/N7mtkAg +FROmm9u4KEWmmmgXBUKfk9yhji4uaklLl7kcDASNQdrat4NcjLI0LA7r5oE+ +n8cuGOJizr0l81Y84sHq871Tbh+4aCbg5Q8TPNiskVU6LODic+NK3skkHvgc +4bC/feMiiAt2T27hwRnTkKlyIRcNOqKNvprx4Pz8t50nf3Axg2uj902bB6kl ++TGTk1zM/dfPb4EUD/LOiXncneZif7b8Pa3pACj6x83yzAwXh9/ryNkNBwB/ +8UOW+W8uvti2ixfcHQDVwqVTf/5wceOA7ijxKAD+D4XkR3U= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.08790373129961977}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 20}, {0., 0.08790373129961977}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}, + 3.992105460914795*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"7ea6e50a-7a7a-5a40-85ad-69a1f0a00639"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L130", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellLabel->"In[99]:=",ExpressionUUID->"2efb0a57-1e82-4941-9ddf-43034c8e204d"], + +Cell[BoxData["25.740426680324994`"], "Output", + CellChangeTimes->{3.9913453868532257`*^9, 3.992105460967869*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"6b1dba93-6fd7-fe4a-a952-0577b41b6c35"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L130", "=", + 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", + CellLabel-> + "In[100]:=",ExpressionUUID->"b7e3ddd8-e22a-794d-b607-7a48a064fd4a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.67331325968282`*^-279\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 538, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345387062414*^9, 3.9921054612074013`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"78ee9f76-782f-e041-83df-6e8cc574dad3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.379360399631195`*^-292\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 539, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345387062414*^9, 3.9921054612291756`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"010c03d4-ffc9-9d40-9802-a428625a1279"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4994154234035094`*^-305\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 540, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345387062414*^9, 3.9921054612432327`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"686181e2-47da-9445-b1a7-ee3cb66dade2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 100, 541, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345387062414*^9, 3.9921054612533207`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"27db1bcc-bbe2-2643-bfc5-3c10714fe263"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k8VHsUAHBPWduQnco2UlnGzJ2RZfyO1kdIylp2okKUSClMQlEvZBm5 +N2QpZItKQk9PhZQ1SxEtr0j2LPXS+/XXfL6fz9zz+S3nnnOusvtRay9+Pj4+ +4T/4+H7/zg40/qMWl2MsdTQ/7+64rHEnJRtq0sNFoRwBqa63s8Yg9dJdticR +cdRW1We/FUTBVgXdS3qy0bZ9+ktj30oj8TGZxIXucnQlf2Rv0Ft19Pah5dGZ +7nrUr2zL3vOWjXaojfRPdrejEUGrpL6BHWihWy95ovsd6jinJLSs3xY93pqf +05Y9jbyb9yZ2NHkjxbdV/7pr/kQd81Z+fdmBSNLXpUBo6xIQFg8YOrY5BCXq +7qi2tBEGtaiNHa/ZZ1BvGv3RpNgKCO458+GzUySKywl/yS8nDo7hLdnrdkch +mavvLySRq6HR5HX8MrUYFLPP1Lh9Vgqk7848i666gI7rZ7k0cmVh48JkyUxQ +PNo2/v2U/3t5aJ723/vX+GUUabTHTX7zGijRs26Izb2CDIp5FWfr1oFwLKX3 +ZCgB+c5PRjxboQxXzu7Xuv8zES1sEhvQslGBwQbUVKx2FRkVFmWmpKjC7uVX +/XM2J6NJCTNX23o1YGxzybDVSkEf4l1tjwmpw9DoAYvDGqnIdDzE9CN7PVx8 +X3j/89I0NOohfLwiXAM2s+fv7fuQhs9Thj+mfgOkLVvKV1DCQxIt6pdLxzdC +rLzOgefO6UgxtsSKzdaEsCDNZenLr6G0Tfpiq721wJERLZh7/RpqkjdhTSdo +g15lqdtx5QxkoFh/ReeVDjgFNDdpUxlo5ZLsIDcuHfb6jNVwl5BIcKFu72QU +HVSyBVbIC5BocayfERlDB88GKfNSQRKN98lNZsbTgUbfkt4rQqLW8gS/wRQ6 +5E/dD1knRqJE98iDLoV0CL5fY3xSkUTS9a72Tp10WDjvw3EmSLQ2cp2Rg7ou +SFNc5qIriYqPC6v0a+hCmsjotV3uJDI+OCnktkkXek5k8qV5kMhp1+MOH7ou +6PbL1mkdJFGGlPeRkwa6EP3hirjFERLJFRSnp1rqQku7pMz+EySS7OAsdAXr +gi+S+FERSyIR2oG71k914ejLJFGPIhIdlkNmhY26QFcLe+10m0RNK1QGljzX +BSORAy12xSSKn/0kUNmqC2vKmZKmpSRa+ey4jUyfLrCESB3lChJJHImbeT2q +C4syljfzq0mkWPaA4SXBgIoHP76vaCJRWC75pEaSAT/UfJd8xe7nRThKyzAg +Z2egdnMziSjuDu5TBQZILQsYjWohkdK+9rYNNAYckakVGWslEW1uOGBMjwFh +v8q6UrpJpM2RKwlxYoBdZJXU1g8kuqN66Ae/KwOMijKWyHwk0WbRqp2X3RmQ +GKo7Poy9pdt+MMebAZ5V1XXxn0hkG5gm3h7IgJBf3n8+GSFReK5MkGY0A3o0 +ZoVFJvH9rZDWHypmgGCoT2vLfySymfE671vGgPZZ3fTInyTq66tsm7vDgCY+ +miexSKIP+TaHV1YxQAf1zaf8ItG8SfI1w8cMcP7RsN6Kn0LKwZKLyd0M8G6b +up0oRKFjAxKPzfiYIKn/ZsJenELPnhyoKeBnQpuAotx77LUlefdEBZiwm/nI +01eCQk3hBkVNIkz4U+PswbDVFFJRdk82W80E+08tUolSFGrzKPM2U2fCmMMz +5lU5Cqmb/3Ar0GCCzZXBdDF5CoUR2w+IbmKC38lz6vHYGgK9Vk06TLi+s6Iw +QoFCEXl8Bmb6TKB7tx51WUMh+vDu5WbmTIhIjB6fVqJQdBtPsMCSCU8daDfd +lSn0puo9n+geJmi8ORvdih17MeRbow0TWF4lFbdUKDS46fqAqQsTNnyk9e5R +o9AV/7FS02NMsGjg7g1dT6Hx6Xgb0zQm+CfUptG0cLyeLFsyHa9XIDYuBLup +5q7dZAYTBvqmip9h58QMOvCymKA/tRDjo00hRwXCebiACWU5o1GUDoUatrw+ +eKGGCd9uBle/16VQ+foJ7/46Jsii4L81GBTKXC5wSLeeCR/oVgu+2KdeaR/p +fcKE3MvvFqew6Ye5Rze0MsHuTbHHNyaFriVsONn4jgmrk/1zO1h4f8HGoWs+ +MmGzy/H2ZWwKBe/feyrwExOcxpIYW7GtaGfC5EaZ8KQ3NL4EW7CqNeLQNyYo +akjdOqtHoRnyY2TNHBOmVYjAUuwh7neu+HcmaN+V8BvCfmiudr5qkQlymm58 +JpspFDgYckFEmACtF9Gps9jODfEXnUQJKG76+EtZn0LmBVlxZcsJCDMpyDDH +Vg9qvuQgTsD+jfeOX8d+I7Qu8ZY8AeyYTemGBvg8R5lJPxUJUKrmu+mKfa/t +z6t71hHgYvN+JAo78dqxlAVVAkbNaWLN2Dt1nqSbahFg8N/XPgtDCtkL/rmv +VYcA+/CA9UexD/c3rrBjENCe/fT8X9iX41oiPPUI8FNzO9mCnem+2+CLPgFi +u/qWf8Eu12+bDjQiQPhG8h0hIwq9+tR5MNyEgIZJ2GyM/bnWVklwGwHnRXyk +7bG/J/f0xu8gIOYqEgrEXrPtjXn6LgLC6/yVM7G1FZwFlS0JCO35aXYXG6be +1uVbEfCPbVFMM7Zn5ntGpQ0B776+MpjGDg7xGjW0J8Cu+2KZAAffp+Wn3HpH +AjyethjKYKfTDrmYOhGQ9nd173rsov9GZFtdCDjeGRCnh13b4dtu606AtZzI +nh3YrQVjcf2eBPhWZG7chz1tP7U4cgifT4WxvB/2UnrQ/UBfvJ7UM/ST2NJC +s4Hz/gRcfaG5n4utMRCyKTyQANk7Pulx2AaVCx8EgghwLbAYS8I2jz9NxQcT +sFNt3vYatrPHT7vVoQR4X4vqzMIOMAgXTz9NgGTyKu98bK74H81KZwmwyapc +WYR99TM3Kj+CgHnHpOYS7Ly6pcba5wjw924gy7Hvp0TPVZwn4HWwz/kK7CY/ +4TLDWAJWbeNxK7HfbLt4uP4iAVFXg5J/e0xhuZrpJQKsNsvU/v4/3/Sl/pd/ +EaAnSv33O55406pU20QCLo7T9pRiq2QlWPVfJWB7T3P17/UQJ1eLeqYSMFJb +ZHQTe8fu5McjPAIybn7syMa2V5c5E5hBgEBuUmQG9uGfaex5igDbFx3bk7HD +OuUnzmYR4GD6WOkS9uXCjFsCOQRYbA+XiMLO5K71iM8jYOGHmsIp7HKHTMXV +twjILGszOIr9D13lFa+QAP7K7EAP7FdCOX8pFeP7dKmss8X+PEAzzS/F+5Fc +TzPF/l6Zz699h4BnJlLZBtjLL214WFFJQIIryd6ErWOopVP/gID6mMk8EWyQ +KPn8Zw1+vnKeO4fzzXqYnv2yjoCBNWIhH37nXyoh1f8PAS8P/JtfjV07bfhj +7gUBBXOBOi7YWc/vue9tI6DXindhJ3ZULrOpuIOAPa/z5HWwTe028bx6cP7/ +6Br6gd+nzgfyeh1DBKxwpgvFY99LSqG0PxDgzMdS8MdO95UQvPgvzr+49wd3 +Y7usFe2CLwSIPM/MXYU9ErlwrHiGgOEblo+j8fve4niiT2SOACNRm1R37FLm +pInXAgH6P5tucLBPfPwspriI8+WLz8FJXF/4THuKLwixcP9QT96NLS12b8RT +ngVCWReL/8X1bOEzw/qRIgtmRJHUXew3fxdXKaxjwezcdGUUdtbxvNh2VRbQ +rv+Tuw5bsztZHbRYUEc+NTHH9XMLFeSuACwwCsuMjCAoRAuZaAzewgJLN7Or +W7GFrXx127exwI1x6Z0AdssfnnwXTFlw7s42Riyu3/Zee6lZaxZknLfMOofr +u78mo6/NiwURT8I7beh4P3Py3118WJB6uvmMIHZY/RL5scMsOGLH3HIX95M4 ++y4H0QAWvNPqV1yNfTPqZO+WUyzIpG1dU4/70bs3tT13LrNA5MkT728bKTSc +nz9vksCCncpJ7anYE8euyLYmsWBFVYqjPvYvYXf70TQWrvfN9aEbKKTIEuhR +u8GCG3n5c+O4H9pe2tWdfI8FZzIUxctxv3SyJ+ZUH7CAMPdw2YHtqbpGpvwh +C6o+CbT0qlLoeNWY7Yu/WSBoPyy4iPvtlY8JrwSfs+Cr68y8Ie7HTZyerpBB +FhhTSTOXcD/njHl2Ooiw4ZQqieLwvCBdvTP74TI2iOQ71yzHHovZGLBuJRv8 ++CVPX5KkEKU8seyjBBtMb7+4G4/njcV9p7cGKLLBeWsFg4vnk7rqhPJoHTao +DPbamK6gkMmF2it3bNiwJbdSxnQpheRts5yl7dmwaNH5vHwJhaZUojRDHdmQ +1JrSoICd/dD0mbELG5Rkwrlf/qAQ/0Tnr0YfNnTOq2px8fz02PaL/+BpNryw +WOka/51E29VkLVZksyGWT0NMaoJEFV8blD1z2ODwkNl/eJxEaveOzz7IY4N6 +9qv5ujESLTV7ed2nkA3jN2wUfb6SqP5o9NTjCjZMPfKQKcXznnH1TOqpp2yw +idacW4vnQ7Z127tPo2xIk5zYENpLIo2Iiyfr9fQg5URdG+0RiR4a5gqYG+jB +odshy4zrSGQ1V5fYZaQHXz02nrGpJdFJ/29Fn0304FSZnAj3IYmeHXAdWmmu +B2tFHZ+23SeRjz7bbL+rHuQUmf7aVUaiW1NDCjOxepDxV6RfURaJNnrp19H6 +9GDg/ZF+WgSJvGp9oioCN4OcXaRbkT6J6jI7PSel9EG/IH6ReJeBZm7+mtO5 +pw+50v+tqYvMQB60QpF0CwNQpBt3vV+bgSY3JrHLJwxAh7ZSsaDgGrqf82Po +W6whbD9fMbmdfQ05blMFw7VG0PYy4LZ9TTpS8Iup0n5kBMPZ+h2qzHQkJepb +ZmHHgdJrrAZ6EQ/lbD1zasKBA2cjaqcbb/EQ48zlrUkHOJCrlP/APZ+HLCdK +u3rcOCCv5iSRlM1D0a++LXj4cqC7tH5sLI2H5rPDt5yK5MBmuczopPM81GeY +1JFXyIGdGrFxCc485HMiJ8O0mAN/7LlMW3uAh2aLK71GSzkgraPoXOCAv+9U +euZ073Jgv2tS4d/7eGiX8BrFmkccsLO2qPlixkMPO/M8O7o4ELel818tPR4y +W3lfK7iHAxrC1hEVBA/17GyclX2N15/iXW3A4KGZB19inQc5MFy8RmaHFg9p +ZdFvD49wwC955WF7VRyvzyQ4/isHOk7fkHqjhONJ7kU6ExwIVbbzdFnLQwdj +TrQFfeOA6Nf+L55yON6j6HSZeQ6UFEnQPknzEPd7qseD7xyYdd7Af0iSh8SI +W5pOPzkg12h9bkSchyi/B99+/eIA3K67eWQVD/0PWDJjWA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VHsUAHBPWduQnco2UlnGzJ2RZfyO1kdIylp2okKUSClMQlEvZBm5 +N2QpZItKQk9PhZQ1SxEtr0j2LPXS+/XXfL6fz9zz+S3nnnOusvtRay9+Pj4+ +4T/4+H7/zg40/qMWl2MsdTQ/7+64rHEnJRtq0sNFoRwBqa63s8Yg9dJdticR +cdRW1We/FUTBVgXdS3qy0bZ9+ktj30oj8TGZxIXucnQlf2Rv0Ft19Pah5dGZ +7nrUr2zL3vOWjXaojfRPdrejEUGrpL6BHWihWy95ovsd6jinJLSs3xY93pqf +05Y9jbyb9yZ2NHkjxbdV/7pr/kQd81Z+fdmBSNLXpUBo6xIQFg8YOrY5BCXq +7qi2tBEGtaiNHa/ZZ1BvGv3RpNgKCO458+GzUySKywl/yS8nDo7hLdnrdkch +mavvLySRq6HR5HX8MrUYFLPP1Lh9Vgqk7848i666gI7rZ7k0cmVh48JkyUxQ +PNo2/v2U/3t5aJ723/vX+GUUabTHTX7zGijRs26Izb2CDIp5FWfr1oFwLKX3 +ZCgB+c5PRjxboQxXzu7Xuv8zES1sEhvQslGBwQbUVKx2FRkVFmWmpKjC7uVX +/XM2J6NJCTNX23o1YGxzybDVSkEf4l1tjwmpw9DoAYvDGqnIdDzE9CN7PVx8 +X3j/89I0NOohfLwiXAM2s+fv7fuQhs9Thj+mfgOkLVvKV1DCQxIt6pdLxzdC +rLzOgefO6UgxtsSKzdaEsCDNZenLr6G0Tfpiq721wJERLZh7/RpqkjdhTSdo +g15lqdtx5QxkoFh/ReeVDjgFNDdpUxlo5ZLsIDcuHfb6jNVwl5BIcKFu72QU +HVSyBVbIC5BocayfERlDB88GKfNSQRKN98lNZsbTgUbfkt4rQqLW8gS/wRQ6 +5E/dD1knRqJE98iDLoV0CL5fY3xSkUTS9a72Tp10WDjvw3EmSLQ2cp2Rg7ou +SFNc5qIriYqPC6v0a+hCmsjotV3uJDI+OCnktkkXek5k8qV5kMhp1+MOH7ou +6PbL1mkdJFGGlPeRkwa6EP3hirjFERLJFRSnp1rqQku7pMz+EySS7OAsdAXr +gi+S+FERSyIR2oG71k914ejLJFGPIhIdlkNmhY26QFcLe+10m0RNK1QGljzX +BSORAy12xSSKn/0kUNmqC2vKmZKmpSRa+ey4jUyfLrCESB3lChJJHImbeT2q +C4syljfzq0mkWPaA4SXBgIoHP76vaCJRWC75pEaSAT/UfJd8xe7nRThKyzAg +Z2egdnMziSjuDu5TBQZILQsYjWohkdK+9rYNNAYckakVGWslEW1uOGBMjwFh +v8q6UrpJpM2RKwlxYoBdZJXU1g8kuqN66Ae/KwOMijKWyHwk0WbRqp2X3RmQ +GKo7Poy9pdt+MMebAZ5V1XXxn0hkG5gm3h7IgJBf3n8+GSFReK5MkGY0A3o0 +ZoVFJvH9rZDWHypmgGCoT2vLfySymfE671vGgPZZ3fTInyTq66tsm7vDgCY+ +miexSKIP+TaHV1YxQAf1zaf8ItG8SfI1w8cMcP7RsN6Kn0LKwZKLyd0M8G6b +up0oRKFjAxKPzfiYIKn/ZsJenELPnhyoKeBnQpuAotx77LUlefdEBZiwm/nI +01eCQk3hBkVNIkz4U+PswbDVFFJRdk82W80E+08tUolSFGrzKPM2U2fCmMMz +5lU5Cqmb/3Ar0GCCzZXBdDF5CoUR2w+IbmKC38lz6vHYGgK9Vk06TLi+s6Iw +QoFCEXl8Bmb6TKB7tx51WUMh+vDu5WbmTIhIjB6fVqJQdBtPsMCSCU8daDfd +lSn0puo9n+geJmi8ORvdih17MeRbow0TWF4lFbdUKDS46fqAqQsTNnyk9e5R +o9AV/7FS02NMsGjg7g1dT6Hx6Xgb0zQm+CfUptG0cLyeLFsyHa9XIDYuBLup +5q7dZAYTBvqmip9h58QMOvCymKA/tRDjo00hRwXCebiACWU5o1GUDoUatrw+ +eKGGCd9uBle/16VQ+foJ7/46Jsii4L81GBTKXC5wSLeeCR/oVgu+2KdeaR/p +fcKE3MvvFqew6Ye5Rze0MsHuTbHHNyaFriVsONn4jgmrk/1zO1h4f8HGoWs+ +MmGzy/H2ZWwKBe/feyrwExOcxpIYW7GtaGfC5EaZ8KQ3NL4EW7CqNeLQNyYo +akjdOqtHoRnyY2TNHBOmVYjAUuwh7neu+HcmaN+V8BvCfmiudr5qkQlymm58 +JpspFDgYckFEmACtF9Gps9jODfEXnUQJKG76+EtZn0LmBVlxZcsJCDMpyDDH +Vg9qvuQgTsD+jfeOX8d+I7Qu8ZY8AeyYTemGBvg8R5lJPxUJUKrmu+mKfa/t +z6t71hHgYvN+JAo78dqxlAVVAkbNaWLN2Dt1nqSbahFg8N/XPgtDCtkL/rmv +VYcA+/CA9UexD/c3rrBjENCe/fT8X9iX41oiPPUI8FNzO9mCnem+2+CLPgFi +u/qWf8Eu12+bDjQiQPhG8h0hIwq9+tR5MNyEgIZJ2GyM/bnWVklwGwHnRXyk +7bG/J/f0xu8gIOYqEgrEXrPtjXn6LgLC6/yVM7G1FZwFlS0JCO35aXYXG6be +1uVbEfCPbVFMM7Zn5ntGpQ0B776+MpjGDg7xGjW0J8Cu+2KZAAffp+Wn3HpH +AjyethjKYKfTDrmYOhGQ9nd173rsov9GZFtdCDjeGRCnh13b4dtu606AtZzI +nh3YrQVjcf2eBPhWZG7chz1tP7U4cgifT4WxvB/2UnrQ/UBfvJ7UM/ST2NJC +s4Hz/gRcfaG5n4utMRCyKTyQANk7Pulx2AaVCx8EgghwLbAYS8I2jz9NxQcT +sFNt3vYatrPHT7vVoQR4X4vqzMIOMAgXTz9NgGTyKu98bK74H81KZwmwyapc +WYR99TM3Kj+CgHnHpOYS7Ly6pcba5wjw924gy7Hvp0TPVZwn4HWwz/kK7CY/ +4TLDWAJWbeNxK7HfbLt4uP4iAVFXg5J/e0xhuZrpJQKsNsvU/v4/3/Sl/pd/ +EaAnSv33O55406pU20QCLo7T9pRiq2QlWPVfJWB7T3P17/UQJ1eLeqYSMFJb +ZHQTe8fu5McjPAIybn7syMa2V5c5E5hBgEBuUmQG9uGfaex5igDbFx3bk7HD +OuUnzmYR4GD6WOkS9uXCjFsCOQRYbA+XiMLO5K71iM8jYOGHmsIp7HKHTMXV +twjILGszOIr9D13lFa+QAP7K7EAP7FdCOX8pFeP7dKmss8X+PEAzzS/F+5Fc +TzPF/l6Zz699h4BnJlLZBtjLL214WFFJQIIryd6ErWOopVP/gID6mMk8EWyQ +KPn8Zw1+vnKeO4fzzXqYnv2yjoCBNWIhH37nXyoh1f8PAS8P/JtfjV07bfhj +7gUBBXOBOi7YWc/vue9tI6DXindhJ3ZULrOpuIOAPa/z5HWwTe028bx6cP7/ +6Br6gd+nzgfyeh1DBKxwpgvFY99LSqG0PxDgzMdS8MdO95UQvPgvzr+49wd3 +Y7usFe2CLwSIPM/MXYU9ErlwrHiGgOEblo+j8fve4niiT2SOACNRm1R37FLm +pInXAgH6P5tucLBPfPwspriI8+WLz8FJXF/4THuKLwixcP9QT96NLS12b8RT +ngVCWReL/8X1bOEzw/qRIgtmRJHUXew3fxdXKaxjwezcdGUUdtbxvNh2VRbQ +rv+Tuw5bsztZHbRYUEc+NTHH9XMLFeSuACwwCsuMjCAoRAuZaAzewgJLN7Or +W7GFrXx127exwI1x6Z0AdssfnnwXTFlw7s42Riyu3/Zee6lZaxZknLfMOofr +u78mo6/NiwURT8I7beh4P3Py3118WJB6uvmMIHZY/RL5scMsOGLH3HIX95M4 ++y4H0QAWvNPqV1yNfTPqZO+WUyzIpG1dU4/70bs3tT13LrNA5MkT728bKTSc +nz9vksCCncpJ7anYE8euyLYmsWBFVYqjPvYvYXf70TQWrvfN9aEbKKTIEuhR +u8GCG3n5c+O4H9pe2tWdfI8FZzIUxctxv3SyJ+ZUH7CAMPdw2YHtqbpGpvwh +C6o+CbT0qlLoeNWY7Yu/WSBoPyy4iPvtlY8JrwSfs+Cr68y8Ie7HTZyerpBB +FhhTSTOXcD/njHl2Ooiw4ZQqieLwvCBdvTP74TI2iOQ71yzHHovZGLBuJRv8 ++CVPX5KkEKU8seyjBBtMb7+4G4/njcV9p7cGKLLBeWsFg4vnk7rqhPJoHTao +DPbamK6gkMmF2it3bNiwJbdSxnQpheRts5yl7dmwaNH5vHwJhaZUojRDHdmQ +1JrSoICd/dD0mbELG5Rkwrlf/qAQ/0Tnr0YfNnTOq2px8fz02PaL/+BpNryw +WOka/51E29VkLVZksyGWT0NMaoJEFV8blD1z2ODwkNl/eJxEaveOzz7IY4N6 +9qv5ujESLTV7ed2nkA3jN2wUfb6SqP5o9NTjCjZMPfKQKcXznnH1TOqpp2yw +idacW4vnQ7Z127tPo2xIk5zYENpLIo2Iiyfr9fQg5URdG+0RiR4a5gqYG+jB +odshy4zrSGQ1V5fYZaQHXz02nrGpJdFJ/29Fn0304FSZnAj3IYmeHXAdWmmu +B2tFHZ+23SeRjz7bbL+rHuQUmf7aVUaiW1NDCjOxepDxV6RfURaJNnrp19H6 +9GDg/ZF+WgSJvGp9oioCN4OcXaRbkT6J6jI7PSel9EG/IH6ReJeBZm7+mtO5 +pw+50v+tqYvMQB60QpF0CwNQpBt3vV+bgSY3JrHLJwxAh7ZSsaDgGrqf82Po +W6whbD9fMbmdfQ05blMFw7VG0PYy4LZ9TTpS8Iup0n5kBMPZ+h2qzHQkJepb +ZmHHgdJrrAZ6EQ/lbD1zasKBA2cjaqcbb/EQ48zlrUkHOJCrlP/APZ+HLCdK +u3rcOCCv5iSRlM1D0a++LXj4cqC7tH5sLI2H5rPDt5yK5MBmuczopPM81GeY +1JFXyIGdGrFxCc485HMiJ8O0mAN/7LlMW3uAh2aLK71GSzkgraPoXOCAv+9U +euZ073Jgv2tS4d/7eGiX8BrFmkccsLO2qPlixkMPO/M8O7o4ELel818tPR4y +W3lfK7iHAxrC1hEVBA/17GyclX2N15/iXW3A4KGZB19inQc5MFy8RmaHFg9p +ZdFvD49wwC955WF7VRyvzyQ4/isHOk7fkHqjhONJ7kU6ExwIVbbzdFnLQwdj +TrQFfeOA6Nf+L55yON6j6HSZeQ6UFEnQPknzEPd7qseD7xyYdd7Af0iSh8SI +W5pOPzkg12h9bkSchyi/B99+/eIA3K67eWQVD/0PWDJjWA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.029532277342827942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.029532277342827942`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VHsUAHBPWduQnco2UlnGzJ2RZfyO1kdIylp2okKUSClMQlEvZBm5 +N2QpZItKQk9PhZQ1SxEtr0j2LPXS+/XXfL6fz9zz+S3nnnOusvtRay9+Pj4+ +4T/4+H7/zg40/qMWl2MsdTQ/7+64rHEnJRtq0sNFoRwBqa63s8Yg9dJdticR +cdRW1We/FUTBVgXdS3qy0bZ9+ktj30oj8TGZxIXucnQlf2Rv0Ft19Pah5dGZ +7nrUr2zL3vOWjXaojfRPdrejEUGrpL6BHWihWy95ovsd6jinJLSs3xY93pqf +05Y9jbyb9yZ2NHkjxbdV/7pr/kQd81Z+fdmBSNLXpUBo6xIQFg8YOrY5BCXq +7qi2tBEGtaiNHa/ZZ1BvGv3RpNgKCO458+GzUySKywl/yS8nDo7hLdnrdkch +mavvLySRq6HR5HX8MrUYFLPP1Lh9Vgqk7848i666gI7rZ7k0cmVh48JkyUxQ +PNo2/v2U/3t5aJ723/vX+GUUabTHTX7zGijRs26Izb2CDIp5FWfr1oFwLKX3 +ZCgB+c5PRjxboQxXzu7Xuv8zES1sEhvQslGBwQbUVKx2FRkVFmWmpKjC7uVX +/XM2J6NJCTNX23o1YGxzybDVSkEf4l1tjwmpw9DoAYvDGqnIdDzE9CN7PVx8 +X3j/89I0NOohfLwiXAM2s+fv7fuQhs9Thj+mfgOkLVvKV1DCQxIt6pdLxzdC +rLzOgefO6UgxtsSKzdaEsCDNZenLr6G0Tfpiq721wJERLZh7/RpqkjdhTSdo +g15lqdtx5QxkoFh/ReeVDjgFNDdpUxlo5ZLsIDcuHfb6jNVwl5BIcKFu72QU +HVSyBVbIC5BocayfERlDB88GKfNSQRKN98lNZsbTgUbfkt4rQqLW8gS/wRQ6 +5E/dD1knRqJE98iDLoV0CL5fY3xSkUTS9a72Tp10WDjvw3EmSLQ2cp2Rg7ou +SFNc5qIriYqPC6v0a+hCmsjotV3uJDI+OCnktkkXek5k8qV5kMhp1+MOH7ou +6PbL1mkdJFGGlPeRkwa6EP3hirjFERLJFRSnp1rqQku7pMz+EySS7OAsdAXr +gi+S+FERSyIR2oG71k914ejLJFGPIhIdlkNmhY26QFcLe+10m0RNK1QGljzX +BSORAy12xSSKn/0kUNmqC2vKmZKmpSRa+ey4jUyfLrCESB3lChJJHImbeT2q +C4syljfzq0mkWPaA4SXBgIoHP76vaCJRWC75pEaSAT/UfJd8xe7nRThKyzAg +Z2egdnMziSjuDu5TBQZILQsYjWohkdK+9rYNNAYckakVGWslEW1uOGBMjwFh +v8q6UrpJpM2RKwlxYoBdZJXU1g8kuqN66Ae/KwOMijKWyHwk0WbRqp2X3RmQ +GKo7Poy9pdt+MMebAZ5V1XXxn0hkG5gm3h7IgJBf3n8+GSFReK5MkGY0A3o0 +ZoVFJvH9rZDWHypmgGCoT2vLfySymfE671vGgPZZ3fTInyTq66tsm7vDgCY+ +miexSKIP+TaHV1YxQAf1zaf8ItG8SfI1w8cMcP7RsN6Kn0LKwZKLyd0M8G6b +up0oRKFjAxKPzfiYIKn/ZsJenELPnhyoKeBnQpuAotx77LUlefdEBZiwm/nI +01eCQk3hBkVNIkz4U+PswbDVFFJRdk82W80E+08tUolSFGrzKPM2U2fCmMMz +5lU5Cqmb/3Ar0GCCzZXBdDF5CoUR2w+IbmKC38lz6vHYGgK9Vk06TLi+s6Iw +QoFCEXl8Bmb6TKB7tx51WUMh+vDu5WbmTIhIjB6fVqJQdBtPsMCSCU8daDfd +lSn0puo9n+geJmi8ORvdih17MeRbow0TWF4lFbdUKDS46fqAqQsTNnyk9e5R +o9AV/7FS02NMsGjg7g1dT6Hx6Xgb0zQm+CfUptG0cLyeLFsyHa9XIDYuBLup +5q7dZAYTBvqmip9h58QMOvCymKA/tRDjo00hRwXCebiACWU5o1GUDoUatrw+ +eKGGCd9uBle/16VQ+foJ7/46Jsii4L81GBTKXC5wSLeeCR/oVgu+2KdeaR/p +fcKE3MvvFqew6Ye5Rze0MsHuTbHHNyaFriVsONn4jgmrk/1zO1h4f8HGoWs+ +MmGzy/H2ZWwKBe/feyrwExOcxpIYW7GtaGfC5EaZ8KQ3NL4EW7CqNeLQNyYo +akjdOqtHoRnyY2TNHBOmVYjAUuwh7neu+HcmaN+V8BvCfmiudr5qkQlymm58 +JpspFDgYckFEmACtF9Gps9jODfEXnUQJKG76+EtZn0LmBVlxZcsJCDMpyDDH +Vg9qvuQgTsD+jfeOX8d+I7Qu8ZY8AeyYTemGBvg8R5lJPxUJUKrmu+mKfa/t +z6t71hHgYvN+JAo78dqxlAVVAkbNaWLN2Dt1nqSbahFg8N/XPgtDCtkL/rmv +VYcA+/CA9UexD/c3rrBjENCe/fT8X9iX41oiPPUI8FNzO9mCnem+2+CLPgFi +u/qWf8Eu12+bDjQiQPhG8h0hIwq9+tR5MNyEgIZJ2GyM/bnWVklwGwHnRXyk +7bG/J/f0xu8gIOYqEgrEXrPtjXn6LgLC6/yVM7G1FZwFlS0JCO35aXYXG6be +1uVbEfCPbVFMM7Zn5ntGpQ0B776+MpjGDg7xGjW0J8Cu+2KZAAffp+Wn3HpH +AjyethjKYKfTDrmYOhGQ9nd173rsov9GZFtdCDjeGRCnh13b4dtu606AtZzI +nh3YrQVjcf2eBPhWZG7chz1tP7U4cgifT4WxvB/2UnrQ/UBfvJ7UM/ST2NJC +s4Hz/gRcfaG5n4utMRCyKTyQANk7Pulx2AaVCx8EgghwLbAYS8I2jz9NxQcT +sFNt3vYatrPHT7vVoQR4X4vqzMIOMAgXTz9NgGTyKu98bK74H81KZwmwyapc +WYR99TM3Kj+CgHnHpOYS7Ly6pcba5wjw924gy7Hvp0TPVZwn4HWwz/kK7CY/ +4TLDWAJWbeNxK7HfbLt4uP4iAVFXg5J/e0xhuZrpJQKsNsvU/v4/3/Sl/pd/ +EaAnSv33O55406pU20QCLo7T9pRiq2QlWPVfJWB7T3P17/UQJ1eLeqYSMFJb +ZHQTe8fu5McjPAIybn7syMa2V5c5E5hBgEBuUmQG9uGfaex5igDbFx3bk7HD +OuUnzmYR4GD6WOkS9uXCjFsCOQRYbA+XiMLO5K71iM8jYOGHmsIp7HKHTMXV +twjILGszOIr9D13lFa+QAP7K7EAP7FdCOX8pFeP7dKmss8X+PEAzzS/F+5Fc +TzPF/l6Zz699h4BnJlLZBtjLL214WFFJQIIryd6ErWOopVP/gID6mMk8EWyQ +KPn8Zw1+vnKeO4fzzXqYnv2yjoCBNWIhH37nXyoh1f8PAS8P/JtfjV07bfhj +7gUBBXOBOi7YWc/vue9tI6DXindhJ3ZULrOpuIOAPa/z5HWwTe028bx6cP7/ +6Br6gd+nzgfyeh1DBKxwpgvFY99LSqG0PxDgzMdS8MdO95UQvPgvzr+49wd3 +Y7usFe2CLwSIPM/MXYU9ErlwrHiGgOEblo+j8fve4niiT2SOACNRm1R37FLm +pInXAgH6P5tucLBPfPwspriI8+WLz8FJXF/4THuKLwixcP9QT96NLS12b8RT +ngVCWReL/8X1bOEzw/qRIgtmRJHUXew3fxdXKaxjwezcdGUUdtbxvNh2VRbQ +rv+Tuw5bsztZHbRYUEc+NTHH9XMLFeSuACwwCsuMjCAoRAuZaAzewgJLN7Or +W7GFrXx127exwI1x6Z0AdssfnnwXTFlw7s42Riyu3/Zee6lZaxZknLfMOofr +u78mo6/NiwURT8I7beh4P3Py3118WJB6uvmMIHZY/RL5scMsOGLH3HIX95M4 ++y4H0QAWvNPqV1yNfTPqZO+WUyzIpG1dU4/70bs3tT13LrNA5MkT728bKTSc +nz9vksCCncpJ7anYE8euyLYmsWBFVYqjPvYvYXf70TQWrvfN9aEbKKTIEuhR +u8GCG3n5c+O4H9pe2tWdfI8FZzIUxctxv3SyJ+ZUH7CAMPdw2YHtqbpGpvwh +C6o+CbT0qlLoeNWY7Yu/WSBoPyy4iPvtlY8JrwSfs+Cr68y8Ie7HTZyerpBB +FhhTSTOXcD/njHl2Ooiw4ZQqieLwvCBdvTP74TI2iOQ71yzHHovZGLBuJRv8 ++CVPX5KkEKU8seyjBBtMb7+4G4/njcV9p7cGKLLBeWsFg4vnk7rqhPJoHTao +DPbamK6gkMmF2it3bNiwJbdSxnQpheRts5yl7dmwaNH5vHwJhaZUojRDHdmQ +1JrSoICd/dD0mbELG5Rkwrlf/qAQ/0Tnr0YfNnTOq2px8fz02PaL/+BpNryw +WOka/51E29VkLVZksyGWT0NMaoJEFV8blD1z2ODwkNl/eJxEaveOzz7IY4N6 +9qv5ujESLTV7ed2nkA3jN2wUfb6SqP5o9NTjCjZMPfKQKcXznnH1TOqpp2yw +idacW4vnQ7Z127tPo2xIk5zYENpLIo2Iiyfr9fQg5URdG+0RiR4a5gqYG+jB +odshy4zrSGQ1V5fYZaQHXz02nrGpJdFJ/29Fn0304FSZnAj3IYmeHXAdWmmu +B2tFHZ+23SeRjz7bbL+rHuQUmf7aVUaiW1NDCjOxepDxV6RfURaJNnrp19H6 +9GDg/ZF+WgSJvGp9oioCN4OcXaRbkT6J6jI7PSel9EG/IH6ReJeBZm7+mtO5 +pw+50v+tqYvMQB60QpF0CwNQpBt3vV+bgSY3JrHLJwxAh7ZSsaDgGrqf82Po +W6whbD9fMbmdfQ05blMFw7VG0PYy4LZ9TTpS8Iup0n5kBMPZ+h2qzHQkJepb +ZmHHgdJrrAZ6EQ/lbD1zasKBA2cjaqcbb/EQ48zlrUkHOJCrlP/APZ+HLCdK +u3rcOCCv5iSRlM1D0a++LXj4cqC7tH5sLI2H5rPDt5yK5MBmuczopPM81GeY +1JFXyIGdGrFxCc485HMiJ8O0mAN/7LlMW3uAh2aLK71GSzkgraPoXOCAv+9U +euZ073Jgv2tS4d/7eGiX8BrFmkccsLO2qPlixkMPO/M8O7o4ELel818tPR4y +W3lfK7iHAxrC1hEVBA/17GyclX2N15/iXW3A4KGZB19inQc5MFy8RmaHFg9p +ZdFvD49wwC955WF7VRyvzyQ4/isHOk7fkHqjhONJ7kU6ExwIVbbzdFnLQwdj +TrQFfeOA6Nf+L55yON6j6HSZeQ6UFEnQPknzEPd7qseD7xyYdd7Af0iSh8SI +W5pOPzkg12h9bkSchyi/B99+/eIA3K67eWQVD/0PWDJjWA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.029532277342827942`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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.029532277342827942`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913457856953163`*^9, 3.992105954231745*^9}, + CellLabel-> + "Out[100]=",ExpressionUUID->"52fc4ee9-c583-a346-9ff6-1fc62b974e22"] +}, 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[101]:=",ExpressionUUID->"3d764097-ec6b-e749-9f31-cab8832af315"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5070048198550655`*^-232\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 101, 542, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785749161*^9, 3.992105954384218*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"1b5f474a-bd97-cc48-bbd3-567e7799a4bc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.2899389042200305`*^-239\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 101, 543, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785749161*^9, 3.992105954404211*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"285716bc-98de-a544-832b-342bc0380804"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.479630666055037`*^-246\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 101, 544, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785749161*^9, 3.992105954422106*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"4a60ee57-67a6-1e48-8e3e-9f4ae7e348be"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 101, 545, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785749161*^9, 3.9921059544341183`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"38c03d50-40a6-8f4e-8738-db716a26149f"], + +Cell[BoxData["25.740426680325015`"], "Output", + CellChangeTimes->{3.991345792196575*^9, 3.9921060033976307`*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"38f3ca83-93f3-034f-aaab-5327b361adf4"] +}, 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.991847002744938*^9, 3.9918470078833466`*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"94c81ca6-5acf-1648-b9d8-a303cc71dab7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6696073629387948`*^-229\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 102, 546, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345792232563*^9, 3.9921060034986324`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"16f89544-512b-414c-81ab-426bf9ff16f9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0950697094889562`*^-235\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 102, 547, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345792232563*^9, 3.992106003524523*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"0279d7e2-07c9-c948-97b6-90118cf2ee4b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.182393269573684`*^-242\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 102, 548, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345792232563*^9, 3.9921060035395393`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"50f75a5e-dbd4-df4b-8c31-74839c206d10"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 102, 549, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345792232563*^9, 3.992106003551527*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"bd349241-f1d5-404c-819c-20c4473bae39"], + +Cell[BoxData["2.816303501126644`"], "Output", + CellChangeTimes->{3.991345799137081*^9, 3.992106014282585*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"35ef6d93-b062-1043-9217-06ff5569b340"] +}, 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.9918470141153297`*^9, 3.991847018285223*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"d789fb78-c161-1741-b7b8-90fa3d585b38"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6696073629387948`*^-229\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 103, 550, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457991730843`*^9, 3.9921060143929005`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"7e8542eb-3318-e243-a517-28cee2440579"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0950697094889562`*^-235\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 103, 551, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457991730843`*^9, 3.9921060144100914`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"9b040614-9771-e84b-96ec-44e212b50773"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.182393269573684`*^-242\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 103, 552, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457991730843`*^9, 3.992106014422661*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"87c9a6d9-f175-f645-9606-7e3068bb32f7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 103, 553, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457991730843`*^9, 3.992106014433176*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"553bd1f8-d742-d94c-83e8-fe8f93d67340"], + +Cell[BoxData["20.434042304908548`"], "Output", + CellChangeTimes->{3.991345804559931*^9, 3.992106023804022*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"a8fbb1da-9dd2-dd47-b90b-f1686e855ac6"] +}, 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.9918470289577656`*^9, 3.99184703187117*^9}}, + CellLabel-> + "In[104]:=",ExpressionUUID->"98f8448c-bc27-4646-9fd2-f2c22cf9b4d2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6696073629387948`*^-229\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 104, 554, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458046014442`*^9, 3.992106023897423*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"e2ebb771-6cc7-ad45-b0e1-036700c6fc80"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0950697094889562`*^-235\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 104, 555, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458046014442`*^9, 3.992106023921343*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"f25c1c19-5db5-6044-90b5-3836234e8b9b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.182393269573684`*^-242\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 104, 556, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458046014442`*^9, 3.992106023937315*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"4eae3142-befa-3a41-a1f5-98a65ffe0583"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 104, 557, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458046014442`*^9, 3.992106023949316*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"3892d7d2-4d86-3642-8aa6-322dfa193b31"], + +Cell[BoxData["188.19498375840513`"], "Output", + CellChangeTimes->{3.991345807954506*^9, 3.9921060307628*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"a7673b20-9d0f-de48-8480-38339b9a8990"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991847036891796*^9, 3.9918470411375484`*^9}}, + CellLabel-> + "In[105]:=",ExpressionUUID->"c0718b2f-c4a4-934b-afa0-c67e8ff1bd9c"], + +Cell[BoxData["0.04541489237357689`"], "Output", + CellChangeTimes->{3.991345807987507*^9, 3.992106030820343*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"d5ef1f8f-ed84-8e47-bbae-e6236db9e3e7"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991847043896475*^9, 3.991847046265915*^9}, + 3.991923721144022*^9}, + CellLabel-> + "In[106]:=",ExpressionUUID->"73fa861d-79d1-6043-8b49-ac6d11636734"], + +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[107]:=",ExpressionUUID->"6c38f559-2389-4242-bc4d-38979252b0b4"], + +Cell[BoxData["2.4513631194298338`"], "Output", + CellChangeTimes->{3.991345808020666*^9, 3.992106030851095*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"9678764f-f941-fe41-9875-ace381e90f96"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"e3e9365e-1e6c-9843-9e29-11080a5f4701"], + +Cell[BoxData["9.019644802894332`"], "Output", + CellChangeTimes->{3.9913458080616665`*^9, 3.992106030873333*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"685ddd9b-d2f9-fb41-bf50-d46127b8f7e7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[109]:=",ExpressionUUID->"123e61eb-c41d-2242-a32d-5c1fffa2cf57"], + +Cell[BoxData["22.110424620172136`"], "Output", + CellChangeTimes->{3.991345808188246*^9, 3.9921060308975487`*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"69940fa6-9753-934b-ae51-3331b3360f8a"] +}, 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[110]:=",ExpressionUUID->"79eeca66-2446-f741-8700-944472de348f"], + +Cell[BoxData["0.0430197806265059`"], "Output", + CellChangeTimes->{3.991345808220566*^9, 3.9921060309285316`*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"ecaf3830-115a-0342-b8eb-c351e28de11a"] +}, 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[111]:=",ExpressionUUID->"9790a07a-bad8-674c-aada-41e3d20aeff5"], + +Cell[BoxData["4.2727830778988025`"], "Output", + CellChangeTimes->{3.9913458083195686`*^9, 3.992106031104618*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"e073f0d3-0d0e-c840-a388-637841f7acb1"] +}, 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[112]:=",ExpressionUUID->"cd927d7c-f3cd-534f-b509-5ac03fad6276"], + +Cell[BoxData["0.0012422726368387545`"], "Output", + CellChangeTimes->{3.991345808334568*^9, 3.9921060311347656`*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"d4b3c6fa-afc8-bc49-b494-5b24ac86c863"] +}, 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[113]:=",ExpressionUUID->"6d1a5282-01c9-b240-a0b0-7e2aa562e7f8"], + +Cell[BoxData["25.144122337633185`"], "Output", + CellChangeTimes->{3.991345808432392*^9, 3.9921060313053856`*^9}, + CellLabel-> + "Out[113]=",ExpressionUUID->"e54744ec-da0e-7b46-81c5-ae97d09576a3"] +}, 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[114]:=",ExpressionUUID->"b3f5d88a-186d-e74b-84a0-eac59afb71e7"], + +Cell[BoxData["0.9633250942217355`"], "Output", + CellChangeTimes->{3.991345808448488*^9, 3.9921060313267956`*^9}, + CellLabel-> + "Out[114]=",ExpressionUUID->"c9fe5282-25cf-df4d-b756-49cfc8c2d988"] +}, 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[115]:=",ExpressionUUID->"712c99dc-f88a-984c-9ea1-ddb538fa1846"], + +Cell[BoxData["0.03667490577826447`"], "Output", + CellChangeTimes->{3.9913458084773808`*^9, 3.9921060313527355`*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"d63ee76e-1761-5c47-9803-38fe986ec427"] +}, 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[116]:=",ExpressionUUID->"46415a4e-0839-a640-a9be-83fc8d482c42"], + +Cell[BoxData["0.035329857064419885`"], "Output", + CellChangeTimes->{3.9913458085134735`*^9, 3.9921060313833714`*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"8be6a8ef-faf9-ca42-9fd7-1907acac4081"] +}, 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.991847118583315*^9}, + CellLabel-> + "In[117]:=",ExpressionUUID->"33a64b79-213d-c445-8c32-436b16263096"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2014004862679991`*^-237\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 117, 558, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458085463753`*^9, 3.9921060314246426`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"4cbbe05c-90c7-5c49-824f-9c9e65f612ec"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.044259507917223`*^-244\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 117, 559, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458085463753`*^9, 3.9921060314361115`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"9ce400de-6a85-0042-a7b5-2866ab592321"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.478437859378183`*^-251\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 117, 560, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458085463753`*^9, 3.9921060314485435`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"c783e88b-155e-9c4f-bbdc-fb93279cbaa7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 117, 561, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458085463753`*^9, 3.9921060314600983`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"9e9de591-708e-e049-a352-a9dfe74fb20a"], + +Cell[BoxData["4.272783077898801`"], "Output", + CellChangeTimes->{3.9913458125059433`*^9, 3.9921060380327454`*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"c05ea6c2-1004-6d4c-ba91-f69b92e85a3f"] +}, 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.9918471223197117`*^9}, + CellLabel-> + "In[118]:=",ExpressionUUID->"a558e928-6d30-db4d-81da-8e12b46e0cf1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2014004862679991`*^-237\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 118, 562, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345812542961*^9, 3.992106038125824*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"f5e4b9df-4333-7e4e-b4f5-9c4884d1bdc6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.044259507917223`*^-244\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 118, 563, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345812542961*^9, 3.9921060381500816`*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"07152520-5ca3-5a41-bd3f-151e526d2001"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.478437859378183`*^-251\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 118, 564, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345812542961*^9, 3.992106038165613*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"b12622a7-e874-7f42-82cb-df088b1502c4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 118, 565, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345812542961*^9, 3.992106038177229*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"920aef7a-d83f-6647-8707-85584cd3ce79"], + +Cell[BoxData["25.144122337633203`"], "Output", + CellChangeTimes->{3.991345816415531*^9, 3.992106044835863*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"557ab69c-77b1-4b49-95ef-cfc9405429a6"] +}, 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.9918471264328136`*^9}, + CellLabel-> + "In[119]:=",ExpressionUUID->"c2f625be-331c-a24f-ad5b-6daaa9131a45"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk4VdsbB/ATmacQQkqmMqZjrrReUzLPMkQcZ29D5iOZoq5Ut0GShntT +pBSioiJDbjeSytQcv0yFJPs4h0xd1W+dP/azn8+z9vqu797v8+x1jDhPgo9G +o1H44t0TugzW1/V0bYslwxX27uOibexrJgzbSnQ08bYoz0NFpgUatk2ode/R +kSRsd2anoLjRE3SENX2N5+qUrBYB2w7ESqCceP6zbdWjrIqXiLkvtZeFXd+T +cHmJ/hb9ceqcC88Tfc8zUhs/IJ0227JEbKVR9cA5m4+IT+fQ1wRsp6kMC1bH +IJp84S3Nc/PShFhKxTAS+qd2bTz2u4MK6bWxn9HDVRUr47DZgrYT3+mj6BbH +gBODLXgi3t9ofgw9DLGricZeI32pPaFxHMnkUAF7sF2V566zbSZRMDmzOwKb +LFaT1xdmo4+kRxOJnaXplrOnYwrdLbH6zcT+oPBmU1IFF0F0r3koNjMgKvLM +iWmU7XZw425sTiHtSk3sDKIrNokHYQur6a/g0mdRg/q3ND/sAmaL/Qq5ObS6 +Y1DMF1v1hn/Wxvk5JKQTke2Fba53mB3TuIAc2MZartgRpoMdEzZLKCLmyWZr +7O8pe5eLav1E2keCaQj7QKPYVm3hX6gw5GTlFuwLYH4zvOM3ivyj6oExr19p +u21ixTLY4Uor1sSuaDszdFCZD/aruf+9jtf3S3DG6RN8sM/dPF0FO0Nn9u6d +WH7I2vSas5LX9/Y69Sm6ALx8YXmTD7uvZ7L511UBSFUL7PuZjPtP1wVIyglC +x5IsZwG70tg1X39eEASW/LvZ2K31acuiG4WhbtAmqBd7tuX14LiNOBjGL9WW +Y8s4i69IbxaHVF2hJyXYhm9sQcJCAq572ty/iB01cr94k4Ek5L/33HoSO56v +w9BSfAX8FB8ZicUeVbvFzZmThoC32cV62N/J5yLdRjLQqbv8lTo2382xdasS +ZEBPtWVUidfXaK1nxTcZ8LlIuyeMHWCTV9M1JAsyBQXfPu3lou6wRJbCCzmo +TaC1n8YeuJF7PERYHjQqhlSOYE9+q7habicPpu1SvhnYokmfX295JA+L9N0x +JLbtIW/jkPsKoDvwycwCu+Ga6WxZkSJ07Ttq2ZvERddGfyRvTlIBZY7tSn7s +HT5HBlhVKuBnJ35zloXzW2W3V42pgPngyg3j2MbX9ORU/deAfRv7TQd2KyP4 +rsC2tTC0YXyxAHt6amjfeLYq9EpIJapiy8bY3rvrogZSzQUaGolcNHZNNMI9 +Sg16d0odlsV+8LFHmTqsBgtP5jr5sHc5B2VrPVKDWR0Z6eEE3E832fMvujr8 ++lrKLMQ2nrjByVTQgASHImtJbO9wMX3HYU1wIK1GB+K4CCX70Hf+1ISsPtX0 +F9g6OUVmTEUtiFe8vFCHTbtqZJ3pgd2YUpGHXTUQuLPmXy3Ys3vgK2AL+lYe +VCpZD6JJnA+Fsbifrcu7CYY2PB5uO2Qdw0VXvc7/bz5TGxZqO6X1sHMZw0PL +L2qDSkTlYTls5oG939a81gYbncX149FcJN10ieZlowNyJkIOJ7CjjNg6jeq6 +cNLtnmDPHi5SVjuVdXxED1zu3cu0i+KipmPftRf59OGdlvWwNvauGf835Dp9 +6Bq/s14S+3KrhrZ1sD5cvWgZ8i6Si9TCG14tvNcH/9VhBwhsncpRTfKFARwp +ZGRlRnCRivIaUtXfEGqmR05cJLlIrzRJ/D9Eh9fRKQV/MLiIwcye1Xelg1h4 +sC8D+4J6/kDILjool++lWWPzl9y+05ZCh6wgG4ll2H2XJ7zzq+lQwbwpkhmK +/6cXQi5pqxvBnjCjPFYInu9xZwM/QWMwF6kbdw7moiuJGu73O0yg4mFhYr0/ +F/UkI7NDpRYg8jlhU4ErF60LfusaFG0JXQbIWcqai4jftbdUUgGsymYjRU24 +SOHbAyEFhjXoTK2IPabJRUlGWz/m69jC5hx+9z453J9aapedsIMpr/D0SAE8 +T2uWUFG3PSwo7WhLm+aga9+j/q0scIA1Lu/lhwc5aMFqVWdrlhNsuHZwbddz +Duqn8XOHQ11g0+SWOZf7HBS7Oi7voLobzBysHywu5qBbke2Pzua4Q7VDQueV +PzkobUZxXjfSA8h2r65GFgfNOm73fbrbE0xicgNLAznIIvC01aiHFxzsW+37 +jw0HvVK8FNVq5A0u5SUMb30OUrqe3VS2wQdUfWb0fq/koAdDOs6uEr5ww7ly +c83SFFrzhhOeTPkC9bJt7HzPFDI6e7ry6tBOaFR3mtp+ZQpdWj5jkN/iB8ss ++mKf7Z1CtVYb+3Lq/UFAbnQ8134KXTA7Jr1UEQCZmm6CtspTqPt/pYeNTgSC +m0pghuwMG913KdSIP7ALJv/+J3ugnY24MV60WGYQGNCchkZK2Gh2u3YE2yYY +TN+5C6/JYqMyqneBZbobjrn/eVA0gI38rpSGBYmHgI11BNvQgo3u1jjt5j8S +AqNP/efPKbCRhfKrxT8XQ4Afrb2y6QeF1IfC+15GhoKiYWCE2yCFRsT2uBV+ +DoWcwp4qopVCPbmuYfY+DFCq9l67t4pCBSlFYnt7GKDg31Ytep5CTc2/F8Mc +wmBC1ijidDaFpHbBEaOGMIjlT2DVsiikuvJp9+qmMMgU9ihPxjbscFkl2BwG +qf99EjHD9twaWP7h3zD4u2+904NEnL86+cX+Z2EgGpDd1ZRAIaX+m1LtH8Lg +aNHXvs44CmkEK1zYNR8Gn6YdVVZEU8gihF2WY8yEQ3EHPsgRFLr+F4flasqE +HqE3XiNMCq18Pb1NwZwJcq6T32uw2Xbzb8q2MGFLUGKZO/Y1XdqyDmsmjKQJ +vz0ZRiHJeWl/GQ8mGMTP20kx8Pc4aSJSFMOEvyXDzxjsppDHU7M34XFMiLF4 +9XwZdjNtc5FhAhNE5jZveBtMob9Y20weJzHhxEcxnwxsV3/70NF0JoxL9yV3 +BFGoXsO/XvcYE4q6L3xk7aJQbmNG5IPrTLj+7N2WQX8KxdDPW6SUMeFOsdbv +Omzn8moR8wom9DvpfMnDFj0/Vl5XxYT/mj01bbBzEt0nau8xwZDuFlDuR6EM +bY099x8zQeq8TlnGTgpFnX8RXTPAhLDRJx+3+VDIQXJsa+IQEySdDS1WY2/I +oUnQPzFh1XRKw6I3hcYSTaqqR5mwg12uex871LWIujPJhNDFynZ9bD8BVuzt +H0zIY9mxNb0oZM9Siq+UJ2B/5tepTR4Uelx02DF/FQHcXrRbGntrx7RGihIB +ZtXrf3Dc8fw1X/TarCHAxK665g624vt0m/9pEuBb/9KAjv1tc7+8qAkB9UFx +3pZuFDrFV/ww3IuA8I/zQUku+P03il9w8SHAvvSnlT/2ocCURKOdBIh+a/LY +hp1yz3397wACHsZFfxfGDiWXnT7HICDnxK3txc4UMnrOYD5JIEA5smbteycK +vT+tKaaeR0BmN7eCcKTQLSQRMX6aAMWdFqke2Ieo761VZwigldyOscSmO7Rm +mp8nYEO07jM57Fxa2LTLZQI+T7Ac2x0otD2uuDelkoDR5pFkY2wVlaOm224R +cEoopkwN+/vzuDP8dwgoUNxIk8Yu0UIuuXcJ+KYTpsbeQaGf/f2PrjYQ0HS9 +cFMF9j1n5bKudgKqT/ena2Mf/8EnUPCcgJ40Z2klbEbZRKh/BwGdHb86RLFX +LG9QHukmoP3TxrpJewpFN/qdWnxHgI/wa98abHWdc8kaowS40vNbbLF/vN// ++usYAUvG+x6aYffkEIa3xwlQ67vRr4OdOWw8YTFJgOZXKk8au+/C6yC3GQJa +ehVbhrZTKF9I2i5tGQnz8Z6+h7GbpvsDk/hJYBzRSU/D/tJfkRgrQIJmc0t3 +LPbWe7bFDBESVt/YIuyHPRaS8p+jNAmR191q9bBXONvJ2MmSYC+J/NWwt5jJ +aCM5EnryZ3RXYedJVPoaKZKQ+LQqZDlvvWGwWnkdCeXmLKFBOwqRpZXtcur4 +PM75De+w8/JSB6U0SXA0zUntxB4jZSWWa5Ow71dDRRNvXdY+YtKQhJqZS46X +sBt+yWaN0UnwKZWeOIs9+nXo7JAxCSKd7vW52JsfpbW8MSfB6hn9ywHskehb +ax4CCQmCuQfCsSX90k3qrEmQFyEvh2Jb2OxwrrYloWNAbDIQO1fxU2rpDhJk +RR7Le2A/WH47r8iRhLm+VzNO2J+n0m/85UxCdloNzR7bvE3u7Ul3Eu4KDJZb +YjOqP3074knCniC97RbYJwtv8/3hjfcHOMiYYH9KdDBM9iMhT2jGQh9bIlje +Pj6AhEPSB85q8/IcPgdF7SKhNLlfVYu3f+3+48EhJJzjiDxdy+sj6ljixyCh +zbV3eDUvb1a+3pNJgvrFVD0lXt7w525nkoRf3yeuK/DyOu6MbY8gIT1V30OO +169u/0+Iwn1trHRlefkljiu3RJOwN1rLRJqXf1JB1ySWBF/R/lgpXn7KiNXG +eBLE6MQHCWxxZrWfdiIJXbPNCeLYZm6ZcepJJLQSE5vFePmbnQ6rJJOwPu+L +kSj2Cc1VlxRS8PMHaneJYNeuGL0rnUbCNqud94Wxh/+rfi6WQYJ17zNLnsW/ +ZA4LZJJg5io5J4Rt+spp4XcWCZZXNQZ4/j+ry+s3 + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4VdsbB/ATmacQQkqmMqZjrrReUzLPMkQcZ29D5iOZoq5Ut0GShntT +pBSioiJDbjeSytQcv0yFJPs4h0xd1W+dP/azn8+z9vqu797v8+x1jDhPgo9G +o1H44t0TugzW1/V0bYslwxX27uOibexrJgzbSnQ08bYoz0NFpgUatk2ode/R +kSRsd2anoLjRE3SENX2N5+qUrBYB2w7ESqCceP6zbdWjrIqXiLkvtZeFXd+T +cHmJ/hb9ceqcC88Tfc8zUhs/IJ0227JEbKVR9cA5m4+IT+fQ1wRsp6kMC1bH +IJp84S3Nc/PShFhKxTAS+qd2bTz2u4MK6bWxn9HDVRUr47DZgrYT3+mj6BbH +gBODLXgi3t9ofgw9DLGricZeI32pPaFxHMnkUAF7sF2V566zbSZRMDmzOwKb +LFaT1xdmo4+kRxOJnaXplrOnYwrdLbH6zcT+oPBmU1IFF0F0r3koNjMgKvLM +iWmU7XZw425sTiHtSk3sDKIrNokHYQur6a/g0mdRg/q3ND/sAmaL/Qq5ObS6 +Y1DMF1v1hn/Wxvk5JKQTke2Fba53mB3TuIAc2MZartgRpoMdEzZLKCLmyWZr +7O8pe5eLav1E2keCaQj7QKPYVm3hX6gw5GTlFuwLYH4zvOM3ivyj6oExr19p +u21ixTLY4Uor1sSuaDszdFCZD/aruf+9jtf3S3DG6RN8sM/dPF0FO0Nn9u6d +WH7I2vSas5LX9/Y69Sm6ALx8YXmTD7uvZ7L511UBSFUL7PuZjPtP1wVIyglC +x5IsZwG70tg1X39eEASW/LvZ2K31acuiG4WhbtAmqBd7tuX14LiNOBjGL9WW +Y8s4i69IbxaHVF2hJyXYhm9sQcJCAq572ty/iB01cr94k4Ek5L/33HoSO56v +w9BSfAX8FB8ZicUeVbvFzZmThoC32cV62N/J5yLdRjLQqbv8lTo2382xdasS +ZEBPtWVUidfXaK1nxTcZ8LlIuyeMHWCTV9M1JAsyBQXfPu3lou6wRJbCCzmo +TaC1n8YeuJF7PERYHjQqhlSOYE9+q7habicPpu1SvhnYokmfX295JA+L9N0x +JLbtIW/jkPsKoDvwycwCu+Ga6WxZkSJ07Ttq2ZvERddGfyRvTlIBZY7tSn7s +HT5HBlhVKuBnJ35zloXzW2W3V42pgPngyg3j2MbX9ORU/deAfRv7TQd2KyP4 +rsC2tTC0YXyxAHt6amjfeLYq9EpIJapiy8bY3rvrogZSzQUaGolcNHZNNMI9 +Sg16d0odlsV+8LFHmTqsBgtP5jr5sHc5B2VrPVKDWR0Z6eEE3E832fMvujr8 ++lrKLMQ2nrjByVTQgASHImtJbO9wMX3HYU1wIK1GB+K4CCX70Hf+1ISsPtX0 +F9g6OUVmTEUtiFe8vFCHTbtqZJ3pgd2YUpGHXTUQuLPmXy3Ys3vgK2AL+lYe +VCpZD6JJnA+Fsbifrcu7CYY2PB5uO2Qdw0VXvc7/bz5TGxZqO6X1sHMZw0PL +L2qDSkTlYTls5oG939a81gYbncX149FcJN10ieZlowNyJkIOJ7CjjNg6jeq6 +cNLtnmDPHi5SVjuVdXxED1zu3cu0i+KipmPftRf59OGdlvWwNvauGf835Dp9 +6Bq/s14S+3KrhrZ1sD5cvWgZ8i6Si9TCG14tvNcH/9VhBwhsncpRTfKFARwp +ZGRlRnCRivIaUtXfEGqmR05cJLlIrzRJ/D9Eh9fRKQV/MLiIwcye1Xelg1h4 +sC8D+4J6/kDILjool++lWWPzl9y+05ZCh6wgG4ll2H2XJ7zzq+lQwbwpkhmK +/6cXQi5pqxvBnjCjPFYInu9xZwM/QWMwF6kbdw7moiuJGu73O0yg4mFhYr0/ +F/UkI7NDpRYg8jlhU4ErF60LfusaFG0JXQbIWcqai4jftbdUUgGsymYjRU24 +SOHbAyEFhjXoTK2IPabJRUlGWz/m69jC5hx+9z453J9aapedsIMpr/D0SAE8 +T2uWUFG3PSwo7WhLm+aga9+j/q0scIA1Lu/lhwc5aMFqVWdrlhNsuHZwbddz +Duqn8XOHQ11g0+SWOZf7HBS7Oi7voLobzBysHywu5qBbke2Pzua4Q7VDQueV +PzkobUZxXjfSA8h2r65GFgfNOm73fbrbE0xicgNLAznIIvC01aiHFxzsW+37 +jw0HvVK8FNVq5A0u5SUMb30OUrqe3VS2wQdUfWb0fq/koAdDOs6uEr5ww7ly +c83SFFrzhhOeTPkC9bJt7HzPFDI6e7ry6tBOaFR3mtp+ZQpdWj5jkN/iB8ss ++mKf7Z1CtVYb+3Lq/UFAbnQ8134KXTA7Jr1UEQCZmm6CtspTqPt/pYeNTgSC +m0pghuwMG913KdSIP7ALJv/+J3ugnY24MV60WGYQGNCchkZK2Gh2u3YE2yYY +TN+5C6/JYqMyqneBZbobjrn/eVA0gI38rpSGBYmHgI11BNvQgo3u1jjt5j8S +AqNP/efPKbCRhfKrxT8XQ4Afrb2y6QeF1IfC+15GhoKiYWCE2yCFRsT2uBV+ +DoWcwp4qopVCPbmuYfY+DFCq9l67t4pCBSlFYnt7GKDg31Ytep5CTc2/F8Mc +wmBC1ijidDaFpHbBEaOGMIjlT2DVsiikuvJp9+qmMMgU9ihPxjbscFkl2BwG +qf99EjHD9twaWP7h3zD4u2+904NEnL86+cX+Z2EgGpDd1ZRAIaX+m1LtH8Lg +aNHXvs44CmkEK1zYNR8Gn6YdVVZEU8gihF2WY8yEQ3EHPsgRFLr+F4flasqE +HqE3XiNMCq18Pb1NwZwJcq6T32uw2Xbzb8q2MGFLUGKZO/Y1XdqyDmsmjKQJ +vz0ZRiHJeWl/GQ8mGMTP20kx8Pc4aSJSFMOEvyXDzxjsppDHU7M34XFMiLF4 +9XwZdjNtc5FhAhNE5jZveBtMob9Y20weJzHhxEcxnwxsV3/70NF0JoxL9yV3 +BFGoXsO/XvcYE4q6L3xk7aJQbmNG5IPrTLj+7N2WQX8KxdDPW6SUMeFOsdbv +Omzn8moR8wom9DvpfMnDFj0/Vl5XxYT/mj01bbBzEt0nau8xwZDuFlDuR6EM +bY099x8zQeq8TlnGTgpFnX8RXTPAhLDRJx+3+VDIQXJsa+IQEySdDS1WY2/I +oUnQPzFh1XRKw6I3hcYSTaqqR5mwg12uex871LWIujPJhNDFynZ9bD8BVuzt +H0zIY9mxNb0oZM9Siq+UJ2B/5tepTR4Uelx02DF/FQHcXrRbGntrx7RGihIB +ZtXrf3Dc8fw1X/TarCHAxK665g624vt0m/9pEuBb/9KAjv1tc7+8qAkB9UFx +3pZuFDrFV/ww3IuA8I/zQUku+P03il9w8SHAvvSnlT/2ocCURKOdBIh+a/LY +hp1yz3397wACHsZFfxfGDiWXnT7HICDnxK3txc4UMnrOYD5JIEA5smbteycK +vT+tKaaeR0BmN7eCcKTQLSQRMX6aAMWdFqke2Ieo761VZwigldyOscSmO7Rm +mp8nYEO07jM57Fxa2LTLZQI+T7Ac2x0otD2uuDelkoDR5pFkY2wVlaOm224R +cEoopkwN+/vzuDP8dwgoUNxIk8Yu0UIuuXcJ+KYTpsbeQaGf/f2PrjYQ0HS9 +cFMF9j1n5bKudgKqT/ena2Mf/8EnUPCcgJ40Z2klbEbZRKh/BwGdHb86RLFX +LG9QHukmoP3TxrpJewpFN/qdWnxHgI/wa98abHWdc8kaowS40vNbbLF/vN// ++usYAUvG+x6aYffkEIa3xwlQ67vRr4OdOWw8YTFJgOZXKk8au+/C6yC3GQJa +ehVbhrZTKF9I2i5tGQnz8Z6+h7GbpvsDk/hJYBzRSU/D/tJfkRgrQIJmc0t3 +LPbWe7bFDBESVt/YIuyHPRaS8p+jNAmR191q9bBXONvJ2MmSYC+J/NWwt5jJ +aCM5EnryZ3RXYedJVPoaKZKQ+LQqZDlvvWGwWnkdCeXmLKFBOwqRpZXtcur4 +PM75De+w8/JSB6U0SXA0zUntxB4jZSWWa5Ow71dDRRNvXdY+YtKQhJqZS46X +sBt+yWaN0UnwKZWeOIs9+nXo7JAxCSKd7vW52JsfpbW8MSfB6hn9ywHskehb +ax4CCQmCuQfCsSX90k3qrEmQFyEvh2Jb2OxwrrYloWNAbDIQO1fxU2rpDhJk +RR7Le2A/WH47r8iRhLm+VzNO2J+n0m/85UxCdloNzR7bvE3u7Ul3Eu4KDJZb +YjOqP3074knCniC97RbYJwtv8/3hjfcHOMiYYH9KdDBM9iMhT2jGQh9bIlje +Pj6AhEPSB85q8/IcPgdF7SKhNLlfVYu3f+3+48EhJJzjiDxdy+sj6ljixyCh +zbV3eDUvb1a+3pNJgvrFVD0lXt7w525nkoRf3yeuK/DyOu6MbY8gIT1V30OO +169u/0+Iwn1trHRlefkljiu3RJOwN1rLRJqXf1JB1ySWBF/R/lgpXn7KiNXG +eBLE6MQHCWxxZrWfdiIJXbPNCeLYZm6ZcepJJLQSE5vFePmbnQ6rJJOwPu+L +kSj2Cc1VlxRS8PMHaneJYNeuGL0rnUbCNqud94Wxh/+rfi6WQYJ17zNLnsW/ +ZA4LZJJg5io5J4Rt+spp4XcWCZZXNQZ4/j+ry+s3 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9146766031964045, + 1.0916644014563661`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9146766031964065}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.9146766031964045, + 1.0916644014563661`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9146766031964065}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4VdsbB/ATmacQQkqmMqZjrrReUzLPMkQcZ29D5iOZoq5Ut0GShntT +pBSioiJDbjeSytQcv0yFJPs4h0xd1W+dP/azn8+z9vqu797v8+x1jDhPgo9G +o1H44t0TugzW1/V0bYslwxX27uOibexrJgzbSnQ08bYoz0NFpgUatk2ode/R +kSRsd2anoLjRE3SENX2N5+qUrBYB2w7ESqCceP6zbdWjrIqXiLkvtZeFXd+T +cHmJ/hb9ceqcC88Tfc8zUhs/IJ0227JEbKVR9cA5m4+IT+fQ1wRsp6kMC1bH +IJp84S3Nc/PShFhKxTAS+qd2bTz2u4MK6bWxn9HDVRUr47DZgrYT3+mj6BbH +gBODLXgi3t9ofgw9DLGricZeI32pPaFxHMnkUAF7sF2V566zbSZRMDmzOwKb +LFaT1xdmo4+kRxOJnaXplrOnYwrdLbH6zcT+oPBmU1IFF0F0r3koNjMgKvLM +iWmU7XZw425sTiHtSk3sDKIrNokHYQur6a/g0mdRg/q3ND/sAmaL/Qq5ObS6 +Y1DMF1v1hn/Wxvk5JKQTke2Fba53mB3TuIAc2MZartgRpoMdEzZLKCLmyWZr +7O8pe5eLav1E2keCaQj7QKPYVm3hX6gw5GTlFuwLYH4zvOM3ivyj6oExr19p +u21ixTLY4Uor1sSuaDszdFCZD/aruf+9jtf3S3DG6RN8sM/dPF0FO0Nn9u6d +WH7I2vSas5LX9/Y69Sm6ALx8YXmTD7uvZ7L511UBSFUL7PuZjPtP1wVIyglC +x5IsZwG70tg1X39eEASW/LvZ2K31acuiG4WhbtAmqBd7tuX14LiNOBjGL9WW +Y8s4i69IbxaHVF2hJyXYhm9sQcJCAq572ty/iB01cr94k4Ek5L/33HoSO56v +w9BSfAX8FB8ZicUeVbvFzZmThoC32cV62N/J5yLdRjLQqbv8lTo2382xdasS +ZEBPtWVUidfXaK1nxTcZ8LlIuyeMHWCTV9M1JAsyBQXfPu3lou6wRJbCCzmo +TaC1n8YeuJF7PERYHjQqhlSOYE9+q7habicPpu1SvhnYokmfX295JA+L9N0x +JLbtIW/jkPsKoDvwycwCu+Ga6WxZkSJ07Ttq2ZvERddGfyRvTlIBZY7tSn7s +HT5HBlhVKuBnJ35zloXzW2W3V42pgPngyg3j2MbX9ORU/deAfRv7TQd2KyP4 +rsC2tTC0YXyxAHt6amjfeLYq9EpIJapiy8bY3rvrogZSzQUaGolcNHZNNMI9 +Sg16d0odlsV+8LFHmTqsBgtP5jr5sHc5B2VrPVKDWR0Z6eEE3E832fMvujr8 ++lrKLMQ2nrjByVTQgASHImtJbO9wMX3HYU1wIK1GB+K4CCX70Hf+1ISsPtX0 +F9g6OUVmTEUtiFe8vFCHTbtqZJ3pgd2YUpGHXTUQuLPmXy3Ys3vgK2AL+lYe +VCpZD6JJnA+Fsbifrcu7CYY2PB5uO2Qdw0VXvc7/bz5TGxZqO6X1sHMZw0PL +L2qDSkTlYTls5oG939a81gYbncX149FcJN10ieZlowNyJkIOJ7CjjNg6jeq6 +cNLtnmDPHi5SVjuVdXxED1zu3cu0i+KipmPftRf59OGdlvWwNvauGf835Dp9 +6Bq/s14S+3KrhrZ1sD5cvWgZ8i6Si9TCG14tvNcH/9VhBwhsncpRTfKFARwp +ZGRlRnCRivIaUtXfEGqmR05cJLlIrzRJ/D9Eh9fRKQV/MLiIwcye1Xelg1h4 +sC8D+4J6/kDILjool++lWWPzl9y+05ZCh6wgG4ll2H2XJ7zzq+lQwbwpkhmK +/6cXQi5pqxvBnjCjPFYInu9xZwM/QWMwF6kbdw7moiuJGu73O0yg4mFhYr0/ +F/UkI7NDpRYg8jlhU4ErF60LfusaFG0JXQbIWcqai4jftbdUUgGsymYjRU24 +SOHbAyEFhjXoTK2IPabJRUlGWz/m69jC5hx+9z453J9aapedsIMpr/D0SAE8 +T2uWUFG3PSwo7WhLm+aga9+j/q0scIA1Lu/lhwc5aMFqVWdrlhNsuHZwbddz +Duqn8XOHQ11g0+SWOZf7HBS7Oi7voLobzBysHywu5qBbke2Pzua4Q7VDQueV +PzkobUZxXjfSA8h2r65GFgfNOm73fbrbE0xicgNLAznIIvC01aiHFxzsW+37 +jw0HvVK8FNVq5A0u5SUMb30OUrqe3VS2wQdUfWb0fq/koAdDOs6uEr5ww7ly +c83SFFrzhhOeTPkC9bJt7HzPFDI6e7ry6tBOaFR3mtp+ZQpdWj5jkN/iB8ss ++mKf7Z1CtVYb+3Lq/UFAbnQ8134KXTA7Jr1UEQCZmm6CtspTqPt/pYeNTgSC +m0pghuwMG913KdSIP7ALJv/+J3ugnY24MV60WGYQGNCchkZK2Gh2u3YE2yYY +TN+5C6/JYqMyqneBZbobjrn/eVA0gI38rpSGBYmHgI11BNvQgo3u1jjt5j8S +AqNP/efPKbCRhfKrxT8XQ4Afrb2y6QeF1IfC+15GhoKiYWCE2yCFRsT2uBV+ +DoWcwp4qopVCPbmuYfY+DFCq9l67t4pCBSlFYnt7GKDg31Ytep5CTc2/F8Mc +wmBC1ijidDaFpHbBEaOGMIjlT2DVsiikuvJp9+qmMMgU9ihPxjbscFkl2BwG +qf99EjHD9twaWP7h3zD4u2+904NEnL86+cX+Z2EgGpDd1ZRAIaX+m1LtH8Lg +aNHXvs44CmkEK1zYNR8Gn6YdVVZEU8gihF2WY8yEQ3EHPsgRFLr+F4flasqE +HqE3XiNMCq18Pb1NwZwJcq6T32uw2Xbzb8q2MGFLUGKZO/Y1XdqyDmsmjKQJ +vz0ZRiHJeWl/GQ8mGMTP20kx8Pc4aSJSFMOEvyXDzxjsppDHU7M34XFMiLF4 +9XwZdjNtc5FhAhNE5jZveBtMob9Y20weJzHhxEcxnwxsV3/70NF0JoxL9yV3 +BFGoXsO/XvcYE4q6L3xk7aJQbmNG5IPrTLj+7N2WQX8KxdDPW6SUMeFOsdbv +Omzn8moR8wom9DvpfMnDFj0/Vl5XxYT/mj01bbBzEt0nau8xwZDuFlDuR6EM +bY099x8zQeq8TlnGTgpFnX8RXTPAhLDRJx+3+VDIQXJsa+IQEySdDS1WY2/I +oUnQPzFh1XRKw6I3hcYSTaqqR5mwg12uex871LWIujPJhNDFynZ9bD8BVuzt +H0zIY9mxNb0oZM9Siq+UJ2B/5tepTR4Uelx02DF/FQHcXrRbGntrx7RGihIB +ZtXrf3Dc8fw1X/TarCHAxK665g624vt0m/9pEuBb/9KAjv1tc7+8qAkB9UFx +3pZuFDrFV/ww3IuA8I/zQUku+P03il9w8SHAvvSnlT/2ocCURKOdBIh+a/LY +hp1yz3397wACHsZFfxfGDiWXnT7HICDnxK3txc4UMnrOYD5JIEA5smbteycK +vT+tKaaeR0BmN7eCcKTQLSQRMX6aAMWdFqke2Ieo761VZwigldyOscSmO7Rm +mp8nYEO07jM57Fxa2LTLZQI+T7Ac2x0otD2uuDelkoDR5pFkY2wVlaOm224R +cEoopkwN+/vzuDP8dwgoUNxIk8Yu0UIuuXcJ+KYTpsbeQaGf/f2PrjYQ0HS9 +cFMF9j1n5bKudgKqT/ena2Mf/8EnUPCcgJ40Z2klbEbZRKh/BwGdHb86RLFX +LG9QHukmoP3TxrpJewpFN/qdWnxHgI/wa98abHWdc8kaowS40vNbbLF/vN// ++usYAUvG+x6aYffkEIa3xwlQ67vRr4OdOWw8YTFJgOZXKk8au+/C6yC3GQJa +ehVbhrZTKF9I2i5tGQnz8Z6+h7GbpvsDk/hJYBzRSU/D/tJfkRgrQIJmc0t3 +LPbWe7bFDBESVt/YIuyHPRaS8p+jNAmR191q9bBXONvJ2MmSYC+J/NWwt5jJ +aCM5EnryZ3RXYedJVPoaKZKQ+LQqZDlvvWGwWnkdCeXmLKFBOwqRpZXtcur4 +PM75De+w8/JSB6U0SXA0zUntxB4jZSWWa5Ow71dDRRNvXdY+YtKQhJqZS46X +sBt+yWaN0UnwKZWeOIs9+nXo7JAxCSKd7vW52JsfpbW8MSfB6hn9ywHskehb +ax4CCQmCuQfCsSX90k3qrEmQFyEvh2Jb2OxwrrYloWNAbDIQO1fxU2rpDhJk +RR7Le2A/WH47r8iRhLm+VzNO2J+n0m/85UxCdloNzR7bvE3u7Ul3Eu4KDJZb +YjOqP3074knCniC97RbYJwtv8/3hjfcHOMiYYH9KdDBM9iMhT2jGQh9bIlje +Pj6AhEPSB85q8/IcPgdF7SKhNLlfVYu3f+3+48EhJJzjiDxdy+sj6ljixyCh +zbV3eDUvb1a+3pNJgvrFVD0lXt7w525nkoRf3yeuK/DyOu6MbY8gIT1V30OO +169u/0+Iwn1trHRlefkljiu3RJOwN1rLRJqXf1JB1ySWBF/R/lgpXn7KiNXG +eBLE6MQHCWxxZrWfdiIJXbPNCeLYZm6ZcepJJLQSE5vFePmbnQ6rJJOwPu+L +kSj2Cc1VlxRS8PMHaneJYNeuGL0rnUbCNqud94Wxh/+rfi6WQYJ17zNLnsW/ +ZA4LZJJg5io5J4Rt+spp4XcWCZZXNQZ4/j+ry+s3 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9146766031964045, 1.0916644014563661`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9146766031964065}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.9146766031964065}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "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.9146766031964045, 1.0916644014563661`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913460797739086`*^9, 3.992106641835331*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"2135d013-5bf5-da4c-9de8-f361f94add3f"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918471776293755`*^9, {3.9918474259081*^9, 3.991847426207552*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"e083cd39-87a5-ca4f-ab3f-88bfd4c0e0d2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1686492472654984`*^-271\\\", \ +\\\"5919012181389927685417441689600000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 120, 566, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991346080016945*^9, 3.992106642210041*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"d6fcfe45-38a6-794e-b25e-e3a3fba7d6d3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3194672853092408`*^-285\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 120, + 567, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991346080016945*^9, 3.9921066422250557`*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"c5ff23f7-a281-d548-b0ca-9e84b797052c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.428717028673181`*^-299\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 120, + 568, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991346080016945*^9, 3.992106642237072*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"6c0c218e-e080-8147-b566-2bb61b6d29e3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 120, 569, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991346080016945*^9, 3.9921066422500515`*^9}, + CellLabel-> + "During evaluation of \ +In[120]:=",ExpressionUUID->"b2b2564b-d4d2-9548-b136-1ea0f45f0114"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVl3c8V98fx+29lQrZPjaf4Vsq3fMuJKMUGRURhbJFUR9lj0R2JKOMRIhk +ZY+PEJEtUUYohMjO7/P7597H83HO+5zzHvd13lfc2sXwOh0NDc1J6uP/75T7 +1kyEa8nYZoayXfKwNdbUI6ZvKuaNPHp/5N/VO4F2KTUBYmJhKPpdyR0DvfMo +pS5ClFEsCYlGOSXh9K4ix+OeTmuir9Cc0KxIs64b6tmyj1sUrUBXhHK1rHT8 +EPOXcZl50VaEmZG9RzWi0fO2NLdfokPozWUuuiWl56igMOyLo/JPNMo2auXs +X4TsUHfSnPsftIQ3VWMSq0A0L/5Wfgn/g7TEM68Jq1egRAbhkbbMP+jfWIWj +pFkF+tBqK/Kq/w9aVtrtoY+qQLIXtl9cP7qClEf9zDl2K9CMvczrUdpVVL3u +5qEyXIluxvjUdEX9RaySnosXA6uQ85TcREnBBkov3bdmklWLvl0ZYqlv3UAL +dH/eqNfWIqPBUOWOyQ00Y5hZwzFUi9Tap72nBDdR5PGFzv+Y6hB9URaPQMgm +OtGS48l7pA4lksWxO5ZbKAKXxFL6rA7V8x9IOsKzg1761POGXq5HqhEfarQU +dtAJoYFkfrt6lM3kNXn+1A5iMKMPi3WvR482+lVuknfQT5P9d1zD6pHJWBzl +6cwOwnsYcqWW1qOfuTwrW3X/kPDa5ZJGrgbEJh4oM6ZGA/o5U+P7ShvQB/Vo +lftaNNCh7z97t7YBBZulHj5oSAMriwGGPR8aEF1UufZlBxrQfnQPXfvSgDb/ +zdkNpNCAenAngYmmEf0aMc75REcL7DdgR1u7EX1MlJGr+0gLPTvTNkUdjehh +iSrBcogWdo3qgt/3NaLTXSeO/JuihQds4tWVXxtRE7O5jvouLfByHLVInG9E +VbejbpQT6EDpgvzRLo4mlH9h49WbBDqQv+1FR9BpQpE87fLPrehhqmAoP7+i +CVUcPvjurDM9lMT2t0zVNaHJKy5o+x49rD6/MMbzoQkdy+e/YPqEHi6wjdJD +fxOa0TH34eykh6zHxrx0y01II2D+k/cxBnAn/BreI9OMnHPRJRkdBth4kPOY +rNSMnnZHT/aaMMDcOq/6AKkZLYoe2lBxZwCJgBPk69CMUqvuS/zIYYDYNyZp +U2bNaH2V29NQgBHGyvY2e4Q0I8mD1ru7kowg0dR7gCOiGZ3VLAnLJzDCAUc/ +p4SYZpQVY5bKcoYRvDf/2xuY0owMVZ631AQwAo1xr19jcTPKtycKKiwxwuup +2IGe4WY0+Dgwc/AfI9RF+qUnjzUjhrJ+5WAOJtg/ZU42mWxGlxjvaXyXoTJr +9K2s+WbE8qLR8ckVJvhCiIzO2W1G1l8u1NJ/ZIL58X7QEqcgtuTvTm5DTPCI +dC5HUZqCii85C4/9YIKMLpcKZjkKoh8O8a6kZQbL7t7viXgKyhysJLkdZoZg +J5pIGURB+ona46OazDB8VC7o9UkKWjHtjdI3ZIbD7nePSJ+iIK2B+XkZJ2aw +8paeXNKnoB99YjmjL5hB1GU8Yv0iBUXG55vov2GGTT3tSiELCjpkfJSxspoZ +Vm+yVhKtKCik18g6fpAZZkPCkLotBcn2BAvrc7FA7D+a8mo3CrrZNRdV4c0C +dEaCSj7BFMQX5Y1kQljAuyqRdSyUgioNmBbi4lgAf6t0XjWcgtg/ieq5FrLA +4mvNL1WPKeh1hyGjzBQLlHezvz2eSEEXIsbexi2zwMmGFBI8paBtfUdrOhpW +aL9dOXToGQWd+RhU+1WQFa7e1MymSaeghbZy77hzrHArO+wN00sKSnioJUt3 +hTruJtyRm0NBmO7nfhcHVlD7GKeikUtBj1t/kfSCWWHr5f6Bc/kUpBbmNV4e +ywrZE6+lKAUU9O00YzTuOSu08aq1qryhIPwHkQXaKlYwN8yT/VZMQYMhec9c +WlnBJ9x2DldCQb7aanpf+1lBfalmv/U7CuqinM8pX2KFVl/D6ndlFOQVPGqC +22UFVdZcrLOcgsROOTDGcbDBvN3A0S8VFOTWHGjtIsMGOa8MSj+/pyCRyVNM +f0lsYF6eNZBfRUHtdKy5ZGCDY0e36B5UU5A0RCyFXWSDDR2VEPpaCvp8xSCe +x5YN3Acmpkup/MCH98gTdzYQatWwtqqjoKHKeN/McDa447f5Nr6egoKHTKUU +EtngzdblWPEGCiKtH/hQlMkGg8T7zzKo/E1gxEGtiA0otbd7hBopKOK/VO7a +ajb4l39V/SGVj16weqvVxga+Hle/LFB52l3C9GM/df2F1BKdJgqKi57cNJxg +A84LOh+fUvnEm+zUod9ssJeUgBun8kKn/Umrber6dvUtos0UlDwv/+MHCztY +7uUsMaLyaY75MKe97DCWWv/bh8qr8oVKK+LskJGm9CCVyi903LrvKrMDy2SW +7TsqG9iTPGmPsQObdVBuA5W3g1f3h2qzwyBByYBC5VdZZVVcF9jBLZjhYh2V +TZq8reKt2AGX7fXxDZXpJ44xCDuxg/LEdv4TKr+h/ffyhTc7qMax0XlS2UKs +Tk8umB0oHOIdp6nMhvx/F8aww3x8Mz8/lcssNGMPpbFDhG3AcA/Vv2tkpsPV +eeywlvxLOpzKvMkfhjXK2UGDGL+pRuWaiof325rY4fO2sMVXavwcBvUlznez +Q0GqtKEXlfevcVEGvrLDH3/TUVYqN+/tvnHlJzsc7bNiiqHmx101lnPqLzv8 +9l7t5KGyqJFxkQM9BxQxfVIPpubXO2po3UuYAyZvGwkZU/OPK0x+tivLAWml +EfEF1Pro6bCA4P84IDlE4cO/GgpSYh8PiT3LAfca5m8EUOtrWC5TQfAyB8yO +doyXUesv5LTtp3Q7DlAYD5WZoNbn96CfAgW+HPBy+KSsSCVVPzJfV6pGcMDy +N9kFJWo9H2t0vvI+iQNyv5XFqlLrPZ7mT9aHYg5wdh2KxpVSkM69LdWJSQ7o +yn40nVJEQX+TqgdvLHHA2s7fw9ep31tG+QPy4g4H+H19ESVZSEE7q/RNOwKc +cI/i6BL0moKKXDmM9utwQmJTmsdoNgV9fMrvnW/CCQxBQ5+OZ1H1rUkw7eQ1 +TuA+Zt8dk0FBggfkfjk+4IRHjfnjB6l6EVivFVD/jhNeRtrvlFP1JvWX/iuT +RirfytWlJFBQ+d4Ln351ccJiorpnaxwFzd+wFhKY44QAjdP3i6Ko9cP34O1N +CS4gc+6VZqXqm6t68NCuChfcL28SpwRR0EPbiN2441zAO39O1TuAgmork/Vq +zbig8UdpWf19qn7alE/wP+YCIoGR7qsHBW2+XeKv3uKCZoNIVg1LCtozun7E +kJUb/P4z6bhmTkHKLDRW0wLcwHzpurAPVa9tzLle8xK5Qeehy91oI6r/DAqa +tvbc0HprhlVXm+qP8TUP7j5uCGraK0WrREHP7zn8xJvywJ/t4xnVS80IX8e6 +HmLBA1nuPD/oF5pRHUMO45gND5geEGo6+bMZfYuYFItw5YGzP/Y45o43I5F0 +C9PZMB5QDOyRlOih3sdNBk3Pq3iAXq5gu5x6P8ZwqqbySfDCK7N94m8dm5GE +4ee8G7K8wPzRrOCAfTMqSnCtqFPmBaMaUr63TTPqEs3vdT7GC6XbLEK4S82I +i4hjb7/AC2mCn24TtJvRQ5P9XgEhvJAqlY/fL9aM/NO2z6/M8YJC+nVak44m +dA5f7qbwhxcmP5Up8VP7C5H6W9HWG7ygb2/1va2hCVWO/+zqYuSDTbrtdbny +JrQsPWSQL8IH4ttOz1++aELWr9+dsT3HBzKiOknZt5vQiQpnncG3fOBgeU/z +u2AToun5BlV3+cGHpvlqpXEjwnnYel2Q3wvSvRll8t71aHL1iQl7tQCc1/j7 +2Ea5FulO3fSJcdsPjSfyfD7uVqKzk1EKIiKCcO++S/7uRin62Wjt+yFfCA4G +B/2JdHqLlHn7D2pYHoT60yFtXB2FVD1ZvTryRwTeLOXq4n6/Qtrzl9YkjMWA +M67mrolDJkrdE9DzwEwMqlenxN1NM9HKsbzCkctisCgWZpWskYnSH27ZJViL +wYhYX4qAcCbalHk2yOoqBmZaXLOFHRnotfXXisWHYiBTsVfCkZSBeAYtyTV1 +YiAmRVrYYnmBBhuu0V5SFIeGutnH1WVpaPHEsKCPijjcUtvM/JyYhpjrDVTT +ieJQlEAr8887DR2qPWr3Q00cxt8eMUtUT0Nx73k63LXEoU2pqHywIRUZlFQl +hl8RByEnxcSAnhREydqDr44Sh4hd8d5zjM/Qu9CmK2Kr4kCX9NZa/FUiytFt +3x+yLg7Cl3d5bkUkoqccnz/Pb4lD0nXhkRG3ROQbNXbqPZ0ERFjZPFs/mkjt +dzaVTXgk4Ob82UcGnU/Q+Ev8briCBKT75Gm5bSQgrpZnaWtXJaAxWE2PdDUe +2TJ6fuvslIDjFn7F/B4xSFC0dWCrWwJWD2Q7BVnGoE61g59k+yRAusQqmlUv +Bh1ybK72/yIBk+znZk9LxCCmnr3Jh2YkwMoiuuJFdzTKSi81TqWVBKtJcksF +KRpNHltvc1KVBMHD7x4qMkahRGP9hqeHJaG9VNSyYOox0ndJr2g5KgnGSQ+/ +Stc/RiUvTueIn5CE6BppqXtej1Ega1JQ3xlJ+GT7KKxqJhJJDRyB43aSEJrI +fiT0UwSycb/3juOpJFxUnRQsfBeODhFH38mlSAJpoPxKc3w4YluG0lPpkpDv +2L6+4RmO3rgxlflmS0Kjx9ZY9aFwtO0aXb5SLAlOl9f0CyoeogSXl+9H2iWh +IIPxiFhzGGp17Kl/vSMJSftzXKuXQtAzxUMNrTRSIBdVununLwS5ziU2/KCX +Aq6AxptnK0KQgOOVRjE2KajkUQ0+6xeCrB1mm+IEpMC7L+N1El8I2r6x20JW +kYK3WzlxukeDkYqdQqf+VSkgyX3xjUwJRKM3RF3yr0nBoVm3Y/7+geiRIz8P +l70ULD4b/h5rF4hm3bbOf3KWgkxGiygeYiDKILf3nSdLgXXQmVbHDwFoX4zD +V5MnUiB0dMUhedMf7VblzVl1SIGCIhufnIcfKqhNi6jvkoKGCmnvPHM/ZN4Q +qyzRKwXKBbEfT2v5oYqWe64Tw1Kgejh3uEfAD936rLdyfUYKPkAyo9x7XzQ9 +/WvrJr00bNGyaL5n8UWf+BTZPY9Ig3d8YUK1kw/CnJxmk9WloTu/dGpQ2wcV +tBS0NFC7MmHTanERCR8USSYE8pyShvbyu13SA2Sk/+PQTp6hNLS+EhXEaZBR +W8WJ3+MO0vDpuZtou8Q91Gxl2nMuVRrensx1ebPrhVTfJxbdeS4NZrL/iptG +vVDm3uHHqZnSELz2xfdftRcKbDPXn8uVhiZvZ9Vxshc6qWrdHFImDcsPbE/b +bt9BdcxOZTVd0lCqYNimQXcHvS/wT1akx8F/JVI4J1lPxKRvLPiECQczo0NV +Uaye6PysTBItGw40lLGELz890LRkR0I/Dw5oCpddfuR7IP6kfTG+IjgQc+80 +//ifB3IIeB3aewQHoaaLlqX6t5CQWb8n2RUHrmpfw5bj3ZDtas7Kj1s44HUT +Miu+54aKYu7dOn8HByyfl6Pjrroh7Q4xN9x9HAiHe5bUKrmhWycdHLvCcZA6 +PljwusUVtSvS2Ei9xEG7w3J6Pa0rukcrf+7jVxxsWaRbVwk5oR+a7IO47zgI +kyBnCi46onOhc5Z+kzgIltauKG5yRFLchS6HfuFAJHfA/LGzI/oorPo4fR0H +7nOzqX+aHJCIGtbpwS8Du3emThPIN1GDs6H+QR0Z4HAdPNDHZ48Ui0m9d/Rl +gGR6cX513g4lrO4x/2wgA8qF45unW+2QA3nAIcREBlLpy78G+tqhPQ/Nw5ds +ZABlp/ueWbJFtlm2bc33ZUD1M3/74pfriG3k7mnnEhlwO9RUu9Njgw7decX5 +uEwGctJr07jKbNBVvsHPhZUycOi00Amtpzao/PR/Fkt1MrAueFJM8qoNsn33 +282jg3qeIpmGZ4vWqD7yWvLdHzJgbMGbYCNgjbxOnF0I3i8LHWE9uTiyFcoc +Ib99KSQLA/XR3M9trNCnO3leH0RkwUnE5Ki6nhXCFbDQs0nLgofxbb1eQSvU +I9i4L4IgCyh07yOuO5ZIeeXwiVhdWaicGCx+w3gFTWWLx6WRZeGnsR+YnruM +5gK/b9D7ygL5zkd5D8nLaNn6uaV9gCyIXPfK6fl7CdGIiisQHsqCDNsQ88XU +S0jwiVhDwxNZcAzew+2xeBGdCxFdnCqWhWrTooMv0s1Qld1BfcVZWVBsUsvM +VjZBjVpfi6LmZOHdjuDT26wmqE0yZd/qb1mI8tzY82DSGA2MCU9U/5UFKc9E +J7VkY7RsKnzXgEEObHpuh2iyGyPZ00I57qJywBJ3Rt9/1QjFyR5gqDCWAy1d +vpcZi+eR+RXcywkzOaCX2XSh7T2PpOJIulzmcpA54dUTWnYeleyeibKxlgNG +07vx/A/Oo95+f2EuFzlIfhgA/DznEX/QnKpNqByQrQ/VRRw5h2K+117nfC8H +9yLtNg8ankGX9nWwqNXIwazXLuGuxBkkcWY4z7peDjaLvSUO/tFHxeUrS2Ut +ctA2Sar8L14ffX4sd9+6Vw5wTd8LX47oIV4sNqFsXg6uepmbIS9dFPXUtuWq +mDy83UjiHBjTRndu+98iS8rDJbFRbqkKbXTFMFX0CU4etoXX4nJjtJEiW/+d +j4rycCxXYs36lDZq9daSPXxEHoqGLw57vTmF6C5KhXEYysPqoqXseqQW8tw3 +rlsWQLVH0Spnb2kg8z87f7uD5aFTYA8RM9JAmp8OZMyFyYNPUFHXFZIG4gs5 +vyUeJQ9/lU8M41dOooK/dXmPnslDV2zUGo/XSTTTl8Zh/U4eZOT+HggLPYEu +xVl0ckzLQ4HSoVP68QgJv2UTcvgpD4tpLYbfLyM01l1m1zovD0MXyvP6JRC6 +xs1HG7wiD08ZLXfGijDk/JBC2qVVgLDWfBuL3uPI31claUlYAUJLNmpD5NXR +K0faa/2GCiDsUyczue8IcgwveKNqogDaxw/X355VQ8q5l3diLirABXLKgNl7 +NVQ8/S7BwEoBaioWI1mt1FCV9c3WD04K8Cd2u487/zDqMutRfh+qAJ20Hue0 +jQ+hdc2sjbQaBVD8MbiCfSEh8vu0gKZ6BeD6ZOBvUU5CNMSnnLNNCvD3D3Gu +JJ6EmEUfixPbFQBy7Bg4z5OQwIaXTtOAAphtJstebCMiUr5+0syiAuSlfCs+ +0EJAzntX1AiSivArTPSXXKcKWg5faDDGKYJuLX+YXbwK8qSb1b8rpwhnE2Zs +6C1UEPn3V6tGFUUw2n813mheGYW3toQaqyvCO0KY5yk+ZZTjkzzobawIB0vV +GHYcFdHE1EmvhhBFsNVuKme1lkMn0zpfyIcrAghUlCrh5VC62aWOmEhFyJWS +58j/J4uutLtJ2MQrAo1/m9n7Z7Jo+E36R/oMRVj6ujHL+FUGfb73T0yrRhGy +3pw07nbCoQbeytaWFUXIdDbRv/pREom3a62orCvCjeVvTQOZksg3sFskcUsR +pEONuBN9JBG2NnPLnk4Jfny8JrqiIokqR/aJsPIowdfnU2SORAlU/NLTXVdB +CZInOHFGnuLoxXGCUMdVJRjgVhxhbxBBDWfZArauKUHvng6W6hARNG458VPO +Xgl2KcFtfWdEkKR/fGWwsxK8zn5me+zLQZRJ2bgI96jj4q6vmjaFUZZBQ+Lb +OCV4zLa/AekLoZyrRgJPW5RA56a/8yPV/eiDu+L9D21K1PuN99oG4340E8D4 +42+HEly9Pe9bObAPyWaXvTPqpc7v4/53iLwPvfopZMz5XQlu2rP2sLYKoNxb +k7G+m0pgYDq/k+a2F+UHefLaKSmD1cJmKM0WH5pTt/APwisD+/Onbrn9fEhx +RfNPBkkZ+qwiOuKL+VCu9Z6+b0eUwW6DS17FgQ/loLeJl04pA0vqyUyrMV6U +ubEoetZSGYjVbfLWPTzoqZOj8n/RyvBZZzxFrZMTDUtdSDOKU4aeIyxwMY4T +HRg5xuP+RBm6l8Q7Jy5xokRd9uWCFGXIj97/lTTLgeJlct/J5lLtjdP1XrNx +oKjv0+rCjcrwYpNOxNaKDYUY2+jRryqDx7VPlW6GzOiFwYj59XVlMLFQ78gW +Y0ZVOsbOLVvKEND3+yT8ZkLLx7Wjw+lUQLcm/HpKBBMyxykM8POoQLQcKM51 +MiLi2rK1lIIKPLvitKFuw4DOLDl4BCurQGvmgJ31YQZk/2syaIagAmqilH/f +2BlQylh/zms1FbAe8aadfkePWD5ULqieUgFCa94BBi56NJrof1frqgoESnBr +rnTQoo2YrfCX11TAR4/xlOVLWrQnwiOF1V4Flml3LQ/40SIdP9u6DmcVaHT5 +6eP1Hy0quaHLZEJWgYK9d1g/P6dBD4/yxdg+UYGYbZ7FKZ5d7L+R569COqj2 +5pJiOvxbGI+y/Xphlwpo2d/yLPmyic09UNYe7FGBBwE9s+GZm1im5PtJ2WEV +6K3MESIf3sT2OPSKtv1QgTJRM0t96w1sk0yvx0SDBwMePWem9jVsJsvW/Skt +nvp/KL4zlLSG9Xe2JinT42HNQHue88YaViwWNWPChAcLpznFOJY17GaTcPBL +Djx4vDVlZ9b/iw2xH6o/fQAPFf3egksTKxhFNWlmRJBqr3FX8G75ClZisc3t +JowHn5isBbOIFSyqsOFKkigeEscPPNmrtoKdNjLYnpXGw+My92rv6D9Y+VP7 +w+FEPOQyhnjaGS1jiXLJ+R16eBATreEb5V7EVv6cygo4gwcj1qAF8/7fmEHN +8rMjBnh4M9NImxLxG2My0n2UZYgHbqWVpdWdBcyTvHHT5yIe7vMZzE9PzWOG +n0xllezwYCMvkve++xdWkEQvNmGPhymVybDq6F8Y67XCfUk38aA4f9BFz/AX +VrfOxMzojIfG40LtTH0/MRWJ0qkRDzyY7dV8N/JtFuPw3JPxyB8PHNZGqfy8 +M5g9qnt6MhAP9h41vEZD01gjq2PMehAeJPhpvThfTGN3Uxv9roXhIfbIrshv +1WlstsXdSj0KDxeZI8/pWv3AKILdB+dS8BD+IBIefpzEHtRFJOpV4KHvyqL8 +2Mp37OfXuriNSmq8q37XerR/x0y2/kS9rMLDW3f/69dffMcUD10Ko6/DA6Yn +sXDh/HdsMA939z0FD/KB2U/M3n7DiE9qLyv04kGdsfTnS64xLKVk2XSoDw+P +TForwyijGMtn6QshA3g46i18hv3BKDbG8Uh/YhgPTnGv7s8sfcUe+ZsdT/6O +h8FxP+7p0RHsh9OSCPtvPLwe3/o50juMnQ+XEqpYxIO0VZyuZMIwVpVjus9u +GQ+XJslZq6bDWOxENXfjKh4YZHQKj3wdwuDiQ5p723jIuVgCoguD2FNNyfGf +rATYY+O1/4bsAHZGyDirTYoA96fOXM5f68ESJ5XrLuMIkMbVVR3W3oNN5rN8 +mZMhwIeJdJvGtB6MDFU83AoEsMjTitTT6cFeX5ckGxEIwL0wjZLTP2Nsb5YM +R44TgOsOMznZshsz8W53ckIE4HPoN15T68ZenMwK/QcE4C1ms87i68aO9JnV +iGkSwID9xt1VShdmv1krd12XAMwYV4cRqQtr0YykWTAhQHRK1Z8t1U6Mj8te +6IEZAeoTXXxtljqwKwMnDvFcIsCwtELH5YIO7O+NVQeiBQGOCe7n2pTrwHCP +zQdu2xAgJUGK3CHzEQscki/YdSHAvb/lQUPqbdgJ55bLvGEE+G5Iz4U1U7DN +wdlTTQ+p52EpdTaNoGAlGhzEO48IcN5oW2fFmILhDpxn+fqYAMebRwffzjRj +HE3DJTkJ1P2O2b6X39OMDR5Y4IRMArw2ZbtB59+IxQTybCxnEeBRwcCzzvON +mN5v4mTWSwJcZHi8wyHRiNU03alkzyNAFGI+MdLYgGW60NoNFBFA/FgY7hVH +A+bavKfOuZYA2gumS9LFdZg8/nCeeD0Bsl8ffJ8eWodNPL2Y0NtAgJuS/yLv +W9ZhJq6pjkcpBPAjd3RbctVh6kKyB5g6CED3EK944nsNxuJ2zD1lmAC1ImlW +tY+qsDRha6mPqwSQbxZmfWVdjh0lKShbrxFAMhnRnZErx3p1Vg6vrxOAtW03 +1H2xDGO5E6wntU2A1NW+ieO+ZZhrd647mY4IT3rM2sqySjEI/lOnyE2EBDFn +AwPmd9jws6q2Bh4i0Hfjfkb0lWAeb4N6zfiI8AGpph7PLMFyvu2bCdxLBNuQ +Zz5zJ0sw3mPq3F+FiPA7rKLUKegtNv470CJCljr+F9MkiBRjZKazdpLyRDjI +yhjE96cIEzi4z61CgQiWJUk3TD4UYbq6rwKnlIlgeGSqjs6jCCvO7Mg7/h8R +jj/SJ/d/eoMFXBTYnD9BhIpiryJHQiEm1fgy4exlIkhq3Twp3JuLdSquZ46Y +E0F02TmoJS4X80o4/fbmFSIEHhBPoTPJxdpvzH4KvkoEq378TcnhV5g7jwJr +rR0RDjQNTs7P5GC1FgX3VDyIUPjdtPi56EvMvuVfWLUnEQI0OzirZ7IxPoJB +ot4dIjgX0gwYF2djtgyLJXZ3iSDSWH5z61Q2xpFHWEjzJYIe3VHhDc8s7NJ6 +iRVPBBEOb+2bHprNwBisGV1SI4kgYfGceK4yAytoN/ZRjCICGw0PhRSegdGm +/U06HUvlv170SDkDy9FS6/FNIsLLKuV/et4vsNWY91pLWUTQqP15/Y7EcyxK +qUH+cw0RPBJs7a7cTsFy1C6z+tcRgexQcuO4XApWq7EyTWggwmjkJMvYyDNs +4SIuK7qZCNq1rs3Wp55hesEPRc9/JIJv94+yIxLJGNOY4Z6uISKslfVvp24l +Ygd//lp+8IXq3zx+q6ciEVNdDexW+UqE0ug+zjdeiZgNe1nk429EMCCAgOn6 +E6zusBCrwTQRNIM4Of/bTcDuRU3sdKxQ4+fbKTAmF4/FJJNHfP4SAd9VqN25 +FIflZu99r7ROBIxRqkG/Mg4brNL2itiixod2aN+yfhx2aDZvWZ+OBJc0l+LL +vWKxxRMe0+3cJAiwVgjnnY3GbP8wdLfKk8ACv9j143QkdiVXs9NckQS5WWem +xXYiMJOrge2/lUhAZx/BzlccgZ36RE/ZSyDBeOjZET6RCAyXR/f+6mESRBRK +0l39F45NWdNkbWiQ4LDTOaXO0TBs5AC8eKRFXV/KLbsiJQzr7XqQJqpNAsUb +DzU0LMKwJmw3SUuXBMcddqUVRkOxTMF/kdHnSEC4PjklPR2CXfu85SVnQQLJ +bQHLuD3BmHnYsdtVV0hQyG+Q934kCLsA924ZWJHAakXe0yErCNMs2HTytKHu +V67ka6kWhEk93LCuv0GC+Nw1hjvXArGJE2v6F2+ToN+lSvdirz9mXbQsFvaY +Oj92dVCE3Rdz9Dfa1o2mno+rL6Ki8gHmaVQywBFLguehxAGC1QMsdNUzMiqB +BORf149zFtzHCo5sbD1JIQGq4EiUMfbBNup3+7PzSNCwppZU33kXo4u1KrbP +p9q72+wM+N3FOK7VR8gXkmB97dtY4393MRGmAM2CYhKwCJuo8ad7Y5q6TMXv +KkhweyNOzOi+Fxb1mSOiqYUEw36n5P0sb2NPM5zsg1up82myOn+L3MYyPDo1 +TreTQMf+UiffmCdWKhC12d5JAlcL5jPOVz2xkUv89j19JIgrvH1B29kDk5k4 +oDE+QYKfAgZOS9nuGL7krkjmFAn6zMtufnR1x44Gfdm4Pk3N5xGjRHTMHdOX +SXkz+5MEN/oV9850u2HuDmIiS0skWKLJ89zL5IaR1f02iv+QYO76emlQrysW +xDne67FKAoX50Hd+Ga5YYmFG+Po6CYQf4HYENFyxF74MdpWbJBC0OHoxn98V +yzt//SR5mwT2pvsIsa0uWIkE5SD2jwT5nuhZr6MLVvMHt7G7S4L0dFdxYV4X +7H/zpXyA + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8V98fx+29lQrZPjaf4Vsq3fMuJKMUGRURhbJFUR9lj0R2JKOMRIhk +ZY+PEJEtUUYohMjO7/P7597H83HO+5zzHvd13lfc2sXwOh0NDc1J6uP/75T7 +1kyEa8nYZoayXfKwNdbUI6ZvKuaNPHp/5N/VO4F2KTUBYmJhKPpdyR0DvfMo +pS5ClFEsCYlGOSXh9K4ix+OeTmuir9Cc0KxIs64b6tmyj1sUrUBXhHK1rHT8 +EPOXcZl50VaEmZG9RzWi0fO2NLdfokPozWUuuiWl56igMOyLo/JPNMo2auXs +X4TsUHfSnPsftIQ3VWMSq0A0L/5Wfgn/g7TEM68Jq1egRAbhkbbMP+jfWIWj +pFkF+tBqK/Kq/w9aVtrtoY+qQLIXtl9cP7qClEf9zDl2K9CMvczrUdpVVL3u +5qEyXIluxvjUdEX9RaySnosXA6uQ85TcREnBBkov3bdmklWLvl0ZYqlv3UAL +dH/eqNfWIqPBUOWOyQ00Y5hZwzFUi9Tap72nBDdR5PGFzv+Y6hB9URaPQMgm +OtGS48l7pA4lksWxO5ZbKAKXxFL6rA7V8x9IOsKzg1761POGXq5HqhEfarQU +dtAJoYFkfrt6lM3kNXn+1A5iMKMPi3WvR482+lVuknfQT5P9d1zD6pHJWBzl +6cwOwnsYcqWW1qOfuTwrW3X/kPDa5ZJGrgbEJh4oM6ZGA/o5U+P7ShvQB/Vo +lftaNNCh7z97t7YBBZulHj5oSAMriwGGPR8aEF1UufZlBxrQfnQPXfvSgDb/ +zdkNpNCAenAngYmmEf0aMc75REcL7DdgR1u7EX1MlJGr+0gLPTvTNkUdjehh +iSrBcogWdo3qgt/3NaLTXSeO/JuihQds4tWVXxtRE7O5jvouLfByHLVInG9E +VbejbpQT6EDpgvzRLo4mlH9h49WbBDqQv+1FR9BpQpE87fLPrehhqmAoP7+i +CVUcPvjurDM9lMT2t0zVNaHJKy5o+x49rD6/MMbzoQkdy+e/YPqEHi6wjdJD +fxOa0TH34eykh6zHxrx0y01II2D+k/cxBnAn/BreI9OMnHPRJRkdBth4kPOY +rNSMnnZHT/aaMMDcOq/6AKkZLYoe2lBxZwCJgBPk69CMUqvuS/zIYYDYNyZp +U2bNaH2V29NQgBHGyvY2e4Q0I8mD1ru7kowg0dR7gCOiGZ3VLAnLJzDCAUc/ +p4SYZpQVY5bKcoYRvDf/2xuY0owMVZ631AQwAo1xr19jcTPKtycKKiwxwuup +2IGe4WY0+Dgwc/AfI9RF+qUnjzUjhrJ+5WAOJtg/ZU42mWxGlxjvaXyXoTJr +9K2s+WbE8qLR8ckVJvhCiIzO2W1G1l8u1NJ/ZIL58X7QEqcgtuTvTm5DTPCI +dC5HUZqCii85C4/9YIKMLpcKZjkKoh8O8a6kZQbL7t7viXgKyhysJLkdZoZg +J5pIGURB+ona46OazDB8VC7o9UkKWjHtjdI3ZIbD7nePSJ+iIK2B+XkZJ2aw +8paeXNKnoB99YjmjL5hB1GU8Yv0iBUXG55vov2GGTT3tSiELCjpkfJSxspoZ +Vm+yVhKtKCik18g6fpAZZkPCkLotBcn2BAvrc7FA7D+a8mo3CrrZNRdV4c0C +dEaCSj7BFMQX5Y1kQljAuyqRdSyUgioNmBbi4lgAf6t0XjWcgtg/ieq5FrLA +4mvNL1WPKeh1hyGjzBQLlHezvz2eSEEXIsbexi2zwMmGFBI8paBtfUdrOhpW +aL9dOXToGQWd+RhU+1WQFa7e1MymSaeghbZy77hzrHArO+wN00sKSnioJUt3 +hTruJtyRm0NBmO7nfhcHVlD7GKeikUtBj1t/kfSCWWHr5f6Bc/kUpBbmNV4e +ywrZE6+lKAUU9O00YzTuOSu08aq1qryhIPwHkQXaKlYwN8yT/VZMQYMhec9c +WlnBJ9x2DldCQb7aanpf+1lBfalmv/U7CuqinM8pX2KFVl/D6ndlFOQVPGqC +22UFVdZcrLOcgsROOTDGcbDBvN3A0S8VFOTWHGjtIsMGOa8MSj+/pyCRyVNM +f0lsYF6eNZBfRUHtdKy5ZGCDY0e36B5UU5A0RCyFXWSDDR2VEPpaCvp8xSCe +x5YN3Acmpkup/MCH98gTdzYQatWwtqqjoKHKeN/McDa447f5Nr6egoKHTKUU +EtngzdblWPEGCiKtH/hQlMkGg8T7zzKo/E1gxEGtiA0otbd7hBopKOK/VO7a +ajb4l39V/SGVj16weqvVxga+Hle/LFB52l3C9GM/df2F1BKdJgqKi57cNJxg +A84LOh+fUvnEm+zUod9ssJeUgBun8kKn/Umrber6dvUtos0UlDwv/+MHCztY +7uUsMaLyaY75MKe97DCWWv/bh8qr8oVKK+LskJGm9CCVyi903LrvKrMDy2SW +7TsqG9iTPGmPsQObdVBuA5W3g1f3h2qzwyBByYBC5VdZZVVcF9jBLZjhYh2V +TZq8reKt2AGX7fXxDZXpJ44xCDuxg/LEdv4TKr+h/ffyhTc7qMax0XlS2UKs +Tk8umB0oHOIdp6nMhvx/F8aww3x8Mz8/lcssNGMPpbFDhG3AcA/Vv2tkpsPV +eeywlvxLOpzKvMkfhjXK2UGDGL+pRuWaiof325rY4fO2sMVXavwcBvUlznez +Q0GqtKEXlfevcVEGvrLDH3/TUVYqN+/tvnHlJzsc7bNiiqHmx101lnPqLzv8 +9l7t5KGyqJFxkQM9BxQxfVIPpubXO2po3UuYAyZvGwkZU/OPK0x+tivLAWml +EfEF1Pro6bCA4P84IDlE4cO/GgpSYh8PiT3LAfca5m8EUOtrWC5TQfAyB8yO +doyXUesv5LTtp3Q7DlAYD5WZoNbn96CfAgW+HPBy+KSsSCVVPzJfV6pGcMDy +N9kFJWo9H2t0vvI+iQNyv5XFqlLrPZ7mT9aHYg5wdh2KxpVSkM69LdWJSQ7o +yn40nVJEQX+TqgdvLHHA2s7fw9ep31tG+QPy4g4H+H19ESVZSEE7q/RNOwKc +cI/i6BL0moKKXDmM9utwQmJTmsdoNgV9fMrvnW/CCQxBQ5+OZ1H1rUkw7eQ1 +TuA+Zt8dk0FBggfkfjk+4IRHjfnjB6l6EVivFVD/jhNeRtrvlFP1JvWX/iuT +RirfytWlJFBQ+d4Ln351ccJiorpnaxwFzd+wFhKY44QAjdP3i6Ko9cP34O1N +CS4gc+6VZqXqm6t68NCuChfcL28SpwRR0EPbiN2441zAO39O1TuAgmork/Vq +zbig8UdpWf19qn7alE/wP+YCIoGR7qsHBW2+XeKv3uKCZoNIVg1LCtozun7E +kJUb/P4z6bhmTkHKLDRW0wLcwHzpurAPVa9tzLle8xK5Qeehy91oI6r/DAqa +tvbc0HprhlVXm+qP8TUP7j5uCGraK0WrREHP7zn8xJvywJ/t4xnVS80IX8e6 +HmLBA1nuPD/oF5pRHUMO45gND5geEGo6+bMZfYuYFItw5YGzP/Y45o43I5F0 +C9PZMB5QDOyRlOih3sdNBk3Pq3iAXq5gu5x6P8ZwqqbySfDCK7N94m8dm5GE +4ee8G7K8wPzRrOCAfTMqSnCtqFPmBaMaUr63TTPqEs3vdT7GC6XbLEK4S82I +i4hjb7/AC2mCn24TtJvRQ5P9XgEhvJAqlY/fL9aM/NO2z6/M8YJC+nVak44m +dA5f7qbwhxcmP5Up8VP7C5H6W9HWG7ygb2/1va2hCVWO/+zqYuSDTbrtdbny +JrQsPWSQL8IH4ttOz1++aELWr9+dsT3HBzKiOknZt5vQiQpnncG3fOBgeU/z +u2AToun5BlV3+cGHpvlqpXEjwnnYel2Q3wvSvRll8t71aHL1iQl7tQCc1/j7 +2Ea5FulO3fSJcdsPjSfyfD7uVqKzk1EKIiKCcO++S/7uRin62Wjt+yFfCA4G +B/2JdHqLlHn7D2pYHoT60yFtXB2FVD1ZvTryRwTeLOXq4n6/Qtrzl9YkjMWA +M67mrolDJkrdE9DzwEwMqlenxN1NM9HKsbzCkctisCgWZpWskYnSH27ZJViL +wYhYX4qAcCbalHk2yOoqBmZaXLOFHRnotfXXisWHYiBTsVfCkZSBeAYtyTV1 +YiAmRVrYYnmBBhuu0V5SFIeGutnH1WVpaPHEsKCPijjcUtvM/JyYhpjrDVTT +ieJQlEAr8887DR2qPWr3Q00cxt8eMUtUT0Nx73k63LXEoU2pqHywIRUZlFQl +hl8RByEnxcSAnhREydqDr44Sh4hd8d5zjM/Qu9CmK2Kr4kCX9NZa/FUiytFt +3x+yLg7Cl3d5bkUkoqccnz/Pb4lD0nXhkRG3ROQbNXbqPZ0ERFjZPFs/mkjt +dzaVTXgk4Ob82UcGnU/Q+Ev8briCBKT75Gm5bSQgrpZnaWtXJaAxWE2PdDUe +2TJ6fuvslIDjFn7F/B4xSFC0dWCrWwJWD2Q7BVnGoE61g59k+yRAusQqmlUv +Bh1ybK72/yIBk+znZk9LxCCmnr3Jh2YkwMoiuuJFdzTKSi81TqWVBKtJcksF +KRpNHltvc1KVBMHD7x4qMkahRGP9hqeHJaG9VNSyYOox0ndJr2g5KgnGSQ+/ +Stc/RiUvTueIn5CE6BppqXtej1Ega1JQ3xlJ+GT7KKxqJhJJDRyB43aSEJrI +fiT0UwSycb/3juOpJFxUnRQsfBeODhFH38mlSAJpoPxKc3w4YluG0lPpkpDv +2L6+4RmO3rgxlflmS0Kjx9ZY9aFwtO0aXb5SLAlOl9f0CyoeogSXl+9H2iWh +IIPxiFhzGGp17Kl/vSMJSftzXKuXQtAzxUMNrTRSIBdVununLwS5ziU2/KCX +Aq6AxptnK0KQgOOVRjE2KajkUQ0+6xeCrB1mm+IEpMC7L+N1El8I2r6x20JW +kYK3WzlxukeDkYqdQqf+VSkgyX3xjUwJRKM3RF3yr0nBoVm3Y/7+geiRIz8P +l70ULD4b/h5rF4hm3bbOf3KWgkxGiygeYiDKILf3nSdLgXXQmVbHDwFoX4zD +V5MnUiB0dMUhedMf7VblzVl1SIGCIhufnIcfKqhNi6jvkoKGCmnvPHM/ZN4Q +qyzRKwXKBbEfT2v5oYqWe64Tw1Kgejh3uEfAD936rLdyfUYKPkAyo9x7XzQ9 +/WvrJr00bNGyaL5n8UWf+BTZPY9Ig3d8YUK1kw/CnJxmk9WloTu/dGpQ2wcV +tBS0NFC7MmHTanERCR8USSYE8pyShvbyu13SA2Sk/+PQTp6hNLS+EhXEaZBR +W8WJ3+MO0vDpuZtou8Q91Gxl2nMuVRrensx1ebPrhVTfJxbdeS4NZrL/iptG +vVDm3uHHqZnSELz2xfdftRcKbDPXn8uVhiZvZ9Vxshc6qWrdHFImDcsPbE/b +bt9BdcxOZTVd0lCqYNimQXcHvS/wT1akx8F/JVI4J1lPxKRvLPiECQczo0NV +Uaye6PysTBItGw40lLGELz890LRkR0I/Dw5oCpddfuR7IP6kfTG+IjgQc+80 +//ifB3IIeB3aewQHoaaLlqX6t5CQWb8n2RUHrmpfw5bj3ZDtas7Kj1s44HUT +Miu+54aKYu7dOn8HByyfl6Pjrroh7Q4xN9x9HAiHe5bUKrmhWycdHLvCcZA6 +PljwusUVtSvS2Ei9xEG7w3J6Pa0rukcrf+7jVxxsWaRbVwk5oR+a7IO47zgI +kyBnCi46onOhc5Z+kzgIltauKG5yRFLchS6HfuFAJHfA/LGzI/oorPo4fR0H +7nOzqX+aHJCIGtbpwS8Du3emThPIN1GDs6H+QR0Z4HAdPNDHZ48Ui0m9d/Rl +gGR6cX513g4lrO4x/2wgA8qF45unW+2QA3nAIcREBlLpy78G+tqhPQ/Nw5ds +ZABlp/ueWbJFtlm2bc33ZUD1M3/74pfriG3k7mnnEhlwO9RUu9Njgw7decX5 +uEwGctJr07jKbNBVvsHPhZUycOi00Amtpzao/PR/Fkt1MrAueFJM8qoNsn33 +282jg3qeIpmGZ4vWqD7yWvLdHzJgbMGbYCNgjbxOnF0I3i8LHWE9uTiyFcoc +Ib99KSQLA/XR3M9trNCnO3leH0RkwUnE5Ki6nhXCFbDQs0nLgofxbb1eQSvU +I9i4L4IgCyh07yOuO5ZIeeXwiVhdWaicGCx+w3gFTWWLx6WRZeGnsR+YnruM +5gK/b9D7ygL5zkd5D8nLaNn6uaV9gCyIXPfK6fl7CdGIiisQHsqCDNsQ88XU +S0jwiVhDwxNZcAzew+2xeBGdCxFdnCqWhWrTooMv0s1Qld1BfcVZWVBsUsvM +VjZBjVpfi6LmZOHdjuDT26wmqE0yZd/qb1mI8tzY82DSGA2MCU9U/5UFKc9E +J7VkY7RsKnzXgEEObHpuh2iyGyPZ00I57qJywBJ3Rt9/1QjFyR5gqDCWAy1d +vpcZi+eR+RXcywkzOaCX2XSh7T2PpOJIulzmcpA54dUTWnYeleyeibKxlgNG +07vx/A/Oo95+f2EuFzlIfhgA/DznEX/QnKpNqByQrQ/VRRw5h2K+117nfC8H +9yLtNg8ankGX9nWwqNXIwazXLuGuxBkkcWY4z7peDjaLvSUO/tFHxeUrS2Ut +ctA2Sar8L14ffX4sd9+6Vw5wTd8LX47oIV4sNqFsXg6uepmbIS9dFPXUtuWq +mDy83UjiHBjTRndu+98iS8rDJbFRbqkKbXTFMFX0CU4etoXX4nJjtJEiW/+d +j4rycCxXYs36lDZq9daSPXxEHoqGLw57vTmF6C5KhXEYysPqoqXseqQW8tw3 +rlsWQLVH0Spnb2kg8z87f7uD5aFTYA8RM9JAmp8OZMyFyYNPUFHXFZIG4gs5 +vyUeJQ9/lU8M41dOooK/dXmPnslDV2zUGo/XSTTTl8Zh/U4eZOT+HggLPYEu +xVl0ckzLQ4HSoVP68QgJv2UTcvgpD4tpLYbfLyM01l1m1zovD0MXyvP6JRC6 +xs1HG7wiD08ZLXfGijDk/JBC2qVVgLDWfBuL3uPI31claUlYAUJLNmpD5NXR +K0faa/2GCiDsUyczue8IcgwveKNqogDaxw/X355VQ8q5l3diLirABXLKgNl7 +NVQ8/S7BwEoBaioWI1mt1FCV9c3WD04K8Cd2u487/zDqMutRfh+qAJ20Hue0 +jQ+hdc2sjbQaBVD8MbiCfSEh8vu0gKZ6BeD6ZOBvUU5CNMSnnLNNCvD3D3Gu +JJ6EmEUfixPbFQBy7Bg4z5OQwIaXTtOAAphtJstebCMiUr5+0syiAuSlfCs+ +0EJAzntX1AiSivArTPSXXKcKWg5faDDGKYJuLX+YXbwK8qSb1b8rpwhnE2Zs +6C1UEPn3V6tGFUUw2n813mheGYW3toQaqyvCO0KY5yk+ZZTjkzzobawIB0vV +GHYcFdHE1EmvhhBFsNVuKme1lkMn0zpfyIcrAghUlCrh5VC62aWOmEhFyJWS +58j/J4uutLtJ2MQrAo1/m9n7Z7Jo+E36R/oMRVj6ujHL+FUGfb73T0yrRhGy +3pw07nbCoQbeytaWFUXIdDbRv/pREom3a62orCvCjeVvTQOZksg3sFskcUsR +pEONuBN9JBG2NnPLnk4Jfny8JrqiIokqR/aJsPIowdfnU2SORAlU/NLTXVdB +CZInOHFGnuLoxXGCUMdVJRjgVhxhbxBBDWfZArauKUHvng6W6hARNG458VPO +Xgl2KcFtfWdEkKR/fGWwsxK8zn5me+zLQZRJ2bgI96jj4q6vmjaFUZZBQ+Lb +OCV4zLa/AekLoZyrRgJPW5RA56a/8yPV/eiDu+L9D21K1PuN99oG4340E8D4 +42+HEly9Pe9bObAPyWaXvTPqpc7v4/53iLwPvfopZMz5XQlu2rP2sLYKoNxb +k7G+m0pgYDq/k+a2F+UHefLaKSmD1cJmKM0WH5pTt/APwisD+/Onbrn9fEhx +RfNPBkkZ+qwiOuKL+VCu9Z6+b0eUwW6DS17FgQ/loLeJl04pA0vqyUyrMV6U +ubEoetZSGYjVbfLWPTzoqZOj8n/RyvBZZzxFrZMTDUtdSDOKU4aeIyxwMY4T +HRg5xuP+RBm6l8Q7Jy5xokRd9uWCFGXIj97/lTTLgeJlct/J5lLtjdP1XrNx +oKjv0+rCjcrwYpNOxNaKDYUY2+jRryqDx7VPlW6GzOiFwYj59XVlMLFQ78gW +Y0ZVOsbOLVvKEND3+yT8ZkLLx7Wjw+lUQLcm/HpKBBMyxykM8POoQLQcKM51 +MiLi2rK1lIIKPLvitKFuw4DOLDl4BCurQGvmgJ31YQZk/2syaIagAmqilH/f +2BlQylh/zms1FbAe8aadfkePWD5ULqieUgFCa94BBi56NJrof1frqgoESnBr +rnTQoo2YrfCX11TAR4/xlOVLWrQnwiOF1V4Flml3LQ/40SIdP9u6DmcVaHT5 +6eP1Hy0quaHLZEJWgYK9d1g/P6dBD4/yxdg+UYGYbZ7FKZ5d7L+R569COqj2 +5pJiOvxbGI+y/Xphlwpo2d/yLPmyic09UNYe7FGBBwE9s+GZm1im5PtJ2WEV +6K3MESIf3sT2OPSKtv1QgTJRM0t96w1sk0yvx0SDBwMePWem9jVsJsvW/Skt +nvp/KL4zlLSG9Xe2JinT42HNQHue88YaViwWNWPChAcLpznFOJY17GaTcPBL +Djx4vDVlZ9b/iw2xH6o/fQAPFf3egksTKxhFNWlmRJBqr3FX8G75ClZisc3t +JowHn5isBbOIFSyqsOFKkigeEscPPNmrtoKdNjLYnpXGw+My92rv6D9Y+VP7 +w+FEPOQyhnjaGS1jiXLJ+R16eBATreEb5V7EVv6cygo4gwcj1qAF8/7fmEHN +8rMjBnh4M9NImxLxG2My0n2UZYgHbqWVpdWdBcyTvHHT5yIe7vMZzE9PzWOG +n0xllezwYCMvkve++xdWkEQvNmGPhymVybDq6F8Y67XCfUk38aA4f9BFz/AX +VrfOxMzojIfG40LtTH0/MRWJ0qkRDzyY7dV8N/JtFuPw3JPxyB8PHNZGqfy8 +M5g9qnt6MhAP9h41vEZD01gjq2PMehAeJPhpvThfTGN3Uxv9roXhIfbIrshv +1WlstsXdSj0KDxeZI8/pWv3AKILdB+dS8BD+IBIefpzEHtRFJOpV4KHvyqL8 +2Mp37OfXuriNSmq8q37XerR/x0y2/kS9rMLDW3f/69dffMcUD10Ko6/DA6Yn +sXDh/HdsMA939z0FD/KB2U/M3n7DiE9qLyv04kGdsfTnS64xLKVk2XSoDw+P +TForwyijGMtn6QshA3g46i18hv3BKDbG8Uh/YhgPTnGv7s8sfcUe+ZsdT/6O +h8FxP+7p0RHsh9OSCPtvPLwe3/o50juMnQ+XEqpYxIO0VZyuZMIwVpVjus9u +GQ+XJslZq6bDWOxENXfjKh4YZHQKj3wdwuDiQ5p723jIuVgCoguD2FNNyfGf +rATYY+O1/4bsAHZGyDirTYoA96fOXM5f68ESJ5XrLuMIkMbVVR3W3oNN5rN8 +mZMhwIeJdJvGtB6MDFU83AoEsMjTitTT6cFeX5ckGxEIwL0wjZLTP2Nsb5YM +R44TgOsOMznZshsz8W53ckIE4HPoN15T68ZenMwK/QcE4C1ms87i68aO9JnV +iGkSwID9xt1VShdmv1krd12XAMwYV4cRqQtr0YykWTAhQHRK1Z8t1U6Mj8te +6IEZAeoTXXxtljqwKwMnDvFcIsCwtELH5YIO7O+NVQeiBQGOCe7n2pTrwHCP +zQdu2xAgJUGK3CHzEQscki/YdSHAvb/lQUPqbdgJ55bLvGEE+G5Iz4U1U7DN +wdlTTQ+p52EpdTaNoGAlGhzEO48IcN5oW2fFmILhDpxn+fqYAMebRwffzjRj +HE3DJTkJ1P2O2b6X39OMDR5Y4IRMArw2ZbtB59+IxQTybCxnEeBRwcCzzvON +mN5v4mTWSwJcZHi8wyHRiNU03alkzyNAFGI+MdLYgGW60NoNFBFA/FgY7hVH +A+bavKfOuZYA2gumS9LFdZg8/nCeeD0Bsl8ffJ8eWodNPL2Y0NtAgJuS/yLv +W9ZhJq6pjkcpBPAjd3RbctVh6kKyB5g6CED3EK944nsNxuJ2zD1lmAC1ImlW +tY+qsDRha6mPqwSQbxZmfWVdjh0lKShbrxFAMhnRnZErx3p1Vg6vrxOAtW03 +1H2xDGO5E6wntU2A1NW+ieO+ZZhrd647mY4IT3rM2sqySjEI/lOnyE2EBDFn +AwPmd9jws6q2Bh4i0Hfjfkb0lWAeb4N6zfiI8AGpph7PLMFyvu2bCdxLBNuQ +Zz5zJ0sw3mPq3F+FiPA7rKLUKegtNv470CJCljr+F9MkiBRjZKazdpLyRDjI +yhjE96cIEzi4z61CgQiWJUk3TD4UYbq6rwKnlIlgeGSqjs6jCCvO7Mg7/h8R +jj/SJ/d/eoMFXBTYnD9BhIpiryJHQiEm1fgy4exlIkhq3Twp3JuLdSquZ46Y +E0F02TmoJS4X80o4/fbmFSIEHhBPoTPJxdpvzH4KvkoEq378TcnhV5g7jwJr +rR0RDjQNTs7P5GC1FgX3VDyIUPjdtPi56EvMvuVfWLUnEQI0OzirZ7IxPoJB +ot4dIjgX0gwYF2djtgyLJXZ3iSDSWH5z61Q2xpFHWEjzJYIe3VHhDc8s7NJ6 +iRVPBBEOb+2bHprNwBisGV1SI4kgYfGceK4yAytoN/ZRjCICGw0PhRSegdGm +/U06HUvlv170SDkDy9FS6/FNIsLLKuV/et4vsNWY91pLWUTQqP15/Y7EcyxK +qUH+cw0RPBJs7a7cTsFy1C6z+tcRgexQcuO4XApWq7EyTWggwmjkJMvYyDNs +4SIuK7qZCNq1rs3Wp55hesEPRc9/JIJv94+yIxLJGNOY4Z6uISKslfVvp24l +Ygd//lp+8IXq3zx+q6ciEVNdDexW+UqE0ug+zjdeiZgNe1nk429EMCCAgOn6 +E6zusBCrwTQRNIM4Of/bTcDuRU3sdKxQ4+fbKTAmF4/FJJNHfP4SAd9VqN25 +FIflZu99r7ROBIxRqkG/Mg4brNL2itiixod2aN+yfhx2aDZvWZ+OBJc0l+LL +vWKxxRMe0+3cJAiwVgjnnY3GbP8wdLfKk8ACv9j143QkdiVXs9NckQS5WWem +xXYiMJOrge2/lUhAZx/BzlccgZ36RE/ZSyDBeOjZET6RCAyXR/f+6mESRBRK +0l39F45NWdNkbWiQ4LDTOaXO0TBs5AC8eKRFXV/KLbsiJQzr7XqQJqpNAsUb +DzU0LMKwJmw3SUuXBMcddqUVRkOxTMF/kdHnSEC4PjklPR2CXfu85SVnQQLJ +bQHLuD3BmHnYsdtVV0hQyG+Q934kCLsA924ZWJHAakXe0yErCNMs2HTytKHu +V67ka6kWhEk93LCuv0GC+Nw1hjvXArGJE2v6F2+ToN+lSvdirz9mXbQsFvaY +Oj92dVCE3Rdz9Dfa1o2mno+rL6Ki8gHmaVQywBFLguehxAGC1QMsdNUzMiqB +BORf149zFtzHCo5sbD1JIQGq4EiUMfbBNup3+7PzSNCwppZU33kXo4u1KrbP +p9q72+wM+N3FOK7VR8gXkmB97dtY4393MRGmAM2CYhKwCJuo8ad7Y5q6TMXv +KkhweyNOzOi+Fxb1mSOiqYUEw36n5P0sb2NPM5zsg1up82myOn+L3MYyPDo1 +TreTQMf+UiffmCdWKhC12d5JAlcL5jPOVz2xkUv89j19JIgrvH1B29kDk5k4 +oDE+QYKfAgZOS9nuGL7krkjmFAn6zMtufnR1x44Gfdm4Pk3N5xGjRHTMHdOX +SXkz+5MEN/oV9850u2HuDmIiS0skWKLJ89zL5IaR1f02iv+QYO76emlQrysW +xDne67FKAoX50Hd+Ga5YYmFG+Po6CYQf4HYENFyxF74MdpWbJBC0OHoxn98V +yzt//SR5mwT2pvsIsa0uWIkE5SD2jwT5nuhZr6MLVvMHt7G7S4L0dFdxYV4X +7H/zpXyA + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.17791060319940644`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.17791060319940644`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8V98fx+29lQrZPjaf4Vsq3fMuJKMUGRURhbJFUR9lj0R2JKOMRIhk +ZY+PEJEtUUYohMjO7/P7597H83HO+5zzHvd13lfc2sXwOh0NDc1J6uP/75T7 +1kyEa8nYZoayXfKwNdbUI6ZvKuaNPHp/5N/VO4F2KTUBYmJhKPpdyR0DvfMo +pS5ClFEsCYlGOSXh9K4ix+OeTmuir9Cc0KxIs64b6tmyj1sUrUBXhHK1rHT8 +EPOXcZl50VaEmZG9RzWi0fO2NLdfokPozWUuuiWl56igMOyLo/JPNMo2auXs +X4TsUHfSnPsftIQ3VWMSq0A0L/5Wfgn/g7TEM68Jq1egRAbhkbbMP+jfWIWj +pFkF+tBqK/Kq/w9aVtrtoY+qQLIXtl9cP7qClEf9zDl2K9CMvczrUdpVVL3u +5qEyXIluxvjUdEX9RaySnosXA6uQ85TcREnBBkov3bdmklWLvl0ZYqlv3UAL +dH/eqNfWIqPBUOWOyQ00Y5hZwzFUi9Tap72nBDdR5PGFzv+Y6hB9URaPQMgm +OtGS48l7pA4lksWxO5ZbKAKXxFL6rA7V8x9IOsKzg1761POGXq5HqhEfarQU +dtAJoYFkfrt6lM3kNXn+1A5iMKMPi3WvR482+lVuknfQT5P9d1zD6pHJWBzl +6cwOwnsYcqWW1qOfuTwrW3X/kPDa5ZJGrgbEJh4oM6ZGA/o5U+P7ShvQB/Vo +lftaNNCh7z97t7YBBZulHj5oSAMriwGGPR8aEF1UufZlBxrQfnQPXfvSgDb/ +zdkNpNCAenAngYmmEf0aMc75REcL7DdgR1u7EX1MlJGr+0gLPTvTNkUdjehh +iSrBcogWdo3qgt/3NaLTXSeO/JuihQds4tWVXxtRE7O5jvouLfByHLVInG9E +VbejbpQT6EDpgvzRLo4mlH9h49WbBDqQv+1FR9BpQpE87fLPrehhqmAoP7+i +CVUcPvjurDM9lMT2t0zVNaHJKy5o+x49rD6/MMbzoQkdy+e/YPqEHi6wjdJD +fxOa0TH34eykh6zHxrx0y01II2D+k/cxBnAn/BreI9OMnHPRJRkdBth4kPOY +rNSMnnZHT/aaMMDcOq/6AKkZLYoe2lBxZwCJgBPk69CMUqvuS/zIYYDYNyZp +U2bNaH2V29NQgBHGyvY2e4Q0I8mD1ru7kowg0dR7gCOiGZ3VLAnLJzDCAUc/ +p4SYZpQVY5bKcoYRvDf/2xuY0owMVZ631AQwAo1xr19jcTPKtycKKiwxwuup +2IGe4WY0+Dgwc/AfI9RF+qUnjzUjhrJ+5WAOJtg/ZU42mWxGlxjvaXyXoTJr +9K2s+WbE8qLR8ckVJvhCiIzO2W1G1l8u1NJ/ZIL58X7QEqcgtuTvTm5DTPCI +dC5HUZqCii85C4/9YIKMLpcKZjkKoh8O8a6kZQbL7t7viXgKyhysJLkdZoZg +J5pIGURB+ona46OazDB8VC7o9UkKWjHtjdI3ZIbD7nePSJ+iIK2B+XkZJ2aw +8paeXNKnoB99YjmjL5hB1GU8Yv0iBUXG55vov2GGTT3tSiELCjpkfJSxspoZ +Vm+yVhKtKCik18g6fpAZZkPCkLotBcn2BAvrc7FA7D+a8mo3CrrZNRdV4c0C +dEaCSj7BFMQX5Y1kQljAuyqRdSyUgioNmBbi4lgAf6t0XjWcgtg/ieq5FrLA +4mvNL1WPKeh1hyGjzBQLlHezvz2eSEEXIsbexi2zwMmGFBI8paBtfUdrOhpW +aL9dOXToGQWd+RhU+1WQFa7e1MymSaeghbZy77hzrHArO+wN00sKSnioJUt3 +hTruJtyRm0NBmO7nfhcHVlD7GKeikUtBj1t/kfSCWWHr5f6Bc/kUpBbmNV4e +ywrZE6+lKAUU9O00YzTuOSu08aq1qryhIPwHkQXaKlYwN8yT/VZMQYMhec9c +WlnBJ9x2DldCQb7aanpf+1lBfalmv/U7CuqinM8pX2KFVl/D6ndlFOQVPGqC +22UFVdZcrLOcgsROOTDGcbDBvN3A0S8VFOTWHGjtIsMGOa8MSj+/pyCRyVNM +f0lsYF6eNZBfRUHtdKy5ZGCDY0e36B5UU5A0RCyFXWSDDR2VEPpaCvp8xSCe +x5YN3Acmpkup/MCH98gTdzYQatWwtqqjoKHKeN/McDa447f5Nr6egoKHTKUU +EtngzdblWPEGCiKtH/hQlMkGg8T7zzKo/E1gxEGtiA0otbd7hBopKOK/VO7a +ajb4l39V/SGVj16weqvVxga+Hle/LFB52l3C9GM/df2F1BKdJgqKi57cNJxg +A84LOh+fUvnEm+zUod9ssJeUgBun8kKn/Umrber6dvUtos0UlDwv/+MHCztY +7uUsMaLyaY75MKe97DCWWv/bh8qr8oVKK+LskJGm9CCVyi903LrvKrMDy2SW +7TsqG9iTPGmPsQObdVBuA5W3g1f3h2qzwyBByYBC5VdZZVVcF9jBLZjhYh2V +TZq8reKt2AGX7fXxDZXpJ44xCDuxg/LEdv4TKr+h/ffyhTc7qMax0XlS2UKs +Tk8umB0oHOIdp6nMhvx/F8aww3x8Mz8/lcssNGMPpbFDhG3AcA/Vv2tkpsPV +eeywlvxLOpzKvMkfhjXK2UGDGL+pRuWaiof325rY4fO2sMVXavwcBvUlznez +Q0GqtKEXlfevcVEGvrLDH3/TUVYqN+/tvnHlJzsc7bNiiqHmx101lnPqLzv8 +9l7t5KGyqJFxkQM9BxQxfVIPpubXO2po3UuYAyZvGwkZU/OPK0x+tivLAWml +EfEF1Pro6bCA4P84IDlE4cO/GgpSYh8PiT3LAfca5m8EUOtrWC5TQfAyB8yO +doyXUesv5LTtp3Q7DlAYD5WZoNbn96CfAgW+HPBy+KSsSCVVPzJfV6pGcMDy +N9kFJWo9H2t0vvI+iQNyv5XFqlLrPZ7mT9aHYg5wdh2KxpVSkM69LdWJSQ7o +yn40nVJEQX+TqgdvLHHA2s7fw9ep31tG+QPy4g4H+H19ESVZSEE7q/RNOwKc +cI/i6BL0moKKXDmM9utwQmJTmsdoNgV9fMrvnW/CCQxBQ5+OZ1H1rUkw7eQ1 +TuA+Zt8dk0FBggfkfjk+4IRHjfnjB6l6EVivFVD/jhNeRtrvlFP1JvWX/iuT +RirfytWlJFBQ+d4Ln351ccJiorpnaxwFzd+wFhKY44QAjdP3i6Ko9cP34O1N +CS4gc+6VZqXqm6t68NCuChfcL28SpwRR0EPbiN2441zAO39O1TuAgmork/Vq +zbig8UdpWf19qn7alE/wP+YCIoGR7qsHBW2+XeKv3uKCZoNIVg1LCtozun7E +kJUb/P4z6bhmTkHKLDRW0wLcwHzpurAPVa9tzLle8xK5Qeehy91oI6r/DAqa +tvbc0HprhlVXm+qP8TUP7j5uCGraK0WrREHP7zn8xJvywJ/t4xnVS80IX8e6 +HmLBA1nuPD/oF5pRHUMO45gND5geEGo6+bMZfYuYFItw5YGzP/Y45o43I5F0 +C9PZMB5QDOyRlOih3sdNBk3Pq3iAXq5gu5x6P8ZwqqbySfDCK7N94m8dm5GE +4ee8G7K8wPzRrOCAfTMqSnCtqFPmBaMaUr63TTPqEs3vdT7GC6XbLEK4S82I +i4hjb7/AC2mCn24TtJvRQ5P9XgEhvJAqlY/fL9aM/NO2z6/M8YJC+nVak44m +dA5f7qbwhxcmP5Up8VP7C5H6W9HWG7ygb2/1va2hCVWO/+zqYuSDTbrtdbny +JrQsPWSQL8IH4ttOz1++aELWr9+dsT3HBzKiOknZt5vQiQpnncG3fOBgeU/z +u2AToun5BlV3+cGHpvlqpXEjwnnYel2Q3wvSvRll8t71aHL1iQl7tQCc1/j7 +2Ea5FulO3fSJcdsPjSfyfD7uVqKzk1EKIiKCcO++S/7uRin62Wjt+yFfCA4G +B/2JdHqLlHn7D2pYHoT60yFtXB2FVD1ZvTryRwTeLOXq4n6/Qtrzl9YkjMWA +M67mrolDJkrdE9DzwEwMqlenxN1NM9HKsbzCkctisCgWZpWskYnSH27ZJViL +wYhYX4qAcCbalHk2yOoqBmZaXLOFHRnotfXXisWHYiBTsVfCkZSBeAYtyTV1 +YiAmRVrYYnmBBhuu0V5SFIeGutnH1WVpaPHEsKCPijjcUtvM/JyYhpjrDVTT +ieJQlEAr8887DR2qPWr3Q00cxt8eMUtUT0Nx73k63LXEoU2pqHywIRUZlFQl +hl8RByEnxcSAnhREydqDr44Sh4hd8d5zjM/Qu9CmK2Kr4kCX9NZa/FUiytFt +3x+yLg7Cl3d5bkUkoqccnz/Pb4lD0nXhkRG3ROQbNXbqPZ0ERFjZPFs/mkjt +dzaVTXgk4Ob82UcGnU/Q+Ev8briCBKT75Gm5bSQgrpZnaWtXJaAxWE2PdDUe +2TJ6fuvslIDjFn7F/B4xSFC0dWCrWwJWD2Q7BVnGoE61g59k+yRAusQqmlUv +Bh1ybK72/yIBk+znZk9LxCCmnr3Jh2YkwMoiuuJFdzTKSi81TqWVBKtJcksF +KRpNHltvc1KVBMHD7x4qMkahRGP9hqeHJaG9VNSyYOox0ndJr2g5KgnGSQ+/ +Stc/RiUvTueIn5CE6BppqXtej1Ega1JQ3xlJ+GT7KKxqJhJJDRyB43aSEJrI +fiT0UwSycb/3juOpJFxUnRQsfBeODhFH38mlSAJpoPxKc3w4YluG0lPpkpDv +2L6+4RmO3rgxlflmS0Kjx9ZY9aFwtO0aXb5SLAlOl9f0CyoeogSXl+9H2iWh +IIPxiFhzGGp17Kl/vSMJSftzXKuXQtAzxUMNrTRSIBdVununLwS5ziU2/KCX +Aq6AxptnK0KQgOOVRjE2KajkUQ0+6xeCrB1mm+IEpMC7L+N1El8I2r6x20JW +kYK3WzlxukeDkYqdQqf+VSkgyX3xjUwJRKM3RF3yr0nBoVm3Y/7+geiRIz8P +l70ULD4b/h5rF4hm3bbOf3KWgkxGiygeYiDKILf3nSdLgXXQmVbHDwFoX4zD +V5MnUiB0dMUhedMf7VblzVl1SIGCIhufnIcfKqhNi6jvkoKGCmnvPHM/ZN4Q +qyzRKwXKBbEfT2v5oYqWe64Tw1Kgejh3uEfAD936rLdyfUYKPkAyo9x7XzQ9 +/WvrJr00bNGyaL5n8UWf+BTZPY9Ig3d8YUK1kw/CnJxmk9WloTu/dGpQ2wcV +tBS0NFC7MmHTanERCR8USSYE8pyShvbyu13SA2Sk/+PQTp6hNLS+EhXEaZBR +W8WJ3+MO0vDpuZtou8Q91Gxl2nMuVRrensx1ebPrhVTfJxbdeS4NZrL/iptG +vVDm3uHHqZnSELz2xfdftRcKbDPXn8uVhiZvZ9Vxshc6qWrdHFImDcsPbE/b +bt9BdcxOZTVd0lCqYNimQXcHvS/wT1akx8F/JVI4J1lPxKRvLPiECQczo0NV +Uaye6PysTBItGw40lLGELz890LRkR0I/Dw5oCpddfuR7IP6kfTG+IjgQc+80 +//ifB3IIeB3aewQHoaaLlqX6t5CQWb8n2RUHrmpfw5bj3ZDtas7Kj1s44HUT +Miu+54aKYu7dOn8HByyfl6Pjrroh7Q4xN9x9HAiHe5bUKrmhWycdHLvCcZA6 +PljwusUVtSvS2Ei9xEG7w3J6Pa0rukcrf+7jVxxsWaRbVwk5oR+a7IO47zgI +kyBnCi46onOhc5Z+kzgIltauKG5yRFLchS6HfuFAJHfA/LGzI/oorPo4fR0H +7nOzqX+aHJCIGtbpwS8Du3emThPIN1GDs6H+QR0Z4HAdPNDHZ48Ui0m9d/Rl +gGR6cX513g4lrO4x/2wgA8qF45unW+2QA3nAIcREBlLpy78G+tqhPQ/Nw5ds +ZABlp/ueWbJFtlm2bc33ZUD1M3/74pfriG3k7mnnEhlwO9RUu9Njgw7decX5 +uEwGctJr07jKbNBVvsHPhZUycOi00Amtpzao/PR/Fkt1MrAueFJM8qoNsn33 +282jg3qeIpmGZ4vWqD7yWvLdHzJgbMGbYCNgjbxOnF0I3i8LHWE9uTiyFcoc +Ib99KSQLA/XR3M9trNCnO3leH0RkwUnE5Ki6nhXCFbDQs0nLgofxbb1eQSvU +I9i4L4IgCyh07yOuO5ZIeeXwiVhdWaicGCx+w3gFTWWLx6WRZeGnsR+YnruM +5gK/b9D7ygL5zkd5D8nLaNn6uaV9gCyIXPfK6fl7CdGIiisQHsqCDNsQ88XU +S0jwiVhDwxNZcAzew+2xeBGdCxFdnCqWhWrTooMv0s1Qld1BfcVZWVBsUsvM +VjZBjVpfi6LmZOHdjuDT26wmqE0yZd/qb1mI8tzY82DSGA2MCU9U/5UFKc9E +J7VkY7RsKnzXgEEObHpuh2iyGyPZ00I57qJywBJ3Rt9/1QjFyR5gqDCWAy1d +vpcZi+eR+RXcywkzOaCX2XSh7T2PpOJIulzmcpA54dUTWnYeleyeibKxlgNG +07vx/A/Oo95+f2EuFzlIfhgA/DznEX/QnKpNqByQrQ/VRRw5h2K+117nfC8H +9yLtNg8ankGX9nWwqNXIwazXLuGuxBkkcWY4z7peDjaLvSUO/tFHxeUrS2Ut +ctA2Sar8L14ffX4sd9+6Vw5wTd8LX47oIV4sNqFsXg6uepmbIS9dFPXUtuWq +mDy83UjiHBjTRndu+98iS8rDJbFRbqkKbXTFMFX0CU4etoXX4nJjtJEiW/+d +j4rycCxXYs36lDZq9daSPXxEHoqGLw57vTmF6C5KhXEYysPqoqXseqQW8tw3 +rlsWQLVH0Spnb2kg8z87f7uD5aFTYA8RM9JAmp8OZMyFyYNPUFHXFZIG4gs5 +vyUeJQ9/lU8M41dOooK/dXmPnslDV2zUGo/XSTTTl8Zh/U4eZOT+HggLPYEu +xVl0ckzLQ4HSoVP68QgJv2UTcvgpD4tpLYbfLyM01l1m1zovD0MXyvP6JRC6 +xs1HG7wiD08ZLXfGijDk/JBC2qVVgLDWfBuL3uPI31claUlYAUJLNmpD5NXR +K0faa/2GCiDsUyczue8IcgwveKNqogDaxw/X355VQ8q5l3diLirABXLKgNl7 +NVQ8/S7BwEoBaioWI1mt1FCV9c3WD04K8Cd2u487/zDqMutRfh+qAJ20Hue0 +jQ+hdc2sjbQaBVD8MbiCfSEh8vu0gKZ6BeD6ZOBvUU5CNMSnnLNNCvD3D3Gu +JJ6EmEUfixPbFQBy7Bg4z5OQwIaXTtOAAphtJstebCMiUr5+0syiAuSlfCs+ +0EJAzntX1AiSivArTPSXXKcKWg5faDDGKYJuLX+YXbwK8qSb1b8rpwhnE2Zs +6C1UEPn3V6tGFUUw2n813mheGYW3toQaqyvCO0KY5yk+ZZTjkzzobawIB0vV +GHYcFdHE1EmvhhBFsNVuKme1lkMn0zpfyIcrAghUlCrh5VC62aWOmEhFyJWS +58j/J4uutLtJ2MQrAo1/m9n7Z7Jo+E36R/oMRVj6ujHL+FUGfb73T0yrRhGy +3pw07nbCoQbeytaWFUXIdDbRv/pREom3a62orCvCjeVvTQOZksg3sFskcUsR +pEONuBN9JBG2NnPLnk4Jfny8JrqiIokqR/aJsPIowdfnU2SORAlU/NLTXVdB +CZInOHFGnuLoxXGCUMdVJRjgVhxhbxBBDWfZArauKUHvng6W6hARNG458VPO +Xgl2KcFtfWdEkKR/fGWwsxK8zn5me+zLQZRJ2bgI96jj4q6vmjaFUZZBQ+Lb +OCV4zLa/AekLoZyrRgJPW5RA56a/8yPV/eiDu+L9D21K1PuN99oG4340E8D4 +42+HEly9Pe9bObAPyWaXvTPqpc7v4/53iLwPvfopZMz5XQlu2rP2sLYKoNxb +k7G+m0pgYDq/k+a2F+UHefLaKSmD1cJmKM0WH5pTt/APwisD+/Onbrn9fEhx +RfNPBkkZ+qwiOuKL+VCu9Z6+b0eUwW6DS17FgQ/loLeJl04pA0vqyUyrMV6U +ubEoetZSGYjVbfLWPTzoqZOj8n/RyvBZZzxFrZMTDUtdSDOKU4aeIyxwMY4T +HRg5xuP+RBm6l8Q7Jy5xokRd9uWCFGXIj97/lTTLgeJlct/J5lLtjdP1XrNx +oKjv0+rCjcrwYpNOxNaKDYUY2+jRryqDx7VPlW6GzOiFwYj59XVlMLFQ78gW +Y0ZVOsbOLVvKEND3+yT8ZkLLx7Wjw+lUQLcm/HpKBBMyxykM8POoQLQcKM51 +MiLi2rK1lIIKPLvitKFuw4DOLDl4BCurQGvmgJ31YQZk/2syaIagAmqilH/f +2BlQylh/zms1FbAe8aadfkePWD5ULqieUgFCa94BBi56NJrof1frqgoESnBr +rnTQoo2YrfCX11TAR4/xlOVLWrQnwiOF1V4Flml3LQ/40SIdP9u6DmcVaHT5 +6eP1Hy0quaHLZEJWgYK9d1g/P6dBD4/yxdg+UYGYbZ7FKZ5d7L+R569COqj2 +5pJiOvxbGI+y/Xphlwpo2d/yLPmyic09UNYe7FGBBwE9s+GZm1im5PtJ2WEV +6K3MESIf3sT2OPSKtv1QgTJRM0t96w1sk0yvx0SDBwMePWem9jVsJsvW/Skt +nvp/KL4zlLSG9Xe2JinT42HNQHue88YaViwWNWPChAcLpznFOJY17GaTcPBL +Djx4vDVlZ9b/iw2xH6o/fQAPFf3egksTKxhFNWlmRJBqr3FX8G75ClZisc3t +JowHn5isBbOIFSyqsOFKkigeEscPPNmrtoKdNjLYnpXGw+My92rv6D9Y+VP7 +w+FEPOQyhnjaGS1jiXLJ+R16eBATreEb5V7EVv6cygo4gwcj1qAF8/7fmEHN +8rMjBnh4M9NImxLxG2My0n2UZYgHbqWVpdWdBcyTvHHT5yIe7vMZzE9PzWOG +n0xllezwYCMvkve++xdWkEQvNmGPhymVybDq6F8Y67XCfUk38aA4f9BFz/AX +VrfOxMzojIfG40LtTH0/MRWJ0qkRDzyY7dV8N/JtFuPw3JPxyB8PHNZGqfy8 +M5g9qnt6MhAP9h41vEZD01gjq2PMehAeJPhpvThfTGN3Uxv9roXhIfbIrshv +1WlstsXdSj0KDxeZI8/pWv3AKILdB+dS8BD+IBIefpzEHtRFJOpV4KHvyqL8 +2Mp37OfXuriNSmq8q37XerR/x0y2/kS9rMLDW3f/69dffMcUD10Ko6/DA6Yn +sXDh/HdsMA939z0FD/KB2U/M3n7DiE9qLyv04kGdsfTnS64xLKVk2XSoDw+P +TForwyijGMtn6QshA3g46i18hv3BKDbG8Uh/YhgPTnGv7s8sfcUe+ZsdT/6O +h8FxP+7p0RHsh9OSCPtvPLwe3/o50juMnQ+XEqpYxIO0VZyuZMIwVpVjus9u +GQ+XJslZq6bDWOxENXfjKh4YZHQKj3wdwuDiQ5p723jIuVgCoguD2FNNyfGf +rATYY+O1/4bsAHZGyDirTYoA96fOXM5f68ESJ5XrLuMIkMbVVR3W3oNN5rN8 +mZMhwIeJdJvGtB6MDFU83AoEsMjTitTT6cFeX5ckGxEIwL0wjZLTP2Nsb5YM +R44TgOsOMznZshsz8W53ckIE4HPoN15T68ZenMwK/QcE4C1ms87i68aO9JnV +iGkSwID9xt1VShdmv1krd12XAMwYV4cRqQtr0YykWTAhQHRK1Z8t1U6Mj8te +6IEZAeoTXXxtljqwKwMnDvFcIsCwtELH5YIO7O+NVQeiBQGOCe7n2pTrwHCP +zQdu2xAgJUGK3CHzEQscki/YdSHAvb/lQUPqbdgJ55bLvGEE+G5Iz4U1U7DN +wdlTTQ+p52EpdTaNoGAlGhzEO48IcN5oW2fFmILhDpxn+fqYAMebRwffzjRj +HE3DJTkJ1P2O2b6X39OMDR5Y4IRMArw2ZbtB59+IxQTybCxnEeBRwcCzzvON +mN5v4mTWSwJcZHi8wyHRiNU03alkzyNAFGI+MdLYgGW60NoNFBFA/FgY7hVH +A+bavKfOuZYA2gumS9LFdZg8/nCeeD0Bsl8ffJ8eWodNPL2Y0NtAgJuS/yLv +W9ZhJq6pjkcpBPAjd3RbctVh6kKyB5g6CED3EK944nsNxuJ2zD1lmAC1ImlW +tY+qsDRha6mPqwSQbxZmfWVdjh0lKShbrxFAMhnRnZErx3p1Vg6vrxOAtW03 +1H2xDGO5E6wntU2A1NW+ieO+ZZhrd647mY4IT3rM2sqySjEI/lOnyE2EBDFn +AwPmd9jws6q2Bh4i0Hfjfkb0lWAeb4N6zfiI8AGpph7PLMFyvu2bCdxLBNuQ +Zz5zJ0sw3mPq3F+FiPA7rKLUKegtNv470CJCljr+F9MkiBRjZKazdpLyRDjI +yhjE96cIEzi4z61CgQiWJUk3TD4UYbq6rwKnlIlgeGSqjs6jCCvO7Mg7/h8R +jj/SJ/d/eoMFXBTYnD9BhIpiryJHQiEm1fgy4exlIkhq3Twp3JuLdSquZ46Y +E0F02TmoJS4X80o4/fbmFSIEHhBPoTPJxdpvzH4KvkoEq378TcnhV5g7jwJr +rR0RDjQNTs7P5GC1FgX3VDyIUPjdtPi56EvMvuVfWLUnEQI0OzirZ7IxPoJB +ot4dIjgX0gwYF2djtgyLJXZ3iSDSWH5z61Q2xpFHWEjzJYIe3VHhDc8s7NJ6 +iRVPBBEOb+2bHprNwBisGV1SI4kgYfGceK4yAytoN/ZRjCICGw0PhRSegdGm +/U06HUvlv170SDkDy9FS6/FNIsLLKuV/et4vsNWY91pLWUTQqP15/Y7EcyxK +qUH+cw0RPBJs7a7cTsFy1C6z+tcRgexQcuO4XApWq7EyTWggwmjkJMvYyDNs +4SIuK7qZCNq1rs3Wp55hesEPRc9/JIJv94+yIxLJGNOY4Z6uISKslfVvp24l +Ygd//lp+8IXq3zx+q6ciEVNdDexW+UqE0ug+zjdeiZgNe1nk429EMCCAgOn6 +E6zusBCrwTQRNIM4Of/bTcDuRU3sdKxQ4+fbKTAmF4/FJJNHfP4SAd9VqN25 +FIflZu99r7ROBIxRqkG/Mg4brNL2itiixod2aN+yfhx2aDZvWZ+OBJc0l+LL +vWKxxRMe0+3cJAiwVgjnnY3GbP8wdLfKk8ACv9j143QkdiVXs9NckQS5WWem +xXYiMJOrge2/lUhAZx/BzlccgZ36RE/ZSyDBeOjZET6RCAyXR/f+6mESRBRK +0l39F45NWdNkbWiQ4LDTOaXO0TBs5AC8eKRFXV/KLbsiJQzr7XqQJqpNAsUb +DzU0LMKwJmw3SUuXBMcddqUVRkOxTMF/kdHnSEC4PjklPR2CXfu85SVnQQLJ +bQHLuD3BmHnYsdtVV0hQyG+Q934kCLsA924ZWJHAakXe0yErCNMs2HTytKHu +V67ka6kWhEk93LCuv0GC+Nw1hjvXArGJE2v6F2+ToN+lSvdirz9mXbQsFvaY +Oj92dVCE3Rdz9Dfa1o2mno+rL6Ki8gHmaVQywBFLguehxAGC1QMsdNUzMiqB +BORf149zFtzHCo5sbD1JIQGq4EiUMfbBNup3+7PzSNCwppZU33kXo4u1KrbP +p9q72+wM+N3FOK7VR8gXkmB97dtY4393MRGmAM2CYhKwCJuo8ad7Y5q6TMXv +KkhweyNOzOi+Fxb1mSOiqYUEw36n5P0sb2NPM5zsg1up82myOn+L3MYyPDo1 +TreTQMf+UiffmCdWKhC12d5JAlcL5jPOVz2xkUv89j19JIgrvH1B29kDk5k4 +oDE+QYKfAgZOS9nuGL7krkjmFAn6zMtufnR1x44Gfdm4Pk3N5xGjRHTMHdOX +SXkz+5MEN/oV9850u2HuDmIiS0skWKLJ89zL5IaR1f02iv+QYO76emlQrysW +xDne67FKAoX50Hd+Ga5YYmFG+Po6CYQf4HYENFyxF74MdpWbJBC0OHoxn98V +yzt//SR5mwT2pvsIsa0uWIkE5SD2jwT5nuhZr6MLVvMHt7G7S4L0dFdxYV4X +7H/zpXyA + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.17791060319940644`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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, 20}, {0., 0.17791060319940644`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913465524249306`*^9, 3.9921077262573833`*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"1029cbcc-6f84-054d-abfc-68579ab0cc0d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellLabel-> + "In[121]:=",ExpressionUUID->"b4bea72a-7a20-da43-afca-38c9d924f08e"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVl3c8V98fx+29lQrZPjaf4Vsq3fMuJKMUGRURhbJFUR9lj0R2JKOMRIhk +ZY+PEJEtUUYohMjO7/P7597H83HO+5zzHvd13lfc2sXwOh0NDc1J6uP/75T7 +1kyEa8nYZoayXfKwNdbUI6ZvKuaNPHp/5N/VO4F2KTUBYmJhKPpdyR0DvfMo +pS5ClFEsCYlGOSXh9K4ix+OeTmuir9Cc0KxIs64b6tmyj1sUrUBXhHK1rHT8 +EPOXcZl50VaEmZG9RzWi0fO2NLdfokPozWUuuiWl56igMOyLo/JPNMo2auXs +X4TsUHfSnPsftIQ3VWMSq0A0L/5Wfgn/g7TEM68Jq1egRAbhkbbMP+jfWIWj +pFkF+tBqK/Kq/w9aVtrtoY+qQLIXtl9cP7qClEf9zDl2K9CMvczrUdpVVL3u +5qEyXIluxvjUdEX9RaySnosXA6uQ85TcREnBBkov3bdmklWLvl0ZYqlv3UAL +dH/eqNfWIqPBUOWOyQ00Y5hZwzFUi9Tap72nBDdR5PGFzv+Y6hB9URaPQMgm +OtGS48l7pA4lksWxO5ZbKAKXxFL6rA7V8x9IOsKzg1761POGXq5HqhEfarQU +dtAJoYFkfrt6lM3kNXn+1A5iMKMPi3WvR482+lVuknfQT5P9d1zD6pHJWBzl +6cwOwnsYcqWW1qOfuTwrW3X/kPDa5ZJGrgbEJh4oM6ZGA/o5U+P7ShvQB/Vo +lftaNNCh7z97t7YBBZulHj5oSAMriwGGPR8aEF1UufZlBxrQfnQPXfvSgDb/ +zdkNpNCAenAngYmmEf0aMc75REcL7DdgR1u7EX1MlJGr+0gLPTvTNkUdjehh +iSrBcogWdo3qgt/3NaLTXSeO/JuihQds4tWVXxtRE7O5jvouLfByHLVInG9E +VbejbpQT6EDpgvzRLo4mlH9h49WbBDqQv+1FR9BpQpE87fLPrehhqmAoP7+i +CVUcPvjurDM9lMT2t0zVNaHJKy5o+x49rD6/MMbzoQkdy+e/YPqEHi6wjdJD +fxOa0TH34eykh6zHxrx0y01II2D+k/cxBnAn/BreI9OMnHPRJRkdBth4kPOY +rNSMnnZHT/aaMMDcOq/6AKkZLYoe2lBxZwCJgBPk69CMUqvuS/zIYYDYNyZp +U2bNaH2V29NQgBHGyvY2e4Q0I8mD1ru7kowg0dR7gCOiGZ3VLAnLJzDCAUc/ +p4SYZpQVY5bKcoYRvDf/2xuY0owMVZ631AQwAo1xr19jcTPKtycKKiwxwuup +2IGe4WY0+Dgwc/AfI9RF+qUnjzUjhrJ+5WAOJtg/ZU42mWxGlxjvaXyXoTJr +9K2s+WbE8qLR8ckVJvhCiIzO2W1G1l8u1NJ/ZIL58X7QEqcgtuTvTm5DTPCI +dC5HUZqCii85C4/9YIKMLpcKZjkKoh8O8a6kZQbL7t7viXgKyhysJLkdZoZg +J5pIGURB+ona46OazDB8VC7o9UkKWjHtjdI3ZIbD7nePSJ+iIK2B+XkZJ2aw +8paeXNKnoB99YjmjL5hB1GU8Yv0iBUXG55vov2GGTT3tSiELCjpkfJSxspoZ +Vm+yVhKtKCik18g6fpAZZkPCkLotBcn2BAvrc7FA7D+a8mo3CrrZNRdV4c0C +dEaCSj7BFMQX5Y1kQljAuyqRdSyUgioNmBbi4lgAf6t0XjWcgtg/ieq5FrLA +4mvNL1WPKeh1hyGjzBQLlHezvz2eSEEXIsbexi2zwMmGFBI8paBtfUdrOhpW +aL9dOXToGQWd+RhU+1WQFa7e1MymSaeghbZy77hzrHArO+wN00sKSnioJUt3 +hTruJtyRm0NBmO7nfhcHVlD7GKeikUtBj1t/kfSCWWHr5f6Bc/kUpBbmNV4e +ywrZE6+lKAUU9O00YzTuOSu08aq1qryhIPwHkQXaKlYwN8yT/VZMQYMhec9c +WlnBJ9x2DldCQb7aanpf+1lBfalmv/U7CuqinM8pX2KFVl/D6ndlFOQVPGqC +22UFVdZcrLOcgsROOTDGcbDBvN3A0S8VFOTWHGjtIsMGOa8MSj+/pyCRyVNM +f0lsYF6eNZBfRUHtdKy5ZGCDY0e36B5UU5A0RCyFXWSDDR2VEPpaCvp8xSCe +x5YN3Acmpkup/MCH98gTdzYQatWwtqqjoKHKeN/McDa447f5Nr6egoKHTKUU +EtngzdblWPEGCiKtH/hQlMkGg8T7zzKo/E1gxEGtiA0otbd7hBopKOK/VO7a +ajb4l39V/SGVj16weqvVxga+Hle/LFB52l3C9GM/df2F1BKdJgqKi57cNJxg +A84LOh+fUvnEm+zUod9ssJeUgBun8kKn/Umrber6dvUtos0UlDwv/+MHCztY +7uUsMaLyaY75MKe97DCWWv/bh8qr8oVKK+LskJGm9CCVyi903LrvKrMDy2SW +7TsqG9iTPGmPsQObdVBuA5W3g1f3h2qzwyBByYBC5VdZZVVcF9jBLZjhYh2V +TZq8reKt2AGX7fXxDZXpJ44xCDuxg/LEdv4TKr+h/ffyhTc7qMax0XlS2UKs +Tk8umB0oHOIdp6nMhvx/F8aww3x8Mz8/lcssNGMPpbFDhG3AcA/Vv2tkpsPV +eeywlvxLOpzKvMkfhjXK2UGDGL+pRuWaiof325rY4fO2sMVXavwcBvUlznez +Q0GqtKEXlfevcVEGvrLDH3/TUVYqN+/tvnHlJzsc7bNiiqHmx101lnPqLzv8 +9l7t5KGyqJFxkQM9BxQxfVIPpubXO2po3UuYAyZvGwkZU/OPK0x+tivLAWml +EfEF1Pro6bCA4P84IDlE4cO/GgpSYh8PiT3LAfca5m8EUOtrWC5TQfAyB8yO +doyXUesv5LTtp3Q7DlAYD5WZoNbn96CfAgW+HPBy+KSsSCVVPzJfV6pGcMDy +N9kFJWo9H2t0vvI+iQNyv5XFqlLrPZ7mT9aHYg5wdh2KxpVSkM69LdWJSQ7o +yn40nVJEQX+TqgdvLHHA2s7fw9ep31tG+QPy4g4H+H19ESVZSEE7q/RNOwKc +cI/i6BL0moKKXDmM9utwQmJTmsdoNgV9fMrvnW/CCQxBQ5+OZ1H1rUkw7eQ1 +TuA+Zt8dk0FBggfkfjk+4IRHjfnjB6l6EVivFVD/jhNeRtrvlFP1JvWX/iuT +RirfytWlJFBQ+d4Ln351ccJiorpnaxwFzd+wFhKY44QAjdP3i6Ko9cP34O1N +CS4gc+6VZqXqm6t68NCuChfcL28SpwRR0EPbiN2441zAO39O1TuAgmork/Vq +zbig8UdpWf19qn7alE/wP+YCIoGR7qsHBW2+XeKv3uKCZoNIVg1LCtozun7E +kJUb/P4z6bhmTkHKLDRW0wLcwHzpurAPVa9tzLle8xK5Qeehy91oI6r/DAqa +tvbc0HprhlVXm+qP8TUP7j5uCGraK0WrREHP7zn8xJvywJ/t4xnVS80IX8e6 +HmLBA1nuPD/oF5pRHUMO45gND5geEGo6+bMZfYuYFItw5YGzP/Y45o43I5F0 +C9PZMB5QDOyRlOih3sdNBk3Pq3iAXq5gu5x6P8ZwqqbySfDCK7N94m8dm5GE +4ee8G7K8wPzRrOCAfTMqSnCtqFPmBaMaUr63TTPqEs3vdT7GC6XbLEK4S82I +i4hjb7/AC2mCn24TtJvRQ5P9XgEhvJAqlY/fL9aM/NO2z6/M8YJC+nVak44m +dA5f7qbwhxcmP5Up8VP7C5H6W9HWG7ygb2/1va2hCVWO/+zqYuSDTbrtdbny +JrQsPWSQL8IH4ttOz1++aELWr9+dsT3HBzKiOknZt5vQiQpnncG3fOBgeU/z +u2AToun5BlV3+cGHpvlqpXEjwnnYel2Q3wvSvRll8t71aHL1iQl7tQCc1/j7 +2Ea5FulO3fSJcdsPjSfyfD7uVqKzk1EKIiKCcO++S/7uRin62Wjt+yFfCA4G +B/2JdHqLlHn7D2pYHoT60yFtXB2FVD1ZvTryRwTeLOXq4n6/Qtrzl9YkjMWA +M67mrolDJkrdE9DzwEwMqlenxN1NM9HKsbzCkctisCgWZpWskYnSH27ZJViL +wYhYX4qAcCbalHk2yOoqBmZaXLOFHRnotfXXisWHYiBTsVfCkZSBeAYtyTV1 +YiAmRVrYYnmBBhuu0V5SFIeGutnH1WVpaPHEsKCPijjcUtvM/JyYhpjrDVTT +ieJQlEAr8887DR2qPWr3Q00cxt8eMUtUT0Nx73k63LXEoU2pqHywIRUZlFQl +hl8RByEnxcSAnhREydqDr44Sh4hd8d5zjM/Qu9CmK2Kr4kCX9NZa/FUiytFt +3x+yLg7Cl3d5bkUkoqccnz/Pb4lD0nXhkRG3ROQbNXbqPZ0ERFjZPFs/mkjt +dzaVTXgk4Ob82UcGnU/Q+Ev8briCBKT75Gm5bSQgrpZnaWtXJaAxWE2PdDUe +2TJ6fuvslIDjFn7F/B4xSFC0dWCrWwJWD2Q7BVnGoE61g59k+yRAusQqmlUv +Bh1ybK72/yIBk+znZk9LxCCmnr3Jh2YkwMoiuuJFdzTKSi81TqWVBKtJcksF +KRpNHltvc1KVBMHD7x4qMkahRGP9hqeHJaG9VNSyYOox0ndJr2g5KgnGSQ+/ +Stc/RiUvTueIn5CE6BppqXtej1Ega1JQ3xlJ+GT7KKxqJhJJDRyB43aSEJrI +fiT0UwSycb/3juOpJFxUnRQsfBeODhFH38mlSAJpoPxKc3w4YluG0lPpkpDv +2L6+4RmO3rgxlflmS0Kjx9ZY9aFwtO0aXb5SLAlOl9f0CyoeogSXl+9H2iWh +IIPxiFhzGGp17Kl/vSMJSftzXKuXQtAzxUMNrTRSIBdVununLwS5ziU2/KCX +Aq6AxptnK0KQgOOVRjE2KajkUQ0+6xeCrB1mm+IEpMC7L+N1El8I2r6x20JW +kYK3WzlxukeDkYqdQqf+VSkgyX3xjUwJRKM3RF3yr0nBoVm3Y/7+geiRIz8P +l70ULD4b/h5rF4hm3bbOf3KWgkxGiygeYiDKILf3nSdLgXXQmVbHDwFoX4zD +V5MnUiB0dMUhedMf7VblzVl1SIGCIhufnIcfKqhNi6jvkoKGCmnvPHM/ZN4Q +qyzRKwXKBbEfT2v5oYqWe64Tw1Kgejh3uEfAD936rLdyfUYKPkAyo9x7XzQ9 +/WvrJr00bNGyaL5n8UWf+BTZPY9Ig3d8YUK1kw/CnJxmk9WloTu/dGpQ2wcV +tBS0NFC7MmHTanERCR8USSYE8pyShvbyu13SA2Sk/+PQTp6hNLS+EhXEaZBR +W8WJ3+MO0vDpuZtou8Q91Gxl2nMuVRrensx1ebPrhVTfJxbdeS4NZrL/iptG +vVDm3uHHqZnSELz2xfdftRcKbDPXn8uVhiZvZ9Vxshc6qWrdHFImDcsPbE/b +bt9BdcxOZTVd0lCqYNimQXcHvS/wT1akx8F/JVI4J1lPxKRvLPiECQczo0NV +Uaye6PysTBItGw40lLGELz890LRkR0I/Dw5oCpddfuR7IP6kfTG+IjgQc+80 +//ifB3IIeB3aewQHoaaLlqX6t5CQWb8n2RUHrmpfw5bj3ZDtas7Kj1s44HUT +Miu+54aKYu7dOn8HByyfl6Pjrroh7Q4xN9x9HAiHe5bUKrmhWycdHLvCcZA6 +PljwusUVtSvS2Ei9xEG7w3J6Pa0rukcrf+7jVxxsWaRbVwk5oR+a7IO47zgI +kyBnCi46onOhc5Z+kzgIltauKG5yRFLchS6HfuFAJHfA/LGzI/oorPo4fR0H +7nOzqX+aHJCIGtbpwS8Du3emThPIN1GDs6H+QR0Z4HAdPNDHZ48Ui0m9d/Rl +gGR6cX513g4lrO4x/2wgA8qF45unW+2QA3nAIcREBlLpy78G+tqhPQ/Nw5ds +ZABlp/ueWbJFtlm2bc33ZUD1M3/74pfriG3k7mnnEhlwO9RUu9Njgw7decX5 +uEwGctJr07jKbNBVvsHPhZUycOi00Amtpzao/PR/Fkt1MrAueFJM8qoNsn33 +282jg3qeIpmGZ4vWqD7yWvLdHzJgbMGbYCNgjbxOnF0I3i8LHWE9uTiyFcoc +Ib99KSQLA/XR3M9trNCnO3leH0RkwUnE5Ki6nhXCFbDQs0nLgofxbb1eQSvU +I9i4L4IgCyh07yOuO5ZIeeXwiVhdWaicGCx+w3gFTWWLx6WRZeGnsR+YnruM +5gK/b9D7ygL5zkd5D8nLaNn6uaV9gCyIXPfK6fl7CdGIiisQHsqCDNsQ88XU +S0jwiVhDwxNZcAzew+2xeBGdCxFdnCqWhWrTooMv0s1Qld1BfcVZWVBsUsvM +VjZBjVpfi6LmZOHdjuDT26wmqE0yZd/qb1mI8tzY82DSGA2MCU9U/5UFKc9E +J7VkY7RsKnzXgEEObHpuh2iyGyPZ00I57qJywBJ3Rt9/1QjFyR5gqDCWAy1d +vpcZi+eR+RXcywkzOaCX2XSh7T2PpOJIulzmcpA54dUTWnYeleyeibKxlgNG +07vx/A/Oo95+f2EuFzlIfhgA/DznEX/QnKpNqByQrQ/VRRw5h2K+117nfC8H +9yLtNg8ankGX9nWwqNXIwazXLuGuxBkkcWY4z7peDjaLvSUO/tFHxeUrS2Ut +ctA2Sar8L14ffX4sd9+6Vw5wTd8LX47oIV4sNqFsXg6uepmbIS9dFPXUtuWq +mDy83UjiHBjTRndu+98iS8rDJbFRbqkKbXTFMFX0CU4etoXX4nJjtJEiW/+d +j4rycCxXYs36lDZq9daSPXxEHoqGLw57vTmF6C5KhXEYysPqoqXseqQW8tw3 +rlsWQLVH0Spnb2kg8z87f7uD5aFTYA8RM9JAmp8OZMyFyYNPUFHXFZIG4gs5 +vyUeJQ9/lU8M41dOooK/dXmPnslDV2zUGo/XSTTTl8Zh/U4eZOT+HggLPYEu +xVl0ckzLQ4HSoVP68QgJv2UTcvgpD4tpLYbfLyM01l1m1zovD0MXyvP6JRC6 +xs1HG7wiD08ZLXfGijDk/JBC2qVVgLDWfBuL3uPI31claUlYAUJLNmpD5NXR +K0faa/2GCiDsUyczue8IcgwveKNqogDaxw/X355VQ8q5l3diLirABXLKgNl7 +NVQ8/S7BwEoBaioWI1mt1FCV9c3WD04K8Cd2u487/zDqMutRfh+qAJ20Hue0 +jQ+hdc2sjbQaBVD8MbiCfSEh8vu0gKZ6BeD6ZOBvUU5CNMSnnLNNCvD3D3Gu +JJ6EmEUfixPbFQBy7Bg4z5OQwIaXTtOAAphtJstebCMiUr5+0syiAuSlfCs+ +0EJAzntX1AiSivArTPSXXKcKWg5faDDGKYJuLX+YXbwK8qSb1b8rpwhnE2Zs +6C1UEPn3V6tGFUUw2n813mheGYW3toQaqyvCO0KY5yk+ZZTjkzzobawIB0vV +GHYcFdHE1EmvhhBFsNVuKme1lkMn0zpfyIcrAghUlCrh5VC62aWOmEhFyJWS +58j/J4uutLtJ2MQrAo1/m9n7Z7Jo+E36R/oMRVj6ujHL+FUGfb73T0yrRhGy +3pw07nbCoQbeytaWFUXIdDbRv/pREom3a62orCvCjeVvTQOZksg3sFskcUsR +pEONuBN9JBG2NnPLnk4Jfny8JrqiIokqR/aJsPIowdfnU2SORAlU/NLTXVdB +CZInOHFGnuLoxXGCUMdVJRjgVhxhbxBBDWfZArauKUHvng6W6hARNG458VPO +Xgl2KcFtfWdEkKR/fGWwsxK8zn5me+zLQZRJ2bgI96jj4q6vmjaFUZZBQ+Lb +OCV4zLa/AekLoZyrRgJPW5RA56a/8yPV/eiDu+L9D21K1PuN99oG4340E8D4 +42+HEly9Pe9bObAPyWaXvTPqpc7v4/53iLwPvfopZMz5XQlu2rP2sLYKoNxb +k7G+m0pgYDq/k+a2F+UHefLaKSmD1cJmKM0WH5pTt/APwisD+/Onbrn9fEhx +RfNPBkkZ+qwiOuKL+VCu9Z6+b0eUwW6DS17FgQ/loLeJl04pA0vqyUyrMV6U +ubEoetZSGYjVbfLWPTzoqZOj8n/RyvBZZzxFrZMTDUtdSDOKU4aeIyxwMY4T +HRg5xuP+RBm6l8Q7Jy5xokRd9uWCFGXIj97/lTTLgeJlct/J5lLtjdP1XrNx +oKjv0+rCjcrwYpNOxNaKDYUY2+jRryqDx7VPlW6GzOiFwYj59XVlMLFQ78gW +Y0ZVOsbOLVvKEND3+yT8ZkLLx7Wjw+lUQLcm/HpKBBMyxykM8POoQLQcKM51 +MiLi2rK1lIIKPLvitKFuw4DOLDl4BCurQGvmgJ31YQZk/2syaIagAmqilH/f +2BlQylh/zms1FbAe8aadfkePWD5ULqieUgFCa94BBi56NJrof1frqgoESnBr +rnTQoo2YrfCX11TAR4/xlOVLWrQnwiOF1V4Flml3LQ/40SIdP9u6DmcVaHT5 +6eP1Hy0quaHLZEJWgYK9d1g/P6dBD4/yxdg+UYGYbZ7FKZ5d7L+R569COqj2 +5pJiOvxbGI+y/Xphlwpo2d/yLPmyic09UNYe7FGBBwE9s+GZm1im5PtJ2WEV +6K3MESIf3sT2OPSKtv1QgTJRM0t96w1sk0yvx0SDBwMePWem9jVsJsvW/Skt +nvp/KL4zlLSG9Xe2JinT42HNQHue88YaViwWNWPChAcLpznFOJY17GaTcPBL +Djx4vDVlZ9b/iw2xH6o/fQAPFf3egksTKxhFNWlmRJBqr3FX8G75ClZisc3t +JowHn5isBbOIFSyqsOFKkigeEscPPNmrtoKdNjLYnpXGw+My92rv6D9Y+VP7 +w+FEPOQyhnjaGS1jiXLJ+R16eBATreEb5V7EVv6cygo4gwcj1qAF8/7fmEHN +8rMjBnh4M9NImxLxG2My0n2UZYgHbqWVpdWdBcyTvHHT5yIe7vMZzE9PzWOG +n0xllezwYCMvkve++xdWkEQvNmGPhymVybDq6F8Y67XCfUk38aA4f9BFz/AX +VrfOxMzojIfG40LtTH0/MRWJ0qkRDzyY7dV8N/JtFuPw3JPxyB8PHNZGqfy8 +M5g9qnt6MhAP9h41vEZD01gjq2PMehAeJPhpvThfTGN3Uxv9roXhIfbIrshv +1WlstsXdSj0KDxeZI8/pWv3AKILdB+dS8BD+IBIefpzEHtRFJOpV4KHvyqL8 +2Mp37OfXuriNSmq8q37XerR/x0y2/kS9rMLDW3f/69dffMcUD10Ko6/DA6Yn +sXDh/HdsMA939z0FD/KB2U/M3n7DiE9qLyv04kGdsfTnS64xLKVk2XSoDw+P +TForwyijGMtn6QshA3g46i18hv3BKDbG8Uh/YhgPTnGv7s8sfcUe+ZsdT/6O +h8FxP+7p0RHsh9OSCPtvPLwe3/o50juMnQ+XEqpYxIO0VZyuZMIwVpVjus9u +GQ+XJslZq6bDWOxENXfjKh4YZHQKj3wdwuDiQ5p723jIuVgCoguD2FNNyfGf +rATYY+O1/4bsAHZGyDirTYoA96fOXM5f68ESJ5XrLuMIkMbVVR3W3oNN5rN8 +mZMhwIeJdJvGtB6MDFU83AoEsMjTitTT6cFeX5ckGxEIwL0wjZLTP2Nsb5YM +R44TgOsOMznZshsz8W53ckIE4HPoN15T68ZenMwK/QcE4C1ms87i68aO9JnV +iGkSwID9xt1VShdmv1krd12XAMwYV4cRqQtr0YykWTAhQHRK1Z8t1U6Mj8te +6IEZAeoTXXxtljqwKwMnDvFcIsCwtELH5YIO7O+NVQeiBQGOCe7n2pTrwHCP +zQdu2xAgJUGK3CHzEQscki/YdSHAvb/lQUPqbdgJ55bLvGEE+G5Iz4U1U7DN +wdlTTQ+p52EpdTaNoGAlGhzEO48IcN5oW2fFmILhDpxn+fqYAMebRwffzjRj +HE3DJTkJ1P2O2b6X39OMDR5Y4IRMArw2ZbtB59+IxQTybCxnEeBRwcCzzvON +mN5v4mTWSwJcZHi8wyHRiNU03alkzyNAFGI+MdLYgGW60NoNFBFA/FgY7hVH +A+bavKfOuZYA2gumS9LFdZg8/nCeeD0Bsl8ffJ8eWodNPL2Y0NtAgJuS/yLv +W9ZhJq6pjkcpBPAjd3RbctVh6kKyB5g6CED3EK944nsNxuJ2zD1lmAC1ImlW +tY+qsDRha6mPqwSQbxZmfWVdjh0lKShbrxFAMhnRnZErx3p1Vg6vrxOAtW03 +1H2xDGO5E6wntU2A1NW+ieO+ZZhrd647mY4IT3rM2sqySjEI/lOnyE2EBDFn +AwPmd9jws6q2Bh4i0Hfjfkb0lWAeb4N6zfiI8AGpph7PLMFyvu2bCdxLBNuQ +Zz5zJ0sw3mPq3F+FiPA7rKLUKegtNv470CJCljr+F9MkiBRjZKazdpLyRDjI +yhjE96cIEzi4z61CgQiWJUk3TD4UYbq6rwKnlIlgeGSqjs6jCCvO7Mg7/h8R +jj/SJ/d/eoMFXBTYnD9BhIpiryJHQiEm1fgy4exlIkhq3Twp3JuLdSquZ46Y +E0F02TmoJS4X80o4/fbmFSIEHhBPoTPJxdpvzH4KvkoEq378TcnhV5g7jwJr +rR0RDjQNTs7P5GC1FgX3VDyIUPjdtPi56EvMvuVfWLUnEQI0OzirZ7IxPoJB +ot4dIjgX0gwYF2djtgyLJXZ3iSDSWH5z61Q2xpFHWEjzJYIe3VHhDc8s7NJ6 +iRVPBBEOb+2bHprNwBisGV1SI4kgYfGceK4yAytoN/ZRjCICGw0PhRSegdGm +/U06HUvlv170SDkDy9FS6/FNIsLLKuV/et4vsNWY91pLWUTQqP15/Y7EcyxK +qUH+cw0RPBJs7a7cTsFy1C6z+tcRgexQcuO4XApWq7EyTWggwmjkJMvYyDNs +4SIuK7qZCNq1rs3Wp55hesEPRc9/JIJv94+yIxLJGNOY4Z6uISKslfVvp24l +Ygd//lp+8IXq3zx+q6ciEVNdDexW+UqE0ug+zjdeiZgNe1nk429EMCCAgOn6 +E6zusBCrwTQRNIM4Of/bTcDuRU3sdKxQ4+fbKTAmF4/FJJNHfP4SAd9VqN25 +FIflZu99r7ROBIxRqkG/Mg4brNL2itiixod2aN+yfhx2aDZvWZ+OBJc0l+LL +vWKxxRMe0+3cJAiwVgjnnY3GbP8wdLfKk8ACv9j143QkdiVXs9NckQS5WWem +xXYiMJOrge2/lUhAZx/BzlccgZ36RE/ZSyDBeOjZET6RCAyXR/f+6mESRBRK +0l39F45NWdNkbWiQ4LDTOaXO0TBs5AC8eKRFXV/KLbsiJQzr7XqQJqpNAsUb +DzU0LMKwJmw3SUuXBMcddqUVRkOxTMF/kdHnSEC4PjklPR2CXfu85SVnQQLJ +bQHLuD3BmHnYsdtVV0hQyG+Q934kCLsA924ZWJHAakXe0yErCNMs2HTytKHu +V67ka6kWhEk93LCuv0GC+Nw1hjvXArGJE2v6F2+ToN+lSvdirz9mXbQsFvaY +Oj92dVCE3Rdz9Dfa1o2mno+rL6Ki8gHmaVQywBFLguehxAGC1QMsdNUzMiqB +BORf149zFtzHCo5sbD1JIQGq4EiUMfbBNup3+7PzSNCwppZU33kXo4u1KrbP +p9q72+wM+N3FOK7VR8gXkmB97dtY4393MRGmAM2CYhKwCJuo8ad7Y5q6TMXv +KkhweyNOzOi+Fxb1mSOiqYUEw36n5P0sb2NPM5zsg1up82myOn+L3MYyPDo1 +TreTQMf+UiffmCdWKhC12d5JAlcL5jPOVz2xkUv89j19JIgrvH1B29kDk5k4 +oDE+QYKfAgZOS9nuGL7krkjmFAn6zMtufnR1x44Gfdm4Pk3N5xGjRHTMHdOX +SXkz+5MEN/oV9850u2HuDmIiS0skWKLJ89zL5IaR1f02iv+QYO76emlQrysW +xDne67FKAoX50Hd+Ga5YYmFG+Po6CYQf4HYENFyxF74MdpWbJBC0OHoxn98V +yzt//SR5mwT2pvsIsa0uWIkE5SD2jwT5nuhZr6MLVvMHt7G7S4L0dFdxYV4X +7H/zpXyA + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8V98fx+29lQrZPjaf4Vsq3fMuJKMUGRURhbJFUR9lj0R2JKOMRIhk +ZY+PEJEtUUYohMjO7/P7597H83HO+5zzHvd13lfc2sXwOh0NDc1J6uP/75T7 +1kyEa8nYZoayXfKwNdbUI6ZvKuaNPHp/5N/VO4F2KTUBYmJhKPpdyR0DvfMo +pS5ClFEsCYlGOSXh9K4ix+OeTmuir9Cc0KxIs64b6tmyj1sUrUBXhHK1rHT8 +EPOXcZl50VaEmZG9RzWi0fO2NLdfokPozWUuuiWl56igMOyLo/JPNMo2auXs +X4TsUHfSnPsftIQ3VWMSq0A0L/5Wfgn/g7TEM68Jq1egRAbhkbbMP+jfWIWj +pFkF+tBqK/Kq/w9aVtrtoY+qQLIXtl9cP7qClEf9zDl2K9CMvczrUdpVVL3u +5qEyXIluxvjUdEX9RaySnosXA6uQ85TcREnBBkov3bdmklWLvl0ZYqlv3UAL +dH/eqNfWIqPBUOWOyQ00Y5hZwzFUi9Tap72nBDdR5PGFzv+Y6hB9URaPQMgm +OtGS48l7pA4lksWxO5ZbKAKXxFL6rA7V8x9IOsKzg1761POGXq5HqhEfarQU +dtAJoYFkfrt6lM3kNXn+1A5iMKMPi3WvR482+lVuknfQT5P9d1zD6pHJWBzl +6cwOwnsYcqWW1qOfuTwrW3X/kPDa5ZJGrgbEJh4oM6ZGA/o5U+P7ShvQB/Vo +lftaNNCh7z97t7YBBZulHj5oSAMriwGGPR8aEF1UufZlBxrQfnQPXfvSgDb/ +zdkNpNCAenAngYmmEf0aMc75REcL7DdgR1u7EX1MlJGr+0gLPTvTNkUdjehh +iSrBcogWdo3qgt/3NaLTXSeO/JuihQds4tWVXxtRE7O5jvouLfByHLVInG9E +VbejbpQT6EDpgvzRLo4mlH9h49WbBDqQv+1FR9BpQpE87fLPrehhqmAoP7+i +CVUcPvjurDM9lMT2t0zVNaHJKy5o+x49rD6/MMbzoQkdy+e/YPqEHi6wjdJD +fxOa0TH34eykh6zHxrx0y01II2D+k/cxBnAn/BreI9OMnHPRJRkdBth4kPOY +rNSMnnZHT/aaMMDcOq/6AKkZLYoe2lBxZwCJgBPk69CMUqvuS/zIYYDYNyZp +U2bNaH2V29NQgBHGyvY2e4Q0I8mD1ru7kowg0dR7gCOiGZ3VLAnLJzDCAUc/ +p4SYZpQVY5bKcoYRvDf/2xuY0owMVZ631AQwAo1xr19jcTPKtycKKiwxwuup +2IGe4WY0+Dgwc/AfI9RF+qUnjzUjhrJ+5WAOJtg/ZU42mWxGlxjvaXyXoTJr +9K2s+WbE8qLR8ckVJvhCiIzO2W1G1l8u1NJ/ZIL58X7QEqcgtuTvTm5DTPCI +dC5HUZqCii85C4/9YIKMLpcKZjkKoh8O8a6kZQbL7t7viXgKyhysJLkdZoZg +J5pIGURB+ona46OazDB8VC7o9UkKWjHtjdI3ZIbD7nePSJ+iIK2B+XkZJ2aw +8paeXNKnoB99YjmjL5hB1GU8Yv0iBUXG55vov2GGTT3tSiELCjpkfJSxspoZ +Vm+yVhKtKCik18g6fpAZZkPCkLotBcn2BAvrc7FA7D+a8mo3CrrZNRdV4c0C +dEaCSj7BFMQX5Y1kQljAuyqRdSyUgioNmBbi4lgAf6t0XjWcgtg/ieq5FrLA +4mvNL1WPKeh1hyGjzBQLlHezvz2eSEEXIsbexi2zwMmGFBI8paBtfUdrOhpW +aL9dOXToGQWd+RhU+1WQFa7e1MymSaeghbZy77hzrHArO+wN00sKSnioJUt3 +hTruJtyRm0NBmO7nfhcHVlD7GKeikUtBj1t/kfSCWWHr5f6Bc/kUpBbmNV4e +ywrZE6+lKAUU9O00YzTuOSu08aq1qryhIPwHkQXaKlYwN8yT/VZMQYMhec9c +WlnBJ9x2DldCQb7aanpf+1lBfalmv/U7CuqinM8pX2KFVl/D6ndlFOQVPGqC +22UFVdZcrLOcgsROOTDGcbDBvN3A0S8VFOTWHGjtIsMGOa8MSj+/pyCRyVNM +f0lsYF6eNZBfRUHtdKy5ZGCDY0e36B5UU5A0RCyFXWSDDR2VEPpaCvp8xSCe +x5YN3Acmpkup/MCH98gTdzYQatWwtqqjoKHKeN/McDa447f5Nr6egoKHTKUU +EtngzdblWPEGCiKtH/hQlMkGg8T7zzKo/E1gxEGtiA0otbd7hBopKOK/VO7a +ajb4l39V/SGVj16weqvVxga+Hle/LFB52l3C9GM/df2F1BKdJgqKi57cNJxg +A84LOh+fUvnEm+zUod9ssJeUgBun8kKn/Umrber6dvUtos0UlDwv/+MHCztY +7uUsMaLyaY75MKe97DCWWv/bh8qr8oVKK+LskJGm9CCVyi903LrvKrMDy2SW +7TsqG9iTPGmPsQObdVBuA5W3g1f3h2qzwyBByYBC5VdZZVVcF9jBLZjhYh2V +TZq8reKt2AGX7fXxDZXpJ44xCDuxg/LEdv4TKr+h/ffyhTc7qMax0XlS2UKs +Tk8umB0oHOIdp6nMhvx/F8aww3x8Mz8/lcssNGMPpbFDhG3AcA/Vv2tkpsPV +eeywlvxLOpzKvMkfhjXK2UGDGL+pRuWaiof325rY4fO2sMVXavwcBvUlznez +Q0GqtKEXlfevcVEGvrLDH3/TUVYqN+/tvnHlJzsc7bNiiqHmx101lnPqLzv8 +9l7t5KGyqJFxkQM9BxQxfVIPpubXO2po3UuYAyZvGwkZU/OPK0x+tivLAWml +EfEF1Pro6bCA4P84IDlE4cO/GgpSYh8PiT3LAfca5m8EUOtrWC5TQfAyB8yO +doyXUesv5LTtp3Q7DlAYD5WZoNbn96CfAgW+HPBy+KSsSCVVPzJfV6pGcMDy +N9kFJWo9H2t0vvI+iQNyv5XFqlLrPZ7mT9aHYg5wdh2KxpVSkM69LdWJSQ7o +yn40nVJEQX+TqgdvLHHA2s7fw9ep31tG+QPy4g4H+H19ESVZSEE7q/RNOwKc +cI/i6BL0moKKXDmM9utwQmJTmsdoNgV9fMrvnW/CCQxBQ5+OZ1H1rUkw7eQ1 +TuA+Zt8dk0FBggfkfjk+4IRHjfnjB6l6EVivFVD/jhNeRtrvlFP1JvWX/iuT +RirfytWlJFBQ+d4Ln351ccJiorpnaxwFzd+wFhKY44QAjdP3i6Ko9cP34O1N +CS4gc+6VZqXqm6t68NCuChfcL28SpwRR0EPbiN2441zAO39O1TuAgmork/Vq +zbig8UdpWf19qn7alE/wP+YCIoGR7qsHBW2+XeKv3uKCZoNIVg1LCtozun7E +kJUb/P4z6bhmTkHKLDRW0wLcwHzpurAPVa9tzLle8xK5Qeehy91oI6r/DAqa +tvbc0HprhlVXm+qP8TUP7j5uCGraK0WrREHP7zn8xJvywJ/t4xnVS80IX8e6 +HmLBA1nuPD/oF5pRHUMO45gND5geEGo6+bMZfYuYFItw5YGzP/Y45o43I5F0 +C9PZMB5QDOyRlOih3sdNBk3Pq3iAXq5gu5x6P8ZwqqbySfDCK7N94m8dm5GE +4ee8G7K8wPzRrOCAfTMqSnCtqFPmBaMaUr63TTPqEs3vdT7GC6XbLEK4S82I +i4hjb7/AC2mCn24TtJvRQ5P9XgEhvJAqlY/fL9aM/NO2z6/M8YJC+nVak44m +dA5f7qbwhxcmP5Up8VP7C5H6W9HWG7ygb2/1va2hCVWO/+zqYuSDTbrtdbny +JrQsPWSQL8IH4ttOz1++aELWr9+dsT3HBzKiOknZt5vQiQpnncG3fOBgeU/z +u2AToun5BlV3+cGHpvlqpXEjwnnYel2Q3wvSvRll8t71aHL1iQl7tQCc1/j7 +2Ea5FulO3fSJcdsPjSfyfD7uVqKzk1EKIiKCcO++S/7uRin62Wjt+yFfCA4G +B/2JdHqLlHn7D2pYHoT60yFtXB2FVD1ZvTryRwTeLOXq4n6/Qtrzl9YkjMWA +M67mrolDJkrdE9DzwEwMqlenxN1NM9HKsbzCkctisCgWZpWskYnSH27ZJViL +wYhYX4qAcCbalHk2yOoqBmZaXLOFHRnotfXXisWHYiBTsVfCkZSBeAYtyTV1 +YiAmRVrYYnmBBhuu0V5SFIeGutnH1WVpaPHEsKCPijjcUtvM/JyYhpjrDVTT +ieJQlEAr8887DR2qPWr3Q00cxt8eMUtUT0Nx73k63LXEoU2pqHywIRUZlFQl +hl8RByEnxcSAnhREydqDr44Sh4hd8d5zjM/Qu9CmK2Kr4kCX9NZa/FUiytFt +3x+yLg7Cl3d5bkUkoqccnz/Pb4lD0nXhkRG3ROQbNXbqPZ0ERFjZPFs/mkjt +dzaVTXgk4Ob82UcGnU/Q+Ev8briCBKT75Gm5bSQgrpZnaWtXJaAxWE2PdDUe +2TJ6fuvslIDjFn7F/B4xSFC0dWCrWwJWD2Q7BVnGoE61g59k+yRAusQqmlUv +Bh1ybK72/yIBk+znZk9LxCCmnr3Jh2YkwMoiuuJFdzTKSi81TqWVBKtJcksF +KRpNHltvc1KVBMHD7x4qMkahRGP9hqeHJaG9VNSyYOox0ndJr2g5KgnGSQ+/ +Stc/RiUvTueIn5CE6BppqXtej1Ega1JQ3xlJ+GT7KKxqJhJJDRyB43aSEJrI +fiT0UwSycb/3juOpJFxUnRQsfBeODhFH38mlSAJpoPxKc3w4YluG0lPpkpDv +2L6+4RmO3rgxlflmS0Kjx9ZY9aFwtO0aXb5SLAlOl9f0CyoeogSXl+9H2iWh +IIPxiFhzGGp17Kl/vSMJSftzXKuXQtAzxUMNrTRSIBdVununLwS5ziU2/KCX +Aq6AxptnK0KQgOOVRjE2KajkUQ0+6xeCrB1mm+IEpMC7L+N1El8I2r6x20JW +kYK3WzlxukeDkYqdQqf+VSkgyX3xjUwJRKM3RF3yr0nBoVm3Y/7+geiRIz8P +l70ULD4b/h5rF4hm3bbOf3KWgkxGiygeYiDKILf3nSdLgXXQmVbHDwFoX4zD +V5MnUiB0dMUhedMf7VblzVl1SIGCIhufnIcfKqhNi6jvkoKGCmnvPHM/ZN4Q +qyzRKwXKBbEfT2v5oYqWe64Tw1Kgejh3uEfAD936rLdyfUYKPkAyo9x7XzQ9 +/WvrJr00bNGyaL5n8UWf+BTZPY9Ig3d8YUK1kw/CnJxmk9WloTu/dGpQ2wcV +tBS0NFC7MmHTanERCR8USSYE8pyShvbyu13SA2Sk/+PQTp6hNLS+EhXEaZBR +W8WJ3+MO0vDpuZtou8Q91Gxl2nMuVRrensx1ebPrhVTfJxbdeS4NZrL/iptG +vVDm3uHHqZnSELz2xfdftRcKbDPXn8uVhiZvZ9Vxshc6qWrdHFImDcsPbE/b +bt9BdcxOZTVd0lCqYNimQXcHvS/wT1akx8F/JVI4J1lPxKRvLPiECQczo0NV +Uaye6PysTBItGw40lLGELz890LRkR0I/Dw5oCpddfuR7IP6kfTG+IjgQc+80 +//ifB3IIeB3aewQHoaaLlqX6t5CQWb8n2RUHrmpfw5bj3ZDtas7Kj1s44HUT +Miu+54aKYu7dOn8HByyfl6Pjrroh7Q4xN9x9HAiHe5bUKrmhWycdHLvCcZA6 +PljwusUVtSvS2Ei9xEG7w3J6Pa0rukcrf+7jVxxsWaRbVwk5oR+a7IO47zgI +kyBnCi46onOhc5Z+kzgIltauKG5yRFLchS6HfuFAJHfA/LGzI/oorPo4fR0H +7nOzqX+aHJCIGtbpwS8Du3emThPIN1GDs6H+QR0Z4HAdPNDHZ48Ui0m9d/Rl +gGR6cX513g4lrO4x/2wgA8qF45unW+2QA3nAIcREBlLpy78G+tqhPQ/Nw5ds +ZABlp/ueWbJFtlm2bc33ZUD1M3/74pfriG3k7mnnEhlwO9RUu9Njgw7decX5 +uEwGctJr07jKbNBVvsHPhZUycOi00Amtpzao/PR/Fkt1MrAueFJM8qoNsn33 +282jg3qeIpmGZ4vWqD7yWvLdHzJgbMGbYCNgjbxOnF0I3i8LHWE9uTiyFcoc +Ib99KSQLA/XR3M9trNCnO3leH0RkwUnE5Ki6nhXCFbDQs0nLgofxbb1eQSvU +I9i4L4IgCyh07yOuO5ZIeeXwiVhdWaicGCx+w3gFTWWLx6WRZeGnsR+YnruM +5gK/b9D7ygL5zkd5D8nLaNn6uaV9gCyIXPfK6fl7CdGIiisQHsqCDNsQ88XU +S0jwiVhDwxNZcAzew+2xeBGdCxFdnCqWhWrTooMv0s1Qld1BfcVZWVBsUsvM +VjZBjVpfi6LmZOHdjuDT26wmqE0yZd/qb1mI8tzY82DSGA2MCU9U/5UFKc9E +J7VkY7RsKnzXgEEObHpuh2iyGyPZ00I57qJywBJ3Rt9/1QjFyR5gqDCWAy1d +vpcZi+eR+RXcywkzOaCX2XSh7T2PpOJIulzmcpA54dUTWnYeleyeibKxlgNG +07vx/A/Oo95+f2EuFzlIfhgA/DznEX/QnKpNqByQrQ/VRRw5h2K+117nfC8H +9yLtNg8ankGX9nWwqNXIwazXLuGuxBkkcWY4z7peDjaLvSUO/tFHxeUrS2Ut +ctA2Sar8L14ffX4sd9+6Vw5wTd8LX47oIV4sNqFsXg6uepmbIS9dFPXUtuWq +mDy83UjiHBjTRndu+98iS8rDJbFRbqkKbXTFMFX0CU4etoXX4nJjtJEiW/+d +j4rycCxXYs36lDZq9daSPXxEHoqGLw57vTmF6C5KhXEYysPqoqXseqQW8tw3 +rlsWQLVH0Spnb2kg8z87f7uD5aFTYA8RM9JAmp8OZMyFyYNPUFHXFZIG4gs5 +vyUeJQ9/lU8M41dOooK/dXmPnslDV2zUGo/XSTTTl8Zh/U4eZOT+HggLPYEu +xVl0ckzLQ4HSoVP68QgJv2UTcvgpD4tpLYbfLyM01l1m1zovD0MXyvP6JRC6 +xs1HG7wiD08ZLXfGijDk/JBC2qVVgLDWfBuL3uPI31claUlYAUJLNmpD5NXR +K0faa/2GCiDsUyczue8IcgwveKNqogDaxw/X355VQ8q5l3diLirABXLKgNl7 +NVQ8/S7BwEoBaioWI1mt1FCV9c3WD04K8Cd2u487/zDqMutRfh+qAJ20Hue0 +jQ+hdc2sjbQaBVD8MbiCfSEh8vu0gKZ6BeD6ZOBvUU5CNMSnnLNNCvD3D3Gu +JJ6EmEUfixPbFQBy7Bg4z5OQwIaXTtOAAphtJstebCMiUr5+0syiAuSlfCs+ +0EJAzntX1AiSivArTPSXXKcKWg5faDDGKYJuLX+YXbwK8qSb1b8rpwhnE2Zs +6C1UEPn3V6tGFUUw2n813mheGYW3toQaqyvCO0KY5yk+ZZTjkzzobawIB0vV +GHYcFdHE1EmvhhBFsNVuKme1lkMn0zpfyIcrAghUlCrh5VC62aWOmEhFyJWS +58j/J4uutLtJ2MQrAo1/m9n7Z7Jo+E36R/oMRVj6ujHL+FUGfb73T0yrRhGy +3pw07nbCoQbeytaWFUXIdDbRv/pREom3a62orCvCjeVvTQOZksg3sFskcUsR +pEONuBN9JBG2NnPLnk4Jfny8JrqiIokqR/aJsPIowdfnU2SORAlU/NLTXVdB +CZInOHFGnuLoxXGCUMdVJRjgVhxhbxBBDWfZArauKUHvng6W6hARNG458VPO +Xgl2KcFtfWdEkKR/fGWwsxK8zn5me+zLQZRJ2bgI96jj4q6vmjaFUZZBQ+Lb +OCV4zLa/AekLoZyrRgJPW5RA56a/8yPV/eiDu+L9D21K1PuN99oG4340E8D4 +42+HEly9Pe9bObAPyWaXvTPqpc7v4/53iLwPvfopZMz5XQlu2rP2sLYKoNxb +k7G+m0pgYDq/k+a2F+UHefLaKSmD1cJmKM0WH5pTt/APwisD+/Onbrn9fEhx +RfNPBkkZ+qwiOuKL+VCu9Z6+b0eUwW6DS17FgQ/loLeJl04pA0vqyUyrMV6U +ubEoetZSGYjVbfLWPTzoqZOj8n/RyvBZZzxFrZMTDUtdSDOKU4aeIyxwMY4T +HRg5xuP+RBm6l8Q7Jy5xokRd9uWCFGXIj97/lTTLgeJlct/J5lLtjdP1XrNx +oKjv0+rCjcrwYpNOxNaKDYUY2+jRryqDx7VPlW6GzOiFwYj59XVlMLFQ78gW +Y0ZVOsbOLVvKEND3+yT8ZkLLx7Wjw+lUQLcm/HpKBBMyxykM8POoQLQcKM51 +MiLi2rK1lIIKPLvitKFuw4DOLDl4BCurQGvmgJ31YQZk/2syaIagAmqilH/f +2BlQylh/zms1FbAe8aadfkePWD5ULqieUgFCa94BBi56NJrof1frqgoESnBr +rnTQoo2YrfCX11TAR4/xlOVLWrQnwiOF1V4Flml3LQ/40SIdP9u6DmcVaHT5 +6eP1Hy0quaHLZEJWgYK9d1g/P6dBD4/yxdg+UYGYbZ7FKZ5d7L+R569COqj2 +5pJiOvxbGI+y/Xphlwpo2d/yLPmyic09UNYe7FGBBwE9s+GZm1im5PtJ2WEV +6K3MESIf3sT2OPSKtv1QgTJRM0t96w1sk0yvx0SDBwMePWem9jVsJsvW/Skt +nvp/KL4zlLSG9Xe2JinT42HNQHue88YaViwWNWPChAcLpznFOJY17GaTcPBL +Djx4vDVlZ9b/iw2xH6o/fQAPFf3egksTKxhFNWlmRJBqr3FX8G75ClZisc3t +JowHn5isBbOIFSyqsOFKkigeEscPPNmrtoKdNjLYnpXGw+My92rv6D9Y+VP7 +w+FEPOQyhnjaGS1jiXLJ+R16eBATreEb5V7EVv6cygo4gwcj1qAF8/7fmEHN +8rMjBnh4M9NImxLxG2My0n2UZYgHbqWVpdWdBcyTvHHT5yIe7vMZzE9PzWOG +n0xllezwYCMvkve++xdWkEQvNmGPhymVybDq6F8Y67XCfUk38aA4f9BFz/AX +VrfOxMzojIfG40LtTH0/MRWJ0qkRDzyY7dV8N/JtFuPw3JPxyB8PHNZGqfy8 +M5g9qnt6MhAP9h41vEZD01gjq2PMehAeJPhpvThfTGN3Uxv9roXhIfbIrshv +1WlstsXdSj0KDxeZI8/pWv3AKILdB+dS8BD+IBIefpzEHtRFJOpV4KHvyqL8 +2Mp37OfXuriNSmq8q37XerR/x0y2/kS9rMLDW3f/69dffMcUD10Ko6/DA6Yn +sXDh/HdsMA939z0FD/KB2U/M3n7DiE9qLyv04kGdsfTnS64xLKVk2XSoDw+P +TForwyijGMtn6QshA3g46i18hv3BKDbG8Uh/YhgPTnGv7s8sfcUe+ZsdT/6O +h8FxP+7p0RHsh9OSCPtvPLwe3/o50juMnQ+XEqpYxIO0VZyuZMIwVpVjus9u +GQ+XJslZq6bDWOxENXfjKh4YZHQKj3wdwuDiQ5p723jIuVgCoguD2FNNyfGf +rATYY+O1/4bsAHZGyDirTYoA96fOXM5f68ESJ5XrLuMIkMbVVR3W3oNN5rN8 +mZMhwIeJdJvGtB6MDFU83AoEsMjTitTT6cFeX5ckGxEIwL0wjZLTP2Nsb5YM +R44TgOsOMznZshsz8W53ckIE4HPoN15T68ZenMwK/QcE4C1ms87i68aO9JnV +iGkSwID9xt1VShdmv1krd12XAMwYV4cRqQtr0YykWTAhQHRK1Z8t1U6Mj8te +6IEZAeoTXXxtljqwKwMnDvFcIsCwtELH5YIO7O+NVQeiBQGOCe7n2pTrwHCP +zQdu2xAgJUGK3CHzEQscki/YdSHAvb/lQUPqbdgJ55bLvGEE+G5Iz4U1U7DN +wdlTTQ+p52EpdTaNoGAlGhzEO48IcN5oW2fFmILhDpxn+fqYAMebRwffzjRj +HE3DJTkJ1P2O2b6X39OMDR5Y4IRMArw2ZbtB59+IxQTybCxnEeBRwcCzzvON +mN5v4mTWSwJcZHi8wyHRiNU03alkzyNAFGI+MdLYgGW60NoNFBFA/FgY7hVH +A+bavKfOuZYA2gumS9LFdZg8/nCeeD0Bsl8ffJ8eWodNPL2Y0NtAgJuS/yLv +W9ZhJq6pjkcpBPAjd3RbctVh6kKyB5g6CED3EK944nsNxuJ2zD1lmAC1ImlW +tY+qsDRha6mPqwSQbxZmfWVdjh0lKShbrxFAMhnRnZErx3p1Vg6vrxOAtW03 +1H2xDGO5E6wntU2A1NW+ieO+ZZhrd647mY4IT3rM2sqySjEI/lOnyE2EBDFn +AwPmd9jws6q2Bh4i0Hfjfkb0lWAeb4N6zfiI8AGpph7PLMFyvu2bCdxLBNuQ +Zz5zJ0sw3mPq3F+FiPA7rKLUKegtNv470CJCljr+F9MkiBRjZKazdpLyRDjI +yhjE96cIEzi4z61CgQiWJUk3TD4UYbq6rwKnlIlgeGSqjs6jCCvO7Mg7/h8R +jj/SJ/d/eoMFXBTYnD9BhIpiryJHQiEm1fgy4exlIkhq3Twp3JuLdSquZ46Y +E0F02TmoJS4X80o4/fbmFSIEHhBPoTPJxdpvzH4KvkoEq378TcnhV5g7jwJr +rR0RDjQNTs7P5GC1FgX3VDyIUPjdtPi56EvMvuVfWLUnEQI0OzirZ7IxPoJB +ot4dIjgX0gwYF2djtgyLJXZ3iSDSWH5z61Q2xpFHWEjzJYIe3VHhDc8s7NJ6 +iRVPBBEOb+2bHprNwBisGV1SI4kgYfGceK4yAytoN/ZRjCICGw0PhRSegdGm +/U06HUvlv170SDkDy9FS6/FNIsLLKuV/et4vsNWY91pLWUTQqP15/Y7EcyxK +qUH+cw0RPBJs7a7cTsFy1C6z+tcRgexQcuO4XApWq7EyTWggwmjkJMvYyDNs +4SIuK7qZCNq1rs3Wp55hesEPRc9/JIJv94+yIxLJGNOY4Z6uISKslfVvp24l +Ygd//lp+8IXq3zx+q6ciEVNdDexW+UqE0ug+zjdeiZgNe1nk429EMCCAgOn6 +E6zusBCrwTQRNIM4Of/bTcDuRU3sdKxQ4+fbKTAmF4/FJJNHfP4SAd9VqN25 +FIflZu99r7ROBIxRqkG/Mg4brNL2itiixod2aN+yfhx2aDZvWZ+OBJc0l+LL +vWKxxRMe0+3cJAiwVgjnnY3GbP8wdLfKk8ACv9j143QkdiVXs9NckQS5WWem +xXYiMJOrge2/lUhAZx/BzlccgZ36RE/ZSyDBeOjZET6RCAyXR/f+6mESRBRK +0l39F45NWdNkbWiQ4LDTOaXO0TBs5AC8eKRFXV/KLbsiJQzr7XqQJqpNAsUb +DzU0LMKwJmw3SUuXBMcddqUVRkOxTMF/kdHnSEC4PjklPR2CXfu85SVnQQLJ +bQHLuD3BmHnYsdtVV0hQyG+Q934kCLsA924ZWJHAakXe0yErCNMs2HTytKHu +V67ka6kWhEk93LCuv0GC+Nw1hjvXArGJE2v6F2+ToN+lSvdirz9mXbQsFvaY +Oj92dVCE3Rdz9Dfa1o2mno+rL6Ki8gHmaVQywBFLguehxAGC1QMsdNUzMiqB +BORf149zFtzHCo5sbD1JIQGq4EiUMfbBNup3+7PzSNCwppZU33kXo4u1KrbP +p9q72+wM+N3FOK7VR8gXkmB97dtY4393MRGmAM2CYhKwCJuo8ad7Y5q6TMXv +KkhweyNOzOi+Fxb1mSOiqYUEw36n5P0sb2NPM5zsg1up82myOn+L3MYyPDo1 +TreTQMf+UiffmCdWKhC12d5JAlcL5jPOVz2xkUv89j19JIgrvH1B29kDk5k4 +oDE+QYKfAgZOS9nuGL7krkjmFAn6zMtufnR1x44Gfdm4Pk3N5xGjRHTMHdOX +SXkz+5MEN/oV9850u2HuDmIiS0skWKLJ89zL5IaR1f02iv+QYO76emlQrysW +xDne67FKAoX50Hd+Ga5YYmFG+Po6CYQf4HYENFyxF74MdpWbJBC0OHoxn98V +yzt//SR5mwT2pvsIsa0uWIkE5SD2jwT5nuhZr6MLVvMHt7G7S4L0dFdxYV4X +7H/zpXyA + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.17791060319940644`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.17791060319940644`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8V98fx+29lQrZPjaf4Vsq3fMuJKMUGRURhbJFUR9lj0R2JKOMRIhk +ZY+PEJEtUUYohMjO7/P7597H83HO+5zzHvd13lfc2sXwOh0NDc1J6uP/75T7 +1kyEa8nYZoayXfKwNdbUI6ZvKuaNPHp/5N/VO4F2KTUBYmJhKPpdyR0DvfMo +pS5ClFEsCYlGOSXh9K4ix+OeTmuir9Cc0KxIs64b6tmyj1sUrUBXhHK1rHT8 +EPOXcZl50VaEmZG9RzWi0fO2NLdfokPozWUuuiWl56igMOyLo/JPNMo2auXs +X4TsUHfSnPsftIQ3VWMSq0A0L/5Wfgn/g7TEM68Jq1egRAbhkbbMP+jfWIWj +pFkF+tBqK/Kq/w9aVtrtoY+qQLIXtl9cP7qClEf9zDl2K9CMvczrUdpVVL3u +5qEyXIluxvjUdEX9RaySnosXA6uQ85TcREnBBkov3bdmklWLvl0ZYqlv3UAL +dH/eqNfWIqPBUOWOyQ00Y5hZwzFUi9Tap72nBDdR5PGFzv+Y6hB9URaPQMgm +OtGS48l7pA4lksWxO5ZbKAKXxFL6rA7V8x9IOsKzg1761POGXq5HqhEfarQU +dtAJoYFkfrt6lM3kNXn+1A5iMKMPi3WvR482+lVuknfQT5P9d1zD6pHJWBzl +6cwOwnsYcqWW1qOfuTwrW3X/kPDa5ZJGrgbEJh4oM6ZGA/o5U+P7ShvQB/Vo +lftaNNCh7z97t7YBBZulHj5oSAMriwGGPR8aEF1UufZlBxrQfnQPXfvSgDb/ +zdkNpNCAenAngYmmEf0aMc75REcL7DdgR1u7EX1MlJGr+0gLPTvTNkUdjehh +iSrBcogWdo3qgt/3NaLTXSeO/JuihQds4tWVXxtRE7O5jvouLfByHLVInG9E +VbejbpQT6EDpgvzRLo4mlH9h49WbBDqQv+1FR9BpQpE87fLPrehhqmAoP7+i +CVUcPvjurDM9lMT2t0zVNaHJKy5o+x49rD6/MMbzoQkdy+e/YPqEHi6wjdJD +fxOa0TH34eykh6zHxrx0y01II2D+k/cxBnAn/BreI9OMnHPRJRkdBth4kPOY +rNSMnnZHT/aaMMDcOq/6AKkZLYoe2lBxZwCJgBPk69CMUqvuS/zIYYDYNyZp +U2bNaH2V29NQgBHGyvY2e4Q0I8mD1ru7kowg0dR7gCOiGZ3VLAnLJzDCAUc/ +p4SYZpQVY5bKcoYRvDf/2xuY0owMVZ631AQwAo1xr19jcTPKtycKKiwxwuup +2IGe4WY0+Dgwc/AfI9RF+qUnjzUjhrJ+5WAOJtg/ZU42mWxGlxjvaXyXoTJr +9K2s+WbE8qLR8ckVJvhCiIzO2W1G1l8u1NJ/ZIL58X7QEqcgtuTvTm5DTPCI +dC5HUZqCii85C4/9YIKMLpcKZjkKoh8O8a6kZQbL7t7viXgKyhysJLkdZoZg +J5pIGURB+ona46OazDB8VC7o9UkKWjHtjdI3ZIbD7nePSJ+iIK2B+XkZJ2aw +8paeXNKnoB99YjmjL5hB1GU8Yv0iBUXG55vov2GGTT3tSiELCjpkfJSxspoZ +Vm+yVhKtKCik18g6fpAZZkPCkLotBcn2BAvrc7FA7D+a8mo3CrrZNRdV4c0C +dEaCSj7BFMQX5Y1kQljAuyqRdSyUgioNmBbi4lgAf6t0XjWcgtg/ieq5FrLA +4mvNL1WPKeh1hyGjzBQLlHezvz2eSEEXIsbexi2zwMmGFBI8paBtfUdrOhpW +aL9dOXToGQWd+RhU+1WQFa7e1MymSaeghbZy77hzrHArO+wN00sKSnioJUt3 +hTruJtyRm0NBmO7nfhcHVlD7GKeikUtBj1t/kfSCWWHr5f6Bc/kUpBbmNV4e +ywrZE6+lKAUU9O00YzTuOSu08aq1qryhIPwHkQXaKlYwN8yT/VZMQYMhec9c +WlnBJ9x2DldCQb7aanpf+1lBfalmv/U7CuqinM8pX2KFVl/D6ndlFOQVPGqC +22UFVdZcrLOcgsROOTDGcbDBvN3A0S8VFOTWHGjtIsMGOa8MSj+/pyCRyVNM +f0lsYF6eNZBfRUHtdKy5ZGCDY0e36B5UU5A0RCyFXWSDDR2VEPpaCvp8xSCe +x5YN3Acmpkup/MCH98gTdzYQatWwtqqjoKHKeN/McDa447f5Nr6egoKHTKUU +EtngzdblWPEGCiKtH/hQlMkGg8T7zzKo/E1gxEGtiA0otbd7hBopKOK/VO7a +ajb4l39V/SGVj16weqvVxga+Hle/LFB52l3C9GM/df2F1BKdJgqKi57cNJxg +A84LOh+fUvnEm+zUod9ssJeUgBun8kKn/Umrber6dvUtos0UlDwv/+MHCztY +7uUsMaLyaY75MKe97DCWWv/bh8qr8oVKK+LskJGm9CCVyi903LrvKrMDy2SW +7TsqG9iTPGmPsQObdVBuA5W3g1f3h2qzwyBByYBC5VdZZVVcF9jBLZjhYh2V +TZq8reKt2AGX7fXxDZXpJ44xCDuxg/LEdv4TKr+h/ffyhTc7qMax0XlS2UKs +Tk8umB0oHOIdp6nMhvx/F8aww3x8Mz8/lcssNGMPpbFDhG3AcA/Vv2tkpsPV +eeywlvxLOpzKvMkfhjXK2UGDGL+pRuWaiof325rY4fO2sMVXavwcBvUlznez +Q0GqtKEXlfevcVEGvrLDH3/TUVYqN+/tvnHlJzsc7bNiiqHmx101lnPqLzv8 +9l7t5KGyqJFxkQM9BxQxfVIPpubXO2po3UuYAyZvGwkZU/OPK0x+tivLAWml +EfEF1Pro6bCA4P84IDlE4cO/GgpSYh8PiT3LAfca5m8EUOtrWC5TQfAyB8yO +doyXUesv5LTtp3Q7DlAYD5WZoNbn96CfAgW+HPBy+KSsSCVVPzJfV6pGcMDy +N9kFJWo9H2t0vvI+iQNyv5XFqlLrPZ7mT9aHYg5wdh2KxpVSkM69LdWJSQ7o +yn40nVJEQX+TqgdvLHHA2s7fw9ep31tG+QPy4g4H+H19ESVZSEE7q/RNOwKc +cI/i6BL0moKKXDmM9utwQmJTmsdoNgV9fMrvnW/CCQxBQ5+OZ1H1rUkw7eQ1 +TuA+Zt8dk0FBggfkfjk+4IRHjfnjB6l6EVivFVD/jhNeRtrvlFP1JvWX/iuT +RirfytWlJFBQ+d4Ln351ccJiorpnaxwFzd+wFhKY44QAjdP3i6Ko9cP34O1N +CS4gc+6VZqXqm6t68NCuChfcL28SpwRR0EPbiN2441zAO39O1TuAgmork/Vq +zbig8UdpWf19qn7alE/wP+YCIoGR7qsHBW2+XeKv3uKCZoNIVg1LCtozun7E +kJUb/P4z6bhmTkHKLDRW0wLcwHzpurAPVa9tzLle8xK5Qeehy91oI6r/DAqa +tvbc0HprhlVXm+qP8TUP7j5uCGraK0WrREHP7zn8xJvywJ/t4xnVS80IX8e6 +HmLBA1nuPD/oF5pRHUMO45gND5geEGo6+bMZfYuYFItw5YGzP/Y45o43I5F0 +C9PZMB5QDOyRlOih3sdNBk3Pq3iAXq5gu5x6P8ZwqqbySfDCK7N94m8dm5GE +4ee8G7K8wPzRrOCAfTMqSnCtqFPmBaMaUr63TTPqEs3vdT7GC6XbLEK4S82I +i4hjb7/AC2mCn24TtJvRQ5P9XgEhvJAqlY/fL9aM/NO2z6/M8YJC+nVak44m +dA5f7qbwhxcmP5Up8VP7C5H6W9HWG7ygb2/1va2hCVWO/+zqYuSDTbrtdbny +JrQsPWSQL8IH4ttOz1++aELWr9+dsT3HBzKiOknZt5vQiQpnncG3fOBgeU/z +u2AToun5BlV3+cGHpvlqpXEjwnnYel2Q3wvSvRll8t71aHL1iQl7tQCc1/j7 +2Ea5FulO3fSJcdsPjSfyfD7uVqKzk1EKIiKCcO++S/7uRin62Wjt+yFfCA4G +B/2JdHqLlHn7D2pYHoT60yFtXB2FVD1ZvTryRwTeLOXq4n6/Qtrzl9YkjMWA +M67mrolDJkrdE9DzwEwMqlenxN1NM9HKsbzCkctisCgWZpWskYnSH27ZJViL +wYhYX4qAcCbalHk2yOoqBmZaXLOFHRnotfXXisWHYiBTsVfCkZSBeAYtyTV1 +YiAmRVrYYnmBBhuu0V5SFIeGutnH1WVpaPHEsKCPijjcUtvM/JyYhpjrDVTT +ieJQlEAr8887DR2qPWr3Q00cxt8eMUtUT0Nx73k63LXEoU2pqHywIRUZlFQl +hl8RByEnxcSAnhREydqDr44Sh4hd8d5zjM/Qu9CmK2Kr4kCX9NZa/FUiytFt +3x+yLg7Cl3d5bkUkoqccnz/Pb4lD0nXhkRG3ROQbNXbqPZ0ERFjZPFs/mkjt +dzaVTXgk4Ob82UcGnU/Q+Ev8briCBKT75Gm5bSQgrpZnaWtXJaAxWE2PdDUe +2TJ6fuvslIDjFn7F/B4xSFC0dWCrWwJWD2Q7BVnGoE61g59k+yRAusQqmlUv +Bh1ybK72/yIBk+znZk9LxCCmnr3Jh2YkwMoiuuJFdzTKSi81TqWVBKtJcksF +KRpNHltvc1KVBMHD7x4qMkahRGP9hqeHJaG9VNSyYOox0ndJr2g5KgnGSQ+/ +Stc/RiUvTueIn5CE6BppqXtej1Ega1JQ3xlJ+GT7KKxqJhJJDRyB43aSEJrI +fiT0UwSycb/3juOpJFxUnRQsfBeODhFH38mlSAJpoPxKc3w4YluG0lPpkpDv +2L6+4RmO3rgxlflmS0Kjx9ZY9aFwtO0aXb5SLAlOl9f0CyoeogSXl+9H2iWh +IIPxiFhzGGp17Kl/vSMJSftzXKuXQtAzxUMNrTRSIBdVununLwS5ziU2/KCX +Aq6AxptnK0KQgOOVRjE2KajkUQ0+6xeCrB1mm+IEpMC7L+N1El8I2r6x20JW +kYK3WzlxukeDkYqdQqf+VSkgyX3xjUwJRKM3RF3yr0nBoVm3Y/7+geiRIz8P +l70ULD4b/h5rF4hm3bbOf3KWgkxGiygeYiDKILf3nSdLgXXQmVbHDwFoX4zD +V5MnUiB0dMUhedMf7VblzVl1SIGCIhufnIcfKqhNi6jvkoKGCmnvPHM/ZN4Q +qyzRKwXKBbEfT2v5oYqWe64Tw1Kgejh3uEfAD936rLdyfUYKPkAyo9x7XzQ9 +/WvrJr00bNGyaL5n8UWf+BTZPY9Ig3d8YUK1kw/CnJxmk9WloTu/dGpQ2wcV +tBS0NFC7MmHTanERCR8USSYE8pyShvbyu13SA2Sk/+PQTp6hNLS+EhXEaZBR +W8WJ3+MO0vDpuZtou8Q91Gxl2nMuVRrensx1ebPrhVTfJxbdeS4NZrL/iptG +vVDm3uHHqZnSELz2xfdftRcKbDPXn8uVhiZvZ9Vxshc6qWrdHFImDcsPbE/b +bt9BdcxOZTVd0lCqYNimQXcHvS/wT1akx8F/JVI4J1lPxKRvLPiECQczo0NV +Uaye6PysTBItGw40lLGELz890LRkR0I/Dw5oCpddfuR7IP6kfTG+IjgQc+80 +//ifB3IIeB3aewQHoaaLlqX6t5CQWb8n2RUHrmpfw5bj3ZDtas7Kj1s44HUT +Miu+54aKYu7dOn8HByyfl6Pjrroh7Q4xN9x9HAiHe5bUKrmhWycdHLvCcZA6 +PljwusUVtSvS2Ei9xEG7w3J6Pa0rukcrf+7jVxxsWaRbVwk5oR+a7IO47zgI +kyBnCi46onOhc5Z+kzgIltauKG5yRFLchS6HfuFAJHfA/LGzI/oorPo4fR0H +7nOzqX+aHJCIGtbpwS8Du3emThPIN1GDs6H+QR0Z4HAdPNDHZ48Ui0m9d/Rl +gGR6cX513g4lrO4x/2wgA8qF45unW+2QA3nAIcREBlLpy78G+tqhPQ/Nw5ds +ZABlp/ueWbJFtlm2bc33ZUD1M3/74pfriG3k7mnnEhlwO9RUu9Njgw7decX5 +uEwGctJr07jKbNBVvsHPhZUycOi00Amtpzao/PR/Fkt1MrAueFJM8qoNsn33 +282jg3qeIpmGZ4vWqD7yWvLdHzJgbMGbYCNgjbxOnF0I3i8LHWE9uTiyFcoc +Ib99KSQLA/XR3M9trNCnO3leH0RkwUnE5Ki6nhXCFbDQs0nLgofxbb1eQSvU +I9i4L4IgCyh07yOuO5ZIeeXwiVhdWaicGCx+w3gFTWWLx6WRZeGnsR+YnruM +5gK/b9D7ygL5zkd5D8nLaNn6uaV9gCyIXPfK6fl7CdGIiisQHsqCDNsQ88XU +S0jwiVhDwxNZcAzew+2xeBGdCxFdnCqWhWrTooMv0s1Qld1BfcVZWVBsUsvM +VjZBjVpfi6LmZOHdjuDT26wmqE0yZd/qb1mI8tzY82DSGA2MCU9U/5UFKc9E +J7VkY7RsKnzXgEEObHpuh2iyGyPZ00I57qJywBJ3Rt9/1QjFyR5gqDCWAy1d +vpcZi+eR+RXcywkzOaCX2XSh7T2PpOJIulzmcpA54dUTWnYeleyeibKxlgNG +07vx/A/Oo95+f2EuFzlIfhgA/DznEX/QnKpNqByQrQ/VRRw5h2K+117nfC8H +9yLtNg8ankGX9nWwqNXIwazXLuGuxBkkcWY4z7peDjaLvSUO/tFHxeUrS2Ut +ctA2Sar8L14ffX4sd9+6Vw5wTd8LX47oIV4sNqFsXg6uepmbIS9dFPXUtuWq +mDy83UjiHBjTRndu+98iS8rDJbFRbqkKbXTFMFX0CU4etoXX4nJjtJEiW/+d +j4rycCxXYs36lDZq9daSPXxEHoqGLw57vTmF6C5KhXEYysPqoqXseqQW8tw3 +rlsWQLVH0Spnb2kg8z87f7uD5aFTYA8RM9JAmp8OZMyFyYNPUFHXFZIG4gs5 +vyUeJQ9/lU8M41dOooK/dXmPnslDV2zUGo/XSTTTl8Zh/U4eZOT+HggLPYEu +xVl0ckzLQ4HSoVP68QgJv2UTcvgpD4tpLYbfLyM01l1m1zovD0MXyvP6JRC6 +xs1HG7wiD08ZLXfGijDk/JBC2qVVgLDWfBuL3uPI31claUlYAUJLNmpD5NXR +K0faa/2GCiDsUyczue8IcgwveKNqogDaxw/X355VQ8q5l3diLirABXLKgNl7 +NVQ8/S7BwEoBaioWI1mt1FCV9c3WD04K8Cd2u487/zDqMutRfh+qAJ20Hue0 +jQ+hdc2sjbQaBVD8MbiCfSEh8vu0gKZ6BeD6ZOBvUU5CNMSnnLNNCvD3D3Gu +JJ6EmEUfixPbFQBy7Bg4z5OQwIaXTtOAAphtJstebCMiUr5+0syiAuSlfCs+ +0EJAzntX1AiSivArTPSXXKcKWg5faDDGKYJuLX+YXbwK8qSb1b8rpwhnE2Zs +6C1UEPn3V6tGFUUw2n813mheGYW3toQaqyvCO0KY5yk+ZZTjkzzobawIB0vV +GHYcFdHE1EmvhhBFsNVuKme1lkMn0zpfyIcrAghUlCrh5VC62aWOmEhFyJWS +58j/J4uutLtJ2MQrAo1/m9n7Z7Jo+E36R/oMRVj6ujHL+FUGfb73T0yrRhGy +3pw07nbCoQbeytaWFUXIdDbRv/pREom3a62orCvCjeVvTQOZksg3sFskcUsR +pEONuBN9JBG2NnPLnk4Jfny8JrqiIokqR/aJsPIowdfnU2SORAlU/NLTXVdB +CZInOHFGnuLoxXGCUMdVJRjgVhxhbxBBDWfZArauKUHvng6W6hARNG458VPO +Xgl2KcFtfWdEkKR/fGWwsxK8zn5me+zLQZRJ2bgI96jj4q6vmjaFUZZBQ+Lb +OCV4zLa/AekLoZyrRgJPW5RA56a/8yPV/eiDu+L9D21K1PuN99oG4340E8D4 +42+HEly9Pe9bObAPyWaXvTPqpc7v4/53iLwPvfopZMz5XQlu2rP2sLYKoNxb +k7G+m0pgYDq/k+a2F+UHefLaKSmD1cJmKM0WH5pTt/APwisD+/Onbrn9fEhx +RfNPBkkZ+qwiOuKL+VCu9Z6+b0eUwW6DS17FgQ/loLeJl04pA0vqyUyrMV6U +ubEoetZSGYjVbfLWPTzoqZOj8n/RyvBZZzxFrZMTDUtdSDOKU4aeIyxwMY4T +HRg5xuP+RBm6l8Q7Jy5xokRd9uWCFGXIj97/lTTLgeJlct/J5lLtjdP1XrNx +oKjv0+rCjcrwYpNOxNaKDYUY2+jRryqDx7VPlW6GzOiFwYj59XVlMLFQ78gW +Y0ZVOsbOLVvKEND3+yT8ZkLLx7Wjw+lUQLcm/HpKBBMyxykM8POoQLQcKM51 +MiLi2rK1lIIKPLvitKFuw4DOLDl4BCurQGvmgJ31YQZk/2syaIagAmqilH/f +2BlQylh/zms1FbAe8aadfkePWD5ULqieUgFCa94BBi56NJrof1frqgoESnBr +rnTQoo2YrfCX11TAR4/xlOVLWrQnwiOF1V4Flml3LQ/40SIdP9u6DmcVaHT5 +6eP1Hy0quaHLZEJWgYK9d1g/P6dBD4/yxdg+UYGYbZ7FKZ5d7L+R569COqj2 +5pJiOvxbGI+y/Xphlwpo2d/yLPmyic09UNYe7FGBBwE9s+GZm1im5PtJ2WEV +6K3MESIf3sT2OPSKtv1QgTJRM0t96w1sk0yvx0SDBwMePWem9jVsJsvW/Skt +nvp/KL4zlLSG9Xe2JinT42HNQHue88YaViwWNWPChAcLpznFOJY17GaTcPBL +Djx4vDVlZ9b/iw2xH6o/fQAPFf3egksTKxhFNWlmRJBqr3FX8G75ClZisc3t +JowHn5isBbOIFSyqsOFKkigeEscPPNmrtoKdNjLYnpXGw+My92rv6D9Y+VP7 +w+FEPOQyhnjaGS1jiXLJ+R16eBATreEb5V7EVv6cygo4gwcj1qAF8/7fmEHN +8rMjBnh4M9NImxLxG2My0n2UZYgHbqWVpdWdBcyTvHHT5yIe7vMZzE9PzWOG +n0xllezwYCMvkve++xdWkEQvNmGPhymVybDq6F8Y67XCfUk38aA4f9BFz/AX +VrfOxMzojIfG40LtTH0/MRWJ0qkRDzyY7dV8N/JtFuPw3JPxyB8PHNZGqfy8 +M5g9qnt6MhAP9h41vEZD01gjq2PMehAeJPhpvThfTGN3Uxv9roXhIfbIrshv +1WlstsXdSj0KDxeZI8/pWv3AKILdB+dS8BD+IBIefpzEHtRFJOpV4KHvyqL8 +2Mp37OfXuriNSmq8q37XerR/x0y2/kS9rMLDW3f/69dffMcUD10Ko6/DA6Yn +sXDh/HdsMA939z0FD/KB2U/M3n7DiE9qLyv04kGdsfTnS64xLKVk2XSoDw+P +TForwyijGMtn6QshA3g46i18hv3BKDbG8Uh/YhgPTnGv7s8sfcUe+ZsdT/6O +h8FxP+7p0RHsh9OSCPtvPLwe3/o50juMnQ+XEqpYxIO0VZyuZMIwVpVjus9u +GQ+XJslZq6bDWOxENXfjKh4YZHQKj3wdwuDiQ5p723jIuVgCoguD2FNNyfGf +rATYY+O1/4bsAHZGyDirTYoA96fOXM5f68ESJ5XrLuMIkMbVVR3W3oNN5rN8 +mZMhwIeJdJvGtB6MDFU83AoEsMjTitTT6cFeX5ckGxEIwL0wjZLTP2Nsb5YM +R44TgOsOMznZshsz8W53ckIE4HPoN15T68ZenMwK/QcE4C1ms87i68aO9JnV +iGkSwID9xt1VShdmv1krd12XAMwYV4cRqQtr0YykWTAhQHRK1Z8t1U6Mj8te +6IEZAeoTXXxtljqwKwMnDvFcIsCwtELH5YIO7O+NVQeiBQGOCe7n2pTrwHCP +zQdu2xAgJUGK3CHzEQscki/YdSHAvb/lQUPqbdgJ55bLvGEE+G5Iz4U1U7DN +wdlTTQ+p52EpdTaNoGAlGhzEO48IcN5oW2fFmILhDpxn+fqYAMebRwffzjRj +HE3DJTkJ1P2O2b6X39OMDR5Y4IRMArw2ZbtB59+IxQTybCxnEeBRwcCzzvON +mN5v4mTWSwJcZHi8wyHRiNU03alkzyNAFGI+MdLYgGW60NoNFBFA/FgY7hVH +A+bavKfOuZYA2gumS9LFdZg8/nCeeD0Bsl8ffJ8eWodNPL2Y0NtAgJuS/yLv +W9ZhJq6pjkcpBPAjd3RbctVh6kKyB5g6CED3EK944nsNxuJ2zD1lmAC1ImlW +tY+qsDRha6mPqwSQbxZmfWVdjh0lKShbrxFAMhnRnZErx3p1Vg6vrxOAtW03 +1H2xDGO5E6wntU2A1NW+ieO+ZZhrd647mY4IT3rM2sqySjEI/lOnyE2EBDFn +AwPmd9jws6q2Bh4i0Hfjfkb0lWAeb4N6zfiI8AGpph7PLMFyvu2bCdxLBNuQ +Zz5zJ0sw3mPq3F+FiPA7rKLUKegtNv470CJCljr+F9MkiBRjZKazdpLyRDjI +yhjE96cIEzi4z61CgQiWJUk3TD4UYbq6rwKnlIlgeGSqjs6jCCvO7Mg7/h8R +jj/SJ/d/eoMFXBTYnD9BhIpiryJHQiEm1fgy4exlIkhq3Twp3JuLdSquZ46Y +E0F02TmoJS4X80o4/fbmFSIEHhBPoTPJxdpvzH4KvkoEq378TcnhV5g7jwJr +rR0RDjQNTs7P5GC1FgX3VDyIUPjdtPi56EvMvuVfWLUnEQI0OzirZ7IxPoJB +ot4dIjgX0gwYF2djtgyLJXZ3iSDSWH5z61Q2xpFHWEjzJYIe3VHhDc8s7NJ6 +iRVPBBEOb+2bHprNwBisGV1SI4kgYfGceK4yAytoN/ZRjCICGw0PhRSegdGm +/U06HUvlv170SDkDy9FS6/FNIsLLKuV/et4vsNWY91pLWUTQqP15/Y7EcyxK +qUH+cw0RPBJs7a7cTsFy1C6z+tcRgexQcuO4XApWq7EyTWggwmjkJMvYyDNs +4SIuK7qZCNq1rs3Wp55hesEPRc9/JIJv94+yIxLJGNOY4Z6uISKslfVvp24l +Ygd//lp+8IXq3zx+q6ciEVNdDexW+UqE0ug+zjdeiZgNe1nk429EMCCAgOn6 +E6zusBCrwTQRNIM4Of/bTcDuRU3sdKxQ4+fbKTAmF4/FJJNHfP4SAd9VqN25 +FIflZu99r7ROBIxRqkG/Mg4brNL2itiixod2aN+yfhx2aDZvWZ+OBJc0l+LL +vWKxxRMe0+3cJAiwVgjnnY3GbP8wdLfKk8ACv9j143QkdiVXs9NckQS5WWem +xXYiMJOrge2/lUhAZx/BzlccgZ36RE/ZSyDBeOjZET6RCAyXR/f+6mESRBRK +0l39F45NWdNkbWiQ4LDTOaXO0TBs5AC8eKRFXV/KLbsiJQzr7XqQJqpNAsUb +DzU0LMKwJmw3SUuXBMcddqUVRkOxTMF/kdHnSEC4PjklPR2CXfu85SVnQQLJ +bQHLuD3BmHnYsdtVV0hQyG+Q934kCLsA924ZWJHAakXe0yErCNMs2HTytKHu +V67ka6kWhEk93LCuv0GC+Nw1hjvXArGJE2v6F2+ToN+lSvdirz9mXbQsFvaY +Oj92dVCE3Rdz9Dfa1o2mno+rL6Ki8gHmaVQywBFLguehxAGC1QMsdNUzMiqB +BORf149zFtzHCo5sbD1JIQGq4EiUMfbBNup3+7PzSNCwppZU33kXo4u1KrbP +p9q72+wM+N3FOK7VR8gXkmB97dtY4393MRGmAM2CYhKwCJuo8ad7Y5q6TMXv +KkhweyNOzOi+Fxb1mSOiqYUEw36n5P0sb2NPM5zsg1up82myOn+L3MYyPDo1 +TreTQMf+UiffmCdWKhC12d5JAlcL5jPOVz2xkUv89j19JIgrvH1B29kDk5k4 +oDE+QYKfAgZOS9nuGL7krkjmFAn6zMtufnR1x44Gfdm4Pk3N5xGjRHTMHdOX +SXkz+5MEN/oV9850u2HuDmIiS0skWKLJ89zL5IaR1f02iv+QYO76emlQrysW +xDne67FKAoX50Hd+Ga5YYmFG+Po6CYQf4HYENFyxF74MdpWbJBC0OHoxn98V +yzt//SR5mwT2pvsIsa0uWIkE5SD2jwT5nuhZr6MLVvMHt7G7S4L0dFdxYV4X +7H/zpXyA + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.17791060319940644`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 20}, {0., 0.17791060319940644`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.992107726457239*^9}, + CellLabel-> + "Out[121]=",ExpressionUUID->"78fea266-c9b6-1344-815b-e592a4b36902"] +}, 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[122]:=",ExpressionUUID->"94a1b9ea-c98a-ee4e-bb2c-43256dd887e6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3874266998239808`*^-217\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 122, 570, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347571140808*^9, 3.9921077265415897`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"8dcb415c-42a2-3e4d-85cd-b269b93087ad"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.817278930676562`*^-223\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 122, 571, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347571140808*^9, 3.9921077265549126`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"e2c59d14-9d90-6f4e-b634-bdc876731669"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0502622182804961`*^-228\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 122, 572, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347571140808*^9, 3.992107726572605*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"fc24092a-477c-0749-943f-ceeddf1f334d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 122, 573, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347571140808*^9, 3.9921077265856056`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"470da4b0-f630-6a4f-bd7e-f46c6cc3fa3a"], + +Cell[BoxData["25.74042668032499`"], "Output", + CellChangeTimes->{3.991347578228073*^9, 3.992107803364382*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"43184eec-295e-504b-91f9-1ea4953e0db9"] +}, 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.9918472030801735`*^9, 3.9918472073134327`*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"ad8fe405-3f1b-4e4d-b1dd-9e266c1ec152"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2014004862679991`*^-237\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 123, 574, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347578265545*^9, 3.9921078035252037`*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"828689d2-ae3f-c946-9ae7-b67259295e4c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.044259507917223`*^-244\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 123, 575, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347578265545*^9, 3.992107803544195*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"fcace641-ae91-c047-a870-a6c6381df469"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.478437859378183`*^-251\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 123, 576, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347578265545*^9, 3.992107803558218*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"187a9b00-1b38-574b-b50d-6a60daa919f7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 123, 577, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347578265545*^9, 3.9921078035761986`*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"0b3230e1-fbdf-634a-b4ea-4d47d1bffb37"], + +Cell[BoxData["0.0849931596032133`"], "Output", + CellChangeTimes->{3.9913475858902473`*^9, 3.9921078135741177`*^9}, + CellLabel-> + "Out[123]=",ExpressionUUID->"5d45f944-e569-854f-9b97-404fa95b9a81"] +}, 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.9918472136550217`*^9, 3.9918472163537464`*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"6531fc5f-fdb5-a54c-abb2-46a9d151a60a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2014004862679991`*^-237\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 124, 578, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475859272156`*^9, 3.992107813719118*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"c6321387-1f09-f949-bd42-7328714457a2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.044259507917223`*^-244\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 124, 579, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475859272156`*^9, 3.992107813738119*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"455817c6-ecb6-bb4d-8311-feeddf2bb0ef"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.478437859378183`*^-251\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 124, 580, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475859272156`*^9, 3.992107813753113*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"3f83d0d4-758a-9841-af38-e018c01da43a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 124, 581, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475859272156`*^9, 3.992107813770115*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"9b928638-0b2a-644a-a643-a1e94d4dfd65"], + +Cell[BoxData["4.988445628435583`"], "Output", + CellChangeTimes->{3.9913475931276417`*^9, 3.992107823127861*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"033dee4e-424d-3745-b121-cf546d247743"] +}, 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.9918472906473484`*^9, 3.9918472935952396`*^9}}, + CellLabel-> + "In[125]:=",ExpressionUUID->"36639f46-66ce-b34a-8a89-e422f177de00"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2014004862679991`*^-237\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 125, 582, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134759316485*^9, 3.9921078232337704`*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"67fe2714-46b1-ce4c-b01a-21b9bf156e81"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.044259507917223`*^-244\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 125, 583, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134759316485*^9, 3.99210782326478*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"e950deee-f61e-6149-99db-f2ade8fd4f11"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.478437859378183`*^-251\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 125, 584, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134759316485*^9, 3.9921078232907753`*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"247955c4-a1d4-ed45-a50c-b0eeedfbd72b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 125, 585, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134759316485*^9, 3.9921078233087673`*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"63963b0a-5deb-8544-9a18-85eecfcd11e3"], + +Cell[BoxData["172.74938708193324`"], "Output", + CellChangeTimes->{3.9913475973006153`*^9, 3.9921078301465797`*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"a9172cf7-eb97-0c4c-b147-ed16d584d170"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991847296668375*^9, 3.991847300654911*^9}}, + CellLabel-> + "In[126]:=",ExpressionUUID->"f76b8e94-11bd-a34a-a9ba-20d331e64105"], + +Cell[BoxData["0.0028952968328727117`"], "Output", + CellChangeTimes->{3.991347597341627*^9, 3.9921078302555466`*^9}, + CellLabel-> + "Out[126]=",ExpressionUUID->"2cd90da5-c5cf-5043-ad40-97115e43c947"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.99184730319516*^9, 3.991847305889347*^9}, + 3.991923738541313*^9}, + CellLabel-> + "In[127]:=",ExpressionUUID->"bb206cb0-d23b-e24e-876b-f9f1b2cbe57a"], + +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->"4fd11557-be32-b042-a20e-65ee1f3d31f0"], + +Cell[BoxData["2.4966041761479913`"], "Output", + CellChangeTimes->{3.991347597372614*^9, 3.992107830279339*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"613d7f9d-dd7d-f34a-a6e1-5c117e9d6780"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[129]:=",ExpressionUUID->"d73f0f23-b2e1-e243-aa8d-70b95de7c666"], + +Cell[BoxData["8.937548526432023`"], "Output", + CellChangeTimes->{3.991347597428034*^9, 3.9921078302929783`*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"29fe2b58-bee7-5c48-bee7-d0c4dd1e55da"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[130]:=",ExpressionUUID->"8870b029-14dd-d441-82f4-8690b0fb603d"], + +Cell[BoxData["22.313520975615514`"], "Output", + CellChangeTimes->{3.9913475974971066`*^9, 3.992107830307661*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"3f53a0b4-6d4a-2f4b-9e83-0ff6d899d46d"] +}, 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->"78b2a753-17fc-484f-a953-d278346207ad"], + +Cell[BoxData["0.04264716549004447`"], "Output", + CellChangeTimes->{3.991347597528105*^9, 3.9921078303272953`*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"ac7f7b5d-4757-0a4f-9cbc-985d19a1d282"] +}, 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->"19eddd1c-d1b6-4344-85e0-95e5a6b87d4b"], + +Cell[BoxData["4.2914084791984415`"], "Output", + CellChangeTimes->{3.9913475976441536`*^9, 3.992107830555517*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"470d085e-ba2e-a942-9bfd-c4b0bf514e12"] +}, 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->"75baa02d-f77e-e542-9519-8afd2f729182"], + +Cell[BoxData["0.0012419592892122277`"], "Output", + CellChangeTimes->{3.991347597671173*^9, 3.992107830594433*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"d9849cd0-29ac-9143-9651-ff255690c5fd"] +}, 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->"78cdb0f4-4e26-2f44-b234-6fa78a24207f"], + +Cell[BoxData["25.14729408175802`"], "Output", + CellChangeTimes->{3.9913475977705975`*^9, 3.9921078308162613`*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"9ce068fa-2d01-0e47-92b5-eb0a87fc4f5e"] +}, 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->"1d69257c-6504-2041-93e1-2a57c1dfc14b"], + +Cell[BoxData["0.9633250942217355`"], "Output", + CellChangeTimes->{3.9913475977856007`*^9, 3.992107830841627*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"29068a32-feba-a343-97e7-c7ff68997ff0"] +}, 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->"482f62c1-da9c-ae43-adda-68c26afa85d0"], + +Cell[BoxData["0.03667490577826447`"], "Output", + CellChangeTimes->{3.991347597813669*^9, 3.9921078308760376`*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"80c7b360-9d6c-114e-b28f-37c3e14374f6"] +}, 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->"b28b6b1b-1ce5-eb47-bd61-38bdc082dbc8"], + +Cell[BoxData["0.035329857064419885`"], "Output", + CellChangeTimes->{3.9913475978426323`*^9, 3.992107830900982*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"95bbe068-0dc6-5448-8790-9b300d03cff2"] +}, 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.991847320104244*^9}, + CellLabel-> + "In[138]:=",ExpressionUUID->"61630af4-ce16-4645-bd89-fd67d7ba48d8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.149043804826752`*^-232\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 138, 586, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347597872814*^9, 3.9921078309486694`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"33a28988-5186-6148-b50c-cd31c2ad3ee4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.73819346548464`*^-239\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 138, 587, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347597872814*^9, 3.992107830986679*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"69659419-da84-6749-8d63-f5d35bb09c80"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5422302227993252`*^-245\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 138, 588, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347597872814*^9, 3.992107831009674*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"f51a32b6-6626-8b47-b9e9-6880adbee697"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 138, 589, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347597872814*^9, 3.992107831029766*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"a10d2556-1be6-4740-a884-9d3f2be699d8"], + +Cell[BoxData["4.29140847919844`"], "Output", + CellChangeTimes->{3.9913476018505497`*^9, 3.992107838312769*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"5313bdf6-7d86-db4b-ad5d-edfff8b8fd1c"] +}, 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.991847326557415*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"b8324bb7-c44f-6342-bd59-920c679e8136"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.149043804826752`*^-232\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 139, 590, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913476018885117`*^9, 3.99210783843272*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"3d6e8607-871f-934a-81ff-4c055cffd57c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.73819346548464`*^-239\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 139, 591, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913476018885117`*^9, 3.9921078384697742`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"d452064a-7f30-6041-802e-7e2dd79725e2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5422302227993252`*^-245\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 139, 592, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913476018885117`*^9, 3.992107838490677*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"7ecfc55f-9f4d-ff48-9f84-77f51033e948"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 139, 593, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913476018885117`*^9, 3.9921078385027695`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"accf6eec-14a7-6f44-ad16-c866e8907f86"], + +Cell[BoxData["25.147294081758016`"], "Output", + CellChangeTimes->{3.9913476058912296`*^9, 3.9921078451599026`*^9}, + CellLabel-> + "Out[139]=",ExpressionUUID->"e30e78f5-0151-3e40-a5ed-7780bfcfa8c4"] +}, 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.9918473312384872`*^9}, + CellLabel-> + "In[140]:=",ExpressionUUID->"a8eb6c66-2550-3146-b69f-2cd48e2cafc8"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk4Fd8fB3B7slTIlshettIle51PiMjWJvty79wh2ckXKW30LWWv9M0W +2oRCiagUSfGLotJiS5Yw173WSsvv3D/mmef1nJn3vM85M88zKvSwXUw+Hh4e +Ch/cc8Sr9Wvvd77awneoZuHwAQ7awirZRLcuQ3aV4RNcDxQYZatbNyBjncIW +rl2I/wmJGTxDopPWp7mujE1sErRuR6o/fAy4Pt0i15hY+hoJeLCaE7DrOiPy +f9HeIh+5mc1cj398mRBX34OEIST/EPaqYTXPeavPaKbPayQee8dUgmlUez+y +F3wqzfWjX+OisaWDyOlZrm4c9rtjsodqQodQuAGlHYvNErIen6UNo61k9Yp/ +sIXOhrsbLIygYzFTvQexlSTyWiPqx5Bo4pXMaGwnhflrLKtJ5DgVUBWBTRaq +yugJs1DSxQTFcOxEDeekA+1TaHndkvBQ7B7Z7o3RpRz0hOd4WxA24RG0P+vs +NMqPjegOxGbn8lypCp1BJuI9zSS2sKreCg5tDt20FfWiY2cTTbYrpOdRkEsP +nx+28nX3xA0L86jSXDHDG9tEN5kVUv8dOV1cTrhhBxr1t49b/UJq33KHHLBn +Yw8KiGj+Rv8e3tBih320XtRCS/gPMh41T7fBzgGTWwHtf1GOV9NHxO13tdU6 +spQXfhmdt9uIXdqSNXBMgQ9UXv0J0OP2HfVJyDjLB401X0O0sBO056rvhPKD +85Cmvgq3720VtSmaIAhOp6Yux/7YOfnoT7EgODkNj4lw+0/f91gmLQQFvPXa +Qthlhk6ZegtC0Cs3QvwK4qDmunje4HphyKXZVo9izzV19Y9ZiUGAf15tHbak +g9iKQ4/EQMJuUaAaW7/bGsRNxSF35rxhGXbQ13uFG9cvA1/6yc352OF87fqb +xVaANr/H/FHsYdUKTtK8BDBGswW2Ys+SL5d2GEiC6iX5JBNsvlsjKnIRkuB1 +Y3RsA7aywZpdpROSsC6E4aGE7WGVXvVqQApsZGa+/tjPQR2MyCjZNmnIatx+ +6RZ23/XUFD9hGRDj73a6gj05UVp8c5sMcDbUjl7AFoke6jJvlAGtrLSmY9jW +J/cY+t2ThUDtS2qu2A9KjOZuFMjDXJZM8o9ADioZ/hljFq0IOnU7erWxt+89 +1RdVrghP7++cVMSebJayKR9RhJztiV9WYBuW6EoruyuBx6u9J+cD8HrSfaoF +t6yBVcUS+Y3Y01MD/4ydUAa/mLfaLthSIdZ3qx1V4fqJ01VeJAeNlIgEugSp +wnG/qRsO2LWfOxWoZFWoCr6WbIHt5eB9QrNRFQo+iH9XwC7Ridl1iaYG5qzx +qg9M/Pzx6+wjsurwMFj3jAv2ngBRPftBDeCxqHqhQ3AQitlL2/dbAyJtA8Xl +sbWTCowJeU3Q3HfeVAibp9jA8shOTeD96bFjgMFB5X2e+6qeaILR4pM9WdhC +rmXHVhWtBbI3kmeOjvtZO74bp2uBVHbA82v+HFS8++KnhSNaILN8m2IGdip9 +cEDgshZsXfra8xA2cfTghFKXFrizFjOdsSUa8nh2W2nDneVvvs374ffHgKVd +r6YDqrXa5luxFVTTElO+6sIZIYf4Zh8Oajgzq/WDTw/OVdzsuontNePeTaro +wZWGQYk07PxmdS1LHz140DZh4Y6tGvDgzff3erAmrdpx0hvPt2xYg2xbDxXr +4rzEsRUVlEhld32Ili+2NPfkIN2r0WKLiAZ2YNpjs4+D6MSJOT0nGsR5pNet +xc5Ry+zz86JBE+vbCWFs/qLbd1piaUDzud31whV/b/njezIraSBxp8N3B/bp +HL88LTUDyFHu0LXfi/c3xWG9m5AhbOc7WG60m4OuRKq73GvfBDWuI5NtThzU +GYOMT141hY0M54yl1hyk4vPWyTt4M3T8/L1rxpiDmH9rKhTjAPIsLYT8dThI +dqJ2iSzdEr633+oIXM1B0QYWnzO1reFkz11iqzjuT/1qlRrfBu+W5Ir6/maj +csuoJQUdtpDRWRAiNcFGJbNBT8qy7eDLdXOO3Ac2+r5V7n/NiTvgl/DT1XXN +bNTLw88Z9HcE/neBnqzbbBS6Oiz9mJozRP5JCWZdZqOK/a2N55NcoG6qLaIi +iY3iZ+QXdPbvBL98x5mEcDaas7dxfe67Cy6Vfyd03NnI1DNj6/DO3TDuvJ1n +iSUbvZHPC2o22APsV3JrXHTZaNW1Ew031u2F6Q821xtWslHtgLaDk7grzC7K +F2f+nkJK3eyAGMoVpIT9PF6/mUIG5zPKigf2AUUG2k+VTKE8gZn1mU1uQK/9 +JdgYP4Vqtm74mFTnDhns7PxhxymUY3xG4lepB4zK+Ip+U51CHZ+uJhuc9YRl +y7LR8CIL3XPMVQ8/6gV9kkciv71hIU7Ibp5QwhvG/hm3WFLBQnM2WoEsKx+Y +i5XN25bCQjeoD9+jjHzBeXfyvS0BLOR25SrDW8wPUv577LnTloWqq3b48p/y +g5Iy0v66JguZKrz5cfqHH/iXKjMkRVhIbSDg4+v9/vCncPYyNUWhr6IHnHOH +/MFog0pA41sKdaY6MWz30oEYbyoJe0yh7NgC0YOddHh9tzij8CaFGh79/cGw +Y0DOXPTl8gsUWu4FpwweMGA1XTsbnaKQ8srnHasbGEATjk/kxdZvd5QTesQA +3ziX7KZkCu2y8LzZ84QBSl25Ztuxs1fHtB1+wQD/NJ743UkUWtV7a3lrDwPO +jLu2RJygkLqPbI7XAgMYGyav/y+RQqZ+rBtJhgSU5VxU5I+j0LVL7CgnIwJm +RTwn3sRSaGXX9BZZEwIcNvX2FmGzti103zAnQH2VxkYr7BIdHt52SwKoW/Pp +Sf9QaNmChLvkTgJUwcRYIgavx7lNSwtCCLCMuaJtHUWhnc+NuwPCCHhmW5Ml +h/2Ix6xAP4IA6c1PVahICl2K2rLpaTQBNIuWsgvYTu62/sOHCDjaX3ZkIoJC +derudTpnCFgXSZfKDadQan3C/tprBJSzUkXlQykUQrtoGnuDANNc94/TIRRy +uFm51KSUgLfHP7W3Y4tcHLl5v5yAR+kiisewkyJdxmvuEmAWZxE0EUyhBC31 +A/eeEnDfU6Wu5QCFgi62BVf1ERC02ZiWs59CdstGLCIHCHB+fyI+BntdEo84 +7QsBTxorR/Zgj0RuKq8cJsDmQI22JLa/UwF1Z5KAQZ0k/9RACrkJRoXe/kmA +KGGdci6AQrZRq8LLZJhgup3x/hqTQk8Lku0z5ZhAI23VT2FbtE+rx65igtJU +5uUAbH2Ntg9WSkwwuMlcqoUt//6Q1ScNJqzTXfOlnKDQhFmvjMgmJrx4uuT0 +YwaF0vgKHwbsZoJfVuw9Pjqe/waxHMe9TBAye7ZzzJ9CJz1jIw32MUGP54rc +K+zYuy5r/3owgcUU0fwP25/kzbhAZ0LcmSZkiG3wkk48i2DCv02NYeF+FHqf +oSGqls6E0+clXwj7UqgCiQeOZTDB9l2y8pwPzqdmm8uzmHD8o0beIDbNrvmI +yUUmfJYYFazHTuVhTDvmM6FI/8z5MGybsMIPsWVMeGbGKu/3ppCi4r9GWyqY +MFdId3uFPfsyLIv/DhNcG8TWPcQu0kSOqdVM+CdfwPgy9u/e3sbiB7h/draU +O/ZdB4Ubr1qZMNbX8PyTF4VSfvIJZr9kQqvcu2ft2PQb4/7u7Uy4c379t4fY +KwQeKHztwHkpBQWF2MH1bmk/3jHB/XB6WwC2mvaFGPVhJjTmqSr/9qTQz/eH +u76NMMFXKSySjd2ZxNS/PcaEQDH+8SHsI4OG46aTTOAV5bdrw/6Y0+XtPMOE +P2bhLZexM5dIbIvnJUFExe+xFXbDdK9nND8J+uwKQxPs0d7SyFBBEmbS4nt0 +sS3uWhfSl5KQ5Xbmlgz2iF/sor0Eif/3/kuc9MD9HbZJbpMiYUdDb+AXbHNj +SS0kTYKoWNHRHux08TJXA3kSVDoqzJ9xxx/0VyqokPBq7XB/ITZ5taxVWo0E +X0PzzTnc69Pj+pdrkJAQKf0iDXuElBIX0CKhZIVbcCJ3XMo2cFKfhEBj5UE/ +7Ad/pBJHaCS8tSyqcsce/jZwfsCQhFn/W1W7sM0a45u6TUjQU9+zZRv21+AK +pYdAQpqp8Eld7GVuhzbdtyQhOLrthSa2qdV2h0prEv4oyG1RwU6V/xJ3dTsJ +ZnedqmSwawVupxfYk1CsYlolgT00dej6JQcSImbLB8SwTVqk355zIaH1lvEL +fmx65ZeJU7tIyFl0OPHXnULncm/zHd9Dws5T1IFF7C+RdvoxbiTMS7xuncEW +95GxDfcgoTNo5WY2tondkHeQFwm8d4f6J7n3rzmc4uNHQmy1ZuUIdq2IfZEb +nYT3Vf/1D3Hz5mTqdhEkOBlethjk5g0OdTiQJFCu61r7uHntd0ZsAkl4Y2x5 +/DM2/f7h3xBEQhFnLOgjN7/IfqV5MAn8eauP93Dzz8nqbAolocal9/k7bn7s +160bwknoU9axeIstRlS6aUWS0L1GqL8L29j5SJhaNN4v79A7b7j5ZjuSFWNI +oI8x7rzGPqshlycbS8KjtpG+TuyaFcPVEvEkuEssmHM9uFj5UjSBhCuN2c87 +uPmjRwYFj5Cg3v/4GNdGb3Z8/5tIgnh4bBDX/wcpgAhZ + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4Fd8fB3B7slTIlshettIle51PiMjWJvty79wh2ckXKW30LWWv9M0W +2oRCiagUSfGLotJiS5Yw173WSsvv3D/mmef1nJn3vM85M88zKvSwXUw+Hh4e +Ch/cc8Sr9Wvvd77awneoZuHwAQ7awirZRLcuQ3aV4RNcDxQYZatbNyBjncIW +rl2I/wmJGTxDopPWp7mujE1sErRuR6o/fAy4Pt0i15hY+hoJeLCaE7DrOiPy +f9HeIh+5mc1cj398mRBX34OEIST/EPaqYTXPeavPaKbPayQee8dUgmlUez+y +F3wqzfWjX+OisaWDyOlZrm4c9rtjsodqQodQuAGlHYvNErIen6UNo61k9Yp/ +sIXOhrsbLIygYzFTvQexlSTyWiPqx5Bo4pXMaGwnhflrLKtJ5DgVUBWBTRaq +yugJs1DSxQTFcOxEDeekA+1TaHndkvBQ7B7Z7o3RpRz0hOd4WxA24RG0P+vs +NMqPjegOxGbn8lypCp1BJuI9zSS2sKreCg5tDt20FfWiY2cTTbYrpOdRkEsP +nx+28nX3xA0L86jSXDHDG9tEN5kVUv8dOV1cTrhhBxr1t49b/UJq33KHHLBn +Yw8KiGj+Rv8e3tBih320XtRCS/gPMh41T7fBzgGTWwHtf1GOV9NHxO13tdU6 +spQXfhmdt9uIXdqSNXBMgQ9UXv0J0OP2HfVJyDjLB401X0O0sBO056rvhPKD +85Cmvgq3720VtSmaIAhOp6Yux/7YOfnoT7EgODkNj4lw+0/f91gmLQQFvPXa +Qthlhk6ZegtC0Cs3QvwK4qDmunje4HphyKXZVo9izzV19Y9ZiUGAf15tHbak +g9iKQ4/EQMJuUaAaW7/bGsRNxSF35rxhGXbQ13uFG9cvA1/6yc352OF87fqb +xVaANr/H/FHsYdUKTtK8BDBGswW2Ys+SL5d2GEiC6iX5JBNsvlsjKnIRkuB1 +Y3RsA7aywZpdpROSsC6E4aGE7WGVXvVqQApsZGa+/tjPQR2MyCjZNmnIatx+ +6RZ23/XUFD9hGRDj73a6gj05UVp8c5sMcDbUjl7AFoke6jJvlAGtrLSmY9jW +J/cY+t2ThUDtS2qu2A9KjOZuFMjDXJZM8o9ADioZ/hljFq0IOnU7erWxt+89 +1RdVrghP7++cVMSebJayKR9RhJztiV9WYBuW6EoruyuBx6u9J+cD8HrSfaoF +t6yBVcUS+Y3Y01MD/4ydUAa/mLfaLthSIdZ3qx1V4fqJ01VeJAeNlIgEugSp +wnG/qRsO2LWfOxWoZFWoCr6WbIHt5eB9QrNRFQo+iH9XwC7Ridl1iaYG5qzx +qg9M/Pzx6+wjsurwMFj3jAv2ngBRPftBDeCxqHqhQ3AQitlL2/dbAyJtA8Xl +sbWTCowJeU3Q3HfeVAibp9jA8shOTeD96bFjgMFB5X2e+6qeaILR4pM9WdhC +rmXHVhWtBbI3kmeOjvtZO74bp2uBVHbA82v+HFS8++KnhSNaILN8m2IGdip9 +cEDgshZsXfra8xA2cfTghFKXFrizFjOdsSUa8nh2W2nDneVvvs374ffHgKVd +r6YDqrXa5luxFVTTElO+6sIZIYf4Zh8Oajgzq/WDTw/OVdzsuontNePeTaro +wZWGQYk07PxmdS1LHz140DZh4Y6tGvDgzff3erAmrdpx0hvPt2xYg2xbDxXr +4rzEsRUVlEhld32Ili+2NPfkIN2r0WKLiAZ2YNpjs4+D6MSJOT0nGsR5pNet +xc5Ry+zz86JBE+vbCWFs/qLbd1piaUDzud31whV/b/njezIraSBxp8N3B/bp +HL88LTUDyFHu0LXfi/c3xWG9m5AhbOc7WG60m4OuRKq73GvfBDWuI5NtThzU +GYOMT141hY0M54yl1hyk4vPWyTt4M3T8/L1rxpiDmH9rKhTjAPIsLYT8dThI +dqJ2iSzdEr633+oIXM1B0QYWnzO1reFkz11iqzjuT/1qlRrfBu+W5Ir6/maj +csuoJQUdtpDRWRAiNcFGJbNBT8qy7eDLdXOO3Ac2+r5V7n/NiTvgl/DT1XXN +bNTLw88Z9HcE/neBnqzbbBS6Oiz9mJozRP5JCWZdZqOK/a2N55NcoG6qLaIi +iY3iZ+QXdPbvBL98x5mEcDaas7dxfe67Cy6Vfyd03NnI1DNj6/DO3TDuvJ1n +iSUbvZHPC2o22APsV3JrXHTZaNW1Ew031u2F6Q821xtWslHtgLaDk7grzC7K +F2f+nkJK3eyAGMoVpIT9PF6/mUIG5zPKigf2AUUG2k+VTKE8gZn1mU1uQK/9 +JdgYP4Vqtm74mFTnDhns7PxhxymUY3xG4lepB4zK+Ip+U51CHZ+uJhuc9YRl +y7LR8CIL3XPMVQ8/6gV9kkciv71hIU7Ibp5QwhvG/hm3WFLBQnM2WoEsKx+Y +i5XN25bCQjeoD9+jjHzBeXfyvS0BLOR25SrDW8wPUv577LnTloWqq3b48p/y +g5Iy0v66JguZKrz5cfqHH/iXKjMkRVhIbSDg4+v9/vCncPYyNUWhr6IHnHOH +/MFog0pA41sKdaY6MWz30oEYbyoJe0yh7NgC0YOddHh9tzij8CaFGh79/cGw +Y0DOXPTl8gsUWu4FpwweMGA1XTsbnaKQ8srnHasbGEATjk/kxdZvd5QTesQA +3ziX7KZkCu2y8LzZ84QBSl25Ztuxs1fHtB1+wQD/NJ743UkUWtV7a3lrDwPO +jLu2RJygkLqPbI7XAgMYGyav/y+RQqZ+rBtJhgSU5VxU5I+j0LVL7CgnIwJm +RTwn3sRSaGXX9BZZEwIcNvX2FmGzti103zAnQH2VxkYr7BIdHt52SwKoW/Pp +Sf9QaNmChLvkTgJUwcRYIgavx7lNSwtCCLCMuaJtHUWhnc+NuwPCCHhmW5Ml +h/2Ix6xAP4IA6c1PVahICl2K2rLpaTQBNIuWsgvYTu62/sOHCDjaX3ZkIoJC +derudTpnCFgXSZfKDadQan3C/tprBJSzUkXlQykUQrtoGnuDANNc94/TIRRy +uFm51KSUgLfHP7W3Y4tcHLl5v5yAR+kiisewkyJdxmvuEmAWZxE0EUyhBC31 +A/eeEnDfU6Wu5QCFgi62BVf1ERC02ZiWs59CdstGLCIHCHB+fyI+BntdEo84 +7QsBTxorR/Zgj0RuKq8cJsDmQI22JLa/UwF1Z5KAQZ0k/9RACrkJRoXe/kmA +KGGdci6AQrZRq8LLZJhgup3x/hqTQk8Lku0z5ZhAI23VT2FbtE+rx65igtJU +5uUAbH2Ntg9WSkwwuMlcqoUt//6Q1ScNJqzTXfOlnKDQhFmvjMgmJrx4uuT0 +YwaF0vgKHwbsZoJfVuw9Pjqe/waxHMe9TBAye7ZzzJ9CJz1jIw32MUGP54rc +K+zYuy5r/3owgcUU0fwP25/kzbhAZ0LcmSZkiG3wkk48i2DCv02NYeF+FHqf +oSGqls6E0+clXwj7UqgCiQeOZTDB9l2y8pwPzqdmm8uzmHD8o0beIDbNrvmI +yUUmfJYYFazHTuVhTDvmM6FI/8z5MGybsMIPsWVMeGbGKu/3ppCi4r9GWyqY +MFdId3uFPfsyLIv/DhNcG8TWPcQu0kSOqdVM+CdfwPgy9u/e3sbiB7h/draU +O/ZdB4Ubr1qZMNbX8PyTF4VSfvIJZr9kQqvcu2ft2PQb4/7u7Uy4c379t4fY +KwQeKHztwHkpBQWF2MH1bmk/3jHB/XB6WwC2mvaFGPVhJjTmqSr/9qTQz/eH +u76NMMFXKSySjd2ZxNS/PcaEQDH+8SHsI4OG46aTTOAV5bdrw/6Y0+XtPMOE +P2bhLZexM5dIbIvnJUFExe+xFXbDdK9nND8J+uwKQxPs0d7SyFBBEmbS4nt0 +sS3uWhfSl5KQ5Xbmlgz2iF/sor0Eif/3/kuc9MD9HbZJbpMiYUdDb+AXbHNj +SS0kTYKoWNHRHux08TJXA3kSVDoqzJ9xxx/0VyqokPBq7XB/ITZ5taxVWo0E +X0PzzTnc69Pj+pdrkJAQKf0iDXuElBIX0CKhZIVbcCJ3XMo2cFKfhEBj5UE/ +7Ad/pBJHaCS8tSyqcsce/jZwfsCQhFn/W1W7sM0a45u6TUjQU9+zZRv21+AK +pYdAQpqp8Eld7GVuhzbdtyQhOLrthSa2qdV2h0prEv4oyG1RwU6V/xJ3dTsJ +ZnedqmSwawVupxfYk1CsYlolgT00dej6JQcSImbLB8SwTVqk355zIaH1lvEL +fmx65ZeJU7tIyFl0OPHXnULncm/zHd9Dws5T1IFF7C+RdvoxbiTMS7xuncEW +95GxDfcgoTNo5WY2tondkHeQFwm8d4f6J7n3rzmc4uNHQmy1ZuUIdq2IfZEb +nYT3Vf/1D3Hz5mTqdhEkOBlethjk5g0OdTiQJFCu61r7uHntd0ZsAkl4Y2x5 +/DM2/f7h3xBEQhFnLOgjN7/IfqV5MAn8eauP93Dzz8nqbAolocal9/k7bn7s +160bwknoU9axeIstRlS6aUWS0L1GqL8L29j5SJhaNN4v79A7b7j5ZjuSFWNI +oI8x7rzGPqshlycbS8KjtpG+TuyaFcPVEvEkuEssmHM9uFj5UjSBhCuN2c87 +uPmjRwYFj5Cg3v/4GNdGb3Z8/5tIgnh4bBDX/wcpgAhZ + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9172131614209335, + 1.0887431789666953`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9172131614209355}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.9172131614209335, + 1.0887431789666953`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9172131614209355}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4Fd8fB3B7slTIlshettIle51PiMjWJvty79wh2ckXKW30LWWv9M0W +2oRCiagUSfGLotJiS5Yw173WSsvv3D/mmef1nJn3vM85M88zKvSwXUw+Hh4e +Ch/cc8Sr9Wvvd77awneoZuHwAQ7awirZRLcuQ3aV4RNcDxQYZatbNyBjncIW +rl2I/wmJGTxDopPWp7mujE1sErRuR6o/fAy4Pt0i15hY+hoJeLCaE7DrOiPy +f9HeIh+5mc1cj398mRBX34OEIST/EPaqYTXPeavPaKbPayQee8dUgmlUez+y +F3wqzfWjX+OisaWDyOlZrm4c9rtjsodqQodQuAGlHYvNErIen6UNo61k9Yp/ +sIXOhrsbLIygYzFTvQexlSTyWiPqx5Bo4pXMaGwnhflrLKtJ5DgVUBWBTRaq +yugJs1DSxQTFcOxEDeekA+1TaHndkvBQ7B7Z7o3RpRz0hOd4WxA24RG0P+vs +NMqPjegOxGbn8lypCp1BJuI9zSS2sKreCg5tDt20FfWiY2cTTbYrpOdRkEsP +nx+28nX3xA0L86jSXDHDG9tEN5kVUv8dOV1cTrhhBxr1t49b/UJq33KHHLBn +Yw8KiGj+Rv8e3tBih320XtRCS/gPMh41T7fBzgGTWwHtf1GOV9NHxO13tdU6 +spQXfhmdt9uIXdqSNXBMgQ9UXv0J0OP2HfVJyDjLB401X0O0sBO056rvhPKD +85Cmvgq3720VtSmaIAhOp6Yux/7YOfnoT7EgODkNj4lw+0/f91gmLQQFvPXa +Qthlhk6ZegtC0Cs3QvwK4qDmunje4HphyKXZVo9izzV19Y9ZiUGAf15tHbak +g9iKQ4/EQMJuUaAaW7/bGsRNxSF35rxhGXbQ13uFG9cvA1/6yc352OF87fqb +xVaANr/H/FHsYdUKTtK8BDBGswW2Ys+SL5d2GEiC6iX5JBNsvlsjKnIRkuB1 +Y3RsA7aywZpdpROSsC6E4aGE7WGVXvVqQApsZGa+/tjPQR2MyCjZNmnIatx+ +6RZ23/XUFD9hGRDj73a6gj05UVp8c5sMcDbUjl7AFoke6jJvlAGtrLSmY9jW +J/cY+t2ThUDtS2qu2A9KjOZuFMjDXJZM8o9ADioZ/hljFq0IOnU7erWxt+89 +1RdVrghP7++cVMSebJayKR9RhJztiV9WYBuW6EoruyuBx6u9J+cD8HrSfaoF +t6yBVcUS+Y3Y01MD/4ydUAa/mLfaLthSIdZ3qx1V4fqJ01VeJAeNlIgEugSp +wnG/qRsO2LWfOxWoZFWoCr6WbIHt5eB9QrNRFQo+iH9XwC7Ridl1iaYG5qzx +qg9M/Pzx6+wjsurwMFj3jAv2ngBRPftBDeCxqHqhQ3AQitlL2/dbAyJtA8Xl +sbWTCowJeU3Q3HfeVAibp9jA8shOTeD96bFjgMFB5X2e+6qeaILR4pM9WdhC +rmXHVhWtBbI3kmeOjvtZO74bp2uBVHbA82v+HFS8++KnhSNaILN8m2IGdip9 +cEDgshZsXfra8xA2cfTghFKXFrizFjOdsSUa8nh2W2nDneVvvs374ffHgKVd +r6YDqrXa5luxFVTTElO+6sIZIYf4Zh8Oajgzq/WDTw/OVdzsuontNePeTaro +wZWGQYk07PxmdS1LHz140DZh4Y6tGvDgzff3erAmrdpx0hvPt2xYg2xbDxXr +4rzEsRUVlEhld32Ili+2NPfkIN2r0WKLiAZ2YNpjs4+D6MSJOT0nGsR5pNet +xc5Ry+zz86JBE+vbCWFs/qLbd1piaUDzud31whV/b/njezIraSBxp8N3B/bp +HL88LTUDyFHu0LXfi/c3xWG9m5AhbOc7WG60m4OuRKq73GvfBDWuI5NtThzU +GYOMT141hY0M54yl1hyk4vPWyTt4M3T8/L1rxpiDmH9rKhTjAPIsLYT8dThI +dqJ2iSzdEr633+oIXM1B0QYWnzO1reFkz11iqzjuT/1qlRrfBu+W5Ir6/maj +csuoJQUdtpDRWRAiNcFGJbNBT8qy7eDLdXOO3Ac2+r5V7n/NiTvgl/DT1XXN +bNTLw88Z9HcE/neBnqzbbBS6Oiz9mJozRP5JCWZdZqOK/a2N55NcoG6qLaIi +iY3iZ+QXdPbvBL98x5mEcDaas7dxfe67Cy6Vfyd03NnI1DNj6/DO3TDuvJ1n +iSUbvZHPC2o22APsV3JrXHTZaNW1Ew031u2F6Q821xtWslHtgLaDk7grzC7K +F2f+nkJK3eyAGMoVpIT9PF6/mUIG5zPKigf2AUUG2k+VTKE8gZn1mU1uQK/9 +JdgYP4Vqtm74mFTnDhns7PxhxymUY3xG4lepB4zK+Ip+U51CHZ+uJhuc9YRl +y7LR8CIL3XPMVQ8/6gV9kkciv71hIU7Ibp5QwhvG/hm3WFLBQnM2WoEsKx+Y +i5XN25bCQjeoD9+jjHzBeXfyvS0BLOR25SrDW8wPUv577LnTloWqq3b48p/y +g5Iy0v66JguZKrz5cfqHH/iXKjMkRVhIbSDg4+v9/vCncPYyNUWhr6IHnHOH +/MFog0pA41sKdaY6MWz30oEYbyoJe0yh7NgC0YOddHh9tzij8CaFGh79/cGw +Y0DOXPTl8gsUWu4FpwweMGA1XTsbnaKQ8srnHasbGEATjk/kxdZvd5QTesQA +3ziX7KZkCu2y8LzZ84QBSl25Ztuxs1fHtB1+wQD/NJ743UkUWtV7a3lrDwPO +jLu2RJygkLqPbI7XAgMYGyav/y+RQqZ+rBtJhgSU5VxU5I+j0LVL7CgnIwJm +RTwn3sRSaGXX9BZZEwIcNvX2FmGzti103zAnQH2VxkYr7BIdHt52SwKoW/Pp +Sf9QaNmChLvkTgJUwcRYIgavx7lNSwtCCLCMuaJtHUWhnc+NuwPCCHhmW5Ml +h/2Ix6xAP4IA6c1PVahICl2K2rLpaTQBNIuWsgvYTu62/sOHCDjaX3ZkIoJC +derudTpnCFgXSZfKDadQan3C/tprBJSzUkXlQykUQrtoGnuDANNc94/TIRRy +uFm51KSUgLfHP7W3Y4tcHLl5v5yAR+kiisewkyJdxmvuEmAWZxE0EUyhBC31 +A/eeEnDfU6Wu5QCFgi62BVf1ERC02ZiWs59CdstGLCIHCHB+fyI+BntdEo84 +7QsBTxorR/Zgj0RuKq8cJsDmQI22JLa/UwF1Z5KAQZ0k/9RACrkJRoXe/kmA +KGGdci6AQrZRq8LLZJhgup3x/hqTQk8Lku0z5ZhAI23VT2FbtE+rx65igtJU +5uUAbH2Ntg9WSkwwuMlcqoUt//6Q1ScNJqzTXfOlnKDQhFmvjMgmJrx4uuT0 +YwaF0vgKHwbsZoJfVuw9Pjqe/waxHMe9TBAye7ZzzJ9CJz1jIw32MUGP54rc +K+zYuy5r/3owgcUU0fwP25/kzbhAZ0LcmSZkiG3wkk48i2DCv02NYeF+FHqf +oSGqls6E0+clXwj7UqgCiQeOZTDB9l2y8pwPzqdmm8uzmHD8o0beIDbNrvmI +yUUmfJYYFazHTuVhTDvmM6FI/8z5MGybsMIPsWVMeGbGKu/3ppCi4r9GWyqY +MFdId3uFPfsyLIv/DhNcG8TWPcQu0kSOqdVM+CdfwPgy9u/e3sbiB7h/draU +O/ZdB4Ubr1qZMNbX8PyTF4VSfvIJZr9kQqvcu2ft2PQb4/7u7Uy4c379t4fY +KwQeKHztwHkpBQWF2MH1bmk/3jHB/XB6WwC2mvaFGPVhJjTmqSr/9qTQz/eH +u76NMMFXKSySjd2ZxNS/PcaEQDH+8SHsI4OG46aTTOAV5bdrw/6Y0+XtPMOE +P2bhLZexM5dIbIvnJUFExe+xFXbDdK9nND8J+uwKQxPs0d7SyFBBEmbS4nt0 +sS3uWhfSl5KQ5Xbmlgz2iF/sor0Eif/3/kuc9MD9HbZJbpMiYUdDb+AXbHNj +SS0kTYKoWNHRHux08TJXA3kSVDoqzJ9xxx/0VyqokPBq7XB/ITZ5taxVWo0E +X0PzzTnc69Pj+pdrkJAQKf0iDXuElBIX0CKhZIVbcCJ3XMo2cFKfhEBj5UE/ +7Ad/pBJHaCS8tSyqcsce/jZwfsCQhFn/W1W7sM0a45u6TUjQU9+zZRv21+AK +pYdAQpqp8Eld7GVuhzbdtyQhOLrthSa2qdV2h0prEv4oyG1RwU6V/xJ3dTsJ +ZnedqmSwawVupxfYk1CsYlolgT00dej6JQcSImbLB8SwTVqk355zIaH1lvEL +fmx65ZeJU7tIyFl0OPHXnULncm/zHd9Dws5T1IFF7C+RdvoxbiTMS7xuncEW +95GxDfcgoTNo5WY2tondkHeQFwm8d4f6J7n3rzmc4uNHQmy1ZuUIdq2IfZEb +nYT3Vf/1D3Hz5mTqdhEkOBlethjk5g0OdTiQJFCu61r7uHntd0ZsAkl4Y2x5 +/DM2/f7h3xBEQhFnLOgjN7/IfqV5MAn8eauP93Dzz8nqbAolocal9/k7bn7s +160bwknoU9axeIstRlS6aUWS0L1GqL8L29j5SJhaNN4v79A7b7j5ZjuSFWNI +oI8x7rzGPqshlycbS8KjtpG+TuyaFcPVEvEkuEssmHM9uFj5UjSBhCuN2c87 +uPmjRwYFj5Cg3v/4GNdGb3Z8/5tIgnh4bBDX/wcpgAhZ + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9172131614209335, 1.0887431789666953`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9172131614209355}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0.9172131614209355}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "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.9172131614209335, 1.0887431789666953`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991347865018469*^9, 3.992108439144165*^9}, + CellLabel-> + "Out[140]=",ExpressionUUID->"ab4ad784-6959-e04f-a12e-7fb28f80e604"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918473358384743`*^9, {3.9918474091630096`*^9, 3.9918474093563137`*^9}}, + CellLabel-> + "In[141]:=",ExpressionUUID->"29fc72a2-353e-bf42-8947-0608fa83191a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.7805835694848188`*^-272\\\", \ +\\\"5919012181389927685417441689600000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 141, 594, + 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913478652482224`*^9, 3.9921084395072155`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"c2a43784-d633-3547-a4c1-ffaee26504a8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.350937830630534`*^-286\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 595, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913478652482224`*^9, 3.9921084395312195`*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"d694560e-5fd1-8543-bc26-2c1e5701c66e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9433433895966984`*^-299\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 596, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913478652482224`*^9, 3.992108439548218*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"ec515fc1-c065-ab4e-a9a5-aed9f3b47315"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 141, 597, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913478652482224`*^9, 3.992108439566221*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"3cce077b-41b4-d24c-88ba-c6ed96071bce"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVlnc8l98bxu09S4Sy9/wMEdVzbiFCieyQkE3m1wxJiGSWFcrKSMrIyuaj +SPaolEJEy46I3+f3z/O83q/zOue5r/tc53qOsN01o6tUFBQUp8mP/79zwuzo +8A7ZWNx+q1z/Mzusa0RI30woCB3ooQsUFldH+6SWm0JCt5G7e0vFppghymlL +EKQVykQ+AUGWb8WuIPdT/h5/BEvR28MFQZ5i3mhkxzltWbAB1beGNrOL3kD0 +H2Ykfwq+RnsXP6sWH01Gj3rzvL8LvkNvwegyL8Mj9LTy9gd3hSV0C0Vx1Vk9 +R05oKPOHzxqqM/EhjHyvRxT5m40f4teQ4Cd+7nr6BpRBc2Sqt3AN7UkNcd0V +bUCvXjsKlI6voT7ndUnWSw1Iyng3/6raOjob4stg+roBfXOWfPKJcgONvNfb +oy1oRK4p11sGkzbR9ywt9VDdl8jzq/RszdNtFO6XaDzj2Io+27xjaH+9jU41 +RZ8timhFFydjFfrntlHB4O9vRlmt6HjfQtBXvr+IbXX7t0d/K6J+XsTBHfMX +nf9CGLrA24YyQoWxgMs7aHt3mTI4tA21H+TNVOX4h+SNLt/5T60dKSW8atGS +/YcWpH+obWq1o2K6wDnDM/8QE+FOkKthO7qzPa7oGvoPmfU/TMY5tyPT6TRS +1rd/6IswXxbhXjtaKuNY32nbQ22BT3IYf7YjJuEoyenjFJA0HZE2k9qBXp1M +VgzTogAd+ofDKKcDRZvnqhw1ooDtO6SslOIORJVUr33JjQJK5368PNzQgf7u +/XCayKGAJTnujeKPHej7lEnJABUlXOeJq38l1oneZEhKt72hhKMLH0rYyztR +XI0S/vI7StAWdV09XN2JdAbVVfe+UgI+ovQ/nqZO1EVvdfbkPiUoNE5Jrvd2 +opf/JbnU46ng9vEHO7JLnajCeLv02X0qSMdF7KZKdKG7HH0yj2ypIWC/fO9E +ehdqUDlae96TGpapTVwCc7vQnM01tBtCDYav1v49LupCJyoOGpulU4Oz2fij +z9Vd6NtZq+usb6mh6ZBjW91AF9K4+XMg6AQNUOwKfd2l6UaeZchS8iwNjOhz +lboxd6OsoeS5UVMaCORYTezn7EbLgsrbij40oBDtSXIV6Ea5L8NE5ktoQNVK +4x2TSjfa2mD3N+KmhfuKv8a/XO1Gokft9vdFaSGsUngu0q0bndesuV2BpwW7 +VCY+Hu9uVJRinstwjhaO/ZCi5g3tRkaKj3pabtLCyK/Y2cjkblThTOCTXaGF +I/GM/b8butFkYlTh5B4tpJoHfeps6UY0deMK0Sx0ILf5XSa+sxtZ0oZofJGk +A7NM3pC1N92IIb/TPd2GDn7K/pWQne5Gdh+MW6nf0EHHK0z7OCUJMWV/8fB+ +Rwfz743FFWhJqMrS88j0PB0Y+XwY4mEkIer3MUGNlPRw5sJqLomDhAonG4ne +KvTA2l6ukyJIQvoZ2jOfNOnh7QebdxKiJLRuNpqkb0QPjjZMepUSJKQ18fOn +pAc9hPlZfMiWJ6H5MaGST/n0kCyduDWrRkJ371WY6j+jh0vI5x0PRkLKJmq0 +jc30IHr4+jOkTkIxoxft7k3SQ+oxZ303bRKSGok+os/GALHrzgmEiyTkOvgj +qSGIAbBHGnM3nUnoQFIQkoxhgLzF6eQtVxJqNKD7lZbGAKo5TU5XPEiIeUBQ +z6uSAQ4QuLPYfUjoSb8RreRXBqAsaA39FExCxgnT1WmrDPDietDAeigJ7eq7 +21FRMIJyvJrTfhgJnXtzq/UjHyNc2/7ptxJJQr9664PSLjDCEP+q39k4Erof +pyVFZcMI2uzBl6jukBCmOzx+zY0RJK+rFFcmkFDi6+9EvWhGoIp4ELiQRELH +bwfO1KcyQolgBINPCgl91qFNlnjECM9PcrKupJIQ7pXAL8qX5HGM99ab+yQ0 +GVP+4NprRtjOOUQpnUFCEdrH9T6OM8KcVS9VcCYJDZIMS+pXGOF0Ul/JdjYJ +eXdH2V2TZILpeqmdaw9JSGDuDN0mkQkOe1kRbR+RUB8VY1koMIEw43DCmXwS +EoeEldsWTCCWGF+/UUBCwzYG9zgcmUDmjENSSyEJhV/nVE33YQLbqyWZ14tI +6F3jvYjCeCaoPDFn8KmYhKLfmYnJZjBB0GAhTcRjEiJu8b56XsgE+8F2f3lK +yPq4p9yOP2eCH/Wcx4rJnHAsl721mQleOlXUy5SSkJqxbbVWLxM0NCvfLiLz +go+I2ZtxJtg6XVvGXUZCaclzf41mmeBCr7JwGJnVnxXnvvvNBMauA8sfyPzr +rfNp210mOP5f5lFcOQll/5SZn2dghu7/asuDyazD8vO2xyFmUBLVzWsi84ZM +pfy6MDMctYzaXSVz/lnvoWAFZtDiS+8RekJCBs5Ef8oTzBAc0kSjRebd6I3D +sdrM4PcYV3+ZzKVFdS/ZjJkhYfjEvBeZTbuCbO/ZMkOeklRqIJmpZ0/QHPFg +hg5K7c7/yPyMcu9xfhAzcNj/DnYjs7VQm550NDM4XwtrMSUzE4r8XZnCDAJi +ZinHyVxnrZmqnMcMjdYzfznI7BBKp9Jczgwlg3d3p8n1cma/eq9RzwxfKIey +i8jc0hAX1tvFDPlI9OMVMrtN6osYDjEDdRZtNxeZD/9hI018ZIaCD//MWsj9 +6j405GKzxAxnItOzbMjso5TK+nWTGdzq7JM3yP0XvGjy3I2aBb7rbMNNMgcl +vdsKPMICAe1/piLJ+ydRmf1gX4oFKFTKhtfJ+z3Sbw3Rx1hgk7sh1ZrM8swz +MannWcD0Y1PcQbI/3ksXyvJdYoExXfFeW7J/YnQcBx46scCi8PhCIdlfX24t +cT+NYAHBEKUhTrL/7hY+aVRKYIHCO5HFamR/nuj0tGnKZAErHgsPS7J/71Gs +Fb2qYoEDfXyzYXkkdFqw9qxBKwsMZw5m38wlod+nAn6O9bEAv0ChRXgOifyf +31GanWMBXXOfrUvk87GZ2TzpssIC6+O2syezSKigPjx0+R8LXEowXuAin6d/ +G9Rd/7hZga/E9XwZ+fw992K5ePgsK2yUg6RbMgm9yToYVGHKCsV6EyPzieR8 +6+LLO+3ACr13xVXN75IQH6/0d/dwVsizvqRzJJ6Eotq1brbXssLAwwaiTBQJ +5X7XLzXtZIUEfXdbY3Ke1B8yHvg+yAr3XOxD/CJI6KeLHT/3D1Zo/WCdfp+c +R6YHwqtdRdgg3CxN0t6PhLxORr/bV2SDScwg+hQ5z+IcE/bTTrFBxy9XJjYv +EmptzNZrNWeD5xZduclu5Py0r589mMgG1FzqzaJ2JPS3euVg8w4bFFf/ZA0+ +R0Jcn7ZUjRjZoTXchbtRl4QUGChsF7jZoQ8/8GKZnL/2VmxPOAnsQCf4Ykr9 +NFk/jaymozM7XLyUE++nTNZj4uDHPsYOsumqO8JHSehRiNsSzowDDq+VY8Oz +3QjXxrgVY80BnYx3F4997kZtNCW00/Yc4KtUdSxlqht9TpgTSvDigIPVLn1K +Y91I4KG12eJtDgjy63soQiL/j7sMuh695ACb+Hs5xcXdKIVVKfeACCfYWMpW +XrfrRiJGw+UuUpzwKdpQkMqmGz2/79XQpsAJ8l0ZVBEW3WhQsGLU8wQnsMZd +OOV8oRuxESSY+4w5oSVVHn0/1Y3iTA8H3ozhBHFdevN2nm4UmbdruP6DEzZH +a9U/krrQBVy9t+waJ8SJvS2pa+9CAu2+yXbbnJDimp1252UXapxZGhykPQDy +rEJcElVdaFX8nUGFwAE4IH3T6XBOF7J7UnvO8cIBuJ5ASU/h04XUGzzPTlYf +AJ2opf8YDnchipHP8DL4IDgT9Z85m3YiCT/HQGOZQ0C8p2b9M6IdzW2kmzI3 +c8Nd66VZ/rOtSPer6/UU78NAX9ozvyzahM7PJckKCPDB421tEXexOrTUaRfx +qoIfUhVrRk5mVyMFzvGjGpePAkVaWZbMoWfkvNm4MrUmAA177LViumVI+6fl +HxETIdipdbvn3VaIcrlujoSbC8Gu7WKE15NCtH6ivHLqkhDE/Lz1KTSjED2M +23G6bycEZWotS81eheiv5INJRi8haKwXFfwiXIie2H1sWI4Tgv2zuyll0QWI +Y/JyaEubEKwta+idtMxHkx0OlJZywvD3l7D4gNRDtKz+nu+6ojCUO2tzHud9 +iOjbDZQeEoThUnC48BPGh0i5Vc1p/rgwZNkIaLqN5aG0Jo5+Hy1huC8Skp1t +mYcMal5mxNsIgxi/OZ+QSy4iFXHhmpOEoXl4Zuv2/QeoNrbLRmhDGGKt3vif +w2eiEt2+wzFbwhBNLWtvcCgTZbEMD//cEYbe8XdWLtsZKCJp+kwTlQisXHTQ +/dqeQb7v/FUw5RCBB3l1n3cuZqCZx7j9eFkR4DMQ9coKTUdsPQ/y/lwRgf/y +uvfPT99DjrT+n9++FQE/IzZHlm8piE/w9cTOkAiYjzXeJ4ykoLfHjw5IjZHX +K6o45taSgpTdu5sjP4jAc1HB+wfvpSC6kUPZyt/I43MPSEgjBRU9fGGSSykK +cN2O4V9+Mpo7sdXroSQKKv+dL+y8loQyTPQ7slREYfzJvyVR6ySkf+1hQ4+a +KHC1C1vc001CNfk6JcLqojBM4RtZLp6Eohgzb42dEwXVWmxAuyERiU2owikn +UWhvfjwRkH0X2fuE1LJkicLywAe7iMA7SJnwqVY6RxRYUUk/g/kdxLQKL848 +FAUHnZfVlSp30DNvurqIYlH4s2ZRYP4nHu16JdevV4nCidiP37kC49H9a4+b +pvpE4TPh+754eBx67T7S/uSfKPSerbMVLohFD+SUO15TiMFwor7BxehY5PUj +o2OeWgxUp87rPHKJRdzuNp1CTGLwJX+PORkXi+zcFrvSuMVA74BtU3NrDNp1 +2e8JVRQDi0j3t2qz0UjRSfat/hUxYHY5fugUdgt9chG8VuEgBkORiY4FIrfQ +HfeDHGzOYsBnsTsjSX8LLXrvGA54ikH+QaPduMEoVBDaN2YYKgYaVL9Y6hyi +EE+K20fTdDHoepWZnZxyE+2/LP9h2y8GUbKWiaXUkehpa15C+6AYEL8d+1r8 +/Qay6khVEBkVg8PNLh6tIzdQQ0+I1+x7MeiJ7KtTL7yBfIf11q9+EwNBvfWy +2DM30MLC9x1XanF4/DX8A3NSBBo4IMfsryoOuxfykxPdwxDm4bGYfVIcXCyZ +bTu1wtDTnqc9HeRbm0LM9gNhwTB0NxQfxXFGHMKpmoethq8j/Xnlf+VG4vBb +r0yjV+066m1Q/z3jJg5fzRaO2B0MRd22ZiMXcsXhjoc3bdJMEFJqynge8Egc +ws50qfW3BaHCQ+8TcwvFoZVnNhyXF4Sieq30f5SJg5YRTZWzVRA6rWTXHVMn +DirpB2kfTAaiNnqPupZBcWhi5eRdmQhATU8js+WoJWCvoE/cc8Uf0emb8KXT +SYBAFjbSOOSPDBclMymZJAB/i+aKYpU/WhDtvz/OIQFFhuahib7+6GAmT0qE +gAQ8Pq1rILnlh9xuPokdVZWADMaM/BQGP8RvPu4f6iUBoRvzvNpaPshxo2R9 +3lcCWE9q5GjI+KDnKSG+hgEScOvMT0l7dh+k3S/kLREmAePx3S1M772R72k3 +98F4CVCk81784+WN+uQo7MUeS0BuhymSKfJCIZQyF958lIC1lg7jRT1PNK/J +PCnxRQJ4NC0mfgp4oguxPy7fmJOAR0TZC/KrHkiMvfKa8ncJGA26IGaV6YHe +HFFKfLglAbXXZi/7LLkjgePYW7+DksBUysGqm+6GOjyN9I+elYQu7jqPP7wu +SK6KOBqgLwljc4L4mTVndH+Dy2rYQBISLmpoUbx1Rm6hE24xppLAk5sVMBbp +jLjirOJX7CWBTYT3xcdfTsixyLG3O0wSWizvdRAHHRHTVLCOZ40kGEyUMnq/ +cEDKAaWsiXWSIPW3yzAiwwFdOTA5XNkoCcofELwIdkD1OsesV9okoZdq1fEe +ckCOtb+9/folgdUBr36kzx6133XIDp6XBPUZqV7JRTsUqH7+V/RhKSiWNNHg +gyuocCq0+jG/FBjlxU88lbiCBgLKA18JSEE8XzrDVdYrSOIpAzWTuBSIFk6W +HPtgi0b4OnkS8FJg9W6nxT7QFimsq6in6krBoX8jskXel9HXYuG0vFApkPp9 +4/bWIyv0I+rLNnWEFIhkGJhe8rVCq3aPLjvflIK8vW/xVFpWiEJQWBYfJwUd +T7zGjyxeQnzpQh0d6VLQeNwxLEDpEroQI7j8tUoKnhXufQ6esEAvnY7qyy1K +gZK2UGqQvhnq1Pr4POmHFLwYYqroETdDvaI5PBu/pcDihNq2wb4pmpg+Mtu8 +KQUPlM/8Ya02RatmR4INaKThQkKbhspRUySlw1/iIygNfInXVv7tGKM0KV6a +BhNpUK52NbL7YoSsbCQez5pLw3Fj7/KYTiMklkbUZbOSBrnBnZWJIiNUs38u +yd5OGu6td3luuRqh0fHII2zXpOHjn2gt4h9DdPDWDyX7WGkwijzMacdjiFK+ +tF5lbZKG5uwnWNDSeWTJ089wvEUaNnP57WrrzyORc+/L7dqlYTowvkAt5jyq +ql9fqeuRBgudVBpB8fNoOFE6zG5UGta/V69qOpxDnFjq/bqf0nCsuM2p5rce +Sspy7LkiJAMih6ydKo6fRQH/RfqGispA0kdDVzmOs8jGKFcwXUIGBLxkKBcW +dJAc03jAGzkZeFz0poo1Qwe9DtKSUlGVARqFiKrDO9qIykLsNouRDMicvpc3 +03cG+fPM6NbdlAHjyAIRjfuayGrt3+ZQNHn9d0ETBX6aSHOAt+DHbRkY9VSi +VLmoiQ7EGO4IJ5F5ILpwjUMTPd1sK7/zQAZedXwYabmrgb6N5bHY1cqApcse +r33qaWSZZv2WZUEGvAVGO8VaAR2pZuJ3W5KB8sH6yr8PAU0P1Tm9/ikD/T7z +lVQ3ATmwH6CMXpeBaRmtjsfagDzjSMR9Slm4XItwocUIRUYoZq4ckYVnPcps +9fOnUKk7pcO4kSx0ZjQ/WShTQ+7xT58pmcpC/H7hJ5pgNaRQdulfioUsJDT/ ++O53Vg1VLdTeN7CVhW7j8zl6i6ropZ3r61cesjDfxfCoW04VDZqPKDTFysJQ +nFhIRIcK2tIs2s5rkYV+M1+JMfFjKLQp72ZXuyyIUEaa01EeQxSELNbFLlng +suhf8ZlSQvSCicKEPlkQOii9t5uqhLi3A892TchC0LnWA320SohYoZ/5bVkW +nobVqNGuE5DnofXjeFE5qNoO3KvbwqHV+F8dJhJy0BTrklL7Hof8qRb1g6Xl +YKWpMXjuJQ6F/v5o26koBynnaYTHbuBQ/OueWJOTcrA/K9e9zYpDJdezJ4NM +5CAp09RG1EYBzX49HdgRIweFHUXPCeKy6HTe23yZeDmotxuwt16WQQ/NLftT +7soBvTDz94UmGWTT5y1if4/Mk5u7vMYy6P2zh2+oC+Rgtixw/3OsNBoO2RPS +aiF//1r4ti+1FOrgbHzdsy4Hh5omrj4+Lo6E+7TWFbfk4FIFx81SNnEUETUk +kLEjB3Iz/erbc2II+/PN15lKHnoql9PCU8RQ4xSPACOHPOR5qpvwroiiqsf+ +Prqy8kCtUf2R86UIyj+F5++/Ig+tNG84Om8JoY7zTDd3HORhzJN5osFRCM1c +nl2SdpaH/545HVvQFkKikfcaoz3lQTA333yOSQgVkrYtIEQewrj3LjRLCKIi +g46M6jR5sH4myslpdRSVXLnIndUjD2UboWXz7HzolY9c2KteedDsVpo59okX +fbtJO7/ZLw/mf1WoPj3hRVLFdbUXR+WhT1utUlmPF5Uu8ZuwfiHXz/np3Xb8 +YVTmO5ca8VceSjhO8usd5UEVt/w5neQVAGMZDbkSwoV+nLSOvIVTgLfjOYPR +xlxIbl1zrYCoAIMsYb4r8lyozI5r7LOqAuiwG7xL+3IQlaDqDMszClDsfqWT +Xv8gKtxeFjx/WQGmbm3KnZI/gLI83BWOJSvAe123VgoBDvRezDjvYpoCmGMh +Rrv/2BHv1AkOn3QFaJzpS3RqY0cZusyrT3MU4OXMCaM7Z9jRPcmyWqkyBbjB +53jjrxkbSvqycPJIpwIUnqSKe32XBcWY2OtRbyiA/AO07KrNiPINpqyubinA +4aq6it+cjOjlWRPPnh0FkMntJU5PMaDVU9rJ8VSKoBASEL7jy4CsJGQnDnIo +QoxCV/HBx/SI8GfVTkxWESQMm6j4hejQuRU3v2gFRWgaIMyvLNMi5+9zt77h +FcF4v6xFsoMW5UyPlzw5rgj5d1xvVVylRQyvGn8pnVGE4oFJObbnNOhTRmSw +1hVFGBA4PJpgTo22U3biHzsoQpqjzVcqRWrEleCXw+isCG/pS8+/oaVGZ284 +tvV7KsJvnbpSixoqVOOiS2caqgh+tDHq5w5RoTi1AymO6YogEpzszzlPgY5N +PSqN6VcEVQKvl2DYP4xDwXmrclARokWCE4VO/8N+hCtoT44ogofAotY9un9Y +oWjTnNR7Rci05VceT9rFuNxGBXvnFYF7pDE/r2wH+xtKrUdHgYOfc077D1e3 +sW9Fjj5ZlDiIex+YHdq8jY2/fZ2pQI0D8eAa29bYbaxKKOmbKR0OfN+wBQYI +bWOuXUeiH7PgYMThe0aO8Rb2jlm5XYcXBxo3uO6KDmxiJKXMb1N8OEhkkDx7 +5OEmVmO9y+59BAcF0n57Xt6bWFJlh02mIA6+VJNqZA9tYjoXDXYXxXHQxnaU +b9R2A6vPclaJJ+Agmn/oqR3DOpYhnV3Rr4eD9zlbJafSVrD1tTNFN8/hgPHM +RKWv+wpm0LL6QNUABzavE7X2NVcwuou6d4qMcNAj8NuF688y5h+67XrdAgfh +x76siV5exowGzKTknXAQ+fwhx93QX9jTTGqhWWcc5Ehco2dX+YUxOlTyZLri +4O4FmhyJ1Z9Y2xYdPa0nDs4fZ5jkcv2JKYq8+DrlhwMOS8z/je0PjMWfq+BO +JA78G7JHi52XMGfUlnU6CgdVHRxX6OSWsE5G95StWzionKC8tPR7EQvO7bzh +cJus/+kTkxNBi9hij4/tySQcxIjbs8wlf8NIfENHf+TgoCyTStX9/TwW3paQ +odeAA8HmqpDM9lls6WNb2nYjDgpFfll7p81ipjtrSY9f4oD3UUZmudMsJqds +eZu6DQdrrM3rGuyz2GS5RHATCQePCyJ9f9nNYIT01kuyozhwuOarcoP/C5ZT +s2r2bgwHf6s46UTXP2MMw+LGMRM4mC6jUeHv/4xNs9zRn32Pg+af/WvMEZ+x +O5Hmp7K/4OCU5SfBupFpbN5jRYD5Nw4ubrzoUMv8iBnGi/E3LOPg826PSYnx +R+xliRmP0yoOAk3xYRUcH7HU2Wb2zg0cEOb2s4PipjCwiKMI2cXBEbGQn5tR +H7AsTdGZJUY8RE6cqgtNe4ed4zcp6hXDQ8RtaeaZQ+NYxpxC2yUJPJSaJXFF +fB3D5ioYPvyQxEO70/CVm7VjWCi85GCXxYPUAfqiF6Zj2JOroqEX8Xg4HJko +25gzijE9WzGaOoWHgcMVg3dOjWCmQX0eHggPDBMuW6IHR7D800Wxe4CH4i2O +61yLw5jqmHmLkCYeXJS1RvbuDWPOf1ulr+ri4QKVV8DXtSGsR/MuxS9Tcj1e +e8sOrYPYATZn/nBzPKhJBX6DrEHMZkJdmcMSD/5XqEvd/AexTZcNN4I1Hk44 +n2YulxvEJBKtJv6zx0P3o0PhEacGsKh3Mk/3r+Eh9FsBVbhwP6bu2XOJ8zYe +uCRoY7UvvMb+Ti6e6YrDg6h3ruTzA6+xGg0WQsAdsl6qZ1plY68wCV5Dho+J +ePB1lqA/Y/0KY+l6X1NyHw/Cyuf8KX17sEneX6xQiIenypdXwuq6sZQoju3V +Ijy411R9vhDZjen9JswVPcaDsvR6Rt65bqylK6CRuRwPCtLczJVfu7DCa5RO +E8/xcK7OlzaQvwvz6uZq82zFQ+tC8tHeBx2YDE6lXLgdD6N+g31Lnh3YbJbF +/dEO8vyMy9MB6h2YqVeuuxoJD7WnVp1GFtqxk/xSvHT9eAj7drHXX7UdY/A+ +4ZPzHg9TJiOaqtOtWN4RO7E3G3hQCWYc2jzdhKkRZRXs/uChC9QrXKibsNGz +6ypbW3iw/DXS5NrViDEEROuJ7eKhwfRF9QGdRsxrqMwnlIoAPgaJHu9MGjCI +XmuTYyfAfxuDhZpxddj7By97OzgIoMgj4MF5sQ7zq741an6AADeWRG5aHqnD +Sj7zfIs6RICoPQ4P62cvMM4TJ9k/8hPgO4klgvFTLTbzO8o6QYoAm+aphfwG +NVgo3XknURkC9Gf2RyoJ1mDcR3m8G2QJUG7JuNzwuxrT1S2N+qpAABT1/Q1d +SjVWVdhffuoYAYS1OQ0SP1RhNy24//5UJ4BtxKhr+o3nmFjn4/vnLxFAKwCf +Hyb5FHsrt1U4ZUUAz6CC96ufK7DA+zrVrjYEGMqueUObXYH1uSwORF8hgIhB +zG0qzgrMh0OWsdWJAGx7sc8INE+wVuunIYp+BPjKz1x/ga4Mc+7Zu93sT4AG +FyUc9+tS7ADeIEMvgACuLYunHe+UYo40yzVOwQRgetwR+4irFGMpx//KiyBA +Y5iskYNsCWa5VWPLkUCAaaez7kLexRiNHe213LsEiJG8OE9/shh72mdyXS6J +XJ99ub4zfTFGmbeZqZNKgOUXvO2JeUVYidbxkYhMAuTyFa5ZjRViGylNWitF +BJAU083nMi3AkuQ7ZIZbyHoT52kiix5iJccvMUa2ESDCJsDMMPgh1qqxvoDv +IIDFs9pHdwweYr8sJIqSuwkQsIGXit7Mw/Si4wQN3xBAg2XgimRlLkY3bcQ1 ++I4A3C2b6L3WA+zo0vfV8A8ECLp6hpp9NxtT2ogaUvxIgKzd0Wv/qrIxe+a6 +u4mfCXBn9pE2hWg21qbCz2iwQAAlugfzHsxZWEjS7L/+dQL4lYbr+++mYynZ +oVPXNwlgGTR9OKQ5HSsrPtQkv0X2W07wJaHwdGzypXZgwg4BaIcPH9egSceU +F8tX9amI8IlBtLPt0H1sWd1voY+dCAyX/WYsjNMwxzWaodcyRHCzSpYoUE7G +bMo031rJEcHV7WzfGnMyZnolqu+3PBGe/Y7LKvuShJ0ZoCYdwhOBbcKXTftu +EiZRTtV0RYUIhqfFpTUnE7GvdhRF2xpEeNMTd1fNNwGb4iVfbbSIcPZ0qWO/ +dAI2OhieJ6hNhM0LPTScX+5gXdh+ppYuEWzdL+MLDe9ghXx7d5MvEEGBTevq +W7V4zGF4J1DamggVDviTn2RvY1a3T/z30oYIi7xXxLp/xGLGEOJrYEuEONHt +cc2nsZjm078e/vZEoPWPYGMkxmJicdt27S5ESPGlzwzTiMFm1f/oW/xHBM6/ +Jjc2w25hds9XhW4nEuFF+O1jPmaRmHvkxV3dZDKfUBHIFI3E/C/WTLCkkvW8 +rq4/t3wDi93wv5t0nwjrTbMEy/gb2FPV7Z30HHJ/FzNMJ3sisO32/fHiciKY +slgkulWFYVSptlXOFUTQKmmJF74UhrE4tCfIVBLBjt0hs4cmDBOgu6n5tIoI +ys6N/95ZXsc0demqahuI4Ogo82mEMxRLGmZJ6OohQj6VWgx7aRCWVeDhHP2a +CAZjbW2ll4OwAr+3Gjp9RNirOXqUnScIe8Gd9LfvLRFaae/3EWIDsSnLg84j +Y+R+qm4yFPoGYJKzvBozs0RI37Bwuebhj+FqggUKvxKBNcvixGtFf0zt1oft +qwtEyPrM3PJ21Q/Tl8x5trhEhFn5U0VjwX6Yj5uQwMoKEej9MssepfhioSdv +bFetEaH8z5skSUtf7BbrzKjfBnm+cMQpPRFfLKOyIH5riwh899LPXq3xwfIj +aJwa/xJhJEHP3jzMBys3vHo6dJesz5KxfkbHB6sRIR3F9ojAuBReScXlg7Ws +SWzv7xOBJfBG7Ytpb+x/AHpftw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8l98bxu09S4Sy9/wMEdVzbiFCieyQkE3m1wxJiGSWFcrKSMrIyuaj +SPaolEJEy46I3+f3z/O83q/zOue5r/tc53qOsN01o6tUFBQUp8mP/79zwuzo +8A7ZWNx+q1z/Mzusa0RI30woCB3ooQsUFldH+6SWm0JCt5G7e0vFppghymlL +EKQVykQ+AUGWb8WuIPdT/h5/BEvR28MFQZ5i3mhkxzltWbAB1beGNrOL3kD0 +H2Ykfwq+RnsXP6sWH01Gj3rzvL8LvkNvwegyL8Mj9LTy9gd3hSV0C0Vx1Vk9 +R05oKPOHzxqqM/EhjHyvRxT5m40f4teQ4Cd+7nr6BpRBc2Sqt3AN7UkNcd0V +bUCvXjsKlI6voT7ndUnWSw1Iyng3/6raOjob4stg+roBfXOWfPKJcgONvNfb +oy1oRK4p11sGkzbR9ywt9VDdl8jzq/RszdNtFO6XaDzj2Io+27xjaH+9jU41 +RZ8timhFFydjFfrntlHB4O9vRlmt6HjfQtBXvr+IbXX7t0d/K6J+XsTBHfMX +nf9CGLrA24YyQoWxgMs7aHt3mTI4tA21H+TNVOX4h+SNLt/5T60dKSW8atGS +/YcWpH+obWq1o2K6wDnDM/8QE+FOkKthO7qzPa7oGvoPmfU/TMY5tyPT6TRS +1rd/6IswXxbhXjtaKuNY32nbQ22BT3IYf7YjJuEoyenjFJA0HZE2k9qBXp1M +VgzTogAd+ofDKKcDRZvnqhw1ooDtO6SslOIORJVUr33JjQJK5368PNzQgf7u +/XCayKGAJTnujeKPHej7lEnJABUlXOeJq38l1oneZEhKt72hhKMLH0rYyztR +XI0S/vI7StAWdV09XN2JdAbVVfe+UgI+ovQ/nqZO1EVvdfbkPiUoNE5Jrvd2 +opf/JbnU46ng9vEHO7JLnajCeLv02X0qSMdF7KZKdKG7HH0yj2ypIWC/fO9E +ehdqUDlae96TGpapTVwCc7vQnM01tBtCDYav1v49LupCJyoOGpulU4Oz2fij +z9Vd6NtZq+usb6mh6ZBjW91AF9K4+XMg6AQNUOwKfd2l6UaeZchS8iwNjOhz +lboxd6OsoeS5UVMaCORYTezn7EbLgsrbij40oBDtSXIV6Ea5L8NE5ktoQNVK +4x2TSjfa2mD3N+KmhfuKv8a/XO1Gokft9vdFaSGsUngu0q0bndesuV2BpwW7 +VCY+Hu9uVJRinstwjhaO/ZCi5g3tRkaKj3pabtLCyK/Y2cjkblThTOCTXaGF +I/GM/b8butFkYlTh5B4tpJoHfeps6UY0deMK0Sx0ILf5XSa+sxtZ0oZofJGk +A7NM3pC1N92IIb/TPd2GDn7K/pWQne5Gdh+MW6nf0EHHK0z7OCUJMWV/8fB+ +Rwfz743FFWhJqMrS88j0PB0Y+XwY4mEkIer3MUGNlPRw5sJqLomDhAonG4ne +KvTA2l6ukyJIQvoZ2jOfNOnh7QebdxKiJLRuNpqkb0QPjjZMepUSJKQ18fOn +pAc9hPlZfMiWJ6H5MaGST/n0kCyduDWrRkJ371WY6j+jh0vI5x0PRkLKJmq0 +jc30IHr4+jOkTkIxoxft7k3SQ+oxZ303bRKSGok+os/GALHrzgmEiyTkOvgj +qSGIAbBHGnM3nUnoQFIQkoxhgLzF6eQtVxJqNKD7lZbGAKo5TU5XPEiIeUBQ +z6uSAQ4QuLPYfUjoSb8RreRXBqAsaA39FExCxgnT1WmrDPDietDAeigJ7eq7 +21FRMIJyvJrTfhgJnXtzq/UjHyNc2/7ptxJJQr9664PSLjDCEP+q39k4Erof +pyVFZcMI2uzBl6jukBCmOzx+zY0RJK+rFFcmkFDi6+9EvWhGoIp4ELiQRELH +bwfO1KcyQolgBINPCgl91qFNlnjECM9PcrKupJIQ7pXAL8qX5HGM99ab+yQ0 +GVP+4NprRtjOOUQpnUFCEdrH9T6OM8KcVS9VcCYJDZIMS+pXGOF0Ul/JdjYJ +eXdH2V2TZILpeqmdaw9JSGDuDN0mkQkOe1kRbR+RUB8VY1koMIEw43DCmXwS +EoeEldsWTCCWGF+/UUBCwzYG9zgcmUDmjENSSyEJhV/nVE33YQLbqyWZ14tI +6F3jvYjCeCaoPDFn8KmYhKLfmYnJZjBB0GAhTcRjEiJu8b56XsgE+8F2f3lK +yPq4p9yOP2eCH/Wcx4rJnHAsl721mQleOlXUy5SSkJqxbbVWLxM0NCvfLiLz +go+I2ZtxJtg6XVvGXUZCaclzf41mmeBCr7JwGJnVnxXnvvvNBMauA8sfyPzr +rfNp210mOP5f5lFcOQll/5SZn2dghu7/asuDyazD8vO2xyFmUBLVzWsi84ZM +pfy6MDMctYzaXSVz/lnvoWAFZtDiS+8RekJCBs5Ef8oTzBAc0kSjRebd6I3D +sdrM4PcYV3+ZzKVFdS/ZjJkhYfjEvBeZTbuCbO/ZMkOeklRqIJmpZ0/QHPFg +hg5K7c7/yPyMcu9xfhAzcNj/DnYjs7VQm550NDM4XwtrMSUzE4r8XZnCDAJi +ZinHyVxnrZmqnMcMjdYzfznI7BBKp9Jczgwlg3d3p8n1cma/eq9RzwxfKIey +i8jc0hAX1tvFDPlI9OMVMrtN6osYDjEDdRZtNxeZD/9hI018ZIaCD//MWsj9 +6j405GKzxAxnItOzbMjso5TK+nWTGdzq7JM3yP0XvGjy3I2aBb7rbMNNMgcl +vdsKPMICAe1/piLJ+ydRmf1gX4oFKFTKhtfJ+z3Sbw3Rx1hgk7sh1ZrM8swz +MannWcD0Y1PcQbI/3ksXyvJdYoExXfFeW7J/YnQcBx46scCi8PhCIdlfX24t +cT+NYAHBEKUhTrL/7hY+aVRKYIHCO5HFamR/nuj0tGnKZAErHgsPS7J/71Gs +Fb2qYoEDfXyzYXkkdFqw9qxBKwsMZw5m38wlod+nAn6O9bEAv0ChRXgOifyf +31GanWMBXXOfrUvk87GZ2TzpssIC6+O2syezSKigPjx0+R8LXEowXuAin6d/ +G9Rd/7hZga/E9XwZ+fw992K5ePgsK2yUg6RbMgm9yToYVGHKCsV6EyPzieR8 +6+LLO+3ACr13xVXN75IQH6/0d/dwVsizvqRzJJ6Eotq1brbXssLAwwaiTBQJ +5X7XLzXtZIUEfXdbY3Ke1B8yHvg+yAr3XOxD/CJI6KeLHT/3D1Zo/WCdfp+c +R6YHwqtdRdgg3CxN0t6PhLxORr/bV2SDScwg+hQ5z+IcE/bTTrFBxy9XJjYv +EmptzNZrNWeD5xZduclu5Py0r589mMgG1FzqzaJ2JPS3euVg8w4bFFf/ZA0+ +R0Jcn7ZUjRjZoTXchbtRl4QUGChsF7jZoQ8/8GKZnL/2VmxPOAnsQCf4Ykr9 +NFk/jaymozM7XLyUE++nTNZj4uDHPsYOsumqO8JHSehRiNsSzowDDq+VY8Oz +3QjXxrgVY80BnYx3F4997kZtNCW00/Yc4KtUdSxlqht9TpgTSvDigIPVLn1K +Y91I4KG12eJtDgjy63soQiL/j7sMuh695ACb+Hs5xcXdKIVVKfeACCfYWMpW +XrfrRiJGw+UuUpzwKdpQkMqmGz2/79XQpsAJ8l0ZVBEW3WhQsGLU8wQnsMZd +OOV8oRuxESSY+4w5oSVVHn0/1Y3iTA8H3ozhBHFdevN2nm4UmbdruP6DEzZH +a9U/krrQBVy9t+waJ8SJvS2pa+9CAu2+yXbbnJDimp1252UXapxZGhykPQDy +rEJcElVdaFX8nUGFwAE4IH3T6XBOF7J7UnvO8cIBuJ5ASU/h04XUGzzPTlYf +AJ2opf8YDnchipHP8DL4IDgT9Z85m3YiCT/HQGOZQ0C8p2b9M6IdzW2kmzI3 +c8Nd66VZ/rOtSPer6/UU78NAX9ozvyzahM7PJckKCPDB421tEXexOrTUaRfx +qoIfUhVrRk5mVyMFzvGjGpePAkVaWZbMoWfkvNm4MrUmAA177LViumVI+6fl +HxETIdipdbvn3VaIcrlujoSbC8Gu7WKE15NCtH6ivHLqkhDE/Lz1KTSjED2M +23G6bycEZWotS81eheiv5INJRi8haKwXFfwiXIie2H1sWI4Tgv2zuyll0QWI +Y/JyaEubEKwta+idtMxHkx0OlJZywvD3l7D4gNRDtKz+nu+6ojCUO2tzHud9 +iOjbDZQeEoThUnC48BPGh0i5Vc1p/rgwZNkIaLqN5aG0Jo5+Hy1huC8Skp1t +mYcMal5mxNsIgxi/OZ+QSy4iFXHhmpOEoXl4Zuv2/QeoNrbLRmhDGGKt3vif +w2eiEt2+wzFbwhBNLWtvcCgTZbEMD//cEYbe8XdWLtsZKCJp+kwTlQisXHTQ +/dqeQb7v/FUw5RCBB3l1n3cuZqCZx7j9eFkR4DMQ9coKTUdsPQ/y/lwRgf/y +uvfPT99DjrT+n9++FQE/IzZHlm8piE/w9cTOkAiYjzXeJ4ykoLfHjw5IjZHX +K6o45taSgpTdu5sjP4jAc1HB+wfvpSC6kUPZyt/I43MPSEgjBRU9fGGSSykK +cN2O4V9+Mpo7sdXroSQKKv+dL+y8loQyTPQ7slREYfzJvyVR6ySkf+1hQ4+a +KHC1C1vc001CNfk6JcLqojBM4RtZLp6Eohgzb42dEwXVWmxAuyERiU2owikn +UWhvfjwRkH0X2fuE1LJkicLywAe7iMA7SJnwqVY6RxRYUUk/g/kdxLQKL848 +FAUHnZfVlSp30DNvurqIYlH4s2ZRYP4nHu16JdevV4nCidiP37kC49H9a4+b +pvpE4TPh+754eBx67T7S/uSfKPSerbMVLohFD+SUO15TiMFwor7BxehY5PUj +o2OeWgxUp87rPHKJRdzuNp1CTGLwJX+PORkXi+zcFrvSuMVA74BtU3NrDNp1 +2e8JVRQDi0j3t2qz0UjRSfat/hUxYHY5fugUdgt9chG8VuEgBkORiY4FIrfQ +HfeDHGzOYsBnsTsjSX8LLXrvGA54ikH+QaPduMEoVBDaN2YYKgYaVL9Y6hyi +EE+K20fTdDHoepWZnZxyE+2/LP9h2y8GUbKWiaXUkehpa15C+6AYEL8d+1r8 +/Qay6khVEBkVg8PNLh6tIzdQQ0+I1+x7MeiJ7KtTL7yBfIf11q9+EwNBvfWy +2DM30MLC9x1XanF4/DX8A3NSBBo4IMfsryoOuxfykxPdwxDm4bGYfVIcXCyZ +bTu1wtDTnqc9HeRbm0LM9gNhwTB0NxQfxXFGHMKpmoethq8j/Xnlf+VG4vBb +r0yjV+066m1Q/z3jJg5fzRaO2B0MRd22ZiMXcsXhjoc3bdJMEFJqynge8Egc +ws50qfW3BaHCQ+8TcwvFoZVnNhyXF4Sieq30f5SJg5YRTZWzVRA6rWTXHVMn +DirpB2kfTAaiNnqPupZBcWhi5eRdmQhATU8js+WoJWCvoE/cc8Uf0emb8KXT +SYBAFjbSOOSPDBclMymZJAB/i+aKYpU/WhDtvz/OIQFFhuahib7+6GAmT0qE +gAQ8Pq1rILnlh9xuPokdVZWADMaM/BQGP8RvPu4f6iUBoRvzvNpaPshxo2R9 +3lcCWE9q5GjI+KDnKSG+hgEScOvMT0l7dh+k3S/kLREmAePx3S1M772R72k3 +98F4CVCk81784+WN+uQo7MUeS0BuhymSKfJCIZQyF958lIC1lg7jRT1PNK/J +PCnxRQJ4NC0mfgp4oguxPy7fmJOAR0TZC/KrHkiMvfKa8ncJGA26IGaV6YHe +HFFKfLglAbXXZi/7LLkjgePYW7+DksBUysGqm+6GOjyN9I+elYQu7jqPP7wu +SK6KOBqgLwljc4L4mTVndH+Dy2rYQBISLmpoUbx1Rm6hE24xppLAk5sVMBbp +jLjirOJX7CWBTYT3xcdfTsixyLG3O0wSWizvdRAHHRHTVLCOZ40kGEyUMnq/ +cEDKAaWsiXWSIPW3yzAiwwFdOTA5XNkoCcofELwIdkD1OsesV9okoZdq1fEe +ckCOtb+9/folgdUBr36kzx6133XIDp6XBPUZqV7JRTsUqH7+V/RhKSiWNNHg +gyuocCq0+jG/FBjlxU88lbiCBgLKA18JSEE8XzrDVdYrSOIpAzWTuBSIFk6W +HPtgi0b4OnkS8FJg9W6nxT7QFimsq6in6krBoX8jskXel9HXYuG0vFApkPp9 +4/bWIyv0I+rLNnWEFIhkGJhe8rVCq3aPLjvflIK8vW/xVFpWiEJQWBYfJwUd +T7zGjyxeQnzpQh0d6VLQeNwxLEDpEroQI7j8tUoKnhXufQ6esEAvnY7qyy1K +gZK2UGqQvhnq1Pr4POmHFLwYYqroETdDvaI5PBu/pcDihNq2wb4pmpg+Mtu8 +KQUPlM/8Ya02RatmR4INaKThQkKbhspRUySlw1/iIygNfInXVv7tGKM0KV6a +BhNpUK52NbL7YoSsbCQez5pLw3Fj7/KYTiMklkbUZbOSBrnBnZWJIiNUs38u +yd5OGu6td3luuRqh0fHII2zXpOHjn2gt4h9DdPDWDyX7WGkwijzMacdjiFK+ +tF5lbZKG5uwnWNDSeWTJ089wvEUaNnP57WrrzyORc+/L7dqlYTowvkAt5jyq +ql9fqeuRBgudVBpB8fNoOFE6zG5UGta/V69qOpxDnFjq/bqf0nCsuM2p5rce +Sspy7LkiJAMih6ydKo6fRQH/RfqGispA0kdDVzmOs8jGKFcwXUIGBLxkKBcW +dJAc03jAGzkZeFz0poo1Qwe9DtKSUlGVARqFiKrDO9qIykLsNouRDMicvpc3 +03cG+fPM6NbdlAHjyAIRjfuayGrt3+ZQNHn9d0ETBX6aSHOAt+DHbRkY9VSi +VLmoiQ7EGO4IJ5F5ILpwjUMTPd1sK7/zQAZedXwYabmrgb6N5bHY1cqApcse +r33qaWSZZv2WZUEGvAVGO8VaAR2pZuJ3W5KB8sH6yr8PAU0P1Tm9/ikD/T7z +lVQ3ATmwH6CMXpeBaRmtjsfagDzjSMR9Slm4XItwocUIRUYoZq4ckYVnPcps +9fOnUKk7pcO4kSx0ZjQ/WShTQ+7xT58pmcpC/H7hJ5pgNaRQdulfioUsJDT/ ++O53Vg1VLdTeN7CVhW7j8zl6i6ropZ3r61cesjDfxfCoW04VDZqPKDTFysJQ +nFhIRIcK2tIs2s5rkYV+M1+JMfFjKLQp72ZXuyyIUEaa01EeQxSELNbFLlng +suhf8ZlSQvSCicKEPlkQOii9t5uqhLi3A892TchC0LnWA320SohYoZ/5bVkW +nobVqNGuE5DnofXjeFE5qNoO3KvbwqHV+F8dJhJy0BTrklL7Hof8qRb1g6Xl +YKWpMXjuJQ6F/v5o26koBynnaYTHbuBQ/OueWJOTcrA/K9e9zYpDJdezJ4NM +5CAp09RG1EYBzX49HdgRIweFHUXPCeKy6HTe23yZeDmotxuwt16WQQ/NLftT +7soBvTDz94UmGWTT5y1if4/Mk5u7vMYy6P2zh2+oC+Rgtixw/3OsNBoO2RPS +aiF//1r4ti+1FOrgbHzdsy4Hh5omrj4+Lo6E+7TWFbfk4FIFx81SNnEUETUk +kLEjB3Iz/erbc2II+/PN15lKHnoql9PCU8RQ4xSPACOHPOR5qpvwroiiqsf+ +Prqy8kCtUf2R86UIyj+F5++/Ig+tNG84Om8JoY7zTDd3HORhzJN5osFRCM1c +nl2SdpaH/545HVvQFkKikfcaoz3lQTA333yOSQgVkrYtIEQewrj3LjRLCKIi +g46M6jR5sH4myslpdRSVXLnIndUjD2UboWXz7HzolY9c2KteedDsVpo59okX +fbtJO7/ZLw/mf1WoPj3hRVLFdbUXR+WhT1utUlmPF5Uu8ZuwfiHXz/np3Xb8 +YVTmO5ca8VceSjhO8usd5UEVt/w5neQVAGMZDbkSwoV+nLSOvIVTgLfjOYPR +xlxIbl1zrYCoAIMsYb4r8lyozI5r7LOqAuiwG7xL+3IQlaDqDMszClDsfqWT +Xv8gKtxeFjx/WQGmbm3KnZI/gLI83BWOJSvAe123VgoBDvRezDjvYpoCmGMh +Rrv/2BHv1AkOn3QFaJzpS3RqY0cZusyrT3MU4OXMCaM7Z9jRPcmyWqkyBbjB +53jjrxkbSvqycPJIpwIUnqSKe32XBcWY2OtRbyiA/AO07KrNiPINpqyubinA +4aq6it+cjOjlWRPPnh0FkMntJU5PMaDVU9rJ8VSKoBASEL7jy4CsJGQnDnIo +QoxCV/HBx/SI8GfVTkxWESQMm6j4hejQuRU3v2gFRWgaIMyvLNMi5+9zt77h +FcF4v6xFsoMW5UyPlzw5rgj5d1xvVVylRQyvGn8pnVGE4oFJObbnNOhTRmSw +1hVFGBA4PJpgTo22U3biHzsoQpqjzVcqRWrEleCXw+isCG/pS8+/oaVGZ284 +tvV7KsJvnbpSixoqVOOiS2caqgh+tDHq5w5RoTi1AymO6YogEpzszzlPgY5N +PSqN6VcEVQKvl2DYP4xDwXmrclARokWCE4VO/8N+hCtoT44ogofAotY9un9Y +oWjTnNR7Rci05VceT9rFuNxGBXvnFYF7pDE/r2wH+xtKrUdHgYOfc077D1e3 +sW9Fjj5ZlDiIex+YHdq8jY2/fZ2pQI0D8eAa29bYbaxKKOmbKR0OfN+wBQYI +bWOuXUeiH7PgYMThe0aO8Rb2jlm5XYcXBxo3uO6KDmxiJKXMb1N8OEhkkDx7 +5OEmVmO9y+59BAcF0n57Xt6bWFJlh02mIA6+VJNqZA9tYjoXDXYXxXHQxnaU +b9R2A6vPclaJJ+Agmn/oqR3DOpYhnV3Rr4eD9zlbJafSVrD1tTNFN8/hgPHM +RKWv+wpm0LL6QNUABzavE7X2NVcwuou6d4qMcNAj8NuF688y5h+67XrdAgfh +x76siV5exowGzKTknXAQ+fwhx93QX9jTTGqhWWcc5Ehco2dX+YUxOlTyZLri +4O4FmhyJ1Z9Y2xYdPa0nDs4fZ5jkcv2JKYq8+DrlhwMOS8z/je0PjMWfq+BO +JA78G7JHi52XMGfUlnU6CgdVHRxX6OSWsE5G95StWzionKC8tPR7EQvO7bzh +cJus/+kTkxNBi9hij4/tySQcxIjbs8wlf8NIfENHf+TgoCyTStX9/TwW3paQ +odeAA8HmqpDM9lls6WNb2nYjDgpFfll7p81ipjtrSY9f4oD3UUZmudMsJqds +eZu6DQdrrM3rGuyz2GS5RHATCQePCyJ9f9nNYIT01kuyozhwuOarcoP/C5ZT +s2r2bgwHf6s46UTXP2MMw+LGMRM4mC6jUeHv/4xNs9zRn32Pg+af/WvMEZ+x +O5Hmp7K/4OCU5SfBupFpbN5jRYD5Nw4ubrzoUMv8iBnGi/E3LOPg826PSYnx +R+xliRmP0yoOAk3xYRUcH7HU2Wb2zg0cEOb2s4PipjCwiKMI2cXBEbGQn5tR +H7AsTdGZJUY8RE6cqgtNe4ed4zcp6hXDQ8RtaeaZQ+NYxpxC2yUJPJSaJXFF +fB3D5ioYPvyQxEO70/CVm7VjWCi85GCXxYPUAfqiF6Zj2JOroqEX8Xg4HJko +25gzijE9WzGaOoWHgcMVg3dOjWCmQX0eHggPDBMuW6IHR7D800Wxe4CH4i2O +61yLw5jqmHmLkCYeXJS1RvbuDWPOf1ulr+ri4QKVV8DXtSGsR/MuxS9Tcj1e +e8sOrYPYATZn/nBzPKhJBX6DrEHMZkJdmcMSD/5XqEvd/AexTZcNN4I1Hk44 +n2YulxvEJBKtJv6zx0P3o0PhEacGsKh3Mk/3r+Eh9FsBVbhwP6bu2XOJ8zYe +uCRoY7UvvMb+Ti6e6YrDg6h3ruTzA6+xGg0WQsAdsl6qZ1plY68wCV5Dho+J +ePB1lqA/Y/0KY+l6X1NyHw/Cyuf8KX17sEneX6xQiIenypdXwuq6sZQoju3V +Ijy411R9vhDZjen9JswVPcaDsvR6Rt65bqylK6CRuRwPCtLczJVfu7DCa5RO +E8/xcK7OlzaQvwvz6uZq82zFQ+tC8tHeBx2YDE6lXLgdD6N+g31Lnh3YbJbF +/dEO8vyMy9MB6h2YqVeuuxoJD7WnVp1GFtqxk/xSvHT9eAj7drHXX7UdY/A+ +4ZPzHg9TJiOaqtOtWN4RO7E3G3hQCWYc2jzdhKkRZRXs/uChC9QrXKibsNGz +6ypbW3iw/DXS5NrViDEEROuJ7eKhwfRF9QGdRsxrqMwnlIoAPgaJHu9MGjCI +XmuTYyfAfxuDhZpxddj7By97OzgIoMgj4MF5sQ7zq741an6AADeWRG5aHqnD +Sj7zfIs6RICoPQ4P62cvMM4TJ9k/8hPgO4klgvFTLTbzO8o6QYoAm+aphfwG +NVgo3XknURkC9Gf2RyoJ1mDcR3m8G2QJUG7JuNzwuxrT1S2N+qpAABT1/Q1d +SjVWVdhffuoYAYS1OQ0SP1RhNy24//5UJ4BtxKhr+o3nmFjn4/vnLxFAKwCf +Hyb5FHsrt1U4ZUUAz6CC96ufK7DA+zrVrjYEGMqueUObXYH1uSwORF8hgIhB +zG0qzgrMh0OWsdWJAGx7sc8INE+wVuunIYp+BPjKz1x/ga4Mc+7Zu93sT4AG +FyUc9+tS7ADeIEMvgACuLYunHe+UYo40yzVOwQRgetwR+4irFGMpx//KiyBA +Y5iskYNsCWa5VWPLkUCAaaez7kLexRiNHe213LsEiJG8OE9/shh72mdyXS6J +XJ99ub4zfTFGmbeZqZNKgOUXvO2JeUVYidbxkYhMAuTyFa5ZjRViGylNWitF +BJAU083nMi3AkuQ7ZIZbyHoT52kiix5iJccvMUa2ESDCJsDMMPgh1qqxvoDv +IIDFs9pHdwweYr8sJIqSuwkQsIGXit7Mw/Si4wQN3xBAg2XgimRlLkY3bcQ1 ++I4A3C2b6L3WA+zo0vfV8A8ECLp6hpp9NxtT2ogaUvxIgKzd0Wv/qrIxe+a6 +u4mfCXBn9pE2hWg21qbCz2iwQAAlugfzHsxZWEjS7L/+dQL4lYbr+++mYynZ +oVPXNwlgGTR9OKQ5HSsrPtQkv0X2W07wJaHwdGzypXZgwg4BaIcPH9egSceU +F8tX9amI8IlBtLPt0H1sWd1voY+dCAyX/WYsjNMwxzWaodcyRHCzSpYoUE7G +bMo031rJEcHV7WzfGnMyZnolqu+3PBGe/Y7LKvuShJ0ZoCYdwhOBbcKXTftu +EiZRTtV0RYUIhqfFpTUnE7GvdhRF2xpEeNMTd1fNNwGb4iVfbbSIcPZ0qWO/ +dAI2OhieJ6hNhM0LPTScX+5gXdh+ppYuEWzdL+MLDe9ghXx7d5MvEEGBTevq +W7V4zGF4J1DamggVDviTn2RvY1a3T/z30oYIi7xXxLp/xGLGEOJrYEuEONHt +cc2nsZjm078e/vZEoPWPYGMkxmJicdt27S5ESPGlzwzTiMFm1f/oW/xHBM6/ +Jjc2w25hds9XhW4nEuFF+O1jPmaRmHvkxV3dZDKfUBHIFI3E/C/WTLCkkvW8 +rq4/t3wDi93wv5t0nwjrTbMEy/gb2FPV7Z30HHJ/FzNMJ3sisO32/fHiciKY +slgkulWFYVSptlXOFUTQKmmJF74UhrE4tCfIVBLBjt0hs4cmDBOgu6n5tIoI +ys6N/95ZXsc0demqahuI4Ogo82mEMxRLGmZJ6OohQj6VWgx7aRCWVeDhHP2a +CAZjbW2ll4OwAr+3Gjp9RNirOXqUnScIe8Gd9LfvLRFaae/3EWIDsSnLg84j +Y+R+qm4yFPoGYJKzvBozs0RI37Bwuebhj+FqggUKvxKBNcvixGtFf0zt1oft +qwtEyPrM3PJ21Q/Tl8x5trhEhFn5U0VjwX6Yj5uQwMoKEej9MssepfhioSdv +bFetEaH8z5skSUtf7BbrzKjfBnm+cMQpPRFfLKOyIH5riwh899LPXq3xwfIj +aJwa/xJhJEHP3jzMBys3vHo6dJesz5KxfkbHB6sRIR3F9ojAuBReScXlg7Ws +SWzv7xOBJfBG7Ytpb+x/AHpftw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.1771383970775888}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.1771383970775888}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8l98bxu09S4Sy9/wMEdVzbiFCieyQkE3m1wxJiGSWFcrKSMrIyuaj +SPaolEJEy46I3+f3z/O83q/zOue5r/tc53qOsN01o6tUFBQUp8mP/79zwuzo +8A7ZWNx+q1z/Mzusa0RI30woCB3ooQsUFldH+6SWm0JCt5G7e0vFppghymlL +EKQVykQ+AUGWb8WuIPdT/h5/BEvR28MFQZ5i3mhkxzltWbAB1beGNrOL3kD0 +H2Ykfwq+RnsXP6sWH01Gj3rzvL8LvkNvwegyL8Mj9LTy9gd3hSV0C0Vx1Vk9 +R05oKPOHzxqqM/EhjHyvRxT5m40f4teQ4Cd+7nr6BpRBc2Sqt3AN7UkNcd0V +bUCvXjsKlI6voT7ndUnWSw1Iyng3/6raOjob4stg+roBfXOWfPKJcgONvNfb +oy1oRK4p11sGkzbR9ywt9VDdl8jzq/RszdNtFO6XaDzj2Io+27xjaH+9jU41 +RZ8timhFFydjFfrntlHB4O9vRlmt6HjfQtBXvr+IbXX7t0d/K6J+XsTBHfMX +nf9CGLrA24YyQoWxgMs7aHt3mTI4tA21H+TNVOX4h+SNLt/5T60dKSW8atGS +/YcWpH+obWq1o2K6wDnDM/8QE+FOkKthO7qzPa7oGvoPmfU/TMY5tyPT6TRS +1rd/6IswXxbhXjtaKuNY32nbQ22BT3IYf7YjJuEoyenjFJA0HZE2k9qBXp1M +VgzTogAd+ofDKKcDRZvnqhw1ooDtO6SslOIORJVUr33JjQJK5368PNzQgf7u +/XCayKGAJTnujeKPHej7lEnJABUlXOeJq38l1oneZEhKt72hhKMLH0rYyztR +XI0S/vI7StAWdV09XN2JdAbVVfe+UgI+ovQ/nqZO1EVvdfbkPiUoNE5Jrvd2 +opf/JbnU46ng9vEHO7JLnajCeLv02X0qSMdF7KZKdKG7HH0yj2ypIWC/fO9E +ehdqUDlae96TGpapTVwCc7vQnM01tBtCDYav1v49LupCJyoOGpulU4Oz2fij +z9Vd6NtZq+usb6mh6ZBjW91AF9K4+XMg6AQNUOwKfd2l6UaeZchS8iwNjOhz +lboxd6OsoeS5UVMaCORYTezn7EbLgsrbij40oBDtSXIV6Ea5L8NE5ktoQNVK +4x2TSjfa2mD3N+KmhfuKv8a/XO1Gokft9vdFaSGsUngu0q0bndesuV2BpwW7 +VCY+Hu9uVJRinstwjhaO/ZCi5g3tRkaKj3pabtLCyK/Y2cjkblThTOCTXaGF +I/GM/b8butFkYlTh5B4tpJoHfeps6UY0deMK0Sx0ILf5XSa+sxtZ0oZofJGk +A7NM3pC1N92IIb/TPd2GDn7K/pWQne5Gdh+MW6nf0EHHK0z7OCUJMWV/8fB+ +Rwfz743FFWhJqMrS88j0PB0Y+XwY4mEkIer3MUGNlPRw5sJqLomDhAonG4ne +KvTA2l6ukyJIQvoZ2jOfNOnh7QebdxKiJLRuNpqkb0QPjjZMepUSJKQ18fOn +pAc9hPlZfMiWJ6H5MaGST/n0kCyduDWrRkJ371WY6j+jh0vI5x0PRkLKJmq0 +jc30IHr4+jOkTkIxoxft7k3SQ+oxZ303bRKSGok+os/GALHrzgmEiyTkOvgj +qSGIAbBHGnM3nUnoQFIQkoxhgLzF6eQtVxJqNKD7lZbGAKo5TU5XPEiIeUBQ +z6uSAQ4QuLPYfUjoSb8RreRXBqAsaA39FExCxgnT1WmrDPDietDAeigJ7eq7 +21FRMIJyvJrTfhgJnXtzq/UjHyNc2/7ptxJJQr9664PSLjDCEP+q39k4Erof +pyVFZcMI2uzBl6jukBCmOzx+zY0RJK+rFFcmkFDi6+9EvWhGoIp4ELiQRELH +bwfO1KcyQolgBINPCgl91qFNlnjECM9PcrKupJIQ7pXAL8qX5HGM99ab+yQ0 +GVP+4NprRtjOOUQpnUFCEdrH9T6OM8KcVS9VcCYJDZIMS+pXGOF0Ul/JdjYJ +eXdH2V2TZILpeqmdaw9JSGDuDN0mkQkOe1kRbR+RUB8VY1koMIEw43DCmXwS +EoeEldsWTCCWGF+/UUBCwzYG9zgcmUDmjENSSyEJhV/nVE33YQLbqyWZ14tI +6F3jvYjCeCaoPDFn8KmYhKLfmYnJZjBB0GAhTcRjEiJu8b56XsgE+8F2f3lK +yPq4p9yOP2eCH/Wcx4rJnHAsl721mQleOlXUy5SSkJqxbbVWLxM0NCvfLiLz +go+I2ZtxJtg6XVvGXUZCaclzf41mmeBCr7JwGJnVnxXnvvvNBMauA8sfyPzr +rfNp210mOP5f5lFcOQll/5SZn2dghu7/asuDyazD8vO2xyFmUBLVzWsi84ZM +pfy6MDMctYzaXSVz/lnvoWAFZtDiS+8RekJCBs5Ef8oTzBAc0kSjRebd6I3D +sdrM4PcYV3+ZzKVFdS/ZjJkhYfjEvBeZTbuCbO/ZMkOeklRqIJmpZ0/QHPFg +hg5K7c7/yPyMcu9xfhAzcNj/DnYjs7VQm550NDM4XwtrMSUzE4r8XZnCDAJi +ZinHyVxnrZmqnMcMjdYzfznI7BBKp9Jczgwlg3d3p8n1cma/eq9RzwxfKIey +i8jc0hAX1tvFDPlI9OMVMrtN6osYDjEDdRZtNxeZD/9hI018ZIaCD//MWsj9 +6j405GKzxAxnItOzbMjso5TK+nWTGdzq7JM3yP0XvGjy3I2aBb7rbMNNMgcl +vdsKPMICAe1/piLJ+ydRmf1gX4oFKFTKhtfJ+z3Sbw3Rx1hgk7sh1ZrM8swz +MannWcD0Y1PcQbI/3ksXyvJdYoExXfFeW7J/YnQcBx46scCi8PhCIdlfX24t +cT+NYAHBEKUhTrL/7hY+aVRKYIHCO5HFamR/nuj0tGnKZAErHgsPS7J/71Gs +Fb2qYoEDfXyzYXkkdFqw9qxBKwsMZw5m38wlod+nAn6O9bEAv0ChRXgOifyf +31GanWMBXXOfrUvk87GZ2TzpssIC6+O2syezSKigPjx0+R8LXEowXuAin6d/ +G9Rd/7hZga/E9XwZ+fw992K5ePgsK2yUg6RbMgm9yToYVGHKCsV6EyPzieR8 +6+LLO+3ACr13xVXN75IQH6/0d/dwVsizvqRzJJ6Eotq1brbXssLAwwaiTBQJ +5X7XLzXtZIUEfXdbY3Ke1B8yHvg+yAr3XOxD/CJI6KeLHT/3D1Zo/WCdfp+c +R6YHwqtdRdgg3CxN0t6PhLxORr/bV2SDScwg+hQ5z+IcE/bTTrFBxy9XJjYv +EmptzNZrNWeD5xZduclu5Py0r589mMgG1FzqzaJ2JPS3euVg8w4bFFf/ZA0+ +R0Jcn7ZUjRjZoTXchbtRl4QUGChsF7jZoQ8/8GKZnL/2VmxPOAnsQCf4Ykr9 +NFk/jaymozM7XLyUE++nTNZj4uDHPsYOsumqO8JHSehRiNsSzowDDq+VY8Oz +3QjXxrgVY80BnYx3F4997kZtNCW00/Yc4KtUdSxlqht9TpgTSvDigIPVLn1K +Y91I4KG12eJtDgjy63soQiL/j7sMuh695ACb+Hs5xcXdKIVVKfeACCfYWMpW +XrfrRiJGw+UuUpzwKdpQkMqmGz2/79XQpsAJ8l0ZVBEW3WhQsGLU8wQnsMZd +OOV8oRuxESSY+4w5oSVVHn0/1Y3iTA8H3ozhBHFdevN2nm4UmbdruP6DEzZH +a9U/krrQBVy9t+waJ8SJvS2pa+9CAu2+yXbbnJDimp1252UXapxZGhykPQDy +rEJcElVdaFX8nUGFwAE4IH3T6XBOF7J7UnvO8cIBuJ5ASU/h04XUGzzPTlYf +AJ2opf8YDnchipHP8DL4IDgT9Z85m3YiCT/HQGOZQ0C8p2b9M6IdzW2kmzI3 +c8Nd66VZ/rOtSPer6/UU78NAX9ozvyzahM7PJckKCPDB421tEXexOrTUaRfx +qoIfUhVrRk5mVyMFzvGjGpePAkVaWZbMoWfkvNm4MrUmAA177LViumVI+6fl +HxETIdipdbvn3VaIcrlujoSbC8Gu7WKE15NCtH6ivHLqkhDE/Lz1KTSjED2M +23G6bycEZWotS81eheiv5INJRi8haKwXFfwiXIie2H1sWI4Tgv2zuyll0QWI +Y/JyaEubEKwta+idtMxHkx0OlJZywvD3l7D4gNRDtKz+nu+6ojCUO2tzHud9 +iOjbDZQeEoThUnC48BPGh0i5Vc1p/rgwZNkIaLqN5aG0Jo5+Hy1huC8Skp1t +mYcMal5mxNsIgxi/OZ+QSy4iFXHhmpOEoXl4Zuv2/QeoNrbLRmhDGGKt3vif +w2eiEt2+wzFbwhBNLWtvcCgTZbEMD//cEYbe8XdWLtsZKCJp+kwTlQisXHTQ +/dqeQb7v/FUw5RCBB3l1n3cuZqCZx7j9eFkR4DMQ9coKTUdsPQ/y/lwRgf/y +uvfPT99DjrT+n9++FQE/IzZHlm8piE/w9cTOkAiYjzXeJ4ykoLfHjw5IjZHX +K6o45taSgpTdu5sjP4jAc1HB+wfvpSC6kUPZyt/I43MPSEgjBRU9fGGSSykK +cN2O4V9+Mpo7sdXroSQKKv+dL+y8loQyTPQ7slREYfzJvyVR6ySkf+1hQ4+a +KHC1C1vc001CNfk6JcLqojBM4RtZLp6Eohgzb42dEwXVWmxAuyERiU2owikn +UWhvfjwRkH0X2fuE1LJkicLywAe7iMA7SJnwqVY6RxRYUUk/g/kdxLQKL848 +FAUHnZfVlSp30DNvurqIYlH4s2ZRYP4nHu16JdevV4nCidiP37kC49H9a4+b +pvpE4TPh+754eBx67T7S/uSfKPSerbMVLohFD+SUO15TiMFwor7BxehY5PUj +o2OeWgxUp87rPHKJRdzuNp1CTGLwJX+PORkXi+zcFrvSuMVA74BtU3NrDNp1 +2e8JVRQDi0j3t2qz0UjRSfat/hUxYHY5fugUdgt9chG8VuEgBkORiY4FIrfQ +HfeDHGzOYsBnsTsjSX8LLXrvGA54ikH+QaPduMEoVBDaN2YYKgYaVL9Y6hyi +EE+K20fTdDHoepWZnZxyE+2/LP9h2y8GUbKWiaXUkehpa15C+6AYEL8d+1r8 +/Qay6khVEBkVg8PNLh6tIzdQQ0+I1+x7MeiJ7KtTL7yBfIf11q9+EwNBvfWy +2DM30MLC9x1XanF4/DX8A3NSBBo4IMfsryoOuxfykxPdwxDm4bGYfVIcXCyZ +bTu1wtDTnqc9HeRbm0LM9gNhwTB0NxQfxXFGHMKpmoethq8j/Xnlf+VG4vBb +r0yjV+066m1Q/z3jJg5fzRaO2B0MRd22ZiMXcsXhjoc3bdJMEFJqynge8Egc +ws50qfW3BaHCQ+8TcwvFoZVnNhyXF4Sieq30f5SJg5YRTZWzVRA6rWTXHVMn +DirpB2kfTAaiNnqPupZBcWhi5eRdmQhATU8js+WoJWCvoE/cc8Uf0emb8KXT +SYBAFjbSOOSPDBclMymZJAB/i+aKYpU/WhDtvz/OIQFFhuahib7+6GAmT0qE +gAQ8Pq1rILnlh9xuPokdVZWADMaM/BQGP8RvPu4f6iUBoRvzvNpaPshxo2R9 +3lcCWE9q5GjI+KDnKSG+hgEScOvMT0l7dh+k3S/kLREmAePx3S1M772R72k3 +98F4CVCk81784+WN+uQo7MUeS0BuhymSKfJCIZQyF958lIC1lg7jRT1PNK/J +PCnxRQJ4NC0mfgp4oguxPy7fmJOAR0TZC/KrHkiMvfKa8ncJGA26IGaV6YHe +HFFKfLglAbXXZi/7LLkjgePYW7+DksBUysGqm+6GOjyN9I+elYQu7jqPP7wu +SK6KOBqgLwljc4L4mTVndH+Dy2rYQBISLmpoUbx1Rm6hE24xppLAk5sVMBbp +jLjirOJX7CWBTYT3xcdfTsixyLG3O0wSWizvdRAHHRHTVLCOZ40kGEyUMnq/ +cEDKAaWsiXWSIPW3yzAiwwFdOTA5XNkoCcofELwIdkD1OsesV9okoZdq1fEe +ckCOtb+9/folgdUBr36kzx6133XIDp6XBPUZqV7JRTsUqH7+V/RhKSiWNNHg +gyuocCq0+jG/FBjlxU88lbiCBgLKA18JSEE8XzrDVdYrSOIpAzWTuBSIFk6W +HPtgi0b4OnkS8FJg9W6nxT7QFimsq6in6krBoX8jskXel9HXYuG0vFApkPp9 +4/bWIyv0I+rLNnWEFIhkGJhe8rVCq3aPLjvflIK8vW/xVFpWiEJQWBYfJwUd +T7zGjyxeQnzpQh0d6VLQeNwxLEDpEroQI7j8tUoKnhXufQ6esEAvnY7qyy1K +gZK2UGqQvhnq1Pr4POmHFLwYYqroETdDvaI5PBu/pcDihNq2wb4pmpg+Mtu8 +KQUPlM/8Ya02RatmR4INaKThQkKbhspRUySlw1/iIygNfInXVv7tGKM0KV6a +BhNpUK52NbL7YoSsbCQez5pLw3Fj7/KYTiMklkbUZbOSBrnBnZWJIiNUs38u +yd5OGu6td3luuRqh0fHII2zXpOHjn2gt4h9DdPDWDyX7WGkwijzMacdjiFK+ +tF5lbZKG5uwnWNDSeWTJ089wvEUaNnP57WrrzyORc+/L7dqlYTowvkAt5jyq +ql9fqeuRBgudVBpB8fNoOFE6zG5UGta/V69qOpxDnFjq/bqf0nCsuM2p5rce +Sspy7LkiJAMih6ydKo6fRQH/RfqGispA0kdDVzmOs8jGKFcwXUIGBLxkKBcW +dJAc03jAGzkZeFz0poo1Qwe9DtKSUlGVARqFiKrDO9qIykLsNouRDMicvpc3 +03cG+fPM6NbdlAHjyAIRjfuayGrt3+ZQNHn9d0ETBX6aSHOAt+DHbRkY9VSi +VLmoiQ7EGO4IJ5F5ILpwjUMTPd1sK7/zQAZedXwYabmrgb6N5bHY1cqApcse +r33qaWSZZv2WZUEGvAVGO8VaAR2pZuJ3W5KB8sH6yr8PAU0P1Tm9/ikD/T7z +lVQ3ATmwH6CMXpeBaRmtjsfagDzjSMR9Slm4XItwocUIRUYoZq4ckYVnPcps +9fOnUKk7pcO4kSx0ZjQ/WShTQ+7xT58pmcpC/H7hJ5pgNaRQdulfioUsJDT/ ++O53Vg1VLdTeN7CVhW7j8zl6i6ropZ3r61cesjDfxfCoW04VDZqPKDTFysJQ +nFhIRIcK2tIs2s5rkYV+M1+JMfFjKLQp72ZXuyyIUEaa01EeQxSELNbFLlng +suhf8ZlSQvSCicKEPlkQOii9t5uqhLi3A892TchC0LnWA320SohYoZ/5bVkW +nobVqNGuE5DnofXjeFE5qNoO3KvbwqHV+F8dJhJy0BTrklL7Hof8qRb1g6Xl +YKWpMXjuJQ6F/v5o26koBynnaYTHbuBQ/OueWJOTcrA/K9e9zYpDJdezJ4NM +5CAp09RG1EYBzX49HdgRIweFHUXPCeKy6HTe23yZeDmotxuwt16WQQ/NLftT +7soBvTDz94UmGWTT5y1if4/Mk5u7vMYy6P2zh2+oC+Rgtixw/3OsNBoO2RPS +aiF//1r4ti+1FOrgbHzdsy4Hh5omrj4+Lo6E+7TWFbfk4FIFx81SNnEUETUk +kLEjB3Iz/erbc2II+/PN15lKHnoql9PCU8RQ4xSPACOHPOR5qpvwroiiqsf+ +Prqy8kCtUf2R86UIyj+F5++/Ig+tNG84Om8JoY7zTDd3HORhzJN5osFRCM1c +nl2SdpaH/545HVvQFkKikfcaoz3lQTA333yOSQgVkrYtIEQewrj3LjRLCKIi +g46M6jR5sH4myslpdRSVXLnIndUjD2UboWXz7HzolY9c2KteedDsVpo59okX +fbtJO7/ZLw/mf1WoPj3hRVLFdbUXR+WhT1utUlmPF5Uu8ZuwfiHXz/np3Xb8 +YVTmO5ca8VceSjhO8usd5UEVt/w5neQVAGMZDbkSwoV+nLSOvIVTgLfjOYPR +xlxIbl1zrYCoAIMsYb4r8lyozI5r7LOqAuiwG7xL+3IQlaDqDMszClDsfqWT +Xv8gKtxeFjx/WQGmbm3KnZI/gLI83BWOJSvAe123VgoBDvRezDjvYpoCmGMh +Rrv/2BHv1AkOn3QFaJzpS3RqY0cZusyrT3MU4OXMCaM7Z9jRPcmyWqkyBbjB +53jjrxkbSvqycPJIpwIUnqSKe32XBcWY2OtRbyiA/AO07KrNiPINpqyubinA +4aq6it+cjOjlWRPPnh0FkMntJU5PMaDVU9rJ8VSKoBASEL7jy4CsJGQnDnIo +QoxCV/HBx/SI8GfVTkxWESQMm6j4hejQuRU3v2gFRWgaIMyvLNMi5+9zt77h +FcF4v6xFsoMW5UyPlzw5rgj5d1xvVVylRQyvGn8pnVGE4oFJObbnNOhTRmSw +1hVFGBA4PJpgTo22U3biHzsoQpqjzVcqRWrEleCXw+isCG/pS8+/oaVGZ284 +tvV7KsJvnbpSixoqVOOiS2caqgh+tDHq5w5RoTi1AymO6YogEpzszzlPgY5N +PSqN6VcEVQKvl2DYP4xDwXmrclARokWCE4VO/8N+hCtoT44ogofAotY9un9Y +oWjTnNR7Rci05VceT9rFuNxGBXvnFYF7pDE/r2wH+xtKrUdHgYOfc077D1e3 +sW9Fjj5ZlDiIex+YHdq8jY2/fZ2pQI0D8eAa29bYbaxKKOmbKR0OfN+wBQYI +bWOuXUeiH7PgYMThe0aO8Rb2jlm5XYcXBxo3uO6KDmxiJKXMb1N8OEhkkDx7 +5OEmVmO9y+59BAcF0n57Xt6bWFJlh02mIA6+VJNqZA9tYjoXDXYXxXHQxnaU +b9R2A6vPclaJJ+Agmn/oqR3DOpYhnV3Rr4eD9zlbJafSVrD1tTNFN8/hgPHM +RKWv+wpm0LL6QNUABzavE7X2NVcwuou6d4qMcNAj8NuF688y5h+67XrdAgfh +x76siV5exowGzKTknXAQ+fwhx93QX9jTTGqhWWcc5Ehco2dX+YUxOlTyZLri +4O4FmhyJ1Z9Y2xYdPa0nDs4fZ5jkcv2JKYq8+DrlhwMOS8z/je0PjMWfq+BO +JA78G7JHi52XMGfUlnU6CgdVHRxX6OSWsE5G95StWzionKC8tPR7EQvO7bzh +cJus/+kTkxNBi9hij4/tySQcxIjbs8wlf8NIfENHf+TgoCyTStX9/TwW3paQ +odeAA8HmqpDM9lls6WNb2nYjDgpFfll7p81ipjtrSY9f4oD3UUZmudMsJqds +eZu6DQdrrM3rGuyz2GS5RHATCQePCyJ9f9nNYIT01kuyozhwuOarcoP/C5ZT +s2r2bgwHf6s46UTXP2MMw+LGMRM4mC6jUeHv/4xNs9zRn32Pg+af/WvMEZ+x +O5Hmp7K/4OCU5SfBupFpbN5jRYD5Nw4ubrzoUMv8iBnGi/E3LOPg826PSYnx +R+xliRmP0yoOAk3xYRUcH7HU2Wb2zg0cEOb2s4PipjCwiKMI2cXBEbGQn5tR +H7AsTdGZJUY8RE6cqgtNe4ed4zcp6hXDQ8RtaeaZQ+NYxpxC2yUJPJSaJXFF +fB3D5ioYPvyQxEO70/CVm7VjWCi85GCXxYPUAfqiF6Zj2JOroqEX8Xg4HJko +25gzijE9WzGaOoWHgcMVg3dOjWCmQX0eHggPDBMuW6IHR7D800Wxe4CH4i2O +61yLw5jqmHmLkCYeXJS1RvbuDWPOf1ulr+ri4QKVV8DXtSGsR/MuxS9Tcj1e +e8sOrYPYATZn/nBzPKhJBX6DrEHMZkJdmcMSD/5XqEvd/AexTZcNN4I1Hk44 +n2YulxvEJBKtJv6zx0P3o0PhEacGsKh3Mk/3r+Eh9FsBVbhwP6bu2XOJ8zYe +uCRoY7UvvMb+Ti6e6YrDg6h3ruTzA6+xGg0WQsAdsl6qZ1plY68wCV5Dho+J +ePB1lqA/Y/0KY+l6X1NyHw/Cyuf8KX17sEneX6xQiIenypdXwuq6sZQoju3V +Ijy411R9vhDZjen9JswVPcaDsvR6Rt65bqylK6CRuRwPCtLczJVfu7DCa5RO +E8/xcK7OlzaQvwvz6uZq82zFQ+tC8tHeBx2YDE6lXLgdD6N+g31Lnh3YbJbF +/dEO8vyMy9MB6h2YqVeuuxoJD7WnVp1GFtqxk/xSvHT9eAj7drHXX7UdY/A+ +4ZPzHg9TJiOaqtOtWN4RO7E3G3hQCWYc2jzdhKkRZRXs/uChC9QrXKibsNGz +6ypbW3iw/DXS5NrViDEEROuJ7eKhwfRF9QGdRsxrqMwnlIoAPgaJHu9MGjCI +XmuTYyfAfxuDhZpxddj7By97OzgIoMgj4MF5sQ7zq741an6AADeWRG5aHqnD +Sj7zfIs6RICoPQ4P62cvMM4TJ9k/8hPgO4klgvFTLTbzO8o6QYoAm+aphfwG +NVgo3XknURkC9Gf2RyoJ1mDcR3m8G2QJUG7JuNzwuxrT1S2N+qpAABT1/Q1d +SjVWVdhffuoYAYS1OQ0SP1RhNy24//5UJ4BtxKhr+o3nmFjn4/vnLxFAKwCf +Hyb5FHsrt1U4ZUUAz6CC96ufK7DA+zrVrjYEGMqueUObXYH1uSwORF8hgIhB +zG0qzgrMh0OWsdWJAGx7sc8INE+wVuunIYp+BPjKz1x/ga4Mc+7Zu93sT4AG +FyUc9+tS7ADeIEMvgACuLYunHe+UYo40yzVOwQRgetwR+4irFGMpx//KiyBA +Y5iskYNsCWa5VWPLkUCAaaez7kLexRiNHe213LsEiJG8OE9/shh72mdyXS6J +XJ99ub4zfTFGmbeZqZNKgOUXvO2JeUVYidbxkYhMAuTyFa5ZjRViGylNWitF +BJAU083nMi3AkuQ7ZIZbyHoT52kiix5iJccvMUa2ESDCJsDMMPgh1qqxvoDv +IIDFs9pHdwweYr8sJIqSuwkQsIGXit7Mw/Si4wQN3xBAg2XgimRlLkY3bcQ1 ++I4A3C2b6L3WA+zo0vfV8A8ECLp6hpp9NxtT2ogaUvxIgKzd0Wv/qrIxe+a6 +u4mfCXBn9pE2hWg21qbCz2iwQAAlugfzHsxZWEjS7L/+dQL4lYbr+++mYynZ +oVPXNwlgGTR9OKQ5HSsrPtQkv0X2W07wJaHwdGzypXZgwg4BaIcPH9egSceU +F8tX9amI8IlBtLPt0H1sWd1voY+dCAyX/WYsjNMwxzWaodcyRHCzSpYoUE7G +bMo031rJEcHV7WzfGnMyZnolqu+3PBGe/Y7LKvuShJ0ZoCYdwhOBbcKXTftu +EiZRTtV0RYUIhqfFpTUnE7GvdhRF2xpEeNMTd1fNNwGb4iVfbbSIcPZ0qWO/ +dAI2OhieJ6hNhM0LPTScX+5gXdh+ppYuEWzdL+MLDe9ghXx7d5MvEEGBTevq +W7V4zGF4J1DamggVDviTn2RvY1a3T/z30oYIi7xXxLp/xGLGEOJrYEuEONHt +cc2nsZjm078e/vZEoPWPYGMkxmJicdt27S5ESPGlzwzTiMFm1f/oW/xHBM6/ +Jjc2w25hds9XhW4nEuFF+O1jPmaRmHvkxV3dZDKfUBHIFI3E/C/WTLCkkvW8 +rq4/t3wDi93wv5t0nwjrTbMEy/gb2FPV7Z30HHJ/FzNMJ3sisO32/fHiciKY +slgkulWFYVSptlXOFUTQKmmJF74UhrE4tCfIVBLBjt0hs4cmDBOgu6n5tIoI +ys6N/95ZXsc0demqahuI4Ogo82mEMxRLGmZJ6OohQj6VWgx7aRCWVeDhHP2a +CAZjbW2ll4OwAr+3Gjp9RNirOXqUnScIe8Gd9LfvLRFaae/3EWIDsSnLg84j +Y+R+qm4yFPoGYJKzvBozs0RI37Bwuebhj+FqggUKvxKBNcvixGtFf0zt1oft +qwtEyPrM3PJ21Q/Tl8x5trhEhFn5U0VjwX6Yj5uQwMoKEej9MssepfhioSdv +bFetEaH8z5skSUtf7BbrzKjfBnm+cMQpPRFfLKOyIH5riwh899LPXq3xwfIj +aJwa/xJhJEHP3jzMBys3vHo6dJesz5KxfkbHB6sRIR3F9ojAuBReScXlg7Ws +SWzv7xOBJfBG7Ytpb+x/AHpftw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.1771383970775888}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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, 20}, {0., 0.1771383970775888}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913483238131485`*^9, 3.9921095011693687`*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"23ddd502-7653-d444-8b7a-574bfca96b94"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, 3.99179533223897*^9}}, + CellLabel-> + "In[142]:=",ExpressionUUID->"dbee741a-c3af-b241-a21b-4f79ecc0fe0c"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVlnc8l98bxu09S4Sy9/wMEdVzbiFCieyQkE3m1wxJiGSWFcrKSMrIyuaj +SPaolEJEy46I3+f3z/O83q/zOue5r/tc53qOsN01o6tUFBQUp8mP/79zwuzo +8A7ZWNx+q1z/Mzusa0RI30woCB3ooQsUFldH+6SWm0JCt5G7e0vFppghymlL +EKQVykQ+AUGWb8WuIPdT/h5/BEvR28MFQZ5i3mhkxzltWbAB1beGNrOL3kD0 +H2Ykfwq+RnsXP6sWH01Gj3rzvL8LvkNvwegyL8Mj9LTy9gd3hSV0C0Vx1Vk9 +R05oKPOHzxqqM/EhjHyvRxT5m40f4teQ4Cd+7nr6BpRBc2Sqt3AN7UkNcd0V +bUCvXjsKlI6voT7ndUnWSw1Iyng3/6raOjob4stg+roBfXOWfPKJcgONvNfb +oy1oRK4p11sGkzbR9ywt9VDdl8jzq/RszdNtFO6XaDzj2Io+27xjaH+9jU41 +RZ8timhFFydjFfrntlHB4O9vRlmt6HjfQtBXvr+IbXX7t0d/K6J+XsTBHfMX +nf9CGLrA24YyQoWxgMs7aHt3mTI4tA21H+TNVOX4h+SNLt/5T60dKSW8atGS +/YcWpH+obWq1o2K6wDnDM/8QE+FOkKthO7qzPa7oGvoPmfU/TMY5tyPT6TRS +1rd/6IswXxbhXjtaKuNY32nbQ22BT3IYf7YjJuEoyenjFJA0HZE2k9qBXp1M +VgzTogAd+ofDKKcDRZvnqhw1ooDtO6SslOIORJVUr33JjQJK5368PNzQgf7u +/XCayKGAJTnujeKPHej7lEnJABUlXOeJq38l1oneZEhKt72hhKMLH0rYyztR +XI0S/vI7StAWdV09XN2JdAbVVfe+UgI+ovQ/nqZO1EVvdfbkPiUoNE5Jrvd2 +opf/JbnU46ng9vEHO7JLnajCeLv02X0qSMdF7KZKdKG7HH0yj2ypIWC/fO9E +ehdqUDlae96TGpapTVwCc7vQnM01tBtCDYav1v49LupCJyoOGpulU4Oz2fij +z9Vd6NtZq+usb6mh6ZBjW91AF9K4+XMg6AQNUOwKfd2l6UaeZchS8iwNjOhz +lboxd6OsoeS5UVMaCORYTezn7EbLgsrbij40oBDtSXIV6Ea5L8NE5ktoQNVK +4x2TSjfa2mD3N+KmhfuKv8a/XO1Gokft9vdFaSGsUngu0q0bndesuV2BpwW7 +VCY+Hu9uVJRinstwjhaO/ZCi5g3tRkaKj3pabtLCyK/Y2cjkblThTOCTXaGF +I/GM/b8butFkYlTh5B4tpJoHfeps6UY0deMK0Sx0ILf5XSa+sxtZ0oZofJGk +A7NM3pC1N92IIb/TPd2GDn7K/pWQne5Gdh+MW6nf0EHHK0z7OCUJMWV/8fB+ +Rwfz743FFWhJqMrS88j0PB0Y+XwY4mEkIer3MUGNlPRw5sJqLomDhAonG4ne +KvTA2l6ukyJIQvoZ2jOfNOnh7QebdxKiJLRuNpqkb0QPjjZMepUSJKQ18fOn +pAc9hPlZfMiWJ6H5MaGST/n0kCyduDWrRkJ371WY6j+jh0vI5x0PRkLKJmq0 +jc30IHr4+jOkTkIxoxft7k3SQ+oxZ303bRKSGok+os/GALHrzgmEiyTkOvgj +qSGIAbBHGnM3nUnoQFIQkoxhgLzF6eQtVxJqNKD7lZbGAKo5TU5XPEiIeUBQ +z6uSAQ4QuLPYfUjoSb8RreRXBqAsaA39FExCxgnT1WmrDPDietDAeigJ7eq7 +21FRMIJyvJrTfhgJnXtzq/UjHyNc2/7ptxJJQr9664PSLjDCEP+q39k4Erof +pyVFZcMI2uzBl6jukBCmOzx+zY0RJK+rFFcmkFDi6+9EvWhGoIp4ELiQRELH +bwfO1KcyQolgBINPCgl91qFNlnjECM9PcrKupJIQ7pXAL8qX5HGM99ab+yQ0 +GVP+4NprRtjOOUQpnUFCEdrH9T6OM8KcVS9VcCYJDZIMS+pXGOF0Ul/JdjYJ +eXdH2V2TZILpeqmdaw9JSGDuDN0mkQkOe1kRbR+RUB8VY1koMIEw43DCmXwS +EoeEldsWTCCWGF+/UUBCwzYG9zgcmUDmjENSSyEJhV/nVE33YQLbqyWZ14tI +6F3jvYjCeCaoPDFn8KmYhKLfmYnJZjBB0GAhTcRjEiJu8b56XsgE+8F2f3lK +yPq4p9yOP2eCH/Wcx4rJnHAsl721mQleOlXUy5SSkJqxbbVWLxM0NCvfLiLz +go+I2ZtxJtg6XVvGXUZCaclzf41mmeBCr7JwGJnVnxXnvvvNBMauA8sfyPzr +rfNp210mOP5f5lFcOQll/5SZn2dghu7/asuDyazD8vO2xyFmUBLVzWsi84ZM +pfy6MDMctYzaXSVz/lnvoWAFZtDiS+8RekJCBs5Ef8oTzBAc0kSjRebd6I3D +sdrM4PcYV3+ZzKVFdS/ZjJkhYfjEvBeZTbuCbO/ZMkOeklRqIJmpZ0/QHPFg +hg5K7c7/yPyMcu9xfhAzcNj/DnYjs7VQm550NDM4XwtrMSUzE4r8XZnCDAJi +ZinHyVxnrZmqnMcMjdYzfznI7BBKp9Jczgwlg3d3p8n1cma/eq9RzwxfKIey +i8jc0hAX1tvFDPlI9OMVMrtN6osYDjEDdRZtNxeZD/9hI018ZIaCD//MWsj9 +6j405GKzxAxnItOzbMjso5TK+nWTGdzq7JM3yP0XvGjy3I2aBb7rbMNNMgcl +vdsKPMICAe1/piLJ+ydRmf1gX4oFKFTKhtfJ+z3Sbw3Rx1hgk7sh1ZrM8swz +MannWcD0Y1PcQbI/3ksXyvJdYoExXfFeW7J/YnQcBx46scCi8PhCIdlfX24t +cT+NYAHBEKUhTrL/7hY+aVRKYIHCO5HFamR/nuj0tGnKZAErHgsPS7J/71Gs +Fb2qYoEDfXyzYXkkdFqw9qxBKwsMZw5m38wlod+nAn6O9bEAv0ChRXgOifyf +31GanWMBXXOfrUvk87GZ2TzpssIC6+O2syezSKigPjx0+R8LXEowXuAin6d/ +G9Rd/7hZga/E9XwZ+fw992K5ePgsK2yUg6RbMgm9yToYVGHKCsV6EyPzieR8 +6+LLO+3ACr13xVXN75IQH6/0d/dwVsizvqRzJJ6Eotq1brbXssLAwwaiTBQJ +5X7XLzXtZIUEfXdbY3Ke1B8yHvg+yAr3XOxD/CJI6KeLHT/3D1Zo/WCdfp+c +R6YHwqtdRdgg3CxN0t6PhLxORr/bV2SDScwg+hQ5z+IcE/bTTrFBxy9XJjYv +EmptzNZrNWeD5xZduclu5Py0r589mMgG1FzqzaJ2JPS3euVg8w4bFFf/ZA0+ +R0Jcn7ZUjRjZoTXchbtRl4QUGChsF7jZoQ8/8GKZnL/2VmxPOAnsQCf4Ykr9 +NFk/jaymozM7XLyUE++nTNZj4uDHPsYOsumqO8JHSehRiNsSzowDDq+VY8Oz +3QjXxrgVY80BnYx3F4997kZtNCW00/Yc4KtUdSxlqht9TpgTSvDigIPVLn1K +Y91I4KG12eJtDgjy63soQiL/j7sMuh695ACb+Hs5xcXdKIVVKfeACCfYWMpW +XrfrRiJGw+UuUpzwKdpQkMqmGz2/79XQpsAJ8l0ZVBEW3WhQsGLU8wQnsMZd +OOV8oRuxESSY+4w5oSVVHn0/1Y3iTA8H3ozhBHFdevN2nm4UmbdruP6DEzZH +a9U/krrQBVy9t+waJ8SJvS2pa+9CAu2+yXbbnJDimp1252UXapxZGhykPQDy +rEJcElVdaFX8nUGFwAE4IH3T6XBOF7J7UnvO8cIBuJ5ASU/h04XUGzzPTlYf +AJ2opf8YDnchipHP8DL4IDgT9Z85m3YiCT/HQGOZQ0C8p2b9M6IdzW2kmzI3 +c8Nd66VZ/rOtSPer6/UU78NAX9ozvyzahM7PJckKCPDB421tEXexOrTUaRfx +qoIfUhVrRk5mVyMFzvGjGpePAkVaWZbMoWfkvNm4MrUmAA177LViumVI+6fl +HxETIdipdbvn3VaIcrlujoSbC8Gu7WKE15NCtH6ivHLqkhDE/Lz1KTSjED2M +23G6bycEZWotS81eheiv5INJRi8haKwXFfwiXIie2H1sWI4Tgv2zuyll0QWI +Y/JyaEubEKwta+idtMxHkx0OlJZywvD3l7D4gNRDtKz+nu+6ojCUO2tzHud9 +iOjbDZQeEoThUnC48BPGh0i5Vc1p/rgwZNkIaLqN5aG0Jo5+Hy1huC8Skp1t +mYcMal5mxNsIgxi/OZ+QSy4iFXHhmpOEoXl4Zuv2/QeoNrbLRmhDGGKt3vif +w2eiEt2+wzFbwhBNLWtvcCgTZbEMD//cEYbe8XdWLtsZKCJp+kwTlQisXHTQ +/dqeQb7v/FUw5RCBB3l1n3cuZqCZx7j9eFkR4DMQ9coKTUdsPQ/y/lwRgf/y +uvfPT99DjrT+n9++FQE/IzZHlm8piE/w9cTOkAiYjzXeJ4ykoLfHjw5IjZHX +K6o45taSgpTdu5sjP4jAc1HB+wfvpSC6kUPZyt/I43MPSEgjBRU9fGGSSykK +cN2O4V9+Mpo7sdXroSQKKv+dL+y8loQyTPQ7slREYfzJvyVR6ySkf+1hQ4+a +KHC1C1vc001CNfk6JcLqojBM4RtZLp6Eohgzb42dEwXVWmxAuyERiU2owikn +UWhvfjwRkH0X2fuE1LJkicLywAe7iMA7SJnwqVY6RxRYUUk/g/kdxLQKL848 +FAUHnZfVlSp30DNvurqIYlH4s2ZRYP4nHu16JdevV4nCidiP37kC49H9a4+b +pvpE4TPh+754eBx67T7S/uSfKPSerbMVLohFD+SUO15TiMFwor7BxehY5PUj +o2OeWgxUp87rPHKJRdzuNp1CTGLwJX+PORkXi+zcFrvSuMVA74BtU3NrDNp1 +2e8JVRQDi0j3t2qz0UjRSfat/hUxYHY5fugUdgt9chG8VuEgBkORiY4FIrfQ +HfeDHGzOYsBnsTsjSX8LLXrvGA54ikH+QaPduMEoVBDaN2YYKgYaVL9Y6hyi +EE+K20fTdDHoepWZnZxyE+2/LP9h2y8GUbKWiaXUkehpa15C+6AYEL8d+1r8 +/Qay6khVEBkVg8PNLh6tIzdQQ0+I1+x7MeiJ7KtTL7yBfIf11q9+EwNBvfWy +2DM30MLC9x1XanF4/DX8A3NSBBo4IMfsryoOuxfykxPdwxDm4bGYfVIcXCyZ +bTu1wtDTnqc9HeRbm0LM9gNhwTB0NxQfxXFGHMKpmoethq8j/Xnlf+VG4vBb +r0yjV+066m1Q/z3jJg5fzRaO2B0MRd22ZiMXcsXhjoc3bdJMEFJqynge8Egc +ws50qfW3BaHCQ+8TcwvFoZVnNhyXF4Sieq30f5SJg5YRTZWzVRA6rWTXHVMn +DirpB2kfTAaiNnqPupZBcWhi5eRdmQhATU8js+WoJWCvoE/cc8Uf0emb8KXT +SYBAFjbSOOSPDBclMymZJAB/i+aKYpU/WhDtvz/OIQFFhuahib7+6GAmT0qE +gAQ8Pq1rILnlh9xuPokdVZWADMaM/BQGP8RvPu4f6iUBoRvzvNpaPshxo2R9 +3lcCWE9q5GjI+KDnKSG+hgEScOvMT0l7dh+k3S/kLREmAePx3S1M772R72k3 +98F4CVCk81784+WN+uQo7MUeS0BuhymSKfJCIZQyF958lIC1lg7jRT1PNK/J +PCnxRQJ4NC0mfgp4oguxPy7fmJOAR0TZC/KrHkiMvfKa8ncJGA26IGaV6YHe +HFFKfLglAbXXZi/7LLkjgePYW7+DksBUysGqm+6GOjyN9I+elYQu7jqPP7wu +SK6KOBqgLwljc4L4mTVndH+Dy2rYQBISLmpoUbx1Rm6hE24xppLAk5sVMBbp +jLjirOJX7CWBTYT3xcdfTsixyLG3O0wSWizvdRAHHRHTVLCOZ40kGEyUMnq/ +cEDKAaWsiXWSIPW3yzAiwwFdOTA5XNkoCcofELwIdkD1OsesV9okoZdq1fEe +ckCOtb+9/folgdUBr36kzx6133XIDp6XBPUZqV7JRTsUqH7+V/RhKSiWNNHg +gyuocCq0+jG/FBjlxU88lbiCBgLKA18JSEE8XzrDVdYrSOIpAzWTuBSIFk6W +HPtgi0b4OnkS8FJg9W6nxT7QFimsq6in6krBoX8jskXel9HXYuG0vFApkPp9 +4/bWIyv0I+rLNnWEFIhkGJhe8rVCq3aPLjvflIK8vW/xVFpWiEJQWBYfJwUd +T7zGjyxeQnzpQh0d6VLQeNwxLEDpEroQI7j8tUoKnhXufQ6esEAvnY7qyy1K +gZK2UGqQvhnq1Pr4POmHFLwYYqroETdDvaI5PBu/pcDihNq2wb4pmpg+Mtu8 +KQUPlM/8Ya02RatmR4INaKThQkKbhspRUySlw1/iIygNfInXVv7tGKM0KV6a +BhNpUK52NbL7YoSsbCQez5pLw3Fj7/KYTiMklkbUZbOSBrnBnZWJIiNUs38u +yd5OGu6td3luuRqh0fHII2zXpOHjn2gt4h9DdPDWDyX7WGkwijzMacdjiFK+ +tF5lbZKG5uwnWNDSeWTJ089wvEUaNnP57WrrzyORc+/L7dqlYTowvkAt5jyq +ql9fqeuRBgudVBpB8fNoOFE6zG5UGta/V69qOpxDnFjq/bqf0nCsuM2p5rce +Sspy7LkiJAMih6ydKo6fRQH/RfqGispA0kdDVzmOs8jGKFcwXUIGBLxkKBcW +dJAc03jAGzkZeFz0poo1Qwe9DtKSUlGVARqFiKrDO9qIykLsNouRDMicvpc3 +03cG+fPM6NbdlAHjyAIRjfuayGrt3+ZQNHn9d0ETBX6aSHOAt+DHbRkY9VSi +VLmoiQ7EGO4IJ5F5ILpwjUMTPd1sK7/zQAZedXwYabmrgb6N5bHY1cqApcse +r33qaWSZZv2WZUEGvAVGO8VaAR2pZuJ3W5KB8sH6yr8PAU0P1Tm9/ikD/T7z +lVQ3ATmwH6CMXpeBaRmtjsfagDzjSMR9Slm4XItwocUIRUYoZq4ckYVnPcps +9fOnUKk7pcO4kSx0ZjQ/WShTQ+7xT58pmcpC/H7hJ5pgNaRQdulfioUsJDT/ ++O53Vg1VLdTeN7CVhW7j8zl6i6ropZ3r61cesjDfxfCoW04VDZqPKDTFysJQ +nFhIRIcK2tIs2s5rkYV+M1+JMfFjKLQp72ZXuyyIUEaa01EeQxSELNbFLlng +suhf8ZlSQvSCicKEPlkQOii9t5uqhLi3A892TchC0LnWA320SohYoZ/5bVkW +nobVqNGuE5DnofXjeFE5qNoO3KvbwqHV+F8dJhJy0BTrklL7Hof8qRb1g6Xl +YKWpMXjuJQ6F/v5o26koBynnaYTHbuBQ/OueWJOTcrA/K9e9zYpDJdezJ4NM +5CAp09RG1EYBzX49HdgRIweFHUXPCeKy6HTe23yZeDmotxuwt16WQQ/NLftT +7soBvTDz94UmGWTT5y1if4/Mk5u7vMYy6P2zh2+oC+Rgtixw/3OsNBoO2RPS +aiF//1r4ti+1FOrgbHzdsy4Hh5omrj4+Lo6E+7TWFbfk4FIFx81SNnEUETUk +kLEjB3Iz/erbc2II+/PN15lKHnoql9PCU8RQ4xSPACOHPOR5qpvwroiiqsf+ +Prqy8kCtUf2R86UIyj+F5++/Ig+tNG84Om8JoY7zTDd3HORhzJN5osFRCM1c +nl2SdpaH/545HVvQFkKikfcaoz3lQTA333yOSQgVkrYtIEQewrj3LjRLCKIi +g46M6jR5sH4myslpdRSVXLnIndUjD2UboWXz7HzolY9c2KteedDsVpo59okX +fbtJO7/ZLw/mf1WoPj3hRVLFdbUXR+WhT1utUlmPF5Uu8ZuwfiHXz/np3Xb8 +YVTmO5ca8VceSjhO8usd5UEVt/w5neQVAGMZDbkSwoV+nLSOvIVTgLfjOYPR +xlxIbl1zrYCoAIMsYb4r8lyozI5r7LOqAuiwG7xL+3IQlaDqDMszClDsfqWT +Xv8gKtxeFjx/WQGmbm3KnZI/gLI83BWOJSvAe123VgoBDvRezDjvYpoCmGMh +Rrv/2BHv1AkOn3QFaJzpS3RqY0cZusyrT3MU4OXMCaM7Z9jRPcmyWqkyBbjB +53jjrxkbSvqycPJIpwIUnqSKe32XBcWY2OtRbyiA/AO07KrNiPINpqyubinA +4aq6it+cjOjlWRPPnh0FkMntJU5PMaDVU9rJ8VSKoBASEL7jy4CsJGQnDnIo +QoxCV/HBx/SI8GfVTkxWESQMm6j4hejQuRU3v2gFRWgaIMyvLNMi5+9zt77h +FcF4v6xFsoMW5UyPlzw5rgj5d1xvVVylRQyvGn8pnVGE4oFJObbnNOhTRmSw +1hVFGBA4PJpgTo22U3biHzsoQpqjzVcqRWrEleCXw+isCG/pS8+/oaVGZ284 +tvV7KsJvnbpSixoqVOOiS2caqgh+tDHq5w5RoTi1AymO6YogEpzszzlPgY5N +PSqN6VcEVQKvl2DYP4xDwXmrclARokWCE4VO/8N+hCtoT44ogofAotY9un9Y +oWjTnNR7Rci05VceT9rFuNxGBXvnFYF7pDE/r2wH+xtKrUdHgYOfc077D1e3 +sW9Fjj5ZlDiIex+YHdq8jY2/fZ2pQI0D8eAa29bYbaxKKOmbKR0OfN+wBQYI +bWOuXUeiH7PgYMThe0aO8Rb2jlm5XYcXBxo3uO6KDmxiJKXMb1N8OEhkkDx7 +5OEmVmO9y+59BAcF0n57Xt6bWFJlh02mIA6+VJNqZA9tYjoXDXYXxXHQxnaU +b9R2A6vPclaJJ+Agmn/oqR3DOpYhnV3Rr4eD9zlbJafSVrD1tTNFN8/hgPHM +RKWv+wpm0LL6QNUABzavE7X2NVcwuou6d4qMcNAj8NuF688y5h+67XrdAgfh +x76siV5exowGzKTknXAQ+fwhx93QX9jTTGqhWWcc5Ehco2dX+YUxOlTyZLri +4O4FmhyJ1Z9Y2xYdPa0nDs4fZ5jkcv2JKYq8+DrlhwMOS8z/je0PjMWfq+BO +JA78G7JHi52XMGfUlnU6CgdVHRxX6OSWsE5G95StWzionKC8tPR7EQvO7bzh +cJus/+kTkxNBi9hij4/tySQcxIjbs8wlf8NIfENHf+TgoCyTStX9/TwW3paQ +odeAA8HmqpDM9lls6WNb2nYjDgpFfll7p81ipjtrSY9f4oD3UUZmudMsJqds +eZu6DQdrrM3rGuyz2GS5RHATCQePCyJ9f9nNYIT01kuyozhwuOarcoP/C5ZT +s2r2bgwHf6s46UTXP2MMw+LGMRM4mC6jUeHv/4xNs9zRn32Pg+af/WvMEZ+x +O5Hmp7K/4OCU5SfBupFpbN5jRYD5Nw4ubrzoUMv8iBnGi/E3LOPg826PSYnx +R+xliRmP0yoOAk3xYRUcH7HU2Wb2zg0cEOb2s4PipjCwiKMI2cXBEbGQn5tR +H7AsTdGZJUY8RE6cqgtNe4ed4zcp6hXDQ8RtaeaZQ+NYxpxC2yUJPJSaJXFF +fB3D5ioYPvyQxEO70/CVm7VjWCi85GCXxYPUAfqiF6Zj2JOroqEX8Xg4HJko +25gzijE9WzGaOoWHgcMVg3dOjWCmQX0eHggPDBMuW6IHR7D800Wxe4CH4i2O +61yLw5jqmHmLkCYeXJS1RvbuDWPOf1ulr+ri4QKVV8DXtSGsR/MuxS9Tcj1e +e8sOrYPYATZn/nBzPKhJBX6DrEHMZkJdmcMSD/5XqEvd/AexTZcNN4I1Hk44 +n2YulxvEJBKtJv6zx0P3o0PhEacGsKh3Mk/3r+Eh9FsBVbhwP6bu2XOJ8zYe +uCRoY7UvvMb+Ti6e6YrDg6h3ruTzA6+xGg0WQsAdsl6qZ1plY68wCV5Dho+J +ePB1lqA/Y/0KY+l6X1NyHw/Cyuf8KX17sEneX6xQiIenypdXwuq6sZQoju3V +Ijy411R9vhDZjen9JswVPcaDsvR6Rt65bqylK6CRuRwPCtLczJVfu7DCa5RO +E8/xcK7OlzaQvwvz6uZq82zFQ+tC8tHeBx2YDE6lXLgdD6N+g31Lnh3YbJbF +/dEO8vyMy9MB6h2YqVeuuxoJD7WnVp1GFtqxk/xSvHT9eAj7drHXX7UdY/A+ +4ZPzHg9TJiOaqtOtWN4RO7E3G3hQCWYc2jzdhKkRZRXs/uChC9QrXKibsNGz +6ypbW3iw/DXS5NrViDEEROuJ7eKhwfRF9QGdRsxrqMwnlIoAPgaJHu9MGjCI +XmuTYyfAfxuDhZpxddj7By97OzgIoMgj4MF5sQ7zq741an6AADeWRG5aHqnD +Sj7zfIs6RICoPQ4P62cvMM4TJ9k/8hPgO4klgvFTLTbzO8o6QYoAm+aphfwG +NVgo3XknURkC9Gf2RyoJ1mDcR3m8G2QJUG7JuNzwuxrT1S2N+qpAABT1/Q1d +SjVWVdhffuoYAYS1OQ0SP1RhNy24//5UJ4BtxKhr+o3nmFjn4/vnLxFAKwCf +Hyb5FHsrt1U4ZUUAz6CC96ufK7DA+zrVrjYEGMqueUObXYH1uSwORF8hgIhB +zG0qzgrMh0OWsdWJAGx7sc8INE+wVuunIYp+BPjKz1x/ga4Mc+7Zu93sT4AG +FyUc9+tS7ADeIEMvgACuLYunHe+UYo40yzVOwQRgetwR+4irFGMpx//KiyBA +Y5iskYNsCWa5VWPLkUCAaaez7kLexRiNHe213LsEiJG8OE9/shh72mdyXS6J +XJ99ub4zfTFGmbeZqZNKgOUXvO2JeUVYidbxkYhMAuTyFa5ZjRViGylNWitF +BJAU083nMi3AkuQ7ZIZbyHoT52kiix5iJccvMUa2ESDCJsDMMPgh1qqxvoDv +IIDFs9pHdwweYr8sJIqSuwkQsIGXit7Mw/Si4wQN3xBAg2XgimRlLkY3bcQ1 ++I4A3C2b6L3WA+zo0vfV8A8ECLp6hpp9NxtT2ogaUvxIgKzd0Wv/qrIxe+a6 +u4mfCXBn9pE2hWg21qbCz2iwQAAlugfzHsxZWEjS7L/+dQL4lYbr+++mYynZ +oVPXNwlgGTR9OKQ5HSsrPtQkv0X2W07wJaHwdGzypXZgwg4BaIcPH9egSceU +F8tX9amI8IlBtLPt0H1sWd1voY+dCAyX/WYsjNMwxzWaodcyRHCzSpYoUE7G +bMo031rJEcHV7WzfGnMyZnolqu+3PBGe/Y7LKvuShJ0ZoCYdwhOBbcKXTftu +EiZRTtV0RYUIhqfFpTUnE7GvdhRF2xpEeNMTd1fNNwGb4iVfbbSIcPZ0qWO/ +dAI2OhieJ6hNhM0LPTScX+5gXdh+ppYuEWzdL+MLDe9ghXx7d5MvEEGBTevq +W7V4zGF4J1DamggVDviTn2RvY1a3T/z30oYIi7xXxLp/xGLGEOJrYEuEONHt +cc2nsZjm078e/vZEoPWPYGMkxmJicdt27S5ESPGlzwzTiMFm1f/oW/xHBM6/ +Jjc2w25hds9XhW4nEuFF+O1jPmaRmHvkxV3dZDKfUBHIFI3E/C/WTLCkkvW8 +rq4/t3wDi93wv5t0nwjrTbMEy/gb2FPV7Z30HHJ/FzNMJ3sisO32/fHiciKY +slgkulWFYVSptlXOFUTQKmmJF74UhrE4tCfIVBLBjt0hs4cmDBOgu6n5tIoI +ys6N/95ZXsc0demqahuI4Ogo82mEMxRLGmZJ6OohQj6VWgx7aRCWVeDhHP2a +CAZjbW2ll4OwAr+3Gjp9RNirOXqUnScIe8Gd9LfvLRFaae/3EWIDsSnLg84j +Y+R+qm4yFPoGYJKzvBozs0RI37Bwuebhj+FqggUKvxKBNcvixGtFf0zt1oft +qwtEyPrM3PJ21Q/Tl8x5trhEhFn5U0VjwX6Yj5uQwMoKEej9MssepfhioSdv +bFetEaH8z5skSUtf7BbrzKjfBnm+cMQpPRFfLKOyIH5riwh899LPXq3xwfIj +aJwa/xJhJEHP3jzMBys3vHo6dJesz5KxfkbHB6sRIR3F9ojAuBReScXlg7Ws +SWzv7xOBJfBG7Ytpb+x/AHpftw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8l98bxu09S4Sy9/wMEdVzbiFCieyQkE3m1wxJiGSWFcrKSMrIyuaj +SPaolEJEy46I3+f3z/O83q/zOue5r/tc53qOsN01o6tUFBQUp8mP/79zwuzo +8A7ZWNx+q1z/Mzusa0RI30woCB3ooQsUFldH+6SWm0JCt5G7e0vFppghymlL +EKQVykQ+AUGWb8WuIPdT/h5/BEvR28MFQZ5i3mhkxzltWbAB1beGNrOL3kD0 +H2Ykfwq+RnsXP6sWH01Gj3rzvL8LvkNvwegyL8Mj9LTy9gd3hSV0C0Vx1Vk9 +R05oKPOHzxqqM/EhjHyvRxT5m40f4teQ4Cd+7nr6BpRBc2Sqt3AN7UkNcd0V +bUCvXjsKlI6voT7ndUnWSw1Iyng3/6raOjob4stg+roBfXOWfPKJcgONvNfb +oy1oRK4p11sGkzbR9ywt9VDdl8jzq/RszdNtFO6XaDzj2Io+27xjaH+9jU41 +RZ8timhFFydjFfrntlHB4O9vRlmt6HjfQtBXvr+IbXX7t0d/K6J+XsTBHfMX +nf9CGLrA24YyQoWxgMs7aHt3mTI4tA21H+TNVOX4h+SNLt/5T60dKSW8atGS +/YcWpH+obWq1o2K6wDnDM/8QE+FOkKthO7qzPa7oGvoPmfU/TMY5tyPT6TRS +1rd/6IswXxbhXjtaKuNY32nbQ22BT3IYf7YjJuEoyenjFJA0HZE2k9qBXp1M +VgzTogAd+ofDKKcDRZvnqhw1ooDtO6SslOIORJVUr33JjQJK5368PNzQgf7u +/XCayKGAJTnujeKPHej7lEnJABUlXOeJq38l1oneZEhKt72hhKMLH0rYyztR +XI0S/vI7StAWdV09XN2JdAbVVfe+UgI+ovQ/nqZO1EVvdfbkPiUoNE5Jrvd2 +opf/JbnU46ng9vEHO7JLnajCeLv02X0qSMdF7KZKdKG7HH0yj2ypIWC/fO9E +ehdqUDlae96TGpapTVwCc7vQnM01tBtCDYav1v49LupCJyoOGpulU4Oz2fij +z9Vd6NtZq+usb6mh6ZBjW91AF9K4+XMg6AQNUOwKfd2l6UaeZchS8iwNjOhz +lboxd6OsoeS5UVMaCORYTezn7EbLgsrbij40oBDtSXIV6Ea5L8NE5ktoQNVK +4x2TSjfa2mD3N+KmhfuKv8a/XO1Gokft9vdFaSGsUngu0q0bndesuV2BpwW7 +VCY+Hu9uVJRinstwjhaO/ZCi5g3tRkaKj3pabtLCyK/Y2cjkblThTOCTXaGF +I/GM/b8butFkYlTh5B4tpJoHfeps6UY0deMK0Sx0ILf5XSa+sxtZ0oZofJGk +A7NM3pC1N92IIb/TPd2GDn7K/pWQne5Gdh+MW6nf0EHHK0z7OCUJMWV/8fB+ +Rwfz743FFWhJqMrS88j0PB0Y+XwY4mEkIer3MUGNlPRw5sJqLomDhAonG4ne +KvTA2l6ukyJIQvoZ2jOfNOnh7QebdxKiJLRuNpqkb0QPjjZMepUSJKQ18fOn +pAc9hPlZfMiWJ6H5MaGST/n0kCyduDWrRkJ371WY6j+jh0vI5x0PRkLKJmq0 +jc30IHr4+jOkTkIxoxft7k3SQ+oxZ303bRKSGok+os/GALHrzgmEiyTkOvgj +qSGIAbBHGnM3nUnoQFIQkoxhgLzF6eQtVxJqNKD7lZbGAKo5TU5XPEiIeUBQ +z6uSAQ4QuLPYfUjoSb8RreRXBqAsaA39FExCxgnT1WmrDPDietDAeigJ7eq7 +21FRMIJyvJrTfhgJnXtzq/UjHyNc2/7ptxJJQr9664PSLjDCEP+q39k4Erof +pyVFZcMI2uzBl6jukBCmOzx+zY0RJK+rFFcmkFDi6+9EvWhGoIp4ELiQRELH +bwfO1KcyQolgBINPCgl91qFNlnjECM9PcrKupJIQ7pXAL8qX5HGM99ab+yQ0 +GVP+4NprRtjOOUQpnUFCEdrH9T6OM8KcVS9VcCYJDZIMS+pXGOF0Ul/JdjYJ +eXdH2V2TZILpeqmdaw9JSGDuDN0mkQkOe1kRbR+RUB8VY1koMIEw43DCmXwS +EoeEldsWTCCWGF+/UUBCwzYG9zgcmUDmjENSSyEJhV/nVE33YQLbqyWZ14tI +6F3jvYjCeCaoPDFn8KmYhKLfmYnJZjBB0GAhTcRjEiJu8b56XsgE+8F2f3lK +yPq4p9yOP2eCH/Wcx4rJnHAsl721mQleOlXUy5SSkJqxbbVWLxM0NCvfLiLz +go+I2ZtxJtg6XVvGXUZCaclzf41mmeBCr7JwGJnVnxXnvvvNBMauA8sfyPzr +rfNp210mOP5f5lFcOQll/5SZn2dghu7/asuDyazD8vO2xyFmUBLVzWsi84ZM +pfy6MDMctYzaXSVz/lnvoWAFZtDiS+8RekJCBs5Ef8oTzBAc0kSjRebd6I3D +sdrM4PcYV3+ZzKVFdS/ZjJkhYfjEvBeZTbuCbO/ZMkOeklRqIJmpZ0/QHPFg +hg5K7c7/yPyMcu9xfhAzcNj/DnYjs7VQm550NDM4XwtrMSUzE4r8XZnCDAJi +ZinHyVxnrZmqnMcMjdYzfznI7BBKp9Jczgwlg3d3p8n1cma/eq9RzwxfKIey +i8jc0hAX1tvFDPlI9OMVMrtN6osYDjEDdRZtNxeZD/9hI018ZIaCD//MWsj9 +6j405GKzxAxnItOzbMjso5TK+nWTGdzq7JM3yP0XvGjy3I2aBb7rbMNNMgcl +vdsKPMICAe1/piLJ+ydRmf1gX4oFKFTKhtfJ+z3Sbw3Rx1hgk7sh1ZrM8swz +MannWcD0Y1PcQbI/3ksXyvJdYoExXfFeW7J/YnQcBx46scCi8PhCIdlfX24t +cT+NYAHBEKUhTrL/7hY+aVRKYIHCO5HFamR/nuj0tGnKZAErHgsPS7J/71Gs +Fb2qYoEDfXyzYXkkdFqw9qxBKwsMZw5m38wlod+nAn6O9bEAv0ChRXgOifyf +31GanWMBXXOfrUvk87GZ2TzpssIC6+O2syezSKigPjx0+R8LXEowXuAin6d/ +G9Rd/7hZga/E9XwZ+fw992K5ePgsK2yUg6RbMgm9yToYVGHKCsV6EyPzieR8 +6+LLO+3ACr13xVXN75IQH6/0d/dwVsizvqRzJJ6Eotq1brbXssLAwwaiTBQJ +5X7XLzXtZIUEfXdbY3Ke1B8yHvg+yAr3XOxD/CJI6KeLHT/3D1Zo/WCdfp+c +R6YHwqtdRdgg3CxN0t6PhLxORr/bV2SDScwg+hQ5z+IcE/bTTrFBxy9XJjYv +EmptzNZrNWeD5xZduclu5Py0r589mMgG1FzqzaJ2JPS3euVg8w4bFFf/ZA0+ +R0Jcn7ZUjRjZoTXchbtRl4QUGChsF7jZoQ8/8GKZnL/2VmxPOAnsQCf4Ykr9 +NFk/jaymozM7XLyUE++nTNZj4uDHPsYOsumqO8JHSehRiNsSzowDDq+VY8Oz +3QjXxrgVY80BnYx3F4997kZtNCW00/Yc4KtUdSxlqht9TpgTSvDigIPVLn1K +Y91I4KG12eJtDgjy63soQiL/j7sMuh695ACb+Hs5xcXdKIVVKfeACCfYWMpW +XrfrRiJGw+UuUpzwKdpQkMqmGz2/79XQpsAJ8l0ZVBEW3WhQsGLU8wQnsMZd +OOV8oRuxESSY+4w5oSVVHn0/1Y3iTA8H3ozhBHFdevN2nm4UmbdruP6DEzZH +a9U/krrQBVy9t+waJ8SJvS2pa+9CAu2+yXbbnJDimp1252UXapxZGhykPQDy +rEJcElVdaFX8nUGFwAE4IH3T6XBOF7J7UnvO8cIBuJ5ASU/h04XUGzzPTlYf +AJ2opf8YDnchipHP8DL4IDgT9Z85m3YiCT/HQGOZQ0C8p2b9M6IdzW2kmzI3 +c8Nd66VZ/rOtSPer6/UU78NAX9ozvyzahM7PJckKCPDB421tEXexOrTUaRfx +qoIfUhVrRk5mVyMFzvGjGpePAkVaWZbMoWfkvNm4MrUmAA177LViumVI+6fl +HxETIdipdbvn3VaIcrlujoSbC8Gu7WKE15NCtH6ivHLqkhDE/Lz1KTSjED2M +23G6bycEZWotS81eheiv5INJRi8haKwXFfwiXIie2H1sWI4Tgv2zuyll0QWI +Y/JyaEubEKwta+idtMxHkx0OlJZywvD3l7D4gNRDtKz+nu+6ojCUO2tzHud9 +iOjbDZQeEoThUnC48BPGh0i5Vc1p/rgwZNkIaLqN5aG0Jo5+Hy1huC8Skp1t +mYcMal5mxNsIgxi/OZ+QSy4iFXHhmpOEoXl4Zuv2/QeoNrbLRmhDGGKt3vif +w2eiEt2+wzFbwhBNLWtvcCgTZbEMD//cEYbe8XdWLtsZKCJp+kwTlQisXHTQ +/dqeQb7v/FUw5RCBB3l1n3cuZqCZx7j9eFkR4DMQ9coKTUdsPQ/y/lwRgf/y +uvfPT99DjrT+n9++FQE/IzZHlm8piE/w9cTOkAiYjzXeJ4ykoLfHjw5IjZHX +K6o45taSgpTdu5sjP4jAc1HB+wfvpSC6kUPZyt/I43MPSEgjBRU9fGGSSykK +cN2O4V9+Mpo7sdXroSQKKv+dL+y8loQyTPQ7slREYfzJvyVR6ySkf+1hQ4+a +KHC1C1vc001CNfk6JcLqojBM4RtZLp6Eohgzb42dEwXVWmxAuyERiU2owikn +UWhvfjwRkH0X2fuE1LJkicLywAe7iMA7SJnwqVY6RxRYUUk/g/kdxLQKL848 +FAUHnZfVlSp30DNvurqIYlH4s2ZRYP4nHu16JdevV4nCidiP37kC49H9a4+b +pvpE4TPh+754eBx67T7S/uSfKPSerbMVLohFD+SUO15TiMFwor7BxehY5PUj +o2OeWgxUp87rPHKJRdzuNp1CTGLwJX+PORkXi+zcFrvSuMVA74BtU3NrDNp1 +2e8JVRQDi0j3t2qz0UjRSfat/hUxYHY5fugUdgt9chG8VuEgBkORiY4FIrfQ +HfeDHGzOYsBnsTsjSX8LLXrvGA54ikH+QaPduMEoVBDaN2YYKgYaVL9Y6hyi +EE+K20fTdDHoepWZnZxyE+2/LP9h2y8GUbKWiaXUkehpa15C+6AYEL8d+1r8 +/Qay6khVEBkVg8PNLh6tIzdQQ0+I1+x7MeiJ7KtTL7yBfIf11q9+EwNBvfWy +2DM30MLC9x1XanF4/DX8A3NSBBo4IMfsryoOuxfykxPdwxDm4bGYfVIcXCyZ +bTu1wtDTnqc9HeRbm0LM9gNhwTB0NxQfxXFGHMKpmoethq8j/Xnlf+VG4vBb +r0yjV+066m1Q/z3jJg5fzRaO2B0MRd22ZiMXcsXhjoc3bdJMEFJqynge8Egc +ws50qfW3BaHCQ+8TcwvFoZVnNhyXF4Sieq30f5SJg5YRTZWzVRA6rWTXHVMn +DirpB2kfTAaiNnqPupZBcWhi5eRdmQhATU8js+WoJWCvoE/cc8Uf0emb8KXT +SYBAFjbSOOSPDBclMymZJAB/i+aKYpU/WhDtvz/OIQFFhuahib7+6GAmT0qE +gAQ8Pq1rILnlh9xuPokdVZWADMaM/BQGP8RvPu4f6iUBoRvzvNpaPshxo2R9 +3lcCWE9q5GjI+KDnKSG+hgEScOvMT0l7dh+k3S/kLREmAePx3S1M772R72k3 +98F4CVCk81784+WN+uQo7MUeS0BuhymSKfJCIZQyF958lIC1lg7jRT1PNK/J +PCnxRQJ4NC0mfgp4oguxPy7fmJOAR0TZC/KrHkiMvfKa8ncJGA26IGaV6YHe +HFFKfLglAbXXZi/7LLkjgePYW7+DksBUysGqm+6GOjyN9I+elYQu7jqPP7wu +SK6KOBqgLwljc4L4mTVndH+Dy2rYQBISLmpoUbx1Rm6hE24xppLAk5sVMBbp +jLjirOJX7CWBTYT3xcdfTsixyLG3O0wSWizvdRAHHRHTVLCOZ40kGEyUMnq/ +cEDKAaWsiXWSIPW3yzAiwwFdOTA5XNkoCcofELwIdkD1OsesV9okoZdq1fEe +ckCOtb+9/folgdUBr36kzx6133XIDp6XBPUZqV7JRTsUqH7+V/RhKSiWNNHg +gyuocCq0+jG/FBjlxU88lbiCBgLKA18JSEE8XzrDVdYrSOIpAzWTuBSIFk6W +HPtgi0b4OnkS8FJg9W6nxT7QFimsq6in6krBoX8jskXel9HXYuG0vFApkPp9 +4/bWIyv0I+rLNnWEFIhkGJhe8rVCq3aPLjvflIK8vW/xVFpWiEJQWBYfJwUd +T7zGjyxeQnzpQh0d6VLQeNwxLEDpEroQI7j8tUoKnhXufQ6esEAvnY7qyy1K +gZK2UGqQvhnq1Pr4POmHFLwYYqroETdDvaI5PBu/pcDihNq2wb4pmpg+Mtu8 +KQUPlM/8Ya02RatmR4INaKThQkKbhspRUySlw1/iIygNfInXVv7tGKM0KV6a +BhNpUK52NbL7YoSsbCQez5pLw3Fj7/KYTiMklkbUZbOSBrnBnZWJIiNUs38u +yd5OGu6td3luuRqh0fHII2zXpOHjn2gt4h9DdPDWDyX7WGkwijzMacdjiFK+ +tF5lbZKG5uwnWNDSeWTJ089wvEUaNnP57WrrzyORc+/L7dqlYTowvkAt5jyq +ql9fqeuRBgudVBpB8fNoOFE6zG5UGta/V69qOpxDnFjq/bqf0nCsuM2p5rce +Sspy7LkiJAMih6ydKo6fRQH/RfqGispA0kdDVzmOs8jGKFcwXUIGBLxkKBcW +dJAc03jAGzkZeFz0poo1Qwe9DtKSUlGVARqFiKrDO9qIykLsNouRDMicvpc3 +03cG+fPM6NbdlAHjyAIRjfuayGrt3+ZQNHn9d0ETBX6aSHOAt+DHbRkY9VSi +VLmoiQ7EGO4IJ5F5ILpwjUMTPd1sK7/zQAZedXwYabmrgb6N5bHY1cqApcse +r33qaWSZZv2WZUEGvAVGO8VaAR2pZuJ3W5KB8sH6yr8PAU0P1Tm9/ikD/T7z +lVQ3ATmwH6CMXpeBaRmtjsfagDzjSMR9Slm4XItwocUIRUYoZq4ckYVnPcps +9fOnUKk7pcO4kSx0ZjQ/WShTQ+7xT58pmcpC/H7hJ5pgNaRQdulfioUsJDT/ ++O53Vg1VLdTeN7CVhW7j8zl6i6ropZ3r61cesjDfxfCoW04VDZqPKDTFysJQ +nFhIRIcK2tIs2s5rkYV+M1+JMfFjKLQp72ZXuyyIUEaa01EeQxSELNbFLlng +suhf8ZlSQvSCicKEPlkQOii9t5uqhLi3A892TchC0LnWA320SohYoZ/5bVkW +nobVqNGuE5DnofXjeFE5qNoO3KvbwqHV+F8dJhJy0BTrklL7Hof8qRb1g6Xl +YKWpMXjuJQ6F/v5o26koBynnaYTHbuBQ/OueWJOTcrA/K9e9zYpDJdezJ4NM +5CAp09RG1EYBzX49HdgRIweFHUXPCeKy6HTe23yZeDmotxuwt16WQQ/NLftT +7soBvTDz94UmGWTT5y1if4/Mk5u7vMYy6P2zh2+oC+Rgtixw/3OsNBoO2RPS +aiF//1r4ti+1FOrgbHzdsy4Hh5omrj4+Lo6E+7TWFbfk4FIFx81SNnEUETUk +kLEjB3Iz/erbc2II+/PN15lKHnoql9PCU8RQ4xSPACOHPOR5qpvwroiiqsf+ +Prqy8kCtUf2R86UIyj+F5++/Ig+tNG84Om8JoY7zTDd3HORhzJN5osFRCM1c +nl2SdpaH/545HVvQFkKikfcaoz3lQTA333yOSQgVkrYtIEQewrj3LjRLCKIi +g46M6jR5sH4myslpdRSVXLnIndUjD2UboWXz7HzolY9c2KteedDsVpo59okX +fbtJO7/ZLw/mf1WoPj3hRVLFdbUXR+WhT1utUlmPF5Uu8ZuwfiHXz/np3Xb8 +YVTmO5ca8VceSjhO8usd5UEVt/w5neQVAGMZDbkSwoV+nLSOvIVTgLfjOYPR +xlxIbl1zrYCoAIMsYb4r8lyozI5r7LOqAuiwG7xL+3IQlaDqDMszClDsfqWT +Xv8gKtxeFjx/WQGmbm3KnZI/gLI83BWOJSvAe123VgoBDvRezDjvYpoCmGMh +Rrv/2BHv1AkOn3QFaJzpS3RqY0cZusyrT3MU4OXMCaM7Z9jRPcmyWqkyBbjB +53jjrxkbSvqycPJIpwIUnqSKe32XBcWY2OtRbyiA/AO07KrNiPINpqyubinA +4aq6it+cjOjlWRPPnh0FkMntJU5PMaDVU9rJ8VSKoBASEL7jy4CsJGQnDnIo +QoxCV/HBx/SI8GfVTkxWESQMm6j4hejQuRU3v2gFRWgaIMyvLNMi5+9zt77h +FcF4v6xFsoMW5UyPlzw5rgj5d1xvVVylRQyvGn8pnVGE4oFJObbnNOhTRmSw +1hVFGBA4PJpgTo22U3biHzsoQpqjzVcqRWrEleCXw+isCG/pS8+/oaVGZ284 +tvV7KsJvnbpSixoqVOOiS2caqgh+tDHq5w5RoTi1AymO6YogEpzszzlPgY5N +PSqN6VcEVQKvl2DYP4xDwXmrclARokWCE4VO/8N+hCtoT44ogofAotY9un9Y +oWjTnNR7Rci05VceT9rFuNxGBXvnFYF7pDE/r2wH+xtKrUdHgYOfc077D1e3 +sW9Fjj5ZlDiIex+YHdq8jY2/fZ2pQI0D8eAa29bYbaxKKOmbKR0OfN+wBQYI +bWOuXUeiH7PgYMThe0aO8Rb2jlm5XYcXBxo3uO6KDmxiJKXMb1N8OEhkkDx7 +5OEmVmO9y+59BAcF0n57Xt6bWFJlh02mIA6+VJNqZA9tYjoXDXYXxXHQxnaU +b9R2A6vPclaJJ+Agmn/oqR3DOpYhnV3Rr4eD9zlbJafSVrD1tTNFN8/hgPHM +RKWv+wpm0LL6QNUABzavE7X2NVcwuou6d4qMcNAj8NuF688y5h+67XrdAgfh +x76siV5exowGzKTknXAQ+fwhx93QX9jTTGqhWWcc5Ehco2dX+YUxOlTyZLri +4O4FmhyJ1Z9Y2xYdPa0nDs4fZ5jkcv2JKYq8+DrlhwMOS8z/je0PjMWfq+BO +JA78G7JHi52XMGfUlnU6CgdVHRxX6OSWsE5G95StWzionKC8tPR7EQvO7bzh +cJus/+kTkxNBi9hij4/tySQcxIjbs8wlf8NIfENHf+TgoCyTStX9/TwW3paQ +odeAA8HmqpDM9lls6WNb2nYjDgpFfll7p81ipjtrSY9f4oD3UUZmudMsJqds +eZu6DQdrrM3rGuyz2GS5RHATCQePCyJ9f9nNYIT01kuyozhwuOarcoP/C5ZT +s2r2bgwHf6s46UTXP2MMw+LGMRM4mC6jUeHv/4xNs9zRn32Pg+af/WvMEZ+x +O5Hmp7K/4OCU5SfBupFpbN5jRYD5Nw4ubrzoUMv8iBnGi/E3LOPg826PSYnx +R+xliRmP0yoOAk3xYRUcH7HU2Wb2zg0cEOb2s4PipjCwiKMI2cXBEbGQn5tR +H7AsTdGZJUY8RE6cqgtNe4ed4zcp6hXDQ8RtaeaZQ+NYxpxC2yUJPJSaJXFF +fB3D5ioYPvyQxEO70/CVm7VjWCi85GCXxYPUAfqiF6Zj2JOroqEX8Xg4HJko +25gzijE9WzGaOoWHgcMVg3dOjWCmQX0eHggPDBMuW6IHR7D800Wxe4CH4i2O +61yLw5jqmHmLkCYeXJS1RvbuDWPOf1ulr+ri4QKVV8DXtSGsR/MuxS9Tcj1e +e8sOrYPYATZn/nBzPKhJBX6DrEHMZkJdmcMSD/5XqEvd/AexTZcNN4I1Hk44 +n2YulxvEJBKtJv6zx0P3o0PhEacGsKh3Mk/3r+Eh9FsBVbhwP6bu2XOJ8zYe +uCRoY7UvvMb+Ti6e6YrDg6h3ruTzA6+xGg0WQsAdsl6qZ1plY68wCV5Dho+J +ePB1lqA/Y/0KY+l6X1NyHw/Cyuf8KX17sEneX6xQiIenypdXwuq6sZQoju3V +Ijy411R9vhDZjen9JswVPcaDsvR6Rt65bqylK6CRuRwPCtLczJVfu7DCa5RO +E8/xcK7OlzaQvwvz6uZq82zFQ+tC8tHeBx2YDE6lXLgdD6N+g31Lnh3YbJbF +/dEO8vyMy9MB6h2YqVeuuxoJD7WnVp1GFtqxk/xSvHT9eAj7drHXX7UdY/A+ +4ZPzHg9TJiOaqtOtWN4RO7E3G3hQCWYc2jzdhKkRZRXs/uChC9QrXKibsNGz +6ypbW3iw/DXS5NrViDEEROuJ7eKhwfRF9QGdRsxrqMwnlIoAPgaJHu9MGjCI +XmuTYyfAfxuDhZpxddj7By97OzgIoMgj4MF5sQ7zq741an6AADeWRG5aHqnD +Sj7zfIs6RICoPQ4P62cvMM4TJ9k/8hPgO4klgvFTLTbzO8o6QYoAm+aphfwG +NVgo3XknURkC9Gf2RyoJ1mDcR3m8G2QJUG7JuNzwuxrT1S2N+qpAABT1/Q1d +SjVWVdhffuoYAYS1OQ0SP1RhNy24//5UJ4BtxKhr+o3nmFjn4/vnLxFAKwCf +Hyb5FHsrt1U4ZUUAz6CC96ufK7DA+zrVrjYEGMqueUObXYH1uSwORF8hgIhB +zG0qzgrMh0OWsdWJAGx7sc8INE+wVuunIYp+BPjKz1x/ga4Mc+7Zu93sT4AG +FyUc9+tS7ADeIEMvgACuLYunHe+UYo40yzVOwQRgetwR+4irFGMpx//KiyBA +Y5iskYNsCWa5VWPLkUCAaaez7kLexRiNHe213LsEiJG8OE9/shh72mdyXS6J +XJ99ub4zfTFGmbeZqZNKgOUXvO2JeUVYidbxkYhMAuTyFa5ZjRViGylNWitF +BJAU083nMi3AkuQ7ZIZbyHoT52kiix5iJccvMUa2ESDCJsDMMPgh1qqxvoDv +IIDFs9pHdwweYr8sJIqSuwkQsIGXit7Mw/Si4wQN3xBAg2XgimRlLkY3bcQ1 ++I4A3C2b6L3WA+zo0vfV8A8ECLp6hpp9NxtT2ogaUvxIgKzd0Wv/qrIxe+a6 +u4mfCXBn9pE2hWg21qbCz2iwQAAlugfzHsxZWEjS7L/+dQL4lYbr+++mYynZ +oVPXNwlgGTR9OKQ5HSsrPtQkv0X2W07wJaHwdGzypXZgwg4BaIcPH9egSceU +F8tX9amI8IlBtLPt0H1sWd1voY+dCAyX/WYsjNMwxzWaodcyRHCzSpYoUE7G +bMo031rJEcHV7WzfGnMyZnolqu+3PBGe/Y7LKvuShJ0ZoCYdwhOBbcKXTftu +EiZRTtV0RYUIhqfFpTUnE7GvdhRF2xpEeNMTd1fNNwGb4iVfbbSIcPZ0qWO/ +dAI2OhieJ6hNhM0LPTScX+5gXdh+ppYuEWzdL+MLDe9ghXx7d5MvEEGBTevq +W7V4zGF4J1DamggVDviTn2RvY1a3T/z30oYIi7xXxLp/xGLGEOJrYEuEONHt +cc2nsZjm078e/vZEoPWPYGMkxmJicdt27S5ESPGlzwzTiMFm1f/oW/xHBM6/ +Jjc2w25hds9XhW4nEuFF+O1jPmaRmHvkxV3dZDKfUBHIFI3E/C/WTLCkkvW8 +rq4/t3wDi93wv5t0nwjrTbMEy/gb2FPV7Z30HHJ/FzNMJ3sisO32/fHiciKY +slgkulWFYVSptlXOFUTQKmmJF74UhrE4tCfIVBLBjt0hs4cmDBOgu6n5tIoI +ys6N/95ZXsc0demqahuI4Ogo82mEMxRLGmZJ6OohQj6VWgx7aRCWVeDhHP2a +CAZjbW2ll4OwAr+3Gjp9RNirOXqUnScIe8Gd9LfvLRFaae/3EWIDsSnLg84j +Y+R+qm4yFPoGYJKzvBozs0RI37Bwuebhj+FqggUKvxKBNcvixGtFf0zt1oft +qwtEyPrM3PJ21Q/Tl8x5trhEhFn5U0VjwX6Yj5uQwMoKEej9MssepfhioSdv +bFetEaH8z5skSUtf7BbrzKjfBnm+cMQpPRFfLKOyIH5riwh899LPXq3xwfIj +aJwa/xJhJEHP3jzMBys3vHo6dJesz5KxfkbHB6sRIR3F9ojAuBReScXlg7Ws +SWzv7xOBJfBG7Ytpb+x/AHpftw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.1771383970775888}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.1771383970775888}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8l98bxu09S4Sy9/wMEdVzbiFCieyQkE3m1wxJiGSWFcrKSMrIyuaj +SPaolEJEy46I3+f3z/O83q/zOue5r/tc53qOsN01o6tUFBQUp8mP/79zwuzo +8A7ZWNx+q1z/Mzusa0RI30woCB3ooQsUFldH+6SWm0JCt5G7e0vFppghymlL +EKQVykQ+AUGWb8WuIPdT/h5/BEvR28MFQZ5i3mhkxzltWbAB1beGNrOL3kD0 +H2Ykfwq+RnsXP6sWH01Gj3rzvL8LvkNvwegyL8Mj9LTy9gd3hSV0C0Vx1Vk9 +R05oKPOHzxqqM/EhjHyvRxT5m40f4teQ4Cd+7nr6BpRBc2Sqt3AN7UkNcd0V +bUCvXjsKlI6voT7ndUnWSw1Iyng3/6raOjob4stg+roBfXOWfPKJcgONvNfb +oy1oRK4p11sGkzbR9ywt9VDdl8jzq/RszdNtFO6XaDzj2Io+27xjaH+9jU41 +RZ8timhFFydjFfrntlHB4O9vRlmt6HjfQtBXvr+IbXX7t0d/K6J+XsTBHfMX +nf9CGLrA24YyQoWxgMs7aHt3mTI4tA21H+TNVOX4h+SNLt/5T60dKSW8atGS +/YcWpH+obWq1o2K6wDnDM/8QE+FOkKthO7qzPa7oGvoPmfU/TMY5tyPT6TRS +1rd/6IswXxbhXjtaKuNY32nbQ22BT3IYf7YjJuEoyenjFJA0HZE2k9qBXp1M +VgzTogAd+ofDKKcDRZvnqhw1ooDtO6SslOIORJVUr33JjQJK5368PNzQgf7u +/XCayKGAJTnujeKPHej7lEnJABUlXOeJq38l1oneZEhKt72hhKMLH0rYyztR +XI0S/vI7StAWdV09XN2JdAbVVfe+UgI+ovQ/nqZO1EVvdfbkPiUoNE5Jrvd2 +opf/JbnU46ng9vEHO7JLnajCeLv02X0qSMdF7KZKdKG7HH0yj2ypIWC/fO9E +ehdqUDlae96TGpapTVwCc7vQnM01tBtCDYav1v49LupCJyoOGpulU4Oz2fij +z9Vd6NtZq+usb6mh6ZBjW91AF9K4+XMg6AQNUOwKfd2l6UaeZchS8iwNjOhz +lboxd6OsoeS5UVMaCORYTezn7EbLgsrbij40oBDtSXIV6Ea5L8NE5ktoQNVK +4x2TSjfa2mD3N+KmhfuKv8a/XO1Gokft9vdFaSGsUngu0q0bndesuV2BpwW7 +VCY+Hu9uVJRinstwjhaO/ZCi5g3tRkaKj3pabtLCyK/Y2cjkblThTOCTXaGF +I/GM/b8butFkYlTh5B4tpJoHfeps6UY0deMK0Sx0ILf5XSa+sxtZ0oZofJGk +A7NM3pC1N92IIb/TPd2GDn7K/pWQne5Gdh+MW6nf0EHHK0z7OCUJMWV/8fB+ +Rwfz743FFWhJqMrS88j0PB0Y+XwY4mEkIer3MUGNlPRw5sJqLomDhAonG4ne +KvTA2l6ukyJIQvoZ2jOfNOnh7QebdxKiJLRuNpqkb0QPjjZMepUSJKQ18fOn +pAc9hPlZfMiWJ6H5MaGST/n0kCyduDWrRkJ371WY6j+jh0vI5x0PRkLKJmq0 +jc30IHr4+jOkTkIxoxft7k3SQ+oxZ303bRKSGok+os/GALHrzgmEiyTkOvgj +qSGIAbBHGnM3nUnoQFIQkoxhgLzF6eQtVxJqNKD7lZbGAKo5TU5XPEiIeUBQ +z6uSAQ4QuLPYfUjoSb8RreRXBqAsaA39FExCxgnT1WmrDPDietDAeigJ7eq7 +21FRMIJyvJrTfhgJnXtzq/UjHyNc2/7ptxJJQr9664PSLjDCEP+q39k4Erof +pyVFZcMI2uzBl6jukBCmOzx+zY0RJK+rFFcmkFDi6+9EvWhGoIp4ELiQRELH +bwfO1KcyQolgBINPCgl91qFNlnjECM9PcrKupJIQ7pXAL8qX5HGM99ab+yQ0 +GVP+4NprRtjOOUQpnUFCEdrH9T6OM8KcVS9VcCYJDZIMS+pXGOF0Ul/JdjYJ +eXdH2V2TZILpeqmdaw9JSGDuDN0mkQkOe1kRbR+RUB8VY1koMIEw43DCmXwS +EoeEldsWTCCWGF+/UUBCwzYG9zgcmUDmjENSSyEJhV/nVE33YQLbqyWZ14tI +6F3jvYjCeCaoPDFn8KmYhKLfmYnJZjBB0GAhTcRjEiJu8b56XsgE+8F2f3lK +yPq4p9yOP2eCH/Wcx4rJnHAsl721mQleOlXUy5SSkJqxbbVWLxM0NCvfLiLz +go+I2ZtxJtg6XVvGXUZCaclzf41mmeBCr7JwGJnVnxXnvvvNBMauA8sfyPzr +rfNp210mOP5f5lFcOQll/5SZn2dghu7/asuDyazD8vO2xyFmUBLVzWsi84ZM +pfy6MDMctYzaXSVz/lnvoWAFZtDiS+8RekJCBs5Ef8oTzBAc0kSjRebd6I3D +sdrM4PcYV3+ZzKVFdS/ZjJkhYfjEvBeZTbuCbO/ZMkOeklRqIJmpZ0/QHPFg +hg5K7c7/yPyMcu9xfhAzcNj/DnYjs7VQm550NDM4XwtrMSUzE4r8XZnCDAJi +ZinHyVxnrZmqnMcMjdYzfznI7BBKp9Jczgwlg3d3p8n1cma/eq9RzwxfKIey +i8jc0hAX1tvFDPlI9OMVMrtN6osYDjEDdRZtNxeZD/9hI018ZIaCD//MWsj9 +6j405GKzxAxnItOzbMjso5TK+nWTGdzq7JM3yP0XvGjy3I2aBb7rbMNNMgcl +vdsKPMICAe1/piLJ+ydRmf1gX4oFKFTKhtfJ+z3Sbw3Rx1hgk7sh1ZrM8swz +MannWcD0Y1PcQbI/3ksXyvJdYoExXfFeW7J/YnQcBx46scCi8PhCIdlfX24t +cT+NYAHBEKUhTrL/7hY+aVRKYIHCO5HFamR/nuj0tGnKZAErHgsPS7J/71Gs +Fb2qYoEDfXyzYXkkdFqw9qxBKwsMZw5m38wlod+nAn6O9bEAv0ChRXgOifyf +31GanWMBXXOfrUvk87GZ2TzpssIC6+O2syezSKigPjx0+R8LXEowXuAin6d/ +G9Rd/7hZga/E9XwZ+fw992K5ePgsK2yUg6RbMgm9yToYVGHKCsV6EyPzieR8 +6+LLO+3ACr13xVXN75IQH6/0d/dwVsizvqRzJJ6Eotq1brbXssLAwwaiTBQJ +5X7XLzXtZIUEfXdbY3Ke1B8yHvg+yAr3XOxD/CJI6KeLHT/3D1Zo/WCdfp+c +R6YHwqtdRdgg3CxN0t6PhLxORr/bV2SDScwg+hQ5z+IcE/bTTrFBxy9XJjYv +EmptzNZrNWeD5xZduclu5Py0r589mMgG1FzqzaJ2JPS3euVg8w4bFFf/ZA0+ +R0Jcn7ZUjRjZoTXchbtRl4QUGChsF7jZoQ8/8GKZnL/2VmxPOAnsQCf4Ykr9 +NFk/jaymozM7XLyUE++nTNZj4uDHPsYOsumqO8JHSehRiNsSzowDDq+VY8Oz +3QjXxrgVY80BnYx3F4997kZtNCW00/Yc4KtUdSxlqht9TpgTSvDigIPVLn1K +Y91I4KG12eJtDgjy63soQiL/j7sMuh695ACb+Hs5xcXdKIVVKfeACCfYWMpW +XrfrRiJGw+UuUpzwKdpQkMqmGz2/79XQpsAJ8l0ZVBEW3WhQsGLU8wQnsMZd +OOV8oRuxESSY+4w5oSVVHn0/1Y3iTA8H3ozhBHFdevN2nm4UmbdruP6DEzZH +a9U/krrQBVy9t+waJ8SJvS2pa+9CAu2+yXbbnJDimp1252UXapxZGhykPQDy +rEJcElVdaFX8nUGFwAE4IH3T6XBOF7J7UnvO8cIBuJ5ASU/h04XUGzzPTlYf +AJ2opf8YDnchipHP8DL4IDgT9Z85m3YiCT/HQGOZQ0C8p2b9M6IdzW2kmzI3 +c8Nd66VZ/rOtSPer6/UU78NAX9ozvyzahM7PJckKCPDB421tEXexOrTUaRfx +qoIfUhVrRk5mVyMFzvGjGpePAkVaWZbMoWfkvNm4MrUmAA177LViumVI+6fl +HxETIdipdbvn3VaIcrlujoSbC8Gu7WKE15NCtH6ivHLqkhDE/Lz1KTSjED2M +23G6bycEZWotS81eheiv5INJRi8haKwXFfwiXIie2H1sWI4Tgv2zuyll0QWI +Y/JyaEubEKwta+idtMxHkx0OlJZywvD3l7D4gNRDtKz+nu+6ojCUO2tzHud9 +iOjbDZQeEoThUnC48BPGh0i5Vc1p/rgwZNkIaLqN5aG0Jo5+Hy1huC8Skp1t +mYcMal5mxNsIgxi/OZ+QSy4iFXHhmpOEoXl4Zuv2/QeoNrbLRmhDGGKt3vif +w2eiEt2+wzFbwhBNLWtvcCgTZbEMD//cEYbe8XdWLtsZKCJp+kwTlQisXHTQ +/dqeQb7v/FUw5RCBB3l1n3cuZqCZx7j9eFkR4DMQ9coKTUdsPQ/y/lwRgf/y +uvfPT99DjrT+n9++FQE/IzZHlm8piE/w9cTOkAiYjzXeJ4ykoLfHjw5IjZHX +K6o45taSgpTdu5sjP4jAc1HB+wfvpSC6kUPZyt/I43MPSEgjBRU9fGGSSykK +cN2O4V9+Mpo7sdXroSQKKv+dL+y8loQyTPQ7slREYfzJvyVR6ySkf+1hQ4+a +KHC1C1vc001CNfk6JcLqojBM4RtZLp6Eohgzb42dEwXVWmxAuyERiU2owikn +UWhvfjwRkH0X2fuE1LJkicLywAe7iMA7SJnwqVY6RxRYUUk/g/kdxLQKL848 +FAUHnZfVlSp30DNvurqIYlH4s2ZRYP4nHu16JdevV4nCidiP37kC49H9a4+b +pvpE4TPh+754eBx67T7S/uSfKPSerbMVLohFD+SUO15TiMFwor7BxehY5PUj +o2OeWgxUp87rPHKJRdzuNp1CTGLwJX+PORkXi+zcFrvSuMVA74BtU3NrDNp1 +2e8JVRQDi0j3t2qz0UjRSfat/hUxYHY5fugUdgt9chG8VuEgBkORiY4FIrfQ +HfeDHGzOYsBnsTsjSX8LLXrvGA54ikH+QaPduMEoVBDaN2YYKgYaVL9Y6hyi +EE+K20fTdDHoepWZnZxyE+2/LP9h2y8GUbKWiaXUkehpa15C+6AYEL8d+1r8 +/Qay6khVEBkVg8PNLh6tIzdQQ0+I1+x7MeiJ7KtTL7yBfIf11q9+EwNBvfWy +2DM30MLC9x1XanF4/DX8A3NSBBo4IMfsryoOuxfykxPdwxDm4bGYfVIcXCyZ +bTu1wtDTnqc9HeRbm0LM9gNhwTB0NxQfxXFGHMKpmoethq8j/Xnlf+VG4vBb +r0yjV+066m1Q/z3jJg5fzRaO2B0MRd22ZiMXcsXhjoc3bdJMEFJqynge8Egc +ws50qfW3BaHCQ+8TcwvFoZVnNhyXF4Sieq30f5SJg5YRTZWzVRA6rWTXHVMn +DirpB2kfTAaiNnqPupZBcWhi5eRdmQhATU8js+WoJWCvoE/cc8Uf0emb8KXT +SYBAFjbSOOSPDBclMymZJAB/i+aKYpU/WhDtvz/OIQFFhuahib7+6GAmT0qE +gAQ8Pq1rILnlh9xuPokdVZWADMaM/BQGP8RvPu4f6iUBoRvzvNpaPshxo2R9 +3lcCWE9q5GjI+KDnKSG+hgEScOvMT0l7dh+k3S/kLREmAePx3S1M772R72k3 +98F4CVCk81784+WN+uQo7MUeS0BuhymSKfJCIZQyF958lIC1lg7jRT1PNK/J +PCnxRQJ4NC0mfgp4oguxPy7fmJOAR0TZC/KrHkiMvfKa8ncJGA26IGaV6YHe +HFFKfLglAbXXZi/7LLkjgePYW7+DksBUysGqm+6GOjyN9I+elYQu7jqPP7wu +SK6KOBqgLwljc4L4mTVndH+Dy2rYQBISLmpoUbx1Rm6hE24xppLAk5sVMBbp +jLjirOJX7CWBTYT3xcdfTsixyLG3O0wSWizvdRAHHRHTVLCOZ40kGEyUMnq/ +cEDKAaWsiXWSIPW3yzAiwwFdOTA5XNkoCcofELwIdkD1OsesV9okoZdq1fEe +ckCOtb+9/folgdUBr36kzx6133XIDp6XBPUZqV7JRTsUqH7+V/RhKSiWNNHg +gyuocCq0+jG/FBjlxU88lbiCBgLKA18JSEE8XzrDVdYrSOIpAzWTuBSIFk6W +HPtgi0b4OnkS8FJg9W6nxT7QFimsq6in6krBoX8jskXel9HXYuG0vFApkPp9 +4/bWIyv0I+rLNnWEFIhkGJhe8rVCq3aPLjvflIK8vW/xVFpWiEJQWBYfJwUd +T7zGjyxeQnzpQh0d6VLQeNwxLEDpEroQI7j8tUoKnhXufQ6esEAvnY7qyy1K +gZK2UGqQvhnq1Pr4POmHFLwYYqroETdDvaI5PBu/pcDihNq2wb4pmpg+Mtu8 +KQUPlM/8Ya02RatmR4INaKThQkKbhspRUySlw1/iIygNfInXVv7tGKM0KV6a +BhNpUK52NbL7YoSsbCQez5pLw3Fj7/KYTiMklkbUZbOSBrnBnZWJIiNUs38u +yd5OGu6td3luuRqh0fHII2zXpOHjn2gt4h9DdPDWDyX7WGkwijzMacdjiFK+ +tF5lbZKG5uwnWNDSeWTJ089wvEUaNnP57WrrzyORc+/L7dqlYTowvkAt5jyq +ql9fqeuRBgudVBpB8fNoOFE6zG5UGta/V69qOpxDnFjq/bqf0nCsuM2p5rce +Sspy7LkiJAMih6ydKo6fRQH/RfqGispA0kdDVzmOs8jGKFcwXUIGBLxkKBcW +dJAc03jAGzkZeFz0poo1Qwe9DtKSUlGVARqFiKrDO9qIykLsNouRDMicvpc3 +03cG+fPM6NbdlAHjyAIRjfuayGrt3+ZQNHn9d0ETBX6aSHOAt+DHbRkY9VSi +VLmoiQ7EGO4IJ5F5ILpwjUMTPd1sK7/zQAZedXwYabmrgb6N5bHY1cqApcse +r33qaWSZZv2WZUEGvAVGO8VaAR2pZuJ3W5KB8sH6yr8PAU0P1Tm9/ikD/T7z +lVQ3ATmwH6CMXpeBaRmtjsfagDzjSMR9Slm4XItwocUIRUYoZq4ckYVnPcps +9fOnUKk7pcO4kSx0ZjQ/WShTQ+7xT58pmcpC/H7hJ5pgNaRQdulfioUsJDT/ ++O53Vg1VLdTeN7CVhW7j8zl6i6ropZ3r61cesjDfxfCoW04VDZqPKDTFysJQ +nFhIRIcK2tIs2s5rkYV+M1+JMfFjKLQp72ZXuyyIUEaa01EeQxSELNbFLlng +suhf8ZlSQvSCicKEPlkQOii9t5uqhLi3A892TchC0LnWA320SohYoZ/5bVkW +nobVqNGuE5DnofXjeFE5qNoO3KvbwqHV+F8dJhJy0BTrklL7Hof8qRb1g6Xl +YKWpMXjuJQ6F/v5o26koBynnaYTHbuBQ/OueWJOTcrA/K9e9zYpDJdezJ4NM +5CAp09RG1EYBzX49HdgRIweFHUXPCeKy6HTe23yZeDmotxuwt16WQQ/NLftT +7soBvTDz94UmGWTT5y1if4/Mk5u7vMYy6P2zh2+oC+Rgtixw/3OsNBoO2RPS +aiF//1r4ti+1FOrgbHzdsy4Hh5omrj4+Lo6E+7TWFbfk4FIFx81SNnEUETUk +kLEjB3Iz/erbc2II+/PN15lKHnoql9PCU8RQ4xSPACOHPOR5qpvwroiiqsf+ +Prqy8kCtUf2R86UIyj+F5++/Ig+tNG84Om8JoY7zTDd3HORhzJN5osFRCM1c +nl2SdpaH/545HVvQFkKikfcaoz3lQTA333yOSQgVkrYtIEQewrj3LjRLCKIi +g46M6jR5sH4myslpdRSVXLnIndUjD2UboWXz7HzolY9c2KteedDsVpo59okX +fbtJO7/ZLw/mf1WoPj3hRVLFdbUXR+WhT1utUlmPF5Uu8ZuwfiHXz/np3Xb8 +YVTmO5ca8VceSjhO8usd5UEVt/w5neQVAGMZDbkSwoV+nLSOvIVTgLfjOYPR +xlxIbl1zrYCoAIMsYb4r8lyozI5r7LOqAuiwG7xL+3IQlaDqDMszClDsfqWT +Xv8gKtxeFjx/WQGmbm3KnZI/gLI83BWOJSvAe123VgoBDvRezDjvYpoCmGMh +Rrv/2BHv1AkOn3QFaJzpS3RqY0cZusyrT3MU4OXMCaM7Z9jRPcmyWqkyBbjB +53jjrxkbSvqycPJIpwIUnqSKe32XBcWY2OtRbyiA/AO07KrNiPINpqyubinA +4aq6it+cjOjlWRPPnh0FkMntJU5PMaDVU9rJ8VSKoBASEL7jy4CsJGQnDnIo +QoxCV/HBx/SI8GfVTkxWESQMm6j4hejQuRU3v2gFRWgaIMyvLNMi5+9zt77h +FcF4v6xFsoMW5UyPlzw5rgj5d1xvVVylRQyvGn8pnVGE4oFJObbnNOhTRmSw +1hVFGBA4PJpgTo22U3biHzsoQpqjzVcqRWrEleCXw+isCG/pS8+/oaVGZ284 +tvV7KsJvnbpSixoqVOOiS2caqgh+tDHq5w5RoTi1AymO6YogEpzszzlPgY5N +PSqN6VcEVQKvl2DYP4xDwXmrclARokWCE4VO/8N+hCtoT44ogofAotY9un9Y +oWjTnNR7Rci05VceT9rFuNxGBXvnFYF7pDE/r2wH+xtKrUdHgYOfc077D1e3 +sW9Fjj5ZlDiIex+YHdq8jY2/fZ2pQI0D8eAa29bYbaxKKOmbKR0OfN+wBQYI +bWOuXUeiH7PgYMThe0aO8Rb2jlm5XYcXBxo3uO6KDmxiJKXMb1N8OEhkkDx7 +5OEmVmO9y+59BAcF0n57Xt6bWFJlh02mIA6+VJNqZA9tYjoXDXYXxXHQxnaU +b9R2A6vPclaJJ+Agmn/oqR3DOpYhnV3Rr4eD9zlbJafSVrD1tTNFN8/hgPHM +RKWv+wpm0LL6QNUABzavE7X2NVcwuou6d4qMcNAj8NuF688y5h+67XrdAgfh +x76siV5exowGzKTknXAQ+fwhx93QX9jTTGqhWWcc5Ehco2dX+YUxOlTyZLri +4O4FmhyJ1Z9Y2xYdPa0nDs4fZ5jkcv2JKYq8+DrlhwMOS8z/je0PjMWfq+BO +JA78G7JHi52XMGfUlnU6CgdVHRxX6OSWsE5G95StWzionKC8tPR7EQvO7bzh +cJus/+kTkxNBi9hij4/tySQcxIjbs8wlf8NIfENHf+TgoCyTStX9/TwW3paQ +odeAA8HmqpDM9lls6WNb2nYjDgpFfll7p81ipjtrSY9f4oD3UUZmudMsJqds +eZu6DQdrrM3rGuyz2GS5RHATCQePCyJ9f9nNYIT01kuyozhwuOarcoP/C5ZT +s2r2bgwHf6s46UTXP2MMw+LGMRM4mC6jUeHv/4xNs9zRn32Pg+af/WvMEZ+x +O5Hmp7K/4OCU5SfBupFpbN5jRYD5Nw4ubrzoUMv8iBnGi/E3LOPg826PSYnx +R+xliRmP0yoOAk3xYRUcH7HU2Wb2zg0cEOb2s4PipjCwiKMI2cXBEbGQn5tR +H7AsTdGZJUY8RE6cqgtNe4ed4zcp6hXDQ8RtaeaZQ+NYxpxC2yUJPJSaJXFF +fB3D5ioYPvyQxEO70/CVm7VjWCi85GCXxYPUAfqiF6Zj2JOroqEX8Xg4HJko +25gzijE9WzGaOoWHgcMVg3dOjWCmQX0eHggPDBMuW6IHR7D800Wxe4CH4i2O +61yLw5jqmHmLkCYeXJS1RvbuDWPOf1ulr+ri4QKVV8DXtSGsR/MuxS9Tcj1e +e8sOrYPYATZn/nBzPKhJBX6DrEHMZkJdmcMSD/5XqEvd/AexTZcNN4I1Hk44 +n2YulxvEJBKtJv6zx0P3o0PhEacGsKh3Mk/3r+Eh9FsBVbhwP6bu2XOJ8zYe +uCRoY7UvvMb+Ti6e6YrDg6h3ruTzA6+xGg0WQsAdsl6qZ1plY68wCV5Dho+J +ePB1lqA/Y/0KY+l6X1NyHw/Cyuf8KX17sEneX6xQiIenypdXwuq6sZQoju3V +Ijy411R9vhDZjen9JswVPcaDsvR6Rt65bqylK6CRuRwPCtLczJVfu7DCa5RO +E8/xcK7OlzaQvwvz6uZq82zFQ+tC8tHeBx2YDE6lXLgdD6N+g31Lnh3YbJbF +/dEO8vyMy9MB6h2YqVeuuxoJD7WnVp1GFtqxk/xSvHT9eAj7drHXX7UdY/A+ +4ZPzHg9TJiOaqtOtWN4RO7E3G3hQCWYc2jzdhKkRZRXs/uChC9QrXKibsNGz +6ypbW3iw/DXS5NrViDEEROuJ7eKhwfRF9QGdRsxrqMwnlIoAPgaJHu9MGjCI +XmuTYyfAfxuDhZpxddj7By97OzgIoMgj4MF5sQ7zq741an6AADeWRG5aHqnD +Sj7zfIs6RICoPQ4P62cvMM4TJ9k/8hPgO4klgvFTLTbzO8o6QYoAm+aphfwG +NVgo3XknURkC9Gf2RyoJ1mDcR3m8G2QJUG7JuNzwuxrT1S2N+qpAABT1/Q1d +SjVWVdhffuoYAYS1OQ0SP1RhNy24//5UJ4BtxKhr+o3nmFjn4/vnLxFAKwCf +Hyb5FHsrt1U4ZUUAz6CC96ufK7DA+zrVrjYEGMqueUObXYH1uSwORF8hgIhB +zG0qzgrMh0OWsdWJAGx7sc8INE+wVuunIYp+BPjKz1x/ga4Mc+7Zu93sT4AG +FyUc9+tS7ADeIEMvgACuLYunHe+UYo40yzVOwQRgetwR+4irFGMpx//KiyBA +Y5iskYNsCWa5VWPLkUCAaaez7kLexRiNHe213LsEiJG8OE9/shh72mdyXS6J +XJ99ub4zfTFGmbeZqZNKgOUXvO2JeUVYidbxkYhMAuTyFa5ZjRViGylNWitF +BJAU083nMi3AkuQ7ZIZbyHoT52kiix5iJccvMUa2ESDCJsDMMPgh1qqxvoDv +IIDFs9pHdwweYr8sJIqSuwkQsIGXit7Mw/Si4wQN3xBAg2XgimRlLkY3bcQ1 ++I4A3C2b6L3WA+zo0vfV8A8ECLp6hpp9NxtT2ogaUvxIgKzd0Wv/qrIxe+a6 +u4mfCXBn9pE2hWg21qbCz2iwQAAlugfzHsxZWEjS7L/+dQL4lYbr+++mYynZ +oVPXNwlgGTR9OKQ5HSsrPtQkv0X2W07wJaHwdGzypXZgwg4BaIcPH9egSceU +F8tX9amI8IlBtLPt0H1sWd1voY+dCAyX/WYsjNMwxzWaodcyRHCzSpYoUE7G +bMo031rJEcHV7WzfGnMyZnolqu+3PBGe/Y7LKvuShJ0ZoCYdwhOBbcKXTftu +EiZRTtV0RYUIhqfFpTUnE7GvdhRF2xpEeNMTd1fNNwGb4iVfbbSIcPZ0qWO/ +dAI2OhieJ6hNhM0LPTScX+5gXdh+ppYuEWzdL+MLDe9ghXx7d5MvEEGBTevq +W7V4zGF4J1DamggVDviTn2RvY1a3T/z30oYIi7xXxLp/xGLGEOJrYEuEONHt +cc2nsZjm078e/vZEoPWPYGMkxmJicdt27S5ESPGlzwzTiMFm1f/oW/xHBM6/ +Jjc2w25hds9XhW4nEuFF+O1jPmaRmHvkxV3dZDKfUBHIFI3E/C/WTLCkkvW8 +rq4/t3wDi93wv5t0nwjrTbMEy/gb2FPV7Z30HHJ/FzNMJ3sisO32/fHiciKY +slgkulWFYVSptlXOFUTQKmmJF74UhrE4tCfIVBLBjt0hs4cmDBOgu6n5tIoI +ys6N/95ZXsc0demqahuI4Ogo82mEMxRLGmZJ6OohQj6VWgx7aRCWVeDhHP2a +CAZjbW2ll4OwAr+3Gjp9RNirOXqUnScIe8Gd9LfvLRFaae/3EWIDsSnLg84j +Y+R+qm4yFPoGYJKzvBozs0RI37Bwuebhj+FqggUKvxKBNcvixGtFf0zt1oft +qwtEyPrM3PJ21Q/Tl8x5trhEhFn5U0VjwX6Yj5uQwMoKEej9MssepfhioSdv +bFetEaH8z5skSUtf7BbrzKjfBnm+cMQpPRFfLKOyIH5riwh899LPXq3xwfIj +aJwa/xJhJEHP3jzMBys3vHo6dJesz5KxfkbHB6sRIR3F9ojAuBReScXlg7Ws +SWzv7xOBJfBG7Ytpb+x/AHpftw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20}, {0., 0.1771383970775888}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, + 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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:eJxTTMoPSmViYGAQBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX29gDzl1vS + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 20.}, {0, 0.120683}}, + "Frame" -> {{False, 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, 20}, {0., 0.1771383970775888}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}, + 3.9921095013102207`*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"a0df394f-0e0a-cb4a-95d8-e33451f2dd99"] +}, 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[143]:=",ExpressionUUID->"0a506e45-082d-6641-9693-c99384fc0ac2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.79939548539759`*^-218\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 143, 598, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921095014032803`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"3babb852-1099-c347-9b4a-763f5878f88f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8368432860451523`*^-223\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 143, 599, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921095014242897`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"23a991cf-afc8-f149-a2fe-9c9af7c88ae3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.962195925704206`*^-229\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 143, 600, 24488356257861973661, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921095014452934`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"8b2d21d2-5a70-4b40-b2f6-521fa57020f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 143, 601, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921095014652863`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"7d8ff5f9-2c93-2249-a458-740cc6b77fce"], + +Cell[BoxData["25.74042668032497`"], "Output", + CellChangeTimes->{3.992109577787632*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"a23212bd-5f18-5e46-9291-5b25bbccfd84"] +}, 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.9918473569283657`*^9, 3.991847361118864*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"1d3ec6f9-6ce8-8a4d-95c2-733ef0de97b0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.149043804826752`*^-232\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 144, 602, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921095779010353`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"8395c74e-b73c-3e41-8b4c-675418cf89a1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.73819346548464`*^-239\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 144, 603, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992109577928171*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"fb57f23d-225d-3742-8600-d74b7c603eb1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5422302227993252`*^-245\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 144, 604, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992109577945284*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"b1ce68ac-2602-8b49-b077-b53d4247fe22"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 144, 605, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992109577966276*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"b1df0118-f8c4-3848-839c-cb468795b5cc"], + +Cell[BoxData["0.08020466178123517`"], "Output", + CellChangeTimes->{3.9921095877564564`*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"f495d193-7724-c44c-b44a-a00ab6802df9"] +}, 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.991847365260393*^9, 3.991847368101671*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"b5bf5915-d0df-a045-96bd-1dffa35c1421"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.149043804826752`*^-232\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 145, 606, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921095878481464`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"84074ef1-a052-8d43-991d-09f412b338fc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.73819346548464`*^-239\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 145, 607, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921095878761387`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"e72afd9f-49d9-ea43-b111-5a10a9811297"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5422302227993252`*^-245\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 145, 608, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921095879052467`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"0f8960e3-6c6a-8546-b199-5d410c147280"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 145, 609, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99210958793524*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"bd0e9c97-0964-1746-a859-4da41cb9adde"], + +Cell[BoxData["5.032030479321021`"], "Output", + CellChangeTimes->{3.992109597406786*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"172dd9b2-3b94-494f-a892-21e620033286"] +}, 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.99184737148876*^9, 3.9918473756828785`*^9}}, + CellLabel-> + "In[146]:=",ExpressionUUID->"0f4fb648-c81c-bf44-8487-747d613813fd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.149043804826752`*^-232\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 146, 610, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992109597492836*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"bb1957d6-d6a7-a944-b55e-a7d31d7df8a5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.73819346548464`*^-239\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 146, 611, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921095975059433`*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"f98e0cdf-e6be-0245-ba7e-3c529dd78a64"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5422302227993252`*^-245\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 146, 612, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99210959753294*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"b5f2ce0b-1a50-b844-9cf1-ec9d2a946b7d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 146, 613, 24488356257861973661, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9921095975628414`*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"a20fb423-d8d6-8147-9966-da46792edd3e"], + +Cell[BoxData["172.79297193281928`"], "Output", + CellChangeTimes->{3.9921096043889904`*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"3ac0f14d-0d65-6b40-abdc-509135677bde"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918473798697987`*^9, 3.991847383988016*^9}}, + CellLabel-> + "In[147]:=",ExpressionUUID->"2d256a7e-c4c8-f746-8004-9b6b43692a68"], + +Cell[BoxData["0.0027199751927751603`"], "Output", + CellChangeTimes->{3.992109604464899*^9}, + CellLabel-> + "Out[147]=",ExpressionUUID->"1cc146dc-8972-ec45-a4ee-37a680880d8a"] +}, 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->"0a22498a-17e0-084c-99f4-08fa56dfe4d0" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 402, 7, 22, "Input",ExpressionUUID->"8a2f1f0b-8afa-164f-be4c-3eb352a9b787"], +Cell[981, 31, 200, 3, 25, "Output",ExpressionUUID->"b8ee6b0b-17a2-f54e-9bc0-a250aeffe01e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1218, 39, 348, 5, 22, "Input",ExpressionUUID->"e3b4d782-22ad-644f-b4ad-c20cd1052de1"], +Cell[1569, 46, 429, 6, 25, "Output",ExpressionUUID->"64ac36ea-5cdb-8049-a345-8676e0a8f0ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2035, 57, 224, 4, 22, "Input",ExpressionUUID->"738d1471-6a0a-4f4e-b5a7-3ec1c998e28c"], +Cell[2262, 63, 419, 6, 25, "Output",ExpressionUUID->"efe5a83f-f1c4-4d49-9907-b1e08e40e221"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2718, 74, 175, 3, 22, "Input",ExpressionUUID->"6cbc7ec2-2efb-b14c-a4ee-ce7930f692aa"], +Cell[2896, 79, 399, 6, 25, "Output",ExpressionUUID->"2cbe006d-ba08-5f41-bbc4-862027de5c00"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3332, 90, 257, 7, 34, "Input",ExpressionUUID->"8ac8da3e-e91b-974a-b764-a1ec11f5ba7f"], +Cell[3592, 99, 418, 6, 25, "Output",ExpressionUUID->"39b97283-3b3e-8246-bf75-eb809c9e7250"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4047, 110, 131, 2, 22, "Input",ExpressionUUID->"52bc0922-2f51-b046-81ef-dcd0b9f3400f"], +Cell[4181, 114, 403, 6, 25, "Output",ExpressionUUID->"a9b9a1df-768d-bc48-8de0-a3f1fa2abf5a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4621, 125, 276, 6, 22, "Input",ExpressionUUID->"8ebd13d5-dbd4-4344-872e-069d667ed804"], +Cell[4900, 133, 417, 6, 25, "Output",ExpressionUUID->"109ece75-d216-2242-86ca-cda709a522ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5354, 144, 257, 7, 22, "Input",ExpressionUUID->"1a8f27df-929b-1f40-9040-a01ae130b44c"], +Cell[5614, 153, 417, 6, 25, "Output",ExpressionUUID->"1a58f92a-c7e3-0d46-a7e0-b08c4dbc991b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6068, 164, 266, 5, 22, "Input",ExpressionUUID->"00c07ca2-7b49-8e4a-b91b-74e30283fdb3"], +Cell[6337, 171, 434, 6, 25, "Output",ExpressionUUID->"be1600c0-a83a-8843-90af-a30ed0903a04"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6808, 182, 265, 5, 22, "Input",ExpressionUUID->"4a295acf-90bf-d54b-bc45-5f99546e5852"], +Cell[7076, 189, 435, 6, 25, "Output",ExpressionUUID->"925d9c00-17d0-1b4b-9c0e-5544d5595ca4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7548, 200, 129, 2, 22, "Input",ExpressionUUID->"9a7213dd-de15-ce4a-9139-73c14351235e"], +Cell[7680, 204, 396, 6, 25, "Output",ExpressionUUID->"fed78bb9-b363-1949-93be-732a1eb74d8c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8113, 215, 129, 2, 22, "Input",ExpressionUUID->"e866d22e-3ba3-504e-a3a5-18836e11ba87"], +Cell[8245, 219, 394, 6, 25, "Output",ExpressionUUID->"fd299361-0514-484b-9f65-11ca62674bf6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8676, 230, 557, 19, 63, "Input",ExpressionUUID->"34f25e32-4fb5-0a4e-a6b9-6a0c6530baea"], +Cell[9236, 251, 396, 6, 25, "Output",ExpressionUUID->"b7a60f3c-b405-ed41-8253-627786445100"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9669, 262, 557, 19, 63, "Input",ExpressionUUID->"2a822672-28e0-b147-8446-35f8b31b7054"], +Cell[10229, 283, 389, 6, 25, "Output",ExpressionUUID->"19fa5df6-7344-9941-a3ed-875a41dd8272"] +}, Open ]], +Cell[CellGroupData[{ +Cell[10655, 294, 1492, 48, 64, "Input",ExpressionUUID->"2a42bbc4-8f52-1849-9062-33373609e9ce"], +Cell[12150, 344, 398, 6, 25, "Output",ExpressionUUID->"1cad65fc-1ecd-f640-8688-cd7799df585e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[12585, 355, 1331, 44, 64, "Input",ExpressionUUID->"96de10d8-ae10-f54f-8c9b-86e202e800df"], +Cell[13919, 401, 407, 7, 25, "Output",ExpressionUUID->"809434ef-170e-874d-82dc-a07591655749"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14363, 413, 1331, 44, 64, "Input",ExpressionUUID->"c3045ecd-5faa-c242-b7f8-8cac99288502"], +Cell[15697, 459, 412, 7, 25, "Output",ExpressionUUID->"0709fa90-affa-104a-a226-97820d18c141"] +}, Open ]], +Cell[CellGroupData[{ +Cell[16146, 471, 1492, 48, 64, "Input",ExpressionUUID->"ee834bbf-59ef-6741-8395-aa2e26eb5327"], +Cell[17641, 521, 388, 6, 25, "Output",ExpressionUUID->"fd752e86-0fd8-d94c-986c-3b345559934c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18066, 532, 131, 2, 22, "Input",ExpressionUUID->"5d8334e3-a935-214c-848d-984006460a2b"], +Cell[18200, 536, 373, 6, 25, "Output",ExpressionUUID->"20a3d54d-274c-8849-b4a6-4df090278a9c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18610, 547, 177, 3, 22, "Input",ExpressionUUID->"43927710-4b46-9d43-9873-1b123d23cd06"], +Cell[18790, 552, 372, 6, 25, "Output",ExpressionUUID->"bbf5b8b3-3bf9-244a-ae54-1932035e2edf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19199, 563, 134, 2, 22, "Input",ExpressionUUID->"e26b0d7d-8302-c147-8fdd-12128afa30cd"], +Cell[19336, 567, 378, 6, 25, "Output",ExpressionUUID->"09300a56-6f76-5e4d-a0a0-9b0c4341a494"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19751, 578, 219, 4, 22, "Input",ExpressionUUID->"02ae55dc-e83b-c846-a683-605a55391e41"], +Cell[19973, 584, 393, 7, 25, "Output",ExpressionUUID->"4607d1c7-9985-3d46-ac3e-c1e2df355fec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20403, 596, 134, 2, 22, "Input",ExpressionUUID->"d0a548a6-8f0f-aa47-88a0-5fafcaaa02c7"], +Cell[20540, 600, 382, 6, 25, "Output",ExpressionUUID->"f7daf746-442e-3a4c-9051-5ff4158b18f2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20959, 611, 302, 5, 22, "Input",ExpressionUUID->"ea7ea516-e529-424d-aae3-5a931107ea45"], +Cell[21264, 618, 321, 5, 25, "Output",ExpressionUUID->"9635ffca-1643-1944-b633-d2ca7bf0678a"] +}, Open ]], +Cell[21600, 626, 173, 2, 22, "Input",ExpressionUUID->"c4aac062-4edc-f04c-b189-54e6d761e4f5"], +Cell[CellGroupData[{ +Cell[21798, 632, 322, 6, 22, "Input",ExpressionUUID->"7bd5f262-50a5-b040-a572-06f486e4769d"], +Cell[22123, 640, 376, 6, 25, "Output",ExpressionUUID->"769e93f2-77d7-6e40-bd07-a54b07850956"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22536, 651, 219, 4, 22, "Input",ExpressionUUID->"15738c40-d58e-644f-b4b8-cc87006c8787"], +Cell[22758, 657, 380, 6, 25, "Output",ExpressionUUID->"fccf0b50-70b4-bf4d-9c8d-1cc99dcb2bc8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23175, 668, 350, 10, 34, "Input",ExpressionUUID->"3d918e36-cad3-c242-944a-cea3e4582325"], +Cell[23528, 680, 396, 6, 25, "Output",ExpressionUUID->"6de4bc0c-4ec5-d44a-980c-ad988a9c949c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[23961, 691, 350, 10, 34, "Input",ExpressionUUID->"2898f460-3b0e-7c48-999a-d19f61427db7"], +Cell[24314, 703, 414, 7, 25, "Output",ExpressionUUID->"be910b5a-98a5-234d-8664-e0d6d9608b09"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24765, 715, 992, 26, 90, "Input",ExpressionUUID->"8b4ca0ba-ed32-ac4c-a545-5a3d8c0c1598"], +Cell[25760, 743, 387, 6, 25, "Output",ExpressionUUID->"82830324-8fe9-9b43-a6d7-c20ab18a9a6f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26184, 754, 199, 3, 22, "Input",ExpressionUUID->"1ae8276e-c823-5244-9867-b2a5d5d4bc9f"], +Cell[26386, 759, 374, 6, 25, "Output",ExpressionUUID->"02aab143-e4b1-8b43-b7b9-0ed4846f32df"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26797, 770, 273, 4, 22, "Input",ExpressionUUID->"e9fb66e3-5966-0b4d-9ac9-aa55967ea58d"], +Cell[27073, 776, 334, 5, 25, "Output",ExpressionUUID->"9d7b1a33-ebf0-fd45-a3a4-f1ff6ad42c9b"] +}, Open ]], +Cell[27422, 784, 175, 2, 22, "Input",ExpressionUUID->"9572099a-8f42-5347-b7bd-9e0d0ba78041"], +Cell[CellGroupData[{ +Cell[27622, 790, 344, 6, 37, "Input",ExpressionUUID->"513e129d-29f6-5b40-a359-3ba442747866"], +Cell[27969, 798, 324, 5, 25, "Output",ExpressionUUID->"bd39858d-c296-6a49-8d30-da1ba4eb0b2f"] +}, Open ]], +Cell[28308, 806, 173, 2, 22, "Input",ExpressionUUID->"578452cc-c906-0041-b08b-b1e250c795ff"], +Cell[CellGroupData[{ +Cell[28506, 812, 343, 6, 37, "Input",ExpressionUUID->"2793dc1e-4db7-a643-b0aa-cd39aa7e12db"], +Cell[28852, 820, 331, 5, 25, "Output",ExpressionUUID->"6fb9629f-1ef6-a84e-82ba-516d1f55d2a9"] +}, Open ]], +Cell[29198, 828, 175, 2, 22, "Input",ExpressionUUID->"add321a6-8898-d242-b2b4-4dbc890135be"], +Cell[CellGroupData[{ +Cell[29398, 834, 349, 6, 37, "Input",ExpressionUUID->"5c6f2eba-7090-2a40-b78d-68094322a019"], +Cell[29750, 842, 330, 5, 25, "Output",ExpressionUUID->"f9568db4-6b25-9f41-91cf-a09d1a78964e"] +}, Open ]], +Cell[30095, 850, 175, 2, 22, "Input",ExpressionUUID->"9b4d9bf6-575f-624a-b7e9-f803f7391df8"], +Cell[CellGroupData[{ +Cell[30295, 856, 275, 4, 22, "Input",ExpressionUUID->"83e941f0-4754-5c4a-80ed-64a51356eaca"], +Cell[30573, 862, 330, 5, 25, "Output",ExpressionUUID->"f990b083-31c0-634d-a391-44b35833f0d5"] +}, Open ]], +Cell[30918, 870, 173, 2, 22, "Input",ExpressionUUID->"e8fb696b-bdef-964b-9caf-220c1722d523"], +Cell[CellGroupData[{ +Cell[31116, 876, 277, 4, 22, "Input",ExpressionUUID->"2165e09c-d7c4-6d49-ae7e-efda0d5ceaf6"], +Cell[31396, 882, 333, 5, 25, "Output",ExpressionUUID->"08d2e6ca-75fd-354a-9b05-6938bee88f68"] +}, Open ]], +Cell[31744, 890, 171, 2, 22, "Input",ExpressionUUID->"7f6561f9-b201-c84b-a816-6822affcba33"], +Cell[CellGroupData[{ +Cell[31940, 896, 306, 5, 22, "Input",ExpressionUUID->"ca49a0d5-2e72-f74e-b7b1-186e3d0ce00b"], +Cell[32249, 903, 328, 5, 25, "Output",ExpressionUUID->"f09aae4f-ac60-3943-90d2-2cc31ef849ed"] +}, Open ]], +Cell[32592, 911, 175, 2, 22, "Input",ExpressionUUID->"637cd92e-71b3-8a41-b025-20f4ff5aa862"], +Cell[CellGroupData[{ +Cell[32792, 917, 251, 4, 22, "Input",ExpressionUUID->"6679f29f-2648-824a-80f4-4c1fcf698c25"], +Cell[33046, 923, 324, 5, 25, "Output",ExpressionUUID->"a3955366-8a4b-444a-8a4a-bb74174d2bcf"] +}, Open ]], +Cell[33385, 931, 171, 2, 22, "Input",ExpressionUUID->"b7ab0632-3e38-a345-b222-9d593459b248"], +Cell[CellGroupData[{ +Cell[33581, 937, 19809, 485, 1773, "Input",ExpressionUUID->"db0663a8-6d9e-1641-8ff9-d4dcc3695c77"], +Cell[53393, 1424, 391, 6, 25, "Output",ExpressionUUID->"3049f637-7f3d-4d40-884b-748ce823824c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[53821, 1435, 19748, 489, 1843, "Input",ExpressionUUID->"de350aee-0eaa-6148-aaa5-5fb96818af5a"], +Cell[73572, 1926, 394, 6, 25, "Output",ExpressionUUID->"132a5223-6af8-9a46-9ac7-dee63502a31f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[74003, 1937, 19748, 483, 1821, "Input",ExpressionUUID->"69ecc5d4-90ab-8946-a070-e0d9cd5d0bf5"], +Cell[93754, 2422, 407, 7, 25, "Output",ExpressionUUID->"6ce8fe5b-2395-1149-8d0a-d85732f7600c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[94198, 2434, 22534, 553, 2067, "Input",ExpressionUUID->"37d2e9af-fb6f-b44b-8f43-f611039de089"], +Cell[116735, 2989, 409, 7, 25, "Output",ExpressionUUID->"6751334f-d4bb-3346-bef7-ef6460de12ae"] +}, Open ]], +Cell[CellGroupData[{ +Cell[117181, 3001, 22535, 553, 2066, "Input",ExpressionUUID->"efd3751e-efc1-6941-90aa-93c21840c4e4"], +Cell[139719, 3556, 403, 7, 25, "Output",ExpressionUUID->"b4a56042-c3c7-1244-ad2b-aaf222214a9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[140159, 3568, 25491, 626, 2312, "Input",ExpressionUUID->"494f0fee-fcb1-b24b-a976-bdcf1e446e70"], +Cell[165653, 4196, 403, 7, 25, "Output",ExpressionUUID->"509881ad-90b0-7f4f-9c26-635ee20c3ffa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166093, 4208, 130, 2, 22, "Input",ExpressionUUID->"01d8d0c9-6ef3-474b-94a3-777dcec63ba0"], +Cell[166226, 4212, 370, 6, 25, "Output",ExpressionUUID->"1c8066d5-8880-254e-97f6-1336071adbd8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166633, 4223, 130, 2, 22, "Input",ExpressionUUID->"6aa8b642-2da4-724d-9e7d-4f55c9ca63a9"], +Cell[166766, 4227, 374, 6, 25, "Output",ExpressionUUID->"ffd7b062-2b4c-0f42-bea5-f910c5530526"] +}, Open ]], +Cell[CellGroupData[{ +Cell[167177, 4238, 1144, 39, 88, "Input",ExpressionUUID->"3dd04c66-dec1-1e44-8745-3be8d3ef6405"], +Cell[168324, 4279, 394, 6, 25, "Output",ExpressionUUID->"b7862a91-87ae-8a40-914c-62903b00ae6a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[168755, 4290, 1041, 35, 88, "Input",ExpressionUUID->"a0faf3fa-f6a1-4e4f-9a12-948cce7d5b6d"], +Cell[169799, 4327, 409, 7, 25, "Output",ExpressionUUID->"83805a3b-a131-4d47-92c4-bd4f0ff935da"] +}, Open ]], +Cell[CellGroupData[{ +Cell[170245, 4339, 1144, 39, 88, "Input",ExpressionUUID->"e3da3801-16ed-fb4a-a2e3-518e58f23a2f"], +Cell[171392, 4380, 395, 6, 25, "Output",ExpressionUUID->"474df8f6-b40c-ce4a-b8a6-45a40144db5b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[171824, 4391, 108, 1, 22, "Input",ExpressionUUID->"236dc901-46df-6a4c-9054-47a8c9036b93"], +Cell[171935, 4394, 388, 6, 25, "Output",ExpressionUUID->"5dddc767-1209-404a-99c7-7a5d2bae0e7d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172360, 4405, 108, 1, 22, "Input",ExpressionUUID->"4f972b0d-2ee8-e24a-a471-0de8a99974b8"], +Cell[172471, 4408, 414, 7, 25, "Output",ExpressionUUID->"7515121f-3372-9a44-b1be-92a4171f92dc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[172922, 4420, 108, 1, 22, "Input",ExpressionUUID->"605692fb-c90e-0145-9e8f-9d030f59acb1"], +Cell[173033, 4423, 407, 7, 25, "Output",ExpressionUUID->"428ad22c-57c3-254e-8104-6d8a92b998f5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173477, 4435, 108, 1, 22, "Input",ExpressionUUID->"7bf792e0-7bd8-ab4e-b00b-c0f16b4a2ff3"], +Cell[173588, 4438, 395, 6, 25, "Output",ExpressionUUID->"c4caf895-dd45-964a-8070-643495e74638"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174020, 4449, 107, 1, 22, "Input",ExpressionUUID->"898c4602-c5af-c446-ab46-4b29f7b69bdc"], +Cell[174130, 4452, 393, 6, 25, "Output",ExpressionUUID->"d2aa0b37-dcf1-ea4e-8594-1fff1d9fabb0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174560, 4463, 107, 1, 22, "Input",ExpressionUUID->"b8a46813-d008-3341-9a41-33be5b783b6d"], +Cell[174670, 4466, 393, 6, 25, "Output",ExpressionUUID->"3d0b9ac4-bf74-a346-a8f8-41a9d015ac3a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175100, 4477, 497, 16, 45, "Input",ExpressionUUID->"0213daa0-b7ba-7147-a98b-2a224338b7c2"], +Cell[175600, 4495, 407, 7, 25, "Output",ExpressionUUID->"02ada4f0-7c7b-9346-bcb6-35ede67170dc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176044, 4507, 497, 16, 45, "Input",ExpressionUUID->"c0e2ee7d-ea99-6644-a238-e87fa188a4db"], +Cell[176544, 4525, 404, 7, 25, "Output",ExpressionUUID->"9fc44175-9184-fc4f-b6a3-5abd6c569fb3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176985, 4537, 1788, 60, 150, "Input",ExpressionUUID->"64b296e5-9704-bd4d-a935-b44718164175"], +Cell[178776, 4599, 389, 6, 25, "Output",ExpressionUUID->"bbe54afa-4c08-6a41-bea2-19a0eb95999c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[179202, 4610, 1101, 36, 106, "Input",ExpressionUUID->"14b9de58-04e8-6547-a63b-136c5928c1f2"], +Cell[180306, 4648, 411, 7, 25, "Output",ExpressionUUID->"6815918d-1b13-b24b-8599-722007c8c0ee"] +}, Open ]], +Cell[CellGroupData[{ +Cell[180754, 4660, 1818, 61, 132, "Input",ExpressionUUID->"4aac5d67-06d2-9a4b-bb40-3087b1e88d8d"], +Cell[182575, 4723, 392, 6, 25, "Output",ExpressionUUID->"62e0bcf2-430f-b044-8871-e34da9789d17"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183004, 4734, 2499, 77, 106, "Input",ExpressionUUID->"4cd1a2a6-68bf-5743-8f6a-da2dd545cce3"], +Cell[185506, 4813, 392, 6, 25, "Output",ExpressionUUID->"968abdb4-68ea-e842-b76b-bfda128d7264"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185935, 4824, 2499, 77, 106, "Input",ExpressionUUID->"cb71509b-26fe-3944-9bfc-3b9ac6ca1e76"], +Cell[188437, 4903, 389, 6, 25, "Output",ExpressionUUID->"6ec09bee-a2b7-de45-84b3-62dae43321e8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188863, 4914, 213, 3, 22, "Input",ExpressionUUID->"7c3e9316-835f-9e4b-9a49-3b4d17d5ac6f"], +Cell[189079, 4919, 168, 2, 25, "Output",ExpressionUUID->"98c0d15d-f91e-5d41-a806-9e3a5eba501b"] +}, Open ]], +Cell[189262, 4924, 171, 2, 22, "Input",ExpressionUUID->"583d3f2a-de58-8142-9cfe-a0e52258d17f"], +Cell[CellGroupData[{ +Cell[189458, 4930, 213, 3, 22, "Input",ExpressionUUID->"20139eb5-401a-4b4a-9fa1-5ac66a5ce03b"], +Cell[189674, 4935, 168, 2, 25, "Output",ExpressionUUID->"a8b0aa04-9977-2e44-9357-f0f1ff0ef6ef"] +}, Open ]], +Cell[189857, 4940, 173, 2, 22, "Input",ExpressionUUID->"8f81c5bb-6006-6b49-93bb-3460180e6492"], +Cell[CellGroupData[{ +Cell[190055, 4946, 1297, 42, 90, "Input",ExpressionUUID->"d0f946fc-504f-c546-bd13-fc6956e18c7f"], +Cell[191355, 4990, 197, 2, 25, "Output",ExpressionUUID->"b87a5ac1-31b7-a645-addc-1b307fca8c57"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191589, 4997, 925, 29, 45, "Input",ExpressionUUID->"c6441294-7eb2-2949-9da6-67254244512f"], +Cell[192517, 5028, 198, 2, 25, "Output",ExpressionUUID->"58f1f81c-54e8-aa4c-8f81-87e500fd7f9e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192752, 5035, 985, 32, 45, "Input",ExpressionUUID->"0e9cd1c8-cad4-dc4a-89c9-68faf6ac59e1"], +Cell[193740, 5069, 198, 2, 25, "Output",ExpressionUUID->"a9d789aa-373e-ca46-a740-7c861d838c05"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193975, 5076, 554, 18, 42, "Input",ExpressionUUID->"9284744b-e118-014c-8926-3a51fd91c939"], +Cell[194532, 5096, 193, 2, 25, "Output",ExpressionUUID->"5a3fb563-373e-bd44-a4d0-558873ea7934"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194762, 5103, 647, 21, 42, "Input",ExpressionUUID->"1aab4741-497a-9845-8d77-820f63cb5555"], +Cell[195412, 5126, 190, 2, 25, "Output",ExpressionUUID->"f5c42219-c1fc-c248-a8fe-314a4e89746b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195639, 5133, 166, 4, 45, "Input",ExpressionUUID->"03d57d66-9155-cf4b-b103-8d5f98199ed8"], +Cell[195808, 5139, 193, 2, 25, "Output",ExpressionUUID->"37770140-c372-4a46-be6b-8764449b6458"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196038, 5146, 166, 4, 44, "Input",ExpressionUUID->"dd583ad4-ba05-e74f-9c30-907aa111db1e"], +Cell[196207, 5152, 190, 2, 25, "Output",ExpressionUUID->"85c353b5-1c0e-514e-b394-211abb4900ae"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196434, 5159, 177, 4, 34, "Input",ExpressionUUID->"a1b92a44-c90e-d942-9f90-47bfabccaf08"], +Cell[196614, 5165, 188, 2, 25, "Output",ExpressionUUID->"b65d8dbb-979c-584a-967f-38e58066dac7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196839, 5172, 177, 4, 34, "Input",ExpressionUUID->"51b3d1b0-fc32-2443-90dc-d335ab6c08c0"], +Cell[197019, 5178, 190, 2, 25, "Output",ExpressionUUID->"97073bf7-bbdc-a147-9c69-d7fc26b969a7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197246, 5185, 6051, 184, 398, "Input",ExpressionUUID->"bb0f3cd0-3c69-9040-aa0d-76f7af168d91"], +Cell[203300, 5371, 193, 2, 25, "Output",ExpressionUUID->"75d223e6-4172-1641-8fb6-ef9f103ea789"] +}, Open ]], +Cell[CellGroupData[{ +Cell[203530, 5378, 364, 8, 33, "Input",ExpressionUUID->"c7e96eeb-d934-e843-a9c0-226435d03e38"], +Cell[203897, 5388, 189, 2, 25, "Output",ExpressionUUID->"9888845e-4f6e-6a4e-bece-ee05eaa67250"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204123, 5395, 6118, 186, 386, "Input",ExpressionUUID->"c90e2c4d-483b-8948-ad73-554cb9bb1353"], +Cell[210244, 5583, 194, 2, 25, "Output",ExpressionUUID->"70184009-5096-6d47-b0ba-9a07f5631138"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210475, 5590, 364, 8, 33, "Input",ExpressionUUID->"344c5706-3a8a-754a-b4da-5866eb210a38"], +Cell[210842, 5600, 191, 2, 25, "Output",ExpressionUUID->"db25b3b7-1593-684d-8373-4f28071dbb6f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[211070, 5607, 2659, 87, 132, "Input",ExpressionUUID->"39da6bde-a34a-f944-af17-b87c664ce50c"], +Cell[213732, 5696, 189, 2, 25, "Output",ExpressionUUID->"83f7940a-0f6e-8d40-b7c0-79d6795191da"] +}, Open ]], +Cell[CellGroupData[{ +Cell[213958, 5703, 2599, 84, 132, "Input",ExpressionUUID->"3c3f03ba-5eee-ac4e-84c3-b29e4adbaa6e"], +Cell[216560, 5789, 192, 2, 25, "Output",ExpressionUUID->"08a7db00-702f-824c-8dda-48c6615c64ab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[216789, 5796, 3708, 117, 194, "Input",ExpressionUUID->"ddf61768-a227-c447-bfc3-df30c7b64565"], +Cell[220500, 5915, 193, 2, 25, "Output",ExpressionUUID->"588e7fb4-7f6c-3648-8476-b25464baead3"] +}, Open ]], +Cell[220708, 5920, 160, 3, 34, "Input",ExpressionUUID->"0a12571c-0d3c-324d-9fb1-59d5c707bb07"], +Cell[CellGroupData[{ +Cell[220893, 5927, 2071, 58, 92, "Input",ExpressionUUID->"61186e9c-fdd7-7943-9937-691e3ab971c8"], +Cell[222967, 5987, 562, 11, 50, "Message",ExpressionUUID->"518b6085-bd6f-ca4d-937c-95bb84cf9872"], +Cell[223532, 6000, 563, 11, 50, "Message",ExpressionUUID->"2f8ccafb-cc82-6f44-aa53-b4c14b4ffb2a"], +Cell[224098, 6013, 567, 11, 50, "Message",ExpressionUUID->"31c890e1-dcbe-f44d-ae5c-efa850e8d757"], +Cell[224668, 6026, 480, 10, 20, "Message",ExpressionUUID->"be6c2de0-1ee9-8e43-90cf-552d40364cfe"], +Cell[225151, 6038, 190, 2, 25, "Output",ExpressionUUID->"96b94b1c-0402-0f49-bbb3-02d1c57a74ac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[225378, 6045, 2073, 58, 92, "Input",ExpressionUUID->"9256a2f6-45c2-e140-bcdd-85d8e1970f4a"], +Cell[227454, 6105, 562, 11, 50, "Message",ExpressionUUID->"5372cd13-e015-1248-a2d0-0da05bf65862"], +Cell[228019, 6118, 563, 11, 50, "Message",ExpressionUUID->"e56d6975-4011-6446-937b-291d94c774bd"], +Cell[228585, 6131, 565, 11, 50, "Message",ExpressionUUID->"1956db0b-d68c-c540-a5be-a5b640dd589e"], +Cell[229153, 6144, 478, 10, 20, "Message",ExpressionUUID->"21d9f63f-406c-514f-a1e5-623264e1c240"], +Cell[229634, 6156, 191, 2, 25, "Output",ExpressionUUID->"8fd551b3-f4ae-3e42-9d35-cd5edfde01c8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[229862, 6163, 1955, 52, 69, "Input",ExpressionUUID->"2543960d-965e-7a4e-aecb-694d21d63061"], +Cell[231820, 6217, 20296, 380, 189, "Output",ExpressionUUID->"09febe5e-90e6-e94d-a1cc-e2201f28f26e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[252153, 6602, 2137, 59, 126, "Input",ExpressionUUID->"e19ad739-7d82-2c45-9f2a-a1d24bf6372a"], +Cell[254293, 6663, 512, 11, 48, "Message",ExpressionUUID->"e4ab42d1-822a-3743-94c1-e9c811984c99"], +Cell[254808, 6676, 520, 11, 48, "Message",ExpressionUUID->"c90f78e1-5a95-264e-bdff-c6672237f3b3"], +Cell[255331, 6689, 521, 11, 48, "Message",ExpressionUUID->"d34fdfe6-0488-f649-ad53-c56b75a0e58d"], +Cell[255855, 6702, 480, 10, 20, "Message",ExpressionUUID->"08809b5c-0ef3-b041-91a2-629c9cfec6ea"], +Cell[256338, 6714, 21808, 402, 187, "Output",ExpressionUUID->"03d34203-c420-7d45-bf09-8a55296e01ac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[278183, 7121, 1884, 50, 81, "Input",ExpressionUUID->"0442afd4-ab7e-8942-9b0e-e14520d1eea3"], +Cell[280070, 7173, 8995, 209, 192, "Output",ExpressionUUID->"d8680fc9-3dd5-9242-88d6-6c0204a87721"] +}, Open ]], +Cell[CellGroupData[{ +Cell[289102, 7387, 276, 5, 34, "Input",ExpressionUUID->"9478c59b-a5b4-1043-afe6-75ae56a5fd89"], +Cell[289381, 7394, 27820, 527, 187, "Output",ExpressionUUID->"7ea6e50a-7a7a-5a40-85ad-69a1f0a00639"] +}, Open ]], +Cell[CellGroupData[{ +Cell[317238, 7926, 195, 5, 38, "Input",ExpressionUUID->"2efb0a57-1e82-4941-9ddf-43034c8e204d"], +Cell[317436, 7933, 191, 2, 25, "Output",ExpressionUUID->"6b1dba93-6fd7-fe4a-a952-0577b41b6c35"] +}, Open ]], +Cell[CellGroupData[{ +Cell[317664, 7940, 1798, 52, 115, "Input",ExpressionUUID->"b7e3ddd8-e22a-794d-b607-7a48a064fd4a"], +Cell[319465, 7994, 515, 11, 48, "Message",ExpressionUUID->"78ee9f76-782f-e041-83df-6e8cc574dad3"], +Cell[319983, 8007, 519, 11, 48, "Message",ExpressionUUID->"010c03d4-ffc9-9d40-9802-a428625a1279"], +Cell[320505, 8020, 522, 11, 48, "Message",ExpressionUUID->"686181e2-47da-9445-b1a7-ee3cb66dade2"], +Cell[321030, 8033, 480, 10, 20, "Message",ExpressionUUID->"27db1bcc-bbe2-2643-bfc5-3c10714fe263"], +Cell[321513, 8045, 22187, 409, 184, "Output",ExpressionUUID->"52fc4ee9-c583-a346-9ff6-1fc62b974e22"] +}, Open ]], +Cell[CellGroupData[{ +Cell[343737, 8459, 1616, 48, 66, "Input",ExpressionUUID->"3d764097-ec6b-e749-9f31-cab8832af315"], +Cell[345356, 8509, 550, 11, 48, "Message",ExpressionUUID->"1b5f474a-bd97-cc48-bbd3-567e7799a4bc"], +Cell[345909, 8522, 554, 11, 48, "Message",ExpressionUUID->"285716bc-98de-a544-832b-342bc0380804"], +Cell[346466, 8535, 556, 11, 48, "Message",ExpressionUUID->"4a60ee57-67a6-1e48-8e3e-9f4ae7e348be"], +Cell[347025, 8548, 480, 10, 20, "Message",ExpressionUUID->"38c03d50-40a6-8f4e-8738-db716a26149f"], +Cell[347508, 8560, 195, 3, 25, "Output",ExpressionUUID->"38f3ca83-93f3-034f-aaab-5327b361adf4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[347740, 8568, 2272, 64, 178, "Input",ExpressionUUID->"94c81ca6-5acf-1648-b9d8-a303cc71dab7"], +Cell[350015, 8634, 562, 11, 48, "Message",ExpressionUUID->"16f89544-512b-414c-81ab-426bf9ff16f9"], +Cell[350580, 8647, 563, 11, 48, "Message",ExpressionUUID->"0279d7e2-07c9-c948-97b6-90118cf2ee4b"], +Cell[351146, 8660, 567, 11, 48, "Message",ExpressionUUID->"50f75a5e-dbd4-df4b-8c31-74839c206d10"], +Cell[351716, 8673, 478, 10, 20, "Message",ExpressionUUID->"bd349241-f1d5-404c-819c-20c4473bae39"], +Cell[352197, 8685, 192, 3, 25, "Output",ExpressionUUID->"35ef6d93-b062-1043-9217-06ff5569b340"] +}, Open ]], +Cell[CellGroupData[{ +Cell[352426, 8693, 2244, 64, 129, "Input",ExpressionUUID->"d789fb78-c161-1741-b7b8-90fa3d585b38"], +Cell[354673, 8759, 564, 11, 48, "Message",ExpressionUUID->"7e8542eb-3318-e243-a517-28cee2440579"], +Cell[355240, 8772, 567, 11, 48, "Message",ExpressionUUID->"9b040614-9771-e84b-96ec-44e212b50773"], +Cell[355810, 8785, 567, 11, 48, "Message",ExpressionUUID->"87c9a6d9-f175-f645-9606-7e3068bb32f7"], +Cell[356380, 8798, 480, 10, 20, "Message",ExpressionUUID->"553bd1f8-d742-d94c-83e8-fe8f93d67340"], +Cell[356863, 8810, 193, 3, 25, "Output",ExpressionUUID->"a8fbb1da-9dd2-dd47-b90b-f1686e855ac6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[357093, 8818, 2243, 64, 129, "Input",ExpressionUUID->"98f8448c-bc27-4646-9fd2-f2c22cf9b4d2"], +Cell[359339, 8884, 562, 11, 48, "Message",ExpressionUUID->"e2ebb771-6cc7-ad45-b0e1-036700c6fc80"], +Cell[359904, 8897, 565, 11, 48, "Message",ExpressionUUID->"f25c1c19-5db5-6044-90b5-3836234e8b9b"], +Cell[360472, 8910, 567, 11, 48, "Message",ExpressionUUID->"4eae3142-befa-3a41-a1f5-98a65ffe0583"], +Cell[361042, 8923, 480, 10, 20, "Message",ExpressionUUID->"3892d7d2-4d86-3642-8aa6-322dfa193b31"], +Cell[361525, 8935, 191, 3, 25, "Output",ExpressionUUID->"a7673b20-9d0f-de48-8480-38339b9a8990"] +}, Open ]], +Cell[CellGroupData[{ +Cell[361753, 8943, 236, 6, 37, "Input",ExpressionUUID->"c0718b2f-c4a4-934b-afa0-c67e8ff1bd9c"], +Cell[361992, 8951, 194, 3, 25, "Output",ExpressionUUID->"d5ef1f8f-ed84-8e47-bbae-e6236db9e3e7"] +}, Open ]], +Cell[362201, 8957, 269, 6, 56, "Input",ExpressionUUID->"73fa861d-79d1-6043-8b49-ac6d11636734"], +Cell[CellGroupData[{ +Cell[362495, 8967, 558, 19, 42, "Input",ExpressionUUID->"6c38f559-2389-4242-bc4d-38979252b0b4"], +Cell[363056, 8988, 193, 3, 25, "Output",ExpressionUUID->"9678764f-f941-fe41-9875-ace381e90f96"] +}, Open ]], +Cell[CellGroupData[{ +Cell[363286, 8996, 170, 5, 45, "Input",ExpressionUUID->"e3e9365e-1e6c-9843-9e29-11080a5f4701"], +Cell[363459, 9003, 194, 3, 25, "Output",ExpressionUUID->"685ddd9b-d2f9-fb41-bf50-d46127b8f7e7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[363690, 9011, 181, 5, 34, "Input",ExpressionUUID->"123e61eb-c41d-2242-a32d-5c1fffa2cf57"], +Cell[363874, 9018, 195, 3, 25, "Output",ExpressionUUID->"69940fa6-9753-934b-ae51-3331b3360f8a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364106, 9026, 6055, 185, 393, "Input",ExpressionUUID->"79eeca66-2446-f741-8700-944472de348f"], +Cell[370164, 9213, 195, 3, 25, "Output",ExpressionUUID->"ecaf3830-115a-0342-b8eb-c351e28de11a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[370396, 9221, 368, 9, 33, "Input",ExpressionUUID->"9790a07a-bad8-674c-aada-41e3d20aeff5"], +Cell[370767, 9232, 195, 3, 25, "Output",ExpressionUUID->"e073f0d3-0d0e-c840-a388-637841f7acb1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[370999, 9240, 6122, 187, 410, "Input",ExpressionUUID->"cd927d7c-f3cd-534f-b509-5ac03fad6276"], +Cell[377124, 9429, 198, 3, 25, "Output",ExpressionUUID->"d4b3c6fa-afc8-bc49-b494-5b24ac86c863"] +}, Open ]], +Cell[CellGroupData[{ +Cell[377359, 9437, 368, 9, 33, "Input",ExpressionUUID->"6d1a5282-01c9-b240-a0b0-7e2aa562e7f8"], +Cell[377730, 9448, 195, 3, 25, "Output",ExpressionUUID->"e54744ec-da0e-7b46-81c5-ae97d09576a3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[377962, 9456, 2663, 88, 132, "Input",ExpressionUUID->"b3f5d88a-186d-e74b-84a0-eac59afb71e7"], +Cell[380628, 9546, 195, 3, 25, "Output",ExpressionUUID->"c9fe5282-25cf-df4d-b756-49cfc8c2d988"] +}, Open ]], +Cell[CellGroupData[{ +Cell[380860, 9554, 2603, 85, 132, "Input",ExpressionUUID->"712c99dc-f88a-984c-9ea1-ddb538fa1846"], +Cell[383466, 9641, 198, 3, 25, "Output",ExpressionUUID->"d63ee76e-1761-5c47-9803-38fe986ec427"] +}, Open ]], +Cell[CellGroupData[{ +Cell[383701, 9649, 3712, 118, 235, "Input",ExpressionUUID->"46415a4e-0839-a640-a9be-83fc8d482c42"], +Cell[387416, 9769, 199, 3, 25, "Output",ExpressionUUID->"8be6a8ef-faf9-ca42-9fd7-1907acac4081"] +}, Open ]], +Cell[CellGroupData[{ +Cell[387652, 9777, 2075, 59, 183, "Input",ExpressionUUID->"33a64b79-213d-c445-8c32-436b16263096"], +Cell[389730, 9838, 558, 11, 48, "Message",ExpressionUUID->"4cbbe05c-90c7-5c49-824f-9c9e65f612ec"], +Cell[390291, 9851, 560, 11, 48, "Message",ExpressionUUID->"9ce400de-6a85-0042-a7b5-2866ab592321"], +Cell[390854, 9864, 563, 11, 48, "Message",ExpressionUUID->"c783e88b-155e-9c4f-bbdc-fb93279cbaa7"], +Cell[391420, 9877, 482, 10, 20, "Message",ExpressionUUID->"9e9de591-708e-e049-a352-a9dfe74fb20a"], +Cell[391905, 9889, 196, 3, 25, "Output",ExpressionUUID->"c05ea6c2-1004-6d4c-ba91-f69b92e85a3f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[392138, 9897, 2077, 59, 183, "Input",ExpressionUUID->"a558e928-6d30-db4d-81da-8e12b46e0cf1"], +Cell[394218, 9958, 554, 11, 48, "Message",ExpressionUUID->"f5e4b9df-4333-7e4e-b4f5-9c4884d1bdc6"], +Cell[394775, 9971, 558, 11, 48, "Message",ExpressionUUID->"07152520-5ca3-5a41-bd3f-151e526d2001"], +Cell[395336, 9984, 559, 11, 48, "Message",ExpressionUUID->"b12622a7-e874-7f42-82cb-df088b1502c4"], +Cell[395898, 9997, 478, 10, 20, "Message",ExpressionUUID->"920aef7a-d83f-6647-8707-85584cd3ce79"], +Cell[396379, 10009, 193, 3, 25, "Output",ExpressionUUID->"557ab69c-77b1-4b49-95ef-cfc9405429a6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[396609, 10017, 2053, 55, 105, "Input",ExpressionUUID->"c2f625be-331c-a24f-ad5b-6daaa9131a45"], +Cell[398665, 10074, 20336, 381, 189, "Output",ExpressionUUID->"2135d013-5bf5-da4c-9de8-f361f94add3f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[419038, 10460, 2164, 61, 168, "Input",ExpressionUUID->"e083cd39-87a5-ca4f-ab3f-88bfd4c0e0d2"], +Cell[421205, 10523, 512, 11, 48, "Message",ExpressionUUID->"d6fcfe45-38a6-794e-b25e-e3a3fba7d6d3"], +Cell[421720, 10536, 517, 11, 48, "Message",ExpressionUUID->"c5ff23f7-a281-d548-b0ca-9e84b797052c"], +Cell[422240, 10549, 517, 11, 48, "Message",ExpressionUUID->"6c0c218e-e080-8147-b566-2bb61b6d29e3"], +Cell[422760, 10562, 480, 10, 20, "Message",ExpressionUUID->"b2b2564b-d4d2-9548-b136-1ea0f45f0114"], +Cell[423243, 10574, 42378, 742, 187, "Output",ExpressionUUID->"1029cbcc-6f84-054d-abfc-68579ab0cc0d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[465658, 11321, 164, 4, 34, "Input",ExpressionUUID->"b4bea72a-7a20-da43-afca-38c9d924f08e"], +Cell[465825, 11327, 48335, 866, 187, "Output",ExpressionUUID->"78fea266-c9b6-1344-815b-e592a4b36902"] +}, Open ]], +Cell[CellGroupData[{ +Cell[514197, 12198, 1616, 48, 85, "Input",ExpressionUUID->"94a1b9ea-c98a-ee4e-bb2c-43256dd887e6"], +Cell[515816, 12248, 568, 11, 48, "Message",ExpressionUUID->"8dcb415c-42a2-3e4d-85cd-b269b93087ad"], +Cell[516387, 12261, 574, 12, 67, "Message",ExpressionUUID->"e2c59d14-9d90-6f4e-b634-bdc876731669"], +Cell[516964, 12275, 577, 12, 53, "Message",ExpressionUUID->"fc24092a-477c-0749-943f-ceeddf1f334d"], +Cell[517544, 12289, 480, 10, 20, "Message",ExpressionUUID->"470da4b0-f630-6a4f-bd7e-f46c6cc3fa3a"], +Cell[518027, 12301, 192, 3, 25, "Output",ExpressionUUID->"43184eec-295e-504b-91f9-1ea4953e0db9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[518256, 12309, 2274, 64, 178, "Input",ExpressionUUID->"ad8fe405-3f1b-4e4d-b1dd-9e266c1ec152"], +Cell[520533, 12375, 556, 11, 48, "Message",ExpressionUUID->"828689d2-ae3f-c946-9ae7-b67259295e4c"], +Cell[521092, 12388, 556, 11, 48, "Message",ExpressionUUID->"fcace641-ae91-c047-a870-a6c6381df469"], +Cell[521651, 12401, 559, 11, 48, "Message",ExpressionUUID->"187a9b00-1b38-574b-b50d-6a60daa919f7"], +Cell[522213, 12414, 480, 10, 20, "Message",ExpressionUUID->"0b3230e1-fbdf-634a-b4ea-4d47d1bffb37"], +Cell[522696, 12426, 197, 3, 25, "Output",ExpressionUUID->"5d45f944-e569-854f-9b97-404fa95b9a81"] +}, Open ]], +Cell[CellGroupData[{ +Cell[522930, 12434, 2246, 64, 129, "Input",ExpressionUUID->"6531fc5f-fdb5-a54c-abb2-46a9d151a60a"], +Cell[525179, 12500, 556, 11, 48, "Message",ExpressionUUID->"c6321387-1f09-f949-bd42-7328714457a2"], +Cell[525738, 12513, 558, 11, 48, "Message",ExpressionUUID->"455817c6-ecb6-bb4d-8311-feeddf2bb0ef"], +Cell[526299, 12526, 561, 11, 48, "Message",ExpressionUUID->"3f83d0d4-758a-9841-af38-e018c01da43a"], +Cell[526863, 12539, 480, 10, 20, "Message",ExpressionUUID->"9b928638-0b2a-644a-a643-a1e94d4dfd65"], +Cell[527346, 12551, 194, 3, 25, "Output",ExpressionUUID->"033dee4e-424d-3745-b121-cf546d247743"] +}, Open ]], +Cell[CellGroupData[{ +Cell[527577, 12559, 2246, 64, 129, "Input",ExpressionUUID->"36639f46-66ce-b34a-8a89-e422f177de00"], +Cell[529826, 12625, 555, 11, 48, "Message",ExpressionUUID->"67fe2714-46b1-ce4c-b01a-21b9bf156e81"], +Cell[530384, 12638, 554, 11, 48, "Message",ExpressionUUID->"e950deee-f61e-6149-99db-f2ade8fd4f11"], +Cell[530941, 12651, 560, 11, 48, "Message",ExpressionUUID->"247955c4-a1d4-ed45-a50c-b0eeedfbd72b"], +Cell[531504, 12664, 479, 10, 20, "Message",ExpressionUUID->"63963b0a-5deb-8544-9a18-85eecfcd11e3"], +Cell[531986, 12676, 197, 3, 25, "Output",ExpressionUUID->"a9172cf7-eb97-0c4c-b147-ed16d584d170"] +}, Open ]], +Cell[CellGroupData[{ +Cell[532220, 12684, 234, 6, 37, "Input",ExpressionUUID->"f76b8e94-11bd-a34a-a9ba-20d331e64105"], +Cell[532457, 12692, 198, 3, 25, "Output",ExpressionUUID->"2cd90da5-c5cf-5043-ad40-97115e43c947"] +}, Open ]], +Cell[532670, 12698, 268, 6, 56, "Input",ExpressionUUID->"bb206cb0-d23b-e24e-876b-f9f1b2cbe57a"], +Cell[CellGroupData[{ +Cell[532963, 12708, 558, 19, 42, "Input",ExpressionUUID->"4fd11557-be32-b042-a20e-65ee1f3d31f0"], +Cell[533524, 12729, 193, 3, 25, "Output",ExpressionUUID->"613d7f9d-dd7d-f34a-a6e1-5c117e9d6780"] +}, Open ]], +Cell[CellGroupData[{ +Cell[533754, 12737, 170, 5, 45, "Input",ExpressionUUID->"d73f0f23-b2e1-e243-aa8d-70b95de7c666"], +Cell[533927, 12744, 194, 3, 25, "Output",ExpressionUUID->"29fe2b58-bee7-5c48-bee7-d0c4dd1e55da"] +}, Open ]], +Cell[CellGroupData[{ +Cell[534158, 12752, 181, 5, 34, "Input",ExpressionUUID->"8870b029-14dd-d441-82f4-8690b0fb603d"], +Cell[534342, 12759, 195, 3, 25, "Output",ExpressionUUID->"3f53a0b4-6d4a-2f4b-9e83-0ff6d899d46d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[534574, 12767, 6055, 185, 393, "Input",ExpressionUUID->"78b2a753-17fc-484f-a953-d278346207ad"], +Cell[540632, 12954, 196, 3, 25, "Output",ExpressionUUID->"ac7f7b5d-4757-0a4f-9cbc-985d19a1d282"] +}, Open ]], +Cell[CellGroupData[{ +Cell[540865, 12962, 368, 9, 33, "Input",ExpressionUUID->"19eddd1c-d1b6-4344-85e0-95e5a6b87d4b"], +Cell[541236, 12973, 195, 3, 25, "Output",ExpressionUUID->"470d085e-ba2e-a942-9bfd-c4b0bf514e12"] +}, Open ]], +Cell[CellGroupData[{ +Cell[541468, 12981, 6122, 187, 410, "Input",ExpressionUUID->"75baa02d-f77e-e542-9519-8afd2f729182"], +Cell[547593, 13170, 196, 3, 25, "Output",ExpressionUUID->"d9849cd0-29ac-9143-9651-ff255690c5fd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[547826, 13178, 368, 9, 33, "Input",ExpressionUUID->"78cdb0f4-4e26-2f44-b234-6fa78a24207f"], +Cell[548197, 13189, 196, 3, 25, "Output",ExpressionUUID->"9ce068fa-2d01-0e47-92b5-eb0a87fc4f5e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[548430, 13197, 2663, 88, 132, "Input",ExpressionUUID->"1d69257c-6504-2041-93e1-2a57c1dfc14b"], +Cell[551096, 13287, 195, 3, 25, "Output",ExpressionUUID->"29068a32-feba-a343-97e7-c7ff68997ff0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[551328, 13295, 2603, 85, 132, "Input",ExpressionUUID->"482f62c1-da9c-ae43-adda-68c26afa85d0"], +Cell[553934, 13382, 196, 3, 25, "Output",ExpressionUUID->"80c7b360-9d6c-114e-b28f-37c3e14374f6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[554167, 13390, 3712, 118, 235, "Input",ExpressionUUID->"b28b6b1b-1ce5-eb47-bd61-38bdc082dbc8"], +Cell[557882, 13510, 197, 3, 25, "Output",ExpressionUUID->"95bbe068-0dc6-5448-8790-9b300d03cff2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[558116, 13518, 2075, 59, 183, "Input",ExpressionUUID->"61630af4-ce16-4645-bd89-fd67d7ba48d8"], +Cell[560194, 13579, 551, 11, 48, "Message",ExpressionUUID->"33a28988-5186-6148-b50c-cd31c2ad3ee4"], +Cell[560748, 13592, 552, 11, 48, "Message",ExpressionUUID->"69659419-da84-6749-8d63-f5d35bb09c80"], +Cell[561303, 13605, 557, 11, 48, "Message",ExpressionUUID->"f51a32b6-6626-8b47-b9e9-6880adbee697"], +Cell[561863, 13618, 478, 10, 20, "Message",ExpressionUUID->"a10d2556-1be6-4740-a884-9d3f2be699d8"], +Cell[562344, 13630, 193, 3, 25, "Output",ExpressionUUID->"5313bdf6-7d86-db4b-ad5d-edfff8b8fd1c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[562574, 13638, 2075, 59, 183, "Input",ExpressionUUID->"b8324bb7-c44f-6342-bd59-920c679e8136"], +Cell[564652, 13699, 550, 11, 48, "Message",ExpressionUUID->"3d6e8607-871f-934a-81ff-4c055cffd57c"], +Cell[565205, 13712, 556, 11, 48, "Message",ExpressionUUID->"d452064a-7f30-6041-802e-7e2dd79725e2"], +Cell[565764, 13725, 559, 11, 48, "Message",ExpressionUUID->"7ecfc55f-9f4d-ff48-9f84-77f51033e948"], +Cell[566326, 13738, 482, 10, 20, "Message",ExpressionUUID->"accf6eec-14a7-6f44-ad16-c866e8907f86"], +Cell[566811, 13750, 197, 3, 25, "Output",ExpressionUUID->"e30e78f5-0151-3e40-a5ed-7780bfcfa8c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[567045, 13758, 2053, 55, 105, "Input",ExpressionUUID->"a8eb6c66-2550-3146-b69f-2cd48e2cafc8"], +Cell[569101, 13815, 20346, 381, 187, "Output",ExpressionUUID->"ab4ad784-6959-e04f-a12e-7fb28f80e604"] +}, Open ]], +Cell[CellGroupData[{ +Cell[589484, 14201, 2170, 61, 168, "Input",ExpressionUUID->"29fc72a2-353e-bf42-8947-0608fa83191a"], +Cell[591657, 14264, 516, 11, 48, "Message",ExpressionUUID->"c2a43784-d633-3547-a4c1-ffaee26504a8"], +Cell[592176, 14277, 518, 11, 48, "Message",ExpressionUUID->"d694560e-5fd1-8543-bc26-2c1e5701c66e"], +Cell[592697, 14290, 520, 11, 48, "Message",ExpressionUUID->"ec515fc1-c065-ab4e-a9a5-aed9f3b47315"], +Cell[593220, 14303, 480, 10, 20, "Message",ExpressionUUID->"3cce077b-41b4-d24c-88ba-c6ed96071bce"], +Cell[593703, 14315, 42430, 742, 187, "Output",ExpressionUUID->"23ddd502-7653-d444-8b7a-574bfca96b94"] +}, Open ]], +Cell[CellGroupData[{ +Cell[636170, 15062, 280, 6, 34, "Input",ExpressionUUID->"dbee741a-c3af-b241-a21b-4f79ecc0fe0c"], +Cell[636453, 15070, 48441, 867, 187, "Output",ExpressionUUID->"a0df394f-0e0a-cb4a-95d8-e33451f2dd99"] +}, Open ]], +Cell[CellGroupData[{ +Cell[684931, 15942, 1616, 48, 85, "Input",ExpressionUUID->"0a506e45-082d-6641-9693-c99384fc0ac2"], +Cell[686550, 15992, 544, 11, 48, "Message",ExpressionUUID->"3babb852-1099-c347-9b4a-763f5878f88f"], +Cell[687097, 16005, 553, 12, 67, "Message",ExpressionUUID->"23a991cf-afc8-f149-a2fe-9c9af7c88ae3"], +Cell[687653, 16019, 556, 12, 53, "Message",ExpressionUUID->"8b2d21d2-5a70-4b40-b2f6-521fa57020f1"], +Cell[688212, 16033, 458, 10, 20, "Message",ExpressionUUID->"7d8ff5f9-2c93-2249-a458-740cc6b77fce"], +Cell[688673, 16045, 170, 3, 25, "Output",ExpressionUUID->"a23212bd-5f18-5e46-9291-5b25bbccfd84"] +}, Open ]], +Cell[CellGroupData[{ +Cell[688880, 16053, 2272, 64, 178, "Input",ExpressionUUID->"1d3ec6f9-6ce8-8a4d-95c2-733ef0de97b0"], +Cell[691155, 16119, 529, 11, 48, "Message",ExpressionUUID->"8395c74e-b73c-3e41-8b4c-675418cf89a1"], +Cell[691687, 16132, 530, 11, 48, "Message",ExpressionUUID->"fb57f23d-225d-3742-8600-d74b7c603eb1"], +Cell[692220, 16145, 535, 11, 48, "Message",ExpressionUUID->"b1ce68ac-2602-8b49-b077-b53d4247fe22"], +Cell[692758, 16158, 456, 10, 20, "Message",ExpressionUUID->"b1df0118-f8c4-3848-839c-cb468795b5cc"], +Cell[693217, 16170, 174, 3, 25, "Output",ExpressionUUID->"f495d193-7724-c44c-b44a-a00ab6802df9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[693428, 16178, 2242, 64, 129, "Input",ExpressionUUID->"b5bf5915-d0df-a045-96bd-1dffa35c1421"], +Cell[695673, 16244, 529, 11, 48, "Message",ExpressionUUID->"84074ef1-a052-8d43-991d-09f412b338fc"], +Cell[696205, 16257, 532, 11, 48, "Message",ExpressionUUID->"e72afd9f-49d9-ea43-b111-5a10a9811297"], +Cell[696740, 16270, 537, 11, 48, "Message",ExpressionUUID->"0f8960e3-6c6a-8546-b199-5d410c147280"], +Cell[697280, 16283, 455, 10, 20, "Message",ExpressionUUID->"bd0e9c97-0964-1746-a859-4da41cb9adde"], +Cell[697738, 16295, 170, 3, 25, "Output",ExpressionUUID->"172dd9b2-3b94-494f-a892-21e620033286"] +}, Open ]], +Cell[CellGroupData[{ +Cell[697945, 16303, 2243, 64, 129, "Input",ExpressionUUID->"0f4fb648-c81c-bf44-8487-747d613813fd"], +Cell[700191, 16369, 527, 11, 48, "Message",ExpressionUUID->"bb1957d6-d6a7-a944-b55e-a7d31d7df8a5"], +Cell[700721, 16382, 532, 11, 48, "Message",ExpressionUUID->"f98e0cdf-e6be-0245-ba7e-3c529dd78a64"], +Cell[701256, 16395, 534, 11, 48, "Message",ExpressionUUID->"b5f2ce0b-1a50-b844-9cf1-ec9d2a946b7d"], +Cell[701793, 16408, 458, 10, 20, "Message",ExpressionUUID->"a20fb423-d8d6-8147-9966-da46792edd3e"], +Cell[702254, 16420, 173, 3, 25, "Output",ExpressionUUID->"3ac0f14d-0d65-6b40-abdc-509135677bde"] +}, Open ]], +Cell[CellGroupData[{ +Cell[702464, 16428, 236, 6, 37, "Input",ExpressionUUID->"2d256a7e-c4c8-f746-8004-9b6b43692a68"], +Cell[702703, 16436, 174, 3, 25, "Output",ExpressionUUID->"1cc146dc-8972-ec45-a4ee-37a680880d8a"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_фитирование.nb b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_фитирование.nb new file mode 100755 index 0000000..5caa572 --- /dev/null +++ b/templates/P240_2-51_YakuninDA/58-182_l_Pu240_2-3/l_58-182_Pu240_2-3_фитирование.nb @@ -0,0 +1,17659 @@ +(* 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[ 839918, 17651] +NotebookOptionsPosition[ 829058, 17458] +NotebookOutlinePosition[ 829512, 17476] +CellTagsIndexPosition[ 829469, 17473] +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->"984d779d-441a-564f-824d-75ba0e2dc3fa"], + +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.992072358410898*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"ab6a0ef8-17a1-8941-b698-e6dbd76a1d67"] +}, 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->"67269f0f-e0b0-f549-a77a-4038f973203d"], + +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.9920723587221203`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"c0b2575d-83b5-2e43-9501-bfc0f9468d60"] +}, 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->"b7ce059f-6606-3f49-a9e0-ce95b27090cb"], + +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.992072358741873*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"64a187f2-5108-3342-8eb9-44d126073458"] +}, 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->"d28b612e-7706-ee49-b098-1ff6d19ac41f"], + +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.992072358760414*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"b5f36936-ee7d-994a-949e-613b2f4b985b"] +}, 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->"b07bd0bc-2475-094d-b7ea-4146a338636c"], + +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"]}]]}], ")"}]}], + "+", + RowBox[{ + FractionBox["1", + RowBox[{"32", " ", "\[Pi]"}]], + 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"]}]]}], + ")"}]}]}]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341376917*^9, 3.9919640822778645`*^9, + 3.9919650529736423`*^9, 3.9920723587802963`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"fd445648-d85a-b941-9549-d3615c6a0746"] +}, 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->"c9ecc956-1141-fa42-8147-f21123945bdc"], + +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"]}]]}], ")"}]}], + "+", + RowBox[{ + FractionBox["1", + RowBox[{"32", " ", "\[Pi]"}]], + 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"]}]]}], + ")"}]}]}]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341392933*^9, 3.9919640822888775`*^9, + 3.9919650530016823`*^9, 3.992072358788925*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"d7186b8d-019d-cd46-a431-aa70cb962ca2"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{3.9917077685737076`*^9}, + CellLabel->"In[7]:=",ExpressionUUID->"3b033e79-cfc0-c443-bea0-5e05e70b057f"], + +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.9920724091531105`*^9, 3.9920724205958576`*^9}}, + CellLabel->"In[8]:=",ExpressionUUID->"9efe6a26-4fad-3f4e-9d6e-27e0e52fa691"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.991964088272585*^9, 3.9919650668367367`*^9, + 3.992072489656435*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"04db1577-d3ad-3b41-9130-fadbbf127e89"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "58"}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.9919640953047657`*^9, + 3.991964095496088*^9}, 3.9919730324857025`*^9, 3.992072431054064*^9}, + CellLabel->"In[9]:=",ExpressionUUID->"df99cb2a-15b5-0b47-a4f6-27b74e082a15"], + +Cell[BoxData["58"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9919640965938797`*^9, 3.9919650679796085`*^9, + 3.9920724896775246`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"7f7561ef-68a6-3f47-9439-d288e785d049"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[10]:=",ExpressionUUID->"a1fb5611-f3b5-6245-8af6-4e0165f28ad9"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9, 3.991707828219631*^9, + 3.9917123414174232`*^9, 3.9919641050847206`*^9, 3.9919650689841537`*^9, + 3.9920724896949844`*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"12b168c6-118d-c843-b1b4-a124a47d8d96"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"e4db6b4e-d33b-7049-818a-cfba3539b26d"], + +Cell[BoxData["0.5577500000000001`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9, 3.9917078282275677`*^9, + 3.9917123414253197`*^9, 3.991964105132374*^9, 3.99196507082041*^9, + 3.992072489720148*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"65356c5d-f355-cf43-a763-8a3935e50db0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"d10625a4-1fb6-3f4d-8f5c-fd6744a2cc20"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9, 3.9917078282485256`*^9, + 3.9917123414324265`*^9, 3.991964105152542*^9, 3.9919650751473694`*^9, + 3.9920724897242527`*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"bbf953bf-6abc-b047-8c0c-6da92f890190"] +}, 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->"ad7ee1cf-a6cf-aa41-b16f-69f575f9695b"], + +Cell[BoxData["4.4902169031282435`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9, 3.9917078282706223`*^9, + 3.9917123414384117`*^9, 3.991964105158039*^9, 3.9919650774986343`*^9, + 3.992072489728773*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"2836f8e5-7061-6548-a77a-aea71fc2a892"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"216f83ae-e48a-1b41-a7b2-acc9b400d13c"], + +Cell[BoxData["6.573779285392593`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9, 3.9917078282785244`*^9, + 3.991712341447321*^9, 3.9919641051782207`*^9, 3.99196507853343*^9, + 3.9920724897447815`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"5ba88409-d125-4445-a96d-37d130b2fab8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.363"}]], "Input", + CellChangeTimes->{ + 3.9917123951294365`*^9, 3.99179305435186*^9, {3.99196410971159*^9, + 3.9919641153565598`*^9}, {3.991965091938593*^9, 3.9919650927835865`*^9}, + 3.991973034922682*^9, {3.9920724455357895`*^9, 3.9920724585159454`*^9}}, + CellLabel->"In[15]:=",ExpressionUUID->"b434072c-f5c4-6447-b47b-7d3a3a643eea"], + +Cell[BoxData["0.363`"], "Output", + CellChangeTimes->{3.9920724897587814`*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"59c357fe-858f-ed4a-83ae-1a6160942e76"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9919730373820705`*^9, 3.991973037386053*^9}}, + CellLabel->"In[16]:=",ExpressionUUID->"1935e637-3724-824c-87cd-00d2f710210f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "1.140"}]], "Input", + CellChangeTimes->{ + 3.9917124038115807`*^9, 3.991793052797516*^9, {3.9919641207252083`*^9, + 3.991964121458187*^9}, {3.991965119761894*^9, 3.9919651201266823`*^9}, + 3.9919730365316715`*^9, {3.9920724509720345`*^9, 3.992072456152151*^9}}, + CellLabel->"In[17]:=",ExpressionUUID->"7fa441ac-4845-2444-8deb-6f46879ae66e"], + +Cell[BoxData["1.14`"], "Output", + CellChangeTimes->{3.9920724897757797`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"db1b66c0-8d24-534c-aec9-a08e81201d62"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991973038952713*^9, 3.9919730389577026`*^9}}, + CellLabel->"In[18]:=",ExpressionUUID->"14ffdd04-4daa-654b-9670-b89fb359bf05"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"d12b3ab2-45b8-e846-b98b-9d0a210376f1"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9, 3.9917078283276424`*^9, + 3.991712341478319*^9, 3.9919641257179623`*^9, 3.9919651236440945`*^9, + 3.9920724897967834`*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"694fb666-7c5d-6b46-b064-cd4fb446f944"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[20]:=",ExpressionUUID->"cc8311a9-855a-384b-a11e-1c7a8ea58566"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9, 3.99170782834754*^9, + 3.9917123414863186`*^9, 3.9919641257640095`*^9, 3.991965124607527*^9, + 3.9920724898017845`*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"77f647fb-6d8a-194a-84d4-0e8bdd31f3a3"] +}, 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", ",", "4", ",", "9.5"}], "}"}]}], "]"}]}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{{3.9919641474075165`*^9, 3.9919641522943115`*^9}, { + 3.9920727555030136`*^9, 3.9920728154370766`*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"f19417be-1443-8d42-84f9-76626ac0c4bd"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVlnk01Q0Tx0siUl3Z4t7r3vsLUYkKZamZZIkneyFbluwS2cmapUSyZ3kq +spNslVSISrKUIiVxo2y58qRQttf7x5w5nzPfOec7Z86ZMwzbc4b2bGvWrOld +jf/nY2aXONesIeHGwJMvWT9YoJq7X7FuLQl5OfutnadYoDwx4OK9joSGSuE/ +hidZsCdQvnOMg4RBf5one8ZZIJA5lNK1iYTFI47Gd4ZZMPRRhbhNJqGSSMRp +qV4WXDj1n4rGARIeuiKw0fAJC+6amp2Pcyeh665Fk6PRLOidumJiP0JCC7Eo +IC9PwmzqH5KOMS9q/2ulOuQ4CX8D2d+zPePFB8Wvtawef4eGOXeB9cpb8UPJ ++dyIrxMQFCUgJViyFe96RYdxLo3DfAn5gRfBh18G5DMWBsfAbHOD/s3rfLh+ +W3SEUf4oVEfcqP/IwY/JvjnJP2xGoOPq5wLrEH7kqW4Nf/XtKwyUmtrNsvjR +pSdR5a3rMHRzeO4yMxfAmZr2NpfxLxD3Z+ws91sBHBTs/rpThQlKS9mRrSiI +HWVxi+EnPkPJ9QqBnlpB5L+UH2mz+BFWPG2qyvcIoR5b/Dv77vegbaG7PT17 +le++kfjM0w0mA5mb2/m2YXy/VMajI11g5rm9c8vFbViu1neL2dwBtOyNG24t +bEMLA4oyr2QrtLIn6ix7CqNk7pyRtvRzcA4xdHRlCmO71oZzOj+eQluC14KY +qQhGdVCutrc/AbGqN3asFhEUdde5Z/y7Fmy3tvVelCfjnv7LtT2jNaAaGGl3 ++gAZp1p5k/J7a4AYOvRDSZGMT0d+fQhrqYGhygqOnypkdNton3qqsAZsDdLk +rdXIKOdwTCjZcZWv2SSrGJHx2CjbPfpENdhuntf97UHGQvuBQ4FzVWDDLf7C +oYyMH0dbHrfurYRIW5l4opyMtZY+qTvFK6GoTvHEwF0yhknu2ZCyrRKmXXSH +TlaTUSBErihspQLC2vyW1erIuEhep93YUQE34l4pbH9JxrKi3O5u1wro3+xR +ODhMxjNdfrdsLe6CCd+jS6ZkCq7EjilbpZZB33h5uCKVgq0RRp1mIWVg0Zgb +KEKj4JePDl1OjmVgezbWrZ+g4FJ3+UKtYhm4t5zSt95JwQ0F325JDpZCZNC8 +kJMiBTu2pB9Wli6FqmH5Qj8TCoa262kN9hTD5pqK52nJFLw3cuFDvXEhXFp5 +O+ueSsFOUy52YbVCWPfP7x2a6RS0Huu1Dt9bCPNfFGPnMimoKp8Qc4GnEIa2 +NOua5q72RzwJIjcXwD3Xnl7hSgry+sfnzOwrAIvtf8ezOyn4ZGbl5ytKPpQk +Hd18m4uK4/TriwJCt8Gp836g+UYqXioRmnu04TZIcO8c5dtExegAXQO3v7lw +O5zUGEmiYn6zPdfk51zI9vjs6SBExU0xt1465OdCgq5fj5Q4FYOZ2klHFXLB +m7s0uwKp+DXONcb1dA4citi6q96PihwWU8X82TfBTOVca1YAFWXFcmzEIm6C +/2ybY0DQKut03zvmdBOqXKLy5EKpWHqtbLZT7iZIGs1TS6OpeEOrU/ZN5w3Y +KjZAup5KRZm+XebXOW7A6PPiWc9qKr5rbhb6EJkNiVxHmsR/UHGdM+fcXG0G +/KyeyhqepuKklrWPeH4GnLDK9sn5ScVP3/nf2yRmgGD1nCR1lorDO47zc7pk +QKZFeQL/EhWX0oIt2SgZkHeXbLluoygqGj9ir464DvdPzs4xJUTxkrkA1z2z +dOjPKZXOthJFic8uHXz7U0H+aQwYWIuiXb2X/hKRCleZdgYctqLIsazc8nNr +KgCN4uNhL4pa8cLua2dSIDc77rGamygateXUlFWngFP62X9YAaKo4mz/bv+B +FPgVJ+N8OFUUZbwHhl9pJAOPf3Ues00UnWus2myiE+GZQMBYXYcohodFOY34 +JcKF6sO7U1+LYsWg4Utf50T4PtVarfVOFCc9tpbWHU+EV/bMpqo+Ubw18WOx +gy8RLhlt+hI5vqoPFBwRybsG7DKOVClOGr6wa46kZSbA0jeRNE9VGj55ycvi +C46Dea+9ArvVaPi46w4bt2Mc/Fp7LGVEnYZ01dJRkkEcTFJ9ksy1aPgmcd2U +vngc9J18fVVdn4Zs8/8mXu+8Ag+eX4wRtqIhsXTwgrLYFfDMn/R/GkDD2eGA +D0GfLsO3M/XmvJU0tLJ7dMbGLwbQs57nvyoaCubKZRTaxUBmcP2TNzWrdfuC +vct6MaCfVk+7VkvD1MF/TvVLxkBdS/3w5kYasthe8Jp/ioZrOxtceV7TMPjO +74fGR6NBabohiJNFw5j08miWaBS0PGF2hPDTcSnfoJK19iIIqnA9sxKgY0sX +T/CfnxHgULe37rAgHU9rx0yTvkYA+4OIgmUhOp64LVJq+yICsEIsNIRMR5nl +Nt9rVyKgLtdJNoSgI3edaP2mbRFQHjOdFCxLR52p9VxGiuGQZrDG9MJxOh7c +EWMeoBC6et9wwkSHjt6YWWMuGgq7m0Mv7NelY07Wviv6HKHQJLdya0KPjoF3 +JAM834fAlNDyuKkRHYsG+95d9QsBjYGFIHkzOrrazUTsehIMcy5zN6ccV/Ur +mc+vnrwAppFTo9YX6Rj6flRzd20AGC4SfHqRdIxv/ZiYnhsAOt4mhw9F0fHa +Ubc+/vgAUD3TmCIcQ0dVzUO71W0DYLda0pG3sXQsXlOhELQpANayK2QdTaJj +TZXpHllHfyi5GKwrkUPH/FiTI2Y7/GAhgufe93o68kQbSNb2esM2r/Gl1gY6 +EtFRktYt3iBn90KjqJGOcSTWGP8Db3A7GvbhTBMdV1QWI/LSvGFg3a+Fz8/p +iEzkNjf2hqbIT6pv2ukYxKyZonzwgtjokjc1fXRsfazWU/n1PAjHHpsMnqWj +lJa2jDjdE84oinS6z9GR1L/+XQqvJ1SMfb97ep6ORw/sbyet84RjmgleR/7S +Ubo3OFV6xAP82d//ZV+m44Gpcbs/ZR7wIcSOK249A6XfRvN0qXjAda8QiUx+ +BnLy6qr7vnKHbZY11vf3rfJlC4e3d1yBqfHvQO5+BgokG9lUprlCkWy0RYIc +A7esGNy8HeoKB9hNTZ0UGJg8cz/vqYErGJcu6IkoMdD+jpzI0KwLpPxRhZAj +DLx7vJqtUM0FSGldVA19Br4cpf3qYTkB1+upvp6zDBTb1+uS4eUAP2XDfKvc +GRgW4DwgYOsA/Um8WxPOMZB7F+u/m/oOUGEsp3XMk4HFDwo6+6UdwHgg4EGd +NwOz9t9XnB+zhzwWe8rNIAaWhmxoKbOxB+Qh6zhfZqDRK83B5xZnwFdLs2Ex +j4F6bjGvM/xsIcGlY+Z7PgOD87qz/zjaQtEVI8lPBavzI2Y5mNrCp47TiQ+L +GMjsIVYcFW0BDf3tfMsYmHdqYg/nog1wmRdzTlcz0EF2c+mdizaQ7bZRf7iJ +gQH505362dbQnPCa2cpk4HaFNf5eXyxhWXJ5X/GXVT//WUX1tFqCUtPuqEtD +DOTtvi2nXWUJFb8uS2l+ZaB1+snDrhctIfuU2vlnowycfL/JMVbCEny3P1zX +MMXAJqFQf1kPC5B8kCtRs8jAWbqDwkOSOcQN+Ljd2EbgKLlpsf2iKRytemQW +IExgljAR2e5hCn+j1mqdECHQzde1sc/SFJyk48W5KQSW77Pauf2gKahdyBvw +oRFYsSR2yZZlAgvC7/R1JAgsjfcrSTQzAZeTsvKL+wkcOm8E9mAMmu0TS6f0 +CAzrHOHIlD0Be06LR2nqE2jSbvnpBu0E8P88zSNvQGBiR+5M5eYTwBTqESEZ +EfgU3jSwsYwg0K7hwAtjAt23+AXqlBhB+d9kz31WBL5mSh0I3mEEAlKHvnGf +JfD+ysDD37sMYTgqof1RLIGsuLOFY2b6MHntvGfGFQLbtEqieHX14VfWSUG/ +OAIFNmzxVTuiD+xVZOt9VwmstO48+3KHPkgMFM4UJRLYxf/xUcKEHjgpNIqk +XSfwMiXnt7KYHkyNTDt5FBD45YW77dd8HfirabhevInAmfgtzv8MaoPElLQn +pZlAZfF0q/oWbTBI4frM94zAd9IVM+oV2lDEbKxhe0Fgk01MTVK4NhgHyJxh +thJI7m/PootrQ1UJT3NWF4EjC1lXls9pgeumlrCtXwjsc2DZafMfg7Tq3Emu +IQKH9zyNklnRhKZTIaZrh4nV//fG9h0TmiBSIC87/ZXAJwr9STqNmvDycN5g +xxiB6c0yIT5nNUHMI/zw5WkC6wTNy7a3aYC+oGVJ2H8Eqhk7Cks90ICgxwcF +/X+u+vcx4cDbGvB2wzTL4ReBxaH3idwgDQjLsfpXbX51Pwdoj+WlNaBMU4lL +5Q+BKW1ZIc+FNaCXJeCz/y+BSsoLmg4cGrBHqeM4sUhg7MNP1X2D6mDGLKoV +XiKQu+HhwfJ2dYiKjhTjXSbQy0/uctJDdajYbX1tw8qq3+zMtJgCdeh/q7y4 +ssq3Hmoaxierw/8AgEARwA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnk01Q0Tx0siUl3Z4t7r3vsLUYkKZamZZIkneyFbluwS2cmapUSyZ3kq +spNslVSISrKUIiVxo2y58qRQttf7x5w5nzPfOec7Z86ZMwzbc4b2bGvWrOld +jf/nY2aXONesIeHGwJMvWT9YoJq7X7FuLQl5OfutnadYoDwx4OK9joSGSuE/ +hidZsCdQvnOMg4RBf5one8ZZIJA5lNK1iYTFI47Gd4ZZMPRRhbhNJqGSSMRp +qV4WXDj1n4rGARIeuiKw0fAJC+6amp2Pcyeh665Fk6PRLOidumJiP0JCC7Eo +IC9PwmzqH5KOMS9q/2ulOuQ4CX8D2d+zPePFB8Wvtawef4eGOXeB9cpb8UPJ ++dyIrxMQFCUgJViyFe96RYdxLo3DfAn5gRfBh18G5DMWBsfAbHOD/s3rfLh+ +W3SEUf4oVEfcqP/IwY/JvjnJP2xGoOPq5wLrEH7kqW4Nf/XtKwyUmtrNsvjR +pSdR5a3rMHRzeO4yMxfAmZr2NpfxLxD3Z+ws91sBHBTs/rpThQlKS9mRrSiI +HWVxi+EnPkPJ9QqBnlpB5L+UH2mz+BFWPG2qyvcIoR5b/Dv77vegbaG7PT17 +le++kfjM0w0mA5mb2/m2YXy/VMajI11g5rm9c8vFbViu1neL2dwBtOyNG24t +bEMLA4oyr2QrtLIn6ix7CqNk7pyRtvRzcA4xdHRlCmO71oZzOj+eQluC14KY +qQhGdVCutrc/AbGqN3asFhEUdde5Z/y7Fmy3tvVelCfjnv7LtT2jNaAaGGl3 ++gAZp1p5k/J7a4AYOvRDSZGMT0d+fQhrqYGhygqOnypkdNton3qqsAZsDdLk +rdXIKOdwTCjZcZWv2SSrGJHx2CjbPfpENdhuntf97UHGQvuBQ4FzVWDDLf7C +oYyMH0dbHrfurYRIW5l4opyMtZY+qTvFK6GoTvHEwF0yhknu2ZCyrRKmXXSH +TlaTUSBErihspQLC2vyW1erIuEhep93YUQE34l4pbH9JxrKi3O5u1wro3+xR +ODhMxjNdfrdsLe6CCd+jS6ZkCq7EjilbpZZB33h5uCKVgq0RRp1mIWVg0Zgb +KEKj4JePDl1OjmVgezbWrZ+g4FJ3+UKtYhm4t5zSt95JwQ0F325JDpZCZNC8 +kJMiBTu2pB9Wli6FqmH5Qj8TCoa262kN9hTD5pqK52nJFLw3cuFDvXEhXFp5 +O+ueSsFOUy52YbVCWPfP7x2a6RS0Huu1Dt9bCPNfFGPnMimoKp8Qc4GnEIa2 +NOua5q72RzwJIjcXwD3Xnl7hSgry+sfnzOwrAIvtf8ezOyn4ZGbl5ytKPpQk +Hd18m4uK4/TriwJCt8Gp836g+UYqXioRmnu04TZIcO8c5dtExegAXQO3v7lw +O5zUGEmiYn6zPdfk51zI9vjs6SBExU0xt1465OdCgq5fj5Q4FYOZ2klHFXLB +m7s0uwKp+DXONcb1dA4citi6q96PihwWU8X82TfBTOVca1YAFWXFcmzEIm6C +/2ybY0DQKut03zvmdBOqXKLy5EKpWHqtbLZT7iZIGs1TS6OpeEOrU/ZN5w3Y +KjZAup5KRZm+XebXOW7A6PPiWc9qKr5rbhb6EJkNiVxHmsR/UHGdM+fcXG0G +/KyeyhqepuKklrWPeH4GnLDK9sn5ScVP3/nf2yRmgGD1nCR1lorDO47zc7pk +QKZFeQL/EhWX0oIt2SgZkHeXbLluoygqGj9ir464DvdPzs4xJUTxkrkA1z2z +dOjPKZXOthJFic8uHXz7U0H+aQwYWIuiXb2X/hKRCleZdgYctqLIsazc8nNr +KgCN4uNhL4pa8cLua2dSIDc77rGamygateXUlFWngFP62X9YAaKo4mz/bv+B +FPgVJ+N8OFUUZbwHhl9pJAOPf3Ues00UnWus2myiE+GZQMBYXYcohodFOY34 +JcKF6sO7U1+LYsWg4Utf50T4PtVarfVOFCc9tpbWHU+EV/bMpqo+Ubw18WOx +gy8RLhlt+hI5vqoPFBwRybsG7DKOVClOGr6wa46kZSbA0jeRNE9VGj55ycvi +C46Dea+9ArvVaPi46w4bt2Mc/Fp7LGVEnYZ01dJRkkEcTFJ9ksy1aPgmcd2U +vngc9J18fVVdn4Zs8/8mXu+8Ag+eX4wRtqIhsXTwgrLYFfDMn/R/GkDD2eGA +D0GfLsO3M/XmvJU0tLJ7dMbGLwbQs57nvyoaCubKZRTaxUBmcP2TNzWrdfuC +vct6MaCfVk+7VkvD1MF/TvVLxkBdS/3w5kYasthe8Jp/ioZrOxtceV7TMPjO +74fGR6NBabohiJNFw5j08miWaBS0PGF2hPDTcSnfoJK19iIIqnA9sxKgY0sX +T/CfnxHgULe37rAgHU9rx0yTvkYA+4OIgmUhOp64LVJq+yICsEIsNIRMR5nl +Nt9rVyKgLtdJNoSgI3edaP2mbRFQHjOdFCxLR52p9VxGiuGQZrDG9MJxOh7c +EWMeoBC6et9wwkSHjt6YWWMuGgq7m0Mv7NelY07Wviv6HKHQJLdya0KPjoF3 +JAM834fAlNDyuKkRHYsG+95d9QsBjYGFIHkzOrrazUTsehIMcy5zN6ccV/Ur +mc+vnrwAppFTo9YX6Rj6flRzd20AGC4SfHqRdIxv/ZiYnhsAOt4mhw9F0fHa +Ubc+/vgAUD3TmCIcQ0dVzUO71W0DYLda0pG3sXQsXlOhELQpANayK2QdTaJj +TZXpHllHfyi5GKwrkUPH/FiTI2Y7/GAhgufe93o68kQbSNb2esM2r/Gl1gY6 +EtFRktYt3iBn90KjqJGOcSTWGP8Db3A7GvbhTBMdV1QWI/LSvGFg3a+Fz8/p +iEzkNjf2hqbIT6pv2ukYxKyZonzwgtjokjc1fXRsfazWU/n1PAjHHpsMnqWj +lJa2jDjdE84oinS6z9GR1L/+XQqvJ1SMfb97ep6ORw/sbyet84RjmgleR/7S +Ubo3OFV6xAP82d//ZV+m44Gpcbs/ZR7wIcSOK249A6XfRvN0qXjAda8QiUx+ +BnLy6qr7vnKHbZY11vf3rfJlC4e3d1yBqfHvQO5+BgokG9lUprlCkWy0RYIc +A7esGNy8HeoKB9hNTZ0UGJg8cz/vqYErGJcu6IkoMdD+jpzI0KwLpPxRhZAj +DLx7vJqtUM0FSGldVA19Br4cpf3qYTkB1+upvp6zDBTb1+uS4eUAP2XDfKvc +GRgW4DwgYOsA/Um8WxPOMZB7F+u/m/oOUGEsp3XMk4HFDwo6+6UdwHgg4EGd +NwOz9t9XnB+zhzwWe8rNIAaWhmxoKbOxB+Qh6zhfZqDRK83B5xZnwFdLs2Ex +j4F6bjGvM/xsIcGlY+Z7PgOD87qz/zjaQtEVI8lPBavzI2Y5mNrCp47TiQ+L +GMjsIVYcFW0BDf3tfMsYmHdqYg/nog1wmRdzTlcz0EF2c+mdizaQ7bZRf7iJ +gQH505362dbQnPCa2cpk4HaFNf5eXyxhWXJ5X/GXVT//WUX1tFqCUtPuqEtD +DOTtvi2nXWUJFb8uS2l+ZaB1+snDrhctIfuU2vlnowycfL/JMVbCEny3P1zX +MMXAJqFQf1kPC5B8kCtRs8jAWbqDwkOSOcQN+Ljd2EbgKLlpsf2iKRytemQW +IExgljAR2e5hCn+j1mqdECHQzde1sc/SFJyk48W5KQSW77Pauf2gKahdyBvw +oRFYsSR2yZZlAgvC7/R1JAgsjfcrSTQzAZeTsvKL+wkcOm8E9mAMmu0TS6f0 +CAzrHOHIlD0Be06LR2nqE2jSbvnpBu0E8P88zSNvQGBiR+5M5eYTwBTqESEZ +EfgU3jSwsYwg0K7hwAtjAt23+AXqlBhB+d9kz31WBL5mSh0I3mEEAlKHvnGf +JfD+ysDD37sMYTgqof1RLIGsuLOFY2b6MHntvGfGFQLbtEqieHX14VfWSUG/ +OAIFNmzxVTuiD+xVZOt9VwmstO48+3KHPkgMFM4UJRLYxf/xUcKEHjgpNIqk +XSfwMiXnt7KYHkyNTDt5FBD45YW77dd8HfirabhevInAmfgtzv8MaoPElLQn +pZlAZfF0q/oWbTBI4frM94zAd9IVM+oV2lDEbKxhe0Fgk01MTVK4NhgHyJxh +thJI7m/PootrQ1UJT3NWF4EjC1lXls9pgeumlrCtXwjsc2DZafMfg7Tq3Emu +IQKH9zyNklnRhKZTIaZrh4nV//fG9h0TmiBSIC87/ZXAJwr9STqNmvDycN5g +xxiB6c0yIT5nNUHMI/zw5WkC6wTNy7a3aYC+oGVJ2H8Eqhk7Cks90ICgxwcF +/X+u+vcx4cDbGvB2wzTL4ReBxaH3idwgDQjLsfpXbX51Pwdoj+WlNaBMU4lL +5Q+BKW1ZIc+FNaCXJeCz/y+BSsoLmg4cGrBHqeM4sUhg7MNP1X2D6mDGLKoV +XiKQu+HhwfJ2dYiKjhTjXSbQy0/uctJDdajYbX1tw8qq3+zMtJgCdeh/q7y4 +ssq3Hmoaxierw/8AgEARwA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 9.5}, {0., 0.935538188244949}}, + "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" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 9.5}, {0., 0.935538188244949}}, + "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" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnk01Q0Tx0siUl3Z4t7r3vsLUYkKZamZZIkneyFbluwS2cmapUSyZ3kq +spNslVSISrKUIiVxo2y58qRQttf7x5w5nzPfOec7Z86ZMwzbc4b2bGvWrOld +jf/nY2aXONesIeHGwJMvWT9YoJq7X7FuLQl5OfutnadYoDwx4OK9joSGSuE/ +hidZsCdQvnOMg4RBf5one8ZZIJA5lNK1iYTFI47Gd4ZZMPRRhbhNJqGSSMRp +qV4WXDj1n4rGARIeuiKw0fAJC+6amp2Pcyeh665Fk6PRLOidumJiP0JCC7Eo +IC9PwmzqH5KOMS9q/2ulOuQ4CX8D2d+zPePFB8Wvtawef4eGOXeB9cpb8UPJ ++dyIrxMQFCUgJViyFe96RYdxLo3DfAn5gRfBh18G5DMWBsfAbHOD/s3rfLh+ +W3SEUf4oVEfcqP/IwY/JvjnJP2xGoOPq5wLrEH7kqW4Nf/XtKwyUmtrNsvjR +pSdR5a3rMHRzeO4yMxfAmZr2NpfxLxD3Z+ws91sBHBTs/rpThQlKS9mRrSiI +HWVxi+EnPkPJ9QqBnlpB5L+UH2mz+BFWPG2qyvcIoR5b/Dv77vegbaG7PT17 +le++kfjM0w0mA5mb2/m2YXy/VMajI11g5rm9c8vFbViu1neL2dwBtOyNG24t +bEMLA4oyr2QrtLIn6ix7CqNk7pyRtvRzcA4xdHRlCmO71oZzOj+eQluC14KY +qQhGdVCutrc/AbGqN3asFhEUdde5Z/y7Fmy3tvVelCfjnv7LtT2jNaAaGGl3 ++gAZp1p5k/J7a4AYOvRDSZGMT0d+fQhrqYGhygqOnypkdNton3qqsAZsDdLk +rdXIKOdwTCjZcZWv2SSrGJHx2CjbPfpENdhuntf97UHGQvuBQ4FzVWDDLf7C +oYyMH0dbHrfurYRIW5l4opyMtZY+qTvFK6GoTvHEwF0yhknu2ZCyrRKmXXSH +TlaTUSBErihspQLC2vyW1erIuEhep93YUQE34l4pbH9JxrKi3O5u1wro3+xR +ODhMxjNdfrdsLe6CCd+jS6ZkCq7EjilbpZZB33h5uCKVgq0RRp1mIWVg0Zgb +KEKj4JePDl1OjmVgezbWrZ+g4FJ3+UKtYhm4t5zSt95JwQ0F325JDpZCZNC8 +kJMiBTu2pB9Wli6FqmH5Qj8TCoa262kN9hTD5pqK52nJFLw3cuFDvXEhXFp5 +O+ueSsFOUy52YbVCWPfP7x2a6RS0Huu1Dt9bCPNfFGPnMimoKp8Qc4GnEIa2 +NOua5q72RzwJIjcXwD3Xnl7hSgry+sfnzOwrAIvtf8ezOyn4ZGbl5ytKPpQk +Hd18m4uK4/TriwJCt8Gp836g+UYqXioRmnu04TZIcO8c5dtExegAXQO3v7lw +O5zUGEmiYn6zPdfk51zI9vjs6SBExU0xt1465OdCgq5fj5Q4FYOZ2klHFXLB +m7s0uwKp+DXONcb1dA4citi6q96PihwWU8X82TfBTOVca1YAFWXFcmzEIm6C +/2ybY0DQKut03zvmdBOqXKLy5EKpWHqtbLZT7iZIGs1TS6OpeEOrU/ZN5w3Y +KjZAup5KRZm+XebXOW7A6PPiWc9qKr5rbhb6EJkNiVxHmsR/UHGdM+fcXG0G +/KyeyhqepuKklrWPeH4GnLDK9sn5ScVP3/nf2yRmgGD1nCR1lorDO47zc7pk +QKZFeQL/EhWX0oIt2SgZkHeXbLluoygqGj9ir464DvdPzs4xJUTxkrkA1z2z +dOjPKZXOthJFic8uHXz7U0H+aQwYWIuiXb2X/hKRCleZdgYctqLIsazc8nNr +KgCN4uNhL4pa8cLua2dSIDc77rGamygateXUlFWngFP62X9YAaKo4mz/bv+B +FPgVJ+N8OFUUZbwHhl9pJAOPf3Ues00UnWus2myiE+GZQMBYXYcohodFOY34 +JcKF6sO7U1+LYsWg4Utf50T4PtVarfVOFCc9tpbWHU+EV/bMpqo+Ubw18WOx +gy8RLhlt+hI5vqoPFBwRybsG7DKOVClOGr6wa46kZSbA0jeRNE9VGj55ycvi +C46Dea+9ArvVaPi46w4bt2Mc/Fp7LGVEnYZ01dJRkkEcTFJ9ksy1aPgmcd2U +vngc9J18fVVdn4Zs8/8mXu+8Ag+eX4wRtqIhsXTwgrLYFfDMn/R/GkDD2eGA +D0GfLsO3M/XmvJU0tLJ7dMbGLwbQs57nvyoaCubKZRTaxUBmcP2TNzWrdfuC +vct6MaCfVk+7VkvD1MF/TvVLxkBdS/3w5kYasthe8Jp/ioZrOxtceV7TMPjO +74fGR6NBabohiJNFw5j08miWaBS0PGF2hPDTcSnfoJK19iIIqnA9sxKgY0sX +T/CfnxHgULe37rAgHU9rx0yTvkYA+4OIgmUhOp64LVJq+yICsEIsNIRMR5nl +Nt9rVyKgLtdJNoSgI3edaP2mbRFQHjOdFCxLR52p9VxGiuGQZrDG9MJxOh7c +EWMeoBC6et9wwkSHjt6YWWMuGgq7m0Mv7NelY07Wviv6HKHQJLdya0KPjoF3 +JAM834fAlNDyuKkRHYsG+95d9QsBjYGFIHkzOrrazUTsehIMcy5zN6ccV/Ur +mc+vnrwAppFTo9YX6Rj6flRzd20AGC4SfHqRdIxv/ZiYnhsAOt4mhw9F0fHa +Ubc+/vgAUD3TmCIcQ0dVzUO71W0DYLda0pG3sXQsXlOhELQpANayK2QdTaJj +TZXpHllHfyi5GKwrkUPH/FiTI2Y7/GAhgufe93o68kQbSNb2esM2r/Gl1gY6 +EtFRktYt3iBn90KjqJGOcSTWGP8Db3A7GvbhTBMdV1QWI/LSvGFg3a+Fz8/p +iEzkNjf2hqbIT6pv2ukYxKyZonzwgtjokjc1fXRsfazWU/n1PAjHHpsMnqWj +lJa2jDjdE84oinS6z9GR1L/+XQqvJ1SMfb97ep6ORw/sbyet84RjmgleR/7S +Ubo3OFV6xAP82d//ZV+m44Gpcbs/ZR7wIcSOK249A6XfRvN0qXjAda8QiUx+ +BnLy6qr7vnKHbZY11vf3rfJlC4e3d1yBqfHvQO5+BgokG9lUprlCkWy0RYIc +A7esGNy8HeoKB9hNTZ0UGJg8cz/vqYErGJcu6IkoMdD+jpzI0KwLpPxRhZAj +DLx7vJqtUM0FSGldVA19Br4cpf3qYTkB1+upvp6zDBTb1+uS4eUAP2XDfKvc +GRgW4DwgYOsA/Um8WxPOMZB7F+u/m/oOUGEsp3XMk4HFDwo6+6UdwHgg4EGd +NwOz9t9XnB+zhzwWe8rNIAaWhmxoKbOxB+Qh6zhfZqDRK83B5xZnwFdLs2Ex +j4F6bjGvM/xsIcGlY+Z7PgOD87qz/zjaQtEVI8lPBavzI2Y5mNrCp47TiQ+L +GMjsIVYcFW0BDf3tfMsYmHdqYg/nog1wmRdzTlcz0EF2c+mdizaQ7bZRf7iJ +gQH505362dbQnPCa2cpk4HaFNf5eXyxhWXJ5X/GXVT//WUX1tFqCUtPuqEtD +DOTtvi2nXWUJFb8uS2l+ZaB1+snDrhctIfuU2vlnowycfL/JMVbCEny3P1zX +MMXAJqFQf1kPC5B8kCtRs8jAWbqDwkOSOcQN+Ljd2EbgKLlpsf2iKRytemQW +IExgljAR2e5hCn+j1mqdECHQzde1sc/SFJyk48W5KQSW77Pauf2gKahdyBvw +oRFYsSR2yZZlAgvC7/R1JAgsjfcrSTQzAZeTsvKL+wkcOm8E9mAMmu0TS6f0 +CAzrHOHIlD0Be06LR2nqE2jSbvnpBu0E8P88zSNvQGBiR+5M5eYTwBTqESEZ +EfgU3jSwsYwg0K7hwAtjAt23+AXqlBhB+d9kz31WBL5mSh0I3mEEAlKHvnGf +JfD+ysDD37sMYTgqof1RLIGsuLOFY2b6MHntvGfGFQLbtEqieHX14VfWSUG/ +OAIFNmzxVTuiD+xVZOt9VwmstO48+3KHPkgMFM4UJRLYxf/xUcKEHjgpNIqk +XSfwMiXnt7KYHkyNTDt5FBD45YW77dd8HfirabhevInAmfgtzv8MaoPElLQn +pZlAZfF0q/oWbTBI4frM94zAd9IVM+oV2lDEbKxhe0Fgk01MTVK4NhgHyJxh +thJI7m/PootrQ1UJT3NWF4EjC1lXls9pgeumlrCtXwjsc2DZafMfg7Tq3Emu +IQKH9zyNklnRhKZTIaZrh4nV//fG9h0TmiBSIC87/ZXAJwr9STqNmvDycN5g +xxiB6c0yIT5nNUHMI/zw5WkC6wTNy7a3aYC+oGVJ2H8Eqhk7Cks90ICgxwcF +/X+u+vcx4cDbGvB2wzTL4ReBxaH3idwgDQjLsfpXbX51Pwdoj+WlNaBMU4lL +5Q+BKW1ZIc+FNaCXJeCz/y+BSsoLmg4cGrBHqeM4sUhg7MNP1X2D6mDGLKoV +XiKQu+HhwfJ2dYiKjhTjXSbQy0/uctJDdajYbX1tw8qq3+zMtJgCdeh/q7y4 +ssq3Hmoaxierw/8AgEARwA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 9.5}, {0., 0.935538188244949}}, + "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" -> {}, "GCFlag" -> False|>, + "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, 9.5}, {0., 0.935538188244949}}, + 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.992072677235712*^9, {3.9920727577498055`*^9, + 3.9920728175385494`*^9}}, + CellLabel->"Out[25]=",ExpressionUUID->"43d4b5db-4b82-a34d-8e0e-2398135a5e11"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{ + 3.991842459440727*^9},ExpressionUUID->"62777ed7-7ccf-894f-98ca-\ +57d1179827cc"], + +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", ",", "9.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", ",", "4", ",", "9.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.9920728669646015`*^9, + 3.992072870084917*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"b1237968-c91f-db47-bafe-6a6c03ba541d"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.059885579974563105`\\\", \\\" \\\", 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.02621460962034495`\\\", \\\" \\\", 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.059885579974563105`\\\", \\\" \\\", RowBox[{\\\"Power\\\ +\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.02621460962034495`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.215433513682166`\\\", \\\" \ +\\\", \\\"R1\\\"}], \\\"]\\\"}]}], \ +RowBox[{RowBox[{\\\"720.2371797638953`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\ +\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\ +\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"49\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"6\\\", \\\"\[RightSkeleton]\\\ +\"}]}], \\\",\\\", RowBox[{RowBox[{\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"-\\\", FractionBox[RowBox[{\\\"0.4023668639053254`\\\", \ +\\\" \\\", SuperscriptBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"18\\\", \\\"\ +\[RightSkeleton]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}]], \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"4.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"-\\\", \ +RowBox[{\\\"1.`\\\", \\\" \\\", \\\"R1\\\"}]}], \\\")\\\"}]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", 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[{RowBox[{\\\"0.059885579974563105`\\\", \ +\\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.02621460962034495`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.215433513682166`\\\", \\\" \ +\\\", \\\"R1\\\"}], \\\"]\\\"}]}], \ +RowBox[{RowBox[{\\\"720.2371797638953`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\ +\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\ +\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"49\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"6\\\", \\\"\[RightSkeleton]\\\ +\"}]}]}], \\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \\\",\\\", \\\"b0\\\"}], \\\"}\ +\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.`\\\", \\\",\\\", \ +\\\"0.65`\\\"}], \\\"}\\\"}]\\).\"", 2, 26, 1, 24488269323719620004, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9917125179761257`*^9, 3.991964171446245*^9, + 3.9919651511804237`*^9, 3.9920729946255875`*^9}, + CellLabel-> + "During evaluation of \ +In[26]:=",ExpressionUUID->"954e1a60-cf74-8f4d-a50f-8a960afb805c"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.8896347487471602`"}], ",", + RowBox[{"b0", "\[Rule]", "0.6340513437011408`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991712518051634*^9, 3.9919641715267353`*^9, + 3.99196515126849*^9, 3.9920729947274685`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"5dfc574f-dbf7-1343-9c01-acb4d788aa7e"] +}, 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", ",", "4", ",", "9.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", ",", "4", ",", "9.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.9920729767685223`*^9, 3.992072979235941*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"fd3ea9d4-8a83-454c-af78-c4730cfea45f"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{RowBox[{\\\"-\\\", \ +\\\"0.22897427637332954`\\\"}], \\\" \\\", \\\"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.02621460962034495`\\\", \\\" \\\", \ +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[{\\\"151.58543809415255`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.22897427637332954`\\\", \\\" \\\", \\\"R1\\\", \\\" \ +\\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\ +\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"+\\\", \ +RowBox[{\\\"0.02621460962034495`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.215433513682166`\\\", \\\" \ +\\\", \\\"R1\\\"}], \\\"]\\\"}]}], \ +RowBox[{RowBox[{\\\"720.2371797638953`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\ +\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\ +\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"49\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"6\\\", \\\"\[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, 27, 2, 24488269323719620004, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9917125235776978`*^9, 3.9920729948158875`*^9}, + CellLabel-> + "During evaluation of \ +In[27]:=",ExpressionUUID->"2ee84372-c551-7c45-99a5-7f3b805043f9"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.8896353692344335`"}], ",", + RowBox[{"b0", "\[Rule]", "0.6340508338428626`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9917125237225304`*^9, 3.992072994973898*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"94000403-f487-214f-a357-3d7bbcbdf9c2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "0.889"}]], "Input", + CellChangeTimes->{{3.991712542905905*^9, 3.991712545766283*^9}, { + 3.9919641812561817`*^9, 3.9919641814730263`*^9}, {3.991965164548561*^9, + 3.9919651652528534`*^9}, 3.9920730290077877`*^9}, + CellLabel->"In[28]:=",ExpressionUUID->"5f2338d5-2214-5b45-be4f-8f529fd780ac"], + +Cell[BoxData["0.889`"], "Output", + CellChangeTimes->{3.991712577539974*^9, 3.9919641835911674`*^9, + 3.991965166337839*^9, 3.992073092278166*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"096f5708-1147-0f4f-81a8-96d92d23d609"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.634"}]], "Input", + CellChangeTimes->{{3.9917125549495907`*^9, 3.9917125609834213`*^9}, { + 3.9919641902090893`*^9, 3.9919641942126675`*^9}, {3.9919651710886517`*^9, + 3.991965171325409*^9}, 3.992073041938572*^9}, + CellLabel->"In[29]:=",ExpressionUUID->"bcb210ff-bcae-1443-b4ad-e4a575fa430c"], + +Cell[BoxData["0.634`"], "Output", + CellChangeTimes->{ + 3.9917125776046295`*^9, {3.9919641919259663`*^9, 3.9919641946011486`*^9}, + 3.991965172422703*^9, 3.992073092320671*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"269388a0-676b-8d41-bab2-abce65c84243"] +}, 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[30]:=",ExpressionUUID->"4ff2523c-7d4f-5947-a370-80f5570bb8fd"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVl2c8Fe4bxoWsqHPs7ewjhFRCct+RlsgsKWXvEhWpiOyRkCQlI2QTmRlZ +kV8oSZIyShmHFlKkv/+r5/O8/97XdX3Jdp6mjuxsbGxza9jY/v+6jszxsbER +0G+Xx0D0GAt2J+/c/zydgFuaDPoD7rMgSeQPn9whImqi+rp+dRZ8l+s4/+k7 +EcebWXtGrk0DvVPG/0K8IIaMu7dWXJ+CHs0v3Dd0hFB2c7ockXcSgtWbd5BG +hLAz77DNitoXKF4k/NxyXRj1SN9/K7/9BA+tvuwR3SGC3mujwt6bjEHD/h49 +93ciuPPzq3nNl8Owa0WhdU+kKN5e9Nox2DQI3ZA8k6gohlySPz862PfDVvK1 +8oedYpj8UKRD4lovEDrml819xVH5YNsJ6lgXLCx5fnUTl8CEFvLIvEoHmM5b +O3K3S+C2Sfqz7YItEB77ytfbWxKF4/o417M1wNNHVluMBaUQeC88S3tfBZfS +LbwfNUqhFHHa0DW6DLQk7KyibaUxdEI/dnh7EXgeGWubIMigAd3MVSEoB/y3 +TXUJ18vg2pzOnBO2GXAzneNKubUsOn0O/te05w5QX8aVD6yTw72ho98kfiTC +41iV+DPFcsgY7+wosIoDkYX80GkGCf2UfV29syMhgvsCp50/CQO7dyZOlwRD +4HDXG2I3CYu2Le91eRIAW1Pes0LoZHzsKx2nG+ILfbTNxicvkbHOYTBCi+gN +v88L8Jz9j4zntWOrGtAD3ubdX3OAQsGtFY1BvzMcQSer+ZDVWQpKyTDSu9/Z +wPXTdNbLZgoeGQx8qe9sBXekdDv5JaiYYXx5uQzMQen6l+VAVyqmJKZfWbh7 +CC6M7/GqfkLFchl/W6LiPtjPrqK1UZCGmS8vFdR26wL3VyuTNXY0XKbTT5u5 +7YTABsy/W03D8/cG9QzC1SHAvOSIFy8dDcfHXXXiNsP2rjd7eG3p+LThUyVv +rwIMiewO4amio1vw03CNRBpw0TVFd3EzMKqqIq1NkATTohOT2icYqHujembT +LXGw6JET9C5hYEijdscUXQgKj9yJWP+PgWpjcnZZvwSgofkFnrZgYlGJ4UH7 +X1xgMRdryJ3DxPr+Qo+aqTXw/Hron3//mNh5+W7Ma/klncPaEgpOxgTsBauy +3jYWzPRL5c//IuBtwqix8zkWtEraPglKJ2Kyl5iiJWsa1s17+xXvEsSr5Ecy +PySn4U/Q1ea1E4K44/H2itx3k7Cxui/j6HUh5H21c+zTxgngGFNbGG4Xx6EI +UdGSyU7IWnRSqPGUwKFbRt73rrQBqyl5tk5aEmc27MySmXkCOeRbFrbNkoja +WX3BbbWQrjBgyu4qhaMte2TV+CtgcOjY5zSCNO7tPty3zrcUzDUoBK0aaYz9 +ObfJLycPfPZ8frbiJINfDZ3Wi3bcB95pH4aDgCwmGJ1z+PbfPRjSOCDx9JEs +Ou4y6X775RZ8VbHJpFnL4eL6Fa6QqwngXa/bTV2Rw59qBZc5fsVAdwCxjWFK +Qs+5Up3yC2EQ8pMyW5NNQsX0bDU1pyAYrLOw++83Cfcft7BM/nQRQk6Gy3ob +k/FNCQ//v7vnwMlQTsn1Phm3T67tbP/pCZPXB0I+LJBx4umF1pVqF+Bnlsv3 +HqCgf5MX64u4PTjxzsmI3qFg9pN3Msf6rUGkbcuxrzMUfD55KvaI3BFweJ34 +cc8uKt77Mi0y99EETLXEqqRvUlFV6D+CUpYBjPysfX1mkop3swWk5kz0IXex +VV9Ei4ZSbppjdRkIrf1df42u0ZAo/0eI3KAJV3gX2bhHaRhgcbFD/9MWGIzT +O7RzGx0bQKsn/6EyRH2/Ns4TQ8exfIKdUQATvFJ1umjDdLxxyPb2lAoFFlMJ +bI1qDKSY6tcUykgD6SdHwJswBpovnLLkKxeBwBvWhviGgfSRuD6tbwTYJlDp +oKPAxJuWl/JXdvBB1DuV9lp/Ji4V2hz/u48TCLp8WRyvmMiz3+qDudo/HZv1 +4ZJb5Am4zHiiXdnHguSqwt82zwnIr9ASeukaCzYlFzm+8CXiHSnuvBEhFgRE +pfo+kxDESEmTi+ZHpoHAeCHXWCeIYpN93MGaU7C8+N58wUkI+85C6a27E8Bn +keiXkiaOFVnI9t36ORhenOYX3C2B5/VvjCr0PIW0Y0sbx75L4JOtKZwOi00g +alnx2TVFEoOmI5HDsg7KPSX08nZK4foQq75DbpWQ32CppDAhhQx5wrpHfg+h +XV63wu6aNArWP/jz3qYAfhh9av+5Qwb3V+u7VEpkg16c6kXtcRkcKdOZlz+e +DtUsxnPtSFlU6Z10MI28DZGBi/kBW+XwpsdA6vPSGyDKqFE50C+HeVZpda3t +seCtdYIeqU3CkuTrs01rIiDM3/D3tXgSspJnJolXr8KmbmLq7EcSRii5uXA3 +X4ahy2WhS1pk9NC4NXma0wdkNOV1HK6T8UZpt7vV3zPwnf3sU/nR1Tw9M6LR +d8oNvF0URWLVKQgtGGdp5gC9h9+pa4RTcMZfqKGv6iT03i68bzNAwfMbjGUd +Kywh8MJ0/8ZNVPT5sL7Rn8cMGh3+vTW6ssqj6JWVkOuGUMgKvC/8mop6tQ6R +YuV74MLf3yDHoOFjYY+FopJd8NkukZnrS8P6E8E2cSE7gM3h7uuXz2nY5RJP +2a+4DQq9/cyOyNExdVnj7W83VbAZVhON9KGj9o6q70KSGyHnaFOu6H90nGiw +KEm1pMKVUdo6NhkGjmSOaRwmyALX2oUtUd4MzCqcfBclIQZuDxtUjrYw8IS6 +4pQzuyCcKcv1yRFm4rp39o2zvPxAO8QWkujKRKuE+aCom2tB7c7zC6F1TLzH +Ifk6v4oNDN0KNG9fIKCk38OTURUs0F2IsoqiEvHB1F3jiiMssEoVltryjIiX +zW879jROQ/LJfZduuApicEX4kwsDU/Dp/VbHg0JCqGNi8YnuMwl8SyfSRTSl +cauxVIDD2hIY28vuThyXxitfxa+JcOfCn50T//EmyODTl+u/8kRnQo9+fW/0 +Nll8MCuy7fvSXWALPeV0aEQWx0bPULNtksBiuP12Z6gc2sIDNqZTPDgrOFWu +CJJwR4i74qld0aDY0urQ6kzC3EH2hTs8oXDVdXFsvIaEfOJWrjuPBUJ4wW1m +7gYyVgrfNf9H9wMl3eNVE45kVLIJ7nQ5uHpEtqKSp6vIWGPJE1i37jSMSuvo +JfJT0MgyWMaY5AzZ41raoicpeNtDsuLMd1v485h/7VwxBXM/FM47Eo+D5bda +wQAOKhb1adAt7lvAPjWdb/YWVFxcYMv/9cIYxjeoJE7lU7G9ooxVMbAfhJfm +uLv+UvEfu4vubq7dMPDzusE6IxryTs/It+0FyDzA3TefSUM7OHeLTUQDVorN +lLTnaXh2a6DQ31I14CkRMKAa0LH72csn1IdKUM4x+Sgig46X3k92Ti3TQXv0 +8Xe1n3S0Z/5w/StOBm+r5Tn/fQxMk5weNTGQBK1RYgftDgNNn4846tsJQ9L5 +ZTfmNAOFeH4aVg1tgD/OLab9wEQdgcdPOqJ54JvzSb7R+FV+xk62nyVwwOzE +3p6gSSYWqjf9KJH6q+Pwqz5BQpiASh+3Fta/Y8Es83xGUiUBN1Gv5PYns2Cs +36za156Ilc9ayj/TWaDxumyhf60g+q9NKTA+Ow2Siz7dUg8EMTTqmG2c4xQ4 +3bYrbjUVQitPBae0VxNwbb3+Y99ocTTx56nmke0CyuNNATrKEqjXUjZs498O +F3IL288NSeArU7Pos8HNYHR2t8rpMEmc/NY9v29jPWgLaj1eZkqhk3bXNSRX +QYLKkUNfX0lhmxvfSDpbGbCRe7l9faXR7sjvstJ9haBq9nHPaYYMng112Z/R +mQ0jdgJZ8i9lMGW9a/jroXTI2XOTfuGsLH4tvkT2dEiB/tzdJYokOfzIf9+f +7VAiuFids7FulkPK1FDyQO311b0eYlG7mYQbI7t0FF5EQHjz2IpvOAnDIqVn +i0SDob/fU4vtLQnDT9hfWajzh4h1+zRRlYxf046nqzX5wGKxUrttKBljnJ1o +m0K94Lw2fjHsJ6Pf0Ls8JzN3YEQ6r/NQoiAPQ79n/aIDRPw10tvvT8HLO+88 +nDhqA6qck3tvd1GQHmRgXx91FNZ3JhlLUakYu1vfrDTDDBb8zk47n6OiwlL5 +i9fxRiA4aR/1uZOKfCVeKRSPvTByRXgnTZqGyof3zvzT1oWFXN+6Pg8a7uq9 +0uJ4VhswfhaqmmnYYbHz4M3+bXDTPtHCQZiO5055GlOXVOHg4VDlZ+50tDaf +Lnf7sRGaqq4mbWiio2ySpfHSTyrocpTEkQQZ2Gv7aNFPVA4WBb7G2rswUPLK +YqPNazGwwa/pjjUMbCx2DpiJF4T1azOvDPIyccJ9U0fxMj98j3CxCzrJRCIn +g1qtxwWt7Zvs9zxk4i0/xZORRmvA1Gzs4RUHAjrISH8YqV/tXycz9icCRPxU +mvYnyokFG4ZqTw0+ImJDfKd9bf80mOZb/0m3EMRd2ykvLv2Zgq8l74Ty/goi +z8CDwHd5k/DD3bplkCaNqnUfinctlIAUJtTTe6Rxx5WiLYGvckFD98uBkMsy +eLTo5GUC8z54iKcs+5Jl8QXRlBYwkgqzH941RnXKIs+vBTUi+RZkcgvf8/WS +Q9EsMZ6NP+IhrrXFiIeXhHc0dp1jicfAMmk6cf44CV9YHjiYWR8KwcXXJnpK +SJh0/GNT/odAUH30q7WGk4wLtE2+8WsuwsCL726bjpFxZ89hm2/fz0L0G8n7 +7kVkLO71G+RYPg2Oh9c51Kyh4IQQaOGkM1hy+arNmVPQ+BJ73/BVOyi1CySu +zV71jd4fse7fjkOl1a/KykUKHjfVOqh64jD0B0+6WhhQMUEvxtPC0gSk6fez +OdKpGLN+Miap9gBc/PVm9t5PKp5O0V8fnLcb0Cd/H2E3DT8fVk0YIiGUx025 +UJJpeCDL4NfazxqgM5SdRJ6m4cXUyMSd+7bA9zR5Q1WkY9Z4kYFI0Sa4d3FH +V0cSHZ33egt41DLgMPgPK07SsXbL0MODmWTYdjns4r2dDHTZJvT8lqoUbJri +o67EMfB6gd6/tTwiEM25aWjL6Oo/gv+kySkCJNfWHePbxsRLb350G9jwQn1G ++0RXOBPjR/6+McjngCsieTW6H5iYR3ISsqWs6Oju/WSiOEbA3Nc1OseDWHDh +KLfQxhgi6ikQWyvYWGBd9/nTkzkm7tW60fJNZlnns/vbbn4+An6cTzVSHGaB +hM3R8w8LCHjj38v1eI8F2gs5tgZHiRhEmzMOVGZB4sWdle+XiPg7tOJMW+A0 +kGw76QfuCuL6/Vkfhi9OQcok7V3BPiEcjbI6HT07AUbuMsedgsSxaHvzwZtX +uiDmXXelOVUCd/L6J8j2t8O4Uahow0sJtN3W/8+6sxmm2GLMzlyWxHcDWzp+ +36iHIPsDvgwZKcwGGfUnAVXA5dI/8vKZFDp3J4tH6JeBjIzk5iAPaayssNU+ +2lgIxq/twgqkZPC6V/4pFXoOKD9fqpZtl0HRgtynd2Uz4N7Zg703XWRRXfOU +SnFfCizXuW1mF5XDIR1N1dm0REiYe7noVC2Hcua7km9IxYFS+60ZUyUSWvms +6ZzVjAQex6I1p66SUGr4l0GlXTAovpPljXxFQi+NkMiUnQHwoVfwxpgCGUu8 +fdtmyL7webI42iaQjH3tXJ75nV6w/W2O78gLMtK23H8r8swdAm+Hch1jUvDJ +aDj7sYOO8PFFxDOTCxSUKC99fjzFBmw0uVO2dVCQ/Da1RWzxKPR5ewgIy1Jx +cEhSV+SbGcSHbDo3d5qKS3aGp/eKHgJ959f+PW1U1NVVjB/s3AvCTRmPGWI0 +TKF84DIK1YUVg0kud2cajp9v03o9ow0jD8Tm8+ppSM0UsUJldeAbyuifWk9H +OT7vpQ36m6E5vljL1YmOP+KWDQ1tFaDbyV6Av46OmpcCYy/p0YAmfO5VKT8D +ew6lyIzclQPvBHdtY3sGXhUqPh26TRwGw8Pfuj9i4NKpW7+t3gmCdbFsyDlO +Jm6apAfK+gnAQPbdl75WTFTiZxx4d5cL+E+cGMgpYOKOqXiYu7MG+tr/znhb +EXDgtknGeBMLmu9t7x9kJ+KZB52qt06xwG1JQKw4f3Xvnc4mlY1OQ/GhiZoH +BoJI//OGOcE3DXPiKu5vfghijbyE6b/mSXDKGjKvl5TGfY4uR7M1SkFDe/Cz +Sqs0Xmiv6GVq58GRVqeoJq9VP9CQp3z3uQ+1QRHE02KymCRNPnvE4h6Mr7vh +kdsoiz/sr1blBN+CDiktkpGzHC49tzF7ppkAWfE/JAU4SWjzTnWYHB4D44dW +lGKPkDAjimnkJBkGnCaW0635JNSZL1efJAdBaHXODd1/JEwfz7ekeF8E5eS6 +1h6LVZ9NuznTsuccXBBMdXbLJaPEOOvGDx9PYP70mjNYJuPG5HaCrrELlIne +3PTx0KofvPbyMeqyg3XqtbcE0ik4IvCh4qqdNXy+LsJr9pOCsuacxF/1hyFV +qZFhtIeK0G8clZJqAlUq1spxKVTcLCEV46RsAEXn94+Fz1KxMTahRPDvbjhX +tb1dEGhoxBbP0W2DULfleHl1Ag3n+xQ5NplowofVWBL+TEOVjtfmOTe3gJO4 +enel1iovtUYje5SVQbjS4a1LPB2FCPwPr0kxwWHW+rD8p9U+Le8ovj5BBtFr +BvXKGgycGfpPmZYjBTmnw19MRTOwWnfDhvfHRYDrYJuw1hAD0/0ESvWLCfDZ +XtMmS+X/fPB47OjihayGpSOtV5l4MnyCjfs3B3QUvFW+P8DEiCcjlzblreic +utJB3/OGgAVT2/1Dw1nQe8GqbjmIiA6vzz88w8eCHFMxK/JXJjpztvJX3VnW +EWZUetr8YeIekd5TZplLOvKMLx5cawl48kEs9f0IC5QvGwzr5BCw+OdI1qd0 +FkyGGqtvMydiydbsa+Vqqz7SxS46ukDEdydy1p4In4ZMkXMmo0mC+JD97fLR +0Cl4RAzzStMTwlCGh+y7pQkouR1ZaH1ZHM/bvZSsK+2CJne5V8MyElh29svE +Z/YOkM78Xm/3XAJTm9PfKM02Q3V7iaOXryTeG5uCN8/qgRZjavFYTArP7HKo +5yiuAuRM2tjSKoXX9n/cddSlDJSkGvS5nKXxr9YOsFkqBJskCuOAqAzq1Sgu +rZjmQD/b2RaJZhn8s8hQ+AAZIMmXm0uzl8XddlQ+f4E7QGj3954hyGGdqxHH +UEci5DSxtbmXy+H4F8Vja3bEQfqJDM20jSQ8n/ef3gXPSNhXKRj85QoJXX0a +eRUjg+Gwtc+ZrhckTL2Xm/Y4IAAi1Rcbt8iT0SmVGf3J1Besub/NDPuTsWFh +/EPPjBckMwcbN3aTMaHyUkw+pwcUZgiH9NIo6BqbmPXPxxHiarP5+89T0Mne +r2m+1gYWzURbgtso+Cr+08BZFSvQ2PvGPU6Kin8XParrxMzhQ2RUtZYHFUUj +LhcfPnoITjBif+m1UJGjSbCh7c9eKLad+PNAmIah+/fvGsnThasyFKVKBxq+ +0d337aXiTlDdUniI+njVb7TbLt22Ul/dx/Jiyvyr/FIN7ge4bYbLKi1YY09H +wVMfOj1vK4BFw6t9UTV07Jc8Ri9zp8HNu/1zi7yrefjoqzdrRA6K+zbeeGrD +wDL83SvvJA7JBa/mZx8yUOMH81AAmxBwcliHNa1hYpTtRRnZagEweKTO+/MI +EyU6CEd+POMC1bwFwTe5THxBtlJSbFkDIlfXxXhYrPpL0hLPcAsLBmo3ostf +AsbmPknj8mKBWHTV9K1sIo5KcOtu+DINxzOLJAr2CGJgrKHtb8Fp8O0aSDo9 +I4g5dzwt7HsmIR3vphaLSCN3mN3GuiOlsEcrYOlRgzTm6JiOS3rlgVMoQ8HG +QwYfC+9ptkq7D3aV/6RcBWWx5rRXvHvcPbDJnNXdXiuLXcVH5WMqbsEQ3dBW +027VN+rypDlOJIDyIm/Q9TUkPPqfWvNQQwxYfeH2GzQn4SeOWt1j+8Ngd2a9 +B+SS8Gv+KIWlFwSlWit/wpZJmPhtzVZSwUV4u5TxnWRGxg8iqUqPvM7BV5UP +zyazyZhVd3JCrsITInZla9/8TUb1AtXbLiEuMCxLK7AypGB4bHHM/A87qJZ7 +MxifSsEK2gZz9bvWEJBPU8v4RkGrj38Kzs4eBrY1CqGdelS8GnndP+uJCXBu +q/Xuv0XFV81cYnyuBvB0K/vx5Wkq9mnrv7Fk6sN6ywCuRG0aFvcMhdGDEHDt +zQGOOBq+93z11SNcE5QD7HOufaSt+n3HVHfdFkjvq1v/ZzsdXZ8FzT30VIYe +M7/h6lg6MpobamoOMmFKvzs+Z5SOZeMioxL8FAgXKf7gs42Byx45TrmjUvCx +VJ9pG8nAv6srsyNcBFo8iZvr3zKw/1fbhFwPAWKrfe2+KzExLMZN0o6TD8S6 +bl6HQCa27J32GyRxAmvBy/XVayZ+U3RgnJ9Z0bl6p/b6q5cEXC7c0RYWxYJA +Hs74z5eJ+CtI/dvmDSzoTC1JNGExccx2/LrHu2UdDS+j/LhfTCxIVLnxfnhJ +59ugzDbVv6t+ffUbzcRxSWcfx+yOYHYCRuzNGX40ygLNqN2JofcJqDf1b+2W +TBY8Mcwm5ZsQMcm1YuTpVhak+Iy32c0RcY3j1tmMqGn49HXfF6XEVT6lPPOj +o6agObtSW2KXEFpvdTzsxz4JI6WN5m/9xDHqY1mh87MuGCrfa0uXkkDD8d4Y +R4kOqPrvAbHimQRWxn3uUGBrAVJB0+z3c5LI4or1+vKpHs6nH25dKyKFjjuU +85+2VcGJ3vmuHc1SGDRr7PjWrwy2SBJe7HOQxmdeET1xEkUw4cPuc1tIBn2o +noq8bjmgcKd4361GGdQ8vyMgyTgDLF+/FvKwkUXTvtYygsIdkDzILWS/Xg4F +p/fPnHmfCKry4oqzpXK4dXfQfPeBOLBSyDmpL09C4Q1pas5RkTBxoq0lK4CE +YzPqz4PuBoO7LCXLs4eE8SUSnoFpAXBiwu3wEIOME/p6yWHuviCeREhLu0zG +gR6FkMv/vKCj+6d993My7q4UysyieEAzfUg3lkrBNnG1Ua8YR3BW2aqcfI6C +66yeKVr9ZwO7R1PfKLRS8JmBEq+RgRW4PeS/YyRJxdmMlYUiRXMI5a8ZfO9G +RYkz0V7Clw7BdKjb1pUmKnbWjpwbFtwHyw+jU1yEaCgmG+W8u04Xdoc1NByz +pyG/w3lOdoOdMHBhYXm4hoZPTv2GL2fUwXbBvaqHj46bTncdMfffDFYBXXq2 +dnSs/CrfUlShAOJT0U77q+mYsHGX2fQVGnSPhK9N5VnNxyrTx4lrSPB8PqIh +6CQDU+QPyaQFiINP/e/g0lIGEgX2nVAUEgLLTZe5XdiYSGmcs3zxRgBCHnNk +lx5e5Z3kF5k2wgXN3bqqng+YuPvXnMWX/jWgflLw2KQpAaffJyW8bWXBWAdl +vvgPAe+fSviv2psFs6b8/fz3iTiw30ircnIaHhnEPVPaLYimn092LYpOQ/WD +IqXaKUHU8FEdjHw9CfXrl3cxhaSxLaLg/XHnUjDUfBH667E0ejXbJdVF58Gs +I9fFElcZ1M0gbywuvw+VxjsyPm+QxRvEyDdyxffg3inp4oAqWdSSvPElu/sW +fM7vX1NyUg6Fq7dla51JgHMFIo+M2Uio8qzh1thgDAiX86cFmpHQ5ftC7x+b +MPh04EzRcg4J711mNHBZBEHbUp7yxiUS/it8w3refhGKi4RXhYKM4w89tY3C +z0F+w8rFvCwymiUmXHDo84TqiYYRzUUy3rDMKsi+5wILmdOuogcp2Ehae2B8 +rT1cT3RcNrtLwdN6FaFaNdbQub1wz76vFOw4nZQzwHUE1NxPPorQpaJH9eUY +vV4TKKiaSPRLoiJfnui26DADMEv8kFw5RcUbQUudd7T14VguOcd8Bw1rCko2 +u8YjsJ/e7J4XS8OPX8+7V2dqQn9LkdmBMRq+qJkMC3yxBerV2EruqNMxcdfU +zbtxylCYGTxmc42OvosiLB9HJhR7hZU4jtDxUnqL/W8ZCjw5evKr5FYGcvGd +uZTyTwrYe7NMpSMY2FaekH0iVQQyg7Y3BgwwUMzbErOHCTA2lvTxliITn/hG +JZFJfGDcZ6f4N4CJ6hkSc6NbOSFAuiHMvW+1f9lvT7/c8E/nWl75bskeAoqI +CJWxx7Dg8AvLS8cuEjGQNXw7msiC4y1LDyenVnmMLfK6vLSs05mU0i6/wETC +k78Lr1eWdK6yuZl2LDGRcSDdpil4SedExUux5BUm8j89epN975LO/wAU6AOG + + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1VO0HGkUgNHYtpMb27bNGzu5sW3bts1BbNu2bWcy5u41D7vqfKfrpetf +qzsopFtw19ChQoX65hK4r3Cpzl/m72hKHs7Z9Sc9N/Q4wrBS1+Bv8/c045Ne +TGV+13k5bx5ABm7q8YRlla7JP+YfaM5nvYQq/KHzccE8kIzc0hMIx2pdi3/N +P9KC/Fy0G0QmbuuJhGeNDg58UTa5taQAl/RgMnNHTyICa3XtwLthsw6hIBGJ +RGSiEJVoRCcG6zxfhzBs0a0oREzW29UlLFt1awoTiw129QjHNt2GIsRmo119 +wrNdt6UocQJnZdeACOzQ7ShG3MC52DUkIjt1e4pzWQ8hC3f1ZOIFzkE3IhK7 +dAdKcEUPJSv39BTiB967bkxkduuOlOSqHkY27uupJGCTbkIU9uhOlOKaHk52 +HuhpJGSzbkpU9urOlOa6HkEOHurpJGKLbkY09ukulOGGHklOHukZJGarbk50 +9uuulOWmHkUuHuuZJGGbbkEMDuhulOOWHk1unuhZJGW7bklMDurulOe2HkMe +nurZJGOHDiEWh3QPKnBHjyUvz/QckrNTtyI2h3VPKnJXjyMfz/VcUrBLtyYO +R3QvKnFPjyc/L/Q8UrJbtyEuR3VvKnNfT6AAL/V8UrFHtyUex3QfqvBAT6Qg +r/QCgtir2xGf47ovVXmoJ1GI13ohqdmn25OAE7of1XikJ1OYN3oRadivO5CQ +k7o/1Xmsp1CEt3oxaTmgO5KIU3oANXiip1KUd3oJ6TioO5GY03ogNXmqp1GM +93op6TmkO5OEM3oQtXimp1OcD3oZGTisu5CUs3owwTzXMyjBR72cjBzRgR/1 +ZJzTQ6jNCz2TknzSK8jEUd2N5JzXQ6nDSz2LUnzWK8nMMd2dFFzQw6jLKz2b +0nzRq8jCcd2DlFzUw6nHaz2HMnzVq8nKCd2TVFzSI6jPGz2Xsvyk15CNk7oX +QVzWI2nAWz2PcnzTa8nOKd2b1FzRo2jIOz2f8vys15GD07oPabiqR9OI93oB +FfhFrycnZ3Rf0nJNj6ExH/RCKvKr3kAuzup+pOO6HksTPupFVOI3vZEv5qVU +5U/91X0Z1QLvhOWh//8vz+2z/wD6/vfg + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgEAURMEvGtiGrWhgYmQJBsKBcOBZugWogWAPTrLw2OmWPK9nFVGa +iJhSOdY7PlU/1d4zj/2Qt7yn50/xDo7jOI7jOI7jOI7jOI7jOI7jOI7jOI7j +OI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7/ +hl9aG5QV + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl2c8Fe4bxoWsqHPs7ewjhFRCct+RlsgsKWXvEhWpiOyRkCQlI2QTmRlZ +kV8oSZIyShmHFlKkv/+r5/O8/97XdX3Jdp6mjuxsbGxza9jY/v+6jszxsbER +0G+Xx0D0GAt2J+/c/zydgFuaDPoD7rMgSeQPn9whImqi+rp+dRZ8l+s4/+k7 +EcebWXtGrk0DvVPG/0K8IIaMu7dWXJ+CHs0v3Dd0hFB2c7ockXcSgtWbd5BG +hLAz77DNitoXKF4k/NxyXRj1SN9/K7/9BA+tvuwR3SGC3mujwt6bjEHD/h49 +93ciuPPzq3nNl8Owa0WhdU+kKN5e9Nox2DQI3ZA8k6gohlySPz862PfDVvK1 +8oedYpj8UKRD4lovEDrml819xVH5YNsJ6lgXLCx5fnUTl8CEFvLIvEoHmM5b +O3K3S+C2Sfqz7YItEB77ytfbWxKF4/o417M1wNNHVluMBaUQeC88S3tfBZfS +LbwfNUqhFHHa0DW6DLQk7KyibaUxdEI/dnh7EXgeGWubIMigAd3MVSEoB/y3 +TXUJ18vg2pzOnBO2GXAzneNKubUsOn0O/te05w5QX8aVD6yTw72ho98kfiTC +41iV+DPFcsgY7+wosIoDkYX80GkGCf2UfV29syMhgvsCp50/CQO7dyZOlwRD +4HDXG2I3CYu2Le91eRIAW1Pes0LoZHzsKx2nG+ILfbTNxicvkbHOYTBCi+gN +v88L8Jz9j4zntWOrGtAD3ubdX3OAQsGtFY1BvzMcQSer+ZDVWQpKyTDSu9/Z +wPXTdNbLZgoeGQx8qe9sBXekdDv5JaiYYXx5uQzMQen6l+VAVyqmJKZfWbh7 +CC6M7/GqfkLFchl/W6LiPtjPrqK1UZCGmS8vFdR26wL3VyuTNXY0XKbTT5u5 +7YTABsy/W03D8/cG9QzC1SHAvOSIFy8dDcfHXXXiNsP2rjd7eG3p+LThUyVv +rwIMiewO4amio1vw03CNRBpw0TVFd3EzMKqqIq1NkATTohOT2icYqHujembT +LXGw6JET9C5hYEijdscUXQgKj9yJWP+PgWpjcnZZvwSgofkFnrZgYlGJ4UH7 +X1xgMRdryJ3DxPr+Qo+aqTXw/Hron3//mNh5+W7Ma/klncPaEgpOxgTsBauy +3jYWzPRL5c//IuBtwqix8zkWtEraPglKJ2Kyl5iiJWsa1s17+xXvEsSr5Ecy +PySn4U/Q1ea1E4K44/H2itx3k7Cxui/j6HUh5H21c+zTxgngGFNbGG4Xx6EI +UdGSyU7IWnRSqPGUwKFbRt73rrQBqyl5tk5aEmc27MySmXkCOeRbFrbNkoja +WX3BbbWQrjBgyu4qhaMte2TV+CtgcOjY5zSCNO7tPty3zrcUzDUoBK0aaYz9 +ObfJLycPfPZ8frbiJINfDZ3Wi3bcB95pH4aDgCwmGJ1z+PbfPRjSOCDx9JEs +Ou4y6X775RZ8VbHJpFnL4eL6Fa6QqwngXa/bTV2Rw59qBZc5fsVAdwCxjWFK +Qs+5Up3yC2EQ8pMyW5NNQsX0bDU1pyAYrLOw++83Cfcft7BM/nQRQk6Gy3ob +k/FNCQ//v7vnwMlQTsn1Phm3T67tbP/pCZPXB0I+LJBx4umF1pVqF+Bnlsv3 +HqCgf5MX64u4PTjxzsmI3qFg9pN3Msf6rUGkbcuxrzMUfD55KvaI3BFweJ34 +cc8uKt77Mi0y99EETLXEqqRvUlFV6D+CUpYBjPysfX1mkop3swWk5kz0IXex +VV9Ei4ZSbppjdRkIrf1df42u0ZAo/0eI3KAJV3gX2bhHaRhgcbFD/9MWGIzT +O7RzGx0bQKsn/6EyRH2/Ns4TQ8exfIKdUQATvFJ1umjDdLxxyPb2lAoFFlMJ +bI1qDKSY6tcUykgD6SdHwJswBpovnLLkKxeBwBvWhviGgfSRuD6tbwTYJlDp +oKPAxJuWl/JXdvBB1DuV9lp/Ji4V2hz/u48TCLp8WRyvmMiz3+qDudo/HZv1 +4ZJb5Am4zHiiXdnHguSqwt82zwnIr9ASeukaCzYlFzm+8CXiHSnuvBEhFgRE +pfo+kxDESEmTi+ZHpoHAeCHXWCeIYpN93MGaU7C8+N58wUkI+85C6a27E8Bn +keiXkiaOFVnI9t36ORhenOYX3C2B5/VvjCr0PIW0Y0sbx75L4JOtKZwOi00g +alnx2TVFEoOmI5HDsg7KPSX08nZK4foQq75DbpWQ32CppDAhhQx5wrpHfg+h +XV63wu6aNArWP/jz3qYAfhh9av+5Qwb3V+u7VEpkg16c6kXtcRkcKdOZlz+e +DtUsxnPtSFlU6Z10MI28DZGBi/kBW+XwpsdA6vPSGyDKqFE50C+HeVZpda3t +seCtdYIeqU3CkuTrs01rIiDM3/D3tXgSspJnJolXr8KmbmLq7EcSRii5uXA3 +X4ahy2WhS1pk9NC4NXma0wdkNOV1HK6T8UZpt7vV3zPwnf3sU/nR1Tw9M6LR +d8oNvF0URWLVKQgtGGdp5gC9h9+pa4RTcMZfqKGv6iT03i68bzNAwfMbjGUd +Kywh8MJ0/8ZNVPT5sL7Rn8cMGh3+vTW6ssqj6JWVkOuGUMgKvC/8mop6tQ6R +YuV74MLf3yDHoOFjYY+FopJd8NkukZnrS8P6E8E2cSE7gM3h7uuXz2nY5RJP +2a+4DQq9/cyOyNExdVnj7W83VbAZVhON9KGj9o6q70KSGyHnaFOu6H90nGiw +KEm1pMKVUdo6NhkGjmSOaRwmyALX2oUtUd4MzCqcfBclIQZuDxtUjrYw8IS6 +4pQzuyCcKcv1yRFm4rp39o2zvPxAO8QWkujKRKuE+aCom2tB7c7zC6F1TLzH +Ifk6v4oNDN0KNG9fIKCk38OTURUs0F2IsoqiEvHB1F3jiiMssEoVltryjIiX +zW879jROQ/LJfZduuApicEX4kwsDU/Dp/VbHg0JCqGNi8YnuMwl8SyfSRTSl +cauxVIDD2hIY28vuThyXxitfxa+JcOfCn50T//EmyODTl+u/8kRnQo9+fW/0 +Nll8MCuy7fvSXWALPeV0aEQWx0bPULNtksBiuP12Z6gc2sIDNqZTPDgrOFWu +CJJwR4i74qld0aDY0urQ6kzC3EH2hTs8oXDVdXFsvIaEfOJWrjuPBUJ4wW1m +7gYyVgrfNf9H9wMl3eNVE45kVLIJ7nQ5uHpEtqKSp6vIWGPJE1i37jSMSuvo +JfJT0MgyWMaY5AzZ41raoicpeNtDsuLMd1v485h/7VwxBXM/FM47Eo+D5bda +wQAOKhb1adAt7lvAPjWdb/YWVFxcYMv/9cIYxjeoJE7lU7G9ooxVMbAfhJfm +uLv+UvEfu4vubq7dMPDzusE6IxryTs/It+0FyDzA3TefSUM7OHeLTUQDVorN +lLTnaXh2a6DQ31I14CkRMKAa0LH72csn1IdKUM4x+Sgig46X3k92Ti3TQXv0 +8Xe1n3S0Z/5w/StOBm+r5Tn/fQxMk5weNTGQBK1RYgftDgNNn4846tsJQ9L5 +ZTfmNAOFeH4aVg1tgD/OLab9wEQdgcdPOqJ54JvzSb7R+FV+xk62nyVwwOzE +3p6gSSYWqjf9KJH6q+Pwqz5BQpiASh+3Fta/Y8Es83xGUiUBN1Gv5PYns2Cs +36za156Ilc9ayj/TWaDxumyhf60g+q9NKTA+Ow2Siz7dUg8EMTTqmG2c4xQ4 +3bYrbjUVQitPBae0VxNwbb3+Y99ocTTx56nmke0CyuNNATrKEqjXUjZs498O +F3IL288NSeArU7Pos8HNYHR2t8rpMEmc/NY9v29jPWgLaj1eZkqhk3bXNSRX +QYLKkUNfX0lhmxvfSDpbGbCRe7l9faXR7sjvstJ9haBq9nHPaYYMng112Z/R +mQ0jdgJZ8i9lMGW9a/jroXTI2XOTfuGsLH4tvkT2dEiB/tzdJYokOfzIf9+f +7VAiuFids7FulkPK1FDyQO311b0eYlG7mYQbI7t0FF5EQHjz2IpvOAnDIqVn +i0SDob/fU4vtLQnDT9hfWajzh4h1+zRRlYxf046nqzX5wGKxUrttKBljnJ1o +m0K94Lw2fjHsJ6Pf0Ls8JzN3YEQ6r/NQoiAPQ79n/aIDRPw10tvvT8HLO+88 +nDhqA6qck3tvd1GQHmRgXx91FNZ3JhlLUakYu1vfrDTDDBb8zk47n6OiwlL5 +i9fxRiA4aR/1uZOKfCVeKRSPvTByRXgnTZqGyof3zvzT1oWFXN+6Pg8a7uq9 +0uJ4VhswfhaqmmnYYbHz4M3+bXDTPtHCQZiO5055GlOXVOHg4VDlZ+50tDaf +Lnf7sRGaqq4mbWiio2ySpfHSTyrocpTEkQQZ2Gv7aNFPVA4WBb7G2rswUPLK +YqPNazGwwa/pjjUMbCx2DpiJF4T1azOvDPIyccJ9U0fxMj98j3CxCzrJRCIn +g1qtxwWt7Zvs9zxk4i0/xZORRmvA1Gzs4RUHAjrISH8YqV/tXycz9icCRPxU +mvYnyokFG4ZqTw0+ImJDfKd9bf80mOZb/0m3EMRd2ykvLv2Zgq8l74Ty/goi +z8CDwHd5k/DD3bplkCaNqnUfinctlIAUJtTTe6Rxx5WiLYGvckFD98uBkMsy +eLTo5GUC8z54iKcs+5Jl8QXRlBYwkgqzH941RnXKIs+vBTUi+RZkcgvf8/WS +Q9EsMZ6NP+IhrrXFiIeXhHc0dp1jicfAMmk6cf44CV9YHjiYWR8KwcXXJnpK +SJh0/GNT/odAUH30q7WGk4wLtE2+8WsuwsCL726bjpFxZ89hm2/fz0L0G8n7 +7kVkLO71G+RYPg2Oh9c51Kyh4IQQaOGkM1hy+arNmVPQ+BJ73/BVOyi1CySu +zV71jd4fse7fjkOl1a/KykUKHjfVOqh64jD0B0+6WhhQMUEvxtPC0gSk6fez +OdKpGLN+Miap9gBc/PVm9t5PKp5O0V8fnLcb0Cd/H2E3DT8fVk0YIiGUx025 +UJJpeCDL4NfazxqgM5SdRJ6m4cXUyMSd+7bA9zR5Q1WkY9Z4kYFI0Sa4d3FH +V0cSHZ33egt41DLgMPgPK07SsXbL0MODmWTYdjns4r2dDHTZJvT8lqoUbJri +o67EMfB6gd6/tTwiEM25aWjL6Oo/gv+kySkCJNfWHePbxsRLb350G9jwQn1G ++0RXOBPjR/6+McjngCsieTW6H5iYR3ISsqWs6Oju/WSiOEbA3Nc1OseDWHDh +KLfQxhgi6ikQWyvYWGBd9/nTkzkm7tW60fJNZlnns/vbbn4+An6cTzVSHGaB +hM3R8w8LCHjj38v1eI8F2gs5tgZHiRhEmzMOVGZB4sWdle+XiPg7tOJMW+A0 +kGw76QfuCuL6/Vkfhi9OQcok7V3BPiEcjbI6HT07AUbuMsedgsSxaHvzwZtX +uiDmXXelOVUCd/L6J8j2t8O4Uahow0sJtN3W/8+6sxmm2GLMzlyWxHcDWzp+ +36iHIPsDvgwZKcwGGfUnAVXA5dI/8vKZFDp3J4tH6JeBjIzk5iAPaayssNU+ +2lgIxq/twgqkZPC6V/4pFXoOKD9fqpZtl0HRgtynd2Uz4N7Zg703XWRRXfOU +SnFfCizXuW1mF5XDIR1N1dm0REiYe7noVC2Hcua7km9IxYFS+60ZUyUSWvms +6ZzVjAQex6I1p66SUGr4l0GlXTAovpPljXxFQi+NkMiUnQHwoVfwxpgCGUu8 +fdtmyL7webI42iaQjH3tXJ75nV6w/W2O78gLMtK23H8r8swdAm+Hch1jUvDJ +aDj7sYOO8PFFxDOTCxSUKC99fjzFBmw0uVO2dVCQ/Da1RWzxKPR5ewgIy1Jx +cEhSV+SbGcSHbDo3d5qKS3aGp/eKHgJ959f+PW1U1NVVjB/s3AvCTRmPGWI0 +TKF84DIK1YUVg0kud2cajp9v03o9ow0jD8Tm8+ppSM0UsUJldeAbyuifWk9H +OT7vpQ36m6E5vljL1YmOP+KWDQ1tFaDbyV6Av46OmpcCYy/p0YAmfO5VKT8D +ew6lyIzclQPvBHdtY3sGXhUqPh26TRwGw8Pfuj9i4NKpW7+t3gmCdbFsyDlO +Jm6apAfK+gnAQPbdl75WTFTiZxx4d5cL+E+cGMgpYOKOqXiYu7MG+tr/znhb +EXDgtknGeBMLmu9t7x9kJ+KZB52qt06xwG1JQKw4f3Xvnc4mlY1OQ/GhiZoH +BoJI//OGOcE3DXPiKu5vfghijbyE6b/mSXDKGjKvl5TGfY4uR7M1SkFDe/Cz +Sqs0Xmiv6GVq58GRVqeoJq9VP9CQp3z3uQ+1QRHE02KymCRNPnvE4h6Mr7vh +kdsoiz/sr1blBN+CDiktkpGzHC49tzF7ppkAWfE/JAU4SWjzTnWYHB4D44dW +lGKPkDAjimnkJBkGnCaW0635JNSZL1efJAdBaHXODd1/JEwfz7ekeF8E5eS6 +1h6LVZ9NuznTsuccXBBMdXbLJaPEOOvGDx9PYP70mjNYJuPG5HaCrrELlIne +3PTx0KofvPbyMeqyg3XqtbcE0ik4IvCh4qqdNXy+LsJr9pOCsuacxF/1hyFV +qZFhtIeK0G8clZJqAlUq1spxKVTcLCEV46RsAEXn94+Fz1KxMTahRPDvbjhX +tb1dEGhoxBbP0W2DULfleHl1Ag3n+xQ5NplowofVWBL+TEOVjtfmOTe3gJO4 +enel1iovtUYje5SVQbjS4a1LPB2FCPwPr0kxwWHW+rD8p9U+Le8ovj5BBtFr +BvXKGgycGfpPmZYjBTmnw19MRTOwWnfDhvfHRYDrYJuw1hAD0/0ESvWLCfDZ +XtMmS+X/fPB47OjihayGpSOtV5l4MnyCjfs3B3QUvFW+P8DEiCcjlzblreic +utJB3/OGgAVT2/1Dw1nQe8GqbjmIiA6vzz88w8eCHFMxK/JXJjpztvJX3VnW +EWZUetr8YeIekd5TZplLOvKMLx5cawl48kEs9f0IC5QvGwzr5BCw+OdI1qd0 +FkyGGqtvMydiydbsa+Vqqz7SxS46ukDEdydy1p4In4ZMkXMmo0mC+JD97fLR +0Cl4RAzzStMTwlCGh+y7pQkouR1ZaH1ZHM/bvZSsK+2CJne5V8MyElh29svE +Z/YOkM78Xm/3XAJTm9PfKM02Q3V7iaOXryTeG5uCN8/qgRZjavFYTArP7HKo +5yiuAuRM2tjSKoXX9n/cddSlDJSkGvS5nKXxr9YOsFkqBJskCuOAqAzq1Sgu +rZjmQD/b2RaJZhn8s8hQ+AAZIMmXm0uzl8XddlQ+f4E7QGj3954hyGGdqxHH +UEci5DSxtbmXy+H4F8Vja3bEQfqJDM20jSQ8n/ef3gXPSNhXKRj85QoJXX0a +eRUjg+Gwtc+ZrhckTL2Xm/Y4IAAi1Rcbt8iT0SmVGf3J1Besub/NDPuTsWFh +/EPPjBckMwcbN3aTMaHyUkw+pwcUZgiH9NIo6BqbmPXPxxHiarP5+89T0Mne +r2m+1gYWzURbgtso+Cr+08BZFSvQ2PvGPU6Kin8XParrxMzhQ2RUtZYHFUUj +LhcfPnoITjBif+m1UJGjSbCh7c9eKLad+PNAmIah+/fvGsnThasyFKVKBxq+ +0d337aXiTlDdUniI+njVb7TbLt22Ul/dx/Jiyvyr/FIN7ge4bYbLKi1YY09H +wVMfOj1vK4BFw6t9UTV07Jc8Ri9zp8HNu/1zi7yrefjoqzdrRA6K+zbeeGrD +wDL83SvvJA7JBa/mZx8yUOMH81AAmxBwcliHNa1hYpTtRRnZagEweKTO+/MI +EyU6CEd+POMC1bwFwTe5THxBtlJSbFkDIlfXxXhYrPpL0hLPcAsLBmo3ostf +AsbmPknj8mKBWHTV9K1sIo5KcOtu+DINxzOLJAr2CGJgrKHtb8Fp8O0aSDo9 +I4g5dzwt7HsmIR3vphaLSCN3mN3GuiOlsEcrYOlRgzTm6JiOS3rlgVMoQ8HG +QwYfC+9ptkq7D3aV/6RcBWWx5rRXvHvcPbDJnNXdXiuLXcVH5WMqbsEQ3dBW +027VN+rypDlOJIDyIm/Q9TUkPPqfWvNQQwxYfeH2GzQn4SeOWt1j+8Ngd2a9 +B+SS8Gv+KIWlFwSlWit/wpZJmPhtzVZSwUV4u5TxnWRGxg8iqUqPvM7BV5UP +zyazyZhVd3JCrsITInZla9/8TUb1AtXbLiEuMCxLK7AypGB4bHHM/A87qJZ7 +MxifSsEK2gZz9bvWEJBPU8v4RkGrj38Kzs4eBrY1CqGdelS8GnndP+uJCXBu +q/Xuv0XFV81cYnyuBvB0K/vx5Wkq9mnrv7Fk6sN6ywCuRG0aFvcMhdGDEHDt +zQGOOBq+93z11SNcE5QD7HOufaSt+n3HVHfdFkjvq1v/ZzsdXZ8FzT30VIYe +M7/h6lg6MpobamoOMmFKvzs+Z5SOZeMioxL8FAgXKf7gs42Byx45TrmjUvCx +VJ9pG8nAv6srsyNcBFo8iZvr3zKw/1fbhFwPAWKrfe2+KzExLMZN0o6TD8S6 +bl6HQCa27J32GyRxAmvBy/XVayZ+U3RgnJ9Z0bl6p/b6q5cEXC7c0RYWxYJA +Hs74z5eJ+CtI/dvmDSzoTC1JNGExccx2/LrHu2UdDS+j/LhfTCxIVLnxfnhJ +59ugzDbVv6t+ffUbzcRxSWcfx+yOYHYCRuzNGX40ygLNqN2JofcJqDf1b+2W +TBY8Mcwm5ZsQMcm1YuTpVhak+Iy32c0RcY3j1tmMqGn49HXfF6XEVT6lPPOj +o6agObtSW2KXEFpvdTzsxz4JI6WN5m/9xDHqY1mh87MuGCrfa0uXkkDD8d4Y +R4kOqPrvAbHimQRWxn3uUGBrAVJB0+z3c5LI4or1+vKpHs6nH25dKyKFjjuU +85+2VcGJ3vmuHc1SGDRr7PjWrwy2SBJe7HOQxmdeET1xEkUw4cPuc1tIBn2o +noq8bjmgcKd4361GGdQ8vyMgyTgDLF+/FvKwkUXTvtYygsIdkDzILWS/Xg4F +p/fPnHmfCKry4oqzpXK4dXfQfPeBOLBSyDmpL09C4Q1pas5RkTBxoq0lK4CE +YzPqz4PuBoO7LCXLs4eE8SUSnoFpAXBiwu3wEIOME/p6yWHuviCeREhLu0zG +gR6FkMv/vKCj+6d993My7q4UysyieEAzfUg3lkrBNnG1Ua8YR3BW2aqcfI6C +66yeKVr9ZwO7R1PfKLRS8JmBEq+RgRW4PeS/YyRJxdmMlYUiRXMI5a8ZfO9G +RYkz0V7Clw7BdKjb1pUmKnbWjpwbFtwHyw+jU1yEaCgmG+W8u04Xdoc1NByz +pyG/w3lOdoOdMHBhYXm4hoZPTv2GL2fUwXbBvaqHj46bTncdMfffDFYBXXq2 +dnSs/CrfUlShAOJT0U77q+mYsHGX2fQVGnSPhK9N5VnNxyrTx4lrSPB8PqIh +6CQDU+QPyaQFiINP/e/g0lIGEgX2nVAUEgLLTZe5XdiYSGmcs3zxRgBCHnNk +lx5e5Z3kF5k2wgXN3bqqng+YuPvXnMWX/jWgflLw2KQpAaffJyW8bWXBWAdl +vvgPAe+fSviv2psFs6b8/fz3iTiw30ircnIaHhnEPVPaLYimn092LYpOQ/WD +IqXaKUHU8FEdjHw9CfXrl3cxhaSxLaLg/XHnUjDUfBH667E0ejXbJdVF58Gs +I9fFElcZ1M0gbywuvw+VxjsyPm+QxRvEyDdyxffg3inp4oAqWdSSvPElu/sW +fM7vX1NyUg6Fq7dla51JgHMFIo+M2Uio8qzh1thgDAiX86cFmpHQ5ftC7x+b +MPh04EzRcg4J711mNHBZBEHbUp7yxiUS/it8w3refhGKi4RXhYKM4w89tY3C +z0F+w8rFvCwymiUmXHDo84TqiYYRzUUy3rDMKsi+5wILmdOuogcp2Ehae2B8 +rT1cT3RcNrtLwdN6FaFaNdbQub1wz76vFOw4nZQzwHUE1NxPPorQpaJH9eUY +vV4TKKiaSPRLoiJfnui26DADMEv8kFw5RcUbQUudd7T14VguOcd8Bw1rCko2 +u8YjsJ/e7J4XS8OPX8+7V2dqQn9LkdmBMRq+qJkMC3yxBerV2EruqNMxcdfU +zbtxylCYGTxmc42OvosiLB9HJhR7hZU4jtDxUnqL/W8ZCjw5evKr5FYGcvGd +uZTyTwrYe7NMpSMY2FaekH0iVQQyg7Y3BgwwUMzbErOHCTA2lvTxliITn/hG +JZFJfGDcZ6f4N4CJ6hkSc6NbOSFAuiHMvW+1f9lvT7/c8E/nWl75bskeAoqI +CJWxx7Dg8AvLS8cuEjGQNXw7msiC4y1LDyenVnmMLfK6vLSs05mU0i6/wETC +k78Lr1eWdK6yuZl2LDGRcSDdpil4SedExUux5BUm8j89epN975LO/wAU6AOG + + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1VO0HGkUgNHYtpMb27bNGzu5sW3bts1BbNu2bWcy5u41D7vqfKfrpetf +qzsopFtw19ChQoX65hK4r3Cpzl/m72hKHs7Z9Sc9N/Q4wrBS1+Bv8/c045Ne +TGV+13k5bx5ABm7q8YRlla7JP+YfaM5nvYQq/KHzccE8kIzc0hMIx2pdi3/N +P9KC/Fy0G0QmbuuJhGeNDg58UTa5taQAl/RgMnNHTyICa3XtwLthsw6hIBGJ +RGSiEJVoRCcG6zxfhzBs0a0oREzW29UlLFt1awoTiw129QjHNt2GIsRmo119 +wrNdt6UocQJnZdeACOzQ7ShG3MC52DUkIjt1e4pzWQ8hC3f1ZOIFzkE3IhK7 +dAdKcEUPJSv39BTiB967bkxkduuOlOSqHkY27uupJGCTbkIU9uhOlOKaHk52 +HuhpJGSzbkpU9urOlOa6HkEOHurpJGKLbkY09ukulOGGHklOHukZJGarbk50 +9uuulOWmHkUuHuuZJGGbbkEMDuhulOOWHk1unuhZJGW7bklMDurulOe2HkMe +nurZJGOHDiEWh3QPKnBHjyUvz/QckrNTtyI2h3VPKnJXjyMfz/VcUrBLtyYO +R3QvKnFPjyc/L/Q8UrJbtyEuR3VvKnNfT6AAL/V8UrFHtyUex3QfqvBAT6Qg +r/QCgtir2xGf47ovVXmoJ1GI13ohqdmn25OAE7of1XikJ1OYN3oRadivO5CQ +k7o/1Xmsp1CEt3oxaTmgO5KIU3oANXiip1KUd3oJ6TioO5GY03ogNXmqp1GM +93op6TmkO5OEM3oQtXimp1OcD3oZGTisu5CUs3owwTzXMyjBR72cjBzRgR/1 +ZJzTQ6jNCz2TknzSK8jEUd2N5JzXQ6nDSz2LUnzWK8nMMd2dFFzQw6jLKz2b +0nzRq8jCcd2DlFzUw6nHaz2HMnzVq8nKCd2TVFzSI6jPGz2Xsvyk15CNk7oX +QVzWI2nAWz2PcnzTa8nOKd2b1FzRo2jIOz2f8vys15GD07oPabiqR9OI93oB +FfhFrycnZ3Rf0nJNj6ExH/RCKvKr3kAuzup+pOO6HksTPupFVOI3vZEv5qVU +5U/91X0Z1QLvhOWh//8vz+2z/wD6/vfg + "], 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]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 0.9026545741090067}}, + "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:eJwVV3c8FW4XF7Ki7rW3u68QUgnJOZGWSEZJKXuXqEhFZI+EJCkZIZuSmZGV +8QslISmjlHFpIUV6vX89fzzn+Y5zzud8zkO29TBxYGdjY5tbw8b2/9NlZI6P +jY2AvrvcB6LGWLCPY3ZHEDsBw/dmDz8ZZYE844s711oCnnoYQ30/woLPbm+7 ++PkI+HE+xUhxmAX2v2rjJYQJqPRxa0HtOxZYrw+T3CJPwGXGM+3yXhYc0ZZQ +cDQmYA9YPu5pYYH6KcHjkyYEnH6fGP+2mQUi19ZFu5sTcFPiEs9wEwt6W//O +eFkScODO4fTxBhaYmI49umpPQHsZ6Q8jtSwwdM3XvHORgJK+j05FlrFgd9LO +/S/SCLilwaDP/wELNCN3J4Q8IKDe1L+1WzJYoHzFYFgnm4BFP0cyP6WxQML6 +2IVH+QS8+e/VerzPglnmhfTE8lV+6tWcviQWJFUU/LZ+QUB+haaQy9dZcD23 +dLdkNwFFRIQes0ez4Nrd6huvX636K9jREhrJgtNX2+h7+gmYP7XdLySMBbp7 +Px1WHCNgzpsqnROBLJjpk8qb/0XAO4RRY6fzLBhro8wX/SHgg9Px/1V6sWCg +eiM6/yVgTM6zVC5PFjTe3943yE7Esw87VG+fXtXjaMr+TICIn0pS/0Q6ruIv +RFpGUon4cOqecdlRFiSK/OGTO0RETVRf16fOgmeGWaS8w0RMdCkbeb6VBZMh +xurbzIhYvDXreqkaC7QXsm0MjhExkDZnHKC8qqfPtNLHjojl7U2ln+ks2JRU +6PDSh4h3pbhzR4RW6/fS4vLxS0QMYA3fiSKyIICHM+7zFSL+ClT/tnkDC3ou +WtYsBxLR/s2FR2f5WHDxGLfQxmgi6ikQm8vYWNAsafMsMI2ISZ5iihasaZg1 +4e/jf0DEgf1GWuWT0yAWVTF9O4uIoxLcuhu+TIPrkoBYUR4Rr5zJIj0enYYN +Q9WnB58QsS6uw666bxosU4SltrSv3pvdceiun4bvcm0XPn0n4ngja8/I9WlI +9h5vsZ0j4hqHrbPpkdOg28kuOrpAxHcns9eeDJuGhEs7y98vEfF3SNnZloBp +0HjzeKFvrSD6rU3ONz43Df6RKT7tEoIYIXn4ktnRaVg37+VbtEsQr5GfyPyQ +nIYnBrHtSrsF0eTzqc5F0Wk4kVEokb9HEANiDG1+C05D0aGJqocGgkj/08+c +4JsGkzyrP2nmgrhrO+Xl5T9TkHRq3+WbLoIYVBb27OLAFNA7ZPwuxgli8Lhb +c9mNKfj0dd8XpYRVPCmPvKjIKcgQOX94NFEQH7G/XT4WMgUkmw76gXuCuH5/ +5ofhS1MguejdJfVQEEMij9vEOkwBgfFSrr5GEMUme7mDNKfgT+C1xrUTgrjj +6faynHeTUPmwUKl6ShA1vFUHI95Mgk/nQOKZGUHMvuthbtc9CXPiKm79PwSx +Sl7C5F/jJHwtfieU+1cQeQYeBrzLnYRP77c6HBQSQp3D5p/o3pPQrfmF+6aO +EMpuTpMj8k5CY1a5tsQuIbTa6nDEl30SnhBDPVP1hDCE4S77bmkCkidp7/L3 +CeFopOWZqNkJcLxjW9RsIoSWHgqOqa8nYHnxvdmCoxD2noOS2/cmYGNlb/qx +G0LI+3rn2KeNExCk3riDNCKEHblHrFfUvkDRIuHnlhvCqEf6/lv57Sd4ZPll +j+gOEfRaGxn6/vAY1O3v1nN7J4I7P7+e13w1DLtWFJr3RIjinUXPHYMNg9AF +STMJimLIJfnzo71dH2wlXy991CGGSY9E2iSu9wChbX7ZzEcclQ+2nKSOdcJI +Sb3ZW19xjPz4uMCpvROK70QUWF0Rxwu2ryRrSjrByE3mhGOgOBZubzx462on +XF+v/9QnShwP+/FU8sh2Ap95gm9yqjiWZSLbd6sXwDGmtjDcKo5D4aKixZMd +sLDk8dVVXALjm8gj8yptMFS614YuJYGG4z3RDhJt0OAm93pYRgIfn/sy8Zm9 +DaLfdZWbUSVwJ69fvGxfK1CebvLXUZZAvabHw9Z+rWB4aZpfcLcEXtC/OarQ +/RwyFx0VqjwkcOi2kdf9qy1gMm/lwN0qgdsm6e3bBZug4r+HxLJ2CSyP/dym +wNYE0hnfa21fSGBKY1q/0mwjjBuFiNa9kkCbbX3/rDoa4WJOQev5IQl8bWIa +dS6oEVKPL20c+y6Bz7Ymc9ovNgCrIWm2RloSZzbszJSZeQZhMa99vLwkUTi2 +l3M9Wx2Q8htmv5+XRBZXjOeXT7VQ2Vrs4OkjiffHpqC/vRam2KJNz16RxHcD +W9p+36wFo3O7Vc6ESuLkt675fRtrQdSi7LNLsiQGTkcgh0UNZJNvm9s0SiJq +Z/YGtVTD8yeWW4wFpRB4L7anvq+AC2lHmteKSKHDDuW85y0VQIs2MX8qJoVn +d9nXchRVQKDdAR+GjBRmgYz6M/8K0BbUerrMlEJH7c7rSK6AUg8JvdydUrg+ +2LL3kGs5pCkMmLC7SOFo0x5ZNf4yuJxm7vWkXgqliNOGLlGP4WTPfOeORikM +nDV2eOv7GJAzcWNTsxRe3/9x1zHnx8Dl3Dfyql0KnbqSxMP1H0O8ytFDX19L +YYsr30ga22PIq7NQUpiQQoY8Yd0T30cwOHT8cypBGvd2Held51MCteuXdzGF +pLElPP/9CacSSMN7KUUi0sgdarux5mgJOGYOmdVKSuM+B+djWRol8MPNqmmQ +Jo2qNR+Kdi0UA9/SyTQRTWncaizlb7+2GLQkbC2jbKQxZEI/Znh7IWyRJLzc +Zy+N7Z7h3bEShaAkVafP5SSNf7V2gPVSAcjISG4OdJfG8jIb7WP1BcBG7uH2 +8ZFG26O/H5fsK4BWed0y2+vSKFj78M9763ww06AQtKqkMebn3Cbf7Fww1HwZ +8uupNHo22ibWROXCHi3/pSd10pitYzIu6ZkLGtqDn1WapfFia1kPUzsXpDC+ +lt4tjTuuFm4JeJ0DY3vZ3Yjj0nj1q/h1Ee4c8Dg61jJBkEEDuqmLQmA2THiz +e98RkkFvqocir2s2WCdSGAdEZVCvSnFpxSQbjN/YhuZLyeANz7zTKvRsUDX9 +uOcMQwbPhTjvT+/Igh9Gn1p/7pDB/ZX6zuUSWeC953P7iqMMfjV0XC/a9gBm +HbguFbvIoG46eWNR6QNwDGEoWLvL4FPhPY2WqQ/gaLNjZIOnDI5oyFO+ez8A +Dd0vB4KvyOCxwlNXCMwH8GfnxH+88TL4/NX6rzxRGeC3bapTuFYG12Z3ZJ+0 +SQeFu0X7btfLoOaFHf6JxunQx3auSaJRBv8sMhQ+QDoov1iqlG2VQdH8nOf3 +ZNNhxFYgU/6VDCavdwl7M5QGerGql7THV/kf68zLn0gD3mlvhr2ALMYbnbf/ +9t99KDfekf55gyzeJEb0yxXdB9vyf1IugrJYdcYzzi32PlQHhhPPiMliojT5 +3FHz++AunrzsQ5bFl0QTmv9ICnTr1/ZEbZPFh7Mi274v3YNbaRxXS61k0fFz +0L+GPXfB4s0bIXdrWTTpbX5MULgLknw5OTQ7WdxtS+XzE7gL988d7LnlLIvq +mqdVinqTIXvPLfrFc7L4tegy2cM+GSpZjBfaEbKo0jNpbxJxB4Y0Dkg8fyKL +DrsOd739chvun5Yu8q+QRS3Jm1+yum6Ddcas7vZqWewsOiYfXXYbxtfddM+p +l8UfdtcqsoNuw+yHd/WRHbLI82tBjUi+DWwhpx0Pjcji2OhZapZ1IlBfxZYO +rJPDvSGj3yR+JIDkQW4hu/VyKDi9f+bs+wQgtPp5zRDksMbFiGOoLQGWa1w3 +s4vK4ZCOpupsagL05ewuViTJ4Uf+B35shxIgImAxz3+rHN5yH0h5UXITvqpY +Z9Cs5HBx/QpX8LV4+JzXt6b4lBwKV27L0jobD0N0QxtN29X3NbnSHCfjoU1K +i2TkJIdLL6xN2zXjIYNb+L6PpxyKZorxbPwRB+bDrXc6QuTQBh6yMR3j4GmM +StzZIjlkjHe05VvGgqq8uOJsiRxu3R0433UgFrIb2FrcSuVw/Ivi8TU7YiF+ +7tWiY6UcypntSropFQvOluetrRrlkDI1lDRQfQNEGVUqB/rkMNcytaa5NQa8 +anW7qCty+FMt/wrHr2g4ny/yxJiNhCrtdbfHBqNBeZE38MYaEh77T61xqC4a +MuN+SApwktD6neowOSwaYpubjHh4SXhXY9d5lng0OCk4lq8IknBHsJvi6V1R +ILKQFzLNIKGvso+LV1YEWCpkn9KXJ6HwhlQ1p8gISDuZrpm6kYQXcv/Tu+gR +AUqtt2dMlEho6b2mY1YzYvU/EGxevZmEGyM6dRRehoOX1kl6hDYJi5NuzDas +CYcuf2ILw4SEHnMlOqUXQ0G4lD81wJSEzt8Xev5Yh4LlF27fQTMSfuKo1j2+ +PxTGD60oxRwlYXok08hRMhSWSdMJ8ydI+NLiwMGM2hBQbGq2b3YiYc4g+8Jd +nhAI577IaetHwoCunQnTxUEwcbKlKdOfhGMz6i8C7wXBvnLBoC9XSejiXc+r +GBEEPA6Fa05fI6HU8C+DctsgCGscW/EJI2FohPRsoWgQhPoZ/r4eR0JW0swk +8do1CP5Jma3KIqFiWpaammMgfDpwtnA5m4T3rzDquMwDYXdGrTvkkPBr3iiF +pRcInIctppvzSKgzX6o+SQ6EoKLrE93FJEw88bEh70MAXHNZHBuvIiGfuKXL +zuMBEDDc2U/sImHhtuW9zs/8wU2WkunRTcK4YgmPgFR/OGLlfbbzJQlT7uek +PvX3B8V3srwRr0noqREckbzTH/r6PLTY3pIw7KTd1YUaP9jURUyZ/UjCcCVX +Z+7GKzBYY277328S7j9hbpH06RK0LOUqb1wi4b+CftaL1ktQorXyJ3SZhAnf +1mwl5V+CkMrsm7r/SJg2nmdB8boEqk9+NVdxknGBtsknbs0lCMu/w8zZQMZy +4Xtm/+i+sDX5PSuYTsanPtKxusE+cHLC9cgQg4wT+npJoW4+EKG+WL9FnoyO +KcyoTyY+8KFH8OaYAhmLvXxaZsg+EL5unyaqkvFr6ok0tQZvGLryOGRJi4zu +Grcnz3B6Q/CpMFkvYzL2F/Pw/7t3HooKhcPbD5Nx/JGHtlHYeXi7lP6dZErG +DyIpSk88z4NyUk1zt/lqfOqtmaY952Hg5XfXTcfJuLP7iPW37+dASfdExYQD +GZWsgzqcD56DXtpm41OXyVhjPxiuRfQC8URCauoVMg50KwRf+ecJVtzfZob9 +yFi3MP6he8YTPk8WRVkHkLG3lcsjr8MTFouUWm1CyBjt5EjbFOIJMpryOvY3 +yHizpMvN8u9ZcDSUU3J5QMbtk2s7Wn96rO4XK5dyM8lomhB/0b7XY3U+fWif +zCJjZs2pCbkyD7gomOLkmkNGiXHWzR/eHhDVL/nArZCMRT2+gxzLZ6DERlTy +TAUZqyx4AmrWnYHfFwR4zv1HxgvaMRV16A5tXT/tul6QcXe5UEYmxR2SmIP1 +G7vIGF9+OTqP0x22v832GXlJRtqWB29F2t3ggjZ+Mewjo+/Qu1xHUzf4zn7u +ufzoKt7ZEY3e064weWMg+MPCaj2fX2xeqXSGyom6Ec3FVX8WmflZ950hfFeW +9q3fZFTPV73jHOwMzJ+ecwbLZNyY1ErQNXYGhyPr7KvWUHBCCLRw0glGpXX0 +EvgpaGQRJGNMcoK3uQ/WHKBQcGtZfeDvdAdopA/pxlAp2CKuNuoZ7QAF6cLB +PTQKusQkZP7zdoCAOyFcx5kUfDYaxn78oAMwIpzWuStRkIeh371+0R68nBVF +YtQpCE0Ya2FqD/zMUvmeAxT0a/BkfRG3g4WMaRfRgxSsJ609ML7WDoZlafmW +hhQMiymKnv9hC49Fb236eIiCM288vY06bcGCy0dtzoyCxpfZe4ev2ULWuJa2 +6CkK3nGXLDv73QZ0MhsPWZ6joJQMI63rnTU4qWxVTjpPwXWW7YqW/1lDbHUW +f98FCjra+TbMV1vDx5er7XuRghKlJS9OJFtD+F8jvf1+FLyy8+6jiWPW0HPk +nbpG2Cq/n1Bdb8UpcOSdkxG9S8GsZ+9kjvdZwY0Eh2XTexQ8o1cWolVlBZVy +/YNxKRQso20wU79nBevUq28LpFFwROBD2TVbKyixDSCuzVrV1/Mjxu3bCfjz +lH/tXBEFcz4UzDsQT8CNM3TWq0YKHh0MeKXvZAm7R1P6FZop2G6gxGtkYAmL +pqJNQS0UfB33aeCciiVYa3Inb2ujIPltSpPY4jFQ5Zzce6eTgvRAA7vayGPQ +c6fggfUABS9sMJZ1KLMAkZYtx7/OUPDF5OmYo3JHoWN7wZ59XynYdiYxe4Dr +KPjn0dTSv1HQ8uOf/HOzR+DzDRFe058UlDXjJP6qPQLllr/KyxcpeMJE66Dq +ySNg8a1a0J+DioW9GnTzB+ZwV0q3g1+CiunGV5Yfgxm4PuK/ayRJxdn0lYVC +RTPQ2NvvFitFxb+L7pU1YmbQ6+UuICxLxcEhSV2Rb6awviPRWIpKxZjd+qYl +6aYQcHG6b+MmKnp/WF/vx2MK9m8SPu7ZRcX7X6ZF5j4eBjW3U0/CdanoXnkl +Wq/nMLCtUQjp0KPitYgbfpnPDkOKUj3DaA8Voc84MjnlMPQFTbqYG1AxXi/a +w9ziMOxT0/lmZ07FxQW2vF8vjUHpxpflABcqJiekXV24dwhC+KsG37tSUeJs +lKfw5UPwISKyUsudiqLhV4qOHDsEccGbzs+doeKSreGZvaKHYMH33LTTeSoq +LJW+fBNnBPX2/94aXaXiPdGrK8E3DMFES6xC+hYVVYX+IyhlGkB+xUSCbyIV ++XJFt0WFGgDntmqvvttUfN3IJcbnYgAVKlbKsclU3CwhFe2obADS9AdZHGlU +jF4/GZ1YfQDGN6gkTOVRsbXsMatsYD9cHN/jWfmMiqUyfjZExX0wHeK6daWB +ih3VI+eHBffBSUbML70mKnI0CNa1/NkL+k5v/LpbqKirqxg32LEXBCftIj93 +rOop9kymuO+FAlbAA+E3VNSrto8QK90DIz+r35ydXPWTJSA1d1gfTBM+JJVP +UfFm4FLHXW19eL6V/cTyNBV7tfX7LZj6UHhh/1jYLBXrY+KLBf/uhku/+mfv +/6TimWT99UG5u0F4aY678y8V/7E76+7m2g372VW0NgrSMOPV5fzqLl1YfhSV +7CxEQzHZSKfdNbpQZDPx56EwDUP27981kqsLwg3pTxliNEymfOAyCtGFkavC +O2nSNFQ+snfmn7YuXPz7G+QYtNX/iPtCYfEuyFls1hfRoqGUq+ZYTTrC8Rxy +ttkOGlblF292iUNYb+HPlaBNw6LuoVB6IML5iu2tgkBDI7Y4ji5rBPTO20fY +TcPPR1Tjh0gIAz9vGKwzoiHv9Ix8y14A7q+Wh9fY0nCZTj9j6roTdofW1R23 +oyG//QVOdoOdcE2GolRuT8N+3X3fXinuhBWDSS43JxqOX2jRejOjDQs5PjW9 +7jTc1XO1yeGcNny2TWDm+NCw9mSQdWzwDmju6/xrdJ2GRPk/QuQ6TWA/s9kt +N4aGH79ecKvM0ARce2uAI5aG7z1ef3UP04SaLSdKK+NpON+ryLHpsCaUxk45 +U5JoeCDT4NfazxqQcYC7dz6DhrZw/jabiAYE1GHevUoaXrg/qGcQpg4DFxeW +h6to+Oz0b/hyVh1UtxQcoj5djdduuXzHUh1GHorN59bSkJohYonK6oBxs1DR +SMM2850Hb/VtAzb7e29evaBhp3McZb/iNrjKu8jGPUpDf/NLbfqftkBfU6Hp +gTEavqyaDA14uQWU/e2yr3+kre5jbVNdNVvgw48uA+HPNFRpe2OWfWsL6Axl +JZKnaXgpJSJh574tsFJkqqQ9T8NzWwOE/paogb9Z8VFPXjoajo+76MRuBpsF +t4puPjpuOtN51Mxv8+p+LC+mzE9HWarBA3/XzcA3lN43tZ6OcnxeSxv0N8Mt +uwRze2E6nj/tYUxdUoUCL1/To3J0TFnWePvbVRUGY/UO7dxGxzrQ6s57pAy1 +amzFd9XpmLBr6ta9WGVI661Z/2c7HV3aA+ceeSiDo7h6V7kWHX9UG43sUVaG +76nyhqpIx8zxQgORwk3AUyxgQDWgY1f7q2fUR0qwvbN/D68NHZ/XfSrn7VEA +S/9OPRtbOpZ/lW8qLFOAKypNWGVHR8HTHzo87ihAY1yRlovjKn7ssqGhjQIc +PBKi3O5GRyuz6VLXHxvBelhNNMKbjto7Kr4LSW6EyO/Xx3mi6TiWR7A18mdC +QUbQmPV1OvosirC8HZjQbeo7XBlDR0ZjXVXVQSYIl9u/dY6joxCB/9F1KSbc +v7Sjsy2Rjk57vQTcqxlQyjH5JDydjpffT3ZMLdNhSGR3ME8FHV2DnodpJNBA +fCrKcX8lHeM37jKdvkoD87rX+yKr6NgneZz+2I0GXY52Avw1dNS8HBBzWY8G +DRXXEjc0rNYn0cJ46ScVso815Ij+R8eJOvPiFAsqeKbodNKG6XjzkM2dKRUK +FHmGFjuMrPKnNdn9lqHAlH5XXPYoHR+Pi4xK8FPAftbqiPynVbzStqIbE2Q4 +An7DipN0rN4y9OhgBhm0R59+V/tJRzvmD5e/4mTgomuK7uJmYGRFWWqLIAm6 +RsLWpvAw8HGFydOENSS4da9vbpGXgdeefPVijcgBTfj86xJ+BnYfSpYZuScH +uhzFsSRBBvbYPFn0FZWDq6O0dWwyDBzJGNM4QpCFxRQCW70aAykm+lUFMtLw +7Nipr5JbGcjFd/Zy8j8pCBMp+uC9jYHL7tmOOaNSIHrdoFZZg4EzQ/8p07Kl +YNuV0Ev3dzLQeZvQi9uqUuBluTznt4+BqZLTo4cNJGFadGJS+yQDdW9Wzmy6 +LQ4v5sPrAk8xMFn+kEyqvzgU9W68+dx61Q/+7pF3FAeveDdtY7tVP0JFZ0K2 +icOiwNcYO2cGSl5drLd+IwZcaxe2RHoxMLNg8l2khBiQfnL494cy0GzhtAVf +qQiw92SaSIczsKU0Putkigh8LNFn2kQw8O9ql7SFiUD2mbCXU1EMrNTdsOH9 +CRHYNMVHXYll4I18vX9reURAa5TYRrvLQJMXIw76tsJg3i0n6FXMwOB67bYp +uhB41/4OKilhIFFg30lFISFIyn89P/uIgRo/mIf82YRgMCzsrdsTBi6dvv3b +8p0gWOPXNIcqBtYXOfnPxAmu7h91KseaGHhSXXHKiV0QAm5aGWI/A+kjsb1a +3wiQEbi93n+AgWJeFpg1TIAmD+Lm2rcM7PvVMiHXTQCugy3CWkMMTPMVKNEv +IkAU56ahLaOr+sP5Tx0+TYDEC8uuzGkGCvH8NKwY2gAFR++Gr//HQLUxOdvM +XwJgsekKtzMbEyn1cxYv+wWAk8MqtGENEyNtLsnIVgqAVZFs8HlOJm6apAfI ++grA+rUZVwd5mTjhtqmtaJkfzj7O8c4WZuK6d3b1s7z8sE2g3F5HgYm3LC7n +rezgg7GxxI+3FZn4zCcykUzig5hKH9vvSkwMjXaVtOXkg892mtaZKkzcMcXj +vqOTF5Kqa47zbWPi5f7VwWrNC3+cmkz6gIk6Ak+ftUXxQF3jSzxjzsTCYsOD +dr+4IPgpR1bJESY2kXwjUke4wOCJOu/Po0yUaCMc/dHOBQNZ9175WDJRiZ9x +4N09Lvge7mwbeIqJRE4GtVKPC2iH2IITXJhoGT8fGHlrLUS+U2mt9mPiUoH1 +ib/7OMG411bxrz8T1dMl5ka3coJY560bELDKt3fad5DECZl1S0ebrzHxVNgE +G/dvDqhNb53oDGNi3MjffoM8DvjmdIpvNG4Vf+xU6zkCB5jPxRhyZzOxtq/A +vWpqDTR26ap6PGTi7l9z5l/61oBq7oJgfw4TX5ItlRSb1gD/yZMD2fn/z08c +zN1dA82tm+z2PGLibV/FUxFGa0Dt7ouLITVMvM8h+Savgg0IunyZHK+ZyLPf +8oOZ2j8df+m6ULfe1Xyw35l+teGfDmvB0+X1GyZ+U7RnXJhZ0WnLf6v8YICJ +4c9GLm/KXdG5KpJbpfuBibkkRyEbyorO7MTe7sBJJhaoN/wolvqrc6Jp6dHk +1Gq/xBR6Xlla1ulIKU44zGLimM34Dfd3yzrZJmKW5K9MdOJs5q+4u6xjVfP5 +07M5Ju7Vutn0TWY1PjG5VX6BiYRnfxferCzpaHga5cX+YmJ+gsrN98NLOsKM +cg/rP0zcI9Jz2jRjSecam6tJ2xITGQfSrBuClnS+DcpsU/27qufaN9phhyWd +k2WvxJJWmMj//Ngt9r1LOi9uhPz594+JHVfuRb+RX9L5H4UhA4Y= + "]]}, "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.9026545741090067}}, + "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:eJwVV3c8FW4XF7Ki7rW3u68QUgnJOZGWSEZJKXuXqEhFZI+EJCkZIZuSmZGV +8QslISmjlHFpIUV6vX89fzzn+Y5zzud8zkO29TBxYGdjY5tbw8b2/9NlZI6P +jY2AvrvcB6LGWLCPY3ZHEDsBw/dmDz8ZZYE844s711oCnnoYQ30/woLPbm+7 ++PkI+HE+xUhxmAX2v2rjJYQJqPRxa0HtOxZYrw+T3CJPwGXGM+3yXhYc0ZZQ +cDQmYA9YPu5pYYH6KcHjkyYEnH6fGP+2mQUi19ZFu5sTcFPiEs9wEwt6W//O +eFkScODO4fTxBhaYmI49umpPQHsZ6Q8jtSwwdM3XvHORgJK+j05FlrFgd9LO +/S/SCLilwaDP/wELNCN3J4Q8IKDe1L+1WzJYoHzFYFgnm4BFP0cyP6WxQML6 +2IVH+QS8+e/VerzPglnmhfTE8lV+6tWcviQWJFUU/LZ+QUB+haaQy9dZcD23 +dLdkNwFFRIQes0ez4Nrd6huvX636K9jREhrJgtNX2+h7+gmYP7XdLySMBbp7 +Px1WHCNgzpsqnROBLJjpk8qb/0XAO4RRY6fzLBhro8wX/SHgg9Px/1V6sWCg +eiM6/yVgTM6zVC5PFjTe3943yE7Esw87VG+fXtXjaMr+TICIn0pS/0Q6ruIv +RFpGUon4cOqecdlRFiSK/OGTO0RETVRf16fOgmeGWaS8w0RMdCkbeb6VBZMh +xurbzIhYvDXreqkaC7QXsm0MjhExkDZnHKC8qqfPtNLHjojl7U2ln+ks2JRU +6PDSh4h3pbhzR4RW6/fS4vLxS0QMYA3fiSKyIICHM+7zFSL+ClT/tnkDC3ou +WtYsBxLR/s2FR2f5WHDxGLfQxmgi6ikQm8vYWNAsafMsMI2ISZ5iihasaZg1 +4e/jf0DEgf1GWuWT0yAWVTF9O4uIoxLcuhu+TIPrkoBYUR4Rr5zJIj0enYYN +Q9WnB58QsS6uw666bxosU4SltrSv3pvdceiun4bvcm0XPn0n4ngja8/I9WlI +9h5vsZ0j4hqHrbPpkdOg28kuOrpAxHcns9eeDJuGhEs7y98vEfF3SNnZloBp +0HjzeKFvrSD6rU3ONz43Df6RKT7tEoIYIXn4ktnRaVg37+VbtEsQr5GfyPyQ +nIYnBrHtSrsF0eTzqc5F0Wk4kVEokb9HEANiDG1+C05D0aGJqocGgkj/08+c +4JsGkzyrP2nmgrhrO+Xl5T9TkHRq3+WbLoIYVBb27OLAFNA7ZPwuxgli8Lhb +c9mNKfj0dd8XpYRVPCmPvKjIKcgQOX94NFEQH7G/XT4WMgUkmw76gXuCuH5/ +5ofhS1MguejdJfVQEEMij9vEOkwBgfFSrr5GEMUme7mDNKfgT+C1xrUTgrjj +6faynHeTUPmwUKl6ShA1vFUHI95Mgk/nQOKZGUHMvuthbtc9CXPiKm79PwSx +Sl7C5F/jJHwtfieU+1cQeQYeBrzLnYRP77c6HBQSQp3D5p/o3pPQrfmF+6aO +EMpuTpMj8k5CY1a5tsQuIbTa6nDEl30SnhBDPVP1hDCE4S77bmkCkidp7/L3 +CeFopOWZqNkJcLxjW9RsIoSWHgqOqa8nYHnxvdmCoxD2noOS2/cmYGNlb/qx +G0LI+3rn2KeNExCk3riDNCKEHblHrFfUvkDRIuHnlhvCqEf6/lv57Sd4ZPll +j+gOEfRaGxn6/vAY1O3v1nN7J4I7P7+e13w1DLtWFJr3RIjinUXPHYMNg9AF +STMJimLIJfnzo71dH2wlXy991CGGSY9E2iSu9wChbX7ZzEcclQ+2nKSOdcJI +Sb3ZW19xjPz4uMCpvROK70QUWF0Rxwu2ryRrSjrByE3mhGOgOBZubzx462on +XF+v/9QnShwP+/FU8sh2Ap95gm9yqjiWZSLbd6sXwDGmtjDcKo5D4aKixZMd +sLDk8dVVXALjm8gj8yptMFS614YuJYGG4z3RDhJt0OAm93pYRgIfn/sy8Zm9 +DaLfdZWbUSVwJ69fvGxfK1CebvLXUZZAvabHw9Z+rWB4aZpfcLcEXtC/OarQ +/RwyFx0VqjwkcOi2kdf9qy1gMm/lwN0qgdsm6e3bBZug4r+HxLJ2CSyP/dym +wNYE0hnfa21fSGBKY1q/0mwjjBuFiNa9kkCbbX3/rDoa4WJOQev5IQl8bWIa +dS6oEVKPL20c+y6Bz7Ymc9ovNgCrIWm2RloSZzbszJSZeQZhMa99vLwkUTi2 +l3M9Wx2Q8htmv5+XRBZXjOeXT7VQ2Vrs4OkjiffHpqC/vRam2KJNz16RxHcD +W9p+36wFo3O7Vc6ESuLkt675fRtrQdSi7LNLsiQGTkcgh0UNZJNvm9s0SiJq +Z/YGtVTD8yeWW4wFpRB4L7anvq+AC2lHmteKSKHDDuW85y0VQIs2MX8qJoVn +d9nXchRVQKDdAR+GjBRmgYz6M/8K0BbUerrMlEJH7c7rSK6AUg8JvdydUrg+ +2LL3kGs5pCkMmLC7SOFo0x5ZNf4yuJxm7vWkXgqliNOGLlGP4WTPfOeORikM +nDV2eOv7GJAzcWNTsxRe3/9x1zHnx8Dl3Dfyql0KnbqSxMP1H0O8ytFDX19L +YYsr30ga22PIq7NQUpiQQoY8Yd0T30cwOHT8cypBGvd2Held51MCteuXdzGF +pLElPP/9CacSSMN7KUUi0sgdarux5mgJOGYOmdVKSuM+B+djWRol8MPNqmmQ +Jo2qNR+Kdi0UA9/SyTQRTWncaizlb7+2GLQkbC2jbKQxZEI/Znh7IWyRJLzc +Zy+N7Z7h3bEShaAkVafP5SSNf7V2gPVSAcjISG4OdJfG8jIb7WP1BcBG7uH2 +8ZFG26O/H5fsK4BWed0y2+vSKFj78M9763ww06AQtKqkMebn3Cbf7Fww1HwZ +8uupNHo22ibWROXCHi3/pSd10pitYzIu6ZkLGtqDn1WapfFia1kPUzsXpDC+ +lt4tjTuuFm4JeJ0DY3vZ3Yjj0nj1q/h1Ee4c8Dg61jJBkEEDuqmLQmA2THiz +e98RkkFvqocir2s2WCdSGAdEZVCvSnFpxSQbjN/YhuZLyeANz7zTKvRsUDX9 +uOcMQwbPhTjvT+/Igh9Gn1p/7pDB/ZX6zuUSWeC953P7iqMMfjV0XC/a9gBm +HbguFbvIoG46eWNR6QNwDGEoWLvL4FPhPY2WqQ/gaLNjZIOnDI5oyFO+ez8A +Dd0vB4KvyOCxwlNXCMwH8GfnxH+88TL4/NX6rzxRGeC3bapTuFYG12Z3ZJ+0 +SQeFu0X7btfLoOaFHf6JxunQx3auSaJRBv8sMhQ+QDoov1iqlG2VQdH8nOf3 +ZNNhxFYgU/6VDCavdwl7M5QGerGql7THV/kf68zLn0gD3mlvhr2ALMYbnbf/ +9t99KDfekf55gyzeJEb0yxXdB9vyf1IugrJYdcYzzi32PlQHhhPPiMliojT5 +3FHz++AunrzsQ5bFl0QTmv9ICnTr1/ZEbZPFh7Mi274v3YNbaRxXS61k0fFz +0L+GPXfB4s0bIXdrWTTpbX5MULgLknw5OTQ7WdxtS+XzE7gL988d7LnlLIvq +mqdVinqTIXvPLfrFc7L4tegy2cM+GSpZjBfaEbKo0jNpbxJxB4Y0Dkg8fyKL +DrsOd739chvun5Yu8q+QRS3Jm1+yum6Ddcas7vZqWewsOiYfXXYbxtfddM+p +l8UfdtcqsoNuw+yHd/WRHbLI82tBjUi+DWwhpx0Pjcji2OhZapZ1IlBfxZYO +rJPDvSGj3yR+JIDkQW4hu/VyKDi9f+bs+wQgtPp5zRDksMbFiGOoLQGWa1w3 +s4vK4ZCOpupsagL05ewuViTJ4Uf+B35shxIgImAxz3+rHN5yH0h5UXITvqpY +Z9Cs5HBx/QpX8LV4+JzXt6b4lBwKV27L0jobD0N0QxtN29X3NbnSHCfjoU1K +i2TkJIdLL6xN2zXjIYNb+L6PpxyKZorxbPwRB+bDrXc6QuTQBh6yMR3j4GmM +StzZIjlkjHe05VvGgqq8uOJsiRxu3R0433UgFrIb2FrcSuVw/Ivi8TU7YiF+ +7tWiY6UcypntSropFQvOluetrRrlkDI1lDRQfQNEGVUqB/rkMNcytaa5NQa8 +anW7qCty+FMt/wrHr2g4ny/yxJiNhCrtdbfHBqNBeZE38MYaEh77T61xqC4a +MuN+SApwktD6neowOSwaYpubjHh4SXhXY9d5lng0OCk4lq8IknBHsJvi6V1R +ILKQFzLNIKGvso+LV1YEWCpkn9KXJ6HwhlQ1p8gISDuZrpm6kYQXcv/Tu+gR +AUqtt2dMlEho6b2mY1YzYvU/EGxevZmEGyM6dRRehoOX1kl6hDYJi5NuzDas +CYcuf2ILw4SEHnMlOqUXQ0G4lD81wJSEzt8Xev5Yh4LlF27fQTMSfuKo1j2+ +PxTGD60oxRwlYXok08hRMhSWSdMJ8ydI+NLiwMGM2hBQbGq2b3YiYc4g+8Jd +nhAI577IaetHwoCunQnTxUEwcbKlKdOfhGMz6i8C7wXBvnLBoC9XSejiXc+r +GBEEPA6Fa05fI6HU8C+DctsgCGscW/EJI2FohPRsoWgQhPoZ/r4eR0JW0swk +8do1CP5Jma3KIqFiWpaammMgfDpwtnA5m4T3rzDquMwDYXdGrTvkkPBr3iiF +pRcInIctppvzSKgzX6o+SQ6EoKLrE93FJEw88bEh70MAXHNZHBuvIiGfuKXL +zuMBEDDc2U/sImHhtuW9zs/8wU2WkunRTcK4YgmPgFR/OGLlfbbzJQlT7uek +PvX3B8V3srwRr0noqREckbzTH/r6PLTY3pIw7KTd1YUaP9jURUyZ/UjCcCVX +Z+7GKzBYY277328S7j9hbpH06RK0LOUqb1wi4b+CftaL1ktQorXyJ3SZhAnf +1mwl5V+CkMrsm7r/SJg2nmdB8boEqk9+NVdxknGBtsknbs0lCMu/w8zZQMZy +4Xtm/+i+sDX5PSuYTsanPtKxusE+cHLC9cgQg4wT+npJoW4+EKG+WL9FnoyO +KcyoTyY+8KFH8OaYAhmLvXxaZsg+EL5unyaqkvFr6ok0tQZvGLryOGRJi4zu +Grcnz3B6Q/CpMFkvYzL2F/Pw/7t3HooKhcPbD5Nx/JGHtlHYeXi7lP6dZErG +DyIpSk88z4NyUk1zt/lqfOqtmaY952Hg5XfXTcfJuLP7iPW37+dASfdExYQD +GZWsgzqcD56DXtpm41OXyVhjPxiuRfQC8URCauoVMg50KwRf+ecJVtzfZob9 +yFi3MP6he8YTPk8WRVkHkLG3lcsjr8MTFouUWm1CyBjt5EjbFOIJMpryOvY3 +yHizpMvN8u9ZcDSUU3J5QMbtk2s7Wn96rO4XK5dyM8lomhB/0b7XY3U+fWif +zCJjZs2pCbkyD7gomOLkmkNGiXHWzR/eHhDVL/nArZCMRT2+gxzLZ6DERlTy +TAUZqyx4AmrWnYHfFwR4zv1HxgvaMRV16A5tXT/tul6QcXe5UEYmxR2SmIP1 +G7vIGF9+OTqP0x22v832GXlJRtqWB29F2t3ggjZ+Mewjo+/Qu1xHUzf4zn7u +ufzoKt7ZEY3e064weWMg+MPCaj2fX2xeqXSGyom6Ec3FVX8WmflZ950hfFeW +9q3fZFTPV73jHOwMzJ+ecwbLZNyY1ErQNXYGhyPr7KvWUHBCCLRw0glGpXX0 +EvgpaGQRJGNMcoK3uQ/WHKBQcGtZfeDvdAdopA/pxlAp2CKuNuoZ7QAF6cLB +PTQKusQkZP7zdoCAOyFcx5kUfDYaxn78oAMwIpzWuStRkIeh371+0R68nBVF +YtQpCE0Ya2FqD/zMUvmeAxT0a/BkfRG3g4WMaRfRgxSsJ609ML7WDoZlafmW +hhQMiymKnv9hC49Fb236eIiCM288vY06bcGCy0dtzoyCxpfZe4ev2ULWuJa2 +6CkK3nGXLDv73QZ0MhsPWZ6joJQMI63rnTU4qWxVTjpPwXWW7YqW/1lDbHUW +f98FCjra+TbMV1vDx5er7XuRghKlJS9OJFtD+F8jvf1+FLyy8+6jiWPW0HPk +nbpG2Cq/n1Bdb8UpcOSdkxG9S8GsZ+9kjvdZwY0Eh2XTexQ8o1cWolVlBZVy +/YNxKRQso20wU79nBevUq28LpFFwROBD2TVbKyixDSCuzVrV1/Mjxu3bCfjz +lH/tXBEFcz4UzDsQT8CNM3TWq0YKHh0MeKXvZAm7R1P6FZop2G6gxGtkYAmL +pqJNQS0UfB33aeCciiVYa3Inb2ujIPltSpPY4jFQ5Zzce6eTgvRAA7vayGPQ +c6fggfUABS9sMJZ1KLMAkZYtx7/OUPDF5OmYo3JHoWN7wZ59XynYdiYxe4Dr +KPjn0dTSv1HQ8uOf/HOzR+DzDRFe058UlDXjJP6qPQLllr/KyxcpeMJE66Dq +ySNg8a1a0J+DioW9GnTzB+ZwV0q3g1+CiunGV5Yfgxm4PuK/ayRJxdn0lYVC +RTPQ2NvvFitFxb+L7pU1YmbQ6+UuICxLxcEhSV2Rb6awviPRWIpKxZjd+qYl +6aYQcHG6b+MmKnp/WF/vx2MK9m8SPu7ZRcX7X6ZF5j4eBjW3U0/CdanoXnkl +Wq/nMLCtUQjp0KPitYgbfpnPDkOKUj3DaA8Voc84MjnlMPQFTbqYG1AxXi/a +w9ziMOxT0/lmZ07FxQW2vF8vjUHpxpflABcqJiekXV24dwhC+KsG37tSUeJs +lKfw5UPwISKyUsudiqLhV4qOHDsEccGbzs+doeKSreGZvaKHYMH33LTTeSoq +LJW+fBNnBPX2/94aXaXiPdGrK8E3DMFES6xC+hYVVYX+IyhlGkB+xUSCbyIV ++XJFt0WFGgDntmqvvttUfN3IJcbnYgAVKlbKsclU3CwhFe2obADS9AdZHGlU +jF4/GZ1YfQDGN6gkTOVRsbXsMatsYD9cHN/jWfmMiqUyfjZExX0wHeK6daWB +ih3VI+eHBffBSUbML70mKnI0CNa1/NkL+k5v/LpbqKirqxg32LEXBCftIj93 +rOop9kymuO+FAlbAA+E3VNSrto8QK90DIz+r35ydXPWTJSA1d1gfTBM+JJVP +UfFm4FLHXW19eL6V/cTyNBV7tfX7LZj6UHhh/1jYLBXrY+KLBf/uhku/+mfv +/6TimWT99UG5u0F4aY678y8V/7E76+7m2g372VW0NgrSMOPV5fzqLl1YfhSV +7CxEQzHZSKfdNbpQZDPx56EwDUP27981kqsLwg3pTxliNEymfOAyCtGFkavC +O2nSNFQ+snfmn7YuXPz7G+QYtNX/iPtCYfEuyFls1hfRoqGUq+ZYTTrC8Rxy +ttkOGlblF292iUNYb+HPlaBNw6LuoVB6IML5iu2tgkBDI7Y4ji5rBPTO20fY +TcPPR1Tjh0gIAz9vGKwzoiHv9Ix8y14A7q+Wh9fY0nCZTj9j6roTdofW1R23 +oyG//QVOdoOdcE2GolRuT8N+3X3fXinuhBWDSS43JxqOX2jRejOjDQs5PjW9 +7jTc1XO1yeGcNny2TWDm+NCw9mSQdWzwDmju6/xrdJ2GRPk/QuQ6TWA/s9kt +N4aGH79ecKvM0ARce2uAI5aG7z1ef3UP04SaLSdKK+NpON+ryLHpsCaUxk45 +U5JoeCDT4NfazxqQcYC7dz6DhrZw/jabiAYE1GHevUoaXrg/qGcQpg4DFxeW +h6to+Oz0b/hyVh1UtxQcoj5djdduuXzHUh1GHorN59bSkJohYonK6oBxs1DR +SMM2850Hb/VtAzb7e29evaBhp3McZb/iNrjKu8jGPUpDf/NLbfqftkBfU6Hp +gTEavqyaDA14uQWU/e2yr3+kre5jbVNdNVvgw48uA+HPNFRpe2OWfWsL6Axl +JZKnaXgpJSJh574tsFJkqqQ9T8NzWwOE/paogb9Z8VFPXjoajo+76MRuBpsF +t4puPjpuOtN51Mxv8+p+LC+mzE9HWarBA3/XzcA3lN43tZ6OcnxeSxv0N8Mt +uwRze2E6nj/tYUxdUoUCL1/To3J0TFnWePvbVRUGY/UO7dxGxzrQ6s57pAy1 +amzFd9XpmLBr6ta9WGVI661Z/2c7HV3aA+ceeSiDo7h6V7kWHX9UG43sUVaG +76nyhqpIx8zxQgORwk3AUyxgQDWgY1f7q2fUR0qwvbN/D68NHZ/XfSrn7VEA +S/9OPRtbOpZ/lW8qLFOAKypNWGVHR8HTHzo87ihAY1yRlovjKn7ssqGhjQIc +PBKi3O5GRyuz6VLXHxvBelhNNMKbjto7Kr4LSW6EyO/Xx3mi6TiWR7A18mdC +QUbQmPV1OvosirC8HZjQbeo7XBlDR0ZjXVXVQSYIl9u/dY6joxCB/9F1KSbc +v7Sjsy2Rjk57vQTcqxlQyjH5JDydjpffT3ZMLdNhSGR3ME8FHV2DnodpJNBA +fCrKcX8lHeM37jKdvkoD87rX+yKr6NgneZz+2I0GXY52Avw1dNS8HBBzWY8G +DRXXEjc0rNYn0cJ46ScVso815Ij+R8eJOvPiFAsqeKbodNKG6XjzkM2dKRUK +FHmGFjuMrPKnNdn9lqHAlH5XXPYoHR+Pi4xK8FPAftbqiPynVbzStqIbE2Q4 +An7DipN0rN4y9OhgBhm0R59+V/tJRzvmD5e/4mTgomuK7uJmYGRFWWqLIAm6 +RsLWpvAw8HGFydOENSS4da9vbpGXgdeefPVijcgBTfj86xJ+BnYfSpYZuScH +uhzFsSRBBvbYPFn0FZWDq6O0dWwyDBzJGNM4QpCFxRQCW70aAykm+lUFMtLw +7Nipr5JbGcjFd/Zy8j8pCBMp+uC9jYHL7tmOOaNSIHrdoFZZg4EzQ/8p07Kl +YNuV0Ev3dzLQeZvQi9uqUuBluTznt4+BqZLTo4cNJGFadGJS+yQDdW9Wzmy6 +LQ4v5sPrAk8xMFn+kEyqvzgU9W68+dx61Q/+7pF3FAeveDdtY7tVP0JFZ0K2 +icOiwNcYO2cGSl5drLd+IwZcaxe2RHoxMLNg8l2khBiQfnL494cy0GzhtAVf +qQiw92SaSIczsKU0Putkigh8LNFn2kQw8O9ql7SFiUD2mbCXU1EMrNTdsOH9 +CRHYNMVHXYll4I18vX9reURAa5TYRrvLQJMXIw76tsJg3i0n6FXMwOB67bYp +uhB41/4OKilhIFFg30lFISFIyn89P/uIgRo/mIf82YRgMCzsrdsTBi6dvv3b +8p0gWOPXNIcqBtYXOfnPxAmu7h91KseaGHhSXXHKiV0QAm5aGWI/A+kjsb1a +3wiQEbi93n+AgWJeFpg1TIAmD+Lm2rcM7PvVMiHXTQCugy3CWkMMTPMVKNEv +IkAU56ahLaOr+sP5Tx0+TYDEC8uuzGkGCvH8NKwY2gAFR++Gr//HQLUxOdvM +XwJgsekKtzMbEyn1cxYv+wWAk8MqtGENEyNtLsnIVgqAVZFs8HlOJm6apAfI ++grA+rUZVwd5mTjhtqmtaJkfzj7O8c4WZuK6d3b1s7z8sE2g3F5HgYm3LC7n +rezgg7GxxI+3FZn4zCcykUzig5hKH9vvSkwMjXaVtOXkg892mtaZKkzcMcXj +vqOTF5Kqa47zbWPi5f7VwWrNC3+cmkz6gIk6Ak+ftUXxQF3jSzxjzsTCYsOD +dr+4IPgpR1bJESY2kXwjUke4wOCJOu/Po0yUaCMc/dHOBQNZ9175WDJRiZ9x +4N09Lvge7mwbeIqJRE4GtVKPC2iH2IITXJhoGT8fGHlrLUS+U2mt9mPiUoH1 +ib/7OMG411bxrz8T1dMl5ka3coJY560bELDKt3fad5DECZl1S0ebrzHxVNgE +G/dvDqhNb53oDGNi3MjffoM8DvjmdIpvNG4Vf+xU6zkCB5jPxRhyZzOxtq/A +vWpqDTR26ap6PGTi7l9z5l/61oBq7oJgfw4TX5ItlRSb1gD/yZMD2fn/z08c +zN1dA82tm+z2PGLibV/FUxFGa0Dt7ouLITVMvM8h+Savgg0IunyZHK+ZyLPf +8oOZ2j8df+m6ULfe1Xyw35l+teGfDmvB0+X1GyZ+U7RnXJhZ0WnLf6v8YICJ +4c9GLm/KXdG5KpJbpfuBibkkRyEbyorO7MTe7sBJJhaoN/wolvqrc6Jp6dHk +1Gq/xBR6Xlla1ulIKU44zGLimM34Dfd3yzrZJmKW5K9MdOJs5q+4u6xjVfP5 +07M5Ju7Vutn0TWY1PjG5VX6BiYRnfxferCzpaHga5cX+YmJ+gsrN98NLOsKM +cg/rP0zcI9Jz2jRjSecam6tJ2xITGQfSrBuClnS+DcpsU/27qufaN9phhyWd +k2WvxJJWmMj//Ngt9r1LOi9uhPz594+JHVfuRb+RX9L5H4UhA4Y= + "]]}, "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:eJwVl2c8Fe4bxoWsqHPs7ewjhFRCct+RlsgsKWXvEhWpiOyRkCQlI2QTmRlZ +kV8oSZIyShmHFlKkv/+r5/O8/97XdX3Jdp6mjuxsbGxza9jY/v+6jszxsbER +0G+Xx0D0GAt2J+/c/zydgFuaDPoD7rMgSeQPn9whImqi+rp+dRZ8l+s4/+k7 +EcebWXtGrk0DvVPG/0K8IIaMu7dWXJ+CHs0v3Dd0hFB2c7ockXcSgtWbd5BG +hLAz77DNitoXKF4k/NxyXRj1SN9/K7/9BA+tvuwR3SGC3mujwt6bjEHD/h49 +93ciuPPzq3nNl8Owa0WhdU+kKN5e9Nox2DQI3ZA8k6gohlySPz862PfDVvK1 +8oedYpj8UKRD4lovEDrml819xVH5YNsJ6lgXLCx5fnUTl8CEFvLIvEoHmM5b +O3K3S+C2Sfqz7YItEB77ytfbWxKF4/o417M1wNNHVluMBaUQeC88S3tfBZfS +LbwfNUqhFHHa0DW6DLQk7KyibaUxdEI/dnh7EXgeGWubIMigAd3MVSEoB/y3 +TXUJ18vg2pzOnBO2GXAzneNKubUsOn0O/te05w5QX8aVD6yTw72ho98kfiTC +41iV+DPFcsgY7+wosIoDkYX80GkGCf2UfV29syMhgvsCp50/CQO7dyZOlwRD +4HDXG2I3CYu2Le91eRIAW1Pes0LoZHzsKx2nG+ILfbTNxicvkbHOYTBCi+gN +v88L8Jz9j4zntWOrGtAD3ubdX3OAQsGtFY1BvzMcQSer+ZDVWQpKyTDSu9/Z +wPXTdNbLZgoeGQx8qe9sBXekdDv5JaiYYXx5uQzMQen6l+VAVyqmJKZfWbh7 +CC6M7/GqfkLFchl/W6LiPtjPrqK1UZCGmS8vFdR26wL3VyuTNXY0XKbTT5u5 +7YTABsy/W03D8/cG9QzC1SHAvOSIFy8dDcfHXXXiNsP2rjd7eG3p+LThUyVv +rwIMiewO4amio1vw03CNRBpw0TVFd3EzMKqqIq1NkATTohOT2icYqHujembT +LXGw6JET9C5hYEijdscUXQgKj9yJWP+PgWpjcnZZvwSgofkFnrZgYlGJ4UH7 +X1xgMRdryJ3DxPr+Qo+aqTXw/Hron3//mNh5+W7Ma/klncPaEgpOxgTsBauy +3jYWzPRL5c//IuBtwqix8zkWtEraPglKJ2Kyl5iiJWsa1s17+xXvEsSr5Ecy +PySn4U/Q1ea1E4K44/H2itx3k7Cxui/j6HUh5H21c+zTxgngGFNbGG4Xx6EI +UdGSyU7IWnRSqPGUwKFbRt73rrQBqyl5tk5aEmc27MySmXkCOeRbFrbNkoja +WX3BbbWQrjBgyu4qhaMte2TV+CtgcOjY5zSCNO7tPty3zrcUzDUoBK0aaYz9 +ObfJLycPfPZ8frbiJINfDZ3Wi3bcB95pH4aDgCwmGJ1z+PbfPRjSOCDx9JEs +Ou4y6X775RZ8VbHJpFnL4eL6Fa6QqwngXa/bTV2Rw59qBZc5fsVAdwCxjWFK +Qs+5Up3yC2EQ8pMyW5NNQsX0bDU1pyAYrLOw++83Cfcft7BM/nQRQk6Gy3ob +k/FNCQ//v7vnwMlQTsn1Phm3T67tbP/pCZPXB0I+LJBx4umF1pVqF+Bnlsv3 +HqCgf5MX64u4PTjxzsmI3qFg9pN3Msf6rUGkbcuxrzMUfD55KvaI3BFweJ34 +cc8uKt77Mi0y99EETLXEqqRvUlFV6D+CUpYBjPysfX1mkop3swWk5kz0IXex +VV9Ei4ZSbppjdRkIrf1df42u0ZAo/0eI3KAJV3gX2bhHaRhgcbFD/9MWGIzT +O7RzGx0bQKsn/6EyRH2/Ns4TQ8exfIKdUQATvFJ1umjDdLxxyPb2lAoFFlMJ +bI1qDKSY6tcUykgD6SdHwJswBpovnLLkKxeBwBvWhviGgfSRuD6tbwTYJlDp +oKPAxJuWl/JXdvBB1DuV9lp/Ji4V2hz/u48TCLp8WRyvmMiz3+qDudo/HZv1 +4ZJb5Am4zHiiXdnHguSqwt82zwnIr9ASeukaCzYlFzm+8CXiHSnuvBEhFgRE +pfo+kxDESEmTi+ZHpoHAeCHXWCeIYpN93MGaU7C8+N58wUkI+85C6a27E8Bn +keiXkiaOFVnI9t36ORhenOYX3C2B5/VvjCr0PIW0Y0sbx75L4JOtKZwOi00g +alnx2TVFEoOmI5HDsg7KPSX08nZK4foQq75DbpWQ32CppDAhhQx5wrpHfg+h +XV63wu6aNArWP/jz3qYAfhh9av+5Qwb3V+u7VEpkg16c6kXtcRkcKdOZlz+e +DtUsxnPtSFlU6Z10MI28DZGBi/kBW+XwpsdA6vPSGyDKqFE50C+HeVZpda3t +seCtdYIeqU3CkuTrs01rIiDM3/D3tXgSspJnJolXr8KmbmLq7EcSRii5uXA3 +X4ahy2WhS1pk9NC4NXma0wdkNOV1HK6T8UZpt7vV3zPwnf3sU/nR1Tw9M6LR +d8oNvF0URWLVKQgtGGdp5gC9h9+pa4RTcMZfqKGv6iT03i68bzNAwfMbjGUd +Kywh8MJ0/8ZNVPT5sL7Rn8cMGh3+vTW6ssqj6JWVkOuGUMgKvC/8mop6tQ6R +YuV74MLf3yDHoOFjYY+FopJd8NkukZnrS8P6E8E2cSE7gM3h7uuXz2nY5RJP +2a+4DQq9/cyOyNExdVnj7W83VbAZVhON9KGj9o6q70KSGyHnaFOu6H90nGiw +KEm1pMKVUdo6NhkGjmSOaRwmyALX2oUtUd4MzCqcfBclIQZuDxtUjrYw8IS6 +4pQzuyCcKcv1yRFm4rp39o2zvPxAO8QWkujKRKuE+aCom2tB7c7zC6F1TLzH +Ifk6v4oNDN0KNG9fIKCk38OTURUs0F2IsoqiEvHB1F3jiiMssEoVltryjIiX +zW879jROQ/LJfZduuApicEX4kwsDU/Dp/VbHg0JCqGNi8YnuMwl8SyfSRTSl +cauxVIDD2hIY28vuThyXxitfxa+JcOfCn50T//EmyODTl+u/8kRnQo9+fW/0 +Nll8MCuy7fvSXWALPeV0aEQWx0bPULNtksBiuP12Z6gc2sIDNqZTPDgrOFWu +CJJwR4i74qld0aDY0urQ6kzC3EH2hTs8oXDVdXFsvIaEfOJWrjuPBUJ4wW1m +7gYyVgrfNf9H9wMl3eNVE45kVLIJ7nQ5uHpEtqKSp6vIWGPJE1i37jSMSuvo +JfJT0MgyWMaY5AzZ41raoicpeNtDsuLMd1v485h/7VwxBXM/FM47Eo+D5bda +wQAOKhb1adAt7lvAPjWdb/YWVFxcYMv/9cIYxjeoJE7lU7G9ooxVMbAfhJfm +uLv+UvEfu4vubq7dMPDzusE6IxryTs/It+0FyDzA3TefSUM7OHeLTUQDVorN +lLTnaXh2a6DQ31I14CkRMKAa0LH72csn1IdKUM4x+Sgig46X3k92Ti3TQXv0 +8Xe1n3S0Z/5w/StOBm+r5Tn/fQxMk5weNTGQBK1RYgftDgNNn4846tsJQ9L5 +ZTfmNAOFeH4aVg1tgD/OLab9wEQdgcdPOqJ54JvzSb7R+FV+xk62nyVwwOzE +3p6gSSYWqjf9KJH6q+Pwqz5BQpiASh+3Fta/Y8Es83xGUiUBN1Gv5PYns2Cs +36za156Ilc9ayj/TWaDxumyhf60g+q9NKTA+Ow2Siz7dUg8EMTTqmG2c4xQ4 +3bYrbjUVQitPBae0VxNwbb3+Y99ocTTx56nmke0CyuNNATrKEqjXUjZs498O +F3IL288NSeArU7Pos8HNYHR2t8rpMEmc/NY9v29jPWgLaj1eZkqhk3bXNSRX +QYLKkUNfX0lhmxvfSDpbGbCRe7l9faXR7sjvstJ9haBq9nHPaYYMng112Z/R +mQ0jdgJZ8i9lMGW9a/jroXTI2XOTfuGsLH4tvkT2dEiB/tzdJYokOfzIf9+f +7VAiuFids7FulkPK1FDyQO311b0eYlG7mYQbI7t0FF5EQHjz2IpvOAnDIqVn +i0SDob/fU4vtLQnDT9hfWajzh4h1+zRRlYxf046nqzX5wGKxUrttKBljnJ1o +m0K94Lw2fjHsJ6Pf0Ls8JzN3YEQ6r/NQoiAPQ79n/aIDRPw10tvvT8HLO+88 +nDhqA6qck3tvd1GQHmRgXx91FNZ3JhlLUakYu1vfrDTDDBb8zk47n6OiwlL5 +i9fxRiA4aR/1uZOKfCVeKRSPvTByRXgnTZqGyof3zvzT1oWFXN+6Pg8a7uq9 +0uJ4VhswfhaqmmnYYbHz4M3+bXDTPtHCQZiO5055GlOXVOHg4VDlZ+50tDaf +Lnf7sRGaqq4mbWiio2ySpfHSTyrocpTEkQQZ2Gv7aNFPVA4WBb7G2rswUPLK +YqPNazGwwa/pjjUMbCx2DpiJF4T1azOvDPIyccJ9U0fxMj98j3CxCzrJRCIn +g1qtxwWt7Zvs9zxk4i0/xZORRmvA1Gzs4RUHAjrISH8YqV/tXycz9icCRPxU +mvYnyokFG4ZqTw0+ImJDfKd9bf80mOZb/0m3EMRd2ykvLv2Zgq8l74Ty/goi +z8CDwHd5k/DD3bplkCaNqnUfinctlIAUJtTTe6Rxx5WiLYGvckFD98uBkMsy +eLTo5GUC8z54iKcs+5Jl8QXRlBYwkgqzH941RnXKIs+vBTUi+RZkcgvf8/WS +Q9EsMZ6NP+IhrrXFiIeXhHc0dp1jicfAMmk6cf44CV9YHjiYWR8KwcXXJnpK +SJh0/GNT/odAUH30q7WGk4wLtE2+8WsuwsCL726bjpFxZ89hm2/fz0L0G8n7 +7kVkLO71G+RYPg2Oh9c51Kyh4IQQaOGkM1hy+arNmVPQ+BJ73/BVOyi1CySu +zV71jd4fse7fjkOl1a/KykUKHjfVOqh64jD0B0+6WhhQMUEvxtPC0gSk6fez +OdKpGLN+Miap9gBc/PVm9t5PKp5O0V8fnLcb0Cd/H2E3DT8fVk0YIiGUx025 +UJJpeCDL4NfazxqgM5SdRJ6m4cXUyMSd+7bA9zR5Q1WkY9Z4kYFI0Sa4d3FH +V0cSHZ33egt41DLgMPgPK07SsXbL0MODmWTYdjns4r2dDHTZJvT8lqoUbJri +o67EMfB6gd6/tTwiEM25aWjL6Oo/gv+kySkCJNfWHePbxsRLb350G9jwQn1G ++0RXOBPjR/6+McjngCsieTW6H5iYR3ISsqWs6Oju/WSiOEbA3Nc1OseDWHDh +KLfQxhgi6ikQWyvYWGBd9/nTkzkm7tW60fJNZlnns/vbbn4+An6cTzVSHGaB +hM3R8w8LCHjj38v1eI8F2gs5tgZHiRhEmzMOVGZB4sWdle+XiPg7tOJMW+A0 +kGw76QfuCuL6/Vkfhi9OQcok7V3BPiEcjbI6HT07AUbuMsedgsSxaHvzwZtX +uiDmXXelOVUCd/L6J8j2t8O4Uahow0sJtN3W/8+6sxmm2GLMzlyWxHcDWzp+ +36iHIPsDvgwZKcwGGfUnAVXA5dI/8vKZFDp3J4tH6JeBjIzk5iAPaayssNU+ +2lgIxq/twgqkZPC6V/4pFXoOKD9fqpZtl0HRgtynd2Uz4N7Zg703XWRRXfOU +SnFfCizXuW1mF5XDIR1N1dm0REiYe7noVC2Hcua7km9IxYFS+60ZUyUSWvms +6ZzVjAQex6I1p66SUGr4l0GlXTAovpPljXxFQi+NkMiUnQHwoVfwxpgCGUu8 +fdtmyL7webI42iaQjH3tXJ75nV6w/W2O78gLMtK23H8r8swdAm+Hch1jUvDJ +aDj7sYOO8PFFxDOTCxSUKC99fjzFBmw0uVO2dVCQ/Da1RWzxKPR5ewgIy1Jx +cEhSV+SbGcSHbDo3d5qKS3aGp/eKHgJ959f+PW1U1NVVjB/s3AvCTRmPGWI0 +TKF84DIK1YUVg0kud2cajp9v03o9ow0jD8Tm8+ppSM0UsUJldeAbyuifWk9H +OT7vpQ36m6E5vljL1YmOP+KWDQ1tFaDbyV6Av46OmpcCYy/p0YAmfO5VKT8D +ew6lyIzclQPvBHdtY3sGXhUqPh26TRwGw8Pfuj9i4NKpW7+t3gmCdbFsyDlO +Jm6apAfK+gnAQPbdl75WTFTiZxx4d5cL+E+cGMgpYOKOqXiYu7MG+tr/znhb +EXDgtknGeBMLmu9t7x9kJ+KZB52qt06xwG1JQKw4f3Xvnc4mlY1OQ/GhiZoH +BoJI//OGOcE3DXPiKu5vfghijbyE6b/mSXDKGjKvl5TGfY4uR7M1SkFDe/Cz +Sqs0Xmiv6GVq58GRVqeoJq9VP9CQp3z3uQ+1QRHE02KymCRNPnvE4h6Mr7vh +kdsoiz/sr1blBN+CDiktkpGzHC49tzF7ppkAWfE/JAU4SWjzTnWYHB4D44dW +lGKPkDAjimnkJBkGnCaW0635JNSZL1efJAdBaHXODd1/JEwfz7ekeF8E5eS6 +1h6LVZ9NuznTsuccXBBMdXbLJaPEOOvGDx9PYP70mjNYJuPG5HaCrrELlIne +3PTx0KofvPbyMeqyg3XqtbcE0ik4IvCh4qqdNXy+LsJr9pOCsuacxF/1hyFV +qZFhtIeK0G8clZJqAlUq1spxKVTcLCEV46RsAEXn94+Fz1KxMTahRPDvbjhX +tb1dEGhoxBbP0W2DULfleHl1Ag3n+xQ5NplowofVWBL+TEOVjtfmOTe3gJO4 +enel1iovtUYje5SVQbjS4a1LPB2FCPwPr0kxwWHW+rD8p9U+Le8ovj5BBtFr +BvXKGgycGfpPmZYjBTmnw19MRTOwWnfDhvfHRYDrYJuw1hAD0/0ESvWLCfDZ +XtMmS+X/fPB47OjihayGpSOtV5l4MnyCjfs3B3QUvFW+P8DEiCcjlzblreic +utJB3/OGgAVT2/1Dw1nQe8GqbjmIiA6vzz88w8eCHFMxK/JXJjpztvJX3VnW +EWZUetr8YeIekd5TZplLOvKMLx5cawl48kEs9f0IC5QvGwzr5BCw+OdI1qd0 +FkyGGqtvMydiydbsa+Vqqz7SxS46ukDEdydy1p4In4ZMkXMmo0mC+JD97fLR +0Cl4RAzzStMTwlCGh+y7pQkouR1ZaH1ZHM/bvZSsK+2CJne5V8MyElh29svE +Z/YOkM78Xm/3XAJTm9PfKM02Q3V7iaOXryTeG5uCN8/qgRZjavFYTArP7HKo +5yiuAuRM2tjSKoXX9n/cddSlDJSkGvS5nKXxr9YOsFkqBJskCuOAqAzq1Sgu +rZjmQD/b2RaJZhn8s8hQ+AAZIMmXm0uzl8XddlQ+f4E7QGj3954hyGGdqxHH +UEci5DSxtbmXy+H4F8Vja3bEQfqJDM20jSQ8n/ef3gXPSNhXKRj85QoJXX0a +eRUjg+Gwtc+ZrhckTL2Xm/Y4IAAi1Rcbt8iT0SmVGf3J1Besub/NDPuTsWFh +/EPPjBckMwcbN3aTMaHyUkw+pwcUZgiH9NIo6BqbmPXPxxHiarP5+89T0Mne +r2m+1gYWzURbgtso+Cr+08BZFSvQ2PvGPU6Kin8XParrxMzhQ2RUtZYHFUUj +LhcfPnoITjBif+m1UJGjSbCh7c9eKLad+PNAmIah+/fvGsnThasyFKVKBxq+ +0d337aXiTlDdUniI+njVb7TbLt22Ul/dx/Jiyvyr/FIN7ge4bYbLKi1YY09H +wVMfOj1vK4BFw6t9UTV07Jc8Ri9zp8HNu/1zi7yrefjoqzdrRA6K+zbeeGrD +wDL83SvvJA7JBa/mZx8yUOMH81AAmxBwcliHNa1hYpTtRRnZagEweKTO+/MI +EyU6CEd+POMC1bwFwTe5THxBtlJSbFkDIlfXxXhYrPpL0hLPcAsLBmo3ostf +AsbmPknj8mKBWHTV9K1sIo5KcOtu+DINxzOLJAr2CGJgrKHtb8Fp8O0aSDo9 +I4g5dzwt7HsmIR3vphaLSCN3mN3GuiOlsEcrYOlRgzTm6JiOS3rlgVMoQ8HG +QwYfC+9ptkq7D3aV/6RcBWWx5rRXvHvcPbDJnNXdXiuLXcVH5WMqbsEQ3dBW +027VN+rypDlOJIDyIm/Q9TUkPPqfWvNQQwxYfeH2GzQn4SeOWt1j+8Ngd2a9 +B+SS8Gv+KIWlFwSlWit/wpZJmPhtzVZSwUV4u5TxnWRGxg8iqUqPvM7BV5UP +zyazyZhVd3JCrsITInZla9/8TUb1AtXbLiEuMCxLK7AypGB4bHHM/A87qJZ7 +MxifSsEK2gZz9bvWEJBPU8v4RkGrj38Kzs4eBrY1CqGdelS8GnndP+uJCXBu +q/Xuv0XFV81cYnyuBvB0K/vx5Wkq9mnrv7Fk6sN6ywCuRG0aFvcMhdGDEHDt +zQGOOBq+93z11SNcE5QD7HOufaSt+n3HVHfdFkjvq1v/ZzsdXZ8FzT30VIYe +M7/h6lg6MpobamoOMmFKvzs+Z5SOZeMioxL8FAgXKf7gs42Byx45TrmjUvCx +VJ9pG8nAv6srsyNcBFo8iZvr3zKw/1fbhFwPAWKrfe2+KzExLMZN0o6TD8S6 +bl6HQCa27J32GyRxAmvBy/XVayZ+U3RgnJ9Z0bl6p/b6q5cEXC7c0RYWxYJA +Hs74z5eJ+CtI/dvmDSzoTC1JNGExccx2/LrHu2UdDS+j/LhfTCxIVLnxfnhJ +59ugzDbVv6t+ffUbzcRxSWcfx+yOYHYCRuzNGX40ygLNqN2JofcJqDf1b+2W +TBY8Mcwm5ZsQMcm1YuTpVhak+Iy32c0RcY3j1tmMqGn49HXfF6XEVT6lPPOj +o6agObtSW2KXEFpvdTzsxz4JI6WN5m/9xDHqY1mh87MuGCrfa0uXkkDD8d4Y +R4kOqPrvAbHimQRWxn3uUGBrAVJB0+z3c5LI4or1+vKpHs6nH25dKyKFjjuU +85+2VcGJ3vmuHc1SGDRr7PjWrwy2SBJe7HOQxmdeET1xEkUw4cPuc1tIBn2o +noq8bjmgcKd4361GGdQ8vyMgyTgDLF+/FvKwkUXTvtYygsIdkDzILWS/Xg4F +p/fPnHmfCKry4oqzpXK4dXfQfPeBOLBSyDmpL09C4Q1pas5RkTBxoq0lK4CE +YzPqz4PuBoO7LCXLs4eE8SUSnoFpAXBiwu3wEIOME/p6yWHuviCeREhLu0zG +gR6FkMv/vKCj+6d993My7q4UysyieEAzfUg3lkrBNnG1Ua8YR3BW2aqcfI6C +66yeKVr9ZwO7R1PfKLRS8JmBEq+RgRW4PeS/YyRJxdmMlYUiRXMI5a8ZfO9G +RYkz0V7Clw7BdKjb1pUmKnbWjpwbFtwHyw+jU1yEaCgmG+W8u04Xdoc1NByz +pyG/w3lOdoOdMHBhYXm4hoZPTv2GL2fUwXbBvaqHj46bTncdMfffDFYBXXq2 +dnSs/CrfUlShAOJT0U77q+mYsHGX2fQVGnSPhK9N5VnNxyrTx4lrSPB8PqIh +6CQDU+QPyaQFiINP/e/g0lIGEgX2nVAUEgLLTZe5XdiYSGmcs3zxRgBCHnNk +lx5e5Z3kF5k2wgXN3bqqng+YuPvXnMWX/jWgflLw2KQpAaffJyW8bWXBWAdl +vvgPAe+fSviv2psFs6b8/fz3iTiw30ircnIaHhnEPVPaLYimn092LYpOQ/WD +IqXaKUHU8FEdjHw9CfXrl3cxhaSxLaLg/XHnUjDUfBH667E0ejXbJdVF58Gs +I9fFElcZ1M0gbywuvw+VxjsyPm+QxRvEyDdyxffg3inp4oAqWdSSvPElu/sW +fM7vX1NyUg6Fq7dla51JgHMFIo+M2Uio8qzh1thgDAiX86cFmpHQ5ftC7x+b +MPh04EzRcg4J711mNHBZBEHbUp7yxiUS/it8w3refhGKi4RXhYKM4w89tY3C +z0F+w8rFvCwymiUmXHDo84TqiYYRzUUy3rDMKsi+5wILmdOuogcp2Ehae2B8 +rT1cT3RcNrtLwdN6FaFaNdbQub1wz76vFOw4nZQzwHUE1NxPPorQpaJH9eUY +vV4TKKiaSPRLoiJfnui26DADMEv8kFw5RcUbQUudd7T14VguOcd8Bw1rCko2 +u8YjsJ/e7J4XS8OPX8+7V2dqQn9LkdmBMRq+qJkMC3yxBerV2EruqNMxcdfU +zbtxylCYGTxmc42OvosiLB9HJhR7hZU4jtDxUnqL/W8ZCjw5evKr5FYGcvGd +uZTyTwrYe7NMpSMY2FaekH0iVQQyg7Y3BgwwUMzbErOHCTA2lvTxliITn/hG +JZFJfGDcZ6f4N4CJ6hkSc6NbOSFAuiHMvW+1f9lvT7/c8E/nWl75bskeAoqI +CJWxx7Dg8AvLS8cuEjGQNXw7msiC4y1LDyenVnmMLfK6vLSs05mU0i6/wETC +k78Lr1eWdK6yuZl2LDGRcSDdpil4SedExUux5BUm8j89epN975LO/wAU6AOG + + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1VO0HGkUgNHYtpMb27bNGzu5sW3bts1BbNu2bWcy5u41D7vqfKfrpetf +qzsopFtw19ChQoX65hK4r3Cpzl/m72hKHs7Z9Sc9N/Q4wrBS1+Bv8/c045Ne +TGV+13k5bx5ABm7q8YRlla7JP+YfaM5nvYQq/KHzccE8kIzc0hMIx2pdi3/N +P9KC/Fy0G0QmbuuJhGeNDg58UTa5taQAl/RgMnNHTyICa3XtwLthsw6hIBGJ +RGSiEJVoRCcG6zxfhzBs0a0oREzW29UlLFt1awoTiw129QjHNt2GIsRmo119 +wrNdt6UocQJnZdeACOzQ7ShG3MC52DUkIjt1e4pzWQ8hC3f1ZOIFzkE3IhK7 +dAdKcEUPJSv39BTiB967bkxkduuOlOSqHkY27uupJGCTbkIU9uhOlOKaHk52 +HuhpJGSzbkpU9urOlOa6HkEOHurpJGKLbkY09ukulOGGHklOHukZJGarbk50 +9uuulOWmHkUuHuuZJGGbbkEMDuhulOOWHk1unuhZJGW7bklMDurulOe2HkMe +nurZJGOHDiEWh3QPKnBHjyUvz/QckrNTtyI2h3VPKnJXjyMfz/VcUrBLtyYO +R3QvKnFPjyc/L/Q8UrJbtyEuR3VvKnNfT6AAL/V8UrFHtyUex3QfqvBAT6Qg +r/QCgtir2xGf47ovVXmoJ1GI13ohqdmn25OAE7of1XikJ1OYN3oRadivO5CQ +k7o/1Xmsp1CEt3oxaTmgO5KIU3oANXiip1KUd3oJ6TioO5GY03ogNXmqp1GM +93op6TmkO5OEM3oQtXimp1OcD3oZGTisu5CUs3owwTzXMyjBR72cjBzRgR/1 +ZJzTQ6jNCz2TknzSK8jEUd2N5JzXQ6nDSz2LUnzWK8nMMd2dFFzQw6jLKz2b +0nzRq8jCcd2DlFzUw6nHaz2HMnzVq8nKCd2TVFzSI6jPGz2Xsvyk15CNk7oX +QVzWI2nAWz2PcnzTa8nOKd2b1FzRo2jIOz2f8vys15GD07oPabiqR9OI93oB +FfhFrycnZ3Rf0nJNj6ExH/RCKvKr3kAuzup+pOO6HksTPupFVOI3vZEv5qVU +5U/91X0Z1QLvhOWh//8vz+2z/wD6/vfg + "], 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]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 0.9026545741090067}}, + "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:eJwVV3c8FW4XF7Ki7rW3u68QUgnJOZGWSEZJKXuXqEhFZI+EJCkZIZuSmZGV +8QslISmjlHFpIUV6vX89fzzn+Y5zzud8zkO29TBxYGdjY5tbw8b2/9NlZI6P +jY2AvrvcB6LGWLCPY3ZHEDsBw/dmDz8ZZYE844s711oCnnoYQ30/woLPbm+7 ++PkI+HE+xUhxmAX2v2rjJYQJqPRxa0HtOxZYrw+T3CJPwGXGM+3yXhYc0ZZQ +cDQmYA9YPu5pYYH6KcHjkyYEnH6fGP+2mQUi19ZFu5sTcFPiEs9wEwt6W//O +eFkScODO4fTxBhaYmI49umpPQHsZ6Q8jtSwwdM3XvHORgJK+j05FlrFgd9LO +/S/SCLilwaDP/wELNCN3J4Q8IKDe1L+1WzJYoHzFYFgnm4BFP0cyP6WxQML6 +2IVH+QS8+e/VerzPglnmhfTE8lV+6tWcviQWJFUU/LZ+QUB+haaQy9dZcD23 +dLdkNwFFRIQes0ez4Nrd6huvX636K9jREhrJgtNX2+h7+gmYP7XdLySMBbp7 +Px1WHCNgzpsqnROBLJjpk8qb/0XAO4RRY6fzLBhro8wX/SHgg9Px/1V6sWCg +eiM6/yVgTM6zVC5PFjTe3943yE7Esw87VG+fXtXjaMr+TICIn0pS/0Q6ruIv +RFpGUon4cOqecdlRFiSK/OGTO0RETVRf16fOgmeGWaS8w0RMdCkbeb6VBZMh +xurbzIhYvDXreqkaC7QXsm0MjhExkDZnHKC8qqfPtNLHjojl7U2ln+ks2JRU +6PDSh4h3pbhzR4RW6/fS4vLxS0QMYA3fiSKyIICHM+7zFSL+ClT/tnkDC3ou +WtYsBxLR/s2FR2f5WHDxGLfQxmgi6ikQm8vYWNAsafMsMI2ISZ5iihasaZg1 +4e/jf0DEgf1GWuWT0yAWVTF9O4uIoxLcuhu+TIPrkoBYUR4Rr5zJIj0enYYN +Q9WnB58QsS6uw666bxosU4SltrSv3pvdceiun4bvcm0XPn0n4ngja8/I9WlI +9h5vsZ0j4hqHrbPpkdOg28kuOrpAxHcns9eeDJuGhEs7y98vEfF3SNnZloBp +0HjzeKFvrSD6rU3ONz43Df6RKT7tEoIYIXn4ktnRaVg37+VbtEsQr5GfyPyQ +nIYnBrHtSrsF0eTzqc5F0Wk4kVEokb9HEANiDG1+C05D0aGJqocGgkj/08+c +4JsGkzyrP2nmgrhrO+Xl5T9TkHRq3+WbLoIYVBb27OLAFNA7ZPwuxgli8Lhb +c9mNKfj0dd8XpYRVPCmPvKjIKcgQOX94NFEQH7G/XT4WMgUkmw76gXuCuH5/ +5ofhS1MguejdJfVQEEMij9vEOkwBgfFSrr5GEMUme7mDNKfgT+C1xrUTgrjj +6faynHeTUPmwUKl6ShA1vFUHI95Mgk/nQOKZGUHMvuthbtc9CXPiKm79PwSx +Sl7C5F/jJHwtfieU+1cQeQYeBrzLnYRP77c6HBQSQp3D5p/o3pPQrfmF+6aO +EMpuTpMj8k5CY1a5tsQuIbTa6nDEl30SnhBDPVP1hDCE4S77bmkCkidp7/L3 +CeFopOWZqNkJcLxjW9RsIoSWHgqOqa8nYHnxvdmCoxD2noOS2/cmYGNlb/qx +G0LI+3rn2KeNExCk3riDNCKEHblHrFfUvkDRIuHnlhvCqEf6/lv57Sd4ZPll +j+gOEfRaGxn6/vAY1O3v1nN7J4I7P7+e13w1DLtWFJr3RIjinUXPHYMNg9AF +STMJimLIJfnzo71dH2wlXy991CGGSY9E2iSu9wChbX7ZzEcclQ+2nKSOdcJI +Sb3ZW19xjPz4uMCpvROK70QUWF0Rxwu2ryRrSjrByE3mhGOgOBZubzx462on +XF+v/9QnShwP+/FU8sh2Ap95gm9yqjiWZSLbd6sXwDGmtjDcKo5D4aKixZMd +sLDk8dVVXALjm8gj8yptMFS614YuJYGG4z3RDhJt0OAm93pYRgIfn/sy8Zm9 +DaLfdZWbUSVwJ69fvGxfK1CebvLXUZZAvabHw9Z+rWB4aZpfcLcEXtC/OarQ +/RwyFx0VqjwkcOi2kdf9qy1gMm/lwN0qgdsm6e3bBZug4r+HxLJ2CSyP/dym +wNYE0hnfa21fSGBKY1q/0mwjjBuFiNa9kkCbbX3/rDoa4WJOQev5IQl8bWIa +dS6oEVKPL20c+y6Bz7Ymc9ovNgCrIWm2RloSZzbszJSZeQZhMa99vLwkUTi2 +l3M9Wx2Q8htmv5+XRBZXjOeXT7VQ2Vrs4OkjiffHpqC/vRam2KJNz16RxHcD +W9p+36wFo3O7Vc6ESuLkt675fRtrQdSi7LNLsiQGTkcgh0UNZJNvm9s0SiJq +Z/YGtVTD8yeWW4wFpRB4L7anvq+AC2lHmteKSKHDDuW85y0VQIs2MX8qJoVn +d9nXchRVQKDdAR+GjBRmgYz6M/8K0BbUerrMlEJH7c7rSK6AUg8JvdydUrg+ +2LL3kGs5pCkMmLC7SOFo0x5ZNf4yuJxm7vWkXgqliNOGLlGP4WTPfOeORikM +nDV2eOv7GJAzcWNTsxRe3/9x1zHnx8Dl3Dfyql0KnbqSxMP1H0O8ytFDX19L +YYsr30ga22PIq7NQUpiQQoY8Yd0T30cwOHT8cypBGvd2Held51MCteuXdzGF +pLElPP/9CacSSMN7KUUi0sgdarux5mgJOGYOmdVKSuM+B+djWRol8MPNqmmQ +Jo2qNR+Kdi0UA9/SyTQRTWncaizlb7+2GLQkbC2jbKQxZEI/Znh7IWyRJLzc +Zy+N7Z7h3bEShaAkVafP5SSNf7V2gPVSAcjISG4OdJfG8jIb7WP1BcBG7uH2 +8ZFG26O/H5fsK4BWed0y2+vSKFj78M9763ww06AQtKqkMebn3Cbf7Fww1HwZ +8uupNHo22ibWROXCHi3/pSd10pitYzIu6ZkLGtqDn1WapfFia1kPUzsXpDC+ +lt4tjTuuFm4JeJ0DY3vZ3Yjj0nj1q/h1Ee4c8Dg61jJBkEEDuqmLQmA2THiz +e98RkkFvqocir2s2WCdSGAdEZVCvSnFpxSQbjN/YhuZLyeANz7zTKvRsUDX9 +uOcMQwbPhTjvT+/Igh9Gn1p/7pDB/ZX6zuUSWeC953P7iqMMfjV0XC/a9gBm +HbguFbvIoG46eWNR6QNwDGEoWLvL4FPhPY2WqQ/gaLNjZIOnDI5oyFO+ez8A +Dd0vB4KvyOCxwlNXCMwH8GfnxH+88TL4/NX6rzxRGeC3bapTuFYG12Z3ZJ+0 +SQeFu0X7btfLoOaFHf6JxunQx3auSaJRBv8sMhQ+QDoov1iqlG2VQdH8nOf3 +ZNNhxFYgU/6VDCavdwl7M5QGerGql7THV/kf68zLn0gD3mlvhr2ALMYbnbf/ +9t99KDfekf55gyzeJEb0yxXdB9vyf1IugrJYdcYzzi32PlQHhhPPiMliojT5 +3FHz++AunrzsQ5bFl0QTmv9ICnTr1/ZEbZPFh7Mi274v3YNbaRxXS61k0fFz +0L+GPXfB4s0bIXdrWTTpbX5MULgLknw5OTQ7WdxtS+XzE7gL988d7LnlLIvq +mqdVinqTIXvPLfrFc7L4tegy2cM+GSpZjBfaEbKo0jNpbxJxB4Y0Dkg8fyKL +DrsOd739chvun5Yu8q+QRS3Jm1+yum6Ddcas7vZqWewsOiYfXXYbxtfddM+p +l8UfdtcqsoNuw+yHd/WRHbLI82tBjUi+DWwhpx0Pjcji2OhZapZ1IlBfxZYO +rJPDvSGj3yR+JIDkQW4hu/VyKDi9f+bs+wQgtPp5zRDksMbFiGOoLQGWa1w3 +s4vK4ZCOpupsagL05ewuViTJ4Uf+B35shxIgImAxz3+rHN5yH0h5UXITvqpY +Z9Cs5HBx/QpX8LV4+JzXt6b4lBwKV27L0jobD0N0QxtN29X3NbnSHCfjoU1K +i2TkJIdLL6xN2zXjIYNb+L6PpxyKZorxbPwRB+bDrXc6QuTQBh6yMR3j4GmM +StzZIjlkjHe05VvGgqq8uOJsiRxu3R0433UgFrIb2FrcSuVw/Ivi8TU7YiF+ +7tWiY6UcypntSropFQvOluetrRrlkDI1lDRQfQNEGVUqB/rkMNcytaa5NQa8 +anW7qCty+FMt/wrHr2g4ny/yxJiNhCrtdbfHBqNBeZE38MYaEh77T61xqC4a +MuN+SApwktD6neowOSwaYpubjHh4SXhXY9d5lng0OCk4lq8IknBHsJvi6V1R +ILKQFzLNIKGvso+LV1YEWCpkn9KXJ6HwhlQ1p8gISDuZrpm6kYQXcv/Tu+gR +AUqtt2dMlEho6b2mY1YzYvU/EGxevZmEGyM6dRRehoOX1kl6hDYJi5NuzDas +CYcuf2ILw4SEHnMlOqUXQ0G4lD81wJSEzt8Xev5Yh4LlF27fQTMSfuKo1j2+ +PxTGD60oxRwlYXok08hRMhSWSdMJ8ydI+NLiwMGM2hBQbGq2b3YiYc4g+8Jd +nhAI577IaetHwoCunQnTxUEwcbKlKdOfhGMz6i8C7wXBvnLBoC9XSejiXc+r +GBEEPA6Fa05fI6HU8C+DctsgCGscW/EJI2FohPRsoWgQhPoZ/r4eR0JW0swk +8do1CP5Jma3KIqFiWpaammMgfDpwtnA5m4T3rzDquMwDYXdGrTvkkPBr3iiF +pRcInIctppvzSKgzX6o+SQ6EoKLrE93FJEw88bEh70MAXHNZHBuvIiGfuKXL +zuMBEDDc2U/sImHhtuW9zs/8wU2WkunRTcK4YgmPgFR/OGLlfbbzJQlT7uek +PvX3B8V3srwRr0noqREckbzTH/r6PLTY3pIw7KTd1YUaP9jURUyZ/UjCcCVX +Z+7GKzBYY277328S7j9hbpH06RK0LOUqb1wi4b+CftaL1ktQorXyJ3SZhAnf +1mwl5V+CkMrsm7r/SJg2nmdB8boEqk9+NVdxknGBtsknbs0lCMu/w8zZQMZy +4Xtm/+i+sDX5PSuYTsanPtKxusE+cHLC9cgQg4wT+npJoW4+EKG+WL9FnoyO +KcyoTyY+8KFH8OaYAhmLvXxaZsg+EL5unyaqkvFr6ok0tQZvGLryOGRJi4zu +Grcnz3B6Q/CpMFkvYzL2F/Pw/7t3HooKhcPbD5Nx/JGHtlHYeXi7lP6dZErG +DyIpSk88z4NyUk1zt/lqfOqtmaY952Hg5XfXTcfJuLP7iPW37+dASfdExYQD +GZWsgzqcD56DXtpm41OXyVhjPxiuRfQC8URCauoVMg50KwRf+ecJVtzfZob9 +yFi3MP6he8YTPk8WRVkHkLG3lcsjr8MTFouUWm1CyBjt5EjbFOIJMpryOvY3 +yHizpMvN8u9ZcDSUU3J5QMbtk2s7Wn96rO4XK5dyM8lomhB/0b7XY3U+fWif +zCJjZs2pCbkyD7gomOLkmkNGiXHWzR/eHhDVL/nArZCMRT2+gxzLZ6DERlTy +TAUZqyx4AmrWnYHfFwR4zv1HxgvaMRV16A5tXT/tul6QcXe5UEYmxR2SmIP1 +G7vIGF9+OTqP0x22v832GXlJRtqWB29F2t3ggjZ+Mewjo+/Qu1xHUzf4zn7u +ufzoKt7ZEY3e064weWMg+MPCaj2fX2xeqXSGyom6Ec3FVX8WmflZ950hfFeW +9q3fZFTPV73jHOwMzJ+ecwbLZNyY1ErQNXYGhyPr7KvWUHBCCLRw0glGpXX0 +EvgpaGQRJGNMcoK3uQ/WHKBQcGtZfeDvdAdopA/pxlAp2CKuNuoZ7QAF6cLB +PTQKusQkZP7zdoCAOyFcx5kUfDYaxn78oAMwIpzWuStRkIeh371+0R68nBVF +YtQpCE0Ya2FqD/zMUvmeAxT0a/BkfRG3g4WMaRfRgxSsJ609ML7WDoZlafmW +hhQMiymKnv9hC49Fb236eIiCM288vY06bcGCy0dtzoyCxpfZe4ev2ULWuJa2 +6CkK3nGXLDv73QZ0MhsPWZ6joJQMI63rnTU4qWxVTjpPwXWW7YqW/1lDbHUW +f98FCjra+TbMV1vDx5er7XuRghKlJS9OJFtD+F8jvf1+FLyy8+6jiWPW0HPk +nbpG2Cq/n1Bdb8UpcOSdkxG9S8GsZ+9kjvdZwY0Eh2XTexQ8o1cWolVlBZVy +/YNxKRQso20wU79nBevUq28LpFFwROBD2TVbKyixDSCuzVrV1/Mjxu3bCfjz +lH/tXBEFcz4UzDsQT8CNM3TWq0YKHh0MeKXvZAm7R1P6FZop2G6gxGtkYAmL +pqJNQS0UfB33aeCciiVYa3Inb2ujIPltSpPY4jFQ5Zzce6eTgvRAA7vayGPQ +c6fggfUABS9sMJZ1KLMAkZYtx7/OUPDF5OmYo3JHoWN7wZ59XynYdiYxe4Dr +KPjn0dTSv1HQ8uOf/HOzR+DzDRFe058UlDXjJP6qPQLllr/KyxcpeMJE66Dq +ySNg8a1a0J+DioW9GnTzB+ZwV0q3g1+CiunGV5Yfgxm4PuK/ayRJxdn0lYVC +RTPQ2NvvFitFxb+L7pU1YmbQ6+UuICxLxcEhSV2Rb6awviPRWIpKxZjd+qYl +6aYQcHG6b+MmKnp/WF/vx2MK9m8SPu7ZRcX7X6ZF5j4eBjW3U0/CdanoXnkl +Wq/nMLCtUQjp0KPitYgbfpnPDkOKUj3DaA8Voc84MjnlMPQFTbqYG1AxXi/a +w9ziMOxT0/lmZ07FxQW2vF8vjUHpxpflABcqJiekXV24dwhC+KsG37tSUeJs +lKfw5UPwISKyUsudiqLhV4qOHDsEccGbzs+doeKSreGZvaKHYMH33LTTeSoq +LJW+fBNnBPX2/94aXaXiPdGrK8E3DMFES6xC+hYVVYX+IyhlGkB+xUSCbyIV ++XJFt0WFGgDntmqvvttUfN3IJcbnYgAVKlbKsclU3CwhFe2obADS9AdZHGlU +jF4/GZ1YfQDGN6gkTOVRsbXsMatsYD9cHN/jWfmMiqUyfjZExX0wHeK6daWB +ih3VI+eHBffBSUbML70mKnI0CNa1/NkL+k5v/LpbqKirqxg32LEXBCftIj93 +rOop9kymuO+FAlbAA+E3VNSrto8QK90DIz+r35ydXPWTJSA1d1gfTBM+JJVP +UfFm4FLHXW19eL6V/cTyNBV7tfX7LZj6UHhh/1jYLBXrY+KLBf/uhku/+mfv +/6TimWT99UG5u0F4aY678y8V/7E76+7m2g372VW0NgrSMOPV5fzqLl1YfhSV +7CxEQzHZSKfdNbpQZDPx56EwDUP27981kqsLwg3pTxliNEymfOAyCtGFkavC +O2nSNFQ+snfmn7YuXPz7G+QYtNX/iPtCYfEuyFls1hfRoqGUq+ZYTTrC8Rxy +ttkOGlblF292iUNYb+HPlaBNw6LuoVB6IML5iu2tgkBDI7Y4ji5rBPTO20fY +TcPPR1Tjh0gIAz9vGKwzoiHv9Ix8y14A7q+Wh9fY0nCZTj9j6roTdofW1R23 +oyG//QVOdoOdcE2GolRuT8N+3X3fXinuhBWDSS43JxqOX2jRejOjDQs5PjW9 +7jTc1XO1yeGcNny2TWDm+NCw9mSQdWzwDmju6/xrdJ2GRPk/QuQ6TWA/s9kt +N4aGH79ecKvM0ARce2uAI5aG7z1ef3UP04SaLSdKK+NpON+ryLHpsCaUxk45 +U5JoeCDT4NfazxqQcYC7dz6DhrZw/jabiAYE1GHevUoaXrg/qGcQpg4DFxeW +h6to+Oz0b/hyVh1UtxQcoj5djdduuXzHUh1GHorN59bSkJohYonK6oBxs1DR +SMM2850Hb/VtAzb7e29evaBhp3McZb/iNrjKu8jGPUpDf/NLbfqftkBfU6Hp +gTEavqyaDA14uQWU/e2yr3+kre5jbVNdNVvgw48uA+HPNFRpe2OWfWsL6Axl +JZKnaXgpJSJh574tsFJkqqQ9T8NzWwOE/paogb9Z8VFPXjoajo+76MRuBpsF +t4puPjpuOtN51Mxv8+p+LC+mzE9HWarBA3/XzcA3lN43tZ6OcnxeSxv0N8Mt +uwRze2E6nj/tYUxdUoUCL1/To3J0TFnWePvbVRUGY/UO7dxGxzrQ6s57pAy1 +amzFd9XpmLBr6ta9WGVI661Z/2c7HV3aA+ceeSiDo7h6V7kWHX9UG43sUVaG +76nyhqpIx8zxQgORwk3AUyxgQDWgY1f7q2fUR0qwvbN/D68NHZ/XfSrn7VEA +S/9OPRtbOpZ/lW8qLFOAKypNWGVHR8HTHzo87ihAY1yRlovjKn7ssqGhjQIc +PBKi3O5GRyuz6VLXHxvBelhNNMKbjto7Kr4LSW6EyO/Xx3mi6TiWR7A18mdC +QUbQmPV1OvosirC8HZjQbeo7XBlDR0ZjXVXVQSYIl9u/dY6joxCB/9F1KSbc +v7Sjsy2Rjk57vQTcqxlQyjH5JDydjpffT3ZMLdNhSGR3ME8FHV2DnodpJNBA +fCrKcX8lHeM37jKdvkoD87rX+yKr6NgneZz+2I0GXY52Avw1dNS8HBBzWY8G +DRXXEjc0rNYn0cJ46ScVso815Ij+R8eJOvPiFAsqeKbodNKG6XjzkM2dKRUK +FHmGFjuMrPKnNdn9lqHAlH5XXPYoHR+Pi4xK8FPAftbqiPynVbzStqIbE2Q4 +An7DipN0rN4y9OhgBhm0R59+V/tJRzvmD5e/4mTgomuK7uJmYGRFWWqLIAm6 +RsLWpvAw8HGFydOENSS4da9vbpGXgdeefPVijcgBTfj86xJ+BnYfSpYZuScH +uhzFsSRBBvbYPFn0FZWDq6O0dWwyDBzJGNM4QpCFxRQCW70aAykm+lUFMtLw +7Nipr5JbGcjFd/Zy8j8pCBMp+uC9jYHL7tmOOaNSIHrdoFZZg4EzQ/8p07Kl +YNuV0Ev3dzLQeZvQi9uqUuBluTznt4+BqZLTo4cNJGFadGJS+yQDdW9Wzmy6 +LQ4v5sPrAk8xMFn+kEyqvzgU9W68+dx61Q/+7pF3FAeveDdtY7tVP0JFZ0K2 +icOiwNcYO2cGSl5drLd+IwZcaxe2RHoxMLNg8l2khBiQfnL494cy0GzhtAVf +qQiw92SaSIczsKU0Putkigh8LNFn2kQw8O9ql7SFiUD2mbCXU1EMrNTdsOH9 +CRHYNMVHXYll4I18vX9reURAa5TYRrvLQJMXIw76tsJg3i0n6FXMwOB67bYp +uhB41/4OKilhIFFg30lFISFIyn89P/uIgRo/mIf82YRgMCzsrdsTBi6dvv3b +8p0gWOPXNIcqBtYXOfnPxAmu7h91KseaGHhSXXHKiV0QAm5aGWI/A+kjsb1a +3wiQEbi93n+AgWJeFpg1TIAmD+Lm2rcM7PvVMiHXTQCugy3CWkMMTPMVKNEv +IkAU56ahLaOr+sP5Tx0+TYDEC8uuzGkGCvH8NKwY2gAFR++Gr//HQLUxOdvM +XwJgsekKtzMbEyn1cxYv+wWAk8MqtGENEyNtLsnIVgqAVZFs8HlOJm6apAfI ++grA+rUZVwd5mTjhtqmtaJkfzj7O8c4WZuK6d3b1s7z8sE2g3F5HgYm3LC7n +rezgg7GxxI+3FZn4zCcykUzig5hKH9vvSkwMjXaVtOXkg892mtaZKkzcMcXj +vqOTF5Kqa47zbWPi5f7VwWrNC3+cmkz6gIk6Ak+ftUXxQF3jSzxjzsTCYsOD +dr+4IPgpR1bJESY2kXwjUke4wOCJOu/Po0yUaCMc/dHOBQNZ9175WDJRiZ9x +4N09Lvge7mwbeIqJRE4GtVKPC2iH2IITXJhoGT8fGHlrLUS+U2mt9mPiUoH1 +ib/7OMG411bxrz8T1dMl5ka3coJY560bELDKt3fad5DECZl1S0ebrzHxVNgE +G/dvDqhNb53oDGNi3MjffoM8DvjmdIpvNG4Vf+xU6zkCB5jPxRhyZzOxtq/A +vWpqDTR26ap6PGTi7l9z5l/61oBq7oJgfw4TX5ItlRSb1gD/yZMD2fn/z08c +zN1dA82tm+z2PGLibV/FUxFGa0Dt7ouLITVMvM8h+Savgg0IunyZHK+ZyLPf +8oOZ2j8df+m6ULfe1Xyw35l+teGfDmvB0+X1GyZ+U7RnXJhZ0WnLf6v8YICJ +4c9GLm/KXdG5KpJbpfuBibkkRyEbyorO7MTe7sBJJhaoN/wolvqrc6Jp6dHk +1Gq/xBR6Xlla1ulIKU44zGLimM34Dfd3yzrZJmKW5K9MdOJs5q+4u6xjVfP5 +07M5Ju7Vutn0TWY1PjG5VX6BiYRnfxferCzpaHga5cX+YmJ+gsrN98NLOsKM +cg/rP0zcI9Jz2jRjSecam6tJ2xITGQfSrBuClnS+DcpsU/27qufaN9phhyWd +k2WvxJJWmMj//Ngt9r1LOi9uhPz594+JHVfuRb+RX9L5H4UhA4Y= + "]]}, "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.9026545741090067}}, + 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.9920730924807377`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"d8963d5e-67b4-8249-b3b6-e3116b9a13f3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l1", ",", "l2"}], "]"}]], "Input", + CellLabel->"In[31]:=",ExpressionUUID->"b18f33b7-80c8-d647-9ade-73d9928cac50"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVlnk01Q0Tx0siUl3Z4t7r3vsLUYkKZamZZIkneyFbluwS2cmapUSyZ3kq +spNslVSISrKUIiVxo2y58qRQttf7x5w5nzPfOec7Z86ZMwzbc4b2bGvWrOld +jf/nY2aXONesIeHGwJMvWT9YoJq7X7FuLQl5OfutnadYoDwx4OK9joSGSuE/ +hidZsCdQvnOMg4RBf5one8ZZIJA5lNK1iYTFI47Gd4ZZMPRRhbhNJqGSSMRp +qV4WXDj1n4rGARIeuiKw0fAJC+6amp2Pcyeh665Fk6PRLOidumJiP0JCC7Eo +IC9PwmzqH5KOMS9q/2ulOuQ4CX8D2d+zPePFB8Wvtawef4eGOXeB9cpb8UPJ ++dyIrxMQFCUgJViyFe96RYdxLo3DfAn5gRfBh18G5DMWBsfAbHOD/s3rfLh+ +W3SEUf4oVEfcqP/IwY/JvjnJP2xGoOPq5wLrEH7kqW4Nf/XtKwyUmtrNsvjR +pSdR5a3rMHRzeO4yMxfAmZr2NpfxLxD3Z+ws91sBHBTs/rpThQlKS9mRrSiI +HWVxi+EnPkPJ9QqBnlpB5L+UH2mz+BFWPG2qyvcIoR5b/Dv77vegbaG7PT17 +le++kfjM0w0mA5mb2/m2YXy/VMajI11g5rm9c8vFbViu1neL2dwBtOyNG24t +bEMLA4oyr2QrtLIn6ix7CqNk7pyRtvRzcA4xdHRlCmO71oZzOj+eQluC14KY +qQhGdVCutrc/AbGqN3asFhEUdde5Z/y7Fmy3tvVelCfjnv7LtT2jNaAaGGl3 ++gAZp1p5k/J7a4AYOvRDSZGMT0d+fQhrqYGhygqOnypkdNton3qqsAZsDdLk +rdXIKOdwTCjZcZWv2SSrGJHx2CjbPfpENdhuntf97UHGQvuBQ4FzVWDDLf7C +oYyMH0dbHrfurYRIW5l4opyMtZY+qTvFK6GoTvHEwF0yhknu2ZCyrRKmXXSH +TlaTUSBErihspQLC2vyW1erIuEhep93YUQE34l4pbH9JxrKi3O5u1wro3+xR +ODhMxjNdfrdsLe6CCd+jS6ZkCq7EjilbpZZB33h5uCKVgq0RRp1mIWVg0Zgb +KEKj4JePDl1OjmVgezbWrZ+g4FJ3+UKtYhm4t5zSt95JwQ0F325JDpZCZNC8 +kJMiBTu2pB9Wli6FqmH5Qj8TCoa262kN9hTD5pqK52nJFLw3cuFDvXEhXFp5 +O+ueSsFOUy52YbVCWPfP7x2a6RS0Huu1Dt9bCPNfFGPnMimoKp8Qc4GnEIa2 +NOua5q72RzwJIjcXwD3Xnl7hSgry+sfnzOwrAIvtf8ezOyn4ZGbl5ytKPpQk +Hd18m4uK4/TriwJCt8Gp836g+UYqXioRmnu04TZIcO8c5dtExegAXQO3v7lw +O5zUGEmiYn6zPdfk51zI9vjs6SBExU0xt1465OdCgq5fj5Q4FYOZ2klHFXLB +m7s0uwKp+DXONcb1dA4citi6q96PihwWU8X82TfBTOVca1YAFWXFcmzEIm6C +/2ybY0DQKut03zvmdBOqXKLy5EKpWHqtbLZT7iZIGs1TS6OpeEOrU/ZN5w3Y +KjZAup5KRZm+XebXOW7A6PPiWc9qKr5rbhb6EJkNiVxHmsR/UHGdM+fcXG0G +/KyeyhqepuKklrWPeH4GnLDK9sn5ScVP3/nf2yRmgGD1nCR1lorDO47zc7pk +QKZFeQL/EhWX0oIt2SgZkHeXbLluoygqGj9ir464DvdPzs4xJUTxkrkA1z2z +dOjPKZXOthJFic8uHXz7U0H+aQwYWIuiXb2X/hKRCleZdgYctqLIsazc8nNr +KgCN4uNhL4pa8cLua2dSIDc77rGamygateXUlFWngFP62X9YAaKo4mz/bv+B +FPgVJ+N8OFUUZbwHhl9pJAOPf3Ues00UnWus2myiE+GZQMBYXYcohodFOY34 +JcKF6sO7U1+LYsWg4Utf50T4PtVarfVOFCc9tpbWHU+EV/bMpqo+Ubw18WOx +gy8RLhlt+hI5vqoPFBwRybsG7DKOVClOGr6wa46kZSbA0jeRNE9VGj55ycvi +C46Dea+9ArvVaPi46w4bt2Mc/Fp7LGVEnYZ01dJRkkEcTFJ9ksy1aPgmcd2U +vngc9J18fVVdn4Zs8/8mXu+8Ag+eX4wRtqIhsXTwgrLYFfDMn/R/GkDD2eGA +D0GfLsO3M/XmvJU0tLJ7dMbGLwbQs57nvyoaCubKZRTaxUBmcP2TNzWrdfuC +vct6MaCfVk+7VkvD1MF/TvVLxkBdS/3w5kYasthe8Jp/ioZrOxtceV7TMPjO +74fGR6NBabohiJNFw5j08miWaBS0PGF2hPDTcSnfoJK19iIIqnA9sxKgY0sX +T/CfnxHgULe37rAgHU9rx0yTvkYA+4OIgmUhOp64LVJq+yICsEIsNIRMR5nl +Nt9rVyKgLtdJNoSgI3edaP2mbRFQHjOdFCxLR52p9VxGiuGQZrDG9MJxOh7c +EWMeoBC6et9wwkSHjt6YWWMuGgq7m0Mv7NelY07Wviv6HKHQJLdya0KPjoF3 +JAM834fAlNDyuKkRHYsG+95d9QsBjYGFIHkzOrrazUTsehIMcy5zN6ccV/Ur +mc+vnrwAppFTo9YX6Rj6flRzd20AGC4SfHqRdIxv/ZiYnhsAOt4mhw9F0fHa +Ubc+/vgAUD3TmCIcQ0dVzUO71W0DYLda0pG3sXQsXlOhELQpANayK2QdTaJj +TZXpHllHfyi5GKwrkUPH/FiTI2Y7/GAhgufe93o68kQbSNb2esM2r/Gl1gY6 +EtFRktYt3iBn90KjqJGOcSTWGP8Db3A7GvbhTBMdV1QWI/LSvGFg3a+Fz8/p +iEzkNjf2hqbIT6pv2ukYxKyZonzwgtjokjc1fXRsfazWU/n1PAjHHpsMnqWj +lJa2jDjdE84oinS6z9GR1L/+XQqvJ1SMfb97ep6ORw/sbyet84RjmgleR/7S +Ubo3OFV6xAP82d//ZV+m44Gpcbs/ZR7wIcSOK249A6XfRvN0qXjAda8QiUx+ +BnLy6qr7vnKHbZY11vf3rfJlC4e3d1yBqfHvQO5+BgokG9lUprlCkWy0RYIc +A7esGNy8HeoKB9hNTZ0UGJg8cz/vqYErGJcu6IkoMdD+jpzI0KwLpPxRhZAj +DLx7vJqtUM0FSGldVA19Br4cpf3qYTkB1+upvp6zDBTb1+uS4eUAP2XDfKvc +GRgW4DwgYOsA/Um8WxPOMZB7F+u/m/oOUGEsp3XMk4HFDwo6+6UdwHgg4EGd +NwOz9t9XnB+zhzwWe8rNIAaWhmxoKbOxB+Qh6zhfZqDRK83B5xZnwFdLs2Ex +j4F6bjGvM/xsIcGlY+Z7PgOD87qz/zjaQtEVI8lPBavzI2Y5mNrCp47TiQ+L +GMjsIVYcFW0BDf3tfMsYmHdqYg/nog1wmRdzTlcz0EF2c+mdizaQ7bZRf7iJ +gQH505362dbQnPCa2cpk4HaFNf5eXyxhWXJ5X/GXVT//WUX1tFqCUtPuqEtD +DOTtvi2nXWUJFb8uS2l+ZaB1+snDrhctIfuU2vlnowycfL/JMVbCEny3P1zX +MMXAJqFQf1kPC5B8kCtRs8jAWbqDwkOSOcQN+Ljd2EbgKLlpsf2iKRytemQW +IExgljAR2e5hCn+j1mqdECHQzde1sc/SFJyk48W5KQSW77Pauf2gKahdyBvw +oRFYsSR2yZZlAgvC7/R1JAgsjfcrSTQzAZeTsvKL+wkcOm8E9mAMmu0TS6f0 +CAzrHOHIlD0Be06LR2nqE2jSbvnpBu0E8P88zSNvQGBiR+5M5eYTwBTqESEZ +EfgU3jSwsYwg0K7hwAtjAt23+AXqlBhB+d9kz31WBL5mSh0I3mEEAlKHvnGf +JfD+ysDD37sMYTgqof1RLIGsuLOFY2b6MHntvGfGFQLbtEqieHX14VfWSUG/ +OAIFNmzxVTuiD+xVZOt9VwmstO48+3KHPkgMFM4UJRLYxf/xUcKEHjgpNIqk +XSfwMiXnt7KYHkyNTDt5FBD45YW77dd8HfirabhevInAmfgtzv8MaoPElLQn +pZlAZfF0q/oWbTBI4frM94zAd9IVM+oV2lDEbKxhe0Fgk01MTVK4NhgHyJxh +thJI7m/PootrQ1UJT3NWF4EjC1lXls9pgeumlrCtXwjsc2DZafMfg7Tq3Emu +IQKH9zyNklnRhKZTIaZrh4nV//fG9h0TmiBSIC87/ZXAJwr9STqNmvDycN5g +xxiB6c0yIT5nNUHMI/zw5WkC6wTNy7a3aYC+oGVJ2H8Eqhk7Cks90ICgxwcF +/X+u+vcx4cDbGvB2wzTL4ReBxaH3idwgDQjLsfpXbX51Pwdoj+WlNaBMU4lL +5Q+BKW1ZIc+FNaCXJeCz/y+BSsoLmg4cGrBHqeM4sUhg7MNP1X2D6mDGLKoV +XiKQu+HhwfJ2dYiKjhTjXSbQy0/uctJDdajYbX1tw8qq3+zMtJgCdeh/q7y4 +ssq3Hmoaxierw/8AgEARwA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnk01Q0Tx0siUl3Z4t7r3vsLUYkKZamZZIkneyFbluwS2cmapUSyZ3kq +spNslVSISrKUIiVxo2y58qRQttf7x5w5nzPfOec7Z86ZMwzbc4b2bGvWrOld +jf/nY2aXONesIeHGwJMvWT9YoJq7X7FuLQl5OfutnadYoDwx4OK9joSGSuE/ +hidZsCdQvnOMg4RBf5one8ZZIJA5lNK1iYTFI47Gd4ZZMPRRhbhNJqGSSMRp +qV4WXDj1n4rGARIeuiKw0fAJC+6amp2Pcyeh665Fk6PRLOidumJiP0JCC7Eo +IC9PwmzqH5KOMS9q/2ulOuQ4CX8D2d+zPePFB8Wvtawef4eGOXeB9cpb8UPJ ++dyIrxMQFCUgJViyFe96RYdxLo3DfAn5gRfBh18G5DMWBsfAbHOD/s3rfLh+ +W3SEUf4oVEfcqP/IwY/JvjnJP2xGoOPq5wLrEH7kqW4Nf/XtKwyUmtrNsvjR +pSdR5a3rMHRzeO4yMxfAmZr2NpfxLxD3Z+ws91sBHBTs/rpThQlKS9mRrSiI +HWVxi+EnPkPJ9QqBnlpB5L+UH2mz+BFWPG2qyvcIoR5b/Dv77vegbaG7PT17 +le++kfjM0w0mA5mb2/m2YXy/VMajI11g5rm9c8vFbViu1neL2dwBtOyNG24t +bEMLA4oyr2QrtLIn6ix7CqNk7pyRtvRzcA4xdHRlCmO71oZzOj+eQluC14KY +qQhGdVCutrc/AbGqN3asFhEUdde5Z/y7Fmy3tvVelCfjnv7LtT2jNaAaGGl3 ++gAZp1p5k/J7a4AYOvRDSZGMT0d+fQhrqYGhygqOnypkdNton3qqsAZsDdLk +rdXIKOdwTCjZcZWv2SSrGJHx2CjbPfpENdhuntf97UHGQvuBQ4FzVWDDLf7C +oYyMH0dbHrfurYRIW5l4opyMtZY+qTvFK6GoTvHEwF0yhknu2ZCyrRKmXXSH +TlaTUSBErihspQLC2vyW1erIuEhep93YUQE34l4pbH9JxrKi3O5u1wro3+xR +ODhMxjNdfrdsLe6CCd+jS6ZkCq7EjilbpZZB33h5uCKVgq0RRp1mIWVg0Zgb +KEKj4JePDl1OjmVgezbWrZ+g4FJ3+UKtYhm4t5zSt95JwQ0F325JDpZCZNC8 +kJMiBTu2pB9Wli6FqmH5Qj8TCoa262kN9hTD5pqK52nJFLw3cuFDvXEhXFp5 +O+ueSsFOUy52YbVCWPfP7x2a6RS0Huu1Dt9bCPNfFGPnMimoKp8Qc4GnEIa2 +NOua5q72RzwJIjcXwD3Xnl7hSgry+sfnzOwrAIvtf8ezOyn4ZGbl5ytKPpQk +Hd18m4uK4/TriwJCt8Gp836g+UYqXioRmnu04TZIcO8c5dtExegAXQO3v7lw +O5zUGEmiYn6zPdfk51zI9vjs6SBExU0xt1465OdCgq5fj5Q4FYOZ2klHFXLB +m7s0uwKp+DXONcb1dA4citi6q96PihwWU8X82TfBTOVca1YAFWXFcmzEIm6C +/2ybY0DQKut03zvmdBOqXKLy5EKpWHqtbLZT7iZIGs1TS6OpeEOrU/ZN5w3Y +KjZAup5KRZm+XebXOW7A6PPiWc9qKr5rbhb6EJkNiVxHmsR/UHGdM+fcXG0G +/KyeyhqepuKklrWPeH4GnLDK9sn5ScVP3/nf2yRmgGD1nCR1lorDO47zc7pk +QKZFeQL/EhWX0oIt2SgZkHeXbLluoygqGj9ir464DvdPzs4xJUTxkrkA1z2z +dOjPKZXOthJFic8uHXz7U0H+aQwYWIuiXb2X/hKRCleZdgYctqLIsazc8nNr +KgCN4uNhL4pa8cLua2dSIDc77rGamygateXUlFWngFP62X9YAaKo4mz/bv+B +FPgVJ+N8OFUUZbwHhl9pJAOPf3Ues00UnWus2myiE+GZQMBYXYcohodFOY34 +JcKF6sO7U1+LYsWg4Utf50T4PtVarfVOFCc9tpbWHU+EV/bMpqo+Ubw18WOx +gy8RLhlt+hI5vqoPFBwRybsG7DKOVClOGr6wa46kZSbA0jeRNE9VGj55ycvi +C46Dea+9ArvVaPi46w4bt2Mc/Fp7LGVEnYZ01dJRkkEcTFJ9ksy1aPgmcd2U +vngc9J18fVVdn4Zs8/8mXu+8Ag+eX4wRtqIhsXTwgrLYFfDMn/R/GkDD2eGA +D0GfLsO3M/XmvJU0tLJ7dMbGLwbQs57nvyoaCubKZRTaxUBmcP2TNzWrdfuC +vct6MaCfVk+7VkvD1MF/TvVLxkBdS/3w5kYasthe8Jp/ioZrOxtceV7TMPjO +74fGR6NBabohiJNFw5j08miWaBS0PGF2hPDTcSnfoJK19iIIqnA9sxKgY0sX +T/CfnxHgULe37rAgHU9rx0yTvkYA+4OIgmUhOp64LVJq+yICsEIsNIRMR5nl +Nt9rVyKgLtdJNoSgI3edaP2mbRFQHjOdFCxLR52p9VxGiuGQZrDG9MJxOh7c +EWMeoBC6et9wwkSHjt6YWWMuGgq7m0Mv7NelY07Wviv6HKHQJLdya0KPjoF3 +JAM834fAlNDyuKkRHYsG+95d9QsBjYGFIHkzOrrazUTsehIMcy5zN6ccV/Ur +mc+vnrwAppFTo9YX6Rj6flRzd20AGC4SfHqRdIxv/ZiYnhsAOt4mhw9F0fHa +Ubc+/vgAUD3TmCIcQ0dVzUO71W0DYLda0pG3sXQsXlOhELQpANayK2QdTaJj +TZXpHllHfyi5GKwrkUPH/FiTI2Y7/GAhgufe93o68kQbSNb2esM2r/Gl1gY6 +EtFRktYt3iBn90KjqJGOcSTWGP8Db3A7GvbhTBMdV1QWI/LSvGFg3a+Fz8/p +iEzkNjf2hqbIT6pv2ukYxKyZonzwgtjokjc1fXRsfazWU/n1PAjHHpsMnqWj +lJa2jDjdE84oinS6z9GR1L/+XQqvJ1SMfb97ep6ORw/sbyet84RjmgleR/7S +Ubo3OFV6xAP82d//ZV+m44Gpcbs/ZR7wIcSOK249A6XfRvN0qXjAda8QiUx+ +BnLy6qr7vnKHbZY11vf3rfJlC4e3d1yBqfHvQO5+BgokG9lUprlCkWy0RYIc +A7esGNy8HeoKB9hNTZ0UGJg8cz/vqYErGJcu6IkoMdD+jpzI0KwLpPxRhZAj +DLx7vJqtUM0FSGldVA19Br4cpf3qYTkB1+upvp6zDBTb1+uS4eUAP2XDfKvc +GRgW4DwgYOsA/Um8WxPOMZB7F+u/m/oOUGEsp3XMk4HFDwo6+6UdwHgg4EGd +NwOz9t9XnB+zhzwWe8rNIAaWhmxoKbOxB+Qh6zhfZqDRK83B5xZnwFdLs2Ex +j4F6bjGvM/xsIcGlY+Z7PgOD87qz/zjaQtEVI8lPBavzI2Y5mNrCp47TiQ+L +GMjsIVYcFW0BDf3tfMsYmHdqYg/nog1wmRdzTlcz0EF2c+mdizaQ7bZRf7iJ +gQH505362dbQnPCa2cpk4HaFNf5eXyxhWXJ5X/GXVT//WUX1tFqCUtPuqEtD +DOTtvi2nXWUJFb8uS2l+ZaB1+snDrhctIfuU2vlnowycfL/JMVbCEny3P1zX +MMXAJqFQf1kPC5B8kCtRs8jAWbqDwkOSOcQN+Ljd2EbgKLlpsf2iKRytemQW +IExgljAR2e5hCn+j1mqdECHQzde1sc/SFJyk48W5KQSW77Pauf2gKahdyBvw +oRFYsSR2yZZlAgvC7/R1JAgsjfcrSTQzAZeTsvKL+wkcOm8E9mAMmu0TS6f0 +CAzrHOHIlD0Be06LR2nqE2jSbvnpBu0E8P88zSNvQGBiR+5M5eYTwBTqESEZ +EfgU3jSwsYwg0K7hwAtjAt23+AXqlBhB+d9kz31WBL5mSh0I3mEEAlKHvnGf +JfD+ysDD37sMYTgqof1RLIGsuLOFY2b6MHntvGfGFQLbtEqieHX14VfWSUG/ +OAIFNmzxVTuiD+xVZOt9VwmstO48+3KHPkgMFM4UJRLYxf/xUcKEHjgpNIqk +XSfwMiXnt7KYHkyNTDt5FBD45YW77dd8HfirabhevInAmfgtzv8MaoPElLQn +pZlAZfF0q/oWbTBI4frM94zAd9IVM+oV2lDEbKxhe0Fgk01MTVK4NhgHyJxh +thJI7m/PootrQ1UJT3NWF4EjC1lXls9pgeumlrCtXwjsc2DZafMfg7Tq3Emu +IQKH9zyNklnRhKZTIaZrh4nV//fG9h0TmiBSIC87/ZXAJwr9STqNmvDycN5g +xxiB6c0yIT5nNUHMI/zw5WkC6wTNy7a3aYC+oGVJ2H8Eqhk7Cks90ICgxwcF +/X+u+vcx4cDbGvB2wzTL4ReBxaH3idwgDQjLsfpXbX51Pwdoj+WlNaBMU4lL +5Q+BKW1ZIc+FNaCXJeCz/y+BSsoLmg4cGrBHqeM4sUhg7MNP1X2D6mDGLKoV +XiKQu+HhwfJ2dYiKjhTjXSbQy0/uctJDdajYbX1tw8qq3+zMtJgCdeh/q7y4 +ssq3Hmoaxierw/8AgEARwA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 9.5}, {0., 0.935538188244949}}, + "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" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 9.5}, {0., 0.935538188244949}}, + "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" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnk01Q0Tx0siUl3Z4t7r3vsLUYkKZamZZIkneyFbluwS2cmapUSyZ3kq +spNslVSISrKUIiVxo2y58qRQttf7x5w5nzPfOec7Z86ZMwzbc4b2bGvWrOld +jf/nY2aXONesIeHGwJMvWT9YoJq7X7FuLQl5OfutnadYoDwx4OK9joSGSuE/ +hidZsCdQvnOMg4RBf5one8ZZIJA5lNK1iYTFI47Gd4ZZMPRRhbhNJqGSSMRp +qV4WXDj1n4rGARIeuiKw0fAJC+6amp2Pcyeh665Fk6PRLOidumJiP0JCC7Eo +IC9PwmzqH5KOMS9q/2ulOuQ4CX8D2d+zPePFB8Wvtawef4eGOXeB9cpb8UPJ ++dyIrxMQFCUgJViyFe96RYdxLo3DfAn5gRfBh18G5DMWBsfAbHOD/s3rfLh+ +W3SEUf4oVEfcqP/IwY/JvjnJP2xGoOPq5wLrEH7kqW4Nf/XtKwyUmtrNsvjR +pSdR5a3rMHRzeO4yMxfAmZr2NpfxLxD3Z+ws91sBHBTs/rpThQlKS9mRrSiI +HWVxi+EnPkPJ9QqBnlpB5L+UH2mz+BFWPG2qyvcIoR5b/Dv77vegbaG7PT17 +le++kfjM0w0mA5mb2/m2YXy/VMajI11g5rm9c8vFbViu1neL2dwBtOyNG24t +bEMLA4oyr2QrtLIn6ix7CqNk7pyRtvRzcA4xdHRlCmO71oZzOj+eQluC14KY +qQhGdVCutrc/AbGqN3asFhEUdde5Z/y7Fmy3tvVelCfjnv7LtT2jNaAaGGl3 ++gAZp1p5k/J7a4AYOvRDSZGMT0d+fQhrqYGhygqOnypkdNton3qqsAZsDdLk +rdXIKOdwTCjZcZWv2SSrGJHx2CjbPfpENdhuntf97UHGQvuBQ4FzVWDDLf7C +oYyMH0dbHrfurYRIW5l4opyMtZY+qTvFK6GoTvHEwF0yhknu2ZCyrRKmXXSH +TlaTUSBErihspQLC2vyW1erIuEhep93YUQE34l4pbH9JxrKi3O5u1wro3+xR +ODhMxjNdfrdsLe6CCd+jS6ZkCq7EjilbpZZB33h5uCKVgq0RRp1mIWVg0Zgb +KEKj4JePDl1OjmVgezbWrZ+g4FJ3+UKtYhm4t5zSt95JwQ0F325JDpZCZNC8 +kJMiBTu2pB9Wli6FqmH5Qj8TCoa262kN9hTD5pqK52nJFLw3cuFDvXEhXFp5 +O+ueSsFOUy52YbVCWPfP7x2a6RS0Huu1Dt9bCPNfFGPnMimoKp8Qc4GnEIa2 +NOua5q72RzwJIjcXwD3Xnl7hSgry+sfnzOwrAIvtf8ezOyn4ZGbl5ytKPpQk +Hd18m4uK4/TriwJCt8Gp836g+UYqXioRmnu04TZIcO8c5dtExegAXQO3v7lw +O5zUGEmiYn6zPdfk51zI9vjs6SBExU0xt1465OdCgq5fj5Q4FYOZ2klHFXLB +m7s0uwKp+DXONcb1dA4citi6q96PihwWU8X82TfBTOVca1YAFWXFcmzEIm6C +/2ybY0DQKut03zvmdBOqXKLy5EKpWHqtbLZT7iZIGs1TS6OpeEOrU/ZN5w3Y +KjZAup5KRZm+XebXOW7A6PPiWc9qKr5rbhb6EJkNiVxHmsR/UHGdM+fcXG0G +/KyeyhqepuKklrWPeH4GnLDK9sn5ScVP3/nf2yRmgGD1nCR1lorDO47zc7pk +QKZFeQL/EhWX0oIt2SgZkHeXbLluoygqGj9ir464DvdPzs4xJUTxkrkA1z2z +dOjPKZXOthJFic8uHXz7U0H+aQwYWIuiXb2X/hKRCleZdgYctqLIsazc8nNr +KgCN4uNhL4pa8cLua2dSIDc77rGamygateXUlFWngFP62X9YAaKo4mz/bv+B +FPgVJ+N8OFUUZbwHhl9pJAOPf3Ues00UnWus2myiE+GZQMBYXYcohodFOY34 +JcKF6sO7U1+LYsWg4Utf50T4PtVarfVOFCc9tpbWHU+EV/bMpqo+Ubw18WOx +gy8RLhlt+hI5vqoPFBwRybsG7DKOVClOGr6wa46kZSbA0jeRNE9VGj55ycvi +C46Dea+9ArvVaPi46w4bt2Mc/Fp7LGVEnYZ01dJRkkEcTFJ9ksy1aPgmcd2U +vngc9J18fVVdn4Zs8/8mXu+8Ag+eX4wRtqIhsXTwgrLYFfDMn/R/GkDD2eGA +D0GfLsO3M/XmvJU0tLJ7dMbGLwbQs57nvyoaCubKZRTaxUBmcP2TNzWrdfuC +vct6MaCfVk+7VkvD1MF/TvVLxkBdS/3w5kYasthe8Jp/ioZrOxtceV7TMPjO +74fGR6NBabohiJNFw5j08miWaBS0PGF2hPDTcSnfoJK19iIIqnA9sxKgY0sX +T/CfnxHgULe37rAgHU9rx0yTvkYA+4OIgmUhOp64LVJq+yICsEIsNIRMR5nl +Nt9rVyKgLtdJNoSgI3edaP2mbRFQHjOdFCxLR52p9VxGiuGQZrDG9MJxOh7c +EWMeoBC6et9wwkSHjt6YWWMuGgq7m0Mv7NelY07Wviv6HKHQJLdya0KPjoF3 +JAM834fAlNDyuKkRHYsG+95d9QsBjYGFIHkzOrrazUTsehIMcy5zN6ccV/Ur +mc+vnrwAppFTo9YX6Rj6flRzd20AGC4SfHqRdIxv/ZiYnhsAOt4mhw9F0fHa +Ubc+/vgAUD3TmCIcQ0dVzUO71W0DYLda0pG3sXQsXlOhELQpANayK2QdTaJj +TZXpHllHfyi5GKwrkUPH/FiTI2Y7/GAhgufe93o68kQbSNb2esM2r/Gl1gY6 +EtFRktYt3iBn90KjqJGOcSTWGP8Db3A7GvbhTBMdV1QWI/LSvGFg3a+Fz8/p +iEzkNjf2hqbIT6pv2ukYxKyZonzwgtjokjc1fXRsfazWU/n1PAjHHpsMnqWj +lJa2jDjdE84oinS6z9GR1L/+XQqvJ1SMfb97ep6ORw/sbyet84RjmgleR/7S +Ubo3OFV6xAP82d//ZV+m44Gpcbs/ZR7wIcSOK249A6XfRvN0qXjAda8QiUx+ +BnLy6qr7vnKHbZY11vf3rfJlC4e3d1yBqfHvQO5+BgokG9lUprlCkWy0RYIc +A7esGNy8HeoKB9hNTZ0UGJg8cz/vqYErGJcu6IkoMdD+jpzI0KwLpPxRhZAj +DLx7vJqtUM0FSGldVA19Br4cpf3qYTkB1+upvp6zDBTb1+uS4eUAP2XDfKvc +GRgW4DwgYOsA/Um8WxPOMZB7F+u/m/oOUGEsp3XMk4HFDwo6+6UdwHgg4EGd +NwOz9t9XnB+zhzwWe8rNIAaWhmxoKbOxB+Qh6zhfZqDRK83B5xZnwFdLs2Ex +j4F6bjGvM/xsIcGlY+Z7PgOD87qz/zjaQtEVI8lPBavzI2Y5mNrCp47TiQ+L +GMjsIVYcFW0BDf3tfMsYmHdqYg/nog1wmRdzTlcz0EF2c+mdizaQ7bZRf7iJ +gQH505362dbQnPCa2cpk4HaFNf5eXyxhWXJ5X/GXVT//WUX1tFqCUtPuqEtD +DOTtvi2nXWUJFb8uS2l+ZaB1+snDrhctIfuU2vlnowycfL/JMVbCEny3P1zX +MMXAJqFQf1kPC5B8kCtRs8jAWbqDwkOSOcQN+Ljd2EbgKLlpsf2iKRytemQW +IExgljAR2e5hCn+j1mqdECHQzde1sc/SFJyk48W5KQSW77Pauf2gKahdyBvw +oRFYsSR2yZZlAgvC7/R1JAgsjfcrSTQzAZeTsvKL+wkcOm8E9mAMmu0TS6f0 +CAzrHOHIlD0Be06LR2nqE2jSbvnpBu0E8P88zSNvQGBiR+5M5eYTwBTqESEZ +EfgU3jSwsYwg0K7hwAtjAt23+AXqlBhB+d9kz31WBL5mSh0I3mEEAlKHvnGf +JfD+ysDD37sMYTgqof1RLIGsuLOFY2b6MHntvGfGFQLbtEqieHX14VfWSUG/ +OAIFNmzxVTuiD+xVZOt9VwmstO48+3KHPkgMFM4UJRLYxf/xUcKEHjgpNIqk +XSfwMiXnt7KYHkyNTDt5FBD45YW77dd8HfirabhevInAmfgtzv8MaoPElLQn +pZlAZfF0q/oWbTBI4frM94zAd9IVM+oV2lDEbKxhe0Fgk01MTVK4NhgHyJxh +thJI7m/PootrQ1UJT3NWF4EjC1lXls9pgeumlrCtXwjsc2DZafMfg7Tq3Emu +IQKH9zyNklnRhKZTIaZrh4nV//fG9h0TmiBSIC87/ZXAJwr9STqNmvDycN5g +xxiB6c0yIT5nNUHMI/zw5WkC6wTNy7a3aYC+oGVJ2H8Eqhk7Cks90ICgxwcF +/X+u+vcx4cDbGvB2wzTL4ReBxaH3idwgDQjLsfpXbX51Pwdoj+WlNaBMU4lL +5Q+BKW1ZIc+FNaCXJeCz/y+BSsoLmg4cGrBHqeM4sUhg7MNP1X2D6mDGLKoV +XiKQu+HhwfJ2dYiKjhTjXSbQy0/uctJDdajYbX1tw8qq3+zMtJgCdeh/q7y4 +ssq3Hmoaxierw/8AgEARwA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 9.5}, {0., 0.935538188244949}}, + "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" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVl2c8Fe4bxoWsqHPs7ewjhFRCct+RlsgsKWXvEhWpiOyRkCQlI2QTmRlZ +kV8oSZIyShmHFlKkv/+r5/O8/97XdX3Jdp6mjuxsbGxza9jY/v+6jszxsbER +0G+Xx0D0GAt2J+/c/zydgFuaDPoD7rMgSeQPn9whImqi+rp+dRZ8l+s4/+k7 +EcebWXtGrk0DvVPG/0K8IIaMu7dWXJ+CHs0v3Dd0hFB2c7ockXcSgtWbd5BG +hLAz77DNitoXKF4k/NxyXRj1SN9/K7/9BA+tvuwR3SGC3mujwt6bjEHD/h49 +93ciuPPzq3nNl8Owa0WhdU+kKN5e9Nox2DQI3ZA8k6gohlySPz862PfDVvK1 +8oedYpj8UKRD4lovEDrml819xVH5YNsJ6lgXLCx5fnUTl8CEFvLIvEoHmM5b +O3K3S+C2Sfqz7YItEB77ytfbWxKF4/o417M1wNNHVluMBaUQeC88S3tfBZfS +LbwfNUqhFHHa0DW6DLQk7KyibaUxdEI/dnh7EXgeGWubIMigAd3MVSEoB/y3 +TXUJ18vg2pzOnBO2GXAzneNKubUsOn0O/te05w5QX8aVD6yTw72ho98kfiTC +41iV+DPFcsgY7+wosIoDkYX80GkGCf2UfV29syMhgvsCp50/CQO7dyZOlwRD +4HDXG2I3CYu2Le91eRIAW1Pes0LoZHzsKx2nG+ILfbTNxicvkbHOYTBCi+gN +v88L8Jz9j4zntWOrGtAD3ubdX3OAQsGtFY1BvzMcQSer+ZDVWQpKyTDSu9/Z +wPXTdNbLZgoeGQx8qe9sBXekdDv5JaiYYXx5uQzMQen6l+VAVyqmJKZfWbh7 +CC6M7/GqfkLFchl/W6LiPtjPrqK1UZCGmS8vFdR26wL3VyuTNXY0XKbTT5u5 +7YTABsy/W03D8/cG9QzC1SHAvOSIFy8dDcfHXXXiNsP2rjd7eG3p+LThUyVv +rwIMiewO4amio1vw03CNRBpw0TVFd3EzMKqqIq1NkATTohOT2icYqHujembT +LXGw6JET9C5hYEijdscUXQgKj9yJWP+PgWpjcnZZvwSgofkFnrZgYlGJ4UH7 +X1xgMRdryJ3DxPr+Qo+aqTXw/Hron3//mNh5+W7Ma/klncPaEgpOxgTsBauy +3jYWzPRL5c//IuBtwqix8zkWtEraPglKJ2Kyl5iiJWsa1s17+xXvEsSr5Ecy +PySn4U/Q1ea1E4K44/H2itx3k7Cxui/j6HUh5H21c+zTxgngGFNbGG4Xx6EI +UdGSyU7IWnRSqPGUwKFbRt73rrQBqyl5tk5aEmc27MySmXkCOeRbFrbNkoja +WX3BbbWQrjBgyu4qhaMte2TV+CtgcOjY5zSCNO7tPty3zrcUzDUoBK0aaYz9 +ObfJLycPfPZ8frbiJINfDZ3Wi3bcB95pH4aDgCwmGJ1z+PbfPRjSOCDx9JEs +Ou4y6X775RZ8VbHJpFnL4eL6Fa6QqwngXa/bTV2Rw59qBZc5fsVAdwCxjWFK +Qs+5Up3yC2EQ8pMyW5NNQsX0bDU1pyAYrLOw++83Cfcft7BM/nQRQk6Gy3ob +k/FNCQ//v7vnwMlQTsn1Phm3T67tbP/pCZPXB0I+LJBx4umF1pVqF+Bnlsv3 +HqCgf5MX64u4PTjxzsmI3qFg9pN3Msf6rUGkbcuxrzMUfD55KvaI3BFweJ34 +cc8uKt77Mi0y99EETLXEqqRvUlFV6D+CUpYBjPysfX1mkop3swWk5kz0IXex +VV9Ei4ZSbppjdRkIrf1df42u0ZAo/0eI3KAJV3gX2bhHaRhgcbFD/9MWGIzT +O7RzGx0bQKsn/6EyRH2/Ns4TQ8exfIKdUQATvFJ1umjDdLxxyPb2lAoFFlMJ +bI1qDKSY6tcUykgD6SdHwJswBpovnLLkKxeBwBvWhviGgfSRuD6tbwTYJlDp +oKPAxJuWl/JXdvBB1DuV9lp/Ji4V2hz/u48TCLp8WRyvmMiz3+qDudo/HZv1 +4ZJb5Am4zHiiXdnHguSqwt82zwnIr9ASeukaCzYlFzm+8CXiHSnuvBEhFgRE +pfo+kxDESEmTi+ZHpoHAeCHXWCeIYpN93MGaU7C8+N58wUkI+85C6a27E8Bn +keiXkiaOFVnI9t36ORhenOYX3C2B5/VvjCr0PIW0Y0sbx75L4JOtKZwOi00g +alnx2TVFEoOmI5HDsg7KPSX08nZK4foQq75DbpWQ32CppDAhhQx5wrpHfg+h +XV63wu6aNArWP/jz3qYAfhh9av+5Qwb3V+u7VEpkg16c6kXtcRkcKdOZlz+e +DtUsxnPtSFlU6Z10MI28DZGBi/kBW+XwpsdA6vPSGyDKqFE50C+HeVZpda3t +seCtdYIeqU3CkuTrs01rIiDM3/D3tXgSspJnJolXr8KmbmLq7EcSRii5uXA3 +X4ahy2WhS1pk9NC4NXma0wdkNOV1HK6T8UZpt7vV3zPwnf3sU/nR1Tw9M6LR +d8oNvF0URWLVKQgtGGdp5gC9h9+pa4RTcMZfqKGv6iT03i68bzNAwfMbjGUd +Kywh8MJ0/8ZNVPT5sL7Rn8cMGh3+vTW6ssqj6JWVkOuGUMgKvC/8mop6tQ6R +YuV74MLf3yDHoOFjYY+FopJd8NkukZnrS8P6E8E2cSE7gM3h7uuXz2nY5RJP +2a+4DQq9/cyOyNExdVnj7W83VbAZVhON9KGj9o6q70KSGyHnaFOu6H90nGiw +KEm1pMKVUdo6NhkGjmSOaRwmyALX2oUtUd4MzCqcfBclIQZuDxtUjrYw8IS6 +4pQzuyCcKcv1yRFm4rp39o2zvPxAO8QWkujKRKuE+aCom2tB7c7zC6F1TLzH +Ifk6v4oNDN0KNG9fIKCk38OTURUs0F2IsoqiEvHB1F3jiiMssEoVltryjIiX +zW879jROQ/LJfZduuApicEX4kwsDU/Dp/VbHg0JCqGNi8YnuMwl8SyfSRTSl +cauxVIDD2hIY28vuThyXxitfxa+JcOfCn50T//EmyODTl+u/8kRnQo9+fW/0 +Nll8MCuy7fvSXWALPeV0aEQWx0bPULNtksBiuP12Z6gc2sIDNqZTPDgrOFWu +CJJwR4i74qld0aDY0urQ6kzC3EH2hTs8oXDVdXFsvIaEfOJWrjuPBUJ4wW1m +7gYyVgrfNf9H9wMl3eNVE45kVLIJ7nQ5uHpEtqKSp6vIWGPJE1i37jSMSuvo +JfJT0MgyWMaY5AzZ41raoicpeNtDsuLMd1v485h/7VwxBXM/FM47Eo+D5bda +wQAOKhb1adAt7lvAPjWdb/YWVFxcYMv/9cIYxjeoJE7lU7G9ooxVMbAfhJfm +uLv+UvEfu4vubq7dMPDzusE6IxryTs/It+0FyDzA3TefSUM7OHeLTUQDVorN +lLTnaXh2a6DQ31I14CkRMKAa0LH72csn1IdKUM4x+Sgig46X3k92Ti3TQXv0 +8Xe1n3S0Z/5w/StOBm+r5Tn/fQxMk5weNTGQBK1RYgftDgNNn4846tsJQ9L5 +ZTfmNAOFeH4aVg1tgD/OLab9wEQdgcdPOqJ54JvzSb7R+FV+xk62nyVwwOzE +3p6gSSYWqjf9KJH6q+Pwqz5BQpiASh+3Fta/Y8Es83xGUiUBN1Gv5PYns2Cs +36za156Ilc9ayj/TWaDxumyhf60g+q9NKTA+Ow2Siz7dUg8EMTTqmG2c4xQ4 +3bYrbjUVQitPBae0VxNwbb3+Y99ocTTx56nmke0CyuNNATrKEqjXUjZs498O +F3IL288NSeArU7Pos8HNYHR2t8rpMEmc/NY9v29jPWgLaj1eZkqhk3bXNSRX +QYLKkUNfX0lhmxvfSDpbGbCRe7l9faXR7sjvstJ9haBq9nHPaYYMng112Z/R +mQ0jdgJZ8i9lMGW9a/jroXTI2XOTfuGsLH4tvkT2dEiB/tzdJYokOfzIf9+f +7VAiuFids7FulkPK1FDyQO311b0eYlG7mYQbI7t0FF5EQHjz2IpvOAnDIqVn +i0SDob/fU4vtLQnDT9hfWajzh4h1+zRRlYxf046nqzX5wGKxUrttKBljnJ1o +m0K94Lw2fjHsJ6Pf0Ls8JzN3YEQ6r/NQoiAPQ79n/aIDRPw10tvvT8HLO+88 +nDhqA6qck3tvd1GQHmRgXx91FNZ3JhlLUakYu1vfrDTDDBb8zk47n6OiwlL5 +i9fxRiA4aR/1uZOKfCVeKRSPvTByRXgnTZqGyof3zvzT1oWFXN+6Pg8a7uq9 +0uJ4VhswfhaqmmnYYbHz4M3+bXDTPtHCQZiO5055GlOXVOHg4VDlZ+50tDaf +Lnf7sRGaqq4mbWiio2ySpfHSTyrocpTEkQQZ2Gv7aNFPVA4WBb7G2rswUPLK +YqPNazGwwa/pjjUMbCx2DpiJF4T1azOvDPIyccJ9U0fxMj98j3CxCzrJRCIn +g1qtxwWt7Zvs9zxk4i0/xZORRmvA1Gzs4RUHAjrISH8YqV/tXycz9icCRPxU +mvYnyokFG4ZqTw0+ImJDfKd9bf80mOZb/0m3EMRd2ykvLv2Zgq8l74Ty/goi +z8CDwHd5k/DD3bplkCaNqnUfinctlIAUJtTTe6Rxx5WiLYGvckFD98uBkMsy +eLTo5GUC8z54iKcs+5Jl8QXRlBYwkgqzH941RnXKIs+vBTUi+RZkcgvf8/WS +Q9EsMZ6NP+IhrrXFiIeXhHc0dp1jicfAMmk6cf44CV9YHjiYWR8KwcXXJnpK +SJh0/GNT/odAUH30q7WGk4wLtE2+8WsuwsCL726bjpFxZ89hm2/fz0L0G8n7 +7kVkLO71G+RYPg2Oh9c51Kyh4IQQaOGkM1hy+arNmVPQ+BJ73/BVOyi1CySu +zV71jd4fse7fjkOl1a/KykUKHjfVOqh64jD0B0+6WhhQMUEvxtPC0gSk6fez +OdKpGLN+Miap9gBc/PVm9t5PKp5O0V8fnLcb0Cd/H2E3DT8fVk0YIiGUx025 +UJJpeCDL4NfazxqgM5SdRJ6m4cXUyMSd+7bA9zR5Q1WkY9Z4kYFI0Sa4d3FH +V0cSHZ33egt41DLgMPgPK07SsXbL0MODmWTYdjns4r2dDHTZJvT8lqoUbJri +o67EMfB6gd6/tTwiEM25aWjL6Oo/gv+kySkCJNfWHePbxsRLb350G9jwQn1G ++0RXOBPjR/6+McjngCsieTW6H5iYR3ISsqWs6Oju/WSiOEbA3Nc1OseDWHDh +KLfQxhgi6ikQWyvYWGBd9/nTkzkm7tW60fJNZlnns/vbbn4+An6cTzVSHGaB +hM3R8w8LCHjj38v1eI8F2gs5tgZHiRhEmzMOVGZB4sWdle+XiPg7tOJMW+A0 +kGw76QfuCuL6/Vkfhi9OQcok7V3BPiEcjbI6HT07AUbuMsedgsSxaHvzwZtX +uiDmXXelOVUCd/L6J8j2t8O4Uahow0sJtN3W/8+6sxmm2GLMzlyWxHcDWzp+ +36iHIPsDvgwZKcwGGfUnAVXA5dI/8vKZFDp3J4tH6JeBjIzk5iAPaayssNU+ +2lgIxq/twgqkZPC6V/4pFXoOKD9fqpZtl0HRgtynd2Uz4N7Zg703XWRRXfOU +SnFfCizXuW1mF5XDIR1N1dm0REiYe7noVC2Hcua7km9IxYFS+60ZUyUSWvms +6ZzVjAQex6I1p66SUGr4l0GlXTAovpPljXxFQi+NkMiUnQHwoVfwxpgCGUu8 +fdtmyL7webI42iaQjH3tXJ75nV6w/W2O78gLMtK23H8r8swdAm+Hch1jUvDJ +aDj7sYOO8PFFxDOTCxSUKC99fjzFBmw0uVO2dVCQ/Da1RWzxKPR5ewgIy1Jx +cEhSV+SbGcSHbDo3d5qKS3aGp/eKHgJ959f+PW1U1NVVjB/s3AvCTRmPGWI0 +TKF84DIK1YUVg0kud2cajp9v03o9ow0jD8Tm8+ppSM0UsUJldeAbyuifWk9H +OT7vpQ36m6E5vljL1YmOP+KWDQ1tFaDbyV6Av46OmpcCYy/p0YAmfO5VKT8D +ew6lyIzclQPvBHdtY3sGXhUqPh26TRwGw8Pfuj9i4NKpW7+t3gmCdbFsyDlO +Jm6apAfK+gnAQPbdl75WTFTiZxx4d5cL+E+cGMgpYOKOqXiYu7MG+tr/znhb +EXDgtknGeBMLmu9t7x9kJ+KZB52qt06xwG1JQKw4f3Xvnc4mlY1OQ/GhiZoH +BoJI//OGOcE3DXPiKu5vfghijbyE6b/mSXDKGjKvl5TGfY4uR7M1SkFDe/Cz +Sqs0Xmiv6GVq58GRVqeoJq9VP9CQp3z3uQ+1QRHE02KymCRNPnvE4h6Mr7vh +kdsoiz/sr1blBN+CDiktkpGzHC49tzF7ppkAWfE/JAU4SWjzTnWYHB4D44dW +lGKPkDAjimnkJBkGnCaW0635JNSZL1efJAdBaHXODd1/JEwfz7ekeF8E5eS6 +1h6LVZ9NuznTsuccXBBMdXbLJaPEOOvGDx9PYP70mjNYJuPG5HaCrrELlIne +3PTx0KofvPbyMeqyg3XqtbcE0ik4IvCh4qqdNXy+LsJr9pOCsuacxF/1hyFV +qZFhtIeK0G8clZJqAlUq1spxKVTcLCEV46RsAEXn94+Fz1KxMTahRPDvbjhX +tb1dEGhoxBbP0W2DULfleHl1Ag3n+xQ5NplowofVWBL+TEOVjtfmOTe3gJO4 +enel1iovtUYje5SVQbjS4a1LPB2FCPwPr0kxwWHW+rD8p9U+Le8ovj5BBtFr +BvXKGgycGfpPmZYjBTmnw19MRTOwWnfDhvfHRYDrYJuw1hAD0/0ESvWLCfDZ +XtMmS+X/fPB47OjihayGpSOtV5l4MnyCjfs3B3QUvFW+P8DEiCcjlzblreic +utJB3/OGgAVT2/1Dw1nQe8GqbjmIiA6vzz88w8eCHFMxK/JXJjpztvJX3VnW +EWZUetr8YeIekd5TZplLOvKMLx5cawl48kEs9f0IC5QvGwzr5BCw+OdI1qd0 +FkyGGqtvMydiydbsa+Vqqz7SxS46ukDEdydy1p4In4ZMkXMmo0mC+JD97fLR +0Cl4RAzzStMTwlCGh+y7pQkouR1ZaH1ZHM/bvZSsK+2CJne5V8MyElh29svE +Z/YOkM78Xm/3XAJTm9PfKM02Q3V7iaOXryTeG5uCN8/qgRZjavFYTArP7HKo +5yiuAuRM2tjSKoXX9n/cddSlDJSkGvS5nKXxr9YOsFkqBJskCuOAqAzq1Sgu +rZjmQD/b2RaJZhn8s8hQ+AAZIMmXm0uzl8XddlQ+f4E7QGj3954hyGGdqxHH +UEci5DSxtbmXy+H4F8Vja3bEQfqJDM20jSQ8n/ef3gXPSNhXKRj85QoJXX0a +eRUjg+Gwtc+ZrhckTL2Xm/Y4IAAi1Rcbt8iT0SmVGf3J1Besub/NDPuTsWFh +/EPPjBckMwcbN3aTMaHyUkw+pwcUZgiH9NIo6BqbmPXPxxHiarP5+89T0Mne +r2m+1gYWzURbgtso+Cr+08BZFSvQ2PvGPU6Kin8XParrxMzhQ2RUtZYHFUUj +LhcfPnoITjBif+m1UJGjSbCh7c9eKLad+PNAmIah+/fvGsnThasyFKVKBxq+ +0d337aXiTlDdUniI+njVb7TbLt22Ul/dx/Jiyvyr/FIN7ge4bYbLKi1YY09H +wVMfOj1vK4BFw6t9UTV07Jc8Ri9zp8HNu/1zi7yrefjoqzdrRA6K+zbeeGrD +wDL83SvvJA7JBa/mZx8yUOMH81AAmxBwcliHNa1hYpTtRRnZagEweKTO+/MI +EyU6CEd+POMC1bwFwTe5THxBtlJSbFkDIlfXxXhYrPpL0hLPcAsLBmo3ostf +AsbmPknj8mKBWHTV9K1sIo5KcOtu+DINxzOLJAr2CGJgrKHtb8Fp8O0aSDo9 +I4g5dzwt7HsmIR3vphaLSCN3mN3GuiOlsEcrYOlRgzTm6JiOS3rlgVMoQ8HG +QwYfC+9ptkq7D3aV/6RcBWWx5rRXvHvcPbDJnNXdXiuLXcVH5WMqbsEQ3dBW +027VN+rypDlOJIDyIm/Q9TUkPPqfWvNQQwxYfeH2GzQn4SeOWt1j+8Ngd2a9 +B+SS8Gv+KIWlFwSlWit/wpZJmPhtzVZSwUV4u5TxnWRGxg8iqUqPvM7BV5UP +zyazyZhVd3JCrsITInZla9/8TUb1AtXbLiEuMCxLK7AypGB4bHHM/A87qJZ7 +MxifSsEK2gZz9bvWEJBPU8v4RkGrj38Kzs4eBrY1CqGdelS8GnndP+uJCXBu +q/Xuv0XFV81cYnyuBvB0K/vx5Wkq9mnrv7Fk6sN6ywCuRG0aFvcMhdGDEHDt +zQGOOBq+93z11SNcE5QD7HOufaSt+n3HVHfdFkjvq1v/ZzsdXZ8FzT30VIYe +M7/h6lg6MpobamoOMmFKvzs+Z5SOZeMioxL8FAgXKf7gs42Byx45TrmjUvCx +VJ9pG8nAv6srsyNcBFo8iZvr3zKw/1fbhFwPAWKrfe2+KzExLMZN0o6TD8S6 +bl6HQCa27J32GyRxAmvBy/XVayZ+U3RgnJ9Z0bl6p/b6q5cEXC7c0RYWxYJA +Hs74z5eJ+CtI/dvmDSzoTC1JNGExccx2/LrHu2UdDS+j/LhfTCxIVLnxfnhJ +59ugzDbVv6t+ffUbzcRxSWcfx+yOYHYCRuzNGX40ygLNqN2JofcJqDf1b+2W +TBY8Mcwm5ZsQMcm1YuTpVhak+Iy32c0RcY3j1tmMqGn49HXfF6XEVT6lPPOj +o6agObtSW2KXEFpvdTzsxz4JI6WN5m/9xDHqY1mh87MuGCrfa0uXkkDD8d4Y +R4kOqPrvAbHimQRWxn3uUGBrAVJB0+z3c5LI4or1+vKpHs6nH25dKyKFjjuU +85+2VcGJ3vmuHc1SGDRr7PjWrwy2SBJe7HOQxmdeET1xEkUw4cPuc1tIBn2o +noq8bjmgcKd4361GGdQ8vyMgyTgDLF+/FvKwkUXTvtYygsIdkDzILWS/Xg4F +p/fPnHmfCKry4oqzpXK4dXfQfPeBOLBSyDmpL09C4Q1pas5RkTBxoq0lK4CE +YzPqz4PuBoO7LCXLs4eE8SUSnoFpAXBiwu3wEIOME/p6yWHuviCeREhLu0zG +gR6FkMv/vKCj+6d993My7q4UysyieEAzfUg3lkrBNnG1Ua8YR3BW2aqcfI6C +66yeKVr9ZwO7R1PfKLRS8JmBEq+RgRW4PeS/YyRJxdmMlYUiRXMI5a8ZfO9G +RYkz0V7Clw7BdKjb1pUmKnbWjpwbFtwHyw+jU1yEaCgmG+W8u04Xdoc1NByz +pyG/w3lOdoOdMHBhYXm4hoZPTv2GL2fUwXbBvaqHj46bTncdMfffDFYBXXq2 +dnSs/CrfUlShAOJT0U77q+mYsHGX2fQVGnSPhK9N5VnNxyrTx4lrSPB8PqIh +6CQDU+QPyaQFiINP/e/g0lIGEgX2nVAUEgLLTZe5XdiYSGmcs3zxRgBCHnNk +lx5e5Z3kF5k2wgXN3bqqng+YuPvXnMWX/jWgflLw2KQpAaffJyW8bWXBWAdl +vvgPAe+fSviv2psFs6b8/fz3iTiw30ircnIaHhnEPVPaLYimn092LYpOQ/WD +IqXaKUHU8FEdjHw9CfXrl3cxhaSxLaLg/XHnUjDUfBH667E0ejXbJdVF58Gs +I9fFElcZ1M0gbywuvw+VxjsyPm+QxRvEyDdyxffg3inp4oAqWdSSvPElu/sW +fM7vX1NyUg6Fq7dla51JgHMFIo+M2Uio8qzh1thgDAiX86cFmpHQ5ftC7x+b +MPh04EzRcg4J711mNHBZBEHbUp7yxiUS/it8w3refhGKi4RXhYKM4w89tY3C +z0F+w8rFvCwymiUmXHDo84TqiYYRzUUy3rDMKsi+5wILmdOuogcp2Ehae2B8 +rT1cT3RcNrtLwdN6FaFaNdbQub1wz76vFOw4nZQzwHUE1NxPPorQpaJH9eUY +vV4TKKiaSPRLoiJfnui26DADMEv8kFw5RcUbQUudd7T14VguOcd8Bw1rCko2 +u8YjsJ/e7J4XS8OPX8+7V2dqQn9LkdmBMRq+qJkMC3yxBerV2EruqNMxcdfU +zbtxylCYGTxmc42OvosiLB9HJhR7hZU4jtDxUnqL/W8ZCjw5evKr5FYGcvGd +uZTyTwrYe7NMpSMY2FaekH0iVQQyg7Y3BgwwUMzbErOHCTA2lvTxliITn/hG +JZFJfGDcZ6f4N4CJ6hkSc6NbOSFAuiHMvW+1f9lvT7/c8E/nWl75bskeAoqI +CJWxx7Dg8AvLS8cuEjGQNXw7msiC4y1LDyenVnmMLfK6vLSs05mU0i6/wETC +k78Lr1eWdK6yuZl2LDGRcSDdpil4SedExUux5BUm8j89epN975LO/wAU6AOG + + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1VO0HGkUgNHYtpMb27bNGzu5sW3bts1BbNu2bWcy5u41D7vqfKfrpetf +qzsopFtw19ChQoX65hK4r3Cpzl/m72hKHs7Z9Sc9N/Q4wrBS1+Bv8/c045Ne +TGV+13k5bx5ABm7q8YRlla7JP+YfaM5nvYQq/KHzccE8kIzc0hMIx2pdi3/N +P9KC/Fy0G0QmbuuJhGeNDg58UTa5taQAl/RgMnNHTyICa3XtwLthsw6hIBGJ +RGSiEJVoRCcG6zxfhzBs0a0oREzW29UlLFt1awoTiw129QjHNt2GIsRmo119 +wrNdt6UocQJnZdeACOzQ7ShG3MC52DUkIjt1e4pzWQ8hC3f1ZOIFzkE3IhK7 +dAdKcEUPJSv39BTiB967bkxkduuOlOSqHkY27uupJGCTbkIU9uhOlOKaHk52 +HuhpJGSzbkpU9urOlOa6HkEOHurpJGKLbkY09ukulOGGHklOHukZJGarbk50 +9uuulOWmHkUuHuuZJGGbbkEMDuhulOOWHk1unuhZJGW7bklMDurulOe2HkMe +nurZJGOHDiEWh3QPKnBHjyUvz/QckrNTtyI2h3VPKnJXjyMfz/VcUrBLtyYO +R3QvKnFPjyc/L/Q8UrJbtyEuR3VvKnNfT6AAL/V8UrFHtyUex3QfqvBAT6Qg +r/QCgtir2xGf47ovVXmoJ1GI13ohqdmn25OAE7of1XikJ1OYN3oRadivO5CQ +k7o/1Xmsp1CEt3oxaTmgO5KIU3oANXiip1KUd3oJ6TioO5GY03ogNXmqp1GM +93op6TmkO5OEM3oQtXimp1OcD3oZGTisu5CUs3owwTzXMyjBR72cjBzRgR/1 +ZJzTQ6jNCz2TknzSK8jEUd2N5JzXQ6nDSz2LUnzWK8nMMd2dFFzQw6jLKz2b +0nzRq8jCcd2DlFzUw6nHaz2HMnzVq8nKCd2TVFzSI6jPGz2Xsvyk15CNk7oX +QVzWI2nAWz2PcnzTa8nOKd2b1FzRo2jIOz2f8vys15GD07oPabiqR9OI93oB +FfhFrycnZ3Rf0nJNj6ExH/RCKvKr3kAuzup+pOO6HksTPupFVOI3vZEv5qVU +5U/91X0Z1QLvhOWh//8vz+2z/wD6/vfg + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgEAURMEvGtiGrWhgYmQJBsKBcOBZugWogWAPTrLw2OmWPK9nFVGa +iJhSOdY7PlU/1d4zj/2Qt7yn50/xDo7jOI7jOI7jOI7jOI7jOI7jOI7jOI7j +OI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7/ +hl9aG5QV + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl2c8Fe4bxoWsqHPs7ewjhFRCct+RlsgsKWXvEhWpiOyRkCQlI2QTmRlZ +kV8oSZIyShmHFlKkv/+r5/O8/97XdX3Jdp6mjuxsbGxza9jY/v+6jszxsbER +0G+Xx0D0GAt2J+/c/zydgFuaDPoD7rMgSeQPn9whImqi+rp+dRZ8l+s4/+k7 +EcebWXtGrk0DvVPG/0K8IIaMu7dWXJ+CHs0v3Dd0hFB2c7ockXcSgtWbd5BG +hLAz77DNitoXKF4k/NxyXRj1SN9/K7/9BA+tvuwR3SGC3mujwt6bjEHD/h49 +93ciuPPzq3nNl8Owa0WhdU+kKN5e9Nox2DQI3ZA8k6gohlySPz862PfDVvK1 +8oedYpj8UKRD4lovEDrml819xVH5YNsJ6lgXLCx5fnUTl8CEFvLIvEoHmM5b +O3K3S+C2Sfqz7YItEB77ytfbWxKF4/o417M1wNNHVluMBaUQeC88S3tfBZfS +LbwfNUqhFHHa0DW6DLQk7KyibaUxdEI/dnh7EXgeGWubIMigAd3MVSEoB/y3 +TXUJ18vg2pzOnBO2GXAzneNKubUsOn0O/te05w5QX8aVD6yTw72ho98kfiTC +41iV+DPFcsgY7+wosIoDkYX80GkGCf2UfV29syMhgvsCp50/CQO7dyZOlwRD +4HDXG2I3CYu2Le91eRIAW1Pes0LoZHzsKx2nG+ILfbTNxicvkbHOYTBCi+gN +v88L8Jz9j4zntWOrGtAD3ubdX3OAQsGtFY1BvzMcQSer+ZDVWQpKyTDSu9/Z +wPXTdNbLZgoeGQx8qe9sBXekdDv5JaiYYXx5uQzMQen6l+VAVyqmJKZfWbh7 +CC6M7/GqfkLFchl/W6LiPtjPrqK1UZCGmS8vFdR26wL3VyuTNXY0XKbTT5u5 +7YTABsy/W03D8/cG9QzC1SHAvOSIFy8dDcfHXXXiNsP2rjd7eG3p+LThUyVv +rwIMiewO4amio1vw03CNRBpw0TVFd3EzMKqqIq1NkATTohOT2icYqHujembT +LXGw6JET9C5hYEijdscUXQgKj9yJWP+PgWpjcnZZvwSgofkFnrZgYlGJ4UH7 +X1xgMRdryJ3DxPr+Qo+aqTXw/Hron3//mNh5+W7Ma/klncPaEgpOxgTsBauy +3jYWzPRL5c//IuBtwqix8zkWtEraPglKJ2Kyl5iiJWsa1s17+xXvEsSr5Ecy +PySn4U/Q1ea1E4K44/H2itx3k7Cxui/j6HUh5H21c+zTxgngGFNbGG4Xx6EI +UdGSyU7IWnRSqPGUwKFbRt73rrQBqyl5tk5aEmc27MySmXkCOeRbFrbNkoja +WX3BbbWQrjBgyu4qhaMte2TV+CtgcOjY5zSCNO7tPty3zrcUzDUoBK0aaYz9 +ObfJLycPfPZ8frbiJINfDZ3Wi3bcB95pH4aDgCwmGJ1z+PbfPRjSOCDx9JEs +Ou4y6X775RZ8VbHJpFnL4eL6Fa6QqwngXa/bTV2Rw59qBZc5fsVAdwCxjWFK +Qs+5Up3yC2EQ8pMyW5NNQsX0bDU1pyAYrLOw++83Cfcft7BM/nQRQk6Gy3ob +k/FNCQ//v7vnwMlQTsn1Phm3T67tbP/pCZPXB0I+LJBx4umF1pVqF+Bnlsv3 +HqCgf5MX64u4PTjxzsmI3qFg9pN3Msf6rUGkbcuxrzMUfD55KvaI3BFweJ34 +cc8uKt77Mi0y99EETLXEqqRvUlFV6D+CUpYBjPysfX1mkop3swWk5kz0IXex +VV9Ei4ZSbppjdRkIrf1df42u0ZAo/0eI3KAJV3gX2bhHaRhgcbFD/9MWGIzT +O7RzGx0bQKsn/6EyRH2/Ns4TQ8exfIKdUQATvFJ1umjDdLxxyPb2lAoFFlMJ +bI1qDKSY6tcUykgD6SdHwJswBpovnLLkKxeBwBvWhviGgfSRuD6tbwTYJlDp +oKPAxJuWl/JXdvBB1DuV9lp/Ji4V2hz/u48TCLp8WRyvmMiz3+qDudo/HZv1 +4ZJb5Am4zHiiXdnHguSqwt82zwnIr9ASeukaCzYlFzm+8CXiHSnuvBEhFgRE +pfo+kxDESEmTi+ZHpoHAeCHXWCeIYpN93MGaU7C8+N58wUkI+85C6a27E8Bn +keiXkiaOFVnI9t36ORhenOYX3C2B5/VvjCr0PIW0Y0sbx75L4JOtKZwOi00g +alnx2TVFEoOmI5HDsg7KPSX08nZK4foQq75DbpWQ32CppDAhhQx5wrpHfg+h +XV63wu6aNArWP/jz3qYAfhh9av+5Qwb3V+u7VEpkg16c6kXtcRkcKdOZlz+e +DtUsxnPtSFlU6Z10MI28DZGBi/kBW+XwpsdA6vPSGyDKqFE50C+HeVZpda3t +seCtdYIeqU3CkuTrs01rIiDM3/D3tXgSspJnJolXr8KmbmLq7EcSRii5uXA3 +X4ahy2WhS1pk9NC4NXma0wdkNOV1HK6T8UZpt7vV3zPwnf3sU/nR1Tw9M6LR +d8oNvF0URWLVKQgtGGdp5gC9h9+pa4RTcMZfqKGv6iT03i68bzNAwfMbjGUd +Kywh8MJ0/8ZNVPT5sL7Rn8cMGh3+vTW6ssqj6JWVkOuGUMgKvC/8mop6tQ6R +YuV74MLf3yDHoOFjYY+FopJd8NkukZnrS8P6E8E2cSE7gM3h7uuXz2nY5RJP +2a+4DQq9/cyOyNExdVnj7W83VbAZVhON9KGj9o6q70KSGyHnaFOu6H90nGiw +KEm1pMKVUdo6NhkGjmSOaRwmyALX2oUtUd4MzCqcfBclIQZuDxtUjrYw8IS6 +4pQzuyCcKcv1yRFm4rp39o2zvPxAO8QWkujKRKuE+aCom2tB7c7zC6F1TLzH +Ifk6v4oNDN0KNG9fIKCk38OTURUs0F2IsoqiEvHB1F3jiiMssEoVltryjIiX +zW879jROQ/LJfZduuApicEX4kwsDU/Dp/VbHg0JCqGNi8YnuMwl8SyfSRTSl +cauxVIDD2hIY28vuThyXxitfxa+JcOfCn50T//EmyODTl+u/8kRnQo9+fW/0 +Nll8MCuy7fvSXWALPeV0aEQWx0bPULNtksBiuP12Z6gc2sIDNqZTPDgrOFWu +CJJwR4i74qld0aDY0urQ6kzC3EH2hTs8oXDVdXFsvIaEfOJWrjuPBUJ4wW1m +7gYyVgrfNf9H9wMl3eNVE45kVLIJ7nQ5uHpEtqKSp6vIWGPJE1i37jSMSuvo +JfJT0MgyWMaY5AzZ41raoicpeNtDsuLMd1v485h/7VwxBXM/FM47Eo+D5bda +wQAOKhb1adAt7lvAPjWdb/YWVFxcYMv/9cIYxjeoJE7lU7G9ooxVMbAfhJfm +uLv+UvEfu4vubq7dMPDzusE6IxryTs/It+0FyDzA3TefSUM7OHeLTUQDVorN +lLTnaXh2a6DQ31I14CkRMKAa0LH72csn1IdKUM4x+Sgig46X3k92Ti3TQXv0 +8Xe1n3S0Z/5w/StOBm+r5Tn/fQxMk5weNTGQBK1RYgftDgNNn4846tsJQ9L5 +ZTfmNAOFeH4aVg1tgD/OLab9wEQdgcdPOqJ54JvzSb7R+FV+xk62nyVwwOzE +3p6gSSYWqjf9KJH6q+Pwqz5BQpiASh+3Fta/Y8Es83xGUiUBN1Gv5PYns2Cs +36za156Ilc9ayj/TWaDxumyhf60g+q9NKTA+Ow2Siz7dUg8EMTTqmG2c4xQ4 +3bYrbjUVQitPBae0VxNwbb3+Y99ocTTx56nmke0CyuNNATrKEqjXUjZs498O +F3IL288NSeArU7Pos8HNYHR2t8rpMEmc/NY9v29jPWgLaj1eZkqhk3bXNSRX +QYLKkUNfX0lhmxvfSDpbGbCRe7l9faXR7sjvstJ9haBq9nHPaYYMng112Z/R +mQ0jdgJZ8i9lMGW9a/jroXTI2XOTfuGsLH4tvkT2dEiB/tzdJYokOfzIf9+f +7VAiuFids7FulkPK1FDyQO311b0eYlG7mYQbI7t0FF5EQHjz2IpvOAnDIqVn +i0SDob/fU4vtLQnDT9hfWajzh4h1+zRRlYxf046nqzX5wGKxUrttKBljnJ1o +m0K94Lw2fjHsJ6Pf0Ls8JzN3YEQ6r/NQoiAPQ79n/aIDRPw10tvvT8HLO+88 +nDhqA6qck3tvd1GQHmRgXx91FNZ3JhlLUakYu1vfrDTDDBb8zk47n6OiwlL5 +i9fxRiA4aR/1uZOKfCVeKRSPvTByRXgnTZqGyof3zvzT1oWFXN+6Pg8a7uq9 +0uJ4VhswfhaqmmnYYbHz4M3+bXDTPtHCQZiO5055GlOXVOHg4VDlZ+50tDaf +Lnf7sRGaqq4mbWiio2ySpfHSTyrocpTEkQQZ2Gv7aNFPVA4WBb7G2rswUPLK +YqPNazGwwa/pjjUMbCx2DpiJF4T1azOvDPIyccJ9U0fxMj98j3CxCzrJRCIn +g1qtxwWt7Zvs9zxk4i0/xZORRmvA1Gzs4RUHAjrISH8YqV/tXycz9icCRPxU +mvYnyokFG4ZqTw0+ImJDfKd9bf80mOZb/0m3EMRd2ykvLv2Zgq8l74Ty/goi +z8CDwHd5k/DD3bplkCaNqnUfinctlIAUJtTTe6Rxx5WiLYGvckFD98uBkMsy +eLTo5GUC8z54iKcs+5Jl8QXRlBYwkgqzH941RnXKIs+vBTUi+RZkcgvf8/WS +Q9EsMZ6NP+IhrrXFiIeXhHc0dp1jicfAMmk6cf44CV9YHjiYWR8KwcXXJnpK +SJh0/GNT/odAUH30q7WGk4wLtE2+8WsuwsCL726bjpFxZ89hm2/fz0L0G8n7 +7kVkLO71G+RYPg2Oh9c51Kyh4IQQaOGkM1hy+arNmVPQ+BJ73/BVOyi1CySu +zV71jd4fse7fjkOl1a/KykUKHjfVOqh64jD0B0+6WhhQMUEvxtPC0gSk6fez +OdKpGLN+Miap9gBc/PVm9t5PKp5O0V8fnLcb0Cd/H2E3DT8fVk0YIiGUx025 +UJJpeCDL4NfazxqgM5SdRJ6m4cXUyMSd+7bA9zR5Q1WkY9Z4kYFI0Sa4d3FH +V0cSHZ33egt41DLgMPgPK07SsXbL0MODmWTYdjns4r2dDHTZJvT8lqoUbJri +o67EMfB6gd6/tTwiEM25aWjL6Oo/gv+kySkCJNfWHePbxsRLb350G9jwQn1G ++0RXOBPjR/6+McjngCsieTW6H5iYR3ISsqWs6Oju/WSiOEbA3Nc1OseDWHDh +KLfQxhgi6ikQWyvYWGBd9/nTkzkm7tW60fJNZlnns/vbbn4+An6cTzVSHGaB +hM3R8w8LCHjj38v1eI8F2gs5tgZHiRhEmzMOVGZB4sWdle+XiPg7tOJMW+A0 +kGw76QfuCuL6/Vkfhi9OQcok7V3BPiEcjbI6HT07AUbuMsedgsSxaHvzwZtX +uiDmXXelOVUCd/L6J8j2t8O4Uahow0sJtN3W/8+6sxmm2GLMzlyWxHcDWzp+ +36iHIPsDvgwZKcwGGfUnAVXA5dI/8vKZFDp3J4tH6JeBjIzk5iAPaayssNU+ +2lgIxq/twgqkZPC6V/4pFXoOKD9fqpZtl0HRgtynd2Uz4N7Zg703XWRRXfOU +SnFfCizXuW1mF5XDIR1N1dm0REiYe7noVC2Hcua7km9IxYFS+60ZUyUSWvms +6ZzVjAQex6I1p66SUGr4l0GlXTAovpPljXxFQi+NkMiUnQHwoVfwxpgCGUu8 +fdtmyL7webI42iaQjH3tXJ75nV6w/W2O78gLMtK23H8r8swdAm+Hch1jUvDJ +aDj7sYOO8PFFxDOTCxSUKC99fjzFBmw0uVO2dVCQ/Da1RWzxKPR5ewgIy1Jx +cEhSV+SbGcSHbDo3d5qKS3aGp/eKHgJ959f+PW1U1NVVjB/s3AvCTRmPGWI0 +TKF84DIK1YUVg0kud2cajp9v03o9ow0jD8Tm8+ppSM0UsUJldeAbyuifWk9H +OT7vpQ36m6E5vljL1YmOP+KWDQ1tFaDbyV6Av46OmpcCYy/p0YAmfO5VKT8D +ew6lyIzclQPvBHdtY3sGXhUqPh26TRwGw8Pfuj9i4NKpW7+t3gmCdbFsyDlO +Jm6apAfK+gnAQPbdl75WTFTiZxx4d5cL+E+cGMgpYOKOqXiYu7MG+tr/znhb +EXDgtknGeBMLmu9t7x9kJ+KZB52qt06xwG1JQKw4f3Xvnc4mlY1OQ/GhiZoH +BoJI//OGOcE3DXPiKu5vfghijbyE6b/mSXDKGjKvl5TGfY4uR7M1SkFDe/Cz +Sqs0Xmiv6GVq58GRVqeoJq9VP9CQp3z3uQ+1QRHE02KymCRNPnvE4h6Mr7vh +kdsoiz/sr1blBN+CDiktkpGzHC49tzF7ppkAWfE/JAU4SWjzTnWYHB4D44dW +lGKPkDAjimnkJBkGnCaW0635JNSZL1efJAdBaHXODd1/JEwfz7ekeF8E5eS6 +1h6LVZ9NuznTsuccXBBMdXbLJaPEOOvGDx9PYP70mjNYJuPG5HaCrrELlIne +3PTx0KofvPbyMeqyg3XqtbcE0ik4IvCh4qqdNXy+LsJr9pOCsuacxF/1hyFV +qZFhtIeK0G8clZJqAlUq1spxKVTcLCEV46RsAEXn94+Fz1KxMTahRPDvbjhX +tb1dEGhoxBbP0W2DULfleHl1Ag3n+xQ5NplowofVWBL+TEOVjtfmOTe3gJO4 +enel1iovtUYje5SVQbjS4a1LPB2FCPwPr0kxwWHW+rD8p9U+Le8ovj5BBtFr +BvXKGgycGfpPmZYjBTmnw19MRTOwWnfDhvfHRYDrYJuw1hAD0/0ESvWLCfDZ +XtMmS+X/fPB47OjihayGpSOtV5l4MnyCjfs3B3QUvFW+P8DEiCcjlzblreic +utJB3/OGgAVT2/1Dw1nQe8GqbjmIiA6vzz88w8eCHFMxK/JXJjpztvJX3VnW +EWZUetr8YeIekd5TZplLOvKMLx5cawl48kEs9f0IC5QvGwzr5BCw+OdI1qd0 +FkyGGqtvMydiydbsa+Vqqz7SxS46ukDEdydy1p4In4ZMkXMmo0mC+JD97fLR +0Cl4RAzzStMTwlCGh+y7pQkouR1ZaH1ZHM/bvZSsK+2CJne5V8MyElh29svE +Z/YOkM78Xm/3XAJTm9PfKM02Q3V7iaOXryTeG5uCN8/qgRZjavFYTArP7HKo +5yiuAuRM2tjSKoXX9n/cddSlDJSkGvS5nKXxr9YOsFkqBJskCuOAqAzq1Sgu +rZjmQD/b2RaJZhn8s8hQ+AAZIMmXm0uzl8XddlQ+f4E7QGj3954hyGGdqxHH +UEci5DSxtbmXy+H4F8Vja3bEQfqJDM20jSQ8n/ef3gXPSNhXKRj85QoJXX0a +eRUjg+Gwtc+ZrhckTL2Xm/Y4IAAi1Rcbt8iT0SmVGf3J1Besub/NDPuTsWFh +/EPPjBckMwcbN3aTMaHyUkw+pwcUZgiH9NIo6BqbmPXPxxHiarP5+89T0Mne +r2m+1gYWzURbgtso+Cr+08BZFSvQ2PvGPU6Kin8XParrxMzhQ2RUtZYHFUUj +LhcfPnoITjBif+m1UJGjSbCh7c9eKLad+PNAmIah+/fvGsnThasyFKVKBxq+ +0d337aXiTlDdUniI+njVb7TbLt22Ul/dx/Jiyvyr/FIN7ge4bYbLKi1YY09H +wVMfOj1vK4BFw6t9UTV07Jc8Ri9zp8HNu/1zi7yrefjoqzdrRA6K+zbeeGrD +wDL83SvvJA7JBa/mZx8yUOMH81AAmxBwcliHNa1hYpTtRRnZagEweKTO+/MI +EyU6CEd+POMC1bwFwTe5THxBtlJSbFkDIlfXxXhYrPpL0hLPcAsLBmo3ostf +AsbmPknj8mKBWHTV9K1sIo5KcOtu+DINxzOLJAr2CGJgrKHtb8Fp8O0aSDo9 +I4g5dzwt7HsmIR3vphaLSCN3mN3GuiOlsEcrYOlRgzTm6JiOS3rlgVMoQ8HG +QwYfC+9ptkq7D3aV/6RcBWWx5rRXvHvcPbDJnNXdXiuLXcVH5WMqbsEQ3dBW +027VN+rypDlOJIDyIm/Q9TUkPPqfWvNQQwxYfeH2GzQn4SeOWt1j+8Ngd2a9 +B+SS8Gv+KIWlFwSlWit/wpZJmPhtzVZSwUV4u5TxnWRGxg8iqUqPvM7BV5UP +zyazyZhVd3JCrsITInZla9/8TUb1AtXbLiEuMCxLK7AypGB4bHHM/A87qJZ7 +MxifSsEK2gZz9bvWEJBPU8v4RkGrj38Kzs4eBrY1CqGdelS8GnndP+uJCXBu +q/Xuv0XFV81cYnyuBvB0K/vx5Wkq9mnrv7Fk6sN6ywCuRG0aFvcMhdGDEHDt +zQGOOBq+93z11SNcE5QD7HOufaSt+n3HVHfdFkjvq1v/ZzsdXZ8FzT30VIYe +M7/h6lg6MpobamoOMmFKvzs+Z5SOZeMioxL8FAgXKf7gs42Byx45TrmjUvCx +VJ9pG8nAv6srsyNcBFo8iZvr3zKw/1fbhFwPAWKrfe2+KzExLMZN0o6TD8S6 +bl6HQCa27J32GyRxAmvBy/XVayZ+U3RgnJ9Z0bl6p/b6q5cEXC7c0RYWxYJA +Hs74z5eJ+CtI/dvmDSzoTC1JNGExccx2/LrHu2UdDS+j/LhfTCxIVLnxfnhJ +59ugzDbVv6t+ffUbzcRxSWcfx+yOYHYCRuzNGX40ygLNqN2JofcJqDf1b+2W +TBY8Mcwm5ZsQMcm1YuTpVhak+Iy32c0RcY3j1tmMqGn49HXfF6XEVT6lPPOj +o6agObtSW2KXEFpvdTzsxz4JI6WN5m/9xDHqY1mh87MuGCrfa0uXkkDD8d4Y +R4kOqPrvAbHimQRWxn3uUGBrAVJB0+z3c5LI4or1+vKpHs6nH25dKyKFjjuU +85+2VcGJ3vmuHc1SGDRr7PjWrwy2SBJe7HOQxmdeET1xEkUw4cPuc1tIBn2o +noq8bjmgcKd4361GGdQ8vyMgyTgDLF+/FvKwkUXTvtYygsIdkDzILWS/Xg4F +p/fPnHmfCKry4oqzpXK4dXfQfPeBOLBSyDmpL09C4Q1pas5RkTBxoq0lK4CE +YzPqz4PuBoO7LCXLs4eE8SUSnoFpAXBiwu3wEIOME/p6yWHuviCeREhLu0zG +gR6FkMv/vKCj+6d993My7q4UysyieEAzfUg3lkrBNnG1Ua8YR3BW2aqcfI6C +66yeKVr9ZwO7R1PfKLRS8JmBEq+RgRW4PeS/YyRJxdmMlYUiRXMI5a8ZfO9G +RYkz0V7Clw7BdKjb1pUmKnbWjpwbFtwHyw+jU1yEaCgmG+W8u04Xdoc1NByz +pyG/w3lOdoOdMHBhYXm4hoZPTv2GL2fUwXbBvaqHj46bTncdMfffDFYBXXq2 +dnSs/CrfUlShAOJT0U77q+mYsHGX2fQVGnSPhK9N5VnNxyrTx4lrSPB8PqIh +6CQDU+QPyaQFiINP/e/g0lIGEgX2nVAUEgLLTZe5XdiYSGmcs3zxRgBCHnNk +lx5e5Z3kF5k2wgXN3bqqng+YuPvXnMWX/jWgflLw2KQpAaffJyW8bWXBWAdl +vvgPAe+fSviv2psFs6b8/fz3iTiw30ircnIaHhnEPVPaLYimn092LYpOQ/WD +IqXaKUHU8FEdjHw9CfXrl3cxhaSxLaLg/XHnUjDUfBH667E0ejXbJdVF58Gs +I9fFElcZ1M0gbywuvw+VxjsyPm+QxRvEyDdyxffg3inp4oAqWdSSvPElu/sW +fM7vX1NyUg6Fq7dla51JgHMFIo+M2Uio8qzh1thgDAiX86cFmpHQ5ftC7x+b +MPh04EzRcg4J711mNHBZBEHbUp7yxiUS/it8w3refhGKi4RXhYKM4w89tY3C +z0F+w8rFvCwymiUmXHDo84TqiYYRzUUy3rDMKsi+5wILmdOuogcp2Ehae2B8 +rT1cT3RcNrtLwdN6FaFaNdbQub1wz76vFOw4nZQzwHUE1NxPPorQpaJH9eUY +vV4TKKiaSPRLoiJfnui26DADMEv8kFw5RcUbQUudd7T14VguOcd8Bw1rCko2 +u8YjsJ/e7J4XS8OPX8+7V2dqQn9LkdmBMRq+qJkMC3yxBerV2EruqNMxcdfU +zbtxylCYGTxmc42OvosiLB9HJhR7hZU4jtDxUnqL/W8ZCjw5evKr5FYGcvGd +uZTyTwrYe7NMpSMY2FaekH0iVQQyg7Y3BgwwUMzbErOHCTA2lvTxliITn/hG +JZFJfGDcZ6f4N4CJ6hkSc6NbOSFAuiHMvW+1f9lvT7/c8E/nWl75bskeAoqI +CJWxx7Dg8AvLS8cuEjGQNXw7msiC4y1LDyenVnmMLfK6vLSs05mU0i6/wETC +k78Lr1eWdK6yuZl2LDGRcSDdpil4SedExUux5BUm8j89epN975LO/wAU6AOG + + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1VO0HGkUgNHYtpMb27bNGzu5sW3bts1BbNu2bWcy5u41D7vqfKfrpetf +qzsopFtw19ChQoX65hK4r3Cpzl/m72hKHs7Z9Sc9N/Q4wrBS1+Bv8/c045Ne +TGV+13k5bx5ABm7q8YRlla7JP+YfaM5nvYQq/KHzccE8kIzc0hMIx2pdi3/N +P9KC/Fy0G0QmbuuJhGeNDg58UTa5taQAl/RgMnNHTyICa3XtwLthsw6hIBGJ +RGSiEJVoRCcG6zxfhzBs0a0oREzW29UlLFt1awoTiw129QjHNt2GIsRmo119 +wrNdt6UocQJnZdeACOzQ7ShG3MC52DUkIjt1e4pzWQ8hC3f1ZOIFzkE3IhK7 +dAdKcEUPJSv39BTiB967bkxkduuOlOSqHkY27uupJGCTbkIU9uhOlOKaHk52 +HuhpJGSzbkpU9urOlOa6HkEOHurpJGKLbkY09ukulOGGHklOHukZJGarbk50 +9uuulOWmHkUuHuuZJGGbbkEMDuhulOOWHk1unuhZJGW7bklMDurulOe2HkMe +nurZJGOHDiEWh3QPKnBHjyUvz/QckrNTtyI2h3VPKnJXjyMfz/VcUrBLtyYO +R3QvKnFPjyc/L/Q8UrJbtyEuR3VvKnNfT6AAL/V8UrFHtyUex3QfqvBAT6Qg +r/QCgtir2xGf47ovVXmoJ1GI13ohqdmn25OAE7of1XikJ1OYN3oRadivO5CQ +k7o/1Xmsp1CEt3oxaTmgO5KIU3oANXiip1KUd3oJ6TioO5GY03ogNXmqp1GM +93op6TmkO5OEM3oQtXimp1OcD3oZGTisu5CUs3owwTzXMyjBR72cjBzRgR/1 +ZJzTQ6jNCz2TknzSK8jEUd2N5JzXQ6nDSz2LUnzWK8nMMd2dFFzQw6jLKz2b +0nzRq8jCcd2DlFzUw6nHaz2HMnzVq8nKCd2TVFzSI6jPGz2Xsvyk15CNk7oX +QVzWI2nAWz2PcnzTa8nOKd2b1FzRo2jIOz2f8vys15GD07oPabiqR9OI93oB +FfhFrycnZ3Rf0nJNj6ExH/RCKvKr3kAuzup+pOO6HksTPupFVOI3vZEv5qVU +5U/91X0Z1QLvhOWh//8vz+2z/wD6/vfg + "], 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]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 0.9026545741090067}}, + "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:eJwVV3c8FW4XF7Ki7rW3u68QUgnJOZGWSEZJKXuXqEhFZI+EJCkZIZuSmZGV +8QslISmjlHFpIUV6vX89fzzn+Y5zzud8zkO29TBxYGdjY5tbw8b2/9NlZI6P +jY2AvrvcB6LGWLCPY3ZHEDsBw/dmDz8ZZYE844s711oCnnoYQ30/woLPbm+7 ++PkI+HE+xUhxmAX2v2rjJYQJqPRxa0HtOxZYrw+T3CJPwGXGM+3yXhYc0ZZQ +cDQmYA9YPu5pYYH6KcHjkyYEnH6fGP+2mQUi19ZFu5sTcFPiEs9wEwt6W//O +eFkScODO4fTxBhaYmI49umpPQHsZ6Q8jtSwwdM3XvHORgJK+j05FlrFgd9LO +/S/SCLilwaDP/wELNCN3J4Q8IKDe1L+1WzJYoHzFYFgnm4BFP0cyP6WxQML6 +2IVH+QS8+e/VerzPglnmhfTE8lV+6tWcviQWJFUU/LZ+QUB+haaQy9dZcD23 +dLdkNwFFRIQes0ez4Nrd6huvX636K9jREhrJgtNX2+h7+gmYP7XdLySMBbp7 +Px1WHCNgzpsqnROBLJjpk8qb/0XAO4RRY6fzLBhro8wX/SHgg9Px/1V6sWCg +eiM6/yVgTM6zVC5PFjTe3943yE7Esw87VG+fXtXjaMr+TICIn0pS/0Q6ruIv +RFpGUon4cOqecdlRFiSK/OGTO0RETVRf16fOgmeGWaS8w0RMdCkbeb6VBZMh +xurbzIhYvDXreqkaC7QXsm0MjhExkDZnHKC8qqfPtNLHjojl7U2ln+ks2JRU +6PDSh4h3pbhzR4RW6/fS4vLxS0QMYA3fiSKyIICHM+7zFSL+ClT/tnkDC3ou +WtYsBxLR/s2FR2f5WHDxGLfQxmgi6ikQm8vYWNAsafMsMI2ISZ5iihasaZg1 +4e/jf0DEgf1GWuWT0yAWVTF9O4uIoxLcuhu+TIPrkoBYUR4Rr5zJIj0enYYN +Q9WnB58QsS6uw666bxosU4SltrSv3pvdceiun4bvcm0XPn0n4ngja8/I9WlI +9h5vsZ0j4hqHrbPpkdOg28kuOrpAxHcns9eeDJuGhEs7y98vEfF3SNnZloBp +0HjzeKFvrSD6rU3ONz43Df6RKT7tEoIYIXn4ktnRaVg37+VbtEsQr5GfyPyQ +nIYnBrHtSrsF0eTzqc5F0Wk4kVEokb9HEANiDG1+C05D0aGJqocGgkj/08+c +4JsGkzyrP2nmgrhrO+Xl5T9TkHRq3+WbLoIYVBb27OLAFNA7ZPwuxgli8Lhb +c9mNKfj0dd8XpYRVPCmPvKjIKcgQOX94NFEQH7G/XT4WMgUkmw76gXuCuH5/ +5ofhS1MguejdJfVQEEMij9vEOkwBgfFSrr5GEMUme7mDNKfgT+C1xrUTgrjj +6faynHeTUPmwUKl6ShA1vFUHI95Mgk/nQOKZGUHMvuthbtc9CXPiKm79PwSx +Sl7C5F/jJHwtfieU+1cQeQYeBrzLnYRP77c6HBQSQp3D5p/o3pPQrfmF+6aO +EMpuTpMj8k5CY1a5tsQuIbTa6nDEl30SnhBDPVP1hDCE4S77bmkCkidp7/L3 +CeFopOWZqNkJcLxjW9RsIoSWHgqOqa8nYHnxvdmCoxD2noOS2/cmYGNlb/qx +G0LI+3rn2KeNExCk3riDNCKEHblHrFfUvkDRIuHnlhvCqEf6/lv57Sd4ZPll +j+gOEfRaGxn6/vAY1O3v1nN7J4I7P7+e13w1DLtWFJr3RIjinUXPHYMNg9AF +STMJimLIJfnzo71dH2wlXy991CGGSY9E2iSu9wChbX7ZzEcclQ+2nKSOdcJI +Sb3ZW19xjPz4uMCpvROK70QUWF0Rxwu2ryRrSjrByE3mhGOgOBZubzx462on +XF+v/9QnShwP+/FU8sh2Ap95gm9yqjiWZSLbd6sXwDGmtjDcKo5D4aKixZMd +sLDk8dVVXALjm8gj8yptMFS614YuJYGG4z3RDhJt0OAm93pYRgIfn/sy8Zm9 +DaLfdZWbUSVwJ69fvGxfK1CebvLXUZZAvabHw9Z+rWB4aZpfcLcEXtC/OarQ +/RwyFx0VqjwkcOi2kdf9qy1gMm/lwN0qgdsm6e3bBZug4r+HxLJ2CSyP/dym +wNYE0hnfa21fSGBKY1q/0mwjjBuFiNa9kkCbbX3/rDoa4WJOQev5IQl8bWIa +dS6oEVKPL20c+y6Bz7Ymc9ovNgCrIWm2RloSZzbszJSZeQZhMa99vLwkUTi2 +l3M9Wx2Q8htmv5+XRBZXjOeXT7VQ2Vrs4OkjiffHpqC/vRam2KJNz16RxHcD +W9p+36wFo3O7Vc6ESuLkt675fRtrQdSi7LNLsiQGTkcgh0UNZJNvm9s0SiJq +Z/YGtVTD8yeWW4wFpRB4L7anvq+AC2lHmteKSKHDDuW85y0VQIs2MX8qJoVn +d9nXchRVQKDdAR+GjBRmgYz6M/8K0BbUerrMlEJH7c7rSK6AUg8JvdydUrg+ +2LL3kGs5pCkMmLC7SOFo0x5ZNf4yuJxm7vWkXgqliNOGLlGP4WTPfOeORikM +nDV2eOv7GJAzcWNTsxRe3/9x1zHnx8Dl3Dfyql0KnbqSxMP1H0O8ytFDX19L +YYsr30ga22PIq7NQUpiQQoY8Yd0T30cwOHT8cypBGvd2Held51MCteuXdzGF +pLElPP/9CacSSMN7KUUi0sgdarux5mgJOGYOmdVKSuM+B+djWRol8MPNqmmQ +Jo2qNR+Kdi0UA9/SyTQRTWncaizlb7+2GLQkbC2jbKQxZEI/Znh7IWyRJLzc +Zy+N7Z7h3bEShaAkVafP5SSNf7V2gPVSAcjISG4OdJfG8jIb7WP1BcBG7uH2 +8ZFG26O/H5fsK4BWed0y2+vSKFj78M9763ww06AQtKqkMebn3Cbf7Fww1HwZ +8uupNHo22ibWROXCHi3/pSd10pitYzIu6ZkLGtqDn1WapfFia1kPUzsXpDC+ +lt4tjTuuFm4JeJ0DY3vZ3Yjj0nj1q/h1Ee4c8Dg61jJBkEEDuqmLQmA2THiz +e98RkkFvqocir2s2WCdSGAdEZVCvSnFpxSQbjN/YhuZLyeANz7zTKvRsUDX9 +uOcMQwbPhTjvT+/Igh9Gn1p/7pDB/ZX6zuUSWeC953P7iqMMfjV0XC/a9gBm +HbguFbvIoG46eWNR6QNwDGEoWLvL4FPhPY2WqQ/gaLNjZIOnDI5oyFO+ez8A +Dd0vB4KvyOCxwlNXCMwH8GfnxH+88TL4/NX6rzxRGeC3bapTuFYG12Z3ZJ+0 +SQeFu0X7btfLoOaFHf6JxunQx3auSaJRBv8sMhQ+QDoov1iqlG2VQdH8nOf3 +ZNNhxFYgU/6VDCavdwl7M5QGerGql7THV/kf68zLn0gD3mlvhr2ALMYbnbf/ +9t99KDfekf55gyzeJEb0yxXdB9vyf1IugrJYdcYzzi32PlQHhhPPiMliojT5 +3FHz++AunrzsQ5bFl0QTmv9ICnTr1/ZEbZPFh7Mi274v3YNbaRxXS61k0fFz +0L+GPXfB4s0bIXdrWTTpbX5MULgLknw5OTQ7WdxtS+XzE7gL988d7LnlLIvq +mqdVinqTIXvPLfrFc7L4tegy2cM+GSpZjBfaEbKo0jNpbxJxB4Y0Dkg8fyKL +DrsOd739chvun5Yu8q+QRS3Jm1+yum6Ddcas7vZqWewsOiYfXXYbxtfddM+p +l8UfdtcqsoNuw+yHd/WRHbLI82tBjUi+DWwhpx0Pjcji2OhZapZ1IlBfxZYO +rJPDvSGj3yR+JIDkQW4hu/VyKDi9f+bs+wQgtPp5zRDksMbFiGOoLQGWa1w3 +s4vK4ZCOpupsagL05ewuViTJ4Uf+B35shxIgImAxz3+rHN5yH0h5UXITvqpY +Z9Cs5HBx/QpX8LV4+JzXt6b4lBwKV27L0jobD0N0QxtN29X3NbnSHCfjoU1K +i2TkJIdLL6xN2zXjIYNb+L6PpxyKZorxbPwRB+bDrXc6QuTQBh6yMR3j4GmM +StzZIjlkjHe05VvGgqq8uOJsiRxu3R0433UgFrIb2FrcSuVw/Ivi8TU7YiF+ +7tWiY6UcypntSropFQvOluetrRrlkDI1lDRQfQNEGVUqB/rkMNcytaa5NQa8 +anW7qCty+FMt/wrHr2g4ny/yxJiNhCrtdbfHBqNBeZE38MYaEh77T61xqC4a +MuN+SApwktD6neowOSwaYpubjHh4SXhXY9d5lng0OCk4lq8IknBHsJvi6V1R +ILKQFzLNIKGvso+LV1YEWCpkn9KXJ6HwhlQ1p8gISDuZrpm6kYQXcv/Tu+gR +AUqtt2dMlEho6b2mY1YzYvU/EGxevZmEGyM6dRRehoOX1kl6hDYJi5NuzDas +CYcuf2ILw4SEHnMlOqUXQ0G4lD81wJSEzt8Xev5Yh4LlF27fQTMSfuKo1j2+ +PxTGD60oxRwlYXok08hRMhSWSdMJ8ydI+NLiwMGM2hBQbGq2b3YiYc4g+8Jd +nhAI577IaetHwoCunQnTxUEwcbKlKdOfhGMz6i8C7wXBvnLBoC9XSejiXc+r +GBEEPA6Fa05fI6HU8C+DctsgCGscW/EJI2FohPRsoWgQhPoZ/r4eR0JW0swk +8do1CP5Jma3KIqFiWpaammMgfDpwtnA5m4T3rzDquMwDYXdGrTvkkPBr3iiF +pRcInIctppvzSKgzX6o+SQ6EoKLrE93FJEw88bEh70MAXHNZHBuvIiGfuKXL +zuMBEDDc2U/sImHhtuW9zs/8wU2WkunRTcK4YgmPgFR/OGLlfbbzJQlT7uek +PvX3B8V3srwRr0noqREckbzTH/r6PLTY3pIw7KTd1YUaP9jURUyZ/UjCcCVX +Z+7GKzBYY277328S7j9hbpH06RK0LOUqb1wi4b+CftaL1ktQorXyJ3SZhAnf +1mwl5V+CkMrsm7r/SJg2nmdB8boEqk9+NVdxknGBtsknbs0lCMu/w8zZQMZy +4Xtm/+i+sDX5PSuYTsanPtKxusE+cHLC9cgQg4wT+npJoW4+EKG+WL9FnoyO +KcyoTyY+8KFH8OaYAhmLvXxaZsg+EL5unyaqkvFr6ok0tQZvGLryOGRJi4zu +Grcnz3B6Q/CpMFkvYzL2F/Pw/7t3HooKhcPbD5Nx/JGHtlHYeXi7lP6dZErG +DyIpSk88z4NyUk1zt/lqfOqtmaY952Hg5XfXTcfJuLP7iPW37+dASfdExYQD +GZWsgzqcD56DXtpm41OXyVhjPxiuRfQC8URCauoVMg50KwRf+ecJVtzfZob9 +yFi3MP6he8YTPk8WRVkHkLG3lcsjr8MTFouUWm1CyBjt5EjbFOIJMpryOvY3 +yHizpMvN8u9ZcDSUU3J5QMbtk2s7Wn96rO4XK5dyM8lomhB/0b7XY3U+fWif +zCJjZs2pCbkyD7gomOLkmkNGiXHWzR/eHhDVL/nArZCMRT2+gxzLZ6DERlTy +TAUZqyx4AmrWnYHfFwR4zv1HxgvaMRV16A5tXT/tul6QcXe5UEYmxR2SmIP1 +G7vIGF9+OTqP0x22v832GXlJRtqWB29F2t3ggjZ+Mewjo+/Qu1xHUzf4zn7u +ufzoKt7ZEY3e064weWMg+MPCaj2fX2xeqXSGyom6Ec3FVX8WmflZ950hfFeW +9q3fZFTPV73jHOwMzJ+ecwbLZNyY1ErQNXYGhyPr7KvWUHBCCLRw0glGpXX0 +EvgpaGQRJGNMcoK3uQ/WHKBQcGtZfeDvdAdopA/pxlAp2CKuNuoZ7QAF6cLB +PTQKusQkZP7zdoCAOyFcx5kUfDYaxn78oAMwIpzWuStRkIeh371+0R68nBVF +YtQpCE0Ya2FqD/zMUvmeAxT0a/BkfRG3g4WMaRfRgxSsJ609ML7WDoZlafmW +hhQMiymKnv9hC49Fb236eIiCM288vY06bcGCy0dtzoyCxpfZe4ev2ULWuJa2 +6CkK3nGXLDv73QZ0MhsPWZ6joJQMI63rnTU4qWxVTjpPwXWW7YqW/1lDbHUW +f98FCjra+TbMV1vDx5er7XuRghKlJS9OJFtD+F8jvf1+FLyy8+6jiWPW0HPk +nbpG2Cq/n1Bdb8UpcOSdkxG9S8GsZ+9kjvdZwY0Eh2XTexQ8o1cWolVlBZVy +/YNxKRQso20wU79nBevUq28LpFFwROBD2TVbKyixDSCuzVrV1/Mjxu3bCfjz +lH/tXBEFcz4UzDsQT8CNM3TWq0YKHh0MeKXvZAm7R1P6FZop2G6gxGtkYAmL +pqJNQS0UfB33aeCciiVYa3Inb2ujIPltSpPY4jFQ5Zzce6eTgvRAA7vayGPQ +c6fggfUABS9sMJZ1KLMAkZYtx7/OUPDF5OmYo3JHoWN7wZ59XynYdiYxe4Dr +KPjn0dTSv1HQ8uOf/HOzR+DzDRFe058UlDXjJP6qPQLllr/KyxcpeMJE66Dq +ySNg8a1a0J+DioW9GnTzB+ZwV0q3g1+CiunGV5Yfgxm4PuK/ayRJxdn0lYVC +RTPQ2NvvFitFxb+L7pU1YmbQ6+UuICxLxcEhSV2Rb6awviPRWIpKxZjd+qYl +6aYQcHG6b+MmKnp/WF/vx2MK9m8SPu7ZRcX7X6ZF5j4eBjW3U0/CdanoXnkl +Wq/nMLCtUQjp0KPitYgbfpnPDkOKUj3DaA8Voc84MjnlMPQFTbqYG1AxXi/a +w9ziMOxT0/lmZ07FxQW2vF8vjUHpxpflABcqJiekXV24dwhC+KsG37tSUeJs +lKfw5UPwISKyUsudiqLhV4qOHDsEccGbzs+doeKSreGZvaKHYMH33LTTeSoq +LJW+fBNnBPX2/94aXaXiPdGrK8E3DMFES6xC+hYVVYX+IyhlGkB+xUSCbyIV ++XJFt0WFGgDntmqvvttUfN3IJcbnYgAVKlbKsclU3CwhFe2obADS9AdZHGlU +jF4/GZ1YfQDGN6gkTOVRsbXsMatsYD9cHN/jWfmMiqUyfjZExX0wHeK6daWB +ih3VI+eHBffBSUbML70mKnI0CNa1/NkL+k5v/LpbqKirqxg32LEXBCftIj93 +rOop9kymuO+FAlbAA+E3VNSrto8QK90DIz+r35ydXPWTJSA1d1gfTBM+JJVP +UfFm4FLHXW19eL6V/cTyNBV7tfX7LZj6UHhh/1jYLBXrY+KLBf/uhku/+mfv +/6TimWT99UG5u0F4aY678y8V/7E76+7m2g372VW0NgrSMOPV5fzqLl1YfhSV +7CxEQzHZSKfdNbpQZDPx56EwDUP27981kqsLwg3pTxliNEymfOAyCtGFkavC +O2nSNFQ+snfmn7YuXPz7G+QYtNX/iPtCYfEuyFls1hfRoqGUq+ZYTTrC8Rxy +ttkOGlblF292iUNYb+HPlaBNw6LuoVB6IML5iu2tgkBDI7Y4ji5rBPTO20fY +TcPPR1Tjh0gIAz9vGKwzoiHv9Ix8y14A7q+Wh9fY0nCZTj9j6roTdofW1R23 +oyG//QVOdoOdcE2GolRuT8N+3X3fXinuhBWDSS43JxqOX2jRejOjDQs5PjW9 +7jTc1XO1yeGcNny2TWDm+NCw9mSQdWzwDmju6/xrdJ2GRPk/QuQ6TWA/s9kt +N4aGH79ecKvM0ARce2uAI5aG7z1ef3UP04SaLSdKK+NpON+ryLHpsCaUxk45 +U5JoeCDT4NfazxqQcYC7dz6DhrZw/jabiAYE1GHevUoaXrg/qGcQpg4DFxeW +h6to+Oz0b/hyVh1UtxQcoj5djdduuXzHUh1GHorN59bSkJohYonK6oBxs1DR +SMM2850Hb/VtAzb7e29evaBhp3McZb/iNrjKu8jGPUpDf/NLbfqftkBfU6Hp +gTEavqyaDA14uQWU/e2yr3+kre5jbVNdNVvgw48uA+HPNFRpe2OWfWsL6Axl +JZKnaXgpJSJh574tsFJkqqQ9T8NzWwOE/paogb9Z8VFPXjoajo+76MRuBpsF +t4puPjpuOtN51Mxv8+p+LC+mzE9HWarBA3/XzcA3lN43tZ6OcnxeSxv0N8Mt +uwRze2E6nj/tYUxdUoUCL1/To3J0TFnWePvbVRUGY/UO7dxGxzrQ6s57pAy1 +amzFd9XpmLBr6ta9WGVI661Z/2c7HV3aA+ceeSiDo7h6V7kWHX9UG43sUVaG +76nyhqpIx8zxQgORwk3AUyxgQDWgY1f7q2fUR0qwvbN/D68NHZ/XfSrn7VEA +S/9OPRtbOpZ/lW8qLFOAKypNWGVHR8HTHzo87ihAY1yRlovjKn7ssqGhjQIc +PBKi3O5GRyuz6VLXHxvBelhNNMKbjto7Kr4LSW6EyO/Xx3mi6TiWR7A18mdC +QUbQmPV1OvosirC8HZjQbeo7XBlDR0ZjXVXVQSYIl9u/dY6joxCB/9F1KSbc +v7Sjsy2Rjk57vQTcqxlQyjH5JDydjpffT3ZMLdNhSGR3ME8FHV2DnodpJNBA +fCrKcX8lHeM37jKdvkoD87rX+yKr6NgneZz+2I0GXY52Avw1dNS8HBBzWY8G +DRXXEjc0rNYn0cJ46ScVso815Ij+R8eJOvPiFAsqeKbodNKG6XjzkM2dKRUK +FHmGFjuMrPKnNdn9lqHAlH5XXPYoHR+Pi4xK8FPAftbqiPynVbzStqIbE2Q4 +An7DipN0rN4y9OhgBhm0R59+V/tJRzvmD5e/4mTgomuK7uJmYGRFWWqLIAm6 +RsLWpvAw8HGFydOENSS4da9vbpGXgdeefPVijcgBTfj86xJ+BnYfSpYZuScH +uhzFsSRBBvbYPFn0FZWDq6O0dWwyDBzJGNM4QpCFxRQCW70aAykm+lUFMtLw +7Nipr5JbGcjFd/Zy8j8pCBMp+uC9jYHL7tmOOaNSIHrdoFZZg4EzQ/8p07Kl +YNuV0Ev3dzLQeZvQi9uqUuBluTznt4+BqZLTo4cNJGFadGJS+yQDdW9Wzmy6 +LQ4v5sPrAk8xMFn+kEyqvzgU9W68+dx61Q/+7pF3FAeveDdtY7tVP0JFZ0K2 +icOiwNcYO2cGSl5drLd+IwZcaxe2RHoxMLNg8l2khBiQfnL494cy0GzhtAVf +qQiw92SaSIczsKU0Putkigh8LNFn2kQw8O9ql7SFiUD2mbCXU1EMrNTdsOH9 +CRHYNMVHXYll4I18vX9reURAa5TYRrvLQJMXIw76tsJg3i0n6FXMwOB67bYp +uhB41/4OKilhIFFg30lFISFIyn89P/uIgRo/mIf82YRgMCzsrdsTBi6dvv3b +8p0gWOPXNIcqBtYXOfnPxAmu7h91KseaGHhSXXHKiV0QAm5aGWI/A+kjsb1a +3wiQEbi93n+AgWJeFpg1TIAmD+Lm2rcM7PvVMiHXTQCugy3CWkMMTPMVKNEv +IkAU56ahLaOr+sP5Tx0+TYDEC8uuzGkGCvH8NKwY2gAFR++Gr//HQLUxOdvM +XwJgsekKtzMbEyn1cxYv+wWAk8MqtGENEyNtLsnIVgqAVZFs8HlOJm6apAfI ++grA+rUZVwd5mTjhtqmtaJkfzj7O8c4WZuK6d3b1s7z8sE2g3F5HgYm3LC7n +rezgg7GxxI+3FZn4zCcykUzig5hKH9vvSkwMjXaVtOXkg892mtaZKkzcMcXj +vqOTF5Kqa47zbWPi5f7VwWrNC3+cmkz6gIk6Ak+ftUXxQF3jSzxjzsTCYsOD +dr+4IPgpR1bJESY2kXwjUke4wOCJOu/Po0yUaCMc/dHOBQNZ9175WDJRiZ9x +4N09Lvge7mwbeIqJRE4GtVKPC2iH2IITXJhoGT8fGHlrLUS+U2mt9mPiUoH1 +ib/7OMG411bxrz8T1dMl5ka3coJY560bELDKt3fad5DECZl1S0ebrzHxVNgE +G/dvDqhNb53oDGNi3MjffoM8DvjmdIpvNG4Vf+xU6zkCB5jPxRhyZzOxtq/A +vWpqDTR26ap6PGTi7l9z5l/61oBq7oJgfw4TX5ItlRSb1gD/yZMD2fn/z08c +zN1dA82tm+z2PGLibV/FUxFGa0Dt7ouLITVMvM8h+Savgg0IunyZHK+ZyLPf +8oOZ2j8df+m6ULfe1Xyw35l+teGfDmvB0+X1GyZ+U7RnXJhZ0WnLf6v8YICJ +4c9GLm/KXdG5KpJbpfuBibkkRyEbyorO7MTe7sBJJhaoN/wolvqrc6Jp6dHk +1Gq/xBR6Xlla1ulIKU44zGLimM34Dfd3yzrZJmKW5K9MdOJs5q+4u6xjVfP5 +07M5Ju7Vutn0TWY1PjG5VX6BiYRnfxferCzpaHga5cX+YmJ+gsrN98NLOsKM +cg/rP0zcI9Jz2jRjSecam6tJ2xITGQfSrBuClnS+DcpsU/27qufaN9phhyWd +k2WvxJJWmMj//Ngt9r1LOi9uhPz594+JHVfuRb+RX9L5H4UhA4Y= + "]]}, "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.9026545741090067}}, + "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:eJwVV3c8FW4XF7Ki7rW3u68QUgnJOZGWSEZJKXuXqEhFZI+EJCkZIZuSmZGV +8QslISmjlHFpIUV6vX89fzzn+Y5zzud8zkO29TBxYGdjY5tbw8b2/9NlZI6P +jY2AvrvcB6LGWLCPY3ZHEDsBw/dmDz8ZZYE844s711oCnnoYQ30/woLPbm+7 ++PkI+HE+xUhxmAX2v2rjJYQJqPRxa0HtOxZYrw+T3CJPwGXGM+3yXhYc0ZZQ +cDQmYA9YPu5pYYH6KcHjkyYEnH6fGP+2mQUi19ZFu5sTcFPiEs9wEwt6W//O +eFkScODO4fTxBhaYmI49umpPQHsZ6Q8jtSwwdM3XvHORgJK+j05FlrFgd9LO +/S/SCLilwaDP/wELNCN3J4Q8IKDe1L+1WzJYoHzFYFgnm4BFP0cyP6WxQML6 +2IVH+QS8+e/VerzPglnmhfTE8lV+6tWcviQWJFUU/LZ+QUB+haaQy9dZcD23 +dLdkNwFFRIQes0ez4Nrd6huvX636K9jREhrJgtNX2+h7+gmYP7XdLySMBbp7 +Px1WHCNgzpsqnROBLJjpk8qb/0XAO4RRY6fzLBhro8wX/SHgg9Px/1V6sWCg +eiM6/yVgTM6zVC5PFjTe3943yE7Esw87VG+fXtXjaMr+TICIn0pS/0Q6ruIv +RFpGUon4cOqecdlRFiSK/OGTO0RETVRf16fOgmeGWaS8w0RMdCkbeb6VBZMh +xurbzIhYvDXreqkaC7QXsm0MjhExkDZnHKC8qqfPtNLHjojl7U2ln+ks2JRU +6PDSh4h3pbhzR4RW6/fS4vLxS0QMYA3fiSKyIICHM+7zFSL+ClT/tnkDC3ou +WtYsBxLR/s2FR2f5WHDxGLfQxmgi6ikQm8vYWNAsafMsMI2ISZ5iihasaZg1 +4e/jf0DEgf1GWuWT0yAWVTF9O4uIoxLcuhu+TIPrkoBYUR4Rr5zJIj0enYYN +Q9WnB58QsS6uw666bxosU4SltrSv3pvdceiun4bvcm0XPn0n4ngja8/I9WlI +9h5vsZ0j4hqHrbPpkdOg28kuOrpAxHcns9eeDJuGhEs7y98vEfF3SNnZloBp +0HjzeKFvrSD6rU3ONz43Df6RKT7tEoIYIXn4ktnRaVg37+VbtEsQr5GfyPyQ +nIYnBrHtSrsF0eTzqc5F0Wk4kVEokb9HEANiDG1+C05D0aGJqocGgkj/08+c +4JsGkzyrP2nmgrhrO+Xl5T9TkHRq3+WbLoIYVBb27OLAFNA7ZPwuxgli8Lhb +c9mNKfj0dd8XpYRVPCmPvKjIKcgQOX94NFEQH7G/XT4WMgUkmw76gXuCuH5/ +5ofhS1MguejdJfVQEEMij9vEOkwBgfFSrr5GEMUme7mDNKfgT+C1xrUTgrjj +6faynHeTUPmwUKl6ShA1vFUHI95Mgk/nQOKZGUHMvuthbtc9CXPiKm79PwSx +Sl7C5F/jJHwtfieU+1cQeQYeBrzLnYRP77c6HBQSQp3D5p/o3pPQrfmF+6aO +EMpuTpMj8k5CY1a5tsQuIbTa6nDEl30SnhBDPVP1hDCE4S77bmkCkidp7/L3 +CeFopOWZqNkJcLxjW9RsIoSWHgqOqa8nYHnxvdmCoxD2noOS2/cmYGNlb/qx +G0LI+3rn2KeNExCk3riDNCKEHblHrFfUvkDRIuHnlhvCqEf6/lv57Sd4ZPll +j+gOEfRaGxn6/vAY1O3v1nN7J4I7P7+e13w1DLtWFJr3RIjinUXPHYMNg9AF +STMJimLIJfnzo71dH2wlXy991CGGSY9E2iSu9wChbX7ZzEcclQ+2nKSOdcJI +Sb3ZW19xjPz4uMCpvROK70QUWF0Rxwu2ryRrSjrByE3mhGOgOBZubzx462on +XF+v/9QnShwP+/FU8sh2Ap95gm9yqjiWZSLbd6sXwDGmtjDcKo5D4aKixZMd +sLDk8dVVXALjm8gj8yptMFS614YuJYGG4z3RDhJt0OAm93pYRgIfn/sy8Zm9 +DaLfdZWbUSVwJ69fvGxfK1CebvLXUZZAvabHw9Z+rWB4aZpfcLcEXtC/OarQ +/RwyFx0VqjwkcOi2kdf9qy1gMm/lwN0qgdsm6e3bBZug4r+HxLJ2CSyP/dym +wNYE0hnfa21fSGBKY1q/0mwjjBuFiNa9kkCbbX3/rDoa4WJOQev5IQl8bWIa +dS6oEVKPL20c+y6Bz7Ymc9ovNgCrIWm2RloSZzbszJSZeQZhMa99vLwkUTi2 +l3M9Wx2Q8htmv5+XRBZXjOeXT7VQ2Vrs4OkjiffHpqC/vRam2KJNz16RxHcD +W9p+36wFo3O7Vc6ESuLkt675fRtrQdSi7LNLsiQGTkcgh0UNZJNvm9s0SiJq +Z/YGtVTD8yeWW4wFpRB4L7anvq+AC2lHmteKSKHDDuW85y0VQIs2MX8qJoVn +d9nXchRVQKDdAR+GjBRmgYz6M/8K0BbUerrMlEJH7c7rSK6AUg8JvdydUrg+ +2LL3kGs5pCkMmLC7SOFo0x5ZNf4yuJxm7vWkXgqliNOGLlGP4WTPfOeORikM +nDV2eOv7GJAzcWNTsxRe3/9x1zHnx8Dl3Dfyql0KnbqSxMP1H0O8ytFDX19L +YYsr30ga22PIq7NQUpiQQoY8Yd0T30cwOHT8cypBGvd2Held51MCteuXdzGF +pLElPP/9CacSSMN7KUUi0sgdarux5mgJOGYOmdVKSuM+B+djWRol8MPNqmmQ +Jo2qNR+Kdi0UA9/SyTQRTWncaizlb7+2GLQkbC2jbKQxZEI/Znh7IWyRJLzc +Zy+N7Z7h3bEShaAkVafP5SSNf7V2gPVSAcjISG4OdJfG8jIb7WP1BcBG7uH2 +8ZFG26O/H5fsK4BWed0y2+vSKFj78M9763ww06AQtKqkMebn3Cbf7Fww1HwZ +8uupNHo22ibWROXCHi3/pSd10pitYzIu6ZkLGtqDn1WapfFia1kPUzsXpDC+ +lt4tjTuuFm4JeJ0DY3vZ3Yjj0nj1q/h1Ee4c8Dg61jJBkEEDuqmLQmA2THiz +e98RkkFvqocir2s2WCdSGAdEZVCvSnFpxSQbjN/YhuZLyeANz7zTKvRsUDX9 +uOcMQwbPhTjvT+/Igh9Gn1p/7pDB/ZX6zuUSWeC953P7iqMMfjV0XC/a9gBm +HbguFbvIoG46eWNR6QNwDGEoWLvL4FPhPY2WqQ/gaLNjZIOnDI5oyFO+ez8A +Dd0vB4KvyOCxwlNXCMwH8GfnxH+88TL4/NX6rzxRGeC3bapTuFYG12Z3ZJ+0 +SQeFu0X7btfLoOaFHf6JxunQx3auSaJRBv8sMhQ+QDoov1iqlG2VQdH8nOf3 +ZNNhxFYgU/6VDCavdwl7M5QGerGql7THV/kf68zLn0gD3mlvhr2ALMYbnbf/ +9t99KDfekf55gyzeJEb0yxXdB9vyf1IugrJYdcYzzi32PlQHhhPPiMliojT5 +3FHz++AunrzsQ5bFl0QTmv9ICnTr1/ZEbZPFh7Mi274v3YNbaRxXS61k0fFz +0L+GPXfB4s0bIXdrWTTpbX5MULgLknw5OTQ7WdxtS+XzE7gL988d7LnlLIvq +mqdVinqTIXvPLfrFc7L4tegy2cM+GSpZjBfaEbKo0jNpbxJxB4Y0Dkg8fyKL +DrsOd739chvun5Yu8q+QRS3Jm1+yum6Ddcas7vZqWewsOiYfXXYbxtfddM+p +l8UfdtcqsoNuw+yHd/WRHbLI82tBjUi+DWwhpx0Pjcji2OhZapZ1IlBfxZYO +rJPDvSGj3yR+JIDkQW4hu/VyKDi9f+bs+wQgtPp5zRDksMbFiGOoLQGWa1w3 +s4vK4ZCOpupsagL05ewuViTJ4Uf+B35shxIgImAxz3+rHN5yH0h5UXITvqpY +Z9Cs5HBx/QpX8LV4+JzXt6b4lBwKV27L0jobD0N0QxtN29X3NbnSHCfjoU1K +i2TkJIdLL6xN2zXjIYNb+L6PpxyKZorxbPwRB+bDrXc6QuTQBh6yMR3j4GmM +StzZIjlkjHe05VvGgqq8uOJsiRxu3R0433UgFrIb2FrcSuVw/Ivi8TU7YiF+ +7tWiY6UcypntSropFQvOluetrRrlkDI1lDRQfQNEGVUqB/rkMNcytaa5NQa8 +anW7qCty+FMt/wrHr2g4ny/yxJiNhCrtdbfHBqNBeZE38MYaEh77T61xqC4a +MuN+SApwktD6neowOSwaYpubjHh4SXhXY9d5lng0OCk4lq8IknBHsJvi6V1R +ILKQFzLNIKGvso+LV1YEWCpkn9KXJ6HwhlQ1p8gISDuZrpm6kYQXcv/Tu+gR +AUqtt2dMlEho6b2mY1YzYvU/EGxevZmEGyM6dRRehoOX1kl6hDYJi5NuzDas +CYcuf2ILw4SEHnMlOqUXQ0G4lD81wJSEzt8Xev5Yh4LlF27fQTMSfuKo1j2+ +PxTGD60oxRwlYXok08hRMhSWSdMJ8ydI+NLiwMGM2hBQbGq2b3YiYc4g+8Jd +nhAI577IaetHwoCunQnTxUEwcbKlKdOfhGMz6i8C7wXBvnLBoC9XSejiXc+r +GBEEPA6Fa05fI6HU8C+DctsgCGscW/EJI2FohPRsoWgQhPoZ/r4eR0JW0swk +8do1CP5Jma3KIqFiWpaammMgfDpwtnA5m4T3rzDquMwDYXdGrTvkkPBr3iiF +pRcInIctppvzSKgzX6o+SQ6EoKLrE93FJEw88bEh70MAXHNZHBuvIiGfuKXL +zuMBEDDc2U/sImHhtuW9zs/8wU2WkunRTcK4YgmPgFR/OGLlfbbzJQlT7uek +PvX3B8V3srwRr0noqREckbzTH/r6PLTY3pIw7KTd1YUaP9jURUyZ/UjCcCVX +Z+7GKzBYY277328S7j9hbpH06RK0LOUqb1wi4b+CftaL1ktQorXyJ3SZhAnf +1mwl5V+CkMrsm7r/SJg2nmdB8boEqk9+NVdxknGBtsknbs0lCMu/w8zZQMZy +4Xtm/+i+sDX5PSuYTsanPtKxusE+cHLC9cgQg4wT+npJoW4+EKG+WL9FnoyO +KcyoTyY+8KFH8OaYAhmLvXxaZsg+EL5unyaqkvFr6ok0tQZvGLryOGRJi4zu +Grcnz3B6Q/CpMFkvYzL2F/Pw/7t3HooKhcPbD5Nx/JGHtlHYeXi7lP6dZErG +DyIpSk88z4NyUk1zt/lqfOqtmaY952Hg5XfXTcfJuLP7iPW37+dASfdExYQD +GZWsgzqcD56DXtpm41OXyVhjPxiuRfQC8URCauoVMg50KwRf+ecJVtzfZob9 +yFi3MP6he8YTPk8WRVkHkLG3lcsjr8MTFouUWm1CyBjt5EjbFOIJMpryOvY3 +yHizpMvN8u9ZcDSUU3J5QMbtk2s7Wn96rO4XK5dyM8lomhB/0b7XY3U+fWif +zCJjZs2pCbkyD7gomOLkmkNGiXHWzR/eHhDVL/nArZCMRT2+gxzLZ6DERlTy +TAUZqyx4AmrWnYHfFwR4zv1HxgvaMRV16A5tXT/tul6QcXe5UEYmxR2SmIP1 +G7vIGF9+OTqP0x22v832GXlJRtqWB29F2t3ggjZ+Mewjo+/Qu1xHUzf4zn7u +ufzoKt7ZEY3e064weWMg+MPCaj2fX2xeqXSGyom6Ec3FVX8WmflZ950hfFeW +9q3fZFTPV73jHOwMzJ+ecwbLZNyY1ErQNXYGhyPr7KvWUHBCCLRw0glGpXX0 +EvgpaGQRJGNMcoK3uQ/WHKBQcGtZfeDvdAdopA/pxlAp2CKuNuoZ7QAF6cLB +PTQKusQkZP7zdoCAOyFcx5kUfDYaxn78oAMwIpzWuStRkIeh371+0R68nBVF +YtQpCE0Ya2FqD/zMUvmeAxT0a/BkfRG3g4WMaRfRgxSsJ609ML7WDoZlafmW +hhQMiymKnv9hC49Fb236eIiCM288vY06bcGCy0dtzoyCxpfZe4ev2ULWuJa2 +6CkK3nGXLDv73QZ0MhsPWZ6joJQMI63rnTU4qWxVTjpPwXWW7YqW/1lDbHUW +f98FCjra+TbMV1vDx5er7XuRghKlJS9OJFtD+F8jvf1+FLyy8+6jiWPW0HPk +nbpG2Cq/n1Bdb8UpcOSdkxG9S8GsZ+9kjvdZwY0Eh2XTexQ8o1cWolVlBZVy +/YNxKRQso20wU79nBevUq28LpFFwROBD2TVbKyixDSCuzVrV1/Mjxu3bCfjz +lH/tXBEFcz4UzDsQT8CNM3TWq0YKHh0MeKXvZAm7R1P6FZop2G6gxGtkYAmL +pqJNQS0UfB33aeCciiVYa3Inb2ujIPltSpPY4jFQ5Zzce6eTgvRAA7vayGPQ +c6fggfUABS9sMJZ1KLMAkZYtx7/OUPDF5OmYo3JHoWN7wZ59XynYdiYxe4Dr +KPjn0dTSv1HQ8uOf/HOzR+DzDRFe058UlDXjJP6qPQLllr/KyxcpeMJE66Dq +ySNg8a1a0J+DioW9GnTzB+ZwV0q3g1+CiunGV5Yfgxm4PuK/ayRJxdn0lYVC +RTPQ2NvvFitFxb+L7pU1YmbQ6+UuICxLxcEhSV2Rb6awviPRWIpKxZjd+qYl +6aYQcHG6b+MmKnp/WF/vx2MK9m8SPu7ZRcX7X6ZF5j4eBjW3U0/CdanoXnkl +Wq/nMLCtUQjp0KPitYgbfpnPDkOKUj3DaA8Voc84MjnlMPQFTbqYG1AxXi/a +w9ziMOxT0/lmZ07FxQW2vF8vjUHpxpflABcqJiekXV24dwhC+KsG37tSUeJs +lKfw5UPwISKyUsudiqLhV4qOHDsEccGbzs+doeKSreGZvaKHYMH33LTTeSoq +LJW+fBNnBPX2/94aXaXiPdGrK8E3DMFES6xC+hYVVYX+IyhlGkB+xUSCbyIV ++XJFt0WFGgDntmqvvttUfN3IJcbnYgAVKlbKsclU3CwhFe2obADS9AdZHGlU +jF4/GZ1YfQDGN6gkTOVRsbXsMatsYD9cHN/jWfmMiqUyfjZExX0wHeK6daWB +ih3VI+eHBffBSUbML70mKnI0CNa1/NkL+k5v/LpbqKirqxg32LEXBCftIj93 +rOop9kymuO+FAlbAA+E3VNSrto8QK90DIz+r35ydXPWTJSA1d1gfTBM+JJVP +UfFm4FLHXW19eL6V/cTyNBV7tfX7LZj6UHhh/1jYLBXrY+KLBf/uhku/+mfv +/6TimWT99UG5u0F4aY678y8V/7E76+7m2g372VW0NgrSMOPV5fzqLl1YfhSV +7CxEQzHZSKfdNbpQZDPx56EwDUP27981kqsLwg3pTxliNEymfOAyCtGFkavC +O2nSNFQ+snfmn7YuXPz7G+QYtNX/iPtCYfEuyFls1hfRoqGUq+ZYTTrC8Rxy +ttkOGlblF292iUNYb+HPlaBNw6LuoVB6IML5iu2tgkBDI7Y4ji5rBPTO20fY +TcPPR1Tjh0gIAz9vGKwzoiHv9Ix8y14A7q+Wh9fY0nCZTj9j6roTdofW1R23 +oyG//QVOdoOdcE2GolRuT8N+3X3fXinuhBWDSS43JxqOX2jRejOjDQs5PjW9 +7jTc1XO1yeGcNny2TWDm+NCw9mSQdWzwDmju6/xrdJ2GRPk/QuQ6TWA/s9kt +N4aGH79ecKvM0ARce2uAI5aG7z1ef3UP04SaLSdKK+NpON+ryLHpsCaUxk45 +U5JoeCDT4NfazxqQcYC7dz6DhrZw/jabiAYE1GHevUoaXrg/qGcQpg4DFxeW +h6to+Oz0b/hyVh1UtxQcoj5djdduuXzHUh1GHorN59bSkJohYonK6oBxs1DR +SMM2850Hb/VtAzb7e29evaBhp3McZb/iNrjKu8jGPUpDf/NLbfqftkBfU6Hp +gTEavqyaDA14uQWU/e2yr3+kre5jbVNdNVvgw48uA+HPNFRpe2OWfWsL6Axl +JZKnaXgpJSJh574tsFJkqqQ9T8NzWwOE/paogb9Z8VFPXjoajo+76MRuBpsF +t4puPjpuOtN51Mxv8+p+LC+mzE9HWarBA3/XzcA3lN43tZ6OcnxeSxv0N8Mt +uwRze2E6nj/tYUxdUoUCL1/To3J0TFnWePvbVRUGY/UO7dxGxzrQ6s57pAy1 +amzFd9XpmLBr6ta9WGVI661Z/2c7HV3aA+ceeSiDo7h6V7kWHX9UG43sUVaG +76nyhqpIx8zxQgORwk3AUyxgQDWgY1f7q2fUR0qwvbN/D68NHZ/XfSrn7VEA +S/9OPRtbOpZ/lW8qLFOAKypNWGVHR8HTHzo87ihAY1yRlovjKn7ssqGhjQIc +PBKi3O5GRyuz6VLXHxvBelhNNMKbjto7Kr4LSW6EyO/Xx3mi6TiWR7A18mdC +QUbQmPV1OvosirC8HZjQbeo7XBlDR0ZjXVXVQSYIl9u/dY6joxCB/9F1KSbc +v7Sjsy2Rjk57vQTcqxlQyjH5JDydjpffT3ZMLdNhSGR3ME8FHV2DnodpJNBA +fCrKcX8lHeM37jKdvkoD87rX+yKr6NgneZz+2I0GXY52Avw1dNS8HBBzWY8G +DRXXEjc0rNYn0cJ46ScVso815Ij+R8eJOvPiFAsqeKbodNKG6XjzkM2dKRUK +FHmGFjuMrPKnNdn9lqHAlH5XXPYoHR+Pi4xK8FPAftbqiPynVbzStqIbE2Q4 +An7DipN0rN4y9OhgBhm0R59+V/tJRzvmD5e/4mTgomuK7uJmYGRFWWqLIAm6 +RsLWpvAw8HGFydOENSS4da9vbpGXgdeefPVijcgBTfj86xJ+BnYfSpYZuScH +uhzFsSRBBvbYPFn0FZWDq6O0dWwyDBzJGNM4QpCFxRQCW70aAykm+lUFMtLw +7Nipr5JbGcjFd/Zy8j8pCBMp+uC9jYHL7tmOOaNSIHrdoFZZg4EzQ/8p07Kl +YNuV0Ev3dzLQeZvQi9uqUuBluTznt4+BqZLTo4cNJGFadGJS+yQDdW9Wzmy6 +LQ4v5sPrAk8xMFn+kEyqvzgU9W68+dx61Q/+7pF3FAeveDdtY7tVP0JFZ0K2 +icOiwNcYO2cGSl5drLd+IwZcaxe2RHoxMLNg8l2khBiQfnL494cy0GzhtAVf +qQiw92SaSIczsKU0Putkigh8LNFn2kQw8O9ql7SFiUD2mbCXU1EMrNTdsOH9 +CRHYNMVHXYll4I18vX9reURAa5TYRrvLQJMXIw76tsJg3i0n6FXMwOB67bYp +uhB41/4OKilhIFFg30lFISFIyn89P/uIgRo/mIf82YRgMCzsrdsTBi6dvv3b +8p0gWOPXNIcqBtYXOfnPxAmu7h91KseaGHhSXXHKiV0QAm5aGWI/A+kjsb1a +3wiQEbi93n+AgWJeFpg1TIAmD+Lm2rcM7PvVMiHXTQCugy3CWkMMTPMVKNEv +IkAU56ahLaOr+sP5Tx0+TYDEC8uuzGkGCvH8NKwY2gAFR++Gr//HQLUxOdvM +XwJgsekKtzMbEyn1cxYv+wWAk8MqtGENEyNtLsnIVgqAVZFs8HlOJm6apAfI ++grA+rUZVwd5mTjhtqmtaJkfzj7O8c4WZuK6d3b1s7z8sE2g3F5HgYm3LC7n +rezgg7GxxI+3FZn4zCcykUzig5hKH9vvSkwMjXaVtOXkg892mtaZKkzcMcXj +vqOTF5Kqa47zbWPi5f7VwWrNC3+cmkz6gIk6Ak+ftUXxQF3jSzxjzsTCYsOD +dr+4IPgpR1bJESY2kXwjUke4wOCJOu/Po0yUaCMc/dHOBQNZ9175WDJRiZ9x +4N09Lvge7mwbeIqJRE4GtVKPC2iH2IITXJhoGT8fGHlrLUS+U2mt9mPiUoH1 +ib/7OMG411bxrz8T1dMl5ka3coJY560bELDKt3fad5DECZl1S0ebrzHxVNgE +G/dvDqhNb53oDGNi3MjffoM8DvjmdIpvNG4Vf+xU6zkCB5jPxRhyZzOxtq/A +vWpqDTR26ap6PGTi7l9z5l/61oBq7oJgfw4TX5ItlRSb1gD/yZMD2fn/z08c +zN1dA82tm+z2PGLibV/FUxFGa0Dt7ouLITVMvM8h+Savgg0IunyZHK+ZyLPf +8oOZ2j8df+m6ULfe1Xyw35l+teGfDmvB0+X1GyZ+U7RnXJhZ0WnLf6v8YICJ +4c9GLm/KXdG5KpJbpfuBibkkRyEbyorO7MTe7sBJJhaoN/wolvqrc6Jp6dHk +1Gq/xBR6Xlla1ulIKU44zGLimM34Dfd3yzrZJmKW5K9MdOJs5q+4u6xjVfP5 +07M5Ju7Vutn0TWY1PjG5VX6BiYRnfxferCzpaHga5cX+YmJ+gsrN98NLOsKM +cg/rP0zcI9Jz2jRjSecam6tJ2xITGQfSrBuClnS+DcpsU/27qufaN9phhyWd +k2WvxJJWmMj//Ngt9r1LOi9uhPz594+JHVfuRb+RX9L5H4UhA4Y= + "]]}, "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:eJwVl2c8Fe4bxoWsqHPs7ewjhFRCct+RlsgsKWXvEhWpiOyRkCQlI2QTmRlZ +kV8oSZIyShmHFlKkv/+r5/O8/97XdX3Jdp6mjuxsbGxza9jY/v+6jszxsbER +0G+Xx0D0GAt2J+/c/zydgFuaDPoD7rMgSeQPn9whImqi+rp+dRZ8l+s4/+k7 +EcebWXtGrk0DvVPG/0K8IIaMu7dWXJ+CHs0v3Dd0hFB2c7ockXcSgtWbd5BG +hLAz77DNitoXKF4k/NxyXRj1SN9/K7/9BA+tvuwR3SGC3mujwt6bjEHD/h49 +93ciuPPzq3nNl8Owa0WhdU+kKN5e9Nox2DQI3ZA8k6gohlySPz862PfDVvK1 +8oedYpj8UKRD4lovEDrml819xVH5YNsJ6lgXLCx5fnUTl8CEFvLIvEoHmM5b +O3K3S+C2Sfqz7YItEB77ytfbWxKF4/o417M1wNNHVluMBaUQeC88S3tfBZfS +LbwfNUqhFHHa0DW6DLQk7KyibaUxdEI/dnh7EXgeGWubIMigAd3MVSEoB/y3 +TXUJ18vg2pzOnBO2GXAzneNKubUsOn0O/te05w5QX8aVD6yTw72ho98kfiTC +41iV+DPFcsgY7+wosIoDkYX80GkGCf2UfV29syMhgvsCp50/CQO7dyZOlwRD +4HDXG2I3CYu2Le91eRIAW1Pes0LoZHzsKx2nG+ILfbTNxicvkbHOYTBCi+gN +v88L8Jz9j4zntWOrGtAD3ubdX3OAQsGtFY1BvzMcQSer+ZDVWQpKyTDSu9/Z +wPXTdNbLZgoeGQx8qe9sBXekdDv5JaiYYXx5uQzMQen6l+VAVyqmJKZfWbh7 +CC6M7/GqfkLFchl/W6LiPtjPrqK1UZCGmS8vFdR26wL3VyuTNXY0XKbTT5u5 +7YTABsy/W03D8/cG9QzC1SHAvOSIFy8dDcfHXXXiNsP2rjd7eG3p+LThUyVv +rwIMiewO4amio1vw03CNRBpw0TVFd3EzMKqqIq1NkATTohOT2icYqHujembT +LXGw6JET9C5hYEijdscUXQgKj9yJWP+PgWpjcnZZvwSgofkFnrZgYlGJ4UH7 +X1xgMRdryJ3DxPr+Qo+aqTXw/Hron3//mNh5+W7Ma/klncPaEgpOxgTsBauy +3jYWzPRL5c//IuBtwqix8zkWtEraPglKJ2Kyl5iiJWsa1s17+xXvEsSr5Ecy +PySn4U/Q1ea1E4K44/H2itx3k7Cxui/j6HUh5H21c+zTxgngGFNbGG4Xx6EI +UdGSyU7IWnRSqPGUwKFbRt73rrQBqyl5tk5aEmc27MySmXkCOeRbFrbNkoja +WX3BbbWQrjBgyu4qhaMte2TV+CtgcOjY5zSCNO7tPty3zrcUzDUoBK0aaYz9 +ObfJLycPfPZ8frbiJINfDZ3Wi3bcB95pH4aDgCwmGJ1z+PbfPRjSOCDx9JEs +Ou4y6X775RZ8VbHJpFnL4eL6Fa6QqwngXa/bTV2Rw59qBZc5fsVAdwCxjWFK +Qs+5Up3yC2EQ8pMyW5NNQsX0bDU1pyAYrLOw++83Cfcft7BM/nQRQk6Gy3ob +k/FNCQ//v7vnwMlQTsn1Phm3T67tbP/pCZPXB0I+LJBx4umF1pVqF+Bnlsv3 +HqCgf5MX64u4PTjxzsmI3qFg9pN3Msf6rUGkbcuxrzMUfD55KvaI3BFweJ34 +cc8uKt77Mi0y99EETLXEqqRvUlFV6D+CUpYBjPysfX1mkop3swWk5kz0IXex +VV9Ei4ZSbppjdRkIrf1df42u0ZAo/0eI3KAJV3gX2bhHaRhgcbFD/9MWGIzT +O7RzGx0bQKsn/6EyRH2/Ns4TQ8exfIKdUQATvFJ1umjDdLxxyPb2lAoFFlMJ +bI1qDKSY6tcUykgD6SdHwJswBpovnLLkKxeBwBvWhviGgfSRuD6tbwTYJlDp +oKPAxJuWl/JXdvBB1DuV9lp/Ji4V2hz/u48TCLp8WRyvmMiz3+qDudo/HZv1 +4ZJb5Am4zHiiXdnHguSqwt82zwnIr9ASeukaCzYlFzm+8CXiHSnuvBEhFgRE +pfo+kxDESEmTi+ZHpoHAeCHXWCeIYpN93MGaU7C8+N58wUkI+85C6a27E8Bn +keiXkiaOFVnI9t36ORhenOYX3C2B5/VvjCr0PIW0Y0sbx75L4JOtKZwOi00g +alnx2TVFEoOmI5HDsg7KPSX08nZK4foQq75DbpWQ32CppDAhhQx5wrpHfg+h +XV63wu6aNArWP/jz3qYAfhh9av+5Qwb3V+u7VEpkg16c6kXtcRkcKdOZlz+e +DtUsxnPtSFlU6Z10MI28DZGBi/kBW+XwpsdA6vPSGyDKqFE50C+HeVZpda3t +seCtdYIeqU3CkuTrs01rIiDM3/D3tXgSspJnJolXr8KmbmLq7EcSRii5uXA3 +X4ahy2WhS1pk9NC4NXma0wdkNOV1HK6T8UZpt7vV3zPwnf3sU/nR1Tw9M6LR +d8oNvF0URWLVKQgtGGdp5gC9h9+pa4RTcMZfqKGv6iT03i68bzNAwfMbjGUd +Kywh8MJ0/8ZNVPT5sL7Rn8cMGh3+vTW6ssqj6JWVkOuGUMgKvC/8mop6tQ6R +YuV74MLf3yDHoOFjYY+FopJd8NkukZnrS8P6E8E2cSE7gM3h7uuXz2nY5RJP +2a+4DQq9/cyOyNExdVnj7W83VbAZVhON9KGj9o6q70KSGyHnaFOu6H90nGiw +KEm1pMKVUdo6NhkGjmSOaRwmyALX2oUtUd4MzCqcfBclIQZuDxtUjrYw8IS6 +4pQzuyCcKcv1yRFm4rp39o2zvPxAO8QWkujKRKuE+aCom2tB7c7zC6F1TLzH +Ifk6v4oNDN0KNG9fIKCk38OTURUs0F2IsoqiEvHB1F3jiiMssEoVltryjIiX +zW879jROQ/LJfZduuApicEX4kwsDU/Dp/VbHg0JCqGNi8YnuMwl8SyfSRTSl +cauxVIDD2hIY28vuThyXxitfxa+JcOfCn50T//EmyODTl+u/8kRnQo9+fW/0 +Nll8MCuy7fvSXWALPeV0aEQWx0bPULNtksBiuP12Z6gc2sIDNqZTPDgrOFWu +CJJwR4i74qld0aDY0urQ6kzC3EH2hTs8oXDVdXFsvIaEfOJWrjuPBUJ4wW1m +7gYyVgrfNf9H9wMl3eNVE45kVLIJ7nQ5uHpEtqKSp6vIWGPJE1i37jSMSuvo +JfJT0MgyWMaY5AzZ41raoicpeNtDsuLMd1v485h/7VwxBXM/FM47Eo+D5bda +wQAOKhb1adAt7lvAPjWdb/YWVFxcYMv/9cIYxjeoJE7lU7G9ooxVMbAfhJfm +uLv+UvEfu4vubq7dMPDzusE6IxryTs/It+0FyDzA3TefSUM7OHeLTUQDVorN +lLTnaXh2a6DQ31I14CkRMKAa0LH72csn1IdKUM4x+Sgig46X3k92Ti3TQXv0 +8Xe1n3S0Z/5w/StOBm+r5Tn/fQxMk5weNTGQBK1RYgftDgNNn4846tsJQ9L5 +ZTfmNAOFeH4aVg1tgD/OLab9wEQdgcdPOqJ54JvzSb7R+FV+xk62nyVwwOzE +3p6gSSYWqjf9KJH6q+Pwqz5BQpiASh+3Fta/Y8Es83xGUiUBN1Gv5PYns2Cs +36za156Ilc9ayj/TWaDxumyhf60g+q9NKTA+Ow2Siz7dUg8EMTTqmG2c4xQ4 +3bYrbjUVQitPBae0VxNwbb3+Y99ocTTx56nmke0CyuNNATrKEqjXUjZs498O +F3IL288NSeArU7Pos8HNYHR2t8rpMEmc/NY9v29jPWgLaj1eZkqhk3bXNSRX +QYLKkUNfX0lhmxvfSDpbGbCRe7l9faXR7sjvstJ9haBq9nHPaYYMng112Z/R +mQ0jdgJZ8i9lMGW9a/jroXTI2XOTfuGsLH4tvkT2dEiB/tzdJYokOfzIf9+f +7VAiuFids7FulkPK1FDyQO311b0eYlG7mYQbI7t0FF5EQHjz2IpvOAnDIqVn +i0SDob/fU4vtLQnDT9hfWajzh4h1+zRRlYxf046nqzX5wGKxUrttKBljnJ1o +m0K94Lw2fjHsJ6Pf0Ls8JzN3YEQ6r/NQoiAPQ79n/aIDRPw10tvvT8HLO+88 +nDhqA6qck3tvd1GQHmRgXx91FNZ3JhlLUakYu1vfrDTDDBb8zk47n6OiwlL5 +i9fxRiA4aR/1uZOKfCVeKRSPvTByRXgnTZqGyof3zvzT1oWFXN+6Pg8a7uq9 +0uJ4VhswfhaqmmnYYbHz4M3+bXDTPtHCQZiO5055GlOXVOHg4VDlZ+50tDaf +Lnf7sRGaqq4mbWiio2ySpfHSTyrocpTEkQQZ2Gv7aNFPVA4WBb7G2rswUPLK +YqPNazGwwa/pjjUMbCx2DpiJF4T1azOvDPIyccJ9U0fxMj98j3CxCzrJRCIn +g1qtxwWt7Zvs9zxk4i0/xZORRmvA1Gzs4RUHAjrISH8YqV/tXycz9icCRPxU +mvYnyokFG4ZqTw0+ImJDfKd9bf80mOZb/0m3EMRd2ykvLv2Zgq8l74Ty/goi +z8CDwHd5k/DD3bplkCaNqnUfinctlIAUJtTTe6Rxx5WiLYGvckFD98uBkMsy +eLTo5GUC8z54iKcs+5Jl8QXRlBYwkgqzH941RnXKIs+vBTUi+RZkcgvf8/WS +Q9EsMZ6NP+IhrrXFiIeXhHc0dp1jicfAMmk6cf44CV9YHjiYWR8KwcXXJnpK +SJh0/GNT/odAUH30q7WGk4wLtE2+8WsuwsCL726bjpFxZ89hm2/fz0L0G8n7 +7kVkLO71G+RYPg2Oh9c51Kyh4IQQaOGkM1hy+arNmVPQ+BJ73/BVOyi1CySu +zV71jd4fse7fjkOl1a/KykUKHjfVOqh64jD0B0+6WhhQMUEvxtPC0gSk6fez +OdKpGLN+Miap9gBc/PVm9t5PKp5O0V8fnLcb0Cd/H2E3DT8fVk0YIiGUx025 +UJJpeCDL4NfazxqgM5SdRJ6m4cXUyMSd+7bA9zR5Q1WkY9Z4kYFI0Sa4d3FH +V0cSHZ33egt41DLgMPgPK07SsXbL0MODmWTYdjns4r2dDHTZJvT8lqoUbJri +o67EMfB6gd6/tTwiEM25aWjL6Oo/gv+kySkCJNfWHePbxsRLb350G9jwQn1G ++0RXOBPjR/6+McjngCsieTW6H5iYR3ISsqWs6Oju/WSiOEbA3Nc1OseDWHDh +KLfQxhgi6ikQWyvYWGBd9/nTkzkm7tW60fJNZlnns/vbbn4+An6cTzVSHGaB +hM3R8w8LCHjj38v1eI8F2gs5tgZHiRhEmzMOVGZB4sWdle+XiPg7tOJMW+A0 +kGw76QfuCuL6/Vkfhi9OQcok7V3BPiEcjbI6HT07AUbuMsedgsSxaHvzwZtX +uiDmXXelOVUCd/L6J8j2t8O4Uahow0sJtN3W/8+6sxmm2GLMzlyWxHcDWzp+ +36iHIPsDvgwZKcwGGfUnAVXA5dI/8vKZFDp3J4tH6JeBjIzk5iAPaayssNU+ +2lgIxq/twgqkZPC6V/4pFXoOKD9fqpZtl0HRgtynd2Uz4N7Zg703XWRRXfOU +SnFfCizXuW1mF5XDIR1N1dm0REiYe7noVC2Hcua7km9IxYFS+60ZUyUSWvms +6ZzVjAQex6I1p66SUGr4l0GlXTAovpPljXxFQi+NkMiUnQHwoVfwxpgCGUu8 +fdtmyL7webI42iaQjH3tXJ75nV6w/W2O78gLMtK23H8r8swdAm+Hch1jUvDJ +aDj7sYOO8PFFxDOTCxSUKC99fjzFBmw0uVO2dVCQ/Da1RWzxKPR5ewgIy1Jx +cEhSV+SbGcSHbDo3d5qKS3aGp/eKHgJ959f+PW1U1NVVjB/s3AvCTRmPGWI0 +TKF84DIK1YUVg0kud2cajp9v03o9ow0jD8Tm8+ppSM0UsUJldeAbyuifWk9H +OT7vpQ36m6E5vljL1YmOP+KWDQ1tFaDbyV6Av46OmpcCYy/p0YAmfO5VKT8D +ew6lyIzclQPvBHdtY3sGXhUqPh26TRwGw8Pfuj9i4NKpW7+t3gmCdbFsyDlO +Jm6apAfK+gnAQPbdl75WTFTiZxx4d5cL+E+cGMgpYOKOqXiYu7MG+tr/znhb +EXDgtknGeBMLmu9t7x9kJ+KZB52qt06xwG1JQKw4f3Xvnc4mlY1OQ/GhiZoH +BoJI//OGOcE3DXPiKu5vfghijbyE6b/mSXDKGjKvl5TGfY4uR7M1SkFDe/Cz +Sqs0Xmiv6GVq58GRVqeoJq9VP9CQp3z3uQ+1QRHE02KymCRNPnvE4h6Mr7vh +kdsoiz/sr1blBN+CDiktkpGzHC49tzF7ppkAWfE/JAU4SWjzTnWYHB4D44dW +lGKPkDAjimnkJBkGnCaW0635JNSZL1efJAdBaHXODd1/JEwfz7ekeF8E5eS6 +1h6LVZ9NuznTsuccXBBMdXbLJaPEOOvGDx9PYP70mjNYJuPG5HaCrrELlIne +3PTx0KofvPbyMeqyg3XqtbcE0ik4IvCh4qqdNXy+LsJr9pOCsuacxF/1hyFV +qZFhtIeK0G8clZJqAlUq1spxKVTcLCEV46RsAEXn94+Fz1KxMTahRPDvbjhX +tb1dEGhoxBbP0W2DULfleHl1Ag3n+xQ5NplowofVWBL+TEOVjtfmOTe3gJO4 +enel1iovtUYje5SVQbjS4a1LPB2FCPwPr0kxwWHW+rD8p9U+Le8ovj5BBtFr +BvXKGgycGfpPmZYjBTmnw19MRTOwWnfDhvfHRYDrYJuw1hAD0/0ESvWLCfDZ +XtMmS+X/fPB47OjihayGpSOtV5l4MnyCjfs3B3QUvFW+P8DEiCcjlzblreic +utJB3/OGgAVT2/1Dw1nQe8GqbjmIiA6vzz88w8eCHFMxK/JXJjpztvJX3VnW +EWZUetr8YeIekd5TZplLOvKMLx5cawl48kEs9f0IC5QvGwzr5BCw+OdI1qd0 +FkyGGqtvMydiydbsa+Vqqz7SxS46ukDEdydy1p4In4ZMkXMmo0mC+JD97fLR +0Cl4RAzzStMTwlCGh+y7pQkouR1ZaH1ZHM/bvZSsK+2CJne5V8MyElh29svE +Z/YOkM78Xm/3XAJTm9PfKM02Q3V7iaOXryTeG5uCN8/qgRZjavFYTArP7HKo +5yiuAuRM2tjSKoXX9n/cddSlDJSkGvS5nKXxr9YOsFkqBJskCuOAqAzq1Sgu +rZjmQD/b2RaJZhn8s8hQ+AAZIMmXm0uzl8XddlQ+f4E7QGj3954hyGGdqxHH +UEci5DSxtbmXy+H4F8Vja3bEQfqJDM20jSQ8n/ef3gXPSNhXKRj85QoJXX0a +eRUjg+Gwtc+ZrhckTL2Xm/Y4IAAi1Rcbt8iT0SmVGf3J1Besub/NDPuTsWFh +/EPPjBckMwcbN3aTMaHyUkw+pwcUZgiH9NIo6BqbmPXPxxHiarP5+89T0Mne +r2m+1gYWzURbgtso+Cr+08BZFSvQ2PvGPU6Kin8XParrxMzhQ2RUtZYHFUUj +LhcfPnoITjBif+m1UJGjSbCh7c9eKLad+PNAmIah+/fvGsnThasyFKVKBxq+ +0d337aXiTlDdUniI+njVb7TbLt22Ul/dx/Jiyvyr/FIN7ge4bYbLKi1YY09H +wVMfOj1vK4BFw6t9UTV07Jc8Ri9zp8HNu/1zi7yrefjoqzdrRA6K+zbeeGrD +wDL83SvvJA7JBa/mZx8yUOMH81AAmxBwcliHNa1hYpTtRRnZagEweKTO+/MI +EyU6CEd+POMC1bwFwTe5THxBtlJSbFkDIlfXxXhYrPpL0hLPcAsLBmo3ostf +AsbmPknj8mKBWHTV9K1sIo5KcOtu+DINxzOLJAr2CGJgrKHtb8Fp8O0aSDo9 +I4g5dzwt7HsmIR3vphaLSCN3mN3GuiOlsEcrYOlRgzTm6JiOS3rlgVMoQ8HG +QwYfC+9ptkq7D3aV/6RcBWWx5rRXvHvcPbDJnNXdXiuLXcVH5WMqbsEQ3dBW +027VN+rypDlOJIDyIm/Q9TUkPPqfWvNQQwxYfeH2GzQn4SeOWt1j+8Ngd2a9 +B+SS8Gv+KIWlFwSlWit/wpZJmPhtzVZSwUV4u5TxnWRGxg8iqUqPvM7BV5UP +zyazyZhVd3JCrsITInZla9/8TUb1AtXbLiEuMCxLK7AypGB4bHHM/A87qJZ7 +MxifSsEK2gZz9bvWEJBPU8v4RkGrj38Kzs4eBrY1CqGdelS8GnndP+uJCXBu +q/Xuv0XFV81cYnyuBvB0K/vx5Wkq9mnrv7Fk6sN6ywCuRG0aFvcMhdGDEHDt +zQGOOBq+93z11SNcE5QD7HOufaSt+n3HVHfdFkjvq1v/ZzsdXZ8FzT30VIYe +M7/h6lg6MpobamoOMmFKvzs+Z5SOZeMioxL8FAgXKf7gs42Byx45TrmjUvCx +VJ9pG8nAv6srsyNcBFo8iZvr3zKw/1fbhFwPAWKrfe2+KzExLMZN0o6TD8S6 +bl6HQCa27J32GyRxAmvBy/XVayZ+U3RgnJ9Z0bl6p/b6q5cEXC7c0RYWxYJA +Hs74z5eJ+CtI/dvmDSzoTC1JNGExccx2/LrHu2UdDS+j/LhfTCxIVLnxfnhJ +59ugzDbVv6t+ffUbzcRxSWcfx+yOYHYCRuzNGX40ygLNqN2JofcJqDf1b+2W +TBY8Mcwm5ZsQMcm1YuTpVhak+Iy32c0RcY3j1tmMqGn49HXfF6XEVT6lPPOj +o6agObtSW2KXEFpvdTzsxz4JI6WN5m/9xDHqY1mh87MuGCrfa0uXkkDD8d4Y +R4kOqPrvAbHimQRWxn3uUGBrAVJB0+z3c5LI4or1+vKpHs6nH25dKyKFjjuU +85+2VcGJ3vmuHc1SGDRr7PjWrwy2SBJe7HOQxmdeET1xEkUw4cPuc1tIBn2o +noq8bjmgcKd4361GGdQ8vyMgyTgDLF+/FvKwkUXTvtYygsIdkDzILWS/Xg4F +p/fPnHmfCKry4oqzpXK4dXfQfPeBOLBSyDmpL09C4Q1pas5RkTBxoq0lK4CE +YzPqz4PuBoO7LCXLs4eE8SUSnoFpAXBiwu3wEIOME/p6yWHuviCeREhLu0zG +gR6FkMv/vKCj+6d993My7q4UysyieEAzfUg3lkrBNnG1Ua8YR3BW2aqcfI6C +66yeKVr9ZwO7R1PfKLRS8JmBEq+RgRW4PeS/YyRJxdmMlYUiRXMI5a8ZfO9G +RYkz0V7Clw7BdKjb1pUmKnbWjpwbFtwHyw+jU1yEaCgmG+W8u04Xdoc1NByz +pyG/w3lOdoOdMHBhYXm4hoZPTv2GL2fUwXbBvaqHj46bTncdMfffDFYBXXq2 +dnSs/CrfUlShAOJT0U77q+mYsHGX2fQVGnSPhK9N5VnNxyrTx4lrSPB8PqIh +6CQDU+QPyaQFiINP/e/g0lIGEgX2nVAUEgLLTZe5XdiYSGmcs3zxRgBCHnNk +lx5e5Z3kF5k2wgXN3bqqng+YuPvXnMWX/jWgflLw2KQpAaffJyW8bWXBWAdl +vvgPAe+fSviv2psFs6b8/fz3iTiw30ircnIaHhnEPVPaLYimn092LYpOQ/WD +IqXaKUHU8FEdjHw9CfXrl3cxhaSxLaLg/XHnUjDUfBH667E0ejXbJdVF58Gs +I9fFElcZ1M0gbywuvw+VxjsyPm+QxRvEyDdyxffg3inp4oAqWdSSvPElu/sW +fM7vX1NyUg6Fq7dla51JgHMFIo+M2Uio8qzh1thgDAiX86cFmpHQ5ftC7x+b +MPh04EzRcg4J711mNHBZBEHbUp7yxiUS/it8w3refhGKi4RXhYKM4w89tY3C +z0F+w8rFvCwymiUmXHDo84TqiYYRzUUy3rDMKsi+5wILmdOuogcp2Ehae2B8 +rT1cT3RcNrtLwdN6FaFaNdbQub1wz76vFOw4nZQzwHUE1NxPPorQpaJH9eUY +vV4TKKiaSPRLoiJfnui26DADMEv8kFw5RcUbQUudd7T14VguOcd8Bw1rCko2 +u8YjsJ/e7J4XS8OPX8+7V2dqQn9LkdmBMRq+qJkMC3yxBerV2EruqNMxcdfU +zbtxylCYGTxmc42OvosiLB9HJhR7hZU4jtDxUnqL/W8ZCjw5evKr5FYGcvGd +uZTyTwrYe7NMpSMY2FaekH0iVQQyg7Y3BgwwUMzbErOHCTA2lvTxliITn/hG +JZFJfGDcZ6f4N4CJ6hkSc6NbOSFAuiHMvW+1f9lvT7/c8E/nWl75bskeAoqI +CJWxx7Dg8AvLS8cuEjGQNXw7msiC4y1LDyenVnmMLfK6vLSs05mU0i6/wETC +k78Lr1eWdK6yuZl2LDGRcSDdpil4SedExUux5BUm8j89epN975LO/wAU6AOG + + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1VO0HGkUgNHYtpMb27bNGzu5sW3bts1BbNu2bWcy5u41D7vqfKfrpetf +qzsopFtw19ChQoX65hK4r3Cpzl/m72hKHs7Z9Sc9N/Q4wrBS1+Bv8/c045Ne +TGV+13k5bx5ABm7q8YRlla7JP+YfaM5nvYQq/KHzccE8kIzc0hMIx2pdi3/N +P9KC/Fy0G0QmbuuJhGeNDg58UTa5taQAl/RgMnNHTyICa3XtwLthsw6hIBGJ +RGSiEJVoRCcG6zxfhzBs0a0oREzW29UlLFt1awoTiw129QjHNt2GIsRmo119 +wrNdt6UocQJnZdeACOzQ7ShG3MC52DUkIjt1e4pzWQ8hC3f1ZOIFzkE3IhK7 +dAdKcEUPJSv39BTiB967bkxkduuOlOSqHkY27uupJGCTbkIU9uhOlOKaHk52 +HuhpJGSzbkpU9urOlOa6HkEOHurpJGKLbkY09ukulOGGHklOHukZJGarbk50 +9uuulOWmHkUuHuuZJGGbbkEMDuhulOOWHk1unuhZJGW7bklMDurulOe2HkMe +nurZJGOHDiEWh3QPKnBHjyUvz/QckrNTtyI2h3VPKnJXjyMfz/VcUrBLtyYO +R3QvKnFPjyc/L/Q8UrJbtyEuR3VvKnNfT6AAL/V8UrFHtyUex3QfqvBAT6Qg +r/QCgtir2xGf47ovVXmoJ1GI13ohqdmn25OAE7of1XikJ1OYN3oRadivO5CQ +k7o/1Xmsp1CEt3oxaTmgO5KIU3oANXiip1KUd3oJ6TioO5GY03ogNXmqp1GM +93op6TmkO5OEM3oQtXimp1OcD3oZGTisu5CUs3owwTzXMyjBR72cjBzRgR/1 +ZJzTQ6jNCz2TknzSK8jEUd2N5JzXQ6nDSz2LUnzWK8nMMd2dFFzQw6jLKz2b +0nzRq8jCcd2DlFzUw6nHaz2HMnzVq8nKCd2TVFzSI6jPGz2Xsvyk15CNk7oX +QVzWI2nAWz2PcnzTa8nOKd2b1FzRo2jIOz2f8vys15GD07oPabiqR9OI93oB +FfhFrycnZ3Rf0nJNj6ExH/RCKvKr3kAuzup+pOO6HksTPupFVOI3vZEv5qVU +5U/91X0Z1QLvhOWh//8vz+2z/wD6/vfg + "], 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]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 0.9026545741090067}}, + "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:eJwVV3c8FW4XF7Ki7rW3u68QUgnJOZGWSEZJKXuXqEhFZI+EJCkZIZuSmZGV +8QslISmjlHFpIUV6vX89fzzn+Y5zzud8zkO29TBxYGdjY5tbw8b2/9NlZI6P +jY2AvrvcB6LGWLCPY3ZHEDsBw/dmDz8ZZYE844s711oCnnoYQ30/woLPbm+7 ++PkI+HE+xUhxmAX2v2rjJYQJqPRxa0HtOxZYrw+T3CJPwGXGM+3yXhYc0ZZQ +cDQmYA9YPu5pYYH6KcHjkyYEnH6fGP+2mQUi19ZFu5sTcFPiEs9wEwt6W//O +eFkScODO4fTxBhaYmI49umpPQHsZ6Q8jtSwwdM3XvHORgJK+j05FlrFgd9LO +/S/SCLilwaDP/wELNCN3J4Q8IKDe1L+1WzJYoHzFYFgnm4BFP0cyP6WxQML6 +2IVH+QS8+e/VerzPglnmhfTE8lV+6tWcviQWJFUU/LZ+QUB+haaQy9dZcD23 +dLdkNwFFRIQes0ez4Nrd6huvX636K9jREhrJgtNX2+h7+gmYP7XdLySMBbp7 +Px1WHCNgzpsqnROBLJjpk8qb/0XAO4RRY6fzLBhro8wX/SHgg9Px/1V6sWCg +eiM6/yVgTM6zVC5PFjTe3943yE7Esw87VG+fXtXjaMr+TICIn0pS/0Q6ruIv +RFpGUon4cOqecdlRFiSK/OGTO0RETVRf16fOgmeGWaS8w0RMdCkbeb6VBZMh +xurbzIhYvDXreqkaC7QXsm0MjhExkDZnHKC8qqfPtNLHjojl7U2ln+ks2JRU +6PDSh4h3pbhzR4RW6/fS4vLxS0QMYA3fiSKyIICHM+7zFSL+ClT/tnkDC3ou +WtYsBxLR/s2FR2f5WHDxGLfQxmgi6ikQm8vYWNAsafMsMI2ISZ5iihasaZg1 +4e/jf0DEgf1GWuWT0yAWVTF9O4uIoxLcuhu+TIPrkoBYUR4Rr5zJIj0enYYN +Q9WnB58QsS6uw666bxosU4SltrSv3pvdceiun4bvcm0XPn0n4ngja8/I9WlI +9h5vsZ0j4hqHrbPpkdOg28kuOrpAxHcns9eeDJuGhEs7y98vEfF3SNnZloBp +0HjzeKFvrSD6rU3ONz43Df6RKT7tEoIYIXn4ktnRaVg37+VbtEsQr5GfyPyQ +nIYnBrHtSrsF0eTzqc5F0Wk4kVEokb9HEANiDG1+C05D0aGJqocGgkj/08+c +4JsGkzyrP2nmgrhrO+Xl5T9TkHRq3+WbLoIYVBb27OLAFNA7ZPwuxgli8Lhb +c9mNKfj0dd8XpYRVPCmPvKjIKcgQOX94NFEQH7G/XT4WMgUkmw76gXuCuH5/ +5ofhS1MguejdJfVQEEMij9vEOkwBgfFSrr5GEMUme7mDNKfgT+C1xrUTgrjj +6faynHeTUPmwUKl6ShA1vFUHI95Mgk/nQOKZGUHMvuthbtc9CXPiKm79PwSx +Sl7C5F/jJHwtfieU+1cQeQYeBrzLnYRP77c6HBQSQp3D5p/o3pPQrfmF+6aO +EMpuTpMj8k5CY1a5tsQuIbTa6nDEl30SnhBDPVP1hDCE4S77bmkCkidp7/L3 +CeFopOWZqNkJcLxjW9RsIoSWHgqOqa8nYHnxvdmCoxD2noOS2/cmYGNlb/qx +G0LI+3rn2KeNExCk3riDNCKEHblHrFfUvkDRIuHnlhvCqEf6/lv57Sd4ZPll +j+gOEfRaGxn6/vAY1O3v1nN7J4I7P7+e13w1DLtWFJr3RIjinUXPHYMNg9AF +STMJimLIJfnzo71dH2wlXy991CGGSY9E2iSu9wChbX7ZzEcclQ+2nKSOdcJI +Sb3ZW19xjPz4uMCpvROK70QUWF0Rxwu2ryRrSjrByE3mhGOgOBZubzx462on +XF+v/9QnShwP+/FU8sh2Ap95gm9yqjiWZSLbd6sXwDGmtjDcKo5D4aKixZMd +sLDk8dVVXALjm8gj8yptMFS614YuJYGG4z3RDhJt0OAm93pYRgIfn/sy8Zm9 +DaLfdZWbUSVwJ69fvGxfK1CebvLXUZZAvabHw9Z+rWB4aZpfcLcEXtC/OarQ +/RwyFx0VqjwkcOi2kdf9qy1gMm/lwN0qgdsm6e3bBZug4r+HxLJ2CSyP/dym +wNYE0hnfa21fSGBKY1q/0mwjjBuFiNa9kkCbbX3/rDoa4WJOQev5IQl8bWIa +dS6oEVKPL20c+y6Bz7Ymc9ovNgCrIWm2RloSZzbszJSZeQZhMa99vLwkUTi2 +l3M9Wx2Q8htmv5+XRBZXjOeXT7VQ2Vrs4OkjiffHpqC/vRam2KJNz16RxHcD +W9p+36wFo3O7Vc6ESuLkt675fRtrQdSi7LNLsiQGTkcgh0UNZJNvm9s0SiJq +Z/YGtVTD8yeWW4wFpRB4L7anvq+AC2lHmteKSKHDDuW85y0VQIs2MX8qJoVn +d9nXchRVQKDdAR+GjBRmgYz6M/8K0BbUerrMlEJH7c7rSK6AUg8JvdydUrg+ +2LL3kGs5pCkMmLC7SOFo0x5ZNf4yuJxm7vWkXgqliNOGLlGP4WTPfOeORikM +nDV2eOv7GJAzcWNTsxRe3/9x1zHnx8Dl3Dfyql0KnbqSxMP1H0O8ytFDX19L +YYsr30ga22PIq7NQUpiQQoY8Yd0T30cwOHT8cypBGvd2Held51MCteuXdzGF +pLElPP/9CacSSMN7KUUi0sgdarux5mgJOGYOmdVKSuM+B+djWRol8MPNqmmQ +Jo2qNR+Kdi0UA9/SyTQRTWncaizlb7+2GLQkbC2jbKQxZEI/Znh7IWyRJLzc +Zy+N7Z7h3bEShaAkVafP5SSNf7V2gPVSAcjISG4OdJfG8jIb7WP1BcBG7uH2 +8ZFG26O/H5fsK4BWed0y2+vSKFj78M9763ww06AQtKqkMebn3Cbf7Fww1HwZ +8uupNHo22ibWROXCHi3/pSd10pitYzIu6ZkLGtqDn1WapfFia1kPUzsXpDC+ +lt4tjTuuFm4JeJ0DY3vZ3Yjj0nj1q/h1Ee4c8Dg61jJBkEEDuqmLQmA2THiz +e98RkkFvqocir2s2WCdSGAdEZVCvSnFpxSQbjN/YhuZLyeANz7zTKvRsUDX9 +uOcMQwbPhTjvT+/Igh9Gn1p/7pDB/ZX6zuUSWeC953P7iqMMfjV0XC/a9gBm +HbguFbvIoG46eWNR6QNwDGEoWLvL4FPhPY2WqQ/gaLNjZIOnDI5oyFO+ez8A +Dd0vB4KvyOCxwlNXCMwH8GfnxH+88TL4/NX6rzxRGeC3bapTuFYG12Z3ZJ+0 +SQeFu0X7btfLoOaFHf6JxunQx3auSaJRBv8sMhQ+QDoov1iqlG2VQdH8nOf3 +ZNNhxFYgU/6VDCavdwl7M5QGerGql7THV/kf68zLn0gD3mlvhr2ALMYbnbf/ +9t99KDfekf55gyzeJEb0yxXdB9vyf1IugrJYdcYzzi32PlQHhhPPiMliojT5 +3FHz++AunrzsQ5bFl0QTmv9ICnTr1/ZEbZPFh7Mi274v3YNbaRxXS61k0fFz +0L+GPXfB4s0bIXdrWTTpbX5MULgLknw5OTQ7WdxtS+XzE7gL988d7LnlLIvq +mqdVinqTIXvPLfrFc7L4tegy2cM+GSpZjBfaEbKo0jNpbxJxB4Y0Dkg8fyKL +DrsOd739chvun5Yu8q+QRS3Jm1+yum6Ddcas7vZqWewsOiYfXXYbxtfddM+p +l8UfdtcqsoNuw+yHd/WRHbLI82tBjUi+DWwhpx0Pjcji2OhZapZ1IlBfxZYO +rJPDvSGj3yR+JIDkQW4hu/VyKDi9f+bs+wQgtPp5zRDksMbFiGOoLQGWa1w3 +s4vK4ZCOpupsagL05ewuViTJ4Uf+B35shxIgImAxz3+rHN5yH0h5UXITvqpY +Z9Cs5HBx/QpX8LV4+JzXt6b4lBwKV27L0jobD0N0QxtN29X3NbnSHCfjoU1K +i2TkJIdLL6xN2zXjIYNb+L6PpxyKZorxbPwRB+bDrXc6QuTQBh6yMR3j4GmM +StzZIjlkjHe05VvGgqq8uOJsiRxu3R0433UgFrIb2FrcSuVw/Ivi8TU7YiF+ +7tWiY6UcypntSropFQvOluetrRrlkDI1lDRQfQNEGVUqB/rkMNcytaa5NQa8 +anW7qCty+FMt/wrHr2g4ny/yxJiNhCrtdbfHBqNBeZE38MYaEh77T61xqC4a +MuN+SApwktD6neowOSwaYpubjHh4SXhXY9d5lng0OCk4lq8IknBHsJvi6V1R +ILKQFzLNIKGvso+LV1YEWCpkn9KXJ6HwhlQ1p8gISDuZrpm6kYQXcv/Tu+gR +AUqtt2dMlEho6b2mY1YzYvU/EGxevZmEGyM6dRRehoOX1kl6hDYJi5NuzDas +CYcuf2ILw4SEHnMlOqUXQ0G4lD81wJSEzt8Xev5Yh4LlF27fQTMSfuKo1j2+ +PxTGD60oxRwlYXok08hRMhSWSdMJ8ydI+NLiwMGM2hBQbGq2b3YiYc4g+8Jd +nhAI577IaetHwoCunQnTxUEwcbKlKdOfhGMz6i8C7wXBvnLBoC9XSejiXc+r +GBEEPA6Fa05fI6HU8C+DctsgCGscW/EJI2FohPRsoWgQhPoZ/r4eR0JW0swk +8do1CP5Jma3KIqFiWpaammMgfDpwtnA5m4T3rzDquMwDYXdGrTvkkPBr3iiF +pRcInIctppvzSKgzX6o+SQ6EoKLrE93FJEw88bEh70MAXHNZHBuvIiGfuKXL +zuMBEDDc2U/sImHhtuW9zs/8wU2WkunRTcK4YgmPgFR/OGLlfbbzJQlT7uek +PvX3B8V3srwRr0noqREckbzTH/r6PLTY3pIw7KTd1YUaP9jURUyZ/UjCcCVX +Z+7GKzBYY277328S7j9hbpH06RK0LOUqb1wi4b+CftaL1ktQorXyJ3SZhAnf +1mwl5V+CkMrsm7r/SJg2nmdB8boEqk9+NVdxknGBtsknbs0lCMu/w8zZQMZy +4Xtm/+i+sDX5PSuYTsanPtKxusE+cHLC9cgQg4wT+npJoW4+EKG+WL9FnoyO +KcyoTyY+8KFH8OaYAhmLvXxaZsg+EL5unyaqkvFr6ok0tQZvGLryOGRJi4zu +Grcnz3B6Q/CpMFkvYzL2F/Pw/7t3HooKhcPbD5Nx/JGHtlHYeXi7lP6dZErG +DyIpSk88z4NyUk1zt/lqfOqtmaY952Hg5XfXTcfJuLP7iPW37+dASfdExYQD +GZWsgzqcD56DXtpm41OXyVhjPxiuRfQC8URCauoVMg50KwRf+ecJVtzfZob9 +yFi3MP6he8YTPk8WRVkHkLG3lcsjr8MTFouUWm1CyBjt5EjbFOIJMpryOvY3 +yHizpMvN8u9ZcDSUU3J5QMbtk2s7Wn96rO4XK5dyM8lomhB/0b7XY3U+fWif +zCJjZs2pCbkyD7gomOLkmkNGiXHWzR/eHhDVL/nArZCMRT2+gxzLZ6DERlTy +TAUZqyx4AmrWnYHfFwR4zv1HxgvaMRV16A5tXT/tul6QcXe5UEYmxR2SmIP1 +G7vIGF9+OTqP0x22v832GXlJRtqWB29F2t3ggjZ+Mewjo+/Qu1xHUzf4zn7u +ufzoKt7ZEY3e064weWMg+MPCaj2fX2xeqXSGyom6Ec3FVX8WmflZ950hfFeW +9q3fZFTPV73jHOwMzJ+ecwbLZNyY1ErQNXYGhyPr7KvWUHBCCLRw0glGpXX0 +EvgpaGQRJGNMcoK3uQ/WHKBQcGtZfeDvdAdopA/pxlAp2CKuNuoZ7QAF6cLB +PTQKusQkZP7zdoCAOyFcx5kUfDYaxn78oAMwIpzWuStRkIeh371+0R68nBVF +YtQpCE0Ya2FqD/zMUvmeAxT0a/BkfRG3g4WMaRfRgxSsJ609ML7WDoZlafmW +hhQMiymKnv9hC49Fb236eIiCM288vY06bcGCy0dtzoyCxpfZe4ev2ULWuJa2 +6CkK3nGXLDv73QZ0MhsPWZ6joJQMI63rnTU4qWxVTjpPwXWW7YqW/1lDbHUW +f98FCjra+TbMV1vDx5er7XuRghKlJS9OJFtD+F8jvf1+FLyy8+6jiWPW0HPk +nbpG2Cq/n1Bdb8UpcOSdkxG9S8GsZ+9kjvdZwY0Eh2XTexQ8o1cWolVlBZVy +/YNxKRQso20wU79nBevUq28LpFFwROBD2TVbKyixDSCuzVrV1/Mjxu3bCfjz +lH/tXBEFcz4UzDsQT8CNM3TWq0YKHh0MeKXvZAm7R1P6FZop2G6gxGtkYAmL +pqJNQS0UfB33aeCciiVYa3Inb2ujIPltSpPY4jFQ5Zzce6eTgvRAA7vayGPQ +c6fggfUABS9sMJZ1KLMAkZYtx7/OUPDF5OmYo3JHoWN7wZ59XynYdiYxe4Dr +KPjn0dTSv1HQ8uOf/HOzR+DzDRFe058UlDXjJP6qPQLllr/KyxcpeMJE66Dq +ySNg8a1a0J+DioW9GnTzB+ZwV0q3g1+CiunGV5Yfgxm4PuK/ayRJxdn0lYVC +RTPQ2NvvFitFxb+L7pU1YmbQ6+UuICxLxcEhSV2Rb6awviPRWIpKxZjd+qYl +6aYQcHG6b+MmKnp/WF/vx2MK9m8SPu7ZRcX7X6ZF5j4eBjW3U0/CdanoXnkl +Wq/nMLCtUQjp0KPitYgbfpnPDkOKUj3DaA8Voc84MjnlMPQFTbqYG1AxXi/a +w9ziMOxT0/lmZ07FxQW2vF8vjUHpxpflABcqJiekXV24dwhC+KsG37tSUeJs +lKfw5UPwISKyUsudiqLhV4qOHDsEccGbzs+doeKSreGZvaKHYMH33LTTeSoq +LJW+fBNnBPX2/94aXaXiPdGrK8E3DMFES6xC+hYVVYX+IyhlGkB+xUSCbyIV ++XJFt0WFGgDntmqvvttUfN3IJcbnYgAVKlbKsclU3CwhFe2obADS9AdZHGlU +jF4/GZ1YfQDGN6gkTOVRsbXsMatsYD9cHN/jWfmMiqUyfjZExX0wHeK6daWB +ih3VI+eHBffBSUbML70mKnI0CNa1/NkL+k5v/LpbqKirqxg32LEXBCftIj93 +rOop9kymuO+FAlbAA+E3VNSrto8QK90DIz+r35ydXPWTJSA1d1gfTBM+JJVP +UfFm4FLHXW19eL6V/cTyNBV7tfX7LZj6UHhh/1jYLBXrY+KLBf/uhku/+mfv +/6TimWT99UG5u0F4aY678y8V/7E76+7m2g372VW0NgrSMOPV5fzqLl1YfhSV +7CxEQzHZSKfdNbpQZDPx56EwDUP27981kqsLwg3pTxliNEymfOAyCtGFkavC +O2nSNFQ+snfmn7YuXPz7G+QYtNX/iPtCYfEuyFls1hfRoqGUq+ZYTTrC8Rxy +ttkOGlblF292iUNYb+HPlaBNw6LuoVB6IML5iu2tgkBDI7Y4ji5rBPTO20fY +TcPPR1Tjh0gIAz9vGKwzoiHv9Ix8y14A7q+Wh9fY0nCZTj9j6roTdofW1R23 +oyG//QVOdoOdcE2GolRuT8N+3X3fXinuhBWDSS43JxqOX2jRejOjDQs5PjW9 +7jTc1XO1yeGcNny2TWDm+NCw9mSQdWzwDmju6/xrdJ2GRPk/QuQ6TWA/s9kt +N4aGH79ecKvM0ARce2uAI5aG7z1ef3UP04SaLSdKK+NpON+ryLHpsCaUxk45 +U5JoeCDT4NfazxqQcYC7dz6DhrZw/jabiAYE1GHevUoaXrg/qGcQpg4DFxeW +h6to+Oz0b/hyVh1UtxQcoj5djdduuXzHUh1GHorN59bSkJohYonK6oBxs1DR +SMM2850Hb/VtAzb7e29evaBhp3McZb/iNrjKu8jGPUpDf/NLbfqftkBfU6Hp +gTEavqyaDA14uQWU/e2yr3+kre5jbVNdNVvgw48uA+HPNFRpe2OWfWsL6Axl +JZKnaXgpJSJh574tsFJkqqQ9T8NzWwOE/paogb9Z8VFPXjoajo+76MRuBpsF +t4puPjpuOtN51Mxv8+p+LC+mzE9HWarBA3/XzcA3lN43tZ6OcnxeSxv0N8Mt +uwRze2E6nj/tYUxdUoUCL1/To3J0TFnWePvbVRUGY/UO7dxGxzrQ6s57pAy1 +amzFd9XpmLBr6ta9WGVI661Z/2c7HV3aA+ceeSiDo7h6V7kWHX9UG43sUVaG +76nyhqpIx8zxQgORwk3AUyxgQDWgY1f7q2fUR0qwvbN/D68NHZ/XfSrn7VEA +S/9OPRtbOpZ/lW8qLFOAKypNWGVHR8HTHzo87ihAY1yRlovjKn7ssqGhjQIc +PBKi3O5GRyuz6VLXHxvBelhNNMKbjto7Kr4LSW6EyO/Xx3mi6TiWR7A18mdC +QUbQmPV1OvosirC8HZjQbeo7XBlDR0ZjXVXVQSYIl9u/dY6joxCB/9F1KSbc +v7Sjsy2Rjk57vQTcqxlQyjH5JDydjpffT3ZMLdNhSGR3ME8FHV2DnodpJNBA +fCrKcX8lHeM37jKdvkoD87rX+yKr6NgneZz+2I0GXY52Avw1dNS8HBBzWY8G +DRXXEjc0rNYn0cJ46ScVso815Ij+R8eJOvPiFAsqeKbodNKG6XjzkM2dKRUK +FHmGFjuMrPKnNdn9lqHAlH5XXPYoHR+Pi4xK8FPAftbqiPynVbzStqIbE2Q4 +An7DipN0rN4y9OhgBhm0R59+V/tJRzvmD5e/4mTgomuK7uJmYGRFWWqLIAm6 +RsLWpvAw8HGFydOENSS4da9vbpGXgdeefPVijcgBTfj86xJ+BnYfSpYZuScH +uhzFsSRBBvbYPFn0FZWDq6O0dWwyDBzJGNM4QpCFxRQCW70aAykm+lUFMtLw +7Nipr5JbGcjFd/Zy8j8pCBMp+uC9jYHL7tmOOaNSIHrdoFZZg4EzQ/8p07Kl +YNuV0Ev3dzLQeZvQi9uqUuBluTznt4+BqZLTo4cNJGFadGJS+yQDdW9Wzmy6 +LQ4v5sPrAk8xMFn+kEyqvzgU9W68+dx61Q/+7pF3FAeveDdtY7tVP0JFZ0K2 +icOiwNcYO2cGSl5drLd+IwZcaxe2RHoxMLNg8l2khBiQfnL494cy0GzhtAVf +qQiw92SaSIczsKU0Putkigh8LNFn2kQw8O9ql7SFiUD2mbCXU1EMrNTdsOH9 +CRHYNMVHXYll4I18vX9reURAa5TYRrvLQJMXIw76tsJg3i0n6FXMwOB67bYp +uhB41/4OKilhIFFg30lFISFIyn89P/uIgRo/mIf82YRgMCzsrdsTBi6dvv3b +8p0gWOPXNIcqBtYXOfnPxAmu7h91KseaGHhSXXHKiV0QAm5aGWI/A+kjsb1a +3wiQEbi93n+AgWJeFpg1TIAmD+Lm2rcM7PvVMiHXTQCugy3CWkMMTPMVKNEv +IkAU56ahLaOr+sP5Tx0+TYDEC8uuzGkGCvH8NKwY2gAFR++Gr//HQLUxOdvM +XwJgsekKtzMbEyn1cxYv+wWAk8MqtGENEyNtLsnIVgqAVZFs8HlOJm6apAfI ++grA+rUZVwd5mTjhtqmtaJkfzj7O8c4WZuK6d3b1s7z8sE2g3F5HgYm3LC7n +rezgg7GxxI+3FZn4zCcykUzig5hKH9vvSkwMjXaVtOXkg892mtaZKkzcMcXj +vqOTF5Kqa47zbWPi5f7VwWrNC3+cmkz6gIk6Ak+ftUXxQF3jSzxjzsTCYsOD +dr+4IPgpR1bJESY2kXwjUke4wOCJOu/Po0yUaCMc/dHOBQNZ9175WDJRiZ9x +4N09Lvge7mwbeIqJRE4GtVKPC2iH2IITXJhoGT8fGHlrLUS+U2mt9mPiUoH1 +ib/7OMG411bxrz8T1dMl5ka3coJY560bELDKt3fad5DECZl1S0ebrzHxVNgE +G/dvDqhNb53oDGNi3MjffoM8DvjmdIpvNG4Vf+xU6zkCB5jPxRhyZzOxtq/A +vWpqDTR26ap6PGTi7l9z5l/61oBq7oJgfw4TX5ItlRSb1gD/yZMD2fn/z08c +zN1dA82tm+z2PGLibV/FUxFGa0Dt7ouLITVMvM8h+Savgg0IunyZHK+ZyLPf +8oOZ2j8df+m6ULfe1Xyw35l+teGfDmvB0+X1GyZ+U7RnXJhZ0WnLf6v8YICJ +4c9GLm/KXdG5KpJbpfuBibkkRyEbyorO7MTe7sBJJhaoN/wolvqrc6Jp6dHk +1Gq/xBR6Xlla1ulIKU44zGLimM34Dfd3yzrZJmKW5K9MdOJs5q+4u6xjVfP5 +07M5Ju7Vutn0TWY1PjG5VX6BiYRnfxferCzpaHga5cX+YmJ+gsrN98NLOsKM +cg/rP0zcI9Jz2jRjSecam6tJ2xITGQfSrBuClnS+DcpsU/27qufaN9phhyWd +k2WvxJJWmMj//Ngt9r1LOi9uhPz594+JHVfuRb+RX9L5H4UhA4Y= + "]]}, "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, 9.5}, {0., 0.935538188244949}}, + 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.992073092550516*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"b794cd9a-5f06-6944-9823-a2f92c3ea431"] +}, 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", ",", "3.5", ",", "8"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.99196423637006*^9, 3.9919651876297417`*^9, {3.9920732438688984`*^9, + 3.992073248614897*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"c6042d45-7676-6c49-800f-09aa679e359d"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVlnc4FvwXxhGF7PDs56HsEC/ZOgehosyIpMxUygqR8tojJFvICiVJiKi3 +UkZKWlZCRsjeFQ0/v7/Oda77vs753p/r+8cRdfQwd2FhYmJSYGZi+n/1C7Lg +YmLiQs2BidvnjGah8sWZwo8sXDgq1qHqcGAWZjjDNUrYuDAtK0rCYv8sOGdW +ux3ayoUTzCtiuw1nwaxGqClbeEMPTche0J0F2fnuS+pyXPg83munscYsDDnZ +zXnbcmFVX4JrhNQsGBu5fBit5kJitnDXMsss7DtiM80SwI2b+fpiokpmYG5H +CKuoAg86aN5WOrV3Bk6FNcSVjPDgsXDTgZKOaeAQ/ermUsyLdCbLe5T901C6 +J0dUQJ4PXwT90/y0agqGr9SpxSfyIUuC+/vhtUlg3TEcpbXAh2ctUURAdhKC +MsWs3I340eVaq8SC+QRs3nWkXfUuPzaMX0luNvoGY4VFTWHsApj5SmrVXXMc +KhzXlzc5CqBRsQZHDGEM4vBAO+OFANpuStXlefYVnvwpl3hM24Yse4jfo91G +gKWXVXo5eBve3zKX1DowBApMJ51ODG7DFcOOxiajQahmG6Ee1BDEH7ToR5Op +/XBAxvTfzixB/KO5pVD0UC+oyHc7DnwXRLFtVRF/DbtB2cxkLtRGCBdkKrYQ +qR1AffKx6mi9EG5/rSp+V/o92HJ6/6gWFMYjeRrfy1TfQKkv8+htP2GcTJDi +85F/CabPSs0YH4TRdXGrD9v6Cxi0PPH95U4Cdo1KFKu6PINQ9i36PPEELN7B +M+hNqId2zj12AQkELGv/ci+ZqR7I3L4+X68SUGP278CLiTqo5B/Jr08i4OP0 +MwfMH9fBEPnpX9cMAipLnPwi4VgHKOf/8GkhARvDf6vcqXgIf83Gd3rVE1Db +33WOyaYWArNaBDrGCWiRyXTibWc16DoWZxybICC7rIwDe0M1cEpH0McnCdhh +QP9rVlYN12t0ZdZmCPja4uuscFg1PHr/n47IMgH5K7lHXBWr4feWak93JiJO +6go8Jl6rguDzee2sJCL2tPsZJNpVQvjBgNjdB4hYepptibG9As7rqw3VGhHR +boeycjJ/BThr/1DVOEjEuBchWYLMFaAn5zu6x5SI3Q3rgWHP7gELtxfusyLi +jusuU9F77kFIm9t3W0cihuikvGqFcrhsdMTx30AitlQE3nxgVQYX9qtqvC4l +ovkLO/KTD7dg9NZiklIZEXmO9nlvqr8F5uzlU1l3N977tPPnsfxbINsiluNe +QUTtcWsbc89bMLRXgImnhohrv3KZVXlvwQGcaTJt2NAPOWd+NS0BmmqhWVc3 +EbdX2rv4jRRBbJp96Z5PRKy4l3l035si+LlC2lTSS0T2e5uH5WqL4EN1YrV/ +PxFHj0m5K10pgsh/LhNII0R8CG95JJWLYF7Opv/oLBEXn7naF8XchOdivKeG +WEn4dr5ye5FuIZTt81Zw20xCdeuYUDG5Qkh17/wxu4WEKyZ72eoIheBWnRX5 +m5OEYR6xSqIzBcCzV+omgZ+EduUqvtMZBWDjpPPlII2ESyrBpSeW82E+3+dw +/W4Sco4vPTGrz4Pepi6qjioJuTVFhq1K8uDFhPrXFjUScgwq/OORkgdpikw+ +nZokDNTLoHw6lwdaDXGJ8zokvDA65ZoolgdRg0WvJQ6RUCN1jrIukQt0Ro9O +sisJ37XOpMz8yYaIUtWtTG4bef5qbX42kA3Tu9M73E+R8KOKXF7F02yoM7Y6 +aeBOQqnn7HNTIdlgGdgRt+pFQpaMOMeXW7IhtvNd9/FLG359H35WUhb8uNJ6 +VjaFhCYmZI2vpplgT5BWzUwlYY+80JVDuzOhsSCaaXM6CZsvOop2kDIhqc4w ++UsmCfWs7BsVRjJAfrzpYVIuCfn1FH3k/DPAWff5ptVSEh69+mab6M10ePez +PrOpgYRzKb/uH+FPA/sHa0o7X5Cw+3H59YurqTDjpdGe2EhC4oVRas1QKnBO +1bHYtZCwwKn/hldlKuztf3hmsW2DN6uVN9PhVKhtqNFm9Gz43XYZuN9IgRux +lUMXZkkoR563/q6TDLKGixcH5kh4xbf815hsMjza9I/w3gUSXrbu7pwmJENP +0P0DvMskNCufHFGdTQIBj4qqolUS7nQUOtmalQQRFuURH1jJeFh2Xe7V2jVw +p5ZKy1LIuIM1QLa5JRH8c679U0ElIz2oqLakKhFC6QGaynQyjo9M5ObmJkK6 +yL6DWqJkjPVYV/jgn7jx/8Y8jSXJmCBcsArSiUCU2/7QXYmMIUyaS1YiV+GF +9nWDu0Zk/MDnxH7icxy0PwkxUTxIRv9HdsVuD+OgB04deXBow//h2puM1DiY +1VE7/Z8ZGRVrkkkepnFANOiKf2NNRm2LwaNzLVfg3CGBzhknMl7K1YqjPokF +8vFYJ/kgMn4qpvYxmqOhwPDcuYxLZPwoM83WdTsaZBTMA1iCyXjKwyWkND4a +NJjJV7tCyEj6vGn17uFosC28XX85iowrHNcaKONRkDX+kv9tEhlviXk9COCN +Aqrnlmcet8kYvM8j6aJvBNw8MvXqUykZnS6GqzfZRYCszttOvTIypnRcrJPe +GwFaAulThHtkDJDO6dXdFgF21RKEZ9VkrLkn0lhZGQ45P/XP8T3bmD88E+f9 +PQzoIeHU+11krLw/ztSQGArb5fnS1HvI+C1+W7pLQChIfs7iff6JjJcJm7dI +OIaCwu4qlo99ZIxhI/1aVQoFnYmhb8vDG/upixOTPSHgbAYP1ObIqLWXNN0l +GQK3RdcOPttCQfR/W0GuDIby9oiWfRwUlCDC8reYYKi8yK/znpOCfkyvno47 +BEN9p5TyMDcFP92IJ/gJBENbjDWZVZCCI8Yhc299L8PsQvWYoQgFq0YthA7o +XwLl5x7Bb9UoGMb0jLTAdhFqun6saWtQ0NpJNLtqNBDUpoL9yjQpqNIsM3q9 +KRA0BRPPxuyh4PHCvF3dEYGg61pxVG8vBVPMet1Z2APBhHNBtdaEgptF2JRY +tgXAaXPv+RuuFOx233umUNcfpl3XznC7UTCPaLD+QMIfzl0MHb94ioKRPUNP +v3H6g9fNpIEj7hScC4rWKv/oBxe+V7YJeFOQsCbh+MDVDyKuL92KvETBg4Vc +T9KSfCFv+LzDuRQKcjfe1nnKdB4OSPXf7UylIKuYVT3vhA8sndVf00qn4BnK +VqWL733AYFUoeet1Cn7j/lVRUOADU7y1jbdyKXjHfvmRgoEPqGivSo6UUnCb +n6ypQpI3vE6/NGvdQEGLp1Wb/mh5wfn+UY2nzyn4i1kk1F/KC+g7DkVJNFLw +/lWtdA5BL/Asp4usNFPQ1F6WcX7KE4SbnpoltVHQ88/UwPEsTzixyPygrZuC +DvFUj59/PeC7ceRFnVkKXu94pqhVcRao1mkqLXMUbPZW4KuNOQs6DsULxgsU +ZAqNNXd0Ogtxvs0njyxT8PFRD+p+wlnYcWOzpccaBX0FW8PNQtzBdC5SNmcz +FSlLZl5U+zNQei2q/yedilL+PV409VPwLis947IIFcMeD99UJ56ClaISC9bt +VFwvWAgM/uEGWN/SyitOxR3zeoZRNW7QPbylRmInFY2z1mZDVNyAVTk6wVKV +il5XPPN/ap8E+65oqDChojVV40PuKRdg3pf6m2JGxZMPFiY8TVzgZl1+XZQ5 +FVtkHso47HaByex6peOHqfj+TnTmDWYX8HOaluQ5SsWc01wWMVnOkDBvwufu +SkVO9d7R9Q4n+I+TMCR5iYpKqg8DI485womgHTeSL1NRb+TknTUDR2CZ3XV0 +PZiK55k3fY5RcIR97/d1doVSMVO1p/7nJkfoSA9sjYim4o9aM4ZQmQNMiw3c +H0mm4lumXWtyzA5AhaLQ3FIqZnyz5xYPOg6avjbl0mVU7FsOmKKaHwfbO9y9 +VXepaFRwLtdI6jhkEvwUX1ZQ8dX7vb7GnfYgPG8wOF9DxTv6/A4divbAl/9N +W/cFFZW1ecOfL9sB6ybZ1a+fqWjbq37UPM8WdqgPinn0UzG9bd6oKMgWdD1S +TFcHqMj1u49T0sYWQj7/LuEepuJ/Nb/YagRs4W/VGyuVb1QUpHiE/YqygZ/O +HtVRy1T0DVQXWAw8AtPNlR4y3DRU5R1R3xJiBUryhu53eWhoHfR52NzJCgJT +P7sp8NEw1/s6c5O+FbA7szqqbKNhfpLjF8pWK9jBbGWpS6Kh3rDHUEL6YbDV +XFWzFadhA83m64laS2jdOMlitWn4/vAZB39+C+AjdPzlAhqKp4s7q/00B6vL +br+uIg29jnRqk7+Yw1fja8upejSMn+V5B3fNgWlyeCx/Pw31L9yf5zYyBzWx +yNd1h2l4cnH2VVKcGRRntKVMnKXhl6TGdTkJUzh98liyuQcNX4wJ9MgKmIK8 +yuy1R5405PgoJhb92wRqP/JejfehoZvf43N+d03gJY9FjGIADWuE+gyT+E1g +MvzTpYBwGh7j9riTOnwQ5L3GXDmyaNjUmq9zsNgIFsHfxTubhpmuCQs/woyg +hofd+XMODQW8LPPbHIwAyqQd7ubR8FFQr+oSzQhMx92PmhXTkG7v+n5XxgHw +PrZkknmfhsFCOSuaKfuhZj+TuvRLGmrW2Vgevm0I3/vUiitaN3je7hM7FWMI +qp5e29Re0/BP0QuPklOG8DBteMagnYarkhXpBTKGUD/SWODcQUPJG2+V4ssN +4MmlGK68QRpeknucxfpEH1ruCwwKr9Kw9CXPY/41PWDXNzp4Y20jX7rKE54v +erCvJ6xe/DcNZYp53+9q1INXf5dTlNdpWECUde9P0IM2o+795mx05HQKtBsS +14N3o1lV8fx0rGm9x+Fsqws9JPEoVhk6fjk+eJbRh5AmaPvdaycd5b+Hvn7V +jGDJe9Xliywd5ayVuxLvI7xjXdWr30XH1LMdHu5RCC1zbUyeu+n4ibBFyl4Z +oabpfOBnpONKjGMKQwIgxavxbKU1HbcpSX251aQF5u6rfQwbOuZ5lOUo5msB +30l543hbOvb+5BL+FqQFcXYZMm7H6Lj14haLfmUtCDN0H6c50fFGpsTIcLEm +eNMEHWLO0TGyIPqETLIGmLY6WZ6IoKO1CEld7YoaqKxcSGmOpGP4gXaTMnc1 +oIgmdMhG0/FyRM5Wg0NqMHbhoeVqLB0vyK48muBXgyAp7sNJiXRU3aTHPXNd +FW5F1RxuzKKj9u2bCY+rVIDZgMNaqnJDV7gTa76uDGNe9PSEqg1ePF8qJUaV +oS1HqXu5mo5pY3rylNfKkLFyzLqhlo7EJZMQ53RlkC+qtLb9j44keb/D5xWV +wZbV7kjcSzr+txN3nzyjBJXPy23mB+jYVh/8O21FEQSrzrD7DtLRt4wl0qBf +EfwKpWpXh+j4y2tntXCTIqiHFwhuGqVj2MMUM2KqIjzTT3srNEXH+kWekSwV +RXj78pK+5g86Ni1mlwQHK8B0u7FiJC8DXe+LtmibyMOhpxyDnPwbvYTINQkJ +eai415xwVYCB0iuvCgz+yIFPIk5nCDHQbFuY/84yOVgzUy65Q2FgyLW5pWAu +OeDopNDeSzIwX6y+R6h7J0h8nmSnIgP7VGc2CSVJA5vSzbpIHQYKKp6mVHhJ +w9fYY6cXdBk4PTu16GMmDQUa71436zOQtniC4MsvDYzrDxK8jBj4o9WozjpZ +Cog2/wq2WDGwVe6hrs8NSdjaLSTifZaBwfnXMmveicOk/Nt3fecY+Ke/YW3r +A3F4FRkdYujJQBvqqmp4pjhEq/wapvowUFPycUafoziwpg0WtVxgoNuDpT1S +P8Tgr+WdnbRwBlZa8IpvlhCD+Q+o+vI6A416rdafZG2HO1JGwseyGSjZJSfu +GLIdXC8fXlnIYeDNdrYzMie3Q7/06SpKPgN5bzVFSStth1f/Ju/yKGGg4S9H +9742USiSH5MUrmbg1rMdf75tFgXb2CtE5zcbfKU6ZtOlGCA8mPrjZzsD0/49 +PnDyNx3e787rin/HwLAjkSJ+7+iwb6g6pfYjA3MEzqFxAB12qw3wbe3dyFtp +HNb5hgZ8YwoclWMbfLi7tQRCqfBaU/ObwbcNvr06Qbk2VIi8pt/yeYKBNRUp +H1wUqfBHyzaCbWaDb96N8OwhCkwmhzHbLDFwqYz96O29FCieiB+cWWYgR+Hp +O99pFHCAjKeh3xkoGi6ZG/iDDD2TZZfKVhk4rje1R/wOGZKx1k7nFwP3bidY +GEWQ4VBag2bXbwZyvx7rLT5OBs7p1+QzfxnYnel9RVWDDE06Xavr6wyMuKVB +/iNIhv8B8LNJ5Q== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc4FvwXxhGF7PDs56HsEC/ZOgehosyIpMxUygqR8tojJFvICiVJiKi3 +UkZKWlZCRsjeFQ0/v7/Oda77vs753p/r+8cRdfQwd2FhYmJSYGZi+n/1C7Lg +YmLiQs2BidvnjGah8sWZwo8sXDgq1qHqcGAWZjjDNUrYuDAtK0rCYv8sOGdW +ux3ayoUTzCtiuw1nwaxGqClbeEMPTche0J0F2fnuS+pyXPg83munscYsDDnZ +zXnbcmFVX4JrhNQsGBu5fBit5kJitnDXMsss7DtiM80SwI2b+fpiokpmYG5H +CKuoAg86aN5WOrV3Bk6FNcSVjPDgsXDTgZKOaeAQ/ermUsyLdCbLe5T901C6 +J0dUQJ4PXwT90/y0agqGr9SpxSfyIUuC+/vhtUlg3TEcpbXAh2ctUURAdhKC +MsWs3I340eVaq8SC+QRs3nWkXfUuPzaMX0luNvoGY4VFTWHsApj5SmrVXXMc +KhzXlzc5CqBRsQZHDGEM4vBAO+OFANpuStXlefYVnvwpl3hM24Yse4jfo91G +gKWXVXo5eBve3zKX1DowBApMJ51ODG7DFcOOxiajQahmG6Ee1BDEH7ToR5Op +/XBAxvTfzixB/KO5pVD0UC+oyHc7DnwXRLFtVRF/DbtB2cxkLtRGCBdkKrYQ +qR1AffKx6mi9EG5/rSp+V/o92HJ6/6gWFMYjeRrfy1TfQKkv8+htP2GcTJDi +85F/CabPSs0YH4TRdXGrD9v6Cxi0PPH95U4Cdo1KFKu6PINQ9i36PPEELN7B +M+hNqId2zj12AQkELGv/ci+ZqR7I3L4+X68SUGP278CLiTqo5B/Jr08i4OP0 +MwfMH9fBEPnpX9cMAipLnPwi4VgHKOf/8GkhARvDf6vcqXgIf83Gd3rVE1Db +33WOyaYWArNaBDrGCWiRyXTibWc16DoWZxybICC7rIwDe0M1cEpH0McnCdhh +QP9rVlYN12t0ZdZmCPja4uuscFg1PHr/n47IMgH5K7lHXBWr4feWak93JiJO +6go8Jl6rguDzee2sJCL2tPsZJNpVQvjBgNjdB4hYepptibG9As7rqw3VGhHR +boeycjJ/BThr/1DVOEjEuBchWYLMFaAn5zu6x5SI3Q3rgWHP7gELtxfusyLi +jusuU9F77kFIm9t3W0cihuikvGqFcrhsdMTx30AitlQE3nxgVQYX9qtqvC4l +ovkLO/KTD7dg9NZiklIZEXmO9nlvqr8F5uzlU1l3N977tPPnsfxbINsiluNe +QUTtcWsbc89bMLRXgImnhohrv3KZVXlvwQGcaTJt2NAPOWd+NS0BmmqhWVc3 +EbdX2rv4jRRBbJp96Z5PRKy4l3l035si+LlC2lTSS0T2e5uH5WqL4EN1YrV/ +PxFHj0m5K10pgsh/LhNII0R8CG95JJWLYF7Opv/oLBEXn7naF8XchOdivKeG +WEn4dr5ye5FuIZTt81Zw20xCdeuYUDG5Qkh17/wxu4WEKyZ72eoIheBWnRX5 +m5OEYR6xSqIzBcCzV+omgZ+EduUqvtMZBWDjpPPlII2ESyrBpSeW82E+3+dw +/W4Sco4vPTGrz4Pepi6qjioJuTVFhq1K8uDFhPrXFjUScgwq/OORkgdpikw+ +nZokDNTLoHw6lwdaDXGJ8zokvDA65ZoolgdRg0WvJQ6RUCN1jrIukQt0Ro9O +sisJ37XOpMz8yYaIUtWtTG4bef5qbX42kA3Tu9M73E+R8KOKXF7F02yoM7Y6 +aeBOQqnn7HNTIdlgGdgRt+pFQpaMOMeXW7IhtvNd9/FLG359H35WUhb8uNJ6 +VjaFhCYmZI2vpplgT5BWzUwlYY+80JVDuzOhsSCaaXM6CZsvOop2kDIhqc4w ++UsmCfWs7BsVRjJAfrzpYVIuCfn1FH3k/DPAWff5ptVSEh69+mab6M10ePez +PrOpgYRzKb/uH+FPA/sHa0o7X5Cw+3H59YurqTDjpdGe2EhC4oVRas1QKnBO +1bHYtZCwwKn/hldlKuztf3hmsW2DN6uVN9PhVKhtqNFm9Gz43XYZuN9IgRux +lUMXZkkoR563/q6TDLKGixcH5kh4xbf815hsMjza9I/w3gUSXrbu7pwmJENP +0P0DvMskNCufHFGdTQIBj4qqolUS7nQUOtmalQQRFuURH1jJeFh2Xe7V2jVw +p5ZKy1LIuIM1QLa5JRH8c679U0ElIz2oqLakKhFC6QGaynQyjo9M5ObmJkK6 +yL6DWqJkjPVYV/jgn7jx/8Y8jSXJmCBcsArSiUCU2/7QXYmMIUyaS1YiV+GF +9nWDu0Zk/MDnxH7icxy0PwkxUTxIRv9HdsVuD+OgB04deXBow//h2puM1DiY +1VE7/Z8ZGRVrkkkepnFANOiKf2NNRm2LwaNzLVfg3CGBzhknMl7K1YqjPokF +8vFYJ/kgMn4qpvYxmqOhwPDcuYxLZPwoM83WdTsaZBTMA1iCyXjKwyWkND4a +NJjJV7tCyEj6vGn17uFosC28XX85iowrHNcaKONRkDX+kv9tEhlviXk9COCN +Aqrnlmcet8kYvM8j6aJvBNw8MvXqUykZnS6GqzfZRYCszttOvTIypnRcrJPe +GwFaAulThHtkDJDO6dXdFgF21RKEZ9VkrLkn0lhZGQ45P/XP8T3bmD88E+f9 +PQzoIeHU+11krLw/ztSQGArb5fnS1HvI+C1+W7pLQChIfs7iff6JjJcJm7dI +OIaCwu4qlo99ZIxhI/1aVQoFnYmhb8vDG/upixOTPSHgbAYP1ObIqLWXNN0l +GQK3RdcOPttCQfR/W0GuDIby9oiWfRwUlCDC8reYYKi8yK/znpOCfkyvno47 +BEN9p5TyMDcFP92IJ/gJBENbjDWZVZCCI8Yhc299L8PsQvWYoQgFq0YthA7o +XwLl5x7Bb9UoGMb0jLTAdhFqun6saWtQ0NpJNLtqNBDUpoL9yjQpqNIsM3q9 +KRA0BRPPxuyh4PHCvF3dEYGg61pxVG8vBVPMet1Z2APBhHNBtdaEgptF2JRY +tgXAaXPv+RuuFOx233umUNcfpl3XznC7UTCPaLD+QMIfzl0MHb94ioKRPUNP +v3H6g9fNpIEj7hScC4rWKv/oBxe+V7YJeFOQsCbh+MDVDyKuL92KvETBg4Vc +T9KSfCFv+LzDuRQKcjfe1nnKdB4OSPXf7UylIKuYVT3vhA8sndVf00qn4BnK +VqWL733AYFUoeet1Cn7j/lVRUOADU7y1jbdyKXjHfvmRgoEPqGivSo6UUnCb +n6ypQpI3vE6/NGvdQEGLp1Wb/mh5wfn+UY2nzyn4i1kk1F/KC+g7DkVJNFLw +/lWtdA5BL/Asp4usNFPQ1F6WcX7KE4SbnpoltVHQ88/UwPEsTzixyPygrZuC +DvFUj59/PeC7ceRFnVkKXu94pqhVcRao1mkqLXMUbPZW4KuNOQs6DsULxgsU +ZAqNNXd0Ogtxvs0njyxT8PFRD+p+wlnYcWOzpccaBX0FW8PNQtzBdC5SNmcz +FSlLZl5U+zNQei2q/yedilL+PV409VPwLis947IIFcMeD99UJ56ClaISC9bt +VFwvWAgM/uEGWN/SyitOxR3zeoZRNW7QPbylRmInFY2z1mZDVNyAVTk6wVKV +il5XPPN/ap8E+65oqDChojVV40PuKRdg3pf6m2JGxZMPFiY8TVzgZl1+XZQ5 +FVtkHso47HaByex6peOHqfj+TnTmDWYX8HOaluQ5SsWc01wWMVnOkDBvwufu +SkVO9d7R9Q4n+I+TMCR5iYpKqg8DI485womgHTeSL1NRb+TknTUDR2CZ3XV0 +PZiK55k3fY5RcIR97/d1doVSMVO1p/7nJkfoSA9sjYim4o9aM4ZQmQNMiw3c +H0mm4lumXWtyzA5AhaLQ3FIqZnyz5xYPOg6avjbl0mVU7FsOmKKaHwfbO9y9 +VXepaFRwLtdI6jhkEvwUX1ZQ8dX7vb7GnfYgPG8wOF9DxTv6/A4divbAl/9N +W/cFFZW1ecOfL9sB6ybZ1a+fqWjbq37UPM8WdqgPinn0UzG9bd6oKMgWdD1S +TFcHqMj1u49T0sYWQj7/LuEepuJ/Nb/YagRs4W/VGyuVb1QUpHiE/YqygZ/O +HtVRy1T0DVQXWAw8AtPNlR4y3DRU5R1R3xJiBUryhu53eWhoHfR52NzJCgJT +P7sp8NEw1/s6c5O+FbA7szqqbKNhfpLjF8pWK9jBbGWpS6Kh3rDHUEL6YbDV +XFWzFadhA83m64laS2jdOMlitWn4/vAZB39+C+AjdPzlAhqKp4s7q/00B6vL +br+uIg29jnRqk7+Yw1fja8upejSMn+V5B3fNgWlyeCx/Pw31L9yf5zYyBzWx +yNd1h2l4cnH2VVKcGRRntKVMnKXhl6TGdTkJUzh98liyuQcNX4wJ9MgKmIK8 +yuy1R5405PgoJhb92wRqP/JejfehoZvf43N+d03gJY9FjGIADWuE+gyT+E1g +MvzTpYBwGh7j9riTOnwQ5L3GXDmyaNjUmq9zsNgIFsHfxTubhpmuCQs/woyg +hofd+XMODQW8LPPbHIwAyqQd7ubR8FFQr+oSzQhMx92PmhXTkG7v+n5XxgHw +PrZkknmfhsFCOSuaKfuhZj+TuvRLGmrW2Vgevm0I3/vUiitaN3je7hM7FWMI +qp5e29Re0/BP0QuPklOG8DBteMagnYarkhXpBTKGUD/SWODcQUPJG2+V4ssN +4MmlGK68QRpeknucxfpEH1ruCwwKr9Kw9CXPY/41PWDXNzp4Y20jX7rKE54v +erCvJ6xe/DcNZYp53+9q1INXf5dTlNdpWECUde9P0IM2o+795mx05HQKtBsS +14N3o1lV8fx0rGm9x+Fsqws9JPEoVhk6fjk+eJbRh5AmaPvdaycd5b+Hvn7V +jGDJe9Xliywd5ayVuxLvI7xjXdWr30XH1LMdHu5RCC1zbUyeu+n4ibBFyl4Z +oabpfOBnpONKjGMKQwIgxavxbKU1HbcpSX251aQF5u6rfQwbOuZ5lOUo5msB +30l543hbOvb+5BL+FqQFcXYZMm7H6Lj14haLfmUtCDN0H6c50fFGpsTIcLEm +eNMEHWLO0TGyIPqETLIGmLY6WZ6IoKO1CEld7YoaqKxcSGmOpGP4gXaTMnc1 +oIgmdMhG0/FyRM5Wg0NqMHbhoeVqLB0vyK48muBXgyAp7sNJiXRU3aTHPXNd +FW5F1RxuzKKj9u2bCY+rVIDZgMNaqnJDV7gTa76uDGNe9PSEqg1ePF8qJUaV +oS1HqXu5mo5pY3rylNfKkLFyzLqhlo7EJZMQ53RlkC+qtLb9j44keb/D5xWV +wZbV7kjcSzr+txN3nzyjBJXPy23mB+jYVh/8O21FEQSrzrD7DtLRt4wl0qBf +EfwKpWpXh+j4y2tntXCTIqiHFwhuGqVj2MMUM2KqIjzTT3srNEXH+kWekSwV +RXj78pK+5g86Ni1mlwQHK8B0u7FiJC8DXe+LtmibyMOhpxyDnPwbvYTINQkJ +eai415xwVYCB0iuvCgz+yIFPIk5nCDHQbFuY/84yOVgzUy65Q2FgyLW5pWAu +OeDopNDeSzIwX6y+R6h7J0h8nmSnIgP7VGc2CSVJA5vSzbpIHQYKKp6mVHhJ +w9fYY6cXdBk4PTu16GMmDQUa71436zOQtniC4MsvDYzrDxK8jBj4o9WozjpZ +Cog2/wq2WDGwVe6hrs8NSdjaLSTifZaBwfnXMmveicOk/Nt3fecY+Ke/YW3r +A3F4FRkdYujJQBvqqmp4pjhEq/wapvowUFPycUafoziwpg0WtVxgoNuDpT1S +P8Tgr+WdnbRwBlZa8IpvlhCD+Q+o+vI6A416rdafZG2HO1JGwseyGSjZJSfu +GLIdXC8fXlnIYeDNdrYzMie3Q7/06SpKPgN5bzVFSStth1f/Ju/yKGGg4S9H +9742USiSH5MUrmbg1rMdf75tFgXb2CtE5zcbfKU6ZtOlGCA8mPrjZzsD0/49 +PnDyNx3e787rin/HwLAjkSJ+7+iwb6g6pfYjA3MEzqFxAB12qw3wbe3dyFtp +HNb5hgZ8YwoclWMbfLi7tQRCqfBaU/ObwbcNvr06Qbk2VIi8pt/yeYKBNRUp +H1wUqfBHyzaCbWaDb96N8OwhCkwmhzHbLDFwqYz96O29FCieiB+cWWYgR+Hp +O99pFHCAjKeh3xkoGi6ZG/iDDD2TZZfKVhk4rje1R/wOGZKx1k7nFwP3bidY +GEWQ4VBag2bXbwZyvx7rLT5OBs7p1+QzfxnYnel9RVWDDE06Xavr6wyMuKVB +/iNIhv8B8LNJ5Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3.5, 8}, {0., 0.9467080420135469}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{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.5, 8}, {0., 0.9467080420135469}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc4FvwXxhGF7PDs56HsEC/ZOgehosyIpMxUygqR8tojJFvICiVJiKi3 +UkZKWlZCRsjeFQ0/v7/Oda77vs753p/r+8cRdfQwd2FhYmJSYGZi+n/1C7Lg +YmLiQs2BidvnjGah8sWZwo8sXDgq1qHqcGAWZjjDNUrYuDAtK0rCYv8sOGdW +ux3ayoUTzCtiuw1nwaxGqClbeEMPTche0J0F2fnuS+pyXPg83munscYsDDnZ +zXnbcmFVX4JrhNQsGBu5fBit5kJitnDXMsss7DtiM80SwI2b+fpiokpmYG5H +CKuoAg86aN5WOrV3Bk6FNcSVjPDgsXDTgZKOaeAQ/ermUsyLdCbLe5T901C6 +J0dUQJ4PXwT90/y0agqGr9SpxSfyIUuC+/vhtUlg3TEcpbXAh2ctUURAdhKC +MsWs3I340eVaq8SC+QRs3nWkXfUuPzaMX0luNvoGY4VFTWHsApj5SmrVXXMc +KhzXlzc5CqBRsQZHDGEM4vBAO+OFANpuStXlefYVnvwpl3hM24Yse4jfo91G +gKWXVXo5eBve3zKX1DowBApMJ51ODG7DFcOOxiajQahmG6Ee1BDEH7ToR5Op +/XBAxvTfzixB/KO5pVD0UC+oyHc7DnwXRLFtVRF/DbtB2cxkLtRGCBdkKrYQ +qR1AffKx6mi9EG5/rSp+V/o92HJ6/6gWFMYjeRrfy1TfQKkv8+htP2GcTJDi +85F/CabPSs0YH4TRdXGrD9v6Cxi0PPH95U4Cdo1KFKu6PINQ9i36PPEELN7B +M+hNqId2zj12AQkELGv/ci+ZqR7I3L4+X68SUGP278CLiTqo5B/Jr08i4OP0 +MwfMH9fBEPnpX9cMAipLnPwi4VgHKOf/8GkhARvDf6vcqXgIf83Gd3rVE1Db +33WOyaYWArNaBDrGCWiRyXTibWc16DoWZxybICC7rIwDe0M1cEpH0McnCdhh +QP9rVlYN12t0ZdZmCPja4uuscFg1PHr/n47IMgH5K7lHXBWr4feWak93JiJO +6go8Jl6rguDzee2sJCL2tPsZJNpVQvjBgNjdB4hYepptibG9As7rqw3VGhHR +boeycjJ/BThr/1DVOEjEuBchWYLMFaAn5zu6x5SI3Q3rgWHP7gELtxfusyLi +jusuU9F77kFIm9t3W0cihuikvGqFcrhsdMTx30AitlQE3nxgVQYX9qtqvC4l +ovkLO/KTD7dg9NZiklIZEXmO9nlvqr8F5uzlU1l3N977tPPnsfxbINsiluNe +QUTtcWsbc89bMLRXgImnhohrv3KZVXlvwQGcaTJt2NAPOWd+NS0BmmqhWVc3 +EbdX2rv4jRRBbJp96Z5PRKy4l3l035si+LlC2lTSS0T2e5uH5WqL4EN1YrV/ +PxFHj0m5K10pgsh/LhNII0R8CG95JJWLYF7Opv/oLBEXn7naF8XchOdivKeG +WEn4dr5ye5FuIZTt81Zw20xCdeuYUDG5Qkh17/wxu4WEKyZ72eoIheBWnRX5 +m5OEYR6xSqIzBcCzV+omgZ+EduUqvtMZBWDjpPPlII2ESyrBpSeW82E+3+dw +/W4Sco4vPTGrz4Pepi6qjioJuTVFhq1K8uDFhPrXFjUScgwq/OORkgdpikw+ +nZokDNTLoHw6lwdaDXGJ8zokvDA65ZoolgdRg0WvJQ6RUCN1jrIukQt0Ro9O +sisJ37XOpMz8yYaIUtWtTG4bef5qbX42kA3Tu9M73E+R8KOKXF7F02yoM7Y6 +aeBOQqnn7HNTIdlgGdgRt+pFQpaMOMeXW7IhtvNd9/FLG359H35WUhb8uNJ6 +VjaFhCYmZI2vpplgT5BWzUwlYY+80JVDuzOhsSCaaXM6CZsvOop2kDIhqc4w ++UsmCfWs7BsVRjJAfrzpYVIuCfn1FH3k/DPAWff5ptVSEh69+mab6M10ePez +PrOpgYRzKb/uH+FPA/sHa0o7X5Cw+3H59YurqTDjpdGe2EhC4oVRas1QKnBO +1bHYtZCwwKn/hldlKuztf3hmsW2DN6uVN9PhVKhtqNFm9Gz43XYZuN9IgRux +lUMXZkkoR563/q6TDLKGixcH5kh4xbf815hsMjza9I/w3gUSXrbu7pwmJENP +0P0DvMskNCufHFGdTQIBj4qqolUS7nQUOtmalQQRFuURH1jJeFh2Xe7V2jVw +p5ZKy1LIuIM1QLa5JRH8c679U0ElIz2oqLakKhFC6QGaynQyjo9M5ObmJkK6 +yL6DWqJkjPVYV/jgn7jx/8Y8jSXJmCBcsArSiUCU2/7QXYmMIUyaS1YiV+GF +9nWDu0Zk/MDnxH7icxy0PwkxUTxIRv9HdsVuD+OgB04deXBow//h2puM1DiY +1VE7/Z8ZGRVrkkkepnFANOiKf2NNRm2LwaNzLVfg3CGBzhknMl7K1YqjPokF +8vFYJ/kgMn4qpvYxmqOhwPDcuYxLZPwoM83WdTsaZBTMA1iCyXjKwyWkND4a +NJjJV7tCyEj6vGn17uFosC28XX85iowrHNcaKONRkDX+kv9tEhlviXk9COCN +Aqrnlmcet8kYvM8j6aJvBNw8MvXqUykZnS6GqzfZRYCszttOvTIypnRcrJPe +GwFaAulThHtkDJDO6dXdFgF21RKEZ9VkrLkn0lhZGQ45P/XP8T3bmD88E+f9 +PQzoIeHU+11krLw/ztSQGArb5fnS1HvI+C1+W7pLQChIfs7iff6JjJcJm7dI +OIaCwu4qlo99ZIxhI/1aVQoFnYmhb8vDG/upixOTPSHgbAYP1ObIqLWXNN0l +GQK3RdcOPttCQfR/W0GuDIby9oiWfRwUlCDC8reYYKi8yK/znpOCfkyvno47 +BEN9p5TyMDcFP92IJ/gJBENbjDWZVZCCI8Yhc299L8PsQvWYoQgFq0YthA7o +XwLl5x7Bb9UoGMb0jLTAdhFqun6saWtQ0NpJNLtqNBDUpoL9yjQpqNIsM3q9 +KRA0BRPPxuyh4PHCvF3dEYGg61pxVG8vBVPMet1Z2APBhHNBtdaEgptF2JRY +tgXAaXPv+RuuFOx233umUNcfpl3XznC7UTCPaLD+QMIfzl0MHb94ioKRPUNP +v3H6g9fNpIEj7hScC4rWKv/oBxe+V7YJeFOQsCbh+MDVDyKuL92KvETBg4Vc +T9KSfCFv+LzDuRQKcjfe1nnKdB4OSPXf7UylIKuYVT3vhA8sndVf00qn4BnK +VqWL733AYFUoeet1Cn7j/lVRUOADU7y1jbdyKXjHfvmRgoEPqGivSo6UUnCb +n6ypQpI3vE6/NGvdQEGLp1Wb/mh5wfn+UY2nzyn4i1kk1F/KC+g7DkVJNFLw +/lWtdA5BL/Asp4usNFPQ1F6WcX7KE4SbnpoltVHQ88/UwPEsTzixyPygrZuC +DvFUj59/PeC7ceRFnVkKXu94pqhVcRao1mkqLXMUbPZW4KuNOQs6DsULxgsU +ZAqNNXd0Ogtxvs0njyxT8PFRD+p+wlnYcWOzpccaBX0FW8PNQtzBdC5SNmcz +FSlLZl5U+zNQei2q/yedilL+PV409VPwLis947IIFcMeD99UJ56ClaISC9bt +VFwvWAgM/uEGWN/SyitOxR3zeoZRNW7QPbylRmInFY2z1mZDVNyAVTk6wVKV +il5XPPN/ap8E+65oqDChojVV40PuKRdg3pf6m2JGxZMPFiY8TVzgZl1+XZQ5 +FVtkHso47HaByex6peOHqfj+TnTmDWYX8HOaluQ5SsWc01wWMVnOkDBvwufu +SkVO9d7R9Q4n+I+TMCR5iYpKqg8DI485womgHTeSL1NRb+TknTUDR2CZ3XV0 +PZiK55k3fY5RcIR97/d1doVSMVO1p/7nJkfoSA9sjYim4o9aM4ZQmQNMiw3c +H0mm4lumXWtyzA5AhaLQ3FIqZnyz5xYPOg6avjbl0mVU7FsOmKKaHwfbO9y9 +VXepaFRwLtdI6jhkEvwUX1ZQ8dX7vb7GnfYgPG8wOF9DxTv6/A4divbAl/9N +W/cFFZW1ecOfL9sB6ybZ1a+fqWjbq37UPM8WdqgPinn0UzG9bd6oKMgWdD1S +TFcHqMj1u49T0sYWQj7/LuEepuJ/Nb/YagRs4W/VGyuVb1QUpHiE/YqygZ/O +HtVRy1T0DVQXWAw8AtPNlR4y3DRU5R1R3xJiBUryhu53eWhoHfR52NzJCgJT +P7sp8NEw1/s6c5O+FbA7szqqbKNhfpLjF8pWK9jBbGWpS6Kh3rDHUEL6YbDV +XFWzFadhA83m64laS2jdOMlitWn4/vAZB39+C+AjdPzlAhqKp4s7q/00B6vL +br+uIg29jnRqk7+Yw1fja8upejSMn+V5B3fNgWlyeCx/Pw31L9yf5zYyBzWx +yNd1h2l4cnH2VVKcGRRntKVMnKXhl6TGdTkJUzh98liyuQcNX4wJ9MgKmIK8 +yuy1R5405PgoJhb92wRqP/JejfehoZvf43N+d03gJY9FjGIADWuE+gyT+E1g +MvzTpYBwGh7j9riTOnwQ5L3GXDmyaNjUmq9zsNgIFsHfxTubhpmuCQs/woyg +hofd+XMODQW8LPPbHIwAyqQd7ubR8FFQr+oSzQhMx92PmhXTkG7v+n5XxgHw +PrZkknmfhsFCOSuaKfuhZj+TuvRLGmrW2Vgevm0I3/vUiitaN3je7hM7FWMI +qp5e29Re0/BP0QuPklOG8DBteMagnYarkhXpBTKGUD/SWODcQUPJG2+V4ssN +4MmlGK68QRpeknucxfpEH1ruCwwKr9Kw9CXPY/41PWDXNzp4Y20jX7rKE54v +erCvJ6xe/DcNZYp53+9q1INXf5dTlNdpWECUde9P0IM2o+795mx05HQKtBsS +14N3o1lV8fx0rGm9x+Fsqws9JPEoVhk6fjk+eJbRh5AmaPvdaycd5b+Hvn7V +jGDJe9Xliywd5ayVuxLvI7xjXdWr30XH1LMdHu5RCC1zbUyeu+n4ibBFyl4Z +oabpfOBnpONKjGMKQwIgxavxbKU1HbcpSX251aQF5u6rfQwbOuZ5lOUo5msB +30l543hbOvb+5BL+FqQFcXYZMm7H6Lj14haLfmUtCDN0H6c50fFGpsTIcLEm +eNMEHWLO0TGyIPqETLIGmLY6WZ6IoKO1CEld7YoaqKxcSGmOpGP4gXaTMnc1 +oIgmdMhG0/FyRM5Wg0NqMHbhoeVqLB0vyK48muBXgyAp7sNJiXRU3aTHPXNd +FW5F1RxuzKKj9u2bCY+rVIDZgMNaqnJDV7gTa76uDGNe9PSEqg1ePF8qJUaV +oS1HqXu5mo5pY3rylNfKkLFyzLqhlo7EJZMQ53RlkC+qtLb9j44keb/D5xWV +wZbV7kjcSzr+txN3nzyjBJXPy23mB+jYVh/8O21FEQSrzrD7DtLRt4wl0qBf +EfwKpWpXh+j4y2tntXCTIqiHFwhuGqVj2MMUM2KqIjzTT3srNEXH+kWekSwV +RXj78pK+5g86Ni1mlwQHK8B0u7FiJC8DXe+LtmibyMOhpxyDnPwbvYTINQkJ +eai415xwVYCB0iuvCgz+yIFPIk5nCDHQbFuY/84yOVgzUy65Q2FgyLW5pWAu +OeDopNDeSzIwX6y+R6h7J0h8nmSnIgP7VGc2CSVJA5vSzbpIHQYKKp6mVHhJ +w9fYY6cXdBk4PTu16GMmDQUa71436zOQtniC4MsvDYzrDxK8jBj4o9WozjpZ +Cog2/wq2WDGwVe6hrs8NSdjaLSTifZaBwfnXMmveicOk/Nt3fecY+Ke/YW3r +A3F4FRkdYujJQBvqqmp4pjhEq/wapvowUFPycUafoziwpg0WtVxgoNuDpT1S +P8Tgr+WdnbRwBlZa8IpvlhCD+Q+o+vI6A416rdafZG2HO1JGwseyGSjZJSfu +GLIdXC8fXlnIYeDNdrYzMie3Q7/06SpKPgN5bzVFSStth1f/Ju/yKGGg4S9H +9742USiSH5MUrmbg1rMdf75tFgXb2CtE5zcbfKU6ZtOlGCA8mPrjZzsD0/49 +PnDyNx3e787rin/HwLAjkSJ+7+iwb6g6pfYjA3MEzqFxAB12qw3wbe3dyFtp +HNb5hgZ8YwoclWMbfLi7tQRCqfBaU/ObwbcNvr06Qbk2VIi8pt/yeYKBNRUp +H1wUqfBHyzaCbWaDb96N8OwhCkwmhzHbLDFwqYz96O29FCieiB+cWWYgR+Hp +O99pFHCAjKeh3xkoGi6ZG/iDDD2TZZfKVhk4rje1R/wOGZKx1k7nFwP3bidY +GEWQ4VBag2bXbwZyvx7rLT5OBs7p1+QzfxnYnel9RVWDDE06Xavr6wyMuKVB +/iNIhv8B8LNJ5Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3.5, 8}, {0., 0.9467080420135469}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{3.500000000000008, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "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.5, 8}, {0., 0.9467080420135469}}, + 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.992073220886587*^9, + 3.9920732528528633`*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"95028175-c414-8e47-8e2e-46597001075d"] +}, 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", ",", "3.5", ",", "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", ",", "3.5", ",", "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}, {3.992073297212391*^9, + 3.9920732994648457`*^9}}, + CellLabel->"In[34]:=",ExpressionUUID->"3257ca40-3a72-6e47-a18b-de875465760b"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\",\\\", \ +RowBox[{RowBox[{\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\ +\"-\\\", FractionBox[RowBox[{\\\"0.05780000000000001`\\\", \\\" \\\", \ +SuperscriptBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"18\\\", \\\"\ +\[RightSkeleton]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}]], \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"3.5`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"-\\\", RowBox[{\ +\\\"1.`\\\", \\\" \\\", \\\"R1\\\"}]}], \\\")\\\"}]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"3\\\"]]}], \\\"-\\\", RowBox[{\\\"1.2`\\\", \ +\\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{RowBox[{\\\"-\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"21\\\", \\\"\[RightSkeleton]\\\"}]}], \\\" \\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\" \ +\\\", \\\"R1\\\"}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \\\ +\"\[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.013234713174378451`\\\", \\\" \\\", RowBox[{\\\"Power\\\ +\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.02621460962034495`\\\", \\\" \\\", 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[{\\\"290.17731063060205`\\\", \\\"\[VeryThinSpace]\\\"}], \ +\\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \ +\\\"2\\\"]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"44\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ +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, 34, 3, 24488269323719620004, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991964272641367*^9, 3.991965207078659*^9, + 3.9920733061762524`*^9}, + CellLabel-> + "During evaluation of \ +In[34]:=",ExpressionUUID->"2c95e197-62a6-fc4f-8491-d8f95f87badf"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "\[Rule]", "1.0695380280150142`"}], ",", + RowBox[{"bb0", "\[Rule]", "0.744826975389573`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991964272691372*^9, 3.99196520714266*^9, + 3.992073306240284*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"d43e7738-65a8-c247-b095-a04a22393df5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "1.069"}]], "Input", + CellChangeTimes->{{3.991964278686388*^9, 3.9919642789396744`*^9}, + 3.991965211114523*^9, 3.9920747133681335`*^9}, + CellLabel->"In[35]:=",ExpressionUUID->"9f308f97-daac-744c-bae7-d3560fa4471f"], + +Cell[BoxData["1.069`"], "Output", + CellChangeTimes->{3.991964280066925*^9, 3.991965218521267*^9, + 3.9920747301854477`*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"fa5858ee-6186-a445-bc3e-225a50d374bd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"bb0", "=", "0.744"}]], "Input", + CellChangeTimes->{{3.991964284161188*^9, 3.9919642845938396`*^9}, { + 3.9919652166473465`*^9, 3.991965216788891*^9}, 3.9920747182260113`*^9}, + CellLabel->"In[36]:=",ExpressionUUID->"1523f3ed-56c9-e442-bf6a-8b0d193db26f"], + +Cell[BoxData["0.744`"], "Output", + CellChangeTimes->{3.991964285066065*^9, 3.9919652203929043`*^9, + 3.9920747302294807`*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"260bcdc8-66d2-4b4a-a789-a9b90cce1e9f"] +}, 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", ",", "3.5", ",", "11"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917168848265095`*^9, {3.9919642917670784`*^9, 3.991964315141735*^9}, { + 3.992074767188246*^9, 3.9920747679388447`*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"cab747ed-cb84-7e4e-ba84-e0de4bae2e79"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwV1/c/1g8XBnBRyCbrNu8pojIqRJ9zjK+EkFVK2VJGUakkpUIihBApI5kp +M2RlRUXSoIwksm4iI4p6PL+c8w9c53q9D8XphIUrKwsLC2l1/H830cOFWVh4 +kFfUZsOQ6iRcumi5/tJmXvxrdzq1h3MSzo7GbTt4mg+5bPvNwuqYMKjVZReR +yY9LajH3L+1lQtCk8byDuwAe++vXap04AcrN7l05XIKYaSWm3uo9DqQN7Boy +6YKovFXe+dbEKFDGvhSjgRDmcLDk1rz5DmuHzw26jAih89WnRw7bDAHZOiaq +5OIGFNUjijhefoVDpqP7i8jC+HaNpilvXx+8eVZzr6dcGCPSPxGbc7tBxswq +kd1UBDs4Jz0dZ95BhIfcoy8/RJCZfEUg7nM7qC2fw6EQURxVTAu4VP0ClkQ4 +f8RvEkPPR/IUjgvPIcnaxtz4lRj6bVQbC3KqgNPrGcqKjuLYSjKhREcUgbeB +smIFGwk5vR5fVmbPhbRfzx74JpPQ4d9C7wv/dJhVuab5GSTQfnih5rP2HSDH +cAfpfZVADHT/rqx2C0LcNuzuPiuJRIZB/fnhUOBu3C8vKSmFlY7GlNssl6H1 +ttT1sGIpfPb5bQqOngGnm6lJS4bSaCHPVb1F0hsk+BxbxCakcTFkSq520Rm4 +2dJPO16RweVLTwq/KBwCySBZbVs5WcxI/kET7N4H7Ay7MosXshjjEXnALG43 +xN+L6Hq2hYyj8/OCKX8BNE6EOTIuk/Hlzur3Mn+2wa/zzbn012QsbPxet8ZA +CTLEnNseiFIwbfF5sMNWGnxZSlm5cJSC2s9kuuKUSKAuSpocLaKgmOagJtcf +AZA9qzqev5aKdxXqNg3KsQNdKOIh+z4qhhw/m3vr6Qohiv9pf02mYtrTvqlI +kTkisejuF6FJKpor+HXa6IwTO+y36X7WoOGPtsrglodfCRfz40WLN2i49XVs +X+DcR+LS+39/EnpoWGwZdsNQpJ14GvNhbZscHQ/3fCCUdjcSgbf3SNqeo+Pc +Ovq78ZOVhFPnyrR/Ix1/yMy5TD8rJNTSBVOl+Rk4We2qkbSURcSVNdiJOTBw +OTsjJc32PiG0rqz7YR4D40IpvrtFbxNvdvT9/vePgeuwbuG6aDhB3fcjsjae +B9P27ZAukp2EP6pz95gdvCg34B8TP8YEJaEyw1kefiy19sgxi2RCRVPPrVhp +AexY683xdnkCum0PugVXCOCzrr0TrEIT8MDzKYeLjSBq1zXWv60cA+m/P89s +nRNEvvrLfgnMERA6qvSqM14IsUP29J+UYRgofrPgqCWKFPswDVvqKxANq0uo +7hbFK8LcihSvRni5/bHsjL8Y1rNMMPJ6qiH08S7UEhVHzyXL1GtVpTCTlbvZ +t0gcY1qEjdaQHwOn7MLIbTMS2v22jZCbz4SXwuQTDydJeICcdHx/3D3gGtzd +FxktgbI3WsZ5euLAMoB/6KaSJIptyFkrVxgBhrdLn55vlcQrhM3Ze7euwrjS +zgMWR6WwKMp0lCfQH+JvHbml81cK3W/szK7b5As1bZcLOZOk8U7oG672UHeI +uR50r2qHDNK+DdO9zzvAhnqHA4ffy+AWT97WjHU2IPBu19IHP1n0PPxTt4Vt +L0QcOHxHdT0Z07yrVCs99WCEPfzuyf1kXL8zc3vemCYkzm1kZzwkY3jDrmMW +mirQ1iJc5TJDRsPMTSx1Rhvh+fXLrgJAQUEezh2/hWWB+/qhM6o3KTjMX3Zd +7ZEw5DVnTrzsoaDSLnPFv17ckK5v3/JpExUbGwNvp9BZQTrHfeaUHxWvXLja +eth7kdi/NM3r30jFqxWGilPa08TI9dHoBSEaXgoeu6weOky07TfzH3Ok4X6j +gLLas72Er9D2/YbFNLS66V28EtdJJBcfv6y6ho7vfq3XmS5qISTi+AVizeio +O14TeM++jpguprEfv0fHcl17pYisUsKoMtTw9Rgd2cXzSNsVHhEu+ccDk9QZ +aDISmv7KKYN411cl8SWYgYO6zHWKZXeI6ZTWY+8+MFC3/+HWw9+jibmd1W/t +jXnwnpxBQLrCJOzqpr3ffokXRXlcNxG/mWBxMbPmYR0fet7Zscibw4Rc5911 +ttP82LytRMhvIxPyae82z0YLoO2b+sKMAxNwnBT9I0RZEMuTx8tVxcch+fry +R7lXgjgmwqU3d2IUJORDasO8hbC7XMyxX/M7lPH/eZsqIorpT6RownOv4UG9 +FLPjsSj+HfcWMFnfDIOZhzgaLcTQOjl372+FOohmNTJsmBZDh9Kuq/yXn0JR +90hBe5g4Ki0WZ5/59wSeqcaGZSmQsDu09HDCWBbsYJ8Ki2gk4VbVoaDIjlT4 +u94tfJu7BJ552WzR9DMedobeLBpll8SI4aLPSp5RMHLR5V92qiTmRopUTKUG +g/+iYd0OHSmsjfqps0f2IjyJrY4Y7pZC/eWDA1mzpyD6kYBckI803miqZCnZ +7AE2xj5q4wIy6KjXpDVCc4IopyA3+zwZ3Nawm1R25gCI5hYkJZjKooLJbnWy +mDnwe4TP9TBl8ZOu7Mtlt/+gppN7p6geGa20N7B5v9KG0cJuNUbsar6zn3s9 +ZFUDpzSv4sZ+MpZGyX/JzFEA1Q6fO583UfB5g2rkBX0KzNcFaO73p2C+uI5r +foco+HjbM21fUFDLG66HB/PBQJ+hbYMYFY+Yymvs4FkLqYd/G1c7U7E5xn1+ +fOY3USYlmbn5CRX/6C530vh/EnUpuuVrWWgY9ekZm1nzCHGlR6ffcS8Nw0Z+ +z+YXfyE8Ct9cI9+n4T/vsFPqWe8JXv3thOsUDX9yLHhv0X1FuMf6cilr0TE4 +4SqUadQTTx+URTuG07FXn0ovmHxK2DTX36V10VGMQfhdF35CmGwk+O1oDPyV +ECi1PiqT2GZUp/XHl4Ft3zZsVXC5SwS9BUp1HQPX3ljOKRqIIcyPUkxkB3nQ +tWSXzGfhSai42Xgsg8qHxJ2O64EfmcCR1dwJtvwoJfLi38QJJqR8itX7rSuA +5u5Nz9TbJmBt9Nd7YoMCuIZaOkZvHIf+2n5ZnQBBLFRyf5dkMwbXzVz0cteI +4fQA0zNytB6Kmlg1ZDLE0Io6tqEs/BkE2qloFGuJI+moSmiAaAkon/XKF+kR +x18loa3D5/LBitvW4NoZEvJcYxodlHsAR2gWVnWiEvixROrtZGsyiFQqbB0r +l8A625jsupkY8PS5JaJmIYkD4RPC3so3IDef/aTRT0l0n3x/ZaIoCA46Kk57 +3ZTCywo53evFz0FA1L/bKTRpvFfndKQ37CQwJ6e1o+ulkcYmX/2R6gbtTbfW +R9nJYIh8RuymicOQQEGjQysyqN3Ypyr8zhK4l1/vF74vi09MhWas5Y3g1p/T +Gr8kyfjo8KaMkVQdENDi+vfSg4x3phenzfapg6H62W56BRkrqx6OhGzfChrT +zxrXrqVgol4SvYjGAHOdKBUDy1Uf6KakiS9JAsVsZyFvKgU983bEjFUJwbAM +c1xrmoK/kw0HzjzkBOe8M+rTu6i484b4Sz0PFkia+xi/KYyKnIp+vk1yC8Ti +h2a/5m4qFt1aybVTmyT4TkceG2XQ0Palv9DxwG+E+Hs7UR8/GgIz74hG9Cfi +3KkkhZMvaGgy78A7+rSDUKCl1v/bQMdknox/yo7NxOu4fJEFZzq6D5xpWvKs +JhQaoi/4FtKR7R9f0dPEYoIoMJk7vUzH1BM/UmZO5hIBKgmT3caMVW/1ZyZ5 +pxG+PhVL9YkMtBNpmxg1TCAcjlsWjY0zsCZmcj1DN5Lo3Uqffczgwbu202+s +t0xCf+4z74M2vJho1c/VsmYShlRTzl9O4kOBlHdTm0uZ0GwWxTf7kh+N/zKS +ObWYEH89SjA3QAArhS8rWp+fgLYTAc6J0oJIklpYsdYfh897g0LTywTRMENY +sqZgFO5xFmu6HhTCPg9GQ3zwd0irjoY6VlEs1tYOrRlqA88vRvEHk0XR7ur2 +sSMDzTDVp3LhESGGl+92OXW/qQMRJXMTjn4xVDI0yLb2KocNPiE/As6I44dx +iTWq9YUQV+V48IkoCctyW8pLf2YD869Vwr/HJJRbLD64Ni0NFqXPOHFYSWDZ +8EytrmAiPIp4TRKdk8CAhb9S109Gw46fWhkYserbsjo9qAoB3SPmc/JbpNDg +pQTPy9BAqBL2uqHeLIUWnY4COHoazqcccNh1WBqfV1SQ+ZI9oVxpbIXlrzR+ ++fyNq4XTGdqKbnkNxMtg2vs3pO5mW0gUOepxbqcsZg9sr/08Yw5cLaesxT7L +Yq/km8J5PwPI1XjNOaZBxtdHx4+YHSQgWqDQKDOMjAnqI13Fi2qQzyvx+PSH +1bwrudU3/dgE46eOF9eSKVi9e9vNQDUqHD98M3nsJAV7PPq8NX+JgZVulSel +ejXvpXnV3CQBuJxbTdHgo2LwP/m0LqF1MKiut+R4kIqlseHVQibLhNuWJyc5 +HlJxm7EK/3nuWUIp+8er8AUqXtgx0zb3Z5Swk9YSkNGjofXwDVOZygFilCUl +mec2DV282wKFmz8QBhESKX+HaHhyrKLtXfprQmDDg9C/ynRU/BQmOKbRQEhI +s9j0BdHx2dcDHgYbKwg7kwGDN210FE/NfMD37QlRN5TVpU1ioGp8xoJk1UPC +hUXXJOwYA3nkRo5f/ZBCGE38XlYpY+BSvfin3NlYQtPuuteJKh58eLm6x01i +Eg462K1tWeJFlaERPfsBJiTZ1dwkqfEj+eC94sRLTMh783TcQFkAtZ6eM80e +noCpuZQr7W0CqKMZNPtvYhx0RF/FWhwTRP8K5y23wsbAzDNmUm1SFBMjdswz +sxqgZqU7jyNKDC++YG+rKagC1hB17V/y4hhE3Hv4fbgEovl5JhuaxbHg1bqm +J02PYMvtjWI3nUhYs99HVm19JghLVTiqsUqg7cbcnQobU0CgXYO96oEE3iep +1X0YiIUBv44AB5DEpNuKHS+PhcMSuX/DYJ8kTm6tOX/27hWgvlClO/hLYZbk +x/sLeuchTOBx7A8BaXTwWycYYu0DH/o0zpoUSOPgTP5g4t6joJy1/n3mHhns ++Hf/4WtXe/jgY76vd1QGN91pjeUbtoLIo8Hy8zdksfYG6Up+hDHwbRobjRMi +48kXswWGQbqwnPqyLcWRjJyaKmMtcRowfdvsx4PHZOThDqfOuSjDFTv3upLf +ZJxnv/g0RlkOOIdDjRX3UPDMhnHDhABpiJ8w2pAaT8FiTr6qXwUboOWnoQfb +dwrufFoaWsvCBaznxv+5bKMiT0CRl4/uGuhtl9V/c4mKwyZ1p07o/SKyRw7p +prZT8URcGyPg1RThH6h18YQUDZP/u+trFzBE/BSxMdzsScNSdrL136XPxHz9 +UbSrpuFRj8Q+udS3hJNHMOUOFx1VKGdP1l15QZwS7o9ptKXjEe2J6FquWiJC +6zNOZdExkrrXPepOCaG/7fg98iwdiRtP/kY25hHTUyxlFToMpN7+EMTvlE6k +b9Ti2hfFwJH07Paus4mE/DW+yCMDDDQS5GB8/x1F3F0XoSmYzYvHTHz6VX4y +ofbFI7a273zYYOxrIn2XCYnmiR9PzzPQ7ej0Hem0CMI8t4utW4gHdaN6t6Qp +T8KWOI4qpg4vemzL/mq/bhIKeEn7vUL5UJGS7TNbyYT3/xWXQjk/bmjq/eCm +zwSeZ15Xg31X85vb0c8VNgF/k3ylKcKC2MF1x63Jdhz8nzTYO+Sv/mMb7Efd +2kZh4FzrgoW5EC7mJ5T05X6H+LhDC2ZLIpiSpuO+1r4dOiYdPWRviWLdlcgv +SqYvYG5Janv6NjG80Zdm3kh/Dt1oaZrzXgxH1rPsZn4vB/3qD/xWHuK4PbrZ ++JhcEQStaa3fxkvCt889rakXcsDgAqdMRSYJj1sfairjSYeFrOW26T0SeHVw +adkpMxHc+D3b8sclUFFNy6mjIxqO5G88w3NFEkUvFGiImIWCnKAVXzpdCgOE +f3pb6F4C3Q/6YQNVUrj976DeK7cz4H074KKkpTQ6sbf+KjvgBcekGc4Rc9LY +EnEp/sAlZ2B+Js2kRsggETybJOB3EA4aN7xzV1717ANr+YvO++D6wsi60g5Z +fPyOupPJthtSPZROdqqt9uveD+/KFACGQNpm+BoZBd29flme2wadetP5rzvI +WPHy0ft3iYrQ3OSGRZIUvCAS1tPymAoP8m6/VvWkoH7ycsmaaHEwyB9XWle+ +2sdln0fCrgtAh8BisO96Ku4KZuViJK8DtswRsxJrKrY2RRXf+bdMEE/9beZS +qej/34+tdZGzhNPmZus3M1SMMGSvS7s7RuypUVdY3kVDydNCx3q3fCUeZrNl +sUbTUEHRrd3o0EfCSfmmifEADd1aT9OabduIoU7t5mFFOh6f33ZNu6aBMPn0 +QEPyIh01x69rcL2sIOz5f0gyWukY+nxkXNG0kPBv6NXaLMzAtPU70moPZBEB +PVesOlwYWMghyKd4+x6x5Vz3ceYTBloa0bMXrsQRBR+1AhNyeFDebX6LsPQk +5O7J3ndwmBf/C2gD/mEmOKvv9GAn82Pgtn2yQqFMKHq5h5iUE0Djdx7LLjMT +4LwxYC6nQQA3+J6a0vo3Dr46z/f22AviQbTY4Z4+BkX+OfWLg6KoXHJE79X6 +RmgkNbouXxPDnMAG+3m9amhM2knckRVHEQy0NTEvhbpDh3iTq8Tx8c2pIIpP +AUh+jrwkaEtCp8XxnLWBmXAi0XOU+YuERslRw097UoD3QJ1PZpIEFsXuzQ+2 +i4OkpRPKv7ZLotkRywuPuSOA3NM6/OidJDqy7eOJErkK7P47iE8npTA4JzJM +9ct5EHgbEpPIIY2TRyZOjtf4wMsPdnGbHkhjTYDCWPnoUfia8J+mCsrgEw9S +0LKwA8zd6X5/t18G36RXdp0/ZQ1mKV+jhy/L4t6Q3ac7/zOBvTq05994yWgp +JTseP68LP99t2h5qR8YDOsk2f7U1Qb/p2e+hXDK+37c/4UObMmTHEDU8C2T0 +EYi7PP9MDoZ2XOuW1qfgA+uJDAkDGejQtNQfu0XBmmMKtiFKwlBpd1ZxZICC +Y0MvWKdLuMCin+5yfysV5b8lD8sUrYFlrcYkygUq9nrlfRHq+kVcPiknf7OV +igtNrQpv7/8gnrAJcRSL0ZDarZ5EZRkmBsosHLmPruZRxtXctKyHKDnebmxR +TkP6YnncnHgnEci/2DG8jo4f55kli+IthMF7v7d5VnT8OibUsmGwlqj5FUhT +ylj1gfumpH6ZUmL3r3On/Kbo6CcsGV58Op/IbdsukavNwDoHc7OKgXSikjVA +KPEGA8V1hxI5Re4QPILMP+I9DNSd/1FvfDKaYE51hWTE8qJhzwXxPQtMuJ6u +8LXiHR++TnALeJLOhIC+M/pbpxn4u+HrQo33TaKkodK98jcDVS59zRH/FE7c +OKrC47meB4O0qA8aVCbh4/VHg6XqvPhOpU2JwjEJQn8+Nn27yIf2Kr67GquZ +0IP/rf9ewI99LpVv/xgyweC9nfYpLwFU2199uzp6AhKeePm78guiT8aJSiuX +cXj5dcgYsgTx7auXS+G9o8BSaPVhj7EQztg84T5U/R0EWZ6/TZgTwSbvFJGM +u+3Aembyw5oIUVT5UxCaGfwCFkKFYu5uFcNR0cXCSrPnoPnKyuz3GzEUdzUf +8KNXgJ3zyn1wE8fPly0tCdsiWMxYXvDjJGED+6toq7ocOK3p9PV2Kgn/rFg1 ++eqlw5xn3dVhfQm8JxnfUzSdCA0dWhsXhyUwd/nUz6o1t8A3TPrIzwBJnL3W +7vz+Tigkjlsn98tK4eeVynHVtEsQUvqEc3u5FIb3X3q4MesMuN/ii+AylcZx +iqbM/govqBdpEOn8IY0zFd8FnzxzhuWpPtWgUBk0DYjxc35zEHa6zXA4Ksqi +PxY3HE3ZBy94qf1sr2XxC2voWIHxbpAM7qXtViHjHufqt2djASL3vzsUfIWM +qYs6nRYV22DoSE/euXYyRp7esHN4ShFKpoZCFEkUHDnqm6Hwgwr1nSTXrmOr +9/DLxrujTxyIr2t4z5ZS0GXvv6vuzwVgUU+knJ+Dii1Ss/pxA+sgrkfzwmFL +KppMSXWuO7RC5P6xbz1+j4oYckuy9O0ssXKiUMLnBxWVPOzzzk+NEXV8Zds9 +tGh4huJ3wOP4VyJ4uSz/4k0a/vSI8XLO+kicvGLwYKaPho8KTobOlrUR7aph +rrYKdKyPsDMB1kbCVf2XQqU/HcMYrQbzUpXEwEk/9o5mOop4De4ov1ZIfFT9 +5ZUpyEDuq9F6D7KzCM49Gd2nnBgYMTAT+XLhHpFKvEjbU8DAoY0DD6RexxGj +sbdDFFN58I2iO5urzCRYEKbnaD28yLL1yrf9I0xooS9+ChDlx6tzFbvLbzBh +R4uQO1IFUPFhOwvj1wTcQ49HCTUC+DHB688jzgng3l+VK3tIEHmlG/JyC8Zg +aM32zT19opi6O5G6W6sRXmRV1C9cEkNZ1t7FS1HVIMfQhnEJcXykmNmxOaQU +utdcTQl5Ko6HN3ZnU1sKICagvtjSioQ8kDprVJEJd22a81p/kpC5h25wTf0e +8Ehf25h0WwLXXuo/6ZUcBwuVcENXRRLjPMsP/TocAdvKa9tj2yUx7L3rkx2W +V+GcpcYrEU8pJHHqZWza4g+WhT8FJ1ml0e9606mQOR9ofDuVTrovjf1Hfhg2 +qLvDzuhvE35aMnhpKZdtzMAB1hbcFb34SQbTQz75ilRZg3I5f1PfBVmc2ufs +qfLABJgmuDmcm4w/dmp0v1bWA8/Jz6N/bMn47+PDPw0xmjDV68MSnE3GYtPX +UcCmApWPFKrLZ8m4PYfsz2TdCJ32rLIJOhRU3TbysDdfBqYcunpvRlFw08Zz +w2c9haHoViS3bT8F/046m34S4AZ/Qd147c1UrKD+XWCdWAMRvqLNL89R8XJG +6oIOdZFglnAns72gouvNlGY+9mnCxGDllZUIDecrTYZ19IYJG463Xv4uNBQk +OFIdRHuJ2JqgfW2lNKwVazsQbdNJRDgWykew0fGVNpvYBdcWQnlbw0lZi9X/ +a8EvbX5jHdFl/Vb4VSod47ayEi1OpUTLAZYjFCYdz0Vk/3Frzyc4dpmbUHcy +0CzOe86SkkEYnLwbr3WdgRc5M9ZLuN4hArs+q/p1r/brrpDZidxoIu7bxUee +Ybx4yvtA2+5FJkxGjZgpv+RD+Sfm3cOZTJjKcLkQMclAl1N9n8q6bhJyN3Lu +iy0ysApf8x7XjiB0V16pHF5Z9cjARDT9bDghb3BEoGwtD1ou/ZawUp2ETVdZ +/JJUeTFe6THxb7WfG2e2r8ic58MZrs875WuZcITgU9PM5ceL9UE9YMyEIYf3 +4uPHBXDdL46ViLgJcNGayObgFcRtg48tYo6t+sN//nnBA0GsEb3/QGhoFAT2 +Juk3GQqh/olAkejm79BeeqpW66cI2pY0GN961g5JGmrcp8JEUc76gk1I2gtY +NL1ZR9oshs8EY6g2rs/hePSHN+ltYmgSNmHsqVcB7jsE3UudxTGqXTe2y7cI +1M6ICoqzk9DLjnvX5m85cEOcX2/tPRKq3tkjxmWfDqfN0vvtdSXwTqBmbp7o +HfAtpL1P+SaB82ujxl0lbsHy2UQLV39J/LnGiXajNhQsuj5+DZCWQrmV6hvc +by9Bdqab4ZdSKaSO3Pa+++IMuEbt33DFWBobDm2plxz3gilBoR+nJ6XxYLNd +KPmzM6xdqrWcuSaDB5CpGLB8EHJPcVL75GXRlLP19IPKfeBGAqO8VlmUJ3HC +txO7oftWycU1ymTsHa+539cC4OxccMQ6iIxclBR22c/bwJtpnmfaRsar8aTv ++ySUQImNvmlUjIKDGE/fxE8D8++HCnPcV33M1VS1YR0JKi/wrmwtoWA3p14n +uV8AIvpo+/rXUbHceMeO+2zs0LswKKBqQUXtmC+RG8NWiIGUTla5FCrW04rU +g2dnCSPBjSs6U1S8kp7r/EJsnPizY/4ZdScNXQZZ/1y6/pU4/TB6q1bEql/i +WuM62j4S5xRpHY29NHzT0PZ5cbiNqHfaun2D/KqPzbabJtIbCV+31PSw83T8 +3Tkb2m5QSaRRKi9kNtHRKuP3YyK1kLh2fG2oowADC8zDPy13ZBHtl4qT/nNk +YKfIs+988veJT2nErsV8BpbR09UFZ+KIYN/6G2eSeVA7tHYdj+wkPNRI4+b8 +yIth7rp+50aZ4C+5X7BckB8l9pq1B0cwYdHg1/KYrACaK9GCVpYmQKttMIyv +SgCTwtqE7XgnoPur5qfnBwSx7+5K+vOSMbjY5O9k0iOKwmK3D8tbNUKL97aZ +UxfFMDg25GRQaTXYjFfVxoiLY865bVeM0kph6H2863KJOPYeStuyMFsAbXt7 +2+b2kZD95xlWua5MKN5+ildjetXLpq8+vna9B+H/XK8Ix0qgXeQ3cblncfAg +eaP66BZJVLvcXOgTGgE1D3c2sL+WxBcBbp4WvldBBSsES45JoaO77P6/1v5w +Oi17XwKLNLKwdeRF8fvC8zfqm27dlcanMq4e2fbu4Bah2kTSlEGhgxIu4g4O +wFMeqD75UQbXkHhFagasIbVJ7ovteVms4K68++GdCVR1mn47wkXGhqA1Z/JN +9WDT7yLdsgNkpAi/V9hQowkNoyZs1llkXFj2qVWTUQF9rftVkT9X+9xSI6hS +biMYndapt0QKXvyiVVI7IAMBp0kKDpEUvGWYY1IVIQxblJL+CPZRcGEonEMf +uIEvz3wrtxIVX9Xrm1dwsML7m7WH7p+lorOauYSq4SJB3R/4vqaJijsH9RSP +UqaJpBHfAoYwDQ9ah9VQXIeJmK0CcyrONHQ80WH03aCXuOJ+6P2NEhqW8LFk +5Z/pJOK4Iq3sWenYpcugiUW0EAyXY/jJnI5rYh7qFenVEUPX/G8m3adjnwHW +8QWXEmHr9d8tjNMxeP72xdw/+UTZ6cOu/RoM3BFz4M+sTgbBk5V/gDeUgfFG +Kc5Xbt4hnu60aKd3MXBz6BudGy3RxGhfB+67xouxPs/Y9JeYkBpiEOrRxIec +MaURF7KYsJGjV1SLycAGO+MPNTyRhP0kWat5gYH7wAYTvCOICw56bdzLDNS8 +r6wzmxVOcCZZxRf8ZeC7zaIs+QbhxP8AMZgtAg== + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1mOgFnYYxuFzsm172ebC0rJtLSzb1jKXa9m2bS7Xsm3XrrN9uHr/v7vn +9KUTkjZqW+n3wICAgLjBAgKCPnf5oSkRWK/rk40nehy5ualH4ksCdutmRGSD +bkAMP7FVNyQs2W1PfY4nD7f0HwRnj25OJDbqhsT09dt0I8KRw/bM5wTycluP +IgR7dQsis0k3IifP9UTycUePJiT79G9EYbNuTC5e6Enk564eQyj265ZEZYtu +Qm5e6skU4J4eS2gO6FZEY6tuSh7CcNDWmuhs083IS1jCEZ4IRCQSh9y1IQbb +dXPyEZnDtqDfuJjs0C3Izys9hYLc1+OIwhHdlljs1L9RgNd6KoV4oMcTlaO6 +HbHZpVtSkDf6T37moZ5ANI7p9sRht25FId7qaRTmkZ5IdI7rDsRlj27Nz7zT +0ynCYz0p6PuJE7oj8dir21CY93oGRXmiJwd9/3BSdyI++/TvFOGDnkkxnuop +xOKU7kwC9uu2FOWjnsUvPNNTic1p3YWEHNDtKMYnPZviPNd/EoczuiuJOKjb +8wuf9RxK8EJPC/qzyFndjcQc0h0ozhc9l5K81NOJxzndnSQc1h0pwVc9j1K8 +0jOIz9+6B0k5ojtRkm/6L0rzWs8kAed1T5JxVHemFN/1fH7ljZ5FQi7oXiTn +mO5CaX7oBZThrZ5NIi7q3qTguO7KrwT9JbPQVpZ3cg6JuaT7kJITuhtlCHS/ +yFaO93ouSbis+5KKk7o7ZYN+efeLbeX5oOeRlCu6Hz9xSvegHMHdL7FV4KP+ +i2Rc1f1JzWndk/KEcL/UVpFPej7JuaYHkIYzuhcVCOl+ma0Sn/UCUnBdDyQt +Z3VvKhLK/XJbZb7ohaTkHz2IdJzTfahEaPcrbFX4qheRiht6MOn5W/elMmHc +r7RV5ZtezE/c1EPIwHndjyqEdb/KVo3vegmpuaWHkpELuj9VCed+ta06P/RS +0nBbDyMTF/UAqhHe/RpbjcCA//7BWuYjLXe8h5OZS3og1Yngfq2tJoEst6Xj +rvcIsnBZD6IGEd2vs9UiGCts6bnnPZKsXNGDqUkk9+tttQnOSlsG7nv/QTau +6iHUIrL7DbY6hGCVLSMPvEeRnWt6KLWJ4n6jrS4hWW3LxEPv0eTguh5GHaK6 +32SrRyjW2DLzyHsMOflHD6cu0dxvttUnNGttWXjsPZZc3NAjqEd091tsDQjD +Olss23bvxoQntt7hswlxvHcG/v//i6xu/wVs/QNX + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrsJgFAURMHrJ7AFQ1vRwMTIEgyEB8IDtX/UQLAFYZKFw0635Hlty4ij +jogpHedaxLeqp5p75rEf8pb39Pwp3sFxHMdxHMdxHMdxHMdxHMdxHMdxHMdx +HMdxHMdxHMdxHMdxHMdxHMdxHMdxHMdxHMdxHMdxHMdxHMdxHMdxHMdxHMdx +HMdxHMf/wS9Wc6cO + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwV1/c/1g8XBnBRyCbrNu8pojIqRJ9zjK+EkFVK2VJGUakkpUIihBApI5kp +M2RlRUXSoIwksm4iI4p6PL+c8w9c53q9D8XphIUrKwsLC2l1/H830cOFWVh4 +kFfUZsOQ6iRcumi5/tJmXvxrdzq1h3MSzo7GbTt4mg+5bPvNwuqYMKjVZReR +yY9LajH3L+1lQtCk8byDuwAe++vXap04AcrN7l05XIKYaSWm3uo9DqQN7Boy +6YKovFXe+dbEKFDGvhSjgRDmcLDk1rz5DmuHzw26jAih89WnRw7bDAHZOiaq +5OIGFNUjijhefoVDpqP7i8jC+HaNpilvXx+8eVZzr6dcGCPSPxGbc7tBxswq +kd1UBDs4Jz0dZ95BhIfcoy8/RJCZfEUg7nM7qC2fw6EQURxVTAu4VP0ClkQ4 +f8RvEkPPR/IUjgvPIcnaxtz4lRj6bVQbC3KqgNPrGcqKjuLYSjKhREcUgbeB +smIFGwk5vR5fVmbPhbRfzx74JpPQ4d9C7wv/dJhVuab5GSTQfnih5rP2HSDH +cAfpfZVADHT/rqx2C0LcNuzuPiuJRIZB/fnhUOBu3C8vKSmFlY7GlNssl6H1 +ttT1sGIpfPb5bQqOngGnm6lJS4bSaCHPVb1F0hsk+BxbxCakcTFkSq520Rm4 +2dJPO16RweVLTwq/KBwCySBZbVs5WcxI/kET7N4H7Ay7MosXshjjEXnALG43 +xN+L6Hq2hYyj8/OCKX8BNE6EOTIuk/Hlzur3Mn+2wa/zzbn012QsbPxet8ZA +CTLEnNseiFIwbfF5sMNWGnxZSlm5cJSC2s9kuuKUSKAuSpocLaKgmOagJtcf +AZA9qzqev5aKdxXqNg3KsQNdKOIh+z4qhhw/m3vr6Qohiv9pf02mYtrTvqlI +kTkisejuF6FJKpor+HXa6IwTO+y36X7WoOGPtsrglodfCRfz40WLN2i49XVs +X+DcR+LS+39/EnpoWGwZdsNQpJ14GvNhbZscHQ/3fCCUdjcSgbf3SNqeo+Pc +Ovq78ZOVhFPnyrR/Ix1/yMy5TD8rJNTSBVOl+Rk4We2qkbSURcSVNdiJOTBw +OTsjJc32PiG0rqz7YR4D40IpvrtFbxNvdvT9/vePgeuwbuG6aDhB3fcjsjae +B9P27ZAukp2EP6pz95gdvCg34B8TP8YEJaEyw1kefiy19sgxi2RCRVPPrVhp +AexY683xdnkCum0PugVXCOCzrr0TrEIT8MDzKYeLjSBq1zXWv60cA+m/P89s +nRNEvvrLfgnMERA6qvSqM14IsUP29J+UYRgofrPgqCWKFPswDVvqKxANq0uo +7hbFK8LcihSvRni5/bHsjL8Y1rNMMPJ6qiH08S7UEhVHzyXL1GtVpTCTlbvZ +t0gcY1qEjdaQHwOn7MLIbTMS2v22jZCbz4SXwuQTDydJeICcdHx/3D3gGtzd +FxktgbI3WsZ5euLAMoB/6KaSJIptyFkrVxgBhrdLn55vlcQrhM3Ze7euwrjS +zgMWR6WwKMp0lCfQH+JvHbml81cK3W/szK7b5As1bZcLOZOk8U7oG672UHeI +uR50r2qHDNK+DdO9zzvAhnqHA4ffy+AWT97WjHU2IPBu19IHP1n0PPxTt4Vt +L0QcOHxHdT0Z07yrVCs99WCEPfzuyf1kXL8zc3vemCYkzm1kZzwkY3jDrmMW +mirQ1iJc5TJDRsPMTSx1Rhvh+fXLrgJAQUEezh2/hWWB+/qhM6o3KTjMX3Zd +7ZEw5DVnTrzsoaDSLnPFv17ckK5v3/JpExUbGwNvp9BZQTrHfeaUHxWvXLja +eth7kdi/NM3r30jFqxWGilPa08TI9dHoBSEaXgoeu6weOky07TfzH3Ok4X6j +gLLas72Er9D2/YbFNLS66V28EtdJJBcfv6y6ho7vfq3XmS5qISTi+AVizeio +O14TeM++jpguprEfv0fHcl17pYisUsKoMtTw9Rgd2cXzSNsVHhEu+ccDk9QZ +aDISmv7KKYN411cl8SWYgYO6zHWKZXeI6ZTWY+8+MFC3/+HWw9+jibmd1W/t +jXnwnpxBQLrCJOzqpr3ffokXRXlcNxG/mWBxMbPmYR0fet7Zscibw4Rc5911 +ttP82LytRMhvIxPyae82z0YLoO2b+sKMAxNwnBT9I0RZEMuTx8tVxcch+fry +R7lXgjgmwqU3d2IUJORDasO8hbC7XMyxX/M7lPH/eZsqIorpT6RownOv4UG9 +FLPjsSj+HfcWMFnfDIOZhzgaLcTQOjl372+FOohmNTJsmBZDh9Kuq/yXn0JR +90hBe5g4Ki0WZ5/59wSeqcaGZSmQsDu09HDCWBbsYJ8Ki2gk4VbVoaDIjlT4 +u94tfJu7BJ552WzR9DMedobeLBpll8SI4aLPSp5RMHLR5V92qiTmRopUTKUG +g/+iYd0OHSmsjfqps0f2IjyJrY4Y7pZC/eWDA1mzpyD6kYBckI803miqZCnZ +7AE2xj5q4wIy6KjXpDVCc4IopyA3+zwZ3Nawm1R25gCI5hYkJZjKooLJbnWy +mDnwe4TP9TBl8ZOu7Mtlt/+gppN7p6geGa20N7B5v9KG0cJuNUbsar6zn3s9 +ZFUDpzSv4sZ+MpZGyX/JzFEA1Q6fO583UfB5g2rkBX0KzNcFaO73p2C+uI5r +foco+HjbM21fUFDLG66HB/PBQJ+hbYMYFY+Yymvs4FkLqYd/G1c7U7E5xn1+ +fOY3USYlmbn5CRX/6C530vh/EnUpuuVrWWgY9ekZm1nzCHGlR6ffcS8Nw0Z+ +z+YXfyE8Ct9cI9+n4T/vsFPqWe8JXv3thOsUDX9yLHhv0X1FuMf6cilr0TE4 +4SqUadQTTx+URTuG07FXn0ovmHxK2DTX36V10VGMQfhdF35CmGwk+O1oDPyV +ECi1PiqT2GZUp/XHl4Ft3zZsVXC5SwS9BUp1HQPX3ljOKRqIIcyPUkxkB3nQ +tWSXzGfhSai42Xgsg8qHxJ2O64EfmcCR1dwJtvwoJfLi38QJJqR8itX7rSuA +5u5Nz9TbJmBt9Nd7YoMCuIZaOkZvHIf+2n5ZnQBBLFRyf5dkMwbXzVz0cteI +4fQA0zNytB6Kmlg1ZDLE0Io6tqEs/BkE2qloFGuJI+moSmiAaAkon/XKF+kR +x18loa3D5/LBitvW4NoZEvJcYxodlHsAR2gWVnWiEvixROrtZGsyiFQqbB0r +l8A625jsupkY8PS5JaJmIYkD4RPC3so3IDef/aTRT0l0n3x/ZaIoCA46Kk57 +3ZTCywo53evFz0FA1L/bKTRpvFfndKQ37CQwJ6e1o+ulkcYmX/2R6gbtTbfW +R9nJYIh8RuymicOQQEGjQysyqN3Ypyr8zhK4l1/vF74vi09MhWas5Y3g1p/T +Gr8kyfjo8KaMkVQdENDi+vfSg4x3phenzfapg6H62W56BRkrqx6OhGzfChrT +zxrXrqVgol4SvYjGAHOdKBUDy1Uf6KakiS9JAsVsZyFvKgU983bEjFUJwbAM +c1xrmoK/kw0HzjzkBOe8M+rTu6i484b4Sz0PFkia+xi/KYyKnIp+vk1yC8Ti +h2a/5m4qFt1aybVTmyT4TkceG2XQ0Palv9DxwG+E+Hs7UR8/GgIz74hG9Cfi +3KkkhZMvaGgy78A7+rSDUKCl1v/bQMdknox/yo7NxOu4fJEFZzq6D5xpWvKs +JhQaoi/4FtKR7R9f0dPEYoIoMJk7vUzH1BM/UmZO5hIBKgmT3caMVW/1ZyZ5 +pxG+PhVL9YkMtBNpmxg1TCAcjlsWjY0zsCZmcj1DN5Lo3Uqffczgwbu202+s +t0xCf+4z74M2vJho1c/VsmYShlRTzl9O4kOBlHdTm0uZ0GwWxTf7kh+N/zKS +ObWYEH89SjA3QAArhS8rWp+fgLYTAc6J0oJIklpYsdYfh897g0LTywTRMENY +sqZgFO5xFmu6HhTCPg9GQ3zwd0irjoY6VlEs1tYOrRlqA88vRvEHk0XR7ur2 +sSMDzTDVp3LhESGGl+92OXW/qQMRJXMTjn4xVDI0yLb2KocNPiE/As6I44dx +iTWq9YUQV+V48IkoCctyW8pLf2YD869Vwr/HJJRbLD64Ni0NFqXPOHFYSWDZ +8EytrmAiPIp4TRKdk8CAhb9S109Gw46fWhkYserbsjo9qAoB3SPmc/JbpNDg +pQTPy9BAqBL2uqHeLIUWnY4COHoazqcccNh1WBqfV1SQ+ZI9oVxpbIXlrzR+ ++fyNq4XTGdqKbnkNxMtg2vs3pO5mW0gUOepxbqcsZg9sr/08Yw5cLaesxT7L +Yq/km8J5PwPI1XjNOaZBxtdHx4+YHSQgWqDQKDOMjAnqI13Fi2qQzyvx+PSH +1bwrudU3/dgE46eOF9eSKVi9e9vNQDUqHD98M3nsJAV7PPq8NX+JgZVulSel +ejXvpXnV3CQBuJxbTdHgo2LwP/m0LqF1MKiut+R4kIqlseHVQibLhNuWJyc5 +HlJxm7EK/3nuWUIp+8er8AUqXtgx0zb3Z5Swk9YSkNGjofXwDVOZygFilCUl +mec2DV282wKFmz8QBhESKX+HaHhyrKLtXfprQmDDg9C/ynRU/BQmOKbRQEhI +s9j0BdHx2dcDHgYbKwg7kwGDN210FE/NfMD37QlRN5TVpU1ioGp8xoJk1UPC +hUXXJOwYA3nkRo5f/ZBCGE38XlYpY+BSvfin3NlYQtPuuteJKh58eLm6x01i +Eg462K1tWeJFlaERPfsBJiTZ1dwkqfEj+eC94sRLTMh783TcQFkAtZ6eM80e +noCpuZQr7W0CqKMZNPtvYhx0RF/FWhwTRP8K5y23wsbAzDNmUm1SFBMjdswz +sxqgZqU7jyNKDC++YG+rKagC1hB17V/y4hhE3Hv4fbgEovl5JhuaxbHg1bqm +J02PYMvtjWI3nUhYs99HVm19JghLVTiqsUqg7cbcnQobU0CgXYO96oEE3iep +1X0YiIUBv44AB5DEpNuKHS+PhcMSuX/DYJ8kTm6tOX/27hWgvlClO/hLYZbk +x/sLeuchTOBx7A8BaXTwWycYYu0DH/o0zpoUSOPgTP5g4t6joJy1/n3mHhns ++Hf/4WtXe/jgY76vd1QGN91pjeUbtoLIo8Hy8zdksfYG6Up+hDHwbRobjRMi +48kXswWGQbqwnPqyLcWRjJyaKmMtcRowfdvsx4PHZOThDqfOuSjDFTv3upLf +ZJxnv/g0RlkOOIdDjRX3UPDMhnHDhABpiJ8w2pAaT8FiTr6qXwUboOWnoQfb +dwrufFoaWsvCBaznxv+5bKMiT0CRl4/uGuhtl9V/c4mKwyZ1p07o/SKyRw7p +prZT8URcGyPg1RThH6h18YQUDZP/u+trFzBE/BSxMdzsScNSdrL136XPxHz9 +UbSrpuFRj8Q+udS3hJNHMOUOFx1VKGdP1l15QZwS7o9ptKXjEe2J6FquWiJC +6zNOZdExkrrXPepOCaG/7fg98iwdiRtP/kY25hHTUyxlFToMpN7+EMTvlE6k +b9Ti2hfFwJH07Paus4mE/DW+yCMDDDQS5GB8/x1F3F0XoSmYzYvHTHz6VX4y +ofbFI7a273zYYOxrIn2XCYnmiR9PzzPQ7ej0Hem0CMI8t4utW4gHdaN6t6Qp +T8KWOI4qpg4vemzL/mq/bhIKeEn7vUL5UJGS7TNbyYT3/xWXQjk/bmjq/eCm +zwSeZ15Xg31X85vb0c8VNgF/k3ylKcKC2MF1x63Jdhz8nzTYO+Sv/mMb7Efd +2kZh4FzrgoW5EC7mJ5T05X6H+LhDC2ZLIpiSpuO+1r4dOiYdPWRviWLdlcgv +SqYvYG5Janv6NjG80Zdm3kh/Dt1oaZrzXgxH1rPsZn4vB/3qD/xWHuK4PbrZ ++JhcEQStaa3fxkvCt889rakXcsDgAqdMRSYJj1sfairjSYeFrOW26T0SeHVw +adkpMxHc+D3b8sclUFFNy6mjIxqO5G88w3NFEkUvFGiImIWCnKAVXzpdCgOE +f3pb6F4C3Q/6YQNVUrj976DeK7cz4H074KKkpTQ6sbf+KjvgBcekGc4Rc9LY +EnEp/sAlZ2B+Js2kRsggETybJOB3EA4aN7xzV1717ANr+YvO++D6wsi60g5Z +fPyOupPJthtSPZROdqqt9uveD+/KFACGQNpm+BoZBd29flme2wadetP5rzvI +WPHy0ft3iYrQ3OSGRZIUvCAS1tPymAoP8m6/VvWkoH7ycsmaaHEwyB9XWle+ +2sdln0fCrgtAh8BisO96Ku4KZuViJK8DtswRsxJrKrY2RRXf+bdMEE/9beZS +qej/34+tdZGzhNPmZus3M1SMMGSvS7s7RuypUVdY3kVDydNCx3q3fCUeZrNl +sUbTUEHRrd3o0EfCSfmmifEADd1aT9OabduIoU7t5mFFOh6f33ZNu6aBMPn0 +QEPyIh01x69rcL2sIOz5f0gyWukY+nxkXNG0kPBv6NXaLMzAtPU70moPZBEB +PVesOlwYWMghyKd4+x6x5Vz3ceYTBloa0bMXrsQRBR+1AhNyeFDebX6LsPQk +5O7J3ndwmBf/C2gD/mEmOKvv9GAn82Pgtn2yQqFMKHq5h5iUE0Djdx7LLjMT +4LwxYC6nQQA3+J6a0vo3Dr46z/f22AviQbTY4Z4+BkX+OfWLg6KoXHJE79X6 +RmgkNbouXxPDnMAG+3m9amhM2knckRVHEQy0NTEvhbpDh3iTq8Tx8c2pIIpP +AUh+jrwkaEtCp8XxnLWBmXAi0XOU+YuERslRw097UoD3QJ1PZpIEFsXuzQ+2 +i4OkpRPKv7ZLotkRywuPuSOA3NM6/OidJDqy7eOJErkK7P47iE8npTA4JzJM +9ct5EHgbEpPIIY2TRyZOjtf4wMsPdnGbHkhjTYDCWPnoUfia8J+mCsrgEw9S +0LKwA8zd6X5/t18G36RXdp0/ZQ1mKV+jhy/L4t6Q3ac7/zOBvTq05994yWgp +JTseP68LP99t2h5qR8YDOsk2f7U1Qb/p2e+hXDK+37c/4UObMmTHEDU8C2T0 +EYi7PP9MDoZ2XOuW1qfgA+uJDAkDGejQtNQfu0XBmmMKtiFKwlBpd1ZxZICC +Y0MvWKdLuMCin+5yfysV5b8lD8sUrYFlrcYkygUq9nrlfRHq+kVcPiknf7OV +igtNrQpv7/8gnrAJcRSL0ZDarZ5EZRkmBsosHLmPruZRxtXctKyHKDnebmxR +TkP6YnncnHgnEci/2DG8jo4f55kli+IthMF7v7d5VnT8OibUsmGwlqj5FUhT +ylj1gfumpH6ZUmL3r3On/Kbo6CcsGV58Op/IbdsukavNwDoHc7OKgXSikjVA +KPEGA8V1hxI5Re4QPILMP+I9DNSd/1FvfDKaYE51hWTE8qJhzwXxPQtMuJ6u +8LXiHR++TnALeJLOhIC+M/pbpxn4u+HrQo33TaKkodK98jcDVS59zRH/FE7c +OKrC47meB4O0qA8aVCbh4/VHg6XqvPhOpU2JwjEJQn8+Nn27yIf2Kr67GquZ +0IP/rf9ewI99LpVv/xgyweC9nfYpLwFU2199uzp6AhKeePm78guiT8aJSiuX +cXj5dcgYsgTx7auXS+G9o8BSaPVhj7EQztg84T5U/R0EWZ6/TZgTwSbvFJGM +u+3Aembyw5oIUVT5UxCaGfwCFkKFYu5uFcNR0cXCSrPnoPnKyuz3GzEUdzUf +8KNXgJ3zyn1wE8fPly0tCdsiWMxYXvDjJGED+6toq7ocOK3p9PV2Kgn/rFg1 ++eqlw5xn3dVhfQm8JxnfUzSdCA0dWhsXhyUwd/nUz6o1t8A3TPrIzwBJnL3W +7vz+Tigkjlsn98tK4eeVynHVtEsQUvqEc3u5FIb3X3q4MesMuN/ii+AylcZx +iqbM/govqBdpEOn8IY0zFd8FnzxzhuWpPtWgUBk0DYjxc35zEHa6zXA4Ksqi +PxY3HE3ZBy94qf1sr2XxC2voWIHxbpAM7qXtViHjHufqt2djASL3vzsUfIWM +qYs6nRYV22DoSE/euXYyRp7esHN4ShFKpoZCFEkUHDnqm6Hwgwr1nSTXrmOr +9/DLxrujTxyIr2t4z5ZS0GXvv6vuzwVgUU+knJ+Dii1Ss/pxA+sgrkfzwmFL +KppMSXWuO7RC5P6xbz1+j4oYckuy9O0ssXKiUMLnBxWVPOzzzk+NEXV8Zds9 +tGh4huJ3wOP4VyJ4uSz/4k0a/vSI8XLO+kicvGLwYKaPho8KTobOlrUR7aph +rrYKdKyPsDMB1kbCVf2XQqU/HcMYrQbzUpXEwEk/9o5mOop4De4ov1ZIfFT9 +5ZUpyEDuq9F6D7KzCM49Gd2nnBgYMTAT+XLhHpFKvEjbU8DAoY0DD6RexxGj +sbdDFFN58I2iO5urzCRYEKbnaD28yLL1yrf9I0xooS9+ChDlx6tzFbvLbzBh +R4uQO1IFUPFhOwvj1wTcQ49HCTUC+DHB688jzgng3l+VK3tIEHmlG/JyC8Zg +aM32zT19opi6O5G6W6sRXmRV1C9cEkNZ1t7FS1HVIMfQhnEJcXykmNmxOaQU +utdcTQl5Ko6HN3ZnU1sKICagvtjSioQ8kDprVJEJd22a81p/kpC5h25wTf0e +8Ehf25h0WwLXXuo/6ZUcBwuVcENXRRLjPMsP/TocAdvKa9tj2yUx7L3rkx2W +V+GcpcYrEU8pJHHqZWza4g+WhT8FJ1ml0e9606mQOR9ofDuVTrovjf1Hfhg2 +qLvDzuhvE35aMnhpKZdtzMAB1hbcFb34SQbTQz75ilRZg3I5f1PfBVmc2ufs +qfLABJgmuDmcm4w/dmp0v1bWA8/Jz6N/bMn47+PDPw0xmjDV68MSnE3GYtPX +UcCmApWPFKrLZ8m4PYfsz2TdCJ32rLIJOhRU3TbysDdfBqYcunpvRlFw08Zz +w2c9haHoViS3bT8F/046m34S4AZ/Qd147c1UrKD+XWCdWAMRvqLNL89R8XJG +6oIOdZFglnAns72gouvNlGY+9mnCxGDllZUIDecrTYZ19IYJG463Xv4uNBQk +OFIdRHuJ2JqgfW2lNKwVazsQbdNJRDgWykew0fGVNpvYBdcWQnlbw0lZi9X/ +a8EvbX5jHdFl/Vb4VSod47ayEi1OpUTLAZYjFCYdz0Vk/3Frzyc4dpmbUHcy +0CzOe86SkkEYnLwbr3WdgRc5M9ZLuN4hArs+q/p1r/brrpDZidxoIu7bxUee +Ybx4yvtA2+5FJkxGjZgpv+RD+Sfm3cOZTJjKcLkQMclAl1N9n8q6bhJyN3Lu +iy0ysApf8x7XjiB0V16pHF5Z9cjARDT9bDghb3BEoGwtD1ou/ZawUp2ETVdZ +/JJUeTFe6THxb7WfG2e2r8ic58MZrs875WuZcITgU9PM5ceL9UE9YMyEIYf3 +4uPHBXDdL46ViLgJcNGayObgFcRtg48tYo6t+sN//nnBA0GsEb3/QGhoFAT2 +Juk3GQqh/olAkejm79BeeqpW66cI2pY0GN961g5JGmrcp8JEUc76gk1I2gtY +NL1ZR9oshs8EY6g2rs/hePSHN+ltYmgSNmHsqVcB7jsE3UudxTGqXTe2y7cI +1M6ICoqzk9DLjnvX5m85cEOcX2/tPRKq3tkjxmWfDqfN0vvtdSXwTqBmbp7o +HfAtpL1P+SaB82ujxl0lbsHy2UQLV39J/LnGiXajNhQsuj5+DZCWQrmV6hvc +by9Bdqab4ZdSKaSO3Pa+++IMuEbt33DFWBobDm2plxz3gilBoR+nJ6XxYLNd +KPmzM6xdqrWcuSaDB5CpGLB8EHJPcVL75GXRlLP19IPKfeBGAqO8VlmUJ3HC +txO7oftWycU1ymTsHa+539cC4OxccMQ6iIxclBR22c/bwJtpnmfaRsar8aTv ++ySUQImNvmlUjIKDGE/fxE8D8++HCnPcV33M1VS1YR0JKi/wrmwtoWA3p14n +uV8AIvpo+/rXUbHceMeO+2zs0LswKKBqQUXtmC+RG8NWiIGUTla5FCrW04rU +g2dnCSPBjSs6U1S8kp7r/EJsnPizY/4ZdScNXQZZ/1y6/pU4/TB6q1bEql/i +WuM62j4S5xRpHY29NHzT0PZ5cbiNqHfaun2D/KqPzbabJtIbCV+31PSw83T8 +3Tkb2m5QSaRRKi9kNtHRKuP3YyK1kLh2fG2oowADC8zDPy13ZBHtl4qT/nNk +YKfIs+988veJT2nErsV8BpbR09UFZ+KIYN/6G2eSeVA7tHYdj+wkPNRI4+b8 +yIth7rp+50aZ4C+5X7BckB8l9pq1B0cwYdHg1/KYrACaK9GCVpYmQKttMIyv +SgCTwtqE7XgnoPur5qfnBwSx7+5K+vOSMbjY5O9k0iOKwmK3D8tbNUKL97aZ +UxfFMDg25GRQaTXYjFfVxoiLY865bVeM0kph6H2863KJOPYeStuyMFsAbXt7 +2+b2kZD95xlWua5MKN5+ildjetXLpq8+vna9B+H/XK8Ix0qgXeQ3cblncfAg +eaP66BZJVLvcXOgTGgE1D3c2sL+WxBcBbp4WvldBBSsES45JoaO77P6/1v5w +Oi17XwKLNLKwdeRF8fvC8zfqm27dlcanMq4e2fbu4Bah2kTSlEGhgxIu4g4O +wFMeqD75UQbXkHhFagasIbVJ7ovteVms4K68++GdCVR1mn47wkXGhqA1Z/JN +9WDT7yLdsgNkpAi/V9hQowkNoyZs1llkXFj2qVWTUQF9rftVkT9X+9xSI6hS +biMYndapt0QKXvyiVVI7IAMBp0kKDpEUvGWYY1IVIQxblJL+CPZRcGEonEMf +uIEvz3wrtxIVX9Xrm1dwsML7m7WH7p+lorOauYSq4SJB3R/4vqaJijsH9RSP +UqaJpBHfAoYwDQ9ah9VQXIeJmK0CcyrONHQ80WH03aCXuOJ+6P2NEhqW8LFk +5Z/pJOK4Iq3sWenYpcugiUW0EAyXY/jJnI5rYh7qFenVEUPX/G8m3adjnwHW +8QWXEmHr9d8tjNMxeP72xdw/+UTZ6cOu/RoM3BFz4M+sTgbBk5V/gDeUgfFG +Kc5Xbt4hnu60aKd3MXBz6BudGy3RxGhfB+67xouxPs/Y9JeYkBpiEOrRxIec +MaURF7KYsJGjV1SLycAGO+MPNTyRhP0kWat5gYH7wAYTvCOICw56bdzLDNS8 +r6wzmxVOcCZZxRf8ZeC7zaIs+QbhxP8AMZgtAg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1mOgFnYYxuFzsm172ebC0rJtLSzb1jKXa9m2bS7Xsm3XrrN9uHr/v7vn +9KUTkjZqW+n3wICAgLjBAgKCPnf5oSkRWK/rk40nehy5ualH4ksCdutmRGSD +bkAMP7FVNyQs2W1PfY4nD7f0HwRnj25OJDbqhsT09dt0I8KRw/bM5wTycluP +IgR7dQsis0k3IifP9UTycUePJiT79G9EYbNuTC5e6Enk564eQyj265ZEZYtu +Qm5e6skU4J4eS2gO6FZEY6tuSh7CcNDWmuhs083IS1jCEZ4IRCQSh9y1IQbb +dXPyEZnDtqDfuJjs0C3Izys9hYLc1+OIwhHdlljs1L9RgNd6KoV4oMcTlaO6 +HbHZpVtSkDf6T37moZ5ANI7p9sRht25FId7qaRTmkZ5IdI7rDsRlj27Nz7zT +0ynCYz0p6PuJE7oj8dir21CY93oGRXmiJwd9/3BSdyI++/TvFOGDnkkxnuop +xOKU7kwC9uu2FOWjnsUvPNNTic1p3YWEHNDtKMYnPZviPNd/EoczuiuJOKjb +8wuf9RxK8EJPC/qzyFndjcQc0h0ozhc9l5K81NOJxzndnSQc1h0pwVc9j1K8 +0jOIz9+6B0k5ojtRkm/6L0rzWs8kAed1T5JxVHemFN/1fH7ljZ5FQi7oXiTn +mO5CaX7oBZThrZ5NIi7q3qTguO7KrwT9JbPQVpZ3cg6JuaT7kJITuhtlCHS/ +yFaO93ouSbis+5KKk7o7ZYN+efeLbeX5oOeRlCu6Hz9xSvegHMHdL7FV4KP+ +i2Rc1f1JzWndk/KEcL/UVpFPej7JuaYHkIYzuhcVCOl+ma0Sn/UCUnBdDyQt +Z3VvKhLK/XJbZb7ohaTkHz2IdJzTfahEaPcrbFX4qheRiht6MOn5W/elMmHc +r7RV5ZtezE/c1EPIwHndjyqEdb/KVo3vegmpuaWHkpELuj9VCed+ta06P/RS +0nBbDyMTF/UAqhHe/RpbjcCA//7BWuYjLXe8h5OZS3og1Yngfq2tJoEst6Xj +rvcIsnBZD6IGEd2vs9UiGCts6bnnPZKsXNGDqUkk9+tttQnOSlsG7nv/QTau +6iHUIrL7DbY6hGCVLSMPvEeRnWt6KLWJ4n6jrS4hWW3LxEPv0eTguh5GHaK6 +32SrRyjW2DLzyHsMOflHD6cu0dxvttUnNGttWXjsPZZc3NAjqEd091tsDQjD +Olss23bvxoQntt7hswlxvHcG/v//i6xu/wVs/QNX + "], 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]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + 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" -> {{3.5, 11}, {0., 0.9124622705136872}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[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:eJwVVHc41u8XFoVssl7znSIqKyP6nIO+EkJGpZQtZRShkpQKkRBCpIxEkjJD +VlZUJA3KSCLrJTIiqp/fP8+5znXuM+77nOuhOJ2wdGVlYWEhrT7/t030a8Is +LDzIK7pvw5DqJMgbHhEoW8uDVku/JaxX/cijKjye63kwRId6r0FlEizyuti6 +hXhQP6Z3S4byJPRupc8+ZvDgbdvpNzZbJmFue/VbexMevCNnGJSpMAnUvT+i +axN5MGOvhnSR7CSE+tZH+qfyoG547TqeVX80/maYYjoPvlF0Z3OVmYSCjzrB +SQ94UN5tfouw9CRo2131OlHFg/cvVve4Saz2P0oxlR3kQdeSHTKfhSfhwnmr +9Rc28+JfO7/0Hs5J2HSZJSBFlRcTlR4T/zgm4ePVR4Olmrz4TqVNibLqb0ng +qGLq8aKHeu5X+3WT0J/3zPvgPl5Mtu7nalkzCTu6ae+3XeBFUR7XTcRvJoz2 +deDeK7wY7/OMbecSExK+nX/kGcGLp7wPtO1aZAJzqissK54XjXrOie9eYMLt +dVHagrm8eMzUp1/lJxOWVefuMDt4UW4gMC5xjAn3tTK4OT/yYoS7fsCZUSZY +EmZnaD28yLL10rf9I0zI25279+AwL/4X1Ab8w0w46GC3tmWJF1WGRgzsB5hQ +cb3xWBaVD4lbHVeDPzLh9GiC+kE/PuSy7TePqGNC48y2PzJn+XCG6/N2+Vom +CC1/bPp2ng/tVXx3NFYzoYCXtN8rnA8VKbk+s5VMGFJNO3sxhQ8F0t5NbS5d +ned8ds39Oj70vKWxyPuACelhhuEeTXzIGVcadS6HCZMxI+bKL/lQ/olF93A2 +E65mKnyteMeHr5Pcgp5kMqH2xSO2tu982GDiayp9mwlKQmVGszz8WGrj8cA8 +mgmBkvsFywX5UWKPeXtoFBNa6IufgkT58fJcxa7ySCY4a273YCfzY7D6Xlmh +cCak2NVcJ6nxI/ngneLkC0zgyGnuBFt+lBJ58W/iBBMGdbrsorL5cUkt7u6F +PUw4QvCpaefx4/n6kB4wYUIP/rf+ewE/9rlUvl02YsL7/4pLoZwfNzT1fnDb +yYRm8xi+2Zf8aPKXkcqps6q/864622l+bFYvEQrYuKp3U8+NeGkB7FjrzfF2 +ZQIWDX+tjMkKoIUSLeTP0gRotAi5I1UAFe+3szB+TUDRy93EpJwAmrzzWHGZ +mYCHb56OGyoLoM7TM2a5wxOQ9ine4Lf+ar570zPNtgkImTSZd3AXwGN/A1pt +kidgyOG9+PhxAVz3i+NPVMIEGL630z3lJYBq+6tvVsdOAM8zr8uhvgKol9fR +zxUxAYlXYwTzggSwUviios3ZCcinvds8GyuAtm/qC7MOTEC37UG30AoBfNa1 +Z4JVaAJ02gYj+KoEMCWiTdiOdwLuoMejpBoB/JjktfyIcwKcNwbNPWgQwA2+ +p6Z0/o3D1Fzapfa21X7aIbP/JsZhbezXO2KDAriGWjpGbxwH5Wb3rgdcgpht +LabZ6j0OLjoTuRy8gqg++Ngy7tg4JD3xCnTlF0SfrBOV1i7j8DfFV5oiLIgd +XLfcmmzHoe1EkHOytCCSpBb+2Owch+Ok2B9hyoJYnjperio+Dvc8n3K47BNE +3brG+reVY9D9VfvT8wOC2Hf7T+bzkjHg3l+VJ3tIEHmlGx7mFYyBr97zPT32 +gngQLTXcM8dAT/RVvOUxQQyscN5yI2IM+mv7ZfWCBLFQyf1dyr4xIG1g15LJ +FETlrfLONyZGwTdw/nnBPUGsEb17T2hoFF5+HTKBHEF8++rl0rXeUQh80mDv +kC+IfBvsR93aRuHznpDwzDJBNMoSlqwpGIXUqysf5V4J4pgIl8HciVGQ/vvT +f+vcKr7+YkAScwQoY1+K0VAIH3Cw5NW8+Q4Ce1J2NhkJ4c4TwSKxzd+BpdD6 +w24TIZzZ94T7UPV3GDjTumBpIYSL+UklfXnf4Q5nsbbrQSHs82A0JIZ+Bwn5 +sNoIbyHsLhdz7Nf+DkJHlV51Jgohdsj6LacNw9rhM4MuI0LofPnpkcP7hoBs +ExdTcn4DihoQRRwvv8Ihs9H9RWRhfLtG24y3rw/ePKu501MujFGZn4jNed0g +Y26dzG4mgh2ck56OM+8gykPu0ZcfIshMvSSQ8Lkd2ktP1er8FEHbkgaTG8/a +QZDl+dukORFs8k4TybrdDokJhxbMl0QwLUPPfa19O2RUx0IdqygW6+qG1wy1 +QRn/8tt0EVHMfCJFE557DQPFbxYcdUSRYh+hZUt9BWorZ3AoTBRHFTOCLlS/ +gBQtNe5TEaIoZ3NuX1jGC2D1n/ywJkoUVZYLwrNDX0DHpKOH7A1RrLsU/UXJ +7AV4fjFOPJgqinaXt40dGWiGe/VSzI7Hovh33FvAdH0ziEbUJVV3i+IlYW5F +ilcjnG8KdDLtEUVhsZuH5a0bYWjNts09faKYviuZukunEYoCH9QvDoqicskR +g1frG8HcM25SbVIUk6M05pk5DXDV3MUgb40YTg8wPaNH62FJhPNH4iYx9Hwk +T+E49xwWza7XkTaL4TPBOOo+1+ewEC4Ud3urGI6KLhZWmj+HuSWpbZnqYhjZ +l2HRSH8OU30q5x4RYnjxdpdT95s6GMw+xNFoKYY2qXl7fivUwcttj2VnAsWw +nmWC8bCnGlq81WdOnRfD0PiwkyGl1fAip6J+4YIYyrL2Ll6IqYZGUqPryhUx +fBDcYD9vUA01f7ofcsSI4fkX7G01BVVQ1MSqJZMlhtbUsQ1l155Bis0+C5NX +YhiwUW0sxKkCjsd+eJPZJoamERMmngYVoP3K2vz3GzEUd7UYCKBXQDdamT14 +L4Yj61l2Mb+Xg4iShSlHvxgqGRnm2niVQyyrsVHDtBg6lHZd5r/4FMIf70Ad +UXH0XLJKv1JVCvvGq2rjxMXxwRn1S8YZpSDH0IVxCXF8pJjdsTmsFBpTthO3 +ZMVRBINtTS1KgTVMU/eXvDiGEHfufx8ugWA7Fa1iHXEkHVUJDxItAb/1DGVF +R3FsJZlSYqOKwF1D0L3UWRxj2vXju3yLwM75z11wE8fPF62sCNsi2Fn9gd/a +Qxy3xTabHJMrgg0+YT+C/MXxw7jEGtX6QijqHilojxBHpcXiXP9/T2AmJ2+z +b5E4xrUIG68hP4ah94muKyXi2HsoY8vCbAF0r7mcFvZUHA9v7M6lthRA3aFD +vKlV4vj4+lQIxacAYvl5JhuaxbHg1bqmJ02PQPm0V75Ijzj+KglvHT6TD96G +yooVbCTk9Hp8UZk9D9T8RQXF2UnoZce9Y/O3B7CYtbIQwEnCBvZXsdZ1DyBk +TWu9Oi8J3z73tKGeewAJVY4Hn4iSsCyvpbz0Zy48U42PyFEgYXd46eGksRzg +lF0YuWlOQrvftlFy89nQtqe3bW4vCdl/+rPKdWVDXFB9sZU1CXkgfda4Ihsk +P0dfELQlodPi+IO1wdmw5eZGsetOJKzZ7yOrtj4brLltDa/4r+KvMI0Pyt2D +jF/P7vmmktDh30Lvi8BMiBTnN1h7h4Sqt3aLcdlngp+209eb6SRc/mPd5GuQ +CYbnOGUqskl43OZQUxlPJjD/Wif9e0xCucXig2szMkCDfSoiqpGEW1WHQqI7 +0uGlMPnE/UkSHiCnHN+fcAeKt53i1ZomobHZq4+vXe/A7X3ND1t/kpC5m254 +RfMOnEj2HGX+Wo2nxgw/7UkDYakKRzVWCbTdmLddYWMaHKFZWteJSuDHEqm3 +k62pMKtyRfszSKD98ELNZ91b4Gee2W+vL4G3grXzHoregjnPusvDOyXwjmRi +T9F0MizkrLRN75bAy4NLK07ZybAo7e/EYS2BZcMztfqCyfB3vds1dXcJ9H/Z +bNn0MxG4Bnf1RcdKoGxkyzhPTwJc++d6STheAu2iv4nLPUsAHukrG1NuSuDa +C/0nvVITgPdAnU92igQWxe/JD7VLAIF2LfaqexJ4l6RW92EgHkQqFbaOlUtg +nW1cbt1MHJDjuEMMvkogBrt/V1a7Ab6FtPdp3yRwfm3MuKvEDWjo0Nm4OCyB +eSunflatuQFu/J5t+eMSqKim49TREQuPol6TROckMGjhr9TVk7GwPfx60Si7 +JEYNF31W8owBqyD+oetKkii24cFaucIouJe6UXN0iySqXWwu9AmPgoVKiNRX +kcQEz/JDvw5HQcrSCeVf2yTR/IjVucfcUTAQ0BHkAJKYclOx4+Wxa+Dpc0NE +zVISB65NCHsrR0KY24Zd3aclkcgyrD87HA4rp5MtXQMl8ecaJ1pkbTj4Rkgf ++RkkibNX2p3f3wqHI/kb/XkuSaLouQItEfNw0Pipk4VRq/lldQZQFQYj513+ +5aZLYl60SMVUeigY3Sx9erZVEi8R+07fuXEZau5vb2B/LYkvgtw8LX0vg3p5 +bXt8uyRGvHd9omF1Gcg9rcOP3kmiI9tenhiRy7BE7t8w2CeJk1trzp6+fQny +8tlPGv+URPfJ95cmikKAu3G/vKSkFFY6mlBuslwEy66PX4OkpVDuT3Uk99sL +kDxuk9ovK4Wf/1SOq2ZcADlBa75MuhQGCf/0ttS/APpHLObkt0ih4UsJnpfh +wRC4aFSnoSeFtTE/9XbLnodxpe0HLI9KYVGM2ShPcCCoYIVgyTEpdHSX3f/X +JhDOWGm9EvGUQhKnQdamLYHAHqhBfDophaEPoiNUv5wF6gtVukOgFOZIfry7 +YHAWDjoqTntdl8KLCg+614ufgdabUlcjiqXw2ee3aTjqD7nZbkZfSqWQOnLT ++/YLfwgrfcK5rVwKr/VfuL8xxx/0P+yMGKiSwm1/Bw1euflDlbBXpGazFFp2 +OgrgqB88ia+OGu6Wwp0rBwdyZk9B4o0jN/T+SqF75Pbcuk2+4JeRuzeJRRpZ +2DoexvD7glXhT8FJVmkMuNp0KmzOBwTehsUlc0jj5JGJk+M1PhAh8Dj+h4A0 +OgSsEwyz8YGgmH8302jSeKfO6UhvxElwup6esmQkjZbyXNVbJL3BNWb/hksm +0thwaEu95LgXuN/gi+Iyk8ZxirbM/gov8L4ZdF7SShqd2Ft/lR3wgrNpBxx2 +HJbG5xUVZL5UT4h9JCAX4iONkU2VLCWbPaCm7WIhZ4o03gp/w9Ue7g7P32hu +unFbGp/KuHrk2rtD49upTNJdaew/8sOoQdMdXn6wS9h0TxprghTGykePwoc+ +rdOmBdI4OJM/mLznKDAnp3Vj66WRxiZf/ZHqBhJ8ji1iE9K4GDYlV7voDFOC +Qj/8JqXxYLNdOPmzM9SLNIh0/pDGmYrvgk+eOcMxaYZz1Jw0tkRdSDxwwRnK +lcb+sPyVxi+fv3G1cDrDPhMftXEBGXQ0aNIZoTlB3NWQO1UaMkj7Nkz3PusA +blGqTSRtGRQ6KOEi7uAA22O/TQToyOCFpTy2MUMH+Jr0n7YKyuATD1LIirAD +KOesf5+9WwY7/t29/9rVHtqbbqyPsZPBMPms+E0Th4GbLdPP8ZIMrlx4UvhF +4RCsXaq1mrkigweQqRi0chBWpvpUQ8Jl0CwoLsD5zUFgfibNpEfJIBE6myIQ +cBDaim54DSTKYMb7N6TuZluIcQpxs38og+oNu0hl/gdgQ73DgcPvZXCLJ29r +1rp9wFMerDn5UQbXkHhFagZsYG3BbdHzn2QwM+yTr0iVDczd6n5/u18G32RW +dp09ZQMffCz29o7K4KZbrfF8w9aQREHjQ39kULexT1X4nRVIhsjq2srJYlbq +D5pg917IO8VJ7ZOXRTPOVr97lXthu9sMh6OiLAZiccPRtL1w0KThnbuyLCrc +s5E/77wXkkWOepzZLou5A9tqP89YgGheQUqS2WrcdJcmWcwCBN7tWPoQIIue +h3/qt7DtgfQmuS+2Z2Wxgrvy9od3pqBczt/Ud04Wp/Y6e6rcMwXztK+xwxdl +cU/YLr/O/0wh+mio/HykLNZGki7lR5kA98rr/cJ3ZfGJmdCMjbwxsDPsyixf +yGKcR/QB84Rd4EYC44etsihP4oRvJ3bBC15qP9trWfzCGj5WYLILri6MrCvt +kMXH76jbmWy7gKvllI3YZ1nslXxTOB9gCPwe1+Z6mLL4SV/25YrbfxB14PAt +1fVkzPCuUq30XP1iO82+HeEiY0PIGv98MwNgmuLma9xk/LFdq/u1sgHs0aM9 +/8ZLRisp2fHEeX3g2zQ2miBExpMvZguMQvThxrKf1i9JMj46vClrJF0PEu9E +dT3bQsbR+XnBtL8A3TdKzq9RJmPveM3dvhYAydBe2i4VMu52rn57Oh4g3UPp +ZKfaav6eD+/KFADytF5zjmmR8fXR8SPmBwmo6eTeLmpARmvdDWzer3RhhP3a +7ZP7ybh+e/a2h2PasOl3kX7ZATJShN8rbKjRBs/Jz6PLtmT89/H+ckOcNvx8 +t2lbuB0ZD+il7vurqw0r6S/b0hzJyKmtMtaSoAUCOlz/XnqQ8db04rT5Xk3Q +OhHhyLhIxpfbq9/LLKuDs3PBEZsQMnJR0thlP6tD9P53h0IvkTF9Ua/TskId +hkB63/AVMgq6e/2yOqMOsQKFxtkRZEzSHOkqXlSD0cJuNUb8qt65z73us6pB +8txGdsZ9Ml5r2HHMUlsFGkZN2WxyyLiw4lOrJqMCU70+LKG5ZCw2ex0DbCqw +s+nZ76E8Mr7fuz/pQ5syTN80/3HvMRl5uK9R51yUwUjzdDe9goyVVfdHwrZt +hV9nm/Por8lY2Pi9bo2hEngzLR6atZHxciLp+14JJRg60vPwTDsZo/02bB+e +UoROg+n81x1krHj56P27ZEXI55V47PdhdR9KbvVNPzaBU4ZXcWM/GUtj5L9k +P1CAthbhKpcZMhplb2KpM94IO3XuVkX/XL0XK62QSrmNUPlIobp8lozbHpAD +mawbITeOqOFZIKOPQMLF+WdycMnOva7kNxnn2c8/jVOWA63pZ41r11Iw2SCF +XkRjQJaYc9s9UQpmLD4PddhKAyU2+qZRMQoOYiJ9Ez8NSqaGwhRJFBw56pul +8IMKzU1uWCRJwXMiET0tj6kwfup4cS2ZgtW71K8Hq1FBtcPn1udNFHzeoBp9 +bicFnl+96CoAFBTk4dT4LSwLxn569VZIwfNfdEpqB2Sg055VNkmPgqrqI/d7 +82VgSONKt/ROCt6zmciSMJQBzuFwE8XdFPTfMG6UFCQNFnoxKoZWq/Pqp2WI +L0nCl6W0P+eOUlD3mUxXghIJLL4fKnzgTsEerqaqDetIUN9Jcu06tlrv1z7v +jj5xuPfw5mtVTwruTF0pWRMrDscPX08dO7mK9+jz1v4lBvN1Qdr7AymYL67n +mt8hCtxXD/mrXqfgMH/ZVbVHwhDkR1JwiKbgDaMHplVRwjDl0NV7PYaCmzae +GT7tKQwd2lY7x25QsOaYgm2YkjAkThhvSE+kYDEnX9Wvgg1AMd9eyJtOQc+H +GnFjVUKgKUqaHC2ioJj2oDbXsgBUnuP9s7WEgt2cBp3kfgEgvq7hPV1KQZc9 +/y67PxcAw/xxpXXlq/OWfR6JuCoA1vpVnpTq1X2WPqzmJgmAj7c90/YFBXW8 +4eq1UD542Jw98bKHgko7LBT/enHDFqWUZcE+Ci4MXePYCdxQdCOa27afgn8n +nc0+CXBDpd1pxZEBCo4NvWCdLuGClp9GHmzfKbj9aWl4LQsXDMswx3WmKfg7 +1WjA/z4nyJ5WHc9fS8XbCnWbBuXYIaqPtrd/HRXLTTQ07rKxw6KBSDk/BxVb +pGZ3Jgysgw6BxVDf9VTcEcrKxUhdBxfzqilafFQM/Sef0SW0Dgb6jGwbxKh4 +xExeS4NnLWTutG/5tImKjY3BN9PorMD30GIrtxIVX9XvtKjgYIVAQf1E3c1U +rKD+XWCdWAOW/XSXu1upKP8tdVimaA2wnhn/56JORZ6gIi8f/TXg/NBfc3oH +FbdHir808GABulDUffa9VAw7fjrvxtM/RO/CoICqJRV1475Eb4z4QyT0aJ87 +bEVF0ympznWH/hBs2SPmJTZUbG2KKb71b4UY1DRYcjxIxdL4a9VCpitE+uHf +JtXOVGyOc58fn/lNSD9wnzkVQMVL5y63HvZeJN5frz109zQVndUsJFSNFoko +X9Hml2eoeDErfUGPukis6DSmUM5Rsdfr4Rehrl9Eb7vszjcXqDhsWnfqhMEv +ImXuY+KmCCpyKgb4NsktEKL4n+7XVCpmPO2bihaZIwbSOlnl0qhYTyvSDJ2d +JfKW7VuP36Eiht2QLH07SxBPA/fNpVMx8L8fW+uiZwm3LU9OctynorqJCv9Z +7lmiTEoye/MTKi7rr3TS+H8S+5emeQMbqXi5wkhxSneaoO4Pfl/TtKrfoIHi +Uco0wSzhTmV7QUXX62nNfOzTxMWTcvLXW6m40NSq8PbuDyJ35JB+ejsVTyS0 +MYJeTRGLH5oDmrupWHTjT56d2iSRXHT7i9AkFS0UAjr36Y0TxoIb/+hNreqV +mef8Qmyc+HOiUMLnBxWVPOwfnp0aI5w2N9u8maFilBF7XcbtMUIp98erawtU +PKcx0za3PErUpemXr2WhYcynZ2zmzSPEyNXR2AUhGl4IHbuoGT5MpIz4FjCE +aXjQJqKG4jpMmBr+eWUtQsP5StNhPYNh4gmbEEexGA2p3ZopVJZhIjBY5/wJ +KRqm/nfb1y5oiODziz42yqCh7ctAoePB3wgNe3X9z1o0/NFWGdpy/yuxrDH/ +jLqdhi6DrMsXrn4l6vjKtnno0NCfEnDA4/hXYneNpsLKDhpK+gkd693ylbCT +1hGQMaChzXCkmUzlAHGpR6/fcQ8NI0Z+z+YXfyHa9psHjjnScL9xUFnt6V4i +bqvAnIozDR1PdBh/N+wl9nG89Qp0oaEgwZHuINpLDJRZOnIfXa0v42phVtZD +/BTZZ7TZk4al7GSbv0ufCfH3dqI+ATQE5sMjWrGfCBeL40WLkTTc+jq+L3ju +I+F3P3arTtQq/4TWhI62j0ToSln++es0/OkR5+Wc85G4n8uWwxpLQwVFt3bj +Qx+JUZa0VJ6bq3y924KFmz8QHoVvrpDv0vCfd8QpzZz3hK/Qtv1GxTS0vu5d +/Cehk7jkfuh9ZAkNS/hYcvL9O4n4mpC9baU0rBVrOxC7r5MoOd5uYllOQ/pi +ecKceCcxX38U7appeNQjuU8u/S1x5lSKwskXNDSdd+AdfdpBXHj/bzmph4bF +VhGRRiLtxBlFWkdjLw3fNLR9XhxuI05eMrw300fDRwUnw2fL2ggn5eumJgM0 +dGv1ozXbthGGURJpf4doeHKsou1d5muCd+c2wnVqlS/HgvcW/VdEavHxi6pr +6Pju13q96aIWIoEr2tqelY5d+gyaWFQLEeVYKB/FRsdXumxi51xbiGD+xY7h +dXT8OM8sWRRvIZw8Qim3uOioQjl9su7SC0KBll7/bwMdU3my/ik7NhNP4z6s +bZOj4+GeD4TSrkai3mnrtg3ydNQ232aWTG8k2lUjXG0V6FgfZWcKrI3EUKdu +87AiHY/Pq1/RrWkgBDbcC/+rTEfFTxGCY1oNhHu8L5eyDh1Dky5DmVY9IZHA +LxBvTkf98ZrgO/Z1BMPlGH6yoOOauPsGRQZ1hLJ6w0lZSzqKLwRkzG+sIwzf +B7x9aE3Hr2NCLRsGa4lTwv1xjbZ0PKI7EVvLVUu8TsgXWXCmo/uAf9OSZzUR +fHO3pO0ZOs6to78bP1lJ+LqlZ0acpePvztnwdsNKwlXzl0JlIB0jGK2G81KV +hOmne1qS51f5jV/V4npZQUhIs+zrC6Hjs68HPAw3VhBP75XFOl6jY+9OKr1g +8ikxXUxjP36HjuX69kpROaXE0JXA6yl36dhniHV8oaVEl81b4VfpdEzYykq0 +OJUSNb+CaUpZq3q4b0rplyklonQ+41QOHaOpe9xjbpUQCg2x53wL6cj2j6/o +aXIx4dT5ZzqwkY4/ZOZcpp8VEhmUynPZTXS0zvr9mEgvJAZOBrB3NNNRxGtQ +o/xKIWHP/0OS0UrH8Ocj44pmhYSd6YDhm7ZV/dKz7/F9e0Lsa66/TeuioxiD +CLgq/IQwrgw3ej1GR3bxh6RtCo+IiPU73y2Mr+5n/ub5vOV8ouUAyxEKk45n +onKX3drziV2/zpwKmKJjgLDktWK/fGKn+vE75Fk6EpFP/kY3PiSIAtM5vxU6 +pp/4kTZzMo9QyxRMl+Zn4GS1q1bKUg5x5fjacEcBBhZYXPu00pFDfFT95ZUt +yEDuy7EG93JziMCGXp3NwgzMWK+RUXsgh6gbyunSJTFQNTFrQbLqPmG6keC3 +ozHwV1Kw1PqYbMIl/3hwiiYDTUfCM185ZRFlfodd+7UYqBF3YHlWL4vg2GFh +St3OQPME7zkrShaR17ZNIk+XgXUOFuYVA5nE9BRLWYUeA6k3P4TwO2USQSpJ +k90mDLSU789O8c4gEsoa7MQcGLiSm5WWYXuXaL9QnPKfIwM7RZ5955O/S3Du +zuo+5cTAqIGZ6JcLd4ignkvWHS4MLOQQ5FO8eYdwYdE3jTjGQB65keOXP6QR +6sZ1Osu+DGz7tmGrgstt4l1flcSXUAYO6jPXKZbdInhy8g/whjMw0TjN+dL1 +W4ThyduJOlcZeJ4za72E6y2ikjVIKDmSgeL6Q8mcIreIzI06XHtjGDiSmdve +dTqZ8PWpWKpPZqCdSNvEqFESIbSurPv+QwYmhFN8d4neJD5lEDsW8xlYRs/U +FJxJINKJFxm7Cxg4tHHgntTrBGLLme7jzCcMtDKm5y5cSiCMJ36vqJQxcKle +/FPebDwR8hYo1XUMXBu58qBoII6YTms99u4DA/X77289/D2WeLrdsp3excDN +4W/0IltiieCuz6oB3Qz8vSNsdiIvluARZC6L96zi53/Um5yMJeSv8EUfGWCg +sSAH4/vvGMLhuFXR2DgDa+Im1zP0o4mNHL2iOkwGNtiZfKjhiSamslzORU0y +0OVU36eyrutEUJ//zq3Tq/Ubvi7UeF8nki2SP/rNM9Dt6PQt6Ywown6SrNO8 +wMC9sA+TvKMIucgHd8UWGViFr3mP60YRJQ2V7pW/Gahy4esD8U/XiHMOBm3c +KwzUvqusN5tzjdD/80rl8J/VexyYiKWfvkZwplgnFvxl4LvNoiz5hteINxp9 +v//9Y+A6rFu4KnqN+B+7Zi0C + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3.5, 11}, {0., 0.9124622705136872}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[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:eJwVVHc41u8XFoVssl7znSIqKyP6nIO+EkJGpZQtZRShkpQKkRBCpIxEkjJD +VlZUJA3KSCLrJTIiqp/fP8+5znXuM+77nOuhOJ2wdGVlYWEhrT7/t030a8Is +LDzIK7pvw5DqJMgbHhEoW8uDVku/JaxX/cijKjye63kwRId6r0FlEizyuti6 +hXhQP6Z3S4byJPRupc8+ZvDgbdvpNzZbJmFue/VbexMevCNnGJSpMAnUvT+i +axN5MGOvhnSR7CSE+tZH+qfyoG547TqeVX80/maYYjoPvlF0Z3OVmYSCjzrB +SQ94UN5tfouw9CRo2131OlHFg/cvVve4Saz2P0oxlR3kQdeSHTKfhSfhwnmr +9Rc28+JfO7/0Hs5J2HSZJSBFlRcTlR4T/zgm4ePVR4Olmrz4TqVNibLqb0ng +qGLq8aKHeu5X+3WT0J/3zPvgPl5Mtu7nalkzCTu6ae+3XeBFUR7XTcRvJoz2 +deDeK7wY7/OMbecSExK+nX/kGcGLp7wPtO1aZAJzqissK54XjXrOie9eYMLt +dVHagrm8eMzUp1/lJxOWVefuMDt4UW4gMC5xjAn3tTK4OT/yYoS7fsCZUSZY +EmZnaD28yLL10rf9I0zI25279+AwL/4X1Ab8w0w46GC3tmWJF1WGRgzsB5hQ +cb3xWBaVD4lbHVeDPzLh9GiC+kE/PuSy7TePqGNC48y2PzJn+XCG6/N2+Vom +CC1/bPp2ng/tVXx3NFYzoYCXtN8rnA8VKbk+s5VMGFJNO3sxhQ8F0t5NbS5d +ned8ds39Oj70vKWxyPuACelhhuEeTXzIGVcadS6HCZMxI+bKL/lQ/olF93A2 +E65mKnyteMeHr5Pcgp5kMqH2xSO2tu982GDiayp9mwlKQmVGszz8WGrj8cA8 +mgmBkvsFywX5UWKPeXtoFBNa6IufgkT58fJcxa7ySCY4a273YCfzY7D6Xlmh +cCak2NVcJ6nxI/ngneLkC0zgyGnuBFt+lBJ58W/iBBMGdbrsorL5cUkt7u6F +PUw4QvCpaefx4/n6kB4wYUIP/rf+ewE/9rlUvl02YsL7/4pLoZwfNzT1fnDb +yYRm8xi+2Zf8aPKXkcqps6q/864622l+bFYvEQrYuKp3U8+NeGkB7FjrzfF2 +ZQIWDX+tjMkKoIUSLeTP0gRotAi5I1UAFe+3szB+TUDRy93EpJwAmrzzWHGZ +mYCHb56OGyoLoM7TM2a5wxOQ9ine4Lf+ar570zPNtgkImTSZd3AXwGN/A1pt +kidgyOG9+PhxAVz3i+NPVMIEGL630z3lJYBq+6tvVsdOAM8zr8uhvgKol9fR +zxUxAYlXYwTzggSwUviios3ZCcinvds8GyuAtm/qC7MOTEC37UG30AoBfNa1 +Z4JVaAJ02gYj+KoEMCWiTdiOdwLuoMejpBoB/JjktfyIcwKcNwbNPWgQwA2+ +p6Z0/o3D1Fzapfa21X7aIbP/JsZhbezXO2KDAriGWjpGbxwH5Wb3rgdcgpht +LabZ6j0OLjoTuRy8gqg++Ngy7tg4JD3xCnTlF0SfrBOV1i7j8DfFV5oiLIgd +XLfcmmzHoe1EkHOytCCSpBb+2Owch+Ok2B9hyoJYnjperio+Dvc8n3K47BNE +3brG+reVY9D9VfvT8wOC2Hf7T+bzkjHg3l+VJ3tIEHmlGx7mFYyBr97zPT32 +gngQLTXcM8dAT/RVvOUxQQyscN5yI2IM+mv7ZfWCBLFQyf1dyr4xIG1g15LJ +FETlrfLONyZGwTdw/nnBPUGsEb17T2hoFF5+HTKBHEF8++rl0rXeUQh80mDv +kC+IfBvsR93aRuHznpDwzDJBNMoSlqwpGIXUqysf5V4J4pgIl8HciVGQ/vvT +f+vcKr7+YkAScwQoY1+K0VAIH3Cw5NW8+Q4Ce1J2NhkJ4c4TwSKxzd+BpdD6 +w24TIZzZ94T7UPV3GDjTumBpIYSL+UklfXnf4Q5nsbbrQSHs82A0JIZ+Bwn5 +sNoIbyHsLhdz7Nf+DkJHlV51Jgohdsj6LacNw9rhM4MuI0LofPnpkcP7hoBs +ExdTcn4DihoQRRwvv8Ihs9H9RWRhfLtG24y3rw/ePKu501MujFGZn4jNed0g +Y26dzG4mgh2ck56OM+8gykPu0ZcfIshMvSSQ8Lkd2ktP1er8FEHbkgaTG8/a +QZDl+dukORFs8k4TybrdDokJhxbMl0QwLUPPfa19O2RUx0IdqygW6+qG1wy1 +QRn/8tt0EVHMfCJFE557DQPFbxYcdUSRYh+hZUt9BWorZ3AoTBRHFTOCLlS/ +gBQtNe5TEaIoZ3NuX1jGC2D1n/ywJkoUVZYLwrNDX0DHpKOH7A1RrLsU/UXJ +7AV4fjFOPJgqinaXt40dGWiGe/VSzI7Hovh33FvAdH0ziEbUJVV3i+IlYW5F +ilcjnG8KdDLtEUVhsZuH5a0bYWjNts09faKYviuZukunEYoCH9QvDoqicskR +g1frG8HcM25SbVIUk6M05pk5DXDV3MUgb40YTg8wPaNH62FJhPNH4iYx9Hwk +T+E49xwWza7XkTaL4TPBOOo+1+ewEC4Ud3urGI6KLhZWmj+HuSWpbZnqYhjZ +l2HRSH8OU30q5x4RYnjxdpdT95s6GMw+xNFoKYY2qXl7fivUwcttj2VnAsWw +nmWC8bCnGlq81WdOnRfD0PiwkyGl1fAip6J+4YIYyrL2Ll6IqYZGUqPryhUx +fBDcYD9vUA01f7ofcsSI4fkX7G01BVVQ1MSqJZMlhtbUsQ1l155Bis0+C5NX +YhiwUW0sxKkCjsd+eJPZJoamERMmngYVoP3K2vz3GzEUd7UYCKBXQDdamT14 +L4Yj61l2Mb+Xg4iShSlHvxgqGRnm2niVQyyrsVHDtBg6lHZd5r/4FMIf70Ad +UXH0XLJKv1JVCvvGq2rjxMXxwRn1S8YZpSDH0IVxCXF8pJjdsTmsFBpTthO3 +ZMVRBINtTS1KgTVMU/eXvDiGEHfufx8ugWA7Fa1iHXEkHVUJDxItAb/1DGVF +R3FsJZlSYqOKwF1D0L3UWRxj2vXju3yLwM75z11wE8fPF62sCNsi2Fn9gd/a +Qxy3xTabHJMrgg0+YT+C/MXxw7jEGtX6QijqHilojxBHpcXiXP9/T2AmJ2+z +b5E4xrUIG68hP4ah94muKyXi2HsoY8vCbAF0r7mcFvZUHA9v7M6lthRA3aFD +vKlV4vj4+lQIxacAYvl5JhuaxbHg1bqmJ02PQPm0V75Ijzj+KglvHT6TD96G +yooVbCTk9Hp8UZk9D9T8RQXF2UnoZce9Y/O3B7CYtbIQwEnCBvZXsdZ1DyBk +TWu9Oi8J3z73tKGeewAJVY4Hn4iSsCyvpbz0Zy48U42PyFEgYXd46eGksRzg +lF0YuWlOQrvftlFy89nQtqe3bW4vCdl/+rPKdWVDXFB9sZU1CXkgfda4Ihsk +P0dfELQlodPi+IO1wdmw5eZGsetOJKzZ7yOrtj4brLltDa/4r+KvMI0Pyt2D +jF/P7vmmktDh30Lvi8BMiBTnN1h7h4Sqt3aLcdlngp+209eb6SRc/mPd5GuQ +CYbnOGUqskl43OZQUxlPJjD/Wif9e0xCucXig2szMkCDfSoiqpGEW1WHQqI7 +0uGlMPnE/UkSHiCnHN+fcAeKt53i1ZomobHZq4+vXe/A7X3ND1t/kpC5m254 +RfMOnEj2HGX+Wo2nxgw/7UkDYakKRzVWCbTdmLddYWMaHKFZWteJSuDHEqm3 +k62pMKtyRfszSKD98ELNZ91b4Gee2W+vL4G3grXzHoregjnPusvDOyXwjmRi +T9F0MizkrLRN75bAy4NLK07ZybAo7e/EYS2BZcMztfqCyfB3vds1dXcJ9H/Z +bNn0MxG4Bnf1RcdKoGxkyzhPTwJc++d6STheAu2iv4nLPUsAHukrG1NuSuDa +C/0nvVITgPdAnU92igQWxe/JD7VLAIF2LfaqexJ4l6RW92EgHkQqFbaOlUtg +nW1cbt1MHJDjuEMMvkogBrt/V1a7Ab6FtPdp3yRwfm3MuKvEDWjo0Nm4OCyB +eSunflatuQFu/J5t+eMSqKim49TREQuPol6TROckMGjhr9TVk7GwPfx60Si7 +JEYNF31W8owBqyD+oetKkii24cFaucIouJe6UXN0iySqXWwu9AmPgoVKiNRX +kcQEz/JDvw5HQcrSCeVf2yTR/IjVucfcUTAQ0BHkAJKYclOx4+Wxa+Dpc0NE +zVISB65NCHsrR0KY24Zd3aclkcgyrD87HA4rp5MtXQMl8ecaJ1pkbTj4Rkgf ++RkkibNX2p3f3wqHI/kb/XkuSaLouQItEfNw0Pipk4VRq/lldQZQFQYj513+ +5aZLYl60SMVUeigY3Sx9erZVEi8R+07fuXEZau5vb2B/LYkvgtw8LX0vg3p5 +bXt8uyRGvHd9omF1Gcg9rcOP3kmiI9tenhiRy7BE7t8w2CeJk1trzp6+fQny +8tlPGv+URPfJ95cmikKAu3G/vKSkFFY6mlBuslwEy66PX4OkpVDuT3Uk99sL +kDxuk9ovK4Wf/1SOq2ZcADlBa75MuhQGCf/0ttS/APpHLObkt0ih4UsJnpfh +wRC4aFSnoSeFtTE/9XbLnodxpe0HLI9KYVGM2ShPcCCoYIVgyTEpdHSX3f/X +JhDOWGm9EvGUQhKnQdamLYHAHqhBfDophaEPoiNUv5wF6gtVukOgFOZIfry7 +YHAWDjoqTntdl8KLCg+614ufgdabUlcjiqXw2ee3aTjqD7nZbkZfSqWQOnLT ++/YLfwgrfcK5rVwKr/VfuL8xxx/0P+yMGKiSwm1/Bw1euflDlbBXpGazFFp2 +OgrgqB88ia+OGu6Wwp0rBwdyZk9B4o0jN/T+SqF75Pbcuk2+4JeRuzeJRRpZ +2DoexvD7glXhT8FJVmkMuNp0KmzOBwTehsUlc0jj5JGJk+M1PhAh8Dj+h4A0 +OgSsEwyz8YGgmH8302jSeKfO6UhvxElwup6esmQkjZbyXNVbJL3BNWb/hksm +0thwaEu95LgXuN/gi+Iyk8ZxirbM/gov8L4ZdF7SShqd2Ft/lR3wgrNpBxx2 +HJbG5xUVZL5UT4h9JCAX4iONkU2VLCWbPaCm7WIhZ4o03gp/w9Ue7g7P32hu +unFbGp/KuHrk2rtD49upTNJdaew/8sOoQdMdXn6wS9h0TxprghTGykePwoc+ +rdOmBdI4OJM/mLznKDAnp3Vj66WRxiZf/ZHqBhJ8ji1iE9K4GDYlV7voDFOC +Qj/8JqXxYLNdOPmzM9SLNIh0/pDGmYrvgk+eOcMxaYZz1Jw0tkRdSDxwwRnK +lcb+sPyVxi+fv3G1cDrDPhMftXEBGXQ0aNIZoTlB3NWQO1UaMkj7Nkz3PusA +blGqTSRtGRQ6KOEi7uAA22O/TQToyOCFpTy2MUMH+Jr0n7YKyuATD1LIirAD +KOesf5+9WwY7/t29/9rVHtqbbqyPsZPBMPms+E0Th4GbLdPP8ZIMrlx4UvhF +4RCsXaq1mrkigweQqRi0chBWpvpUQ8Jl0CwoLsD5zUFgfibNpEfJIBE6myIQ +cBDaim54DSTKYMb7N6TuZluIcQpxs38og+oNu0hl/gdgQ73DgcPvZXCLJ29r +1rp9wFMerDn5UQbXkHhFagZsYG3BbdHzn2QwM+yTr0iVDczd6n5/u18G32RW +dp09ZQMffCz29o7K4KZbrfF8w9aQREHjQ39kULexT1X4nRVIhsjq2srJYlbq +D5pg917IO8VJ7ZOXRTPOVr97lXthu9sMh6OiLAZiccPRtL1w0KThnbuyLCrc +s5E/77wXkkWOepzZLou5A9tqP89YgGheQUqS2WrcdJcmWcwCBN7tWPoQIIue +h3/qt7DtgfQmuS+2Z2Wxgrvy9od3pqBczt/Ud04Wp/Y6e6rcMwXztK+xwxdl +cU/YLr/O/0wh+mio/HykLNZGki7lR5kA98rr/cJ3ZfGJmdCMjbwxsDPsyixf +yGKcR/QB84Rd4EYC44etsihP4oRvJ3bBC15qP9trWfzCGj5WYLILri6MrCvt +kMXH76jbmWy7gKvllI3YZ1nslXxTOB9gCPwe1+Z6mLL4SV/25YrbfxB14PAt +1fVkzPCuUq30XP1iO82+HeEiY0PIGv98MwNgmuLma9xk/LFdq/u1sgHs0aM9 +/8ZLRisp2fHEeX3g2zQ2miBExpMvZguMQvThxrKf1i9JMj46vClrJF0PEu9E +dT3bQsbR+XnBtL8A3TdKzq9RJmPveM3dvhYAydBe2i4VMu52rn57Oh4g3UPp +ZKfaav6eD+/KFADytF5zjmmR8fXR8SPmBwmo6eTeLmpARmvdDWzer3RhhP3a +7ZP7ybh+e/a2h2PasOl3kX7ZATJShN8rbKjRBs/Jz6PLtmT89/H+ckOcNvx8 +t2lbuB0ZD+il7vurqw0r6S/b0hzJyKmtMtaSoAUCOlz/XnqQ8db04rT5Xk3Q +OhHhyLhIxpfbq9/LLKuDs3PBEZsQMnJR0thlP6tD9P53h0IvkTF9Ua/TskId +hkB63/AVMgq6e/2yOqMOsQKFxtkRZEzSHOkqXlSD0cJuNUb8qt65z73us6pB +8txGdsZ9Ml5r2HHMUlsFGkZN2WxyyLiw4lOrJqMCU70+LKG5ZCw2ex0DbCqw +s+nZ76E8Mr7fuz/pQ5syTN80/3HvMRl5uK9R51yUwUjzdDe9goyVVfdHwrZt +hV9nm/Por8lY2Pi9bo2hEngzLR6atZHxciLp+14JJRg60vPwTDsZo/02bB+e +UoROg+n81x1krHj56P27ZEXI55V47PdhdR9KbvVNPzaBU4ZXcWM/GUtj5L9k +P1CAthbhKpcZMhplb2KpM94IO3XuVkX/XL0XK62QSrmNUPlIobp8lozbHpAD +mawbITeOqOFZIKOPQMLF+WdycMnOva7kNxnn2c8/jVOWA63pZ41r11Iw2SCF +XkRjQJaYc9s9UQpmLD4PddhKAyU2+qZRMQoOYiJ9Ez8NSqaGwhRJFBw56pul +8IMKzU1uWCRJwXMiET0tj6kwfup4cS2ZgtW71K8Hq1FBtcPn1udNFHzeoBp9 +bicFnl+96CoAFBTk4dT4LSwLxn569VZIwfNfdEpqB2Sg055VNkmPgqrqI/d7 +82VgSONKt/ROCt6zmciSMJQBzuFwE8XdFPTfMG6UFCQNFnoxKoZWq/Pqp2WI +L0nCl6W0P+eOUlD3mUxXghIJLL4fKnzgTsEerqaqDetIUN9Jcu06tlrv1z7v +jj5xuPfw5mtVTwruTF0pWRMrDscPX08dO7mK9+jz1v4lBvN1Qdr7AymYL67n +mt8hCtxXD/mrXqfgMH/ZVbVHwhDkR1JwiKbgDaMHplVRwjDl0NV7PYaCmzae +GT7tKQwd2lY7x25QsOaYgm2YkjAkThhvSE+kYDEnX9Wvgg1AMd9eyJtOQc+H +GnFjVUKgKUqaHC2ioJj2oDbXsgBUnuP9s7WEgt2cBp3kfgEgvq7hPV1KQZc9 +/y67PxcAw/xxpXXlq/OWfR6JuCoA1vpVnpTq1X2WPqzmJgmAj7c90/YFBXW8 +4eq1UD542Jw98bKHgko7LBT/enHDFqWUZcE+Ci4MXePYCdxQdCOa27afgn8n +nc0+CXBDpd1pxZEBCo4NvWCdLuGClp9GHmzfKbj9aWl4LQsXDMswx3WmKfg7 +1WjA/z4nyJ5WHc9fS8XbCnWbBuXYIaqPtrd/HRXLTTQ07rKxw6KBSDk/BxVb +pGZ3Jgysgw6BxVDf9VTcEcrKxUhdBxfzqilafFQM/Sef0SW0Dgb6jGwbxKh4 +xExeS4NnLWTutG/5tImKjY3BN9PorMD30GIrtxIVX9XvtKjgYIVAQf1E3c1U +rKD+XWCdWAOW/XSXu1upKP8tdVimaA2wnhn/56JORZ6gIi8f/TXg/NBfc3oH +FbdHir808GABulDUffa9VAw7fjrvxtM/RO/CoICqJRV1475Eb4z4QyT0aJ87 +bEVF0ympznWH/hBs2SPmJTZUbG2KKb71b4UY1DRYcjxIxdL4a9VCpitE+uHf +JtXOVGyOc58fn/lNSD9wnzkVQMVL5y63HvZeJN5frz109zQVndUsJFSNFoko +X9Hml2eoeDErfUGPukis6DSmUM5Rsdfr4Rehrl9Eb7vszjcXqDhsWnfqhMEv +ImXuY+KmCCpyKgb4NsktEKL4n+7XVCpmPO2bihaZIwbSOlnl0qhYTyvSDJ2d +JfKW7VuP36Eiht2QLH07SxBPA/fNpVMx8L8fW+uiZwm3LU9OctynorqJCv9Z +7lmiTEoye/MTKi7rr3TS+H8S+5emeQMbqXi5wkhxSneaoO4Pfl/TtKrfoIHi +Uco0wSzhTmV7QUXX62nNfOzTxMWTcvLXW6m40NSq8PbuDyJ35JB+ejsVTyS0 +MYJeTRGLH5oDmrupWHTjT56d2iSRXHT7i9AkFS0UAjr36Y0TxoIb/+hNreqV +mef8Qmyc+HOiUMLnBxWVPOwfnp0aI5w2N9u8maFilBF7XcbtMUIp98erawtU +PKcx0za3PErUpemXr2WhYcynZ2zmzSPEyNXR2AUhGl4IHbuoGT5MpIz4FjCE +aXjQJqKG4jpMmBr+eWUtQsP5StNhPYNh4gmbEEexGA2p3ZopVJZhIjBY5/wJ +KRqm/nfb1y5oiODziz42yqCh7ctAoePB3wgNe3X9z1o0/NFWGdpy/yuxrDH/ +jLqdhi6DrMsXrn4l6vjKtnno0NCfEnDA4/hXYneNpsLKDhpK+gkd693ylbCT +1hGQMaChzXCkmUzlAHGpR6/fcQ8NI0Z+z+YXfyHa9psHjjnScL9xUFnt6V4i +bqvAnIozDR1PdBh/N+wl9nG89Qp0oaEgwZHuINpLDJRZOnIfXa0v42phVtZD +/BTZZ7TZk4al7GSbv0ufCfH3dqI+ATQE5sMjWrGfCBeL40WLkTTc+jq+L3ju +I+F3P3arTtQq/4TWhI62j0ToSln++es0/OkR5+Wc85G4n8uWwxpLQwVFt3bj +Qx+JUZa0VJ6bq3y924KFmz8QHoVvrpDv0vCfd8QpzZz3hK/Qtv1GxTS0vu5d +/Cehk7jkfuh9ZAkNS/hYcvL9O4n4mpC9baU0rBVrOxC7r5MoOd5uYllOQ/pi +ecKceCcxX38U7appeNQjuU8u/S1x5lSKwskXNDSdd+AdfdpBXHj/bzmph4bF +VhGRRiLtxBlFWkdjLw3fNLR9XhxuI05eMrw300fDRwUnw2fL2ggn5eumJgM0 +dGv1ozXbthGGURJpf4doeHKsou1d5muCd+c2wnVqlS/HgvcW/VdEavHxi6pr +6Pju13q96aIWIoEr2tqelY5d+gyaWFQLEeVYKB/FRsdXumxi51xbiGD+xY7h +dXT8OM8sWRRvIZw8Qim3uOioQjl9su7SC0KBll7/bwMdU3my/ik7NhNP4z6s +bZOj4+GeD4TSrkai3mnrtg3ydNQ232aWTG8k2lUjXG0V6FgfZWcKrI3EUKdu +87AiHY/Pq1/RrWkgBDbcC/+rTEfFTxGCY1oNhHu8L5eyDh1Dky5DmVY9IZHA +LxBvTkf98ZrgO/Z1BMPlGH6yoOOauPsGRQZ1hLJ6w0lZSzqKLwRkzG+sIwzf +B7x9aE3Hr2NCLRsGa4lTwv1xjbZ0PKI7EVvLVUu8TsgXWXCmo/uAf9OSZzUR +fHO3pO0ZOs6to78bP1lJ+LqlZ0acpePvztnwdsNKwlXzl0JlIB0jGK2G81KV +hOmne1qS51f5jV/V4npZQUhIs+zrC6Hjs68HPAw3VhBP75XFOl6jY+9OKr1g +8ikxXUxjP36HjuX69kpROaXE0JXA6yl36dhniHV8oaVEl81b4VfpdEzYykq0 +OJUSNb+CaUpZq3q4b0rplyklonQ+41QOHaOpe9xjbpUQCg2x53wL6cj2j6/o +aXIx4dT5ZzqwkY4/ZOZcpp8VEhmUynPZTXS0zvr9mEgvJAZOBrB3NNNRxGtQ +o/xKIWHP/0OS0UrH8Ocj44pmhYSd6YDhm7ZV/dKz7/F9e0Lsa66/TeuioxiD +CLgq/IQwrgw3ej1GR3bxh6RtCo+IiPU73y2Mr+5n/ub5vOV8ouUAyxEKk45n +onKX3drziV2/zpwKmKJjgLDktWK/fGKn+vE75Fk6EpFP/kY3PiSIAtM5vxU6 +pp/4kTZzMo9QyxRMl+Zn4GS1q1bKUg5x5fjacEcBBhZYXPu00pFDfFT95ZUt +yEDuy7EG93JziMCGXp3NwgzMWK+RUXsgh6gbyunSJTFQNTFrQbLqPmG6keC3 +ozHwV1Kw1PqYbMIl/3hwiiYDTUfCM185ZRFlfodd+7UYqBF3YHlWL4vg2GFh +St3OQPME7zkrShaR17ZNIk+XgXUOFuYVA5nE9BRLWYUeA6k3P4TwO2USQSpJ +k90mDLSU789O8c4gEsoa7MQcGLiSm5WWYXuXaL9QnPKfIwM7RZ5955O/S3Du +zuo+5cTAqIGZ6JcLd4ignkvWHS4MLOQQ5FO8eYdwYdE3jTjGQB65keOXP6QR +6sZ1Osu+DGz7tmGrgstt4l1flcSXUAYO6jPXKZbdInhy8g/whjMw0TjN+dL1 +W4ThyduJOlcZeJ4za72E6y2ikjVIKDmSgeL6Q8mcIreIzI06XHtjGDiSmdve +dTqZ8PWpWKpPZqCdSNvEqFESIbSurPv+QwYmhFN8d4neJD5lEDsW8xlYRs/U +FJxJINKJFxm7Cxg4tHHgntTrBGLLme7jzCcMtDKm5y5cSiCMJ36vqJQxcKle +/FPebDwR8hYo1XUMXBu58qBoII6YTms99u4DA/X77289/D2WeLrdsp3excDN +4W/0IltiieCuz6oB3Qz8vSNsdiIvluARZC6L96zi53/Um5yMJeSv8EUfGWCg +sSAH4/vvGMLhuFXR2DgDa+Im1zP0o4mNHL2iOkwGNtiZfKjhiSamslzORU0y +0OVU36eyrutEUJ//zq3Tq/Ubvi7UeF8nki2SP/rNM9Dt6PQt6Ywown6SrNO8 +wMC9sA+TvKMIucgHd8UWGViFr3mP60YRJQ2V7pW/Gahy4esD8U/XiHMOBm3c +KwzUvqusN5tzjdD/80rl8J/VexyYiKWfvkZwplgnFvxl4LvNoiz5hteINxp9 +v//9Y+A6rFu4KnqN+B+7Zi0C + "]]}, "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:eJwV1/c/1g8XBnBRyCbrNu8pojIqRJ9zjK+EkFVK2VJGUakkpUIihBApI5kp +M2RlRUXSoIwksm4iI4p6PL+c8w9c53q9D8XphIUrKwsLC2l1/H830cOFWVh4 +kFfUZsOQ6iRcumi5/tJmXvxrdzq1h3MSzo7GbTt4mg+5bPvNwuqYMKjVZReR +yY9LajH3L+1lQtCk8byDuwAe++vXap04AcrN7l05XIKYaSWm3uo9DqQN7Boy +6YKovFXe+dbEKFDGvhSjgRDmcLDk1rz5DmuHzw26jAih89WnRw7bDAHZOiaq +5OIGFNUjijhefoVDpqP7i8jC+HaNpilvXx+8eVZzr6dcGCPSPxGbc7tBxswq +kd1UBDs4Jz0dZ95BhIfcoy8/RJCZfEUg7nM7qC2fw6EQURxVTAu4VP0ClkQ4 +f8RvEkPPR/IUjgvPIcnaxtz4lRj6bVQbC3KqgNPrGcqKjuLYSjKhREcUgbeB +smIFGwk5vR5fVmbPhbRfzx74JpPQ4d9C7wv/dJhVuab5GSTQfnih5rP2HSDH +cAfpfZVADHT/rqx2C0LcNuzuPiuJRIZB/fnhUOBu3C8vKSmFlY7GlNssl6H1 +ttT1sGIpfPb5bQqOngGnm6lJS4bSaCHPVb1F0hsk+BxbxCakcTFkSq520Rm4 +2dJPO16RweVLTwq/KBwCySBZbVs5WcxI/kET7N4H7Ay7MosXshjjEXnALG43 +xN+L6Hq2hYyj8/OCKX8BNE6EOTIuk/Hlzur3Mn+2wa/zzbn012QsbPxet8ZA +CTLEnNseiFIwbfF5sMNWGnxZSlm5cJSC2s9kuuKUSKAuSpocLaKgmOagJtcf +AZA9qzqev5aKdxXqNg3KsQNdKOIh+z4qhhw/m3vr6Qohiv9pf02mYtrTvqlI +kTkisejuF6FJKpor+HXa6IwTO+y36X7WoOGPtsrglodfCRfz40WLN2i49XVs +X+DcR+LS+39/EnpoWGwZdsNQpJ14GvNhbZscHQ/3fCCUdjcSgbf3SNqeo+Pc +Ovq78ZOVhFPnyrR/Ix1/yMy5TD8rJNTSBVOl+Rk4We2qkbSURcSVNdiJOTBw +OTsjJc32PiG0rqz7YR4D40IpvrtFbxNvdvT9/vePgeuwbuG6aDhB3fcjsjae +B9P27ZAukp2EP6pz95gdvCg34B8TP8YEJaEyw1kefiy19sgxi2RCRVPPrVhp +AexY683xdnkCum0PugVXCOCzrr0TrEIT8MDzKYeLjSBq1zXWv60cA+m/P89s +nRNEvvrLfgnMERA6qvSqM14IsUP29J+UYRgofrPgqCWKFPswDVvqKxANq0uo +7hbFK8LcihSvRni5/bHsjL8Y1rNMMPJ6qiH08S7UEhVHzyXL1GtVpTCTlbvZ +t0gcY1qEjdaQHwOn7MLIbTMS2v22jZCbz4SXwuQTDydJeICcdHx/3D3gGtzd +FxktgbI3WsZ5euLAMoB/6KaSJIptyFkrVxgBhrdLn55vlcQrhM3Ze7euwrjS +zgMWR6WwKMp0lCfQH+JvHbml81cK3W/szK7b5As1bZcLOZOk8U7oG672UHeI +uR50r2qHDNK+DdO9zzvAhnqHA4ffy+AWT97WjHU2IPBu19IHP1n0PPxTt4Vt +L0QcOHxHdT0Z07yrVCs99WCEPfzuyf1kXL8zc3vemCYkzm1kZzwkY3jDrmMW +mirQ1iJc5TJDRsPMTSx1Rhvh+fXLrgJAQUEezh2/hWWB+/qhM6o3KTjMX3Zd +7ZEw5DVnTrzsoaDSLnPFv17ckK5v3/JpExUbGwNvp9BZQTrHfeaUHxWvXLja +eth7kdi/NM3r30jFqxWGilPa08TI9dHoBSEaXgoeu6weOky07TfzH3Ok4X6j +gLLas72Er9D2/YbFNLS66V28EtdJJBcfv6y6ho7vfq3XmS5qISTi+AVizeio +O14TeM++jpguprEfv0fHcl17pYisUsKoMtTw9Rgd2cXzSNsVHhEu+ccDk9QZ +aDISmv7KKYN411cl8SWYgYO6zHWKZXeI6ZTWY+8+MFC3/+HWw9+jibmd1W/t +jXnwnpxBQLrCJOzqpr3ffokXRXlcNxG/mWBxMbPmYR0fet7Zscibw4Rc5911 +ttP82LytRMhvIxPyae82z0YLoO2b+sKMAxNwnBT9I0RZEMuTx8tVxcch+fry +R7lXgjgmwqU3d2IUJORDasO8hbC7XMyxX/M7lPH/eZsqIorpT6RownOv4UG9 +FLPjsSj+HfcWMFnfDIOZhzgaLcTQOjl372+FOohmNTJsmBZDh9Kuq/yXn0JR +90hBe5g4Ki0WZ5/59wSeqcaGZSmQsDu09HDCWBbsYJ8Ki2gk4VbVoaDIjlT4 +u94tfJu7BJ552WzR9DMedobeLBpll8SI4aLPSp5RMHLR5V92qiTmRopUTKUG +g/+iYd0OHSmsjfqps0f2IjyJrY4Y7pZC/eWDA1mzpyD6kYBckI803miqZCnZ +7AE2xj5q4wIy6KjXpDVCc4IopyA3+zwZ3Nawm1R25gCI5hYkJZjKooLJbnWy +mDnwe4TP9TBl8ZOu7Mtlt/+gppN7p6geGa20N7B5v9KG0cJuNUbsar6zn3s9 +ZFUDpzSv4sZ+MpZGyX/JzFEA1Q6fO583UfB5g2rkBX0KzNcFaO73p2C+uI5r +foco+HjbM21fUFDLG66HB/PBQJ+hbYMYFY+Yymvs4FkLqYd/G1c7U7E5xn1+ +fOY3USYlmbn5CRX/6C530vh/EnUpuuVrWWgY9ekZm1nzCHGlR6ffcS8Nw0Z+ +z+YXfyE8Ct9cI9+n4T/vsFPqWe8JXv3thOsUDX9yLHhv0X1FuMf6cilr0TE4 +4SqUadQTTx+URTuG07FXn0ovmHxK2DTX36V10VGMQfhdF35CmGwk+O1oDPyV +ECi1PiqT2GZUp/XHl4Ft3zZsVXC5SwS9BUp1HQPX3ljOKRqIIcyPUkxkB3nQ +tWSXzGfhSai42Xgsg8qHxJ2O64EfmcCR1dwJtvwoJfLi38QJJqR8itX7rSuA +5u5Nz9TbJmBt9Nd7YoMCuIZaOkZvHIf+2n5ZnQBBLFRyf5dkMwbXzVz0cteI +4fQA0zNytB6Kmlg1ZDLE0Io6tqEs/BkE2qloFGuJI+moSmiAaAkon/XKF+kR +x18loa3D5/LBitvW4NoZEvJcYxodlHsAR2gWVnWiEvixROrtZGsyiFQqbB0r +l8A625jsupkY8PS5JaJmIYkD4RPC3so3IDef/aTRT0l0n3x/ZaIoCA46Kk57 +3ZTCywo53evFz0FA1L/bKTRpvFfndKQ37CQwJ6e1o+ulkcYmX/2R6gbtTbfW +R9nJYIh8RuymicOQQEGjQysyqN3Ypyr8zhK4l1/vF74vi09MhWas5Y3g1p/T +Gr8kyfjo8KaMkVQdENDi+vfSg4x3phenzfapg6H62W56BRkrqx6OhGzfChrT +zxrXrqVgol4SvYjGAHOdKBUDy1Uf6KakiS9JAsVsZyFvKgU983bEjFUJwbAM +c1xrmoK/kw0HzjzkBOe8M+rTu6i484b4Sz0PFkia+xi/KYyKnIp+vk1yC8Ti +h2a/5m4qFt1aybVTmyT4TkceG2XQ0Palv9DxwG+E+Hs7UR8/GgIz74hG9Cfi +3KkkhZMvaGgy78A7+rSDUKCl1v/bQMdknox/yo7NxOu4fJEFZzq6D5xpWvKs +JhQaoi/4FtKR7R9f0dPEYoIoMJk7vUzH1BM/UmZO5hIBKgmT3caMVW/1ZyZ5 +pxG+PhVL9YkMtBNpmxg1TCAcjlsWjY0zsCZmcj1DN5Lo3Uqffczgwbu202+s +t0xCf+4z74M2vJho1c/VsmYShlRTzl9O4kOBlHdTm0uZ0GwWxTf7kh+N/zKS +ObWYEH89SjA3QAArhS8rWp+fgLYTAc6J0oJIklpYsdYfh897g0LTywTRMENY +sqZgFO5xFmu6HhTCPg9GQ3zwd0irjoY6VlEs1tYOrRlqA88vRvEHk0XR7ur2 +sSMDzTDVp3LhESGGl+92OXW/qQMRJXMTjn4xVDI0yLb2KocNPiE/As6I44dx +iTWq9YUQV+V48IkoCctyW8pLf2YD869Vwr/HJJRbLD64Ni0NFqXPOHFYSWDZ +8EytrmAiPIp4TRKdk8CAhb9S109Gw46fWhkYserbsjo9qAoB3SPmc/JbpNDg +pQTPy9BAqBL2uqHeLIUWnY4COHoazqcccNh1WBqfV1SQ+ZI9oVxpbIXlrzR+ ++fyNq4XTGdqKbnkNxMtg2vs3pO5mW0gUOepxbqcsZg9sr/08Yw5cLaesxT7L +Yq/km8J5PwPI1XjNOaZBxtdHx4+YHSQgWqDQKDOMjAnqI13Fi2qQzyvx+PSH +1bwrudU3/dgE46eOF9eSKVi9e9vNQDUqHD98M3nsJAV7PPq8NX+JgZVulSel +ejXvpXnV3CQBuJxbTdHgo2LwP/m0LqF1MKiut+R4kIqlseHVQibLhNuWJyc5 +HlJxm7EK/3nuWUIp+8er8AUqXtgx0zb3Z5Swk9YSkNGjofXwDVOZygFilCUl +mec2DV282wKFmz8QBhESKX+HaHhyrKLtXfprQmDDg9C/ynRU/BQmOKbRQEhI +s9j0BdHx2dcDHgYbKwg7kwGDN210FE/NfMD37QlRN5TVpU1ioGp8xoJk1UPC +hUXXJOwYA3nkRo5f/ZBCGE38XlYpY+BSvfin3NlYQtPuuteJKh58eLm6x01i +Eg462K1tWeJFlaERPfsBJiTZ1dwkqfEj+eC94sRLTMh783TcQFkAtZ6eM80e +noCpuZQr7W0CqKMZNPtvYhx0RF/FWhwTRP8K5y23wsbAzDNmUm1SFBMjdswz +sxqgZqU7jyNKDC++YG+rKagC1hB17V/y4hhE3Hv4fbgEovl5JhuaxbHg1bqm +J02PYMvtjWI3nUhYs99HVm19JghLVTiqsUqg7cbcnQobU0CgXYO96oEE3iep +1X0YiIUBv44AB5DEpNuKHS+PhcMSuX/DYJ8kTm6tOX/27hWgvlClO/hLYZbk +x/sLeuchTOBx7A8BaXTwWycYYu0DH/o0zpoUSOPgTP5g4t6joJy1/n3mHhns ++Hf/4WtXe/jgY76vd1QGN91pjeUbtoLIo8Hy8zdksfYG6Up+hDHwbRobjRMi +48kXswWGQbqwnPqyLcWRjJyaKmMtcRowfdvsx4PHZOThDqfOuSjDFTv3upLf +ZJxnv/g0RlkOOIdDjRX3UPDMhnHDhABpiJ8w2pAaT8FiTr6qXwUboOWnoQfb +dwrufFoaWsvCBaznxv+5bKMiT0CRl4/uGuhtl9V/c4mKwyZ1p07o/SKyRw7p +prZT8URcGyPg1RThH6h18YQUDZP/u+trFzBE/BSxMdzsScNSdrL136XPxHz9 +UbSrpuFRj8Q+udS3hJNHMOUOFx1VKGdP1l15QZwS7o9ptKXjEe2J6FquWiJC +6zNOZdExkrrXPepOCaG/7fg98iwdiRtP/kY25hHTUyxlFToMpN7+EMTvlE6k +b9Ti2hfFwJH07Paus4mE/DW+yCMDDDQS5GB8/x1F3F0XoSmYzYvHTHz6VX4y +ofbFI7a273zYYOxrIn2XCYnmiR9PzzPQ7ej0Hem0CMI8t4utW4gHdaN6t6Qp +T8KWOI4qpg4vemzL/mq/bhIKeEn7vUL5UJGS7TNbyYT3/xWXQjk/bmjq/eCm +zwSeZ15Xg31X85vb0c8VNgF/k3ylKcKC2MF1x63Jdhz8nzTYO+Sv/mMb7Efd +2kZh4FzrgoW5EC7mJ5T05X6H+LhDC2ZLIpiSpuO+1r4dOiYdPWRviWLdlcgv +SqYvYG5Janv6NjG80Zdm3kh/Dt1oaZrzXgxH1rPsZn4vB/3qD/xWHuK4PbrZ ++JhcEQStaa3fxkvCt889rakXcsDgAqdMRSYJj1sfairjSYeFrOW26T0SeHVw +adkpMxHc+D3b8sclUFFNy6mjIxqO5G88w3NFEkUvFGiImIWCnKAVXzpdCgOE +f3pb6F4C3Q/6YQNVUrj976DeK7cz4H074KKkpTQ6sbf+KjvgBcekGc4Rc9LY +EnEp/sAlZ2B+Js2kRsggETybJOB3EA4aN7xzV1717ANr+YvO++D6wsi60g5Z +fPyOupPJthtSPZROdqqt9uveD+/KFACGQNpm+BoZBd29flme2wadetP5rzvI +WPHy0ft3iYrQ3OSGRZIUvCAS1tPymAoP8m6/VvWkoH7ycsmaaHEwyB9XWle+ +2sdln0fCrgtAh8BisO96Ku4KZuViJK8DtswRsxJrKrY2RRXf+bdMEE/9beZS +qej/34+tdZGzhNPmZus3M1SMMGSvS7s7RuypUVdY3kVDydNCx3q3fCUeZrNl +sUbTUEHRrd3o0EfCSfmmifEADd1aT9OabduIoU7t5mFFOh6f33ZNu6aBMPn0 +QEPyIh01x69rcL2sIOz5f0gyWukY+nxkXNG0kPBv6NXaLMzAtPU70moPZBEB +PVesOlwYWMghyKd4+x6x5Vz3ceYTBloa0bMXrsQRBR+1AhNyeFDebX6LsPQk +5O7J3ndwmBf/C2gD/mEmOKvv9GAn82Pgtn2yQqFMKHq5h5iUE0Djdx7LLjMT +4LwxYC6nQQA3+J6a0vo3Dr46z/f22AviQbTY4Z4+BkX+OfWLg6KoXHJE79X6 +RmgkNbouXxPDnMAG+3m9amhM2knckRVHEQy0NTEvhbpDh3iTq8Tx8c2pIIpP +AUh+jrwkaEtCp8XxnLWBmXAi0XOU+YuERslRw097UoD3QJ1PZpIEFsXuzQ+2 +i4OkpRPKv7ZLotkRywuPuSOA3NM6/OidJDqy7eOJErkK7P47iE8npTA4JzJM +9ct5EHgbEpPIIY2TRyZOjtf4wMsPdnGbHkhjTYDCWPnoUfia8J+mCsrgEw9S +0LKwA8zd6X5/t18G36RXdp0/ZQ1mKV+jhy/L4t6Q3ac7/zOBvTq05994yWgp +JTseP68LP99t2h5qR8YDOsk2f7U1Qb/p2e+hXDK+37c/4UObMmTHEDU8C2T0 +EYi7PP9MDoZ2XOuW1qfgA+uJDAkDGejQtNQfu0XBmmMKtiFKwlBpd1ZxZICC +Y0MvWKdLuMCin+5yfysV5b8lD8sUrYFlrcYkygUq9nrlfRHq+kVcPiknf7OV +igtNrQpv7/8gnrAJcRSL0ZDarZ5EZRkmBsosHLmPruZRxtXctKyHKDnebmxR +TkP6YnncnHgnEci/2DG8jo4f55kli+IthMF7v7d5VnT8OibUsmGwlqj5FUhT +ylj1gfumpH6ZUmL3r3On/Kbo6CcsGV58Op/IbdsukavNwDoHc7OKgXSikjVA +KPEGA8V1hxI5Re4QPILMP+I9DNSd/1FvfDKaYE51hWTE8qJhzwXxPQtMuJ6u +8LXiHR++TnALeJLOhIC+M/pbpxn4u+HrQo33TaKkodK98jcDVS59zRH/FE7c +OKrC47meB4O0qA8aVCbh4/VHg6XqvPhOpU2JwjEJQn8+Nn27yIf2Kr67GquZ +0IP/rf9ewI99LpVv/xgyweC9nfYpLwFU2199uzp6AhKeePm78guiT8aJSiuX +cXj5dcgYsgTx7auXS+G9o8BSaPVhj7EQztg84T5U/R0EWZ6/TZgTwSbvFJGM +u+3Aembyw5oIUVT5UxCaGfwCFkKFYu5uFcNR0cXCSrPnoPnKyuz3GzEUdzUf +8KNXgJ3zyn1wE8fPly0tCdsiWMxYXvDjJGED+6toq7ocOK3p9PV2Kgn/rFg1 ++eqlw5xn3dVhfQm8JxnfUzSdCA0dWhsXhyUwd/nUz6o1t8A3TPrIzwBJnL3W +7vz+Tigkjlsn98tK4eeVynHVtEsQUvqEc3u5FIb3X3q4MesMuN/ii+AylcZx +iqbM/govqBdpEOn8IY0zFd8FnzxzhuWpPtWgUBk0DYjxc35zEHa6zXA4Ksqi +PxY3HE3ZBy94qf1sr2XxC2voWIHxbpAM7qXtViHjHufqt2djASL3vzsUfIWM +qYs6nRYV22DoSE/euXYyRp7esHN4ShFKpoZCFEkUHDnqm6Hwgwr1nSTXrmOr +9/DLxrujTxyIr2t4z5ZS0GXvv6vuzwVgUU+knJ+Dii1Ss/pxA+sgrkfzwmFL +KppMSXWuO7RC5P6xbz1+j4oYckuy9O0ssXKiUMLnBxWVPOzzzk+NEXV8Zds9 +tGh4huJ3wOP4VyJ4uSz/4k0a/vSI8XLO+kicvGLwYKaPho8KTobOlrUR7aph +rrYKdKyPsDMB1kbCVf2XQqU/HcMYrQbzUpXEwEk/9o5mOop4De4ov1ZIfFT9 +5ZUpyEDuq9F6D7KzCM49Gd2nnBgYMTAT+XLhHpFKvEjbU8DAoY0DD6RexxGj +sbdDFFN58I2iO5urzCRYEKbnaD28yLL1yrf9I0xooS9+ChDlx6tzFbvLbzBh +R4uQO1IFUPFhOwvj1wTcQ49HCTUC+DHB688jzgng3l+VK3tIEHmlG/JyC8Zg +aM32zT19opi6O5G6W6sRXmRV1C9cEkNZ1t7FS1HVIMfQhnEJcXykmNmxOaQU +utdcTQl5Ko6HN3ZnU1sKICagvtjSioQ8kDprVJEJd22a81p/kpC5h25wTf0e +8Ehf25h0WwLXXuo/6ZUcBwuVcENXRRLjPMsP/TocAdvKa9tj2yUx7L3rkx2W +V+GcpcYrEU8pJHHqZWza4g+WhT8FJ1ml0e9606mQOR9ofDuVTrovjf1Hfhg2 +qLvDzuhvE35aMnhpKZdtzMAB1hbcFb34SQbTQz75ilRZg3I5f1PfBVmc2ufs +qfLABJgmuDmcm4w/dmp0v1bWA8/Jz6N/bMn47+PDPw0xmjDV68MSnE3GYtPX +UcCmApWPFKrLZ8m4PYfsz2TdCJ32rLIJOhRU3TbysDdfBqYcunpvRlFw08Zz +w2c9haHoViS3bT8F/046m34S4AZ/Qd147c1UrKD+XWCdWAMRvqLNL89R8XJG +6oIOdZFglnAns72gouvNlGY+9mnCxGDllZUIDecrTYZ19IYJG463Xv4uNBQk +OFIdRHuJ2JqgfW2lNKwVazsQbdNJRDgWykew0fGVNpvYBdcWQnlbw0lZi9X/ +a8EvbX5jHdFl/Vb4VSod47ayEi1OpUTLAZYjFCYdz0Vk/3Frzyc4dpmbUHcy +0CzOe86SkkEYnLwbr3WdgRc5M9ZLuN4hArs+q/p1r/brrpDZidxoIu7bxUee +Ybx4yvtA2+5FJkxGjZgpv+RD+Sfm3cOZTJjKcLkQMclAl1N9n8q6bhJyN3Lu +iy0ysApf8x7XjiB0V16pHF5Z9cjARDT9bDghb3BEoGwtD1ou/ZawUp2ETVdZ +/JJUeTFe6THxb7WfG2e2r8ic58MZrs875WuZcITgU9PM5ceL9UE9YMyEIYf3 +4uPHBXDdL46ViLgJcNGayObgFcRtg48tYo6t+sN//nnBA0GsEb3/QGhoFAT2 +Juk3GQqh/olAkejm79BeeqpW66cI2pY0GN961g5JGmrcp8JEUc76gk1I2gtY +NL1ZR9oshs8EY6g2rs/hePSHN+ltYmgSNmHsqVcB7jsE3UudxTGqXTe2y7cI +1M6ICoqzk9DLjnvX5m85cEOcX2/tPRKq3tkjxmWfDqfN0vvtdSXwTqBmbp7o +HfAtpL1P+SaB82ujxl0lbsHy2UQLV39J/LnGiXajNhQsuj5+DZCWQrmV6hvc +by9Bdqab4ZdSKaSO3Pa+++IMuEbt33DFWBobDm2plxz3gilBoR+nJ6XxYLNd +KPmzM6xdqrWcuSaDB5CpGLB8EHJPcVL75GXRlLP19IPKfeBGAqO8VlmUJ3HC +txO7oftWycU1ymTsHa+539cC4OxccMQ6iIxclBR22c/bwJtpnmfaRsar8aTv ++ySUQImNvmlUjIKDGE/fxE8D8++HCnPcV33M1VS1YR0JKi/wrmwtoWA3p14n +uV8AIvpo+/rXUbHceMeO+2zs0LswKKBqQUXtmC+RG8NWiIGUTla5FCrW04rU +g2dnCSPBjSs6U1S8kp7r/EJsnPizY/4ZdScNXQZZ/1y6/pU4/TB6q1bEql/i +WuM62j4S5xRpHY29NHzT0PZ5cbiNqHfaun2D/KqPzbabJtIbCV+31PSw83T8 +3Tkb2m5QSaRRKi9kNtHRKuP3YyK1kLh2fG2oowADC8zDPy13ZBHtl4qT/nNk +YKfIs+988veJT2nErsV8BpbR09UFZ+KIYN/6G2eSeVA7tHYdj+wkPNRI4+b8 +yIth7rp+50aZ4C+5X7BckB8l9pq1B0cwYdHg1/KYrACaK9GCVpYmQKttMIyv +SgCTwtqE7XgnoPur5qfnBwSx7+5K+vOSMbjY5O9k0iOKwmK3D8tbNUKL97aZ +UxfFMDg25GRQaTXYjFfVxoiLY865bVeM0kph6H2863KJOPYeStuyMFsAbXt7 +2+b2kZD95xlWua5MKN5+ildjetXLpq8+vna9B+H/XK8Ix0qgXeQ3cblncfAg +eaP66BZJVLvcXOgTGgE1D3c2sL+WxBcBbp4WvldBBSsES45JoaO77P6/1v5w +Oi17XwKLNLKwdeRF8fvC8zfqm27dlcanMq4e2fbu4Bah2kTSlEGhgxIu4g4O +wFMeqD75UQbXkHhFagasIbVJ7ovteVms4K68++GdCVR1mn47wkXGhqA1Z/JN +9WDT7yLdsgNkpAi/V9hQowkNoyZs1llkXFj2qVWTUQF9rftVkT9X+9xSI6hS +biMYndapt0QKXvyiVVI7IAMBp0kKDpEUvGWYY1IVIQxblJL+CPZRcGEonEMf +uIEvz3wrtxIVX9Xrm1dwsML7m7WH7p+lorOauYSq4SJB3R/4vqaJijsH9RSP +UqaJpBHfAoYwDQ9ah9VQXIeJmK0CcyrONHQ80WH03aCXuOJ+6P2NEhqW8LFk +5Z/pJOK4Iq3sWenYpcugiUW0EAyXY/jJnI5rYh7qFenVEUPX/G8m3adjnwHW +8QWXEmHr9d8tjNMxeP72xdw/+UTZ6cOu/RoM3BFz4M+sTgbBk5V/gDeUgfFG +Kc5Xbt4hnu60aKd3MXBz6BudGy3RxGhfB+67xouxPs/Y9JeYkBpiEOrRxIec +MaURF7KYsJGjV1SLycAGO+MPNTyRhP0kWat5gYH7wAYTvCOICw56bdzLDNS8 +r6wzmxVOcCZZxRf8ZeC7zaIs+QbhxP8AMZgtAg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1mOgFnYYxuFzsm172ebC0rJtLSzb1jKXa9m2bS7Xsm3XrrN9uHr/v7vn +9KUTkjZqW+n3wICAgLjBAgKCPnf5oSkRWK/rk40nehy5ualH4ksCdutmRGSD +bkAMP7FVNyQs2W1PfY4nD7f0HwRnj25OJDbqhsT09dt0I8KRw/bM5wTycluP +IgR7dQsis0k3IifP9UTycUePJiT79G9EYbNuTC5e6Enk564eQyj265ZEZYtu +Qm5e6skU4J4eS2gO6FZEY6tuSh7CcNDWmuhs083IS1jCEZ4IRCQSh9y1IQbb +dXPyEZnDtqDfuJjs0C3Izys9hYLc1+OIwhHdlljs1L9RgNd6KoV4oMcTlaO6 +HbHZpVtSkDf6T37moZ5ANI7p9sRht25FId7qaRTmkZ5IdI7rDsRlj27Nz7zT +0ynCYz0p6PuJE7oj8dir21CY93oGRXmiJwd9/3BSdyI++/TvFOGDnkkxnuop +xOKU7kwC9uu2FOWjnsUvPNNTic1p3YWEHNDtKMYnPZviPNd/EoczuiuJOKjb +8wuf9RxK8EJPC/qzyFndjcQc0h0ozhc9l5K81NOJxzndnSQc1h0pwVc9j1K8 +0jOIz9+6B0k5ojtRkm/6L0rzWs8kAed1T5JxVHemFN/1fH7ljZ5FQi7oXiTn +mO5CaX7oBZThrZ5NIi7q3qTguO7KrwT9JbPQVpZ3cg6JuaT7kJITuhtlCHS/ +yFaO93ouSbis+5KKk7o7ZYN+efeLbeX5oOeRlCu6Hz9xSvegHMHdL7FV4KP+ +i2Rc1f1JzWndk/KEcL/UVpFPej7JuaYHkIYzuhcVCOl+ma0Sn/UCUnBdDyQt +Z3VvKhLK/XJbZb7ohaTkHz2IdJzTfahEaPcrbFX4qheRiht6MOn5W/elMmHc +r7RV5ZtezE/c1EPIwHndjyqEdb/KVo3vegmpuaWHkpELuj9VCed+ta06P/RS +0nBbDyMTF/UAqhHe/RpbjcCA//7BWuYjLXe8h5OZS3og1Yngfq2tJoEst6Xj +rvcIsnBZD6IGEd2vs9UiGCts6bnnPZKsXNGDqUkk9+tttQnOSlsG7nv/QTau +6iHUIrL7DbY6hGCVLSMPvEeRnWt6KLWJ4n6jrS4hWW3LxEPv0eTguh5GHaK6 +32SrRyjW2DLzyHsMOflHD6cu0dxvttUnNGttWXjsPZZc3NAjqEd091tsDQjD +Olss23bvxoQntt7hswlxvHcG/v//i6xu/wVs/QNX + "], 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]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + 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" -> {{3.5, 11}, {0., 0.9124622705136872}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[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:eJwVVHc41u8XFoVssl7znSIqKyP6nIO+EkJGpZQtZRShkpQKkRBCpIxEkjJD +VlZUJA3KSCLrJTIiqp/fP8+5znXuM+77nOuhOJ2wdGVlYWEhrT7/t030a8Is +LDzIK7pvw5DqJMgbHhEoW8uDVku/JaxX/cijKjye63kwRId6r0FlEizyuti6 +hXhQP6Z3S4byJPRupc8+ZvDgbdvpNzZbJmFue/VbexMevCNnGJSpMAnUvT+i +axN5MGOvhnSR7CSE+tZH+qfyoG547TqeVX80/maYYjoPvlF0Z3OVmYSCjzrB +SQ94UN5tfouw9CRo2131OlHFg/cvVve4Saz2P0oxlR3kQdeSHTKfhSfhwnmr +9Rc28+JfO7/0Hs5J2HSZJSBFlRcTlR4T/zgm4ePVR4Olmrz4TqVNibLqb0ng +qGLq8aKHeu5X+3WT0J/3zPvgPl5Mtu7nalkzCTu6ae+3XeBFUR7XTcRvJoz2 +deDeK7wY7/OMbecSExK+nX/kGcGLp7wPtO1aZAJzqissK54XjXrOie9eYMLt +dVHagrm8eMzUp1/lJxOWVefuMDt4UW4gMC5xjAn3tTK4OT/yYoS7fsCZUSZY +EmZnaD28yLL10rf9I0zI25279+AwL/4X1Ab8w0w46GC3tmWJF1WGRgzsB5hQ +cb3xWBaVD4lbHVeDPzLh9GiC+kE/PuSy7TePqGNC48y2PzJn+XCG6/N2+Vom +CC1/bPp2ng/tVXx3NFYzoYCXtN8rnA8VKbk+s5VMGFJNO3sxhQ8F0t5NbS5d +ned8ds39Oj70vKWxyPuACelhhuEeTXzIGVcadS6HCZMxI+bKL/lQ/olF93A2 +E65mKnyteMeHr5Pcgp5kMqH2xSO2tu982GDiayp9mwlKQmVGszz8WGrj8cA8 +mgmBkvsFywX5UWKPeXtoFBNa6IufgkT58fJcxa7ySCY4a273YCfzY7D6Xlmh +cCak2NVcJ6nxI/ngneLkC0zgyGnuBFt+lBJ58W/iBBMGdbrsorL5cUkt7u6F +PUw4QvCpaefx4/n6kB4wYUIP/rf+ewE/9rlUvl02YsL7/4pLoZwfNzT1fnDb +yYRm8xi+2Zf8aPKXkcqps6q/864622l+bFYvEQrYuKp3U8+NeGkB7FjrzfF2 +ZQIWDX+tjMkKoIUSLeTP0gRotAi5I1UAFe+3szB+TUDRy93EpJwAmrzzWHGZ +mYCHb56OGyoLoM7TM2a5wxOQ9ine4Lf+ar570zPNtgkImTSZd3AXwGN/A1pt +kidgyOG9+PhxAVz3i+NPVMIEGL630z3lJYBq+6tvVsdOAM8zr8uhvgKol9fR +zxUxAYlXYwTzggSwUviios3ZCcinvds8GyuAtm/qC7MOTEC37UG30AoBfNa1 +Z4JVaAJ02gYj+KoEMCWiTdiOdwLuoMejpBoB/JjktfyIcwKcNwbNPWgQwA2+ +p6Z0/o3D1Fzapfa21X7aIbP/JsZhbezXO2KDAriGWjpGbxwH5Wb3rgdcgpht +LabZ6j0OLjoTuRy8gqg++Ngy7tg4JD3xCnTlF0SfrBOV1i7j8DfFV5oiLIgd +XLfcmmzHoe1EkHOytCCSpBb+2Owch+Ok2B9hyoJYnjperio+Dvc8n3K47BNE +3brG+reVY9D9VfvT8wOC2Hf7T+bzkjHg3l+VJ3tIEHmlGx7mFYyBr97zPT32 +gngQLTXcM8dAT/RVvOUxQQyscN5yI2IM+mv7ZfWCBLFQyf1dyr4xIG1g15LJ +FETlrfLONyZGwTdw/nnBPUGsEb17T2hoFF5+HTKBHEF8++rl0rXeUQh80mDv +kC+IfBvsR93aRuHznpDwzDJBNMoSlqwpGIXUqysf5V4J4pgIl8HciVGQ/vvT +f+vcKr7+YkAScwQoY1+K0VAIH3Cw5NW8+Q4Ce1J2NhkJ4c4TwSKxzd+BpdD6 +w24TIZzZ94T7UPV3GDjTumBpIYSL+UklfXnf4Q5nsbbrQSHs82A0JIZ+Bwn5 +sNoIbyHsLhdz7Nf+DkJHlV51Jgohdsj6LacNw9rhM4MuI0LofPnpkcP7hoBs +ExdTcn4DihoQRRwvv8Ihs9H9RWRhfLtG24y3rw/ePKu501MujFGZn4jNed0g +Y26dzG4mgh2ck56OM+8gykPu0ZcfIshMvSSQ8Lkd2ktP1er8FEHbkgaTG8/a +QZDl+dukORFs8k4TybrdDokJhxbMl0QwLUPPfa19O2RUx0IdqygW6+qG1wy1 +QRn/8tt0EVHMfCJFE557DQPFbxYcdUSRYh+hZUt9BWorZ3AoTBRHFTOCLlS/ +gBQtNe5TEaIoZ3NuX1jGC2D1n/ywJkoUVZYLwrNDX0DHpKOH7A1RrLsU/UXJ +7AV4fjFOPJgqinaXt40dGWiGe/VSzI7Hovh33FvAdH0ziEbUJVV3i+IlYW5F +ilcjnG8KdDLtEUVhsZuH5a0bYWjNts09faKYviuZukunEYoCH9QvDoqicskR +g1frG8HcM25SbVIUk6M05pk5DXDV3MUgb40YTg8wPaNH62FJhPNH4iYx9Hwk +T+E49xwWza7XkTaL4TPBOOo+1+ewEC4Ud3urGI6KLhZWmj+HuSWpbZnqYhjZ +l2HRSH8OU30q5x4RYnjxdpdT95s6GMw+xNFoKYY2qXl7fivUwcttj2VnAsWw +nmWC8bCnGlq81WdOnRfD0PiwkyGl1fAip6J+4YIYyrL2Ll6IqYZGUqPryhUx +fBDcYD9vUA01f7ofcsSI4fkX7G01BVVQ1MSqJZMlhtbUsQ1l155Bis0+C5NX +YhiwUW0sxKkCjsd+eJPZJoamERMmngYVoP3K2vz3GzEUd7UYCKBXQDdamT14 +L4Yj61l2Mb+Xg4iShSlHvxgqGRnm2niVQyyrsVHDtBg6lHZd5r/4FMIf70Ad +UXH0XLJKv1JVCvvGq2rjxMXxwRn1S8YZpSDH0IVxCXF8pJjdsTmsFBpTthO3 +ZMVRBINtTS1KgTVMU/eXvDiGEHfufx8ugWA7Fa1iHXEkHVUJDxItAb/1DGVF +R3FsJZlSYqOKwF1D0L3UWRxj2vXju3yLwM75z11wE8fPF62sCNsi2Fn9gd/a +Qxy3xTabHJMrgg0+YT+C/MXxw7jEGtX6QijqHilojxBHpcXiXP9/T2AmJ2+z +b5E4xrUIG68hP4ah94muKyXi2HsoY8vCbAF0r7mcFvZUHA9v7M6lthRA3aFD +vKlV4vj4+lQIxacAYvl5JhuaxbHg1bqmJ02PQPm0V75Ijzj+KglvHT6TD96G +yooVbCTk9Hp8UZk9D9T8RQXF2UnoZce9Y/O3B7CYtbIQwEnCBvZXsdZ1DyBk +TWu9Oi8J3z73tKGeewAJVY4Hn4iSsCyvpbz0Zy48U42PyFEgYXd46eGksRzg +lF0YuWlOQrvftlFy89nQtqe3bW4vCdl/+rPKdWVDXFB9sZU1CXkgfda4Ihsk +P0dfELQlodPi+IO1wdmw5eZGsetOJKzZ7yOrtj4brLltDa/4r+KvMI0Pyt2D +jF/P7vmmktDh30Lvi8BMiBTnN1h7h4Sqt3aLcdlngp+209eb6SRc/mPd5GuQ +CYbnOGUqskl43OZQUxlPJjD/Wif9e0xCucXig2szMkCDfSoiqpGEW1WHQqI7 +0uGlMPnE/UkSHiCnHN+fcAeKt53i1ZomobHZq4+vXe/A7X3ND1t/kpC5m254 +RfMOnEj2HGX+Wo2nxgw/7UkDYakKRzVWCbTdmLddYWMaHKFZWteJSuDHEqm3 +k62pMKtyRfszSKD98ELNZ91b4Gee2W+vL4G3grXzHoregjnPusvDOyXwjmRi +T9F0MizkrLRN75bAy4NLK07ZybAo7e/EYS2BZcMztfqCyfB3vds1dXcJ9H/Z +bNn0MxG4Bnf1RcdKoGxkyzhPTwJc++d6STheAu2iv4nLPUsAHukrG1NuSuDa +C/0nvVITgPdAnU92igQWxe/JD7VLAIF2LfaqexJ4l6RW92EgHkQqFbaOlUtg +nW1cbt1MHJDjuEMMvkogBrt/V1a7Ab6FtPdp3yRwfm3MuKvEDWjo0Nm4OCyB +eSunflatuQFu/J5t+eMSqKim49TREQuPol6TROckMGjhr9TVk7GwPfx60Si7 +JEYNF31W8owBqyD+oetKkii24cFaucIouJe6UXN0iySqXWwu9AmPgoVKiNRX +kcQEz/JDvw5HQcrSCeVf2yTR/IjVucfcUTAQ0BHkAJKYclOx4+Wxa+Dpc0NE +zVISB65NCHsrR0KY24Zd3aclkcgyrD87HA4rp5MtXQMl8ecaJ1pkbTj4Rkgf ++RkkibNX2p3f3wqHI/kb/XkuSaLouQItEfNw0Pipk4VRq/lldQZQFQYj513+ +5aZLYl60SMVUeigY3Sx9erZVEi8R+07fuXEZau5vb2B/LYkvgtw8LX0vg3p5 +bXt8uyRGvHd9omF1Gcg9rcOP3kmiI9tenhiRy7BE7t8w2CeJk1trzp6+fQny +8tlPGv+URPfJ95cmikKAu3G/vKSkFFY6mlBuslwEy66PX4OkpVDuT3Uk99sL +kDxuk9ovK4Wf/1SOq2ZcADlBa75MuhQGCf/0ttS/APpHLObkt0ih4UsJnpfh +wRC4aFSnoSeFtTE/9XbLnodxpe0HLI9KYVGM2ShPcCCoYIVgyTEpdHSX3f/X +JhDOWGm9EvGUQhKnQdamLYHAHqhBfDophaEPoiNUv5wF6gtVukOgFOZIfry7 +YHAWDjoqTntdl8KLCg+614ufgdabUlcjiqXw2ee3aTjqD7nZbkZfSqWQOnLT ++/YLfwgrfcK5rVwKr/VfuL8xxx/0P+yMGKiSwm1/Bw1euflDlbBXpGazFFp2 +OgrgqB88ia+OGu6Wwp0rBwdyZk9B4o0jN/T+SqF75Pbcuk2+4JeRuzeJRRpZ +2DoexvD7glXhT8FJVmkMuNp0KmzOBwTehsUlc0jj5JGJk+M1PhAh8Dj+h4A0 +OgSsEwyz8YGgmH8302jSeKfO6UhvxElwup6esmQkjZbyXNVbJL3BNWb/hksm +0thwaEu95LgXuN/gi+Iyk8ZxirbM/gov8L4ZdF7SShqd2Ft/lR3wgrNpBxx2 +HJbG5xUVZL5UT4h9JCAX4iONkU2VLCWbPaCm7WIhZ4o03gp/w9Ue7g7P32hu +unFbGp/KuHrk2rtD49upTNJdaew/8sOoQdMdXn6wS9h0TxprghTGykePwoc+ +rdOmBdI4OJM/mLznKDAnp3Vj66WRxiZf/ZHqBhJ8ji1iE9K4GDYlV7voDFOC +Qj/8JqXxYLNdOPmzM9SLNIh0/pDGmYrvgk+eOcMxaYZz1Jw0tkRdSDxwwRnK +lcb+sPyVxi+fv3G1cDrDPhMftXEBGXQ0aNIZoTlB3NWQO1UaMkj7Nkz3PusA +blGqTSRtGRQ6KOEi7uAA22O/TQToyOCFpTy2MUMH+Jr0n7YKyuATD1LIirAD +KOesf5+9WwY7/t29/9rVHtqbbqyPsZPBMPms+E0Th4GbLdPP8ZIMrlx4UvhF +4RCsXaq1mrkigweQqRi0chBWpvpUQ8Jl0CwoLsD5zUFgfibNpEfJIBE6myIQ +cBDaim54DSTKYMb7N6TuZluIcQpxs38og+oNu0hl/gdgQ73DgcPvZXCLJ29r +1rp9wFMerDn5UQbXkHhFagZsYG3BbdHzn2QwM+yTr0iVDczd6n5/u18G32RW +dp09ZQMffCz29o7K4KZbrfF8w9aQREHjQ39kULexT1X4nRVIhsjq2srJYlbq +D5pg917IO8VJ7ZOXRTPOVr97lXthu9sMh6OiLAZiccPRtL1w0KThnbuyLCrc +s5E/77wXkkWOepzZLou5A9tqP89YgGheQUqS2WrcdJcmWcwCBN7tWPoQIIue +h3/qt7DtgfQmuS+2Z2Wxgrvy9od3pqBczt/Ud04Wp/Y6e6rcMwXztK+xwxdl +cU/YLr/O/0wh+mio/HykLNZGki7lR5kA98rr/cJ3ZfGJmdCMjbwxsDPsyixf +yGKcR/QB84Rd4EYC44etsihP4oRvJ3bBC15qP9trWfzCGj5WYLILri6MrCvt +kMXH76jbmWy7gKvllI3YZ1nslXxTOB9gCPwe1+Z6mLL4SV/25YrbfxB14PAt +1fVkzPCuUq30XP1iO82+HeEiY0PIGv98MwNgmuLma9xk/LFdq/u1sgHs0aM9 +/8ZLRisp2fHEeX3g2zQ2miBExpMvZguMQvThxrKf1i9JMj46vClrJF0PEu9E +dT3bQsbR+XnBtL8A3TdKzq9RJmPveM3dvhYAydBe2i4VMu52rn57Oh4g3UPp +ZKfaav6eD+/KFADytF5zjmmR8fXR8SPmBwmo6eTeLmpARmvdDWzer3RhhP3a +7ZP7ybh+e/a2h2PasOl3kX7ZATJShN8rbKjRBs/Jz6PLtmT89/H+ckOcNvx8 +t2lbuB0ZD+il7vurqw0r6S/b0hzJyKmtMtaSoAUCOlz/XnqQ8db04rT5Xk3Q +OhHhyLhIxpfbq9/LLKuDs3PBEZsQMnJR0thlP6tD9P53h0IvkTF9Ua/TskId +hkB63/AVMgq6e/2yOqMOsQKFxtkRZEzSHOkqXlSD0cJuNUb8qt65z73us6pB +8txGdsZ9Ml5r2HHMUlsFGkZN2WxyyLiw4lOrJqMCU70+LKG5ZCw2ex0DbCqw +s+nZ76E8Mr7fuz/pQ5syTN80/3HvMRl5uK9R51yUwUjzdDe9goyVVfdHwrZt +hV9nm/Por8lY2Pi9bo2hEngzLR6atZHxciLp+14JJRg60vPwTDsZo/02bB+e +UoROg+n81x1krHj56P27ZEXI55V47PdhdR9KbvVNPzaBU4ZXcWM/GUtj5L9k +P1CAthbhKpcZMhplb2KpM94IO3XuVkX/XL0XK62QSrmNUPlIobp8lozbHpAD +mawbITeOqOFZIKOPQMLF+WdycMnOva7kNxnn2c8/jVOWA63pZ41r11Iw2SCF +XkRjQJaYc9s9UQpmLD4PddhKAyU2+qZRMQoOYiJ9Ez8NSqaGwhRJFBw56pul +8IMKzU1uWCRJwXMiET0tj6kwfup4cS2ZgtW71K8Hq1FBtcPn1udNFHzeoBp9 +bicFnl+96CoAFBTk4dT4LSwLxn569VZIwfNfdEpqB2Sg055VNkmPgqrqI/d7 +82VgSONKt/ROCt6zmciSMJQBzuFwE8XdFPTfMG6UFCQNFnoxKoZWq/Pqp2WI +L0nCl6W0P+eOUlD3mUxXghIJLL4fKnzgTsEerqaqDetIUN9Jcu06tlrv1z7v +jj5xuPfw5mtVTwruTF0pWRMrDscPX08dO7mK9+jz1v4lBvN1Qdr7AymYL67n +mt8hCtxXD/mrXqfgMH/ZVbVHwhDkR1JwiKbgDaMHplVRwjDl0NV7PYaCmzae +GT7tKQwd2lY7x25QsOaYgm2YkjAkThhvSE+kYDEnX9Wvgg1AMd9eyJtOQc+H +GnFjVUKgKUqaHC2ioJj2oDbXsgBUnuP9s7WEgt2cBp3kfgEgvq7hPV1KQZc9 +/y67PxcAw/xxpXXlq/OWfR6JuCoA1vpVnpTq1X2WPqzmJgmAj7c90/YFBXW8 +4eq1UD542Jw98bKHgko7LBT/enHDFqWUZcE+Ci4MXePYCdxQdCOa27afgn8n +nc0+CXBDpd1pxZEBCo4NvWCdLuGClp9GHmzfKbj9aWl4LQsXDMswx3WmKfg7 +1WjA/z4nyJ5WHc9fS8XbCnWbBuXYIaqPtrd/HRXLTTQ07rKxw6KBSDk/BxVb +pGZ3Jgysgw6BxVDf9VTcEcrKxUhdBxfzqilafFQM/Sef0SW0Dgb6jGwbxKh4 +xExeS4NnLWTutG/5tImKjY3BN9PorMD30GIrtxIVX9XvtKjgYIVAQf1E3c1U +rKD+XWCdWAOW/XSXu1upKP8tdVimaA2wnhn/56JORZ6gIi8f/TXg/NBfc3oH +FbdHir808GABulDUffa9VAw7fjrvxtM/RO/CoICqJRV1475Eb4z4QyT0aJ87 +bEVF0ympznWH/hBs2SPmJTZUbG2KKb71b4UY1DRYcjxIxdL4a9VCpitE+uHf +JtXOVGyOc58fn/lNSD9wnzkVQMVL5y63HvZeJN5frz109zQVndUsJFSNFoko +X9Hml2eoeDErfUGPukis6DSmUM5Rsdfr4Rehrl9Eb7vszjcXqDhsWnfqhMEv +ImXuY+KmCCpyKgb4NsktEKL4n+7XVCpmPO2bihaZIwbSOlnl0qhYTyvSDJ2d +JfKW7VuP36Eiht2QLH07SxBPA/fNpVMx8L8fW+uiZwm3LU9OctynorqJCv9Z +7lmiTEoye/MTKi7rr3TS+H8S+5emeQMbqXi5wkhxSneaoO4Pfl/TtKrfoIHi +Uco0wSzhTmV7QUXX62nNfOzTxMWTcvLXW6m40NSq8PbuDyJ35JB+ejsVTyS0 +MYJeTRGLH5oDmrupWHTjT56d2iSRXHT7i9AkFS0UAjr36Y0TxoIb/+hNreqV +mef8Qmyc+HOiUMLnBxWVPOwfnp0aI5w2N9u8maFilBF7XcbtMUIp98erawtU +PKcx0za3PErUpemXr2WhYcynZ2zmzSPEyNXR2AUhGl4IHbuoGT5MpIz4FjCE +aXjQJqKG4jpMmBr+eWUtQsP5StNhPYNh4gmbEEexGA2p3ZopVJZhIjBY5/wJ +KRqm/nfb1y5oiODziz42yqCh7ctAoePB3wgNe3X9z1o0/NFWGdpy/yuxrDH/ +jLqdhi6DrMsXrn4l6vjKtnno0NCfEnDA4/hXYneNpsLKDhpK+gkd693ylbCT +1hGQMaChzXCkmUzlAHGpR6/fcQ8NI0Z+z+YXfyHa9psHjjnScL9xUFnt6V4i +bqvAnIozDR1PdBh/N+wl9nG89Qp0oaEgwZHuINpLDJRZOnIfXa0v42phVtZD +/BTZZ7TZk4al7GSbv0ufCfH3dqI+ATQE5sMjWrGfCBeL40WLkTTc+jq+L3ju +I+F3P3arTtQq/4TWhI62j0ToSln++es0/OkR5+Wc85G4n8uWwxpLQwVFt3bj +Qx+JUZa0VJ6bq3y924KFmz8QHoVvrpDv0vCfd8QpzZz3hK/Qtv1GxTS0vu5d +/Cehk7jkfuh9ZAkNS/hYcvL9O4n4mpC9baU0rBVrOxC7r5MoOd5uYllOQ/pi +ecKceCcxX38U7appeNQjuU8u/S1x5lSKwskXNDSdd+AdfdpBXHj/bzmph4bF +VhGRRiLtxBlFWkdjLw3fNLR9XhxuI05eMrw300fDRwUnw2fL2ggn5eumJgM0 +dGv1ozXbthGGURJpf4doeHKsou1d5muCd+c2wnVqlS/HgvcW/VdEavHxi6pr +6Pju13q96aIWIoEr2tqelY5d+gyaWFQLEeVYKB/FRsdXumxi51xbiGD+xY7h +dXT8OM8sWRRvIZw8Qim3uOioQjl9su7SC0KBll7/bwMdU3my/ik7NhNP4z6s +bZOj4+GeD4TSrkai3mnrtg3ydNQ232aWTG8k2lUjXG0V6FgfZWcKrI3EUKdu +87AiHY/Pq1/RrWkgBDbcC/+rTEfFTxGCY1oNhHu8L5eyDh1Dky5DmVY9IZHA +LxBvTkf98ZrgO/Z1BMPlGH6yoOOauPsGRQZ1hLJ6w0lZSzqKLwRkzG+sIwzf +B7x9aE3Hr2NCLRsGa4lTwv1xjbZ0PKI7EVvLVUu8TsgXWXCmo/uAf9OSZzUR +fHO3pO0ZOs6to78bP1lJ+LqlZ0acpePvztnwdsNKwlXzl0JlIB0jGK2G81KV +hOmne1qS51f5jV/V4npZQUhIs+zrC6Hjs68HPAw3VhBP75XFOl6jY+9OKr1g +8ikxXUxjP36HjuX69kpROaXE0JXA6yl36dhniHV8oaVEl81b4VfpdEzYykq0 +OJUSNb+CaUpZq3q4b0rplyklonQ+41QOHaOpe9xjbpUQCg2x53wL6cj2j6/o +aXIx4dT5ZzqwkY4/ZOZcpp8VEhmUynPZTXS0zvr9mEgvJAZOBrB3NNNRxGtQ +o/xKIWHP/0OS0UrH8Ocj44pmhYSd6YDhm7ZV/dKz7/F9e0Lsa66/TeuioxiD +CLgq/IQwrgw3ej1GR3bxh6RtCo+IiPU73y2Mr+5n/ub5vOV8ouUAyxEKk45n +onKX3drziV2/zpwKmKJjgLDktWK/fGKn+vE75Fk6EpFP/kY3PiSIAtM5vxU6 +pp/4kTZzMo9QyxRMl+Zn4GS1q1bKUg5x5fjacEcBBhZYXPu00pFDfFT95ZUt +yEDuy7EG93JziMCGXp3NwgzMWK+RUXsgh6gbyunSJTFQNTFrQbLqPmG6keC3 +ozHwV1Kw1PqYbMIl/3hwiiYDTUfCM185ZRFlfodd+7UYqBF3YHlWL4vg2GFh +St3OQPME7zkrShaR17ZNIk+XgXUOFuYVA5nE9BRLWYUeA6k3P4TwO2USQSpJ +k90mDLSU789O8c4gEsoa7MQcGLiSm5WWYXuXaL9QnPKfIwM7RZ5955O/S3Du +zuo+5cTAqIGZ6JcLd4ignkvWHS4MLOQQ5FO8eYdwYdE3jTjGQB65keOXP6QR +6sZ1Osu+DGz7tmGrgstt4l1flcSXUAYO6jPXKZbdInhy8g/whjMw0TjN+dL1 +W4ThyduJOlcZeJ4za72E6y2ikjVIKDmSgeL6Q8mcIreIzI06XHtjGDiSmdve +dTqZ8PWpWKpPZqCdSNvEqFESIbSurPv+QwYmhFN8d4neJD5lEDsW8xlYRs/U +FJxJINKJFxm7Cxg4tHHgntTrBGLLme7jzCcMtDKm5y5cSiCMJ36vqJQxcKle +/FPebDwR8hYo1XUMXBu58qBoII6YTms99u4DA/X77289/D2WeLrdsp3excDN +4W/0IltiieCuz6oB3Qz8vSNsdiIvluARZC6L96zi53/Um5yMJeSv8EUfGWCg +sSAH4/vvGMLhuFXR2DgDa+Im1zP0o4mNHL2iOkwGNtiZfKjhiSamslzORU0y +0OVU36eyrutEUJ//zq3Tq/Ubvi7UeF8nki2SP/rNM9Dt6PQt6Ywown6SrNO8 +wMC9sA+TvKMIucgHd8UWGViFr3mP60YRJQ2V7pW/Gahy4esD8U/XiHMOBm3c +KwzUvqusN5tzjdD/80rl8J/VexyYiKWfvkZwplgnFvxl4LvNoiz5hteINxp9 +v//9Y+A6rFu4KnqN+B+7Zi0C + "]]}, "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.500000000000008, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "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.5, 11}, {0., 0.9124622705136872}}, + 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.992074730307644*^9, 3.9920747761967583`*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"ce369678-635a-9a43-881f-cdde53b58a76"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l11", ",", "l22"}], "]"}]], "Input", + CellLabel->"In[40]:=",ExpressionUUID->"89a5fa74-6f01-6943-b5a9-4ef6da22cf67"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVlnc4FvwXxhGF7PDs56HsEC/ZOgehosyIpMxUygqR8tojJFvICiVJiKi3 +UkZKWlZCRsjeFQ0/v7/Oda77vs753p/r+8cRdfQwd2FhYmJSYGZi+n/1C7Lg +YmLiQs2BidvnjGah8sWZwo8sXDgq1qHqcGAWZjjDNUrYuDAtK0rCYv8sOGdW +ux3ayoUTzCtiuw1nwaxGqClbeEMPTche0J0F2fnuS+pyXPg83munscYsDDnZ +zXnbcmFVX4JrhNQsGBu5fBit5kJitnDXMsss7DtiM80SwI2b+fpiokpmYG5H +CKuoAg86aN5WOrV3Bk6FNcSVjPDgsXDTgZKOaeAQ/ermUsyLdCbLe5T901C6 +J0dUQJ4PXwT90/y0agqGr9SpxSfyIUuC+/vhtUlg3TEcpbXAh2ctUURAdhKC +MsWs3I340eVaq8SC+QRs3nWkXfUuPzaMX0luNvoGY4VFTWHsApj5SmrVXXMc +KhzXlzc5CqBRsQZHDGEM4vBAO+OFANpuStXlefYVnvwpl3hM24Yse4jfo91G +gKWXVXo5eBve3zKX1DowBApMJ51ODG7DFcOOxiajQahmG6Ee1BDEH7ToR5Op +/XBAxvTfzixB/KO5pVD0UC+oyHc7DnwXRLFtVRF/DbtB2cxkLtRGCBdkKrYQ +qR1AffKx6mi9EG5/rSp+V/o92HJ6/6gWFMYjeRrfy1TfQKkv8+htP2GcTJDi +85F/CabPSs0YH4TRdXGrD9v6Cxi0PPH95U4Cdo1KFKu6PINQ9i36PPEELN7B +M+hNqId2zj12AQkELGv/ci+ZqR7I3L4+X68SUGP278CLiTqo5B/Jr08i4OP0 +MwfMH9fBEPnpX9cMAipLnPwi4VgHKOf/8GkhARvDf6vcqXgIf83Gd3rVE1Db +33WOyaYWArNaBDrGCWiRyXTibWc16DoWZxybICC7rIwDe0M1cEpH0McnCdhh +QP9rVlYN12t0ZdZmCPja4uuscFg1PHr/n47IMgH5K7lHXBWr4feWak93JiJO +6go8Jl6rguDzee2sJCL2tPsZJNpVQvjBgNjdB4hYepptibG9As7rqw3VGhHR +boeycjJ/BThr/1DVOEjEuBchWYLMFaAn5zu6x5SI3Q3rgWHP7gELtxfusyLi +jusuU9F77kFIm9t3W0cihuikvGqFcrhsdMTx30AitlQE3nxgVQYX9qtqvC4l +ovkLO/KTD7dg9NZiklIZEXmO9nlvqr8F5uzlU1l3N977tPPnsfxbINsiluNe +QUTtcWsbc89bMLRXgImnhohrv3KZVXlvwQGcaTJt2NAPOWd+NS0BmmqhWVc3 +EbdX2rv4jRRBbJp96Z5PRKy4l3l035si+LlC2lTSS0T2e5uH5WqL4EN1YrV/ +PxFHj0m5K10pgsh/LhNII0R8CG95JJWLYF7Opv/oLBEXn7naF8XchOdivKeG +WEn4dr5ye5FuIZTt81Zw20xCdeuYUDG5Qkh17/wxu4WEKyZ72eoIheBWnRX5 +m5OEYR6xSqIzBcCzV+omgZ+EduUqvtMZBWDjpPPlII2ESyrBpSeW82E+3+dw +/W4Sco4vPTGrz4Pepi6qjioJuTVFhq1K8uDFhPrXFjUScgwq/OORkgdpikw+ +nZokDNTLoHw6lwdaDXGJ8zokvDA65ZoolgdRg0WvJQ6RUCN1jrIukQt0Ro9O +sisJ37XOpMz8yYaIUtWtTG4bef5qbX42kA3Tu9M73E+R8KOKXF7F02yoM7Y6 +aeBOQqnn7HNTIdlgGdgRt+pFQpaMOMeXW7IhtvNd9/FLG359H35WUhb8uNJ6 +VjaFhCYmZI2vpplgT5BWzUwlYY+80JVDuzOhsSCaaXM6CZsvOop2kDIhqc4w ++UsmCfWs7BsVRjJAfrzpYVIuCfn1FH3k/DPAWff5ptVSEh69+mab6M10ePez +PrOpgYRzKb/uH+FPA/sHa0o7X5Cw+3H59YurqTDjpdGe2EhC4oVRas1QKnBO +1bHYtZCwwKn/hldlKuztf3hmsW2DN6uVN9PhVKhtqNFm9Gz43XYZuN9IgRux +lUMXZkkoR563/q6TDLKGixcH5kh4xbf815hsMjza9I/w3gUSXrbu7pwmJENP +0P0DvMskNCufHFGdTQIBj4qqolUS7nQUOtmalQQRFuURH1jJeFh2Xe7V2jVw +p5ZKy1LIuIM1QLa5JRH8c679U0ElIz2oqLakKhFC6QGaynQyjo9M5ObmJkK6 +yL6DWqJkjPVYV/jgn7jx/8Y8jSXJmCBcsArSiUCU2/7QXYmMIUyaS1YiV+GF +9nWDu0Zk/MDnxH7icxy0PwkxUTxIRv9HdsVuD+OgB04deXBow//h2puM1DiY +1VE7/Z8ZGRVrkkkepnFANOiKf2NNRm2LwaNzLVfg3CGBzhknMl7K1YqjPokF +8vFYJ/kgMn4qpvYxmqOhwPDcuYxLZPwoM83WdTsaZBTMA1iCyXjKwyWkND4a +NJjJV7tCyEj6vGn17uFosC28XX85iowrHNcaKONRkDX+kv9tEhlviXk9COCN +Aqrnlmcet8kYvM8j6aJvBNw8MvXqUykZnS6GqzfZRYCszttOvTIypnRcrJPe +GwFaAulThHtkDJDO6dXdFgF21RKEZ9VkrLkn0lhZGQ45P/XP8T3bmD88E+f9 +PQzoIeHU+11krLw/ztSQGArb5fnS1HvI+C1+W7pLQChIfs7iff6JjJcJm7dI +OIaCwu4qlo99ZIxhI/1aVQoFnYmhb8vDG/upixOTPSHgbAYP1ObIqLWXNN0l +GQK3RdcOPttCQfR/W0GuDIby9oiWfRwUlCDC8reYYKi8yK/znpOCfkyvno47 +BEN9p5TyMDcFP92IJ/gJBENbjDWZVZCCI8Yhc299L8PsQvWYoQgFq0YthA7o +XwLl5x7Bb9UoGMb0jLTAdhFqun6saWtQ0NpJNLtqNBDUpoL9yjQpqNIsM3q9 +KRA0BRPPxuyh4PHCvF3dEYGg61pxVG8vBVPMet1Z2APBhHNBtdaEgptF2JRY +tgXAaXPv+RuuFOx233umUNcfpl3XznC7UTCPaLD+QMIfzl0MHb94ioKRPUNP +v3H6g9fNpIEj7hScC4rWKv/oBxe+V7YJeFOQsCbh+MDVDyKuL92KvETBg4Vc +T9KSfCFv+LzDuRQKcjfe1nnKdB4OSPXf7UylIKuYVT3vhA8sndVf00qn4BnK +VqWL733AYFUoeet1Cn7j/lVRUOADU7y1jbdyKXjHfvmRgoEPqGivSo6UUnCb +n6ypQpI3vE6/NGvdQEGLp1Wb/mh5wfn+UY2nzyn4i1kk1F/KC+g7DkVJNFLw +/lWtdA5BL/Asp4usNFPQ1F6WcX7KE4SbnpoltVHQ88/UwPEsTzixyPygrZuC +DvFUj59/PeC7ceRFnVkKXu94pqhVcRao1mkqLXMUbPZW4KuNOQs6DsULxgsU +ZAqNNXd0Ogtxvs0njyxT8PFRD+p+wlnYcWOzpccaBX0FW8PNQtzBdC5SNmcz +FSlLZl5U+zNQei2q/yedilL+PV409VPwLis947IIFcMeD99UJ56ClaISC9bt +VFwvWAgM/uEGWN/SyitOxR3zeoZRNW7QPbylRmInFY2z1mZDVNyAVTk6wVKV +il5XPPN/ap8E+65oqDChojVV40PuKRdg3pf6m2JGxZMPFiY8TVzgZl1+XZQ5 +FVtkHso47HaByex6peOHqfj+TnTmDWYX8HOaluQ5SsWc01wWMVnOkDBvwufu +SkVO9d7R9Q4n+I+TMCR5iYpKqg8DI485womgHTeSL1NRb+TknTUDR2CZ3XV0 +PZiK55k3fY5RcIR97/d1doVSMVO1p/7nJkfoSA9sjYim4o9aM4ZQmQNMiw3c +H0mm4lumXWtyzA5AhaLQ3FIqZnyz5xYPOg6avjbl0mVU7FsOmKKaHwfbO9y9 +VXepaFRwLtdI6jhkEvwUX1ZQ8dX7vb7GnfYgPG8wOF9DxTv6/A4divbAl/9N +W/cFFZW1ecOfL9sB6ybZ1a+fqWjbq37UPM8WdqgPinn0UzG9bd6oKMgWdD1S +TFcHqMj1u49T0sYWQj7/LuEepuJ/Nb/YagRs4W/VGyuVb1QUpHiE/YqygZ/O +HtVRy1T0DVQXWAw8AtPNlR4y3DRU5R1R3xJiBUryhu53eWhoHfR52NzJCgJT +P7sp8NEw1/s6c5O+FbA7szqqbKNhfpLjF8pWK9jBbGWpS6Kh3rDHUEL6YbDV +XFWzFadhA83m64laS2jdOMlitWn4/vAZB39+C+AjdPzlAhqKp4s7q/00B6vL +br+uIg29jnRqk7+Yw1fja8upejSMn+V5B3fNgWlyeCx/Pw31L9yf5zYyBzWx +yNd1h2l4cnH2VVKcGRRntKVMnKXhl6TGdTkJUzh98liyuQcNX4wJ9MgKmIK8 +yuy1R5405PgoJhb92wRqP/JejfehoZvf43N+d03gJY9FjGIADWuE+gyT+E1g +MvzTpYBwGh7j9riTOnwQ5L3GXDmyaNjUmq9zsNgIFsHfxTubhpmuCQs/woyg +hofd+XMODQW8LPPbHIwAyqQd7ubR8FFQr+oSzQhMx92PmhXTkG7v+n5XxgHw +PrZkknmfhsFCOSuaKfuhZj+TuvRLGmrW2Vgevm0I3/vUiitaN3je7hM7FWMI +qp5e29Re0/BP0QuPklOG8DBteMagnYarkhXpBTKGUD/SWODcQUPJG2+V4ssN +4MmlGK68QRpeknucxfpEH1ruCwwKr9Kw9CXPY/41PWDXNzp4Y20jX7rKE54v +erCvJ6xe/DcNZYp53+9q1INXf5dTlNdpWECUde9P0IM2o+795mx05HQKtBsS +14N3o1lV8fx0rGm9x+Fsqws9JPEoVhk6fjk+eJbRh5AmaPvdaycd5b+Hvn7V +jGDJe9Xliywd5ayVuxLvI7xjXdWr30XH1LMdHu5RCC1zbUyeu+n4ibBFyl4Z +oabpfOBnpONKjGMKQwIgxavxbKU1HbcpSX251aQF5u6rfQwbOuZ5lOUo5msB +30l543hbOvb+5BL+FqQFcXYZMm7H6Lj14haLfmUtCDN0H6c50fFGpsTIcLEm +eNMEHWLO0TGyIPqETLIGmLY6WZ6IoKO1CEld7YoaqKxcSGmOpGP4gXaTMnc1 +oIgmdMhG0/FyRM5Wg0NqMHbhoeVqLB0vyK48muBXgyAp7sNJiXRU3aTHPXNd +FW5F1RxuzKKj9u2bCY+rVIDZgMNaqnJDV7gTa76uDGNe9PSEqg1ePF8qJUaV +oS1HqXu5mo5pY3rylNfKkLFyzLqhlo7EJZMQ53RlkC+qtLb9j44keb/D5xWV +wZbV7kjcSzr+txN3nzyjBJXPy23mB+jYVh/8O21FEQSrzrD7DtLRt4wl0qBf +EfwKpWpXh+j4y2tntXCTIqiHFwhuGqVj2MMUM2KqIjzTT3srNEXH+kWekSwV +RXj78pK+5g86Ni1mlwQHK8B0u7FiJC8DXe+LtmibyMOhpxyDnPwbvYTINQkJ +eai415xwVYCB0iuvCgz+yIFPIk5nCDHQbFuY/84yOVgzUy65Q2FgyLW5pWAu +OeDopNDeSzIwX6y+R6h7J0h8nmSnIgP7VGc2CSVJA5vSzbpIHQYKKp6mVHhJ +w9fYY6cXdBk4PTu16GMmDQUa71436zOQtniC4MsvDYzrDxK8jBj4o9WozjpZ +Cog2/wq2WDGwVe6hrs8NSdjaLSTifZaBwfnXMmveicOk/Nt3fecY+Ke/YW3r +A3F4FRkdYujJQBvqqmp4pjhEq/wapvowUFPycUafoziwpg0WtVxgoNuDpT1S +P8Tgr+WdnbRwBlZa8IpvlhCD+Q+o+vI6A416rdafZG2HO1JGwseyGSjZJSfu +GLIdXC8fXlnIYeDNdrYzMie3Q7/06SpKPgN5bzVFSStth1f/Ju/yKGGg4S9H +9742USiSH5MUrmbg1rMdf75tFgXb2CtE5zcbfKU6ZtOlGCA8mPrjZzsD0/49 +PnDyNx3e787rin/HwLAjkSJ+7+iwb6g6pfYjA3MEzqFxAB12qw3wbe3dyFtp +HNb5hgZ8YwoclWMbfLi7tQRCqfBaU/ObwbcNvr06Qbk2VIi8pt/yeYKBNRUp +H1wUqfBHyzaCbWaDb96N8OwhCkwmhzHbLDFwqYz96O29FCieiB+cWWYgR+Hp +O99pFHCAjKeh3xkoGi6ZG/iDDD2TZZfKVhk4rje1R/wOGZKx1k7nFwP3bidY +GEWQ4VBag2bXbwZyvx7rLT5OBs7p1+QzfxnYnel9RVWDDE06Xavr6wyMuKVB +/iNIhv8B8LNJ5Q== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc4FvwXxhGF7PDs56HsEC/ZOgehosyIpMxUygqR8tojJFvICiVJiKi3 +UkZKWlZCRsjeFQ0/v7/Oda77vs753p/r+8cRdfQwd2FhYmJSYGZi+n/1C7Lg +YmLiQs2BidvnjGah8sWZwo8sXDgq1qHqcGAWZjjDNUrYuDAtK0rCYv8sOGdW +ux3ayoUTzCtiuw1nwaxGqClbeEMPTche0J0F2fnuS+pyXPg83munscYsDDnZ +zXnbcmFVX4JrhNQsGBu5fBit5kJitnDXMsss7DtiM80SwI2b+fpiokpmYG5H +CKuoAg86aN5WOrV3Bk6FNcSVjPDgsXDTgZKOaeAQ/ermUsyLdCbLe5T901C6 +J0dUQJ4PXwT90/y0agqGr9SpxSfyIUuC+/vhtUlg3TEcpbXAh2ctUURAdhKC +MsWs3I340eVaq8SC+QRs3nWkXfUuPzaMX0luNvoGY4VFTWHsApj5SmrVXXMc +KhzXlzc5CqBRsQZHDGEM4vBAO+OFANpuStXlefYVnvwpl3hM24Yse4jfo91G +gKWXVXo5eBve3zKX1DowBApMJ51ODG7DFcOOxiajQahmG6Ee1BDEH7ToR5Op +/XBAxvTfzixB/KO5pVD0UC+oyHc7DnwXRLFtVRF/DbtB2cxkLtRGCBdkKrYQ +qR1AffKx6mi9EG5/rSp+V/o92HJ6/6gWFMYjeRrfy1TfQKkv8+htP2GcTJDi +85F/CabPSs0YH4TRdXGrD9v6Cxi0PPH95U4Cdo1KFKu6PINQ9i36PPEELN7B +M+hNqId2zj12AQkELGv/ci+ZqR7I3L4+X68SUGP278CLiTqo5B/Jr08i4OP0 +MwfMH9fBEPnpX9cMAipLnPwi4VgHKOf/8GkhARvDf6vcqXgIf83Gd3rVE1Db +33WOyaYWArNaBDrGCWiRyXTibWc16DoWZxybICC7rIwDe0M1cEpH0McnCdhh +QP9rVlYN12t0ZdZmCPja4uuscFg1PHr/n47IMgH5K7lHXBWr4feWak93JiJO +6go8Jl6rguDzee2sJCL2tPsZJNpVQvjBgNjdB4hYepptibG9As7rqw3VGhHR +boeycjJ/BThr/1DVOEjEuBchWYLMFaAn5zu6x5SI3Q3rgWHP7gELtxfusyLi +jusuU9F77kFIm9t3W0cihuikvGqFcrhsdMTx30AitlQE3nxgVQYX9qtqvC4l +ovkLO/KTD7dg9NZiklIZEXmO9nlvqr8F5uzlU1l3N977tPPnsfxbINsiluNe +QUTtcWsbc89bMLRXgImnhohrv3KZVXlvwQGcaTJt2NAPOWd+NS0BmmqhWVc3 +EbdX2rv4jRRBbJp96Z5PRKy4l3l035si+LlC2lTSS0T2e5uH5WqL4EN1YrV/ +PxFHj0m5K10pgsh/LhNII0R8CG95JJWLYF7Opv/oLBEXn7naF8XchOdivKeG +WEn4dr5ye5FuIZTt81Zw20xCdeuYUDG5Qkh17/wxu4WEKyZ72eoIheBWnRX5 +m5OEYR6xSqIzBcCzV+omgZ+EduUqvtMZBWDjpPPlII2ESyrBpSeW82E+3+dw +/W4Sco4vPTGrz4Pepi6qjioJuTVFhq1K8uDFhPrXFjUScgwq/OORkgdpikw+ +nZokDNTLoHw6lwdaDXGJ8zokvDA65ZoolgdRg0WvJQ6RUCN1jrIukQt0Ro9O +sisJ37XOpMz8yYaIUtWtTG4bef5qbX42kA3Tu9M73E+R8KOKXF7F02yoM7Y6 +aeBOQqnn7HNTIdlgGdgRt+pFQpaMOMeXW7IhtvNd9/FLG359H35WUhb8uNJ6 +VjaFhCYmZI2vpplgT5BWzUwlYY+80JVDuzOhsSCaaXM6CZsvOop2kDIhqc4w ++UsmCfWs7BsVRjJAfrzpYVIuCfn1FH3k/DPAWff5ptVSEh69+mab6M10ePez +PrOpgYRzKb/uH+FPA/sHa0o7X5Cw+3H59YurqTDjpdGe2EhC4oVRas1QKnBO +1bHYtZCwwKn/hldlKuztf3hmsW2DN6uVN9PhVKhtqNFm9Gz43XYZuN9IgRux +lUMXZkkoR563/q6TDLKGixcH5kh4xbf815hsMjza9I/w3gUSXrbu7pwmJENP +0P0DvMskNCufHFGdTQIBj4qqolUS7nQUOtmalQQRFuURH1jJeFh2Xe7V2jVw +p5ZKy1LIuIM1QLa5JRH8c679U0ElIz2oqLakKhFC6QGaynQyjo9M5ObmJkK6 +yL6DWqJkjPVYV/jgn7jx/8Y8jSXJmCBcsArSiUCU2/7QXYmMIUyaS1YiV+GF +9nWDu0Zk/MDnxH7icxy0PwkxUTxIRv9HdsVuD+OgB04deXBow//h2puM1DiY +1VE7/Z8ZGRVrkkkepnFANOiKf2NNRm2LwaNzLVfg3CGBzhknMl7K1YqjPokF +8vFYJ/kgMn4qpvYxmqOhwPDcuYxLZPwoM83WdTsaZBTMA1iCyXjKwyWkND4a +NJjJV7tCyEj6vGn17uFosC28XX85iowrHNcaKONRkDX+kv9tEhlviXk9COCN +Aqrnlmcet8kYvM8j6aJvBNw8MvXqUykZnS6GqzfZRYCszttOvTIypnRcrJPe +GwFaAulThHtkDJDO6dXdFgF21RKEZ9VkrLkn0lhZGQ45P/XP8T3bmD88E+f9 +PQzoIeHU+11krLw/ztSQGArb5fnS1HvI+C1+W7pLQChIfs7iff6JjJcJm7dI +OIaCwu4qlo99ZIxhI/1aVQoFnYmhb8vDG/upixOTPSHgbAYP1ObIqLWXNN0l +GQK3RdcOPttCQfR/W0GuDIby9oiWfRwUlCDC8reYYKi8yK/znpOCfkyvno47 +BEN9p5TyMDcFP92IJ/gJBENbjDWZVZCCI8Yhc299L8PsQvWYoQgFq0YthA7o +XwLl5x7Bb9UoGMb0jLTAdhFqun6saWtQ0NpJNLtqNBDUpoL9yjQpqNIsM3q9 +KRA0BRPPxuyh4PHCvF3dEYGg61pxVG8vBVPMet1Z2APBhHNBtdaEgptF2JRY +tgXAaXPv+RuuFOx233umUNcfpl3XznC7UTCPaLD+QMIfzl0MHb94ioKRPUNP +v3H6g9fNpIEj7hScC4rWKv/oBxe+V7YJeFOQsCbh+MDVDyKuL92KvETBg4Vc +T9KSfCFv+LzDuRQKcjfe1nnKdB4OSPXf7UylIKuYVT3vhA8sndVf00qn4BnK +VqWL733AYFUoeet1Cn7j/lVRUOADU7y1jbdyKXjHfvmRgoEPqGivSo6UUnCb +n6ypQpI3vE6/NGvdQEGLp1Wb/mh5wfn+UY2nzyn4i1kk1F/KC+g7DkVJNFLw +/lWtdA5BL/Asp4usNFPQ1F6WcX7KE4SbnpoltVHQ88/UwPEsTzixyPygrZuC +DvFUj59/PeC7ceRFnVkKXu94pqhVcRao1mkqLXMUbPZW4KuNOQs6DsULxgsU +ZAqNNXd0Ogtxvs0njyxT8PFRD+p+wlnYcWOzpccaBX0FW8PNQtzBdC5SNmcz +FSlLZl5U+zNQei2q/yedilL+PV409VPwLis947IIFcMeD99UJ56ClaISC9bt +VFwvWAgM/uEGWN/SyitOxR3zeoZRNW7QPbylRmInFY2z1mZDVNyAVTk6wVKV +il5XPPN/ap8E+65oqDChojVV40PuKRdg3pf6m2JGxZMPFiY8TVzgZl1+XZQ5 +FVtkHso47HaByex6peOHqfj+TnTmDWYX8HOaluQ5SsWc01wWMVnOkDBvwufu +SkVO9d7R9Q4n+I+TMCR5iYpKqg8DI485womgHTeSL1NRb+TknTUDR2CZ3XV0 +PZiK55k3fY5RcIR97/d1doVSMVO1p/7nJkfoSA9sjYim4o9aM4ZQmQNMiw3c +H0mm4lumXWtyzA5AhaLQ3FIqZnyz5xYPOg6avjbl0mVU7FsOmKKaHwfbO9y9 +VXepaFRwLtdI6jhkEvwUX1ZQ8dX7vb7GnfYgPG8wOF9DxTv6/A4divbAl/9N +W/cFFZW1ecOfL9sB6ybZ1a+fqWjbq37UPM8WdqgPinn0UzG9bd6oKMgWdD1S +TFcHqMj1u49T0sYWQj7/LuEepuJ/Nb/YagRs4W/VGyuVb1QUpHiE/YqygZ/O +HtVRy1T0DVQXWAw8AtPNlR4y3DRU5R1R3xJiBUryhu53eWhoHfR52NzJCgJT +P7sp8NEw1/s6c5O+FbA7szqqbKNhfpLjF8pWK9jBbGWpS6Kh3rDHUEL6YbDV +XFWzFadhA83m64laS2jdOMlitWn4/vAZB39+C+AjdPzlAhqKp4s7q/00B6vL +br+uIg29jnRqk7+Yw1fja8upejSMn+V5B3fNgWlyeCx/Pw31L9yf5zYyBzWx +yNd1h2l4cnH2VVKcGRRntKVMnKXhl6TGdTkJUzh98liyuQcNX4wJ9MgKmIK8 +yuy1R5405PgoJhb92wRqP/JejfehoZvf43N+d03gJY9FjGIADWuE+gyT+E1g +MvzTpYBwGh7j9riTOnwQ5L3GXDmyaNjUmq9zsNgIFsHfxTubhpmuCQs/woyg +hofd+XMODQW8LPPbHIwAyqQd7ubR8FFQr+oSzQhMx92PmhXTkG7v+n5XxgHw +PrZkknmfhsFCOSuaKfuhZj+TuvRLGmrW2Vgevm0I3/vUiitaN3je7hM7FWMI +qp5e29Re0/BP0QuPklOG8DBteMagnYarkhXpBTKGUD/SWODcQUPJG2+V4ssN +4MmlGK68QRpeknucxfpEH1ruCwwKr9Kw9CXPY/41PWDXNzp4Y20jX7rKE54v +erCvJ6xe/DcNZYp53+9q1INXf5dTlNdpWECUde9P0IM2o+795mx05HQKtBsS +14N3o1lV8fx0rGm9x+Fsqws9JPEoVhk6fjk+eJbRh5AmaPvdaycd5b+Hvn7V +jGDJe9Xliywd5ayVuxLvI7xjXdWr30XH1LMdHu5RCC1zbUyeu+n4ibBFyl4Z +oabpfOBnpONKjGMKQwIgxavxbKU1HbcpSX251aQF5u6rfQwbOuZ5lOUo5msB +30l543hbOvb+5BL+FqQFcXYZMm7H6Lj14haLfmUtCDN0H6c50fFGpsTIcLEm +eNMEHWLO0TGyIPqETLIGmLY6WZ6IoKO1CEld7YoaqKxcSGmOpGP4gXaTMnc1 +oIgmdMhG0/FyRM5Wg0NqMHbhoeVqLB0vyK48muBXgyAp7sNJiXRU3aTHPXNd +FW5F1RxuzKKj9u2bCY+rVIDZgMNaqnJDV7gTa76uDGNe9PSEqg1ePF8qJUaV +oS1HqXu5mo5pY3rylNfKkLFyzLqhlo7EJZMQ53RlkC+qtLb9j44keb/D5xWV +wZbV7kjcSzr+txN3nzyjBJXPy23mB+jYVh/8O21FEQSrzrD7DtLRt4wl0qBf +EfwKpWpXh+j4y2tntXCTIqiHFwhuGqVj2MMUM2KqIjzTT3srNEXH+kWekSwV +RXj78pK+5g86Ni1mlwQHK8B0u7FiJC8DXe+LtmibyMOhpxyDnPwbvYTINQkJ +eai415xwVYCB0iuvCgz+yIFPIk5nCDHQbFuY/84yOVgzUy65Q2FgyLW5pWAu +OeDopNDeSzIwX6y+R6h7J0h8nmSnIgP7VGc2CSVJA5vSzbpIHQYKKp6mVHhJ +w9fYY6cXdBk4PTu16GMmDQUa71436zOQtniC4MsvDYzrDxK8jBj4o9WozjpZ +Cog2/wq2WDGwVe6hrs8NSdjaLSTifZaBwfnXMmveicOk/Nt3fecY+Ke/YW3r +A3F4FRkdYujJQBvqqmp4pjhEq/wapvowUFPycUafoziwpg0WtVxgoNuDpT1S +P8Tgr+WdnbRwBlZa8IpvlhCD+Q+o+vI6A416rdafZG2HO1JGwseyGSjZJSfu +GLIdXC8fXlnIYeDNdrYzMie3Q7/06SpKPgN5bzVFSStth1f/Ju/yKGGg4S9H +9742USiSH5MUrmbg1rMdf75tFgXb2CtE5zcbfKU6ZtOlGCA8mPrjZzsD0/49 +PnDyNx3e787rin/HwLAjkSJ+7+iwb6g6pfYjA3MEzqFxAB12qw3wbe3dyFtp +HNb5hgZ8YwoclWMbfLi7tQRCqfBaU/ObwbcNvr06Qbk2VIi8pt/yeYKBNRUp +H1wUqfBHyzaCbWaDb96N8OwhCkwmhzHbLDFwqYz96O29FCieiB+cWWYgR+Hp +O99pFHCAjKeh3xkoGi6ZG/iDDD2TZZfKVhk4rje1R/wOGZKx1k7nFwP3bidY +GEWQ4VBag2bXbwZyvx7rLT5OBs7p1+QzfxnYnel9RVWDDE06Xavr6wyMuKVB +/iNIhv8B8LNJ5Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3.5, 8}, {0., 0.9467080420135469}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{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.5, 8}, {0., 0.9467080420135469}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc4FvwXxhGF7PDs56HsEC/ZOgehosyIpMxUygqR8tojJFvICiVJiKi3 +UkZKWlZCRsjeFQ0/v7/Oda77vs753p/r+8cRdfQwd2FhYmJSYGZi+n/1C7Lg +YmLiQs2BidvnjGah8sWZwo8sXDgq1qHqcGAWZjjDNUrYuDAtK0rCYv8sOGdW +ux3ayoUTzCtiuw1nwaxGqClbeEMPTche0J0F2fnuS+pyXPg83munscYsDDnZ +zXnbcmFVX4JrhNQsGBu5fBit5kJitnDXMsss7DtiM80SwI2b+fpiokpmYG5H +CKuoAg86aN5WOrV3Bk6FNcSVjPDgsXDTgZKOaeAQ/ermUsyLdCbLe5T901C6 +J0dUQJ4PXwT90/y0agqGr9SpxSfyIUuC+/vhtUlg3TEcpbXAh2ctUURAdhKC +MsWs3I340eVaq8SC+QRs3nWkXfUuPzaMX0luNvoGY4VFTWHsApj5SmrVXXMc +KhzXlzc5CqBRsQZHDGEM4vBAO+OFANpuStXlefYVnvwpl3hM24Yse4jfo91G +gKWXVXo5eBve3zKX1DowBApMJ51ODG7DFcOOxiajQahmG6Ee1BDEH7ToR5Op +/XBAxvTfzixB/KO5pVD0UC+oyHc7DnwXRLFtVRF/DbtB2cxkLtRGCBdkKrYQ +qR1AffKx6mi9EG5/rSp+V/o92HJ6/6gWFMYjeRrfy1TfQKkv8+htP2GcTJDi +85F/CabPSs0YH4TRdXGrD9v6Cxi0PPH95U4Cdo1KFKu6PINQ9i36PPEELN7B +M+hNqId2zj12AQkELGv/ci+ZqR7I3L4+X68SUGP278CLiTqo5B/Jr08i4OP0 +MwfMH9fBEPnpX9cMAipLnPwi4VgHKOf/8GkhARvDf6vcqXgIf83Gd3rVE1Db +33WOyaYWArNaBDrGCWiRyXTibWc16DoWZxybICC7rIwDe0M1cEpH0McnCdhh +QP9rVlYN12t0ZdZmCPja4uuscFg1PHr/n47IMgH5K7lHXBWr4feWak93JiJO +6go8Jl6rguDzee2sJCL2tPsZJNpVQvjBgNjdB4hYepptibG9As7rqw3VGhHR +boeycjJ/BThr/1DVOEjEuBchWYLMFaAn5zu6x5SI3Q3rgWHP7gELtxfusyLi +jusuU9F77kFIm9t3W0cihuikvGqFcrhsdMTx30AitlQE3nxgVQYX9qtqvC4l +ovkLO/KTD7dg9NZiklIZEXmO9nlvqr8F5uzlU1l3N977tPPnsfxbINsiluNe +QUTtcWsbc89bMLRXgImnhohrv3KZVXlvwQGcaTJt2NAPOWd+NS0BmmqhWVc3 +EbdX2rv4jRRBbJp96Z5PRKy4l3l035si+LlC2lTSS0T2e5uH5WqL4EN1YrV/ +PxFHj0m5K10pgsh/LhNII0R8CG95JJWLYF7Opv/oLBEXn7naF8XchOdivKeG +WEn4dr5ye5FuIZTt81Zw20xCdeuYUDG5Qkh17/wxu4WEKyZ72eoIheBWnRX5 +m5OEYR6xSqIzBcCzV+omgZ+EduUqvtMZBWDjpPPlII2ESyrBpSeW82E+3+dw +/W4Sco4vPTGrz4Pepi6qjioJuTVFhq1K8uDFhPrXFjUScgwq/OORkgdpikw+ +nZokDNTLoHw6lwdaDXGJ8zokvDA65ZoolgdRg0WvJQ6RUCN1jrIukQt0Ro9O +sisJ37XOpMz8yYaIUtWtTG4bef5qbX42kA3Tu9M73E+R8KOKXF7F02yoM7Y6 +aeBOQqnn7HNTIdlgGdgRt+pFQpaMOMeXW7IhtvNd9/FLG359H35WUhb8uNJ6 +VjaFhCYmZI2vpplgT5BWzUwlYY+80JVDuzOhsSCaaXM6CZsvOop2kDIhqc4w ++UsmCfWs7BsVRjJAfrzpYVIuCfn1FH3k/DPAWff5ptVSEh69+mab6M10ePez +PrOpgYRzKb/uH+FPA/sHa0o7X5Cw+3H59YurqTDjpdGe2EhC4oVRas1QKnBO +1bHYtZCwwKn/hldlKuztf3hmsW2DN6uVN9PhVKhtqNFm9Gz43XYZuN9IgRux +lUMXZkkoR563/q6TDLKGixcH5kh4xbf815hsMjza9I/w3gUSXrbu7pwmJENP +0P0DvMskNCufHFGdTQIBj4qqolUS7nQUOtmalQQRFuURH1jJeFh2Xe7V2jVw +p5ZKy1LIuIM1QLa5JRH8c679U0ElIz2oqLakKhFC6QGaynQyjo9M5ObmJkK6 +yL6DWqJkjPVYV/jgn7jx/8Y8jSXJmCBcsArSiUCU2/7QXYmMIUyaS1YiV+GF +9nWDu0Zk/MDnxH7icxy0PwkxUTxIRv9HdsVuD+OgB04deXBow//h2puM1DiY +1VE7/Z8ZGRVrkkkepnFANOiKf2NNRm2LwaNzLVfg3CGBzhknMl7K1YqjPokF +8vFYJ/kgMn4qpvYxmqOhwPDcuYxLZPwoM83WdTsaZBTMA1iCyXjKwyWkND4a +NJjJV7tCyEj6vGn17uFosC28XX85iowrHNcaKONRkDX+kv9tEhlviXk9COCN +Aqrnlmcet8kYvM8j6aJvBNw8MvXqUykZnS6GqzfZRYCszttOvTIypnRcrJPe +GwFaAulThHtkDJDO6dXdFgF21RKEZ9VkrLkn0lhZGQ45P/XP8T3bmD88E+f9 +PQzoIeHU+11krLw/ztSQGArb5fnS1HvI+C1+W7pLQChIfs7iff6JjJcJm7dI +OIaCwu4qlo99ZIxhI/1aVQoFnYmhb8vDG/upixOTPSHgbAYP1ObIqLWXNN0l +GQK3RdcOPttCQfR/W0GuDIby9oiWfRwUlCDC8reYYKi8yK/znpOCfkyvno47 +BEN9p5TyMDcFP92IJ/gJBENbjDWZVZCCI8Yhc299L8PsQvWYoQgFq0YthA7o +XwLl5x7Bb9UoGMb0jLTAdhFqun6saWtQ0NpJNLtqNBDUpoL9yjQpqNIsM3q9 +KRA0BRPPxuyh4PHCvF3dEYGg61pxVG8vBVPMet1Z2APBhHNBtdaEgptF2JRY +tgXAaXPv+RuuFOx233umUNcfpl3XznC7UTCPaLD+QMIfzl0MHb94ioKRPUNP +v3H6g9fNpIEj7hScC4rWKv/oBxe+V7YJeFOQsCbh+MDVDyKuL92KvETBg4Vc +T9KSfCFv+LzDuRQKcjfe1nnKdB4OSPXf7UylIKuYVT3vhA8sndVf00qn4BnK +VqWL733AYFUoeet1Cn7j/lVRUOADU7y1jbdyKXjHfvmRgoEPqGivSo6UUnCb +n6ypQpI3vE6/NGvdQEGLp1Wb/mh5wfn+UY2nzyn4i1kk1F/KC+g7DkVJNFLw +/lWtdA5BL/Asp4usNFPQ1F6WcX7KE4SbnpoltVHQ88/UwPEsTzixyPygrZuC +DvFUj59/PeC7ceRFnVkKXu94pqhVcRao1mkqLXMUbPZW4KuNOQs6DsULxgsU +ZAqNNXd0Ogtxvs0njyxT8PFRD+p+wlnYcWOzpccaBX0FW8PNQtzBdC5SNmcz +FSlLZl5U+zNQei2q/yedilL+PV409VPwLis947IIFcMeD99UJ56ClaISC9bt +VFwvWAgM/uEGWN/SyitOxR3zeoZRNW7QPbylRmInFY2z1mZDVNyAVTk6wVKV +il5XPPN/ap8E+65oqDChojVV40PuKRdg3pf6m2JGxZMPFiY8TVzgZl1+XZQ5 +FVtkHso47HaByex6peOHqfj+TnTmDWYX8HOaluQ5SsWc01wWMVnOkDBvwufu +SkVO9d7R9Q4n+I+TMCR5iYpKqg8DI485womgHTeSL1NRb+TknTUDR2CZ3XV0 +PZiK55k3fY5RcIR97/d1doVSMVO1p/7nJkfoSA9sjYim4o9aM4ZQmQNMiw3c +H0mm4lumXWtyzA5AhaLQ3FIqZnyz5xYPOg6avjbl0mVU7FsOmKKaHwfbO9y9 +VXepaFRwLtdI6jhkEvwUX1ZQ8dX7vb7GnfYgPG8wOF9DxTv6/A4divbAl/9N +W/cFFZW1ecOfL9sB6ybZ1a+fqWjbq37UPM8WdqgPinn0UzG9bd6oKMgWdD1S +TFcHqMj1u49T0sYWQj7/LuEepuJ/Nb/YagRs4W/VGyuVb1QUpHiE/YqygZ/O +HtVRy1T0DVQXWAw8AtPNlR4y3DRU5R1R3xJiBUryhu53eWhoHfR52NzJCgJT +P7sp8NEw1/s6c5O+FbA7szqqbKNhfpLjF8pWK9jBbGWpS6Kh3rDHUEL6YbDV +XFWzFadhA83m64laS2jdOMlitWn4/vAZB39+C+AjdPzlAhqKp4s7q/00B6vL +br+uIg29jnRqk7+Yw1fja8upejSMn+V5B3fNgWlyeCx/Pw31L9yf5zYyBzWx +yNd1h2l4cnH2VVKcGRRntKVMnKXhl6TGdTkJUzh98liyuQcNX4wJ9MgKmIK8 +yuy1R5405PgoJhb92wRqP/JejfehoZvf43N+d03gJY9FjGIADWuE+gyT+E1g +MvzTpYBwGh7j9riTOnwQ5L3GXDmyaNjUmq9zsNgIFsHfxTubhpmuCQs/woyg +hofd+XMODQW8LPPbHIwAyqQd7ubR8FFQr+oSzQhMx92PmhXTkG7v+n5XxgHw +PrZkknmfhsFCOSuaKfuhZj+TuvRLGmrW2Vgevm0I3/vUiitaN3je7hM7FWMI +qp5e29Re0/BP0QuPklOG8DBteMagnYarkhXpBTKGUD/SWODcQUPJG2+V4ssN +4MmlGK68QRpeknucxfpEH1ruCwwKr9Kw9CXPY/41PWDXNzp4Y20jX7rKE54v +erCvJ6xe/DcNZYp53+9q1INXf5dTlNdpWECUde9P0IM2o+795mx05HQKtBsS +14N3o1lV8fx0rGm9x+Fsqws9JPEoVhk6fjk+eJbRh5AmaPvdaycd5b+Hvn7V +jGDJe9Xliywd5ayVuxLvI7xjXdWr30XH1LMdHu5RCC1zbUyeu+n4ibBFyl4Z +oabpfOBnpONKjGMKQwIgxavxbKU1HbcpSX251aQF5u6rfQwbOuZ5lOUo5msB +30l543hbOvb+5BL+FqQFcXYZMm7H6Lj14haLfmUtCDN0H6c50fFGpsTIcLEm +eNMEHWLO0TGyIPqETLIGmLY6WZ6IoKO1CEld7YoaqKxcSGmOpGP4gXaTMnc1 +oIgmdMhG0/FyRM5Wg0NqMHbhoeVqLB0vyK48muBXgyAp7sNJiXRU3aTHPXNd +FW5F1RxuzKKj9u2bCY+rVIDZgMNaqnJDV7gTa76uDGNe9PSEqg1ePF8qJUaV +oS1HqXu5mo5pY3rylNfKkLFyzLqhlo7EJZMQ53RlkC+qtLb9j44keb/D5xWV +wZbV7kjcSzr+txN3nzyjBJXPy23mB+jYVh/8O21FEQSrzrD7DtLRt4wl0qBf +EfwKpWpXh+j4y2tntXCTIqiHFwhuGqVj2MMUM2KqIjzTT3srNEXH+kWekSwV +RXj78pK+5g86Ni1mlwQHK8B0u7FiJC8DXe+LtmibyMOhpxyDnPwbvYTINQkJ +eai415xwVYCB0iuvCgz+yIFPIk5nCDHQbFuY/84yOVgzUy65Q2FgyLW5pWAu +OeDopNDeSzIwX6y+R6h7J0h8nmSnIgP7VGc2CSVJA5vSzbpIHQYKKp6mVHhJ +w9fYY6cXdBk4PTu16GMmDQUa71436zOQtniC4MsvDYzrDxK8jBj4o9WozjpZ +Cog2/wq2WDGwVe6hrs8NSdjaLSTifZaBwfnXMmveicOk/Nt3fecY+Ke/YW3r +A3F4FRkdYujJQBvqqmp4pjhEq/wapvowUFPycUafoziwpg0WtVxgoNuDpT1S +P8Tgr+WdnbRwBlZa8IpvlhCD+Q+o+vI6A416rdafZG2HO1JGwseyGSjZJSfu +GLIdXC8fXlnIYeDNdrYzMie3Q7/06SpKPgN5bzVFSStth1f/Ju/yKGGg4S9H +9742USiSH5MUrmbg1rMdf75tFgXb2CtE5zcbfKU6ZtOlGCA8mPrjZzsD0/49 +PnDyNx3e787rin/HwLAjkSJ+7+iwb6g6pfYjA3MEzqFxAB12qw3wbe3dyFtp +HNb5hgZ8YwoclWMbfLi7tQRCqfBaU/ObwbcNvr06Qbk2VIi8pt/yeYKBNRUp +H1wUqfBHyzaCbWaDb96N8OwhCkwmhzHbLDFwqYz96O29FCieiB+cWWYgR+Hp +O99pFHCAjKeh3xkoGi6ZG/iDDD2TZZfKVhk4rje1R/wOGZKx1k7nFwP3bidY +GEWQ4VBag2bXbwZyvx7rLT5OBs7p1+QzfxnYnel9RVWDDE06Xavr6wyMuKVB +/iNIhv8B8LNJ5Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3.5, 8}, {0., 0.9467080420135469}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + 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:eJwV1/c/1g8XBnBRyCbrNu8pojIqRJ9zjK+EkFVK2VJGUakkpUIihBApI5kp +M2RlRUXSoIwksm4iI4p6PL+c8w9c53q9D8XphIUrKwsLC2l1/H830cOFWVh4 +kFfUZsOQ6iRcumi5/tJmXvxrdzq1h3MSzo7GbTt4mg+5bPvNwuqYMKjVZReR +yY9LajH3L+1lQtCk8byDuwAe++vXap04AcrN7l05XIKYaSWm3uo9DqQN7Boy +6YKovFXe+dbEKFDGvhSjgRDmcLDk1rz5DmuHzw26jAih89WnRw7bDAHZOiaq +5OIGFNUjijhefoVDpqP7i8jC+HaNpilvXx+8eVZzr6dcGCPSPxGbc7tBxswq +kd1UBDs4Jz0dZ95BhIfcoy8/RJCZfEUg7nM7qC2fw6EQURxVTAu4VP0ClkQ4 +f8RvEkPPR/IUjgvPIcnaxtz4lRj6bVQbC3KqgNPrGcqKjuLYSjKhREcUgbeB +smIFGwk5vR5fVmbPhbRfzx74JpPQ4d9C7wv/dJhVuab5GSTQfnih5rP2HSDH +cAfpfZVADHT/rqx2C0LcNuzuPiuJRIZB/fnhUOBu3C8vKSmFlY7GlNssl6H1 +ttT1sGIpfPb5bQqOngGnm6lJS4bSaCHPVb1F0hsk+BxbxCakcTFkSq520Rm4 +2dJPO16RweVLTwq/KBwCySBZbVs5WcxI/kET7N4H7Ay7MosXshjjEXnALG43 +xN+L6Hq2hYyj8/OCKX8BNE6EOTIuk/Hlzur3Mn+2wa/zzbn012QsbPxet8ZA +CTLEnNseiFIwbfF5sMNWGnxZSlm5cJSC2s9kuuKUSKAuSpocLaKgmOagJtcf +AZA9qzqev5aKdxXqNg3KsQNdKOIh+z4qhhw/m3vr6Qohiv9pf02mYtrTvqlI +kTkisejuF6FJKpor+HXa6IwTO+y36X7WoOGPtsrglodfCRfz40WLN2i49XVs +X+DcR+LS+39/EnpoWGwZdsNQpJ14GvNhbZscHQ/3fCCUdjcSgbf3SNqeo+Pc +Ovq78ZOVhFPnyrR/Ix1/yMy5TD8rJNTSBVOl+Rk4We2qkbSURcSVNdiJOTBw +OTsjJc32PiG0rqz7YR4D40IpvrtFbxNvdvT9/vePgeuwbuG6aDhB3fcjsjae +B9P27ZAukp2EP6pz95gdvCg34B8TP8YEJaEyw1kefiy19sgxi2RCRVPPrVhp +AexY683xdnkCum0PugVXCOCzrr0TrEIT8MDzKYeLjSBq1zXWv60cA+m/P89s +nRNEvvrLfgnMERA6qvSqM14IsUP29J+UYRgofrPgqCWKFPswDVvqKxANq0uo +7hbFK8LcihSvRni5/bHsjL8Y1rNMMPJ6qiH08S7UEhVHzyXL1GtVpTCTlbvZ +t0gcY1qEjdaQHwOn7MLIbTMS2v22jZCbz4SXwuQTDydJeICcdHx/3D3gGtzd +FxktgbI3WsZ5euLAMoB/6KaSJIptyFkrVxgBhrdLn55vlcQrhM3Ze7euwrjS +zgMWR6WwKMp0lCfQH+JvHbml81cK3W/szK7b5As1bZcLOZOk8U7oG672UHeI +uR50r2qHDNK+DdO9zzvAhnqHA4ffy+AWT97WjHU2IPBu19IHP1n0PPxTt4Vt +L0QcOHxHdT0Z07yrVCs99WCEPfzuyf1kXL8zc3vemCYkzm1kZzwkY3jDrmMW +mirQ1iJc5TJDRsPMTSx1Rhvh+fXLrgJAQUEezh2/hWWB+/qhM6o3KTjMX3Zd +7ZEw5DVnTrzsoaDSLnPFv17ckK5v3/JpExUbGwNvp9BZQTrHfeaUHxWvXLja +eth7kdi/NM3r30jFqxWGilPa08TI9dHoBSEaXgoeu6weOky07TfzH3Ok4X6j +gLLas72Er9D2/YbFNLS66V28EtdJJBcfv6y6ho7vfq3XmS5qISTi+AVizeio +O14TeM++jpguprEfv0fHcl17pYisUsKoMtTw9Rgd2cXzSNsVHhEu+ccDk9QZ +aDISmv7KKYN411cl8SWYgYO6zHWKZXeI6ZTWY+8+MFC3/+HWw9+jibmd1W/t +jXnwnpxBQLrCJOzqpr3ffokXRXlcNxG/mWBxMbPmYR0fet7Zscibw4Rc5911 +ttP82LytRMhvIxPyae82z0YLoO2b+sKMAxNwnBT9I0RZEMuTx8tVxcch+fry +R7lXgjgmwqU3d2IUJORDasO8hbC7XMyxX/M7lPH/eZsqIorpT6RownOv4UG9 +FLPjsSj+HfcWMFnfDIOZhzgaLcTQOjl372+FOohmNTJsmBZDh9Kuq/yXn0JR +90hBe5g4Ki0WZ5/59wSeqcaGZSmQsDu09HDCWBbsYJ8Ki2gk4VbVoaDIjlT4 +u94tfJu7BJ552WzR9DMedobeLBpll8SI4aLPSp5RMHLR5V92qiTmRopUTKUG +g/+iYd0OHSmsjfqps0f2IjyJrY4Y7pZC/eWDA1mzpyD6kYBckI803miqZCnZ +7AE2xj5q4wIy6KjXpDVCc4IopyA3+zwZ3Nawm1R25gCI5hYkJZjKooLJbnWy +mDnwe4TP9TBl8ZOu7Mtlt/+gppN7p6geGa20N7B5v9KG0cJuNUbsar6zn3s9 +ZFUDpzSv4sZ+MpZGyX/JzFEA1Q6fO583UfB5g2rkBX0KzNcFaO73p2C+uI5r +foco+HjbM21fUFDLG66HB/PBQJ+hbYMYFY+Yymvs4FkLqYd/G1c7U7E5xn1+ +fOY3USYlmbn5CRX/6C530vh/EnUpuuVrWWgY9ekZm1nzCHGlR6ffcS8Nw0Z+ +z+YXfyE8Ct9cI9+n4T/vsFPqWe8JXv3thOsUDX9yLHhv0X1FuMf6cilr0TE4 +4SqUadQTTx+URTuG07FXn0ovmHxK2DTX36V10VGMQfhdF35CmGwk+O1oDPyV +ECi1PiqT2GZUp/XHl4Ft3zZsVXC5SwS9BUp1HQPX3ljOKRqIIcyPUkxkB3nQ +tWSXzGfhSai42Xgsg8qHxJ2O64EfmcCR1dwJtvwoJfLi38QJJqR8itX7rSuA +5u5Nz9TbJmBt9Nd7YoMCuIZaOkZvHIf+2n5ZnQBBLFRyf5dkMwbXzVz0cteI +4fQA0zNytB6Kmlg1ZDLE0Io6tqEs/BkE2qloFGuJI+moSmiAaAkon/XKF+kR +x18loa3D5/LBitvW4NoZEvJcYxodlHsAR2gWVnWiEvixROrtZGsyiFQqbB0r +l8A625jsupkY8PS5JaJmIYkD4RPC3so3IDef/aTRT0l0n3x/ZaIoCA46Kk57 +3ZTCywo53evFz0FA1L/bKTRpvFfndKQ37CQwJ6e1o+ulkcYmX/2R6gbtTbfW +R9nJYIh8RuymicOQQEGjQysyqN3Ypyr8zhK4l1/vF74vi09MhWas5Y3g1p/T +Gr8kyfjo8KaMkVQdENDi+vfSg4x3phenzfapg6H62W56BRkrqx6OhGzfChrT +zxrXrqVgol4SvYjGAHOdKBUDy1Uf6KakiS9JAsVsZyFvKgU983bEjFUJwbAM +c1xrmoK/kw0HzjzkBOe8M+rTu6i484b4Sz0PFkia+xi/KYyKnIp+vk1yC8Ti +h2a/5m4qFt1aybVTmyT4TkceG2XQ0Palv9DxwG+E+Hs7UR8/GgIz74hG9Cfi +3KkkhZMvaGgy78A7+rSDUKCl1v/bQMdknox/yo7NxOu4fJEFZzq6D5xpWvKs +JhQaoi/4FtKR7R9f0dPEYoIoMJk7vUzH1BM/UmZO5hIBKgmT3caMVW/1ZyZ5 +pxG+PhVL9YkMtBNpmxg1TCAcjlsWjY0zsCZmcj1DN5Lo3Uqffczgwbu202+s +t0xCf+4z74M2vJho1c/VsmYShlRTzl9O4kOBlHdTm0uZ0GwWxTf7kh+N/zKS +ObWYEH89SjA3QAArhS8rWp+fgLYTAc6J0oJIklpYsdYfh897g0LTywTRMENY +sqZgFO5xFmu6HhTCPg9GQ3zwd0irjoY6VlEs1tYOrRlqA88vRvEHk0XR7ur2 +sSMDzTDVp3LhESGGl+92OXW/qQMRJXMTjn4xVDI0yLb2KocNPiE/As6I44dx +iTWq9YUQV+V48IkoCctyW8pLf2YD869Vwr/HJJRbLD64Ni0NFqXPOHFYSWDZ +8EytrmAiPIp4TRKdk8CAhb9S109Gw46fWhkYserbsjo9qAoB3SPmc/JbpNDg +pQTPy9BAqBL2uqHeLIUWnY4COHoazqcccNh1WBqfV1SQ+ZI9oVxpbIXlrzR+ ++fyNq4XTGdqKbnkNxMtg2vs3pO5mW0gUOepxbqcsZg9sr/08Yw5cLaesxT7L +Yq/km8J5PwPI1XjNOaZBxtdHx4+YHSQgWqDQKDOMjAnqI13Fi2qQzyvx+PSH +1bwrudU3/dgE46eOF9eSKVi9e9vNQDUqHD98M3nsJAV7PPq8NX+JgZVulSel +ejXvpXnV3CQBuJxbTdHgo2LwP/m0LqF1MKiut+R4kIqlseHVQibLhNuWJyc5 +HlJxm7EK/3nuWUIp+8er8AUqXtgx0zb3Z5Swk9YSkNGjofXwDVOZygFilCUl +mec2DV282wKFmz8QBhESKX+HaHhyrKLtXfprQmDDg9C/ynRU/BQmOKbRQEhI +s9j0BdHx2dcDHgYbKwg7kwGDN210FE/NfMD37QlRN5TVpU1ioGp8xoJk1UPC +hUXXJOwYA3nkRo5f/ZBCGE38XlYpY+BSvfin3NlYQtPuuteJKh58eLm6x01i +Eg462K1tWeJFlaERPfsBJiTZ1dwkqfEj+eC94sRLTMh783TcQFkAtZ6eM80e +noCpuZQr7W0CqKMZNPtvYhx0RF/FWhwTRP8K5y23wsbAzDNmUm1SFBMjdswz +sxqgZqU7jyNKDC++YG+rKagC1hB17V/y4hhE3Hv4fbgEovl5JhuaxbHg1bqm +J02PYMvtjWI3nUhYs99HVm19JghLVTiqsUqg7cbcnQobU0CgXYO96oEE3iep +1X0YiIUBv44AB5DEpNuKHS+PhcMSuX/DYJ8kTm6tOX/27hWgvlClO/hLYZbk +x/sLeuchTOBx7A8BaXTwWycYYu0DH/o0zpoUSOPgTP5g4t6joJy1/n3mHhns ++Hf/4WtXe/jgY76vd1QGN91pjeUbtoLIo8Hy8zdksfYG6Up+hDHwbRobjRMi +48kXswWGQbqwnPqyLcWRjJyaKmMtcRowfdvsx4PHZOThDqfOuSjDFTv3upLf +ZJxnv/g0RlkOOIdDjRX3UPDMhnHDhABpiJ8w2pAaT8FiTr6qXwUboOWnoQfb +dwrufFoaWsvCBaznxv+5bKMiT0CRl4/uGuhtl9V/c4mKwyZ1p07o/SKyRw7p +prZT8URcGyPg1RThH6h18YQUDZP/u+trFzBE/BSxMdzsScNSdrL136XPxHz9 +UbSrpuFRj8Q+udS3hJNHMOUOFx1VKGdP1l15QZwS7o9ptKXjEe2J6FquWiJC +6zNOZdExkrrXPepOCaG/7fg98iwdiRtP/kY25hHTUyxlFToMpN7+EMTvlE6k +b9Ti2hfFwJH07Paus4mE/DW+yCMDDDQS5GB8/x1F3F0XoSmYzYvHTHz6VX4y +ofbFI7a273zYYOxrIn2XCYnmiR9PzzPQ7ej0Hem0CMI8t4utW4gHdaN6t6Qp +T8KWOI4qpg4vemzL/mq/bhIKeEn7vUL5UJGS7TNbyYT3/xWXQjk/bmjq/eCm +zwSeZ15Xg31X85vb0c8VNgF/k3ylKcKC2MF1x63Jdhz8nzTYO+Sv/mMb7Efd +2kZh4FzrgoW5EC7mJ5T05X6H+LhDC2ZLIpiSpuO+1r4dOiYdPWRviWLdlcgv +SqYvYG5Janv6NjG80Zdm3kh/Dt1oaZrzXgxH1rPsZn4vB/3qD/xWHuK4PbrZ ++JhcEQStaa3fxkvCt889rakXcsDgAqdMRSYJj1sfairjSYeFrOW26T0SeHVw +adkpMxHc+D3b8sclUFFNy6mjIxqO5G88w3NFEkUvFGiImIWCnKAVXzpdCgOE +f3pb6F4C3Q/6YQNVUrj976DeK7cz4H074KKkpTQ6sbf+KjvgBcekGc4Rc9LY +EnEp/sAlZ2B+Js2kRsggETybJOB3EA4aN7xzV1717ANr+YvO++D6wsi60g5Z +fPyOupPJthtSPZROdqqt9uveD+/KFACGQNpm+BoZBd29flme2wadetP5rzvI +WPHy0ft3iYrQ3OSGRZIUvCAS1tPymAoP8m6/VvWkoH7ycsmaaHEwyB9XWle+ +2sdln0fCrgtAh8BisO96Ku4KZuViJK8DtswRsxJrKrY2RRXf+bdMEE/9beZS +qej/34+tdZGzhNPmZus3M1SMMGSvS7s7RuypUVdY3kVDydNCx3q3fCUeZrNl +sUbTUEHRrd3o0EfCSfmmifEADd1aT9OabduIoU7t5mFFOh6f33ZNu6aBMPn0 +QEPyIh01x69rcL2sIOz5f0gyWukY+nxkXNG0kPBv6NXaLMzAtPU70moPZBEB +PVesOlwYWMghyKd4+x6x5Vz3ceYTBloa0bMXrsQRBR+1AhNyeFDebX6LsPQk +5O7J3ndwmBf/C2gD/mEmOKvv9GAn82Pgtn2yQqFMKHq5h5iUE0Djdx7LLjMT +4LwxYC6nQQA3+J6a0vo3Dr46z/f22AviQbTY4Z4+BkX+OfWLg6KoXHJE79X6 +RmgkNbouXxPDnMAG+3m9amhM2knckRVHEQy0NTEvhbpDh3iTq8Tx8c2pIIpP +AUh+jrwkaEtCp8XxnLWBmXAi0XOU+YuERslRw097UoD3QJ1PZpIEFsXuzQ+2 +i4OkpRPKv7ZLotkRywuPuSOA3NM6/OidJDqy7eOJErkK7P47iE8npTA4JzJM +9ct5EHgbEpPIIY2TRyZOjtf4wMsPdnGbHkhjTYDCWPnoUfia8J+mCsrgEw9S +0LKwA8zd6X5/t18G36RXdp0/ZQ1mKV+jhy/L4t6Q3ac7/zOBvTq05994yWgp +JTseP68LP99t2h5qR8YDOsk2f7U1Qb/p2e+hXDK+37c/4UObMmTHEDU8C2T0 +EYi7PP9MDoZ2XOuW1qfgA+uJDAkDGejQtNQfu0XBmmMKtiFKwlBpd1ZxZICC +Y0MvWKdLuMCin+5yfysV5b8lD8sUrYFlrcYkygUq9nrlfRHq+kVcPiknf7OV +igtNrQpv7/8gnrAJcRSL0ZDarZ5EZRkmBsosHLmPruZRxtXctKyHKDnebmxR +TkP6YnncnHgnEci/2DG8jo4f55kli+IthMF7v7d5VnT8OibUsmGwlqj5FUhT +ylj1gfumpH6ZUmL3r3On/Kbo6CcsGV58Op/IbdsukavNwDoHc7OKgXSikjVA +KPEGA8V1hxI5Re4QPILMP+I9DNSd/1FvfDKaYE51hWTE8qJhzwXxPQtMuJ6u +8LXiHR++TnALeJLOhIC+M/pbpxn4u+HrQo33TaKkodK98jcDVS59zRH/FE7c +OKrC47meB4O0qA8aVCbh4/VHg6XqvPhOpU2JwjEJQn8+Nn27yIf2Kr67GquZ +0IP/rf9ewI99LpVv/xgyweC9nfYpLwFU2199uzp6AhKeePm78guiT8aJSiuX +cXj5dcgYsgTx7auXS+G9o8BSaPVhj7EQztg84T5U/R0EWZ6/TZgTwSbvFJGM +u+3Aembyw5oIUVT5UxCaGfwCFkKFYu5uFcNR0cXCSrPnoPnKyuz3GzEUdzUf +8KNXgJ3zyn1wE8fPly0tCdsiWMxYXvDjJGED+6toq7ocOK3p9PV2Kgn/rFg1 ++eqlw5xn3dVhfQm8JxnfUzSdCA0dWhsXhyUwd/nUz6o1t8A3TPrIzwBJnL3W +7vz+Tigkjlsn98tK4eeVynHVtEsQUvqEc3u5FIb3X3q4MesMuN/ii+AylcZx +iqbM/govqBdpEOn8IY0zFd8FnzxzhuWpPtWgUBk0DYjxc35zEHa6zXA4Ksqi +PxY3HE3ZBy94qf1sr2XxC2voWIHxbpAM7qXtViHjHufqt2djASL3vzsUfIWM +qYs6nRYV22DoSE/euXYyRp7esHN4ShFKpoZCFEkUHDnqm6Hwgwr1nSTXrmOr +9/DLxrujTxyIr2t4z5ZS0GXvv6vuzwVgUU+knJ+Dii1Ss/pxA+sgrkfzwmFL +KppMSXWuO7RC5P6xbz1+j4oYckuy9O0ssXKiUMLnBxWVPOzzzk+NEXV8Zds9 +tGh4huJ3wOP4VyJ4uSz/4k0a/vSI8XLO+kicvGLwYKaPho8KTobOlrUR7aph +rrYKdKyPsDMB1kbCVf2XQqU/HcMYrQbzUpXEwEk/9o5mOop4De4ov1ZIfFT9 +5ZUpyEDuq9F6D7KzCM49Gd2nnBgYMTAT+XLhHpFKvEjbU8DAoY0DD6RexxGj +sbdDFFN58I2iO5urzCRYEKbnaD28yLL1yrf9I0xooS9+ChDlx6tzFbvLbzBh +R4uQO1IFUPFhOwvj1wTcQ49HCTUC+DHB688jzgng3l+VK3tIEHmlG/JyC8Zg +aM32zT19opi6O5G6W6sRXmRV1C9cEkNZ1t7FS1HVIMfQhnEJcXykmNmxOaQU +utdcTQl5Ko6HN3ZnU1sKICagvtjSioQ8kDprVJEJd22a81p/kpC5h25wTf0e +8Ehf25h0WwLXXuo/6ZUcBwuVcENXRRLjPMsP/TocAdvKa9tj2yUx7L3rkx2W +V+GcpcYrEU8pJHHqZWza4g+WhT8FJ1ml0e9606mQOR9ofDuVTrovjf1Hfhg2 +qLvDzuhvE35aMnhpKZdtzMAB1hbcFb34SQbTQz75ilRZg3I5f1PfBVmc2ufs +qfLABJgmuDmcm4w/dmp0v1bWA8/Jz6N/bMn47+PDPw0xmjDV68MSnE3GYtPX +UcCmApWPFKrLZ8m4PYfsz2TdCJ32rLIJOhRU3TbysDdfBqYcunpvRlFw08Zz +w2c9haHoViS3bT8F/046m34S4AZ/Qd147c1UrKD+XWCdWAMRvqLNL89R8XJG +6oIOdZFglnAns72gouvNlGY+9mnCxGDllZUIDecrTYZ19IYJG463Xv4uNBQk +OFIdRHuJ2JqgfW2lNKwVazsQbdNJRDgWykew0fGVNpvYBdcWQnlbw0lZi9X/ +a8EvbX5jHdFl/Vb4VSod47ayEi1OpUTLAZYjFCYdz0Vk/3Frzyc4dpmbUHcy +0CzOe86SkkEYnLwbr3WdgRc5M9ZLuN4hArs+q/p1r/brrpDZidxoIu7bxUee +Ybx4yvtA2+5FJkxGjZgpv+RD+Sfm3cOZTJjKcLkQMclAl1N9n8q6bhJyN3Lu +iy0ysApf8x7XjiB0V16pHF5Z9cjARDT9bDghb3BEoGwtD1ou/ZawUp2ETVdZ +/JJUeTFe6THxb7WfG2e2r8ic58MZrs875WuZcITgU9PM5ceL9UE9YMyEIYf3 +4uPHBXDdL46ViLgJcNGayObgFcRtg48tYo6t+sN//nnBA0GsEb3/QGhoFAT2 +Juk3GQqh/olAkejm79BeeqpW66cI2pY0GN961g5JGmrcp8JEUc76gk1I2gtY +NL1ZR9oshs8EY6g2rs/hePSHN+ltYmgSNmHsqVcB7jsE3UudxTGqXTe2y7cI +1M6ICoqzk9DLjnvX5m85cEOcX2/tPRKq3tkjxmWfDqfN0vvtdSXwTqBmbp7o +HfAtpL1P+SaB82ujxl0lbsHy2UQLV39J/LnGiXajNhQsuj5+DZCWQrmV6hvc +by9Bdqab4ZdSKaSO3Pa+++IMuEbt33DFWBobDm2plxz3gilBoR+nJ6XxYLNd +KPmzM6xdqrWcuSaDB5CpGLB8EHJPcVL75GXRlLP19IPKfeBGAqO8VlmUJ3HC +txO7oftWycU1ymTsHa+539cC4OxccMQ6iIxclBR22c/bwJtpnmfaRsar8aTv ++ySUQImNvmlUjIKDGE/fxE8D8++HCnPcV33M1VS1YR0JKi/wrmwtoWA3p14n +uV8AIvpo+/rXUbHceMeO+2zs0LswKKBqQUXtmC+RG8NWiIGUTla5FCrW04rU +g2dnCSPBjSs6U1S8kp7r/EJsnPizY/4ZdScNXQZZ/1y6/pU4/TB6q1bEql/i +WuM62j4S5xRpHY29NHzT0PZ5cbiNqHfaun2D/KqPzbabJtIbCV+31PSw83T8 +3Tkb2m5QSaRRKi9kNtHRKuP3YyK1kLh2fG2oowADC8zDPy13ZBHtl4qT/nNk +YKfIs+988veJT2nErsV8BpbR09UFZ+KIYN/6G2eSeVA7tHYdj+wkPNRI4+b8 +yIth7rp+50aZ4C+5X7BckB8l9pq1B0cwYdHg1/KYrACaK9GCVpYmQKttMIyv +SgCTwtqE7XgnoPur5qfnBwSx7+5K+vOSMbjY5O9k0iOKwmK3D8tbNUKL97aZ +UxfFMDg25GRQaTXYjFfVxoiLY865bVeM0kph6H2863KJOPYeStuyMFsAbXt7 +2+b2kZD95xlWua5MKN5+ildjetXLpq8+vna9B+H/XK8Ix0qgXeQ3cblncfAg +eaP66BZJVLvcXOgTGgE1D3c2sL+WxBcBbp4WvldBBSsES45JoaO77P6/1v5w +Oi17XwKLNLKwdeRF8fvC8zfqm27dlcanMq4e2fbu4Bah2kTSlEGhgxIu4g4O +wFMeqD75UQbXkHhFagasIbVJ7ovteVms4K68++GdCVR1mn47wkXGhqA1Z/JN +9WDT7yLdsgNkpAi/V9hQowkNoyZs1llkXFj2qVWTUQF9rftVkT9X+9xSI6hS +biMYndapt0QKXvyiVVI7IAMBp0kKDpEUvGWYY1IVIQxblJL+CPZRcGEonEMf +uIEvz3wrtxIVX9Xrm1dwsML7m7WH7p+lorOauYSq4SJB3R/4vqaJijsH9RSP +UqaJpBHfAoYwDQ9ah9VQXIeJmK0CcyrONHQ80WH03aCXuOJ+6P2NEhqW8LFk +5Z/pJOK4Iq3sWenYpcugiUW0EAyXY/jJnI5rYh7qFenVEUPX/G8m3adjnwHW +8QWXEmHr9d8tjNMxeP72xdw/+UTZ6cOu/RoM3BFz4M+sTgbBk5V/gDeUgfFG +Kc5Xbt4hnu60aKd3MXBz6BudGy3RxGhfB+67xouxPs/Y9JeYkBpiEOrRxIec +MaURF7KYsJGjV1SLycAGO+MPNTyRhP0kWat5gYH7wAYTvCOICw56bdzLDNS8 +r6wzmxVOcCZZxRf8ZeC7zaIs+QbhxP8AMZgtAg== + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1mOgFnYYxuFzsm172ebC0rJtLSzb1jKXa9m2bS7Xsm3XrrN9uHr/v7vn +9KUTkjZqW+n3wICAgLjBAgKCPnf5oSkRWK/rk40nehy5ualH4ksCdutmRGSD +bkAMP7FVNyQs2W1PfY4nD7f0HwRnj25OJDbqhsT09dt0I8KRw/bM5wTycluP +IgR7dQsis0k3IifP9UTycUePJiT79G9EYbNuTC5e6Enk564eQyj265ZEZYtu +Qm5e6skU4J4eS2gO6FZEY6tuSh7CcNDWmuhs083IS1jCEZ4IRCQSh9y1IQbb +dXPyEZnDtqDfuJjs0C3Izys9hYLc1+OIwhHdlljs1L9RgNd6KoV4oMcTlaO6 +HbHZpVtSkDf6T37moZ5ANI7p9sRht25FId7qaRTmkZ5IdI7rDsRlj27Nz7zT +0ynCYz0p6PuJE7oj8dir21CY93oGRXmiJwd9/3BSdyI++/TvFOGDnkkxnuop +xOKU7kwC9uu2FOWjnsUvPNNTic1p3YWEHNDtKMYnPZviPNd/EoczuiuJOKjb +8wuf9RxK8EJPC/qzyFndjcQc0h0ozhc9l5K81NOJxzndnSQc1h0pwVc9j1K8 +0jOIz9+6B0k5ojtRkm/6L0rzWs8kAed1T5JxVHemFN/1fH7ljZ5FQi7oXiTn +mO5CaX7oBZThrZ5NIi7q3qTguO7KrwT9JbPQVpZ3cg6JuaT7kJITuhtlCHS/ +yFaO93ouSbis+5KKk7o7ZYN+efeLbeX5oOeRlCu6Hz9xSvegHMHdL7FV4KP+ +i2Rc1f1JzWndk/KEcL/UVpFPej7JuaYHkIYzuhcVCOl+ma0Sn/UCUnBdDyQt +Z3VvKhLK/XJbZb7ohaTkHz2IdJzTfahEaPcrbFX4qheRiht6MOn5W/elMmHc +r7RV5ZtezE/c1EPIwHndjyqEdb/KVo3vegmpuaWHkpELuj9VCed+ta06P/RS +0nBbDyMTF/UAqhHe/RpbjcCA//7BWuYjLXe8h5OZS3og1Yngfq2tJoEst6Xj +rvcIsnBZD6IGEd2vs9UiGCts6bnnPZKsXNGDqUkk9+tttQnOSlsG7nv/QTau +6iHUIrL7DbY6hGCVLSMPvEeRnWt6KLWJ4n6jrS4hWW3LxEPv0eTguh5GHaK6 +32SrRyjW2DLzyHsMOflHD6cu0dxvttUnNGttWXjsPZZc3NAjqEd091tsDQjD +Olss23bvxoQntt7hswlxvHcG/v//i6xu/wVs/QNX + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrsJgFAURMHrJ7AFQ1vRwMTIEgyEB8IDtX/UQLAFYZKFw0635Hlty4ij +jogpHedaxLeqp5p75rEf8pb39Pwp3sFxHMdxHMdxHMdxHMdxHMdxHMdxHMdx +HMdxHMdxHMdxHMdxHMdxHMdxHMdxHMdxHMdxHMdxHMdxHMdxHMdxHMdxHMdx +HMdxHMf/wS9Wc6cO + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwV1/c/1g8XBnBRyCbrNu8pojIqRJ9zjK+EkFVK2VJGUakkpUIihBApI5kp +M2RlRUXSoIwksm4iI4p6PL+c8w9c53q9D8XphIUrKwsLC2l1/H830cOFWVh4 +kFfUZsOQ6iRcumi5/tJmXvxrdzq1h3MSzo7GbTt4mg+5bPvNwuqYMKjVZReR +yY9LajH3L+1lQtCk8byDuwAe++vXap04AcrN7l05XIKYaSWm3uo9DqQN7Boy +6YKovFXe+dbEKFDGvhSjgRDmcLDk1rz5DmuHzw26jAih89WnRw7bDAHZOiaq +5OIGFNUjijhefoVDpqP7i8jC+HaNpilvXx+8eVZzr6dcGCPSPxGbc7tBxswq +kd1UBDs4Jz0dZ95BhIfcoy8/RJCZfEUg7nM7qC2fw6EQURxVTAu4VP0ClkQ4 +f8RvEkPPR/IUjgvPIcnaxtz4lRj6bVQbC3KqgNPrGcqKjuLYSjKhREcUgbeB +smIFGwk5vR5fVmbPhbRfzx74JpPQ4d9C7wv/dJhVuab5GSTQfnih5rP2HSDH +cAfpfZVADHT/rqx2C0LcNuzuPiuJRIZB/fnhUOBu3C8vKSmFlY7GlNssl6H1 +ttT1sGIpfPb5bQqOngGnm6lJS4bSaCHPVb1F0hsk+BxbxCakcTFkSq520Rm4 +2dJPO16RweVLTwq/KBwCySBZbVs5WcxI/kET7N4H7Ay7MosXshjjEXnALG43 +xN+L6Hq2hYyj8/OCKX8BNE6EOTIuk/Hlzur3Mn+2wa/zzbn012QsbPxet8ZA +CTLEnNseiFIwbfF5sMNWGnxZSlm5cJSC2s9kuuKUSKAuSpocLaKgmOagJtcf +AZA9qzqev5aKdxXqNg3KsQNdKOIh+z4qhhw/m3vr6Qohiv9pf02mYtrTvqlI +kTkisejuF6FJKpor+HXa6IwTO+y36X7WoOGPtsrglodfCRfz40WLN2i49XVs +X+DcR+LS+39/EnpoWGwZdsNQpJ14GvNhbZscHQ/3fCCUdjcSgbf3SNqeo+Pc +Ovq78ZOVhFPnyrR/Ix1/yMy5TD8rJNTSBVOl+Rk4We2qkbSURcSVNdiJOTBw +OTsjJc32PiG0rqz7YR4D40IpvrtFbxNvdvT9/vePgeuwbuG6aDhB3fcjsjae +B9P27ZAukp2EP6pz95gdvCg34B8TP8YEJaEyw1kefiy19sgxi2RCRVPPrVhp +AexY683xdnkCum0PugVXCOCzrr0TrEIT8MDzKYeLjSBq1zXWv60cA+m/P89s +nRNEvvrLfgnMERA6qvSqM14IsUP29J+UYRgofrPgqCWKFPswDVvqKxANq0uo +7hbFK8LcihSvRni5/bHsjL8Y1rNMMPJ6qiH08S7UEhVHzyXL1GtVpTCTlbvZ +t0gcY1qEjdaQHwOn7MLIbTMS2v22jZCbz4SXwuQTDydJeICcdHx/3D3gGtzd +FxktgbI3WsZ5euLAMoB/6KaSJIptyFkrVxgBhrdLn55vlcQrhM3Ze7euwrjS +zgMWR6WwKMp0lCfQH+JvHbml81cK3W/szK7b5As1bZcLOZOk8U7oG672UHeI +uR50r2qHDNK+DdO9zzvAhnqHA4ffy+AWT97WjHU2IPBu19IHP1n0PPxTt4Vt +L0QcOHxHdT0Z07yrVCs99WCEPfzuyf1kXL8zc3vemCYkzm1kZzwkY3jDrmMW +mirQ1iJc5TJDRsPMTSx1Rhvh+fXLrgJAQUEezh2/hWWB+/qhM6o3KTjMX3Zd +7ZEw5DVnTrzsoaDSLnPFv17ckK5v3/JpExUbGwNvp9BZQTrHfeaUHxWvXLja +eth7kdi/NM3r30jFqxWGilPa08TI9dHoBSEaXgoeu6weOky07TfzH3Ok4X6j +gLLas72Er9D2/YbFNLS66V28EtdJJBcfv6y6ho7vfq3XmS5qISTi+AVizeio +O14TeM++jpguprEfv0fHcl17pYisUsKoMtTw9Rgd2cXzSNsVHhEu+ccDk9QZ +aDISmv7KKYN411cl8SWYgYO6zHWKZXeI6ZTWY+8+MFC3/+HWw9+jibmd1W/t +jXnwnpxBQLrCJOzqpr3ffokXRXlcNxG/mWBxMbPmYR0fet7Zscibw4Rc5911 +ttP82LytRMhvIxPyae82z0YLoO2b+sKMAxNwnBT9I0RZEMuTx8tVxcch+fry +R7lXgjgmwqU3d2IUJORDasO8hbC7XMyxX/M7lPH/eZsqIorpT6RownOv4UG9 +FLPjsSj+HfcWMFnfDIOZhzgaLcTQOjl372+FOohmNTJsmBZDh9Kuq/yXn0JR +90hBe5g4Ki0WZ5/59wSeqcaGZSmQsDu09HDCWBbsYJ8Ki2gk4VbVoaDIjlT4 +u94tfJu7BJ552WzR9DMedobeLBpll8SI4aLPSp5RMHLR5V92qiTmRopUTKUG +g/+iYd0OHSmsjfqps0f2IjyJrY4Y7pZC/eWDA1mzpyD6kYBckI803miqZCnZ +7AE2xj5q4wIy6KjXpDVCc4IopyA3+zwZ3Nawm1R25gCI5hYkJZjKooLJbnWy +mDnwe4TP9TBl8ZOu7Mtlt/+gppN7p6geGa20N7B5v9KG0cJuNUbsar6zn3s9 +ZFUDpzSv4sZ+MpZGyX/JzFEA1Q6fO583UfB5g2rkBX0KzNcFaO73p2C+uI5r +foco+HjbM21fUFDLG66HB/PBQJ+hbYMYFY+Yymvs4FkLqYd/G1c7U7E5xn1+ +fOY3USYlmbn5CRX/6C530vh/EnUpuuVrWWgY9ekZm1nzCHGlR6ffcS8Nw0Z+ +z+YXfyE8Ct9cI9+n4T/vsFPqWe8JXv3thOsUDX9yLHhv0X1FuMf6cilr0TE4 +4SqUadQTTx+URTuG07FXn0ovmHxK2DTX36V10VGMQfhdF35CmGwk+O1oDPyV +ECi1PiqT2GZUp/XHl4Ft3zZsVXC5SwS9BUp1HQPX3ljOKRqIIcyPUkxkB3nQ +tWSXzGfhSai42Xgsg8qHxJ2O64EfmcCR1dwJtvwoJfLi38QJJqR8itX7rSuA +5u5Nz9TbJmBt9Nd7YoMCuIZaOkZvHIf+2n5ZnQBBLFRyf5dkMwbXzVz0cteI +4fQA0zNytB6Kmlg1ZDLE0Io6tqEs/BkE2qloFGuJI+moSmiAaAkon/XKF+kR +x18loa3D5/LBitvW4NoZEvJcYxodlHsAR2gWVnWiEvixROrtZGsyiFQqbB0r +l8A625jsupkY8PS5JaJmIYkD4RPC3so3IDef/aTRT0l0n3x/ZaIoCA46Kk57 +3ZTCywo53evFz0FA1L/bKTRpvFfndKQ37CQwJ6e1o+ulkcYmX/2R6gbtTbfW +R9nJYIh8RuymicOQQEGjQysyqN3Ypyr8zhK4l1/vF74vi09MhWas5Y3g1p/T +Gr8kyfjo8KaMkVQdENDi+vfSg4x3phenzfapg6H62W56BRkrqx6OhGzfChrT +zxrXrqVgol4SvYjGAHOdKBUDy1Uf6KakiS9JAsVsZyFvKgU983bEjFUJwbAM +c1xrmoK/kw0HzjzkBOe8M+rTu6i484b4Sz0PFkia+xi/KYyKnIp+vk1yC8Ti +h2a/5m4qFt1aybVTmyT4TkceG2XQ0Palv9DxwG+E+Hs7UR8/GgIz74hG9Cfi +3KkkhZMvaGgy78A7+rSDUKCl1v/bQMdknox/yo7NxOu4fJEFZzq6D5xpWvKs +JhQaoi/4FtKR7R9f0dPEYoIoMJk7vUzH1BM/UmZO5hIBKgmT3caMVW/1ZyZ5 +pxG+PhVL9YkMtBNpmxg1TCAcjlsWjY0zsCZmcj1DN5Lo3Uqffczgwbu202+s +t0xCf+4z74M2vJho1c/VsmYShlRTzl9O4kOBlHdTm0uZ0GwWxTf7kh+N/zKS +ObWYEH89SjA3QAArhS8rWp+fgLYTAc6J0oJIklpYsdYfh897g0LTywTRMENY +sqZgFO5xFmu6HhTCPg9GQ3zwd0irjoY6VlEs1tYOrRlqA88vRvEHk0XR7ur2 +sSMDzTDVp3LhESGGl+92OXW/qQMRJXMTjn4xVDI0yLb2KocNPiE/As6I44dx +iTWq9YUQV+V48IkoCctyW8pLf2YD869Vwr/HJJRbLD64Ni0NFqXPOHFYSWDZ +8EytrmAiPIp4TRKdk8CAhb9S109Gw46fWhkYserbsjo9qAoB3SPmc/JbpNDg +pQTPy9BAqBL2uqHeLIUWnY4COHoazqcccNh1WBqfV1SQ+ZI9oVxpbIXlrzR+ ++fyNq4XTGdqKbnkNxMtg2vs3pO5mW0gUOepxbqcsZg9sr/08Yw5cLaesxT7L +Yq/km8J5PwPI1XjNOaZBxtdHx4+YHSQgWqDQKDOMjAnqI13Fi2qQzyvx+PSH +1bwrudU3/dgE46eOF9eSKVi9e9vNQDUqHD98M3nsJAV7PPq8NX+JgZVulSel +ejXvpXnV3CQBuJxbTdHgo2LwP/m0LqF1MKiut+R4kIqlseHVQibLhNuWJyc5 +HlJxm7EK/3nuWUIp+8er8AUqXtgx0zb3Z5Swk9YSkNGjofXwDVOZygFilCUl +mec2DV282wKFmz8QBhESKX+HaHhyrKLtXfprQmDDg9C/ynRU/BQmOKbRQEhI +s9j0BdHx2dcDHgYbKwg7kwGDN210FE/NfMD37QlRN5TVpU1ioGp8xoJk1UPC +hUXXJOwYA3nkRo5f/ZBCGE38XlYpY+BSvfin3NlYQtPuuteJKh58eLm6x01i +Eg462K1tWeJFlaERPfsBJiTZ1dwkqfEj+eC94sRLTMh783TcQFkAtZ6eM80e +noCpuZQr7W0CqKMZNPtvYhx0RF/FWhwTRP8K5y23wsbAzDNmUm1SFBMjdswz +sxqgZqU7jyNKDC++YG+rKagC1hB17V/y4hhE3Hv4fbgEovl5JhuaxbHg1bqm +J02PYMvtjWI3nUhYs99HVm19JghLVTiqsUqg7cbcnQobU0CgXYO96oEE3iep +1X0YiIUBv44AB5DEpNuKHS+PhcMSuX/DYJ8kTm6tOX/27hWgvlClO/hLYZbk +x/sLeuchTOBx7A8BaXTwWycYYu0DH/o0zpoUSOPgTP5g4t6joJy1/n3mHhns ++Hf/4WtXe/jgY76vd1QGN91pjeUbtoLIo8Hy8zdksfYG6Up+hDHwbRobjRMi +48kXswWGQbqwnPqyLcWRjJyaKmMtcRowfdvsx4PHZOThDqfOuSjDFTv3upLf +ZJxnv/g0RlkOOIdDjRX3UPDMhnHDhABpiJ8w2pAaT8FiTr6qXwUboOWnoQfb +dwrufFoaWsvCBaznxv+5bKMiT0CRl4/uGuhtl9V/c4mKwyZ1p07o/SKyRw7p +prZT8URcGyPg1RThH6h18YQUDZP/u+trFzBE/BSxMdzsScNSdrL136XPxHz9 +UbSrpuFRj8Q+udS3hJNHMOUOFx1VKGdP1l15QZwS7o9ptKXjEe2J6FquWiJC +6zNOZdExkrrXPepOCaG/7fg98iwdiRtP/kY25hHTUyxlFToMpN7+EMTvlE6k +b9Ti2hfFwJH07Paus4mE/DW+yCMDDDQS5GB8/x1F3F0XoSmYzYvHTHz6VX4y +ofbFI7a273zYYOxrIn2XCYnmiR9PzzPQ7ej0Hem0CMI8t4utW4gHdaN6t6Qp +T8KWOI4qpg4vemzL/mq/bhIKeEn7vUL5UJGS7TNbyYT3/xWXQjk/bmjq/eCm +zwSeZ15Xg31X85vb0c8VNgF/k3ylKcKC2MF1x63Jdhz8nzTYO+Sv/mMb7Efd +2kZh4FzrgoW5EC7mJ5T05X6H+LhDC2ZLIpiSpuO+1r4dOiYdPWRviWLdlcgv +SqYvYG5Janv6NjG80Zdm3kh/Dt1oaZrzXgxH1rPsZn4vB/3qD/xWHuK4PbrZ ++JhcEQStaa3fxkvCt889rakXcsDgAqdMRSYJj1sfairjSYeFrOW26T0SeHVw +adkpMxHc+D3b8sclUFFNy6mjIxqO5G88w3NFEkUvFGiImIWCnKAVXzpdCgOE +f3pb6F4C3Q/6YQNVUrj976DeK7cz4H074KKkpTQ6sbf+KjvgBcekGc4Rc9LY +EnEp/sAlZ2B+Js2kRsggETybJOB3EA4aN7xzV1717ANr+YvO++D6wsi60g5Z +fPyOupPJthtSPZROdqqt9uveD+/KFACGQNpm+BoZBd29flme2wadetP5rzvI +WPHy0ft3iYrQ3OSGRZIUvCAS1tPymAoP8m6/VvWkoH7ycsmaaHEwyB9XWle+ +2sdln0fCrgtAh8BisO96Ku4KZuViJK8DtswRsxJrKrY2RRXf+bdMEE/9beZS +qej/34+tdZGzhNPmZus3M1SMMGSvS7s7RuypUVdY3kVDydNCx3q3fCUeZrNl +sUbTUEHRrd3o0EfCSfmmifEADd1aT9OabduIoU7t5mFFOh6f33ZNu6aBMPn0 +QEPyIh01x69rcL2sIOz5f0gyWukY+nxkXNG0kPBv6NXaLMzAtPU70moPZBEB +PVesOlwYWMghyKd4+x6x5Vz3ceYTBloa0bMXrsQRBR+1AhNyeFDebX6LsPQk +5O7J3ndwmBf/C2gD/mEmOKvv9GAn82Pgtn2yQqFMKHq5h5iUE0Djdx7LLjMT +4LwxYC6nQQA3+J6a0vo3Dr46z/f22AviQbTY4Z4+BkX+OfWLg6KoXHJE79X6 +RmgkNbouXxPDnMAG+3m9amhM2knckRVHEQy0NTEvhbpDh3iTq8Tx8c2pIIpP +AUh+jrwkaEtCp8XxnLWBmXAi0XOU+YuERslRw097UoD3QJ1PZpIEFsXuzQ+2 +i4OkpRPKv7ZLotkRywuPuSOA3NM6/OidJDqy7eOJErkK7P47iE8npTA4JzJM +9ct5EHgbEpPIIY2TRyZOjtf4wMsPdnGbHkhjTYDCWPnoUfia8J+mCsrgEw9S +0LKwA8zd6X5/t18G36RXdp0/ZQ1mKV+jhy/L4t6Q3ac7/zOBvTq05994yWgp +JTseP68LP99t2h5qR8YDOsk2f7U1Qb/p2e+hXDK+37c/4UObMmTHEDU8C2T0 +EYi7PP9MDoZ2XOuW1qfgA+uJDAkDGejQtNQfu0XBmmMKtiFKwlBpd1ZxZICC +Y0MvWKdLuMCin+5yfysV5b8lD8sUrYFlrcYkygUq9nrlfRHq+kVcPiknf7OV +igtNrQpv7/8gnrAJcRSL0ZDarZ5EZRkmBsosHLmPruZRxtXctKyHKDnebmxR +TkP6YnncnHgnEci/2DG8jo4f55kli+IthMF7v7d5VnT8OibUsmGwlqj5FUhT +ylj1gfumpH6ZUmL3r3On/Kbo6CcsGV58Op/IbdsukavNwDoHc7OKgXSikjVA +KPEGA8V1hxI5Re4QPILMP+I9DNSd/1FvfDKaYE51hWTE8qJhzwXxPQtMuJ6u +8LXiHR++TnALeJLOhIC+M/pbpxn4u+HrQo33TaKkodK98jcDVS59zRH/FE7c +OKrC47meB4O0qA8aVCbh4/VHg6XqvPhOpU2JwjEJQn8+Nn27yIf2Kr67GquZ +0IP/rf9ewI99LpVv/xgyweC9nfYpLwFU2199uzp6AhKeePm78guiT8aJSiuX +cXj5dcgYsgTx7auXS+G9o8BSaPVhj7EQztg84T5U/R0EWZ6/TZgTwSbvFJGM +u+3Aembyw5oIUVT5UxCaGfwCFkKFYu5uFcNR0cXCSrPnoPnKyuz3GzEUdzUf +8KNXgJ3zyn1wE8fPly0tCdsiWMxYXvDjJGED+6toq7ocOK3p9PV2Kgn/rFg1 ++eqlw5xn3dVhfQm8JxnfUzSdCA0dWhsXhyUwd/nUz6o1t8A3TPrIzwBJnL3W +7vz+Tigkjlsn98tK4eeVynHVtEsQUvqEc3u5FIb3X3q4MesMuN/ii+AylcZx +iqbM/govqBdpEOn8IY0zFd8FnzxzhuWpPtWgUBk0DYjxc35zEHa6zXA4Ksqi +PxY3HE3ZBy94qf1sr2XxC2voWIHxbpAM7qXtViHjHufqt2djASL3vzsUfIWM +qYs6nRYV22DoSE/euXYyRp7esHN4ShFKpoZCFEkUHDnqm6Hwgwr1nSTXrmOr +9/DLxrujTxyIr2t4z5ZS0GXvv6vuzwVgUU+knJ+Dii1Ss/pxA+sgrkfzwmFL +KppMSXWuO7RC5P6xbz1+j4oYckuy9O0ssXKiUMLnBxWVPOzzzk+NEXV8Zds9 +tGh4huJ3wOP4VyJ4uSz/4k0a/vSI8XLO+kicvGLwYKaPho8KTobOlrUR7aph +rrYKdKyPsDMB1kbCVf2XQqU/HcMYrQbzUpXEwEk/9o5mOop4De4ov1ZIfFT9 +5ZUpyEDuq9F6D7KzCM49Gd2nnBgYMTAT+XLhHpFKvEjbU8DAoY0DD6RexxGj +sbdDFFN58I2iO5urzCRYEKbnaD28yLL1yrf9I0xooS9+ChDlx6tzFbvLbzBh +R4uQO1IFUPFhOwvj1wTcQ49HCTUC+DHB688jzgng3l+VK3tIEHmlG/JyC8Zg +aM32zT19opi6O5G6W6sRXmRV1C9cEkNZ1t7FS1HVIMfQhnEJcXykmNmxOaQU +utdcTQl5Ko6HN3ZnU1sKICagvtjSioQ8kDprVJEJd22a81p/kpC5h25wTf0e +8Ehf25h0WwLXXuo/6ZUcBwuVcENXRRLjPMsP/TocAdvKa9tj2yUx7L3rkx2W +V+GcpcYrEU8pJHHqZWza4g+WhT8FJ1ml0e9606mQOR9ofDuVTrovjf1Hfhg2 +qLvDzuhvE35aMnhpKZdtzMAB1hbcFb34SQbTQz75ilRZg3I5f1PfBVmc2ufs +qfLABJgmuDmcm4w/dmp0v1bWA8/Jz6N/bMn47+PDPw0xmjDV68MSnE3GYtPX +UcCmApWPFKrLZ8m4PYfsz2TdCJ32rLIJOhRU3TbysDdfBqYcunpvRlFw08Zz +w2c9haHoViS3bT8F/046m34S4AZ/Qd147c1UrKD+XWCdWAMRvqLNL89R8XJG +6oIOdZFglnAns72gouvNlGY+9mnCxGDllZUIDecrTYZ19IYJG463Xv4uNBQk +OFIdRHuJ2JqgfW2lNKwVazsQbdNJRDgWykew0fGVNpvYBdcWQnlbw0lZi9X/ +a8EvbX5jHdFl/Vb4VSod47ayEi1OpUTLAZYjFCYdz0Vk/3Frzyc4dpmbUHcy +0CzOe86SkkEYnLwbr3WdgRc5M9ZLuN4hArs+q/p1r/brrpDZidxoIu7bxUee +Ybx4yvtA2+5FJkxGjZgpv+RD+Sfm3cOZTJjKcLkQMclAl1N9n8q6bhJyN3Lu +iy0ysApf8x7XjiB0V16pHF5Z9cjARDT9bDghb3BEoGwtD1ou/ZawUp2ETVdZ +/JJUeTFe6THxb7WfG2e2r8ic58MZrs875WuZcITgU9PM5ceL9UE9YMyEIYf3 +4uPHBXDdL46ViLgJcNGayObgFcRtg48tYo6t+sN//nnBA0GsEb3/QGhoFAT2 +Juk3GQqh/olAkejm79BeeqpW66cI2pY0GN961g5JGmrcp8JEUc76gk1I2gtY +NL1ZR9oshs8EY6g2rs/hePSHN+ltYmgSNmHsqVcB7jsE3UudxTGqXTe2y7cI +1M6ICoqzk9DLjnvX5m85cEOcX2/tPRKq3tkjxmWfDqfN0vvtdSXwTqBmbp7o +HfAtpL1P+SaB82ujxl0lbsHy2UQLV39J/LnGiXajNhQsuj5+DZCWQrmV6hvc +by9Bdqab4ZdSKaSO3Pa+++IMuEbt33DFWBobDm2plxz3gilBoR+nJ6XxYLNd +KPmzM6xdqrWcuSaDB5CpGLB8EHJPcVL75GXRlLP19IPKfeBGAqO8VlmUJ3HC +txO7oftWycU1ymTsHa+539cC4OxccMQ6iIxclBR22c/bwJtpnmfaRsar8aTv ++ySUQImNvmlUjIKDGE/fxE8D8++HCnPcV33M1VS1YR0JKi/wrmwtoWA3p14n +uV8AIvpo+/rXUbHceMeO+2zs0LswKKBqQUXtmC+RG8NWiIGUTla5FCrW04rU +g2dnCSPBjSs6U1S8kp7r/EJsnPizY/4ZdScNXQZZ/1y6/pU4/TB6q1bEql/i +WuM62j4S5xRpHY29NHzT0PZ5cbiNqHfaun2D/KqPzbabJtIbCV+31PSw83T8 +3Tkb2m5QSaRRKi9kNtHRKuP3YyK1kLh2fG2oowADC8zDPy13ZBHtl4qT/nNk +YKfIs+988veJT2nErsV8BpbR09UFZ+KIYN/6G2eSeVA7tHYdj+wkPNRI4+b8 +yIth7rp+50aZ4C+5X7BckB8l9pq1B0cwYdHg1/KYrACaK9GCVpYmQKttMIyv +SgCTwtqE7XgnoPur5qfnBwSx7+5K+vOSMbjY5O9k0iOKwmK3D8tbNUKL97aZ +UxfFMDg25GRQaTXYjFfVxoiLY865bVeM0kph6H2863KJOPYeStuyMFsAbXt7 +2+b2kZD95xlWua5MKN5+ildjetXLpq8+vna9B+H/XK8Ix0qgXeQ3cblncfAg +eaP66BZJVLvcXOgTGgE1D3c2sL+WxBcBbp4WvldBBSsES45JoaO77P6/1v5w +Oi17XwKLNLKwdeRF8fvC8zfqm27dlcanMq4e2fbu4Bah2kTSlEGhgxIu4g4O +wFMeqD75UQbXkHhFagasIbVJ7ovteVms4K68++GdCVR1mn47wkXGhqA1Z/JN +9WDT7yLdsgNkpAi/V9hQowkNoyZs1llkXFj2qVWTUQF9rftVkT9X+9xSI6hS +biMYndapt0QKXvyiVVI7IAMBp0kKDpEUvGWYY1IVIQxblJL+CPZRcGEonEMf +uIEvz3wrtxIVX9Xrm1dwsML7m7WH7p+lorOauYSq4SJB3R/4vqaJijsH9RSP +UqaJpBHfAoYwDQ9ah9VQXIeJmK0CcyrONHQ80WH03aCXuOJ+6P2NEhqW8LFk +5Z/pJOK4Iq3sWenYpcugiUW0EAyXY/jJnI5rYh7qFenVEUPX/G8m3adjnwHW +8QWXEmHr9d8tjNMxeP72xdw/+UTZ6cOu/RoM3BFz4M+sTgbBk5V/gDeUgfFG +Kc5Xbt4hnu60aKd3MXBz6BudGy3RxGhfB+67xouxPs/Y9JeYkBpiEOrRxIec +MaURF7KYsJGjV1SLycAGO+MPNTyRhP0kWat5gYH7wAYTvCOICw56bdzLDNS8 +r6wzmxVOcCZZxRf8ZeC7zaIs+QbhxP8AMZgtAg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1mOgFnYYxuFzsm172ebC0rJtLSzb1jKXa9m2bS7Xsm3XrrN9uHr/v7vn +9KUTkjZqW+n3wICAgLjBAgKCPnf5oSkRWK/rk40nehy5ualH4ksCdutmRGSD +bkAMP7FVNyQs2W1PfY4nD7f0HwRnj25OJDbqhsT09dt0I8KRw/bM5wTycluP +IgR7dQsis0k3IifP9UTycUePJiT79G9EYbNuTC5e6Enk564eQyj265ZEZYtu +Qm5e6skU4J4eS2gO6FZEY6tuSh7CcNDWmuhs083IS1jCEZ4IRCQSh9y1IQbb +dXPyEZnDtqDfuJjs0C3Izys9hYLc1+OIwhHdlljs1L9RgNd6KoV4oMcTlaO6 +HbHZpVtSkDf6T37moZ5ANI7p9sRht25FId7qaRTmkZ5IdI7rDsRlj27Nz7zT +0ynCYz0p6PuJE7oj8dir21CY93oGRXmiJwd9/3BSdyI++/TvFOGDnkkxnuop +xOKU7kwC9uu2FOWjnsUvPNNTic1p3YWEHNDtKMYnPZviPNd/EoczuiuJOKjb +8wuf9RxK8EJPC/qzyFndjcQc0h0ozhc9l5K81NOJxzndnSQc1h0pwVc9j1K8 +0jOIz9+6B0k5ojtRkm/6L0rzWs8kAed1T5JxVHemFN/1fH7ljZ5FQi7oXiTn +mO5CaX7oBZThrZ5NIi7q3qTguO7KrwT9JbPQVpZ3cg6JuaT7kJITuhtlCHS/ +yFaO93ouSbis+5KKk7o7ZYN+efeLbeX5oOeRlCu6Hz9xSvegHMHdL7FV4KP+ +i2Rc1f1JzWndk/KEcL/UVpFPej7JuaYHkIYzuhcVCOl+ma0Sn/UCUnBdDyQt +Z3VvKhLK/XJbZb7ohaTkHz2IdJzTfahEaPcrbFX4qheRiht6MOn5W/elMmHc +r7RV5ZtezE/c1EPIwHndjyqEdb/KVo3vegmpuaWHkpELuj9VCed+ta06P/RS +0nBbDyMTF/UAqhHe/RpbjcCA//7BWuYjLXe8h5OZS3og1Yngfq2tJoEst6Xj +rvcIsnBZD6IGEd2vs9UiGCts6bnnPZKsXNGDqUkk9+tttQnOSlsG7nv/QTau +6iHUIrL7DbY6hGCVLSMPvEeRnWt6KLWJ4n6jrS4hWW3LxEPv0eTguh5GHaK6 +32SrRyjW2DLzyHsMOflHD6cu0dxvttUnNGttWXjsPZZc3NAjqEd091tsDQjD +Olss23bvxoQntt7hswlxvHcG/v//i6xu/wVs/QNX + "], 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]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + 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" -> {{3.5, 11}, {0., 0.9124622705136872}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[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:eJwVVHc41u8XFoVssl7znSIqKyP6nIO+EkJGpZQtZRShkpQKkRBCpIxEkjJD +VlZUJA3KSCLrJTIiqp/fP8+5znXuM+77nOuhOJ2wdGVlYWEhrT7/t030a8Is +LDzIK7pvw5DqJMgbHhEoW8uDVku/JaxX/cijKjye63kwRId6r0FlEizyuti6 +hXhQP6Z3S4byJPRupc8+ZvDgbdvpNzZbJmFue/VbexMevCNnGJSpMAnUvT+i +axN5MGOvhnSR7CSE+tZH+qfyoG547TqeVX80/maYYjoPvlF0Z3OVmYSCjzrB +SQ94UN5tfouw9CRo2131OlHFg/cvVve4Saz2P0oxlR3kQdeSHTKfhSfhwnmr +9Rc28+JfO7/0Hs5J2HSZJSBFlRcTlR4T/zgm4ePVR4Olmrz4TqVNibLqb0ng +qGLq8aKHeu5X+3WT0J/3zPvgPl5Mtu7nalkzCTu6ae+3XeBFUR7XTcRvJoz2 +deDeK7wY7/OMbecSExK+nX/kGcGLp7wPtO1aZAJzqissK54XjXrOie9eYMLt +dVHagrm8eMzUp1/lJxOWVefuMDt4UW4gMC5xjAn3tTK4OT/yYoS7fsCZUSZY +EmZnaD28yLL10rf9I0zI25279+AwL/4X1Ab8w0w46GC3tmWJF1WGRgzsB5hQ +cb3xWBaVD4lbHVeDPzLh9GiC+kE/PuSy7TePqGNC48y2PzJn+XCG6/N2+Vom +CC1/bPp2ng/tVXx3NFYzoYCXtN8rnA8VKbk+s5VMGFJNO3sxhQ8F0t5NbS5d +ned8ds39Oj70vKWxyPuACelhhuEeTXzIGVcadS6HCZMxI+bKL/lQ/olF93A2 +E65mKnyteMeHr5Pcgp5kMqH2xSO2tu982GDiayp9mwlKQmVGszz8WGrj8cA8 +mgmBkvsFywX5UWKPeXtoFBNa6IufgkT58fJcxa7ySCY4a273YCfzY7D6Xlmh +cCak2NVcJ6nxI/ngneLkC0zgyGnuBFt+lBJ58W/iBBMGdbrsorL5cUkt7u6F +PUw4QvCpaefx4/n6kB4wYUIP/rf+ewE/9rlUvl02YsL7/4pLoZwfNzT1fnDb +yYRm8xi+2Zf8aPKXkcqps6q/864622l+bFYvEQrYuKp3U8+NeGkB7FjrzfF2 +ZQIWDX+tjMkKoIUSLeTP0gRotAi5I1UAFe+3szB+TUDRy93EpJwAmrzzWHGZ +mYCHb56OGyoLoM7TM2a5wxOQ9ine4Lf+ar570zPNtgkImTSZd3AXwGN/A1pt +kidgyOG9+PhxAVz3i+NPVMIEGL630z3lJYBq+6tvVsdOAM8zr8uhvgKol9fR +zxUxAYlXYwTzggSwUviios3ZCcinvds8GyuAtm/qC7MOTEC37UG30AoBfNa1 +Z4JVaAJ02gYj+KoEMCWiTdiOdwLuoMejpBoB/JjktfyIcwKcNwbNPWgQwA2+ +p6Z0/o3D1Fzapfa21X7aIbP/JsZhbezXO2KDAriGWjpGbxwH5Wb3rgdcgpht +LabZ6j0OLjoTuRy8gqg++Ngy7tg4JD3xCnTlF0SfrBOV1i7j8DfFV5oiLIgd +XLfcmmzHoe1EkHOytCCSpBb+2Owch+Ok2B9hyoJYnjperio+Dvc8n3K47BNE +3brG+reVY9D9VfvT8wOC2Hf7T+bzkjHg3l+VJ3tIEHmlGx7mFYyBr97zPT32 +gngQLTXcM8dAT/RVvOUxQQyscN5yI2IM+mv7ZfWCBLFQyf1dyr4xIG1g15LJ +FETlrfLONyZGwTdw/nnBPUGsEb17T2hoFF5+HTKBHEF8++rl0rXeUQh80mDv +kC+IfBvsR93aRuHznpDwzDJBNMoSlqwpGIXUqysf5V4J4pgIl8HciVGQ/vvT +f+vcKr7+YkAScwQoY1+K0VAIH3Cw5NW8+Q4Ce1J2NhkJ4c4TwSKxzd+BpdD6 +w24TIZzZ94T7UPV3GDjTumBpIYSL+UklfXnf4Q5nsbbrQSHs82A0JIZ+Bwn5 +sNoIbyHsLhdz7Nf+DkJHlV51Jgohdsj6LacNw9rhM4MuI0LofPnpkcP7hoBs +ExdTcn4DihoQRRwvv8Ihs9H9RWRhfLtG24y3rw/ePKu501MujFGZn4jNed0g +Y26dzG4mgh2ck56OM+8gykPu0ZcfIshMvSSQ8Lkd2ktP1er8FEHbkgaTG8/a +QZDl+dukORFs8k4TybrdDokJhxbMl0QwLUPPfa19O2RUx0IdqygW6+qG1wy1 +QRn/8tt0EVHMfCJFE557DQPFbxYcdUSRYh+hZUt9BWorZ3AoTBRHFTOCLlS/ +gBQtNe5TEaIoZ3NuX1jGC2D1n/ywJkoUVZYLwrNDX0DHpKOH7A1RrLsU/UXJ +7AV4fjFOPJgqinaXt40dGWiGe/VSzI7Hovh33FvAdH0ziEbUJVV3i+IlYW5F +ilcjnG8KdDLtEUVhsZuH5a0bYWjNts09faKYviuZukunEYoCH9QvDoqicskR +g1frG8HcM25SbVIUk6M05pk5DXDV3MUgb40YTg8wPaNH62FJhPNH4iYx9Hwk +T+E49xwWza7XkTaL4TPBOOo+1+ewEC4Ud3urGI6KLhZWmj+HuSWpbZnqYhjZ +l2HRSH8OU30q5x4RYnjxdpdT95s6GMw+xNFoKYY2qXl7fivUwcttj2VnAsWw +nmWC8bCnGlq81WdOnRfD0PiwkyGl1fAip6J+4YIYyrL2Ll6IqYZGUqPryhUx +fBDcYD9vUA01f7ofcsSI4fkX7G01BVVQ1MSqJZMlhtbUsQ1l155Bis0+C5NX +YhiwUW0sxKkCjsd+eJPZJoamERMmngYVoP3K2vz3GzEUd7UYCKBXQDdamT14 +L4Yj61l2Mb+Xg4iShSlHvxgqGRnm2niVQyyrsVHDtBg6lHZd5r/4FMIf70Ad +UXH0XLJKv1JVCvvGq2rjxMXxwRn1S8YZpSDH0IVxCXF8pJjdsTmsFBpTthO3 +ZMVRBINtTS1KgTVMU/eXvDiGEHfufx8ugWA7Fa1iHXEkHVUJDxItAb/1DGVF +R3FsJZlSYqOKwF1D0L3UWRxj2vXju3yLwM75z11wE8fPF62sCNsi2Fn9gd/a +Qxy3xTabHJMrgg0+YT+C/MXxw7jEGtX6QijqHilojxBHpcXiXP9/T2AmJ2+z +b5E4xrUIG68hP4ah94muKyXi2HsoY8vCbAF0r7mcFvZUHA9v7M6lthRA3aFD +vKlV4vj4+lQIxacAYvl5JhuaxbHg1bqmJ02PQPm0V75Ijzj+KglvHT6TD96G +yooVbCTk9Hp8UZk9D9T8RQXF2UnoZce9Y/O3B7CYtbIQwEnCBvZXsdZ1DyBk +TWu9Oi8J3z73tKGeewAJVY4Hn4iSsCyvpbz0Zy48U42PyFEgYXd46eGksRzg +lF0YuWlOQrvftlFy89nQtqe3bW4vCdl/+rPKdWVDXFB9sZU1CXkgfda4Ihsk +P0dfELQlodPi+IO1wdmw5eZGsetOJKzZ7yOrtj4brLltDa/4r+KvMI0Pyt2D +jF/P7vmmktDh30Lvi8BMiBTnN1h7h4Sqt3aLcdlngp+209eb6SRc/mPd5GuQ +CYbnOGUqskl43OZQUxlPJjD/Wif9e0xCucXig2szMkCDfSoiqpGEW1WHQqI7 +0uGlMPnE/UkSHiCnHN+fcAeKt53i1ZomobHZq4+vXe/A7X3ND1t/kpC5m254 +RfMOnEj2HGX+Wo2nxgw/7UkDYakKRzVWCbTdmLddYWMaHKFZWteJSuDHEqm3 +k62pMKtyRfszSKD98ELNZ91b4Gee2W+vL4G3grXzHoregjnPusvDOyXwjmRi +T9F0MizkrLRN75bAy4NLK07ZybAo7e/EYS2BZcMztfqCyfB3vds1dXcJ9H/Z +bNn0MxG4Bnf1RcdKoGxkyzhPTwJc++d6STheAu2iv4nLPUsAHukrG1NuSuDa +C/0nvVITgPdAnU92igQWxe/JD7VLAIF2LfaqexJ4l6RW92EgHkQqFbaOlUtg +nW1cbt1MHJDjuEMMvkogBrt/V1a7Ab6FtPdp3yRwfm3MuKvEDWjo0Nm4OCyB +eSunflatuQFu/J5t+eMSqKim49TREQuPol6TROckMGjhr9TVk7GwPfx60Si7 +JEYNF31W8owBqyD+oetKkii24cFaucIouJe6UXN0iySqXWwu9AmPgoVKiNRX +kcQEz/JDvw5HQcrSCeVf2yTR/IjVucfcUTAQ0BHkAJKYclOx4+Wxa+Dpc0NE +zVISB65NCHsrR0KY24Zd3aclkcgyrD87HA4rp5MtXQMl8ecaJ1pkbTj4Rkgf ++RkkibNX2p3f3wqHI/kb/XkuSaLouQItEfNw0Pipk4VRq/lldQZQFQYj513+ +5aZLYl60SMVUeigY3Sx9erZVEi8R+07fuXEZau5vb2B/LYkvgtw8LX0vg3p5 +bXt8uyRGvHd9omF1Gcg9rcOP3kmiI9tenhiRy7BE7t8w2CeJk1trzp6+fQny +8tlPGv+URPfJ95cmikKAu3G/vKSkFFY6mlBuslwEy66PX4OkpVDuT3Uk99sL +kDxuk9ovK4Wf/1SOq2ZcADlBa75MuhQGCf/0ttS/APpHLObkt0ih4UsJnpfh +wRC4aFSnoSeFtTE/9XbLnodxpe0HLI9KYVGM2ShPcCCoYIVgyTEpdHSX3f/X +JhDOWGm9EvGUQhKnQdamLYHAHqhBfDophaEPoiNUv5wF6gtVukOgFOZIfry7 +YHAWDjoqTntdl8KLCg+614ufgdabUlcjiqXw2ee3aTjqD7nZbkZfSqWQOnLT ++/YLfwgrfcK5rVwKr/VfuL8xxx/0P+yMGKiSwm1/Bw1euflDlbBXpGazFFp2 +OgrgqB88ia+OGu6Wwp0rBwdyZk9B4o0jN/T+SqF75Pbcuk2+4JeRuzeJRRpZ +2DoexvD7glXhT8FJVmkMuNp0KmzOBwTehsUlc0jj5JGJk+M1PhAh8Dj+h4A0 +OgSsEwyz8YGgmH8302jSeKfO6UhvxElwup6esmQkjZbyXNVbJL3BNWb/hksm +0thwaEu95LgXuN/gi+Iyk8ZxirbM/gov8L4ZdF7SShqd2Ft/lR3wgrNpBxx2 +HJbG5xUVZL5UT4h9JCAX4iONkU2VLCWbPaCm7WIhZ4o03gp/w9Ue7g7P32hu +unFbGp/KuHrk2rtD49upTNJdaew/8sOoQdMdXn6wS9h0TxprghTGykePwoc+ +rdOmBdI4OJM/mLznKDAnp3Vj66WRxiZf/ZHqBhJ8ji1iE9K4GDYlV7voDFOC +Qj/8JqXxYLNdOPmzM9SLNIh0/pDGmYrvgk+eOcMxaYZz1Jw0tkRdSDxwwRnK +lcb+sPyVxi+fv3G1cDrDPhMftXEBGXQ0aNIZoTlB3NWQO1UaMkj7Nkz3PusA +blGqTSRtGRQ6KOEi7uAA22O/TQToyOCFpTy2MUMH+Jr0n7YKyuATD1LIirAD +KOesf5+9WwY7/t29/9rVHtqbbqyPsZPBMPms+E0Th4GbLdPP8ZIMrlx4UvhF +4RCsXaq1mrkigweQqRi0chBWpvpUQ8Jl0CwoLsD5zUFgfibNpEfJIBE6myIQ +cBDaim54DSTKYMb7N6TuZluIcQpxs38og+oNu0hl/gdgQ73DgcPvZXCLJ29r +1rp9wFMerDn5UQbXkHhFagZsYG3BbdHzn2QwM+yTr0iVDczd6n5/u18G32RW +dp09ZQMffCz29o7K4KZbrfF8w9aQREHjQ39kULexT1X4nRVIhsjq2srJYlbq +D5pg917IO8VJ7ZOXRTPOVr97lXthu9sMh6OiLAZiccPRtL1w0KThnbuyLCrc +s5E/77wXkkWOepzZLou5A9tqP89YgGheQUqS2WrcdJcmWcwCBN7tWPoQIIue +h3/qt7DtgfQmuS+2Z2Wxgrvy9od3pqBczt/Ud04Wp/Y6e6rcMwXztK+xwxdl +cU/YLr/O/0wh+mio/HykLNZGki7lR5kA98rr/cJ3ZfGJmdCMjbwxsDPsyixf +yGKcR/QB84Rd4EYC44etsihP4oRvJ3bBC15qP9trWfzCGj5WYLILri6MrCvt +kMXH76jbmWy7gKvllI3YZ1nslXxTOB9gCPwe1+Z6mLL4SV/25YrbfxB14PAt +1fVkzPCuUq30XP1iO82+HeEiY0PIGv98MwNgmuLma9xk/LFdq/u1sgHs0aM9 +/8ZLRisp2fHEeX3g2zQ2miBExpMvZguMQvThxrKf1i9JMj46vClrJF0PEu9E +dT3bQsbR+XnBtL8A3TdKzq9RJmPveM3dvhYAydBe2i4VMu52rn57Oh4g3UPp +ZKfaav6eD+/KFADytF5zjmmR8fXR8SPmBwmo6eTeLmpARmvdDWzer3RhhP3a +7ZP7ybh+e/a2h2PasOl3kX7ZATJShN8rbKjRBs/Jz6PLtmT89/H+ckOcNvx8 +t2lbuB0ZD+il7vurqw0r6S/b0hzJyKmtMtaSoAUCOlz/XnqQ8db04rT5Xk3Q +OhHhyLhIxpfbq9/LLKuDs3PBEZsQMnJR0thlP6tD9P53h0IvkTF9Ua/TskId +hkB63/AVMgq6e/2yOqMOsQKFxtkRZEzSHOkqXlSD0cJuNUb8qt65z73us6pB +8txGdsZ9Ml5r2HHMUlsFGkZN2WxyyLiw4lOrJqMCU70+LKG5ZCw2ex0DbCqw +s+nZ76E8Mr7fuz/pQ5syTN80/3HvMRl5uK9R51yUwUjzdDe9goyVVfdHwrZt +hV9nm/Por8lY2Pi9bo2hEngzLR6atZHxciLp+14JJRg60vPwTDsZo/02bB+e +UoROg+n81x1krHj56P27ZEXI55V47PdhdR9KbvVNPzaBU4ZXcWM/GUtj5L9k +P1CAthbhKpcZMhplb2KpM94IO3XuVkX/XL0XK62QSrmNUPlIobp8lozbHpAD +mawbITeOqOFZIKOPQMLF+WdycMnOva7kNxnn2c8/jVOWA63pZ41r11Iw2SCF +XkRjQJaYc9s9UQpmLD4PddhKAyU2+qZRMQoOYiJ9Ez8NSqaGwhRJFBw56pul +8IMKzU1uWCRJwXMiET0tj6kwfup4cS2ZgtW71K8Hq1FBtcPn1udNFHzeoBp9 +bicFnl+96CoAFBTk4dT4LSwLxn569VZIwfNfdEpqB2Sg055VNkmPgqrqI/d7 +82VgSONKt/ROCt6zmciSMJQBzuFwE8XdFPTfMG6UFCQNFnoxKoZWq/Pqp2WI +L0nCl6W0P+eOUlD3mUxXghIJLL4fKnzgTsEerqaqDetIUN9Jcu06tlrv1z7v +jj5xuPfw5mtVTwruTF0pWRMrDscPX08dO7mK9+jz1v4lBvN1Qdr7AymYL67n +mt8hCtxXD/mrXqfgMH/ZVbVHwhDkR1JwiKbgDaMHplVRwjDl0NV7PYaCmzae +GT7tKQwd2lY7x25QsOaYgm2YkjAkThhvSE+kYDEnX9Wvgg1AMd9eyJtOQc+H +GnFjVUKgKUqaHC2ioJj2oDbXsgBUnuP9s7WEgt2cBp3kfgEgvq7hPV1KQZc9 +/y67PxcAw/xxpXXlq/OWfR6JuCoA1vpVnpTq1X2WPqzmJgmAj7c90/YFBXW8 +4eq1UD542Jw98bKHgko7LBT/enHDFqWUZcE+Ci4MXePYCdxQdCOa27afgn8n +nc0+CXBDpd1pxZEBCo4NvWCdLuGClp9GHmzfKbj9aWl4LQsXDMswx3WmKfg7 +1WjA/z4nyJ5WHc9fS8XbCnWbBuXYIaqPtrd/HRXLTTQ07rKxw6KBSDk/BxVb +pGZ3Jgysgw6BxVDf9VTcEcrKxUhdBxfzqilafFQM/Sef0SW0Dgb6jGwbxKh4 +xExeS4NnLWTutG/5tImKjY3BN9PorMD30GIrtxIVX9XvtKjgYIVAQf1E3c1U +rKD+XWCdWAOW/XSXu1upKP8tdVimaA2wnhn/56JORZ6gIi8f/TXg/NBfc3oH +FbdHir808GABulDUffa9VAw7fjrvxtM/RO/CoICqJRV1475Eb4z4QyT0aJ87 +bEVF0ympznWH/hBs2SPmJTZUbG2KKb71b4UY1DRYcjxIxdL4a9VCpitE+uHf +JtXOVGyOc58fn/lNSD9wnzkVQMVL5y63HvZeJN5frz109zQVndUsJFSNFoko +X9Hml2eoeDErfUGPukis6DSmUM5Rsdfr4Rehrl9Eb7vszjcXqDhsWnfqhMEv +ImXuY+KmCCpyKgb4NsktEKL4n+7XVCpmPO2bihaZIwbSOlnl0qhYTyvSDJ2d +JfKW7VuP36Eiht2QLH07SxBPA/fNpVMx8L8fW+uiZwm3LU9OctynorqJCv9Z +7lmiTEoye/MTKi7rr3TS+H8S+5emeQMbqXi5wkhxSneaoO4Pfl/TtKrfoIHi +Uco0wSzhTmV7QUXX62nNfOzTxMWTcvLXW6m40NSq8PbuDyJ35JB+ejsVTyS0 +MYJeTRGLH5oDmrupWHTjT56d2iSRXHT7i9AkFS0UAjr36Y0TxoIb/+hNreqV +mef8Qmyc+HOiUMLnBxWVPOwfnp0aI5w2N9u8maFilBF7XcbtMUIp98erawtU +PKcx0za3PErUpemXr2WhYcynZ2zmzSPEyNXR2AUhGl4IHbuoGT5MpIz4FjCE +aXjQJqKG4jpMmBr+eWUtQsP5StNhPYNh4gmbEEexGA2p3ZopVJZhIjBY5/wJ +KRqm/nfb1y5oiODziz42yqCh7ctAoePB3wgNe3X9z1o0/NFWGdpy/yuxrDH/ +jLqdhi6DrMsXrn4l6vjKtnno0NCfEnDA4/hXYneNpsLKDhpK+gkd693ylbCT +1hGQMaChzXCkmUzlAHGpR6/fcQ8NI0Z+z+YXfyHa9psHjjnScL9xUFnt6V4i +bqvAnIozDR1PdBh/N+wl9nG89Qp0oaEgwZHuINpLDJRZOnIfXa0v42phVtZD +/BTZZ7TZk4al7GSbv0ufCfH3dqI+ATQE5sMjWrGfCBeL40WLkTTc+jq+L3ju +I+F3P3arTtQq/4TWhI62j0ToSln++es0/OkR5+Wc85G4n8uWwxpLQwVFt3bj +Qx+JUZa0VJ6bq3y924KFmz8QHoVvrpDv0vCfd8QpzZz3hK/Qtv1GxTS0vu5d +/Cehk7jkfuh9ZAkNS/hYcvL9O4n4mpC9baU0rBVrOxC7r5MoOd5uYllOQ/pi +ecKceCcxX38U7appeNQjuU8u/S1x5lSKwskXNDSdd+AdfdpBXHj/bzmph4bF +VhGRRiLtxBlFWkdjLw3fNLR9XhxuI05eMrw300fDRwUnw2fL2ggn5eumJgM0 +dGv1ozXbthGGURJpf4doeHKsou1d5muCd+c2wnVqlS/HgvcW/VdEavHxi6pr +6Pju13q96aIWIoEr2tqelY5d+gyaWFQLEeVYKB/FRsdXumxi51xbiGD+xY7h +dXT8OM8sWRRvIZw8Qim3uOioQjl9su7SC0KBll7/bwMdU3my/ik7NhNP4z6s +bZOj4+GeD4TSrkai3mnrtg3ydNQ232aWTG8k2lUjXG0V6FgfZWcKrI3EUKdu +87AiHY/Pq1/RrWkgBDbcC/+rTEfFTxGCY1oNhHu8L5eyDh1Dky5DmVY9IZHA +LxBvTkf98ZrgO/Z1BMPlGH6yoOOauPsGRQZ1hLJ6w0lZSzqKLwRkzG+sIwzf +B7x9aE3Hr2NCLRsGa4lTwv1xjbZ0PKI7EVvLVUu8TsgXWXCmo/uAf9OSZzUR +fHO3pO0ZOs6to78bP1lJ+LqlZ0acpePvztnwdsNKwlXzl0JlIB0jGK2G81KV +hOmne1qS51f5jV/V4npZQUhIs+zrC6Hjs68HPAw3VhBP75XFOl6jY+9OKr1g +8ikxXUxjP36HjuX69kpROaXE0JXA6yl36dhniHV8oaVEl81b4VfpdEzYykq0 +OJUSNb+CaUpZq3q4b0rplyklonQ+41QOHaOpe9xjbpUQCg2x53wL6cj2j6/o +aXIx4dT5ZzqwkY4/ZOZcpp8VEhmUynPZTXS0zvr9mEgvJAZOBrB3NNNRxGtQ +o/xKIWHP/0OS0UrH8Ocj44pmhYSd6YDhm7ZV/dKz7/F9e0Lsa66/TeuioxiD +CLgq/IQwrgw3ej1GR3bxh6RtCo+IiPU73y2Mr+5n/ub5vOV8ouUAyxEKk45n +onKX3drziV2/zpwKmKJjgLDktWK/fGKn+vE75Fk6EpFP/kY3PiSIAtM5vxU6 +pp/4kTZzMo9QyxRMl+Zn4GS1q1bKUg5x5fjacEcBBhZYXPu00pFDfFT95ZUt +yEDuy7EG93JziMCGXp3NwgzMWK+RUXsgh6gbyunSJTFQNTFrQbLqPmG6keC3 +ozHwV1Kw1PqYbMIl/3hwiiYDTUfCM185ZRFlfodd+7UYqBF3YHlWL4vg2GFh +St3OQPME7zkrShaR17ZNIk+XgXUOFuYVA5nE9BRLWYUeA6k3P4TwO2USQSpJ +k90mDLSU789O8c4gEsoa7MQcGLiSm5WWYXuXaL9QnPKfIwM7RZ5955O/S3Du +zuo+5cTAqIGZ6JcLd4ignkvWHS4MLOQQ5FO8eYdwYdE3jTjGQB65keOXP6QR +6sZ1Osu+DGz7tmGrgstt4l1flcSXUAYO6jPXKZbdInhy8g/whjMw0TjN+dL1 +W4ThyduJOlcZeJ4za72E6y2ikjVIKDmSgeL6Q8mcIreIzI06XHtjGDiSmdve +dTqZ8PWpWKpPZqCdSNvEqFESIbSurPv+QwYmhFN8d4neJD5lEDsW8xlYRs/U +FJxJINKJFxm7Cxg4tHHgntTrBGLLme7jzCcMtDKm5y5cSiCMJ36vqJQxcKle +/FPebDwR8hYo1XUMXBu58qBoII6YTms99u4DA/X77289/D2WeLrdsp3excDN +4W/0IltiieCuz6oB3Qz8vSNsdiIvluARZC6L96zi53/Um5yMJeSv8EUfGWCg +sSAH4/vvGMLhuFXR2DgDa+Im1zP0o4mNHL2iOkwGNtiZfKjhiSamslzORU0y +0OVU36eyrutEUJ//zq3Tq/Ubvi7UeF8nki2SP/rNM9Dt6PQt6Ywown6SrNO8 +wMC9sA+TvKMIucgHd8UWGViFr3mP60YRJQ2V7pW/Gahy4esD8U/XiHMOBm3c +KwzUvqusN5tzjdD/80rl8J/VexyYiKWfvkZwplgnFvxl4LvNoiz5hteINxp9 +v//9Y+A6rFu4KnqN+B+7Zi0C + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3.5, 11}, {0., 0.9124622705136872}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[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:eJwVVHc41u8XFoVssl7znSIqKyP6nIO+EkJGpZQtZRShkpQKkRBCpIxEkjJD +VlZUJA3KSCLrJTIiqp/fP8+5znXuM+77nOuhOJ2wdGVlYWEhrT7/t030a8Is +LDzIK7pvw5DqJMgbHhEoW8uDVku/JaxX/cijKjye63kwRId6r0FlEizyuti6 +hXhQP6Z3S4byJPRupc8+ZvDgbdvpNzZbJmFue/VbexMevCNnGJSpMAnUvT+i +axN5MGOvhnSR7CSE+tZH+qfyoG547TqeVX80/maYYjoPvlF0Z3OVmYSCjzrB +SQ94UN5tfouw9CRo2131OlHFg/cvVve4Saz2P0oxlR3kQdeSHTKfhSfhwnmr +9Rc28+JfO7/0Hs5J2HSZJSBFlRcTlR4T/zgm4ePVR4Olmrz4TqVNibLqb0ng +qGLq8aKHeu5X+3WT0J/3zPvgPl5Mtu7nalkzCTu6ae+3XeBFUR7XTcRvJoz2 +deDeK7wY7/OMbecSExK+nX/kGcGLp7wPtO1aZAJzqissK54XjXrOie9eYMLt +dVHagrm8eMzUp1/lJxOWVefuMDt4UW4gMC5xjAn3tTK4OT/yYoS7fsCZUSZY +EmZnaD28yLL10rf9I0zI25279+AwL/4X1Ab8w0w46GC3tmWJF1WGRgzsB5hQ +cb3xWBaVD4lbHVeDPzLh9GiC+kE/PuSy7TePqGNC48y2PzJn+XCG6/N2+Vom +CC1/bPp2ng/tVXx3NFYzoYCXtN8rnA8VKbk+s5VMGFJNO3sxhQ8F0t5NbS5d +ned8ds39Oj70vKWxyPuACelhhuEeTXzIGVcadS6HCZMxI+bKL/lQ/olF93A2 +E65mKnyteMeHr5Pcgp5kMqH2xSO2tu982GDiayp9mwlKQmVGszz8WGrj8cA8 +mgmBkvsFywX5UWKPeXtoFBNa6IufgkT58fJcxa7ySCY4a273YCfzY7D6Xlmh +cCak2NVcJ6nxI/ngneLkC0zgyGnuBFt+lBJ58W/iBBMGdbrsorL5cUkt7u6F +PUw4QvCpaefx4/n6kB4wYUIP/rf+ewE/9rlUvl02YsL7/4pLoZwfNzT1fnDb +yYRm8xi+2Zf8aPKXkcqps6q/864622l+bFYvEQrYuKp3U8+NeGkB7FjrzfF2 +ZQIWDX+tjMkKoIUSLeTP0gRotAi5I1UAFe+3szB+TUDRy93EpJwAmrzzWHGZ +mYCHb56OGyoLoM7TM2a5wxOQ9ine4Lf+ar570zPNtgkImTSZd3AXwGN/A1pt +kidgyOG9+PhxAVz3i+NPVMIEGL630z3lJYBq+6tvVsdOAM8zr8uhvgKol9fR +zxUxAYlXYwTzggSwUviios3ZCcinvds8GyuAtm/qC7MOTEC37UG30AoBfNa1 +Z4JVaAJ02gYj+KoEMCWiTdiOdwLuoMejpBoB/JjktfyIcwKcNwbNPWgQwA2+ +p6Z0/o3D1Fzapfa21X7aIbP/JsZhbezXO2KDAriGWjpGbxwH5Wb3rgdcgpht +LabZ6j0OLjoTuRy8gqg++Ngy7tg4JD3xCnTlF0SfrBOV1i7j8DfFV5oiLIgd +XLfcmmzHoe1EkHOytCCSpBb+2Owch+Ok2B9hyoJYnjperio+Dvc8n3K47BNE +3brG+reVY9D9VfvT8wOC2Hf7T+bzkjHg3l+VJ3tIEHmlGx7mFYyBr97zPT32 +gngQLTXcM8dAT/RVvOUxQQyscN5yI2IM+mv7ZfWCBLFQyf1dyr4xIG1g15LJ +FETlrfLONyZGwTdw/nnBPUGsEb17T2hoFF5+HTKBHEF8++rl0rXeUQh80mDv +kC+IfBvsR93aRuHznpDwzDJBNMoSlqwpGIXUqysf5V4J4pgIl8HciVGQ/vvT +f+vcKr7+YkAScwQoY1+K0VAIH3Cw5NW8+Q4Ce1J2NhkJ4c4TwSKxzd+BpdD6 +w24TIZzZ94T7UPV3GDjTumBpIYSL+UklfXnf4Q5nsbbrQSHs82A0JIZ+Bwn5 +sNoIbyHsLhdz7Nf+DkJHlV51Jgohdsj6LacNw9rhM4MuI0LofPnpkcP7hoBs +ExdTcn4DihoQRRwvv8Ihs9H9RWRhfLtG24y3rw/ePKu501MujFGZn4jNed0g +Y26dzG4mgh2ck56OM+8gykPu0ZcfIshMvSSQ8Lkd2ktP1er8FEHbkgaTG8/a +QZDl+dukORFs8k4TybrdDokJhxbMl0QwLUPPfa19O2RUx0IdqygW6+qG1wy1 +QRn/8tt0EVHMfCJFE557DQPFbxYcdUSRYh+hZUt9BWorZ3AoTBRHFTOCLlS/ +gBQtNe5TEaIoZ3NuX1jGC2D1n/ywJkoUVZYLwrNDX0DHpKOH7A1RrLsU/UXJ +7AV4fjFOPJgqinaXt40dGWiGe/VSzI7Hovh33FvAdH0ziEbUJVV3i+IlYW5F +ilcjnG8KdDLtEUVhsZuH5a0bYWjNts09faKYviuZukunEYoCH9QvDoqicskR +g1frG8HcM25SbVIUk6M05pk5DXDV3MUgb40YTg8wPaNH62FJhPNH4iYx9Hwk +T+E49xwWza7XkTaL4TPBOOo+1+ewEC4Ud3urGI6KLhZWmj+HuSWpbZnqYhjZ +l2HRSH8OU30q5x4RYnjxdpdT95s6GMw+xNFoKYY2qXl7fivUwcttj2VnAsWw +nmWC8bCnGlq81WdOnRfD0PiwkyGl1fAip6J+4YIYyrL2Ll6IqYZGUqPryhUx +fBDcYD9vUA01f7ofcsSI4fkX7G01BVVQ1MSqJZMlhtbUsQ1l155Bis0+C5NX +YhiwUW0sxKkCjsd+eJPZJoamERMmngYVoP3K2vz3GzEUd7UYCKBXQDdamT14 +L4Yj61l2Mb+Xg4iShSlHvxgqGRnm2niVQyyrsVHDtBg6lHZd5r/4FMIf70Ad +UXH0XLJKv1JVCvvGq2rjxMXxwRn1S8YZpSDH0IVxCXF8pJjdsTmsFBpTthO3 +ZMVRBINtTS1KgTVMU/eXvDiGEHfufx8ugWA7Fa1iHXEkHVUJDxItAb/1DGVF +R3FsJZlSYqOKwF1D0L3UWRxj2vXju3yLwM75z11wE8fPF62sCNsi2Fn9gd/a +Qxy3xTabHJMrgg0+YT+C/MXxw7jEGtX6QijqHilojxBHpcXiXP9/T2AmJ2+z +b5E4xrUIG68hP4ah94muKyXi2HsoY8vCbAF0r7mcFvZUHA9v7M6lthRA3aFD +vKlV4vj4+lQIxacAYvl5JhuaxbHg1bqmJ02PQPm0V75Ijzj+KglvHT6TD96G +yooVbCTk9Hp8UZk9D9T8RQXF2UnoZce9Y/O3B7CYtbIQwEnCBvZXsdZ1DyBk +TWu9Oi8J3z73tKGeewAJVY4Hn4iSsCyvpbz0Zy48U42PyFEgYXd46eGksRzg +lF0YuWlOQrvftlFy89nQtqe3bW4vCdl/+rPKdWVDXFB9sZU1CXkgfda4Ihsk +P0dfELQlodPi+IO1wdmw5eZGsetOJKzZ7yOrtj4brLltDa/4r+KvMI0Pyt2D +jF/P7vmmktDh30Lvi8BMiBTnN1h7h4Sqt3aLcdlngp+209eb6SRc/mPd5GuQ +CYbnOGUqskl43OZQUxlPJjD/Wif9e0xCucXig2szMkCDfSoiqpGEW1WHQqI7 +0uGlMPnE/UkSHiCnHN+fcAeKt53i1ZomobHZq4+vXe/A7X3ND1t/kpC5m254 +RfMOnEj2HGX+Wo2nxgw/7UkDYakKRzVWCbTdmLddYWMaHKFZWteJSuDHEqm3 +k62pMKtyRfszSKD98ELNZ91b4Gee2W+vL4G3grXzHoregjnPusvDOyXwjmRi +T9F0MizkrLRN75bAy4NLK07ZybAo7e/EYS2BZcMztfqCyfB3vds1dXcJ9H/Z +bNn0MxG4Bnf1RcdKoGxkyzhPTwJc++d6STheAu2iv4nLPUsAHukrG1NuSuDa +C/0nvVITgPdAnU92igQWxe/JD7VLAIF2LfaqexJ4l6RW92EgHkQqFbaOlUtg +nW1cbt1MHJDjuEMMvkogBrt/V1a7Ab6FtPdp3yRwfm3MuKvEDWjo0Nm4OCyB +eSunflatuQFu/J5t+eMSqKim49TREQuPol6TROckMGjhr9TVk7GwPfx60Si7 +JEYNF31W8owBqyD+oetKkii24cFaucIouJe6UXN0iySqXWwu9AmPgoVKiNRX +kcQEz/JDvw5HQcrSCeVf2yTR/IjVucfcUTAQ0BHkAJKYclOx4+Wxa+Dpc0NE +zVISB65NCHsrR0KY24Zd3aclkcgyrD87HA4rp5MtXQMl8ecaJ1pkbTj4Rkgf ++RkkibNX2p3f3wqHI/kb/XkuSaLouQItEfNw0Pipk4VRq/lldQZQFQYj513+ +5aZLYl60SMVUeigY3Sx9erZVEi8R+07fuXEZau5vb2B/LYkvgtw8LX0vg3p5 +bXt8uyRGvHd9omF1Gcg9rcOP3kmiI9tenhiRy7BE7t8w2CeJk1trzp6+fQny +8tlPGv+URPfJ95cmikKAu3G/vKSkFFY6mlBuslwEy66PX4OkpVDuT3Uk99sL +kDxuk9ovK4Wf/1SOq2ZcADlBa75MuhQGCf/0ttS/APpHLObkt0ih4UsJnpfh +wRC4aFSnoSeFtTE/9XbLnodxpe0HLI9KYVGM2ShPcCCoYIVgyTEpdHSX3f/X +JhDOWGm9EvGUQhKnQdamLYHAHqhBfDophaEPoiNUv5wF6gtVukOgFOZIfry7 +YHAWDjoqTntdl8KLCg+614ufgdabUlcjiqXw2ee3aTjqD7nZbkZfSqWQOnLT ++/YLfwgrfcK5rVwKr/VfuL8xxx/0P+yMGKiSwm1/Bw1euflDlbBXpGazFFp2 +OgrgqB88ia+OGu6Wwp0rBwdyZk9B4o0jN/T+SqF75Pbcuk2+4JeRuzeJRRpZ +2DoexvD7glXhT8FJVmkMuNp0KmzOBwTehsUlc0jj5JGJk+M1PhAh8Dj+h4A0 +OgSsEwyz8YGgmH8302jSeKfO6UhvxElwup6esmQkjZbyXNVbJL3BNWb/hksm +0thwaEu95LgXuN/gi+Iyk8ZxirbM/gov8L4ZdF7SShqd2Ft/lR3wgrNpBxx2 +HJbG5xUVZL5UT4h9JCAX4iONkU2VLCWbPaCm7WIhZ4o03gp/w9Ue7g7P32hu +unFbGp/KuHrk2rtD49upTNJdaew/8sOoQdMdXn6wS9h0TxprghTGykePwoc+ +rdOmBdI4OJM/mLznKDAnp3Vj66WRxiZf/ZHqBhJ8ji1iE9K4GDYlV7voDFOC +Qj/8JqXxYLNdOPmzM9SLNIh0/pDGmYrvgk+eOcMxaYZz1Jw0tkRdSDxwwRnK +lcb+sPyVxi+fv3G1cDrDPhMftXEBGXQ0aNIZoTlB3NWQO1UaMkj7Nkz3PusA +blGqTSRtGRQ6KOEi7uAA22O/TQToyOCFpTy2MUMH+Jr0n7YKyuATD1LIirAD +KOesf5+9WwY7/t29/9rVHtqbbqyPsZPBMPms+E0Th4GbLdPP8ZIMrlx4UvhF +4RCsXaq1mrkigweQqRi0chBWpvpUQ8Jl0CwoLsD5zUFgfibNpEfJIBE6myIQ +cBDaim54DSTKYMb7N6TuZluIcQpxs38og+oNu0hl/gdgQ73DgcPvZXCLJ29r +1rp9wFMerDn5UQbXkHhFagZsYG3BbdHzn2QwM+yTr0iVDczd6n5/u18G32RW +dp09ZQMffCz29o7K4KZbrfF8w9aQREHjQ39kULexT1X4nRVIhsjq2srJYlbq +D5pg917IO8VJ7ZOXRTPOVr97lXthu9sMh6OiLAZiccPRtL1w0KThnbuyLCrc +s5E/77wXkkWOepzZLou5A9tqP89YgGheQUqS2WrcdJcmWcwCBN7tWPoQIIue +h3/qt7DtgfQmuS+2Z2Wxgrvy9od3pqBczt/Ud04Wp/Y6e6rcMwXztK+xwxdl +cU/YLr/O/0wh+mio/HykLNZGki7lR5kA98rr/cJ3ZfGJmdCMjbwxsDPsyixf +yGKcR/QB84Rd4EYC44etsihP4oRvJ3bBC15qP9trWfzCGj5WYLILri6MrCvt +kMXH76jbmWy7gKvllI3YZ1nslXxTOB9gCPwe1+Z6mLL4SV/25YrbfxB14PAt +1fVkzPCuUq30XP1iO82+HeEiY0PIGv98MwNgmuLma9xk/LFdq/u1sgHs0aM9 +/8ZLRisp2fHEeX3g2zQ2miBExpMvZguMQvThxrKf1i9JMj46vClrJF0PEu9E +dT3bQsbR+XnBtL8A3TdKzq9RJmPveM3dvhYAydBe2i4VMu52rn57Oh4g3UPp +ZKfaav6eD+/KFADytF5zjmmR8fXR8SPmBwmo6eTeLmpARmvdDWzer3RhhP3a +7ZP7ybh+e/a2h2PasOl3kX7ZATJShN8rbKjRBs/Jz6PLtmT89/H+ckOcNvx8 +t2lbuB0ZD+il7vurqw0r6S/b0hzJyKmtMtaSoAUCOlz/XnqQ8db04rT5Xk3Q +OhHhyLhIxpfbq9/LLKuDs3PBEZsQMnJR0thlP6tD9P53h0IvkTF9Ua/TskId +hkB63/AVMgq6e/2yOqMOsQKFxtkRZEzSHOkqXlSD0cJuNUb8qt65z73us6pB +8txGdsZ9Ml5r2HHMUlsFGkZN2WxyyLiw4lOrJqMCU70+LKG5ZCw2ex0DbCqw +s+nZ76E8Mr7fuz/pQ5syTN80/3HvMRl5uK9R51yUwUjzdDe9goyVVfdHwrZt +hV9nm/Por8lY2Pi9bo2hEngzLR6atZHxciLp+14JJRg60vPwTDsZo/02bB+e +UoROg+n81x1krHj56P27ZEXI55V47PdhdR9KbvVNPzaBU4ZXcWM/GUtj5L9k +P1CAthbhKpcZMhplb2KpM94IO3XuVkX/XL0XK62QSrmNUPlIobp8lozbHpAD +mawbITeOqOFZIKOPQMLF+WdycMnOva7kNxnn2c8/jVOWA63pZ41r11Iw2SCF +XkRjQJaYc9s9UQpmLD4PddhKAyU2+qZRMQoOYiJ9Ez8NSqaGwhRJFBw56pul +8IMKzU1uWCRJwXMiET0tj6kwfup4cS2ZgtW71K8Hq1FBtcPn1udNFHzeoBp9 +bicFnl+96CoAFBTk4dT4LSwLxn569VZIwfNfdEpqB2Sg055VNkmPgqrqI/d7 +82VgSONKt/ROCt6zmciSMJQBzuFwE8XdFPTfMG6UFCQNFnoxKoZWq/Pqp2WI +L0nCl6W0P+eOUlD3mUxXghIJLL4fKnzgTsEerqaqDetIUN9Jcu06tlrv1z7v +jj5xuPfw5mtVTwruTF0pWRMrDscPX08dO7mK9+jz1v4lBvN1Qdr7AymYL67n +mt8hCtxXD/mrXqfgMH/ZVbVHwhDkR1JwiKbgDaMHplVRwjDl0NV7PYaCmzae +GT7tKQwd2lY7x25QsOaYgm2YkjAkThhvSE+kYDEnX9Wvgg1AMd9eyJtOQc+H +GnFjVUKgKUqaHC2ioJj2oDbXsgBUnuP9s7WEgt2cBp3kfgEgvq7hPV1KQZc9 +/y67PxcAw/xxpXXlq/OWfR6JuCoA1vpVnpTq1X2WPqzmJgmAj7c90/YFBXW8 +4eq1UD542Jw98bKHgko7LBT/enHDFqWUZcE+Ci4MXePYCdxQdCOa27afgn8n +nc0+CXBDpd1pxZEBCo4NvWCdLuGClp9GHmzfKbj9aWl4LQsXDMswx3WmKfg7 +1WjA/z4nyJ5WHc9fS8XbCnWbBuXYIaqPtrd/HRXLTTQ07rKxw6KBSDk/BxVb +pGZ3Jgysgw6BxVDf9VTcEcrKxUhdBxfzqilafFQM/Sef0SW0Dgb6jGwbxKh4 +xExeS4NnLWTutG/5tImKjY3BN9PorMD30GIrtxIVX9XvtKjgYIVAQf1E3c1U +rKD+XWCdWAOW/XSXu1upKP8tdVimaA2wnhn/56JORZ6gIi8f/TXg/NBfc3oH +FbdHir808GABulDUffa9VAw7fjrvxtM/RO/CoICqJRV1475Eb4z4QyT0aJ87 +bEVF0ympznWH/hBs2SPmJTZUbG2KKb71b4UY1DRYcjxIxdL4a9VCpitE+uHf +JtXOVGyOc58fn/lNSD9wnzkVQMVL5y63HvZeJN5frz109zQVndUsJFSNFoko +X9Hml2eoeDErfUGPukis6DSmUM5Rsdfr4Rehrl9Eb7vszjcXqDhsWnfqhMEv +ImXuY+KmCCpyKgb4NsktEKL4n+7XVCpmPO2bihaZIwbSOlnl0qhYTyvSDJ2d +JfKW7VuP36Eiht2QLH07SxBPA/fNpVMx8L8fW+uiZwm3LU9OctynorqJCv9Z +7lmiTEoye/MTKi7rr3TS+H8S+5emeQMbqXi5wkhxSneaoO4Pfl/TtKrfoIHi +Uco0wSzhTmV7QUXX62nNfOzTxMWTcvLXW6m40NSq8PbuDyJ35JB+ejsVTyS0 +MYJeTRGLH5oDmrupWHTjT56d2iSRXHT7i9AkFS0UAjr36Y0TxoIb/+hNreqV +mef8Qmyc+HOiUMLnBxWVPOwfnp0aI5w2N9u8maFilBF7XcbtMUIp98erawtU +PKcx0za3PErUpemXr2WhYcynZ2zmzSPEyNXR2AUhGl4IHbuoGT5MpIz4FjCE +aXjQJqKG4jpMmBr+eWUtQsP5StNhPYNh4gmbEEexGA2p3ZopVJZhIjBY5/wJ +KRqm/nfb1y5oiODziz42yqCh7ctAoePB3wgNe3X9z1o0/NFWGdpy/yuxrDH/ +jLqdhi6DrMsXrn4l6vjKtnno0NCfEnDA4/hXYneNpsLKDhpK+gkd693ylbCT +1hGQMaChzXCkmUzlAHGpR6/fcQ8NI0Z+z+YXfyHa9psHjjnScL9xUFnt6V4i +bqvAnIozDR1PdBh/N+wl9nG89Qp0oaEgwZHuINpLDJRZOnIfXa0v42phVtZD +/BTZZ7TZk4al7GSbv0ufCfH3dqI+ATQE5sMjWrGfCBeL40WLkTTc+jq+L3ju +I+F3P3arTtQq/4TWhI62j0ToSln++es0/OkR5+Wc85G4n8uWwxpLQwVFt3bj +Qx+JUZa0VJ6bq3y924KFmz8QHoVvrpDv0vCfd8QpzZz3hK/Qtv1GxTS0vu5d +/Cehk7jkfuh9ZAkNS/hYcvL9O4n4mpC9baU0rBVrOxC7r5MoOd5uYllOQ/pi +ecKceCcxX38U7appeNQjuU8u/S1x5lSKwskXNDSdd+AdfdpBXHj/bzmph4bF +VhGRRiLtxBlFWkdjLw3fNLR9XhxuI05eMrw300fDRwUnw2fL2ggn5eumJgM0 +dGv1ozXbthGGURJpf4doeHKsou1d5muCd+c2wnVqlS/HgvcW/VdEavHxi6pr +6Pju13q96aIWIoEr2tqelY5d+gyaWFQLEeVYKB/FRsdXumxi51xbiGD+xY7h +dXT8OM8sWRRvIZw8Qim3uOioQjl9su7SC0KBll7/bwMdU3my/ik7NhNP4z6s +bZOj4+GeD4TSrkai3mnrtg3ydNQ232aWTG8k2lUjXG0V6FgfZWcKrI3EUKdu +87AiHY/Pq1/RrWkgBDbcC/+rTEfFTxGCY1oNhHu8L5eyDh1Dky5DmVY9IZHA +LxBvTkf98ZrgO/Z1BMPlGH6yoOOauPsGRQZ1hLJ6w0lZSzqKLwRkzG+sIwzf +B7x9aE3Hr2NCLRsGa4lTwv1xjbZ0PKI7EVvLVUu8TsgXWXCmo/uAf9OSZzUR +fHO3pO0ZOs6to78bP1lJ+LqlZ0acpePvztnwdsNKwlXzl0JlIB0jGK2G81KV +hOmne1qS51f5jV/V4npZQUhIs+zrC6Hjs68HPAw3VhBP75XFOl6jY+9OKr1g +8ikxXUxjP36HjuX69kpROaXE0JXA6yl36dhniHV8oaVEl81b4VfpdEzYykq0 +OJUSNb+CaUpZq3q4b0rplyklonQ+41QOHaOpe9xjbpUQCg2x53wL6cj2j6/o +aXIx4dT5ZzqwkY4/ZOZcpp8VEhmUynPZTXS0zvr9mEgvJAZOBrB3NNNRxGtQ +o/xKIWHP/0OS0UrH8Ocj44pmhYSd6YDhm7ZV/dKz7/F9e0Lsa66/TeuioxiD +CLgq/IQwrgw3ej1GR3bxh6RtCo+IiPU73y2Mr+5n/ub5vOV8ouUAyxEKk45n +onKX3drziV2/zpwKmKJjgLDktWK/fGKn+vE75Fk6EpFP/kY3PiSIAtM5vxU6 +pp/4kTZzMo9QyxRMl+Zn4GS1q1bKUg5x5fjacEcBBhZYXPu00pFDfFT95ZUt +yEDuy7EG93JziMCGXp3NwgzMWK+RUXsgh6gbyunSJTFQNTFrQbLqPmG6keC3 +ozHwV1Kw1PqYbMIl/3hwiiYDTUfCM185ZRFlfodd+7UYqBF3YHlWL4vg2GFh +St3OQPME7zkrShaR17ZNIk+XgXUOFuYVA5nE9BRLWYUeA6k3P4TwO2USQSpJ +k90mDLSU789O8c4gEsoa7MQcGLiSm5WWYXuXaL9QnPKfIwM7RZ5955O/S3Du +zuo+5cTAqIGZ6JcLd4ignkvWHS4MLOQQ5FO8eYdwYdE3jTjGQB65keOXP6QR +6sZ1Osu+DGz7tmGrgstt4l1flcSXUAYO6jPXKZbdInhy8g/whjMw0TjN+dL1 +W4ThyduJOlcZeJ4za72E6y2ikjVIKDmSgeL6Q8mcIreIzI06XHtjGDiSmdve +dTqZ8PWpWKpPZqCdSNvEqFESIbSurPv+QwYmhFN8d4neJD5lEDsW8xlYRs/U +FJxJINKJFxm7Cxg4tHHgntTrBGLLme7jzCcMtDKm5y5cSiCMJ36vqJQxcKle +/FPebDwR8hYo1XUMXBu58qBoII6YTms99u4DA/X77289/D2WeLrdsp3excDN +4W/0IltiieCuz6oB3Qz8vSNsdiIvluARZC6L96zi53/Um5yMJeSv8EUfGWCg +sSAH4/vvGMLhuFXR2DgDa+Im1zP0o4mNHL2iOkwGNtiZfKjhiSamslzORU0y +0OVU36eyrutEUJ//zq3Tq/Ubvi7UeF8nki2SP/rNM9Dt6PQt6Ywown6SrNO8 +wMC9sA+TvKMIucgHd8UWGViFr3mP60YRJQ2V7pW/Gahy4esD8U/XiHMOBm3c +KwzUvqusN5tzjdD/80rl8J/VexyYiKWfvkZwplgnFvxl4LvNoiz5hteINxp9 +v//9Y+A6rFu4KnqN+B+7Zi0C + "]]}, "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:eJwV1/c/1g8XBnBRyCbrNu8pojIqRJ9zjK+EkFVK2VJGUakkpUIihBApI5kp +M2RlRUXSoIwksm4iI4p6PL+c8w9c53q9D8XphIUrKwsLC2l1/H830cOFWVh4 +kFfUZsOQ6iRcumi5/tJmXvxrdzq1h3MSzo7GbTt4mg+5bPvNwuqYMKjVZReR +yY9LajH3L+1lQtCk8byDuwAe++vXap04AcrN7l05XIKYaSWm3uo9DqQN7Boy +6YKovFXe+dbEKFDGvhSjgRDmcLDk1rz5DmuHzw26jAih89WnRw7bDAHZOiaq +5OIGFNUjijhefoVDpqP7i8jC+HaNpilvXx+8eVZzr6dcGCPSPxGbc7tBxswq +kd1UBDs4Jz0dZ95BhIfcoy8/RJCZfEUg7nM7qC2fw6EQURxVTAu4VP0ClkQ4 +f8RvEkPPR/IUjgvPIcnaxtz4lRj6bVQbC3KqgNPrGcqKjuLYSjKhREcUgbeB +smIFGwk5vR5fVmbPhbRfzx74JpPQ4d9C7wv/dJhVuab5GSTQfnih5rP2HSDH +cAfpfZVADHT/rqx2C0LcNuzuPiuJRIZB/fnhUOBu3C8vKSmFlY7GlNssl6H1 +ttT1sGIpfPb5bQqOngGnm6lJS4bSaCHPVb1F0hsk+BxbxCakcTFkSq520Rm4 +2dJPO16RweVLTwq/KBwCySBZbVs5WcxI/kET7N4H7Ay7MosXshjjEXnALG43 +xN+L6Hq2hYyj8/OCKX8BNE6EOTIuk/Hlzur3Mn+2wa/zzbn012QsbPxet8ZA +CTLEnNseiFIwbfF5sMNWGnxZSlm5cJSC2s9kuuKUSKAuSpocLaKgmOagJtcf +AZA9qzqev5aKdxXqNg3KsQNdKOIh+z4qhhw/m3vr6Qohiv9pf02mYtrTvqlI +kTkisejuF6FJKpor+HXa6IwTO+y36X7WoOGPtsrglodfCRfz40WLN2i49XVs +X+DcR+LS+39/EnpoWGwZdsNQpJ14GvNhbZscHQ/3fCCUdjcSgbf3SNqeo+Pc +Ovq78ZOVhFPnyrR/Ix1/yMy5TD8rJNTSBVOl+Rk4We2qkbSURcSVNdiJOTBw +OTsjJc32PiG0rqz7YR4D40IpvrtFbxNvdvT9/vePgeuwbuG6aDhB3fcjsjae +B9P27ZAukp2EP6pz95gdvCg34B8TP8YEJaEyw1kefiy19sgxi2RCRVPPrVhp +AexY683xdnkCum0PugVXCOCzrr0TrEIT8MDzKYeLjSBq1zXWv60cA+m/P89s +nRNEvvrLfgnMERA6qvSqM14IsUP29J+UYRgofrPgqCWKFPswDVvqKxANq0uo +7hbFK8LcihSvRni5/bHsjL8Y1rNMMPJ6qiH08S7UEhVHzyXL1GtVpTCTlbvZ +t0gcY1qEjdaQHwOn7MLIbTMS2v22jZCbz4SXwuQTDydJeICcdHx/3D3gGtzd +FxktgbI3WsZ5euLAMoB/6KaSJIptyFkrVxgBhrdLn55vlcQrhM3Ze7euwrjS +zgMWR6WwKMp0lCfQH+JvHbml81cK3W/szK7b5As1bZcLOZOk8U7oG672UHeI +uR50r2qHDNK+DdO9zzvAhnqHA4ffy+AWT97WjHU2IPBu19IHP1n0PPxTt4Vt +L0QcOHxHdT0Z07yrVCs99WCEPfzuyf1kXL8zc3vemCYkzm1kZzwkY3jDrmMW +mirQ1iJc5TJDRsPMTSx1Rhvh+fXLrgJAQUEezh2/hWWB+/qhM6o3KTjMX3Zd +7ZEw5DVnTrzsoaDSLnPFv17ckK5v3/JpExUbGwNvp9BZQTrHfeaUHxWvXLja +eth7kdi/NM3r30jFqxWGilPa08TI9dHoBSEaXgoeu6weOky07TfzH3Ok4X6j +gLLas72Er9D2/YbFNLS66V28EtdJJBcfv6y6ho7vfq3XmS5qISTi+AVizeio +O14TeM++jpguprEfv0fHcl17pYisUsKoMtTw9Rgd2cXzSNsVHhEu+ccDk9QZ +aDISmv7KKYN411cl8SWYgYO6zHWKZXeI6ZTWY+8+MFC3/+HWw9+jibmd1W/t +jXnwnpxBQLrCJOzqpr3ffokXRXlcNxG/mWBxMbPmYR0fet7Zscibw4Rc5911 +ttP82LytRMhvIxPyae82z0YLoO2b+sKMAxNwnBT9I0RZEMuTx8tVxcch+fry +R7lXgjgmwqU3d2IUJORDasO8hbC7XMyxX/M7lPH/eZsqIorpT6RownOv4UG9 +FLPjsSj+HfcWMFnfDIOZhzgaLcTQOjl372+FOohmNTJsmBZDh9Kuq/yXn0JR +90hBe5g4Ki0WZ5/59wSeqcaGZSmQsDu09HDCWBbsYJ8Ki2gk4VbVoaDIjlT4 +u94tfJu7BJ552WzR9DMedobeLBpll8SI4aLPSp5RMHLR5V92qiTmRopUTKUG +g/+iYd0OHSmsjfqps0f2IjyJrY4Y7pZC/eWDA1mzpyD6kYBckI803miqZCnZ +7AE2xj5q4wIy6KjXpDVCc4IopyA3+zwZ3Nawm1R25gCI5hYkJZjKooLJbnWy +mDnwe4TP9TBl8ZOu7Mtlt/+gppN7p6geGa20N7B5v9KG0cJuNUbsar6zn3s9 +ZFUDpzSv4sZ+MpZGyX/JzFEA1Q6fO583UfB5g2rkBX0KzNcFaO73p2C+uI5r +foco+HjbM21fUFDLG66HB/PBQJ+hbYMYFY+Yymvs4FkLqYd/G1c7U7E5xn1+ +fOY3USYlmbn5CRX/6C530vh/EnUpuuVrWWgY9ekZm1nzCHGlR6ffcS8Nw0Z+ +z+YXfyE8Ct9cI9+n4T/vsFPqWe8JXv3thOsUDX9yLHhv0X1FuMf6cilr0TE4 +4SqUadQTTx+URTuG07FXn0ovmHxK2DTX36V10VGMQfhdF35CmGwk+O1oDPyV +ECi1PiqT2GZUp/XHl4Ft3zZsVXC5SwS9BUp1HQPX3ljOKRqIIcyPUkxkB3nQ +tWSXzGfhSai42Xgsg8qHxJ2O64EfmcCR1dwJtvwoJfLi38QJJqR8itX7rSuA +5u5Nz9TbJmBt9Nd7YoMCuIZaOkZvHIf+2n5ZnQBBLFRyf5dkMwbXzVz0cteI +4fQA0zNytB6Kmlg1ZDLE0Io6tqEs/BkE2qloFGuJI+moSmiAaAkon/XKF+kR +x18loa3D5/LBitvW4NoZEvJcYxodlHsAR2gWVnWiEvixROrtZGsyiFQqbB0r +l8A625jsupkY8PS5JaJmIYkD4RPC3so3IDef/aTRT0l0n3x/ZaIoCA46Kk57 +3ZTCywo53evFz0FA1L/bKTRpvFfndKQ37CQwJ6e1o+ulkcYmX/2R6gbtTbfW +R9nJYIh8RuymicOQQEGjQysyqN3Ypyr8zhK4l1/vF74vi09MhWas5Y3g1p/T +Gr8kyfjo8KaMkVQdENDi+vfSg4x3phenzfapg6H62W56BRkrqx6OhGzfChrT +zxrXrqVgol4SvYjGAHOdKBUDy1Uf6KakiS9JAsVsZyFvKgU983bEjFUJwbAM +c1xrmoK/kw0HzjzkBOe8M+rTu6i484b4Sz0PFkia+xi/KYyKnIp+vk1yC8Ti +h2a/5m4qFt1aybVTmyT4TkceG2XQ0Palv9DxwG+E+Hs7UR8/GgIz74hG9Cfi +3KkkhZMvaGgy78A7+rSDUKCl1v/bQMdknox/yo7NxOu4fJEFZzq6D5xpWvKs +JhQaoi/4FtKR7R9f0dPEYoIoMJk7vUzH1BM/UmZO5hIBKgmT3caMVW/1ZyZ5 +pxG+PhVL9YkMtBNpmxg1TCAcjlsWjY0zsCZmcj1DN5Lo3Uqffczgwbu202+s +t0xCf+4z74M2vJho1c/VsmYShlRTzl9O4kOBlHdTm0uZ0GwWxTf7kh+N/zKS +ObWYEH89SjA3QAArhS8rWp+fgLYTAc6J0oJIklpYsdYfh897g0LTywTRMENY +sqZgFO5xFmu6HhTCPg9GQ3zwd0irjoY6VlEs1tYOrRlqA88vRvEHk0XR7ur2 +sSMDzTDVp3LhESGGl+92OXW/qQMRJXMTjn4xVDI0yLb2KocNPiE/As6I44dx +iTWq9YUQV+V48IkoCctyW8pLf2YD869Vwr/HJJRbLD64Ni0NFqXPOHFYSWDZ +8EytrmAiPIp4TRKdk8CAhb9S109Gw46fWhkYserbsjo9qAoB3SPmc/JbpNDg +pQTPy9BAqBL2uqHeLIUWnY4COHoazqcccNh1WBqfV1SQ+ZI9oVxpbIXlrzR+ ++fyNq4XTGdqKbnkNxMtg2vs3pO5mW0gUOepxbqcsZg9sr/08Yw5cLaesxT7L +Yq/km8J5PwPI1XjNOaZBxtdHx4+YHSQgWqDQKDOMjAnqI13Fi2qQzyvx+PSH +1bwrudU3/dgE46eOF9eSKVi9e9vNQDUqHD98M3nsJAV7PPq8NX+JgZVulSel +ejXvpXnV3CQBuJxbTdHgo2LwP/m0LqF1MKiut+R4kIqlseHVQibLhNuWJyc5 +HlJxm7EK/3nuWUIp+8er8AUqXtgx0zb3Z5Swk9YSkNGjofXwDVOZygFilCUl +mec2DV282wKFmz8QBhESKX+HaHhyrKLtXfprQmDDg9C/ynRU/BQmOKbRQEhI +s9j0BdHx2dcDHgYbKwg7kwGDN210FE/NfMD37QlRN5TVpU1ioGp8xoJk1UPC +hUXXJOwYA3nkRo5f/ZBCGE38XlYpY+BSvfin3NlYQtPuuteJKh58eLm6x01i +Eg462K1tWeJFlaERPfsBJiTZ1dwkqfEj+eC94sRLTMh783TcQFkAtZ6eM80e +noCpuZQr7W0CqKMZNPtvYhx0RF/FWhwTRP8K5y23wsbAzDNmUm1SFBMjdswz +sxqgZqU7jyNKDC++YG+rKagC1hB17V/y4hhE3Hv4fbgEovl5JhuaxbHg1bqm +J02PYMvtjWI3nUhYs99HVm19JghLVTiqsUqg7cbcnQobU0CgXYO96oEE3iep +1X0YiIUBv44AB5DEpNuKHS+PhcMSuX/DYJ8kTm6tOX/27hWgvlClO/hLYZbk +x/sLeuchTOBx7A8BaXTwWycYYu0DH/o0zpoUSOPgTP5g4t6joJy1/n3mHhns ++Hf/4WtXe/jgY76vd1QGN91pjeUbtoLIo8Hy8zdksfYG6Up+hDHwbRobjRMi +48kXswWGQbqwnPqyLcWRjJyaKmMtcRowfdvsx4PHZOThDqfOuSjDFTv3upLf +ZJxnv/g0RlkOOIdDjRX3UPDMhnHDhABpiJ8w2pAaT8FiTr6qXwUboOWnoQfb +dwrufFoaWsvCBaznxv+5bKMiT0CRl4/uGuhtl9V/c4mKwyZ1p07o/SKyRw7p +prZT8URcGyPg1RThH6h18YQUDZP/u+trFzBE/BSxMdzsScNSdrL136XPxHz9 +UbSrpuFRj8Q+udS3hJNHMOUOFx1VKGdP1l15QZwS7o9ptKXjEe2J6FquWiJC +6zNOZdExkrrXPepOCaG/7fg98iwdiRtP/kY25hHTUyxlFToMpN7+EMTvlE6k +b9Ti2hfFwJH07Paus4mE/DW+yCMDDDQS5GB8/x1F3F0XoSmYzYvHTHz6VX4y +ofbFI7a273zYYOxrIn2XCYnmiR9PzzPQ7ej0Hem0CMI8t4utW4gHdaN6t6Qp +T8KWOI4qpg4vemzL/mq/bhIKeEn7vUL5UJGS7TNbyYT3/xWXQjk/bmjq/eCm +zwSeZ15Xg31X85vb0c8VNgF/k3ylKcKC2MF1x63Jdhz8nzTYO+Sv/mMb7Efd +2kZh4FzrgoW5EC7mJ5T05X6H+LhDC2ZLIpiSpuO+1r4dOiYdPWRviWLdlcgv +SqYvYG5Janv6NjG80Zdm3kh/Dt1oaZrzXgxH1rPsZn4vB/3qD/xWHuK4PbrZ ++JhcEQStaa3fxkvCt889rakXcsDgAqdMRSYJj1sfairjSYeFrOW26T0SeHVw +adkpMxHc+D3b8sclUFFNy6mjIxqO5G88w3NFEkUvFGiImIWCnKAVXzpdCgOE +f3pb6F4C3Q/6YQNVUrj976DeK7cz4H074KKkpTQ6sbf+KjvgBcekGc4Rc9LY +EnEp/sAlZ2B+Js2kRsggETybJOB3EA4aN7xzV1717ANr+YvO++D6wsi60g5Z +fPyOupPJthtSPZROdqqt9uveD+/KFACGQNpm+BoZBd29flme2wadetP5rzvI +WPHy0ft3iYrQ3OSGRZIUvCAS1tPymAoP8m6/VvWkoH7ycsmaaHEwyB9XWle+ +2sdln0fCrgtAh8BisO96Ku4KZuViJK8DtswRsxJrKrY2RRXf+bdMEE/9beZS +qej/34+tdZGzhNPmZus3M1SMMGSvS7s7RuypUVdY3kVDydNCx3q3fCUeZrNl +sUbTUEHRrd3o0EfCSfmmifEADd1aT9OabduIoU7t5mFFOh6f33ZNu6aBMPn0 +QEPyIh01x69rcL2sIOz5f0gyWukY+nxkXNG0kPBv6NXaLMzAtPU70moPZBEB +PVesOlwYWMghyKd4+x6x5Vz3ceYTBloa0bMXrsQRBR+1AhNyeFDebX6LsPQk +5O7J3ndwmBf/C2gD/mEmOKvv9GAn82Pgtn2yQqFMKHq5h5iUE0Djdx7LLjMT +4LwxYC6nQQA3+J6a0vo3Dr46z/f22AviQbTY4Z4+BkX+OfWLg6KoXHJE79X6 +RmgkNbouXxPDnMAG+3m9amhM2knckRVHEQy0NTEvhbpDh3iTq8Tx8c2pIIpP +AUh+jrwkaEtCp8XxnLWBmXAi0XOU+YuERslRw097UoD3QJ1PZpIEFsXuzQ+2 +i4OkpRPKv7ZLotkRywuPuSOA3NM6/OidJDqy7eOJErkK7P47iE8npTA4JzJM +9ct5EHgbEpPIIY2TRyZOjtf4wMsPdnGbHkhjTYDCWPnoUfia8J+mCsrgEw9S +0LKwA8zd6X5/t18G36RXdp0/ZQ1mKV+jhy/L4t6Q3ac7/zOBvTq05994yWgp +JTseP68LP99t2h5qR8YDOsk2f7U1Qb/p2e+hXDK+37c/4UObMmTHEDU8C2T0 +EYi7PP9MDoZ2XOuW1qfgA+uJDAkDGejQtNQfu0XBmmMKtiFKwlBpd1ZxZICC +Y0MvWKdLuMCin+5yfysV5b8lD8sUrYFlrcYkygUq9nrlfRHq+kVcPiknf7OV +igtNrQpv7/8gnrAJcRSL0ZDarZ5EZRkmBsosHLmPruZRxtXctKyHKDnebmxR +TkP6YnncnHgnEci/2DG8jo4f55kli+IthMF7v7d5VnT8OibUsmGwlqj5FUhT +ylj1gfumpH6ZUmL3r3On/Kbo6CcsGV58Op/IbdsukavNwDoHc7OKgXSikjVA +KPEGA8V1hxI5Re4QPILMP+I9DNSd/1FvfDKaYE51hWTE8qJhzwXxPQtMuJ6u +8LXiHR++TnALeJLOhIC+M/pbpxn4u+HrQo33TaKkodK98jcDVS59zRH/FE7c +OKrC47meB4O0qA8aVCbh4/VHg6XqvPhOpU2JwjEJQn8+Nn27yIf2Kr67GquZ +0IP/rf9ewI99LpVv/xgyweC9nfYpLwFU2199uzp6AhKeePm78guiT8aJSiuX +cXj5dcgYsgTx7auXS+G9o8BSaPVhj7EQztg84T5U/R0EWZ6/TZgTwSbvFJGM +u+3Aembyw5oIUVT5UxCaGfwCFkKFYu5uFcNR0cXCSrPnoPnKyuz3GzEUdzUf +8KNXgJ3zyn1wE8fPly0tCdsiWMxYXvDjJGED+6toq7ocOK3p9PV2Kgn/rFg1 ++eqlw5xn3dVhfQm8JxnfUzSdCA0dWhsXhyUwd/nUz6o1t8A3TPrIzwBJnL3W +7vz+Tigkjlsn98tK4eeVynHVtEsQUvqEc3u5FIb3X3q4MesMuN/ii+AylcZx +iqbM/govqBdpEOn8IY0zFd8FnzxzhuWpPtWgUBk0DYjxc35zEHa6zXA4Ksqi +PxY3HE3ZBy94qf1sr2XxC2voWIHxbpAM7qXtViHjHufqt2djASL3vzsUfIWM +qYs6nRYV22DoSE/euXYyRp7esHN4ShFKpoZCFEkUHDnqm6Hwgwr1nSTXrmOr +9/DLxrujTxyIr2t4z5ZS0GXvv6vuzwVgUU+knJ+Dii1Ss/pxA+sgrkfzwmFL +KppMSXWuO7RC5P6xbz1+j4oYckuy9O0ssXKiUMLnBxWVPOzzzk+NEXV8Zds9 +tGh4huJ3wOP4VyJ4uSz/4k0a/vSI8XLO+kicvGLwYKaPho8KTobOlrUR7aph +rrYKdKyPsDMB1kbCVf2XQqU/HcMYrQbzUpXEwEk/9o5mOop4De4ov1ZIfFT9 +5ZUpyEDuq9F6D7KzCM49Gd2nnBgYMTAT+XLhHpFKvEjbU8DAoY0DD6RexxGj +sbdDFFN58I2iO5urzCRYEKbnaD28yLL1yrf9I0xooS9+ChDlx6tzFbvLbzBh +R4uQO1IFUPFhOwvj1wTcQ49HCTUC+DHB688jzgng3l+VK3tIEHmlG/JyC8Zg +aM32zT19opi6O5G6W6sRXmRV1C9cEkNZ1t7FS1HVIMfQhnEJcXykmNmxOaQU +utdcTQl5Ko6HN3ZnU1sKICagvtjSioQ8kDprVJEJd22a81p/kpC5h25wTf0e +8Ehf25h0WwLXXuo/6ZUcBwuVcENXRRLjPMsP/TocAdvKa9tj2yUx7L3rkx2W +V+GcpcYrEU8pJHHqZWza4g+WhT8FJ1ml0e9606mQOR9ofDuVTrovjf1Hfhg2 +qLvDzuhvE35aMnhpKZdtzMAB1hbcFb34SQbTQz75ilRZg3I5f1PfBVmc2ufs +qfLABJgmuDmcm4w/dmp0v1bWA8/Jz6N/bMn47+PDPw0xmjDV68MSnE3GYtPX +UcCmApWPFKrLZ8m4PYfsz2TdCJ32rLIJOhRU3TbysDdfBqYcunpvRlFw08Zz +w2c9haHoViS3bT8F/046m34S4AZ/Qd147c1UrKD+XWCdWAMRvqLNL89R8XJG +6oIOdZFglnAns72gouvNlGY+9mnCxGDllZUIDecrTYZ19IYJG463Xv4uNBQk +OFIdRHuJ2JqgfW2lNKwVazsQbdNJRDgWykew0fGVNpvYBdcWQnlbw0lZi9X/ +a8EvbX5jHdFl/Vb4VSod47ayEi1OpUTLAZYjFCYdz0Vk/3Frzyc4dpmbUHcy +0CzOe86SkkEYnLwbr3WdgRc5M9ZLuN4hArs+q/p1r/brrpDZidxoIu7bxUee +Ybx4yvtA2+5FJkxGjZgpv+RD+Sfm3cOZTJjKcLkQMclAl1N9n8q6bhJyN3Lu +iy0ysApf8x7XjiB0V16pHF5Z9cjARDT9bDghb3BEoGwtD1ou/ZawUp2ETVdZ +/JJUeTFe6THxb7WfG2e2r8ic58MZrs875WuZcITgU9PM5ceL9UE9YMyEIYf3 +4uPHBXDdL46ViLgJcNGayObgFcRtg48tYo6t+sN//nnBA0GsEb3/QGhoFAT2 +Juk3GQqh/olAkejm79BeeqpW66cI2pY0GN961g5JGmrcp8JEUc76gk1I2gtY +NL1ZR9oshs8EY6g2rs/hePSHN+ltYmgSNmHsqVcB7jsE3UudxTGqXTe2y7cI +1M6ICoqzk9DLjnvX5m85cEOcX2/tPRKq3tkjxmWfDqfN0vvtdSXwTqBmbp7o +HfAtpL1P+SaB82ujxl0lbsHy2UQLV39J/LnGiXajNhQsuj5+DZCWQrmV6hvc +by9Bdqab4ZdSKaSO3Pa+++IMuEbt33DFWBobDm2plxz3gilBoR+nJ6XxYLNd +KPmzM6xdqrWcuSaDB5CpGLB8EHJPcVL75GXRlLP19IPKfeBGAqO8VlmUJ3HC +txO7oftWycU1ymTsHa+539cC4OxccMQ6iIxclBR22c/bwJtpnmfaRsar8aTv ++ySUQImNvmlUjIKDGE/fxE8D8++HCnPcV33M1VS1YR0JKi/wrmwtoWA3p14n +uV8AIvpo+/rXUbHceMeO+2zs0LswKKBqQUXtmC+RG8NWiIGUTla5FCrW04rU +g2dnCSPBjSs6U1S8kp7r/EJsnPizY/4ZdScNXQZZ/1y6/pU4/TB6q1bEql/i +WuM62j4S5xRpHY29NHzT0PZ5cbiNqHfaun2D/KqPzbabJtIbCV+31PSw83T8 +3Tkb2m5QSaRRKi9kNtHRKuP3YyK1kLh2fG2oowADC8zDPy13ZBHtl4qT/nNk +YKfIs+988veJT2nErsV8BpbR09UFZ+KIYN/6G2eSeVA7tHYdj+wkPNRI4+b8 +yIth7rp+50aZ4C+5X7BckB8l9pq1B0cwYdHg1/KYrACaK9GCVpYmQKttMIyv +SgCTwtqE7XgnoPur5qfnBwSx7+5K+vOSMbjY5O9k0iOKwmK3D8tbNUKL97aZ +UxfFMDg25GRQaTXYjFfVxoiLY865bVeM0kph6H2863KJOPYeStuyMFsAbXt7 +2+b2kZD95xlWua5MKN5+ildjetXLpq8+vna9B+H/XK8Ix0qgXeQ3cblncfAg +eaP66BZJVLvcXOgTGgE1D3c2sL+WxBcBbp4WvldBBSsES45JoaO77P6/1v5w +Oi17XwKLNLKwdeRF8fvC8zfqm27dlcanMq4e2fbu4Bah2kTSlEGhgxIu4g4O +wFMeqD75UQbXkHhFagasIbVJ7ovteVms4K68++GdCVR1mn47wkXGhqA1Z/JN +9WDT7yLdsgNkpAi/V9hQowkNoyZs1llkXFj2qVWTUQF9rftVkT9X+9xSI6hS +biMYndapt0QKXvyiVVI7IAMBp0kKDpEUvGWYY1IVIQxblJL+CPZRcGEonEMf +uIEvz3wrtxIVX9Xrm1dwsML7m7WH7p+lorOauYSq4SJB3R/4vqaJijsH9RSP +UqaJpBHfAoYwDQ9ah9VQXIeJmK0CcyrONHQ80WH03aCXuOJ+6P2NEhqW8LFk +5Z/pJOK4Iq3sWenYpcugiUW0EAyXY/jJnI5rYh7qFenVEUPX/G8m3adjnwHW +8QWXEmHr9d8tjNMxeP72xdw/+UTZ6cOu/RoM3BFz4M+sTgbBk5V/gDeUgfFG +Kc5Xbt4hnu60aKd3MXBz6BudGy3RxGhfB+67xouxPs/Y9JeYkBpiEOrRxIec +MaURF7KYsJGjV1SLycAGO+MPNTyRhP0kWat5gYH7wAYTvCOICw56bdzLDNS8 +r6wzmxVOcCZZxRf8ZeC7zaIs+QbhxP8AMZgtAg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1mOgFnYYxuFzsm172ebC0rJtLSzb1jKXa9m2bS7Xsm3XrrN9uHr/v7vn +9KUTkjZqW+n3wICAgLjBAgKCPnf5oSkRWK/rk40nehy5ualH4ksCdutmRGSD +bkAMP7FVNyQs2W1PfY4nD7f0HwRnj25OJDbqhsT09dt0I8KRw/bM5wTycluP +IgR7dQsis0k3IifP9UTycUePJiT79G9EYbNuTC5e6Enk564eQyj265ZEZYtu +Qm5e6skU4J4eS2gO6FZEY6tuSh7CcNDWmuhs083IS1jCEZ4IRCQSh9y1IQbb +dXPyEZnDtqDfuJjs0C3Izys9hYLc1+OIwhHdlljs1L9RgNd6KoV4oMcTlaO6 +HbHZpVtSkDf6T37moZ5ANI7p9sRht25FId7qaRTmkZ5IdI7rDsRlj27Nz7zT +0ynCYz0p6PuJE7oj8dir21CY93oGRXmiJwd9/3BSdyI++/TvFOGDnkkxnuop +xOKU7kwC9uu2FOWjnsUvPNNTic1p3YWEHNDtKMYnPZviPNd/EoczuiuJOKjb +8wuf9RxK8EJPC/qzyFndjcQc0h0ozhc9l5K81NOJxzndnSQc1h0pwVc9j1K8 +0jOIz9+6B0k5ojtRkm/6L0rzWs8kAed1T5JxVHemFN/1fH7ljZ5FQi7oXiTn +mO5CaX7oBZThrZ5NIi7q3qTguO7KrwT9JbPQVpZ3cg6JuaT7kJITuhtlCHS/ +yFaO93ouSbis+5KKk7o7ZYN+efeLbeX5oOeRlCu6Hz9xSvegHMHdL7FV4KP+ +i2Rc1f1JzWndk/KEcL/UVpFPej7JuaYHkIYzuhcVCOl+ma0Sn/UCUnBdDyQt +Z3VvKhLK/XJbZb7ohaTkHz2IdJzTfahEaPcrbFX4qheRiht6MOn5W/elMmHc +r7RV5ZtezE/c1EPIwHndjyqEdb/KVo3vegmpuaWHkpELuj9VCed+ta06P/RS +0nBbDyMTF/UAqhHe/RpbjcCA//7BWuYjLXe8h5OZS3og1Yngfq2tJoEst6Xj +rvcIsnBZD6IGEd2vs9UiGCts6bnnPZKsXNGDqUkk9+tttQnOSlsG7nv/QTau +6iHUIrL7DbY6hGCVLSMPvEeRnWt6KLWJ4n6jrS4hWW3LxEPv0eTguh5GHaK6 +32SrRyjW2DLzyHsMOflHD6cu0dxvttUnNGttWXjsPZZc3NAjqEd091tsDQjD +Olss23bvxoQntt7hswlxvHcG/v//i6xu/wVs/QNX + "], 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]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + 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" -> {{3.5, 11}, {0., 0.9124622705136872}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.500000000000008, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[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:eJwVVHc41u8XFoVssl7znSIqKyP6nIO+EkJGpZQtZRShkpQKkRBCpIxEkjJD +VlZUJA3KSCLrJTIiqp/fP8+5znXuM+77nOuhOJ2wdGVlYWEhrT7/t030a8Is +LDzIK7pvw5DqJMgbHhEoW8uDVku/JaxX/cijKjye63kwRId6r0FlEizyuti6 +hXhQP6Z3S4byJPRupc8+ZvDgbdvpNzZbJmFue/VbexMevCNnGJSpMAnUvT+i +axN5MGOvhnSR7CSE+tZH+qfyoG547TqeVX80/maYYjoPvlF0Z3OVmYSCjzrB +SQ94UN5tfouw9CRo2131OlHFg/cvVve4Saz2P0oxlR3kQdeSHTKfhSfhwnmr +9Rc28+JfO7/0Hs5J2HSZJSBFlRcTlR4T/zgm4ePVR4Olmrz4TqVNibLqb0ng +qGLq8aKHeu5X+3WT0J/3zPvgPl5Mtu7nalkzCTu6ae+3XeBFUR7XTcRvJoz2 +deDeK7wY7/OMbecSExK+nX/kGcGLp7wPtO1aZAJzqissK54XjXrOie9eYMLt +dVHagrm8eMzUp1/lJxOWVefuMDt4UW4gMC5xjAn3tTK4OT/yYoS7fsCZUSZY +EmZnaD28yLL10rf9I0zI25279+AwL/4X1Ab8w0w46GC3tmWJF1WGRgzsB5hQ +cb3xWBaVD4lbHVeDPzLh9GiC+kE/PuSy7TePqGNC48y2PzJn+XCG6/N2+Vom +CC1/bPp2ng/tVXx3NFYzoYCXtN8rnA8VKbk+s5VMGFJNO3sxhQ8F0t5NbS5d +ned8ds39Oj70vKWxyPuACelhhuEeTXzIGVcadS6HCZMxI+bKL/lQ/olF93A2 +E65mKnyteMeHr5Pcgp5kMqH2xSO2tu982GDiayp9mwlKQmVGszz8WGrj8cA8 +mgmBkvsFywX5UWKPeXtoFBNa6IufgkT58fJcxa7ySCY4a273YCfzY7D6Xlmh +cCak2NVcJ6nxI/ngneLkC0zgyGnuBFt+lBJ58W/iBBMGdbrsorL5cUkt7u6F +PUw4QvCpaefx4/n6kB4wYUIP/rf+ewE/9rlUvl02YsL7/4pLoZwfNzT1fnDb +yYRm8xi+2Zf8aPKXkcqps6q/864622l+bFYvEQrYuKp3U8+NeGkB7FjrzfF2 +ZQIWDX+tjMkKoIUSLeTP0gRotAi5I1UAFe+3szB+TUDRy93EpJwAmrzzWHGZ +mYCHb56OGyoLoM7TM2a5wxOQ9ine4Lf+ar570zPNtgkImTSZd3AXwGN/A1pt +kidgyOG9+PhxAVz3i+NPVMIEGL630z3lJYBq+6tvVsdOAM8zr8uhvgKol9fR +zxUxAYlXYwTzggSwUviios3ZCcinvds8GyuAtm/qC7MOTEC37UG30AoBfNa1 +Z4JVaAJ02gYj+KoEMCWiTdiOdwLuoMejpBoB/JjktfyIcwKcNwbNPWgQwA2+ +p6Z0/o3D1Fzapfa21X7aIbP/JsZhbezXO2KDAriGWjpGbxwH5Wb3rgdcgpht +LabZ6j0OLjoTuRy8gqg++Ngy7tg4JD3xCnTlF0SfrBOV1i7j8DfFV5oiLIgd +XLfcmmzHoe1EkHOytCCSpBb+2Owch+Ok2B9hyoJYnjperio+Dvc8n3K47BNE +3brG+reVY9D9VfvT8wOC2Hf7T+bzkjHg3l+VJ3tIEHmlGx7mFYyBr97zPT32 +gngQLTXcM8dAT/RVvOUxQQyscN5yI2IM+mv7ZfWCBLFQyf1dyr4xIG1g15LJ +FETlrfLONyZGwTdw/nnBPUGsEb17T2hoFF5+HTKBHEF8++rl0rXeUQh80mDv +kC+IfBvsR93aRuHznpDwzDJBNMoSlqwpGIXUqysf5V4J4pgIl8HciVGQ/vvT +f+vcKr7+YkAScwQoY1+K0VAIH3Cw5NW8+Q4Ce1J2NhkJ4c4TwSKxzd+BpdD6 +w24TIZzZ94T7UPV3GDjTumBpIYSL+UklfXnf4Q5nsbbrQSHs82A0JIZ+Bwn5 +sNoIbyHsLhdz7Nf+DkJHlV51Jgohdsj6LacNw9rhM4MuI0LofPnpkcP7hoBs +ExdTcn4DihoQRRwvv8Ihs9H9RWRhfLtG24y3rw/ePKu501MujFGZn4jNed0g +Y26dzG4mgh2ck56OM+8gykPu0ZcfIshMvSSQ8Lkd2ktP1er8FEHbkgaTG8/a +QZDl+dukORFs8k4TybrdDokJhxbMl0QwLUPPfa19O2RUx0IdqygW6+qG1wy1 +QRn/8tt0EVHMfCJFE557DQPFbxYcdUSRYh+hZUt9BWorZ3AoTBRHFTOCLlS/ +gBQtNe5TEaIoZ3NuX1jGC2D1n/ywJkoUVZYLwrNDX0DHpKOH7A1RrLsU/UXJ +7AV4fjFOPJgqinaXt40dGWiGe/VSzI7Hovh33FvAdH0ziEbUJVV3i+IlYW5F +ilcjnG8KdDLtEUVhsZuH5a0bYWjNts09faKYviuZukunEYoCH9QvDoqicskR +g1frG8HcM25SbVIUk6M05pk5DXDV3MUgb40YTg8wPaNH62FJhPNH4iYx9Hwk +T+E49xwWza7XkTaL4TPBOOo+1+ewEC4Ud3urGI6KLhZWmj+HuSWpbZnqYhjZ +l2HRSH8OU30q5x4RYnjxdpdT95s6GMw+xNFoKYY2qXl7fivUwcttj2VnAsWw +nmWC8bCnGlq81WdOnRfD0PiwkyGl1fAip6J+4YIYyrL2Ll6IqYZGUqPryhUx +fBDcYD9vUA01f7ofcsSI4fkX7G01BVVQ1MSqJZMlhtbUsQ1l155Bis0+C5NX +YhiwUW0sxKkCjsd+eJPZJoamERMmngYVoP3K2vz3GzEUd7UYCKBXQDdamT14 +L4Yj61l2Mb+Xg4iShSlHvxgqGRnm2niVQyyrsVHDtBg6lHZd5r/4FMIf70Ad +UXH0XLJKv1JVCvvGq2rjxMXxwRn1S8YZpSDH0IVxCXF8pJjdsTmsFBpTthO3 +ZMVRBINtTS1KgTVMU/eXvDiGEHfufx8ugWA7Fa1iHXEkHVUJDxItAb/1DGVF +R3FsJZlSYqOKwF1D0L3UWRxj2vXju3yLwM75z11wE8fPF62sCNsi2Fn9gd/a +Qxy3xTabHJMrgg0+YT+C/MXxw7jEGtX6QijqHilojxBHpcXiXP9/T2AmJ2+z +b5E4xrUIG68hP4ah94muKyXi2HsoY8vCbAF0r7mcFvZUHA9v7M6lthRA3aFD +vKlV4vj4+lQIxacAYvl5JhuaxbHg1bqmJ02PQPm0V75Ijzj+KglvHT6TD96G +yooVbCTk9Hp8UZk9D9T8RQXF2UnoZce9Y/O3B7CYtbIQwEnCBvZXsdZ1DyBk +TWu9Oi8J3z73tKGeewAJVY4Hn4iSsCyvpbz0Zy48U42PyFEgYXd46eGksRzg +lF0YuWlOQrvftlFy89nQtqe3bW4vCdl/+rPKdWVDXFB9sZU1CXkgfda4Ihsk +P0dfELQlodPi+IO1wdmw5eZGsetOJKzZ7yOrtj4brLltDa/4r+KvMI0Pyt2D +jF/P7vmmktDh30Lvi8BMiBTnN1h7h4Sqt3aLcdlngp+209eb6SRc/mPd5GuQ +CYbnOGUqskl43OZQUxlPJjD/Wif9e0xCucXig2szMkCDfSoiqpGEW1WHQqI7 +0uGlMPnE/UkSHiCnHN+fcAeKt53i1ZomobHZq4+vXe/A7X3ND1t/kpC5m254 +RfMOnEj2HGX+Wo2nxgw/7UkDYakKRzVWCbTdmLddYWMaHKFZWteJSuDHEqm3 +k62pMKtyRfszSKD98ELNZ91b4Gee2W+vL4G3grXzHoregjnPusvDOyXwjmRi +T9F0MizkrLRN75bAy4NLK07ZybAo7e/EYS2BZcMztfqCyfB3vds1dXcJ9H/Z +bNn0MxG4Bnf1RcdKoGxkyzhPTwJc++d6STheAu2iv4nLPUsAHukrG1NuSuDa +C/0nvVITgPdAnU92igQWxe/JD7VLAIF2LfaqexJ4l6RW92EgHkQqFbaOlUtg +nW1cbt1MHJDjuEMMvkogBrt/V1a7Ab6FtPdp3yRwfm3MuKvEDWjo0Nm4OCyB +eSunflatuQFu/J5t+eMSqKim49TREQuPol6TROckMGjhr9TVk7GwPfx60Si7 +JEYNF31W8owBqyD+oetKkii24cFaucIouJe6UXN0iySqXWwu9AmPgoVKiNRX +kcQEz/JDvw5HQcrSCeVf2yTR/IjVucfcUTAQ0BHkAJKYclOx4+Wxa+Dpc0NE +zVISB65NCHsrR0KY24Zd3aclkcgyrD87HA4rp5MtXQMl8ecaJ1pkbTj4Rkgf ++RkkibNX2p3f3wqHI/kb/XkuSaLouQItEfNw0Pipk4VRq/lldQZQFQYj513+ +5aZLYl60SMVUeigY3Sx9erZVEi8R+07fuXEZau5vb2B/LYkvgtw8LX0vg3p5 +bXt8uyRGvHd9omF1Gcg9rcOP3kmiI9tenhiRy7BE7t8w2CeJk1trzp6+fQny +8tlPGv+URPfJ95cmikKAu3G/vKSkFFY6mlBuslwEy66PX4OkpVDuT3Uk99sL +kDxuk9ovK4Wf/1SOq2ZcADlBa75MuhQGCf/0ttS/APpHLObkt0ih4UsJnpfh +wRC4aFSnoSeFtTE/9XbLnodxpe0HLI9KYVGM2ShPcCCoYIVgyTEpdHSX3f/X +JhDOWGm9EvGUQhKnQdamLYHAHqhBfDophaEPoiNUv5wF6gtVukOgFOZIfry7 +YHAWDjoqTntdl8KLCg+614ufgdabUlcjiqXw2ee3aTjqD7nZbkZfSqWQOnLT ++/YLfwgrfcK5rVwKr/VfuL8xxx/0P+yMGKiSwm1/Bw1euflDlbBXpGazFFp2 +OgrgqB88ia+OGu6Wwp0rBwdyZk9B4o0jN/T+SqF75Pbcuk2+4JeRuzeJRRpZ +2DoexvD7glXhT8FJVmkMuNp0KmzOBwTehsUlc0jj5JGJk+M1PhAh8Dj+h4A0 +OgSsEwyz8YGgmH8302jSeKfO6UhvxElwup6esmQkjZbyXNVbJL3BNWb/hksm +0thwaEu95LgXuN/gi+Iyk8ZxirbM/gov8L4ZdF7SShqd2Ft/lR3wgrNpBxx2 +HJbG5xUVZL5UT4h9JCAX4iONkU2VLCWbPaCm7WIhZ4o03gp/w9Ue7g7P32hu +unFbGp/KuHrk2rtD49upTNJdaew/8sOoQdMdXn6wS9h0TxprghTGykePwoc+ +rdOmBdI4OJM/mLznKDAnp3Vj66WRxiZf/ZHqBhJ8ji1iE9K4GDYlV7voDFOC +Qj/8JqXxYLNdOPmzM9SLNIh0/pDGmYrvgk+eOcMxaYZz1Jw0tkRdSDxwwRnK +lcb+sPyVxi+fv3G1cDrDPhMftXEBGXQ0aNIZoTlB3NWQO1UaMkj7Nkz3PusA +blGqTSRtGRQ6KOEi7uAA22O/TQToyOCFpTy2MUMH+Jr0n7YKyuATD1LIirAD +KOesf5+9WwY7/t29/9rVHtqbbqyPsZPBMPms+E0Th4GbLdPP8ZIMrlx4UvhF +4RCsXaq1mrkigweQqRi0chBWpvpUQ8Jl0CwoLsD5zUFgfibNpEfJIBE6myIQ +cBDaim54DSTKYMb7N6TuZluIcQpxs38og+oNu0hl/gdgQ73DgcPvZXCLJ29r +1rp9wFMerDn5UQbXkHhFagZsYG3BbdHzn2QwM+yTr0iVDczd6n5/u18G32RW +dp09ZQMffCz29o7K4KZbrfF8w9aQREHjQ39kULexT1X4nRVIhsjq2srJYlbq +D5pg917IO8VJ7ZOXRTPOVr97lXthu9sMh6OiLAZiccPRtL1w0KThnbuyLCrc +s5E/77wXkkWOepzZLou5A9tqP89YgGheQUqS2WrcdJcmWcwCBN7tWPoQIIue +h3/qt7DtgfQmuS+2Z2Wxgrvy9od3pqBczt/Ud04Wp/Y6e6rcMwXztK+xwxdl +cU/YLr/O/0wh+mio/HykLNZGki7lR5kA98rr/cJ3ZfGJmdCMjbwxsDPsyixf +yGKcR/QB84Rd4EYC44etsihP4oRvJ3bBC15qP9trWfzCGj5WYLILri6MrCvt +kMXH76jbmWy7gKvllI3YZ1nslXxTOB9gCPwe1+Z6mLL4SV/25YrbfxB14PAt +1fVkzPCuUq30XP1iO82+HeEiY0PIGv98MwNgmuLma9xk/LFdq/u1sgHs0aM9 +/8ZLRisp2fHEeX3g2zQ2miBExpMvZguMQvThxrKf1i9JMj46vClrJF0PEu9E +dT3bQsbR+XnBtL8A3TdKzq9RJmPveM3dvhYAydBe2i4VMu52rn57Oh4g3UPp +ZKfaav6eD+/KFADytF5zjmmR8fXR8SPmBwmo6eTeLmpARmvdDWzer3RhhP3a +7ZP7ybh+e/a2h2PasOl3kX7ZATJShN8rbKjRBs/Jz6PLtmT89/H+ckOcNvx8 +t2lbuB0ZD+il7vurqw0r6S/b0hzJyKmtMtaSoAUCOlz/XnqQ8db04rT5Xk3Q +OhHhyLhIxpfbq9/LLKuDs3PBEZsQMnJR0thlP6tD9P53h0IvkTF9Ua/TskId +hkB63/AVMgq6e/2yOqMOsQKFxtkRZEzSHOkqXlSD0cJuNUb8qt65z73us6pB +8txGdsZ9Ml5r2HHMUlsFGkZN2WxyyLiw4lOrJqMCU70+LKG5ZCw2ex0DbCqw +s+nZ76E8Mr7fuz/pQ5syTN80/3HvMRl5uK9R51yUwUjzdDe9goyVVfdHwrZt +hV9nm/Por8lY2Pi9bo2hEngzLR6atZHxciLp+14JJRg60vPwTDsZo/02bB+e +UoROg+n81x1krHj56P27ZEXI55V47PdhdR9KbvVNPzaBU4ZXcWM/GUtj5L9k +P1CAthbhKpcZMhplb2KpM94IO3XuVkX/XL0XK62QSrmNUPlIobp8lozbHpAD +mawbITeOqOFZIKOPQMLF+WdycMnOva7kNxnn2c8/jVOWA63pZ41r11Iw2SCF +XkRjQJaYc9s9UQpmLD4PddhKAyU2+qZRMQoOYiJ9Ez8NSqaGwhRJFBw56pul +8IMKzU1uWCRJwXMiET0tj6kwfup4cS2ZgtW71K8Hq1FBtcPn1udNFHzeoBp9 +bicFnl+96CoAFBTk4dT4LSwLxn569VZIwfNfdEpqB2Sg055VNkmPgqrqI/d7 +82VgSONKt/ROCt6zmciSMJQBzuFwE8XdFPTfMG6UFCQNFnoxKoZWq/Pqp2WI +L0nCl6W0P+eOUlD3mUxXghIJLL4fKnzgTsEerqaqDetIUN9Jcu06tlrv1z7v +jj5xuPfw5mtVTwruTF0pWRMrDscPX08dO7mK9+jz1v4lBvN1Qdr7AymYL67n +mt8hCtxXD/mrXqfgMH/ZVbVHwhDkR1JwiKbgDaMHplVRwjDl0NV7PYaCmzae +GT7tKQwd2lY7x25QsOaYgm2YkjAkThhvSE+kYDEnX9Wvgg1AMd9eyJtOQc+H +GnFjVUKgKUqaHC2ioJj2oDbXsgBUnuP9s7WEgt2cBp3kfgEgvq7hPV1KQZc9 +/y67PxcAw/xxpXXlq/OWfR6JuCoA1vpVnpTq1X2WPqzmJgmAj7c90/YFBXW8 +4eq1UD542Jw98bKHgko7LBT/enHDFqWUZcE+Ci4MXePYCdxQdCOa27afgn8n +nc0+CXBDpd1pxZEBCo4NvWCdLuGClp9GHmzfKbj9aWl4LQsXDMswx3WmKfg7 +1WjA/z4nyJ5WHc9fS8XbCnWbBuXYIaqPtrd/HRXLTTQ07rKxw6KBSDk/BxVb +pGZ3Jgysgw6BxVDf9VTcEcrKxUhdBxfzqilafFQM/Sef0SW0Dgb6jGwbxKh4 +xExeS4NnLWTutG/5tImKjY3BN9PorMD30GIrtxIVX9XvtKjgYIVAQf1E3c1U +rKD+XWCdWAOW/XSXu1upKP8tdVimaA2wnhn/56JORZ6gIi8f/TXg/NBfc3oH +FbdHir808GABulDUffa9VAw7fjrvxtM/RO/CoICqJRV1475Eb4z4QyT0aJ87 +bEVF0ympznWH/hBs2SPmJTZUbG2KKb71b4UY1DRYcjxIxdL4a9VCpitE+uHf +JtXOVGyOc58fn/lNSD9wnzkVQMVL5y63HvZeJN5frz109zQVndUsJFSNFoko +X9Hml2eoeDErfUGPukis6DSmUM5Rsdfr4Rehrl9Eb7vszjcXqDhsWnfqhMEv +ImXuY+KmCCpyKgb4NsktEKL4n+7XVCpmPO2bihaZIwbSOlnl0qhYTyvSDJ2d +JfKW7VuP36Eiht2QLH07SxBPA/fNpVMx8L8fW+uiZwm3LU9OctynorqJCv9Z +7lmiTEoye/MTKi7rr3TS+H8S+5emeQMbqXi5wkhxSneaoO4Pfl/TtKrfoIHi +Uco0wSzhTmV7QUXX62nNfOzTxMWTcvLXW6m40NSq8PbuDyJ35JB+ejsVTyS0 +MYJeTRGLH5oDmrupWHTjT56d2iSRXHT7i9AkFS0UAjr36Y0TxoIb/+hNreqV +mef8Qmyc+HOiUMLnBxWVPOwfnp0aI5w2N9u8maFilBF7XcbtMUIp98erawtU +PKcx0za3PErUpemXr2WhYcynZ2zmzSPEyNXR2AUhGl4IHbuoGT5MpIz4FjCE +aXjQJqKG4jpMmBr+eWUtQsP5StNhPYNh4gmbEEexGA2p3ZopVJZhIjBY5/wJ +KRqm/nfb1y5oiODziz42yqCh7ctAoePB3wgNe3X9z1o0/NFWGdpy/yuxrDH/ +jLqdhi6DrMsXrn4l6vjKtnno0NCfEnDA4/hXYneNpsLKDhpK+gkd693ylbCT +1hGQMaChzXCkmUzlAHGpR6/fcQ8NI0Z+z+YXfyHa9psHjjnScL9xUFnt6V4i +bqvAnIozDR1PdBh/N+wl9nG89Qp0oaEgwZHuINpLDJRZOnIfXa0v42phVtZD +/BTZZ7TZk4al7GSbv0ufCfH3dqI+ATQE5sMjWrGfCBeL40WLkTTc+jq+L3ju +I+F3P3arTtQq/4TWhI62j0ToSln++es0/OkR5+Wc85G4n8uWwxpLQwVFt3bj +Qx+JUZa0VJ6bq3y924KFmz8QHoVvrpDv0vCfd8QpzZz3hK/Qtv1GxTS0vu5d +/Cehk7jkfuh9ZAkNS/hYcvL9O4n4mpC9baU0rBVrOxC7r5MoOd5uYllOQ/pi +ecKceCcxX38U7appeNQjuU8u/S1x5lSKwskXNDSdd+AdfdpBXHj/bzmph4bF +VhGRRiLtxBlFWkdjLw3fNLR9XhxuI05eMrw300fDRwUnw2fL2ggn5eumJgM0 +dGv1ozXbthGGURJpf4doeHKsou1d5muCd+c2wnVqlS/HgvcW/VdEavHxi6pr +6Pju13q96aIWIoEr2tqelY5d+gyaWFQLEeVYKB/FRsdXumxi51xbiGD+xY7h +dXT8OM8sWRRvIZw8Qim3uOioQjl9su7SC0KBll7/bwMdU3my/ik7NhNP4z6s +bZOj4+GeD4TSrkai3mnrtg3ydNQ232aWTG8k2lUjXG0V6FgfZWcKrI3EUKdu +87AiHY/Pq1/RrWkgBDbcC/+rTEfFTxGCY1oNhHu8L5eyDh1Dky5DmVY9IZHA +LxBvTkf98ZrgO/Z1BMPlGH6yoOOauPsGRQZ1hLJ6w0lZSzqKLwRkzG+sIwzf +B7x9aE3Hr2NCLRsGa4lTwv1xjbZ0PKI7EVvLVUu8TsgXWXCmo/uAf9OSZzUR +fHO3pO0ZOs6to78bP1lJ+LqlZ0acpePvztnwdsNKwlXzl0JlIB0jGK2G81KV +hOmne1qS51f5jV/V4npZQUhIs+zrC6Hjs68HPAw3VhBP75XFOl6jY+9OKr1g +8ikxXUxjP36HjuX69kpROaXE0JXA6yl36dhniHV8oaVEl81b4VfpdEzYykq0 +OJUSNb+CaUpZq3q4b0rplyklonQ+41QOHaOpe9xjbpUQCg2x53wL6cj2j6/o +aXIx4dT5ZzqwkY4/ZOZcpp8VEhmUynPZTXS0zvr9mEgvJAZOBrB3NNNRxGtQ +o/xKIWHP/0OS0UrH8Ocj44pmhYSd6YDhm7ZV/dKz7/F9e0Lsa66/TeuioxiD +CLgq/IQwrgw3ej1GR3bxh6RtCo+IiPU73y2Mr+5n/ub5vOV8ouUAyxEKk45n +onKX3drziV2/zpwKmKJjgLDktWK/fGKn+vE75Fk6EpFP/kY3PiSIAtM5vxU6 +pp/4kTZzMo9QyxRMl+Zn4GS1q1bKUg5x5fjacEcBBhZYXPu00pFDfFT95ZUt +yEDuy7EG93JziMCGXp3NwgzMWK+RUXsgh6gbyunSJTFQNTFrQbLqPmG6keC3 +ozHwV1Kw1PqYbMIl/3hwiiYDTUfCM185ZRFlfodd+7UYqBF3YHlWL4vg2GFh +St3OQPME7zkrShaR17ZNIk+XgXUOFuYVA5nE9BRLWYUeA6k3P4TwO2USQSpJ +k90mDLSU789O8c4gEsoa7MQcGLiSm5WWYXuXaL9QnPKfIwM7RZ5955O/S3Du +zuo+5cTAqIGZ6JcLd4ignkvWHS4MLOQQ5FO8eYdwYdE3jTjGQB65keOXP6QR +6sZ1Osu+DGz7tmGrgstt4l1flcSXUAYO6jPXKZbdInhy8g/whjMw0TjN+dL1 +W4ThyduJOlcZeJ4za72E6y2ikjVIKDmSgeL6Q8mcIreIzI06XHtjGDiSmdve +dTqZ8PWpWKpPZqCdSNvEqFESIbSurPv+QwYmhFN8d4neJD5lEDsW8xlYRs/U +FJxJINKJFxm7Cxg4tHHgntTrBGLLme7jzCcMtDKm5y5cSiCMJ36vqJQxcKle +/FPebDwR8hYo1XUMXBu58qBoII6YTms99u4DA/X77289/D2WeLrdsp3excDN +4W/0IltiieCuz6oB3Qz8vSNsdiIvluARZC6L96zi53/Um5yMJeSv8EUfGWCg +sSAH4/vvGMLhuFXR2DgDa+Im1zP0o4mNHL2iOkwGNtiZfKjhiSamslzORU0y +0OVU36eyrutEUJ//zq3Tq/Ubvi7UeF8nki2SP/rNM9Dt6PQt6Ywown6SrNO8 +wMC9sA+TvKMIucgHd8UWGViFr3mP60YRJQ2V7pW/Gahy4esD8U/XiHMOBm3c +KwzUvqusN5tzjdD/80rl8J/VexyYiKWfvkZwplgnFvxl4LvNoiz5hteINxp9 +v//9Y+A6rFu4KnqN+B+7Zi0C + "]]}, "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.500000000000008, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "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.5, 8}, {0., 0.9467080420135469}}, + 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.992074730379116*^9, 3.9920747762811165`*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"2c323b51-6228-9441-a5bb-0e39d635ebee"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"b0", ",", "y", ",", "bb0", ",", "yy", ",", "r"}], "]"}]], "Input", + CellChangeTimes->{3.9918427409143257`*^9}, + CellLabel-> + "In[179]:=",ExpressionUUID->"4a5ddd52-c690-354a-8f4a-29e1547c8fab"], + +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", ",", "9", ",", "14"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.992074919211529*^9, 3.992074920818722*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"f9e7e8c9-0d48-844f-8932-8dc242714679"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVkXk41YkXxm1J8jOVoaQs13a/3y9GYbLknlNNEjOEURGia8maqCxzMyrL +HVmStVF37LKOLSFkDVkqU3SrkSLbcEuWkaS5vz/Oc57Pc973fZ7zvEqnzli7 +CQkICGTw5/9bKcpHWECAhuKeNo+djvFA1KVeqJvPOvacbw8c5cGMkZjQdUEa +6os05anZ8qB2LkdARZiGpvG8kn+seXDE8eWXQ6I01BvZ9YOvBQ/CdM2WEyRo +WHGlhmFxkAcv36rPKsjS0Ch+U2bEbh6kwOgg7Kah1XJ0RIk4D5rU/KrqTtOQ +U7tmIFw4Cyu/9bumZdDQctS7+jBjFkhL2YLzfTTkHZmrMeiYgW/2B3+ME1bG ++rgyH1fNGVhfUbJF/HtllE7rYETG/APVPy0aNfsoY1gf0+VL8zTY/khfupCt +jJvpRXQYmYINndqRiU+VkWEhpli3OAkBZ37aOS6ugg9LlHXkX00ALwliOMYq +qNXUZGHXMA5O23ewj51RwXOjVnqpse/gSr9EglmeCppj+ES75hjcWxvwyhpS +QUcxySSHwbdw26HUcrekKvqXWz5Ys30D7B0BHW0HVPFzY7QQo/Q1sI5LbKo7 +r4rULzKiOqOvQLW1njlZrIo9+WYxt6e58KaAEfvLsCra7ijq7d07BNb3BhtN +pdUw9eQdO9/Qp1CjbRcuY66GxnszCrM/PgFNWsVW04tqyI7M6l5jPwK7fTtr +q6rU0Opqxdfdhj2Q/spJ88q4Gi61Sn3mZHRCDzdGx2abOnJVytfd9muHKpGe +/Y4W6ijuqOJ3gtkCZcUjaj3h6iiZ39Jj3dcITuHi3wbeVccXf0Q9aJGvA6G7 +8tflZtWxRcwj9IDGHajzFHunrkDH+Ib7JjpClaBqJrrPz5aOStrawT5qZZCb +zz27jU1HmpPS5Z1hhbDVLU2nrY6O1nubVo3S8wCsPNcK3tMxebAte0IoG0Lr +NnE+KBHoULwxd7sLBwYKqm4/pBG4ec+hrkwzDpCpR6tylQn8OVlKYo8uB7gB +N7uOqxJoqCbfmbSeA/oa9PlmOoG5KfF/S/x5C5Y4YJr4HYGLCcm6CwK3ICDC +7+MuYwJnf9iyyaI8A7wse00CjxN4Z3r/wSXDG1CZ1DrCsCPQSk8jy5+4AStD +taHi9vx7s8iLpa03IMY5ryzrBIHuXbLtaovpUHQ2TOaxE4F5DcN5UuXp8E+S +9riGG4HPS0hJOXo6+DxPjhw/S2B11OHWEsU08HVxbLe7ys8P3zBkvjsF9lqm +OSvFEtjL1jrQr5wCEsZPVif5/Fv0qou9dAqUbDuoFxxPYI5MOydhORlmHmnk +pyYSqBsnf9r3fjJ4MVaj/0ojsONZyvAHi2Q4LZdh/lMugcoSG/RnzyUB89nz +AWwkkBudPnT+ZSJMS+05JttEYOxUp5RmfyL4W6e8nOPzJv3d63jNiRD2yGos +u5nA34tcZ2LzEyG9++GiSDuBWe3z/2MEJEJ/Y8O27ocEBrjW1XlsTAT9/Ewn +q+cEmpZ5BxX9cA0kg05Pu8wTeOJo/QapnDiI3Lh9jVrg54HhJ7/4OFj9o2fz +Ep8v0bdLcUPiYLpLyyBmicAqAdPMoSNx8GD7YnTlJwLrJB7IXvwaC2FNl1SF +BUjUvVzj4XIyFmbXZTjnSpD4+wfPa5bEVehN7hscVyVR8PUd1rNRNqyE5Ay0 +qJFYKeHWLviEDfSTIf031Uns0tfcubeJDVcI1QfWBInWZVu4L9LZYNjEutOk +QaJAn7DjfQs2FE5Qyak6JPofE2qTa4yGKMMYK5N9JC7nsP9+lRMFMGLSm+dA +4sLY+QWftAhY8HN+yHIk8db++8Oy7Ago+hLSZeNEohhXU2ogOAJk5ErbBZ35 +/rfTBq72ETBjK9XoyCSx/v13NyXlIyC953WptBeJHj6R5ecKrsDHmuCEyCAS +J7M0dlq2Xob8uCJrt+skKnYcyUyVuQQ/Bmwd0UwiUc4lQKFa/BJ8PBrhu8Tn +ctvpx9y1cGAoOrGjU0hUz8mvNp4Ih2eVm5sK00lMOHxrzL02HESeBxM8Dl+/ +UL3D0CEcmLRDAkHFJEr7xlWybH4Fxbujpex2EvW6HR0Malhwceac8qkOEp0r +RK9dzWTBCyXRG0YP+P90F4rwYliQFEuP4HWS+KKWGz56kgWip3ztf+4hUUEm +80KCOAtmJP4VVRwgUZNdL/jm1C9Qe0rc+e5rEs3HBDiyCqFgKblry/gKief6 +Yh8FtgXBzRvSWys+k9g2d/htaWUQTKusyLFWSUwMw/r5rCCIMGpT3bLG10fq +38gOD4La07YGDEEK33QoaMcygkCxLcQ5dT2F0ssy9dENF+BDUGuZybcU9rel +y001n4fENzbmBZoUXvDcKFc6FQjuMixrPy0KewStzN6+DARD81w7ve8oNNQ5 +8FmxPxDGqhc82rT5/mLjrvrKQNBnp0S81qHQy/W93UlWIAxrDTVuNaRwMD68 +w31zIGiw7LXZJhS2/K7+bv/+AOiUcZH2PElhquS25eFGf7C+WSqyz5lCXXqx +smmFPwwrrcxvc6HQJuBxQ32uPyxpJA10naLw0fqncg1X/UHlQEcC3Z1C2vBs +t5a9P1w+Q4hP+lBYlf2+OWPuDOztmltzD6UQ2Lbp0SF+UBlyedI1hUJy4am0 +WYM3aNnSPLRSKTxYO7/06LY3FGm3vvuXz+dZ1SHMFG/InhAcjUmnUK/RiFHl +5w3XbS/9XZ5BYcJi4b0FJW8I2BU+sJpFYeOo88l/Y7xg19TFhuQyCu80Cljd +c/eE8uMh19o7KQxLaSGsD3iAXgsRltdF4VBf8YTULg+oJ154R3VTWCBWMzUq +7wFtK4aHTHsoLNd+Gle24g6DN1e/9PRTWCJ8V2m20h1WR371/usZhSlXat6v +U3MHU88ok7ejFHJ1OpNOyLhB35PvddvGKAy4GPrp8To3sDacUMp9R+F1o1NH +bBZd4cRG0y9uExTOfHO1MOypK/iVbqiemqYwas/WOb8kV0iei1Wam6MwJnZS +o1TKFWTtjb8Z+EjhLe6TLzPCrsBpnV2tnOf39+kozWCBCQVJFs/PLVIoqDAI +S0+ZUK+3KWF5mcLD+n+2CKUxgcFpZnE/UThqaKaSG82ENtGzXvUr/H5oV+Kt +gpnQO/TkIGuVQmdL+58f2zHBCi/rOH6h0DXoyK0sMyYM3t6txFij8BImd4UZ +McF+86ikwlcKH18b7fXQYMLrkKTVr3zWDxTOctjJhP8AyJplMA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkXk41YkXxm1J8jOVoaQs13a/3y9GYbLknlNNEjOEURGia8maqCxzMyrL +HVmStVF37LKOLSFkDVkqU3SrkSLbcEuWkaS5vz/Oc57Pc973fZ7zvEqnzli7 +CQkICGTw5/9bKcpHWECAhuKeNo+djvFA1KVeqJvPOvacbw8c5cGMkZjQdUEa +6os05anZ8qB2LkdARZiGpvG8kn+seXDE8eWXQ6I01BvZ9YOvBQ/CdM2WEyRo +WHGlhmFxkAcv36rPKsjS0Ch+U2bEbh6kwOgg7Kah1XJ0RIk4D5rU/KrqTtOQ +U7tmIFw4Cyu/9bumZdDQctS7+jBjFkhL2YLzfTTkHZmrMeiYgW/2B3+ME1bG ++rgyH1fNGVhfUbJF/HtllE7rYETG/APVPy0aNfsoY1gf0+VL8zTY/khfupCt +jJvpRXQYmYINndqRiU+VkWEhpli3OAkBZ37aOS6ugg9LlHXkX00ALwliOMYq +qNXUZGHXMA5O23ewj51RwXOjVnqpse/gSr9EglmeCppj+ES75hjcWxvwyhpS +QUcxySSHwbdw26HUcrekKvqXWz5Ys30D7B0BHW0HVPFzY7QQo/Q1sI5LbKo7 +r4rULzKiOqOvQLW1njlZrIo9+WYxt6e58KaAEfvLsCra7ijq7d07BNb3BhtN +pdUw9eQdO9/Qp1CjbRcuY66GxnszCrM/PgFNWsVW04tqyI7M6l5jPwK7fTtr +q6rU0Opqxdfdhj2Q/spJ88q4Gi61Sn3mZHRCDzdGx2abOnJVytfd9muHKpGe +/Y4W6ijuqOJ3gtkCZcUjaj3h6iiZ39Jj3dcITuHi3wbeVccXf0Q9aJGvA6G7 +8tflZtWxRcwj9IDGHajzFHunrkDH+Ib7JjpClaBqJrrPz5aOStrawT5qZZCb +zz27jU1HmpPS5Z1hhbDVLU2nrY6O1nubVo3S8wCsPNcK3tMxebAte0IoG0Lr +NnE+KBHoULwxd7sLBwYKqm4/pBG4ec+hrkwzDpCpR6tylQn8OVlKYo8uB7gB +N7uOqxJoqCbfmbSeA/oa9PlmOoG5KfF/S/x5C5Y4YJr4HYGLCcm6CwK3ICDC +7+MuYwJnf9iyyaI8A7wse00CjxN4Z3r/wSXDG1CZ1DrCsCPQSk8jy5+4AStD +taHi9vx7s8iLpa03IMY5ryzrBIHuXbLtaovpUHQ2TOaxE4F5DcN5UuXp8E+S +9riGG4HPS0hJOXo6+DxPjhw/S2B11OHWEsU08HVxbLe7ys8P3zBkvjsF9lqm +OSvFEtjL1jrQr5wCEsZPVif5/Fv0qou9dAqUbDuoFxxPYI5MOydhORlmHmnk +pyYSqBsnf9r3fjJ4MVaj/0ojsONZyvAHi2Q4LZdh/lMugcoSG/RnzyUB89nz +AWwkkBudPnT+ZSJMS+05JttEYOxUp5RmfyL4W6e8nOPzJv3d63jNiRD2yGos +u5nA34tcZ2LzEyG9++GiSDuBWe3z/2MEJEJ/Y8O27ocEBrjW1XlsTAT9/Ewn +q+cEmpZ5BxX9cA0kg05Pu8wTeOJo/QapnDiI3Lh9jVrg54HhJ7/4OFj9o2fz +Ep8v0bdLcUPiYLpLyyBmicAqAdPMoSNx8GD7YnTlJwLrJB7IXvwaC2FNl1SF +BUjUvVzj4XIyFmbXZTjnSpD4+wfPa5bEVehN7hscVyVR8PUd1rNRNqyE5Ay0 +qJFYKeHWLviEDfSTIf031Uns0tfcubeJDVcI1QfWBInWZVu4L9LZYNjEutOk +QaJAn7DjfQs2FE5Qyak6JPofE2qTa4yGKMMYK5N9JC7nsP9+lRMFMGLSm+dA +4sLY+QWftAhY8HN+yHIk8db++8Oy7Ago+hLSZeNEohhXU2ogOAJk5ErbBZ35 +/rfTBq72ETBjK9XoyCSx/v13NyXlIyC953WptBeJHj6R5ecKrsDHmuCEyCAS +J7M0dlq2Xob8uCJrt+skKnYcyUyVuQQ/Bmwd0UwiUc4lQKFa/BJ8PBrhu8Tn +ctvpx9y1cGAoOrGjU0hUz8mvNp4Ih2eVm5sK00lMOHxrzL02HESeBxM8Dl+/ +UL3D0CEcmLRDAkHFJEr7xlWybH4Fxbujpex2EvW6HR0Malhwceac8qkOEp0r +RK9dzWTBCyXRG0YP+P90F4rwYliQFEuP4HWS+KKWGz56kgWip3ztf+4hUUEm +80KCOAtmJP4VVRwgUZNdL/jm1C9Qe0rc+e5rEs3HBDiyCqFgKblry/gKief6 +Yh8FtgXBzRvSWys+k9g2d/htaWUQTKusyLFWSUwMw/r5rCCIMGpT3bLG10fq +38gOD4La07YGDEEK33QoaMcygkCxLcQ5dT2F0ssy9dENF+BDUGuZybcU9rel +y001n4fENzbmBZoUXvDcKFc6FQjuMixrPy0KewStzN6+DARD81w7ve8oNNQ5 +8FmxPxDGqhc82rT5/mLjrvrKQNBnp0S81qHQy/W93UlWIAxrDTVuNaRwMD68 +w31zIGiw7LXZJhS2/K7+bv/+AOiUcZH2PElhquS25eFGf7C+WSqyz5lCXXqx +smmFPwwrrcxvc6HQJuBxQ32uPyxpJA10naLw0fqncg1X/UHlQEcC3Z1C2vBs +t5a9P1w+Q4hP+lBYlf2+OWPuDOztmltzD6UQ2Lbp0SF+UBlyedI1hUJy4am0 +WYM3aNnSPLRSKTxYO7/06LY3FGm3vvuXz+dZ1SHMFG/InhAcjUmnUK/RiFHl +5w3XbS/9XZ5BYcJi4b0FJW8I2BU+sJpFYeOo88l/Y7xg19TFhuQyCu80Cljd +c/eE8uMh19o7KQxLaSGsD3iAXgsRltdF4VBf8YTULg+oJ154R3VTWCBWMzUq +7wFtK4aHTHsoLNd+Gle24g6DN1e/9PRTWCJ8V2m20h1WR371/usZhSlXat6v +U3MHU88ok7ejFHJ1OpNOyLhB35PvddvGKAy4GPrp8To3sDacUMp9R+F1o1NH +bBZd4cRG0y9uExTOfHO1MOypK/iVbqiemqYwas/WOb8kV0iei1Wam6MwJnZS +o1TKFWTtjb8Z+EjhLe6TLzPCrsBpnV2tnOf39+kozWCBCQVJFs/PLVIoqDAI +S0+ZUK+3KWF5mcLD+n+2CKUxgcFpZnE/UThqaKaSG82ENtGzXvUr/H5oV+Kt +gpnQO/TkIGuVQmdL+58f2zHBCi/rOH6h0DXoyK0sMyYM3t6txFij8BImd4UZ +McF+86ikwlcKH18b7fXQYMLrkKTVr3zWDxTOctjJhP8AyJplMA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{9, 14}, {0., 0.948165327917452}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{9, 14}, {0., 0.948165327917452}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkXk41YkXxm1J8jOVoaQs13a/3y9GYbLknlNNEjOEURGia8maqCxzMyrL +HVmStVF37LKOLSFkDVkqU3SrkSLbcEuWkaS5vz/Oc57Pc973fZ7zvEqnzli7 +CQkICGTw5/9bKcpHWECAhuKeNo+djvFA1KVeqJvPOvacbw8c5cGMkZjQdUEa +6os05anZ8qB2LkdARZiGpvG8kn+seXDE8eWXQ6I01BvZ9YOvBQ/CdM2WEyRo +WHGlhmFxkAcv36rPKsjS0Ch+U2bEbh6kwOgg7Kah1XJ0RIk4D5rU/KrqTtOQ +U7tmIFw4Cyu/9bumZdDQctS7+jBjFkhL2YLzfTTkHZmrMeiYgW/2B3+ME1bG ++rgyH1fNGVhfUbJF/HtllE7rYETG/APVPy0aNfsoY1gf0+VL8zTY/khfupCt +jJvpRXQYmYINndqRiU+VkWEhpli3OAkBZ37aOS6ugg9LlHXkX00ALwliOMYq +qNXUZGHXMA5O23ewj51RwXOjVnqpse/gSr9EglmeCppj+ES75hjcWxvwyhpS +QUcxySSHwbdw26HUcrekKvqXWz5Ys30D7B0BHW0HVPFzY7QQo/Q1sI5LbKo7 +r4rULzKiOqOvQLW1njlZrIo9+WYxt6e58KaAEfvLsCra7ijq7d07BNb3BhtN +pdUw9eQdO9/Qp1CjbRcuY66GxnszCrM/PgFNWsVW04tqyI7M6l5jPwK7fTtr +q6rU0Opqxdfdhj2Q/spJ88q4Gi61Sn3mZHRCDzdGx2abOnJVytfd9muHKpGe +/Y4W6ijuqOJ3gtkCZcUjaj3h6iiZ39Jj3dcITuHi3wbeVccXf0Q9aJGvA6G7 +8tflZtWxRcwj9IDGHajzFHunrkDH+Ib7JjpClaBqJrrPz5aOStrawT5qZZCb +zz27jU1HmpPS5Z1hhbDVLU2nrY6O1nubVo3S8wCsPNcK3tMxebAte0IoG0Lr +NnE+KBHoULwxd7sLBwYKqm4/pBG4ec+hrkwzDpCpR6tylQn8OVlKYo8uB7gB +N7uOqxJoqCbfmbSeA/oa9PlmOoG5KfF/S/x5C5Y4YJr4HYGLCcm6CwK3ICDC +7+MuYwJnf9iyyaI8A7wse00CjxN4Z3r/wSXDG1CZ1DrCsCPQSk8jy5+4AStD +taHi9vx7s8iLpa03IMY5ryzrBIHuXbLtaovpUHQ2TOaxE4F5DcN5UuXp8E+S +9riGG4HPS0hJOXo6+DxPjhw/S2B11OHWEsU08HVxbLe7ys8P3zBkvjsF9lqm +OSvFEtjL1jrQr5wCEsZPVif5/Fv0qou9dAqUbDuoFxxPYI5MOydhORlmHmnk +pyYSqBsnf9r3fjJ4MVaj/0ojsONZyvAHi2Q4LZdh/lMugcoSG/RnzyUB89nz +AWwkkBudPnT+ZSJMS+05JttEYOxUp5RmfyL4W6e8nOPzJv3d63jNiRD2yGos +u5nA34tcZ2LzEyG9++GiSDuBWe3z/2MEJEJ/Y8O27ocEBrjW1XlsTAT9/Ewn +q+cEmpZ5BxX9cA0kg05Pu8wTeOJo/QapnDiI3Lh9jVrg54HhJ7/4OFj9o2fz +Ep8v0bdLcUPiYLpLyyBmicAqAdPMoSNx8GD7YnTlJwLrJB7IXvwaC2FNl1SF +BUjUvVzj4XIyFmbXZTjnSpD4+wfPa5bEVehN7hscVyVR8PUd1rNRNqyE5Ay0 +qJFYKeHWLviEDfSTIf031Uns0tfcubeJDVcI1QfWBInWZVu4L9LZYNjEutOk +QaJAn7DjfQs2FE5Qyak6JPofE2qTa4yGKMMYK5N9JC7nsP9+lRMFMGLSm+dA +4sLY+QWftAhY8HN+yHIk8db++8Oy7Ago+hLSZeNEohhXU2ogOAJk5ErbBZ35 +/rfTBq72ETBjK9XoyCSx/v13NyXlIyC953WptBeJHj6R5ecKrsDHmuCEyCAS +J7M0dlq2Xob8uCJrt+skKnYcyUyVuQQ/Bmwd0UwiUc4lQKFa/BJ8PBrhu8Tn +ctvpx9y1cGAoOrGjU0hUz8mvNp4Ih2eVm5sK00lMOHxrzL02HESeBxM8Dl+/ +UL3D0CEcmLRDAkHFJEr7xlWybH4Fxbujpex2EvW6HR0Malhwceac8qkOEp0r +RK9dzWTBCyXRG0YP+P90F4rwYliQFEuP4HWS+KKWGz56kgWip3ztf+4hUUEm +80KCOAtmJP4VVRwgUZNdL/jm1C9Qe0rc+e5rEs3HBDiyCqFgKblry/gKief6 +Yh8FtgXBzRvSWys+k9g2d/htaWUQTKusyLFWSUwMw/r5rCCIMGpT3bLG10fq +38gOD4La07YGDEEK33QoaMcygkCxLcQ5dT2F0ssy9dENF+BDUGuZybcU9rel +y001n4fENzbmBZoUXvDcKFc6FQjuMixrPy0KewStzN6+DARD81w7ve8oNNQ5 +8FmxPxDGqhc82rT5/mLjrvrKQNBnp0S81qHQy/W93UlWIAxrDTVuNaRwMD68 +w31zIGiw7LXZJhS2/K7+bv/+AOiUcZH2PElhquS25eFGf7C+WSqyz5lCXXqx +smmFPwwrrcxvc6HQJuBxQ32uPyxpJA10naLw0fqncg1X/UHlQEcC3Z1C2vBs +t5a9P1w+Q4hP+lBYlf2+OWPuDOztmltzD6UQ2Lbp0SF+UBlyedI1hUJy4am0 +WYM3aNnSPLRSKTxYO7/06LY3FGm3vvuXz+dZ1SHMFG/InhAcjUmnUK/RiFHl +5w3XbS/9XZ5BYcJi4b0FJW8I2BU+sJpFYeOo88l/Y7xg19TFhuQyCu80Cljd +c/eE8uMh19o7KQxLaSGsD3iAXgsRltdF4VBf8YTULg+oJ154R3VTWCBWMzUq +7wFtK4aHTHsoLNd+Gle24g6DN1e/9PRTWCJ8V2m20h1WR371/usZhSlXat6v +U3MHU88ok7ejFHJ1OpNOyLhB35PvddvGKAy4GPrp8To3sDacUMp9R+F1o1NH +bBZd4cRG0y9uExTOfHO1MOypK/iVbqiemqYwas/WOb8kV0iei1Wam6MwJnZS +o1TKFWTtjb8Z+EjhLe6TLzPCrsBpnV2tnOf39+kozWCBCQVJFs/PLVIoqDAI +S0+ZUK+3KWF5mcLD+n+2CKUxgcFpZnE/UThqaKaSG82ENtGzXvUr/H5oV+Kt +gpnQO/TkIGuVQmdL+58f2zHBCi/rOH6h0DXoyK0sMyYM3t6txFij8BImd4UZ +McF+86ikwlcKH18b7fXQYMLrkKTVr3zWDxTOctjJhP8AyJplMA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{9, 14}, {0., 0.948165327917452}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{9.00000000000002, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{9, 14}, {0., 0.948165327917452}}, + 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.9920749035690727`*^9, + 3.992074923483513*^9}}, + CellLabel->"Out[43]=",ExpressionUUID->"e9a619fb-34ac-cd48-87df-222c74189a44"] +}, 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", ",", "9", ",", "14", ",", "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", ",", "9", ",", "14", ",", "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.992074936073736*^9, 3.9920749390024586`*^9}}, + CellLabel->"In[44]:=",ExpressionUUID->"173389f3-1a04-8144-b644-6242c726094c"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.15280721336484596`\\\", \\\" \\\", \ +SuperscriptBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"18\\\", \\\"\ +\[RightSkeleton]\\\"}], RowBox[{\\\"1.25`\\\", \\\" \\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}]], \\\" \\\", \ +\\\"R2\\\"}], SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\"-\\\", \ +RowBox[{\\\"0.25854720505278395`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.53125`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[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.15280721336484596`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R2\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.25854720505278395`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.896770751689165`\\\", \\\" \ +\\\", \\\"R2\\\"}], \\\"]\\\"}]}], RowBox[{\\\"5.091660613240935`*^6\\\", \ +\\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\")\\\"}]}], \\\"+\ +\\\", 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[{\\\"y\\\", \\\",\\\", \\\"b0\\\"}], \\\"}\ +\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.1`\\\", \\\",\\\", \ +\\\"0.8`\\\"}], \\\"}\\\"}]\\).\"", 2, 44, 4, 24488269323719620004, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99196434662237*^9, 3.991965267764641*^9, + 3.9920749455536594`*^9}, + CellLabel-> + "During evaluation of \ +In[44]:=",ExpressionUUID->"4e79d79b-8a51-4742-b9a9-5679f28d7b00"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.9916073488336765`"}], ",", + RowBox[{"b0", "\[Rule]", "1.2910623243846167`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9919643466702614`*^9, 3.9919652678273296`*^9, + 3.992074945634577*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"c1b5c169-a14d-574c-bc44-d7920ec8763e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "1.991"}]], "Input", + CellChangeTimes->{{3.9919643517017803`*^9, 3.9919643518904247`*^9}, { + 3.991965271719015*^9, 3.991965272747534*^9}, 3.9920749514842415`*^9, { + 3.992075166896097*^9, 3.9920751711654434`*^9}, {3.9920752362822323`*^9, + 3.9920753098180923`*^9}, {3.9920753900010376`*^9, 3.9920754043162575`*^9}, + 3.992075497028015*^9, 3.992075584585249*^9}, + CellLabel-> + "In[101]:=",ExpressionUUID->"fb2f4610-f9af-7646-83db-aee0dc11e3ca"], + +Cell[BoxData["1.991`"], "Output", + CellChangeTimes->{ + 3.991964352345875*^9, 3.9919652787755985`*^9, 3.9920749683822823`*^9, + 3.9920751785114594`*^9, {3.992075240270527*^9, 3.992075252906048*^9}, { + 3.992075288533251*^9, 3.9920753145484104`*^9}, {3.9920753972013416`*^9, + 3.99207540934503*^9}, 3.992075478795452*^9, 3.992075509000679*^9, + 3.992075603105625*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"b8892d6a-b3a7-514a-ab28-d8f2bb85ca22"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.921"}]], "Input", + CellChangeTimes->{{3.991964356946327*^9, 3.991964357098551*^9}, { + 3.9919652753355255`*^9, 3.991965275476549*^9}, 3.992074955977804*^9, + 3.992075164036129*^9, {3.9920751952035294`*^9, 3.9920751969244137`*^9}, + 3.9920752717631683`*^9, {3.9920753584614925`*^9, 3.9920753614083233`*^9}, { + 3.9920754740320644`*^9, 3.992075484551258*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"fc2d430a-c5ca-8f47-8093-6506a1b91783"], + +Cell[BoxData["0.921`"], "Output", + CellChangeTimes->{ + 3.9919643574642944`*^9, 3.9919652764203777`*^9, 3.9920749684262295`*^9, + 3.99207517855357*^9, {3.9920752161954193`*^9, 3.9920752529412575`*^9}, { + 3.9920752885754013`*^9, 3.9920753145851936`*^9}, 3.992075366222582*^9, { + 3.9920753972370415`*^9, 3.992075409377413*^9}, {3.9920754788239555`*^9, + 3.9920755090370293`*^9}, 3.9920756031411934`*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"a82ef174-2523-bd47-93e1-cbc3a3a55955"] +}, 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", ",", "14.5"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{ + 3.9917169014568214`*^9, {3.9920749980955143`*^9, 3.992074999223469*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"44d47a15-a0d8-c245-95ac-48359d9c9ae4"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVznk41AkYwPEhbZPIbGVHnlYz5sL8kqNjy/G+dmMLzUZEnrayUphS5EjG +GJKieaIcueWpZWk6ZpvFsBl0KVdts8l9plrVIFoak23/+D6ff7/0X456BmqT +SKTtX/pfbuxxHRKJhrO5ldYJkRTsWdig8XSiIVmWZl5LNsD7OZEFzLM0PDD4 +l1fsUz385N7ZvuUxDZdTWfW/leviamPlpNESOrZhDENwhowC1fpavgcdXU6V +Fe6Hr5A16mKkn0HHKK0QVaCVDn71ss54TRcdL1RoKlK/1saOuVY9LZop1mi7 +DY2YkHBqvTiD4W+K5zaN8kb75mBbtFRxr8wUHZfMaSSnZuGfztMi2RtT9JG1 ++IvKP0Ks94SVrwUD9T0Lh8+unoItnXeTTx5jYESvZfKLqxOwW+gcNiZl4Mwm +/rW3LBWUci21umcYOM5vZDpwxmB44rpI6MhES6W1wdZbr+BwZ0/msXgm3qY/ +blqlHAHLR+G8wftMjLqpHs+iDoF9V1XB5UUspNa8c4+U9kPih4D0Ph4LR2d3 +8NhHuqGaVXb8SSYLMx47ncl40AGbY3LHKM9ZmDCwbyS3WQlTyknyk1Vs3Oxp +7280+xQ+eahrevey0QdzzoT4tcP4q7w9xcVs3J9S7nU7qBlMkkuu9L9ko5n0 ++PSb6w8hx9knPpTDwQ93zqtvlN4DV/0IkiCUg8pYfkl6SwO8fccJc5BxcLnv +Yd7thjroUqVGbZ/moK29y8EcZQ2QPnnRe+zMMPftIvIgvQrCWW375XFmmN+2 +tiiIIQNlcF+aa50ZHlTzi1szpBBa6X3AT8ccFc3LTOQ7b4AXU9Ba7WyOud+4 +Hj3Kr4DwvMU9WWJzNJhcuPS0ohR6rF3iG9rMkbLHV3Pn4RXYMLRyWYmBBa6Z +zx4ecCyBpjwv13lvC9x1Nzn4fXUhlEY4UiWXLNBze4DtZG8u/LkrLaWjzwId +DK2+N8ZsaPSIHqtkclFfffP8tFUGrAhdOjQSyMWsCdqJ0qp0KLqoJ7wg4eKz +aZUi9pEYIl7Ib4jfczG9/lC+MzkFNm/83Ga3lsAY7esJvz47Dd8VlWcGRxLI +6XcxvtyeCIlsHdXLSgKDrNcNSvaJ4O8ksXp+nsCfznlk2uoJIAmNE8ppNKwY +jotaRKKgxHvrdHg3gdeE6wwTeEJ40fug0YtCw+DdQalFdhSkOrLDiUcENsan +vB4UxQMeCTkhf0fgiop/xxs4cZBIFAZYkGnoJjLSNPlS0N0my2pxPYH1tW3V +2wxEEOXfuSF7hEAzcVOkTB4HujFqec9HAnlhM+L8HAE830leZ6hDw6mmWant +IQoekrSkRdcSWGvinrxtowgudFOydQYIPLm+q7hugRBYH2xWuk0S2OrfTH3e +L4Dxz3f9QtUEEimqfIqnAESvHAp0tWl42XrAdG8oBSOCgxSWcgLDzlb8Huom +gqIcyf3aXgJbVNkysrkQbG61bdUeJ1Btx1D8sSAONLX7UlmzBIbc2m2PkQIY +cjLjVmkIfJrUHqm3VgC7pL47FmrRsD+w69J4GAXVP27w0a0m0LajpizVWwSs +6JM/X+oh0K1DSVXYCUF+vmCg9z2Blg/dfqg0jIOkvDWmWjMEbrR34r9OFkAw +7WPjxbkvfx6Tq1JQAHsC/DK6PxN41UZZnPetAP4DG982KA== + "], {{}, {}, + 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:eJwVznk41AkYwPEhbZPIbGVHnlYz5sL8kqNjy/G+dmMLzUZEnrayUphS5EjG +GJKieaIcueWpZWk6ZpvFsBl0KVdts8l9plrVIFoak23/+D6ff7/0X456BmqT +SKTtX/pfbuxxHRKJhrO5ldYJkRTsWdig8XSiIVmWZl5LNsD7OZEFzLM0PDD4 +l1fsUz385N7ZvuUxDZdTWfW/leviamPlpNESOrZhDENwhowC1fpavgcdXU6V +Fe6Hr5A16mKkn0HHKK0QVaCVDn71ss54TRcdL1RoKlK/1saOuVY9LZop1mi7 +DY2YkHBqvTiD4W+K5zaN8kb75mBbtFRxr8wUHZfMaSSnZuGfztMi2RtT9JG1 ++IvKP0Ks94SVrwUD9T0Lh8+unoItnXeTTx5jYESvZfKLqxOwW+gcNiZl4Mwm +/rW3LBWUci21umcYOM5vZDpwxmB44rpI6MhES6W1wdZbr+BwZ0/msXgm3qY/ +blqlHAHLR+G8wftMjLqpHs+iDoF9V1XB5UUspNa8c4+U9kPih4D0Ph4LR2d3 +8NhHuqGaVXb8SSYLMx47ncl40AGbY3LHKM9ZmDCwbyS3WQlTyknyk1Vs3Oxp +7280+xQ+eahrevey0QdzzoT4tcP4q7w9xcVs3J9S7nU7qBlMkkuu9L9ko5n0 ++PSb6w8hx9knPpTDwQ93zqtvlN4DV/0IkiCUg8pYfkl6SwO8fccJc5BxcLnv +Yd7thjroUqVGbZ/moK29y8EcZQ2QPnnRe+zMMPftIvIgvQrCWW375XFmmN+2 +tiiIIQNlcF+aa50ZHlTzi1szpBBa6X3AT8ccFc3LTOQ7b4AXU9Ba7WyOud+4 +Hj3Kr4DwvMU9WWJzNJhcuPS0ohR6rF3iG9rMkbLHV3Pn4RXYMLRyWYmBBa6Z +zx4ecCyBpjwv13lvC9x1Nzn4fXUhlEY4UiWXLNBze4DtZG8u/LkrLaWjzwId +DK2+N8ZsaPSIHqtkclFfffP8tFUGrAhdOjQSyMWsCdqJ0qp0KLqoJ7wg4eKz +aZUi9pEYIl7Ib4jfczG9/lC+MzkFNm/83Ga3lsAY7esJvz47Dd8VlWcGRxLI +6XcxvtyeCIlsHdXLSgKDrNcNSvaJ4O8ksXp+nsCfznlk2uoJIAmNE8ppNKwY +jotaRKKgxHvrdHg3gdeE6wwTeEJ40fug0YtCw+DdQalFdhSkOrLDiUcENsan +vB4UxQMeCTkhf0fgiop/xxs4cZBIFAZYkGnoJjLSNPlS0N0my2pxPYH1tW3V +2wxEEOXfuSF7hEAzcVOkTB4HujFqec9HAnlhM+L8HAE830leZ6hDw6mmWant +IQoekrSkRdcSWGvinrxtowgudFOydQYIPLm+q7hugRBYH2xWuk0S2OrfTH3e +L4Dxz3f9QtUEEimqfIqnAESvHAp0tWl42XrAdG8oBSOCgxSWcgLDzlb8Huom +gqIcyf3aXgJbVNkysrkQbG61bdUeJ1Btx1D8sSAONLX7UlmzBIbc2m2PkQIY +cjLjVmkIfJrUHqm3VgC7pL47FmrRsD+w69J4GAXVP27w0a0m0LajpizVWwSs +6JM/X+oh0K1DSVXYCUF+vmCg9z2Blg/dfqg0jIOkvDWmWjMEbrR34r9OFkAw +7WPjxbkvfx6Tq1JQAHsC/DK6PxN41UZZnPetAP4DG982KA== + "], {{{}, {}, + 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, 14.5}, {0., 4.114750649232968}}, + "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:eJwV0Hk41AkYwPEhbZPIbGVHnlYz5sL8kqNjy/G+dmMLzUZEnrayUphS5EjG +GJKieaIcueWpZWk6ZpvFsBl0KVdts8l9plrVIFoak23/+D6f/7/0X456BmqT +SKTtX/pfbuxxHRKJhrO5ldYJkRTcJfXdsVCLhv2BXZfGwygoeuVQoKtNw8vW +A6Z7Qyn4fCd5naEODaeaZqW2hyiYSBQGWJBp6CYy0jT5UvBF74NGLwoNg3cH +pRbZUTAJjRPKaTSsGI6LWkSiYM/CBo2nEw3JsjTzWrIB3s+JLGCepeGBwb+8 +Yp/q4Sf3zvYtj2m4nMqq/61cF1cbKyeNltCxDWMYgjNkFKjW1/I96Ohyqqxw +P3yFrFEXI/0MOkZphagCrXTwq5d1xmu66HihQlOR+rU2dsy16mnRTLFG221o +xISEU+vFGQx/Uzy3aZQ32jcH26Klintlpui4ZE4jOTUL/3SeFsnemKKPrMVf +VP4RYr0nrHwtGKjvWTh8dvUUbOm8m3zyGAMjei2TX1ydgN1C57AxKQNnNvGv +vWWpoJRrqdU9w8BxfiPTgTMGwxPXRUJHJloqrQ223noFhzt7Mo/FM/E2/XHT +KuUIWD4K5w3eZ2LUTfV4FnUI7LuqCi4vYiG15p17pLQfEj8EpPfxWDg6u4PH +PtIN1ayy408yWZjx2OlMxoMO2ByTO0Z5zsKEgX0juc1KmFJOkp+sYuNmT3t/ +o9mn8MlDXdO7l40+mHMmxK8dxl/l7SkuZuP+lHKv20HNYJJccqX/JRvNpMen +31x/CDnOPvGhHA5+uHNefaP0HrjqR5AEoRxUxvJL0lsa4O07TpiDjIPLfQ/z +bjfUQZcqNWr7NAdt7V0O5ihrgPTJi95jZ4a5bxeRB+lVEM5q2y+PM8P8trVF +QQwZKIP70lzrzPCgml/cmiGF0ErvA3465qhoXmYi33kDvJiC1mpnc8z9xvXo +UX4FhOct7skSm6PB5MKlpxWl0GPtEt/QZo6UPb6aOw+vwIahlctKDCxwzXz2 +8IBjCTTlebnOe1vgrrvJwe+rC6E0wpEquWSBntsDbCd7c+HPXWkpHX0W6GBo +9b0xZkOjR/RYJZOL+uqb56etMmBF6NKhkUAuZk3QTpRWpUPRRT3hBQkXn02r +FLGPxBDxQn5D/J6L6fWH8p3JKbB54+c2u7UExmhfT/j12Wn4rqg8MziSQE6/ +i/Hl9kRIZOuoXlYSGGS9blCyTwTqHzf46FYTaNtRU5bqLYKI4CCFpZzAsLMV +v4e6ieCQpCUtupbAWhP35G0bReBuk2W1uJ7A+tq26m0GIqA6ssOJRwQ2xqe8 +HhTFg8R763R4N4HXhOsME3hCYEWf/PlSD4FuHUqqwk4IRTmS+7W9BLaosmVk +cyFc6KZk6wwQeHJ9V3HdAiFE+XduyB4h0EzcFCmTxwEeCTkhf0fgiop/xxs4 +cSA/XzDQ+55Ay4duP1QaxoHNrbat2uMEqu0Yij8WxAHrg81Kt0kCW/2bqc/7 +BaAbo5b3fCSQFzYjzs8RQFLeGlOtGQI32jvxXycLQFO7L5U1S2DIrd32GCmA +8c93/ULVBBIpqnyKpwCCaR8bL859+eExuSoFBTDkZMat0hD4NKk9Um+tAPYE ++GV0fybwqo2yOO9bAfydJFbPzxP40zmPTFs9AfwHcNA2KA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 14.5}, {0., 4.114750649232968}}, + "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:eJwV0Hk41AkYwPEhbZPIbGVHnlYz5sL8kqNjy/G+dmMLzUZEnrayUphS5EjG +GJKieaIcueWpZWk6ZpvFsBl0KVdts8l9plrVIFoak23/+D6f/7/0X456BmqT +SKTtX/pfbuxxHRKJhrO5ldYJkRTcJfXdsVCLhv2BXZfGwygoeuVQoKtNw8vW +A6Z7Qyn4fCd5naEODaeaZqW2hyiYSBQGWJBp6CYy0jT5UvBF74NGLwoNg3cH +pRbZUTAJjRPKaTSsGI6LWkSiYM/CBo2nEw3JsjTzWrIB3s+JLGCepeGBwb+8 +Yp/q4Sf3zvYtj2m4nMqq/61cF1cbKyeNltCxDWMYgjNkFKjW1/I96Ohyqqxw +P3yFrFEXI/0MOkZphagCrXTwq5d1xmu66HihQlOR+rU2dsy16mnRTLFG221o +xISEU+vFGQx/Uzy3aZQ32jcH26Klintlpui4ZE4jOTUL/3SeFsnemKKPrMVf +VP4RYr0nrHwtGKjvWTh8dvUUbOm8m3zyGAMjei2TX1ydgN1C57AxKQNnNvGv +vWWpoJRrqdU9w8BxfiPTgTMGwxPXRUJHJloqrQ223noFhzt7Mo/FM/E2/XHT +KuUIWD4K5w3eZ2LUTfV4FnUI7LuqCi4vYiG15p17pLQfEj8EpPfxWDg6u4PH +PtIN1ayy408yWZjx2OlMxoMO2ByTO0Z5zsKEgX0juc1KmFJOkp+sYuNmT3t/ +o9mn8MlDXdO7l40+mHMmxK8dxl/l7SkuZuP+lHKv20HNYJJccqX/JRvNpMen +31x/CDnOPvGhHA5+uHNefaP0HrjqR5AEoRxUxvJL0lsa4O07TpiDjIPLfQ/z +bjfUQZcqNWr7NAdt7V0O5ihrgPTJi95jZ4a5bxeRB+lVEM5q2y+PM8P8trVF +QQwZKIP70lzrzPCgml/cmiGF0ErvA3465qhoXmYi33kDvJiC1mpnc8z9xvXo +UX4FhOct7skSm6PB5MKlpxWl0GPtEt/QZo6UPb6aOw+vwIahlctKDCxwzXz2 +8IBjCTTlebnOe1vgrrvJwe+rC6E0wpEquWSBntsDbCd7c+HPXWkpHX0W6GBo +9b0xZkOjR/RYJZOL+uqb56etMmBF6NKhkUAuZk3QTpRWpUPRRT3hBQkXn02r +FLGPxBDxQn5D/J6L6fWH8p3JKbB54+c2u7UExmhfT/j12Wn4rqg8MziSQE6/ +i/Hl9kRIZOuoXlYSGGS9blCyTwTqHzf46FYTaNtRU5bqLYKI4CCFpZzAsLMV +v4e6ieCQpCUtupbAWhP35G0bReBuk2W1uJ7A+tq26m0GIqA6ssOJRwQ2xqe8 +HhTFg8R763R4N4HXhOsME3hCYEWf/PlSD4FuHUqqwk4IRTmS+7W9BLaosmVk +cyFc6KZk6wwQeHJ9V3HdAiFE+XduyB4h0EzcFCmTxwEeCTkhf0fgiop/xxs4 +cSA/XzDQ+55Ay4duP1QaxoHNrbat2uMEqu0Yij8WxAHrg81Kt0kCW/2bqc/7 +BaAbo5b3fCSQFzYjzs8RQFLeGlOtGQI32jvxXycLQFO7L5U1S2DIrd32GCmA +8c93/ULVBBIpqnyKpwCCaR8bL859+eExuSoFBTDkZMat0hD4NKk9Um+tAPYE ++GV0fybwqo2yOO9bAfydJFbPzxP40zmPTFs9AfwHcNA2KA== + "]]}, "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:eJwVznk41AkYwPEhbZPIbGVHnlYz5sL8kqNjy/G+dmMLzUZEnrayUphS5EjG +GJKieaIcueWpZWk6ZpvFsBl0KVdts8l9plrVIFoak23/+D6ff7/0X456BmqT +SKTtX/pfbuxxHRKJhrO5ldYJkRTsWdig8XSiIVmWZl5LNsD7OZEFzLM0PDD4 +l1fsUz385N7ZvuUxDZdTWfW/leviamPlpNESOrZhDENwhowC1fpavgcdXU6V +Fe6Hr5A16mKkn0HHKK0QVaCVDn71ss54TRcdL1RoKlK/1saOuVY9LZop1mi7 +DY2YkHBqvTiD4W+K5zaN8kb75mBbtFRxr8wUHZfMaSSnZuGfztMi2RtT9JG1 ++IvKP0Ks94SVrwUD9T0Lh8+unoItnXeTTx5jYESvZfKLqxOwW+gcNiZl4Mwm +/rW3LBWUci21umcYOM5vZDpwxmB44rpI6MhES6W1wdZbr+BwZ0/msXgm3qY/ +blqlHAHLR+G8wftMjLqpHs+iDoF9V1XB5UUspNa8c4+U9kPih4D0Ph4LR2d3 +8NhHuqGaVXb8SSYLMx47ncl40AGbY3LHKM9ZmDCwbyS3WQlTyknyk1Vs3Oxp +7280+xQ+eahrevey0QdzzoT4tcP4q7w9xcVs3J9S7nU7qBlMkkuu9L9ko5n0 ++PSb6w8hx9knPpTDwQ93zqtvlN4DV/0IkiCUg8pYfkl6SwO8fccJc5BxcLnv +Yd7thjroUqVGbZ/moK29y8EcZQ2QPnnRe+zMMPftIvIgvQrCWW375XFmmN+2 +tiiIIQNlcF+aa50ZHlTzi1szpBBa6X3AT8ccFc3LTOQ7b4AXU9Ba7WyOud+4 +Hj3Kr4DwvMU9WWJzNJhcuPS0ohR6rF3iG9rMkbLHV3Pn4RXYMLRyWYmBBa6Z +zx4ecCyBpjwv13lvC9x1Nzn4fXUhlEY4UiWXLNBze4DtZG8u/LkrLaWjzwId +DK2+N8ZsaPSIHqtkclFfffP8tFUGrAhdOjQSyMWsCdqJ0qp0KLqoJ7wg4eKz +aZUi9pEYIl7Ib4jfczG9/lC+MzkFNm/83Ga3lsAY7esJvz47Dd8VlWcGRxLI +6XcxvtyeCIlsHdXLSgKDrNcNSvaJ4O8ksXp+nsCfznlk2uoJIAmNE8ppNKwY +jotaRKKgxHvrdHg3gdeE6wwTeEJ40fug0YtCw+DdQalFdhSkOrLDiUcENsan +vB4UxQMeCTkhf0fgiop/xxs4cZBIFAZYkGnoJjLSNPlS0N0my2pxPYH1tW3V +2wxEEOXfuSF7hEAzcVOkTB4HujFqec9HAnlhM+L8HAE830leZ6hDw6mmWant +IQoekrSkRdcSWGvinrxtowgudFOydQYIPLm+q7hugRBYH2xWuk0S2OrfTH3e +L4Dxz3f9QtUEEimqfIqnAESvHAp0tWl42XrAdG8oBSOCgxSWcgLDzlb8Huom +gqIcyf3aXgJbVNkysrkQbG61bdUeJ1Btx1D8sSAONLX7UlmzBIbc2m2PkQIY +cjLjVmkIfJrUHqm3VgC7pL47FmrRsD+w69J4GAXVP27w0a0m0LajpizVWwSs +6JM/X+oh0K1DSVXYCUF+vmCg9z2Blg/dfqg0jIOkvDWmWjMEbrR34r9OFkAw +7WPjxbkvfx6Tq1JQAHsC/DK6PxN41UZZnPetAP4DG982KA== + "], {{{}, {}, + 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, 14.5}, {0., 4.114750649232968}}, + "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:eJwV0Hk41AkYwPEhbZPIbGVHnlYz5sL8kqNjy/G+dmMLzUZEnrayUphS5EjG +GJKieaIcueWpZWk6ZpvFsBl0KVdts8l9plrVIFoak23/+D6f/7/0X456BmqT +SKTtX/pfbuxxHRKJhrO5ldYJkRTcJfXdsVCLhv2BXZfGwygoeuVQoKtNw8vW +A6Z7Qyn4fCd5naEODaeaZqW2hyiYSBQGWJBp6CYy0jT5UvBF74NGLwoNg3cH +pRbZUTAJjRPKaTSsGI6LWkSiYM/CBo2nEw3JsjTzWrIB3s+JLGCepeGBwb+8 +Yp/q4Sf3zvYtj2m4nMqq/61cF1cbKyeNltCxDWMYgjNkFKjW1/I96Ohyqqxw +P3yFrFEXI/0MOkZphagCrXTwq5d1xmu66HihQlOR+rU2dsy16mnRTLFG221o +xISEU+vFGQx/Uzy3aZQ32jcH26Klintlpui4ZE4jOTUL/3SeFsnemKKPrMVf +VP4RYr0nrHwtGKjvWTh8dvUUbOm8m3zyGAMjei2TX1ydgN1C57AxKQNnNvGv +vWWpoJRrqdU9w8BxfiPTgTMGwxPXRUJHJloqrQ223noFhzt7Mo/FM/E2/XHT +KuUIWD4K5w3eZ2LUTfV4FnUI7LuqCi4vYiG15p17pLQfEj8EpPfxWDg6u4PH +PtIN1ayy408yWZjx2OlMxoMO2ByTO0Z5zsKEgX0juc1KmFJOkp+sYuNmT3t/ +o9mn8MlDXdO7l40+mHMmxK8dxl/l7SkuZuP+lHKv20HNYJJccqX/JRvNpMen +31x/CDnOPvGhHA5+uHNefaP0HrjqR5AEoRxUxvJL0lsa4O07TpiDjIPLfQ/z +bjfUQZcqNWr7NAdt7V0O5ihrgPTJi95jZ4a5bxeRB+lVEM5q2y+PM8P8trVF +QQwZKIP70lzrzPCgml/cmiGF0ErvA3465qhoXmYi33kDvJiC1mpnc8z9xvXo +UX4FhOct7skSm6PB5MKlpxWl0GPtEt/QZo6UPb6aOw+vwIahlctKDCxwzXz2 +8IBjCTTlebnOe1vgrrvJwe+rC6E0wpEquWSBntsDbCd7c+HPXWkpHX0W6GBo +9b0xZkOjR/RYJZOL+uqb56etMmBF6NKhkUAuZk3QTpRWpUPRRT3hBQkXn02r +FLGPxBDxQn5D/J6L6fWH8p3JKbB54+c2u7UExmhfT/j12Wn4rqg8MziSQE6/ +i/Hl9kRIZOuoXlYSGGS9blCyTwTqHzf46FYTaNtRU5bqLYKI4CCFpZzAsLMV +v4e6ieCQpCUtupbAWhP35G0bReBuk2W1uJ7A+tq26m0GIqA6ssOJRwQ2xqe8 +HhTFg8R763R4N4HXhOsME3hCYEWf/PlSD4FuHUqqwk4IRTmS+7W9BLaosmVk +cyFc6KZk6wwQeHJ9V3HdAiFE+XduyB4h0EzcFCmTxwEeCTkhf0fgiop/xxs4 +cSA/XzDQ+55Ay4duP1QaxoHNrbat2uMEqu0Yij8WxAHrg81Kt0kCW/2bqc/7 +BaAbo5b3fCSQFzYjzs8RQFLeGlOtGQI32jvxXycLQFO7L5U1S2DIrd32GCmA +8c93/ULVBBIpqnyKpwCCaR8bL859+eExuSoFBTDkZMat0hD4NKk9Um+tAPYE ++GV0fybwqo2yOO9bAfydJFbPzxP40zmPTFs9AfwHcNA2KA== + "]]}, "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, 14.5}, {0., 4.114750649232968}}, + 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.9920749684777527`*^9, + 3.992075014008772*^9, 3.992075178605482*^9, {3.992075216291147*^9, + 3.992075252983261*^9}, {3.9920752886230335`*^9, 3.9920753146312065`*^9}, + 3.9920753662930145`*^9, {3.9920753972833557`*^9, 3.9920754094307175`*^9}, { + 3.992075478878092*^9, 3.992075509084055*^9}, 3.9920756031872044`*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"35e37fc9-d740-c24e-8fca-8ca671fd247d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l111", ",", "l222"}], "]"}]], "Input", + CellLabel-> + "In[104]:=",ExpressionUUID->"8e7fc59d-e930-4546-bd23-1735ec9df535"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVkXk41YkXxm1J8jOVoaQs13a/3y9GYbLknlNNEjOEURGia8maqCxzMyrL +HVmStVF37LKOLSFkDVkqU3SrkSLbcEuWkaS5vz/Oc57Pc973fZ7zvEqnzli7 +CQkICGTw5/9bKcpHWECAhuKeNo+djvFA1KVeqJvPOvacbw8c5cGMkZjQdUEa +6os05anZ8qB2LkdARZiGpvG8kn+seXDE8eWXQ6I01BvZ9YOvBQ/CdM2WEyRo +WHGlhmFxkAcv36rPKsjS0Ch+U2bEbh6kwOgg7Kah1XJ0RIk4D5rU/KrqTtOQ +U7tmIFw4Cyu/9bumZdDQctS7+jBjFkhL2YLzfTTkHZmrMeiYgW/2B3+ME1bG ++rgyH1fNGVhfUbJF/HtllE7rYETG/APVPy0aNfsoY1gf0+VL8zTY/khfupCt +jJvpRXQYmYINndqRiU+VkWEhpli3OAkBZ37aOS6ugg9LlHXkX00ALwliOMYq +qNXUZGHXMA5O23ewj51RwXOjVnqpse/gSr9EglmeCppj+ES75hjcWxvwyhpS +QUcxySSHwbdw26HUcrekKvqXWz5Ys30D7B0BHW0HVPFzY7QQo/Q1sI5LbKo7 +r4rULzKiOqOvQLW1njlZrIo9+WYxt6e58KaAEfvLsCra7ijq7d07BNb3BhtN +pdUw9eQdO9/Qp1CjbRcuY66GxnszCrM/PgFNWsVW04tqyI7M6l5jPwK7fTtr +q6rU0Opqxdfdhj2Q/spJ88q4Gi61Sn3mZHRCDzdGx2abOnJVytfd9muHKpGe +/Y4W6ijuqOJ3gtkCZcUjaj3h6iiZ39Jj3dcITuHi3wbeVccXf0Q9aJGvA6G7 +8tflZtWxRcwj9IDGHajzFHunrkDH+Ib7JjpClaBqJrrPz5aOStrawT5qZZCb +zz27jU1HmpPS5Z1hhbDVLU2nrY6O1nubVo3S8wCsPNcK3tMxebAte0IoG0Lr +NnE+KBHoULwxd7sLBwYKqm4/pBG4ec+hrkwzDpCpR6tylQn8OVlKYo8uB7gB +N7uOqxJoqCbfmbSeA/oa9PlmOoG5KfF/S/x5C5Y4YJr4HYGLCcm6CwK3ICDC +7+MuYwJnf9iyyaI8A7wse00CjxN4Z3r/wSXDG1CZ1DrCsCPQSk8jy5+4AStD +taHi9vx7s8iLpa03IMY5ryzrBIHuXbLtaovpUHQ2TOaxE4F5DcN5UuXp8E+S +9riGG4HPS0hJOXo6+DxPjhw/S2B11OHWEsU08HVxbLe7ys8P3zBkvjsF9lqm +OSvFEtjL1jrQr5wCEsZPVif5/Fv0qou9dAqUbDuoFxxPYI5MOydhORlmHmnk +pyYSqBsnf9r3fjJ4MVaj/0ojsONZyvAHi2Q4LZdh/lMugcoSG/RnzyUB89nz +AWwkkBudPnT+ZSJMS+05JttEYOxUp5RmfyL4W6e8nOPzJv3d63jNiRD2yGos +u5nA34tcZ2LzEyG9++GiSDuBWe3z/2MEJEJ/Y8O27ocEBrjW1XlsTAT9/Ewn +q+cEmpZ5BxX9cA0kg05Pu8wTeOJo/QapnDiI3Lh9jVrg54HhJ7/4OFj9o2fz +Ep8v0bdLcUPiYLpLyyBmicAqAdPMoSNx8GD7YnTlJwLrJB7IXvwaC2FNl1SF +BUjUvVzj4XIyFmbXZTjnSpD4+wfPa5bEVehN7hscVyVR8PUd1rNRNqyE5Ay0 +qJFYKeHWLviEDfSTIf031Uns0tfcubeJDVcI1QfWBInWZVu4L9LZYNjEutOk +QaJAn7DjfQs2FE5Qyak6JPofE2qTa4yGKMMYK5N9JC7nsP9+lRMFMGLSm+dA +4sLY+QWftAhY8HN+yHIk8db++8Oy7Ago+hLSZeNEohhXU2ogOAJk5ErbBZ35 +/rfTBq72ETBjK9XoyCSx/v13NyXlIyC953WptBeJHj6R5ecKrsDHmuCEyCAS +J7M0dlq2Xob8uCJrt+skKnYcyUyVuQQ/Bmwd0UwiUc4lQKFa/BJ8PBrhu8Tn +ctvpx9y1cGAoOrGjU0hUz8mvNp4Ih2eVm5sK00lMOHxrzL02HESeBxM8Dl+/ +UL3D0CEcmLRDAkHFJEr7xlWybH4Fxbujpex2EvW6HR0Malhwceac8qkOEp0r +RK9dzWTBCyXRG0YP+P90F4rwYliQFEuP4HWS+KKWGz56kgWip3ztf+4hUUEm +80KCOAtmJP4VVRwgUZNdL/jm1C9Qe0rc+e5rEs3HBDiyCqFgKblry/gKief6 +Yh8FtgXBzRvSWys+k9g2d/htaWUQTKusyLFWSUwMw/r5rCCIMGpT3bLG10fq +38gOD4La07YGDEEK33QoaMcygkCxLcQ5dT2F0ssy9dENF+BDUGuZybcU9rel +y001n4fENzbmBZoUXvDcKFc6FQjuMixrPy0KewStzN6+DARD81w7ve8oNNQ5 +8FmxPxDGqhc82rT5/mLjrvrKQNBnp0S81qHQy/W93UlWIAxrDTVuNaRwMD68 +w31zIGiw7LXZJhS2/K7+bv/+AOiUcZH2PElhquS25eFGf7C+WSqyz5lCXXqx +smmFPwwrrcxvc6HQJuBxQ32uPyxpJA10naLw0fqncg1X/UHlQEcC3Z1C2vBs +t5a9P1w+Q4hP+lBYlf2+OWPuDOztmltzD6UQ2Lbp0SF+UBlyedI1hUJy4am0 +WYM3aNnSPLRSKTxYO7/06LY3FGm3vvuXz+dZ1SHMFG/InhAcjUmnUK/RiFHl +5w3XbS/9XZ5BYcJi4b0FJW8I2BU+sJpFYeOo88l/Y7xg19TFhuQyCu80Cljd +c/eE8uMh19o7KQxLaSGsD3iAXgsRltdF4VBf8YTULg+oJ154R3VTWCBWMzUq +7wFtK4aHTHsoLNd+Gle24g6DN1e/9PRTWCJ8V2m20h1WR371/usZhSlXat6v +U3MHU88ok7ejFHJ1OpNOyLhB35PvddvGKAy4GPrp8To3sDacUMp9R+F1o1NH +bBZd4cRG0y9uExTOfHO1MOypK/iVbqiemqYwas/WOb8kV0iei1Wam6MwJnZS +o1TKFWTtjb8Z+EjhLe6TLzPCrsBpnV2tnOf39+kozWCBCQVJFs/PLVIoqDAI +S0+ZUK+3KWF5mcLD+n+2CKUxgcFpZnE/UThqaKaSG82ENtGzXvUr/H5oV+Kt +gpnQO/TkIGuVQmdL+58f2zHBCi/rOH6h0DXoyK0sMyYM3t6txFij8BImd4UZ +McF+86ikwlcKH18b7fXQYMLrkKTVr3zWDxTOctjJhP8AyJplMA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkXk41YkXxm1J8jOVoaQs13a/3y9GYbLknlNNEjOEURGia8maqCxzMyrL +HVmStVF37LKOLSFkDVkqU3SrkSLbcEuWkaS5vz/Oc57Pc973fZ7zvEqnzli7 +CQkICGTw5/9bKcpHWECAhuKeNo+djvFA1KVeqJvPOvacbw8c5cGMkZjQdUEa +6os05anZ8qB2LkdARZiGpvG8kn+seXDE8eWXQ6I01BvZ9YOvBQ/CdM2WEyRo +WHGlhmFxkAcv36rPKsjS0Ch+U2bEbh6kwOgg7Kah1XJ0RIk4D5rU/KrqTtOQ +U7tmIFw4Cyu/9bumZdDQctS7+jBjFkhL2YLzfTTkHZmrMeiYgW/2B3+ME1bG ++rgyH1fNGVhfUbJF/HtllE7rYETG/APVPy0aNfsoY1gf0+VL8zTY/khfupCt +jJvpRXQYmYINndqRiU+VkWEhpli3OAkBZ37aOS6ugg9LlHXkX00ALwliOMYq +qNXUZGHXMA5O23ewj51RwXOjVnqpse/gSr9EglmeCppj+ES75hjcWxvwyhpS +QUcxySSHwbdw26HUcrekKvqXWz5Ys30D7B0BHW0HVPFzY7QQo/Q1sI5LbKo7 +r4rULzKiOqOvQLW1njlZrIo9+WYxt6e58KaAEfvLsCra7ijq7d07BNb3BhtN +pdUw9eQdO9/Qp1CjbRcuY66GxnszCrM/PgFNWsVW04tqyI7M6l5jPwK7fTtr +q6rU0Opqxdfdhj2Q/spJ88q4Gi61Sn3mZHRCDzdGx2abOnJVytfd9muHKpGe +/Y4W6ijuqOJ3gtkCZcUjaj3h6iiZ39Jj3dcITuHi3wbeVccXf0Q9aJGvA6G7 +8tflZtWxRcwj9IDGHajzFHunrkDH+Ib7JjpClaBqJrrPz5aOStrawT5qZZCb +zz27jU1HmpPS5Z1hhbDVLU2nrY6O1nubVo3S8wCsPNcK3tMxebAte0IoG0Lr +NnE+KBHoULwxd7sLBwYKqm4/pBG4ec+hrkwzDpCpR6tylQn8OVlKYo8uB7gB +N7uOqxJoqCbfmbSeA/oa9PlmOoG5KfF/S/x5C5Y4YJr4HYGLCcm6CwK3ICDC +7+MuYwJnf9iyyaI8A7wse00CjxN4Z3r/wSXDG1CZ1DrCsCPQSk8jy5+4AStD +taHi9vx7s8iLpa03IMY5ryzrBIHuXbLtaovpUHQ2TOaxE4F5DcN5UuXp8E+S +9riGG4HPS0hJOXo6+DxPjhw/S2B11OHWEsU08HVxbLe7ys8P3zBkvjsF9lqm +OSvFEtjL1jrQr5wCEsZPVif5/Fv0qou9dAqUbDuoFxxPYI5MOydhORlmHmnk +pyYSqBsnf9r3fjJ4MVaj/0ojsONZyvAHi2Q4LZdh/lMugcoSG/RnzyUB89nz +AWwkkBudPnT+ZSJMS+05JttEYOxUp5RmfyL4W6e8nOPzJv3d63jNiRD2yGos +u5nA34tcZ2LzEyG9++GiSDuBWe3z/2MEJEJ/Y8O27ocEBrjW1XlsTAT9/Ewn +q+cEmpZ5BxX9cA0kg05Pu8wTeOJo/QapnDiI3Lh9jVrg54HhJ7/4OFj9o2fz +Ep8v0bdLcUPiYLpLyyBmicAqAdPMoSNx8GD7YnTlJwLrJB7IXvwaC2FNl1SF +BUjUvVzj4XIyFmbXZTjnSpD4+wfPa5bEVehN7hscVyVR8PUd1rNRNqyE5Ay0 +qJFYKeHWLviEDfSTIf031Uns0tfcubeJDVcI1QfWBInWZVu4L9LZYNjEutOk +QaJAn7DjfQs2FE5Qyak6JPofE2qTa4yGKMMYK5N9JC7nsP9+lRMFMGLSm+dA +4sLY+QWftAhY8HN+yHIk8db++8Oy7Ago+hLSZeNEohhXU2ogOAJk5ErbBZ35 +/rfTBq72ETBjK9XoyCSx/v13NyXlIyC953WptBeJHj6R5ecKrsDHmuCEyCAS +J7M0dlq2Xob8uCJrt+skKnYcyUyVuQQ/Bmwd0UwiUc4lQKFa/BJ8PBrhu8Tn +ctvpx9y1cGAoOrGjU0hUz8mvNp4Ih2eVm5sK00lMOHxrzL02HESeBxM8Dl+/ +UL3D0CEcmLRDAkHFJEr7xlWybH4Fxbujpex2EvW6HR0Malhwceac8qkOEp0r +RK9dzWTBCyXRG0YP+P90F4rwYliQFEuP4HWS+KKWGz56kgWip3ztf+4hUUEm +80KCOAtmJP4VVRwgUZNdL/jm1C9Qe0rc+e5rEs3HBDiyCqFgKblry/gKief6 +Yh8FtgXBzRvSWys+k9g2d/htaWUQTKusyLFWSUwMw/r5rCCIMGpT3bLG10fq +38gOD4La07YGDEEK33QoaMcygkCxLcQ5dT2F0ssy9dENF+BDUGuZybcU9rel +y001n4fENzbmBZoUXvDcKFc6FQjuMixrPy0KewStzN6+DARD81w7ve8oNNQ5 +8FmxPxDGqhc82rT5/mLjrvrKQNBnp0S81qHQy/W93UlWIAxrDTVuNaRwMD68 +w31zIGiw7LXZJhS2/K7+bv/+AOiUcZH2PElhquS25eFGf7C+WSqyz5lCXXqx +smmFPwwrrcxvc6HQJuBxQ32uPyxpJA10naLw0fqncg1X/UHlQEcC3Z1C2vBs +t5a9P1w+Q4hP+lBYlf2+OWPuDOztmltzD6UQ2Lbp0SF+UBlyedI1hUJy4am0 +WYM3aNnSPLRSKTxYO7/06LY3FGm3vvuXz+dZ1SHMFG/InhAcjUmnUK/RiFHl +5w3XbS/9XZ5BYcJi4b0FJW8I2BU+sJpFYeOo88l/Y7xg19TFhuQyCu80Cljd +c/eE8uMh19o7KQxLaSGsD3iAXgsRltdF4VBf8YTULg+oJ154R3VTWCBWMzUq +7wFtK4aHTHsoLNd+Gle24g6DN1e/9PRTWCJ8V2m20h1WR371/usZhSlXat6v +U3MHU88ok7ejFHJ1OpNOyLhB35PvddvGKAy4GPrp8To3sDacUMp9R+F1o1NH +bBZd4cRG0y9uExTOfHO1MOypK/iVbqiemqYwas/WOb8kV0iei1Wam6MwJnZS +o1TKFWTtjb8Z+EjhLe6TLzPCrsBpnV2tnOf39+kozWCBCQVJFs/PLVIoqDAI +S0+ZUK+3KWF5mcLD+n+2CKUxgcFpZnE/UThqaKaSG82ENtGzXvUr/H5oV+Kt +gpnQO/TkIGuVQmdL+58f2zHBCi/rOH6h0DXoyK0sMyYM3t6txFij8BImd4UZ +McF+86ikwlcKH18b7fXQYMLrkKTVr3zWDxTOctjJhP8AyJplMA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{9, 14}, {0., 0.948165327917452}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{9, 14}, {0., 0.948165327917452}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkXk41YkXxm1J8jOVoaQs13a/3y9GYbLknlNNEjOEURGia8maqCxzMyrL +HVmStVF37LKOLSFkDVkqU3SrkSLbcEuWkaS5vz/Oc57Pc973fZ7zvEqnzli7 +CQkICGTw5/9bKcpHWECAhuKeNo+djvFA1KVeqJvPOvacbw8c5cGMkZjQdUEa +6os05anZ8qB2LkdARZiGpvG8kn+seXDE8eWXQ6I01BvZ9YOvBQ/CdM2WEyRo +WHGlhmFxkAcv36rPKsjS0Ch+U2bEbh6kwOgg7Kah1XJ0RIk4D5rU/KrqTtOQ +U7tmIFw4Cyu/9bumZdDQctS7+jBjFkhL2YLzfTTkHZmrMeiYgW/2B3+ME1bG ++rgyH1fNGVhfUbJF/HtllE7rYETG/APVPy0aNfsoY1gf0+VL8zTY/khfupCt +jJvpRXQYmYINndqRiU+VkWEhpli3OAkBZ37aOS6ugg9LlHXkX00ALwliOMYq +qNXUZGHXMA5O23ewj51RwXOjVnqpse/gSr9EglmeCppj+ES75hjcWxvwyhpS +QUcxySSHwbdw26HUcrekKvqXWz5Ys30D7B0BHW0HVPFzY7QQo/Q1sI5LbKo7 +r4rULzKiOqOvQLW1njlZrIo9+WYxt6e58KaAEfvLsCra7ijq7d07BNb3BhtN +pdUw9eQdO9/Qp1CjbRcuY66GxnszCrM/PgFNWsVW04tqyI7M6l5jPwK7fTtr +q6rU0Opqxdfdhj2Q/spJ88q4Gi61Sn3mZHRCDzdGx2abOnJVytfd9muHKpGe +/Y4W6ijuqOJ3gtkCZcUjaj3h6iiZ39Jj3dcITuHi3wbeVccXf0Q9aJGvA6G7 +8tflZtWxRcwj9IDGHajzFHunrkDH+Ib7JjpClaBqJrrPz5aOStrawT5qZZCb +zz27jU1HmpPS5Z1hhbDVLU2nrY6O1nubVo3S8wCsPNcK3tMxebAte0IoG0Lr +NnE+KBHoULwxd7sLBwYKqm4/pBG4ec+hrkwzDpCpR6tylQn8OVlKYo8uB7gB +N7uOqxJoqCbfmbSeA/oa9PlmOoG5KfF/S/x5C5Y4YJr4HYGLCcm6CwK3ICDC +7+MuYwJnf9iyyaI8A7wse00CjxN4Z3r/wSXDG1CZ1DrCsCPQSk8jy5+4AStD +taHi9vx7s8iLpa03IMY5ryzrBIHuXbLtaovpUHQ2TOaxE4F5DcN5UuXp8E+S +9riGG4HPS0hJOXo6+DxPjhw/S2B11OHWEsU08HVxbLe7ys8P3zBkvjsF9lqm +OSvFEtjL1jrQr5wCEsZPVif5/Fv0qou9dAqUbDuoFxxPYI5MOydhORlmHmnk +pyYSqBsnf9r3fjJ4MVaj/0ojsONZyvAHi2Q4LZdh/lMugcoSG/RnzyUB89nz +AWwkkBudPnT+ZSJMS+05JttEYOxUp5RmfyL4W6e8nOPzJv3d63jNiRD2yGos +u5nA34tcZ2LzEyG9++GiSDuBWe3z/2MEJEJ/Y8O27ocEBrjW1XlsTAT9/Ewn +q+cEmpZ5BxX9cA0kg05Pu8wTeOJo/QapnDiI3Lh9jVrg54HhJ7/4OFj9o2fz +Ep8v0bdLcUPiYLpLyyBmicAqAdPMoSNx8GD7YnTlJwLrJB7IXvwaC2FNl1SF +BUjUvVzj4XIyFmbXZTjnSpD4+wfPa5bEVehN7hscVyVR8PUd1rNRNqyE5Ay0 +qJFYKeHWLviEDfSTIf031Uns0tfcubeJDVcI1QfWBInWZVu4L9LZYNjEutOk +QaJAn7DjfQs2FE5Qyak6JPofE2qTa4yGKMMYK5N9JC7nsP9+lRMFMGLSm+dA +4sLY+QWftAhY8HN+yHIk8db++8Oy7Ago+hLSZeNEohhXU2ogOAJk5ErbBZ35 +/rfTBq72ETBjK9XoyCSx/v13NyXlIyC953WptBeJHj6R5ecKrsDHmuCEyCAS +J7M0dlq2Xob8uCJrt+skKnYcyUyVuQQ/Bmwd0UwiUc4lQKFa/BJ8PBrhu8Tn +ctvpx9y1cGAoOrGjU0hUz8mvNp4Ih2eVm5sK00lMOHxrzL02HESeBxM8Dl+/ +UL3D0CEcmLRDAkHFJEr7xlWybH4Fxbujpex2EvW6HR0Malhwceac8qkOEp0r +RK9dzWTBCyXRG0YP+P90F4rwYliQFEuP4HWS+KKWGz56kgWip3ztf+4hUUEm +80KCOAtmJP4VVRwgUZNdL/jm1C9Qe0rc+e5rEs3HBDiyCqFgKblry/gKief6 +Yh8FtgXBzRvSWys+k9g2d/htaWUQTKusyLFWSUwMw/r5rCCIMGpT3bLG10fq +38gOD4La07YGDEEK33QoaMcygkCxLcQ5dT2F0ssy9dENF+BDUGuZybcU9rel +y001n4fENzbmBZoUXvDcKFc6FQjuMixrPy0KewStzN6+DARD81w7ve8oNNQ5 +8FmxPxDGqhc82rT5/mLjrvrKQNBnp0S81qHQy/W93UlWIAxrDTVuNaRwMD68 +w31zIGiw7LXZJhS2/K7+bv/+AOiUcZH2PElhquS25eFGf7C+WSqyz5lCXXqx +smmFPwwrrcxvc6HQJuBxQ32uPyxpJA10naLw0fqncg1X/UHlQEcC3Z1C2vBs +t5a9P1w+Q4hP+lBYlf2+OWPuDOztmltzD6UQ2Lbp0SF+UBlyedI1hUJy4am0 +WYM3aNnSPLRSKTxYO7/06LY3FGm3vvuXz+dZ1SHMFG/InhAcjUmnUK/RiFHl +5w3XbS/9XZ5BYcJi4b0FJW8I2BU+sJpFYeOo88l/Y7xg19TFhuQyCu80Cljd +c/eE8uMh19o7KQxLaSGsD3iAXgsRltdF4VBf8YTULg+oJ154R3VTWCBWMzUq +7wFtK4aHTHsoLNd+Gle24g6DN1e/9PRTWCJ8V2m20h1WR371/usZhSlXat6v +U3MHU88ok7ejFHJ1OpNOyLhB35PvddvGKAy4GPrp8To3sDacUMp9R+F1o1NH +bBZd4cRG0y9uExTOfHO1MOypK/iVbqiemqYwas/WOb8kV0iei1Wam6MwJnZS +o1TKFWTtjb8Z+EjhLe6TLzPCrsBpnV2tnOf39+kozWCBCQVJFs/PLVIoqDAI +S0+ZUK+3KWF5mcLD+n+2CKUxgcFpZnE/UThqaKaSG82ENtGzXvUr/H5oV+Kt +gpnQO/TkIGuVQmdL+58f2zHBCi/rOH6h0DXoyK0sMyYM3t6txFij8BImd4UZ +McF+86ikwlcKH18b7fXQYMLrkKTVr3zWDxTOctjJhP8AyJplMA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{9, 14}, {0., 0.948165327917452}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + 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:eJwVznk41AkYwPEhbZPIbGVHnlYz5sL8kqNjy/G+dmMLzUZEnrayUphS5EjG +GJKieaIcueWpZWk6ZpvFsBl0KVdts8l9plrVIFoak23/+D6ff7/0X456BmqT +SKTtX/pfbuxxHRKJhrO5ldYJkRTsWdig8XSiIVmWZl5LNsD7OZEFzLM0PDD4 +l1fsUz385N7ZvuUxDZdTWfW/leviamPlpNESOrZhDENwhowC1fpavgcdXU6V +Fe6Hr5A16mKkn0HHKK0QVaCVDn71ss54TRcdL1RoKlK/1saOuVY9LZop1mi7 +DY2YkHBqvTiD4W+K5zaN8kb75mBbtFRxr8wUHZfMaSSnZuGfztMi2RtT9JG1 ++IvKP0Ks94SVrwUD9T0Lh8+unoItnXeTTx5jYESvZfKLqxOwW+gcNiZl4Mwm +/rW3LBWUci21umcYOM5vZDpwxmB44rpI6MhES6W1wdZbr+BwZ0/msXgm3qY/ +blqlHAHLR+G8wftMjLqpHs+iDoF9V1XB5UUspNa8c4+U9kPih4D0Ph4LR2d3 +8NhHuqGaVXb8SSYLMx47ncl40AGbY3LHKM9ZmDCwbyS3WQlTyknyk1Vs3Oxp +7280+xQ+eahrevey0QdzzoT4tcP4q7w9xcVs3J9S7nU7qBlMkkuu9L9ko5n0 ++PSb6w8hx9knPpTDwQ93zqtvlN4DV/0IkiCUg8pYfkl6SwO8fccJc5BxcLnv +Yd7thjroUqVGbZ/moK29y8EcZQ2QPnnRe+zMMPftIvIgvQrCWW375XFmmN+2 +tiiIIQNlcF+aa50ZHlTzi1szpBBa6X3AT8ccFc3LTOQ7b4AXU9Ba7WyOud+4 +Hj3Kr4DwvMU9WWJzNJhcuPS0ohR6rF3iG9rMkbLHV3Pn4RXYMLRyWYmBBa6Z +zx4ecCyBpjwv13lvC9x1Nzn4fXUhlEY4UiWXLNBze4DtZG8u/LkrLaWjzwId +DK2+N8ZsaPSIHqtkclFfffP8tFUGrAhdOjQSyMWsCdqJ0qp0KLqoJ7wg4eKz +aZUi9pEYIl7Ib4jfczG9/lC+MzkFNm/83Ga3lsAY7esJvz47Dd8VlWcGRxLI +6XcxvtyeCIlsHdXLSgKDrNcNSvaJ4O8ksXp+nsCfznlk2uoJIAmNE8ppNKwY +jotaRKKgxHvrdHg3gdeE6wwTeEJ40fug0YtCw+DdQalFdhSkOrLDiUcENsan +vB4UxQMeCTkhf0fgiop/xxs4cZBIFAZYkGnoJjLSNPlS0N0my2pxPYH1tW3V +2wxEEOXfuSF7hEAzcVOkTB4HujFqec9HAnlhM+L8HAE830leZ6hDw6mmWant +IQoekrSkRdcSWGvinrxtowgudFOydQYIPLm+q7hugRBYH2xWuk0S2OrfTH3e +L4Dxz3f9QtUEEimqfIqnAESvHAp0tWl42XrAdG8oBSOCgxSWcgLDzlb8Huom +gqIcyf3aXgJbVNkysrkQbG61bdUeJ1Btx1D8sSAONLX7UlmzBIbc2m2PkQIY +cjLjVmkIfJrUHqm3VgC7pL47FmrRsD+w69J4GAXVP27w0a0m0LajpizVWwSs +6JM/X+oh0K1DSVXYCUF+vmCg9z2Blg/dfqg0jIOkvDWmWjMEbrR34r9OFkAw +7WPjxbkvfx6Tq1JQAHsC/DK6PxN41UZZnPetAP4DG982KA== + "], {{}, {}, + 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:eJwVznk41AkYwPEhbZPIbGVHnlYz5sL8kqNjy/G+dmMLzUZEnrayUphS5EjG +GJKieaIcueWpZWk6ZpvFsBl0KVdts8l9plrVIFoak23/+D6ff7/0X456BmqT +SKTtX/pfbuxxHRKJhrO5ldYJkRTsWdig8XSiIVmWZl5LNsD7OZEFzLM0PDD4 +l1fsUz385N7ZvuUxDZdTWfW/leviamPlpNESOrZhDENwhowC1fpavgcdXU6V +Fe6Hr5A16mKkn0HHKK0QVaCVDn71ss54TRcdL1RoKlK/1saOuVY9LZop1mi7 +DY2YkHBqvTiD4W+K5zaN8kb75mBbtFRxr8wUHZfMaSSnZuGfztMi2RtT9JG1 ++IvKP0Ks94SVrwUD9T0Lh8+unoItnXeTTx5jYESvZfKLqxOwW+gcNiZl4Mwm +/rW3LBWUci21umcYOM5vZDpwxmB44rpI6MhES6W1wdZbr+BwZ0/msXgm3qY/ +blqlHAHLR+G8wftMjLqpHs+iDoF9V1XB5UUspNa8c4+U9kPih4D0Ph4LR2d3 +8NhHuqGaVXb8SSYLMx47ncl40AGbY3LHKM9ZmDCwbyS3WQlTyknyk1Vs3Oxp +7280+xQ+eahrevey0QdzzoT4tcP4q7w9xcVs3J9S7nU7qBlMkkuu9L9ko5n0 ++PSb6w8hx9knPpTDwQ93zqtvlN4DV/0IkiCUg8pYfkl6SwO8fccJc5BxcLnv +Yd7thjroUqVGbZ/moK29y8EcZQ2QPnnRe+zMMPftIvIgvQrCWW375XFmmN+2 +tiiIIQNlcF+aa50ZHlTzi1szpBBa6X3AT8ccFc3LTOQ7b4AXU9Ba7WyOud+4 +Hj3Kr4DwvMU9WWJzNJhcuPS0ohR6rF3iG9rMkbLHV3Pn4RXYMLRyWYmBBa6Z +zx4ecCyBpjwv13lvC9x1Nzn4fXUhlEY4UiWXLNBze4DtZG8u/LkrLaWjzwId +DK2+N8ZsaPSIHqtkclFfffP8tFUGrAhdOjQSyMWsCdqJ0qp0KLqoJ7wg4eKz +aZUi9pEYIl7Ib4jfczG9/lC+MzkFNm/83Ga3lsAY7esJvz47Dd8VlWcGRxLI +6XcxvtyeCIlsHdXLSgKDrNcNSvaJ4O8ksXp+nsCfznlk2uoJIAmNE8ppNKwY +jotaRKKgxHvrdHg3gdeE6wwTeEJ40fug0YtCw+DdQalFdhSkOrLDiUcENsan +vB4UxQMeCTkhf0fgiop/xxs4cZBIFAZYkGnoJjLSNPlS0N0my2pxPYH1tW3V +2wxEEOXfuSF7hEAzcVOkTB4HujFqec9HAnlhM+L8HAE830leZ6hDw6mmWant +IQoekrSkRdcSWGvinrxtowgudFOydQYIPLm+q7hugRBYH2xWuk0S2OrfTH3e +L4Dxz3f9QtUEEimqfIqnAESvHAp0tWl42XrAdG8oBSOCgxSWcgLDzlb8Huom +gqIcyf3aXgJbVNkysrkQbG61bdUeJ1Btx1D8sSAONLX7UlmzBIbc2m2PkQIY +cjLjVmkIfJrUHqm3VgC7pL47FmrRsD+w69J4GAXVP27w0a0m0LajpizVWwSs +6JM/X+oh0K1DSVXYCUF+vmCg9z2Blg/dfqg0jIOkvDWmWjMEbrR34r9OFkAw +7WPjxbkvfx6Tq1JQAHsC/DK6PxN41UZZnPetAP4DG982KA== + "], {{{}, {}, + 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, 14.5}, {0., 4.114750649232968}}, + "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:eJwV0Hk41AkYwPEhbZPIbGVHnlYz5sL8kqNjy/G+dmMLzUZEnrayUphS5EjG +GJKieaIcueWpZWk6ZpvFsBl0KVdts8l9plrVIFoak23/+D6f/7/0X456BmqT +SKTtX/pfbuxxHRKJhrO5ldYJkRTcJfXdsVCLhv2BXZfGwygoeuVQoKtNw8vW +A6Z7Qyn4fCd5naEODaeaZqW2hyiYSBQGWJBp6CYy0jT5UvBF74NGLwoNg3cH +pRbZUTAJjRPKaTSsGI6LWkSiYM/CBo2nEw3JsjTzWrIB3s+JLGCepeGBwb+8 +Yp/q4Sf3zvYtj2m4nMqq/61cF1cbKyeNltCxDWMYgjNkFKjW1/I96Ohyqqxw +P3yFrFEXI/0MOkZphagCrXTwq5d1xmu66HihQlOR+rU2dsy16mnRTLFG221o +xISEU+vFGQx/Uzy3aZQ32jcH26Klintlpui4ZE4jOTUL/3SeFsnemKKPrMVf +VP4RYr0nrHwtGKjvWTh8dvUUbOm8m3zyGAMjei2TX1ydgN1C57AxKQNnNvGv +vWWpoJRrqdU9w8BxfiPTgTMGwxPXRUJHJloqrQ223noFhzt7Mo/FM/E2/XHT +KuUIWD4K5w3eZ2LUTfV4FnUI7LuqCi4vYiG15p17pLQfEj8EpPfxWDg6u4PH +PtIN1ayy408yWZjx2OlMxoMO2ByTO0Z5zsKEgX0juc1KmFJOkp+sYuNmT3t/ +o9mn8MlDXdO7l40+mHMmxK8dxl/l7SkuZuP+lHKv20HNYJJccqX/JRvNpMen +31x/CDnOPvGhHA5+uHNefaP0HrjqR5AEoRxUxvJL0lsa4O07TpiDjIPLfQ/z +bjfUQZcqNWr7NAdt7V0O5ihrgPTJi95jZ4a5bxeRB+lVEM5q2y+PM8P8trVF +QQwZKIP70lzrzPCgml/cmiGF0ErvA3465qhoXmYi33kDvJiC1mpnc8z9xvXo +UX4FhOct7skSm6PB5MKlpxWl0GPtEt/QZo6UPb6aOw+vwIahlctKDCxwzXz2 +8IBjCTTlebnOe1vgrrvJwe+rC6E0wpEquWSBntsDbCd7c+HPXWkpHX0W6GBo +9b0xZkOjR/RYJZOL+uqb56etMmBF6NKhkUAuZk3QTpRWpUPRRT3hBQkXn02r +FLGPxBDxQn5D/J6L6fWH8p3JKbB54+c2u7UExmhfT/j12Wn4rqg8MziSQE6/ +i/Hl9kRIZOuoXlYSGGS9blCyTwTqHzf46FYTaNtRU5bqLYKI4CCFpZzAsLMV +v4e6ieCQpCUtupbAWhP35G0bReBuk2W1uJ7A+tq26m0GIqA6ssOJRwQ2xqe8 +HhTFg8R763R4N4HXhOsME3hCYEWf/PlSD4FuHUqqwk4IRTmS+7W9BLaosmVk +cyFc6KZk6wwQeHJ9V3HdAiFE+XduyB4h0EzcFCmTxwEeCTkhf0fgiop/xxs4 +cSA/XzDQ+55Ay4duP1QaxoHNrbat2uMEqu0Yij8WxAHrg81Kt0kCW/2bqc/7 +BaAbo5b3fCSQFzYjzs8RQFLeGlOtGQI32jvxXycLQFO7L5U1S2DIrd32GCmA +8c93/ULVBBIpqnyKpwCCaR8bL859+eExuSoFBTDkZMat0hD4NKk9Um+tAPYE ++GV0fybwqo2yOO9bAfydJFbPzxP40zmPTFs9AfwHcNA2KA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 14.5}, {0., 4.114750649232968}}, + "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:eJwV0Hk41AkYwPEhbZPIbGVHnlYz5sL8kqNjy/G+dmMLzUZEnrayUphS5EjG +GJKieaIcueWpZWk6ZpvFsBl0KVdts8l9plrVIFoak23/+D6f/7/0X456BmqT +SKTtX/pfbuxxHRKJhrO5ldYJkRTcJfXdsVCLhv2BXZfGwygoeuVQoKtNw8vW +A6Z7Qyn4fCd5naEODaeaZqW2hyiYSBQGWJBp6CYy0jT5UvBF74NGLwoNg3cH +pRbZUTAJjRPKaTSsGI6LWkSiYM/CBo2nEw3JsjTzWrIB3s+JLGCepeGBwb+8 +Yp/q4Sf3zvYtj2m4nMqq/61cF1cbKyeNltCxDWMYgjNkFKjW1/I96Ohyqqxw +P3yFrFEXI/0MOkZphagCrXTwq5d1xmu66HihQlOR+rU2dsy16mnRTLFG221o +xISEU+vFGQx/Uzy3aZQ32jcH26Klintlpui4ZE4jOTUL/3SeFsnemKKPrMVf +VP4RYr0nrHwtGKjvWTh8dvUUbOm8m3zyGAMjei2TX1ydgN1C57AxKQNnNvGv +vWWpoJRrqdU9w8BxfiPTgTMGwxPXRUJHJloqrQ223noFhzt7Mo/FM/E2/XHT +KuUIWD4K5w3eZ2LUTfV4FnUI7LuqCi4vYiG15p17pLQfEj8EpPfxWDg6u4PH +PtIN1ayy408yWZjx2OlMxoMO2ByTO0Z5zsKEgX0juc1KmFJOkp+sYuNmT3t/ +o9mn8MlDXdO7l40+mHMmxK8dxl/l7SkuZuP+lHKv20HNYJJccqX/JRvNpMen +31x/CDnOPvGhHA5+uHNefaP0HrjqR5AEoRxUxvJL0lsa4O07TpiDjIPLfQ/z +bjfUQZcqNWr7NAdt7V0O5ihrgPTJi95jZ4a5bxeRB+lVEM5q2y+PM8P8trVF +QQwZKIP70lzrzPCgml/cmiGF0ErvA3465qhoXmYi33kDvJiC1mpnc8z9xvXo +UX4FhOct7skSm6PB5MKlpxWl0GPtEt/QZo6UPb6aOw+vwIahlctKDCxwzXz2 +8IBjCTTlebnOe1vgrrvJwe+rC6E0wpEquWSBntsDbCd7c+HPXWkpHX0W6GBo +9b0xZkOjR/RYJZOL+uqb56etMmBF6NKhkUAuZk3QTpRWpUPRRT3hBQkXn02r +FLGPxBDxQn5D/J6L6fWH8p3JKbB54+c2u7UExmhfT/j12Wn4rqg8MziSQE6/ +i/Hl9kRIZOuoXlYSGGS9blCyTwTqHzf46FYTaNtRU5bqLYKI4CCFpZzAsLMV +v4e6ieCQpCUtupbAWhP35G0bReBuk2W1uJ7A+tq26m0GIqA6ssOJRwQ2xqe8 +HhTFg8R763R4N4HXhOsME3hCYEWf/PlSD4FuHUqqwk4IRTmS+7W9BLaosmVk +cyFc6KZk6wwQeHJ9V3HdAiFE+XduyB4h0EzcFCmTxwEeCTkhf0fgiop/xxs4 +cSA/XzDQ+55Ay4duP1QaxoHNrbat2uMEqu0Yij8WxAHrg81Kt0kCW/2bqc/7 +BaAbo5b3fCSQFzYjzs8RQFLeGlOtGQI32jvxXycLQFO7L5U1S2DIrd32GCmA +8c93/ULVBBIpqnyKpwCCaR8bL859+eExuSoFBTDkZMat0hD4NKk9Um+tAPYE ++GV0fybwqo2yOO9bAfydJFbPzxP40zmPTFs9AfwHcNA2KA== + "]]}, "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:eJwVznk41AkYwPEhbZPIbGVHnlYz5sL8kqNjy/G+dmMLzUZEnrayUphS5EjG +GJKieaIcueWpZWk6ZpvFsBl0KVdts8l9plrVIFoak23/+D6ff7/0X456BmqT +SKTtX/pfbuxxHRKJhrO5ldYJkRTsWdig8XSiIVmWZl5LNsD7OZEFzLM0PDD4 +l1fsUz385N7ZvuUxDZdTWfW/leviamPlpNESOrZhDENwhowC1fpavgcdXU6V +Fe6Hr5A16mKkn0HHKK0QVaCVDn71ss54TRcdL1RoKlK/1saOuVY9LZop1mi7 +DY2YkHBqvTiD4W+K5zaN8kb75mBbtFRxr8wUHZfMaSSnZuGfztMi2RtT9JG1 ++IvKP0Ks94SVrwUD9T0Lh8+unoItnXeTTx5jYESvZfKLqxOwW+gcNiZl4Mwm +/rW3LBWUci21umcYOM5vZDpwxmB44rpI6MhES6W1wdZbr+BwZ0/msXgm3qY/ +blqlHAHLR+G8wftMjLqpHs+iDoF9V1XB5UUspNa8c4+U9kPih4D0Ph4LR2d3 +8NhHuqGaVXb8SSYLMx47ncl40AGbY3LHKM9ZmDCwbyS3WQlTyknyk1Vs3Oxp +7280+xQ+eahrevey0QdzzoT4tcP4q7w9xcVs3J9S7nU7qBlMkkuu9L9ko5n0 ++PSb6w8hx9knPpTDwQ93zqtvlN4DV/0IkiCUg8pYfkl6SwO8fccJc5BxcLnv +Yd7thjroUqVGbZ/moK29y8EcZQ2QPnnRe+zMMPftIvIgvQrCWW375XFmmN+2 +tiiIIQNlcF+aa50ZHlTzi1szpBBa6X3AT8ccFc3LTOQ7b4AXU9Ba7WyOud+4 +Hj3Kr4DwvMU9WWJzNJhcuPS0ohR6rF3iG9rMkbLHV3Pn4RXYMLRyWYmBBa6Z +zx4ecCyBpjwv13lvC9x1Nzn4fXUhlEY4UiWXLNBze4DtZG8u/LkrLaWjzwId +DK2+N8ZsaPSIHqtkclFfffP8tFUGrAhdOjQSyMWsCdqJ0qp0KLqoJ7wg4eKz +aZUi9pEYIl7Ib4jfczG9/lC+MzkFNm/83Ga3lsAY7esJvz47Dd8VlWcGRxLI +6XcxvtyeCIlsHdXLSgKDrNcNSvaJ4O8ksXp+nsCfznlk2uoJIAmNE8ppNKwY +jotaRKKgxHvrdHg3gdeE6wwTeEJ40fug0YtCw+DdQalFdhSkOrLDiUcENsan +vB4UxQMeCTkhf0fgiop/xxs4cZBIFAZYkGnoJjLSNPlS0N0my2pxPYH1tW3V +2wxEEOXfuSF7hEAzcVOkTB4HujFqec9HAnlhM+L8HAE830leZ6hDw6mmWant +IQoekrSkRdcSWGvinrxtowgudFOydQYIPLm+q7hugRBYH2xWuk0S2OrfTH3e +L4Dxz3f9QtUEEimqfIqnAESvHAp0tWl42XrAdG8oBSOCgxSWcgLDzlb8Huom +gqIcyf3aXgJbVNkysrkQbG61bdUeJ1Btx1D8sSAONLX7UlmzBIbc2m2PkQIY +cjLjVmkIfJrUHqm3VgC7pL47FmrRsD+w69J4GAXVP27w0a0m0LajpizVWwSs +6JM/X+oh0K1DSVXYCUF+vmCg9z2Blg/dfqg0jIOkvDWmWjMEbrR34r9OFkAw +7WPjxbkvfx6Tq1JQAHsC/DK6PxN41UZZnPetAP4DG982KA== + "], {{{}, {}, + 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, 14.5}, {0., 4.114750649232968}}, + "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:eJwV0Hk41AkYwPEhbZPIbGVHnlYz5sL8kqNjy/G+dmMLzUZEnrayUphS5EjG +GJKieaIcueWpZWk6ZpvFsBl0KVdts8l9plrVIFoak23/+D6f/7/0X456BmqT +SKTtX/pfbuxxHRKJhrO5ldYJkRTcJfXdsVCLhv2BXZfGwygoeuVQoKtNw8vW +A6Z7Qyn4fCd5naEODaeaZqW2hyiYSBQGWJBp6CYy0jT5UvBF74NGLwoNg3cH +pRbZUTAJjRPKaTSsGI6LWkSiYM/CBo2nEw3JsjTzWrIB3s+JLGCepeGBwb+8 +Yp/q4Sf3zvYtj2m4nMqq/61cF1cbKyeNltCxDWMYgjNkFKjW1/I96Ohyqqxw +P3yFrFEXI/0MOkZphagCrXTwq5d1xmu66HihQlOR+rU2dsy16mnRTLFG221o +xISEU+vFGQx/Uzy3aZQ32jcH26Klintlpui4ZE4jOTUL/3SeFsnemKKPrMVf +VP4RYr0nrHwtGKjvWTh8dvUUbOm8m3zyGAMjei2TX1ydgN1C57AxKQNnNvGv +vWWpoJRrqdU9w8BxfiPTgTMGwxPXRUJHJloqrQ223noFhzt7Mo/FM/E2/XHT +KuUIWD4K5w3eZ2LUTfV4FnUI7LuqCi4vYiG15p17pLQfEj8EpPfxWDg6u4PH +PtIN1ayy408yWZjx2OlMxoMO2ByTO0Z5zsKEgX0juc1KmFJOkp+sYuNmT3t/ +o9mn8MlDXdO7l40+mHMmxK8dxl/l7SkuZuP+lHKv20HNYJJccqX/JRvNpMen +31x/CDnOPvGhHA5+uHNefaP0HrjqR5AEoRxUxvJL0lsa4O07TpiDjIPLfQ/z +bjfUQZcqNWr7NAdt7V0O5ihrgPTJi95jZ4a5bxeRB+lVEM5q2y+PM8P8trVF +QQwZKIP70lzrzPCgml/cmiGF0ErvA3465qhoXmYi33kDvJiC1mpnc8z9xvXo +UX4FhOct7skSm6PB5MKlpxWl0GPtEt/QZo6UPb6aOw+vwIahlctKDCxwzXz2 +8IBjCTTlebnOe1vgrrvJwe+rC6E0wpEquWSBntsDbCd7c+HPXWkpHX0W6GBo +9b0xZkOjR/RYJZOL+uqb56etMmBF6NKhkUAuZk3QTpRWpUPRRT3hBQkXn02r +FLGPxBDxQn5D/J6L6fWH8p3JKbB54+c2u7UExmhfT/j12Wn4rqg8MziSQE6/ +i/Hl9kRIZOuoXlYSGGS9blCyTwTqHzf46FYTaNtRU5bqLYKI4CCFpZzAsLMV +v4e6ieCQpCUtupbAWhP35G0bReBuk2W1uJ7A+tq26m0GIqA6ssOJRwQ2xqe8 +HhTFg8R763R4N4HXhOsME3hCYEWf/PlSD4FuHUqqwk4IRTmS+7W9BLaosmVk +cyFc6KZk6wwQeHJ9V3HdAiFE+XduyB4h0EzcFCmTxwEeCTkhf0fgiop/xxs4 +cSA/XzDQ+55Ay4duP1QaxoHNrbat2uMEqu0Yij8WxAHrg81Kt0kCW/2bqc/7 +BaAbo5b3fCSQFzYjzs8RQFLeGlOtGQI32jvxXycLQFO7L5U1S2DIrd32GCmA +8c93/ULVBBIpqnyKpwCCaR8bL859+eExuSoFBTDkZMat0hD4NKk9Um+tAPYE ++GV0fybwqo2yOO9bAfydJFbPzxP40zmPTFs9AfwHcNA2KA== + "]]}, "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->{9.00000000000002, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{9, 14}, {0., 0.948165327917452}}, + 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.992074968527439*^9, + 3.9920750140672874`*^9, 3.9920751786542797`*^9, {3.9920752163331566`*^9, + 3.9920752530371304`*^9}, {3.9920752886703644`*^9, 3.9920753146831703`*^9}, + 3.9920753663401318`*^9, 3.992075397339094*^9, 3.9920754295141907`*^9, { + 3.9920754789263897`*^9, 3.992075509125164*^9}, 3.992075603234251*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"e1055a35-0ba2-7440-a5f1-1aa601f4f3a2"] +}, 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", ",", "9", ",", "13"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9920756801001415`*^9, 3.9920756812298985`*^9}, { + 3.9920757386390667`*^9, 3.9920757391436634`*^9}, {3.99207624396681*^9, + 3.9920762510207767`*^9}}, + CellLabel-> + "In[180]:=",ExpressionUUID->"06bd140e-882f-1a43-ac6e-f81b725f742b"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV03c4V/0bB3AjDZUKWZFC33MOkhEZ5b6RGUKDEBkZWclWPBQyUsgqKkJk +RRk9EkIUPUV2VnZCqYSG+p3fX5/rdZ3r3Nf7fO732WnrYXKahYmJaSczE9P/ +TwHFp/QhgpotPMfqGmfhbciv1xm0+QzOs3E2zEL0S6U0NWYR9NURm7Z9Ngs/ +zSvkLrGIYDHzJl2WmlnoC3pgv5pNBF+e7LLdVzkLqQ2ZTRvYRXAoMrgq8P4s +bD0cEc3PLYKyIi/77WJnYbPDYU45UgQ7pnnHik1mwT68pr75iAiyLB8bkWye +gZ9rzgkFXBDBlc9GfOV7Z+DyOW1hq2wRHD8tufZJ4kfwfP3jWfYbEWzjWczK +7piG27HzHGuXRVDV3Stl54ZpIFUbf78SFUV/JrEc3u0fIK/73/jnhqIokGCd +801oClzefmt75yuKTfpdXju3TUJMLXup8V1RfB7cUhI/Nw6fNjmoTLSIYvB3 +25X/no2Bts6Ya+FXUexWKM/778oo/PE8AF1CYmgUkFV/dc8ILP3pfyKgJYb2 +L3RMN9cNg2GQad8zTzH0V1KcbRsYgLSxhVvp6WLIoljd5832DsSLujckNorh ++aXd1q6OPcDrlCQ491kME/62PHfL7gStiNRuW75d+DUzIvSk5FvoSPKXUT64 +C/mVDv+UNnwDx2MD5TQ9dmFHIW65U9UC2z7UDbum7MKNe1DmY2cTqO4dl1ys +34VLjntFI9Y1QNbYIbH0mV24b+0nNG+rhb+BXfU+XAw09G+8rnC2Ch6z7mcp +VWXgtjUzcjtcy8HpwaiNCTCQ4/iN2HnzcuCziHr2jfajpuWJVt1y8H/YHaKg +xsCWeP6wLKIcFG08/z7RYKBJnTtH91gZVNbc+92kw8CD3r95NK3KoCJgy9KA +CQMbo8FQ2uIRlH2enFnryECv5I2BVt6lIL5py9tK2oI+nGSqfSnckVJ57ODE +QCNSJ3nwaClEu10La3Rm4HHLvlsx8qVgPbNPKMSVgZ81iAavpRJgn4o0XPJk +YHdEZqFHUAmcGhIvnbjAQPWvl9OHRR/Axv/cfesTGJha1ShWUVkAIt7yEu7X +GVic7RshebsAFLf9HuZPZGBhie5YRVgB2DpH6XomMVBV2NlujUkBVLBlC+5I +ZWDvuWWj5Ll8OKXaVx90i4EpfA6BtmQ+lD3Q2KSUx8B+Ls5Kp8I8sEzgy3vw +lIGnBBed387kwB+9yDeHaxg4U60+cqI3BzJYlxc/017la316vjEHJrx7NKXr +GGjc6++pdzsH3E2Tx0rqGZj7yye31DgHQgS5hR82MzCou4pJ80k25NzblFzW +zsCbLyYsNW5kwaeq1WH/TjBwwvC2dUNwJhyf+iHjOMlAn0P94ufcMqGGa26Y +e4qB8ovREtKWmRDr2qFy9gMDb80bZ/UpZYLk9oxvjBkG5helao98z4AzoUp2 +ifMM/P5MQavqbAZMaruqe/xiIO/Lhfqk0dsw2NnOtGsLgSr97jGn9qXBW073 +nc20iZKfwleF0qDJiF3dmZPA1rC+znbWNCh5pX6piItAyFazSWu7CWGNj9gU +eAjcSy4ay7vcBPGyJHbtbQQelI7f4pd9A3yvn+B23kXghqnTRs2MVNhkMkIU +KRHIbNtdYO6YBNm8Arz6ygRyvNCSYzmSBIqDJqtnaMf+zfJ8opoEtk6N4+R+ +An1Xng7Z8iRBWXBuZrYqgQNM7BvDmhLhRIHbtnQNAqOKttqvEk+ErFU/OWIM +CPyGbnezVhJAsUX2D2VIz+M23+E8kwCvrrnMvaDN7W1fo9qXAIsCg62rjQg8 +n19MCZQngI5MXeRFEwJFj153iHNLgLmTESyBpnS+wo39HiPxsK+Sc9HJhsBD +m925czvjIGH+tctWWwIv3l2oW6yPg1kqZuQZ7YgHE3mmpXGQkc76n4A9fR91 +gfP6V+Ng7cWFrFcOBB7vTW1i1Y2DXv1uY2lXAj+wFvdLXLoGgaM3ipZ8CezZ +sPS3PSgWOrcdF832I7CqaaIj0ioWpI5x3jDyJ1C9MCXVCmJhtDk67H4AgYz3 +GOnAHAuHis5bWFyg3+8/v3ki4goI+p9cVxtKYFksV3B4Sgw83bjzdMQVAtP8 +7mjceh0F2WYRBkQsgdSRsamesii4kjUj/4L2qLpkvnhaFJgrVaxmv0Yg+zkN +RT6nKFi0P5QXG0/nv5Wru4U1CvZU+8wkJtPzvmdMOB+IhMwzLZ5ZGXRfDF51 +STZEQGT5HvODmQQmigdIaxZGwFmmJPUJ2oq3Bw94JUWAarI1F5FFoFBFM2Oz +UwS8e7ZQlp9DoLlc4+5DHBHAxS+8XJpP4DUPSeEKq3AIb/YKrisjcN/huLRR +jjCQjbCccy8ncGsbb3vf8iUYOqhpKVRBz5vcOD01egkU63mUAysJXJFfdtap +vAQfq//9LldF4Kq6I6Z8NpfA8OFf19xaAhvu+h4ZeXwR+G7FWFxtIdB6hrct +wj8UGi28W/a3EthrNV4rczoUPAVOKs3QzuVU+TtvHAotKVK8Ov8RyHnUeXuh +RCgEJbS/ZW4j8CWzRy3n+xAYvcyr59NFoOPhr41x+iFQcC5L0fI9gWtS8vJu +OAbDuLq8wF/aKtG9SkvawbCdq/lX5gjd7wso7k0GQ8KjjzVTowRKD/wqb50O +Av8FGU2vCQKbX02Yf3ILAk3fOuPojwQGrOWWnT5/AYYDBs88XiBQk4nzxEJR +IPDpeehbfKf77H1lZE1CIJgIMEv9od2g6HVyn28gNFWJfdFYIrCzrbR5WjUQ +Cn+5+L35QeCjqtrrN9oDICDo56XJP3S/r09Uc/z2B65Q3lvc60hcky+1I9Pe +D2Z7NQ3KaEfOxd8N0veDJmnvlSPsJEptP8p+bq8f+L9vO3l9PYnrm/Jl7q7y +gyGI3s7JQeLzpxEBQvd8If/P7zubuEiU7Spbcp3zAfULo3fZhUjU1ihN7r/i +DYKdm4/k05bisDgc4+cN3yWAVW87iVtvpugb2XpDXn+aXZQwiYt6Es/5Fb2B +Q+WY2FoREqdbN4XnjXvBux/NOWwEiak3vclsNS/w9CvKY5KhHaiXfJX9HGzW +sB4uot0qfq9KfNETijm28FjIkrjkTAoMjnjCbI73pXI5Ek+qae4J+9cTnDpV +rM4okCgSybSvz9kTTsm0cHWqkJhIyorHvD4Lh2cmg3O1SNwMS5Gzhh7wqSK1 +/Kg2iaVZHuJWEh5w5aLeLLMOiS+y5t8trvGAFv7iE5a6JPpeSmhKf+YOWjo+ +e7fok9iw2dG6QsEdVHNYPwYakyi2kv9qhXCD3dY7jhlakphnYTX1epcLmO0/ +/+cz7R/sV2Qm17pAGH93bvxJEvsZDse2zZ6BgY6Yn51WJH41nSobengGrugs +3bGwIVFo1iy7Se0MzMq8/ujkQGLtjgQxltPOULjqQsilsySyRXVO29U5Qu9I +N7XLk0TO3fti/t5zhFW1Mh1NtNfe94otj3UEy4CpXexe9HPGyKGzFo6w4ZNJ +a5wPiWc60vqElh3AtYfiuR1I4m7r56/VFRxAIr+n4HEYiV/0XZPZntuD4K/y +fsdwet5VA+H3hfbAoZ+4njeCROUBp5WuRHuYnzNy8blMomv7G3Wu0/ZQIdMi +LhtN4isnnydtq+1B/d/q+wXX6H2/ubdR9bAdnHiRmXv7JonZSTruQt9sQI8/ +pMcgjcSI3jenJIZsYP8ZqzUrtLvf1UoYv7SB7Ru2OVrcovssGD06dscGxg8n +MvgySAwXd/srYmgDZ3sicuJzSLy8tDP/S/EpuDzpkhVWQqLggPpxbRZr4Kud +zJQuJTFN30wic8gK8lNsMgZo1xyBTaJPrOCVjumtvY/oftxgPX7b2wo4C9RT +xstJfJqbKu4+fRLSPfhjDj4hMc61r9fgnSWULDedW9VEYrpfr8lcjzmotat5 +ltC+vahDLj82h7f3qz0sm0m8v8L1dddNc/hu/tC17AXdryNSLdOW5qD89JaD +fSuJPQrgzDF+AhpDvc0b2+h+33v0In/ZDPrYRdTD+km0tb2+Wk7ZFJYXNB+J +DZDo/zTwuMhOU+AZdhZ7TrutRUpScq0pmDwqXb16iMQdkyq/r3Yfh1cWaq2X +35N4K85V5ar3cagpPHU0ZoJEa2eBeYvyY5BteMch4TOJPscfq/+jexTqFRt6 +ZOdJFHh67fIVuaPwXmRKp4M237p1QqVCR0FoSUqC+yuJN8Ue9sHXI5B8p+Zz +0gKJfQu1K2fTj0DU/KD/jR8kchtFWG78bgLuCYIxGawUHsB3F69WGIPJfMNF +w1UUVjEXWDzJNAYFQ5fA37Q5zS21mGKNYWVdlbPZagqDw4Un2u2M4Uqoqc7m +dRSKJFWbxXMaQ/7ZBLYQDgobr2r9cvY2ginDtSHW/BT2WQ6tvx1vCC2FD/w2 +ClAo6dsQkeJmCMXsph5PaBt1Oryq0jUE36YcK15BCnW/Dv8MYjGE1aoaB95s +p3CqK7Xxi48BiO0O/qkqRuFHUqHUwV4fTq1f8N6+h0Ir6yNqBlZ60B54cLiO +dsd77XBFNT1Q/5ioaydNYUtuvb2GmB6IvpTfnidD4boSnrOVH3VhMsKvWWYv +hdtu6XFvDdAFN5Zf/JpKFErcTh+NStOBwB/MtS4aFN57azYUuKgFM04mFMdB +Ci+UbGXfNqgFlr13r5fQrrs5PNTdoAWqlRpO3zUp1Dh2Z2NmvBYw+4Rv+UeH +QsvtifoXpLQgcn6tfYIBhdy/5/jk3TQhaWrTun9NKUwKUpGdXdGAe0O/1czM +KPxDXH6g9EEDKrqmA5do33cwcrv9VgN6Gxpm5c0ptOWo0CnK1QCBDL+2h5YU +NlNlvYMmGpBhNpxSaEPheBRPkE+ROuS/LGZkuFA45sb3dOCcGjypS7MGVwqV +anWax63V4FVlZOoQbed/AmSZDdRgLseWXcidwvLgr12+hBpIX+T5dOMshWwh +Bb9NBhHKlYPLr/tQ2JpT7FKtj1BXYHDw8j8UMrFe84v2UoVknhrWvSF0/tMM +6+uHVcE1VKrhPW02rzV6TRKqwGe6SV35IoVzVj1O98cPgCdLO8yFUXhYsSnO +2uwAiJw4qnIkmt7f10wnW+39ELbaQlY4ie7XpHXzJXVlMPds/dJKu/albZyX +qDJID6iU+ifT++DtfXx5lTIMlApKv02h0DomPkSwWQnkTw7tDr9JYbtW66lv +Bkow+ciGmrlDIb/KszxZW0XQsXHaUZlPofRi55PRLAUoGAw1MSugcORqQ8+7 +aAXgME8L+0F7j1fcyU+eCtBl8vqDShGF3U4R0o6oALYH95bWPaBwcd3PmvQh +eThPMKm3lFGYrfiPyh9heSieS7EbrKEwvUCmsbtcDracKU0KrqVQ76YLJ1uG +HHhPtjQL11FYJFFrfChaDpSHVyRsn1HI+mHHfmFrOWhus1uYbKBwyLx1fmSd +HLx/tCd8/gWFhe16VdV2ssAV2HyPtYO+L9BRFiRlQM9xZ2ol7c06teVjnDJw +8ej5KJdOOn98tdLzFWmYl9rj2tFFobae1mBXhzS8HkuWyeql8IbtPVI8VBoi +DRyq1YcozEqP/rbm2R74vYPtbeg0hbI6fLrmtrtBjsO6Qf4jhSEjTbmLB3bD +mV+Py6Zpi3N31tby74a+LtcU41n6f2j9ot7TLgkV0Z2WOz9TuNWw+NHWg5Lg +uZA1VbdAIW/uNda70hKQN7LS6/2dQhOewPVfOCTg/WvTFnKRzn96Z7jznDgY +3l9fFLdEoUOh/KrufHGQtPI6d+onhaVu/1SnEOJgd+g/O+5fFHJcLu2XXCMO +NxWJYy9ol7C+GZ6epGAdV/8+6RUKL3I2dr67RwEyyVPjtLWLydMclynwn7sq +kPqH/n7FBH5nRwoevPuwXv8vhcICpvUftSmYbFZf+Uvbq2219HWSgv8Bil4M +3w== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV03c4V/0bB3AjDZUKWZFC33MOkhEZ5b6RGUKDEBkZWclWPBQyUsgqKkJk +RRk9EkIUPUV2VnZCqYSG+p3fX5/rdZ3r3Nf7fO732WnrYXKahYmJaSczE9P/ +TwHFp/QhgpotPMfqGmfhbciv1xm0+QzOs3E2zEL0S6U0NWYR9NURm7Z9Ngs/ +zSvkLrGIYDHzJl2WmlnoC3pgv5pNBF+e7LLdVzkLqQ2ZTRvYRXAoMrgq8P4s +bD0cEc3PLYKyIi/77WJnYbPDYU45UgQ7pnnHik1mwT68pr75iAiyLB8bkWye +gZ9rzgkFXBDBlc9GfOV7Z+DyOW1hq2wRHD8tufZJ4kfwfP3jWfYbEWzjWczK +7piG27HzHGuXRVDV3Stl54ZpIFUbf78SFUV/JrEc3u0fIK/73/jnhqIokGCd +801oClzefmt75yuKTfpdXju3TUJMLXup8V1RfB7cUhI/Nw6fNjmoTLSIYvB3 +25X/no2Bts6Ya+FXUexWKM/778oo/PE8AF1CYmgUkFV/dc8ILP3pfyKgJYb2 +L3RMN9cNg2GQad8zTzH0V1KcbRsYgLSxhVvp6WLIoljd5832DsSLujckNorh ++aXd1q6OPcDrlCQ491kME/62PHfL7gStiNRuW75d+DUzIvSk5FvoSPKXUT64 +C/mVDv+UNnwDx2MD5TQ9dmFHIW65U9UC2z7UDbum7MKNe1DmY2cTqO4dl1ys +34VLjntFI9Y1QNbYIbH0mV24b+0nNG+rhb+BXfU+XAw09G+8rnC2Ch6z7mcp +VWXgtjUzcjtcy8HpwaiNCTCQ4/iN2HnzcuCziHr2jfajpuWJVt1y8H/YHaKg +xsCWeP6wLKIcFG08/z7RYKBJnTtH91gZVNbc+92kw8CD3r95NK3KoCJgy9KA +CQMbo8FQ2uIRlH2enFnryECv5I2BVt6lIL5py9tK2oI+nGSqfSnckVJ57ODE +QCNSJ3nwaClEu10La3Rm4HHLvlsx8qVgPbNPKMSVgZ81iAavpRJgn4o0XPJk +YHdEZqFHUAmcGhIvnbjAQPWvl9OHRR/Axv/cfesTGJha1ShWUVkAIt7yEu7X +GVic7RshebsAFLf9HuZPZGBhie5YRVgB2DpH6XomMVBV2NlujUkBVLBlC+5I +ZWDvuWWj5Ll8OKXaVx90i4EpfA6BtmQ+lD3Q2KSUx8B+Ls5Kp8I8sEzgy3vw +lIGnBBed387kwB+9yDeHaxg4U60+cqI3BzJYlxc/017la316vjEHJrx7NKXr +GGjc6++pdzsH3E2Tx0rqGZj7yye31DgHQgS5hR82MzCou4pJ80k25NzblFzW +zsCbLyYsNW5kwaeq1WH/TjBwwvC2dUNwJhyf+iHjOMlAn0P94ufcMqGGa26Y +e4qB8ovREtKWmRDr2qFy9gMDb80bZ/UpZYLk9oxvjBkG5helao98z4AzoUp2 +ifMM/P5MQavqbAZMaruqe/xiIO/Lhfqk0dsw2NnOtGsLgSr97jGn9qXBW073 +nc20iZKfwleF0qDJiF3dmZPA1rC+znbWNCh5pX6piItAyFazSWu7CWGNj9gU +eAjcSy4ay7vcBPGyJHbtbQQelI7f4pd9A3yvn+B23kXghqnTRs2MVNhkMkIU +KRHIbNtdYO6YBNm8Arz6ygRyvNCSYzmSBIqDJqtnaMf+zfJ8opoEtk6N4+R+ +An1Xng7Z8iRBWXBuZrYqgQNM7BvDmhLhRIHbtnQNAqOKttqvEk+ErFU/OWIM +CPyGbnezVhJAsUX2D2VIz+M23+E8kwCvrrnMvaDN7W1fo9qXAIsCg62rjQg8 +n19MCZQngI5MXeRFEwJFj153iHNLgLmTESyBpnS+wo39HiPxsK+Sc9HJhsBD +m925czvjIGH+tctWWwIv3l2oW6yPg1kqZuQZ7YgHE3mmpXGQkc76n4A9fR91 +gfP6V+Ng7cWFrFcOBB7vTW1i1Y2DXv1uY2lXAj+wFvdLXLoGgaM3ipZ8CezZ +sPS3PSgWOrcdF832I7CqaaIj0ioWpI5x3jDyJ1C9MCXVCmJhtDk67H4AgYz3 +GOnAHAuHis5bWFyg3+8/v3ki4goI+p9cVxtKYFksV3B4Sgw83bjzdMQVAtP8 +7mjceh0F2WYRBkQsgdSRsamesii4kjUj/4L2qLpkvnhaFJgrVaxmv0Yg+zkN +RT6nKFi0P5QXG0/nv5Wru4U1CvZU+8wkJtPzvmdMOB+IhMwzLZ5ZGXRfDF51 +STZEQGT5HvODmQQmigdIaxZGwFmmJPUJ2oq3Bw94JUWAarI1F5FFoFBFM2Oz +UwS8e7ZQlp9DoLlc4+5DHBHAxS+8XJpP4DUPSeEKq3AIb/YKrisjcN/huLRR +jjCQjbCccy8ncGsbb3vf8iUYOqhpKVRBz5vcOD01egkU63mUAysJXJFfdtap +vAQfq//9LldF4Kq6I6Z8NpfA8OFf19xaAhvu+h4ZeXwR+G7FWFxtIdB6hrct +wj8UGi28W/a3EthrNV4rczoUPAVOKs3QzuVU+TtvHAotKVK8Ov8RyHnUeXuh +RCgEJbS/ZW4j8CWzRy3n+xAYvcyr59NFoOPhr41x+iFQcC5L0fI9gWtS8vJu +OAbDuLq8wF/aKtG9SkvawbCdq/lX5gjd7wso7k0GQ8KjjzVTowRKD/wqb50O +Av8FGU2vCQKbX02Yf3ILAk3fOuPojwQGrOWWnT5/AYYDBs88XiBQk4nzxEJR +IPDpeehbfKf77H1lZE1CIJgIMEv9od2g6HVyn28gNFWJfdFYIrCzrbR5WjUQ +Cn+5+L35QeCjqtrrN9oDICDo56XJP3S/r09Uc/z2B65Q3lvc60hcky+1I9Pe +D2Z7NQ3KaEfOxd8N0veDJmnvlSPsJEptP8p+bq8f+L9vO3l9PYnrm/Jl7q7y +gyGI3s7JQeLzpxEBQvd8If/P7zubuEiU7Spbcp3zAfULo3fZhUjU1ihN7r/i +DYKdm4/k05bisDgc4+cN3yWAVW87iVtvpugb2XpDXn+aXZQwiYt6Es/5Fb2B +Q+WY2FoREqdbN4XnjXvBux/NOWwEiak3vclsNS/w9CvKY5KhHaiXfJX9HGzW +sB4uot0qfq9KfNETijm28FjIkrjkTAoMjnjCbI73pXI5Ek+qae4J+9cTnDpV +rM4okCgSybSvz9kTTsm0cHWqkJhIyorHvD4Lh2cmg3O1SNwMS5Gzhh7wqSK1 +/Kg2iaVZHuJWEh5w5aLeLLMOiS+y5t8trvGAFv7iE5a6JPpeSmhKf+YOWjo+ +e7fok9iw2dG6QsEdVHNYPwYakyi2kv9qhXCD3dY7jhlakphnYTX1epcLmO0/ +/+cz7R/sV2Qm17pAGH93bvxJEvsZDse2zZ6BgY6Yn51WJH41nSobengGrugs +3bGwIVFo1iy7Se0MzMq8/ujkQGLtjgQxltPOULjqQsilsySyRXVO29U5Qu9I +N7XLk0TO3fti/t5zhFW1Mh1NtNfe94otj3UEy4CpXexe9HPGyKGzFo6w4ZNJ +a5wPiWc60vqElh3AtYfiuR1I4m7r56/VFRxAIr+n4HEYiV/0XZPZntuD4K/y +fsdwet5VA+H3hfbAoZ+4njeCROUBp5WuRHuYnzNy8blMomv7G3Wu0/ZQIdMi +LhtN4isnnydtq+1B/d/q+wXX6H2/ubdR9bAdnHiRmXv7JonZSTruQt9sQI8/ +pMcgjcSI3jenJIZsYP8ZqzUrtLvf1UoYv7SB7Ru2OVrcovssGD06dscGxg8n +MvgySAwXd/srYmgDZ3sicuJzSLy8tDP/S/EpuDzpkhVWQqLggPpxbRZr4Kud +zJQuJTFN30wic8gK8lNsMgZo1xyBTaJPrOCVjumtvY/oftxgPX7b2wo4C9RT +xstJfJqbKu4+fRLSPfhjDj4hMc61r9fgnSWULDedW9VEYrpfr8lcjzmotat5 +ltC+vahDLj82h7f3qz0sm0m8v8L1dddNc/hu/tC17AXdryNSLdOW5qD89JaD +fSuJPQrgzDF+AhpDvc0b2+h+33v0In/ZDPrYRdTD+km0tb2+Wk7ZFJYXNB+J +DZDo/zTwuMhOU+AZdhZ7TrutRUpScq0pmDwqXb16iMQdkyq/r3Yfh1cWaq2X +35N4K85V5ar3cagpPHU0ZoJEa2eBeYvyY5BteMch4TOJPscfq/+jexTqFRt6 +ZOdJFHh67fIVuaPwXmRKp4M237p1QqVCR0FoSUqC+yuJN8Ue9sHXI5B8p+Zz +0gKJfQu1K2fTj0DU/KD/jR8kchtFWG78bgLuCYIxGawUHsB3F69WGIPJfMNF +w1UUVjEXWDzJNAYFQ5fA37Q5zS21mGKNYWVdlbPZagqDw4Un2u2M4Uqoqc7m +dRSKJFWbxXMaQ/7ZBLYQDgobr2r9cvY2ginDtSHW/BT2WQ6tvx1vCC2FD/w2 +ClAo6dsQkeJmCMXsph5PaBt1Oryq0jUE36YcK15BCnW/Dv8MYjGE1aoaB95s +p3CqK7Xxi48BiO0O/qkqRuFHUqHUwV4fTq1f8N6+h0Ir6yNqBlZ60B54cLiO +dsd77XBFNT1Q/5ioaydNYUtuvb2GmB6IvpTfnidD4boSnrOVH3VhMsKvWWYv +hdtu6XFvDdAFN5Zf/JpKFErcTh+NStOBwB/MtS4aFN57azYUuKgFM04mFMdB +Ci+UbGXfNqgFlr13r5fQrrs5PNTdoAWqlRpO3zUp1Dh2Z2NmvBYw+4Rv+UeH +QsvtifoXpLQgcn6tfYIBhdy/5/jk3TQhaWrTun9NKUwKUpGdXdGAe0O/1czM +KPxDXH6g9EEDKrqmA5do33cwcrv9VgN6Gxpm5c0ptOWo0CnK1QCBDL+2h5YU +NlNlvYMmGpBhNpxSaEPheBRPkE+ROuS/LGZkuFA45sb3dOCcGjypS7MGVwqV +anWax63V4FVlZOoQbed/AmSZDdRgLseWXcidwvLgr12+hBpIX+T5dOMshWwh +Bb9NBhHKlYPLr/tQ2JpT7FKtj1BXYHDw8j8UMrFe84v2UoVknhrWvSF0/tMM +6+uHVcE1VKrhPW02rzV6TRKqwGe6SV35IoVzVj1O98cPgCdLO8yFUXhYsSnO +2uwAiJw4qnIkmt7f10wnW+39ELbaQlY4ie7XpHXzJXVlMPds/dJKu/albZyX +qDJID6iU+ifT++DtfXx5lTIMlApKv02h0DomPkSwWQnkTw7tDr9JYbtW66lv +Bkow+ciGmrlDIb/KszxZW0XQsXHaUZlPofRi55PRLAUoGAw1MSugcORqQ8+7 +aAXgME8L+0F7j1fcyU+eCtBl8vqDShGF3U4R0o6oALYH95bWPaBwcd3PmvQh +eThPMKm3lFGYrfiPyh9heSieS7EbrKEwvUCmsbtcDracKU0KrqVQ76YLJ1uG +HHhPtjQL11FYJFFrfChaDpSHVyRsn1HI+mHHfmFrOWhus1uYbKBwyLx1fmSd +HLx/tCd8/gWFhe16VdV2ssAV2HyPtYO+L9BRFiRlQM9xZ2ol7c06teVjnDJw +8ej5KJdOOn98tdLzFWmYl9rj2tFFobae1mBXhzS8HkuWyeql8IbtPVI8VBoi +DRyq1YcozEqP/rbm2R74vYPtbeg0hbI6fLrmtrtBjsO6Qf4jhSEjTbmLB3bD +mV+Py6Zpi3N31tby74a+LtcU41n6f2j9ot7TLgkV0Z2WOz9TuNWw+NHWg5Lg +uZA1VbdAIW/uNda70hKQN7LS6/2dQhOewPVfOCTg/WvTFnKRzn96Z7jznDgY +3l9fFLdEoUOh/KrufHGQtPI6d+onhaVu/1SnEOJgd+g/O+5fFHJcLu2XXCMO +NxWJYy9ol7C+GZ6epGAdV/8+6RUKL3I2dr67RwEyyVPjtLWLydMclynwn7sq +kPqH/n7FBH5nRwoevPuwXv8vhcICpvUftSmYbFZf+Uvbq2219HWSgv8Bil4M +3w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{9, 13}, {0., 0.8990174924750326}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{9, 13}, {0., 0.8990174924750326}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV03c4V/0bB3AjDZUKWZFC33MOkhEZ5b6RGUKDEBkZWclWPBQyUsgqKkJk +RRk9EkIUPUV2VnZCqYSG+p3fX5/rdZ3r3Nf7fO732WnrYXKahYmJaSczE9P/ +TwHFp/QhgpotPMfqGmfhbciv1xm0+QzOs3E2zEL0S6U0NWYR9NURm7Z9Ngs/ +zSvkLrGIYDHzJl2WmlnoC3pgv5pNBF+e7LLdVzkLqQ2ZTRvYRXAoMrgq8P4s +bD0cEc3PLYKyIi/77WJnYbPDYU45UgQ7pnnHik1mwT68pr75iAiyLB8bkWye +gZ9rzgkFXBDBlc9GfOV7Z+DyOW1hq2wRHD8tufZJ4kfwfP3jWfYbEWzjWczK +7piG27HzHGuXRVDV3Stl54ZpIFUbf78SFUV/JrEc3u0fIK/73/jnhqIokGCd +801oClzefmt75yuKTfpdXju3TUJMLXup8V1RfB7cUhI/Nw6fNjmoTLSIYvB3 +25X/no2Bts6Ya+FXUexWKM/778oo/PE8AF1CYmgUkFV/dc8ILP3pfyKgJYb2 +L3RMN9cNg2GQad8zTzH0V1KcbRsYgLSxhVvp6WLIoljd5832DsSLujckNorh ++aXd1q6OPcDrlCQ491kME/62PHfL7gStiNRuW75d+DUzIvSk5FvoSPKXUT64 +C/mVDv+UNnwDx2MD5TQ9dmFHIW65U9UC2z7UDbum7MKNe1DmY2cTqO4dl1ys +34VLjntFI9Y1QNbYIbH0mV24b+0nNG+rhb+BXfU+XAw09G+8rnC2Ch6z7mcp +VWXgtjUzcjtcy8HpwaiNCTCQ4/iN2HnzcuCziHr2jfajpuWJVt1y8H/YHaKg +xsCWeP6wLKIcFG08/z7RYKBJnTtH91gZVNbc+92kw8CD3r95NK3KoCJgy9KA +CQMbo8FQ2uIRlH2enFnryECv5I2BVt6lIL5py9tK2oI+nGSqfSnckVJ57ODE +QCNSJ3nwaClEu10La3Rm4HHLvlsx8qVgPbNPKMSVgZ81iAavpRJgn4o0XPJk +YHdEZqFHUAmcGhIvnbjAQPWvl9OHRR/Axv/cfesTGJha1ShWUVkAIt7yEu7X +GVic7RshebsAFLf9HuZPZGBhie5YRVgB2DpH6XomMVBV2NlujUkBVLBlC+5I +ZWDvuWWj5Ll8OKXaVx90i4EpfA6BtmQ+lD3Q2KSUx8B+Ls5Kp8I8sEzgy3vw +lIGnBBed387kwB+9yDeHaxg4U60+cqI3BzJYlxc/017la316vjEHJrx7NKXr +GGjc6++pdzsH3E2Tx0rqGZj7yye31DgHQgS5hR82MzCou4pJ80k25NzblFzW +zsCbLyYsNW5kwaeq1WH/TjBwwvC2dUNwJhyf+iHjOMlAn0P94ufcMqGGa26Y +e4qB8ovREtKWmRDr2qFy9gMDb80bZ/UpZYLk9oxvjBkG5helao98z4AzoUp2 +ifMM/P5MQavqbAZMaruqe/xiIO/Lhfqk0dsw2NnOtGsLgSr97jGn9qXBW073 +nc20iZKfwleF0qDJiF3dmZPA1rC+znbWNCh5pX6piItAyFazSWu7CWGNj9gU +eAjcSy4ay7vcBPGyJHbtbQQelI7f4pd9A3yvn+B23kXghqnTRs2MVNhkMkIU +KRHIbNtdYO6YBNm8Arz6ygRyvNCSYzmSBIqDJqtnaMf+zfJ8opoEtk6N4+R+ +An1Xng7Z8iRBWXBuZrYqgQNM7BvDmhLhRIHbtnQNAqOKttqvEk+ErFU/OWIM +CPyGbnezVhJAsUX2D2VIz+M23+E8kwCvrrnMvaDN7W1fo9qXAIsCg62rjQg8 +n19MCZQngI5MXeRFEwJFj153iHNLgLmTESyBpnS+wo39HiPxsK+Sc9HJhsBD +m925czvjIGH+tctWWwIv3l2oW6yPg1kqZuQZ7YgHE3mmpXGQkc76n4A9fR91 +gfP6V+Ng7cWFrFcOBB7vTW1i1Y2DXv1uY2lXAj+wFvdLXLoGgaM3ipZ8CezZ +sPS3PSgWOrcdF832I7CqaaIj0ioWpI5x3jDyJ1C9MCXVCmJhtDk67H4AgYz3 +GOnAHAuHis5bWFyg3+8/v3ki4goI+p9cVxtKYFksV3B4Sgw83bjzdMQVAtP8 +7mjceh0F2WYRBkQsgdSRsamesii4kjUj/4L2qLpkvnhaFJgrVaxmv0Yg+zkN +RT6nKFi0P5QXG0/nv5Wru4U1CvZU+8wkJtPzvmdMOB+IhMwzLZ5ZGXRfDF51 +STZEQGT5HvODmQQmigdIaxZGwFmmJPUJ2oq3Bw94JUWAarI1F5FFoFBFM2Oz +UwS8e7ZQlp9DoLlc4+5DHBHAxS+8XJpP4DUPSeEKq3AIb/YKrisjcN/huLRR +jjCQjbCccy8ncGsbb3vf8iUYOqhpKVRBz5vcOD01egkU63mUAysJXJFfdtap +vAQfq//9LldF4Kq6I6Z8NpfA8OFf19xaAhvu+h4ZeXwR+G7FWFxtIdB6hrct +wj8UGi28W/a3EthrNV4rczoUPAVOKs3QzuVU+TtvHAotKVK8Ov8RyHnUeXuh +RCgEJbS/ZW4j8CWzRy3n+xAYvcyr59NFoOPhr41x+iFQcC5L0fI9gWtS8vJu +OAbDuLq8wF/aKtG9SkvawbCdq/lX5gjd7wso7k0GQ8KjjzVTowRKD/wqb50O +Av8FGU2vCQKbX02Yf3ILAk3fOuPojwQGrOWWnT5/AYYDBs88XiBQk4nzxEJR +IPDpeehbfKf77H1lZE1CIJgIMEv9od2g6HVyn28gNFWJfdFYIrCzrbR5WjUQ +Cn+5+L35QeCjqtrrN9oDICDo56XJP3S/r09Uc/z2B65Q3lvc60hcky+1I9Pe +D2Z7NQ3KaEfOxd8N0veDJmnvlSPsJEptP8p+bq8f+L9vO3l9PYnrm/Jl7q7y +gyGI3s7JQeLzpxEBQvd8If/P7zubuEiU7Spbcp3zAfULo3fZhUjU1ihN7r/i +DYKdm4/k05bisDgc4+cN3yWAVW87iVtvpugb2XpDXn+aXZQwiYt6Es/5Fb2B +Q+WY2FoREqdbN4XnjXvBux/NOWwEiak3vclsNS/w9CvKY5KhHaiXfJX9HGzW +sB4uot0qfq9KfNETijm28FjIkrjkTAoMjnjCbI73pXI5Ek+qae4J+9cTnDpV +rM4okCgSybSvz9kTTsm0cHWqkJhIyorHvD4Lh2cmg3O1SNwMS5Gzhh7wqSK1 +/Kg2iaVZHuJWEh5w5aLeLLMOiS+y5t8trvGAFv7iE5a6JPpeSmhKf+YOWjo+ +e7fok9iw2dG6QsEdVHNYPwYakyi2kv9qhXCD3dY7jhlakphnYTX1epcLmO0/ +/+cz7R/sV2Qm17pAGH93bvxJEvsZDse2zZ6BgY6Yn51WJH41nSobengGrugs +3bGwIVFo1iy7Se0MzMq8/ujkQGLtjgQxltPOULjqQsilsySyRXVO29U5Qu9I +N7XLk0TO3fti/t5zhFW1Mh1NtNfe94otj3UEy4CpXexe9HPGyKGzFo6w4ZNJ +a5wPiWc60vqElh3AtYfiuR1I4m7r56/VFRxAIr+n4HEYiV/0XZPZntuD4K/y +fsdwet5VA+H3hfbAoZ+4njeCROUBp5WuRHuYnzNy8blMomv7G3Wu0/ZQIdMi +LhtN4isnnydtq+1B/d/q+wXX6H2/ubdR9bAdnHiRmXv7JonZSTruQt9sQI8/ +pMcgjcSI3jenJIZsYP8ZqzUrtLvf1UoYv7SB7Ru2OVrcovssGD06dscGxg8n +MvgySAwXd/srYmgDZ3sicuJzSLy8tDP/S/EpuDzpkhVWQqLggPpxbRZr4Kud +zJQuJTFN30wic8gK8lNsMgZo1xyBTaJPrOCVjumtvY/oftxgPX7b2wo4C9RT +xstJfJqbKu4+fRLSPfhjDj4hMc61r9fgnSWULDedW9VEYrpfr8lcjzmotat5 +ltC+vahDLj82h7f3qz0sm0m8v8L1dddNc/hu/tC17AXdryNSLdOW5qD89JaD +fSuJPQrgzDF+AhpDvc0b2+h+33v0In/ZDPrYRdTD+km0tb2+Wk7ZFJYXNB+J +DZDo/zTwuMhOU+AZdhZ7TrutRUpScq0pmDwqXb16iMQdkyq/r3Yfh1cWaq2X +35N4K85V5ar3cagpPHU0ZoJEa2eBeYvyY5BteMch4TOJPscfq/+jexTqFRt6 +ZOdJFHh67fIVuaPwXmRKp4M237p1QqVCR0FoSUqC+yuJN8Ue9sHXI5B8p+Zz +0gKJfQu1K2fTj0DU/KD/jR8kchtFWG78bgLuCYIxGawUHsB3F69WGIPJfMNF +w1UUVjEXWDzJNAYFQ5fA37Q5zS21mGKNYWVdlbPZagqDw4Un2u2M4Uqoqc7m +dRSKJFWbxXMaQ/7ZBLYQDgobr2r9cvY2ginDtSHW/BT2WQ6tvx1vCC2FD/w2 +ClAo6dsQkeJmCMXsph5PaBt1Oryq0jUE36YcK15BCnW/Dv8MYjGE1aoaB95s +p3CqK7Xxi48BiO0O/qkqRuFHUqHUwV4fTq1f8N6+h0Ir6yNqBlZ60B54cLiO +dsd77XBFNT1Q/5ioaydNYUtuvb2GmB6IvpTfnidD4boSnrOVH3VhMsKvWWYv +hdtu6XFvDdAFN5Zf/JpKFErcTh+NStOBwB/MtS4aFN57azYUuKgFM04mFMdB +Ci+UbGXfNqgFlr13r5fQrrs5PNTdoAWqlRpO3zUp1Dh2Z2NmvBYw+4Rv+UeH +QsvtifoXpLQgcn6tfYIBhdy/5/jk3TQhaWrTun9NKUwKUpGdXdGAe0O/1czM +KPxDXH6g9EEDKrqmA5do33cwcrv9VgN6Gxpm5c0ptOWo0CnK1QCBDL+2h5YU +NlNlvYMmGpBhNpxSaEPheBRPkE+ROuS/LGZkuFA45sb3dOCcGjypS7MGVwqV +anWax63V4FVlZOoQbed/AmSZDdRgLseWXcidwvLgr12+hBpIX+T5dOMshWwh +Bb9NBhHKlYPLr/tQ2JpT7FKtj1BXYHDw8j8UMrFe84v2UoVknhrWvSF0/tMM +6+uHVcE1VKrhPW02rzV6TRKqwGe6SV35IoVzVj1O98cPgCdLO8yFUXhYsSnO +2uwAiJw4qnIkmt7f10wnW+39ELbaQlY4ie7XpHXzJXVlMPds/dJKu/albZyX +qDJID6iU+ifT++DtfXx5lTIMlApKv02h0DomPkSwWQnkTw7tDr9JYbtW66lv +Bkow+ciGmrlDIb/KszxZW0XQsXHaUZlPofRi55PRLAUoGAw1MSugcORqQ8+7 +aAXgME8L+0F7j1fcyU+eCtBl8vqDShGF3U4R0o6oALYH95bWPaBwcd3PmvQh +eThPMKm3lFGYrfiPyh9heSieS7EbrKEwvUCmsbtcDracKU0KrqVQ76YLJ1uG +HHhPtjQL11FYJFFrfChaDpSHVyRsn1HI+mHHfmFrOWhus1uYbKBwyLx1fmSd +HLx/tCd8/gWFhe16VdV2ssAV2HyPtYO+L9BRFiRlQM9xZ2ol7c06teVjnDJw +8ej5KJdOOn98tdLzFWmYl9rj2tFFobae1mBXhzS8HkuWyeql8IbtPVI8VBoi +DRyq1YcozEqP/rbm2R74vYPtbeg0hbI6fLrmtrtBjsO6Qf4jhSEjTbmLB3bD +mV+Py6Zpi3N31tby74a+LtcU41n6f2j9ot7TLgkV0Z2WOz9TuNWw+NHWg5Lg +uZA1VbdAIW/uNda70hKQN7LS6/2dQhOewPVfOCTg/WvTFnKRzn96Z7jznDgY +3l9fFLdEoUOh/KrufHGQtPI6d+onhaVu/1SnEOJgd+g/O+5fFHJcLu2XXCMO +NxWJYy9ol7C+GZ6epGAdV/8+6RUKL3I2dr67RwEyyVPjtLWLydMclynwn7sq +kPqH/n7FBH5nRwoevPuwXv8vhcICpvUftSmYbFZf+Uvbq2219HWSgv8Bil4M +3w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{9, 13}, {0., 0.8990174924750326}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{9.00000000000002, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{9, 13}, {0., 0.8990174924750326}}, + 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.992075670296116*^9, + 3.9920756902221565`*^9}, 3.9920762596596813`*^9}, + CellLabel-> + "Out[180]=",ExpressionUUID->"f8fcd9a6-66f2-e54c-a221-39afd2e3a6d1"] +}, 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", ",", "9", ",", "13", ",", "0.3"}], "}"}]}], "]"}], + "\[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", ",", "9", ",", "13", ",", "0.3"}], "}"}]}], "]"}], + "\[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.9920757007900925`*^9, 3.9920757026512547`*^9}, {3.9920757516569443`*^9, + 3.992075754835825*^9}, {3.9920762647418785`*^9, 3.9920762670515327`*^9}, { + 3.99207651724671*^9, 3.9920765187557163`*^9}, {3.9920765778753624`*^9, + 3.9920766097323074`*^9}}, + CellLabel-> + "In[213]:=",ExpressionUUID->"f15716e0-ba3a-184c-9e61-4429edd626d5"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.0415635620352381`\\\", \\\" \\\", \ +SuperscriptBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"18\\\", \\\"\ +\[RightSkeleton]\\\"}], RowBox[{\\\"1.`\\\", \\\" \\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}]], \\\" \\\", \ +\\\"R2\\\"}], SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}], \\\")\\\"}], \\\"3\\\"]]}], \\\"-\\\", \ +RowBox[{\\\"0.25854720505278395`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{RowBox[{\\\"\[LeftSkeleton]\\\", \\\"20\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\" \\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\" \\\", RowBox[{\\\"\[LeftSkeleton]\ +\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \\\"-\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[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.0415635620352381`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R2\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.25854720505278395`\\\", \\\" \\\", 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[{\\\"5.091660613240935`*^6\\\", \ +\\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \ +\\\"2\\\"]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"13\\\", \\\"\[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, 213, 11, + 24488269323719620004, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{ + 3.9919643917585564`*^9, 3.991965364224392*^9, 3.992075707880884*^9, + 3.9920757578782578`*^9, 3.9920762711321545`*^9, 3.9920765229724483`*^9, { + 3.9920765899755287`*^9, 3.992076613307585*^9}}, + CellLabel-> + "During evaluation of \ +In[213]:=",ExpressionUUID->"ece38aba-7832-ca49-8020-f5e8a18bdb88"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"1.94`", "\[Rule]", "1.9408667255059378`"}], ",", + RowBox[{"1.752`", "\[Rule]", "1.7525649776365884`"}]}], "}"}]], "Output", + CellChangeTimes->{ + 3.991964391814556*^9, 3.9919653643031864`*^9, 3.9920757079469643`*^9, + 3.992075757959017*^9, 3.992076271199774*^9, 3.992076522995476*^9, { + 3.992076589996641*^9, 3.9920766133295403`*^9}}, + CellLabel-> + "Out[213]=",ExpressionUUID->"e692359b-eb1a-d74d-9cd1-d465c3ce8fb1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "2.422"}]], "Input", + CellChangeTimes->{{3.9919643977866764`*^9, 3.991964402237297*^9}, { + 3.991965369034729*^9, 3.9919653692465267`*^9}, 3.9920757136758537`*^9, { + 3.9920758651249027`*^9, 3.9920759587851334`*^9}, 3.99207601091593*^9, { + 3.992076063767782*^9, 3.9920760977006264`*^9}, {3.992076280530802*^9, + 3.9920762946894436`*^9}, 3.9920763573367577`*^9, 3.992076406024996*^9, + 3.9920765307234936`*^9, 3.9920766434622707`*^9}, + CellLabel-> + "In[218]:=",ExpressionUUID->"acca64dd-115b-3449-a6ef-f2d70f4be4aa"], + +Cell[BoxData["2.422`"], "Output", + CellChangeTimes->{ + 3.9919644079976406`*^9, 3.9919653747711143`*^9, 3.992075723830038*^9, + 3.9920757939592037`*^9, {3.9920758707418213`*^9, 3.992075962122917*^9}, { + 3.99207599920002*^9, 3.992076108968256*^9}, 3.992076301495577*^9, + 3.9920763685964584`*^9, 3.992076409711067*^9, 3.9920765427928886`*^9, { + 3.9920766295246525`*^9, 3.9920766536455975`*^9}}, + CellLabel-> + "Out[218]=",ExpressionUUID->"0c5fe048-04ed-c64c-8d0f-ac40daafc3c5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"bb0", "=", "1.520"}], "\n"}]], "Input", + CellChangeTimes->{{3.9919644056263065`*^9, 3.991964406063389*^9}, { + 3.9919653725905457`*^9, 3.991965372909004*^9}, 3.9920757184348583`*^9, + 3.9920757787290726`*^9, {3.9920758131318684`*^9, 3.992075843522606*^9}, + 3.9920758968969784`*^9, {3.9920759786696815`*^9, 3.992076008079664*^9}, { + 3.9920760382272263`*^9, 3.9920760517099724`*^9}, {3.9920762860447845`*^9, + 3.9920762891448193`*^9}, {3.9920763630484104`*^9, 3.992076436236517*^9}, + 3.9920765348184357`*^9, 3.9920766475067253`*^9}, + CellLabel-> + "In[219]:=",ExpressionUUID->"0723e435-4e7b-764f-b2b2-d46d069a19ca"], + +Cell[BoxData["1.52`"], "Output", + CellChangeTimes->{ + 3.9919644088621464`*^9, 3.991965373888151*^9, 3.992075723863159*^9, { + 3.992075793993864*^9, 3.9920761090029907`*^9}, 3.992076301533823*^9, { + 3.992076368627495*^9, 3.9920764396193447`*^9}, 3.992076542824465*^9, { + 3.992076629567671*^9, 3.9920766536763134`*^9}}, + CellLabel-> + "Out[219]=",ExpressionUUID->"9eac5b73-7d63-9d41-9210-139e319f3e4e"] +}, 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", ",", "14"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917169296319904`*^9, {3.9919653858356647`*^9, 3.991965385973503*^9}, { + 3.9920757826651306`*^9, 3.9920757866591473`*^9}}, + CellLabel-> + "In[220]:=",ExpressionUUID->"418e109e-98c0-4048-bee3-982d843c6f5d"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVlGk4lAsfxqeyDCNlyykPhrHMPI8jnWhV/3+RUCe0nEgrUjTTUGQpyZqR +dWSq0eYtlFARk6PQIYYOzrHvxcErlaMkW+nt/XBf9/X7cl/X78ut58bfeXQ+ +jUYT/8j/e7+1SIFGI9D6LX1PxColtBzUKM+PI7BUZmfe+ngGDjSKOesNtVEt +W9Vnj1gRP2st+m9WgTZ+q3klWxStgP2Lg3l2oIMv3wm3rtxJxys7RzLLW3Xw +TUD1+9w+OSz8186c8NDFiZGbsWmnZDGtI8/v12+6+NyFt1GrZQE+XC1b1mHH +RNv7RRWOa+aj9aPsD3OJTJTW0dOCntJwQ0PjhHI3EzMOMP2+4ByMpH0yVmHp +offxz8+3HpmF6NL40tzjeiilZDWDHk1B9MUHphZP9DDDf7R+0dgErJsrl+bN +6KF+6Pxj3EvjsFPLxVJtqz66GQ/NGzb6CC4JXHVVoT4Oui5w7pQdBfWHAUsW +tOujryW5JdxzBFaekf3Uy2Kheo7Rte09QyD3LnYyx5uFylUSE8nIP7BBLqX1 +qISF/hf7M69r9IF7wJJlxfMNMPKqvL+2XQ9sECVfnLM1wJgdyyg9uw4465pY +b5pqgAen+G/yQ1uAVx8JTt0G6LRO203Ca4QdVybUlfUN8aFwNkfzZgOkyL2t +KOQZ4uUtX6rTC2shjtV83eGJISqk3T7X/LIK3g5tcmimGeEuzYFzN3QqwIJG +eY5vM0KPLWt8q1XLwaKakSUjNEJyaLH7n9tL4Jo5/wWt1wiFRpH1D5uL4LFD +rey/BsaYdO/WrmfbCuBp+e28AG9jDAyaWvdx7yPQb582e1dojCmXnEt7rR7A +phv2PY5fjdFnZ66y9fdMqKTruKfbsjG9K73ZdNkdmNV7qzqQyEbfIpf315Vu +g17ycuMXLWzcl6V5ylkxDbIzp9QFehys0iUK5PkiGPYqNrE6zsGgIFGfSYsQ +BE1ftYefcFBjcfLqUlYiLE0pOW1MI3HfxPjRc38L4ADt1LizDYnrnp449iQ7 +CmTVH2z3F5L483PHE/bDYeDW0tUQ0UEiQ/5km8xkCOS+vygx0aXwtWqYwTaj +INifXRRY7k1hlYHa6ECNH5Rp9LjbPKbQO2ttkbKnLzT2mM9+/05hP9kZvTuS +C3+qt3q42BBo6ZLe3TDMwMX72z9/aSfw1chL+UVaDORO7o7x5Wpjq7ji5JiG +Ig5pqetkzLJR+N/me1XpV8GO3sEcsuag+MkHcl/CZXiq45qRmsBBq1hVR3lm +Mjit7JZe7OTgxCpXwUbXOCipEa1EFokfqyvUyayLsCJWmXmMSyKrt2LtYH4E +PPGzSvhaSGLO+bXfTxy5APS+x1bOX0lUtCnmzJw+C5HbdK9+sabQwSrbur7n +DCi/sTu5IIHC6FKVm50yp0E6HbP8TjuFq7xMUlIv8OGyySqJCYvAEp9kMV9F +CTOZAZ3N+QQuPkpfKP8bA9mDk86tttoYYXS7Ks5FESNb0/ULhtnI19gSSm+4 +BsFtw+LVKzkY7hY3eCkoFRytFb24Zzk4MzdsFjaRDLwI7rikmoNTmzrjtkni +wdv0flOBCokube+YLkUxsHVLucJhFxKTwpsm+u9Fwn7rgA9r7pJovpaTmMAM +A4uuKoXRERL3zBPfiM07Bz9db8pS+YVCH+r1bmo2ACy2XBg/co7C9pEoC7f+ +01ApX1DzuZLCgdcmddPxPiDzzV812ovAK5z6y5JnDKx7dzDV6T2FNRsZ2+Wm +eRC4xvOwSIXAkfEBJtdACT+G29RV3CJwL9OqSOsUA+X2272gr9ZGx+dD3r8G +K2JjwbDButdslOT9UTngLQbVsrG9h0kOOmF73vSnVCDa+mrbfDnok1JyRMFD +CGcfPKE7lnLQWF5vH/dEAvxxOP/OBzqJh6QpLI/NAmjUv3a+24HE4rMeQbbs +KDAzUdHem0bi1aBq110RYbDd+e/3a/pJ3PRAdY7mFAJulbnLb7EpVCS606cS +AkEaoLUq+TSFK6xTzXt2+8EfylKRdgmFgaFlhx5O+cAwPbPk370E5rjlR6xo +YmDtp9Nuwf0UzqzJ8nH//ST8NWAnZX+hcPmLnn2HLXngvXHO/BWdwL6GmZjL +PyvhEvM8m/UiAkdTAiJrQxnor3lqQs9UGwWODSXHYxUxWF8pM6STjV9Kb3mT +v4uhN9+v6LMhB9VC+LUPzEQQfrvu7EIeB3M3pL60uS6E8DJntevFHOw7bJ+x +sDoBRqeLLsXKkOhbp5kaLxDA1WTZ4mXbSLyxvjGK8IqCZcxe8yERibIdue0X +C8OgTfTbwd4eEitWZ8gm3QmBmHbx+CCLwiBv0YflnYGgquLVxuZT6JFZLFJO +9AMU7vy2oohCJZtDUvpyX+hU3phk4EBg9jLRdqKXgXZn5qQJPRRanzsw95rg +w47jzaYbPlJo+PzKZh0xD5yOlB1Rn6VwejJ3UvqaC+6b7G8dlSEwqWrASO0X +Jbyv5LYgIJnA83ecW2KjGWjiH52Yx9HG/AtVYx5CRazvuOGp285GQ2fHtQb9 +YqjMKRosZXFQcIDmVekgAosoq933vDlIes67efepEKJrsn/aLOFg6LuBZquJ +BIi0Kf7uPJ/EzQddzLi5ApiRrm8ttiUxvn+yrUEQBYvFleW5l0n0E5XatNWH +AbFqqebjLhIFRpyEn+tCQOyWvEegR6GR+aE+Ji0IJD2L7n3mUrjpgqr80Rw/ +oDVfMXtWQOFqTfrCM/a+0KQSO1NqT6BcRjst5B8G0p9aff2pi8LQ+y+9U3bw +QTl7qVv1KIUXjrVLuTU8WHxHJvXmFIV8naWqYwt5INQNNo39RuHuHXnXRh5z +4c1mn+Zf5hOo5Rus9Ku5En6aKulTTyRQtfH5ikHBj/27Sd1+xtr4yVLh3kGR +IgYWDtmMtbLxgZXjgtVfxCC5v/fbHX0OJuapFx4+JIKEgPPl/l4cLLFJOvlP +lRBi6ndpaRRxcFvHs6BApUSo5/6+FueR2PKfPLWTZQLIGWj1EGwlUWgZPr5e +HAWKbZLo5BQSX5frH4rrCoOyqODT4k4SPcW1Eyr9IXA3K07OlfnDL6ywyVQt +CBSt3ZM6T1CoMMqS6pb4wRu/dfZh+RTGCFrHLJ19wVHt0fI4WwK7zPkke4iB +w85DGr0dFMr7v7oVe4wPo/bPzsZ9+PFPl8JYZn08GLPKynOf/MFxsQq6hjw4 +VU7YOnylUL1yzdO/pFzIP9+m/nKOwgnZ9/FL0rjwP0jvSE4= + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], + LineBox[{1, 135, 116, 98, 81, 65, 51, 149, 130, 112, 95, 79, 2, 136, + 117, 99, 82, 66, 52, 3, 137, 118, 100, 83, 67, 53, 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, 138, 119, + 101, 84, 68, 54, 40, 139, 120, 102, 85, 69, 55, 41, 140, 121, 103, + 86, 70, 56, 42, 141, 122, 104, 87, 71, 57, 43, 142, 123, 105, 88, + 72, 58, 44, 143, 124, 106, 89, 73, 59, 45, 144, 125, 107, 90, 74, + 60, 46, 145, 126, 108, 91, 75, 61, 47, 146, 127, 109, 92, 76, 62, + 48, 147, 128, 110, 93, 77, 63, 49, 148, 129, 111, 94, 78, 64, 150, + 131, 113, 96, 80, 151, 132, 114, 97, 152, 133, 115, 153, 134, 154, + 50}, + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgDAARNGIFq7hKlrYWGUECyEgBIzTOK2msHAFec2H496w5rhdIYTS +PVlSObfms9q6+idxHqe85yPVP4U3OI7jOI7jOI7jOI7jOI7jOI7jOI7/nt/w +vIBc + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVlGk4lAsfxqeyDCNlyykPhrHMPI8jnWhV/3+RUCe0nEgrUjTTUGQpyZqR +dWSq0eYtlFARk6PQIYYOzrHvxcErlaMkW+nt/XBf9/X7cl/X78ut58bfeXQ+ +jUYT/8j/e7+1SIFGI9D6LX1PxColtBzUKM+PI7BUZmfe+ngGDjSKOesNtVEt +W9Vnj1gRP2st+m9WgTZ+q3klWxStgP2Lg3l2oIMv3wm3rtxJxys7RzLLW3Xw +TUD1+9w+OSz8186c8NDFiZGbsWmnZDGtI8/v12+6+NyFt1GrZQE+XC1b1mHH +RNv7RRWOa+aj9aPsD3OJTJTW0dOCntJwQ0PjhHI3EzMOMP2+4ByMpH0yVmHp +offxz8+3HpmF6NL40tzjeiilZDWDHk1B9MUHphZP9DDDf7R+0dgErJsrl+bN +6KF+6Pxj3EvjsFPLxVJtqz66GQ/NGzb6CC4JXHVVoT4Oui5w7pQdBfWHAUsW +tOujryW5JdxzBFaekf3Uy2Kheo7Rte09QyD3LnYyx5uFylUSE8nIP7BBLqX1 +qISF/hf7M69r9IF7wJJlxfMNMPKqvL+2XQ9sECVfnLM1wJgdyyg9uw4465pY +b5pqgAen+G/yQ1uAVx8JTt0G6LRO203Ca4QdVybUlfUN8aFwNkfzZgOkyL2t +KOQZ4uUtX6rTC2shjtV83eGJISqk3T7X/LIK3g5tcmimGeEuzYFzN3QqwIJG +eY5vM0KPLWt8q1XLwaKakSUjNEJyaLH7n9tL4Jo5/wWt1wiFRpH1D5uL4LFD +rey/BsaYdO/WrmfbCuBp+e28AG9jDAyaWvdx7yPQb582e1dojCmXnEt7rR7A +phv2PY5fjdFnZ66y9fdMqKTruKfbsjG9K73ZdNkdmNV7qzqQyEbfIpf315Vu +g17ycuMXLWzcl6V5ylkxDbIzp9QFehys0iUK5PkiGPYqNrE6zsGgIFGfSYsQ +BE1ftYefcFBjcfLqUlYiLE0pOW1MI3HfxPjRc38L4ADt1LizDYnrnp449iQ7 +CmTVH2z3F5L483PHE/bDYeDW0tUQ0UEiQ/5km8xkCOS+vygx0aXwtWqYwTaj +INifXRRY7k1hlYHa6ECNH5Rp9LjbPKbQO2ttkbKnLzT2mM9+/05hP9kZvTuS +C3+qt3q42BBo6ZLe3TDMwMX72z9/aSfw1chL+UVaDORO7o7x5Wpjq7ji5JiG +Ig5pqetkzLJR+N/me1XpV8GO3sEcsuag+MkHcl/CZXiq45qRmsBBq1hVR3lm +Mjit7JZe7OTgxCpXwUbXOCipEa1EFokfqyvUyayLsCJWmXmMSyKrt2LtYH4E +PPGzSvhaSGLO+bXfTxy5APS+x1bOX0lUtCnmzJw+C5HbdK9+sabQwSrbur7n +DCi/sTu5IIHC6FKVm50yp0E6HbP8TjuFq7xMUlIv8OGyySqJCYvAEp9kMV9F +CTOZAZ3N+QQuPkpfKP8bA9mDk86tttoYYXS7Ks5FESNb0/ULhtnI19gSSm+4 +BsFtw+LVKzkY7hY3eCkoFRytFb24Zzk4MzdsFjaRDLwI7rikmoNTmzrjtkni +wdv0flOBCokube+YLkUxsHVLucJhFxKTwpsm+u9Fwn7rgA9r7pJovpaTmMAM +A4uuKoXRERL3zBPfiM07Bz9db8pS+YVCH+r1bmo2ACy2XBg/co7C9pEoC7f+ +01ApX1DzuZLCgdcmddPxPiDzzV812ovAK5z6y5JnDKx7dzDV6T2FNRsZ2+Wm +eRC4xvOwSIXAkfEBJtdACT+G29RV3CJwL9OqSOsUA+X2272gr9ZGx+dD3r8G +K2JjwbDButdslOT9UTngLQbVsrG9h0kOOmF73vSnVCDa+mrbfDnok1JyRMFD +CGcfPKE7lnLQWF5vH/dEAvxxOP/OBzqJh6QpLI/NAmjUv3a+24HE4rMeQbbs +KDAzUdHem0bi1aBq110RYbDd+e/3a/pJ3PRAdY7mFAJulbnLb7EpVCS606cS +AkEaoLUq+TSFK6xTzXt2+8EfylKRdgmFgaFlhx5O+cAwPbPk370E5rjlR6xo +YmDtp9Nuwf0UzqzJ8nH//ST8NWAnZX+hcPmLnn2HLXngvXHO/BWdwL6GmZjL +PyvhEvM8m/UiAkdTAiJrQxnor3lqQs9UGwWODSXHYxUxWF8pM6STjV9Kb3mT +v4uhN9+v6LMhB9VC+LUPzEQQfrvu7EIeB3M3pL60uS6E8DJntevFHOw7bJ+x +sDoBRqeLLsXKkOhbp5kaLxDA1WTZ4mXbSLyxvjGK8IqCZcxe8yERibIdue0X +C8OgTfTbwd4eEitWZ8gm3QmBmHbx+CCLwiBv0YflnYGgquLVxuZT6JFZLFJO +9AMU7vy2oohCJZtDUvpyX+hU3phk4EBg9jLRdqKXgXZn5qQJPRRanzsw95rg +w47jzaYbPlJo+PzKZh0xD5yOlB1Rn6VwejJ3UvqaC+6b7G8dlSEwqWrASO0X +Jbyv5LYgIJnA83ecW2KjGWjiH52Yx9HG/AtVYx5CRazvuOGp285GQ2fHtQb9 +YqjMKRosZXFQcIDmVekgAosoq933vDlIes67efepEKJrsn/aLOFg6LuBZquJ +BIi0Kf7uPJ/EzQddzLi5ApiRrm8ttiUxvn+yrUEQBYvFleW5l0n0E5XatNWH +AbFqqebjLhIFRpyEn+tCQOyWvEegR6GR+aE+Ji0IJD2L7n3mUrjpgqr80Rw/ +oDVfMXtWQOFqTfrCM/a+0KQSO1NqT6BcRjst5B8G0p9aff2pi8LQ+y+9U3bw +QTl7qVv1KIUXjrVLuTU8WHxHJvXmFIV8naWqYwt5INQNNo39RuHuHXnXRh5z +4c1mn+Zf5hOo5Rus9Ku5En6aKulTTyRQtfH5ikHBj/27Sd1+xtr4yVLh3kGR +IgYWDtmMtbLxgZXjgtVfxCC5v/fbHX0OJuapFx4+JIKEgPPl/l4cLLFJOvlP +lRBi6ndpaRRxcFvHs6BApUSo5/6+FueR2PKfPLWTZQLIGWj1EGwlUWgZPr5e +HAWKbZLo5BQSX5frH4rrCoOyqODT4k4SPcW1Eyr9IXA3K07OlfnDL6ywyVQt +CBSt3ZM6T1CoMMqS6pb4wRu/dfZh+RTGCFrHLJ19wVHt0fI4WwK7zPkke4iB +w85DGr0dFMr7v7oVe4wPo/bPzsZ9+PFPl8JYZn08GLPKynOf/MFxsQq6hjw4 +VU7YOnylUL1yzdO/pFzIP9+m/nKOwgnZ9/FL0rjwP0jvSE4= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 135, 116, 98, 81, 65, 51, 149, 130, 112, 95, 79, 2, + 136, 117, 99, 82, 66, 52, 3, 137, 118, 100, 83, 67, 53, 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, 138, 119, 101, 84, 68, 54, 40, 139, 120, 102, 85, 69, + 55, 41, 140, 121, 103, 86, 70, 56, 42, 141, 122, 104, 87, 71, + 57, 43, 142, 123, 105, 88, 72, 58, 44, 143, 124, 106, 89, 73, + 59, 45, 144, 125, 107, 90, 74, 60, 46, 145, 126, 108, 91, 75, + 61, 47, 146, 127, 109, 92, 76, 62, 48, 147, 128, 110, 93, 77, + 63, 49, 148, 129, 111, 94, 78, 64, 150, 131, 113, 96, 80, 151, + 132, 114, 97, 152, 133, 115, 153, 134, 154, 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]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 14}, {0., 3.526617683729599}}, + "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:eJwVkXk81Akfx6dyDCM5s+WHYRwzv59FG6VS32+RHG10baRDSNFMQ8iVSiEj +58hUo8ujKKFyDavQEqM2dt0UxeKRyiq5OvT0/PF5vf96//F+ffS9+NsOzqfR +aOIf+z/32IkUaDQC7d7Qd55doYSvNwS0/TKfQO3ACKVfLZXQe73T9YMyBKbW +Dxqr/6KE/uvmLJ/RCexv/hx/4WclDLP29RSpEjg6McjkGirhBdMVElMWgZUB +aWK+qhL+qdHh425PoI171svmEQa6qt83T3Qg8IUln2QPM7BVNeFzlROBcre6 +aFH/MLBHeV2qoQuBeUtFm4k+Bo7Qcyr/3UVgvlfR2WWtDJT5FqIW50fgRU7T +BclDBtoMadYUJRJYJbOtcE0SAz/OVPZrpBCo1vJo2ZCAgXeUvBaEphF4Mtut +PSGOgYstC+3XiAgcSw+NeXqKgR/O2D+vvU7gLqZtmfYxBuYwQ3vaighUOUhf +KP8bA1X2dH2a6iLw2egT+UXaDBxsEXPWGOmgep5awE6xItJvpr4MNtHBjzYK +t/eJFNE0JC6lkKODRafrx32EihiidWxS30wHBa7NlYcTFFFuj+Nj+koddH00 +7P9rhCKyh6bdOhx08KzxjfpEd0XkTu+ID+TqYIe49ui4piJ+0l7039xiHfzW ++Ey2LE4BB1QieI6gi0/eCjct30bHi9tGc2o6dPF1aMO7gn45LP3X0ZLw0cPJ +0WsJmcdkMbO7MPjXb3r4yJ23Trt9Ad5bKVvd7chEhztlta7W89Huft77uRQm +Sp/TM8PLabi2uWVS+SUTb+1lBk/hHIxmfjRRZemj/+FPjzYd+AJxVUlVBYf1 +UUrJaoXfn4G4c3fNrEr08VbIWNOi8UlYPVcjLfysjwan5h/inp+AbdruNuqb +DNDLZHjeiPEHcE/maqgJDXDIY4Fbj+wYaNwLXbygywADbciNZ3xHYflx2Y99 +LBZq5Btf3tw7DHJvE6bz/VmoXC8xlYz+A2vl0jsOSlgYcm4g54pmP3iHLl5a +Md8QYy7Jh+g49sJaUdq5OQdDjN+ylNJ37IZIj5QmswxD3DfDf110qh14TTGw +9aUhbl2t4yXhtcCWi5MaygZGeE/4JV/rWjOky72pLeUZ4YWNUw1ZpU8hkdV2 +xaXECBUyb5xoe1IPb4bXu7TRjHG71uCJq7q1YEWjfCecjdFno3Vgg1oNWDUw +cmWExkgOq3j/ubkSLlvyH9P6jFFoHNN0r60MHrg8lf3X0ARTb1/f/tC5GMpr +bhSG+ptgWPjM6g+77oNB16zF21ITTD/vVtVnexfWX3Xqdf1qggHbCpTtvudA +HV3XO8uBjVkvstrMlmbDF/03aoMpbAwsc393RekG6KeZmzxuZ+PuXK1jboqZ +EFY6bD/ewca7tq4LVk6Joan7qq9eFxuN3FxXGQ6IIcJAKSeqh41TVdf9yd/F +0FI8Yrj6FRslhX/UDfqLIaYjy6B4hI18zY2n6M2XYVhbQ/fWFzYK/9t2uz7r +EuTlzGgI9DlYr0cUy/NFILmz61u2AQdTCjVKPfeLoC6/bKiKxUHBXppfnYsI ++oqCyz4ZcVA9iv/0roUI1KrHd3mSHNyKXYWzHzMgonNEvHI5B894JQ6dD88A +R3o3c9iOg+KS9+Tu5Asw4ldhanuYg+Hhon7TdiEkh56sCfHjYKV96tF/6oVg +FWu747Y/B0nfeddulgvhzI3nkQt5HCxYm/HE/ooQiM7+p52BHAxIrzyg4CME +VztFP24kBz/PjVhET6ZBua7HrYxkDtomqLnKM9NA0PpVZ6SEg5oqaSurWCkQ +37RdW7OMg87dD8PDlFIgrjHvpw0SDp56O9hmO5kMZ6rd1K9UcLDf0+nWwoZk +iLxbQnet4qCJvP5u7pFk4J3lTkgaODizvifRWZIEW5e/lJ7r4eDkCg/BOo9E +WJJeGWRCI3H35MTBE38LoIn7+yqcR2L7fwrVj1YLIMa+4rvbfBI37HO34BYI +YGy27HyCDImBz7UykgQC+MOzKPs9ncT90nSWzwYB+JvdaS1WJdG98y3TvSwe +KhtFy5FF4oeGWg0y9xzspR2bcLMncXX5kUMlebGQP9jhI9hEotDmzMQacSx8 +lq7pqHAgMWlgurNZEAuX0mQrljqTeHVNSyzhFwstBpdPvnQhsSLSJ9yBHQub +NtYoeLqTmHqmdXLgdgwsS1BmHuKSyOqrXTVUdBZkNe5uDhGS+PMj1yNOI9Gg +2CmJS0sn8VWNwf7EF9GgIq6rKbhAYrCoyr6zKRqWMvssh0UkynYXdJ0rjQYL +U1WdXZkkXgpv8Nh+Nhr22IW+t75JouUqTkoyMxpKgm2Tv5aSmH9y1fcjB06D +V/uL5rPdJDLkj3bKTEdBdWxEkLiHRF/x00nVgSggVizRevCCRIExJ/nn51HQ +KfptX18vibUrb8mmZkfBZre/31kPkLj+rtocbWsUWL2oVxgbJXHnPPHVhMIT +QO9/YOv2lURF+wrO56BIKHh3TmKqR+ErtWhDZ+NwuJmbKOfBpPB0dGmrmXo4 +iL3Sdgr0KTS23N/PpIVDfJd4YohFYbi/6L15Txh41RWYX2dTqEi8zJpJDoOf +rrTmqv5CYQD1agf1JRRinPUuTdlR6GKbZ9fUexz25JWF1fhTWG+oPjbYGAyK +dt6pPUcoVBhjSfUqg0HSu+j2Jy6F60+ryR/MDwY1Vb9ONp9Cn5wKkXJKMEhD +tVekBVG4zC7DsndHMFhtPD1x4ASFXaOxVl4DQaD82vHogmQK46pUr/XIBEG1 +Zq+3/QMK/XNXlSn7BsLr4NVO0UUUxgs6xm3cAoHWdtHiYTGFK7XoC487BQIK +t31bVkahkv1+Kd08EP5Qlop0KikMO1W9/95MANTJFzd+qqNw8JXp89mkAJDO +xptnd1G4ws80PeM0H0bchjX7uimUD3l2PeEQH+jltl9/ekHhqTtP/NO38MHx ++Jw0uZdCuxN7514RfHj6McgrYoDCz9a5Ad6/H4Xnb/dlbH1HYeM6xma5WR6M +OT2MTHz/o+98NMuinwfKeUu8GsZ+/HOoS8pt5MGWw21maz9QaPTo4gZdMQ/+ +GnSUsqcoNH/cu9vThgfjtrmF3tM//MQEBT0jHqhky2Rcm6GQr7tEbXwhD7Ye +qD6g8YXC2emCaekrLhyrIRxcvlKoUWdd/peUC0K9CLOEbxTu2FJ4efQBF4pO +dmo8maNwUvZd0uJMLrT0Wn75/p3CAbInbkcMF/4HN9NITg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 14}, {0., 3.526617683729599}}, + "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:eJwVkXk81Akfx6dyDCM5s+WHYRwzv59FG6VS32+RHG10baRDSNFMQ8iVSiEj +58hUo8ujKKFyDavQEqM2dt0UxeKRyiq5OvT0/PF5vf96//F+ffS9+NsOzqfR +aOIf+z/32IkUaDQC7d7Qd55doYSvNwS0/TKfQO3ACKVfLZXQe73T9YMyBKbW +Dxqr/6KE/uvmLJ/RCexv/hx/4WclDLP29RSpEjg6McjkGirhBdMVElMWgZUB +aWK+qhL+qdHh425PoI171svmEQa6qt83T3Qg8IUln2QPM7BVNeFzlROBcre6 +aFH/MLBHeV2qoQuBeUtFm4k+Bo7Qcyr/3UVgvlfR2WWtDJT5FqIW50fgRU7T +BclDBtoMadYUJRJYJbOtcE0SAz/OVPZrpBCo1vJo2ZCAgXeUvBaEphF4Mtut +PSGOgYstC+3XiAgcSw+NeXqKgR/O2D+vvU7gLqZtmfYxBuYwQ3vaighUOUhf +KP8bA1X2dH2a6iLw2egT+UXaDBxsEXPWGOmgep5awE6xItJvpr4MNtHBjzYK +t/eJFNE0JC6lkKODRafrx32EihiidWxS30wHBa7NlYcTFFFuj+Nj+koddH00 +7P9rhCKyh6bdOhx08KzxjfpEd0XkTu+ID+TqYIe49ui4piJ+0l7039xiHfzW ++Ey2LE4BB1QieI6gi0/eCjct30bHi9tGc2o6dPF1aMO7gn45LP3X0ZLw0cPJ +0WsJmcdkMbO7MPjXb3r4yJ23Trt9Ad5bKVvd7chEhztlta7W89Huft77uRQm +Sp/TM8PLabi2uWVS+SUTb+1lBk/hHIxmfjRRZemj/+FPjzYd+AJxVUlVBYf1 +UUrJaoXfn4G4c3fNrEr08VbIWNOi8UlYPVcjLfysjwan5h/inp+AbdruNuqb +DNDLZHjeiPEHcE/maqgJDXDIY4Fbj+wYaNwLXbygywADbciNZ3xHYflx2Y99 +LBZq5Btf3tw7DHJvE6bz/VmoXC8xlYz+A2vl0jsOSlgYcm4g54pmP3iHLl5a +Md8QYy7Jh+g49sJaUdq5OQdDjN+ylNJ37IZIj5QmswxD3DfDf110qh14TTGw +9aUhbl2t4yXhtcCWi5MaygZGeE/4JV/rWjOky72pLeUZ4YWNUw1ZpU8hkdV2 +xaXECBUyb5xoe1IPb4bXu7TRjHG71uCJq7q1YEWjfCecjdFno3Vgg1oNWDUw +cmWExkgOq3j/ubkSLlvyH9P6jFFoHNN0r60MHrg8lf3X0ARTb1/f/tC5GMpr +bhSG+ptgWPjM6g+77oNB16zF21ITTD/vVtVnexfWX3Xqdf1qggHbCpTtvudA +HV3XO8uBjVkvstrMlmbDF/03aoMpbAwsc393RekG6KeZmzxuZ+PuXK1jboqZ +EFY6bD/ewca7tq4LVk6Joan7qq9eFxuN3FxXGQ6IIcJAKSeqh41TVdf9yd/F +0FI8Yrj6FRslhX/UDfqLIaYjy6B4hI18zY2n6M2XYVhbQ/fWFzYK/9t2uz7r +EuTlzGgI9DlYr0cUy/NFILmz61u2AQdTCjVKPfeLoC6/bKiKxUHBXppfnYsI ++oqCyz4ZcVA9iv/0roUI1KrHd3mSHNyKXYWzHzMgonNEvHI5B894JQ6dD88A +R3o3c9iOg+KS9+Tu5Asw4ldhanuYg+Hhon7TdiEkh56sCfHjYKV96tF/6oVg +FWu747Y/B0nfeddulgvhzI3nkQt5HCxYm/HE/ooQiM7+p52BHAxIrzyg4CME +VztFP24kBz/PjVhET6ZBua7HrYxkDtomqLnKM9NA0PpVZ6SEg5oqaSurWCkQ +37RdW7OMg87dD8PDlFIgrjHvpw0SDp56O9hmO5kMZ6rd1K9UcLDf0+nWwoZk +iLxbQnet4qCJvP5u7pFk4J3lTkgaODizvifRWZIEW5e/lJ7r4eDkCg/BOo9E +WJJeGWRCI3H35MTBE38LoIn7+yqcR2L7fwrVj1YLIMa+4rvbfBI37HO34BYI +YGy27HyCDImBz7UykgQC+MOzKPs9ncT90nSWzwYB+JvdaS1WJdG98y3TvSwe +KhtFy5FF4oeGWg0y9xzspR2bcLMncXX5kUMlebGQP9jhI9hEotDmzMQacSx8 +lq7pqHAgMWlgurNZEAuX0mQrljqTeHVNSyzhFwstBpdPvnQhsSLSJ9yBHQub +NtYoeLqTmHqmdXLgdgwsS1BmHuKSyOqrXTVUdBZkNe5uDhGS+PMj1yNOI9Gg +2CmJS0sn8VWNwf7EF9GgIq6rKbhAYrCoyr6zKRqWMvssh0UkynYXdJ0rjQYL +U1WdXZkkXgpv8Nh+Nhr22IW+t75JouUqTkoyMxpKgm2Tv5aSmH9y1fcjB06D +V/uL5rPdJDLkj3bKTEdBdWxEkLiHRF/x00nVgSggVizRevCCRIExJ/nn51HQ +KfptX18vibUrb8mmZkfBZre/31kPkLj+rtocbWsUWL2oVxgbJXHnPPHVhMIT +QO9/YOv2lURF+wrO56BIKHh3TmKqR+ErtWhDZ+NwuJmbKOfBpPB0dGmrmXo4 +iL3Sdgr0KTS23N/PpIVDfJd4YohFYbi/6L15Txh41RWYX2dTqEi8zJpJDoOf +rrTmqv5CYQD1agf1JRRinPUuTdlR6GKbZ9fUexz25JWF1fhTWG+oPjbYGAyK +dt6pPUcoVBhjSfUqg0HSu+j2Jy6F60+ryR/MDwY1Vb9ONp9Cn5wKkXJKMEhD +tVekBVG4zC7DsndHMFhtPD1x4ASFXaOxVl4DQaD82vHogmQK46pUr/XIBEG1 +Zq+3/QMK/XNXlSn7BsLr4NVO0UUUxgs6xm3cAoHWdtHiYTGFK7XoC487BQIK +t31bVkahkv1+Kd08EP5Qlop0KikMO1W9/95MANTJFzd+qqNw8JXp89mkAJDO +xptnd1G4ws80PeM0H0bchjX7uimUD3l2PeEQH+jltl9/ekHhqTtP/NO38MHx ++Jw0uZdCuxN7514RfHj6McgrYoDCz9a5Ad6/H4Xnb/dlbH1HYeM6xma5WR6M +OT2MTHz/o+98NMuinwfKeUu8GsZ+/HOoS8pt5MGWw21maz9QaPTo4gZdMQ/+ +GnSUsqcoNH/cu9vThgfjtrmF3tM//MQEBT0jHqhky2Rcm6GQr7tEbXwhD7Ye +qD6g8YXC2emCaekrLhyrIRxcvlKoUWdd/peUC0K9CLOEbxTu2FJ4efQBF4pO +dmo8maNwUvZd0uJMLrT0Wn75/p3CAbInbkcMF/4HN9NITg== + "]]}, "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:eJwVlGk4lAsfxqeyDCNlyykPhrHMPI8jnWhV/3+RUCe0nEgrUjTTUGQpyZqR +dWSq0eYtlFARk6PQIYYOzrHvxcErlaMkW+nt/XBf9/X7cl/X78ut58bfeXQ+ +jUYT/8j/e7+1SIFGI9D6LX1PxColtBzUKM+PI7BUZmfe+ngGDjSKOesNtVEt +W9Vnj1gRP2st+m9WgTZ+q3klWxStgP2Lg3l2oIMv3wm3rtxJxys7RzLLW3Xw +TUD1+9w+OSz8186c8NDFiZGbsWmnZDGtI8/v12+6+NyFt1GrZQE+XC1b1mHH +RNv7RRWOa+aj9aPsD3OJTJTW0dOCntJwQ0PjhHI3EzMOMP2+4ByMpH0yVmHp +offxz8+3HpmF6NL40tzjeiilZDWDHk1B9MUHphZP9DDDf7R+0dgErJsrl+bN +6KF+6Pxj3EvjsFPLxVJtqz66GQ/NGzb6CC4JXHVVoT4Oui5w7pQdBfWHAUsW +tOujryW5JdxzBFaekf3Uy2Kheo7Rte09QyD3LnYyx5uFylUSE8nIP7BBLqX1 +qISF/hf7M69r9IF7wJJlxfMNMPKqvL+2XQ9sECVfnLM1wJgdyyg9uw4465pY +b5pqgAen+G/yQ1uAVx8JTt0G6LRO203Ca4QdVybUlfUN8aFwNkfzZgOkyL2t +KOQZ4uUtX6rTC2shjtV83eGJISqk3T7X/LIK3g5tcmimGeEuzYFzN3QqwIJG +eY5vM0KPLWt8q1XLwaKakSUjNEJyaLH7n9tL4Jo5/wWt1wiFRpH1D5uL4LFD +rey/BsaYdO/WrmfbCuBp+e28AG9jDAyaWvdx7yPQb582e1dojCmXnEt7rR7A +phv2PY5fjdFnZ66y9fdMqKTruKfbsjG9K73ZdNkdmNV7qzqQyEbfIpf315Vu +g17ycuMXLWzcl6V5ylkxDbIzp9QFehys0iUK5PkiGPYqNrE6zsGgIFGfSYsQ +BE1ftYefcFBjcfLqUlYiLE0pOW1MI3HfxPjRc38L4ADt1LizDYnrnp449iQ7 +CmTVH2z3F5L483PHE/bDYeDW0tUQ0UEiQ/5km8xkCOS+vygx0aXwtWqYwTaj +INifXRRY7k1hlYHa6ECNH5Rp9LjbPKbQO2ttkbKnLzT2mM9+/05hP9kZvTuS +C3+qt3q42BBo6ZLe3TDMwMX72z9/aSfw1chL+UVaDORO7o7x5Wpjq7ji5JiG +Ig5pqetkzLJR+N/me1XpV8GO3sEcsuag+MkHcl/CZXiq45qRmsBBq1hVR3lm +Mjit7JZe7OTgxCpXwUbXOCipEa1EFokfqyvUyayLsCJWmXmMSyKrt2LtYH4E +PPGzSvhaSGLO+bXfTxy5APS+x1bOX0lUtCnmzJw+C5HbdK9+sabQwSrbur7n +DCi/sTu5IIHC6FKVm50yp0E6HbP8TjuFq7xMUlIv8OGyySqJCYvAEp9kMV9F +CTOZAZ3N+QQuPkpfKP8bA9mDk86tttoYYXS7Ks5FESNb0/ULhtnI19gSSm+4 +BsFtw+LVKzkY7hY3eCkoFRytFb24Zzk4MzdsFjaRDLwI7rikmoNTmzrjtkni +wdv0flOBCokube+YLkUxsHVLucJhFxKTwpsm+u9Fwn7rgA9r7pJovpaTmMAM +A4uuKoXRERL3zBPfiM07Bz9db8pS+YVCH+r1bmo2ACy2XBg/co7C9pEoC7f+ +01ApX1DzuZLCgdcmddPxPiDzzV812ovAK5z6y5JnDKx7dzDV6T2FNRsZ2+Wm +eRC4xvOwSIXAkfEBJtdACT+G29RV3CJwL9OqSOsUA+X2272gr9ZGx+dD3r8G +K2JjwbDButdslOT9UTngLQbVsrG9h0kOOmF73vSnVCDa+mrbfDnok1JyRMFD +CGcfPKE7lnLQWF5vH/dEAvxxOP/OBzqJh6QpLI/NAmjUv3a+24HE4rMeQbbs +KDAzUdHem0bi1aBq110RYbDd+e/3a/pJ3PRAdY7mFAJulbnLb7EpVCS606cS +AkEaoLUq+TSFK6xTzXt2+8EfylKRdgmFgaFlhx5O+cAwPbPk370E5rjlR6xo +YmDtp9Nuwf0UzqzJ8nH//ST8NWAnZX+hcPmLnn2HLXngvXHO/BWdwL6GmZjL +PyvhEvM8m/UiAkdTAiJrQxnor3lqQs9UGwWODSXHYxUxWF8pM6STjV9Kb3mT +v4uhN9+v6LMhB9VC+LUPzEQQfrvu7EIeB3M3pL60uS6E8DJntevFHOw7bJ+x +sDoBRqeLLsXKkOhbp5kaLxDA1WTZ4mXbSLyxvjGK8IqCZcxe8yERibIdue0X +C8OgTfTbwd4eEitWZ8gm3QmBmHbx+CCLwiBv0YflnYGgquLVxuZT6JFZLFJO +9AMU7vy2oohCJZtDUvpyX+hU3phk4EBg9jLRdqKXgXZn5qQJPRRanzsw95rg +w47jzaYbPlJo+PzKZh0xD5yOlB1Rn6VwejJ3UvqaC+6b7G8dlSEwqWrASO0X +Jbyv5LYgIJnA83ecW2KjGWjiH52Yx9HG/AtVYx5CRazvuOGp285GQ2fHtQb9 +YqjMKRosZXFQcIDmVekgAosoq933vDlIes67efepEKJrsn/aLOFg6LuBZquJ +BIi0Kf7uPJ/EzQddzLi5ApiRrm8ttiUxvn+yrUEQBYvFleW5l0n0E5XatNWH +AbFqqebjLhIFRpyEn+tCQOyWvEegR6GR+aE+Ji0IJD2L7n3mUrjpgqr80Rw/ +oDVfMXtWQOFqTfrCM/a+0KQSO1NqT6BcRjst5B8G0p9aff2pi8LQ+y+9U3bw +QTl7qVv1KIUXjrVLuTU8WHxHJvXmFIV8naWqYwt5INQNNo39RuHuHXnXRh5z +4c1mn+Zf5hOo5Rus9Ku5En6aKulTTyRQtfH5ikHBj/27Sd1+xtr4yVLh3kGR +IgYWDtmMtbLxgZXjgtVfxCC5v/fbHX0OJuapFx4+JIKEgPPl/l4cLLFJOvlP +lRBi6ndpaRRxcFvHs6BApUSo5/6+FueR2PKfPLWTZQLIGWj1EGwlUWgZPr5e +HAWKbZLo5BQSX5frH4rrCoOyqODT4k4SPcW1Eyr9IXA3K07OlfnDL6ywyVQt +CBSt3ZM6T1CoMMqS6pb4wRu/dfZh+RTGCFrHLJ19wVHt0fI4WwK7zPkke4iB +w85DGr0dFMr7v7oVe4wPo/bPzsZ9+PFPl8JYZn08GLPKynOf/MFxsQq6hjw4 +VU7YOnylUL1yzdO/pFzIP9+m/nKOwgnZ9/FL0rjwP0jvSE4= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 135, 116, 98, 81, 65, 51, 149, 130, 112, 95, 79, 2, 136, + 117, 99, 82, 66, 52, 3, 137, 118, 100, 83, 67, 53, 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, 138, 119, + 101, 84, 68, 54, 40, 139, 120, 102, 85, 69, 55, 41, 140, 121, 103, + 86, 70, 56, 42, 141, 122, 104, 87, 71, 57, 43, 142, 123, 105, 88, + 72, 58, 44, 143, 124, 106, 89, 73, 59, 45, 144, 125, 107, 90, 74, + 60, 46, 145, 126, 108, 91, 75, 61, 47, 146, 127, 109, 92, 76, 62, + 48, 147, 128, 110, 93, 77, 63, 49, 148, 129, 111, 94, 78, 64, 150, + 131, 113, 96, 80, 151, 132, 114, 97, 152, 133, 115, 153, 134, 154, + 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]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 14}, {0., 3.526617683729599}}, + "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:eJwVkXk81Akfx6dyDCM5s+WHYRwzv59FG6VS32+RHG10baRDSNFMQ8iVSiEj +58hUo8ujKKFyDavQEqM2dt0UxeKRyiq5OvT0/PF5vf96//F+ffS9+NsOzqfR +aOIf+z/32IkUaDQC7d7Qd55doYSvNwS0/TKfQO3ACKVfLZXQe73T9YMyBKbW +Dxqr/6KE/uvmLJ/RCexv/hx/4WclDLP29RSpEjg6McjkGirhBdMVElMWgZUB +aWK+qhL+qdHh425PoI171svmEQa6qt83T3Qg8IUln2QPM7BVNeFzlROBcre6 +aFH/MLBHeV2qoQuBeUtFm4k+Bo7Qcyr/3UVgvlfR2WWtDJT5FqIW50fgRU7T +BclDBtoMadYUJRJYJbOtcE0SAz/OVPZrpBCo1vJo2ZCAgXeUvBaEphF4Mtut +PSGOgYstC+3XiAgcSw+NeXqKgR/O2D+vvU7gLqZtmfYxBuYwQ3vaighUOUhf +KP8bA1X2dH2a6iLw2egT+UXaDBxsEXPWGOmgep5awE6xItJvpr4MNtHBjzYK +t/eJFNE0JC6lkKODRafrx32EihiidWxS30wHBa7NlYcTFFFuj+Nj+koddH00 +7P9rhCKyh6bdOhx08KzxjfpEd0XkTu+ID+TqYIe49ui4piJ+0l7039xiHfzW ++Ey2LE4BB1QieI6gi0/eCjct30bHi9tGc2o6dPF1aMO7gn45LP3X0ZLw0cPJ +0WsJmcdkMbO7MPjXb3r4yJ23Trt9Ad5bKVvd7chEhztlta7W89Huft77uRQm +Sp/TM8PLabi2uWVS+SUTb+1lBk/hHIxmfjRRZemj/+FPjzYd+AJxVUlVBYf1 +UUrJaoXfn4G4c3fNrEr08VbIWNOi8UlYPVcjLfysjwan5h/inp+AbdruNuqb +DNDLZHjeiPEHcE/maqgJDXDIY4Fbj+wYaNwLXbygywADbciNZ3xHYflx2Y99 +LBZq5Btf3tw7DHJvE6bz/VmoXC8xlYz+A2vl0jsOSlgYcm4g54pmP3iHLl5a +Md8QYy7Jh+g49sJaUdq5OQdDjN+ylNJ37IZIj5QmswxD3DfDf110qh14TTGw +9aUhbl2t4yXhtcCWi5MaygZGeE/4JV/rWjOky72pLeUZ4YWNUw1ZpU8hkdV2 +xaXECBUyb5xoe1IPb4bXu7TRjHG71uCJq7q1YEWjfCecjdFno3Vgg1oNWDUw +cmWExkgOq3j/ubkSLlvyH9P6jFFoHNN0r60MHrg8lf3X0ARTb1/f/tC5GMpr +bhSG+ptgWPjM6g+77oNB16zF21ITTD/vVtVnexfWX3Xqdf1qggHbCpTtvudA +HV3XO8uBjVkvstrMlmbDF/03aoMpbAwsc393RekG6KeZmzxuZ+PuXK1jboqZ +EFY6bD/ewca7tq4LVk6Joan7qq9eFxuN3FxXGQ6IIcJAKSeqh41TVdf9yd/F +0FI8Yrj6FRslhX/UDfqLIaYjy6B4hI18zY2n6M2XYVhbQ/fWFzYK/9t2uz7r +EuTlzGgI9DlYr0cUy/NFILmz61u2AQdTCjVKPfeLoC6/bKiKxUHBXppfnYsI ++oqCyz4ZcVA9iv/0roUI1KrHd3mSHNyKXYWzHzMgonNEvHI5B894JQ6dD88A +R3o3c9iOg+KS9+Tu5Asw4ldhanuYg+Hhon7TdiEkh56sCfHjYKV96tF/6oVg +FWu747Y/B0nfeddulgvhzI3nkQt5HCxYm/HE/ooQiM7+p52BHAxIrzyg4CME +VztFP24kBz/PjVhET6ZBua7HrYxkDtomqLnKM9NA0PpVZ6SEg5oqaSurWCkQ +37RdW7OMg87dD8PDlFIgrjHvpw0SDp56O9hmO5kMZ6rd1K9UcLDf0+nWwoZk +iLxbQnet4qCJvP5u7pFk4J3lTkgaODizvifRWZIEW5e/lJ7r4eDkCg/BOo9E +WJJeGWRCI3H35MTBE38LoIn7+yqcR2L7fwrVj1YLIMa+4rvbfBI37HO34BYI +YGy27HyCDImBz7UykgQC+MOzKPs9ncT90nSWzwYB+JvdaS1WJdG98y3TvSwe +KhtFy5FF4oeGWg0y9xzspR2bcLMncXX5kUMlebGQP9jhI9hEotDmzMQacSx8 +lq7pqHAgMWlgurNZEAuX0mQrljqTeHVNSyzhFwstBpdPvnQhsSLSJ9yBHQub +NtYoeLqTmHqmdXLgdgwsS1BmHuKSyOqrXTVUdBZkNe5uDhGS+PMj1yNOI9Gg +2CmJS0sn8VWNwf7EF9GgIq6rKbhAYrCoyr6zKRqWMvssh0UkynYXdJ0rjQYL +U1WdXZkkXgpv8Nh+Nhr22IW+t75JouUqTkoyMxpKgm2Tv5aSmH9y1fcjB06D +V/uL5rPdJDLkj3bKTEdBdWxEkLiHRF/x00nVgSggVizRevCCRIExJ/nn51HQ +KfptX18vibUrb8mmZkfBZre/31kPkLj+rtocbWsUWL2oVxgbJXHnPPHVhMIT +QO9/YOv2lURF+wrO56BIKHh3TmKqR+ErtWhDZ+NwuJmbKOfBpPB0dGmrmXo4 +iL3Sdgr0KTS23N/PpIVDfJd4YohFYbi/6L15Txh41RWYX2dTqEi8zJpJDoOf +rrTmqv5CYQD1agf1JRRinPUuTdlR6GKbZ9fUexz25JWF1fhTWG+oPjbYGAyK +dt6pPUcoVBhjSfUqg0HSu+j2Jy6F60+ryR/MDwY1Vb9ONp9Cn5wKkXJKMEhD +tVekBVG4zC7DsndHMFhtPD1x4ASFXaOxVl4DQaD82vHogmQK46pUr/XIBEG1 +Zq+3/QMK/XNXlSn7BsLr4NVO0UUUxgs6xm3cAoHWdtHiYTGFK7XoC487BQIK +t31bVkahkv1+Kd08EP5Qlop0KikMO1W9/95MANTJFzd+qqNw8JXp89mkAJDO +xptnd1G4ws80PeM0H0bchjX7uimUD3l2PeEQH+jltl9/ekHhqTtP/NO38MHx ++Jw0uZdCuxN7514RfHj6McgrYoDCz9a5Ad6/H4Xnb/dlbH1HYeM6xma5WR6M +OT2MTHz/o+98NMuinwfKeUu8GsZ+/HOoS8pt5MGWw21maz9QaPTo4gZdMQ/+ +GnSUsqcoNH/cu9vThgfjtrmF3tM//MQEBT0jHqhky2Rcm6GQr7tEbXwhD7Ye +qD6g8YXC2emCaekrLhyrIRxcvlKoUWdd/peUC0K9CLOEbxTu2FJ4efQBF4pO +dmo8maNwUvZd0uJMLrT0Wn75/p3CAbInbkcMF/4HN9NITg== + "]]}, "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, 14}, {0., 3.526617683729599}}, + 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.9920757239130974`*^9, {3.9920757940482006`*^9, 3.992076109068632*^9}, + 3.992076301586649*^9, {3.9920763686886806`*^9, 3.9920764397098274`*^9}, + 3.9920765428714657`*^9, {3.9920766296157017`*^9, 3.9920766537406216`*^9}}, + CellLabel-> + "Out[220]=",ExpressionUUID->"59837e2f-b2ee-744c-b953-7793b424a8ee"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1111", ",", "l2222"}], "]"}], "\[IndentingNewLine]"}]], "Input", + CellLabel-> + "In[221]:=",ExpressionUUID->"4793b8fe-e4a9-3144-ad63-4921c0e1d8f6"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV03c4V/0bB3AjDZUKWZFC33MOkhEZ5b6RGUKDEBkZWclWPBQyUsgqKkJk +RRk9EkIUPUV2VnZCqYSG+p3fX5/rdZ3r3Nf7fO732WnrYXKahYmJaSczE9P/ +TwHFp/QhgpotPMfqGmfhbciv1xm0+QzOs3E2zEL0S6U0NWYR9NURm7Z9Ngs/ +zSvkLrGIYDHzJl2WmlnoC3pgv5pNBF+e7LLdVzkLqQ2ZTRvYRXAoMrgq8P4s +bD0cEc3PLYKyIi/77WJnYbPDYU45UgQ7pnnHik1mwT68pr75iAiyLB8bkWye +gZ9rzgkFXBDBlc9GfOV7Z+DyOW1hq2wRHD8tufZJ4kfwfP3jWfYbEWzjWczK +7piG27HzHGuXRVDV3Stl54ZpIFUbf78SFUV/JrEc3u0fIK/73/jnhqIokGCd +801oClzefmt75yuKTfpdXju3TUJMLXup8V1RfB7cUhI/Nw6fNjmoTLSIYvB3 +25X/no2Bts6Ya+FXUexWKM/778oo/PE8AF1CYmgUkFV/dc8ILP3pfyKgJYb2 +L3RMN9cNg2GQad8zTzH0V1KcbRsYgLSxhVvp6WLIoljd5832DsSLujckNorh ++aXd1q6OPcDrlCQ491kME/62PHfL7gStiNRuW75d+DUzIvSk5FvoSPKXUT64 +C/mVDv+UNnwDx2MD5TQ9dmFHIW65U9UC2z7UDbum7MKNe1DmY2cTqO4dl1ys +34VLjntFI9Y1QNbYIbH0mV24b+0nNG+rhb+BXfU+XAw09G+8rnC2Ch6z7mcp +VWXgtjUzcjtcy8HpwaiNCTCQ4/iN2HnzcuCziHr2jfajpuWJVt1y8H/YHaKg +xsCWeP6wLKIcFG08/z7RYKBJnTtH91gZVNbc+92kw8CD3r95NK3KoCJgy9KA +CQMbo8FQ2uIRlH2enFnryECv5I2BVt6lIL5py9tK2oI+nGSqfSnckVJ57ODE +QCNSJ3nwaClEu10La3Rm4HHLvlsx8qVgPbNPKMSVgZ81iAavpRJgn4o0XPJk +YHdEZqFHUAmcGhIvnbjAQPWvl9OHRR/Axv/cfesTGJha1ShWUVkAIt7yEu7X +GVic7RshebsAFLf9HuZPZGBhie5YRVgB2DpH6XomMVBV2NlujUkBVLBlC+5I +ZWDvuWWj5Ll8OKXaVx90i4EpfA6BtmQ+lD3Q2KSUx8B+Ls5Kp8I8sEzgy3vw +lIGnBBed387kwB+9yDeHaxg4U60+cqI3BzJYlxc/017la316vjEHJrx7NKXr +GGjc6++pdzsH3E2Tx0rqGZj7yye31DgHQgS5hR82MzCou4pJ80k25NzblFzW +zsCbLyYsNW5kwaeq1WH/TjBwwvC2dUNwJhyf+iHjOMlAn0P94ufcMqGGa26Y +e4qB8ovREtKWmRDr2qFy9gMDb80bZ/UpZYLk9oxvjBkG5helao98z4AzoUp2 +ifMM/P5MQavqbAZMaruqe/xiIO/Lhfqk0dsw2NnOtGsLgSr97jGn9qXBW073 +nc20iZKfwleF0qDJiF3dmZPA1rC+znbWNCh5pX6piItAyFazSWu7CWGNj9gU +eAjcSy4ay7vcBPGyJHbtbQQelI7f4pd9A3yvn+B23kXghqnTRs2MVNhkMkIU +KRHIbNtdYO6YBNm8Arz6ygRyvNCSYzmSBIqDJqtnaMf+zfJ8opoEtk6N4+R+ +An1Xng7Z8iRBWXBuZrYqgQNM7BvDmhLhRIHbtnQNAqOKttqvEk+ErFU/OWIM +CPyGbnezVhJAsUX2D2VIz+M23+E8kwCvrrnMvaDN7W1fo9qXAIsCg62rjQg8 +n19MCZQngI5MXeRFEwJFj153iHNLgLmTESyBpnS+wo39HiPxsK+Sc9HJhsBD +m925czvjIGH+tctWWwIv3l2oW6yPg1kqZuQZ7YgHE3mmpXGQkc76n4A9fR91 +gfP6V+Ng7cWFrFcOBB7vTW1i1Y2DXv1uY2lXAj+wFvdLXLoGgaM3ipZ8CezZ +sPS3PSgWOrcdF832I7CqaaIj0ioWpI5x3jDyJ1C9MCXVCmJhtDk67H4AgYz3 +GOnAHAuHis5bWFyg3+8/v3ki4goI+p9cVxtKYFksV3B4Sgw83bjzdMQVAtP8 +7mjceh0F2WYRBkQsgdSRsamesii4kjUj/4L2qLpkvnhaFJgrVaxmv0Yg+zkN +RT6nKFi0P5QXG0/nv5Wru4U1CvZU+8wkJtPzvmdMOB+IhMwzLZ5ZGXRfDF51 +STZEQGT5HvODmQQmigdIaxZGwFmmJPUJ2oq3Bw94JUWAarI1F5FFoFBFM2Oz +UwS8e7ZQlp9DoLlc4+5DHBHAxS+8XJpP4DUPSeEKq3AIb/YKrisjcN/huLRR +jjCQjbCccy8ncGsbb3vf8iUYOqhpKVRBz5vcOD01egkU63mUAysJXJFfdtap +vAQfq//9LldF4Kq6I6Z8NpfA8OFf19xaAhvu+h4ZeXwR+G7FWFxtIdB6hrct +wj8UGi28W/a3EthrNV4rczoUPAVOKs3QzuVU+TtvHAotKVK8Ov8RyHnUeXuh +RCgEJbS/ZW4j8CWzRy3n+xAYvcyr59NFoOPhr41x+iFQcC5L0fI9gWtS8vJu +OAbDuLq8wF/aKtG9SkvawbCdq/lX5gjd7wso7k0GQ8KjjzVTowRKD/wqb50O +Av8FGU2vCQKbX02Yf3ILAk3fOuPojwQGrOWWnT5/AYYDBs88XiBQk4nzxEJR +IPDpeehbfKf77H1lZE1CIJgIMEv9od2g6HVyn28gNFWJfdFYIrCzrbR5WjUQ +Cn+5+L35QeCjqtrrN9oDICDo56XJP3S/r09Uc/z2B65Q3lvc60hcky+1I9Pe +D2Z7NQ3KaEfOxd8N0veDJmnvlSPsJEptP8p+bq8f+L9vO3l9PYnrm/Jl7q7y +gyGI3s7JQeLzpxEBQvd8If/P7zubuEiU7Spbcp3zAfULo3fZhUjU1ihN7r/i +DYKdm4/k05bisDgc4+cN3yWAVW87iVtvpugb2XpDXn+aXZQwiYt6Es/5Fb2B +Q+WY2FoREqdbN4XnjXvBux/NOWwEiak3vclsNS/w9CvKY5KhHaiXfJX9HGzW +sB4uot0qfq9KfNETijm28FjIkrjkTAoMjnjCbI73pXI5Ek+qae4J+9cTnDpV +rM4okCgSybSvz9kTTsm0cHWqkJhIyorHvD4Lh2cmg3O1SNwMS5Gzhh7wqSK1 +/Kg2iaVZHuJWEh5w5aLeLLMOiS+y5t8trvGAFv7iE5a6JPpeSmhKf+YOWjo+ +e7fok9iw2dG6QsEdVHNYPwYakyi2kv9qhXCD3dY7jhlakphnYTX1epcLmO0/ +/+cz7R/sV2Qm17pAGH93bvxJEvsZDse2zZ6BgY6Yn51WJH41nSobengGrugs +3bGwIVFo1iy7Se0MzMq8/ujkQGLtjgQxltPOULjqQsilsySyRXVO29U5Qu9I +N7XLk0TO3fti/t5zhFW1Mh1NtNfe94otj3UEy4CpXexe9HPGyKGzFo6w4ZNJ +a5wPiWc60vqElh3AtYfiuR1I4m7r56/VFRxAIr+n4HEYiV/0XZPZntuD4K/y +fsdwet5VA+H3hfbAoZ+4njeCROUBp5WuRHuYnzNy8blMomv7G3Wu0/ZQIdMi +LhtN4isnnydtq+1B/d/q+wXX6H2/ubdR9bAdnHiRmXv7JonZSTruQt9sQI8/ +pMcgjcSI3jenJIZsYP8ZqzUrtLvf1UoYv7SB7Ru2OVrcovssGD06dscGxg8n +MvgySAwXd/srYmgDZ3sicuJzSLy8tDP/S/EpuDzpkhVWQqLggPpxbRZr4Kud +zJQuJTFN30wic8gK8lNsMgZo1xyBTaJPrOCVjumtvY/oftxgPX7b2wo4C9RT +xstJfJqbKu4+fRLSPfhjDj4hMc61r9fgnSWULDedW9VEYrpfr8lcjzmotat5 +ltC+vahDLj82h7f3qz0sm0m8v8L1dddNc/hu/tC17AXdryNSLdOW5qD89JaD +fSuJPQrgzDF+AhpDvc0b2+h+33v0In/ZDPrYRdTD+km0tb2+Wk7ZFJYXNB+J +DZDo/zTwuMhOU+AZdhZ7TrutRUpScq0pmDwqXb16iMQdkyq/r3Yfh1cWaq2X +35N4K85V5ar3cagpPHU0ZoJEa2eBeYvyY5BteMch4TOJPscfq/+jexTqFRt6 +ZOdJFHh67fIVuaPwXmRKp4M237p1QqVCR0FoSUqC+yuJN8Ue9sHXI5B8p+Zz +0gKJfQu1K2fTj0DU/KD/jR8kchtFWG78bgLuCYIxGawUHsB3F69WGIPJfMNF +w1UUVjEXWDzJNAYFQ5fA37Q5zS21mGKNYWVdlbPZagqDw4Un2u2M4Uqoqc7m +dRSKJFWbxXMaQ/7ZBLYQDgobr2r9cvY2ginDtSHW/BT2WQ6tvx1vCC2FD/w2 +ClAo6dsQkeJmCMXsph5PaBt1Oryq0jUE36YcK15BCnW/Dv8MYjGE1aoaB95s +p3CqK7Xxi48BiO0O/qkqRuFHUqHUwV4fTq1f8N6+h0Ir6yNqBlZ60B54cLiO +dsd77XBFNT1Q/5ioaydNYUtuvb2GmB6IvpTfnidD4boSnrOVH3VhMsKvWWYv +hdtu6XFvDdAFN5Zf/JpKFErcTh+NStOBwB/MtS4aFN57azYUuKgFM04mFMdB +Ci+UbGXfNqgFlr13r5fQrrs5PNTdoAWqlRpO3zUp1Dh2Z2NmvBYw+4Rv+UeH +QsvtifoXpLQgcn6tfYIBhdy/5/jk3TQhaWrTun9NKUwKUpGdXdGAe0O/1czM +KPxDXH6g9EEDKrqmA5do33cwcrv9VgN6Gxpm5c0ptOWo0CnK1QCBDL+2h5YU +NlNlvYMmGpBhNpxSaEPheBRPkE+ROuS/LGZkuFA45sb3dOCcGjypS7MGVwqV +anWax63V4FVlZOoQbed/AmSZDdRgLseWXcidwvLgr12+hBpIX+T5dOMshWwh +Bb9NBhHKlYPLr/tQ2JpT7FKtj1BXYHDw8j8UMrFe84v2UoVknhrWvSF0/tMM +6+uHVcE1VKrhPW02rzV6TRKqwGe6SV35IoVzVj1O98cPgCdLO8yFUXhYsSnO +2uwAiJw4qnIkmt7f10wnW+39ELbaQlY4ie7XpHXzJXVlMPds/dJKu/albZyX +qDJID6iU+ifT++DtfXx5lTIMlApKv02h0DomPkSwWQnkTw7tDr9JYbtW66lv +Bkow+ciGmrlDIb/KszxZW0XQsXHaUZlPofRi55PRLAUoGAw1MSugcORqQ8+7 +aAXgME8L+0F7j1fcyU+eCtBl8vqDShGF3U4R0o6oALYH95bWPaBwcd3PmvQh +eThPMKm3lFGYrfiPyh9heSieS7EbrKEwvUCmsbtcDracKU0KrqVQ76YLJ1uG +HHhPtjQL11FYJFFrfChaDpSHVyRsn1HI+mHHfmFrOWhus1uYbKBwyLx1fmSd +HLx/tCd8/gWFhe16VdV2ssAV2HyPtYO+L9BRFiRlQM9xZ2ol7c06teVjnDJw +8ej5KJdOOn98tdLzFWmYl9rj2tFFobae1mBXhzS8HkuWyeql8IbtPVI8VBoi +DRyq1YcozEqP/rbm2R74vYPtbeg0hbI6fLrmtrtBjsO6Qf4jhSEjTbmLB3bD +mV+Py6Zpi3N31tby74a+LtcU41n6f2j9ot7TLgkV0Z2WOz9TuNWw+NHWg5Lg +uZA1VbdAIW/uNda70hKQN7LS6/2dQhOewPVfOCTg/WvTFnKRzn96Z7jznDgY +3l9fFLdEoUOh/KrufHGQtPI6d+onhaVu/1SnEOJgd+g/O+5fFHJcLu2XXCMO +NxWJYy9ol7C+GZ6epGAdV/8+6RUKL3I2dr67RwEyyVPjtLWLydMclynwn7sq +kPqH/n7FBH5nRwoevPuwXv8vhcICpvUftSmYbFZf+Uvbq2219HWSgv8Bil4M +3w== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV03c4V/0bB3AjDZUKWZFC33MOkhEZ5b6RGUKDEBkZWclWPBQyUsgqKkJk +RRk9EkIUPUV2VnZCqYSG+p3fX5/rdZ3r3Nf7fO732WnrYXKahYmJaSczE9P/ +TwHFp/QhgpotPMfqGmfhbciv1xm0+QzOs3E2zEL0S6U0NWYR9NURm7Z9Ngs/ +zSvkLrGIYDHzJl2WmlnoC3pgv5pNBF+e7LLdVzkLqQ2ZTRvYRXAoMrgq8P4s +bD0cEc3PLYKyIi/77WJnYbPDYU45UgQ7pnnHik1mwT68pr75iAiyLB8bkWye +gZ9rzgkFXBDBlc9GfOV7Z+DyOW1hq2wRHD8tufZJ4kfwfP3jWfYbEWzjWczK +7piG27HzHGuXRVDV3Stl54ZpIFUbf78SFUV/JrEc3u0fIK/73/jnhqIokGCd +801oClzefmt75yuKTfpdXju3TUJMLXup8V1RfB7cUhI/Nw6fNjmoTLSIYvB3 +25X/no2Bts6Ya+FXUexWKM/778oo/PE8AF1CYmgUkFV/dc8ILP3pfyKgJYb2 +L3RMN9cNg2GQad8zTzH0V1KcbRsYgLSxhVvp6WLIoljd5832DsSLujckNorh ++aXd1q6OPcDrlCQ491kME/62PHfL7gStiNRuW75d+DUzIvSk5FvoSPKXUT64 +C/mVDv+UNnwDx2MD5TQ9dmFHIW65U9UC2z7UDbum7MKNe1DmY2cTqO4dl1ys +34VLjntFI9Y1QNbYIbH0mV24b+0nNG+rhb+BXfU+XAw09G+8rnC2Ch6z7mcp +VWXgtjUzcjtcy8HpwaiNCTCQ4/iN2HnzcuCziHr2jfajpuWJVt1y8H/YHaKg +xsCWeP6wLKIcFG08/z7RYKBJnTtH91gZVNbc+92kw8CD3r95NK3KoCJgy9KA +CQMbo8FQ2uIRlH2enFnryECv5I2BVt6lIL5py9tK2oI+nGSqfSnckVJ57ODE +QCNSJ3nwaClEu10La3Rm4HHLvlsx8qVgPbNPKMSVgZ81iAavpRJgn4o0XPJk +YHdEZqFHUAmcGhIvnbjAQPWvl9OHRR/Axv/cfesTGJha1ShWUVkAIt7yEu7X +GVic7RshebsAFLf9HuZPZGBhie5YRVgB2DpH6XomMVBV2NlujUkBVLBlC+5I +ZWDvuWWj5Ll8OKXaVx90i4EpfA6BtmQ+lD3Q2KSUx8B+Ls5Kp8I8sEzgy3vw +lIGnBBed387kwB+9yDeHaxg4U60+cqI3BzJYlxc/017la316vjEHJrx7NKXr +GGjc6++pdzsH3E2Tx0rqGZj7yye31DgHQgS5hR82MzCou4pJ80k25NzblFzW +zsCbLyYsNW5kwaeq1WH/TjBwwvC2dUNwJhyf+iHjOMlAn0P94ufcMqGGa26Y +e4qB8ovREtKWmRDr2qFy9gMDb80bZ/UpZYLk9oxvjBkG5helao98z4AzoUp2 +ifMM/P5MQavqbAZMaruqe/xiIO/Lhfqk0dsw2NnOtGsLgSr97jGn9qXBW073 +nc20iZKfwleF0qDJiF3dmZPA1rC+znbWNCh5pX6piItAyFazSWu7CWGNj9gU +eAjcSy4ay7vcBPGyJHbtbQQelI7f4pd9A3yvn+B23kXghqnTRs2MVNhkMkIU +KRHIbNtdYO6YBNm8Arz6ygRyvNCSYzmSBIqDJqtnaMf+zfJ8opoEtk6N4+R+ +An1Xng7Z8iRBWXBuZrYqgQNM7BvDmhLhRIHbtnQNAqOKttqvEk+ErFU/OWIM +CPyGbnezVhJAsUX2D2VIz+M23+E8kwCvrrnMvaDN7W1fo9qXAIsCg62rjQg8 +n19MCZQngI5MXeRFEwJFj153iHNLgLmTESyBpnS+wo39HiPxsK+Sc9HJhsBD +m925czvjIGH+tctWWwIv3l2oW6yPg1kqZuQZ7YgHE3mmpXGQkc76n4A9fR91 +gfP6V+Ng7cWFrFcOBB7vTW1i1Y2DXv1uY2lXAj+wFvdLXLoGgaM3ipZ8CezZ +sPS3PSgWOrcdF832I7CqaaIj0ioWpI5x3jDyJ1C9MCXVCmJhtDk67H4AgYz3 +GOnAHAuHis5bWFyg3+8/v3ki4goI+p9cVxtKYFksV3B4Sgw83bjzdMQVAtP8 +7mjceh0F2WYRBkQsgdSRsamesii4kjUj/4L2qLpkvnhaFJgrVaxmv0Yg+zkN +RT6nKFi0P5QXG0/nv5Wru4U1CvZU+8wkJtPzvmdMOB+IhMwzLZ5ZGXRfDF51 +STZEQGT5HvODmQQmigdIaxZGwFmmJPUJ2oq3Bw94JUWAarI1F5FFoFBFM2Oz +UwS8e7ZQlp9DoLlc4+5DHBHAxS+8XJpP4DUPSeEKq3AIb/YKrisjcN/huLRR +jjCQjbCccy8ncGsbb3vf8iUYOqhpKVRBz5vcOD01egkU63mUAysJXJFfdtap +vAQfq//9LldF4Kq6I6Z8NpfA8OFf19xaAhvu+h4ZeXwR+G7FWFxtIdB6hrct +wj8UGi28W/a3EthrNV4rczoUPAVOKs3QzuVU+TtvHAotKVK8Ov8RyHnUeXuh +RCgEJbS/ZW4j8CWzRy3n+xAYvcyr59NFoOPhr41x+iFQcC5L0fI9gWtS8vJu +OAbDuLq8wF/aKtG9SkvawbCdq/lX5gjd7wso7k0GQ8KjjzVTowRKD/wqb50O +Av8FGU2vCQKbX02Yf3ILAk3fOuPojwQGrOWWnT5/AYYDBs88XiBQk4nzxEJR +IPDpeehbfKf77H1lZE1CIJgIMEv9od2g6HVyn28gNFWJfdFYIrCzrbR5WjUQ +Cn+5+L35QeCjqtrrN9oDICDo56XJP3S/r09Uc/z2B65Q3lvc60hcky+1I9Pe +D2Z7NQ3KaEfOxd8N0veDJmnvlSPsJEptP8p+bq8f+L9vO3l9PYnrm/Jl7q7y +gyGI3s7JQeLzpxEBQvd8If/P7zubuEiU7Spbcp3zAfULo3fZhUjU1ihN7r/i +DYKdm4/k05bisDgc4+cN3yWAVW87iVtvpugb2XpDXn+aXZQwiYt6Es/5Fb2B +Q+WY2FoREqdbN4XnjXvBux/NOWwEiak3vclsNS/w9CvKY5KhHaiXfJX9HGzW +sB4uot0qfq9KfNETijm28FjIkrjkTAoMjnjCbI73pXI5Ek+qae4J+9cTnDpV +rM4okCgSybSvz9kTTsm0cHWqkJhIyorHvD4Lh2cmg3O1SNwMS5Gzhh7wqSK1 +/Kg2iaVZHuJWEh5w5aLeLLMOiS+y5t8trvGAFv7iE5a6JPpeSmhKf+YOWjo+ +e7fok9iw2dG6QsEdVHNYPwYakyi2kv9qhXCD3dY7jhlakphnYTX1epcLmO0/ +/+cz7R/sV2Qm17pAGH93bvxJEvsZDse2zZ6BgY6Yn51WJH41nSobengGrugs +3bGwIVFo1iy7Se0MzMq8/ujkQGLtjgQxltPOULjqQsilsySyRXVO29U5Qu9I +N7XLk0TO3fti/t5zhFW1Mh1NtNfe94otj3UEy4CpXexe9HPGyKGzFo6w4ZNJ +a5wPiWc60vqElh3AtYfiuR1I4m7r56/VFRxAIr+n4HEYiV/0XZPZntuD4K/y +fsdwet5VA+H3hfbAoZ+4njeCROUBp5WuRHuYnzNy8blMomv7G3Wu0/ZQIdMi +LhtN4isnnydtq+1B/d/q+wXX6H2/ubdR9bAdnHiRmXv7JonZSTruQt9sQI8/ +pMcgjcSI3jenJIZsYP8ZqzUrtLvf1UoYv7SB7Ru2OVrcovssGD06dscGxg8n +MvgySAwXd/srYmgDZ3sicuJzSLy8tDP/S/EpuDzpkhVWQqLggPpxbRZr4Kud +zJQuJTFN30wic8gK8lNsMgZo1xyBTaJPrOCVjumtvY/oftxgPX7b2wo4C9RT +xstJfJqbKu4+fRLSPfhjDj4hMc61r9fgnSWULDedW9VEYrpfr8lcjzmotat5 +ltC+vahDLj82h7f3qz0sm0m8v8L1dddNc/hu/tC17AXdryNSLdOW5qD89JaD +fSuJPQrgzDF+AhpDvc0b2+h+33v0In/ZDPrYRdTD+km0tb2+Wk7ZFJYXNB+J +DZDo/zTwuMhOU+AZdhZ7TrutRUpScq0pmDwqXb16iMQdkyq/r3Yfh1cWaq2X +35N4K85V5ar3cagpPHU0ZoJEa2eBeYvyY5BteMch4TOJPscfq/+jexTqFRt6 +ZOdJFHh67fIVuaPwXmRKp4M237p1QqVCR0FoSUqC+yuJN8Ue9sHXI5B8p+Zz +0gKJfQu1K2fTj0DU/KD/jR8kchtFWG78bgLuCYIxGawUHsB3F69WGIPJfMNF +w1UUVjEXWDzJNAYFQ5fA37Q5zS21mGKNYWVdlbPZagqDw4Un2u2M4Uqoqc7m +dRSKJFWbxXMaQ/7ZBLYQDgobr2r9cvY2ginDtSHW/BT2WQ6tvx1vCC2FD/w2 +ClAo6dsQkeJmCMXsph5PaBt1Oryq0jUE36YcK15BCnW/Dv8MYjGE1aoaB95s +p3CqK7Xxi48BiO0O/qkqRuFHUqHUwV4fTq1f8N6+h0Ir6yNqBlZ60B54cLiO +dsd77XBFNT1Q/5ioaydNYUtuvb2GmB6IvpTfnidD4boSnrOVH3VhMsKvWWYv +hdtu6XFvDdAFN5Zf/JpKFErcTh+NStOBwB/MtS4aFN57azYUuKgFM04mFMdB +Ci+UbGXfNqgFlr13r5fQrrs5PNTdoAWqlRpO3zUp1Dh2Z2NmvBYw+4Rv+UeH +QsvtifoXpLQgcn6tfYIBhdy/5/jk3TQhaWrTun9NKUwKUpGdXdGAe0O/1czM +KPxDXH6g9EEDKrqmA5do33cwcrv9VgN6Gxpm5c0ptOWo0CnK1QCBDL+2h5YU +NlNlvYMmGpBhNpxSaEPheBRPkE+ROuS/LGZkuFA45sb3dOCcGjypS7MGVwqV +anWax63V4FVlZOoQbed/AmSZDdRgLseWXcidwvLgr12+hBpIX+T5dOMshWwh +Bb9NBhHKlYPLr/tQ2JpT7FKtj1BXYHDw8j8UMrFe84v2UoVknhrWvSF0/tMM +6+uHVcE1VKrhPW02rzV6TRKqwGe6SV35IoVzVj1O98cPgCdLO8yFUXhYsSnO +2uwAiJw4qnIkmt7f10wnW+39ELbaQlY4ie7XpHXzJXVlMPds/dJKu/albZyX +qDJID6iU+ifT++DtfXx5lTIMlApKv02h0DomPkSwWQnkTw7tDr9JYbtW66lv +Bkow+ciGmrlDIb/KszxZW0XQsXHaUZlPofRi55PRLAUoGAw1MSugcORqQ8+7 +aAXgME8L+0F7j1fcyU+eCtBl8vqDShGF3U4R0o6oALYH95bWPaBwcd3PmvQh +eThPMKm3lFGYrfiPyh9heSieS7EbrKEwvUCmsbtcDracKU0KrqVQ76YLJ1uG +HHhPtjQL11FYJFFrfChaDpSHVyRsn1HI+mHHfmFrOWhus1uYbKBwyLx1fmSd +HLx/tCd8/gWFhe16VdV2ssAV2HyPtYO+L9BRFiRlQM9xZ2ol7c06teVjnDJw +8ej5KJdOOn98tdLzFWmYl9rj2tFFobae1mBXhzS8HkuWyeql8IbtPVI8VBoi +DRyq1YcozEqP/rbm2R74vYPtbeg0hbI6fLrmtrtBjsO6Qf4jhSEjTbmLB3bD +mV+Py6Zpi3N31tby74a+LtcU41n6f2j9ot7TLgkV0Z2WOz9TuNWw+NHWg5Lg +uZA1VbdAIW/uNda70hKQN7LS6/2dQhOewPVfOCTg/WvTFnKRzn96Z7jznDgY +3l9fFLdEoUOh/KrufHGQtPI6d+onhaVu/1SnEOJgd+g/O+5fFHJcLu2XXCMO +NxWJYy9ol7C+GZ6epGAdV/8+6RUKL3I2dr67RwEyyVPjtLWLydMclynwn7sq +kPqH/n7FBH5nRwoevPuwXv8vhcICpvUftSmYbFZf+Uvbq2219HWSgv8Bil4M +3w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{9, 13}, {0., 0.8990174924750326}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{9, 13}, {0., 0.8990174924750326}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV03c4V/0bB3AjDZUKWZFC33MOkhEZ5b6RGUKDEBkZWclWPBQyUsgqKkJk +RRk9EkIUPUV2VnZCqYSG+p3fX5/rdZ3r3Nf7fO732WnrYXKahYmJaSczE9P/ +TwHFp/QhgpotPMfqGmfhbciv1xm0+QzOs3E2zEL0S6U0NWYR9NURm7Z9Ngs/ +zSvkLrGIYDHzJl2WmlnoC3pgv5pNBF+e7LLdVzkLqQ2ZTRvYRXAoMrgq8P4s +bD0cEc3PLYKyIi/77WJnYbPDYU45UgQ7pnnHik1mwT68pr75iAiyLB8bkWye +gZ9rzgkFXBDBlc9GfOV7Z+DyOW1hq2wRHD8tufZJ4kfwfP3jWfYbEWzjWczK +7piG27HzHGuXRVDV3Stl54ZpIFUbf78SFUV/JrEc3u0fIK/73/jnhqIokGCd +801oClzefmt75yuKTfpdXju3TUJMLXup8V1RfB7cUhI/Nw6fNjmoTLSIYvB3 +25X/no2Bts6Ya+FXUexWKM/778oo/PE8AF1CYmgUkFV/dc8ILP3pfyKgJYb2 +L3RMN9cNg2GQad8zTzH0V1KcbRsYgLSxhVvp6WLIoljd5832DsSLujckNorh ++aXd1q6OPcDrlCQ491kME/62PHfL7gStiNRuW75d+DUzIvSk5FvoSPKXUT64 +C/mVDv+UNnwDx2MD5TQ9dmFHIW65U9UC2z7UDbum7MKNe1DmY2cTqO4dl1ys +34VLjntFI9Y1QNbYIbH0mV24b+0nNG+rhb+BXfU+XAw09G+8rnC2Ch6z7mcp +VWXgtjUzcjtcy8HpwaiNCTCQ4/iN2HnzcuCziHr2jfajpuWJVt1y8H/YHaKg +xsCWeP6wLKIcFG08/z7RYKBJnTtH91gZVNbc+92kw8CD3r95NK3KoCJgy9KA +CQMbo8FQ2uIRlH2enFnryECv5I2BVt6lIL5py9tK2oI+nGSqfSnckVJ57ODE +QCNSJ3nwaClEu10La3Rm4HHLvlsx8qVgPbNPKMSVgZ81iAavpRJgn4o0XPJk +YHdEZqFHUAmcGhIvnbjAQPWvl9OHRR/Axv/cfesTGJha1ShWUVkAIt7yEu7X +GVic7RshebsAFLf9HuZPZGBhie5YRVgB2DpH6XomMVBV2NlujUkBVLBlC+5I +ZWDvuWWj5Ll8OKXaVx90i4EpfA6BtmQ+lD3Q2KSUx8B+Ls5Kp8I8sEzgy3vw +lIGnBBed387kwB+9yDeHaxg4U60+cqI3BzJYlxc/017la316vjEHJrx7NKXr +GGjc6++pdzsH3E2Tx0rqGZj7yye31DgHQgS5hR82MzCou4pJ80k25NzblFzW +zsCbLyYsNW5kwaeq1WH/TjBwwvC2dUNwJhyf+iHjOMlAn0P94ufcMqGGa26Y +e4qB8ovREtKWmRDr2qFy9gMDb80bZ/UpZYLk9oxvjBkG5helao98z4AzoUp2 +ifMM/P5MQavqbAZMaruqe/xiIO/Lhfqk0dsw2NnOtGsLgSr97jGn9qXBW073 +nc20iZKfwleF0qDJiF3dmZPA1rC+znbWNCh5pX6piItAyFazSWu7CWGNj9gU +eAjcSy4ay7vcBPGyJHbtbQQelI7f4pd9A3yvn+B23kXghqnTRs2MVNhkMkIU +KRHIbNtdYO6YBNm8Arz6ygRyvNCSYzmSBIqDJqtnaMf+zfJ8opoEtk6N4+R+ +An1Xng7Z8iRBWXBuZrYqgQNM7BvDmhLhRIHbtnQNAqOKttqvEk+ErFU/OWIM +CPyGbnezVhJAsUX2D2VIz+M23+E8kwCvrrnMvaDN7W1fo9qXAIsCg62rjQg8 +n19MCZQngI5MXeRFEwJFj153iHNLgLmTESyBpnS+wo39HiPxsK+Sc9HJhsBD +m925czvjIGH+tctWWwIv3l2oW6yPg1kqZuQZ7YgHE3mmpXGQkc76n4A9fR91 +gfP6V+Ng7cWFrFcOBB7vTW1i1Y2DXv1uY2lXAj+wFvdLXLoGgaM3ipZ8CezZ +sPS3PSgWOrcdF832I7CqaaIj0ioWpI5x3jDyJ1C9MCXVCmJhtDk67H4AgYz3 +GOnAHAuHis5bWFyg3+8/v3ki4goI+p9cVxtKYFksV3B4Sgw83bjzdMQVAtP8 +7mjceh0F2WYRBkQsgdSRsamesii4kjUj/4L2qLpkvnhaFJgrVaxmv0Yg+zkN +RT6nKFi0P5QXG0/nv5Wru4U1CvZU+8wkJtPzvmdMOB+IhMwzLZ5ZGXRfDF51 +STZEQGT5HvODmQQmigdIaxZGwFmmJPUJ2oq3Bw94JUWAarI1F5FFoFBFM2Oz +UwS8e7ZQlp9DoLlc4+5DHBHAxS+8XJpP4DUPSeEKq3AIb/YKrisjcN/huLRR +jjCQjbCccy8ncGsbb3vf8iUYOqhpKVRBz5vcOD01egkU63mUAysJXJFfdtap +vAQfq//9LldF4Kq6I6Z8NpfA8OFf19xaAhvu+h4ZeXwR+G7FWFxtIdB6hrct +wj8UGi28W/a3EthrNV4rczoUPAVOKs3QzuVU+TtvHAotKVK8Ov8RyHnUeXuh +RCgEJbS/ZW4j8CWzRy3n+xAYvcyr59NFoOPhr41x+iFQcC5L0fI9gWtS8vJu +OAbDuLq8wF/aKtG9SkvawbCdq/lX5gjd7wso7k0GQ8KjjzVTowRKD/wqb50O +Av8FGU2vCQKbX02Yf3ILAk3fOuPojwQGrOWWnT5/AYYDBs88XiBQk4nzxEJR +IPDpeehbfKf77H1lZE1CIJgIMEv9od2g6HVyn28gNFWJfdFYIrCzrbR5WjUQ +Cn+5+L35QeCjqtrrN9oDICDo56XJP3S/r09Uc/z2B65Q3lvc60hcky+1I9Pe +D2Z7NQ3KaEfOxd8N0veDJmnvlSPsJEptP8p+bq8f+L9vO3l9PYnrm/Jl7q7y +gyGI3s7JQeLzpxEBQvd8If/P7zubuEiU7Spbcp3zAfULo3fZhUjU1ihN7r/i +DYKdm4/k05bisDgc4+cN3yWAVW87iVtvpugb2XpDXn+aXZQwiYt6Es/5Fb2B +Q+WY2FoREqdbN4XnjXvBux/NOWwEiak3vclsNS/w9CvKY5KhHaiXfJX9HGzW +sB4uot0qfq9KfNETijm28FjIkrjkTAoMjnjCbI73pXI5Ek+qae4J+9cTnDpV +rM4okCgSybSvz9kTTsm0cHWqkJhIyorHvD4Lh2cmg3O1SNwMS5Gzhh7wqSK1 +/Kg2iaVZHuJWEh5w5aLeLLMOiS+y5t8trvGAFv7iE5a6JPpeSmhKf+YOWjo+ +e7fok9iw2dG6QsEdVHNYPwYakyi2kv9qhXCD3dY7jhlakphnYTX1epcLmO0/ +/+cz7R/sV2Qm17pAGH93bvxJEvsZDse2zZ6BgY6Yn51WJH41nSobengGrugs +3bGwIVFo1iy7Se0MzMq8/ujkQGLtjgQxltPOULjqQsilsySyRXVO29U5Qu9I +N7XLk0TO3fti/t5zhFW1Mh1NtNfe94otj3UEy4CpXexe9HPGyKGzFo6w4ZNJ +a5wPiWc60vqElh3AtYfiuR1I4m7r56/VFRxAIr+n4HEYiV/0XZPZntuD4K/y +fsdwet5VA+H3hfbAoZ+4njeCROUBp5WuRHuYnzNy8blMomv7G3Wu0/ZQIdMi +LhtN4isnnydtq+1B/d/q+wXX6H2/ubdR9bAdnHiRmXv7JonZSTruQt9sQI8/ +pMcgjcSI3jenJIZsYP8ZqzUrtLvf1UoYv7SB7Ru2OVrcovssGD06dscGxg8n +MvgySAwXd/srYmgDZ3sicuJzSLy8tDP/S/EpuDzpkhVWQqLggPpxbRZr4Kud +zJQuJTFN30wic8gK8lNsMgZo1xyBTaJPrOCVjumtvY/oftxgPX7b2wo4C9RT +xstJfJqbKu4+fRLSPfhjDj4hMc61r9fgnSWULDedW9VEYrpfr8lcjzmotat5 +ltC+vahDLj82h7f3qz0sm0m8v8L1dddNc/hu/tC17AXdryNSLdOW5qD89JaD +fSuJPQrgzDF+AhpDvc0b2+h+33v0In/ZDPrYRdTD+km0tb2+Wk7ZFJYXNB+J +DZDo/zTwuMhOU+AZdhZ7TrutRUpScq0pmDwqXb16iMQdkyq/r3Yfh1cWaq2X +35N4K85V5ar3cagpPHU0ZoJEa2eBeYvyY5BteMch4TOJPscfq/+jexTqFRt6 +ZOdJFHh67fIVuaPwXmRKp4M237p1QqVCR0FoSUqC+yuJN8Ue9sHXI5B8p+Zz +0gKJfQu1K2fTj0DU/KD/jR8kchtFWG78bgLuCYIxGawUHsB3F69WGIPJfMNF +w1UUVjEXWDzJNAYFQ5fA37Q5zS21mGKNYWVdlbPZagqDw4Un2u2M4Uqoqc7m +dRSKJFWbxXMaQ/7ZBLYQDgobr2r9cvY2ginDtSHW/BT2WQ6tvx1vCC2FD/w2 +ClAo6dsQkeJmCMXsph5PaBt1Oryq0jUE36YcK15BCnW/Dv8MYjGE1aoaB95s +p3CqK7Xxi48BiO0O/qkqRuFHUqHUwV4fTq1f8N6+h0Ir6yNqBlZ60B54cLiO +dsd77XBFNT1Q/5ioaydNYUtuvb2GmB6IvpTfnidD4boSnrOVH3VhMsKvWWYv +hdtu6XFvDdAFN5Zf/JpKFErcTh+NStOBwB/MtS4aFN57azYUuKgFM04mFMdB +Ci+UbGXfNqgFlr13r5fQrrs5PNTdoAWqlRpO3zUp1Dh2Z2NmvBYw+4Rv+UeH +QsvtifoXpLQgcn6tfYIBhdy/5/jk3TQhaWrTun9NKUwKUpGdXdGAe0O/1czM +KPxDXH6g9EEDKrqmA5do33cwcrv9VgN6Gxpm5c0ptOWo0CnK1QCBDL+2h5YU +NlNlvYMmGpBhNpxSaEPheBRPkE+ROuS/LGZkuFA45sb3dOCcGjypS7MGVwqV +anWax63V4FVlZOoQbed/AmSZDdRgLseWXcidwvLgr12+hBpIX+T5dOMshWwh +Bb9NBhHKlYPLr/tQ2JpT7FKtj1BXYHDw8j8UMrFe84v2UoVknhrWvSF0/tMM +6+uHVcE1VKrhPW02rzV6TRKqwGe6SV35IoVzVj1O98cPgCdLO8yFUXhYsSnO +2uwAiJw4qnIkmt7f10wnW+39ELbaQlY4ie7XpHXzJXVlMPds/dJKu/albZyX +qDJID6iU+ifT++DtfXx5lTIMlApKv02h0DomPkSwWQnkTw7tDr9JYbtW66lv +Bkow+ciGmrlDIb/KszxZW0XQsXHaUZlPofRi55PRLAUoGAw1MSugcORqQ8+7 +aAXgME8L+0F7j1fcyU+eCtBl8vqDShGF3U4R0o6oALYH95bWPaBwcd3PmvQh +eThPMKm3lFGYrfiPyh9heSieS7EbrKEwvUCmsbtcDracKU0KrqVQ76YLJ1uG +HHhPtjQL11FYJFFrfChaDpSHVyRsn1HI+mHHfmFrOWhus1uYbKBwyLx1fmSd +HLx/tCd8/gWFhe16VdV2ssAV2HyPtYO+L9BRFiRlQM9xZ2ol7c06teVjnDJw +8ej5KJdOOn98tdLzFWmYl9rj2tFFobae1mBXhzS8HkuWyeql8IbtPVI8VBoi +DRyq1YcozEqP/rbm2R74vYPtbeg0hbI6fLrmtrtBjsO6Qf4jhSEjTbmLB3bD +mV+Py6Zpi3N31tby74a+LtcU41n6f2j9ot7TLgkV0Z2WOz9TuNWw+NHWg5Lg +uZA1VbdAIW/uNda70hKQN7LS6/2dQhOewPVfOCTg/WvTFnKRzn96Z7jznDgY +3l9fFLdEoUOh/KrufHGQtPI6d+onhaVu/1SnEOJgd+g/O+5fFHJcLu2XXCMO +NxWJYy9ol7C+GZ6epGAdV/8+6RUKL3I2dr67RwEyyVPjtLWLydMclynwn7sq +kPqH/n7FBH5nRwoevPuwXv8vhcICpvUftSmYbFZf+Uvbq2219HWSgv8Bil4M +3w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{9, 13}, {0., 0.8990174924750326}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {9.00000000000002, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + 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:eJwVlGk4lAsfxqeyDCNlyykPhrHMPI8jnWhV/3+RUCe0nEgrUjTTUGQpyZqR +dWSq0eYtlFARk6PQIYYOzrHvxcErlaMkW+nt/XBf9/X7cl/X78ut58bfeXQ+ +jUYT/8j/e7+1SIFGI9D6LX1PxColtBzUKM+PI7BUZmfe+ngGDjSKOesNtVEt +W9Vnj1gRP2st+m9WgTZ+q3klWxStgP2Lg3l2oIMv3wm3rtxJxys7RzLLW3Xw +TUD1+9w+OSz8186c8NDFiZGbsWmnZDGtI8/v12+6+NyFt1GrZQE+XC1b1mHH +RNv7RRWOa+aj9aPsD3OJTJTW0dOCntJwQ0PjhHI3EzMOMP2+4ByMpH0yVmHp +offxz8+3HpmF6NL40tzjeiilZDWDHk1B9MUHphZP9DDDf7R+0dgErJsrl+bN +6KF+6Pxj3EvjsFPLxVJtqz66GQ/NGzb6CC4JXHVVoT4Oui5w7pQdBfWHAUsW +tOujryW5JdxzBFaekf3Uy2Kheo7Rte09QyD3LnYyx5uFylUSE8nIP7BBLqX1 +qISF/hf7M69r9IF7wJJlxfMNMPKqvL+2XQ9sECVfnLM1wJgdyyg9uw4465pY +b5pqgAen+G/yQ1uAVx8JTt0G6LRO203Ca4QdVybUlfUN8aFwNkfzZgOkyL2t +KOQZ4uUtX6rTC2shjtV83eGJISqk3T7X/LIK3g5tcmimGeEuzYFzN3QqwIJG +eY5vM0KPLWt8q1XLwaKakSUjNEJyaLH7n9tL4Jo5/wWt1wiFRpH1D5uL4LFD +rey/BsaYdO/WrmfbCuBp+e28AG9jDAyaWvdx7yPQb582e1dojCmXnEt7rR7A +phv2PY5fjdFnZ66y9fdMqKTruKfbsjG9K73ZdNkdmNV7qzqQyEbfIpf315Vu +g17ycuMXLWzcl6V5ylkxDbIzp9QFehys0iUK5PkiGPYqNrE6zsGgIFGfSYsQ +BE1ftYefcFBjcfLqUlYiLE0pOW1MI3HfxPjRc38L4ADt1LizDYnrnp449iQ7 +CmTVH2z3F5L483PHE/bDYeDW0tUQ0UEiQ/5km8xkCOS+vygx0aXwtWqYwTaj +INifXRRY7k1hlYHa6ECNH5Rp9LjbPKbQO2ttkbKnLzT2mM9+/05hP9kZvTuS +C3+qt3q42BBo6ZLe3TDMwMX72z9/aSfw1chL+UVaDORO7o7x5Wpjq7ji5JiG +Ig5pqetkzLJR+N/me1XpV8GO3sEcsuag+MkHcl/CZXiq45qRmsBBq1hVR3lm +Mjit7JZe7OTgxCpXwUbXOCipEa1EFokfqyvUyayLsCJWmXmMSyKrt2LtYH4E +PPGzSvhaSGLO+bXfTxy5APS+x1bOX0lUtCnmzJw+C5HbdK9+sabQwSrbur7n +DCi/sTu5IIHC6FKVm50yp0E6HbP8TjuFq7xMUlIv8OGyySqJCYvAEp9kMV9F +CTOZAZ3N+QQuPkpfKP8bA9mDk86tttoYYXS7Ks5FESNb0/ULhtnI19gSSm+4 +BsFtw+LVKzkY7hY3eCkoFRytFb24Zzk4MzdsFjaRDLwI7rikmoNTmzrjtkni +wdv0flOBCokube+YLkUxsHVLucJhFxKTwpsm+u9Fwn7rgA9r7pJovpaTmMAM +A4uuKoXRERL3zBPfiM07Bz9db8pS+YVCH+r1bmo2ACy2XBg/co7C9pEoC7f+ +01ApX1DzuZLCgdcmddPxPiDzzV812ovAK5z6y5JnDKx7dzDV6T2FNRsZ2+Wm +eRC4xvOwSIXAkfEBJtdACT+G29RV3CJwL9OqSOsUA+X2272gr9ZGx+dD3r8G +K2JjwbDButdslOT9UTngLQbVsrG9h0kOOmF73vSnVCDa+mrbfDnok1JyRMFD +CGcfPKE7lnLQWF5vH/dEAvxxOP/OBzqJh6QpLI/NAmjUv3a+24HE4rMeQbbs +KDAzUdHem0bi1aBq110RYbDd+e/3a/pJ3PRAdY7mFAJulbnLb7EpVCS606cS +AkEaoLUq+TSFK6xTzXt2+8EfylKRdgmFgaFlhx5O+cAwPbPk370E5rjlR6xo +YmDtp9Nuwf0UzqzJ8nH//ST8NWAnZX+hcPmLnn2HLXngvXHO/BWdwL6GmZjL +PyvhEvM8m/UiAkdTAiJrQxnor3lqQs9UGwWODSXHYxUxWF8pM6STjV9Kb3mT +v4uhN9+v6LMhB9VC+LUPzEQQfrvu7EIeB3M3pL60uS6E8DJntevFHOw7bJ+x +sDoBRqeLLsXKkOhbp5kaLxDA1WTZ4mXbSLyxvjGK8IqCZcxe8yERibIdue0X +C8OgTfTbwd4eEitWZ8gm3QmBmHbx+CCLwiBv0YflnYGgquLVxuZT6JFZLFJO +9AMU7vy2oohCJZtDUvpyX+hU3phk4EBg9jLRdqKXgXZn5qQJPRRanzsw95rg +w47jzaYbPlJo+PzKZh0xD5yOlB1Rn6VwejJ3UvqaC+6b7G8dlSEwqWrASO0X +Jbyv5LYgIJnA83ecW2KjGWjiH52Yx9HG/AtVYx5CRazvuOGp285GQ2fHtQb9 +YqjMKRosZXFQcIDmVekgAosoq933vDlIes67efepEKJrsn/aLOFg6LuBZquJ +BIi0Kf7uPJ/EzQddzLi5ApiRrm8ttiUxvn+yrUEQBYvFleW5l0n0E5XatNWH +AbFqqebjLhIFRpyEn+tCQOyWvEegR6GR+aE+Ji0IJD2L7n3mUrjpgqr80Rw/ +oDVfMXtWQOFqTfrCM/a+0KQSO1NqT6BcRjst5B8G0p9aff2pi8LQ+y+9U3bw +QTl7qVv1KIUXjrVLuTU8WHxHJvXmFIV8naWqYwt5INQNNo39RuHuHXnXRh5z +4c1mn+Zf5hOo5Rus9Ku5En6aKulTTyRQtfH5ikHBj/27Sd1+xtr4yVLh3kGR +IgYWDtmMtbLxgZXjgtVfxCC5v/fbHX0OJuapFx4+JIKEgPPl/l4cLLFJOvlP +lRBi6ndpaRRxcFvHs6BApUSo5/6+FueR2PKfPLWTZQLIGWj1EGwlUWgZPr5e +HAWKbZLo5BQSX5frH4rrCoOyqODT4k4SPcW1Eyr9IXA3K07OlfnDL6ywyVQt +CBSt3ZM6T1CoMMqS6pb4wRu/dfZh+RTGCFrHLJ19wVHt0fI4WwK7zPkke4iB +w85DGr0dFMr7v7oVe4wPo/bPzsZ9+PFPl8JYZn08GLPKynOf/MFxsQq6hjw4 +VU7YOnylUL1yzdO/pFzIP9+m/nKOwgnZ9/FL0rjwP0jvSE4= + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], + LineBox[{1, 135, 116, 98, 81, 65, 51, 149, 130, 112, 95, 79, 2, + 136, 117, 99, 82, 66, 52, 3, 137, 118, 100, 83, 67, 53, 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, + 138, 119, 101, 84, 68, 54, 40, 139, 120, 102, 85, 69, 55, 41, 140, + 121, 103, 86, 70, 56, 42, 141, 122, 104, 87, 71, 57, 43, 142, + 123, 105, 88, 72, 58, 44, 143, 124, 106, 89, 73, 59, 45, 144, 125, + 107, 90, 74, 60, 46, 145, 126, 108, 91, 75, 61, 47, 146, 127, + 109, 92, 76, 62, 48, 147, 128, 110, 93, 77, 63, 49, 148, 129, 111, + 94, 78, 64, 150, 131, 113, 96, 80, 151, 132, 114, 97, 152, 133, + 115, 153, 134, 154, 50}, + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgDAARNGIFq7hKlrYWGUECyEgBIzTOK2msHAFec2H496w5rhdIYTS +PVlSObfms9q6+idxHqe85yPVP4U3OI7jOI7jOI7jOI7jOI7jOI7jOI7/nt/w +vIBc + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVlGk4lAsfxqeyDCNlyykPhrHMPI8jnWhV/3+RUCe0nEgrUjTTUGQpyZqR +dWSq0eYtlFARk6PQIYYOzrHvxcErlaMkW+nt/XBf9/X7cl/X78ut58bfeXQ+ +jUYT/8j/e7+1SIFGI9D6LX1PxColtBzUKM+PI7BUZmfe+ngGDjSKOesNtVEt +W9Vnj1gRP2st+m9WgTZ+q3klWxStgP2Lg3l2oIMv3wm3rtxJxys7RzLLW3Xw +TUD1+9w+OSz8186c8NDFiZGbsWmnZDGtI8/v12+6+NyFt1GrZQE+XC1b1mHH +RNv7RRWOa+aj9aPsD3OJTJTW0dOCntJwQ0PjhHI3EzMOMP2+4ByMpH0yVmHp +offxz8+3HpmF6NL40tzjeiilZDWDHk1B9MUHphZP9DDDf7R+0dgErJsrl+bN +6KF+6Pxj3EvjsFPLxVJtqz66GQ/NGzb6CC4JXHVVoT4Oui5w7pQdBfWHAUsW +tOujryW5JdxzBFaekf3Uy2Kheo7Rte09QyD3LnYyx5uFylUSE8nIP7BBLqX1 +qISF/hf7M69r9IF7wJJlxfMNMPKqvL+2XQ9sECVfnLM1wJgdyyg9uw4465pY +b5pqgAen+G/yQ1uAVx8JTt0G6LRO203Ca4QdVybUlfUN8aFwNkfzZgOkyL2t +KOQZ4uUtX6rTC2shjtV83eGJISqk3T7X/LIK3g5tcmimGeEuzYFzN3QqwIJG +eY5vM0KPLWt8q1XLwaKakSUjNEJyaLH7n9tL4Jo5/wWt1wiFRpH1D5uL4LFD +rey/BsaYdO/WrmfbCuBp+e28AG9jDAyaWvdx7yPQb582e1dojCmXnEt7rR7A +phv2PY5fjdFnZ66y9fdMqKTruKfbsjG9K73ZdNkdmNV7qzqQyEbfIpf315Vu +g17ycuMXLWzcl6V5ylkxDbIzp9QFehys0iUK5PkiGPYqNrE6zsGgIFGfSYsQ +BE1ftYefcFBjcfLqUlYiLE0pOW1MI3HfxPjRc38L4ADt1LizDYnrnp449iQ7 +CmTVH2z3F5L483PHE/bDYeDW0tUQ0UEiQ/5km8xkCOS+vygx0aXwtWqYwTaj +INifXRRY7k1hlYHa6ECNH5Rp9LjbPKbQO2ttkbKnLzT2mM9+/05hP9kZvTuS +C3+qt3q42BBo6ZLe3TDMwMX72z9/aSfw1chL+UVaDORO7o7x5Wpjq7ji5JiG +Ig5pqetkzLJR+N/me1XpV8GO3sEcsuag+MkHcl/CZXiq45qRmsBBq1hVR3lm +Mjit7JZe7OTgxCpXwUbXOCipEa1EFokfqyvUyayLsCJWmXmMSyKrt2LtYH4E +PPGzSvhaSGLO+bXfTxy5APS+x1bOX0lUtCnmzJw+C5HbdK9+sabQwSrbur7n +DCi/sTu5IIHC6FKVm50yp0E6HbP8TjuFq7xMUlIv8OGyySqJCYvAEp9kMV9F +CTOZAZ3N+QQuPkpfKP8bA9mDk86tttoYYXS7Ks5FESNb0/ULhtnI19gSSm+4 +BsFtw+LVKzkY7hY3eCkoFRytFb24Zzk4MzdsFjaRDLwI7rikmoNTmzrjtkni +wdv0flOBCokube+YLkUxsHVLucJhFxKTwpsm+u9Fwn7rgA9r7pJovpaTmMAM +A4uuKoXRERL3zBPfiM07Bz9db8pS+YVCH+r1bmo2ACy2XBg/co7C9pEoC7f+ +01ApX1DzuZLCgdcmddPxPiDzzV812ovAK5z6y5JnDKx7dzDV6T2FNRsZ2+Wm +eRC4xvOwSIXAkfEBJtdACT+G29RV3CJwL9OqSOsUA+X2272gr9ZGx+dD3r8G +K2JjwbDButdslOT9UTngLQbVsrG9h0kOOmF73vSnVCDa+mrbfDnok1JyRMFD +CGcfPKE7lnLQWF5vH/dEAvxxOP/OBzqJh6QpLI/NAmjUv3a+24HE4rMeQbbs +KDAzUdHem0bi1aBq110RYbDd+e/3a/pJ3PRAdY7mFAJulbnLb7EpVCS606cS +AkEaoLUq+TSFK6xTzXt2+8EfylKRdgmFgaFlhx5O+cAwPbPk370E5rjlR6xo +YmDtp9Nuwf0UzqzJ8nH//ST8NWAnZX+hcPmLnn2HLXngvXHO/BWdwL6GmZjL +PyvhEvM8m/UiAkdTAiJrQxnor3lqQs9UGwWODSXHYxUxWF8pM6STjV9Kb3mT +v4uhN9+v6LMhB9VC+LUPzEQQfrvu7EIeB3M3pL60uS6E8DJntevFHOw7bJ+x +sDoBRqeLLsXKkOhbp5kaLxDA1WTZ4mXbSLyxvjGK8IqCZcxe8yERibIdue0X +C8OgTfTbwd4eEitWZ8gm3QmBmHbx+CCLwiBv0YflnYGgquLVxuZT6JFZLFJO +9AMU7vy2oohCJZtDUvpyX+hU3phk4EBg9jLRdqKXgXZn5qQJPRRanzsw95rg +w47jzaYbPlJo+PzKZh0xD5yOlB1Rn6VwejJ3UvqaC+6b7G8dlSEwqWrASO0X +Jbyv5LYgIJnA83ecW2KjGWjiH52Yx9HG/AtVYx5CRazvuOGp285GQ2fHtQb9 +YqjMKRosZXFQcIDmVekgAosoq933vDlIes67efepEKJrsn/aLOFg6LuBZquJ +BIi0Kf7uPJ/EzQddzLi5ApiRrm8ttiUxvn+yrUEQBYvFleW5l0n0E5XatNWH +AbFqqebjLhIFRpyEn+tCQOyWvEegR6GR+aE+Ji0IJD2L7n3mUrjpgqr80Rw/ +oDVfMXtWQOFqTfrCM/a+0KQSO1NqT6BcRjst5B8G0p9aff2pi8LQ+y+9U3bw +QTl7qVv1KIUXjrVLuTU8WHxHJvXmFIV8naWqYwt5INQNNo39RuHuHXnXRh5z +4c1mn+Zf5hOo5Rus9Ku5En6aKulTTyRQtfH5ikHBj/27Sd1+xtr4yVLh3kGR +IgYWDtmMtbLxgZXjgtVfxCC5v/fbHX0OJuapFx4+JIKEgPPl/l4cLLFJOvlP +lRBi6ndpaRRxcFvHs6BApUSo5/6+FueR2PKfPLWTZQLIGWj1EGwlUWgZPr5e +HAWKbZLo5BQSX5frH4rrCoOyqODT4k4SPcW1Eyr9IXA3K07OlfnDL6ywyVQt +CBSt3ZM6T1CoMMqS6pb4wRu/dfZh+RTGCFrHLJ19wVHt0fI4WwK7zPkke4iB +w85DGr0dFMr7v7oVe4wPo/bPzsZ9+PFPl8JYZn08GLPKynOf/MFxsQq6hjw4 +VU7YOnylUL1yzdO/pFzIP9+m/nKOwgnZ9/FL0rjwP0jvSE4= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 135, 116, 98, 81, 65, 51, 149, 130, 112, 95, 79, 2, + 136, 117, 99, 82, 66, 52, 3, 137, 118, 100, 83, 67, 53, 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, 138, 119, 101, 84, 68, 54, 40, 139, 120, 102, 85, + 69, 55, 41, 140, 121, 103, 86, 70, 56, 42, 141, 122, 104, 87, + 71, 57, 43, 142, 123, 105, 88, 72, 58, 44, 143, 124, 106, 89, + 73, 59, 45, 144, 125, 107, 90, 74, 60, 46, 145, 126, 108, 91, + 75, 61, 47, 146, 127, 109, 92, 76, 62, 48, 147, 128, 110, 93, + 77, 63, 49, 148, 129, 111, 94, 78, 64, 150, 131, 113, 96, 80, + 151, 132, 114, 97, 152, 133, 115, 153, 134, 154, 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]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 14}, {0., 3.526617683729599}}, + "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:eJwVkXk81Akfx6dyDCM5s+WHYRwzv59FG6VS32+RHG10baRDSNFMQ8iVSiEj +58hUo8ujKKFyDavQEqM2dt0UxeKRyiq5OvT0/PF5vf96//F+ffS9+NsOzqfR +aOIf+z/32IkUaDQC7d7Qd55doYSvNwS0/TKfQO3ACKVfLZXQe73T9YMyBKbW +Dxqr/6KE/uvmLJ/RCexv/hx/4WclDLP29RSpEjg6McjkGirhBdMVElMWgZUB +aWK+qhL+qdHh425PoI171svmEQa6qt83T3Qg8IUln2QPM7BVNeFzlROBcre6 +aFH/MLBHeV2qoQuBeUtFm4k+Bo7Qcyr/3UVgvlfR2WWtDJT5FqIW50fgRU7T +BclDBtoMadYUJRJYJbOtcE0SAz/OVPZrpBCo1vJo2ZCAgXeUvBaEphF4Mtut +PSGOgYstC+3XiAgcSw+NeXqKgR/O2D+vvU7gLqZtmfYxBuYwQ3vaighUOUhf +KP8bA1X2dH2a6iLw2egT+UXaDBxsEXPWGOmgep5awE6xItJvpr4MNtHBjzYK +t/eJFNE0JC6lkKODRafrx32EihiidWxS30wHBa7NlYcTFFFuj+Nj+koddH00 +7P9rhCKyh6bdOhx08KzxjfpEd0XkTu+ID+TqYIe49ui4piJ+0l7039xiHfzW ++Ey2LE4BB1QieI6gi0/eCjct30bHi9tGc2o6dPF1aMO7gn45LP3X0ZLw0cPJ +0WsJmcdkMbO7MPjXb3r4yJ23Trt9Ad5bKVvd7chEhztlta7W89Huft77uRQm +Sp/TM8PLabi2uWVS+SUTb+1lBk/hHIxmfjRRZemj/+FPjzYd+AJxVUlVBYf1 +UUrJaoXfn4G4c3fNrEr08VbIWNOi8UlYPVcjLfysjwan5h/inp+AbdruNuqb +DNDLZHjeiPEHcE/maqgJDXDIY4Fbj+wYaNwLXbygywADbciNZ3xHYflx2Y99 +LBZq5Btf3tw7DHJvE6bz/VmoXC8xlYz+A2vl0jsOSlgYcm4g54pmP3iHLl5a +Md8QYy7Jh+g49sJaUdq5OQdDjN+ylNJ37IZIj5QmswxD3DfDf110qh14TTGw +9aUhbl2t4yXhtcCWi5MaygZGeE/4JV/rWjOky72pLeUZ4YWNUw1ZpU8hkdV2 +xaXECBUyb5xoe1IPb4bXu7TRjHG71uCJq7q1YEWjfCecjdFno3Vgg1oNWDUw +cmWExkgOq3j/ubkSLlvyH9P6jFFoHNN0r60MHrg8lf3X0ARTb1/f/tC5GMpr +bhSG+ptgWPjM6g+77oNB16zF21ITTD/vVtVnexfWX3Xqdf1qggHbCpTtvudA +HV3XO8uBjVkvstrMlmbDF/03aoMpbAwsc393RekG6KeZmzxuZ+PuXK1jboqZ +EFY6bD/ewca7tq4LVk6Joan7qq9eFxuN3FxXGQ6IIcJAKSeqh41TVdf9yd/F +0FI8Yrj6FRslhX/UDfqLIaYjy6B4hI18zY2n6M2XYVhbQ/fWFzYK/9t2uz7r +EuTlzGgI9DlYr0cUy/NFILmz61u2AQdTCjVKPfeLoC6/bKiKxUHBXppfnYsI ++oqCyz4ZcVA9iv/0roUI1KrHd3mSHNyKXYWzHzMgonNEvHI5B894JQ6dD88A +R3o3c9iOg+KS9+Tu5Asw4ldhanuYg+Hhon7TdiEkh56sCfHjYKV96tF/6oVg +FWu747Y/B0nfeddulgvhzI3nkQt5HCxYm/HE/ooQiM7+p52BHAxIrzyg4CME +VztFP24kBz/PjVhET6ZBua7HrYxkDtomqLnKM9NA0PpVZ6SEg5oqaSurWCkQ +37RdW7OMg87dD8PDlFIgrjHvpw0SDp56O9hmO5kMZ6rd1K9UcLDf0+nWwoZk +iLxbQnet4qCJvP5u7pFk4J3lTkgaODizvifRWZIEW5e/lJ7r4eDkCg/BOo9E +WJJeGWRCI3H35MTBE38LoIn7+yqcR2L7fwrVj1YLIMa+4rvbfBI37HO34BYI +YGy27HyCDImBz7UykgQC+MOzKPs9ncT90nSWzwYB+JvdaS1WJdG98y3TvSwe +KhtFy5FF4oeGWg0y9xzspR2bcLMncXX5kUMlebGQP9jhI9hEotDmzMQacSx8 +lq7pqHAgMWlgurNZEAuX0mQrljqTeHVNSyzhFwstBpdPvnQhsSLSJ9yBHQub +NtYoeLqTmHqmdXLgdgwsS1BmHuKSyOqrXTVUdBZkNe5uDhGS+PMj1yNOI9Gg +2CmJS0sn8VWNwf7EF9GgIq6rKbhAYrCoyr6zKRqWMvssh0UkynYXdJ0rjQYL +U1WdXZkkXgpv8Nh+Nhr22IW+t75JouUqTkoyMxpKgm2Tv5aSmH9y1fcjB06D +V/uL5rPdJDLkj3bKTEdBdWxEkLiHRF/x00nVgSggVizRevCCRIExJ/nn51HQ +KfptX18vibUrb8mmZkfBZre/31kPkLj+rtocbWsUWL2oVxgbJXHnPPHVhMIT +QO9/YOv2lURF+wrO56BIKHh3TmKqR+ErtWhDZ+NwuJmbKOfBpPB0dGmrmXo4 +iL3Sdgr0KTS23N/PpIVDfJd4YohFYbi/6L15Txh41RWYX2dTqEi8zJpJDoOf +rrTmqv5CYQD1agf1JRRinPUuTdlR6GKbZ9fUexz25JWF1fhTWG+oPjbYGAyK +dt6pPUcoVBhjSfUqg0HSu+j2Jy6F60+ryR/MDwY1Vb9ONp9Cn5wKkXJKMEhD +tVekBVG4zC7DsndHMFhtPD1x4ASFXaOxVl4DQaD82vHogmQK46pUr/XIBEG1 +Zq+3/QMK/XNXlSn7BsLr4NVO0UUUxgs6xm3cAoHWdtHiYTGFK7XoC487BQIK +t31bVkahkv1+Kd08EP5Qlop0KikMO1W9/95MANTJFzd+qqNw8JXp89mkAJDO +xptnd1G4ws80PeM0H0bchjX7uimUD3l2PeEQH+jltl9/ekHhqTtP/NO38MHx ++Jw0uZdCuxN7514RfHj6McgrYoDCz9a5Ad6/H4Xnb/dlbH1HYeM6xma5WR6M +OT2MTHz/o+98NMuinwfKeUu8GsZ+/HOoS8pt5MGWw21maz9QaPTo4gZdMQ/+ +GnSUsqcoNH/cu9vThgfjtrmF3tM//MQEBT0jHqhky2Rcm6GQr7tEbXwhD7Ye +qD6g8YXC2emCaekrLhyrIRxcvlKoUWdd/peUC0K9CLOEbxTu2FJ4efQBF4pO +dmo8maNwUvZd0uJMLrT0Wn75/p3CAbInbkcMF/4HN9NITg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 14}, {0., 3.526617683729599}}, + "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:eJwVkXk81Akfx6dyDCM5s+WHYRwzv59FG6VS32+RHG10baRDSNFMQ8iVSiEj +58hUo8ujKKFyDavQEqM2dt0UxeKRyiq5OvT0/PF5vf96//F+ffS9+NsOzqfR +aOIf+z/32IkUaDQC7d7Qd55doYSvNwS0/TKfQO3ACKVfLZXQe73T9YMyBKbW +Dxqr/6KE/uvmLJ/RCexv/hx/4WclDLP29RSpEjg6McjkGirhBdMVElMWgZUB +aWK+qhL+qdHh425PoI171svmEQa6qt83T3Qg8IUln2QPM7BVNeFzlROBcre6 +aFH/MLBHeV2qoQuBeUtFm4k+Bo7Qcyr/3UVgvlfR2WWtDJT5FqIW50fgRU7T +BclDBtoMadYUJRJYJbOtcE0SAz/OVPZrpBCo1vJo2ZCAgXeUvBaEphF4Mtut +PSGOgYstC+3XiAgcSw+NeXqKgR/O2D+vvU7gLqZtmfYxBuYwQ3vaighUOUhf +KP8bA1X2dH2a6iLw2egT+UXaDBxsEXPWGOmgep5awE6xItJvpr4MNtHBjzYK +t/eJFNE0JC6lkKODRafrx32EihiidWxS30wHBa7NlYcTFFFuj+Nj+koddH00 +7P9rhCKyh6bdOhx08KzxjfpEd0XkTu+ID+TqYIe49ui4piJ+0l7039xiHfzW ++Ey2LE4BB1QieI6gi0/eCjct30bHi9tGc2o6dPF1aMO7gn45LP3X0ZLw0cPJ +0WsJmcdkMbO7MPjXb3r4yJ23Trt9Ad5bKVvd7chEhztlta7W89Huft77uRQm +Sp/TM8PLabi2uWVS+SUTb+1lBk/hHIxmfjRRZemj/+FPjzYd+AJxVUlVBYf1 +UUrJaoXfn4G4c3fNrEr08VbIWNOi8UlYPVcjLfysjwan5h/inp+AbdruNuqb +DNDLZHjeiPEHcE/maqgJDXDIY4Fbj+wYaNwLXbygywADbciNZ3xHYflx2Y99 +LBZq5Btf3tw7DHJvE6bz/VmoXC8xlYz+A2vl0jsOSlgYcm4g54pmP3iHLl5a +Md8QYy7Jh+g49sJaUdq5OQdDjN+ylNJ37IZIj5QmswxD3DfDf110qh14TTGw +9aUhbl2t4yXhtcCWi5MaygZGeE/4JV/rWjOky72pLeUZ4YWNUw1ZpU8hkdV2 +xaXECBUyb5xoe1IPb4bXu7TRjHG71uCJq7q1YEWjfCecjdFno3Vgg1oNWDUw +cmWExkgOq3j/ubkSLlvyH9P6jFFoHNN0r60MHrg8lf3X0ARTb1/f/tC5GMpr +bhSG+ptgWPjM6g+77oNB16zF21ITTD/vVtVnexfWX3Xqdf1qggHbCpTtvudA +HV3XO8uBjVkvstrMlmbDF/03aoMpbAwsc393RekG6KeZmzxuZ+PuXK1jboqZ +EFY6bD/ewca7tq4LVk6Joan7qq9eFxuN3FxXGQ6IIcJAKSeqh41TVdf9yd/F +0FI8Yrj6FRslhX/UDfqLIaYjy6B4hI18zY2n6M2XYVhbQ/fWFzYK/9t2uz7r +EuTlzGgI9DlYr0cUy/NFILmz61u2AQdTCjVKPfeLoC6/bKiKxUHBXppfnYsI ++oqCyz4ZcVA9iv/0roUI1KrHd3mSHNyKXYWzHzMgonNEvHI5B894JQ6dD88A +R3o3c9iOg+KS9+Tu5Asw4ldhanuYg+Hhon7TdiEkh56sCfHjYKV96tF/6oVg +FWu747Y/B0nfeddulgvhzI3nkQt5HCxYm/HE/ooQiM7+p52BHAxIrzyg4CME +VztFP24kBz/PjVhET6ZBua7HrYxkDtomqLnKM9NA0PpVZ6SEg5oqaSurWCkQ +37RdW7OMg87dD8PDlFIgrjHvpw0SDp56O9hmO5kMZ6rd1K9UcLDf0+nWwoZk +iLxbQnet4qCJvP5u7pFk4J3lTkgaODizvifRWZIEW5e/lJ7r4eDkCg/BOo9E +WJJeGWRCI3H35MTBE38LoIn7+yqcR2L7fwrVj1YLIMa+4rvbfBI37HO34BYI +YGy27HyCDImBz7UykgQC+MOzKPs9ncT90nSWzwYB+JvdaS1WJdG98y3TvSwe +KhtFy5FF4oeGWg0y9xzspR2bcLMncXX5kUMlebGQP9jhI9hEotDmzMQacSx8 +lq7pqHAgMWlgurNZEAuX0mQrljqTeHVNSyzhFwstBpdPvnQhsSLSJ9yBHQub +NtYoeLqTmHqmdXLgdgwsS1BmHuKSyOqrXTVUdBZkNe5uDhGS+PMj1yNOI9Gg +2CmJS0sn8VWNwf7EF9GgIq6rKbhAYrCoyr6zKRqWMvssh0UkynYXdJ0rjQYL +U1WdXZkkXgpv8Nh+Nhr22IW+t75JouUqTkoyMxpKgm2Tv5aSmH9y1fcjB06D +V/uL5rPdJDLkj3bKTEdBdWxEkLiHRF/x00nVgSggVizRevCCRIExJ/nn51HQ +KfptX18vibUrb8mmZkfBZre/31kPkLj+rtocbWsUWL2oVxgbJXHnPPHVhMIT +QO9/YOv2lURF+wrO56BIKHh3TmKqR+ErtWhDZ+NwuJmbKOfBpPB0dGmrmXo4 +iL3Sdgr0KTS23N/PpIVDfJd4YohFYbi/6L15Txh41RWYX2dTqEi8zJpJDoOf +rrTmqv5CYQD1agf1JRRinPUuTdlR6GKbZ9fUexz25JWF1fhTWG+oPjbYGAyK +dt6pPUcoVBhjSfUqg0HSu+j2Jy6F60+ryR/MDwY1Vb9ONp9Cn5wKkXJKMEhD +tVekBVG4zC7DsndHMFhtPD1x4ASFXaOxVl4DQaD82vHogmQK46pUr/XIBEG1 +Zq+3/QMK/XNXlSn7BsLr4NVO0UUUxgs6xm3cAoHWdtHiYTGFK7XoC487BQIK +t31bVkahkv1+Kd08EP5Qlop0KikMO1W9/95MANTJFzd+qqNw8JXp89mkAJDO +xptnd1G4ws80PeM0H0bchjX7uimUD3l2PeEQH+jltl9/ekHhqTtP/NO38MHx ++Jw0uZdCuxN7514RfHj6McgrYoDCz9a5Ad6/H4Xnb/dlbH1HYeM6xma5WR6M +OT2MTHz/o+98NMuinwfKeUu8GsZ+/HOoS8pt5MGWw21maz9QaPTo4gZdMQ/+ +GnSUsqcoNH/cu9vThgfjtrmF3tM//MQEBT0jHqhky2Rcm6GQr7tEbXwhD7Ye +qD6g8YXC2emCaekrLhyrIRxcvlKoUWdd/peUC0K9CLOEbxTu2FJ4efQBF4pO +dmo8maNwUvZd0uJMLrT0Wn75/p3CAbInbkcMF/4HN9NITg== + "]]}, "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:eJwVlGk4lAsfxqeyDCNlyykPhrHMPI8jnWhV/3+RUCe0nEgrUjTTUGQpyZqR +dWSq0eYtlFARk6PQIYYOzrHvxcErlaMkW+nt/XBf9/X7cl/X78ut58bfeXQ+ +jUYT/8j/e7+1SIFGI9D6LX1PxColtBzUKM+PI7BUZmfe+ngGDjSKOesNtVEt +W9Vnj1gRP2st+m9WgTZ+q3klWxStgP2Lg3l2oIMv3wm3rtxJxys7RzLLW3Xw +TUD1+9w+OSz8186c8NDFiZGbsWmnZDGtI8/v12+6+NyFt1GrZQE+XC1b1mHH +RNv7RRWOa+aj9aPsD3OJTJTW0dOCntJwQ0PjhHI3EzMOMP2+4ByMpH0yVmHp +offxz8+3HpmF6NL40tzjeiilZDWDHk1B9MUHphZP9DDDf7R+0dgErJsrl+bN +6KF+6Pxj3EvjsFPLxVJtqz66GQ/NGzb6CC4JXHVVoT4Oui5w7pQdBfWHAUsW +tOujryW5JdxzBFaekf3Uy2Kheo7Rte09QyD3LnYyx5uFylUSE8nIP7BBLqX1 +qISF/hf7M69r9IF7wJJlxfMNMPKqvL+2XQ9sECVfnLM1wJgdyyg9uw4465pY +b5pqgAen+G/yQ1uAVx8JTt0G6LRO203Ca4QdVybUlfUN8aFwNkfzZgOkyL2t +KOQZ4uUtX6rTC2shjtV83eGJISqk3T7X/LIK3g5tcmimGeEuzYFzN3QqwIJG +eY5vM0KPLWt8q1XLwaKakSUjNEJyaLH7n9tL4Jo5/wWt1wiFRpH1D5uL4LFD +rey/BsaYdO/WrmfbCuBp+e28AG9jDAyaWvdx7yPQb582e1dojCmXnEt7rR7A +phv2PY5fjdFnZ66y9fdMqKTruKfbsjG9K73ZdNkdmNV7qzqQyEbfIpf315Vu +g17ycuMXLWzcl6V5ylkxDbIzp9QFehys0iUK5PkiGPYqNrE6zsGgIFGfSYsQ +BE1ftYefcFBjcfLqUlYiLE0pOW1MI3HfxPjRc38L4ADt1LizDYnrnp449iQ7 +CmTVH2z3F5L483PHE/bDYeDW0tUQ0UEiQ/5km8xkCOS+vygx0aXwtWqYwTaj +INifXRRY7k1hlYHa6ECNH5Rp9LjbPKbQO2ttkbKnLzT2mM9+/05hP9kZvTuS +C3+qt3q42BBo6ZLe3TDMwMX72z9/aSfw1chL+UVaDORO7o7x5Wpjq7ji5JiG +Ig5pqetkzLJR+N/me1XpV8GO3sEcsuag+MkHcl/CZXiq45qRmsBBq1hVR3lm +Mjit7JZe7OTgxCpXwUbXOCipEa1EFokfqyvUyayLsCJWmXmMSyKrt2LtYH4E +PPGzSvhaSGLO+bXfTxy5APS+x1bOX0lUtCnmzJw+C5HbdK9+sabQwSrbur7n +DCi/sTu5IIHC6FKVm50yp0E6HbP8TjuFq7xMUlIv8OGyySqJCYvAEp9kMV9F +CTOZAZ3N+QQuPkpfKP8bA9mDk86tttoYYXS7Ks5FESNb0/ULhtnI19gSSm+4 +BsFtw+LVKzkY7hY3eCkoFRytFb24Zzk4MzdsFjaRDLwI7rikmoNTmzrjtkni +wdv0flOBCokube+YLkUxsHVLucJhFxKTwpsm+u9Fwn7rgA9r7pJovpaTmMAM +A4uuKoXRERL3zBPfiM07Bz9db8pS+YVCH+r1bmo2ACy2XBg/co7C9pEoC7f+ +01ApX1DzuZLCgdcmddPxPiDzzV812ovAK5z6y5JnDKx7dzDV6T2FNRsZ2+Wm +eRC4xvOwSIXAkfEBJtdACT+G29RV3CJwL9OqSOsUA+X2272gr9ZGx+dD3r8G +K2JjwbDButdslOT9UTngLQbVsrG9h0kOOmF73vSnVCDa+mrbfDnok1JyRMFD +CGcfPKE7lnLQWF5vH/dEAvxxOP/OBzqJh6QpLI/NAmjUv3a+24HE4rMeQbbs +KDAzUdHem0bi1aBq110RYbDd+e/3a/pJ3PRAdY7mFAJulbnLb7EpVCS606cS +AkEaoLUq+TSFK6xTzXt2+8EfylKRdgmFgaFlhx5O+cAwPbPk370E5rjlR6xo +YmDtp9Nuwf0UzqzJ8nH//ST8NWAnZX+hcPmLnn2HLXngvXHO/BWdwL6GmZjL +PyvhEvM8m/UiAkdTAiJrQxnor3lqQs9UGwWODSXHYxUxWF8pM6STjV9Kb3mT +v4uhN9+v6LMhB9VC+LUPzEQQfrvu7EIeB3M3pL60uS6E8DJntevFHOw7bJ+x +sDoBRqeLLsXKkOhbp5kaLxDA1WTZ4mXbSLyxvjGK8IqCZcxe8yERibIdue0X +C8OgTfTbwd4eEitWZ8gm3QmBmHbx+CCLwiBv0YflnYGgquLVxuZT6JFZLFJO +9AMU7vy2oohCJZtDUvpyX+hU3phk4EBg9jLRdqKXgXZn5qQJPRRanzsw95rg +w47jzaYbPlJo+PzKZh0xD5yOlB1Rn6VwejJ3UvqaC+6b7G8dlSEwqWrASO0X +Jbyv5LYgIJnA83ecW2KjGWjiH52Yx9HG/AtVYx5CRazvuOGp285GQ2fHtQb9 +YqjMKRosZXFQcIDmVekgAosoq933vDlIes67efepEKJrsn/aLOFg6LuBZquJ +BIi0Kf7uPJ/EzQddzLi5ApiRrm8ttiUxvn+yrUEQBYvFleW5l0n0E5XatNWH +AbFqqebjLhIFRpyEn+tCQOyWvEegR6GR+aE+Ji0IJD2L7n3mUrjpgqr80Rw/ +oDVfMXtWQOFqTfrCM/a+0KQSO1NqT6BcRjst5B8G0p9aff2pi8LQ+y+9U3bw +QTl7qVv1KIUXjrVLuTU8WHxHJvXmFIV8naWqYwt5INQNNo39RuHuHXnXRh5z +4c1mn+Zf5hOo5Rus9Ku5En6aKulTTyRQtfH5ikHBj/27Sd1+xtr4yVLh3kGR +IgYWDtmMtbLxgZXjgtVfxCC5v/fbHX0OJuapFx4+JIKEgPPl/l4cLLFJOvlP +lRBi6ndpaRRxcFvHs6BApUSo5/6+FueR2PKfPLWTZQLIGWj1EGwlUWgZPr5e +HAWKbZLo5BQSX5frH4rrCoOyqODT4k4SPcW1Eyr9IXA3K07OlfnDL6ywyVQt +CBSt3ZM6T1CoMMqS6pb4wRu/dfZh+RTGCFrHLJ19wVHt0fI4WwK7zPkke4iB +w85DGr0dFMr7v7oVe4wPo/bPzsZ9+PFPl8JYZn08GLPKynOf/MFxsQq6hjw4 +VU7YOnylUL1yzdO/pFzIP9+m/nKOwgnZ9/FL0rjwP0jvSE4= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 135, 116, 98, 81, 65, 51, 149, 130, 112, 95, 79, 2, 136, + 117, 99, 82, 66, 52, 3, 137, 118, 100, 83, 67, 53, 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, 138, 119, + 101, 84, 68, 54, 40, 139, 120, 102, 85, 69, 55, 41, 140, 121, + 103, 86, 70, 56, 42, 141, 122, 104, 87, 71, 57, 43, 142, 123, 105, + 88, 72, 58, 44, 143, 124, 106, 89, 73, 59, 45, 144, 125, 107, 90, + 74, 60, 46, 145, 126, 108, 91, 75, 61, 47, 146, 127, 109, 92, 76, + 62, 48, 147, 128, 110, 93, 77, 63, 49, 148, 129, 111, 94, 78, 64, + 150, 131, 113, 96, 80, 151, 132, 114, 97, 152, 133, 115, 153, + 134, 154, 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]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 14}, {0., 3.526617683729599}}, + "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:eJwVkXk81Akfx6dyDCM5s+WHYRwzv59FG6VS32+RHG10baRDSNFMQ8iVSiEj +58hUo8ujKKFyDavQEqM2dt0UxeKRyiq5OvT0/PF5vf96//F+ffS9+NsOzqfR +aOIf+z/32IkUaDQC7d7Qd55doYSvNwS0/TKfQO3ACKVfLZXQe73T9YMyBKbW +Dxqr/6KE/uvmLJ/RCexv/hx/4WclDLP29RSpEjg6McjkGirhBdMVElMWgZUB +aWK+qhL+qdHh425PoI171svmEQa6qt83T3Qg8IUln2QPM7BVNeFzlROBcre6 +aFH/MLBHeV2qoQuBeUtFm4k+Bo7Qcyr/3UVgvlfR2WWtDJT5FqIW50fgRU7T +BclDBtoMadYUJRJYJbOtcE0SAz/OVPZrpBCo1vJo2ZCAgXeUvBaEphF4Mtut +PSGOgYstC+3XiAgcSw+NeXqKgR/O2D+vvU7gLqZtmfYxBuYwQ3vaighUOUhf +KP8bA1X2dH2a6iLw2egT+UXaDBxsEXPWGOmgep5awE6xItJvpr4MNtHBjzYK +t/eJFNE0JC6lkKODRafrx32EihiidWxS30wHBa7NlYcTFFFuj+Nj+koddH00 +7P9rhCKyh6bdOhx08KzxjfpEd0XkTu+ID+TqYIe49ui4piJ+0l7039xiHfzW ++Ey2LE4BB1QieI6gi0/eCjct30bHi9tGc2o6dPF1aMO7gn45LP3X0ZLw0cPJ +0WsJmcdkMbO7MPjXb3r4yJ23Trt9Ad5bKVvd7chEhztlta7W89Huft77uRQm +Sp/TM8PLabi2uWVS+SUTb+1lBk/hHIxmfjRRZemj/+FPjzYd+AJxVUlVBYf1 +UUrJaoXfn4G4c3fNrEr08VbIWNOi8UlYPVcjLfysjwan5h/inp+AbdruNuqb +DNDLZHjeiPEHcE/maqgJDXDIY4Fbj+wYaNwLXbygywADbciNZ3xHYflx2Y99 +LBZq5Btf3tw7DHJvE6bz/VmoXC8xlYz+A2vl0jsOSlgYcm4g54pmP3iHLl5a +Md8QYy7Jh+g49sJaUdq5OQdDjN+ylNJ37IZIj5QmswxD3DfDf110qh14TTGw +9aUhbl2t4yXhtcCWi5MaygZGeE/4JV/rWjOky72pLeUZ4YWNUw1ZpU8hkdV2 +xaXECBUyb5xoe1IPb4bXu7TRjHG71uCJq7q1YEWjfCecjdFno3Vgg1oNWDUw +cmWExkgOq3j/ubkSLlvyH9P6jFFoHNN0r60MHrg8lf3X0ARTb1/f/tC5GMpr +bhSG+ptgWPjM6g+77oNB16zF21ITTD/vVtVnexfWX3Xqdf1qggHbCpTtvudA +HV3XO8uBjVkvstrMlmbDF/03aoMpbAwsc393RekG6KeZmzxuZ+PuXK1jboqZ +EFY6bD/ewca7tq4LVk6Joan7qq9eFxuN3FxXGQ6IIcJAKSeqh41TVdf9yd/F +0FI8Yrj6FRslhX/UDfqLIaYjy6B4hI18zY2n6M2XYVhbQ/fWFzYK/9t2uz7r +EuTlzGgI9DlYr0cUy/NFILmz61u2AQdTCjVKPfeLoC6/bKiKxUHBXppfnYsI ++oqCyz4ZcVA9iv/0roUI1KrHd3mSHNyKXYWzHzMgonNEvHI5B894JQ6dD88A +R3o3c9iOg+KS9+Tu5Asw4ldhanuYg+Hhon7TdiEkh56sCfHjYKV96tF/6oVg +FWu747Y/B0nfeddulgvhzI3nkQt5HCxYm/HE/ooQiM7+p52BHAxIrzyg4CME +VztFP24kBz/PjVhET6ZBua7HrYxkDtomqLnKM9NA0PpVZ6SEg5oqaSurWCkQ +37RdW7OMg87dD8PDlFIgrjHvpw0SDp56O9hmO5kMZ6rd1K9UcLDf0+nWwoZk +iLxbQnet4qCJvP5u7pFk4J3lTkgaODizvifRWZIEW5e/lJ7r4eDkCg/BOo9E +WJJeGWRCI3H35MTBE38LoIn7+yqcR2L7fwrVj1YLIMa+4rvbfBI37HO34BYI +YGy27HyCDImBz7UykgQC+MOzKPs9ncT90nSWzwYB+JvdaS1WJdG98y3TvSwe +KhtFy5FF4oeGWg0y9xzspR2bcLMncXX5kUMlebGQP9jhI9hEotDmzMQacSx8 +lq7pqHAgMWlgurNZEAuX0mQrljqTeHVNSyzhFwstBpdPvnQhsSLSJ9yBHQub +NtYoeLqTmHqmdXLgdgwsS1BmHuKSyOqrXTVUdBZkNe5uDhGS+PMj1yNOI9Gg +2CmJS0sn8VWNwf7EF9GgIq6rKbhAYrCoyr6zKRqWMvssh0UkynYXdJ0rjQYL +U1WdXZkkXgpv8Nh+Nhr22IW+t75JouUqTkoyMxpKgm2Tv5aSmH9y1fcjB06D +V/uL5rPdJDLkj3bKTEdBdWxEkLiHRF/x00nVgSggVizRevCCRIExJ/nn51HQ +KfptX18vibUrb8mmZkfBZre/31kPkLj+rtocbWsUWL2oVxgbJXHnPPHVhMIT +QO9/YOv2lURF+wrO56BIKHh3TmKqR+ErtWhDZ+NwuJmbKOfBpPB0dGmrmXo4 +iL3Sdgr0KTS23N/PpIVDfJd4YohFYbi/6L15Txh41RWYX2dTqEi8zJpJDoOf +rrTmqv5CYQD1agf1JRRinPUuTdlR6GKbZ9fUexz25JWF1fhTWG+oPjbYGAyK +dt6pPUcoVBhjSfUqg0HSu+j2Jy6F60+ryR/MDwY1Vb9ONp9Cn5wKkXJKMEhD +tVekBVG4zC7DsndHMFhtPD1x4ASFXaOxVl4DQaD82vHogmQK46pUr/XIBEG1 +Zq+3/QMK/XNXlSn7BsLr4NVO0UUUxgs6xm3cAoHWdtHiYTGFK7XoC487BQIK +t31bVkahkv1+Kd08EP5Qlop0KikMO1W9/95MANTJFzd+qqNw8JXp89mkAJDO +xptnd1G4ws80PeM0H0bchjX7uimUD3l2PeEQH+jltl9/ekHhqTtP/NO38MHx ++Jw0uZdCuxN7514RfHj6McgrYoDCz9a5Ad6/H4Xnb/dlbH1HYeM6xma5WR6M +OT2MTHz/o+98NMuinwfKeUu8GsZ+/HOoS8pt5MGWw21maz9QaPTo4gZdMQ/+ +GnSUsqcoNH/cu9vThgfjtrmF3tM//MQEBT0jHqhky2Rcm6GQr7tEbXwhD7Ye +qD6g8YXC2emCaekrLhyrIRxcvlKoUWdd/peUC0K9CLOEbxTu2FJ4efQBF4pO +dmo8maNwUvZd0uJMLrT0Wn75/p3CAbInbkcMF/4HN9NITg== + "]]}, "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->{9.00000000000002, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{9, 13}, {0., 0.8990174924750326}}, + 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.9920757239569855`*^9, {3.9920757940890045`*^9, 3.9920761091225967`*^9}, + 3.992076301642761*^9, {3.992076368743923*^9, 3.9920764397626038`*^9}, + 3.9920765522906075`*^9, {3.992076629673212*^9, 3.9920766537846375`*^9}}, + CellLabel-> + "Out[221]=",ExpressionUUID->"95387063-6ff4-2243-9d4a-4623b1fa42a9"] +}, Open ]] +}, +WindowSize->{1197, 735}, +WindowMargins->{{-5.25, Automatic}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>1.3 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"009e3209-82c3-8a40-a760-7e4ecd835b03" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 1152, 34, 103, "Input",ExpressionUUID->"984d779d-441a-564f-824d-75ba0e2dc3fa"], +Cell[1731, 58, 1490, 46, 115, "Output",ExpressionUUID->"ab6a0ef8-17a1-8941-b698-e6dbd76a1d67"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3258, 109, 720, 20, 77, "Input",ExpressionUUID->"67269f0f-e0b0-f549-a77a-4038f973203d"], +Cell[3981, 131, 887, 25, 88, "Output",ExpressionUUID->"c0b2575d-83b5-2e43-9501-bfc0f9468d60"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4905, 161, 1465, 41, 250, "Input",ExpressionUUID->"b7ce059f-6606-3f49-a9e0-ce95b27090cb"], +Cell[6373, 204, 2581, 75, 178, "Output",ExpressionUUID->"64a187f2-5108-3342-8eb9-44d126073458"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8991, 284, 1680, 48, 266, "Input",ExpressionUUID->"d28b612e-7706-ee49-b098-1ff6d19ac41f"], +Cell[10674, 334, 2780, 81, 397, "Output",ExpressionUUID->"b5f36936-ee7d-994a-949e-613b2f4b985b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13491, 420, 1843, 53, 305, "Input",ExpressionUUID->"b07bd0bc-2475-094d-b7ea-4146a338636c"], +Cell[15337, 475, 3752, 111, 307, "Output",ExpressionUUID->"fd445648-d85a-b941-9549-d3615c6a0746"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19126, 591, 2080, 59, 305, "Input",ExpressionUUID->"c9ecc956-1141-fa42-8147-f21123945bdc"], +Cell[21209, 652, 4819, 140, 291, "Output",ExpressionUUID->"d7186b8d-019d-cd46-a431-aa70cb962ca2"] +}, Open ]], +Cell[26043, 795, 148, 2, 36, "Input",ExpressionUUID->"3b033e79-cfc0-c443-bea0-5e05e70b057f"], +Cell[CellGroupData[{ +Cell[26216, 801, 350, 5, 36, "Input",ExpressionUUID->"9efe6a26-4fad-3f4e-9d6e-27e0e52fa691"], +Cell[26569, 808, 303, 5, 41, "Output",ExpressionUUID->"04db1577-d3ad-3b41-9130-fadbbf127e89"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26909, 818, 298, 5, 36, "Input",ExpressionUUID->"df99cb2a-15b5-0b47-a4f6-27b74e082a15"], +Cell[27210, 825, 304, 5, 41, "Output",ExpressionUUID->"7f7561ef-68a6-3f47-9439-d288e785d049"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27551, 835, 176, 3, 36, "Input",ExpressionUUID->"a1fb5611-f3b5-6245-8af6-4e0165f28ad9"], +Cell[27730, 840, 277, 4, 41, "Output",ExpressionUUID->"12b168c6-118d-c843-b1b4-a124a47d8d96"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28044, 849, 258, 7, 55, "Input",ExpressionUUID->"e4db6b4e-d33b-7049-818a-cfba3539b26d"], +Cell[28305, 858, 288, 4, 41, "Output",ExpressionUUID->"65356c5d-f355-cf43-a763-8a3935e50db0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28630, 867, 132, 2, 36, "Input",ExpressionUUID->"d10625a4-1fb6-3f4d-8f5c-fd6744a2cc20"], +Cell[28765, 871, 279, 4, 41, "Output",ExpressionUUID->"bbf953bf-6abc-b047-8c0c-6da92f890190"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29081, 880, 277, 6, 36, "Input",ExpressionUUID->"ad7ee1cf-a6cf-aa41-b16f-69f575f9695b"], +Cell[29361, 888, 291, 4, 41, "Output",ExpressionUUID->"2836f8e5-7061-6548-a77a-aea71fc2a892"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29689, 897, 258, 7, 36, "Input",ExpressionUUID->"216f83ae-e48a-1b41-a7b2-acc9b400d13c"], +Cell[29950, 906, 289, 4, 41, "Output",ExpressionUUID->"5ba88409-d125-4445-a96d-37d130b2fab8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[30276, 915, 376, 6, 36, "Input",ExpressionUUID->"b434072c-f5c4-6447-b47b-7d3a3a643eea"], +Cell[30655, 923, 156, 2, 41, "Output",ExpressionUUID->"59c357fe-858f-ed4a-83ae-1a6160942e76"] +}, Open ]], +Cell[30826, 928, 173, 2, 36, "Input",ExpressionUUID->"1935e637-3724-824c-87cd-00d2f710210f"], +Cell[CellGroupData[{ +Cell[31024, 934, 378, 6, 36, "Input",ExpressionUUID->"7fa441ac-4845-2444-8deb-6f46879ae66e"], +Cell[31405, 942, 155, 2, 41, "Output",ExpressionUUID->"db1b66c0-8d24-534c-aec9-a08e81201d62"] +}, Open ]], +Cell[31575, 947, 173, 2, 36, "Input",ExpressionUUID->"14ffdd04-4daa-654b-9670-b89fb359bf05"], +Cell[CellGroupData[{ +Cell[31773, 953, 129, 2, 36, "Input",ExpressionUUID->"d12b3ab2-45b8-e846-b98b-9d0a210376f1"], +Cell[31905, 957, 275, 4, 41, "Output",ExpressionUUID->"694fb666-7c5d-6b46-b064-cd4fb446f944"] +}, Open ]], +Cell[CellGroupData[{ +Cell[32217, 966, 129, 2, 36, "Input",ExpressionUUID->"cc8311a9-855a-384b-a11e-1c7a8ea58566"], +Cell[32349, 970, 272, 4, 41, "Output",ExpressionUUID->"77f647fb-6d8a-194a-84d4-0e8bdd31f3a3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[32658, 979, 2019, 51, 205, "Input",ExpressionUUID->"f19417be-1443-8d42-84f9-76626ac0c4bd"], +Cell[34680, 1032, 19946, 375, 308, "Output",ExpressionUUID->"43d4b5db-4b82-a34d-8e0e-2398135a5e11"] +}, Open ]], +Cell[54641, 1410, 128, 3, 36, "Input",ExpressionUUID->"62777ed7-7ccf-894f-98ca-57d1179827cc"], +Cell[CellGroupData[{ +Cell[54794, 1417, 2329, 60, 135, "Input",ExpressionUUID->"b1237968-c91f-db47-bafe-6a6c03ba541d"], +Cell[57126, 1479, 6295, 90, 226, "Message",ExpressionUUID->"954e1a60-cf74-8f4d-a50f-8a960afb805c"], +Cell[63424, 1571, 363, 7, 41, "Output",ExpressionUUID->"5dfc574f-dbf7-1343-9c01-acb4d788aa7e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[63824, 1583, 2228, 58, 135, "Input",ExpressionUUID->"fd3ea9d4-8a83-454c-af78-c4730cfea45f"], +Cell[66055, 1643, 4479, 64, 187, "Message",ExpressionUUID->"2ee84372-c551-7c45-99a5-7f3b805043f9"], +Cell[70537, 1709, 315, 6, 41, "Output",ExpressionUUID->"94000403-f487-214f-a357-3d7bbcbdf9c2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[70889, 1720, 328, 5, 36, "Input",ExpressionUUID->"5f2338d5-2214-5b45-be4f-8f529fd780ac"], +Cell[71220, 1727, 225, 3, 41, "Output",ExpressionUUID->"096f5708-1147-0f4f-81a8-96d92d23d609"] +}, Open ]], +Cell[CellGroupData[{ +Cell[71482, 1735, 331, 5, 36, "Input",ExpressionUUID->"bcb210ff-bcae-1443-b4ad-e4a575fa430c"], +Cell[71816, 1742, 257, 4, 41, "Output",ExpressionUUID->"269388a0-676b-8d41-bab2-abce65c84243"] +}, Open ]], +Cell[CellGroupData[{ +Cell[72110, 1751, 2521, 63, 303, "Input",ExpressionUUID->"4ff2523c-7d4f-5947-a370-80f5570bb8fd"], +Cell[74634, 1816, 106642, 2269, 308, "Output",ExpressionUUID->"d8963d5e-67b4-8249-b3b6-e3116b9a13f3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181313, 4090, 161, 3, 55, "Input",ExpressionUUID->"b18f33b7-80c8-d647-9ade-73d9928cac50"], +Cell[181477, 4095, 126125, 2599, 308, "Output",ExpressionUUID->"b794cd9a-5f06-6944-9823-a2f92c3ea431"] +}, Open ]], +Cell[CellGroupData[{ +Cell[307639, 6699, 967, 27, 78, "Input",ExpressionUUID->"c6042d45-7676-6c49-800f-09aa679e359d"], +Cell[308609, 6728, 25387, 464, 308, "Output",ExpressionUUID->"95028175-c414-8e47-8e2e-46597001075d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[334033, 7197, 2418, 62, 135, "Input",ExpressionUUID->"3257ca40-3a72-6e47-a18b-de875465760b"], +Cell[336454, 7261, 3865, 58, 165, "Message",ExpressionUUID->"2c95e197-62a6-fc4f-8491-d8f95f87badf"], +Cell[340322, 7321, 338, 7, 41, "Output",ExpressionUUID->"d43e7738-65a8-c247-b095-a04a22393df5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[340697, 7333, 251, 4, 36, "Input",ExpressionUUID->"9f308f97-daac-744c-bae7-d3560fa4471f"], +Cell[340951, 7339, 203, 3, 41, "Output",ExpressionUUID->"fa5858ee-6186-a445-bc3e-225a50d374bd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[341191, 7347, 278, 4, 36, "Input",ExpressionUUID->"1523f3ed-56c9-e442-bf6a-8b0d193db26f"], +Cell[341472, 7353, 205, 3, 41, "Output",ExpressionUUID->"260bcdc8-66d2-4b4a-a789-a9b90cce1e9f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[341714, 7361, 1035, 27, 138, "Input",ExpressionUUID->"cab747ed-cb84-7e4e-ba84-e0de4bae2e79"], +Cell[342752, 7390, 114466, 2429, 308, "Output",ExpressionUUID->"ce369678-635a-9a43-881f-cdde53b58a76"] +}, Open ]], +Cell[CellGroupData[{ +Cell[457255, 9824, 163, 3, 55, "Input",ExpressionUUID->"89a5fa74-6f01-6943-b5a9-4ef6da22cf67"], +Cell[457421, 9829, 139489, 2850, 308, "Output",ExpressionUUID->"2c323b51-6228-9441-a5bb-0e39d635ebee"] +}, Open ]], +Cell[596925, 12682, 242, 5, 55, "Input",ExpressionUUID->"4a5ddd52-c690-354a-8f4a-29e1547c8fab"], +Cell[CellGroupData[{ +Cell[597192, 12691, 839, 23, 78, "Input",ExpressionUUID->"f9e7e8c9-0d48-844f-8932-8dc242714679"], +Cell[598034, 12716, 16105, 311, 314, "Output",ExpressionUUID->"e9a619fb-34ac-cd48-87df-222c74189a44"] +}, Open ]], +Cell[CellGroupData[{ +Cell[614176, 13032, 2224, 58, 135, "Input",ExpressionUUID->"173389f3-1a04-8144-b644-6242c726094c"], +Cell[616403, 13092, 3543, 53, 160, "Message",ExpressionUUID->"4e79d79b-8a51-4742-b9a9-5679f28d7b00"], +Cell[619949, 13147, 342, 7, 41, "Output",ExpressionUUID->"c1b5c169-a14d-574c-bc44-d7920ec8763e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[620328, 13159, 484, 8, 36, "Input",ExpressionUUID->"fb2f4610-f9af-7646-83db-aee0dc11e3ca"], +Cell[620815, 13169, 456, 8, 41, "Output",ExpressionUUID->"b8892d6a-b3a7-514a-ab28-d8f2bb85ca22"] +}, Open ]], +Cell[CellGroupData[{ +Cell[621308, 13182, 483, 8, 36, "Input",ExpressionUUID->"fc2d430a-c5ca-8f47-8093-6506a1b91783"], +Cell[621794, 13192, 492, 8, 41, "Output",ExpressionUUID->"a82ef174-2523-bd47-93e1-cbc3a3a55955"] +}, Open ]], +Cell[CellGroupData[{ +Cell[622323, 13205, 2617, 66, 332, "Input",ExpressionUUID->"44d47a15-a0d8-c245-95ac-48359d9c9ae4"], +Cell[624943, 13273, 24127, 520, 314, "Output",ExpressionUUID->"35e37fc9-d740-c24e-8fca-8ca671fd247d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[649107, 13798, 169, 4, 55, "Input",ExpressionUUID->"8e7fc59d-e930-4546-bd23-1735ec9df535"], +Cell[649279, 13804, 39035, 788, 314, "Output",ExpressionUUID->"e1055a35-0ba2-7440-a5f1-1aa601f4f3a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[688351, 14597, 1028, 28, 78, "Input",ExpressionUUID->"06bd140e-882f-1a43-ac6e-f81b725f742b"], +Cell[689382, 14627, 24226, 447, 308, "Output",ExpressionUUID->"f8fcd9a6-66f2-e54c-a221-39afd2e3a6d1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[713645, 15079, 2594, 65, 159, "Input",ExpressionUUID->"f15716e0-ba3a-184c-9e61-4429edd626d5"], +Cell[716242, 15146, 3789, 57, 183, "Message",ExpressionUUID->"ece38aba-7832-ca49-8020-f5e8a18bdb88"], +Cell[720034, 15205, 476, 10, 41, "Output",ExpressionUUID->"e692359b-eb1a-d74d-9cd1-d465c3ce8fb1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[720547, 15220, 558, 9, 36, "Input",ExpressionUUID->"acca64dd-115b-3449-a6ef-f2d70f4be4aa"], +Cell[721108, 15231, 484, 8, 41, "Output",ExpressionUUID->"0c5fe048-04ed-c64c-8d0f-ac40daafc3c5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[721629, 15244, 661, 11, 61, "Input",ExpressionUUID->"0723e435-4e7b-764f-b2b2-d46d069a19ca"], +Cell[722293, 15257, 406, 7, 41, "Output",ExpressionUUID->"9eac5b73-7d63-9d41-9210-139e319f3e4e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[722736, 15269, 2902, 74, 305, "Input",ExpressionUUID->"418e109e-98c0-4048-bee3-982d843c6f5d"], +Cell[725641, 15345, 39983, 847, 308, "Output",ExpressionUUID->"59837e2f-b2ee-744c-b953-7793b424a8ee"] +}, Open ]], +Cell[CellGroupData[{ +Cell[765661, 16197, 208, 5, 82, "Input",ExpressionUUID->"4793b8fe-e4a9-3144-ad63-4921c0e1d8f6"], +Cell[765872, 16204, 63170, 1251, 324, "Output",ExpressionUUID->"95387063-6ff4-2243-9d4a-4623b1fa42a9"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/h_146-94_Pu240_702-703_фитирование.nb b/templates/P240_2-51_YakuninDA/h_146-94_Pu240_702-703_фитирование.nb new file mode 100755 index 0000000..f37205f --- /dev/null +++ b/templates/P240_2-51_YakuninDA/h_146-94_Pu240_702-703_фитирование.nb @@ -0,0 +1,24451 @@ +(* 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[ 1161970, 24443] +NotebookOptionsPosition[ 1151302, 24252] +NotebookOutlinePosition[ 1151757, 24270] +CellTagsIndexPosition[ 1151714, 24267] +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.992080184956051*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"24af5da4-8e1a-d94b-9dd7-dbdef062e25f"] +}, 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.992080185018921*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"79c67680-8b75-ba45-a1b7-0a597bc79b16"] +}, 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.9920801850389633`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"5342021b-1033-7b41-8e78-c88b29b165c1"] +}, 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.9920801850575066`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"43760380-085a-3046-9f60-d6c350908cb9"] +}, 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"]}]]}], ")"}]}], + "+", + RowBox[{ + FractionBox["1", + RowBox[{"32", " ", "\[Pi]"}]], + 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"]}]]}], + ")"}]}]}]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341376917*^9, 3.9919640822778645`*^9, + 3.9919650529736423`*^9, 3.9920801850805206`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"29aa7138-9299-404a-8f91-97c3b5d013cb"] +}, 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"]}]]}], ")"}]}], + "+", + RowBox[{ + FractionBox["1", + RowBox[{"32", " ", "\[Pi]"}]], + 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"]}]]}], + ")"}]}]}]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341392933*^9, 3.9919640822888775`*^9, + 3.9919650530016823`*^9, 3.9920801850925255`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"a88d600e-3c08-1d45-a15d-6de34fb244cc"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{3.9917077685737076`*^9}, + CellLabel-> + "In[362]:=",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.9920802233383408`*^9, 3.9920802235112057`*^9}}, + CellLabel->"In[7]:=",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.9920802694691143`*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"edec7851-e2fe-b34c-ba8c-2c27e7cf738c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "146"}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.9919640953047657`*^9, + 3.991964095496088*^9}, 3.9919730324857025`*^9, {3.992080228915823*^9, + 3.9920802298471394`*^9}}, + CellLabel->"In[8]:=",ExpressionUUID->"24bf6fdb-f0a0-774b-a5d1-1f910c97a298"], + +Cell[BoxData["146"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9919640965938797`*^9, 3.9919650679796085`*^9, + 3.9920802695178413`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"95b97c69-6c13-8c42-848c-3b9218e2ce6d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[9]:=",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.9920802695402336`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"22e5a903-bbd5-c04d-9efd-2a9b4d852d75"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[10]:=",ExpressionUUID->"18b7ff08-61ef-0a43-a3b6-f39456c5d3bf"], + +Cell[BoxData["0.5467500000000001`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9, 3.9917078282275677`*^9, + 3.9917123414253197`*^9, 3.991964105132374*^9, 3.99196507082041*^9, + 3.9920802695572777`*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"bc8abb20-a9bc-e442-b277-c69265041ffc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[11]:=",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.992080269574293*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"fdbbbc57-9869-a04c-8059-b93e7adc2132"] +}, 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[12]:=",ExpressionUUID->"f761fcb8-28f7-6340-a8c9-04643afe677c"], + +Cell[BoxData["6.108139416678866`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9, 3.9917078282706223`*^9, + 3.9917123414384117`*^9, 3.991964105158039*^9, 3.9919650774986343`*^9, + 3.992080269590317*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"4d0fe716-55c3-8545-a8f2-846aef8ddab3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[13]:=",ExpressionUUID->"eb02623b-c429-f44e-955f-4ce148f45177"], + +Cell[BoxData["5.274329694780558`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9, 3.9917078282785244`*^9, + 3.991712341447321*^9, 3.9919641051782207`*^9, 3.99196507853343*^9, + 3.9920802696062965`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"49cdc982-2bd5-2546-8fb4-51be0abc3bc4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.776"}]], "Input", + CellChangeTimes->{ + 3.9917123951294365`*^9, 3.99179305435186*^9, {3.99196410971159*^9, + 3.9919641153565598`*^9}, {3.991965091938593*^9, 3.9919650927835865`*^9}, + 3.991973034922682*^9, {3.9920802424061317`*^9, 3.9920802527352333`*^9}}, + CellLabel->"In[14]:=",ExpressionUUID->"5a7643d0-24aa-4445-a07d-8c03ae610a22"], + +Cell[BoxData["0.776`"], "Output", + CellChangeTimes->{3.992080269610302*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"272ce735-8aca-5c4b-889d-e36280a4ae81"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.581"}]], "Input", + CellChangeTimes->{ + 3.9917124038115807`*^9, 3.991793052797516*^9, {3.9919641207252083`*^9, + 3.991964121458187*^9}, {3.991965119761894*^9, 3.9919651201266823`*^9}, + 3.9919730365316715`*^9, {3.992080248063431*^9, 3.9920802506503544`*^9}}, + CellLabel->"In[15]:=",ExpressionUUID->"0d6c01d9-da94-5e40-a1b9-b6cc52ad8d72"], + +Cell[BoxData["0.581`"], "Output", + CellChangeTimes->{3.9920802696153336`*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"55f2cc96-07e5-9142-917b-d6a538467520"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[16]:=",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.992080269634321*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"e1cf06c1-d62a-3f45-b39c-6c2b90bd80db"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[17]:=",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.9920802696523075`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"6801dedc-9aa7-184c-8e36-cea59050084e"] +}, 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", ",", "12"}], "}"}]}], "]"}]}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{{3.9919641474075165`*^9, 3.9919641522943115`*^9}, { + 3.992080286803356*^9, 3.992080301002556*^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:eJwVz3s4lAkbBnB2NZXsVErJeYb3fVOhTPKleB4V2e3gUBRKg8hpSEPTRBpC +EksGI1NT7SpKY9Fp0aic1nkXX6K0lBwSU+1KEvrm++O57ut3Xfcf98PwCXPx ++05JSSlNcf/PLWrdNCUlHXy9rcot95kc6FURczKUdXBlYd7q1k45dPMWqRh9 +r4OaSeZ8ZYWP9m9XdqDp4MXPtFP+/5XDlfL7X9PUdPCtUaLeqjY5TAdkftBf +oYO+HZ9OixrlcL/W8TmY66B7jjZnnkwOq0/XSU8f1sF9R1Q/mF2VQ8yuHn9u +mw4ePa+mPbVfDp+XXG4wtdRFh8ueqZ6qctgnMd/9LlcXYY9If13xGDDiP7zR +nquHMpf1swXWY7DYx51YGqKH8/XqTec/GYVg8QhP0K2H3COvKl2MRkGa4zQ6 +tk0ft1Im5juPvQONn71VDW/q4/aTupyuuyMQEbZLd1DVADc6MoI8mt/CByEk +S6wN8LcG8s4P3cPA1tJJ2hdmgM1ufS+624YgoVUt7afrBjhPtIx//uIgyGbb +g649M8DZpzTxpNcA3DogdTSnM3BAaTjYdLwfknWO1VZvZWAp7fCFipjXELNf +bVFZJAM/pRQFW2q+Aqqq3He4kIEGJbreG3V7oT/fJiXqbwb6Wry4/962B/ZW +dMocNJhIjSYsm7Hqht/XuguW7WDiqp0WdH92J5gxS5Y7nGKid2VCiOuLDvC0 +1f39zh0mNmcbeN12bIPcHi+TM4NM3HFOf/MX21Zo6U5m7dE0xKgtmpF1Bxrh +nkrTloO7DdGsafj8yow6KC7sI5sEhvidz4vN2aHVwBaoLuU+MERuZINvRfhj +UHmgl6E9ZogRX7XsvVsqoCJw3gClb4Sve+l2ZSUPgPqJZhvqaoQBZ/9OGui5 +AzdudIdrJhlh84t33zJbi2GFn4hVXWaE5yaalhJRt8HWOXA2/70RetR+2fXD +43yILlsk+cAg0KyBvr5AJQ9CHJvtufsJLFFeEDHn0lUI8z5Y436ewN9jLUNW +9InBxlHEZqQQ2FpRaTrULAa6ddv0sMK2QdD0pEwMRZp2Fid+JtDkckv4ZaEY +5H+uuZF9gUDXeTzh2HYxhNhMn+0QETiru2bVSGkuBGmLd+zKI/CQdm2GbsZF +8Hva1Y4yAuMHqmuquCIYXWK5b0UlgYU1TjWrfERwzCXrxUeFt6SqFFxxEoHg +T+c3vzwmMJE+8fk3ExHkNjR+UqkhsOJe86PA4Wz4S/ZQs6GRQAejVjMrdjZY +3bjq5dyl2Jd67e5i9yxYxAsY8f5Xse/nk99qOUI4u0BrdvU4gTllfda6bCHM +XmlaPKEw9wf3oVMuQhitN92YPEHg3EKhj6elEOq1Pp0t/ULgq+PndyYqC0FQ +GUt8r0Rizk1xarYoA97PEbPz1Ei0CH8cc7zxArRmtnQOEiTG6mr9MfZjOkzz +f21/QpIY927cLco6HVYd4rdeokh8vT5ni/q6dEgwJupcjEk08aepH9BMh82V +0fcq15B4pvPHAllrGhQOrc7MZpH4sHBIfQM9DZKskp3tbUm0P+6ZJMhNBds+ +++brB0hMuPDKrWwgGSZC2Y3RB0nszhvpi25Lhtsz/Po9XiRysgaOOsqSQVNb +WqPMJlF6zpnHyEoGuesS2UFfErNTlT/w7JIht6lXqhFE4tJC2X8GCs7B+P0T +aQk8Eq3j+l/xTiZBQeotF78MEheaTHv9ZJ8Iu48t7zMRknjTPeONZEMijLvF +cyYULjvj5DxLJgIaeCWdzSJx6E9J1cu5ifCsdHHlzRwSWS/nbNBrTABa1wlj +uYTEKd/SrxKnBPBjblfiFZK4orWwk+MXD8wH/dKkGhK5h0r9K2/HwenRCEOf +WhIdLjzK50vioIdBu7ipjsRQxqr7kB4HWSkr4+V/kGhX9J32KDcO5vlwPPY2 +kTjcdpSo3RQHcrXPNIN2Eh+luLmGt8RCuY8q+0EviSKWnBY9KQBn+jr1wSkS +t81LseQ9iwHJRY3lJV9J7IdDRZwnMTBqNKUdPU3ijfr2Wm5hDCRuqibUZ0lc +9tfXW0WnY6A8wHWjjTKFke9y9P5eGQPMaj47ey6FQYN0O62YU/APr6rIfimF +9KiJLhkrGoSv9uzIN6HwsPp2p6gGPgQsi3YJNaWQNpix2e8BHzbvyHO3MKPw +UHRLted1PgzeHT9SvZbCJwd8BaGxfLBKyorvZVEYFnP9sbEVH/pMn8mWW1Ho +mzH75r30BJhGe6xNsqfw1zwWUyDhQcMyb43AQxQ2GfVeHrsWCXsvSVVs2RTu +fvnlIfdCJPQxpv7V9KawTSreR4uNhMk1wvZ6Hwp7i+nPndiRQG6tTVvpTyFv +QcDCk/qREB9mrDocQqHsr04zjasRYFP/cdb/JIWbSwg7s1tcuMuPGz6cReGd +jQ0dC/vCYa0r84hptqJ/RHnn/o5wuL22auCzwpMz5nU368Ihb0i5PzmHwrti +q/wj0nDIdI19WSymULu8K3h3VDhErBO0T19T9JvYqVWa4cB6e+phZhGFUuVp +gZbHUSjdz0+v+YPCHTy3bXEjHLB8YhxzvZ7CNEre8LCdAw+NnwcnNlC4ScJl +qFZwoHbKartDE4VaicYLXp7nQNel6ZmmVgofsUZNfEw5MNN3OrjjKYWXG2y/ +9hwPAYfARPvX/RRC+oTjOo1gaGnbsL76DYWS27jt1rcgcLEaYuQNUBhVfN9+ +/UgQeC5wmPEbolBdSYBRj4IgVDr/7tsRxX85mNERFASZH1MYHz9S+GWCRv5S +EwgrPKwXtv9D4QB3pJ4oDgRJ1dh06b8U6kzOLSgTB0K+cHdXxCcKNS52Di3m +BkK5xaK0yUkKjTpYqmeYgWAjeRzd/YVCK+aS1WfpgVBNCw8qn6LQeuckUzwV +AM3P2uyipxV2GPf7pz0AnDGOdXCGQsqXlWPxKAA6C8wZNrOKvT31YUmFAeCx +uJ+u/41CtXF234goAHr5wulvCsOZkpcH4gPgfwidEbM= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVz3s4lAkbBnB2NZXsVErJeYb3fVOhTPKleB4V2e3gUBRKg8hpSEPTRBpC +EksGI1NT7SpKY9Fp0aic1nkXX6K0lBwSU+1KEvrm++O57ut3Xfcf98PwCXPx ++05JSSlNcf/PLWrdNCUlHXy9rcot95kc6FURczKUdXBlYd7q1k45dPMWqRh9 +r4OaSeZ8ZYWP9m9XdqDp4MXPtFP+/5XDlfL7X9PUdPCtUaLeqjY5TAdkftBf +oYO+HZ9OixrlcL/W8TmY66B7jjZnnkwOq0/XSU8f1sF9R1Q/mF2VQ8yuHn9u +mw4ePa+mPbVfDp+XXG4wtdRFh8ueqZ6qctgnMd/9LlcXYY9If13xGDDiP7zR +nquHMpf1swXWY7DYx51YGqKH8/XqTec/GYVg8QhP0K2H3COvKl2MRkGa4zQ6 +tk0ft1Im5juPvQONn71VDW/q4/aTupyuuyMQEbZLd1DVADc6MoI8mt/CByEk +S6wN8LcG8s4P3cPA1tJJ2hdmgM1ufS+624YgoVUt7afrBjhPtIx//uIgyGbb +g649M8DZpzTxpNcA3DogdTSnM3BAaTjYdLwfknWO1VZvZWAp7fCFipjXELNf +bVFZJAM/pRQFW2q+Aqqq3He4kIEGJbreG3V7oT/fJiXqbwb6Wry4/962B/ZW +dMocNJhIjSYsm7Hqht/XuguW7WDiqp0WdH92J5gxS5Y7nGKid2VCiOuLDvC0 +1f39zh0mNmcbeN12bIPcHi+TM4NM3HFOf/MX21Zo6U5m7dE0xKgtmpF1Bxrh +nkrTloO7DdGsafj8yow6KC7sI5sEhvidz4vN2aHVwBaoLuU+MERuZINvRfhj +UHmgl6E9ZogRX7XsvVsqoCJw3gClb4Sve+l2ZSUPgPqJZhvqaoQBZ/9OGui5 +AzdudIdrJhlh84t33zJbi2GFn4hVXWaE5yaalhJRt8HWOXA2/70RetR+2fXD +43yILlsk+cAg0KyBvr5AJQ9CHJvtufsJLFFeEDHn0lUI8z5Y436ewN9jLUNW +9InBxlHEZqQQ2FpRaTrULAa6ddv0sMK2QdD0pEwMRZp2Fid+JtDkckv4ZaEY +5H+uuZF9gUDXeTzh2HYxhNhMn+0QETiru2bVSGkuBGmLd+zKI/CQdm2GbsZF +8Hva1Y4yAuMHqmuquCIYXWK5b0UlgYU1TjWrfERwzCXrxUeFt6SqFFxxEoHg +T+c3vzwmMJE+8fk3ExHkNjR+UqkhsOJe86PA4Wz4S/ZQs6GRQAejVjMrdjZY +3bjq5dyl2Jd67e5i9yxYxAsY8f5Xse/nk99qOUI4u0BrdvU4gTllfda6bCHM +XmlaPKEw9wf3oVMuQhitN92YPEHg3EKhj6elEOq1Pp0t/ULgq+PndyYqC0FQ +GUt8r0Rizk1xarYoA97PEbPz1Ei0CH8cc7zxArRmtnQOEiTG6mr9MfZjOkzz +f21/QpIY927cLco6HVYd4rdeokh8vT5ni/q6dEgwJupcjEk08aepH9BMh82V +0fcq15B4pvPHAllrGhQOrc7MZpH4sHBIfQM9DZKskp3tbUm0P+6ZJMhNBds+ +++brB0hMuPDKrWwgGSZC2Y3RB0nszhvpi25Lhtsz/Po9XiRysgaOOsqSQVNb +WqPMJlF6zpnHyEoGuesS2UFfErNTlT/w7JIht6lXqhFE4tJC2X8GCs7B+P0T +aQk8Eq3j+l/xTiZBQeotF78MEheaTHv9ZJ8Iu48t7zMRknjTPeONZEMijLvF +cyYULjvj5DxLJgIaeCWdzSJx6E9J1cu5ifCsdHHlzRwSWS/nbNBrTABa1wlj +uYTEKd/SrxKnBPBjblfiFZK4orWwk+MXD8wH/dKkGhK5h0r9K2/HwenRCEOf +WhIdLjzK50vioIdBu7ipjsRQxqr7kB4HWSkr4+V/kGhX9J32KDcO5vlwPPY2 +kTjcdpSo3RQHcrXPNIN2Eh+luLmGt8RCuY8q+0EviSKWnBY9KQBn+jr1wSkS +t81LseQ9iwHJRY3lJV9J7IdDRZwnMTBqNKUdPU3ijfr2Wm5hDCRuqibUZ0lc +9tfXW0WnY6A8wHWjjTKFke9y9P5eGQPMaj47ey6FQYN0O62YU/APr6rIfimF +9KiJLhkrGoSv9uzIN6HwsPp2p6gGPgQsi3YJNaWQNpix2e8BHzbvyHO3MKPw +UHRLted1PgzeHT9SvZbCJwd8BaGxfLBKyorvZVEYFnP9sbEVH/pMn8mWW1Ho +mzH75r30BJhGe6xNsqfw1zwWUyDhQcMyb43AQxQ2GfVeHrsWCXsvSVVs2RTu +fvnlIfdCJPQxpv7V9KawTSreR4uNhMk1wvZ6Hwp7i+nPndiRQG6tTVvpTyFv +QcDCk/qREB9mrDocQqHsr04zjasRYFP/cdb/JIWbSwg7s1tcuMuPGz6cReGd +jQ0dC/vCYa0r84hptqJ/RHnn/o5wuL22auCzwpMz5nU368Ihb0i5PzmHwrti +q/wj0nDIdI19WSymULu8K3h3VDhErBO0T19T9JvYqVWa4cB6e+phZhGFUuVp +gZbHUSjdz0+v+YPCHTy3bXEjHLB8YhxzvZ7CNEre8LCdAw+NnwcnNlC4ScJl +qFZwoHbKartDE4VaicYLXp7nQNel6ZmmVgofsUZNfEw5MNN3OrjjKYWXG2y/ +9hwPAYfARPvX/RRC+oTjOo1gaGnbsL76DYWS27jt1rcgcLEaYuQNUBhVfN9+ +/UgQeC5wmPEbolBdSYBRj4IgVDr/7tsRxX85mNERFASZH1MYHz9S+GWCRv5S +EwgrPKwXtv9D4QB3pJ4oDgRJ1dh06b8U6kzOLSgTB0K+cHdXxCcKNS52Di3m +BkK5xaK0yUkKjTpYqmeYgWAjeRzd/YVCK+aS1WfpgVBNCw8qn6LQeuckUzwV +AM3P2uyipxV2GPf7pz0AnDGOdXCGQsqXlWPxKAA6C8wZNrOKvT31YUmFAeCx +uJ+u/41CtXF234goAHr5wulvCsOZkpcH4gPgfwidEbM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 12}, {0., 0.9638187117108397}}, + "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" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 12}, {0., 0.9638187117108397}}, + "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" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVz3s4lAkbBnB2NZXsVErJeYb3fVOhTPKleB4V2e3gUBRKg8hpSEPTRBpC +EksGI1NT7SpKY9Fp0aic1nkXX6K0lBwSU+1KEvrm++O57ut3Xfcf98PwCXPx ++05JSSlNcf/PLWrdNCUlHXy9rcot95kc6FURczKUdXBlYd7q1k45dPMWqRh9 +r4OaSeZ8ZYWP9m9XdqDp4MXPtFP+/5XDlfL7X9PUdPCtUaLeqjY5TAdkftBf +oYO+HZ9OixrlcL/W8TmY66B7jjZnnkwOq0/XSU8f1sF9R1Q/mF2VQ8yuHn9u +mw4ePa+mPbVfDp+XXG4wtdRFh8ueqZ6qctgnMd/9LlcXYY9If13xGDDiP7zR +nquHMpf1swXWY7DYx51YGqKH8/XqTec/GYVg8QhP0K2H3COvKl2MRkGa4zQ6 +tk0ft1Im5juPvQONn71VDW/q4/aTupyuuyMQEbZLd1DVADc6MoI8mt/CByEk +S6wN8LcG8s4P3cPA1tJJ2hdmgM1ufS+624YgoVUt7afrBjhPtIx//uIgyGbb +g649M8DZpzTxpNcA3DogdTSnM3BAaTjYdLwfknWO1VZvZWAp7fCFipjXELNf +bVFZJAM/pRQFW2q+Aqqq3He4kIEGJbreG3V7oT/fJiXqbwb6Wry4/962B/ZW +dMocNJhIjSYsm7Hqht/XuguW7WDiqp0WdH92J5gxS5Y7nGKid2VCiOuLDvC0 +1f39zh0mNmcbeN12bIPcHi+TM4NM3HFOf/MX21Zo6U5m7dE0xKgtmpF1Bxrh +nkrTloO7DdGsafj8yow6KC7sI5sEhvidz4vN2aHVwBaoLuU+MERuZINvRfhj +UHmgl6E9ZogRX7XsvVsqoCJw3gClb4Sve+l2ZSUPgPqJZhvqaoQBZ/9OGui5 +AzdudIdrJhlh84t33zJbi2GFn4hVXWaE5yaalhJRt8HWOXA2/70RetR+2fXD +43yILlsk+cAg0KyBvr5AJQ9CHJvtufsJLFFeEDHn0lUI8z5Y436ewN9jLUNW +9InBxlHEZqQQ2FpRaTrULAa6ddv0sMK2QdD0pEwMRZp2Fid+JtDkckv4ZaEY +5H+uuZF9gUDXeTzh2HYxhNhMn+0QETiru2bVSGkuBGmLd+zKI/CQdm2GbsZF +8Hva1Y4yAuMHqmuquCIYXWK5b0UlgYU1TjWrfERwzCXrxUeFt6SqFFxxEoHg +T+c3vzwmMJE+8fk3ExHkNjR+UqkhsOJe86PA4Wz4S/ZQs6GRQAejVjMrdjZY +3bjq5dyl2Jd67e5i9yxYxAsY8f5Xse/nk99qOUI4u0BrdvU4gTllfda6bCHM +XmlaPKEw9wf3oVMuQhitN92YPEHg3EKhj6elEOq1Pp0t/ULgq+PndyYqC0FQ +GUt8r0Rizk1xarYoA97PEbPz1Ei0CH8cc7zxArRmtnQOEiTG6mr9MfZjOkzz +f21/QpIY927cLco6HVYd4rdeokh8vT5ni/q6dEgwJupcjEk08aepH9BMh82V +0fcq15B4pvPHAllrGhQOrc7MZpH4sHBIfQM9DZKskp3tbUm0P+6ZJMhNBds+ +++brB0hMuPDKrWwgGSZC2Y3RB0nszhvpi25Lhtsz/Po9XiRysgaOOsqSQVNb +WqPMJlF6zpnHyEoGuesS2UFfErNTlT/w7JIht6lXqhFE4tJC2X8GCs7B+P0T +aQk8Eq3j+l/xTiZBQeotF78MEheaTHv9ZJ8Iu48t7zMRknjTPeONZEMijLvF +cyYULjvj5DxLJgIaeCWdzSJx6E9J1cu5ifCsdHHlzRwSWS/nbNBrTABa1wlj +uYTEKd/SrxKnBPBjblfiFZK4orWwk+MXD8wH/dKkGhK5h0r9K2/HwenRCEOf +WhIdLjzK50vioIdBu7ipjsRQxqr7kB4HWSkr4+V/kGhX9J32KDcO5vlwPPY2 +kTjcdpSo3RQHcrXPNIN2Eh+luLmGt8RCuY8q+0EviSKWnBY9KQBn+jr1wSkS +t81LseQ9iwHJRY3lJV9J7IdDRZwnMTBqNKUdPU3ijfr2Wm5hDCRuqibUZ0lc +9tfXW0WnY6A8wHWjjTKFke9y9P5eGQPMaj47ey6FQYN0O62YU/APr6rIfimF +9KiJLhkrGoSv9uzIN6HwsPp2p6gGPgQsi3YJNaWQNpix2e8BHzbvyHO3MKPw +UHRLted1PgzeHT9SvZbCJwd8BaGxfLBKyorvZVEYFnP9sbEVH/pMn8mWW1Ho +mzH75r30BJhGe6xNsqfw1zwWUyDhQcMyb43AQxQ2GfVeHrsWCXsvSVVs2RTu +fvnlIfdCJPQxpv7V9KawTSreR4uNhMk1wvZ6Hwp7i+nPndiRQG6tTVvpTyFv +QcDCk/qREB9mrDocQqHsr04zjasRYFP/cdb/JIWbSwg7s1tcuMuPGz6cReGd +jQ0dC/vCYa0r84hptqJ/RHnn/o5wuL22auCzwpMz5nU368Ihb0i5PzmHwrti +q/wj0nDIdI19WSymULu8K3h3VDhErBO0T19T9JvYqVWa4cB6e+phZhGFUuVp +gZbHUSjdz0+v+YPCHTy3bXEjHLB8YhxzvZ7CNEre8LCdAw+NnwcnNlC4ScJl +qFZwoHbKartDE4VaicYLXp7nQNel6ZmmVgofsUZNfEw5MNN3OrjjKYWXG2y/ +9hwPAYfARPvX/RRC+oTjOo1gaGnbsL76DYWS27jt1rcgcLEaYuQNUBhVfN9+ +/UgQeC5wmPEbolBdSYBRj4IgVDr/7tsRxX85mNERFASZH1MYHz9S+GWCRv5S +EwgrPKwXtv9D4QB3pJ4oDgRJ1dh06b8U6kzOLSgTB0K+cHdXxCcKNS52Di3m +BkK5xaK0yUkKjTpYqmeYgWAjeRzd/YVCK+aS1WfpgVBNCw8qn6LQeuckUzwV +AM3P2uyipxV2GPf7pz0AnDGOdXCGQsqXlWPxKAA6C8wZNrOKvT31YUmFAeCx +uJ+u/41CtXF234goAHr5wulvCsOZkpcH4gPgfwidEbM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 12}, {0., 0.9638187117108397}}, + "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" -> {}, "GCFlag" -> 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.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, 12}, {0., 0.9638187117108397}}, + 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.9920802769674454`*^9, 3.9920803037732277`*^9}}, + CellLabel->"Out[20]=",ExpressionUUID->"9dc810d6-c12c-0d48-adde-9baf84f7b798"] +}, 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", ",", "7", ",", "12", ",", "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", ",", "12", ",", "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.9920803101701393`*^9, + 3.99208031135445*^9}}, + CellLabel->"In[21]:=",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.12801986242496136`\\\", \\\" \\\", \ +SuperscriptBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"18\\\", \\\"\ +\[RightSkeleton]\\\"}], RowBox[{RowBox[{\\\"\[LeftSkeleton]\\\", \\\"19\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]], \\\" \\\", \\\"R1\\\"}], SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"0.11979910876413147`\\\", \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"0.8047337278106508`\\\", \\\" \\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\" \ +\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[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.12801986242496136`\\\", \ +\\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.11979910876413147`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.6210328468477426`\\\", \\\" \\\ +\", \\\"R1\\\"}], \\\"]\\\"}]}], RowBox[{RowBox[{\\\"168404.7432096178`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", 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[{\\\"y\\\", \\\",\\\", \\\"b0\\\"}], \\\"}\ +\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.`\\\", \\\",\\\", \ +\\\"0.65`\\\"}], \\\"}\\\"}]\\).\"", 2, 21, 21, 24488269323719620004, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9917125179761257`*^9, 3.991964171446245*^9, + 3.9919651511804237`*^9, 3.992080326703388*^9}, + CellLabel-> + "During evaluation of \ +In[21]:=",ExpressionUUID->"06e69d42-b883-6e44-a17a-72d455bd2904"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.862025239162308`"}], ",", + RowBox[{"b0", "\[Rule]", "1.0900378238585975`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991712518051634*^9, 3.9919641715267353`*^9, + 3.99196515126849*^9, 3.992080326789194*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"72636b58-36cc-684a-bbbf-30e537b4e714"] +}, 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", ",", "12", ",", "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", ",", "12", ",", "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.9920803156542473`*^9, 3.992080321023403*^9}}, + CellLabel->"In[22]:=",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, 22, 22, 24488269323719620004, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9917125235776978`*^9, 3.9920803268783016`*^9}, + CellLabel-> + "During evaluation of \ +In[22]:=",ExpressionUUID->"53437993-daa8-9f43-b9e1-f8a0870ac774"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.8620332616174091`"}], ",", + RowBox[{"b0", "\[Rule]", "1.0900375079842972`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9917125237225304`*^9, 3.9920803270303917`*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"30cd62e4-8ae1-6f4a-b687-a13c823273de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "1.362"}]], "Input", + CellChangeTimes->{{3.991712542905905*^9, 3.991712545766283*^9}, { + 3.9919641812561817`*^9, 3.9919641814730263`*^9}, {3.991965164548561*^9, + 3.9919651652528534`*^9}, 3.9920803386412296`*^9, {3.9920803730681324`*^9, + 3.9920804408375397`*^9}, 3.9920804756832542`*^9, 3.992080557066025*^9, { + 3.9920806484568233`*^9, 3.9920806936782017`*^9}, {3.992080740930834*^9, + 3.9920808616870384`*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"b936a356-288b-fa49-9ce3-75db208c644a"], + +Cell[BoxData["1.362`"], "Output", + CellChangeTimes->{ + 3.991712577539974*^9, 3.9919641835911674`*^9, 3.991965166337839*^9, + 3.9920803488245525`*^9, {3.992080401227133*^9, 3.992080482589113*^9}, { + 3.9920805611366825`*^9, 3.9920805886262245`*^9}, {3.9920806372867603`*^9, + 3.9920806979408665`*^9}, {3.9920807348684864`*^9, 3.9920808655134754`*^9}}, + CellLabel-> + "Out[120]=",ExpressionUUID->"68a825c5-2d62-bd4b-ab58-0cad8e8154b8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.795"}]], "Input", + CellChangeTimes->{{3.9917125549495907`*^9, 3.9917125609834213`*^9}, { + 3.9919641902090893`*^9, 3.9919641942126675`*^9}, {3.9919651710886517`*^9, + 3.991965171325409*^9}, 3.992080343995327*^9, {3.992080392950344*^9, + 3.9920803951592274`*^9}, {3.9920804587844105`*^9, + 3.9920804901381836`*^9}, {3.9920805524090023`*^9, 3.992080553396963*^9}, { + 3.9920805840802174`*^9, 3.9920805848954773`*^9}, {3.992080633192171*^9, + 3.9920806409593945`*^9}, 3.992080730874058*^9, 3.992080807348009*^9}, + CellLabel-> + "In[121]:=",ExpressionUUID->"d5b02e93-37c6-e046-a015-cd95d27ec9f3"], + +Cell[BoxData["0.795`"], "Output", + CellChangeTimes->{ + 3.9917125776046295`*^9, {3.9919641919259663`*^9, 3.9919641946011486`*^9}, + 3.991965172422703*^9, 3.992080348880472*^9, {3.9920804012681465`*^9, + 3.992080493781149*^9}, {3.992080561177435*^9, 3.992080588667492*^9}, { + 3.992080637328842*^9, 3.992080698001194*^9}, {3.992080734909832*^9, + 3.9920808655449085`*^9}}, + CellLabel-> + "Out[121]=",ExpressionUUID->"c795ebff-477c-e84b-b60d-54cb7fd8a3a6"] +}, 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[122]:=",ExpressionUUID->"7cc2507c-877d-4b47-80a1-806136a93537"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVmHk8VG0Ux2csJVvMjG2GMGaJClEqpedkJyESEdkiKYWKaLFGKBSSVIpE +tkh2ipQIkSzZsszYQ4Vk673vX/O5n3vvc89znvP7/s4ZWcdzZic5cDjcFB6H ++//XbWCOF4cTgkmzPZ3xQaNIO1HDoDFFCG6C/+mCwBGUILLEK20iDHZicS+L +wtjop/THi6yfwuB4dSAgt4uF6A1SV31jCbCnWj/FMIKFPu8ZXX93PxEcNhiw +olpZKFitZq/MABFMVcs/ifSyUe6i0G/VaBJIXf3JaSE0hvKtR3VF94pASTRL +cch/ElUZfNZy7xGBd3xVz/o7Z9CBNYVa3ZuiQPI/sGLa9ws1o8QfcVvEoG2d +DH2eYwHtkL31Kr9BDHBq2rioA3+R0Mf5lSM+4mC5Xl/tUPoKWlg+N3NaXAL8 +kn90S538h8zmbU+ur5MA96y8NdNmHITdbvPx8iLD0+05B3654uFDobWqKYEC +/utcPnFdw4N/ioVX4RsKUPen/14RxYO6hKN1pIMkvHW7KslhioNzlkPvx4Sk +gOs47dlrnTV0dedEE6lSCi4PHCh8GLKM4lM4r7+y3QSrVxwDLrxZRHKtMa+6 ++KSBwvEqMa9wHpXfVoo9nysN2z31jjbO/UIiCy9CJxkyQBO/Gh53dhaFr/fl +crwqA2NK53uleyZRwPemTuFmGWhz9EnszB9FO5L6pkLosqBRfO/uk6ph9JW2 +3fSEvywMM3VeabsNoL8XBXi8P8nCzjHi4KeAHvQtMxVvSKVChNpk3KuHHWh/ +Wo2JtTcV9og7BlR+/IKiPehTrTVUcL0R6Xl3/2f0gKLZwC8hB0ldhxaTbtSj +rdGjKwFucmC4fnrBlfwe+bJ1PUveysHQUuxWHno1MuBQUpcn0KDi+Wy8iFoF +Wj9jfRjvSAPt778Ur+sVo4AqeJFcQgNefnaN81ABunYkz9JzAx2mwy59reLP +Q7uaOnU3ONBh02WZF0vimahXRDuEp5gOZ6iSf7fYpKF19D2iB9YzYMXWfDej +MgVNio6N77NjwPH+OScRwgNk8Vma4JXHgKtqe2ZlVRJQtuWDcMF/DJC2etF2 +VPsOqqppAQ8LJngH77udGXsLWczdPrQ+nQnDfw9mSOiEo8bo0KV//5iw8Vbu +Z2OfYHR0n4SCi6kQ6B6LehmOG0U/Oigv5v8IgZHAdwXhf2xUS3Z4G5giDIn2 +u3a0MNiIb97rcu4BApj5DnAbpbLQUmBQDfcYAYTzrOoW4llIvuTrk2PRRBj7 +omRpvZeNEu+5ib3YRQLZqHM8Wz6PoJfyK5J0Ngm2GUrQbiWPo91mNu8hUgSa +Q1j1rjd+IBxtlfOYiijEyT4e0Tb/iTiHVBa+14lDVvtVQzOxNZS26KJQek4C +il62uJBNcDBVnThdIUkGkemdC7lb8JAue8/CoYYM3dZtVo8C8ZCi0GXG4UYB +02tNklRrPHT32ow8FpIE6s4tS7ercHBkN1VIvVQSvI88eeoU+g9d0h2pX3OR +gou/3rGCZ1aQy4Y5KdEHVPBv1tG/QW1FIu9VbWZ+UEEm4yHhImpEzu1xw7oH +5CCuvex8llodMlMXK5aMlwO3/juJOuveoYHfZe3nx+WgRnS+l0p5gzIWa3VE +1Gmg6j60S+ZJKartaFo1vkWDRVZfEP9iIbq+YRG3fpAGyccd+Z5K56PuGC0T +jZ10yHs2l906kYUift5i80TRQWsgX/lxUjryfLi/ifadDsxzLkUFF5+ixYdC +uDcqDNA+ObdllvwIyfzmvNZ5gwFTyU7fTIITUcBd20PQyYCvjOEdvdQ4tFOg +yHm/AhO04WGH5LkYFNGjVFd2lQmcRkk7OBoikJAmbxpnGxNu2U7ecq0IRfaC +YWTVzUIgVZ0ga3pgFCUWZ/+1bxQC1Rm994BG0LbEnJMtPsJQ79sLuy3Y6FrE +Q596CQIcvr8aV1/GQkKMFuk3FQSwvVmwkoLxdGWx78iCCxHms1ND/v5jIcHR +eHk2HwnaXpoeAKMRpBS7LnxrGQnmNtHllBrH0IWjsje2OImAQuAvP4rvFPqu +NiI3tE4Ufi3SZmeTZhGvRdzlpMficPTNnHy+4yo65DfJT9CWgHWK6fu0uHDw +2GZZfuinBBx/U0fgx+NB1Or1iFsSGVYM2kZ9ffHw6pyEVqYGBaR4vGJlz+Ph +RZXVVoUxCshKjs8V/cBB3WbN1463JEGdltA6wYeDX8asut97peCBPLqQ/nAV +fTnao7Y7jAorN5I5JX62oi/3s1Ptu7BrnmX9ntdNKMB3skN+mxyYCWlbj1l+ +RG+c/30zvi4HKw7Bh3M21KLsqYBUUrscpPPe17h85C3yXf2LpBk0aFnvqN49 +XIZGHOOYGT40OOQTVa8kXoRwzsntrY00eLhAPRe3nI+yvS6bW0rTsXia1MAz +B9l/VxG9eYkOkiV3FcNbn6P0Y9UZop/owIMou6IcU9H1QRofTooBHYef/Nn7 +5jFax72gGuHFgKerOdRHNffR6fwqpWPvGLCz9ZcohRaPzhdkXEonMeHye4uZ +SPNYRDPBhcS5MWH1Lt9WEj0KqTxo9A2tYELi5HWr9j83kOZChHWEnDCcyS83 +elnNRtYPSRTVemHQNx+giK2yUOIJff+7bpi/BopJsu+wEKtvx0kjIhGCFSKP +6+aw0FGfT9MVxUTo8RJS8A1hIzl9De5zTiR4cWPbfMrJUaRc8zNfSkgEBh/M +bKwInEArHq1e9Flx8HDPOyn7bg0tXxrSs38gAYL6W9UT7+BAfbPaq3t6ZCBF +azWvM8aD2qRvrdUEGc4jh1PngvFwm53gaBNHAUe9qk0m+/DAu2yXIrJHEuY6 +NRT7b+Jgekzvc+A4E1oz54Z6Y0OQ85/KOxIkIdhscah21GEUTTMvPkkoEgLl +ZtmcPfYjaKjDvMTHSRge3TvfvXqWjXa3Fyx0cBOgroPU/PcjC5EXLzVTnhOA +WtpuQ7/JQi73HXNrzYggUPTRZfsoC30UzC7gWCBCYrbC5QHhETRdG6nxMo0E +CS+Pfi52H0N3rEJGZExEQCWKIFv6ZxIZv+1+xfgpAm6Zmps1NGfRLUGdcp9I +cUhSvyThwr2KqOXbru1XlIDfrvtf+5b8Q74Z2XUXeiXgl1VMQc4YDoy9tZU8 +bpBhakOWANUTD/sI6uUrTAqIxPDXkDF93FGyNJlpo0DVnORdCicecLJf1vv4 +SILjgbrHTxVxoGw+rOvBkIL2Oxt3Xv+1isJXjbUMrlLhx62V6nc2X5Ay17je +/SYqeB9zqB3waUaCDQmmFDk5sDmmyBvx4yNauOw96XpBDuYeVVodjalFhHGn +iJEGOdgRvMoKKX+LBq6TNGiSNECy1HsrEeVoIcOn4usZGtw+uGGSnVOEIHYa +FdfQoFP6UG7i2QIU7xRn4UyiQ8KTeKrRvlxkdDRUsd6dDnZX7Iqo3hmoujgo +YWM1HQxT+rWs+1KRJmdejAyBAe+HH2lNGaWgRYGZ206nGLBBlDCjdyoJ2cNM +yslSBvyen0jxz4xHgtxPr3dvYELVtNs1m4ZY9DP8lGPgCSZcMCOmynyLQrV1 +25x08zF+6n3/vTU5DCW6mHO8FRCGFvXo1NXvbLSxt+xsd6EwcLmQRsyF2cjs +he1SigUBxvfeDVFIYqGZvB5i5ioB9OONYjamsNBbMVP9yFQiJIjf0KfbsVH/ +OfPbUYdIoNo01jQmNopm5y+5PlkiwbxStVwY/wQK2BxUyNErDgVrV4KcPdZQ +SzGtNCpUAiSvbX/4yRMHxIujpgoqZFAe3FkzooEHj3U8ArYdmB6WuhjnMT2I +hRd3516jQNeuOl5FIzz8crd9102ThNpteVODaTi4LpJZqtnPBPCXCSfRQ1Et +Cl8s30aAyhgPUdVcFuI+Iu/p+IUApzvzT/beZmH1emyZ6U+Ek3btlWsUNjJ/ +cz2lTpYEgnZZ7qaRI+iDoGGUyXoyHDJSk3UWw0P/Psajk7lk8H/Xq/nnKh4U +mhYbLMwpYGDyTkrWBfN7O4+PkX3CsG5pq7HiBAv1k1RXQq9i+nqxp+TOLRbq +5rtdNLOZCBzGrsNllSw01aEbP/2JCEuGQrLuuWxk3xMiwm1LhjsGof58x/Gw +9nnc/8gaGb7azMY+xvoHLq1LE+tfUGCjT9n+GAU82FaMsN7OMUHt6oxKGkcI +GnH/1szPKwRByvcj93mNIgn7Yxfzs4RAfHpEePT8CNq3kO5w8Jgw6AznLVf4 +sVGcn0ZR37IwGAwWj6a1sJCMQwPdMJkAK2+ojScx/SeN03qy9ImQJzF3cKWH +hdKpu3yEJ4nQcLV5/+kFNmq2Mxb/dZ8ElxyEK501xtDTb68TKDoiYHm+fHZv +6STG7/Zl/RER8F2/P/ij6Cwydpc67hIoDjcafRWEO1ZQVE9z0RE5CdAlK5eq +RP9DbONQ0apWCTjt6pRY1YODCVyU+fkrZODfqKjz/gweAp0MfRhSFHB56ipr +5o+Hdac6BlrrKdD3YeWwhgAepKTI2wPPSMIZ9MH5GsKBabvjjSyKFFSe3XXX +VHINDbeE1x/2pYJhN0t0IfYLst+zPmnnRypYW75hPe1uRl+9zgiQNsnB5PcY +39Q99Sg2ZNuFOQ852PB3tXX2ay3ScW2/+vm9HCiI3ni1MPMWkaqflDPEaPDg +kkknz0A5Wjs4vs7dlQYzVice71gqQgPPxeYzK7HrCdNXac8LEG/vk44JQTqk +GLSd7kjNRTWxuepuLnQQb32lH/o+AzW7OAnwV9DB0YIvaJCShmikC20v+RnQ +OSUe8yIkBXndcd9n6sSAEcn98RkVSag7LOybeyEDMkk9jc4/4pFt7qaQC1xM +OO9/3ebXujuo61lyq4811n/r0uvadtxC/HZ2XelZTNiQdf654GwYqnm0q6Ob +QxgOer5oOTfDRqeXBcRyXwhDY12O3SSmh1yTsdLnBwlwTE5iW+AjFpoTV3Lv +/EWAhFIulycYD+ZcCRe97hMhVnHQytSIjcqD+80eaJLg2B/5DVO/RlBL9B7N +4RkSDL/sEx9uG0eaodYWP1vFoYJxQICmtYbUu97/fOonAT+q7Mtz7XEQQHn7 +2JtJBi0/q2iBnZjfxZlsP9GI8aApuLo6CA/Hv9UldHlTIMS8VNTFHA8uab1H +KsmSsFHLiYuVj4OPWd8UU7uYIDB9qWX3+VAkyyaU1MhhvAr6/N6gkIV4K698 +jKkjwMObDR+co1ioLoOyeaMnET5u/DF6R4CNlNt4T3aIkgDvE/hE2X0Eqbym +9iSuSMCLcHTsMj8e/BrO1rimkcFEcK+oN1Z/Hps2hF3Xp0DT0qlSB3fMf65V +e55oE4agQe+xS79ZaG9ZZXmUNwFMMpTEVqJZ6PuFQYFNm4gQ9iB1SvQ1C8ky +N9S0VxOhKD6BvpLIRk2Bts7GZmR48/TdGyMLPCTZbk85OkeGoH2Nsv/v3yDu +Rvr2xxQIbzi2+EIV442ZmLXsDBN6jY+61xiEoB6lzbtaNhLg4gBHa141C4lE +y/n8yCeA8Qd3uVuYnrcbpAT2HSdC+25JNyUsvgL2Cu+ZGDLw7rmRwHMRD4tv +5f99UaHAz8Pn4k9cwMM8V5t60gkCfPcuGTBMYKEJ3fAKPx4irJP/q66TjvGg +WZBjcB8Z5D+/xqnr4uGL79sx6wEyFB9RGMnEeH0qaXX3610EEPfqgPAMFsJN +tkvs6COAy0R9NR/WX2nm9V92KiGDNX3bA+4APLD9xwS32mF+vqGgx94eD0Hn +MvZdDyNAktD0RFYkC319qn6iWpUI9Wf6dqvVYfW3I/tDuSsZ3nIrl2o64sFR +86mlGQ8FzP9ZafFh65EYRefsl5iwwFPTcK0iGG1mjJ5Zxy0EjauL+af8RpHi +lYPf96cLQbHrdmmDyyNoPNRUbecRYegqZ6WrBLKRZhOH6OCCMET8GRB49JWF +nopcODyYQIDC1KqRd1g+C4VveD7WIkKgtYhIdgcLxWVf+ZbIJoKbmwa35Dgb +VWXlcd+NI0HYWM7dQsYYUkhqnhYHEeCzykk6nTSJHJlfpLsHRCBT/a6dPn4W +5d2/mW17RRw63ELr91WtoGp36bbvUhIgbhDbf8DvH5J8+rPSsVECFPxUb4q1 +46CkLu+kpw8ZVO9yRZw+jQdalJlFuRgFFJbWUyqu4AG4EuTf1WJ8XFzzkyfg +YSulSmedqyRwrBQ6fNLDgX0ClWEoKgV6i96DQtvXUEzZM/6Oi1Sw9HtF1Mv5 +ghbNRd8Fv6fCFXXjLRf5P6Pdep3uMRQ5cOSfOMxpX4/6b0aUqJ+RA4suo/SY +P7XIjnH7j9Y7OXiw3crOnbca5TqMLT0n0eDVV4G/07wVKEiKurXImQbtxynq +ZTLFSFk120SuHOOjKU18urYAaSduFlPkp0O1Q+ndTV256IrSOyh1osOxmVxX +qZkMZFHVph9RSocVyy3bPfamofjkjrnFDdh8UKYb25KSgnK/yt/9YM8AFy1R +LY3RJJSY1TY/nc+Ax18/F2VsTEBcnLY3qvFMmNDdVBpBv4MOFqpt+G3JhCkD +Symy0y2knLlA6MzA+iVrXKUHORx1lcnDqVUhOL54ulL9DxuJRRZP3nuG+WV+ +os4RWTY6/jRHIkuXAM6uV6AL64d8mroSPH4QgDvGi6WaiM2PMd58LnFEMOqP +zCrVYqMXArTXVA0SWEos7mcNjKC3vUlKIRMk2H927ynBknH09NWHZ2ON4qA1 +rE46tG0NnTslKqh4UQIm3hg4/bbEQZHHVj1xKhkUVtbYHsp46LL21rKvw/Qb +86dgP8aHNXzLhbMeFNi071tu21E8pEDyw1wRScgVyfDTLsHB1IKnW1s7E/Dh +AumKCaGoZVeX2IdNBOjr/1B4pZiFbnky5pg1BHhiEPDsDKa3oZYrVRxniHAw +LIKcvY6NpG1N62yFScC15Fdyx2YEneKJDtL4IwHzWwb/fFmHB/3Y2K+nHpPh +uH5yNZcfHoT0hE+StCjQ/Hjn59azeMgRcNc1aBaGjOSV3fsWMZ7wB1NiPAhw +N+50m30sCznKR+55LU6EnAAdH1I+C+0zOW1VX0EEW+XNf5JvsxFXez3fbyMy +eGWEZ5QdxvhCsyiwnCGDTapfEQPjzVTF7ZAP9ynAbzw3x7cbDw0P8+IOTzHh +YGfHaN7ZEBQR9COhjZcA8qg/UP89Nu9pNT0NySaAZuPmZS1Mz0aeePFWSyIM +/mkXE/vBQgHZMlJnIzG++XRK0LwxHo9v73Pdhumr9ljCoUt4SLNMTHpoTYDw +xsi0Ldh5n1nePibMSYRDn9TUhFNZqFfWPzN0Fxn2NqtultXEzgOxlmx6yED3 +Xox7gMUr+qMmsUSFAK5hIVymWSwU9Pi6zqdOAozsd+s7HsNCQpc4opxfkWHt +rAZD4DoewtNmp95aUUBqbtd3Uyc8KNecTQ4KIoBIztmW25ifWVqyIqwUibDJ +sNXRtoaFFMLFPewdyXBMeUFg9wns+Q0f3Mw5KdAe6FI6jPFxt6fxi5g/TEgx +Mnzg9T0YPcyWWSp4QoBoa+cGZSwf/eqa92OpFIjL37X04TLmb6tU6zRTAnzo +y6brJbOQl3MogkUCRGVdaEAPsfNq2iJt14r5ozZvNBPbXzhPW/LfRgL85d/V +dxPrf7M5DV+6ZJLhzF+1iXcYn6JcF21u+mJ+pWKjXYz1440JArct/mL55kop ++7+e73RfPni0GKvPx9ym+AgW4ipI7jjGJsNG7jHm//m7qrZ1OnmIAFqVfjHj +d1nowliZq2MlGeIpmpkD2P6+Sg73+kcR4Pwcp8sE9n6c/zWdwwIU8BFq0BTF +8jnbLbVTeZUJgqcPW3y8H4z0Oaf3BnMIgYl1N+P6tVG0J0I7LjRVCG63Lg9c +uYrp9dAzmReHhYG5dJDlhc3/SZfY7x3nhGH4z4xjKsZ/1oz+6NY4AlybgF0c +2PdqnhXtkzhABC4Za0dRzD+iPB9H9A4RIfpl2kz0EBupmdlfGY4lwXnngAo/ +yhjyWOpOuqchAhmrhbpSkZMopqQln9qP9dNrP4a3/ZhBAy/fHPl2WRzEc3bZ +6hesoN5Xeg50igRkKH3eXXTuHyr+9Fz4dT02T+/h2l7SigOZrOrpnxfIIKBm +LabihoeLKUdruUUo0Bor/MgZm1/svsw37a2hgB4aN0kg4UGVLNSi7ywJYVX6 +keMHcTB2iePSfaIUGIpJVLjsXUOuSjsUEy9Q4fmgw/3Vsi9Ie/Bhp0ItFewt +5D/60T+j0/n8D4zJcvApapKh712PQvlLu/tOy4HtlT/H5nneo8nQ0zvWquWg +d8anslCsGq3kRyadItLg57CNip9MBdK+UVVl40SDKpn170g7ilGX78LK91Ia +/Dt8621qWwFyWHAv/sxLBxeCRIbTr1xkfa1Jy8GRDmZ2F2w5uTKR+ESki0EJ +Hc7JWf/QPZiGmgfCuB/yMACnR3Gfz01BjfPhVYEnGND45lZ/ykoSulT5N/jl +SwYwUi6m9cskIKttV9afwjGh/8Rxg4kdd1BIOeezl0eZ8KnUMMvK7xaqadZU +PvecCSdfln8uUwpHQx+p87lLQoC3zAmnLbPRtBl/B3+qMAzB0MBGGhsVHoyp +36qN8aXk5h3BpyxU8jxna9kEAXbZ7z288R4LSdLSOr7HEmF72BnJYMRGT77o +uriok8CrRL5ztXME7Q4+mP51lARSpw5Za70YR18aVg45N4jDA4O9skeoayji +5f5kby8J0F/kTogwx8HhxKGk09JkePAzXYSoiAe0P7RxoJYMiruXlH5h86OJ +6NfhYncKyJOTmq5Z4aFScOUAkygJ4inUK2fKcXBNsuqG+1cmxLlbvdTMDEXM +wbI6PUkC2DtIT0mXslDzweWb3m8IQDveaoDH/GHGOefmFTciCKysGhtxspEo +1dv3iSAJFOR1RQbMRxCXik5H9JwEmGqs3f3NiYe8C6m248lkEKt/GKqJ8cTR +RuSrHVDgghK7YtUDDyHtb5SrPgnD3Fnr1fQlFjpQdPKT8BkCmMav8Ulj/WIq +p/1nnCgRnLVCRhh5LGQwnCSnVUaEmBwnw+CbbPR47foJHUMy9LYL/2aZ4OHz +ete9XVNkiHlQm22M8UKj9c5voXsUyGvh1duujs0T75bzxyeYwIhN8qi6HoIG +t7ToWvAQwEytQ2IT1l9+k3q6uyWTAFv0SY5KGA+PcasMG1oQAUfJ/imFzfej +0SrpP8Ix/41+857hhYfJ1Z1GBQoUUNas1d/tg4dlnL+htBUBOk5VHmXeZ6Hc +9nXXbHFE2J1iLh3xhIV8D25f7dxBBsbaGJ0H8LBebiG4t4sMNR1Hg25i8Z5N +eKavrkwAm1kV+apsFqq9fKRHtB1bL6GlJwGbJ3yOkUTYL8kQsKFpKPQaHr6V +zNnwHaXA1nyPvxXOeAhzNzXiCiBAe8BkJj/G38TtpTJpW4gw3a5mz/2Whd7n +N1cXnCBDn+kOfLotHu5Ndf5qw1HgsmWoug5WLw0JSXWbF5iwMdHzOefPYNR/ +Yz567REB1PGhMrpYPpRNdHl6pSkgfb8yPwbze8t0bl6GMQFiayDIHvODV/ut +2yPnCcCg//WeeICd30uNjP5mrB61i00WMb7XDz1X0WnA+Hw8Ousn5l/EUZs9 +o+lkuKu8qiSN+QNLqIeP7xIB7g2+f2GB7VfVT1qsY4EM2mZ+YcHY+18LjQef +FBLgEc+F1mosHvf43BPdQxjv/opvTsfyVyWEDxn7js1fxcvv5rD66fnUODtU +RgbvDXeaL2H+sOXD+6jVmwR4cO/agi5Wz8t2Mc2tvBT4M6pgHof5QxDutNnH +ZSa8endikpIVjBz2Pi6Pv0+A/WYLldHY9zx9HMq+15PBcZ5v+P94jO4dtuut +JUC84iHpYWw9/AEt+c6fZKic9Q/7g90/6rbIvyePAL9HfNScsPf3HP/i2dNH +htIGG/v/4828M8vBeo351y1BwVvY97+JR07hQgkQlBG4SwLLTz29cOALNwW0 +iCwhfyz+418OOrumEUCJIfjt//9r28clEvrayKByeirABFvv5KtlrvZlMiRs +cqz8X/+Hcc9e85YR4FVhUu5BzJ8eNkcc+jZKBryM02g49vwVb9y2pdsE8P9i +rpOA3bd73SqWuMYEg0TV5eDwYPQf7UvFVg== + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1WWYllUQBuClO5Rulu7ulO5aUiVX6Vi6FQVEBWyxQLrDRBEUpbtRRBQR +RRTE7vaeyx/3zjPzAtd+553zkZickjQmVUJCwg0/os7wowAH5fvpRU1SM9O8 +IIfkB+hNLZaaNeK6vJFppOEus0Iclh+kD7VZZtaYr+RNTOdVfTf+ld8hLXfr +C3NEns+b8q1kiKrfrLbnN/kN9snJ5KSOfrnahBvySXU0m+Vdan+yMkO/VU2K +D8+7jGeX9pA6hCvk5gJT4/cmneez1CJc5Kj+uDqSqyzQv6XexmUyco6JXIu5 +51vUDlzid/0ZdSzb5f3qHdzEeSZT13yF2pSv5VNqvLwt8m51ANmYqX9N7R7v +lN36w+pQ8pBef49alGPyQnbKt5Mpqv4FtSN/yDuox0r9LXwTz+P98rq+B6nZ +o8/AvXIxjssP0ZcX9Z34M94j9Vmlb8a38TzeNxmZbVacE/LD9KMBq82a8538 +Upw/mZhjlshJ+RH605DMzDUvwSn5UQbQiCxkJRvZuc+fKclp+TEG0pg1Zi34 +Xn45zo0czDMrxRn5cQbRhLVmLflBfiXOgpxxl8xKc1Z+guT4DPrO/BW7QlPW +6VvxY9wJ9sgDyc5s/Ta1J2nYqz+iDiNv7ErcS7VM7LH8JG/Lfckc+xSfQe3C +3/JZdRw75QPqnXzGzXzAlHjfnq1XW/MxP+lPqyl8wVb9XnUQn5KD95nEdebE +3VR78QlpeY8JfMk+z4+qw/mcfHzItPg94ntDLRt/Rz6hjmJRfEeo/cgSv3ec +tdqVf+Izc1AeTK7YMf0GtQ0/x92IvWC7vjfp2K/PFd8zcjnOyU8xmOZsNGvL +L7HzsS/kZoFZ+fjM8tMMoQV54l6ZV+C8/AxDaUle8pGfAhSkEIUpQlGKUZzE +uEP+jYrxTuRnGUYrSsT9MK/EBfk5htOaknEXzCvHecqLGUEbSsVdMK/CR/IS +RtKW0rH/5lW5KD/PKNpRJnbdvFrsgryU0bSnbOy1eXUuycsYQwfKxS6a14gd +kJeTQkfKs8i8JpflFYylExXiHZjXit2SVzKOzlSM8zavHTsrr2I8XagU521e +hyvyaibQlcpxhuZ1Y9/kNUykG1XiDM3rcVVeyySSqBpnaF4/9l5ex2S6Uy3O +0LxB7HTcF6bQg+pxhuYNuRZ7yFR6ssmsHb/K25jHDn0f0nNAf0wdQf54V0xP +9f//1TU8+w+HbPBM + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgEAURMEvGtiGrWhgYmQJBsKBcOBZtkWogWAHJpMsPHa6Jc/rWUWU +JiKmVI71jk/VT7X3zGM/5C3v6flTvIPjOI7jOI7jOI7jOI7jOI7jOI7jOI7j +OI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7/ +wC9YNFht + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVmHk8VG0Ux2csJVvMjG2GMGaJClEqpedkJyESEdkiKYWKaLFGKBSSVIpE +tkh2ipQIkSzZsszYQ4Vk673vX/O5n3vvc89znvP7/s4ZWcdzZic5cDjcFB6H ++//XbWCOF4cTgkmzPZ3xQaNIO1HDoDFFCG6C/+mCwBGUILLEK20iDHZicS+L +wtjop/THi6yfwuB4dSAgt4uF6A1SV31jCbCnWj/FMIKFPu8ZXX93PxEcNhiw +olpZKFitZq/MABFMVcs/ifSyUe6i0G/VaBJIXf3JaSE0hvKtR3VF94pASTRL +cch/ElUZfNZy7xGBd3xVz/o7Z9CBNYVa3ZuiQPI/sGLa9ws1o8QfcVvEoG2d +DH2eYwHtkL31Kr9BDHBq2rioA3+R0Mf5lSM+4mC5Xl/tUPoKWlg+N3NaXAL8 +kn90S538h8zmbU+ur5MA96y8NdNmHITdbvPx8iLD0+05B3654uFDobWqKYEC +/utcPnFdw4N/ioVX4RsKUPen/14RxYO6hKN1pIMkvHW7KslhioNzlkPvx4Sk +gOs47dlrnTV0dedEE6lSCi4PHCh8GLKM4lM4r7+y3QSrVxwDLrxZRHKtMa+6 ++KSBwvEqMa9wHpXfVoo9nysN2z31jjbO/UIiCy9CJxkyQBO/Gh53dhaFr/fl +crwqA2NK53uleyZRwPemTuFmGWhz9EnszB9FO5L6pkLosqBRfO/uk6ph9JW2 +3fSEvywMM3VeabsNoL8XBXi8P8nCzjHi4KeAHvQtMxVvSKVChNpk3KuHHWh/ +Wo2JtTcV9og7BlR+/IKiPehTrTVUcL0R6Xl3/2f0gKLZwC8hB0ldhxaTbtSj +rdGjKwFucmC4fnrBlfwe+bJ1PUveysHQUuxWHno1MuBQUpcn0KDi+Wy8iFoF +Wj9jfRjvSAPt778Ur+sVo4AqeJFcQgNefnaN81ABunYkz9JzAx2mwy59reLP +Q7uaOnU3ONBh02WZF0vimahXRDuEp5gOZ6iSf7fYpKF19D2iB9YzYMXWfDej +MgVNio6N77NjwPH+OScRwgNk8Vma4JXHgKtqe2ZlVRJQtuWDcMF/DJC2etF2 +VPsOqqppAQ8LJngH77udGXsLWczdPrQ+nQnDfw9mSOiEo8bo0KV//5iw8Vbu +Z2OfYHR0n4SCi6kQ6B6LehmOG0U/Oigv5v8IgZHAdwXhf2xUS3Z4G5giDIn2 +u3a0MNiIb97rcu4BApj5DnAbpbLQUmBQDfcYAYTzrOoW4llIvuTrk2PRRBj7 +omRpvZeNEu+5ib3YRQLZqHM8Wz6PoJfyK5J0Ngm2GUrQbiWPo91mNu8hUgSa +Q1j1rjd+IBxtlfOYiijEyT4e0Tb/iTiHVBa+14lDVvtVQzOxNZS26KJQek4C +il62uJBNcDBVnThdIUkGkemdC7lb8JAue8/CoYYM3dZtVo8C8ZCi0GXG4UYB +02tNklRrPHT32ow8FpIE6s4tS7ercHBkN1VIvVQSvI88eeoU+g9d0h2pX3OR +gou/3rGCZ1aQy4Y5KdEHVPBv1tG/QW1FIu9VbWZ+UEEm4yHhImpEzu1xw7oH +5CCuvex8llodMlMXK5aMlwO3/juJOuveoYHfZe3nx+WgRnS+l0p5gzIWa3VE +1Gmg6j60S+ZJKartaFo1vkWDRVZfEP9iIbq+YRG3fpAGyccd+Z5K56PuGC0T +jZ10yHs2l906kYUift5i80TRQWsgX/lxUjryfLi/ifadDsxzLkUFF5+ixYdC +uDcqDNA+ObdllvwIyfzmvNZ5gwFTyU7fTIITUcBd20PQyYCvjOEdvdQ4tFOg +yHm/AhO04WGH5LkYFNGjVFd2lQmcRkk7OBoikJAmbxpnGxNu2U7ecq0IRfaC +YWTVzUIgVZ0ga3pgFCUWZ/+1bxQC1Rm994BG0LbEnJMtPsJQ79sLuy3Y6FrE +Q596CQIcvr8aV1/GQkKMFuk3FQSwvVmwkoLxdGWx78iCCxHms1ND/v5jIcHR +eHk2HwnaXpoeAKMRpBS7LnxrGQnmNtHllBrH0IWjsje2OImAQuAvP4rvFPqu +NiI3tE4Ufi3SZmeTZhGvRdzlpMficPTNnHy+4yo65DfJT9CWgHWK6fu0uHDw +2GZZfuinBBx/U0fgx+NB1Or1iFsSGVYM2kZ9ffHw6pyEVqYGBaR4vGJlz+Ph +RZXVVoUxCshKjs8V/cBB3WbN1463JEGdltA6wYeDX8asut97peCBPLqQ/nAV +fTnao7Y7jAorN5I5JX62oi/3s1Ptu7BrnmX9ntdNKMB3skN+mxyYCWlbj1l+ +RG+c/30zvi4HKw7Bh3M21KLsqYBUUrscpPPe17h85C3yXf2LpBk0aFnvqN49 +XIZGHOOYGT40OOQTVa8kXoRwzsntrY00eLhAPRe3nI+yvS6bW0rTsXia1MAz +B9l/VxG9eYkOkiV3FcNbn6P0Y9UZop/owIMou6IcU9H1QRofTooBHYef/Nn7 +5jFax72gGuHFgKerOdRHNffR6fwqpWPvGLCz9ZcohRaPzhdkXEonMeHye4uZ +SPNYRDPBhcS5MWH1Lt9WEj0KqTxo9A2tYELi5HWr9j83kOZChHWEnDCcyS83 +elnNRtYPSRTVemHQNx+giK2yUOIJff+7bpi/BopJsu+wEKtvx0kjIhGCFSKP +6+aw0FGfT9MVxUTo8RJS8A1hIzl9De5zTiR4cWPbfMrJUaRc8zNfSkgEBh/M +bKwInEArHq1e9Flx8HDPOyn7bg0tXxrSs38gAYL6W9UT7+BAfbPaq3t6ZCBF +azWvM8aD2qRvrdUEGc4jh1PngvFwm53gaBNHAUe9qk0m+/DAu2yXIrJHEuY6 +NRT7b+Jgekzvc+A4E1oz54Z6Y0OQ85/KOxIkIdhscah21GEUTTMvPkkoEgLl +ZtmcPfYjaKjDvMTHSRge3TvfvXqWjXa3Fyx0cBOgroPU/PcjC5EXLzVTnhOA +WtpuQ7/JQi73HXNrzYggUPTRZfsoC30UzC7gWCBCYrbC5QHhETRdG6nxMo0E +CS+Pfi52H0N3rEJGZExEQCWKIFv6ZxIZv+1+xfgpAm6Zmps1NGfRLUGdcp9I +cUhSvyThwr2KqOXbru1XlIDfrvtf+5b8Q74Z2XUXeiXgl1VMQc4YDoy9tZU8 +bpBhakOWANUTD/sI6uUrTAqIxPDXkDF93FGyNJlpo0DVnORdCicecLJf1vv4 +SILjgbrHTxVxoGw+rOvBkIL2Oxt3Xv+1isJXjbUMrlLhx62V6nc2X5Ay17je +/SYqeB9zqB3waUaCDQmmFDk5sDmmyBvx4yNauOw96XpBDuYeVVodjalFhHGn +iJEGOdgRvMoKKX+LBq6TNGiSNECy1HsrEeVoIcOn4usZGtw+uGGSnVOEIHYa +FdfQoFP6UG7i2QIU7xRn4UyiQ8KTeKrRvlxkdDRUsd6dDnZX7Iqo3hmoujgo +YWM1HQxT+rWs+1KRJmdejAyBAe+HH2lNGaWgRYGZ206nGLBBlDCjdyoJ2cNM +yslSBvyen0jxz4xHgtxPr3dvYELVtNs1m4ZY9DP8lGPgCSZcMCOmynyLQrV1 +25x08zF+6n3/vTU5DCW6mHO8FRCGFvXo1NXvbLSxt+xsd6EwcLmQRsyF2cjs +he1SigUBxvfeDVFIYqGZvB5i5ioB9OONYjamsNBbMVP9yFQiJIjf0KfbsVH/ +OfPbUYdIoNo01jQmNopm5y+5PlkiwbxStVwY/wQK2BxUyNErDgVrV4KcPdZQ +SzGtNCpUAiSvbX/4yRMHxIujpgoqZFAe3FkzooEHj3U8ArYdmB6WuhjnMT2I +hRd3516jQNeuOl5FIzz8crd9102ThNpteVODaTi4LpJZqtnPBPCXCSfRQ1Et +Cl8s30aAyhgPUdVcFuI+Iu/p+IUApzvzT/beZmH1emyZ6U+Ek3btlWsUNjJ/ +cz2lTpYEgnZZ7qaRI+iDoGGUyXoyHDJSk3UWw0P/Psajk7lk8H/Xq/nnKh4U +mhYbLMwpYGDyTkrWBfN7O4+PkX3CsG5pq7HiBAv1k1RXQq9i+nqxp+TOLRbq +5rtdNLOZCBzGrsNllSw01aEbP/2JCEuGQrLuuWxk3xMiwm1LhjsGof58x/Gw +9nnc/8gaGb7azMY+xvoHLq1LE+tfUGCjT9n+GAU82FaMsN7OMUHt6oxKGkcI +GnH/1szPKwRByvcj93mNIgn7Yxfzs4RAfHpEePT8CNq3kO5w8Jgw6AznLVf4 +sVGcn0ZR37IwGAwWj6a1sJCMQwPdMJkAK2+ojScx/SeN03qy9ImQJzF3cKWH +hdKpu3yEJ4nQcLV5/+kFNmq2Mxb/dZ8ElxyEK501xtDTb68TKDoiYHm+fHZv +6STG7/Zl/RER8F2/P/ij6Cwydpc67hIoDjcafRWEO1ZQVE9z0RE5CdAlK5eq +RP9DbONQ0apWCTjt6pRY1YODCVyU+fkrZODfqKjz/gweAp0MfRhSFHB56ipr +5o+Hdac6BlrrKdD3YeWwhgAepKTI2wPPSMIZ9MH5GsKBabvjjSyKFFSe3XXX +VHINDbeE1x/2pYJhN0t0IfYLst+zPmnnRypYW75hPe1uRl+9zgiQNsnB5PcY +39Q99Sg2ZNuFOQ852PB3tXX2ay3ScW2/+vm9HCiI3ni1MPMWkaqflDPEaPDg +kkknz0A5Wjs4vs7dlQYzVice71gqQgPPxeYzK7HrCdNXac8LEG/vk44JQTqk +GLSd7kjNRTWxuepuLnQQb32lH/o+AzW7OAnwV9DB0YIvaJCShmikC20v+RnQ +OSUe8yIkBXndcd9n6sSAEcn98RkVSag7LOybeyEDMkk9jc4/4pFt7qaQC1xM +OO9/3ebXujuo61lyq4811n/r0uvadtxC/HZ2XelZTNiQdf654GwYqnm0q6Ob +QxgOer5oOTfDRqeXBcRyXwhDY12O3SSmh1yTsdLnBwlwTE5iW+AjFpoTV3Lv +/EWAhFIulycYD+ZcCRe97hMhVnHQytSIjcqD+80eaJLg2B/5DVO/RlBL9B7N +4RkSDL/sEx9uG0eaodYWP1vFoYJxQICmtYbUu97/fOonAT+q7Mtz7XEQQHn7 +2JtJBi0/q2iBnZjfxZlsP9GI8aApuLo6CA/Hv9UldHlTIMS8VNTFHA8uab1H +KsmSsFHLiYuVj4OPWd8UU7uYIDB9qWX3+VAkyyaU1MhhvAr6/N6gkIV4K698 +jKkjwMObDR+co1ioLoOyeaMnET5u/DF6R4CNlNt4T3aIkgDvE/hE2X0Eqbym +9iSuSMCLcHTsMj8e/BrO1rimkcFEcK+oN1Z/Hps2hF3Xp0DT0qlSB3fMf65V +e55oE4agQe+xS79ZaG9ZZXmUNwFMMpTEVqJZ6PuFQYFNm4gQ9iB1SvQ1C8ky +N9S0VxOhKD6BvpLIRk2Bts7GZmR48/TdGyMLPCTZbk85OkeGoH2Nsv/v3yDu +Rvr2xxQIbzi2+EIV442ZmLXsDBN6jY+61xiEoB6lzbtaNhLg4gBHa141C4lE +y/n8yCeA8Qd3uVuYnrcbpAT2HSdC+25JNyUsvgL2Cu+ZGDLw7rmRwHMRD4tv +5f99UaHAz8Pn4k9cwMM8V5t60gkCfPcuGTBMYKEJ3fAKPx4irJP/q66TjvGg +WZBjcB8Z5D+/xqnr4uGL79sx6wEyFB9RGMnEeH0qaXX3610EEPfqgPAMFsJN +tkvs6COAy0R9NR/WX2nm9V92KiGDNX3bA+4APLD9xwS32mF+vqGgx94eD0Hn +MvZdDyNAktD0RFYkC319qn6iWpUI9Wf6dqvVYfW3I/tDuSsZ3nIrl2o64sFR +86mlGQ8FzP9ZafFh65EYRefsl5iwwFPTcK0iGG1mjJ5Zxy0EjauL+af8RpHi +lYPf96cLQbHrdmmDyyNoPNRUbecRYegqZ6WrBLKRZhOH6OCCMET8GRB49JWF +nopcODyYQIDC1KqRd1g+C4VveD7WIkKgtYhIdgcLxWVf+ZbIJoKbmwa35Dgb +VWXlcd+NI0HYWM7dQsYYUkhqnhYHEeCzykk6nTSJHJlfpLsHRCBT/a6dPn4W +5d2/mW17RRw63ELr91WtoGp36bbvUhIgbhDbf8DvH5J8+rPSsVECFPxUb4q1 +46CkLu+kpw8ZVO9yRZw+jQdalJlFuRgFFJbWUyqu4AG4EuTf1WJ8XFzzkyfg +YSulSmedqyRwrBQ6fNLDgX0ClWEoKgV6i96DQtvXUEzZM/6Oi1Sw9HtF1Mv5 +ghbNRd8Fv6fCFXXjLRf5P6Pdep3uMRQ5cOSfOMxpX4/6b0aUqJ+RA4suo/SY +P7XIjnH7j9Y7OXiw3crOnbca5TqMLT0n0eDVV4G/07wVKEiKurXImQbtxynq +ZTLFSFk120SuHOOjKU18urYAaSduFlPkp0O1Q+ndTV256IrSOyh1osOxmVxX +qZkMZFHVph9RSocVyy3bPfamofjkjrnFDdh8UKYb25KSgnK/yt/9YM8AFy1R +LY3RJJSY1TY/nc+Ax18/F2VsTEBcnLY3qvFMmNDdVBpBv4MOFqpt+G3JhCkD +Symy0y2knLlA6MzA+iVrXKUHORx1lcnDqVUhOL54ulL9DxuJRRZP3nuG+WV+ +os4RWTY6/jRHIkuXAM6uV6AL64d8mroSPH4QgDvGi6WaiM2PMd58LnFEMOqP +zCrVYqMXArTXVA0SWEos7mcNjKC3vUlKIRMk2H927ynBknH09NWHZ2ON4qA1 +rE46tG0NnTslKqh4UQIm3hg4/bbEQZHHVj1xKhkUVtbYHsp46LL21rKvw/Qb +86dgP8aHNXzLhbMeFNi071tu21E8pEDyw1wRScgVyfDTLsHB1IKnW1s7E/Dh +AumKCaGoZVeX2IdNBOjr/1B4pZiFbnky5pg1BHhiEPDsDKa3oZYrVRxniHAw +LIKcvY6NpG1N62yFScC15Fdyx2YEneKJDtL4IwHzWwb/fFmHB/3Y2K+nHpPh +uH5yNZcfHoT0hE+StCjQ/Hjn59azeMgRcNc1aBaGjOSV3fsWMZ7wB1NiPAhw +N+50m30sCznKR+55LU6EnAAdH1I+C+0zOW1VX0EEW+XNf5JvsxFXez3fbyMy +eGWEZ5QdxvhCsyiwnCGDTapfEQPjzVTF7ZAP9ynAbzw3x7cbDw0P8+IOTzHh +YGfHaN7ZEBQR9COhjZcA8qg/UP89Nu9pNT0NySaAZuPmZS1Mz0aeePFWSyIM +/mkXE/vBQgHZMlJnIzG++XRK0LwxHo9v73Pdhumr9ljCoUt4SLNMTHpoTYDw +xsi0Ldh5n1nePibMSYRDn9TUhFNZqFfWPzN0Fxn2NqtultXEzgOxlmx6yED3 +Xox7gMUr+qMmsUSFAK5hIVymWSwU9Pi6zqdOAozsd+s7HsNCQpc4opxfkWHt +rAZD4DoewtNmp95aUUBqbtd3Uyc8KNecTQ4KIoBIztmW25ifWVqyIqwUibDJ +sNXRtoaFFMLFPewdyXBMeUFg9wns+Q0f3Mw5KdAe6FI6jPFxt6fxi5g/TEgx +Mnzg9T0YPcyWWSp4QoBoa+cGZSwf/eqa92OpFIjL37X04TLmb6tU6zRTAnzo +y6brJbOQl3MogkUCRGVdaEAPsfNq2iJt14r5ozZvNBPbXzhPW/LfRgL85d/V +dxPrf7M5DV+6ZJLhzF+1iXcYn6JcF21u+mJ+pWKjXYz1440JArct/mL55kop ++7+e73RfPni0GKvPx9ym+AgW4ipI7jjGJsNG7jHm//m7qrZ1OnmIAFqVfjHj +d1nowliZq2MlGeIpmpkD2P6+Sg73+kcR4Pwcp8sE9n6c/zWdwwIU8BFq0BTF +8jnbLbVTeZUJgqcPW3y8H4z0Oaf3BnMIgYl1N+P6tVG0J0I7LjRVCG63Lg9c +uYrp9dAzmReHhYG5dJDlhc3/SZfY7x3nhGH4z4xjKsZ/1oz+6NY4AlybgF0c +2PdqnhXtkzhABC4Za0dRzD+iPB9H9A4RIfpl2kz0EBupmdlfGY4lwXnngAo/ +yhjyWOpOuqchAhmrhbpSkZMopqQln9qP9dNrP4a3/ZhBAy/fHPl2WRzEc3bZ +6hesoN5Xeg50igRkKH3eXXTuHyr+9Fz4dT02T+/h2l7SigOZrOrpnxfIIKBm +LabihoeLKUdruUUo0Bor/MgZm1/svsw37a2hgB4aN0kg4UGVLNSi7ywJYVX6 +keMHcTB2iePSfaIUGIpJVLjsXUOuSjsUEy9Q4fmgw/3Vsi9Ie/Bhp0ItFewt +5D/60T+j0/n8D4zJcvApapKh712PQvlLu/tOy4HtlT/H5nneo8nQ0zvWquWg +d8anslCsGq3kRyadItLg57CNip9MBdK+UVVl40SDKpn170g7ilGX78LK91Ia +/Dt8621qWwFyWHAv/sxLBxeCRIbTr1xkfa1Jy8GRDmZ2F2w5uTKR+ESki0EJ +Hc7JWf/QPZiGmgfCuB/yMACnR3Gfz01BjfPhVYEnGND45lZ/ykoSulT5N/jl +SwYwUi6m9cskIKttV9afwjGh/8Rxg4kdd1BIOeezl0eZ8KnUMMvK7xaqadZU +PvecCSdfln8uUwpHQx+p87lLQoC3zAmnLbPRtBl/B3+qMAzB0MBGGhsVHoyp +36qN8aXk5h3BpyxU8jxna9kEAXbZ7z288R4LSdLSOr7HEmF72BnJYMRGT77o +uriok8CrRL5ztXME7Q4+mP51lARSpw5Za70YR18aVg45N4jDA4O9skeoayji +5f5kby8J0F/kTogwx8HhxKGk09JkePAzXYSoiAe0P7RxoJYMiruXlH5h86OJ +6NfhYncKyJOTmq5Z4aFScOUAkygJ4inUK2fKcXBNsuqG+1cmxLlbvdTMDEXM +wbI6PUkC2DtIT0mXslDzweWb3m8IQDveaoDH/GHGOefmFTciCKysGhtxspEo +1dv3iSAJFOR1RQbMRxCXik5H9JwEmGqs3f3NiYe8C6m248lkEKt/GKqJ8cTR +RuSrHVDgghK7YtUDDyHtb5SrPgnD3Fnr1fQlFjpQdPKT8BkCmMav8Ulj/WIq +p/1nnCgRnLVCRhh5LGQwnCSnVUaEmBwnw+CbbPR47foJHUMy9LYL/2aZ4OHz +ete9XVNkiHlQm22M8UKj9c5voXsUyGvh1duujs0T75bzxyeYwIhN8qi6HoIG +t7ToWvAQwEytQ2IT1l9+k3q6uyWTAFv0SY5KGA+PcasMG1oQAUfJ/imFzfej +0SrpP8Ix/41+857hhYfJ1Z1GBQoUUNas1d/tg4dlnL+htBUBOk5VHmXeZ6Hc +9nXXbHFE2J1iLh3xhIV8D25f7dxBBsbaGJ0H8LBebiG4t4sMNR1Hg25i8Z5N +eKavrkwAm1kV+apsFqq9fKRHtB1bL6GlJwGbJ3yOkUTYL8kQsKFpKPQaHr6V +zNnwHaXA1nyPvxXOeAhzNzXiCiBAe8BkJj/G38TtpTJpW4gw3a5mz/2Whd7n +N1cXnCBDn+kOfLotHu5Ndf5qw1HgsmWoug5WLw0JSXWbF5iwMdHzOefPYNR/ +Yz567REB1PGhMrpYPpRNdHl6pSkgfb8yPwbze8t0bl6GMQFiayDIHvODV/ut +2yPnCcCg//WeeICd30uNjP5mrB61i00WMb7XDz1X0WnA+Hw8Ousn5l/EUZs9 +o+lkuKu8qiSN+QNLqIeP7xIB7g2+f2GB7VfVT1qsY4EM2mZ+YcHY+18LjQef +FBLgEc+F1mosHvf43BPdQxjv/opvTsfyVyWEDxn7js1fxcvv5rD66fnUODtU +RgbvDXeaL2H+sOXD+6jVmwR4cO/agi5Wz8t2Mc2tvBT4M6pgHof5QxDutNnH +ZSa8endikpIVjBz2Pi6Pv0+A/WYLldHY9zx9HMq+15PBcZ5v+P94jO4dtuut +JUC84iHpYWw9/AEt+c6fZKic9Q/7g90/6rbIvyePAL9HfNScsPf3HP/i2dNH +htIGG/v/4828M8vBeo351y1BwVvY97+JR07hQgkQlBG4SwLLTz29cOALNwW0 +iCwhfyz+418OOrumEUCJIfjt//9r28clEvrayKByeirABFvv5KtlrvZlMiRs +cqz8X/+Hcc9e85YR4FVhUu5BzJ8eNkcc+jZKBryM02g49vwVb9y2pdsE8P9i +rpOA3bd73SqWuMYEg0TV5eDwYPQf7UvFVg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1WWYllUQBuClO5Rulu7ulO5aUiVX6Vi6FQVEBWyxQLrDRBEUpbtRRBQR +RRTE7vaeyx/3zjPzAtd+553zkZickjQmVUJCwg0/os7wowAH5fvpRU1SM9O8 +IIfkB+hNLZaaNeK6vJFppOEus0Iclh+kD7VZZtaYr+RNTOdVfTf+ld8hLXfr +C3NEns+b8q1kiKrfrLbnN/kN9snJ5KSOfrnahBvySXU0m+Vdan+yMkO/VU2K +D8+7jGeX9pA6hCvk5gJT4/cmneez1CJc5Kj+uDqSqyzQv6XexmUyco6JXIu5 +51vUDlzid/0ZdSzb5f3qHdzEeSZT13yF2pSv5VNqvLwt8m51ANmYqX9N7R7v +lN36w+pQ8pBef49alGPyQnbKt5Mpqv4FtSN/yDuox0r9LXwTz+P98rq+B6nZ +o8/AvXIxjssP0ZcX9Z34M94j9Vmlb8a38TzeNxmZbVacE/LD9KMBq82a8538 +Upw/mZhjlshJ+RH605DMzDUvwSn5UQbQiCxkJRvZuc+fKclp+TEG0pg1Zi34 +Xn45zo0czDMrxRn5cQbRhLVmLflBfiXOgpxxl8xKc1Z+guT4DPrO/BW7QlPW +6VvxY9wJ9sgDyc5s/Ta1J2nYqz+iDiNv7ErcS7VM7LH8JG/Lfckc+xSfQe3C +3/JZdRw75QPqnXzGzXzAlHjfnq1XW/MxP+lPqyl8wVb9XnUQn5KD95nEdebE +3VR78QlpeY8JfMk+z4+qw/mcfHzItPg94ntDLRt/Rz6hjmJRfEeo/cgSv3ec +tdqVf+Izc1AeTK7YMf0GtQ0/x92IvWC7vjfp2K/PFd8zcjnOyU8xmOZsNGvL +L7HzsS/kZoFZ+fjM8tMMoQV54l6ZV+C8/AxDaUle8pGfAhSkEIUpQlGKUZzE +uEP+jYrxTuRnGUYrSsT9MK/EBfk5htOaknEXzCvHecqLGUEbSsVdMK/CR/IS +RtKW0rH/5lW5KD/PKNpRJnbdvFrsgryU0bSnbOy1eXUuycsYQwfKxS6a14gd +kJeTQkfKs8i8JpflFYylExXiHZjXit2SVzKOzlSM8zavHTsrr2I8XagU521e +hyvyaibQlcpxhuZ1Y9/kNUykG1XiDM3rcVVeyySSqBpnaF4/9l5ex2S6Uy3O +0LxB7HTcF6bQg+pxhuYNuRZ7yFR6ssmsHb/K25jHDn0f0nNAf0wdQf54V0xP +9f//1TU8+w+HbPBM + "], 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]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 2.1892889005344744`}}, + "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:eJwVlnk8lF0UgGcsJVvMjGVmCGOWqBClUronOwmRiMgWSSlURJstQqGQpFIk +skWyU6REiGTJFpmxhwrJ1vd+f83v+b33Pe895z73nJFzOmN+nAuHw03icbj/ +f90HZvlxOBGYMN/VGR80ggy4p3YHc4mAqU038+qVEbSROXJqDa8INK4s5J/w +H0HDHl+bBflFIEjlXuQe7xHk8qfyNpkkAhstD9SOOI4gB+EwitpGEZCuTpAz +2zeCDu8hK7qaiYDekagX4bgRpJOoadiYIgI3IOBkQeAw2hWhExeaKgK3WpcG +Ll0eRkqX9n/bmy4CxW5bZQwvDiOyw5Hz+VkiIDk1LDpydhhNsc4/TigSAZVm +uZxdDsMosTj7r0OjCKhN678DNIx+dFCfz/0RAWOhb4qi/zjo+wfaXO6iCOCt +csLpSxzUVaYAJ1ZE4OjCyUqNPxxU83BHRzeXKOz3et5yZpqDEl0tuN4IiUKL +RnTqyjcO0pqPsImQF4VT+eXGL6o5KEFskV/GVBTsJeJeFIVx0JsDT2WfHxQF +1uJ+tncIB42FmqlvPyQKXeXsdNVADtozn+64/4go6A7lLVX4Y/vpsCjxdRaF +h3fPdq+c5qAtiTnHW3xFod6vF3ZaclAtxfFNYIooJDrs2NbC5KApc8EOwVRR ++A7fB9bTOUgisnji7lNRMMxP1D0kx0Enl4Qkcp+LQmNdjv0ElYPW95ad7i4U +BR5X0rCFKAfZPCBR1epFwcBigCqxwkYh7a9Vqj6Kwuxpm5X0RTbKEfLQM2wW +hYzk5Z17FtgId6Xa61ibKAQN+oxe+M1G6faeHyL7RGHN4mYTpXE2+inz4Tz7 +pyg4XR64ltvFRkkXOO+cZkVh6M+0U2oHG2k1cYkPzotCxJ8BoYdf2CjOX7Oo +bwnb72DxSFoLG+1sL5jv4CVAXQep+e8HNhrc1KJnyUcAc/UO8oY6NooI+pHQ +xk8ABdQfaPCOjXqUN+5oWU+A8wNcrXnVbHQl4oFvPZkAB++txNWXsRFrsKxO +X4oADo4ykzKlbNSyo0vi/QYC9PW/L7xUzEZyHEJJjTwBDII+vTMsZKNaFL5Q +voUAlTGe4mq5bHQ64amBhgoBbGdUFaqy2Uj8R01iiSoB3MJCeMyy2OhE0srO +VzsIIOndAeEZbCQw530xdx+2X78BXuNUNircH1O/WYcAWiU3bgs/YaOjT3LI +WXoEcHG7BF0pbJRrOlr6bD8BjsiTtwQ+ZCOrdF5+pgkBYmsgyOEBVu8Vmk2a +GQHe92Uz9JPZyPy53WKKJQHGdt8JUUxioyVcgJGMNQE6TlQeZt1jozSrxKQH +NgQIb4xM25TIRnM8bRpJxwjwzadkwCiBjRKPGQTccSfArkAJKc5tNtpXdPyj +6CkCmMWvCshgPC4YTI3xJMCduJNtDrFstLussjzKhwCmGcoSy9FsxBbpERC4 +QIC7g++eW2Ic5bZge8MPq7+qrU7xLTbqJ6kth17Gzu/5rpLbN9kozMPMmOca +AdqvTWQKYqxSczo5KIgAYjmnW25FsdFXychJXCgBgjICd5AxDjqTsedqGAGS +RKbGsyLZaNP7d1ErNwhw/+6VeT2Mv0gN9QZEEeDsLLfreAQbXfLBbVm8RYCA +zxa6CRgzGqQv+8Vi+VUbpBhhzJ42GNkcR4Ar47CDC+MnYucODiYQoDC1avjt +DTZy3P2oPP4eAfaaz1dGYyzr2MAwSibA8mta43GM+6/PRa8+JIAGPlRWD+MH +2bKLBY8JEG3j0qCC8dHP+13c0gigzBT+ysCYsnChmfqMALTSdtv/+av0k50t +mQTYZEByUsY4UbvpSUg25kPjxiVtjA+7LwjuyiPA72FfdWeMxaLlfX/kE8Dk +vYf8TYy/FJoMPi4kwEO+c63VGN/uvrj/cDHm7yNeMzyWz0Hc01f8ZQR4WZiU +ux9jEWaLzOsKAtjdKFhOwbh5/9INn9cEoB9tNcRj9bvpxZxl1RDgseG1p6cw +Nr570L63lgDxSgdkhjDmr7z0IaaOAA9uNLx3wc6j/vszVd0GrN5Ho7N+YhzO +15b8t5EAfwV39N3AzpP3kIKX02cCnOzMP96LnX/txUM94u2YjwktPQmYH0GP +rup+7CTA8F73vqMxmM8T7eRtfQRwHa+vFsB8qxLBh4x+w/wqXno7i/Fl9c1T +yd8JoF3pHzN2h40WA4NqeEcJIJpnXTcfz0Ylz3I2l40TYIfD7oPr77KRb1NX +gucPAvDGeLPVMN9nJZU9On8RIKGUx/Uxdj9e7rVpj5wjAJPx12f8Pht5u4Qi +WCBAVNa5BoTdr+m8HmLmCnb/441j1v9/H9vXXLHDEWFnioVMxGM2OrW0dVSU +mwgHPqqri2L3eVwvvMKfjwhrFP5q6KZjfvVtO25MJEKwYuRRvRw2SuV2+IQT +J4KLdsgwM4+NnBQid72SJELONV1fUj4bfTs3KLRhAxHC7qdOir9io26BW0XT +G4nAZeI2VFaJ+bG1VDZtExGm2tUdeN9g/cCKHWGtRIQNRq1OdjWYD080jlWr +EaH+VN9Odawffto1svbOXiI4rjNkR7WyUc3Toj3kfUTgkbVxEsf6a6Hoda9H +2kQItBETy8b6b9IYvSfLgAh55Nn9yz1s5HrPKbfWnAhCRR9ct46w0RFe1SEj +SyLgqNk/pbF+buyFl2y1IsLgn3YJiR9stNUwJbDvKBHad0q5K2P9f3mh79C8 +KxHmslND/v7D6umSc+OSOxZvecXEmBubZy2XqrhOEWF/WAQlew0H1WVQN673 +IsKH9T9Gbgtx0G3rI0usACIct2+vXMXmk0LJl8dHookw+lnZymY3B0nR0zq+ +xRJha9gpqWDEQcIxPgKucUQw7o/MKtXmoFk3wnnve0SIVRq0NjPG5q2EmUFk +KhESJK8bMOw56LDvx6mKYiL0eIso+mHz13AoSV67jAgxOc5GwTew+Wt60rq+ +ggh2Khv/JN/iIDnWupr2aiIUxScwlhM5aLJDL37qIxEWjUTkPHI5KFi9Zrfs +ABHM1Mo/ivVyUJTXo4je70SIfpE2Hf2dg+KyL31N5BDB3V2TV2qMg9JpO3xF +J4jQcLl578l5DvognF3ANU+ExGzFiwOiw0h4JF6BI0CCthdm+8B4GInTfPwe +C5NAUUFPbMBiGMnYmdXZiZKAZ9G/5LbtMFJp4z/eIU4CvG/gYxWPYWTx+mpK +nRwJhO2zPMwisf87d90lnu8ggVzUGb5Nn4bR4896rq4aJPAuUehc6RxGz4Xo +r2iaJLAiL+xlDwyj8uB+8/taJDjyR2Hd5K9h1H/G4lbUARKoNY02jUqMIHkD +Td4zziR4fn3LXMrxEZS7IPJbLZoE0pd/cluKjCJ1c4dLQ7EkOOtyrcKfOoqq +svJ478SRIGw0504hcxQ125tI/rpHgguOopUumqNoqjZS80UaCRJeHP5U7DGK +lGPXhG8uI8HsBoa8cuMoeqGwLMXgkGCLEZl+M3kM7Qzen/5lBPveiQM22s/H +0JveJOWQcRLsPb37hHDJGGqJ3qU1NE2CoRd9kkNtY2hm7oLb40USzClXy4cJ +jmPz5me+tIgYDN6fXl8ROI7ybUb0xHeLQUk0W+l7wATyXOxOuqspBhkrhXrS +kRNIMal5ShLEQMA6J+lk0gR68vVVAlVXDKzOls/sLp3AfA0ZljUVA9Uoglzp +nwl07rDc9U3OYqAY+Muf6jeJdprbvoNIMWgOYde7Xf+Bqgw/aXv0iMFbgaqn +/Z3TKKakJZ/Wj8Vb/TG05cc0cmJ9lukeEINMjTv2BvgZtIa3fclgWAz81u4N +/iA+g0zedL9k/hQD90ytjZpaM+ib+rD89zXi8GuBPjOTNINw9BXuI6riECf3 +aFjH4ifat6pYq3dDHEgB+5bN+n6hZpT4I26TBLStkWXMcc2jbXI3X+Y3SABO +XQcXte8vEvkwt3zIVxKs1hqoH0hfRgMvXh/6elESJHN22BkULKO8ezey7S5J +Qod7aP2eqmVk4iF91DVQEq43+imKdiyjm8K65b6RkpCkcYHsyruC+C3jLiY9 +koTDr2cV8p1WEPd31flvdZKQ1X7ZyFxiFX1uWD7g0iAJ9w13yx2iraInL98/ +HW2UBO0hDdKBLatIK9TG8merJFQw9wnRtVfRtY1BhVy9klCweinIxXMVLXu2 +ejNmJMHTI++43NtVNL90ZvqkJBn8k390Sx//h3pf6jsyqGTIUP60s+jMP1Tt +IdP2TZoMkoax/fv8/6GonuaiQ/Jk0KOolKpG/0O08i1X9iqR4bfb3ld+Jf/Q +Af8JQYIOGdYope/R5sFB2oKrYukZMhS9aHGlmOIg4sXeZB9vMhgs8CZEWODg +zAlxYaXzZBh/bej82woHGl3vfj7xJ8OPKofyXAcctBTTS6NCySB1ZeuDj144 +WLrwXd/hPhmEDTZrJN7Ggfmc3fG1dWTwyMpbNWvGQfHHZ6Kv6rH97OLZWtKK +A6knPyudGsmg6K92Q6IdBxyTUPGqVjKcdHNOrOrBgV9Gdt25XjL8so4pyBnF +wSPbJYXvP8lw9HUdQRCPBx5V3Y7oWTKYaa7e+c2NhxN80UGaf8gwt2nwz+c1 +eFB9RetJXCbD83B05KIgHt4LG0WZrqXAAWN1ORcJPExWJ05VSFFAbGr7fO4m +PBxM/J50UoYC93+mixGV8FDkuVlfkkYBxeVVjqcKHq5R3zzyYVFA2986Wmg7 +HojnR8wUVSmgMri9ZlgTD377t650bqMAc3WUwQd46JULyAzdQYHdzWob5bTw +kN4szDW4hwIKn17hNPTwoLFR/eVdfQqQorWb15jg4dHq1WO6RhTobRf9zTbF +8muvF/htTAHvjPCMsoN4aAq0czExp8DrJ29fG1viwaEnRIzXjgK3DUMDBI7i +4V1+c3XBMQr0mW3Dp9vhQTFc0tPBiQJHVOaFdh7Dw+y27PflbhR4w6tSquWE +h7Bbbb7e3hR4sjVn3y83PMhmVU/9PEcBIXUbCVV3PJTU5R338qWA2h2eiJMn +8TCOi7I4e4kCguuVdN+dwoOJj46y53UKTK7LEqJ54WEkWjX9RzgF+KNfv2N6 +Y/XKlpU+HYnl69tJpvvgoYCzzH8qBnu+63oC33k8iFu/GnZPosCyYduInx8e +8s6l2o0lU0Ci/kGo1kU8GMTGfjnxiAJHDZKrefzx4N9wusYtjQKmwrvFfQKw ++o/Y7hpJp8AdlRVlmUt4yOY2euGaSYFTf9XH32Lcv4f58HguBQLe9mr9uYwH +3yMkMc4LClxb1/Q99AoeRC5wRbm8pMDqaU2m0FU8ZN6e4WK/okD8TWHhmxhr +5fVfdC6hgA1jy33ea3jo+dg4872MAj7rbjdfwPjcaJmbUyW2nqqVOYBxutxd +S8caCnTbtFk/DMQD2hvaOFBLAaWdi8q/MO6y8dF2qMPyj/lTsDcID16+jmXf +6ingNCcwFIwxf5zp1mONmE9NwdXVGKe+0Mzob8be1yk2XcB4T9MmGftWLH8d +/mhWMB7ax8gJfW0UUD05ec0UY881fEJ2HRQ4u9jFPIvxWvn54N4uCtR0HA66 +gXEKYi/a9lCA4bMQdx/jXUc/e/X0UaC0wdYhHePPfm9GbQYoUHxIcTgTY4/4 +3GPd3zEf/kpu/P85T0FyxxEOBdbzjrL+f/9Bc8SBryMUwMs6j4RjrD7hV2s9 +jn0fOZ44g/GntW67uyYpEHO/NtsE4xN0ywKraQrYpvoXMTHG79NW6PxJgcqZ +gLA/WH5JdltTDs9SIGhPo9z/+av5y0h0zFNAx9w/7P/6NCYI3bL8i/nEk1L2 +f/2Ov1ziaV+iQMIGp8r/67v6aSzg0CoFvtjOxD7C+O5k5682HBUuWoVq6GKs +su69uwU3FdoDXUuHsPOqZxQOfOalgjaRLRKAsZPWEytzPipY/LPWFsB4yT6m +uZWfCn9GFC3iMB/iAq7oHhSigq9Ig5Y4xu8LbdTMCFQIWOP6kQfz6XzK4Vpe +MSq0xoo+dMF8o0eZW5ZLUEFxcS21AvMx0NnIlylNBdcnbnLmmL8qpnp8vTJU +kLlXmR+D+d2voXUvlkaFuPwdi+8x//cQNMqXWVQQixGsoWD3Y2Jlu3GBIhVU +tGoNdvpi9Rrb2ue2BYtfeyThwAU8LLxR+PdZlQo/D56JP3YODy/PkLUzNakg +zecdK3cWy89W7Is9UOGcMqdixRPzX1/0OEmbCs2Ptn9qPY35s2Fd2FUDKjQt +nih19MD6R9NCg6UFFQxN30rLueLha8msrcBhKmzO9/xb4YKH8LSZyTfWWPzZ +Hd/MnPHACRgV3mxPhap1BT0ODphvil3mXO5UMLvSJEWzwYOp+JehYg8qKFCS +mq5YY+eFbzl32pMKG/Z8zW07jIejX+sSunyoEGJRKu5qgQeJ8OLu3CtU6NpR +x69kjIdbnAQn2zgqOOlXbTDdgwfN1tu/Re5SIa+FX3+rBtbPK26FvL9HBUGT +2VmBnXgwjLuevvURFcIbjiw8V8P81b4wvvY5Fdb7lu2NUcRDQIqld+FrKtD2 +pv9eFseD/ee5pt01VNBHY6YJJDwAT4LC21oq9C2s+isQ8LDmRMdAaz3G75cP +agrh4baylel0G5bvrNQdKjZ/nldZb1YcpYKc1Nhs0Q8cdPfaDj8SkQLa9k2L +t6pwUCm8vI9FlALJFNqlU+U4SIHkB7liUpArluGvU4ID17TeQ5UUKViv7czD +zsfBLw+7t910Kajdkjc5mIYD/iX7FLFdUjDbqanUfwObx2Qnm0hHKXjjflmK +ywwHahSRFgMXKQirMogc24+DzdQq3TVuUsC1XOj4UR8H0tKUrYGnpOAUeu9y +BeEAJ/d5ra+vFDjtq3v0RAkHdRu1XjndlAINekLruAAODu2kiWiUSoHPocdP +nEP/oTNW39+NikgDz1H601e6q2j0AteFe0RpMJIgV7juXkUOCTSmkbg06C/4 +DIpsXUVm7U7Xs6jSUHl6xx0zqVWkYjGk58mUhvbb67df/bWCfpmw637vlob7 +Cuhc+oMVdEFvuH7VVRrO/3rLDp5eRpe3jzeRKqXh4sC+wgchSyg+hfvqS7sN +sHLJ6dq51wtIvjXmZZeADFC5XibmFc6h8lvKsWdzZWCrl/7hxtlfSGz+eegE +UxbokpfD407PoPC1fjxOl2VhVPlsr0zPBLr2ralTtFkW2px8EzvzR9C2pL7J +EIYcaBbfvfO4agh9oW81OxYgB0Ms3Zc67gPo73khPp+PcrB9lDj48VoP+pqZ +ijei0SBCfSLu5YMOtDetxtTGhwa7JJ2uVX74jNyUtyklnqPBs0HHeytln1FM +2VPBjvM0sPJ/SdTP+YyGWsLrD/rRwKibLT4f+xmFr5hoG16mwY+by9VvbT+j +z4d71HeG0WD5ejI3+Wcrcl03Ky1+nwYBzboG12mtKNqTMdlaQwO365Fed/Z+ +QjqDDzoVa2ngYKnwwZ/xCS1YiL8NfkeDSxomm84LfkIOu9Ymbf9AAxur1+wn +3c1IhWdM/14TDXyOONYO+Dajz/eyUx26sO/xLRn0vGpCYu/UbKd/0EA24wHh +PGpE96laDYJkeUjqOrCQdL0encwXvG9CkYePURNMA596tFO/0yOGKg9OguMH +uR3q0RfvU0KkDfIw8S3GL3VXPRJuSDCjysuD7REl/ogfH9A1v4kOhS3yYC6i +YzNq9QG5tMcN6e2Th7j2srNZ6nVoc/TI8jV3eTBaOzXvRnmHQgVLu/tOyoPd +pT9H5vjeof4bESUap+TBsss4PeZPLYoN2XJu1lMe1v1daZ35UovmL/pMuJ2T +h9mHldaHY2rRa5d/X02uysOyY/DBnHW1yFxDolgqXh7c+28n6q55i/w4el4l +b+Th+2LsZj5GNZoIPblttVoeeqd9KwslqpE989Yf7bfycH+rtb0HfzXSdWu/ +/OmdPCiKX385P/0GEcacI4Yb5GFb8Ao7pPwNyp68lkpql4d0/nuaFw+9QQO/ +y9rPjslDjfhcL436GhlyKWsoEOhQ8WwmXky9Ai3nRyadINLh55Ctqr9sBcp1 +HF18RqLDyy9Cf6f4KxCp+nE5U4IO9y+YdvINlKOBqyRNuhQdkBzt7nJEOfJb ++YtkmHRoWeuk0T1UhjIWanXFNOig5vF9h+zjUrR22uYg3okOOt9+KV3VL0Y6 +16uqbJ3pUCW79i1pWzEKkqZtLnKhQ/tRqkaZbDFa3T+2xsONDtPWxx5tWyxC +8xm+FV9O0eHW/nUTnJwiNOwUx8rwpcMB36h6ZckiVNvRtGJykw4L7L4gwYVC +dK0KnieX0IFfkFPj8r0AdfnNL38rpcO/gzffpLYVIBW1bFP5ciy+GV1yqrYA +DTyTmMusxHjc7GXaswIEsVOouIYOnTIHchNPFyCcS3J7ayMdHszTzsQt5aOr +6xZwawfpkHzUSeCJTD66cijPymsdA6bCLnypEsxDjvMexZ/4GeBKIGc4/8pF +OokbJZQEGVDtWHpnQ1cu4u993DEuzIAUw7aTHam5KN45ztKFxICEx/E04z25 +KNv7ooWVDAPrT03q4JWDumO0TTW3MyDv6Wx263gW2tHUqbfOkQEbLso+X5TM +RDZXmrQdnRhgbn/OjpsnE11Sfgulzgw4Mp3rJj2dgWpiczXcXRkg2frSIPRd +BjI+HKpU78EA+0v2RTSfDOTwTVX8xgUGSJXcUQpvfYYift7k8EUxQHsgX+VR +UjrqFdMJ4StmwCma1N9NtmlIcjzS1bCEAWfkbX7o7U9DllVtBhGlDFi22rTV +c3caanZ1FhKsYICTpUDQIDUNVRcHJayvZoBRSr+2TV8qSj9SnSH+kQF8iLoj +yikVeT3Y20T/xgDWGdeigvNP0BrGLvF9a5mwbGexk1mZgpoHwngf8DEBp0/1 +mMtNQfHJHbML65jwpEwvtiUlBdFJ59peCDKhc1Iy5nlICtLizouRJTDh3dBD +7UnjFHR1kC6Ak2ZCx8HHf3a/foQWHojgXqsyQef47KYZykM0IT46tseeCUf7 +Z53FCPdR41x4VeAxJjS+vtmfspyEcr8o3HnvwARXbXFtzZEk5H3bY4+ZMxOG +pfbGZ1QkoQWh6VvOJ5iwTpwwrX8iCa3hnVeL8Mb2t5JDe1hzD8n+5r7SeZ0J +k8nOX02DE5HlJxmCdx4TLqvvmpFTTUAXKv8Gv3jBBGbK+bR+2QSUmNU2N5XP +hEdfPhVlrE9A3WFhXz0KmZBJ6ml0+RGPHGA65XgpE37PjacEZMZj/bBK+chb +Jmxv/SVOpceja3fsDkAnE74wh7b10uJQttX9cOF/TJCxft52WOc2st5yae0J +HAv6jx01HN92G/Fw212vxrNgXG9DaQTjNrLL3RByjocFZwOu2v5acxsJ8z65 +2r2OBVVT7ldsG2LR2YKMC+kkFlx8ZzkdaRGLtgsVuexVZIEOPOiQOhODqmpa +wNOSBT7Be25lxt5EIeXcT18cZsHHUqMsa/+baH+h+rrfViyYNLSSpjjfRF1P +k1t9bbD1eoy6tm030c/wE06Bx1hwzpyYKvs1CtFNcSFx7ixYuSOwmcSIQhE9 +ynVll1nAbZy0jashAlnO3jqwNp0FQ3/3Z5B1w1FNs5bKmWcsOP6i/FOZcjhS +yZwndGZg8WxwlZ6UcCRob9+VnsWCdVlnnwnPhKHaui3OevksuKn/7ffm5DCk +er/RL7SCBYkTV63b/1xHIlr8adxt2HO7iZtuFaHoilTVdY8vLIjzsH6hlRmK +Jue93NvaWYAPF0pXSghFH7K+KqV2sUBo6kLLzrOh6KpYZqlWPwsgQDacxAhF +U6P6nwLHWNCaOfu9NzYEHX27lD82zgJmbJJn1dUQ1PAgL+7gJAv2d3aM5J0O +QenmEjZy0yzoNTnsUWMYguwqhtlvZlmgfnlaNY0LW5+QVLdxngXrE72ecf8M +Rju9TJ7H/GFBirHRfe9vwYjELDrjsMiCeb6ahisVwSgId9L8wxILXr49NkHN +CkYz3dLbVVZYIHzyoOWHe8HI/lWrROIqCwwT1ZaCw4NRY3To4r9/WPybuZ9M +fIPRf8ovxVY= + "]]}, "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., 2.1892889005344744`}}, + "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:eJwVlnk8lF0UgGcsJVvMjGVmCGOWqBClUronOwmRiMgWSSlURJstQqGQpFIk +skWyU6REiGTJFpmxhwrJ1vd+f83v+b33Pe895z73nJFzOmN+nAuHw03icbj/ +f90HZvlxOBGYMN/VGR80ggy4p3YHc4mAqU038+qVEbSROXJqDa8INK4s5J/w +H0HDHl+bBflFIEjlXuQe7xHk8qfyNpkkAhstD9SOOI4gB+EwitpGEZCuTpAz +2zeCDu8hK7qaiYDekagX4bgRpJOoadiYIgI3IOBkQeAw2hWhExeaKgK3WpcG +Ll0eRkqX9n/bmy4CxW5bZQwvDiOyw5Hz+VkiIDk1LDpydhhNsc4/TigSAZVm +uZxdDsMosTj7r0OjCKhN678DNIx+dFCfz/0RAWOhb4qi/zjo+wfaXO6iCOCt +csLpSxzUVaYAJ1ZE4OjCyUqNPxxU83BHRzeXKOz3et5yZpqDEl0tuN4IiUKL +RnTqyjcO0pqPsImQF4VT+eXGL6o5KEFskV/GVBTsJeJeFIVx0JsDT2WfHxQF +1uJ+tncIB42FmqlvPyQKXeXsdNVADtozn+64/4go6A7lLVX4Y/vpsCjxdRaF +h3fPdq+c5qAtiTnHW3xFod6vF3ZaclAtxfFNYIooJDrs2NbC5KApc8EOwVRR ++A7fB9bTOUgisnji7lNRMMxP1D0kx0Enl4Qkcp+LQmNdjv0ElYPW95ad7i4U +BR5X0rCFKAfZPCBR1epFwcBigCqxwkYh7a9Vqj6Kwuxpm5X0RTbKEfLQM2wW +hYzk5Z17FtgId6Xa61ibKAQN+oxe+M1G6faeHyL7RGHN4mYTpXE2+inz4Tz7 +pyg4XR64ltvFRkkXOO+cZkVh6M+0U2oHG2k1cYkPzotCxJ8BoYdf2CjOX7Oo +bwnb72DxSFoLG+1sL5jv4CVAXQep+e8HNhrc1KJnyUcAc/UO8oY6NooI+pHQ +xk8ABdQfaPCOjXqUN+5oWU+A8wNcrXnVbHQl4oFvPZkAB++txNWXsRFrsKxO +X4oADo4ykzKlbNSyo0vi/QYC9PW/L7xUzEZyHEJJjTwBDII+vTMsZKNaFL5Q +voUAlTGe4mq5bHQ64amBhgoBbGdUFaqy2Uj8R01iiSoB3MJCeMyy2OhE0srO +VzsIIOndAeEZbCQw530xdx+2X78BXuNUNircH1O/WYcAWiU3bgs/YaOjT3LI +WXoEcHG7BF0pbJRrOlr6bD8BjsiTtwQ+ZCOrdF5+pgkBYmsgyOEBVu8Vmk2a +GQHe92Uz9JPZyPy53WKKJQHGdt8JUUxioyVcgJGMNQE6TlQeZt1jozSrxKQH +NgQIb4xM25TIRnM8bRpJxwjwzadkwCiBjRKPGQTccSfArkAJKc5tNtpXdPyj +6CkCmMWvCshgPC4YTI3xJMCduJNtDrFstLussjzKhwCmGcoSy9FsxBbpERC4 +QIC7g++eW2Ic5bZge8MPq7+qrU7xLTbqJ6kth17Gzu/5rpLbN9kozMPMmOca +AdqvTWQKYqxSczo5KIgAYjmnW25FsdFXychJXCgBgjICd5AxDjqTsedqGAGS +RKbGsyLZaNP7d1ErNwhw/+6VeT2Mv0gN9QZEEeDsLLfreAQbXfLBbVm8RYCA +zxa6CRgzGqQv+8Vi+VUbpBhhzJ42GNkcR4Ar47CDC+MnYucODiYQoDC1avjt +DTZy3P2oPP4eAfaaz1dGYyzr2MAwSibA8mta43GM+6/PRa8+JIAGPlRWD+MH +2bKLBY8JEG3j0qCC8dHP+13c0gigzBT+ysCYsnChmfqMALTSdtv/+av0k50t +mQTYZEByUsY4UbvpSUg25kPjxiVtjA+7LwjuyiPA72FfdWeMxaLlfX/kE8Dk +vYf8TYy/FJoMPi4kwEO+c63VGN/uvrj/cDHm7yNeMzyWz0Hc01f8ZQR4WZiU +ux9jEWaLzOsKAtjdKFhOwbh5/9INn9cEoB9tNcRj9bvpxZxl1RDgseG1p6cw +Nr570L63lgDxSgdkhjDmr7z0IaaOAA9uNLx3wc6j/vszVd0GrN5Ho7N+YhzO +15b8t5EAfwV39N3AzpP3kIKX02cCnOzMP96LnX/txUM94u2YjwktPQmYH0GP +rup+7CTA8F73vqMxmM8T7eRtfQRwHa+vFsB8qxLBh4x+w/wqXno7i/Fl9c1T +yd8JoF3pHzN2h40WA4NqeEcJIJpnXTcfz0Ylz3I2l40TYIfD7oPr77KRb1NX +gucPAvDGeLPVMN9nJZU9On8RIKGUx/Uxdj9e7rVpj5wjAJPx12f8Pht5u4Qi +WCBAVNa5BoTdr+m8HmLmCnb/441j1v9/H9vXXLHDEWFnioVMxGM2OrW0dVSU +mwgHPqqri2L3eVwvvMKfjwhrFP5q6KZjfvVtO25MJEKwYuRRvRw2SuV2+IQT +J4KLdsgwM4+NnBQid72SJELONV1fUj4bfTs3KLRhAxHC7qdOir9io26BW0XT +G4nAZeI2VFaJ+bG1VDZtExGm2tUdeN9g/cCKHWGtRIQNRq1OdjWYD080jlWr +EaH+VN9Odawffto1svbOXiI4rjNkR7WyUc3Toj3kfUTgkbVxEsf6a6Hoda9H +2kQItBETy8b6b9IYvSfLgAh55Nn9yz1s5HrPKbfWnAhCRR9ct46w0RFe1SEj +SyLgqNk/pbF+buyFl2y1IsLgn3YJiR9stNUwJbDvKBHad0q5K2P9f3mh79C8 +KxHmslND/v7D6umSc+OSOxZvecXEmBubZy2XqrhOEWF/WAQlew0H1WVQN673 +IsKH9T9Gbgtx0G3rI0usACIct2+vXMXmk0LJl8dHookw+lnZymY3B0nR0zq+ +xRJha9gpqWDEQcIxPgKucUQw7o/MKtXmoFk3wnnve0SIVRq0NjPG5q2EmUFk +KhESJK8bMOw56LDvx6mKYiL0eIso+mHz13AoSV67jAgxOc5GwTew+Wt60rq+ +ggh2Khv/JN/iIDnWupr2aiIUxScwlhM5aLJDL37qIxEWjUTkPHI5KFi9Zrfs +ABHM1Mo/ivVyUJTXo4je70SIfpE2Hf2dg+KyL31N5BDB3V2TV2qMg9JpO3xF +J4jQcLl578l5DvognF3ANU+ExGzFiwOiw0h4JF6BI0CCthdm+8B4GInTfPwe +C5NAUUFPbMBiGMnYmdXZiZKAZ9G/5LbtMFJp4z/eIU4CvG/gYxWPYWTx+mpK +nRwJhO2zPMwisf87d90lnu8ggVzUGb5Nn4bR4896rq4aJPAuUehc6RxGz4Xo +r2iaJLAiL+xlDwyj8uB+8/taJDjyR2Hd5K9h1H/G4lbUARKoNY02jUqMIHkD +Td4zziR4fn3LXMrxEZS7IPJbLZoE0pd/cluKjCJ1c4dLQ7EkOOtyrcKfOoqq +svJ478SRIGw0504hcxQ125tI/rpHgguOopUumqNoqjZS80UaCRJeHP5U7DGK +lGPXhG8uI8HsBoa8cuMoeqGwLMXgkGCLEZl+M3kM7Qzen/5lBPveiQM22s/H +0JveJOWQcRLsPb37hHDJGGqJ3qU1NE2CoRd9kkNtY2hm7oLb40USzClXy4cJ +jmPz5me+tIgYDN6fXl8ROI7ybUb0xHeLQUk0W+l7wATyXOxOuqspBhkrhXrS +kRNIMal5ShLEQMA6J+lk0gR68vVVAlVXDKzOls/sLp3AfA0ZljUVA9Uoglzp +nwl07rDc9U3OYqAY+Muf6jeJdprbvoNIMWgOYde7Xf+Bqgw/aXv0iMFbgaqn +/Z3TKKakJZ/Wj8Vb/TG05cc0cmJ9lukeEINMjTv2BvgZtIa3fclgWAz81u4N +/iA+g0zedL9k/hQD90ytjZpaM+ib+rD89zXi8GuBPjOTNINw9BXuI6riECf3 +aFjH4ifat6pYq3dDHEgB+5bN+n6hZpT4I26TBLStkWXMcc2jbXI3X+Y3SABO +XQcXte8vEvkwt3zIVxKs1hqoH0hfRgMvXh/6elESJHN22BkULKO8ezey7S5J +Qod7aP2eqmVk4iF91DVQEq43+imKdiyjm8K65b6RkpCkcYHsyruC+C3jLiY9 +koTDr2cV8p1WEPd31flvdZKQ1X7ZyFxiFX1uWD7g0iAJ9w13yx2iraInL98/ +HW2UBO0hDdKBLatIK9TG8merJFQw9wnRtVfRtY1BhVy9klCweinIxXMVLXu2 +ejNmJMHTI++43NtVNL90ZvqkJBn8k390Sx//h3pf6jsyqGTIUP60s+jMP1Tt +IdP2TZoMkoax/fv8/6GonuaiQ/Jk0KOolKpG/0O08i1X9iqR4bfb3ld+Jf/Q +Af8JQYIOGdYope/R5sFB2oKrYukZMhS9aHGlmOIg4sXeZB9vMhgs8CZEWODg +zAlxYaXzZBh/bej82woHGl3vfj7xJ8OPKofyXAcctBTTS6NCySB1ZeuDj144 +WLrwXd/hPhmEDTZrJN7Ggfmc3fG1dWTwyMpbNWvGQfHHZ6Kv6rH97OLZWtKK +A6knPyudGsmg6K92Q6IdBxyTUPGqVjKcdHNOrOrBgV9Gdt25XjL8so4pyBnF +wSPbJYXvP8lw9HUdQRCPBx5V3Y7oWTKYaa7e+c2NhxN80UGaf8gwt2nwz+c1 +eFB9RetJXCbD83B05KIgHt4LG0WZrqXAAWN1ORcJPExWJ05VSFFAbGr7fO4m +PBxM/J50UoYC93+mixGV8FDkuVlfkkYBxeVVjqcKHq5R3zzyYVFA2986Wmg7 +HojnR8wUVSmgMri9ZlgTD377t650bqMAc3WUwQd46JULyAzdQYHdzWob5bTw +kN4szDW4hwIKn17hNPTwoLFR/eVdfQqQorWb15jg4dHq1WO6RhTobRf9zTbF +8muvF/htTAHvjPCMsoN4aAq0czExp8DrJ29fG1viwaEnRIzXjgK3DUMDBI7i +4V1+c3XBMQr0mW3Dp9vhQTFc0tPBiQJHVOaFdh7Dw+y27PflbhR4w6tSquWE +h7Bbbb7e3hR4sjVn3y83PMhmVU/9PEcBIXUbCVV3PJTU5R338qWA2h2eiJMn +8TCOi7I4e4kCguuVdN+dwoOJj46y53UKTK7LEqJ54WEkWjX9RzgF+KNfv2N6 +Y/XKlpU+HYnl69tJpvvgoYCzzH8qBnu+63oC33k8iFu/GnZPosCyYduInx8e +8s6l2o0lU0Ci/kGo1kU8GMTGfjnxiAJHDZKrefzx4N9wusYtjQKmwrvFfQKw ++o/Y7hpJp8AdlRVlmUt4yOY2euGaSYFTf9XH32Lcv4f58HguBQLe9mr9uYwH +3yMkMc4LClxb1/Q99AoeRC5wRbm8pMDqaU2m0FU8ZN6e4WK/okD8TWHhmxhr +5fVfdC6hgA1jy33ea3jo+dg4872MAj7rbjdfwPjcaJmbUyW2nqqVOYBxutxd +S8caCnTbtFk/DMQD2hvaOFBLAaWdi8q/MO6y8dF2qMPyj/lTsDcID16+jmXf +6ingNCcwFIwxf5zp1mONmE9NwdXVGKe+0Mzob8be1yk2XcB4T9MmGftWLH8d +/mhWMB7ax8gJfW0UUD05ec0UY881fEJ2HRQ4u9jFPIvxWvn54N4uCtR0HA66 +gXEKYi/a9lCA4bMQdx/jXUc/e/X0UaC0wdYhHePPfm9GbQYoUHxIcTgTY4/4 +3GPd3zEf/kpu/P85T0FyxxEOBdbzjrL+f/9Bc8SBryMUwMs6j4RjrD7hV2s9 +jn0fOZ44g/GntW67uyYpEHO/NtsE4xN0ywKraQrYpvoXMTHG79NW6PxJgcqZ +gLA/WH5JdltTDs9SIGhPo9z/+av5y0h0zFNAx9w/7P/6NCYI3bL8i/nEk1L2 +f/2Ov1ziaV+iQMIGp8r/67v6aSzg0CoFvtjOxD7C+O5k5682HBUuWoVq6GKs +su69uwU3FdoDXUuHsPOqZxQOfOalgjaRLRKAsZPWEytzPipY/LPWFsB4yT6m +uZWfCn9GFC3iMB/iAq7oHhSigq9Ig5Y4xu8LbdTMCFQIWOP6kQfz6XzK4Vpe +MSq0xoo+dMF8o0eZW5ZLUEFxcS21AvMx0NnIlylNBdcnbnLmmL8qpnp8vTJU +kLlXmR+D+d2voXUvlkaFuPwdi+8x//cQNMqXWVQQixGsoWD3Y2Jlu3GBIhVU +tGoNdvpi9Rrb2ue2BYtfeyThwAU8LLxR+PdZlQo/D56JP3YODy/PkLUzNakg +zecdK3cWy89W7Is9UOGcMqdixRPzX1/0OEmbCs2Ptn9qPY35s2Fd2FUDKjQt +nih19MD6R9NCg6UFFQxN30rLueLha8msrcBhKmzO9/xb4YKH8LSZyTfWWPzZ +Hd/MnPHACRgV3mxPhap1BT0ODphvil3mXO5UMLvSJEWzwYOp+JehYg8qKFCS +mq5YY+eFbzl32pMKG/Z8zW07jIejX+sSunyoEGJRKu5qgQeJ8OLu3CtU6NpR +x69kjIdbnAQn2zgqOOlXbTDdgwfN1tu/Re5SIa+FX3+rBtbPK26FvL9HBUGT +2VmBnXgwjLuevvURFcIbjiw8V8P81b4wvvY5Fdb7lu2NUcRDQIqld+FrKtD2 +pv9eFseD/ee5pt01VNBHY6YJJDwAT4LC21oq9C2s+isQ8LDmRMdAaz3G75cP +agrh4baylel0G5bvrNQdKjZ/nldZb1YcpYKc1Nhs0Q8cdPfaDj8SkQLa9k2L +t6pwUCm8vI9FlALJFNqlU+U4SIHkB7liUpArluGvU4ID17TeQ5UUKViv7czD +zsfBLw+7t910Kajdkjc5mIYD/iX7FLFdUjDbqanUfwObx2Qnm0hHKXjjflmK +ywwHahSRFgMXKQirMogc24+DzdQq3TVuUsC1XOj4UR8H0tKUrYGnpOAUeu9y +BeEAJ/d5ra+vFDjtq3v0RAkHdRu1XjndlAINekLruAAODu2kiWiUSoHPocdP +nEP/oTNW39+NikgDz1H601e6q2j0AteFe0RpMJIgV7juXkUOCTSmkbg06C/4 +DIpsXUVm7U7Xs6jSUHl6xx0zqVWkYjGk58mUhvbb67df/bWCfpmw637vlob7 +Cuhc+oMVdEFvuH7VVRrO/3rLDp5eRpe3jzeRKqXh4sC+wgchSyg+hfvqS7sN +sHLJ6dq51wtIvjXmZZeADFC5XibmFc6h8lvKsWdzZWCrl/7hxtlfSGz+eegE +UxbokpfD407PoPC1fjxOl2VhVPlsr0zPBLr2ralTtFkW2px8EzvzR9C2pL7J +EIYcaBbfvfO4agh9oW81OxYgB0Ms3Zc67gPo73khPp+PcrB9lDj48VoP+pqZ +ijei0SBCfSLu5YMOtDetxtTGhwa7JJ2uVX74jNyUtyklnqPBs0HHeytln1FM +2VPBjvM0sPJ/SdTP+YyGWsLrD/rRwKibLT4f+xmFr5hoG16mwY+by9VvbT+j +z4d71HeG0WD5ejI3+Wcrcl03Ky1+nwYBzboG12mtKNqTMdlaQwO365Fed/Z+ +QjqDDzoVa2ngYKnwwZ/xCS1YiL8NfkeDSxomm84LfkIOu9Ymbf9AAxur1+wn +3c1IhWdM/14TDXyOONYO+Dajz/eyUx26sO/xLRn0vGpCYu/UbKd/0EA24wHh +PGpE96laDYJkeUjqOrCQdL0encwXvG9CkYePURNMA596tFO/0yOGKg9OguMH +uR3q0RfvU0KkDfIw8S3GL3VXPRJuSDCjysuD7REl/ogfH9A1v4kOhS3yYC6i +YzNq9QG5tMcN6e2Th7j2srNZ6nVoc/TI8jV3eTBaOzXvRnmHQgVLu/tOyoPd +pT9H5vjeof4bESUap+TBsss4PeZPLYoN2XJu1lMe1v1daZ35UovmL/pMuJ2T +h9mHldaHY2rRa5d/X02uysOyY/DBnHW1yFxDolgqXh7c+28n6q55i/w4el4l +b+Th+2LsZj5GNZoIPblttVoeeqd9KwslqpE989Yf7bfycH+rtb0HfzXSdWu/ +/OmdPCiKX385P/0GEcacI4Yb5GFb8Ao7pPwNyp68lkpql4d0/nuaFw+9QQO/ +y9rPjslDjfhcL436GhlyKWsoEOhQ8WwmXky9Ai3nRyadINLh55Ctqr9sBcp1 +HF18RqLDyy9Cf6f4KxCp+nE5U4IO9y+YdvINlKOBqyRNuhQdkBzt7nJEOfJb ++YtkmHRoWeuk0T1UhjIWanXFNOig5vF9h+zjUrR22uYg3okOOt9+KV3VL0Y6 +16uqbJ3pUCW79i1pWzEKkqZtLnKhQ/tRqkaZbDFa3T+2xsONDtPWxx5tWyxC +8xm+FV9O0eHW/nUTnJwiNOwUx8rwpcMB36h6ZckiVNvRtGJykw4L7L4gwYVC +dK0KnieX0IFfkFPj8r0AdfnNL38rpcO/gzffpLYVIBW1bFP5ciy+GV1yqrYA +DTyTmMusxHjc7GXaswIEsVOouIYOnTIHchNPFyCcS3J7ayMdHszTzsQt5aOr +6xZwawfpkHzUSeCJTD66cijPymsdA6bCLnypEsxDjvMexZ/4GeBKIGc4/8pF +OokbJZQEGVDtWHpnQ1cu4u993DEuzIAUw7aTHam5KN45ztKFxICEx/E04z25 +KNv7ooWVDAPrT03q4JWDumO0TTW3MyDv6Wx263gW2tHUqbfOkQEbLso+X5TM +RDZXmrQdnRhgbn/OjpsnE11Sfgulzgw4Mp3rJj2dgWpiczXcXRkg2frSIPRd +BjI+HKpU78EA+0v2RTSfDOTwTVX8xgUGSJXcUQpvfYYift7k8EUxQHsgX+VR +UjrqFdMJ4StmwCma1N9NtmlIcjzS1bCEAWfkbX7o7U9DllVtBhGlDFi22rTV +c3caanZ1FhKsYICTpUDQIDUNVRcHJayvZoBRSr+2TV8qSj9SnSH+kQF8iLoj +yikVeT3Y20T/xgDWGdeigvNP0BrGLvF9a5mwbGexk1mZgpoHwngf8DEBp0/1 +mMtNQfHJHbML65jwpEwvtiUlBdFJ59peCDKhc1Iy5nlICtLizouRJTDh3dBD +7UnjFHR1kC6Ak2ZCx8HHf3a/foQWHojgXqsyQef47KYZykM0IT46tseeCUf7 +Z53FCPdR41x4VeAxJjS+vtmfspyEcr8o3HnvwARXbXFtzZEk5H3bY4+ZMxOG +pfbGZ1QkoQWh6VvOJ5iwTpwwrX8iCa3hnVeL8Mb2t5JDe1hzD8n+5r7SeZ0J +k8nOX02DE5HlJxmCdx4TLqvvmpFTTUAXKv8Gv3jBBGbK+bR+2QSUmNU2N5XP +hEdfPhVlrE9A3WFhXz0KmZBJ6ml0+RGPHGA65XgpE37PjacEZMZj/bBK+chb +Jmxv/SVOpceja3fsDkAnE74wh7b10uJQttX9cOF/TJCxft52WOc2st5yae0J +HAv6jx01HN92G/Fw212vxrNgXG9DaQTjNrLL3RByjocFZwOu2v5acxsJ8z65 +2r2OBVVT7ldsG2LR2YKMC+kkFlx8ZzkdaRGLtgsVuexVZIEOPOiQOhODqmpa +wNOSBT7Be25lxt5EIeXcT18cZsHHUqMsa/+baH+h+rrfViyYNLSSpjjfRF1P +k1t9bbD1eoy6tm030c/wE06Bx1hwzpyYKvs1CtFNcSFx7ixYuSOwmcSIQhE9 +ynVll1nAbZy0jashAlnO3jqwNp0FQ3/3Z5B1w1FNs5bKmWcsOP6i/FOZcjhS +yZwndGZg8WxwlZ6UcCRob9+VnsWCdVlnnwnPhKHaui3OevksuKn/7ffm5DCk +er/RL7SCBYkTV63b/1xHIlr8adxt2HO7iZtuFaHoilTVdY8vLIjzsH6hlRmK +Jue93NvaWYAPF0pXSghFH7K+KqV2sUBo6kLLzrOh6KpYZqlWPwsgQDacxAhF +U6P6nwLHWNCaOfu9NzYEHX27lD82zgJmbJJn1dUQ1PAgL+7gJAv2d3aM5J0O +QenmEjZy0yzoNTnsUWMYguwqhtlvZlmgfnlaNY0LW5+QVLdxngXrE72ecf8M +Rju9TJ7H/GFBirHRfe9vwYjELDrjsMiCeb6ahisVwSgId9L8wxILXr49NkHN +CkYz3dLbVVZYIHzyoOWHe8HI/lWrROIqCwwT1ZaCw4NRY3To4r9/WPybuZ9M +fIPRf8ovxVY= + "]]}, "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:eJwVmHk8VG0Ux2csJVvMjG2GMGaJClEqpedkJyESEdkiKYWKaLFGKBSSVIpE +tkh2ipQIkSzZsszYQ4Vk673vX/O5n3vvc89znvP7/s4ZWcdzZic5cDjcFB6H ++//XbWCOF4cTgkmzPZ3xQaNIO1HDoDFFCG6C/+mCwBGUILLEK20iDHZicS+L +wtjop/THi6yfwuB4dSAgt4uF6A1SV31jCbCnWj/FMIKFPu8ZXX93PxEcNhiw +olpZKFitZq/MABFMVcs/ifSyUe6i0G/VaBJIXf3JaSE0hvKtR3VF94pASTRL +cch/ElUZfNZy7xGBd3xVz/o7Z9CBNYVa3ZuiQPI/sGLa9ws1o8QfcVvEoG2d +DH2eYwHtkL31Kr9BDHBq2rioA3+R0Mf5lSM+4mC5Xl/tUPoKWlg+N3NaXAL8 +kn90S538h8zmbU+ur5MA96y8NdNmHITdbvPx8iLD0+05B3654uFDobWqKYEC +/utcPnFdw4N/ioVX4RsKUPen/14RxYO6hKN1pIMkvHW7KslhioNzlkPvx4Sk +gOs47dlrnTV0dedEE6lSCi4PHCh8GLKM4lM4r7+y3QSrVxwDLrxZRHKtMa+6 ++KSBwvEqMa9wHpXfVoo9nysN2z31jjbO/UIiCy9CJxkyQBO/Gh53dhaFr/fl +crwqA2NK53uleyZRwPemTuFmGWhz9EnszB9FO5L6pkLosqBRfO/uk6ph9JW2 +3fSEvywMM3VeabsNoL8XBXi8P8nCzjHi4KeAHvQtMxVvSKVChNpk3KuHHWh/ +Wo2JtTcV9og7BlR+/IKiPehTrTVUcL0R6Xl3/2f0gKLZwC8hB0ldhxaTbtSj +rdGjKwFucmC4fnrBlfwe+bJ1PUveysHQUuxWHno1MuBQUpcn0KDi+Wy8iFoF +Wj9jfRjvSAPt778Ur+sVo4AqeJFcQgNefnaN81ABunYkz9JzAx2mwy59reLP +Q7uaOnU3ONBh02WZF0vimahXRDuEp5gOZ6iSf7fYpKF19D2iB9YzYMXWfDej +MgVNio6N77NjwPH+OScRwgNk8Vma4JXHgKtqe2ZlVRJQtuWDcMF/DJC2etF2 +VPsOqqppAQ8LJngH77udGXsLWczdPrQ+nQnDfw9mSOiEo8bo0KV//5iw8Vbu +Z2OfYHR0n4SCi6kQ6B6LehmOG0U/Oigv5v8IgZHAdwXhf2xUS3Z4G5giDIn2 +u3a0MNiIb97rcu4BApj5DnAbpbLQUmBQDfcYAYTzrOoW4llIvuTrk2PRRBj7 +omRpvZeNEu+5ib3YRQLZqHM8Wz6PoJfyK5J0Ngm2GUrQbiWPo91mNu8hUgSa +Q1j1rjd+IBxtlfOYiijEyT4e0Tb/iTiHVBa+14lDVvtVQzOxNZS26KJQek4C +il62uJBNcDBVnThdIUkGkemdC7lb8JAue8/CoYYM3dZtVo8C8ZCi0GXG4UYB +02tNklRrPHT32ow8FpIE6s4tS7ercHBkN1VIvVQSvI88eeoU+g9d0h2pX3OR +gou/3rGCZ1aQy4Y5KdEHVPBv1tG/QW1FIu9VbWZ+UEEm4yHhImpEzu1xw7oH +5CCuvex8llodMlMXK5aMlwO3/juJOuveoYHfZe3nx+WgRnS+l0p5gzIWa3VE +1Gmg6j60S+ZJKartaFo1vkWDRVZfEP9iIbq+YRG3fpAGyccd+Z5K56PuGC0T +jZ10yHs2l906kYUift5i80TRQWsgX/lxUjryfLi/ifadDsxzLkUFF5+ixYdC +uDcqDNA+ObdllvwIyfzmvNZ5gwFTyU7fTIITUcBd20PQyYCvjOEdvdQ4tFOg +yHm/AhO04WGH5LkYFNGjVFd2lQmcRkk7OBoikJAmbxpnGxNu2U7ecq0IRfaC +YWTVzUIgVZ0ga3pgFCUWZ/+1bxQC1Rm994BG0LbEnJMtPsJQ79sLuy3Y6FrE +Q596CQIcvr8aV1/GQkKMFuk3FQSwvVmwkoLxdGWx78iCCxHms1ND/v5jIcHR +eHk2HwnaXpoeAKMRpBS7LnxrGQnmNtHllBrH0IWjsje2OImAQuAvP4rvFPqu +NiI3tE4Ufi3SZmeTZhGvRdzlpMficPTNnHy+4yo65DfJT9CWgHWK6fu0uHDw +2GZZfuinBBx/U0fgx+NB1Or1iFsSGVYM2kZ9ffHw6pyEVqYGBaR4vGJlz+Ph +RZXVVoUxCshKjs8V/cBB3WbN1463JEGdltA6wYeDX8asut97peCBPLqQ/nAV +fTnao7Y7jAorN5I5JX62oi/3s1Ptu7BrnmX9ntdNKMB3skN+mxyYCWlbj1l+ +RG+c/30zvi4HKw7Bh3M21KLsqYBUUrscpPPe17h85C3yXf2LpBk0aFnvqN49 +XIZGHOOYGT40OOQTVa8kXoRwzsntrY00eLhAPRe3nI+yvS6bW0rTsXia1MAz +B9l/VxG9eYkOkiV3FcNbn6P0Y9UZop/owIMou6IcU9H1QRofTooBHYef/Nn7 +5jFax72gGuHFgKerOdRHNffR6fwqpWPvGLCz9ZcohRaPzhdkXEonMeHye4uZ +SPNYRDPBhcS5MWH1Lt9WEj0KqTxo9A2tYELi5HWr9j83kOZChHWEnDCcyS83 +elnNRtYPSRTVemHQNx+giK2yUOIJff+7bpi/BopJsu+wEKtvx0kjIhGCFSKP +6+aw0FGfT9MVxUTo8RJS8A1hIzl9De5zTiR4cWPbfMrJUaRc8zNfSkgEBh/M +bKwInEArHq1e9Flx8HDPOyn7bg0tXxrSs38gAYL6W9UT7+BAfbPaq3t6ZCBF +azWvM8aD2qRvrdUEGc4jh1PngvFwm53gaBNHAUe9qk0m+/DAu2yXIrJHEuY6 +NRT7b+Jgekzvc+A4E1oz54Z6Y0OQ85/KOxIkIdhscah21GEUTTMvPkkoEgLl +ZtmcPfYjaKjDvMTHSRge3TvfvXqWjXa3Fyx0cBOgroPU/PcjC5EXLzVTnhOA +WtpuQ7/JQi73HXNrzYggUPTRZfsoC30UzC7gWCBCYrbC5QHhETRdG6nxMo0E +CS+Pfi52H0N3rEJGZExEQCWKIFv6ZxIZv+1+xfgpAm6Zmps1NGfRLUGdcp9I +cUhSvyThwr2KqOXbru1XlIDfrvtf+5b8Q74Z2XUXeiXgl1VMQc4YDoy9tZU8 +bpBhakOWANUTD/sI6uUrTAqIxPDXkDF93FGyNJlpo0DVnORdCicecLJf1vv4 +SILjgbrHTxVxoGw+rOvBkIL2Oxt3Xv+1isJXjbUMrlLhx62V6nc2X5Ay17je +/SYqeB9zqB3waUaCDQmmFDk5sDmmyBvx4yNauOw96XpBDuYeVVodjalFhHGn +iJEGOdgRvMoKKX+LBq6TNGiSNECy1HsrEeVoIcOn4usZGtw+uGGSnVOEIHYa +FdfQoFP6UG7i2QIU7xRn4UyiQ8KTeKrRvlxkdDRUsd6dDnZX7Iqo3hmoujgo +YWM1HQxT+rWs+1KRJmdejAyBAe+HH2lNGaWgRYGZ206nGLBBlDCjdyoJ2cNM +yslSBvyen0jxz4xHgtxPr3dvYELVtNs1m4ZY9DP8lGPgCSZcMCOmynyLQrV1 +25x08zF+6n3/vTU5DCW6mHO8FRCGFvXo1NXvbLSxt+xsd6EwcLmQRsyF2cjs +he1SigUBxvfeDVFIYqGZvB5i5ioB9OONYjamsNBbMVP9yFQiJIjf0KfbsVH/ +OfPbUYdIoNo01jQmNopm5y+5PlkiwbxStVwY/wQK2BxUyNErDgVrV4KcPdZQ +SzGtNCpUAiSvbX/4yRMHxIujpgoqZFAe3FkzooEHj3U8ArYdmB6WuhjnMT2I +hRd3516jQNeuOl5FIzz8crd9102ThNpteVODaTi4LpJZqtnPBPCXCSfRQ1Et +Cl8s30aAyhgPUdVcFuI+Iu/p+IUApzvzT/beZmH1emyZ6U+Ek3btlWsUNjJ/ +cz2lTpYEgnZZ7qaRI+iDoGGUyXoyHDJSk3UWw0P/Psajk7lk8H/Xq/nnKh4U +mhYbLMwpYGDyTkrWBfN7O4+PkX3CsG5pq7HiBAv1k1RXQq9i+nqxp+TOLRbq +5rtdNLOZCBzGrsNllSw01aEbP/2JCEuGQrLuuWxk3xMiwm1LhjsGof58x/Gw +9nnc/8gaGb7azMY+xvoHLq1LE+tfUGCjT9n+GAU82FaMsN7OMUHt6oxKGkcI +GnH/1szPKwRByvcj93mNIgn7Yxfzs4RAfHpEePT8CNq3kO5w8Jgw6AznLVf4 +sVGcn0ZR37IwGAwWj6a1sJCMQwPdMJkAK2+ojScx/SeN03qy9ImQJzF3cKWH +hdKpu3yEJ4nQcLV5/+kFNmq2Mxb/dZ8ElxyEK501xtDTb68TKDoiYHm+fHZv +6STG7/Zl/RER8F2/P/ij6Cwydpc67hIoDjcafRWEO1ZQVE9z0RE5CdAlK5eq +RP9DbONQ0apWCTjt6pRY1YODCVyU+fkrZODfqKjz/gweAp0MfRhSFHB56ipr +5o+Hdac6BlrrKdD3YeWwhgAepKTI2wPPSMIZ9MH5GsKBabvjjSyKFFSe3XXX +VHINDbeE1x/2pYJhN0t0IfYLst+zPmnnRypYW75hPe1uRl+9zgiQNsnB5PcY +39Q99Sg2ZNuFOQ852PB3tXX2ay3ScW2/+vm9HCiI3ni1MPMWkaqflDPEaPDg +kkknz0A5Wjs4vs7dlQYzVice71gqQgPPxeYzK7HrCdNXac8LEG/vk44JQTqk +GLSd7kjNRTWxuepuLnQQb32lH/o+AzW7OAnwV9DB0YIvaJCShmikC20v+RnQ +OSUe8yIkBXndcd9n6sSAEcn98RkVSag7LOybeyEDMkk9jc4/4pFt7qaQC1xM +OO9/3ebXujuo61lyq4811n/r0uvadtxC/HZ2XelZTNiQdf654GwYqnm0q6Ob +QxgOer5oOTfDRqeXBcRyXwhDY12O3SSmh1yTsdLnBwlwTE5iW+AjFpoTV3Lv +/EWAhFIulycYD+ZcCRe97hMhVnHQytSIjcqD+80eaJLg2B/5DVO/RlBL9B7N +4RkSDL/sEx9uG0eaodYWP1vFoYJxQICmtYbUu97/fOonAT+q7Mtz7XEQQHn7 +2JtJBi0/q2iBnZjfxZlsP9GI8aApuLo6CA/Hv9UldHlTIMS8VNTFHA8uab1H +KsmSsFHLiYuVj4OPWd8UU7uYIDB9qWX3+VAkyyaU1MhhvAr6/N6gkIV4K698 +jKkjwMObDR+co1ioLoOyeaMnET5u/DF6R4CNlNt4T3aIkgDvE/hE2X0Eqbym +9iSuSMCLcHTsMj8e/BrO1rimkcFEcK+oN1Z/Hps2hF3Xp0DT0qlSB3fMf65V +e55oE4agQe+xS79ZaG9ZZXmUNwFMMpTEVqJZ6PuFQYFNm4gQ9iB1SvQ1C8ky +N9S0VxOhKD6BvpLIRk2Bts7GZmR48/TdGyMLPCTZbk85OkeGoH2Nsv/v3yDu +Rvr2xxQIbzi2+EIV442ZmLXsDBN6jY+61xiEoB6lzbtaNhLg4gBHa141C4lE +y/n8yCeA8Qd3uVuYnrcbpAT2HSdC+25JNyUsvgL2Cu+ZGDLw7rmRwHMRD4tv +5f99UaHAz8Pn4k9cwMM8V5t60gkCfPcuGTBMYKEJ3fAKPx4irJP/q66TjvGg +WZBjcB8Z5D+/xqnr4uGL79sx6wEyFB9RGMnEeH0qaXX3610EEPfqgPAMFsJN +tkvs6COAy0R9NR/WX2nm9V92KiGDNX3bA+4APLD9xwS32mF+vqGgx94eD0Hn +MvZdDyNAktD0RFYkC319qn6iWpUI9Wf6dqvVYfW3I/tDuSsZ3nIrl2o64sFR +86mlGQ8FzP9ZafFh65EYRefsl5iwwFPTcK0iGG1mjJ5Zxy0EjauL+af8RpHi +lYPf96cLQbHrdmmDyyNoPNRUbecRYegqZ6WrBLKRZhOH6OCCMET8GRB49JWF +nopcODyYQIDC1KqRd1g+C4VveD7WIkKgtYhIdgcLxWVf+ZbIJoKbmwa35Dgb +VWXlcd+NI0HYWM7dQsYYUkhqnhYHEeCzykk6nTSJHJlfpLsHRCBT/a6dPn4W +5d2/mW17RRw63ELr91WtoGp36bbvUhIgbhDbf8DvH5J8+rPSsVECFPxUb4q1 +46CkLu+kpw8ZVO9yRZw+jQdalJlFuRgFFJbWUyqu4AG4EuTf1WJ8XFzzkyfg +YSulSmedqyRwrBQ6fNLDgX0ClWEoKgV6i96DQtvXUEzZM/6Oi1Sw9HtF1Mv5 +ghbNRd8Fv6fCFXXjLRf5P6Pdep3uMRQ5cOSfOMxpX4/6b0aUqJ+RA4suo/SY +P7XIjnH7j9Y7OXiw3crOnbca5TqMLT0n0eDVV4G/07wVKEiKurXImQbtxynq +ZTLFSFk120SuHOOjKU18urYAaSduFlPkp0O1Q+ndTV256IrSOyh1osOxmVxX +qZkMZFHVph9RSocVyy3bPfamofjkjrnFDdh8UKYb25KSgnK/yt/9YM8AFy1R +LY3RJJSY1TY/nc+Ax18/F2VsTEBcnLY3qvFMmNDdVBpBv4MOFqpt+G3JhCkD +Symy0y2knLlA6MzA+iVrXKUHORx1lcnDqVUhOL54ulL9DxuJRRZP3nuG+WV+ +os4RWTY6/jRHIkuXAM6uV6AL64d8mroSPH4QgDvGi6WaiM2PMd58LnFEMOqP +zCrVYqMXArTXVA0SWEos7mcNjKC3vUlKIRMk2H927ynBknH09NWHZ2ON4qA1 +rE46tG0NnTslKqh4UQIm3hg4/bbEQZHHVj1xKhkUVtbYHsp46LL21rKvw/Qb +86dgP8aHNXzLhbMeFNi071tu21E8pEDyw1wRScgVyfDTLsHB1IKnW1s7E/Dh +AumKCaGoZVeX2IdNBOjr/1B4pZiFbnky5pg1BHhiEPDsDKa3oZYrVRxniHAw +LIKcvY6NpG1N62yFScC15Fdyx2YEneKJDtL4IwHzWwb/fFmHB/3Y2K+nHpPh +uH5yNZcfHoT0hE+StCjQ/Hjn59azeMgRcNc1aBaGjOSV3fsWMZ7wB1NiPAhw +N+50m30sCznKR+55LU6EnAAdH1I+C+0zOW1VX0EEW+XNf5JvsxFXez3fbyMy +eGWEZ5QdxvhCsyiwnCGDTapfEQPjzVTF7ZAP9ynAbzw3x7cbDw0P8+IOTzHh +YGfHaN7ZEBQR9COhjZcA8qg/UP89Nu9pNT0NySaAZuPmZS1Mz0aeePFWSyIM +/mkXE/vBQgHZMlJnIzG++XRK0LwxHo9v73Pdhumr9ljCoUt4SLNMTHpoTYDw +xsi0Ldh5n1nePibMSYRDn9TUhFNZqFfWPzN0Fxn2NqtultXEzgOxlmx6yED3 +Xox7gMUr+qMmsUSFAK5hIVymWSwU9Pi6zqdOAozsd+s7HsNCQpc4opxfkWHt +rAZD4DoewtNmp95aUUBqbtd3Uyc8KNecTQ4KIoBIztmW25ifWVqyIqwUibDJ +sNXRtoaFFMLFPewdyXBMeUFg9wns+Q0f3Mw5KdAe6FI6jPFxt6fxi5g/TEgx +Mnzg9T0YPcyWWSp4QoBoa+cGZSwf/eqa92OpFIjL37X04TLmb6tU6zRTAnzo +y6brJbOQl3MogkUCRGVdaEAPsfNq2iJt14r5ozZvNBPbXzhPW/LfRgL85d/V +dxPrf7M5DV+6ZJLhzF+1iXcYn6JcF21u+mJ+pWKjXYz1440JArct/mL55kop ++7+e73RfPni0GKvPx9ym+AgW4ipI7jjGJsNG7jHm//m7qrZ1OnmIAFqVfjHj +d1nowliZq2MlGeIpmpkD2P6+Sg73+kcR4Pwcp8sE9n6c/zWdwwIU8BFq0BTF +8jnbLbVTeZUJgqcPW3y8H4z0Oaf3BnMIgYl1N+P6tVG0J0I7LjRVCG63Lg9c +uYrp9dAzmReHhYG5dJDlhc3/SZfY7x3nhGH4z4xjKsZ/1oz+6NY4AlybgF0c +2PdqnhXtkzhABC4Za0dRzD+iPB9H9A4RIfpl2kz0EBupmdlfGY4lwXnngAo/ +yhjyWOpOuqchAhmrhbpSkZMopqQln9qP9dNrP4a3/ZhBAy/fHPl2WRzEc3bZ +6hesoN5Xeg50igRkKH3eXXTuHyr+9Fz4dT02T+/h2l7SigOZrOrpnxfIIKBm +LabihoeLKUdruUUo0Bor/MgZm1/svsw37a2hgB4aN0kg4UGVLNSi7ywJYVX6 +keMHcTB2iePSfaIUGIpJVLjsXUOuSjsUEy9Q4fmgw/3Vsi9Ie/Bhp0ItFewt +5D/60T+j0/n8D4zJcvApapKh712PQvlLu/tOy4HtlT/H5nneo8nQ0zvWquWg +d8anslCsGq3kRyadItLg57CNip9MBdK+UVVl40SDKpn170g7ilGX78LK91Ia +/Dt8621qWwFyWHAv/sxLBxeCRIbTr1xkfa1Jy8GRDmZ2F2w5uTKR+ESki0EJ +Hc7JWf/QPZiGmgfCuB/yMACnR3Gfz01BjfPhVYEnGND45lZ/ykoSulT5N/jl +SwYwUi6m9cskIKttV9afwjGh/8Rxg4kdd1BIOeezl0eZ8KnUMMvK7xaqadZU +PvecCSdfln8uUwpHQx+p87lLQoC3zAmnLbPRtBl/B3+qMAzB0MBGGhsVHoyp +36qN8aXk5h3BpyxU8jxna9kEAXbZ7z288R4LSdLSOr7HEmF72BnJYMRGT77o +uriok8CrRL5ztXME7Q4+mP51lARSpw5Za70YR18aVg45N4jDA4O9skeoayji +5f5kby8J0F/kTogwx8HhxKGk09JkePAzXYSoiAe0P7RxoJYMiruXlH5h86OJ +6NfhYncKyJOTmq5Z4aFScOUAkygJ4inUK2fKcXBNsuqG+1cmxLlbvdTMDEXM +wbI6PUkC2DtIT0mXslDzweWb3m8IQDveaoDH/GHGOefmFTciCKysGhtxspEo +1dv3iSAJFOR1RQbMRxCXik5H9JwEmGqs3f3NiYe8C6m248lkEKt/GKqJ8cTR +RuSrHVDgghK7YtUDDyHtb5SrPgnD3Fnr1fQlFjpQdPKT8BkCmMav8Ulj/WIq +p/1nnCgRnLVCRhh5LGQwnCSnVUaEmBwnw+CbbPR47foJHUMy9LYL/2aZ4OHz +ete9XVNkiHlQm22M8UKj9c5voXsUyGvh1duujs0T75bzxyeYwIhN8qi6HoIG +t7ToWvAQwEytQ2IT1l9+k3q6uyWTAFv0SY5KGA+PcasMG1oQAUfJ/imFzfej +0SrpP8Ix/41+857hhYfJ1Z1GBQoUUNas1d/tg4dlnL+htBUBOk5VHmXeZ6Hc +9nXXbHFE2J1iLh3xhIV8D25f7dxBBsbaGJ0H8LBebiG4t4sMNR1Hg25i8Z5N +eKavrkwAm1kV+apsFqq9fKRHtB1bL6GlJwGbJ3yOkUTYL8kQsKFpKPQaHr6V +zNnwHaXA1nyPvxXOeAhzNzXiCiBAe8BkJj/G38TtpTJpW4gw3a5mz/2Whd7n +N1cXnCBDn+kOfLotHu5Ndf5qw1HgsmWoug5WLw0JSXWbF5iwMdHzOefPYNR/ +Yz567REB1PGhMrpYPpRNdHl6pSkgfb8yPwbze8t0bl6GMQFiayDIHvODV/ut +2yPnCcCg//WeeICd30uNjP5mrB61i00WMb7XDz1X0WnA+Hw8Ousn5l/EUZs9 +o+lkuKu8qiSN+QNLqIeP7xIB7g2+f2GB7VfVT1qsY4EM2mZ+YcHY+18LjQef +FBLgEc+F1mosHvf43BPdQxjv/opvTsfyVyWEDxn7js1fxcvv5rD66fnUODtU +RgbvDXeaL2H+sOXD+6jVmwR4cO/agi5Wz8t2Mc2tvBT4M6pgHof5QxDutNnH +ZSa8endikpIVjBz2Pi6Pv0+A/WYLldHY9zx9HMq+15PBcZ5v+P94jO4dtuut +JUC84iHpYWw9/AEt+c6fZKic9Q/7g90/6rbIvyePAL9HfNScsPf3HP/i2dNH +htIGG/v/4828M8vBeo351y1BwVvY97+JR07hQgkQlBG4SwLLTz29cOALNwW0 +iCwhfyz+418OOrumEUCJIfjt//9r28clEvrayKByeirABFvv5KtlrvZlMiRs +cqz8X/+Hcc9e85YR4FVhUu5BzJ8eNkcc+jZKBryM02g49vwVb9y2pdsE8P9i +rpOA3bd73SqWuMYEg0TV5eDwYPQf7UvFVg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1WWYllUQBuClO5Rulu7ulO5aUiVX6Vi6FQVEBWyxQLrDRBEUpbtRRBQR +RRTE7vaeyx/3zjPzAtd+553zkZickjQmVUJCwg0/os7wowAH5fvpRU1SM9O8 +IIfkB+hNLZaaNeK6vJFppOEus0Iclh+kD7VZZtaYr+RNTOdVfTf+ld8hLXfr +C3NEns+b8q1kiKrfrLbnN/kN9snJ5KSOfrnahBvySXU0m+Vdan+yMkO/VU2K +D8+7jGeX9pA6hCvk5gJT4/cmneez1CJc5Kj+uDqSqyzQv6XexmUyco6JXIu5 +51vUDlzid/0ZdSzb5f3qHdzEeSZT13yF2pSv5VNqvLwt8m51ANmYqX9N7R7v +lN36w+pQ8pBef49alGPyQnbKt5Mpqv4FtSN/yDuox0r9LXwTz+P98rq+B6nZ +o8/AvXIxjssP0ZcX9Z34M94j9Vmlb8a38TzeNxmZbVacE/LD9KMBq82a8538 +Upw/mZhjlshJ+RH605DMzDUvwSn5UQbQiCxkJRvZuc+fKclp+TEG0pg1Zi34 +Xn45zo0czDMrxRn5cQbRhLVmLflBfiXOgpxxl8xKc1Z+guT4DPrO/BW7QlPW +6VvxY9wJ9sgDyc5s/Ta1J2nYqz+iDiNv7ErcS7VM7LH8JG/Lfckc+xSfQe3C +3/JZdRw75QPqnXzGzXzAlHjfnq1XW/MxP+lPqyl8wVb9XnUQn5KD95nEdebE +3VR78QlpeY8JfMk+z4+qw/mcfHzItPg94ntDLRt/Rz6hjmJRfEeo/cgSv3ec +tdqVf+Izc1AeTK7YMf0GtQ0/x92IvWC7vjfp2K/PFd8zcjnOyU8xmOZsNGvL +L7HzsS/kZoFZ+fjM8tMMoQV54l6ZV+C8/AxDaUle8pGfAhSkEIUpQlGKUZzE +uEP+jYrxTuRnGUYrSsT9MK/EBfk5htOaknEXzCvHecqLGUEbSsVdMK/CR/IS +RtKW0rH/5lW5KD/PKNpRJnbdvFrsgryU0bSnbOy1eXUuycsYQwfKxS6a14gd +kJeTQkfKs8i8JpflFYylExXiHZjXit2SVzKOzlSM8zavHTsrr2I8XagU521e +hyvyaibQlcpxhuZ1Y9/kNUykG1XiDM3rcVVeyySSqBpnaF4/9l5ex2S6Uy3O +0LxB7HTcF6bQg+pxhuYNuRZ7yFR6ssmsHb/K25jHDn0f0nNAf0wdQf54V0xP +9f//1TU8+w+HbPBM + "], 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]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 2.1892889005344744`}}, + "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:eJwVlnk8lF0UgGcsJVvMjGVmCGOWqBClUronOwmRiMgWSSlURJstQqGQpFIk +skWyU6REiGTJFpmxhwrJ1vd+f83v+b33Pe895z73nJFzOmN+nAuHw03icbj/ +f90HZvlxOBGYMN/VGR80ggy4p3YHc4mAqU038+qVEbSROXJqDa8INK4s5J/w +H0HDHl+bBflFIEjlXuQe7xHk8qfyNpkkAhstD9SOOI4gB+EwitpGEZCuTpAz +2zeCDu8hK7qaiYDekagX4bgRpJOoadiYIgI3IOBkQeAw2hWhExeaKgK3WpcG +Ll0eRkqX9n/bmy4CxW5bZQwvDiOyw5Hz+VkiIDk1LDpydhhNsc4/TigSAZVm +uZxdDsMosTj7r0OjCKhN678DNIx+dFCfz/0RAWOhb4qi/zjo+wfaXO6iCOCt +csLpSxzUVaYAJ1ZE4OjCyUqNPxxU83BHRzeXKOz3et5yZpqDEl0tuN4IiUKL +RnTqyjcO0pqPsImQF4VT+eXGL6o5KEFskV/GVBTsJeJeFIVx0JsDT2WfHxQF +1uJ+tncIB42FmqlvPyQKXeXsdNVADtozn+64/4go6A7lLVX4Y/vpsCjxdRaF +h3fPdq+c5qAtiTnHW3xFod6vF3ZaclAtxfFNYIooJDrs2NbC5KApc8EOwVRR ++A7fB9bTOUgisnji7lNRMMxP1D0kx0Enl4Qkcp+LQmNdjv0ElYPW95ad7i4U +BR5X0rCFKAfZPCBR1epFwcBigCqxwkYh7a9Vqj6Kwuxpm5X0RTbKEfLQM2wW +hYzk5Z17FtgId6Xa61ibKAQN+oxe+M1G6faeHyL7RGHN4mYTpXE2+inz4Tz7 +pyg4XR64ltvFRkkXOO+cZkVh6M+0U2oHG2k1cYkPzotCxJ8BoYdf2CjOX7Oo +bwnb72DxSFoLG+1sL5jv4CVAXQep+e8HNhrc1KJnyUcAc/UO8oY6NooI+pHQ +xk8ABdQfaPCOjXqUN+5oWU+A8wNcrXnVbHQl4oFvPZkAB++txNWXsRFrsKxO +X4oADo4ykzKlbNSyo0vi/QYC9PW/L7xUzEZyHEJJjTwBDII+vTMsZKNaFL5Q +voUAlTGe4mq5bHQ64amBhgoBbGdUFaqy2Uj8R01iiSoB3MJCeMyy2OhE0srO +VzsIIOndAeEZbCQw530xdx+2X78BXuNUNircH1O/WYcAWiU3bgs/YaOjT3LI +WXoEcHG7BF0pbJRrOlr6bD8BjsiTtwQ+ZCOrdF5+pgkBYmsgyOEBVu8Vmk2a +GQHe92Uz9JPZyPy53WKKJQHGdt8JUUxioyVcgJGMNQE6TlQeZt1jozSrxKQH +NgQIb4xM25TIRnM8bRpJxwjwzadkwCiBjRKPGQTccSfArkAJKc5tNtpXdPyj +6CkCmMWvCshgPC4YTI3xJMCduJNtDrFstLussjzKhwCmGcoSy9FsxBbpERC4 +QIC7g++eW2Ic5bZge8MPq7+qrU7xLTbqJ6kth17Gzu/5rpLbN9kozMPMmOca +AdqvTWQKYqxSczo5KIgAYjmnW25FsdFXychJXCgBgjICd5AxDjqTsedqGAGS +RKbGsyLZaNP7d1ErNwhw/+6VeT2Mv0gN9QZEEeDsLLfreAQbXfLBbVm8RYCA +zxa6CRgzGqQv+8Vi+VUbpBhhzJ42GNkcR4Ar47CDC+MnYucODiYQoDC1avjt +DTZy3P2oPP4eAfaaz1dGYyzr2MAwSibA8mta43GM+6/PRa8+JIAGPlRWD+MH +2bKLBY8JEG3j0qCC8dHP+13c0gigzBT+ysCYsnChmfqMALTSdtv/+av0k50t +mQTYZEByUsY4UbvpSUg25kPjxiVtjA+7LwjuyiPA72FfdWeMxaLlfX/kE8Dk +vYf8TYy/FJoMPi4kwEO+c63VGN/uvrj/cDHm7yNeMzyWz0Hc01f8ZQR4WZiU +ux9jEWaLzOsKAtjdKFhOwbh5/9INn9cEoB9tNcRj9bvpxZxl1RDgseG1p6cw +Nr570L63lgDxSgdkhjDmr7z0IaaOAA9uNLx3wc6j/vszVd0GrN5Ho7N+YhzO +15b8t5EAfwV39N3AzpP3kIKX02cCnOzMP96LnX/txUM94u2YjwktPQmYH0GP +rup+7CTA8F73vqMxmM8T7eRtfQRwHa+vFsB8qxLBh4x+w/wqXno7i/Fl9c1T +yd8JoF3pHzN2h40WA4NqeEcJIJpnXTcfz0Ylz3I2l40TYIfD7oPr77KRb1NX +gucPAvDGeLPVMN9nJZU9On8RIKGUx/Uxdj9e7rVpj5wjAJPx12f8Pht5u4Qi +WCBAVNa5BoTdr+m8HmLmCnb/441j1v9/H9vXXLHDEWFnioVMxGM2OrW0dVSU +mwgHPqqri2L3eVwvvMKfjwhrFP5q6KZjfvVtO25MJEKwYuRRvRw2SuV2+IQT +J4KLdsgwM4+NnBQid72SJELONV1fUj4bfTs3KLRhAxHC7qdOir9io26BW0XT +G4nAZeI2VFaJ+bG1VDZtExGm2tUdeN9g/cCKHWGtRIQNRq1OdjWYD080jlWr +EaH+VN9Odawffto1svbOXiI4rjNkR7WyUc3Toj3kfUTgkbVxEsf6a6Hoda9H +2kQItBETy8b6b9IYvSfLgAh55Nn9yz1s5HrPKbfWnAhCRR9ct46w0RFe1SEj +SyLgqNk/pbF+buyFl2y1IsLgn3YJiR9stNUwJbDvKBHad0q5K2P9f3mh79C8 +KxHmslND/v7D6umSc+OSOxZvecXEmBubZy2XqrhOEWF/WAQlew0H1WVQN673 +IsKH9T9Gbgtx0G3rI0usACIct2+vXMXmk0LJl8dHookw+lnZymY3B0nR0zq+ +xRJha9gpqWDEQcIxPgKucUQw7o/MKtXmoFk3wnnve0SIVRq0NjPG5q2EmUFk +KhESJK8bMOw56LDvx6mKYiL0eIso+mHz13AoSV67jAgxOc5GwTew+Wt60rq+ +ggh2Khv/JN/iIDnWupr2aiIUxScwlhM5aLJDL37qIxEWjUTkPHI5KFi9Zrfs +ABHM1Mo/ivVyUJTXo4je70SIfpE2Hf2dg+KyL31N5BDB3V2TV2qMg9JpO3xF +J4jQcLl578l5DvognF3ANU+ExGzFiwOiw0h4JF6BI0CCthdm+8B4GInTfPwe +C5NAUUFPbMBiGMnYmdXZiZKAZ9G/5LbtMFJp4z/eIU4CvG/gYxWPYWTx+mpK +nRwJhO2zPMwisf87d90lnu8ggVzUGb5Nn4bR4896rq4aJPAuUehc6RxGz4Xo +r2iaJLAiL+xlDwyj8uB+8/taJDjyR2Hd5K9h1H/G4lbUARKoNY02jUqMIHkD +Td4zziR4fn3LXMrxEZS7IPJbLZoE0pd/cluKjCJ1c4dLQ7EkOOtyrcKfOoqq +svJ478SRIGw0504hcxQ125tI/rpHgguOopUumqNoqjZS80UaCRJeHP5U7DGK +lGPXhG8uI8HsBoa8cuMoeqGwLMXgkGCLEZl+M3kM7Qzen/5lBPveiQM22s/H +0JveJOWQcRLsPb37hHDJGGqJ3qU1NE2CoRd9kkNtY2hm7oLb40USzClXy4cJ +jmPz5me+tIgYDN6fXl8ROI7ybUb0xHeLQUk0W+l7wATyXOxOuqspBhkrhXrS +kRNIMal5ShLEQMA6J+lk0gR68vVVAlVXDKzOls/sLp3AfA0ZljUVA9Uoglzp +nwl07rDc9U3OYqAY+Muf6jeJdprbvoNIMWgOYde7Xf+Bqgw/aXv0iMFbgaqn +/Z3TKKakJZ/Wj8Vb/TG05cc0cmJ9lukeEINMjTv2BvgZtIa3fclgWAz81u4N +/iA+g0zedL9k/hQD90ytjZpaM+ib+rD89zXi8GuBPjOTNINw9BXuI6riECf3 +aFjH4ifat6pYq3dDHEgB+5bN+n6hZpT4I26TBLStkWXMcc2jbXI3X+Y3SABO +XQcXte8vEvkwt3zIVxKs1hqoH0hfRgMvXh/6elESJHN22BkULKO8ezey7S5J +Qod7aP2eqmVk4iF91DVQEq43+imKdiyjm8K65b6RkpCkcYHsyruC+C3jLiY9 +koTDr2cV8p1WEPd31flvdZKQ1X7ZyFxiFX1uWD7g0iAJ9w13yx2iraInL98/ +HW2UBO0hDdKBLatIK9TG8merJFQw9wnRtVfRtY1BhVy9klCweinIxXMVLXu2 +ejNmJMHTI++43NtVNL90ZvqkJBn8k390Sx//h3pf6jsyqGTIUP60s+jMP1Tt +IdP2TZoMkoax/fv8/6GonuaiQ/Jk0KOolKpG/0O08i1X9iqR4bfb3ld+Jf/Q +Af8JQYIOGdYope/R5sFB2oKrYukZMhS9aHGlmOIg4sXeZB9vMhgs8CZEWODg +zAlxYaXzZBh/bej82woHGl3vfj7xJ8OPKofyXAcctBTTS6NCySB1ZeuDj144 +WLrwXd/hPhmEDTZrJN7Ggfmc3fG1dWTwyMpbNWvGQfHHZ6Kv6rH97OLZWtKK +A6knPyudGsmg6K92Q6IdBxyTUPGqVjKcdHNOrOrBgV9Gdt25XjL8so4pyBnF +wSPbJYXvP8lw9HUdQRCPBx5V3Y7oWTKYaa7e+c2NhxN80UGaf8gwt2nwz+c1 +eFB9RetJXCbD83B05KIgHt4LG0WZrqXAAWN1ORcJPExWJ05VSFFAbGr7fO4m +PBxM/J50UoYC93+mixGV8FDkuVlfkkYBxeVVjqcKHq5R3zzyYVFA2986Wmg7 +HojnR8wUVSmgMri9ZlgTD377t650bqMAc3WUwQd46JULyAzdQYHdzWob5bTw +kN4szDW4hwIKn17hNPTwoLFR/eVdfQqQorWb15jg4dHq1WO6RhTobRf9zTbF +8muvF/htTAHvjPCMsoN4aAq0czExp8DrJ29fG1viwaEnRIzXjgK3DUMDBI7i +4V1+c3XBMQr0mW3Dp9vhQTFc0tPBiQJHVOaFdh7Dw+y27PflbhR4w6tSquWE +h7Bbbb7e3hR4sjVn3y83PMhmVU/9PEcBIXUbCVV3PJTU5R338qWA2h2eiJMn +8TCOi7I4e4kCguuVdN+dwoOJj46y53UKTK7LEqJ54WEkWjX9RzgF+KNfv2N6 +Y/XKlpU+HYnl69tJpvvgoYCzzH8qBnu+63oC33k8iFu/GnZPosCyYduInx8e +8s6l2o0lU0Ci/kGo1kU8GMTGfjnxiAJHDZKrefzx4N9wusYtjQKmwrvFfQKw ++o/Y7hpJp8AdlRVlmUt4yOY2euGaSYFTf9XH32Lcv4f58HguBQLe9mr9uYwH +3yMkMc4LClxb1/Q99AoeRC5wRbm8pMDqaU2m0FU8ZN6e4WK/okD8TWHhmxhr +5fVfdC6hgA1jy33ea3jo+dg4872MAj7rbjdfwPjcaJmbUyW2nqqVOYBxutxd +S8caCnTbtFk/DMQD2hvaOFBLAaWdi8q/MO6y8dF2qMPyj/lTsDcID16+jmXf +6ingNCcwFIwxf5zp1mONmE9NwdXVGKe+0Mzob8be1yk2XcB4T9MmGftWLH8d +/mhWMB7ax8gJfW0UUD05ec0UY881fEJ2HRQ4u9jFPIvxWvn54N4uCtR0HA66 +gXEKYi/a9lCA4bMQdx/jXUc/e/X0UaC0wdYhHePPfm9GbQYoUHxIcTgTY4/4 +3GPd3zEf/kpu/P85T0FyxxEOBdbzjrL+f/9Bc8SBryMUwMs6j4RjrD7hV2s9 +jn0fOZ44g/GntW67uyYpEHO/NtsE4xN0ywKraQrYpvoXMTHG79NW6PxJgcqZ +gLA/WH5JdltTDs9SIGhPo9z/+av5y0h0zFNAx9w/7P/6NCYI3bL8i/nEk1L2 +f/2Ov1ziaV+iQMIGp8r/67v6aSzg0CoFvtjOxD7C+O5k5682HBUuWoVq6GKs +su69uwU3FdoDXUuHsPOqZxQOfOalgjaRLRKAsZPWEytzPipY/LPWFsB4yT6m +uZWfCn9GFC3iMB/iAq7oHhSigq9Ig5Y4xu8LbdTMCFQIWOP6kQfz6XzK4Vpe +MSq0xoo+dMF8o0eZW5ZLUEFxcS21AvMx0NnIlylNBdcnbnLmmL8qpnp8vTJU +kLlXmR+D+d2voXUvlkaFuPwdi+8x//cQNMqXWVQQixGsoWD3Y2Jlu3GBIhVU +tGoNdvpi9Rrb2ue2BYtfeyThwAU8LLxR+PdZlQo/D56JP3YODy/PkLUzNakg +zecdK3cWy89W7Is9UOGcMqdixRPzX1/0OEmbCs2Ptn9qPY35s2Fd2FUDKjQt +nih19MD6R9NCg6UFFQxN30rLueLha8msrcBhKmzO9/xb4YKH8LSZyTfWWPzZ +Hd/MnPHACRgV3mxPhap1BT0ODphvil3mXO5UMLvSJEWzwYOp+JehYg8qKFCS +mq5YY+eFbzl32pMKG/Z8zW07jIejX+sSunyoEGJRKu5qgQeJ8OLu3CtU6NpR +x69kjIdbnAQn2zgqOOlXbTDdgwfN1tu/Re5SIa+FX3+rBtbPK26FvL9HBUGT +2VmBnXgwjLuevvURFcIbjiw8V8P81b4wvvY5Fdb7lu2NUcRDQIqld+FrKtD2 +pv9eFseD/ee5pt01VNBHY6YJJDwAT4LC21oq9C2s+isQ8LDmRMdAaz3G75cP +agrh4baylel0G5bvrNQdKjZ/nldZb1YcpYKc1Nhs0Q8cdPfaDj8SkQLa9k2L +t6pwUCm8vI9FlALJFNqlU+U4SIHkB7liUpArluGvU4ID17TeQ5UUKViv7czD +zsfBLw+7t910Kajdkjc5mIYD/iX7FLFdUjDbqanUfwObx2Qnm0hHKXjjflmK +ywwHahSRFgMXKQirMogc24+DzdQq3TVuUsC1XOj4UR8H0tKUrYGnpOAUeu9y +BeEAJ/d5ra+vFDjtq3v0RAkHdRu1XjndlAINekLruAAODu2kiWiUSoHPocdP +nEP/oTNW39+NikgDz1H601e6q2j0AteFe0RpMJIgV7juXkUOCTSmkbg06C/4 +DIpsXUVm7U7Xs6jSUHl6xx0zqVWkYjGk58mUhvbb67df/bWCfpmw637vlob7 +Cuhc+oMVdEFvuH7VVRrO/3rLDp5eRpe3jzeRKqXh4sC+wgchSyg+hfvqS7sN +sHLJ6dq51wtIvjXmZZeADFC5XibmFc6h8lvKsWdzZWCrl/7hxtlfSGz+eegE +UxbokpfD407PoPC1fjxOl2VhVPlsr0zPBLr2ralTtFkW2px8EzvzR9C2pL7J +EIYcaBbfvfO4agh9oW81OxYgB0Ms3Zc67gPo73khPp+PcrB9lDj48VoP+pqZ +ijei0SBCfSLu5YMOtDetxtTGhwa7JJ2uVX74jNyUtyklnqPBs0HHeytln1FM +2VPBjvM0sPJ/SdTP+YyGWsLrD/rRwKibLT4f+xmFr5hoG16mwY+by9VvbT+j +z4d71HeG0WD5ejI3+Wcrcl03Ky1+nwYBzboG12mtKNqTMdlaQwO365Fed/Z+ +QjqDDzoVa2ngYKnwwZ/xCS1YiL8NfkeDSxomm84LfkIOu9Ymbf9AAxur1+wn +3c1IhWdM/14TDXyOONYO+Dajz/eyUx26sO/xLRn0vGpCYu/UbKd/0EA24wHh +PGpE96laDYJkeUjqOrCQdL0encwXvG9CkYePURNMA596tFO/0yOGKg9OguMH +uR3q0RfvU0KkDfIw8S3GL3VXPRJuSDCjysuD7REl/ogfH9A1v4kOhS3yYC6i +YzNq9QG5tMcN6e2Th7j2srNZ6nVoc/TI8jV3eTBaOzXvRnmHQgVLu/tOyoPd +pT9H5vjeof4bESUap+TBsss4PeZPLYoN2XJu1lMe1v1daZ35UovmL/pMuJ2T +h9mHldaHY2rRa5d/X02uysOyY/DBnHW1yFxDolgqXh7c+28n6q55i/w4el4l +b+Th+2LsZj5GNZoIPblttVoeeqd9KwslqpE989Yf7bfycH+rtb0HfzXSdWu/ +/OmdPCiKX385P/0GEcacI4Yb5GFb8Ao7pPwNyp68lkpql4d0/nuaFw+9QQO/ +y9rPjslDjfhcL436GhlyKWsoEOhQ8WwmXky9Ai3nRyadINLh55Ctqr9sBcp1 +HF18RqLDyy9Cf6f4KxCp+nE5U4IO9y+YdvINlKOBqyRNuhQdkBzt7nJEOfJb ++YtkmHRoWeuk0T1UhjIWanXFNOig5vF9h+zjUrR22uYg3okOOt9+KV3VL0Y6 +16uqbJ3pUCW79i1pWzEKkqZtLnKhQ/tRqkaZbDFa3T+2xsONDtPWxx5tWyxC +8xm+FV9O0eHW/nUTnJwiNOwUx8rwpcMB36h6ZckiVNvRtGJykw4L7L4gwYVC +dK0KnieX0IFfkFPj8r0AdfnNL38rpcO/gzffpLYVIBW1bFP5ciy+GV1yqrYA +DTyTmMusxHjc7GXaswIEsVOouIYOnTIHchNPFyCcS3J7ayMdHszTzsQt5aOr +6xZwawfpkHzUSeCJTD66cijPymsdA6bCLnypEsxDjvMexZ/4GeBKIGc4/8pF +OokbJZQEGVDtWHpnQ1cu4u993DEuzIAUw7aTHam5KN45ztKFxICEx/E04z25 +KNv7ooWVDAPrT03q4JWDumO0TTW3MyDv6Wx263gW2tHUqbfOkQEbLso+X5TM +RDZXmrQdnRhgbn/OjpsnE11Sfgulzgw4Mp3rJj2dgWpiczXcXRkg2frSIPRd +BjI+HKpU78EA+0v2RTSfDOTwTVX8xgUGSJXcUQpvfYYift7k8EUxQHsgX+VR +UjrqFdMJ4StmwCma1N9NtmlIcjzS1bCEAWfkbX7o7U9DllVtBhGlDFi22rTV +c3caanZ1FhKsYICTpUDQIDUNVRcHJayvZoBRSr+2TV8qSj9SnSH+kQF8iLoj +yikVeT3Y20T/xgDWGdeigvNP0BrGLvF9a5mwbGexk1mZgpoHwngf8DEBp0/1 +mMtNQfHJHbML65jwpEwvtiUlBdFJ59peCDKhc1Iy5nlICtLizouRJTDh3dBD +7UnjFHR1kC6Ak2ZCx8HHf3a/foQWHojgXqsyQef47KYZykM0IT46tseeCUf7 +Z53FCPdR41x4VeAxJjS+vtmfspyEcr8o3HnvwARXbXFtzZEk5H3bY4+ZMxOG +pfbGZ1QkoQWh6VvOJ5iwTpwwrX8iCa3hnVeL8Mb2t5JDe1hzD8n+5r7SeZ0J +k8nOX02DE5HlJxmCdx4TLqvvmpFTTUAXKv8Gv3jBBGbK+bR+2QSUmNU2N5XP +hEdfPhVlrE9A3WFhXz0KmZBJ6ml0+RGPHGA65XgpE37PjacEZMZj/bBK+chb +Jmxv/SVOpceja3fsDkAnE74wh7b10uJQttX9cOF/TJCxft52WOc2st5yae0J +HAv6jx01HN92G/Fw212vxrNgXG9DaQTjNrLL3RByjocFZwOu2v5acxsJ8z65 +2r2OBVVT7ldsG2LR2YKMC+kkFlx8ZzkdaRGLtgsVuexVZIEOPOiQOhODqmpa +wNOSBT7Be25lxt5EIeXcT18cZsHHUqMsa/+baH+h+rrfViyYNLSSpjjfRF1P +k1t9bbD1eoy6tm030c/wE06Bx1hwzpyYKvs1CtFNcSFx7ixYuSOwmcSIQhE9 +ynVll1nAbZy0jashAlnO3jqwNp0FQ3/3Z5B1w1FNs5bKmWcsOP6i/FOZcjhS +yZwndGZg8WxwlZ6UcCRob9+VnsWCdVlnnwnPhKHaui3OevksuKn/7ffm5DCk +er/RL7SCBYkTV63b/1xHIlr8adxt2HO7iZtuFaHoilTVdY8vLIjzsH6hlRmK +Jue93NvaWYAPF0pXSghFH7K+KqV2sUBo6kLLzrOh6KpYZqlWPwsgQDacxAhF +U6P6nwLHWNCaOfu9NzYEHX27lD82zgJmbJJn1dUQ1PAgL+7gJAv2d3aM5J0O +QenmEjZy0yzoNTnsUWMYguwqhtlvZlmgfnlaNY0LW5+QVLdxngXrE72ecf8M +Rju9TJ7H/GFBirHRfe9vwYjELDrjsMiCeb6ahisVwSgId9L8wxILXr49NkHN +CkYz3dLbVVZYIHzyoOWHe8HI/lWrROIqCwwT1ZaCw4NRY3To4r9/WPybuZ9M +fIPRf8ovxVY= + "]]}, "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., 2.1892889005344744`}}, + 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.992080348993929*^9, {3.992080401392269*^9, + 3.992080493958023*^9}, {3.992080561326931*^9, 3.9920805888009205`*^9}, { + 3.992080637458145*^9, 3.9920806981331673`*^9}, {3.9920807350350475`*^9, + 3.9920807700959606`*^9}, {3.9920808001058617`*^9, 3.9920808656757126`*^9}}, + CellLabel-> + "Out[122]=",ExpressionUUID->"bf36d94c-59b7-5248-b79e-9c5a3c231911"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l1", ",", "l2"}], "]"}]], "Input", + CellLabel-> + "In[123]:=",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:eJwVz3s4lAkbBnB2NZXsVErJeYb3fVOhTPKleB4V2e3gUBRKg8hpSEPTRBpC +EksGI1NT7SpKY9Fp0aic1nkXX6K0lBwSU+1KEvrm++O57ut3Xfcf98PwCXPx ++05JSSlNcf/PLWrdNCUlHXy9rcot95kc6FURczKUdXBlYd7q1k45dPMWqRh9 +r4OaSeZ8ZYWP9m9XdqDp4MXPtFP+/5XDlfL7X9PUdPCtUaLeqjY5TAdkftBf +oYO+HZ9OixrlcL/W8TmY66B7jjZnnkwOq0/XSU8f1sF9R1Q/mF2VQ8yuHn9u +mw4ePa+mPbVfDp+XXG4wtdRFh8ueqZ6qctgnMd/9LlcXYY9If13xGDDiP7zR +nquHMpf1swXWY7DYx51YGqKH8/XqTec/GYVg8QhP0K2H3COvKl2MRkGa4zQ6 +tk0ft1Im5juPvQONn71VDW/q4/aTupyuuyMQEbZLd1DVADc6MoI8mt/CByEk +S6wN8LcG8s4P3cPA1tJJ2hdmgM1ufS+624YgoVUt7afrBjhPtIx//uIgyGbb +g649M8DZpzTxpNcA3DogdTSnM3BAaTjYdLwfknWO1VZvZWAp7fCFipjXELNf +bVFZJAM/pRQFW2q+Aqqq3He4kIEGJbreG3V7oT/fJiXqbwb6Wry4/962B/ZW +dMocNJhIjSYsm7Hqht/XuguW7WDiqp0WdH92J5gxS5Y7nGKid2VCiOuLDvC0 +1f39zh0mNmcbeN12bIPcHi+TM4NM3HFOf/MX21Zo6U5m7dE0xKgtmpF1Bxrh +nkrTloO7DdGsafj8yow6KC7sI5sEhvidz4vN2aHVwBaoLuU+MERuZINvRfhj +UHmgl6E9ZogRX7XsvVsqoCJw3gClb4Sve+l2ZSUPgPqJZhvqaoQBZ/9OGui5 +AzdudIdrJhlh84t33zJbi2GFn4hVXWaE5yaalhJRt8HWOXA2/70RetR+2fXD +43yILlsk+cAg0KyBvr5AJQ9CHJvtufsJLFFeEDHn0lUI8z5Y436ewN9jLUNW +9InBxlHEZqQQ2FpRaTrULAa6ddv0sMK2QdD0pEwMRZp2Fid+JtDkckv4ZaEY +5H+uuZF9gUDXeTzh2HYxhNhMn+0QETiru2bVSGkuBGmLd+zKI/CQdm2GbsZF +8Hva1Y4yAuMHqmuquCIYXWK5b0UlgYU1TjWrfERwzCXrxUeFt6SqFFxxEoHg +T+c3vzwmMJE+8fk3ExHkNjR+UqkhsOJe86PA4Wz4S/ZQs6GRQAejVjMrdjZY +3bjq5dyl2Jd67e5i9yxYxAsY8f5Xse/nk99qOUI4u0BrdvU4gTllfda6bCHM +XmlaPKEw9wf3oVMuQhitN92YPEHg3EKhj6elEOq1Pp0t/ULgq+PndyYqC0FQ +GUt8r0Rizk1xarYoA97PEbPz1Ei0CH8cc7zxArRmtnQOEiTG6mr9MfZjOkzz +f21/QpIY927cLco6HVYd4rdeokh8vT5ni/q6dEgwJupcjEk08aepH9BMh82V +0fcq15B4pvPHAllrGhQOrc7MZpH4sHBIfQM9DZKskp3tbUm0P+6ZJMhNBds+ +++brB0hMuPDKrWwgGSZC2Y3RB0nszhvpi25Lhtsz/Po9XiRysgaOOsqSQVNb +WqPMJlF6zpnHyEoGuesS2UFfErNTlT/w7JIht6lXqhFE4tJC2X8GCs7B+P0T +aQk8Eq3j+l/xTiZBQeotF78MEheaTHv9ZJ8Iu48t7zMRknjTPeONZEMijLvF +cyYULjvj5DxLJgIaeCWdzSJx6E9J1cu5ifCsdHHlzRwSWS/nbNBrTABa1wlj +uYTEKd/SrxKnBPBjblfiFZK4orWwk+MXD8wH/dKkGhK5h0r9K2/HwenRCEOf +WhIdLjzK50vioIdBu7ipjsRQxqr7kB4HWSkr4+V/kGhX9J32KDcO5vlwPPY2 +kTjcdpSo3RQHcrXPNIN2Eh+luLmGt8RCuY8q+0EviSKWnBY9KQBn+jr1wSkS +t81LseQ9iwHJRY3lJV9J7IdDRZwnMTBqNKUdPU3ijfr2Wm5hDCRuqibUZ0lc +9tfXW0WnY6A8wHWjjTKFke9y9P5eGQPMaj47ey6FQYN0O62YU/APr6rIfimF +9KiJLhkrGoSv9uzIN6HwsPp2p6gGPgQsi3YJNaWQNpix2e8BHzbvyHO3MKPw +UHRLted1PgzeHT9SvZbCJwd8BaGxfLBKyorvZVEYFnP9sbEVH/pMn8mWW1Ho +mzH75r30BJhGe6xNsqfw1zwWUyDhQcMyb43AQxQ2GfVeHrsWCXsvSVVs2RTu +fvnlIfdCJPQxpv7V9KawTSreR4uNhMk1wvZ6Hwp7i+nPndiRQG6tTVvpTyFv +QcDCk/qREB9mrDocQqHsr04zjasRYFP/cdb/JIWbSwg7s1tcuMuPGz6cReGd +jQ0dC/vCYa0r84hptqJ/RHnn/o5wuL22auCzwpMz5nU368Ihb0i5PzmHwrti +q/wj0nDIdI19WSymULu8K3h3VDhErBO0T19T9JvYqVWa4cB6e+phZhGFUuVp +gZbHUSjdz0+v+YPCHTy3bXEjHLB8YhxzvZ7CNEre8LCdAw+NnwcnNlC4ScJl +qFZwoHbKartDE4VaicYLXp7nQNel6ZmmVgofsUZNfEw5MNN3OrjjKYWXG2y/ +9hwPAYfARPvX/RRC+oTjOo1gaGnbsL76DYWS27jt1rcgcLEaYuQNUBhVfN9+ +/UgQeC5wmPEbolBdSYBRj4IgVDr/7tsRxX85mNERFASZH1MYHz9S+GWCRv5S +EwgrPKwXtv9D4QB3pJ4oDgRJ1dh06b8U6kzOLSgTB0K+cHdXxCcKNS52Di3m +BkK5xaK0yUkKjTpYqmeYgWAjeRzd/YVCK+aS1WfpgVBNCw8qn6LQeuckUzwV +AM3P2uyipxV2GPf7pz0AnDGOdXCGQsqXlWPxKAA6C8wZNrOKvT31YUmFAeCx +uJ+u/41CtXF234goAHr5wulvCsOZkpcH4gPgfwidEbM= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVz3s4lAkbBnB2NZXsVErJeYb3fVOhTPKleB4V2e3gUBRKg8hpSEPTRBpC +EksGI1NT7SpKY9Fp0aic1nkXX6K0lBwSU+1KEvrm++O57ut3Xfcf98PwCXPx ++05JSSlNcf/PLWrdNCUlHXy9rcot95kc6FURczKUdXBlYd7q1k45dPMWqRh9 +r4OaSeZ8ZYWP9m9XdqDp4MXPtFP+/5XDlfL7X9PUdPCtUaLeqjY5TAdkftBf +oYO+HZ9OixrlcL/W8TmY66B7jjZnnkwOq0/XSU8f1sF9R1Q/mF2VQ8yuHn9u +mw4ePa+mPbVfDp+XXG4wtdRFh8ueqZ6qctgnMd/9LlcXYY9If13xGDDiP7zR +nquHMpf1swXWY7DYx51YGqKH8/XqTec/GYVg8QhP0K2H3COvKl2MRkGa4zQ6 +tk0ft1Im5juPvQONn71VDW/q4/aTupyuuyMQEbZLd1DVADc6MoI8mt/CByEk +S6wN8LcG8s4P3cPA1tJJ2hdmgM1ufS+624YgoVUt7afrBjhPtIx//uIgyGbb +g649M8DZpzTxpNcA3DogdTSnM3BAaTjYdLwfknWO1VZvZWAp7fCFipjXELNf +bVFZJAM/pRQFW2q+Aqqq3He4kIEGJbreG3V7oT/fJiXqbwb6Wry4/962B/ZW +dMocNJhIjSYsm7Hqht/XuguW7WDiqp0WdH92J5gxS5Y7nGKid2VCiOuLDvC0 +1f39zh0mNmcbeN12bIPcHi+TM4NM3HFOf/MX21Zo6U5m7dE0xKgtmpF1Bxrh +nkrTloO7DdGsafj8yow6KC7sI5sEhvidz4vN2aHVwBaoLuU+MERuZINvRfhj +UHmgl6E9ZogRX7XsvVsqoCJw3gClb4Sve+l2ZSUPgPqJZhvqaoQBZ/9OGui5 +AzdudIdrJhlh84t33zJbi2GFn4hVXWaE5yaalhJRt8HWOXA2/70RetR+2fXD +43yILlsk+cAg0KyBvr5AJQ9CHJvtufsJLFFeEDHn0lUI8z5Y436ewN9jLUNW +9InBxlHEZqQQ2FpRaTrULAa6ddv0sMK2QdD0pEwMRZp2Fid+JtDkckv4ZaEY +5H+uuZF9gUDXeTzh2HYxhNhMn+0QETiru2bVSGkuBGmLd+zKI/CQdm2GbsZF +8Hva1Y4yAuMHqmuquCIYXWK5b0UlgYU1TjWrfERwzCXrxUeFt6SqFFxxEoHg +T+c3vzwmMJE+8fk3ExHkNjR+UqkhsOJe86PA4Wz4S/ZQs6GRQAejVjMrdjZY +3bjq5dyl2Jd67e5i9yxYxAsY8f5Xse/nk99qOUI4u0BrdvU4gTllfda6bCHM +XmlaPKEw9wf3oVMuQhitN92YPEHg3EKhj6elEOq1Pp0t/ULgq+PndyYqC0FQ +GUt8r0Rizk1xarYoA97PEbPz1Ei0CH8cc7zxArRmtnQOEiTG6mr9MfZjOkzz +f21/QpIY927cLco6HVYd4rdeokh8vT5ni/q6dEgwJupcjEk08aepH9BMh82V +0fcq15B4pvPHAllrGhQOrc7MZpH4sHBIfQM9DZKskp3tbUm0P+6ZJMhNBds+ +++brB0hMuPDKrWwgGSZC2Y3RB0nszhvpi25Lhtsz/Po9XiRysgaOOsqSQVNb +WqPMJlF6zpnHyEoGuesS2UFfErNTlT/w7JIht6lXqhFE4tJC2X8GCs7B+P0T +aQk8Eq3j+l/xTiZBQeotF78MEheaTHv9ZJ8Iu48t7zMRknjTPeONZEMijLvF +cyYULjvj5DxLJgIaeCWdzSJx6E9J1cu5ifCsdHHlzRwSWS/nbNBrTABa1wlj +uYTEKd/SrxKnBPBjblfiFZK4orWwk+MXD8wH/dKkGhK5h0r9K2/HwenRCEOf +WhIdLjzK50vioIdBu7ipjsRQxqr7kB4HWSkr4+V/kGhX9J32KDcO5vlwPPY2 +kTjcdpSo3RQHcrXPNIN2Eh+luLmGt8RCuY8q+0EviSKWnBY9KQBn+jr1wSkS +t81LseQ9iwHJRY3lJV9J7IdDRZwnMTBqNKUdPU3ijfr2Wm5hDCRuqibUZ0lc +9tfXW0WnY6A8wHWjjTKFke9y9P5eGQPMaj47ey6FQYN0O62YU/APr6rIfimF +9KiJLhkrGoSv9uzIN6HwsPp2p6gGPgQsi3YJNaWQNpix2e8BHzbvyHO3MKPw +UHRLted1PgzeHT9SvZbCJwd8BaGxfLBKyorvZVEYFnP9sbEVH/pMn8mWW1Ho +mzH75r30BJhGe6xNsqfw1zwWUyDhQcMyb43AQxQ2GfVeHrsWCXsvSVVs2RTu +fvnlIfdCJPQxpv7V9KawTSreR4uNhMk1wvZ6Hwp7i+nPndiRQG6tTVvpTyFv +QcDCk/qREB9mrDocQqHsr04zjasRYFP/cdb/JIWbSwg7s1tcuMuPGz6cReGd +jQ0dC/vCYa0r84hptqJ/RHnn/o5wuL22auCzwpMz5nU368Ihb0i5PzmHwrti +q/wj0nDIdI19WSymULu8K3h3VDhErBO0T19T9JvYqVWa4cB6e+phZhGFUuVp +gZbHUSjdz0+v+YPCHTy3bXEjHLB8YhxzvZ7CNEre8LCdAw+NnwcnNlC4ScJl +qFZwoHbKartDE4VaicYLXp7nQNel6ZmmVgofsUZNfEw5MNN3OrjjKYWXG2y/ +9hwPAYfARPvX/RRC+oTjOo1gaGnbsL76DYWS27jt1rcgcLEaYuQNUBhVfN9+ +/UgQeC5wmPEbolBdSYBRj4IgVDr/7tsRxX85mNERFASZH1MYHz9S+GWCRv5S +EwgrPKwXtv9D4QB3pJ4oDgRJ1dh06b8U6kzOLSgTB0K+cHdXxCcKNS52Di3m +BkK5xaK0yUkKjTpYqmeYgWAjeRzd/YVCK+aS1WfpgVBNCw8qn6LQeuckUzwV +AM3P2uyipxV2GPf7pz0AnDGOdXCGQsqXlWPxKAA6C8wZNrOKvT31YUmFAeCx +uJ+u/41CtXF234goAHr5wulvCsOZkpcH4gPgfwidEbM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 12}, {0., 0.9638187117108397}}, + "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" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 12}, {0., 0.9638187117108397}}, + "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" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVz3s4lAkbBnB2NZXsVErJeYb3fVOhTPKleB4V2e3gUBRKg8hpSEPTRBpC +EksGI1NT7SpKY9Fp0aic1nkXX6K0lBwSU+1KEvrm++O57ut3Xfcf98PwCXPx ++05JSSlNcf/PLWrdNCUlHXy9rcot95kc6FURczKUdXBlYd7q1k45dPMWqRh9 +r4OaSeZ8ZYWP9m9XdqDp4MXPtFP+/5XDlfL7X9PUdPCtUaLeqjY5TAdkftBf +oYO+HZ9OixrlcL/W8TmY66B7jjZnnkwOq0/XSU8f1sF9R1Q/mF2VQ8yuHn9u +mw4ePa+mPbVfDp+XXG4wtdRFh8ueqZ6qctgnMd/9LlcXYY9If13xGDDiP7zR +nquHMpf1swXWY7DYx51YGqKH8/XqTec/GYVg8QhP0K2H3COvKl2MRkGa4zQ6 +tk0ft1Im5juPvQONn71VDW/q4/aTupyuuyMQEbZLd1DVADc6MoI8mt/CByEk +S6wN8LcG8s4P3cPA1tJJ2hdmgM1ufS+624YgoVUt7afrBjhPtIx//uIgyGbb +g649M8DZpzTxpNcA3DogdTSnM3BAaTjYdLwfknWO1VZvZWAp7fCFipjXELNf +bVFZJAM/pRQFW2q+Aqqq3He4kIEGJbreG3V7oT/fJiXqbwb6Wry4/962B/ZW +dMocNJhIjSYsm7Hqht/XuguW7WDiqp0WdH92J5gxS5Y7nGKid2VCiOuLDvC0 +1f39zh0mNmcbeN12bIPcHi+TM4NM3HFOf/MX21Zo6U5m7dE0xKgtmpF1Bxrh +nkrTloO7DdGsafj8yow6KC7sI5sEhvidz4vN2aHVwBaoLuU+MERuZINvRfhj +UHmgl6E9ZogRX7XsvVsqoCJw3gClb4Sve+l2ZSUPgPqJZhvqaoQBZ/9OGui5 +AzdudIdrJhlh84t33zJbi2GFn4hVXWaE5yaalhJRt8HWOXA2/70RetR+2fXD +43yILlsk+cAg0KyBvr5AJQ9CHJvtufsJLFFeEDHn0lUI8z5Y436ewN9jLUNW +9InBxlHEZqQQ2FpRaTrULAa6ddv0sMK2QdD0pEwMRZp2Fid+JtDkckv4ZaEY +5H+uuZF9gUDXeTzh2HYxhNhMn+0QETiru2bVSGkuBGmLd+zKI/CQdm2GbsZF +8Hva1Y4yAuMHqmuquCIYXWK5b0UlgYU1TjWrfERwzCXrxUeFt6SqFFxxEoHg +T+c3vzwmMJE+8fk3ExHkNjR+UqkhsOJe86PA4Wz4S/ZQs6GRQAejVjMrdjZY +3bjq5dyl2Jd67e5i9yxYxAsY8f5Xse/nk99qOUI4u0BrdvU4gTllfda6bCHM +XmlaPKEw9wf3oVMuQhitN92YPEHg3EKhj6elEOq1Pp0t/ULgq+PndyYqC0FQ +GUt8r0Rizk1xarYoA97PEbPz1Ei0CH8cc7zxArRmtnQOEiTG6mr9MfZjOkzz +f21/QpIY927cLco6HVYd4rdeokh8vT5ni/q6dEgwJupcjEk08aepH9BMh82V +0fcq15B4pvPHAllrGhQOrc7MZpH4sHBIfQM9DZKskp3tbUm0P+6ZJMhNBds+ +++brB0hMuPDKrWwgGSZC2Y3RB0nszhvpi25Lhtsz/Po9XiRysgaOOsqSQVNb +WqPMJlF6zpnHyEoGuesS2UFfErNTlT/w7JIht6lXqhFE4tJC2X8GCs7B+P0T +aQk8Eq3j+l/xTiZBQeotF78MEheaTHv9ZJ8Iu48t7zMRknjTPeONZEMijLvF +cyYULjvj5DxLJgIaeCWdzSJx6E9J1cu5ifCsdHHlzRwSWS/nbNBrTABa1wlj +uYTEKd/SrxKnBPBjblfiFZK4orWwk+MXD8wH/dKkGhK5h0r9K2/HwenRCEOf +WhIdLjzK50vioIdBu7ipjsRQxqr7kB4HWSkr4+V/kGhX9J32KDcO5vlwPPY2 +kTjcdpSo3RQHcrXPNIN2Eh+luLmGt8RCuY8q+0EviSKWnBY9KQBn+jr1wSkS +t81LseQ9iwHJRY3lJV9J7IdDRZwnMTBqNKUdPU3ijfr2Wm5hDCRuqibUZ0lc +9tfXW0WnY6A8wHWjjTKFke9y9P5eGQPMaj47ey6FQYN0O62YU/APr6rIfimF +9KiJLhkrGoSv9uzIN6HwsPp2p6gGPgQsi3YJNaWQNpix2e8BHzbvyHO3MKPw +UHRLted1PgzeHT9SvZbCJwd8BaGxfLBKyorvZVEYFnP9sbEVH/pMn8mWW1Ho +mzH75r30BJhGe6xNsqfw1zwWUyDhQcMyb43AQxQ2GfVeHrsWCXsvSVVs2RTu +fvnlIfdCJPQxpv7V9KawTSreR4uNhMk1wvZ6Hwp7i+nPndiRQG6tTVvpTyFv +QcDCk/qREB9mrDocQqHsr04zjasRYFP/cdb/JIWbSwg7s1tcuMuPGz6cReGd +jQ0dC/vCYa0r84hptqJ/RHnn/o5wuL22auCzwpMz5nU368Ihb0i5PzmHwrti +q/wj0nDIdI19WSymULu8K3h3VDhErBO0T19T9JvYqVWa4cB6e+phZhGFUuVp +gZbHUSjdz0+v+YPCHTy3bXEjHLB8YhxzvZ7CNEre8LCdAw+NnwcnNlC4ScJl +qFZwoHbKartDE4VaicYLXp7nQNel6ZmmVgofsUZNfEw5MNN3OrjjKYWXG2y/ +9hwPAYfARPvX/RRC+oTjOo1gaGnbsL76DYWS27jt1rcgcLEaYuQNUBhVfN9+ +/UgQeC5wmPEbolBdSYBRj4IgVDr/7tsRxX85mNERFASZH1MYHz9S+GWCRv5S +EwgrPKwXtv9D4QB3pJ4oDgRJ1dh06b8U6kzOLSgTB0K+cHdXxCcKNS52Di3m +BkK5xaK0yUkKjTpYqmeYgWAjeRzd/YVCK+aS1WfpgVBNCw8qn6LQeuckUzwV +AM3P2uyipxV2GPf7pz0AnDGOdXCGQsqXlWPxKAA6C8wZNrOKvT31YUmFAeCx +uJ+u/41CtXF234goAHr5wulvCsOZkpcH4gPgfwidEbM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 12}, {0., 0.9638187117108397}}, + "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" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVmHk8VG0Ux2csJVvMjG2GMGaJClEqpedkJyESEdkiKYWKaLFGKBSSVIpE +tkh2ipQIkSzZsszYQ4Vk673vX/O5n3vvc89znvP7/s4ZWcdzZic5cDjcFB6H ++//XbWCOF4cTgkmzPZ3xQaNIO1HDoDFFCG6C/+mCwBGUILLEK20iDHZicS+L +wtjop/THi6yfwuB4dSAgt4uF6A1SV31jCbCnWj/FMIKFPu8ZXX93PxEcNhiw +olpZKFitZq/MABFMVcs/ifSyUe6i0G/VaBJIXf3JaSE0hvKtR3VF94pASTRL +cch/ElUZfNZy7xGBd3xVz/o7Z9CBNYVa3ZuiQPI/sGLa9ws1o8QfcVvEoG2d +DH2eYwHtkL31Kr9BDHBq2rioA3+R0Mf5lSM+4mC5Xl/tUPoKWlg+N3NaXAL8 +kn90S538h8zmbU+ur5MA96y8NdNmHITdbvPx8iLD0+05B3654uFDobWqKYEC +/utcPnFdw4N/ioVX4RsKUPen/14RxYO6hKN1pIMkvHW7KslhioNzlkPvx4Sk +gOs47dlrnTV0dedEE6lSCi4PHCh8GLKM4lM4r7+y3QSrVxwDLrxZRHKtMa+6 ++KSBwvEqMa9wHpXfVoo9nysN2z31jjbO/UIiCy9CJxkyQBO/Gh53dhaFr/fl +crwqA2NK53uleyZRwPemTuFmGWhz9EnszB9FO5L6pkLosqBRfO/uk6ph9JW2 +3fSEvywMM3VeabsNoL8XBXi8P8nCzjHi4KeAHvQtMxVvSKVChNpk3KuHHWh/ +Wo2JtTcV9og7BlR+/IKiPehTrTVUcL0R6Xl3/2f0gKLZwC8hB0ldhxaTbtSj +rdGjKwFucmC4fnrBlfwe+bJ1PUveysHQUuxWHno1MuBQUpcn0KDi+Wy8iFoF +Wj9jfRjvSAPt778Ur+sVo4AqeJFcQgNefnaN81ABunYkz9JzAx2mwy59reLP +Q7uaOnU3ONBh02WZF0vimahXRDuEp5gOZ6iSf7fYpKF19D2iB9YzYMXWfDej +MgVNio6N77NjwPH+OScRwgNk8Vma4JXHgKtqe2ZlVRJQtuWDcMF/DJC2etF2 +VPsOqqppAQ8LJngH77udGXsLWczdPrQ+nQnDfw9mSOiEo8bo0KV//5iw8Vbu +Z2OfYHR0n4SCi6kQ6B6LehmOG0U/Oigv5v8IgZHAdwXhf2xUS3Z4G5giDIn2 +u3a0MNiIb97rcu4BApj5DnAbpbLQUmBQDfcYAYTzrOoW4llIvuTrk2PRRBj7 +omRpvZeNEu+5ib3YRQLZqHM8Wz6PoJfyK5J0Ngm2GUrQbiWPo91mNu8hUgSa +Q1j1rjd+IBxtlfOYiijEyT4e0Tb/iTiHVBa+14lDVvtVQzOxNZS26KJQek4C +il62uJBNcDBVnThdIUkGkemdC7lb8JAue8/CoYYM3dZtVo8C8ZCi0GXG4UYB +02tNklRrPHT32ow8FpIE6s4tS7ercHBkN1VIvVQSvI88eeoU+g9d0h2pX3OR +gou/3rGCZ1aQy4Y5KdEHVPBv1tG/QW1FIu9VbWZ+UEEm4yHhImpEzu1xw7oH +5CCuvex8llodMlMXK5aMlwO3/juJOuveoYHfZe3nx+WgRnS+l0p5gzIWa3VE +1Gmg6j60S+ZJKartaFo1vkWDRVZfEP9iIbq+YRG3fpAGyccd+Z5K56PuGC0T +jZ10yHs2l906kYUift5i80TRQWsgX/lxUjryfLi/ifadDsxzLkUFF5+ixYdC +uDcqDNA+ObdllvwIyfzmvNZ5gwFTyU7fTIITUcBd20PQyYCvjOEdvdQ4tFOg +yHm/AhO04WGH5LkYFNGjVFd2lQmcRkk7OBoikJAmbxpnGxNu2U7ecq0IRfaC +YWTVzUIgVZ0ga3pgFCUWZ/+1bxQC1Rm994BG0LbEnJMtPsJQ79sLuy3Y6FrE +Q596CQIcvr8aV1/GQkKMFuk3FQSwvVmwkoLxdGWx78iCCxHms1ND/v5jIcHR +eHk2HwnaXpoeAKMRpBS7LnxrGQnmNtHllBrH0IWjsje2OImAQuAvP4rvFPqu +NiI3tE4Ufi3SZmeTZhGvRdzlpMficPTNnHy+4yo65DfJT9CWgHWK6fu0uHDw +2GZZfuinBBx/U0fgx+NB1Or1iFsSGVYM2kZ9ffHw6pyEVqYGBaR4vGJlz+Ph +RZXVVoUxCshKjs8V/cBB3WbN1463JEGdltA6wYeDX8asut97peCBPLqQ/nAV +fTnao7Y7jAorN5I5JX62oi/3s1Ptu7BrnmX9ntdNKMB3skN+mxyYCWlbj1l+ +RG+c/30zvi4HKw7Bh3M21KLsqYBUUrscpPPe17h85C3yXf2LpBk0aFnvqN49 +XIZGHOOYGT40OOQTVa8kXoRwzsntrY00eLhAPRe3nI+yvS6bW0rTsXia1MAz +B9l/VxG9eYkOkiV3FcNbn6P0Y9UZop/owIMou6IcU9H1QRofTooBHYef/Nn7 +5jFax72gGuHFgKerOdRHNffR6fwqpWPvGLCz9ZcohRaPzhdkXEonMeHye4uZ +SPNYRDPBhcS5MWH1Lt9WEj0KqTxo9A2tYELi5HWr9j83kOZChHWEnDCcyS83 +elnNRtYPSRTVemHQNx+giK2yUOIJff+7bpi/BopJsu+wEKtvx0kjIhGCFSKP +6+aw0FGfT9MVxUTo8RJS8A1hIzl9De5zTiR4cWPbfMrJUaRc8zNfSkgEBh/M +bKwInEArHq1e9Flx8HDPOyn7bg0tXxrSs38gAYL6W9UT7+BAfbPaq3t6ZCBF +azWvM8aD2qRvrdUEGc4jh1PngvFwm53gaBNHAUe9qk0m+/DAu2yXIrJHEuY6 +NRT7b+Jgekzvc+A4E1oz54Z6Y0OQ85/KOxIkIdhscah21GEUTTMvPkkoEgLl +ZtmcPfYjaKjDvMTHSRge3TvfvXqWjXa3Fyx0cBOgroPU/PcjC5EXLzVTnhOA +WtpuQ7/JQi73HXNrzYggUPTRZfsoC30UzC7gWCBCYrbC5QHhETRdG6nxMo0E +CS+Pfi52H0N3rEJGZExEQCWKIFv6ZxIZv+1+xfgpAm6Zmps1NGfRLUGdcp9I +cUhSvyThwr2KqOXbru1XlIDfrvtf+5b8Q74Z2XUXeiXgl1VMQc4YDoy9tZU8 +bpBhakOWANUTD/sI6uUrTAqIxPDXkDF93FGyNJlpo0DVnORdCicecLJf1vv4 +SILjgbrHTxVxoGw+rOvBkIL2Oxt3Xv+1isJXjbUMrlLhx62V6nc2X5Ay17je +/SYqeB9zqB3waUaCDQmmFDk5sDmmyBvx4yNauOw96XpBDuYeVVodjalFhHGn +iJEGOdgRvMoKKX+LBq6TNGiSNECy1HsrEeVoIcOn4usZGtw+uGGSnVOEIHYa +FdfQoFP6UG7i2QIU7xRn4UyiQ8KTeKrRvlxkdDRUsd6dDnZX7Iqo3hmoujgo +YWM1HQxT+rWs+1KRJmdejAyBAe+HH2lNGaWgRYGZ206nGLBBlDCjdyoJ2cNM +yslSBvyen0jxz4xHgtxPr3dvYELVtNs1m4ZY9DP8lGPgCSZcMCOmynyLQrV1 +25x08zF+6n3/vTU5DCW6mHO8FRCGFvXo1NXvbLSxt+xsd6EwcLmQRsyF2cjs +he1SigUBxvfeDVFIYqGZvB5i5ioB9OONYjamsNBbMVP9yFQiJIjf0KfbsVH/ +OfPbUYdIoNo01jQmNopm5y+5PlkiwbxStVwY/wQK2BxUyNErDgVrV4KcPdZQ +SzGtNCpUAiSvbX/4yRMHxIujpgoqZFAe3FkzooEHj3U8ArYdmB6WuhjnMT2I +hRd3516jQNeuOl5FIzz8crd9102ThNpteVODaTi4LpJZqtnPBPCXCSfRQ1Et +Cl8s30aAyhgPUdVcFuI+Iu/p+IUApzvzT/beZmH1emyZ6U+Ek3btlWsUNjJ/ +cz2lTpYEgnZZ7qaRI+iDoGGUyXoyHDJSk3UWw0P/Psajk7lk8H/Xq/nnKh4U +mhYbLMwpYGDyTkrWBfN7O4+PkX3CsG5pq7HiBAv1k1RXQq9i+nqxp+TOLRbq +5rtdNLOZCBzGrsNllSw01aEbP/2JCEuGQrLuuWxk3xMiwm1LhjsGof58x/Gw +9nnc/8gaGb7azMY+xvoHLq1LE+tfUGCjT9n+GAU82FaMsN7OMUHt6oxKGkcI +GnH/1szPKwRByvcj93mNIgn7Yxfzs4RAfHpEePT8CNq3kO5w8Jgw6AznLVf4 +sVGcn0ZR37IwGAwWj6a1sJCMQwPdMJkAK2+ojScx/SeN03qy9ImQJzF3cKWH +hdKpu3yEJ4nQcLV5/+kFNmq2Mxb/dZ8ElxyEK501xtDTb68TKDoiYHm+fHZv +6STG7/Zl/RER8F2/P/ij6Cwydpc67hIoDjcafRWEO1ZQVE9z0RE5CdAlK5eq +RP9DbONQ0apWCTjt6pRY1YODCVyU+fkrZODfqKjz/gweAp0MfRhSFHB56ipr +5o+Hdac6BlrrKdD3YeWwhgAepKTI2wPPSMIZ9MH5GsKBabvjjSyKFFSe3XXX +VHINDbeE1x/2pYJhN0t0IfYLst+zPmnnRypYW75hPe1uRl+9zgiQNsnB5PcY +39Q99Sg2ZNuFOQ852PB3tXX2ay3ScW2/+vm9HCiI3ni1MPMWkaqflDPEaPDg +kkknz0A5Wjs4vs7dlQYzVice71gqQgPPxeYzK7HrCdNXac8LEG/vk44JQTqk +GLSd7kjNRTWxuepuLnQQb32lH/o+AzW7OAnwV9DB0YIvaJCShmikC20v+RnQ +OSUe8yIkBXndcd9n6sSAEcn98RkVSag7LOybeyEDMkk9jc4/4pFt7qaQC1xM +OO9/3ebXujuo61lyq4811n/r0uvadtxC/HZ2XelZTNiQdf654GwYqnm0q6Ob +QxgOer5oOTfDRqeXBcRyXwhDY12O3SSmh1yTsdLnBwlwTE5iW+AjFpoTV3Lv +/EWAhFIulycYD+ZcCRe97hMhVnHQytSIjcqD+80eaJLg2B/5DVO/RlBL9B7N +4RkSDL/sEx9uG0eaodYWP1vFoYJxQICmtYbUu97/fOonAT+q7Mtz7XEQQHn7 +2JtJBi0/q2iBnZjfxZlsP9GI8aApuLo6CA/Hv9UldHlTIMS8VNTFHA8uab1H +KsmSsFHLiYuVj4OPWd8UU7uYIDB9qWX3+VAkyyaU1MhhvAr6/N6gkIV4K698 +jKkjwMObDR+co1ioLoOyeaMnET5u/DF6R4CNlNt4T3aIkgDvE/hE2X0Eqbym +9iSuSMCLcHTsMj8e/BrO1rimkcFEcK+oN1Z/Hps2hF3Xp0DT0qlSB3fMf65V +e55oE4agQe+xS79ZaG9ZZXmUNwFMMpTEVqJZ6PuFQYFNm4gQ9iB1SvQ1C8ky +N9S0VxOhKD6BvpLIRk2Bts7GZmR48/TdGyMLPCTZbk85OkeGoH2Nsv/v3yDu +Rvr2xxQIbzi2+EIV442ZmLXsDBN6jY+61xiEoB6lzbtaNhLg4gBHa141C4lE +y/n8yCeA8Qd3uVuYnrcbpAT2HSdC+25JNyUsvgL2Cu+ZGDLw7rmRwHMRD4tv +5f99UaHAz8Pn4k9cwMM8V5t60gkCfPcuGTBMYKEJ3fAKPx4irJP/q66TjvGg +WZBjcB8Z5D+/xqnr4uGL79sx6wEyFB9RGMnEeH0qaXX3610EEPfqgPAMFsJN +tkvs6COAy0R9NR/WX2nm9V92KiGDNX3bA+4APLD9xwS32mF+vqGgx94eD0Hn +MvZdDyNAktD0RFYkC319qn6iWpUI9Wf6dqvVYfW3I/tDuSsZ3nIrl2o64sFR +86mlGQ8FzP9ZafFh65EYRefsl5iwwFPTcK0iGG1mjJ5Zxy0EjauL+af8RpHi +lYPf96cLQbHrdmmDyyNoPNRUbecRYegqZ6WrBLKRZhOH6OCCMET8GRB49JWF +nopcODyYQIDC1KqRd1g+C4VveD7WIkKgtYhIdgcLxWVf+ZbIJoKbmwa35Dgb +VWXlcd+NI0HYWM7dQsYYUkhqnhYHEeCzykk6nTSJHJlfpLsHRCBT/a6dPn4W +5d2/mW17RRw63ELr91WtoGp36bbvUhIgbhDbf8DvH5J8+rPSsVECFPxUb4q1 +46CkLu+kpw8ZVO9yRZw+jQdalJlFuRgFFJbWUyqu4AG4EuTf1WJ8XFzzkyfg +YSulSmedqyRwrBQ6fNLDgX0ClWEoKgV6i96DQtvXUEzZM/6Oi1Sw9HtF1Mv5 +ghbNRd8Fv6fCFXXjLRf5P6Pdep3uMRQ5cOSfOMxpX4/6b0aUqJ+RA4suo/SY +P7XIjnH7j9Y7OXiw3crOnbca5TqMLT0n0eDVV4G/07wVKEiKurXImQbtxynq +ZTLFSFk120SuHOOjKU18urYAaSduFlPkp0O1Q+ndTV256IrSOyh1osOxmVxX +qZkMZFHVph9RSocVyy3bPfamofjkjrnFDdh8UKYb25KSgnK/yt/9YM8AFy1R +LY3RJJSY1TY/nc+Ax18/F2VsTEBcnLY3qvFMmNDdVBpBv4MOFqpt+G3JhCkD +Symy0y2knLlA6MzA+iVrXKUHORx1lcnDqVUhOL54ulL9DxuJRRZP3nuG+WV+ +os4RWTY6/jRHIkuXAM6uV6AL64d8mroSPH4QgDvGi6WaiM2PMd58LnFEMOqP +zCrVYqMXArTXVA0SWEos7mcNjKC3vUlKIRMk2H927ynBknH09NWHZ2ON4qA1 +rE46tG0NnTslKqh4UQIm3hg4/bbEQZHHVj1xKhkUVtbYHsp46LL21rKvw/Qb +86dgP8aHNXzLhbMeFNi071tu21E8pEDyw1wRScgVyfDTLsHB1IKnW1s7E/Dh +AumKCaGoZVeX2IdNBOjr/1B4pZiFbnky5pg1BHhiEPDsDKa3oZYrVRxniHAw +LIKcvY6NpG1N62yFScC15Fdyx2YEneKJDtL4IwHzWwb/fFmHB/3Y2K+nHpPh +uH5yNZcfHoT0hE+StCjQ/Hjn59azeMgRcNc1aBaGjOSV3fsWMZ7wB1NiPAhw +N+50m30sCznKR+55LU6EnAAdH1I+C+0zOW1VX0EEW+XNf5JvsxFXez3fbyMy +eGWEZ5QdxvhCsyiwnCGDTapfEQPjzVTF7ZAP9ynAbzw3x7cbDw0P8+IOTzHh +YGfHaN7ZEBQR9COhjZcA8qg/UP89Nu9pNT0NySaAZuPmZS1Mz0aeePFWSyIM +/mkXE/vBQgHZMlJnIzG++XRK0LwxHo9v73Pdhumr9ljCoUt4SLNMTHpoTYDw +xsi0Ldh5n1nePibMSYRDn9TUhFNZqFfWPzN0Fxn2NqtultXEzgOxlmx6yED3 +Xox7gMUr+qMmsUSFAK5hIVymWSwU9Pi6zqdOAozsd+s7HsNCQpc4opxfkWHt +rAZD4DoewtNmp95aUUBqbtd3Uyc8KNecTQ4KIoBIztmW25ifWVqyIqwUibDJ +sNXRtoaFFMLFPewdyXBMeUFg9wns+Q0f3Mw5KdAe6FI6jPFxt6fxi5g/TEgx +Mnzg9T0YPcyWWSp4QoBoa+cGZSwf/eqa92OpFIjL37X04TLmb6tU6zRTAnzo +y6brJbOQl3MogkUCRGVdaEAPsfNq2iJt14r5ozZvNBPbXzhPW/LfRgL85d/V +dxPrf7M5DV+6ZJLhzF+1iXcYn6JcF21u+mJ+pWKjXYz1440JArct/mL55kop ++7+e73RfPni0GKvPx9ym+AgW4ipI7jjGJsNG7jHm//m7qrZ1OnmIAFqVfjHj +d1nowliZq2MlGeIpmpkD2P6+Sg73+kcR4Pwcp8sE9n6c/zWdwwIU8BFq0BTF +8jnbLbVTeZUJgqcPW3y8H4z0Oaf3BnMIgYl1N+P6tVG0J0I7LjRVCG63Lg9c +uYrp9dAzmReHhYG5dJDlhc3/SZfY7x3nhGH4z4xjKsZ/1oz+6NY4AlybgF0c +2PdqnhXtkzhABC4Za0dRzD+iPB9H9A4RIfpl2kz0EBupmdlfGY4lwXnngAo/ +yhjyWOpOuqchAhmrhbpSkZMopqQln9qP9dNrP4a3/ZhBAy/fHPl2WRzEc3bZ +6hesoN5Xeg50igRkKH3eXXTuHyr+9Fz4dT02T+/h2l7SigOZrOrpnxfIIKBm +LabihoeLKUdruUUo0Bor/MgZm1/svsw37a2hgB4aN0kg4UGVLNSi7ywJYVX6 +keMHcTB2iePSfaIUGIpJVLjsXUOuSjsUEy9Q4fmgw/3Vsi9Ie/Bhp0ItFewt +5D/60T+j0/n8D4zJcvApapKh712PQvlLu/tOy4HtlT/H5nneo8nQ0zvWquWg +d8anslCsGq3kRyadItLg57CNip9MBdK+UVVl40SDKpn170g7ilGX78LK91Ia +/Dt8621qWwFyWHAv/sxLBxeCRIbTr1xkfa1Jy8GRDmZ2F2w5uTKR+ESki0EJ +Hc7JWf/QPZiGmgfCuB/yMACnR3Gfz01BjfPhVYEnGND45lZ/ykoSulT5N/jl +SwYwUi6m9cskIKttV9afwjGh/8Rxg4kdd1BIOeezl0eZ8KnUMMvK7xaqadZU +PvecCSdfln8uUwpHQx+p87lLQoC3zAmnLbPRtBl/B3+qMAzB0MBGGhsVHoyp +36qN8aXk5h3BpyxU8jxna9kEAXbZ7z288R4LSdLSOr7HEmF72BnJYMRGT77o +uriok8CrRL5ztXME7Q4+mP51lARSpw5Za70YR18aVg45N4jDA4O9skeoayji +5f5kby8J0F/kTogwx8HhxKGk09JkePAzXYSoiAe0P7RxoJYMiruXlH5h86OJ +6NfhYncKyJOTmq5Z4aFScOUAkygJ4inUK2fKcXBNsuqG+1cmxLlbvdTMDEXM +wbI6PUkC2DtIT0mXslDzweWb3m8IQDveaoDH/GHGOefmFTciCKysGhtxspEo +1dv3iSAJFOR1RQbMRxCXik5H9JwEmGqs3f3NiYe8C6m248lkEKt/GKqJ8cTR +RuSrHVDgghK7YtUDDyHtb5SrPgnD3Fnr1fQlFjpQdPKT8BkCmMav8Ulj/WIq +p/1nnCgRnLVCRhh5LGQwnCSnVUaEmBwnw+CbbPR47foJHUMy9LYL/2aZ4OHz +ete9XVNkiHlQm22M8UKj9c5voXsUyGvh1duujs0T75bzxyeYwIhN8qi6HoIG +t7ToWvAQwEytQ2IT1l9+k3q6uyWTAFv0SY5KGA+PcasMG1oQAUfJ/imFzfej +0SrpP8Ix/41+857hhYfJ1Z1GBQoUUNas1d/tg4dlnL+htBUBOk5VHmXeZ6Hc +9nXXbHFE2J1iLh3xhIV8D25f7dxBBsbaGJ0H8LBebiG4t4sMNR1Hg25i8Z5N +eKavrkwAm1kV+apsFqq9fKRHtB1bL6GlJwGbJ3yOkUTYL8kQsKFpKPQaHr6V +zNnwHaXA1nyPvxXOeAhzNzXiCiBAe8BkJj/G38TtpTJpW4gw3a5mz/2Whd7n +N1cXnCBDn+kOfLotHu5Ndf5qw1HgsmWoug5WLw0JSXWbF5iwMdHzOefPYNR/ +Yz567REB1PGhMrpYPpRNdHl6pSkgfb8yPwbze8t0bl6GMQFiayDIHvODV/ut +2yPnCcCg//WeeICd30uNjP5mrB61i00WMb7XDz1X0WnA+Hw8Ousn5l/EUZs9 +o+lkuKu8qiSN+QNLqIeP7xIB7g2+f2GB7VfVT1qsY4EM2mZ+YcHY+18LjQef +FBLgEc+F1mosHvf43BPdQxjv/opvTsfyVyWEDxn7js1fxcvv5rD66fnUODtU +RgbvDXeaL2H+sOXD+6jVmwR4cO/agi5Wz8t2Mc2tvBT4M6pgHof5QxDutNnH +ZSa8endikpIVjBz2Pi6Pv0+A/WYLldHY9zx9HMq+15PBcZ5v+P94jO4dtuut +JUC84iHpYWw9/AEt+c6fZKic9Q/7g90/6rbIvyePAL9HfNScsPf3HP/i2dNH +htIGG/v/4828M8vBeo351y1BwVvY97+JR07hQgkQlBG4SwLLTz29cOALNwW0 +iCwhfyz+418OOrumEUCJIfjt//9r28clEvrayKByeirABFvv5KtlrvZlMiRs +cqz8X/+Hcc9e85YR4FVhUu5BzJ8eNkcc+jZKBryM02g49vwVb9y2pdsE8P9i +rpOA3bd73SqWuMYEg0TV5eDwYPQf7UvFVg== + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1WWYllUQBuClO5Rulu7ulO5aUiVX6Vi6FQVEBWyxQLrDRBEUpbtRRBQR +RRTE7vaeyx/3zjPzAtd+553zkZickjQmVUJCwg0/os7wowAH5fvpRU1SM9O8 +IIfkB+hNLZaaNeK6vJFppOEus0Iclh+kD7VZZtaYr+RNTOdVfTf+ld8hLXfr +C3NEns+b8q1kiKrfrLbnN/kN9snJ5KSOfrnahBvySXU0m+Vdan+yMkO/VU2K +D8+7jGeX9pA6hCvk5gJT4/cmneez1CJc5Kj+uDqSqyzQv6XexmUyco6JXIu5 +51vUDlzid/0ZdSzb5f3qHdzEeSZT13yF2pSv5VNqvLwt8m51ANmYqX9N7R7v +lN36w+pQ8pBef49alGPyQnbKt5Mpqv4FtSN/yDuox0r9LXwTz+P98rq+B6nZ +o8/AvXIxjssP0ZcX9Z34M94j9Vmlb8a38TzeNxmZbVacE/LD9KMBq82a8538 +Upw/mZhjlshJ+RH605DMzDUvwSn5UQbQiCxkJRvZuc+fKclp+TEG0pg1Zi34 +Xn45zo0czDMrxRn5cQbRhLVmLflBfiXOgpxxl8xKc1Z+guT4DPrO/BW7QlPW +6VvxY9wJ9sgDyc5s/Ta1J2nYqz+iDiNv7ErcS7VM7LH8JG/Lfckc+xSfQe3C +3/JZdRw75QPqnXzGzXzAlHjfnq1XW/MxP+lPqyl8wVb9XnUQn5KD95nEdebE +3VR78QlpeY8JfMk+z4+qw/mcfHzItPg94ntDLRt/Rz6hjmJRfEeo/cgSv3ec +tdqVf+Izc1AeTK7YMf0GtQ0/x92IvWC7vjfp2K/PFd8zcjnOyU8xmOZsNGvL +L7HzsS/kZoFZ+fjM8tMMoQV54l6ZV+C8/AxDaUle8pGfAhSkEIUpQlGKUZzE +uEP+jYrxTuRnGUYrSsT9MK/EBfk5htOaknEXzCvHecqLGUEbSsVdMK/CR/IS +RtKW0rH/5lW5KD/PKNpRJnbdvFrsgryU0bSnbOy1eXUuycsYQwfKxS6a14gd +kJeTQkfKs8i8JpflFYylExXiHZjXit2SVzKOzlSM8zavHTsrr2I8XagU521e +hyvyaibQlcpxhuZ1Y9/kNUykG1XiDM3rcVVeyySSqBpnaF4/9l5ex2S6Uy3O +0LxB7HTcF6bQg+pxhuYNuRZ7yFR6ssmsHb/K25jHDn0f0nNAf0wdQf54V0xP +9f//1TU8+w+HbPBM + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgEAURMEvGtiGrWhgYmQJBsKBcOBZtkWogWAHJpMsPHa6Jc/rWUWU +JiKmVI71jk/VT7X3zGM/5C3v6flTvIPjOI7jOI7jOI7jOI7jOI7jOI7jOI7j +OI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7/ +wC9YNFht + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVmHk8VG0Ux2csJVvMjG2GMGaJClEqpedkJyESEdkiKYWKaLFGKBSSVIpE +tkh2ipQIkSzZsszYQ4Vk673vX/O5n3vvc89znvP7/s4ZWcdzZic5cDjcFB6H ++//XbWCOF4cTgkmzPZ3xQaNIO1HDoDFFCG6C/+mCwBGUILLEK20iDHZicS+L +wtjop/THi6yfwuB4dSAgt4uF6A1SV31jCbCnWj/FMIKFPu8ZXX93PxEcNhiw +olpZKFitZq/MABFMVcs/ifSyUe6i0G/VaBJIXf3JaSE0hvKtR3VF94pASTRL +cch/ElUZfNZy7xGBd3xVz/o7Z9CBNYVa3ZuiQPI/sGLa9ws1o8QfcVvEoG2d +DH2eYwHtkL31Kr9BDHBq2rioA3+R0Mf5lSM+4mC5Xl/tUPoKWlg+N3NaXAL8 +kn90S538h8zmbU+ur5MA96y8NdNmHITdbvPx8iLD0+05B3654uFDobWqKYEC +/utcPnFdw4N/ioVX4RsKUPen/14RxYO6hKN1pIMkvHW7KslhioNzlkPvx4Sk +gOs47dlrnTV0dedEE6lSCi4PHCh8GLKM4lM4r7+y3QSrVxwDLrxZRHKtMa+6 ++KSBwvEqMa9wHpXfVoo9nysN2z31jjbO/UIiCy9CJxkyQBO/Gh53dhaFr/fl +crwqA2NK53uleyZRwPemTuFmGWhz9EnszB9FO5L6pkLosqBRfO/uk6ph9JW2 +3fSEvywMM3VeabsNoL8XBXi8P8nCzjHi4KeAHvQtMxVvSKVChNpk3KuHHWh/ +Wo2JtTcV9og7BlR+/IKiPehTrTVUcL0R6Xl3/2f0gKLZwC8hB0ldhxaTbtSj +rdGjKwFucmC4fnrBlfwe+bJ1PUveysHQUuxWHno1MuBQUpcn0KDi+Wy8iFoF +Wj9jfRjvSAPt778Ur+sVo4AqeJFcQgNefnaN81ABunYkz9JzAx2mwy59reLP +Q7uaOnU3ONBh02WZF0vimahXRDuEp5gOZ6iSf7fYpKF19D2iB9YzYMXWfDej +MgVNio6N77NjwPH+OScRwgNk8Vma4JXHgKtqe2ZlVRJQtuWDcMF/DJC2etF2 +VPsOqqppAQ8LJngH77udGXsLWczdPrQ+nQnDfw9mSOiEo8bo0KV//5iw8Vbu +Z2OfYHR0n4SCi6kQ6B6LehmOG0U/Oigv5v8IgZHAdwXhf2xUS3Z4G5giDIn2 +u3a0MNiIb97rcu4BApj5DnAbpbLQUmBQDfcYAYTzrOoW4llIvuTrk2PRRBj7 +omRpvZeNEu+5ib3YRQLZqHM8Wz6PoJfyK5J0Ngm2GUrQbiWPo91mNu8hUgSa +Q1j1rjd+IBxtlfOYiijEyT4e0Tb/iTiHVBa+14lDVvtVQzOxNZS26KJQek4C +il62uJBNcDBVnThdIUkGkemdC7lb8JAue8/CoYYM3dZtVo8C8ZCi0GXG4UYB +02tNklRrPHT32ow8FpIE6s4tS7ercHBkN1VIvVQSvI88eeoU+g9d0h2pX3OR +gou/3rGCZ1aQy4Y5KdEHVPBv1tG/QW1FIu9VbWZ+UEEm4yHhImpEzu1xw7oH +5CCuvex8llodMlMXK5aMlwO3/juJOuveoYHfZe3nx+WgRnS+l0p5gzIWa3VE +1Gmg6j60S+ZJKartaFo1vkWDRVZfEP9iIbq+YRG3fpAGyccd+Z5K56PuGC0T +jZ10yHs2l906kYUift5i80TRQWsgX/lxUjryfLi/ifadDsxzLkUFF5+ixYdC +uDcqDNA+ObdllvwIyfzmvNZ5gwFTyU7fTIITUcBd20PQyYCvjOEdvdQ4tFOg +yHm/AhO04WGH5LkYFNGjVFd2lQmcRkk7OBoikJAmbxpnGxNu2U7ecq0IRfaC +YWTVzUIgVZ0ga3pgFCUWZ/+1bxQC1Rm994BG0LbEnJMtPsJQ79sLuy3Y6FrE +Q596CQIcvr8aV1/GQkKMFuk3FQSwvVmwkoLxdGWx78iCCxHms1ND/v5jIcHR +eHk2HwnaXpoeAKMRpBS7LnxrGQnmNtHllBrH0IWjsje2OImAQuAvP4rvFPqu +NiI3tE4Ufi3SZmeTZhGvRdzlpMficPTNnHy+4yo65DfJT9CWgHWK6fu0uHDw +2GZZfuinBBx/U0fgx+NB1Or1iFsSGVYM2kZ9ffHw6pyEVqYGBaR4vGJlz+Ph +RZXVVoUxCshKjs8V/cBB3WbN1463JEGdltA6wYeDX8asut97peCBPLqQ/nAV +fTnao7Y7jAorN5I5JX62oi/3s1Ptu7BrnmX9ntdNKMB3skN+mxyYCWlbj1l+ +RG+c/30zvi4HKw7Bh3M21KLsqYBUUrscpPPe17h85C3yXf2LpBk0aFnvqN49 +XIZGHOOYGT40OOQTVa8kXoRwzsntrY00eLhAPRe3nI+yvS6bW0rTsXia1MAz +B9l/VxG9eYkOkiV3FcNbn6P0Y9UZop/owIMou6IcU9H1QRofTooBHYef/Nn7 +5jFax72gGuHFgKerOdRHNffR6fwqpWPvGLCz9ZcohRaPzhdkXEonMeHye4uZ +SPNYRDPBhcS5MWH1Lt9WEj0KqTxo9A2tYELi5HWr9j83kOZChHWEnDCcyS83 +elnNRtYPSRTVemHQNx+giK2yUOIJff+7bpi/BopJsu+wEKtvx0kjIhGCFSKP +6+aw0FGfT9MVxUTo8RJS8A1hIzl9De5zTiR4cWPbfMrJUaRc8zNfSkgEBh/M +bKwInEArHq1e9Flx8HDPOyn7bg0tXxrSs38gAYL6W9UT7+BAfbPaq3t6ZCBF +azWvM8aD2qRvrdUEGc4jh1PngvFwm53gaBNHAUe9qk0m+/DAu2yXIrJHEuY6 +NRT7b+Jgekzvc+A4E1oz54Z6Y0OQ85/KOxIkIdhscah21GEUTTMvPkkoEgLl +ZtmcPfYjaKjDvMTHSRge3TvfvXqWjXa3Fyx0cBOgroPU/PcjC5EXLzVTnhOA +WtpuQ7/JQi73HXNrzYggUPTRZfsoC30UzC7gWCBCYrbC5QHhETRdG6nxMo0E +CS+Pfi52H0N3rEJGZExEQCWKIFv6ZxIZv+1+xfgpAm6Zmps1NGfRLUGdcp9I +cUhSvyThwr2KqOXbru1XlIDfrvtf+5b8Q74Z2XUXeiXgl1VMQc4YDoy9tZU8 +bpBhakOWANUTD/sI6uUrTAqIxPDXkDF93FGyNJlpo0DVnORdCicecLJf1vv4 +SILjgbrHTxVxoGw+rOvBkIL2Oxt3Xv+1isJXjbUMrlLhx62V6nc2X5Ay17je +/SYqeB9zqB3waUaCDQmmFDk5sDmmyBvx4yNauOw96XpBDuYeVVodjalFhHGn +iJEGOdgRvMoKKX+LBq6TNGiSNECy1HsrEeVoIcOn4usZGtw+uGGSnVOEIHYa +FdfQoFP6UG7i2QIU7xRn4UyiQ8KTeKrRvlxkdDRUsd6dDnZX7Iqo3hmoujgo +YWM1HQxT+rWs+1KRJmdejAyBAe+HH2lNGaWgRYGZ206nGLBBlDCjdyoJ2cNM +yslSBvyen0jxz4xHgtxPr3dvYELVtNs1m4ZY9DP8lGPgCSZcMCOmynyLQrV1 +25x08zF+6n3/vTU5DCW6mHO8FRCGFvXo1NXvbLSxt+xsd6EwcLmQRsyF2cjs +he1SigUBxvfeDVFIYqGZvB5i5ioB9OONYjamsNBbMVP9yFQiJIjf0KfbsVH/ +OfPbUYdIoNo01jQmNopm5y+5PlkiwbxStVwY/wQK2BxUyNErDgVrV4KcPdZQ +SzGtNCpUAiSvbX/4yRMHxIujpgoqZFAe3FkzooEHj3U8ArYdmB6WuhjnMT2I +hRd3516jQNeuOl5FIzz8crd9102ThNpteVODaTi4LpJZqtnPBPCXCSfRQ1Et +Cl8s30aAyhgPUdVcFuI+Iu/p+IUApzvzT/beZmH1emyZ6U+Ek3btlWsUNjJ/ +cz2lTpYEgnZZ7qaRI+iDoGGUyXoyHDJSk3UWw0P/Psajk7lk8H/Xq/nnKh4U +mhYbLMwpYGDyTkrWBfN7O4+PkX3CsG5pq7HiBAv1k1RXQq9i+nqxp+TOLRbq +5rtdNLOZCBzGrsNllSw01aEbP/2JCEuGQrLuuWxk3xMiwm1LhjsGof58x/Gw +9nnc/8gaGb7azMY+xvoHLq1LE+tfUGCjT9n+GAU82FaMsN7OMUHt6oxKGkcI +GnH/1szPKwRByvcj93mNIgn7Yxfzs4RAfHpEePT8CNq3kO5w8Jgw6AznLVf4 +sVGcn0ZR37IwGAwWj6a1sJCMQwPdMJkAK2+ojScx/SeN03qy9ImQJzF3cKWH +hdKpu3yEJ4nQcLV5/+kFNmq2Mxb/dZ8ElxyEK501xtDTb68TKDoiYHm+fHZv +6STG7/Zl/RER8F2/P/ij6Cwydpc67hIoDjcafRWEO1ZQVE9z0RE5CdAlK5eq +RP9DbONQ0apWCTjt6pRY1YODCVyU+fkrZODfqKjz/gweAp0MfRhSFHB56ipr +5o+Hdac6BlrrKdD3YeWwhgAepKTI2wPPSMIZ9MH5GsKBabvjjSyKFFSe3XXX +VHINDbeE1x/2pYJhN0t0IfYLst+zPmnnRypYW75hPe1uRl+9zgiQNsnB5PcY +39Q99Sg2ZNuFOQ852PB3tXX2ay3ScW2/+vm9HCiI3ni1MPMWkaqflDPEaPDg +kkknz0A5Wjs4vs7dlQYzVice71gqQgPPxeYzK7HrCdNXac8LEG/vk44JQTqk +GLSd7kjNRTWxuepuLnQQb32lH/o+AzW7OAnwV9DB0YIvaJCShmikC20v+RnQ +OSUe8yIkBXndcd9n6sSAEcn98RkVSag7LOybeyEDMkk9jc4/4pFt7qaQC1xM +OO9/3ebXujuo61lyq4811n/r0uvadtxC/HZ2XelZTNiQdf654GwYqnm0q6Ob +QxgOer5oOTfDRqeXBcRyXwhDY12O3SSmh1yTsdLnBwlwTE5iW+AjFpoTV3Lv +/EWAhFIulycYD+ZcCRe97hMhVnHQytSIjcqD+80eaJLg2B/5DVO/RlBL9B7N +4RkSDL/sEx9uG0eaodYWP1vFoYJxQICmtYbUu97/fOonAT+q7Mtz7XEQQHn7 +2JtJBi0/q2iBnZjfxZlsP9GI8aApuLo6CA/Hv9UldHlTIMS8VNTFHA8uab1H +KsmSsFHLiYuVj4OPWd8UU7uYIDB9qWX3+VAkyyaU1MhhvAr6/N6gkIV4K698 +jKkjwMObDR+co1ioLoOyeaMnET5u/DF6R4CNlNt4T3aIkgDvE/hE2X0Eqbym +9iSuSMCLcHTsMj8e/BrO1rimkcFEcK+oN1Z/Hps2hF3Xp0DT0qlSB3fMf65V +e55oE4agQe+xS79ZaG9ZZXmUNwFMMpTEVqJZ6PuFQYFNm4gQ9iB1SvQ1C8ky +N9S0VxOhKD6BvpLIRk2Bts7GZmR48/TdGyMLPCTZbk85OkeGoH2Nsv/v3yDu +Rvr2xxQIbzi2+EIV442ZmLXsDBN6jY+61xiEoB6lzbtaNhLg4gBHa141C4lE +y/n8yCeA8Qd3uVuYnrcbpAT2HSdC+25JNyUsvgL2Cu+ZGDLw7rmRwHMRD4tv +5f99UaHAz8Pn4k9cwMM8V5t60gkCfPcuGTBMYKEJ3fAKPx4irJP/q66TjvGg +WZBjcB8Z5D+/xqnr4uGL79sx6wEyFB9RGMnEeH0qaXX3610EEPfqgPAMFsJN +tkvs6COAy0R9NR/WX2nm9V92KiGDNX3bA+4APLD9xwS32mF+vqGgx94eD0Hn +MvZdDyNAktD0RFYkC319qn6iWpUI9Wf6dqvVYfW3I/tDuSsZ3nIrl2o64sFR +86mlGQ8FzP9ZafFh65EYRefsl5iwwFPTcK0iGG1mjJ5Zxy0EjauL+af8RpHi +lYPf96cLQbHrdmmDyyNoPNRUbecRYegqZ6WrBLKRZhOH6OCCMET8GRB49JWF +nopcODyYQIDC1KqRd1g+C4VveD7WIkKgtYhIdgcLxWVf+ZbIJoKbmwa35Dgb +VWXlcd+NI0HYWM7dQsYYUkhqnhYHEeCzykk6nTSJHJlfpLsHRCBT/a6dPn4W +5d2/mW17RRw63ELr91WtoGp36bbvUhIgbhDbf8DvH5J8+rPSsVECFPxUb4q1 +46CkLu+kpw8ZVO9yRZw+jQdalJlFuRgFFJbWUyqu4AG4EuTf1WJ8XFzzkyfg +YSulSmedqyRwrBQ6fNLDgX0ClWEoKgV6i96DQtvXUEzZM/6Oi1Sw9HtF1Mv5 +ghbNRd8Fv6fCFXXjLRf5P6Pdep3uMRQ5cOSfOMxpX4/6b0aUqJ+RA4suo/SY +P7XIjnH7j9Y7OXiw3crOnbca5TqMLT0n0eDVV4G/07wVKEiKurXImQbtxynq +ZTLFSFk120SuHOOjKU18urYAaSduFlPkp0O1Q+ndTV256IrSOyh1osOxmVxX +qZkMZFHVph9RSocVyy3bPfamofjkjrnFDdh8UKYb25KSgnK/yt/9YM8AFy1R +LY3RJJSY1TY/nc+Ax18/F2VsTEBcnLY3qvFMmNDdVBpBv4MOFqpt+G3JhCkD +Symy0y2knLlA6MzA+iVrXKUHORx1lcnDqVUhOL54ulL9DxuJRRZP3nuG+WV+ +os4RWTY6/jRHIkuXAM6uV6AL64d8mroSPH4QgDvGi6WaiM2PMd58LnFEMOqP +zCrVYqMXArTXVA0SWEos7mcNjKC3vUlKIRMk2H927ynBknH09NWHZ2ON4qA1 +rE46tG0NnTslKqh4UQIm3hg4/bbEQZHHVj1xKhkUVtbYHsp46LL21rKvw/Qb +86dgP8aHNXzLhbMeFNi071tu21E8pEDyw1wRScgVyfDTLsHB1IKnW1s7E/Dh +AumKCaGoZVeX2IdNBOjr/1B4pZiFbnky5pg1BHhiEPDsDKa3oZYrVRxniHAw +LIKcvY6NpG1N62yFScC15Fdyx2YEneKJDtL4IwHzWwb/fFmHB/3Y2K+nHpPh +uH5yNZcfHoT0hE+StCjQ/Hjn59azeMgRcNc1aBaGjOSV3fsWMZ7wB1NiPAhw +N+50m30sCznKR+55LU6EnAAdH1I+C+0zOW1VX0EEW+XNf5JvsxFXez3fbyMy +eGWEZ5QdxvhCsyiwnCGDTapfEQPjzVTF7ZAP9ynAbzw3x7cbDw0P8+IOTzHh +YGfHaN7ZEBQR9COhjZcA8qg/UP89Nu9pNT0NySaAZuPmZS1Mz0aeePFWSyIM +/mkXE/vBQgHZMlJnIzG++XRK0LwxHo9v73Pdhumr9ljCoUt4SLNMTHpoTYDw +xsi0Ldh5n1nePibMSYRDn9TUhFNZqFfWPzN0Fxn2NqtultXEzgOxlmx6yED3 +Xox7gMUr+qMmsUSFAK5hIVymWSwU9Pi6zqdOAozsd+s7HsNCQpc4opxfkWHt +rAZD4DoewtNmp95aUUBqbtd3Uyc8KNecTQ4KIoBIztmW25ifWVqyIqwUibDJ +sNXRtoaFFMLFPewdyXBMeUFg9wns+Q0f3Mw5KdAe6FI6jPFxt6fxi5g/TEgx +Mnzg9T0YPcyWWSp4QoBoa+cGZSwf/eqa92OpFIjL37X04TLmb6tU6zRTAnzo +y6brJbOQl3MogkUCRGVdaEAPsfNq2iJt14r5ozZvNBPbXzhPW/LfRgL85d/V +dxPrf7M5DV+6ZJLhzF+1iXcYn6JcF21u+mJ+pWKjXYz1440JArct/mL55kop ++7+e73RfPni0GKvPx9ym+AgW4ipI7jjGJsNG7jHm//m7qrZ1OnmIAFqVfjHj +d1nowliZq2MlGeIpmpkD2P6+Sg73+kcR4Pwcp8sE9n6c/zWdwwIU8BFq0BTF +8jnbLbVTeZUJgqcPW3y8H4z0Oaf3BnMIgYl1N+P6tVG0J0I7LjRVCG63Lg9c +uYrp9dAzmReHhYG5dJDlhc3/SZfY7x3nhGH4z4xjKsZ/1oz+6NY4AlybgF0c +2PdqnhXtkzhABC4Za0dRzD+iPB9H9A4RIfpl2kz0EBupmdlfGY4lwXnngAo/ +yhjyWOpOuqchAhmrhbpSkZMopqQln9qP9dNrP4a3/ZhBAy/fHPl2WRzEc3bZ +6hesoN5Xeg50igRkKH3eXXTuHyr+9Fz4dT02T+/h2l7SigOZrOrpnxfIIKBm +LabihoeLKUdruUUo0Bor/MgZm1/svsw37a2hgB4aN0kg4UGVLNSi7ywJYVX6 +keMHcTB2iePSfaIUGIpJVLjsXUOuSjsUEy9Q4fmgw/3Vsi9Ie/Bhp0ItFewt +5D/60T+j0/n8D4zJcvApapKh712PQvlLu/tOy4HtlT/H5nneo8nQ0zvWquWg +d8anslCsGq3kRyadItLg57CNip9MBdK+UVVl40SDKpn170g7ilGX78LK91Ia +/Dt8621qWwFyWHAv/sxLBxeCRIbTr1xkfa1Jy8GRDmZ2F2w5uTKR+ESki0EJ +Hc7JWf/QPZiGmgfCuB/yMACnR3Gfz01BjfPhVYEnGND45lZ/ykoSulT5N/jl +SwYwUi6m9cskIKttV9afwjGh/8Rxg4kdd1BIOeezl0eZ8KnUMMvK7xaqadZU +PvecCSdfln8uUwpHQx+p87lLQoC3zAmnLbPRtBl/B3+qMAzB0MBGGhsVHoyp +36qN8aXk5h3BpyxU8jxna9kEAXbZ7z288R4LSdLSOr7HEmF72BnJYMRGT77o +uriok8CrRL5ztXME7Q4+mP51lARSpw5Za70YR18aVg45N4jDA4O9skeoayji +5f5kby8J0F/kTogwx8HhxKGk09JkePAzXYSoiAe0P7RxoJYMiruXlH5h86OJ +6NfhYncKyJOTmq5Z4aFScOUAkygJ4inUK2fKcXBNsuqG+1cmxLlbvdTMDEXM +wbI6PUkC2DtIT0mXslDzweWb3m8IQDveaoDH/GHGOefmFTciCKysGhtxspEo +1dv3iSAJFOR1RQbMRxCXik5H9JwEmGqs3f3NiYe8C6m248lkEKt/GKqJ8cTR +RuSrHVDgghK7YtUDDyHtb5SrPgnD3Fnr1fQlFjpQdPKT8BkCmMav8Ulj/WIq +p/1nnCgRnLVCRhh5LGQwnCSnVUaEmBwnw+CbbPR47foJHUMy9LYL/2aZ4OHz +ete9XVNkiHlQm22M8UKj9c5voXsUyGvh1duujs0T75bzxyeYwIhN8qi6HoIG +t7ToWvAQwEytQ2IT1l9+k3q6uyWTAFv0SY5KGA+PcasMG1oQAUfJ/imFzfej +0SrpP8Ix/41+857hhYfJ1Z1GBQoUUNas1d/tg4dlnL+htBUBOk5VHmXeZ6Hc +9nXXbHFE2J1iLh3xhIV8D25f7dxBBsbaGJ0H8LBebiG4t4sMNR1Hg25i8Z5N +eKavrkwAm1kV+apsFqq9fKRHtB1bL6GlJwGbJ3yOkUTYL8kQsKFpKPQaHr6V +zNnwHaXA1nyPvxXOeAhzNzXiCiBAe8BkJj/G38TtpTJpW4gw3a5mz/2Whd7n +N1cXnCBDn+kOfLotHu5Ndf5qw1HgsmWoug5WLw0JSXWbF5iwMdHzOefPYNR/ +Yz567REB1PGhMrpYPpRNdHl6pSkgfb8yPwbze8t0bl6GMQFiayDIHvODV/ut +2yPnCcCg//WeeICd30uNjP5mrB61i00WMb7XDz1X0WnA+Hw8Ousn5l/EUZs9 +o+lkuKu8qiSN+QNLqIeP7xIB7g2+f2GB7VfVT1qsY4EM2mZ+YcHY+18LjQef +FBLgEc+F1mosHvf43BPdQxjv/opvTsfyVyWEDxn7js1fxcvv5rD66fnUODtU +RgbvDXeaL2H+sOXD+6jVmwR4cO/agi5Wz8t2Mc2tvBT4M6pgHof5QxDutNnH +ZSa8endikpIVjBz2Pi6Pv0+A/WYLldHY9zx9HMq+15PBcZ5v+P94jO4dtuut +JUC84iHpYWw9/AEt+c6fZKic9Q/7g90/6rbIvyePAL9HfNScsPf3HP/i2dNH +htIGG/v/4828M8vBeo351y1BwVvY97+JR07hQgkQlBG4SwLLTz29cOALNwW0 +iCwhfyz+418OOrumEUCJIfjt//9r28clEvrayKByeirABFvv5KtlrvZlMiRs +cqz8X/+Hcc9e85YR4FVhUu5BzJ8eNkcc+jZKBryM02g49vwVb9y2pdsE8P9i +rpOA3bd73SqWuMYEg0TV5eDwYPQf7UvFVg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1WWYllUQBuClO5Rulu7ulO5aUiVX6Vi6FQVEBWyxQLrDRBEUpbtRRBQR +RRTE7vaeyx/3zjPzAtd+553zkZickjQmVUJCwg0/os7wowAH5fvpRU1SM9O8 +IIfkB+hNLZaaNeK6vJFppOEus0Iclh+kD7VZZtaYr+RNTOdVfTf+ld8hLXfr +C3NEns+b8q1kiKrfrLbnN/kN9snJ5KSOfrnahBvySXU0m+Vdan+yMkO/VU2K +D8+7jGeX9pA6hCvk5gJT4/cmneez1CJc5Kj+uDqSqyzQv6XexmUyco6JXIu5 +51vUDlzid/0ZdSzb5f3qHdzEeSZT13yF2pSv5VNqvLwt8m51ANmYqX9N7R7v +lN36w+pQ8pBef49alGPyQnbKt5Mpqv4FtSN/yDuox0r9LXwTz+P98rq+B6nZ +o8/AvXIxjssP0ZcX9Z34M94j9Vmlb8a38TzeNxmZbVacE/LD9KMBq82a8538 +Upw/mZhjlshJ+RH605DMzDUvwSn5UQbQiCxkJRvZuc+fKclp+TEG0pg1Zi34 +Xn45zo0czDMrxRn5cQbRhLVmLflBfiXOgpxxl8xKc1Z+guT4DPrO/BW7QlPW +6VvxY9wJ9sgDyc5s/Ta1J2nYqz+iDiNv7ErcS7VM7LH8JG/Lfckc+xSfQe3C +3/JZdRw75QPqnXzGzXzAlHjfnq1XW/MxP+lPqyl8wVb9XnUQn5KD95nEdebE +3VR78QlpeY8JfMk+z4+qw/mcfHzItPg94ntDLRt/Rz6hjmJRfEeo/cgSv3ec +tdqVf+Izc1AeTK7YMf0GtQ0/x92IvWC7vjfp2K/PFd8zcjnOyU8xmOZsNGvL +L7HzsS/kZoFZ+fjM8tMMoQV54l6ZV+C8/AxDaUle8pGfAhSkEIUpQlGKUZzE +uEP+jYrxTuRnGUYrSsT9MK/EBfk5htOaknEXzCvHecqLGUEbSsVdMK/CR/IS +RtKW0rH/5lW5KD/PKNpRJnbdvFrsgryU0bSnbOy1eXUuycsYQwfKxS6a14gd +kJeTQkfKs8i8JpflFYylExXiHZjXit2SVzKOzlSM8zavHTsrr2I8XagU521e +hyvyaibQlcpxhuZ1Y9/kNUykG1XiDM3rcVVeyySSqBpnaF4/9l5ex2S6Uy3O +0LxB7HTcF6bQg+pxhuYNuRZ7yFR6ssmsHb/K25jHDn0f0nNAf0wdQf54V0xP +9f//1TU8+w+HbPBM + "], 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]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 2.1892889005344744`}}, + "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:eJwVlnk8lF0UgGcsJVvMjGVmCGOWqBClUronOwmRiMgWSSlURJstQqGQpFIk +skWyU6REiGTJFpmxhwrJ1vd+f83v+b33Pe895z73nJFzOmN+nAuHw03icbj/ +f90HZvlxOBGYMN/VGR80ggy4p3YHc4mAqU038+qVEbSROXJqDa8INK4s5J/w +H0HDHl+bBflFIEjlXuQe7xHk8qfyNpkkAhstD9SOOI4gB+EwitpGEZCuTpAz +2zeCDu8hK7qaiYDekagX4bgRpJOoadiYIgI3IOBkQeAw2hWhExeaKgK3WpcG +Ll0eRkqX9n/bmy4CxW5bZQwvDiOyw5Hz+VkiIDk1LDpydhhNsc4/TigSAZVm +uZxdDsMosTj7r0OjCKhN678DNIx+dFCfz/0RAWOhb4qi/zjo+wfaXO6iCOCt +csLpSxzUVaYAJ1ZE4OjCyUqNPxxU83BHRzeXKOz3et5yZpqDEl0tuN4IiUKL +RnTqyjcO0pqPsImQF4VT+eXGL6o5KEFskV/GVBTsJeJeFIVx0JsDT2WfHxQF +1uJ+tncIB42FmqlvPyQKXeXsdNVADtozn+64/4go6A7lLVX4Y/vpsCjxdRaF +h3fPdq+c5qAtiTnHW3xFod6vF3ZaclAtxfFNYIooJDrs2NbC5KApc8EOwVRR ++A7fB9bTOUgisnji7lNRMMxP1D0kx0Enl4Qkcp+LQmNdjv0ElYPW95ad7i4U +BR5X0rCFKAfZPCBR1epFwcBigCqxwkYh7a9Vqj6Kwuxpm5X0RTbKEfLQM2wW +hYzk5Z17FtgId6Xa61ibKAQN+oxe+M1G6faeHyL7RGHN4mYTpXE2+inz4Tz7 +pyg4XR64ltvFRkkXOO+cZkVh6M+0U2oHG2k1cYkPzotCxJ8BoYdf2CjOX7Oo +bwnb72DxSFoLG+1sL5jv4CVAXQep+e8HNhrc1KJnyUcAc/UO8oY6NooI+pHQ +xk8ABdQfaPCOjXqUN+5oWU+A8wNcrXnVbHQl4oFvPZkAB++txNWXsRFrsKxO +X4oADo4ykzKlbNSyo0vi/QYC9PW/L7xUzEZyHEJJjTwBDII+vTMsZKNaFL5Q +voUAlTGe4mq5bHQ64amBhgoBbGdUFaqy2Uj8R01iiSoB3MJCeMyy2OhE0srO +VzsIIOndAeEZbCQw530xdx+2X78BXuNUNircH1O/WYcAWiU3bgs/YaOjT3LI +WXoEcHG7BF0pbJRrOlr6bD8BjsiTtwQ+ZCOrdF5+pgkBYmsgyOEBVu8Vmk2a +GQHe92Uz9JPZyPy53WKKJQHGdt8JUUxioyVcgJGMNQE6TlQeZt1jozSrxKQH +NgQIb4xM25TIRnM8bRpJxwjwzadkwCiBjRKPGQTccSfArkAJKc5tNtpXdPyj +6CkCmMWvCshgPC4YTI3xJMCduJNtDrFstLussjzKhwCmGcoSy9FsxBbpERC4 +QIC7g++eW2Ic5bZge8MPq7+qrU7xLTbqJ6kth17Gzu/5rpLbN9kozMPMmOca +AdqvTWQKYqxSczo5KIgAYjmnW25FsdFXychJXCgBgjICd5AxDjqTsedqGAGS +RKbGsyLZaNP7d1ErNwhw/+6VeT2Mv0gN9QZEEeDsLLfreAQbXfLBbVm8RYCA +zxa6CRgzGqQv+8Vi+VUbpBhhzJ42GNkcR4Ar47CDC+MnYucODiYQoDC1avjt +DTZy3P2oPP4eAfaaz1dGYyzr2MAwSibA8mta43GM+6/PRa8+JIAGPlRWD+MH +2bKLBY8JEG3j0qCC8dHP+13c0gigzBT+ysCYsnChmfqMALTSdtv/+av0k50t +mQTYZEByUsY4UbvpSUg25kPjxiVtjA+7LwjuyiPA72FfdWeMxaLlfX/kE8Dk +vYf8TYy/FJoMPi4kwEO+c63VGN/uvrj/cDHm7yNeMzyWz0Hc01f8ZQR4WZiU +ux9jEWaLzOsKAtjdKFhOwbh5/9INn9cEoB9tNcRj9bvpxZxl1RDgseG1p6cw +Nr570L63lgDxSgdkhjDmr7z0IaaOAA9uNLx3wc6j/vszVd0GrN5Ho7N+YhzO +15b8t5EAfwV39N3AzpP3kIKX02cCnOzMP96LnX/txUM94u2YjwktPQmYH0GP +rup+7CTA8F73vqMxmM8T7eRtfQRwHa+vFsB8qxLBh4x+w/wqXno7i/Fl9c1T +yd8JoF3pHzN2h40WA4NqeEcJIJpnXTcfz0Ylz3I2l40TYIfD7oPr77KRb1NX +gucPAvDGeLPVMN9nJZU9On8RIKGUx/Uxdj9e7rVpj5wjAJPx12f8Pht5u4Qi +WCBAVNa5BoTdr+m8HmLmCnb/441j1v9/H9vXXLHDEWFnioVMxGM2OrW0dVSU +mwgHPqqri2L3eVwvvMKfjwhrFP5q6KZjfvVtO25MJEKwYuRRvRw2SuV2+IQT +J4KLdsgwM4+NnBQid72SJELONV1fUj4bfTs3KLRhAxHC7qdOir9io26BW0XT +G4nAZeI2VFaJ+bG1VDZtExGm2tUdeN9g/cCKHWGtRIQNRq1OdjWYD080jlWr +EaH+VN9Odawffto1svbOXiI4rjNkR7WyUc3Toj3kfUTgkbVxEsf6a6Hoda9H +2kQItBETy8b6b9IYvSfLgAh55Nn9yz1s5HrPKbfWnAhCRR9ct46w0RFe1SEj +SyLgqNk/pbF+buyFl2y1IsLgn3YJiR9stNUwJbDvKBHad0q5K2P9f3mh79C8 +KxHmslND/v7D6umSc+OSOxZvecXEmBubZy2XqrhOEWF/WAQlew0H1WVQN673 +IsKH9T9Gbgtx0G3rI0usACIct2+vXMXmk0LJl8dHookw+lnZymY3B0nR0zq+ +xRJha9gpqWDEQcIxPgKucUQw7o/MKtXmoFk3wnnve0SIVRq0NjPG5q2EmUFk +KhESJK8bMOw56LDvx6mKYiL0eIso+mHz13AoSV67jAgxOc5GwTew+Wt60rq+ +ggh2Khv/JN/iIDnWupr2aiIUxScwlhM5aLJDL37qIxEWjUTkPHI5KFi9Zrfs +ABHM1Mo/ivVyUJTXo4je70SIfpE2Hf2dg+KyL31N5BDB3V2TV2qMg9JpO3xF +J4jQcLl578l5DvognF3ANU+ExGzFiwOiw0h4JF6BI0CCthdm+8B4GInTfPwe +C5NAUUFPbMBiGMnYmdXZiZKAZ9G/5LbtMFJp4z/eIU4CvG/gYxWPYWTx+mpK +nRwJhO2zPMwisf87d90lnu8ggVzUGb5Nn4bR4896rq4aJPAuUehc6RxGz4Xo +r2iaJLAiL+xlDwyj8uB+8/taJDjyR2Hd5K9h1H/G4lbUARKoNY02jUqMIHkD +Td4zziR4fn3LXMrxEZS7IPJbLZoE0pd/cluKjCJ1c4dLQ7EkOOtyrcKfOoqq +svJ478SRIGw0504hcxQ125tI/rpHgguOopUumqNoqjZS80UaCRJeHP5U7DGK +lGPXhG8uI8HsBoa8cuMoeqGwLMXgkGCLEZl+M3kM7Qzen/5lBPveiQM22s/H +0JveJOWQcRLsPb37hHDJGGqJ3qU1NE2CoRd9kkNtY2hm7oLb40USzClXy4cJ +jmPz5me+tIgYDN6fXl8ROI7ybUb0xHeLQUk0W+l7wATyXOxOuqspBhkrhXrS +kRNIMal5ShLEQMA6J+lk0gR68vVVAlVXDKzOls/sLp3AfA0ZljUVA9Uoglzp +nwl07rDc9U3OYqAY+Muf6jeJdprbvoNIMWgOYde7Xf+Bqgw/aXv0iMFbgaqn +/Z3TKKakJZ/Wj8Vb/TG05cc0cmJ9lukeEINMjTv2BvgZtIa3fclgWAz81u4N +/iA+g0zedL9k/hQD90ytjZpaM+ib+rD89zXi8GuBPjOTNINw9BXuI6riECf3 +aFjH4ifat6pYq3dDHEgB+5bN+n6hZpT4I26TBLStkWXMcc2jbXI3X+Y3SABO +XQcXte8vEvkwt3zIVxKs1hqoH0hfRgMvXh/6elESJHN22BkULKO8ezey7S5J +Qod7aP2eqmVk4iF91DVQEq43+imKdiyjm8K65b6RkpCkcYHsyruC+C3jLiY9 +koTDr2cV8p1WEPd31flvdZKQ1X7ZyFxiFX1uWD7g0iAJ9w13yx2iraInL98/ +HW2UBO0hDdKBLatIK9TG8merJFQw9wnRtVfRtY1BhVy9klCweinIxXMVLXu2 +ejNmJMHTI++43NtVNL90ZvqkJBn8k390Sx//h3pf6jsyqGTIUP60s+jMP1Tt +IdP2TZoMkoax/fv8/6GonuaiQ/Jk0KOolKpG/0O08i1X9iqR4bfb3ld+Jf/Q +Af8JQYIOGdYope/R5sFB2oKrYukZMhS9aHGlmOIg4sXeZB9vMhgs8CZEWODg +zAlxYaXzZBh/bej82woHGl3vfj7xJ8OPKofyXAcctBTTS6NCySB1ZeuDj144 +WLrwXd/hPhmEDTZrJN7Ggfmc3fG1dWTwyMpbNWvGQfHHZ6Kv6rH97OLZWtKK +A6knPyudGsmg6K92Q6IdBxyTUPGqVjKcdHNOrOrBgV9Gdt25XjL8so4pyBnF +wSPbJYXvP8lw9HUdQRCPBx5V3Y7oWTKYaa7e+c2NhxN80UGaf8gwt2nwz+c1 +eFB9RetJXCbD83B05KIgHt4LG0WZrqXAAWN1ORcJPExWJ05VSFFAbGr7fO4m +PBxM/J50UoYC93+mixGV8FDkuVlfkkYBxeVVjqcKHq5R3zzyYVFA2986Wmg7 +HojnR8wUVSmgMri9ZlgTD377t650bqMAc3WUwQd46JULyAzdQYHdzWob5bTw +kN4szDW4hwIKn17hNPTwoLFR/eVdfQqQorWb15jg4dHq1WO6RhTobRf9zTbF +8muvF/htTAHvjPCMsoN4aAq0czExp8DrJ29fG1viwaEnRIzXjgK3DUMDBI7i +4V1+c3XBMQr0mW3Dp9vhQTFc0tPBiQJHVOaFdh7Dw+y27PflbhR4w6tSquWE +h7Bbbb7e3hR4sjVn3y83PMhmVU/9PEcBIXUbCVV3PJTU5R338qWA2h2eiJMn +8TCOi7I4e4kCguuVdN+dwoOJj46y53UKTK7LEqJ54WEkWjX9RzgF+KNfv2N6 +Y/XKlpU+HYnl69tJpvvgoYCzzH8qBnu+63oC33k8iFu/GnZPosCyYduInx8e +8s6l2o0lU0Ci/kGo1kU8GMTGfjnxiAJHDZKrefzx4N9wusYtjQKmwrvFfQKw ++o/Y7hpJp8AdlRVlmUt4yOY2euGaSYFTf9XH32Lcv4f58HguBQLe9mr9uYwH +3yMkMc4LClxb1/Q99AoeRC5wRbm8pMDqaU2m0FU8ZN6e4WK/okD8TWHhmxhr +5fVfdC6hgA1jy33ea3jo+dg4872MAj7rbjdfwPjcaJmbUyW2nqqVOYBxutxd +S8caCnTbtFk/DMQD2hvaOFBLAaWdi8q/MO6y8dF2qMPyj/lTsDcID16+jmXf +6ingNCcwFIwxf5zp1mONmE9NwdXVGKe+0Mzob8be1yk2XcB4T9MmGftWLH8d +/mhWMB7ax8gJfW0UUD05ec0UY881fEJ2HRQ4u9jFPIvxWvn54N4uCtR0HA66 +gXEKYi/a9lCA4bMQdx/jXUc/e/X0UaC0wdYhHePPfm9GbQYoUHxIcTgTY4/4 +3GPd3zEf/kpu/P85T0FyxxEOBdbzjrL+f/9Bc8SBryMUwMs6j4RjrD7hV2s9 +jn0fOZ44g/GntW67uyYpEHO/NtsE4xN0ywKraQrYpvoXMTHG79NW6PxJgcqZ +gLA/WH5JdltTDs9SIGhPo9z/+av5y0h0zFNAx9w/7P/6NCYI3bL8i/nEk1L2 +f/2Ov1ziaV+iQMIGp8r/67v6aSzg0CoFvtjOxD7C+O5k5682HBUuWoVq6GKs +su69uwU3FdoDXUuHsPOqZxQOfOalgjaRLRKAsZPWEytzPipY/LPWFsB4yT6m +uZWfCn9GFC3iMB/iAq7oHhSigq9Ig5Y4xu8LbdTMCFQIWOP6kQfz6XzK4Vpe +MSq0xoo+dMF8o0eZW5ZLUEFxcS21AvMx0NnIlylNBdcnbnLmmL8qpnp8vTJU +kLlXmR+D+d2voXUvlkaFuPwdi+8x//cQNMqXWVQQixGsoWD3Y2Jlu3GBIhVU +tGoNdvpi9Rrb2ue2BYtfeyThwAU8LLxR+PdZlQo/D56JP3YODy/PkLUzNakg +zecdK3cWy89W7Is9UOGcMqdixRPzX1/0OEmbCs2Ptn9qPY35s2Fd2FUDKjQt +nih19MD6R9NCg6UFFQxN30rLueLha8msrcBhKmzO9/xb4YKH8LSZyTfWWPzZ +Hd/MnPHACRgV3mxPhap1BT0ODphvil3mXO5UMLvSJEWzwYOp+JehYg8qKFCS +mq5YY+eFbzl32pMKG/Z8zW07jIejX+sSunyoEGJRKu5qgQeJ8OLu3CtU6NpR +x69kjIdbnAQn2zgqOOlXbTDdgwfN1tu/Re5SIa+FX3+rBtbPK26FvL9HBUGT +2VmBnXgwjLuevvURFcIbjiw8V8P81b4wvvY5Fdb7lu2NUcRDQIqld+FrKtD2 +pv9eFseD/ee5pt01VNBHY6YJJDwAT4LC21oq9C2s+isQ8LDmRMdAaz3G75cP +agrh4baylel0G5bvrNQdKjZ/nldZb1YcpYKc1Nhs0Q8cdPfaDj8SkQLa9k2L +t6pwUCm8vI9FlALJFNqlU+U4SIHkB7liUpArluGvU4ID17TeQ5UUKViv7czD +zsfBLw+7t910Kajdkjc5mIYD/iX7FLFdUjDbqanUfwObx2Qnm0hHKXjjflmK +ywwHahSRFgMXKQirMogc24+DzdQq3TVuUsC1XOj4UR8H0tKUrYGnpOAUeu9y +BeEAJ/d5ra+vFDjtq3v0RAkHdRu1XjndlAINekLruAAODu2kiWiUSoHPocdP +nEP/oTNW39+NikgDz1H601e6q2j0AteFe0RpMJIgV7juXkUOCTSmkbg06C/4 +DIpsXUVm7U7Xs6jSUHl6xx0zqVWkYjGk58mUhvbb67df/bWCfpmw637vlob7 +Cuhc+oMVdEFvuH7VVRrO/3rLDp5eRpe3jzeRKqXh4sC+wgchSyg+hfvqS7sN +sHLJ6dq51wtIvjXmZZeADFC5XibmFc6h8lvKsWdzZWCrl/7hxtlfSGz+eegE +UxbokpfD407PoPC1fjxOl2VhVPlsr0zPBLr2ralTtFkW2px8EzvzR9C2pL7J +EIYcaBbfvfO4agh9oW81OxYgB0Ms3Zc67gPo73khPp+PcrB9lDj48VoP+pqZ +ijei0SBCfSLu5YMOtDetxtTGhwa7JJ2uVX74jNyUtyklnqPBs0HHeytln1FM +2VPBjvM0sPJ/SdTP+YyGWsLrD/rRwKibLT4f+xmFr5hoG16mwY+by9VvbT+j +z4d71HeG0WD5ejI3+Wcrcl03Ky1+nwYBzboG12mtKNqTMdlaQwO365Fed/Z+ +QjqDDzoVa2ngYKnwwZ/xCS1YiL8NfkeDSxomm84LfkIOu9Ymbf9AAxur1+wn +3c1IhWdM/14TDXyOONYO+Dajz/eyUx26sO/xLRn0vGpCYu/UbKd/0EA24wHh +PGpE96laDYJkeUjqOrCQdL0encwXvG9CkYePURNMA596tFO/0yOGKg9OguMH +uR3q0RfvU0KkDfIw8S3GL3VXPRJuSDCjysuD7REl/ogfH9A1v4kOhS3yYC6i +YzNq9QG5tMcN6e2Th7j2srNZ6nVoc/TI8jV3eTBaOzXvRnmHQgVLu/tOyoPd +pT9H5vjeof4bESUap+TBsss4PeZPLYoN2XJu1lMe1v1daZ35UovmL/pMuJ2T +h9mHldaHY2rRa5d/X02uysOyY/DBnHW1yFxDolgqXh7c+28n6q55i/w4el4l +b+Th+2LsZj5GNZoIPblttVoeeqd9KwslqpE989Yf7bfycH+rtb0HfzXSdWu/ +/OmdPCiKX385P/0GEcacI4Yb5GFb8Ao7pPwNyp68lkpql4d0/nuaFw+9QQO/ +y9rPjslDjfhcL436GhlyKWsoEOhQ8WwmXky9Ai3nRyadINLh55Ctqr9sBcp1 +HF18RqLDyy9Cf6f4KxCp+nE5U4IO9y+YdvINlKOBqyRNuhQdkBzt7nJEOfJb ++YtkmHRoWeuk0T1UhjIWanXFNOig5vF9h+zjUrR22uYg3okOOt9+KV3VL0Y6 +16uqbJ3pUCW79i1pWzEKkqZtLnKhQ/tRqkaZbDFa3T+2xsONDtPWxx5tWyxC +8xm+FV9O0eHW/nUTnJwiNOwUx8rwpcMB36h6ZckiVNvRtGJykw4L7L4gwYVC +dK0KnieX0IFfkFPj8r0AdfnNL38rpcO/gzffpLYVIBW1bFP5ciy+GV1yqrYA +DTyTmMusxHjc7GXaswIEsVOouIYOnTIHchNPFyCcS3J7ayMdHszTzsQt5aOr +6xZwawfpkHzUSeCJTD66cijPymsdA6bCLnypEsxDjvMexZ/4GeBKIGc4/8pF +OokbJZQEGVDtWHpnQ1cu4u993DEuzIAUw7aTHam5KN45ztKFxICEx/E04z25 +KNv7ooWVDAPrT03q4JWDumO0TTW3MyDv6Wx263gW2tHUqbfOkQEbLso+X5TM +RDZXmrQdnRhgbn/OjpsnE11Sfgulzgw4Mp3rJj2dgWpiczXcXRkg2frSIPRd +BjI+HKpU78EA+0v2RTSfDOTwTVX8xgUGSJXcUQpvfYYift7k8EUxQHsgX+VR +UjrqFdMJ4StmwCma1N9NtmlIcjzS1bCEAWfkbX7o7U9DllVtBhGlDFi22rTV +c3caanZ1FhKsYICTpUDQIDUNVRcHJayvZoBRSr+2TV8qSj9SnSH+kQF8iLoj +yikVeT3Y20T/xgDWGdeigvNP0BrGLvF9a5mwbGexk1mZgpoHwngf8DEBp0/1 +mMtNQfHJHbML65jwpEwvtiUlBdFJ59peCDKhc1Iy5nlICtLizouRJTDh3dBD +7UnjFHR1kC6Ak2ZCx8HHf3a/foQWHojgXqsyQef47KYZykM0IT46tseeCUf7 +Z53FCPdR41x4VeAxJjS+vtmfspyEcr8o3HnvwARXbXFtzZEk5H3bY4+ZMxOG +pfbGZ1QkoQWh6VvOJ5iwTpwwrX8iCa3hnVeL8Mb2t5JDe1hzD8n+5r7SeZ0J +k8nOX02DE5HlJxmCdx4TLqvvmpFTTUAXKv8Gv3jBBGbK+bR+2QSUmNU2N5XP +hEdfPhVlrE9A3WFhXz0KmZBJ6ml0+RGPHGA65XgpE37PjacEZMZj/bBK+chb +Jmxv/SVOpceja3fsDkAnE74wh7b10uJQttX9cOF/TJCxft52WOc2st5yae0J +HAv6jx01HN92G/Fw212vxrNgXG9DaQTjNrLL3RByjocFZwOu2v5acxsJ8z65 +2r2OBVVT7ldsG2LR2YKMC+kkFlx8ZzkdaRGLtgsVuexVZIEOPOiQOhODqmpa +wNOSBT7Be25lxt5EIeXcT18cZsHHUqMsa/+baH+h+rrfViyYNLSSpjjfRF1P +k1t9bbD1eoy6tm030c/wE06Bx1hwzpyYKvs1CtFNcSFx7ixYuSOwmcSIQhE9 +ynVll1nAbZy0jashAlnO3jqwNp0FQ3/3Z5B1w1FNs5bKmWcsOP6i/FOZcjhS +yZwndGZg8WxwlZ6UcCRob9+VnsWCdVlnnwnPhKHaui3OevksuKn/7ffm5DCk +er/RL7SCBYkTV63b/1xHIlr8adxt2HO7iZtuFaHoilTVdY8vLIjzsH6hlRmK +Jue93NvaWYAPF0pXSghFH7K+KqV2sUBo6kLLzrOh6KpYZqlWPwsgQDacxAhF +U6P6nwLHWNCaOfu9NzYEHX27lD82zgJmbJJn1dUQ1PAgL+7gJAv2d3aM5J0O +QenmEjZy0yzoNTnsUWMYguwqhtlvZlmgfnlaNY0LW5+QVLdxngXrE72ecf8M +Rju9TJ7H/GFBirHRfe9vwYjELDrjsMiCeb6ahisVwSgId9L8wxILXr49NkHN +CkYz3dLbVVZYIHzyoOWHe8HI/lWrROIqCwwT1ZaCw4NRY3To4r9/WPybuZ9M +fIPRf8ovxVY= + "]]}, "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., 2.1892889005344744`}}, + "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:eJwVlnk8lF0UgGcsJVvMjGVmCGOWqBClUronOwmRiMgWSSlURJstQqGQpFIk +skWyU6REiGTJFpmxhwrJ1vd+f83v+b33Pe895z73nJFzOmN+nAuHw03icbj/ +f90HZvlxOBGYMN/VGR80ggy4p3YHc4mAqU038+qVEbSROXJqDa8INK4s5J/w +H0HDHl+bBflFIEjlXuQe7xHk8qfyNpkkAhstD9SOOI4gB+EwitpGEZCuTpAz +2zeCDu8hK7qaiYDekagX4bgRpJOoadiYIgI3IOBkQeAw2hWhExeaKgK3WpcG +Ll0eRkqX9n/bmy4CxW5bZQwvDiOyw5Hz+VkiIDk1LDpydhhNsc4/TigSAZVm +uZxdDsMosTj7r0OjCKhN678DNIx+dFCfz/0RAWOhb4qi/zjo+wfaXO6iCOCt +csLpSxzUVaYAJ1ZE4OjCyUqNPxxU83BHRzeXKOz3et5yZpqDEl0tuN4IiUKL +RnTqyjcO0pqPsImQF4VT+eXGL6o5KEFskV/GVBTsJeJeFIVx0JsDT2WfHxQF +1uJ+tncIB42FmqlvPyQKXeXsdNVADtozn+64/4go6A7lLVX4Y/vpsCjxdRaF +h3fPdq+c5qAtiTnHW3xFod6vF3ZaclAtxfFNYIooJDrs2NbC5KApc8EOwVRR ++A7fB9bTOUgisnji7lNRMMxP1D0kx0Enl4Qkcp+LQmNdjv0ElYPW95ad7i4U +BR5X0rCFKAfZPCBR1epFwcBigCqxwkYh7a9Vqj6Kwuxpm5X0RTbKEfLQM2wW +hYzk5Z17FtgId6Xa61ibKAQN+oxe+M1G6faeHyL7RGHN4mYTpXE2+inz4Tz7 +pyg4XR64ltvFRkkXOO+cZkVh6M+0U2oHG2k1cYkPzotCxJ8BoYdf2CjOX7Oo +bwnb72DxSFoLG+1sL5jv4CVAXQep+e8HNhrc1KJnyUcAc/UO8oY6NooI+pHQ +xk8ABdQfaPCOjXqUN+5oWU+A8wNcrXnVbHQl4oFvPZkAB++txNWXsRFrsKxO +X4oADo4ykzKlbNSyo0vi/QYC9PW/L7xUzEZyHEJJjTwBDII+vTMsZKNaFL5Q +voUAlTGe4mq5bHQ64amBhgoBbGdUFaqy2Uj8R01iiSoB3MJCeMyy2OhE0srO +VzsIIOndAeEZbCQw530xdx+2X78BXuNUNircH1O/WYcAWiU3bgs/YaOjT3LI +WXoEcHG7BF0pbJRrOlr6bD8BjsiTtwQ+ZCOrdF5+pgkBYmsgyOEBVu8Vmk2a +GQHe92Uz9JPZyPy53WKKJQHGdt8JUUxioyVcgJGMNQE6TlQeZt1jozSrxKQH +NgQIb4xM25TIRnM8bRpJxwjwzadkwCiBjRKPGQTccSfArkAJKc5tNtpXdPyj +6CkCmMWvCshgPC4YTI3xJMCduJNtDrFstLussjzKhwCmGcoSy9FsxBbpERC4 +QIC7g++eW2Ic5bZge8MPq7+qrU7xLTbqJ6kth17Gzu/5rpLbN9kozMPMmOca +AdqvTWQKYqxSczo5KIgAYjmnW25FsdFXychJXCgBgjICd5AxDjqTsedqGAGS +RKbGsyLZaNP7d1ErNwhw/+6VeT2Mv0gN9QZEEeDsLLfreAQbXfLBbVm8RYCA +zxa6CRgzGqQv+8Vi+VUbpBhhzJ42GNkcR4Ar47CDC+MnYucODiYQoDC1avjt +DTZy3P2oPP4eAfaaz1dGYyzr2MAwSibA8mta43GM+6/PRa8+JIAGPlRWD+MH +2bKLBY8JEG3j0qCC8dHP+13c0gigzBT+ysCYsnChmfqMALTSdtv/+av0k50t +mQTYZEByUsY4UbvpSUg25kPjxiVtjA+7LwjuyiPA72FfdWeMxaLlfX/kE8Dk +vYf8TYy/FJoMPi4kwEO+c63VGN/uvrj/cDHm7yNeMzyWz0Hc01f8ZQR4WZiU +ux9jEWaLzOsKAtjdKFhOwbh5/9INn9cEoB9tNcRj9bvpxZxl1RDgseG1p6cw +Nr570L63lgDxSgdkhjDmr7z0IaaOAA9uNLx3wc6j/vszVd0GrN5Ho7N+YhzO +15b8t5EAfwV39N3AzpP3kIKX02cCnOzMP96LnX/txUM94u2YjwktPQmYH0GP +rup+7CTA8F73vqMxmM8T7eRtfQRwHa+vFsB8qxLBh4x+w/wqXno7i/Fl9c1T +yd8JoF3pHzN2h40WA4NqeEcJIJpnXTcfz0Ylz3I2l40TYIfD7oPr77KRb1NX +gucPAvDGeLPVMN9nJZU9On8RIKGUx/Uxdj9e7rVpj5wjAJPx12f8Pht5u4Qi +WCBAVNa5BoTdr+m8HmLmCnb/441j1v9/H9vXXLHDEWFnioVMxGM2OrW0dVSU +mwgHPqqri2L3eVwvvMKfjwhrFP5q6KZjfvVtO25MJEKwYuRRvRw2SuV2+IQT +J4KLdsgwM4+NnBQid72SJELONV1fUj4bfTs3KLRhAxHC7qdOir9io26BW0XT +G4nAZeI2VFaJ+bG1VDZtExGm2tUdeN9g/cCKHWGtRIQNRq1OdjWYD080jlWr +EaH+VN9Odawffto1svbOXiI4rjNkR7WyUc3Toj3kfUTgkbVxEsf6a6Hoda9H +2kQItBETy8b6b9IYvSfLgAh55Nn9yz1s5HrPKbfWnAhCRR9ct46w0RFe1SEj +SyLgqNk/pbF+buyFl2y1IsLgn3YJiR9stNUwJbDvKBHad0q5K2P9f3mh79C8 +KxHmslND/v7D6umSc+OSOxZvecXEmBubZy2XqrhOEWF/WAQlew0H1WVQN673 +IsKH9T9Gbgtx0G3rI0usACIct2+vXMXmk0LJl8dHookw+lnZymY3B0nR0zq+ +xRJha9gpqWDEQcIxPgKucUQw7o/MKtXmoFk3wnnve0SIVRq0NjPG5q2EmUFk +KhESJK8bMOw56LDvx6mKYiL0eIso+mHz13AoSV67jAgxOc5GwTew+Wt60rq+ +ggh2Khv/JN/iIDnWupr2aiIUxScwlhM5aLJDL37qIxEWjUTkPHI5KFi9Zrfs +ABHM1Mo/ivVyUJTXo4je70SIfpE2Hf2dg+KyL31N5BDB3V2TV2qMg9JpO3xF +J4jQcLl578l5DvognF3ANU+ExGzFiwOiw0h4JF6BI0CCthdm+8B4GInTfPwe +C5NAUUFPbMBiGMnYmdXZiZKAZ9G/5LbtMFJp4z/eIU4CvG/gYxWPYWTx+mpK +nRwJhO2zPMwisf87d90lnu8ggVzUGb5Nn4bR4896rq4aJPAuUehc6RxGz4Xo +r2iaJLAiL+xlDwyj8uB+8/taJDjyR2Hd5K9h1H/G4lbUARKoNY02jUqMIHkD +Td4zziR4fn3LXMrxEZS7IPJbLZoE0pd/cluKjCJ1c4dLQ7EkOOtyrcKfOoqq +svJ478SRIGw0504hcxQ125tI/rpHgguOopUumqNoqjZS80UaCRJeHP5U7DGK +lGPXhG8uI8HsBoa8cuMoeqGwLMXgkGCLEZl+M3kM7Qzen/5lBPveiQM22s/H +0JveJOWQcRLsPb37hHDJGGqJ3qU1NE2CoRd9kkNtY2hm7oLb40USzClXy4cJ +jmPz5me+tIgYDN6fXl8ROI7ybUb0xHeLQUk0W+l7wATyXOxOuqspBhkrhXrS +kRNIMal5ShLEQMA6J+lk0gR68vVVAlVXDKzOls/sLp3AfA0ZljUVA9Uoglzp +nwl07rDc9U3OYqAY+Muf6jeJdprbvoNIMWgOYde7Xf+Bqgw/aXv0iMFbgaqn +/Z3TKKakJZ/Wj8Vb/TG05cc0cmJ9lukeEINMjTv2BvgZtIa3fclgWAz81u4N +/iA+g0zedL9k/hQD90ytjZpaM+ib+rD89zXi8GuBPjOTNINw9BXuI6riECf3 +aFjH4ifat6pYq3dDHEgB+5bN+n6hZpT4I26TBLStkWXMcc2jbXI3X+Y3SABO +XQcXte8vEvkwt3zIVxKs1hqoH0hfRgMvXh/6elESJHN22BkULKO8ezey7S5J +Qod7aP2eqmVk4iF91DVQEq43+imKdiyjm8K65b6RkpCkcYHsyruC+C3jLiY9 +koTDr2cV8p1WEPd31flvdZKQ1X7ZyFxiFX1uWD7g0iAJ9w13yx2iraInL98/ +HW2UBO0hDdKBLatIK9TG8merJFQw9wnRtVfRtY1BhVy9klCweinIxXMVLXu2 +ejNmJMHTI++43NtVNL90ZvqkJBn8k390Sx//h3pf6jsyqGTIUP60s+jMP1Tt +IdP2TZoMkoax/fv8/6GonuaiQ/Jk0KOolKpG/0O08i1X9iqR4bfb3ld+Jf/Q +Af8JQYIOGdYope/R5sFB2oKrYukZMhS9aHGlmOIg4sXeZB9vMhgs8CZEWODg +zAlxYaXzZBh/bej82woHGl3vfj7xJ8OPKofyXAcctBTTS6NCySB1ZeuDj144 +WLrwXd/hPhmEDTZrJN7Ggfmc3fG1dWTwyMpbNWvGQfHHZ6Kv6rH97OLZWtKK +A6knPyudGsmg6K92Q6IdBxyTUPGqVjKcdHNOrOrBgV9Gdt25XjL8so4pyBnF +wSPbJYXvP8lw9HUdQRCPBx5V3Y7oWTKYaa7e+c2NhxN80UGaf8gwt2nwz+c1 +eFB9RetJXCbD83B05KIgHt4LG0WZrqXAAWN1ORcJPExWJ05VSFFAbGr7fO4m +PBxM/J50UoYC93+mixGV8FDkuVlfkkYBxeVVjqcKHq5R3zzyYVFA2986Wmg7 +HojnR8wUVSmgMri9ZlgTD377t650bqMAc3WUwQd46JULyAzdQYHdzWob5bTw +kN4szDW4hwIKn17hNPTwoLFR/eVdfQqQorWb15jg4dHq1WO6RhTobRf9zTbF +8muvF/htTAHvjPCMsoN4aAq0czExp8DrJ29fG1viwaEnRIzXjgK3DUMDBI7i +4V1+c3XBMQr0mW3Dp9vhQTFc0tPBiQJHVOaFdh7Dw+y27PflbhR4w6tSquWE +h7Bbbb7e3hR4sjVn3y83PMhmVU/9PEcBIXUbCVV3PJTU5R338qWA2h2eiJMn +8TCOi7I4e4kCguuVdN+dwoOJj46y53UKTK7LEqJ54WEkWjX9RzgF+KNfv2N6 +Y/XKlpU+HYnl69tJpvvgoYCzzH8qBnu+63oC33k8iFu/GnZPosCyYduInx8e +8s6l2o0lU0Ci/kGo1kU8GMTGfjnxiAJHDZKrefzx4N9wusYtjQKmwrvFfQKw ++o/Y7hpJp8AdlRVlmUt4yOY2euGaSYFTf9XH32Lcv4f58HguBQLe9mr9uYwH +3yMkMc4LClxb1/Q99AoeRC5wRbm8pMDqaU2m0FU8ZN6e4WK/okD8TWHhmxhr +5fVfdC6hgA1jy33ea3jo+dg4872MAj7rbjdfwPjcaJmbUyW2nqqVOYBxutxd +S8caCnTbtFk/DMQD2hvaOFBLAaWdi8q/MO6y8dF2qMPyj/lTsDcID16+jmXf +6ingNCcwFIwxf5zp1mONmE9NwdXVGKe+0Mzob8be1yk2XcB4T9MmGftWLH8d +/mhWMB7ax8gJfW0UUD05ec0UY881fEJ2HRQ4u9jFPIvxWvn54N4uCtR0HA66 +gXEKYi/a9lCA4bMQdx/jXUc/e/X0UaC0wdYhHePPfm9GbQYoUHxIcTgTY4/4 +3GPd3zEf/kpu/P85T0FyxxEOBdbzjrL+f/9Bc8SBryMUwMs6j4RjrD7hV2s9 +jn0fOZ44g/GntW67uyYpEHO/NtsE4xN0ywKraQrYpvoXMTHG79NW6PxJgcqZ +gLA/WH5JdltTDs9SIGhPo9z/+av5y0h0zFNAx9w/7P/6NCYI3bL8i/nEk1L2 +f/2Ov1ziaV+iQMIGp8r/67v6aSzg0CoFvtjOxD7C+O5k5682HBUuWoVq6GKs +su69uwU3FdoDXUuHsPOqZxQOfOalgjaRLRKAsZPWEytzPipY/LPWFsB4yT6m +uZWfCn9GFC3iMB/iAq7oHhSigq9Ig5Y4xu8LbdTMCFQIWOP6kQfz6XzK4Vpe +MSq0xoo+dMF8o0eZW5ZLUEFxcS21AvMx0NnIlylNBdcnbnLmmL8qpnp8vTJU +kLlXmR+D+d2voXUvlkaFuPwdi+8x//cQNMqXWVQQixGsoWD3Y2Jlu3GBIhVU +tGoNdvpi9Rrb2ue2BYtfeyThwAU8LLxR+PdZlQo/D56JP3YODy/PkLUzNakg +zecdK3cWy89W7Is9UOGcMqdixRPzX1/0OEmbCs2Ptn9qPY35s2Fd2FUDKjQt +nih19MD6R9NCg6UFFQxN30rLueLha8msrcBhKmzO9/xb4YKH8LSZyTfWWPzZ +Hd/MnPHACRgV3mxPhap1BT0ODphvil3mXO5UMLvSJEWzwYOp+JehYg8qKFCS +mq5YY+eFbzl32pMKG/Z8zW07jIejX+sSunyoEGJRKu5qgQeJ8OLu3CtU6NpR +x69kjIdbnAQn2zgqOOlXbTDdgwfN1tu/Re5SIa+FX3+rBtbPK26FvL9HBUGT +2VmBnXgwjLuevvURFcIbjiw8V8P81b4wvvY5Fdb7lu2NUcRDQIqld+FrKtD2 +pv9eFseD/ee5pt01VNBHY6YJJDwAT4LC21oq9C2s+isQ8LDmRMdAaz3G75cP +agrh4baylel0G5bvrNQdKjZ/nldZb1YcpYKc1Nhs0Q8cdPfaDj8SkQLa9k2L +t6pwUCm8vI9FlALJFNqlU+U4SIHkB7liUpArluGvU4ID17TeQ5UUKViv7czD +zsfBLw+7t910Kajdkjc5mIYD/iX7FLFdUjDbqanUfwObx2Qnm0hHKXjjflmK +ywwHahSRFgMXKQirMogc24+DzdQq3TVuUsC1XOj4UR8H0tKUrYGnpOAUeu9y +BeEAJ/d5ra+vFDjtq3v0RAkHdRu1XjndlAINekLruAAODu2kiWiUSoHPocdP +nEP/oTNW39+NikgDz1H601e6q2j0AteFe0RpMJIgV7juXkUOCTSmkbg06C/4 +DIpsXUVm7U7Xs6jSUHl6xx0zqVWkYjGk58mUhvbb67df/bWCfpmw637vlob7 +Cuhc+oMVdEFvuH7VVRrO/3rLDp5eRpe3jzeRKqXh4sC+wgchSyg+hfvqS7sN +sHLJ6dq51wtIvjXmZZeADFC5XibmFc6h8lvKsWdzZWCrl/7hxtlfSGz+eegE +UxbokpfD407PoPC1fjxOl2VhVPlsr0zPBLr2ralTtFkW2px8EzvzR9C2pL7J +EIYcaBbfvfO4agh9oW81OxYgB0Ms3Zc67gPo73khPp+PcrB9lDj48VoP+pqZ +ijei0SBCfSLu5YMOtDetxtTGhwa7JJ2uVX74jNyUtyklnqPBs0HHeytln1FM +2VPBjvM0sPJ/SdTP+YyGWsLrD/rRwKibLT4f+xmFr5hoG16mwY+by9VvbT+j +z4d71HeG0WD5ejI3+Wcrcl03Ky1+nwYBzboG12mtKNqTMdlaQwO365Fed/Z+ +QjqDDzoVa2ngYKnwwZ/xCS1YiL8NfkeDSxomm84LfkIOu9Ymbf9AAxur1+wn +3c1IhWdM/14TDXyOONYO+Dajz/eyUx26sO/xLRn0vGpCYu/UbKd/0EA24wHh +PGpE96laDYJkeUjqOrCQdL0encwXvG9CkYePURNMA596tFO/0yOGKg9OguMH +uR3q0RfvU0KkDfIw8S3GL3VXPRJuSDCjysuD7REl/ogfH9A1v4kOhS3yYC6i +YzNq9QG5tMcN6e2Th7j2srNZ6nVoc/TI8jV3eTBaOzXvRnmHQgVLu/tOyoPd +pT9H5vjeof4bESUap+TBsss4PeZPLYoN2XJu1lMe1v1daZ35UovmL/pMuJ2T +h9mHldaHY2rRa5d/X02uysOyY/DBnHW1yFxDolgqXh7c+28n6q55i/w4el4l +b+Th+2LsZj5GNZoIPblttVoeeqd9KwslqpE989Yf7bfycH+rtb0HfzXSdWu/ +/OmdPCiKX385P/0GEcacI4Yb5GFb8Ao7pPwNyp68lkpql4d0/nuaFw+9QQO/ +y9rPjslDjfhcL436GhlyKWsoEOhQ8WwmXky9Ai3nRyadINLh55Ctqr9sBcp1 +HF18RqLDyy9Cf6f4KxCp+nE5U4IO9y+YdvINlKOBqyRNuhQdkBzt7nJEOfJb ++YtkmHRoWeuk0T1UhjIWanXFNOig5vF9h+zjUrR22uYg3okOOt9+KV3VL0Y6 +16uqbJ3pUCW79i1pWzEKkqZtLnKhQ/tRqkaZbDFa3T+2xsONDtPWxx5tWyxC +8xm+FV9O0eHW/nUTnJwiNOwUx8rwpcMB36h6ZckiVNvRtGJykw4L7L4gwYVC +dK0KnieX0IFfkFPj8r0AdfnNL38rpcO/gzffpLYVIBW1bFP5ciy+GV1yqrYA +DTyTmMusxHjc7GXaswIEsVOouIYOnTIHchNPFyCcS3J7ayMdHszTzsQt5aOr +6xZwawfpkHzUSeCJTD66cijPymsdA6bCLnypEsxDjvMexZ/4GeBKIGc4/8pF +OokbJZQEGVDtWHpnQ1cu4u993DEuzIAUw7aTHam5KN45ztKFxICEx/E04z25 +KNv7ooWVDAPrT03q4JWDumO0TTW3MyDv6Wx263gW2tHUqbfOkQEbLso+X5TM +RDZXmrQdnRhgbn/OjpsnE11Sfgulzgw4Mp3rJj2dgWpiczXcXRkg2frSIPRd +BjI+HKpU78EA+0v2RTSfDOTwTVX8xgUGSJXcUQpvfYYift7k8EUxQHsgX+VR +UjrqFdMJ4StmwCma1N9NtmlIcjzS1bCEAWfkbX7o7U9DllVtBhGlDFi22rTV +c3caanZ1FhKsYICTpUDQIDUNVRcHJayvZoBRSr+2TV8qSj9SnSH+kQF8iLoj +yikVeT3Y20T/xgDWGdeigvNP0BrGLvF9a5mwbGexk1mZgpoHwngf8DEBp0/1 +mMtNQfHJHbML65jwpEwvtiUlBdFJ59peCDKhc1Iy5nlICtLizouRJTDh3dBD +7UnjFHR1kC6Ak2ZCx8HHf3a/foQWHojgXqsyQef47KYZykM0IT46tseeCUf7 +Z53FCPdR41x4VeAxJjS+vtmfspyEcr8o3HnvwARXbXFtzZEk5H3bY4+ZMxOG +pfbGZ1QkoQWh6VvOJ5iwTpwwrX8iCa3hnVeL8Mb2t5JDe1hzD8n+5r7SeZ0J +k8nOX02DE5HlJxmCdx4TLqvvmpFTTUAXKv8Gv3jBBGbK+bR+2QSUmNU2N5XP +hEdfPhVlrE9A3WFhXz0KmZBJ6ml0+RGPHGA65XgpE37PjacEZMZj/bBK+chb +Jmxv/SVOpceja3fsDkAnE74wh7b10uJQttX9cOF/TJCxft52WOc2st5yae0J +HAv6jx01HN92G/Fw212vxrNgXG9DaQTjNrLL3RByjocFZwOu2v5acxsJ8z65 +2r2OBVVT7ldsG2LR2YKMC+kkFlx8ZzkdaRGLtgsVuexVZIEOPOiQOhODqmpa +wNOSBT7Be25lxt5EIeXcT18cZsHHUqMsa/+baH+h+rrfViyYNLSSpjjfRF1P +k1t9bbD1eoy6tm030c/wE06Bx1hwzpyYKvs1CtFNcSFx7ixYuSOwmcSIQhE9 +ynVll1nAbZy0jashAlnO3jqwNp0FQ3/3Z5B1w1FNs5bKmWcsOP6i/FOZcjhS +yZwndGZg8WxwlZ6UcCRob9+VnsWCdVlnnwnPhKHaui3OevksuKn/7ffm5DCk +er/RL7SCBYkTV63b/1xHIlr8adxt2HO7iZtuFaHoilTVdY8vLIjzsH6hlRmK +Jue93NvaWYAPF0pXSghFH7K+KqV2sUBo6kLLzrOh6KpYZqlWPwsgQDacxAhF +U6P6nwLHWNCaOfu9NzYEHX27lD82zgJmbJJn1dUQ1PAgL+7gJAv2d3aM5J0O +QenmEjZy0yzoNTnsUWMYguwqhtlvZlmgfnlaNY0LW5+QVLdxngXrE72ecf8M +Rju9TJ7H/GFBirHRfe9vwYjELDrjsMiCeb6ahisVwSgId9L8wxILXr49NkHN +CkYz3dLbVVZYIHzyoOWHe8HI/lWrROIqCwwT1ZaCw4NRY3To4r9/WPybuZ9M +fIPRf8ovxVY= + "]]}, "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:eJwVmHk8VG0Ux2csJVvMjG2GMGaJClEqpedkJyESEdkiKYWKaLFGKBSSVIpE +tkh2ipQIkSzZsszYQ4Vk673vX/O5n3vvc89znvP7/s4ZWcdzZic5cDjcFB6H ++//XbWCOF4cTgkmzPZ3xQaNIO1HDoDFFCG6C/+mCwBGUILLEK20iDHZicS+L +wtjop/THi6yfwuB4dSAgt4uF6A1SV31jCbCnWj/FMIKFPu8ZXX93PxEcNhiw +olpZKFitZq/MABFMVcs/ifSyUe6i0G/VaBJIXf3JaSE0hvKtR3VF94pASTRL +cch/ElUZfNZy7xGBd3xVz/o7Z9CBNYVa3ZuiQPI/sGLa9ws1o8QfcVvEoG2d +DH2eYwHtkL31Kr9BDHBq2rioA3+R0Mf5lSM+4mC5Xl/tUPoKWlg+N3NaXAL8 +kn90S538h8zmbU+ur5MA96y8NdNmHITdbvPx8iLD0+05B3654uFDobWqKYEC +/utcPnFdw4N/ioVX4RsKUPen/14RxYO6hKN1pIMkvHW7KslhioNzlkPvx4Sk +gOs47dlrnTV0dedEE6lSCi4PHCh8GLKM4lM4r7+y3QSrVxwDLrxZRHKtMa+6 ++KSBwvEqMa9wHpXfVoo9nysN2z31jjbO/UIiCy9CJxkyQBO/Gh53dhaFr/fl +crwqA2NK53uleyZRwPemTuFmGWhz9EnszB9FO5L6pkLosqBRfO/uk6ph9JW2 +3fSEvywMM3VeabsNoL8XBXi8P8nCzjHi4KeAHvQtMxVvSKVChNpk3KuHHWh/ +Wo2JtTcV9og7BlR+/IKiPehTrTVUcL0R6Xl3/2f0gKLZwC8hB0ldhxaTbtSj +rdGjKwFucmC4fnrBlfwe+bJ1PUveysHQUuxWHno1MuBQUpcn0KDi+Wy8iFoF +Wj9jfRjvSAPt778Ur+sVo4AqeJFcQgNefnaN81ABunYkz9JzAx2mwy59reLP +Q7uaOnU3ONBh02WZF0vimahXRDuEp5gOZ6iSf7fYpKF19D2iB9YzYMXWfDej +MgVNio6N77NjwPH+OScRwgNk8Vma4JXHgKtqe2ZlVRJQtuWDcMF/DJC2etF2 +VPsOqqppAQ8LJngH77udGXsLWczdPrQ+nQnDfw9mSOiEo8bo0KV//5iw8Vbu +Z2OfYHR0n4SCi6kQ6B6LehmOG0U/Oigv5v8IgZHAdwXhf2xUS3Z4G5giDIn2 +u3a0MNiIb97rcu4BApj5DnAbpbLQUmBQDfcYAYTzrOoW4llIvuTrk2PRRBj7 +omRpvZeNEu+5ib3YRQLZqHM8Wz6PoJfyK5J0Ngm2GUrQbiWPo91mNu8hUgSa +Q1j1rjd+IBxtlfOYiijEyT4e0Tb/iTiHVBa+14lDVvtVQzOxNZS26KJQek4C +il62uJBNcDBVnThdIUkGkemdC7lb8JAue8/CoYYM3dZtVo8C8ZCi0GXG4UYB +02tNklRrPHT32ow8FpIE6s4tS7ercHBkN1VIvVQSvI88eeoU+g9d0h2pX3OR +gou/3rGCZ1aQy4Y5KdEHVPBv1tG/QW1FIu9VbWZ+UEEm4yHhImpEzu1xw7oH +5CCuvex8llodMlMXK5aMlwO3/juJOuveoYHfZe3nx+WgRnS+l0p5gzIWa3VE +1Gmg6j60S+ZJKartaFo1vkWDRVZfEP9iIbq+YRG3fpAGyccd+Z5K56PuGC0T +jZ10yHs2l906kYUift5i80TRQWsgX/lxUjryfLi/ifadDsxzLkUFF5+ixYdC +uDcqDNA+ObdllvwIyfzmvNZ5gwFTyU7fTIITUcBd20PQyYCvjOEdvdQ4tFOg +yHm/AhO04WGH5LkYFNGjVFd2lQmcRkk7OBoikJAmbxpnGxNu2U7ecq0IRfaC +YWTVzUIgVZ0ga3pgFCUWZ/+1bxQC1Rm994BG0LbEnJMtPsJQ79sLuy3Y6FrE +Q596CQIcvr8aV1/GQkKMFuk3FQSwvVmwkoLxdGWx78iCCxHms1ND/v5jIcHR +eHk2HwnaXpoeAKMRpBS7LnxrGQnmNtHllBrH0IWjsje2OImAQuAvP4rvFPqu +NiI3tE4Ufi3SZmeTZhGvRdzlpMficPTNnHy+4yo65DfJT9CWgHWK6fu0uHDw +2GZZfuinBBx/U0fgx+NB1Or1iFsSGVYM2kZ9ffHw6pyEVqYGBaR4vGJlz+Ph +RZXVVoUxCshKjs8V/cBB3WbN1463JEGdltA6wYeDX8asut97peCBPLqQ/nAV +fTnao7Y7jAorN5I5JX62oi/3s1Ptu7BrnmX9ntdNKMB3skN+mxyYCWlbj1l+ +RG+c/30zvi4HKw7Bh3M21KLsqYBUUrscpPPe17h85C3yXf2LpBk0aFnvqN49 +XIZGHOOYGT40OOQTVa8kXoRwzsntrY00eLhAPRe3nI+yvS6bW0rTsXia1MAz +B9l/VxG9eYkOkiV3FcNbn6P0Y9UZop/owIMou6IcU9H1QRofTooBHYef/Nn7 +5jFax72gGuHFgKerOdRHNffR6fwqpWPvGLCz9ZcohRaPzhdkXEonMeHye4uZ +SPNYRDPBhcS5MWH1Lt9WEj0KqTxo9A2tYELi5HWr9j83kOZChHWEnDCcyS83 +elnNRtYPSRTVemHQNx+giK2yUOIJff+7bpi/BopJsu+wEKtvx0kjIhGCFSKP +6+aw0FGfT9MVxUTo8RJS8A1hIzl9De5zTiR4cWPbfMrJUaRc8zNfSkgEBh/M +bKwInEArHq1e9Flx8HDPOyn7bg0tXxrSs38gAYL6W9UT7+BAfbPaq3t6ZCBF +azWvM8aD2qRvrdUEGc4jh1PngvFwm53gaBNHAUe9qk0m+/DAu2yXIrJHEuY6 +NRT7b+Jgekzvc+A4E1oz54Z6Y0OQ85/KOxIkIdhscah21GEUTTMvPkkoEgLl +ZtmcPfYjaKjDvMTHSRge3TvfvXqWjXa3Fyx0cBOgroPU/PcjC5EXLzVTnhOA +WtpuQ7/JQi73HXNrzYggUPTRZfsoC30UzC7gWCBCYrbC5QHhETRdG6nxMo0E +CS+Pfi52H0N3rEJGZExEQCWKIFv6ZxIZv+1+xfgpAm6Zmps1NGfRLUGdcp9I +cUhSvyThwr2KqOXbru1XlIDfrvtf+5b8Q74Z2XUXeiXgl1VMQc4YDoy9tZU8 +bpBhakOWANUTD/sI6uUrTAqIxPDXkDF93FGyNJlpo0DVnORdCicecLJf1vv4 +SILjgbrHTxVxoGw+rOvBkIL2Oxt3Xv+1isJXjbUMrlLhx62V6nc2X5Ay17je +/SYqeB9zqB3waUaCDQmmFDk5sDmmyBvx4yNauOw96XpBDuYeVVodjalFhHGn +iJEGOdgRvMoKKX+LBq6TNGiSNECy1HsrEeVoIcOn4usZGtw+uGGSnVOEIHYa +FdfQoFP6UG7i2QIU7xRn4UyiQ8KTeKrRvlxkdDRUsd6dDnZX7Iqo3hmoujgo +YWM1HQxT+rWs+1KRJmdejAyBAe+HH2lNGaWgRYGZ206nGLBBlDCjdyoJ2cNM +yslSBvyen0jxz4xHgtxPr3dvYELVtNs1m4ZY9DP8lGPgCSZcMCOmynyLQrV1 +25x08zF+6n3/vTU5DCW6mHO8FRCGFvXo1NXvbLSxt+xsd6EwcLmQRsyF2cjs +he1SigUBxvfeDVFIYqGZvB5i5ioB9OONYjamsNBbMVP9yFQiJIjf0KfbsVH/ +OfPbUYdIoNo01jQmNopm5y+5PlkiwbxStVwY/wQK2BxUyNErDgVrV4KcPdZQ +SzGtNCpUAiSvbX/4yRMHxIujpgoqZFAe3FkzooEHj3U8ArYdmB6WuhjnMT2I +hRd3516jQNeuOl5FIzz8crd9102ThNpteVODaTi4LpJZqtnPBPCXCSfRQ1Et +Cl8s30aAyhgPUdVcFuI+Iu/p+IUApzvzT/beZmH1emyZ6U+Ek3btlWsUNjJ/ +cz2lTpYEgnZZ7qaRI+iDoGGUyXoyHDJSk3UWw0P/Psajk7lk8H/Xq/nnKh4U +mhYbLMwpYGDyTkrWBfN7O4+PkX3CsG5pq7HiBAv1k1RXQq9i+nqxp+TOLRbq +5rtdNLOZCBzGrsNllSw01aEbP/2JCEuGQrLuuWxk3xMiwm1LhjsGof58x/Gw +9nnc/8gaGb7azMY+xvoHLq1LE+tfUGCjT9n+GAU82FaMsN7OMUHt6oxKGkcI +GnH/1szPKwRByvcj93mNIgn7Yxfzs4RAfHpEePT8CNq3kO5w8Jgw6AznLVf4 +sVGcn0ZR37IwGAwWj6a1sJCMQwPdMJkAK2+ojScx/SeN03qy9ImQJzF3cKWH +hdKpu3yEJ4nQcLV5/+kFNmq2Mxb/dZ8ElxyEK501xtDTb68TKDoiYHm+fHZv +6STG7/Zl/RER8F2/P/ij6Cwydpc67hIoDjcafRWEO1ZQVE9z0RE5CdAlK5eq +RP9DbONQ0apWCTjt6pRY1YODCVyU+fkrZODfqKjz/gweAp0MfRhSFHB56ipr +5o+Hdac6BlrrKdD3YeWwhgAepKTI2wPPSMIZ9MH5GsKBabvjjSyKFFSe3XXX +VHINDbeE1x/2pYJhN0t0IfYLst+zPmnnRypYW75hPe1uRl+9zgiQNsnB5PcY +39Q99Sg2ZNuFOQ852PB3tXX2ay3ScW2/+vm9HCiI3ni1MPMWkaqflDPEaPDg +kkknz0A5Wjs4vs7dlQYzVice71gqQgPPxeYzK7HrCdNXac8LEG/vk44JQTqk +GLSd7kjNRTWxuepuLnQQb32lH/o+AzW7OAnwV9DB0YIvaJCShmikC20v+RnQ +OSUe8yIkBXndcd9n6sSAEcn98RkVSag7LOybeyEDMkk9jc4/4pFt7qaQC1xM +OO9/3ebXujuo61lyq4811n/r0uvadtxC/HZ2XelZTNiQdf654GwYqnm0q6Ob +QxgOer5oOTfDRqeXBcRyXwhDY12O3SSmh1yTsdLnBwlwTE5iW+AjFpoTV3Lv +/EWAhFIulycYD+ZcCRe97hMhVnHQytSIjcqD+80eaJLg2B/5DVO/RlBL9B7N +4RkSDL/sEx9uG0eaodYWP1vFoYJxQICmtYbUu97/fOonAT+q7Mtz7XEQQHn7 +2JtJBi0/q2iBnZjfxZlsP9GI8aApuLo6CA/Hv9UldHlTIMS8VNTFHA8uab1H +KsmSsFHLiYuVj4OPWd8UU7uYIDB9qWX3+VAkyyaU1MhhvAr6/N6gkIV4K698 +jKkjwMObDR+co1ioLoOyeaMnET5u/DF6R4CNlNt4T3aIkgDvE/hE2X0Eqbym +9iSuSMCLcHTsMj8e/BrO1rimkcFEcK+oN1Z/Hps2hF3Xp0DT0qlSB3fMf65V +e55oE4agQe+xS79ZaG9ZZXmUNwFMMpTEVqJZ6PuFQYFNm4gQ9iB1SvQ1C8ky +N9S0VxOhKD6BvpLIRk2Bts7GZmR48/TdGyMLPCTZbk85OkeGoH2Nsv/v3yDu +Rvr2xxQIbzi2+EIV442ZmLXsDBN6jY+61xiEoB6lzbtaNhLg4gBHa141C4lE +y/n8yCeA8Qd3uVuYnrcbpAT2HSdC+25JNyUsvgL2Cu+ZGDLw7rmRwHMRD4tv +5f99UaHAz8Pn4k9cwMM8V5t60gkCfPcuGTBMYKEJ3fAKPx4irJP/q66TjvGg +WZBjcB8Z5D+/xqnr4uGL79sx6wEyFB9RGMnEeH0qaXX3610EEPfqgPAMFsJN +tkvs6COAy0R9NR/WX2nm9V92KiGDNX3bA+4APLD9xwS32mF+vqGgx94eD0Hn +MvZdDyNAktD0RFYkC319qn6iWpUI9Wf6dqvVYfW3I/tDuSsZ3nIrl2o64sFR +86mlGQ8FzP9ZafFh65EYRefsl5iwwFPTcK0iGG1mjJ5Zxy0EjauL+af8RpHi +lYPf96cLQbHrdmmDyyNoPNRUbecRYegqZ6WrBLKRZhOH6OCCMET8GRB49JWF +nopcODyYQIDC1KqRd1g+C4VveD7WIkKgtYhIdgcLxWVf+ZbIJoKbmwa35Dgb +VWXlcd+NI0HYWM7dQsYYUkhqnhYHEeCzykk6nTSJHJlfpLsHRCBT/a6dPn4W +5d2/mW17RRw63ELr91WtoGp36bbvUhIgbhDbf8DvH5J8+rPSsVECFPxUb4q1 +46CkLu+kpw8ZVO9yRZw+jQdalJlFuRgFFJbWUyqu4AG4EuTf1WJ8XFzzkyfg +YSulSmedqyRwrBQ6fNLDgX0ClWEoKgV6i96DQtvXUEzZM/6Oi1Sw9HtF1Mv5 +ghbNRd8Fv6fCFXXjLRf5P6Pdep3uMRQ5cOSfOMxpX4/6b0aUqJ+RA4suo/SY +P7XIjnH7j9Y7OXiw3crOnbca5TqMLT0n0eDVV4G/07wVKEiKurXImQbtxynq +ZTLFSFk120SuHOOjKU18urYAaSduFlPkp0O1Q+ndTV256IrSOyh1osOxmVxX +qZkMZFHVph9RSocVyy3bPfamofjkjrnFDdh8UKYb25KSgnK/yt/9YM8AFy1R +LY3RJJSY1TY/nc+Ax18/F2VsTEBcnLY3qvFMmNDdVBpBv4MOFqpt+G3JhCkD +Symy0y2knLlA6MzA+iVrXKUHORx1lcnDqVUhOL54ulL9DxuJRRZP3nuG+WV+ +os4RWTY6/jRHIkuXAM6uV6AL64d8mroSPH4QgDvGi6WaiM2PMd58LnFEMOqP +zCrVYqMXArTXVA0SWEos7mcNjKC3vUlKIRMk2H927ynBknH09NWHZ2ON4qA1 +rE46tG0NnTslKqh4UQIm3hg4/bbEQZHHVj1xKhkUVtbYHsp46LL21rKvw/Qb +86dgP8aHNXzLhbMeFNi071tu21E8pEDyw1wRScgVyfDTLsHB1IKnW1s7E/Dh +AumKCaGoZVeX2IdNBOjr/1B4pZiFbnky5pg1BHhiEPDsDKa3oZYrVRxniHAw +LIKcvY6NpG1N62yFScC15Fdyx2YEneKJDtL4IwHzWwb/fFmHB/3Y2K+nHpPh +uH5yNZcfHoT0hE+StCjQ/Hjn59azeMgRcNc1aBaGjOSV3fsWMZ7wB1NiPAhw +N+50m30sCznKR+55LU6EnAAdH1I+C+0zOW1VX0EEW+XNf5JvsxFXez3fbyMy +eGWEZ5QdxvhCsyiwnCGDTapfEQPjzVTF7ZAP9ynAbzw3x7cbDw0P8+IOTzHh +YGfHaN7ZEBQR9COhjZcA8qg/UP89Nu9pNT0NySaAZuPmZS1Mz0aeePFWSyIM +/mkXE/vBQgHZMlJnIzG++XRK0LwxHo9v73Pdhumr9ljCoUt4SLNMTHpoTYDw +xsi0Ldh5n1nePibMSYRDn9TUhFNZqFfWPzN0Fxn2NqtultXEzgOxlmx6yED3 +Xox7gMUr+qMmsUSFAK5hIVymWSwU9Pi6zqdOAozsd+s7HsNCQpc4opxfkWHt +rAZD4DoewtNmp95aUUBqbtd3Uyc8KNecTQ4KIoBIztmW25ifWVqyIqwUibDJ +sNXRtoaFFMLFPewdyXBMeUFg9wns+Q0f3Mw5KdAe6FI6jPFxt6fxi5g/TEgx +Mnzg9T0YPcyWWSp4QoBoa+cGZSwf/eqa92OpFIjL37X04TLmb6tU6zRTAnzo +y6brJbOQl3MogkUCRGVdaEAPsfNq2iJt14r5ozZvNBPbXzhPW/LfRgL85d/V +dxPrf7M5DV+6ZJLhzF+1iXcYn6JcF21u+mJ+pWKjXYz1440JArct/mL55kop ++7+e73RfPni0GKvPx9ym+AgW4ipI7jjGJsNG7jHm//m7qrZ1OnmIAFqVfjHj +d1nowliZq2MlGeIpmpkD2P6+Sg73+kcR4Pwcp8sE9n6c/zWdwwIU8BFq0BTF +8jnbLbVTeZUJgqcPW3y8H4z0Oaf3BnMIgYl1N+P6tVG0J0I7LjRVCG63Lg9c +uYrp9dAzmReHhYG5dJDlhc3/SZfY7x3nhGH4z4xjKsZ/1oz+6NY4AlybgF0c +2PdqnhXtkzhABC4Za0dRzD+iPB9H9A4RIfpl2kz0EBupmdlfGY4lwXnngAo/ +yhjyWOpOuqchAhmrhbpSkZMopqQln9qP9dNrP4a3/ZhBAy/fHPl2WRzEc3bZ +6hesoN5Xeg50igRkKH3eXXTuHyr+9Fz4dT02T+/h2l7SigOZrOrpnxfIIKBm +LabihoeLKUdruUUo0Bor/MgZm1/svsw37a2hgB4aN0kg4UGVLNSi7ywJYVX6 +keMHcTB2iePSfaIUGIpJVLjsXUOuSjsUEy9Q4fmgw/3Vsi9Ie/Bhp0ItFewt +5D/60T+j0/n8D4zJcvApapKh712PQvlLu/tOy4HtlT/H5nneo8nQ0zvWquWg +d8anslCsGq3kRyadItLg57CNip9MBdK+UVVl40SDKpn170g7ilGX78LK91Ia +/Dt8621qWwFyWHAv/sxLBxeCRIbTr1xkfa1Jy8GRDmZ2F2w5uTKR+ESki0EJ +Hc7JWf/QPZiGmgfCuB/yMACnR3Gfz01BjfPhVYEnGND45lZ/ykoSulT5N/jl +SwYwUi6m9cskIKttV9afwjGh/8Rxg4kdd1BIOeezl0eZ8KnUMMvK7xaqadZU +PvecCSdfln8uUwpHQx+p87lLQoC3zAmnLbPRtBl/B3+qMAzB0MBGGhsVHoyp +36qN8aXk5h3BpyxU8jxna9kEAXbZ7z288R4LSdLSOr7HEmF72BnJYMRGT77o +uriok8CrRL5ztXME7Q4+mP51lARSpw5Za70YR18aVg45N4jDA4O9skeoayji +5f5kby8J0F/kTogwx8HhxKGk09JkePAzXYSoiAe0P7RxoJYMiruXlH5h86OJ +6NfhYncKyJOTmq5Z4aFScOUAkygJ4inUK2fKcXBNsuqG+1cmxLlbvdTMDEXM +wbI6PUkC2DtIT0mXslDzweWb3m8IQDveaoDH/GHGOefmFTciCKysGhtxspEo +1dv3iSAJFOR1RQbMRxCXik5H9JwEmGqs3f3NiYe8C6m248lkEKt/GKqJ8cTR +RuSrHVDgghK7YtUDDyHtb5SrPgnD3Fnr1fQlFjpQdPKT8BkCmMav8Ulj/WIq +p/1nnCgRnLVCRhh5LGQwnCSnVUaEmBwnw+CbbPR47foJHUMy9LYL/2aZ4OHz +ete9XVNkiHlQm22M8UKj9c5voXsUyGvh1duujs0T75bzxyeYwIhN8qi6HoIG +t7ToWvAQwEytQ2IT1l9+k3q6uyWTAFv0SY5KGA+PcasMG1oQAUfJ/imFzfej +0SrpP8Ix/41+857hhYfJ1Z1GBQoUUNas1d/tg4dlnL+htBUBOk5VHmXeZ6Hc +9nXXbHFE2J1iLh3xhIV8D25f7dxBBsbaGJ0H8LBebiG4t4sMNR1Hg25i8Z5N +eKavrkwAm1kV+apsFqq9fKRHtB1bL6GlJwGbJ3yOkUTYL8kQsKFpKPQaHr6V +zNnwHaXA1nyPvxXOeAhzNzXiCiBAe8BkJj/G38TtpTJpW4gw3a5mz/2Whd7n +N1cXnCBDn+kOfLotHu5Ndf5qw1HgsmWoug5WLw0JSXWbF5iwMdHzOefPYNR/ +Yz567REB1PGhMrpYPpRNdHl6pSkgfb8yPwbze8t0bl6GMQFiayDIHvODV/ut +2yPnCcCg//WeeICd30uNjP5mrB61i00WMb7XDz1X0WnA+Hw8Ousn5l/EUZs9 +o+lkuKu8qiSN+QNLqIeP7xIB7g2+f2GB7VfVT1qsY4EM2mZ+YcHY+18LjQef +FBLgEc+F1mosHvf43BPdQxjv/opvTsfyVyWEDxn7js1fxcvv5rD66fnUODtU +RgbvDXeaL2H+sOXD+6jVmwR4cO/agi5Wz8t2Mc2tvBT4M6pgHof5QxDutNnH +ZSa8endikpIVjBz2Pi6Pv0+A/WYLldHY9zx9HMq+15PBcZ5v+P94jO4dtuut +JUC84iHpYWw9/AEt+c6fZKic9Q/7g90/6rbIvyePAL9HfNScsPf3HP/i2dNH +htIGG/v/4828M8vBeo351y1BwVvY97+JR07hQgkQlBG4SwLLTz29cOALNwW0 +iCwhfyz+418OOrumEUCJIfjt//9r28clEvrayKByeirABFvv5KtlrvZlMiRs +cqz8X/+Hcc9e85YR4FVhUu5BzJ8eNkcc+jZKBryM02g49vwVb9y2pdsE8P9i +rpOA3bd73SqWuMYEg0TV5eDwYPQf7UvFVg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1WWYllUQBuClO5Rulu7ulO5aUiVX6Vi6FQVEBWyxQLrDRBEUpbtRRBQR +RRTE7vaeyx/3zjPzAtd+553zkZickjQmVUJCwg0/os7wowAH5fvpRU1SM9O8 +IIfkB+hNLZaaNeK6vJFppOEus0Iclh+kD7VZZtaYr+RNTOdVfTf+ld8hLXfr +C3NEns+b8q1kiKrfrLbnN/kN9snJ5KSOfrnahBvySXU0m+Vdan+yMkO/VU2K +D8+7jGeX9pA6hCvk5gJT4/cmneez1CJc5Kj+uDqSqyzQv6XexmUyco6JXIu5 +51vUDlzid/0ZdSzb5f3qHdzEeSZT13yF2pSv5VNqvLwt8m51ANmYqX9N7R7v +lN36w+pQ8pBef49alGPyQnbKt5Mpqv4FtSN/yDuox0r9LXwTz+P98rq+B6nZ +o8/AvXIxjssP0ZcX9Z34M94j9Vmlb8a38TzeNxmZbVacE/LD9KMBq82a8538 +Upw/mZhjlshJ+RH605DMzDUvwSn5UQbQiCxkJRvZuc+fKclp+TEG0pg1Zi34 +Xn45zo0czDMrxRn5cQbRhLVmLflBfiXOgpxxl8xKc1Z+guT4DPrO/BW7QlPW +6VvxY9wJ9sgDyc5s/Ta1J2nYqz+iDiNv7ErcS7VM7LH8JG/Lfckc+xSfQe3C +3/JZdRw75QPqnXzGzXzAlHjfnq1XW/MxP+lPqyl8wVb9XnUQn5KD95nEdebE +3VR78QlpeY8JfMk+z4+qw/mcfHzItPg94ntDLRt/Rz6hjmJRfEeo/cgSv3ec +tdqVf+Izc1AeTK7YMf0GtQ0/x92IvWC7vjfp2K/PFd8zcjnOyU8xmOZsNGvL +L7HzsS/kZoFZ+fjM8tMMoQV54l6ZV+C8/AxDaUle8pGfAhSkEIUpQlGKUZzE +uEP+jYrxTuRnGUYrSsT9MK/EBfk5htOaknEXzCvHecqLGUEbSsVdMK/CR/IS +RtKW0rH/5lW5KD/PKNpRJnbdvFrsgryU0bSnbOy1eXUuycsYQwfKxS6a14gd +kJeTQkfKs8i8JpflFYylExXiHZjXit2SVzKOzlSM8zavHTsrr2I8XagU521e +hyvyaibQlcpxhuZ1Y9/kNUykG1XiDM3rcVVeyySSqBpnaF4/9l5ex2S6Uy3O +0LxB7HTcF6bQg+pxhuYNuRZ7yFR6ssmsHb/K25jHDn0f0nNAf0wdQf54V0xP +9f//1TU8+w+HbPBM + "], 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]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 2.1892889005344744`}}, + "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:eJwVlnk8lF0UgGcsJVvMjGVmCGOWqBClUronOwmRiMgWSSlURJstQqGQpFIk +skWyU6REiGTJFpmxhwrJ1vd+f83v+b33Pe895z73nJFzOmN+nAuHw03icbj/ +f90HZvlxOBGYMN/VGR80ggy4p3YHc4mAqU038+qVEbSROXJqDa8INK4s5J/w +H0HDHl+bBflFIEjlXuQe7xHk8qfyNpkkAhstD9SOOI4gB+EwitpGEZCuTpAz +2zeCDu8hK7qaiYDekagX4bgRpJOoadiYIgI3IOBkQeAw2hWhExeaKgK3WpcG +Ll0eRkqX9n/bmy4CxW5bZQwvDiOyw5Hz+VkiIDk1LDpydhhNsc4/TigSAZVm +uZxdDsMosTj7r0OjCKhN678DNIx+dFCfz/0RAWOhb4qi/zjo+wfaXO6iCOCt +csLpSxzUVaYAJ1ZE4OjCyUqNPxxU83BHRzeXKOz3et5yZpqDEl0tuN4IiUKL +RnTqyjcO0pqPsImQF4VT+eXGL6o5KEFskV/GVBTsJeJeFIVx0JsDT2WfHxQF +1uJ+tncIB42FmqlvPyQKXeXsdNVADtozn+64/4go6A7lLVX4Y/vpsCjxdRaF +h3fPdq+c5qAtiTnHW3xFod6vF3ZaclAtxfFNYIooJDrs2NbC5KApc8EOwVRR ++A7fB9bTOUgisnji7lNRMMxP1D0kx0Enl4Qkcp+LQmNdjv0ElYPW95ad7i4U +BR5X0rCFKAfZPCBR1epFwcBigCqxwkYh7a9Vqj6Kwuxpm5X0RTbKEfLQM2wW +hYzk5Z17FtgId6Xa61ibKAQN+oxe+M1G6faeHyL7RGHN4mYTpXE2+inz4Tz7 +pyg4XR64ltvFRkkXOO+cZkVh6M+0U2oHG2k1cYkPzotCxJ8BoYdf2CjOX7Oo +bwnb72DxSFoLG+1sL5jv4CVAXQep+e8HNhrc1KJnyUcAc/UO8oY6NooI+pHQ +xk8ABdQfaPCOjXqUN+5oWU+A8wNcrXnVbHQl4oFvPZkAB++txNWXsRFrsKxO +X4oADo4ykzKlbNSyo0vi/QYC9PW/L7xUzEZyHEJJjTwBDII+vTMsZKNaFL5Q +voUAlTGe4mq5bHQ64amBhgoBbGdUFaqy2Uj8R01iiSoB3MJCeMyy2OhE0srO +VzsIIOndAeEZbCQw530xdx+2X78BXuNUNircH1O/WYcAWiU3bgs/YaOjT3LI +WXoEcHG7BF0pbJRrOlr6bD8BjsiTtwQ+ZCOrdF5+pgkBYmsgyOEBVu8Vmk2a +GQHe92Uz9JPZyPy53WKKJQHGdt8JUUxioyVcgJGMNQE6TlQeZt1jozSrxKQH +NgQIb4xM25TIRnM8bRpJxwjwzadkwCiBjRKPGQTccSfArkAJKc5tNtpXdPyj +6CkCmMWvCshgPC4YTI3xJMCduJNtDrFstLussjzKhwCmGcoSy9FsxBbpERC4 +QIC7g++eW2Ic5bZge8MPq7+qrU7xLTbqJ6kth17Gzu/5rpLbN9kozMPMmOca +AdqvTWQKYqxSczo5KIgAYjmnW25FsdFXychJXCgBgjICd5AxDjqTsedqGAGS +RKbGsyLZaNP7d1ErNwhw/+6VeT2Mv0gN9QZEEeDsLLfreAQbXfLBbVm8RYCA +zxa6CRgzGqQv+8Vi+VUbpBhhzJ42GNkcR4Ar47CDC+MnYucODiYQoDC1avjt +DTZy3P2oPP4eAfaaz1dGYyzr2MAwSibA8mta43GM+6/PRa8+JIAGPlRWD+MH +2bKLBY8JEG3j0qCC8dHP+13c0gigzBT+ysCYsnChmfqMALTSdtv/+av0k50t +mQTYZEByUsY4UbvpSUg25kPjxiVtjA+7LwjuyiPA72FfdWeMxaLlfX/kE8Dk +vYf8TYy/FJoMPi4kwEO+c63VGN/uvrj/cDHm7yNeMzyWz0Hc01f8ZQR4WZiU +ux9jEWaLzOsKAtjdKFhOwbh5/9INn9cEoB9tNcRj9bvpxZxl1RDgseG1p6cw +Nr570L63lgDxSgdkhjDmr7z0IaaOAA9uNLx3wc6j/vszVd0GrN5Ho7N+YhzO +15b8t5EAfwV39N3AzpP3kIKX02cCnOzMP96LnX/txUM94u2YjwktPQmYH0GP +rup+7CTA8F73vqMxmM8T7eRtfQRwHa+vFsB8qxLBh4x+w/wqXno7i/Fl9c1T +yd8JoF3pHzN2h40WA4NqeEcJIJpnXTcfz0Ylz3I2l40TYIfD7oPr77KRb1NX +gucPAvDGeLPVMN9nJZU9On8RIKGUx/Uxdj9e7rVpj5wjAJPx12f8Pht5u4Qi +WCBAVNa5BoTdr+m8HmLmCnb/441j1v9/H9vXXLHDEWFnioVMxGM2OrW0dVSU +mwgHPqqri2L3eVwvvMKfjwhrFP5q6KZjfvVtO25MJEKwYuRRvRw2SuV2+IQT +J4KLdsgwM4+NnBQid72SJELONV1fUj4bfTs3KLRhAxHC7qdOir9io26BW0XT +G4nAZeI2VFaJ+bG1VDZtExGm2tUdeN9g/cCKHWGtRIQNRq1OdjWYD080jlWr +EaH+VN9Odawffto1svbOXiI4rjNkR7WyUc3Toj3kfUTgkbVxEsf6a6Hoda9H +2kQItBETy8b6b9IYvSfLgAh55Nn9yz1s5HrPKbfWnAhCRR9ct46w0RFe1SEj +SyLgqNk/pbF+buyFl2y1IsLgn3YJiR9stNUwJbDvKBHad0q5K2P9f3mh79C8 +KxHmslND/v7D6umSc+OSOxZvecXEmBubZy2XqrhOEWF/WAQlew0H1WVQN673 +IsKH9T9Gbgtx0G3rI0usACIct2+vXMXmk0LJl8dHookw+lnZymY3B0nR0zq+ +xRJha9gpqWDEQcIxPgKucUQw7o/MKtXmoFk3wnnve0SIVRq0NjPG5q2EmUFk +KhESJK8bMOw56LDvx6mKYiL0eIso+mHz13AoSV67jAgxOc5GwTew+Wt60rq+ +ggh2Khv/JN/iIDnWupr2aiIUxScwlhM5aLJDL37qIxEWjUTkPHI5KFi9Zrfs +ABHM1Mo/ivVyUJTXo4je70SIfpE2Hf2dg+KyL31N5BDB3V2TV2qMg9JpO3xF +J4jQcLl578l5DvognF3ANU+ExGzFiwOiw0h4JF6BI0CCthdm+8B4GInTfPwe +C5NAUUFPbMBiGMnYmdXZiZKAZ9G/5LbtMFJp4z/eIU4CvG/gYxWPYWTx+mpK +nRwJhO2zPMwisf87d90lnu8ggVzUGb5Nn4bR4896rq4aJPAuUehc6RxGz4Xo +r2iaJLAiL+xlDwyj8uB+8/taJDjyR2Hd5K9h1H/G4lbUARKoNY02jUqMIHkD +Td4zziR4fn3LXMrxEZS7IPJbLZoE0pd/cluKjCJ1c4dLQ7EkOOtyrcKfOoqq +svJ478SRIGw0504hcxQ125tI/rpHgguOopUumqNoqjZS80UaCRJeHP5U7DGK +lGPXhG8uI8HsBoa8cuMoeqGwLMXgkGCLEZl+M3kM7Qzen/5lBPveiQM22s/H +0JveJOWQcRLsPb37hHDJGGqJ3qU1NE2CoRd9kkNtY2hm7oLb40USzClXy4cJ +jmPz5me+tIgYDN6fXl8ROI7ybUb0xHeLQUk0W+l7wATyXOxOuqspBhkrhXrS +kRNIMal5ShLEQMA6J+lk0gR68vVVAlVXDKzOls/sLp3AfA0ZljUVA9Uoglzp +nwl07rDc9U3OYqAY+Muf6jeJdprbvoNIMWgOYde7Xf+Bqgw/aXv0iMFbgaqn +/Z3TKKakJZ/Wj8Vb/TG05cc0cmJ9lukeEINMjTv2BvgZtIa3fclgWAz81u4N +/iA+g0zedL9k/hQD90ytjZpaM+ib+rD89zXi8GuBPjOTNINw9BXuI6riECf3 +aFjH4ifat6pYq3dDHEgB+5bN+n6hZpT4I26TBLStkWXMcc2jbXI3X+Y3SABO +XQcXte8vEvkwt3zIVxKs1hqoH0hfRgMvXh/6elESJHN22BkULKO8ezey7S5J +Qod7aP2eqmVk4iF91DVQEq43+imKdiyjm8K65b6RkpCkcYHsyruC+C3jLiY9 +koTDr2cV8p1WEPd31flvdZKQ1X7ZyFxiFX1uWD7g0iAJ9w13yx2iraInL98/ +HW2UBO0hDdKBLatIK9TG8merJFQw9wnRtVfRtY1BhVy9klCweinIxXMVLXu2 +ejNmJMHTI++43NtVNL90ZvqkJBn8k390Sx//h3pf6jsyqGTIUP60s+jMP1Tt +IdP2TZoMkoax/fv8/6GonuaiQ/Jk0KOolKpG/0O08i1X9iqR4bfb3ld+Jf/Q +Af8JQYIOGdYope/R5sFB2oKrYukZMhS9aHGlmOIg4sXeZB9vMhgs8CZEWODg +zAlxYaXzZBh/bej82woHGl3vfj7xJ8OPKofyXAcctBTTS6NCySB1ZeuDj144 +WLrwXd/hPhmEDTZrJN7Ggfmc3fG1dWTwyMpbNWvGQfHHZ6Kv6rH97OLZWtKK +A6knPyudGsmg6K92Q6IdBxyTUPGqVjKcdHNOrOrBgV9Gdt25XjL8so4pyBnF +wSPbJYXvP8lw9HUdQRCPBx5V3Y7oWTKYaa7e+c2NhxN80UGaf8gwt2nwz+c1 +eFB9RetJXCbD83B05KIgHt4LG0WZrqXAAWN1ORcJPExWJ05VSFFAbGr7fO4m +PBxM/J50UoYC93+mixGV8FDkuVlfkkYBxeVVjqcKHq5R3zzyYVFA2986Wmg7 +HojnR8wUVSmgMri9ZlgTD377t650bqMAc3WUwQd46JULyAzdQYHdzWob5bTw +kN4szDW4hwIKn17hNPTwoLFR/eVdfQqQorWb15jg4dHq1WO6RhTobRf9zTbF +8muvF/htTAHvjPCMsoN4aAq0czExp8DrJ29fG1viwaEnRIzXjgK3DUMDBI7i +4V1+c3XBMQr0mW3Dp9vhQTFc0tPBiQJHVOaFdh7Dw+y27PflbhR4w6tSquWE +h7Bbbb7e3hR4sjVn3y83PMhmVU/9PEcBIXUbCVV3PJTU5R338qWA2h2eiJMn +8TCOi7I4e4kCguuVdN+dwoOJj46y53UKTK7LEqJ54WEkWjX9RzgF+KNfv2N6 +Y/XKlpU+HYnl69tJpvvgoYCzzH8qBnu+63oC33k8iFu/GnZPosCyYduInx8e +8s6l2o0lU0Ci/kGo1kU8GMTGfjnxiAJHDZKrefzx4N9wusYtjQKmwrvFfQKw ++o/Y7hpJp8AdlRVlmUt4yOY2euGaSYFTf9XH32Lcv4f58HguBQLe9mr9uYwH +3yMkMc4LClxb1/Q99AoeRC5wRbm8pMDqaU2m0FU8ZN6e4WK/okD8TWHhmxhr +5fVfdC6hgA1jy33ea3jo+dg4872MAj7rbjdfwPjcaJmbUyW2nqqVOYBxutxd +S8caCnTbtFk/DMQD2hvaOFBLAaWdi8q/MO6y8dF2qMPyj/lTsDcID16+jmXf +6ingNCcwFIwxf5zp1mONmE9NwdXVGKe+0Mzob8be1yk2XcB4T9MmGftWLH8d +/mhWMB7ax8gJfW0UUD05ec0UY881fEJ2HRQ4u9jFPIvxWvn54N4uCtR0HA66 +gXEKYi/a9lCA4bMQdx/jXUc/e/X0UaC0wdYhHePPfm9GbQYoUHxIcTgTY4/4 +3GPd3zEf/kpu/P85T0FyxxEOBdbzjrL+f/9Bc8SBryMUwMs6j4RjrD7hV2s9 +jn0fOZ44g/GntW67uyYpEHO/NtsE4xN0ywKraQrYpvoXMTHG79NW6PxJgcqZ +gLA/WH5JdltTDs9SIGhPo9z/+av5y0h0zFNAx9w/7P/6NCYI3bL8i/nEk1L2 +f/2Ov1ziaV+iQMIGp8r/67v6aSzg0CoFvtjOxD7C+O5k5682HBUuWoVq6GKs +su69uwU3FdoDXUuHsPOqZxQOfOalgjaRLRKAsZPWEytzPipY/LPWFsB4yT6m +uZWfCn9GFC3iMB/iAq7oHhSigq9Ig5Y4xu8LbdTMCFQIWOP6kQfz6XzK4Vpe +MSq0xoo+dMF8o0eZW5ZLUEFxcS21AvMx0NnIlylNBdcnbnLmmL8qpnp8vTJU +kLlXmR+D+d2voXUvlkaFuPwdi+8x//cQNMqXWVQQixGsoWD3Y2Jlu3GBIhVU +tGoNdvpi9Rrb2ue2BYtfeyThwAU8LLxR+PdZlQo/D56JP3YODy/PkLUzNakg +zecdK3cWy89W7Is9UOGcMqdixRPzX1/0OEmbCs2Ptn9qPY35s2Fd2FUDKjQt +nih19MD6R9NCg6UFFQxN30rLueLha8msrcBhKmzO9/xb4YKH8LSZyTfWWPzZ +Hd/MnPHACRgV3mxPhap1BT0ODphvil3mXO5UMLvSJEWzwYOp+JehYg8qKFCS +mq5YY+eFbzl32pMKG/Z8zW07jIejX+sSunyoEGJRKu5qgQeJ8OLu3CtU6NpR +x69kjIdbnAQn2zgqOOlXbTDdgwfN1tu/Re5SIa+FX3+rBtbPK26FvL9HBUGT +2VmBnXgwjLuevvURFcIbjiw8V8P81b4wvvY5Fdb7lu2NUcRDQIqld+FrKtD2 +pv9eFseD/ee5pt01VNBHY6YJJDwAT4LC21oq9C2s+isQ8LDmRMdAaz3G75cP +agrh4baylel0G5bvrNQdKjZ/nldZb1YcpYKc1Nhs0Q8cdPfaDj8SkQLa9k2L +t6pwUCm8vI9FlALJFNqlU+U4SIHkB7liUpArluGvU4ID17TeQ5UUKViv7czD +zsfBLw+7t910Kajdkjc5mIYD/iX7FLFdUjDbqanUfwObx2Qnm0hHKXjjflmK +ywwHahSRFgMXKQirMogc24+DzdQq3TVuUsC1XOj4UR8H0tKUrYGnpOAUeu9y +BeEAJ/d5ra+vFDjtq3v0RAkHdRu1XjndlAINekLruAAODu2kiWiUSoHPocdP +nEP/oTNW39+NikgDz1H601e6q2j0AteFe0RpMJIgV7juXkUOCTSmkbg06C/4 +DIpsXUVm7U7Xs6jSUHl6xx0zqVWkYjGk58mUhvbb67df/bWCfpmw637vlob7 +Cuhc+oMVdEFvuH7VVRrO/3rLDp5eRpe3jzeRKqXh4sC+wgchSyg+hfvqS7sN +sHLJ6dq51wtIvjXmZZeADFC5XibmFc6h8lvKsWdzZWCrl/7hxtlfSGz+eegE +UxbokpfD407PoPC1fjxOl2VhVPlsr0zPBLr2ralTtFkW2px8EzvzR9C2pL7J +EIYcaBbfvfO4agh9oW81OxYgB0Ms3Zc67gPo73khPp+PcrB9lDj48VoP+pqZ +ijei0SBCfSLu5YMOtDetxtTGhwa7JJ2uVX74jNyUtyklnqPBs0HHeytln1FM +2VPBjvM0sPJ/SdTP+YyGWsLrD/rRwKibLT4f+xmFr5hoG16mwY+by9VvbT+j +z4d71HeG0WD5ejI3+Wcrcl03Ky1+nwYBzboG12mtKNqTMdlaQwO365Fed/Z+ +QjqDDzoVa2ngYKnwwZ/xCS1YiL8NfkeDSxomm84LfkIOu9Ymbf9AAxur1+wn +3c1IhWdM/14TDXyOONYO+Dajz/eyUx26sO/xLRn0vGpCYu/UbKd/0EA24wHh +PGpE96laDYJkeUjqOrCQdL0encwXvG9CkYePURNMA596tFO/0yOGKg9OguMH +uR3q0RfvU0KkDfIw8S3GL3VXPRJuSDCjysuD7REl/ogfH9A1v4kOhS3yYC6i +YzNq9QG5tMcN6e2Th7j2srNZ6nVoc/TI8jV3eTBaOzXvRnmHQgVLu/tOyoPd +pT9H5vjeof4bESUap+TBsss4PeZPLYoN2XJu1lMe1v1daZ35UovmL/pMuJ2T +h9mHldaHY2rRa5d/X02uysOyY/DBnHW1yFxDolgqXh7c+28n6q55i/w4el4l +b+Th+2LsZj5GNZoIPblttVoeeqd9KwslqpE989Yf7bfycH+rtb0HfzXSdWu/ +/OmdPCiKX385P/0GEcacI4Yb5GFb8Ao7pPwNyp68lkpql4d0/nuaFw+9QQO/ +y9rPjslDjfhcL436GhlyKWsoEOhQ8WwmXky9Ai3nRyadINLh55Ctqr9sBcp1 +HF18RqLDyy9Cf6f4KxCp+nE5U4IO9y+YdvINlKOBqyRNuhQdkBzt7nJEOfJb ++YtkmHRoWeuk0T1UhjIWanXFNOig5vF9h+zjUrR22uYg3okOOt9+KV3VL0Y6 +16uqbJ3pUCW79i1pWzEKkqZtLnKhQ/tRqkaZbDFa3T+2xsONDtPWxx5tWyxC +8xm+FV9O0eHW/nUTnJwiNOwUx8rwpcMB36h6ZckiVNvRtGJykw4L7L4gwYVC +dK0KnieX0IFfkFPj8r0AdfnNL38rpcO/gzffpLYVIBW1bFP5ciy+GV1yqrYA +DTyTmMusxHjc7GXaswIEsVOouIYOnTIHchNPFyCcS3J7ayMdHszTzsQt5aOr +6xZwawfpkHzUSeCJTD66cijPymsdA6bCLnypEsxDjvMexZ/4GeBKIGc4/8pF +OokbJZQEGVDtWHpnQ1cu4u993DEuzIAUw7aTHam5KN45ztKFxICEx/E04z25 +KNv7ooWVDAPrT03q4JWDumO0TTW3MyDv6Wx263gW2tHUqbfOkQEbLso+X5TM +RDZXmrQdnRhgbn/OjpsnE11Sfgulzgw4Mp3rJj2dgWpiczXcXRkg2frSIPRd +BjI+HKpU78EA+0v2RTSfDOTwTVX8xgUGSJXcUQpvfYYift7k8EUxQHsgX+VR +UjrqFdMJ4StmwCma1N9NtmlIcjzS1bCEAWfkbX7o7U9DllVtBhGlDFi22rTV +c3caanZ1FhKsYICTpUDQIDUNVRcHJayvZoBRSr+2TV8qSj9SnSH+kQF8iLoj +yikVeT3Y20T/xgDWGdeigvNP0BrGLvF9a5mwbGexk1mZgpoHwngf8DEBp0/1 +mMtNQfHJHbML65jwpEwvtiUlBdFJ59peCDKhc1Iy5nlICtLizouRJTDh3dBD +7UnjFHR1kC6Ak2ZCx8HHf3a/foQWHojgXqsyQef47KYZykM0IT46tseeCUf7 +Z53FCPdR41x4VeAxJjS+vtmfspyEcr8o3HnvwARXbXFtzZEk5H3bY4+ZMxOG +pfbGZ1QkoQWh6VvOJ5iwTpwwrX8iCa3hnVeL8Mb2t5JDe1hzD8n+5r7SeZ0J +k8nOX02DE5HlJxmCdx4TLqvvmpFTTUAXKv8Gv3jBBGbK+bR+2QSUmNU2N5XP +hEdfPhVlrE9A3WFhXz0KmZBJ6ml0+RGPHGA65XgpE37PjacEZMZj/bBK+chb +Jmxv/SVOpceja3fsDkAnE74wh7b10uJQttX9cOF/TJCxft52WOc2st5yae0J +HAv6jx01HN92G/Fw212vxrNgXG9DaQTjNrLL3RByjocFZwOu2v5acxsJ8z65 +2r2OBVVT7ldsG2LR2YKMC+kkFlx8ZzkdaRGLtgsVuexVZIEOPOiQOhODqmpa +wNOSBT7Be25lxt5EIeXcT18cZsHHUqMsa/+baH+h+rrfViyYNLSSpjjfRF1P +k1t9bbD1eoy6tm030c/wE06Bx1hwzpyYKvs1CtFNcSFx7ixYuSOwmcSIQhE9 +ynVll1nAbZy0jashAlnO3jqwNp0FQ3/3Z5B1w1FNs5bKmWcsOP6i/FOZcjhS +yZwndGZg8WxwlZ6UcCRob9+VnsWCdVlnnwnPhKHaui3OevksuKn/7ffm5DCk +er/RL7SCBYkTV63b/1xHIlr8adxt2HO7iZtuFaHoilTVdY8vLIjzsH6hlRmK +Jue93NvaWYAPF0pXSghFH7K+KqV2sUBo6kLLzrOh6KpYZqlWPwsgQDacxAhF +U6P6nwLHWNCaOfu9NzYEHX27lD82zgJmbJJn1dUQ1PAgL+7gJAv2d3aM5J0O +QenmEjZy0yzoNTnsUWMYguwqhtlvZlmgfnlaNY0LW5+QVLdxngXrE72ecf8M +Rju9TJ7H/GFBirHRfe9vwYjELDrjsMiCeb6ahisVwSgId9L8wxILXr49NkHN +CkYz3dLbVVZYIHzyoOWHe8HI/lWrROIqCwwT1ZaCw4NRY3To4r9/WPybuZ9M +fIPRf8ovxVY= + "]]}, "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, 12}, {0., 0.9638187117108397}}, + 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.9920803490651245`*^9, {3.9920804014704876`*^9, + 3.9920804940513287`*^9}, {3.992080561403221*^9, 3.9920805888822956`*^9}, { + 3.992080637533407*^9, 3.992080698215103*^9}, {3.9920807351242085`*^9, + 3.992080770168829*^9}, {3.9920808001811714`*^9, 3.992080865755041*^9}}, + CellLabel-> + "Out[123]=",ExpressionUUID->"26985b49-ec40-5d4c-88c7-142b869bc2af"] +}, 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", ",", "11"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.99196423637006*^9, 3.9919651876297417`*^9, + 3.9920809092638626`*^9}, + CellLabel-> + "In[125]:=",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:eJwV1mk4VmsXB3BzyElFZObZe6PhCCGi1sqUQhnKnAyFcMxzERlSkukRCvUk +kSizUieKE6FOoemUKWPmihLRu99P+/p9uPde9/1f97q2nIuvxXEONja21exs +bP9/qvlFcLOxSWLA3ve80/en4Ab7j7w97JJoom++t+reFAhnBGrEckiif2DA +cGjdFHyr8Xbn4ZbEi31M+F09BZVLjs8E+CVR4DvTlad8CpTP6iWLCUtijp3E +1u+FU7AlX2DDdkVJVC1UaLVNmwJGRz7pZiaJ65pmNOTcpqCdPzI+pUgSlz3T +TAtXJuGn4NDOrwuS6Jbpcr87dRKEhi/ufmgkhXcU+o8liE7CWO632H1XpfCy +0gXUiJ0AXYkBqbWzUnjqBf+hptFxsD6V+DNnrzRalYrmWW4ZB9uyQCIpTxp7 +ib98+x0+Q/+NUVbNlDSyLN0NjBLHgHF6g0uBvgx+uXWuzT5pFD7LdIS0Zcqg +BN8VbvnzI5Cb+vS9zbAMHkleMbobMQzcAbvgtZQsLkiacNTBEKysfHggbiiL +KmbwPZx3EA5HWr9/7C+Lz1/KP5IsGoDrg3N5ubmyuHn654330A8qZW8EmM2y +2NxetPdhVw9Ie2RKTs3Ioktdl/fc2H9gmpD9xmWjHH4aD2c5qr+D/zLDVHbq +y6Hi5HzmSdvXcCQ5YruBrxzOvOoS+1jUCYyxxj7vLDncMS561G3vSzBQG9r6 +/YkcPukWKBxqaoeSQWMyd0IOs0C8OKO0BXhOvn4SLMTA+UsGMyUCzdDAqcNR +sZuBz0J5CnpSGuHBzMgErzsDBz++4Uj1fwDCz31CnqQzEE9EK7EUamFTkPoW +nwwG5otnd2YK18JuiV99YkwGRlfm+GWx18KJE+f2+WcyUOFaVOLjDzXwiPuG +pGw2A6UXx2+Vp9aAx+73TyLzGPj87sG677+q4eFdPUGtYgb6pYbZsPdVgWv6 +xuK7fzPQMtD0AltrBfAYJ/578BG9XvPqOdn7FVDMufB9hvZ1A5vH+0sqYDLo +rYFyIwOn/15+8feFCgixvjRY/oSB7svFE1IWFZAoKSxT2cLA9o7xE096y6H0 +puCl6lcM3HLosvmvlbswX88Td3+Yge8EQZP5oBQcRn+quI8w0OUOn1TGtVJo +FprqEx5lIIesfFhRfCkwvbu0/cYY+OdNVde1ZqWgKn3tm/wEAw+aOT0bGL4N +fjFarsxZBq7Zon0vbMNtmNzrreu7xEAZvSNs8nG3YKj7FRu1jsA3LC72udyb +8H69j1wLbeW3AopeiTfhhRm/7on1BMop8UV+DbwJdR26sWVCBGouWiapGN+E +881V3BoiBMr/x1L1WywE5epM/r0SBFovkSdH7QshMsNW+ARFYFGtd+mpzTdA +xGJAoUyLQI/MRhOdORaUiIqLmuwk8FvlJbO2QRZAjwXPBO29xx+XHO9igYdH +85CiDoFr1A9icyULHkQVsW7sJvCxgjOXbAALnG7/JZGrR+CMqEX2/m/XoIRr +cU2SKb3eNs7cdeUq7K5b/93DmcDdNQ1PFkNyIXv2hdcGFwKb0a1y0TYXvm5K +GnhM20g1e9eGXblwM5fzufgxAqM1vr/J4cwFwTNzBR1uBIZv//dzb9oV6Dd5 +Y67sTeB8/oDJ3qrLEPMpp+xHCIG8MfWlvHw50PyH3PGECwTu7y69pfArE27b +JJgqJBO43lXtYcNIJqQXTKi30h7Tme31fJUJTlq1PPwpBF5MOSuxeDMTlo8Z +FyenEbgx3Lp/0SITNB4GTzAvEYjtgpvC7zCh2LPNv+AagS997Gp4AjMgpWab +nT6LQNMhq8jhoxkQwpapO0z78DfLrNcmGaB/6aiQQgGdj7hv0mf5DBh4PFdd +Ukgg61Pur94P6SAuJrNQUUJgqLmn45xROlxoCYxqrCYwHvJP/bUtDTQTHKZ8 +aui858PCpiXTYFjfwEGqlq7fomIwhj8Ndj8R2RlRR6DxmGFr33AqfHl4f357 +PYHnMEUgJC8VrCp/exc1EGjPWlu3IpgKMnlJ9hfb6O9fsi5Q5LoIHfZBbTrt +BHbHX1s6N5gMYeJHtCZo3+XrsRVoSobOLCVRo+f0eTPtKgPPJENc+qtO9pcE +Xj03nv+MIxnGzoruD35N18t6yxnOdwEqAwo0HfoJ7GAu/JRWOg+Tuuriv2k3 +6fkYHhQ6D5RQyxJrgEC+0Pr9OQvnILtq/NHoJwKHxUcZEU3n4PScikHgMIEq +cnvKvO3OgUlIo/n5cQIXvR7v4EhOhJHwHs97cwSKFNan2XGdBdn9vib28wSm +SMtaZU8mgK04u9IK7TKPRqWp7gToqCe/6P2g6w/g7vhQmABVS16h//4kkOMz +X3ybUQJERy7GjqwQWLlYm/4xPR7EY0TzhPlI/HfYb7XxjjiYe2dgWk27fDb+ +8h1GHDxXDlq25CdRDbR45NfEQXT/yyMZq0k0z+JUMhuOhRE4L71+DYl+two+ +pDBjoXLl11VBIRK9PPselH0/A/tOfbrOL0Xi78DGqOnWGGB0r7Usod1was9I +aW0M/NoCnPulSRx9pyISeSMG7ny44npOhsQpxqpUi+gYENY+TPIySOx5WKL6 +UjMG+n+2FHIrkBgu1ZTBWxYNYaFlxWwqJCpf7TXn0T8NonpH+8poaxhOV6/I +nobaNetE7FVJvGHlEy65EgVzhUGxNdtJXDv4PqPlXhT4dWs7emqQ2Mz5du27 +bVHgrtIm1K1NonZRU8ETMhKsJkaiigxJTByzIFoVT8J8bXbNob0kLnHxdSjw +nwTmmf2T7EYkGv4uDiueiIBOsTu2DvtI5Ou4YytwNwIOGAWrrTMhMf26WaHd +jggwKOQcjzAnUbhRXXjeNBzUjsoePuBAor2gYo5+eig46ZxcmaHtyz5w8UB4 +KFwQe1OUdoTe35xTn79TKAx1JS12O5Kor5KvzLUtFJhGP67aO5OIc+0/Dj0P +gTmVF+MebiTaHFIPS18TAlVcp6Jj/ej9ptrjx+tB0DvwZhPlT2Lnh8SwoQtB +wN+g0vWUdtMBQpkzNAhcwkcp/kASFS5ub4k1DoL10xbtqcEkuua+006ZD4SA +t5tE8iPoeuplqh+aBoJqydvb9+JIbL/vqT3wRwCQSzUf3ONJnOAW2zi34A8b +TJirRRNIHGn4YCc95A8LU2ZewWdJdLzKUX6v3h8eqbRtVj1PYuhs+QT7CX/Y +d//hrdspJMKod9KrZ37g1Moqyr9M4gpTx+7MDl+wEIt+a3qFxK8++UGUkC/o +eTquWqZdVq6U+GXaB+QFJNzt80i0u8ExyVnkA5MHmfIbr5H49p93owJiPhD6 +NqEwrZDEk6GcBue5/oKLI14FceUkLnxvKhVc8ASZhhGWcgWd/yihI/TeE8qz +nK99pC1o/Ntcq94Tuoys89SqSOz/9Dpq8pQnbLytmzVUQ2JQ3tmhcU5PuO4r +lqT/gESlgPwUxY0noG7haQDXUxKXWyznqmzcwejVHv9y2rIpq7ibd7nDf7ce ++jq00Hmo+xl/ZbjDL7tK7+pWEodusi0UT7mB7t95bsfaSRTlPmN6Ms4NOmKC +7Jpf0ufXK7Aru+449PMzdOM+kPiPTC7jo+oxWJkzqCI/knhW6QEPr9QxkOw7 +Qf5DO7pSYnj/qmNgW1XBw9NLYprkzPYNH12h035P+9l+ElczmzLvJ7jCP6VO +h5KGSdxeNpLyZ78LlBy46pY+QyLT+EufQoEztGo2vVWdJTEmJ/reqlRnGGWM +GnXR/hjJ+WLplDOQP5S2CH8lked96hFZa2fIu/poJnOOngdnOzptBJwhdbYn +LOcnib84QoODI5wgOF0y6RonhXOGI0vFzxzBZrbpzAEuCi2rpjttCx1B54BX +xC/ajm/C4tViHIGLv/6EDQ+FgtqCTW5ajsCMsTZay0ehNP8r5v3bR6DSL507 +eg2FW04Ud89mOcD0Ad7oo2IUXn5nHeKfbAedpXdD/xCn0Kv/PbnKxw5q+a19 +H9CGHnvNxwfsIPJpoaOoJIU5Vc4TrLV2ILBbb9e/0hT+OPp1w7pLtrD5z6jF +3SSFuQKTpbFFNuC+ei5Iehtd73a58duDVvAuQr+vkbbKuWLiYJsVGI0z97kq +U9hKVk/+UWEFm5+pSxerUDgwoXu/J8oKphNCW1TUKHx7llOkScIKgjiWxAy0 +KOwZO8p/we4wnPnJ3uClR6HxH8YcVhOW8M3DYtMafQqzGr/wqb+2hGPvrmeU +0z746Lf61gZLMKjT85g3oFD9MVumS4Yl8AbHrzttRKE+8BZP6lhCyizvsXRT +CrksE/c4MS0gd1SQ7741hf/MrneQOGQOZb2/9tjYUMi22UZReY85PHr9OeIH +7WepP/Rslcyhr6lpUt2Owkq748JjvObAuBb6stKBQlmBuI75R2ZQZNOXVepM +4emx7oAGJTOofHZH/poXhefjAxSXNQ/Ak8YrR8GbQqYmu8+E6AHoqkvM7qVt +fD3RYvm7KT2fXfilfCiUOt7rklRjCjvOiEzn+NHv9/FNM1EzhYc7o2oygikk +Wpvl9TRNoOW2qf7Z0xTGsmrv8truh3yRR5xq0RSyeNoMKrX2Q1CMUlM/7S39 +B7KixfeDrLWg7s4zFOabnWo+/3EfhHG8gqk4uv+eqt0zc9kHm2wPaVuep/P+ ++6bc6SAjSOKxV5XJpFBhTQiPWaUhuPi3f2mnfXzthjHdLEPQ/KhdEXaJwiZW +Y/bhU4YwVCGp3JlF4Zf+/u73hoagc6T3z/jLFG6oYTXa9hjAVJXzpomrFA5H +5G/duNYADjp7yNaV0P1SN3gxL0kPKntiLGxuU+g282bt62A9ELG7EveTtmRK +yAXSSQ8+WrwY0y6jUJVhyrdaXQ889NUqGu9SWGu72/hbny6cUWDTbaum+z15 +5I34Tl2onspy7XlEoY4lM0f8N4KoZ0VmVAPdH5GOm+QmESJG2lpkGin6f0no +ls57hD19y1tcHlO41SpNqrIK4cVL17mRJgqzy82PM0/QY7lqW/xsK4URQpfl +DCsBxCNabnJ20fkV/FQoTN4F5u5y2XW0N2WpuzV77ILEQyfPeXVTWF6+bfM6 +/V3wQ2mbd9drCm1ZF91Ul3Sge/CSSsE7Cn9LJdQke+lAsqnbQ91e+j7ssS8I +O6QNbHLcnTGfKUw9KKpfbaAFO9YcbVIfp3Cm59qslLwW+Czdq/5M+++yzKo7 +PFrQ89o7y3ySvs/3/B7pt2pC/fluB7kZCsMb1jXuMtWEwLmC0cY5CiVabo/v +dNwBJQPL74LmKZx+KkCy7dkBn15Ytyl+p3DPhvqMz8QOMLu1uiz1B4WbLWyP +K45rwFbHwACnRQpvvWjmNQ/TAFfj567CSxTaoNLm7Q4acFlT4XAr7fGrXyhN +1AA+oQ87lJcp9Et35ijh1QBkU980RFugM+KiyJQ6hE1dFM9eofDO4FPjwlfq +cPe/sdUmvylcWBOx1qpWHUZadJd/055LX6xUvKIO/wNZuXLl + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1mk4VmsXB3BzyElFZObZe6PhCCGi1sqUQhnKnAyFcMxzERlSkukRCvUk +kSizUieKE6FOoemUKWPmihLRu99P+/p9uPde9/1f97q2nIuvxXEONja21exs +bP9/qvlFcLOxSWLA3ve80/en4Ab7j7w97JJoom++t+reFAhnBGrEckiif2DA +cGjdFHyr8Xbn4ZbEi31M+F09BZVLjs8E+CVR4DvTlad8CpTP6iWLCUtijp3E +1u+FU7AlX2DDdkVJVC1UaLVNmwJGRz7pZiaJ65pmNOTcpqCdPzI+pUgSlz3T +TAtXJuGn4NDOrwuS6Jbpcr87dRKEhi/ufmgkhXcU+o8liE7CWO632H1XpfCy +0gXUiJ0AXYkBqbWzUnjqBf+hptFxsD6V+DNnrzRalYrmWW4ZB9uyQCIpTxp7 +ib98+x0+Q/+NUVbNlDSyLN0NjBLHgHF6g0uBvgx+uXWuzT5pFD7LdIS0Zcqg +BN8VbvnzI5Cb+vS9zbAMHkleMbobMQzcAbvgtZQsLkiacNTBEKysfHggbiiL +KmbwPZx3EA5HWr9/7C+Lz1/KP5IsGoDrg3N5ubmyuHn654330A8qZW8EmM2y +2NxetPdhVw9Ie2RKTs3Ioktdl/fc2H9gmpD9xmWjHH4aD2c5qr+D/zLDVHbq +y6Hi5HzmSdvXcCQ5YruBrxzOvOoS+1jUCYyxxj7vLDncMS561G3vSzBQG9r6 +/YkcPukWKBxqaoeSQWMyd0IOs0C8OKO0BXhOvn4SLMTA+UsGMyUCzdDAqcNR +sZuBz0J5CnpSGuHBzMgErzsDBz++4Uj1fwDCz31CnqQzEE9EK7EUamFTkPoW +nwwG5otnd2YK18JuiV99YkwGRlfm+GWx18KJE+f2+WcyUOFaVOLjDzXwiPuG +pGw2A6UXx2+Vp9aAx+73TyLzGPj87sG677+q4eFdPUGtYgb6pYbZsPdVgWv6 +xuK7fzPQMtD0AltrBfAYJ/578BG9XvPqOdn7FVDMufB9hvZ1A5vH+0sqYDLo +rYFyIwOn/15+8feFCgixvjRY/oSB7svFE1IWFZAoKSxT2cLA9o7xE096y6H0 +puCl6lcM3HLosvmvlbswX88Td3+Yge8EQZP5oBQcRn+quI8w0OUOn1TGtVJo +FprqEx5lIIesfFhRfCkwvbu0/cYY+OdNVde1ZqWgKn3tm/wEAw+aOT0bGL4N +fjFarsxZBq7Zon0vbMNtmNzrreu7xEAZvSNs8nG3YKj7FRu1jsA3LC72udyb +8H69j1wLbeW3AopeiTfhhRm/7on1BMop8UV+DbwJdR26sWVCBGouWiapGN+E +881V3BoiBMr/x1L1WywE5epM/r0SBFovkSdH7QshMsNW+ARFYFGtd+mpzTdA +xGJAoUyLQI/MRhOdORaUiIqLmuwk8FvlJbO2QRZAjwXPBO29xx+XHO9igYdH +85CiDoFr1A9icyULHkQVsW7sJvCxgjOXbAALnG7/JZGrR+CMqEX2/m/XoIRr +cU2SKb3eNs7cdeUq7K5b/93DmcDdNQ1PFkNyIXv2hdcGFwKb0a1y0TYXvm5K +GnhM20g1e9eGXblwM5fzufgxAqM1vr/J4cwFwTNzBR1uBIZv//dzb9oV6Dd5 +Y67sTeB8/oDJ3qrLEPMpp+xHCIG8MfWlvHw50PyH3PGECwTu7y69pfArE27b +JJgqJBO43lXtYcNIJqQXTKi30h7Tme31fJUJTlq1PPwpBF5MOSuxeDMTlo8Z +FyenEbgx3Lp/0SITNB4GTzAvEYjtgpvC7zCh2LPNv+AagS997Gp4AjMgpWab +nT6LQNMhq8jhoxkQwpapO0z78DfLrNcmGaB/6aiQQgGdj7hv0mf5DBh4PFdd +Ukgg61Pur94P6SAuJrNQUUJgqLmn45xROlxoCYxqrCYwHvJP/bUtDTQTHKZ8 +aui858PCpiXTYFjfwEGqlq7fomIwhj8Ndj8R2RlRR6DxmGFr33AqfHl4f357 +PYHnMEUgJC8VrCp/exc1EGjPWlu3IpgKMnlJ9hfb6O9fsi5Q5LoIHfZBbTrt +BHbHX1s6N5gMYeJHtCZo3+XrsRVoSobOLCVRo+f0eTPtKgPPJENc+qtO9pcE +Xj03nv+MIxnGzoruD35N18t6yxnOdwEqAwo0HfoJ7GAu/JRWOg+Tuuriv2k3 +6fkYHhQ6D5RQyxJrgEC+0Pr9OQvnILtq/NHoJwKHxUcZEU3n4PScikHgMIEq +cnvKvO3OgUlIo/n5cQIXvR7v4EhOhJHwHs97cwSKFNan2XGdBdn9vib28wSm +SMtaZU8mgK04u9IK7TKPRqWp7gToqCe/6P2g6w/g7vhQmABVS16h//4kkOMz +X3ybUQJERy7GjqwQWLlYm/4xPR7EY0TzhPlI/HfYb7XxjjiYe2dgWk27fDb+ +8h1GHDxXDlq25CdRDbR45NfEQXT/yyMZq0k0z+JUMhuOhRE4L71+DYl+two+ +pDBjoXLl11VBIRK9PPselH0/A/tOfbrOL0Xi78DGqOnWGGB0r7Usod1was9I +aW0M/NoCnPulSRx9pyISeSMG7ny44npOhsQpxqpUi+gYENY+TPIySOx5WKL6 +UjMG+n+2FHIrkBgu1ZTBWxYNYaFlxWwqJCpf7TXn0T8NonpH+8poaxhOV6/I +nobaNetE7FVJvGHlEy65EgVzhUGxNdtJXDv4PqPlXhT4dWs7emqQ2Mz5du27 +bVHgrtIm1K1NonZRU8ETMhKsJkaiigxJTByzIFoVT8J8bXbNob0kLnHxdSjw +nwTmmf2T7EYkGv4uDiueiIBOsTu2DvtI5Ou4YytwNwIOGAWrrTMhMf26WaHd +jggwKOQcjzAnUbhRXXjeNBzUjsoePuBAor2gYo5+eig46ZxcmaHtyz5w8UB4 +KFwQe1OUdoTe35xTn79TKAx1JS12O5Kor5KvzLUtFJhGP67aO5OIc+0/Dj0P +gTmVF+MebiTaHFIPS18TAlVcp6Jj/ej9ptrjx+tB0DvwZhPlT2Lnh8SwoQtB +wN+g0vWUdtMBQpkzNAhcwkcp/kASFS5ub4k1DoL10xbtqcEkuua+006ZD4SA +t5tE8iPoeuplqh+aBoJqydvb9+JIbL/vqT3wRwCQSzUf3ONJnOAW2zi34A8b +TJirRRNIHGn4YCc95A8LU2ZewWdJdLzKUX6v3h8eqbRtVj1PYuhs+QT7CX/Y +d//hrdspJMKod9KrZ37g1Moqyr9M4gpTx+7MDl+wEIt+a3qFxK8++UGUkC/o +eTquWqZdVq6U+GXaB+QFJNzt80i0u8ExyVnkA5MHmfIbr5H49p93owJiPhD6 +NqEwrZDEk6GcBue5/oKLI14FceUkLnxvKhVc8ASZhhGWcgWd/yihI/TeE8qz +nK99pC1o/Ntcq94Tuoys89SqSOz/9Dpq8pQnbLytmzVUQ2JQ3tmhcU5PuO4r +lqT/gESlgPwUxY0noG7haQDXUxKXWyznqmzcwejVHv9y2rIpq7ibd7nDf7ce ++jq00Hmo+xl/ZbjDL7tK7+pWEodusi0UT7mB7t95bsfaSRTlPmN6Ms4NOmKC +7Jpf0ufXK7Aru+449PMzdOM+kPiPTC7jo+oxWJkzqCI/knhW6QEPr9QxkOw7 +Qf5DO7pSYnj/qmNgW1XBw9NLYprkzPYNH12h035P+9l+ElczmzLvJ7jCP6VO +h5KGSdxeNpLyZ78LlBy46pY+QyLT+EufQoEztGo2vVWdJTEmJ/reqlRnGGWM +GnXR/hjJ+WLplDOQP5S2CH8lked96hFZa2fIu/poJnOOngdnOzptBJwhdbYn +LOcnib84QoODI5wgOF0y6RonhXOGI0vFzxzBZrbpzAEuCi2rpjttCx1B54BX +xC/ajm/C4tViHIGLv/6EDQ+FgtqCTW5ajsCMsTZay0ehNP8r5v3bR6DSL507 +eg2FW04Ud89mOcD0Ad7oo2IUXn5nHeKfbAedpXdD/xCn0Kv/PbnKxw5q+a19 +H9CGHnvNxwfsIPJpoaOoJIU5Vc4TrLV2ILBbb9e/0hT+OPp1w7pLtrD5z6jF +3SSFuQKTpbFFNuC+ei5Iehtd73a58duDVvAuQr+vkbbKuWLiYJsVGI0z97kq +U9hKVk/+UWEFm5+pSxerUDgwoXu/J8oKphNCW1TUKHx7llOkScIKgjiWxAy0 +KOwZO8p/we4wnPnJ3uClR6HxH8YcVhOW8M3DYtMafQqzGr/wqb+2hGPvrmeU +0z746Lf61gZLMKjT85g3oFD9MVumS4Yl8AbHrzttRKE+8BZP6lhCyizvsXRT +CrksE/c4MS0gd1SQ7741hf/MrneQOGQOZb2/9tjYUMi22UZReY85PHr9OeIH +7WepP/Rslcyhr6lpUt2Owkq748JjvObAuBb6stKBQlmBuI75R2ZQZNOXVepM +4emx7oAGJTOofHZH/poXhefjAxSXNQ/Ak8YrR8GbQqYmu8+E6AHoqkvM7qVt +fD3RYvm7KT2fXfilfCiUOt7rklRjCjvOiEzn+NHv9/FNM1EzhYc7o2oygikk +Wpvl9TRNoOW2qf7Z0xTGsmrv8truh3yRR5xq0RSyeNoMKrX2Q1CMUlM/7S39 +B7KixfeDrLWg7s4zFOabnWo+/3EfhHG8gqk4uv+eqt0zc9kHm2wPaVuep/P+ ++6bc6SAjSOKxV5XJpFBhTQiPWaUhuPi3f2mnfXzthjHdLEPQ/KhdEXaJwiZW +Y/bhU4YwVCGp3JlF4Zf+/u73hoagc6T3z/jLFG6oYTXa9hjAVJXzpomrFA5H +5G/duNYADjp7yNaV0P1SN3gxL0kPKntiLGxuU+g282bt62A9ELG7EveTtmRK +yAXSSQ8+WrwY0y6jUJVhyrdaXQ889NUqGu9SWGu72/hbny6cUWDTbaum+z15 +5I34Tl2onspy7XlEoY4lM0f8N4KoZ0VmVAPdH5GOm+QmESJG2lpkGin6f0no +ls57hD19y1tcHlO41SpNqrIK4cVL17mRJgqzy82PM0/QY7lqW/xsK4URQpfl +DCsBxCNabnJ20fkV/FQoTN4F5u5y2XW0N2WpuzV77ILEQyfPeXVTWF6+bfM6 +/V3wQ2mbd9drCm1ZF91Ul3Sge/CSSsE7Cn9LJdQke+lAsqnbQ91e+j7ssS8I +O6QNbHLcnTGfKUw9KKpfbaAFO9YcbVIfp3Cm59qslLwW+Czdq/5M+++yzKo7 +PFrQ89o7y3ySvs/3/B7pt2pC/fluB7kZCsMb1jXuMtWEwLmC0cY5CiVabo/v +dNwBJQPL74LmKZx+KkCy7dkBn15Ytyl+p3DPhvqMz8QOMLu1uiz1B4WbLWyP +K45rwFbHwACnRQpvvWjmNQ/TAFfj567CSxTaoNLm7Q4acFlT4XAr7fGrXyhN +1AA+oQ87lJcp9Et35ijh1QBkU980RFugM+KiyJQ6hE1dFM9eofDO4FPjwlfq +cPe/sdUmvylcWBOx1qpWHUZadJd/055LX6xUvKIO/wNZuXLl + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 11}, {0., 0.9289465115382269}}, + "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" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 11}, {0., 0.9289465115382269}}, + "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" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1mk4VmsXB3BzyElFZObZe6PhCCGi1sqUQhnKnAyFcMxzERlSkukRCvUk +kSizUieKE6FOoemUKWPmihLRu99P+/p9uPde9/1f97q2nIuvxXEONja21exs +bP9/qvlFcLOxSWLA3ve80/en4Ab7j7w97JJoom++t+reFAhnBGrEckiif2DA +cGjdFHyr8Xbn4ZbEi31M+F09BZVLjs8E+CVR4DvTlad8CpTP6iWLCUtijp3E +1u+FU7AlX2DDdkVJVC1UaLVNmwJGRz7pZiaJ65pmNOTcpqCdPzI+pUgSlz3T +TAtXJuGn4NDOrwuS6Jbpcr87dRKEhi/ufmgkhXcU+o8liE7CWO632H1XpfCy +0gXUiJ0AXYkBqbWzUnjqBf+hptFxsD6V+DNnrzRalYrmWW4ZB9uyQCIpTxp7 +ib98+x0+Q/+NUVbNlDSyLN0NjBLHgHF6g0uBvgx+uXWuzT5pFD7LdIS0Zcqg +BN8VbvnzI5Cb+vS9zbAMHkleMbobMQzcAbvgtZQsLkiacNTBEKysfHggbiiL +KmbwPZx3EA5HWr9/7C+Lz1/KP5IsGoDrg3N5ubmyuHn654330A8qZW8EmM2y +2NxetPdhVw9Ie2RKTs3Ioktdl/fc2H9gmpD9xmWjHH4aD2c5qr+D/zLDVHbq +y6Hi5HzmSdvXcCQ5YruBrxzOvOoS+1jUCYyxxj7vLDncMS561G3vSzBQG9r6 +/YkcPukWKBxqaoeSQWMyd0IOs0C8OKO0BXhOvn4SLMTA+UsGMyUCzdDAqcNR +sZuBz0J5CnpSGuHBzMgErzsDBz++4Uj1fwDCz31CnqQzEE9EK7EUamFTkPoW +nwwG5otnd2YK18JuiV99YkwGRlfm+GWx18KJE+f2+WcyUOFaVOLjDzXwiPuG +pGw2A6UXx2+Vp9aAx+73TyLzGPj87sG677+q4eFdPUGtYgb6pYbZsPdVgWv6 +xuK7fzPQMtD0AltrBfAYJ/578BG9XvPqOdn7FVDMufB9hvZ1A5vH+0sqYDLo +rYFyIwOn/15+8feFCgixvjRY/oSB7svFE1IWFZAoKSxT2cLA9o7xE096y6H0 +puCl6lcM3HLosvmvlbswX88Td3+Yge8EQZP5oBQcRn+quI8w0OUOn1TGtVJo +FprqEx5lIIesfFhRfCkwvbu0/cYY+OdNVde1ZqWgKn3tm/wEAw+aOT0bGL4N +fjFarsxZBq7Zon0vbMNtmNzrreu7xEAZvSNs8nG3YKj7FRu1jsA3LC72udyb +8H69j1wLbeW3AopeiTfhhRm/7on1BMop8UV+DbwJdR26sWVCBGouWiapGN+E +881V3BoiBMr/x1L1WywE5epM/r0SBFovkSdH7QshMsNW+ARFYFGtd+mpzTdA +xGJAoUyLQI/MRhOdORaUiIqLmuwk8FvlJbO2QRZAjwXPBO29xx+XHO9igYdH +85CiDoFr1A9icyULHkQVsW7sJvCxgjOXbAALnG7/JZGrR+CMqEX2/m/XoIRr +cU2SKb3eNs7cdeUq7K5b/93DmcDdNQ1PFkNyIXv2hdcGFwKb0a1y0TYXvm5K +GnhM20g1e9eGXblwM5fzufgxAqM1vr/J4cwFwTNzBR1uBIZv//dzb9oV6Dd5 +Y67sTeB8/oDJ3qrLEPMpp+xHCIG8MfWlvHw50PyH3PGECwTu7y69pfArE27b +JJgqJBO43lXtYcNIJqQXTKi30h7Tme31fJUJTlq1PPwpBF5MOSuxeDMTlo8Z +FyenEbgx3Lp/0SITNB4GTzAvEYjtgpvC7zCh2LPNv+AagS997Gp4AjMgpWab +nT6LQNMhq8jhoxkQwpapO0z78DfLrNcmGaB/6aiQQgGdj7hv0mf5DBh4PFdd +Ukgg61Pur94P6SAuJrNQUUJgqLmn45xROlxoCYxqrCYwHvJP/bUtDTQTHKZ8 +aui858PCpiXTYFjfwEGqlq7fomIwhj8Ndj8R2RlRR6DxmGFr33AqfHl4f357 +PYHnMEUgJC8VrCp/exc1EGjPWlu3IpgKMnlJ9hfb6O9fsi5Q5LoIHfZBbTrt +BHbHX1s6N5gMYeJHtCZo3+XrsRVoSobOLCVRo+f0eTPtKgPPJENc+qtO9pcE +Xj03nv+MIxnGzoruD35N18t6yxnOdwEqAwo0HfoJ7GAu/JRWOg+Tuuriv2k3 +6fkYHhQ6D5RQyxJrgEC+0Pr9OQvnILtq/NHoJwKHxUcZEU3n4PScikHgMIEq +cnvKvO3OgUlIo/n5cQIXvR7v4EhOhJHwHs97cwSKFNan2XGdBdn9vib28wSm +SMtaZU8mgK04u9IK7TKPRqWp7gToqCe/6P2g6w/g7vhQmABVS16h//4kkOMz +X3ybUQJERy7GjqwQWLlYm/4xPR7EY0TzhPlI/HfYb7XxjjiYe2dgWk27fDb+ +8h1GHDxXDlq25CdRDbR45NfEQXT/yyMZq0k0z+JUMhuOhRE4L71+DYl+two+ +pDBjoXLl11VBIRK9PPselH0/A/tOfbrOL0Xi78DGqOnWGGB0r7Usod1was9I +aW0M/NoCnPulSRx9pyISeSMG7ny44npOhsQpxqpUi+gYENY+TPIySOx5WKL6 +UjMG+n+2FHIrkBgu1ZTBWxYNYaFlxWwqJCpf7TXn0T8NonpH+8poaxhOV6/I +nobaNetE7FVJvGHlEy65EgVzhUGxNdtJXDv4PqPlXhT4dWs7emqQ2Mz5du27 +bVHgrtIm1K1NonZRU8ETMhKsJkaiigxJTByzIFoVT8J8bXbNob0kLnHxdSjw +nwTmmf2T7EYkGv4uDiueiIBOsTu2DvtI5Ou4YytwNwIOGAWrrTMhMf26WaHd +jggwKOQcjzAnUbhRXXjeNBzUjsoePuBAor2gYo5+eig46ZxcmaHtyz5w8UB4 +KFwQe1OUdoTe35xTn79TKAx1JS12O5Kor5KvzLUtFJhGP67aO5OIc+0/Dj0P +gTmVF+MebiTaHFIPS18TAlVcp6Jj/ej9ptrjx+tB0DvwZhPlT2Lnh8SwoQtB +wN+g0vWUdtMBQpkzNAhcwkcp/kASFS5ub4k1DoL10xbtqcEkuua+006ZD4SA +t5tE8iPoeuplqh+aBoJqydvb9+JIbL/vqT3wRwCQSzUf3ONJnOAW2zi34A8b +TJirRRNIHGn4YCc95A8LU2ZewWdJdLzKUX6v3h8eqbRtVj1PYuhs+QT7CX/Y +d//hrdspJMKod9KrZ37g1Moqyr9M4gpTx+7MDl+wEIt+a3qFxK8++UGUkC/o +eTquWqZdVq6U+GXaB+QFJNzt80i0u8ExyVnkA5MHmfIbr5H49p93owJiPhD6 +NqEwrZDEk6GcBue5/oKLI14FceUkLnxvKhVc8ASZhhGWcgWd/yihI/TeE8qz +nK99pC1o/Ntcq94Tuoys89SqSOz/9Dpq8pQnbLytmzVUQ2JQ3tmhcU5PuO4r +lqT/gESlgPwUxY0noG7haQDXUxKXWyznqmzcwejVHv9y2rIpq7ibd7nDf7ce ++jq00Hmo+xl/ZbjDL7tK7+pWEodusi0UT7mB7t95bsfaSRTlPmN6Ms4NOmKC +7Jpf0ufXK7Aru+449PMzdOM+kPiPTC7jo+oxWJkzqCI/knhW6QEPr9QxkOw7 +Qf5DO7pSYnj/qmNgW1XBw9NLYprkzPYNH12h035P+9l+ElczmzLvJ7jCP6VO +h5KGSdxeNpLyZ78LlBy46pY+QyLT+EufQoEztGo2vVWdJTEmJ/reqlRnGGWM +GnXR/hjJ+WLplDOQP5S2CH8lked96hFZa2fIu/poJnOOngdnOzptBJwhdbYn +LOcnib84QoODI5wgOF0y6RonhXOGI0vFzxzBZrbpzAEuCi2rpjttCx1B54BX +xC/ajm/C4tViHIGLv/6EDQ+FgtqCTW5ajsCMsTZay0ehNP8r5v3bR6DSL507 +eg2FW04Ud89mOcD0Ad7oo2IUXn5nHeKfbAedpXdD/xCn0Kv/PbnKxw5q+a19 +H9CGHnvNxwfsIPJpoaOoJIU5Vc4TrLV2ILBbb9e/0hT+OPp1w7pLtrD5z6jF +3SSFuQKTpbFFNuC+ei5Iehtd73a58duDVvAuQr+vkbbKuWLiYJsVGI0z97kq +U9hKVk/+UWEFm5+pSxerUDgwoXu/J8oKphNCW1TUKHx7llOkScIKgjiWxAy0 +KOwZO8p/we4wnPnJ3uClR6HxH8YcVhOW8M3DYtMafQqzGr/wqb+2hGPvrmeU +0z746Lf61gZLMKjT85g3oFD9MVumS4Yl8AbHrzttRKE+8BZP6lhCyizvsXRT +CrksE/c4MS0gd1SQ7741hf/MrneQOGQOZb2/9tjYUMi22UZReY85PHr9OeIH +7WepP/Rslcyhr6lpUt2Owkq748JjvObAuBb6stKBQlmBuI75R2ZQZNOXVepM +4emx7oAGJTOofHZH/poXhefjAxSXNQ/Ak8YrR8GbQqYmu8+E6AHoqkvM7qVt +fD3RYvm7KT2fXfilfCiUOt7rklRjCjvOiEzn+NHv9/FNM1EzhYc7o2oygikk +Wpvl9TRNoOW2qf7Z0xTGsmrv8truh3yRR5xq0RSyeNoMKrX2Q1CMUlM/7S39 +B7KixfeDrLWg7s4zFOabnWo+/3EfhHG8gqk4uv+eqt0zc9kHm2wPaVuep/P+ ++6bc6SAjSOKxV5XJpFBhTQiPWaUhuPi3f2mnfXzthjHdLEPQ/KhdEXaJwiZW +Y/bhU4YwVCGp3JlF4Zf+/u73hoagc6T3z/jLFG6oYTXa9hjAVJXzpomrFA5H +5G/duNYADjp7yNaV0P1SN3gxL0kPKntiLGxuU+g282bt62A9ELG7EveTtmRK +yAXSSQ8+WrwY0y6jUJVhyrdaXQ889NUqGu9SWGu72/hbny6cUWDTbaum+z15 +5I34Tl2onspy7XlEoY4lM0f8N4KoZ0VmVAPdH5GOm+QmESJG2lpkGin6f0no +ls57hD19y1tcHlO41SpNqrIK4cVL17mRJgqzy82PM0/QY7lqW/xsK4URQpfl +DCsBxCNabnJ20fkV/FQoTN4F5u5y2XW0N2WpuzV77ILEQyfPeXVTWF6+bfM6 +/V3wQ2mbd9drCm1ZF91Ul3Sge/CSSsE7Cn9LJdQke+lAsqnbQ91e+j7ssS8I +O6QNbHLcnTGfKUw9KKpfbaAFO9YcbVIfp3Cm59qslLwW+Czdq/5M+++yzKo7 +PFrQ89o7y3ySvs/3/B7pt2pC/fluB7kZCsMb1jXuMtWEwLmC0cY5CiVabo/v +dNwBJQPL74LmKZx+KkCy7dkBn15Ytyl+p3DPhvqMz8QOMLu1uiz1B4WbLWyP +K45rwFbHwACnRQpvvWjmNQ/TAFfj567CSxTaoNLm7Q4acFlT4XAr7fGrXyhN +1AA+oQ87lJcp9Et35ijh1QBkU980RFugM+KiyJQ6hE1dFM9eofDO4FPjwlfq +cPe/sdUmvylcWBOx1qpWHUZadJd/055LX6xUvKIO/wNZuXLl + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 11}, {0., 0.9289465115382269}}, + "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" -> {}, "GCFlag" -> 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.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, 11}, {0., 0.9289465115382269}}, + 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.992080902401825*^9, + 3.9920809178351593`*^9}}, + CellLabel-> + "Out[125]=",ExpressionUUID->"d1c158f1-3ce3-f749-86e0-673a21e4dd96"] +}, 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", ",", "11", ",", "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", ",", "11", ",", "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.9920809327777233`*^9, + 3.9920809353930855`*^9}}, + CellLabel-> + "In[126]:=",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.02829238959591647`\\\", \\\" \\\", \ +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.11979910876413147`\\\", \\\" \\\", 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.02829238959591647`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.11979910876413147`\\\", \\\" \\\", 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[{\\\"168404.7432096178`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"39\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ +RowBox[{\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.02829238959591647`\\\", \\\" \\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\" \\\", \\\"R1\ +\\\"}], SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \\\")\\\"}], \\\"3\\\"]]}], \ +\\\"-\\\", RowBox[{RowBox[{\\\"\[LeftSkeleton]\\\", \\\"20\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"-\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[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.02829238959591647`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.11979910876413147`\\\", \\\" \\\", 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[{\\\"2.4258259770489514`*^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, 126, 23, 24488269323719620004, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991964272641367*^9, 3.991965207078659*^9, + 3.992080938088825*^9}, + CellLabel-> + "During evaluation of \ +In[126]:=",ExpressionUUID->"a4ae08cd-3440-1d4f-978e-2cd4eaa6d3c2"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "\[Rule]", "1.4545731920151088`"}], ",", + RowBox[{"bb0", "\[Rule]", "1.460693398022912`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991964272691372*^9, 3.99196520714266*^9, + 3.9920809381478424`*^9}, + CellLabel-> + "Out[126]=",ExpressionUUID->"36797d84-b83d-6f43-b3eb-679224a52717"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "2.204"}]], "Input", + CellChangeTimes->{{3.991964278686388*^9, 3.9919642789396744`*^9}, + 3.991965211114523*^9, 3.9920809438889084`*^9, {3.9920809906869946`*^9, + 3.9920810082800407`*^9}, {3.9920810519686737`*^9, + 3.9920810537848873`*^9}, {3.9920811349691257`*^9, + 3.9920811919767513`*^9}, {3.9920812815765057`*^9, 3.992081283558817*^9}, { + 3.9920813136856785`*^9, 3.9920813380617714`*^9}}, + CellLabel-> + "In[195]:=",ExpressionUUID->"e7f8a0fc-58ca-3c43-8050-1041e5611e26"], + +Cell[BoxData["2.204`"], "Output", + CellChangeTimes->{ + 3.991964280066925*^9, 3.991965218521267*^9, {3.9920809578005753`*^9, + 3.992081058193615*^9}, {3.9920811161886463`*^9, 3.992081185903839*^9}, { + 3.9920812347214775`*^9, 3.992081254661869*^9}, {3.9920812874101887`*^9, + 3.9920813435997143`*^9}}, + CellLabel-> + "Out[195]=",ExpressionUUID->"60592c05-8f3c-cf49-a983-c09cad5885af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"bb0", "=", "1.070"}]], "Input", + CellChangeTimes->{{3.991964284161188*^9, 3.9919642845938396`*^9}, { + 3.9919652166473465`*^9, 3.991965216788891*^9}, {3.992080950868906*^9, + 3.9920810492350006`*^9}, {3.992081110519993*^9, 3.9920811248669186`*^9}, + 3.9920811820455513`*^9, 3.9920812507491302`*^9, 3.9920813030249195`*^9}, + CellLabel-> + "In[196]:=",ExpressionUUID->"8a3efd5c-480b-0b42-87de-a0381a89eb4a"], + +Cell[BoxData["1.07`"], "Output", + CellChangeTimes->{ + 3.991964285066065*^9, 3.9919652203929043`*^9, {3.9920809578456745`*^9, + 3.9920810582276936`*^9}, {3.9920811162191944`*^9, + 3.9920811859358444`*^9}, {3.9920812347525425`*^9, 3.992081254704895*^9}, { + 3.992081287443712*^9, 3.9920813436308136`*^9}}, + CellLabel-> + "Out[196]=",ExpressionUUID->"7c1d395f-a80e-b248-a4f5-cd82e5cc5534"] +}, 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[197]:=",ExpressionUUID->"a14f3f77-6d27-1048-853d-e35ac0579b5a"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVV3c8lf8XR+4TlVW4z5Vxp5WoyGh9johoKZW0rMiKyiqlr5I9QqKQPRJJ +NllZWVGyV5lFVkhl9Xt+f93Xeb3uc17nc855j0MztT9lzsHGxhbBzsb2/9+L +muHcbGz8kM+YU4mem0T7RoUqsgP4oS5JoFtyehqNtEbK7GUJwG9aq7l+7yxa +2Mr3LTVHAA5zSrlEuM6hIX7XazpoM3zYQzLeYbqAIk5NpFR0bIb5tCWT2sZF +lDejoyR6ZQuQLx7xNTr3F0V1ZzoeW90CcwllRQpGK+iy/YZ7OY8FAfu10ij2 +8B/yMz7TuyohBMXYxqahA+zgFpP8Q6xQCGIWwksamzmgW2X0BF1LGN7UO40/ +YHLCZretbhc+CUPQ639fTTVIsIXP4JK1JRni5U7sjdiJwd2V+yGXfpGBqoAq +XEoweKWcfUsyCAfxBi6ZxkkMSkS7pZlMCnDN1CjszsJA8fKMHJZFAY4/21kP +KRjcnNwwUqotAlud34/Y4SSgdAjNGLaLwJraGvd0/zrw2ST5qtFuK7y+p0Cq +1+WA9mk5pZskUbhAu27aH8YGfnIMvtUQUXBq2vsutnUVrS8Qf35JVgz0udN+ +8Sosoclo7v8SCsVA89v22KXBRfRa/oeMqKY4fGDNbav7NI/UeFq9bXrFQUMD +4VrvZpGc9gu1WEsJYB/BSt4bTqL5MfUTbWxUqLKBKpblN4TYtlnMH6FCR7af +OWX3MELvN6ZyhlKhQodeHpD9BSUq2b9jG6DC/dt+cnd9u9HbEw2kGSYNBF7J +wLOSNlRZEZfpYk2Dmwf/lDd//Ijkuv7u+JFHg/RtP8tikxrQkee6/XorNNhx +NS6D16AGNXOJm8UfpsOI+VulhJwKRKKPbx55RIdIBntZ3q1itC1EQepdOx1i +Cxd0ZTnyUG7KH0FfGgPWdgXtCj6aheasiuQ0LBng93zRgetFGnr8eUXsey4D +ThTnjOuVJSLG47cOUmxMkGc475l1jkFX2W7On9NiQoBXNqJ9jUB8gulHnUKZ +IGbk0jd3NBTZtve2eHQzwVv868KkRwAqmPQukJNgQbKaumLpUS9k8TL/VoU1 +C+qWXgar8t1H9UL9ZlpvWFDhvGhiGuCKWvuVlv/9Y0HC38AWv42OqEmw44qh +Fj+IfPatN/4yhfgvdi0sdvFDyVHbTwzxWWT7+7TPDVsBGJPa55od9xPZhGu+ +vPVXAHa3ZsmbX5lHzufdx8r8hWFUcnPlajGxr1pqU0OiZLDSWXAWryFBnaft +7+FMMtgOK3ztvI9BGEWEVKmOw5N0XyPTIQxy02r0WN04yIRZXRvqxeDW/hFZ +IWsK7M8/lNRtj8EplhvX0DIFPjaGphkkkUDLJHjcP4jYz2rhhF0enPDTbX8u +RyEVAhqaOi+49iGFyuhhF3Ya3OAdnnNc34kO+Ow+n6NNg7TE79f/e92KXI5+ +sN8ZTIP4RG5zrYUPqGQPfb14Nw14tku62/a+R5v0lai36XS4yttjlD5ciayf +rHt70JYOg/LS27PKS9FTw03PW7Pp8J4tolszogDNbhUUT16mw2uPzQW/HmQj +fa5u6pgmA7avjdZFTWWgSvELyU+CGNBN3vXG2iMFXVDsq/PuYUDuehs84Vw8 +qqkPVwQGEwwP3TUJ/huJ9vrxUq/aMsH/l6ae+vcwVOaoEbSSxwSh9Uc5u6SC +0ebBNxrnVpgw15owaKDqi4KOSDxd1GRB3ETX8Zb7Hgj/qmO3LogFH20Cxx9S +7qHmvz4KiV0s0LmngB3c7ILC5JQL5Bj80CVtPtZ/ZQqlUF162rL54VTWxPvm +RzNIevT3uY7DAmBaqjl4a+9PtKM77XBwhwAMp39lrU7OIen6XVGzlsKQc4we +Z3KDE0JNZHdL/BYGy1QxxxovEtg1mMim+pOBt0a33OAiBlwbjzc+2oqDu7v7 +jtZWDHbMvh1JzsHhVqDHfM43DEReDaSJalMg7ioW0h6KQaV6vshCOwXMHi/p +jgySoC/lwxjTRgQm6HaFP1s44WlC0qt1yVRIS9jOPMIzgKyWPU+VzFDhmp9I +8wX1LrTy45/CSWUaGDHnhTZmfUbRmMqj0240iL6rJl1a1oIcuXmjH76nwRc9 +WwUelXokd6t87QofHYJVOSe8BKuRaAs/383zdDhqFEr76FWOmkuXDC7E06Gn +4Mp/f1YLUVBHPD3nOx3iDvTxzhfmoIed3yNVFIl5u6xcmsnLROc1N1jZ3mGA +ccL+j/zcL5CLh+18wXsGWHQ8udB3PwE5yqd9zhFgwu/d8Qc2pEejk4cquI0N +mSC1jUweNghHFpouU6pJTOB2udrEuSsEod5a7ukJJoS9WVK3/eSH6NGfUwV2 +sWCicV/cg96HCB1ynze5ywJuxpMtGzF31LQ+p36hmgW7fiWyRstvIc5Vp81e +VvzgoEPKuGI6jap/fNgZmEngVVp6cQs7CUJlDyenHCTDqIu6P2uNBHR1l2pq +Kxky2aOCpuMxoEqPHVi4ikOj/QtR/h8YqJq1lCSt4aDIYzd5qR6Djg/j6TyB +FPCj7129pI3BEJfmYgtNBBZu/EgVMSHyqdWnhJ1lQH06z42KA+lI9m/6YFk8 +A975mRTGCSUjNHwkxmCKAZ3jE+qe6nFI2Pzh4yYlJuRQT07wmDxDrJaLynb/ +MeGO/LxL2aPHSCiZT6HiPRP04w5ZTJ4PQiNj0W6VPCwoDOzYuL/AGy0tWfv0 +GrDAsWWRJXfgAZp13TKeFMuCPjZe3S+ad9HHH5efnJxkgeb7iO7r953QLVUL +43ABfpjiYC0Xyk6hnw+0PlTF8oPzKenZpP0zCLuo845LRQBk92qnVG/4iUJd ++8iiNQIQMW3JL5szh9zZApx8DYRB3yhF7+wRTjg1QzfcPyIMI9+007LMSVBh +21fF5Urwn/35umiiP5XrLDOduXAI5JG0v1uHgd2WAvmxOBxeDgxzkIn+/hi5 +YBW3mwLuPOC+JwGDpZZWxmolBegB9UZOxHxSdWzNbxiKgFibknnJAidMKp2T +fRhFBfbkZFJk/wDCni75DoxRoWDsxOzz4S7UJzYqEredBpe+Y8cbldrQ6+Ef +4mMONBAJiCH5nP2IPs56jBWU0eBseMzOgB/1qGQDabqHRPCb4dOH3jnV6JcN +ucj3JB3mHDhpY2oVaGLmRl7sUzqQa8votYVFqC/nO3PPFzrcjNE2Eb6Qi0TL +Zw2MZRlwZ/2qqlDSayTZOdjQeYMBq1y007rtL5Bnei6XXhkDcj4pzESLJaIm +4+zEKS4mLN9vS40IfI766M/u9Z1gwiMn87F2PALtkRMQM4hiQuoZ/rf6pSHo +7LlPk6pDTND1Ht98NdUf2Va/UoiVZsGe64+ThUM8UavLVuUQBxZcav5V8MTH +HTXw1oWLvWVB5muReMmE2+g7V8rbGQN+2He+La9ZYhqJMaQ2ST4XBtPejBK3 +AWJ+hVBfrUAGcfFDT/SGSOA0/PPSgwoy3N+oWhNK8FMPlY3ee5rAwz+DinCC +v5y9GrDRHzg4vrnZ5PQZg1TSVZuQOxRwDvZs0iH4TyTC+F8Xrwjgd1JVbTxI +UEz9ZFZ6jAEHU2qrBLdkoEV/Dw3ZpwzI5E17F1efjI5tDMuZGWYAx7pNSoMN +ccguItAMk2OC/fhgpZZsJMrK2J0+4cSEnRqBbIpqYWgiIO3yQBnhB07X7bp9 +8hFaNks15iGxIFTAPWnQ0QdpMg7xWx0n+D+0V/1U/wP08FXmtrZwwi9oaTiE +bHNDLXMOpq5DLJA6csn4spYz2ir9LfjQczI0P7vuV0no7/HNSt9fyONAfnf9 +oBOhz3NNFZHmtTio313amUDot46TycTTcxSYkXh2m/sBBi0xK7Llw2SoFKgc +HnuNgYVC0wWeOzhE+flmNBF+dAm13bwiQAFeqtnX6FIMPo3o1EkvskDN7VjM +/ipHZH1gTamRix/4Z0Jwa94pJKyUqbU3nB9o1p/+BAvNICfyzV80eQHIe2bU +MDw3izQanf6ZlAjAlSeeRYXhc0guunCo/bgwHO/oEyKpcsIuZQmbph5h+Gbw +RjfrNAkmSp8Fq90gw0D06T+V+zCQYPslMbFGxCTn3NeVGPAm5+p7ReBQX9X7 +U5Kot81dRGdIjvAjpbLHzdMwECabvLhfRAGsQvb29k0YbIp6mxShJwJDPscY +RRgJhNfeWFaHU2Gb5dPfbtpf0Omx3GT7ISowqquycOVu1JRvEKwtQwOX5l+l +J261IdVTtWPy9jR4leKVr/X4I7o3UuZ/spgGy4tVg/e1GxBnW+qoEDsdnhpU ++BRy1iDTYpEgoWN0WN/NIX/BuQL98dk+oh5GBw3ehNdkvBg9pG9KceuhAzuv +jjBbZi76nu2Yv8BigMOUUVQ/bxYKiPtwh+caA6Iqud62709DAeXntkQXMUBL +4CTz7LVE9Odvvr8fJxNWvGRuXWWPQQkhpCKRI0y4etri7Ks7EYhJHVAaC2dC +N2fXngjOUDQYfvbyQD8Txn3FH7ULBqDQrsj5UQYLIs/nuzKnPZGogFWntD0L +RopVaaaN7kg39NTqznwWbHhu3Q/CrqiH90Aw8wQ/XLS/rab/bwo1lOnfvhkm +DB3frzv2NBHz+7evV1+SDEs3XROHPpMgRum1bE4BGeaFTKeM/TBQEQt8fPwI +Dq6qK82KoxgI4XXbPIdw8Oyxjh/sxCA4nnXk800KmHL13d5vgYHywLTHJZII +mES3uvCGkcBL8EzlSR0GhF030Xz0Xwa6eMZ+wegxAxoDXfPrWSnotIRq2d4v +DFixbpjYJRCPIneEHkmUYkJQl2CuZEgkct6aMCp9g8DfgWIxzuAw1Obu7Hyt +mAnJmwTyo1oeIa8EudZsNhaIm8m2fGn3QVYqu9pe67DgR9NTyWF5D9SstdJk +E8qCy+3Ld2Lj3dBx57W6oH4W/Dy/PeZaujPSvJ10yTmMDMdIFe4qRP3pvO8M +RVk47D2aoXWeeF/I5bJyUikOP7gGvxoT798lQG3oOUGBQ87Pd0cT/fkzU/R7 +pocMd/iWrcjE/lZtM/zgfgOH0vfPhf6/388+fYrg5KKAzx1pi+wqDPQs2+T3 +/yTuB5e1KA+aEzJf37tv3WYcnmr62PZ/IPB9v4hb6yUO6/zeGkSNY+DGdMi6 +ehmH7czH035E3LnQNKj5Cwfl/V9Zsc0Y/BRKdd6tioOmwfpy+hcM9PdWOdW0 +4GDZ6cB2i4g3KKKJZw9x0OsOL1k3Rfh9k3ITwWUWVIdsy42wcERm6rqx5pz8 +cLjjOe7ANoXSNpmucwnhB1WZ5vJa9hkk5+T1KFNGAPRGPgQKfJtF0Q4H5zkL +BeBqcYpwjM8c4pg4TrmrKwwCgp6bdOU5IcFQbGFLhzD0aJczthwlwT2LP4uf +bMkwbJ52REWF4Lt7b7sYS2TQqeGgxJdjMHBN0aIjFAdz9h4PL6Jfdc1/VT2k +KcBvuBbflYFB0p4XE1W5FPhkI7phdDMG5Rpm1bJHRSBRzXcumo8EL4cGvK+E +UaFldnXoy90v6C5PqKLqVyoc4yfte2XUjTTXCRzZKkWDP/e9Ky9EtiE33xzd +z7Y0iLqSaf/zzUd05vLFy+KFNFCZ73z2w6kBvVC9bZKzRgP/78FlZdtr0FOT +6Fu9unS4q3VUdySsAt0747+8OZQOYsMDo/sOF6Ou7ucWEl10KE827JnszEXN +GfmjZQwGOHmEVkduz0LIU+P0C2sGXPa2rS+6mYaC61/iBwsIv8qTyZX+JBEF +aRX9O8dB3B86LgYLe2MQZ/3ejqLDTFBW3nYm51UEEomsrngVxoTtM8dq4qVD +kaQyhfymlwllpw+923Y0ACWZhpzxpbHgYZ6EEBLzQu/6+V4s2LKgfl1D57Yp +d7ShLWJHSQ4LnDFlGf6TruizgN9SmS4/uF5xnTk8M4XiNk28xoOFYVsCSXW+ +ipgffe+VKBoZnpec1PBvIoFiP0/IkRwylPMIakp5EXoTpX/URwsH2k7zoa5h +DEa+ah1o78eh1yvPZqYbg4cznHsd7Sgg2enqLWyDQTW7cm0smwhIcd8wPRBN +AlveiJ9btYn+tLXMmOZnIL49o01LwQyoFtDptj6dgs7J+FUN9jEgf+5wUK1S +PNrhFlZ+g8WEipJHf2VqIlHXqS6OOjsmRI/NdC28DUP1Sxc5dhcSfGoRHpGz +Phg1qc/4ea4xoWGH7cFJzBfdfSetrK/NAmGzuFvbz3kghy2Jz1WCWWCtHPX5 +bL8b4i3UWMF7WfDG+29WzIAz6qatq+YNJoNarLHcKRPCjwR4bz5LxWHY5XAX +ox0DY6n9rWcKcejYueFLxBgGkkb/iu4coYC8wA7h6iAMAp/il306yLB43Joa +lEzoeZqEV7EtDsasWo40wn9aRuq9PL2OAhrs++ye1GLA/5Ji+n6a8E8bOwY0 +TzqhMM/4X/t4cChru35tTyMGMbqqouHJOGzp/JhkMYFBRoKaVbwhDudke3Ji +vmOQUnpkIWwWh0fU5y3kT8Q9EXZNwV6RiINj8w37MaBzHvQRaiT8hXSKt8gg +cV+8ISV+/g8HDwtLqUUCb5sTOZ/E/GFBVL4RXhDmiA707VZXjsbhXlbTjQyi +Xq7Y2h5BPRzOP5va6kC8t/IJepX3Dofybz7LvCMYhL0KFdR2xuHgm9YT3kQ+ +tqI9v39l4iCirimaR9R3PCXj93YzHHpc6VYXiPr7cm/tNPYl+rexzPIX8f9Q +CVd5v1UWlO4aDB5QdURfD15v28XBD1DkkOLxdxLN/Xk7KPiIH6wOmT/8+Xsa +cSUF9zlKCYD22uffCoOzqO699LWOPAG4HhGp9fT+HJrmj1Q6cVgYijW4Vq7K +cMJ5m+jCgs/CsChlYVaqTYK6YinZGGsy/JNyarZSwsC8VDyv4jcZJnUVq/jK +MNBqvWl/LxgHf985xQyivkqn8Sx9SQpE3Dte6ZuJgW1T40bzbAqw23O+UBHG +AMdVTi/oEHqXSZfhEiTBwmmnCKXHVIh8qT2TEfEF8ce7u4p+ocL9ArUrgY7d +yD3tmjRJkgb51tPHHdPbEJX18m6yDQ1wl/4Kw3cfEWxNf89ZQIPG4cRz+wIb +0NKEicSDVcKvPPF0uXSwBinu7r9WpkMHZktZ3L6kClS5d4/3cjAdziuHttsZ +F6MHeWNasx10mHoFjuxTuehdmsFqIp0BsYc5r/Huz0JPXe5VOFkxoH1fXJl+ +YBoKbdbfKpTPgJbpdR/n0xJRl22xGrAz4di+5QtXDGNQ/kjHFV9tJmzK2QD9 +tRFIsLPAK+QxE4xuLzu/2xOK6j1dHSJ7mJBSYTS9djUAZaYGYBeoLJjL/ZXy +U8kLCWqaBffYsOAvs7NRZs0dTTju0b2fTehzoHTHCztXpLclSyHgMD/k6c8/ +0/s2hfwVdzf+CBSGcMFtB13LifkpFUsjCTJohLv5dNYRerJzfzX5DRm69mse +5nhI6GNPvjRLk+CjGeYWGsFHRw95abv14oDbsmtN9mBwL3whW9OWAlIcf9pc +r2Hg/9jwG6xRoIlm33csjgTGG1W52bUY0DvelD73KQNZylHV6h4xIMH4xPCA +TQo6L69Ym9tL8FPR+LF0rXjkmvjk7zkmE6jTs6V6XyKRn51DSMQ1JmjKRITw +tYahahW9OryACcxnd2dLycHIPkTvm90qE4KPGtDCJXyRJ8b8xtRiwcUN01fn +bT1Q7e1FT7FHLDgVY/zn8rIbmj43JjTQzQKzxIx1pn+cEdN51++eQDKsjwuL +6LxM6H3jxPScGA5yzfnWa8Q9VOd/t3c1D4fdKnFaMsS9RMVmdh7VoYBLtFR8 +SzAGXZPaIafbyPD7vIfEu0QMuMcfmBpY42CnXMNtTOD749qjnBU2Csz/lv23 +8h6DWd2SOwFTLPAMj3U+ZuWE0qs5W7s34CD1UvXDQD0G2GsX1oFEAr8L5Tsr +CTxXDUYfOmCAw3H5gh3iBN556f6r+6ZxyDaiMXVbCf/4+ePGTTtxEDqgNW7d +h4Gf5f2Q0jqCLy69Khwk+OjErOV/191wAB/HsRECb3MaqZlmv1kw8eKf5VS6 +I0oBJ92BZ8R885P5poh6qQMyBW+O4ZCVvTTeQfgx2aV7+ZfKcZDeOq37luCj +jMlfs8MOOGicFJM/T+SzFHNli8kg/NC10ohthH+yGOVrazDGIZzzZNIiEc/P +9/KsehHvKVjmYyP80c0K0cMnVljwwMXMMvOEI3LmXrgo/4Tgs2J//P/5eqxL +0sTscajzm8d+EPUoj/3ZPJ2Kg4+WxEVOoh9hZh0BnBeJerrqDuNEftrNhFrl +BzgoMaft/p+/w2VRJSgGByvDvbg58b2bnYLqy1s4BHhLur4i8lc7CZ2p8seB +b5937TARZ9/rFKxZI+7Jk+0C0nRH9D8MdEdJ + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1XV41lUYBuDRXWN0jNGM7u6OMUCRsAAlBBVJ6ZiKSscok8YARMFuFJNG +BbtbUFFQ2vu9/OP+3uc8u65933fO+W0pw8b2uzVLQkLCai8xu3i5aL7EHfSj +IcP1ZflU3sA4stJVd8l8mTu5gkZko5ufXTZf4S6upDHZ6R5vxqvGPPrThBzk +JBe5yUNe8pGfHvE5eU2+m6toyghdOT6TNzKeAvTUZeV1+R4G0IyRuvJ8Lm9i +AgXppcvGHvleBnK7dR1OyLtpzijrZL6QNzOR6dYN+FN+jkKkWWfnDXk+s+Um +nJYHMUWuy0n56dhzuQVn5RbcJFfgy/j8Zlu2yHPNZiznH+uFZkcmyTPMhizl +VLyv2Z6VPB9nYbZiBeetF5mdWEVh695mDpbwZuyz2YZMFljPMZuyjDPWC8wO +DJanmvX4PfbPbMczcTfMlpyTWzJaTuEreSsZcnP+lSczU27EX/ILFCHdOid7 +4/tyNdOs6/OH/CytGGNdka/lR+L8SKSPLhdvxXfmGlpzs64S38iPxplQlL66 +3LwtL+Za2pBEMYpTgpKUojRlKEs5ypMcz5DfkYd35CVcR1sqxPOiz8u78lKu +px0p8bzo8/GevIwhtKdiPC/6/LwvL2coHagUz4S+APvkFQyjI5Xj/usLsl/O +5AY6USXuur4QB+SV3EhnqsZdjbvBQXkVw+lCNQbri3BIXs0IulI9zkifyGF5 +DSPpxi26ynwrPxb3hhpxJrqiHJHXMoruxB+pKnwnPx7nTmqciS6Jo/J98bzQ +g7G6qnwvb2M6NWPvdcX4QL4/7iE9uU1XjR/k7cygVpyHrjgfyg/E3aIX43TV ++VHeEfeV2nFGuhJ8JD8Yd4s0xutq8JP8BLOoE+emK8kx+aHYF3ozQZfKz/JO +ZlM3zlJXiuPyw7EvpDNRV5Nf5CeZQ704X11pPpbXxb7Qh0m6WvwqP8Vc6seZ +68rwibw+9oW+TNbV5jd5FxnxHawb87f8IvPk1lyQF5uds/z/f6WB9X9DQ684 + + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgEAURMEvGtiGrWhgYmQJBsKBcODZi+2qgWAPTrLw2OmWPK9nFVGa +iJhSOdY7PlU/1d4zj/2Qt7yn50/xDo7jOI7jOI7jOI7jOI7jOI7jOI7jOI7j +OI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOP5XfgHw9t5n + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVV3c8lf8XR+4TlVW4z5Vxp5WoyGh9johoKZW0rMiKyiqlr5I9QqKQPRJJ +NllZWVGyV5lFVkhl9Xt+f93Xeb3uc17nc855j0MztT9lzsHGxhbBzsb2/9+L +muHcbGz8kM+YU4mem0T7RoUqsgP4oS5JoFtyehqNtEbK7GUJwG9aq7l+7yxa +2Mr3LTVHAA5zSrlEuM6hIX7XazpoM3zYQzLeYbqAIk5NpFR0bIb5tCWT2sZF +lDejoyR6ZQuQLx7xNTr3F0V1ZzoeW90CcwllRQpGK+iy/YZ7OY8FAfu10ij2 +8B/yMz7TuyohBMXYxqahA+zgFpP8Q6xQCGIWwksamzmgW2X0BF1LGN7UO40/ +YHLCZretbhc+CUPQ639fTTVIsIXP4JK1JRni5U7sjdiJwd2V+yGXfpGBqoAq +XEoweKWcfUsyCAfxBi6ZxkkMSkS7pZlMCnDN1CjszsJA8fKMHJZFAY4/21kP +KRjcnNwwUqotAlud34/Y4SSgdAjNGLaLwJraGvd0/zrw2ST5qtFuK7y+p0Cq +1+WA9mk5pZskUbhAu27aH8YGfnIMvtUQUXBq2vsutnUVrS8Qf35JVgz0udN+ +8Sosoclo7v8SCsVA89v22KXBRfRa/oeMqKY4fGDNbav7NI/UeFq9bXrFQUMD +4VrvZpGc9gu1WEsJYB/BSt4bTqL5MfUTbWxUqLKBKpblN4TYtlnMH6FCR7af +OWX3MELvN6ZyhlKhQodeHpD9BSUq2b9jG6DC/dt+cnd9u9HbEw2kGSYNBF7J +wLOSNlRZEZfpYk2Dmwf/lDd//Ijkuv7u+JFHg/RtP8tikxrQkee6/XorNNhx +NS6D16AGNXOJm8UfpsOI+VulhJwKRKKPbx55RIdIBntZ3q1itC1EQepdOx1i +Cxd0ZTnyUG7KH0FfGgPWdgXtCj6aheasiuQ0LBng93zRgetFGnr8eUXsey4D +ThTnjOuVJSLG47cOUmxMkGc475l1jkFX2W7On9NiQoBXNqJ9jUB8gulHnUKZ +IGbk0jd3NBTZtve2eHQzwVv868KkRwAqmPQukJNgQbKaumLpUS9k8TL/VoU1 +C+qWXgar8t1H9UL9ZlpvWFDhvGhiGuCKWvuVlv/9Y0HC38AWv42OqEmw44qh +Fj+IfPatN/4yhfgvdi0sdvFDyVHbTwzxWWT7+7TPDVsBGJPa55od9xPZhGu+ +vPVXAHa3ZsmbX5lHzufdx8r8hWFUcnPlajGxr1pqU0OiZLDSWXAWryFBnaft +7+FMMtgOK3ztvI9BGEWEVKmOw5N0XyPTIQxy02r0WN04yIRZXRvqxeDW/hFZ +IWsK7M8/lNRtj8EplhvX0DIFPjaGphkkkUDLJHjcP4jYz2rhhF0enPDTbX8u +RyEVAhqaOi+49iGFyuhhF3Ya3OAdnnNc34kO+Ow+n6NNg7TE79f/e92KXI5+ +sN8ZTIP4RG5zrYUPqGQPfb14Nw14tku62/a+R5v0lai36XS4yttjlD5ciayf +rHt70JYOg/LS27PKS9FTw03PW7Pp8J4tolszogDNbhUUT16mw2uPzQW/HmQj +fa5u6pgmA7avjdZFTWWgSvELyU+CGNBN3vXG2iMFXVDsq/PuYUDuehs84Vw8 +qqkPVwQGEwwP3TUJ/huJ9vrxUq/aMsH/l6ae+vcwVOaoEbSSxwSh9Uc5u6SC +0ebBNxrnVpgw15owaKDqi4KOSDxd1GRB3ETX8Zb7Hgj/qmO3LogFH20Cxx9S +7qHmvz4KiV0s0LmngB3c7ILC5JQL5Bj80CVtPtZ/ZQqlUF162rL54VTWxPvm +RzNIevT3uY7DAmBaqjl4a+9PtKM77XBwhwAMp39lrU7OIen6XVGzlsKQc4we +Z3KDE0JNZHdL/BYGy1QxxxovEtg1mMim+pOBt0a33OAiBlwbjzc+2oqDu7v7 +jtZWDHbMvh1JzsHhVqDHfM43DEReDaSJalMg7ioW0h6KQaV6vshCOwXMHi/p +jgySoC/lwxjTRgQm6HaFP1s44WlC0qt1yVRIS9jOPMIzgKyWPU+VzFDhmp9I +8wX1LrTy45/CSWUaGDHnhTZmfUbRmMqj0240iL6rJl1a1oIcuXmjH76nwRc9 +WwUelXokd6t87QofHYJVOSe8BKuRaAs/383zdDhqFEr76FWOmkuXDC7E06Gn +4Mp/f1YLUVBHPD3nOx3iDvTxzhfmoIed3yNVFIl5u6xcmsnLROc1N1jZ3mGA +ccL+j/zcL5CLh+18wXsGWHQ8udB3PwE5yqd9zhFgwu/d8Qc2pEejk4cquI0N +mSC1jUweNghHFpouU6pJTOB2udrEuSsEod5a7ukJJoS9WVK3/eSH6NGfUwV2 +sWCicV/cg96HCB1ynze5ywJuxpMtGzF31LQ+p36hmgW7fiWyRstvIc5Vp81e +VvzgoEPKuGI6jap/fNgZmEngVVp6cQs7CUJlDyenHCTDqIu6P2uNBHR1l2pq +Kxky2aOCpuMxoEqPHVi4ikOj/QtR/h8YqJq1lCSt4aDIYzd5qR6Djg/j6TyB +FPCj7129pI3BEJfmYgtNBBZu/EgVMSHyqdWnhJ1lQH06z42KA+lI9m/6YFk8 +A975mRTGCSUjNHwkxmCKAZ3jE+qe6nFI2Pzh4yYlJuRQT07wmDxDrJaLynb/ +MeGO/LxL2aPHSCiZT6HiPRP04w5ZTJ4PQiNj0W6VPCwoDOzYuL/AGy0tWfv0 +GrDAsWWRJXfgAZp13TKeFMuCPjZe3S+ad9HHH5efnJxkgeb7iO7r953QLVUL +43ABfpjiYC0Xyk6hnw+0PlTF8oPzKenZpP0zCLuo845LRQBk92qnVG/4iUJd ++8iiNQIQMW3JL5szh9zZApx8DYRB3yhF7+wRTjg1QzfcPyIMI9+007LMSVBh +21fF5Urwn/35umiiP5XrLDOduXAI5JG0v1uHgd2WAvmxOBxeDgxzkIn+/hi5 +YBW3mwLuPOC+JwGDpZZWxmolBegB9UZOxHxSdWzNbxiKgFibknnJAidMKp2T +fRhFBfbkZFJk/wDCni75DoxRoWDsxOzz4S7UJzYqEredBpe+Y8cbldrQ6+Ef +4mMONBAJiCH5nP2IPs56jBWU0eBseMzOgB/1qGQDabqHRPCb4dOH3jnV6JcN +ucj3JB3mHDhpY2oVaGLmRl7sUzqQa8votYVFqC/nO3PPFzrcjNE2Eb6Qi0TL +Zw2MZRlwZ/2qqlDSayTZOdjQeYMBq1y007rtL5Bnei6XXhkDcj4pzESLJaIm +4+zEKS4mLN9vS40IfI766M/u9Z1gwiMn87F2PALtkRMQM4hiQuoZ/rf6pSHo +7LlPk6pDTND1Ht98NdUf2Va/UoiVZsGe64+ThUM8UavLVuUQBxZcav5V8MTH +HTXw1oWLvWVB5muReMmE2+g7V8rbGQN+2He+La9ZYhqJMaQ2ST4XBtPejBK3 +AWJ+hVBfrUAGcfFDT/SGSOA0/PPSgwoy3N+oWhNK8FMPlY3ee5rAwz+DinCC +v5y9GrDRHzg4vrnZ5PQZg1TSVZuQOxRwDvZs0iH4TyTC+F8Xrwjgd1JVbTxI +UEz9ZFZ6jAEHU2qrBLdkoEV/Dw3ZpwzI5E17F1efjI5tDMuZGWYAx7pNSoMN +ccguItAMk2OC/fhgpZZsJMrK2J0+4cSEnRqBbIpqYWgiIO3yQBnhB07X7bp9 +8hFaNks15iGxIFTAPWnQ0QdpMg7xWx0n+D+0V/1U/wP08FXmtrZwwi9oaTiE +bHNDLXMOpq5DLJA6csn4spYz2ir9LfjQczI0P7vuV0no7/HNSt9fyONAfnf9 +oBOhz3NNFZHmtTio313amUDot46TycTTcxSYkXh2m/sBBi0xK7Llw2SoFKgc +HnuNgYVC0wWeOzhE+flmNBF+dAm13bwiQAFeqtnX6FIMPo3o1EkvskDN7VjM +/ipHZH1gTamRix/4Z0Jwa94pJKyUqbU3nB9o1p/+BAvNICfyzV80eQHIe2bU +MDw3izQanf6ZlAjAlSeeRYXhc0guunCo/bgwHO/oEyKpcsIuZQmbph5h+Gbw +RjfrNAkmSp8Fq90gw0D06T+V+zCQYPslMbFGxCTn3NeVGPAm5+p7ReBQX9X7 +U5Kot81dRGdIjvAjpbLHzdMwECabvLhfRAGsQvb29k0YbIp6mxShJwJDPscY +RRgJhNfeWFaHU2Gb5dPfbtpf0Omx3GT7ISowqquycOVu1JRvEKwtQwOX5l+l +J261IdVTtWPy9jR4leKVr/X4I7o3UuZ/spgGy4tVg/e1GxBnW+qoEDsdnhpU ++BRy1iDTYpEgoWN0WN/NIX/BuQL98dk+oh5GBw3ehNdkvBg9pG9KceuhAzuv +jjBbZi76nu2Yv8BigMOUUVQ/bxYKiPtwh+caA6Iqud62709DAeXntkQXMUBL +4CTz7LVE9Odvvr8fJxNWvGRuXWWPQQkhpCKRI0y4etri7Ks7EYhJHVAaC2dC +N2fXngjOUDQYfvbyQD8Txn3FH7ULBqDQrsj5UQYLIs/nuzKnPZGogFWntD0L +RopVaaaN7kg39NTqznwWbHhu3Q/CrqiH90Aw8wQ/XLS/rab/bwo1lOnfvhkm +DB3frzv2NBHz+7evV1+SDEs3XROHPpMgRum1bE4BGeaFTKeM/TBQEQt8fPwI +Dq6qK82KoxgI4XXbPIdw8Oyxjh/sxCA4nnXk800KmHL13d5vgYHywLTHJZII +mES3uvCGkcBL8EzlSR0GhF030Xz0Xwa6eMZ+wegxAxoDXfPrWSnotIRq2d4v +DFixbpjYJRCPIneEHkmUYkJQl2CuZEgkct6aMCp9g8DfgWIxzuAw1Obu7Hyt +mAnJmwTyo1oeIa8EudZsNhaIm8m2fGn3QVYqu9pe67DgR9NTyWF5D9SstdJk +E8qCy+3Ld2Lj3dBx57W6oH4W/Dy/PeZaujPSvJ10yTmMDMdIFe4qRP3pvO8M +RVk47D2aoXWeeF/I5bJyUikOP7gGvxoT798lQG3oOUGBQ87Pd0cT/fkzU/R7 +pocMd/iWrcjE/lZtM/zgfgOH0vfPhf6/388+fYrg5KKAzx1pi+wqDPQs2+T3 +/yTuB5e1KA+aEzJf37tv3WYcnmr62PZ/IPB9v4hb6yUO6/zeGkSNY+DGdMi6 +ehmH7czH035E3LnQNKj5Cwfl/V9Zsc0Y/BRKdd6tioOmwfpy+hcM9PdWOdW0 +4GDZ6cB2i4g3KKKJZw9x0OsOL1k3Rfh9k3ITwWUWVIdsy42wcERm6rqx5pz8 +cLjjOe7ANoXSNpmucwnhB1WZ5vJa9hkk5+T1KFNGAPRGPgQKfJtF0Q4H5zkL +BeBqcYpwjM8c4pg4TrmrKwwCgp6bdOU5IcFQbGFLhzD0aJczthwlwT2LP4uf +bMkwbJ52REWF4Lt7b7sYS2TQqeGgxJdjMHBN0aIjFAdz9h4PL6Jfdc1/VT2k +KcBvuBbflYFB0p4XE1W5FPhkI7phdDMG5Rpm1bJHRSBRzXcumo8EL4cGvK+E +UaFldnXoy90v6C5PqKLqVyoc4yfte2XUjTTXCRzZKkWDP/e9Ky9EtiE33xzd +z7Y0iLqSaf/zzUd05vLFy+KFNFCZ73z2w6kBvVC9bZKzRgP/78FlZdtr0FOT +6Fu9unS4q3VUdySsAt0747+8OZQOYsMDo/sOF6Ou7ucWEl10KE827JnszEXN +GfmjZQwGOHmEVkduz0LIU+P0C2sGXPa2rS+6mYaC61/iBwsIv8qTyZX+JBEF +aRX9O8dB3B86LgYLe2MQZ/3ejqLDTFBW3nYm51UEEomsrngVxoTtM8dq4qVD +kaQyhfymlwllpw+923Y0ACWZhpzxpbHgYZ6EEBLzQu/6+V4s2LKgfl1D57Yp +d7ShLWJHSQ4LnDFlGf6TruizgN9SmS4/uF5xnTk8M4XiNk28xoOFYVsCSXW+ +ipgffe+VKBoZnpec1PBvIoFiP0/IkRwylPMIakp5EXoTpX/URwsH2k7zoa5h +DEa+ah1o78eh1yvPZqYbg4cznHsd7Sgg2enqLWyDQTW7cm0smwhIcd8wPRBN +AlveiJ9btYn+tLXMmOZnIL49o01LwQyoFtDptj6dgs7J+FUN9jEgf+5wUK1S +PNrhFlZ+g8WEipJHf2VqIlHXqS6OOjsmRI/NdC28DUP1Sxc5dhcSfGoRHpGz +Phg1qc/4ea4xoWGH7cFJzBfdfSetrK/NAmGzuFvbz3kghy2Jz1WCWWCtHPX5 +bL8b4i3UWMF7WfDG+29WzIAz6qatq+YNJoNarLHcKRPCjwR4bz5LxWHY5XAX +ox0DY6n9rWcKcejYueFLxBgGkkb/iu4coYC8wA7h6iAMAp/il306yLB43Joa +lEzoeZqEV7EtDsasWo40wn9aRuq9PL2OAhrs++ye1GLA/5Ji+n6a8E8bOwY0 +TzqhMM/4X/t4cChru35tTyMGMbqqouHJOGzp/JhkMYFBRoKaVbwhDudke3Ji +vmOQUnpkIWwWh0fU5y3kT8Q9EXZNwV6RiINj8w37MaBzHvQRaiT8hXSKt8gg +cV+8ISV+/g8HDwtLqUUCb5sTOZ/E/GFBVL4RXhDmiA707VZXjsbhXlbTjQyi +Xq7Y2h5BPRzOP5va6kC8t/IJepX3Dofybz7LvCMYhL0KFdR2xuHgm9YT3kQ+ +tqI9v39l4iCirimaR9R3PCXj93YzHHpc6VYXiPr7cm/tNPYl+rexzPIX8f9Q +CVd5v1UWlO4aDB5QdURfD15v28XBD1DkkOLxdxLN/Xk7KPiIH6wOmT/8+Xsa +cSUF9zlKCYD22uffCoOzqO699LWOPAG4HhGp9fT+HJrmj1Q6cVgYijW4Vq7K +cMJ5m+jCgs/CsChlYVaqTYK6YinZGGsy/JNyarZSwsC8VDyv4jcZJnUVq/jK +MNBqvWl/LxgHf985xQyivkqn8Sx9SQpE3Dte6ZuJgW1T40bzbAqw23O+UBHG +AMdVTi/oEHqXSZfhEiTBwmmnCKXHVIh8qT2TEfEF8ce7u4p+ocL9ArUrgY7d +yD3tmjRJkgb51tPHHdPbEJX18m6yDQ1wl/4Kw3cfEWxNf89ZQIPG4cRz+wIb +0NKEicSDVcKvPPF0uXSwBinu7r9WpkMHZktZ3L6kClS5d4/3cjAdziuHttsZ +F6MHeWNasx10mHoFjuxTuehdmsFqIp0BsYc5r/Huz0JPXe5VOFkxoH1fXJl+ +YBoKbdbfKpTPgJbpdR/n0xJRl22xGrAz4di+5QtXDGNQ/kjHFV9tJmzK2QD9 +tRFIsLPAK+QxE4xuLzu/2xOK6j1dHSJ7mJBSYTS9djUAZaYGYBeoLJjL/ZXy +U8kLCWqaBffYsOAvs7NRZs0dTTju0b2fTehzoHTHCztXpLclSyHgMD/k6c8/ +0/s2hfwVdzf+CBSGcMFtB13LifkpFUsjCTJohLv5dNYRerJzfzX5DRm69mse +5nhI6GNPvjRLk+CjGeYWGsFHRw95abv14oDbsmtN9mBwL3whW9OWAlIcf9pc +r2Hg/9jwG6xRoIlm33csjgTGG1W52bUY0DvelD73KQNZylHV6h4xIMH4xPCA +TQo6L69Ym9tL8FPR+LF0rXjkmvjk7zkmE6jTs6V6XyKRn51DSMQ1JmjKRITw +tYahahW9OryACcxnd2dLycHIPkTvm90qE4KPGtDCJXyRJ8b8xtRiwcUN01fn +bT1Q7e1FT7FHLDgVY/zn8rIbmj43JjTQzQKzxIx1pn+cEdN51++eQDKsjwuL +6LxM6H3jxPScGA5yzfnWa8Q9VOd/t3c1D4fdKnFaMsS9RMVmdh7VoYBLtFR8 +SzAGXZPaIafbyPD7vIfEu0QMuMcfmBpY42CnXMNtTOD749qjnBU2Csz/lv23 +8h6DWd2SOwFTLPAMj3U+ZuWE0qs5W7s34CD1UvXDQD0G2GsX1oFEAr8L5Tsr +CTxXDUYfOmCAw3H5gh3iBN556f6r+6ZxyDaiMXVbCf/4+ePGTTtxEDqgNW7d +h4Gf5f2Q0jqCLy69Khwk+OjErOV/191wAB/HsRECb3MaqZlmv1kw8eKf5VS6 +I0oBJ92BZ8R885P5poh6qQMyBW+O4ZCVvTTeQfgx2aV7+ZfKcZDeOq37luCj +jMlfs8MOOGicFJM/T+SzFHNli8kg/NC10ohthH+yGOVrazDGIZzzZNIiEc/P +9/KsehHvKVjmYyP80c0K0cMnVljwwMXMMvOEI3LmXrgo/4Tgs2J//P/5eqxL +0sTscajzm8d+EPUoj/3ZPJ2Kg4+WxEVOoh9hZh0BnBeJerrqDuNEftrNhFrl +BzgoMaft/p+/w2VRJSgGByvDvbg58b2bnYLqy1s4BHhLur4i8lc7CZ2p8seB +b5937TARZ9/rFKxZI+7Jk+0C0nRH9D8MdEdJ + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1XV41lUYBuDRXWN0jNGM7u6OMUCRsAAlBBVJ6ZiKSscok8YARMFuFJNG +BbtbUFFQ2vu9/OP+3uc8u65933fO+W0pw8b2uzVLQkLCai8xu3i5aL7EHfSj +IcP1ZflU3sA4stJVd8l8mTu5gkZko5ufXTZf4S6upDHZ6R5vxqvGPPrThBzk +JBe5yUNe8pGfHvE5eU2+m6toyghdOT6TNzKeAvTUZeV1+R4G0IyRuvJ8Lm9i +AgXppcvGHvleBnK7dR1OyLtpzijrZL6QNzOR6dYN+FN+jkKkWWfnDXk+s+Um +nJYHMUWuy0n56dhzuQVn5RbcJFfgy/j8Zlu2yHPNZiznH+uFZkcmyTPMhizl +VLyv2Z6VPB9nYbZiBeetF5mdWEVh695mDpbwZuyz2YZMFljPMZuyjDPWC8wO +DJanmvX4PfbPbMczcTfMlpyTWzJaTuEreSsZcnP+lSczU27EX/ILFCHdOid7 +4/tyNdOs6/OH/CytGGNdka/lR+L8SKSPLhdvxXfmGlpzs64S38iPxplQlL66 +3LwtL+Za2pBEMYpTgpKUojRlKEs5ypMcz5DfkYd35CVcR1sqxPOiz8u78lKu +px0p8bzo8/GevIwhtKdiPC/6/LwvL2coHagUz4S+APvkFQyjI5Xj/usLsl/O +5AY6USXuur4QB+SV3EhnqsZdjbvBQXkVw+lCNQbri3BIXs0IulI9zkifyGF5 +DSPpxi26ynwrPxb3hhpxJrqiHJHXMoruxB+pKnwnPx7nTmqciS6Jo/J98bzQ +g7G6qnwvb2M6NWPvdcX4QL4/7iE9uU1XjR/k7cygVpyHrjgfyg/E3aIX43TV ++VHeEfeV2nFGuhJ8JD8Yd4s0xutq8JP8BLOoE+emK8kx+aHYF3ozQZfKz/JO +ZlM3zlJXiuPyw7EvpDNRV5Nf5CeZQ704X11pPpbXxb7Qh0m6WvwqP8Vc6seZ +68rwibw+9oW+TNbV5jd5FxnxHawb87f8IvPk1lyQF5uds/z/f6WB9X9DQ684 + + "], 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]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 2.865729783395331}}, + "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:eJwVlnc8Vf8fx9G9JyqrcM+VdZeVqMhofd4ioqVU0rIiKyqrlL5K9giJQvZI +JNlkZWVFyV5lFlkhldXv/P66j+fj3PP6vD7veWim9qfMOdjY2CLY2dj+/3tR +M5yLjY0P8hlzKtFzk+jrwettuzj4AIocUjz+TiIzdd1YcxIfHO54jjuwTSHr +A2tKjZx8wDcTglvzTKFbqhbG4fx8MMXBWi6UnUJhcsoFcgw+6JI2H+u/MoWa +BDquGGrxgfBn33rjL1NIb0uWQsBhPsjTn3+m920Kfeb3WyrT5QPXK64zh2em +UA/PgWDmCT64aH9bTf/fFPrOmfJ2xoAP9p1vy2sWn0akVafNXlZ84KBDzrhi +Oo32jQpWZAfwQV0Sf7fk9DSa+/N2UOARH1gdMn/48/c0Sttkus4lhA9UZZrL +a9lnkJBSptbecD6gWX/6Eyw4g34+0PpQFcsHzqekZ5P2z6AUCZeetmw+OJU1 +8b750Qziu9i1sNjFByVHbT8xxGbRSGukzF4WP/ymtZrr984izqTgPkcpftBe ++/xbYXAWyTl5PcqU4Qe9kQ+B/N9mkRPl5i+aPD/kPTNqGJ6bRdhFnXecKvwg +u1c7pXrDTyQ9+vtcx2F+MC3VHLy19yey/X3a54YtP4xJ7XPNjvuJFrbyfkvN +4YfDJCmXCNc5VPde+lpHHj9cj4jUenp/DkU7HJwnFfLD1eIUoRifOaTR6PTP +pIQfrjzxLCoMn0Ohrn0UkRp+iJi25JPNmUM7utMOB3fww3D6V9bq5ByyCdd8 +eesvP+xuzZI3vzKPhvhcr+mgzfBhD9l4h+kCijg1kVLRsRnm05ZMahsXUd6M +jpLIlS1AuXjE1+jcXxTVnel4bHULzCWUFSkYraDL9hvu5TwWAOzXSqPow3/I +z/hM76q4IBRjG5uGDrCDW0zyD9FCQYhZCC9pbOaAbpXRE3QtIXhT7zT+gEmC +ab5IpROHhaBYg3PlqgwJOCaOU+/qCgG/gOcmXXkSyEUXDrUfF4LjHX2CZFUS +uLMFOPkaCIG+UYre2SMkkK7fFTVrKQQ5x+hxJjdI4HzefazMXwhGJTdXrhaT +wF9xd+OPQCEIF9h20LWcBHGbJl7jwUKwLYGsOl9FgoYy/ds3w4Sg4/t1x54m +EogypDZJPhcC096MErcBElT/+LAzMJPQk5Ze3MJOhs1uW90ufBKCoNf/vppq +kOG8TXRhwWchWJSyMCvVJkOCoejClg4h6NEuZ2w5SoZdyuI2TT1C8M3gjW7W +aTKcmqEb7h8RgpFv2mlZ5mQINZHdLf5bCCxTRR1rvAh9LbWpIREKWOksOIvV +EPpKxdJInAIa4W4+nXWEPn3vlSgaBZ6XnNTwbyL0/+3r1ZekwNJN18Shz4R+ +IdRXK1BATOzQE70hQl/2cHLKQQqMuqj7s9bIsIXX4JK1JQXi5U7sjdiJQV2x +lGyMNQX+STk1WylhcM/iz+InWwoMm6cdUVHBYKL0WbDaDQoMRJ/+U7kPgwrb +vipOVwrY2p+vi9bGwK7BRDbVnwI8NbrlBhcxYDrv+t0TSIH1cWERnZcx6Kat +q+YJpoBarLHcKRMMNG8nXXIOo8AxcoW7igUGW6W/BR96ToHmZ9f9Ku0JP562 +v4czCf1hha+d9wk/O/dXU95QoGu/5mGOhxgo9nOHHMmhQDm3gKaUFwYxSq9l +cwooMC9oOmXsh4HT8M9LDyoocH+jak1oKAZ0dZdqiVYKZLJHBU3HY9A1qR1y +uo0Cv897iL9LxCDwKX7Zp4MCi8etJYKSMfgzU/R7pocCd3iXrShpGLTErMiW +D1Ogkr9yeOw1BndX7odc+kUBCQVU4VKCgXmpWF7FbwpM6ipW8ZZhcPze2y7G +EgV0ajio8eUYiLP9Ep9YI+JHds59XYlB5TrLTGdOHAK5Je3v1mGQXk1q7d6A +g9RL1Q8D9RiEecb/2seNQ1nb9Wt7Ggn99b371m3G4ammj23/Bww4Nx5vfLQV +B3d39x2trRj8bJyYnhPFQa4533rtMwY9Ad6bz0rgMOxyuIvRTujzvDMUYeGw +92iG1vlOwt9mpe8v5HGgvLt+0KkXA5XPHzdu2omD4AGtces+DCTCrinYK+Lw +KDg237Cf0BdMdd6tioOmwfpy+hfCH1WYXKmOw5N0XyPTIQzcevKlWZo40GaY +W2jDGFhE6R/10SJ4p/lQF8EqooGPjx/BwVV1pVlxlNAfkCl4cwyHrOyl8Q6C +OWNrewT0cDj/bGqrwxjhX4KN3nsah8Z/BhXh3zCoGow+dMAAh+PyBTvEvmOQ +kaBmFW+IwznZnpwYgsPMOgJIF3GQ7qo7jI8TfpgOWVcv47Cd+Xjaj2CLUd62 +BmMcwkknkxYJPp6S8Xu7GQ49rnSrCxOEH+mxAwtXifPsX4jw/cCAa/yBqYE1 +DnbKNVzGBM+liXsV2+JgzKrlSCO4x7okTdQehzq/eewHwVXbDD+438Ch9P1z +QclJwt/kr9lhBxw0TorKnyc47FWogLYzDgfftJ7wJtjNTkH15S0cArwlXV8R +bKHQdIH7Dg5Rfr4ZTQSfmLX877obDuDjODZCsOobcuLn/3DwsLCUWiSYdjOh +VvkBDkrMaTu2KQw2KKKJZw9x0OsOL1lH8Px8L/eqFw4dBcu8/3/el3trp7Ev +wRvLLH8R71c7CZ6p8seBd5937TDBr5Szb0kG4SDWwCnTSLBW6037e8E4+PvO +KWYQPHBN0aIjFAdz9h4PL4KduRYuyj/BQbjYH////XiSc/W9InCor+r9+f/7 +p4CT7sAzIv/5ybxTRHwO9O1WV47G4V5W040MgjtcFlWCYnCwMtyLmxNst6VA +fiwOh5cDwxwUgrHXLqwDiYTfhfKdlUR+YnRVRcKTcdjS+THJgmDlsT+bp1Nx +8NESv0giuOV+EZfWSxzW+b01iCLyaynqyhaTgYPltdKIbQSzFe35/SuT8Kuu +KZJH1MuO2bcjyTk43Ar0mM8h6qvO/27vah4Ou1XitGQINpba33qmkDh/54Yv +EUQ9hlwuKyeX4vCDc/CrMVGvskv38i+VE/W2dVr37QjRz0/Qq7x3OJR/81nm +IXiuqSLSvBYH9btLOxOI/vCzvB9SWkfk/9KrwsFBYh6RDvoINhL9J53iLUyw +/t4qp5oWwm+nA9stor9y02r0WN04yIRZXRsi+vPoIS9tt14ccFt2rckeDEa+ +ah1o78eh1yvPZqYbA0G8bpvnEA6ePdbxg0R/O3s1YKM/cHB8c7PJiZgHPHT/ +1X3TOGQb0Zi6xLxIKT2yEDZL9LfE8xbKJww6F5oGNX/hoLz/Kyu2mag3s5aS +pDUcFLntJi8R8+jj2qOcFTYqzP+W/bfynohvpN7L0+uooMG+z+5JLQbPPn2K +IHFSweeOtEV2FQZLqO3mFX4q8EiYfY0uxaBEpFuayaQC50yNwu4sIl5O41n6 +klSIuHe80jeTiH/zX1UPaSrwGa7Fd2Vg0OYurDMkR4X9pbLHzYn5+2PkglXc +biq4c4P7ngQMhF8NpIloUyHuKhbSTsx3CWxm51EdKrhES8W3BGMgafSv6M4R +Ksjz7xCqDsJgF79EQ88JKhxyfr47mtgPOk4mE0/PUWFG/NltrgcY3No/Iito +TZyXfyipm9g/98IXsjVtqSDF8afN9RoGD2dIex3tqCDZ6eotZINBcDzryOeb +VDDl7Lu9n9hfqeSrNiF3qOAc7NmkQ+y/jg/j6dyBVPCj7129ROxHxcszclgW +FTj+bGc9pGJg29S40TybCuz2pBcqQhgk7XkxUZVLhU82IhtGN2MgRDF5cb+I +CliF7O3tm4h4trQyViupQA+oN3Ii9neler7wQjsVzB4v6Y4MEvue5cY5tEyF +j42haQZJZPB/bPgN1qjQRLPvOxZHhmp25dpYNmGQ4rpheiCaDMoD0x6XyMJg +Et3qwhNGBuEI439dPMKA30lVtfEgwxCn5mILTRgWbvxIFTYhw83JDSOl2sKw +1fn9iB1OBhxXOb2gQ7yfSZfhFCBDuYZZtexRYUhU852L5iXDpqi3SRF6wjDk +c4xRhJEhVcfW/IahMIi2KZmXLJCgL+XDGNNGGCbodoU/W0igZRI87h8kDGvV +Qgm7PEhA7RCcMWwnWG2Na7p/HfhsknzVaLcVXt9TINfrckD7tJzSTbIIXKBd +N+0PYwM/OQbvaogIODXtfRfbuorWF4g9vyQrCvpcab94FJbQZDTXfwmFoqD5 +bXvs0uAiei3/Q0ZEUww+sOa21X2aR2rcrd42vWKgoYFwrXfE97z2C7VYS3Fg +H8FK3htOovkx9RNtbBJQZQNVLMtvCLFts5g/IgEd2X7m1N3DCL3fmEoKlYAK +HXp5QPYXtHDaKULpsQREvtSeyYj4gl4ODXhfCZOAltnVoS93vyChtTeW1eES +sM3y6W837S9oUumc7MMoCWBPTiZH9g+gpwlJr9YlS0BawnbmEe4B9NNtfy5H +oQQENDR1XnDtQ4lK9u/YBiTg/m0/ubu+3Ygv3t1V5AvBBWpXAh270V3uUEXV +rxJwjI+875VRNzo9lptsPyQBjOqqLFy5G2FPl3wHxiSgYOzE7PPhLmS17Hmq +ZEYCrvkJN19Q70IKldHDLuw0uMEzPOe4vhO9PdFAnmHSgP+VDDwraUPuadek +yZI0yLeePu6Y3oY01/Ef2SpFgz/3vSsvRLahpnyDYG0ZGrg0/yo9casN9YmO +Csdtp8Gl79jxRqU2tPLjn8JJZRoYMecFN2Z9Rgd8dp/P0aZBWuL36/+9bkWV +FXGZLtY0uHnwT3nzx49IgvXybrINDXCX/grDdx+Rm2+O7mdbGkRdybT/+eYj +Uj1VOyZvT4NXKV75Wo8/otfDP8TGHGggHBBD9jn7EUVjKo9Ou9Eg+q6adGlZ +C3I5+sF+ZzAN4hO5zLUWPiC5rr87fuTRIH3bz7LYpAYEW9Pfkwpo0DiceG5f +YAM6c/niZbFCGqjMdz774dSA7o2U+Z8spsHyYtXgfe0G9HHWY6ygjAZnw2N2 +BvyoR45cPNEP39Pgi56tArdKPSrZQ18v1k0D7u2S7ra979GR57r9eis02HE1 +LoPHoAYtTZiIP1gl9J54ulw6WINeqN42yVmjgf/34LKy7TWI1JY6KshOh6cG +FT6FpBpUsoE83UOmw3vDpw+9c6qR3K3ytSu8dAhWJU14CVSjTfpKErfpdLjK +02OUPlyJmjnFzOIP02HE/K1SQk4FUtzdf61Mhw7MlrK4fUkV6KlJ9K1eXTrc +1TqqOxJWgUyLhYMEj9FhfTeH/AXnCvTLhlLke5IOcw4k2phaBRJp4eO9eZ4O +R41CaR+9ypH1k3VvD9rSYVBeentWeSki08c3jzyiQySDvSzvVjGq3LvHezmY +DueVQ9vtjIvRvTP+y5tD6SA6PDC673Ax+uOzfUQ9jA4aPAmvKXgxmpi5kRf7 +lA6U2jJ6bWERai5dMrgQT4eegiv//VktRE8NNz1vzSbuzxbRrRlRgLaFKEi9 +a6dDbOGCrixHHnqQN6Y120GHqVfgyD6Vi7q6n1uId9GhPNmwZ7IzFz2kb0px +66EDO4+OEFtmLurL+c7c84UON2O0TYQu5KKgjnh6znc6xB3o45kvzEGzWwXE +kpfp8Npjc8GvB9koN+WPgC+NAWu7gnYFH81C79IMVhPpDIg9TLrGsz8LNWfk +j5YxGODkEVoduT0Lfc92zF9gMcBhyiiqnycLiZTPGhjLMuDO+lVVwaTX6GHn +90gVRQZsd1m5NJOXifQ5uyXGNAleG62LmspAxhtVudi1GNA73pQ+9ykD2fJE +/NyqTei3tcyY5mcgL4EzlSd1GBB23UTz0X8ZqFjik1npMQYcTKmtEtiSgehq +9SlhZxlQn859o+JAOpqzKpLTsGSA3/NFB84Xaeipy70KJysGtO+LK9MPTEPI +U+P0C2sGXPa2rS+6mYYC4j7c4b7GgKhKzrft+9OQZOdgQ+cNBqxy0k7rtr9A +5zU3WNneYYBxwv6PfFwvUKXYheQnQQzopux6Y+2RgizlJNTqHjEgwfjE8IBN +CuLdM9q0FMyAan6dbuvTKejiGfsFo8cMaAx0za9npaBFfw8N2acMyORJexdX +n4xk/6YPlsUz4J2fSWGcYDJ6/HlF9HsuA04U54zrlSWi0Gb9rYL5DGiZXvdx +Pi0RBde/xA8WMMCCO5Mz/UkiCig/tyW6iAFa/CeZZ68lIs/0XE69MgbkfFKY +iRZNRC4etvMF74n/dzy50Hc/AV1Q7Kvz7mFA7nobPOFcPDovr1ib20v4LRo/ +lq4Vj87J+FUN9jEgf+5wUK1SPDotrlq29wsDVqwbJnbxx6NjG8NyZoYZwLFu +k9JgQxxCw0diDKYY0Dk+oe6pHocYj986SLExQZ7hvGfWOQZ12RarATsTju1b +vnDFMAYFaRX9O8fBBEEdF4OFvTHoz998fz8SE1a8ZG5dZY9BTcbZiVOcTFi+ +35YaEfgcOcqnfc7hZ8Lv3fEHNqRHo5r6cEVgMMHw0F2T4L+RyDXxyd9zTCZI +TM+W6n2JRDvcwspvsJhQUfLor0xNJIrcEXokUYoJQV0CuZIhkcguItAMk2OC +/fhgpZZsJBIyf/i4SYkJORInJ7hNnqGrbDfnz2kxIcArG9G+RqD8kY4rvtpM +2JSzAfprIxCpfm9H0WEmKCtvO5PzKgIlhJCLhI8w4eppi7Ov7kSgPvqze30n +mPDIyXysHY9AJw9VcBkbMkFqG4UybBCO9vrxSFy1ZYL/L0099e9hyM/OISTi +GhM0ZSJCeFvDUNepLo46OyZEj810LbwNQ85bE0albzDB+0CxKCk4DGVl7E6f +cGLCTo1ANkW1MMRquahs9x8T7sjPu5Q9eox4BdKPOoUyQdTIpW/uaCgS6Czw +CnnMBKPby87v9oQi4cjqildhTNg+c6wmXjoUMSUGlMbCmdBN6toTQQpFe+T4 +RQ2imJB6hu+tfmkIstB0mVJNYgKXy9Um0q4QVOaoEbSSR+Rv/VFSl1QwqlbR +q8MLmMB8dne2lBKM6pcucuwuJPJpER6Rsz4Ytbk7O18rZkLyJv78qJZHaCIg +7fJAGXGf03W7bp98hASTeRUq3jNBP+6QxeT5IGTb3tvi0U08F/u6MOkRgOo9 +XR0ie5iQUmE0vXY1AEkqUylveplQdvrQu21HA9Bg+NnLA/1MGPcVe9QuEIDO +nvs0qTrEBF3v8c1XU/0R6q3lmp5gQtibJXXbT35o8+AbjXMrTJhrTRg0UPVF +9iF63+xWmRB81IAWLu6LmtRn/DzXmNCww/bgJOaLvBLkWrPZWCBmJtvypd0H +LZulGnOTWRDK75406OiDRsai3Sq5WVAY2LFxf4E3Kpj0LpATZ0Gymrpi6VEv +lJkagF2QYMFc7q+Un0peKMk05IwvjQUP88QFkagXCu2KnB9lsCDyfL4rc9oT +2Va/UoiVZsGe64+ThUI8ET36cyr/LhZMNO6Le9D7EAUdEX+6qMmCuImu4y33 +PZAnxvzG1GLBxQ3TV+dtPdDdd9LK+tosEDKLu7X9nAeyUtnV9lqHBT+ankoO +y3sgTcYhPqvjLNAJ7VU/1f8ALS1Z+/QasMCxZZEld+ABsniZf6vCmgV1Sy+D +VXnvIwFNs+AeGxb8ZXY2yqy5o3f9vC8WbFlQv66hc9uUOxLht+qUtmfBSLEq +zbTRHbW6bFUOcWDBpeZfBU983BE65D5vcpcFXIwnWzZi7gj/qmO3LogFH20C +xx9S76Ha24ueoo9YcCrG+M/lZTfksCXxuUowC6yVoz6f7XdDzVorTTahLLjc +vnwnNt4NPXyVua0tnIivloZDyDY3NOu6ZTwplgV9bDy6XzTvonrBfjOtNyyo +cF40MQ1wRROOe3TvZxP3D5TueGHnija0RewoyWGBM6Ysw3fSFemGnlrdmc+C +Dc+t+0HIFTXw1IWLvmVB5mvheMmE26hpfU79QjULdv1KZI2W30LNf30UEruI ++N1TwA5udkHT58YEB7pZYJaYsc70jzPiKdRYwXtZ8Mb7b1bMgDM67rxWF9TP +gp/nt8dcS3dGLXMOpq5DLJA6csn4spYz+vjj8pOTkyzQfB/Rff2+E5rVLbkT +MMUCz/BY52NWTojvJdX0/TThZ2PHgOZJJ6Rn2Sa//yeRH5e1KA+aE/o0olMn +vcgCNbdjMfurHNGcRmqm2W+iXl78s5xKd0SbE0lPYv6wICrfCC8Ic0SnTMpN +BJZZUB2yLTfCwhHdrBA5fGKFBQ9czCwzTziiUHFXeb9VFpTuGgweUHVE2fc6 +BWrWiHifbOeXpjui1n6l5X//WJDwN7DFb6Mj+h8yN0dJ + "]]}, "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., 2.865729783395331}}, + "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:eJwVlnc8Vf8fx9G9JyqrcM+VdZeVqMhofd4ioqVU0rIiKyqrlL5K9giJQvZI +JNlkZWVFyV5lFlkhldXv/P66j+fj3PP6vD7veWim9qfMOdjY2CLY2dj+/3tR +M5yLjY0P8hlzKtFzk+jrwettuzj4AIocUjz+TiIzdd1YcxIfHO54jjuwTSHr +A2tKjZx8wDcTglvzTKFbqhbG4fx8MMXBWi6UnUJhcsoFcgw+6JI2H+u/MoWa +BDquGGrxgfBn33rjL1NIb0uWQsBhPsjTn3+m920Kfeb3WyrT5QPXK64zh2em +UA/PgWDmCT64aH9bTf/fFPrOmfJ2xoAP9p1vy2sWn0akVafNXlZ84KBDzrhi +Oo32jQpWZAfwQV0Sf7fk9DSa+/N2UOARH1gdMn/48/c0Sttkus4lhA9UZZrL +a9lnkJBSptbecD6gWX/6Eyw4g34+0PpQFcsHzqekZ5P2z6AUCZeetmw+OJU1 +8b750Qziu9i1sNjFByVHbT8xxGbRSGukzF4WP/ymtZrr984izqTgPkcpftBe ++/xbYXAWyTl5PcqU4Qe9kQ+B/N9mkRPl5i+aPD/kPTNqGJ6bRdhFnXecKvwg +u1c7pXrDTyQ9+vtcx2F+MC3VHLy19yey/X3a54YtP4xJ7XPNjvuJFrbyfkvN +4YfDJCmXCNc5VPde+lpHHj9cj4jUenp/DkU7HJwnFfLD1eIUoRifOaTR6PTP +pIQfrjzxLCoMn0Ohrn0UkRp+iJi25JPNmUM7utMOB3fww3D6V9bq5ByyCdd8 +eesvP+xuzZI3vzKPhvhcr+mgzfBhD9l4h+kCijg1kVLRsRnm05ZMahsXUd6M +jpLIlS1AuXjE1+jcXxTVnel4bHULzCWUFSkYraDL9hvu5TwWAOzXSqPow3/I +z/hM76q4IBRjG5uGDrCDW0zyD9FCQYhZCC9pbOaAbpXRE3QtIXhT7zT+gEmC +ab5IpROHhaBYg3PlqgwJOCaOU+/qCgG/gOcmXXkSyEUXDrUfF4LjHX2CZFUS +uLMFOPkaCIG+UYre2SMkkK7fFTVrKQQ5x+hxJjdI4HzefazMXwhGJTdXrhaT +wF9xd+OPQCEIF9h20LWcBHGbJl7jwUKwLYGsOl9FgoYy/ds3w4Sg4/t1x54m +EogypDZJPhcC096MErcBElT/+LAzMJPQk5Ze3MJOhs1uW90ufBKCoNf/vppq +kOG8TXRhwWchWJSyMCvVJkOCoejClg4h6NEuZ2w5SoZdyuI2TT1C8M3gjW7W +aTKcmqEb7h8RgpFv2mlZ5mQINZHdLf5bCCxTRR1rvAh9LbWpIREKWOksOIvV +EPpKxdJInAIa4W4+nXWEPn3vlSgaBZ6XnNTwbyL0/+3r1ZekwNJN18Shz4R+ +IdRXK1BATOzQE70hQl/2cHLKQQqMuqj7s9bIsIXX4JK1JQXi5U7sjdiJQV2x +lGyMNQX+STk1WylhcM/iz+InWwoMm6cdUVHBYKL0WbDaDQoMRJ/+U7kPgwrb +vipOVwrY2p+vi9bGwK7BRDbVnwI8NbrlBhcxYDrv+t0TSIH1cWERnZcx6Kat +q+YJpoBarLHcKRMMNG8nXXIOo8AxcoW7igUGW6W/BR96ToHmZ9f9Ku0JP562 +v4czCf1hha+d9wk/O/dXU95QoGu/5mGOhxgo9nOHHMmhQDm3gKaUFwYxSq9l +cwooMC9oOmXsh4HT8M9LDyoocH+jak1oKAZ0dZdqiVYKZLJHBU3HY9A1qR1y +uo0Cv897iL9LxCDwKX7Zp4MCi8etJYKSMfgzU/R7pocCd3iXrShpGLTErMiW +D1Ogkr9yeOw1BndX7odc+kUBCQVU4VKCgXmpWF7FbwpM6ipW8ZZhcPze2y7G +EgV0ajio8eUYiLP9Ep9YI+JHds59XYlB5TrLTGdOHAK5Je3v1mGQXk1q7d6A +g9RL1Q8D9RiEecb/2seNQ1nb9Wt7Ggn99b371m3G4ammj23/Bww4Nx5vfLQV +B3d39x2trRj8bJyYnhPFQa4533rtMwY9Ad6bz0rgMOxyuIvRTujzvDMUYeGw +92iG1vlOwt9mpe8v5HGgvLt+0KkXA5XPHzdu2omD4AGtces+DCTCrinYK+Lw +KDg237Cf0BdMdd6tioOmwfpy+hfCH1WYXKmOw5N0XyPTIQzcevKlWZo40GaY +W2jDGFhE6R/10SJ4p/lQF8EqooGPjx/BwVV1pVlxlNAfkCl4cwyHrOyl8Q6C +OWNrewT0cDj/bGqrwxjhX4KN3nsah8Z/BhXh3zCoGow+dMAAh+PyBTvEvmOQ +kaBmFW+IwznZnpwYgsPMOgJIF3GQ7qo7jI8TfpgOWVcv47Cd+Xjaj2CLUd62 +BmMcwkknkxYJPp6S8Xu7GQ49rnSrCxOEH+mxAwtXifPsX4jw/cCAa/yBqYE1 +DnbKNVzGBM+liXsV2+JgzKrlSCO4x7okTdQehzq/eewHwVXbDD+438Ch9P1z +QclJwt/kr9lhBxw0TorKnyc47FWogLYzDgfftJ7wJtjNTkH15S0cArwlXV8R +bKHQdIH7Dg5Rfr4ZTQSfmLX877obDuDjODZCsOobcuLn/3DwsLCUWiSYdjOh +VvkBDkrMaTu2KQw2KKKJZw9x0OsOL1lH8Px8L/eqFw4dBcu8/3/el3trp7Ev +wRvLLH8R71c7CZ6p8seBd5937TDBr5Szb0kG4SDWwCnTSLBW6037e8E4+PvO +KWYQPHBN0aIjFAdz9h4PL4KduRYuyj/BQbjYH////XiSc/W9InCor+r9+f/7 +p4CT7sAzIv/5ybxTRHwO9O1WV47G4V5W040MgjtcFlWCYnCwMtyLmxNst6VA +fiwOh5cDwxwUgrHXLqwDiYTfhfKdlUR+YnRVRcKTcdjS+THJgmDlsT+bp1Nx +8NESv0giuOV+EZfWSxzW+b01iCLyaynqyhaTgYPltdKIbQSzFe35/SuT8Kuu +KZJH1MuO2bcjyTk43Ar0mM8h6qvO/27vah4Ou1XitGQINpba33qmkDh/54Yv +EUQ9hlwuKyeX4vCDc/CrMVGvskv38i+VE/W2dVr37QjRz0/Qq7x3OJR/81nm +IXiuqSLSvBYH9btLOxOI/vCzvB9SWkfk/9KrwsFBYh6RDvoINhL9J53iLUyw +/t4qp5oWwm+nA9stor9y02r0WN04yIRZXRsi+vPoIS9tt14ccFt2rckeDEa+ +ah1o78eh1yvPZqYbA0G8bpvnEA6ePdbxg0R/O3s1YKM/cHB8c7PJiZgHPHT/ +1X3TOGQb0Zi6xLxIKT2yEDZL9LfE8xbKJww6F5oGNX/hoLz/Kyu2mag3s5aS +pDUcFLntJi8R8+jj2qOcFTYqzP+W/bfynohvpN7L0+uooMG+z+5JLQbPPn2K +IHFSweeOtEV2FQZLqO3mFX4q8EiYfY0uxaBEpFuayaQC50yNwu4sIl5O41n6 +klSIuHe80jeTiH/zX1UPaSrwGa7Fd2Vg0OYurDMkR4X9pbLHzYn5+2PkglXc +biq4c4P7ngQMhF8NpIloUyHuKhbSTsx3CWxm51EdKrhES8W3BGMgafSv6M4R +Ksjz7xCqDsJgF79EQ88JKhxyfr47mtgPOk4mE0/PUWFG/NltrgcY3No/Iito +TZyXfyipm9g/98IXsjVtqSDF8afN9RoGD2dIex3tqCDZ6eotZINBcDzryOeb +VDDl7Lu9n9hfqeSrNiF3qOAc7NmkQ+y/jg/j6dyBVPCj7129ROxHxcszclgW +FTj+bGc9pGJg29S40TybCuz2pBcqQhgk7XkxUZVLhU82IhtGN2MgRDF5cb+I +CliF7O3tm4h4trQyViupQA+oN3Ii9neler7wQjsVzB4v6Y4MEvue5cY5tEyF +j42haQZJZPB/bPgN1qjQRLPvOxZHhmp25dpYNmGQ4rpheiCaDMoD0x6XyMJg +Et3qwhNGBuEI439dPMKA30lVtfEgwxCn5mILTRgWbvxIFTYhw83JDSOl2sKw +1fn9iB1OBhxXOb2gQ7yfSZfhFCBDuYZZtexRYUhU852L5iXDpqi3SRF6wjDk +c4xRhJEhVcfW/IahMIi2KZmXLJCgL+XDGNNGGCbodoU/W0igZRI87h8kDGvV +Qgm7PEhA7RCcMWwnWG2Na7p/HfhsknzVaLcVXt9TINfrckD7tJzSTbIIXKBd +N+0PYwM/OQbvaogIODXtfRfbuorWF4g9vyQrCvpcab94FJbQZDTXfwmFoqD5 +bXvs0uAiei3/Q0ZEUww+sOa21X2aR2rcrd42vWKgoYFwrXfE97z2C7VYS3Fg +H8FK3htOovkx9RNtbBJQZQNVLMtvCLFts5g/IgEd2X7m1N3DCL3fmEoKlYAK +HXp5QPYXtHDaKULpsQREvtSeyYj4gl4ODXhfCZOAltnVoS93vyChtTeW1eES +sM3y6W837S9oUumc7MMoCWBPTiZH9g+gpwlJr9YlS0BawnbmEe4B9NNtfy5H +oQQENDR1XnDtQ4lK9u/YBiTg/m0/ubu+3Ygv3t1V5AvBBWpXAh270V3uUEXV +rxJwjI+875VRNzo9lptsPyQBjOqqLFy5G2FPl3wHxiSgYOzE7PPhLmS17Hmq +ZEYCrvkJN19Q70IKldHDLuw0uMEzPOe4vhO9PdFAnmHSgP+VDDwraUPuadek +yZI0yLeePu6Y3oY01/Ef2SpFgz/3vSsvRLahpnyDYG0ZGrg0/yo9casN9YmO +Csdtp8Gl79jxRqU2tPLjn8JJZRoYMecFN2Z9Rgd8dp/P0aZBWuL36/+9bkWV +FXGZLtY0uHnwT3nzx49IgvXybrINDXCX/grDdx+Rm2+O7mdbGkRdybT/+eYj +Uj1VOyZvT4NXKV75Wo8/otfDP8TGHGggHBBD9jn7EUVjKo9Ou9Eg+q6adGlZ +C3I5+sF+ZzAN4hO5zLUWPiC5rr87fuTRIH3bz7LYpAYEW9Pfkwpo0DiceG5f +YAM6c/niZbFCGqjMdz774dSA7o2U+Z8spsHyYtXgfe0G9HHWY6ygjAZnw2N2 +BvyoR45cPNEP39Pgi56tArdKPSrZQ18v1k0D7u2S7ra979GR57r9eis02HE1 +LoPHoAYtTZiIP1gl9J54ulw6WINeqN42yVmjgf/34LKy7TWI1JY6KshOh6cG +FT6FpBpUsoE83UOmw3vDpw+9c6qR3K3ytSu8dAhWJU14CVSjTfpKErfpdLjK +02OUPlyJmjnFzOIP02HE/K1SQk4FUtzdf61Mhw7MlrK4fUkV6KlJ9K1eXTrc +1TqqOxJWgUyLhYMEj9FhfTeH/AXnCvTLhlLke5IOcw4k2phaBRJp4eO9eZ4O +R41CaR+9ypH1k3VvD9rSYVBeentWeSki08c3jzyiQySDvSzvVjGq3LvHezmY +DueVQ9vtjIvRvTP+y5tD6SA6PDC673Ax+uOzfUQ9jA4aPAmvKXgxmpi5kRf7 +lA6U2jJ6bWERai5dMrgQT4eegiv//VktRE8NNz1vzSbuzxbRrRlRgLaFKEi9 +a6dDbOGCrixHHnqQN6Y120GHqVfgyD6Vi7q6n1uId9GhPNmwZ7IzFz2kb0px +66EDO4+OEFtmLurL+c7c84UON2O0TYQu5KKgjnh6znc6xB3o45kvzEGzWwXE +kpfp8Npjc8GvB9koN+WPgC+NAWu7gnYFH81C79IMVhPpDIg9TLrGsz8LNWfk +j5YxGODkEVoduT0Lfc92zF9gMcBhyiiqnycLiZTPGhjLMuDO+lVVwaTX6GHn +90gVRQZsd1m5NJOXifQ5uyXGNAleG62LmspAxhtVudi1GNA73pQ+9ykD2fJE +/NyqTei3tcyY5mcgL4EzlSd1GBB23UTz0X8ZqFjik1npMQYcTKmtEtiSgehq +9SlhZxlQn859o+JAOpqzKpLTsGSA3/NFB84Xaeipy70KJysGtO+LK9MPTEPI +U+P0C2sGXPa2rS+6mYYC4j7c4b7GgKhKzrft+9OQZOdgQ+cNBqxy0k7rtr9A +5zU3WNneYYBxwv6PfFwvUKXYheQnQQzopux6Y+2RgizlJNTqHjEgwfjE8IBN +CuLdM9q0FMyAan6dbuvTKejiGfsFo8cMaAx0za9npaBFfw8N2acMyORJexdX +n4xk/6YPlsUz4J2fSWGcYDJ6/HlF9HsuA04U54zrlSWi0Gb9rYL5DGiZXvdx +Pi0RBde/xA8WMMCCO5Mz/UkiCig/tyW6iAFa/CeZZ68lIs/0XE69MgbkfFKY +iRZNRC4etvMF74n/dzy50Hc/AV1Q7Kvz7mFA7nobPOFcPDovr1ib20v4LRo/ +lq4Vj87J+FUN9jEgf+5wUK1SPDotrlq29wsDVqwbJnbxx6NjG8NyZoYZwLFu +k9JgQxxCw0diDKYY0Dk+oe6pHocYj986SLExQZ7hvGfWOQZ12RarATsTju1b +vnDFMAYFaRX9O8fBBEEdF4OFvTHoz998fz8SE1a8ZG5dZY9BTcbZiVOcTFi+ +35YaEfgcOcqnfc7hZ8Lv3fEHNqRHo5r6cEVgMMHw0F2T4L+RyDXxyd9zTCZI +TM+W6n2JRDvcwspvsJhQUfLor0xNJIrcEXokUYoJQV0CuZIhkcguItAMk2OC +/fhgpZZsJBIyf/i4SYkJORInJ7hNnqGrbDfnz2kxIcArG9G+RqD8kY4rvtpM +2JSzAfprIxCpfm9H0WEmKCtvO5PzKgIlhJCLhI8w4eppi7Ov7kSgPvqze30n +mPDIyXysHY9AJw9VcBkbMkFqG4UybBCO9vrxSFy1ZYL/L0099e9hyM/OISTi +GhM0ZSJCeFvDUNepLo46OyZEj810LbwNQ85bE0albzDB+0CxKCk4DGVl7E6f +cGLCTo1ANkW1MMRquahs9x8T7sjPu5Q9eox4BdKPOoUyQdTIpW/uaCgS6Czw +CnnMBKPby87v9oQi4cjqildhTNg+c6wmXjoUMSUGlMbCmdBN6toTQQpFe+T4 +RQ2imJB6hu+tfmkIstB0mVJNYgKXy9Um0q4QVOaoEbSSR+Rv/VFSl1QwqlbR +q8MLmMB8dne2lBKM6pcucuwuJPJpER6Rsz4Ytbk7O18rZkLyJv78qJZHaCIg +7fJAGXGf03W7bp98hASTeRUq3jNBP+6QxeT5IGTb3tvi0U08F/u6MOkRgOo9 +XR0ie5iQUmE0vXY1AEkqUylveplQdvrQu21HA9Bg+NnLA/1MGPcVe9QuEIDO +nvs0qTrEBF3v8c1XU/0R6q3lmp5gQtibJXXbT35o8+AbjXMrTJhrTRg0UPVF +9iF63+xWmRB81IAWLu6LmtRn/DzXmNCww/bgJOaLvBLkWrPZWCBmJtvypd0H +LZulGnOTWRDK75406OiDRsai3Sq5WVAY2LFxf4E3Kpj0LpATZ0Gymrpi6VEv +lJkagF2QYMFc7q+Un0peKMk05IwvjQUP88QFkagXCu2KnB9lsCDyfL4rc9oT +2Va/UoiVZsGe64+ThUI8ET36cyr/LhZMNO6Le9D7EAUdEX+6qMmCuImu4y33 +PZAnxvzG1GLBxQ3TV+dtPdDdd9LK+tosEDKLu7X9nAeyUtnV9lqHBT+ankoO +y3sgTcYhPqvjLNAJ7VU/1f8ALS1Z+/QasMCxZZEld+ABsniZf6vCmgV1Sy+D +VXnvIwFNs+AeGxb8ZXY2yqy5o3f9vC8WbFlQv66hc9uUOxLht+qUtmfBSLEq +zbTRHbW6bFUOcWDBpeZfBU983BE65D5vcpcFXIwnWzZi7gj/qmO3LogFH20C +xx9S76Ha24ueoo9YcCrG+M/lZTfksCXxuUowC6yVoz6f7XdDzVorTTahLLjc +vnwnNt4NPXyVua0tnIivloZDyDY3NOu6ZTwplgV9bDy6XzTvonrBfjOtNyyo +cF40MQ1wRROOe3TvZxP3D5TueGHnija0RewoyWGBM6Ysw3fSFemGnlrdmc+C +Dc+t+0HIFTXw1IWLvmVB5mvheMmE26hpfU79QjULdv1KZI2W30LNf30UEruI ++N1TwA5udkHT58YEB7pZYJaYsc70jzPiKdRYwXtZ8Mb7b1bMgDM67rxWF9TP +gp/nt8dcS3dGLXMOpq5DLJA6csn4spYz+vjj8pOTkyzQfB/Rff2+E5rVLbkT +MMUCz/BY52NWTojvJdX0/TThZ2PHgOZJJ6Rn2Sa//yeRH5e1KA+aE/o0olMn +vcgCNbdjMfurHNGcRmqm2W+iXl78s5xKd0SbE0lPYv6wICrfCC8Ic0SnTMpN +BJZZUB2yLTfCwhHdrBA5fGKFBQ9czCwzTziiUHFXeb9VFpTuGgweUHVE2fc6 +BWrWiHifbOeXpjui1n6l5X//WJDwN7DFb6Mj+h8yN0dJ + "]]}, "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:eJwVV3c8lf8XR+4TlVW4z5Vxp5WoyGh9johoKZW0rMiKyiqlr5I9QqKQPRJJ +NllZWVGyV5lFVkhl9Xt+f93Xeb3uc17nc855j0MztT9lzsHGxhbBzsb2/9+L +muHcbGz8kM+YU4mem0T7RoUqsgP4oS5JoFtyehqNtEbK7GUJwG9aq7l+7yxa +2Mr3LTVHAA5zSrlEuM6hIX7XazpoM3zYQzLeYbqAIk5NpFR0bIb5tCWT2sZF +lDejoyR6ZQuQLx7xNTr3F0V1ZzoeW90CcwllRQpGK+iy/YZ7OY8FAfu10ij2 +8B/yMz7TuyohBMXYxqahA+zgFpP8Q6xQCGIWwksamzmgW2X0BF1LGN7UO40/ +YHLCZretbhc+CUPQ639fTTVIsIXP4JK1JRni5U7sjdiJwd2V+yGXfpGBqoAq +XEoweKWcfUsyCAfxBi6ZxkkMSkS7pZlMCnDN1CjszsJA8fKMHJZFAY4/21kP +KRjcnNwwUqotAlud34/Y4SSgdAjNGLaLwJraGvd0/zrw2ST5qtFuK7y+p0Cq +1+WA9mk5pZskUbhAu27aH8YGfnIMvtUQUXBq2vsutnUVrS8Qf35JVgz0udN+ +8Sosoclo7v8SCsVA89v22KXBRfRa/oeMqKY4fGDNbav7NI/UeFq9bXrFQUMD +4VrvZpGc9gu1WEsJYB/BSt4bTqL5MfUTbWxUqLKBKpblN4TYtlnMH6FCR7af +OWX3MELvN6ZyhlKhQodeHpD9BSUq2b9jG6DC/dt+cnd9u9HbEw2kGSYNBF7J +wLOSNlRZEZfpYk2Dmwf/lDd//Ijkuv7u+JFHg/RtP8tikxrQkee6/XorNNhx +NS6D16AGNXOJm8UfpsOI+VulhJwKRKKPbx55RIdIBntZ3q1itC1EQepdOx1i +Cxd0ZTnyUG7KH0FfGgPWdgXtCj6aheasiuQ0LBng93zRgetFGnr8eUXsey4D +ThTnjOuVJSLG47cOUmxMkGc475l1jkFX2W7On9NiQoBXNqJ9jUB8gulHnUKZ +IGbk0jd3NBTZtve2eHQzwVv868KkRwAqmPQukJNgQbKaumLpUS9k8TL/VoU1 +C+qWXgar8t1H9UL9ZlpvWFDhvGhiGuCKWvuVlv/9Y0HC38AWv42OqEmw44qh +Fj+IfPatN/4yhfgvdi0sdvFDyVHbTwzxWWT7+7TPDVsBGJPa55od9xPZhGu+ +vPVXAHa3ZsmbX5lHzufdx8r8hWFUcnPlajGxr1pqU0OiZLDSWXAWryFBnaft +7+FMMtgOK3ztvI9BGEWEVKmOw5N0XyPTIQxy02r0WN04yIRZXRvqxeDW/hFZ +IWsK7M8/lNRtj8EplhvX0DIFPjaGphkkkUDLJHjcP4jYz2rhhF0enPDTbX8u +RyEVAhqaOi+49iGFyuhhF3Ya3OAdnnNc34kO+Ow+n6NNg7TE79f/e92KXI5+ +sN8ZTIP4RG5zrYUPqGQPfb14Nw14tku62/a+R5v0lai36XS4yttjlD5ciayf +rHt70JYOg/LS27PKS9FTw03PW7Pp8J4tolszogDNbhUUT16mw2uPzQW/HmQj +fa5u6pgmA7avjdZFTWWgSvELyU+CGNBN3vXG2iMFXVDsq/PuYUDuehs84Vw8 +qqkPVwQGEwwP3TUJ/huJ9vrxUq/aMsH/l6ae+vcwVOaoEbSSxwSh9Uc5u6SC +0ebBNxrnVpgw15owaKDqi4KOSDxd1GRB3ETX8Zb7Hgj/qmO3LogFH20Cxx9S +7qHmvz4KiV0s0LmngB3c7ILC5JQL5Bj80CVtPtZ/ZQqlUF162rL54VTWxPvm +RzNIevT3uY7DAmBaqjl4a+9PtKM77XBwhwAMp39lrU7OIen6XVGzlsKQc4we +Z3KDE0JNZHdL/BYGy1QxxxovEtg1mMim+pOBt0a33OAiBlwbjzc+2oqDu7v7 +jtZWDHbMvh1JzsHhVqDHfM43DEReDaSJalMg7ioW0h6KQaV6vshCOwXMHi/p +jgySoC/lwxjTRgQm6HaFP1s44WlC0qt1yVRIS9jOPMIzgKyWPU+VzFDhmp9I +8wX1LrTy45/CSWUaGDHnhTZmfUbRmMqj0240iL6rJl1a1oIcuXmjH76nwRc9 +WwUelXokd6t87QofHYJVOSe8BKuRaAs/383zdDhqFEr76FWOmkuXDC7E06Gn +4Mp/f1YLUVBHPD3nOx3iDvTxzhfmoIed3yNVFIl5u6xcmsnLROc1N1jZ3mGA +ccL+j/zcL5CLh+18wXsGWHQ8udB3PwE5yqd9zhFgwu/d8Qc2pEejk4cquI0N +mSC1jUweNghHFpouU6pJTOB2udrEuSsEod5a7ukJJoS9WVK3/eSH6NGfUwV2 +sWCicV/cg96HCB1ynze5ywJuxpMtGzF31LQ+p36hmgW7fiWyRstvIc5Vp81e +VvzgoEPKuGI6jap/fNgZmEngVVp6cQs7CUJlDyenHCTDqIu6P2uNBHR1l2pq +Kxky2aOCpuMxoEqPHVi4ikOj/QtR/h8YqJq1lCSt4aDIYzd5qR6Djg/j6TyB +FPCj7129pI3BEJfmYgtNBBZu/EgVMSHyqdWnhJ1lQH06z42KA+lI9m/6YFk8 +A975mRTGCSUjNHwkxmCKAZ3jE+qe6nFI2Pzh4yYlJuRQT07wmDxDrJaLynb/ +MeGO/LxL2aPHSCiZT6HiPRP04w5ZTJ4PQiNj0W6VPCwoDOzYuL/AGy0tWfv0 +GrDAsWWRJXfgAZp13TKeFMuCPjZe3S+ad9HHH5efnJxkgeb7iO7r953QLVUL +43ABfpjiYC0Xyk6hnw+0PlTF8oPzKenZpP0zCLuo845LRQBk92qnVG/4iUJd ++8iiNQIQMW3JL5szh9zZApx8DYRB3yhF7+wRTjg1QzfcPyIMI9+007LMSVBh +21fF5Urwn/35umiiP5XrLDOduXAI5JG0v1uHgd2WAvmxOBxeDgxzkIn+/hi5 +YBW3mwLuPOC+JwGDpZZWxmolBegB9UZOxHxSdWzNbxiKgFibknnJAidMKp2T +fRhFBfbkZFJk/wDCni75DoxRoWDsxOzz4S7UJzYqEredBpe+Y8cbldrQ6+Ef +4mMONBAJiCH5nP2IPs56jBWU0eBseMzOgB/1qGQDabqHRPCb4dOH3jnV6JcN +ucj3JB3mHDhpY2oVaGLmRl7sUzqQa8votYVFqC/nO3PPFzrcjNE2Eb6Qi0TL +Zw2MZRlwZ/2qqlDSayTZOdjQeYMBq1y007rtL5Bnei6XXhkDcj4pzESLJaIm +4+zEKS4mLN9vS40IfI766M/u9Z1gwiMn87F2PALtkRMQM4hiQuoZ/rf6pSHo +7LlPk6pDTND1Ht98NdUf2Va/UoiVZsGe64+ThUM8UavLVuUQBxZcav5V8MTH +HTXw1oWLvWVB5muReMmE2+g7V8rbGQN+2He+La9ZYhqJMaQ2ST4XBtPejBK3 +AWJ+hVBfrUAGcfFDT/SGSOA0/PPSgwoy3N+oWhNK8FMPlY3ee5rAwz+DinCC +v5y9GrDRHzg4vrnZ5PQZg1TSVZuQOxRwDvZs0iH4TyTC+F8Xrwjgd1JVbTxI +UEz9ZFZ6jAEHU2qrBLdkoEV/Dw3ZpwzI5E17F1efjI5tDMuZGWYAx7pNSoMN +ccguItAMk2OC/fhgpZZsJMrK2J0+4cSEnRqBbIpqYWgiIO3yQBnhB07X7bp9 +8hFaNks15iGxIFTAPWnQ0QdpMg7xWx0n+D+0V/1U/wP08FXmtrZwwi9oaTiE +bHNDLXMOpq5DLJA6csn4spYz2ir9LfjQczI0P7vuV0no7/HNSt9fyONAfnf9 +oBOhz3NNFZHmtTio313amUDot46TycTTcxSYkXh2m/sBBi0xK7Llw2SoFKgc +HnuNgYVC0wWeOzhE+flmNBF+dAm13bwiQAFeqtnX6FIMPo3o1EkvskDN7VjM +/ipHZH1gTamRix/4Z0Jwa94pJKyUqbU3nB9o1p/+BAvNICfyzV80eQHIe2bU +MDw3izQanf6ZlAjAlSeeRYXhc0guunCo/bgwHO/oEyKpcsIuZQmbph5h+Gbw +RjfrNAkmSp8Fq90gw0D06T+V+zCQYPslMbFGxCTn3NeVGPAm5+p7ReBQX9X7 +U5Kot81dRGdIjvAjpbLHzdMwECabvLhfRAGsQvb29k0YbIp6mxShJwJDPscY +RRgJhNfeWFaHU2Gb5dPfbtpf0Omx3GT7ISowqquycOVu1JRvEKwtQwOX5l+l +J261IdVTtWPy9jR4leKVr/X4I7o3UuZ/spgGy4tVg/e1GxBnW+qoEDsdnhpU ++BRy1iDTYpEgoWN0WN/NIX/BuQL98dk+oh5GBw3ehNdkvBg9pG9KceuhAzuv +jjBbZi76nu2Yv8BigMOUUVQ/bxYKiPtwh+caA6Iqud62709DAeXntkQXMUBL +4CTz7LVE9Odvvr8fJxNWvGRuXWWPQQkhpCKRI0y4etri7Ks7EYhJHVAaC2dC +N2fXngjOUDQYfvbyQD8Txn3FH7ULBqDQrsj5UQYLIs/nuzKnPZGogFWntD0L +RopVaaaN7kg39NTqznwWbHhu3Q/CrqiH90Aw8wQ/XLS/rab/bwo1lOnfvhkm +DB3frzv2NBHz+7evV1+SDEs3XROHPpMgRum1bE4BGeaFTKeM/TBQEQt8fPwI +Dq6qK82KoxgI4XXbPIdw8Oyxjh/sxCA4nnXk800KmHL13d5vgYHywLTHJZII +mES3uvCGkcBL8EzlSR0GhF030Xz0Xwa6eMZ+wegxAxoDXfPrWSnotIRq2d4v +DFixbpjYJRCPIneEHkmUYkJQl2CuZEgkct6aMCp9g8DfgWIxzuAw1Obu7Hyt +mAnJmwTyo1oeIa8EudZsNhaIm8m2fGn3QVYqu9pe67DgR9NTyWF5D9SstdJk +E8qCy+3Ld2Lj3dBx57W6oH4W/Dy/PeZaujPSvJ10yTmMDMdIFe4qRP3pvO8M +RVk47D2aoXWeeF/I5bJyUikOP7gGvxoT798lQG3oOUGBQ87Pd0cT/fkzU/R7 +pocMd/iWrcjE/lZtM/zgfgOH0vfPhf6/388+fYrg5KKAzx1pi+wqDPQs2+T3 +/yTuB5e1KA+aEzJf37tv3WYcnmr62PZ/IPB9v4hb6yUO6/zeGkSNY+DGdMi6 +ehmH7czH035E3LnQNKj5Cwfl/V9Zsc0Y/BRKdd6tioOmwfpy+hcM9PdWOdW0 +4GDZ6cB2i4g3KKKJZw9x0OsOL1k3Rfh9k3ITwWUWVIdsy42wcERm6rqx5pz8 +cLjjOe7ANoXSNpmucwnhB1WZ5vJa9hkk5+T1KFNGAPRGPgQKfJtF0Q4H5zkL +BeBqcYpwjM8c4pg4TrmrKwwCgp6bdOU5IcFQbGFLhzD0aJczthwlwT2LP4uf +bMkwbJ52REWF4Lt7b7sYS2TQqeGgxJdjMHBN0aIjFAdz9h4PL6Jfdc1/VT2k +KcBvuBbflYFB0p4XE1W5FPhkI7phdDMG5Rpm1bJHRSBRzXcumo8EL4cGvK+E +UaFldnXoy90v6C5PqKLqVyoc4yfte2XUjTTXCRzZKkWDP/e9Ky9EtiE33xzd +z7Y0iLqSaf/zzUd05vLFy+KFNFCZ73z2w6kBvVC9bZKzRgP/78FlZdtr0FOT +6Fu9unS4q3VUdySsAt0747+8OZQOYsMDo/sOF6Ou7ucWEl10KE827JnszEXN +GfmjZQwGOHmEVkduz0LIU+P0C2sGXPa2rS+6mYaC61/iBwsIv8qTyZX+JBEF +aRX9O8dB3B86LgYLe2MQZ/3ejqLDTFBW3nYm51UEEomsrngVxoTtM8dq4qVD +kaQyhfymlwllpw+923Y0ACWZhpzxpbHgYZ6EEBLzQu/6+V4s2LKgfl1D57Yp +d7ShLWJHSQ4LnDFlGf6TruizgN9SmS4/uF5xnTk8M4XiNk28xoOFYVsCSXW+ +ipgffe+VKBoZnpec1PBvIoFiP0/IkRwylPMIakp5EXoTpX/URwsH2k7zoa5h +DEa+ah1o78eh1yvPZqYbg4cznHsd7Sgg2enqLWyDQTW7cm0smwhIcd8wPRBN +AlveiJ9btYn+tLXMmOZnIL49o01LwQyoFtDptj6dgs7J+FUN9jEgf+5wUK1S +PNrhFlZ+g8WEipJHf2VqIlHXqS6OOjsmRI/NdC28DUP1Sxc5dhcSfGoRHpGz +Phg1qc/4ea4xoWGH7cFJzBfdfSetrK/NAmGzuFvbz3kghy2Jz1WCWWCtHPX5 +bL8b4i3UWMF7WfDG+29WzIAz6qatq+YNJoNarLHcKRPCjwR4bz5LxWHY5XAX +ox0DY6n9rWcKcejYueFLxBgGkkb/iu4coYC8wA7h6iAMAp/il306yLB43Joa +lEzoeZqEV7EtDsasWo40wn9aRuq9PL2OAhrs++ye1GLA/5Ji+n6a8E8bOwY0 +TzqhMM/4X/t4cChru35tTyMGMbqqouHJOGzp/JhkMYFBRoKaVbwhDudke3Ji +vmOQUnpkIWwWh0fU5y3kT8Q9EXZNwV6RiINj8w37MaBzHvQRaiT8hXSKt8gg +cV+8ISV+/g8HDwtLqUUCb5sTOZ/E/GFBVL4RXhDmiA707VZXjsbhXlbTjQyi +Xq7Y2h5BPRzOP5va6kC8t/IJepX3Dofybz7LvCMYhL0KFdR2xuHgm9YT3kQ+ +tqI9v39l4iCirimaR9R3PCXj93YzHHpc6VYXiPr7cm/tNPYl+rexzPIX8f9Q +CVd5v1UWlO4aDB5QdURfD15v28XBD1DkkOLxdxLN/Xk7KPiIH6wOmT/8+Xsa +cSUF9zlKCYD22uffCoOzqO699LWOPAG4HhGp9fT+HJrmj1Q6cVgYijW4Vq7K +cMJ5m+jCgs/CsChlYVaqTYK6YinZGGsy/JNyarZSwsC8VDyv4jcZJnUVq/jK +MNBqvWl/LxgHf985xQyivkqn8Sx9SQpE3Dte6ZuJgW1T40bzbAqw23O+UBHG +AMdVTi/oEHqXSZfhEiTBwmmnCKXHVIh8qT2TEfEF8ce7u4p+ocL9ArUrgY7d +yD3tmjRJkgb51tPHHdPbEJX18m6yDQ1wl/4Kw3cfEWxNf89ZQIPG4cRz+wIb +0NKEicSDVcKvPPF0uXSwBinu7r9WpkMHZktZ3L6kClS5d4/3cjAdziuHttsZ +F6MHeWNasx10mHoFjuxTuehdmsFqIp0BsYc5r/Huz0JPXe5VOFkxoH1fXJl+ +YBoKbdbfKpTPgJbpdR/n0xJRl22xGrAz4di+5QtXDGNQ/kjHFV9tJmzK2QD9 +tRFIsLPAK+QxE4xuLzu/2xOK6j1dHSJ7mJBSYTS9djUAZaYGYBeoLJjL/ZXy +U8kLCWqaBffYsOAvs7NRZs0dTTju0b2fTehzoHTHCztXpLclSyHgMD/k6c8/ +0/s2hfwVdzf+CBSGcMFtB13LifkpFUsjCTJohLv5dNYRerJzfzX5DRm69mse +5nhI6GNPvjRLk+CjGeYWGsFHRw95abv14oDbsmtN9mBwL3whW9OWAlIcf9pc +r2Hg/9jwG6xRoIlm33csjgTGG1W52bUY0DvelD73KQNZylHV6h4xIMH4xPCA +TQo6L69Ym9tL8FPR+LF0rXjkmvjk7zkmE6jTs6V6XyKRn51DSMQ1JmjKRITw +tYahahW9OryACcxnd2dLycHIPkTvm90qE4KPGtDCJXyRJ8b8xtRiwcUN01fn +bT1Q7e1FT7FHLDgVY/zn8rIbmj43JjTQzQKzxIx1pn+cEdN51++eQDKsjwuL +6LxM6H3jxPScGA5yzfnWa8Q9VOd/t3c1D4fdKnFaMsS9RMVmdh7VoYBLtFR8 +SzAGXZPaIafbyPD7vIfEu0QMuMcfmBpY42CnXMNtTOD749qjnBU2Csz/lv23 +8h6DWd2SOwFTLPAMj3U+ZuWE0qs5W7s34CD1UvXDQD0G2GsX1oFEAr8L5Tsr +CTxXDUYfOmCAw3H5gh3iBN556f6r+6ZxyDaiMXVbCf/4+ePGTTtxEDqgNW7d +h4Gf5f2Q0jqCLy69Khwk+OjErOV/191wAB/HsRECb3MaqZlmv1kw8eKf5VS6 +I0oBJ92BZ8R885P5poh6qQMyBW+O4ZCVvTTeQfgx2aV7+ZfKcZDeOq37luCj +jMlfs8MOOGicFJM/T+SzFHNli8kg/NC10ohthH+yGOVrazDGIZzzZNIiEc/P +9/KsehHvKVjmYyP80c0K0cMnVljwwMXMMvOEI3LmXrgo/4Tgs2J//P/5eqxL +0sTscajzm8d+EPUoj/3ZPJ2Kg4+WxEVOoh9hZh0BnBeJerrqDuNEftrNhFrl +BzgoMaft/p+/w2VRJSgGByvDvbg58b2bnYLqy1s4BHhLur4i8lc7CZ2p8seB +b5937TARZ9/rFKxZI+7Jk+0C0nRH9D8MdEdJ + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1XV41lUYBuDRXWN0jNGM7u6OMUCRsAAlBBVJ6ZiKSscok8YARMFuFJNG +BbtbUFFQ2vu9/OP+3uc8u65933fO+W0pw8b2uzVLQkLCai8xu3i5aL7EHfSj +IcP1ZflU3sA4stJVd8l8mTu5gkZko5ufXTZf4S6upDHZ6R5vxqvGPPrThBzk +JBe5yUNe8pGfHvE5eU2+m6toyghdOT6TNzKeAvTUZeV1+R4G0IyRuvJ8Lm9i +AgXppcvGHvleBnK7dR1OyLtpzijrZL6QNzOR6dYN+FN+jkKkWWfnDXk+s+Um +nJYHMUWuy0n56dhzuQVn5RbcJFfgy/j8Zlu2yHPNZiznH+uFZkcmyTPMhizl +VLyv2Z6VPB9nYbZiBeetF5mdWEVh695mDpbwZuyz2YZMFljPMZuyjDPWC8wO +DJanmvX4PfbPbMczcTfMlpyTWzJaTuEreSsZcnP+lSczU27EX/ILFCHdOid7 +4/tyNdOs6/OH/CytGGNdka/lR+L8SKSPLhdvxXfmGlpzs64S38iPxplQlL66 +3LwtL+Za2pBEMYpTgpKUojRlKEs5ypMcz5DfkYd35CVcR1sqxPOiz8u78lKu +px0p8bzo8/GevIwhtKdiPC/6/LwvL2coHagUz4S+APvkFQyjI5Xj/usLsl/O +5AY6USXuur4QB+SV3EhnqsZdjbvBQXkVw+lCNQbri3BIXs0IulI9zkifyGF5 +DSPpxi26ynwrPxb3hhpxJrqiHJHXMoruxB+pKnwnPx7nTmqciS6Jo/J98bzQ +g7G6qnwvb2M6NWPvdcX4QL4/7iE9uU1XjR/k7cygVpyHrjgfyg/E3aIX43TV ++VHeEfeV2nFGuhJ8JD8Yd4s0xutq8JP8BLOoE+emK8kx+aHYF3ozQZfKz/JO +ZlM3zlJXiuPyw7EvpDNRV5Nf5CeZQ704X11pPpbXxb7Qh0m6WvwqP8Vc6seZ +68rwibw+9oW+TNbV5jd5FxnxHawb87f8IvPk1lyQF5uds/z/f6WB9X9DQ684 + + "], 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]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 2.865729783395331}}, + "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:eJwVlnc8Vf8fx9G9JyqrcM+VdZeVqMhofd4ioqVU0rIiKyqrlL5K9giJQvZI +JNlkZWVFyV5lFlkhldXv/P66j+fj3PP6vD7veWim9qfMOdjY2CLY2dj+/3tR +M5yLjY0P8hlzKtFzk+jrwettuzj4AIocUjz+TiIzdd1YcxIfHO54jjuwTSHr +A2tKjZx8wDcTglvzTKFbqhbG4fx8MMXBWi6UnUJhcsoFcgw+6JI2H+u/MoWa +BDquGGrxgfBn33rjL1NIb0uWQsBhPsjTn3+m920Kfeb3WyrT5QPXK64zh2em +UA/PgWDmCT64aH9bTf/fFPrOmfJ2xoAP9p1vy2sWn0akVafNXlZ84KBDzrhi +Oo32jQpWZAfwQV0Sf7fk9DSa+/N2UOARH1gdMn/48/c0Sttkus4lhA9UZZrL +a9lnkJBSptbecD6gWX/6Eyw4g34+0PpQFcsHzqekZ5P2z6AUCZeetmw+OJU1 +8b750Qziu9i1sNjFByVHbT8xxGbRSGukzF4WP/ymtZrr984izqTgPkcpftBe ++/xbYXAWyTl5PcqU4Qe9kQ+B/N9mkRPl5i+aPD/kPTNqGJ6bRdhFnXecKvwg +u1c7pXrDTyQ9+vtcx2F+MC3VHLy19yey/X3a54YtP4xJ7XPNjvuJFrbyfkvN +4YfDJCmXCNc5VPde+lpHHj9cj4jUenp/DkU7HJwnFfLD1eIUoRifOaTR6PTP +pIQfrjzxLCoMn0Ohrn0UkRp+iJi25JPNmUM7utMOB3fww3D6V9bq5ByyCdd8 +eesvP+xuzZI3vzKPhvhcr+mgzfBhD9l4h+kCijg1kVLRsRnm05ZMahsXUd6M +jpLIlS1AuXjE1+jcXxTVnel4bHULzCWUFSkYraDL9hvu5TwWAOzXSqPow3/I +z/hM76q4IBRjG5uGDrCDW0zyD9FCQYhZCC9pbOaAbpXRE3QtIXhT7zT+gEmC +ab5IpROHhaBYg3PlqgwJOCaOU+/qCgG/gOcmXXkSyEUXDrUfF4LjHX2CZFUS +uLMFOPkaCIG+UYre2SMkkK7fFTVrKQQ5x+hxJjdI4HzefazMXwhGJTdXrhaT +wF9xd+OPQCEIF9h20LWcBHGbJl7jwUKwLYGsOl9FgoYy/ds3w4Sg4/t1x54m +EogypDZJPhcC096MErcBElT/+LAzMJPQk5Ze3MJOhs1uW90ufBKCoNf/vppq +kOG8TXRhwWchWJSyMCvVJkOCoejClg4h6NEuZ2w5SoZdyuI2TT1C8M3gjW7W +aTKcmqEb7h8RgpFv2mlZ5mQINZHdLf5bCCxTRR1rvAh9LbWpIREKWOksOIvV +EPpKxdJInAIa4W4+nXWEPn3vlSgaBZ6XnNTwbyL0/+3r1ZekwNJN18Shz4R+ +IdRXK1BATOzQE70hQl/2cHLKQQqMuqj7s9bIsIXX4JK1JQXi5U7sjdiJQV2x +lGyMNQX+STk1WylhcM/iz+InWwoMm6cdUVHBYKL0WbDaDQoMRJ/+U7kPgwrb +vipOVwrY2p+vi9bGwK7BRDbVnwI8NbrlBhcxYDrv+t0TSIH1cWERnZcx6Kat +q+YJpoBarLHcKRMMNG8nXXIOo8AxcoW7igUGW6W/BR96ToHmZ9f9Ku0JP562 +v4czCf1hha+d9wk/O/dXU95QoGu/5mGOhxgo9nOHHMmhQDm3gKaUFwYxSq9l +cwooMC9oOmXsh4HT8M9LDyoocH+jak1oKAZ0dZdqiVYKZLJHBU3HY9A1qR1y +uo0Cv897iL9LxCDwKX7Zp4MCi8etJYKSMfgzU/R7pocCd3iXrShpGLTErMiW +D1Ogkr9yeOw1BndX7odc+kUBCQVU4VKCgXmpWF7FbwpM6ipW8ZZhcPze2y7G +EgV0ajio8eUYiLP9Ep9YI+JHds59XYlB5TrLTGdOHAK5Je3v1mGQXk1q7d6A +g9RL1Q8D9RiEecb/2seNQ1nb9Wt7Ggn99b371m3G4ammj23/Bww4Nx5vfLQV +B3d39x2trRj8bJyYnhPFQa4533rtMwY9Ad6bz0rgMOxyuIvRTujzvDMUYeGw +92iG1vlOwt9mpe8v5HGgvLt+0KkXA5XPHzdu2omD4AGtces+DCTCrinYK+Lw +KDg237Cf0BdMdd6tioOmwfpy+hfCH1WYXKmOw5N0XyPTIQzcevKlWZo40GaY +W2jDGFhE6R/10SJ4p/lQF8EqooGPjx/BwVV1pVlxlNAfkCl4cwyHrOyl8Q6C +OWNrewT0cDj/bGqrwxjhX4KN3nsah8Z/BhXh3zCoGow+dMAAh+PyBTvEvmOQ +kaBmFW+IwznZnpwYgsPMOgJIF3GQ7qo7jI8TfpgOWVcv47Cd+Xjaj2CLUd62 +BmMcwkknkxYJPp6S8Xu7GQ49rnSrCxOEH+mxAwtXifPsX4jw/cCAa/yBqYE1 +DnbKNVzGBM+liXsV2+JgzKrlSCO4x7okTdQehzq/eewHwVXbDD+438Ch9P1z +QclJwt/kr9lhBxw0TorKnyc47FWogLYzDgfftJ7wJtjNTkH15S0cArwlXV8R +bKHQdIH7Dg5Rfr4ZTQSfmLX877obDuDjODZCsOobcuLn/3DwsLCUWiSYdjOh +VvkBDkrMaTu2KQw2KKKJZw9x0OsOL1lH8Px8L/eqFw4dBcu8/3/el3trp7Ev +wRvLLH8R71c7CZ6p8seBd5937TDBr5Szb0kG4SDWwCnTSLBW6037e8E4+PvO +KWYQPHBN0aIjFAdz9h4PL4KduRYuyj/BQbjYH////XiSc/W9InCor+r9+f/7 +p4CT7sAzIv/5ybxTRHwO9O1WV47G4V5W040MgjtcFlWCYnCwMtyLmxNst6VA +fiwOh5cDwxwUgrHXLqwDiYTfhfKdlUR+YnRVRcKTcdjS+THJgmDlsT+bp1Nx +8NESv0giuOV+EZfWSxzW+b01iCLyaynqyhaTgYPltdKIbQSzFe35/SuT8Kuu +KZJH1MuO2bcjyTk43Ar0mM8h6qvO/27vah4Ou1XitGQINpba33qmkDh/54Yv +EUQ9hlwuKyeX4vCDc/CrMVGvskv38i+VE/W2dVr37QjRz0/Qq7x3OJR/81nm +IXiuqSLSvBYH9btLOxOI/vCzvB9SWkfk/9KrwsFBYh6RDvoINhL9J53iLUyw +/t4qp5oWwm+nA9stor9y02r0WN04yIRZXRsi+vPoIS9tt14ccFt2rckeDEa+ +ah1o78eh1yvPZqYbA0G8bpvnEA6ePdbxg0R/O3s1YKM/cHB8c7PJiZgHPHT/ +1X3TOGQb0Zi6xLxIKT2yEDZL9LfE8xbKJww6F5oGNX/hoLz/Kyu2mag3s5aS +pDUcFLntJi8R8+jj2qOcFTYqzP+W/bfynohvpN7L0+uooMG+z+5JLQbPPn2K +IHFSweeOtEV2FQZLqO3mFX4q8EiYfY0uxaBEpFuayaQC50yNwu4sIl5O41n6 +klSIuHe80jeTiH/zX1UPaSrwGa7Fd2Vg0OYurDMkR4X9pbLHzYn5+2PkglXc +biq4c4P7ngQMhF8NpIloUyHuKhbSTsx3CWxm51EdKrhES8W3BGMgafSv6M4R +Ksjz7xCqDsJgF79EQ88JKhxyfr47mtgPOk4mE0/PUWFG/NltrgcY3No/Iito +TZyXfyipm9g/98IXsjVtqSDF8afN9RoGD2dIex3tqCDZ6eotZINBcDzryOeb +VDDl7Lu9n9hfqeSrNiF3qOAc7NmkQ+y/jg/j6dyBVPCj7129ROxHxcszclgW +FTj+bGc9pGJg29S40TybCuz2pBcqQhgk7XkxUZVLhU82IhtGN2MgRDF5cb+I +CliF7O3tm4h4trQyViupQA+oN3Ii9neler7wQjsVzB4v6Y4MEvue5cY5tEyF +j42haQZJZPB/bPgN1qjQRLPvOxZHhmp25dpYNmGQ4rpheiCaDMoD0x6XyMJg +Et3qwhNGBuEI439dPMKA30lVtfEgwxCn5mILTRgWbvxIFTYhw83JDSOl2sKw +1fn9iB1OBhxXOb2gQ7yfSZfhFCBDuYZZtexRYUhU852L5iXDpqi3SRF6wjDk +c4xRhJEhVcfW/IahMIi2KZmXLJCgL+XDGNNGGCbodoU/W0igZRI87h8kDGvV +Qgm7PEhA7RCcMWwnWG2Na7p/HfhsknzVaLcVXt9TINfrckD7tJzSTbIIXKBd +N+0PYwM/OQbvaogIODXtfRfbuorWF4g9vyQrCvpcab94FJbQZDTXfwmFoqD5 +bXvs0uAiei3/Q0ZEUww+sOa21X2aR2rcrd42vWKgoYFwrXfE97z2C7VYS3Fg +H8FK3htOovkx9RNtbBJQZQNVLMtvCLFts5g/IgEd2X7m1N3DCL3fmEoKlYAK +HXp5QPYXtHDaKULpsQREvtSeyYj4gl4ODXhfCZOAltnVoS93vyChtTeW1eES +sM3y6W837S9oUumc7MMoCWBPTiZH9g+gpwlJr9YlS0BawnbmEe4B9NNtfy5H +oQQENDR1XnDtQ4lK9u/YBiTg/m0/ubu+3Ygv3t1V5AvBBWpXAh270V3uUEXV +rxJwjI+875VRNzo9lptsPyQBjOqqLFy5G2FPl3wHxiSgYOzE7PPhLmS17Hmq +ZEYCrvkJN19Q70IKldHDLuw0uMEzPOe4vhO9PdFAnmHSgP+VDDwraUPuadek +yZI0yLeePu6Y3oY01/Ef2SpFgz/3vSsvRLahpnyDYG0ZGrg0/yo9casN9YmO +Csdtp8Gl79jxRqU2tPLjn8JJZRoYMecFN2Z9Rgd8dp/P0aZBWuL36/+9bkWV +FXGZLtY0uHnwT3nzx49IgvXybrINDXCX/grDdx+Rm2+O7mdbGkRdybT/+eYj +Uj1VOyZvT4NXKV75Wo8/otfDP8TGHGggHBBD9jn7EUVjKo9Ou9Eg+q6adGlZ +C3I5+sF+ZzAN4hO5zLUWPiC5rr87fuTRIH3bz7LYpAYEW9Pfkwpo0DiceG5f +YAM6c/niZbFCGqjMdz774dSA7o2U+Z8spsHyYtXgfe0G9HHWY6ygjAZnw2N2 +BvyoR45cPNEP39Pgi56tArdKPSrZQ18v1k0D7u2S7ra979GR57r9eis02HE1 +LoPHoAYtTZiIP1gl9J54ulw6WINeqN42yVmjgf/34LKy7TWI1JY6KshOh6cG +FT6FpBpUsoE83UOmw3vDpw+9c6qR3K3ytSu8dAhWJU14CVSjTfpKErfpdLjK +02OUPlyJmjnFzOIP02HE/K1SQk4FUtzdf61Mhw7MlrK4fUkV6KlJ9K1eXTrc +1TqqOxJWgUyLhYMEj9FhfTeH/AXnCvTLhlLke5IOcw4k2phaBRJp4eO9eZ4O +R41CaR+9ypH1k3VvD9rSYVBeentWeSki08c3jzyiQySDvSzvVjGq3LvHezmY +DueVQ9vtjIvRvTP+y5tD6SA6PDC673Ax+uOzfUQ9jA4aPAmvKXgxmpi5kRf7 +lA6U2jJ6bWERai5dMrgQT4eegiv//VktRE8NNz1vzSbuzxbRrRlRgLaFKEi9 +a6dDbOGCrixHHnqQN6Y120GHqVfgyD6Vi7q6n1uId9GhPNmwZ7IzFz2kb0px +66EDO4+OEFtmLurL+c7c84UON2O0TYQu5KKgjnh6znc6xB3o45kvzEGzWwXE +kpfp8Npjc8GvB9koN+WPgC+NAWu7gnYFH81C79IMVhPpDIg9TLrGsz8LNWfk +j5YxGODkEVoduT0Lfc92zF9gMcBhyiiqnycLiZTPGhjLMuDO+lVVwaTX6GHn +90gVRQZsd1m5NJOXifQ5uyXGNAleG62LmspAxhtVudi1GNA73pQ+9ykD2fJE +/NyqTei3tcyY5mcgL4EzlSd1GBB23UTz0X8ZqFjik1npMQYcTKmtEtiSgehq +9SlhZxlQn859o+JAOpqzKpLTsGSA3/NFB84Xaeipy70KJysGtO+LK9MPTEPI +U+P0C2sGXPa2rS+6mYYC4j7c4b7GgKhKzrft+9OQZOdgQ+cNBqxy0k7rtr9A +5zU3WNneYYBxwv6PfFwvUKXYheQnQQzopux6Y+2RgizlJNTqHjEgwfjE8IBN +CuLdM9q0FMyAan6dbuvTKejiGfsFo8cMaAx0za9npaBFfw8N2acMyORJexdX +n4xk/6YPlsUz4J2fSWGcYDJ6/HlF9HsuA04U54zrlSWi0Gb9rYL5DGiZXvdx +Pi0RBde/xA8WMMCCO5Mz/UkiCig/tyW6iAFa/CeZZ68lIs/0XE69MgbkfFKY +iRZNRC4etvMF74n/dzy50Hc/AV1Q7Kvz7mFA7nobPOFcPDovr1ib20v4LRo/ +lq4Vj87J+FUN9jEgf+5wUK1SPDotrlq29wsDVqwbJnbxx6NjG8NyZoYZwLFu +k9JgQxxCw0diDKYY0Dk+oe6pHocYj986SLExQZ7hvGfWOQZ12RarATsTju1b +vnDFMAYFaRX9O8fBBEEdF4OFvTHoz998fz8SE1a8ZG5dZY9BTcbZiVOcTFi+ +35YaEfgcOcqnfc7hZ8Lv3fEHNqRHo5r6cEVgMMHw0F2T4L+RyDXxyd9zTCZI +TM+W6n2JRDvcwspvsJhQUfLor0xNJIrcEXokUYoJQV0CuZIhkcguItAMk2OC +/fhgpZZsJBIyf/i4SYkJORInJ7hNnqGrbDfnz2kxIcArG9G+RqD8kY4rvtpM +2JSzAfprIxCpfm9H0WEmKCtvO5PzKgIlhJCLhI8w4eppi7Ov7kSgPvqze30n +mPDIyXysHY9AJw9VcBkbMkFqG4UybBCO9vrxSFy1ZYL/L0099e9hyM/OISTi +GhM0ZSJCeFvDUNepLo46OyZEj810LbwNQ85bE0albzDB+0CxKCk4DGVl7E6f +cGLCTo1ANkW1MMRquahs9x8T7sjPu5Q9eox4BdKPOoUyQdTIpW/uaCgS6Czw +CnnMBKPby87v9oQi4cjqildhTNg+c6wmXjoUMSUGlMbCmdBN6toTQQpFe+T4 +RQ2imJB6hu+tfmkIstB0mVJNYgKXy9Um0q4QVOaoEbSSR+Rv/VFSl1QwqlbR +q8MLmMB8dne2lBKM6pcucuwuJPJpER6Rsz4Ytbk7O18rZkLyJv78qJZHaCIg +7fJAGXGf03W7bp98hASTeRUq3jNBP+6QxeT5IGTb3tvi0U08F/u6MOkRgOo9 +XR0ie5iQUmE0vXY1AEkqUylveplQdvrQu21HA9Bg+NnLA/1MGPcVe9QuEIDO +nvs0qTrEBF3v8c1XU/0R6q3lmp5gQtibJXXbT35o8+AbjXMrTJhrTRg0UPVF +9iF63+xWmRB81IAWLu6LmtRn/DzXmNCww/bgJOaLvBLkWrPZWCBmJtvypd0H +LZulGnOTWRDK75406OiDRsai3Sq5WVAY2LFxf4E3Kpj0LpATZ0Gymrpi6VEv +lJkagF2QYMFc7q+Un0peKMk05IwvjQUP88QFkagXCu2KnB9lsCDyfL4rc9oT +2Va/UoiVZsGe64+ThUI8ET36cyr/LhZMNO6Le9D7EAUdEX+6qMmCuImu4y33 +PZAnxvzG1GLBxQ3TV+dtPdDdd9LK+tosEDKLu7X9nAeyUtnV9lqHBT+ankoO +y3sgTcYhPqvjLNAJ7VU/1f8ALS1Z+/QasMCxZZEld+ABsniZf6vCmgV1Sy+D +VXnvIwFNs+AeGxb8ZXY2yqy5o3f9vC8WbFlQv66hc9uUOxLht+qUtmfBSLEq +zbTRHbW6bFUOcWDBpeZfBU983BE65D5vcpcFXIwnWzZi7gj/qmO3LogFH20C +xx9S76Ha24ueoo9YcCrG+M/lZTfksCXxuUowC6yVoz6f7XdDzVorTTahLLjc +vnwnNt4NPXyVua0tnIivloZDyDY3NOu6ZTwplgV9bDy6XzTvonrBfjOtNyyo +cF40MQ1wRROOe3TvZxP3D5TueGHnija0RewoyWGBM6Ysw3fSFemGnlrdmc+C +Dc+t+0HIFTXw1IWLvmVB5mvheMmE26hpfU79QjULdv1KZI2W30LNf30UEruI ++N1TwA5udkHT58YEB7pZYJaYsc70jzPiKdRYwXtZ8Mb7b1bMgDM67rxWF9TP +gp/nt8dcS3dGLXMOpq5DLJA6csn4spYz+vjj8pOTkyzQfB/Rff2+E5rVLbkT +MMUCz/BY52NWTojvJdX0/TThZ2PHgOZJJ6Rn2Sa//yeRH5e1KA+aE/o0olMn +vcgCNbdjMfurHNGcRmqm2W+iXl78s5xKd0SbE0lPYv6wICrfCC8Ic0SnTMpN +BJZZUB2yLTfCwhHdrBA5fGKFBQ9czCwzTziiUHFXeb9VFpTuGgweUHVE2fc6 +BWrWiHifbOeXpjui1n6l5X//WJDwN7DFb6Mj+h8yN0dJ + "]]}, "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., 2.865729783395331}}, + 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.992080957891964*^9, 3.9920810582876663`*^9}, { + 3.992081116298893*^9, 3.992081185995041*^9}, {3.99208123481258*^9, + 3.992081254776861*^9}, {3.9920812875137577`*^9, 3.9920813437046165`*^9}}, + CellLabel-> + "Out[197]=",ExpressionUUID->"16ceae37-ecda-a248-a0c2-801d6289fe89"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l11", ",", "l22"}], "]"}]], "Input", + CellLabel-> + "In[198]:=",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:eJwV1mk4VmsXB3BzyElFZObZe6PhCCGi1sqUQhnKnAyFcMxzERlSkukRCvUk +kSizUieKE6FOoemUKWPmihLRu99P+/p9uPde9/1f97q2nIuvxXEONja21exs +bP9/qvlFcLOxSWLA3ve80/en4Ab7j7w97JJoom++t+reFAhnBGrEckiif2DA +cGjdFHyr8Xbn4ZbEi31M+F09BZVLjs8E+CVR4DvTlad8CpTP6iWLCUtijp3E +1u+FU7AlX2DDdkVJVC1UaLVNmwJGRz7pZiaJ65pmNOTcpqCdPzI+pUgSlz3T +TAtXJuGn4NDOrwuS6Jbpcr87dRKEhi/ufmgkhXcU+o8liE7CWO632H1XpfCy +0gXUiJ0AXYkBqbWzUnjqBf+hptFxsD6V+DNnrzRalYrmWW4ZB9uyQCIpTxp7 +ib98+x0+Q/+NUVbNlDSyLN0NjBLHgHF6g0uBvgx+uXWuzT5pFD7LdIS0Zcqg +BN8VbvnzI5Cb+vS9zbAMHkleMbobMQzcAbvgtZQsLkiacNTBEKysfHggbiiL +KmbwPZx3EA5HWr9/7C+Lz1/KP5IsGoDrg3N5ubmyuHn654330A8qZW8EmM2y +2NxetPdhVw9Ie2RKTs3Ioktdl/fc2H9gmpD9xmWjHH4aD2c5qr+D/zLDVHbq +y6Hi5HzmSdvXcCQ5YruBrxzOvOoS+1jUCYyxxj7vLDncMS561G3vSzBQG9r6 +/YkcPukWKBxqaoeSQWMyd0IOs0C8OKO0BXhOvn4SLMTA+UsGMyUCzdDAqcNR +sZuBz0J5CnpSGuHBzMgErzsDBz++4Uj1fwDCz31CnqQzEE9EK7EUamFTkPoW +nwwG5otnd2YK18JuiV99YkwGRlfm+GWx18KJE+f2+WcyUOFaVOLjDzXwiPuG +pGw2A6UXx2+Vp9aAx+73TyLzGPj87sG677+q4eFdPUGtYgb6pYbZsPdVgWv6 +xuK7fzPQMtD0AltrBfAYJ/578BG9XvPqOdn7FVDMufB9hvZ1A5vH+0sqYDLo +rYFyIwOn/15+8feFCgixvjRY/oSB7svFE1IWFZAoKSxT2cLA9o7xE096y6H0 +puCl6lcM3HLosvmvlbswX88Td3+Yge8EQZP5oBQcRn+quI8w0OUOn1TGtVJo +FprqEx5lIIesfFhRfCkwvbu0/cYY+OdNVde1ZqWgKn3tm/wEAw+aOT0bGL4N +fjFarsxZBq7Zon0vbMNtmNzrreu7xEAZvSNs8nG3YKj7FRu1jsA3LC72udyb +8H69j1wLbeW3AopeiTfhhRm/7on1BMop8UV+DbwJdR26sWVCBGouWiapGN+E +881V3BoiBMr/x1L1WywE5epM/r0SBFovkSdH7QshMsNW+ARFYFGtd+mpzTdA +xGJAoUyLQI/MRhOdORaUiIqLmuwk8FvlJbO2QRZAjwXPBO29xx+XHO9igYdH +85CiDoFr1A9icyULHkQVsW7sJvCxgjOXbAALnG7/JZGrR+CMqEX2/m/XoIRr +cU2SKb3eNs7cdeUq7K5b/93DmcDdNQ1PFkNyIXv2hdcGFwKb0a1y0TYXvm5K +GnhM20g1e9eGXblwM5fzufgxAqM1vr/J4cwFwTNzBR1uBIZv//dzb9oV6Dd5 +Y67sTeB8/oDJ3qrLEPMpp+xHCIG8MfWlvHw50PyH3PGECwTu7y69pfArE27b +JJgqJBO43lXtYcNIJqQXTKi30h7Tme31fJUJTlq1PPwpBF5MOSuxeDMTlo8Z +FyenEbgx3Lp/0SITNB4GTzAvEYjtgpvC7zCh2LPNv+AagS997Gp4AjMgpWab +nT6LQNMhq8jhoxkQwpapO0z78DfLrNcmGaB/6aiQQgGdj7hv0mf5DBh4PFdd +Ukgg61Pur94P6SAuJrNQUUJgqLmn45xROlxoCYxqrCYwHvJP/bUtDTQTHKZ8 +aui858PCpiXTYFjfwEGqlq7fomIwhj8Ndj8R2RlRR6DxmGFr33AqfHl4f357 +PYHnMEUgJC8VrCp/exc1EGjPWlu3IpgKMnlJ9hfb6O9fsi5Q5LoIHfZBbTrt +BHbHX1s6N5gMYeJHtCZo3+XrsRVoSobOLCVRo+f0eTPtKgPPJENc+qtO9pcE +Xj03nv+MIxnGzoruD35N18t6yxnOdwEqAwo0HfoJ7GAu/JRWOg+Tuuriv2k3 +6fkYHhQ6D5RQyxJrgEC+0Pr9OQvnILtq/NHoJwKHxUcZEU3n4PScikHgMIEq +cnvKvO3OgUlIo/n5cQIXvR7v4EhOhJHwHs97cwSKFNan2XGdBdn9vib28wSm +SMtaZU8mgK04u9IK7TKPRqWp7gToqCe/6P2g6w/g7vhQmABVS16h//4kkOMz +X3ybUQJERy7GjqwQWLlYm/4xPR7EY0TzhPlI/HfYb7XxjjiYe2dgWk27fDb+ +8h1GHDxXDlq25CdRDbR45NfEQXT/yyMZq0k0z+JUMhuOhRE4L71+DYl+two+ +pDBjoXLl11VBIRK9PPselH0/A/tOfbrOL0Xi78DGqOnWGGB0r7Usod1was9I +aW0M/NoCnPulSRx9pyISeSMG7ny44npOhsQpxqpUi+gYENY+TPIySOx5WKL6 +UjMG+n+2FHIrkBgu1ZTBWxYNYaFlxWwqJCpf7TXn0T8NonpH+8poaxhOV6/I +nobaNetE7FVJvGHlEy65EgVzhUGxNdtJXDv4PqPlXhT4dWs7emqQ2Mz5du27 +bVHgrtIm1K1NonZRU8ETMhKsJkaiigxJTByzIFoVT8J8bXbNob0kLnHxdSjw +nwTmmf2T7EYkGv4uDiueiIBOsTu2DvtI5Ou4YytwNwIOGAWrrTMhMf26WaHd +jggwKOQcjzAnUbhRXXjeNBzUjsoePuBAor2gYo5+eig46ZxcmaHtyz5w8UB4 +KFwQe1OUdoTe35xTn79TKAx1JS12O5Kor5KvzLUtFJhGP67aO5OIc+0/Dj0P +gTmVF+MebiTaHFIPS18TAlVcp6Jj/ej9ptrjx+tB0DvwZhPlT2Lnh8SwoQtB +wN+g0vWUdtMBQpkzNAhcwkcp/kASFS5ub4k1DoL10xbtqcEkuua+006ZD4SA +t5tE8iPoeuplqh+aBoJqydvb9+JIbL/vqT3wRwCQSzUf3ONJnOAW2zi34A8b +TJirRRNIHGn4YCc95A8LU2ZewWdJdLzKUX6v3h8eqbRtVj1PYuhs+QT7CX/Y +d//hrdspJMKod9KrZ37g1Moqyr9M4gpTx+7MDl+wEIt+a3qFxK8++UGUkC/o +eTquWqZdVq6U+GXaB+QFJNzt80i0u8ExyVnkA5MHmfIbr5H49p93owJiPhD6 +NqEwrZDEk6GcBue5/oKLI14FceUkLnxvKhVc8ASZhhGWcgWd/yihI/TeE8qz +nK99pC1o/Ntcq94Tuoys89SqSOz/9Dpq8pQnbLytmzVUQ2JQ3tmhcU5PuO4r +lqT/gESlgPwUxY0noG7haQDXUxKXWyznqmzcwejVHv9y2rIpq7ibd7nDf7ce ++jq00Hmo+xl/ZbjDL7tK7+pWEodusi0UT7mB7t95bsfaSRTlPmN6Ms4NOmKC +7Jpf0ufXK7Aru+449PMzdOM+kPiPTC7jo+oxWJkzqCI/knhW6QEPr9QxkOw7 +Qf5DO7pSYnj/qmNgW1XBw9NLYprkzPYNH12h035P+9l+ElczmzLvJ7jCP6VO +h5KGSdxeNpLyZ78LlBy46pY+QyLT+EufQoEztGo2vVWdJTEmJ/reqlRnGGWM +GnXR/hjJ+WLplDOQP5S2CH8lked96hFZa2fIu/poJnOOngdnOzptBJwhdbYn +LOcnib84QoODI5wgOF0y6RonhXOGI0vFzxzBZrbpzAEuCi2rpjttCx1B54BX +xC/ajm/C4tViHIGLv/6EDQ+FgtqCTW5ajsCMsTZay0ehNP8r5v3bR6DSL507 +eg2FW04Ud89mOcD0Ad7oo2IUXn5nHeKfbAedpXdD/xCn0Kv/PbnKxw5q+a19 +H9CGHnvNxwfsIPJpoaOoJIU5Vc4TrLV2ILBbb9e/0hT+OPp1w7pLtrD5z6jF +3SSFuQKTpbFFNuC+ei5Iehtd73a58duDVvAuQr+vkbbKuWLiYJsVGI0z97kq +U9hKVk/+UWEFm5+pSxerUDgwoXu/J8oKphNCW1TUKHx7llOkScIKgjiWxAy0 +KOwZO8p/we4wnPnJ3uClR6HxH8YcVhOW8M3DYtMafQqzGr/wqb+2hGPvrmeU +0z746Lf61gZLMKjT85g3oFD9MVumS4Yl8AbHrzttRKE+8BZP6lhCyizvsXRT +CrksE/c4MS0gd1SQ7741hf/MrneQOGQOZb2/9tjYUMi22UZReY85PHr9OeIH +7WepP/Rslcyhr6lpUt2Owkq748JjvObAuBb6stKBQlmBuI75R2ZQZNOXVepM +4emx7oAGJTOofHZH/poXhefjAxSXNQ/Ak8YrR8GbQqYmu8+E6AHoqkvM7qVt +fD3RYvm7KT2fXfilfCiUOt7rklRjCjvOiEzn+NHv9/FNM1EzhYc7o2oygikk +Wpvl9TRNoOW2qf7Z0xTGsmrv8truh3yRR5xq0RSyeNoMKrX2Q1CMUlM/7S39 +B7KixfeDrLWg7s4zFOabnWo+/3EfhHG8gqk4uv+eqt0zc9kHm2wPaVuep/P+ ++6bc6SAjSOKxV5XJpFBhTQiPWaUhuPi3f2mnfXzthjHdLEPQ/KhdEXaJwiZW +Y/bhU4YwVCGp3JlF4Zf+/u73hoagc6T3z/jLFG6oYTXa9hjAVJXzpomrFA5H +5G/duNYADjp7yNaV0P1SN3gxL0kPKntiLGxuU+g282bt62A9ELG7EveTtmRK +yAXSSQ8+WrwY0y6jUJVhyrdaXQ889NUqGu9SWGu72/hbny6cUWDTbaum+z15 +5I34Tl2onspy7XlEoY4lM0f8N4KoZ0VmVAPdH5GOm+QmESJG2lpkGin6f0no +ls57hD19y1tcHlO41SpNqrIK4cVL17mRJgqzy82PM0/QY7lqW/xsK4URQpfl +DCsBxCNabnJ20fkV/FQoTN4F5u5y2XW0N2WpuzV77ILEQyfPeXVTWF6+bfM6 +/V3wQ2mbd9drCm1ZF91Ul3Sge/CSSsE7Cn9LJdQke+lAsqnbQ91e+j7ssS8I +O6QNbHLcnTGfKUw9KKpfbaAFO9YcbVIfp3Cm59qslLwW+Czdq/5M+++yzKo7 +PFrQ89o7y3ySvs/3/B7pt2pC/fluB7kZCsMb1jXuMtWEwLmC0cY5CiVabo/v +dNwBJQPL74LmKZx+KkCy7dkBn15Ytyl+p3DPhvqMz8QOMLu1uiz1B4WbLWyP +K45rwFbHwACnRQpvvWjmNQ/TAFfj567CSxTaoNLm7Q4acFlT4XAr7fGrXyhN +1AA+oQ87lJcp9Et35ijh1QBkU980RFugM+KiyJQ6hE1dFM9eofDO4FPjwlfq +cPe/sdUmvylcWBOx1qpWHUZadJd/055LX6xUvKIO/wNZuXLl + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1mk4VmsXB3BzyElFZObZe6PhCCGi1sqUQhnKnAyFcMxzERlSkukRCvUk +kSizUieKE6FOoemUKWPmihLRu99P+/p9uPde9/1f97q2nIuvxXEONja21exs +bP9/qvlFcLOxSWLA3ve80/en4Ab7j7w97JJoom++t+reFAhnBGrEckiif2DA +cGjdFHyr8Xbn4ZbEi31M+F09BZVLjs8E+CVR4DvTlad8CpTP6iWLCUtijp3E +1u+FU7AlX2DDdkVJVC1UaLVNmwJGRz7pZiaJ65pmNOTcpqCdPzI+pUgSlz3T +TAtXJuGn4NDOrwuS6Jbpcr87dRKEhi/ufmgkhXcU+o8liE7CWO632H1XpfCy +0gXUiJ0AXYkBqbWzUnjqBf+hptFxsD6V+DNnrzRalYrmWW4ZB9uyQCIpTxp7 +ib98+x0+Q/+NUVbNlDSyLN0NjBLHgHF6g0uBvgx+uXWuzT5pFD7LdIS0Zcqg +BN8VbvnzI5Cb+vS9zbAMHkleMbobMQzcAbvgtZQsLkiacNTBEKysfHggbiiL +KmbwPZx3EA5HWr9/7C+Lz1/KP5IsGoDrg3N5ubmyuHn654330A8qZW8EmM2y +2NxetPdhVw9Ie2RKTs3Ioktdl/fc2H9gmpD9xmWjHH4aD2c5qr+D/zLDVHbq +y6Hi5HzmSdvXcCQ5YruBrxzOvOoS+1jUCYyxxj7vLDncMS561G3vSzBQG9r6 +/YkcPukWKBxqaoeSQWMyd0IOs0C8OKO0BXhOvn4SLMTA+UsGMyUCzdDAqcNR +sZuBz0J5CnpSGuHBzMgErzsDBz++4Uj1fwDCz31CnqQzEE9EK7EUamFTkPoW +nwwG5otnd2YK18JuiV99YkwGRlfm+GWx18KJE+f2+WcyUOFaVOLjDzXwiPuG +pGw2A6UXx2+Vp9aAx+73TyLzGPj87sG677+q4eFdPUGtYgb6pYbZsPdVgWv6 +xuK7fzPQMtD0AltrBfAYJ/578BG9XvPqOdn7FVDMufB9hvZ1A5vH+0sqYDLo +rYFyIwOn/15+8feFCgixvjRY/oSB7svFE1IWFZAoKSxT2cLA9o7xE096y6H0 +puCl6lcM3HLosvmvlbswX88Td3+Yge8EQZP5oBQcRn+quI8w0OUOn1TGtVJo +FprqEx5lIIesfFhRfCkwvbu0/cYY+OdNVde1ZqWgKn3tm/wEAw+aOT0bGL4N +fjFarsxZBq7Zon0vbMNtmNzrreu7xEAZvSNs8nG3YKj7FRu1jsA3LC72udyb +8H69j1wLbeW3AopeiTfhhRm/7on1BMop8UV+DbwJdR26sWVCBGouWiapGN+E +881V3BoiBMr/x1L1WywE5epM/r0SBFovkSdH7QshMsNW+ARFYFGtd+mpzTdA +xGJAoUyLQI/MRhOdORaUiIqLmuwk8FvlJbO2QRZAjwXPBO29xx+XHO9igYdH +85CiDoFr1A9icyULHkQVsW7sJvCxgjOXbAALnG7/JZGrR+CMqEX2/m/XoIRr +cU2SKb3eNs7cdeUq7K5b/93DmcDdNQ1PFkNyIXv2hdcGFwKb0a1y0TYXvm5K +GnhM20g1e9eGXblwM5fzufgxAqM1vr/J4cwFwTNzBR1uBIZv//dzb9oV6Dd5 +Y67sTeB8/oDJ3qrLEPMpp+xHCIG8MfWlvHw50PyH3PGECwTu7y69pfArE27b +JJgqJBO43lXtYcNIJqQXTKi30h7Tme31fJUJTlq1PPwpBF5MOSuxeDMTlo8Z +FyenEbgx3Lp/0SITNB4GTzAvEYjtgpvC7zCh2LPNv+AagS997Gp4AjMgpWab +nT6LQNMhq8jhoxkQwpapO0z78DfLrNcmGaB/6aiQQgGdj7hv0mf5DBh4PFdd +Ukgg61Pur94P6SAuJrNQUUJgqLmn45xROlxoCYxqrCYwHvJP/bUtDTQTHKZ8 +aui858PCpiXTYFjfwEGqlq7fomIwhj8Ndj8R2RlRR6DxmGFr33AqfHl4f357 +PYHnMEUgJC8VrCp/exc1EGjPWlu3IpgKMnlJ9hfb6O9fsi5Q5LoIHfZBbTrt +BHbHX1s6N5gMYeJHtCZo3+XrsRVoSobOLCVRo+f0eTPtKgPPJENc+qtO9pcE +Xj03nv+MIxnGzoruD35N18t6yxnOdwEqAwo0HfoJ7GAu/JRWOg+Tuuriv2k3 +6fkYHhQ6D5RQyxJrgEC+0Pr9OQvnILtq/NHoJwKHxUcZEU3n4PScikHgMIEq +cnvKvO3OgUlIo/n5cQIXvR7v4EhOhJHwHs97cwSKFNan2XGdBdn9vib28wSm +SMtaZU8mgK04u9IK7TKPRqWp7gToqCe/6P2g6w/g7vhQmABVS16h//4kkOMz +X3ybUQJERy7GjqwQWLlYm/4xPR7EY0TzhPlI/HfYb7XxjjiYe2dgWk27fDb+ +8h1GHDxXDlq25CdRDbR45NfEQXT/yyMZq0k0z+JUMhuOhRE4L71+DYl+two+ +pDBjoXLl11VBIRK9PPselH0/A/tOfbrOL0Xi78DGqOnWGGB0r7Usod1was9I +aW0M/NoCnPulSRx9pyISeSMG7ny44npOhsQpxqpUi+gYENY+TPIySOx5WKL6 +UjMG+n+2FHIrkBgu1ZTBWxYNYaFlxWwqJCpf7TXn0T8NonpH+8poaxhOV6/I +nobaNetE7FVJvGHlEy65EgVzhUGxNdtJXDv4PqPlXhT4dWs7emqQ2Mz5du27 +bVHgrtIm1K1NonZRU8ETMhKsJkaiigxJTByzIFoVT8J8bXbNob0kLnHxdSjw +nwTmmf2T7EYkGv4uDiueiIBOsTu2DvtI5Ou4YytwNwIOGAWrrTMhMf26WaHd +jggwKOQcjzAnUbhRXXjeNBzUjsoePuBAor2gYo5+eig46ZxcmaHtyz5w8UB4 +KFwQe1OUdoTe35xTn79TKAx1JS12O5Kor5KvzLUtFJhGP67aO5OIc+0/Dj0P +gTmVF+MebiTaHFIPS18TAlVcp6Jj/ej9ptrjx+tB0DvwZhPlT2Lnh8SwoQtB +wN+g0vWUdtMBQpkzNAhcwkcp/kASFS5ub4k1DoL10xbtqcEkuua+006ZD4SA +t5tE8iPoeuplqh+aBoJqydvb9+JIbL/vqT3wRwCQSzUf3ONJnOAW2zi34A8b +TJirRRNIHGn4YCc95A8LU2ZewWdJdLzKUX6v3h8eqbRtVj1PYuhs+QT7CX/Y +d//hrdspJMKod9KrZ37g1Moqyr9M4gpTx+7MDl+wEIt+a3qFxK8++UGUkC/o +eTquWqZdVq6U+GXaB+QFJNzt80i0u8ExyVnkA5MHmfIbr5H49p93owJiPhD6 +NqEwrZDEk6GcBue5/oKLI14FceUkLnxvKhVc8ASZhhGWcgWd/yihI/TeE8qz +nK99pC1o/Ntcq94Tuoys89SqSOz/9Dpq8pQnbLytmzVUQ2JQ3tmhcU5PuO4r +lqT/gESlgPwUxY0noG7haQDXUxKXWyznqmzcwejVHv9y2rIpq7ibd7nDf7ce ++jq00Hmo+xl/ZbjDL7tK7+pWEodusi0UT7mB7t95bsfaSRTlPmN6Ms4NOmKC +7Jpf0ufXK7Aru+449PMzdOM+kPiPTC7jo+oxWJkzqCI/knhW6QEPr9QxkOw7 +Qf5DO7pSYnj/qmNgW1XBw9NLYprkzPYNH12h035P+9l+ElczmzLvJ7jCP6VO +h5KGSdxeNpLyZ78LlBy46pY+QyLT+EufQoEztGo2vVWdJTEmJ/reqlRnGGWM +GnXR/hjJ+WLplDOQP5S2CH8lked96hFZa2fIu/poJnOOngdnOzptBJwhdbYn +LOcnib84QoODI5wgOF0y6RonhXOGI0vFzxzBZrbpzAEuCi2rpjttCx1B54BX +xC/ajm/C4tViHIGLv/6EDQ+FgtqCTW5ajsCMsTZay0ehNP8r5v3bR6DSL507 +eg2FW04Ud89mOcD0Ad7oo2IUXn5nHeKfbAedpXdD/xCn0Kv/PbnKxw5q+a19 +H9CGHnvNxwfsIPJpoaOoJIU5Vc4TrLV2ILBbb9e/0hT+OPp1w7pLtrD5z6jF +3SSFuQKTpbFFNuC+ei5Iehtd73a58duDVvAuQr+vkbbKuWLiYJsVGI0z97kq +U9hKVk/+UWEFm5+pSxerUDgwoXu/J8oKphNCW1TUKHx7llOkScIKgjiWxAy0 +KOwZO8p/we4wnPnJ3uClR6HxH8YcVhOW8M3DYtMafQqzGr/wqb+2hGPvrmeU +0z746Lf61gZLMKjT85g3oFD9MVumS4Yl8AbHrzttRKE+8BZP6lhCyizvsXRT +CrksE/c4MS0gd1SQ7741hf/MrneQOGQOZb2/9tjYUMi22UZReY85PHr9OeIH +7WepP/Rslcyhr6lpUt2Owkq748JjvObAuBb6stKBQlmBuI75R2ZQZNOXVepM +4emx7oAGJTOofHZH/poXhefjAxSXNQ/Ak8YrR8GbQqYmu8+E6AHoqkvM7qVt +fD3RYvm7KT2fXfilfCiUOt7rklRjCjvOiEzn+NHv9/FNM1EzhYc7o2oygikk +Wpvl9TRNoOW2qf7Z0xTGsmrv8truh3yRR5xq0RSyeNoMKrX2Q1CMUlM/7S39 +B7KixfeDrLWg7s4zFOabnWo+/3EfhHG8gqk4uv+eqt0zc9kHm2wPaVuep/P+ ++6bc6SAjSOKxV5XJpFBhTQiPWaUhuPi3f2mnfXzthjHdLEPQ/KhdEXaJwiZW +Y/bhU4YwVCGp3JlF4Zf+/u73hoagc6T3z/jLFG6oYTXa9hjAVJXzpomrFA5H +5G/duNYADjp7yNaV0P1SN3gxL0kPKntiLGxuU+g282bt62A9ELG7EveTtmRK +yAXSSQ8+WrwY0y6jUJVhyrdaXQ889NUqGu9SWGu72/hbny6cUWDTbaum+z15 +5I34Tl2onspy7XlEoY4lM0f8N4KoZ0VmVAPdH5GOm+QmESJG2lpkGin6f0no +ls57hD19y1tcHlO41SpNqrIK4cVL17mRJgqzy82PM0/QY7lqW/xsK4URQpfl +DCsBxCNabnJ20fkV/FQoTN4F5u5y2XW0N2WpuzV77ILEQyfPeXVTWF6+bfM6 +/V3wQ2mbd9drCm1ZF91Ul3Sge/CSSsE7Cn9LJdQke+lAsqnbQ91e+j7ssS8I +O6QNbHLcnTGfKUw9KKpfbaAFO9YcbVIfp3Cm59qslLwW+Czdq/5M+++yzKo7 +PFrQ89o7y3ySvs/3/B7pt2pC/fluB7kZCsMb1jXuMtWEwLmC0cY5CiVabo/v +dNwBJQPL74LmKZx+KkCy7dkBn15Ytyl+p3DPhvqMz8QOMLu1uiz1B4WbLWyP +K45rwFbHwACnRQpvvWjmNQ/TAFfj567CSxTaoNLm7Q4acFlT4XAr7fGrXyhN +1AA+oQ87lJcp9Et35ijh1QBkU980RFugM+KiyJQ6hE1dFM9eofDO4FPjwlfq +cPe/sdUmvylcWBOx1qpWHUZadJd/055LX6xUvKIO/wNZuXLl + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 11}, {0., 0.9289465115382269}}, + "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" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 11}, {0., 0.9289465115382269}}, + "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" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1mk4VmsXB3BzyElFZObZe6PhCCGi1sqUQhnKnAyFcMxzERlSkukRCvUk +kSizUieKE6FOoemUKWPmihLRu99P+/p9uPde9/1f97q2nIuvxXEONja21exs +bP9/qvlFcLOxSWLA3ve80/en4Ab7j7w97JJoom++t+reFAhnBGrEckiif2DA +cGjdFHyr8Xbn4ZbEi31M+F09BZVLjs8E+CVR4DvTlad8CpTP6iWLCUtijp3E +1u+FU7AlX2DDdkVJVC1UaLVNmwJGRz7pZiaJ65pmNOTcpqCdPzI+pUgSlz3T +TAtXJuGn4NDOrwuS6Jbpcr87dRKEhi/ufmgkhXcU+o8liE7CWO632H1XpfCy +0gXUiJ0AXYkBqbWzUnjqBf+hptFxsD6V+DNnrzRalYrmWW4ZB9uyQCIpTxp7 +ib98+x0+Q/+NUVbNlDSyLN0NjBLHgHF6g0uBvgx+uXWuzT5pFD7LdIS0Zcqg +BN8VbvnzI5Cb+vS9zbAMHkleMbobMQzcAbvgtZQsLkiacNTBEKysfHggbiiL +KmbwPZx3EA5HWr9/7C+Lz1/KP5IsGoDrg3N5ubmyuHn654330A8qZW8EmM2y +2NxetPdhVw9Ie2RKTs3Ioktdl/fc2H9gmpD9xmWjHH4aD2c5qr+D/zLDVHbq +y6Hi5HzmSdvXcCQ5YruBrxzOvOoS+1jUCYyxxj7vLDncMS561G3vSzBQG9r6 +/YkcPukWKBxqaoeSQWMyd0IOs0C8OKO0BXhOvn4SLMTA+UsGMyUCzdDAqcNR +sZuBz0J5CnpSGuHBzMgErzsDBz++4Uj1fwDCz31CnqQzEE9EK7EUamFTkPoW +nwwG5otnd2YK18JuiV99YkwGRlfm+GWx18KJE+f2+WcyUOFaVOLjDzXwiPuG +pGw2A6UXx2+Vp9aAx+73TyLzGPj87sG677+q4eFdPUGtYgb6pYbZsPdVgWv6 +xuK7fzPQMtD0AltrBfAYJ/578BG9XvPqOdn7FVDMufB9hvZ1A5vH+0sqYDLo +rYFyIwOn/15+8feFCgixvjRY/oSB7svFE1IWFZAoKSxT2cLA9o7xE096y6H0 +puCl6lcM3HLosvmvlbswX88Td3+Yge8EQZP5oBQcRn+quI8w0OUOn1TGtVJo +FprqEx5lIIesfFhRfCkwvbu0/cYY+OdNVde1ZqWgKn3tm/wEAw+aOT0bGL4N +fjFarsxZBq7Zon0vbMNtmNzrreu7xEAZvSNs8nG3YKj7FRu1jsA3LC72udyb +8H69j1wLbeW3AopeiTfhhRm/7on1BMop8UV+DbwJdR26sWVCBGouWiapGN+E +881V3BoiBMr/x1L1WywE5epM/r0SBFovkSdH7QshMsNW+ARFYFGtd+mpzTdA +xGJAoUyLQI/MRhOdORaUiIqLmuwk8FvlJbO2QRZAjwXPBO29xx+XHO9igYdH +85CiDoFr1A9icyULHkQVsW7sJvCxgjOXbAALnG7/JZGrR+CMqEX2/m/XoIRr +cU2SKb3eNs7cdeUq7K5b/93DmcDdNQ1PFkNyIXv2hdcGFwKb0a1y0TYXvm5K +GnhM20g1e9eGXblwM5fzufgxAqM1vr/J4cwFwTNzBR1uBIZv//dzb9oV6Dd5 +Y67sTeB8/oDJ3qrLEPMpp+xHCIG8MfWlvHw50PyH3PGECwTu7y69pfArE27b +JJgqJBO43lXtYcNIJqQXTKi30h7Tme31fJUJTlq1PPwpBF5MOSuxeDMTlo8Z +FyenEbgx3Lp/0SITNB4GTzAvEYjtgpvC7zCh2LPNv+AagS997Gp4AjMgpWab +nT6LQNMhq8jhoxkQwpapO0z78DfLrNcmGaB/6aiQQgGdj7hv0mf5DBh4PFdd +Ukgg61Pur94P6SAuJrNQUUJgqLmn45xROlxoCYxqrCYwHvJP/bUtDTQTHKZ8 +aui858PCpiXTYFjfwEGqlq7fomIwhj8Ndj8R2RlRR6DxmGFr33AqfHl4f357 +PYHnMEUgJC8VrCp/exc1EGjPWlu3IpgKMnlJ9hfb6O9fsi5Q5LoIHfZBbTrt +BHbHX1s6N5gMYeJHtCZo3+XrsRVoSobOLCVRo+f0eTPtKgPPJENc+qtO9pcE +Xj03nv+MIxnGzoruD35N18t6yxnOdwEqAwo0HfoJ7GAu/JRWOg+Tuuriv2k3 +6fkYHhQ6D5RQyxJrgEC+0Pr9OQvnILtq/NHoJwKHxUcZEU3n4PScikHgMIEq +cnvKvO3OgUlIo/n5cQIXvR7v4EhOhJHwHs97cwSKFNan2XGdBdn9vib28wSm +SMtaZU8mgK04u9IK7TKPRqWp7gToqCe/6P2g6w/g7vhQmABVS16h//4kkOMz +X3ybUQJERy7GjqwQWLlYm/4xPR7EY0TzhPlI/HfYb7XxjjiYe2dgWk27fDb+ +8h1GHDxXDlq25CdRDbR45NfEQXT/yyMZq0k0z+JUMhuOhRE4L71+DYl+two+ +pDBjoXLl11VBIRK9PPselH0/A/tOfbrOL0Xi78DGqOnWGGB0r7Usod1was9I +aW0M/NoCnPulSRx9pyISeSMG7ny44npOhsQpxqpUi+gYENY+TPIySOx5WKL6 +UjMG+n+2FHIrkBgu1ZTBWxYNYaFlxWwqJCpf7TXn0T8NonpH+8poaxhOV6/I +nobaNetE7FVJvGHlEy65EgVzhUGxNdtJXDv4PqPlXhT4dWs7emqQ2Mz5du27 +bVHgrtIm1K1NonZRU8ETMhKsJkaiigxJTByzIFoVT8J8bXbNob0kLnHxdSjw +nwTmmf2T7EYkGv4uDiueiIBOsTu2DvtI5Ou4YytwNwIOGAWrrTMhMf26WaHd +jggwKOQcjzAnUbhRXXjeNBzUjsoePuBAor2gYo5+eig46ZxcmaHtyz5w8UB4 +KFwQe1OUdoTe35xTn79TKAx1JS12O5Kor5KvzLUtFJhGP67aO5OIc+0/Dj0P +gTmVF+MebiTaHFIPS18TAlVcp6Jj/ej9ptrjx+tB0DvwZhPlT2Lnh8SwoQtB +wN+g0vWUdtMBQpkzNAhcwkcp/kASFS5ub4k1DoL10xbtqcEkuua+006ZD4SA +t5tE8iPoeuplqh+aBoJqydvb9+JIbL/vqT3wRwCQSzUf3ONJnOAW2zi34A8b +TJirRRNIHGn4YCc95A8LU2ZewWdJdLzKUX6v3h8eqbRtVj1PYuhs+QT7CX/Y +d//hrdspJMKod9KrZ37g1Moqyr9M4gpTx+7MDl+wEIt+a3qFxK8++UGUkC/o +eTquWqZdVq6U+GXaB+QFJNzt80i0u8ExyVnkA5MHmfIbr5H49p93owJiPhD6 +NqEwrZDEk6GcBue5/oKLI14FceUkLnxvKhVc8ASZhhGWcgWd/yihI/TeE8qz +nK99pC1o/Ntcq94Tuoys89SqSOz/9Dpq8pQnbLytmzVUQ2JQ3tmhcU5PuO4r +lqT/gESlgPwUxY0noG7haQDXUxKXWyznqmzcwejVHv9y2rIpq7ibd7nDf7ce ++jq00Hmo+xl/ZbjDL7tK7+pWEodusi0UT7mB7t95bsfaSRTlPmN6Ms4NOmKC +7Jpf0ufXK7Aru+449PMzdOM+kPiPTC7jo+oxWJkzqCI/knhW6QEPr9QxkOw7 +Qf5DO7pSYnj/qmNgW1XBw9NLYprkzPYNH12h035P+9l+ElczmzLvJ7jCP6VO +h5KGSdxeNpLyZ78LlBy46pY+QyLT+EufQoEztGo2vVWdJTEmJ/reqlRnGGWM +GnXR/hjJ+WLplDOQP5S2CH8lked96hFZa2fIu/poJnOOngdnOzptBJwhdbYn +LOcnib84QoODI5wgOF0y6RonhXOGI0vFzxzBZrbpzAEuCi2rpjttCx1B54BX +xC/ajm/C4tViHIGLv/6EDQ+FgtqCTW5ajsCMsTZay0ehNP8r5v3bR6DSL507 +eg2FW04Ud89mOcD0Ad7oo2IUXn5nHeKfbAedpXdD/xCn0Kv/PbnKxw5q+a19 +H9CGHnvNxwfsIPJpoaOoJIU5Vc4TrLV2ILBbb9e/0hT+OPp1w7pLtrD5z6jF +3SSFuQKTpbFFNuC+ei5Iehtd73a58duDVvAuQr+vkbbKuWLiYJsVGI0z97kq +U9hKVk/+UWEFm5+pSxerUDgwoXu/J8oKphNCW1TUKHx7llOkScIKgjiWxAy0 +KOwZO8p/we4wnPnJ3uClR6HxH8YcVhOW8M3DYtMafQqzGr/wqb+2hGPvrmeU +0z746Lf61gZLMKjT85g3oFD9MVumS4Yl8AbHrzttRKE+8BZP6lhCyizvsXRT +CrksE/c4MS0gd1SQ7741hf/MrneQOGQOZb2/9tjYUMi22UZReY85PHr9OeIH +7WepP/Rslcyhr6lpUt2Owkq748JjvObAuBb6stKBQlmBuI75R2ZQZNOXVepM +4emx7oAGJTOofHZH/poXhefjAxSXNQ/Ak8YrR8GbQqYmu8+E6AHoqkvM7qVt +fD3RYvm7KT2fXfilfCiUOt7rklRjCjvOiEzn+NHv9/FNM1EzhYc7o2oygikk +Wpvl9TRNoOW2qf7Z0xTGsmrv8truh3yRR5xq0RSyeNoMKrX2Q1CMUlM/7S39 +B7KixfeDrLWg7s4zFOabnWo+/3EfhHG8gqk4uv+eqt0zc9kHm2wPaVuep/P+ ++6bc6SAjSOKxV5XJpFBhTQiPWaUhuPi3f2mnfXzthjHdLEPQ/KhdEXaJwiZW +Y/bhU4YwVCGp3JlF4Zf+/u73hoagc6T3z/jLFG6oYTXa9hjAVJXzpomrFA5H +5G/duNYADjp7yNaV0P1SN3gxL0kPKntiLGxuU+g282bt62A9ELG7EveTtmRK +yAXSSQ8+WrwY0y6jUJVhyrdaXQ889NUqGu9SWGu72/hbny6cUWDTbaum+z15 +5I34Tl2onspy7XlEoY4lM0f8N4KoZ0VmVAPdH5GOm+QmESJG2lpkGin6f0no +ls57hD19y1tcHlO41SpNqrIK4cVL17mRJgqzy82PM0/QY7lqW/xsK4URQpfl +DCsBxCNabnJ20fkV/FQoTN4F5u5y2XW0N2WpuzV77ILEQyfPeXVTWF6+bfM6 +/V3wQ2mbd9drCm1ZF91Ul3Sge/CSSsE7Cn9LJdQke+lAsqnbQ91e+j7ssS8I +O6QNbHLcnTGfKUw9KKpfbaAFO9YcbVIfp3Cm59qslLwW+Czdq/5M+++yzKo7 +PFrQ89o7y3ySvs/3/B7pt2pC/fluB7kZCsMb1jXuMtWEwLmC0cY5CiVabo/v +dNwBJQPL74LmKZx+KkCy7dkBn15Ytyl+p3DPhvqMz8QOMLu1uiz1B4WbLWyP +K45rwFbHwACnRQpvvWjmNQ/TAFfj567CSxTaoNLm7Q4acFlT4XAr7fGrXyhN +1AA+oQ87lJcp9Et35ijh1QBkU980RFugM+KiyJQ6hE1dFM9eofDO4FPjwlfq +cPe/sdUmvylcWBOx1qpWHUZadJd/055LX6xUvKIO/wNZuXLl + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 11}, {0., 0.9289465115382269}}, + "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" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVV3c8lf8XR+4TlVW4z5Vxp5WoyGh9johoKZW0rMiKyiqlr5I9QqKQPRJJ +NllZWVGyV5lFVkhl9Xt+f93Xeb3uc17nc855j0MztT9lzsHGxhbBzsb2/9+L +muHcbGz8kM+YU4mem0T7RoUqsgP4oS5JoFtyehqNtEbK7GUJwG9aq7l+7yxa +2Mr3LTVHAA5zSrlEuM6hIX7XazpoM3zYQzLeYbqAIk5NpFR0bIb5tCWT2sZF +lDejoyR6ZQuQLx7xNTr3F0V1ZzoeW90CcwllRQpGK+iy/YZ7OY8FAfu10ij2 +8B/yMz7TuyohBMXYxqahA+zgFpP8Q6xQCGIWwksamzmgW2X0BF1LGN7UO40/ +YHLCZretbhc+CUPQ639fTTVIsIXP4JK1JRni5U7sjdiJwd2V+yGXfpGBqoAq +XEoweKWcfUsyCAfxBi6ZxkkMSkS7pZlMCnDN1CjszsJA8fKMHJZFAY4/21kP +KRjcnNwwUqotAlud34/Y4SSgdAjNGLaLwJraGvd0/zrw2ST5qtFuK7y+p0Cq +1+WA9mk5pZskUbhAu27aH8YGfnIMvtUQUXBq2vsutnUVrS8Qf35JVgz0udN+ +8Sosoclo7v8SCsVA89v22KXBRfRa/oeMqKY4fGDNbav7NI/UeFq9bXrFQUMD +4VrvZpGc9gu1WEsJYB/BSt4bTqL5MfUTbWxUqLKBKpblN4TYtlnMH6FCR7af +OWX3MELvN6ZyhlKhQodeHpD9BSUq2b9jG6DC/dt+cnd9u9HbEw2kGSYNBF7J +wLOSNlRZEZfpYk2Dmwf/lDd//Ijkuv7u+JFHg/RtP8tikxrQkee6/XorNNhx +NS6D16AGNXOJm8UfpsOI+VulhJwKRKKPbx55RIdIBntZ3q1itC1EQepdOx1i +Cxd0ZTnyUG7KH0FfGgPWdgXtCj6aheasiuQ0LBng93zRgetFGnr8eUXsey4D +ThTnjOuVJSLG47cOUmxMkGc475l1jkFX2W7On9NiQoBXNqJ9jUB8gulHnUKZ +IGbk0jd3NBTZtve2eHQzwVv868KkRwAqmPQukJNgQbKaumLpUS9k8TL/VoU1 +C+qWXgar8t1H9UL9ZlpvWFDhvGhiGuCKWvuVlv/9Y0HC38AWv42OqEmw44qh +Fj+IfPatN/4yhfgvdi0sdvFDyVHbTwzxWWT7+7TPDVsBGJPa55od9xPZhGu+ +vPVXAHa3ZsmbX5lHzufdx8r8hWFUcnPlajGxr1pqU0OiZLDSWXAWryFBnaft +7+FMMtgOK3ztvI9BGEWEVKmOw5N0XyPTIQxy02r0WN04yIRZXRvqxeDW/hFZ +IWsK7M8/lNRtj8EplhvX0DIFPjaGphkkkUDLJHjcP4jYz2rhhF0enPDTbX8u +RyEVAhqaOi+49iGFyuhhF3Ya3OAdnnNc34kO+Ow+n6NNg7TE79f/e92KXI5+ +sN8ZTIP4RG5zrYUPqGQPfb14Nw14tku62/a+R5v0lai36XS4yttjlD5ciayf +rHt70JYOg/LS27PKS9FTw03PW7Pp8J4tolszogDNbhUUT16mw2uPzQW/HmQj +fa5u6pgmA7avjdZFTWWgSvELyU+CGNBN3vXG2iMFXVDsq/PuYUDuehs84Vw8 +qqkPVwQGEwwP3TUJ/huJ9vrxUq/aMsH/l6ae+vcwVOaoEbSSxwSh9Uc5u6SC +0ebBNxrnVpgw15owaKDqi4KOSDxd1GRB3ETX8Zb7Hgj/qmO3LogFH20Cxx9S +7qHmvz4KiV0s0LmngB3c7ILC5JQL5Bj80CVtPtZ/ZQqlUF162rL54VTWxPvm +RzNIevT3uY7DAmBaqjl4a+9PtKM77XBwhwAMp39lrU7OIen6XVGzlsKQc4we +Z3KDE0JNZHdL/BYGy1QxxxovEtg1mMim+pOBt0a33OAiBlwbjzc+2oqDu7v7 +jtZWDHbMvh1JzsHhVqDHfM43DEReDaSJalMg7ioW0h6KQaV6vshCOwXMHi/p +jgySoC/lwxjTRgQm6HaFP1s44WlC0qt1yVRIS9jOPMIzgKyWPU+VzFDhmp9I +8wX1LrTy45/CSWUaGDHnhTZmfUbRmMqj0240iL6rJl1a1oIcuXmjH76nwRc9 +WwUelXokd6t87QofHYJVOSe8BKuRaAs/383zdDhqFEr76FWOmkuXDC7E06Gn +4Mp/f1YLUVBHPD3nOx3iDvTxzhfmoIed3yNVFIl5u6xcmsnLROc1N1jZ3mGA +ccL+j/zcL5CLh+18wXsGWHQ8udB3PwE5yqd9zhFgwu/d8Qc2pEejk4cquI0N +mSC1jUweNghHFpouU6pJTOB2udrEuSsEod5a7ukJJoS9WVK3/eSH6NGfUwV2 +sWCicV/cg96HCB1ynze5ywJuxpMtGzF31LQ+p36hmgW7fiWyRstvIc5Vp81e +VvzgoEPKuGI6jap/fNgZmEngVVp6cQs7CUJlDyenHCTDqIu6P2uNBHR1l2pq +Kxky2aOCpuMxoEqPHVi4ikOj/QtR/h8YqJq1lCSt4aDIYzd5qR6Djg/j6TyB +FPCj7129pI3BEJfmYgtNBBZu/EgVMSHyqdWnhJ1lQH06z42KA+lI9m/6YFk8 +A975mRTGCSUjNHwkxmCKAZ3jE+qe6nFI2Pzh4yYlJuRQT07wmDxDrJaLynb/ +MeGO/LxL2aPHSCiZT6HiPRP04w5ZTJ4PQiNj0W6VPCwoDOzYuL/AGy0tWfv0 +GrDAsWWRJXfgAZp13TKeFMuCPjZe3S+ad9HHH5efnJxkgeb7iO7r953QLVUL +43ABfpjiYC0Xyk6hnw+0PlTF8oPzKenZpP0zCLuo845LRQBk92qnVG/4iUJd ++8iiNQIQMW3JL5szh9zZApx8DYRB3yhF7+wRTjg1QzfcPyIMI9+007LMSVBh +21fF5Urwn/35umiiP5XrLDOduXAI5JG0v1uHgd2WAvmxOBxeDgxzkIn+/hi5 +YBW3mwLuPOC+JwGDpZZWxmolBegB9UZOxHxSdWzNbxiKgFibknnJAidMKp2T +fRhFBfbkZFJk/wDCni75DoxRoWDsxOzz4S7UJzYqEredBpe+Y8cbldrQ6+Ef +4mMONBAJiCH5nP2IPs56jBWU0eBseMzOgB/1qGQDabqHRPCb4dOH3jnV6JcN +ucj3JB3mHDhpY2oVaGLmRl7sUzqQa8votYVFqC/nO3PPFzrcjNE2Eb6Qi0TL +Zw2MZRlwZ/2qqlDSayTZOdjQeYMBq1y007rtL5Bnei6XXhkDcj4pzESLJaIm +4+zEKS4mLN9vS40IfI766M/u9Z1gwiMn87F2PALtkRMQM4hiQuoZ/rf6pSHo +7LlPk6pDTND1Ht98NdUf2Va/UoiVZsGe64+ThUM8UavLVuUQBxZcav5V8MTH +HTXw1oWLvWVB5muReMmE2+g7V8rbGQN+2He+La9ZYhqJMaQ2ST4XBtPejBK3 +AWJ+hVBfrUAGcfFDT/SGSOA0/PPSgwoy3N+oWhNK8FMPlY3ee5rAwz+DinCC +v5y9GrDRHzg4vrnZ5PQZg1TSVZuQOxRwDvZs0iH4TyTC+F8Xrwjgd1JVbTxI +UEz9ZFZ6jAEHU2qrBLdkoEV/Dw3ZpwzI5E17F1efjI5tDMuZGWYAx7pNSoMN +ccguItAMk2OC/fhgpZZsJMrK2J0+4cSEnRqBbIpqYWgiIO3yQBnhB07X7bp9 +8hFaNks15iGxIFTAPWnQ0QdpMg7xWx0n+D+0V/1U/wP08FXmtrZwwi9oaTiE +bHNDLXMOpq5DLJA6csn4spYz2ir9LfjQczI0P7vuV0no7/HNSt9fyONAfnf9 +oBOhz3NNFZHmtTio313amUDot46TycTTcxSYkXh2m/sBBi0xK7Llw2SoFKgc +HnuNgYVC0wWeOzhE+flmNBF+dAm13bwiQAFeqtnX6FIMPo3o1EkvskDN7VjM +/ipHZH1gTamRix/4Z0Jwa94pJKyUqbU3nB9o1p/+BAvNICfyzV80eQHIe2bU +MDw3izQanf6ZlAjAlSeeRYXhc0guunCo/bgwHO/oEyKpcsIuZQmbph5h+Gbw +RjfrNAkmSp8Fq90gw0D06T+V+zCQYPslMbFGxCTn3NeVGPAm5+p7ReBQX9X7 +U5Kot81dRGdIjvAjpbLHzdMwECabvLhfRAGsQvb29k0YbIp6mxShJwJDPscY +RRgJhNfeWFaHU2Gb5dPfbtpf0Omx3GT7ISowqquycOVu1JRvEKwtQwOX5l+l +J261IdVTtWPy9jR4leKVr/X4I7o3UuZ/spgGy4tVg/e1GxBnW+qoEDsdnhpU ++BRy1iDTYpEgoWN0WN/NIX/BuQL98dk+oh5GBw3ehNdkvBg9pG9KceuhAzuv +jjBbZi76nu2Yv8BigMOUUVQ/bxYKiPtwh+caA6Iqud62709DAeXntkQXMUBL +4CTz7LVE9Odvvr8fJxNWvGRuXWWPQQkhpCKRI0y4etri7Ks7EYhJHVAaC2dC +N2fXngjOUDQYfvbyQD8Txn3FH7ULBqDQrsj5UQYLIs/nuzKnPZGogFWntD0L +RopVaaaN7kg39NTqznwWbHhu3Q/CrqiH90Aw8wQ/XLS/rab/bwo1lOnfvhkm +DB3frzv2NBHz+7evV1+SDEs3XROHPpMgRum1bE4BGeaFTKeM/TBQEQt8fPwI +Dq6qK82KoxgI4XXbPIdw8Oyxjh/sxCA4nnXk800KmHL13d5vgYHywLTHJZII +mES3uvCGkcBL8EzlSR0GhF030Xz0Xwa6eMZ+wegxAxoDXfPrWSnotIRq2d4v +DFixbpjYJRCPIneEHkmUYkJQl2CuZEgkct6aMCp9g8DfgWIxzuAw1Obu7Hyt +mAnJmwTyo1oeIa8EudZsNhaIm8m2fGn3QVYqu9pe67DgR9NTyWF5D9SstdJk +E8qCy+3Ld2Lj3dBx57W6oH4W/Dy/PeZaujPSvJ10yTmMDMdIFe4qRP3pvO8M +RVk47D2aoXWeeF/I5bJyUikOP7gGvxoT798lQG3oOUGBQ87Pd0cT/fkzU/R7 +pocMd/iWrcjE/lZtM/zgfgOH0vfPhf6/388+fYrg5KKAzx1pi+wqDPQs2+T3 +/yTuB5e1KA+aEzJf37tv3WYcnmr62PZ/IPB9v4hb6yUO6/zeGkSNY+DGdMi6 +ehmH7czH035E3LnQNKj5Cwfl/V9Zsc0Y/BRKdd6tioOmwfpy+hcM9PdWOdW0 +4GDZ6cB2i4g3KKKJZw9x0OsOL1k3Rfh9k3ITwWUWVIdsy42wcERm6rqx5pz8 +cLjjOe7ANoXSNpmucwnhB1WZ5vJa9hkk5+T1KFNGAPRGPgQKfJtF0Q4H5zkL +BeBqcYpwjM8c4pg4TrmrKwwCgp6bdOU5IcFQbGFLhzD0aJczthwlwT2LP4uf +bMkwbJ52REWF4Lt7b7sYS2TQqeGgxJdjMHBN0aIjFAdz9h4PL6Jfdc1/VT2k +KcBvuBbflYFB0p4XE1W5FPhkI7phdDMG5Rpm1bJHRSBRzXcumo8EL4cGvK+E +UaFldnXoy90v6C5PqKLqVyoc4yfte2XUjTTXCRzZKkWDP/e9Ky9EtiE33xzd +z7Y0iLqSaf/zzUd05vLFy+KFNFCZ73z2w6kBvVC9bZKzRgP/78FlZdtr0FOT +6Fu9unS4q3VUdySsAt0747+8OZQOYsMDo/sOF6Ou7ucWEl10KE827JnszEXN +GfmjZQwGOHmEVkduz0LIU+P0C2sGXPa2rS+6mYaC61/iBwsIv8qTyZX+JBEF +aRX9O8dB3B86LgYLe2MQZ/3ejqLDTFBW3nYm51UEEomsrngVxoTtM8dq4qVD +kaQyhfymlwllpw+923Y0ACWZhpzxpbHgYZ6EEBLzQu/6+V4s2LKgfl1D57Yp +d7ShLWJHSQ4LnDFlGf6TruizgN9SmS4/uF5xnTk8M4XiNk28xoOFYVsCSXW+ +ipgffe+VKBoZnpec1PBvIoFiP0/IkRwylPMIakp5EXoTpX/URwsH2k7zoa5h +DEa+ah1o78eh1yvPZqYbg4cznHsd7Sgg2enqLWyDQTW7cm0smwhIcd8wPRBN +AlveiJ9btYn+tLXMmOZnIL49o01LwQyoFtDptj6dgs7J+FUN9jEgf+5wUK1S +PNrhFlZ+g8WEipJHf2VqIlHXqS6OOjsmRI/NdC28DUP1Sxc5dhcSfGoRHpGz +Phg1qc/4ea4xoWGH7cFJzBfdfSetrK/NAmGzuFvbz3kghy2Jz1WCWWCtHPX5 +bL8b4i3UWMF7WfDG+29WzIAz6qatq+YNJoNarLHcKRPCjwR4bz5LxWHY5XAX +ox0DY6n9rWcKcejYueFLxBgGkkb/iu4coYC8wA7h6iAMAp/il306yLB43Joa +lEzoeZqEV7EtDsasWo40wn9aRuq9PL2OAhrs++ye1GLA/5Ji+n6a8E8bOwY0 +TzqhMM/4X/t4cChru35tTyMGMbqqouHJOGzp/JhkMYFBRoKaVbwhDudke3Ji +vmOQUnpkIWwWh0fU5y3kT8Q9EXZNwV6RiINj8w37MaBzHvQRaiT8hXSKt8gg +cV+8ISV+/g8HDwtLqUUCb5sTOZ/E/GFBVL4RXhDmiA707VZXjsbhXlbTjQyi +Xq7Y2h5BPRzOP5va6kC8t/IJepX3Dofybz7LvCMYhL0KFdR2xuHgm9YT3kQ+ +tqI9v39l4iCirimaR9R3PCXj93YzHHpc6VYXiPr7cm/tNPYl+rexzPIX8f9Q +CVd5v1UWlO4aDB5QdURfD15v28XBD1DkkOLxdxLN/Xk7KPiIH6wOmT/8+Xsa +cSUF9zlKCYD22uffCoOzqO699LWOPAG4HhGp9fT+HJrmj1Q6cVgYijW4Vq7K +cMJ5m+jCgs/CsChlYVaqTYK6YinZGGsy/JNyarZSwsC8VDyv4jcZJnUVq/jK +MNBqvWl/LxgHf985xQyivkqn8Sx9SQpE3Dte6ZuJgW1T40bzbAqw23O+UBHG +AMdVTi/oEHqXSZfhEiTBwmmnCKXHVIh8qT2TEfEF8ce7u4p+ocL9ArUrgY7d +yD3tmjRJkgb51tPHHdPbEJX18m6yDQ1wl/4Kw3cfEWxNf89ZQIPG4cRz+wIb +0NKEicSDVcKvPPF0uXSwBinu7r9WpkMHZktZ3L6kClS5d4/3cjAdziuHttsZ +F6MHeWNasx10mHoFjuxTuehdmsFqIp0BsYc5r/Huz0JPXe5VOFkxoH1fXJl+ +YBoKbdbfKpTPgJbpdR/n0xJRl22xGrAz4di+5QtXDGNQ/kjHFV9tJmzK2QD9 +tRFIsLPAK+QxE4xuLzu/2xOK6j1dHSJ7mJBSYTS9djUAZaYGYBeoLJjL/ZXy +U8kLCWqaBffYsOAvs7NRZs0dTTju0b2fTehzoHTHCztXpLclSyHgMD/k6c8/ +0/s2hfwVdzf+CBSGcMFtB13LifkpFUsjCTJohLv5dNYRerJzfzX5DRm69mse +5nhI6GNPvjRLk+CjGeYWGsFHRw95abv14oDbsmtN9mBwL3whW9OWAlIcf9pc +r2Hg/9jwG6xRoIlm33csjgTGG1W52bUY0DvelD73KQNZylHV6h4xIMH4xPCA +TQo6L69Ym9tL8FPR+LF0rXjkmvjk7zkmE6jTs6V6XyKRn51DSMQ1JmjKRITw +tYahahW9OryACcxnd2dLycHIPkTvm90qE4KPGtDCJXyRJ8b8xtRiwcUN01fn +bT1Q7e1FT7FHLDgVY/zn8rIbmj43JjTQzQKzxIx1pn+cEdN51++eQDKsjwuL +6LxM6H3jxPScGA5yzfnWa8Q9VOd/t3c1D4fdKnFaMsS9RMVmdh7VoYBLtFR8 +SzAGXZPaIafbyPD7vIfEu0QMuMcfmBpY42CnXMNtTOD749qjnBU2Csz/lv23 +8h6DWd2SOwFTLPAMj3U+ZuWE0qs5W7s34CD1UvXDQD0G2GsX1oFEAr8L5Tsr +CTxXDUYfOmCAw3H5gh3iBN556f6r+6ZxyDaiMXVbCf/4+ePGTTtxEDqgNW7d +h4Gf5f2Q0jqCLy69Khwk+OjErOV/191wAB/HsRECb3MaqZlmv1kw8eKf5VS6 +I0oBJ92BZ8R885P5poh6qQMyBW+O4ZCVvTTeQfgx2aV7+ZfKcZDeOq37luCj +jMlfs8MOOGicFJM/T+SzFHNli8kg/NC10ohthH+yGOVrazDGIZzzZNIiEc/P +9/KsehHvKVjmYyP80c0K0cMnVljwwMXMMvOEI3LmXrgo/4Tgs2J//P/5eqxL +0sTscajzm8d+EPUoj/3ZPJ2Kg4+WxEVOoh9hZh0BnBeJerrqDuNEftrNhFrl +BzgoMaft/p+/w2VRJSgGByvDvbg58b2bnYLqy1s4BHhLur4i8lc7CZ2p8seB +b5937TARZ9/rFKxZI+7Jk+0C0nRH9D8MdEdJ + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1XV41lUYBuDRXWN0jNGM7u6OMUCRsAAlBBVJ6ZiKSscok8YARMFuFJNG +BbtbUFFQ2vu9/OP+3uc8u65933fO+W0pw8b2uzVLQkLCai8xu3i5aL7EHfSj +IcP1ZflU3sA4stJVd8l8mTu5gkZko5ufXTZf4S6upDHZ6R5vxqvGPPrThBzk +JBe5yUNe8pGfHvE5eU2+m6toyghdOT6TNzKeAvTUZeV1+R4G0IyRuvJ8Lm9i +AgXppcvGHvleBnK7dR1OyLtpzijrZL6QNzOR6dYN+FN+jkKkWWfnDXk+s+Um +nJYHMUWuy0n56dhzuQVn5RbcJFfgy/j8Zlu2yHPNZiznH+uFZkcmyTPMhizl +VLyv2Z6VPB9nYbZiBeetF5mdWEVh695mDpbwZuyz2YZMFljPMZuyjDPWC8wO +DJanmvX4PfbPbMczcTfMlpyTWzJaTuEreSsZcnP+lSczU27EX/ILFCHdOid7 +4/tyNdOs6/OH/CytGGNdka/lR+L8SKSPLhdvxXfmGlpzs64S38iPxplQlL66 +3LwtL+Za2pBEMYpTgpKUojRlKEs5ypMcz5DfkYd35CVcR1sqxPOiz8u78lKu +px0p8bzo8/GevIwhtKdiPC/6/LwvL2coHagUz4S+APvkFQyjI5Xj/usLsl/O +5AY6USXuur4QB+SV3EhnqsZdjbvBQXkVw+lCNQbri3BIXs0IulI9zkifyGF5 +DSPpxi26ynwrPxb3hhpxJrqiHJHXMoruxB+pKnwnPx7nTmqciS6Jo/J98bzQ +g7G6qnwvb2M6NWPvdcX4QL4/7iE9uU1XjR/k7cygVpyHrjgfyg/E3aIX43TV ++VHeEfeV2nFGuhJ8JD8Yd4s0xutq8JP8BLOoE+emK8kx+aHYF3ozQZfKz/JO +ZlM3zlJXiuPyw7EvpDNRV5Nf5CeZQ704X11pPpbXxb7Qh0m6WvwqP8Vc6seZ +68rwibw+9oW+TNbV5jd5FxnxHawb87f8IvPk1lyQF5uds/z/f6WB9X9DQ684 + + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgEAURMEvGtiGrWhgYmQJBsKBcODZi+2qgWAPTrLw2OmWPK9nFVGa +iJhSOdY7PlU/1d4zj/2Qt7yn50/xDo7jOI7jOI7jOI7jOI7jOI7jOI7jOI7j +OI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOP5XfgHw9t5n + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVV3c8lf8XR+4TlVW4z5Vxp5WoyGh9johoKZW0rMiKyiqlr5I9QqKQPRJJ +NllZWVGyV5lFVkhl9Xt+f93Xeb3uc17nc855j0MztT9lzsHGxhbBzsb2/9+L +muHcbGz8kM+YU4mem0T7RoUqsgP4oS5JoFtyehqNtEbK7GUJwG9aq7l+7yxa +2Mr3LTVHAA5zSrlEuM6hIX7XazpoM3zYQzLeYbqAIk5NpFR0bIb5tCWT2sZF +lDejoyR6ZQuQLx7xNTr3F0V1ZzoeW90CcwllRQpGK+iy/YZ7OY8FAfu10ij2 +8B/yMz7TuyohBMXYxqahA+zgFpP8Q6xQCGIWwksamzmgW2X0BF1LGN7UO40/ +YHLCZretbhc+CUPQ639fTTVIsIXP4JK1JRni5U7sjdiJwd2V+yGXfpGBqoAq +XEoweKWcfUsyCAfxBi6ZxkkMSkS7pZlMCnDN1CjszsJA8fKMHJZFAY4/21kP +KRjcnNwwUqotAlud34/Y4SSgdAjNGLaLwJraGvd0/zrw2ST5qtFuK7y+p0Cq +1+WA9mk5pZskUbhAu27aH8YGfnIMvtUQUXBq2vsutnUVrS8Qf35JVgz0udN+ +8Sosoclo7v8SCsVA89v22KXBRfRa/oeMqKY4fGDNbav7NI/UeFq9bXrFQUMD +4VrvZpGc9gu1WEsJYB/BSt4bTqL5MfUTbWxUqLKBKpblN4TYtlnMH6FCR7af +OWX3MELvN6ZyhlKhQodeHpD9BSUq2b9jG6DC/dt+cnd9u9HbEw2kGSYNBF7J +wLOSNlRZEZfpYk2Dmwf/lDd//Ijkuv7u+JFHg/RtP8tikxrQkee6/XorNNhx +NS6D16AGNXOJm8UfpsOI+VulhJwKRKKPbx55RIdIBntZ3q1itC1EQepdOx1i +Cxd0ZTnyUG7KH0FfGgPWdgXtCj6aheasiuQ0LBng93zRgetFGnr8eUXsey4D +ThTnjOuVJSLG47cOUmxMkGc475l1jkFX2W7On9NiQoBXNqJ9jUB8gulHnUKZ +IGbk0jd3NBTZtve2eHQzwVv868KkRwAqmPQukJNgQbKaumLpUS9k8TL/VoU1 +C+qWXgar8t1H9UL9ZlpvWFDhvGhiGuCKWvuVlv/9Y0HC38AWv42OqEmw44qh +Fj+IfPatN/4yhfgvdi0sdvFDyVHbTwzxWWT7+7TPDVsBGJPa55od9xPZhGu+ +vPVXAHa3ZsmbX5lHzufdx8r8hWFUcnPlajGxr1pqU0OiZLDSWXAWryFBnaft +7+FMMtgOK3ztvI9BGEWEVKmOw5N0XyPTIQxy02r0WN04yIRZXRvqxeDW/hFZ +IWsK7M8/lNRtj8EplhvX0DIFPjaGphkkkUDLJHjcP4jYz2rhhF0enPDTbX8u +RyEVAhqaOi+49iGFyuhhF3Ya3OAdnnNc34kO+Ow+n6NNg7TE79f/e92KXI5+ +sN8ZTIP4RG5zrYUPqGQPfb14Nw14tku62/a+R5v0lai36XS4yttjlD5ciayf +rHt70JYOg/LS27PKS9FTw03PW7Pp8J4tolszogDNbhUUT16mw2uPzQW/HmQj +fa5u6pgmA7avjdZFTWWgSvELyU+CGNBN3vXG2iMFXVDsq/PuYUDuehs84Vw8 +qqkPVwQGEwwP3TUJ/huJ9vrxUq/aMsH/l6ae+vcwVOaoEbSSxwSh9Uc5u6SC +0ebBNxrnVpgw15owaKDqi4KOSDxd1GRB3ETX8Zb7Hgj/qmO3LogFH20Cxx9S +7qHmvz4KiV0s0LmngB3c7ILC5JQL5Bj80CVtPtZ/ZQqlUF162rL54VTWxPvm +RzNIevT3uY7DAmBaqjl4a+9PtKM77XBwhwAMp39lrU7OIen6XVGzlsKQc4we +Z3KDE0JNZHdL/BYGy1QxxxovEtg1mMim+pOBt0a33OAiBlwbjzc+2oqDu7v7 +jtZWDHbMvh1JzsHhVqDHfM43DEReDaSJalMg7ioW0h6KQaV6vshCOwXMHi/p +jgySoC/lwxjTRgQm6HaFP1s44WlC0qt1yVRIS9jOPMIzgKyWPU+VzFDhmp9I +8wX1LrTy45/CSWUaGDHnhTZmfUbRmMqj0240iL6rJl1a1oIcuXmjH76nwRc9 +WwUelXokd6t87QofHYJVOSe8BKuRaAs/383zdDhqFEr76FWOmkuXDC7E06Gn +4Mp/f1YLUVBHPD3nOx3iDvTxzhfmoIed3yNVFIl5u6xcmsnLROc1N1jZ3mGA +ccL+j/zcL5CLh+18wXsGWHQ8udB3PwE5yqd9zhFgwu/d8Qc2pEejk4cquI0N +mSC1jUweNghHFpouU6pJTOB2udrEuSsEod5a7ukJJoS9WVK3/eSH6NGfUwV2 +sWCicV/cg96HCB1ynze5ywJuxpMtGzF31LQ+p36hmgW7fiWyRstvIc5Vp81e +VvzgoEPKuGI6jap/fNgZmEngVVp6cQs7CUJlDyenHCTDqIu6P2uNBHR1l2pq +Kxky2aOCpuMxoEqPHVi4ikOj/QtR/h8YqJq1lCSt4aDIYzd5qR6Djg/j6TyB +FPCj7129pI3BEJfmYgtNBBZu/EgVMSHyqdWnhJ1lQH06z42KA+lI9m/6YFk8 +A975mRTGCSUjNHwkxmCKAZ3jE+qe6nFI2Pzh4yYlJuRQT07wmDxDrJaLynb/ +MeGO/LxL2aPHSCiZT6HiPRP04w5ZTJ4PQiNj0W6VPCwoDOzYuL/AGy0tWfv0 +GrDAsWWRJXfgAZp13TKeFMuCPjZe3S+ad9HHH5efnJxkgeb7iO7r953QLVUL +43ABfpjiYC0Xyk6hnw+0PlTF8oPzKenZpP0zCLuo845LRQBk92qnVG/4iUJd ++8iiNQIQMW3JL5szh9zZApx8DYRB3yhF7+wRTjg1QzfcPyIMI9+007LMSVBh +21fF5Urwn/35umiiP5XrLDOduXAI5JG0v1uHgd2WAvmxOBxeDgxzkIn+/hi5 +YBW3mwLuPOC+JwGDpZZWxmolBegB9UZOxHxSdWzNbxiKgFibknnJAidMKp2T +fRhFBfbkZFJk/wDCni75DoxRoWDsxOzz4S7UJzYqEredBpe+Y8cbldrQ6+Ef +4mMONBAJiCH5nP2IPs56jBWU0eBseMzOgB/1qGQDabqHRPCb4dOH3jnV6JcN +ucj3JB3mHDhpY2oVaGLmRl7sUzqQa8votYVFqC/nO3PPFzrcjNE2Eb6Qi0TL +Zw2MZRlwZ/2qqlDSayTZOdjQeYMBq1y007rtL5Bnei6XXhkDcj4pzESLJaIm +4+zEKS4mLN9vS40IfI766M/u9Z1gwiMn87F2PALtkRMQM4hiQuoZ/rf6pSHo +7LlPk6pDTND1Ht98NdUf2Va/UoiVZsGe64+ThUM8UavLVuUQBxZcav5V8MTH +HTXw1oWLvWVB5muReMmE2+g7V8rbGQN+2He+La9ZYhqJMaQ2ST4XBtPejBK3 +AWJ+hVBfrUAGcfFDT/SGSOA0/PPSgwoy3N+oWhNK8FMPlY3ee5rAwz+DinCC +v5y9GrDRHzg4vrnZ5PQZg1TSVZuQOxRwDvZs0iH4TyTC+F8Xrwjgd1JVbTxI +UEz9ZFZ6jAEHU2qrBLdkoEV/Dw3ZpwzI5E17F1efjI5tDMuZGWYAx7pNSoMN +ccguItAMk2OC/fhgpZZsJMrK2J0+4cSEnRqBbIpqYWgiIO3yQBnhB07X7bp9 +8hFaNks15iGxIFTAPWnQ0QdpMg7xWx0n+D+0V/1U/wP08FXmtrZwwi9oaTiE +bHNDLXMOpq5DLJA6csn4spYz2ir9LfjQczI0P7vuV0no7/HNSt9fyONAfnf9 +oBOhz3NNFZHmtTio313amUDot46TycTTcxSYkXh2m/sBBi0xK7Llw2SoFKgc +HnuNgYVC0wWeOzhE+flmNBF+dAm13bwiQAFeqtnX6FIMPo3o1EkvskDN7VjM +/ipHZH1gTamRix/4Z0Jwa94pJKyUqbU3nB9o1p/+BAvNICfyzV80eQHIe2bU +MDw3izQanf6ZlAjAlSeeRYXhc0guunCo/bgwHO/oEyKpcsIuZQmbph5h+Gbw +RjfrNAkmSp8Fq90gw0D06T+V+zCQYPslMbFGxCTn3NeVGPAm5+p7ReBQX9X7 +U5Kot81dRGdIjvAjpbLHzdMwECabvLhfRAGsQvb29k0YbIp6mxShJwJDPscY +RRgJhNfeWFaHU2Gb5dPfbtpf0Omx3GT7ISowqquycOVu1JRvEKwtQwOX5l+l +J261IdVTtWPy9jR4leKVr/X4I7o3UuZ/spgGy4tVg/e1GxBnW+qoEDsdnhpU ++BRy1iDTYpEgoWN0WN/NIX/BuQL98dk+oh5GBw3ehNdkvBg9pG9KceuhAzuv +jjBbZi76nu2Yv8BigMOUUVQ/bxYKiPtwh+caA6Iqud62709DAeXntkQXMUBL +4CTz7LVE9Odvvr8fJxNWvGRuXWWPQQkhpCKRI0y4etri7Ks7EYhJHVAaC2dC +N2fXngjOUDQYfvbyQD8Txn3FH7ULBqDQrsj5UQYLIs/nuzKnPZGogFWntD0L +RopVaaaN7kg39NTqznwWbHhu3Q/CrqiH90Aw8wQ/XLS/rab/bwo1lOnfvhkm +DB3frzv2NBHz+7evV1+SDEs3XROHPpMgRum1bE4BGeaFTKeM/TBQEQt8fPwI +Dq6qK82KoxgI4XXbPIdw8Oyxjh/sxCA4nnXk800KmHL13d5vgYHywLTHJZII +mES3uvCGkcBL8EzlSR0GhF030Xz0Xwa6eMZ+wegxAxoDXfPrWSnotIRq2d4v +DFixbpjYJRCPIneEHkmUYkJQl2CuZEgkct6aMCp9g8DfgWIxzuAw1Obu7Hyt +mAnJmwTyo1oeIa8EudZsNhaIm8m2fGn3QVYqu9pe67DgR9NTyWF5D9SstdJk +E8qCy+3Ld2Lj3dBx57W6oH4W/Dy/PeZaujPSvJ10yTmMDMdIFe4qRP3pvO8M +RVk47D2aoXWeeF/I5bJyUikOP7gGvxoT798lQG3oOUGBQ87Pd0cT/fkzU/R7 +pocMd/iWrcjE/lZtM/zgfgOH0vfPhf6/388+fYrg5KKAzx1pi+wqDPQs2+T3 +/yTuB5e1KA+aEzJf37tv3WYcnmr62PZ/IPB9v4hb6yUO6/zeGkSNY+DGdMi6 +ehmH7czH035E3LnQNKj5Cwfl/V9Zsc0Y/BRKdd6tioOmwfpy+hcM9PdWOdW0 +4GDZ6cB2i4g3KKKJZw9x0OsOL1k3Rfh9k3ITwWUWVIdsy42wcERm6rqx5pz8 +cLjjOe7ANoXSNpmucwnhB1WZ5vJa9hkk5+T1KFNGAPRGPgQKfJtF0Q4H5zkL +BeBqcYpwjM8c4pg4TrmrKwwCgp6bdOU5IcFQbGFLhzD0aJczthwlwT2LP4uf +bMkwbJ52REWF4Lt7b7sYS2TQqeGgxJdjMHBN0aIjFAdz9h4PL6Jfdc1/VT2k +KcBvuBbflYFB0p4XE1W5FPhkI7phdDMG5Rpm1bJHRSBRzXcumo8EL4cGvK+E +UaFldnXoy90v6C5PqKLqVyoc4yfte2XUjTTXCRzZKkWDP/e9Ky9EtiE33xzd +z7Y0iLqSaf/zzUd05vLFy+KFNFCZ73z2w6kBvVC9bZKzRgP/78FlZdtr0FOT +6Fu9unS4q3VUdySsAt0747+8OZQOYsMDo/sOF6Ou7ucWEl10KE827JnszEXN +GfmjZQwGOHmEVkduz0LIU+P0C2sGXPa2rS+6mYaC61/iBwsIv8qTyZX+JBEF +aRX9O8dB3B86LgYLe2MQZ/3ejqLDTFBW3nYm51UEEomsrngVxoTtM8dq4qVD +kaQyhfymlwllpw+923Y0ACWZhpzxpbHgYZ6EEBLzQu/6+V4s2LKgfl1D57Yp +d7ShLWJHSQ4LnDFlGf6TruizgN9SmS4/uF5xnTk8M4XiNk28xoOFYVsCSXW+ +ipgffe+VKBoZnpec1PBvIoFiP0/IkRwylPMIakp5EXoTpX/URwsH2k7zoa5h +DEa+ah1o78eh1yvPZqYbg4cznHsd7Sgg2enqLWyDQTW7cm0smwhIcd8wPRBN +AlveiJ9btYn+tLXMmOZnIL49o01LwQyoFtDptj6dgs7J+FUN9jEgf+5wUK1S +PNrhFlZ+g8WEipJHf2VqIlHXqS6OOjsmRI/NdC28DUP1Sxc5dhcSfGoRHpGz +Phg1qc/4ea4xoWGH7cFJzBfdfSetrK/NAmGzuFvbz3kghy2Jz1WCWWCtHPX5 +bL8b4i3UWMF7WfDG+29WzIAz6qatq+YNJoNarLHcKRPCjwR4bz5LxWHY5XAX +ox0DY6n9rWcKcejYueFLxBgGkkb/iu4coYC8wA7h6iAMAp/il306yLB43Joa +lEzoeZqEV7EtDsasWo40wn9aRuq9PL2OAhrs++ye1GLA/5Ji+n6a8E8bOwY0 +TzqhMM/4X/t4cChru35tTyMGMbqqouHJOGzp/JhkMYFBRoKaVbwhDudke3Ji +vmOQUnpkIWwWh0fU5y3kT8Q9EXZNwV6RiINj8w37MaBzHvQRaiT8hXSKt8gg +cV+8ISV+/g8HDwtLqUUCb5sTOZ/E/GFBVL4RXhDmiA707VZXjsbhXlbTjQyi +Xq7Y2h5BPRzOP5va6kC8t/IJepX3Dofybz7LvCMYhL0KFdR2xuHgm9YT3kQ+ +tqI9v39l4iCirimaR9R3PCXj93YzHHpc6VYXiPr7cm/tNPYl+rexzPIX8f9Q +CVd5v1UWlO4aDB5QdURfD15v28XBD1DkkOLxdxLN/Xk7KPiIH6wOmT/8+Xsa +cSUF9zlKCYD22uffCoOzqO699LWOPAG4HhGp9fT+HJrmj1Q6cVgYijW4Vq7K +cMJ5m+jCgs/CsChlYVaqTYK6YinZGGsy/JNyarZSwsC8VDyv4jcZJnUVq/jK +MNBqvWl/LxgHf985xQyivkqn8Sx9SQpE3Dte6ZuJgW1T40bzbAqw23O+UBHG +AMdVTi/oEHqXSZfhEiTBwmmnCKXHVIh8qT2TEfEF8ce7u4p+ocL9ArUrgY7d +yD3tmjRJkgb51tPHHdPbEJX18m6yDQ1wl/4Kw3cfEWxNf89ZQIPG4cRz+wIb +0NKEicSDVcKvPPF0uXSwBinu7r9WpkMHZktZ3L6kClS5d4/3cjAdziuHttsZ +F6MHeWNasx10mHoFjuxTuehdmsFqIp0BsYc5r/Huz0JPXe5VOFkxoH1fXJl+ +YBoKbdbfKpTPgJbpdR/n0xJRl22xGrAz4di+5QtXDGNQ/kjHFV9tJmzK2QD9 +tRFIsLPAK+QxE4xuLzu/2xOK6j1dHSJ7mJBSYTS9djUAZaYGYBeoLJjL/ZXy +U8kLCWqaBffYsOAvs7NRZs0dTTju0b2fTehzoHTHCztXpLclSyHgMD/k6c8/ +0/s2hfwVdzf+CBSGcMFtB13LifkpFUsjCTJohLv5dNYRerJzfzX5DRm69mse +5nhI6GNPvjRLk+CjGeYWGsFHRw95abv14oDbsmtN9mBwL3whW9OWAlIcf9pc +r2Hg/9jwG6xRoIlm33csjgTGG1W52bUY0DvelD73KQNZylHV6h4xIMH4xPCA +TQo6L69Ym9tL8FPR+LF0rXjkmvjk7zkmE6jTs6V6XyKRn51DSMQ1JmjKRITw +tYahahW9OryACcxnd2dLycHIPkTvm90qE4KPGtDCJXyRJ8b8xtRiwcUN01fn +bT1Q7e1FT7FHLDgVY/zn8rIbmj43JjTQzQKzxIx1pn+cEdN51++eQDKsjwuL +6LxM6H3jxPScGA5yzfnWa8Q9VOd/t3c1D4fdKnFaMsS9RMVmdh7VoYBLtFR8 +SzAGXZPaIafbyPD7vIfEu0QMuMcfmBpY42CnXMNtTOD749qjnBU2Csz/lv23 +8h6DWd2SOwFTLPAMj3U+ZuWE0qs5W7s34CD1UvXDQD0G2GsX1oFEAr8L5Tsr +CTxXDUYfOmCAw3H5gh3iBN556f6r+6ZxyDaiMXVbCf/4+ePGTTtxEDqgNW7d +h4Gf5f2Q0jqCLy69Khwk+OjErOV/191wAB/HsRECb3MaqZlmv1kw8eKf5VS6 +I0oBJ92BZ8R885P5poh6qQMyBW+O4ZCVvTTeQfgx2aV7+ZfKcZDeOq37luCj +jMlfs8MOOGicFJM/T+SzFHNli8kg/NC10ohthH+yGOVrazDGIZzzZNIiEc/P +9/KsehHvKVjmYyP80c0K0cMnVljwwMXMMvOEI3LmXrgo/4Tgs2J//P/5eqxL +0sTscajzm8d+EPUoj/3ZPJ2Kg4+WxEVOoh9hZh0BnBeJerrqDuNEftrNhFrl +BzgoMaft/p+/w2VRJSgGByvDvbg58b2bnYLqy1s4BHhLur4i8lc7CZ2p8seB +b5937TARZ9/rFKxZI+7Jk+0C0nRH9D8MdEdJ + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1XV41lUYBuDRXWN0jNGM7u6OMUCRsAAlBBVJ6ZiKSscok8YARMFuFJNG +BbtbUFFQ2vu9/OP+3uc8u65933fO+W0pw8b2uzVLQkLCai8xu3i5aL7EHfSj +IcP1ZflU3sA4stJVd8l8mTu5gkZko5ufXTZf4S6upDHZ6R5vxqvGPPrThBzk +JBe5yUNe8pGfHvE5eU2+m6toyghdOT6TNzKeAvTUZeV1+R4G0IyRuvJ8Lm9i +AgXppcvGHvleBnK7dR1OyLtpzijrZL6QNzOR6dYN+FN+jkKkWWfnDXk+s+Um +nJYHMUWuy0n56dhzuQVn5RbcJFfgy/j8Zlu2yHPNZiznH+uFZkcmyTPMhizl +VLyv2Z6VPB9nYbZiBeetF5mdWEVh695mDpbwZuyz2YZMFljPMZuyjDPWC8wO +DJanmvX4PfbPbMczcTfMlpyTWzJaTuEreSsZcnP+lSczU27EX/ILFCHdOid7 +4/tyNdOs6/OH/CytGGNdka/lR+L8SKSPLhdvxXfmGlpzs64S38iPxplQlL66 +3LwtL+Za2pBEMYpTgpKUojRlKEs5ypMcz5DfkYd35CVcR1sqxPOiz8u78lKu +px0p8bzo8/GevIwhtKdiPC/6/LwvL2coHagUz4S+APvkFQyjI5Xj/usLsl/O +5AY6USXuur4QB+SV3EhnqsZdjbvBQXkVw+lCNQbri3BIXs0IulI9zkifyGF5 +DSPpxi26ynwrPxb3hhpxJrqiHJHXMoruxB+pKnwnPx7nTmqciS6Jo/J98bzQ +g7G6qnwvb2M6NWPvdcX4QL4/7iE9uU1XjR/k7cygVpyHrjgfyg/E3aIX43TV ++VHeEfeV2nFGuhJ8JD8Yd4s0xutq8JP8BLOoE+emK8kx+aHYF3ozQZfKz/JO +ZlM3zlJXiuPyw7EvpDNRV5Nf5CeZQ704X11pPpbXxb7Qh0m6WvwqP8Vc6seZ +68rwibw+9oW+TNbV5jd5FxnxHawb87f8IvPk1lyQF5uds/z/f6WB9X9DQ684 + + "], 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]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 2.865729783395331}}, + "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:eJwVlnc8Vf8fx9G9JyqrcM+VdZeVqMhofd4ioqVU0rIiKyqrlL5K9giJQvZI +JNlkZWVFyV5lFlkhldXv/P66j+fj3PP6vD7veWim9qfMOdjY2CLY2dj+/3tR +M5yLjY0P8hlzKtFzk+jrwettuzj4AIocUjz+TiIzdd1YcxIfHO54jjuwTSHr +A2tKjZx8wDcTglvzTKFbqhbG4fx8MMXBWi6UnUJhcsoFcgw+6JI2H+u/MoWa +BDquGGrxgfBn33rjL1NIb0uWQsBhPsjTn3+m920Kfeb3WyrT5QPXK64zh2em +UA/PgWDmCT64aH9bTf/fFPrOmfJ2xoAP9p1vy2sWn0akVafNXlZ84KBDzrhi +Oo32jQpWZAfwQV0Sf7fk9DSa+/N2UOARH1gdMn/48/c0Sttkus4lhA9UZZrL +a9lnkJBSptbecD6gWX/6Eyw4g34+0PpQFcsHzqekZ5P2z6AUCZeetmw+OJU1 +8b750Qziu9i1sNjFByVHbT8xxGbRSGukzF4WP/ymtZrr984izqTgPkcpftBe ++/xbYXAWyTl5PcqU4Qe9kQ+B/N9mkRPl5i+aPD/kPTNqGJ6bRdhFnXecKvwg +u1c7pXrDTyQ9+vtcx2F+MC3VHLy19yey/X3a54YtP4xJ7XPNjvuJFrbyfkvN +4YfDJCmXCNc5VPde+lpHHj9cj4jUenp/DkU7HJwnFfLD1eIUoRifOaTR6PTP +pIQfrjzxLCoMn0Ohrn0UkRp+iJi25JPNmUM7utMOB3fww3D6V9bq5ByyCdd8 +eesvP+xuzZI3vzKPhvhcr+mgzfBhD9l4h+kCijg1kVLRsRnm05ZMahsXUd6M +jpLIlS1AuXjE1+jcXxTVnel4bHULzCWUFSkYraDL9hvu5TwWAOzXSqPow3/I +z/hM76q4IBRjG5uGDrCDW0zyD9FCQYhZCC9pbOaAbpXRE3QtIXhT7zT+gEmC +ab5IpROHhaBYg3PlqgwJOCaOU+/qCgG/gOcmXXkSyEUXDrUfF4LjHX2CZFUS +uLMFOPkaCIG+UYre2SMkkK7fFTVrKQQ5x+hxJjdI4HzefazMXwhGJTdXrhaT +wF9xd+OPQCEIF9h20LWcBHGbJl7jwUKwLYGsOl9FgoYy/ds3w4Sg4/t1x54m +EogypDZJPhcC096MErcBElT/+LAzMJPQk5Ze3MJOhs1uW90ufBKCoNf/vppq +kOG8TXRhwWchWJSyMCvVJkOCoejClg4h6NEuZ2w5SoZdyuI2TT1C8M3gjW7W +aTKcmqEb7h8RgpFv2mlZ5mQINZHdLf5bCCxTRR1rvAh9LbWpIREKWOksOIvV +EPpKxdJInAIa4W4+nXWEPn3vlSgaBZ6XnNTwbyL0/+3r1ZekwNJN18Shz4R+ +IdRXK1BATOzQE70hQl/2cHLKQQqMuqj7s9bIsIXX4JK1JQXi5U7sjdiJQV2x +lGyMNQX+STk1WylhcM/iz+InWwoMm6cdUVHBYKL0WbDaDQoMRJ/+U7kPgwrb +vipOVwrY2p+vi9bGwK7BRDbVnwI8NbrlBhcxYDrv+t0TSIH1cWERnZcx6Kat +q+YJpoBarLHcKRMMNG8nXXIOo8AxcoW7igUGW6W/BR96ToHmZ9f9Ku0JP562 +v4czCf1hha+d9wk/O/dXU95QoGu/5mGOhxgo9nOHHMmhQDm3gKaUFwYxSq9l +cwooMC9oOmXsh4HT8M9LDyoocH+jak1oKAZ0dZdqiVYKZLJHBU3HY9A1qR1y +uo0Cv897iL9LxCDwKX7Zp4MCi8etJYKSMfgzU/R7pocCd3iXrShpGLTErMiW +D1Ogkr9yeOw1BndX7odc+kUBCQVU4VKCgXmpWF7FbwpM6ipW8ZZhcPze2y7G +EgV0ajio8eUYiLP9Ep9YI+JHds59XYlB5TrLTGdOHAK5Je3v1mGQXk1q7d6A +g9RL1Q8D9RiEecb/2seNQ1nb9Wt7Ggn99b371m3G4ammj23/Bww4Nx5vfLQV +B3d39x2trRj8bJyYnhPFQa4533rtMwY9Ad6bz0rgMOxyuIvRTujzvDMUYeGw +92iG1vlOwt9mpe8v5HGgvLt+0KkXA5XPHzdu2omD4AGtces+DCTCrinYK+Lw +KDg237Cf0BdMdd6tioOmwfpy+hfCH1WYXKmOw5N0XyPTIQzcevKlWZo40GaY +W2jDGFhE6R/10SJ4p/lQF8EqooGPjx/BwVV1pVlxlNAfkCl4cwyHrOyl8Q6C +OWNrewT0cDj/bGqrwxjhX4KN3nsah8Z/BhXh3zCoGow+dMAAh+PyBTvEvmOQ +kaBmFW+IwznZnpwYgsPMOgJIF3GQ7qo7jI8TfpgOWVcv47Cd+Xjaj2CLUd62 +BmMcwkknkxYJPp6S8Xu7GQ49rnSrCxOEH+mxAwtXifPsX4jw/cCAa/yBqYE1 +DnbKNVzGBM+liXsV2+JgzKrlSCO4x7okTdQehzq/eewHwVXbDD+438Ch9P1z +QclJwt/kr9lhBxw0TorKnyc47FWogLYzDgfftJ7wJtjNTkH15S0cArwlXV8R +bKHQdIH7Dg5Rfr4ZTQSfmLX877obDuDjODZCsOobcuLn/3DwsLCUWiSYdjOh +VvkBDkrMaTu2KQw2KKKJZw9x0OsOL1lH8Px8L/eqFw4dBcu8/3/el3trp7Ev +wRvLLH8R71c7CZ6p8seBd5937TDBr5Szb0kG4SDWwCnTSLBW6037e8E4+PvO +KWYQPHBN0aIjFAdz9h4PL4KduRYuyj/BQbjYH////XiSc/W9InCor+r9+f/7 +p4CT7sAzIv/5ybxTRHwO9O1WV47G4V5W040MgjtcFlWCYnCwMtyLmxNst6VA +fiwOh5cDwxwUgrHXLqwDiYTfhfKdlUR+YnRVRcKTcdjS+THJgmDlsT+bp1Nx +8NESv0giuOV+EZfWSxzW+b01iCLyaynqyhaTgYPltdKIbQSzFe35/SuT8Kuu +KZJH1MuO2bcjyTk43Ar0mM8h6qvO/27vah4Ou1XitGQINpba33qmkDh/54Yv +EUQ9hlwuKyeX4vCDc/CrMVGvskv38i+VE/W2dVr37QjRz0/Qq7x3OJR/81nm +IXiuqSLSvBYH9btLOxOI/vCzvB9SWkfk/9KrwsFBYh6RDvoINhL9J53iLUyw +/t4qp5oWwm+nA9stor9y02r0WN04yIRZXRsi+vPoIS9tt14ccFt2rckeDEa+ +ah1o78eh1yvPZqYbA0G8bpvnEA6ePdbxg0R/O3s1YKM/cHB8c7PJiZgHPHT/ +1X3TOGQb0Zi6xLxIKT2yEDZL9LfE8xbKJww6F5oGNX/hoLz/Kyu2mag3s5aS +pDUcFLntJi8R8+jj2qOcFTYqzP+W/bfynohvpN7L0+uooMG+z+5JLQbPPn2K +IHFSweeOtEV2FQZLqO3mFX4q8EiYfY0uxaBEpFuayaQC50yNwu4sIl5O41n6 +klSIuHe80jeTiH/zX1UPaSrwGa7Fd2Vg0OYurDMkR4X9pbLHzYn5+2PkglXc +biq4c4P7ngQMhF8NpIloUyHuKhbSTsx3CWxm51EdKrhES8W3BGMgafSv6M4R +Ksjz7xCqDsJgF79EQ88JKhxyfr47mtgPOk4mE0/PUWFG/NltrgcY3No/Iito +TZyXfyipm9g/98IXsjVtqSDF8afN9RoGD2dIex3tqCDZ6eotZINBcDzryOeb +VDDl7Lu9n9hfqeSrNiF3qOAc7NmkQ+y/jg/j6dyBVPCj7129ROxHxcszclgW +FTj+bGc9pGJg29S40TybCuz2pBcqQhgk7XkxUZVLhU82IhtGN2MgRDF5cb+I +CliF7O3tm4h4trQyViupQA+oN3Ii9neler7wQjsVzB4v6Y4MEvue5cY5tEyF +j42haQZJZPB/bPgN1qjQRLPvOxZHhmp25dpYNmGQ4rpheiCaDMoD0x6XyMJg +Et3qwhNGBuEI439dPMKA30lVtfEgwxCn5mILTRgWbvxIFTYhw83JDSOl2sKw +1fn9iB1OBhxXOb2gQ7yfSZfhFCBDuYZZtexRYUhU852L5iXDpqi3SRF6wjDk +c4xRhJEhVcfW/IahMIi2KZmXLJCgL+XDGNNGGCbodoU/W0igZRI87h8kDGvV +Qgm7PEhA7RCcMWwnWG2Na7p/HfhsknzVaLcVXt9TINfrckD7tJzSTbIIXKBd +N+0PYwM/OQbvaogIODXtfRfbuorWF4g9vyQrCvpcab94FJbQZDTXfwmFoqD5 +bXvs0uAiei3/Q0ZEUww+sOa21X2aR2rcrd42vWKgoYFwrXfE97z2C7VYS3Fg +H8FK3htOovkx9RNtbBJQZQNVLMtvCLFts5g/IgEd2X7m1N3DCL3fmEoKlYAK +HXp5QPYXtHDaKULpsQREvtSeyYj4gl4ODXhfCZOAltnVoS93vyChtTeW1eES +sM3y6W837S9oUumc7MMoCWBPTiZH9g+gpwlJr9YlS0BawnbmEe4B9NNtfy5H +oQQENDR1XnDtQ4lK9u/YBiTg/m0/ubu+3Ygv3t1V5AvBBWpXAh270V3uUEXV +rxJwjI+875VRNzo9lptsPyQBjOqqLFy5G2FPl3wHxiSgYOzE7PPhLmS17Hmq +ZEYCrvkJN19Q70IKldHDLuw0uMEzPOe4vhO9PdFAnmHSgP+VDDwraUPuadek +yZI0yLeePu6Y3oY01/Ef2SpFgz/3vSsvRLahpnyDYG0ZGrg0/yo9casN9YmO +Csdtp8Gl79jxRqU2tPLjn8JJZRoYMecFN2Z9Rgd8dp/P0aZBWuL36/+9bkWV +FXGZLtY0uHnwT3nzx49IgvXybrINDXCX/grDdx+Rm2+O7mdbGkRdybT/+eYj +Uj1VOyZvT4NXKV75Wo8/otfDP8TGHGggHBBD9jn7EUVjKo9Ou9Eg+q6adGlZ +C3I5+sF+ZzAN4hO5zLUWPiC5rr87fuTRIH3bz7LYpAYEW9Pfkwpo0DiceG5f +YAM6c/niZbFCGqjMdz774dSA7o2U+Z8spsHyYtXgfe0G9HHWY6ygjAZnw2N2 +BvyoR45cPNEP39Pgi56tArdKPSrZQ18v1k0D7u2S7ra979GR57r9eis02HE1 +LoPHoAYtTZiIP1gl9J54ulw6WINeqN42yVmjgf/34LKy7TWI1JY6KshOh6cG +FT6FpBpUsoE83UOmw3vDpw+9c6qR3K3ytSu8dAhWJU14CVSjTfpKErfpdLjK +02OUPlyJmjnFzOIP02HE/K1SQk4FUtzdf61Mhw7MlrK4fUkV6KlJ9K1eXTrc +1TqqOxJWgUyLhYMEj9FhfTeH/AXnCvTLhlLke5IOcw4k2phaBRJp4eO9eZ4O +R41CaR+9ypH1k3VvD9rSYVBeentWeSki08c3jzyiQySDvSzvVjGq3LvHezmY +DueVQ9vtjIvRvTP+y5tD6SA6PDC673Ax+uOzfUQ9jA4aPAmvKXgxmpi5kRf7 +lA6U2jJ6bWERai5dMrgQT4eegiv//VktRE8NNz1vzSbuzxbRrRlRgLaFKEi9 +a6dDbOGCrixHHnqQN6Y120GHqVfgyD6Vi7q6n1uId9GhPNmwZ7IzFz2kb0px +66EDO4+OEFtmLurL+c7c84UON2O0TYQu5KKgjnh6znc6xB3o45kvzEGzWwXE +kpfp8Npjc8GvB9koN+WPgC+NAWu7gnYFH81C79IMVhPpDIg9TLrGsz8LNWfk +j5YxGODkEVoduT0Lfc92zF9gMcBhyiiqnycLiZTPGhjLMuDO+lVVwaTX6GHn +90gVRQZsd1m5NJOXifQ5uyXGNAleG62LmspAxhtVudi1GNA73pQ+9ykD2fJE +/NyqTei3tcyY5mcgL4EzlSd1GBB23UTz0X8ZqFjik1npMQYcTKmtEtiSgehq +9SlhZxlQn859o+JAOpqzKpLTsGSA3/NFB84Xaeipy70KJysGtO+LK9MPTEPI +U+P0C2sGXPa2rS+6mYYC4j7c4b7GgKhKzrft+9OQZOdgQ+cNBqxy0k7rtr9A +5zU3WNneYYBxwv6PfFwvUKXYheQnQQzopux6Y+2RgizlJNTqHjEgwfjE8IBN +CuLdM9q0FMyAan6dbuvTKejiGfsFo8cMaAx0za9npaBFfw8N2acMyORJexdX +n4xk/6YPlsUz4J2fSWGcYDJ6/HlF9HsuA04U54zrlSWi0Gb9rYL5DGiZXvdx +Pi0RBde/xA8WMMCCO5Mz/UkiCig/tyW6iAFa/CeZZ68lIs/0XE69MgbkfFKY +iRZNRC4etvMF74n/dzy50Hc/AV1Q7Kvz7mFA7nobPOFcPDovr1ib20v4LRo/ +lq4Vj87J+FUN9jEgf+5wUK1SPDotrlq29wsDVqwbJnbxx6NjG8NyZoYZwLFu +k9JgQxxCw0diDKYY0Dk+oe6pHocYj986SLExQZ7hvGfWOQZ12RarATsTju1b +vnDFMAYFaRX9O8fBBEEdF4OFvTHoz998fz8SE1a8ZG5dZY9BTcbZiVOcTFi+ +35YaEfgcOcqnfc7hZ8Lv3fEHNqRHo5r6cEVgMMHw0F2T4L+RyDXxyd9zTCZI +TM+W6n2JRDvcwspvsJhQUfLor0xNJIrcEXokUYoJQV0CuZIhkcguItAMk2OC +/fhgpZZsJBIyf/i4SYkJORInJ7hNnqGrbDfnz2kxIcArG9G+RqD8kY4rvtpM +2JSzAfprIxCpfm9H0WEmKCtvO5PzKgIlhJCLhI8w4eppi7Ov7kSgPvqze30n +mPDIyXysHY9AJw9VcBkbMkFqG4UybBCO9vrxSFy1ZYL/L0099e9hyM/OISTi +GhM0ZSJCeFvDUNepLo46OyZEj810LbwNQ85bE0albzDB+0CxKCk4DGVl7E6f +cGLCTo1ANkW1MMRquahs9x8T7sjPu5Q9eox4BdKPOoUyQdTIpW/uaCgS6Czw +CnnMBKPby87v9oQi4cjqildhTNg+c6wmXjoUMSUGlMbCmdBN6toTQQpFe+T4 +RQ2imJB6hu+tfmkIstB0mVJNYgKXy9Um0q4QVOaoEbSSR+Rv/VFSl1QwqlbR +q8MLmMB8dne2lBKM6pcucuwuJPJpER6Rsz4Ytbk7O18rZkLyJv78qJZHaCIg +7fJAGXGf03W7bp98hASTeRUq3jNBP+6QxeT5IGTb3tvi0U08F/u6MOkRgOo9 +XR0ie5iQUmE0vXY1AEkqUylveplQdvrQu21HA9Bg+NnLA/1MGPcVe9QuEIDO +nvs0qTrEBF3v8c1XU/0R6q3lmp5gQtibJXXbT35o8+AbjXMrTJhrTRg0UPVF +9iF63+xWmRB81IAWLu6LmtRn/DzXmNCww/bgJOaLvBLkWrPZWCBmJtvypd0H +LZulGnOTWRDK75406OiDRsai3Sq5WVAY2LFxf4E3Kpj0LpATZ0Gymrpi6VEv +lJkagF2QYMFc7q+Un0peKMk05IwvjQUP88QFkagXCu2KnB9lsCDyfL4rc9oT +2Va/UoiVZsGe64+ThUI8ET36cyr/LhZMNO6Le9D7EAUdEX+6qMmCuImu4y33 +PZAnxvzG1GLBxQ3TV+dtPdDdd9LK+tosEDKLu7X9nAeyUtnV9lqHBT+ankoO +y3sgTcYhPqvjLNAJ7VU/1f8ALS1Z+/QasMCxZZEld+ABsniZf6vCmgV1Sy+D +VXnvIwFNs+AeGxb8ZXY2yqy5o3f9vC8WbFlQv66hc9uUOxLht+qUtmfBSLEq +zbTRHbW6bFUOcWDBpeZfBU983BE65D5vcpcFXIwnWzZi7gj/qmO3LogFH20C +xx9S76Ha24ueoo9YcCrG+M/lZTfksCXxuUowC6yVoz6f7XdDzVorTTahLLjc +vnwnNt4NPXyVua0tnIivloZDyDY3NOu6ZTwplgV9bDy6XzTvonrBfjOtNyyo +cF40MQ1wRROOe3TvZxP3D5TueGHnija0RewoyWGBM6Ysw3fSFemGnlrdmc+C +Dc+t+0HIFTXw1IWLvmVB5mvheMmE26hpfU79QjULdv1KZI2W30LNf30UEruI ++N1TwA5udkHT58YEB7pZYJaYsc70jzPiKdRYwXtZ8Mb7b1bMgDM67rxWF9TP +gp/nt8dcS3dGLXMOpq5DLJA6csn4spYz+vjj8pOTkyzQfB/Rff2+E5rVLbkT +MMUCz/BY52NWTojvJdX0/TThZ2PHgOZJJ6Rn2Sa//yeRH5e1KA+aE/o0olMn +vcgCNbdjMfurHNGcRmqm2W+iXl78s5xKd0SbE0lPYv6wICrfCC8Ic0SnTMpN +BJZZUB2yLTfCwhHdrBA5fGKFBQ9czCwzTziiUHFXeb9VFpTuGgweUHVE2fc6 +BWrWiHifbOeXpjui1n6l5X//WJDwN7DFb6Mj+h8yN0dJ + "]]}, "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., 2.865729783395331}}, + "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:eJwVlnc8Vf8fx9G9JyqrcM+VdZeVqMhofd4ioqVU0rIiKyqrlL5K9giJQvZI +JNlkZWVFyV5lFlkhldXv/P66j+fj3PP6vD7veWim9qfMOdjY2CLY2dj+/3tR +M5yLjY0P8hlzKtFzk+jrwettuzj4AIocUjz+TiIzdd1YcxIfHO54jjuwTSHr +A2tKjZx8wDcTglvzTKFbqhbG4fx8MMXBWi6UnUJhcsoFcgw+6JI2H+u/MoWa +BDquGGrxgfBn33rjL1NIb0uWQsBhPsjTn3+m920Kfeb3WyrT5QPXK64zh2em +UA/PgWDmCT64aH9bTf/fFPrOmfJ2xoAP9p1vy2sWn0akVafNXlZ84KBDzrhi +Oo32jQpWZAfwQV0Sf7fk9DSa+/N2UOARH1gdMn/48/c0Sttkus4lhA9UZZrL +a9lnkJBSptbecD6gWX/6Eyw4g34+0PpQFcsHzqekZ5P2z6AUCZeetmw+OJU1 +8b750Qziu9i1sNjFByVHbT8xxGbRSGukzF4WP/ymtZrr984izqTgPkcpftBe ++/xbYXAWyTl5PcqU4Qe9kQ+B/N9mkRPl5i+aPD/kPTNqGJ6bRdhFnXecKvwg +u1c7pXrDTyQ9+vtcx2F+MC3VHLy19yey/X3a54YtP4xJ7XPNjvuJFrbyfkvN +4YfDJCmXCNc5VPde+lpHHj9cj4jUenp/DkU7HJwnFfLD1eIUoRifOaTR6PTP +pIQfrjzxLCoMn0Ohrn0UkRp+iJi25JPNmUM7utMOB3fww3D6V9bq5ByyCdd8 +eesvP+xuzZI3vzKPhvhcr+mgzfBhD9l4h+kCijg1kVLRsRnm05ZMahsXUd6M +jpLIlS1AuXjE1+jcXxTVnel4bHULzCWUFSkYraDL9hvu5TwWAOzXSqPow3/I +z/hM76q4IBRjG5uGDrCDW0zyD9FCQYhZCC9pbOaAbpXRE3QtIXhT7zT+gEmC +ab5IpROHhaBYg3PlqgwJOCaOU+/qCgG/gOcmXXkSyEUXDrUfF4LjHX2CZFUS +uLMFOPkaCIG+UYre2SMkkK7fFTVrKQQ5x+hxJjdI4HzefazMXwhGJTdXrhaT +wF9xd+OPQCEIF9h20LWcBHGbJl7jwUKwLYGsOl9FgoYy/ds3w4Sg4/t1x54m +EogypDZJPhcC096MErcBElT/+LAzMJPQk5Ze3MJOhs1uW90ufBKCoNf/vppq +kOG8TXRhwWchWJSyMCvVJkOCoejClg4h6NEuZ2w5SoZdyuI2TT1C8M3gjW7W +aTKcmqEb7h8RgpFv2mlZ5mQINZHdLf5bCCxTRR1rvAh9LbWpIREKWOksOIvV +EPpKxdJInAIa4W4+nXWEPn3vlSgaBZ6XnNTwbyL0/+3r1ZekwNJN18Shz4R+ +IdRXK1BATOzQE70hQl/2cHLKQQqMuqj7s9bIsIXX4JK1JQXi5U7sjdiJQV2x +lGyMNQX+STk1WylhcM/iz+InWwoMm6cdUVHBYKL0WbDaDQoMRJ/+U7kPgwrb +vipOVwrY2p+vi9bGwK7BRDbVnwI8NbrlBhcxYDrv+t0TSIH1cWERnZcx6Kat +q+YJpoBarLHcKRMMNG8nXXIOo8AxcoW7igUGW6W/BR96ToHmZ9f9Ku0JP562 +v4czCf1hha+d9wk/O/dXU95QoGu/5mGOhxgo9nOHHMmhQDm3gKaUFwYxSq9l +cwooMC9oOmXsh4HT8M9LDyoocH+jak1oKAZ0dZdqiVYKZLJHBU3HY9A1qR1y +uo0Cv897iL9LxCDwKX7Zp4MCi8etJYKSMfgzU/R7pocCd3iXrShpGLTErMiW +D1Ogkr9yeOw1BndX7odc+kUBCQVU4VKCgXmpWF7FbwpM6ipW8ZZhcPze2y7G +EgV0ajio8eUYiLP9Ep9YI+JHds59XYlB5TrLTGdOHAK5Je3v1mGQXk1q7d6A +g9RL1Q8D9RiEecb/2seNQ1nb9Wt7Ggn99b371m3G4ammj23/Bww4Nx5vfLQV +B3d39x2trRj8bJyYnhPFQa4533rtMwY9Ad6bz0rgMOxyuIvRTujzvDMUYeGw +92iG1vlOwt9mpe8v5HGgvLt+0KkXA5XPHzdu2omD4AGtces+DCTCrinYK+Lw +KDg237Cf0BdMdd6tioOmwfpy+hfCH1WYXKmOw5N0XyPTIQzcevKlWZo40GaY +W2jDGFhE6R/10SJ4p/lQF8EqooGPjx/BwVV1pVlxlNAfkCl4cwyHrOyl8Q6C +OWNrewT0cDj/bGqrwxjhX4KN3nsah8Z/BhXh3zCoGow+dMAAh+PyBTvEvmOQ +kaBmFW+IwznZnpwYgsPMOgJIF3GQ7qo7jI8TfpgOWVcv47Cd+Xjaj2CLUd62 +BmMcwkknkxYJPp6S8Xu7GQ49rnSrCxOEH+mxAwtXifPsX4jw/cCAa/yBqYE1 +DnbKNVzGBM+liXsV2+JgzKrlSCO4x7okTdQehzq/eewHwVXbDD+438Ch9P1z +QclJwt/kr9lhBxw0TorKnyc47FWogLYzDgfftJ7wJtjNTkH15S0cArwlXV8R +bKHQdIH7Dg5Rfr4ZTQSfmLX877obDuDjODZCsOobcuLn/3DwsLCUWiSYdjOh +VvkBDkrMaTu2KQw2KKKJZw9x0OsOL1lH8Px8L/eqFw4dBcu8/3/el3trp7Ev +wRvLLH8R71c7CZ6p8seBd5937TDBr5Szb0kG4SDWwCnTSLBW6037e8E4+PvO +KWYQPHBN0aIjFAdz9h4PL4KduRYuyj/BQbjYH////XiSc/W9InCor+r9+f/7 +p4CT7sAzIv/5ybxTRHwO9O1WV47G4V5W040MgjtcFlWCYnCwMtyLmxNst6VA +fiwOh5cDwxwUgrHXLqwDiYTfhfKdlUR+YnRVRcKTcdjS+THJgmDlsT+bp1Nx +8NESv0giuOV+EZfWSxzW+b01iCLyaynqyhaTgYPltdKIbQSzFe35/SuT8Kuu +KZJH1MuO2bcjyTk43Ar0mM8h6qvO/27vah4Ou1XitGQINpba33qmkDh/54Yv +EUQ9hlwuKyeX4vCDc/CrMVGvskv38i+VE/W2dVr37QjRz0/Qq7x3OJR/81nm +IXiuqSLSvBYH9btLOxOI/vCzvB9SWkfk/9KrwsFBYh6RDvoINhL9J53iLUyw +/t4qp5oWwm+nA9stor9y02r0WN04yIRZXRsi+vPoIS9tt14ccFt2rckeDEa+ +ah1o78eh1yvPZqYbA0G8bpvnEA6ePdbxg0R/O3s1YKM/cHB8c7PJiZgHPHT/ +1X3TOGQb0Zi6xLxIKT2yEDZL9LfE8xbKJww6F5oGNX/hoLz/Kyu2mag3s5aS +pDUcFLntJi8R8+jj2qOcFTYqzP+W/bfynohvpN7L0+uooMG+z+5JLQbPPn2K +IHFSweeOtEV2FQZLqO3mFX4q8EiYfY0uxaBEpFuayaQC50yNwu4sIl5O41n6 +klSIuHe80jeTiH/zX1UPaSrwGa7Fd2Vg0OYurDMkR4X9pbLHzYn5+2PkglXc +biq4c4P7ngQMhF8NpIloUyHuKhbSTsx3CWxm51EdKrhES8W3BGMgafSv6M4R +Ksjz7xCqDsJgF79EQ88JKhxyfr47mtgPOk4mE0/PUWFG/NltrgcY3No/Iito +TZyXfyipm9g/98IXsjVtqSDF8afN9RoGD2dIex3tqCDZ6eotZINBcDzryOeb +VDDl7Lu9n9hfqeSrNiF3qOAc7NmkQ+y/jg/j6dyBVPCj7129ROxHxcszclgW +FTj+bGc9pGJg29S40TybCuz2pBcqQhgk7XkxUZVLhU82IhtGN2MgRDF5cb+I +CliF7O3tm4h4trQyViupQA+oN3Ii9neler7wQjsVzB4v6Y4MEvue5cY5tEyF +j42haQZJZPB/bPgN1qjQRLPvOxZHhmp25dpYNmGQ4rpheiCaDMoD0x6XyMJg +Et3qwhNGBuEI439dPMKA30lVtfEgwxCn5mILTRgWbvxIFTYhw83JDSOl2sKw +1fn9iB1OBhxXOb2gQ7yfSZfhFCBDuYZZtexRYUhU852L5iXDpqi3SRF6wjDk +c4xRhJEhVcfW/IahMIi2KZmXLJCgL+XDGNNGGCbodoU/W0igZRI87h8kDGvV +Qgm7PEhA7RCcMWwnWG2Na7p/HfhsknzVaLcVXt9TINfrckD7tJzSTbIIXKBd +N+0PYwM/OQbvaogIODXtfRfbuorWF4g9vyQrCvpcab94FJbQZDTXfwmFoqD5 +bXvs0uAiei3/Q0ZEUww+sOa21X2aR2rcrd42vWKgoYFwrXfE97z2C7VYS3Fg +H8FK3htOovkx9RNtbBJQZQNVLMtvCLFts5g/IgEd2X7m1N3DCL3fmEoKlYAK +HXp5QPYXtHDaKULpsQREvtSeyYj4gl4ODXhfCZOAltnVoS93vyChtTeW1eES +sM3y6W837S9oUumc7MMoCWBPTiZH9g+gpwlJr9YlS0BawnbmEe4B9NNtfy5H +oQQENDR1XnDtQ4lK9u/YBiTg/m0/ubu+3Ygv3t1V5AvBBWpXAh270V3uUEXV +rxJwjI+875VRNzo9lptsPyQBjOqqLFy5G2FPl3wHxiSgYOzE7PPhLmS17Hmq +ZEYCrvkJN19Q70IKldHDLuw0uMEzPOe4vhO9PdFAnmHSgP+VDDwraUPuadek +yZI0yLeePu6Y3oY01/Ef2SpFgz/3vSsvRLahpnyDYG0ZGrg0/yo9casN9YmO +Csdtp8Gl79jxRqU2tPLjn8JJZRoYMecFN2Z9Rgd8dp/P0aZBWuL36/+9bkWV +FXGZLtY0uHnwT3nzx49IgvXybrINDXCX/grDdx+Rm2+O7mdbGkRdybT/+eYj +Uj1VOyZvT4NXKV75Wo8/otfDP8TGHGggHBBD9jn7EUVjKo9Ou9Eg+q6adGlZ +C3I5+sF+ZzAN4hO5zLUWPiC5rr87fuTRIH3bz7LYpAYEW9Pfkwpo0DiceG5f +YAM6c/niZbFCGqjMdz774dSA7o2U+Z8spsHyYtXgfe0G9HHWY6ygjAZnw2N2 +BvyoR45cPNEP39Pgi56tArdKPSrZQ18v1k0D7u2S7ra979GR57r9eis02HE1 +LoPHoAYtTZiIP1gl9J54ulw6WINeqN42yVmjgf/34LKy7TWI1JY6KshOh6cG +FT6FpBpUsoE83UOmw3vDpw+9c6qR3K3ytSu8dAhWJU14CVSjTfpKErfpdLjK +02OUPlyJmjnFzOIP02HE/K1SQk4FUtzdf61Mhw7MlrK4fUkV6KlJ9K1eXTrc +1TqqOxJWgUyLhYMEj9FhfTeH/AXnCvTLhlLke5IOcw4k2phaBRJp4eO9eZ4O +R41CaR+9ypH1k3VvD9rSYVBeentWeSki08c3jzyiQySDvSzvVjGq3LvHezmY +DueVQ9vtjIvRvTP+y5tD6SA6PDC673Ax+uOzfUQ9jA4aPAmvKXgxmpi5kRf7 +lA6U2jJ6bWERai5dMrgQT4eegiv//VktRE8NNz1vzSbuzxbRrRlRgLaFKEi9 +a6dDbOGCrixHHnqQN6Y120GHqVfgyD6Vi7q6n1uId9GhPNmwZ7IzFz2kb0px +66EDO4+OEFtmLurL+c7c84UON2O0TYQu5KKgjnh6znc6xB3o45kvzEGzWwXE +kpfp8Npjc8GvB9koN+WPgC+NAWu7gnYFH81C79IMVhPpDIg9TLrGsz8LNWfk +j5YxGODkEVoduT0Lfc92zF9gMcBhyiiqnycLiZTPGhjLMuDO+lVVwaTX6GHn +90gVRQZsd1m5NJOXifQ5uyXGNAleG62LmspAxhtVudi1GNA73pQ+9ykD2fJE +/NyqTei3tcyY5mcgL4EzlSd1GBB23UTz0X8ZqFjik1npMQYcTKmtEtiSgehq +9SlhZxlQn859o+JAOpqzKpLTsGSA3/NFB84Xaeipy70KJysGtO+LK9MPTEPI +U+P0C2sGXPa2rS+6mYYC4j7c4b7GgKhKzrft+9OQZOdgQ+cNBqxy0k7rtr9A +5zU3WNneYYBxwv6PfFwvUKXYheQnQQzopux6Y+2RgizlJNTqHjEgwfjE8IBN +CuLdM9q0FMyAan6dbuvTKejiGfsFo8cMaAx0za9npaBFfw8N2acMyORJexdX +n4xk/6YPlsUz4J2fSWGcYDJ6/HlF9HsuA04U54zrlSWi0Gb9rYL5DGiZXvdx +Pi0RBde/xA8WMMCCO5Mz/UkiCig/tyW6iAFa/CeZZ68lIs/0XE69MgbkfFKY +iRZNRC4etvMF74n/dzy50Hc/AV1Q7Kvz7mFA7nobPOFcPDovr1ib20v4LRo/ +lq4Vj87J+FUN9jEgf+5wUK1SPDotrlq29wsDVqwbJnbxx6NjG8NyZoYZwLFu +k9JgQxxCw0diDKYY0Dk+oe6pHocYj986SLExQZ7hvGfWOQZ12RarATsTju1b +vnDFMAYFaRX9O8fBBEEdF4OFvTHoz998fz8SE1a8ZG5dZY9BTcbZiVOcTFi+ +35YaEfgcOcqnfc7hZ8Lv3fEHNqRHo5r6cEVgMMHw0F2T4L+RyDXxyd9zTCZI +TM+W6n2JRDvcwspvsJhQUfLor0xNJIrcEXokUYoJQV0CuZIhkcguItAMk2OC +/fhgpZZsJBIyf/i4SYkJORInJ7hNnqGrbDfnz2kxIcArG9G+RqD8kY4rvtpM +2JSzAfprIxCpfm9H0WEmKCtvO5PzKgIlhJCLhI8w4eppi7Ov7kSgPvqze30n +mPDIyXysHY9AJw9VcBkbMkFqG4UybBCO9vrxSFy1ZYL/L0099e9hyM/OISTi +GhM0ZSJCeFvDUNepLo46OyZEj810LbwNQ85bE0albzDB+0CxKCk4DGVl7E6f +cGLCTo1ANkW1MMRquahs9x8T7sjPu5Q9eox4BdKPOoUyQdTIpW/uaCgS6Czw +CnnMBKPby87v9oQi4cjqildhTNg+c6wmXjoUMSUGlMbCmdBN6toTQQpFe+T4 +RQ2imJB6hu+tfmkIstB0mVJNYgKXy9Um0q4QVOaoEbSSR+Rv/VFSl1QwqlbR +q8MLmMB8dne2lBKM6pcucuwuJPJpER6Rsz4Ytbk7O18rZkLyJv78qJZHaCIg +7fJAGXGf03W7bp98hASTeRUq3jNBP+6QxeT5IGTb3tvi0U08F/u6MOkRgOo9 +XR0ie5iQUmE0vXY1AEkqUylveplQdvrQu21HA9Bg+NnLA/1MGPcVe9QuEIDO +nvs0qTrEBF3v8c1XU/0R6q3lmp5gQtibJXXbT35o8+AbjXMrTJhrTRg0UPVF +9iF63+xWmRB81IAWLu6LmtRn/DzXmNCww/bgJOaLvBLkWrPZWCBmJtvypd0H +LZulGnOTWRDK75406OiDRsai3Sq5WVAY2LFxf4E3Kpj0LpATZ0Gymrpi6VEv +lJkagF2QYMFc7q+Un0peKMk05IwvjQUP88QFkagXCu2KnB9lsCDyfL4rc9oT +2Va/UoiVZsGe64+ThUI8ET36cyr/LhZMNO6Le9D7EAUdEX+6qMmCuImu4y33 +PZAnxvzG1GLBxQ3TV+dtPdDdd9LK+tosEDKLu7X9nAeyUtnV9lqHBT+ankoO +y3sgTcYhPqvjLNAJ7VU/1f8ALS1Z+/QasMCxZZEld+ABsniZf6vCmgV1Sy+D +VXnvIwFNs+AeGxb8ZXY2yqy5o3f9vC8WbFlQv66hc9uUOxLht+qUtmfBSLEq +zbTRHbW6bFUOcWDBpeZfBU983BE65D5vcpcFXIwnWzZi7gj/qmO3LogFH20C +xx9S76Ha24ueoo9YcCrG+M/lZTfksCXxuUowC6yVoz6f7XdDzVorTTahLLjc +vnwnNt4NPXyVua0tnIivloZDyDY3NOu6ZTwplgV9bDy6XzTvonrBfjOtNyyo +cF40MQ1wRROOe3TvZxP3D5TueGHnija0RewoyWGBM6Ysw3fSFemGnlrdmc+C +Dc+t+0HIFTXw1IWLvmVB5mvheMmE26hpfU79QjULdv1KZI2W30LNf30UEruI ++N1TwA5udkHT58YEB7pZYJaYsc70jzPiKdRYwXtZ8Mb7b1bMgDM67rxWF9TP +gp/nt8dcS3dGLXMOpq5DLJA6csn4spYz+vjj8pOTkyzQfB/Rff2+E5rVLbkT +MMUCz/BY52NWTojvJdX0/TThZ2PHgOZJJ6Rn2Sa//yeRH5e1KA+aE/o0olMn +vcgCNbdjMfurHNGcRmqm2W+iXl78s5xKd0SbE0lPYv6wICrfCC8Ic0SnTMpN +BJZZUB2yLTfCwhHdrBA5fGKFBQ9czCwzTziiUHFXeb9VFpTuGgweUHVE2fc6 +BWrWiHifbOeXpjui1n6l5X//WJDwN7DFb6Mj+h8yN0dJ + "]]}, "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:eJwVV3c8lf8XR+4TlVW4z5Vxp5WoyGh9johoKZW0rMiKyiqlr5I9QqKQPRJJ +NllZWVGyV5lFVkhl9Xt+f93Xeb3uc17nc855j0MztT9lzsHGxhbBzsb2/9+L +muHcbGz8kM+YU4mem0T7RoUqsgP4oS5JoFtyehqNtEbK7GUJwG9aq7l+7yxa +2Mr3LTVHAA5zSrlEuM6hIX7XazpoM3zYQzLeYbqAIk5NpFR0bIb5tCWT2sZF +lDejoyR6ZQuQLx7xNTr3F0V1ZzoeW90CcwllRQpGK+iy/YZ7OY8FAfu10ij2 +8B/yMz7TuyohBMXYxqahA+zgFpP8Q6xQCGIWwksamzmgW2X0BF1LGN7UO40/ +YHLCZretbhc+CUPQ639fTTVIsIXP4JK1JRni5U7sjdiJwd2V+yGXfpGBqoAq +XEoweKWcfUsyCAfxBi6ZxkkMSkS7pZlMCnDN1CjszsJA8fKMHJZFAY4/21kP +KRjcnNwwUqotAlud34/Y4SSgdAjNGLaLwJraGvd0/zrw2ST5qtFuK7y+p0Cq +1+WA9mk5pZskUbhAu27aH8YGfnIMvtUQUXBq2vsutnUVrS8Qf35JVgz0udN+ +8Sosoclo7v8SCsVA89v22KXBRfRa/oeMqKY4fGDNbav7NI/UeFq9bXrFQUMD +4VrvZpGc9gu1WEsJYB/BSt4bTqL5MfUTbWxUqLKBKpblN4TYtlnMH6FCR7af +OWX3MELvN6ZyhlKhQodeHpD9BSUq2b9jG6DC/dt+cnd9u9HbEw2kGSYNBF7J +wLOSNlRZEZfpYk2Dmwf/lDd//Ijkuv7u+JFHg/RtP8tikxrQkee6/XorNNhx +NS6D16AGNXOJm8UfpsOI+VulhJwKRKKPbx55RIdIBntZ3q1itC1EQepdOx1i +Cxd0ZTnyUG7KH0FfGgPWdgXtCj6aheasiuQ0LBng93zRgetFGnr8eUXsey4D +ThTnjOuVJSLG47cOUmxMkGc475l1jkFX2W7On9NiQoBXNqJ9jUB8gulHnUKZ +IGbk0jd3NBTZtve2eHQzwVv868KkRwAqmPQukJNgQbKaumLpUS9k8TL/VoU1 +C+qWXgar8t1H9UL9ZlpvWFDhvGhiGuCKWvuVlv/9Y0HC38AWv42OqEmw44qh +Fj+IfPatN/4yhfgvdi0sdvFDyVHbTwzxWWT7+7TPDVsBGJPa55od9xPZhGu+ +vPVXAHa3ZsmbX5lHzufdx8r8hWFUcnPlajGxr1pqU0OiZLDSWXAWryFBnaft +7+FMMtgOK3ztvI9BGEWEVKmOw5N0XyPTIQxy02r0WN04yIRZXRvqxeDW/hFZ +IWsK7M8/lNRtj8EplhvX0DIFPjaGphkkkUDLJHjcP4jYz2rhhF0enPDTbX8u +RyEVAhqaOi+49iGFyuhhF3Ya3OAdnnNc34kO+Ow+n6NNg7TE79f/e92KXI5+ +sN8ZTIP4RG5zrYUPqGQPfb14Nw14tku62/a+R5v0lai36XS4yttjlD5ciayf +rHt70JYOg/LS27PKS9FTw03PW7Pp8J4tolszogDNbhUUT16mw2uPzQW/HmQj +fa5u6pgmA7avjdZFTWWgSvELyU+CGNBN3vXG2iMFXVDsq/PuYUDuehs84Vw8 +qqkPVwQGEwwP3TUJ/huJ9vrxUq/aMsH/l6ae+vcwVOaoEbSSxwSh9Uc5u6SC +0ebBNxrnVpgw15owaKDqi4KOSDxd1GRB3ETX8Zb7Hgj/qmO3LogFH20Cxx9S +7qHmvz4KiV0s0LmngB3c7ILC5JQL5Bj80CVtPtZ/ZQqlUF162rL54VTWxPvm +RzNIevT3uY7DAmBaqjl4a+9PtKM77XBwhwAMp39lrU7OIen6XVGzlsKQc4we +Z3KDE0JNZHdL/BYGy1QxxxovEtg1mMim+pOBt0a33OAiBlwbjzc+2oqDu7v7 +jtZWDHbMvh1JzsHhVqDHfM43DEReDaSJalMg7ioW0h6KQaV6vshCOwXMHi/p +jgySoC/lwxjTRgQm6HaFP1s44WlC0qt1yVRIS9jOPMIzgKyWPU+VzFDhmp9I +8wX1LrTy45/CSWUaGDHnhTZmfUbRmMqj0240iL6rJl1a1oIcuXmjH76nwRc9 +WwUelXokd6t87QofHYJVOSe8BKuRaAs/383zdDhqFEr76FWOmkuXDC7E06Gn +4Mp/f1YLUVBHPD3nOx3iDvTxzhfmoIed3yNVFIl5u6xcmsnLROc1N1jZ3mGA +ccL+j/zcL5CLh+18wXsGWHQ8udB3PwE5yqd9zhFgwu/d8Qc2pEejk4cquI0N +mSC1jUweNghHFpouU6pJTOB2udrEuSsEod5a7ukJJoS9WVK3/eSH6NGfUwV2 +sWCicV/cg96HCB1ynze5ywJuxpMtGzF31LQ+p36hmgW7fiWyRstvIc5Vp81e +VvzgoEPKuGI6jap/fNgZmEngVVp6cQs7CUJlDyenHCTDqIu6P2uNBHR1l2pq +Kxky2aOCpuMxoEqPHVi4ikOj/QtR/h8YqJq1lCSt4aDIYzd5qR6Djg/j6TyB +FPCj7129pI3BEJfmYgtNBBZu/EgVMSHyqdWnhJ1lQH06z42KA+lI9m/6YFk8 +A975mRTGCSUjNHwkxmCKAZ3jE+qe6nFI2Pzh4yYlJuRQT07wmDxDrJaLynb/ +MeGO/LxL2aPHSCiZT6HiPRP04w5ZTJ4PQiNj0W6VPCwoDOzYuL/AGy0tWfv0 +GrDAsWWRJXfgAZp13TKeFMuCPjZe3S+ad9HHH5efnJxkgeb7iO7r953QLVUL +43ABfpjiYC0Xyk6hnw+0PlTF8oPzKenZpP0zCLuo845LRQBk92qnVG/4iUJd ++8iiNQIQMW3JL5szh9zZApx8DYRB3yhF7+wRTjg1QzfcPyIMI9+007LMSVBh +21fF5Urwn/35umiiP5XrLDOduXAI5JG0v1uHgd2WAvmxOBxeDgxzkIn+/hi5 +YBW3mwLuPOC+JwGDpZZWxmolBegB9UZOxHxSdWzNbxiKgFibknnJAidMKp2T +fRhFBfbkZFJk/wDCni75DoxRoWDsxOzz4S7UJzYqEredBpe+Y8cbldrQ6+Ef +4mMONBAJiCH5nP2IPs56jBWU0eBseMzOgB/1qGQDabqHRPCb4dOH3jnV6JcN +ucj3JB3mHDhpY2oVaGLmRl7sUzqQa8votYVFqC/nO3PPFzrcjNE2Eb6Qi0TL +Zw2MZRlwZ/2qqlDSayTZOdjQeYMBq1y007rtL5Bnei6XXhkDcj4pzESLJaIm +4+zEKS4mLN9vS40IfI766M/u9Z1gwiMn87F2PALtkRMQM4hiQuoZ/rf6pSHo +7LlPk6pDTND1Ht98NdUf2Va/UoiVZsGe64+ThUM8UavLVuUQBxZcav5V8MTH +HTXw1oWLvWVB5muReMmE2+g7V8rbGQN+2He+La9ZYhqJMaQ2ST4XBtPejBK3 +AWJ+hVBfrUAGcfFDT/SGSOA0/PPSgwoy3N+oWhNK8FMPlY3ee5rAwz+DinCC +v5y9GrDRHzg4vrnZ5PQZg1TSVZuQOxRwDvZs0iH4TyTC+F8Xrwjgd1JVbTxI +UEz9ZFZ6jAEHU2qrBLdkoEV/Dw3ZpwzI5E17F1efjI5tDMuZGWYAx7pNSoMN +ccguItAMk2OC/fhgpZZsJMrK2J0+4cSEnRqBbIpqYWgiIO3yQBnhB07X7bp9 +8hFaNks15iGxIFTAPWnQ0QdpMg7xWx0n+D+0V/1U/wP08FXmtrZwwi9oaTiE +bHNDLXMOpq5DLJA6csn4spYz2ir9LfjQczI0P7vuV0no7/HNSt9fyONAfnf9 +oBOhz3NNFZHmtTio313amUDot46TycTTcxSYkXh2m/sBBi0xK7Llw2SoFKgc +HnuNgYVC0wWeOzhE+flmNBF+dAm13bwiQAFeqtnX6FIMPo3o1EkvskDN7VjM +/ipHZH1gTamRix/4Z0Jwa94pJKyUqbU3nB9o1p/+BAvNICfyzV80eQHIe2bU +MDw3izQanf6ZlAjAlSeeRYXhc0guunCo/bgwHO/oEyKpcsIuZQmbph5h+Gbw +RjfrNAkmSp8Fq90gw0D06T+V+zCQYPslMbFGxCTn3NeVGPAm5+p7ReBQX9X7 +U5Kot81dRGdIjvAjpbLHzdMwECabvLhfRAGsQvb29k0YbIp6mxShJwJDPscY +RRgJhNfeWFaHU2Gb5dPfbtpf0Omx3GT7ISowqquycOVu1JRvEKwtQwOX5l+l +J261IdVTtWPy9jR4leKVr/X4I7o3UuZ/spgGy4tVg/e1GxBnW+qoEDsdnhpU ++BRy1iDTYpEgoWN0WN/NIX/BuQL98dk+oh5GBw3ehNdkvBg9pG9KceuhAzuv +jjBbZi76nu2Yv8BigMOUUVQ/bxYKiPtwh+caA6Iqud62709DAeXntkQXMUBL +4CTz7LVE9Odvvr8fJxNWvGRuXWWPQQkhpCKRI0y4etri7Ks7EYhJHVAaC2dC +N2fXngjOUDQYfvbyQD8Txn3FH7ULBqDQrsj5UQYLIs/nuzKnPZGogFWntD0L +RopVaaaN7kg39NTqznwWbHhu3Q/CrqiH90Aw8wQ/XLS/rab/bwo1lOnfvhkm +DB3frzv2NBHz+7evV1+SDEs3XROHPpMgRum1bE4BGeaFTKeM/TBQEQt8fPwI +Dq6qK82KoxgI4XXbPIdw8Oyxjh/sxCA4nnXk800KmHL13d5vgYHywLTHJZII +mES3uvCGkcBL8EzlSR0GhF030Xz0Xwa6eMZ+wegxAxoDXfPrWSnotIRq2d4v +DFixbpjYJRCPIneEHkmUYkJQl2CuZEgkct6aMCp9g8DfgWIxzuAw1Obu7Hyt +mAnJmwTyo1oeIa8EudZsNhaIm8m2fGn3QVYqu9pe67DgR9NTyWF5D9SstdJk +E8qCy+3Ld2Lj3dBx57W6oH4W/Dy/PeZaujPSvJ10yTmMDMdIFe4qRP3pvO8M +RVk47D2aoXWeeF/I5bJyUikOP7gGvxoT798lQG3oOUGBQ87Pd0cT/fkzU/R7 +pocMd/iWrcjE/lZtM/zgfgOH0vfPhf6/388+fYrg5KKAzx1pi+wqDPQs2+T3 +/yTuB5e1KA+aEzJf37tv3WYcnmr62PZ/IPB9v4hb6yUO6/zeGkSNY+DGdMi6 +ehmH7czH035E3LnQNKj5Cwfl/V9Zsc0Y/BRKdd6tioOmwfpy+hcM9PdWOdW0 +4GDZ6cB2i4g3KKKJZw9x0OsOL1k3Rfh9k3ITwWUWVIdsy42wcERm6rqx5pz8 +cLjjOe7ANoXSNpmucwnhB1WZ5vJa9hkk5+T1KFNGAPRGPgQKfJtF0Q4H5zkL +BeBqcYpwjM8c4pg4TrmrKwwCgp6bdOU5IcFQbGFLhzD0aJczthwlwT2LP4uf +bMkwbJ52REWF4Lt7b7sYS2TQqeGgxJdjMHBN0aIjFAdz9h4PL6Jfdc1/VT2k +KcBvuBbflYFB0p4XE1W5FPhkI7phdDMG5Rpm1bJHRSBRzXcumo8EL4cGvK+E +UaFldnXoy90v6C5PqKLqVyoc4yfte2XUjTTXCRzZKkWDP/e9Ky9EtiE33xzd +z7Y0iLqSaf/zzUd05vLFy+KFNFCZ73z2w6kBvVC9bZKzRgP/78FlZdtr0FOT +6Fu9unS4q3VUdySsAt0747+8OZQOYsMDo/sOF6Ou7ucWEl10KE827JnszEXN +GfmjZQwGOHmEVkduz0LIU+P0C2sGXPa2rS+6mYaC61/iBwsIv8qTyZX+JBEF +aRX9O8dB3B86LgYLe2MQZ/3ejqLDTFBW3nYm51UEEomsrngVxoTtM8dq4qVD +kaQyhfymlwllpw+923Y0ACWZhpzxpbHgYZ6EEBLzQu/6+V4s2LKgfl1D57Yp +d7ShLWJHSQ4LnDFlGf6TruizgN9SmS4/uF5xnTk8M4XiNk28xoOFYVsCSXW+ +ipgffe+VKBoZnpec1PBvIoFiP0/IkRwylPMIakp5EXoTpX/URwsH2k7zoa5h +DEa+ah1o78eh1yvPZqYbg4cznHsd7Sgg2enqLWyDQTW7cm0smwhIcd8wPRBN +AlveiJ9btYn+tLXMmOZnIL49o01LwQyoFtDptj6dgs7J+FUN9jEgf+5wUK1S +PNrhFlZ+g8WEipJHf2VqIlHXqS6OOjsmRI/NdC28DUP1Sxc5dhcSfGoRHpGz +Phg1qc/4ea4xoWGH7cFJzBfdfSetrK/NAmGzuFvbz3kghy2Jz1WCWWCtHPX5 +bL8b4i3UWMF7WfDG+29WzIAz6qatq+YNJoNarLHcKRPCjwR4bz5LxWHY5XAX +ox0DY6n9rWcKcejYueFLxBgGkkb/iu4coYC8wA7h6iAMAp/il306yLB43Joa +lEzoeZqEV7EtDsasWo40wn9aRuq9PL2OAhrs++ye1GLA/5Ji+n6a8E8bOwY0 +TzqhMM/4X/t4cChru35tTyMGMbqqouHJOGzp/JhkMYFBRoKaVbwhDudke3Ji +vmOQUnpkIWwWh0fU5y3kT8Q9EXZNwV6RiINj8w37MaBzHvQRaiT8hXSKt8gg +cV+8ISV+/g8HDwtLqUUCb5sTOZ/E/GFBVL4RXhDmiA707VZXjsbhXlbTjQyi +Xq7Y2h5BPRzOP5va6kC8t/IJepX3Dofybz7LvCMYhL0KFdR2xuHgm9YT3kQ+ +tqI9v39l4iCirimaR9R3PCXj93YzHHpc6VYXiPr7cm/tNPYl+rexzPIX8f9Q +CVd5v1UWlO4aDB5QdURfD15v28XBD1DkkOLxdxLN/Xk7KPiIH6wOmT/8+Xsa +cSUF9zlKCYD22uffCoOzqO699LWOPAG4HhGp9fT+HJrmj1Q6cVgYijW4Vq7K +cMJ5m+jCgs/CsChlYVaqTYK6YinZGGsy/JNyarZSwsC8VDyv4jcZJnUVq/jK +MNBqvWl/LxgHf985xQyivkqn8Sx9SQpE3Dte6ZuJgW1T40bzbAqw23O+UBHG +AMdVTi/oEHqXSZfhEiTBwmmnCKXHVIh8qT2TEfEF8ce7u4p+ocL9ArUrgY7d +yD3tmjRJkgb51tPHHdPbEJX18m6yDQ1wl/4Kw3cfEWxNf89ZQIPG4cRz+wIb +0NKEicSDVcKvPPF0uXSwBinu7r9WpkMHZktZ3L6kClS5d4/3cjAdziuHttsZ +F6MHeWNasx10mHoFjuxTuehdmsFqIp0BsYc5r/Huz0JPXe5VOFkxoH1fXJl+ +YBoKbdbfKpTPgJbpdR/n0xJRl22xGrAz4di+5QtXDGNQ/kjHFV9tJmzK2QD9 +tRFIsLPAK+QxE4xuLzu/2xOK6j1dHSJ7mJBSYTS9djUAZaYGYBeoLJjL/ZXy +U8kLCWqaBffYsOAvs7NRZs0dTTju0b2fTehzoHTHCztXpLclSyHgMD/k6c8/ +0/s2hfwVdzf+CBSGcMFtB13LifkpFUsjCTJohLv5dNYRerJzfzX5DRm69mse +5nhI6GNPvjRLk+CjGeYWGsFHRw95abv14oDbsmtN9mBwL3whW9OWAlIcf9pc +r2Hg/9jwG6xRoIlm33csjgTGG1W52bUY0DvelD73KQNZylHV6h4xIMH4xPCA +TQo6L69Ym9tL8FPR+LF0rXjkmvjk7zkmE6jTs6V6XyKRn51DSMQ1JmjKRITw +tYahahW9OryACcxnd2dLycHIPkTvm90qE4KPGtDCJXyRJ8b8xtRiwcUN01fn +bT1Q7e1FT7FHLDgVY/zn8rIbmj43JjTQzQKzxIx1pn+cEdN51++eQDKsjwuL +6LxM6H3jxPScGA5yzfnWa8Q9VOd/t3c1D4fdKnFaMsS9RMVmdh7VoYBLtFR8 +SzAGXZPaIafbyPD7vIfEu0QMuMcfmBpY42CnXMNtTOD749qjnBU2Csz/lv23 +8h6DWd2SOwFTLPAMj3U+ZuWE0qs5W7s34CD1UvXDQD0G2GsX1oFEAr8L5Tsr +CTxXDUYfOmCAw3H5gh3iBN556f6r+6ZxyDaiMXVbCf/4+ePGTTtxEDqgNW7d +h4Gf5f2Q0jqCLy69Khwk+OjErOV/191wAB/HsRECb3MaqZlmv1kw8eKf5VS6 +I0oBJ92BZ8R885P5poh6qQMyBW+O4ZCVvTTeQfgx2aV7+ZfKcZDeOq37luCj +jMlfs8MOOGicFJM/T+SzFHNli8kg/NC10ohthH+yGOVrazDGIZzzZNIiEc/P +9/KsehHvKVjmYyP80c0K0cMnVljwwMXMMvOEI3LmXrgo/4Tgs2J//P/5eqxL +0sTscajzm8d+EPUoj/3ZPJ2Kg4+WxEVOoh9hZh0BnBeJerrqDuNEftrNhFrl +BzgoMaft/p+/w2VRJSgGByvDvbg58b2bnYLqy1s4BHhLur4i8lc7CZ2p8seB +b5937TARZ9/rFKxZI+7Jk+0C0nRH9D8MdEdJ + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1XV41lUYBuDRXWN0jNGM7u6OMUCRsAAlBBVJ6ZiKSscok8YARMFuFJNG +BbtbUFFQ2vu9/OP+3uc8u65933fO+W0pw8b2uzVLQkLCai8xu3i5aL7EHfSj +IcP1ZflU3sA4stJVd8l8mTu5gkZko5ufXTZf4S6upDHZ6R5vxqvGPPrThBzk +JBe5yUNe8pGfHvE5eU2+m6toyghdOT6TNzKeAvTUZeV1+R4G0IyRuvJ8Lm9i +AgXppcvGHvleBnK7dR1OyLtpzijrZL6QNzOR6dYN+FN+jkKkWWfnDXk+s+Um +nJYHMUWuy0n56dhzuQVn5RbcJFfgy/j8Zlu2yHPNZiznH+uFZkcmyTPMhizl +VLyv2Z6VPB9nYbZiBeetF5mdWEVh695mDpbwZuyz2YZMFljPMZuyjDPWC8wO +DJanmvX4PfbPbMczcTfMlpyTWzJaTuEreSsZcnP+lSczU27EX/ILFCHdOid7 +4/tyNdOs6/OH/CytGGNdka/lR+L8SKSPLhdvxXfmGlpzs64S38iPxplQlL66 +3LwtL+Za2pBEMYpTgpKUojRlKEs5ypMcz5DfkYd35CVcR1sqxPOiz8u78lKu +px0p8bzo8/GevIwhtKdiPC/6/LwvL2coHagUz4S+APvkFQyjI5Xj/usLsl/O +5AY6USXuur4QB+SV3EhnqsZdjbvBQXkVw+lCNQbri3BIXs0IulI9zkifyGF5 +DSPpxi26ynwrPxb3hhpxJrqiHJHXMoruxB+pKnwnPx7nTmqciS6Jo/J98bzQ +g7G6qnwvb2M6NWPvdcX4QL4/7iE9uU1XjR/k7cygVpyHrjgfyg/E3aIX43TV ++VHeEfeV2nFGuhJ8JD8Yd4s0xutq8JP8BLOoE+emK8kx+aHYF3ozQZfKz/JO +ZlM3zlJXiuPyw7EvpDNRV5Nf5CeZQ704X11pPpbXxb7Qh0m6WvwqP8Vc6seZ +68rwibw+9oW+TNbV5jd5FxnxHawb87f8IvPk1lyQF5uds/z/f6WB9X9DQ684 + + "], 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]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 2.865729783395331}}, + "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:eJwVlnc8Vf8fx9G9JyqrcM+VdZeVqMhofd4ioqVU0rIiKyqrlL5K9giJQvZI +JNlkZWVFyV5lFlkhldXv/P66j+fj3PP6vD7veWim9qfMOdjY2CLY2dj+/3tR +M5yLjY0P8hlzKtFzk+jrwettuzj4AIocUjz+TiIzdd1YcxIfHO54jjuwTSHr +A2tKjZx8wDcTglvzTKFbqhbG4fx8MMXBWi6UnUJhcsoFcgw+6JI2H+u/MoWa +BDquGGrxgfBn33rjL1NIb0uWQsBhPsjTn3+m920Kfeb3WyrT5QPXK64zh2em +UA/PgWDmCT64aH9bTf/fFPrOmfJ2xoAP9p1vy2sWn0akVafNXlZ84KBDzrhi +Oo32jQpWZAfwQV0Sf7fk9DSa+/N2UOARH1gdMn/48/c0Sttkus4lhA9UZZrL +a9lnkJBSptbecD6gWX/6Eyw4g34+0PpQFcsHzqekZ5P2z6AUCZeetmw+OJU1 +8b750Qziu9i1sNjFByVHbT8xxGbRSGukzF4WP/ymtZrr984izqTgPkcpftBe ++/xbYXAWyTl5PcqU4Qe9kQ+B/N9mkRPl5i+aPD/kPTNqGJ6bRdhFnXecKvwg +u1c7pXrDTyQ9+vtcx2F+MC3VHLy19yey/X3a54YtP4xJ7XPNjvuJFrbyfkvN +4YfDJCmXCNc5VPde+lpHHj9cj4jUenp/DkU7HJwnFfLD1eIUoRifOaTR6PTP +pIQfrjzxLCoMn0Ohrn0UkRp+iJi25JPNmUM7utMOB3fww3D6V9bq5ByyCdd8 +eesvP+xuzZI3vzKPhvhcr+mgzfBhD9l4h+kCijg1kVLRsRnm05ZMahsXUd6M +jpLIlS1AuXjE1+jcXxTVnel4bHULzCWUFSkYraDL9hvu5TwWAOzXSqPow3/I +z/hM76q4IBRjG5uGDrCDW0zyD9FCQYhZCC9pbOaAbpXRE3QtIXhT7zT+gEmC +ab5IpROHhaBYg3PlqgwJOCaOU+/qCgG/gOcmXXkSyEUXDrUfF4LjHX2CZFUS +uLMFOPkaCIG+UYre2SMkkK7fFTVrKQQ5x+hxJjdI4HzefazMXwhGJTdXrhaT +wF9xd+OPQCEIF9h20LWcBHGbJl7jwUKwLYGsOl9FgoYy/ds3w4Sg4/t1x54m +EogypDZJPhcC096MErcBElT/+LAzMJPQk5Ze3MJOhs1uW90ufBKCoNf/vppq +kOG8TXRhwWchWJSyMCvVJkOCoejClg4h6NEuZ2w5SoZdyuI2TT1C8M3gjW7W +aTKcmqEb7h8RgpFv2mlZ5mQINZHdLf5bCCxTRR1rvAh9LbWpIREKWOksOIvV +EPpKxdJInAIa4W4+nXWEPn3vlSgaBZ6XnNTwbyL0/+3r1ZekwNJN18Shz4R+ +IdRXK1BATOzQE70hQl/2cHLKQQqMuqj7s9bIsIXX4JK1JQXi5U7sjdiJQV2x +lGyMNQX+STk1WylhcM/iz+InWwoMm6cdUVHBYKL0WbDaDQoMRJ/+U7kPgwrb +vipOVwrY2p+vi9bGwK7BRDbVnwI8NbrlBhcxYDrv+t0TSIH1cWERnZcx6Kat +q+YJpoBarLHcKRMMNG8nXXIOo8AxcoW7igUGW6W/BR96ToHmZ9f9Ku0JP562 +v4czCf1hha+d9wk/O/dXU95QoGu/5mGOhxgo9nOHHMmhQDm3gKaUFwYxSq9l +cwooMC9oOmXsh4HT8M9LDyoocH+jak1oKAZ0dZdqiVYKZLJHBU3HY9A1qR1y +uo0Cv897iL9LxCDwKX7Zp4MCi8etJYKSMfgzU/R7pocCd3iXrShpGLTErMiW +D1Ogkr9yeOw1BndX7odc+kUBCQVU4VKCgXmpWF7FbwpM6ipW8ZZhcPze2y7G +EgV0ajio8eUYiLP9Ep9YI+JHds59XYlB5TrLTGdOHAK5Je3v1mGQXk1q7d6A +g9RL1Q8D9RiEecb/2seNQ1nb9Wt7Ggn99b371m3G4ammj23/Bww4Nx5vfLQV +B3d39x2trRj8bJyYnhPFQa4533rtMwY9Ad6bz0rgMOxyuIvRTujzvDMUYeGw +92iG1vlOwt9mpe8v5HGgvLt+0KkXA5XPHzdu2omD4AGtces+DCTCrinYK+Lw +KDg237Cf0BdMdd6tioOmwfpy+hfCH1WYXKmOw5N0XyPTIQzcevKlWZo40GaY +W2jDGFhE6R/10SJ4p/lQF8EqooGPjx/BwVV1pVlxlNAfkCl4cwyHrOyl8Q6C +OWNrewT0cDj/bGqrwxjhX4KN3nsah8Z/BhXh3zCoGow+dMAAh+PyBTvEvmOQ +kaBmFW+IwznZnpwYgsPMOgJIF3GQ7qo7jI8TfpgOWVcv47Cd+Xjaj2CLUd62 +BmMcwkknkxYJPp6S8Xu7GQ49rnSrCxOEH+mxAwtXifPsX4jw/cCAa/yBqYE1 +DnbKNVzGBM+liXsV2+JgzKrlSCO4x7okTdQehzq/eewHwVXbDD+438Ch9P1z +QclJwt/kr9lhBxw0TorKnyc47FWogLYzDgfftJ7wJtjNTkH15S0cArwlXV8R +bKHQdIH7Dg5Rfr4ZTQSfmLX877obDuDjODZCsOobcuLn/3DwsLCUWiSYdjOh +VvkBDkrMaTu2KQw2KKKJZw9x0OsOL1lH8Px8L/eqFw4dBcu8/3/el3trp7Ev +wRvLLH8R71c7CZ6p8seBd5937TDBr5Szb0kG4SDWwCnTSLBW6037e8E4+PvO +KWYQPHBN0aIjFAdz9h4PL4KduRYuyj/BQbjYH////XiSc/W9InCor+r9+f/7 +p4CT7sAzIv/5ybxTRHwO9O1WV47G4V5W040MgjtcFlWCYnCwMtyLmxNst6VA +fiwOh5cDwxwUgrHXLqwDiYTfhfKdlUR+YnRVRcKTcdjS+THJgmDlsT+bp1Nx +8NESv0giuOV+EZfWSxzW+b01iCLyaynqyhaTgYPltdKIbQSzFe35/SuT8Kuu +KZJH1MuO2bcjyTk43Ar0mM8h6qvO/27vah4Ou1XitGQINpba33qmkDh/54Yv +EUQ9hlwuKyeX4vCDc/CrMVGvskv38i+VE/W2dVr37QjRz0/Qq7x3OJR/81nm +IXiuqSLSvBYH9btLOxOI/vCzvB9SWkfk/9KrwsFBYh6RDvoINhL9J53iLUyw +/t4qp5oWwm+nA9stor9y02r0WN04yIRZXRsi+vPoIS9tt14ccFt2rckeDEa+ +ah1o78eh1yvPZqYbA0G8bpvnEA6ePdbxg0R/O3s1YKM/cHB8c7PJiZgHPHT/ +1X3TOGQb0Zi6xLxIKT2yEDZL9LfE8xbKJww6F5oGNX/hoLz/Kyu2mag3s5aS +pDUcFLntJi8R8+jj2qOcFTYqzP+W/bfynohvpN7L0+uooMG+z+5JLQbPPn2K +IHFSweeOtEV2FQZLqO3mFX4q8EiYfY0uxaBEpFuayaQC50yNwu4sIl5O41n6 +klSIuHe80jeTiH/zX1UPaSrwGa7Fd2Vg0OYurDMkR4X9pbLHzYn5+2PkglXc +biq4c4P7ngQMhF8NpIloUyHuKhbSTsx3CWxm51EdKrhES8W3BGMgafSv6M4R +Ksjz7xCqDsJgF79EQ88JKhxyfr47mtgPOk4mE0/PUWFG/NltrgcY3No/Iito +TZyXfyipm9g/98IXsjVtqSDF8afN9RoGD2dIex3tqCDZ6eotZINBcDzryOeb +VDDl7Lu9n9hfqeSrNiF3qOAc7NmkQ+y/jg/j6dyBVPCj7129ROxHxcszclgW +FTj+bGc9pGJg29S40TybCuz2pBcqQhgk7XkxUZVLhU82IhtGN2MgRDF5cb+I +CliF7O3tm4h4trQyViupQA+oN3Ii9neler7wQjsVzB4v6Y4MEvue5cY5tEyF +j42haQZJZPB/bPgN1qjQRLPvOxZHhmp25dpYNmGQ4rpheiCaDMoD0x6XyMJg +Et3qwhNGBuEI439dPMKA30lVtfEgwxCn5mILTRgWbvxIFTYhw83JDSOl2sKw +1fn9iB1OBhxXOb2gQ7yfSZfhFCBDuYZZtexRYUhU852L5iXDpqi3SRF6wjDk +c4xRhJEhVcfW/IahMIi2KZmXLJCgL+XDGNNGGCbodoU/W0igZRI87h8kDGvV +Qgm7PEhA7RCcMWwnWG2Na7p/HfhsknzVaLcVXt9TINfrckD7tJzSTbIIXKBd +N+0PYwM/OQbvaogIODXtfRfbuorWF4g9vyQrCvpcab94FJbQZDTXfwmFoqD5 +bXvs0uAiei3/Q0ZEUww+sOa21X2aR2rcrd42vWKgoYFwrXfE97z2C7VYS3Fg +H8FK3htOovkx9RNtbBJQZQNVLMtvCLFts5g/IgEd2X7m1N3DCL3fmEoKlYAK +HXp5QPYXtHDaKULpsQREvtSeyYj4gl4ODXhfCZOAltnVoS93vyChtTeW1eES +sM3y6W837S9oUumc7MMoCWBPTiZH9g+gpwlJr9YlS0BawnbmEe4B9NNtfy5H +oQQENDR1XnDtQ4lK9u/YBiTg/m0/ubu+3Ygv3t1V5AvBBWpXAh270V3uUEXV +rxJwjI+875VRNzo9lptsPyQBjOqqLFy5G2FPl3wHxiSgYOzE7PPhLmS17Hmq +ZEYCrvkJN19Q70IKldHDLuw0uMEzPOe4vhO9PdFAnmHSgP+VDDwraUPuadek +yZI0yLeePu6Y3oY01/Ef2SpFgz/3vSsvRLahpnyDYG0ZGrg0/yo9casN9YmO +Csdtp8Gl79jxRqU2tPLjn8JJZRoYMecFN2Z9Rgd8dp/P0aZBWuL36/+9bkWV +FXGZLtY0uHnwT3nzx49IgvXybrINDXCX/grDdx+Rm2+O7mdbGkRdybT/+eYj +Uj1VOyZvT4NXKV75Wo8/otfDP8TGHGggHBBD9jn7EUVjKo9Ou9Eg+q6adGlZ +C3I5+sF+ZzAN4hO5zLUWPiC5rr87fuTRIH3bz7LYpAYEW9Pfkwpo0DiceG5f +YAM6c/niZbFCGqjMdz774dSA7o2U+Z8spsHyYtXgfe0G9HHWY6ygjAZnw2N2 +BvyoR45cPNEP39Pgi56tArdKPSrZQ18v1k0D7u2S7ra979GR57r9eis02HE1 +LoPHoAYtTZiIP1gl9J54ulw6WINeqN42yVmjgf/34LKy7TWI1JY6KshOh6cG +FT6FpBpUsoE83UOmw3vDpw+9c6qR3K3ytSu8dAhWJU14CVSjTfpKErfpdLjK +02OUPlyJmjnFzOIP02HE/K1SQk4FUtzdf61Mhw7MlrK4fUkV6KlJ9K1eXTrc +1TqqOxJWgUyLhYMEj9FhfTeH/AXnCvTLhlLke5IOcw4k2phaBRJp4eO9eZ4O +R41CaR+9ypH1k3VvD9rSYVBeentWeSki08c3jzyiQySDvSzvVjGq3LvHezmY +DueVQ9vtjIvRvTP+y5tD6SA6PDC673Ax+uOzfUQ9jA4aPAmvKXgxmpi5kRf7 +lA6U2jJ6bWERai5dMrgQT4eegiv//VktRE8NNz1vzSbuzxbRrRlRgLaFKEi9 +a6dDbOGCrixHHnqQN6Y120GHqVfgyD6Vi7q6n1uId9GhPNmwZ7IzFz2kb0px +66EDO4+OEFtmLurL+c7c84UON2O0TYQu5KKgjnh6znc6xB3o45kvzEGzWwXE +kpfp8Npjc8GvB9koN+WPgC+NAWu7gnYFH81C79IMVhPpDIg9TLrGsz8LNWfk +j5YxGODkEVoduT0Lfc92zF9gMcBhyiiqnycLiZTPGhjLMuDO+lVVwaTX6GHn +90gVRQZsd1m5NJOXifQ5uyXGNAleG62LmspAxhtVudi1GNA73pQ+9ykD2fJE +/NyqTei3tcyY5mcgL4EzlSd1GBB23UTz0X8ZqFjik1npMQYcTKmtEtiSgehq +9SlhZxlQn859o+JAOpqzKpLTsGSA3/NFB84Xaeipy70KJysGtO+LK9MPTEPI +U+P0C2sGXPa2rS+6mYYC4j7c4b7GgKhKzrft+9OQZOdgQ+cNBqxy0k7rtr9A +5zU3WNneYYBxwv6PfFwvUKXYheQnQQzopux6Y+2RgizlJNTqHjEgwfjE8IBN +CuLdM9q0FMyAan6dbuvTKejiGfsFo8cMaAx0za9npaBFfw8N2acMyORJexdX +n4xk/6YPlsUz4J2fSWGcYDJ6/HlF9HsuA04U54zrlSWi0Gb9rYL5DGiZXvdx +Pi0RBde/xA8WMMCCO5Mz/UkiCig/tyW6iAFa/CeZZ68lIs/0XE69MgbkfFKY +iRZNRC4etvMF74n/dzy50Hc/AV1Q7Kvz7mFA7nobPOFcPDovr1ib20v4LRo/ +lq4Vj87J+FUN9jEgf+5wUK1SPDotrlq29wsDVqwbJnbxx6NjG8NyZoYZwLFu +k9JgQxxCw0diDKYY0Dk+oe6pHocYj986SLExQZ7hvGfWOQZ12RarATsTju1b +vnDFMAYFaRX9O8fBBEEdF4OFvTHoz998fz8SE1a8ZG5dZY9BTcbZiVOcTFi+ +35YaEfgcOcqnfc7hZ8Lv3fEHNqRHo5r6cEVgMMHw0F2T4L+RyDXxyd9zTCZI +TM+W6n2JRDvcwspvsJhQUfLor0xNJIrcEXokUYoJQV0CuZIhkcguItAMk2OC +/fhgpZZsJBIyf/i4SYkJORInJ7hNnqGrbDfnz2kxIcArG9G+RqD8kY4rvtpM +2JSzAfprIxCpfm9H0WEmKCtvO5PzKgIlhJCLhI8w4eppi7Ov7kSgPvqze30n +mPDIyXysHY9AJw9VcBkbMkFqG4UybBCO9vrxSFy1ZYL/L0099e9hyM/OISTi +GhM0ZSJCeFvDUNepLo46OyZEj810LbwNQ85bE0albzDB+0CxKCk4DGVl7E6f +cGLCTo1ANkW1MMRquahs9x8T7sjPu5Q9eox4BdKPOoUyQdTIpW/uaCgS6Czw +CnnMBKPby87v9oQi4cjqildhTNg+c6wmXjoUMSUGlMbCmdBN6toTQQpFe+T4 +RQ2imJB6hu+tfmkIstB0mVJNYgKXy9Um0q4QVOaoEbSSR+Rv/VFSl1QwqlbR +q8MLmMB8dne2lBKM6pcucuwuJPJpER6Rsz4Ytbk7O18rZkLyJv78qJZHaCIg +7fJAGXGf03W7bp98hASTeRUq3jNBP+6QxeT5IGTb3tvi0U08F/u6MOkRgOo9 +XR0ie5iQUmE0vXY1AEkqUylveplQdvrQu21HA9Bg+NnLA/1MGPcVe9QuEIDO +nvs0qTrEBF3v8c1XU/0R6q3lmp5gQtibJXXbT35o8+AbjXMrTJhrTRg0UPVF +9iF63+xWmRB81IAWLu6LmtRn/DzXmNCww/bgJOaLvBLkWrPZWCBmJtvypd0H +LZulGnOTWRDK75406OiDRsai3Sq5WVAY2LFxf4E3Kpj0LpATZ0Gymrpi6VEv +lJkagF2QYMFc7q+Un0peKMk05IwvjQUP88QFkagXCu2KnB9lsCDyfL4rc9oT +2Va/UoiVZsGe64+ThUI8ET36cyr/LhZMNO6Le9D7EAUdEX+6qMmCuImu4y33 +PZAnxvzG1GLBxQ3TV+dtPdDdd9LK+tosEDKLu7X9nAeyUtnV9lqHBT+ankoO +y3sgTcYhPqvjLNAJ7VU/1f8ALS1Z+/QasMCxZZEld+ABsniZf6vCmgV1Sy+D +VXnvIwFNs+AeGxb8ZXY2yqy5o3f9vC8WbFlQv66hc9uUOxLht+qUtmfBSLEq +zbTRHbW6bFUOcWDBpeZfBU983BE65D5vcpcFXIwnWzZi7gj/qmO3LogFH20C +xx9S76Ha24ueoo9YcCrG+M/lZTfksCXxuUowC6yVoz6f7XdDzVorTTahLLjc +vnwnNt4NPXyVua0tnIivloZDyDY3NOu6ZTwplgV9bDy6XzTvonrBfjOtNyyo +cF40MQ1wRROOe3TvZxP3D5TueGHnija0RewoyWGBM6Ysw3fSFemGnlrdmc+C +Dc+t+0HIFTXw1IWLvmVB5mvheMmE26hpfU79QjULdv1KZI2W30LNf30UEruI ++N1TwA5udkHT58YEB7pZYJaYsc70jzPiKdRYwXtZ8Mb7b1bMgDM67rxWF9TP +gp/nt8dcS3dGLXMOpq5DLJA6csn4spYz+vjj8pOTkyzQfB/Rff2+E5rVLbkT +MMUCz/BY52NWTojvJdX0/TThZ2PHgOZJJ6Rn2Sa//yeRH5e1KA+aE/o0olMn +vcgCNbdjMfurHNGcRmqm2W+iXl78s5xKd0SbE0lPYv6wICrfCC8Ic0SnTMpN +BJZZUB2yLTfCwhHdrBA5fGKFBQ9czCwzTziiUHFXeb9VFpTuGgweUHVE2fc6 +BWrWiHifbOeXpjui1n6l5X//WJDwN7DFb6Mj+h8yN0dJ + "]]}, "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, 11}, {0., 0.9289465115382269}}, + 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.992080957956999*^9, + 3.9920810583526993`*^9}, {3.9920811163888245`*^9, + 3.9920811860625725`*^9}, {3.992081234875622*^9, 3.99208125485693*^9}, { + 3.9920812875827045`*^9, 3.9920813438146057`*^9}}, + CellLabel-> + "Out[198]=",ExpressionUUID->"667feb4a-081e-4949-afbe-90117f48f666"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"b0", ",", "y", ",", "bb0", ",", "yy", ",", "r"}], "]"}]], "Input", + CellChangeTimes->{3.9918427409143257`*^9}, + CellLabel-> + "In[199]:=",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", ",", "5.5", ",", "11"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9920813857054844`*^9, + 3.9920814032677307`*^9}},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:eJwVlHc8Fe4Xx+1KUuleZN59FZGREXVO9qiMiAq5KUX2zighJMnWUAklFV9Z +ISESSpNsiowy7lWkSPXz++t5ned5vc/5nPN5nod8xMvqGA8XF9d1bi6u/6/2 ++hmruLgIqGM7xu425sAnXe8OFR4CbtAJu0pbjp13md48xkfAM8VZl72MOOC2 +86/ay5UEdCrgjuc15ECwpotTxnoCptAGlah6HEhTUH+kQCXg7TnDRdzBgTZC +59EDhgQ8/eEj9/etHLDYUKyUYEzAUiGVp4zluH19/GKtKQE7722rPajEgV7h +nUk0cwIOJKZ41m/hwJeVdx5zbAlo1bI3PXIzB/j+BIjEuBLQZv6Y4xCVAzqj +xPqSBALaUVoGeUU58P3X4yHCJQJq2kffW03kQIHQEd6gZAKialOgCIEDompF +htoZBCQeWxSSFuHAt0jDV403CSiiKUxkCHPgDimot6OEgPRfGysFBDiwzr57 +br6bgOVfT+/6PceG516nRQ/0EbDs88zWoVk2hEfRNB8PEHDmSQLX8+9smLjn +HXpmmIBiK7h0EmbY0LSwkmflFAGjpbr5V0+xISRTa+3GfwQU/XH/+9thNoy8 +v7pJm07E5B9NXoFv2LAyL6nfn0lEUQ/NGLPXbFAIiLlUtImIDovFkbKv2BAg +5vuDrEjEJwGjm569YIOAvcnTlRpEfOx+SZTrORvkRn/adRoTsfq5U9KuGja4 +/7SO83EnomlhrOxIPhvmJNeO55cS8frqmH2eoWxoaZbz6Cwn4g4+P4+lU2zI +8tOd5askosffr5rng9mg9zLgH6uGiBFuup9uBLAhJaRfTKqJiFXMDfuqvdiw +tafAOKmTiPPxP3qLndlwMkP/XvACERvLZD+nmbJheF2IhwmI4prVSd6LG9jw +9d1h0/xdojiRbyjEL8KGmRQDJr++KMqY/Ghds44Nfwjrh+qNRbEvknl7oxAb +xDfetda0EsUUd9ViCT42mJM7tZnHRPE3zeRp/ew01CirCPJfEMXTNv2c5HfT +kGk1cae+UxSP1QTGcGKmQeidLHG+WxRP1VtdyY6ehghzmyj5PlFsi5ctNY+c +hhO76w9nfBTF77Zy8/nh07DdMEPc/YsoBtQop6H/NAxq6caLLYriF0MK93rW +NDDIVz08pcWwcahAgq41DeUcEzWpo2LID77/vRqeAvsos4UIFzG8bKNcWflx +CvjE9tSOnhBDn7PfV97qnwLrnRbG/3mIoer1qFDXzin4nrDfXjdIDJu85Px7 +WqdAcbNz9Il4Mcz9dFFRrXgK7h4N6ygrFsMrotMPW0Km4FpPkf+eP2L4njo2 +I7ximTfqEMr/J4ZGqtcPWvBOgWnFQh4XjziGxzY8Sfw3Cb9S9D+UCojjnXlH +N55fk2C9u3ebxDpxZPPsVW36MglCdfw/xyji6P3BQvtR6ySE5dmfijAWxwMP +Jch65yfB0UvwdGmqOOorpBD/+zsB1Gtn8kfSxZFwXE3bd3ECvjyfe0u8LI6u +Tk8DVOYnwEfmIzU4SxylHkgx7k1PQPSr0lad2+Kol9xwKLB/AgrkHYjPK8Sx +vZ3b6WzVBMyN//egu0ccleJ2HrD3mYB4J5u+P7IbMUjjtwF391cIv3F7Urpy +I4r+OSxCZX2BHo1Rc4qhBKordnpdezMGIuGS4YfeSaDT7yMmDzeOwoa1tg5u +JySR+tlRRVv0M4QtnU12+CGJXDsHudWlhqBQvSSYkSiFL066gnP/ANRI9cjR +aNLI/XCd8Mq7PaDqyFEQKJbGnVt7c4OnP4DvlODIEyMZ/FDWIreg+h42dhI5 +Bz7IYNf6WzEOW19DnBCj8KWnLEq+ybj+fl8LrJfTNWL4yC6/z7LzeTtb4Kqe +41CEnyz+rdh2NXpTCxSGZBDVg2XRoiGC5PWvGd5/ETidfVYW596viZu+3wyS +TeN7A9JksT63t+niimYoCi+YkamWRX+xzb4mrU3gFiQqUcVDQgt9Rvn3gEYY +c25Tes9LQq9KrzsuxxqBZRFpMMlHQr86Ibkx60aw28T2ll5BwgH+2bYVao1g +0NfUfHY1CVdw2Fs/fG8AEgQEmBJIWCTf9jXNtwG6BDre9tFJGM3zftuFkKeg +n5Ec+9eYhMoj/2Yq9tfBgYuFxkqmJJQN0vZ5r1kHntGtq5zMSLhZRCVSQLIO +LvtyJzzdQ0LTF7nUyo+1MLXXJynaioTM+7Jc6FYLaSssrwjak9CtvHa4M+oJ +fA5ed1/Ui4Tlhx34nrc8hshDl14rppPwTcQBSm1GJexV3mdnlkHCusQXVUoR +lSCxQmz4eCYJeW+daS91rYSHJTd+ZF8hYVfUvNOsTiV8WlUkteEGCY+IVd/b +O/IIdla2uf28Q8KqgUNb3NUfwW+C4Ir6ShLeUBq+MDdeDv6vo8Gyf1m/7p43 +reGlcDm5V+XEAAmveGvWfDxZCo+ttzLODC7rX2XczHewFHj6+oQKP5FQk1wm +HKZeCknjKr0rR0m4ptdFT2amBB5wDfnXT5Pw7kKHpZxLCYyo7Lin9I+EbMmn +XEIOD8Em8wdBmELGs1r895vHi0Dk2MNSHSoZe69kffdpKYK3Kh5WJ2lkPOAq +tKBVUASmr0cutTDIaNY1N0Q5WQQ7+TsEo+TJqP5qINJmphAYfiVcv9TI+KLR +SGYTVyH82us1NWRExoOOk0KjavfhqsDXxnIPMjqG8B4smc4H4dLd8m89l/OF +KS5UdeZD5OHilAkvMt60SEzprMsHt8oglqwvGfnvX/Lam5IPWm4C/+ICl+s5 +wry6Zj50v6Jutz9DxsOfjvj3x94B0XTHYp5kMppQN6jxq9+G+F0NYtIpZPRo +Caq+QL4Nf6fpZzRSySgVaCVPX3Mbxgyn97ink7FFXPRi0kgelP8KnfxwhYwp +/U8zjdLywNr+CqMgh4x+vkqUTT9zIZXakWVeRsbPB+yG9r7Igeze6/+dLSej +dnF8cGJFDhQlH28orSDjOmtuweGcHGj5tzguVkXGOI2Ed89Cc+BvH1n10xMy +zpx8yw5UzAG3NK9W72YyLnoOu4dn3gJd/tXzyb1krD8SdTUjKBssajpWPutb +1iM6d1HFJRsc/G5IzveTMc9sm/4n62wIHlLedfAjGRkSjeXeKtlQ9MQugTJC +xntE6+Lm/puwMfAOpXSajEeJfDtWtd+AmbFd5h1cFPyWeW7V6e4ssLlw/SUX +DwVV0ut+BlRnQbXSgtEWXgpeH1/QS8jKgnPBxRjDT8GH7xSiNrCyQEJQVkVT +kIK7Kb0h5yevgd6WJULWBgp+LjJOXOS/Bhl+Fb3ODApGnJybV7K4Ar/FRGyT +mBRkNxfEPNl2BZxqPNpr5Jb5ou0CLpJXQJ6f3kaUp2DnKRGPFeOXoT4j9Umz +EgVlUlgrzp+5DF+rvLPltSg4qutC8ynPBB0ueZdZMwpukVGSYKplgF2U4v3V +eyhoISm06COTAf4CKjPUvRT0rTpw7d3KDHggpBVibUHBd1evdL4eSAepjUaJ +5dYU3N9rQa6LS4clZeeKIAcKNgZJNbsMp0GN8zWBJU8Krvsz5bovLxW6x26Y +EbwpCLszOCLJqTDnmpOk4ENB+Vap+ZHwVFDwLpBw8KNgbkH8rnrbVMgKe6RY +G0TBv2kJPy2FUiEsvX1/RAQF27a/1G4PTgGd5tX5fCkU9HS2/9jrmAzfrQMy +1VIpmJFz0+bg7mTIHx6MPZpGwU2heZuntZJB5O/DE88yKHhzqClnNzEZvqjZ +bY6+RsEnz+kPZtqSID0nr5D3NgWj652O1kASsMN3lPFUUvC30Dd6/bFEyFud +n6dSRcHZ1Yt39xgkwoEr69KPVFOwvYtu+oeWCM/KPgc01FDQ6uXMoYaRi3B1 +8rxG5FMKhv/q+vnx2EUwOtBZzf2Sgo79Wy3MPBMgW83rKdcgBWf8fIR/Z8SD +0K2IEKmPFFxxP7HQMyweTq1JUdX8REGPn6MBS6x4sBoru+01vOxnwh9ply3x +wHt58fzgGAWtjw+KeDWdB5ff56xqOMv9vbFar7sYBwoNWZ+DuKnYF8r/XT8w +Fi4rFmWl8lDx367W1teOscB/rc7mP14qxtLOv/cyioVBv+HmMX4qJrXFSP8U +j4VLdLkHNoJU/FxaIS/+JAa+x5X6q26goozU7j9Jq2Kg0vwFP4dGRaIfyLeU +RENYgYccP4OKz88mpgbeiAbkXW8myVzOp2xZrRkfDS0VtklGm6h4b5vEr5+s +aOiRHpXI3kLFyJH3m51EomFx8p+SpToVxX/9tW4OjAKduG0HS42o2ChawfLb +Ewlcw91hrcZU/ER67B+oHQnPtMNufjShYm/iqjUXNkXCbk7DyOrdVCS9SYj/ +wh8JDvstvI5aUPF009tx37qzcJp2Mpp4gIolAebvK7adhbr67KIgNyq25JEL +LyhGgBT9Xtjtk1R8ycX6ZSAdASHnS03b3am4cGFFoohQBKhbPR9T9KIiYX/D +5WftZ+DB50mZMT8qSqsUrizbfWb5P9a4ZB1OxXHHfCU1g9Pgv/uVl3ISFa3G +j2fWmIfB++LOHYeTqWgw//1pmHIYKBE/rb6YQsXuMQN+hw1hMDHwPf9LGhX3 +7RCxCO8KBZaX+KebV6j4H8HeSosVCntTnC2Ec6noLJBvFxkSApu6F7ZOllOx +uXX0xqnGYNgpeb+Z7xEVS3dpXGq8FwxWjvaOMpVUjI6S4mGkBEPISO0Fy2oq +/uq+t1aNFQxtM1Fjj2qpWLiwXsmXKxi8VwlnRTdT8fih1bMsvSCo3E5ZIdND +xcBNYZVevQHQFt5+XaOXiktCEfTrzwJgqD5azbKPigLqCfCpKAAEjcZZ0QNU +PJV+k54fFQD2+x7UTAwt+2Nu57ZNMQC43NV9H01QMVv/xPVdsf5gfN10wGKJ +irNC3DPxxn4wP8GSjfyzfL9+84beVfWDPM1TrNK/y/xWo/P9Mn7A1ZE/SuSm +4YxpxJvYH75QKcjP7uWnoZVm5/Evub6wKbju79G1NFztL6b7hM8XBPepkU5R +aJgl/4ol2ukNldlmR+5Raah+a+xaV6M3uLCP5PXRaFgQPR3z4KE3NJxPltvJ +pKGDxQXJ5IveEFLP3sqrQEM+C6t5XUNvmNhSsOviNhqGnlwY9wz0gpcrZZxv +GdNQ/u3+hf+OecDWbQMetSY0VBwhpE4aeUAaKyu4z5SG9lmJ2ww2e4BjtUQi +cQ8NffpCpKw47vD9pFjVeUsaHs0TV3oT4g7ib9at9T1Iw2K2S5FO5klwSed9 +rOtOQ57kcTnpUVd4+bSh6bAHDf3CC+qGXrjCVvbZt2Gey/XP9bTXF7vCoiHX +WIU3DQe/mQq+DnOFi7+W1skH0FAl4dYrsqgrlB2ad9lwmoY5EtfmMvecAB7K +V5GRSzQkCvySE37jArXa22N/J9HwbOhsztFKFwi1ufBbJIWGbidVkt/dcoG5 +uC0ju9JoaMC93pft7wLjHJ/ym5dpKBoi+1FZygXanizaHrpFw2TBjJA2z2OQ +fkDo+vsSGj7O3nn5CfUoWPk5rJ8opSFJOn1f1dqjIHyx6Bx3OQ21tviPt/x2 +hrh6C8+tj2h4be9FU2qHM4Qw0yHxMQ0fpt0cbDjnDI4/pIdNntHQq/r+mayp +IyCXrMR8+oGGUXtDAzVaWHC6fMxwppOGa8xBY3U5Czp6rrvIdtPwjFnl5dlb +LIigCN0J76XhWq3wUe4wFvSUfqFt/0hD82uHdokosyC+8xZleQsD+JwYnBtO +MCVJkLn9e9kfNcIzYZHDoIsvd3Qs0TC+OdQgYcYRLh+NdOD9S0NZAdeeLW8c +Qb9wJovFRUf+MbzRn+AI13e+kpThpyOL3eE2ssoR9rJiNmYK09E46NXqMEEH +eHjnF+E8mY55Np4uL2mHoLbA9k8uhY5heqUQuOoQvHhQMVpLpWNvvnqqDvsg +jJT4V8zR6VjgMLtdsvIgiNfN2DptpqPNX9Fk6T0HIaLry1UNVTpesRN9IxN2 +ACxW9pDG9OloosMutp+2BYfVmqu4DelIXZt6Wu+DLbgJZ36TNKJjAy0hTveJ +LUQTbBosTejYvsVhJu6iLVSS3jk/2UPHmO4ZdzUlWyBptd5J209HeNuy71vg +fuC4VinonaBjoGGhB0vMBjKCTtcHuC6fH2Y523PZgM45Peu7bnS821ni7f3V +GuKzX4Wu8aDjdgX5Y58fWwOta+hFlw8d15La6r+xrMFOX9DVPZSO2RMtS5dL +9kG9zKHb6Yl09IwZpjgcswIXBZJWyyU68r3wP2RsaQVrto+2LSbRcQcx/JTJ +Dis4aOM1dziVjrYhdQIXiVYwdyFKb/NlOhaz7N6JNluC3ML9odpbdJSe9e4g +KVpCUvuS9JcyOnaOvF3rs9oCEl/vkyRW0DH+nkFs2Jw5JLTeE9d9RMeftuee +ab83h/N1dhuyquhYTT9PkUs0h8j7ZSstaumYaXNNrmyFOfhHuc8+aqajrH9P +YxD3XrBT7W+J7V3u13nPvbvCu2G/ourzsj46ygzKp6bNmIH1pvjGof7l/Jfe +l2a/NwNLWc1a7Y90ZGa/EdmYaQamq9NKOZ/p6C7z9UIM2Qx0PpvdsJ2moz2N +l09DxxRIqY/9mFwM3KGbvEYwzhg+uFdrITcDcyJ/60R4GUO8YdU/Ox4Gpu20 +nBW2NYa5hYoL8XwMNK+cSglgGEOLU0nu9EoGrvP3mT/63Ah8FAvaS9czcET7 +GeuRoBE0tGaoIpWBlbP3FePyDCAoN33BjsbAKbdXl4cSDUAhPK3Oh85AsXZO +vsUpA8jYmmKWy2TgAZt+R6+9BuCWedFZQIGB+3Niuh4s6MOGY9GpbWoMfD6p +EEq01oejXL6zdoYM3D3pzC0srgclI51Hzxsx8JaKJ8uOVw+4W7U7q4wZeFrV +Rq2KrQs3kvmrJMwYKBFw9d2TJl3ooVw53W/OwJ+3h4ze+uvCXoP6VU4HGDh/ +iv84f9cu0IwXJh13Z6B6nHXZ2vsIMZ5+yZkey3pCPhj8vozwwaqbp8WTgYya +bT6LMQi+kjmjcj4M3FNbj6rOCIUPtt2fCGDgjW2agQlSCJQ39uqeZxgorN6o +k0EHECLc3x2QwkDjgSG+3o07QKTrUUxyKgM9cnfudlrSAbGrz+oL0xh4W2Hd +Sb6POkAhDaqNZTAwvsOn4naeDmgqrJe2vcZA56cBO02UdcBZP2haM4+BBk4i +xovm2lDtr5e4VM5AgqHLmHaOFtRrWLSIP2KgywmrQf04LWhatOfZVsnATuVE +0glPLXgbERjoUc3AVpV7G/9s14KxhALHwVoG5vIZLDl80ASR22uV6puX5+tk +1DIirAmuH/reRPUwcKfXE45Nmjo8Pxfid7WXgaXKrHNfw9WBpr5R7GEfAy9o +dTmkHleHwYz9joMDDHxhtXB6k7Y6WNm9m9IcZmBZM0Ha4fM20Ol7voo9wcBH +Gw3GX2tsA+Ghh3p2Swyc/Pbnp8mMKpxMthj3/MNAqSWoDutXhZZdnPhzfxl4 +f+4kvbFFFaJyFN6XcDHR8eHFu/G3VOGXc77TGn4mKr+I1OexVoWhsazwhjVM +fPdjhh5VowJlU7GPFGSZGPupc9bkmjLcz08QOERi4oTZ8T+WccqQcyTZ5jyZ +iRG1igGeAcpwqfvq7CiVibyyZ21HzJXB7Vmh0k05Jl4JVjr3lF8ZSFnt+etV +mJjR/6ZeMWArJJjJXp7XZ6JL0+3wmGeKECVAG6cZMrH1haWjU64ihDyVU99n +xETf6YZZh0hFOK6h0vGfCRMrz9nlNqIi6FIN1rnuZSKjQ3hSrW4L/Fp0i+uz +ZWLS3THzxAYFcL5XEVzvxsRyg1ymzPBmWKfvnNR7cpk/LrhetHkz1A6svTvn +zsT2PDPmpgebQWK9a5ecFxNDl7Q9sgM3w9sgSfVkPyaqhk6ceCu0GXQMImZZ +YUysri1pkdm5CQifTDx5E5fn866xp66UCQ2n5s9JX2Ki8AXOqYlrTPDakHtd +I4mJZzlb122JZsILw6W2kylMvDFQVbtgzYSIwiL5jgwmdlpejC36yYDpkA1f +824yUf1vsqrPLgY8Jw44Gz5k4j/pQZHHozQY899uerZk2b9To5ZGr2kg0JG5 +taaUiSe+ZQ5NV9DAKMXqj3IFE79kC4Wfj6NBi3BLhvRjJj4beO3zU4EGrStK +W+eeLfczIrs5PYQKbQtxSrndTFxl6bSGKEeBKbsx4mAPE9fpr7xRtoECQpV6 +S+J9TBSQkBc6+Y8MewL/tiQOMNFP4qiEVBcZXn/3OxIyzESz66c0EmLJ8GbS +Md1yiomndOMzE6dIMGNaE5owvcwf7NZI6iHBunsbjzSzmeiV7SmX/5wEFic6 +FHd8Y2LRwNerhFskeDti0iI3z8S2aQXFyf3LvF5+kfPPZb941lel6S/zuXzp +N34xUVeiv8tKhQSWrDoW4TcTtf2/+gsJk8C3XsrYfImJik1X49f+koUU2RDF ++D9MFPlccU2xQxZKTncRmv4y8aNMKyegWBbeD6j9/vePib1qdw6MJsjC/wAP +jGCP + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlHc8Fe4Xx+1KUuleZN59FZGREXVO9qiMiAq5KUX2zighJMnWUAklFV9Z +ISESSpNsiowy7lWkSPXz++t5ned5vc/5nPN5nod8xMvqGA8XF9d1bi6u/6/2 ++hmruLgIqGM7xu425sAnXe8OFR4CbtAJu0pbjp13md48xkfAM8VZl72MOOC2 +86/ay5UEdCrgjuc15ECwpotTxnoCptAGlah6HEhTUH+kQCXg7TnDRdzBgTZC +59EDhgQ8/eEj9/etHLDYUKyUYEzAUiGVp4zluH19/GKtKQE7722rPajEgV7h +nUk0cwIOJKZ41m/hwJeVdx5zbAlo1bI3PXIzB/j+BIjEuBLQZv6Y4xCVAzqj +xPqSBALaUVoGeUU58P3X4yHCJQJq2kffW03kQIHQEd6gZAKialOgCIEDompF +htoZBCQeWxSSFuHAt0jDV403CSiiKUxkCHPgDimot6OEgPRfGysFBDiwzr57 +br6bgOVfT+/6PceG516nRQ/0EbDs88zWoVk2hEfRNB8PEHDmSQLX8+9smLjn +HXpmmIBiK7h0EmbY0LSwkmflFAGjpbr5V0+xISRTa+3GfwQU/XH/+9thNoy8 +v7pJm07E5B9NXoFv2LAyL6nfn0lEUQ/NGLPXbFAIiLlUtImIDovFkbKv2BAg +5vuDrEjEJwGjm569YIOAvcnTlRpEfOx+SZTrORvkRn/adRoTsfq5U9KuGja4 +/7SO83EnomlhrOxIPhvmJNeO55cS8frqmH2eoWxoaZbz6Cwn4g4+P4+lU2zI +8tOd5askosffr5rng9mg9zLgH6uGiBFuup9uBLAhJaRfTKqJiFXMDfuqvdiw +tafAOKmTiPPxP3qLndlwMkP/XvACERvLZD+nmbJheF2IhwmI4prVSd6LG9jw +9d1h0/xdojiRbyjEL8KGmRQDJr++KMqY/Ghds44Nfwjrh+qNRbEvknl7oxAb +xDfetda0EsUUd9ViCT42mJM7tZnHRPE3zeRp/ew01CirCPJfEMXTNv2c5HfT +kGk1cae+UxSP1QTGcGKmQeidLHG+WxRP1VtdyY6ehghzmyj5PlFsi5ctNY+c +hhO76w9nfBTF77Zy8/nh07DdMEPc/YsoBtQop6H/NAxq6caLLYriF0MK93rW +NDDIVz08pcWwcahAgq41DeUcEzWpo2LID77/vRqeAvsos4UIFzG8bKNcWflx +CvjE9tSOnhBDn7PfV97qnwLrnRbG/3mIoer1qFDXzin4nrDfXjdIDJu85Px7 +WqdAcbNz9Il4Mcz9dFFRrXgK7h4N6ygrFsMrotMPW0Km4FpPkf+eP2L4njo2 +I7ximTfqEMr/J4ZGqtcPWvBOgWnFQh4XjziGxzY8Sfw3Cb9S9D+UCojjnXlH +N55fk2C9u3ebxDpxZPPsVW36MglCdfw/xyji6P3BQvtR6ySE5dmfijAWxwMP +Jch65yfB0UvwdGmqOOorpBD/+zsB1Gtn8kfSxZFwXE3bd3ECvjyfe0u8LI6u +Tk8DVOYnwEfmIzU4SxylHkgx7k1PQPSr0lad2+Kol9xwKLB/AgrkHYjPK8Sx +vZ3b6WzVBMyN//egu0ccleJ2HrD3mYB4J5u+P7IbMUjjtwF391cIv3F7Urpy +I4r+OSxCZX2BHo1Rc4qhBKordnpdezMGIuGS4YfeSaDT7yMmDzeOwoa1tg5u +JySR+tlRRVv0M4QtnU12+CGJXDsHudWlhqBQvSSYkSiFL066gnP/ANRI9cjR +aNLI/XCd8Mq7PaDqyFEQKJbGnVt7c4OnP4DvlODIEyMZ/FDWIreg+h42dhI5 +Bz7IYNf6WzEOW19DnBCj8KWnLEq+ybj+fl8LrJfTNWL4yC6/z7LzeTtb4Kqe +41CEnyz+rdh2NXpTCxSGZBDVg2XRoiGC5PWvGd5/ETidfVYW596viZu+3wyS +TeN7A9JksT63t+niimYoCi+YkamWRX+xzb4mrU3gFiQqUcVDQgt9Rvn3gEYY +c25Tes9LQq9KrzsuxxqBZRFpMMlHQr86Ibkx60aw28T2ll5BwgH+2bYVao1g +0NfUfHY1CVdw2Fs/fG8AEgQEmBJIWCTf9jXNtwG6BDre9tFJGM3zftuFkKeg +n5Ec+9eYhMoj/2Yq9tfBgYuFxkqmJJQN0vZ5r1kHntGtq5zMSLhZRCVSQLIO +LvtyJzzdQ0LTF7nUyo+1MLXXJynaioTM+7Jc6FYLaSssrwjak9CtvHa4M+oJ +fA5ed1/Ui4Tlhx34nrc8hshDl14rppPwTcQBSm1GJexV3mdnlkHCusQXVUoR +lSCxQmz4eCYJeW+daS91rYSHJTd+ZF8hYVfUvNOsTiV8WlUkteEGCY+IVd/b +O/IIdla2uf28Q8KqgUNb3NUfwW+C4Ir6ShLeUBq+MDdeDv6vo8Gyf1m/7p43 +reGlcDm5V+XEAAmveGvWfDxZCo+ttzLODC7rX2XczHewFHj6+oQKP5FQk1wm +HKZeCknjKr0rR0m4ptdFT2amBB5wDfnXT5Pw7kKHpZxLCYyo7Lin9I+EbMmn +XEIOD8Em8wdBmELGs1r895vHi0Dk2MNSHSoZe69kffdpKYK3Kh5WJ2lkPOAq +tKBVUASmr0cutTDIaNY1N0Q5WQQ7+TsEo+TJqP5qINJmphAYfiVcv9TI+KLR +SGYTVyH82us1NWRExoOOk0KjavfhqsDXxnIPMjqG8B4smc4H4dLd8m89l/OF +KS5UdeZD5OHilAkvMt60SEzprMsHt8oglqwvGfnvX/Lam5IPWm4C/+ICl+s5 +wry6Zj50v6Jutz9DxsOfjvj3x94B0XTHYp5kMppQN6jxq9+G+F0NYtIpZPRo +Caq+QL4Nf6fpZzRSySgVaCVPX3Mbxgyn97ink7FFXPRi0kgelP8KnfxwhYwp +/U8zjdLywNr+CqMgh4x+vkqUTT9zIZXakWVeRsbPB+yG9r7Igeze6/+dLSej +dnF8cGJFDhQlH28orSDjOmtuweGcHGj5tzguVkXGOI2Ed89Cc+BvH1n10xMy +zpx8yw5UzAG3NK9W72YyLnoOu4dn3gJd/tXzyb1krD8SdTUjKBssajpWPutb +1iM6d1HFJRsc/G5IzveTMc9sm/4n62wIHlLedfAjGRkSjeXeKtlQ9MQugTJC +xntE6+Lm/puwMfAOpXSajEeJfDtWtd+AmbFd5h1cFPyWeW7V6e4ssLlw/SUX +DwVV0ut+BlRnQbXSgtEWXgpeH1/QS8jKgnPBxRjDT8GH7xSiNrCyQEJQVkVT +kIK7Kb0h5yevgd6WJULWBgp+LjJOXOS/Bhl+Fb3ODApGnJybV7K4Ar/FRGyT +mBRkNxfEPNl2BZxqPNpr5Jb5ou0CLpJXQJ6f3kaUp2DnKRGPFeOXoT4j9Umz +EgVlUlgrzp+5DF+rvLPltSg4qutC8ynPBB0ueZdZMwpukVGSYKplgF2U4v3V +eyhoISm06COTAf4CKjPUvRT0rTpw7d3KDHggpBVibUHBd1evdL4eSAepjUaJ +5dYU3N9rQa6LS4clZeeKIAcKNgZJNbsMp0GN8zWBJU8Krvsz5bovLxW6x26Y +EbwpCLszOCLJqTDnmpOk4ENB+Vap+ZHwVFDwLpBw8KNgbkH8rnrbVMgKe6RY +G0TBv2kJPy2FUiEsvX1/RAQF27a/1G4PTgGd5tX5fCkU9HS2/9jrmAzfrQMy +1VIpmJFz0+bg7mTIHx6MPZpGwU2heZuntZJB5O/DE88yKHhzqClnNzEZvqjZ +bY6+RsEnz+kPZtqSID0nr5D3NgWj652O1kASsMN3lPFUUvC30Dd6/bFEyFud +n6dSRcHZ1Yt39xgkwoEr69KPVFOwvYtu+oeWCM/KPgc01FDQ6uXMoYaRi3B1 +8rxG5FMKhv/q+vnx2EUwOtBZzf2Sgo79Wy3MPBMgW83rKdcgBWf8fIR/Z8SD +0K2IEKmPFFxxP7HQMyweTq1JUdX8REGPn6MBS6x4sBoru+01vOxnwh9ply3x +wHt58fzgGAWtjw+KeDWdB5ff56xqOMv9vbFar7sYBwoNWZ+DuKnYF8r/XT8w +Fi4rFmWl8lDx367W1teOscB/rc7mP14qxtLOv/cyioVBv+HmMX4qJrXFSP8U +j4VLdLkHNoJU/FxaIS/+JAa+x5X6q26goozU7j9Jq2Kg0vwFP4dGRaIfyLeU +RENYgYccP4OKz88mpgbeiAbkXW8myVzOp2xZrRkfDS0VtklGm6h4b5vEr5+s +aOiRHpXI3kLFyJH3m51EomFx8p+SpToVxX/9tW4OjAKduG0HS42o2ChawfLb +Ewlcw91hrcZU/ER67B+oHQnPtMNufjShYm/iqjUXNkXCbk7DyOrdVCS9SYj/ +wh8JDvstvI5aUPF009tx37qzcJp2Mpp4gIolAebvK7adhbr67KIgNyq25JEL +LyhGgBT9Xtjtk1R8ycX6ZSAdASHnS03b3am4cGFFoohQBKhbPR9T9KIiYX/D +5WftZ+DB50mZMT8qSqsUrizbfWb5P9a4ZB1OxXHHfCU1g9Pgv/uVl3ISFa3G +j2fWmIfB++LOHYeTqWgw//1pmHIYKBE/rb6YQsXuMQN+hw1hMDHwPf9LGhX3 +7RCxCO8KBZaX+KebV6j4H8HeSosVCntTnC2Ec6noLJBvFxkSApu6F7ZOllOx +uXX0xqnGYNgpeb+Z7xEVS3dpXGq8FwxWjvaOMpVUjI6S4mGkBEPISO0Fy2oq +/uq+t1aNFQxtM1Fjj2qpWLiwXsmXKxi8VwlnRTdT8fih1bMsvSCo3E5ZIdND +xcBNYZVevQHQFt5+XaOXiktCEfTrzwJgqD5azbKPigLqCfCpKAAEjcZZ0QNU +PJV+k54fFQD2+x7UTAwt+2Nu57ZNMQC43NV9H01QMVv/xPVdsf5gfN10wGKJ +irNC3DPxxn4wP8GSjfyzfL9+84beVfWDPM1TrNK/y/xWo/P9Mn7A1ZE/SuSm +4YxpxJvYH75QKcjP7uWnoZVm5/Evub6wKbju79G1NFztL6b7hM8XBPepkU5R +aJgl/4ol2ukNldlmR+5Raah+a+xaV6M3uLCP5PXRaFgQPR3z4KE3NJxPltvJ +pKGDxQXJ5IveEFLP3sqrQEM+C6t5XUNvmNhSsOviNhqGnlwY9wz0gpcrZZxv +GdNQ/u3+hf+OecDWbQMetSY0VBwhpE4aeUAaKyu4z5SG9lmJ2ww2e4BjtUQi +cQ8NffpCpKw47vD9pFjVeUsaHs0TV3oT4g7ib9at9T1Iw2K2S5FO5klwSed9 +rOtOQ57kcTnpUVd4+bSh6bAHDf3CC+qGXrjCVvbZt2Gey/XP9bTXF7vCoiHX +WIU3DQe/mQq+DnOFi7+W1skH0FAl4dYrsqgrlB2ad9lwmoY5EtfmMvecAB7K +V5GRSzQkCvySE37jArXa22N/J9HwbOhsztFKFwi1ufBbJIWGbidVkt/dcoG5 +uC0ju9JoaMC93pft7wLjHJ/ym5dpKBoi+1FZygXanizaHrpFw2TBjJA2z2OQ +fkDo+vsSGj7O3nn5CfUoWPk5rJ8opSFJOn1f1dqjIHyx6Bx3OQ21tviPt/x2 +hrh6C8+tj2h4be9FU2qHM4Qw0yHxMQ0fpt0cbDjnDI4/pIdNntHQq/r+mayp +IyCXrMR8+oGGUXtDAzVaWHC6fMxwppOGa8xBY3U5Czp6rrvIdtPwjFnl5dlb +LIigCN0J76XhWq3wUe4wFvSUfqFt/0hD82uHdokosyC+8xZleQsD+JwYnBtO +MCVJkLn9e9kfNcIzYZHDoIsvd3Qs0TC+OdQgYcYRLh+NdOD9S0NZAdeeLW8c +Qb9wJovFRUf+MbzRn+AI13e+kpThpyOL3eE2ssoR9rJiNmYK09E46NXqMEEH +eHjnF+E8mY55Np4uL2mHoLbA9k8uhY5heqUQuOoQvHhQMVpLpWNvvnqqDvsg +jJT4V8zR6VjgMLtdsvIgiNfN2DptpqPNX9Fk6T0HIaLry1UNVTpesRN9IxN2 +ACxW9pDG9OloosMutp+2BYfVmqu4DelIXZt6Wu+DLbgJZ36TNKJjAy0hTveJ +LUQTbBosTejYvsVhJu6iLVSS3jk/2UPHmO4ZdzUlWyBptd5J209HeNuy71vg +fuC4VinonaBjoGGhB0vMBjKCTtcHuC6fH2Y523PZgM45Peu7bnS821ni7f3V +GuKzX4Wu8aDjdgX5Y58fWwOta+hFlw8d15La6r+xrMFOX9DVPZSO2RMtS5dL +9kG9zKHb6Yl09IwZpjgcswIXBZJWyyU68r3wP2RsaQVrto+2LSbRcQcx/JTJ +Dis4aOM1dziVjrYhdQIXiVYwdyFKb/NlOhaz7N6JNluC3ML9odpbdJSe9e4g +KVpCUvuS9JcyOnaOvF3rs9oCEl/vkyRW0DH+nkFs2Jw5JLTeE9d9RMeftuee +ab83h/N1dhuyquhYTT9PkUs0h8j7ZSstaumYaXNNrmyFOfhHuc8+aqajrH9P +YxD3XrBT7W+J7V3u13nPvbvCu2G/ourzsj46ygzKp6bNmIH1pvjGof7l/Jfe +l2a/NwNLWc1a7Y90ZGa/EdmYaQamq9NKOZ/p6C7z9UIM2Qx0PpvdsJ2moz2N +l09DxxRIqY/9mFwM3KGbvEYwzhg+uFdrITcDcyJ/60R4GUO8YdU/Ox4Gpu20 +nBW2NYa5hYoL8XwMNK+cSglgGEOLU0nu9EoGrvP3mT/63Ah8FAvaS9czcET7 +GeuRoBE0tGaoIpWBlbP3FePyDCAoN33BjsbAKbdXl4cSDUAhPK3Oh85AsXZO +vsUpA8jYmmKWy2TgAZt+R6+9BuCWedFZQIGB+3Niuh4s6MOGY9GpbWoMfD6p +EEq01oejXL6zdoYM3D3pzC0srgclI51Hzxsx8JaKJ8uOVw+4W7U7q4wZeFrV +Rq2KrQs3kvmrJMwYKBFw9d2TJl3ooVw53W/OwJ+3h4ze+uvCXoP6VU4HGDh/ +iv84f9cu0IwXJh13Z6B6nHXZ2vsIMZ5+yZkey3pCPhj8vozwwaqbp8WTgYya +bT6LMQi+kjmjcj4M3FNbj6rOCIUPtt2fCGDgjW2agQlSCJQ39uqeZxgorN6o +k0EHECLc3x2QwkDjgSG+3o07QKTrUUxyKgM9cnfudlrSAbGrz+oL0xh4W2Hd +Sb6POkAhDaqNZTAwvsOn4naeDmgqrJe2vcZA56cBO02UdcBZP2haM4+BBk4i +xovm2lDtr5e4VM5AgqHLmHaOFtRrWLSIP2KgywmrQf04LWhatOfZVsnATuVE +0glPLXgbERjoUc3AVpV7G/9s14KxhALHwVoG5vIZLDl80ASR22uV6puX5+tk +1DIirAmuH/reRPUwcKfXE45Nmjo8Pxfid7WXgaXKrHNfw9WBpr5R7GEfAy9o +dTmkHleHwYz9joMDDHxhtXB6k7Y6WNm9m9IcZmBZM0Ha4fM20Ol7voo9wcBH +Gw3GX2tsA+Ghh3p2Swyc/Pbnp8mMKpxMthj3/MNAqSWoDutXhZZdnPhzfxl4 +f+4kvbFFFaJyFN6XcDHR8eHFu/G3VOGXc77TGn4mKr+I1OexVoWhsazwhjVM +fPdjhh5VowJlU7GPFGSZGPupc9bkmjLcz08QOERi4oTZ8T+WccqQcyTZ5jyZ +iRG1igGeAcpwqfvq7CiVibyyZ21HzJXB7Vmh0k05Jl4JVjr3lF8ZSFnt+etV +mJjR/6ZeMWArJJjJXp7XZ6JL0+3wmGeKECVAG6cZMrH1haWjU64ihDyVU99n +xETf6YZZh0hFOK6h0vGfCRMrz9nlNqIi6FIN1rnuZSKjQ3hSrW4L/Fp0i+uz +ZWLS3THzxAYFcL5XEVzvxsRyg1ymzPBmWKfvnNR7cpk/LrhetHkz1A6svTvn +zsT2PDPmpgebQWK9a5ecFxNDl7Q9sgM3w9sgSfVkPyaqhk6ceCu0GXQMImZZ +YUysri1pkdm5CQifTDx5E5fn866xp66UCQ2n5s9JX2Ki8AXOqYlrTPDakHtd +I4mJZzlb122JZsILw6W2kylMvDFQVbtgzYSIwiL5jgwmdlpejC36yYDpkA1f +824yUf1vsqrPLgY8Jw44Gz5k4j/pQZHHozQY899uerZk2b9To5ZGr2kg0JG5 +taaUiSe+ZQ5NV9DAKMXqj3IFE79kC4Wfj6NBi3BLhvRjJj4beO3zU4EGrStK +W+eeLfczIrs5PYQKbQtxSrndTFxl6bSGKEeBKbsx4mAPE9fpr7xRtoECQpV6 +S+J9TBSQkBc6+Y8MewL/tiQOMNFP4qiEVBcZXn/3OxIyzESz66c0EmLJ8GbS +Md1yiomndOMzE6dIMGNaE5owvcwf7NZI6iHBunsbjzSzmeiV7SmX/5wEFic6 +FHd8Y2LRwNerhFskeDti0iI3z8S2aQXFyf3LvF5+kfPPZb941lel6S/zuXzp +N34xUVeiv8tKhQSWrDoW4TcTtf2/+gsJk8C3XsrYfImJik1X49f+koUU2RDF ++D9MFPlccU2xQxZKTncRmv4y8aNMKyegWBbeD6j9/vePib1qdw6MJsjC/wAP +jGCP + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{5, 12}, {0., 0.977642504311667}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{5, 12}, {0., 0.977642504311667}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlHc8Fe4Xx+1KUuleZN59FZGREXVO9qiMiAq5KUX2zighJMnWUAklFV9Z +ISESSpNsiowy7lWkSPXz++t5ned5vc/5nPN5nod8xMvqGA8XF9d1bi6u/6/2 ++hmruLgIqGM7xu425sAnXe8OFR4CbtAJu0pbjp13md48xkfAM8VZl72MOOC2 +86/ay5UEdCrgjuc15ECwpotTxnoCptAGlah6HEhTUH+kQCXg7TnDRdzBgTZC +59EDhgQ8/eEj9/etHLDYUKyUYEzAUiGVp4zluH19/GKtKQE7722rPajEgV7h +nUk0cwIOJKZ41m/hwJeVdx5zbAlo1bI3PXIzB/j+BIjEuBLQZv6Y4xCVAzqj +xPqSBALaUVoGeUU58P3X4yHCJQJq2kffW03kQIHQEd6gZAKialOgCIEDompF +htoZBCQeWxSSFuHAt0jDV403CSiiKUxkCHPgDimot6OEgPRfGysFBDiwzr57 +br6bgOVfT+/6PceG516nRQ/0EbDs88zWoVk2hEfRNB8PEHDmSQLX8+9smLjn +HXpmmIBiK7h0EmbY0LSwkmflFAGjpbr5V0+xISRTa+3GfwQU/XH/+9thNoy8 +v7pJm07E5B9NXoFv2LAyL6nfn0lEUQ/NGLPXbFAIiLlUtImIDovFkbKv2BAg +5vuDrEjEJwGjm569YIOAvcnTlRpEfOx+SZTrORvkRn/adRoTsfq5U9KuGja4 +/7SO83EnomlhrOxIPhvmJNeO55cS8frqmH2eoWxoaZbz6Cwn4g4+P4+lU2zI +8tOd5askosffr5rng9mg9zLgH6uGiBFuup9uBLAhJaRfTKqJiFXMDfuqvdiw +tafAOKmTiPPxP3qLndlwMkP/XvACERvLZD+nmbJheF2IhwmI4prVSd6LG9jw +9d1h0/xdojiRbyjEL8KGmRQDJr++KMqY/Ghds44Nfwjrh+qNRbEvknl7oxAb +xDfetda0EsUUd9ViCT42mJM7tZnHRPE3zeRp/ew01CirCPJfEMXTNv2c5HfT +kGk1cae+UxSP1QTGcGKmQeidLHG+WxRP1VtdyY6ehghzmyj5PlFsi5ctNY+c +hhO76w9nfBTF77Zy8/nh07DdMEPc/YsoBtQop6H/NAxq6caLLYriF0MK93rW +NDDIVz08pcWwcahAgq41DeUcEzWpo2LID77/vRqeAvsos4UIFzG8bKNcWflx +CvjE9tSOnhBDn7PfV97qnwLrnRbG/3mIoer1qFDXzin4nrDfXjdIDJu85Px7 +WqdAcbNz9Il4Mcz9dFFRrXgK7h4N6ygrFsMrotMPW0Km4FpPkf+eP2L4njo2 +I7ximTfqEMr/J4ZGqtcPWvBOgWnFQh4XjziGxzY8Sfw3Cb9S9D+UCojjnXlH +N55fk2C9u3ebxDpxZPPsVW36MglCdfw/xyji6P3BQvtR6ySE5dmfijAWxwMP +Jch65yfB0UvwdGmqOOorpBD/+zsB1Gtn8kfSxZFwXE3bd3ECvjyfe0u8LI6u +Tk8DVOYnwEfmIzU4SxylHkgx7k1PQPSr0lad2+Kol9xwKLB/AgrkHYjPK8Sx +vZ3b6WzVBMyN//egu0ccleJ2HrD3mYB4J5u+P7IbMUjjtwF391cIv3F7Urpy +I4r+OSxCZX2BHo1Rc4qhBKordnpdezMGIuGS4YfeSaDT7yMmDzeOwoa1tg5u +JySR+tlRRVv0M4QtnU12+CGJXDsHudWlhqBQvSSYkSiFL066gnP/ANRI9cjR +aNLI/XCd8Mq7PaDqyFEQKJbGnVt7c4OnP4DvlODIEyMZ/FDWIreg+h42dhI5 +Bz7IYNf6WzEOW19DnBCj8KWnLEq+ybj+fl8LrJfTNWL4yC6/z7LzeTtb4Kqe +41CEnyz+rdh2NXpTCxSGZBDVg2XRoiGC5PWvGd5/ETidfVYW596viZu+3wyS +TeN7A9JksT63t+niimYoCi+YkamWRX+xzb4mrU3gFiQqUcVDQgt9Rvn3gEYY +c25Tes9LQq9KrzsuxxqBZRFpMMlHQr86Ibkx60aw28T2ll5BwgH+2bYVao1g +0NfUfHY1CVdw2Fs/fG8AEgQEmBJIWCTf9jXNtwG6BDre9tFJGM3zftuFkKeg +n5Ec+9eYhMoj/2Yq9tfBgYuFxkqmJJQN0vZ5r1kHntGtq5zMSLhZRCVSQLIO +LvtyJzzdQ0LTF7nUyo+1MLXXJynaioTM+7Jc6FYLaSssrwjak9CtvHa4M+oJ +fA5ed1/Ui4Tlhx34nrc8hshDl14rppPwTcQBSm1GJexV3mdnlkHCusQXVUoR +lSCxQmz4eCYJeW+daS91rYSHJTd+ZF8hYVfUvNOsTiV8WlUkteEGCY+IVd/b +O/IIdla2uf28Q8KqgUNb3NUfwW+C4Ir6ShLeUBq+MDdeDv6vo8Gyf1m/7p43 +reGlcDm5V+XEAAmveGvWfDxZCo+ttzLODC7rX2XczHewFHj6+oQKP5FQk1wm +HKZeCknjKr0rR0m4ptdFT2amBB5wDfnXT5Pw7kKHpZxLCYyo7Lin9I+EbMmn +XEIOD8Em8wdBmELGs1r895vHi0Dk2MNSHSoZe69kffdpKYK3Kh5WJ2lkPOAq +tKBVUASmr0cutTDIaNY1N0Q5WQQ7+TsEo+TJqP5qINJmphAYfiVcv9TI+KLR +SGYTVyH82us1NWRExoOOk0KjavfhqsDXxnIPMjqG8B4smc4H4dLd8m89l/OF +KS5UdeZD5OHilAkvMt60SEzprMsHt8oglqwvGfnvX/Lam5IPWm4C/+ICl+s5 +wry6Zj50v6Jutz9DxsOfjvj3x94B0XTHYp5kMppQN6jxq9+G+F0NYtIpZPRo +Caq+QL4Nf6fpZzRSySgVaCVPX3Mbxgyn97ink7FFXPRi0kgelP8KnfxwhYwp +/U8zjdLywNr+CqMgh4x+vkqUTT9zIZXakWVeRsbPB+yG9r7Igeze6/+dLSej +dnF8cGJFDhQlH28orSDjOmtuweGcHGj5tzguVkXGOI2Ed89Cc+BvH1n10xMy +zpx8yw5UzAG3NK9W72YyLnoOu4dn3gJd/tXzyb1krD8SdTUjKBssajpWPutb +1iM6d1HFJRsc/G5IzveTMc9sm/4n62wIHlLedfAjGRkSjeXeKtlQ9MQugTJC +xntE6+Lm/puwMfAOpXSajEeJfDtWtd+AmbFd5h1cFPyWeW7V6e4ssLlw/SUX +DwVV0ut+BlRnQbXSgtEWXgpeH1/QS8jKgnPBxRjDT8GH7xSiNrCyQEJQVkVT +kIK7Kb0h5yevgd6WJULWBgp+LjJOXOS/Bhl+Fb3ODApGnJybV7K4Ar/FRGyT +mBRkNxfEPNl2BZxqPNpr5Jb5ou0CLpJXQJ6f3kaUp2DnKRGPFeOXoT4j9Umz +EgVlUlgrzp+5DF+rvLPltSg4qutC8ynPBB0ueZdZMwpukVGSYKplgF2U4v3V +eyhoISm06COTAf4CKjPUvRT0rTpw7d3KDHggpBVibUHBd1evdL4eSAepjUaJ +5dYU3N9rQa6LS4clZeeKIAcKNgZJNbsMp0GN8zWBJU8Krvsz5bovLxW6x26Y +EbwpCLszOCLJqTDnmpOk4ENB+Vap+ZHwVFDwLpBw8KNgbkH8rnrbVMgKe6RY +G0TBv2kJPy2FUiEsvX1/RAQF27a/1G4PTgGd5tX5fCkU9HS2/9jrmAzfrQMy +1VIpmJFz0+bg7mTIHx6MPZpGwU2heZuntZJB5O/DE88yKHhzqClnNzEZvqjZ +bY6+RsEnz+kPZtqSID0nr5D3NgWj652O1kASsMN3lPFUUvC30Dd6/bFEyFud +n6dSRcHZ1Yt39xgkwoEr69KPVFOwvYtu+oeWCM/KPgc01FDQ6uXMoYaRi3B1 +8rxG5FMKhv/q+vnx2EUwOtBZzf2Sgo79Wy3MPBMgW83rKdcgBWf8fIR/Z8SD +0K2IEKmPFFxxP7HQMyweTq1JUdX8REGPn6MBS6x4sBoru+01vOxnwh9ply3x +wHt58fzgGAWtjw+KeDWdB5ff56xqOMv9vbFar7sYBwoNWZ+DuKnYF8r/XT8w +Fi4rFmWl8lDx367W1teOscB/rc7mP14qxtLOv/cyioVBv+HmMX4qJrXFSP8U +j4VLdLkHNoJU/FxaIS/+JAa+x5X6q26goozU7j9Jq2Kg0vwFP4dGRaIfyLeU +RENYgYccP4OKz88mpgbeiAbkXW8myVzOp2xZrRkfDS0VtklGm6h4b5vEr5+s +aOiRHpXI3kLFyJH3m51EomFx8p+SpToVxX/9tW4OjAKduG0HS42o2ChawfLb +Ewlcw91hrcZU/ER67B+oHQnPtMNufjShYm/iqjUXNkXCbk7DyOrdVCS9SYj/ +wh8JDvstvI5aUPF009tx37qzcJp2Mpp4gIolAebvK7adhbr67KIgNyq25JEL +LyhGgBT9Xtjtk1R8ycX6ZSAdASHnS03b3am4cGFFoohQBKhbPR9T9KIiYX/D +5WftZ+DB50mZMT8qSqsUrizbfWb5P9a4ZB1OxXHHfCU1g9Pgv/uVl3ISFa3G +j2fWmIfB++LOHYeTqWgw//1pmHIYKBE/rb6YQsXuMQN+hw1hMDHwPf9LGhX3 +7RCxCO8KBZaX+KebV6j4H8HeSosVCntTnC2Ec6noLJBvFxkSApu6F7ZOllOx +uXX0xqnGYNgpeb+Z7xEVS3dpXGq8FwxWjvaOMpVUjI6S4mGkBEPISO0Fy2oq +/uq+t1aNFQxtM1Fjj2qpWLiwXsmXKxi8VwlnRTdT8fih1bMsvSCo3E5ZIdND +xcBNYZVevQHQFt5+XaOXiktCEfTrzwJgqD5azbKPigLqCfCpKAAEjcZZ0QNU +PJV+k54fFQD2+x7UTAwt+2Nu57ZNMQC43NV9H01QMVv/xPVdsf5gfN10wGKJ +irNC3DPxxn4wP8GSjfyzfL9+84beVfWDPM1TrNK/y/xWo/P9Mn7A1ZE/SuSm +4YxpxJvYH75QKcjP7uWnoZVm5/Evub6wKbju79G1NFztL6b7hM8XBPepkU5R +aJgl/4ol2ukNldlmR+5Raah+a+xaV6M3uLCP5PXRaFgQPR3z4KE3NJxPltvJ +pKGDxQXJ5IveEFLP3sqrQEM+C6t5XUNvmNhSsOviNhqGnlwY9wz0gpcrZZxv +GdNQ/u3+hf+OecDWbQMetSY0VBwhpE4aeUAaKyu4z5SG9lmJ2ww2e4BjtUQi +cQ8NffpCpKw47vD9pFjVeUsaHs0TV3oT4g7ib9at9T1Iw2K2S5FO5klwSed9 +rOtOQ57kcTnpUVd4+bSh6bAHDf3CC+qGXrjCVvbZt2Gey/XP9bTXF7vCoiHX +WIU3DQe/mQq+DnOFi7+W1skH0FAl4dYrsqgrlB2ad9lwmoY5EtfmMvecAB7K +V5GRSzQkCvySE37jArXa22N/J9HwbOhsztFKFwi1ufBbJIWGbidVkt/dcoG5 +uC0ju9JoaMC93pft7wLjHJ/ym5dpKBoi+1FZygXanizaHrpFw2TBjJA2z2OQ +fkDo+vsSGj7O3nn5CfUoWPk5rJ8opSFJOn1f1dqjIHyx6Bx3OQ21tviPt/x2 +hrh6C8+tj2h4be9FU2qHM4Qw0yHxMQ0fpt0cbDjnDI4/pIdNntHQq/r+mayp +IyCXrMR8+oGGUXtDAzVaWHC6fMxwppOGa8xBY3U5Czp6rrvIdtPwjFnl5dlb +LIigCN0J76XhWq3wUe4wFvSUfqFt/0hD82uHdokosyC+8xZleQsD+JwYnBtO +MCVJkLn9e9kfNcIzYZHDoIsvd3Qs0TC+OdQgYcYRLh+NdOD9S0NZAdeeLW8c +Qb9wJovFRUf+MbzRn+AI13e+kpThpyOL3eE2ssoR9rJiNmYK09E46NXqMEEH +eHjnF+E8mY55Np4uL2mHoLbA9k8uhY5heqUQuOoQvHhQMVpLpWNvvnqqDvsg +jJT4V8zR6VjgMLtdsvIgiNfN2DptpqPNX9Fk6T0HIaLry1UNVTpesRN9IxN2 +ACxW9pDG9OloosMutp+2BYfVmqu4DelIXZt6Wu+DLbgJZ36TNKJjAy0hTveJ +LUQTbBosTejYvsVhJu6iLVSS3jk/2UPHmO4ZdzUlWyBptd5J209HeNuy71vg +fuC4VinonaBjoGGhB0vMBjKCTtcHuC6fH2Y523PZgM45Peu7bnS821ni7f3V +GuKzX4Wu8aDjdgX5Y58fWwOta+hFlw8d15La6r+xrMFOX9DVPZSO2RMtS5dL +9kG9zKHb6Yl09IwZpjgcswIXBZJWyyU68r3wP2RsaQVrto+2LSbRcQcx/JTJ +Dis4aOM1dziVjrYhdQIXiVYwdyFKb/NlOhaz7N6JNluC3ML9odpbdJSe9e4g +KVpCUvuS9JcyOnaOvF3rs9oCEl/vkyRW0DH+nkFs2Jw5JLTeE9d9RMeftuee +ab83h/N1dhuyquhYTT9PkUs0h8j7ZSstaumYaXNNrmyFOfhHuc8+aqajrH9P +YxD3XrBT7W+J7V3u13nPvbvCu2G/ourzsj46ygzKp6bNmIH1pvjGof7l/Jfe +l2a/NwNLWc1a7Y90ZGa/EdmYaQamq9NKOZ/p6C7z9UIM2Qx0PpvdsJ2moz2N +l09DxxRIqY/9mFwM3KGbvEYwzhg+uFdrITcDcyJ/60R4GUO8YdU/Ox4Gpu20 +nBW2NYa5hYoL8XwMNK+cSglgGEOLU0nu9EoGrvP3mT/63Ah8FAvaS9czcET7 +GeuRoBE0tGaoIpWBlbP3FePyDCAoN33BjsbAKbdXl4cSDUAhPK3Oh85AsXZO +vsUpA8jYmmKWy2TgAZt+R6+9BuCWedFZQIGB+3Niuh4s6MOGY9GpbWoMfD6p +EEq01oejXL6zdoYM3D3pzC0srgclI51Hzxsx8JaKJ8uOVw+4W7U7q4wZeFrV +Rq2KrQs3kvmrJMwYKBFw9d2TJl3ooVw53W/OwJ+3h4ze+uvCXoP6VU4HGDh/ +iv84f9cu0IwXJh13Z6B6nHXZ2vsIMZ5+yZkey3pCPhj8vozwwaqbp8WTgYya +bT6LMQi+kjmjcj4M3FNbj6rOCIUPtt2fCGDgjW2agQlSCJQ39uqeZxgorN6o +k0EHECLc3x2QwkDjgSG+3o07QKTrUUxyKgM9cnfudlrSAbGrz+oL0xh4W2Hd +Sb6POkAhDaqNZTAwvsOn4naeDmgqrJe2vcZA56cBO02UdcBZP2haM4+BBk4i +xovm2lDtr5e4VM5AgqHLmHaOFtRrWLSIP2KgywmrQf04LWhatOfZVsnATuVE +0glPLXgbERjoUc3AVpV7G/9s14KxhALHwVoG5vIZLDl80ASR22uV6puX5+tk +1DIirAmuH/reRPUwcKfXE45Nmjo8Pxfid7WXgaXKrHNfw9WBpr5R7GEfAy9o +dTmkHleHwYz9joMDDHxhtXB6k7Y6WNm9m9IcZmBZM0Ha4fM20Ol7voo9wcBH +Gw3GX2tsA+Ghh3p2Swyc/Pbnp8mMKpxMthj3/MNAqSWoDutXhZZdnPhzfxl4 +f+4kvbFFFaJyFN6XcDHR8eHFu/G3VOGXc77TGn4mKr+I1OexVoWhsazwhjVM +fPdjhh5VowJlU7GPFGSZGPupc9bkmjLcz08QOERi4oTZ8T+WccqQcyTZ5jyZ +iRG1igGeAcpwqfvq7CiVibyyZ21HzJXB7Vmh0k05Jl4JVjr3lF8ZSFnt+etV +mJjR/6ZeMWArJJjJXp7XZ6JL0+3wmGeKECVAG6cZMrH1haWjU64ihDyVU99n +xETf6YZZh0hFOK6h0vGfCRMrz9nlNqIi6FIN1rnuZSKjQ3hSrW4L/Fp0i+uz +ZWLS3THzxAYFcL5XEVzvxsRyg1ymzPBmWKfvnNR7cpk/LrhetHkz1A6svTvn +zsT2PDPmpgebQWK9a5ecFxNDl7Q9sgM3w9sgSfVkPyaqhk6ceCu0GXQMImZZ +YUysri1pkdm5CQifTDx5E5fn866xp66UCQ2n5s9JX2Ki8AXOqYlrTPDakHtd +I4mJZzlb122JZsILw6W2kylMvDFQVbtgzYSIwiL5jgwmdlpejC36yYDpkA1f +824yUf1vsqrPLgY8Jw44Gz5k4j/pQZHHozQY899uerZk2b9To5ZGr2kg0JG5 +taaUiSe+ZQ5NV9DAKMXqj3IFE79kC4Wfj6NBi3BLhvRjJj4beO3zU4EGrStK +W+eeLfczIrs5PYQKbQtxSrndTFxl6bSGKEeBKbsx4mAPE9fpr7xRtoECQpV6 +S+J9TBSQkBc6+Y8MewL/tiQOMNFP4qiEVBcZXn/3OxIyzESz66c0EmLJ8GbS +Md1yiomndOMzE6dIMGNaE5owvcwf7NZI6iHBunsbjzSzmeiV7SmX/5wEFic6 +FHd8Y2LRwNerhFskeDti0iI3z8S2aQXFyf3LvF5+kfPPZb941lel6S/zuXzp +N34xUVeiv8tKhQSWrDoW4TcTtf2/+gsJk8C3XsrYfImJik1X49f+koUU2RDF ++D9MFPlccU2xQxZKTncRmv4y8aNMKyegWBbeD6j9/vePib1qdw6MJsjC/wAP +jGCP + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{5, 12}, {0., 0.977642504311667}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{5.000000000000011, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{5, 12}, {0., 0.977642504311667}}, + 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.99208138230249*^9, + 3.9920813920527496`*^9}}, + CellLabel-> + "Out[201]=",ExpressionUUID->"f946f0a7-e2ef-c94d-b49d-76d10025f655"] +}, 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", ",", "5.5", ",", "11", ",", "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", ",", "5.5", ",", "11", ",", "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.99208141134778*^9, 3.992081413277691*^9}}, + CellLabel-> + "In[202]:=",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.07787806224997851`\\\", \\\" \\\", \ +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.06715562718130409`\\\", \\\" \\\", 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.07787806224997851`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R2\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.06715562718130409`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.4501559176056817`\\\", \\\" \\\ +\", \\\"R2\\\"}], \\\"]\\\"}]}], RowBox[{RowBox[{\\\"11687.731483524447`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"6\\\", \\\"\[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, 202, 24, 24488269323719620004, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99196434662237*^9, 3.991965267764641*^9, + 3.9920814160846043`*^9}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"9adc8bfb-20eb-164e-9d4a-601aa062b591"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.8487741218982444`"}], ",", + RowBox[{"b0", "\[Rule]", "0.8399433734067453`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9919643466702614`*^9, 3.9919652678273296`*^9, + 3.992081416176399*^9}, + CellLabel-> + "Out[202]=",ExpressionUUID->"ddd7fa65-879a-b944-b517-a3c6f4bec358"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "0.938"}]], "Input", + CellChangeTimes->{{3.9919643517017803`*^9, 3.9919643518904247`*^9}, { + 3.991965271719015*^9, 3.991965272747534*^9}, 3.9920814247140274`*^9, { + 3.9920815088375854`*^9, 3.9920815596085987`*^9}}, + CellLabel-> + "In[217]:=",ExpressionUUID->"dbdfb703-96b0-7646-a6d8-1714cb27d7e0"], + +Cell[BoxData["0.938`"], "Output", + CellChangeTimes->{ + 3.991964352345875*^9, 3.9919652787755985`*^9, 3.9920814405016327`*^9, { + 3.992081512727968*^9, 3.9920815638834686`*^9}}, + CellLabel-> + "Out[217]=",ExpressionUUID->"c47e5ed3-d6ff-4449-9cc8-6bdf0b22de8c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.739"}]], "Input", + CellChangeTimes->{{3.991964356946327*^9, 3.991964357098551*^9}, { + 3.9919652753355255`*^9, 3.991965275476549*^9}, 3.99208142899831*^9, + 3.992081506337641*^9}, + CellLabel-> + "In[218]:=",ExpressionUUID->"b1797ad3-1841-6d4a-802c-01a83775cf12"], + +Cell[BoxData["0.739`"], "Output", + CellChangeTimes->{ + 3.9919643574642944`*^9, 3.9919652764203777`*^9, 3.992081440554392*^9, { + 3.992081512778509*^9, 3.9920815639235935`*^9}}, + CellLabel-> + "Out[218]=",ExpressionUUID->"84d40c20-4783-ff4e-969f-e0a500e9c7d2"] +}, 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", ",", "4", ",", "13"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{3.9917169014568214`*^9, 3.9920814510665245`*^9}, + CellLabel-> + "In[219]:=",ExpressionUUID->"44ce8c70-9506-d44d-96f8-61e476c7c15f"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVl3k8lG8XxiUpKsYyY8k2zIwZSdZkPUeiQqSERFlKyk6JQpQlsu+JSiSk +kmhRQogsbSKl+qlsaSwzKon0Pu8/M5/nM/fc59z3Oc/1vQ7V3X/nQV4eHh4T +4uP/3yHhu1bx8JBQmPlCIXQlG6wsD74eriHhMcbMmDWLDVsd97B5w0Twe7N+ +r3olG6aUovmo6qK4ZLCXlZAxAYfPNCVd+yqKOd45ysfeToIAdcjrYKkYDi3M +F3JNp8EuQt+U5iyOeu/m5PdTONAiERwoTSUjXU6zer6PA8vNW4TDvpDxo/2h +qjTkwk/NbZX9ORSM9EzR1NHlgsC+qgJ/JwkMUejOd7/GgfYtlueWi0jiV9G2 +rOnyaXBqXfy2vEUSrwm0FCXcmgTR6KwCiJPCAWrGbT/r73B03mV7qIE0Oq/b +LaUzPQoLdwR2jv2TxoTqU+UiO4bAgef508bGNdh207On6fcguKx8qpd/VAY/ +DAaERez4AAl2l3mu68qivW3ikty5PnB1vtn6aEIWkywkdy6rew3OVy5+WnZH +DkOZJL07zd2gGn7t0L2j8ihY+8QzNa8N7ASDZmvEFbD89Jc9Qt+eQMmxJcPl +IQrI3DVz2LmoHiwaK2zlXyugDyXkWnTsPXhv5/qrfS0VBbcsuy11rxrCVyw3 +E0qmYqh7f66o8g04eqFN9M0oFa9Eh5v8t/oaRG4PS9SxUMR4kZOHbr0vgqBt +uvqdFYrYPf/pTEXTBXhEEz78mU8Jbd6rTH2eyAZJ+X6TTE8lVDNIHN8/lwYd +v+vOtzYpYdTL3ysr7iWCp0wFS3UNDZMsBbFALhbE9yd6qIXTcO/8v/3/9kaB +ZHSMzO0+GuabXDx1/2kYqD3xP/ViIx07n1//Hj0SDPlfjrr5ZdGR+fPRN2sT +f5i2ijtpMknHt6GPo3LKvMCx7yxU2TBwv87hgS8kD6DA1dOXKhg4Q7ctmvzr +AiNPq/1VVisjv2Hh8xg5B7ic15X1zVcZd4zz0DpGbaFqG48eq10Z1XPHtwxs +sILXUvR4PhUmPr+jt3X7MzOweOZh5xrLxFDxNipD1gQqn9zcM/2JiT9WOdje +X2oACgPjK2SQhdoWpXN5w9ow/hp12/NZ6Fh7bLo1UB1aTfrm/v1jYSvbtvbk +WhZ89nCeCnIioZDxjuf9JDZ02O7f/4MiguKFVwVindkgY+z7O/2NCA7fr2qY +EpmAyl1FW4cSRPFdtbTBE9Yk6L1+fYLfTAxL/OPhXNkUJHXYO116LI5HL7hf +c4vkwMjNC43PoslokDzgNijJhchH/J/KDCn493a9h6kFF061h9NKflPQ/zjF +vZWHC2Ov/2Y+rJVA+vPU8FEdDqTzX62LPyKJG494O6oLTsNRR+WvdzJkUVFf +6ZJ/8xvYd4qx022HHO4tSCl8VvsSNgsrFX8Sk0cpLfn4rbEdcKTd7DrphTzG +bWzkdVVshYUGPb9bZgo40PZTfvJxI8xK2184UKKAny5MC8V61UFG4jLaj0Wi +X6/KGEYt1MD1m3cKvZ2pmN5UpaMbWwW/bUfXBtZRsYC6k90wUQ5hRy8/55NS +xO/XP5YnWpRAqKWje9QJRfSX8mtwCr8EErrFtn1vFfHxQO6wfWUejBcF767T +UULjKztMPS0zgXPuma9qlhJmOHXTteRSIC+x+nPopBLSk4NnzZviod4o3/yG +JQ1PegxZ5eecBkrA8kb/chqKtvbfyBOMgGLqn+2Ny+k486j9CqM0BA7sDJq+ +6EnHxIxT40VXAqE1N2LSoYmODlJGuQLN3lCSHv/xtxwD2Zwjj17dPAj3BCU+ +K0cwsPvAyPl7Y66wyKs6NzTAwDI/Dfk1u52g+RbwJhopY1ppR22eox0wA0c8 +BS4o4+noOIrTMxtoui06SJlTRsddWkp/O7ZCSmCLb7UDE4sTPTzW25jCvJmA +A7OaickSn0aOehnDyHMrjThhFqafvV17/IkuLHtLVgjyZSE1S2NjboImOCae +kzzQzcIa7azNSa2qoDr9NkJvHQmHu8MbZgj9Pmf9RXJimIQrO4uNYoANmpYe +QR2lIqjVOShRM8CG5wbppbwuolhnuc2ZMTABr1Q6ljqIi+Htq4av7xhNwXRx ++3O3ZHHM5iq5DFlyYLfHcqkgWzK2eK99NPyHA5uih3+lCVPQ0UGAMrSVC3V/ +3b0et1EwzdVMxUuBC6GSDnnksxLocmlNHTWIA6rKv6+0GUniUh9L6yvO0xDZ +9zVw/UFZ1NBi6L7r74X/fMdXCsvLoV1VeNSd26/gZf8gBn2Vwy8o8HxUqgss +r4QIDBXJ482lrrTk3U+BOdyrqbmO6McgSTtaVxNYt6/F+GRCT+Fcw825h+BH +769LGFPAfyYLbvIb78KTJYIW0pupaOoUU3Y9+zborzt+v6GYinbbjZ4XRF6H +X8trAnx4FPHBUvu/1KKrcLLL65eTuyLGRH5zXN1yGTbjROuOJkW0DndRjVmb +D7s8TP7bLquEI6lU5KZnQUzvy7f7I5RQv1/YeXQuFW433TWS71fCaD5BjQMa +CSC6TvG+jxYNy2pe37d5eQayR9tFXmTQMKp/2eUdPZGwzxZqN07RcEFpX3E8 +KxS2CXJ079nQ8ZNx9bU3D4NA3WhO+WsFHTOXGj3lHvUFi6k41UJ+Bv4cnlpz +Qv4QnJ22Ifl4MrDwfkls3A83ECwaM9rUzEDfGpaUlbQz2BnMbXSiK6Olifol +/ardMBTzLiIsRhlLZTUF0z7tgPsRCasuDyqjtic1pS3IAqpaj54YQCb+q1lV +cPP0ZrgSf3d3ywUmFvW/GTlGRXjWHmFmMMvE9QM//et264HonijxNnsWfnBb +eyz5phYUqY0oU2pYONM5bD/1RA1y3g66VsaT0NByfmmMNBsEdn+4Or9FBG3/ +Wepfi2IDv8bxyD28orjFMPrsqPUEMDlDwx+mxNHWaaR56Q0OhPxZ70WtJqO9 +FffMNnWi32aVWxsPU3C9zbNa381c2JyZM5jAksDJI1Zx+/s54Jhckur2VQIf +1PSsXDkzDXdDHC4pvqKiykh1vUFwGSwMJqkWaijim1ptte4VxXCsY8vzqxmK +mLJc7A0zrRDG1+35uHdSEf8mSf7+sCkXogevdjKslTArV7iZK5kBp3bdjH3N +R8Og+Wl/Mc848LIW7Z3woOFYFe8zvYBoyP1t5kdqpOFDj6Mehs4nYYxTM7JF +gY7HWatz/+gfg1P5M2VxEXQkfTV9NnQ+AJy4S2q73tLx68PSAGGVI7CodTbF +TpeBMlldbyR3H4AR2qfbXzMZmFq/cPdf/37gHvCvif/BwJE/Ec2BlY6gSYvr +fLBbGZe+j7q2kbILfFxmbM7fVsbsM9IHw7nboWP4wp1kESa+rGjeeM9oC/jI +irsl+DFxo1CB0u11m8COz9kxqZ2J3UEnzxuXG8LS3jWyr5RZePlcXb/51g3w +2+76WtkYgo+mmhrlxzRAaERdoHqEhduM/p1d800FbO+SWwsoJGRKTxSpEfrD +7io+dribhNdivgvmaLGh3nbfrZFUEQw/PRUo08yGT+sTetPNRfHIfr/dYncn +QPat2dZ/86LYFe31iSswBVfSlgg0HxXHsqGlJ49pcCDJyMjMXI+MGzMahou/ +caDkq93SZXNkXFuSJpdlxgVHSftEy1sUXDyjd+6bKhfw4Zn8TYESeKTZRa80 +mQMn7lFzDylL4hnaYeWfZ6YhhrxJz9daFm+nrOzrPNQHCge7xg7yy+Edtlek +hfZryKlvEDbslEMj2jM9GXYXGAqn3t9+Th4lt225K/DzKTyeVcqeUVBAv1qb +wRzHJzB3MSdD8rQC0p/wXyvueAQfgkzi7D4q4IPzAYMJH+6C9VqdyxxdKv64 +IiemTauGAemGRc88Kka2mMy+sKmE2lf1Jgo/qFjBLfIstSuFhVWBuNVeEc9F +kj/qbC+Cgc2iPEJ3FTG2mo9ZPJMPKzYzSyRElFDHoIDGNMoG6xNvkuYClfBq +IDZvC0sD44/3vbldSsg//urADU4C4f9GAqyUaRiombH2+dEYsCsur4uMJ/j4 +p89G6MkpMPj2eezHFxomOqzb3/kjFAw9q/aabqajgmvbqu/WwTAsfK+l7BId +e46es3vg4AeyF/nt/P/QcYX2WMLg4CEI8GArC+1loO3iR8HMKHcgTZsPTt9l +4LsETcv1K1xAdom93SYpZayZC3ENPmAPT4R2JWiEKeP+X39OarnZQs3XlisH +3ijjGuH4LhVbS2ia6uIJ0GHis1UHfOOVzCCEuXp3RhoTr16/XhJYiFBnlvOC +/J2JlXd/7jRn6YNUfm1KoCULFRhHpBu2aMPTqMz1/tdYmLlqaUDV8/XwqFCu +TDiQhBshf0aYzIYjPYW8oetFMPVw2NobvmxI1w16eOy7CPp8bn6QtX4C3n+U +VTB+K4675l+qG+Rw4Oabg1k/z5NRvHFVYQCdCzJOua+0d1HQeMWLiE0E/77c +SOCVEJHAxdptFWUTHFBQf5We0iWBGyYoaVvIHHA4cGn4WSsVL1naMZ+uK4e6 +ipy/O+iKSCsvfkS7Vgy/BHdIZsYpoqvQiK3f6YsQpRkpIfVVEaVDlqvP/siF +DU1JadMmSljG89ut/lYGrPKvunN1TgnZux/qKYnEg6h5X3K3Aw2vhd7qFF1y +GuxrGBKNNcRz5ZEXuurh8DTBQZpPnI4yLi8qrkwcg6Bf1V2iQXTUarLbu1km +EEitDbYZXXS8adXJEzdzBF59WX6XsZaBri7tN9T+HYDnuSeexZ5loM7LW9fu +ebnC7zvd9hvGGBjBF/R1Z8Qe+PPty0jRNmXsfHX/d2/NLrAY9dlrW6qM0uUW +Zw+/t4anlm+37VzGRHPfnA7akq0QscVnVNaDiWmOqW4mjzYB82q1g1M9UV9/ +3Hwu1gh+2Gpfu76GhXZ6PzPseXVhMXvwalsoC80aJven/tUArY2fSCvfs7BT +MjHZsWct8Kvkb+gzJeEz3Ac9q9mg8lLhUcAiCcOtEqPo29kgl/CKXXiYjEdG +BiKvC3JhUC5kXIZBwSBdr8chhL+W+epvrjFIIeYzl6kqES4EihRLbbtIQgXu +ZzGksqGsT3rbKVcRFJWbDjiZzQZjhT8G2zvImFHx34U9eoT+ZN+/bxVFQVjl +Nd5gzIXS0OLHCyYSqNpNhelGDoxnnlmyZ4bIP/S4Rga/Chw4X+NlvZKERx72 +WWgSeimTxFei3ETCWPu5fcZqbODtHeg+GiOCqg/W2gXeY8MIa5nvHgNRNG/X +uiZTMgGmN84c6ZkSxWIjnu8J05Mwzy9XGuwljhseLM/+q8SBMhXHverryEiS +aNQ6OciBvqwkgYYJwr9tO79uqymR31WbNaLFFByo27PUXpMLJavy17w7KIGw +smehPp8DRac2pOvKSGLC8fAbcrnTwK/DkVllKovT3hKq9lV90Ohq5CDyRxbV +JuXfPgl5DXPr188qNMjh5O8Zrp5DN9SYrUnjjZLHWrNnqhbmbSCwxNL8jbQC +yp3TCt9x+QlYC3YZuIUroGtktIOZTj1kSv36/uCtAtaNaVsGqd8D8UYLy48a +hNGQurJZyrcaKkW+FtVlUBElRu9W1lVC1t1NKn8mqPgumRubUFUKRuuODRvv +UMTlY5k+nplFwGijFfpUKeJXI6rk6J4L4F5zIW5BUAnbjPd3vsrKhjtW9ofM +fZSwUOwPaeB+GvB9f8Dr3KaE98V6S7i7EiFdYet2QyoNhX9fSl/xLAa0l0in +9kXTkJ7k7CEkFwUqOnd4ez7Q8J0Av9035zDQEU/zTTCm49R5MxNafjDgHDlz +ZT4d7fm+8l3r9IO4Y08POf6go3wi3+5JUy8YKqjT2r+bgbTPRhHq7e6QKRGi +0V7FwAnHPEfh0y7Ae4DPfYOYMt46b7n0caM93O4RTk0OVkbvE2Oxi8W2UJ3z +ZcL8OfG+rdE9T262hA6+OdO69UyMThN06DhmBoOh9+3mEolnN57lPR8QtGKu +iC8dZqLZhfM8l7L1oUD/ZedTMxYaSZ1rFc/Rhn7WkTtrilhoSV72989adXge +VW/ZdJCEx0rijneLsiE/Y1F9gxLRj6cmvP87wIa+uql3SwdFkP/LlGuSwgRo +2enXT3aI49KlBt/9EjnQ0RRV8V8yGWk6Cub75LmwfeWLt5NbKKg49FooYhsX +1A3OZH7kk8DeQ0u+hc9yICZ6VJTeJIF58xmDnXQOMPc2n5VtpOLY8QMPRZPL +IT91zYiKvCK2+K8J1PpdDLpr7eoTohRxKL2F6714Ebpq0mqOf1TE9uNm0/M2 +eZCmwRPca6CEVi+S8mYWMuB1+G0L4R9K+Db2mFGaVzyMmWw8Um9Lw5aBZmdj +y9OwQTT3u8QtGkrwmsXnFYRDTS9T+8tqOrIWXGmMbSHgXZLxydGHjrGPloZw +9gXCkZtyCj+f0rFSXG37GSdv0K9reyZMZ2Bbw8NqS/uDsOnV1t6+0ww8J5TY +YVjmCicHFq6t/sLAXHfZGPuxPfDJKv1HtqkyPlreyk/itwO9SpbbjcvK6PO8 +fvniDhtoWfyRpf1PGfXNf27Dg1shzjlPxcuFiVL77yapLDOFjJ8uDk33mJjB +btnJ+mUEvmnIziOzUG/yRl+Rmy6c3jD/RSaYhYuntkuvNtUE8881Wfd6WHiP +74Olv6UqSK3Wex+/kYRzMQXHG1axwSk1elyNS0L52YoWWXM26Iewec+6kPHW +2figOV4uiLy8Md0nTcE3PttLh4n6eQccfjvbQ8Hd3wP1dklxIeaHSf2fDBL2 +b73ocl+WDf3ZJ48b2Ymg1fnavN5EYv/V5J26j8nYvn+yZqUOFxLMpx/zH6Ng +xZT3htcmXPi5rNCmWUcCeb0jtdhdHFgwdIpdNsFCsb470UMhKmDcE0L9TiVh +ZOXuy36EXj5abbrl+jsS/vXpjnDQY0OwpuxfCz4KfqL7rAvewgWBc85zMQ8p +OEidL5xicKG87hTfvnAS9sUevV4kwYaMUYvIlaVkPGwkJ01ey4XvZfs7T+yj +4MtDflMZ5lz4YT6fQbMhznMx7Jy6MBtu+RoPuWtQcJmIiG0OwYt9anwhueUk +FL08Gi5DZ4Oi1n90jz4ylnlnGmoYcYExFFWdcY6CL0Jc920w4EL/eGVE5RwL +xy6kpMrksWBCMEb/2jISLjMfWL6dOE/Nd+2H/A9JmBZ1++6DtWy4miP98WGk +CPL0Cbc332bDOKN5Y72OKPoaU4+aX5gA+7wrJ+u/iWJ2i8WLH18ngbmp8oel +uzhKHkyd1ZTlwIaig550ZTJ6Tz6WfzrAAT/fslUyY2TM3niiY464b2ufLo+f +BYR/+Yv4VpsL9jp0Z5qrBCrERzXJFXEIP4YplyiSWB/XXZVxeRraW9pT9hrJ +4pHXrU3/vemDtE/HhEZnZHH3pqWPLfJeg8q3kSNiD+Swfq/uL4vkbph2/Tzv +fEIe4wRzBKz82+Bm7KeLLRKEX16tVZ3SQvjlBs+02DAFzGq0maB618Okz8uL +7DcKuGL73cE3TvfgeGKvQo8aFa30Z3p+pleD+OpjwUPErN1eIq92c7oS+Fix +cqPjVAxJpd9b9l8p7DOa1dXfroi3WGvPj94tAqsVN79fuKGIZsHb4/OSL0Cq +T+/s5HIlTGaZ1qg2ZcOITu4bn8NKuNAl27PYnwajgfrP01qU0Obxq/pLsYkQ +LhdmoC1Hw/b4S2OlMzFAU98ZxnuKhof/bgr6ZhgF1IELwk/e0VChLW9XfnoY +aH4/FVJpQEev0b0mao3BMOFr9scwl459FrDVlN8fDNxKOVYcOk7KBtcKhXjB +xQdFD+J3MnD/H78uT7Y72F1f/f7ODQausTub9rjBBY5mD3ipk5RRr/LB6cAp +e2BumEx/GKCMy94bLGtptQWNgECxjZ3KODPuc/7RgiVYC6ce/E+ViacknKM9 +LpkBmZryRvUsEyOrhWmfFhACipn35j4z0Ze7gRrcpQ+fEl2OcDaxkFk12FpV +rw1ukbt/cgpZWH4pg/rQWh0cuUmy0q4kZAebnnomwgZNrtpWsqwIavJzPhe7 +siEsXO2bxXuCB0bHc9SlJsA1tX1lW4s4CqS+0g6IIebvjSm1b+KJeZ3JuKwq +w4WRr+PvLTdRUM7t151JQj/6l/B8aFyk4CbX5GuaC0S/VgTtCngogdX9Lh9H +1nEgzX6305Z6KtYK9XIN68tBkHffewkZRSwP0byhQy0BR4M+4dgIRQyj0x/S +jC4B96fU0mvvFdGfxWe/GJEH9d/0hto2KuGIGIO0jJYJtUs1KZs5SjgRzJB4 +khUPr+GwY601DU2yuPOtAaeBYfKi17SShqabHCwO9IRD5UkRk1eCdLQJ/eoa +cjwEvE6eHj15mI5x79P4y6MCQVLJOp7RQkeD/1J/ZqV4w9TVa7v4FBmoUWis +73b6ICxMrN/77xQD5x7XmOxtdwVD/6wdc58YiIdOGUXJOcGOSK/5VFTG6yfz +tVXW20GV0IoDA4XKaP4xvoqbZAOb+s/U0ReU0XHfLvnx3K0geEjNKtmJiaIa +QsYCKqbwtFDr7Y8aJi7b7cAvtd4YKm49TUkVZeGGUYvVA+m60BJ3NnpLAAud +mj2d1T014YXO5b7klyzkyVsVYnhWFa5Erqgc1CThpvDfVTsI/edO3l4ixCZh +zJikbfMmNrSz51ZHOJDxutCnK/OLHKgoezajRabgWf4rA0FE/UR1R+QHuimY +u3Rw/xRR39WeIqm7kknIEXv9XkyGDQE/r6fIWItgR3PU2VuxbBg7o+iiep+M +h5qllz0g/Kai/KonHv4UvP22tk2N8KMFXVJ5peslsJt9nOfeaw7Eppu1DXxj +4WpGJvvJLRVo32w+YypDwgbjfHFzQi/tfIP3JfaQsPvru6DDG9iwaqUeT9ki +GW3dp+zTCf2usn1n4lVLQSXnH5sXWVzQVLXpuxtCQrGnpa+sKWxQ2OeYwHOZ +jKXtA3U7mAS/ok8+f+tIQRvTQrcwgh8R9zsORGwj4W/v64WhQmzYau402rCW +gv05Me1ZhP6PXerZMl1MwrDSrwVKSmyoKmerO74k4x/PyV12hN43PCqonYql +IG9Vn6ggwQM3yGs4/YuFf3smtsm8YMF75eGcnyQSqn6UkGIS5zF6FMDvPkPG +pxyPGyc3c8FMeDLMy5uEUQGpQ0NiBB8077xJ307wjOnsNEnMm2kXDq9Yb0zC +m2/UNyEx74TOpk+EKVDQcH/JTkMiv66c5Vs2tZCx3+y7rYkuF6Z93zwsP0FB +F/kKjgNyodbtmk2GMonwQ2ZHy4j47/cs+TMhQMFaLZETesT+O1+atsseoGDm +BQXRVDMuHOld29RpR9Q3a4nuPMFDSrbi52W6FLxRv1PvJBHPOqfJoG+BhQfc +svgz3FhQ3exd3MNL8Hqi65wrsX/Umm7zX/dIOMP7QCJahQ0hsw8O/HdSBC99 +DFr4dZMNPvQrclOaovjjt1rVUM4EDK7WjKkeEcUYRrp59cdJeLx/Zs3G/eJ4 +2j1AtUOKAxHO7O/yNDKeXnYixeMdB+r2bEixGCZjp0dk+laCb1deCK4YPU/B +ZGPWFcENRD88O7KwzUUC7/aVbN9cwoHH5KdJPWKSqJfDPLL56jSUJdVsOaMv +i/XKXdd1RvsgVFZ0/NW0LEqdpVdRy19Dc+uTklV35RCoHNbRsm5I8WvRSDwu +jx1M5pnhM22wZCuz05CigJUX622f9j2B59I1dRKhCqjV++6gVlw9FOQY/Y7t +UcD413m/qAH3oGwqf6X1OioybZ69jCyphnZBY+ewFCqai8/P9ay8AYbupXku +36gYsfFPq+evUvAz2/j5nqUido9fLn7SXgT/lXEztCoVscqU45V97QKUbg1S +9+JXQpla3YWTb7PhVIXuSh4vJRTY86dS+VsaONb+0VrbrIR3P4dqnb+YCIGF +6ZpVMjT0dbIppwjEQsEWP7+8CBp+adnJ72sVBTJqpBy9fhryb1hxd01lGFT1 +zf4x0qdj9IJbv3VPMGxmfrzRm03HIT9xhYdK/kBxyNnQNkXHVztOXDZL9YL5 +LdkLa2wZuFCZK1aw6A46x/bcZFUykKEh5vv0kwusU9vic0NIGdOqPytO8TvA +gUMumTv9lfHhwsLvx322MP1hY2nVM2XcmXTk+yMpK0gTd/oVuJaJJP/ILdY1 +ZqD+MzTraRwT13cWnfqzygSE7nivODbIxMPTL88uH9OHf5olD+JMWBjJ0tpx +4ZU2lDItKS4FhP4ZPGTpuqqDzPWjceYuJBx3eNBoTfBtkdrWwyctgp7Ffz+n +7WODxcfuAL+3Ivg91a4riTwBvyqFte40iWPbPd8vR6I5cGlG3OBFDBldcy1e +JEgT+vIy1PkEUFBT7n2ZDPE+qB40jqqeJ/zV6EHPKEI/U43vz2Tfl8B+79KT +4xoc2GwnZ/rhIRUfR17YHtxbDpsMTtmlSCviqQ++z3p1SsDLVOIBb7gibtC8 +yl/lfAlicvZVGL9TxI++D5/LZ+fBm9Y+GRNdJXQX21F2XTcTGFu4Jz9NKeH6 +1Hcyfyriof1xtI3Gdhr22J6OKT1zGi46fu94V0HDpPHyvZzJcCh7Htu2VYCO +XwVfHX2SEgIjnn+8V3vR8clKNC9MDwS/j8P6DU/oePTbuYEnZd7QcSE3L1KB +gT/X7yKl5B0Ep3Cli5mRDHz0y6Qiut8VZPUGaf4fGThyOu9Eg54TCEq8WVwF +ytjnxDvYZ2oHbDh+MKhAGRt5tRclrtsAr5nl9ot/lDFp9Xtfz9tbwcpn7oP8 +HibGcfL2ZBqawmCgXG7KHSYuUNUOPLA0hq0NAoOCIgTPmiJHZCp0YUjtxcsP +fixcETRvPXBcE8QHs2d/P2fhuMK22Z5SVTikOy2+Wp2EP/XO8CgQfHssZ5H8 +d4yEpm919ymYsEGoLCrzuB0ZL8wq3Jgh/MevLIdj7qIUXOrC+alG8M0zn9bS +1UHBbZv61avkuPBabm72VCIJF55dct62hg2G9M3SqyxFcEHyX4XyGTash/Iv +jNr/61HS+xgNLvitzDfN8KHgCInCfUXwbXq9o2GeqgTm2MulpPYS87GBwZj5 +GAv5cwyH9nepQNLfdc4BUiQMnRY32EjopULhyvGwl8S8UpXqu6DNBsfZp9F9 +82QUvh1IoxB846uVGNlTTcHt/svtQon5ZXZoA3wNJmFdG3e4ksyGQ1L/Cc0X +kPFB5A75IWL+eekrsIPfnoKNcRLnPxN82xRY3V1uTkLrwbBLSgTfsjTHvCaZ +FIz7VmWbQPRvpePDKpkiEgqMK6mvV2TD7IHguzu7yXhMke+mkz4XVpWr6Mqd +oaDHXNiDMYJvpd+SByd+sFBh2sCrfZwFlwa7/lGFSLg19LzsWuI8iWWL8WnT +ZCzYXWI1TNyHYHvvlywvEn5RK3xkT/CNR97EvtGCgnZ7yY56xP3b2dkG7jUg +4fOdEef/EvVr+SrvXyZLQX8Hv9PiRH5iO1O6DJvImF7zmqVC6Luhk7tR/3EK +ln0O7JQk9P+EdOr9xzRiPnPdvS+BiM8wTz0ps5yCoY2+be+I81989GqblRsF +fe0Db4kT97k+RUzlty2hB9ElcZkE39yjq9y1tSk4JrtmbxIRLxPvOZvMs9Bq +Q1JNezgLmDsLXp1YQULdhOF8I2L//FnnPbJmRPzuu9EPiPw/tSqY1uiQUN/s +fl8skf++RwZByyQpSG3OeHKL+H1p0r5ECXkSmrl6aDsS/2+Uux4ZtoSCN9dM +Vy0j8lvY03UwXY2Cj7Km5M4T8Sn+f9c9EyPhwWADUxax3sucvstjBwUPJeSJ +FhC8Vl3J52OpRMFds1WiLsT66bKGkYMqJAz8b/lYJ7E+xTc4tGEVsf/nGMwg +1neUZe1/q0f4mQnhMXdivSC7U9p7kZhP1U57hpqz4H+c6i1Q + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1mW0VVUUgNGHtJSAtLSEgHR3h9IhpYKA0i3dKaDSIY2ClDQoKVLSIN3d +SEg36NzDH5O1vn3OYLzLO+cO0jZpX7NdpIiIiFJvRUSEud0f9cirn+mM5hpd +xPxZJzN/0QXNj83s5iazuPmZ63HNWTq/WdLMYm4w77iWxr7CXpNc9q1mHuf3 +zIGkI7PzdeZfzlPal9qr8Y1OGH4Gezke6HR6lb021ogdZn2e2+eS3OEiXZnP +dTz9o70Ud3Ve7tsHkZ4Dehjvum+uLs9DHZmd9ga8sM+jEfl44Gww73NQDycK +u3RDXtrn05j8RGW38095ZV/AFxQgGtHZ49pnvLYvpAkFeehsCBk4pEcQg73h +8/HG/gtNecdn+MlZaf7RhXhkH0pGDutU7llmr863OpGeZ69ANvtG85Hz9PZf +7XWIqfeZjfjXnsm1tfZF9hT2xfZCZhUzh7nZLGE2cz2+OVsXMMuYWc3fzWLm +PdfTmit1YbOWmdvcZpY0C7v+ODwH5NOZzA/M9WZR84jrqc3lugY57VvM75wn +ts+3V+RD+x/mY+fv23+zf8Lber/ZOLwELDbec32JvSpf6gR6jr0s93URntiH +heeWo/p7krhvga7EEx2Lv+xfEIkl+iuK8lQPD5+FY3oksTmgm4TnmqW6OcWI +E96x8CyH33H4Nw0/V3g3OOjepkRmmW5B8fA8c8hZM6KwXLekRPidczh8PqKy +QreiZPh344izr4jGSt06fFeEz8hRZ82JzirdhtIk5ZizFsTgV92WMuH7g+PO +WoZnid90O8qG95UTzlqF3werdXvKhWeLk85aE4s1ugPleaZHkIXjelT43XFK +tyE2a3VHKvA8PO/h+eOEHh2+azit2xKHdboTFXkRnqPwTnBSjwnvDmd0+PKM +y3rdmUq81N+HZ41Temx4Njmr2xOPDfprPuKVHkl2TutxpOGc7sA7/K678HF4 +TzjvrCPx2ai7UpnXelR49zijx5OOC7oTCfhDd6MKb/To8L5wVk8I7zsXdWcS +skl3pyr/6jHk4pyeGN4jLumveZfNugfVCF/MY8O7zHk5iQxc1l1IxBbdk+rh +1XP/OGd5uKB/ICNXdFcSs1X3okb4690/3lleLurJZOKq7kYStune1CSy+yc4 +y8clPYXMXNPdScqfug+1iOL+ic7yc1lP5QOu6x4kY7vuS22iun+SswJc0dPI +wg3dk+Ts0P2oQzT3/+CsIFf1dLJyU/ciBTt1fz4huvsnOyvENT2DbPyte/Me +u/QA6hLD/VOcFea6nsmH3NJ9SMluPZB6xHT/VGdFuKFnkZ3bui+p2KMHUZ+3 +3T/NWVFu6h/JwR3dj9Ts1YNpQCz3T3dWjL/1T+Tkru5PGvbpITQktvtnOCvO +LT2bXPyjB5CW/XoonxLH/TOdleC2nkNSZwv1RzwNz59eba8bnjP7n5H+//9P +btf+AworCus= + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrsJgFAURMHrJ7ANS1EDEyNLMBAeCA/U/lEDwR6cZOGw0y55Xrsy4qgj +YkrHuRbxreqp5p557Ie85T09f4p3cBzHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzHcRzHcRzH/8YvFxbRZQ== + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl3k8lG8XxiUpKsYyY8k2zIwZSdZkPUeiQqSERFlKyk6JQpQlsu+JSiSk +kmhRQogsbSKl+qlsaSwzKon0Pu8/M5/nM/fc59z3Oc/1vQ7V3X/nQV4eHh4T +4uP/3yHhu1bx8JBQmPlCIXQlG6wsD74eriHhMcbMmDWLDVsd97B5w0Twe7N+ +r3olG6aUovmo6qK4ZLCXlZAxAYfPNCVd+yqKOd45ysfeToIAdcjrYKkYDi3M +F3JNp8EuQt+U5iyOeu/m5PdTONAiERwoTSUjXU6zer6PA8vNW4TDvpDxo/2h +qjTkwk/NbZX9ORSM9EzR1NHlgsC+qgJ/JwkMUejOd7/GgfYtlueWi0jiV9G2 +rOnyaXBqXfy2vEUSrwm0FCXcmgTR6KwCiJPCAWrGbT/r73B03mV7qIE0Oq/b +LaUzPQoLdwR2jv2TxoTqU+UiO4bAgef508bGNdh207On6fcguKx8qpd/VAY/ +DAaERez4AAl2l3mu68qivW3ikty5PnB1vtn6aEIWkywkdy6rew3OVy5+WnZH +DkOZJL07zd2gGn7t0L2j8ihY+8QzNa8N7ASDZmvEFbD89Jc9Qt+eQMmxJcPl +IQrI3DVz2LmoHiwaK2zlXyugDyXkWnTsPXhv5/qrfS0VBbcsuy11rxrCVyw3 +E0qmYqh7f66o8g04eqFN9M0oFa9Eh5v8t/oaRG4PS9SxUMR4kZOHbr0vgqBt +uvqdFYrYPf/pTEXTBXhEEz78mU8Jbd6rTH2eyAZJ+X6TTE8lVDNIHN8/lwYd +v+vOtzYpYdTL3ysr7iWCp0wFS3UNDZMsBbFALhbE9yd6qIXTcO/8v/3/9kaB +ZHSMzO0+GuabXDx1/2kYqD3xP/ViIx07n1//Hj0SDPlfjrr5ZdGR+fPRN2sT +f5i2ijtpMknHt6GPo3LKvMCx7yxU2TBwv87hgS8kD6DA1dOXKhg4Q7ctmvzr +AiNPq/1VVisjv2Hh8xg5B7ic15X1zVcZd4zz0DpGbaFqG48eq10Z1XPHtwxs +sILXUvR4PhUmPr+jt3X7MzOweOZh5xrLxFDxNipD1gQqn9zcM/2JiT9WOdje +X2oACgPjK2SQhdoWpXN5w9ow/hp12/NZ6Fh7bLo1UB1aTfrm/v1jYSvbtvbk +WhZ89nCeCnIioZDxjuf9JDZ02O7f/4MiguKFVwVindkgY+z7O/2NCA7fr2qY +EpmAyl1FW4cSRPFdtbTBE9Yk6L1+fYLfTAxL/OPhXNkUJHXYO116LI5HL7hf +c4vkwMjNC43PoslokDzgNijJhchH/J/KDCn493a9h6kFF061h9NKflPQ/zjF +vZWHC2Ov/2Y+rJVA+vPU8FEdDqTzX62LPyKJG494O6oLTsNRR+WvdzJkUVFf +6ZJ/8xvYd4qx022HHO4tSCl8VvsSNgsrFX8Sk0cpLfn4rbEdcKTd7DrphTzG +bWzkdVVshYUGPb9bZgo40PZTfvJxI8xK2184UKKAny5MC8V61UFG4jLaj0Wi +X6/KGEYt1MD1m3cKvZ2pmN5UpaMbWwW/bUfXBtZRsYC6k90wUQ5hRy8/55NS +xO/XP5YnWpRAqKWje9QJRfSX8mtwCr8EErrFtn1vFfHxQO6wfWUejBcF767T +UULjKztMPS0zgXPuma9qlhJmOHXTteRSIC+x+nPopBLSk4NnzZviod4o3/yG +JQ1PegxZ5eecBkrA8kb/chqKtvbfyBOMgGLqn+2Ny+k486j9CqM0BA7sDJq+ +6EnHxIxT40VXAqE1N2LSoYmODlJGuQLN3lCSHv/xtxwD2Zwjj17dPAj3BCU+ +K0cwsPvAyPl7Y66wyKs6NzTAwDI/Dfk1u52g+RbwJhopY1ppR22eox0wA0c8 +BS4o4+noOIrTMxtoui06SJlTRsddWkp/O7ZCSmCLb7UDE4sTPTzW25jCvJmA +A7OaickSn0aOehnDyHMrjThhFqafvV17/IkuLHtLVgjyZSE1S2NjboImOCae +kzzQzcIa7azNSa2qoDr9NkJvHQmHu8MbZgj9Pmf9RXJimIQrO4uNYoANmpYe +QR2lIqjVOShRM8CG5wbppbwuolhnuc2ZMTABr1Q6ljqIi+Htq4av7xhNwXRx ++3O3ZHHM5iq5DFlyYLfHcqkgWzK2eK99NPyHA5uih3+lCVPQ0UGAMrSVC3V/ +3b0et1EwzdVMxUuBC6GSDnnksxLocmlNHTWIA6rKv6+0GUniUh9L6yvO0xDZ +9zVw/UFZ1NBi6L7r74X/fMdXCsvLoV1VeNSd26/gZf8gBn2Vwy8o8HxUqgss +r4QIDBXJ482lrrTk3U+BOdyrqbmO6McgSTtaVxNYt6/F+GRCT+Fcw825h+BH +769LGFPAfyYLbvIb78KTJYIW0pupaOoUU3Y9+zborzt+v6GYinbbjZ4XRF6H +X8trAnx4FPHBUvu/1KKrcLLL65eTuyLGRH5zXN1yGTbjROuOJkW0DndRjVmb +D7s8TP7bLquEI6lU5KZnQUzvy7f7I5RQv1/YeXQuFW433TWS71fCaD5BjQMa +CSC6TvG+jxYNy2pe37d5eQayR9tFXmTQMKp/2eUdPZGwzxZqN07RcEFpX3E8 +KxS2CXJ079nQ8ZNx9bU3D4NA3WhO+WsFHTOXGj3lHvUFi6k41UJ+Bv4cnlpz +Qv4QnJ22Ifl4MrDwfkls3A83ECwaM9rUzEDfGpaUlbQz2BnMbXSiK6Olifol +/ardMBTzLiIsRhlLZTUF0z7tgPsRCasuDyqjtic1pS3IAqpaj54YQCb+q1lV +cPP0ZrgSf3d3ywUmFvW/GTlGRXjWHmFmMMvE9QM//et264HonijxNnsWfnBb +eyz5phYUqY0oU2pYONM5bD/1RA1y3g66VsaT0NByfmmMNBsEdn+4Or9FBG3/ +Wepfi2IDv8bxyD28orjFMPrsqPUEMDlDwx+mxNHWaaR56Q0OhPxZ70WtJqO9 +FffMNnWi32aVWxsPU3C9zbNa381c2JyZM5jAksDJI1Zx+/s54Jhckur2VQIf +1PSsXDkzDXdDHC4pvqKiykh1vUFwGSwMJqkWaijim1ptte4VxXCsY8vzqxmK +mLJc7A0zrRDG1+35uHdSEf8mSf7+sCkXogevdjKslTArV7iZK5kBp3bdjH3N +R8Og+Wl/Mc848LIW7Z3woOFYFe8zvYBoyP1t5kdqpOFDj6Mehs4nYYxTM7JF +gY7HWatz/+gfg1P5M2VxEXQkfTV9NnQ+AJy4S2q73tLx68PSAGGVI7CodTbF +TpeBMlldbyR3H4AR2qfbXzMZmFq/cPdf/37gHvCvif/BwJE/Ec2BlY6gSYvr +fLBbGZe+j7q2kbILfFxmbM7fVsbsM9IHw7nboWP4wp1kESa+rGjeeM9oC/jI +irsl+DFxo1CB0u11m8COz9kxqZ2J3UEnzxuXG8LS3jWyr5RZePlcXb/51g3w +2+76WtkYgo+mmhrlxzRAaERdoHqEhduM/p1d800FbO+SWwsoJGRKTxSpEfrD +7io+dribhNdivgvmaLGh3nbfrZFUEQw/PRUo08yGT+sTetPNRfHIfr/dYncn +QPat2dZ/86LYFe31iSswBVfSlgg0HxXHsqGlJ49pcCDJyMjMXI+MGzMahou/ +caDkq93SZXNkXFuSJpdlxgVHSftEy1sUXDyjd+6bKhfw4Zn8TYESeKTZRa80 +mQMn7lFzDylL4hnaYeWfZ6YhhrxJz9daFm+nrOzrPNQHCge7xg7yy+Edtlek +hfZryKlvEDbslEMj2jM9GXYXGAqn3t9+Th4lt225K/DzKTyeVcqeUVBAv1qb +wRzHJzB3MSdD8rQC0p/wXyvueAQfgkzi7D4q4IPzAYMJH+6C9VqdyxxdKv64 +IiemTauGAemGRc88Kka2mMy+sKmE2lf1Jgo/qFjBLfIstSuFhVWBuNVeEc9F +kj/qbC+Cgc2iPEJ3FTG2mo9ZPJMPKzYzSyRElFDHoIDGNMoG6xNvkuYClfBq +IDZvC0sD44/3vbldSsg//urADU4C4f9GAqyUaRiombH2+dEYsCsur4uMJ/j4 +p89G6MkpMPj2eezHFxomOqzb3/kjFAw9q/aabqajgmvbqu/WwTAsfK+l7BId +e46es3vg4AeyF/nt/P/QcYX2WMLg4CEI8GArC+1loO3iR8HMKHcgTZsPTt9l +4LsETcv1K1xAdom93SYpZayZC3ENPmAPT4R2JWiEKeP+X39OarnZQs3XlisH +3ijjGuH4LhVbS2ia6uIJ0GHis1UHfOOVzCCEuXp3RhoTr16/XhJYiFBnlvOC +/J2JlXd/7jRn6YNUfm1KoCULFRhHpBu2aMPTqMz1/tdYmLlqaUDV8/XwqFCu +TDiQhBshf0aYzIYjPYW8oetFMPVw2NobvmxI1w16eOy7CPp8bn6QtX4C3n+U +VTB+K4675l+qG+Rw4Oabg1k/z5NRvHFVYQCdCzJOua+0d1HQeMWLiE0E/77c +SOCVEJHAxdptFWUTHFBQf5We0iWBGyYoaVvIHHA4cGn4WSsVL1naMZ+uK4e6 +ipy/O+iKSCsvfkS7Vgy/BHdIZsYpoqvQiK3f6YsQpRkpIfVVEaVDlqvP/siF +DU1JadMmSljG89ut/lYGrPKvunN1TgnZux/qKYnEg6h5X3K3Aw2vhd7qFF1y +GuxrGBKNNcRz5ZEXuurh8DTBQZpPnI4yLi8qrkwcg6Bf1V2iQXTUarLbu1km +EEitDbYZXXS8adXJEzdzBF59WX6XsZaBri7tN9T+HYDnuSeexZ5loM7LW9fu +ebnC7zvd9hvGGBjBF/R1Z8Qe+PPty0jRNmXsfHX/d2/NLrAY9dlrW6qM0uUW +Zw+/t4anlm+37VzGRHPfnA7akq0QscVnVNaDiWmOqW4mjzYB82q1g1M9UV9/ +3Hwu1gh+2Gpfu76GhXZ6PzPseXVhMXvwalsoC80aJven/tUArY2fSCvfs7BT +MjHZsWct8Kvkb+gzJeEz3Ac9q9mg8lLhUcAiCcOtEqPo29kgl/CKXXiYjEdG +BiKvC3JhUC5kXIZBwSBdr8chhL+W+epvrjFIIeYzl6kqES4EihRLbbtIQgXu +ZzGksqGsT3rbKVcRFJWbDjiZzQZjhT8G2zvImFHx34U9eoT+ZN+/bxVFQVjl +Nd5gzIXS0OLHCyYSqNpNhelGDoxnnlmyZ4bIP/S4Rga/Chw4X+NlvZKERx72 +WWgSeimTxFei3ETCWPu5fcZqbODtHeg+GiOCqg/W2gXeY8MIa5nvHgNRNG/X +uiZTMgGmN84c6ZkSxWIjnu8J05Mwzy9XGuwljhseLM/+q8SBMhXHverryEiS +aNQ6OciBvqwkgYYJwr9tO79uqymR31WbNaLFFByo27PUXpMLJavy17w7KIGw +smehPp8DRac2pOvKSGLC8fAbcrnTwK/DkVllKovT3hKq9lV90Ohq5CDyRxbV +JuXfPgl5DXPr188qNMjh5O8Zrp5DN9SYrUnjjZLHWrNnqhbmbSCwxNL8jbQC +yp3TCt9x+QlYC3YZuIUroGtktIOZTj1kSv36/uCtAtaNaVsGqd8D8UYLy48a +hNGQurJZyrcaKkW+FtVlUBElRu9W1lVC1t1NKn8mqPgumRubUFUKRuuODRvv +UMTlY5k+nplFwGijFfpUKeJXI6rk6J4L4F5zIW5BUAnbjPd3vsrKhjtW9ofM +fZSwUOwPaeB+GvB9f8Dr3KaE98V6S7i7EiFdYet2QyoNhX9fSl/xLAa0l0in +9kXTkJ7k7CEkFwUqOnd4ez7Q8J0Av9035zDQEU/zTTCm49R5MxNafjDgHDlz +ZT4d7fm+8l3r9IO4Y08POf6go3wi3+5JUy8YKqjT2r+bgbTPRhHq7e6QKRGi +0V7FwAnHPEfh0y7Ae4DPfYOYMt46b7n0caM93O4RTk0OVkbvE2Oxi8W2UJ3z +ZcL8OfG+rdE9T262hA6+OdO69UyMThN06DhmBoOh9+3mEolnN57lPR8QtGKu +iC8dZqLZhfM8l7L1oUD/ZedTMxYaSZ1rFc/Rhn7WkTtrilhoSV72989adXge +VW/ZdJCEx0rijneLsiE/Y1F9gxLRj6cmvP87wIa+uql3SwdFkP/LlGuSwgRo +2enXT3aI49KlBt/9EjnQ0RRV8V8yGWk6Cub75LmwfeWLt5NbKKg49FooYhsX +1A3OZH7kk8DeQ0u+hc9yICZ6VJTeJIF58xmDnXQOMPc2n5VtpOLY8QMPRZPL +IT91zYiKvCK2+K8J1PpdDLpr7eoTohRxKL2F6714Ebpq0mqOf1TE9uNm0/M2 +eZCmwRPca6CEVi+S8mYWMuB1+G0L4R9K+Db2mFGaVzyMmWw8Um9Lw5aBZmdj +y9OwQTT3u8QtGkrwmsXnFYRDTS9T+8tqOrIWXGmMbSHgXZLxydGHjrGPloZw +9gXCkZtyCj+f0rFSXG37GSdv0K9reyZMZ2Bbw8NqS/uDsOnV1t6+0ww8J5TY +YVjmCicHFq6t/sLAXHfZGPuxPfDJKv1HtqkyPlreyk/itwO9SpbbjcvK6PO8 +fvniDhtoWfyRpf1PGfXNf27Dg1shzjlPxcuFiVL77yapLDOFjJ8uDk33mJjB +btnJ+mUEvmnIziOzUG/yRl+Rmy6c3jD/RSaYhYuntkuvNtUE8881Wfd6WHiP +74Olv6UqSK3Wex+/kYRzMQXHG1axwSk1elyNS0L52YoWWXM26Iewec+6kPHW +2figOV4uiLy8Md0nTcE3PttLh4n6eQccfjvbQ8Hd3wP1dklxIeaHSf2fDBL2 +b73ocl+WDf3ZJ48b2Ymg1fnavN5EYv/V5J26j8nYvn+yZqUOFxLMpx/zH6Ng +xZT3htcmXPi5rNCmWUcCeb0jtdhdHFgwdIpdNsFCsb470UMhKmDcE0L9TiVh +ZOXuy36EXj5abbrl+jsS/vXpjnDQY0OwpuxfCz4KfqL7rAvewgWBc85zMQ8p +OEidL5xicKG87hTfvnAS9sUevV4kwYaMUYvIlaVkPGwkJ01ey4XvZfs7T+yj +4MtDflMZ5lz4YT6fQbMhznMx7Jy6MBtu+RoPuWtQcJmIiG0OwYt9anwhueUk +FL08Gi5DZ4Oi1n90jz4ylnlnGmoYcYExFFWdcY6CL0Jc920w4EL/eGVE5RwL +xy6kpMrksWBCMEb/2jISLjMfWL6dOE/Nd+2H/A9JmBZ1++6DtWy4miP98WGk +CPL0Cbc332bDOKN5Y72OKPoaU4+aX5gA+7wrJ+u/iWJ2i8WLH18ngbmp8oel +uzhKHkyd1ZTlwIaig550ZTJ6Tz6WfzrAAT/fslUyY2TM3niiY464b2ufLo+f +BYR/+Yv4VpsL9jp0Z5qrBCrERzXJFXEIP4YplyiSWB/XXZVxeRraW9pT9hrJ +4pHXrU3/vemDtE/HhEZnZHH3pqWPLfJeg8q3kSNiD+Swfq/uL4vkbph2/Tzv +fEIe4wRzBKz82+Bm7KeLLRKEX16tVZ3SQvjlBs+02DAFzGq0maB618Okz8uL +7DcKuGL73cE3TvfgeGKvQo8aFa30Z3p+pleD+OpjwUPErN1eIq92c7oS+Fix +cqPjVAxJpd9b9l8p7DOa1dXfroi3WGvPj94tAqsVN79fuKGIZsHb4/OSL0Cq +T+/s5HIlTGaZ1qg2ZcOITu4bn8NKuNAl27PYnwajgfrP01qU0Obxq/pLsYkQ +LhdmoC1Hw/b4S2OlMzFAU98ZxnuKhof/bgr6ZhgF1IELwk/e0VChLW9XfnoY +aH4/FVJpQEev0b0mao3BMOFr9scwl459FrDVlN8fDNxKOVYcOk7KBtcKhXjB +xQdFD+J3MnD/H78uT7Y72F1f/f7ODQausTub9rjBBY5mD3ipk5RRr/LB6cAp +e2BumEx/GKCMy94bLGtptQWNgECxjZ3KODPuc/7RgiVYC6ce/E+ViacknKM9 +LpkBmZryRvUsEyOrhWmfFhACipn35j4z0Ze7gRrcpQ+fEl2OcDaxkFk12FpV +rw1ukbt/cgpZWH4pg/rQWh0cuUmy0q4kZAebnnomwgZNrtpWsqwIavJzPhe7 +siEsXO2bxXuCB0bHc9SlJsA1tX1lW4s4CqS+0g6IIebvjSm1b+KJeZ3JuKwq +w4WRr+PvLTdRUM7t151JQj/6l/B8aFyk4CbX5GuaC0S/VgTtCngogdX9Lh9H +1nEgzX6305Z6KtYK9XIN68tBkHffewkZRSwP0byhQy0BR4M+4dgIRQyj0x/S +jC4B96fU0mvvFdGfxWe/GJEH9d/0hto2KuGIGIO0jJYJtUs1KZs5SjgRzJB4 +khUPr+GwY601DU2yuPOtAaeBYfKi17SShqabHCwO9IRD5UkRk1eCdLQJ/eoa +cjwEvE6eHj15mI5x79P4y6MCQVLJOp7RQkeD/1J/ZqV4w9TVa7v4FBmoUWis +73b6ICxMrN/77xQD5x7XmOxtdwVD/6wdc58YiIdOGUXJOcGOSK/5VFTG6yfz +tVXW20GV0IoDA4XKaP4xvoqbZAOb+s/U0ReU0XHfLvnx3K0geEjNKtmJiaIa +QsYCKqbwtFDr7Y8aJi7b7cAvtd4YKm49TUkVZeGGUYvVA+m60BJ3NnpLAAud +mj2d1T014YXO5b7klyzkyVsVYnhWFa5Erqgc1CThpvDfVTsI/edO3l4ixCZh +zJikbfMmNrSz51ZHOJDxutCnK/OLHKgoezajRabgWf4rA0FE/UR1R+QHuimY +u3Rw/xRR39WeIqm7kknIEXv9XkyGDQE/r6fIWItgR3PU2VuxbBg7o+iiep+M +h5qllz0g/Kai/KonHv4UvP22tk2N8KMFXVJ5peslsJt9nOfeaw7Eppu1DXxj +4WpGJvvJLRVo32w+YypDwgbjfHFzQi/tfIP3JfaQsPvru6DDG9iwaqUeT9ki +GW3dp+zTCf2usn1n4lVLQSXnH5sXWVzQVLXpuxtCQrGnpa+sKWxQ2OeYwHOZ +jKXtA3U7mAS/ok8+f+tIQRvTQrcwgh8R9zsORGwj4W/v64WhQmzYau402rCW +gv05Me1ZhP6PXerZMl1MwrDSrwVKSmyoKmerO74k4x/PyV12hN43PCqonYql +IG9Vn6ggwQM3yGs4/YuFf3smtsm8YMF75eGcnyQSqn6UkGIS5zF6FMDvPkPG +pxyPGyc3c8FMeDLMy5uEUQGpQ0NiBB8077xJ307wjOnsNEnMm2kXDq9Yb0zC +m2/UNyEx74TOpk+EKVDQcH/JTkMiv66c5Vs2tZCx3+y7rYkuF6Z93zwsP0FB +F/kKjgNyodbtmk2GMonwQ2ZHy4j47/cs+TMhQMFaLZETesT+O1+atsseoGDm +BQXRVDMuHOld29RpR9Q3a4nuPMFDSrbi52W6FLxRv1PvJBHPOqfJoG+BhQfc +svgz3FhQ3exd3MNL8Hqi65wrsX/Umm7zX/dIOMP7QCJahQ0hsw8O/HdSBC99 +DFr4dZMNPvQrclOaovjjt1rVUM4EDK7WjKkeEcUYRrp59cdJeLx/Zs3G/eJ4 +2j1AtUOKAxHO7O/yNDKeXnYixeMdB+r2bEixGCZjp0dk+laCb1deCK4YPU/B +ZGPWFcENRD88O7KwzUUC7/aVbN9cwoHH5KdJPWKSqJfDPLL56jSUJdVsOaMv +i/XKXdd1RvsgVFZ0/NW0LEqdpVdRy19Dc+uTklV35RCoHNbRsm5I8WvRSDwu +jx1M5pnhM22wZCuz05CigJUX622f9j2B59I1dRKhCqjV++6gVlw9FOQY/Y7t +UcD413m/qAH3oGwqf6X1OioybZ69jCyphnZBY+ewFCqai8/P9ay8AYbupXku +36gYsfFPq+evUvAz2/j5nqUido9fLn7SXgT/lXEztCoVscqU45V97QKUbg1S +9+JXQpla3YWTb7PhVIXuSh4vJRTY86dS+VsaONb+0VrbrIR3P4dqnb+YCIGF +6ZpVMjT0dbIppwjEQsEWP7+8CBp+adnJ72sVBTJqpBy9fhryb1hxd01lGFT1 +zf4x0qdj9IJbv3VPMGxmfrzRm03HIT9xhYdK/kBxyNnQNkXHVztOXDZL9YL5 +LdkLa2wZuFCZK1aw6A46x/bcZFUykKEh5vv0kwusU9vic0NIGdOqPytO8TvA +gUMumTv9lfHhwsLvx322MP1hY2nVM2XcmXTk+yMpK0gTd/oVuJaJJP/ILdY1 +ZqD+MzTraRwT13cWnfqzygSE7nivODbIxMPTL88uH9OHf5olD+JMWBjJ0tpx +4ZU2lDItKS4FhP4ZPGTpuqqDzPWjceYuJBx3eNBoTfBtkdrWwyctgp7Ffz+n +7WODxcfuAL+3Ivg91a4riTwBvyqFte40iWPbPd8vR6I5cGlG3OBFDBldcy1e +JEgT+vIy1PkEUFBT7n2ZDPE+qB40jqqeJ/zV6EHPKEI/U43vz2Tfl8B+79KT +4xoc2GwnZ/rhIRUfR17YHtxbDpsMTtmlSCviqQ++z3p1SsDLVOIBb7gibtC8 +yl/lfAlicvZVGL9TxI++D5/LZ+fBm9Y+GRNdJXQX21F2XTcTGFu4Jz9NKeH6 +1Hcyfyriof1xtI3Gdhr22J6OKT1zGi46fu94V0HDpPHyvZzJcCh7Htu2VYCO +XwVfHX2SEgIjnn+8V3vR8clKNC9MDwS/j8P6DU/oePTbuYEnZd7QcSE3L1KB +gT/X7yKl5B0Ep3Cli5mRDHz0y6Qiut8VZPUGaf4fGThyOu9Eg54TCEq8WVwF +ytjnxDvYZ2oHbDh+MKhAGRt5tRclrtsAr5nl9ot/lDFp9Xtfz9tbwcpn7oP8 +HibGcfL2ZBqawmCgXG7KHSYuUNUOPLA0hq0NAoOCIgTPmiJHZCp0YUjtxcsP +fixcETRvPXBcE8QHs2d/P2fhuMK22Z5SVTikOy2+Wp2EP/XO8CgQfHssZ5H8 +d4yEpm919ymYsEGoLCrzuB0ZL8wq3Jgh/MevLIdj7qIUXOrC+alG8M0zn9bS +1UHBbZv61avkuPBabm72VCIJF55dct62hg2G9M3SqyxFcEHyX4XyGTash/Iv +jNr/61HS+xgNLvitzDfN8KHgCInCfUXwbXq9o2GeqgTm2MulpPYS87GBwZj5 +GAv5cwyH9nepQNLfdc4BUiQMnRY32EjopULhyvGwl8S8UpXqu6DNBsfZp9F9 +82QUvh1IoxB846uVGNlTTcHt/svtQon5ZXZoA3wNJmFdG3e4ksyGQ1L/Cc0X +kPFB5A75IWL+eekrsIPfnoKNcRLnPxN82xRY3V1uTkLrwbBLSgTfsjTHvCaZ +FIz7VmWbQPRvpePDKpkiEgqMK6mvV2TD7IHguzu7yXhMke+mkz4XVpWr6Mqd +oaDHXNiDMYJvpd+SByd+sFBh2sCrfZwFlwa7/lGFSLg19LzsWuI8iWWL8WnT +ZCzYXWI1TNyHYHvvlywvEn5RK3xkT/CNR97EvtGCgnZ7yY56xP3b2dkG7jUg +4fOdEef/EvVr+SrvXyZLQX8Hv9PiRH5iO1O6DJvImF7zmqVC6Luhk7tR/3EK +ln0O7JQk9P+EdOr9xzRiPnPdvS+BiM8wTz0ps5yCoY2+be+I81989GqblRsF +fe0Db4kT97k+RUzlty2hB9ElcZkE39yjq9y1tSk4JrtmbxIRLxPvOZvMs9Bq +Q1JNezgLmDsLXp1YQULdhOF8I2L//FnnPbJmRPzuu9EPiPw/tSqY1uiQUN/s +fl8skf++RwZByyQpSG3OeHKL+H1p0r5ECXkSmrl6aDsS/2+Uux4ZtoSCN9dM +Vy0j8lvY03UwXY2Cj7Km5M4T8Sn+f9c9EyPhwWADUxax3sucvstjBwUPJeSJ +FhC8Vl3J52OpRMFds1WiLsT66bKGkYMqJAz8b/lYJ7E+xTc4tGEVsf/nGMwg +1neUZe1/q0f4mQnhMXdivSC7U9p7kZhP1U57hpqz4H+c6i1Q + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1mW0VVUUgNGHtJSAtLSEgHR3h9IhpYKA0i3dKaDSIY2ClDQoKVLSIN3d +SEg36NzDH5O1vn3OYLzLO+cO0jZpX7NdpIiIiFJvRUSEud0f9cirn+mM5hpd +xPxZJzN/0QXNj83s5iazuPmZ63HNWTq/WdLMYm4w77iWxr7CXpNc9q1mHuf3 +zIGkI7PzdeZfzlPal9qr8Y1OGH4Gezke6HR6lb021ogdZn2e2+eS3OEiXZnP +dTz9o70Ud3Ve7tsHkZ4Dehjvum+uLs9DHZmd9ga8sM+jEfl44Gww73NQDycK +u3RDXtrn05j8RGW38095ZV/AFxQgGtHZ49pnvLYvpAkFeehsCBk4pEcQg73h +8/HG/gtNecdn+MlZaf7RhXhkH0pGDutU7llmr863OpGeZ69ANvtG85Hz9PZf +7XWIqfeZjfjXnsm1tfZF9hT2xfZCZhUzh7nZLGE2cz2+OVsXMMuYWc3fzWLm +PdfTmit1YbOWmdvcZpY0C7v+ODwH5NOZzA/M9WZR84jrqc3lugY57VvM75wn +ts+3V+RD+x/mY+fv23+zf8Lber/ZOLwELDbec32JvSpf6gR6jr0s93URntiH +heeWo/p7krhvga7EEx2Lv+xfEIkl+iuK8lQPD5+FY3oksTmgm4TnmqW6OcWI +E96x8CyH33H4Nw0/V3g3OOjepkRmmW5B8fA8c8hZM6KwXLekRPidczh8PqKy +QreiZPh344izr4jGSt06fFeEz8hRZ82JzirdhtIk5ZizFsTgV92WMuH7g+PO +WoZnid90O8qG95UTzlqF3werdXvKhWeLk85aE4s1ugPleaZHkIXjelT43XFK +tyE2a3VHKvA8PO/h+eOEHh2+azit2xKHdboTFXkRnqPwTnBSjwnvDmd0+PKM +y3rdmUq81N+HZ41Temx4Njmr2xOPDfprPuKVHkl2TutxpOGc7sA7/K678HF4 +TzjvrCPx2ai7UpnXelR49zijx5OOC7oTCfhDd6MKb/To8L5wVk8I7zsXdWcS +skl3pyr/6jHk4pyeGN4jLumveZfNugfVCF/MY8O7zHk5iQxc1l1IxBbdk+rh +1XP/OGd5uKB/ICNXdFcSs1X3okb4690/3lleLurJZOKq7kYStune1CSy+yc4 +y8clPYXMXNPdScqfug+1iOL+ic7yc1lP5QOu6x4kY7vuS22iun+SswJc0dPI +wg3dk+Ts0P2oQzT3/+CsIFf1dLJyU/ciBTt1fz4huvsnOyvENT2DbPyte/Me +u/QA6hLD/VOcFea6nsmH3NJ9SMluPZB6xHT/VGdFuKFnkZ3bui+p2KMHUZ+3 +3T/NWVFu6h/JwR3dj9Ts1YNpQCz3T3dWjL/1T+Tkru5PGvbpITQktvtnOCvO +LT2bXPyjB5CW/XoonxLH/TOdleC2nkNSZwv1RzwNz59eba8bnjP7n5H+//9P +btf+AworCus= + "], 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]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + 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, 13}, {0., 1.1432124336654814`}}, + "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:eJwV13k4VO8XAHBJioqxjSXbMDNmJNllPUeiQqSERFlKyk6JQpQlsu+JSiSk +kmhRskeWNpFSfVW2NJYZlUT63d8/M8/nee997znnPe97n0tx9991iJuLi8uE ++Pn/f0j47jVcXCQUZLyQD13NguoW7+JebhJGTnafdyU8yR+jf30FCVeYD67c +QZixq+DVyVUk1E0YyTcifPBCjZf1ahIefdRvoUH48lD3P4oACbeFXpBZT/i9 +0kjOTxIJVT6KSzIIk/3/bngmQsJDwQamTMK298TaCsgkZEhNFqkSTvq7wTlA +koShM6IGmwh3bDGfNZUmYYNxvqg54eVJ+xPF5Uho5uqh5UjYuDeE8p1CxFu5 +54of4ZNSqQ+eUEko7LpnfwLhWrfrNhlKJHwba3asjPBMWcPoIWUSBv63cryL +sMrM2wi9DSQc6QlvmCV8WHdGdK0aCX/qneWSX8OCq5GrKoc0SLg5/HfVTsKf +2uRNa7RJqG/2oD+WsORavffxm0g4H1NwooGwnZ1t4D4DEj7fFXHhL+G0i0dW +bTQm4a03aptxLQt4lfN1+k1J+Az3Qy/hzYHVPeXmJLQeCrusKMCCiAedByO2 +k/C3943CUMI/zBcyqDYkHLgUdl5NkAUbU0SUf9uScCK6JC6T8NG+9U1ddiRk +Zy3TXSD82cN5OsiJhALGO58PkFggfeNYnLkLcb3Dw0ZrIRY4cpJkpFxJyAo2 +Pf2M8POoesumQyQ8XhJ3okeYBfwdfV+yvEj4RbXwsb0IC8wEp8K8vEkYFZA6 +PEz4caFsmWAgCTdB/qygGAvmhnXgazAJ69o5I5WENVRs+u+FkFDkaekrazIL +yutO8+wPJ2F/7LEbReIsyHk75FoZT0JDy4XlMVIseC07P3c6kYSLzy47b1/H +grWeQqm7k4l8RF6/F5FmQcwPk/o/GUT+2y65PJBhQaBQseT2SySU53wWQQoL +Kh0fVUkXkZBvQlFtowILxi/3bp0pJmFY6dcCRUUW7FflCcktJ/rhyli4NI0F +VpaHXo/UEPnSZ8etmSyIWtdj/us+CWe5H4pHK7Og5rvWI95HJEyLunPv4Xqi +fkk8JUpNJIy1n99vrMoCVnfx8SM9JLwe850/R5MF8oWrJ8JeEvlVpfouahHr +7xu8P7GXhD1f3wUd0SHqtdZ06413JPzr0xPhoMeC89ZfJCZHSLi6q9goBljw +RNYi+e84CU3f6u6XN2EBZ+rOMgEWCWPGJWxbNrPAKTV6QpVDQrm5ilYZcxYo +v5R/HLBEwnCrxCjaDhZ02h448IMshKKF1/hinVmwRGnv5ZESQs/iv5/T9hPr +wVHdJiYjhBq87M/FrizIz1hS01EUQpXTk97/HST6p7eQO3SjEKYeCVt/05cF +fHs+XFvYKoS2/yz1r0exwJC2RWqNpRAuSvyrUDrLgoCfN1KkrYWwsyXq3O1Y +FgxknzphZCeEVhdq8/oSWVDWL7X9tKsQCsvOBJzKZsE2x70s7jAh/N6i36dW +yYKQuYcH/zslhJc/Bi3+usWCazlSHx9FCiFXv2BHyx0WcPcN9hyLIeJ7uN4u +8D4L6m333x5NFcLwM9OB0i1EPpYeQZ2lQqjZNSReM0isj7Hv7/Q3QjjyoKph +WmgSLD72BPi9JZ6XatedJDYJYeGq3yzeE/MZnchRk5yE/rrpd8uHhJD3y7Rr +kvwkpOsGPTr+XQh9Prc8zNo4CbzqJyL3cgvjVsPoc2PWkzCtGM1DURPGZUN9 +zISMSfChXZWd1hDGH79Vq4ZzJmGC3rKpXlsYfY0px8wvTsIoc4XvXgNhNO/Q +vC5dMgmfNib0pZsL49EDfntE7k3Cc4P0Um4XYayz3O5MH5yEyt1F24YThPFd +tZRBM3MKjpxtSrr+VRhzvHOUjr+dgqG1GjHVo8IYQ083r/44BfZ5V0/VfxPG +7FaLFz++ToHpzbNHe6eFsdiI63vCzBTIvDXb9m9BGLujvT5x+KbhlXLncgdR +EbxzzfD1XaNp0Hv9+iSvmQiW+MfD+bJp4KMMex0qFcHhxYVCjukM2EXom1Kd +RVHv3bzcATIbnhyYXbfpgCiecQ9Q6ZRkA2Nz5Q9Ld1GUOJQ6pyHDhgVe2dJg +L1HUebgy+68iG66mLeNrOSaKZcPLTx1XZ8NMccdzt2RRzOYougxbsiGp097p +8hNRPHbR/bpbJBt+VQpq3m0Sxfb7vl+ORrPBNbVjdXurKPKlvtIKiGGDpp1+ +/VSnKC5fbvDdL5EN7z/KyBu/FcXdCy/VDHKIeNjDIx+mRdHWabRl+U02tIoH +B0pRxJAmq1G90M+GCGfWdzmqGJ5ZcTLF4x0bdIoOedKUxNB76onc00E2lCk7 +7lPbIIYk8UbNU0NEfEZGZuZ6Yrgpo2Gk+Bsb9nislAyyFcNW7/WPR/6wQaAs +KvOEnRhenJO/ObvIhg7W/NoIBzG8IfDp6sISG/RDWNznXMTw9rn4oHluDsgm +vGIVHhHDo6ODkTf4OTB662Ljs2gxNEgedBuS4MDlWVGDFzFi6Jpr8SJBigOO +m1Jq38SLoT2DfkVFmgOdTVEV/yWLIVVb3ny/HAduvTmU9fOCGIo2rikMoHHg +sOR/AgsFYvgwcqfcMJ0D8vsdE7iuiGFpx2DdTgYHMsYsIleXiuERI1kpsfUc +CPmz0YtSTcxvxTm7XY0DG6H8C732//VJeh+jzoHxswouKg/E8HCL1IqHGhxw +Wiu2S/eJGHYcmKpZrc0BkV0p3YZNYphe85qprMOB7pyVWze3iuGA2XdbE10O +GMv/MdjRKYYZFf9d3KvHgbmDwfd29YjhcQWeW076HKgqZ6k5vhTDP55Tu+0M +OKCg+R/No18My7wzDdWNOLDSvFUw7IsYfrQ/XJWGHKjbq5NiMSKGXR6R6dtM +OODnW7ZGelwMszed7Jwn3J+VxNcwSazP9gsbtplyILFsKT5tRgwL9pRYjRA2 +ehzA6z4rhk/ZHjdPbeFAyVe75SvmxXB9SZpslhlR77mn0f0LYih4J5BKNufA +mtV6XGVLYmjrPm2fTrhR9kZk2DIy3lo3U7ViKweCNWT+WvCQ8RPNZ0MwYbp5 +6inplWQMbfRtf0f4/d5lfyb5yFirKXRSbxsHUnyDQxvWEPd/jsEMwpujR36l +CZLR0YGPPEz4V5bDcXdhMi53Yf9U3c6BirJns5piZDzHe3UwiPD+xwZBKyTI +SGnJaL5NWOjlzZl+KTK+8dlROkK49aucf5kMGf0d/M6IWnAgdC59MkyejIYH +SnYZElZZzeNjqUjG3XNVwi6Eh2RDJqTpZAzS9XoSQjhLY9xrikHGuG9VtgmE +t5k7jTWsJ+NATkxHFuHFvd2H0lXJ+DhrWvYC4du+xsPu6mRcISRkm0PYPbrK +XUuLjOMy6/YlESZnK3xeoUvGm/W79E4R7izLOvBWj5hvUnDcnXDkY95PZYZk +/Hun3sOUsMbLUOeTQEYN2fdl0oRHv068t9xMRlm3X3eniPzy55z3ypiRsazn +XvRDwjtWv3g7tZWMCsOvBSIIc8mZ2DdakNFun5ijHuEajbtv0neQcYjh7DRF +1NfLnLbbYycZDyfkCRcQlnbKfaW1m4zGq15EbCb80pdvJ689GRvjxC98JtYv +JvrU87eOZLQxLXQLI/y97EDXyf1kfHnYbzqD6IdLj19tt3Ijo6994G1Rwrte +mnbIHCRj5kV54VSin+rmlNoaj5Bxo82zWl+i3/xW55tm+JBxlETmvCL6UUFu +TbOHPxnvvK1tVyWcYD7zhPc4GSumvXVeE/1s6ORuNHCCyPdzYJcE4RnfN4/K +T5LRRa6C7UDsB8fsBw+sosgIa7wmGoyJfi1X1pU9S0aP+bCH48T+aXhcUDsd +S0buqn5hfsL04ajqjPNkfBHiul+H2G8/NbZXDuSQMdIzRUOb2K9XX/CvGrtA +xmRj5lV+Yj9b+3R7/Cwg6vMX8a0WB0qv2awTLibjYN3e5fbEeeAoYZ9oeZuM +S2f1zn9T4QBPrfjo3moy7vBfaRdKnC9Vtu9MvGrJqOj8Y8sSkwN8553nYx4R +60FZKJwmzqe6v+5eT9rJmOZqpuwlzwHPfGprdycZt28eUKuS5YCw7qjcYA8Z +c5cPHZgmzj/vgCNv53rJuOd7oN5uSWL9vvqbqw+RsfyMy3SVEAdOd4RTS34T +/X+C7N7GRfT7IeOo6gUi/rFDnlHEeTywjOtD4xIZN7smX9cgzms1g7OZH3nE +se/wsm/hc2z4cjOBW1xIHJdqt1eUTbJhS2bOUAJTHKeOWsUdGCDeXxsdDfNU +xDHHXjYltY8NBd2SeaUbxbGHdYLr/ms2/FxRaNOiLY7c3pGarG42lIYWP1k0 +EUeVHgrMNLKBb39Vgb+TOIbI9+S7X2dD1bOji9tdxPFef8mOLSVssNemOVNd +xVE+PqpJtogNJWvy1707JI6wunexPp8N+Ohs/uZAcTza4qJXmsyGUAmHPLFz +4uhyeV0dJYgN46//Zj6qFUfa89TwMW02pBo/mM1+II4D3qWnJoj3r05F0O6A +R+JYPeDycXQDm+jvMWFakzjmLWQMddHYIK/2Kj2lWxx1JslpW8XY4Jhckur2 +VRwf1vSuXj07Ax1bLc+vFJLAr8LtWTPlM/BE7GlSr4gE6uUwjm65NgM1XzHl +MlkC6+N6qjKuzEDRaZ10XWkJTDgRflM2dwZO3qfkHlaSwLPUI0o/z86AitLv +q+1GErjcx9L6qvMMpPNeq4s/KoGbjno7qvHPgFPb0reVrRJ4na+1KOH2FAhH +ZxVAnCQOUjLu+Fl/h2MLLjtCDaTQecMeSe2ZMVi8y7dr/J8UJlSfLhfaOQwO +XM+fNjauw/Zbnr1Nv4fAZfVTvfxj0vhhKCAsYucHSLC7wnVDVwbtbROX5c73 +Q1lSzdaz+jJYr9R9Q3usHzpaO1L2Gcng0ddtTf+96Qdebbb0GlMZnPEWV7Gv +6ocYsc16vtYyeCdldX/X4X6I7P8auPGQDKpr0nXfDfTBMUelr3czZFBBX/Gy +f8sbcHW+1fZ4UgaTLCR2rah7DaEywhOvZmRQ8hytilL+GtI+HRcYm5XBPZuX +P7HIew2NrkYOQn9kUHVK7m1zyGuQP9Q9fohXFu+yvCIttF7Df74TqwXlZNGu +Kjzq7p1XsP80fZfbTlncV5BS+Kz2JThfvfRpxV1ZDGWQ9O629EBLW3PJmnuy +CBQ281hZDyh/Gz0q8lAW6/fp/rJI7oH5jRvn5Btkcer3LEfPoQdy6hsEDbtk +0Yj6TE+a1Q0vB4Yw6KssfkG+52OS3bBFULH4k4gcSmrKxW+L7QSV8OuH7x+T +Q/7aZs/UvHZI8WtVTzwhh50MxtmRs+0w4/p5wfmkHMbx5/BZ+bdDjdm6NO4o +Oaw1e6ZiYd4OhoKpD3acl0OJ7Vvv8f18CpZXQ/iGi+Tw1nJXavKep3C0w+wG +6QVx/6ZGbleFNrDjD5qrEZUn9v+XvQLfmmHZNkaXIVkeKy/V2z7tb4ZbsZ8u +tYrLo99azeqU1mbgW2Zp/kZKHmXPa4bvvNIMT+YUs2flifFam6Ecx2ZgjPRp +aGyQx09BEnbU7iZYbNDzu20mj4PtP+WmnjRCyfFlI+Uh8sjYPXvEuagenkvV +1ImHyqNm37tDmnH1MN/gmRYbJo9ZjTaTFO96sObvNnALl0fXyGgHM21i/FJO +hsQZeaQ1814v7nwM1h3rMT6ZmA/ON9yafwRzUvYXD5YQz784IxDrVQcWjRW2 +cq/l0Ycccj069j4U5Bj9ju2Vx/jXeb8oAfdhyuflJdYbeVy1497QG6f7kCn5 +6/vDt/JYN65lGaR2Hz4EmcTZfZTHhxcChhI+3AM/2kBdwrg8/jNZdJPbdA8y +EldQfywR81+TNoxarIH3dq6/OtZTkH/rijuS96uhbDp/tfUGCjJsnr2MLKmG +E4l98r2qFLTSn+39mV4Noo0Wlh/VKQiSV7dI+laD9XrtK2xdCv64KiuiRa2G +5mX8FlJbKGjqFFN2I/sO3Lh1t9DbmYLpTVXaurFVEL5qpZlAMgVD3QdyhZVu +Qge/sXNYCgXNRRfme1ffBNG1x4OHUynYUSKnemumEiqFvhbVZVAQxcfuVdZV +wqBUw5JnHgUjW03mXthUgv6GEw8aiilot8PoeUHkDfhtO7Y+sI6CBZRdrIbJ +cthiJ2v64REFn0Re3BHcVw5p9nucttZTsFagj2NYXw6MfS3nZBopOH7i4CPh +5HJwOHh55FkbBS9b2jGebiiHeyEOlxVeUVB5tLreILgMjl1sF34zRsGr0eEm +/629DobupXku3ygYselPm+evUuBhxsqOTVAwJJV2f8V/pZB1b7Pyn0kKvkvm +xCZUlULtq3oT+R8UrOAUeZbalcKvlTUBPlwK+HC5/V9K0TUIO3blOY+kAn6/ +8bE80aIENhuctkuRUsDTH3yf9WmXAD/3/vfi0gpYHqJxU5tSAvmp60aV5RSw +1X9doObvYqiryPm7k6aA1PLix9TrxbA4lKRSqK6Ab2q1VHtWFUPkjrBEbQsF +jBc6dfj2+yLwM9v0+b6lAvZMXClu7iiC/UZzuvo7FPA2c/2FsXtFYLTh+Ijx +TgVcOZ7p45lZBItrAnGbvQKejxT7qL2jCE51e/1yclfAmMhvjmtbr0CopaN7 +1EkF9Jf0a3AKvwxepuIPucMVUEfjGm+V82VwNOgXjI1QwDAa7RHV6DLorrer +T4hSwOH0Vo730iX4xb9TIjNOAV0FRm39zlyC451bn1/LUMCUlSJvGGmFELRd +V7+rgoh34dPZiqaL8F8ZJ0OzUgGrTNle2dcvgtWqW98v3lRAs+Ad8XnJF4He +Ti30qVLAr0YUibG9F2FwizCXwD0FjK3mYRTP5sMWnGzb2aSA1uEuKjHr80Fc +t9i2/60CPhnMHbGvzIOYnP0Vxu8U8KPvo+dy2XnA+Sm5/Pp7Ij8mj/1SRB50 +16TVnPiogB0nzGYWbPIgSiNSXPKrAkqFrFSb+5ELExv2ftw3pYB/kyR+f9ic +C4+pgkc+8yiizXvl6c+T2VC6LUjNi1cRpWt1F0+9zYZUn765qZWKmMw0rVFp +ygb3motxi/yK2G58oOtVVjas2sIoERdSRG2DAirDKBt2e5j8t0NGEUeJPcNJ +z4KJouA9ddqKaHx1p6mnZSa8aeuXNtFVRHeRnWU3dDOh/pvecPsm4noROmkF +NRPS1LmC+wwU0epFUt7sYgboNCWlzZgoYhnXb7f62xkQPXSti26tiFm5gi0c +iQyQkBswyfRURFWDxIkD82lwukJ3NZeXIvLt/VOp9C0NRrVz3/gcUcTFbpne +pYE0uGtlf9jcRxELRf6QBh+kgfXJN0nzgYp4LRBbtoelQUzfy7cHIhRRf0DQ +eWw+Fdjnn/mqZClihlMPTVM2BTp/111oa1LEqJe/V1fcTwTH2j+a61sU8d7n +UM0LlxJhLFD/eVorUc8nr+ovxyYCz/eH3M7tivhApK+EszsRjD8+8OZ0KyLv +xKuDN9kJcKfpnpHcgCJG8/CrH1RPgLzE6s+hU4pISw6eM2+KB/pWzqlP04q4 +MfWd9J+KeKhdrkHewlbEyWC6eHNWPLwOv2Mh+EMR38YeN0rzioc1/lV3r80r +ImvPIz1FoXg4vftW7GseKgYtzPiLeMaBp3QFU2UdFZMs+bFANhYCC9M1qqSp +6OtkU07mi4Vw2TADLVkqdsRfHi+djYF0+W07DClUFPx9OX3VsxiiX0YDrJSo +GKiRsf75sRgQ3qDwwEeTimU1rx/YvDwL9Ub55jctqXjKY9gqP+cMdDyJtlHf +QcVe2zMxpWfPwGs44lhrTUWTLM5CW8AZGDfZdLTeloqtgy3OxpZnQNi8P7nH +gYrXQ293CS87A17Wwn2THlQcr+J+phcQDaIHEj1Uw6m4b+HfgX/7oqBgq59f +XgQVv7Tu4vW1igKq2q4w7tNUPPJ3c9A3wyjQWiaV2h9NRVqSs4eAbBTYFZfX +RcZTUfhPv41A82nIHusQepFBxaiBFVd29kYCOWBlo385Md42cDOPPwIuOX7v +fFdB1GuifB97KhzoJi/6TCupaLrZweJgbzjoCOd+F79NRXFus/i8gnCwr6GL +N9YQ8VcefaGrFg65v838SI1UfORxzMPQ+RRIRMdI3+mnYr7JpdMPnoaBtCop +R2+Airw6q+6tqwwDyuBFweZ3VJRvz9udnx4Gytp3uXs/UPEdH6/dN+cwMPj2 +efzHFyomOmw40PUjFPbbQu2maSouKu4vjmeGQjHlz47GlTScfdxxlV4aAmXP +Y9u38dHwK/+rY80pIVB5SsjkFT8NbUK/uoacCIGaPobWl7U0ZC66UunbQ+Bp +goMUjygNpV1eVFydPA7j7JrRrfI0PMFcm/tH/zioNvuffrGJhl3Pb3yPHg2G +qv65P0b6NIxedBuw7g0Gje+nQyoNaOg1ts9EtTEYtEXTfBOMaTh9wcyEmh8M +hp5V+0y30FDetX3Nd+tg2M7P1r1vQ8NPxtXX3zwKgoO7gmYuedIwMeP0RNHV +QBj1/OO91ouGzavRvDA9ELxOnRk7dYSGce/TeMujAsG7JOOTow8NYx8vD2Hv +D4SgX9XdwkE01Gyy27dFOhBO58+WxUXQkPTV9NnwhQDI/3LMzS+Lhoyfj79Z +m/jDFsbHm33ZNBz2E5V/pOgPk75mfwxzadhvAdtMef0B58UyV+fT0J7nK8/1 +Lj8YEbzfWnaZhr3Hzts9dPADNaN5pa8VNMxcbvSUc8wX2nIjphyaaOggaZTL +1+INfh9H9BuaaXjs2/nB5jJvkFC0jqe30tDgv9SfWSnecPSWrPzPpzSsFFXd +cdbJG0htDbYZ3TS8ZdXFFTd7FJw4y2q73xLr96g0QFD5KMxYxZ0ymaLh29An +UTllXkB2yNFpn6bhq50nr5ileoGBWynbik3DKZngWoEQL4g7/vSw4w8ayiXy +7Jky9QKZS7x2/n9ouEprPGFo6DBYTMepFPLS8efI9LqTcoehJD3+429ZOrLY +Rx+/unUIOi/m5kXKE+Mbd5NS8g7B9LXru3kU6KheaKzvduYQ6Ne1PxOk0bG9 +4VG1pf0hePVl5T36ejq6unTcVP13EJY0z6XY6dJROqv7jcSeg+DYfw6qbOh4 +QPvI4BeSByxszV5cZ0vHxcpckYIld7j0sOhh/C5i/I9ftyfLHYYL6jQP7KEj +9bNRhFqHOwR4sJQE9tHRdukjf2aUO5ybsSH5eNKx8EFJbNwPN7jPL/5ZKYKO +PQdHL9wfdwWncMVLmZF0fPzLpCJ6wBUWJzfu+3eajvNPakz2dbjC5lfb+vrP +0PG8QGKnYZkrPM89+Sz2HB21X96+ft/LFUapn+58zaRjav3ivX8DB4AM185c +rqDjLM22aOqvC2gf33uLWUlHurqI79NPLmB3Y+37uzfpuM7uXNqTBhfIFA9R +76ii46RjnqPgGRcgzZgPzdyj47sEDcuNq1yAv2jcaHMLHX1rmJJWUs6wxK0y +PzxIxzI/dbl1e5xARm+I6v+RjqNn8k426DmBoX/WzvlPdMTDp42iZJ3g1ODi +9bVf6JjrLhNjP74Xft/tsdcZp2MET9DXXRF7gXPQvyb+B3H/n4iWwEpHGH1a +7a+8Vgl5DQufx8g6wAbVrT43BZQwrfqzwjSvAxzLHvRSIymhXuXDM4HT9sB9 +kMddR0QJb1+wXP6k0R5kltnbbZZUwpr5ENfgg/ZgZzC/yYmmhJYmapf1q/ZA +y23gTjQi5ivtrM1ztAN+8TdLa0AJ+524h/pN7WBnpNdCKirhjVP5Wsob7eCT +VfqPbFMlfLyyjZfEawd/vn0ZLdquhF2vHvzuq9kNGtS4rod7lHD5+6jrm8i7 +4Uped9Y3XyXcOcFF7RyzhYOHXTJ3+Svho8XF30/6bYGhM5X+KEAJV7w3WNHa +Zgt3egVTk4OV0PvkeOxSsS00C+xOUA9TwgO//pzSdLOF4Zh3EWExSlgqo8Gf +9mknMAJHPfkuKuGZ6Diy0zMbYMGJQ0EFStjIrbUkfsMGqgRWHRwsVELzj/FV +nCQb0Ktkut28ooQ+z+tXLu20AYsxn322pUooVW5x7sh7a/BxmbW5cEcJs89K +HQrn7ICq7Vx6zA4lVMud2DqoYwUzHzaVVj1Twl1JR78/lrQC9YBAkU1dSjg7 +4XPh8aIlVOd8mTR/TtRjne4FsRZLqPnaevXgGyVcJxjfrWxrCQ8iEtZcGVJC +LU9KSnuQBTTdER4izyuh425Nxb+d24DbzHLHpT9KmLT2va/nnW2weeBsHW2R +GN+/W24idxu0Lv3I0vqnhPrmP7fjoW3w1PLt9l0rGGjum9NJXbYNOkcu3k0W +YuDLipZN9422wmtJWjyPMgOf39XbtuOZGaSJOv0KXM9Akn/kVusaM7AWTD30 +nwoDT4s7R3tcNoNOnnnTuo0MjE7jd+g8bgZN091cAdoMfLbmoG+8ohlUtR07 +OYgM/FezpuDWmS2QEtjqW+3AwOJED4+NNqZg5TP/QW4vA+PYeXszDU2B/7Cq +VbITA4XVBYz5lE0hzjlP2cuFgZIH7iUprzCFiK0+YzIeDExzTHUzebwZfGRE +3RL8GLhJoEDxzobNYPHMw841loGhou0UuowJqP0MzXoax8CNXUWn/6wxATFK +yhuVcwyMrBakflpEGAp9YDefSMTvxrWy9wNCCGPtnow0Bl67caMksBDhavy9 +Pa0XGVg08Gb0OPEZumDG58CoZmCy+KfRY17GMBQom5tyl4GLFNWDDy2N4Wmh +5tsfNQxcsceBV3KjMWT8dHFous/ADFbrLuYvI2Bcq3Zwqifm98ct52ONwI7H +2TGpg4E9QacuGJcbQmXzrb0znxj4Y42D7YPlBiBw13vV8SEGHpl5eW7luD4E +FDPuz39moC9HhxLcrQ+aMVdFl48w0OziBa7L2fpQZ5bzQuw7Ayvv/dxlztSH +Zx0RZgZzRP6DP/3r9ujB6HMr9ThBJqafu1N7olkXtjXwDfELMdGpKXJUukIX +Km4/TUkVZqLOmMXawXRd8E1DVp4YE/WmbvYXuenCD1ut6zfWMdFO72eGPbcu +LO9bJ/NKiYlXztcNmG/TAfnBiVXSyEQti9L5vBEt+KdR8jDOhImRTM2dF19p +wadEl6PszUxkVA21VdVrQYH+y66nZkw0kjzfJpqjBZL5tSmBlkyUpx+Vatiq +BcJ7o0Tb7Zn4wW398eRbmrDirZh8kC8TKVnqm3ITNGBY9cXLD35MXBW0YD14 +QgNa485Fbw0g8mnxdFbz1IAzOgtfpIOZuHR6h9RaUw1Yyh661h7KRLOGqQOp +f9Xht92N9TIxTHQ01VAvP64OE69RtyOfcO3xmbZANShlWJJdCpjIZfCIqeuq +Bm6Re36yC5lYfjmD8shaDQaYR++uK2KipdiKv3/Wq8HTqMyN/teZmLlmeUDV +841QpDqqRK5h4mzXiP10syo4Jp6XONjDxBqtrC1JbSogOpQ99/s5Eyfkt8/1 +lqrAC+0r/ckvieflrQkxPKcC5p9rsu73MvE+zwdLf0sV0Nz0ibT6PRO7JBKT +HXvXg8CoGl/1KBO3G/07t+6bMnQaGIybjzORN8dw+EC3MsSmm7UPfmPiWnom +q/m2MiwaOsWumGSiSP/d6OEQZZjIPLts7yxRj9AT6hm8ylD6LXlo8gdR/xkD +r44JJrhBXsOZX0z82zu5XfoFEwYmKiMq55k4fjElVTqPCZl439lkgYlWOkk1 +HeFMsM5pMuhfZOJBtyzeDDcm8LO6pLyXiOtVz3iGmjOhzaR//t8/JraxbGtP +rWfC/wDVzC1Q + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 13}, {0., 1.1432124336654814`}}, + "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:eJwV13k4VO8XAHBJioqxjSXbMDNmJNllPUeiQqSERFlKyk6JQpQlsu+JSiSk +kmhRskeWNpFSfVW2NJYZlUT63d8/M8/nee997znnPe97n0tx9991iJuLi8uE ++Pn/f0j47jVcXCQUZLyQD13NguoW7+JebhJGTnafdyU8yR+jf30FCVeYD67c +QZixq+DVyVUk1E0YyTcifPBCjZf1ahIefdRvoUH48lD3P4oACbeFXpBZT/i9 +0kjOTxIJVT6KSzIIk/3/bngmQsJDwQamTMK298TaCsgkZEhNFqkSTvq7wTlA +koShM6IGmwh3bDGfNZUmYYNxvqg54eVJ+xPF5Uho5uqh5UjYuDeE8p1CxFu5 +54of4ZNSqQ+eUEko7LpnfwLhWrfrNhlKJHwba3asjPBMWcPoIWUSBv63cryL +sMrM2wi9DSQc6QlvmCV8WHdGdK0aCX/qneWSX8OCq5GrKoc0SLg5/HfVTsKf +2uRNa7RJqG/2oD+WsORavffxm0g4H1NwooGwnZ1t4D4DEj7fFXHhL+G0i0dW +bTQm4a03aptxLQt4lfN1+k1J+Az3Qy/hzYHVPeXmJLQeCrusKMCCiAedByO2 +k/C3943CUMI/zBcyqDYkHLgUdl5NkAUbU0SUf9uScCK6JC6T8NG+9U1ddiRk +Zy3TXSD82cN5OsiJhALGO58PkFggfeNYnLkLcb3Dw0ZrIRY4cpJkpFxJyAo2 +Pf2M8POoesumQyQ8XhJ3okeYBfwdfV+yvEj4RbXwsb0IC8wEp8K8vEkYFZA6 +PEz4caFsmWAgCTdB/qygGAvmhnXgazAJ69o5I5WENVRs+u+FkFDkaekrazIL +yutO8+wPJ2F/7LEbReIsyHk75FoZT0JDy4XlMVIseC07P3c6kYSLzy47b1/H +grWeQqm7k4l8RF6/F5FmQcwPk/o/GUT+2y65PJBhQaBQseT2SySU53wWQQoL +Kh0fVUkXkZBvQlFtowILxi/3bp0pJmFY6dcCRUUW7FflCcktJ/rhyli4NI0F +VpaHXo/UEPnSZ8etmSyIWtdj/us+CWe5H4pHK7Og5rvWI95HJEyLunPv4Xqi +fkk8JUpNJIy1n99vrMoCVnfx8SM9JLwe850/R5MF8oWrJ8JeEvlVpfouahHr +7xu8P7GXhD1f3wUd0SHqtdZ06413JPzr0xPhoMeC89ZfJCZHSLi6q9goBljw +RNYi+e84CU3f6u6XN2EBZ+rOMgEWCWPGJWxbNrPAKTV6QpVDQrm5ilYZcxYo +v5R/HLBEwnCrxCjaDhZ02h448IMshKKF1/hinVmwRGnv5ZESQs/iv5/T9hPr +wVHdJiYjhBq87M/FrizIz1hS01EUQpXTk97/HST6p7eQO3SjEKYeCVt/05cF +fHs+XFvYKoS2/yz1r0exwJC2RWqNpRAuSvyrUDrLgoCfN1KkrYWwsyXq3O1Y +FgxknzphZCeEVhdq8/oSWVDWL7X9tKsQCsvOBJzKZsE2x70s7jAh/N6i36dW +yYKQuYcH/zslhJc/Bi3+usWCazlSHx9FCiFXv2BHyx0WcPcN9hyLIeJ7uN4u +8D4L6m333x5NFcLwM9OB0i1EPpYeQZ2lQqjZNSReM0isj7Hv7/Q3QjjyoKph +WmgSLD72BPi9JZ6XatedJDYJYeGq3yzeE/MZnchRk5yE/rrpd8uHhJD3y7Rr +kvwkpOsGPTr+XQh9Prc8zNo4CbzqJyL3cgvjVsPoc2PWkzCtGM1DURPGZUN9 +zISMSfChXZWd1hDGH79Vq4ZzJmGC3rKpXlsYfY0px8wvTsIoc4XvXgNhNO/Q +vC5dMgmfNib0pZsL49EDfntE7k3Cc4P0Um4XYayz3O5MH5yEyt1F24YThPFd +tZRBM3MKjpxtSrr+VRhzvHOUjr+dgqG1GjHVo8IYQ083r/44BfZ5V0/VfxPG +7FaLFz++ToHpzbNHe6eFsdiI63vCzBTIvDXb9m9BGLujvT5x+KbhlXLncgdR +EbxzzfD1XaNp0Hv9+iSvmQiW+MfD+bJp4KMMex0qFcHhxYVCjukM2EXom1Kd +RVHv3bzcATIbnhyYXbfpgCiecQ9Q6ZRkA2Nz5Q9Ld1GUOJQ6pyHDhgVe2dJg +L1HUebgy+68iG66mLeNrOSaKZcPLTx1XZ8NMccdzt2RRzOYougxbsiGp097p +8hNRPHbR/bpbJBt+VQpq3m0Sxfb7vl+ORrPBNbVjdXurKPKlvtIKiGGDpp1+ +/VSnKC5fbvDdL5EN7z/KyBu/FcXdCy/VDHKIeNjDIx+mRdHWabRl+U02tIoH +B0pRxJAmq1G90M+GCGfWdzmqGJ5ZcTLF4x0bdIoOedKUxNB76onc00E2lCk7 +7lPbIIYk8UbNU0NEfEZGZuZ6Yrgpo2Gk+Bsb9nislAyyFcNW7/WPR/6wQaAs +KvOEnRhenJO/ObvIhg7W/NoIBzG8IfDp6sISG/RDWNznXMTw9rn4oHluDsgm +vGIVHhHDo6ODkTf4OTB662Ljs2gxNEgedBuS4MDlWVGDFzFi6Jpr8SJBigOO +m1Jq38SLoT2DfkVFmgOdTVEV/yWLIVVb3ny/HAduvTmU9fOCGIo2rikMoHHg +sOR/AgsFYvgwcqfcMJ0D8vsdE7iuiGFpx2DdTgYHMsYsIleXiuERI1kpsfUc +CPmz0YtSTcxvxTm7XY0DG6H8C732//VJeh+jzoHxswouKg/E8HCL1IqHGhxw +Wiu2S/eJGHYcmKpZrc0BkV0p3YZNYphe85qprMOB7pyVWze3iuGA2XdbE10O +GMv/MdjRKYYZFf9d3KvHgbmDwfd29YjhcQWeW076HKgqZ6k5vhTDP55Tu+0M +OKCg+R/No18My7wzDdWNOLDSvFUw7IsYfrQ/XJWGHKjbq5NiMSKGXR6R6dtM +OODnW7ZGelwMszed7Jwn3J+VxNcwSazP9gsbtplyILFsKT5tRgwL9pRYjRA2 +ehzA6z4rhk/ZHjdPbeFAyVe75SvmxXB9SZpslhlR77mn0f0LYih4J5BKNufA +mtV6XGVLYmjrPm2fTrhR9kZk2DIy3lo3U7ViKweCNWT+WvCQ8RPNZ0MwYbp5 +6inplWQMbfRtf0f4/d5lfyb5yFirKXRSbxsHUnyDQxvWEPd/jsEMwpujR36l +CZLR0YGPPEz4V5bDcXdhMi53Yf9U3c6BirJns5piZDzHe3UwiPD+xwZBKyTI +SGnJaL5NWOjlzZl+KTK+8dlROkK49aucf5kMGf0d/M6IWnAgdC59MkyejIYH +SnYZElZZzeNjqUjG3XNVwi6Eh2RDJqTpZAzS9XoSQjhLY9xrikHGuG9VtgmE +t5k7jTWsJ+NATkxHFuHFvd2H0lXJ+DhrWvYC4du+xsPu6mRcISRkm0PYPbrK +XUuLjOMy6/YlESZnK3xeoUvGm/W79E4R7izLOvBWj5hvUnDcnXDkY95PZYZk +/Hun3sOUsMbLUOeTQEYN2fdl0oRHv068t9xMRlm3X3eniPzy55z3ypiRsazn +XvRDwjtWv3g7tZWMCsOvBSIIc8mZ2DdakNFun5ijHuEajbtv0neQcYjh7DRF +1NfLnLbbYycZDyfkCRcQlnbKfaW1m4zGq15EbCb80pdvJ689GRvjxC98JtYv +JvrU87eOZLQxLXQLI/y97EDXyf1kfHnYbzqD6IdLj19tt3Ijo6994G1Rwrte +mnbIHCRj5kV54VSin+rmlNoaj5Bxo82zWl+i3/xW55tm+JBxlETmvCL6UUFu +TbOHPxnvvK1tVyWcYD7zhPc4GSumvXVeE/1s6ORuNHCCyPdzYJcE4RnfN4/K +T5LRRa6C7UDsB8fsBw+sosgIa7wmGoyJfi1X1pU9S0aP+bCH48T+aXhcUDsd +S0buqn5hfsL04ajqjPNkfBHiul+H2G8/NbZXDuSQMdIzRUOb2K9XX/CvGrtA +xmRj5lV+Yj9b+3R7/Cwg6vMX8a0WB0qv2awTLibjYN3e5fbEeeAoYZ9oeZuM +S2f1zn9T4QBPrfjo3moy7vBfaRdKnC9Vtu9MvGrJqOj8Y8sSkwN8553nYx4R +60FZKJwmzqe6v+5eT9rJmOZqpuwlzwHPfGprdycZt28eUKuS5YCw7qjcYA8Z +c5cPHZgmzj/vgCNv53rJuOd7oN5uSWL9vvqbqw+RsfyMy3SVEAdOd4RTS34T +/X+C7N7GRfT7IeOo6gUi/rFDnlHEeTywjOtD4xIZN7smX9cgzms1g7OZH3nE +se/wsm/hc2z4cjOBW1xIHJdqt1eUTbJhS2bOUAJTHKeOWsUdGCDeXxsdDfNU +xDHHXjYltY8NBd2SeaUbxbGHdYLr/ms2/FxRaNOiLY7c3pGarG42lIYWP1k0 +EUeVHgrMNLKBb39Vgb+TOIbI9+S7X2dD1bOji9tdxPFef8mOLSVssNemOVNd +xVE+PqpJtogNJWvy1707JI6wunexPp8N+Ohs/uZAcTza4qJXmsyGUAmHPLFz +4uhyeV0dJYgN46//Zj6qFUfa89TwMW02pBo/mM1+II4D3qWnJoj3r05F0O6A +R+JYPeDycXQDm+jvMWFakzjmLWQMddHYIK/2Kj2lWxx1JslpW8XY4Jhckur2 +VRwf1vSuXj07Ax1bLc+vFJLAr8LtWTPlM/BE7GlSr4gE6uUwjm65NgM1XzHl +MlkC6+N6qjKuzEDRaZ10XWkJTDgRflM2dwZO3qfkHlaSwLPUI0o/z86AitLv +q+1GErjcx9L6qvMMpPNeq4s/KoGbjno7qvHPgFPb0reVrRJ4na+1KOH2FAhH +ZxVAnCQOUjLu+Fl/h2MLLjtCDaTQecMeSe2ZMVi8y7dr/J8UJlSfLhfaOQwO +XM+fNjauw/Zbnr1Nv4fAZfVTvfxj0vhhKCAsYucHSLC7wnVDVwbtbROX5c73 +Q1lSzdaz+jJYr9R9Q3usHzpaO1L2Gcng0ddtTf+96Qdebbb0GlMZnPEWV7Gv +6ocYsc16vtYyeCdldX/X4X6I7P8auPGQDKpr0nXfDfTBMUelr3czZFBBX/Gy +f8sbcHW+1fZ4UgaTLCR2rah7DaEywhOvZmRQ8hytilL+GtI+HRcYm5XBPZuX +P7HIew2NrkYOQn9kUHVK7m1zyGuQP9Q9fohXFu+yvCIttF7Df74TqwXlZNGu +Kjzq7p1XsP80fZfbTlncV5BS+Kz2JThfvfRpxV1ZDGWQ9O629EBLW3PJmnuy +CBQ281hZDyh/Gz0q8lAW6/fp/rJI7oH5jRvn5Btkcer3LEfPoQdy6hsEDbtk +0Yj6TE+a1Q0vB4Yw6KssfkG+52OS3bBFULH4k4gcSmrKxW+L7QSV8OuH7x+T +Q/7aZs/UvHZI8WtVTzwhh50MxtmRs+0w4/p5wfmkHMbx5/BZ+bdDjdm6NO4o +Oaw1e6ZiYd4OhoKpD3acl0OJ7Vvv8f18CpZXQ/iGi+Tw1nJXavKep3C0w+wG +6QVx/6ZGbleFNrDjD5qrEZUn9v+XvQLfmmHZNkaXIVkeKy/V2z7tb4ZbsZ8u +tYrLo99azeqU1mbgW2Zp/kZKHmXPa4bvvNIMT+YUs2flifFam6Ecx2ZgjPRp +aGyQx09BEnbU7iZYbNDzu20mj4PtP+WmnjRCyfFlI+Uh8sjYPXvEuagenkvV +1ImHyqNm37tDmnH1MN/gmRYbJo9ZjTaTFO96sObvNnALl0fXyGgHM21i/FJO +hsQZeaQ1814v7nwM1h3rMT6ZmA/ON9yafwRzUvYXD5YQz784IxDrVQcWjRW2 +cq/l0Ycccj069j4U5Bj9ju2Vx/jXeb8oAfdhyuflJdYbeVy1497QG6f7kCn5 +6/vDt/JYN65lGaR2Hz4EmcTZfZTHhxcChhI+3AM/2kBdwrg8/jNZdJPbdA8y +EldQfywR81+TNoxarIH3dq6/OtZTkH/rijuS96uhbDp/tfUGCjJsnr2MLKmG +E4l98r2qFLTSn+39mV4Noo0Wlh/VKQiSV7dI+laD9XrtK2xdCv64KiuiRa2G +5mX8FlJbKGjqFFN2I/sO3Lh1t9DbmYLpTVXaurFVEL5qpZlAMgVD3QdyhZVu +Qge/sXNYCgXNRRfme1ffBNG1x4OHUynYUSKnemumEiqFvhbVZVAQxcfuVdZV +wqBUw5JnHgUjW03mXthUgv6GEw8aiilot8PoeUHkDfhtO7Y+sI6CBZRdrIbJ +cthiJ2v64REFn0Re3BHcVw5p9nucttZTsFagj2NYXw6MfS3nZBopOH7i4CPh +5HJwOHh55FkbBS9b2jGebiiHeyEOlxVeUVB5tLreILgMjl1sF34zRsGr0eEm +/629DobupXku3ygYselPm+evUuBhxsqOTVAwJJV2f8V/pZB1b7Pyn0kKvkvm +xCZUlULtq3oT+R8UrOAUeZbalcKvlTUBPlwK+HC5/V9K0TUIO3blOY+kAn6/ +8bE80aIENhuctkuRUsDTH3yf9WmXAD/3/vfi0gpYHqJxU5tSAvmp60aV5RSw +1X9doObvYqiryPm7k6aA1PLix9TrxbA4lKRSqK6Ab2q1VHtWFUPkjrBEbQsF +jBc6dfj2+yLwM9v0+b6lAvZMXClu7iiC/UZzuvo7FPA2c/2FsXtFYLTh+Ijx +TgVcOZ7p45lZBItrAnGbvQKejxT7qL2jCE51e/1yclfAmMhvjmtbr0CopaN7 +1EkF9Jf0a3AKvwxepuIPucMVUEfjGm+V82VwNOgXjI1QwDAa7RHV6DLorrer +T4hSwOH0Vo730iX4xb9TIjNOAV0FRm39zlyC451bn1/LUMCUlSJvGGmFELRd +V7+rgoh34dPZiqaL8F8ZJ0OzUgGrTNle2dcvgtWqW98v3lRAs+Ad8XnJF4He +Ti30qVLAr0YUibG9F2FwizCXwD0FjK3mYRTP5sMWnGzb2aSA1uEuKjHr80Fc +t9i2/60CPhnMHbGvzIOYnP0Vxu8U8KPvo+dy2XnA+Sm5/Pp7Ij8mj/1SRB50 +16TVnPiogB0nzGYWbPIgSiNSXPKrAkqFrFSb+5ELExv2ftw3pYB/kyR+f9ic +C4+pgkc+8yiizXvl6c+T2VC6LUjNi1cRpWt1F0+9zYZUn765qZWKmMw0rVFp +ygb3motxi/yK2G58oOtVVjas2sIoERdSRG2DAirDKBt2e5j8t0NGEUeJPcNJ +z4KJouA9ddqKaHx1p6mnZSa8aeuXNtFVRHeRnWU3dDOh/pvecPsm4noROmkF +NRPS1LmC+wwU0epFUt7sYgboNCWlzZgoYhnXb7f62xkQPXSti26tiFm5gi0c +iQyQkBswyfRURFWDxIkD82lwukJ3NZeXIvLt/VOp9C0NRrVz3/gcUcTFbpne +pYE0uGtlf9jcRxELRf6QBh+kgfXJN0nzgYp4LRBbtoelQUzfy7cHIhRRf0DQ +eWw+Fdjnn/mqZClihlMPTVM2BTp/111oa1LEqJe/V1fcTwTH2j+a61sU8d7n +UM0LlxJhLFD/eVorUc8nr+ovxyYCz/eH3M7tivhApK+EszsRjD8+8OZ0KyLv +xKuDN9kJcKfpnpHcgCJG8/CrH1RPgLzE6s+hU4pISw6eM2+KB/pWzqlP04q4 +MfWd9J+KeKhdrkHewlbEyWC6eHNWPLwOv2Mh+EMR38YeN0rzioc1/lV3r80r +ImvPIz1FoXg4vftW7GseKgYtzPiLeMaBp3QFU2UdFZMs+bFANhYCC9M1qqSp +6OtkU07mi4Vw2TADLVkqdsRfHi+djYF0+W07DClUFPx9OX3VsxiiX0YDrJSo +GKiRsf75sRgQ3qDwwEeTimU1rx/YvDwL9Ub55jctqXjKY9gqP+cMdDyJtlHf +QcVe2zMxpWfPwGs44lhrTUWTLM5CW8AZGDfZdLTeloqtgy3OxpZnQNi8P7nH +gYrXQ293CS87A17Wwn2THlQcr+J+phcQDaIHEj1Uw6m4b+HfgX/7oqBgq59f +XgQVv7Tu4vW1igKq2q4w7tNUPPJ3c9A3wyjQWiaV2h9NRVqSs4eAbBTYFZfX +RcZTUfhPv41A82nIHusQepFBxaiBFVd29kYCOWBlo385Md42cDOPPwIuOX7v +fFdB1GuifB97KhzoJi/6TCupaLrZweJgbzjoCOd+F79NRXFus/i8gnCwr6GL +N9YQ8VcefaGrFg65v838SI1UfORxzMPQ+RRIRMdI3+mnYr7JpdMPnoaBtCop +R2+Airw6q+6tqwwDyuBFweZ3VJRvz9udnx4Gytp3uXs/UPEdH6/dN+cwMPj2 +efzHFyomOmw40PUjFPbbQu2maSouKu4vjmeGQjHlz47GlTScfdxxlV4aAmXP +Y9u38dHwK/+rY80pIVB5SsjkFT8NbUK/uoacCIGaPobWl7U0ZC66UunbQ+Bp +goMUjygNpV1eVFydPA7j7JrRrfI0PMFcm/tH/zioNvuffrGJhl3Pb3yPHg2G +qv65P0b6NIxedBuw7g0Gje+nQyoNaOg1ts9EtTEYtEXTfBOMaTh9wcyEmh8M +hp5V+0y30FDetX3Nd+tg2M7P1r1vQ8NPxtXX3zwKgoO7gmYuedIwMeP0RNHV +QBj1/OO91ouGzavRvDA9ELxOnRk7dYSGce/TeMujAsG7JOOTow8NYx8vD2Hv +D4SgX9XdwkE01Gyy27dFOhBO58+WxUXQkPTV9NnwhQDI/3LMzS+Lhoyfj79Z +m/jDFsbHm33ZNBz2E5V/pOgPk75mfwxzadhvAdtMef0B58UyV+fT0J7nK8/1 +Lj8YEbzfWnaZhr3Hzts9dPADNaN5pa8VNMxcbvSUc8wX2nIjphyaaOggaZTL +1+INfh9H9BuaaXjs2/nB5jJvkFC0jqe30tDgv9SfWSnecPSWrPzPpzSsFFXd +cdbJG0htDbYZ3TS8ZdXFFTd7FJw4y2q73xLr96g0QFD5KMxYxZ0ymaLh29An +UTllXkB2yNFpn6bhq50nr5ileoGBWynbik3DKZngWoEQL4g7/vSw4w8ayiXy +7Jky9QKZS7x2/n9ouEprPGFo6DBYTMepFPLS8efI9LqTcoehJD3+429ZOrLY +Rx+/unUIOi/m5kXKE+Mbd5NS8g7B9LXru3kU6KheaKzvduYQ6Ne1PxOk0bG9 +4VG1pf0hePVl5T36ejq6unTcVP13EJY0z6XY6dJROqv7jcSeg+DYfw6qbOh4 +QPvI4BeSByxszV5cZ0vHxcpckYIld7j0sOhh/C5i/I9ftyfLHYYL6jQP7KEj +9bNRhFqHOwR4sJQE9tHRdukjf2aUO5ybsSH5eNKx8EFJbNwPN7jPL/5ZKYKO +PQdHL9wfdwWncMVLmZF0fPzLpCJ6wBUWJzfu+3eajvNPakz2dbjC5lfb+vrP +0PG8QGKnYZkrPM89+Sz2HB21X96+ft/LFUapn+58zaRjav3ivX8DB4AM185c +rqDjLM22aOqvC2gf33uLWUlHurqI79NPLmB3Y+37uzfpuM7uXNqTBhfIFA9R +76ii46RjnqPgGRcgzZgPzdyj47sEDcuNq1yAv2jcaHMLHX1rmJJWUs6wxK0y +PzxIxzI/dbl1e5xARm+I6v+RjqNn8k426DmBoX/WzvlPdMTDp42iZJ3g1ODi +9bVf6JjrLhNjP74Xft/tsdcZp2MET9DXXRF7gXPQvyb+B3H/n4iWwEpHGH1a +7a+8Vgl5DQufx8g6wAbVrT43BZQwrfqzwjSvAxzLHvRSIymhXuXDM4HT9sB9 +kMddR0QJb1+wXP6k0R5kltnbbZZUwpr5ENfgg/ZgZzC/yYmmhJYmapf1q/ZA +y23gTjQi5ivtrM1ztAN+8TdLa0AJ+524h/pN7WBnpNdCKirhjVP5Wsob7eCT +VfqPbFMlfLyyjZfEawd/vn0ZLdquhF2vHvzuq9kNGtS4rod7lHD5+6jrm8i7 +4Uped9Y3XyXcOcFF7RyzhYOHXTJ3+Svho8XF30/6bYGhM5X+KEAJV7w3WNHa +Zgt3egVTk4OV0PvkeOxSsS00C+xOUA9TwgO//pzSdLOF4Zh3EWExSlgqo8Gf +9mknMAJHPfkuKuGZ6Diy0zMbYMGJQ0EFStjIrbUkfsMGqgRWHRwsVELzj/FV +nCQb0Ktkut28ooQ+z+tXLu20AYsxn322pUooVW5x7sh7a/BxmbW5cEcJs89K +HQrn7ICq7Vx6zA4lVMud2DqoYwUzHzaVVj1Twl1JR78/lrQC9YBAkU1dSjg7 +4XPh8aIlVOd8mTR/TtRjne4FsRZLqPnaevXgGyVcJxjfrWxrCQ8iEtZcGVJC +LU9KSnuQBTTdER4izyuh425Nxb+d24DbzHLHpT9KmLT2va/nnW2weeBsHW2R +GN+/W24idxu0Lv3I0vqnhPrmP7fjoW3w1PLt9l0rGGjum9NJXbYNOkcu3k0W +YuDLipZN9422wmtJWjyPMgOf39XbtuOZGaSJOv0KXM9Akn/kVusaM7AWTD30 +nwoDT4s7R3tcNoNOnnnTuo0MjE7jd+g8bgZN091cAdoMfLbmoG+8ohlUtR07 +OYgM/FezpuDWmS2QEtjqW+3AwOJED4+NNqZg5TP/QW4vA+PYeXszDU2B/7Cq +VbITA4XVBYz5lE0hzjlP2cuFgZIH7iUprzCFiK0+YzIeDExzTHUzebwZfGRE +3RL8GLhJoEDxzobNYPHMw841loGhou0UuowJqP0MzXoax8CNXUWn/6wxATFK +yhuVcwyMrBakflpEGAp9YDefSMTvxrWy9wNCCGPtnow0Bl67caMksBDhavy9 +Pa0XGVg08Gb0OPEZumDG58CoZmCy+KfRY17GMBQom5tyl4GLFNWDDy2N4Wmh +5tsfNQxcsceBV3KjMWT8dHFous/ADFbrLuYvI2Bcq3Zwqifm98ct52ONwI7H +2TGpg4E9QacuGJcbQmXzrb0znxj4Y42D7YPlBiBw13vV8SEGHpl5eW7luD4E +FDPuz39moC9HhxLcrQ+aMVdFl48w0OziBa7L2fpQZ5bzQuw7Ayvv/dxlztSH +Zx0RZgZzRP6DP/3r9ujB6HMr9ThBJqafu1N7olkXtjXwDfELMdGpKXJUukIX +Km4/TUkVZqLOmMXawXRd8E1DVp4YE/WmbvYXuenCD1ut6zfWMdFO72eGPbcu +LO9bJ/NKiYlXztcNmG/TAfnBiVXSyEQti9L5vBEt+KdR8jDOhImRTM2dF19p +wadEl6PszUxkVA21VdVrQYH+y66nZkw0kjzfJpqjBZL5tSmBlkyUpx+Vatiq +BcJ7o0Tb7Zn4wW398eRbmrDirZh8kC8TKVnqm3ITNGBY9cXLD35MXBW0YD14 +QgNa485Fbw0g8mnxdFbz1IAzOgtfpIOZuHR6h9RaUw1Yyh661h7KRLOGqQOp +f9Xht92N9TIxTHQ01VAvP64OE69RtyOfcO3xmbZANShlWJJdCpjIZfCIqeuq +Bm6Re36yC5lYfjmD8shaDQaYR++uK2KipdiKv3/Wq8HTqMyN/teZmLlmeUDV +841QpDqqRK5h4mzXiP10syo4Jp6XONjDxBqtrC1JbSogOpQ99/s5Eyfkt8/1 +lqrAC+0r/ckvieflrQkxPKcC5p9rsu73MvE+zwdLf0sV0Nz0ibT6PRO7JBKT +HXvXg8CoGl/1KBO3G/07t+6bMnQaGIybjzORN8dw+EC3MsSmm7UPfmPiWnom +q/m2MiwaOsWumGSiSP/d6OEQZZjIPLts7yxRj9AT6hm8ylD6LXlo8gdR/xkD +r44JJrhBXsOZX0z82zu5XfoFEwYmKiMq55k4fjElVTqPCZl439lkgYlWOkk1 +HeFMsM5pMuhfZOJBtyzeDDcm8LO6pLyXiOtVz3iGmjOhzaR//t8/JraxbGtP +rWfC/wDVzC1Q + "]]}, "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:eJwVl3k8lG8XxiUpKsYyY8k2zIwZSdZkPUeiQqSERFlKyk6JQpQlsu+JSiSk +kmhRQogsbSKl+qlsaSwzKon0Pu8/M5/nM/fc59z3Oc/1vQ7V3X/nQV4eHh4T +4uP/3yHhu1bx8JBQmPlCIXQlG6wsD74eriHhMcbMmDWLDVsd97B5w0Twe7N+ +r3olG6aUovmo6qK4ZLCXlZAxAYfPNCVd+yqKOd45ysfeToIAdcjrYKkYDi3M +F3JNp8EuQt+U5iyOeu/m5PdTONAiERwoTSUjXU6zer6PA8vNW4TDvpDxo/2h +qjTkwk/NbZX9ORSM9EzR1NHlgsC+qgJ/JwkMUejOd7/GgfYtlueWi0jiV9G2 +rOnyaXBqXfy2vEUSrwm0FCXcmgTR6KwCiJPCAWrGbT/r73B03mV7qIE0Oq/b +LaUzPQoLdwR2jv2TxoTqU+UiO4bAgef508bGNdh207On6fcguKx8qpd/VAY/ +DAaERez4AAl2l3mu68qivW3ikty5PnB1vtn6aEIWkywkdy6rew3OVy5+WnZH +DkOZJL07zd2gGn7t0L2j8ihY+8QzNa8N7ASDZmvEFbD89Jc9Qt+eQMmxJcPl +IQrI3DVz2LmoHiwaK2zlXyugDyXkWnTsPXhv5/qrfS0VBbcsuy11rxrCVyw3 +E0qmYqh7f66o8g04eqFN9M0oFa9Eh5v8t/oaRG4PS9SxUMR4kZOHbr0vgqBt +uvqdFYrYPf/pTEXTBXhEEz78mU8Jbd6rTH2eyAZJ+X6TTE8lVDNIHN8/lwYd +v+vOtzYpYdTL3ysr7iWCp0wFS3UNDZMsBbFALhbE9yd6qIXTcO/8v/3/9kaB +ZHSMzO0+GuabXDx1/2kYqD3xP/ViIx07n1//Hj0SDPlfjrr5ZdGR+fPRN2sT +f5i2ijtpMknHt6GPo3LKvMCx7yxU2TBwv87hgS8kD6DA1dOXKhg4Q7ctmvzr +AiNPq/1VVisjv2Hh8xg5B7ic15X1zVcZd4zz0DpGbaFqG48eq10Z1XPHtwxs +sILXUvR4PhUmPr+jt3X7MzOweOZh5xrLxFDxNipD1gQqn9zcM/2JiT9WOdje +X2oACgPjK2SQhdoWpXN5w9ow/hp12/NZ6Fh7bLo1UB1aTfrm/v1jYSvbtvbk +WhZ89nCeCnIioZDxjuf9JDZ02O7f/4MiguKFVwVindkgY+z7O/2NCA7fr2qY +EpmAyl1FW4cSRPFdtbTBE9Yk6L1+fYLfTAxL/OPhXNkUJHXYO116LI5HL7hf +c4vkwMjNC43PoslokDzgNijJhchH/J/KDCn493a9h6kFF061h9NKflPQ/zjF +vZWHC2Ov/2Y+rJVA+vPU8FEdDqTzX62LPyKJG494O6oLTsNRR+WvdzJkUVFf +6ZJ/8xvYd4qx022HHO4tSCl8VvsSNgsrFX8Sk0cpLfn4rbEdcKTd7DrphTzG +bWzkdVVshYUGPb9bZgo40PZTfvJxI8xK2184UKKAny5MC8V61UFG4jLaj0Wi +X6/KGEYt1MD1m3cKvZ2pmN5UpaMbWwW/bUfXBtZRsYC6k90wUQ5hRy8/55NS +xO/XP5YnWpRAqKWje9QJRfSX8mtwCr8EErrFtn1vFfHxQO6wfWUejBcF767T +UULjKztMPS0zgXPuma9qlhJmOHXTteRSIC+x+nPopBLSk4NnzZviod4o3/yG +JQ1PegxZ5eecBkrA8kb/chqKtvbfyBOMgGLqn+2Ny+k486j9CqM0BA7sDJq+ +6EnHxIxT40VXAqE1N2LSoYmODlJGuQLN3lCSHv/xtxwD2Zwjj17dPAj3BCU+ +K0cwsPvAyPl7Y66wyKs6NzTAwDI/Dfk1u52g+RbwJhopY1ppR22eox0wA0c8 +BS4o4+noOIrTMxtoui06SJlTRsddWkp/O7ZCSmCLb7UDE4sTPTzW25jCvJmA +A7OaickSn0aOehnDyHMrjThhFqafvV17/IkuLHtLVgjyZSE1S2NjboImOCae +kzzQzcIa7azNSa2qoDr9NkJvHQmHu8MbZgj9Pmf9RXJimIQrO4uNYoANmpYe +QR2lIqjVOShRM8CG5wbppbwuolhnuc2ZMTABr1Q6ljqIi+Htq4av7xhNwXRx ++3O3ZHHM5iq5DFlyYLfHcqkgWzK2eK99NPyHA5uih3+lCVPQ0UGAMrSVC3V/ +3b0et1EwzdVMxUuBC6GSDnnksxLocmlNHTWIA6rKv6+0GUniUh9L6yvO0xDZ +9zVw/UFZ1NBi6L7r74X/fMdXCsvLoV1VeNSd26/gZf8gBn2Vwy8o8HxUqgss +r4QIDBXJ482lrrTk3U+BOdyrqbmO6McgSTtaVxNYt6/F+GRCT+Fcw825h+BH +769LGFPAfyYLbvIb78KTJYIW0pupaOoUU3Y9+zborzt+v6GYinbbjZ4XRF6H +X8trAnx4FPHBUvu/1KKrcLLL65eTuyLGRH5zXN1yGTbjROuOJkW0DndRjVmb +D7s8TP7bLquEI6lU5KZnQUzvy7f7I5RQv1/YeXQuFW433TWS71fCaD5BjQMa +CSC6TvG+jxYNy2pe37d5eQayR9tFXmTQMKp/2eUdPZGwzxZqN07RcEFpX3E8 +KxS2CXJ079nQ8ZNx9bU3D4NA3WhO+WsFHTOXGj3lHvUFi6k41UJ+Bv4cnlpz +Qv4QnJ22Ifl4MrDwfkls3A83ECwaM9rUzEDfGpaUlbQz2BnMbXSiK6Olifol +/ardMBTzLiIsRhlLZTUF0z7tgPsRCasuDyqjtic1pS3IAqpaj54YQCb+q1lV +cPP0ZrgSf3d3ywUmFvW/GTlGRXjWHmFmMMvE9QM//et264HonijxNnsWfnBb +eyz5phYUqY0oU2pYONM5bD/1RA1y3g66VsaT0NByfmmMNBsEdn+4Or9FBG3/ +Wepfi2IDv8bxyD28orjFMPrsqPUEMDlDwx+mxNHWaaR56Q0OhPxZ70WtJqO9 +FffMNnWi32aVWxsPU3C9zbNa381c2JyZM5jAksDJI1Zx+/s54Jhckur2VQIf +1PSsXDkzDXdDHC4pvqKiykh1vUFwGSwMJqkWaijim1ptte4VxXCsY8vzqxmK +mLJc7A0zrRDG1+35uHdSEf8mSf7+sCkXogevdjKslTArV7iZK5kBp3bdjH3N +R8Og+Wl/Mc848LIW7Z3woOFYFe8zvYBoyP1t5kdqpOFDj6Mehs4nYYxTM7JF +gY7HWatz/+gfg1P5M2VxEXQkfTV9NnQ+AJy4S2q73tLx68PSAGGVI7CodTbF +TpeBMlldbyR3H4AR2qfbXzMZmFq/cPdf/37gHvCvif/BwJE/Ec2BlY6gSYvr +fLBbGZe+j7q2kbILfFxmbM7fVsbsM9IHw7nboWP4wp1kESa+rGjeeM9oC/jI +irsl+DFxo1CB0u11m8COz9kxqZ2J3UEnzxuXG8LS3jWyr5RZePlcXb/51g3w +2+76WtkYgo+mmhrlxzRAaERdoHqEhduM/p1d800FbO+SWwsoJGRKTxSpEfrD +7io+dribhNdivgvmaLGh3nbfrZFUEQw/PRUo08yGT+sTetPNRfHIfr/dYncn +QPat2dZ/86LYFe31iSswBVfSlgg0HxXHsqGlJ49pcCDJyMjMXI+MGzMahou/ +caDkq93SZXNkXFuSJpdlxgVHSftEy1sUXDyjd+6bKhfw4Zn8TYESeKTZRa80 +mQMn7lFzDylL4hnaYeWfZ6YhhrxJz9daFm+nrOzrPNQHCge7xg7yy+Edtlek +hfZryKlvEDbslEMj2jM9GXYXGAqn3t9+Th4lt225K/DzKTyeVcqeUVBAv1qb +wRzHJzB3MSdD8rQC0p/wXyvueAQfgkzi7D4q4IPzAYMJH+6C9VqdyxxdKv64 +IiemTauGAemGRc88Kka2mMy+sKmE2lf1Jgo/qFjBLfIstSuFhVWBuNVeEc9F +kj/qbC+Cgc2iPEJ3FTG2mo9ZPJMPKzYzSyRElFDHoIDGNMoG6xNvkuYClfBq +IDZvC0sD44/3vbldSsg//urADU4C4f9GAqyUaRiombH2+dEYsCsur4uMJ/j4 +p89G6MkpMPj2eezHFxomOqzb3/kjFAw9q/aabqajgmvbqu/WwTAsfK+l7BId +e46es3vg4AeyF/nt/P/QcYX2WMLg4CEI8GArC+1loO3iR8HMKHcgTZsPTt9l +4LsETcv1K1xAdom93SYpZayZC3ENPmAPT4R2JWiEKeP+X39OarnZQs3XlisH +3ijjGuH4LhVbS2ia6uIJ0GHis1UHfOOVzCCEuXp3RhoTr16/XhJYiFBnlvOC +/J2JlXd/7jRn6YNUfm1KoCULFRhHpBu2aMPTqMz1/tdYmLlqaUDV8/XwqFCu +TDiQhBshf0aYzIYjPYW8oetFMPVw2NobvmxI1w16eOy7CPp8bn6QtX4C3n+U +VTB+K4675l+qG+Rw4Oabg1k/z5NRvHFVYQCdCzJOua+0d1HQeMWLiE0E/77c +SOCVEJHAxdptFWUTHFBQf5We0iWBGyYoaVvIHHA4cGn4WSsVL1naMZ+uK4e6 +ipy/O+iKSCsvfkS7Vgy/BHdIZsYpoqvQiK3f6YsQpRkpIfVVEaVDlqvP/siF +DU1JadMmSljG89ut/lYGrPKvunN1TgnZux/qKYnEg6h5X3K3Aw2vhd7qFF1y +GuxrGBKNNcRz5ZEXuurh8DTBQZpPnI4yLi8qrkwcg6Bf1V2iQXTUarLbu1km +EEitDbYZXXS8adXJEzdzBF59WX6XsZaBri7tN9T+HYDnuSeexZ5loM7LW9fu +ebnC7zvd9hvGGBjBF/R1Z8Qe+PPty0jRNmXsfHX/d2/NLrAY9dlrW6qM0uUW +Zw+/t4anlm+37VzGRHPfnA7akq0QscVnVNaDiWmOqW4mjzYB82q1g1M9UV9/ +3Hwu1gh+2Gpfu76GhXZ6PzPseXVhMXvwalsoC80aJven/tUArY2fSCvfs7BT +MjHZsWct8Kvkb+gzJeEz3Ac9q9mg8lLhUcAiCcOtEqPo29kgl/CKXXiYjEdG +BiKvC3JhUC5kXIZBwSBdr8chhL+W+epvrjFIIeYzl6kqES4EihRLbbtIQgXu +ZzGksqGsT3rbKVcRFJWbDjiZzQZjhT8G2zvImFHx34U9eoT+ZN+/bxVFQVjl +Nd5gzIXS0OLHCyYSqNpNhelGDoxnnlmyZ4bIP/S4Rga/Chw4X+NlvZKERx72 +WWgSeimTxFei3ETCWPu5fcZqbODtHeg+GiOCqg/W2gXeY8MIa5nvHgNRNG/X +uiZTMgGmN84c6ZkSxWIjnu8J05Mwzy9XGuwljhseLM/+q8SBMhXHverryEiS +aNQ6OciBvqwkgYYJwr9tO79uqymR31WbNaLFFByo27PUXpMLJavy17w7KIGw +smehPp8DRac2pOvKSGLC8fAbcrnTwK/DkVllKovT3hKq9lV90Ohq5CDyRxbV +JuXfPgl5DXPr188qNMjh5O8Zrp5DN9SYrUnjjZLHWrNnqhbmbSCwxNL8jbQC +yp3TCt9x+QlYC3YZuIUroGtktIOZTj1kSv36/uCtAtaNaVsGqd8D8UYLy48a +hNGQurJZyrcaKkW+FtVlUBElRu9W1lVC1t1NKn8mqPgumRubUFUKRuuODRvv +UMTlY5k+nplFwGijFfpUKeJXI6rk6J4L4F5zIW5BUAnbjPd3vsrKhjtW9ofM +fZSwUOwPaeB+GvB9f8Dr3KaE98V6S7i7EiFdYet2QyoNhX9fSl/xLAa0l0in +9kXTkJ7k7CEkFwUqOnd4ez7Q8J0Av9035zDQEU/zTTCm49R5MxNafjDgHDlz +ZT4d7fm+8l3r9IO4Y08POf6go3wi3+5JUy8YKqjT2r+bgbTPRhHq7e6QKRGi +0V7FwAnHPEfh0y7Ae4DPfYOYMt46b7n0caM93O4RTk0OVkbvE2Oxi8W2UJ3z +ZcL8OfG+rdE9T262hA6+OdO69UyMThN06DhmBoOh9+3mEolnN57lPR8QtGKu +iC8dZqLZhfM8l7L1oUD/ZedTMxYaSZ1rFc/Rhn7WkTtrilhoSV72989adXge +VW/ZdJCEx0rijneLsiE/Y1F9gxLRj6cmvP87wIa+uql3SwdFkP/LlGuSwgRo +2enXT3aI49KlBt/9EjnQ0RRV8V8yGWk6Cub75LmwfeWLt5NbKKg49FooYhsX +1A3OZH7kk8DeQ0u+hc9yICZ6VJTeJIF58xmDnXQOMPc2n5VtpOLY8QMPRZPL +IT91zYiKvCK2+K8J1PpdDLpr7eoTohRxKL2F6714Ebpq0mqOf1TE9uNm0/M2 +eZCmwRPca6CEVi+S8mYWMuB1+G0L4R9K+Db2mFGaVzyMmWw8Um9Lw5aBZmdj +y9OwQTT3u8QtGkrwmsXnFYRDTS9T+8tqOrIWXGmMbSHgXZLxydGHjrGPloZw +9gXCkZtyCj+f0rFSXG37GSdv0K9reyZMZ2Bbw8NqS/uDsOnV1t6+0ww8J5TY +YVjmCicHFq6t/sLAXHfZGPuxPfDJKv1HtqkyPlreyk/itwO9SpbbjcvK6PO8 +fvniDhtoWfyRpf1PGfXNf27Dg1shzjlPxcuFiVL77yapLDOFjJ8uDk33mJjB +btnJ+mUEvmnIziOzUG/yRl+Rmy6c3jD/RSaYhYuntkuvNtUE8881Wfd6WHiP +74Olv6UqSK3Wex+/kYRzMQXHG1axwSk1elyNS0L52YoWWXM26Iewec+6kPHW +2figOV4uiLy8Md0nTcE3PttLh4n6eQccfjvbQ8Hd3wP1dklxIeaHSf2fDBL2 +b73ocl+WDf3ZJ48b2Ymg1fnavN5EYv/V5J26j8nYvn+yZqUOFxLMpx/zH6Ng +xZT3htcmXPi5rNCmWUcCeb0jtdhdHFgwdIpdNsFCsb470UMhKmDcE0L9TiVh +ZOXuy36EXj5abbrl+jsS/vXpjnDQY0OwpuxfCz4KfqL7rAvewgWBc85zMQ8p +OEidL5xicKG87hTfvnAS9sUevV4kwYaMUYvIlaVkPGwkJ01ey4XvZfs7T+yj +4MtDflMZ5lz4YT6fQbMhznMx7Jy6MBtu+RoPuWtQcJmIiG0OwYt9anwhueUk +FL08Gi5DZ4Oi1n90jz4ylnlnGmoYcYExFFWdcY6CL0Jc920w4EL/eGVE5RwL +xy6kpMrksWBCMEb/2jISLjMfWL6dOE/Nd+2H/A9JmBZ1++6DtWy4miP98WGk +CPL0Cbc332bDOKN5Y72OKPoaU4+aX5gA+7wrJ+u/iWJ2i8WLH18ngbmp8oel +uzhKHkyd1ZTlwIaig550ZTJ6Tz6WfzrAAT/fslUyY2TM3niiY464b2ufLo+f +BYR/+Yv4VpsL9jp0Z5qrBCrERzXJFXEIP4YplyiSWB/XXZVxeRraW9pT9hrJ +4pHXrU3/vemDtE/HhEZnZHH3pqWPLfJeg8q3kSNiD+Swfq/uL4vkbph2/Tzv +fEIe4wRzBKz82+Bm7KeLLRKEX16tVZ3SQvjlBs+02DAFzGq0maB618Okz8uL +7DcKuGL73cE3TvfgeGKvQo8aFa30Z3p+pleD+OpjwUPErN1eIq92c7oS+Fix +cqPjVAxJpd9b9l8p7DOa1dXfroi3WGvPj94tAqsVN79fuKGIZsHb4/OSL0Cq +T+/s5HIlTGaZ1qg2ZcOITu4bn8NKuNAl27PYnwajgfrP01qU0Obxq/pLsYkQ +LhdmoC1Hw/b4S2OlMzFAU98ZxnuKhof/bgr6ZhgF1IELwk/e0VChLW9XfnoY +aH4/FVJpQEev0b0mao3BMOFr9scwl459FrDVlN8fDNxKOVYcOk7KBtcKhXjB +xQdFD+J3MnD/H78uT7Y72F1f/f7ODQausTub9rjBBY5mD3ipk5RRr/LB6cAp +e2BumEx/GKCMy94bLGtptQWNgECxjZ3KODPuc/7RgiVYC6ce/E+ViacknKM9 +LpkBmZryRvUsEyOrhWmfFhACipn35j4z0Ze7gRrcpQ+fEl2OcDaxkFk12FpV +rw1ukbt/cgpZWH4pg/rQWh0cuUmy0q4kZAebnnomwgZNrtpWsqwIavJzPhe7 +siEsXO2bxXuCB0bHc9SlJsA1tX1lW4s4CqS+0g6IIebvjSm1b+KJeZ3JuKwq +w4WRr+PvLTdRUM7t151JQj/6l/B8aFyk4CbX5GuaC0S/VgTtCngogdX9Lh9H +1nEgzX6305Z6KtYK9XIN68tBkHffewkZRSwP0byhQy0BR4M+4dgIRQyj0x/S +jC4B96fU0mvvFdGfxWe/GJEH9d/0hto2KuGIGIO0jJYJtUs1KZs5SjgRzJB4 +khUPr+GwY601DU2yuPOtAaeBYfKi17SShqabHCwO9IRD5UkRk1eCdLQJ/eoa +cjwEvE6eHj15mI5x79P4y6MCQVLJOp7RQkeD/1J/ZqV4w9TVa7v4FBmoUWis +73b6ICxMrN/77xQD5x7XmOxtdwVD/6wdc58YiIdOGUXJOcGOSK/5VFTG6yfz +tVXW20GV0IoDA4XKaP4xvoqbZAOb+s/U0ReU0XHfLvnx3K0geEjNKtmJiaIa +QsYCKqbwtFDr7Y8aJi7b7cAvtd4YKm49TUkVZeGGUYvVA+m60BJ3NnpLAAud +mj2d1T014YXO5b7klyzkyVsVYnhWFa5Erqgc1CThpvDfVTsI/edO3l4ixCZh +zJikbfMmNrSz51ZHOJDxutCnK/OLHKgoezajRabgWf4rA0FE/UR1R+QHuimY +u3Rw/xRR39WeIqm7kknIEXv9XkyGDQE/r6fIWItgR3PU2VuxbBg7o+iiep+M +h5qllz0g/Kai/KonHv4UvP22tk2N8KMFXVJ5peslsJt9nOfeaw7Eppu1DXxj +4WpGJvvJLRVo32w+YypDwgbjfHFzQi/tfIP3JfaQsPvru6DDG9iwaqUeT9ki +GW3dp+zTCf2usn1n4lVLQSXnH5sXWVzQVLXpuxtCQrGnpa+sKWxQ2OeYwHOZ +jKXtA3U7mAS/ok8+f+tIQRvTQrcwgh8R9zsORGwj4W/v64WhQmzYau402rCW +gv05Me1ZhP6PXerZMl1MwrDSrwVKSmyoKmerO74k4x/PyV12hN43PCqonYql +IG9Vn6ggwQM3yGs4/YuFf3smtsm8YMF75eGcnyQSqn6UkGIS5zF6FMDvPkPG +pxyPGyc3c8FMeDLMy5uEUQGpQ0NiBB8077xJ307wjOnsNEnMm2kXDq9Yb0zC +m2/UNyEx74TOpk+EKVDQcH/JTkMiv66c5Vs2tZCx3+y7rYkuF6Z93zwsP0FB +F/kKjgNyodbtmk2GMonwQ2ZHy4j47/cs+TMhQMFaLZETesT+O1+atsseoGDm +BQXRVDMuHOld29RpR9Q3a4nuPMFDSrbi52W6FLxRv1PvJBHPOqfJoG+BhQfc +svgz3FhQ3exd3MNL8Hqi65wrsX/Umm7zX/dIOMP7QCJahQ0hsw8O/HdSBC99 +DFr4dZMNPvQrclOaovjjt1rVUM4EDK7WjKkeEcUYRrp59cdJeLx/Zs3G/eJ4 +2j1AtUOKAxHO7O/yNDKeXnYixeMdB+r2bEixGCZjp0dk+laCb1deCK4YPU/B +ZGPWFcENRD88O7KwzUUC7/aVbN9cwoHH5KdJPWKSqJfDPLL56jSUJdVsOaMv +i/XKXdd1RvsgVFZ0/NW0LEqdpVdRy19Dc+uTklV35RCoHNbRsm5I8WvRSDwu +jx1M5pnhM22wZCuz05CigJUX622f9j2B59I1dRKhCqjV++6gVlw9FOQY/Y7t +UcD413m/qAH3oGwqf6X1OioybZ69jCyphnZBY+ewFCqai8/P9ay8AYbupXku +36gYsfFPq+evUvAz2/j5nqUido9fLn7SXgT/lXEztCoVscqU45V97QKUbg1S +9+JXQpla3YWTb7PhVIXuSh4vJRTY86dS+VsaONb+0VrbrIR3P4dqnb+YCIGF +6ZpVMjT0dbIppwjEQsEWP7+8CBp+adnJ72sVBTJqpBy9fhryb1hxd01lGFT1 +zf4x0qdj9IJbv3VPMGxmfrzRm03HIT9xhYdK/kBxyNnQNkXHVztOXDZL9YL5 +LdkLa2wZuFCZK1aw6A46x/bcZFUykKEh5vv0kwusU9vic0NIGdOqPytO8TvA +gUMumTv9lfHhwsLvx322MP1hY2nVM2XcmXTk+yMpK0gTd/oVuJaJJP/ILdY1 +ZqD+MzTraRwT13cWnfqzygSE7nivODbIxMPTL88uH9OHf5olD+JMWBjJ0tpx +4ZU2lDItKS4FhP4ZPGTpuqqDzPWjceYuJBx3eNBoTfBtkdrWwyctgp7Ffz+n +7WODxcfuAL+3Ivg91a4riTwBvyqFte40iWPbPd8vR6I5cGlG3OBFDBldcy1e +JEgT+vIy1PkEUFBT7n2ZDPE+qB40jqqeJ/zV6EHPKEI/U43vz2Tfl8B+79KT +4xoc2GwnZ/rhIRUfR17YHtxbDpsMTtmlSCviqQ++z3p1SsDLVOIBb7gibtC8 +yl/lfAlicvZVGL9TxI++D5/LZ+fBm9Y+GRNdJXQX21F2XTcTGFu4Jz9NKeH6 +1Hcyfyriof1xtI3Gdhr22J6OKT1zGi46fu94V0HDpPHyvZzJcCh7Htu2VYCO +XwVfHX2SEgIjnn+8V3vR8clKNC9MDwS/j8P6DU/oePTbuYEnZd7QcSE3L1KB +gT/X7yKl5B0Ep3Cli5mRDHz0y6Qiut8VZPUGaf4fGThyOu9Eg54TCEq8WVwF +ytjnxDvYZ2oHbDh+MKhAGRt5tRclrtsAr5nl9ot/lDFp9Xtfz9tbwcpn7oP8 +HibGcfL2ZBqawmCgXG7KHSYuUNUOPLA0hq0NAoOCIgTPmiJHZCp0YUjtxcsP +fixcETRvPXBcE8QHs2d/P2fhuMK22Z5SVTikOy2+Wp2EP/XO8CgQfHssZ5H8 +d4yEpm919ymYsEGoLCrzuB0ZL8wq3Jgh/MevLIdj7qIUXOrC+alG8M0zn9bS +1UHBbZv61avkuPBabm72VCIJF55dct62hg2G9M3SqyxFcEHyX4XyGTash/Iv +jNr/61HS+xgNLvitzDfN8KHgCInCfUXwbXq9o2GeqgTm2MulpPYS87GBwZj5 +GAv5cwyH9nepQNLfdc4BUiQMnRY32EjopULhyvGwl8S8UpXqu6DNBsfZp9F9 +82QUvh1IoxB846uVGNlTTcHt/svtQon5ZXZoA3wNJmFdG3e4ksyGQ1L/Cc0X +kPFB5A75IWL+eekrsIPfnoKNcRLnPxN82xRY3V1uTkLrwbBLSgTfsjTHvCaZ +FIz7VmWbQPRvpePDKpkiEgqMK6mvV2TD7IHguzu7yXhMke+mkz4XVpWr6Mqd +oaDHXNiDMYJvpd+SByd+sFBh2sCrfZwFlwa7/lGFSLg19LzsWuI8iWWL8WnT +ZCzYXWI1TNyHYHvvlywvEn5RK3xkT/CNR97EvtGCgnZ7yY56xP3b2dkG7jUg +4fOdEef/EvVr+SrvXyZLQX8Hv9PiRH5iO1O6DJvImF7zmqVC6Luhk7tR/3EK +ln0O7JQk9P+EdOr9xzRiPnPdvS+BiM8wTz0ps5yCoY2+be+I81989GqblRsF +fe0Db4kT97k+RUzlty2hB9ElcZkE39yjq9y1tSk4JrtmbxIRLxPvOZvMs9Bq +Q1JNezgLmDsLXp1YQULdhOF8I2L//FnnPbJmRPzuu9EPiPw/tSqY1uiQUN/s +fl8skf++RwZByyQpSG3OeHKL+H1p0r5ECXkSmrl6aDsS/2+Uux4ZtoSCN9dM +Vy0j8lvY03UwXY2Cj7Km5M4T8Sn+f9c9EyPhwWADUxax3sucvstjBwUPJeSJ +FhC8Vl3J52OpRMFds1WiLsT66bKGkYMqJAz8b/lYJ7E+xTc4tGEVsf/nGMwg +1neUZe1/q0f4mQnhMXdivSC7U9p7kZhP1U57hpqz4H+c6i1Q + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1mW0VVUUgNGHtJSAtLSEgHR3h9IhpYKA0i3dKaDSIY2ClDQoKVLSIN3d +SEg36NzDH5O1vn3OYLzLO+cO0jZpX7NdpIiIiFJvRUSEud0f9cirn+mM5hpd +xPxZJzN/0QXNj83s5iazuPmZ63HNWTq/WdLMYm4w77iWxr7CXpNc9q1mHuf3 +zIGkI7PzdeZfzlPal9qr8Y1OGH4Gezke6HR6lb021ogdZn2e2+eS3OEiXZnP +dTz9o70Ud3Ve7tsHkZ4Dehjvum+uLs9DHZmd9ga8sM+jEfl44Gww73NQDycK +u3RDXtrn05j8RGW38095ZV/AFxQgGtHZ49pnvLYvpAkFeehsCBk4pEcQg73h +8/HG/gtNecdn+MlZaf7RhXhkH0pGDutU7llmr863OpGeZ69ANvtG85Hz9PZf +7XWIqfeZjfjXnsm1tfZF9hT2xfZCZhUzh7nZLGE2cz2+OVsXMMuYWc3fzWLm +PdfTmit1YbOWmdvcZpY0C7v+ODwH5NOZzA/M9WZR84jrqc3lugY57VvM75wn +ts+3V+RD+x/mY+fv23+zf8Lber/ZOLwELDbec32JvSpf6gR6jr0s93URntiH +heeWo/p7krhvga7EEx2Lv+xfEIkl+iuK8lQPD5+FY3oksTmgm4TnmqW6OcWI +E96x8CyH33H4Nw0/V3g3OOjepkRmmW5B8fA8c8hZM6KwXLekRPidczh8PqKy +QreiZPh344izr4jGSt06fFeEz8hRZ82JzirdhtIk5ZizFsTgV92WMuH7g+PO +WoZnid90O8qG95UTzlqF3werdXvKhWeLk85aE4s1ugPleaZHkIXjelT43XFK +tyE2a3VHKvA8PO/h+eOEHh2+azit2xKHdboTFXkRnqPwTnBSjwnvDmd0+PKM +y3rdmUq81N+HZ41Temx4Njmr2xOPDfprPuKVHkl2TutxpOGc7sA7/K678HF4 +TzjvrCPx2ai7UpnXelR49zijx5OOC7oTCfhDd6MKb/To8L5wVk8I7zsXdWcS +skl3pyr/6jHk4pyeGN4jLumveZfNugfVCF/MY8O7zHk5iQxc1l1IxBbdk+rh +1XP/OGd5uKB/ICNXdFcSs1X3okb4690/3lleLurJZOKq7kYStune1CSy+yc4 +y8clPYXMXNPdScqfug+1iOL+ic7yc1lP5QOu6x4kY7vuS22iun+SswJc0dPI +wg3dk+Ts0P2oQzT3/+CsIFf1dLJyU/ciBTt1fz4huvsnOyvENT2DbPyte/Me +u/QA6hLD/VOcFea6nsmH3NJ9SMluPZB6xHT/VGdFuKFnkZ3bui+p2KMHUZ+3 +3T/NWVFu6h/JwR3dj9Ts1YNpQCz3T3dWjL/1T+Tkru5PGvbpITQktvtnOCvO +LT2bXPyjB5CW/XoonxLH/TOdleC2nkNSZwv1RzwNz59eba8bnjP7n5H+//9P +btf+AworCus= + "], 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]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + 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, 13}, {0., 1.1432124336654814`}}, + "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:eJwV13k4VO8XAHBJioqxjSXbMDNmJNllPUeiQqSERFlKyk6JQpQlsu+JSiSk +kmhRskeWNpFSfVW2NJYZlUT63d8/M8/nee997znnPe97n0tx9991iJuLi8uE ++Pn/f0j47jVcXCQUZLyQD13NguoW7+JebhJGTnafdyU8yR+jf30FCVeYD67c +QZixq+DVyVUk1E0YyTcifPBCjZf1ahIefdRvoUH48lD3P4oACbeFXpBZT/i9 +0kjOTxIJVT6KSzIIk/3/bngmQsJDwQamTMK298TaCsgkZEhNFqkSTvq7wTlA +koShM6IGmwh3bDGfNZUmYYNxvqg54eVJ+xPF5Uho5uqh5UjYuDeE8p1CxFu5 +54of4ZNSqQ+eUEko7LpnfwLhWrfrNhlKJHwba3asjPBMWcPoIWUSBv63cryL +sMrM2wi9DSQc6QlvmCV8WHdGdK0aCX/qneWSX8OCq5GrKoc0SLg5/HfVTsKf +2uRNa7RJqG/2oD+WsORavffxm0g4H1NwooGwnZ1t4D4DEj7fFXHhL+G0i0dW +bTQm4a03aptxLQt4lfN1+k1J+Az3Qy/hzYHVPeXmJLQeCrusKMCCiAedByO2 +k/C3943CUMI/zBcyqDYkHLgUdl5NkAUbU0SUf9uScCK6JC6T8NG+9U1ddiRk +Zy3TXSD82cN5OsiJhALGO58PkFggfeNYnLkLcb3Dw0ZrIRY4cpJkpFxJyAo2 +Pf2M8POoesumQyQ8XhJ3okeYBfwdfV+yvEj4RbXwsb0IC8wEp8K8vEkYFZA6 +PEz4caFsmWAgCTdB/qygGAvmhnXgazAJ69o5I5WENVRs+u+FkFDkaekrazIL +yutO8+wPJ2F/7LEbReIsyHk75FoZT0JDy4XlMVIseC07P3c6kYSLzy47b1/H +grWeQqm7k4l8RF6/F5FmQcwPk/o/GUT+2y65PJBhQaBQseT2SySU53wWQQoL +Kh0fVUkXkZBvQlFtowILxi/3bp0pJmFY6dcCRUUW7FflCcktJ/rhyli4NI0F +VpaHXo/UEPnSZ8etmSyIWtdj/us+CWe5H4pHK7Og5rvWI95HJEyLunPv4Xqi +fkk8JUpNJIy1n99vrMoCVnfx8SM9JLwe850/R5MF8oWrJ8JeEvlVpfouahHr +7xu8P7GXhD1f3wUd0SHqtdZ06413JPzr0xPhoMeC89ZfJCZHSLi6q9goBljw +RNYi+e84CU3f6u6XN2EBZ+rOMgEWCWPGJWxbNrPAKTV6QpVDQrm5ilYZcxYo +v5R/HLBEwnCrxCjaDhZ02h448IMshKKF1/hinVmwRGnv5ZESQs/iv5/T9hPr +wVHdJiYjhBq87M/FrizIz1hS01EUQpXTk97/HST6p7eQO3SjEKYeCVt/05cF +fHs+XFvYKoS2/yz1r0exwJC2RWqNpRAuSvyrUDrLgoCfN1KkrYWwsyXq3O1Y +FgxknzphZCeEVhdq8/oSWVDWL7X9tKsQCsvOBJzKZsE2x70s7jAh/N6i36dW +yYKQuYcH/zslhJc/Bi3+usWCazlSHx9FCiFXv2BHyx0WcPcN9hyLIeJ7uN4u +8D4L6m333x5NFcLwM9OB0i1EPpYeQZ2lQqjZNSReM0isj7Hv7/Q3QjjyoKph +WmgSLD72BPi9JZ6XatedJDYJYeGq3yzeE/MZnchRk5yE/rrpd8uHhJD3y7Rr +kvwkpOsGPTr+XQh9Prc8zNo4CbzqJyL3cgvjVsPoc2PWkzCtGM1DURPGZUN9 +zISMSfChXZWd1hDGH79Vq4ZzJmGC3rKpXlsYfY0px8wvTsIoc4XvXgNhNO/Q +vC5dMgmfNib0pZsL49EDfntE7k3Cc4P0Um4XYayz3O5MH5yEyt1F24YThPFd +tZRBM3MKjpxtSrr+VRhzvHOUjr+dgqG1GjHVo8IYQ083r/44BfZ5V0/VfxPG +7FaLFz++ToHpzbNHe6eFsdiI63vCzBTIvDXb9m9BGLujvT5x+KbhlXLncgdR +EbxzzfD1XaNp0Hv9+iSvmQiW+MfD+bJp4KMMex0qFcHhxYVCjukM2EXom1Kd +RVHv3bzcATIbnhyYXbfpgCiecQ9Q6ZRkA2Nz5Q9Ld1GUOJQ6pyHDhgVe2dJg +L1HUebgy+68iG66mLeNrOSaKZcPLTx1XZ8NMccdzt2RRzOYougxbsiGp097p +8hNRPHbR/bpbJBt+VQpq3m0Sxfb7vl+ORrPBNbVjdXurKPKlvtIKiGGDpp1+ +/VSnKC5fbvDdL5EN7z/KyBu/FcXdCy/VDHKIeNjDIx+mRdHWabRl+U02tIoH +B0pRxJAmq1G90M+GCGfWdzmqGJ5ZcTLF4x0bdIoOedKUxNB76onc00E2lCk7 +7lPbIIYk8UbNU0NEfEZGZuZ6Yrgpo2Gk+Bsb9nislAyyFcNW7/WPR/6wQaAs +KvOEnRhenJO/ObvIhg7W/NoIBzG8IfDp6sISG/RDWNznXMTw9rn4oHluDsgm +vGIVHhHDo6ODkTf4OTB662Ljs2gxNEgedBuS4MDlWVGDFzFi6Jpr8SJBigOO +m1Jq38SLoT2DfkVFmgOdTVEV/yWLIVVb3ny/HAduvTmU9fOCGIo2rikMoHHg +sOR/AgsFYvgwcqfcMJ0D8vsdE7iuiGFpx2DdTgYHMsYsIleXiuERI1kpsfUc +CPmz0YtSTcxvxTm7XY0DG6H8C732//VJeh+jzoHxswouKg/E8HCL1IqHGhxw +Wiu2S/eJGHYcmKpZrc0BkV0p3YZNYphe85qprMOB7pyVWze3iuGA2XdbE10O +GMv/MdjRKYYZFf9d3KvHgbmDwfd29YjhcQWeW076HKgqZ6k5vhTDP55Tu+0M +OKCg+R/No18My7wzDdWNOLDSvFUw7IsYfrQ/XJWGHKjbq5NiMSKGXR6R6dtM +OODnW7ZGelwMszed7Jwn3J+VxNcwSazP9gsbtplyILFsKT5tRgwL9pRYjRA2 +ehzA6z4rhk/ZHjdPbeFAyVe75SvmxXB9SZpslhlR77mn0f0LYih4J5BKNufA +mtV6XGVLYmjrPm2fTrhR9kZk2DIy3lo3U7ViKweCNWT+WvCQ8RPNZ0MwYbp5 +6inplWQMbfRtf0f4/d5lfyb5yFirKXRSbxsHUnyDQxvWEPd/jsEMwpujR36l +CZLR0YGPPEz4V5bDcXdhMi53Yf9U3c6BirJns5piZDzHe3UwiPD+xwZBKyTI +SGnJaL5NWOjlzZl+KTK+8dlROkK49aucf5kMGf0d/M6IWnAgdC59MkyejIYH +SnYZElZZzeNjqUjG3XNVwi6Eh2RDJqTpZAzS9XoSQjhLY9xrikHGuG9VtgmE +t5k7jTWsJ+NATkxHFuHFvd2H0lXJ+DhrWvYC4du+xsPu6mRcISRkm0PYPbrK +XUuLjOMy6/YlESZnK3xeoUvGm/W79E4R7izLOvBWj5hvUnDcnXDkY95PZYZk +/Hun3sOUsMbLUOeTQEYN2fdl0oRHv068t9xMRlm3X3eniPzy55z3ypiRsazn +XvRDwjtWv3g7tZWMCsOvBSIIc8mZ2DdakNFun5ijHuEajbtv0neQcYjh7DRF +1NfLnLbbYycZDyfkCRcQlnbKfaW1m4zGq15EbCb80pdvJ689GRvjxC98JtYv +JvrU87eOZLQxLXQLI/y97EDXyf1kfHnYbzqD6IdLj19tt3Ijo6994G1Rwrte +mnbIHCRj5kV54VSin+rmlNoaj5Bxo82zWl+i3/xW55tm+JBxlETmvCL6UUFu +TbOHPxnvvK1tVyWcYD7zhPc4GSumvXVeE/1s6ORuNHCCyPdzYJcE4RnfN4/K +T5LRRa6C7UDsB8fsBw+sosgIa7wmGoyJfi1X1pU9S0aP+bCH48T+aXhcUDsd +S0buqn5hfsL04ajqjPNkfBHiul+H2G8/NbZXDuSQMdIzRUOb2K9XX/CvGrtA +xmRj5lV+Yj9b+3R7/Cwg6vMX8a0WB0qv2awTLibjYN3e5fbEeeAoYZ9oeZuM +S2f1zn9T4QBPrfjo3moy7vBfaRdKnC9Vtu9MvGrJqOj8Y8sSkwN8553nYx4R +60FZKJwmzqe6v+5eT9rJmOZqpuwlzwHPfGprdycZt28eUKuS5YCw7qjcYA8Z +c5cPHZgmzj/vgCNv53rJuOd7oN5uSWL9vvqbqw+RsfyMy3SVEAdOd4RTS34T +/X+C7N7GRfT7IeOo6gUi/rFDnlHEeTywjOtD4xIZN7smX9cgzms1g7OZH3nE +se/wsm/hc2z4cjOBW1xIHJdqt1eUTbJhS2bOUAJTHKeOWsUdGCDeXxsdDfNU +xDHHXjYltY8NBd2SeaUbxbGHdYLr/ms2/FxRaNOiLY7c3pGarG42lIYWP1k0 +EUeVHgrMNLKBb39Vgb+TOIbI9+S7X2dD1bOji9tdxPFef8mOLSVssNemOVNd +xVE+PqpJtogNJWvy1707JI6wunexPp8N+Ohs/uZAcTza4qJXmsyGUAmHPLFz +4uhyeV0dJYgN46//Zj6qFUfa89TwMW02pBo/mM1+II4D3qWnJoj3r05F0O6A +R+JYPeDycXQDm+jvMWFakzjmLWQMddHYIK/2Kj2lWxx1JslpW8XY4Jhckur2 +VRwf1vSuXj07Ax1bLc+vFJLAr8LtWTPlM/BE7GlSr4gE6uUwjm65NgM1XzHl +MlkC6+N6qjKuzEDRaZ10XWkJTDgRflM2dwZO3qfkHlaSwLPUI0o/z86AitLv +q+1GErjcx9L6qvMMpPNeq4s/KoGbjno7qvHPgFPb0reVrRJ4na+1KOH2FAhH +ZxVAnCQOUjLu+Fl/h2MLLjtCDaTQecMeSe2ZMVi8y7dr/J8UJlSfLhfaOQwO +XM+fNjauw/Zbnr1Nv4fAZfVTvfxj0vhhKCAsYucHSLC7wnVDVwbtbROX5c73 +Q1lSzdaz+jJYr9R9Q3usHzpaO1L2Gcng0ddtTf+96Qdebbb0GlMZnPEWV7Gv +6ocYsc16vtYyeCdldX/X4X6I7P8auPGQDKpr0nXfDfTBMUelr3czZFBBX/Gy +f8sbcHW+1fZ4UgaTLCR2rah7DaEywhOvZmRQ8hytilL+GtI+HRcYm5XBPZuX +P7HIew2NrkYOQn9kUHVK7m1zyGuQP9Q9fohXFu+yvCIttF7Df74TqwXlZNGu +Kjzq7p1XsP80fZfbTlncV5BS+Kz2JThfvfRpxV1ZDGWQ9O629EBLW3PJmnuy +CBQ281hZDyh/Gz0q8lAW6/fp/rJI7oH5jRvn5Btkcer3LEfPoQdy6hsEDbtk +0Yj6TE+a1Q0vB4Yw6KssfkG+52OS3bBFULH4k4gcSmrKxW+L7QSV8OuH7x+T +Q/7aZs/UvHZI8WtVTzwhh50MxtmRs+0w4/p5wfmkHMbx5/BZ+bdDjdm6NO4o +Oaw1e6ZiYd4OhoKpD3acl0OJ7Vvv8f18CpZXQ/iGi+Tw1nJXavKep3C0w+wG +6QVx/6ZGbleFNrDjD5qrEZUn9v+XvQLfmmHZNkaXIVkeKy/V2z7tb4ZbsZ8u +tYrLo99azeqU1mbgW2Zp/kZKHmXPa4bvvNIMT+YUs2flifFam6Ecx2ZgjPRp +aGyQx09BEnbU7iZYbNDzu20mj4PtP+WmnjRCyfFlI+Uh8sjYPXvEuagenkvV +1ImHyqNm37tDmnH1MN/gmRYbJo9ZjTaTFO96sObvNnALl0fXyGgHM21i/FJO +hsQZeaQ1814v7nwM1h3rMT6ZmA/ON9yafwRzUvYXD5YQz784IxDrVQcWjRW2 +cq/l0Ycccj069j4U5Bj9ju2Vx/jXeb8oAfdhyuflJdYbeVy1497QG6f7kCn5 +6/vDt/JYN65lGaR2Hz4EmcTZfZTHhxcChhI+3AM/2kBdwrg8/jNZdJPbdA8y +EldQfywR81+TNoxarIH3dq6/OtZTkH/rijuS96uhbDp/tfUGCjJsnr2MLKmG +E4l98r2qFLTSn+39mV4Noo0Wlh/VKQiSV7dI+laD9XrtK2xdCv64KiuiRa2G +5mX8FlJbKGjqFFN2I/sO3Lh1t9DbmYLpTVXaurFVEL5qpZlAMgVD3QdyhZVu +Qge/sXNYCgXNRRfme1ffBNG1x4OHUynYUSKnemumEiqFvhbVZVAQxcfuVdZV +wqBUw5JnHgUjW03mXthUgv6GEw8aiilot8PoeUHkDfhtO7Y+sI6CBZRdrIbJ +cthiJ2v64REFn0Re3BHcVw5p9nucttZTsFagj2NYXw6MfS3nZBopOH7i4CPh +5HJwOHh55FkbBS9b2jGebiiHeyEOlxVeUVB5tLreILgMjl1sF34zRsGr0eEm +/629DobupXku3ygYselPm+evUuBhxsqOTVAwJJV2f8V/pZB1b7Pyn0kKvkvm +xCZUlULtq3oT+R8UrOAUeZbalcKvlTUBPlwK+HC5/V9K0TUIO3blOY+kAn6/ +8bE80aIENhuctkuRUsDTH3yf9WmXAD/3/vfi0gpYHqJxU5tSAvmp60aV5RSw +1X9doObvYqiryPm7k6aA1PLix9TrxbA4lKRSqK6Ab2q1VHtWFUPkjrBEbQsF +jBc6dfj2+yLwM9v0+b6lAvZMXClu7iiC/UZzuvo7FPA2c/2FsXtFYLTh+Ijx +TgVcOZ7p45lZBItrAnGbvQKejxT7qL2jCE51e/1yclfAmMhvjmtbr0CopaN7 +1EkF9Jf0a3AKvwxepuIPucMVUEfjGm+V82VwNOgXjI1QwDAa7RHV6DLorrer +T4hSwOH0Vo730iX4xb9TIjNOAV0FRm39zlyC451bn1/LUMCUlSJvGGmFELRd +V7+rgoh34dPZiqaL8F8ZJ0OzUgGrTNle2dcvgtWqW98v3lRAs+Ad8XnJF4He +Ti30qVLAr0YUibG9F2FwizCXwD0FjK3mYRTP5sMWnGzb2aSA1uEuKjHr80Fc +t9i2/60CPhnMHbGvzIOYnP0Vxu8U8KPvo+dy2XnA+Sm5/Pp7Ij8mj/1SRB50 +16TVnPiogB0nzGYWbPIgSiNSXPKrAkqFrFSb+5ELExv2ftw3pYB/kyR+f9ic +C4+pgkc+8yiizXvl6c+T2VC6LUjNi1cRpWt1F0+9zYZUn765qZWKmMw0rVFp +ygb3motxi/yK2G58oOtVVjas2sIoERdSRG2DAirDKBt2e5j8t0NGEUeJPcNJ +z4KJouA9ddqKaHx1p6mnZSa8aeuXNtFVRHeRnWU3dDOh/pvecPsm4noROmkF +NRPS1LmC+wwU0epFUt7sYgboNCWlzZgoYhnXb7f62xkQPXSti26tiFm5gi0c +iQyQkBswyfRURFWDxIkD82lwukJ3NZeXIvLt/VOp9C0NRrVz3/gcUcTFbpne +pYE0uGtlf9jcRxELRf6QBh+kgfXJN0nzgYp4LRBbtoelQUzfy7cHIhRRf0DQ +eWw+Fdjnn/mqZClihlMPTVM2BTp/111oa1LEqJe/V1fcTwTH2j+a61sU8d7n +UM0LlxJhLFD/eVorUc8nr+ovxyYCz/eH3M7tivhApK+EszsRjD8+8OZ0KyLv +xKuDN9kJcKfpnpHcgCJG8/CrH1RPgLzE6s+hU4pISw6eM2+KB/pWzqlP04q4 +MfWd9J+KeKhdrkHewlbEyWC6eHNWPLwOv2Mh+EMR38YeN0rzioc1/lV3r80r +ImvPIz1FoXg4vftW7GseKgYtzPiLeMaBp3QFU2UdFZMs+bFANhYCC9M1qqSp +6OtkU07mi4Vw2TADLVkqdsRfHi+djYF0+W07DClUFPx9OX3VsxiiX0YDrJSo +GKiRsf75sRgQ3qDwwEeTimU1rx/YvDwL9Ub55jctqXjKY9gqP+cMdDyJtlHf +QcVe2zMxpWfPwGs44lhrTUWTLM5CW8AZGDfZdLTeloqtgy3OxpZnQNi8P7nH +gYrXQ293CS87A17Wwn2THlQcr+J+phcQDaIHEj1Uw6m4b+HfgX/7oqBgq59f +XgQVv7Tu4vW1igKq2q4w7tNUPPJ3c9A3wyjQWiaV2h9NRVqSs4eAbBTYFZfX +RcZTUfhPv41A82nIHusQepFBxaiBFVd29kYCOWBlo385Md42cDOPPwIuOX7v +fFdB1GuifB97KhzoJi/6TCupaLrZweJgbzjoCOd+F79NRXFus/i8gnCwr6GL +N9YQ8VcefaGrFg65v838SI1UfORxzMPQ+RRIRMdI3+mnYr7JpdMPnoaBtCop +R2+Airw6q+6tqwwDyuBFweZ3VJRvz9udnx4Gytp3uXs/UPEdH6/dN+cwMPj2 +efzHFyomOmw40PUjFPbbQu2maSouKu4vjmeGQjHlz47GlTScfdxxlV4aAmXP +Y9u38dHwK/+rY80pIVB5SsjkFT8NbUK/uoacCIGaPobWl7U0ZC66UunbQ+Bp +goMUjygNpV1eVFydPA7j7JrRrfI0PMFcm/tH/zioNvuffrGJhl3Pb3yPHg2G +qv65P0b6NIxedBuw7g0Gje+nQyoNaOg1ts9EtTEYtEXTfBOMaTh9wcyEmh8M +hp5V+0y30FDetX3Nd+tg2M7P1r1vQ8NPxtXX3zwKgoO7gmYuedIwMeP0RNHV +QBj1/OO91ouGzavRvDA9ELxOnRk7dYSGce/TeMujAsG7JOOTow8NYx8vD2Hv +D4SgX9XdwkE01Gyy27dFOhBO58+WxUXQkPTV9NnwhQDI/3LMzS+Lhoyfj79Z +m/jDFsbHm33ZNBz2E5V/pOgPk75mfwxzadhvAdtMef0B58UyV+fT0J7nK8/1 +Lj8YEbzfWnaZhr3Hzts9dPADNaN5pa8VNMxcbvSUc8wX2nIjphyaaOggaZTL +1+INfh9H9BuaaXjs2/nB5jJvkFC0jqe30tDgv9SfWSnecPSWrPzPpzSsFFXd +cdbJG0htDbYZ3TS8ZdXFFTd7FJw4y2q73xLr96g0QFD5KMxYxZ0ymaLh29An +UTllXkB2yNFpn6bhq50nr5ileoGBWynbik3DKZngWoEQL4g7/vSw4w8ayiXy +7Jky9QKZS7x2/n9ouEprPGFo6DBYTMepFPLS8efI9LqTcoehJD3+429ZOrLY +Rx+/unUIOi/m5kXKE+Mbd5NS8g7B9LXru3kU6KheaKzvduYQ6Ne1PxOk0bG9 +4VG1pf0hePVl5T36ejq6unTcVP13EJY0z6XY6dJROqv7jcSeg+DYfw6qbOh4 +QPvI4BeSByxszV5cZ0vHxcpckYIld7j0sOhh/C5i/I9ftyfLHYYL6jQP7KEj +9bNRhFqHOwR4sJQE9tHRdukjf2aUO5ybsSH5eNKx8EFJbNwPN7jPL/5ZKYKO +PQdHL9wfdwWncMVLmZF0fPzLpCJ6wBUWJzfu+3eajvNPakz2dbjC5lfb+vrP +0PG8QGKnYZkrPM89+Sz2HB21X96+ft/LFUapn+58zaRjav3ivX8DB4AM185c +rqDjLM22aOqvC2gf33uLWUlHurqI79NPLmB3Y+37uzfpuM7uXNqTBhfIFA9R +76ii46RjnqPgGRcgzZgPzdyj47sEDcuNq1yAv2jcaHMLHX1rmJJWUs6wxK0y +PzxIxzI/dbl1e5xARm+I6v+RjqNn8k426DmBoX/WzvlPdMTDp42iZJ3g1ODi +9bVf6JjrLhNjP74Xft/tsdcZp2MET9DXXRF7gXPQvyb+B3H/n4iWwEpHGH1a +7a+8Vgl5DQufx8g6wAbVrT43BZQwrfqzwjSvAxzLHvRSIymhXuXDM4HT9sB9 +kMddR0QJb1+wXP6k0R5kltnbbZZUwpr5ENfgg/ZgZzC/yYmmhJYmapf1q/ZA +y23gTjQi5ivtrM1ztAN+8TdLa0AJ+524h/pN7WBnpNdCKirhjVP5Wsob7eCT +VfqPbFMlfLyyjZfEawd/vn0ZLdquhF2vHvzuq9kNGtS4rod7lHD5+6jrm8i7 +4Uped9Y3XyXcOcFF7RyzhYOHXTJ3+Svho8XF30/6bYGhM5X+KEAJV7w3WNHa +Zgt3egVTk4OV0PvkeOxSsS00C+xOUA9TwgO//pzSdLOF4Zh3EWExSlgqo8Gf +9mknMAJHPfkuKuGZ6Diy0zMbYMGJQ0EFStjIrbUkfsMGqgRWHRwsVELzj/FV +nCQb0Ktkut28ooQ+z+tXLu20AYsxn322pUooVW5x7sh7a/BxmbW5cEcJs89K +HQrn7ICq7Vx6zA4lVMud2DqoYwUzHzaVVj1Twl1JR78/lrQC9YBAkU1dSjg7 +4XPh8aIlVOd8mTR/TtRjne4FsRZLqPnaevXgGyVcJxjfrWxrCQ8iEtZcGVJC +LU9KSnuQBTTdER4izyuh425Nxb+d24DbzHLHpT9KmLT2va/nnW2weeBsHW2R +GN+/W24idxu0Lv3I0vqnhPrmP7fjoW3w1PLt9l0rGGjum9NJXbYNOkcu3k0W +YuDLipZN9422wmtJWjyPMgOf39XbtuOZGaSJOv0KXM9Akn/kVusaM7AWTD30 +nwoDT4s7R3tcNoNOnnnTuo0MjE7jd+g8bgZN091cAdoMfLbmoG+8ohlUtR07 +OYgM/FezpuDWmS2QEtjqW+3AwOJED4+NNqZg5TP/QW4vA+PYeXszDU2B/7Cq +VbITA4XVBYz5lE0hzjlP2cuFgZIH7iUprzCFiK0+YzIeDExzTHUzebwZfGRE +3RL8GLhJoEDxzobNYPHMw841loGhou0UuowJqP0MzXoax8CNXUWn/6wxATFK +yhuVcwyMrBakflpEGAp9YDefSMTvxrWy9wNCCGPtnow0Bl67caMksBDhavy9 +Pa0XGVg08Gb0OPEZumDG58CoZmCy+KfRY17GMBQom5tyl4GLFNWDDy2N4Wmh +5tsfNQxcsceBV3KjMWT8dHFous/ADFbrLuYvI2Bcq3Zwqifm98ct52ONwI7H +2TGpg4E9QacuGJcbQmXzrb0znxj4Y42D7YPlBiBw13vV8SEGHpl5eW7luD4E +FDPuz39moC9HhxLcrQ+aMVdFl48w0OziBa7L2fpQZ5bzQuw7Ayvv/dxlztSH +Zx0RZgZzRP6DP/3r9ujB6HMr9ThBJqafu1N7olkXtjXwDfELMdGpKXJUukIX +Km4/TUkVZqLOmMXawXRd8E1DVp4YE/WmbvYXuenCD1ut6zfWMdFO72eGPbcu +LO9bJ/NKiYlXztcNmG/TAfnBiVXSyEQti9L5vBEt+KdR8jDOhImRTM2dF19p +wadEl6PszUxkVA21VdVrQYH+y66nZkw0kjzfJpqjBZL5tSmBlkyUpx+Vatiq +BcJ7o0Tb7Zn4wW398eRbmrDirZh8kC8TKVnqm3ITNGBY9cXLD35MXBW0YD14 +QgNa485Fbw0g8mnxdFbz1IAzOgtfpIOZuHR6h9RaUw1Yyh661h7KRLOGqQOp +f9Xht92N9TIxTHQ01VAvP64OE69RtyOfcO3xmbZANShlWJJdCpjIZfCIqeuq +Bm6Re36yC5lYfjmD8shaDQaYR++uK2KipdiKv3/Wq8HTqMyN/teZmLlmeUDV +841QpDqqRK5h4mzXiP10syo4Jp6XONjDxBqtrC1JbSogOpQ99/s5Eyfkt8/1 +lqrAC+0r/ckvieflrQkxPKcC5p9rsu73MvE+zwdLf0sV0Nz0ibT6PRO7JBKT +HXvXg8CoGl/1KBO3G/07t+6bMnQaGIybjzORN8dw+EC3MsSmm7UPfmPiWnom +q/m2MiwaOsWumGSiSP/d6OEQZZjIPLts7yxRj9AT6hm8ylD6LXlo8gdR/xkD +r44JJrhBXsOZX0z82zu5XfoFEwYmKiMq55k4fjElVTqPCZl439lkgYlWOkk1 +HeFMsM5pMuhfZOJBtyzeDDcm8LO6pLyXiOtVz3iGmjOhzaR//t8/JraxbGtP +rWfC/wDVzC1Q + "]]}, "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, 13}, {0., 1.1432124336654814`}}, + 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.992081440622738*^9, + 3.992081456629139*^9}, {3.992081512939665*^9, 3.9920815640713673`*^9}}, + CellLabel-> + "Out[219]=",ExpressionUUID->"8dd75db1-4386-e741-8ba7-4520f42d767b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l111", ",", "l222"}], "]"}]], "Input", + CellLabel-> + "In[220]:=",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:eJwVlHc8Fe4Xx+1KUuleZN59FZGREXVO9qiMiAq5KUX2zighJMnWUAklFV9Z +ISESSpNsiowy7lWkSPXz++t5ned5vc/5nPN5nod8xMvqGA8XF9d1bi6u/6/2 ++hmruLgIqGM7xu425sAnXe8OFR4CbtAJu0pbjp13md48xkfAM8VZl72MOOC2 +86/ay5UEdCrgjuc15ECwpotTxnoCptAGlah6HEhTUH+kQCXg7TnDRdzBgTZC +59EDhgQ8/eEj9/etHLDYUKyUYEzAUiGVp4zluH19/GKtKQE7722rPajEgV7h +nUk0cwIOJKZ41m/hwJeVdx5zbAlo1bI3PXIzB/j+BIjEuBLQZv6Y4xCVAzqj +xPqSBALaUVoGeUU58P3X4yHCJQJq2kffW03kQIHQEd6gZAKialOgCIEDompF +htoZBCQeWxSSFuHAt0jDV403CSiiKUxkCHPgDimot6OEgPRfGysFBDiwzr57 +br6bgOVfT+/6PceG516nRQ/0EbDs88zWoVk2hEfRNB8PEHDmSQLX8+9smLjn +HXpmmIBiK7h0EmbY0LSwkmflFAGjpbr5V0+xISRTa+3GfwQU/XH/+9thNoy8 +v7pJm07E5B9NXoFv2LAyL6nfn0lEUQ/NGLPXbFAIiLlUtImIDovFkbKv2BAg +5vuDrEjEJwGjm569YIOAvcnTlRpEfOx+SZTrORvkRn/adRoTsfq5U9KuGja4 +/7SO83EnomlhrOxIPhvmJNeO55cS8frqmH2eoWxoaZbz6Cwn4g4+P4+lU2zI +8tOd5askosffr5rng9mg9zLgH6uGiBFuup9uBLAhJaRfTKqJiFXMDfuqvdiw +tafAOKmTiPPxP3qLndlwMkP/XvACERvLZD+nmbJheF2IhwmI4prVSd6LG9jw +9d1h0/xdojiRbyjEL8KGmRQDJr++KMqY/Ghds44Nfwjrh+qNRbEvknl7oxAb +xDfetda0EsUUd9ViCT42mJM7tZnHRPE3zeRp/ew01CirCPJfEMXTNv2c5HfT +kGk1cae+UxSP1QTGcGKmQeidLHG+WxRP1VtdyY6ehghzmyj5PlFsi5ctNY+c +hhO76w9nfBTF77Zy8/nh07DdMEPc/YsoBtQop6H/NAxq6caLLYriF0MK93rW +NDDIVz08pcWwcahAgq41DeUcEzWpo2LID77/vRqeAvsos4UIFzG8bKNcWflx +CvjE9tSOnhBDn7PfV97qnwLrnRbG/3mIoer1qFDXzin4nrDfXjdIDJu85Px7 +WqdAcbNz9Il4Mcz9dFFRrXgK7h4N6ygrFsMrotMPW0Km4FpPkf+eP2L4njo2 +I7ximTfqEMr/J4ZGqtcPWvBOgWnFQh4XjziGxzY8Sfw3Cb9S9D+UCojjnXlH +N55fk2C9u3ebxDpxZPPsVW36MglCdfw/xyji6P3BQvtR6ySE5dmfijAWxwMP +Jch65yfB0UvwdGmqOOorpBD/+zsB1Gtn8kfSxZFwXE3bd3ECvjyfe0u8LI6u +Tk8DVOYnwEfmIzU4SxylHkgx7k1PQPSr0lad2+Kol9xwKLB/AgrkHYjPK8Sx +vZ3b6WzVBMyN//egu0ccleJ2HrD3mYB4J5u+P7IbMUjjtwF391cIv3F7Urpy +I4r+OSxCZX2BHo1Rc4qhBKordnpdezMGIuGS4YfeSaDT7yMmDzeOwoa1tg5u +JySR+tlRRVv0M4QtnU12+CGJXDsHudWlhqBQvSSYkSiFL066gnP/ANRI9cjR +aNLI/XCd8Mq7PaDqyFEQKJbGnVt7c4OnP4DvlODIEyMZ/FDWIreg+h42dhI5 +Bz7IYNf6WzEOW19DnBCj8KWnLEq+ybj+fl8LrJfTNWL4yC6/z7LzeTtb4Kqe +41CEnyz+rdh2NXpTCxSGZBDVg2XRoiGC5PWvGd5/ETidfVYW596viZu+3wyS +TeN7A9JksT63t+niimYoCi+YkamWRX+xzb4mrU3gFiQqUcVDQgt9Rvn3gEYY +c25Tes9LQq9KrzsuxxqBZRFpMMlHQr86Ibkx60aw28T2ll5BwgH+2bYVao1g +0NfUfHY1CVdw2Fs/fG8AEgQEmBJIWCTf9jXNtwG6BDre9tFJGM3zftuFkKeg +n5Ec+9eYhMoj/2Yq9tfBgYuFxkqmJJQN0vZ5r1kHntGtq5zMSLhZRCVSQLIO +LvtyJzzdQ0LTF7nUyo+1MLXXJynaioTM+7Jc6FYLaSssrwjak9CtvHa4M+oJ +fA5ed1/Ui4Tlhx34nrc8hshDl14rppPwTcQBSm1GJexV3mdnlkHCusQXVUoR +lSCxQmz4eCYJeW+daS91rYSHJTd+ZF8hYVfUvNOsTiV8WlUkteEGCY+IVd/b +O/IIdla2uf28Q8KqgUNb3NUfwW+C4Ir6ShLeUBq+MDdeDv6vo8Gyf1m/7p43 +reGlcDm5V+XEAAmveGvWfDxZCo+ttzLODC7rX2XczHewFHj6+oQKP5FQk1wm +HKZeCknjKr0rR0m4ptdFT2amBB5wDfnXT5Pw7kKHpZxLCYyo7Lin9I+EbMmn +XEIOD8Em8wdBmELGs1r895vHi0Dk2MNSHSoZe69kffdpKYK3Kh5WJ2lkPOAq +tKBVUASmr0cutTDIaNY1N0Q5WQQ7+TsEo+TJqP5qINJmphAYfiVcv9TI+KLR +SGYTVyH82us1NWRExoOOk0KjavfhqsDXxnIPMjqG8B4smc4H4dLd8m89l/OF +KS5UdeZD5OHilAkvMt60SEzprMsHt8oglqwvGfnvX/Lam5IPWm4C/+ICl+s5 +wry6Zj50v6Jutz9DxsOfjvj3x94B0XTHYp5kMppQN6jxq9+G+F0NYtIpZPRo +Caq+QL4Nf6fpZzRSySgVaCVPX3Mbxgyn97ink7FFXPRi0kgelP8KnfxwhYwp +/U8zjdLywNr+CqMgh4x+vkqUTT9zIZXakWVeRsbPB+yG9r7Igeze6/+dLSej +dnF8cGJFDhQlH28orSDjOmtuweGcHGj5tzguVkXGOI2Ed89Cc+BvH1n10xMy +zpx8yw5UzAG3NK9W72YyLnoOu4dn3gJd/tXzyb1krD8SdTUjKBssajpWPutb +1iM6d1HFJRsc/G5IzveTMc9sm/4n62wIHlLedfAjGRkSjeXeKtlQ9MQugTJC +xntE6+Lm/puwMfAOpXSajEeJfDtWtd+AmbFd5h1cFPyWeW7V6e4ssLlw/SUX +DwVV0ut+BlRnQbXSgtEWXgpeH1/QS8jKgnPBxRjDT8GH7xSiNrCyQEJQVkVT +kIK7Kb0h5yevgd6WJULWBgp+LjJOXOS/Bhl+Fb3ODApGnJybV7K4Ar/FRGyT +mBRkNxfEPNl2BZxqPNpr5Jb5ou0CLpJXQJ6f3kaUp2DnKRGPFeOXoT4j9Umz +EgVlUlgrzp+5DF+rvLPltSg4qutC8ynPBB0ueZdZMwpukVGSYKplgF2U4v3V +eyhoISm06COTAf4CKjPUvRT0rTpw7d3KDHggpBVibUHBd1evdL4eSAepjUaJ +5dYU3N9rQa6LS4clZeeKIAcKNgZJNbsMp0GN8zWBJU8Krvsz5bovLxW6x26Y +EbwpCLszOCLJqTDnmpOk4ENB+Vap+ZHwVFDwLpBw8KNgbkH8rnrbVMgKe6RY +G0TBv2kJPy2FUiEsvX1/RAQF27a/1G4PTgGd5tX5fCkU9HS2/9jrmAzfrQMy +1VIpmJFz0+bg7mTIHx6MPZpGwU2heZuntZJB5O/DE88yKHhzqClnNzEZvqjZ +bY6+RsEnz+kPZtqSID0nr5D3NgWj652O1kASsMN3lPFUUvC30Dd6/bFEyFud +n6dSRcHZ1Yt39xgkwoEr69KPVFOwvYtu+oeWCM/KPgc01FDQ6uXMoYaRi3B1 +8rxG5FMKhv/q+vnx2EUwOtBZzf2Sgo79Wy3MPBMgW83rKdcgBWf8fIR/Z8SD +0K2IEKmPFFxxP7HQMyweTq1JUdX8REGPn6MBS6x4sBoru+01vOxnwh9ply3x +wHt58fzgGAWtjw+KeDWdB5ff56xqOMv9vbFar7sYBwoNWZ+DuKnYF8r/XT8w +Fi4rFmWl8lDx367W1teOscB/rc7mP14qxtLOv/cyioVBv+HmMX4qJrXFSP8U +j4VLdLkHNoJU/FxaIS/+JAa+x5X6q26goozU7j9Jq2Kg0vwFP4dGRaIfyLeU +RENYgYccP4OKz88mpgbeiAbkXW8myVzOp2xZrRkfDS0VtklGm6h4b5vEr5+s +aOiRHpXI3kLFyJH3m51EomFx8p+SpToVxX/9tW4OjAKduG0HS42o2ChawfLb +Ewlcw91hrcZU/ER67B+oHQnPtMNufjShYm/iqjUXNkXCbk7DyOrdVCS9SYj/ +wh8JDvstvI5aUPF009tx37qzcJp2Mpp4gIolAebvK7adhbr67KIgNyq25JEL +LyhGgBT9Xtjtk1R8ycX6ZSAdASHnS03b3am4cGFFoohQBKhbPR9T9KIiYX/D +5WftZ+DB50mZMT8qSqsUrizbfWb5P9a4ZB1OxXHHfCU1g9Pgv/uVl3ISFa3G +j2fWmIfB++LOHYeTqWgw//1pmHIYKBE/rb6YQsXuMQN+hw1hMDHwPf9LGhX3 +7RCxCO8KBZaX+KebV6j4H8HeSosVCntTnC2Ec6noLJBvFxkSApu6F7ZOllOx +uXX0xqnGYNgpeb+Z7xEVS3dpXGq8FwxWjvaOMpVUjI6S4mGkBEPISO0Fy2oq +/uq+t1aNFQxtM1Fjj2qpWLiwXsmXKxi8VwlnRTdT8fih1bMsvSCo3E5ZIdND +xcBNYZVevQHQFt5+XaOXiktCEfTrzwJgqD5azbKPigLqCfCpKAAEjcZZ0QNU +PJV+k54fFQD2+x7UTAwt+2Nu57ZNMQC43NV9H01QMVv/xPVdsf5gfN10wGKJ +irNC3DPxxn4wP8GSjfyzfL9+84beVfWDPM1TrNK/y/xWo/P9Mn7A1ZE/SuSm +4YxpxJvYH75QKcjP7uWnoZVm5/Evub6wKbju79G1NFztL6b7hM8XBPepkU5R +aJgl/4ol2ukNldlmR+5Raah+a+xaV6M3uLCP5PXRaFgQPR3z4KE3NJxPltvJ +pKGDxQXJ5IveEFLP3sqrQEM+C6t5XUNvmNhSsOviNhqGnlwY9wz0gpcrZZxv +GdNQ/u3+hf+OecDWbQMetSY0VBwhpE4aeUAaKyu4z5SG9lmJ2ww2e4BjtUQi +cQ8NffpCpKw47vD9pFjVeUsaHs0TV3oT4g7ib9at9T1Iw2K2S5FO5klwSed9 +rOtOQ57kcTnpUVd4+bSh6bAHDf3CC+qGXrjCVvbZt2Gey/XP9bTXF7vCoiHX +WIU3DQe/mQq+DnOFi7+W1skH0FAl4dYrsqgrlB2ad9lwmoY5EtfmMvecAB7K +V5GRSzQkCvySE37jArXa22N/J9HwbOhsztFKFwi1ufBbJIWGbidVkt/dcoG5 +uC0ju9JoaMC93pft7wLjHJ/ym5dpKBoi+1FZygXanizaHrpFw2TBjJA2z2OQ +fkDo+vsSGj7O3nn5CfUoWPk5rJ8opSFJOn1f1dqjIHyx6Bx3OQ21tviPt/x2 +hrh6C8+tj2h4be9FU2qHM4Qw0yHxMQ0fpt0cbDjnDI4/pIdNntHQq/r+mayp +IyCXrMR8+oGGUXtDAzVaWHC6fMxwppOGa8xBY3U5Czp6rrvIdtPwjFnl5dlb +LIigCN0J76XhWq3wUe4wFvSUfqFt/0hD82uHdokosyC+8xZleQsD+JwYnBtO +MCVJkLn9e9kfNcIzYZHDoIsvd3Qs0TC+OdQgYcYRLh+NdOD9S0NZAdeeLW8c +Qb9wJovFRUf+MbzRn+AI13e+kpThpyOL3eE2ssoR9rJiNmYK09E46NXqMEEH +eHjnF+E8mY55Np4uL2mHoLbA9k8uhY5heqUQuOoQvHhQMVpLpWNvvnqqDvsg +jJT4V8zR6VjgMLtdsvIgiNfN2DptpqPNX9Fk6T0HIaLry1UNVTpesRN9IxN2 +ACxW9pDG9OloosMutp+2BYfVmqu4DelIXZt6Wu+DLbgJZ36TNKJjAy0hTveJ +LUQTbBosTejYvsVhJu6iLVSS3jk/2UPHmO4ZdzUlWyBptd5J209HeNuy71vg +fuC4VinonaBjoGGhB0vMBjKCTtcHuC6fH2Y523PZgM45Peu7bnS821ni7f3V +GuKzX4Wu8aDjdgX5Y58fWwOta+hFlw8d15La6r+xrMFOX9DVPZSO2RMtS5dL +9kG9zKHb6Yl09IwZpjgcswIXBZJWyyU68r3wP2RsaQVrto+2LSbRcQcx/JTJ +Dis4aOM1dziVjrYhdQIXiVYwdyFKb/NlOhaz7N6JNluC3ML9odpbdJSe9e4g +KVpCUvuS9JcyOnaOvF3rs9oCEl/vkyRW0DH+nkFs2Jw5JLTeE9d9RMeftuee +ab83h/N1dhuyquhYTT9PkUs0h8j7ZSstaumYaXNNrmyFOfhHuc8+aqajrH9P +YxD3XrBT7W+J7V3u13nPvbvCu2G/ourzsj46ygzKp6bNmIH1pvjGof7l/Jfe +l2a/NwNLWc1a7Y90ZGa/EdmYaQamq9NKOZ/p6C7z9UIM2Qx0PpvdsJ2moz2N +l09DxxRIqY/9mFwM3KGbvEYwzhg+uFdrITcDcyJ/60R4GUO8YdU/Ox4Gpu20 +nBW2NYa5hYoL8XwMNK+cSglgGEOLU0nu9EoGrvP3mT/63Ah8FAvaS9czcET7 +GeuRoBE0tGaoIpWBlbP3FePyDCAoN33BjsbAKbdXl4cSDUAhPK3Oh85AsXZO +vsUpA8jYmmKWy2TgAZt+R6+9BuCWedFZQIGB+3Niuh4s6MOGY9GpbWoMfD6p +EEq01oejXL6zdoYM3D3pzC0srgclI51Hzxsx8JaKJ8uOVw+4W7U7q4wZeFrV +Rq2KrQs3kvmrJMwYKBFw9d2TJl3ooVw53W/OwJ+3h4ze+uvCXoP6VU4HGDh/ +iv84f9cu0IwXJh13Z6B6nHXZ2vsIMZ5+yZkey3pCPhj8vozwwaqbp8WTgYya +bT6LMQi+kjmjcj4M3FNbj6rOCIUPtt2fCGDgjW2agQlSCJQ39uqeZxgorN6o +k0EHECLc3x2QwkDjgSG+3o07QKTrUUxyKgM9cnfudlrSAbGrz+oL0xh4W2Hd +Sb6POkAhDaqNZTAwvsOn4naeDmgqrJe2vcZA56cBO02UdcBZP2haM4+BBk4i +xovm2lDtr5e4VM5AgqHLmHaOFtRrWLSIP2KgywmrQf04LWhatOfZVsnATuVE +0glPLXgbERjoUc3AVpV7G/9s14KxhALHwVoG5vIZLDl80ASR22uV6puX5+tk +1DIirAmuH/reRPUwcKfXE45Nmjo8Pxfid7WXgaXKrHNfw9WBpr5R7GEfAy9o +dTmkHleHwYz9joMDDHxhtXB6k7Y6WNm9m9IcZmBZM0Ha4fM20Ol7voo9wcBH +Gw3GX2tsA+Ghh3p2Swyc/Pbnp8mMKpxMthj3/MNAqSWoDutXhZZdnPhzfxl4 +f+4kvbFFFaJyFN6XcDHR8eHFu/G3VOGXc77TGn4mKr+I1OexVoWhsazwhjVM +fPdjhh5VowJlU7GPFGSZGPupc9bkmjLcz08QOERi4oTZ8T+WccqQcyTZ5jyZ +iRG1igGeAcpwqfvq7CiVibyyZ21HzJXB7Vmh0k05Jl4JVjr3lF8ZSFnt+etV +mJjR/6ZeMWArJJjJXp7XZ6JL0+3wmGeKECVAG6cZMrH1haWjU64ihDyVU99n +xETf6YZZh0hFOK6h0vGfCRMrz9nlNqIi6FIN1rnuZSKjQ3hSrW4L/Fp0i+uz +ZWLS3THzxAYFcL5XEVzvxsRyg1ymzPBmWKfvnNR7cpk/LrhetHkz1A6svTvn +zsT2PDPmpgebQWK9a5ecFxNDl7Q9sgM3w9sgSfVkPyaqhk6ceCu0GXQMImZZ +YUysri1pkdm5CQifTDx5E5fn866xp66UCQ2n5s9JX2Ki8AXOqYlrTPDakHtd +I4mJZzlb122JZsILw6W2kylMvDFQVbtgzYSIwiL5jgwmdlpejC36yYDpkA1f +824yUf1vsqrPLgY8Jw44Gz5k4j/pQZHHozQY899uerZk2b9To5ZGr2kg0JG5 +taaUiSe+ZQ5NV9DAKMXqj3IFE79kC4Wfj6NBi3BLhvRjJj4beO3zU4EGrStK +W+eeLfczIrs5PYQKbQtxSrndTFxl6bSGKEeBKbsx4mAPE9fpr7xRtoECQpV6 +S+J9TBSQkBc6+Y8MewL/tiQOMNFP4qiEVBcZXn/3OxIyzESz66c0EmLJ8GbS +Md1yiomndOMzE6dIMGNaE5owvcwf7NZI6iHBunsbjzSzmeiV7SmX/5wEFic6 +FHd8Y2LRwNerhFskeDti0iI3z8S2aQXFyf3LvF5+kfPPZb941lel6S/zuXzp +N34xUVeiv8tKhQSWrDoW4TcTtf2/+gsJk8C3XsrYfImJik1X49f+koUU2RDF ++D9MFPlccU2xQxZKTncRmv4y8aNMKyegWBbeD6j9/vePib1qdw6MJsjC/wAP +jGCP + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlHc8Fe4Xx+1KUuleZN59FZGREXVO9qiMiAq5KUX2zighJMnWUAklFV9Z +ISESSpNsiowy7lWkSPXz++t5ned5vc/5nPN5nod8xMvqGA8XF9d1bi6u/6/2 ++hmruLgIqGM7xu425sAnXe8OFR4CbtAJu0pbjp13md48xkfAM8VZl72MOOC2 +86/ay5UEdCrgjuc15ECwpotTxnoCptAGlah6HEhTUH+kQCXg7TnDRdzBgTZC +59EDhgQ8/eEj9/etHLDYUKyUYEzAUiGVp4zluH19/GKtKQE7722rPajEgV7h +nUk0cwIOJKZ41m/hwJeVdx5zbAlo1bI3PXIzB/j+BIjEuBLQZv6Y4xCVAzqj +xPqSBALaUVoGeUU58P3X4yHCJQJq2kffW03kQIHQEd6gZAKialOgCIEDompF +htoZBCQeWxSSFuHAt0jDV403CSiiKUxkCHPgDimot6OEgPRfGysFBDiwzr57 +br6bgOVfT+/6PceG516nRQ/0EbDs88zWoVk2hEfRNB8PEHDmSQLX8+9smLjn +HXpmmIBiK7h0EmbY0LSwkmflFAGjpbr5V0+xISRTa+3GfwQU/XH/+9thNoy8 +v7pJm07E5B9NXoFv2LAyL6nfn0lEUQ/NGLPXbFAIiLlUtImIDovFkbKv2BAg +5vuDrEjEJwGjm569YIOAvcnTlRpEfOx+SZTrORvkRn/adRoTsfq5U9KuGja4 +/7SO83EnomlhrOxIPhvmJNeO55cS8frqmH2eoWxoaZbz6Cwn4g4+P4+lU2zI +8tOd5askosffr5rng9mg9zLgH6uGiBFuup9uBLAhJaRfTKqJiFXMDfuqvdiw +tafAOKmTiPPxP3qLndlwMkP/XvACERvLZD+nmbJheF2IhwmI4prVSd6LG9jw +9d1h0/xdojiRbyjEL8KGmRQDJr++KMqY/Ghds44Nfwjrh+qNRbEvknl7oxAb +xDfetda0EsUUd9ViCT42mJM7tZnHRPE3zeRp/ew01CirCPJfEMXTNv2c5HfT +kGk1cae+UxSP1QTGcGKmQeidLHG+WxRP1VtdyY6ehghzmyj5PlFsi5ctNY+c +hhO76w9nfBTF77Zy8/nh07DdMEPc/YsoBtQop6H/NAxq6caLLYriF0MK93rW +NDDIVz08pcWwcahAgq41DeUcEzWpo2LID77/vRqeAvsos4UIFzG8bKNcWflx +CvjE9tSOnhBDn7PfV97qnwLrnRbG/3mIoer1qFDXzin4nrDfXjdIDJu85Px7 +WqdAcbNz9Il4Mcz9dFFRrXgK7h4N6ygrFsMrotMPW0Km4FpPkf+eP2L4njo2 +I7ximTfqEMr/J4ZGqtcPWvBOgWnFQh4XjziGxzY8Sfw3Cb9S9D+UCojjnXlH +N55fk2C9u3ebxDpxZPPsVW36MglCdfw/xyji6P3BQvtR6ySE5dmfijAWxwMP +Jch65yfB0UvwdGmqOOorpBD/+zsB1Gtn8kfSxZFwXE3bd3ECvjyfe0u8LI6u +Tk8DVOYnwEfmIzU4SxylHkgx7k1PQPSr0lad2+Kol9xwKLB/AgrkHYjPK8Sx +vZ3b6WzVBMyN//egu0ccleJ2HrD3mYB4J5u+P7IbMUjjtwF391cIv3F7Urpy +I4r+OSxCZX2BHo1Rc4qhBKordnpdezMGIuGS4YfeSaDT7yMmDzeOwoa1tg5u +JySR+tlRRVv0M4QtnU12+CGJXDsHudWlhqBQvSSYkSiFL066gnP/ANRI9cjR +aNLI/XCd8Mq7PaDqyFEQKJbGnVt7c4OnP4DvlODIEyMZ/FDWIreg+h42dhI5 +Bz7IYNf6WzEOW19DnBCj8KWnLEq+ybj+fl8LrJfTNWL4yC6/z7LzeTtb4Kqe +41CEnyz+rdh2NXpTCxSGZBDVg2XRoiGC5PWvGd5/ETidfVYW596viZu+3wyS +TeN7A9JksT63t+niimYoCi+YkamWRX+xzb4mrU3gFiQqUcVDQgt9Rvn3gEYY +c25Tes9LQq9KrzsuxxqBZRFpMMlHQr86Ibkx60aw28T2ll5BwgH+2bYVao1g +0NfUfHY1CVdw2Fs/fG8AEgQEmBJIWCTf9jXNtwG6BDre9tFJGM3zftuFkKeg +n5Ec+9eYhMoj/2Yq9tfBgYuFxkqmJJQN0vZ5r1kHntGtq5zMSLhZRCVSQLIO +LvtyJzzdQ0LTF7nUyo+1MLXXJynaioTM+7Jc6FYLaSssrwjak9CtvHa4M+oJ +fA5ed1/Ui4Tlhx34nrc8hshDl14rppPwTcQBSm1GJexV3mdnlkHCusQXVUoR +lSCxQmz4eCYJeW+daS91rYSHJTd+ZF8hYVfUvNOsTiV8WlUkteEGCY+IVd/b +O/IIdla2uf28Q8KqgUNb3NUfwW+C4Ir6ShLeUBq+MDdeDv6vo8Gyf1m/7p43 +reGlcDm5V+XEAAmveGvWfDxZCo+ttzLODC7rX2XczHewFHj6+oQKP5FQk1wm +HKZeCknjKr0rR0m4ptdFT2amBB5wDfnXT5Pw7kKHpZxLCYyo7Lin9I+EbMmn +XEIOD8Em8wdBmELGs1r895vHi0Dk2MNSHSoZe69kffdpKYK3Kh5WJ2lkPOAq +tKBVUASmr0cutTDIaNY1N0Q5WQQ7+TsEo+TJqP5qINJmphAYfiVcv9TI+KLR +SGYTVyH82us1NWRExoOOk0KjavfhqsDXxnIPMjqG8B4smc4H4dLd8m89l/OF +KS5UdeZD5OHilAkvMt60SEzprMsHt8oglqwvGfnvX/Lam5IPWm4C/+ICl+s5 +wry6Zj50v6Jutz9DxsOfjvj3x94B0XTHYp5kMppQN6jxq9+G+F0NYtIpZPRo +Caq+QL4Nf6fpZzRSySgVaCVPX3Mbxgyn97ink7FFXPRi0kgelP8KnfxwhYwp +/U8zjdLywNr+CqMgh4x+vkqUTT9zIZXakWVeRsbPB+yG9r7Igeze6/+dLSej +dnF8cGJFDhQlH28orSDjOmtuweGcHGj5tzguVkXGOI2Ed89Cc+BvH1n10xMy +zpx8yw5UzAG3NK9W72YyLnoOu4dn3gJd/tXzyb1krD8SdTUjKBssajpWPutb +1iM6d1HFJRsc/G5IzveTMc9sm/4n62wIHlLedfAjGRkSjeXeKtlQ9MQugTJC +xntE6+Lm/puwMfAOpXSajEeJfDtWtd+AmbFd5h1cFPyWeW7V6e4ssLlw/SUX +DwVV0ut+BlRnQbXSgtEWXgpeH1/QS8jKgnPBxRjDT8GH7xSiNrCyQEJQVkVT +kIK7Kb0h5yevgd6WJULWBgp+LjJOXOS/Bhl+Fb3ODApGnJybV7K4Ar/FRGyT +mBRkNxfEPNl2BZxqPNpr5Jb5ou0CLpJXQJ6f3kaUp2DnKRGPFeOXoT4j9Umz +EgVlUlgrzp+5DF+rvLPltSg4qutC8ynPBB0ueZdZMwpukVGSYKplgF2U4v3V +eyhoISm06COTAf4CKjPUvRT0rTpw7d3KDHggpBVibUHBd1evdL4eSAepjUaJ +5dYU3N9rQa6LS4clZeeKIAcKNgZJNbsMp0GN8zWBJU8Krvsz5bovLxW6x26Y +EbwpCLszOCLJqTDnmpOk4ENB+Vap+ZHwVFDwLpBw8KNgbkH8rnrbVMgKe6RY +G0TBv2kJPy2FUiEsvX1/RAQF27a/1G4PTgGd5tX5fCkU9HS2/9jrmAzfrQMy +1VIpmJFz0+bg7mTIHx6MPZpGwU2heZuntZJB5O/DE88yKHhzqClnNzEZvqjZ +bY6+RsEnz+kPZtqSID0nr5D3NgWj652O1kASsMN3lPFUUvC30Dd6/bFEyFud +n6dSRcHZ1Yt39xgkwoEr69KPVFOwvYtu+oeWCM/KPgc01FDQ6uXMoYaRi3B1 +8rxG5FMKhv/q+vnx2EUwOtBZzf2Sgo79Wy3MPBMgW83rKdcgBWf8fIR/Z8SD +0K2IEKmPFFxxP7HQMyweTq1JUdX8REGPn6MBS6x4sBoru+01vOxnwh9ply3x +wHt58fzgGAWtjw+KeDWdB5ff56xqOMv9vbFar7sYBwoNWZ+DuKnYF8r/XT8w +Fi4rFmWl8lDx367W1teOscB/rc7mP14qxtLOv/cyioVBv+HmMX4qJrXFSP8U +j4VLdLkHNoJU/FxaIS/+JAa+x5X6q26goozU7j9Jq2Kg0vwFP4dGRaIfyLeU +RENYgYccP4OKz88mpgbeiAbkXW8myVzOp2xZrRkfDS0VtklGm6h4b5vEr5+s +aOiRHpXI3kLFyJH3m51EomFx8p+SpToVxX/9tW4OjAKduG0HS42o2ChawfLb +Ewlcw91hrcZU/ER67B+oHQnPtMNufjShYm/iqjUXNkXCbk7DyOrdVCS9SYj/ +wh8JDvstvI5aUPF009tx37qzcJp2Mpp4gIolAebvK7adhbr67KIgNyq25JEL +LyhGgBT9Xtjtk1R8ycX6ZSAdASHnS03b3am4cGFFoohQBKhbPR9T9KIiYX/D +5WftZ+DB50mZMT8qSqsUrizbfWb5P9a4ZB1OxXHHfCU1g9Pgv/uVl3ISFa3G +j2fWmIfB++LOHYeTqWgw//1pmHIYKBE/rb6YQsXuMQN+hw1hMDHwPf9LGhX3 +7RCxCO8KBZaX+KebV6j4H8HeSosVCntTnC2Ec6noLJBvFxkSApu6F7ZOllOx +uXX0xqnGYNgpeb+Z7xEVS3dpXGq8FwxWjvaOMpVUjI6S4mGkBEPISO0Fy2oq +/uq+t1aNFQxtM1Fjj2qpWLiwXsmXKxi8VwlnRTdT8fih1bMsvSCo3E5ZIdND +xcBNYZVevQHQFt5+XaOXiktCEfTrzwJgqD5azbKPigLqCfCpKAAEjcZZ0QNU +PJV+k54fFQD2+x7UTAwt+2Nu57ZNMQC43NV9H01QMVv/xPVdsf5gfN10wGKJ +irNC3DPxxn4wP8GSjfyzfL9+84beVfWDPM1TrNK/y/xWo/P9Mn7A1ZE/SuSm +4YxpxJvYH75QKcjP7uWnoZVm5/Evub6wKbju79G1NFztL6b7hM8XBPepkU5R +aJgl/4ol2ukNldlmR+5Raah+a+xaV6M3uLCP5PXRaFgQPR3z4KE3NJxPltvJ +pKGDxQXJ5IveEFLP3sqrQEM+C6t5XUNvmNhSsOviNhqGnlwY9wz0gpcrZZxv +GdNQ/u3+hf+OecDWbQMetSY0VBwhpE4aeUAaKyu4z5SG9lmJ2ww2e4BjtUQi +cQ8NffpCpKw47vD9pFjVeUsaHs0TV3oT4g7ib9at9T1Iw2K2S5FO5klwSed9 +rOtOQ57kcTnpUVd4+bSh6bAHDf3CC+qGXrjCVvbZt2Gey/XP9bTXF7vCoiHX +WIU3DQe/mQq+DnOFi7+W1skH0FAl4dYrsqgrlB2ad9lwmoY5EtfmMvecAB7K +V5GRSzQkCvySE37jArXa22N/J9HwbOhsztFKFwi1ufBbJIWGbidVkt/dcoG5 +uC0ju9JoaMC93pft7wLjHJ/ym5dpKBoi+1FZygXanizaHrpFw2TBjJA2z2OQ +fkDo+vsSGj7O3nn5CfUoWPk5rJ8opSFJOn1f1dqjIHyx6Bx3OQ21tviPt/x2 +hrh6C8+tj2h4be9FU2qHM4Qw0yHxMQ0fpt0cbDjnDI4/pIdNntHQq/r+mayp +IyCXrMR8+oGGUXtDAzVaWHC6fMxwppOGa8xBY3U5Czp6rrvIdtPwjFnl5dlb +LIigCN0J76XhWq3wUe4wFvSUfqFt/0hD82uHdokosyC+8xZleQsD+JwYnBtO +MCVJkLn9e9kfNcIzYZHDoIsvd3Qs0TC+OdQgYcYRLh+NdOD9S0NZAdeeLW8c +Qb9wJovFRUf+MbzRn+AI13e+kpThpyOL3eE2ssoR9rJiNmYK09E46NXqMEEH +eHjnF+E8mY55Np4uL2mHoLbA9k8uhY5heqUQuOoQvHhQMVpLpWNvvnqqDvsg +jJT4V8zR6VjgMLtdsvIgiNfN2DptpqPNX9Fk6T0HIaLry1UNVTpesRN9IxN2 +ACxW9pDG9OloosMutp+2BYfVmqu4DelIXZt6Wu+DLbgJZ36TNKJjAy0hTveJ +LUQTbBosTejYvsVhJu6iLVSS3jk/2UPHmO4ZdzUlWyBptd5J209HeNuy71vg +fuC4VinonaBjoGGhB0vMBjKCTtcHuC6fH2Y523PZgM45Peu7bnS821ni7f3V +GuKzX4Wu8aDjdgX5Y58fWwOta+hFlw8d15La6r+xrMFOX9DVPZSO2RMtS5dL +9kG9zKHb6Yl09IwZpjgcswIXBZJWyyU68r3wP2RsaQVrto+2LSbRcQcx/JTJ +Dis4aOM1dziVjrYhdQIXiVYwdyFKb/NlOhaz7N6JNluC3ML9odpbdJSe9e4g +KVpCUvuS9JcyOnaOvF3rs9oCEl/vkyRW0DH+nkFs2Jw5JLTeE9d9RMeftuee +ab83h/N1dhuyquhYTT9PkUs0h8j7ZSstaumYaXNNrmyFOfhHuc8+aqajrH9P +YxD3XrBT7W+J7V3u13nPvbvCu2G/ourzsj46ygzKp6bNmIH1pvjGof7l/Jfe +l2a/NwNLWc1a7Y90ZGa/EdmYaQamq9NKOZ/p6C7z9UIM2Qx0PpvdsJ2moz2N +l09DxxRIqY/9mFwM3KGbvEYwzhg+uFdrITcDcyJ/60R4GUO8YdU/Ox4Gpu20 +nBW2NYa5hYoL8XwMNK+cSglgGEOLU0nu9EoGrvP3mT/63Ah8FAvaS9czcET7 +GeuRoBE0tGaoIpWBlbP3FePyDCAoN33BjsbAKbdXl4cSDUAhPK3Oh85AsXZO +vsUpA8jYmmKWy2TgAZt+R6+9BuCWedFZQIGB+3Niuh4s6MOGY9GpbWoMfD6p +EEq01oejXL6zdoYM3D3pzC0srgclI51Hzxsx8JaKJ8uOVw+4W7U7q4wZeFrV +Rq2KrQs3kvmrJMwYKBFw9d2TJl3ooVw53W/OwJ+3h4ze+uvCXoP6VU4HGDh/ +iv84f9cu0IwXJh13Z6B6nHXZ2vsIMZ5+yZkey3pCPhj8vozwwaqbp8WTgYya +bT6LMQi+kjmjcj4M3FNbj6rOCIUPtt2fCGDgjW2agQlSCJQ39uqeZxgorN6o +k0EHECLc3x2QwkDjgSG+3o07QKTrUUxyKgM9cnfudlrSAbGrz+oL0xh4W2Hd +Sb6POkAhDaqNZTAwvsOn4naeDmgqrJe2vcZA56cBO02UdcBZP2haM4+BBk4i +xovm2lDtr5e4VM5AgqHLmHaOFtRrWLSIP2KgywmrQf04LWhatOfZVsnATuVE +0glPLXgbERjoUc3AVpV7G/9s14KxhALHwVoG5vIZLDl80ASR22uV6puX5+tk +1DIirAmuH/reRPUwcKfXE45Nmjo8Pxfid7WXgaXKrHNfw9WBpr5R7GEfAy9o +dTmkHleHwYz9joMDDHxhtXB6k7Y6WNm9m9IcZmBZM0Ha4fM20Ol7voo9wcBH +Gw3GX2tsA+Ghh3p2Swyc/Pbnp8mMKpxMthj3/MNAqSWoDutXhZZdnPhzfxl4 +f+4kvbFFFaJyFN6XcDHR8eHFu/G3VOGXc77TGn4mKr+I1OexVoWhsazwhjVM +fPdjhh5VowJlU7GPFGSZGPupc9bkmjLcz08QOERi4oTZ8T+WccqQcyTZ5jyZ +iRG1igGeAcpwqfvq7CiVibyyZ21HzJXB7Vmh0k05Jl4JVjr3lF8ZSFnt+etV +mJjR/6ZeMWArJJjJXp7XZ6JL0+3wmGeKECVAG6cZMrH1haWjU64ihDyVU99n +xETf6YZZh0hFOK6h0vGfCRMrz9nlNqIi6FIN1rnuZSKjQ3hSrW4L/Fp0i+uz +ZWLS3THzxAYFcL5XEVzvxsRyg1ymzPBmWKfvnNR7cpk/LrhetHkz1A6svTvn +zsT2PDPmpgebQWK9a5ecFxNDl7Q9sgM3w9sgSfVkPyaqhk6ceCu0GXQMImZZ +YUysri1pkdm5CQifTDx5E5fn866xp66UCQ2n5s9JX2Ki8AXOqYlrTPDakHtd +I4mJZzlb122JZsILw6W2kylMvDFQVbtgzYSIwiL5jgwmdlpejC36yYDpkA1f +824yUf1vsqrPLgY8Jw44Gz5k4j/pQZHHozQY899uerZk2b9To5ZGr2kg0JG5 +taaUiSe+ZQ5NV9DAKMXqj3IFE79kC4Wfj6NBi3BLhvRjJj4beO3zU4EGrStK +W+eeLfczIrs5PYQKbQtxSrndTFxl6bSGKEeBKbsx4mAPE9fpr7xRtoECQpV6 +S+J9TBSQkBc6+Y8MewL/tiQOMNFP4qiEVBcZXn/3OxIyzESz66c0EmLJ8GbS +Md1yiomndOMzE6dIMGNaE5owvcwf7NZI6iHBunsbjzSzmeiV7SmX/5wEFic6 +FHd8Y2LRwNerhFskeDti0iI3z8S2aQXFyf3LvF5+kfPPZb941lel6S/zuXzp +N34xUVeiv8tKhQSWrDoW4TcTtf2/+gsJk8C3XsrYfImJik1X49f+koUU2RDF ++D9MFPlccU2xQxZKTncRmv4y8aNMKyegWBbeD6j9/vePib1qdw6MJsjC/wAP +jGCP + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{5, 12}, {0., 0.977642504311667}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{5, 12}, {0., 0.977642504311667}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlHc8Fe4Xx+1KUuleZN59FZGREXVO9qiMiAq5KUX2zighJMnWUAklFV9Z +ISESSpNsiowy7lWkSPXz++t5ned5vc/5nPN5nod8xMvqGA8XF9d1bi6u/6/2 ++hmruLgIqGM7xu425sAnXe8OFR4CbtAJu0pbjp13md48xkfAM8VZl72MOOC2 +86/ay5UEdCrgjuc15ECwpotTxnoCptAGlah6HEhTUH+kQCXg7TnDRdzBgTZC +59EDhgQ8/eEj9/etHLDYUKyUYEzAUiGVp4zluH19/GKtKQE7722rPajEgV7h +nUk0cwIOJKZ41m/hwJeVdx5zbAlo1bI3PXIzB/j+BIjEuBLQZv6Y4xCVAzqj +xPqSBALaUVoGeUU58P3X4yHCJQJq2kffW03kQIHQEd6gZAKialOgCIEDompF +htoZBCQeWxSSFuHAt0jDV403CSiiKUxkCHPgDimot6OEgPRfGysFBDiwzr57 +br6bgOVfT+/6PceG516nRQ/0EbDs88zWoVk2hEfRNB8PEHDmSQLX8+9smLjn +HXpmmIBiK7h0EmbY0LSwkmflFAGjpbr5V0+xISRTa+3GfwQU/XH/+9thNoy8 +v7pJm07E5B9NXoFv2LAyL6nfn0lEUQ/NGLPXbFAIiLlUtImIDovFkbKv2BAg +5vuDrEjEJwGjm569YIOAvcnTlRpEfOx+SZTrORvkRn/adRoTsfq5U9KuGja4 +/7SO83EnomlhrOxIPhvmJNeO55cS8frqmH2eoWxoaZbz6Cwn4g4+P4+lU2zI +8tOd5askosffr5rng9mg9zLgH6uGiBFuup9uBLAhJaRfTKqJiFXMDfuqvdiw +tafAOKmTiPPxP3qLndlwMkP/XvACERvLZD+nmbJheF2IhwmI4prVSd6LG9jw +9d1h0/xdojiRbyjEL8KGmRQDJr++KMqY/Ghds44Nfwjrh+qNRbEvknl7oxAb +xDfetda0EsUUd9ViCT42mJM7tZnHRPE3zeRp/ew01CirCPJfEMXTNv2c5HfT +kGk1cae+UxSP1QTGcGKmQeidLHG+WxRP1VtdyY6ehghzmyj5PlFsi5ctNY+c +hhO76w9nfBTF77Zy8/nh07DdMEPc/YsoBtQop6H/NAxq6caLLYriF0MK93rW +NDDIVz08pcWwcahAgq41DeUcEzWpo2LID77/vRqeAvsos4UIFzG8bKNcWflx +CvjE9tSOnhBDn7PfV97qnwLrnRbG/3mIoer1qFDXzin4nrDfXjdIDJu85Px7 +WqdAcbNz9Il4Mcz9dFFRrXgK7h4N6ygrFsMrotMPW0Km4FpPkf+eP2L4njo2 +I7ximTfqEMr/J4ZGqtcPWvBOgWnFQh4XjziGxzY8Sfw3Cb9S9D+UCojjnXlH +N55fk2C9u3ebxDpxZPPsVW36MglCdfw/xyji6P3BQvtR6ySE5dmfijAWxwMP +Jch65yfB0UvwdGmqOOorpBD/+zsB1Gtn8kfSxZFwXE3bd3ECvjyfe0u8LI6u +Tk8DVOYnwEfmIzU4SxylHkgx7k1PQPSr0lad2+Kol9xwKLB/AgrkHYjPK8Sx +vZ3b6WzVBMyN//egu0ccleJ2HrD3mYB4J5u+P7IbMUjjtwF391cIv3F7Urpy +I4r+OSxCZX2BHo1Rc4qhBKordnpdezMGIuGS4YfeSaDT7yMmDzeOwoa1tg5u +JySR+tlRRVv0M4QtnU12+CGJXDsHudWlhqBQvSSYkSiFL066gnP/ANRI9cjR +aNLI/XCd8Mq7PaDqyFEQKJbGnVt7c4OnP4DvlODIEyMZ/FDWIreg+h42dhI5 +Bz7IYNf6WzEOW19DnBCj8KWnLEq+ybj+fl8LrJfTNWL4yC6/z7LzeTtb4Kqe +41CEnyz+rdh2NXpTCxSGZBDVg2XRoiGC5PWvGd5/ETidfVYW596viZu+3wyS +TeN7A9JksT63t+niimYoCi+YkamWRX+xzb4mrU3gFiQqUcVDQgt9Rvn3gEYY +c25Tes9LQq9KrzsuxxqBZRFpMMlHQr86Ibkx60aw28T2ll5BwgH+2bYVao1g +0NfUfHY1CVdw2Fs/fG8AEgQEmBJIWCTf9jXNtwG6BDre9tFJGM3zftuFkKeg +n5Ec+9eYhMoj/2Yq9tfBgYuFxkqmJJQN0vZ5r1kHntGtq5zMSLhZRCVSQLIO +LvtyJzzdQ0LTF7nUyo+1MLXXJynaioTM+7Jc6FYLaSssrwjak9CtvHa4M+oJ +fA5ed1/Ui4Tlhx34nrc8hshDl14rppPwTcQBSm1GJexV3mdnlkHCusQXVUoR +lSCxQmz4eCYJeW+daS91rYSHJTd+ZF8hYVfUvNOsTiV8WlUkteEGCY+IVd/b +O/IIdla2uf28Q8KqgUNb3NUfwW+C4Ir6ShLeUBq+MDdeDv6vo8Gyf1m/7p43 +reGlcDm5V+XEAAmveGvWfDxZCo+ttzLODC7rX2XczHewFHj6+oQKP5FQk1wm +HKZeCknjKr0rR0m4ptdFT2amBB5wDfnXT5Pw7kKHpZxLCYyo7Lin9I+EbMmn +XEIOD8Em8wdBmELGs1r895vHi0Dk2MNSHSoZe69kffdpKYK3Kh5WJ2lkPOAq +tKBVUASmr0cutTDIaNY1N0Q5WQQ7+TsEo+TJqP5qINJmphAYfiVcv9TI+KLR +SGYTVyH82us1NWRExoOOk0KjavfhqsDXxnIPMjqG8B4smc4H4dLd8m89l/OF +KS5UdeZD5OHilAkvMt60SEzprMsHt8oglqwvGfnvX/Lam5IPWm4C/+ICl+s5 +wry6Zj50v6Jutz9DxsOfjvj3x94B0XTHYp5kMppQN6jxq9+G+F0NYtIpZPRo +Caq+QL4Nf6fpZzRSySgVaCVPX3Mbxgyn97ink7FFXPRi0kgelP8KnfxwhYwp +/U8zjdLywNr+CqMgh4x+vkqUTT9zIZXakWVeRsbPB+yG9r7Igeze6/+dLSej +dnF8cGJFDhQlH28orSDjOmtuweGcHGj5tzguVkXGOI2Ed89Cc+BvH1n10xMy +zpx8yw5UzAG3NK9W72YyLnoOu4dn3gJd/tXzyb1krD8SdTUjKBssajpWPutb +1iM6d1HFJRsc/G5IzveTMc9sm/4n62wIHlLedfAjGRkSjeXeKtlQ9MQugTJC +xntE6+Lm/puwMfAOpXSajEeJfDtWtd+AmbFd5h1cFPyWeW7V6e4ssLlw/SUX +DwVV0ut+BlRnQbXSgtEWXgpeH1/QS8jKgnPBxRjDT8GH7xSiNrCyQEJQVkVT +kIK7Kb0h5yevgd6WJULWBgp+LjJOXOS/Bhl+Fb3ODApGnJybV7K4Ar/FRGyT +mBRkNxfEPNl2BZxqPNpr5Jb5ou0CLpJXQJ6f3kaUp2DnKRGPFeOXoT4j9Umz +EgVlUlgrzp+5DF+rvLPltSg4qutC8ynPBB0ueZdZMwpukVGSYKplgF2U4v3V +eyhoISm06COTAf4CKjPUvRT0rTpw7d3KDHggpBVibUHBd1evdL4eSAepjUaJ +5dYU3N9rQa6LS4clZeeKIAcKNgZJNbsMp0GN8zWBJU8Krvsz5bovLxW6x26Y +EbwpCLszOCLJqTDnmpOk4ENB+Vap+ZHwVFDwLpBw8KNgbkH8rnrbVMgKe6RY +G0TBv2kJPy2FUiEsvX1/RAQF27a/1G4PTgGd5tX5fCkU9HS2/9jrmAzfrQMy +1VIpmJFz0+bg7mTIHx6MPZpGwU2heZuntZJB5O/DE88yKHhzqClnNzEZvqjZ +bY6+RsEnz+kPZtqSID0nr5D3NgWj652O1kASsMN3lPFUUvC30Dd6/bFEyFud +n6dSRcHZ1Yt39xgkwoEr69KPVFOwvYtu+oeWCM/KPgc01FDQ6uXMoYaRi3B1 +8rxG5FMKhv/q+vnx2EUwOtBZzf2Sgo79Wy3MPBMgW83rKdcgBWf8fIR/Z8SD +0K2IEKmPFFxxP7HQMyweTq1JUdX8REGPn6MBS6x4sBoru+01vOxnwh9ply3x +wHt58fzgGAWtjw+KeDWdB5ff56xqOMv9vbFar7sYBwoNWZ+DuKnYF8r/XT8w +Fi4rFmWl8lDx367W1teOscB/rc7mP14qxtLOv/cyioVBv+HmMX4qJrXFSP8U +j4VLdLkHNoJU/FxaIS/+JAa+x5X6q26goozU7j9Jq2Kg0vwFP4dGRaIfyLeU +RENYgYccP4OKz88mpgbeiAbkXW8myVzOp2xZrRkfDS0VtklGm6h4b5vEr5+s +aOiRHpXI3kLFyJH3m51EomFx8p+SpToVxX/9tW4OjAKduG0HS42o2ChawfLb +Ewlcw91hrcZU/ER67B+oHQnPtMNufjShYm/iqjUXNkXCbk7DyOrdVCS9SYj/ +wh8JDvstvI5aUPF009tx37qzcJp2Mpp4gIolAebvK7adhbr67KIgNyq25JEL +LyhGgBT9Xtjtk1R8ycX6ZSAdASHnS03b3am4cGFFoohQBKhbPR9T9KIiYX/D +5WftZ+DB50mZMT8qSqsUrizbfWb5P9a4ZB1OxXHHfCU1g9Pgv/uVl3ISFa3G +j2fWmIfB++LOHYeTqWgw//1pmHIYKBE/rb6YQsXuMQN+hw1hMDHwPf9LGhX3 +7RCxCO8KBZaX+KebV6j4H8HeSosVCntTnC2Ec6noLJBvFxkSApu6F7ZOllOx +uXX0xqnGYNgpeb+Z7xEVS3dpXGq8FwxWjvaOMpVUjI6S4mGkBEPISO0Fy2oq +/uq+t1aNFQxtM1Fjj2qpWLiwXsmXKxi8VwlnRTdT8fih1bMsvSCo3E5ZIdND +xcBNYZVevQHQFt5+XaOXiktCEfTrzwJgqD5azbKPigLqCfCpKAAEjcZZ0QNU +PJV+k54fFQD2+x7UTAwt+2Nu57ZNMQC43NV9H01QMVv/xPVdsf5gfN10wGKJ +irNC3DPxxn4wP8GSjfyzfL9+84beVfWDPM1TrNK/y/xWo/P9Mn7A1ZE/SuSm +4YxpxJvYH75QKcjP7uWnoZVm5/Evub6wKbju79G1NFztL6b7hM8XBPepkU5R +aJgl/4ol2ukNldlmR+5Raah+a+xaV6M3uLCP5PXRaFgQPR3z4KE3NJxPltvJ +pKGDxQXJ5IveEFLP3sqrQEM+C6t5XUNvmNhSsOviNhqGnlwY9wz0gpcrZZxv +GdNQ/u3+hf+OecDWbQMetSY0VBwhpE4aeUAaKyu4z5SG9lmJ2ww2e4BjtUQi +cQ8NffpCpKw47vD9pFjVeUsaHs0TV3oT4g7ib9at9T1Iw2K2S5FO5klwSed9 +rOtOQ57kcTnpUVd4+bSh6bAHDf3CC+qGXrjCVvbZt2Gey/XP9bTXF7vCoiHX +WIU3DQe/mQq+DnOFi7+W1skH0FAl4dYrsqgrlB2ad9lwmoY5EtfmMvecAB7K +V5GRSzQkCvySE37jArXa22N/J9HwbOhsztFKFwi1ufBbJIWGbidVkt/dcoG5 +uC0ju9JoaMC93pft7wLjHJ/ym5dpKBoi+1FZygXanizaHrpFw2TBjJA2z2OQ +fkDo+vsSGj7O3nn5CfUoWPk5rJ8opSFJOn1f1dqjIHyx6Bx3OQ21tviPt/x2 +hrh6C8+tj2h4be9FU2qHM4Qw0yHxMQ0fpt0cbDjnDI4/pIdNntHQq/r+mayp +IyCXrMR8+oGGUXtDAzVaWHC6fMxwppOGa8xBY3U5Czp6rrvIdtPwjFnl5dlb +LIigCN0J76XhWq3wUe4wFvSUfqFt/0hD82uHdokosyC+8xZleQsD+JwYnBtO +MCVJkLn9e9kfNcIzYZHDoIsvd3Qs0TC+OdQgYcYRLh+NdOD9S0NZAdeeLW8c +Qb9wJovFRUf+MbzRn+AI13e+kpThpyOL3eE2ssoR9rJiNmYK09E46NXqMEEH +eHjnF+E8mY55Np4uL2mHoLbA9k8uhY5heqUQuOoQvHhQMVpLpWNvvnqqDvsg +jJT4V8zR6VjgMLtdsvIgiNfN2DptpqPNX9Fk6T0HIaLry1UNVTpesRN9IxN2 +ACxW9pDG9OloosMutp+2BYfVmqu4DelIXZt6Wu+DLbgJZ36TNKJjAy0hTveJ +LUQTbBosTejYvsVhJu6iLVSS3jk/2UPHmO4ZdzUlWyBptd5J209HeNuy71vg +fuC4VinonaBjoGGhB0vMBjKCTtcHuC6fH2Y523PZgM45Peu7bnS821ni7f3V +GuKzX4Wu8aDjdgX5Y58fWwOta+hFlw8d15La6r+xrMFOX9DVPZSO2RMtS5dL +9kG9zKHb6Yl09IwZpjgcswIXBZJWyyU68r3wP2RsaQVrto+2LSbRcQcx/JTJ +Dis4aOM1dziVjrYhdQIXiVYwdyFKb/NlOhaz7N6JNluC3ML9odpbdJSe9e4g +KVpCUvuS9JcyOnaOvF3rs9oCEl/vkyRW0DH+nkFs2Jw5JLTeE9d9RMeftuee +ab83h/N1dhuyquhYTT9PkUs0h8j7ZSstaumYaXNNrmyFOfhHuc8+aqajrH9P +YxD3XrBT7W+J7V3u13nPvbvCu2G/ourzsj46ygzKp6bNmIH1pvjGof7l/Jfe +l2a/NwNLWc1a7Y90ZGa/EdmYaQamq9NKOZ/p6C7z9UIM2Qx0PpvdsJ2moz2N +l09DxxRIqY/9mFwM3KGbvEYwzhg+uFdrITcDcyJ/60R4GUO8YdU/Ox4Gpu20 +nBW2NYa5hYoL8XwMNK+cSglgGEOLU0nu9EoGrvP3mT/63Ah8FAvaS9czcET7 +GeuRoBE0tGaoIpWBlbP3FePyDCAoN33BjsbAKbdXl4cSDUAhPK3Oh85AsXZO +vsUpA8jYmmKWy2TgAZt+R6+9BuCWedFZQIGB+3Niuh4s6MOGY9GpbWoMfD6p +EEq01oejXL6zdoYM3D3pzC0srgclI51Hzxsx8JaKJ8uOVw+4W7U7q4wZeFrV +Rq2KrQs3kvmrJMwYKBFw9d2TJl3ooVw53W/OwJ+3h4ze+uvCXoP6VU4HGDh/ +iv84f9cu0IwXJh13Z6B6nHXZ2vsIMZ5+yZkey3pCPhj8vozwwaqbp8WTgYya +bT6LMQi+kjmjcj4M3FNbj6rOCIUPtt2fCGDgjW2agQlSCJQ39uqeZxgorN6o +k0EHECLc3x2QwkDjgSG+3o07QKTrUUxyKgM9cnfudlrSAbGrz+oL0xh4W2Hd +Sb6POkAhDaqNZTAwvsOn4naeDmgqrJe2vcZA56cBO02UdcBZP2haM4+BBk4i +xovm2lDtr5e4VM5AgqHLmHaOFtRrWLSIP2KgywmrQf04LWhatOfZVsnATuVE +0glPLXgbERjoUc3AVpV7G/9s14KxhALHwVoG5vIZLDl80ASR22uV6puX5+tk +1DIirAmuH/reRPUwcKfXE45Nmjo8Pxfid7WXgaXKrHNfw9WBpr5R7GEfAy9o +dTmkHleHwYz9joMDDHxhtXB6k7Y6WNm9m9IcZmBZM0Ha4fM20Ol7voo9wcBH +Gw3GX2tsA+Ghh3p2Swyc/Pbnp8mMKpxMthj3/MNAqSWoDutXhZZdnPhzfxl4 +f+4kvbFFFaJyFN6XcDHR8eHFu/G3VOGXc77TGn4mKr+I1OexVoWhsazwhjVM +fPdjhh5VowJlU7GPFGSZGPupc9bkmjLcz08QOERi4oTZ8T+WccqQcyTZ5jyZ +iRG1igGeAcpwqfvq7CiVibyyZ21HzJXB7Vmh0k05Jl4JVjr3lF8ZSFnt+etV +mJjR/6ZeMWArJJjJXp7XZ6JL0+3wmGeKECVAG6cZMrH1haWjU64ihDyVU99n +xETf6YZZh0hFOK6h0vGfCRMrz9nlNqIi6FIN1rnuZSKjQ3hSrW4L/Fp0i+uz +ZWLS3THzxAYFcL5XEVzvxsRyg1ymzPBmWKfvnNR7cpk/LrhetHkz1A6svTvn +zsT2PDPmpgebQWK9a5ecFxNDl7Q9sgM3w9sgSfVkPyaqhk6ceCu0GXQMImZZ +YUysri1pkdm5CQifTDx5E5fn866xp66UCQ2n5s9JX2Ki8AXOqYlrTPDakHtd +I4mJZzlb122JZsILw6W2kylMvDFQVbtgzYSIwiL5jgwmdlpejC36yYDpkA1f +824yUf1vsqrPLgY8Jw44Gz5k4j/pQZHHozQY899uerZk2b9To5ZGr2kg0JG5 +taaUiSe+ZQ5NV9DAKMXqj3IFE79kC4Wfj6NBi3BLhvRjJj4beO3zU4EGrStK +W+eeLfczIrs5PYQKbQtxSrndTFxl6bSGKEeBKbsx4mAPE9fpr7xRtoECQpV6 +S+J9TBSQkBc6+Y8MewL/tiQOMNFP4qiEVBcZXn/3OxIyzESz66c0EmLJ8GbS +Md1yiomndOMzE6dIMGNaE5owvcwf7NZI6iHBunsbjzSzmeiV7SmX/5wEFic6 +FHd8Y2LRwNerhFskeDti0iI3z8S2aQXFyf3LvF5+kfPPZb941lel6S/zuXzp +N34xUVeiv8tKhQSWrDoW4TcTtf2/+gsJk8C3XsrYfImJik1X49f+koUU2RDF ++D9MFPlccU2xQxZKTncRmv4y8aNMKyegWBbeD6j9/vePib1qdw6MJsjC/wAP +jGCP + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{5, 12}, {0., 0.977642504311667}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + 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:eJwVl3k8lG8XxiUpKsYyY8k2zIwZSdZkPUeiQqSERFlKyk6JQpQlsu+JSiSk +kmhRQogsbSKl+qlsaSwzKon0Pu8/M5/nM/fc59z3Oc/1vQ7V3X/nQV4eHh4T +4uP/3yHhu1bx8JBQmPlCIXQlG6wsD74eriHhMcbMmDWLDVsd97B5w0Twe7N+ +r3olG6aUovmo6qK4ZLCXlZAxAYfPNCVd+yqKOd45ysfeToIAdcjrYKkYDi3M +F3JNp8EuQt+U5iyOeu/m5PdTONAiERwoTSUjXU6zer6PA8vNW4TDvpDxo/2h +qjTkwk/NbZX9ORSM9EzR1NHlgsC+qgJ/JwkMUejOd7/GgfYtlueWi0jiV9G2 +rOnyaXBqXfy2vEUSrwm0FCXcmgTR6KwCiJPCAWrGbT/r73B03mV7qIE0Oq/b +LaUzPQoLdwR2jv2TxoTqU+UiO4bAgef508bGNdh207On6fcguKx8qpd/VAY/ +DAaERez4AAl2l3mu68qivW3ikty5PnB1vtn6aEIWkywkdy6rew3OVy5+WnZH +DkOZJL07zd2gGn7t0L2j8ihY+8QzNa8N7ASDZmvEFbD89Jc9Qt+eQMmxJcPl +IQrI3DVz2LmoHiwaK2zlXyugDyXkWnTsPXhv5/qrfS0VBbcsuy11rxrCVyw3 +E0qmYqh7f66o8g04eqFN9M0oFa9Eh5v8t/oaRG4PS9SxUMR4kZOHbr0vgqBt +uvqdFYrYPf/pTEXTBXhEEz78mU8Jbd6rTH2eyAZJ+X6TTE8lVDNIHN8/lwYd +v+vOtzYpYdTL3ysr7iWCp0wFS3UNDZMsBbFALhbE9yd6qIXTcO/8v/3/9kaB +ZHSMzO0+GuabXDx1/2kYqD3xP/ViIx07n1//Hj0SDPlfjrr5ZdGR+fPRN2sT +f5i2ijtpMknHt6GPo3LKvMCx7yxU2TBwv87hgS8kD6DA1dOXKhg4Q7ctmvzr +AiNPq/1VVisjv2Hh8xg5B7ic15X1zVcZd4zz0DpGbaFqG48eq10Z1XPHtwxs +sILXUvR4PhUmPr+jt3X7MzOweOZh5xrLxFDxNipD1gQqn9zcM/2JiT9WOdje +X2oACgPjK2SQhdoWpXN5w9ow/hp12/NZ6Fh7bLo1UB1aTfrm/v1jYSvbtvbk +WhZ89nCeCnIioZDxjuf9JDZ02O7f/4MiguKFVwVindkgY+z7O/2NCA7fr2qY +EpmAyl1FW4cSRPFdtbTBE9Yk6L1+fYLfTAxL/OPhXNkUJHXYO116LI5HL7hf +c4vkwMjNC43PoslokDzgNijJhchH/J/KDCn493a9h6kFF061h9NKflPQ/zjF +vZWHC2Ov/2Y+rJVA+vPU8FEdDqTzX62LPyKJG494O6oLTsNRR+WvdzJkUVFf +6ZJ/8xvYd4qx022HHO4tSCl8VvsSNgsrFX8Sk0cpLfn4rbEdcKTd7DrphTzG +bWzkdVVshYUGPb9bZgo40PZTfvJxI8xK2184UKKAny5MC8V61UFG4jLaj0Wi +X6/KGEYt1MD1m3cKvZ2pmN5UpaMbWwW/bUfXBtZRsYC6k90wUQ5hRy8/55NS +xO/XP5YnWpRAqKWje9QJRfSX8mtwCr8EErrFtn1vFfHxQO6wfWUejBcF767T +UULjKztMPS0zgXPuma9qlhJmOHXTteRSIC+x+nPopBLSk4NnzZviod4o3/yG +JQ1PegxZ5eecBkrA8kb/chqKtvbfyBOMgGLqn+2Ny+k486j9CqM0BA7sDJq+ +6EnHxIxT40VXAqE1N2LSoYmODlJGuQLN3lCSHv/xtxwD2Zwjj17dPAj3BCU+ +K0cwsPvAyPl7Y66wyKs6NzTAwDI/Dfk1u52g+RbwJhopY1ppR22eox0wA0c8 +BS4o4+noOIrTMxtoui06SJlTRsddWkp/O7ZCSmCLb7UDE4sTPTzW25jCvJmA +A7OaickSn0aOehnDyHMrjThhFqafvV17/IkuLHtLVgjyZSE1S2NjboImOCae +kzzQzcIa7azNSa2qoDr9NkJvHQmHu8MbZgj9Pmf9RXJimIQrO4uNYoANmpYe +QR2lIqjVOShRM8CG5wbppbwuolhnuc2ZMTABr1Q6ljqIi+Htq4av7xhNwXRx ++3O3ZHHM5iq5DFlyYLfHcqkgWzK2eK99NPyHA5uih3+lCVPQ0UGAMrSVC3V/ +3b0et1EwzdVMxUuBC6GSDnnksxLocmlNHTWIA6rKv6+0GUniUh9L6yvO0xDZ +9zVw/UFZ1NBi6L7r74X/fMdXCsvLoV1VeNSd26/gZf8gBn2Vwy8o8HxUqgss +r4QIDBXJ482lrrTk3U+BOdyrqbmO6McgSTtaVxNYt6/F+GRCT+Fcw825h+BH +769LGFPAfyYLbvIb78KTJYIW0pupaOoUU3Y9+zborzt+v6GYinbbjZ4XRF6H +X8trAnx4FPHBUvu/1KKrcLLL65eTuyLGRH5zXN1yGTbjROuOJkW0DndRjVmb +D7s8TP7bLquEI6lU5KZnQUzvy7f7I5RQv1/YeXQuFW433TWS71fCaD5BjQMa +CSC6TvG+jxYNy2pe37d5eQayR9tFXmTQMKp/2eUdPZGwzxZqN07RcEFpX3E8 +KxS2CXJ079nQ8ZNx9bU3D4NA3WhO+WsFHTOXGj3lHvUFi6k41UJ+Bv4cnlpz +Qv4QnJ22Ifl4MrDwfkls3A83ECwaM9rUzEDfGpaUlbQz2BnMbXSiK6Olifol +/ardMBTzLiIsRhlLZTUF0z7tgPsRCasuDyqjtic1pS3IAqpaj54YQCb+q1lV +cPP0ZrgSf3d3ywUmFvW/GTlGRXjWHmFmMMvE9QM//et264HonijxNnsWfnBb +eyz5phYUqY0oU2pYONM5bD/1RA1y3g66VsaT0NByfmmMNBsEdn+4Or9FBG3/ +Wepfi2IDv8bxyD28orjFMPrsqPUEMDlDwx+mxNHWaaR56Q0OhPxZ70WtJqO9 +FffMNnWi32aVWxsPU3C9zbNa381c2JyZM5jAksDJI1Zx+/s54Jhckur2VQIf +1PSsXDkzDXdDHC4pvqKiykh1vUFwGSwMJqkWaijim1ptte4VxXCsY8vzqxmK +mLJc7A0zrRDG1+35uHdSEf8mSf7+sCkXogevdjKslTArV7iZK5kBp3bdjH3N +R8Og+Wl/Mc848LIW7Z3woOFYFe8zvYBoyP1t5kdqpOFDj6Mehs4nYYxTM7JF +gY7HWatz/+gfg1P5M2VxEXQkfTV9NnQ+AJy4S2q73tLx68PSAGGVI7CodTbF +TpeBMlldbyR3H4AR2qfbXzMZmFq/cPdf/37gHvCvif/BwJE/Ec2BlY6gSYvr +fLBbGZe+j7q2kbILfFxmbM7fVsbsM9IHw7nboWP4wp1kESa+rGjeeM9oC/jI +irsl+DFxo1CB0u11m8COz9kxqZ2J3UEnzxuXG8LS3jWyr5RZePlcXb/51g3w +2+76WtkYgo+mmhrlxzRAaERdoHqEhduM/p1d800FbO+SWwsoJGRKTxSpEfrD +7io+dribhNdivgvmaLGh3nbfrZFUEQw/PRUo08yGT+sTetPNRfHIfr/dYncn +QPat2dZ/86LYFe31iSswBVfSlgg0HxXHsqGlJ49pcCDJyMjMXI+MGzMahou/ +caDkq93SZXNkXFuSJpdlxgVHSftEy1sUXDyjd+6bKhfw4Zn8TYESeKTZRa80 +mQMn7lFzDylL4hnaYeWfZ6YhhrxJz9daFm+nrOzrPNQHCge7xg7yy+Edtlek +hfZryKlvEDbslEMj2jM9GXYXGAqn3t9+Th4lt225K/DzKTyeVcqeUVBAv1qb +wRzHJzB3MSdD8rQC0p/wXyvueAQfgkzi7D4q4IPzAYMJH+6C9VqdyxxdKv64 +IiemTauGAemGRc88Kka2mMy+sKmE2lf1Jgo/qFjBLfIstSuFhVWBuNVeEc9F +kj/qbC+Cgc2iPEJ3FTG2mo9ZPJMPKzYzSyRElFDHoIDGNMoG6xNvkuYClfBq +IDZvC0sD44/3vbldSsg//urADU4C4f9GAqyUaRiombH2+dEYsCsur4uMJ/j4 +p89G6MkpMPj2eezHFxomOqzb3/kjFAw9q/aabqajgmvbqu/WwTAsfK+l7BId +e46es3vg4AeyF/nt/P/QcYX2WMLg4CEI8GArC+1loO3iR8HMKHcgTZsPTt9l +4LsETcv1K1xAdom93SYpZayZC3ENPmAPT4R2JWiEKeP+X39OarnZQs3XlisH +3ijjGuH4LhVbS2ia6uIJ0GHis1UHfOOVzCCEuXp3RhoTr16/XhJYiFBnlvOC +/J2JlXd/7jRn6YNUfm1KoCULFRhHpBu2aMPTqMz1/tdYmLlqaUDV8/XwqFCu +TDiQhBshf0aYzIYjPYW8oetFMPVw2NobvmxI1w16eOy7CPp8bn6QtX4C3n+U +VTB+K4675l+qG+Rw4Oabg1k/z5NRvHFVYQCdCzJOua+0d1HQeMWLiE0E/77c +SOCVEJHAxdptFWUTHFBQf5We0iWBGyYoaVvIHHA4cGn4WSsVL1naMZ+uK4e6 +ipy/O+iKSCsvfkS7Vgy/BHdIZsYpoqvQiK3f6YsQpRkpIfVVEaVDlqvP/siF +DU1JadMmSljG89ut/lYGrPKvunN1TgnZux/qKYnEg6h5X3K3Aw2vhd7qFF1y +GuxrGBKNNcRz5ZEXuurh8DTBQZpPnI4yLi8qrkwcg6Bf1V2iQXTUarLbu1km +EEitDbYZXXS8adXJEzdzBF59WX6XsZaBri7tN9T+HYDnuSeexZ5loM7LW9fu +ebnC7zvd9hvGGBjBF/R1Z8Qe+PPty0jRNmXsfHX/d2/NLrAY9dlrW6qM0uUW +Zw+/t4anlm+37VzGRHPfnA7akq0QscVnVNaDiWmOqW4mjzYB82q1g1M9UV9/ +3Hwu1gh+2Gpfu76GhXZ6PzPseXVhMXvwalsoC80aJven/tUArY2fSCvfs7BT +MjHZsWct8Kvkb+gzJeEz3Ac9q9mg8lLhUcAiCcOtEqPo29kgl/CKXXiYjEdG +BiKvC3JhUC5kXIZBwSBdr8chhL+W+epvrjFIIeYzl6kqES4EihRLbbtIQgXu +ZzGksqGsT3rbKVcRFJWbDjiZzQZjhT8G2zvImFHx34U9eoT+ZN+/bxVFQVjl +Nd5gzIXS0OLHCyYSqNpNhelGDoxnnlmyZ4bIP/S4Rga/Chw4X+NlvZKERx72 +WWgSeimTxFei3ETCWPu5fcZqbODtHeg+GiOCqg/W2gXeY8MIa5nvHgNRNG/X +uiZTMgGmN84c6ZkSxWIjnu8J05Mwzy9XGuwljhseLM/+q8SBMhXHverryEiS +aNQ6OciBvqwkgYYJwr9tO79uqymR31WbNaLFFByo27PUXpMLJavy17w7KIGw +smehPp8DRac2pOvKSGLC8fAbcrnTwK/DkVllKovT3hKq9lV90Ohq5CDyRxbV +JuXfPgl5DXPr188qNMjh5O8Zrp5DN9SYrUnjjZLHWrNnqhbmbSCwxNL8jbQC +yp3TCt9x+QlYC3YZuIUroGtktIOZTj1kSv36/uCtAtaNaVsGqd8D8UYLy48a +hNGQurJZyrcaKkW+FtVlUBElRu9W1lVC1t1NKn8mqPgumRubUFUKRuuODRvv +UMTlY5k+nplFwGijFfpUKeJXI6rk6J4L4F5zIW5BUAnbjPd3vsrKhjtW9ofM +fZSwUOwPaeB+GvB9f8Dr3KaE98V6S7i7EiFdYet2QyoNhX9fSl/xLAa0l0in +9kXTkJ7k7CEkFwUqOnd4ez7Q8J0Av9035zDQEU/zTTCm49R5MxNafjDgHDlz +ZT4d7fm+8l3r9IO4Y08POf6go3wi3+5JUy8YKqjT2r+bgbTPRhHq7e6QKRGi +0V7FwAnHPEfh0y7Ae4DPfYOYMt46b7n0caM93O4RTk0OVkbvE2Oxi8W2UJ3z +ZcL8OfG+rdE9T262hA6+OdO69UyMThN06DhmBoOh9+3mEolnN57lPR8QtGKu +iC8dZqLZhfM8l7L1oUD/ZedTMxYaSZ1rFc/Rhn7WkTtrilhoSV72989adXge +VW/ZdJCEx0rijneLsiE/Y1F9gxLRj6cmvP87wIa+uql3SwdFkP/LlGuSwgRo +2enXT3aI49KlBt/9EjnQ0RRV8V8yGWk6Cub75LmwfeWLt5NbKKg49FooYhsX +1A3OZH7kk8DeQ0u+hc9yICZ6VJTeJIF58xmDnXQOMPc2n5VtpOLY8QMPRZPL +IT91zYiKvCK2+K8J1PpdDLpr7eoTohRxKL2F6714Ebpq0mqOf1TE9uNm0/M2 +eZCmwRPca6CEVi+S8mYWMuB1+G0L4R9K+Db2mFGaVzyMmWw8Um9Lw5aBZmdj +y9OwQTT3u8QtGkrwmsXnFYRDTS9T+8tqOrIWXGmMbSHgXZLxydGHjrGPloZw +9gXCkZtyCj+f0rFSXG37GSdv0K9reyZMZ2Bbw8NqS/uDsOnV1t6+0ww8J5TY +YVjmCicHFq6t/sLAXHfZGPuxPfDJKv1HtqkyPlreyk/itwO9SpbbjcvK6PO8 +fvniDhtoWfyRpf1PGfXNf27Dg1shzjlPxcuFiVL77yapLDOFjJ8uDk33mJjB +btnJ+mUEvmnIziOzUG/yRl+Rmy6c3jD/RSaYhYuntkuvNtUE8881Wfd6WHiP +74Olv6UqSK3Wex+/kYRzMQXHG1axwSk1elyNS0L52YoWWXM26Iewec+6kPHW +2figOV4uiLy8Md0nTcE3PttLh4n6eQccfjvbQ8Hd3wP1dklxIeaHSf2fDBL2 +b73ocl+WDf3ZJ48b2Ymg1fnavN5EYv/V5J26j8nYvn+yZqUOFxLMpx/zH6Ng +xZT3htcmXPi5rNCmWUcCeb0jtdhdHFgwdIpdNsFCsb470UMhKmDcE0L9TiVh +ZOXuy36EXj5abbrl+jsS/vXpjnDQY0OwpuxfCz4KfqL7rAvewgWBc85zMQ8p +OEidL5xicKG87hTfvnAS9sUevV4kwYaMUYvIlaVkPGwkJ01ey4XvZfs7T+yj +4MtDflMZ5lz4YT6fQbMhznMx7Jy6MBtu+RoPuWtQcJmIiG0OwYt9anwhueUk +FL08Gi5DZ4Oi1n90jz4ylnlnGmoYcYExFFWdcY6CL0Jc920w4EL/eGVE5RwL +xy6kpMrksWBCMEb/2jISLjMfWL6dOE/Nd+2H/A9JmBZ1++6DtWy4miP98WGk +CPL0Cbc332bDOKN5Y72OKPoaU4+aX5gA+7wrJ+u/iWJ2i8WLH18ngbmp8oel +uzhKHkyd1ZTlwIaig550ZTJ6Tz6WfzrAAT/fslUyY2TM3niiY464b2ufLo+f +BYR/+Yv4VpsL9jp0Z5qrBCrERzXJFXEIP4YplyiSWB/XXZVxeRraW9pT9hrJ +4pHXrU3/vemDtE/HhEZnZHH3pqWPLfJeg8q3kSNiD+Swfq/uL4vkbph2/Tzv +fEIe4wRzBKz82+Bm7KeLLRKEX16tVZ3SQvjlBs+02DAFzGq0maB618Okz8uL +7DcKuGL73cE3TvfgeGKvQo8aFa30Z3p+pleD+OpjwUPErN1eIq92c7oS+Fix +cqPjVAxJpd9b9l8p7DOa1dXfroi3WGvPj94tAqsVN79fuKGIZsHb4/OSL0Cq +T+/s5HIlTGaZ1qg2ZcOITu4bn8NKuNAl27PYnwajgfrP01qU0Obxq/pLsYkQ +LhdmoC1Hw/b4S2OlMzFAU98ZxnuKhof/bgr6ZhgF1IELwk/e0VChLW9XfnoY +aH4/FVJpQEev0b0mao3BMOFr9scwl459FrDVlN8fDNxKOVYcOk7KBtcKhXjB +xQdFD+J3MnD/H78uT7Y72F1f/f7ODQausTub9rjBBY5mD3ipk5RRr/LB6cAp +e2BumEx/GKCMy94bLGtptQWNgECxjZ3KODPuc/7RgiVYC6ce/E+ViacknKM9 +LpkBmZryRvUsEyOrhWmfFhACipn35j4z0Ze7gRrcpQ+fEl2OcDaxkFk12FpV +rw1ukbt/cgpZWH4pg/rQWh0cuUmy0q4kZAebnnomwgZNrtpWsqwIavJzPhe7 +siEsXO2bxXuCB0bHc9SlJsA1tX1lW4s4CqS+0g6IIebvjSm1b+KJeZ3JuKwq +w4WRr+PvLTdRUM7t151JQj/6l/B8aFyk4CbX5GuaC0S/VgTtCngogdX9Lh9H +1nEgzX6305Z6KtYK9XIN68tBkHffewkZRSwP0byhQy0BR4M+4dgIRQyj0x/S +jC4B96fU0mvvFdGfxWe/GJEH9d/0hto2KuGIGIO0jJYJtUs1KZs5SjgRzJB4 +khUPr+GwY601DU2yuPOtAaeBYfKi17SShqabHCwO9IRD5UkRk1eCdLQJ/eoa +cjwEvE6eHj15mI5x79P4y6MCQVLJOp7RQkeD/1J/ZqV4w9TVa7v4FBmoUWis +73b6ICxMrN/77xQD5x7XmOxtdwVD/6wdc58YiIdOGUXJOcGOSK/5VFTG6yfz +tVXW20GV0IoDA4XKaP4xvoqbZAOb+s/U0ReU0XHfLvnx3K0geEjNKtmJiaIa +QsYCKqbwtFDr7Y8aJi7b7cAvtd4YKm49TUkVZeGGUYvVA+m60BJ3NnpLAAud +mj2d1T014YXO5b7klyzkyVsVYnhWFa5Erqgc1CThpvDfVTsI/edO3l4ixCZh +zJikbfMmNrSz51ZHOJDxutCnK/OLHKgoezajRabgWf4rA0FE/UR1R+QHuimY +u3Rw/xRR39WeIqm7kknIEXv9XkyGDQE/r6fIWItgR3PU2VuxbBg7o+iiep+M +h5qllz0g/Kai/KonHv4UvP22tk2N8KMFXVJ5peslsJt9nOfeaw7Eppu1DXxj +4WpGJvvJLRVo32w+YypDwgbjfHFzQi/tfIP3JfaQsPvru6DDG9iwaqUeT9ki +GW3dp+zTCf2usn1n4lVLQSXnH5sXWVzQVLXpuxtCQrGnpa+sKWxQ2OeYwHOZ +jKXtA3U7mAS/ok8+f+tIQRvTQrcwgh8R9zsORGwj4W/v64WhQmzYau402rCW +gv05Me1ZhP6PXerZMl1MwrDSrwVKSmyoKmerO74k4x/PyV12hN43PCqonYql +IG9Vn6ggwQM3yGs4/YuFf3smtsm8YMF75eGcnyQSqn6UkGIS5zF6FMDvPkPG +pxyPGyc3c8FMeDLMy5uEUQGpQ0NiBB8077xJ307wjOnsNEnMm2kXDq9Yb0zC +m2/UNyEx74TOpk+EKVDQcH/JTkMiv66c5Vs2tZCx3+y7rYkuF6Z93zwsP0FB +F/kKjgNyodbtmk2GMonwQ2ZHy4j47/cs+TMhQMFaLZETesT+O1+atsseoGDm +BQXRVDMuHOld29RpR9Q3a4nuPMFDSrbi52W6FLxRv1PvJBHPOqfJoG+BhQfc +svgz3FhQ3exd3MNL8Hqi65wrsX/Umm7zX/dIOMP7QCJahQ0hsw8O/HdSBC99 +DFr4dZMNPvQrclOaovjjt1rVUM4EDK7WjKkeEcUYRrp59cdJeLx/Zs3G/eJ4 +2j1AtUOKAxHO7O/yNDKeXnYixeMdB+r2bEixGCZjp0dk+laCb1deCK4YPU/B +ZGPWFcENRD88O7KwzUUC7/aVbN9cwoHH5KdJPWKSqJfDPLL56jSUJdVsOaMv +i/XKXdd1RvsgVFZ0/NW0LEqdpVdRy19Dc+uTklV35RCoHNbRsm5I8WvRSDwu +jx1M5pnhM22wZCuz05CigJUX622f9j2B59I1dRKhCqjV++6gVlw9FOQY/Y7t +UcD413m/qAH3oGwqf6X1OioybZ69jCyphnZBY+ewFCqai8/P9ay8AYbupXku +36gYsfFPq+evUvAz2/j5nqUido9fLn7SXgT/lXEztCoVscqU45V97QKUbg1S +9+JXQpla3YWTb7PhVIXuSh4vJRTY86dS+VsaONb+0VrbrIR3P4dqnb+YCIGF +6ZpVMjT0dbIppwjEQsEWP7+8CBp+adnJ72sVBTJqpBy9fhryb1hxd01lGFT1 +zf4x0qdj9IJbv3VPMGxmfrzRm03HIT9xhYdK/kBxyNnQNkXHVztOXDZL9YL5 +LdkLa2wZuFCZK1aw6A46x/bcZFUykKEh5vv0kwusU9vic0NIGdOqPytO8TvA +gUMumTv9lfHhwsLvx322MP1hY2nVM2XcmXTk+yMpK0gTd/oVuJaJJP/ILdY1 +ZqD+MzTraRwT13cWnfqzygSE7nivODbIxMPTL88uH9OHf5olD+JMWBjJ0tpx +4ZU2lDItKS4FhP4ZPGTpuqqDzPWjceYuJBx3eNBoTfBtkdrWwyctgp7Ffz+n +7WODxcfuAL+3Ivg91a4riTwBvyqFte40iWPbPd8vR6I5cGlG3OBFDBldcy1e +JEgT+vIy1PkEUFBT7n2ZDPE+qB40jqqeJ/zV6EHPKEI/U43vz2Tfl8B+79KT +4xoc2GwnZ/rhIRUfR17YHtxbDpsMTtmlSCviqQ++z3p1SsDLVOIBb7gibtC8 +yl/lfAlicvZVGL9TxI++D5/LZ+fBm9Y+GRNdJXQX21F2XTcTGFu4Jz9NKeH6 +1Hcyfyriof1xtI3Gdhr22J6OKT1zGi46fu94V0HDpPHyvZzJcCh7Htu2VYCO +XwVfHX2SEgIjnn+8V3vR8clKNC9MDwS/j8P6DU/oePTbuYEnZd7QcSE3L1KB +gT/X7yKl5B0Ep3Cli5mRDHz0y6Qiut8VZPUGaf4fGThyOu9Eg54TCEq8WVwF +ytjnxDvYZ2oHbDh+MKhAGRt5tRclrtsAr5nl9ot/lDFp9Xtfz9tbwcpn7oP8 +HibGcfL2ZBqawmCgXG7KHSYuUNUOPLA0hq0NAoOCIgTPmiJHZCp0YUjtxcsP +fixcETRvPXBcE8QHs2d/P2fhuMK22Z5SVTikOy2+Wp2EP/XO8CgQfHssZ5H8 +d4yEpm919ymYsEGoLCrzuB0ZL8wq3Jgh/MevLIdj7qIUXOrC+alG8M0zn9bS +1UHBbZv61avkuPBabm72VCIJF55dct62hg2G9M3SqyxFcEHyX4XyGTash/Iv +jNr/61HS+xgNLvitzDfN8KHgCInCfUXwbXq9o2GeqgTm2MulpPYS87GBwZj5 +GAv5cwyH9nepQNLfdc4BUiQMnRY32EjopULhyvGwl8S8UpXqu6DNBsfZp9F9 +82QUvh1IoxB846uVGNlTTcHt/svtQon5ZXZoA3wNJmFdG3e4ksyGQ1L/Cc0X +kPFB5A75IWL+eekrsIPfnoKNcRLnPxN82xRY3V1uTkLrwbBLSgTfsjTHvCaZ +FIz7VmWbQPRvpePDKpkiEgqMK6mvV2TD7IHguzu7yXhMke+mkz4XVpWr6Mqd +oaDHXNiDMYJvpd+SByd+sFBh2sCrfZwFlwa7/lGFSLg19LzsWuI8iWWL8WnT +ZCzYXWI1TNyHYHvvlywvEn5RK3xkT/CNR97EvtGCgnZ7yY56xP3b2dkG7jUg +4fOdEef/EvVr+SrvXyZLQX8Hv9PiRH5iO1O6DJvImF7zmqVC6Luhk7tR/3EK +ln0O7JQk9P+EdOr9xzRiPnPdvS+BiM8wTz0ps5yCoY2+be+I81989GqblRsF +fe0Db4kT97k+RUzlty2hB9ElcZkE39yjq9y1tSk4JrtmbxIRLxPvOZvMs9Bq +Q1JNezgLmDsLXp1YQULdhOF8I2L//FnnPbJmRPzuu9EPiPw/tSqY1uiQUN/s +fl8skf++RwZByyQpSG3OeHKL+H1p0r5ECXkSmrl6aDsS/2+Uux4ZtoSCN9dM +Vy0j8lvY03UwXY2Cj7Km5M4T8Sn+f9c9EyPhwWADUxax3sucvstjBwUPJeSJ +FhC8Vl3J52OpRMFds1WiLsT66bKGkYMqJAz8b/lYJ7E+xTc4tGEVsf/nGMwg +1neUZe1/q0f4mQnhMXdivSC7U9p7kZhP1U57hpqz4H+c6i1Q + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1mW0VVUUgNGHtJSAtLSEgHR3h9IhpYKA0i3dKaDSIY2ClDQoKVLSIN3d +SEg36NzDH5O1vn3OYLzLO+cO0jZpX7NdpIiIiFJvRUSEud0f9cirn+mM5hpd +xPxZJzN/0QXNj83s5iazuPmZ63HNWTq/WdLMYm4w77iWxr7CXpNc9q1mHuf3 +zIGkI7PzdeZfzlPal9qr8Y1OGH4Gezke6HR6lb021ogdZn2e2+eS3OEiXZnP +dTz9o70Ud3Ve7tsHkZ4Dehjvum+uLs9DHZmd9ga8sM+jEfl44Gww73NQDycK +u3RDXtrn05j8RGW38095ZV/AFxQgGtHZ49pnvLYvpAkFeehsCBk4pEcQg73h +8/HG/gtNecdn+MlZaf7RhXhkH0pGDutU7llmr863OpGeZ69ANvtG85Hz9PZf +7XWIqfeZjfjXnsm1tfZF9hT2xfZCZhUzh7nZLGE2cz2+OVsXMMuYWc3fzWLm +PdfTmit1YbOWmdvcZpY0C7v+ODwH5NOZzA/M9WZR84jrqc3lugY57VvM75wn +ts+3V+RD+x/mY+fv23+zf8Lber/ZOLwELDbec32JvSpf6gR6jr0s93URntiH +heeWo/p7krhvga7EEx2Lv+xfEIkl+iuK8lQPD5+FY3oksTmgm4TnmqW6OcWI +E96x8CyH33H4Nw0/V3g3OOjepkRmmW5B8fA8c8hZM6KwXLekRPidczh8PqKy +QreiZPh344izr4jGSt06fFeEz8hRZ82JzirdhtIk5ZizFsTgV92WMuH7g+PO +WoZnid90O8qG95UTzlqF3werdXvKhWeLk85aE4s1ugPleaZHkIXjelT43XFK +tyE2a3VHKvA8PO/h+eOEHh2+azit2xKHdboTFXkRnqPwTnBSjwnvDmd0+PKM +y3rdmUq81N+HZ41Temx4Njmr2xOPDfprPuKVHkl2TutxpOGc7sA7/K678HF4 +TzjvrCPx2ai7UpnXelR49zijx5OOC7oTCfhDd6MKb/To8L5wVk8I7zsXdWcS +skl3pyr/6jHk4pyeGN4jLumveZfNugfVCF/MY8O7zHk5iQxc1l1IxBbdk+rh +1XP/OGd5uKB/ICNXdFcSs1X3okb4690/3lleLurJZOKq7kYStune1CSy+yc4 +y8clPYXMXNPdScqfug+1iOL+ic7yc1lP5QOu6x4kY7vuS22iun+SswJc0dPI +wg3dk+Ts0P2oQzT3/+CsIFf1dLJyU/ciBTt1fz4huvsnOyvENT2DbPyte/Me +u/QA6hLD/VOcFea6nsmH3NJ9SMluPZB6xHT/VGdFuKFnkZ3bui+p2KMHUZ+3 +3T/NWVFu6h/JwR3dj9Ts1YNpQCz3T3dWjL/1T+Tkru5PGvbpITQktvtnOCvO +LT2bXPyjB5CW/XoonxLH/TOdleC2nkNSZwv1RzwNz59eba8bnjP7n5H+//9P +btf+AworCus= + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrsJgFAURMHrJ7ANS1EDEyNLMBAeCA/U/lEDwR6cZOGw0y55Xrsy4qgj +YkrHuRbxreqp5p557Ie85T09f4p3cBzHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzHcRzHcRzH/8YvFxbRZQ== + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl3k8lG8XxiUpKsYyY8k2zIwZSdZkPUeiQqSERFlKyk6JQpQlsu+JSiSk +kmhRQogsbSKl+qlsaSwzKon0Pu8/M5/nM/fc59z3Oc/1vQ7V3X/nQV4eHh4T +4uP/3yHhu1bx8JBQmPlCIXQlG6wsD74eriHhMcbMmDWLDVsd97B5w0Twe7N+ +r3olG6aUovmo6qK4ZLCXlZAxAYfPNCVd+yqKOd45ysfeToIAdcjrYKkYDi3M +F3JNp8EuQt+U5iyOeu/m5PdTONAiERwoTSUjXU6zer6PA8vNW4TDvpDxo/2h +qjTkwk/NbZX9ORSM9EzR1NHlgsC+qgJ/JwkMUejOd7/GgfYtlueWi0jiV9G2 +rOnyaXBqXfy2vEUSrwm0FCXcmgTR6KwCiJPCAWrGbT/r73B03mV7qIE0Oq/b +LaUzPQoLdwR2jv2TxoTqU+UiO4bAgef508bGNdh207On6fcguKx8qpd/VAY/ +DAaERez4AAl2l3mu68qivW3ikty5PnB1vtn6aEIWkywkdy6rew3OVy5+WnZH +DkOZJL07zd2gGn7t0L2j8ihY+8QzNa8N7ASDZmvEFbD89Jc9Qt+eQMmxJcPl +IQrI3DVz2LmoHiwaK2zlXyugDyXkWnTsPXhv5/qrfS0VBbcsuy11rxrCVyw3 +E0qmYqh7f66o8g04eqFN9M0oFa9Eh5v8t/oaRG4PS9SxUMR4kZOHbr0vgqBt +uvqdFYrYPf/pTEXTBXhEEz78mU8Jbd6rTH2eyAZJ+X6TTE8lVDNIHN8/lwYd +v+vOtzYpYdTL3ysr7iWCp0wFS3UNDZMsBbFALhbE9yd6qIXTcO/8v/3/9kaB +ZHSMzO0+GuabXDx1/2kYqD3xP/ViIx07n1//Hj0SDPlfjrr5ZdGR+fPRN2sT +f5i2ijtpMknHt6GPo3LKvMCx7yxU2TBwv87hgS8kD6DA1dOXKhg4Q7ctmvzr +AiNPq/1VVisjv2Hh8xg5B7ic15X1zVcZd4zz0DpGbaFqG48eq10Z1XPHtwxs +sILXUvR4PhUmPr+jt3X7MzOweOZh5xrLxFDxNipD1gQqn9zcM/2JiT9WOdje +X2oACgPjK2SQhdoWpXN5w9ow/hp12/NZ6Fh7bLo1UB1aTfrm/v1jYSvbtvbk +WhZ89nCeCnIioZDxjuf9JDZ02O7f/4MiguKFVwVindkgY+z7O/2NCA7fr2qY +EpmAyl1FW4cSRPFdtbTBE9Yk6L1+fYLfTAxL/OPhXNkUJHXYO116LI5HL7hf +c4vkwMjNC43PoslokDzgNijJhchH/J/KDCn493a9h6kFF061h9NKflPQ/zjF +vZWHC2Ov/2Y+rJVA+vPU8FEdDqTzX62LPyKJG494O6oLTsNRR+WvdzJkUVFf +6ZJ/8xvYd4qx022HHO4tSCl8VvsSNgsrFX8Sk0cpLfn4rbEdcKTd7DrphTzG +bWzkdVVshYUGPb9bZgo40PZTfvJxI8xK2184UKKAny5MC8V61UFG4jLaj0Wi +X6/KGEYt1MD1m3cKvZ2pmN5UpaMbWwW/bUfXBtZRsYC6k90wUQ5hRy8/55NS +xO/XP5YnWpRAqKWje9QJRfSX8mtwCr8EErrFtn1vFfHxQO6wfWUejBcF767T +UULjKztMPS0zgXPuma9qlhJmOHXTteRSIC+x+nPopBLSk4NnzZviod4o3/yG +JQ1PegxZ5eecBkrA8kb/chqKtvbfyBOMgGLqn+2Ny+k486j9CqM0BA7sDJq+ +6EnHxIxT40VXAqE1N2LSoYmODlJGuQLN3lCSHv/xtxwD2Zwjj17dPAj3BCU+ +K0cwsPvAyPl7Y66wyKs6NzTAwDI/Dfk1u52g+RbwJhopY1ppR22eox0wA0c8 +BS4o4+noOIrTMxtoui06SJlTRsddWkp/O7ZCSmCLb7UDE4sTPTzW25jCvJmA +A7OaickSn0aOehnDyHMrjThhFqafvV17/IkuLHtLVgjyZSE1S2NjboImOCae +kzzQzcIa7azNSa2qoDr9NkJvHQmHu8MbZgj9Pmf9RXJimIQrO4uNYoANmpYe +QR2lIqjVOShRM8CG5wbppbwuolhnuc2ZMTABr1Q6ljqIi+Htq4av7xhNwXRx ++3O3ZHHM5iq5DFlyYLfHcqkgWzK2eK99NPyHA5uih3+lCVPQ0UGAMrSVC3V/ +3b0et1EwzdVMxUuBC6GSDnnksxLocmlNHTWIA6rKv6+0GUniUh9L6yvO0xDZ +9zVw/UFZ1NBi6L7r74X/fMdXCsvLoV1VeNSd26/gZf8gBn2Vwy8o8HxUqgss +r4QIDBXJ482lrrTk3U+BOdyrqbmO6McgSTtaVxNYt6/F+GRCT+Fcw825h+BH +769LGFPAfyYLbvIb78KTJYIW0pupaOoUU3Y9+zborzt+v6GYinbbjZ4XRF6H +X8trAnx4FPHBUvu/1KKrcLLL65eTuyLGRH5zXN1yGTbjROuOJkW0DndRjVmb +D7s8TP7bLquEI6lU5KZnQUzvy7f7I5RQv1/YeXQuFW433TWS71fCaD5BjQMa +CSC6TvG+jxYNy2pe37d5eQayR9tFXmTQMKp/2eUdPZGwzxZqN07RcEFpX3E8 +KxS2CXJ079nQ8ZNx9bU3D4NA3WhO+WsFHTOXGj3lHvUFi6k41UJ+Bv4cnlpz +Qv4QnJ22Ifl4MrDwfkls3A83ECwaM9rUzEDfGpaUlbQz2BnMbXSiK6Olifol +/ardMBTzLiIsRhlLZTUF0z7tgPsRCasuDyqjtic1pS3IAqpaj54YQCb+q1lV +cPP0ZrgSf3d3ywUmFvW/GTlGRXjWHmFmMMvE9QM//et264HonijxNnsWfnBb +eyz5phYUqY0oU2pYONM5bD/1RA1y3g66VsaT0NByfmmMNBsEdn+4Or9FBG3/ +Wepfi2IDv8bxyD28orjFMPrsqPUEMDlDwx+mxNHWaaR56Q0OhPxZ70WtJqO9 +FffMNnWi32aVWxsPU3C9zbNa381c2JyZM5jAksDJI1Zx+/s54Jhckur2VQIf +1PSsXDkzDXdDHC4pvqKiykh1vUFwGSwMJqkWaijim1ptte4VxXCsY8vzqxmK +mLJc7A0zrRDG1+35uHdSEf8mSf7+sCkXogevdjKslTArV7iZK5kBp3bdjH3N +R8Og+Wl/Mc848LIW7Z3woOFYFe8zvYBoyP1t5kdqpOFDj6Mehs4nYYxTM7JF +gY7HWatz/+gfg1P5M2VxEXQkfTV9NnQ+AJy4S2q73tLx68PSAGGVI7CodTbF +TpeBMlldbyR3H4AR2qfbXzMZmFq/cPdf/37gHvCvif/BwJE/Ec2BlY6gSYvr +fLBbGZe+j7q2kbILfFxmbM7fVsbsM9IHw7nboWP4wp1kESa+rGjeeM9oC/jI +irsl+DFxo1CB0u11m8COz9kxqZ2J3UEnzxuXG8LS3jWyr5RZePlcXb/51g3w +2+76WtkYgo+mmhrlxzRAaERdoHqEhduM/p1d800FbO+SWwsoJGRKTxSpEfrD +7io+dribhNdivgvmaLGh3nbfrZFUEQw/PRUo08yGT+sTetPNRfHIfr/dYncn +QPat2dZ/86LYFe31iSswBVfSlgg0HxXHsqGlJ49pcCDJyMjMXI+MGzMahou/ +caDkq93SZXNkXFuSJpdlxgVHSftEy1sUXDyjd+6bKhfw4Zn8TYESeKTZRa80 +mQMn7lFzDylL4hnaYeWfZ6YhhrxJz9daFm+nrOzrPNQHCge7xg7yy+Edtlek +hfZryKlvEDbslEMj2jM9GXYXGAqn3t9+Th4lt225K/DzKTyeVcqeUVBAv1qb +wRzHJzB3MSdD8rQC0p/wXyvueAQfgkzi7D4q4IPzAYMJH+6C9VqdyxxdKv64 +IiemTauGAemGRc88Kka2mMy+sKmE2lf1Jgo/qFjBLfIstSuFhVWBuNVeEc9F +kj/qbC+Cgc2iPEJ3FTG2mo9ZPJMPKzYzSyRElFDHoIDGNMoG6xNvkuYClfBq +IDZvC0sD44/3vbldSsg//urADU4C4f9GAqyUaRiombH2+dEYsCsur4uMJ/j4 +p89G6MkpMPj2eezHFxomOqzb3/kjFAw9q/aabqajgmvbqu/WwTAsfK+l7BId +e46es3vg4AeyF/nt/P/QcYX2WMLg4CEI8GArC+1loO3iR8HMKHcgTZsPTt9l +4LsETcv1K1xAdom93SYpZayZC3ENPmAPT4R2JWiEKeP+X39OarnZQs3XlisH +3ijjGuH4LhVbS2ia6uIJ0GHis1UHfOOVzCCEuXp3RhoTr16/XhJYiFBnlvOC +/J2JlXd/7jRn6YNUfm1KoCULFRhHpBu2aMPTqMz1/tdYmLlqaUDV8/XwqFCu +TDiQhBshf0aYzIYjPYW8oetFMPVw2NobvmxI1w16eOy7CPp8bn6QtX4C3n+U +VTB+K4675l+qG+Rw4Oabg1k/z5NRvHFVYQCdCzJOua+0d1HQeMWLiE0E/77c +SOCVEJHAxdptFWUTHFBQf5We0iWBGyYoaVvIHHA4cGn4WSsVL1naMZ+uK4e6 +ipy/O+iKSCsvfkS7Vgy/BHdIZsYpoqvQiK3f6YsQpRkpIfVVEaVDlqvP/siF +DU1JadMmSljG89ut/lYGrPKvunN1TgnZux/qKYnEg6h5X3K3Aw2vhd7qFF1y +GuxrGBKNNcRz5ZEXuurh8DTBQZpPnI4yLi8qrkwcg6Bf1V2iQXTUarLbu1km +EEitDbYZXXS8adXJEzdzBF59WX6XsZaBri7tN9T+HYDnuSeexZ5loM7LW9fu +ebnC7zvd9hvGGBjBF/R1Z8Qe+PPty0jRNmXsfHX/d2/NLrAY9dlrW6qM0uUW +Zw+/t4anlm+37VzGRHPfnA7akq0QscVnVNaDiWmOqW4mjzYB82q1g1M9UV9/ +3Hwu1gh+2Gpfu76GhXZ6PzPseXVhMXvwalsoC80aJven/tUArY2fSCvfs7BT +MjHZsWct8Kvkb+gzJeEz3Ac9q9mg8lLhUcAiCcOtEqPo29kgl/CKXXiYjEdG +BiKvC3JhUC5kXIZBwSBdr8chhL+W+epvrjFIIeYzl6kqES4EihRLbbtIQgXu +ZzGksqGsT3rbKVcRFJWbDjiZzQZjhT8G2zvImFHx34U9eoT+ZN+/bxVFQVjl +Nd5gzIXS0OLHCyYSqNpNhelGDoxnnlmyZ4bIP/S4Rga/Chw4X+NlvZKERx72 +WWgSeimTxFei3ETCWPu5fcZqbODtHeg+GiOCqg/W2gXeY8MIa5nvHgNRNG/X +uiZTMgGmN84c6ZkSxWIjnu8J05Mwzy9XGuwljhseLM/+q8SBMhXHverryEiS +aNQ6OciBvqwkgYYJwr9tO79uqymR31WbNaLFFByo27PUXpMLJavy17w7KIGw +smehPp8DRac2pOvKSGLC8fAbcrnTwK/DkVllKovT3hKq9lV90Ohq5CDyRxbV +JuXfPgl5DXPr188qNMjh5O8Zrp5DN9SYrUnjjZLHWrNnqhbmbSCwxNL8jbQC +yp3TCt9x+QlYC3YZuIUroGtktIOZTj1kSv36/uCtAtaNaVsGqd8D8UYLy48a +hNGQurJZyrcaKkW+FtVlUBElRu9W1lVC1t1NKn8mqPgumRubUFUKRuuODRvv +UMTlY5k+nplFwGijFfpUKeJXI6rk6J4L4F5zIW5BUAnbjPd3vsrKhjtW9ofM +fZSwUOwPaeB+GvB9f8Dr3KaE98V6S7i7EiFdYet2QyoNhX9fSl/xLAa0l0in +9kXTkJ7k7CEkFwUqOnd4ez7Q8J0Av9035zDQEU/zTTCm49R5MxNafjDgHDlz +ZT4d7fm+8l3r9IO4Y08POf6go3wi3+5JUy8YKqjT2r+bgbTPRhHq7e6QKRGi +0V7FwAnHPEfh0y7Ae4DPfYOYMt46b7n0caM93O4RTk0OVkbvE2Oxi8W2UJ3z +ZcL8OfG+rdE9T262hA6+OdO69UyMThN06DhmBoOh9+3mEolnN57lPR8QtGKu +iC8dZqLZhfM8l7L1oUD/ZedTMxYaSZ1rFc/Rhn7WkTtrilhoSV72989adXge +VW/ZdJCEx0rijneLsiE/Y1F9gxLRj6cmvP87wIa+uql3SwdFkP/LlGuSwgRo +2enXT3aI49KlBt/9EjnQ0RRV8V8yGWk6Cub75LmwfeWLt5NbKKg49FooYhsX +1A3OZH7kk8DeQ0u+hc9yICZ6VJTeJIF58xmDnXQOMPc2n5VtpOLY8QMPRZPL +IT91zYiKvCK2+K8J1PpdDLpr7eoTohRxKL2F6714Ebpq0mqOf1TE9uNm0/M2 +eZCmwRPca6CEVi+S8mYWMuB1+G0L4R9K+Db2mFGaVzyMmWw8Um9Lw5aBZmdj +y9OwQTT3u8QtGkrwmsXnFYRDTS9T+8tqOrIWXGmMbSHgXZLxydGHjrGPloZw +9gXCkZtyCj+f0rFSXG37GSdv0K9reyZMZ2Bbw8NqS/uDsOnV1t6+0ww8J5TY +YVjmCicHFq6t/sLAXHfZGPuxPfDJKv1HtqkyPlreyk/itwO9SpbbjcvK6PO8 +fvniDhtoWfyRpf1PGfXNf27Dg1shzjlPxcuFiVL77yapLDOFjJ8uDk33mJjB +btnJ+mUEvmnIziOzUG/yRl+Rmy6c3jD/RSaYhYuntkuvNtUE8881Wfd6WHiP +74Olv6UqSK3Wex+/kYRzMQXHG1axwSk1elyNS0L52YoWWXM26Iewec+6kPHW +2figOV4uiLy8Md0nTcE3PttLh4n6eQccfjvbQ8Hd3wP1dklxIeaHSf2fDBL2 +b73ocl+WDf3ZJ48b2Ymg1fnavN5EYv/V5J26j8nYvn+yZqUOFxLMpx/zH6Ng +xZT3htcmXPi5rNCmWUcCeb0jtdhdHFgwdIpdNsFCsb470UMhKmDcE0L9TiVh +ZOXuy36EXj5abbrl+jsS/vXpjnDQY0OwpuxfCz4KfqL7rAvewgWBc85zMQ8p +OEidL5xicKG87hTfvnAS9sUevV4kwYaMUYvIlaVkPGwkJ01ey4XvZfs7T+yj +4MtDflMZ5lz4YT6fQbMhznMx7Jy6MBtu+RoPuWtQcJmIiG0OwYt9anwhueUk +FL08Gi5DZ4Oi1n90jz4ylnlnGmoYcYExFFWdcY6CL0Jc920w4EL/eGVE5RwL +xy6kpMrksWBCMEb/2jISLjMfWL6dOE/Nd+2H/A9JmBZ1++6DtWy4miP98WGk +CPL0Cbc332bDOKN5Y72OKPoaU4+aX5gA+7wrJ+u/iWJ2i8WLH18ngbmp8oel +uzhKHkyd1ZTlwIaig550ZTJ6Tz6WfzrAAT/fslUyY2TM3niiY464b2ufLo+f +BYR/+Yv4VpsL9jp0Z5qrBCrERzXJFXEIP4YplyiSWB/XXZVxeRraW9pT9hrJ +4pHXrU3/vemDtE/HhEZnZHH3pqWPLfJeg8q3kSNiD+Swfq/uL4vkbph2/Tzv +fEIe4wRzBKz82+Bm7KeLLRKEX16tVZ3SQvjlBs+02DAFzGq0maB618Okz8uL +7DcKuGL73cE3TvfgeGKvQo8aFa30Z3p+pleD+OpjwUPErN1eIq92c7oS+Fix +cqPjVAxJpd9b9l8p7DOa1dXfroi3WGvPj94tAqsVN79fuKGIZsHb4/OSL0Cq +T+/s5HIlTGaZ1qg2ZcOITu4bn8NKuNAl27PYnwajgfrP01qU0Obxq/pLsYkQ +LhdmoC1Hw/b4S2OlMzFAU98ZxnuKhof/bgr6ZhgF1IELwk/e0VChLW9XfnoY +aH4/FVJpQEev0b0mao3BMOFr9scwl459FrDVlN8fDNxKOVYcOk7KBtcKhXjB +xQdFD+J3MnD/H78uT7Y72F1f/f7ODQausTub9rjBBY5mD3ipk5RRr/LB6cAp +e2BumEx/GKCMy94bLGtptQWNgECxjZ3KODPuc/7RgiVYC6ce/E+ViacknKM9 +LpkBmZryRvUsEyOrhWmfFhACipn35j4z0Ze7gRrcpQ+fEl2OcDaxkFk12FpV +rw1ukbt/cgpZWH4pg/rQWh0cuUmy0q4kZAebnnomwgZNrtpWsqwIavJzPhe7 +siEsXO2bxXuCB0bHc9SlJsA1tX1lW4s4CqS+0g6IIebvjSm1b+KJeZ3JuKwq +w4WRr+PvLTdRUM7t151JQj/6l/B8aFyk4CbX5GuaC0S/VgTtCngogdX9Lh9H +1nEgzX6305Z6KtYK9XIN68tBkHffewkZRSwP0byhQy0BR4M+4dgIRQyj0x/S +jC4B96fU0mvvFdGfxWe/GJEH9d/0hto2KuGIGIO0jJYJtUs1KZs5SjgRzJB4 +khUPr+GwY601DU2yuPOtAaeBYfKi17SShqabHCwO9IRD5UkRk1eCdLQJ/eoa +cjwEvE6eHj15mI5x79P4y6MCQVLJOp7RQkeD/1J/ZqV4w9TVa7v4FBmoUWis +73b6ICxMrN/77xQD5x7XmOxtdwVD/6wdc58YiIdOGUXJOcGOSK/5VFTG6yfz +tVXW20GV0IoDA4XKaP4xvoqbZAOb+s/U0ReU0XHfLvnx3K0geEjNKtmJiaIa +QsYCKqbwtFDr7Y8aJi7b7cAvtd4YKm49TUkVZeGGUYvVA+m60BJ3NnpLAAud +mj2d1T014YXO5b7klyzkyVsVYnhWFa5Erqgc1CThpvDfVTsI/edO3l4ixCZh +zJikbfMmNrSz51ZHOJDxutCnK/OLHKgoezajRabgWf4rA0FE/UR1R+QHuimY +u3Rw/xRR39WeIqm7kknIEXv9XkyGDQE/r6fIWItgR3PU2VuxbBg7o+iiep+M +h5qllz0g/Kai/KonHv4UvP22tk2N8KMFXVJ5peslsJt9nOfeaw7Eppu1DXxj +4WpGJvvJLRVo32w+YypDwgbjfHFzQi/tfIP3JfaQsPvru6DDG9iwaqUeT9ki +GW3dp+zTCf2usn1n4lVLQSXnH5sXWVzQVLXpuxtCQrGnpa+sKWxQ2OeYwHOZ +jKXtA3U7mAS/ok8+f+tIQRvTQrcwgh8R9zsORGwj4W/v64WhQmzYau402rCW +gv05Me1ZhP6PXerZMl1MwrDSrwVKSmyoKmerO74k4x/PyV12hN43PCqonYql +IG9Vn6ggwQM3yGs4/YuFf3smtsm8YMF75eGcnyQSqn6UkGIS5zF6FMDvPkPG +pxyPGyc3c8FMeDLMy5uEUQGpQ0NiBB8077xJ307wjOnsNEnMm2kXDq9Yb0zC +m2/UNyEx74TOpk+EKVDQcH/JTkMiv66c5Vs2tZCx3+y7rYkuF6Z93zwsP0FB +F/kKjgNyodbtmk2GMonwQ2ZHy4j47/cs+TMhQMFaLZETesT+O1+atsseoGDm +BQXRVDMuHOld29RpR9Q3a4nuPMFDSrbi52W6FLxRv1PvJBHPOqfJoG+BhQfc +svgz3FhQ3exd3MNL8Hqi65wrsX/Umm7zX/dIOMP7QCJahQ0hsw8O/HdSBC99 +DFr4dZMNPvQrclOaovjjt1rVUM4EDK7WjKkeEcUYRrp59cdJeLx/Zs3G/eJ4 +2j1AtUOKAxHO7O/yNDKeXnYixeMdB+r2bEixGCZjp0dk+laCb1deCK4YPU/B +ZGPWFcENRD88O7KwzUUC7/aVbN9cwoHH5KdJPWKSqJfDPLL56jSUJdVsOaMv +i/XKXdd1RvsgVFZ0/NW0LEqdpVdRy19Dc+uTklV35RCoHNbRsm5I8WvRSDwu +jx1M5pnhM22wZCuz05CigJUX622f9j2B59I1dRKhCqjV++6gVlw9FOQY/Y7t +UcD413m/qAH3oGwqf6X1OioybZ69jCyphnZBY+ewFCqai8/P9ay8AYbupXku +36gYsfFPq+evUvAz2/j5nqUido9fLn7SXgT/lXEztCoVscqU45V97QKUbg1S +9+JXQpla3YWTb7PhVIXuSh4vJRTY86dS+VsaONb+0VrbrIR3P4dqnb+YCIGF +6ZpVMjT0dbIppwjEQsEWP7+8CBp+adnJ72sVBTJqpBy9fhryb1hxd01lGFT1 +zf4x0qdj9IJbv3VPMGxmfrzRm03HIT9xhYdK/kBxyNnQNkXHVztOXDZL9YL5 +LdkLa2wZuFCZK1aw6A46x/bcZFUykKEh5vv0kwusU9vic0NIGdOqPytO8TvA +gUMumTv9lfHhwsLvx322MP1hY2nVM2XcmXTk+yMpK0gTd/oVuJaJJP/ILdY1 +ZqD+MzTraRwT13cWnfqzygSE7nivODbIxMPTL88uH9OHf5olD+JMWBjJ0tpx +4ZU2lDItKS4FhP4ZPGTpuqqDzPWjceYuJBx3eNBoTfBtkdrWwyctgp7Ffz+n +7WODxcfuAL+3Ivg91a4riTwBvyqFte40iWPbPd8vR6I5cGlG3OBFDBldcy1e +JEgT+vIy1PkEUFBT7n2ZDPE+qB40jqqeJ/zV6EHPKEI/U43vz2Tfl8B+79KT +4xoc2GwnZ/rhIRUfR17YHtxbDpsMTtmlSCviqQ++z3p1SsDLVOIBb7gibtC8 +yl/lfAlicvZVGL9TxI++D5/LZ+fBm9Y+GRNdJXQX21F2XTcTGFu4Jz9NKeH6 +1Hcyfyriof1xtI3Gdhr22J6OKT1zGi46fu94V0HDpPHyvZzJcCh7Htu2VYCO +XwVfHX2SEgIjnn+8V3vR8clKNC9MDwS/j8P6DU/oePTbuYEnZd7QcSE3L1KB +gT/X7yKl5B0Ep3Cli5mRDHz0y6Qiut8VZPUGaf4fGThyOu9Eg54TCEq8WVwF +ytjnxDvYZ2oHbDh+MKhAGRt5tRclrtsAr5nl9ot/lDFp9Xtfz9tbwcpn7oP8 +HibGcfL2ZBqawmCgXG7KHSYuUNUOPLA0hq0NAoOCIgTPmiJHZCp0YUjtxcsP +fixcETRvPXBcE8QHs2d/P2fhuMK22Z5SVTikOy2+Wp2EP/XO8CgQfHssZ5H8 +d4yEpm919ymYsEGoLCrzuB0ZL8wq3Jgh/MevLIdj7qIUXOrC+alG8M0zn9bS +1UHBbZv61avkuPBabm72VCIJF55dct62hg2G9M3SqyxFcEHyX4XyGTash/Iv +jNr/61HS+xgNLvitzDfN8KHgCInCfUXwbXq9o2GeqgTm2MulpPYS87GBwZj5 +GAv5cwyH9nepQNLfdc4BUiQMnRY32EjopULhyvGwl8S8UpXqu6DNBsfZp9F9 +82QUvh1IoxB846uVGNlTTcHt/svtQon5ZXZoA3wNJmFdG3e4ksyGQ1L/Cc0X +kPFB5A75IWL+eekrsIPfnoKNcRLnPxN82xRY3V1uTkLrwbBLSgTfsjTHvCaZ +FIz7VmWbQPRvpePDKpkiEgqMK6mvV2TD7IHguzu7yXhMke+mkz4XVpWr6Mqd +oaDHXNiDMYJvpd+SByd+sFBh2sCrfZwFlwa7/lGFSLg19LzsWuI8iWWL8WnT +ZCzYXWI1TNyHYHvvlywvEn5RK3xkT/CNR97EvtGCgnZ7yY56xP3b2dkG7jUg +4fOdEef/EvVr+SrvXyZLQX8Hv9PiRH5iO1O6DJvImF7zmqVC6Luhk7tR/3EK +ln0O7JQk9P+EdOr9xzRiPnPdvS+BiM8wTz0ps5yCoY2+be+I81989GqblRsF +fe0Db4kT97k+RUzlty2hB9ElcZkE39yjq9y1tSk4JrtmbxIRLxPvOZvMs9Bq +Q1JNezgLmDsLXp1YQULdhOF8I2L//FnnPbJmRPzuu9EPiPw/tSqY1uiQUN/s +fl8skf++RwZByyQpSG3OeHKL+H1p0r5ECXkSmrl6aDsS/2+Uux4ZtoSCN9dM +Vy0j8lvY03UwXY2Cj7Km5M4T8Sn+f9c9EyPhwWADUxax3sucvstjBwUPJeSJ +FhC8Vl3J52OpRMFds1WiLsT66bKGkYMqJAz8b/lYJ7E+xTc4tGEVsf/nGMwg +1neUZe1/q0f4mQnhMXdivSC7U9p7kZhP1U57hpqz4H+c6i1Q + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1mW0VVUUgNGHtJSAtLSEgHR3h9IhpYKA0i3dKaDSIY2ClDQoKVLSIN3d +SEg36NzDH5O1vn3OYLzLO+cO0jZpX7NdpIiIiFJvRUSEud0f9cirn+mM5hpd +xPxZJzN/0QXNj83s5iazuPmZ63HNWTq/WdLMYm4w77iWxr7CXpNc9q1mHuf3 +zIGkI7PzdeZfzlPal9qr8Y1OGH4Gezke6HR6lb021ogdZn2e2+eS3OEiXZnP +dTz9o70Ud3Ve7tsHkZ4Dehjvum+uLs9DHZmd9ga8sM+jEfl44Gww73NQDycK +u3RDXtrn05j8RGW38095ZV/AFxQgGtHZ49pnvLYvpAkFeehsCBk4pEcQg73h +8/HG/gtNecdn+MlZaf7RhXhkH0pGDutU7llmr863OpGeZ69ANvtG85Hz9PZf +7XWIqfeZjfjXnsm1tfZF9hT2xfZCZhUzh7nZLGE2cz2+OVsXMMuYWc3fzWLm +PdfTmit1YbOWmdvcZpY0C7v+ODwH5NOZzA/M9WZR84jrqc3lugY57VvM75wn +ts+3V+RD+x/mY+fv23+zf8Lber/ZOLwELDbec32JvSpf6gR6jr0s93URntiH +heeWo/p7krhvga7EEx2Lv+xfEIkl+iuK8lQPD5+FY3oksTmgm4TnmqW6OcWI +E96x8CyH33H4Nw0/V3g3OOjepkRmmW5B8fA8c8hZM6KwXLekRPidczh8PqKy +QreiZPh344izr4jGSt06fFeEz8hRZ82JzirdhtIk5ZizFsTgV92WMuH7g+PO +WoZnid90O8qG95UTzlqF3werdXvKhWeLk85aE4s1ugPleaZHkIXjelT43XFK +tyE2a3VHKvA8PO/h+eOEHh2+azit2xKHdboTFXkRnqPwTnBSjwnvDmd0+PKM +y3rdmUq81N+HZ41Temx4Njmr2xOPDfprPuKVHkl2TutxpOGc7sA7/K678HF4 +TzjvrCPx2ai7UpnXelR49zijx5OOC7oTCfhDd6MKb/To8L5wVk8I7zsXdWcS +skl3pyr/6jHk4pyeGN4jLumveZfNugfVCF/MY8O7zHk5iQxc1l1IxBbdk+rh +1XP/OGd5uKB/ICNXdFcSs1X3okb4690/3lleLurJZOKq7kYStune1CSy+yc4 +y8clPYXMXNPdScqfug+1iOL+ic7yc1lP5QOu6x4kY7vuS22iun+SswJc0dPI +wg3dk+Ts0P2oQzT3/+CsIFf1dLJyU/ciBTt1fz4huvsnOyvENT2DbPyte/Me +u/QA6hLD/VOcFea6nsmH3NJ9SMluPZB6xHT/VGdFuKFnkZ3bui+p2KMHUZ+3 +3T/NWVFu6h/JwR3dj9Ts1YNpQCz3T3dWjL/1T+Tkru5PGvbpITQktvtnOCvO +LT2bXPyjB5CW/XoonxLH/TOdleC2nkNSZwv1RzwNz59eba8bnjP7n5H+//9P +btf+AworCus= + "], 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]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + 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, 13}, {0., 1.1432124336654814`}}, + "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:eJwV13k4VO8XAHBJioqxjSXbMDNmJNllPUeiQqSERFlKyk6JQpQlsu+JSiSk +kmhRskeWNpFSfVW2NJYZlUT63d8/M8/nee997znnPe97n0tx9991iJuLi8uE ++Pn/f0j47jVcXCQUZLyQD13NguoW7+JebhJGTnafdyU8yR+jf30FCVeYD67c +QZixq+DVyVUk1E0YyTcifPBCjZf1ahIefdRvoUH48lD3P4oACbeFXpBZT/i9 +0kjOTxIJVT6KSzIIk/3/bngmQsJDwQamTMK298TaCsgkZEhNFqkSTvq7wTlA +koShM6IGmwh3bDGfNZUmYYNxvqg54eVJ+xPF5Uho5uqh5UjYuDeE8p1CxFu5 +54of4ZNSqQ+eUEko7LpnfwLhWrfrNhlKJHwba3asjPBMWcPoIWUSBv63cryL +sMrM2wi9DSQc6QlvmCV8WHdGdK0aCX/qneWSX8OCq5GrKoc0SLg5/HfVTsKf +2uRNa7RJqG/2oD+WsORavffxm0g4H1NwooGwnZ1t4D4DEj7fFXHhL+G0i0dW +bTQm4a03aptxLQt4lfN1+k1J+Az3Qy/hzYHVPeXmJLQeCrusKMCCiAedByO2 +k/C3943CUMI/zBcyqDYkHLgUdl5NkAUbU0SUf9uScCK6JC6T8NG+9U1ddiRk +Zy3TXSD82cN5OsiJhALGO58PkFggfeNYnLkLcb3Dw0ZrIRY4cpJkpFxJyAo2 +Pf2M8POoesumQyQ8XhJ3okeYBfwdfV+yvEj4RbXwsb0IC8wEp8K8vEkYFZA6 +PEz4caFsmWAgCTdB/qygGAvmhnXgazAJ69o5I5WENVRs+u+FkFDkaekrazIL +yutO8+wPJ2F/7LEbReIsyHk75FoZT0JDy4XlMVIseC07P3c6kYSLzy47b1/H +grWeQqm7k4l8RF6/F5FmQcwPk/o/GUT+2y65PJBhQaBQseT2SySU53wWQQoL +Kh0fVUkXkZBvQlFtowILxi/3bp0pJmFY6dcCRUUW7FflCcktJ/rhyli4NI0F +VpaHXo/UEPnSZ8etmSyIWtdj/us+CWe5H4pHK7Og5rvWI95HJEyLunPv4Xqi +fkk8JUpNJIy1n99vrMoCVnfx8SM9JLwe850/R5MF8oWrJ8JeEvlVpfouahHr +7xu8P7GXhD1f3wUd0SHqtdZ06413JPzr0xPhoMeC89ZfJCZHSLi6q9goBljw +RNYi+e84CU3f6u6XN2EBZ+rOMgEWCWPGJWxbNrPAKTV6QpVDQrm5ilYZcxYo +v5R/HLBEwnCrxCjaDhZ02h448IMshKKF1/hinVmwRGnv5ZESQs/iv5/T9hPr +wVHdJiYjhBq87M/FrizIz1hS01EUQpXTk97/HST6p7eQO3SjEKYeCVt/05cF +fHs+XFvYKoS2/yz1r0exwJC2RWqNpRAuSvyrUDrLgoCfN1KkrYWwsyXq3O1Y +FgxknzphZCeEVhdq8/oSWVDWL7X9tKsQCsvOBJzKZsE2x70s7jAh/N6i36dW +yYKQuYcH/zslhJc/Bi3+usWCazlSHx9FCiFXv2BHyx0WcPcN9hyLIeJ7uN4u +8D4L6m333x5NFcLwM9OB0i1EPpYeQZ2lQqjZNSReM0isj7Hv7/Q3QjjyoKph +WmgSLD72BPi9JZ6XatedJDYJYeGq3yzeE/MZnchRk5yE/rrpd8uHhJD3y7Rr +kvwkpOsGPTr+XQh9Prc8zNo4CbzqJyL3cgvjVsPoc2PWkzCtGM1DURPGZUN9 +zISMSfChXZWd1hDGH79Vq4ZzJmGC3rKpXlsYfY0px8wvTsIoc4XvXgNhNO/Q +vC5dMgmfNib0pZsL49EDfntE7k3Cc4P0Um4XYayz3O5MH5yEyt1F24YThPFd +tZRBM3MKjpxtSrr+VRhzvHOUjr+dgqG1GjHVo8IYQ083r/44BfZ5V0/VfxPG +7FaLFz++ToHpzbNHe6eFsdiI63vCzBTIvDXb9m9BGLujvT5x+KbhlXLncgdR +EbxzzfD1XaNp0Hv9+iSvmQiW+MfD+bJp4KMMex0qFcHhxYVCjukM2EXom1Kd +RVHv3bzcATIbnhyYXbfpgCiecQ9Q6ZRkA2Nz5Q9Ld1GUOJQ6pyHDhgVe2dJg +L1HUebgy+68iG66mLeNrOSaKZcPLTx1XZ8NMccdzt2RRzOYougxbsiGp097p +8hNRPHbR/bpbJBt+VQpq3m0Sxfb7vl+ORrPBNbVjdXurKPKlvtIKiGGDpp1+ +/VSnKC5fbvDdL5EN7z/KyBu/FcXdCy/VDHKIeNjDIx+mRdHWabRl+U02tIoH +B0pRxJAmq1G90M+GCGfWdzmqGJ5ZcTLF4x0bdIoOedKUxNB76onc00E2lCk7 +7lPbIIYk8UbNU0NEfEZGZuZ6Yrgpo2Gk+Bsb9nislAyyFcNW7/WPR/6wQaAs +KvOEnRhenJO/ObvIhg7W/NoIBzG8IfDp6sISG/RDWNznXMTw9rn4oHluDsgm +vGIVHhHDo6ODkTf4OTB662Ljs2gxNEgedBuS4MDlWVGDFzFi6Jpr8SJBigOO +m1Jq38SLoT2DfkVFmgOdTVEV/yWLIVVb3ny/HAduvTmU9fOCGIo2rikMoHHg +sOR/AgsFYvgwcqfcMJ0D8vsdE7iuiGFpx2DdTgYHMsYsIleXiuERI1kpsfUc +CPmz0YtSTcxvxTm7XY0DG6H8C732//VJeh+jzoHxswouKg/E8HCL1IqHGhxw +Wiu2S/eJGHYcmKpZrc0BkV0p3YZNYphe85qprMOB7pyVWze3iuGA2XdbE10O +GMv/MdjRKYYZFf9d3KvHgbmDwfd29YjhcQWeW076HKgqZ6k5vhTDP55Tu+0M +OKCg+R/No18My7wzDdWNOLDSvFUw7IsYfrQ/XJWGHKjbq5NiMSKGXR6R6dtM +OODnW7ZGelwMszed7Jwn3J+VxNcwSazP9gsbtplyILFsKT5tRgwL9pRYjRA2 +ehzA6z4rhk/ZHjdPbeFAyVe75SvmxXB9SZpslhlR77mn0f0LYih4J5BKNufA +mtV6XGVLYmjrPm2fTrhR9kZk2DIy3lo3U7ViKweCNWT+WvCQ8RPNZ0MwYbp5 +6inplWQMbfRtf0f4/d5lfyb5yFirKXRSbxsHUnyDQxvWEPd/jsEMwpujR36l +CZLR0YGPPEz4V5bDcXdhMi53Yf9U3c6BirJns5piZDzHe3UwiPD+xwZBKyTI +SGnJaL5NWOjlzZl+KTK+8dlROkK49aucf5kMGf0d/M6IWnAgdC59MkyejIYH +SnYZElZZzeNjqUjG3XNVwi6Eh2RDJqTpZAzS9XoSQjhLY9xrikHGuG9VtgmE +t5k7jTWsJ+NATkxHFuHFvd2H0lXJ+DhrWvYC4du+xsPu6mRcISRkm0PYPbrK +XUuLjOMy6/YlESZnK3xeoUvGm/W79E4R7izLOvBWj5hvUnDcnXDkY95PZYZk +/Hun3sOUsMbLUOeTQEYN2fdl0oRHv068t9xMRlm3X3eniPzy55z3ypiRsazn +XvRDwjtWv3g7tZWMCsOvBSIIc8mZ2DdakNFun5ijHuEajbtv0neQcYjh7DRF +1NfLnLbbYycZDyfkCRcQlnbKfaW1m4zGq15EbCb80pdvJ689GRvjxC98JtYv +JvrU87eOZLQxLXQLI/y97EDXyf1kfHnYbzqD6IdLj19tt3Ijo6994G1Rwrte +mnbIHCRj5kV54VSin+rmlNoaj5Bxo82zWl+i3/xW55tm+JBxlETmvCL6UUFu +TbOHPxnvvK1tVyWcYD7zhPc4GSumvXVeE/1s6ORuNHCCyPdzYJcE4RnfN4/K +T5LRRa6C7UDsB8fsBw+sosgIa7wmGoyJfi1X1pU9S0aP+bCH48T+aXhcUDsd +S0buqn5hfsL04ajqjPNkfBHiul+H2G8/NbZXDuSQMdIzRUOb2K9XX/CvGrtA +xmRj5lV+Yj9b+3R7/Cwg6vMX8a0WB0qv2awTLibjYN3e5fbEeeAoYZ9oeZuM +S2f1zn9T4QBPrfjo3moy7vBfaRdKnC9Vtu9MvGrJqOj8Y8sSkwN8553nYx4R +60FZKJwmzqe6v+5eT9rJmOZqpuwlzwHPfGprdycZt28eUKuS5YCw7qjcYA8Z +c5cPHZgmzj/vgCNv53rJuOd7oN5uSWL9vvqbqw+RsfyMy3SVEAdOd4RTS34T +/X+C7N7GRfT7IeOo6gUi/rFDnlHEeTywjOtD4xIZN7smX9cgzms1g7OZH3nE +se/wsm/hc2z4cjOBW1xIHJdqt1eUTbJhS2bOUAJTHKeOWsUdGCDeXxsdDfNU +xDHHXjYltY8NBd2SeaUbxbGHdYLr/ms2/FxRaNOiLY7c3pGarG42lIYWP1k0 +EUeVHgrMNLKBb39Vgb+TOIbI9+S7X2dD1bOji9tdxPFef8mOLSVssNemOVNd +xVE+PqpJtogNJWvy1707JI6wunexPp8N+Ohs/uZAcTza4qJXmsyGUAmHPLFz +4uhyeV0dJYgN46//Zj6qFUfa89TwMW02pBo/mM1+II4D3qWnJoj3r05F0O6A +R+JYPeDycXQDm+jvMWFakzjmLWQMddHYIK/2Kj2lWxx1JslpW8XY4Jhckur2 +VRwf1vSuXj07Ax1bLc+vFJLAr8LtWTPlM/BE7GlSr4gE6uUwjm65NgM1XzHl +MlkC6+N6qjKuzEDRaZ10XWkJTDgRflM2dwZO3qfkHlaSwLPUI0o/z86AitLv +q+1GErjcx9L6qvMMpPNeq4s/KoGbjno7qvHPgFPb0reVrRJ4na+1KOH2FAhH +ZxVAnCQOUjLu+Fl/h2MLLjtCDaTQecMeSe2ZMVi8y7dr/J8UJlSfLhfaOQwO +XM+fNjauw/Zbnr1Nv4fAZfVTvfxj0vhhKCAsYucHSLC7wnVDVwbtbROX5c73 +Q1lSzdaz+jJYr9R9Q3usHzpaO1L2Gcng0ddtTf+96Qdebbb0GlMZnPEWV7Gv +6ocYsc16vtYyeCdldX/X4X6I7P8auPGQDKpr0nXfDfTBMUelr3czZFBBX/Gy +f8sbcHW+1fZ4UgaTLCR2rah7DaEywhOvZmRQ8hytilL+GtI+HRcYm5XBPZuX +P7HIew2NrkYOQn9kUHVK7m1zyGuQP9Q9fohXFu+yvCIttF7Df74TqwXlZNGu +Kjzq7p1XsP80fZfbTlncV5BS+Kz2JThfvfRpxV1ZDGWQ9O629EBLW3PJmnuy +CBQ281hZDyh/Gz0q8lAW6/fp/rJI7oH5jRvn5Btkcer3LEfPoQdy6hsEDbtk +0Yj6TE+a1Q0vB4Yw6KssfkG+52OS3bBFULH4k4gcSmrKxW+L7QSV8OuH7x+T +Q/7aZs/UvHZI8WtVTzwhh50MxtmRs+0w4/p5wfmkHMbx5/BZ+bdDjdm6NO4o +Oaw1e6ZiYd4OhoKpD3acl0OJ7Vvv8f18CpZXQ/iGi+Tw1nJXavKep3C0w+wG +6QVx/6ZGbleFNrDjD5qrEZUn9v+XvQLfmmHZNkaXIVkeKy/V2z7tb4ZbsZ8u +tYrLo99azeqU1mbgW2Zp/kZKHmXPa4bvvNIMT+YUs2flifFam6Ecx2ZgjPRp +aGyQx09BEnbU7iZYbNDzu20mj4PtP+WmnjRCyfFlI+Uh8sjYPXvEuagenkvV +1ImHyqNm37tDmnH1MN/gmRYbJo9ZjTaTFO96sObvNnALl0fXyGgHM21i/FJO +hsQZeaQ1814v7nwM1h3rMT6ZmA/ON9yafwRzUvYXD5YQz784IxDrVQcWjRW2 +cq/l0Ycccj069j4U5Bj9ju2Vx/jXeb8oAfdhyuflJdYbeVy1497QG6f7kCn5 +6/vDt/JYN65lGaR2Hz4EmcTZfZTHhxcChhI+3AM/2kBdwrg8/jNZdJPbdA8y +EldQfywR81+TNoxarIH3dq6/OtZTkH/rijuS96uhbDp/tfUGCjJsnr2MLKmG +E4l98r2qFLTSn+39mV4Noo0Wlh/VKQiSV7dI+laD9XrtK2xdCv64KiuiRa2G +5mX8FlJbKGjqFFN2I/sO3Lh1t9DbmYLpTVXaurFVEL5qpZlAMgVD3QdyhZVu +Qge/sXNYCgXNRRfme1ffBNG1x4OHUynYUSKnemumEiqFvhbVZVAQxcfuVdZV +wqBUw5JnHgUjW03mXthUgv6GEw8aiilot8PoeUHkDfhtO7Y+sI6CBZRdrIbJ +cthiJ2v64REFn0Re3BHcVw5p9nucttZTsFagj2NYXw6MfS3nZBopOH7i4CPh +5HJwOHh55FkbBS9b2jGebiiHeyEOlxVeUVB5tLreILgMjl1sF34zRsGr0eEm +/629DobupXku3ygYselPm+evUuBhxsqOTVAwJJV2f8V/pZB1b7Pyn0kKvkvm +xCZUlULtq3oT+R8UrOAUeZbalcKvlTUBPlwK+HC5/V9K0TUIO3blOY+kAn6/ +8bE80aIENhuctkuRUsDTH3yf9WmXAD/3/vfi0gpYHqJxU5tSAvmp60aV5RSw +1X9doObvYqiryPm7k6aA1PLix9TrxbA4lKRSqK6Ab2q1VHtWFUPkjrBEbQsF +jBc6dfj2+yLwM9v0+b6lAvZMXClu7iiC/UZzuvo7FPA2c/2FsXtFYLTh+Ijx +TgVcOZ7p45lZBItrAnGbvQKejxT7qL2jCE51e/1yclfAmMhvjmtbr0CopaN7 +1EkF9Jf0a3AKvwxepuIPucMVUEfjGm+V82VwNOgXjI1QwDAa7RHV6DLorrer +T4hSwOH0Vo730iX4xb9TIjNOAV0FRm39zlyC451bn1/LUMCUlSJvGGmFELRd +V7+rgoh34dPZiqaL8F8ZJ0OzUgGrTNle2dcvgtWqW98v3lRAs+Ad8XnJF4He +Ti30qVLAr0YUibG9F2FwizCXwD0FjK3mYRTP5sMWnGzb2aSA1uEuKjHr80Fc +t9i2/60CPhnMHbGvzIOYnP0Vxu8U8KPvo+dy2XnA+Sm5/Pp7Ij8mj/1SRB50 +16TVnPiogB0nzGYWbPIgSiNSXPKrAkqFrFSb+5ELExv2ftw3pYB/kyR+f9ic +C4+pgkc+8yiizXvl6c+T2VC6LUjNi1cRpWt1F0+9zYZUn765qZWKmMw0rVFp +ygb3motxi/yK2G58oOtVVjas2sIoERdSRG2DAirDKBt2e5j8t0NGEUeJPcNJ +z4KJouA9ddqKaHx1p6mnZSa8aeuXNtFVRHeRnWU3dDOh/pvecPsm4noROmkF +NRPS1LmC+wwU0epFUt7sYgboNCWlzZgoYhnXb7f62xkQPXSti26tiFm5gi0c +iQyQkBswyfRURFWDxIkD82lwukJ3NZeXIvLt/VOp9C0NRrVz3/gcUcTFbpne +pYE0uGtlf9jcRxELRf6QBh+kgfXJN0nzgYp4LRBbtoelQUzfy7cHIhRRf0DQ +eWw+Fdjnn/mqZClihlMPTVM2BTp/111oa1LEqJe/V1fcTwTH2j+a61sU8d7n +UM0LlxJhLFD/eVorUc8nr+ovxyYCz/eH3M7tivhApK+EszsRjD8+8OZ0KyLv +xKuDN9kJcKfpnpHcgCJG8/CrH1RPgLzE6s+hU4pISw6eM2+KB/pWzqlP04q4 +MfWd9J+KeKhdrkHewlbEyWC6eHNWPLwOv2Mh+EMR38YeN0rzioc1/lV3r80r +ImvPIz1FoXg4vftW7GseKgYtzPiLeMaBp3QFU2UdFZMs+bFANhYCC9M1qqSp +6OtkU07mi4Vw2TADLVkqdsRfHi+djYF0+W07DClUFPx9OX3VsxiiX0YDrJSo +GKiRsf75sRgQ3qDwwEeTimU1rx/YvDwL9Ub55jctqXjKY9gqP+cMdDyJtlHf +QcVe2zMxpWfPwGs44lhrTUWTLM5CW8AZGDfZdLTeloqtgy3OxpZnQNi8P7nH +gYrXQ293CS87A17Wwn2THlQcr+J+phcQDaIHEj1Uw6m4b+HfgX/7oqBgq59f +XgQVv7Tu4vW1igKq2q4w7tNUPPJ3c9A3wyjQWiaV2h9NRVqSs4eAbBTYFZfX +RcZTUfhPv41A82nIHusQepFBxaiBFVd29kYCOWBlo385Md42cDOPPwIuOX7v +fFdB1GuifB97KhzoJi/6TCupaLrZweJgbzjoCOd+F79NRXFus/i8gnCwr6GL +N9YQ8VcefaGrFg65v838SI1UfORxzMPQ+RRIRMdI3+mnYr7JpdMPnoaBtCop +R2+Airw6q+6tqwwDyuBFweZ3VJRvz9udnx4Gytp3uXs/UPEdH6/dN+cwMPj2 +efzHFyomOmw40PUjFPbbQu2maSouKu4vjmeGQjHlz47GlTScfdxxlV4aAmXP +Y9u38dHwK/+rY80pIVB5SsjkFT8NbUK/uoacCIGaPobWl7U0ZC66UunbQ+Bp +goMUjygNpV1eVFydPA7j7JrRrfI0PMFcm/tH/zioNvuffrGJhl3Pb3yPHg2G +qv65P0b6NIxedBuw7g0Gje+nQyoNaOg1ts9EtTEYtEXTfBOMaTh9wcyEmh8M +hp5V+0y30FDetX3Nd+tg2M7P1r1vQ8NPxtXX3zwKgoO7gmYuedIwMeP0RNHV +QBj1/OO91ouGzavRvDA9ELxOnRk7dYSGce/TeMujAsG7JOOTow8NYx8vD2Hv +D4SgX9XdwkE01Gyy27dFOhBO58+WxUXQkPTV9NnwhQDI/3LMzS+Lhoyfj79Z +m/jDFsbHm33ZNBz2E5V/pOgPk75mfwxzadhvAdtMef0B58UyV+fT0J7nK8/1 +Lj8YEbzfWnaZhr3Hzts9dPADNaN5pa8VNMxcbvSUc8wX2nIjphyaaOggaZTL +1+INfh9H9BuaaXjs2/nB5jJvkFC0jqe30tDgv9SfWSnecPSWrPzPpzSsFFXd +cdbJG0htDbYZ3TS8ZdXFFTd7FJw4y2q73xLr96g0QFD5KMxYxZ0ymaLh29An +UTllXkB2yNFpn6bhq50nr5ileoGBWynbik3DKZngWoEQL4g7/vSw4w8ayiXy +7Jky9QKZS7x2/n9ouEprPGFo6DBYTMepFPLS8efI9LqTcoehJD3+429ZOrLY +Rx+/unUIOi/m5kXKE+Mbd5NS8g7B9LXru3kU6KheaKzvduYQ6Ne1PxOk0bG9 +4VG1pf0hePVl5T36ejq6unTcVP13EJY0z6XY6dJROqv7jcSeg+DYfw6qbOh4 +QPvI4BeSByxszV5cZ0vHxcpckYIld7j0sOhh/C5i/I9ftyfLHYYL6jQP7KEj +9bNRhFqHOwR4sJQE9tHRdukjf2aUO5ybsSH5eNKx8EFJbNwPN7jPL/5ZKYKO +PQdHL9wfdwWncMVLmZF0fPzLpCJ6wBUWJzfu+3eajvNPakz2dbjC5lfb+vrP +0PG8QGKnYZkrPM89+Sz2HB21X96+ft/LFUapn+58zaRjav3ivX8DB4AM185c +rqDjLM22aOqvC2gf33uLWUlHurqI79NPLmB3Y+37uzfpuM7uXNqTBhfIFA9R +76ii46RjnqPgGRcgzZgPzdyj47sEDcuNq1yAv2jcaHMLHX1rmJJWUs6wxK0y +PzxIxzI/dbl1e5xARm+I6v+RjqNn8k426DmBoX/WzvlPdMTDp42iZJ3g1ODi +9bVf6JjrLhNjP74Xft/tsdcZp2MET9DXXRF7gXPQvyb+B3H/n4iWwEpHGH1a +7a+8Vgl5DQufx8g6wAbVrT43BZQwrfqzwjSvAxzLHvRSIymhXuXDM4HT9sB9 +kMddR0QJb1+wXP6k0R5kltnbbZZUwpr5ENfgg/ZgZzC/yYmmhJYmapf1q/ZA +y23gTjQi5ivtrM1ztAN+8TdLa0AJ+524h/pN7WBnpNdCKirhjVP5Wsob7eCT +VfqPbFMlfLyyjZfEawd/vn0ZLdquhF2vHvzuq9kNGtS4rod7lHD5+6jrm8i7 +4Uped9Y3XyXcOcFF7RyzhYOHXTJ3+Svho8XF30/6bYGhM5X+KEAJV7w3WNHa +Zgt3egVTk4OV0PvkeOxSsS00C+xOUA9TwgO//pzSdLOF4Zh3EWExSlgqo8Gf +9mknMAJHPfkuKuGZ6Diy0zMbYMGJQ0EFStjIrbUkfsMGqgRWHRwsVELzj/FV +nCQb0Ktkut28ooQ+z+tXLu20AYsxn322pUooVW5x7sh7a/BxmbW5cEcJs89K +HQrn7ICq7Vx6zA4lVMud2DqoYwUzHzaVVj1Twl1JR78/lrQC9YBAkU1dSjg7 +4XPh8aIlVOd8mTR/TtRjne4FsRZLqPnaevXgGyVcJxjfrWxrCQ8iEtZcGVJC +LU9KSnuQBTTdER4izyuh425Nxb+d24DbzHLHpT9KmLT2va/nnW2weeBsHW2R +GN+/W24idxu0Lv3I0vqnhPrmP7fjoW3w1PLt9l0rGGjum9NJXbYNOkcu3k0W +YuDLipZN9422wmtJWjyPMgOf39XbtuOZGaSJOv0KXM9Akn/kVusaM7AWTD30 +nwoDT4s7R3tcNoNOnnnTuo0MjE7jd+g8bgZN091cAdoMfLbmoG+8ohlUtR07 +OYgM/FezpuDWmS2QEtjqW+3AwOJED4+NNqZg5TP/QW4vA+PYeXszDU2B/7Cq +VbITA4XVBYz5lE0hzjlP2cuFgZIH7iUprzCFiK0+YzIeDExzTHUzebwZfGRE +3RL8GLhJoEDxzobNYPHMw841loGhou0UuowJqP0MzXoax8CNXUWn/6wxATFK +yhuVcwyMrBakflpEGAp9YDefSMTvxrWy9wNCCGPtnow0Bl67caMksBDhavy9 +Pa0XGVg08Gb0OPEZumDG58CoZmCy+KfRY17GMBQom5tyl4GLFNWDDy2N4Wmh +5tsfNQxcsceBV3KjMWT8dHFous/ADFbrLuYvI2Bcq3Zwqifm98ct52ONwI7H +2TGpg4E9QacuGJcbQmXzrb0znxj4Y42D7YPlBiBw13vV8SEGHpl5eW7luD4E +FDPuz39moC9HhxLcrQ+aMVdFl48w0OziBa7L2fpQZ5bzQuw7Ayvv/dxlztSH +Zx0RZgZzRP6DP/3r9ujB6HMr9ThBJqafu1N7olkXtjXwDfELMdGpKXJUukIX +Km4/TUkVZqLOmMXawXRd8E1DVp4YE/WmbvYXuenCD1ut6zfWMdFO72eGPbcu +LO9bJ/NKiYlXztcNmG/TAfnBiVXSyEQti9L5vBEt+KdR8jDOhImRTM2dF19p +wadEl6PszUxkVA21VdVrQYH+y66nZkw0kjzfJpqjBZL5tSmBlkyUpx+Vatiq +BcJ7o0Tb7Zn4wW398eRbmrDirZh8kC8TKVnqm3ITNGBY9cXLD35MXBW0YD14 +QgNa485Fbw0g8mnxdFbz1IAzOgtfpIOZuHR6h9RaUw1Yyh661h7KRLOGqQOp +f9Xht92N9TIxTHQ01VAvP64OE69RtyOfcO3xmbZANShlWJJdCpjIZfCIqeuq +Bm6Re36yC5lYfjmD8shaDQaYR++uK2KipdiKv3/Wq8HTqMyN/teZmLlmeUDV +841QpDqqRK5h4mzXiP10syo4Jp6XONjDxBqtrC1JbSogOpQ99/s5Eyfkt8/1 +lqrAC+0r/ckvieflrQkxPKcC5p9rsu73MvE+zwdLf0sV0Nz0ibT6PRO7JBKT +HXvXg8CoGl/1KBO3G/07t+6bMnQaGIybjzORN8dw+EC3MsSmm7UPfmPiWnom +q/m2MiwaOsWumGSiSP/d6OEQZZjIPLts7yxRj9AT6hm8ylD6LXlo8gdR/xkD +r44JJrhBXsOZX0z82zu5XfoFEwYmKiMq55k4fjElVTqPCZl439lkgYlWOkk1 +HeFMsM5pMuhfZOJBtyzeDDcm8LO6pLyXiOtVz3iGmjOhzaR//t8/JraxbGtP +rWfC/wDVzC1Q + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 13}, {0., 1.1432124336654814`}}, + "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:eJwV13k4VO8XAHBJioqxjSXbMDNmJNllPUeiQqSERFlKyk6JQpQlsu+JSiSk +kmhRskeWNpFSfVW2NJYZlUT63d8/M8/nee997znnPe97n0tx9991iJuLi8uE ++Pn/f0j47jVcXCQUZLyQD13NguoW7+JebhJGTnafdyU8yR+jf30FCVeYD67c +QZixq+DVyVUk1E0YyTcifPBCjZf1ahIefdRvoUH48lD3P4oACbeFXpBZT/i9 +0kjOTxIJVT6KSzIIk/3/bngmQsJDwQamTMK298TaCsgkZEhNFqkSTvq7wTlA +koShM6IGmwh3bDGfNZUmYYNxvqg54eVJ+xPF5Uho5uqh5UjYuDeE8p1CxFu5 +54of4ZNSqQ+eUEko7LpnfwLhWrfrNhlKJHwba3asjPBMWcPoIWUSBv63cryL +sMrM2wi9DSQc6QlvmCV8WHdGdK0aCX/qneWSX8OCq5GrKoc0SLg5/HfVTsKf +2uRNa7RJqG/2oD+WsORavffxm0g4H1NwooGwnZ1t4D4DEj7fFXHhL+G0i0dW +bTQm4a03aptxLQt4lfN1+k1J+Az3Qy/hzYHVPeXmJLQeCrusKMCCiAedByO2 +k/C3943CUMI/zBcyqDYkHLgUdl5NkAUbU0SUf9uScCK6JC6T8NG+9U1ddiRk +Zy3TXSD82cN5OsiJhALGO58PkFggfeNYnLkLcb3Dw0ZrIRY4cpJkpFxJyAo2 +Pf2M8POoesumQyQ8XhJ3okeYBfwdfV+yvEj4RbXwsb0IC8wEp8K8vEkYFZA6 +PEz4caFsmWAgCTdB/qygGAvmhnXgazAJ69o5I5WENVRs+u+FkFDkaekrazIL +yutO8+wPJ2F/7LEbReIsyHk75FoZT0JDy4XlMVIseC07P3c6kYSLzy47b1/H +grWeQqm7k4l8RF6/F5FmQcwPk/o/GUT+2y65PJBhQaBQseT2SySU53wWQQoL +Kh0fVUkXkZBvQlFtowILxi/3bp0pJmFY6dcCRUUW7FflCcktJ/rhyli4NI0F +VpaHXo/UEPnSZ8etmSyIWtdj/us+CWe5H4pHK7Og5rvWI95HJEyLunPv4Xqi +fkk8JUpNJIy1n99vrMoCVnfx8SM9JLwe850/R5MF8oWrJ8JeEvlVpfouahHr +7xu8P7GXhD1f3wUd0SHqtdZ06413JPzr0xPhoMeC89ZfJCZHSLi6q9goBljw +RNYi+e84CU3f6u6XN2EBZ+rOMgEWCWPGJWxbNrPAKTV6QpVDQrm5ilYZcxYo +v5R/HLBEwnCrxCjaDhZ02h448IMshKKF1/hinVmwRGnv5ZESQs/iv5/T9hPr +wVHdJiYjhBq87M/FrizIz1hS01EUQpXTk97/HST6p7eQO3SjEKYeCVt/05cF +fHs+XFvYKoS2/yz1r0exwJC2RWqNpRAuSvyrUDrLgoCfN1KkrYWwsyXq3O1Y +FgxknzphZCeEVhdq8/oSWVDWL7X9tKsQCsvOBJzKZsE2x70s7jAh/N6i36dW +yYKQuYcH/zslhJc/Bi3+usWCazlSHx9FCiFXv2BHyx0WcPcN9hyLIeJ7uN4u +8D4L6m333x5NFcLwM9OB0i1EPpYeQZ2lQqjZNSReM0isj7Hv7/Q3QjjyoKph +WmgSLD72BPi9JZ6XatedJDYJYeGq3yzeE/MZnchRk5yE/rrpd8uHhJD3y7Rr +kvwkpOsGPTr+XQh9Prc8zNo4CbzqJyL3cgvjVsPoc2PWkzCtGM1DURPGZUN9 +zISMSfChXZWd1hDGH79Vq4ZzJmGC3rKpXlsYfY0px8wvTsIoc4XvXgNhNO/Q +vC5dMgmfNib0pZsL49EDfntE7k3Cc4P0Um4XYayz3O5MH5yEyt1F24YThPFd +tZRBM3MKjpxtSrr+VRhzvHOUjr+dgqG1GjHVo8IYQ083r/44BfZ5V0/VfxPG +7FaLFz++ToHpzbNHe6eFsdiI63vCzBTIvDXb9m9BGLujvT5x+KbhlXLncgdR +EbxzzfD1XaNp0Hv9+iSvmQiW+MfD+bJp4KMMex0qFcHhxYVCjukM2EXom1Kd +RVHv3bzcATIbnhyYXbfpgCiecQ9Q6ZRkA2Nz5Q9Ld1GUOJQ6pyHDhgVe2dJg +L1HUebgy+68iG66mLeNrOSaKZcPLTx1XZ8NMccdzt2RRzOYougxbsiGp097p +8hNRPHbR/bpbJBt+VQpq3m0Sxfb7vl+ORrPBNbVjdXurKPKlvtIKiGGDpp1+ +/VSnKC5fbvDdL5EN7z/KyBu/FcXdCy/VDHKIeNjDIx+mRdHWabRl+U02tIoH +B0pRxJAmq1G90M+GCGfWdzmqGJ5ZcTLF4x0bdIoOedKUxNB76onc00E2lCk7 +7lPbIIYk8UbNU0NEfEZGZuZ6Yrgpo2Gk+Bsb9nislAyyFcNW7/WPR/6wQaAs +KvOEnRhenJO/ObvIhg7W/NoIBzG8IfDp6sISG/RDWNznXMTw9rn4oHluDsgm +vGIVHhHDo6ODkTf4OTB662Ljs2gxNEgedBuS4MDlWVGDFzFi6Jpr8SJBigOO +m1Jq38SLoT2DfkVFmgOdTVEV/yWLIVVb3ny/HAduvTmU9fOCGIo2rikMoHHg +sOR/AgsFYvgwcqfcMJ0D8vsdE7iuiGFpx2DdTgYHMsYsIleXiuERI1kpsfUc +CPmz0YtSTcxvxTm7XY0DG6H8C732//VJeh+jzoHxswouKg/E8HCL1IqHGhxw +Wiu2S/eJGHYcmKpZrc0BkV0p3YZNYphe85qprMOB7pyVWze3iuGA2XdbE10O +GMv/MdjRKYYZFf9d3KvHgbmDwfd29YjhcQWeW076HKgqZ6k5vhTDP55Tu+0M +OKCg+R/No18My7wzDdWNOLDSvFUw7IsYfrQ/XJWGHKjbq5NiMSKGXR6R6dtM +OODnW7ZGelwMszed7Jwn3J+VxNcwSazP9gsbtplyILFsKT5tRgwL9pRYjRA2 +ehzA6z4rhk/ZHjdPbeFAyVe75SvmxXB9SZpslhlR77mn0f0LYih4J5BKNufA +mtV6XGVLYmjrPm2fTrhR9kZk2DIy3lo3U7ViKweCNWT+WvCQ8RPNZ0MwYbp5 +6inplWQMbfRtf0f4/d5lfyb5yFirKXRSbxsHUnyDQxvWEPd/jsEMwpujR36l +CZLR0YGPPEz4V5bDcXdhMi53Yf9U3c6BirJns5piZDzHe3UwiPD+xwZBKyTI +SGnJaL5NWOjlzZl+KTK+8dlROkK49aucf5kMGf0d/M6IWnAgdC59MkyejIYH +SnYZElZZzeNjqUjG3XNVwi6Eh2RDJqTpZAzS9XoSQjhLY9xrikHGuG9VtgmE +t5k7jTWsJ+NATkxHFuHFvd2H0lXJ+DhrWvYC4du+xsPu6mRcISRkm0PYPbrK +XUuLjOMy6/YlESZnK3xeoUvGm/W79E4R7izLOvBWj5hvUnDcnXDkY95PZYZk +/Hun3sOUsMbLUOeTQEYN2fdl0oRHv068t9xMRlm3X3eniPzy55z3ypiRsazn +XvRDwjtWv3g7tZWMCsOvBSIIc8mZ2DdakNFun5ijHuEajbtv0neQcYjh7DRF +1NfLnLbbYycZDyfkCRcQlnbKfaW1m4zGq15EbCb80pdvJ689GRvjxC98JtYv +JvrU87eOZLQxLXQLI/y97EDXyf1kfHnYbzqD6IdLj19tt3Ijo6994G1Rwrte +mnbIHCRj5kV54VSin+rmlNoaj5Bxo82zWl+i3/xW55tm+JBxlETmvCL6UUFu +TbOHPxnvvK1tVyWcYD7zhPc4GSumvXVeE/1s6ORuNHCCyPdzYJcE4RnfN4/K +T5LRRa6C7UDsB8fsBw+sosgIa7wmGoyJfi1X1pU9S0aP+bCH48T+aXhcUDsd +S0buqn5hfsL04ajqjPNkfBHiul+H2G8/NbZXDuSQMdIzRUOb2K9XX/CvGrtA +xmRj5lV+Yj9b+3R7/Cwg6vMX8a0WB0qv2awTLibjYN3e5fbEeeAoYZ9oeZuM +S2f1zn9T4QBPrfjo3moy7vBfaRdKnC9Vtu9MvGrJqOj8Y8sSkwN8553nYx4R +60FZKJwmzqe6v+5eT9rJmOZqpuwlzwHPfGprdycZt28eUKuS5YCw7qjcYA8Z +c5cPHZgmzj/vgCNv53rJuOd7oN5uSWL9vvqbqw+RsfyMy3SVEAdOd4RTS34T +/X+C7N7GRfT7IeOo6gUi/rFDnlHEeTywjOtD4xIZN7smX9cgzms1g7OZH3nE +se/wsm/hc2z4cjOBW1xIHJdqt1eUTbJhS2bOUAJTHKeOWsUdGCDeXxsdDfNU +xDHHXjYltY8NBd2SeaUbxbGHdYLr/ms2/FxRaNOiLY7c3pGarG42lIYWP1k0 +EUeVHgrMNLKBb39Vgb+TOIbI9+S7X2dD1bOji9tdxPFef8mOLSVssNemOVNd +xVE+PqpJtogNJWvy1707JI6wunexPp8N+Ohs/uZAcTza4qJXmsyGUAmHPLFz +4uhyeV0dJYgN46//Zj6qFUfa89TwMW02pBo/mM1+II4D3qWnJoj3r05F0O6A +R+JYPeDycXQDm+jvMWFakzjmLWQMddHYIK/2Kj2lWxx1JslpW8XY4Jhckur2 +VRwf1vSuXj07Ax1bLc+vFJLAr8LtWTPlM/BE7GlSr4gE6uUwjm65NgM1XzHl +MlkC6+N6qjKuzEDRaZ10XWkJTDgRflM2dwZO3qfkHlaSwLPUI0o/z86AitLv +q+1GErjcx9L6qvMMpPNeq4s/KoGbjno7qvHPgFPb0reVrRJ4na+1KOH2FAhH +ZxVAnCQOUjLu+Fl/h2MLLjtCDaTQecMeSe2ZMVi8y7dr/J8UJlSfLhfaOQwO +XM+fNjauw/Zbnr1Nv4fAZfVTvfxj0vhhKCAsYucHSLC7wnVDVwbtbROX5c73 +Q1lSzdaz+jJYr9R9Q3usHzpaO1L2Gcng0ddtTf+96Qdebbb0GlMZnPEWV7Gv +6ocYsc16vtYyeCdldX/X4X6I7P8auPGQDKpr0nXfDfTBMUelr3czZFBBX/Gy +f8sbcHW+1fZ4UgaTLCR2rah7DaEywhOvZmRQ8hytilL+GtI+HRcYm5XBPZuX +P7HIew2NrkYOQn9kUHVK7m1zyGuQP9Q9fohXFu+yvCIttF7Df74TqwXlZNGu +Kjzq7p1XsP80fZfbTlncV5BS+Kz2JThfvfRpxV1ZDGWQ9O629EBLW3PJmnuy +CBQ281hZDyh/Gz0q8lAW6/fp/rJI7oH5jRvn5Btkcer3LEfPoQdy6hsEDbtk +0Yj6TE+a1Q0vB4Yw6KssfkG+52OS3bBFULH4k4gcSmrKxW+L7QSV8OuH7x+T +Q/7aZs/UvHZI8WtVTzwhh50MxtmRs+0w4/p5wfmkHMbx5/BZ+bdDjdm6NO4o +Oaw1e6ZiYd4OhoKpD3acl0OJ7Vvv8f18CpZXQ/iGi+Tw1nJXavKep3C0w+wG +6QVx/6ZGbleFNrDjD5qrEZUn9v+XvQLfmmHZNkaXIVkeKy/V2z7tb4ZbsZ8u +tYrLo99azeqU1mbgW2Zp/kZKHmXPa4bvvNIMT+YUs2flifFam6Ecx2ZgjPRp +aGyQx09BEnbU7iZYbNDzu20mj4PtP+WmnjRCyfFlI+Uh8sjYPXvEuagenkvV +1ImHyqNm37tDmnH1MN/gmRYbJo9ZjTaTFO96sObvNnALl0fXyGgHM21i/FJO +hsQZeaQ1814v7nwM1h3rMT6ZmA/ON9yafwRzUvYXD5YQz784IxDrVQcWjRW2 +cq/l0Ycccj069j4U5Bj9ju2Vx/jXeb8oAfdhyuflJdYbeVy1497QG6f7kCn5 +6/vDt/JYN65lGaR2Hz4EmcTZfZTHhxcChhI+3AM/2kBdwrg8/jNZdJPbdA8y +EldQfywR81+TNoxarIH3dq6/OtZTkH/rijuS96uhbDp/tfUGCjJsnr2MLKmG +E4l98r2qFLTSn+39mV4Noo0Wlh/VKQiSV7dI+laD9XrtK2xdCv64KiuiRa2G +5mX8FlJbKGjqFFN2I/sO3Lh1t9DbmYLpTVXaurFVEL5qpZlAMgVD3QdyhZVu +Qge/sXNYCgXNRRfme1ffBNG1x4OHUynYUSKnemumEiqFvhbVZVAQxcfuVdZV +wqBUw5JnHgUjW03mXthUgv6GEw8aiilot8PoeUHkDfhtO7Y+sI6CBZRdrIbJ +cthiJ2v64REFn0Re3BHcVw5p9nucttZTsFagj2NYXw6MfS3nZBopOH7i4CPh +5HJwOHh55FkbBS9b2jGebiiHeyEOlxVeUVB5tLreILgMjl1sF34zRsGr0eEm +/629DobupXku3ygYselPm+evUuBhxsqOTVAwJJV2f8V/pZB1b7Pyn0kKvkvm +xCZUlULtq3oT+R8UrOAUeZbalcKvlTUBPlwK+HC5/V9K0TUIO3blOY+kAn6/ +8bE80aIENhuctkuRUsDTH3yf9WmXAD/3/vfi0gpYHqJxU5tSAvmp60aV5RSw +1X9doObvYqiryPm7k6aA1PLix9TrxbA4lKRSqK6Ab2q1VHtWFUPkjrBEbQsF +jBc6dfj2+yLwM9v0+b6lAvZMXClu7iiC/UZzuvo7FPA2c/2FsXtFYLTh+Ijx +TgVcOZ7p45lZBItrAnGbvQKejxT7qL2jCE51e/1yclfAmMhvjmtbr0CopaN7 +1EkF9Jf0a3AKvwxepuIPucMVUEfjGm+V82VwNOgXjI1QwDAa7RHV6DLorrer +T4hSwOH0Vo730iX4xb9TIjNOAV0FRm39zlyC451bn1/LUMCUlSJvGGmFELRd +V7+rgoh34dPZiqaL8F8ZJ0OzUgGrTNle2dcvgtWqW98v3lRAs+Ad8XnJF4He +Ti30qVLAr0YUibG9F2FwizCXwD0FjK3mYRTP5sMWnGzb2aSA1uEuKjHr80Fc +t9i2/60CPhnMHbGvzIOYnP0Vxu8U8KPvo+dy2XnA+Sm5/Pp7Ij8mj/1SRB50 +16TVnPiogB0nzGYWbPIgSiNSXPKrAkqFrFSb+5ELExv2ftw3pYB/kyR+f9ic +C4+pgkc+8yiizXvl6c+T2VC6LUjNi1cRpWt1F0+9zYZUn765qZWKmMw0rVFp +ygb3motxi/yK2G58oOtVVjas2sIoERdSRG2DAirDKBt2e5j8t0NGEUeJPcNJ +z4KJouA9ddqKaHx1p6mnZSa8aeuXNtFVRHeRnWU3dDOh/pvecPsm4noROmkF +NRPS1LmC+wwU0epFUt7sYgboNCWlzZgoYhnXb7f62xkQPXSti26tiFm5gi0c +iQyQkBswyfRURFWDxIkD82lwukJ3NZeXIvLt/VOp9C0NRrVz3/gcUcTFbpne +pYE0uGtlf9jcRxELRf6QBh+kgfXJN0nzgYp4LRBbtoelQUzfy7cHIhRRf0DQ +eWw+Fdjnn/mqZClihlMPTVM2BTp/111oa1LEqJe/V1fcTwTH2j+a61sU8d7n +UM0LlxJhLFD/eVorUc8nr+ovxyYCz/eH3M7tivhApK+EszsRjD8+8OZ0KyLv +xKuDN9kJcKfpnpHcgCJG8/CrH1RPgLzE6s+hU4pISw6eM2+KB/pWzqlP04q4 +MfWd9J+KeKhdrkHewlbEyWC6eHNWPLwOv2Mh+EMR38YeN0rzioc1/lV3r80r +ImvPIz1FoXg4vftW7GseKgYtzPiLeMaBp3QFU2UdFZMs+bFANhYCC9M1qqSp +6OtkU07mi4Vw2TADLVkqdsRfHi+djYF0+W07DClUFPx9OX3VsxiiX0YDrJSo +GKiRsf75sRgQ3qDwwEeTimU1rx/YvDwL9Ub55jctqXjKY9gqP+cMdDyJtlHf +QcVe2zMxpWfPwGs44lhrTUWTLM5CW8AZGDfZdLTeloqtgy3OxpZnQNi8P7nH +gYrXQ293CS87A17Wwn2THlQcr+J+phcQDaIHEj1Uw6m4b+HfgX/7oqBgq59f +XgQVv7Tu4vW1igKq2q4w7tNUPPJ3c9A3wyjQWiaV2h9NRVqSs4eAbBTYFZfX +RcZTUfhPv41A82nIHusQepFBxaiBFVd29kYCOWBlo385Md42cDOPPwIuOX7v +fFdB1GuifB97KhzoJi/6TCupaLrZweJgbzjoCOd+F79NRXFus/i8gnCwr6GL +N9YQ8VcefaGrFg65v838SI1UfORxzMPQ+RRIRMdI3+mnYr7JpdMPnoaBtCop +R2+Airw6q+6tqwwDyuBFweZ3VJRvz9udnx4Gytp3uXs/UPEdH6/dN+cwMPj2 +efzHFyomOmw40PUjFPbbQu2maSouKu4vjmeGQjHlz47GlTScfdxxlV4aAmXP +Y9u38dHwK/+rY80pIVB5SsjkFT8NbUK/uoacCIGaPobWl7U0ZC66UunbQ+Bp +goMUjygNpV1eVFydPA7j7JrRrfI0PMFcm/tH/zioNvuffrGJhl3Pb3yPHg2G +qv65P0b6NIxedBuw7g0Gje+nQyoNaOg1ts9EtTEYtEXTfBOMaTh9wcyEmh8M +hp5V+0y30FDetX3Nd+tg2M7P1r1vQ8NPxtXX3zwKgoO7gmYuedIwMeP0RNHV +QBj1/OO91ouGzavRvDA9ELxOnRk7dYSGce/TeMujAsG7JOOTow8NYx8vD2Hv +D4SgX9XdwkE01Gyy27dFOhBO58+WxUXQkPTV9NnwhQDI/3LMzS+Lhoyfj79Z +m/jDFsbHm33ZNBz2E5V/pOgPk75mfwxzadhvAdtMef0B58UyV+fT0J7nK8/1 +Lj8YEbzfWnaZhr3Hzts9dPADNaN5pa8VNMxcbvSUc8wX2nIjphyaaOggaZTL +1+INfh9H9BuaaXjs2/nB5jJvkFC0jqe30tDgv9SfWSnecPSWrPzPpzSsFFXd +cdbJG0htDbYZ3TS8ZdXFFTd7FJw4y2q73xLr96g0QFD5KMxYxZ0ymaLh29An +UTllXkB2yNFpn6bhq50nr5ileoGBWynbik3DKZngWoEQL4g7/vSw4w8ayiXy +7Jky9QKZS7x2/n9ouEprPGFo6DBYTMepFPLS8efI9LqTcoehJD3+429ZOrLY +Rx+/unUIOi/m5kXKE+Mbd5NS8g7B9LXru3kU6KheaKzvduYQ6Ne1PxOk0bG9 +4VG1pf0hePVl5T36ejq6unTcVP13EJY0z6XY6dJROqv7jcSeg+DYfw6qbOh4 +QPvI4BeSByxszV5cZ0vHxcpckYIld7j0sOhh/C5i/I9ftyfLHYYL6jQP7KEj +9bNRhFqHOwR4sJQE9tHRdukjf2aUO5ybsSH5eNKx8EFJbNwPN7jPL/5ZKYKO +PQdHL9wfdwWncMVLmZF0fPzLpCJ6wBUWJzfu+3eajvNPakz2dbjC5lfb+vrP +0PG8QGKnYZkrPM89+Sz2HB21X96+ft/LFUapn+58zaRjav3ivX8DB4AM185c +rqDjLM22aOqvC2gf33uLWUlHurqI79NPLmB3Y+37uzfpuM7uXNqTBhfIFA9R +76ii46RjnqPgGRcgzZgPzdyj47sEDcuNq1yAv2jcaHMLHX1rmJJWUs6wxK0y +PzxIxzI/dbl1e5xARm+I6v+RjqNn8k426DmBoX/WzvlPdMTDp42iZJ3g1ODi +9bVf6JjrLhNjP74Xft/tsdcZp2MET9DXXRF7gXPQvyb+B3H/n4iWwEpHGH1a +7a+8Vgl5DQufx8g6wAbVrT43BZQwrfqzwjSvAxzLHvRSIymhXuXDM4HT9sB9 +kMddR0QJb1+wXP6k0R5kltnbbZZUwpr5ENfgg/ZgZzC/yYmmhJYmapf1q/ZA +y23gTjQi5ivtrM1ztAN+8TdLa0AJ+524h/pN7WBnpNdCKirhjVP5Wsob7eCT +VfqPbFMlfLyyjZfEawd/vn0ZLdquhF2vHvzuq9kNGtS4rod7lHD5+6jrm8i7 +4Uped9Y3XyXcOcFF7RyzhYOHXTJ3+Svho8XF30/6bYGhM5X+KEAJV7w3WNHa +Zgt3egVTk4OV0PvkeOxSsS00C+xOUA9TwgO//pzSdLOF4Zh3EWExSlgqo8Gf +9mknMAJHPfkuKuGZ6Diy0zMbYMGJQ0EFStjIrbUkfsMGqgRWHRwsVELzj/FV +nCQb0Ktkut28ooQ+z+tXLu20AYsxn322pUooVW5x7sh7a/BxmbW5cEcJs89K +HQrn7ICq7Vx6zA4lVMud2DqoYwUzHzaVVj1Twl1JR78/lrQC9YBAkU1dSjg7 +4XPh8aIlVOd8mTR/TtRjne4FsRZLqPnaevXgGyVcJxjfrWxrCQ8iEtZcGVJC +LU9KSnuQBTTdER4izyuh425Nxb+d24DbzHLHpT9KmLT2va/nnW2weeBsHW2R +GN+/W24idxu0Lv3I0vqnhPrmP7fjoW3w1PLt9l0rGGjum9NJXbYNOkcu3k0W +YuDLipZN9422wmtJWjyPMgOf39XbtuOZGaSJOv0KXM9Akn/kVusaM7AWTD30 +nwoDT4s7R3tcNoNOnnnTuo0MjE7jd+g8bgZN091cAdoMfLbmoG+8ohlUtR07 +OYgM/FezpuDWmS2QEtjqW+3AwOJED4+NNqZg5TP/QW4vA+PYeXszDU2B/7Cq +VbITA4XVBYz5lE0hzjlP2cuFgZIH7iUprzCFiK0+YzIeDExzTHUzebwZfGRE +3RL8GLhJoEDxzobNYPHMw841loGhou0UuowJqP0MzXoax8CNXUWn/6wxATFK +yhuVcwyMrBakflpEGAp9YDefSMTvxrWy9wNCCGPtnow0Bl67caMksBDhavy9 +Pa0XGVg08Gb0OPEZumDG58CoZmCy+KfRY17GMBQom5tyl4GLFNWDDy2N4Wmh +5tsfNQxcsceBV3KjMWT8dHFous/ADFbrLuYvI2Bcq3Zwqifm98ct52ONwI7H +2TGpg4E9QacuGJcbQmXzrb0znxj4Y42D7YPlBiBw13vV8SEGHpl5eW7luD4E +FDPuz39moC9HhxLcrQ+aMVdFl48w0OziBa7L2fpQZ5bzQuw7Ayvv/dxlztSH +Zx0RZgZzRP6DP/3r9ujB6HMr9ThBJqafu1N7olkXtjXwDfELMdGpKXJUukIX +Km4/TUkVZqLOmMXawXRd8E1DVp4YE/WmbvYXuenCD1ut6zfWMdFO72eGPbcu +LO9bJ/NKiYlXztcNmG/TAfnBiVXSyEQti9L5vBEt+KdR8jDOhImRTM2dF19p +wadEl6PszUxkVA21VdVrQYH+y66nZkw0kjzfJpqjBZL5tSmBlkyUpx+Vatiq +BcJ7o0Tb7Zn4wW398eRbmrDirZh8kC8TKVnqm3ITNGBY9cXLD35MXBW0YD14 +QgNa485Fbw0g8mnxdFbz1IAzOgtfpIOZuHR6h9RaUw1Yyh661h7KRLOGqQOp +f9Xht92N9TIxTHQ01VAvP64OE69RtyOfcO3xmbZANShlWJJdCpjIZfCIqeuq +Bm6Re36yC5lYfjmD8shaDQaYR++uK2KipdiKv3/Wq8HTqMyN/teZmLlmeUDV +841QpDqqRK5h4mzXiP10syo4Jp6XONjDxBqtrC1JbSogOpQ99/s5Eyfkt8/1 +lqrAC+0r/ckvieflrQkxPKcC5p9rsu73MvE+zwdLf0sV0Nz0ibT6PRO7JBKT +HXvXg8CoGl/1KBO3G/07t+6bMnQaGIybjzORN8dw+EC3MsSmm7UPfmPiWnom +q/m2MiwaOsWumGSiSP/d6OEQZZjIPLts7yxRj9AT6hm8ylD6LXlo8gdR/xkD +r44JJrhBXsOZX0z82zu5XfoFEwYmKiMq55k4fjElVTqPCZl439lkgYlWOkk1 +HeFMsM5pMuhfZOJBtyzeDDcm8LO6pLyXiOtVz3iGmjOhzaR//t8/JraxbGtP +rWfC/wDVzC1Q + "]]}, "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:eJwVl3k8lG8XxiUpKsYyY8k2zIwZSdZkPUeiQqSERFlKyk6JQpQlsu+JSiSk +kmhRQogsbSKl+qlsaSwzKon0Pu8/M5/nM/fc59z3Oc/1vQ7V3X/nQV4eHh4T +4uP/3yHhu1bx8JBQmPlCIXQlG6wsD74eriHhMcbMmDWLDVsd97B5w0Twe7N+ +r3olG6aUovmo6qK4ZLCXlZAxAYfPNCVd+yqKOd45ysfeToIAdcjrYKkYDi3M +F3JNp8EuQt+U5iyOeu/m5PdTONAiERwoTSUjXU6zer6PA8vNW4TDvpDxo/2h +qjTkwk/NbZX9ORSM9EzR1NHlgsC+qgJ/JwkMUejOd7/GgfYtlueWi0jiV9G2 +rOnyaXBqXfy2vEUSrwm0FCXcmgTR6KwCiJPCAWrGbT/r73B03mV7qIE0Oq/b +LaUzPQoLdwR2jv2TxoTqU+UiO4bAgef508bGNdh207On6fcguKx8qpd/VAY/ +DAaERez4AAl2l3mu68qivW3ikty5PnB1vtn6aEIWkywkdy6rew3OVy5+WnZH +DkOZJL07zd2gGn7t0L2j8ihY+8QzNa8N7ASDZmvEFbD89Jc9Qt+eQMmxJcPl +IQrI3DVz2LmoHiwaK2zlXyugDyXkWnTsPXhv5/qrfS0VBbcsuy11rxrCVyw3 +E0qmYqh7f66o8g04eqFN9M0oFa9Eh5v8t/oaRG4PS9SxUMR4kZOHbr0vgqBt +uvqdFYrYPf/pTEXTBXhEEz78mU8Jbd6rTH2eyAZJ+X6TTE8lVDNIHN8/lwYd +v+vOtzYpYdTL3ysr7iWCp0wFS3UNDZMsBbFALhbE9yd6qIXTcO/8v/3/9kaB +ZHSMzO0+GuabXDx1/2kYqD3xP/ViIx07n1//Hj0SDPlfjrr5ZdGR+fPRN2sT +f5i2ijtpMknHt6GPo3LKvMCx7yxU2TBwv87hgS8kD6DA1dOXKhg4Q7ctmvzr +AiNPq/1VVisjv2Hh8xg5B7ic15X1zVcZd4zz0DpGbaFqG48eq10Z1XPHtwxs +sILXUvR4PhUmPr+jt3X7MzOweOZh5xrLxFDxNipD1gQqn9zcM/2JiT9WOdje +X2oACgPjK2SQhdoWpXN5w9ow/hp12/NZ6Fh7bLo1UB1aTfrm/v1jYSvbtvbk +WhZ89nCeCnIioZDxjuf9JDZ02O7f/4MiguKFVwVindkgY+z7O/2NCA7fr2qY +EpmAyl1FW4cSRPFdtbTBE9Yk6L1+fYLfTAxL/OPhXNkUJHXYO116LI5HL7hf +c4vkwMjNC43PoslokDzgNijJhchH/J/KDCn493a9h6kFF061h9NKflPQ/zjF +vZWHC2Ov/2Y+rJVA+vPU8FEdDqTzX62LPyKJG494O6oLTsNRR+WvdzJkUVFf +6ZJ/8xvYd4qx022HHO4tSCl8VvsSNgsrFX8Sk0cpLfn4rbEdcKTd7DrphTzG +bWzkdVVshYUGPb9bZgo40PZTfvJxI8xK2184UKKAny5MC8V61UFG4jLaj0Wi +X6/KGEYt1MD1m3cKvZ2pmN5UpaMbWwW/bUfXBtZRsYC6k90wUQ5hRy8/55NS +xO/XP5YnWpRAqKWje9QJRfSX8mtwCr8EErrFtn1vFfHxQO6wfWUejBcF767T +UULjKztMPS0zgXPuma9qlhJmOHXTteRSIC+x+nPopBLSk4NnzZviod4o3/yG +JQ1PegxZ5eecBkrA8kb/chqKtvbfyBOMgGLqn+2Ny+k486j9CqM0BA7sDJq+ +6EnHxIxT40VXAqE1N2LSoYmODlJGuQLN3lCSHv/xtxwD2Zwjj17dPAj3BCU+ +K0cwsPvAyPl7Y66wyKs6NzTAwDI/Dfk1u52g+RbwJhopY1ppR22eox0wA0c8 +BS4o4+noOIrTMxtoui06SJlTRsddWkp/O7ZCSmCLb7UDE4sTPTzW25jCvJmA +A7OaickSn0aOehnDyHMrjThhFqafvV17/IkuLHtLVgjyZSE1S2NjboImOCae +kzzQzcIa7azNSa2qoDr9NkJvHQmHu8MbZgj9Pmf9RXJimIQrO4uNYoANmpYe +QR2lIqjVOShRM8CG5wbppbwuolhnuc2ZMTABr1Q6ljqIi+Htq4av7xhNwXRx ++3O3ZHHM5iq5DFlyYLfHcqkgWzK2eK99NPyHA5uih3+lCVPQ0UGAMrSVC3V/ +3b0et1EwzdVMxUuBC6GSDnnksxLocmlNHTWIA6rKv6+0GUniUh9L6yvO0xDZ +9zVw/UFZ1NBi6L7r74X/fMdXCsvLoV1VeNSd26/gZf8gBn2Vwy8o8HxUqgss +r4QIDBXJ482lrrTk3U+BOdyrqbmO6McgSTtaVxNYt6/F+GRCT+Fcw825h+BH +769LGFPAfyYLbvIb78KTJYIW0pupaOoUU3Y9+zborzt+v6GYinbbjZ4XRF6H +X8trAnx4FPHBUvu/1KKrcLLL65eTuyLGRH5zXN1yGTbjROuOJkW0DndRjVmb +D7s8TP7bLquEI6lU5KZnQUzvy7f7I5RQv1/YeXQuFW433TWS71fCaD5BjQMa +CSC6TvG+jxYNy2pe37d5eQayR9tFXmTQMKp/2eUdPZGwzxZqN07RcEFpX3E8 +KxS2CXJ079nQ8ZNx9bU3D4NA3WhO+WsFHTOXGj3lHvUFi6k41UJ+Bv4cnlpz +Qv4QnJ22Ifl4MrDwfkls3A83ECwaM9rUzEDfGpaUlbQz2BnMbXSiK6Olifol +/ardMBTzLiIsRhlLZTUF0z7tgPsRCasuDyqjtic1pS3IAqpaj54YQCb+q1lV +cPP0ZrgSf3d3ywUmFvW/GTlGRXjWHmFmMMvE9QM//et264HonijxNnsWfnBb +eyz5phYUqY0oU2pYONM5bD/1RA1y3g66VsaT0NByfmmMNBsEdn+4Or9FBG3/ +Wepfi2IDv8bxyD28orjFMPrsqPUEMDlDwx+mxNHWaaR56Q0OhPxZ70WtJqO9 +FffMNnWi32aVWxsPU3C9zbNa381c2JyZM5jAksDJI1Zx+/s54Jhckur2VQIf +1PSsXDkzDXdDHC4pvqKiykh1vUFwGSwMJqkWaijim1ptte4VxXCsY8vzqxmK +mLJc7A0zrRDG1+35uHdSEf8mSf7+sCkXogevdjKslTArV7iZK5kBp3bdjH3N +R8Og+Wl/Mc848LIW7Z3woOFYFe8zvYBoyP1t5kdqpOFDj6Mehs4nYYxTM7JF +gY7HWatz/+gfg1P5M2VxEXQkfTV9NnQ+AJy4S2q73tLx68PSAGGVI7CodTbF +TpeBMlldbyR3H4AR2qfbXzMZmFq/cPdf/37gHvCvif/BwJE/Ec2BlY6gSYvr +fLBbGZe+j7q2kbILfFxmbM7fVsbsM9IHw7nboWP4wp1kESa+rGjeeM9oC/jI +irsl+DFxo1CB0u11m8COz9kxqZ2J3UEnzxuXG8LS3jWyr5RZePlcXb/51g3w +2+76WtkYgo+mmhrlxzRAaERdoHqEhduM/p1d800FbO+SWwsoJGRKTxSpEfrD +7io+dribhNdivgvmaLGh3nbfrZFUEQw/PRUo08yGT+sTetPNRfHIfr/dYncn +QPat2dZ/86LYFe31iSswBVfSlgg0HxXHsqGlJ49pcCDJyMjMXI+MGzMahou/ +caDkq93SZXNkXFuSJpdlxgVHSftEy1sUXDyjd+6bKhfw4Zn8TYESeKTZRa80 +mQMn7lFzDylL4hnaYeWfZ6YhhrxJz9daFm+nrOzrPNQHCge7xg7yy+Edtlek +hfZryKlvEDbslEMj2jM9GXYXGAqn3t9+Th4lt225K/DzKTyeVcqeUVBAv1qb +wRzHJzB3MSdD8rQC0p/wXyvueAQfgkzi7D4q4IPzAYMJH+6C9VqdyxxdKv64 +IiemTauGAemGRc88Kka2mMy+sKmE2lf1Jgo/qFjBLfIstSuFhVWBuNVeEc9F +kj/qbC+Cgc2iPEJ3FTG2mo9ZPJMPKzYzSyRElFDHoIDGNMoG6xNvkuYClfBq +IDZvC0sD44/3vbldSsg//urADU4C4f9GAqyUaRiombH2+dEYsCsur4uMJ/j4 +p89G6MkpMPj2eezHFxomOqzb3/kjFAw9q/aabqajgmvbqu/WwTAsfK+l7BId +e46es3vg4AeyF/nt/P/QcYX2WMLg4CEI8GArC+1loO3iR8HMKHcgTZsPTt9l +4LsETcv1K1xAdom93SYpZayZC3ENPmAPT4R2JWiEKeP+X39OarnZQs3XlisH +3ijjGuH4LhVbS2ia6uIJ0GHis1UHfOOVzCCEuXp3RhoTr16/XhJYiFBnlvOC +/J2JlXd/7jRn6YNUfm1KoCULFRhHpBu2aMPTqMz1/tdYmLlqaUDV8/XwqFCu +TDiQhBshf0aYzIYjPYW8oetFMPVw2NobvmxI1w16eOy7CPp8bn6QtX4C3n+U +VTB+K4675l+qG+Rw4Oabg1k/z5NRvHFVYQCdCzJOua+0d1HQeMWLiE0E/77c +SOCVEJHAxdptFWUTHFBQf5We0iWBGyYoaVvIHHA4cGn4WSsVL1naMZ+uK4e6 +ipy/O+iKSCsvfkS7Vgy/BHdIZsYpoqvQiK3f6YsQpRkpIfVVEaVDlqvP/siF +DU1JadMmSljG89ut/lYGrPKvunN1TgnZux/qKYnEg6h5X3K3Aw2vhd7qFF1y +GuxrGBKNNcRz5ZEXuurh8DTBQZpPnI4yLi8qrkwcg6Bf1V2iQXTUarLbu1km +EEitDbYZXXS8adXJEzdzBF59WX6XsZaBri7tN9T+HYDnuSeexZ5loM7LW9fu +ebnC7zvd9hvGGBjBF/R1Z8Qe+PPty0jRNmXsfHX/d2/NLrAY9dlrW6qM0uUW +Zw+/t4anlm+37VzGRHPfnA7akq0QscVnVNaDiWmOqW4mjzYB82q1g1M9UV9/ +3Hwu1gh+2Gpfu76GhXZ6PzPseXVhMXvwalsoC80aJven/tUArY2fSCvfs7BT +MjHZsWct8Kvkb+gzJeEz3Ac9q9mg8lLhUcAiCcOtEqPo29kgl/CKXXiYjEdG +BiKvC3JhUC5kXIZBwSBdr8chhL+W+epvrjFIIeYzl6kqES4EihRLbbtIQgXu +ZzGksqGsT3rbKVcRFJWbDjiZzQZjhT8G2zvImFHx34U9eoT+ZN+/bxVFQVjl +Nd5gzIXS0OLHCyYSqNpNhelGDoxnnlmyZ4bIP/S4Rga/Chw4X+NlvZKERx72 +WWgSeimTxFei3ETCWPu5fcZqbODtHeg+GiOCqg/W2gXeY8MIa5nvHgNRNG/X +uiZTMgGmN84c6ZkSxWIjnu8J05Mwzy9XGuwljhseLM/+q8SBMhXHverryEiS +aNQ6OciBvqwkgYYJwr9tO79uqymR31WbNaLFFByo27PUXpMLJavy17w7KIGw +smehPp8DRac2pOvKSGLC8fAbcrnTwK/DkVllKovT3hKq9lV90Ohq5CDyRxbV +JuXfPgl5DXPr188qNMjh5O8Zrp5DN9SYrUnjjZLHWrNnqhbmbSCwxNL8jbQC +yp3TCt9x+QlYC3YZuIUroGtktIOZTj1kSv36/uCtAtaNaVsGqd8D8UYLy48a +hNGQurJZyrcaKkW+FtVlUBElRu9W1lVC1t1NKn8mqPgumRubUFUKRuuODRvv +UMTlY5k+nplFwGijFfpUKeJXI6rk6J4L4F5zIW5BUAnbjPd3vsrKhjtW9ofM +fZSwUOwPaeB+GvB9f8Dr3KaE98V6S7i7EiFdYet2QyoNhX9fSl/xLAa0l0in +9kXTkJ7k7CEkFwUqOnd4ez7Q8J0Av9035zDQEU/zTTCm49R5MxNafjDgHDlz +ZT4d7fm+8l3r9IO4Y08POf6go3wi3+5JUy8YKqjT2r+bgbTPRhHq7e6QKRGi +0V7FwAnHPEfh0y7Ae4DPfYOYMt46b7n0caM93O4RTk0OVkbvE2Oxi8W2UJ3z +ZcL8OfG+rdE9T262hA6+OdO69UyMThN06DhmBoOh9+3mEolnN57lPR8QtGKu +iC8dZqLZhfM8l7L1oUD/ZedTMxYaSZ1rFc/Rhn7WkTtrilhoSV72989adXge +VW/ZdJCEx0rijneLsiE/Y1F9gxLRj6cmvP87wIa+uql3SwdFkP/LlGuSwgRo +2enXT3aI49KlBt/9EjnQ0RRV8V8yGWk6Cub75LmwfeWLt5NbKKg49FooYhsX +1A3OZH7kk8DeQ0u+hc9yICZ6VJTeJIF58xmDnXQOMPc2n5VtpOLY8QMPRZPL +IT91zYiKvCK2+K8J1PpdDLpr7eoTohRxKL2F6714Ebpq0mqOf1TE9uNm0/M2 +eZCmwRPca6CEVi+S8mYWMuB1+G0L4R9K+Db2mFGaVzyMmWw8Um9Lw5aBZmdj +y9OwQTT3u8QtGkrwmsXnFYRDTS9T+8tqOrIWXGmMbSHgXZLxydGHjrGPloZw +9gXCkZtyCj+f0rFSXG37GSdv0K9reyZMZ2Bbw8NqS/uDsOnV1t6+0ww8J5TY +YVjmCicHFq6t/sLAXHfZGPuxPfDJKv1HtqkyPlreyk/itwO9SpbbjcvK6PO8 +fvniDhtoWfyRpf1PGfXNf27Dg1shzjlPxcuFiVL77yapLDOFjJ8uDk33mJjB +btnJ+mUEvmnIziOzUG/yRl+Rmy6c3jD/RSaYhYuntkuvNtUE8881Wfd6WHiP +74Olv6UqSK3Wex+/kYRzMQXHG1axwSk1elyNS0L52YoWWXM26Iewec+6kPHW +2figOV4uiLy8Md0nTcE3PttLh4n6eQccfjvbQ8Hd3wP1dklxIeaHSf2fDBL2 +b73ocl+WDf3ZJ48b2Ymg1fnavN5EYv/V5J26j8nYvn+yZqUOFxLMpx/zH6Ng +xZT3htcmXPi5rNCmWUcCeb0jtdhdHFgwdIpdNsFCsb470UMhKmDcE0L9TiVh +ZOXuy36EXj5abbrl+jsS/vXpjnDQY0OwpuxfCz4KfqL7rAvewgWBc85zMQ8p +OEidL5xicKG87hTfvnAS9sUevV4kwYaMUYvIlaVkPGwkJ01ey4XvZfs7T+yj +4MtDflMZ5lz4YT6fQbMhznMx7Jy6MBtu+RoPuWtQcJmIiG0OwYt9anwhueUk +FL08Gi5DZ4Oi1n90jz4ylnlnGmoYcYExFFWdcY6CL0Jc920w4EL/eGVE5RwL +xy6kpMrksWBCMEb/2jISLjMfWL6dOE/Nd+2H/A9JmBZ1++6DtWy4miP98WGk +CPL0Cbc332bDOKN5Y72OKPoaU4+aX5gA+7wrJ+u/iWJ2i8WLH18ngbmp8oel +uzhKHkyd1ZTlwIaig550ZTJ6Tz6WfzrAAT/fslUyY2TM3niiY464b2ufLo+f +BYR/+Yv4VpsL9jp0Z5qrBCrERzXJFXEIP4YplyiSWB/XXZVxeRraW9pT9hrJ +4pHXrU3/vemDtE/HhEZnZHH3pqWPLfJeg8q3kSNiD+Swfq/uL4vkbph2/Tzv +fEIe4wRzBKz82+Bm7KeLLRKEX16tVZ3SQvjlBs+02DAFzGq0maB618Okz8uL +7DcKuGL73cE3TvfgeGKvQo8aFa30Z3p+pleD+OpjwUPErN1eIq92c7oS+Fix +cqPjVAxJpd9b9l8p7DOa1dXfroi3WGvPj94tAqsVN79fuKGIZsHb4/OSL0Cq +T+/s5HIlTGaZ1qg2ZcOITu4bn8NKuNAl27PYnwajgfrP01qU0Obxq/pLsYkQ +LhdmoC1Hw/b4S2OlMzFAU98ZxnuKhof/bgr6ZhgF1IELwk/e0VChLW9XfnoY +aH4/FVJpQEev0b0mao3BMOFr9scwl459FrDVlN8fDNxKOVYcOk7KBtcKhXjB +xQdFD+J3MnD/H78uT7Y72F1f/f7ODQausTub9rjBBY5mD3ipk5RRr/LB6cAp +e2BumEx/GKCMy94bLGtptQWNgECxjZ3KODPuc/7RgiVYC6ce/E+ViacknKM9 +LpkBmZryRvUsEyOrhWmfFhACipn35j4z0Ze7gRrcpQ+fEl2OcDaxkFk12FpV +rw1ukbt/cgpZWH4pg/rQWh0cuUmy0q4kZAebnnomwgZNrtpWsqwIavJzPhe7 +siEsXO2bxXuCB0bHc9SlJsA1tX1lW4s4CqS+0g6IIebvjSm1b+KJeZ3JuKwq +w4WRr+PvLTdRUM7t151JQj/6l/B8aFyk4CbX5GuaC0S/VgTtCngogdX9Lh9H +1nEgzX6305Z6KtYK9XIN68tBkHffewkZRSwP0byhQy0BR4M+4dgIRQyj0x/S +jC4B96fU0mvvFdGfxWe/GJEH9d/0hto2KuGIGIO0jJYJtUs1KZs5SjgRzJB4 +khUPr+GwY601DU2yuPOtAaeBYfKi17SShqabHCwO9IRD5UkRk1eCdLQJ/eoa +cjwEvE6eHj15mI5x79P4y6MCQVLJOp7RQkeD/1J/ZqV4w9TVa7v4FBmoUWis +73b6ICxMrN/77xQD5x7XmOxtdwVD/6wdc58YiIdOGUXJOcGOSK/5VFTG6yfz +tVXW20GV0IoDA4XKaP4xvoqbZAOb+s/U0ReU0XHfLvnx3K0geEjNKtmJiaIa +QsYCKqbwtFDr7Y8aJi7b7cAvtd4YKm49TUkVZeGGUYvVA+m60BJ3NnpLAAud +mj2d1T014YXO5b7klyzkyVsVYnhWFa5Erqgc1CThpvDfVTsI/edO3l4ixCZh +zJikbfMmNrSz51ZHOJDxutCnK/OLHKgoezajRabgWf4rA0FE/UR1R+QHuimY +u3Rw/xRR39WeIqm7kknIEXv9XkyGDQE/r6fIWItgR3PU2VuxbBg7o+iiep+M +h5qllz0g/Kai/KonHv4UvP22tk2N8KMFXVJ5peslsJt9nOfeaw7Eppu1DXxj +4WpGJvvJLRVo32w+YypDwgbjfHFzQi/tfIP3JfaQsPvru6DDG9iwaqUeT9ki +GW3dp+zTCf2usn1n4lVLQSXnH5sXWVzQVLXpuxtCQrGnpa+sKWxQ2OeYwHOZ +jKXtA3U7mAS/ok8+f+tIQRvTQrcwgh8R9zsORGwj4W/v64WhQmzYau402rCW +gv05Me1ZhP6PXerZMl1MwrDSrwVKSmyoKmerO74k4x/PyV12hN43PCqonYql +IG9Vn6ggwQM3yGs4/YuFf3smtsm8YMF75eGcnyQSqn6UkGIS5zF6FMDvPkPG +pxyPGyc3c8FMeDLMy5uEUQGpQ0NiBB8077xJ307wjOnsNEnMm2kXDq9Yb0zC +m2/UNyEx74TOpk+EKVDQcH/JTkMiv66c5Vs2tZCx3+y7rYkuF6Z93zwsP0FB +F/kKjgNyodbtmk2GMonwQ2ZHy4j47/cs+TMhQMFaLZETesT+O1+atsseoGDm +BQXRVDMuHOld29RpR9Q3a4nuPMFDSrbi52W6FLxRv1PvJBHPOqfJoG+BhQfc +svgz3FhQ3exd3MNL8Hqi65wrsX/Umm7zX/dIOMP7QCJahQ0hsw8O/HdSBC99 +DFr4dZMNPvQrclOaovjjt1rVUM4EDK7WjKkeEcUYRrp59cdJeLx/Zs3G/eJ4 +2j1AtUOKAxHO7O/yNDKeXnYixeMdB+r2bEixGCZjp0dk+laCb1deCK4YPU/B +ZGPWFcENRD88O7KwzUUC7/aVbN9cwoHH5KdJPWKSqJfDPLL56jSUJdVsOaMv +i/XKXdd1RvsgVFZ0/NW0LEqdpVdRy19Dc+uTklV35RCoHNbRsm5I8WvRSDwu +jx1M5pnhM22wZCuz05CigJUX622f9j2B59I1dRKhCqjV++6gVlw9FOQY/Y7t +UcD413m/qAH3oGwqf6X1OioybZ69jCyphnZBY+ewFCqai8/P9ay8AYbupXku +36gYsfFPq+evUvAz2/j5nqUido9fLn7SXgT/lXEztCoVscqU45V97QKUbg1S +9+JXQpla3YWTb7PhVIXuSh4vJRTY86dS+VsaONb+0VrbrIR3P4dqnb+YCIGF +6ZpVMjT0dbIppwjEQsEWP7+8CBp+adnJ72sVBTJqpBy9fhryb1hxd01lGFT1 +zf4x0qdj9IJbv3VPMGxmfrzRm03HIT9xhYdK/kBxyNnQNkXHVztOXDZL9YL5 +LdkLa2wZuFCZK1aw6A46x/bcZFUykKEh5vv0kwusU9vic0NIGdOqPytO8TvA +gUMumTv9lfHhwsLvx322MP1hY2nVM2XcmXTk+yMpK0gTd/oVuJaJJP/ILdY1 +ZqD+MzTraRwT13cWnfqzygSE7nivODbIxMPTL88uH9OHf5olD+JMWBjJ0tpx +4ZU2lDItKS4FhP4ZPGTpuqqDzPWjceYuJBx3eNBoTfBtkdrWwyctgp7Ffz+n +7WODxcfuAL+3Ivg91a4riTwBvyqFte40iWPbPd8vR6I5cGlG3OBFDBldcy1e +JEgT+vIy1PkEUFBT7n2ZDPE+qB40jqqeJ/zV6EHPKEI/U43vz2Tfl8B+79KT +4xoc2GwnZ/rhIRUfR17YHtxbDpsMTtmlSCviqQ++z3p1SsDLVOIBb7gibtC8 +yl/lfAlicvZVGL9TxI++D5/LZ+fBm9Y+GRNdJXQX21F2XTcTGFu4Jz9NKeH6 +1Hcyfyriof1xtI3Gdhr22J6OKT1zGi46fu94V0HDpPHyvZzJcCh7Htu2VYCO +XwVfHX2SEgIjnn+8V3vR8clKNC9MDwS/j8P6DU/oePTbuYEnZd7QcSE3L1KB +gT/X7yKl5B0Ep3Cli5mRDHz0y6Qiut8VZPUGaf4fGThyOu9Eg54TCEq8WVwF +ytjnxDvYZ2oHbDh+MKhAGRt5tRclrtsAr5nl9ot/lDFp9Xtfz9tbwcpn7oP8 +HibGcfL2ZBqawmCgXG7KHSYuUNUOPLA0hq0NAoOCIgTPmiJHZCp0YUjtxcsP +fixcETRvPXBcE8QHs2d/P2fhuMK22Z5SVTikOy2+Wp2EP/XO8CgQfHssZ5H8 +d4yEpm919ymYsEGoLCrzuB0ZL8wq3Jgh/MevLIdj7qIUXOrC+alG8M0zn9bS +1UHBbZv61avkuPBabm72VCIJF55dct62hg2G9M3SqyxFcEHyX4XyGTash/Iv +jNr/61HS+xgNLvitzDfN8KHgCInCfUXwbXq9o2GeqgTm2MulpPYS87GBwZj5 +GAv5cwyH9nepQNLfdc4BUiQMnRY32EjopULhyvGwl8S8UpXqu6DNBsfZp9F9 +82QUvh1IoxB846uVGNlTTcHt/svtQon5ZXZoA3wNJmFdG3e4ksyGQ1L/Cc0X +kPFB5A75IWL+eekrsIPfnoKNcRLnPxN82xRY3V1uTkLrwbBLSgTfsjTHvCaZ +FIz7VmWbQPRvpePDKpkiEgqMK6mvV2TD7IHguzu7yXhMke+mkz4XVpWr6Mqd +oaDHXNiDMYJvpd+SByd+sFBh2sCrfZwFlwa7/lGFSLg19LzsWuI8iWWL8WnT +ZCzYXWI1TNyHYHvvlywvEn5RK3xkT/CNR97EvtGCgnZ7yY56xP3b2dkG7jUg +4fOdEef/EvVr+SrvXyZLQX8Hv9PiRH5iO1O6DJvImF7zmqVC6Luhk7tR/3EK +ln0O7JQk9P+EdOr9xzRiPnPdvS+BiM8wTz0ps5yCoY2+be+I81989GqblRsF +fe0Db4kT97k+RUzlty2hB9ElcZkE39yjq9y1tSk4JrtmbxIRLxPvOZvMs9Bq +Q1JNezgLmDsLXp1YQULdhOF8I2L//FnnPbJmRPzuu9EPiPw/tSqY1uiQUN/s +fl8skf++RwZByyQpSG3OeHKL+H1p0r5ECXkSmrl6aDsS/2+Uux4ZtoSCN9dM +Vy0j8lvY03UwXY2Cj7Km5M4T8Sn+f9c9EyPhwWADUxax3sucvstjBwUPJeSJ +FhC8Vl3J52OpRMFds1WiLsT66bKGkYMqJAz8b/lYJ7E+xTc4tGEVsf/nGMwg +1neUZe1/q0f4mQnhMXdivSC7U9p7kZhP1U57hpqz4H+c6i1Q + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1mW0VVUUgNGHtJSAtLSEgHR3h9IhpYKA0i3dKaDSIY2ClDQoKVLSIN3d +SEg36NzDH5O1vn3OYLzLO+cO0jZpX7NdpIiIiFJvRUSEud0f9cirn+mM5hpd +xPxZJzN/0QXNj83s5iazuPmZ63HNWTq/WdLMYm4w77iWxr7CXpNc9q1mHuf3 +zIGkI7PzdeZfzlPal9qr8Y1OGH4Gezke6HR6lb021ogdZn2e2+eS3OEiXZnP +dTz9o70Ud3Ve7tsHkZ4Dehjvum+uLs9DHZmd9ga8sM+jEfl44Gww73NQDycK +u3RDXtrn05j8RGW38095ZV/AFxQgGtHZ49pnvLYvpAkFeehsCBk4pEcQg73h +8/HG/gtNecdn+MlZaf7RhXhkH0pGDutU7llmr863OpGeZ69ANvtG85Hz9PZf +7XWIqfeZjfjXnsm1tfZF9hT2xfZCZhUzh7nZLGE2cz2+OVsXMMuYWc3fzWLm +PdfTmit1YbOWmdvcZpY0C7v+ODwH5NOZzA/M9WZR84jrqc3lugY57VvM75wn +ts+3V+RD+x/mY+fv23+zf8Lber/ZOLwELDbec32JvSpf6gR6jr0s93URntiH +heeWo/p7krhvga7EEx2Lv+xfEIkl+iuK8lQPD5+FY3oksTmgm4TnmqW6OcWI +E96x8CyH33H4Nw0/V3g3OOjepkRmmW5B8fA8c8hZM6KwXLekRPidczh8PqKy +QreiZPh344izr4jGSt06fFeEz8hRZ82JzirdhtIk5ZizFsTgV92WMuH7g+PO +WoZnid90O8qG95UTzlqF3werdXvKhWeLk85aE4s1ugPleaZHkIXjelT43XFK +tyE2a3VHKvA8PO/h+eOEHh2+azit2xKHdboTFXkRnqPwTnBSjwnvDmd0+PKM +y3rdmUq81N+HZ41Temx4Njmr2xOPDfprPuKVHkl2TutxpOGc7sA7/K678HF4 +TzjvrCPx2ai7UpnXelR49zijx5OOC7oTCfhDd6MKb/To8L5wVk8I7zsXdWcS +skl3pyr/6jHk4pyeGN4jLumveZfNugfVCF/MY8O7zHk5iQxc1l1IxBbdk+rh +1XP/OGd5uKB/ICNXdFcSs1X3okb4690/3lleLurJZOKq7kYStune1CSy+yc4 +y8clPYXMXNPdScqfug+1iOL+ic7yc1lP5QOu6x4kY7vuS22iun+SswJc0dPI +wg3dk+Ts0P2oQzT3/+CsIFf1dLJyU/ciBTt1fz4huvsnOyvENT2DbPyte/Me +u/QA6hLD/VOcFea6nsmH3NJ9SMluPZB6xHT/VGdFuKFnkZ3bui+p2KMHUZ+3 +3T/NWVFu6h/JwR3dj9Ts1YNpQCz3T3dWjL/1T+Tkru5PGvbpITQktvtnOCvO +LT2bXPyjB5CW/XoonxLH/TOdleC2nkNSZwv1RzwNz59eba8bnjP7n5H+//9P +btf+AworCus= + "], 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]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + 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, 13}, {0., 1.1432124336654814`}}, + "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:eJwV13k4VO8XAHBJioqxjSXbMDNmJNllPUeiQqSERFlKyk6JQpQlsu+JSiSk +kmhRskeWNpFSfVW2NJYZlUT63d8/M8/nee997znnPe97n0tx9991iJuLi8uE ++Pn/f0j47jVcXCQUZLyQD13NguoW7+JebhJGTnafdyU8yR+jf30FCVeYD67c +QZixq+DVyVUk1E0YyTcifPBCjZf1ahIefdRvoUH48lD3P4oACbeFXpBZT/i9 +0kjOTxIJVT6KSzIIk/3/bngmQsJDwQamTMK298TaCsgkZEhNFqkSTvq7wTlA +koShM6IGmwh3bDGfNZUmYYNxvqg54eVJ+xPF5Uho5uqh5UjYuDeE8p1CxFu5 +54of4ZNSqQ+eUEko7LpnfwLhWrfrNhlKJHwba3asjPBMWcPoIWUSBv63cryL +sMrM2wi9DSQc6QlvmCV8WHdGdK0aCX/qneWSX8OCq5GrKoc0SLg5/HfVTsKf +2uRNa7RJqG/2oD+WsORavffxm0g4H1NwooGwnZ1t4D4DEj7fFXHhL+G0i0dW +bTQm4a03aptxLQt4lfN1+k1J+Az3Qy/hzYHVPeXmJLQeCrusKMCCiAedByO2 +k/C3943CUMI/zBcyqDYkHLgUdl5NkAUbU0SUf9uScCK6JC6T8NG+9U1ddiRk +Zy3TXSD82cN5OsiJhALGO58PkFggfeNYnLkLcb3Dw0ZrIRY4cpJkpFxJyAo2 +Pf2M8POoesumQyQ8XhJ3okeYBfwdfV+yvEj4RbXwsb0IC8wEp8K8vEkYFZA6 +PEz4caFsmWAgCTdB/qygGAvmhnXgazAJ69o5I5WENVRs+u+FkFDkaekrazIL +yutO8+wPJ2F/7LEbReIsyHk75FoZT0JDy4XlMVIseC07P3c6kYSLzy47b1/H +grWeQqm7k4l8RF6/F5FmQcwPk/o/GUT+2y65PJBhQaBQseT2SySU53wWQQoL +Kh0fVUkXkZBvQlFtowILxi/3bp0pJmFY6dcCRUUW7FflCcktJ/rhyli4NI0F +VpaHXo/UEPnSZ8etmSyIWtdj/us+CWe5H4pHK7Og5rvWI95HJEyLunPv4Xqi +fkk8JUpNJIy1n99vrMoCVnfx8SM9JLwe850/R5MF8oWrJ8JeEvlVpfouahHr +7xu8P7GXhD1f3wUd0SHqtdZ06413JPzr0xPhoMeC89ZfJCZHSLi6q9goBljw +RNYi+e84CU3f6u6XN2EBZ+rOMgEWCWPGJWxbNrPAKTV6QpVDQrm5ilYZcxYo +v5R/HLBEwnCrxCjaDhZ02h448IMshKKF1/hinVmwRGnv5ZESQs/iv5/T9hPr +wVHdJiYjhBq87M/FrizIz1hS01EUQpXTk97/HST6p7eQO3SjEKYeCVt/05cF +fHs+XFvYKoS2/yz1r0exwJC2RWqNpRAuSvyrUDrLgoCfN1KkrYWwsyXq3O1Y +FgxknzphZCeEVhdq8/oSWVDWL7X9tKsQCsvOBJzKZsE2x70s7jAh/N6i36dW +yYKQuYcH/zslhJc/Bi3+usWCazlSHx9FCiFXv2BHyx0WcPcN9hyLIeJ7uN4u +8D4L6m333x5NFcLwM9OB0i1EPpYeQZ2lQqjZNSReM0isj7Hv7/Q3QjjyoKph +WmgSLD72BPi9JZ6XatedJDYJYeGq3yzeE/MZnchRk5yE/rrpd8uHhJD3y7Rr +kvwkpOsGPTr+XQh9Prc8zNo4CbzqJyL3cgvjVsPoc2PWkzCtGM1DURPGZUN9 +zISMSfChXZWd1hDGH79Vq4ZzJmGC3rKpXlsYfY0px8wvTsIoc4XvXgNhNO/Q +vC5dMgmfNib0pZsL49EDfntE7k3Cc4P0Um4XYayz3O5MH5yEyt1F24YThPFd +tZRBM3MKjpxtSrr+VRhzvHOUjr+dgqG1GjHVo8IYQ083r/44BfZ5V0/VfxPG +7FaLFz++ToHpzbNHe6eFsdiI63vCzBTIvDXb9m9BGLujvT5x+KbhlXLncgdR +EbxzzfD1XaNp0Hv9+iSvmQiW+MfD+bJp4KMMex0qFcHhxYVCjukM2EXom1Kd +RVHv3bzcATIbnhyYXbfpgCiecQ9Q6ZRkA2Nz5Q9Ld1GUOJQ6pyHDhgVe2dJg +L1HUebgy+68iG66mLeNrOSaKZcPLTx1XZ8NMccdzt2RRzOYougxbsiGp097p +8hNRPHbR/bpbJBt+VQpq3m0Sxfb7vl+ORrPBNbVjdXurKPKlvtIKiGGDpp1+ +/VSnKC5fbvDdL5EN7z/KyBu/FcXdCy/VDHKIeNjDIx+mRdHWabRl+U02tIoH +B0pRxJAmq1G90M+GCGfWdzmqGJ5ZcTLF4x0bdIoOedKUxNB76onc00E2lCk7 +7lPbIIYk8UbNU0NEfEZGZuZ6Yrgpo2Gk+Bsb9nislAyyFcNW7/WPR/6wQaAs +KvOEnRhenJO/ObvIhg7W/NoIBzG8IfDp6sISG/RDWNznXMTw9rn4oHluDsgm +vGIVHhHDo6ODkTf4OTB662Ljs2gxNEgedBuS4MDlWVGDFzFi6Jpr8SJBigOO +m1Jq38SLoT2DfkVFmgOdTVEV/yWLIVVb3ny/HAduvTmU9fOCGIo2rikMoHHg +sOR/AgsFYvgwcqfcMJ0D8vsdE7iuiGFpx2DdTgYHMsYsIleXiuERI1kpsfUc +CPmz0YtSTcxvxTm7XY0DG6H8C732//VJeh+jzoHxswouKg/E8HCL1IqHGhxw +Wiu2S/eJGHYcmKpZrc0BkV0p3YZNYphe85qprMOB7pyVWze3iuGA2XdbE10O +GMv/MdjRKYYZFf9d3KvHgbmDwfd29YjhcQWeW076HKgqZ6k5vhTDP55Tu+0M +OKCg+R/No18My7wzDdWNOLDSvFUw7IsYfrQ/XJWGHKjbq5NiMSKGXR6R6dtM +OODnW7ZGelwMszed7Jwn3J+VxNcwSazP9gsbtplyILFsKT5tRgwL9pRYjRA2 +ehzA6z4rhk/ZHjdPbeFAyVe75SvmxXB9SZpslhlR77mn0f0LYih4J5BKNufA +mtV6XGVLYmjrPm2fTrhR9kZk2DIy3lo3U7ViKweCNWT+WvCQ8RPNZ0MwYbp5 +6inplWQMbfRtf0f4/d5lfyb5yFirKXRSbxsHUnyDQxvWEPd/jsEMwpujR36l +CZLR0YGPPEz4V5bDcXdhMi53Yf9U3c6BirJns5piZDzHe3UwiPD+xwZBKyTI +SGnJaL5NWOjlzZl+KTK+8dlROkK49aucf5kMGf0d/M6IWnAgdC59MkyejIYH +SnYZElZZzeNjqUjG3XNVwi6Eh2RDJqTpZAzS9XoSQjhLY9xrikHGuG9VtgmE +t5k7jTWsJ+NATkxHFuHFvd2H0lXJ+DhrWvYC4du+xsPu6mRcISRkm0PYPbrK +XUuLjOMy6/YlESZnK3xeoUvGm/W79E4R7izLOvBWj5hvUnDcnXDkY95PZYZk +/Hun3sOUsMbLUOeTQEYN2fdl0oRHv068t9xMRlm3X3eniPzy55z3ypiRsazn +XvRDwjtWv3g7tZWMCsOvBSIIc8mZ2DdakNFun5ijHuEajbtv0neQcYjh7DRF +1NfLnLbbYycZDyfkCRcQlnbKfaW1m4zGq15EbCb80pdvJ689GRvjxC98JtYv +JvrU87eOZLQxLXQLI/y97EDXyf1kfHnYbzqD6IdLj19tt3Ijo6994G1Rwrte +mnbIHCRj5kV54VSin+rmlNoaj5Bxo82zWl+i3/xW55tm+JBxlETmvCL6UUFu +TbOHPxnvvK1tVyWcYD7zhPc4GSumvXVeE/1s6ORuNHCCyPdzYJcE4RnfN4/K +T5LRRa6C7UDsB8fsBw+sosgIa7wmGoyJfi1X1pU9S0aP+bCH48T+aXhcUDsd +S0buqn5hfsL04ajqjPNkfBHiul+H2G8/NbZXDuSQMdIzRUOb2K9XX/CvGrtA +xmRj5lV+Yj9b+3R7/Cwg6vMX8a0WB0qv2awTLibjYN3e5fbEeeAoYZ9oeZuM +S2f1zn9T4QBPrfjo3moy7vBfaRdKnC9Vtu9MvGrJqOj8Y8sSkwN8553nYx4R +60FZKJwmzqe6v+5eT9rJmOZqpuwlzwHPfGprdycZt28eUKuS5YCw7qjcYA8Z +c5cPHZgmzj/vgCNv53rJuOd7oN5uSWL9vvqbqw+RsfyMy3SVEAdOd4RTS34T +/X+C7N7GRfT7IeOo6gUi/rFDnlHEeTywjOtD4xIZN7smX9cgzms1g7OZH3nE +se/wsm/hc2z4cjOBW1xIHJdqt1eUTbJhS2bOUAJTHKeOWsUdGCDeXxsdDfNU +xDHHXjYltY8NBd2SeaUbxbGHdYLr/ms2/FxRaNOiLY7c3pGarG42lIYWP1k0 +EUeVHgrMNLKBb39Vgb+TOIbI9+S7X2dD1bOji9tdxPFef8mOLSVssNemOVNd +xVE+PqpJtogNJWvy1707JI6wunexPp8N+Ohs/uZAcTza4qJXmsyGUAmHPLFz +4uhyeV0dJYgN46//Zj6qFUfa89TwMW02pBo/mM1+II4D3qWnJoj3r05F0O6A +R+JYPeDycXQDm+jvMWFakzjmLWQMddHYIK/2Kj2lWxx1JslpW8XY4Jhckur2 +VRwf1vSuXj07Ax1bLc+vFJLAr8LtWTPlM/BE7GlSr4gE6uUwjm65NgM1XzHl +MlkC6+N6qjKuzEDRaZ10XWkJTDgRflM2dwZO3qfkHlaSwLPUI0o/z86AitLv +q+1GErjcx9L6qvMMpPNeq4s/KoGbjno7qvHPgFPb0reVrRJ4na+1KOH2FAhH +ZxVAnCQOUjLu+Fl/h2MLLjtCDaTQecMeSe2ZMVi8y7dr/J8UJlSfLhfaOQwO +XM+fNjauw/Zbnr1Nv4fAZfVTvfxj0vhhKCAsYucHSLC7wnVDVwbtbROX5c73 +Q1lSzdaz+jJYr9R9Q3usHzpaO1L2Gcng0ddtTf+96Qdebbb0GlMZnPEWV7Gv +6ocYsc16vtYyeCdldX/X4X6I7P8auPGQDKpr0nXfDfTBMUelr3czZFBBX/Gy +f8sbcHW+1fZ4UgaTLCR2rah7DaEywhOvZmRQ8hytilL+GtI+HRcYm5XBPZuX +P7HIew2NrkYOQn9kUHVK7m1zyGuQP9Q9fohXFu+yvCIttF7Df74TqwXlZNGu +Kjzq7p1XsP80fZfbTlncV5BS+Kz2JThfvfRpxV1ZDGWQ9O629EBLW3PJmnuy +CBQ281hZDyh/Gz0q8lAW6/fp/rJI7oH5jRvn5Btkcer3LEfPoQdy6hsEDbtk +0Yj6TE+a1Q0vB4Yw6KssfkG+52OS3bBFULH4k4gcSmrKxW+L7QSV8OuH7x+T +Q/7aZs/UvHZI8WtVTzwhh50MxtmRs+0w4/p5wfmkHMbx5/BZ+bdDjdm6NO4o +Oaw1e6ZiYd4OhoKpD3acl0OJ7Vvv8f18CpZXQ/iGi+Tw1nJXavKep3C0w+wG +6QVx/6ZGbleFNrDjD5qrEZUn9v+XvQLfmmHZNkaXIVkeKy/V2z7tb4ZbsZ8u +tYrLo99azeqU1mbgW2Zp/kZKHmXPa4bvvNIMT+YUs2flifFam6Ecx2ZgjPRp +aGyQx09BEnbU7iZYbNDzu20mj4PtP+WmnjRCyfFlI+Uh8sjYPXvEuagenkvV +1ImHyqNm37tDmnH1MN/gmRYbJo9ZjTaTFO96sObvNnALl0fXyGgHM21i/FJO +hsQZeaQ1814v7nwM1h3rMT6ZmA/ON9yafwRzUvYXD5YQz784IxDrVQcWjRW2 +cq/l0Ycccj069j4U5Bj9ju2Vx/jXeb8oAfdhyuflJdYbeVy1497QG6f7kCn5 +6/vDt/JYN65lGaR2Hz4EmcTZfZTHhxcChhI+3AM/2kBdwrg8/jNZdJPbdA8y +EldQfywR81+TNoxarIH3dq6/OtZTkH/rijuS96uhbDp/tfUGCjJsnr2MLKmG +E4l98r2qFLTSn+39mV4Noo0Wlh/VKQiSV7dI+laD9XrtK2xdCv64KiuiRa2G +5mX8FlJbKGjqFFN2I/sO3Lh1t9DbmYLpTVXaurFVEL5qpZlAMgVD3QdyhZVu +Qge/sXNYCgXNRRfme1ffBNG1x4OHUynYUSKnemumEiqFvhbVZVAQxcfuVdZV +wqBUw5JnHgUjW03mXthUgv6GEw8aiilot8PoeUHkDfhtO7Y+sI6CBZRdrIbJ +cthiJ2v64REFn0Re3BHcVw5p9nucttZTsFagj2NYXw6MfS3nZBopOH7i4CPh +5HJwOHh55FkbBS9b2jGebiiHeyEOlxVeUVB5tLreILgMjl1sF34zRsGr0eEm +/629DobupXku3ygYselPm+evUuBhxsqOTVAwJJV2f8V/pZB1b7Pyn0kKvkvm +xCZUlULtq3oT+R8UrOAUeZbalcKvlTUBPlwK+HC5/V9K0TUIO3blOY+kAn6/ +8bE80aIENhuctkuRUsDTH3yf9WmXAD/3/vfi0gpYHqJxU5tSAvmp60aV5RSw +1X9doObvYqiryPm7k6aA1PLix9TrxbA4lKRSqK6Ab2q1VHtWFUPkjrBEbQsF +jBc6dfj2+yLwM9v0+b6lAvZMXClu7iiC/UZzuvo7FPA2c/2FsXtFYLTh+Ijx +TgVcOZ7p45lZBItrAnGbvQKejxT7qL2jCE51e/1yclfAmMhvjmtbr0CopaN7 +1EkF9Jf0a3AKvwxepuIPucMVUEfjGm+V82VwNOgXjI1QwDAa7RHV6DLorrer +T4hSwOH0Vo730iX4xb9TIjNOAV0FRm39zlyC451bn1/LUMCUlSJvGGmFELRd +V7+rgoh34dPZiqaL8F8ZJ0OzUgGrTNle2dcvgtWqW98v3lRAs+Ad8XnJF4He +Ti30qVLAr0YUibG9F2FwizCXwD0FjK3mYRTP5sMWnGzb2aSA1uEuKjHr80Fc +t9i2/60CPhnMHbGvzIOYnP0Vxu8U8KPvo+dy2XnA+Sm5/Pp7Ij8mj/1SRB50 +16TVnPiogB0nzGYWbPIgSiNSXPKrAkqFrFSb+5ELExv2ftw3pYB/kyR+f9ic +C4+pgkc+8yiizXvl6c+T2VC6LUjNi1cRpWt1F0+9zYZUn765qZWKmMw0rVFp +ygb3motxi/yK2G58oOtVVjas2sIoERdSRG2DAirDKBt2e5j8t0NGEUeJPcNJ +z4KJouA9ddqKaHx1p6mnZSa8aeuXNtFVRHeRnWU3dDOh/pvecPsm4noROmkF +NRPS1LmC+wwU0epFUt7sYgboNCWlzZgoYhnXb7f62xkQPXSti26tiFm5gi0c +iQyQkBswyfRURFWDxIkD82lwukJ3NZeXIvLt/VOp9C0NRrVz3/gcUcTFbpne +pYE0uGtlf9jcRxELRf6QBh+kgfXJN0nzgYp4LRBbtoelQUzfy7cHIhRRf0DQ +eWw+Fdjnn/mqZClihlMPTVM2BTp/111oa1LEqJe/V1fcTwTH2j+a61sU8d7n +UM0LlxJhLFD/eVorUc8nr+ovxyYCz/eH3M7tivhApK+EszsRjD8+8OZ0KyLv +xKuDN9kJcKfpnpHcgCJG8/CrH1RPgLzE6s+hU4pISw6eM2+KB/pWzqlP04q4 +MfWd9J+KeKhdrkHewlbEyWC6eHNWPLwOv2Mh+EMR38YeN0rzioc1/lV3r80r +ImvPIz1FoXg4vftW7GseKgYtzPiLeMaBp3QFU2UdFZMs+bFANhYCC9M1qqSp +6OtkU07mi4Vw2TADLVkqdsRfHi+djYF0+W07DClUFPx9OX3VsxiiX0YDrJSo +GKiRsf75sRgQ3qDwwEeTimU1rx/YvDwL9Ub55jctqXjKY9gqP+cMdDyJtlHf +QcVe2zMxpWfPwGs44lhrTUWTLM5CW8AZGDfZdLTeloqtgy3OxpZnQNi8P7nH +gYrXQ293CS87A17Wwn2THlQcr+J+phcQDaIHEj1Uw6m4b+HfgX/7oqBgq59f +XgQVv7Tu4vW1igKq2q4w7tNUPPJ3c9A3wyjQWiaV2h9NRVqSs4eAbBTYFZfX +RcZTUfhPv41A82nIHusQepFBxaiBFVd29kYCOWBlo385Md42cDOPPwIuOX7v +fFdB1GuifB97KhzoJi/6TCupaLrZweJgbzjoCOd+F79NRXFus/i8gnCwr6GL +N9YQ8VcefaGrFg65v838SI1UfORxzMPQ+RRIRMdI3+mnYr7JpdMPnoaBtCop +R2+Airw6q+6tqwwDyuBFweZ3VJRvz9udnx4Gytp3uXs/UPEdH6/dN+cwMPj2 +efzHFyomOmw40PUjFPbbQu2maSouKu4vjmeGQjHlz47GlTScfdxxlV4aAmXP +Y9u38dHwK/+rY80pIVB5SsjkFT8NbUK/uoacCIGaPobWl7U0ZC66UunbQ+Bp +goMUjygNpV1eVFydPA7j7JrRrfI0PMFcm/tH/zioNvuffrGJhl3Pb3yPHg2G +qv65P0b6NIxedBuw7g0Gje+nQyoNaOg1ts9EtTEYtEXTfBOMaTh9wcyEmh8M +hp5V+0y30FDetX3Nd+tg2M7P1r1vQ8NPxtXX3zwKgoO7gmYuedIwMeP0RNHV +QBj1/OO91ouGzavRvDA9ELxOnRk7dYSGce/TeMujAsG7JOOTow8NYx8vD2Hv +D4SgX9XdwkE01Gyy27dFOhBO58+WxUXQkPTV9NnwhQDI/3LMzS+Lhoyfj79Z +m/jDFsbHm33ZNBz2E5V/pOgPk75mfwxzadhvAdtMef0B58UyV+fT0J7nK8/1 +Lj8YEbzfWnaZhr3Hzts9dPADNaN5pa8VNMxcbvSUc8wX2nIjphyaaOggaZTL +1+INfh9H9BuaaXjs2/nB5jJvkFC0jqe30tDgv9SfWSnecPSWrPzPpzSsFFXd +cdbJG0htDbYZ3TS8ZdXFFTd7FJw4y2q73xLr96g0QFD5KMxYxZ0ymaLh29An +UTllXkB2yNFpn6bhq50nr5ileoGBWynbik3DKZngWoEQL4g7/vSw4w8ayiXy +7Jky9QKZS7x2/n9ouEprPGFo6DBYTMepFPLS8efI9LqTcoehJD3+429ZOrLY +Rx+/unUIOi/m5kXKE+Mbd5NS8g7B9LXru3kU6KheaKzvduYQ6Ne1PxOk0bG9 +4VG1pf0hePVl5T36ejq6unTcVP13EJY0z6XY6dJROqv7jcSeg+DYfw6qbOh4 +QPvI4BeSByxszV5cZ0vHxcpckYIld7j0sOhh/C5i/I9ftyfLHYYL6jQP7KEj +9bNRhFqHOwR4sJQE9tHRdukjf2aUO5ybsSH5eNKx8EFJbNwPN7jPL/5ZKYKO +PQdHL9wfdwWncMVLmZF0fPzLpCJ6wBUWJzfu+3eajvNPakz2dbjC5lfb+vrP +0PG8QGKnYZkrPM89+Sz2HB21X96+ft/LFUapn+58zaRjav3ivX8DB4AM185c +rqDjLM22aOqvC2gf33uLWUlHurqI79NPLmB3Y+37uzfpuM7uXNqTBhfIFA9R +76ii46RjnqPgGRcgzZgPzdyj47sEDcuNq1yAv2jcaHMLHX1rmJJWUs6wxK0y +PzxIxzI/dbl1e5xARm+I6v+RjqNn8k426DmBoX/WzvlPdMTDp42iZJ3g1ODi +9bVf6JjrLhNjP74Xft/tsdcZp2MET9DXXRF7gXPQvyb+B3H/n4iWwEpHGH1a +7a+8Vgl5DQufx8g6wAbVrT43BZQwrfqzwjSvAxzLHvRSIymhXuXDM4HT9sB9 +kMddR0QJb1+wXP6k0R5kltnbbZZUwpr5ENfgg/ZgZzC/yYmmhJYmapf1q/ZA +y23gTjQi5ivtrM1ztAN+8TdLa0AJ+524h/pN7WBnpNdCKirhjVP5Wsob7eCT +VfqPbFMlfLyyjZfEawd/vn0ZLdquhF2vHvzuq9kNGtS4rod7lHD5+6jrm8i7 +4Uped9Y3XyXcOcFF7RyzhYOHXTJ3+Svho8XF30/6bYGhM5X+KEAJV7w3WNHa +Zgt3egVTk4OV0PvkeOxSsS00C+xOUA9TwgO//pzSdLOF4Zh3EWExSlgqo8Gf +9mknMAJHPfkuKuGZ6Diy0zMbYMGJQ0EFStjIrbUkfsMGqgRWHRwsVELzj/FV +nCQb0Ktkut28ooQ+z+tXLu20AYsxn322pUooVW5x7sh7a/BxmbW5cEcJs89K +HQrn7ICq7Vx6zA4lVMud2DqoYwUzHzaVVj1Twl1JR78/lrQC9YBAkU1dSjg7 +4XPh8aIlVOd8mTR/TtRjne4FsRZLqPnaevXgGyVcJxjfrWxrCQ8iEtZcGVJC +LU9KSnuQBTTdER4izyuh425Nxb+d24DbzHLHpT9KmLT2va/nnW2weeBsHW2R +GN+/W24idxu0Lv3I0vqnhPrmP7fjoW3w1PLt9l0rGGjum9NJXbYNOkcu3k0W +YuDLipZN9422wmtJWjyPMgOf39XbtuOZGaSJOv0KXM9Akn/kVusaM7AWTD30 +nwoDT4s7R3tcNoNOnnnTuo0MjE7jd+g8bgZN091cAdoMfLbmoG+8ohlUtR07 +OYgM/FezpuDWmS2QEtjqW+3AwOJED4+NNqZg5TP/QW4vA+PYeXszDU2B/7Cq +VbITA4XVBYz5lE0hzjlP2cuFgZIH7iUprzCFiK0+YzIeDExzTHUzebwZfGRE +3RL8GLhJoEDxzobNYPHMw841loGhou0UuowJqP0MzXoax8CNXUWn/6wxATFK +yhuVcwyMrBakflpEGAp9YDefSMTvxrWy9wNCCGPtnow0Bl67caMksBDhavy9 +Pa0XGVg08Gb0OPEZumDG58CoZmCy+KfRY17GMBQom5tyl4GLFNWDDy2N4Wmh +5tsfNQxcsceBV3KjMWT8dHFous/ADFbrLuYvI2Bcq3Zwqifm98ct52ONwI7H +2TGpg4E9QacuGJcbQmXzrb0znxj4Y42D7YPlBiBw13vV8SEGHpl5eW7luD4E +FDPuz39moC9HhxLcrQ+aMVdFl48w0OziBa7L2fpQZ5bzQuw7Ayvv/dxlztSH +Zx0RZgZzRP6DP/3r9ujB6HMr9ThBJqafu1N7olkXtjXwDfELMdGpKXJUukIX +Km4/TUkVZqLOmMXawXRd8E1DVp4YE/WmbvYXuenCD1ut6zfWMdFO72eGPbcu +LO9bJ/NKiYlXztcNmG/TAfnBiVXSyEQti9L5vBEt+KdR8jDOhImRTM2dF19p +wadEl6PszUxkVA21VdVrQYH+y66nZkw0kjzfJpqjBZL5tSmBlkyUpx+Vatiq +BcJ7o0Tb7Zn4wW398eRbmrDirZh8kC8TKVnqm3ITNGBY9cXLD35MXBW0YD14 +QgNa485Fbw0g8mnxdFbz1IAzOgtfpIOZuHR6h9RaUw1Yyh661h7KRLOGqQOp +f9Xht92N9TIxTHQ01VAvP64OE69RtyOfcO3xmbZANShlWJJdCpjIZfCIqeuq +Bm6Re36yC5lYfjmD8shaDQaYR++uK2KipdiKv3/Wq8HTqMyN/teZmLlmeUDV +841QpDqqRK5h4mzXiP10syo4Jp6XONjDxBqtrC1JbSogOpQ99/s5Eyfkt8/1 +lqrAC+0r/ckvieflrQkxPKcC5p9rsu73MvE+zwdLf0sV0Nz0ibT6PRO7JBKT +HXvXg8CoGl/1KBO3G/07t+6bMnQaGIybjzORN8dw+EC3MsSmm7UPfmPiWnom +q/m2MiwaOsWumGSiSP/d6OEQZZjIPLts7yxRj9AT6hm8ylD6LXlo8gdR/xkD +r44JJrhBXsOZX0z82zu5XfoFEwYmKiMq55k4fjElVTqPCZl439lkgYlWOkk1 +HeFMsM5pMuhfZOJBtyzeDDcm8LO6pLyXiOtVz3iGmjOhzaR//t8/JraxbGtP +rWfC/wDVzC1Q + "]]}, "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->{5.000000000000011, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{5, 12}, {0., 0.977642504311667}}, + 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.9920814406818104`*^9, + 3.992081456732828*^9}, {3.9920815130406017`*^9, 3.992081564169176*^9}}, + CellLabel-> + "Out[220]=",ExpressionUUID->"9f71c8bd-ca92-e04a-9a9d-ebd14b022504"] +}, 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", ",", "5", ",", "9.5"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.992081595352972*^9, 3.992081606111494*^9}}, + CellLabel-> + "In[222]:=",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:eJwV1nk0le3XB3Ah0ShzhnPu+yYJFZJjqPY2ZIziiUyVIVNUhswkZQrhQSFH +yZDIUY+ZEEnK1CCSUkRkTKXJj3rP+9e1Pn/tfa3v3mtt0um0hQsnBwfH5hUc +HP//ajVt5eHgEEIt4QXZjstzMDBS9dxjhRCqNWsVTKTPQcBKnZxeTiG8JfMi +k5vt8v22qkUrhVCSp358d+ocyL2JdzJbI4Qn14uuK0qaA5Ff001MESG0SMhG +x9g5+KJcFqixTQgni60Iz6A5KCpUmfS1FUKhwvW7W63nYHOpYkBkgxDOXcyX +jlgzB7//xfP8YsI4dn96k3PNLNS0ODzq9RHG9ys2Kklbz0Isv2+lSq8wBvht +qc8YngHW3hxSYLsISl9Jp306NgMfE+rUL6WIYKPLDtMr96dhlfSH2N1fRDAg +1ubd0OppiMiSsfIyEcUlcf2hdJMp4Nth3cNgieLPNYkdVxwnYTK/sO0CrxiW +cK21n/L6BBVOfxe4nMTQTPLr1yfOE5CMxj30VjF8L246+2bLOLQsl8k2SG3C +a15Z2aETY7BykHvrQsQm3PfseTPTdxR2crg5OwxvwrzcWsptbgRqVo5KmmqK +Y9FdWylF/2EwlT94ri9bHJt7E1Tj84dAY/srp3c/xLE0caHuXdIgMMwPfD5v +I4GFezwVz+q8AnpTb4VdvQSeSoThPOIlHFnt+7NSSBKdvl7fOG77HFj+Kz4W +B0jilvLiOSbRDf80l5jTX0ii72XjoknnxzB6yOHHYwUpPFIzb2C++yFE867a +t/6SFHK+zN8guL8ZwrPbBV5OSKFONeF+0LQe9J1uZh6ZlMInvsnSmqr1sH5r +NG1iSgqHXbp2qEnUw7VqHfnFWSnkmrPY7DJZB03PG7WJBSlM7R+YyYmpAw7e +Sm8vDhqy0kz5Ax7WwvkzuT3cm2i4wG3en2FaA7GmwfG7jGkY4Sg9tje9EgL2 +qY/UmNCwQ8SqfDaiElz3/GRomtLQOcIpp9SzEvS3+X/ce5CGlIZJma1uJfCs +80FDKxqab176GfCtAqK63H/YOtHwAO34n2KrCog0sXY6F0JDpnXLyXa5cgg1 +Ymh2ltBw14uskrCFO/Dp1tfUnaU0tBGsiWD13QEr3rLpbBYNp/ZL035W3wGl +dpkcr7s0/NOYdeFl8B0Y0xPgWF9Nw8k3YherOe6AGc62HWyhYWhHh+pawTIg +GPnm/a9oOFLTpZRvVAptMhs8Rrjp+Jpup5b3v1tQZuir5M5Dx5mgVM4Lw7cg +06vv59wqOva4scTD227BicrsmKXVdCx13DXdkHwL+PXkCkQ30tGjaq+ax+Zb +YO+s/d5Uio6/tHQaXCyL4NsNP8v6XXTsLHLiDW4vhLdt/ZLaDDq+0P770OlO +ITya1BhrV6ej5NYVVc4ZhZCpzOHXp0VHYamimRK3Qtjbkpgyr03HJqldk/v5 +CiF+uLBT1oyOBuefXnl2sABI+oB2misdR27VnXSez4O4EsYaDnc6Sk9teh7+ +Ng/mdmW89PKg4ymriLySx3nQsN/KTd+Ljlv6Sm21buSBdcjLxN8+dFxjmXWX +8U8eJPU9e3UsnI6sq1fPptTfgMWEJycV0+lYFv+m3e1KLjiKbmVkXaYj30ZL +VnVULjzOi+PgyaDjPfk0JxG/XLhcZ5D2Pov9v76bfLwHc0Fpoq029TodK1dv +/VS+OhdcdR5w/S6h49Hgug4Gz3Xo/VWf1dZCR2akZlb7XyY4VS3uVGilY432 +0fs8I0yY99HsSXlIR6JLScv5ARPWTtdx2rfT0WzwzYBfNBP0h2o9v3bRUWxo +l/KXtUyob6neQx9g55ctn2NIZkNufPlI0BwdaQE2+T1Hs2C7wdfQd5/pONF9 +hLykmwWNXCoiel/Y+fRW7XCVy4LBsP+MNyzQsc7UscjtayYInb5bUfibjnGB +P0oKYzPh4dZXOh6cBE72eLj/rzoDGOv7hK6sI1Aw9pp4qNwVaOgx3GS9nsAu +lT1frdZfAZ3kBinxDQQevT+wZLZwGfbzF8he4yeQf424XlrzZXAS8FO/KUig +2jKr28P2MiSKbLSv3kQguG3LUE9Lhw800/z+zQRyjhnFlImlgfv75qJMWQK3 +WZ7gHV6RBrPXVUtttxBYUNibLz+dCr8Iyap3cgQ6Sru1r25KhXXS04/GFQh8 +H/uPwsLxVFDfcnHqhzKBFa9NPlnV/AtJO9qURfcSmD+QGnvvZAq8kGYwutiW +aKEm1OxSQESseHckEChdY1bYZpgC1zguGUwjgdWTN39IyqRA2fNDR+7rEjjf +ac3hVJMMPX5jcW5GBJpKjQ80MZNgQy3XcM0hArMvJYs2nE+EQ6X+H70sCaQ6 +vucbOCVCZu7EFGlFYIpcH+u7diIQFzu/JxwmUN1zd23tikRQsk1b42BLoLhG +OPHqfAIcXKIYvA4EKh5UtrBJiIcU1Emy9iSQeaGNmVkZBwKivJ2SXgROLTLt ++y7HQfps96oRtuvi/m5UC4yDrKs2kR6nCByrnXjkpBkHeQveZ0J8CBwQLdVx +eRALFbeu2zIDCVzJm7NzbiAG+vmXZYcvEFjlveOdID0arCceOBdEETjrf6My +jjsaBhvjct2jCVQyy1glNRUF704IiX+JIdCuZjg7vyoKJh4qrOOMJ/DIcYUX +MmZR8CvI9pt0CoHlSQVBg1EXQGKk5r4bk0BZuegHSrznwX46dJmWQ6D9RHTY +wNdIYH4HrX62NzTTt2cORQJt9eNqvesEBq5pFz5WEQnUzgEWmUfggxjChNch +EuSif2W/KSLw0J7PqhWN50Btq0bQgQoCbwscXU4UjIDAnctVPJUEuortljs7 +dxZq97R8a2R7WWelV9aTs6BpYXRasZpAbr4dSabnzsKeUBtXvjoC98rYnyn6 +HA563cGHWpsI1J4J5l7qCwNzn3olRgeBfZ28HJzNISCbPtc/xbYDX2ZBVG4I +LFZT4dc62fvwJLlBPjIECpbin6zsJvBJfV75sE4I/Ii1c3r5lMAPApvKP7cH +A/PaUppPH4E+l2a1QwaCYLxz78/bwwT+jjeLMBYIhHtzvjnHRghsO1Rn8ONH +AKRsLNIV/MDeL/NYsuVNAGgc3pASMkog3y6P6IrCAEj88F7OaJxAF1Z38Cqt +AFD+fc52fJo9HxIf+w54+kOYbGsj8ZPA4w3rkmJG/CBZwSR7lG3Zeu3Y/nY/ +yFPqDbr5i92P2gl//TI/aNcc3am4SKAYGmRHh/qBwAGuEsYygWV6ERzhon5Q +HKh7xYyLxG+nvhspWfpC/+PWU2EbSGSdnHH6b9wbJrtN9gM/iX+CSoPqn3nD +0overZwbSTy7fpl4X+8N5NDoWKwAiVfl026GJHuD1xcuuzRhEo8eEV78oeEN +XOJ6BiUSJH76mXD3+ZbToOT5kD6whcTD0+sUyqu8gLPA+M8lORI9/eWsy1K9 +oPfts7e6W0nsVtg51nvaCwLMhrLuyJOYpRJ17Kq8FzQo/xCM3UZiR6TH4IY8 +TzD8tYVXbSeJ8r8N1PwzT4BDdMJ82l4So8YVbny/4Q4qTRufGgGJIdnmjPYL +7sD1M4P1l+2W9ps1DS7ucNO94ISnNolEx2SvgLw7zJg0junokVjZ57nBrdIN +ggQ+D3wxIvE2j2NL4lNXSL5u0XLAksRWTeZSE80FrtUrvhKyIvEYj8mjK5wu +UNbHM/ua7VDNIfG08ePQs+ae2HFrEiemqDu/yo7D2iBp7yA7EvveTmT6ah+H +iwcXaDccSeyn/9u86OUMF1ZcCft6kkS7nCJl5SFHSJX0Tq05ReKYhv82/TZH +yGMY3wo7TeKuQQn3EJYjPDj5p5fHh8SSZollOOsIHIOuChJnSPQpXeuqRTpC +eDljUDeERI6HC0+eezlAoPNrxuUYEmfoE9rfVY6CeIZ0tVUsiSPf+WPF1xyF +po6TqmJxJD4XsNbwGz0C3CqcytkXSaw+dORjY/oRSOVQkL+RSKJC0Tmv/37b +Q1lOmCQrlcSLfRkVg112MP6KvqLtGokFjLSelCs2EL/mRETMdRLjrvnKsc7Y +wDaoXDbIZfdfNxH83cIGztw0XOy4QWLA08+yfPw2wOnv8+1ZAYnO7YfuqCVa +g5RA68e3JSR6PXIIC008DIf2u3YsVJMYGbBplfZtS6iuKDMqriFRcePGdcdT +LEFM4ufjI7Ukvnja1lzkbwlvJ2PbH9WReL1JOSMFLcEltvhhZgOJozaiL0Zf +HYKABzNNux+w57fFjnl67SHIVPeriOomMXnS5bNUogUsXr+notFDokFFs+gG +fwuwX8VdPss2bwvLU/KoBRD96XetnpF4/rsnf4KSBRT7VbPkeklca83Fquw3 +h/qy30VdA+z5PDxYLClnDm9lzjGFxkjk6Wc9b2s4AGGnJP8ZYDv5c5X16L8H +QLK2lo/5kcSD/w191HA7AEdMvgRIT5CY1yI8nSJwAN75OJmrTJHse2Yp952n +GQw36fEcnCfxb+vYSJ2cKYxZ83knLJFYNOT6K/6JMUTlFcoeWCaRuU6zDguN +QWZGe0jgD4mq+2BGNtIYXCJCjK/+JfGLsHnpBQ1jGC+clinmpDDZdbkxsNQI +Pn3tfv2Il8KTD5/6CmUbwmxiqi6nMIWcEuJ857P0Yf/qbf+rZbvCxbL/dZg+ +lMS2l58WofC+UWq4pYM+uJ9fIodEKfzpnFRSs0UfxgJdOWrFKXwsatVI1e6D +t06ajScJCtsDRI6feq8Hneof1F4rUGhptX6wXl8X5KvD5pIV2fUUWczd23Uh +bqfoTf1tFJZUqkgOCeuC/vb9wpXbKaycaaoP/qgDD6SrvyUpU2hx78ARqRgd +qF8ff1ePQeGQfdzKuS5tKB5Tlr+rQ2G4yB7ZhtMIzJDdxs66FM4sNaWo2yEk +8RucENGj8E2npEmPPsKZ3fYlYfsojFB5prqPhoDpMfJGhhRuY7kL3mMC9Ou+ +kf9gSuELn5ldu133Amd+lIKQDYVPez4vbZXcDd/Vk03a2f6W6Llt5W8t+NST +5RliS2HezOCrNf1a0L1YdnvYjsKiPJn2qylakGnxWoF1lEKr9hWWdau0YDvn +dkX94xT21Alu7lrWAFvHV4pBpykceL+XObNKHRJe74rS9KZwuCbG13CCAQ3m +6W+W2N7rJaj87BEDaDrm8ZG+FOopxZx1imHACNU5Ee9PYT/FxZ+4igHuY015 +OaEUGnXTils2qkGg202x1lgKDWUFdDT1VOHWe27v6DgKDUy2fCySU4WBw87t +BhfZeVqmV2muUwVNQyKgK57CrruTYk/7d8Ifuau9fZcoLOa4k8Ly3AkxU5eS +PqVR+KCSz1SUqQLpJ/251+dSaP868LGtiDJEbXph38r2kA8tMZdDGfzatlcF +3aDQa36wesW0ElhIfXIZzaPwv5vqdcLNSsDfbdteW8juP5i/+ZynElxSxHjn +2xTuiba7kZC0A2KmV/PXVVOoqVj9+bD0NgjIcHM/VUPhTolZIfijCC66D5ul +a9l58WuJW75WBL3scJ+kOgpjDii+WZuiCFwm8y+cGyj8yhs6XPBXAc6V9F1e +/4DCXt4qpX0T8hDskStxvJvCzFje/x71y4FV+uaE7T0U5guUFPpUyIHq/ZLF +X2zfd3a4YJYiB/NCVa8vPaOQy+HoKNNYDlybn2TU9LLrGbTdjmrZAodEvwmu +GaSQ4W6nu69WFra37VtbPk6h73yU9cN2GVg73xEaNkHhtfBcXcUSGZgUPzit +/4nCi97jG5oSZaDA27bjzSSFylrBjkctZEBC8nTcylkK4zIE/014Lw28fpnc +Nt8o3J7K5+G6QhrGc6TOSC9QKGF4/l/zcQpaH+eNzrId5SYo7NxJwVka68H5 +HxQ2HA61+nWZgu9PWs6V/qYwoz/8y0dFCl4s6M8HLFIo/ekR/Y8ABXfpXce0 +/0ehems2p9ZvErz8+/f2L1E43bZSjHpEgnGuXVnuMrt+sN1YZykJWzqHpTz/ +UBi0vzEzK40E7h8ul3b9pdBh4h5nQggJH4jppb9sV/dum7/uSML/AV0ZIFE= + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0le3XB3Ah0ShzhnPu+yYJFZJjqPY2ZIziiUyVIVNUhswkZQrhQSFH +yZDIUY+ZEEnK1CCSUkRkTKXJj3rP+9e1Pn/tfa3v3mtt0um0hQsnBwfH5hUc +HP//ajVt5eHgEEIt4QXZjstzMDBS9dxjhRCqNWsVTKTPQcBKnZxeTiG8JfMi +k5vt8v22qkUrhVCSp358d+ocyL2JdzJbI4Qn14uuK0qaA5Ff001MESG0SMhG +x9g5+KJcFqixTQgni60Iz6A5KCpUmfS1FUKhwvW7W63nYHOpYkBkgxDOXcyX +jlgzB7//xfP8YsI4dn96k3PNLNS0ODzq9RHG9ys2Kklbz0Isv2+lSq8wBvht +qc8YngHW3hxSYLsISl9Jp306NgMfE+rUL6WIYKPLDtMr96dhlfSH2N1fRDAg +1ubd0OppiMiSsfIyEcUlcf2hdJMp4Nth3cNgieLPNYkdVxwnYTK/sO0CrxiW +cK21n/L6BBVOfxe4nMTQTPLr1yfOE5CMxj30VjF8L246+2bLOLQsl8k2SG3C +a15Z2aETY7BykHvrQsQm3PfseTPTdxR2crg5OwxvwrzcWsptbgRqVo5KmmqK +Y9FdWylF/2EwlT94ri9bHJt7E1Tj84dAY/srp3c/xLE0caHuXdIgMMwPfD5v +I4GFezwVz+q8AnpTb4VdvQSeSoThPOIlHFnt+7NSSBKdvl7fOG77HFj+Kz4W +B0jilvLiOSbRDf80l5jTX0ii72XjoknnxzB6yOHHYwUpPFIzb2C++yFE867a +t/6SFHK+zN8guL8ZwrPbBV5OSKFONeF+0LQe9J1uZh6ZlMInvsnSmqr1sH5r +NG1iSgqHXbp2qEnUw7VqHfnFWSnkmrPY7DJZB03PG7WJBSlM7R+YyYmpAw7e +Sm8vDhqy0kz5Ax7WwvkzuT3cm2i4wG3en2FaA7GmwfG7jGkY4Sg9tje9EgL2 +qY/UmNCwQ8SqfDaiElz3/GRomtLQOcIpp9SzEvS3+X/ce5CGlIZJma1uJfCs +80FDKxqab176GfCtAqK63H/YOtHwAO34n2KrCog0sXY6F0JDpnXLyXa5cgg1 +Ymh2ltBw14uskrCFO/Dp1tfUnaU0tBGsiWD13QEr3rLpbBYNp/ZL035W3wGl +dpkcr7s0/NOYdeFl8B0Y0xPgWF9Nw8k3YherOe6AGc62HWyhYWhHh+pawTIg +GPnm/a9oOFLTpZRvVAptMhs8Rrjp+Jpup5b3v1tQZuir5M5Dx5mgVM4Lw7cg +06vv59wqOva4scTD227BicrsmKXVdCx13DXdkHwL+PXkCkQ30tGjaq+ax+Zb +YO+s/d5Uio6/tHQaXCyL4NsNP8v6XXTsLHLiDW4vhLdt/ZLaDDq+0P770OlO +ITya1BhrV6ej5NYVVc4ZhZCpzOHXp0VHYamimRK3Qtjbkpgyr03HJqldk/v5 +CiF+uLBT1oyOBuefXnl2sABI+oB2misdR27VnXSez4O4EsYaDnc6Sk9teh7+ +Ng/mdmW89PKg4ymriLySx3nQsN/KTd+Ljlv6Sm21buSBdcjLxN8+dFxjmXWX +8U8eJPU9e3UsnI6sq1fPptTfgMWEJycV0+lYFv+m3e1KLjiKbmVkXaYj30ZL +VnVULjzOi+PgyaDjPfk0JxG/XLhcZ5D2Pov9v76bfLwHc0Fpoq029TodK1dv +/VS+OhdcdR5w/S6h49Hgug4Gz3Xo/VWf1dZCR2akZlb7XyY4VS3uVGilY432 +0fs8I0yY99HsSXlIR6JLScv5ARPWTtdx2rfT0WzwzYBfNBP0h2o9v3bRUWxo +l/KXtUyob6neQx9g55ctn2NIZkNufPlI0BwdaQE2+T1Hs2C7wdfQd5/pONF9 +hLykmwWNXCoiel/Y+fRW7XCVy4LBsP+MNyzQsc7UscjtayYInb5bUfibjnGB +P0oKYzPh4dZXOh6cBE72eLj/rzoDGOv7hK6sI1Aw9pp4qNwVaOgx3GS9nsAu +lT1frdZfAZ3kBinxDQQevT+wZLZwGfbzF8he4yeQf424XlrzZXAS8FO/KUig +2jKr28P2MiSKbLSv3kQguG3LUE9Lhw800/z+zQRyjhnFlImlgfv75qJMWQK3 +WZ7gHV6RBrPXVUtttxBYUNibLz+dCr8Iyap3cgQ6Sru1r25KhXXS04/GFQh8 +H/uPwsLxVFDfcnHqhzKBFa9NPlnV/AtJO9qURfcSmD+QGnvvZAq8kGYwutiW +aKEm1OxSQESseHckEChdY1bYZpgC1zguGUwjgdWTN39IyqRA2fNDR+7rEjjf +ac3hVJMMPX5jcW5GBJpKjQ80MZNgQy3XcM0hArMvJYs2nE+EQ6X+H70sCaQ6 +vucbOCVCZu7EFGlFYIpcH+u7diIQFzu/JxwmUN1zd23tikRQsk1b42BLoLhG +OPHqfAIcXKIYvA4EKh5UtrBJiIcU1Emy9iSQeaGNmVkZBwKivJ2SXgROLTLt ++y7HQfps96oRtuvi/m5UC4yDrKs2kR6nCByrnXjkpBkHeQveZ0J8CBwQLdVx +eRALFbeu2zIDCVzJm7NzbiAG+vmXZYcvEFjlveOdID0arCceOBdEETjrf6My +jjsaBhvjct2jCVQyy1glNRUF704IiX+JIdCuZjg7vyoKJh4qrOOMJ/DIcYUX +MmZR8CvI9pt0CoHlSQVBg1EXQGKk5r4bk0BZuegHSrznwX46dJmWQ6D9RHTY +wNdIYH4HrX62NzTTt2cORQJt9eNqvesEBq5pFz5WEQnUzgEWmUfggxjChNch +EuSif2W/KSLw0J7PqhWN50Btq0bQgQoCbwscXU4UjIDAnctVPJUEuortljs7 +dxZq97R8a2R7WWelV9aTs6BpYXRasZpAbr4dSabnzsKeUBtXvjoC98rYnyn6 +HA563cGHWpsI1J4J5l7qCwNzn3olRgeBfZ28HJzNISCbPtc/xbYDX2ZBVG4I +LFZT4dc62fvwJLlBPjIECpbin6zsJvBJfV75sE4I/Ii1c3r5lMAPApvKP7cH +A/PaUppPH4E+l2a1QwaCYLxz78/bwwT+jjeLMBYIhHtzvjnHRghsO1Rn8ONH +AKRsLNIV/MDeL/NYsuVNAGgc3pASMkog3y6P6IrCAEj88F7OaJxAF1Z38Cqt +AFD+fc52fJo9HxIf+w54+kOYbGsj8ZPA4w3rkmJG/CBZwSR7lG3Zeu3Y/nY/ +yFPqDbr5i92P2gl//TI/aNcc3am4SKAYGmRHh/qBwAGuEsYygWV6ERzhon5Q +HKh7xYyLxG+nvhspWfpC/+PWU2EbSGSdnHH6b9wbJrtN9gM/iX+CSoPqn3nD +0overZwbSTy7fpl4X+8N5NDoWKwAiVfl026GJHuD1xcuuzRhEo8eEV78oeEN +XOJ6BiUSJH76mXD3+ZbToOT5kD6whcTD0+sUyqu8gLPA+M8lORI9/eWsy1K9 +oPfts7e6W0nsVtg51nvaCwLMhrLuyJOYpRJ17Kq8FzQo/xCM3UZiR6TH4IY8 +TzD8tYVXbSeJ8r8N1PwzT4BDdMJ82l4So8YVbny/4Q4qTRufGgGJIdnmjPYL +7sD1M4P1l+2W9ps1DS7ucNO94ISnNolEx2SvgLw7zJg0junokVjZ57nBrdIN +ggQ+D3wxIvE2j2NL4lNXSL5u0XLAksRWTeZSE80FrtUrvhKyIvEYj8mjK5wu +UNbHM/ua7VDNIfG08ePQs+ae2HFrEiemqDu/yo7D2iBp7yA7EvveTmT6ah+H +iwcXaDccSeyn/9u86OUMF1ZcCft6kkS7nCJl5SFHSJX0Tq05ReKYhv82/TZH +yGMY3wo7TeKuQQn3EJYjPDj5p5fHh8SSZollOOsIHIOuChJnSPQpXeuqRTpC +eDljUDeERI6HC0+eezlAoPNrxuUYEmfoE9rfVY6CeIZ0tVUsiSPf+WPF1xyF +po6TqmJxJD4XsNbwGz0C3CqcytkXSaw+dORjY/oRSOVQkL+RSKJC0Tmv/37b +Q1lOmCQrlcSLfRkVg112MP6KvqLtGokFjLSelCs2EL/mRETMdRLjrvnKsc7Y +wDaoXDbIZfdfNxH83cIGztw0XOy4QWLA08+yfPw2wOnv8+1ZAYnO7YfuqCVa +g5RA68e3JSR6PXIIC008DIf2u3YsVJMYGbBplfZtS6iuKDMqriFRcePGdcdT +LEFM4ufjI7Ukvnja1lzkbwlvJ2PbH9WReL1JOSMFLcEltvhhZgOJozaiL0Zf +HYKABzNNux+w57fFjnl67SHIVPeriOomMXnS5bNUogUsXr+notFDokFFs+gG +fwuwX8VdPss2bwvLU/KoBRD96XetnpF4/rsnf4KSBRT7VbPkeklca83Fquw3 +h/qy30VdA+z5PDxYLClnDm9lzjGFxkjk6Wc9b2s4AGGnJP8ZYDv5c5X16L8H +QLK2lo/5kcSD/w191HA7AEdMvgRIT5CY1yI8nSJwAN75OJmrTJHse2Yp952n +GQw36fEcnCfxb+vYSJ2cKYxZ83knLJFYNOT6K/6JMUTlFcoeWCaRuU6zDguN +QWZGe0jgD4mq+2BGNtIYXCJCjK/+JfGLsHnpBQ1jGC+clinmpDDZdbkxsNQI +Pn3tfv2Il8KTD5/6CmUbwmxiqi6nMIWcEuJ857P0Yf/qbf+rZbvCxbL/dZg+ +lMS2l58WofC+UWq4pYM+uJ9fIodEKfzpnFRSs0UfxgJdOWrFKXwsatVI1e6D +t06ajScJCtsDRI6feq8Hneof1F4rUGhptX6wXl8X5KvD5pIV2fUUWczd23Uh +bqfoTf1tFJZUqkgOCeuC/vb9wpXbKaycaaoP/qgDD6SrvyUpU2hx78ARqRgd +qF8ff1ePQeGQfdzKuS5tKB5Tlr+rQ2G4yB7ZhtMIzJDdxs66FM4sNaWo2yEk +8RucENGj8E2npEmPPsKZ3fYlYfsojFB5prqPhoDpMfJGhhRuY7kL3mMC9Ou+ +kf9gSuELn5ldu133Amd+lIKQDYVPez4vbZXcDd/Vk03a2f6W6Llt5W8t+NST +5RliS2HezOCrNf1a0L1YdnvYjsKiPJn2qylakGnxWoF1lEKr9hWWdau0YDvn +dkX94xT21Alu7lrWAFvHV4pBpykceL+XObNKHRJe74rS9KZwuCbG13CCAQ3m +6W+W2N7rJaj87BEDaDrm8ZG+FOopxZx1imHACNU5Ee9PYT/FxZ+4igHuY015 +OaEUGnXTils2qkGg202x1lgKDWUFdDT1VOHWe27v6DgKDUy2fCySU4WBw87t +BhfZeVqmV2muUwVNQyKgK57CrruTYk/7d8Ifuau9fZcoLOa4k8Ly3AkxU5eS +PqVR+KCSz1SUqQLpJ/251+dSaP868LGtiDJEbXph38r2kA8tMZdDGfzatlcF +3aDQa36wesW0ElhIfXIZzaPwv5vqdcLNSsDfbdteW8juP5i/+ZynElxSxHjn +2xTuiba7kZC0A2KmV/PXVVOoqVj9+bD0NgjIcHM/VUPhTolZIfijCC66D5ul +a9l58WuJW75WBL3scJ+kOgpjDii+WZuiCFwm8y+cGyj8yhs6XPBXAc6V9F1e +/4DCXt4qpX0T8hDskStxvJvCzFje/x71y4FV+uaE7T0U5guUFPpUyIHq/ZLF +X2zfd3a4YJYiB/NCVa8vPaOQy+HoKNNYDlybn2TU9LLrGbTdjmrZAodEvwmu +GaSQ4W6nu69WFra37VtbPk6h73yU9cN2GVg73xEaNkHhtfBcXcUSGZgUPzit +/4nCi97jG5oSZaDA27bjzSSFylrBjkctZEBC8nTcylkK4zIE/014Lw28fpnc +Nt8o3J7K5+G6QhrGc6TOSC9QKGF4/l/zcQpaH+eNzrId5SYo7NxJwVka68H5 +HxQ2HA61+nWZgu9PWs6V/qYwoz/8y0dFCl4s6M8HLFIo/ekR/Y8ABXfpXce0 +/0ehems2p9ZvErz8+/f2L1E43bZSjHpEgnGuXVnuMrt+sN1YZykJWzqHpTz/ +UBi0vzEzK40E7h8ul3b9pdBh4h5nQggJH4jppb9sV/dum7/uSML/AV0ZIFE= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{5, 9.5}, {0., 0.9557848702249098}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{5, 9.5}, {0., 0.9557848702249098}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0le3XB3Ah0ShzhnPu+yYJFZJjqPY2ZIziiUyVIVNUhswkZQrhQSFH +yZDIUY+ZEEnK1CCSUkRkTKXJj3rP+9e1Pn/tfa3v3mtt0um0hQsnBwfH5hUc +HP//ajVt5eHgEEIt4QXZjstzMDBS9dxjhRCqNWsVTKTPQcBKnZxeTiG8JfMi +k5vt8v22qkUrhVCSp358d+ocyL2JdzJbI4Qn14uuK0qaA5Ff001MESG0SMhG +x9g5+KJcFqixTQgni60Iz6A5KCpUmfS1FUKhwvW7W63nYHOpYkBkgxDOXcyX +jlgzB7//xfP8YsI4dn96k3PNLNS0ODzq9RHG9ys2Kklbz0Isv2+lSq8wBvht +qc8YngHW3hxSYLsISl9Jp306NgMfE+rUL6WIYKPLDtMr96dhlfSH2N1fRDAg +1ubd0OppiMiSsfIyEcUlcf2hdJMp4Nth3cNgieLPNYkdVxwnYTK/sO0CrxiW +cK21n/L6BBVOfxe4nMTQTPLr1yfOE5CMxj30VjF8L246+2bLOLQsl8k2SG3C +a15Z2aETY7BykHvrQsQm3PfseTPTdxR2crg5OwxvwrzcWsptbgRqVo5KmmqK +Y9FdWylF/2EwlT94ri9bHJt7E1Tj84dAY/srp3c/xLE0caHuXdIgMMwPfD5v +I4GFezwVz+q8AnpTb4VdvQSeSoThPOIlHFnt+7NSSBKdvl7fOG77HFj+Kz4W +B0jilvLiOSbRDf80l5jTX0ii72XjoknnxzB6yOHHYwUpPFIzb2C++yFE867a +t/6SFHK+zN8guL8ZwrPbBV5OSKFONeF+0LQe9J1uZh6ZlMInvsnSmqr1sH5r +NG1iSgqHXbp2qEnUw7VqHfnFWSnkmrPY7DJZB03PG7WJBSlM7R+YyYmpAw7e +Sm8vDhqy0kz5Ax7WwvkzuT3cm2i4wG3en2FaA7GmwfG7jGkY4Sg9tje9EgL2 +qY/UmNCwQ8SqfDaiElz3/GRomtLQOcIpp9SzEvS3+X/ce5CGlIZJma1uJfCs +80FDKxqab176GfCtAqK63H/YOtHwAO34n2KrCog0sXY6F0JDpnXLyXa5cgg1 +Ymh2ltBw14uskrCFO/Dp1tfUnaU0tBGsiWD13QEr3rLpbBYNp/ZL035W3wGl +dpkcr7s0/NOYdeFl8B0Y0xPgWF9Nw8k3YherOe6AGc62HWyhYWhHh+pawTIg +GPnm/a9oOFLTpZRvVAptMhs8Rrjp+Jpup5b3v1tQZuir5M5Dx5mgVM4Lw7cg +06vv59wqOva4scTD227BicrsmKXVdCx13DXdkHwL+PXkCkQ30tGjaq+ax+Zb +YO+s/d5Uio6/tHQaXCyL4NsNP8v6XXTsLHLiDW4vhLdt/ZLaDDq+0P770OlO +ITya1BhrV6ej5NYVVc4ZhZCpzOHXp0VHYamimRK3Qtjbkpgyr03HJqldk/v5 +CiF+uLBT1oyOBuefXnl2sABI+oB2misdR27VnXSez4O4EsYaDnc6Sk9teh7+ +Ng/mdmW89PKg4ymriLySx3nQsN/KTd+Ljlv6Sm21buSBdcjLxN8+dFxjmXWX +8U8eJPU9e3UsnI6sq1fPptTfgMWEJycV0+lYFv+m3e1KLjiKbmVkXaYj30ZL +VnVULjzOi+PgyaDjPfk0JxG/XLhcZ5D2Pov9v76bfLwHc0Fpoq029TodK1dv +/VS+OhdcdR5w/S6h49Hgug4Gz3Xo/VWf1dZCR2akZlb7XyY4VS3uVGilY432 +0fs8I0yY99HsSXlIR6JLScv5ARPWTtdx2rfT0WzwzYBfNBP0h2o9v3bRUWxo +l/KXtUyob6neQx9g55ctn2NIZkNufPlI0BwdaQE2+T1Hs2C7wdfQd5/pONF9 +hLykmwWNXCoiel/Y+fRW7XCVy4LBsP+MNyzQsc7UscjtayYInb5bUfibjnGB +P0oKYzPh4dZXOh6cBE72eLj/rzoDGOv7hK6sI1Aw9pp4qNwVaOgx3GS9nsAu +lT1frdZfAZ3kBinxDQQevT+wZLZwGfbzF8he4yeQf424XlrzZXAS8FO/KUig +2jKr28P2MiSKbLSv3kQguG3LUE9Lhw800/z+zQRyjhnFlImlgfv75qJMWQK3 +WZ7gHV6RBrPXVUtttxBYUNibLz+dCr8Iyap3cgQ6Sru1r25KhXXS04/GFQh8 +H/uPwsLxVFDfcnHqhzKBFa9NPlnV/AtJO9qURfcSmD+QGnvvZAq8kGYwutiW +aKEm1OxSQESseHckEChdY1bYZpgC1zguGUwjgdWTN39IyqRA2fNDR+7rEjjf +ac3hVJMMPX5jcW5GBJpKjQ80MZNgQy3XcM0hArMvJYs2nE+EQ6X+H70sCaQ6 +vucbOCVCZu7EFGlFYIpcH+u7diIQFzu/JxwmUN1zd23tikRQsk1b42BLoLhG +OPHqfAIcXKIYvA4EKh5UtrBJiIcU1Emy9iSQeaGNmVkZBwKivJ2SXgROLTLt ++y7HQfps96oRtuvi/m5UC4yDrKs2kR6nCByrnXjkpBkHeQveZ0J8CBwQLdVx +eRALFbeu2zIDCVzJm7NzbiAG+vmXZYcvEFjlveOdID0arCceOBdEETjrf6My +jjsaBhvjct2jCVQyy1glNRUF704IiX+JIdCuZjg7vyoKJh4qrOOMJ/DIcYUX +MmZR8CvI9pt0CoHlSQVBg1EXQGKk5r4bk0BZuegHSrznwX46dJmWQ6D9RHTY +wNdIYH4HrX62NzTTt2cORQJt9eNqvesEBq5pFz5WEQnUzgEWmUfggxjChNch +EuSif2W/KSLw0J7PqhWN50Btq0bQgQoCbwscXU4UjIDAnctVPJUEuortljs7 +dxZq97R8a2R7WWelV9aTs6BpYXRasZpAbr4dSabnzsKeUBtXvjoC98rYnyn6 +HA563cGHWpsI1J4J5l7qCwNzn3olRgeBfZ28HJzNISCbPtc/xbYDX2ZBVG4I +LFZT4dc62fvwJLlBPjIECpbin6zsJvBJfV75sE4I/Ii1c3r5lMAPApvKP7cH +A/PaUppPH4E+l2a1QwaCYLxz78/bwwT+jjeLMBYIhHtzvjnHRghsO1Rn8ONH +AKRsLNIV/MDeL/NYsuVNAGgc3pASMkog3y6P6IrCAEj88F7OaJxAF1Z38Cqt +AFD+fc52fJo9HxIf+w54+kOYbGsj8ZPA4w3rkmJG/CBZwSR7lG3Zeu3Y/nY/ +yFPqDbr5i92P2gl//TI/aNcc3am4SKAYGmRHh/qBwAGuEsYygWV6ERzhon5Q +HKh7xYyLxG+nvhspWfpC/+PWU2EbSGSdnHH6b9wbJrtN9gM/iX+CSoPqn3nD +0overZwbSTy7fpl4X+8N5NDoWKwAiVfl026GJHuD1xcuuzRhEo8eEV78oeEN +XOJ6BiUSJH76mXD3+ZbToOT5kD6whcTD0+sUyqu8gLPA+M8lORI9/eWsy1K9 +oPfts7e6W0nsVtg51nvaCwLMhrLuyJOYpRJ17Kq8FzQo/xCM3UZiR6TH4IY8 +TzD8tYVXbSeJ8r8N1PwzT4BDdMJ82l4So8YVbny/4Q4qTRufGgGJIdnmjPYL +7sD1M4P1l+2W9ps1DS7ucNO94ISnNolEx2SvgLw7zJg0junokVjZ57nBrdIN +ggQ+D3wxIvE2j2NL4lNXSL5u0XLAksRWTeZSE80FrtUrvhKyIvEYj8mjK5wu +UNbHM/ua7VDNIfG08ePQs+ae2HFrEiemqDu/yo7D2iBp7yA7EvveTmT6ah+H +iwcXaDccSeyn/9u86OUMF1ZcCft6kkS7nCJl5SFHSJX0Tq05ReKYhv82/TZH +yGMY3wo7TeKuQQn3EJYjPDj5p5fHh8SSZollOOsIHIOuChJnSPQpXeuqRTpC +eDljUDeERI6HC0+eezlAoPNrxuUYEmfoE9rfVY6CeIZ0tVUsiSPf+WPF1xyF +po6TqmJxJD4XsNbwGz0C3CqcytkXSaw+dORjY/oRSOVQkL+RSKJC0Tmv/37b +Q1lOmCQrlcSLfRkVg112MP6KvqLtGokFjLSelCs2EL/mRETMdRLjrvnKsc7Y +wDaoXDbIZfdfNxH83cIGztw0XOy4QWLA08+yfPw2wOnv8+1ZAYnO7YfuqCVa +g5RA68e3JSR6PXIIC008DIf2u3YsVJMYGbBplfZtS6iuKDMqriFRcePGdcdT +LEFM4ufjI7Ukvnja1lzkbwlvJ2PbH9WReL1JOSMFLcEltvhhZgOJozaiL0Zf +HYKABzNNux+w57fFjnl67SHIVPeriOomMXnS5bNUogUsXr+notFDokFFs+gG +fwuwX8VdPss2bwvLU/KoBRD96XetnpF4/rsnf4KSBRT7VbPkeklca83Fquw3 +h/qy30VdA+z5PDxYLClnDm9lzjGFxkjk6Wc9b2s4AGGnJP8ZYDv5c5X16L8H +QLK2lo/5kcSD/w191HA7AEdMvgRIT5CY1yI8nSJwAN75OJmrTJHse2Yp952n +GQw36fEcnCfxb+vYSJ2cKYxZ83knLJFYNOT6K/6JMUTlFcoeWCaRuU6zDguN +QWZGe0jgD4mq+2BGNtIYXCJCjK/+JfGLsHnpBQ1jGC+clinmpDDZdbkxsNQI +Pn3tfv2Il8KTD5/6CmUbwmxiqi6nMIWcEuJ857P0Yf/qbf+rZbvCxbL/dZg+ +lMS2l58WofC+UWq4pYM+uJ9fIodEKfzpnFRSs0UfxgJdOWrFKXwsatVI1e6D +t06ajScJCtsDRI6feq8Hneof1F4rUGhptX6wXl8X5KvD5pIV2fUUWczd23Uh +bqfoTf1tFJZUqkgOCeuC/vb9wpXbKaycaaoP/qgDD6SrvyUpU2hx78ARqRgd +qF8ff1ePQeGQfdzKuS5tKB5Tlr+rQ2G4yB7ZhtMIzJDdxs66FM4sNaWo2yEk +8RucENGj8E2npEmPPsKZ3fYlYfsojFB5prqPhoDpMfJGhhRuY7kL3mMC9Ou+ +kf9gSuELn5ldu133Amd+lIKQDYVPez4vbZXcDd/Vk03a2f6W6Llt5W8t+NST +5RliS2HezOCrNf1a0L1YdnvYjsKiPJn2qylakGnxWoF1lEKr9hWWdau0YDvn +dkX94xT21Alu7lrWAFvHV4pBpykceL+XObNKHRJe74rS9KZwuCbG13CCAQ3m +6W+W2N7rJaj87BEDaDrm8ZG+FOopxZx1imHACNU5Ee9PYT/FxZ+4igHuY015 +OaEUGnXTils2qkGg202x1lgKDWUFdDT1VOHWe27v6DgKDUy2fCySU4WBw87t +BhfZeVqmV2muUwVNQyKgK57CrruTYk/7d8Ifuau9fZcoLOa4k8Ly3AkxU5eS +PqVR+KCSz1SUqQLpJ/251+dSaP868LGtiDJEbXph38r2kA8tMZdDGfzatlcF +3aDQa36wesW0ElhIfXIZzaPwv5vqdcLNSsDfbdteW8juP5i/+ZynElxSxHjn +2xTuiba7kZC0A2KmV/PXVVOoqVj9+bD0NgjIcHM/VUPhTolZIfijCC66D5ul +a9l58WuJW75WBL3scJ+kOgpjDii+WZuiCFwm8y+cGyj8yhs6XPBXAc6V9F1e +/4DCXt4qpX0T8hDskStxvJvCzFje/x71y4FV+uaE7T0U5guUFPpUyIHq/ZLF +X2zfd3a4YJYiB/NCVa8vPaOQy+HoKNNYDlybn2TU9LLrGbTdjmrZAodEvwmu +GaSQ4W6nu69WFra37VtbPk6h73yU9cN2GVg73xEaNkHhtfBcXcUSGZgUPzit +/4nCi97jG5oSZaDA27bjzSSFylrBjkctZEBC8nTcylkK4zIE/014Lw28fpnc +Nt8o3J7K5+G6QhrGc6TOSC9QKGF4/l/zcQpaH+eNzrId5SYo7NxJwVka68H5 +HxQ2HA61+nWZgu9PWs6V/qYwoz/8y0dFCl4s6M8HLFIo/ekR/Y8ABXfpXce0 +/0ehems2p9ZvErz8+/f2L1E43bZSjHpEgnGuXVnuMrt+sN1YZykJWzqHpTz/ +UBi0vzEzK40E7h8ul3b9pdBh4h5nQggJH4jppb9sV/dum7/uSML/AV0ZIFE= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{5, 9.5}, {0., 0.9557848702249098}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{5.000000000000011, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{5, 9.5}, {0., 0.9557848702249098}}, + 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.992081591372444*^9, + 3.9920816097054825`*^9}}, + CellLabel-> + "Out[222]=",ExpressionUUID->"c9e615cc-2b0f-0f47-bf4d-5b873dc92ac4"] +}, 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", ",", "5", ",", "9.5", ",", "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", ",", "5", ",", "9.5", ",", "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.992081641318594*^9, 3.992081644316622*^9}}, + CellLabel-> + "In[223]:=",ExpressionUUID->"821ca014-9c3d-214a-9c1a-0b2310271344"], + +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[{\\\"yy\\\", \\\",\\\", \\\"bb0\\\"}], \ +\\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"2.`\\\", \\\",\\\", \ +\\\"1.`\\\"}], \\\"}\\\"}]\\).\"", 2, 223, 25, 24488269323719620004, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9919643917585564`*^9, 3.991965364224392*^9, + 3.9920816476914005`*^9}, + CellLabel-> + "During evaluation of \ +In[223]:=",ExpressionUUID->"48d96df7-49e8-0c48-911b-f839db83e148"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "\[Rule]", "1.2284527453565024`"}], ",", + RowBox[{"bb0", "\[Rule]", "1.1485052117970964`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991964391814556*^9, 3.9919653643031864`*^9, + 3.9920816477605286`*^9}, + CellLabel-> + "Out[223]=",ExpressionUUID->"9f9705b9-7374-c140-8a65-ae3e58c720aa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "1.318"}]], "Input", + CellChangeTimes->{{3.9919643977866764`*^9, 3.991964402237297*^9}, { + 3.991965369034729*^9, 3.9919653692465267`*^9}, 3.992081654149027*^9, { + 3.992081689848606*^9, 3.9920817522315235`*^9}, {3.992081787640314*^9, + 3.9920817896300335`*^9}}, + CellLabel-> + "In[250]:=",ExpressionUUID->"4524f895-5d5e-a74f-a717-0cd15a841249"], + +Cell[BoxData["1.318`"], "Output", + CellChangeTimes->{ + 3.9919644079976406`*^9, 3.9919653747711143`*^9, 3.9920816629452457`*^9, { + 3.9920816943048725`*^9, 3.992081756737686*^9}, 3.99208179503796*^9}, + CellLabel-> + "Out[250]=",ExpressionUUID->"8992064b-8f12-4e46-bb5c-4e8736b54369"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"bb0", "=", "0.948"}]], "Input", + CellChangeTimes->{{3.9919644056263065`*^9, 3.991964406063389*^9}, { + 3.9919653725905457`*^9, 3.991965372909004*^9}, {3.9920816583697777`*^9, + 3.9920816877592697`*^9}}, + CellLabel-> + "In[251]:=",ExpressionUUID->"17f8190f-852b-fa46-bdc8-1bb243b31de3"], + +Cell[BoxData["0.948`"], "Output", + CellChangeTimes->{ + 3.9919644088621464`*^9, 3.991965373888151*^9, 3.9920816629897366`*^9, { + 3.992081694344692*^9, 3.9920817567682705`*^9}, 3.9920817950681324`*^9}, + CellLabel-> + "Out[251]=",ExpressionUUID->"a378673a-d3f4-7a4a-ba38-40ab6560dd6b"] +}, 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", ",", "4", ",", "13"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917169296319904`*^9, {3.9919653858356647`*^9, 3.991965385973503*^9}, + 3.992081672384392*^9}, + CellLabel-> + "In[252]:=",ExpressionUUID->"86a6c2bf-ff39-cc4d-a1c0-fb8141afbdb9"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVl3k8VO8XxyUVKmSG7IYxZoY2ZM89J1kKabELpSgVKaGURJaQLCWpKLKk +LJElS7KXKCFLIdkpEWZSyle/+f1z7+u8nuee+7ye1znn/fnIHfbc78rNxcW1 +i/P4/9vX32INF5cQkk1HytZMzYCZqWv7aJEQGj4QWHB+MQs7be2+c/utw5Tv +/lI9T+fgBzWIR26LMK5x1X/DF8WC48E1UY+GhfFanWkIE9jAJzfi5ppJwoY7 +RW7ehWywvKSzQ8GBjH3DsOvUczbUrz97RkJOBDuvbbWQUmXDKqN6Qb8hEezQ +hjV6Miz4qbor52OCKBZ6j8YJZc0Cn1N+kqf9ejSsqnz5/fAPaDQ2vbZqnRjS +SmLHiN2TYN+w9HVVvRjK5q7ZVb5lHISD4pMgTBzDbj5qXxgeAu+/jrvP60qg +u7FO0tez/bBYyLd/4p8EPmzPMKkJ7wYbrpZX1dWSOH9e37ZwsA0cV7/Svust +hY/sXRciNZohwjKFK1tTGtsKE6zOT9TBIYe8hhdT0siYemTcaVcJDg/v968o +lMH5MrcbpzuLYIP/o2PPvWVxSeXHtYdeuWDJ7/WriEzBJ5JoOySXAek+y0Yf ++1LQf2bLSxPjZDCpfrJPtp2C4Q3jCYGP46HH8tB8o7Icdi1OetbrXAd/3lWG +Atfl0O6TXvD1/4LB+95r4Y5xOQy4nrWnhXURAnb7RaqbyGPjVYFzLhNe4LVL +U6f5iTw2nVIyCHt2HF4oCB4f5KEi18Bqp+BhZxCT/bj95lEq8kzfrLCUtoWm +3+V3GmqouD7E4uL3x3vhqNQT5gZJBZQ8bCZQvMEYyAcjj2zyV8BolmP9tCaA +WFCIVEGXAi5XqCg0uKkOm2o9L7/XomFNc8Xvn8Mb4O6Qt/OpeBpOJJqXBPVQ +YcYs7OL2aRqeeP9npeIFSbDtCof8PYqotsN+wc1dGEQh48qDJ4rYkxi0r9KR +D8ZePfNUWkvHW+47DNsnuSAl8W38Vw86qle/KOx/MU/k7+LSZjZyYv3ZldsP +/SDaxWlXeZQYuC/hv2Un/4wQJm+OWB4KZaCn95WztPd9RE5tnt1MPwMllnzv +EVMfCErvN14pZGJ1zNv0hpIm4ls7ajbeZeIfXr6StS61RMP2roV//5gYbHQy +MpEoJQaPOPzwshdCtffj9wL3zYIU4fE7rmMd/ktQGntCYUGORerOkQhh3CF8 +5Sj1Owu029svrDQkodKt8KKmUDZs2iPYZbCMjF+qfiQ+rWNDVJO1/YOXZNzq +GPzxylU2jOXdq34TJIJla35Rn5axIODFyv6sbaKY+i9iY4/nHFxu9FdI/y2K +WiOnvKdKZqC0u3BPfrIErjhV7Zj+qQeUek5GWR6SxAdo87EvtgN6VpgE5kpI +YROl2qF4+3tgbVZLlu+SQs81+9v27n8N3rb04cIb0jgalP5os0wNOF1W3O+8 +VwbbW0eL39eVgoEgNa2fJIvUn9MW5IgCONFomC30XhYzwpbutv/KgsUq7VNP +DSl4VLHGOuNuKvySsL7nkk7BCH1dn5ikRLgRuUKBvURBi1OryscOx0F2XmHy +SQc51M7Tt9u7ORx+7xtXPlMuh8tzJ6j3SgPBzzulhUdcHlUvVJe6//OF86a2 +hwMvyOP1Hzv2xG/yhPWaafu6uuUx7mum09AZV/iWetaqXJ2Kpmd67KYOOcLs +tTceG+KpuFHE8evlNZaQGPls8Pw0FUUaLEycm02hUu+uUa6pAradMNIIXbED +RE+vqvZ8rICHTBqdz7K1IU3uz+7qVTS8Q/guVj1SAZf9XjP3j9Kwn3bH4ASL +Dg23L03b1NAw1Z6eQA2hQHrc1c+/ZRQxM3SzqmSgKDznXz9Iv6SINgodSTU3 +BGCJe8PCSK8iPv50fs3Ecx6oewrckXp07KsbbL9R+ZdgnBk7ynePjvdyB5PE +hueImgLhAdEFOt4u3FvFevSViD5T7/HMhoGmluZ6aocHib+GfDaMZwxc93US +Gn52E2MtZiphgkxca7d9ZcTeVmJFtwjFy4OJ7b5x87uVXhG2kdfEXN4x8cZM +zbE3fZXEhpnuS9obhdAi88Sco8wsqJoe8WrKXIen0s96Fk7MQYtuXCa3ozDO +JWfUnK9kQZtS03IbMgkd3tir7XZlg1Spn2znBxLOJQX0zL9kw0xaY4vzdTK6 +vGS3rU9ng9WRVeJe+0TQe3Jrn/MfFugHjc7HCorie+rHspNNc1D+32G3l685 +9fz31Dln1VlI+BpuHu8ugen6/Ge6kvuA9FrHU2aLJF7sOrYle3kXiC2Poj6f +ksTYQffvBWWtkJXsf9IpQwqHEl6bBG99AwFdw2c2u0qjsfWuwaxztfDF49tq +QVkZ1NpKl4/9XQ6tHwfQa1gGi04RR5NlCsH0oS/fSKosmsWXRG6WzQbGaKeq +6kYKLjt3ZKLRJA3MG5Xx6nUKzmpaqDM+3YVTtI/lERMU7OhTqm1g34DaZfwm +EgZySLsxfvnw7UjQ2XiutCpNDjMf2fX37rwC86uKTrtzyWOQkv+WfQf84OJb +t3n7w/JYUNQfV6J8BgxwqmFvjTxq6r7Qn/I7BhZHtn/ZLU3F3tilY2s0DkFI +Z2v3wUtUtNb4KC37nxUU1JToyX6kogavAKvM0xyEN8qXuqspoMPl37Zr/hnA +rfHGde9vKOA/D0u6wblt4LQPirV+KOCs8KjQxRA12MU/q/l8Dw3blRJ8lM2V +YIveAn34CQ1vK6/zfSEpDyY/wjYkr1RE8ZcVl459FoPwmT1C7kcV8cbOWmn1 +RiHgT53Q069TxPetT9c3f18JlroLWvY0OjoKpkF/2hIxEvLpkl8IHalnU3oZ +ZWyi9FLEmpQBOm6Q5qm0OPidyG/wvtCLDPwqnW1bKjZMPLxaYlV/j1O/qe9O +jRr2EG8aLxnq/mJgxT1/13er2glhu0Dya2smNh7+KXHUqpFI3TRGFy1i4s8h +2+2bblQTkScLvjWUCOO2jl0GEevZkOrXO1vsQ8K2kcydvCls2D6WHlW0iYwG +V/6SjGrYwJgdGe37QcbzBc5+Ec5s8P2z2U3umQi23VMT0TjNgiRe3s9pxlJ4 +rcDRN2/jOyBqv7aMrZTGO9MCU2XRDXCi54SlVrU0/pwTs5ouroLPsYcTC4Nk +cN92AxN2aQmUGrquMDWQRRlth5vZwvkQMU3erbcoiztWVSunL2RC693kxxuc +KFjVfVcqVCAFUjwC57dXUJCqbuLTfj0BSn6oXncSkcPzzwa5godiIP6A4+wL +bznMaBm5H/dfKJT42jyQb5PDsSuPvZ/fDIDFgagNySrymLX24tmaHm/waTJu +ybghjxFCXRtk9rjDt412nw9My6Pz8c4LFglHIGggo1nRnIoGpWcttO7bg5N+ +7fKFJ1QcQqiyN94Ply3yQtt5FPCsAWubk/MucDMX7pw6ooDODTVgorsdbv82 +PCVUrYCKoQe5xJ5owsRs0ZgxhYYt52K/5c9shst3WVlhl2goVb/LwLuFBvZz +y4rfdtNwdDFbMYEiA0tq4dGWmpx56Koygg5kGFPoLxi+qYjjocIBGp9Ww5yL +Z9FVNmd+Tl9J3VfGDaoKYc1lVnS0iBit9ZJeINwdWXvuFNDx6fNU0QyNWaJp +9F7h9XUMTPDw/09cbZxwlyY7R5xiYMzB5NS/GV8ISx4H26hGBhZu2KBb9amT +WN4pKd1GZ6K6nU2aZNg74rdltrJ0CBM1Pn5QytpSTwiMbeF7NsbESxtn5gwm +yol9JSINSaJCKOj2Tvv8ilmo3Of0dCxmHY5NHM058HYO+jdHdMYZCaNmx6au +dRkskO423PnvrzAe+N67Y2w/G25832QgXUnCyqTOHt5yNjyMXcZX503G+xGs +tPE8Du/19AyNtEVQYaLV/RCnftOHLZevWBBBJSd/ZdWfc2ArZh1p+lQU+/70 +qCx6zEKoF2v3SksJfGB9siY37DOE6z08tFxMEkMoV4ym6rqgdNnGn7rdksis +2ufXaNoGVyxT9y9GSWHJZuplP5UmCBHR1/Ywl8ZjnYtXyBvrgOL6dsJ1pQz2 +vUm9fI76AhIqqwS3Ncug19UhtfKfhbBNMKZ09zVZdEsNsNLYkQMvf1FvsSgc +nn/f22Gokg4L9xNuiF2hYI/SyGgTXxL0eW0Ps/xMwU+03MJ7TTfBXFk9ZVZT +Dn2OdqRbDV6DXomqpaOJcnj0qJ6+j0wwFLdVbqew5TDSYNtw6oMLsLjmDO60 +lsc1/3LF3/B4Qa+BMJdAiTxm95o4DMe4Aa8BI339Oirq9FYMXV/lDOYXOqIW +zlDR7d2zzGWrbID4XHpy7i0V/cYX67w/7eHo27HTZnQFND536Ay/oBFYpj0u +D7iqgB4vn3MFv9cD3a+DE+whBdyqfuLh7tCtsO1o/oEdBjRcMo+rtI5ThlHB +5/VZD2j4r3vmwb+f8iB9f6Wl5x8abtlw+IQXVQJOH/lOFzigiANFmVMnbq0D +oRmjgZkSRcwr7icOSfOC9DJrS31xOibFFn9qEueCWgGLCBU/OvbK2lXwF/8k +iobrH7p00PG4jbmYXNcUUfPjLddpdQZKFSp6fFs+Qvgy1lrdiGXgxQNX3dYE +9xLlhgnvRSYZqCHuW+jDbifE7xZHnzFlYsDvB2v+BrwhXgXe3Oz5iIlV/gUB +a31qiHsHH4tbpQgj4/6d/4y42TBFs9FwciShi8Kyd+U32VAqYV+wuJ6MDsEa +m1w4+rPnszSF6CZjV1HJ1iIfNuR1uMb/vCOCF2rz/FYlsEB31eM8hooUap4b +L+Xd2gJifgIlIdNS6Ge8QviV+yvwFH8j6ftYGnXVZh/1+VWDTLiBD/9xGZRc +8TvbvOw5BCgZdJA3cOZjsNod6aZ8uHBg42LmqCz2+ibcqGU9gqO5k6un91HQ +qjtIRL81BcwMJnd+eEpB8t+F6dyY26Cgl2TL5JfDa6dNN6lnxgIlNNw43k0O +C07qO8wJXgUblwejbxrkkD3bMu355zKUP0n4by9NHr+OX9ULGvOBef69YjfD +5PFOi/VTsRIPCFQNWC8+LI+GFTrMNwEuoFETFTuznYpS2ptF5+YPAGO8ofTG +AypOTvcavlCwgDWe+YUZC1Q8MGnifizGBISNuq6/s1FA+bQfS68k9MG6SHF9 +dZECChiMhoQ3asGrCBsJHjINI/94jGc1bQGv+Wdvhb1oGL3cjSu0RxGEGqr2 +3XhLwxG//l+j12ShbWhViaKyIj5Qa1myOyYCLbcvvAkNV8Rtl4LO9G1cC78L +31lrTCji9IBANfPZcvjzdWgsdRcdnSpt9JVd/xAm4+4H9mXSMdWkjDGxao54 +Zdq9a/8KTv3QB1IeuE4Ql4zdx6WPMDBzwGxw4tYAwch4ZmNfycBT0xubIwe7 +CPa+rY+yJZk4NKLvkcX3nli6NZDx+jwTe/uDs2/RGwg1rX6h1T1MpL01G8q1 +fUGEBphX5W0g4eGi8csmvmzICK7/E/WNhDuOhaJqLRuI5zHxXJlkNOJ+zPs7 +gQ0yEW3fk4+LYGhs9phCLwus3h3MXRtNwjG99XqpT9jQVPDjmLshGQfy5FXM +Kjl85snJvsgrgqxUxullpmz4djN4mR2LiaVptxujI8sIlztFbuarhbBGdnmf +6sIMcHf2vvMOWYfkFebasi/nYIy5wsNOVxjznILmUxJZsCM3+MSHH8K4O6Da +UWUXG1rCIqxrCkj4TpiVOVfChr8rZTLPupFxy2X1h2cL2ZClZHtgy0YRzJkw ++76Sxoau+Ci+qikR7FvXWf6DjwWZGXskhdNEUa7ssa/WtVlYLMnaXWUsgWYW +gUHVi5+h9rfVp5+rJZH+i67YQOsG3qD/HJeaJXHkaXSLfkIbzDxVM2oOlELF +EIGQxWdNsFJ9VmrNDmlcH/ZEb0VkHVQf0rNZ90caE1av0FCtfAELmzf/olTJ +IONAfM4llyIoMpSM5Q6URZUjD9P8PuUA3zJTow4JCvIzv3TuykoHc/63us7+ +FDy77MvO8cwkuCk+P1nWTUH5/T/vjWnFA7naxPSzihx6Kt2uEI6Kgpx1w6nl +N+Qw75mPYnNUMMSX6Cv9mZJDoZiEj/nGF0Fvo88osVcel98u7NHz8QLF1wrJ +7vny+I2XtSdB9jgcLroXtsjP8V/HYkiq3s5QaGZ9zMidijsoZeLxsTbAM1nG +7fCaiqVd5oP6JnshjrJz9zY5BbzHGrskm2QEW5dJxHQFKeBwbvrxR0EEKKkX +cn/oU8C9cfbSd/nVQZ0c6xFB0NAzrtc8R2sD4ILIzdV3afir+ZPh7FEqhPm8 +OmbLpuG2ZTVtj99KwEhSudpBK0VsLZ5MevxvHdxc76vSmK+I8e3M/8IreIHb +heewBomO3bs+LwYGcUHBB8GY62c5+hUWYjw054lnCUNTRi103La0Q/Z54jTR +xLOwo3wzA72hzqn00ggxcL7UciGSgUNZZ+9tpvcRaiEPyctHGajNv9fSzPMD +kaTT2vzKkIltPLx/BcSbiI/ME4WSqUy8Eui699+3GiLdjlYgdUsYv6cI2+/9 +xQLSYryt6j4Scu9/+ONnFBtYRUV1KWvIWBF680EdZz6rWepUTjeRcWZP5/hY +AKdfagKffLkugkf8IoTkslgQGea3fpImhVaLTC1WWQuEdaQ8thiSwnMXtITv +9L+COa3z/8j3pVGuy263dXM1vAwuHi52kEEzA4Iw1CuFwaTCigVZWWQF8mqn +MwpgLq7sw4EeWcwV0+oJ886CghLhyhZTCnrnjTrbbU2Fh08pc5JPKNjw9hTv +c3Ii9A7vfRnNI4fxeZmmccvjYEz8/tzlw3Jo8CPT93fyVWAcqAuXrpZDUZ/K +bcN2gXA3RnJMSVYey223pBmf8QVNZcvKiEB53NxTpy9++hS8LYotOvdZHruk +B94vzLtArArX2U5dKh50kdhY/tgBosqMb365w9Gv2zMNTG5bQLt/gYkgm4pH +ncX1k5RNYWK71onKfQp4YoEpVhytDxrCtyfXP1XALcysmnoHbSjqZGwdWkvD +tkMu/9o1VeBk+o1+W3ca2kjRfC1c6XAiT4by8xUN9QYdJllUCuiUv34jSFPE +huifj/7MioB+287OriuKSPwW+qPTvxYu9i4+WjvEmd9RCY+c1Xig3yyOfWsH +HftrPD/qCv4ltHOYzrkpdHRePbJP13uOqF9ix2/9R8eKff+J1fF8JcIcEpXc +HBk4GmIr3PtngLjx09Gm5jkDdc/LsIVOdBMesfg9UYSJF/nOPW5rf09c0fg7 +JHWWieJZNfc9HzUQRoNF8c8/MJH+o7Rlq1glkW0ZNXiFQsKL/8qN/3iwYUBa +dq3KFxJe8jdNaq5mw+2NOSoFd8jIneBu2p7MBh3f79zhjiI47O3dxz/Jgotp +ye8Hg0gYqrTaPSqDDSvNTC4I6ZBxTW2+QmgVG95faNy5YZGM6Y7h1DhrNixu +sw9dMcXE7wMBS/Ka5YTN/g4Vv0YSHlTx9yx+wYZdEqMnhYPIuL50m9Wbx2x4 +vUecHHmchCtXtXOtv8sG/8B/922pZIwuyF4by+HHia/HJyZ+kjBM3smJyan/ +zb/krmnfJaFyGvcdg6dsiFl/y6pxLxmlmS+07nL09cdvOZdyFpiY5HXZ4cRQ +KTHFH6LzaIUQvj8m8kmSNQMZCRKfKwLWoeufsbT/Subgm2KdVqW6MK5ZsZrf +/gYLrBMfXqz8KozuLMYjTQM2fP9QcpCUQ8Lbxic9sZjjH/Vz2KaHyZhUuk0o +mBNrpLoepdFFcJdAeGOaMhtOeWStkZoQwU0xjEAFMgvM3d8e+ZkkinierFpw +Zxa07ILf3dsugVt673ipavXDwa6nIj9WSCJlYKFIxqYb8qtdbxx8JYmBJ3N0 ++yraIPPzYtWzC1I4t+3jqivsJmisb4w+oCeNAbcEtAXK6iC230dgnCWNGcr5 +KxVXV4LS17ETpDIZvPZGJCU/qQhmDg3+dbggizP2l+7n03IhL7T/fv16Tr8u +RZbXjnD0e9XR2FA/ClZoScg9nU+CaffW+987KDh0iL00cToezkV2Uj5skkOn +oBcpk0NRQF7rc3YkRg492FvnP9cHAw8zVGb8G6e/pc/u2JZ8EZz0fmnq7JbH +x7za0355XmDGmzd5L1ceZfJGrma4HYcY985f06s4+n2yTCAk2xnG1G93uB+n +4nGGT8D1LhsYP6PTEltPxWjGscZ2v73gL+Onu1WG40fzt338PWwEClv2+3Ff +VsCFXa3qhn0EyPXeE6z9pIAJSVTzK+bqoDp52TdHl4Ydaf70tusbYMrD8M+2 +2zTM8VnMc0mhgq5z5qzZLA0P2mx/8FleEu6XpZZd3a+Iy25+NCpVFwbL7LU9 +hbmKaDHdvo6yhg+8b/W6bRGi46Z8DTWrEi5gaEzHVZymY3b7A/U6v3lC5fQZ +klYzHd9/hcTev9OEuWCM65cNDPTMP7u8qGKEEJGL7tgQzkBzp9Q3eRf6iNNp +jOcLgwx8enxH/UDuB6I/0vHErD4T/3NwTfI+1kQ4B1j9nE1molb1dJocvZbI +sh72D4wRxvxnvJHVsyxQHC88LmVKQuH64t/uEWwQ4h56O7eSjMv/M/v1mtMf +h2IaV7+uJyNu4ik0DmaDrVZ0ccdVEbxZPnh3IZ8Fqq8GTc0oUvjWZaPinf9a +YBv3CapunxQm2fzHqyX2Ggob95xxSZRGnoiIlwnsaoheNn33mrUMxjy7b6sZ +WArC1ic3fxeXxdCgidj7tgWwKfcylHTIYnqxg1hvcRZY62aKVO2koIW1KUnr +WCqYuVYY4SMK5ipLeO+0TQQNTeUzNcvkcK9ThtaiahzsHGE0+hyUw7uXJLm1 +x65CrLWVvXGlHIocyPu2GB4I/NxOPeul5PHKnniRqee+YKvbJRh6SR51tMNa +GlpOwdxP8eWPejjxUTua6FZXqPyqPfJai4r+avE59TyO8PJhONfK21ScjU5R +jmmzgOLlqqIGs1RccdjMb/VFU2iH47bF5go4OrX1VdUbfVDc/r5zR44CltVt +uLIhSxtyLq7b3sZPw5a7EatOe6qA28Ur4xeP0zDkenIiO5sOYlTzq4r1NLxy +8bBUgwUFfmQ8suCRV0QJWsa1O1qisDi1+cC/y4pYXHip4pemAGzzjN+70K+I +nbMfCrV9eGBvgNvfGKTjgHJ3Z5/rXyJfgNelN5mOYQv1NTbZc4T+x+By2iId +I24eVvho9ZXgP7bJ7Lo9A0tuXAjS3jRIvEpW62YXMRCixZkhT7uJJ09fRccI +M1FjYtwnU6qVqA8LDzI+zcRTX5jSlyYaiPfqKV3XW5k4pSu9q9evkngJ2XPu +EiQMtxZVfXqcDUsnzESDP5Hw9YDIxDRnvte76QRG3CTjlyPK91alsqHx+8La +SzYi6LBVyqhxjgXR0S8Gmi9y/OTdlfIfH7JB4c654MNbybgv3TjKm8OXxWLr +2zzzZHycflKH4sCG0DjD171fmbiT1mBHiSknvB8s022uJSGpe/6MewVH71ud +Lf92gYy8am6dJ3I4flRHi+Z9hITx+/wp8xz/cPfdhqwn0mRUOv/qFS+n3sM1 +bs/qzJCQXGfZVcHhhf4QJlHjSZhy8ITuslw25LjUOkmYktGQtsKVm8MfZ0is +ujLPxIRHfadn1MuIfG2H3Z7PSTgbUtEbWcrR98eulpsLk/HcjszjDzn5a1tn +l38Z4fgZ6enGqBo2TCxJnXkJZOSqaK0495LDyxWPGPQWEmrRPB4Oc/yKk1r7 +rZVMMtaEr+tf4Ow3S9r2JeEvCQNeuORe4OQzT6jR7VpkYlhD2uTvmFLiWd3J +tA/cQli8tsqUNDMDvr/KXL5cXIenv85KuBfOgTvtocwPVWHsMNEXUothwcBa +1ZBnY8IYEaUhU7idDRcu7HbZ9piEx6JKHjoWseHlQZak1kEyBgqiyiWOn7nk +8H1SVkEE5X8VJo5sYkO5nUa0yagINpZM7tkqzoKH7/l5x++I4t3XfsIjKbNg +/eT02khCApn9LkdXWPfDpoa+wkluSTwv9PzLmGc3hAzc2RBbJ4kCGjPrqlva +4Ir3oH/mOSmstO3n8xVphqyoIuNgHWlcTLkp8by1Ds5LC39rm5FGboFA6lHV +SqhrqE1fUyKDfK7i40ulRRB9ql4l8pwsvg1aJiNslgvLdjKat4lS0It0LVFv +eQa0SBSVrz9PwciYZushmWRIStD7HfqBgudPyqyVvx4PWT/urjbfKIedxmH9 +zwWuQyM/4eAXLYfzuqP88oPBsO1wZqLjVzkUMOw3cGm8CKcMtQafm8pjM3fd +DrtmL/iSNXdDLUcek3VGYi9ePw6ZO722uK2kIo9VzjeP185w+Ynmai43Ksru +bd/WvWADtsV/1JTrOLwq79jTErcXziTHqeZLcfxJc/ZJHV5jSDI+dSrxkgJa +Fcxa/OYDkNoklKD9UQEJDS7BxtPqkN/164+eDg0Nho4615VuAAPG59zOWzR8 +GPnxi2MlFURtEjRe/6DhWPcH3oPmkvDX+Nai5D5FZJeP4OJeYVD3sctj5iji +93eOz99t5YONm4zdcwXomHzG4PJSKxe4HHO8ud+TjhmJ82Ste/PETJ9WZv4b +OrrXWc2MbvxBxJLt588oM7Cv2IT9q2eE2PLzfPyrMAa27g9c1pzeRwgUnuT1 +GWBg17Mn9r7vPhD/VNPLwrYz8WVV7dV/0U1EJsNU1DGJiQ8HRU0DDGsJJava +w8+ihNHxRc591jQL8h12eK3bSULLpqS/96+y4UHW+TZJHjJ6udo4VHHqfz5H +UK2whoxG4s8Xjody1llk3fchIphxOqLGtpgFK8dExvylpbDjX4hXoux7ELtj +PrDpkxRSHg4x1NVfQ3ysrlLULWlU9PWQtOWrAV+M9PW1kEGdj7pPplNLIVvV ++PioqCwKFiiz35wugLflh32G22TR+dUd+9quLHj834/tmsYUzE+WfNsXmAry +1bxn2jMoKPTyBc3qQiKMHEpssueSw9LJB16DJnFwYdf0sxlHOdQL3Jn3mD8c +DCxldvRVyOHaxuCDFSmBoK972TJaQh5fUg6dj+v1Bbcd68u4/eWxbpPl3fCl +UxCS4PSE+CSPb5oeKI7td4WOhi6p7ZpU9Gt2W1ms6gi265mad25RUfVA6Mzs +tAUoGs9d7P9BxRQzR1fxNFNofBm0R2U3R+/kRy+7Nq4P920nmz49UcCQXbtH +1Vq0Iasl9PVOPhrK3HoXGHRNBcaO/jm51o2GN76/L45/T4dTn0d1qmppOCyz +O2HoJAWa7t1ODKAo4q6I45/0HETB3p96/2aAIuquFunScRUAae0BBc/Pihh9 +dc+kTwIP8K/vWFoDHP2j7vZffNxf4jucc/VKomOD0plg6us5gtvQdPf9P3S8 ++Uxksj7gK2HmvtAna8fA9jf3P8rvHCQGzsjcji5koGSPZXtkezexs4pvgH8d +E0sdN/27otFKjGx639p3iomM+GV/zPheEeSBW79+tzAx51ysLDO7kthZrPPX +eT0JD12d5w86xobr64YlcrpI+FErapcvh0/2YUGPfGLJqMmlYxvP4Y9AVuDN +c5YiKNY6EXVnngViPGZfq8+T0KRn5OFZDr+egUD4NRWOX+lY4hvk8OnGh+SX +M3NkzOz+GP/JieOndXUnjCaYyDO9Kuh6RTmx3CgR2FUkfHkxeL6S4y/WnC0f +7DpHxoAZ0bZcDl9c8l9vPH6IhNaaydUHbrGB6V2X80GCjDlMJ3kdTr2Lft44 +f2SKhLvOnoi8wOHTW5vWdLE4ErbaM952ZLNBd7XdkR07yejCpSaSzeFT5tfr +A1NsJt7N6LaTOlRGwMDcvsQiEv76PchT+5zzPwGZqnOCZBSkf35Ywsm/71w4 +L+8QCbWFTmZu5vDmXEahz/g2MipfPqfKzbmfxmy9jXubSTjBvXd0D4dPU5/c +7m5W5NzXcVbmTs55evU/DFf9JqHUz9wYK06+m/jcYftfJoa8VdwlWFZKXDlg +2viGj4wipWUubzjrnvXF6+z7SKhoZJB/iHN/q+kJaUEUMqZUV4u2cvItxHBN +rWORMDu6SWaeExvXzBTTRMjY5L/6Rxjn+61KB/4Vj3P8pKvy0hDnvK1RunGf +lcnYanQ9L40TV/7M6PFYImF+sPazRM5+/u/NEieXmLhZpadN8Vgp8T9FqcoQ + + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1nfczXUUB/BHSCihMrJn9sreK7tBVEJFRkaUkT2yS/bWNMtuKKMkUrZS +tmjIpuw9ep9Xf7yf8/2ce+597u937n29bo5WXRp1TpSQkFD3roSEqHv8eZWU +fCa/yKN4OCExe/XjCffyufwSJUnCPr0u3McXcktKxfM8ebpeGQ7Ko0jKfvk1 +UrFMbkV+s2vkFiSmdLy23gznshyK9yNvcm7HO3Jh+XvnliSL58hb1Q7c7fED +6uvcTzmP/aR+qV/ceYNzGyo5/6q+rF/A+Tvn6uoLagV1h1pLTaKWUreoNdX2 +ahV1l1pHLRPXpr4rV1PLqeXVn9XH1N/jfqmb5RrqK2pldadaWx3t8SLqerkV +FZ1/Ue+J++e8Te0Y12nuN7UrqflKLuHxjc5taS0XlNc6v0jSuH96d+u9F++J +P+QxFNX7Ia6d5PG/9A6q3UjDcrkNhcytk1+K+xr3Ui+Z3vtxj/hTHktyDsnd +ScsKuS3lScHvej14gJVyOyqQknu5j1Tczx9m3uBBVsmvUJHU/KnXk4f4Wm5P +JdLwl14v0vGN3IHK3OP9fhD3lb/kcaTlsNyb9KyWO1IlrsX8h/H54LA8ngf4 +W+5DBr6VO1E1rs/8R7FT/pYn8CBH5L5kZI38KtXims3PjM8QR+SJPMRRuR8P +853cmepxf8zP0qvKUXkS6Tgm9ycTa+Uu1Ih7aX52fBY5Jk8mPcflAWRmnfwa +NeO+m58Tn32Oy1PIwAl5IFn4Xn6dx2JH5ufGZ5kT8lQyclIeRFbWy12pFXsz +Py++O5yUp/Ewp+Q3ycYPcjdqxy7NfxzfHU7J08nEaXkw2flR7k6d2KX5T+K7 +yml5Bpk5Iw8hBxvkHtSNXZqfH989zsjvkoV/5KHkZKP8BvVil+YXxHedf+T3 +yMq/8jBysUnuSf3YpfmFenX5V36fbJyVh5ObzXIvGsQuzS/Sq8dZ+QOyc04e +QR62yL15PHZpfrFefc7JH5KD8/JI8rJV7sMTsUvzS/QacF7+iJxckN/iEbbJ +fXkydml+qd7jXJBnkouL8tvkY7vcj6dil+Y/1XuCi/IscnNJHkV+fpL70zB2 +af4zvSe5JM8mD5fldyjAz/IAGsUuzX+u9xSX5Tnk5Yo8moLskAfydOzS/Bd6 +Dbkiz+URrspjKMQv8iAaxy7NL9NrxFV5Hvm4Jo+lML/Kb9Ikdmn+S72nuSZ/ +TH6uy+Mowk55MM/ELs1/pdeY6/InFOCGPJ6i7JKH8Gzs0vxyvSbckOdTkJvy +BIqxWx7Kc7FL8yv0nuGmvIBC3JInUpw98jCaxi7Nr9R7llvyQgpzW55ECfbK +w3k+dml+ld5z3JYXUYQ78mQeZZ88gmaxS/Nf6zXljryYosQPiil6JdkvjqR5 +7FL/G73niR8kS5RicdSfKpfigPwWLWKX+qv1mpGIpXrF4+X1p8ml+U1+mxdi +l/rf6jXnLj6N19f70bk1KSgrb1c7UdV5d6L/fx+VMPsfqu4NLw== + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrsJgFAURMHrJ7ANW9FABCNLMBAeCA/U/lEDwQqMJlk47LRLntexjDjq +iJjSca5FfKt6qrlnHro+b3lPz5/iHRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzHcRzHcRzHcRz/g19Mgw0c + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl3k8VO8XxyUVKmSG7IYxZoY2ZM89J1kKabELpSgVKaGURJaQLCWpKLKk +LJElS7KXKCFLIdkpEWZSyle/+f1z7+u8nuee+7ye1znn/fnIHfbc78rNxcW1 +i/P4/9vX32INF5cQkk1HytZMzYCZqWv7aJEQGj4QWHB+MQs7be2+c/utw5Tv +/lI9T+fgBzWIR26LMK5x1X/DF8WC48E1UY+GhfFanWkIE9jAJzfi5ppJwoY7 +RW7ehWywvKSzQ8GBjH3DsOvUczbUrz97RkJOBDuvbbWQUmXDKqN6Qb8hEezQ +hjV6Miz4qbor52OCKBZ6j8YJZc0Cn1N+kqf9ejSsqnz5/fAPaDQ2vbZqnRjS +SmLHiN2TYN+w9HVVvRjK5q7ZVb5lHISD4pMgTBzDbj5qXxgeAu+/jrvP60qg +u7FO0tez/bBYyLd/4p8EPmzPMKkJ7wYbrpZX1dWSOH9e37ZwsA0cV7/Svust +hY/sXRciNZohwjKFK1tTGtsKE6zOT9TBIYe8hhdT0siYemTcaVcJDg/v968o +lMH5MrcbpzuLYIP/o2PPvWVxSeXHtYdeuWDJ7/WriEzBJ5JoOySXAek+y0Yf ++1LQf2bLSxPjZDCpfrJPtp2C4Q3jCYGP46HH8tB8o7Icdi1OetbrXAd/3lWG +Atfl0O6TXvD1/4LB+95r4Y5xOQy4nrWnhXURAnb7RaqbyGPjVYFzLhNe4LVL +U6f5iTw2nVIyCHt2HF4oCB4f5KEi18Bqp+BhZxCT/bj95lEq8kzfrLCUtoWm +3+V3GmqouD7E4uL3x3vhqNQT5gZJBZQ8bCZQvMEYyAcjj2zyV8BolmP9tCaA +WFCIVEGXAi5XqCg0uKkOm2o9L7/XomFNc8Xvn8Mb4O6Qt/OpeBpOJJqXBPVQ +YcYs7OL2aRqeeP9npeIFSbDtCof8PYqotsN+wc1dGEQh48qDJ4rYkxi0r9KR +D8ZePfNUWkvHW+47DNsnuSAl8W38Vw86qle/KOx/MU/k7+LSZjZyYv3ZldsP +/SDaxWlXeZQYuC/hv2Un/4wQJm+OWB4KZaCn95WztPd9RE5tnt1MPwMllnzv +EVMfCErvN14pZGJ1zNv0hpIm4ls7ajbeZeIfXr6StS61RMP2roV//5gYbHQy +MpEoJQaPOPzwshdCtffj9wL3zYIU4fE7rmMd/ktQGntCYUGORerOkQhh3CF8 +5Sj1Owu029svrDQkodKt8KKmUDZs2iPYZbCMjF+qfiQ+rWNDVJO1/YOXZNzq +GPzxylU2jOXdq34TJIJla35Rn5axIODFyv6sbaKY+i9iY4/nHFxu9FdI/y2K +WiOnvKdKZqC0u3BPfrIErjhV7Zj+qQeUek5GWR6SxAdo87EvtgN6VpgE5kpI +YROl2qF4+3tgbVZLlu+SQs81+9v27n8N3rb04cIb0jgalP5os0wNOF1W3O+8 +VwbbW0eL39eVgoEgNa2fJIvUn9MW5IgCONFomC30XhYzwpbutv/KgsUq7VNP +DSl4VLHGOuNuKvySsL7nkk7BCH1dn5ikRLgRuUKBvURBi1OryscOx0F2XmHy +SQc51M7Tt9u7ORx+7xtXPlMuh8tzJ6j3SgPBzzulhUdcHlUvVJe6//OF86a2 +hwMvyOP1Hzv2xG/yhPWaafu6uuUx7mum09AZV/iWetaqXJ2Kpmd67KYOOcLs +tTceG+KpuFHE8evlNZaQGPls8Pw0FUUaLEycm02hUu+uUa6pAradMNIIXbED +RE+vqvZ8rICHTBqdz7K1IU3uz+7qVTS8Q/guVj1SAZf9XjP3j9Kwn3bH4ASL +Dg23L03b1NAw1Z6eQA2hQHrc1c+/ZRQxM3SzqmSgKDznXz9Iv6SINgodSTU3 +BGCJe8PCSK8iPv50fs3Ecx6oewrckXp07KsbbL9R+ZdgnBk7ynePjvdyB5PE +hueImgLhAdEFOt4u3FvFevSViD5T7/HMhoGmluZ6aocHib+GfDaMZwxc93US +Gn52E2MtZiphgkxca7d9ZcTeVmJFtwjFy4OJ7b5x87uVXhG2kdfEXN4x8cZM +zbE3fZXEhpnuS9obhdAi88Sco8wsqJoe8WrKXIen0s96Fk7MQYtuXCa3ozDO +JWfUnK9kQZtS03IbMgkd3tir7XZlg1Spn2znBxLOJQX0zL9kw0xaY4vzdTK6 +vGS3rU9ng9WRVeJe+0TQe3Jrn/MfFugHjc7HCorie+rHspNNc1D+32G3l685 +9fz31Dln1VlI+BpuHu8ugen6/Ge6kvuA9FrHU2aLJF7sOrYle3kXiC2Poj6f +ksTYQffvBWWtkJXsf9IpQwqHEl6bBG99AwFdw2c2u0qjsfWuwaxztfDF49tq +QVkZ1NpKl4/9XQ6tHwfQa1gGi04RR5NlCsH0oS/fSKosmsWXRG6WzQbGaKeq +6kYKLjt3ZKLRJA3MG5Xx6nUKzmpaqDM+3YVTtI/lERMU7OhTqm1g34DaZfwm +EgZySLsxfvnw7UjQ2XiutCpNDjMf2fX37rwC86uKTrtzyWOQkv+WfQf84OJb +t3n7w/JYUNQfV6J8BgxwqmFvjTxq6r7Qn/I7BhZHtn/ZLU3F3tilY2s0DkFI +Z2v3wUtUtNb4KC37nxUU1JToyX6kogavAKvM0xyEN8qXuqspoMPl37Zr/hnA +rfHGde9vKOA/D0u6wblt4LQPirV+KOCs8KjQxRA12MU/q/l8Dw3blRJ8lM2V +YIveAn34CQ1vK6/zfSEpDyY/wjYkr1RE8ZcVl459FoPwmT1C7kcV8cbOWmn1 +RiHgT53Q069TxPetT9c3f18JlroLWvY0OjoKpkF/2hIxEvLpkl8IHalnU3oZ +ZWyi9FLEmpQBOm6Q5qm0OPidyG/wvtCLDPwqnW1bKjZMPLxaYlV/j1O/qe9O +jRr2EG8aLxnq/mJgxT1/13er2glhu0Dya2smNh7+KXHUqpFI3TRGFy1i4s8h +2+2bblQTkScLvjWUCOO2jl0GEevZkOrXO1vsQ8K2kcydvCls2D6WHlW0iYwG +V/6SjGrYwJgdGe37QcbzBc5+Ec5s8P2z2U3umQi23VMT0TjNgiRe3s9pxlJ4 +rcDRN2/jOyBqv7aMrZTGO9MCU2XRDXCi54SlVrU0/pwTs5ouroLPsYcTC4Nk +cN92AxN2aQmUGrquMDWQRRlth5vZwvkQMU3erbcoiztWVSunL2RC693kxxuc +KFjVfVcqVCAFUjwC57dXUJCqbuLTfj0BSn6oXncSkcPzzwa5godiIP6A4+wL +bznMaBm5H/dfKJT42jyQb5PDsSuPvZ/fDIDFgagNySrymLX24tmaHm/waTJu +ybghjxFCXRtk9rjDt412nw9My6Pz8c4LFglHIGggo1nRnIoGpWcttO7bg5N+ +7fKFJ1QcQqiyN94Ply3yQtt5FPCsAWubk/MucDMX7pw6ooDODTVgorsdbv82 +PCVUrYCKoQe5xJ5owsRs0ZgxhYYt52K/5c9shst3WVlhl2goVb/LwLuFBvZz +y4rfdtNwdDFbMYEiA0tq4dGWmpx56Koygg5kGFPoLxi+qYjjocIBGp9Ww5yL +Z9FVNmd+Tl9J3VfGDaoKYc1lVnS0iBit9ZJeINwdWXvuFNDx6fNU0QyNWaJp +9F7h9XUMTPDw/09cbZxwlyY7R5xiYMzB5NS/GV8ISx4H26hGBhZu2KBb9amT +WN4pKd1GZ6K6nU2aZNg74rdltrJ0CBM1Pn5QytpSTwiMbeF7NsbESxtn5gwm +yol9JSINSaJCKOj2Tvv8ilmo3Of0dCxmHY5NHM058HYO+jdHdMYZCaNmx6au +dRkskO423PnvrzAe+N67Y2w/G25832QgXUnCyqTOHt5yNjyMXcZX503G+xGs +tPE8Du/19AyNtEVQYaLV/RCnftOHLZevWBBBJSd/ZdWfc2ArZh1p+lQU+/70 +qCx6zEKoF2v3SksJfGB9siY37DOE6z08tFxMEkMoV4ym6rqgdNnGn7rdksis +2ufXaNoGVyxT9y9GSWHJZuplP5UmCBHR1/Ywl8ZjnYtXyBvrgOL6dsJ1pQz2 +vUm9fI76AhIqqwS3Ncug19UhtfKfhbBNMKZ09zVZdEsNsNLYkQMvf1FvsSgc +nn/f22Gokg4L9xNuiF2hYI/SyGgTXxL0eW0Ps/xMwU+03MJ7TTfBXFk9ZVZT +Dn2OdqRbDV6DXomqpaOJcnj0qJ6+j0wwFLdVbqew5TDSYNtw6oMLsLjmDO60 +lsc1/3LF3/B4Qa+BMJdAiTxm95o4DMe4Aa8BI339Oirq9FYMXV/lDOYXOqIW +zlDR7d2zzGWrbID4XHpy7i0V/cYX67w/7eHo27HTZnQFND536Ay/oBFYpj0u +D7iqgB4vn3MFv9cD3a+DE+whBdyqfuLh7tCtsO1o/oEdBjRcMo+rtI5ThlHB +5/VZD2j4r3vmwb+f8iB9f6Wl5x8abtlw+IQXVQJOH/lOFzigiANFmVMnbq0D +oRmjgZkSRcwr7icOSfOC9DJrS31xOibFFn9qEueCWgGLCBU/OvbK2lXwF/8k +iobrH7p00PG4jbmYXNcUUfPjLddpdQZKFSp6fFs+Qvgy1lrdiGXgxQNX3dYE +9xLlhgnvRSYZqCHuW+jDbifE7xZHnzFlYsDvB2v+BrwhXgXe3Oz5iIlV/gUB +a31qiHsHH4tbpQgj4/6d/4y42TBFs9FwciShi8Kyd+U32VAqYV+wuJ6MDsEa +m1w4+rPnszSF6CZjV1HJ1iIfNuR1uMb/vCOCF2rz/FYlsEB31eM8hooUap4b +L+Xd2gJifgIlIdNS6Ge8QviV+yvwFH8j6ftYGnXVZh/1+VWDTLiBD/9xGZRc +8TvbvOw5BCgZdJA3cOZjsNod6aZ8uHBg42LmqCz2+ibcqGU9gqO5k6un91HQ +qjtIRL81BcwMJnd+eEpB8t+F6dyY26Cgl2TL5JfDa6dNN6lnxgIlNNw43k0O +C07qO8wJXgUblwejbxrkkD3bMu355zKUP0n4by9NHr+OX9ULGvOBef69YjfD +5PFOi/VTsRIPCFQNWC8+LI+GFTrMNwEuoFETFTuznYpS2ptF5+YPAGO8ofTG +AypOTvcavlCwgDWe+YUZC1Q8MGnifizGBISNuq6/s1FA+bQfS68k9MG6SHF9 +dZECChiMhoQ3asGrCBsJHjINI/94jGc1bQGv+Wdvhb1oGL3cjSu0RxGEGqr2 +3XhLwxG//l+j12ShbWhViaKyIj5Qa1myOyYCLbcvvAkNV8Rtl4LO9G1cC78L +31lrTCji9IBANfPZcvjzdWgsdRcdnSpt9JVd/xAm4+4H9mXSMdWkjDGxao54 +Zdq9a/8KTv3QB1IeuE4Ql4zdx6WPMDBzwGxw4tYAwch4ZmNfycBT0xubIwe7 +CPa+rY+yJZk4NKLvkcX3nli6NZDx+jwTe/uDs2/RGwg1rX6h1T1MpL01G8q1 +fUGEBphX5W0g4eGi8csmvmzICK7/E/WNhDuOhaJqLRuI5zHxXJlkNOJ+zPs7 +gQ0yEW3fk4+LYGhs9phCLwus3h3MXRtNwjG99XqpT9jQVPDjmLshGQfy5FXM +Kjl85snJvsgrgqxUxullpmz4djN4mR2LiaVptxujI8sIlztFbuarhbBGdnmf +6sIMcHf2vvMOWYfkFebasi/nYIy5wsNOVxjznILmUxJZsCM3+MSHH8K4O6Da +UWUXG1rCIqxrCkj4TpiVOVfChr8rZTLPupFxy2X1h2cL2ZClZHtgy0YRzJkw ++76Sxoau+Ci+qikR7FvXWf6DjwWZGXskhdNEUa7ssa/WtVlYLMnaXWUsgWYW +gUHVi5+h9rfVp5+rJZH+i67YQOsG3qD/HJeaJXHkaXSLfkIbzDxVM2oOlELF +EIGQxWdNsFJ9VmrNDmlcH/ZEb0VkHVQf0rNZ90caE1av0FCtfAELmzf/olTJ +IONAfM4llyIoMpSM5Q6URZUjD9P8PuUA3zJTow4JCvIzv3TuykoHc/63us7+ +FDy77MvO8cwkuCk+P1nWTUH5/T/vjWnFA7naxPSzihx6Kt2uEI6Kgpx1w6nl +N+Qw75mPYnNUMMSX6Cv9mZJDoZiEj/nGF0Fvo88osVcel98u7NHz8QLF1wrJ +7vny+I2XtSdB9jgcLroXtsjP8V/HYkiq3s5QaGZ9zMidijsoZeLxsTbAM1nG +7fCaiqVd5oP6JnshjrJz9zY5BbzHGrskm2QEW5dJxHQFKeBwbvrxR0EEKKkX +cn/oU8C9cfbSd/nVQZ0c6xFB0NAzrtc8R2sD4ILIzdV3afir+ZPh7FEqhPm8 +OmbLpuG2ZTVtj99KwEhSudpBK0VsLZ5MevxvHdxc76vSmK+I8e3M/8IreIHb +heewBomO3bs+LwYGcUHBB8GY62c5+hUWYjw054lnCUNTRi103La0Q/Z54jTR +xLOwo3wzA72hzqn00ggxcL7UciGSgUNZZ+9tpvcRaiEPyctHGajNv9fSzPMD +kaTT2vzKkIltPLx/BcSbiI/ME4WSqUy8Eui699+3GiLdjlYgdUsYv6cI2+/9 +xQLSYryt6j4Scu9/+ONnFBtYRUV1KWvIWBF680EdZz6rWepUTjeRcWZP5/hY +AKdfagKffLkugkf8IoTkslgQGea3fpImhVaLTC1WWQuEdaQ8thiSwnMXtITv +9L+COa3z/8j3pVGuy263dXM1vAwuHi52kEEzA4Iw1CuFwaTCigVZWWQF8mqn +MwpgLq7sw4EeWcwV0+oJ886CghLhyhZTCnrnjTrbbU2Fh08pc5JPKNjw9hTv +c3Ii9A7vfRnNI4fxeZmmccvjYEz8/tzlw3Jo8CPT93fyVWAcqAuXrpZDUZ/K +bcN2gXA3RnJMSVYey223pBmf8QVNZcvKiEB53NxTpy9++hS8LYotOvdZHruk +B94vzLtArArX2U5dKh50kdhY/tgBosqMb365w9Gv2zMNTG5bQLt/gYkgm4pH +ncX1k5RNYWK71onKfQp4YoEpVhytDxrCtyfXP1XALcysmnoHbSjqZGwdWkvD +tkMu/9o1VeBk+o1+W3ca2kjRfC1c6XAiT4by8xUN9QYdJllUCuiUv34jSFPE +huifj/7MioB+287OriuKSPwW+qPTvxYu9i4+WjvEmd9RCY+c1Xig3yyOfWsH +HftrPD/qCv4ltHOYzrkpdHRePbJP13uOqF9ix2/9R8eKff+J1fF8JcIcEpXc +HBk4GmIr3PtngLjx09Gm5jkDdc/LsIVOdBMesfg9UYSJF/nOPW5rf09c0fg7 +JHWWieJZNfc9HzUQRoNF8c8/MJH+o7Rlq1glkW0ZNXiFQsKL/8qN/3iwYUBa +dq3KFxJe8jdNaq5mw+2NOSoFd8jIneBu2p7MBh3f79zhjiI47O3dxz/Jgotp +ye8Hg0gYqrTaPSqDDSvNTC4I6ZBxTW2+QmgVG95faNy5YZGM6Y7h1DhrNixu +sw9dMcXE7wMBS/Ka5YTN/g4Vv0YSHlTx9yx+wYZdEqMnhYPIuL50m9Wbx2x4 +vUecHHmchCtXtXOtv8sG/8B/922pZIwuyF4by+HHia/HJyZ+kjBM3smJyan/ +zb/krmnfJaFyGvcdg6dsiFl/y6pxLxmlmS+07nL09cdvOZdyFpiY5HXZ4cRQ +KTHFH6LzaIUQvj8m8kmSNQMZCRKfKwLWoeufsbT/Subgm2KdVqW6MK5ZsZrf +/gYLrBMfXqz8KozuLMYjTQM2fP9QcpCUQ8Lbxic9sZjjH/Vz2KaHyZhUuk0o +mBNrpLoepdFFcJdAeGOaMhtOeWStkZoQwU0xjEAFMgvM3d8e+ZkkinierFpw +Zxa07ILf3dsugVt673ipavXDwa6nIj9WSCJlYKFIxqYb8qtdbxx8JYmBJ3N0 ++yraIPPzYtWzC1I4t+3jqivsJmisb4w+oCeNAbcEtAXK6iC230dgnCWNGcr5 +KxVXV4LS17ETpDIZvPZGJCU/qQhmDg3+dbggizP2l+7n03IhL7T/fv16Tr8u +RZbXjnD0e9XR2FA/ClZoScg9nU+CaffW+987KDh0iL00cToezkV2Uj5skkOn +oBcpk0NRQF7rc3YkRg492FvnP9cHAw8zVGb8G6e/pc/u2JZ8EZz0fmnq7JbH +x7za0355XmDGmzd5L1ceZfJGrma4HYcY985f06s4+n2yTCAk2xnG1G93uB+n +4nGGT8D1LhsYP6PTEltPxWjGscZ2v73gL+Onu1WG40fzt338PWwEClv2+3Ff +VsCFXa3qhn0EyPXeE6z9pIAJSVTzK+bqoDp52TdHl4Ydaf70tusbYMrD8M+2 +2zTM8VnMc0mhgq5z5qzZLA0P2mx/8FleEu6XpZZd3a+Iy25+NCpVFwbL7LU9 +hbmKaDHdvo6yhg+8b/W6bRGi46Z8DTWrEi5gaEzHVZymY3b7A/U6v3lC5fQZ +klYzHd9/hcTev9OEuWCM65cNDPTMP7u8qGKEEJGL7tgQzkBzp9Q3eRf6iNNp +jOcLgwx8enxH/UDuB6I/0vHErD4T/3NwTfI+1kQ4B1j9nE1molb1dJocvZbI +sh72D4wRxvxnvJHVsyxQHC88LmVKQuH64t/uEWwQ4h56O7eSjMv/M/v1mtMf +h2IaV7+uJyNu4ik0DmaDrVZ0ccdVEbxZPnh3IZ8Fqq8GTc0oUvjWZaPinf9a +YBv3CapunxQm2fzHqyX2Ggob95xxSZRGnoiIlwnsaoheNn33mrUMxjy7b6sZ +WArC1ic3fxeXxdCgidj7tgWwKfcylHTIYnqxg1hvcRZY62aKVO2koIW1KUnr +WCqYuVYY4SMK5ipLeO+0TQQNTeUzNcvkcK9ThtaiahzsHGE0+hyUw7uXJLm1 +x65CrLWVvXGlHIocyPu2GB4I/NxOPeul5PHKnniRqee+YKvbJRh6SR51tMNa +GlpOwdxP8eWPejjxUTua6FZXqPyqPfJai4r+avE59TyO8PJhONfK21ScjU5R +jmmzgOLlqqIGs1RccdjMb/VFU2iH47bF5go4OrX1VdUbfVDc/r5zR44CltVt +uLIhSxtyLq7b3sZPw5a7EatOe6qA28Ur4xeP0zDkenIiO5sOYlTzq4r1NLxy +8bBUgwUFfmQ8suCRV0QJWsa1O1qisDi1+cC/y4pYXHip4pemAGzzjN+70K+I +nbMfCrV9eGBvgNvfGKTjgHJ3Z5/rXyJfgNelN5mOYQv1NTbZc4T+x+By2iId +I24eVvho9ZXgP7bJ7Lo9A0tuXAjS3jRIvEpW62YXMRCixZkhT7uJJ09fRccI +M1FjYtwnU6qVqA8LDzI+zcRTX5jSlyYaiPfqKV3XW5k4pSu9q9evkngJ2XPu +EiQMtxZVfXqcDUsnzESDP5Hw9YDIxDRnvte76QRG3CTjlyPK91alsqHx+8La +SzYi6LBVyqhxjgXR0S8Gmi9y/OTdlfIfH7JB4c654MNbybgv3TjKm8OXxWLr +2zzzZHycflKH4sCG0DjD171fmbiT1mBHiSknvB8s022uJSGpe/6MewVH71ud +Lf92gYy8am6dJ3I4flRHi+Z9hITx+/wp8xz/cPfdhqwn0mRUOv/qFS+n3sM1 +bs/qzJCQXGfZVcHhhf4QJlHjSZhy8ITuslw25LjUOkmYktGQtsKVm8MfZ0is +ujLPxIRHfadn1MuIfG2H3Z7PSTgbUtEbWcrR98eulpsLk/HcjszjDzn5a1tn +l38Z4fgZ6enGqBo2TCxJnXkJZOSqaK0495LDyxWPGPQWEmrRPB4Oc/yKk1r7 +rZVMMtaEr+tf4Ow3S9r2JeEvCQNeuORe4OQzT6jR7VpkYlhD2uTvmFLiWd3J +tA/cQli8tsqUNDMDvr/KXL5cXIenv85KuBfOgTvtocwPVWHsMNEXUothwcBa +1ZBnY8IYEaUhU7idDRcu7HbZ9piEx6JKHjoWseHlQZak1kEyBgqiyiWOn7nk +8H1SVkEE5X8VJo5sYkO5nUa0yagINpZM7tkqzoKH7/l5x++I4t3XfsIjKbNg +/eT02khCApn9LkdXWPfDpoa+wkluSTwv9PzLmGc3hAzc2RBbJ4kCGjPrqlva +4Ir3oH/mOSmstO3n8xVphqyoIuNgHWlcTLkp8by1Ds5LC39rm5FGboFA6lHV +SqhrqE1fUyKDfK7i40ulRRB9ql4l8pwsvg1aJiNslgvLdjKat4lS0It0LVFv +eQa0SBSVrz9PwciYZushmWRIStD7HfqBgudPyqyVvx4PWT/urjbfKIedxmH9 +zwWuQyM/4eAXLYfzuqP88oPBsO1wZqLjVzkUMOw3cGm8CKcMtQafm8pjM3fd +DrtmL/iSNXdDLUcek3VGYi9ePw6ZO722uK2kIo9VzjeP185w+Ynmai43Ksru +bd/WvWADtsV/1JTrOLwq79jTErcXziTHqeZLcfxJc/ZJHV5jSDI+dSrxkgJa +Fcxa/OYDkNoklKD9UQEJDS7BxtPqkN/164+eDg0Nho4615VuAAPG59zOWzR8 +GPnxi2MlFURtEjRe/6DhWPcH3oPmkvDX+Nai5D5FZJeP4OJeYVD3sctj5iji +93eOz99t5YONm4zdcwXomHzG4PJSKxe4HHO8ud+TjhmJ82Ste/PETJ9WZv4b +OrrXWc2MbvxBxJLt588oM7Cv2IT9q2eE2PLzfPyrMAa27g9c1pzeRwgUnuT1 +GWBg17Mn9r7vPhD/VNPLwrYz8WVV7dV/0U1EJsNU1DGJiQ8HRU0DDGsJJava +w8+ihNHxRc591jQL8h12eK3bSULLpqS/96+y4UHW+TZJHjJ6udo4VHHqfz5H +UK2whoxG4s8Xjody1llk3fchIphxOqLGtpgFK8dExvylpbDjX4hXoux7ELtj +PrDpkxRSHg4x1NVfQ3ysrlLULWlU9PWQtOWrAV+M9PW1kEGdj7pPplNLIVvV ++PioqCwKFiiz35wugLflh32G22TR+dUd+9quLHj834/tmsYUzE+WfNsXmAry +1bxn2jMoKPTyBc3qQiKMHEpssueSw9LJB16DJnFwYdf0sxlHOdQL3Jn3mD8c +DCxldvRVyOHaxuCDFSmBoK972TJaQh5fUg6dj+v1Bbcd68u4/eWxbpPl3fCl +UxCS4PSE+CSPb5oeKI7td4WOhi6p7ZpU9Gt2W1ms6gi265mad25RUfVA6Mzs +tAUoGs9d7P9BxRQzR1fxNFNofBm0R2U3R+/kRy+7Nq4P920nmz49UcCQXbtH +1Vq0Iasl9PVOPhrK3HoXGHRNBcaO/jm51o2GN76/L45/T4dTn0d1qmppOCyz +O2HoJAWa7t1ODKAo4q6I45/0HETB3p96/2aAIuquFunScRUAae0BBc/Pihh9 +dc+kTwIP8K/vWFoDHP2j7vZffNxf4jucc/VKomOD0plg6us5gtvQdPf9P3S8 ++Uxksj7gK2HmvtAna8fA9jf3P8rvHCQGzsjcji5koGSPZXtkezexs4pvgH8d +E0sdN/27otFKjGx639p3iomM+GV/zPheEeSBW79+tzAx51ysLDO7kthZrPPX +eT0JD12d5w86xobr64YlcrpI+FErapcvh0/2YUGPfGLJqMmlYxvP4Y9AVuDN +c5YiKNY6EXVnngViPGZfq8+T0KRn5OFZDr+egUD4NRWOX+lY4hvk8OnGh+SX +M3NkzOz+GP/JieOndXUnjCaYyDO9Kuh6RTmx3CgR2FUkfHkxeL6S4y/WnC0f +7DpHxoAZ0bZcDl9c8l9vPH6IhNaaydUHbrGB6V2X80GCjDlMJ3kdTr2Lft44 +f2SKhLvOnoi8wOHTW5vWdLE4ErbaM952ZLNBd7XdkR07yejCpSaSzeFT5tfr +A1NsJt7N6LaTOlRGwMDcvsQiEv76PchT+5zzPwGZqnOCZBSkf35Ywsm/71w4 +L+8QCbWFTmZu5vDmXEahz/g2MipfPqfKzbmfxmy9jXubSTjBvXd0D4dPU5/c +7m5W5NzXcVbmTs55evU/DFf9JqHUz9wYK06+m/jcYftfJoa8VdwlWFZKXDlg +2viGj4wipWUubzjrnvXF6+z7SKhoZJB/iHN/q+kJaUEUMqZUV4u2cvItxHBN +rWORMDu6SWaeExvXzBTTRMjY5L/6Rxjn+61KB/4Vj3P8pKvy0hDnvK1RunGf +lcnYanQ9L40TV/7M6PFYImF+sPazRM5+/u/NEieXmLhZpadN8Vgp8T9FqcoQ + + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1nfczXUUB/BHSCihMrJn9sreK7tBVEJFRkaUkT2yS/bWNMtuKKMkUrZS +tmjIpuw9ep9Xf7yf8/2ce+597u937n29bo5WXRp1TpSQkFD3roSEqHv8eZWU +fCa/yKN4OCExe/XjCffyufwSJUnCPr0u3McXcktKxfM8ebpeGQ7Ko0jKfvk1 +UrFMbkV+s2vkFiSmdLy23gznshyK9yNvcm7HO3Jh+XvnliSL58hb1Q7c7fED +6uvcTzmP/aR+qV/ceYNzGyo5/6q+rF/A+Tvn6uoLagV1h1pLTaKWUreoNdX2 +ahV1l1pHLRPXpr4rV1PLqeXVn9XH1N/jfqmb5RrqK2pldadaWx3t8SLqerkV +FZ1/Ue+J++e8Te0Y12nuN7UrqflKLuHxjc5taS0XlNc6v0jSuH96d+u9F++J +P+QxFNX7Ia6d5PG/9A6q3UjDcrkNhcytk1+K+xr3Ui+Z3vtxj/hTHktyDsnd +ScsKuS3lScHvej14gJVyOyqQknu5j1Tczx9m3uBBVsmvUJHU/KnXk4f4Wm5P +JdLwl14v0vGN3IHK3OP9fhD3lb/kcaTlsNyb9KyWO1IlrsX8h/H54LA8ngf4 +W+5DBr6VO1E1rs/8R7FT/pYn8CBH5L5kZI38KtXims3PjM8QR+SJPMRRuR8P +853cmepxf8zP0qvKUXkS6Tgm9ycTa+Uu1Ih7aX52fBY5Jk8mPcflAWRmnfwa +NeO+m58Tn32Oy1PIwAl5IFn4Xn6dx2JH5ufGZ5kT8lQyclIeRFbWy12pFXsz +Py++O5yUp/Ewp+Q3ycYPcjdqxy7NfxzfHU7J08nEaXkw2flR7k6d2KX5T+K7 +yml5Bpk5Iw8hBxvkHtSNXZqfH989zsjvkoV/5KHkZKP8BvVil+YXxHedf+T3 +yMq/8jBysUnuSf3YpfmFenX5V36fbJyVh5ObzXIvGsQuzS/Sq8dZ+QOyc04e +QR62yL15PHZpfrFefc7JH5KD8/JI8rJV7sMTsUvzS/QacF7+iJxckN/iEbbJ +fXkydml+qd7jXJBnkouL8tvkY7vcj6dil+Y/1XuCi/IscnNJHkV+fpL70zB2 +af4zvSe5JM8mD5fldyjAz/IAGsUuzX+u9xSX5Tnk5Yo8moLskAfydOzS/Bd6 +Dbkiz+URrspjKMQv8iAaxy7NL9NrxFV5Hvm4Jo+lML/Kb9Ikdmn+S72nuSZ/ +TH6uy+Mowk55MM/ELs1/pdeY6/InFOCGPJ6i7JKH8Gzs0vxyvSbckOdTkJvy +BIqxWx7Kc7FL8yv0nuGmvIBC3JInUpw98jCaxi7Nr9R7llvyQgpzW55ECfbK +w3k+dml+ld5z3JYXUYQ78mQeZZ88gmaxS/Nf6zXljryYosQPiil6JdkvjqR5 +7FL/G73niR8kS5RicdSfKpfigPwWLWKX+qv1mpGIpXrF4+X1p8ml+U1+mxdi +l/rf6jXnLj6N19f70bk1KSgrb1c7UdV5d6L/fx+VMPsfqu4NLw== + "], 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]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + 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, 13}, {0., 1.2977994856441957`}}, + "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:eJwVl3k41N8XxyUVKtsM2Q1jzAxtyM7nnEQKabELpSgVKaG0iCwhWUqSKLKk +LJElS7KXKCFLIV87JfuklPSb3z+fz/N6zn3uPed9lvtc2SMeB1w4OTg4drM/ +///7XDZfx8EhgGST4dJ1kzPwvPZU6kdOASxaX2lCmpmBSd4g7cerBPDDceHP +EvMz4Hyv0NVsrQBWy6zsVVmcgf3FwvWJIgLI7/pe68KqWdg403VFa5MAmmec +nHOQnoWBo/bTnnYCqPph7L7//lkwNXFpGykUQMOHfItOL2dhl43td05fQUz+ +flmy+9kc+Pwsdf7vkiCe+Tor7lYwB+lx4l/K/QTR5fdo6t/iOeDs6HnvFSSI +5FVmWjKv5qBiv+Oz0ShBHB0/ln3w3RyomBz1bMwQxNNp5zwKxudAknD/FdMu +iP/iFEefUuZhmhrAJbtVCNe56L/liZgHN9oj6WkVIWw31hdQjZqHbwq1mhVq +bPuqtbx2t+ZhlLnK3VZHCHMdAxaS4+ehb0tYR8xOIdRo39wpmD4PzToxGZwO +QjiXlF59oWIess1Tdg2HCeEOoWvHqN/nQdGy5sjzCCF0eJn9YH5qHjKthi77 +Rwlh3nPu8KrZeUizpeVL3hHC78lCdvt+zsP9Q0/ELJOFkPHg3t+dnCwIP5X/ +rb5YCHXbdxuEbWDBicDqiMdDQnij1iSICSzoX68S9HxUCMMi1KULtrPAKv7R +pYqvQug2z3isYcCCHTmBJz9OC+EevyoH5d0skOoy3PXvjxAe/N6zY/QAC1oV +G1dak0lo/9ZOdY8LC3YVaf9x2kDCw9cXeAOOs+AVZM25iZMw1EpE5dkJFmRZ +RAxco5Dw0r8yo9/uLAj2M6vM3UjCI4VjV419WKDV1nZxtSEJFe+EFjYGsyDP +foen4C4SWjQm/nlwnQUKYwUnJE1IKFRX9MstjAWkpVgblf0k5DzwaPpHBAsm +adbqjg4kdJZf8b7sNguc895sOnGYhFYaSVUH77CgW1uT5nWUhLH7L1MW4ljw +Zq8YOfwECVevaePYkMCCFN+e2SJvErYOZ+ziTmaBKJfp16oLJDTuHn50LoUF +kZEv+5susfdPWC336RELLqUmfRgIIGGw4lq3iHQWWL4/lLM+koSjehv0Up6y +4J11S5poDAlb7Bjv2rNYoD+IidRYEiYfOqmzIocFW37K3tBKIKFSKuc9g2cs +4JEddnXJIGE9u0+8Clhw8eIeZ90nJDweUfzIoZAF3z8WHyJlk/Cu0SkPLGJB +c0iYVXU+Cd8LzWfMFbMA+uf2xxeS8OevAa6aF2z9tOz3eLwg4WxQeU94CQtu +fd9sIFVBworEjm7uMhas3BkPrEoSvroUuFDBZq+HK3SaakhI6lo461bOAusD +7cq+DSQ8pHzZo+glCxqy9DbtayLhOOe+kb0VLNBe9ZhBbyahJs390RCbJUt8 +ZTo+knAu0a974RULbgoOiWd3kvCTZsRun0oWLJ80FQn8TMI3/cLjU2z2qCsS +tOslocJOg7zDVex6lJJZr/wfCa9cNklsYvP+86Hc3IMk1BI4lbGlmgU1LbMr +/xsm4Q6pqYYINm9TPPivaIytv4vS8iCb0wPrfkd8Y9uPB6NKDQtEvmxaODpJ +wt3nToZfZHOo+t1Z7RkSkmstOsvZvBjFMSk4T8KsyEbpBTaf/HpifPwHCUPk +HB2ZtSzo0f84VPmLhJI/cqIs2WyaqPtf3B8S+r10zrnI5oof6d3uyyTMC9R6 +Hs/mzXv5Ow1WkPG/yun4Z2x+mHmhVYKLjJ4u1vaVbBbgHHw3t5qMK/+a/nzD +5msHTRre8pBRuKTU+S2b5wsLa5PXkbE8+PbDWjY780lXnucnIz/9y6NiNnce +v15mJkTG8zsyTjxis1H1TBFNmIyNl9dOh7C5RNwuf2kDGe0D1Tc7s5npVZv9 +UZyM2UxHOW02J7zfmPlUioyKF16/5mbzWnpcagCFjMlVVSIt7Pgv+/97YEMl +Y2R+1vpoNk9+dk3YokBGjRPzGbvY7Kjadmc1k4zVoYJ9i2y9WyJ0Yr4okbFl +583cVDZvH02LKNxMRoNrf0g72fwc+EJvKJMxrX2ZZ4CdT/l75wOPbCPj/jSj +CC82rzY1viigTcZ1NXnywex6OJ9e4D2mS0alq+dVONk8vix59hWQkaO8pfw8 +u54a86ePuxmSsT9XTtmUXW86a22P7thFRmcOVeEsdn1mO9c4ipuQ0ZC2yoWT +zVEb7lg27COjFPOlZgK7vi2uaO+Qtydj7xDsPs3uj1eH5iU0D5HRnx+Vr7D7 +h6GfzTI5QsbEEl2BQHZ//VktnXHOlYxbr6o9Osfux0fRK3hqvcj4IGw+dSyX +BevOlQ10niej34xIaw67n30sz5V9u0hGblXXjpPZLNgtPnJKKICMG0p0Ld8+ +YcFMakOz0022v69YrRvSWGAXEvDYO5qtL4e2TSx7ntS5avuH3WbXz1Gl+2vY +8+bupmzl/Htk5IxzM2lLYgHxIiqWI4OMOzmfcP9iz6+IRiu7h6/IuM0h8NM1 +9nxcyOZXLahm28VeLJ5gz8/DUQ1r39SRETdzFRgFskDVQrtiqpGMM3s7xkb9 +2PPwixSF6CJjZ2HxtkJvdvyzwyO902S8kO/kG+bEnhcfk17NzJExo+tT7GdH +FiwVWd3lWiDjk7RT2hR7Fny42LBr4xI7vw6h1Bgrdvxc2VmXuIVxPoVxZoUJ +O54N586Kywpjx41t5pIqLLhi/31CRl4Y5X4WxA9vZoF6issxGl0Yd/OFNqQq +sSBT0ebg1k3CmD1u+n01jR2fnp7hTi1hlB9vcTvMvr8sj64R89wvjF4T23qd +fs8DX6b/7fMWwijaMh5xb2EeGr4vrr9iLYz22yR3NszNg7bPd85QB2Ec8vLq +5Z2YB+mw1u9JJ4QxODprVL6HfT/n3q96GyCMpet+Up+VzsPDebLOhyBhTD8T +Vm1TNA82mpFF7deF8XbZQMJi3jw0Vvs//e+mMB71DROQzZyH3HaX2B/3hPFi +Ta7vmrh58Pm9xVX2uTC23lcVVj8zD2t21vH7Dgpjuxas05OehzJb9UjjEWFs +KJ7Yu01sHk67Z66THBfGzVEMf3nyPHTGRvBUTgpjr2BH2TQP+34fsli5alEY +FR0vK6n8mAP9gJGFaH4R/ED9VHqqcQ78Xq7uy9QVwZR/YZu6Pebgh8ru7E9x +IljgNRIjkDkLjz7wco/dE8GEN75Cw8mzYOb27uiPRBHEC2SV/HuzkJG+V0Io +VQRlS5/4aN6YBRtRq3CTZyLY+7tbecl9Fsr+HnF99Ya9/5/T551UZuFqw2X5 +tF8iqDl82muyeAZ4HPMSPew2oGFlxavvR6ahwcjkxhpBUaQVR48SeybArn75 +65o6UZTJWbe7bOsYCAXEJkKIGIbcfty2ODQIXn8c9lzQEUc3I+3Er+f6wOrp +mfXhhDgy+5yPrbLqA03bwPf3t4vj1p57niqafbBUnLmn0kgcTc39A6qWvkCw +5/ye1Rbi+NDqVHVOyBeI+xpqFusmjmn6vGc7k3qhpKtgb16SOK46XeWQ9rkb +lgp4Doz/E8dHbenG1aFdsLm+t2CCUwIvCLz4b9SjCw51PhOeXiWBlP7FQmnr +Lqj5Zfn5x1oJpP+kK9TTuiBU79HhlaISGES5tnOythNIb7Q9pLdK4KXO41uz +VnaCYvepCIvDEvgQrT/1RreDNUfz66oqCVy4oG9TMNAKQf33NkbXSiCf+oxg +VXMr5FW53Dr0WgL9T2Xr9Ja3AnfAX4flJgkcfhbZrB/XCiUrNv3Q6ZJAZuV+ +3waTVhBdGUF9MSmB0QNu3/NLW6B7lbF/jrgkNlKq7Iu2f4DVo8Kjl6Uksf1f +kGe8zAdQeT1gYkqRxHfOmxTu/W2G8BDfDRM0SbRcYmrOlzaDzponuQxlSdQ4 +P1bCva0ZErm5v6QaSeKNfAef3E3vwWHta60EL0l8bOeyGK7eBNe8Bi5nnJfE +Cps+Hh/hJsj4slT5/KIkzul+WnON1Qgzz1R3NvlLokIQX9DS80a4ZpFyYClC +Eou3UK/6KjdCZtLlU47pkjgY98Y4cNtbmN+imiTXKYke6w607jvwBkTvmfVv +/iyJlEeDDDW1N6DLeZKq0yuJidZ/uTVF30BIe/IT80FJPH9RU+he32sQ9eUr +DpqSRF+jVUKv3V4DUfO1eXS1FN6b4pssjayHMItkjiwNKWwtiLO8MF4LmRGF +RoHaUriUfFv8RUstNNQ1RB7Uk0K/O3xafKW1sFptVnLdDincEPJUb1V4LQQJ +62u5m0nh8Y6la+RNteDXOXR2i4sUGlntHsg8XwNeNvShgltSOBKQ9niLdDXE +RusoRtyRQgUfdwkbnmooaNh71jleCrnCwl7FsapgTvPCP/IDKZTttN1j1VQF +HmJvJXyeSKGO6uzjXt8qONl90kKzSgp/zIlaThVVwmH73PqXk1LImHxs1GFb +ARekhL61zkghJ58/9ZhKBUT3efONzUthulLeaoW1FVB1WM9a8LcUxq1dpa5S +8RIoLu/GXVZLY+/blKvnqS/hP/dva/llpFFzG10u+lcZOF5VOOC0TxrbWkaK +PtSWgA+G+/iYS6P2J52nUyklELliKuGGlTRGPX9go+FfAq8Ci4aK7KXR1IAg +DPVKQDrUwJv3hDRKrPqVZVb6Ar5EH4kvCJDG/dsNjFklxWD/6EHfqgJpXCh1 +vXWmoxBq62vS1hVLI4+L2NhySSEofh09SSqVxhtvhZPzEgthccuWn5RKaWQc +jM2+4lwIcRWV/LpN0uh5fVC17EcBtHzqR88haSw8TRxLki4AA35qah9JBqk/ +pszJYfmQpWJ0YkREBvnzlVhvz+SDkNWpLd/FZDA4YDz6gU0+DCQWlC/KyOC8 +P7dWGiMf/BQN2skbZVA6UPWeVGMelBi6rDIxYLOW/e0soTzYePnx8RdeMris +PH3jkWcORJ6uUw4/L4PvAlZIC5nmwMzhgT/2F2Vwxu7KgzxaDhQaSkRz+sug +8tFHqb6fs0GXP6pkzw0ZdE3xs1TfkQ0mj3x4hlNk0DS2OHyLTBacbDDMEvgg +g+khywltPzPhXdkR76FWGXR6fc+upjMTNudcheJ2GUwrshftKcqEuZjSjwe7 +ZTBHVLM7xCsTLh7ctJQxIoM9PnG3auYfQ9gUeY/ekgzuWFOllLaYARa8nj8L +yRR8KoE2g7LpsGIXo0lXhIKepBvxeivTITe470HdBgrWL4eX1QynAc8Kk53t +4hTkZf7XsTszDV79pN6Zp1Aw7Pu+dkPlNGCMdKiobKLgivNHxxuMU2GpUuv0 +M0MKHlOotkpPSIEnf6e3axhRMC9J4l2vfwpY6WQIV+6ioLmVCUnzeArkFwtV +NJtQ0Ct3xMl2Wwocy5lYO7WfgpZdAcL6LcnQkpD0ZKMjBSu7EiSD+ZIhzXvF +yBMfCl6e2frK2CgJmsULyzZcoGB4VJPVoHQSLFYeiw72pWC5prjss4VEMON9 +p+N0mYLnVvy3aywjERYfxN0SvUbBbsXhkUYetr1BCa/fpOCshrka43MC/BS3 +uu+cxo5PX8c7KjEe5Kq4z7alU1Dg1Uua5cV4MHUp34mPKZijJO61yyYeHj2j +zEk8Zev17jT3CzLbbjCx6+MzCpL/LE7lRN2FZHf/he3lFKSqGXu33YwD46qn ++2XaKBhaPxbn/yQWEuP0fgV/pOCFU9Lr5W7GwpRby4Pv7RQcPMxaHj8TC7fF +FiZKuygod+DH/VHNWOj13B5i8YWCn2k5Bfcbb8Np2qeysHEKtvcq1tSzbsGt +8FXyrGW2vqfXlI0eiYHhw/GNdhyyWDLx0HPAOAbUNZTOVq+QxX2O6ZpLKjHQ +M7TvVSSXLMbmZpjErIwBeb1EGyavLN44Y7JZLSMaiqdVbjoKy+KF5wMcgYNR +0G1xeKFBSRY7lyY86rRvQuZ0wlqzTbLYYRTS94LvJpwP76B83CyLjgEvkycG +I4BcZWzyRVkWPRTvlgtFRICZklryrIYseh9rT7McuAE1K3iNxQ1kkXZr7OqR +u+GQlVuQdMpeFrVy9W33bQmFi7unns84yKKe/67cJ7yhsGuY0eB9SBYTrkhw +ao1eh1GxB3NXj8iiwXSGz6+k60AJDjWKdZXF/FP69nP81yH2oMPsSy9ZTG8e +fhDzNxguc68x5Lspi7af9QJv/g2EBl7C3jdSFhd0RnjlBgKBvN773HCULLqz +ti18qQuEbMGhlLJbspj73FuhKSIQesQrl4/Fy+KxY3r63tKBoL3pfEllqixm +PLbt69l1DX7tH1M6WyaLK3PGqfdL/MHAQnpHb7ksrm8IPFSe7A/RVpZ2RhWy +KHww99tSqD8wDtaGSlXJooh3he6QrT9YOz8ceVsvi6zZ5imP3+xe97F+KNcq +i6PXnni9uO0HXvffCLWPyaLfzcy9zfOXQPdIRrzDV1nkM+wzcG64BFzMYOmx +b2w9pM7t0E26BLHF+oq/J2VRICruU57RJShqrdhOYcliuIHuUMrDi7CwpvCM +G4ccBihe3rr/oC/4eiU3c4nJocrFqhK3fz6gr3PVIlJcDl9RDl+I6fEBXk7H +7g2Scnhtb6zw5AsfSIiSGFWUkcMym62pRmd9oOxp3N99NDn8OnZdL2DUG5b6 +IzYmKcth5vpL56q7vcBvj2+4mrEcNlznO+887gmnDTUHXpjIYRNn7Q7bJk9w +1Pupob1HDp9wa0355nqC3ibvEWKfHK68W9Ct5+0JS+vO4i4rOVz3L0fsLZcn +XHrnumB3RA7zC/tiipXOwgUTmyP+F+Xw5vSOvbGbPcB1x4ZSzstyWLvZIiF0 ++TTY6HTyB1+RQ22tkOb65tOgoWRREeYvh1u6a/XFzpyGBd59ordD5PBes9Uz +0WJ38G40ak6/JYdhAp0bpfe6geduDe2mp3LYeFrRIOT5Cfgvc+6WarYcJmkP +R1+6eQJMuXMn7ufIoXTu8PV01xOg8EY+yS1PDr9xz++NkzkBPQZCHHzFcpjV +Y2w/FOUKBjhZv69aDjV0XupP+h6HDRqp+zu75DDma4bj4FkXCIpzfEp8lsO3 +jQ8VRg+4wNwPsZWPu9n+H7OliWxzgXeF0YXnv8hhp1T/h8UFZ/BX8dsgNiSH +huXazLd+zvBtk+2Xg1Ny6HSi46J53FF4Kc9/YoCLihz9ax0Dh5wgY5fnVtfV +VOSyzP7m/sYJotw6fk6toaL2RClfUJYTHCm8H7LES0WT41EkFS8n4DZgpG0Q +ZNt7ygdvrnEC86Pb/9sjRcWe6OXj69QPw7eUc5Zlauz1Z7ttJw87QHt9p+R2 +DSr6NrmuLlJxgIqvWsNvNKl4WTU2u47LAaKVOc516FDxkLP4prIn9qBeHRE9 +s52KklpbROYWDkJAf3qTghkVDUrOmWs+sANRmU/bbx9j+zt1u9xCygauPtVY +y+FKRZl9bbpdi9Ywqna33e0EFU8wvP1udlpDganV8Z1uVNxBKRWLjbYGs4vt +EYtnqej6/nnGijXWENTR0nXoChWt1D9Jyfy1hNkbb903xlJxk7DD16vrLMBm +A1Pj3h0qqhwMnpmdModXj0I5Vt+l4mxkslJUqzlElBrd/u8eFQe3ZxgY3zUH +xlh9ya2HVJyY6jF8KW8Ojvo1Kxefsu0IlXZGB6DxV9m9+moqbggyv/T9yT6w +KfqtqlTL9resfW9zzD4YO6vdHF1HxUjG8YY2333ANVHKaf+GiiWdZgP6xvuA ++FJyau4dW8+xpVqvz3shv7pYT+YTFdW5+eZLPcwgPvz5wIUpKgrXmxs7NZmA +gtHcpb5pKiabOriIpZpA0UoVEYNZKq46Yuq79pIJtF3ON+ZnUfGYk5h+opIJ +rPPIK0hfpOLBCWO341HGcNU8N7iNSx7PGczrOjrthmOST5kbJeRR4ogpX9FG +IzibFKOSJymP+5qyTmlzG8FlaV+dbdLs9Xm6n34N7YQYyq49urLyeH9+9IpM +4k52/Y2eMaXLo9H5w2d5+XeC0Ca5EjdVebS/+stm3T8DqNBL2JljIo+tJ3eq +B6/aAQ2vAvYq75HHxbzIFTfG9KENTtgUmcnjyOS215Vv9WF8u+bJiv3yeHKR +KVoUqQ9COztvvreWR7nU6eXX4vrgaibUMXlUHp3qq8FYZzuQD4Uf3XxZHiPn +HeqmNAASjU6fjr8ij5b5s+a/eADktx7w5bzKPm93i5phLwHbVohHdQbI41BO +2onHAQRYpD4p87suj+6vXnAEftCDO2MNgh9uyeM/dwu6wXldEDmzpsrjiTwe +Nm5wOsfSggc2E42fn8pj0O49I6rNWqCw/UPHjmx5LK3deG1jphaoC92d2PBM +HrcyM6vr7LXAqlBhQ1WhPPIZjASFNmjC3V+GpwWq5FEh+BCH6FMNEA0Ikszv +lMeV8uUFBrfVQHKzQJzWJ3kk1Dn4G86ogWzPff6az/IYl0g1u2amBopqBZwf +e9n5ibGTSuBVA52vA+OsQXncpnby0Z7gbeC4H4o0p+VxVmhE4FKQKqTK/t5T +tYaG9wifpcrHypDZHPxmFw8Npe+89w+4oQzZlwS3t/LSsDkhbM0ZD2Uo7GBs +G1xPw9bDzv/aNJThdZi1OBeZhuG/3ccyG7fC+GzhqBGFvf589Le8mS2wucbj +6gdNGlY3lf/6MbQR8jp//tbTpqHB4DGn2pKNoDJx1Sdbh4btqZfprTc3gho5 +2j2MoKFHTI9ZtuZG0D2Wd3CHAQ2XzWIqrGKUYDfvrMaLvTRsU4zzVjJTBOcD +njMPjtGwj3bP4OQ8HUaP/T613pWGt75/KIr9QAfXS9fGLp2gYdDNpHhWFh1O +pd3qs3GjobUkzcfchQ6eC8/fCXnSMHKlK0dwtwJcTZjPDLlCQ8m63QZezTRI +GPRyOh1Lw/F4s+KAbioYML7kdNyh4aPwT/85VFBh0t3wt+5dGmZ7L+U6J1MB +F4Vvr02g4c+mz4azx6gwwv+iLvMhDf91zTz890MOtuot0oee0vCukqDPSwk5 +qL97Zcq6moYpdvQ4ahAFTn8Z0a6soeGQ9J64wVMUEKWaXVeoo+G1S0ck680p +cDJXmvLjNQ31Buwn5qkUEKiv3H/rHQ2Hfft+jtyQAbu5FUXvumg4spSlEEeR +hhnTkEvbp2h48sPv1QoXJUDEOk79zTQNR7s+ch8ykwAdp4xZ01kaHrLe/vCL +nASEeL8+bsOioe6K6tYn78RB6sFqC4/fNNy68chJT6o4GE+HbExarYBir8qv +HP8iCmkx17/8klbAjOAtKhL+ItB4/268H0UBd4ed+KxnLwLT6Y/NueQUUJyW +fuOepghol715y09TwPrIH49/zwpD6+CaYgUlBXyo2rxse1wYllVDIy00FNDa +RXkY7clg0xkKeXsVUHWH3aKrmxD8MbqzJLFfAVllw7i0TwgelKaUXj+ggCtu +f9pZoiYEw4llqocsFbClaCLxyT9BOHP0O53voAL2F2ZMnrwjCKEzewXcjing +rV01UmoNAvCCd8MA/Qr7PPn2xOpbfGB3mfrgtp8C6qwV7tR24YOlyS0H/11V +wKKCK+U/NfhAv3VXR+c1BSR+CfzW7lsPzXcvvg0OVUDdKwFnezeth1H5vvyh +2wo4Fizkp/55LYhA+rWHTxWwOz5gf4UDD6h52+YysxXw+3uHF++38YBF1vru +ghwFNJ9qE6Ss44HbG3yUG/IUMLaN+Te0nBsEZnb2zxQrYG5RH3FYiht4U8b1 +9GsV8EPLsw1N31fDMufGxeEeBXzy+cK68RdcIKXVL+/xRQEjr++d8I7jAl2P +2H2LfQrYMfuxQMubCy71LD1eP8jWOyLusZMqF/wqeG+lPq6AU/18VcznK2HO +2aPwOoudz6lrKftLOWH09XMPxfV0vOO2w7BtggM2bTZyy+GjY9JZg6vLLRzg +dafHdasAHTfnqataFnMApzPXEXUSHbt2f1nyD+AAqRVWFvpidEyMLvrcKMYB +FjqLmnY0Ojrwp0Jf6jJR+ww4w/Xo2Fs70Har4g/Bu6F9eR2w91Nz/Rsb84fY +5+f6Jwrp2K/U1dHr8ofoM41h3dlBx75qj086/H+I318HR1N209GxwlpfyeU3 +oSIf0lRqSUfzsJEaT6lFIjn+XexXdzqqVb0s6Hu5QDgfd7h9wIOO6fELZM37 +CwRDfSqm/Awds9oeqtX6LhD5H/mjbp6jIxUWo9w1FogaPvMwZV869sjYlvMW +/SCGgz5f8Q1i288l9zBKWQTj7Ogxnvt0vJ8zkCg6NEd8h/Munol0rFc8G0h9 +M0fk8XE79yTRMWSxrto6a47QymY65STT0Wnt8H4drznCeMzt4P4MOqYYlzLG +18wRbg7ze+/l0/HZixSRdPVZIm83hxazge2//uzq7YeniZlezYy8t3R0q7Wc +Gdk0TSifOUvSbKLjh68Q3/NningeNzi5s5mOuss7ZF7ETxGFQ3WPnNvpeMLa +TFS2c5IouRK2LrmfjhuluCrMD30nqvOF+kUW6Xi3YF/l/OOvBKehyZ4Hv+l4 ++7nwRJ3fV0L/U2AZbYmOYbePyH+y/ErULbNit/2jY/n+v6K1XF+J1yZduw+s +YuAlen/yQ5dxonHkfsFNQQbGuV/+K6Y6RrSJ0a5zKTJwf9zfFad+DxPRZLuF +s0oM7C0yZv3sHibM+KNc/tvIQI+8cysLy4eJRq7FHWVbGOgFtY4lV4aJ6ul3 +HGfUGChZoOD+beUwkVfvdbEHGfhVKsumRHSIiDxb5/7cmoEmFmZ6qkcGCFO3 +xV4ZWwa2vX3wSW7XAMF7fLPpTTsGFt+6GKC1eYAIsY9XdHVg4EiQjVDP737i +ipHbmNRRBmb0mw6M3+kn3KTITmGnGRh1KCnlT/p/hPHboxaHg9n+eV07R/vQ +S2z9cSH2dQgDWw74r2hK6yWEZSPbN4Yy0Mwx5W3uxV6i/0KJxWI4Awczz93f +Qu8lfBjrLW9Fs/U5eN11XWAP8eh6sWXdfQYKprw/PWLYTfwx5LFmPGfz1wmo +/9FF9J+VvhtZwECJbou28LYu4nWSaherkIEQKcYMetZF3PrhYF39goE6F6RZ +Aie7CEb6c2u7CgaentrUFD7QSVhw2dtENDCwYONGncrPHUR2Ta7tTB8DxZd9 +7hOTHwm+glPc3v0M7Hz+1M7n/UfiTCrjxeIAA5+d2FHXn/ORUA16RF45wkAt +3n0Wph4fiTLDuA/CEwxUF/Mp8Ga1EW8brhjq/GRg+f3LLu/XtBGjzabKIfxM +XG+7fXXYvhZiVyVPP68gE0scNv+7pt5CPH32OjJKiInq42PeGZIthHs0fo8X +ZuIlnvNPWts+EKz92x5nSTBxcFjfPZPnA7GyQ0Kqlc5ENVvrVImQ9wSl5xu3 +JDKxKupdWn1xI/FPJa00ZDsTX1XWXP8X2Uj0hTucnNVn4l97l0Sv441EonZL +02tDJrZycf/hE2skxBKKIs+aMNHv18N1f/zeEkK2/uQ3VkxsOPJD/JhlA7Gq +S5ji6c7ENp+YhT2Kr4nhzR9aek8zkRG74rcpz2uiLiQ0wOgME0//x5S6Ml5P +XFP/Myh5jolimdUPPB7XE8t3+tPfXGBiT19g1h16PfHLIktJKogd76ePiplb +64hvbajRkMDE39w8xeuda4gMhomIQyITHw2ImPgZ1hBOfpY/ZpOYqFk1lSpL +ryE+MU8WSKQw8Zq/y75/36qJ1/63t3g8ZmLl5Xy/9d7VRMrmUbpIIRN/DNps +33yrirAJvyHq/J6Jt2aqj7/trSDI/Xd+/mpmYvb5aBlmVgXxQS2582YLEyd1 +pHb3+FYQOwcKY198ZCJ9uqR5m2gFoarZJ7C2m4m0d6aDOTYvCb7RrTzPR5l4 +ZdPMnMF4GdGoozO+c5zJfn+tCbhZXkYExxi+6fnKxF20eltKVBmxpGsXvGqS +id/7/ZblNMqIb7cDV9jOs/OferchMryUyPh6s3+SxcSE9C5bycOlhBPEV15b +YGLc494zM2qlxKdv2VeyF5mY6HnV/uRgCXEbX9hv/8PEoHcKu/lLSwizuGqd +ziUmhtSnTvyKKiF4vzeJn1pm4hbl7laF4yVE/fbOxX//mBi481R4PFFC/A9c +W8oQ + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 13}, {0., 1.2977994856441957`}}, + "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:eJwVl3k41N8XxyUVKtsM2Q1jzAxtyM7nnEQKabELpSgVKaG0iCwhWUqSKLKk +LJElS7KXKCFLIV87JfuklPSb3z+fz/N6zn3uPed9lvtc2SMeB1w4OTg4drM/ +///7XDZfx8EhgGST4dJ1kzPwvPZU6kdOASxaX2lCmpmBSd4g7cerBPDDceHP +EvMz4Hyv0NVsrQBWy6zsVVmcgf3FwvWJIgLI7/pe68KqWdg403VFa5MAmmec +nHOQnoWBo/bTnnYCqPph7L7//lkwNXFpGykUQMOHfItOL2dhl43td05fQUz+ +flmy+9kc+Pwsdf7vkiCe+Tor7lYwB+lx4l/K/QTR5fdo6t/iOeDs6HnvFSSI +5FVmWjKv5qBiv+Oz0ShBHB0/ln3w3RyomBz1bMwQxNNp5zwKxudAknD/FdMu +iP/iFEefUuZhmhrAJbtVCNe56L/liZgHN9oj6WkVIWw31hdQjZqHbwq1mhVq +bPuqtbx2t+ZhlLnK3VZHCHMdAxaS4+ehb0tYR8xOIdRo39wpmD4PzToxGZwO +QjiXlF59oWIess1Tdg2HCeEOoWvHqN/nQdGy5sjzCCF0eJn9YH5qHjKthi77 +Rwlh3nPu8KrZeUizpeVL3hHC78lCdvt+zsP9Q0/ELJOFkPHg3t+dnCwIP5X/ +rb5YCHXbdxuEbWDBicDqiMdDQnij1iSICSzoX68S9HxUCMMi1KULtrPAKv7R +pYqvQug2z3isYcCCHTmBJz9OC+EevyoH5d0skOoy3PXvjxAe/N6zY/QAC1oV +G1dak0lo/9ZOdY8LC3YVaf9x2kDCw9cXeAOOs+AVZM25iZMw1EpE5dkJFmRZ +RAxco5Dw0r8yo9/uLAj2M6vM3UjCI4VjV419WKDV1nZxtSEJFe+EFjYGsyDP +foen4C4SWjQm/nlwnQUKYwUnJE1IKFRX9MstjAWkpVgblf0k5DzwaPpHBAsm +adbqjg4kdJZf8b7sNguc895sOnGYhFYaSVUH77CgW1uT5nWUhLH7L1MW4ljw +Zq8YOfwECVevaePYkMCCFN+e2SJvErYOZ+ziTmaBKJfp16oLJDTuHn50LoUF +kZEv+5susfdPWC336RELLqUmfRgIIGGw4lq3iHQWWL4/lLM+koSjehv0Up6y +4J11S5poDAlb7Bjv2rNYoD+IidRYEiYfOqmzIocFW37K3tBKIKFSKuc9g2cs +4JEddnXJIGE9u0+8Clhw8eIeZ90nJDweUfzIoZAF3z8WHyJlk/Cu0SkPLGJB +c0iYVXU+Cd8LzWfMFbMA+uf2xxeS8OevAa6aF2z9tOz3eLwg4WxQeU94CQtu +fd9sIFVBworEjm7uMhas3BkPrEoSvroUuFDBZq+HK3SaakhI6lo461bOAusD +7cq+DSQ8pHzZo+glCxqy9DbtayLhOOe+kb0VLNBe9ZhBbyahJs390RCbJUt8 +ZTo+knAu0a974RULbgoOiWd3kvCTZsRun0oWLJ80FQn8TMI3/cLjU2z2qCsS +tOslocJOg7zDVex6lJJZr/wfCa9cNklsYvP+86Hc3IMk1BI4lbGlmgU1LbMr +/xsm4Q6pqYYINm9TPPivaIytv4vS8iCb0wPrfkd8Y9uPB6NKDQtEvmxaODpJ +wt3nToZfZHOo+t1Z7RkSkmstOsvZvBjFMSk4T8KsyEbpBTaf/HpifPwHCUPk +HB2ZtSzo0f84VPmLhJI/cqIs2WyaqPtf3B8S+r10zrnI5oof6d3uyyTMC9R6 +Hs/mzXv5Ow1WkPG/yun4Z2x+mHmhVYKLjJ4u1vaVbBbgHHw3t5qMK/+a/nzD +5msHTRre8pBRuKTU+S2b5wsLa5PXkbE8+PbDWjY780lXnucnIz/9y6NiNnce +v15mJkTG8zsyTjxis1H1TBFNmIyNl9dOh7C5RNwuf2kDGe0D1Tc7s5npVZv9 +UZyM2UxHOW02J7zfmPlUioyKF16/5mbzWnpcagCFjMlVVSIt7Pgv+/97YEMl +Y2R+1vpoNk9+dk3YokBGjRPzGbvY7Kjadmc1k4zVoYJ9i2y9WyJ0Yr4okbFl +583cVDZvH02LKNxMRoNrf0g72fwc+EJvKJMxrX2ZZ4CdT/l75wOPbCPj/jSj +CC82rzY1viigTcZ1NXnywex6OJ9e4D2mS0alq+dVONk8vix59hWQkaO8pfw8 +u54a86ePuxmSsT9XTtmUXW86a22P7thFRmcOVeEsdn1mO9c4ipuQ0ZC2yoWT +zVEb7lg27COjFPOlZgK7vi2uaO+Qtydj7xDsPs3uj1eH5iU0D5HRnx+Vr7D7 +h6GfzTI5QsbEEl2BQHZ//VktnXHOlYxbr6o9Osfux0fRK3hqvcj4IGw+dSyX +BevOlQ10niej34xIaw67n30sz5V9u0hGblXXjpPZLNgtPnJKKICMG0p0Ld8+ +YcFMakOz0022v69YrRvSWGAXEvDYO5qtL4e2TSx7ntS5avuH3WbXz1Gl+2vY +8+bupmzl/Htk5IxzM2lLYgHxIiqWI4OMOzmfcP9iz6+IRiu7h6/IuM0h8NM1 +9nxcyOZXLahm28VeLJ5gz8/DUQ1r39SRETdzFRgFskDVQrtiqpGMM3s7xkb9 +2PPwixSF6CJjZ2HxtkJvdvyzwyO902S8kO/kG+bEnhcfk17NzJExo+tT7GdH +FiwVWd3lWiDjk7RT2hR7Fny42LBr4xI7vw6h1Bgrdvxc2VmXuIVxPoVxZoUJ +O54N586Kywpjx41t5pIqLLhi/31CRl4Y5X4WxA9vZoF6issxGl0Yd/OFNqQq +sSBT0ebg1k3CmD1u+n01jR2fnp7hTi1hlB9vcTvMvr8sj64R89wvjF4T23qd +fs8DX6b/7fMWwijaMh5xb2EeGr4vrr9iLYz22yR3NszNg7bPd85QB2Ec8vLq +5Z2YB+mw1u9JJ4QxODprVL6HfT/n3q96GyCMpet+Up+VzsPDebLOhyBhTD8T +Vm1TNA82mpFF7deF8XbZQMJi3jw0Vvs//e+mMB71DROQzZyH3HaX2B/3hPFi +Ta7vmrh58Pm9xVX2uTC23lcVVj8zD2t21vH7Dgpjuxas05OehzJb9UjjEWFs +KJ7Yu01sHk67Z66THBfGzVEMf3nyPHTGRvBUTgpjr2BH2TQP+34fsli5alEY +FR0vK6n8mAP9gJGFaH4R/ED9VHqqcQ78Xq7uy9QVwZR/YZu6Pebgh8ru7E9x +IljgNRIjkDkLjz7wco/dE8GEN75Cw8mzYOb27uiPRBHEC2SV/HuzkJG+V0Io +VQRlS5/4aN6YBRtRq3CTZyLY+7tbecl9Fsr+HnF99Ya9/5/T551UZuFqw2X5 +tF8iqDl82muyeAZ4HPMSPew2oGFlxavvR6ahwcjkxhpBUaQVR48SeybArn75 +65o6UZTJWbe7bOsYCAXEJkKIGIbcfty2ODQIXn8c9lzQEUc3I+3Er+f6wOrp +mfXhhDgy+5yPrbLqA03bwPf3t4vj1p57niqafbBUnLmn0kgcTc39A6qWvkCw +5/ye1Rbi+NDqVHVOyBeI+xpqFusmjmn6vGc7k3qhpKtgb16SOK46XeWQ9rkb +lgp4Doz/E8dHbenG1aFdsLm+t2CCUwIvCLz4b9SjCw51PhOeXiWBlP7FQmnr +Lqj5Zfn5x1oJpP+kK9TTuiBU79HhlaISGES5tnOythNIb7Q9pLdK4KXO41uz +VnaCYvepCIvDEvgQrT/1RreDNUfz66oqCVy4oG9TMNAKQf33NkbXSiCf+oxg +VXMr5FW53Dr0WgL9T2Xr9Ja3AnfAX4flJgkcfhbZrB/XCiUrNv3Q6ZJAZuV+ +3waTVhBdGUF9MSmB0QNu3/NLW6B7lbF/jrgkNlKq7Iu2f4DVo8Kjl6Uksf1f +kGe8zAdQeT1gYkqRxHfOmxTu/W2G8BDfDRM0SbRcYmrOlzaDzponuQxlSdQ4 +P1bCva0ZErm5v6QaSeKNfAef3E3vwWHta60EL0l8bOeyGK7eBNe8Bi5nnJfE +Cps+Hh/hJsj4slT5/KIkzul+WnON1Qgzz1R3NvlLokIQX9DS80a4ZpFyYClC +Eou3UK/6KjdCZtLlU47pkjgY98Y4cNtbmN+imiTXKYke6w607jvwBkTvmfVv +/iyJlEeDDDW1N6DLeZKq0yuJidZ/uTVF30BIe/IT80FJPH9RU+he32sQ9eUr +DpqSRF+jVUKv3V4DUfO1eXS1FN6b4pssjayHMItkjiwNKWwtiLO8MF4LmRGF +RoHaUriUfFv8RUstNNQ1RB7Uk0K/O3xafKW1sFptVnLdDincEPJUb1V4LQQJ +62u5m0nh8Y6la+RNteDXOXR2i4sUGlntHsg8XwNeNvShgltSOBKQ9niLdDXE +RusoRtyRQgUfdwkbnmooaNh71jleCrnCwl7FsapgTvPCP/IDKZTttN1j1VQF +HmJvJXyeSKGO6uzjXt8qONl90kKzSgp/zIlaThVVwmH73PqXk1LImHxs1GFb +ARekhL61zkghJ58/9ZhKBUT3efONzUthulLeaoW1FVB1WM9a8LcUxq1dpa5S +8RIoLu/GXVZLY+/blKvnqS/hP/dva/llpFFzG10u+lcZOF5VOOC0TxrbWkaK +PtSWgA+G+/iYS6P2J52nUyklELliKuGGlTRGPX9go+FfAq8Ci4aK7KXR1IAg +DPVKQDrUwJv3hDRKrPqVZVb6Ar5EH4kvCJDG/dsNjFklxWD/6EHfqgJpXCh1 +vXWmoxBq62vS1hVLI4+L2NhySSEofh09SSqVxhtvhZPzEgthccuWn5RKaWQc +jM2+4lwIcRWV/LpN0uh5fVC17EcBtHzqR88haSw8TRxLki4AA35qah9JBqk/ +pszJYfmQpWJ0YkREBvnzlVhvz+SDkNWpLd/FZDA4YDz6gU0+DCQWlC/KyOC8 +P7dWGiMf/BQN2skbZVA6UPWeVGMelBi6rDIxYLOW/e0soTzYePnx8RdeMris +PH3jkWcORJ6uUw4/L4PvAlZIC5nmwMzhgT/2F2Vwxu7KgzxaDhQaSkRz+sug +8tFHqb6fs0GXP6pkzw0ZdE3xs1TfkQ0mj3x4hlNk0DS2OHyLTBacbDDMEvgg +g+khywltPzPhXdkR76FWGXR6fc+upjMTNudcheJ2GUwrshftKcqEuZjSjwe7 +ZTBHVLM7xCsTLh7ctJQxIoM9PnG3auYfQ9gUeY/ekgzuWFOllLaYARa8nj8L +yRR8KoE2g7LpsGIXo0lXhIKepBvxeivTITe470HdBgrWL4eX1QynAc8Kk53t +4hTkZf7XsTszDV79pN6Zp1Aw7Pu+dkPlNGCMdKiobKLgivNHxxuMU2GpUuv0 +M0MKHlOotkpPSIEnf6e3axhRMC9J4l2vfwpY6WQIV+6ioLmVCUnzeArkFwtV +NJtQ0Ct3xMl2Wwocy5lYO7WfgpZdAcL6LcnQkpD0ZKMjBSu7EiSD+ZIhzXvF +yBMfCl6e2frK2CgJmsULyzZcoGB4VJPVoHQSLFYeiw72pWC5prjss4VEMON9 +p+N0mYLnVvy3aywjERYfxN0SvUbBbsXhkUYetr1BCa/fpOCshrka43MC/BS3 +uu+cxo5PX8c7KjEe5Kq4z7alU1Dg1Uua5cV4MHUp34mPKZijJO61yyYeHj2j +zEk8Zev17jT3CzLbbjCx6+MzCpL/LE7lRN2FZHf/he3lFKSqGXu33YwD46qn ++2XaKBhaPxbn/yQWEuP0fgV/pOCFU9Lr5W7GwpRby4Pv7RQcPMxaHj8TC7fF +FiZKuygod+DH/VHNWOj13B5i8YWCn2k5Bfcbb8Np2qeysHEKtvcq1tSzbsGt +8FXyrGW2vqfXlI0eiYHhw/GNdhyyWDLx0HPAOAbUNZTOVq+QxX2O6ZpLKjHQ +M7TvVSSXLMbmZpjErIwBeb1EGyavLN44Y7JZLSMaiqdVbjoKy+KF5wMcgYNR +0G1xeKFBSRY7lyY86rRvQuZ0wlqzTbLYYRTS94LvJpwP76B83CyLjgEvkycG +I4BcZWzyRVkWPRTvlgtFRICZklryrIYseh9rT7McuAE1K3iNxQ1kkXZr7OqR +u+GQlVuQdMpeFrVy9W33bQmFi7unns84yKKe/67cJ7yhsGuY0eB9SBYTrkhw +ao1eh1GxB3NXj8iiwXSGz6+k60AJDjWKdZXF/FP69nP81yH2oMPsSy9ZTG8e +fhDzNxguc68x5Lspi7af9QJv/g2EBl7C3jdSFhd0RnjlBgKBvN773HCULLqz +ti18qQuEbMGhlLJbspj73FuhKSIQesQrl4/Fy+KxY3r63tKBoL3pfEllqixm +PLbt69l1DX7tH1M6WyaLK3PGqfdL/MHAQnpHb7ksrm8IPFSe7A/RVpZ2RhWy +KHww99tSqD8wDtaGSlXJooh3he6QrT9YOz8ceVsvi6zZ5imP3+xe97F+KNcq +i6PXnni9uO0HXvffCLWPyaLfzcy9zfOXQPdIRrzDV1nkM+wzcG64BFzMYOmx +b2w9pM7t0E26BLHF+oq/J2VRICruU57RJShqrdhOYcliuIHuUMrDi7CwpvCM +G4ccBihe3rr/oC/4eiU3c4nJocrFqhK3fz6gr3PVIlJcDl9RDl+I6fEBXk7H +7g2Scnhtb6zw5AsfSIiSGFWUkcMym62pRmd9oOxp3N99NDn8OnZdL2DUG5b6 +IzYmKcth5vpL56q7vcBvj2+4mrEcNlznO+887gmnDTUHXpjIYRNn7Q7bJk9w +1Pupob1HDp9wa0355nqC3ibvEWKfHK68W9Ct5+0JS+vO4i4rOVz3L0fsLZcn +XHrnumB3RA7zC/tiipXOwgUTmyP+F+Xw5vSOvbGbPcB1x4ZSzstyWLvZIiF0 ++TTY6HTyB1+RQ22tkOb65tOgoWRREeYvh1u6a/XFzpyGBd59ordD5PBes9Uz +0WJ38G40ak6/JYdhAp0bpfe6geduDe2mp3LYeFrRIOT5Cfgvc+6WarYcJmkP +R1+6eQJMuXMn7ufIoXTu8PV01xOg8EY+yS1PDr9xz++NkzkBPQZCHHzFcpjV +Y2w/FOUKBjhZv69aDjV0XupP+h6HDRqp+zu75DDma4bj4FkXCIpzfEp8lsO3 +jQ8VRg+4wNwPsZWPu9n+H7OliWxzgXeF0YXnv8hhp1T/h8UFZ/BX8dsgNiSH +huXazLd+zvBtk+2Xg1Ny6HSi46J53FF4Kc9/YoCLihz9ax0Dh5wgY5fnVtfV +VOSyzP7m/sYJotw6fk6toaL2RClfUJYTHCm8H7LES0WT41EkFS8n4DZgpG0Q +ZNt7ygdvrnEC86Pb/9sjRcWe6OXj69QPw7eUc5Zlauz1Z7ttJw87QHt9p+R2 +DSr6NrmuLlJxgIqvWsNvNKl4WTU2u47LAaKVOc516FDxkLP4prIn9qBeHRE9 +s52KklpbROYWDkJAf3qTghkVDUrOmWs+sANRmU/bbx9j+zt1u9xCygauPtVY +y+FKRZl9bbpdi9Ywqna33e0EFU8wvP1udlpDganV8Z1uVNxBKRWLjbYGs4vt +EYtnqej6/nnGijXWENTR0nXoChWt1D9Jyfy1hNkbb903xlJxk7DD16vrLMBm +A1Pj3h0qqhwMnpmdModXj0I5Vt+l4mxkslJUqzlElBrd/u8eFQe3ZxgY3zUH +xlh9ya2HVJyY6jF8KW8Ojvo1Kxefsu0IlXZGB6DxV9m9+moqbggyv/T9yT6w +KfqtqlTL9resfW9zzD4YO6vdHF1HxUjG8YY2333ANVHKaf+GiiWdZgP6xvuA ++FJyau4dW8+xpVqvz3shv7pYT+YTFdW5+eZLPcwgPvz5wIUpKgrXmxs7NZmA +gtHcpb5pKiabOriIpZpA0UoVEYNZKq46Yuq79pIJtF3ON+ZnUfGYk5h+opIJ +rPPIK0hfpOLBCWO341HGcNU8N7iNSx7PGczrOjrthmOST5kbJeRR4ogpX9FG +IzibFKOSJymP+5qyTmlzG8FlaV+dbdLs9Xm6n34N7YQYyq49urLyeH9+9IpM +4k52/Y2eMaXLo9H5w2d5+XeC0Ca5EjdVebS/+stm3T8DqNBL2JljIo+tJ3eq +B6/aAQ2vAvYq75HHxbzIFTfG9KENTtgUmcnjyOS215Vv9WF8u+bJiv3yeHKR +KVoUqQ9COztvvreWR7nU6eXX4vrgaibUMXlUHp3qq8FYZzuQD4Uf3XxZHiPn +HeqmNAASjU6fjr8ij5b5s+a/eADktx7w5bzKPm93i5phLwHbVohHdQbI41BO +2onHAQRYpD4p87suj+6vXnAEftCDO2MNgh9uyeM/dwu6wXldEDmzpsrjiTwe +Nm5wOsfSggc2E42fn8pj0O49I6rNWqCw/UPHjmx5LK3deG1jphaoC92d2PBM +HrcyM6vr7LXAqlBhQ1WhPPIZjASFNmjC3V+GpwWq5FEh+BCH6FMNEA0Ikszv +lMeV8uUFBrfVQHKzQJzWJ3kk1Dn4G86ogWzPff6az/IYl0g1u2amBopqBZwf +e9n5ibGTSuBVA52vA+OsQXncpnby0Z7gbeC4H4o0p+VxVmhE4FKQKqTK/t5T +tYaG9wifpcrHypDZHPxmFw8Npe+89w+4oQzZlwS3t/LSsDkhbM0ZD2Uo7GBs +G1xPw9bDzv/aNJThdZi1OBeZhuG/3ccyG7fC+GzhqBGFvf589Le8mS2wucbj +6gdNGlY3lf/6MbQR8jp//tbTpqHB4DGn2pKNoDJx1Sdbh4btqZfprTc3gho5 +2j2MoKFHTI9ZtuZG0D2Wd3CHAQ2XzWIqrGKUYDfvrMaLvTRsU4zzVjJTBOcD +njMPjtGwj3bP4OQ8HUaP/T613pWGt75/KIr9QAfXS9fGLp2gYdDNpHhWFh1O +pd3qs3GjobUkzcfchQ6eC8/fCXnSMHKlK0dwtwJcTZjPDLlCQ8m63QZezTRI +GPRyOh1Lw/F4s+KAbioYML7kdNyh4aPwT/85VFBh0t3wt+5dGmZ7L+U6J1MB +F4Vvr02g4c+mz4azx6gwwv+iLvMhDf91zTz890MOtuot0oee0vCukqDPSwk5 +qL97Zcq6moYpdvQ4ahAFTn8Z0a6soeGQ9J64wVMUEKWaXVeoo+G1S0ck680p +cDJXmvLjNQ31Buwn5qkUEKiv3H/rHQ2Hfft+jtyQAbu5FUXvumg4spSlEEeR +hhnTkEvbp2h48sPv1QoXJUDEOk79zTQNR7s+ch8ykwAdp4xZ01kaHrLe/vCL +nASEeL8+bsOioe6K6tYn78RB6sFqC4/fNNy68chJT6o4GE+HbExarYBir8qv +HP8iCmkx17/8klbAjOAtKhL+ItB4/268H0UBd4ed+KxnLwLT6Y/NueQUUJyW +fuOepghol715y09TwPrIH49/zwpD6+CaYgUlBXyo2rxse1wYllVDIy00FNDa +RXkY7clg0xkKeXsVUHWH3aKrmxD8MbqzJLFfAVllw7i0TwgelKaUXj+ggCtu +f9pZoiYEw4llqocsFbClaCLxyT9BOHP0O53voAL2F2ZMnrwjCKEzewXcjing +rV01UmoNAvCCd8MA/Qr7PPn2xOpbfGB3mfrgtp8C6qwV7tR24YOlyS0H/11V +wKKCK+U/NfhAv3VXR+c1BSR+CfzW7lsPzXcvvg0OVUDdKwFnezeth1H5vvyh +2wo4Fizkp/55LYhA+rWHTxWwOz5gf4UDD6h52+YysxXw+3uHF++38YBF1vru +ghwFNJ9qE6Ss44HbG3yUG/IUMLaN+Te0nBsEZnb2zxQrYG5RH3FYiht4U8b1 +9GsV8EPLsw1N31fDMufGxeEeBXzy+cK68RdcIKXVL+/xRQEjr++d8I7jAl2P +2H2LfQrYMfuxQMubCy71LD1eP8jWOyLusZMqF/wqeG+lPq6AU/18VcznK2HO +2aPwOoudz6lrKftLOWH09XMPxfV0vOO2w7BtggM2bTZyy+GjY9JZg6vLLRzg +dafHdasAHTfnqataFnMApzPXEXUSHbt2f1nyD+AAqRVWFvpidEyMLvrcKMYB +FjqLmnY0Ojrwp0Jf6jJR+ww4w/Xo2Fs70Har4g/Bu6F9eR2w91Nz/Rsb84fY +5+f6Jwrp2K/U1dHr8ofoM41h3dlBx75qj086/H+I318HR1N209GxwlpfyeU3 +oSIf0lRqSUfzsJEaT6lFIjn+XexXdzqqVb0s6Hu5QDgfd7h9wIOO6fELZM37 +CwRDfSqm/Awds9oeqtX6LhD5H/mjbp6jIxUWo9w1FogaPvMwZV869sjYlvMW +/SCGgz5f8Q1i288l9zBKWQTj7Ogxnvt0vJ8zkCg6NEd8h/Munol0rFc8G0h9 +M0fk8XE79yTRMWSxrto6a47QymY65STT0Wnt8H4drznCeMzt4P4MOqYYlzLG +18wRbg7ze+/l0/HZixSRdPVZIm83hxazge2//uzq7YeniZlezYy8t3R0q7Wc +Gdk0TSifOUvSbKLjh68Q3/NningeNzi5s5mOuss7ZF7ETxGFQ3WPnNvpeMLa +TFS2c5IouRK2LrmfjhuluCrMD30nqvOF+kUW6Xi3YF/l/OOvBKehyZ4Hv+l4 ++7nwRJ3fV0L/U2AZbYmOYbePyH+y/ErULbNit/2jY/n+v6K1XF+J1yZduw+s +YuAlen/yQ5dxonHkfsFNQQbGuV/+K6Y6RrSJ0a5zKTJwf9zfFad+DxPRZLuF +s0oM7C0yZv3sHibM+KNc/tvIQI+8cysLy4eJRq7FHWVbGOgFtY4lV4aJ6ul3 +HGfUGChZoOD+beUwkVfvdbEHGfhVKsumRHSIiDxb5/7cmoEmFmZ6qkcGCFO3 +xV4ZWwa2vX3wSW7XAMF7fLPpTTsGFt+6GKC1eYAIsY9XdHVg4EiQjVDP737i +ipHbmNRRBmb0mw6M3+kn3KTITmGnGRh1KCnlT/p/hPHboxaHg9n+eV07R/vQ +S2z9cSH2dQgDWw74r2hK6yWEZSPbN4Yy0Mwx5W3uxV6i/0KJxWI4Awczz93f +Qu8lfBjrLW9Fs/U5eN11XWAP8eh6sWXdfQYKprw/PWLYTfwx5LFmPGfz1wmo +/9FF9J+VvhtZwECJbou28LYu4nWSaherkIEQKcYMetZF3PrhYF39goE6F6RZ +Aie7CEb6c2u7CgaentrUFD7QSVhw2dtENDCwYONGncrPHUR2Ta7tTB8DxZd9 +7hOTHwm+glPc3v0M7Hz+1M7n/UfiTCrjxeIAA5+d2FHXn/ORUA16RF45wkAt +3n0Wph4fiTLDuA/CEwxUF/Mp8Ga1EW8brhjq/GRg+f3LLu/XtBGjzabKIfxM +XG+7fXXYvhZiVyVPP68gE0scNv+7pt5CPH32OjJKiInq42PeGZIthHs0fo8X +ZuIlnvNPWts+EKz92x5nSTBxcFjfPZPnA7GyQ0Kqlc5ENVvrVImQ9wSl5xu3 +JDKxKupdWn1xI/FPJa00ZDsTX1XWXP8X2Uj0hTucnNVn4l97l0Sv441EonZL +02tDJrZycf/hE2skxBKKIs+aMNHv18N1f/zeEkK2/uQ3VkxsOPJD/JhlA7Gq +S5ji6c7ENp+YhT2Kr4nhzR9aek8zkRG74rcpz2uiLiQ0wOgME0//x5S6Ml5P +XFP/Myh5jolimdUPPB7XE8t3+tPfXGBiT19g1h16PfHLIktJKogd76ePiplb +64hvbajRkMDE39w8xeuda4gMhomIQyITHw2ImPgZ1hBOfpY/ZpOYqFk1lSpL +ryE+MU8WSKQw8Zq/y75/36qJ1/63t3g8ZmLl5Xy/9d7VRMrmUbpIIRN/DNps +33yrirAJvyHq/J6Jt2aqj7/trSDI/Xd+/mpmYvb5aBlmVgXxQS2582YLEyd1 +pHb3+FYQOwcKY198ZCJ9uqR5m2gFoarZJ7C2m4m0d6aDOTYvCb7RrTzPR5l4 +ZdPMnMF4GdGoozO+c5zJfn+tCbhZXkYExxi+6fnKxF20eltKVBmxpGsXvGqS +id/7/ZblNMqIb7cDV9jOs/OferchMryUyPh6s3+SxcSE9C5bycOlhBPEV15b +YGLc494zM2qlxKdv2VeyF5mY6HnV/uRgCXEbX9hv/8PEoHcKu/lLSwizuGqd +ziUmhtSnTvyKKiF4vzeJn1pm4hbl7laF4yVE/fbOxX//mBi481R4PFFC/A9c +W8oQ + "]]}, "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:eJwVl3k8VO8XxyUVKmSG7IYxZoY2ZM89J1kKabELpSgVKaGURJaQLCWpKLKk +LJElS7KXKCFLIdkpEWZSyle/+f1z7+u8nuee+7ye1znn/fnIHfbc78rNxcW1 +i/P4/9vX32INF5cQkk1HytZMzYCZqWv7aJEQGj4QWHB+MQs7be2+c/utw5Tv +/lI9T+fgBzWIR26LMK5x1X/DF8WC48E1UY+GhfFanWkIE9jAJzfi5ppJwoY7 +RW7ehWywvKSzQ8GBjH3DsOvUczbUrz97RkJOBDuvbbWQUmXDKqN6Qb8hEezQ +hjV6Miz4qbor52OCKBZ6j8YJZc0Cn1N+kqf9ejSsqnz5/fAPaDQ2vbZqnRjS +SmLHiN2TYN+w9HVVvRjK5q7ZVb5lHISD4pMgTBzDbj5qXxgeAu+/jrvP60qg +u7FO0tez/bBYyLd/4p8EPmzPMKkJ7wYbrpZX1dWSOH9e37ZwsA0cV7/Svust +hY/sXRciNZohwjKFK1tTGtsKE6zOT9TBIYe8hhdT0siYemTcaVcJDg/v968o +lMH5MrcbpzuLYIP/o2PPvWVxSeXHtYdeuWDJ7/WriEzBJ5JoOySXAek+y0Yf ++1LQf2bLSxPjZDCpfrJPtp2C4Q3jCYGP46HH8tB8o7Icdi1OetbrXAd/3lWG +Atfl0O6TXvD1/4LB+95r4Y5xOQy4nrWnhXURAnb7RaqbyGPjVYFzLhNe4LVL +U6f5iTw2nVIyCHt2HF4oCB4f5KEi18Bqp+BhZxCT/bj95lEq8kzfrLCUtoWm +3+V3GmqouD7E4uL3x3vhqNQT5gZJBZQ8bCZQvMEYyAcjj2zyV8BolmP9tCaA +WFCIVEGXAi5XqCg0uKkOm2o9L7/XomFNc8Xvn8Mb4O6Qt/OpeBpOJJqXBPVQ +YcYs7OL2aRqeeP9npeIFSbDtCof8PYqotsN+wc1dGEQh48qDJ4rYkxi0r9KR +D8ZePfNUWkvHW+47DNsnuSAl8W38Vw86qle/KOx/MU/k7+LSZjZyYv3ZldsP +/SDaxWlXeZQYuC/hv2Un/4wQJm+OWB4KZaCn95WztPd9RE5tnt1MPwMllnzv +EVMfCErvN14pZGJ1zNv0hpIm4ls7ajbeZeIfXr6StS61RMP2roV//5gYbHQy +MpEoJQaPOPzwshdCtffj9wL3zYIU4fE7rmMd/ktQGntCYUGORerOkQhh3CF8 +5Sj1Owu029svrDQkodKt8KKmUDZs2iPYZbCMjF+qfiQ+rWNDVJO1/YOXZNzq +GPzxylU2jOXdq34TJIJla35Rn5axIODFyv6sbaKY+i9iY4/nHFxu9FdI/y2K +WiOnvKdKZqC0u3BPfrIErjhV7Zj+qQeUek5GWR6SxAdo87EvtgN6VpgE5kpI +YROl2qF4+3tgbVZLlu+SQs81+9v27n8N3rb04cIb0jgalP5os0wNOF1W3O+8 +VwbbW0eL39eVgoEgNa2fJIvUn9MW5IgCONFomC30XhYzwpbutv/KgsUq7VNP +DSl4VLHGOuNuKvySsL7nkk7BCH1dn5ikRLgRuUKBvURBi1OryscOx0F2XmHy +SQc51M7Tt9u7ORx+7xtXPlMuh8tzJ6j3SgPBzzulhUdcHlUvVJe6//OF86a2 +hwMvyOP1Hzv2xG/yhPWaafu6uuUx7mum09AZV/iWetaqXJ2Kpmd67KYOOcLs +tTceG+KpuFHE8evlNZaQGPls8Pw0FUUaLEycm02hUu+uUa6pAradMNIIXbED +RE+vqvZ8rICHTBqdz7K1IU3uz+7qVTS8Q/guVj1SAZf9XjP3j9Kwn3bH4ASL +Dg23L03b1NAw1Z6eQA2hQHrc1c+/ZRQxM3SzqmSgKDznXz9Iv6SINgodSTU3 +BGCJe8PCSK8iPv50fs3Ecx6oewrckXp07KsbbL9R+ZdgnBk7ynePjvdyB5PE +hueImgLhAdEFOt4u3FvFevSViD5T7/HMhoGmluZ6aocHib+GfDaMZwxc93US +Gn52E2MtZiphgkxca7d9ZcTeVmJFtwjFy4OJ7b5x87uVXhG2kdfEXN4x8cZM +zbE3fZXEhpnuS9obhdAi88Sco8wsqJoe8WrKXIen0s96Fk7MQYtuXCa3ozDO +JWfUnK9kQZtS03IbMgkd3tir7XZlg1Spn2znBxLOJQX0zL9kw0xaY4vzdTK6 +vGS3rU9ng9WRVeJe+0TQe3Jrn/MfFugHjc7HCorie+rHspNNc1D+32G3l685 +9fz31Dln1VlI+BpuHu8ugen6/Ge6kvuA9FrHU2aLJF7sOrYle3kXiC2Poj6f +ksTYQffvBWWtkJXsf9IpQwqHEl6bBG99AwFdw2c2u0qjsfWuwaxztfDF49tq +QVkZ1NpKl4/9XQ6tHwfQa1gGi04RR5NlCsH0oS/fSKosmsWXRG6WzQbGaKeq +6kYKLjt3ZKLRJA3MG5Xx6nUKzmpaqDM+3YVTtI/lERMU7OhTqm1g34DaZfwm +EgZySLsxfvnw7UjQ2XiutCpNDjMf2fX37rwC86uKTrtzyWOQkv+WfQf84OJb +t3n7w/JYUNQfV6J8BgxwqmFvjTxq6r7Qn/I7BhZHtn/ZLU3F3tilY2s0DkFI +Z2v3wUtUtNb4KC37nxUU1JToyX6kogavAKvM0xyEN8qXuqspoMPl37Zr/hnA +rfHGde9vKOA/D0u6wblt4LQPirV+KOCs8KjQxRA12MU/q/l8Dw3blRJ8lM2V +YIveAn34CQ1vK6/zfSEpDyY/wjYkr1RE8ZcVl459FoPwmT1C7kcV8cbOWmn1 +RiHgT53Q069TxPetT9c3f18JlroLWvY0OjoKpkF/2hIxEvLpkl8IHalnU3oZ +ZWyi9FLEmpQBOm6Q5qm0OPidyG/wvtCLDPwqnW1bKjZMPLxaYlV/j1O/qe9O +jRr2EG8aLxnq/mJgxT1/13er2glhu0Dya2smNh7+KXHUqpFI3TRGFy1i4s8h +2+2bblQTkScLvjWUCOO2jl0GEevZkOrXO1vsQ8K2kcydvCls2D6WHlW0iYwG +V/6SjGrYwJgdGe37QcbzBc5+Ec5s8P2z2U3umQi23VMT0TjNgiRe3s9pxlJ4 +rcDRN2/jOyBqv7aMrZTGO9MCU2XRDXCi54SlVrU0/pwTs5ouroLPsYcTC4Nk +cN92AxN2aQmUGrquMDWQRRlth5vZwvkQMU3erbcoiztWVSunL2RC693kxxuc +KFjVfVcqVCAFUjwC57dXUJCqbuLTfj0BSn6oXncSkcPzzwa5godiIP6A4+wL +bznMaBm5H/dfKJT42jyQb5PDsSuPvZ/fDIDFgagNySrymLX24tmaHm/waTJu +ybghjxFCXRtk9rjDt412nw9My6Pz8c4LFglHIGggo1nRnIoGpWcttO7bg5N+ +7fKFJ1QcQqiyN94Ply3yQtt5FPCsAWubk/MucDMX7pw6ooDODTVgorsdbv82 +PCVUrYCKoQe5xJ5owsRs0ZgxhYYt52K/5c9shst3WVlhl2goVb/LwLuFBvZz +y4rfdtNwdDFbMYEiA0tq4dGWmpx56Koygg5kGFPoLxi+qYjjocIBGp9Ww5yL +Z9FVNmd+Tl9J3VfGDaoKYc1lVnS0iBit9ZJeINwdWXvuFNDx6fNU0QyNWaJp +9F7h9XUMTPDw/09cbZxwlyY7R5xiYMzB5NS/GV8ISx4H26hGBhZu2KBb9amT +WN4pKd1GZ6K6nU2aZNg74rdltrJ0CBM1Pn5QytpSTwiMbeF7NsbESxtn5gwm +yol9JSINSaJCKOj2Tvv8ilmo3Of0dCxmHY5NHM058HYO+jdHdMYZCaNmx6au +dRkskO423PnvrzAe+N67Y2w/G25832QgXUnCyqTOHt5yNjyMXcZX503G+xGs +tPE8Du/19AyNtEVQYaLV/RCnftOHLZevWBBBJSd/ZdWfc2ArZh1p+lQU+/70 +qCx6zEKoF2v3SksJfGB9siY37DOE6z08tFxMEkMoV4ym6rqgdNnGn7rdksis +2ufXaNoGVyxT9y9GSWHJZuplP5UmCBHR1/Ywl8ZjnYtXyBvrgOL6dsJ1pQz2 +vUm9fI76AhIqqwS3Ncug19UhtfKfhbBNMKZ09zVZdEsNsNLYkQMvf1FvsSgc +nn/f22Gokg4L9xNuiF2hYI/SyGgTXxL0eW0Ps/xMwU+03MJ7TTfBXFk9ZVZT +Dn2OdqRbDV6DXomqpaOJcnj0qJ6+j0wwFLdVbqew5TDSYNtw6oMLsLjmDO60 +lsc1/3LF3/B4Qa+BMJdAiTxm95o4DMe4Aa8BI339Oirq9FYMXV/lDOYXOqIW +zlDR7d2zzGWrbID4XHpy7i0V/cYX67w/7eHo27HTZnQFND536Ay/oBFYpj0u +D7iqgB4vn3MFv9cD3a+DE+whBdyqfuLh7tCtsO1o/oEdBjRcMo+rtI5ThlHB +5/VZD2j4r3vmwb+f8iB9f6Wl5x8abtlw+IQXVQJOH/lOFzigiANFmVMnbq0D +oRmjgZkSRcwr7icOSfOC9DJrS31xOibFFn9qEueCWgGLCBU/OvbK2lXwF/8k +iobrH7p00PG4jbmYXNcUUfPjLddpdQZKFSp6fFs+Qvgy1lrdiGXgxQNX3dYE +9xLlhgnvRSYZqCHuW+jDbifE7xZHnzFlYsDvB2v+BrwhXgXe3Oz5iIlV/gUB +a31qiHsHH4tbpQgj4/6d/4y42TBFs9FwciShi8Kyd+U32VAqYV+wuJ6MDsEa +m1w4+rPnszSF6CZjV1HJ1iIfNuR1uMb/vCOCF2rz/FYlsEB31eM8hooUap4b +L+Xd2gJifgIlIdNS6Ge8QviV+yvwFH8j6ftYGnXVZh/1+VWDTLiBD/9xGZRc +8TvbvOw5BCgZdJA3cOZjsNod6aZ8uHBg42LmqCz2+ibcqGU9gqO5k6un91HQ +qjtIRL81BcwMJnd+eEpB8t+F6dyY26Cgl2TL5JfDa6dNN6lnxgIlNNw43k0O +C07qO8wJXgUblwejbxrkkD3bMu355zKUP0n4by9NHr+OX9ULGvOBef69YjfD +5PFOi/VTsRIPCFQNWC8+LI+GFTrMNwEuoFETFTuznYpS2ptF5+YPAGO8ofTG +AypOTvcavlCwgDWe+YUZC1Q8MGnifizGBISNuq6/s1FA+bQfS68k9MG6SHF9 +dZECChiMhoQ3asGrCBsJHjINI/94jGc1bQGv+Wdvhb1oGL3cjSu0RxGEGqr2 +3XhLwxG//l+j12ShbWhViaKyIj5Qa1myOyYCLbcvvAkNV8Rtl4LO9G1cC78L +31lrTCji9IBANfPZcvjzdWgsdRcdnSpt9JVd/xAm4+4H9mXSMdWkjDGxao54 +Zdq9a/8KTv3QB1IeuE4Ql4zdx6WPMDBzwGxw4tYAwch4ZmNfycBT0xubIwe7 +CPa+rY+yJZk4NKLvkcX3nli6NZDx+jwTe/uDs2/RGwg1rX6h1T1MpL01G8q1 +fUGEBphX5W0g4eGi8csmvmzICK7/E/WNhDuOhaJqLRuI5zHxXJlkNOJ+zPs7 +gQ0yEW3fk4+LYGhs9phCLwus3h3MXRtNwjG99XqpT9jQVPDjmLshGQfy5FXM +Kjl85snJvsgrgqxUxullpmz4djN4mR2LiaVptxujI8sIlztFbuarhbBGdnmf +6sIMcHf2vvMOWYfkFebasi/nYIy5wsNOVxjznILmUxJZsCM3+MSHH8K4O6Da +UWUXG1rCIqxrCkj4TpiVOVfChr8rZTLPupFxy2X1h2cL2ZClZHtgy0YRzJkw ++76Sxoau+Ci+qikR7FvXWf6DjwWZGXskhdNEUa7ssa/WtVlYLMnaXWUsgWYW +gUHVi5+h9rfVp5+rJZH+i67YQOsG3qD/HJeaJXHkaXSLfkIbzDxVM2oOlELF +EIGQxWdNsFJ9VmrNDmlcH/ZEb0VkHVQf0rNZ90caE1av0FCtfAELmzf/olTJ +IONAfM4llyIoMpSM5Q6URZUjD9P8PuUA3zJTow4JCvIzv3TuykoHc/63us7+ +FDy77MvO8cwkuCk+P1nWTUH5/T/vjWnFA7naxPSzihx6Kt2uEI6Kgpx1w6nl +N+Qw75mPYnNUMMSX6Cv9mZJDoZiEj/nGF0Fvo88osVcel98u7NHz8QLF1wrJ +7vny+I2XtSdB9jgcLroXtsjP8V/HYkiq3s5QaGZ9zMidijsoZeLxsTbAM1nG +7fCaiqVd5oP6JnshjrJz9zY5BbzHGrskm2QEW5dJxHQFKeBwbvrxR0EEKKkX +cn/oU8C9cfbSd/nVQZ0c6xFB0NAzrtc8R2sD4ILIzdV3afir+ZPh7FEqhPm8 +OmbLpuG2ZTVtj99KwEhSudpBK0VsLZ5MevxvHdxc76vSmK+I8e3M/8IreIHb +heewBomO3bs+LwYGcUHBB8GY62c5+hUWYjw054lnCUNTRi103La0Q/Z54jTR +xLOwo3wzA72hzqn00ggxcL7UciGSgUNZZ+9tpvcRaiEPyctHGajNv9fSzPMD +kaTT2vzKkIltPLx/BcSbiI/ME4WSqUy8Eui699+3GiLdjlYgdUsYv6cI2+/9 +xQLSYryt6j4Scu9/+ONnFBtYRUV1KWvIWBF680EdZz6rWepUTjeRcWZP5/hY +AKdfagKffLkugkf8IoTkslgQGea3fpImhVaLTC1WWQuEdaQ8thiSwnMXtITv +9L+COa3z/8j3pVGuy263dXM1vAwuHi52kEEzA4Iw1CuFwaTCigVZWWQF8mqn +MwpgLq7sw4EeWcwV0+oJ886CghLhyhZTCnrnjTrbbU2Fh08pc5JPKNjw9hTv +c3Ii9A7vfRnNI4fxeZmmccvjYEz8/tzlw3Jo8CPT93fyVWAcqAuXrpZDUZ/K +bcN2gXA3RnJMSVYey223pBmf8QVNZcvKiEB53NxTpy9++hS8LYotOvdZHruk +B94vzLtArArX2U5dKh50kdhY/tgBosqMb365w9Gv2zMNTG5bQLt/gYkgm4pH +ncX1k5RNYWK71onKfQp4YoEpVhytDxrCtyfXP1XALcysmnoHbSjqZGwdWkvD +tkMu/9o1VeBk+o1+W3ca2kjRfC1c6XAiT4by8xUN9QYdJllUCuiUv34jSFPE +huifj/7MioB+287OriuKSPwW+qPTvxYu9i4+WjvEmd9RCY+c1Xig3yyOfWsH +HftrPD/qCv4ltHOYzrkpdHRePbJP13uOqF9ix2/9R8eKff+J1fF8JcIcEpXc +HBk4GmIr3PtngLjx09Gm5jkDdc/LsIVOdBMesfg9UYSJF/nOPW5rf09c0fg7 +JHWWieJZNfc9HzUQRoNF8c8/MJH+o7Rlq1glkW0ZNXiFQsKL/8qN/3iwYUBa +dq3KFxJe8jdNaq5mw+2NOSoFd8jIneBu2p7MBh3f79zhjiI47O3dxz/Jgotp +ye8Hg0gYqrTaPSqDDSvNTC4I6ZBxTW2+QmgVG95faNy5YZGM6Y7h1DhrNixu +sw9dMcXE7wMBS/Ka5YTN/g4Vv0YSHlTx9yx+wYZdEqMnhYPIuL50m9Wbx2x4 +vUecHHmchCtXtXOtv8sG/8B/922pZIwuyF4by+HHia/HJyZ+kjBM3smJyan/ +zb/krmnfJaFyGvcdg6dsiFl/y6pxLxmlmS+07nL09cdvOZdyFpiY5HXZ4cRQ +KTHFH6LzaIUQvj8m8kmSNQMZCRKfKwLWoeufsbT/Subgm2KdVqW6MK5ZsZrf +/gYLrBMfXqz8KozuLMYjTQM2fP9QcpCUQ8Lbxic9sZjjH/Vz2KaHyZhUuk0o +mBNrpLoepdFFcJdAeGOaMhtOeWStkZoQwU0xjEAFMgvM3d8e+ZkkinierFpw +Zxa07ILf3dsugVt673ipavXDwa6nIj9WSCJlYKFIxqYb8qtdbxx8JYmBJ3N0 ++yraIPPzYtWzC1I4t+3jqivsJmisb4w+oCeNAbcEtAXK6iC230dgnCWNGcr5 +KxVXV4LS17ETpDIZvPZGJCU/qQhmDg3+dbggizP2l+7n03IhL7T/fv16Tr8u +RZbXjnD0e9XR2FA/ClZoScg9nU+CaffW+987KDh0iL00cToezkV2Uj5skkOn +oBcpk0NRQF7rc3YkRg492FvnP9cHAw8zVGb8G6e/pc/u2JZ8EZz0fmnq7JbH +x7za0355XmDGmzd5L1ceZfJGrma4HYcY985f06s4+n2yTCAk2xnG1G93uB+n +4nGGT8D1LhsYP6PTEltPxWjGscZ2v73gL+Onu1WG40fzt338PWwEClv2+3Ff +VsCFXa3qhn0EyPXeE6z9pIAJSVTzK+bqoDp52TdHl4Ydaf70tusbYMrD8M+2 +2zTM8VnMc0mhgq5z5qzZLA0P2mx/8FleEu6XpZZd3a+Iy25+NCpVFwbL7LU9 +hbmKaDHdvo6yhg+8b/W6bRGi46Z8DTWrEi5gaEzHVZymY3b7A/U6v3lC5fQZ +klYzHd9/hcTev9OEuWCM65cNDPTMP7u8qGKEEJGL7tgQzkBzp9Q3eRf6iNNp +jOcLgwx8enxH/UDuB6I/0vHErD4T/3NwTfI+1kQ4B1j9nE1molb1dJocvZbI +sh72D4wRxvxnvJHVsyxQHC88LmVKQuH64t/uEWwQ4h56O7eSjMv/M/v1mtMf +h2IaV7+uJyNu4ik0DmaDrVZ0ccdVEbxZPnh3IZ8Fqq8GTc0oUvjWZaPinf9a +YBv3CapunxQm2fzHqyX2Ggob95xxSZRGnoiIlwnsaoheNn33mrUMxjy7b6sZ +WArC1ic3fxeXxdCgidj7tgWwKfcylHTIYnqxg1hvcRZY62aKVO2koIW1KUnr +WCqYuVYY4SMK5ipLeO+0TQQNTeUzNcvkcK9ThtaiahzsHGE0+hyUw7uXJLm1 +x65CrLWVvXGlHIocyPu2GB4I/NxOPeul5PHKnniRqee+YKvbJRh6SR51tMNa +GlpOwdxP8eWPejjxUTua6FZXqPyqPfJai4r+avE59TyO8PJhONfK21ScjU5R +jmmzgOLlqqIGs1RccdjMb/VFU2iH47bF5go4OrX1VdUbfVDc/r5zR44CltVt +uLIhSxtyLq7b3sZPw5a7EatOe6qA28Ur4xeP0zDkenIiO5sOYlTzq4r1NLxy +8bBUgwUFfmQ8suCRV0QJWsa1O1qisDi1+cC/y4pYXHip4pemAGzzjN+70K+I +nbMfCrV9eGBvgNvfGKTjgHJ3Z5/rXyJfgNelN5mOYQv1NTbZc4T+x+By2iId +I24eVvho9ZXgP7bJ7Lo9A0tuXAjS3jRIvEpW62YXMRCixZkhT7uJJ09fRccI +M1FjYtwnU6qVqA8LDzI+zcRTX5jSlyYaiPfqKV3XW5k4pSu9q9evkngJ2XPu +EiQMtxZVfXqcDUsnzESDP5Hw9YDIxDRnvte76QRG3CTjlyPK91alsqHx+8La +SzYi6LBVyqhxjgXR0S8Gmi9y/OTdlfIfH7JB4c654MNbybgv3TjKm8OXxWLr +2zzzZHycflKH4sCG0DjD171fmbiT1mBHiSknvB8s022uJSGpe/6MewVH71ud +Lf92gYy8am6dJ3I4flRHi+Z9hITx+/wp8xz/cPfdhqwn0mRUOv/qFS+n3sM1 +bs/qzJCQXGfZVcHhhf4QJlHjSZhy8ITuslw25LjUOkmYktGQtsKVm8MfZ0is +ujLPxIRHfadn1MuIfG2H3Z7PSTgbUtEbWcrR98eulpsLk/HcjszjDzn5a1tn +l38Z4fgZ6enGqBo2TCxJnXkJZOSqaK0495LDyxWPGPQWEmrRPB4Oc/yKk1r7 +rZVMMtaEr+tf4Ow3S9r2JeEvCQNeuORe4OQzT6jR7VpkYlhD2uTvmFLiWd3J +tA/cQli8tsqUNDMDvr/KXL5cXIenv85KuBfOgTvtocwPVWHsMNEXUothwcBa +1ZBnY8IYEaUhU7idDRcu7HbZ9piEx6JKHjoWseHlQZak1kEyBgqiyiWOn7nk +8H1SVkEE5X8VJo5sYkO5nUa0yagINpZM7tkqzoKH7/l5x++I4t3XfsIjKbNg +/eT02khCApn9LkdXWPfDpoa+wkluSTwv9PzLmGc3hAzc2RBbJ4kCGjPrqlva +4Ir3oH/mOSmstO3n8xVphqyoIuNgHWlcTLkp8by1Ds5LC39rm5FGboFA6lHV +SqhrqE1fUyKDfK7i40ulRRB9ql4l8pwsvg1aJiNslgvLdjKat4lS0It0LVFv +eQa0SBSVrz9PwciYZushmWRIStD7HfqBgudPyqyVvx4PWT/urjbfKIedxmH9 +zwWuQyM/4eAXLYfzuqP88oPBsO1wZqLjVzkUMOw3cGm8CKcMtQafm8pjM3fd +DrtmL/iSNXdDLUcek3VGYi9ePw6ZO722uK2kIo9VzjeP185w+Ynmai43Ksru +bd/WvWADtsV/1JTrOLwq79jTErcXziTHqeZLcfxJc/ZJHV5jSDI+dSrxkgJa +Fcxa/OYDkNoklKD9UQEJDS7BxtPqkN/164+eDg0Nho4615VuAAPG59zOWzR8 +GPnxi2MlFURtEjRe/6DhWPcH3oPmkvDX+Nai5D5FZJeP4OJeYVD3sctj5iji +93eOz99t5YONm4zdcwXomHzG4PJSKxe4HHO8ud+TjhmJ82Ste/PETJ9WZv4b +OrrXWc2MbvxBxJLt588oM7Cv2IT9q2eE2PLzfPyrMAa27g9c1pzeRwgUnuT1 +GWBg17Mn9r7vPhD/VNPLwrYz8WVV7dV/0U1EJsNU1DGJiQ8HRU0DDGsJJava +w8+ihNHxRc591jQL8h12eK3bSULLpqS/96+y4UHW+TZJHjJ6udo4VHHqfz5H +UK2whoxG4s8Xjody1llk3fchIphxOqLGtpgFK8dExvylpbDjX4hXoux7ELtj +PrDpkxRSHg4x1NVfQ3ysrlLULWlU9PWQtOWrAV+M9PW1kEGdj7pPplNLIVvV ++PioqCwKFiiz35wugLflh32G22TR+dUd+9quLHj834/tmsYUzE+WfNsXmAry +1bxn2jMoKPTyBc3qQiKMHEpssueSw9LJB16DJnFwYdf0sxlHOdQL3Jn3mD8c +DCxldvRVyOHaxuCDFSmBoK972TJaQh5fUg6dj+v1Bbcd68u4/eWxbpPl3fCl +UxCS4PSE+CSPb5oeKI7td4WOhi6p7ZpU9Gt2W1ms6gi265mad25RUfVA6Mzs +tAUoGs9d7P9BxRQzR1fxNFNofBm0R2U3R+/kRy+7Nq4P920nmz49UcCQXbtH +1Vq0Iasl9PVOPhrK3HoXGHRNBcaO/jm51o2GN76/L45/T4dTn0d1qmppOCyz +O2HoJAWa7t1ODKAo4q6I45/0HETB3p96/2aAIuquFunScRUAae0BBc/Pihh9 +dc+kTwIP8K/vWFoDHP2j7vZffNxf4jucc/VKomOD0plg6us5gtvQdPf9P3S8 ++Uxksj7gK2HmvtAna8fA9jf3P8rvHCQGzsjcji5koGSPZXtkezexs4pvgH8d +E0sdN/27otFKjGx639p3iomM+GV/zPheEeSBW79+tzAx51ysLDO7kthZrPPX +eT0JD12d5w86xobr64YlcrpI+FErapcvh0/2YUGPfGLJqMmlYxvP4Y9AVuDN +c5YiKNY6EXVnngViPGZfq8+T0KRn5OFZDr+egUD4NRWOX+lY4hvk8OnGh+SX +M3NkzOz+GP/JieOndXUnjCaYyDO9Kuh6RTmx3CgR2FUkfHkxeL6S4y/WnC0f +7DpHxoAZ0bZcDl9c8l9vPH6IhNaaydUHbrGB6V2X80GCjDlMJ3kdTr2Lft44 +f2SKhLvOnoi8wOHTW5vWdLE4ErbaM952ZLNBd7XdkR07yejCpSaSzeFT5tfr +A1NsJt7N6LaTOlRGwMDcvsQiEv76PchT+5zzPwGZqnOCZBSkf35Ywsm/71w4 +L+8QCbWFTmZu5vDmXEahz/g2MipfPqfKzbmfxmy9jXubSTjBvXd0D4dPU5/c +7m5W5NzXcVbmTs55evU/DFf9JqHUz9wYK06+m/jcYftfJoa8VdwlWFZKXDlg +2viGj4wipWUubzjrnvXF6+z7SKhoZJB/iHN/q+kJaUEUMqZUV4u2cvItxHBN +rWORMDu6SWaeExvXzBTTRMjY5L/6Rxjn+61KB/4Vj3P8pKvy0hDnvK1RunGf +lcnYanQ9L40TV/7M6PFYImF+sPazRM5+/u/NEieXmLhZpadN8Vgp8T9FqcoQ + + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1nfczXUUB/BHSCihMrJn9sreK7tBVEJFRkaUkT2yS/bWNMtuKKMkUrZS +tmjIpuw9ep9Xf7yf8/2ce+597u937n29bo5WXRp1TpSQkFD3roSEqHv8eZWU +fCa/yKN4OCExe/XjCffyufwSJUnCPr0u3McXcktKxfM8ebpeGQ7Ko0jKfvk1 +UrFMbkV+s2vkFiSmdLy23gznshyK9yNvcm7HO3Jh+XvnliSL58hb1Q7c7fED +6uvcTzmP/aR+qV/ceYNzGyo5/6q+rF/A+Tvn6uoLagV1h1pLTaKWUreoNdX2 +ahV1l1pHLRPXpr4rV1PLqeXVn9XH1N/jfqmb5RrqK2pldadaWx3t8SLqerkV +FZ1/Ue+J++e8Te0Y12nuN7UrqflKLuHxjc5taS0XlNc6v0jSuH96d+u9F++J +P+QxFNX7Ia6d5PG/9A6q3UjDcrkNhcytk1+K+xr3Ui+Z3vtxj/hTHktyDsnd +ScsKuS3lScHvej14gJVyOyqQknu5j1Tczx9m3uBBVsmvUJHU/KnXk4f4Wm5P +JdLwl14v0vGN3IHK3OP9fhD3lb/kcaTlsNyb9KyWO1IlrsX8h/H54LA8ngf4 +W+5DBr6VO1E1rs/8R7FT/pYn8CBH5L5kZI38KtXims3PjM8QR+SJPMRRuR8P +853cmepxf8zP0qvKUXkS6Tgm9ycTa+Uu1Ih7aX52fBY5Jk8mPcflAWRmnfwa +NeO+m58Tn32Oy1PIwAl5IFn4Xn6dx2JH5ufGZ5kT8lQyclIeRFbWy12pFXsz +Py++O5yUp/Ewp+Q3ycYPcjdqxy7NfxzfHU7J08nEaXkw2flR7k6d2KX5T+K7 +yml5Bpk5Iw8hBxvkHtSNXZqfH989zsjvkoV/5KHkZKP8BvVil+YXxHedf+T3 +yMq/8jBysUnuSf3YpfmFenX5V36fbJyVh5ObzXIvGsQuzS/Sq8dZ+QOyc04e +QR62yL15PHZpfrFefc7JH5KD8/JI8rJV7sMTsUvzS/QacF7+iJxckN/iEbbJ +fXkydml+qd7jXJBnkouL8tvkY7vcj6dil+Y/1XuCi/IscnNJHkV+fpL70zB2 +af4zvSe5JM8mD5fldyjAz/IAGsUuzX+u9xSX5Tnk5Yo8moLskAfydOzS/Bd6 +Dbkiz+URrspjKMQv8iAaxy7NL9NrxFV5Hvm4Jo+lML/Kb9Ikdmn+S72nuSZ/ +TH6uy+Mowk55MM/ELs1/pdeY6/InFOCGPJ6i7JKH8Gzs0vxyvSbckOdTkJvy +BIqxWx7Kc7FL8yv0nuGmvIBC3JInUpw98jCaxi7Nr9R7llvyQgpzW55ECfbK +w3k+dml+ld5z3JYXUYQ78mQeZZ88gmaxS/Nf6zXljryYosQPiil6JdkvjqR5 +7FL/G73niR8kS5RicdSfKpfigPwWLWKX+qv1mpGIpXrF4+X1p8ml+U1+mxdi +l/rf6jXnLj6N19f70bk1KSgrb1c7UdV5d6L/fx+VMPsfqu4NLw== + "], 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]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + 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, 13}, {0., 1.2977994856441957`}}, + "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:eJwVl3k41N8XxyUVKtsM2Q1jzAxtyM7nnEQKabELpSgVKaG0iCwhWUqSKLKk +LJElS7KXKCFLIV87JfuklPSb3z+fz/N6zn3uPed9lvtc2SMeB1w4OTg4drM/ +///7XDZfx8EhgGST4dJ1kzPwvPZU6kdOASxaX2lCmpmBSd4g7cerBPDDceHP +EvMz4Hyv0NVsrQBWy6zsVVmcgf3FwvWJIgLI7/pe68KqWdg403VFa5MAmmec +nHOQnoWBo/bTnnYCqPph7L7//lkwNXFpGykUQMOHfItOL2dhl43td05fQUz+ +flmy+9kc+Pwsdf7vkiCe+Tor7lYwB+lx4l/K/QTR5fdo6t/iOeDs6HnvFSSI +5FVmWjKv5qBiv+Oz0ShBHB0/ln3w3RyomBz1bMwQxNNp5zwKxudAknD/FdMu +iP/iFEefUuZhmhrAJbtVCNe56L/liZgHN9oj6WkVIWw31hdQjZqHbwq1mhVq +bPuqtbx2t+ZhlLnK3VZHCHMdAxaS4+ehb0tYR8xOIdRo39wpmD4PzToxGZwO +QjiXlF59oWIess1Tdg2HCeEOoWvHqN/nQdGy5sjzCCF0eJn9YH5qHjKthi77 +Rwlh3nPu8KrZeUizpeVL3hHC78lCdvt+zsP9Q0/ELJOFkPHg3t+dnCwIP5X/ +rb5YCHXbdxuEbWDBicDqiMdDQnij1iSICSzoX68S9HxUCMMi1KULtrPAKv7R +pYqvQug2z3isYcCCHTmBJz9OC+EevyoH5d0skOoy3PXvjxAe/N6zY/QAC1oV +G1dak0lo/9ZOdY8LC3YVaf9x2kDCw9cXeAOOs+AVZM25iZMw1EpE5dkJFmRZ +RAxco5Dw0r8yo9/uLAj2M6vM3UjCI4VjV419WKDV1nZxtSEJFe+EFjYGsyDP +foen4C4SWjQm/nlwnQUKYwUnJE1IKFRX9MstjAWkpVgblf0k5DzwaPpHBAsm +adbqjg4kdJZf8b7sNguc895sOnGYhFYaSVUH77CgW1uT5nWUhLH7L1MW4ljw +Zq8YOfwECVevaePYkMCCFN+e2SJvErYOZ+ziTmaBKJfp16oLJDTuHn50LoUF +kZEv+5susfdPWC336RELLqUmfRgIIGGw4lq3iHQWWL4/lLM+koSjehv0Up6y +4J11S5poDAlb7Bjv2rNYoD+IidRYEiYfOqmzIocFW37K3tBKIKFSKuc9g2cs +4JEddnXJIGE9u0+8Clhw8eIeZ90nJDweUfzIoZAF3z8WHyJlk/Cu0SkPLGJB +c0iYVXU+Cd8LzWfMFbMA+uf2xxeS8OevAa6aF2z9tOz3eLwg4WxQeU94CQtu +fd9sIFVBworEjm7uMhas3BkPrEoSvroUuFDBZq+HK3SaakhI6lo461bOAusD +7cq+DSQ8pHzZo+glCxqy9DbtayLhOOe+kb0VLNBe9ZhBbyahJs390RCbJUt8 +ZTo+knAu0a974RULbgoOiWd3kvCTZsRun0oWLJ80FQn8TMI3/cLjU2z2qCsS +tOslocJOg7zDVex6lJJZr/wfCa9cNklsYvP+86Hc3IMk1BI4lbGlmgU1LbMr +/xsm4Q6pqYYINm9TPPivaIytv4vS8iCb0wPrfkd8Y9uPB6NKDQtEvmxaODpJ +wt3nToZfZHOo+t1Z7RkSkmstOsvZvBjFMSk4T8KsyEbpBTaf/HpifPwHCUPk +HB2ZtSzo0f84VPmLhJI/cqIs2WyaqPtf3B8S+r10zrnI5oof6d3uyyTMC9R6 +Hs/mzXv5Ow1WkPG/yun4Z2x+mHmhVYKLjJ4u1vaVbBbgHHw3t5qMK/+a/nzD +5msHTRre8pBRuKTU+S2b5wsLa5PXkbE8+PbDWjY780lXnucnIz/9y6NiNnce +v15mJkTG8zsyTjxis1H1TBFNmIyNl9dOh7C5RNwuf2kDGe0D1Tc7s5npVZv9 +UZyM2UxHOW02J7zfmPlUioyKF16/5mbzWnpcagCFjMlVVSIt7Pgv+/97YEMl +Y2R+1vpoNk9+dk3YokBGjRPzGbvY7Kjadmc1k4zVoYJ9i2y9WyJ0Yr4okbFl +583cVDZvH02LKNxMRoNrf0g72fwc+EJvKJMxrX2ZZ4CdT/l75wOPbCPj/jSj +CC82rzY1viigTcZ1NXnywex6OJ9e4D2mS0alq+dVONk8vix59hWQkaO8pfw8 +u54a86ePuxmSsT9XTtmUXW86a22P7thFRmcOVeEsdn1mO9c4ipuQ0ZC2yoWT +zVEb7lg27COjFPOlZgK7vi2uaO+Qtydj7xDsPs3uj1eH5iU0D5HRnx+Vr7D7 +h6GfzTI5QsbEEl2BQHZ//VktnXHOlYxbr6o9Osfux0fRK3hqvcj4IGw+dSyX +BevOlQ10niej34xIaw67n30sz5V9u0hGblXXjpPZLNgtPnJKKICMG0p0Ld8+ +YcFMakOz0022v69YrRvSWGAXEvDYO5qtL4e2TSx7ntS5avuH3WbXz1Gl+2vY +8+bupmzl/Htk5IxzM2lLYgHxIiqWI4OMOzmfcP9iz6+IRiu7h6/IuM0h8NM1 +9nxcyOZXLahm28VeLJ5gz8/DUQ1r39SRETdzFRgFskDVQrtiqpGMM3s7xkb9 +2PPwixSF6CJjZ2HxtkJvdvyzwyO902S8kO/kG+bEnhcfk17NzJExo+tT7GdH +FiwVWd3lWiDjk7RT2hR7Fny42LBr4xI7vw6h1Bgrdvxc2VmXuIVxPoVxZoUJ +O54N586Kywpjx41t5pIqLLhi/31CRl4Y5X4WxA9vZoF6issxGl0Yd/OFNqQq +sSBT0ebg1k3CmD1u+n01jR2fnp7hTi1hlB9vcTvMvr8sj64R89wvjF4T23qd +fs8DX6b/7fMWwijaMh5xb2EeGr4vrr9iLYz22yR3NszNg7bPd85QB2Ec8vLq +5Z2YB+mw1u9JJ4QxODprVL6HfT/n3q96GyCMpet+Up+VzsPDebLOhyBhTD8T +Vm1TNA82mpFF7deF8XbZQMJi3jw0Vvs//e+mMB71DROQzZyH3HaX2B/3hPFi +Ta7vmrh58Pm9xVX2uTC23lcVVj8zD2t21vH7Dgpjuxas05OehzJb9UjjEWFs +KJ7Yu01sHk67Z66THBfGzVEMf3nyPHTGRvBUTgpjr2BH2TQP+34fsli5alEY +FR0vK6n8mAP9gJGFaH4R/ED9VHqqcQ78Xq7uy9QVwZR/YZu6Pebgh8ru7E9x +IljgNRIjkDkLjz7wco/dE8GEN75Cw8mzYOb27uiPRBHEC2SV/HuzkJG+V0Io +VQRlS5/4aN6YBRtRq3CTZyLY+7tbecl9Fsr+HnF99Ya9/5/T551UZuFqw2X5 +tF8iqDl82muyeAZ4HPMSPew2oGFlxavvR6ahwcjkxhpBUaQVR48SeybArn75 +65o6UZTJWbe7bOsYCAXEJkKIGIbcfty2ODQIXn8c9lzQEUc3I+3Er+f6wOrp +mfXhhDgy+5yPrbLqA03bwPf3t4vj1p57niqafbBUnLmn0kgcTc39A6qWvkCw +5/ye1Rbi+NDqVHVOyBeI+xpqFusmjmn6vGc7k3qhpKtgb16SOK46XeWQ9rkb +lgp4Doz/E8dHbenG1aFdsLm+t2CCUwIvCLz4b9SjCw51PhOeXiWBlP7FQmnr +Lqj5Zfn5x1oJpP+kK9TTuiBU79HhlaISGES5tnOythNIb7Q9pLdK4KXO41uz +VnaCYvepCIvDEvgQrT/1RreDNUfz66oqCVy4oG9TMNAKQf33NkbXSiCf+oxg +VXMr5FW53Dr0WgL9T2Xr9Ja3AnfAX4flJgkcfhbZrB/XCiUrNv3Q6ZJAZuV+ +3waTVhBdGUF9MSmB0QNu3/NLW6B7lbF/jrgkNlKq7Iu2f4DVo8Kjl6Uksf1f +kGe8zAdQeT1gYkqRxHfOmxTu/W2G8BDfDRM0SbRcYmrOlzaDzponuQxlSdQ4 +P1bCva0ZErm5v6QaSeKNfAef3E3vwWHta60EL0l8bOeyGK7eBNe8Bi5nnJfE +Cps+Hh/hJsj4slT5/KIkzul+WnON1Qgzz1R3NvlLokIQX9DS80a4ZpFyYClC +Eou3UK/6KjdCZtLlU47pkjgY98Y4cNtbmN+imiTXKYke6w607jvwBkTvmfVv +/iyJlEeDDDW1N6DLeZKq0yuJidZ/uTVF30BIe/IT80FJPH9RU+he32sQ9eUr +DpqSRF+jVUKv3V4DUfO1eXS1FN6b4pssjayHMItkjiwNKWwtiLO8MF4LmRGF +RoHaUriUfFv8RUstNNQ1RB7Uk0K/O3xafKW1sFptVnLdDincEPJUb1V4LQQJ +62u5m0nh8Y6la+RNteDXOXR2i4sUGlntHsg8XwNeNvShgltSOBKQ9niLdDXE +RusoRtyRQgUfdwkbnmooaNh71jleCrnCwl7FsapgTvPCP/IDKZTttN1j1VQF +HmJvJXyeSKGO6uzjXt8qONl90kKzSgp/zIlaThVVwmH73PqXk1LImHxs1GFb +ARekhL61zkghJ58/9ZhKBUT3efONzUthulLeaoW1FVB1WM9a8LcUxq1dpa5S +8RIoLu/GXVZLY+/blKvnqS/hP/dva/llpFFzG10u+lcZOF5VOOC0TxrbWkaK +PtSWgA+G+/iYS6P2J52nUyklELliKuGGlTRGPX9go+FfAq8Ci4aK7KXR1IAg +DPVKQDrUwJv3hDRKrPqVZVb6Ar5EH4kvCJDG/dsNjFklxWD/6EHfqgJpXCh1 +vXWmoxBq62vS1hVLI4+L2NhySSEofh09SSqVxhtvhZPzEgthccuWn5RKaWQc +jM2+4lwIcRWV/LpN0uh5fVC17EcBtHzqR88haSw8TRxLki4AA35qah9JBqk/ +pszJYfmQpWJ0YkREBvnzlVhvz+SDkNWpLd/FZDA4YDz6gU0+DCQWlC/KyOC8 +P7dWGiMf/BQN2skbZVA6UPWeVGMelBi6rDIxYLOW/e0soTzYePnx8RdeMris +PH3jkWcORJ6uUw4/L4PvAlZIC5nmwMzhgT/2F2Vwxu7KgzxaDhQaSkRz+sug +8tFHqb6fs0GXP6pkzw0ZdE3xs1TfkQ0mj3x4hlNk0DS2OHyLTBacbDDMEvgg +g+khywltPzPhXdkR76FWGXR6fc+upjMTNudcheJ2GUwrshftKcqEuZjSjwe7 +ZTBHVLM7xCsTLh7ctJQxIoM9PnG3auYfQ9gUeY/ekgzuWFOllLaYARa8nj8L +yRR8KoE2g7LpsGIXo0lXhIKepBvxeivTITe470HdBgrWL4eX1QynAc8Kk53t +4hTkZf7XsTszDV79pN6Zp1Aw7Pu+dkPlNGCMdKiobKLgivNHxxuMU2GpUuv0 +M0MKHlOotkpPSIEnf6e3axhRMC9J4l2vfwpY6WQIV+6ioLmVCUnzeArkFwtV +NJtQ0Ct3xMl2Wwocy5lYO7WfgpZdAcL6LcnQkpD0ZKMjBSu7EiSD+ZIhzXvF +yBMfCl6e2frK2CgJmsULyzZcoGB4VJPVoHQSLFYeiw72pWC5prjss4VEMON9 +p+N0mYLnVvy3aywjERYfxN0SvUbBbsXhkUYetr1BCa/fpOCshrka43MC/BS3 +uu+cxo5PX8c7KjEe5Kq4z7alU1Dg1Uua5cV4MHUp34mPKZijJO61yyYeHj2j +zEk8Zev17jT3CzLbbjCx6+MzCpL/LE7lRN2FZHf/he3lFKSqGXu33YwD46qn ++2XaKBhaPxbn/yQWEuP0fgV/pOCFU9Lr5W7GwpRby4Pv7RQcPMxaHj8TC7fF +FiZKuygod+DH/VHNWOj13B5i8YWCn2k5Bfcbb8Np2qeysHEKtvcq1tSzbsGt +8FXyrGW2vqfXlI0eiYHhw/GNdhyyWDLx0HPAOAbUNZTOVq+QxX2O6ZpLKjHQ +M7TvVSSXLMbmZpjErIwBeb1EGyavLN44Y7JZLSMaiqdVbjoKy+KF5wMcgYNR +0G1xeKFBSRY7lyY86rRvQuZ0wlqzTbLYYRTS94LvJpwP76B83CyLjgEvkycG +I4BcZWzyRVkWPRTvlgtFRICZklryrIYseh9rT7McuAE1K3iNxQ1kkXZr7OqR +u+GQlVuQdMpeFrVy9W33bQmFi7unns84yKKe/67cJ7yhsGuY0eB9SBYTrkhw +ao1eh1GxB3NXj8iiwXSGz6+k60AJDjWKdZXF/FP69nP81yH2oMPsSy9ZTG8e +fhDzNxguc68x5Lspi7af9QJv/g2EBl7C3jdSFhd0RnjlBgKBvN773HCULLqz +ti18qQuEbMGhlLJbspj73FuhKSIQesQrl4/Fy+KxY3r63tKBoL3pfEllqixm +PLbt69l1DX7tH1M6WyaLK3PGqfdL/MHAQnpHb7ksrm8IPFSe7A/RVpZ2RhWy +KHww99tSqD8wDtaGSlXJooh3he6QrT9YOz8ceVsvi6zZ5imP3+xe97F+KNcq +i6PXnni9uO0HXvffCLWPyaLfzcy9zfOXQPdIRrzDV1nkM+wzcG64BFzMYOmx +b2w9pM7t0E26BLHF+oq/J2VRICruU57RJShqrdhOYcliuIHuUMrDi7CwpvCM +G4ccBihe3rr/oC/4eiU3c4nJocrFqhK3fz6gr3PVIlJcDl9RDl+I6fEBXk7H +7g2Scnhtb6zw5AsfSIiSGFWUkcMym62pRmd9oOxp3N99NDn8OnZdL2DUG5b6 +IzYmKcth5vpL56q7vcBvj2+4mrEcNlznO+887gmnDTUHXpjIYRNn7Q7bJk9w +1Pupob1HDp9wa0355nqC3ibvEWKfHK68W9Ct5+0JS+vO4i4rOVz3L0fsLZcn +XHrnumB3RA7zC/tiipXOwgUTmyP+F+Xw5vSOvbGbPcB1x4ZSzstyWLvZIiF0 ++TTY6HTyB1+RQ22tkOb65tOgoWRREeYvh1u6a/XFzpyGBd59ordD5PBes9Uz +0WJ38G40ak6/JYdhAp0bpfe6geduDe2mp3LYeFrRIOT5Cfgvc+6WarYcJmkP +R1+6eQJMuXMn7ufIoXTu8PV01xOg8EY+yS1PDr9xz++NkzkBPQZCHHzFcpjV +Y2w/FOUKBjhZv69aDjV0XupP+h6HDRqp+zu75DDma4bj4FkXCIpzfEp8lsO3 +jQ8VRg+4wNwPsZWPu9n+H7OliWxzgXeF0YXnv8hhp1T/h8UFZ/BX8dsgNiSH +huXazLd+zvBtk+2Xg1Ny6HSi46J53FF4Kc9/YoCLihz9ax0Dh5wgY5fnVtfV +VOSyzP7m/sYJotw6fk6toaL2RClfUJYTHCm8H7LES0WT41EkFS8n4DZgpG0Q +ZNt7ygdvrnEC86Pb/9sjRcWe6OXj69QPw7eUc5Zlauz1Z7ttJw87QHt9p+R2 +DSr6NrmuLlJxgIqvWsNvNKl4WTU2u47LAaKVOc516FDxkLP4prIn9qBeHRE9 +s52KklpbROYWDkJAf3qTghkVDUrOmWs+sANRmU/bbx9j+zt1u9xCygauPtVY +y+FKRZl9bbpdi9Ywqna33e0EFU8wvP1udlpDganV8Z1uVNxBKRWLjbYGs4vt +EYtnqej6/nnGijXWENTR0nXoChWt1D9Jyfy1hNkbb903xlJxk7DD16vrLMBm +A1Pj3h0qqhwMnpmdModXj0I5Vt+l4mxkslJUqzlElBrd/u8eFQe3ZxgY3zUH +xlh9ya2HVJyY6jF8KW8Ojvo1Kxefsu0IlXZGB6DxV9m9+moqbggyv/T9yT6w +KfqtqlTL9resfW9zzD4YO6vdHF1HxUjG8YY2333ANVHKaf+GiiWdZgP6xvuA ++FJyau4dW8+xpVqvz3shv7pYT+YTFdW5+eZLPcwgPvz5wIUpKgrXmxs7NZmA +gtHcpb5pKiabOriIpZpA0UoVEYNZKq46Yuq79pIJtF3ON+ZnUfGYk5h+opIJ +rPPIK0hfpOLBCWO341HGcNU8N7iNSx7PGczrOjrthmOST5kbJeRR4ogpX9FG +IzibFKOSJymP+5qyTmlzG8FlaV+dbdLs9Xm6n34N7YQYyq49urLyeH9+9IpM +4k52/Y2eMaXLo9H5w2d5+XeC0Ca5EjdVebS/+stm3T8DqNBL2JljIo+tJ3eq +B6/aAQ2vAvYq75HHxbzIFTfG9KENTtgUmcnjyOS215Vv9WF8u+bJiv3yeHKR +KVoUqQ9COztvvreWR7nU6eXX4vrgaibUMXlUHp3qq8FYZzuQD4Uf3XxZHiPn +HeqmNAASjU6fjr8ij5b5s+a/eADktx7w5bzKPm93i5phLwHbVohHdQbI41BO +2onHAQRYpD4p87suj+6vXnAEftCDO2MNgh9uyeM/dwu6wXldEDmzpsrjiTwe +Nm5wOsfSggc2E42fn8pj0O49I6rNWqCw/UPHjmx5LK3deG1jphaoC92d2PBM +HrcyM6vr7LXAqlBhQ1WhPPIZjASFNmjC3V+GpwWq5FEh+BCH6FMNEA0Ikszv +lMeV8uUFBrfVQHKzQJzWJ3kk1Dn4G86ogWzPff6az/IYl0g1u2amBopqBZwf +e9n5ibGTSuBVA52vA+OsQXncpnby0Z7gbeC4H4o0p+VxVmhE4FKQKqTK/t5T +tYaG9wifpcrHypDZHPxmFw8Npe+89w+4oQzZlwS3t/LSsDkhbM0ZD2Uo7GBs +G1xPw9bDzv/aNJThdZi1OBeZhuG/3ccyG7fC+GzhqBGFvf589Le8mS2wucbj +6gdNGlY3lf/6MbQR8jp//tbTpqHB4DGn2pKNoDJx1Sdbh4btqZfprTc3gho5 +2j2MoKFHTI9ZtuZG0D2Wd3CHAQ2XzWIqrGKUYDfvrMaLvTRsU4zzVjJTBOcD +njMPjtGwj3bP4OQ8HUaP/T613pWGt75/KIr9QAfXS9fGLp2gYdDNpHhWFh1O +pd3qs3GjobUkzcfchQ6eC8/fCXnSMHKlK0dwtwJcTZjPDLlCQ8m63QZezTRI +GPRyOh1Lw/F4s+KAbioYML7kdNyh4aPwT/85VFBh0t3wt+5dGmZ7L+U6J1MB +F4Vvr02g4c+mz4azx6gwwv+iLvMhDf91zTz890MOtuot0oee0vCukqDPSwk5 +qL97Zcq6moYpdvQ4ahAFTn8Z0a6soeGQ9J64wVMUEKWaXVeoo+G1S0ck680p +cDJXmvLjNQ31Buwn5qkUEKiv3H/rHQ2Hfft+jtyQAbu5FUXvumg4spSlEEeR +hhnTkEvbp2h48sPv1QoXJUDEOk79zTQNR7s+ch8ykwAdp4xZ01kaHrLe/vCL +nASEeL8+bsOioe6K6tYn78RB6sFqC4/fNNy68chJT6o4GE+HbExarYBir8qv +HP8iCmkx17/8klbAjOAtKhL+ItB4/268H0UBd4ed+KxnLwLT6Y/NueQUUJyW +fuOepghol715y09TwPrIH49/zwpD6+CaYgUlBXyo2rxse1wYllVDIy00FNDa +RXkY7clg0xkKeXsVUHWH3aKrmxD8MbqzJLFfAVllw7i0TwgelKaUXj+ggCtu +f9pZoiYEw4llqocsFbClaCLxyT9BOHP0O53voAL2F2ZMnrwjCKEzewXcjing +rV01UmoNAvCCd8MA/Qr7PPn2xOpbfGB3mfrgtp8C6qwV7tR24YOlyS0H/11V +wKKCK+U/NfhAv3VXR+c1BSR+CfzW7lsPzXcvvg0OVUDdKwFnezeth1H5vvyh +2wo4Fizkp/55LYhA+rWHTxWwOz5gf4UDD6h52+YysxXw+3uHF++38YBF1vru +ghwFNJ9qE6Ss44HbG3yUG/IUMLaN+Te0nBsEZnb2zxQrYG5RH3FYiht4U8b1 +9GsV8EPLsw1N31fDMufGxeEeBXzy+cK68RdcIKXVL+/xRQEjr++d8I7jAl2P +2H2LfQrYMfuxQMubCy71LD1eP8jWOyLusZMqF/wqeG+lPq6AU/18VcznK2HO +2aPwOoudz6lrKftLOWH09XMPxfV0vOO2w7BtggM2bTZyy+GjY9JZg6vLLRzg +dafHdasAHTfnqataFnMApzPXEXUSHbt2f1nyD+AAqRVWFvpidEyMLvrcKMYB +FjqLmnY0Ojrwp0Jf6jJR+ww4w/Xo2Fs70Har4g/Bu6F9eR2w91Nz/Rsb84fY +5+f6Jwrp2K/U1dHr8ofoM41h3dlBx75qj086/H+I318HR1N209GxwlpfyeU3 +oSIf0lRqSUfzsJEaT6lFIjn+XexXdzqqVb0s6Hu5QDgfd7h9wIOO6fELZM37 +CwRDfSqm/Awds9oeqtX6LhD5H/mjbp6jIxUWo9w1FogaPvMwZV869sjYlvMW +/SCGgz5f8Q1i288l9zBKWQTj7Ogxnvt0vJ8zkCg6NEd8h/Munol0rFc8G0h9 +M0fk8XE79yTRMWSxrto6a47QymY65STT0Wnt8H4drznCeMzt4P4MOqYYlzLG +18wRbg7ze+/l0/HZixSRdPVZIm83hxazge2//uzq7YeniZlezYy8t3R0q7Wc +Gdk0TSifOUvSbKLjh68Q3/NningeNzi5s5mOuss7ZF7ETxGFQ3WPnNvpeMLa +TFS2c5IouRK2LrmfjhuluCrMD30nqvOF+kUW6Xi3YF/l/OOvBKehyZ4Hv+l4 ++7nwRJ3fV0L/U2AZbYmOYbePyH+y/ErULbNit/2jY/n+v6K1XF+J1yZduw+s +YuAlen/yQ5dxonHkfsFNQQbGuV/+K6Y6RrSJ0a5zKTJwf9zfFad+DxPRZLuF +s0oM7C0yZv3sHibM+KNc/tvIQI+8cysLy4eJRq7FHWVbGOgFtY4lV4aJ6ul3 +HGfUGChZoOD+beUwkVfvdbEHGfhVKsumRHSIiDxb5/7cmoEmFmZ6qkcGCFO3 +xV4ZWwa2vX3wSW7XAMF7fLPpTTsGFt+6GKC1eYAIsY9XdHVg4EiQjVDP737i +ipHbmNRRBmb0mw6M3+kn3KTITmGnGRh1KCnlT/p/hPHboxaHg9n+eV07R/vQ +S2z9cSH2dQgDWw74r2hK6yWEZSPbN4Yy0Mwx5W3uxV6i/0KJxWI4Awczz93f +Qu8lfBjrLW9Fs/U5eN11XWAP8eh6sWXdfQYKprw/PWLYTfwx5LFmPGfz1wmo +/9FF9J+VvhtZwECJbou28LYu4nWSaherkIEQKcYMetZF3PrhYF39goE6F6RZ +Aie7CEb6c2u7CgaentrUFD7QSVhw2dtENDCwYONGncrPHUR2Ta7tTB8DxZd9 +7hOTHwm+glPc3v0M7Hz+1M7n/UfiTCrjxeIAA5+d2FHXn/ORUA16RF45wkAt +3n0Wph4fiTLDuA/CEwxUF/Mp8Ga1EW8brhjq/GRg+f3LLu/XtBGjzabKIfxM +XG+7fXXYvhZiVyVPP68gE0scNv+7pt5CPH32OjJKiInq42PeGZIthHs0fo8X +ZuIlnvNPWts+EKz92x5nSTBxcFjfPZPnA7GyQ0Kqlc5ENVvrVImQ9wSl5xu3 +JDKxKupdWn1xI/FPJa00ZDsTX1XWXP8X2Uj0hTucnNVn4l97l0Sv441EonZL +02tDJrZycf/hE2skxBKKIs+aMNHv18N1f/zeEkK2/uQ3VkxsOPJD/JhlA7Gq +S5ji6c7ENp+YhT2Kr4nhzR9aek8zkRG74rcpz2uiLiQ0wOgME0//x5S6Ml5P +XFP/Myh5jolimdUPPB7XE8t3+tPfXGBiT19g1h16PfHLIktJKogd76ePiplb +64hvbajRkMDE39w8xeuda4gMhomIQyITHw2ImPgZ1hBOfpY/ZpOYqFk1lSpL +ryE+MU8WSKQw8Zq/y75/36qJ1/63t3g8ZmLl5Xy/9d7VRMrmUbpIIRN/DNps +33yrirAJvyHq/J6Jt2aqj7/trSDI/Xd+/mpmYvb5aBlmVgXxQS2582YLEyd1 +pHb3+FYQOwcKY198ZCJ9uqR5m2gFoarZJ7C2m4m0d6aDOTYvCb7RrTzPR5l4 +ZdPMnMF4GdGoozO+c5zJfn+tCbhZXkYExxi+6fnKxF20eltKVBmxpGsXvGqS +id/7/ZblNMqIb7cDV9jOs/OferchMryUyPh6s3+SxcSE9C5bycOlhBPEV15b +YGLc494zM2qlxKdv2VeyF5mY6HnV/uRgCXEbX9hv/8PEoHcKu/lLSwizuGqd +ziUmhtSnTvyKKiF4vzeJn1pm4hbl7laF4yVE/fbOxX//mBi481R4PFFC/A9c +W8oQ + "]]}, "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, 13}, {0., 1.2977994856441957`}}, + 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.992081663079628*^9, 3.9920817569214325`*^9}, 3.9920817952282734`*^9}, + CellLabel-> + "Out[252]=",ExpressionUUID->"73cd219e-eeff-c442-814e-237be31eb6e2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1111", ",", "l2222"}], "]"}], "\[IndentingNewLine]"}]], "Input", + CellLabel-> + "In[253]:=",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:eJwV1nk0le3XB3Ah0ShzhnPu+yYJFZJjqPY2ZIziiUyVIVNUhswkZQrhQSFH +yZDIUY+ZEEnK1CCSUkRkTKXJj3rP+9e1Pn/tfa3v3mtt0um0hQsnBwfH5hUc +HP//ajVt5eHgEEIt4QXZjstzMDBS9dxjhRCqNWsVTKTPQcBKnZxeTiG8JfMi +k5vt8v22qkUrhVCSp358d+ocyL2JdzJbI4Qn14uuK0qaA5Ff001MESG0SMhG +x9g5+KJcFqixTQgni60Iz6A5KCpUmfS1FUKhwvW7W63nYHOpYkBkgxDOXcyX +jlgzB7//xfP8YsI4dn96k3PNLNS0ODzq9RHG9ys2Kklbz0Isv2+lSq8wBvht +qc8YngHW3hxSYLsISl9Jp306NgMfE+rUL6WIYKPLDtMr96dhlfSH2N1fRDAg +1ubd0OppiMiSsfIyEcUlcf2hdJMp4Nth3cNgieLPNYkdVxwnYTK/sO0CrxiW +cK21n/L6BBVOfxe4nMTQTPLr1yfOE5CMxj30VjF8L246+2bLOLQsl8k2SG3C +a15Z2aETY7BykHvrQsQm3PfseTPTdxR2crg5OwxvwrzcWsptbgRqVo5KmmqK +Y9FdWylF/2EwlT94ri9bHJt7E1Tj84dAY/srp3c/xLE0caHuXdIgMMwPfD5v +I4GFezwVz+q8AnpTb4VdvQSeSoThPOIlHFnt+7NSSBKdvl7fOG77HFj+Kz4W +B0jilvLiOSbRDf80l5jTX0ii72XjoknnxzB6yOHHYwUpPFIzb2C++yFE867a +t/6SFHK+zN8guL8ZwrPbBV5OSKFONeF+0LQe9J1uZh6ZlMInvsnSmqr1sH5r +NG1iSgqHXbp2qEnUw7VqHfnFWSnkmrPY7DJZB03PG7WJBSlM7R+YyYmpAw7e +Sm8vDhqy0kz5Ax7WwvkzuT3cm2i4wG3en2FaA7GmwfG7jGkY4Sg9tje9EgL2 +qY/UmNCwQ8SqfDaiElz3/GRomtLQOcIpp9SzEvS3+X/ce5CGlIZJma1uJfCs +80FDKxqab176GfCtAqK63H/YOtHwAO34n2KrCog0sXY6F0JDpnXLyXa5cgg1 +Ymh2ltBw14uskrCFO/Dp1tfUnaU0tBGsiWD13QEr3rLpbBYNp/ZL035W3wGl +dpkcr7s0/NOYdeFl8B0Y0xPgWF9Nw8k3YherOe6AGc62HWyhYWhHh+pawTIg +GPnm/a9oOFLTpZRvVAptMhs8Rrjp+Jpup5b3v1tQZuir5M5Dx5mgVM4Lw7cg +06vv59wqOva4scTD227BicrsmKXVdCx13DXdkHwL+PXkCkQ30tGjaq+ax+Zb +YO+s/d5Uio6/tHQaXCyL4NsNP8v6XXTsLHLiDW4vhLdt/ZLaDDq+0P770OlO +ITya1BhrV6ej5NYVVc4ZhZCpzOHXp0VHYamimRK3Qtjbkpgyr03HJqldk/v5 +CiF+uLBT1oyOBuefXnl2sABI+oB2misdR27VnXSez4O4EsYaDnc6Sk9teh7+ +Ng/mdmW89PKg4ymriLySx3nQsN/KTd+Ljlv6Sm21buSBdcjLxN8+dFxjmXWX +8U8eJPU9e3UsnI6sq1fPptTfgMWEJycV0+lYFv+m3e1KLjiKbmVkXaYj30ZL +VnVULjzOi+PgyaDjPfk0JxG/XLhcZ5D2Pov9v76bfLwHc0Fpoq029TodK1dv +/VS+OhdcdR5w/S6h49Hgug4Gz3Xo/VWf1dZCR2akZlb7XyY4VS3uVGilY432 +0fs8I0yY99HsSXlIR6JLScv5ARPWTtdx2rfT0WzwzYBfNBP0h2o9v3bRUWxo +l/KXtUyob6neQx9g55ctn2NIZkNufPlI0BwdaQE2+T1Hs2C7wdfQd5/pONF9 +hLykmwWNXCoiel/Y+fRW7XCVy4LBsP+MNyzQsc7UscjtayYInb5bUfibjnGB +P0oKYzPh4dZXOh6cBE72eLj/rzoDGOv7hK6sI1Aw9pp4qNwVaOgx3GS9nsAu +lT1frdZfAZ3kBinxDQQevT+wZLZwGfbzF8he4yeQf424XlrzZXAS8FO/KUig +2jKr28P2MiSKbLSv3kQguG3LUE9Lhw800/z+zQRyjhnFlImlgfv75qJMWQK3 +WZ7gHV6RBrPXVUtttxBYUNibLz+dCr8Iyap3cgQ6Sru1r25KhXXS04/GFQh8 +H/uPwsLxVFDfcnHqhzKBFa9NPlnV/AtJO9qURfcSmD+QGnvvZAq8kGYwutiW +aKEm1OxSQESseHckEChdY1bYZpgC1zguGUwjgdWTN39IyqRA2fNDR+7rEjjf +ac3hVJMMPX5jcW5GBJpKjQ80MZNgQy3XcM0hArMvJYs2nE+EQ6X+H70sCaQ6 +vucbOCVCZu7EFGlFYIpcH+u7diIQFzu/JxwmUN1zd23tikRQsk1b42BLoLhG +OPHqfAIcXKIYvA4EKh5UtrBJiIcU1Emy9iSQeaGNmVkZBwKivJ2SXgROLTLt ++y7HQfps96oRtuvi/m5UC4yDrKs2kR6nCByrnXjkpBkHeQveZ0J8CBwQLdVx +eRALFbeu2zIDCVzJm7NzbiAG+vmXZYcvEFjlveOdID0arCceOBdEETjrf6My +jjsaBhvjct2jCVQyy1glNRUF704IiX+JIdCuZjg7vyoKJh4qrOOMJ/DIcYUX +MmZR8CvI9pt0CoHlSQVBg1EXQGKk5r4bk0BZuegHSrznwX46dJmWQ6D9RHTY +wNdIYH4HrX62NzTTt2cORQJt9eNqvesEBq5pFz5WEQnUzgEWmUfggxjChNch +EuSif2W/KSLw0J7PqhWN50Btq0bQgQoCbwscXU4UjIDAnctVPJUEuortljs7 +dxZq97R8a2R7WWelV9aTs6BpYXRasZpAbr4dSabnzsKeUBtXvjoC98rYnyn6 +HA563cGHWpsI1J4J5l7qCwNzn3olRgeBfZ28HJzNISCbPtc/xbYDX2ZBVG4I +LFZT4dc62fvwJLlBPjIECpbin6zsJvBJfV75sE4I/Ii1c3r5lMAPApvKP7cH +A/PaUppPH4E+l2a1QwaCYLxz78/bwwT+jjeLMBYIhHtzvjnHRghsO1Rn8ONH +AKRsLNIV/MDeL/NYsuVNAGgc3pASMkog3y6P6IrCAEj88F7OaJxAF1Z38Cqt +AFD+fc52fJo9HxIf+w54+kOYbGsj8ZPA4w3rkmJG/CBZwSR7lG3Zeu3Y/nY/ +yFPqDbr5i92P2gl//TI/aNcc3am4SKAYGmRHh/qBwAGuEsYygWV6ERzhon5Q +HKh7xYyLxG+nvhspWfpC/+PWU2EbSGSdnHH6b9wbJrtN9gM/iX+CSoPqn3nD +0overZwbSTy7fpl4X+8N5NDoWKwAiVfl026GJHuD1xcuuzRhEo8eEV78oeEN +XOJ6BiUSJH76mXD3+ZbToOT5kD6whcTD0+sUyqu8gLPA+M8lORI9/eWsy1K9 +oPfts7e6W0nsVtg51nvaCwLMhrLuyJOYpRJ17Kq8FzQo/xCM3UZiR6TH4IY8 +TzD8tYVXbSeJ8r8N1PwzT4BDdMJ82l4So8YVbny/4Q4qTRufGgGJIdnmjPYL +7sD1M4P1l+2W9ps1DS7ucNO94ISnNolEx2SvgLw7zJg0junokVjZ57nBrdIN +ggQ+D3wxIvE2j2NL4lNXSL5u0XLAksRWTeZSE80FrtUrvhKyIvEYj8mjK5wu +UNbHM/ua7VDNIfG08ePQs+ae2HFrEiemqDu/yo7D2iBp7yA7EvveTmT6ah+H +iwcXaDccSeyn/9u86OUMF1ZcCft6kkS7nCJl5SFHSJX0Tq05ReKYhv82/TZH +yGMY3wo7TeKuQQn3EJYjPDj5p5fHh8SSZollOOsIHIOuChJnSPQpXeuqRTpC +eDljUDeERI6HC0+eezlAoPNrxuUYEmfoE9rfVY6CeIZ0tVUsiSPf+WPF1xyF +po6TqmJxJD4XsNbwGz0C3CqcytkXSaw+dORjY/oRSOVQkL+RSKJC0Tmv/37b +Q1lOmCQrlcSLfRkVg112MP6KvqLtGokFjLSelCs2EL/mRETMdRLjrvnKsc7Y +wDaoXDbIZfdfNxH83cIGztw0XOy4QWLA08+yfPw2wOnv8+1ZAYnO7YfuqCVa +g5RA68e3JSR6PXIIC008DIf2u3YsVJMYGbBplfZtS6iuKDMqriFRcePGdcdT +LEFM4ufjI7Ukvnja1lzkbwlvJ2PbH9WReL1JOSMFLcEltvhhZgOJozaiL0Zf +HYKABzNNux+w57fFjnl67SHIVPeriOomMXnS5bNUogUsXr+notFDokFFs+gG +fwuwX8VdPss2bwvLU/KoBRD96XetnpF4/rsnf4KSBRT7VbPkeklca83Fquw3 +h/qy30VdA+z5PDxYLClnDm9lzjGFxkjk6Wc9b2s4AGGnJP8ZYDv5c5X16L8H +QLK2lo/5kcSD/w191HA7AEdMvgRIT5CY1yI8nSJwAN75OJmrTJHse2Yp952n +GQw36fEcnCfxb+vYSJ2cKYxZ83knLJFYNOT6K/6JMUTlFcoeWCaRuU6zDguN +QWZGe0jgD4mq+2BGNtIYXCJCjK/+JfGLsHnpBQ1jGC+clinmpDDZdbkxsNQI +Pn3tfv2Il8KTD5/6CmUbwmxiqi6nMIWcEuJ857P0Yf/qbf+rZbvCxbL/dZg+ +lMS2l58WofC+UWq4pYM+uJ9fIodEKfzpnFRSs0UfxgJdOWrFKXwsatVI1e6D +t06ajScJCtsDRI6feq8Hneof1F4rUGhptX6wXl8X5KvD5pIV2fUUWczd23Uh +bqfoTf1tFJZUqkgOCeuC/vb9wpXbKaycaaoP/qgDD6SrvyUpU2hx78ARqRgd +qF8ff1ePQeGQfdzKuS5tKB5Tlr+rQ2G4yB7ZhtMIzJDdxs66FM4sNaWo2yEk +8RucENGj8E2npEmPPsKZ3fYlYfsojFB5prqPhoDpMfJGhhRuY7kL3mMC9Ou+ +kf9gSuELn5ldu133Amd+lIKQDYVPez4vbZXcDd/Vk03a2f6W6Llt5W8t+NST +5RliS2HezOCrNf1a0L1YdnvYjsKiPJn2qylakGnxWoF1lEKr9hWWdau0YDvn +dkX94xT21Alu7lrWAFvHV4pBpykceL+XObNKHRJe74rS9KZwuCbG13CCAQ3m +6W+W2N7rJaj87BEDaDrm8ZG+FOopxZx1imHACNU5Ee9PYT/FxZ+4igHuY015 +OaEUGnXTils2qkGg202x1lgKDWUFdDT1VOHWe27v6DgKDUy2fCySU4WBw87t +BhfZeVqmV2muUwVNQyKgK57CrruTYk/7d8Ifuau9fZcoLOa4k8Ly3AkxU5eS +PqVR+KCSz1SUqQLpJ/251+dSaP868LGtiDJEbXph38r2kA8tMZdDGfzatlcF +3aDQa36wesW0ElhIfXIZzaPwv5vqdcLNSsDfbdteW8juP5i/+ZynElxSxHjn +2xTuiba7kZC0A2KmV/PXVVOoqVj9+bD0NgjIcHM/VUPhTolZIfijCC66D5ul +a9l58WuJW75WBL3scJ+kOgpjDii+WZuiCFwm8y+cGyj8yhs6XPBXAc6V9F1e +/4DCXt4qpX0T8hDskStxvJvCzFje/x71y4FV+uaE7T0U5guUFPpUyIHq/ZLF +X2zfd3a4YJYiB/NCVa8vPaOQy+HoKNNYDlybn2TU9LLrGbTdjmrZAodEvwmu +GaSQ4W6nu69WFra37VtbPk6h73yU9cN2GVg73xEaNkHhtfBcXcUSGZgUPzit +/4nCi97jG5oSZaDA27bjzSSFylrBjkctZEBC8nTcylkK4zIE/014Lw28fpnc +Nt8o3J7K5+G6QhrGc6TOSC9QKGF4/l/zcQpaH+eNzrId5SYo7NxJwVka68H5 +HxQ2HA61+nWZgu9PWs6V/qYwoz/8y0dFCl4s6M8HLFIo/ekR/Y8ABXfpXce0 +/0ehems2p9ZvErz8+/f2L1E43bZSjHpEgnGuXVnuMrt+sN1YZykJWzqHpTz/ +UBi0vzEzK40E7h8ul3b9pdBh4h5nQggJH4jppb9sV/dum7/uSML/AV0ZIFE= + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0le3XB3Ah0ShzhnPu+yYJFZJjqPY2ZIziiUyVIVNUhswkZQrhQSFH +yZDIUY+ZEEnK1CCSUkRkTKXJj3rP+9e1Pn/tfa3v3mtt0um0hQsnBwfH5hUc +HP//ajVt5eHgEEIt4QXZjstzMDBS9dxjhRCqNWsVTKTPQcBKnZxeTiG8JfMi +k5vt8v22qkUrhVCSp358d+ocyL2JdzJbI4Qn14uuK0qaA5Ff001MESG0SMhG +x9g5+KJcFqixTQgni60Iz6A5KCpUmfS1FUKhwvW7W63nYHOpYkBkgxDOXcyX +jlgzB7//xfP8YsI4dn96k3PNLNS0ODzq9RHG9ys2Kklbz0Isv2+lSq8wBvht +qc8YngHW3hxSYLsISl9Jp306NgMfE+rUL6WIYKPLDtMr96dhlfSH2N1fRDAg +1ubd0OppiMiSsfIyEcUlcf2hdJMp4Nth3cNgieLPNYkdVxwnYTK/sO0CrxiW +cK21n/L6BBVOfxe4nMTQTPLr1yfOE5CMxj30VjF8L246+2bLOLQsl8k2SG3C +a15Z2aETY7BykHvrQsQm3PfseTPTdxR2crg5OwxvwrzcWsptbgRqVo5KmmqK +Y9FdWylF/2EwlT94ri9bHJt7E1Tj84dAY/srp3c/xLE0caHuXdIgMMwPfD5v +I4GFezwVz+q8AnpTb4VdvQSeSoThPOIlHFnt+7NSSBKdvl7fOG77HFj+Kz4W +B0jilvLiOSbRDf80l5jTX0ii72XjoknnxzB6yOHHYwUpPFIzb2C++yFE867a +t/6SFHK+zN8guL8ZwrPbBV5OSKFONeF+0LQe9J1uZh6ZlMInvsnSmqr1sH5r +NG1iSgqHXbp2qEnUw7VqHfnFWSnkmrPY7DJZB03PG7WJBSlM7R+YyYmpAw7e +Sm8vDhqy0kz5Ax7WwvkzuT3cm2i4wG3en2FaA7GmwfG7jGkY4Sg9tje9EgL2 +qY/UmNCwQ8SqfDaiElz3/GRomtLQOcIpp9SzEvS3+X/ce5CGlIZJma1uJfCs +80FDKxqab176GfCtAqK63H/YOtHwAO34n2KrCog0sXY6F0JDpnXLyXa5cgg1 +Ymh2ltBw14uskrCFO/Dp1tfUnaU0tBGsiWD13QEr3rLpbBYNp/ZL035W3wGl +dpkcr7s0/NOYdeFl8B0Y0xPgWF9Nw8k3YherOe6AGc62HWyhYWhHh+pawTIg +GPnm/a9oOFLTpZRvVAptMhs8Rrjp+Jpup5b3v1tQZuir5M5Dx5mgVM4Lw7cg +06vv59wqOva4scTD227BicrsmKXVdCx13DXdkHwL+PXkCkQ30tGjaq+ax+Zb +YO+s/d5Uio6/tHQaXCyL4NsNP8v6XXTsLHLiDW4vhLdt/ZLaDDq+0P770OlO +ITya1BhrV6ej5NYVVc4ZhZCpzOHXp0VHYamimRK3Qtjbkpgyr03HJqldk/v5 +CiF+uLBT1oyOBuefXnl2sABI+oB2misdR27VnXSez4O4EsYaDnc6Sk9teh7+ +Ng/mdmW89PKg4ymriLySx3nQsN/KTd+Ljlv6Sm21buSBdcjLxN8+dFxjmXWX +8U8eJPU9e3UsnI6sq1fPptTfgMWEJycV0+lYFv+m3e1KLjiKbmVkXaYj30ZL +VnVULjzOi+PgyaDjPfk0JxG/XLhcZ5D2Pov9v76bfLwHc0Fpoq029TodK1dv +/VS+OhdcdR5w/S6h49Hgug4Gz3Xo/VWf1dZCR2akZlb7XyY4VS3uVGilY432 +0fs8I0yY99HsSXlIR6JLScv5ARPWTtdx2rfT0WzwzYBfNBP0h2o9v3bRUWxo +l/KXtUyob6neQx9g55ctn2NIZkNufPlI0BwdaQE2+T1Hs2C7wdfQd5/pONF9 +hLykmwWNXCoiel/Y+fRW7XCVy4LBsP+MNyzQsc7UscjtayYInb5bUfibjnGB +P0oKYzPh4dZXOh6cBE72eLj/rzoDGOv7hK6sI1Aw9pp4qNwVaOgx3GS9nsAu +lT1frdZfAZ3kBinxDQQevT+wZLZwGfbzF8he4yeQf424XlrzZXAS8FO/KUig +2jKr28P2MiSKbLSv3kQguG3LUE9Lhw800/z+zQRyjhnFlImlgfv75qJMWQK3 +WZ7gHV6RBrPXVUtttxBYUNibLz+dCr8Iyap3cgQ6Sru1r25KhXXS04/GFQh8 +H/uPwsLxVFDfcnHqhzKBFa9NPlnV/AtJO9qURfcSmD+QGnvvZAq8kGYwutiW +aKEm1OxSQESseHckEChdY1bYZpgC1zguGUwjgdWTN39IyqRA2fNDR+7rEjjf +ac3hVJMMPX5jcW5GBJpKjQ80MZNgQy3XcM0hArMvJYs2nE+EQ6X+H70sCaQ6 +vucbOCVCZu7EFGlFYIpcH+u7diIQFzu/JxwmUN1zd23tikRQsk1b42BLoLhG +OPHqfAIcXKIYvA4EKh5UtrBJiIcU1Emy9iSQeaGNmVkZBwKivJ2SXgROLTLt ++y7HQfps96oRtuvi/m5UC4yDrKs2kR6nCByrnXjkpBkHeQveZ0J8CBwQLdVx +eRALFbeu2zIDCVzJm7NzbiAG+vmXZYcvEFjlveOdID0arCceOBdEETjrf6My +jjsaBhvjct2jCVQyy1glNRUF704IiX+JIdCuZjg7vyoKJh4qrOOMJ/DIcYUX +MmZR8CvI9pt0CoHlSQVBg1EXQGKk5r4bk0BZuegHSrznwX46dJmWQ6D9RHTY +wNdIYH4HrX62NzTTt2cORQJt9eNqvesEBq5pFz5WEQnUzgEWmUfggxjChNch +EuSif2W/KSLw0J7PqhWN50Btq0bQgQoCbwscXU4UjIDAnctVPJUEuortljs7 +dxZq97R8a2R7WWelV9aTs6BpYXRasZpAbr4dSabnzsKeUBtXvjoC98rYnyn6 +HA563cGHWpsI1J4J5l7qCwNzn3olRgeBfZ28HJzNISCbPtc/xbYDX2ZBVG4I +LFZT4dc62fvwJLlBPjIECpbin6zsJvBJfV75sE4I/Ii1c3r5lMAPApvKP7cH +A/PaUppPH4E+l2a1QwaCYLxz78/bwwT+jjeLMBYIhHtzvjnHRghsO1Rn8ONH +AKRsLNIV/MDeL/NYsuVNAGgc3pASMkog3y6P6IrCAEj88F7OaJxAF1Z38Cqt +AFD+fc52fJo9HxIf+w54+kOYbGsj8ZPA4w3rkmJG/CBZwSR7lG3Zeu3Y/nY/ +yFPqDbr5i92P2gl//TI/aNcc3am4SKAYGmRHh/qBwAGuEsYygWV6ERzhon5Q +HKh7xYyLxG+nvhspWfpC/+PWU2EbSGSdnHH6b9wbJrtN9gM/iX+CSoPqn3nD +0overZwbSTy7fpl4X+8N5NDoWKwAiVfl026GJHuD1xcuuzRhEo8eEV78oeEN +XOJ6BiUSJH76mXD3+ZbToOT5kD6whcTD0+sUyqu8gLPA+M8lORI9/eWsy1K9 +oPfts7e6W0nsVtg51nvaCwLMhrLuyJOYpRJ17Kq8FzQo/xCM3UZiR6TH4IY8 +TzD8tYVXbSeJ8r8N1PwzT4BDdMJ82l4So8YVbny/4Q4qTRufGgGJIdnmjPYL +7sD1M4P1l+2W9ps1DS7ucNO94ISnNolEx2SvgLw7zJg0junokVjZ57nBrdIN +ggQ+D3wxIvE2j2NL4lNXSL5u0XLAksRWTeZSE80FrtUrvhKyIvEYj8mjK5wu +UNbHM/ua7VDNIfG08ePQs+ae2HFrEiemqDu/yo7D2iBp7yA7EvveTmT6ah+H +iwcXaDccSeyn/9u86OUMF1ZcCft6kkS7nCJl5SFHSJX0Tq05ReKYhv82/TZH +yGMY3wo7TeKuQQn3EJYjPDj5p5fHh8SSZollOOsIHIOuChJnSPQpXeuqRTpC +eDljUDeERI6HC0+eezlAoPNrxuUYEmfoE9rfVY6CeIZ0tVUsiSPf+WPF1xyF +po6TqmJxJD4XsNbwGz0C3CqcytkXSaw+dORjY/oRSOVQkL+RSKJC0Tmv/37b +Q1lOmCQrlcSLfRkVg112MP6KvqLtGokFjLSelCs2EL/mRETMdRLjrvnKsc7Y +wDaoXDbIZfdfNxH83cIGztw0XOy4QWLA08+yfPw2wOnv8+1ZAYnO7YfuqCVa +g5RA68e3JSR6PXIIC008DIf2u3YsVJMYGbBplfZtS6iuKDMqriFRcePGdcdT +LEFM4ufjI7Ukvnja1lzkbwlvJ2PbH9WReL1JOSMFLcEltvhhZgOJozaiL0Zf +HYKABzNNux+w57fFjnl67SHIVPeriOomMXnS5bNUogUsXr+notFDokFFs+gG +fwuwX8VdPss2bwvLU/KoBRD96XetnpF4/rsnf4KSBRT7VbPkeklca83Fquw3 +h/qy30VdA+z5PDxYLClnDm9lzjGFxkjk6Wc9b2s4AGGnJP8ZYDv5c5X16L8H +QLK2lo/5kcSD/w191HA7AEdMvgRIT5CY1yI8nSJwAN75OJmrTJHse2Yp952n +GQw36fEcnCfxb+vYSJ2cKYxZ83knLJFYNOT6K/6JMUTlFcoeWCaRuU6zDguN +QWZGe0jgD4mq+2BGNtIYXCJCjK/+JfGLsHnpBQ1jGC+clinmpDDZdbkxsNQI +Pn3tfv2Il8KTD5/6CmUbwmxiqi6nMIWcEuJ857P0Yf/qbf+rZbvCxbL/dZg+ +lMS2l58WofC+UWq4pYM+uJ9fIodEKfzpnFRSs0UfxgJdOWrFKXwsatVI1e6D +t06ajScJCtsDRI6feq8Hneof1F4rUGhptX6wXl8X5KvD5pIV2fUUWczd23Uh +bqfoTf1tFJZUqkgOCeuC/vb9wpXbKaycaaoP/qgDD6SrvyUpU2hx78ARqRgd +qF8ff1ePQeGQfdzKuS5tKB5Tlr+rQ2G4yB7ZhtMIzJDdxs66FM4sNaWo2yEk +8RucENGj8E2npEmPPsKZ3fYlYfsojFB5prqPhoDpMfJGhhRuY7kL3mMC9Ou+ +kf9gSuELn5ldu133Amd+lIKQDYVPez4vbZXcDd/Vk03a2f6W6Llt5W8t+NST +5RliS2HezOCrNf1a0L1YdnvYjsKiPJn2qylakGnxWoF1lEKr9hWWdau0YDvn +dkX94xT21Alu7lrWAFvHV4pBpykceL+XObNKHRJe74rS9KZwuCbG13CCAQ3m +6W+W2N7rJaj87BEDaDrm8ZG+FOopxZx1imHACNU5Ee9PYT/FxZ+4igHuY015 +OaEUGnXTils2qkGg202x1lgKDWUFdDT1VOHWe27v6DgKDUy2fCySU4WBw87t +BhfZeVqmV2muUwVNQyKgK57CrruTYk/7d8Ifuau9fZcoLOa4k8Ly3AkxU5eS +PqVR+KCSz1SUqQLpJ/251+dSaP868LGtiDJEbXph38r2kA8tMZdDGfzatlcF +3aDQa36wesW0ElhIfXIZzaPwv5vqdcLNSsDfbdteW8juP5i/+ZynElxSxHjn +2xTuiba7kZC0A2KmV/PXVVOoqVj9+bD0NgjIcHM/VUPhTolZIfijCC66D5ul +a9l58WuJW75WBL3scJ+kOgpjDii+WZuiCFwm8y+cGyj8yhs6XPBXAc6V9F1e +/4DCXt4qpX0T8hDskStxvJvCzFje/x71y4FV+uaE7T0U5guUFPpUyIHq/ZLF +X2zfd3a4YJYiB/NCVa8vPaOQy+HoKNNYDlybn2TU9LLrGbTdjmrZAodEvwmu +GaSQ4W6nu69WFra37VtbPk6h73yU9cN2GVg73xEaNkHhtfBcXcUSGZgUPzit +/4nCi97jG5oSZaDA27bjzSSFylrBjkctZEBC8nTcylkK4zIE/014Lw28fpnc +Nt8o3J7K5+G6QhrGc6TOSC9QKGF4/l/zcQpaH+eNzrId5SYo7NxJwVka68H5 +HxQ2HA61+nWZgu9PWs6V/qYwoz/8y0dFCl4s6M8HLFIo/ekR/Y8ABXfpXce0 +/0ehems2p9ZvErz8+/f2L1E43bZSjHpEgnGuXVnuMrt+sN1YZykJWzqHpTz/ +UBi0vzEzK40E7h8ul3b9pdBh4h5nQggJH4jppb9sV/dum7/uSML/AV0ZIFE= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{5, 9.5}, {0., 0.9557848702249098}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{5, 9.5}, {0., 0.9557848702249098}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0le3XB3Ah0ShzhnPu+yYJFZJjqPY2ZIziiUyVIVNUhswkZQrhQSFH +yZDIUY+ZEEnK1CCSUkRkTKXJj3rP+9e1Pn/tfa3v3mtt0um0hQsnBwfH5hUc +HP//ajVt5eHgEEIt4QXZjstzMDBS9dxjhRCqNWsVTKTPQcBKnZxeTiG8JfMi +k5vt8v22qkUrhVCSp358d+ocyL2JdzJbI4Qn14uuK0qaA5Ff001MESG0SMhG +x9g5+KJcFqixTQgni60Iz6A5KCpUmfS1FUKhwvW7W63nYHOpYkBkgxDOXcyX +jlgzB7//xfP8YsI4dn96k3PNLNS0ODzq9RHG9ys2Kklbz0Isv2+lSq8wBvht +qc8YngHW3hxSYLsISl9Jp306NgMfE+rUL6WIYKPLDtMr96dhlfSH2N1fRDAg +1ubd0OppiMiSsfIyEcUlcf2hdJMp4Nth3cNgieLPNYkdVxwnYTK/sO0CrxiW +cK21n/L6BBVOfxe4nMTQTPLr1yfOE5CMxj30VjF8L246+2bLOLQsl8k2SG3C +a15Z2aETY7BykHvrQsQm3PfseTPTdxR2crg5OwxvwrzcWsptbgRqVo5KmmqK +Y9FdWylF/2EwlT94ri9bHJt7E1Tj84dAY/srp3c/xLE0caHuXdIgMMwPfD5v +I4GFezwVz+q8AnpTb4VdvQSeSoThPOIlHFnt+7NSSBKdvl7fOG77HFj+Kz4W +B0jilvLiOSbRDf80l5jTX0ii72XjoknnxzB6yOHHYwUpPFIzb2C++yFE867a +t/6SFHK+zN8guL8ZwrPbBV5OSKFONeF+0LQe9J1uZh6ZlMInvsnSmqr1sH5r +NG1iSgqHXbp2qEnUw7VqHfnFWSnkmrPY7DJZB03PG7WJBSlM7R+YyYmpAw7e +Sm8vDhqy0kz5Ax7WwvkzuT3cm2i4wG3en2FaA7GmwfG7jGkY4Sg9tje9EgL2 +qY/UmNCwQ8SqfDaiElz3/GRomtLQOcIpp9SzEvS3+X/ce5CGlIZJma1uJfCs +80FDKxqab176GfCtAqK63H/YOtHwAO34n2KrCog0sXY6F0JDpnXLyXa5cgg1 +Ymh2ltBw14uskrCFO/Dp1tfUnaU0tBGsiWD13QEr3rLpbBYNp/ZL035W3wGl +dpkcr7s0/NOYdeFl8B0Y0xPgWF9Nw8k3YherOe6AGc62HWyhYWhHh+pawTIg +GPnm/a9oOFLTpZRvVAptMhs8Rrjp+Jpup5b3v1tQZuir5M5Dx5mgVM4Lw7cg +06vv59wqOva4scTD227BicrsmKXVdCx13DXdkHwL+PXkCkQ30tGjaq+ax+Zb +YO+s/d5Uio6/tHQaXCyL4NsNP8v6XXTsLHLiDW4vhLdt/ZLaDDq+0P770OlO +ITya1BhrV6ej5NYVVc4ZhZCpzOHXp0VHYamimRK3Qtjbkpgyr03HJqldk/v5 +CiF+uLBT1oyOBuefXnl2sABI+oB2misdR27VnXSez4O4EsYaDnc6Sk9teh7+ +Ng/mdmW89PKg4ymriLySx3nQsN/KTd+Ljlv6Sm21buSBdcjLxN8+dFxjmXWX +8U8eJPU9e3UsnI6sq1fPptTfgMWEJycV0+lYFv+m3e1KLjiKbmVkXaYj30ZL +VnVULjzOi+PgyaDjPfk0JxG/XLhcZ5D2Pov9v76bfLwHc0Fpoq029TodK1dv +/VS+OhdcdR5w/S6h49Hgug4Gz3Xo/VWf1dZCR2akZlb7XyY4VS3uVGilY432 +0fs8I0yY99HsSXlIR6JLScv5ARPWTtdx2rfT0WzwzYBfNBP0h2o9v3bRUWxo +l/KXtUyob6neQx9g55ctn2NIZkNufPlI0BwdaQE2+T1Hs2C7wdfQd5/pONF9 +hLykmwWNXCoiel/Y+fRW7XCVy4LBsP+MNyzQsc7UscjtayYInb5bUfibjnGB +P0oKYzPh4dZXOh6cBE72eLj/rzoDGOv7hK6sI1Aw9pp4qNwVaOgx3GS9nsAu +lT1frdZfAZ3kBinxDQQevT+wZLZwGfbzF8he4yeQf424XlrzZXAS8FO/KUig +2jKr28P2MiSKbLSv3kQguG3LUE9Lhw800/z+zQRyjhnFlImlgfv75qJMWQK3 +WZ7gHV6RBrPXVUtttxBYUNibLz+dCr8Iyap3cgQ6Sru1r25KhXXS04/GFQh8 +H/uPwsLxVFDfcnHqhzKBFa9NPlnV/AtJO9qURfcSmD+QGnvvZAq8kGYwutiW +aKEm1OxSQESseHckEChdY1bYZpgC1zguGUwjgdWTN39IyqRA2fNDR+7rEjjf +ac3hVJMMPX5jcW5GBJpKjQ80MZNgQy3XcM0hArMvJYs2nE+EQ6X+H70sCaQ6 +vucbOCVCZu7EFGlFYIpcH+u7diIQFzu/JxwmUN1zd23tikRQsk1b42BLoLhG +OPHqfAIcXKIYvA4EKh5UtrBJiIcU1Emy9iSQeaGNmVkZBwKivJ2SXgROLTLt ++y7HQfps96oRtuvi/m5UC4yDrKs2kR6nCByrnXjkpBkHeQveZ0J8CBwQLdVx +eRALFbeu2zIDCVzJm7NzbiAG+vmXZYcvEFjlveOdID0arCceOBdEETjrf6My +jjsaBhvjct2jCVQyy1glNRUF704IiX+JIdCuZjg7vyoKJh4qrOOMJ/DIcYUX +MmZR8CvI9pt0CoHlSQVBg1EXQGKk5r4bk0BZuegHSrznwX46dJmWQ6D9RHTY +wNdIYH4HrX62NzTTt2cORQJt9eNqvesEBq5pFz5WEQnUzgEWmUfggxjChNch +EuSif2W/KSLw0J7PqhWN50Btq0bQgQoCbwscXU4UjIDAnctVPJUEuortljs7 +dxZq97R8a2R7WWelV9aTs6BpYXRasZpAbr4dSabnzsKeUBtXvjoC98rYnyn6 +HA563cGHWpsI1J4J5l7qCwNzn3olRgeBfZ28HJzNISCbPtc/xbYDX2ZBVG4I +LFZT4dc62fvwJLlBPjIECpbin6zsJvBJfV75sE4I/Ii1c3r5lMAPApvKP7cH +A/PaUppPH4E+l2a1QwaCYLxz78/bwwT+jjeLMBYIhHtzvjnHRghsO1Rn8ONH +AKRsLNIV/MDeL/NYsuVNAGgc3pASMkog3y6P6IrCAEj88F7OaJxAF1Z38Cqt +AFD+fc52fJo9HxIf+w54+kOYbGsj8ZPA4w3rkmJG/CBZwSR7lG3Zeu3Y/nY/ +yFPqDbr5i92P2gl//TI/aNcc3am4SKAYGmRHh/qBwAGuEsYygWV6ERzhon5Q +HKh7xYyLxG+nvhspWfpC/+PWU2EbSGSdnHH6b9wbJrtN9gM/iX+CSoPqn3nD +0overZwbSTy7fpl4X+8N5NDoWKwAiVfl026GJHuD1xcuuzRhEo8eEV78oeEN +XOJ6BiUSJH76mXD3+ZbToOT5kD6whcTD0+sUyqu8gLPA+M8lORI9/eWsy1K9 +oPfts7e6W0nsVtg51nvaCwLMhrLuyJOYpRJ17Kq8FzQo/xCM3UZiR6TH4IY8 +TzD8tYVXbSeJ8r8N1PwzT4BDdMJ82l4So8YVbny/4Q4qTRufGgGJIdnmjPYL +7sD1M4P1l+2W9ps1DS7ucNO94ISnNolEx2SvgLw7zJg0junokVjZ57nBrdIN +ggQ+D3wxIvE2j2NL4lNXSL5u0XLAksRWTeZSE80FrtUrvhKyIvEYj8mjK5wu +UNbHM/ua7VDNIfG08ePQs+ae2HFrEiemqDu/yo7D2iBp7yA7EvveTmT6ah+H +iwcXaDccSeyn/9u86OUMF1ZcCft6kkS7nCJl5SFHSJX0Tq05ReKYhv82/TZH +yGMY3wo7TeKuQQn3EJYjPDj5p5fHh8SSZollOOsIHIOuChJnSPQpXeuqRTpC +eDljUDeERI6HC0+eezlAoPNrxuUYEmfoE9rfVY6CeIZ0tVUsiSPf+WPF1xyF +po6TqmJxJD4XsNbwGz0C3CqcytkXSaw+dORjY/oRSOVQkL+RSKJC0Tmv/37b +Q1lOmCQrlcSLfRkVg112MP6KvqLtGokFjLSelCs2EL/mRETMdRLjrvnKsc7Y +wDaoXDbIZfdfNxH83cIGztw0XOy4QWLA08+yfPw2wOnv8+1ZAYnO7YfuqCVa +g5RA68e3JSR6PXIIC008DIf2u3YsVJMYGbBplfZtS6iuKDMqriFRcePGdcdT +LEFM4ufjI7Ukvnja1lzkbwlvJ2PbH9WReL1JOSMFLcEltvhhZgOJozaiL0Zf +HYKABzNNux+w57fFjnl67SHIVPeriOomMXnS5bNUogUsXr+notFDokFFs+gG +fwuwX8VdPss2bwvLU/KoBRD96XetnpF4/rsnf4KSBRT7VbPkeklca83Fquw3 +h/qy30VdA+z5PDxYLClnDm9lzjGFxkjk6Wc9b2s4AGGnJP8ZYDv5c5X16L8H +QLK2lo/5kcSD/w191HA7AEdMvgRIT5CY1yI8nSJwAN75OJmrTJHse2Yp952n +GQw36fEcnCfxb+vYSJ2cKYxZ83knLJFYNOT6K/6JMUTlFcoeWCaRuU6zDguN +QWZGe0jgD4mq+2BGNtIYXCJCjK/+JfGLsHnpBQ1jGC+clinmpDDZdbkxsNQI +Pn3tfv2Il8KTD5/6CmUbwmxiqi6nMIWcEuJ857P0Yf/qbf+rZbvCxbL/dZg+ +lMS2l58WofC+UWq4pYM+uJ9fIodEKfzpnFRSs0UfxgJdOWrFKXwsatVI1e6D +t06ajScJCtsDRI6feq8Hneof1F4rUGhptX6wXl8X5KvD5pIV2fUUWczd23Uh +bqfoTf1tFJZUqkgOCeuC/vb9wpXbKaycaaoP/qgDD6SrvyUpU2hx78ARqRgd +qF8ff1ePQeGQfdzKuS5tKB5Tlr+rQ2G4yB7ZhtMIzJDdxs66FM4sNaWo2yEk +8RucENGj8E2npEmPPsKZ3fYlYfsojFB5prqPhoDpMfJGhhRuY7kL3mMC9Ou+ +kf9gSuELn5ldu133Amd+lIKQDYVPez4vbZXcDd/Vk03a2f6W6Llt5W8t+NST +5RliS2HezOCrNf1a0L1YdnvYjsKiPJn2qylakGnxWoF1lEKr9hWWdau0YDvn +dkX94xT21Alu7lrWAFvHV4pBpykceL+XObNKHRJe74rS9KZwuCbG13CCAQ3m +6W+W2N7rJaj87BEDaDrm8ZG+FOopxZx1imHACNU5Ee9PYT/FxZ+4igHuY015 +OaEUGnXTils2qkGg202x1lgKDWUFdDT1VOHWe27v6DgKDUy2fCySU4WBw87t +BhfZeVqmV2muUwVNQyKgK57CrruTYk/7d8Ifuau9fZcoLOa4k8Ly3AkxU5eS +PqVR+KCSz1SUqQLpJ/251+dSaP868LGtiDJEbXph38r2kA8tMZdDGfzatlcF +3aDQa36wesW0ElhIfXIZzaPwv5vqdcLNSsDfbdteW8juP5i/+ZynElxSxHjn +2xTuiba7kZC0A2KmV/PXVVOoqVj9+bD0NgjIcHM/VUPhTolZIfijCC66D5ul +a9l58WuJW75WBL3scJ+kOgpjDii+WZuiCFwm8y+cGyj8yhs6XPBXAc6V9F1e +/4DCXt4qpX0T8hDskStxvJvCzFje/x71y4FV+uaE7T0U5guUFPpUyIHq/ZLF +X2zfd3a4YJYiB/NCVa8vPaOQy+HoKNNYDlybn2TU9LLrGbTdjmrZAodEvwmu +GaSQ4W6nu69WFra37VtbPk6h73yU9cN2GVg73xEaNkHhtfBcXcUSGZgUPzit +/4nCi97jG5oSZaDA27bjzSSFylrBjkctZEBC8nTcylkK4zIE/014Lw28fpnc +Nt8o3J7K5+G6QhrGc6TOSC9QKGF4/l/zcQpaH+eNzrId5SYo7NxJwVka68H5 +HxQ2HA61+nWZgu9PWs6V/qYwoz/8y0dFCl4s6M8HLFIo/ekR/Y8ABXfpXce0 +/0ehems2p9ZvErz8+/f2L1E43bZSjHpEgnGuXVnuMrt+sN1YZykJWzqHpTz/ +UBi0vzEzK40E7h8ul3b9pdBh4h5nQggJH4jppb9sV/dum7/uSML/AV0ZIFE= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{5, 9.5}, {0., 0.9557848702249098}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + 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:eJwVl3k8VO8XxyUVKmSG7IYxZoY2ZM89J1kKabELpSgVKaGURJaQLCWpKLKk +LJElS7KXKCFLIdkpEWZSyle/+f1z7+u8nuee+7ye1znn/fnIHfbc78rNxcW1 +i/P4/9vX32INF5cQkk1HytZMzYCZqWv7aJEQGj4QWHB+MQs7be2+c/utw5Tv +/lI9T+fgBzWIR26LMK5x1X/DF8WC48E1UY+GhfFanWkIE9jAJzfi5ppJwoY7 +RW7ehWywvKSzQ8GBjH3DsOvUczbUrz97RkJOBDuvbbWQUmXDKqN6Qb8hEezQ +hjV6Miz4qbor52OCKBZ6j8YJZc0Cn1N+kqf9ejSsqnz5/fAPaDQ2vbZqnRjS +SmLHiN2TYN+w9HVVvRjK5q7ZVb5lHISD4pMgTBzDbj5qXxgeAu+/jrvP60qg +u7FO0tez/bBYyLd/4p8EPmzPMKkJ7wYbrpZX1dWSOH9e37ZwsA0cV7/Svust +hY/sXRciNZohwjKFK1tTGtsKE6zOT9TBIYe8hhdT0siYemTcaVcJDg/v968o +lMH5MrcbpzuLYIP/o2PPvWVxSeXHtYdeuWDJ7/WriEzBJ5JoOySXAek+y0Yf ++1LQf2bLSxPjZDCpfrJPtp2C4Q3jCYGP46HH8tB8o7Icdi1OetbrXAd/3lWG +Atfl0O6TXvD1/4LB+95r4Y5xOQy4nrWnhXURAnb7RaqbyGPjVYFzLhNe4LVL +U6f5iTw2nVIyCHt2HF4oCB4f5KEi18Bqp+BhZxCT/bj95lEq8kzfrLCUtoWm +3+V3GmqouD7E4uL3x3vhqNQT5gZJBZQ8bCZQvMEYyAcjj2zyV8BolmP9tCaA +WFCIVEGXAi5XqCg0uKkOm2o9L7/XomFNc8Xvn8Mb4O6Qt/OpeBpOJJqXBPVQ +YcYs7OL2aRqeeP9npeIFSbDtCof8PYqotsN+wc1dGEQh48qDJ4rYkxi0r9KR +D8ZePfNUWkvHW+47DNsnuSAl8W38Vw86qle/KOx/MU/k7+LSZjZyYv3ZldsP +/SDaxWlXeZQYuC/hv2Un/4wQJm+OWB4KZaCn95WztPd9RE5tnt1MPwMllnzv +EVMfCErvN14pZGJ1zNv0hpIm4ls7ajbeZeIfXr6StS61RMP2roV//5gYbHQy +MpEoJQaPOPzwshdCtffj9wL3zYIU4fE7rmMd/ktQGntCYUGORerOkQhh3CF8 +5Sj1Owu029svrDQkodKt8KKmUDZs2iPYZbCMjF+qfiQ+rWNDVJO1/YOXZNzq +GPzxylU2jOXdq34TJIJla35Rn5axIODFyv6sbaKY+i9iY4/nHFxu9FdI/y2K +WiOnvKdKZqC0u3BPfrIErjhV7Zj+qQeUek5GWR6SxAdo87EvtgN6VpgE5kpI +YROl2qF4+3tgbVZLlu+SQs81+9v27n8N3rb04cIb0jgalP5os0wNOF1W3O+8 +VwbbW0eL39eVgoEgNa2fJIvUn9MW5IgCONFomC30XhYzwpbutv/KgsUq7VNP +DSl4VLHGOuNuKvySsL7nkk7BCH1dn5ikRLgRuUKBvURBi1OryscOx0F2XmHy +SQc51M7Tt9u7ORx+7xtXPlMuh8tzJ6j3SgPBzzulhUdcHlUvVJe6//OF86a2 +hwMvyOP1Hzv2xG/yhPWaafu6uuUx7mum09AZV/iWetaqXJ2Kpmd67KYOOcLs +tTceG+KpuFHE8evlNZaQGPls8Pw0FUUaLEycm02hUu+uUa6pAradMNIIXbED +RE+vqvZ8rICHTBqdz7K1IU3uz+7qVTS8Q/guVj1SAZf9XjP3j9Kwn3bH4ASL +Dg23L03b1NAw1Z6eQA2hQHrc1c+/ZRQxM3SzqmSgKDznXz9Iv6SINgodSTU3 +BGCJe8PCSK8iPv50fs3Ecx6oewrckXp07KsbbL9R+ZdgnBk7ynePjvdyB5PE +hueImgLhAdEFOt4u3FvFevSViD5T7/HMhoGmluZ6aocHib+GfDaMZwxc93US +Gn52E2MtZiphgkxca7d9ZcTeVmJFtwjFy4OJ7b5x87uVXhG2kdfEXN4x8cZM +zbE3fZXEhpnuS9obhdAi88Sco8wsqJoe8WrKXIen0s96Fk7MQYtuXCa3ozDO +JWfUnK9kQZtS03IbMgkd3tir7XZlg1Spn2znBxLOJQX0zL9kw0xaY4vzdTK6 +vGS3rU9ng9WRVeJe+0TQe3Jrn/MfFugHjc7HCorie+rHspNNc1D+32G3l685 +9fz31Dln1VlI+BpuHu8ugen6/Ge6kvuA9FrHU2aLJF7sOrYle3kXiC2Poj6f +ksTYQffvBWWtkJXsf9IpQwqHEl6bBG99AwFdw2c2u0qjsfWuwaxztfDF49tq +QVkZ1NpKl4/9XQ6tHwfQa1gGi04RR5NlCsH0oS/fSKosmsWXRG6WzQbGaKeq +6kYKLjt3ZKLRJA3MG5Xx6nUKzmpaqDM+3YVTtI/lERMU7OhTqm1g34DaZfwm +EgZySLsxfvnw7UjQ2XiutCpNDjMf2fX37rwC86uKTrtzyWOQkv+WfQf84OJb +t3n7w/JYUNQfV6J8BgxwqmFvjTxq6r7Qn/I7BhZHtn/ZLU3F3tilY2s0DkFI +Z2v3wUtUtNb4KC37nxUU1JToyX6kogavAKvM0xyEN8qXuqspoMPl37Zr/hnA +rfHGde9vKOA/D0u6wblt4LQPirV+KOCs8KjQxRA12MU/q/l8Dw3blRJ8lM2V +YIveAn34CQ1vK6/zfSEpDyY/wjYkr1RE8ZcVl459FoPwmT1C7kcV8cbOWmn1 +RiHgT53Q069TxPetT9c3f18JlroLWvY0OjoKpkF/2hIxEvLpkl8IHalnU3oZ +ZWyi9FLEmpQBOm6Q5qm0OPidyG/wvtCLDPwqnW1bKjZMPLxaYlV/j1O/qe9O +jRr2EG8aLxnq/mJgxT1/13er2glhu0Dya2smNh7+KXHUqpFI3TRGFy1i4s8h +2+2bblQTkScLvjWUCOO2jl0GEevZkOrXO1vsQ8K2kcydvCls2D6WHlW0iYwG +V/6SjGrYwJgdGe37QcbzBc5+Ec5s8P2z2U3umQi23VMT0TjNgiRe3s9pxlJ4 +rcDRN2/jOyBqv7aMrZTGO9MCU2XRDXCi54SlVrU0/pwTs5ouroLPsYcTC4Nk +cN92AxN2aQmUGrquMDWQRRlth5vZwvkQMU3erbcoiztWVSunL2RC693kxxuc +KFjVfVcqVCAFUjwC57dXUJCqbuLTfj0BSn6oXncSkcPzzwa5godiIP6A4+wL +bznMaBm5H/dfKJT42jyQb5PDsSuPvZ/fDIDFgagNySrymLX24tmaHm/waTJu +ybghjxFCXRtk9rjDt412nw9My6Pz8c4LFglHIGggo1nRnIoGpWcttO7bg5N+ +7fKFJ1QcQqiyN94Ply3yQtt5FPCsAWubk/MucDMX7pw6ooDODTVgorsdbv82 +PCVUrYCKoQe5xJ5owsRs0ZgxhYYt52K/5c9shst3WVlhl2goVb/LwLuFBvZz +y4rfdtNwdDFbMYEiA0tq4dGWmpx56Koygg5kGFPoLxi+qYjjocIBGp9Ww5yL +Z9FVNmd+Tl9J3VfGDaoKYc1lVnS0iBit9ZJeINwdWXvuFNDx6fNU0QyNWaJp +9F7h9XUMTPDw/09cbZxwlyY7R5xiYMzB5NS/GV8ISx4H26hGBhZu2KBb9amT +WN4pKd1GZ6K6nU2aZNg74rdltrJ0CBM1Pn5QytpSTwiMbeF7NsbESxtn5gwm +yol9JSINSaJCKOj2Tvv8ilmo3Of0dCxmHY5NHM058HYO+jdHdMYZCaNmx6au +dRkskO423PnvrzAe+N67Y2w/G25832QgXUnCyqTOHt5yNjyMXcZX503G+xGs +tPE8Du/19AyNtEVQYaLV/RCnftOHLZevWBBBJSd/ZdWfc2ArZh1p+lQU+/70 +qCx6zEKoF2v3SksJfGB9siY37DOE6z08tFxMEkMoV4ym6rqgdNnGn7rdksis +2ufXaNoGVyxT9y9GSWHJZuplP5UmCBHR1/Ywl8ZjnYtXyBvrgOL6dsJ1pQz2 +vUm9fI76AhIqqwS3Ncug19UhtfKfhbBNMKZ09zVZdEsNsNLYkQMvf1FvsSgc +nn/f22Gokg4L9xNuiF2hYI/SyGgTXxL0eW0Ps/xMwU+03MJ7TTfBXFk9ZVZT +Dn2OdqRbDV6DXomqpaOJcnj0qJ6+j0wwFLdVbqew5TDSYNtw6oMLsLjmDO60 +lsc1/3LF3/B4Qa+BMJdAiTxm95o4DMe4Aa8BI339Oirq9FYMXV/lDOYXOqIW +zlDR7d2zzGWrbID4XHpy7i0V/cYX67w/7eHo27HTZnQFND536Ay/oBFYpj0u +D7iqgB4vn3MFv9cD3a+DE+whBdyqfuLh7tCtsO1o/oEdBjRcMo+rtI5ThlHB +5/VZD2j4r3vmwb+f8iB9f6Wl5x8abtlw+IQXVQJOH/lOFzigiANFmVMnbq0D +oRmjgZkSRcwr7icOSfOC9DJrS31xOibFFn9qEueCWgGLCBU/OvbK2lXwF/8k +iobrH7p00PG4jbmYXNcUUfPjLddpdQZKFSp6fFs+Qvgy1lrdiGXgxQNX3dYE +9xLlhgnvRSYZqCHuW+jDbifE7xZHnzFlYsDvB2v+BrwhXgXe3Oz5iIlV/gUB +a31qiHsHH4tbpQgj4/6d/4y42TBFs9FwciShi8Kyd+U32VAqYV+wuJ6MDsEa +m1w4+rPnszSF6CZjV1HJ1iIfNuR1uMb/vCOCF2rz/FYlsEB31eM8hooUap4b +L+Xd2gJifgIlIdNS6Ge8QviV+yvwFH8j6ftYGnXVZh/1+VWDTLiBD/9xGZRc +8TvbvOw5BCgZdJA3cOZjsNod6aZ8uHBg42LmqCz2+ibcqGU9gqO5k6un91HQ +qjtIRL81BcwMJnd+eEpB8t+F6dyY26Cgl2TL5JfDa6dNN6lnxgIlNNw43k0O +C07qO8wJXgUblwejbxrkkD3bMu355zKUP0n4by9NHr+OX9ULGvOBef69YjfD +5PFOi/VTsRIPCFQNWC8+LI+GFTrMNwEuoFETFTuznYpS2ptF5+YPAGO8ofTG +AypOTvcavlCwgDWe+YUZC1Q8MGnifizGBISNuq6/s1FA+bQfS68k9MG6SHF9 +dZECChiMhoQ3asGrCBsJHjINI/94jGc1bQGv+Wdvhb1oGL3cjSu0RxGEGqr2 +3XhLwxG//l+j12ShbWhViaKyIj5Qa1myOyYCLbcvvAkNV8Rtl4LO9G1cC78L +31lrTCji9IBANfPZcvjzdWgsdRcdnSpt9JVd/xAm4+4H9mXSMdWkjDGxao54 +Zdq9a/8KTv3QB1IeuE4Ql4zdx6WPMDBzwGxw4tYAwch4ZmNfycBT0xubIwe7 +CPa+rY+yJZk4NKLvkcX3nli6NZDx+jwTe/uDs2/RGwg1rX6h1T1MpL01G8q1 +fUGEBphX5W0g4eGi8csmvmzICK7/E/WNhDuOhaJqLRuI5zHxXJlkNOJ+zPs7 +gQ0yEW3fk4+LYGhs9phCLwus3h3MXRtNwjG99XqpT9jQVPDjmLshGQfy5FXM +Kjl85snJvsgrgqxUxullpmz4djN4mR2LiaVptxujI8sIlztFbuarhbBGdnmf +6sIMcHf2vvMOWYfkFebasi/nYIy5wsNOVxjznILmUxJZsCM3+MSHH8K4O6Da +UWUXG1rCIqxrCkj4TpiVOVfChr8rZTLPupFxy2X1h2cL2ZClZHtgy0YRzJkw ++76Sxoau+Ci+qikR7FvXWf6DjwWZGXskhdNEUa7ssa/WtVlYLMnaXWUsgWYW +gUHVi5+h9rfVp5+rJZH+i67YQOsG3qD/HJeaJXHkaXSLfkIbzDxVM2oOlELF +EIGQxWdNsFJ9VmrNDmlcH/ZEb0VkHVQf0rNZ90caE1av0FCtfAELmzf/olTJ +IONAfM4llyIoMpSM5Q6URZUjD9P8PuUA3zJTow4JCvIzv3TuykoHc/63us7+ +FDy77MvO8cwkuCk+P1nWTUH5/T/vjWnFA7naxPSzihx6Kt2uEI6Kgpx1w6nl +N+Qw75mPYnNUMMSX6Cv9mZJDoZiEj/nGF0Fvo88osVcel98u7NHz8QLF1wrJ +7vny+I2XtSdB9jgcLroXtsjP8V/HYkiq3s5QaGZ9zMidijsoZeLxsTbAM1nG +7fCaiqVd5oP6JnshjrJz9zY5BbzHGrskm2QEW5dJxHQFKeBwbvrxR0EEKKkX +cn/oU8C9cfbSd/nVQZ0c6xFB0NAzrtc8R2sD4ILIzdV3afir+ZPh7FEqhPm8 +OmbLpuG2ZTVtj99KwEhSudpBK0VsLZ5MevxvHdxc76vSmK+I8e3M/8IreIHb +heewBomO3bs+LwYGcUHBB8GY62c5+hUWYjw054lnCUNTRi103La0Q/Z54jTR +xLOwo3wzA72hzqn00ggxcL7UciGSgUNZZ+9tpvcRaiEPyctHGajNv9fSzPMD +kaTT2vzKkIltPLx/BcSbiI/ME4WSqUy8Eui699+3GiLdjlYgdUsYv6cI2+/9 +xQLSYryt6j4Scu9/+ONnFBtYRUV1KWvIWBF680EdZz6rWepUTjeRcWZP5/hY +AKdfagKffLkugkf8IoTkslgQGea3fpImhVaLTC1WWQuEdaQ8thiSwnMXtITv +9L+COa3z/8j3pVGuy263dXM1vAwuHi52kEEzA4Iw1CuFwaTCigVZWWQF8mqn +MwpgLq7sw4EeWcwV0+oJ886CghLhyhZTCnrnjTrbbU2Fh08pc5JPKNjw9hTv +c3Ii9A7vfRnNI4fxeZmmccvjYEz8/tzlw3Jo8CPT93fyVWAcqAuXrpZDUZ/K +bcN2gXA3RnJMSVYey223pBmf8QVNZcvKiEB53NxTpy9++hS8LYotOvdZHruk +B94vzLtArArX2U5dKh50kdhY/tgBosqMb365w9Gv2zMNTG5bQLt/gYkgm4pH +ncX1k5RNYWK71onKfQp4YoEpVhytDxrCtyfXP1XALcysmnoHbSjqZGwdWkvD +tkMu/9o1VeBk+o1+W3ca2kjRfC1c6XAiT4by8xUN9QYdJllUCuiUv34jSFPE +huifj/7MioB+287OriuKSPwW+qPTvxYu9i4+WjvEmd9RCY+c1Xig3yyOfWsH +HftrPD/qCv4ltHOYzrkpdHRePbJP13uOqF9ix2/9R8eKff+J1fF8JcIcEpXc +HBk4GmIr3PtngLjx09Gm5jkDdc/LsIVOdBMesfg9UYSJF/nOPW5rf09c0fg7 +JHWWieJZNfc9HzUQRoNF8c8/MJH+o7Rlq1glkW0ZNXiFQsKL/8qN/3iwYUBa +dq3KFxJe8jdNaq5mw+2NOSoFd8jIneBu2p7MBh3f79zhjiI47O3dxz/Jgotp +ye8Hg0gYqrTaPSqDDSvNTC4I6ZBxTW2+QmgVG95faNy5YZGM6Y7h1DhrNixu +sw9dMcXE7wMBS/Ka5YTN/g4Vv0YSHlTx9yx+wYZdEqMnhYPIuL50m9Wbx2x4 +vUecHHmchCtXtXOtv8sG/8B/922pZIwuyF4by+HHia/HJyZ+kjBM3smJyan/ +zb/krmnfJaFyGvcdg6dsiFl/y6pxLxmlmS+07nL09cdvOZdyFpiY5HXZ4cRQ +KTHFH6LzaIUQvj8m8kmSNQMZCRKfKwLWoeufsbT/Subgm2KdVqW6MK5ZsZrf +/gYLrBMfXqz8KozuLMYjTQM2fP9QcpCUQ8Lbxic9sZjjH/Vz2KaHyZhUuk0o +mBNrpLoepdFFcJdAeGOaMhtOeWStkZoQwU0xjEAFMgvM3d8e+ZkkinierFpw +Zxa07ILf3dsugVt673ipavXDwa6nIj9WSCJlYKFIxqYb8qtdbxx8JYmBJ3N0 ++yraIPPzYtWzC1I4t+3jqivsJmisb4w+oCeNAbcEtAXK6iC230dgnCWNGcr5 +KxVXV4LS17ETpDIZvPZGJCU/qQhmDg3+dbggizP2l+7n03IhL7T/fv16Tr8u +RZbXjnD0e9XR2FA/ClZoScg9nU+CaffW+987KDh0iL00cToezkV2Uj5skkOn +oBcpk0NRQF7rc3YkRg492FvnP9cHAw8zVGb8G6e/pc/u2JZ8EZz0fmnq7JbH +x7za0355XmDGmzd5L1ceZfJGrma4HYcY985f06s4+n2yTCAk2xnG1G93uB+n +4nGGT8D1LhsYP6PTEltPxWjGscZ2v73gL+Onu1WG40fzt338PWwEClv2+3Ff +VsCFXa3qhn0EyPXeE6z9pIAJSVTzK+bqoDp52TdHl4Ydaf70tusbYMrD8M+2 +2zTM8VnMc0mhgq5z5qzZLA0P2mx/8FleEu6XpZZd3a+Iy25+NCpVFwbL7LU9 +hbmKaDHdvo6yhg+8b/W6bRGi46Z8DTWrEi5gaEzHVZymY3b7A/U6v3lC5fQZ +klYzHd9/hcTev9OEuWCM65cNDPTMP7u8qGKEEJGL7tgQzkBzp9Q3eRf6iNNp +jOcLgwx8enxH/UDuB6I/0vHErD4T/3NwTfI+1kQ4B1j9nE1molb1dJocvZbI +sh72D4wRxvxnvJHVsyxQHC88LmVKQuH64t/uEWwQ4h56O7eSjMv/M/v1mtMf +h2IaV7+uJyNu4ik0DmaDrVZ0ccdVEbxZPnh3IZ8Fqq8GTc0oUvjWZaPinf9a +YBv3CapunxQm2fzHqyX2Ggob95xxSZRGnoiIlwnsaoheNn33mrUMxjy7b6sZ +WArC1ic3fxeXxdCgidj7tgWwKfcylHTIYnqxg1hvcRZY62aKVO2koIW1KUnr +WCqYuVYY4SMK5ipLeO+0TQQNTeUzNcvkcK9ThtaiahzsHGE0+hyUw7uXJLm1 +x65CrLWVvXGlHIocyPu2GB4I/NxOPeul5PHKnniRqee+YKvbJRh6SR51tMNa +GlpOwdxP8eWPejjxUTua6FZXqPyqPfJai4r+avE59TyO8PJhONfK21ScjU5R +jmmzgOLlqqIGs1RccdjMb/VFU2iH47bF5go4OrX1VdUbfVDc/r5zR44CltVt +uLIhSxtyLq7b3sZPw5a7EatOe6qA28Ur4xeP0zDkenIiO5sOYlTzq4r1NLxy +8bBUgwUFfmQ8suCRV0QJWsa1O1qisDi1+cC/y4pYXHip4pemAGzzjN+70K+I +nbMfCrV9eGBvgNvfGKTjgHJ3Z5/rXyJfgNelN5mOYQv1NTbZc4T+x+By2iId +I24eVvho9ZXgP7bJ7Lo9A0tuXAjS3jRIvEpW62YXMRCixZkhT7uJJ09fRccI +M1FjYtwnU6qVqA8LDzI+zcRTX5jSlyYaiPfqKV3XW5k4pSu9q9evkngJ2XPu +EiQMtxZVfXqcDUsnzESDP5Hw9YDIxDRnvte76QRG3CTjlyPK91alsqHx+8La +SzYi6LBVyqhxjgXR0S8Gmi9y/OTdlfIfH7JB4c654MNbybgv3TjKm8OXxWLr +2zzzZHycflKH4sCG0DjD171fmbiT1mBHiSknvB8s022uJSGpe/6MewVH71ud +Lf92gYy8am6dJ3I4flRHi+Z9hITx+/wp8xz/cPfdhqwn0mRUOv/qFS+n3sM1 +bs/qzJCQXGfZVcHhhf4QJlHjSZhy8ITuslw25LjUOkmYktGQtsKVm8MfZ0is +ujLPxIRHfadn1MuIfG2H3Z7PSTgbUtEbWcrR98eulpsLk/HcjszjDzn5a1tn +l38Z4fgZ6enGqBo2TCxJnXkJZOSqaK0495LDyxWPGPQWEmrRPB4Oc/yKk1r7 +rZVMMtaEr+tf4Ow3S9r2JeEvCQNeuORe4OQzT6jR7VpkYlhD2uTvmFLiWd3J +tA/cQli8tsqUNDMDvr/KXL5cXIenv85KuBfOgTvtocwPVWHsMNEXUothwcBa +1ZBnY8IYEaUhU7idDRcu7HbZ9piEx6JKHjoWseHlQZak1kEyBgqiyiWOn7nk +8H1SVkEE5X8VJo5sYkO5nUa0yagINpZM7tkqzoKH7/l5x++I4t3XfsIjKbNg +/eT02khCApn9LkdXWPfDpoa+wkluSTwv9PzLmGc3hAzc2RBbJ4kCGjPrqlva +4Ir3oH/mOSmstO3n8xVphqyoIuNgHWlcTLkp8by1Ds5LC39rm5FGboFA6lHV +SqhrqE1fUyKDfK7i40ulRRB9ql4l8pwsvg1aJiNslgvLdjKat4lS0It0LVFv +eQa0SBSVrz9PwciYZushmWRIStD7HfqBgudPyqyVvx4PWT/urjbfKIedxmH9 +zwWuQyM/4eAXLYfzuqP88oPBsO1wZqLjVzkUMOw3cGm8CKcMtQafm8pjM3fd +DrtmL/iSNXdDLUcek3VGYi9ePw6ZO722uK2kIo9VzjeP185w+Ynmai43Ksru +bd/WvWADtsV/1JTrOLwq79jTErcXziTHqeZLcfxJc/ZJHV5jSDI+dSrxkgJa +Fcxa/OYDkNoklKD9UQEJDS7BxtPqkN/164+eDg0Nho4615VuAAPG59zOWzR8 +GPnxi2MlFURtEjRe/6DhWPcH3oPmkvDX+Nai5D5FZJeP4OJeYVD3sctj5iji +93eOz99t5YONm4zdcwXomHzG4PJSKxe4HHO8ud+TjhmJ82Ste/PETJ9WZv4b +OrrXWc2MbvxBxJLt588oM7Cv2IT9q2eE2PLzfPyrMAa27g9c1pzeRwgUnuT1 +GWBg17Mn9r7vPhD/VNPLwrYz8WVV7dV/0U1EJsNU1DGJiQ8HRU0DDGsJJava +w8+ihNHxRc591jQL8h12eK3bSULLpqS/96+y4UHW+TZJHjJ6udo4VHHqfz5H +UK2whoxG4s8Xjody1llk3fchIphxOqLGtpgFK8dExvylpbDjX4hXoux7ELtj +PrDpkxRSHg4x1NVfQ3ysrlLULWlU9PWQtOWrAV+M9PW1kEGdj7pPplNLIVvV ++PioqCwKFiiz35wugLflh32G22TR+dUd+9quLHj834/tmsYUzE+WfNsXmAry +1bxn2jMoKPTyBc3qQiKMHEpssueSw9LJB16DJnFwYdf0sxlHOdQL3Jn3mD8c +DCxldvRVyOHaxuCDFSmBoK972TJaQh5fUg6dj+v1Bbcd68u4/eWxbpPl3fCl +UxCS4PSE+CSPb5oeKI7td4WOhi6p7ZpU9Gt2W1ms6gi265mad25RUfVA6Mzs +tAUoGs9d7P9BxRQzR1fxNFNofBm0R2U3R+/kRy+7Nq4P920nmz49UcCQXbtH +1Vq0Iasl9PVOPhrK3HoXGHRNBcaO/jm51o2GN76/L45/T4dTn0d1qmppOCyz +O2HoJAWa7t1ODKAo4q6I45/0HETB3p96/2aAIuquFunScRUAae0BBc/Pihh9 +dc+kTwIP8K/vWFoDHP2j7vZffNxf4jucc/VKomOD0plg6us5gtvQdPf9P3S8 ++Uxksj7gK2HmvtAna8fA9jf3P8rvHCQGzsjcji5koGSPZXtkezexs4pvgH8d +E0sdN/27otFKjGx639p3iomM+GV/zPheEeSBW79+tzAx51ysLDO7kthZrPPX +eT0JD12d5w86xobr64YlcrpI+FErapcvh0/2YUGPfGLJqMmlYxvP4Y9AVuDN +c5YiKNY6EXVnngViPGZfq8+T0KRn5OFZDr+egUD4NRWOX+lY4hvk8OnGh+SX +M3NkzOz+GP/JieOndXUnjCaYyDO9Kuh6RTmx3CgR2FUkfHkxeL6S4y/WnC0f +7DpHxoAZ0bZcDl9c8l9vPH6IhNaaydUHbrGB6V2X80GCjDlMJ3kdTr2Lft44 +f2SKhLvOnoi8wOHTW5vWdLE4ErbaM952ZLNBd7XdkR07yejCpSaSzeFT5tfr +A1NsJt7N6LaTOlRGwMDcvsQiEv76PchT+5zzPwGZqnOCZBSkf35Ywsm/71w4 +L+8QCbWFTmZu5vDmXEahz/g2MipfPqfKzbmfxmy9jXubSTjBvXd0D4dPU5/c +7m5W5NzXcVbmTs55evU/DFf9JqHUz9wYK06+m/jcYftfJoa8VdwlWFZKXDlg +2viGj4wipWUubzjrnvXF6+z7SKhoZJB/iHN/q+kJaUEUMqZUV4u2cvItxHBN +rWORMDu6SWaeExvXzBTTRMjY5L/6Rxjn+61KB/4Vj3P8pKvy0hDnvK1RunGf +lcnYanQ9L40TV/7M6PFYImF+sPazRM5+/u/NEieXmLhZpadN8Vgp8T9FqcoQ + + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1nfczXUUB/BHSCihMrJn9sreK7tBVEJFRkaUkT2yS/bWNMtuKKMkUrZS +tmjIpuw9ep9Xf7yf8/2ce+597u937n29bo5WXRp1TpSQkFD3roSEqHv8eZWU +fCa/yKN4OCExe/XjCffyufwSJUnCPr0u3McXcktKxfM8ebpeGQ7Ko0jKfvk1 +UrFMbkV+s2vkFiSmdLy23gznshyK9yNvcm7HO3Jh+XvnliSL58hb1Q7c7fED +6uvcTzmP/aR+qV/ceYNzGyo5/6q+rF/A+Tvn6uoLagV1h1pLTaKWUreoNdX2 +ahV1l1pHLRPXpr4rV1PLqeXVn9XH1N/jfqmb5RrqK2pldadaWx3t8SLqerkV +FZ1/Ue+J++e8Te0Y12nuN7UrqflKLuHxjc5taS0XlNc6v0jSuH96d+u9F++J +P+QxFNX7Ia6d5PG/9A6q3UjDcrkNhcytk1+K+xr3Ui+Z3vtxj/hTHktyDsnd +ScsKuS3lScHvej14gJVyOyqQknu5j1Tczx9m3uBBVsmvUJHU/KnXk4f4Wm5P +JdLwl14v0vGN3IHK3OP9fhD3lb/kcaTlsNyb9KyWO1IlrsX8h/H54LA8ngf4 +W+5DBr6VO1E1rs/8R7FT/pYn8CBH5L5kZI38KtXims3PjM8QR+SJPMRRuR8P +853cmepxf8zP0qvKUXkS6Tgm9ycTa+Uu1Ih7aX52fBY5Jk8mPcflAWRmnfwa +NeO+m58Tn32Oy1PIwAl5IFn4Xn6dx2JH5ufGZ5kT8lQyclIeRFbWy12pFXsz +Py++O5yUp/Ewp+Q3ycYPcjdqxy7NfxzfHU7J08nEaXkw2flR7k6d2KX5T+K7 +yml5Bpk5Iw8hBxvkHtSNXZqfH989zsjvkoV/5KHkZKP8BvVil+YXxHedf+T3 +yMq/8jBysUnuSf3YpfmFenX5V36fbJyVh5ObzXIvGsQuzS/Sq8dZ+QOyc04e +QR62yL15PHZpfrFefc7JH5KD8/JI8rJV7sMTsUvzS/QacF7+iJxckN/iEbbJ +fXkydml+qd7jXJBnkouL8tvkY7vcj6dil+Y/1XuCi/IscnNJHkV+fpL70zB2 +af4zvSe5JM8mD5fldyjAz/IAGsUuzX+u9xSX5Tnk5Yo8moLskAfydOzS/Bd6 +Dbkiz+URrspjKMQv8iAaxy7NL9NrxFV5Hvm4Jo+lML/Kb9Ikdmn+S72nuSZ/ +TH6uy+Mowk55MM/ELs1/pdeY6/InFOCGPJ6i7JKH8Gzs0vxyvSbckOdTkJvy +BIqxWx7Kc7FL8yv0nuGmvIBC3JInUpw98jCaxi7Nr9R7llvyQgpzW55ECfbK +w3k+dml+ld5z3JYXUYQ78mQeZZ88gmaxS/Nf6zXljryYosQPiil6JdkvjqR5 +7FL/G73niR8kS5RicdSfKpfigPwWLWKX+qv1mpGIpXrF4+X1p8ml+U1+mxdi +l/rf6jXnLj6N19f70bk1KSgrb1c7UdV5d6L/fx+VMPsfqu4NLw== + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrsJgFAURMHrJ7ANW9FABCNLMBAeCA/U/lEDwQqMJlk47LRLntexjDjq +iJjSca5FfKt6qrlnHro+b3lPz5/iHRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzHcRzHcRzHcRz/g19Mgw0c + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl3k8VO8XxyUVKmSG7IYxZoY2ZM89J1kKabELpSgVKaGURJaQLCWpKLKk +LJElS7KXKCFLIdkpEWZSyle/+f1z7+u8nuee+7ye1znn/fnIHfbc78rNxcW1 +i/P4/9vX32INF5cQkk1HytZMzYCZqWv7aJEQGj4QWHB+MQs7be2+c/utw5Tv +/lI9T+fgBzWIR26LMK5x1X/DF8WC48E1UY+GhfFanWkIE9jAJzfi5ppJwoY7 +RW7ehWywvKSzQ8GBjH3DsOvUczbUrz97RkJOBDuvbbWQUmXDKqN6Qb8hEezQ +hjV6Miz4qbor52OCKBZ6j8YJZc0Cn1N+kqf9ejSsqnz5/fAPaDQ2vbZqnRjS +SmLHiN2TYN+w9HVVvRjK5q7ZVb5lHISD4pMgTBzDbj5qXxgeAu+/jrvP60qg +u7FO0tez/bBYyLd/4p8EPmzPMKkJ7wYbrpZX1dWSOH9e37ZwsA0cV7/Svust +hY/sXRciNZohwjKFK1tTGtsKE6zOT9TBIYe8hhdT0siYemTcaVcJDg/v968o +lMH5MrcbpzuLYIP/o2PPvWVxSeXHtYdeuWDJ7/WriEzBJ5JoOySXAek+y0Yf ++1LQf2bLSxPjZDCpfrJPtp2C4Q3jCYGP46HH8tB8o7Icdi1OetbrXAd/3lWG +Atfl0O6TXvD1/4LB+95r4Y5xOQy4nrWnhXURAnb7RaqbyGPjVYFzLhNe4LVL +U6f5iTw2nVIyCHt2HF4oCB4f5KEi18Bqp+BhZxCT/bj95lEq8kzfrLCUtoWm +3+V3GmqouD7E4uL3x3vhqNQT5gZJBZQ8bCZQvMEYyAcjj2zyV8BolmP9tCaA +WFCIVEGXAi5XqCg0uKkOm2o9L7/XomFNc8Xvn8Mb4O6Qt/OpeBpOJJqXBPVQ +YcYs7OL2aRqeeP9npeIFSbDtCof8PYqotsN+wc1dGEQh48qDJ4rYkxi0r9KR +D8ZePfNUWkvHW+47DNsnuSAl8W38Vw86qle/KOx/MU/k7+LSZjZyYv3ZldsP +/SDaxWlXeZQYuC/hv2Un/4wQJm+OWB4KZaCn95WztPd9RE5tnt1MPwMllnzv +EVMfCErvN14pZGJ1zNv0hpIm4ls7ajbeZeIfXr6StS61RMP2roV//5gYbHQy +MpEoJQaPOPzwshdCtffj9wL3zYIU4fE7rmMd/ktQGntCYUGORerOkQhh3CF8 +5Sj1Owu029svrDQkodKt8KKmUDZs2iPYZbCMjF+qfiQ+rWNDVJO1/YOXZNzq +GPzxylU2jOXdq34TJIJla35Rn5axIODFyv6sbaKY+i9iY4/nHFxu9FdI/y2K +WiOnvKdKZqC0u3BPfrIErjhV7Zj+qQeUek5GWR6SxAdo87EvtgN6VpgE5kpI +YROl2qF4+3tgbVZLlu+SQs81+9v27n8N3rb04cIb0jgalP5os0wNOF1W3O+8 +VwbbW0eL39eVgoEgNa2fJIvUn9MW5IgCONFomC30XhYzwpbutv/KgsUq7VNP +DSl4VLHGOuNuKvySsL7nkk7BCH1dn5ikRLgRuUKBvURBi1OryscOx0F2XmHy +SQc51M7Tt9u7ORx+7xtXPlMuh8tzJ6j3SgPBzzulhUdcHlUvVJe6//OF86a2 +hwMvyOP1Hzv2xG/yhPWaafu6uuUx7mum09AZV/iWetaqXJ2Kpmd67KYOOcLs +tTceG+KpuFHE8evlNZaQGPls8Pw0FUUaLEycm02hUu+uUa6pAradMNIIXbED +RE+vqvZ8rICHTBqdz7K1IU3uz+7qVTS8Q/guVj1SAZf9XjP3j9Kwn3bH4ASL +Dg23L03b1NAw1Z6eQA2hQHrc1c+/ZRQxM3SzqmSgKDznXz9Iv6SINgodSTU3 +BGCJe8PCSK8iPv50fs3Ecx6oewrckXp07KsbbL9R+ZdgnBk7ynePjvdyB5PE +hueImgLhAdEFOt4u3FvFevSViD5T7/HMhoGmluZ6aocHib+GfDaMZwxc93US +Gn52E2MtZiphgkxca7d9ZcTeVmJFtwjFy4OJ7b5x87uVXhG2kdfEXN4x8cZM +zbE3fZXEhpnuS9obhdAi88Sco8wsqJoe8WrKXIen0s96Fk7MQYtuXCa3ozDO +JWfUnK9kQZtS03IbMgkd3tir7XZlg1Spn2znBxLOJQX0zL9kw0xaY4vzdTK6 +vGS3rU9ng9WRVeJe+0TQe3Jrn/MfFugHjc7HCorie+rHspNNc1D+32G3l685 +9fz31Dln1VlI+BpuHu8ugen6/Ge6kvuA9FrHU2aLJF7sOrYle3kXiC2Poj6f +ksTYQffvBWWtkJXsf9IpQwqHEl6bBG99AwFdw2c2u0qjsfWuwaxztfDF49tq +QVkZ1NpKl4/9XQ6tHwfQa1gGi04RR5NlCsH0oS/fSKosmsWXRG6WzQbGaKeq +6kYKLjt3ZKLRJA3MG5Xx6nUKzmpaqDM+3YVTtI/lERMU7OhTqm1g34DaZfwm +EgZySLsxfvnw7UjQ2XiutCpNDjMf2fX37rwC86uKTrtzyWOQkv+WfQf84OJb +t3n7w/JYUNQfV6J8BgxwqmFvjTxq6r7Qn/I7BhZHtn/ZLU3F3tilY2s0DkFI +Z2v3wUtUtNb4KC37nxUU1JToyX6kogavAKvM0xyEN8qXuqspoMPl37Zr/hnA +rfHGde9vKOA/D0u6wblt4LQPirV+KOCs8KjQxRA12MU/q/l8Dw3blRJ8lM2V +YIveAn34CQ1vK6/zfSEpDyY/wjYkr1RE8ZcVl459FoPwmT1C7kcV8cbOWmn1 +RiHgT53Q069TxPetT9c3f18JlroLWvY0OjoKpkF/2hIxEvLpkl8IHalnU3oZ +ZWyi9FLEmpQBOm6Q5qm0OPidyG/wvtCLDPwqnW1bKjZMPLxaYlV/j1O/qe9O +jRr2EG8aLxnq/mJgxT1/13er2glhu0Dya2smNh7+KXHUqpFI3TRGFy1i4s8h +2+2bblQTkScLvjWUCOO2jl0GEevZkOrXO1vsQ8K2kcydvCls2D6WHlW0iYwG +V/6SjGrYwJgdGe37QcbzBc5+Ec5s8P2z2U3umQi23VMT0TjNgiRe3s9pxlJ4 +rcDRN2/jOyBqv7aMrZTGO9MCU2XRDXCi54SlVrU0/pwTs5ouroLPsYcTC4Nk +cN92AxN2aQmUGrquMDWQRRlth5vZwvkQMU3erbcoiztWVSunL2RC693kxxuc +KFjVfVcqVCAFUjwC57dXUJCqbuLTfj0BSn6oXncSkcPzzwa5godiIP6A4+wL +bznMaBm5H/dfKJT42jyQb5PDsSuPvZ/fDIDFgagNySrymLX24tmaHm/waTJu +ybghjxFCXRtk9rjDt412nw9My6Pz8c4LFglHIGggo1nRnIoGpWcttO7bg5N+ +7fKFJ1QcQqiyN94Ply3yQtt5FPCsAWubk/MucDMX7pw6ooDODTVgorsdbv82 +PCVUrYCKoQe5xJ5owsRs0ZgxhYYt52K/5c9shst3WVlhl2goVb/LwLuFBvZz +y4rfdtNwdDFbMYEiA0tq4dGWmpx56Koygg5kGFPoLxi+qYjjocIBGp9Ww5yL +Z9FVNmd+Tl9J3VfGDaoKYc1lVnS0iBit9ZJeINwdWXvuFNDx6fNU0QyNWaJp +9F7h9XUMTPDw/09cbZxwlyY7R5xiYMzB5NS/GV8ISx4H26hGBhZu2KBb9amT +WN4pKd1GZ6K6nU2aZNg74rdltrJ0CBM1Pn5QytpSTwiMbeF7NsbESxtn5gwm +yol9JSINSaJCKOj2Tvv8ilmo3Of0dCxmHY5NHM058HYO+jdHdMYZCaNmx6au +dRkskO423PnvrzAe+N67Y2w/G25832QgXUnCyqTOHt5yNjyMXcZX503G+xGs +tPE8Du/19AyNtEVQYaLV/RCnftOHLZevWBBBJSd/ZdWfc2ArZh1p+lQU+/70 +qCx6zEKoF2v3SksJfGB9siY37DOE6z08tFxMEkMoV4ym6rqgdNnGn7rdksis +2ufXaNoGVyxT9y9GSWHJZuplP5UmCBHR1/Ywl8ZjnYtXyBvrgOL6dsJ1pQz2 +vUm9fI76AhIqqwS3Ncug19UhtfKfhbBNMKZ09zVZdEsNsNLYkQMvf1FvsSgc +nn/f22Gokg4L9xNuiF2hYI/SyGgTXxL0eW0Ps/xMwU+03MJ7TTfBXFk9ZVZT +Dn2OdqRbDV6DXomqpaOJcnj0qJ6+j0wwFLdVbqew5TDSYNtw6oMLsLjmDO60 +lsc1/3LF3/B4Qa+BMJdAiTxm95o4DMe4Aa8BI339Oirq9FYMXV/lDOYXOqIW +zlDR7d2zzGWrbID4XHpy7i0V/cYX67w/7eHo27HTZnQFND536Ay/oBFYpj0u +D7iqgB4vn3MFv9cD3a+DE+whBdyqfuLh7tCtsO1o/oEdBjRcMo+rtI5ThlHB +5/VZD2j4r3vmwb+f8iB9f6Wl5x8abtlw+IQXVQJOH/lOFzigiANFmVMnbq0D +oRmjgZkSRcwr7icOSfOC9DJrS31xOibFFn9qEueCWgGLCBU/OvbK2lXwF/8k +iobrH7p00PG4jbmYXNcUUfPjLddpdQZKFSp6fFs+Qvgy1lrdiGXgxQNX3dYE +9xLlhgnvRSYZqCHuW+jDbifE7xZHnzFlYsDvB2v+BrwhXgXe3Oz5iIlV/gUB +a31qiHsHH4tbpQgj4/6d/4y42TBFs9FwciShi8Kyd+U32VAqYV+wuJ6MDsEa +m1w4+rPnszSF6CZjV1HJ1iIfNuR1uMb/vCOCF2rz/FYlsEB31eM8hooUap4b +L+Xd2gJifgIlIdNS6Ge8QviV+yvwFH8j6ftYGnXVZh/1+VWDTLiBD/9xGZRc +8TvbvOw5BCgZdJA3cOZjsNod6aZ8uHBg42LmqCz2+ibcqGU9gqO5k6un91HQ +qjtIRL81BcwMJnd+eEpB8t+F6dyY26Cgl2TL5JfDa6dNN6lnxgIlNNw43k0O +C07qO8wJXgUblwejbxrkkD3bMu355zKUP0n4by9NHr+OX9ULGvOBef69YjfD +5PFOi/VTsRIPCFQNWC8+LI+GFTrMNwEuoFETFTuznYpS2ptF5+YPAGO8ofTG +AypOTvcavlCwgDWe+YUZC1Q8MGnifizGBISNuq6/s1FA+bQfS68k9MG6SHF9 +dZECChiMhoQ3asGrCBsJHjINI/94jGc1bQGv+Wdvhb1oGL3cjSu0RxGEGqr2 +3XhLwxG//l+j12ShbWhViaKyIj5Qa1myOyYCLbcvvAkNV8Rtl4LO9G1cC78L +31lrTCji9IBANfPZcvjzdWgsdRcdnSpt9JVd/xAm4+4H9mXSMdWkjDGxao54 +Zdq9a/8KTv3QB1IeuE4Ql4zdx6WPMDBzwGxw4tYAwch4ZmNfycBT0xubIwe7 +CPa+rY+yJZk4NKLvkcX3nli6NZDx+jwTe/uDs2/RGwg1rX6h1T1MpL01G8q1 +fUGEBphX5W0g4eGi8csmvmzICK7/E/WNhDuOhaJqLRuI5zHxXJlkNOJ+zPs7 +gQ0yEW3fk4+LYGhs9phCLwus3h3MXRtNwjG99XqpT9jQVPDjmLshGQfy5FXM +Kjl85snJvsgrgqxUxullpmz4djN4mR2LiaVptxujI8sIlztFbuarhbBGdnmf +6sIMcHf2vvMOWYfkFebasi/nYIy5wsNOVxjznILmUxJZsCM3+MSHH8K4O6Da +UWUXG1rCIqxrCkj4TpiVOVfChr8rZTLPupFxy2X1h2cL2ZClZHtgy0YRzJkw ++76Sxoau+Ci+qikR7FvXWf6DjwWZGXskhdNEUa7ssa/WtVlYLMnaXWUsgWYW +gUHVi5+h9rfVp5+rJZH+i67YQOsG3qD/HJeaJXHkaXSLfkIbzDxVM2oOlELF +EIGQxWdNsFJ9VmrNDmlcH/ZEb0VkHVQf0rNZ90caE1av0FCtfAELmzf/olTJ +IONAfM4llyIoMpSM5Q6URZUjD9P8PuUA3zJTow4JCvIzv3TuykoHc/63us7+ +FDy77MvO8cwkuCk+P1nWTUH5/T/vjWnFA7naxPSzihx6Kt2uEI6Kgpx1w6nl +N+Qw75mPYnNUMMSX6Cv9mZJDoZiEj/nGF0Fvo88osVcel98u7NHz8QLF1wrJ +7vny+I2XtSdB9jgcLroXtsjP8V/HYkiq3s5QaGZ9zMidijsoZeLxsTbAM1nG +7fCaiqVd5oP6JnshjrJz9zY5BbzHGrskm2QEW5dJxHQFKeBwbvrxR0EEKKkX +cn/oU8C9cfbSd/nVQZ0c6xFB0NAzrtc8R2sD4ILIzdV3afir+ZPh7FEqhPm8 +OmbLpuG2ZTVtj99KwEhSudpBK0VsLZ5MevxvHdxc76vSmK+I8e3M/8IreIHb +heewBomO3bs+LwYGcUHBB8GY62c5+hUWYjw054lnCUNTRi103La0Q/Z54jTR +xLOwo3wzA72hzqn00ggxcL7UciGSgUNZZ+9tpvcRaiEPyctHGajNv9fSzPMD +kaTT2vzKkIltPLx/BcSbiI/ME4WSqUy8Eui699+3GiLdjlYgdUsYv6cI2+/9 +xQLSYryt6j4Scu9/+ONnFBtYRUV1KWvIWBF680EdZz6rWepUTjeRcWZP5/hY +AKdfagKffLkugkf8IoTkslgQGea3fpImhVaLTC1WWQuEdaQ8thiSwnMXtITv +9L+COa3z/8j3pVGuy263dXM1vAwuHi52kEEzA4Iw1CuFwaTCigVZWWQF8mqn +MwpgLq7sw4EeWcwV0+oJ886CghLhyhZTCnrnjTrbbU2Fh08pc5JPKNjw9hTv +c3Ii9A7vfRnNI4fxeZmmccvjYEz8/tzlw3Jo8CPT93fyVWAcqAuXrpZDUZ/K +bcN2gXA3RnJMSVYey223pBmf8QVNZcvKiEB53NxTpy9++hS8LYotOvdZHruk +B94vzLtArArX2U5dKh50kdhY/tgBosqMb365w9Gv2zMNTG5bQLt/gYkgm4pH +ncX1k5RNYWK71onKfQp4YoEpVhytDxrCtyfXP1XALcysmnoHbSjqZGwdWkvD +tkMu/9o1VeBk+o1+W3ca2kjRfC1c6XAiT4by8xUN9QYdJllUCuiUv34jSFPE +huifj/7MioB+287OriuKSPwW+qPTvxYu9i4+WjvEmd9RCY+c1Xig3yyOfWsH +HftrPD/qCv4ltHOYzrkpdHRePbJP13uOqF9ix2/9R8eKff+J1fF8JcIcEpXc +HBk4GmIr3PtngLjx09Gm5jkDdc/LsIVOdBMesfg9UYSJF/nOPW5rf09c0fg7 +JHWWieJZNfc9HzUQRoNF8c8/MJH+o7Rlq1glkW0ZNXiFQsKL/8qN/3iwYUBa +dq3KFxJe8jdNaq5mw+2NOSoFd8jIneBu2p7MBh3f79zhjiI47O3dxz/Jgotp +ye8Hg0gYqrTaPSqDDSvNTC4I6ZBxTW2+QmgVG95faNy5YZGM6Y7h1DhrNixu +sw9dMcXE7wMBS/Ka5YTN/g4Vv0YSHlTx9yx+wYZdEqMnhYPIuL50m9Wbx2x4 +vUecHHmchCtXtXOtv8sG/8B/922pZIwuyF4by+HHia/HJyZ+kjBM3smJyan/ +zb/krmnfJaFyGvcdg6dsiFl/y6pxLxmlmS+07nL09cdvOZdyFpiY5HXZ4cRQ +KTHFH6LzaIUQvj8m8kmSNQMZCRKfKwLWoeufsbT/Subgm2KdVqW6MK5ZsZrf +/gYLrBMfXqz8KozuLMYjTQM2fP9QcpCUQ8Lbxic9sZjjH/Vz2KaHyZhUuk0o +mBNrpLoepdFFcJdAeGOaMhtOeWStkZoQwU0xjEAFMgvM3d8e+ZkkinierFpw +Zxa07ILf3dsugVt673ipavXDwa6nIj9WSCJlYKFIxqYb8qtdbxx8JYmBJ3N0 ++yraIPPzYtWzC1I4t+3jqivsJmisb4w+oCeNAbcEtAXK6iC230dgnCWNGcr5 +KxVXV4LS17ETpDIZvPZGJCU/qQhmDg3+dbggizP2l+7n03IhL7T/fv16Tr8u +RZbXjnD0e9XR2FA/ClZoScg9nU+CaffW+987KDh0iL00cToezkV2Uj5skkOn +oBcpk0NRQF7rc3YkRg492FvnP9cHAw8zVGb8G6e/pc/u2JZ8EZz0fmnq7JbH +x7za0355XmDGmzd5L1ceZfJGrma4HYcY985f06s4+n2yTCAk2xnG1G93uB+n +4nGGT8D1LhsYP6PTEltPxWjGscZ2v73gL+Onu1WG40fzt338PWwEClv2+3Ff +VsCFXa3qhn0EyPXeE6z9pIAJSVTzK+bqoDp52TdHl4Ydaf70tusbYMrD8M+2 +2zTM8VnMc0mhgq5z5qzZLA0P2mx/8FleEu6XpZZd3a+Iy25+NCpVFwbL7LU9 +hbmKaDHdvo6yhg+8b/W6bRGi46Z8DTWrEi5gaEzHVZymY3b7A/U6v3lC5fQZ +klYzHd9/hcTev9OEuWCM65cNDPTMP7u8qGKEEJGL7tgQzkBzp9Q3eRf6iNNp +jOcLgwx8enxH/UDuB6I/0vHErD4T/3NwTfI+1kQ4B1j9nE1molb1dJocvZbI +sh72D4wRxvxnvJHVsyxQHC88LmVKQuH64t/uEWwQ4h56O7eSjMv/M/v1mtMf +h2IaV7+uJyNu4ik0DmaDrVZ0ccdVEbxZPnh3IZ8Fqq8GTc0oUvjWZaPinf9a +YBv3CapunxQm2fzHqyX2Ggob95xxSZRGnoiIlwnsaoheNn33mrUMxjy7b6sZ +WArC1ic3fxeXxdCgidj7tgWwKfcylHTIYnqxg1hvcRZY62aKVO2koIW1KUnr +WCqYuVYY4SMK5ipLeO+0TQQNTeUzNcvkcK9ThtaiahzsHGE0+hyUw7uXJLm1 +x65CrLWVvXGlHIocyPu2GB4I/NxOPeul5PHKnniRqee+YKvbJRh6SR51tMNa +GlpOwdxP8eWPejjxUTua6FZXqPyqPfJai4r+avE59TyO8PJhONfK21ScjU5R +jmmzgOLlqqIGs1RccdjMb/VFU2iH47bF5go4OrX1VdUbfVDc/r5zR44CltVt +uLIhSxtyLq7b3sZPw5a7EatOe6qA28Ur4xeP0zDkenIiO5sOYlTzq4r1NLxy +8bBUgwUFfmQ8suCRV0QJWsa1O1qisDi1+cC/y4pYXHip4pemAGzzjN+70K+I +nbMfCrV9eGBvgNvfGKTjgHJ3Z5/rXyJfgNelN5mOYQv1NTbZc4T+x+By2iId +I24eVvho9ZXgP7bJ7Lo9A0tuXAjS3jRIvEpW62YXMRCixZkhT7uJJ09fRccI +M1FjYtwnU6qVqA8LDzI+zcRTX5jSlyYaiPfqKV3XW5k4pSu9q9evkngJ2XPu +EiQMtxZVfXqcDUsnzESDP5Hw9YDIxDRnvte76QRG3CTjlyPK91alsqHx+8La +SzYi6LBVyqhxjgXR0S8Gmi9y/OTdlfIfH7JB4c654MNbybgv3TjKm8OXxWLr +2zzzZHycflKH4sCG0DjD171fmbiT1mBHiSknvB8s022uJSGpe/6MewVH71ud +Lf92gYy8am6dJ3I4flRHi+Z9hITx+/wp8xz/cPfdhqwn0mRUOv/qFS+n3sM1 +bs/qzJCQXGfZVcHhhf4QJlHjSZhy8ITuslw25LjUOkmYktGQtsKVm8MfZ0is +ujLPxIRHfadn1MuIfG2H3Z7PSTgbUtEbWcrR98eulpsLk/HcjszjDzn5a1tn +l38Z4fgZ6enGqBo2TCxJnXkJZOSqaK0495LDyxWPGPQWEmrRPB4Oc/yKk1r7 +rZVMMtaEr+tf4Ow3S9r2JeEvCQNeuORe4OQzT6jR7VpkYlhD2uTvmFLiWd3J +tA/cQli8tsqUNDMDvr/KXL5cXIenv85KuBfOgTvtocwPVWHsMNEXUothwcBa +1ZBnY8IYEaUhU7idDRcu7HbZ9piEx6JKHjoWseHlQZak1kEyBgqiyiWOn7nk +8H1SVkEE5X8VJo5sYkO5nUa0yagINpZM7tkqzoKH7/l5x++I4t3XfsIjKbNg +/eT02khCApn9LkdXWPfDpoa+wkluSTwv9PzLmGc3hAzc2RBbJ4kCGjPrqlva +4Ir3oH/mOSmstO3n8xVphqyoIuNgHWlcTLkp8by1Ds5LC39rm5FGboFA6lHV +SqhrqE1fUyKDfK7i40ulRRB9ql4l8pwsvg1aJiNslgvLdjKat4lS0It0LVFv +eQa0SBSVrz9PwciYZushmWRIStD7HfqBgudPyqyVvx4PWT/urjbfKIedxmH9 +zwWuQyM/4eAXLYfzuqP88oPBsO1wZqLjVzkUMOw3cGm8CKcMtQafm8pjM3fd +DrtmL/iSNXdDLUcek3VGYi9ePw6ZO722uK2kIo9VzjeP185w+Ynmai43Ksru +bd/WvWADtsV/1JTrOLwq79jTErcXziTHqeZLcfxJc/ZJHV5jSDI+dSrxkgJa +Fcxa/OYDkNoklKD9UQEJDS7BxtPqkN/164+eDg0Nho4615VuAAPG59zOWzR8 +GPnxi2MlFURtEjRe/6DhWPcH3oPmkvDX+Nai5D5FZJeP4OJeYVD3sctj5iji +93eOz99t5YONm4zdcwXomHzG4PJSKxe4HHO8ud+TjhmJ82Ste/PETJ9WZv4b +OrrXWc2MbvxBxJLt588oM7Cv2IT9q2eE2PLzfPyrMAa27g9c1pzeRwgUnuT1 +GWBg17Mn9r7vPhD/VNPLwrYz8WVV7dV/0U1EJsNU1DGJiQ8HRU0DDGsJJava +w8+ihNHxRc591jQL8h12eK3bSULLpqS/96+y4UHW+TZJHjJ6udo4VHHqfz5H +UK2whoxG4s8Xjody1llk3fchIphxOqLGtpgFK8dExvylpbDjX4hXoux7ELtj +PrDpkxRSHg4x1NVfQ3ysrlLULWlU9PWQtOWrAV+M9PW1kEGdj7pPplNLIVvV ++PioqCwKFiiz35wugLflh32G22TR+dUd+9quLHj834/tmsYUzE+WfNsXmAry +1bxn2jMoKPTyBc3qQiKMHEpssueSw9LJB16DJnFwYdf0sxlHOdQL3Jn3mD8c +DCxldvRVyOHaxuCDFSmBoK972TJaQh5fUg6dj+v1Bbcd68u4/eWxbpPl3fCl +UxCS4PSE+CSPb5oeKI7td4WOhi6p7ZpU9Gt2W1ms6gi265mad25RUfVA6Mzs +tAUoGs9d7P9BxRQzR1fxNFNofBm0R2U3R+/kRy+7Nq4P920nmz49UcCQXbtH +1Vq0Iasl9PVOPhrK3HoXGHRNBcaO/jm51o2GN76/L45/T4dTn0d1qmppOCyz +O2HoJAWa7t1ODKAo4q6I45/0HETB3p96/2aAIuquFunScRUAae0BBc/Pihh9 +dc+kTwIP8K/vWFoDHP2j7vZffNxf4jucc/VKomOD0plg6us5gtvQdPf9P3S8 ++Uxksj7gK2HmvtAna8fA9jf3P8rvHCQGzsjcji5koGSPZXtkezexs4pvgH8d +E0sdN/27otFKjGx639p3iomM+GV/zPheEeSBW79+tzAx51ysLDO7kthZrPPX +eT0JD12d5w86xobr64YlcrpI+FErapcvh0/2YUGPfGLJqMmlYxvP4Y9AVuDN +c5YiKNY6EXVnngViPGZfq8+T0KRn5OFZDr+egUD4NRWOX+lY4hvk8OnGh+SX +M3NkzOz+GP/JieOndXUnjCaYyDO9Kuh6RTmx3CgR2FUkfHkxeL6S4y/WnC0f +7DpHxoAZ0bZcDl9c8l9vPH6IhNaaydUHbrGB6V2X80GCjDlMJ3kdTr2Lft44 +f2SKhLvOnoi8wOHTW5vWdLE4ErbaM952ZLNBd7XdkR07yejCpSaSzeFT5tfr +A1NsJt7N6LaTOlRGwMDcvsQiEv76PchT+5zzPwGZqnOCZBSkf35Ywsm/71w4 +L+8QCbWFTmZu5vDmXEahz/g2MipfPqfKzbmfxmy9jXubSTjBvXd0D4dPU5/c +7m5W5NzXcVbmTs55evU/DFf9JqHUz9wYK06+m/jcYftfJoa8VdwlWFZKXDlg +2viGj4wipWUubzjrnvXF6+z7SKhoZJB/iHN/q+kJaUEUMqZUV4u2cvItxHBN +rWORMDu6SWaeExvXzBTTRMjY5L/6Rxjn+61KB/4Vj3P8pKvy0hDnvK1RunGf +lcnYanQ9L40TV/7M6PFYImF+sPazRM5+/u/NEieXmLhZpadN8Vgp8T9FqcoQ + + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1nfczXUUB/BHSCihMrJn9sreK7tBVEJFRkaUkT2yS/bWNMtuKKMkUrZS +tmjIpuw9ep9Xf7yf8/2ce+597u937n29bo5WXRp1TpSQkFD3roSEqHv8eZWU +fCa/yKN4OCExe/XjCffyufwSJUnCPr0u3McXcktKxfM8ebpeGQ7Ko0jKfvk1 +UrFMbkV+s2vkFiSmdLy23gznshyK9yNvcm7HO3Jh+XvnliSL58hb1Q7c7fED +6uvcTzmP/aR+qV/ceYNzGyo5/6q+rF/A+Tvn6uoLagV1h1pLTaKWUreoNdX2 +ahV1l1pHLRPXpr4rV1PLqeXVn9XH1N/jfqmb5RrqK2pldadaWx3t8SLqerkV +FZ1/Ue+J++e8Te0Y12nuN7UrqflKLuHxjc5taS0XlNc6v0jSuH96d+u9F++J +P+QxFNX7Ia6d5PG/9A6q3UjDcrkNhcytk1+K+xr3Ui+Z3vtxj/hTHktyDsnd +ScsKuS3lScHvej14gJVyOyqQknu5j1Tczx9m3uBBVsmvUJHU/KnXk4f4Wm5P +JdLwl14v0vGN3IHK3OP9fhD3lb/kcaTlsNyb9KyWO1IlrsX8h/H54LA8ngf4 +W+5DBr6VO1E1rs/8R7FT/pYn8CBH5L5kZI38KtXims3PjM8QR+SJPMRRuR8P +853cmepxf8zP0qvKUXkS6Tgm9ycTa+Uu1Ih7aX52fBY5Jk8mPcflAWRmnfwa +NeO+m58Tn32Oy1PIwAl5IFn4Xn6dx2JH5ufGZ5kT8lQyclIeRFbWy12pFXsz +Py++O5yUp/Ewp+Q3ycYPcjdqxy7NfxzfHU7J08nEaXkw2flR7k6d2KX5T+K7 +yml5Bpk5Iw8hBxvkHtSNXZqfH989zsjvkoV/5KHkZKP8BvVil+YXxHedf+T3 +yMq/8jBysUnuSf3YpfmFenX5V36fbJyVh5ObzXIvGsQuzS/Sq8dZ+QOyc04e +QR62yL15PHZpfrFefc7JH5KD8/JI8rJV7sMTsUvzS/QacF7+iJxckN/iEbbJ +fXkydml+qd7jXJBnkouL8tvkY7vcj6dil+Y/1XuCi/IscnNJHkV+fpL70zB2 +af4zvSe5JM8mD5fldyjAz/IAGsUuzX+u9xSX5Tnk5Yo8moLskAfydOzS/Bd6 +Dbkiz+URrspjKMQv8iAaxy7NL9NrxFV5Hvm4Jo+lML/Kb9Ikdmn+S72nuSZ/ +TH6uy+Mowk55MM/ELs1/pdeY6/InFOCGPJ6i7JKH8Gzs0vxyvSbckOdTkJvy +BIqxWx7Kc7FL8yv0nuGmvIBC3JInUpw98jCaxi7Nr9R7llvyQgpzW55ECfbK +w3k+dml+ld5z3JYXUYQ78mQeZZ88gmaxS/Nf6zXljryYosQPiil6JdkvjqR5 +7FL/G73niR8kS5RicdSfKpfigPwWLWKX+qv1mpGIpXrF4+X1p8ml+U1+mxdi +l/rf6jXnLj6N19f70bk1KSgrb1c7UdV5d6L/fx+VMPsfqu4NLw== + "], 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]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + 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, 13}, {0., 1.2977994856441957`}}, + "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:eJwVl3k41N8XxyUVKtsM2Q1jzAxtyM7nnEQKabELpSgVKaG0iCwhWUqSKLKk +LJElS7KXKCFLIV87JfuklPSb3z+fz/N6zn3uPed9lvtc2SMeB1w4OTg4drM/ +///7XDZfx8EhgGST4dJ1kzPwvPZU6kdOASxaX2lCmpmBSd4g7cerBPDDceHP +EvMz4Hyv0NVsrQBWy6zsVVmcgf3FwvWJIgLI7/pe68KqWdg403VFa5MAmmec +nHOQnoWBo/bTnnYCqPph7L7//lkwNXFpGykUQMOHfItOL2dhl43td05fQUz+ +flmy+9kc+Pwsdf7vkiCe+Tor7lYwB+lx4l/K/QTR5fdo6t/iOeDs6HnvFSSI +5FVmWjKv5qBiv+Oz0ShBHB0/ln3w3RyomBz1bMwQxNNp5zwKxudAknD/FdMu +iP/iFEefUuZhmhrAJbtVCNe56L/liZgHN9oj6WkVIWw31hdQjZqHbwq1mhVq +bPuqtbx2t+ZhlLnK3VZHCHMdAxaS4+ehb0tYR8xOIdRo39wpmD4PzToxGZwO +QjiXlF59oWIess1Tdg2HCeEOoWvHqN/nQdGy5sjzCCF0eJn9YH5qHjKthi77 +Rwlh3nPu8KrZeUizpeVL3hHC78lCdvt+zsP9Q0/ELJOFkPHg3t+dnCwIP5X/ +rb5YCHXbdxuEbWDBicDqiMdDQnij1iSICSzoX68S9HxUCMMi1KULtrPAKv7R +pYqvQug2z3isYcCCHTmBJz9OC+EevyoH5d0skOoy3PXvjxAe/N6zY/QAC1oV +G1dak0lo/9ZOdY8LC3YVaf9x2kDCw9cXeAOOs+AVZM25iZMw1EpE5dkJFmRZ +RAxco5Dw0r8yo9/uLAj2M6vM3UjCI4VjV419WKDV1nZxtSEJFe+EFjYGsyDP +foen4C4SWjQm/nlwnQUKYwUnJE1IKFRX9MstjAWkpVgblf0k5DzwaPpHBAsm +adbqjg4kdJZf8b7sNguc895sOnGYhFYaSVUH77CgW1uT5nWUhLH7L1MW4ljw +Zq8YOfwECVevaePYkMCCFN+e2SJvErYOZ+ziTmaBKJfp16oLJDTuHn50LoUF +kZEv+5susfdPWC336RELLqUmfRgIIGGw4lq3iHQWWL4/lLM+koSjehv0Up6y +4J11S5poDAlb7Bjv2rNYoD+IidRYEiYfOqmzIocFW37K3tBKIKFSKuc9g2cs +4JEddnXJIGE9u0+8Clhw8eIeZ90nJDweUfzIoZAF3z8WHyJlk/Cu0SkPLGJB +c0iYVXU+Cd8LzWfMFbMA+uf2xxeS8OevAa6aF2z9tOz3eLwg4WxQeU94CQtu +fd9sIFVBworEjm7uMhas3BkPrEoSvroUuFDBZq+HK3SaakhI6lo461bOAusD +7cq+DSQ8pHzZo+glCxqy9DbtayLhOOe+kb0VLNBe9ZhBbyahJs390RCbJUt8 +ZTo+knAu0a974RULbgoOiWd3kvCTZsRun0oWLJ80FQn8TMI3/cLjU2z2qCsS +tOslocJOg7zDVex6lJJZr/wfCa9cNklsYvP+86Hc3IMk1BI4lbGlmgU1LbMr +/xsm4Q6pqYYINm9TPPivaIytv4vS8iCb0wPrfkd8Y9uPB6NKDQtEvmxaODpJ +wt3nToZfZHOo+t1Z7RkSkmstOsvZvBjFMSk4T8KsyEbpBTaf/HpifPwHCUPk +HB2ZtSzo0f84VPmLhJI/cqIs2WyaqPtf3B8S+r10zrnI5oof6d3uyyTMC9R6 +Hs/mzXv5Ow1WkPG/yun4Z2x+mHmhVYKLjJ4u1vaVbBbgHHw3t5qMK/+a/nzD +5msHTRre8pBRuKTU+S2b5wsLa5PXkbE8+PbDWjY780lXnucnIz/9y6NiNnce +v15mJkTG8zsyTjxis1H1TBFNmIyNl9dOh7C5RNwuf2kDGe0D1Tc7s5npVZv9 +UZyM2UxHOW02J7zfmPlUioyKF16/5mbzWnpcagCFjMlVVSIt7Pgv+/97YEMl +Y2R+1vpoNk9+dk3YokBGjRPzGbvY7Kjadmc1k4zVoYJ9i2y9WyJ0Yr4okbFl +583cVDZvH02LKNxMRoNrf0g72fwc+EJvKJMxrX2ZZ4CdT/l75wOPbCPj/jSj +CC82rzY1viigTcZ1NXnywex6OJ9e4D2mS0alq+dVONk8vix59hWQkaO8pfw8 +u54a86ePuxmSsT9XTtmUXW86a22P7thFRmcOVeEsdn1mO9c4ipuQ0ZC2yoWT +zVEb7lg27COjFPOlZgK7vi2uaO+Qtydj7xDsPs3uj1eH5iU0D5HRnx+Vr7D7 +h6GfzTI5QsbEEl2BQHZ//VktnXHOlYxbr6o9Osfux0fRK3hqvcj4IGw+dSyX +BevOlQ10niej34xIaw67n30sz5V9u0hGblXXjpPZLNgtPnJKKICMG0p0Ld8+ +YcFMakOz0022v69YrRvSWGAXEvDYO5qtL4e2TSx7ntS5avuH3WbXz1Gl+2vY +8+bupmzl/Htk5IxzM2lLYgHxIiqWI4OMOzmfcP9iz6+IRiu7h6/IuM0h8NM1 +9nxcyOZXLahm28VeLJ5gz8/DUQ1r39SRETdzFRgFskDVQrtiqpGMM3s7xkb9 +2PPwixSF6CJjZ2HxtkJvdvyzwyO902S8kO/kG+bEnhcfk17NzJExo+tT7GdH +FiwVWd3lWiDjk7RT2hR7Fny42LBr4xI7vw6h1Bgrdvxc2VmXuIVxPoVxZoUJ +O54N586Kywpjx41t5pIqLLhi/31CRl4Y5X4WxA9vZoF6issxGl0Yd/OFNqQq +sSBT0ebg1k3CmD1u+n01jR2fnp7hTi1hlB9vcTvMvr8sj64R89wvjF4T23qd +fs8DX6b/7fMWwijaMh5xb2EeGr4vrr9iLYz22yR3NszNg7bPd85QB2Ec8vLq +5Z2YB+mw1u9JJ4QxODprVL6HfT/n3q96GyCMpet+Up+VzsPDebLOhyBhTD8T +Vm1TNA82mpFF7deF8XbZQMJi3jw0Vvs//e+mMB71DROQzZyH3HaX2B/3hPFi +Ta7vmrh58Pm9xVX2uTC23lcVVj8zD2t21vH7Dgpjuxas05OehzJb9UjjEWFs +KJ7Yu01sHk67Z66THBfGzVEMf3nyPHTGRvBUTgpjr2BH2TQP+34fsli5alEY +FR0vK6n8mAP9gJGFaH4R/ED9VHqqcQ78Xq7uy9QVwZR/YZu6Pebgh8ru7E9x +IljgNRIjkDkLjz7wco/dE8GEN75Cw8mzYOb27uiPRBHEC2SV/HuzkJG+V0Io +VQRlS5/4aN6YBRtRq3CTZyLY+7tbecl9Fsr+HnF99Ya9/5/T551UZuFqw2X5 +tF8iqDl82muyeAZ4HPMSPew2oGFlxavvR6ahwcjkxhpBUaQVR48SeybArn75 +65o6UZTJWbe7bOsYCAXEJkKIGIbcfty2ODQIXn8c9lzQEUc3I+3Er+f6wOrp +mfXhhDgy+5yPrbLqA03bwPf3t4vj1p57niqafbBUnLmn0kgcTc39A6qWvkCw +5/ye1Rbi+NDqVHVOyBeI+xpqFusmjmn6vGc7k3qhpKtgb16SOK46XeWQ9rkb +lgp4Doz/E8dHbenG1aFdsLm+t2CCUwIvCLz4b9SjCw51PhOeXiWBlP7FQmnr +Lqj5Zfn5x1oJpP+kK9TTuiBU79HhlaISGES5tnOythNIb7Q9pLdK4KXO41uz +VnaCYvepCIvDEvgQrT/1RreDNUfz66oqCVy4oG9TMNAKQf33NkbXSiCf+oxg +VXMr5FW53Dr0WgL9T2Xr9Ja3AnfAX4flJgkcfhbZrB/XCiUrNv3Q6ZJAZuV+ +3waTVhBdGUF9MSmB0QNu3/NLW6B7lbF/jrgkNlKq7Iu2f4DVo8Kjl6Uksf1f +kGe8zAdQeT1gYkqRxHfOmxTu/W2G8BDfDRM0SbRcYmrOlzaDzponuQxlSdQ4 +P1bCva0ZErm5v6QaSeKNfAef3E3vwWHta60EL0l8bOeyGK7eBNe8Bi5nnJfE +Cps+Hh/hJsj4slT5/KIkzul+WnON1Qgzz1R3NvlLokIQX9DS80a4ZpFyYClC +Eou3UK/6KjdCZtLlU47pkjgY98Y4cNtbmN+imiTXKYke6w607jvwBkTvmfVv +/iyJlEeDDDW1N6DLeZKq0yuJidZ/uTVF30BIe/IT80FJPH9RU+he32sQ9eUr +DpqSRF+jVUKv3V4DUfO1eXS1FN6b4pssjayHMItkjiwNKWwtiLO8MF4LmRGF +RoHaUriUfFv8RUstNNQ1RB7Uk0K/O3xafKW1sFptVnLdDincEPJUb1V4LQQJ +62u5m0nh8Y6la+RNteDXOXR2i4sUGlntHsg8XwNeNvShgltSOBKQ9niLdDXE +RusoRtyRQgUfdwkbnmooaNh71jleCrnCwl7FsapgTvPCP/IDKZTttN1j1VQF +HmJvJXyeSKGO6uzjXt8qONl90kKzSgp/zIlaThVVwmH73PqXk1LImHxs1GFb +ARekhL61zkghJ58/9ZhKBUT3efONzUthulLeaoW1FVB1WM9a8LcUxq1dpa5S +8RIoLu/GXVZLY+/blKvnqS/hP/dva/llpFFzG10u+lcZOF5VOOC0TxrbWkaK +PtSWgA+G+/iYS6P2J52nUyklELliKuGGlTRGPX9go+FfAq8Ci4aK7KXR1IAg +DPVKQDrUwJv3hDRKrPqVZVb6Ar5EH4kvCJDG/dsNjFklxWD/6EHfqgJpXCh1 +vXWmoxBq62vS1hVLI4+L2NhySSEofh09SSqVxhtvhZPzEgthccuWn5RKaWQc +jM2+4lwIcRWV/LpN0uh5fVC17EcBtHzqR88haSw8TRxLki4AA35qah9JBqk/ +pszJYfmQpWJ0YkREBvnzlVhvz+SDkNWpLd/FZDA4YDz6gU0+DCQWlC/KyOC8 +P7dWGiMf/BQN2skbZVA6UPWeVGMelBi6rDIxYLOW/e0soTzYePnx8RdeMris +PH3jkWcORJ6uUw4/L4PvAlZIC5nmwMzhgT/2F2Vwxu7KgzxaDhQaSkRz+sug +8tFHqb6fs0GXP6pkzw0ZdE3xs1TfkQ0mj3x4hlNk0DS2OHyLTBacbDDMEvgg +g+khywltPzPhXdkR76FWGXR6fc+upjMTNudcheJ2GUwrshftKcqEuZjSjwe7 +ZTBHVLM7xCsTLh7ctJQxIoM9PnG3auYfQ9gUeY/ekgzuWFOllLaYARa8nj8L +yRR8KoE2g7LpsGIXo0lXhIKepBvxeivTITe470HdBgrWL4eX1QynAc8Kk53t +4hTkZf7XsTszDV79pN6Zp1Aw7Pu+dkPlNGCMdKiobKLgivNHxxuMU2GpUuv0 +M0MKHlOotkpPSIEnf6e3axhRMC9J4l2vfwpY6WQIV+6ioLmVCUnzeArkFwtV +NJtQ0Ct3xMl2Wwocy5lYO7WfgpZdAcL6LcnQkpD0ZKMjBSu7EiSD+ZIhzXvF +yBMfCl6e2frK2CgJmsULyzZcoGB4VJPVoHQSLFYeiw72pWC5prjss4VEMON9 +p+N0mYLnVvy3aywjERYfxN0SvUbBbsXhkUYetr1BCa/fpOCshrka43MC/BS3 +uu+cxo5PX8c7KjEe5Kq4z7alU1Dg1Uua5cV4MHUp34mPKZijJO61yyYeHj2j +zEk8Zev17jT3CzLbbjCx6+MzCpL/LE7lRN2FZHf/he3lFKSqGXu33YwD46qn ++2XaKBhaPxbn/yQWEuP0fgV/pOCFU9Lr5W7GwpRby4Pv7RQcPMxaHj8TC7fF +FiZKuygod+DH/VHNWOj13B5i8YWCn2k5Bfcbb8Np2qeysHEKtvcq1tSzbsGt +8FXyrGW2vqfXlI0eiYHhw/GNdhyyWDLx0HPAOAbUNZTOVq+QxX2O6ZpLKjHQ +M7TvVSSXLMbmZpjErIwBeb1EGyavLN44Y7JZLSMaiqdVbjoKy+KF5wMcgYNR +0G1xeKFBSRY7lyY86rRvQuZ0wlqzTbLYYRTS94LvJpwP76B83CyLjgEvkycG +I4BcZWzyRVkWPRTvlgtFRICZklryrIYseh9rT7McuAE1K3iNxQ1kkXZr7OqR +u+GQlVuQdMpeFrVy9W33bQmFi7unns84yKKe/67cJ7yhsGuY0eB9SBYTrkhw +ao1eh1GxB3NXj8iiwXSGz6+k60AJDjWKdZXF/FP69nP81yH2oMPsSy9ZTG8e +fhDzNxguc68x5Lspi7af9QJv/g2EBl7C3jdSFhd0RnjlBgKBvN773HCULLqz +ti18qQuEbMGhlLJbspj73FuhKSIQesQrl4/Fy+KxY3r63tKBoL3pfEllqixm +PLbt69l1DX7tH1M6WyaLK3PGqfdL/MHAQnpHb7ksrm8IPFSe7A/RVpZ2RhWy +KHww99tSqD8wDtaGSlXJooh3he6QrT9YOz8ceVsvi6zZ5imP3+xe97F+KNcq +i6PXnni9uO0HXvffCLWPyaLfzcy9zfOXQPdIRrzDV1nkM+wzcG64BFzMYOmx +b2w9pM7t0E26BLHF+oq/J2VRICruU57RJShqrdhOYcliuIHuUMrDi7CwpvCM +G4ccBihe3rr/oC/4eiU3c4nJocrFqhK3fz6gr3PVIlJcDl9RDl+I6fEBXk7H +7g2Scnhtb6zw5AsfSIiSGFWUkcMym62pRmd9oOxp3N99NDn8OnZdL2DUG5b6 +IzYmKcth5vpL56q7vcBvj2+4mrEcNlznO+887gmnDTUHXpjIYRNn7Q7bJk9w +1Pupob1HDp9wa0355nqC3ibvEWKfHK68W9Ct5+0JS+vO4i4rOVz3L0fsLZcn +XHrnumB3RA7zC/tiipXOwgUTmyP+F+Xw5vSOvbGbPcB1x4ZSzstyWLvZIiF0 ++TTY6HTyB1+RQ22tkOb65tOgoWRREeYvh1u6a/XFzpyGBd59ordD5PBes9Uz +0WJ38G40ak6/JYdhAp0bpfe6geduDe2mp3LYeFrRIOT5Cfgvc+6WarYcJmkP +R1+6eQJMuXMn7ufIoXTu8PV01xOg8EY+yS1PDr9xz++NkzkBPQZCHHzFcpjV +Y2w/FOUKBjhZv69aDjV0XupP+h6HDRqp+zu75DDma4bj4FkXCIpzfEp8lsO3 +jQ8VRg+4wNwPsZWPu9n+H7OliWxzgXeF0YXnv8hhp1T/h8UFZ/BX8dsgNiSH +huXazLd+zvBtk+2Xg1Ny6HSi46J53FF4Kc9/YoCLihz9ax0Dh5wgY5fnVtfV +VOSyzP7m/sYJotw6fk6toaL2RClfUJYTHCm8H7LES0WT41EkFS8n4DZgpG0Q +ZNt7ygdvrnEC86Pb/9sjRcWe6OXj69QPw7eUc5Zlauz1Z7ttJw87QHt9p+R2 +DSr6NrmuLlJxgIqvWsNvNKl4WTU2u47LAaKVOc516FDxkLP4prIn9qBeHRE9 +s52KklpbROYWDkJAf3qTghkVDUrOmWs+sANRmU/bbx9j+zt1u9xCygauPtVY +y+FKRZl9bbpdi9Ywqna33e0EFU8wvP1udlpDganV8Z1uVNxBKRWLjbYGs4vt +EYtnqej6/nnGijXWENTR0nXoChWt1D9Jyfy1hNkbb903xlJxk7DD16vrLMBm +A1Pj3h0qqhwMnpmdModXj0I5Vt+l4mxkslJUqzlElBrd/u8eFQe3ZxgY3zUH +xlh9ya2HVJyY6jF8KW8Ojvo1Kxefsu0IlXZGB6DxV9m9+moqbggyv/T9yT6w +KfqtqlTL9resfW9zzD4YO6vdHF1HxUjG8YY2333ANVHKaf+GiiWdZgP6xvuA ++FJyau4dW8+xpVqvz3shv7pYT+YTFdW5+eZLPcwgPvz5wIUpKgrXmxs7NZmA +gtHcpb5pKiabOriIpZpA0UoVEYNZKq46Yuq79pIJtF3ON+ZnUfGYk5h+opIJ +rPPIK0hfpOLBCWO341HGcNU8N7iNSx7PGczrOjrthmOST5kbJeRR4ogpX9FG +IzibFKOSJymP+5qyTmlzG8FlaV+dbdLs9Xm6n34N7YQYyq49urLyeH9+9IpM +4k52/Y2eMaXLo9H5w2d5+XeC0Ca5EjdVebS/+stm3T8DqNBL2JljIo+tJ3eq +B6/aAQ2vAvYq75HHxbzIFTfG9KENTtgUmcnjyOS215Vv9WF8u+bJiv3yeHKR +KVoUqQ9COztvvreWR7nU6eXX4vrgaibUMXlUHp3qq8FYZzuQD4Uf3XxZHiPn +HeqmNAASjU6fjr8ij5b5s+a/eADktx7w5bzKPm93i5phLwHbVohHdQbI41BO +2onHAQRYpD4p87suj+6vXnAEftCDO2MNgh9uyeM/dwu6wXldEDmzpsrjiTwe +Nm5wOsfSggc2E42fn8pj0O49I6rNWqCw/UPHjmx5LK3deG1jphaoC92d2PBM +HrcyM6vr7LXAqlBhQ1WhPPIZjASFNmjC3V+GpwWq5FEh+BCH6FMNEA0Ikszv +lMeV8uUFBrfVQHKzQJzWJ3kk1Dn4G86ogWzPff6az/IYl0g1u2amBopqBZwf +e9n5ibGTSuBVA52vA+OsQXncpnby0Z7gbeC4H4o0p+VxVmhE4FKQKqTK/t5T +tYaG9wifpcrHypDZHPxmFw8Npe+89w+4oQzZlwS3t/LSsDkhbM0ZD2Uo7GBs +G1xPw9bDzv/aNJThdZi1OBeZhuG/3ccyG7fC+GzhqBGFvf589Le8mS2wucbj +6gdNGlY3lf/6MbQR8jp//tbTpqHB4DGn2pKNoDJx1Sdbh4btqZfprTc3gho5 +2j2MoKFHTI9ZtuZG0D2Wd3CHAQ2XzWIqrGKUYDfvrMaLvTRsU4zzVjJTBOcD +njMPjtGwj3bP4OQ8HUaP/T613pWGt75/KIr9QAfXS9fGLp2gYdDNpHhWFh1O +pd3qs3GjobUkzcfchQ6eC8/fCXnSMHKlK0dwtwJcTZjPDLlCQ8m63QZezTRI +GPRyOh1Lw/F4s+KAbioYML7kdNyh4aPwT/85VFBh0t3wt+5dGmZ7L+U6J1MB +F4Vvr02g4c+mz4azx6gwwv+iLvMhDf91zTz890MOtuot0oee0vCukqDPSwk5 +qL97Zcq6moYpdvQ4ahAFTn8Z0a6soeGQ9J64wVMUEKWaXVeoo+G1S0ck680p +cDJXmvLjNQ31Buwn5qkUEKiv3H/rHQ2Hfft+jtyQAbu5FUXvumg4spSlEEeR +hhnTkEvbp2h48sPv1QoXJUDEOk79zTQNR7s+ch8ykwAdp4xZ01kaHrLe/vCL +nASEeL8+bsOioe6K6tYn78RB6sFqC4/fNNy68chJT6o4GE+HbExarYBir8qv +HP8iCmkx17/8klbAjOAtKhL+ItB4/268H0UBd4ed+KxnLwLT6Y/NueQUUJyW +fuOepghol715y09TwPrIH49/zwpD6+CaYgUlBXyo2rxse1wYllVDIy00FNDa +RXkY7clg0xkKeXsVUHWH3aKrmxD8MbqzJLFfAVllw7i0TwgelKaUXj+ggCtu +f9pZoiYEw4llqocsFbClaCLxyT9BOHP0O53voAL2F2ZMnrwjCKEzewXcjing +rV01UmoNAvCCd8MA/Qr7PPn2xOpbfGB3mfrgtp8C6qwV7tR24YOlyS0H/11V +wKKCK+U/NfhAv3VXR+c1BSR+CfzW7lsPzXcvvg0OVUDdKwFnezeth1H5vvyh +2wo4Fizkp/55LYhA+rWHTxWwOz5gf4UDD6h52+YysxXw+3uHF++38YBF1vru +ghwFNJ9qE6Ss44HbG3yUG/IUMLaN+Te0nBsEZnb2zxQrYG5RH3FYiht4U8b1 +9GsV8EPLsw1N31fDMufGxeEeBXzy+cK68RdcIKXVL+/xRQEjr++d8I7jAl2P +2H2LfQrYMfuxQMubCy71LD1eP8jWOyLusZMqF/wqeG+lPq6AU/18VcznK2HO +2aPwOoudz6lrKftLOWH09XMPxfV0vOO2w7BtggM2bTZyy+GjY9JZg6vLLRzg +dafHdasAHTfnqataFnMApzPXEXUSHbt2f1nyD+AAqRVWFvpidEyMLvrcKMYB +FjqLmnY0Ojrwp0Jf6jJR+ww4w/Xo2Fs70Har4g/Bu6F9eR2w91Nz/Rsb84fY +5+f6Jwrp2K/U1dHr8ofoM41h3dlBx75qj086/H+I318HR1N209GxwlpfyeU3 +oSIf0lRqSUfzsJEaT6lFIjn+XexXdzqqVb0s6Hu5QDgfd7h9wIOO6fELZM37 +CwRDfSqm/Awds9oeqtX6LhD5H/mjbp6jIxUWo9w1FogaPvMwZV869sjYlvMW +/SCGgz5f8Q1i288l9zBKWQTj7Ogxnvt0vJ8zkCg6NEd8h/Munol0rFc8G0h9 +M0fk8XE79yTRMWSxrto6a47QymY65STT0Wnt8H4drznCeMzt4P4MOqYYlzLG +18wRbg7ze+/l0/HZixSRdPVZIm83hxazge2//uzq7YeniZlezYy8t3R0q7Wc +Gdk0TSifOUvSbKLjh68Q3/NningeNzi5s5mOuss7ZF7ETxGFQ3WPnNvpeMLa +TFS2c5IouRK2LrmfjhuluCrMD30nqvOF+kUW6Xi3YF/l/OOvBKehyZ4Hv+l4 ++7nwRJ3fV0L/U2AZbYmOYbePyH+y/ErULbNit/2jY/n+v6K1XF+J1yZduw+s +YuAlen/yQ5dxonHkfsFNQQbGuV/+K6Y6RrSJ0a5zKTJwf9zfFad+DxPRZLuF +s0oM7C0yZv3sHibM+KNc/tvIQI+8cysLy4eJRq7FHWVbGOgFtY4lV4aJ6ul3 +HGfUGChZoOD+beUwkVfvdbEHGfhVKsumRHSIiDxb5/7cmoEmFmZ6qkcGCFO3 +xV4ZWwa2vX3wSW7XAMF7fLPpTTsGFt+6GKC1eYAIsY9XdHVg4EiQjVDP737i +ipHbmNRRBmb0mw6M3+kn3KTITmGnGRh1KCnlT/p/hPHboxaHg9n+eV07R/vQ +S2z9cSH2dQgDWw74r2hK6yWEZSPbN4Yy0Mwx5W3uxV6i/0KJxWI4Awczz93f +Qu8lfBjrLW9Fs/U5eN11XWAP8eh6sWXdfQYKprw/PWLYTfwx5LFmPGfz1wmo +/9FF9J+VvhtZwECJbou28LYu4nWSaherkIEQKcYMetZF3PrhYF39goE6F6RZ +Aie7CEb6c2u7CgaentrUFD7QSVhw2dtENDCwYONGncrPHUR2Ta7tTB8DxZd9 +7hOTHwm+glPc3v0M7Hz+1M7n/UfiTCrjxeIAA5+d2FHXn/ORUA16RF45wkAt +3n0Wph4fiTLDuA/CEwxUF/Mp8Ga1EW8brhjq/GRg+f3LLu/XtBGjzabKIfxM +XG+7fXXYvhZiVyVPP68gE0scNv+7pt5CPH32OjJKiInq42PeGZIthHs0fo8X +ZuIlnvNPWts+EKz92x5nSTBxcFjfPZPnA7GyQ0Kqlc5ENVvrVImQ9wSl5xu3 +JDKxKupdWn1xI/FPJa00ZDsTX1XWXP8X2Uj0hTucnNVn4l97l0Sv441EonZL +02tDJrZycf/hE2skxBKKIs+aMNHv18N1f/zeEkK2/uQ3VkxsOPJD/JhlA7Gq +S5ji6c7ENp+YhT2Kr4nhzR9aek8zkRG74rcpz2uiLiQ0wOgME0//x5S6Ml5P +XFP/Myh5jolimdUPPB7XE8t3+tPfXGBiT19g1h16PfHLIktJKogd76ePiplb +64hvbajRkMDE39w8xeuda4gMhomIQyITHw2ImPgZ1hBOfpY/ZpOYqFk1lSpL +ryE+MU8WSKQw8Zq/y75/36qJ1/63t3g8ZmLl5Xy/9d7VRMrmUbpIIRN/DNps +33yrirAJvyHq/J6Jt2aqj7/trSDI/Xd+/mpmYvb5aBlmVgXxQS2582YLEyd1 +pHb3+FYQOwcKY198ZCJ9uqR5m2gFoarZJ7C2m4m0d6aDOTYvCb7RrTzPR5l4 +ZdPMnMF4GdGoozO+c5zJfn+tCbhZXkYExxi+6fnKxF20eltKVBmxpGsXvGqS +id/7/ZblNMqIb7cDV9jOs/OferchMryUyPh6s3+SxcSE9C5bycOlhBPEV15b +YGLc494zM2qlxKdv2VeyF5mY6HnV/uRgCXEbX9hv/8PEoHcKu/lLSwizuGqd +ziUmhtSnTvyKKiF4vzeJn1pm4hbl7laF4yVE/fbOxX//mBi481R4PFFC/A9c +W8oQ + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 13}, {0., 1.2977994856441957`}}, + "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:eJwVl3k41N8XxyUVKtsM2Q1jzAxtyM7nnEQKabELpSgVKaG0iCwhWUqSKLKk +LJElS7KXKCFLIV87JfuklPSb3z+fz/N6zn3uPed9lvtc2SMeB1w4OTg4drM/ +///7XDZfx8EhgGST4dJ1kzPwvPZU6kdOASxaX2lCmpmBSd4g7cerBPDDceHP +EvMz4Hyv0NVsrQBWy6zsVVmcgf3FwvWJIgLI7/pe68KqWdg403VFa5MAmmec +nHOQnoWBo/bTnnYCqPph7L7//lkwNXFpGykUQMOHfItOL2dhl43td05fQUz+ +flmy+9kc+Pwsdf7vkiCe+Tor7lYwB+lx4l/K/QTR5fdo6t/iOeDs6HnvFSSI +5FVmWjKv5qBiv+Oz0ShBHB0/ln3w3RyomBz1bMwQxNNp5zwKxudAknD/FdMu +iP/iFEefUuZhmhrAJbtVCNe56L/liZgHN9oj6WkVIWw31hdQjZqHbwq1mhVq +bPuqtbx2t+ZhlLnK3VZHCHMdAxaS4+ehb0tYR8xOIdRo39wpmD4PzToxGZwO +QjiXlF59oWIess1Tdg2HCeEOoWvHqN/nQdGy5sjzCCF0eJn9YH5qHjKthi77 +Rwlh3nPu8KrZeUizpeVL3hHC78lCdvt+zsP9Q0/ELJOFkPHg3t+dnCwIP5X/ +rb5YCHXbdxuEbWDBicDqiMdDQnij1iSICSzoX68S9HxUCMMi1KULtrPAKv7R +pYqvQug2z3isYcCCHTmBJz9OC+EevyoH5d0skOoy3PXvjxAe/N6zY/QAC1oV +G1dak0lo/9ZOdY8LC3YVaf9x2kDCw9cXeAOOs+AVZM25iZMw1EpE5dkJFmRZ +RAxco5Dw0r8yo9/uLAj2M6vM3UjCI4VjV419WKDV1nZxtSEJFe+EFjYGsyDP +foen4C4SWjQm/nlwnQUKYwUnJE1IKFRX9MstjAWkpVgblf0k5DzwaPpHBAsm +adbqjg4kdJZf8b7sNguc895sOnGYhFYaSVUH77CgW1uT5nWUhLH7L1MW4ljw +Zq8YOfwECVevaePYkMCCFN+e2SJvErYOZ+ziTmaBKJfp16oLJDTuHn50LoUF +kZEv+5susfdPWC336RELLqUmfRgIIGGw4lq3iHQWWL4/lLM+koSjehv0Up6y +4J11S5poDAlb7Bjv2rNYoD+IidRYEiYfOqmzIocFW37K3tBKIKFSKuc9g2cs +4JEddnXJIGE9u0+8Clhw8eIeZ90nJDweUfzIoZAF3z8WHyJlk/Cu0SkPLGJB +c0iYVXU+Cd8LzWfMFbMA+uf2xxeS8OevAa6aF2z9tOz3eLwg4WxQeU94CQtu +fd9sIFVBworEjm7uMhas3BkPrEoSvroUuFDBZq+HK3SaakhI6lo461bOAusD +7cq+DSQ8pHzZo+glCxqy9DbtayLhOOe+kb0VLNBe9ZhBbyahJs390RCbJUt8 +ZTo+knAu0a974RULbgoOiWd3kvCTZsRun0oWLJ80FQn8TMI3/cLjU2z2qCsS +tOslocJOg7zDVex6lJJZr/wfCa9cNklsYvP+86Hc3IMk1BI4lbGlmgU1LbMr +/xsm4Q6pqYYINm9TPPivaIytv4vS8iCb0wPrfkd8Y9uPB6NKDQtEvmxaODpJ +wt3nToZfZHOo+t1Z7RkSkmstOsvZvBjFMSk4T8KsyEbpBTaf/HpifPwHCUPk +HB2ZtSzo0f84VPmLhJI/cqIs2WyaqPtf3B8S+r10zrnI5oof6d3uyyTMC9R6 +Hs/mzXv5Ow1WkPG/yun4Z2x+mHmhVYKLjJ4u1vaVbBbgHHw3t5qMK/+a/nzD +5msHTRre8pBRuKTU+S2b5wsLa5PXkbE8+PbDWjY780lXnucnIz/9y6NiNnce +v15mJkTG8zsyTjxis1H1TBFNmIyNl9dOh7C5RNwuf2kDGe0D1Tc7s5npVZv9 +UZyM2UxHOW02J7zfmPlUioyKF16/5mbzWnpcagCFjMlVVSIt7Pgv+/97YEMl +Y2R+1vpoNk9+dk3YokBGjRPzGbvY7Kjadmc1k4zVoYJ9i2y9WyJ0Yr4okbFl +583cVDZvH02LKNxMRoNrf0g72fwc+EJvKJMxrX2ZZ4CdT/l75wOPbCPj/jSj +CC82rzY1viigTcZ1NXnywex6OJ9e4D2mS0alq+dVONk8vix59hWQkaO8pfw8 +u54a86ePuxmSsT9XTtmUXW86a22P7thFRmcOVeEsdn1mO9c4ipuQ0ZC2yoWT +zVEb7lg27COjFPOlZgK7vi2uaO+Qtydj7xDsPs3uj1eH5iU0D5HRnx+Vr7D7 +h6GfzTI5QsbEEl2BQHZ//VktnXHOlYxbr6o9Osfux0fRK3hqvcj4IGw+dSyX +BevOlQ10niej34xIaw67n30sz5V9u0hGblXXjpPZLNgtPnJKKICMG0p0Ld8+ +YcFMakOz0022v69YrRvSWGAXEvDYO5qtL4e2TSx7ntS5avuH3WbXz1Gl+2vY +8+bupmzl/Htk5IxzM2lLYgHxIiqWI4OMOzmfcP9iz6+IRiu7h6/IuM0h8NM1 +9nxcyOZXLahm28VeLJ5gz8/DUQ1r39SRETdzFRgFskDVQrtiqpGMM3s7xkb9 +2PPwixSF6CJjZ2HxtkJvdvyzwyO902S8kO/kG+bEnhcfk17NzJExo+tT7GdH +FiwVWd3lWiDjk7RT2hR7Fny42LBr4xI7vw6h1Bgrdvxc2VmXuIVxPoVxZoUJ +O54N586Kywpjx41t5pIqLLhi/31CRl4Y5X4WxA9vZoF6issxGl0Yd/OFNqQq +sSBT0ebg1k3CmD1u+n01jR2fnp7hTi1hlB9vcTvMvr8sj64R89wvjF4T23qd +fs8DX6b/7fMWwijaMh5xb2EeGr4vrr9iLYz22yR3NszNg7bPd85QB2Ec8vLq +5Z2YB+mw1u9JJ4QxODprVL6HfT/n3q96GyCMpet+Up+VzsPDebLOhyBhTD8T +Vm1TNA82mpFF7deF8XbZQMJi3jw0Vvs//e+mMB71DROQzZyH3HaX2B/3hPFi +Ta7vmrh58Pm9xVX2uTC23lcVVj8zD2t21vH7Dgpjuxas05OehzJb9UjjEWFs +KJ7Yu01sHk67Z66THBfGzVEMf3nyPHTGRvBUTgpjr2BH2TQP+34fsli5alEY +FR0vK6n8mAP9gJGFaH4R/ED9VHqqcQ78Xq7uy9QVwZR/YZu6Pebgh8ru7E9x +IljgNRIjkDkLjz7wco/dE8GEN75Cw8mzYOb27uiPRBHEC2SV/HuzkJG+V0Io +VQRlS5/4aN6YBRtRq3CTZyLY+7tbecl9Fsr+HnF99Ya9/5/T551UZuFqw2X5 +tF8iqDl82muyeAZ4HPMSPew2oGFlxavvR6ahwcjkxhpBUaQVR48SeybArn75 +65o6UZTJWbe7bOsYCAXEJkKIGIbcfty2ODQIXn8c9lzQEUc3I+3Er+f6wOrp +mfXhhDgy+5yPrbLqA03bwPf3t4vj1p57niqafbBUnLmn0kgcTc39A6qWvkCw +5/ye1Rbi+NDqVHVOyBeI+xpqFusmjmn6vGc7k3qhpKtgb16SOK46XeWQ9rkb +lgp4Doz/E8dHbenG1aFdsLm+t2CCUwIvCLz4b9SjCw51PhOeXiWBlP7FQmnr +Lqj5Zfn5x1oJpP+kK9TTuiBU79HhlaISGES5tnOythNIb7Q9pLdK4KXO41uz +VnaCYvepCIvDEvgQrT/1RreDNUfz66oqCVy4oG9TMNAKQf33NkbXSiCf+oxg +VXMr5FW53Dr0WgL9T2Xr9Ja3AnfAX4flJgkcfhbZrB/XCiUrNv3Q6ZJAZuV+ +3waTVhBdGUF9MSmB0QNu3/NLW6B7lbF/jrgkNlKq7Iu2f4DVo8Kjl6Uksf1f +kGe8zAdQeT1gYkqRxHfOmxTu/W2G8BDfDRM0SbRcYmrOlzaDzponuQxlSdQ4 +P1bCva0ZErm5v6QaSeKNfAef3E3vwWHta60EL0l8bOeyGK7eBNe8Bi5nnJfE +Cps+Hh/hJsj4slT5/KIkzul+WnON1Qgzz1R3NvlLokIQX9DS80a4ZpFyYClC +Eou3UK/6KjdCZtLlU47pkjgY98Y4cNtbmN+imiTXKYke6w607jvwBkTvmfVv +/iyJlEeDDDW1N6DLeZKq0yuJidZ/uTVF30BIe/IT80FJPH9RU+he32sQ9eUr +DpqSRF+jVUKv3V4DUfO1eXS1FN6b4pssjayHMItkjiwNKWwtiLO8MF4LmRGF +RoHaUriUfFv8RUstNNQ1RB7Uk0K/O3xafKW1sFptVnLdDincEPJUb1V4LQQJ +62u5m0nh8Y6la+RNteDXOXR2i4sUGlntHsg8XwNeNvShgltSOBKQ9niLdDXE +RusoRtyRQgUfdwkbnmooaNh71jleCrnCwl7FsapgTvPCP/IDKZTttN1j1VQF +HmJvJXyeSKGO6uzjXt8qONl90kKzSgp/zIlaThVVwmH73PqXk1LImHxs1GFb +ARekhL61zkghJ58/9ZhKBUT3efONzUthulLeaoW1FVB1WM9a8LcUxq1dpa5S +8RIoLu/GXVZLY+/blKvnqS/hP/dva/llpFFzG10u+lcZOF5VOOC0TxrbWkaK +PtSWgA+G+/iYS6P2J52nUyklELliKuGGlTRGPX9go+FfAq8Ci4aK7KXR1IAg +DPVKQDrUwJv3hDRKrPqVZVb6Ar5EH4kvCJDG/dsNjFklxWD/6EHfqgJpXCh1 +vXWmoxBq62vS1hVLI4+L2NhySSEofh09SSqVxhtvhZPzEgthccuWn5RKaWQc +jM2+4lwIcRWV/LpN0uh5fVC17EcBtHzqR88haSw8TRxLki4AA35qah9JBqk/ +pszJYfmQpWJ0YkREBvnzlVhvz+SDkNWpLd/FZDA4YDz6gU0+DCQWlC/KyOC8 +P7dWGiMf/BQN2skbZVA6UPWeVGMelBi6rDIxYLOW/e0soTzYePnx8RdeMris +PH3jkWcORJ6uUw4/L4PvAlZIC5nmwMzhgT/2F2Vwxu7KgzxaDhQaSkRz+sug +8tFHqb6fs0GXP6pkzw0ZdE3xs1TfkQ0mj3x4hlNk0DS2OHyLTBacbDDMEvgg +g+khywltPzPhXdkR76FWGXR6fc+upjMTNudcheJ2GUwrshftKcqEuZjSjwe7 +ZTBHVLM7xCsTLh7ctJQxIoM9PnG3auYfQ9gUeY/ekgzuWFOllLaYARa8nj8L +yRR8KoE2g7LpsGIXo0lXhIKepBvxeivTITe470HdBgrWL4eX1QynAc8Kk53t +4hTkZf7XsTszDV79pN6Zp1Aw7Pu+dkPlNGCMdKiobKLgivNHxxuMU2GpUuv0 +M0MKHlOotkpPSIEnf6e3axhRMC9J4l2vfwpY6WQIV+6ioLmVCUnzeArkFwtV +NJtQ0Ct3xMl2Wwocy5lYO7WfgpZdAcL6LcnQkpD0ZKMjBSu7EiSD+ZIhzXvF +yBMfCl6e2frK2CgJmsULyzZcoGB4VJPVoHQSLFYeiw72pWC5prjss4VEMON9 +p+N0mYLnVvy3aywjERYfxN0SvUbBbsXhkUYetr1BCa/fpOCshrka43MC/BS3 +uu+cxo5PX8c7KjEe5Kq4z7alU1Dg1Uua5cV4MHUp34mPKZijJO61yyYeHj2j +zEk8Zev17jT3CzLbbjCx6+MzCpL/LE7lRN2FZHf/he3lFKSqGXu33YwD46qn ++2XaKBhaPxbn/yQWEuP0fgV/pOCFU9Lr5W7GwpRby4Pv7RQcPMxaHj8TC7fF +FiZKuygod+DH/VHNWOj13B5i8YWCn2k5Bfcbb8Np2qeysHEKtvcq1tSzbsGt +8FXyrGW2vqfXlI0eiYHhw/GNdhyyWDLx0HPAOAbUNZTOVq+QxX2O6ZpLKjHQ +M7TvVSSXLMbmZpjErIwBeb1EGyavLN44Y7JZLSMaiqdVbjoKy+KF5wMcgYNR +0G1xeKFBSRY7lyY86rRvQuZ0wlqzTbLYYRTS94LvJpwP76B83CyLjgEvkycG +I4BcZWzyRVkWPRTvlgtFRICZklryrIYseh9rT7McuAE1K3iNxQ1kkXZr7OqR +u+GQlVuQdMpeFrVy9W33bQmFi7unns84yKKe/67cJ7yhsGuY0eB9SBYTrkhw +ao1eh1GxB3NXj8iiwXSGz6+k60AJDjWKdZXF/FP69nP81yH2oMPsSy9ZTG8e +fhDzNxguc68x5Lspi7af9QJv/g2EBl7C3jdSFhd0RnjlBgKBvN773HCULLqz +ti18qQuEbMGhlLJbspj73FuhKSIQesQrl4/Fy+KxY3r63tKBoL3pfEllqixm +PLbt69l1DX7tH1M6WyaLK3PGqfdL/MHAQnpHb7ksrm8IPFSe7A/RVpZ2RhWy +KHww99tSqD8wDtaGSlXJooh3he6QrT9YOz8ceVsvi6zZ5imP3+xe97F+KNcq +i6PXnni9uO0HXvffCLWPyaLfzcy9zfOXQPdIRrzDV1nkM+wzcG64BFzMYOmx +b2w9pM7t0E26BLHF+oq/J2VRICruU57RJShqrdhOYcliuIHuUMrDi7CwpvCM +G4ccBihe3rr/oC/4eiU3c4nJocrFqhK3fz6gr3PVIlJcDl9RDl+I6fEBXk7H +7g2Scnhtb6zw5AsfSIiSGFWUkcMym62pRmd9oOxp3N99NDn8OnZdL2DUG5b6 +IzYmKcth5vpL56q7vcBvj2+4mrEcNlznO+887gmnDTUHXpjIYRNn7Q7bJk9w +1Pupob1HDp9wa0355nqC3ibvEWKfHK68W9Ct5+0JS+vO4i4rOVz3L0fsLZcn +XHrnumB3RA7zC/tiipXOwgUTmyP+F+Xw5vSOvbGbPcB1x4ZSzstyWLvZIiF0 ++TTY6HTyB1+RQ22tkOb65tOgoWRREeYvh1u6a/XFzpyGBd59ordD5PBes9Uz +0WJ38G40ak6/JYdhAp0bpfe6geduDe2mp3LYeFrRIOT5Cfgvc+6WarYcJmkP +R1+6eQJMuXMn7ufIoXTu8PV01xOg8EY+yS1PDr9xz++NkzkBPQZCHHzFcpjV +Y2w/FOUKBjhZv69aDjV0XupP+h6HDRqp+zu75DDma4bj4FkXCIpzfEp8lsO3 +jQ8VRg+4wNwPsZWPu9n+H7OliWxzgXeF0YXnv8hhp1T/h8UFZ/BX8dsgNiSH +huXazLd+zvBtk+2Xg1Ny6HSi46J53FF4Kc9/YoCLihz9ax0Dh5wgY5fnVtfV +VOSyzP7m/sYJotw6fk6toaL2RClfUJYTHCm8H7LES0WT41EkFS8n4DZgpG0Q +ZNt7ygdvrnEC86Pb/9sjRcWe6OXj69QPw7eUc5Zlauz1Z7ttJw87QHt9p+R2 +DSr6NrmuLlJxgIqvWsNvNKl4WTU2u47LAaKVOc516FDxkLP4prIn9qBeHRE9 +s52KklpbROYWDkJAf3qTghkVDUrOmWs+sANRmU/bbx9j+zt1u9xCygauPtVY +y+FKRZl9bbpdi9Ywqna33e0EFU8wvP1udlpDganV8Z1uVNxBKRWLjbYGs4vt +EYtnqej6/nnGijXWENTR0nXoChWt1D9Jyfy1hNkbb903xlJxk7DD16vrLMBm +A1Pj3h0qqhwMnpmdModXj0I5Vt+l4mxkslJUqzlElBrd/u8eFQe3ZxgY3zUH +xlh9ya2HVJyY6jF8KW8Ojvo1Kxefsu0IlXZGB6DxV9m9+moqbggyv/T9yT6w +KfqtqlTL9resfW9zzD4YO6vdHF1HxUjG8YY2333ANVHKaf+GiiWdZgP6xvuA ++FJyau4dW8+xpVqvz3shv7pYT+YTFdW5+eZLPcwgPvz5wIUpKgrXmxs7NZmA +gtHcpb5pKiabOriIpZpA0UoVEYNZKq46Yuq79pIJtF3ON+ZnUfGYk5h+opIJ +rPPIK0hfpOLBCWO341HGcNU8N7iNSx7PGczrOjrthmOST5kbJeRR4ogpX9FG +IzibFKOSJymP+5qyTmlzG8FlaV+dbdLs9Xm6n34N7YQYyq49urLyeH9+9IpM +4k52/Y2eMaXLo9H5w2d5+XeC0Ca5EjdVebS/+stm3T8DqNBL2JljIo+tJ3eq +B6/aAQ2vAvYq75HHxbzIFTfG9KENTtgUmcnjyOS215Vv9WF8u+bJiv3yeHKR +KVoUqQ9COztvvreWR7nU6eXX4vrgaibUMXlUHp3qq8FYZzuQD4Uf3XxZHiPn +HeqmNAASjU6fjr8ij5b5s+a/eADktx7w5bzKPm93i5phLwHbVohHdQbI41BO +2onHAQRYpD4p87suj+6vXnAEftCDO2MNgh9uyeM/dwu6wXldEDmzpsrjiTwe +Nm5wOsfSggc2E42fn8pj0O49I6rNWqCw/UPHjmx5LK3deG1jphaoC92d2PBM +HrcyM6vr7LXAqlBhQ1WhPPIZjASFNmjC3V+GpwWq5FEh+BCH6FMNEA0Ikszv +lMeV8uUFBrfVQHKzQJzWJ3kk1Dn4G86ogWzPff6az/IYl0g1u2amBopqBZwf +e9n5ibGTSuBVA52vA+OsQXncpnby0Z7gbeC4H4o0p+VxVmhE4FKQKqTK/t5T +tYaG9wifpcrHypDZHPxmFw8Npe+89w+4oQzZlwS3t/LSsDkhbM0ZD2Uo7GBs +G1xPw9bDzv/aNJThdZi1OBeZhuG/3ccyG7fC+GzhqBGFvf589Le8mS2wucbj +6gdNGlY3lf/6MbQR8jp//tbTpqHB4DGn2pKNoDJx1Sdbh4btqZfprTc3gho5 +2j2MoKFHTI9ZtuZG0D2Wd3CHAQ2XzWIqrGKUYDfvrMaLvTRsU4zzVjJTBOcD +njMPjtGwj3bP4OQ8HUaP/T613pWGt75/KIr9QAfXS9fGLp2gYdDNpHhWFh1O +pd3qs3GjobUkzcfchQ6eC8/fCXnSMHKlK0dwtwJcTZjPDLlCQ8m63QZezTRI +GPRyOh1Lw/F4s+KAbioYML7kdNyh4aPwT/85VFBh0t3wt+5dGmZ7L+U6J1MB +F4Vvr02g4c+mz4azx6gwwv+iLvMhDf91zTz890MOtuot0oee0vCukqDPSwk5 +qL97Zcq6moYpdvQ4ahAFTn8Z0a6soeGQ9J64wVMUEKWaXVeoo+G1S0ck680p +cDJXmvLjNQ31Buwn5qkUEKiv3H/rHQ2Hfft+jtyQAbu5FUXvumg4spSlEEeR +hhnTkEvbp2h48sPv1QoXJUDEOk79zTQNR7s+ch8ykwAdp4xZ01kaHrLe/vCL +nASEeL8+bsOioe6K6tYn78RB6sFqC4/fNNy68chJT6o4GE+HbExarYBir8qv +HP8iCmkx17/8klbAjOAtKhL+ItB4/268H0UBd4ed+KxnLwLT6Y/NueQUUJyW +fuOepghol715y09TwPrIH49/zwpD6+CaYgUlBXyo2rxse1wYllVDIy00FNDa +RXkY7clg0xkKeXsVUHWH3aKrmxD8MbqzJLFfAVllw7i0TwgelKaUXj+ggCtu +f9pZoiYEw4llqocsFbClaCLxyT9BOHP0O53voAL2F2ZMnrwjCKEzewXcjing +rV01UmoNAvCCd8MA/Qr7PPn2xOpbfGB3mfrgtp8C6qwV7tR24YOlyS0H/11V +wKKCK+U/NfhAv3VXR+c1BSR+CfzW7lsPzXcvvg0OVUDdKwFnezeth1H5vvyh +2wo4Fizkp/55LYhA+rWHTxWwOz5gf4UDD6h52+YysxXw+3uHF++38YBF1vru +ghwFNJ9qE6Ss44HbG3yUG/IUMLaN+Te0nBsEZnb2zxQrYG5RH3FYiht4U8b1 +9GsV8EPLsw1N31fDMufGxeEeBXzy+cK68RdcIKXVL+/xRQEjr++d8I7jAl2P +2H2LfQrYMfuxQMubCy71LD1eP8jWOyLusZMqF/wqeG+lPq6AU/18VcznK2HO +2aPwOoudz6lrKftLOWH09XMPxfV0vOO2w7BtggM2bTZyy+GjY9JZg6vLLRzg +dafHdasAHTfnqataFnMApzPXEXUSHbt2f1nyD+AAqRVWFvpidEyMLvrcKMYB +FjqLmnY0Ojrwp0Jf6jJR+ww4w/Xo2Fs70Har4g/Bu6F9eR2w91Nz/Rsb84fY +5+f6Jwrp2K/U1dHr8ofoM41h3dlBx75qj086/H+I318HR1N209GxwlpfyeU3 +oSIf0lRqSUfzsJEaT6lFIjn+XexXdzqqVb0s6Hu5QDgfd7h9wIOO6fELZM37 +CwRDfSqm/Awds9oeqtX6LhD5H/mjbp6jIxUWo9w1FogaPvMwZV869sjYlvMW +/SCGgz5f8Q1i288l9zBKWQTj7Ogxnvt0vJ8zkCg6NEd8h/Munol0rFc8G0h9 +M0fk8XE79yTRMWSxrto6a47QymY65STT0Wnt8H4drznCeMzt4P4MOqYYlzLG +18wRbg7ze+/l0/HZixSRdPVZIm83hxazge2//uzq7YeniZlezYy8t3R0q7Wc +Gdk0TSifOUvSbKLjh68Q3/NningeNzi5s5mOuss7ZF7ETxGFQ3WPnNvpeMLa +TFS2c5IouRK2LrmfjhuluCrMD30nqvOF+kUW6Xi3YF/l/OOvBKehyZ4Hv+l4 ++7nwRJ3fV0L/U2AZbYmOYbePyH+y/ErULbNit/2jY/n+v6K1XF+J1yZduw+s +YuAlen/yQ5dxonHkfsFNQQbGuV/+K6Y6RrSJ0a5zKTJwf9zfFad+DxPRZLuF +s0oM7C0yZv3sHibM+KNc/tvIQI+8cysLy4eJRq7FHWVbGOgFtY4lV4aJ6ul3 +HGfUGChZoOD+beUwkVfvdbEHGfhVKsumRHSIiDxb5/7cmoEmFmZ6qkcGCFO3 +xV4ZWwa2vX3wSW7XAMF7fLPpTTsGFt+6GKC1eYAIsY9XdHVg4EiQjVDP737i +ipHbmNRRBmb0mw6M3+kn3KTITmGnGRh1KCnlT/p/hPHboxaHg9n+eV07R/vQ +S2z9cSH2dQgDWw74r2hK6yWEZSPbN4Yy0Mwx5W3uxV6i/0KJxWI4Awczz93f +Qu8lfBjrLW9Fs/U5eN11XWAP8eh6sWXdfQYKprw/PWLYTfwx5LFmPGfz1wmo +/9FF9J+VvhtZwECJbou28LYu4nWSaherkIEQKcYMetZF3PrhYF39goE6F6RZ +Aie7CEb6c2u7CgaentrUFD7QSVhw2dtENDCwYONGncrPHUR2Ta7tTB8DxZd9 +7hOTHwm+glPc3v0M7Hz+1M7n/UfiTCrjxeIAA5+d2FHXn/ORUA16RF45wkAt +3n0Wph4fiTLDuA/CEwxUF/Mp8Ga1EW8brhjq/GRg+f3LLu/XtBGjzabKIfxM +XG+7fXXYvhZiVyVPP68gE0scNv+7pt5CPH32OjJKiInq42PeGZIthHs0fo8X +ZuIlnvNPWts+EKz92x5nSTBxcFjfPZPnA7GyQ0Kqlc5ENVvrVImQ9wSl5xu3 +JDKxKupdWn1xI/FPJa00ZDsTX1XWXP8X2Uj0hTucnNVn4l97l0Sv441EonZL +02tDJrZycf/hE2skxBKKIs+aMNHv18N1f/zeEkK2/uQ3VkxsOPJD/JhlA7Gq +S5ji6c7ENp+YhT2Kr4nhzR9aek8zkRG74rcpz2uiLiQ0wOgME0//x5S6Ml5P +XFP/Myh5jolimdUPPB7XE8t3+tPfXGBiT19g1h16PfHLIktJKogd76ePiplb +64hvbajRkMDE39w8xeuda4gMhomIQyITHw2ImPgZ1hBOfpY/ZpOYqFk1lSpL +ryE+MU8WSKQw8Zq/y75/36qJ1/63t3g8ZmLl5Xy/9d7VRMrmUbpIIRN/DNps +33yrirAJvyHq/J6Jt2aqj7/trSDI/Xd+/mpmYvb5aBlmVgXxQS2582YLEyd1 +pHb3+FYQOwcKY198ZCJ9uqR5m2gFoarZJ7C2m4m0d6aDOTYvCb7RrTzPR5l4 +ZdPMnMF4GdGoozO+c5zJfn+tCbhZXkYExxi+6fnKxF20eltKVBmxpGsXvGqS +id/7/ZblNMqIb7cDV9jOs/OferchMryUyPh6s3+SxcSE9C5bycOlhBPEV15b +YGLc494zM2qlxKdv2VeyF5mY6HnV/uRgCXEbX9hv/8PEoHcKu/lLSwizuGqd +ziUmhtSnTvyKKiF4vzeJn1pm4hbl7laF4yVE/fbOxX//mBi481R4PFFC/A9c +W8oQ + "]]}, "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:eJwVl3k8VO8XxyUVKmSG7IYxZoY2ZM89J1kKabELpSgVKaGURJaQLCWpKLKk +LJElS7KXKCFLIdkpEWZSyle/+f1z7+u8nuee+7ye1znn/fnIHfbc78rNxcW1 +i/P4/9vX32INF5cQkk1HytZMzYCZqWv7aJEQGj4QWHB+MQs7be2+c/utw5Tv +/lI9T+fgBzWIR26LMK5x1X/DF8WC48E1UY+GhfFanWkIE9jAJzfi5ppJwoY7 +RW7ehWywvKSzQ8GBjH3DsOvUczbUrz97RkJOBDuvbbWQUmXDKqN6Qb8hEezQ +hjV6Miz4qbor52OCKBZ6j8YJZc0Cn1N+kqf9ejSsqnz5/fAPaDQ2vbZqnRjS +SmLHiN2TYN+w9HVVvRjK5q7ZVb5lHISD4pMgTBzDbj5qXxgeAu+/jrvP60qg +u7FO0tez/bBYyLd/4p8EPmzPMKkJ7wYbrpZX1dWSOH9e37ZwsA0cV7/Svust +hY/sXRciNZohwjKFK1tTGtsKE6zOT9TBIYe8hhdT0siYemTcaVcJDg/v968o +lMH5MrcbpzuLYIP/o2PPvWVxSeXHtYdeuWDJ7/WriEzBJ5JoOySXAek+y0Yf ++1LQf2bLSxPjZDCpfrJPtp2C4Q3jCYGP46HH8tB8o7Icdi1OetbrXAd/3lWG +Atfl0O6TXvD1/4LB+95r4Y5xOQy4nrWnhXURAnb7RaqbyGPjVYFzLhNe4LVL +U6f5iTw2nVIyCHt2HF4oCB4f5KEi18Bqp+BhZxCT/bj95lEq8kzfrLCUtoWm +3+V3GmqouD7E4uL3x3vhqNQT5gZJBZQ8bCZQvMEYyAcjj2zyV8BolmP9tCaA +WFCIVEGXAi5XqCg0uKkOm2o9L7/XomFNc8Xvn8Mb4O6Qt/OpeBpOJJqXBPVQ +YcYs7OL2aRqeeP9npeIFSbDtCof8PYqotsN+wc1dGEQh48qDJ4rYkxi0r9KR +D8ZePfNUWkvHW+47DNsnuSAl8W38Vw86qle/KOx/MU/k7+LSZjZyYv3ZldsP +/SDaxWlXeZQYuC/hv2Un/4wQJm+OWB4KZaCn95WztPd9RE5tnt1MPwMllnzv +EVMfCErvN14pZGJ1zNv0hpIm4ls7ajbeZeIfXr6StS61RMP2roV//5gYbHQy +MpEoJQaPOPzwshdCtffj9wL3zYIU4fE7rmMd/ktQGntCYUGORerOkQhh3CF8 +5Sj1Owu029svrDQkodKt8KKmUDZs2iPYZbCMjF+qfiQ+rWNDVJO1/YOXZNzq +GPzxylU2jOXdq34TJIJla35Rn5axIODFyv6sbaKY+i9iY4/nHFxu9FdI/y2K +WiOnvKdKZqC0u3BPfrIErjhV7Zj+qQeUek5GWR6SxAdo87EvtgN6VpgE5kpI +YROl2qF4+3tgbVZLlu+SQs81+9v27n8N3rb04cIb0jgalP5os0wNOF1W3O+8 +VwbbW0eL39eVgoEgNa2fJIvUn9MW5IgCONFomC30XhYzwpbutv/KgsUq7VNP +DSl4VLHGOuNuKvySsL7nkk7BCH1dn5ikRLgRuUKBvURBi1OryscOx0F2XmHy +SQc51M7Tt9u7ORx+7xtXPlMuh8tzJ6j3SgPBzzulhUdcHlUvVJe6//OF86a2 +hwMvyOP1Hzv2xG/yhPWaafu6uuUx7mum09AZV/iWetaqXJ2Kpmd67KYOOcLs +tTceG+KpuFHE8evlNZaQGPls8Pw0FUUaLEycm02hUu+uUa6pAradMNIIXbED +RE+vqvZ8rICHTBqdz7K1IU3uz+7qVTS8Q/guVj1SAZf9XjP3j9Kwn3bH4ASL +Dg23L03b1NAw1Z6eQA2hQHrc1c+/ZRQxM3SzqmSgKDznXz9Iv6SINgodSTU3 +BGCJe8PCSK8iPv50fs3Ecx6oewrckXp07KsbbL9R+ZdgnBk7ynePjvdyB5PE +hueImgLhAdEFOt4u3FvFevSViD5T7/HMhoGmluZ6aocHib+GfDaMZwxc93US +Gn52E2MtZiphgkxca7d9ZcTeVmJFtwjFy4OJ7b5x87uVXhG2kdfEXN4x8cZM +zbE3fZXEhpnuS9obhdAi88Sco8wsqJoe8WrKXIen0s96Fk7MQYtuXCa3ozDO +JWfUnK9kQZtS03IbMgkd3tir7XZlg1Spn2znBxLOJQX0zL9kw0xaY4vzdTK6 +vGS3rU9ng9WRVeJe+0TQe3Jrn/MfFugHjc7HCorie+rHspNNc1D+32G3l685 +9fz31Dln1VlI+BpuHu8ugen6/Ge6kvuA9FrHU2aLJF7sOrYle3kXiC2Poj6f +ksTYQffvBWWtkJXsf9IpQwqHEl6bBG99AwFdw2c2u0qjsfWuwaxztfDF49tq +QVkZ1NpKl4/9XQ6tHwfQa1gGi04RR5NlCsH0oS/fSKosmsWXRG6WzQbGaKeq +6kYKLjt3ZKLRJA3MG5Xx6nUKzmpaqDM+3YVTtI/lERMU7OhTqm1g34DaZfwm +EgZySLsxfvnw7UjQ2XiutCpNDjMf2fX37rwC86uKTrtzyWOQkv+WfQf84OJb +t3n7w/JYUNQfV6J8BgxwqmFvjTxq6r7Qn/I7BhZHtn/ZLU3F3tilY2s0DkFI +Z2v3wUtUtNb4KC37nxUU1JToyX6kogavAKvM0xyEN8qXuqspoMPl37Zr/hnA +rfHGde9vKOA/D0u6wblt4LQPirV+KOCs8KjQxRA12MU/q/l8Dw3blRJ8lM2V +YIveAn34CQ1vK6/zfSEpDyY/wjYkr1RE8ZcVl459FoPwmT1C7kcV8cbOWmn1 +RiHgT53Q069TxPetT9c3f18JlroLWvY0OjoKpkF/2hIxEvLpkl8IHalnU3oZ +ZWyi9FLEmpQBOm6Q5qm0OPidyG/wvtCLDPwqnW1bKjZMPLxaYlV/j1O/qe9O +jRr2EG8aLxnq/mJgxT1/13er2glhu0Dya2smNh7+KXHUqpFI3TRGFy1i4s8h +2+2bblQTkScLvjWUCOO2jl0GEevZkOrXO1vsQ8K2kcydvCls2D6WHlW0iYwG +V/6SjGrYwJgdGe37QcbzBc5+Ec5s8P2z2U3umQi23VMT0TjNgiRe3s9pxlJ4 +rcDRN2/jOyBqv7aMrZTGO9MCU2XRDXCi54SlVrU0/pwTs5ouroLPsYcTC4Nk +cN92AxN2aQmUGrquMDWQRRlth5vZwvkQMU3erbcoiztWVSunL2RC693kxxuc +KFjVfVcqVCAFUjwC57dXUJCqbuLTfj0BSn6oXncSkcPzzwa5godiIP6A4+wL +bznMaBm5H/dfKJT42jyQb5PDsSuPvZ/fDIDFgagNySrymLX24tmaHm/waTJu +ybghjxFCXRtk9rjDt412nw9My6Pz8c4LFglHIGggo1nRnIoGpWcttO7bg5N+ +7fKFJ1QcQqiyN94Ply3yQtt5FPCsAWubk/MucDMX7pw6ooDODTVgorsdbv82 +PCVUrYCKoQe5xJ5owsRs0ZgxhYYt52K/5c9shst3WVlhl2goVb/LwLuFBvZz +y4rfdtNwdDFbMYEiA0tq4dGWmpx56Koygg5kGFPoLxi+qYjjocIBGp9Ww5yL +Z9FVNmd+Tl9J3VfGDaoKYc1lVnS0iBit9ZJeINwdWXvuFNDx6fNU0QyNWaJp +9F7h9XUMTPDw/09cbZxwlyY7R5xiYMzB5NS/GV8ISx4H26hGBhZu2KBb9amT +WN4pKd1GZ6K6nU2aZNg74rdltrJ0CBM1Pn5QytpSTwiMbeF7NsbESxtn5gwm +yol9JSINSaJCKOj2Tvv8ilmo3Of0dCxmHY5NHM058HYO+jdHdMYZCaNmx6au +dRkskO423PnvrzAe+N67Y2w/G25832QgXUnCyqTOHt5yNjyMXcZX503G+xGs +tPE8Du/19AyNtEVQYaLV/RCnftOHLZevWBBBJSd/ZdWfc2ArZh1p+lQU+/70 +qCx6zEKoF2v3SksJfGB9siY37DOE6z08tFxMEkMoV4ym6rqgdNnGn7rdksis +2ufXaNoGVyxT9y9GSWHJZuplP5UmCBHR1/Ywl8ZjnYtXyBvrgOL6dsJ1pQz2 +vUm9fI76AhIqqwS3Ncug19UhtfKfhbBNMKZ09zVZdEsNsNLYkQMvf1FvsSgc +nn/f22Gokg4L9xNuiF2hYI/SyGgTXxL0eW0Ps/xMwU+03MJ7TTfBXFk9ZVZT +Dn2OdqRbDV6DXomqpaOJcnj0qJ6+j0wwFLdVbqew5TDSYNtw6oMLsLjmDO60 +lsc1/3LF3/B4Qa+BMJdAiTxm95o4DMe4Aa8BI339Oirq9FYMXV/lDOYXOqIW +zlDR7d2zzGWrbID4XHpy7i0V/cYX67w/7eHo27HTZnQFND536Ay/oBFYpj0u +D7iqgB4vn3MFv9cD3a+DE+whBdyqfuLh7tCtsO1o/oEdBjRcMo+rtI5ThlHB +5/VZD2j4r3vmwb+f8iB9f6Wl5x8abtlw+IQXVQJOH/lOFzigiANFmVMnbq0D +oRmjgZkSRcwr7icOSfOC9DJrS31xOibFFn9qEueCWgGLCBU/OvbK2lXwF/8k +iobrH7p00PG4jbmYXNcUUfPjLddpdQZKFSp6fFs+Qvgy1lrdiGXgxQNX3dYE +9xLlhgnvRSYZqCHuW+jDbifE7xZHnzFlYsDvB2v+BrwhXgXe3Oz5iIlV/gUB +a31qiHsHH4tbpQgj4/6d/4y42TBFs9FwciShi8Kyd+U32VAqYV+wuJ6MDsEa +m1w4+rPnszSF6CZjV1HJ1iIfNuR1uMb/vCOCF2rz/FYlsEB31eM8hooUap4b +L+Xd2gJifgIlIdNS6Ge8QviV+yvwFH8j6ftYGnXVZh/1+VWDTLiBD/9xGZRc +8TvbvOw5BCgZdJA3cOZjsNod6aZ8uHBg42LmqCz2+ibcqGU9gqO5k6un91HQ +qjtIRL81BcwMJnd+eEpB8t+F6dyY26Cgl2TL5JfDa6dNN6lnxgIlNNw43k0O +C07qO8wJXgUblwejbxrkkD3bMu355zKUP0n4by9NHr+OX9ULGvOBef69YjfD +5PFOi/VTsRIPCFQNWC8+LI+GFTrMNwEuoFETFTuznYpS2ptF5+YPAGO8ofTG +AypOTvcavlCwgDWe+YUZC1Q8MGnifizGBISNuq6/s1FA+bQfS68k9MG6SHF9 +dZECChiMhoQ3asGrCBsJHjINI/94jGc1bQGv+Wdvhb1oGL3cjSu0RxGEGqr2 +3XhLwxG//l+j12ShbWhViaKyIj5Qa1myOyYCLbcvvAkNV8Rtl4LO9G1cC78L +31lrTCji9IBANfPZcvjzdWgsdRcdnSpt9JVd/xAm4+4H9mXSMdWkjDGxao54 +Zdq9a/8KTv3QB1IeuE4Ql4zdx6WPMDBzwGxw4tYAwch4ZmNfycBT0xubIwe7 +CPa+rY+yJZk4NKLvkcX3nli6NZDx+jwTe/uDs2/RGwg1rX6h1T1MpL01G8q1 +fUGEBphX5W0g4eGi8csmvmzICK7/E/WNhDuOhaJqLRuI5zHxXJlkNOJ+zPs7 +gQ0yEW3fk4+LYGhs9phCLwus3h3MXRtNwjG99XqpT9jQVPDjmLshGQfy5FXM +Kjl85snJvsgrgqxUxullpmz4djN4mR2LiaVptxujI8sIlztFbuarhbBGdnmf +6sIMcHf2vvMOWYfkFebasi/nYIy5wsNOVxjznILmUxJZsCM3+MSHH8K4O6Da +UWUXG1rCIqxrCkj4TpiVOVfChr8rZTLPupFxy2X1h2cL2ZClZHtgy0YRzJkw ++76Sxoau+Ci+qikR7FvXWf6DjwWZGXskhdNEUa7ssa/WtVlYLMnaXWUsgWYW +gUHVi5+h9rfVp5+rJZH+i67YQOsG3qD/HJeaJXHkaXSLfkIbzDxVM2oOlELF +EIGQxWdNsFJ9VmrNDmlcH/ZEb0VkHVQf0rNZ90caE1av0FCtfAELmzf/olTJ +IONAfM4llyIoMpSM5Q6URZUjD9P8PuUA3zJTow4JCvIzv3TuykoHc/63us7+ +FDy77MvO8cwkuCk+P1nWTUH5/T/vjWnFA7naxPSzihx6Kt2uEI6Kgpx1w6nl +N+Qw75mPYnNUMMSX6Cv9mZJDoZiEj/nGF0Fvo88osVcel98u7NHz8QLF1wrJ +7vny+I2XtSdB9jgcLroXtsjP8V/HYkiq3s5QaGZ9zMidijsoZeLxsTbAM1nG +7fCaiqVd5oP6JnshjrJz9zY5BbzHGrskm2QEW5dJxHQFKeBwbvrxR0EEKKkX +cn/oU8C9cfbSd/nVQZ0c6xFB0NAzrtc8R2sD4ILIzdV3afir+ZPh7FEqhPm8 +OmbLpuG2ZTVtj99KwEhSudpBK0VsLZ5MevxvHdxc76vSmK+I8e3M/8IreIHb +heewBomO3bs+LwYGcUHBB8GY62c5+hUWYjw054lnCUNTRi103La0Q/Z54jTR +xLOwo3wzA72hzqn00ggxcL7UciGSgUNZZ+9tpvcRaiEPyctHGajNv9fSzPMD +kaTT2vzKkIltPLx/BcSbiI/ME4WSqUy8Eui699+3GiLdjlYgdUsYv6cI2+/9 +xQLSYryt6j4Scu9/+ONnFBtYRUV1KWvIWBF680EdZz6rWepUTjeRcWZP5/hY +AKdfagKffLkugkf8IoTkslgQGea3fpImhVaLTC1WWQuEdaQ8thiSwnMXtITv +9L+COa3z/8j3pVGuy263dXM1vAwuHi52kEEzA4Iw1CuFwaTCigVZWWQF8mqn +MwpgLq7sw4EeWcwV0+oJ886CghLhyhZTCnrnjTrbbU2Fh08pc5JPKNjw9hTv +c3Ii9A7vfRnNI4fxeZmmccvjYEz8/tzlw3Jo8CPT93fyVWAcqAuXrpZDUZ/K +bcN2gXA3RnJMSVYey223pBmf8QVNZcvKiEB53NxTpy9++hS8LYotOvdZHruk +B94vzLtArArX2U5dKh50kdhY/tgBosqMb365w9Gv2zMNTG5bQLt/gYkgm4pH +ncX1k5RNYWK71onKfQp4YoEpVhytDxrCtyfXP1XALcysmnoHbSjqZGwdWkvD +tkMu/9o1VeBk+o1+W3ca2kjRfC1c6XAiT4by8xUN9QYdJllUCuiUv34jSFPE +huifj/7MioB+287OriuKSPwW+qPTvxYu9i4+WjvEmd9RCY+c1Xig3yyOfWsH +HftrPD/qCv4ltHOYzrkpdHRePbJP13uOqF9ix2/9R8eKff+J1fF8JcIcEpXc +HBk4GmIr3PtngLjx09Gm5jkDdc/LsIVOdBMesfg9UYSJF/nOPW5rf09c0fg7 +JHWWieJZNfc9HzUQRoNF8c8/MJH+o7Rlq1glkW0ZNXiFQsKL/8qN/3iwYUBa +dq3KFxJe8jdNaq5mw+2NOSoFd8jIneBu2p7MBh3f79zhjiI47O3dxz/Jgotp +ye8Hg0gYqrTaPSqDDSvNTC4I6ZBxTW2+QmgVG95faNy5YZGM6Y7h1DhrNixu +sw9dMcXE7wMBS/Ka5YTN/g4Vv0YSHlTx9yx+wYZdEqMnhYPIuL50m9Wbx2x4 +vUecHHmchCtXtXOtv8sG/8B/922pZIwuyF4by+HHia/HJyZ+kjBM3smJyan/ +zb/krmnfJaFyGvcdg6dsiFl/y6pxLxmlmS+07nL09cdvOZdyFpiY5HXZ4cRQ +KTHFH6LzaIUQvj8m8kmSNQMZCRKfKwLWoeufsbT/Subgm2KdVqW6MK5ZsZrf +/gYLrBMfXqz8KozuLMYjTQM2fP9QcpCUQ8Lbxic9sZjjH/Vz2KaHyZhUuk0o +mBNrpLoepdFFcJdAeGOaMhtOeWStkZoQwU0xjEAFMgvM3d8e+ZkkinierFpw +Zxa07ILf3dsugVt673ipavXDwa6nIj9WSCJlYKFIxqYb8qtdbxx8JYmBJ3N0 ++yraIPPzYtWzC1I4t+3jqivsJmisb4w+oCeNAbcEtAXK6iC230dgnCWNGcr5 +KxVXV4LS17ETpDIZvPZGJCU/qQhmDg3+dbggizP2l+7n03IhL7T/fv16Tr8u +RZbXjnD0e9XR2FA/ClZoScg9nU+CaffW+987KDh0iL00cToezkV2Uj5skkOn +oBcpk0NRQF7rc3YkRg492FvnP9cHAw8zVGb8G6e/pc/u2JZ8EZz0fmnq7JbH +x7za0355XmDGmzd5L1ceZfJGrma4HYcY985f06s4+n2yTCAk2xnG1G93uB+n +4nGGT8D1LhsYP6PTEltPxWjGscZ2v73gL+Onu1WG40fzt338PWwEClv2+3Ff +VsCFXa3qhn0EyPXeE6z9pIAJSVTzK+bqoDp52TdHl4Ydaf70tusbYMrD8M+2 +2zTM8VnMc0mhgq5z5qzZLA0P2mx/8FleEu6XpZZd3a+Iy25+NCpVFwbL7LU9 +hbmKaDHdvo6yhg+8b/W6bRGi46Z8DTWrEi5gaEzHVZymY3b7A/U6v3lC5fQZ +klYzHd9/hcTev9OEuWCM65cNDPTMP7u8qGKEEJGL7tgQzkBzp9Q3eRf6iNNp +jOcLgwx8enxH/UDuB6I/0vHErD4T/3NwTfI+1kQ4B1j9nE1molb1dJocvZbI +sh72D4wRxvxnvJHVsyxQHC88LmVKQuH64t/uEWwQ4h56O7eSjMv/M/v1mtMf +h2IaV7+uJyNu4ik0DmaDrVZ0ccdVEbxZPnh3IZ8Fqq8GTc0oUvjWZaPinf9a +YBv3CapunxQm2fzHqyX2Ggob95xxSZRGnoiIlwnsaoheNn33mrUMxjy7b6sZ +WArC1ic3fxeXxdCgidj7tgWwKfcylHTIYnqxg1hvcRZY62aKVO2koIW1KUnr +WCqYuVYY4SMK5ipLeO+0TQQNTeUzNcvkcK9ThtaiahzsHGE0+hyUw7uXJLm1 +x65CrLWVvXGlHIocyPu2GB4I/NxOPeul5PHKnniRqee+YKvbJRh6SR51tMNa +GlpOwdxP8eWPejjxUTua6FZXqPyqPfJai4r+avE59TyO8PJhONfK21ScjU5R +jmmzgOLlqqIGs1RccdjMb/VFU2iH47bF5go4OrX1VdUbfVDc/r5zR44CltVt +uLIhSxtyLq7b3sZPw5a7EatOe6qA28Ur4xeP0zDkenIiO5sOYlTzq4r1NLxy +8bBUgwUFfmQ8suCRV0QJWsa1O1qisDi1+cC/y4pYXHip4pemAGzzjN+70K+I +nbMfCrV9eGBvgNvfGKTjgHJ3Z5/rXyJfgNelN5mOYQv1NTbZc4T+x+By2iId +I24eVvho9ZXgP7bJ7Lo9A0tuXAjS3jRIvEpW62YXMRCixZkhT7uJJ09fRccI +M1FjYtwnU6qVqA8LDzI+zcRTX5jSlyYaiPfqKV3XW5k4pSu9q9evkngJ2XPu +EiQMtxZVfXqcDUsnzESDP5Hw9YDIxDRnvte76QRG3CTjlyPK91alsqHx+8La +SzYi6LBVyqhxjgXR0S8Gmi9y/OTdlfIfH7JB4c654MNbybgv3TjKm8OXxWLr +2zzzZHycflKH4sCG0DjD171fmbiT1mBHiSknvB8s022uJSGpe/6MewVH71ud +Lf92gYy8am6dJ3I4flRHi+Z9hITx+/wp8xz/cPfdhqwn0mRUOv/qFS+n3sM1 +bs/qzJCQXGfZVcHhhf4QJlHjSZhy8ITuslw25LjUOkmYktGQtsKVm8MfZ0is +ujLPxIRHfadn1MuIfG2H3Z7PSTgbUtEbWcrR98eulpsLk/HcjszjDzn5a1tn +l38Z4fgZ6enGqBo2TCxJnXkJZOSqaK0495LDyxWPGPQWEmrRPB4Oc/yKk1r7 +rZVMMtaEr+tf4Ow3S9r2JeEvCQNeuORe4OQzT6jR7VpkYlhD2uTvmFLiWd3J +tA/cQli8tsqUNDMDvr/KXL5cXIenv85KuBfOgTvtocwPVWHsMNEXUothwcBa +1ZBnY8IYEaUhU7idDRcu7HbZ9piEx6JKHjoWseHlQZak1kEyBgqiyiWOn7nk +8H1SVkEE5X8VJo5sYkO5nUa0yagINpZM7tkqzoKH7/l5x++I4t3XfsIjKbNg +/eT02khCApn9LkdXWPfDpoa+wkluSTwv9PzLmGc3hAzc2RBbJ4kCGjPrqlva +4Ir3oH/mOSmstO3n8xVphqyoIuNgHWlcTLkp8by1Ds5LC39rm5FGboFA6lHV +SqhrqE1fUyKDfK7i40ulRRB9ql4l8pwsvg1aJiNslgvLdjKat4lS0It0LVFv +eQa0SBSVrz9PwciYZushmWRIStD7HfqBgudPyqyVvx4PWT/urjbfKIedxmH9 +zwWuQyM/4eAXLYfzuqP88oPBsO1wZqLjVzkUMOw3cGm8CKcMtQafm8pjM3fd +DrtmL/iSNXdDLUcek3VGYi9ePw6ZO722uK2kIo9VzjeP185w+Ynmai43Ksru +bd/WvWADtsV/1JTrOLwq79jTErcXziTHqeZLcfxJc/ZJHV5jSDI+dSrxkgJa +Fcxa/OYDkNoklKD9UQEJDS7BxtPqkN/164+eDg0Nho4615VuAAPG59zOWzR8 +GPnxi2MlFURtEjRe/6DhWPcH3oPmkvDX+Nai5D5FZJeP4OJeYVD3sctj5iji +93eOz99t5YONm4zdcwXomHzG4PJSKxe4HHO8ud+TjhmJ82Ste/PETJ9WZv4b +OrrXWc2MbvxBxJLt588oM7Cv2IT9q2eE2PLzfPyrMAa27g9c1pzeRwgUnuT1 +GWBg17Mn9r7vPhD/VNPLwrYz8WVV7dV/0U1EJsNU1DGJiQ8HRU0DDGsJJava +w8+ihNHxRc591jQL8h12eK3bSULLpqS/96+y4UHW+TZJHjJ6udo4VHHqfz5H +UK2whoxG4s8Xjody1llk3fchIphxOqLGtpgFK8dExvylpbDjX4hXoux7ELtj +PrDpkxRSHg4x1NVfQ3ysrlLULWlU9PWQtOWrAV+M9PW1kEGdj7pPplNLIVvV ++PioqCwKFiiz35wugLflh32G22TR+dUd+9quLHj834/tmsYUzE+WfNsXmAry +1bxn2jMoKPTyBc3qQiKMHEpssueSw9LJB16DJnFwYdf0sxlHOdQL3Jn3mD8c +DCxldvRVyOHaxuCDFSmBoK972TJaQh5fUg6dj+v1Bbcd68u4/eWxbpPl3fCl +UxCS4PSE+CSPb5oeKI7td4WOhi6p7ZpU9Gt2W1ms6gi265mad25RUfVA6Mzs +tAUoGs9d7P9BxRQzR1fxNFNofBm0R2U3R+/kRy+7Nq4P920nmz49UcCQXbtH +1Vq0Iasl9PVOPhrK3HoXGHRNBcaO/jm51o2GN76/L45/T4dTn0d1qmppOCyz +O2HoJAWa7t1ODKAo4q6I45/0HETB3p96/2aAIuquFunScRUAae0BBc/Pihh9 +dc+kTwIP8K/vWFoDHP2j7vZffNxf4jucc/VKomOD0plg6us5gtvQdPf9P3S8 ++Uxksj7gK2HmvtAna8fA9jf3P8rvHCQGzsjcji5koGSPZXtkezexs4pvgH8d +E0sdN/27otFKjGx639p3iomM+GV/zPheEeSBW79+tzAx51ysLDO7kthZrPPX +eT0JD12d5w86xobr64YlcrpI+FErapcvh0/2YUGPfGLJqMmlYxvP4Y9AVuDN +c5YiKNY6EXVnngViPGZfq8+T0KRn5OFZDr+egUD4NRWOX+lY4hvk8OnGh+SX +M3NkzOz+GP/JieOndXUnjCaYyDO9Kuh6RTmx3CgR2FUkfHkxeL6S4y/WnC0f +7DpHxoAZ0bZcDl9c8l9vPH6IhNaaydUHbrGB6V2X80GCjDlMJ3kdTr2Lft44 +f2SKhLvOnoi8wOHTW5vWdLE4ErbaM952ZLNBd7XdkR07yejCpSaSzeFT5tfr +A1NsJt7N6LaTOlRGwMDcvsQiEv76PchT+5zzPwGZqnOCZBSkf35Ywsm/71w4 +L+8QCbWFTmZu5vDmXEahz/g2MipfPqfKzbmfxmy9jXubSTjBvXd0D4dPU5/c +7m5W5NzXcVbmTs55evU/DFf9JqHUz9wYK06+m/jcYftfJoa8VdwlWFZKXDlg +2viGj4wipWUubzjrnvXF6+z7SKhoZJB/iHN/q+kJaUEUMqZUV4u2cvItxHBN +rWORMDu6SWaeExvXzBTTRMjY5L/6Rxjn+61KB/4Vj3P8pKvy0hDnvK1RunGf +lcnYanQ9L40TV/7M6PFYImF+sPazRM5+/u/NEieXmLhZpadN8Vgp8T9FqcoQ + + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1nfczXUUB/BHSCihMrJn9sreK7tBVEJFRkaUkT2yS/bWNMtuKKMkUrZS +tmjIpuw9ep9Xf7yf8/2ce+597u937n29bo5WXRp1TpSQkFD3roSEqHv8eZWU +fCa/yKN4OCExe/XjCffyufwSJUnCPr0u3McXcktKxfM8ebpeGQ7Ko0jKfvk1 +UrFMbkV+s2vkFiSmdLy23gznshyK9yNvcm7HO3Jh+XvnliSL58hb1Q7c7fED +6uvcTzmP/aR+qV/ceYNzGyo5/6q+rF/A+Tvn6uoLagV1h1pLTaKWUreoNdX2 +ahV1l1pHLRPXpr4rV1PLqeXVn9XH1N/jfqmb5RrqK2pldadaWx3t8SLqerkV +FZ1/Ue+J++e8Te0Y12nuN7UrqflKLuHxjc5taS0XlNc6v0jSuH96d+u9F++J +P+QxFNX7Ia6d5PG/9A6q3UjDcrkNhcytk1+K+xr3Ui+Z3vtxj/hTHktyDsnd +ScsKuS3lScHvej14gJVyOyqQknu5j1Tczx9m3uBBVsmvUJHU/KnXk4f4Wm5P +JdLwl14v0vGN3IHK3OP9fhD3lb/kcaTlsNyb9KyWO1IlrsX8h/H54LA8ngf4 +W+5DBr6VO1E1rs/8R7FT/pYn8CBH5L5kZI38KtXims3PjM8QR+SJPMRRuR8P +853cmepxf8zP0qvKUXkS6Tgm9ycTa+Uu1Ih7aX52fBY5Jk8mPcflAWRmnfwa +NeO+m58Tn32Oy1PIwAl5IFn4Xn6dx2JH5ufGZ5kT8lQyclIeRFbWy12pFXsz +Py++O5yUp/Ewp+Q3ycYPcjdqxy7NfxzfHU7J08nEaXkw2flR7k6d2KX5T+K7 +yml5Bpk5Iw8hBxvkHtSNXZqfH989zsjvkoV/5KHkZKP8BvVil+YXxHedf+T3 +yMq/8jBysUnuSf3YpfmFenX5V36fbJyVh5ObzXIvGsQuzS/Sq8dZ+QOyc04e +QR62yL15PHZpfrFefc7JH5KD8/JI8rJV7sMTsUvzS/QacF7+iJxckN/iEbbJ +fXkydml+qd7jXJBnkouL8tvkY7vcj6dil+Y/1XuCi/IscnNJHkV+fpL70zB2 +af4zvSe5JM8mD5fldyjAz/IAGsUuzX+u9xSX5Tnk5Yo8moLskAfydOzS/Bd6 +Dbkiz+URrspjKMQv8iAaxy7NL9NrxFV5Hvm4Jo+lML/Kb9Ikdmn+S72nuSZ/ +TH6uy+Mowk55MM/ELs1/pdeY6/InFOCGPJ6i7JKH8Gzs0vxyvSbckOdTkJvy +BIqxWx7Kc7FL8yv0nuGmvIBC3JInUpw98jCaxi7Nr9R7llvyQgpzW55ECfbK +w3k+dml+ld5z3JYXUYQ78mQeZZ88gmaxS/Nf6zXljryYosQPiil6JdkvjqR5 +7FL/G73niR8kS5RicdSfKpfigPwWLWKX+qv1mpGIpXrF4+X1p8ml+U1+mxdi +l/rf6jXnLj6N19f70bk1KSgrb1c7UdV5d6L/fx+VMPsfqu4NLw== + "], 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]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + 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, 13}, {0., 1.2977994856441957`}}, + "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:eJwVl3k41N8XxyUVKtsM2Q1jzAxtyM7nnEQKabELpSgVKaG0iCwhWUqSKLKk +LJElS7KXKCFLIV87JfuklPSb3z+fz/N6zn3uPed9lvtc2SMeB1w4OTg4drM/ +///7XDZfx8EhgGST4dJ1kzPwvPZU6kdOASxaX2lCmpmBSd4g7cerBPDDceHP +EvMz4Hyv0NVsrQBWy6zsVVmcgf3FwvWJIgLI7/pe68KqWdg403VFa5MAmmec +nHOQnoWBo/bTnnYCqPph7L7//lkwNXFpGykUQMOHfItOL2dhl43td05fQUz+ +flmy+9kc+Pwsdf7vkiCe+Tor7lYwB+lx4l/K/QTR5fdo6t/iOeDs6HnvFSSI +5FVmWjKv5qBiv+Oz0ShBHB0/ln3w3RyomBz1bMwQxNNp5zwKxudAknD/FdMu +iP/iFEefUuZhmhrAJbtVCNe56L/liZgHN9oj6WkVIWw31hdQjZqHbwq1mhVq +bPuqtbx2t+ZhlLnK3VZHCHMdAxaS4+ehb0tYR8xOIdRo39wpmD4PzToxGZwO +QjiXlF59oWIess1Tdg2HCeEOoWvHqN/nQdGy5sjzCCF0eJn9YH5qHjKthi77 +Rwlh3nPu8KrZeUizpeVL3hHC78lCdvt+zsP9Q0/ELJOFkPHg3t+dnCwIP5X/ +rb5YCHXbdxuEbWDBicDqiMdDQnij1iSICSzoX68S9HxUCMMi1KULtrPAKv7R +pYqvQug2z3isYcCCHTmBJz9OC+EevyoH5d0skOoy3PXvjxAe/N6zY/QAC1oV +G1dak0lo/9ZOdY8LC3YVaf9x2kDCw9cXeAOOs+AVZM25iZMw1EpE5dkJFmRZ +RAxco5Dw0r8yo9/uLAj2M6vM3UjCI4VjV419WKDV1nZxtSEJFe+EFjYGsyDP +foen4C4SWjQm/nlwnQUKYwUnJE1IKFRX9MstjAWkpVgblf0k5DzwaPpHBAsm +adbqjg4kdJZf8b7sNguc895sOnGYhFYaSVUH77CgW1uT5nWUhLH7L1MW4ljw +Zq8YOfwECVevaePYkMCCFN+e2SJvErYOZ+ziTmaBKJfp16oLJDTuHn50LoUF +kZEv+5susfdPWC336RELLqUmfRgIIGGw4lq3iHQWWL4/lLM+koSjehv0Up6y +4J11S5poDAlb7Bjv2rNYoD+IidRYEiYfOqmzIocFW37K3tBKIKFSKuc9g2cs +4JEddnXJIGE9u0+8Clhw8eIeZ90nJDweUfzIoZAF3z8WHyJlk/Cu0SkPLGJB +c0iYVXU+Cd8LzWfMFbMA+uf2xxeS8OevAa6aF2z9tOz3eLwg4WxQeU94CQtu +fd9sIFVBworEjm7uMhas3BkPrEoSvroUuFDBZq+HK3SaakhI6lo461bOAusD +7cq+DSQ8pHzZo+glCxqy9DbtayLhOOe+kb0VLNBe9ZhBbyahJs390RCbJUt8 +ZTo+knAu0a974RULbgoOiWd3kvCTZsRun0oWLJ80FQn8TMI3/cLjU2z2qCsS +tOslocJOg7zDVex6lJJZr/wfCa9cNklsYvP+86Hc3IMk1BI4lbGlmgU1LbMr +/xsm4Q6pqYYINm9TPPivaIytv4vS8iCb0wPrfkd8Y9uPB6NKDQtEvmxaODpJ +wt3nToZfZHOo+t1Z7RkSkmstOsvZvBjFMSk4T8KsyEbpBTaf/HpifPwHCUPk +HB2ZtSzo0f84VPmLhJI/cqIs2WyaqPtf3B8S+r10zrnI5oof6d3uyyTMC9R6 +Hs/mzXv5Ow1WkPG/yun4Z2x+mHmhVYKLjJ4u1vaVbBbgHHw3t5qMK/+a/nzD +5msHTRre8pBRuKTU+S2b5wsLa5PXkbE8+PbDWjY780lXnucnIz/9y6NiNnce +v15mJkTG8zsyTjxis1H1TBFNmIyNl9dOh7C5RNwuf2kDGe0D1Tc7s5npVZv9 +UZyM2UxHOW02J7zfmPlUioyKF16/5mbzWnpcagCFjMlVVSIt7Pgv+/97YEMl +Y2R+1vpoNk9+dk3YokBGjRPzGbvY7Kjadmc1k4zVoYJ9i2y9WyJ0Yr4okbFl +583cVDZvH02LKNxMRoNrf0g72fwc+EJvKJMxrX2ZZ4CdT/l75wOPbCPj/jSj +CC82rzY1viigTcZ1NXnywex6OJ9e4D2mS0alq+dVONk8vix59hWQkaO8pfw8 +u54a86ePuxmSsT9XTtmUXW86a22P7thFRmcOVeEsdn1mO9c4ipuQ0ZC2yoWT +zVEb7lg27COjFPOlZgK7vi2uaO+Qtydj7xDsPs3uj1eH5iU0D5HRnx+Vr7D7 +h6GfzTI5QsbEEl2BQHZ//VktnXHOlYxbr6o9Osfux0fRK3hqvcj4IGw+dSyX +BevOlQ10niej34xIaw67n30sz5V9u0hGblXXjpPZLNgtPnJKKICMG0p0Ld8+ +YcFMakOz0022v69YrRvSWGAXEvDYO5qtL4e2TSx7ntS5avuH3WbXz1Gl+2vY +8+bupmzl/Htk5IxzM2lLYgHxIiqWI4OMOzmfcP9iz6+IRiu7h6/IuM0h8NM1 +9nxcyOZXLahm28VeLJ5gz8/DUQ1r39SRETdzFRgFskDVQrtiqpGMM3s7xkb9 +2PPwixSF6CJjZ2HxtkJvdvyzwyO902S8kO/kG+bEnhcfk17NzJExo+tT7GdH +FiwVWd3lWiDjk7RT2hR7Fny42LBr4xI7vw6h1Bgrdvxc2VmXuIVxPoVxZoUJ +O54N586Kywpjx41t5pIqLLhi/31CRl4Y5X4WxA9vZoF6issxGl0Yd/OFNqQq +sSBT0ebg1k3CmD1u+n01jR2fnp7hTi1hlB9vcTvMvr8sj64R89wvjF4T23qd +fs8DX6b/7fMWwijaMh5xb2EeGr4vrr9iLYz22yR3NszNg7bPd85QB2Ec8vLq +5Z2YB+mw1u9JJ4QxODprVL6HfT/n3q96GyCMpet+Up+VzsPDebLOhyBhTD8T +Vm1TNA82mpFF7deF8XbZQMJi3jw0Vvs//e+mMB71DROQzZyH3HaX2B/3hPFi +Ta7vmrh58Pm9xVX2uTC23lcVVj8zD2t21vH7Dgpjuxas05OehzJb9UjjEWFs +KJ7Yu01sHk67Z66THBfGzVEMf3nyPHTGRvBUTgpjr2BH2TQP+34fsli5alEY +FR0vK6n8mAP9gJGFaH4R/ED9VHqqcQ78Xq7uy9QVwZR/YZu6Pebgh8ru7E9x +IljgNRIjkDkLjz7wco/dE8GEN75Cw8mzYOb27uiPRBHEC2SV/HuzkJG+V0Io +VQRlS5/4aN6YBRtRq3CTZyLY+7tbecl9Fsr+HnF99Ya9/5/T551UZuFqw2X5 +tF8iqDl82muyeAZ4HPMSPew2oGFlxavvR6ahwcjkxhpBUaQVR48SeybArn75 +65o6UZTJWbe7bOsYCAXEJkKIGIbcfty2ODQIXn8c9lzQEUc3I+3Er+f6wOrp +mfXhhDgy+5yPrbLqA03bwPf3t4vj1p57niqafbBUnLmn0kgcTc39A6qWvkCw +5/ye1Rbi+NDqVHVOyBeI+xpqFusmjmn6vGc7k3qhpKtgb16SOK46XeWQ9rkb +lgp4Doz/E8dHbenG1aFdsLm+t2CCUwIvCLz4b9SjCw51PhOeXiWBlP7FQmnr +Lqj5Zfn5x1oJpP+kK9TTuiBU79HhlaISGES5tnOythNIb7Q9pLdK4KXO41uz +VnaCYvepCIvDEvgQrT/1RreDNUfz66oqCVy4oG9TMNAKQf33NkbXSiCf+oxg +VXMr5FW53Dr0WgL9T2Xr9Ja3AnfAX4flJgkcfhbZrB/XCiUrNv3Q6ZJAZuV+ +3waTVhBdGUF9MSmB0QNu3/NLW6B7lbF/jrgkNlKq7Iu2f4DVo8Kjl6Uksf1f +kGe8zAdQeT1gYkqRxHfOmxTu/W2G8BDfDRM0SbRcYmrOlzaDzponuQxlSdQ4 +P1bCva0ZErm5v6QaSeKNfAef3E3vwWHta60EL0l8bOeyGK7eBNe8Bi5nnJfE +Cps+Hh/hJsj4slT5/KIkzul+WnON1Qgzz1R3NvlLokIQX9DS80a4ZpFyYClC +Eou3UK/6KjdCZtLlU47pkjgY98Y4cNtbmN+imiTXKYke6w607jvwBkTvmfVv +/iyJlEeDDDW1N6DLeZKq0yuJidZ/uTVF30BIe/IT80FJPH9RU+he32sQ9eUr +DpqSRF+jVUKv3V4DUfO1eXS1FN6b4pssjayHMItkjiwNKWwtiLO8MF4LmRGF +RoHaUriUfFv8RUstNNQ1RB7Uk0K/O3xafKW1sFptVnLdDincEPJUb1V4LQQJ +62u5m0nh8Y6la+RNteDXOXR2i4sUGlntHsg8XwNeNvShgltSOBKQ9niLdDXE +RusoRtyRQgUfdwkbnmooaNh71jleCrnCwl7FsapgTvPCP/IDKZTttN1j1VQF +HmJvJXyeSKGO6uzjXt8qONl90kKzSgp/zIlaThVVwmH73PqXk1LImHxs1GFb +ARekhL61zkghJ58/9ZhKBUT3efONzUthulLeaoW1FVB1WM9a8LcUxq1dpa5S +8RIoLu/GXVZLY+/blKvnqS/hP/dva/llpFFzG10u+lcZOF5VOOC0TxrbWkaK +PtSWgA+G+/iYS6P2J52nUyklELliKuGGlTRGPX9go+FfAq8Ci4aK7KXR1IAg +DPVKQDrUwJv3hDRKrPqVZVb6Ar5EH4kvCJDG/dsNjFklxWD/6EHfqgJpXCh1 +vXWmoxBq62vS1hVLI4+L2NhySSEofh09SSqVxhtvhZPzEgthccuWn5RKaWQc +jM2+4lwIcRWV/LpN0uh5fVC17EcBtHzqR88haSw8TRxLki4AA35qah9JBqk/ +pszJYfmQpWJ0YkREBvnzlVhvz+SDkNWpLd/FZDA4YDz6gU0+DCQWlC/KyOC8 +P7dWGiMf/BQN2skbZVA6UPWeVGMelBi6rDIxYLOW/e0soTzYePnx8RdeMris +PH3jkWcORJ6uUw4/L4PvAlZIC5nmwMzhgT/2F2Vwxu7KgzxaDhQaSkRz+sug +8tFHqb6fs0GXP6pkzw0ZdE3xs1TfkQ0mj3x4hlNk0DS2OHyLTBacbDDMEvgg +g+khywltPzPhXdkR76FWGXR6fc+upjMTNudcheJ2GUwrshftKcqEuZjSjwe7 +ZTBHVLM7xCsTLh7ctJQxIoM9PnG3auYfQ9gUeY/ekgzuWFOllLaYARa8nj8L +yRR8KoE2g7LpsGIXo0lXhIKepBvxeivTITe470HdBgrWL4eX1QynAc8Kk53t +4hTkZf7XsTszDV79pN6Zp1Aw7Pu+dkPlNGCMdKiobKLgivNHxxuMU2GpUuv0 +M0MKHlOotkpPSIEnf6e3axhRMC9J4l2vfwpY6WQIV+6ioLmVCUnzeArkFwtV +NJtQ0Ct3xMl2Wwocy5lYO7WfgpZdAcL6LcnQkpD0ZKMjBSu7EiSD+ZIhzXvF +yBMfCl6e2frK2CgJmsULyzZcoGB4VJPVoHQSLFYeiw72pWC5prjss4VEMON9 +p+N0mYLnVvy3aywjERYfxN0SvUbBbsXhkUYetr1BCa/fpOCshrka43MC/BS3 +uu+cxo5PX8c7KjEe5Kq4z7alU1Dg1Uua5cV4MHUp34mPKZijJO61yyYeHj2j +zEk8Zev17jT3CzLbbjCx6+MzCpL/LE7lRN2FZHf/he3lFKSqGXu33YwD46qn ++2XaKBhaPxbn/yQWEuP0fgV/pOCFU9Lr5W7GwpRby4Pv7RQcPMxaHj8TC7fF +FiZKuygod+DH/VHNWOj13B5i8YWCn2k5Bfcbb8Np2qeysHEKtvcq1tSzbsGt +8FXyrGW2vqfXlI0eiYHhw/GNdhyyWDLx0HPAOAbUNZTOVq+QxX2O6ZpLKjHQ +M7TvVSSXLMbmZpjErIwBeb1EGyavLN44Y7JZLSMaiqdVbjoKy+KF5wMcgYNR +0G1xeKFBSRY7lyY86rRvQuZ0wlqzTbLYYRTS94LvJpwP76B83CyLjgEvkycG +I4BcZWzyRVkWPRTvlgtFRICZklryrIYseh9rT7McuAE1K3iNxQ1kkXZr7OqR +u+GQlVuQdMpeFrVy9W33bQmFi7unns84yKKe/67cJ7yhsGuY0eB9SBYTrkhw +ao1eh1GxB3NXj8iiwXSGz6+k60AJDjWKdZXF/FP69nP81yH2oMPsSy9ZTG8e +fhDzNxguc68x5Lspi7af9QJv/g2EBl7C3jdSFhd0RnjlBgKBvN773HCULLqz +ti18qQuEbMGhlLJbspj73FuhKSIQesQrl4/Fy+KxY3r63tKBoL3pfEllqixm +PLbt69l1DX7tH1M6WyaLK3PGqfdL/MHAQnpHb7ksrm8IPFSe7A/RVpZ2RhWy +KHww99tSqD8wDtaGSlXJooh3he6QrT9YOz8ceVsvi6zZ5imP3+xe97F+KNcq +i6PXnni9uO0HXvffCLWPyaLfzcy9zfOXQPdIRrzDV1nkM+wzcG64BFzMYOmx +b2w9pM7t0E26BLHF+oq/J2VRICruU57RJShqrdhOYcliuIHuUMrDi7CwpvCM +G4ccBihe3rr/oC/4eiU3c4nJocrFqhK3fz6gr3PVIlJcDl9RDl+I6fEBXk7H +7g2Scnhtb6zw5AsfSIiSGFWUkcMym62pRmd9oOxp3N99NDn8OnZdL2DUG5b6 +IzYmKcth5vpL56q7vcBvj2+4mrEcNlznO+887gmnDTUHXpjIYRNn7Q7bJk9w +1Pupob1HDp9wa0355nqC3ibvEWKfHK68W9Ct5+0JS+vO4i4rOVz3L0fsLZcn +XHrnumB3RA7zC/tiipXOwgUTmyP+F+Xw5vSOvbGbPcB1x4ZSzstyWLvZIiF0 ++TTY6HTyB1+RQ22tkOb65tOgoWRREeYvh1u6a/XFzpyGBd59ordD5PBes9Uz +0WJ38G40ak6/JYdhAp0bpfe6geduDe2mp3LYeFrRIOT5Cfgvc+6WarYcJmkP +R1+6eQJMuXMn7ufIoXTu8PV01xOg8EY+yS1PDr9xz++NkzkBPQZCHHzFcpjV +Y2w/FOUKBjhZv69aDjV0XupP+h6HDRqp+zu75DDma4bj4FkXCIpzfEp8lsO3 +jQ8VRg+4wNwPsZWPu9n+H7OliWxzgXeF0YXnv8hhp1T/h8UFZ/BX8dsgNiSH +huXazLd+zvBtk+2Xg1Ny6HSi46J53FF4Kc9/YoCLihz9ax0Dh5wgY5fnVtfV +VOSyzP7m/sYJotw6fk6toaL2RClfUJYTHCm8H7LES0WT41EkFS8n4DZgpG0Q +ZNt7ygdvrnEC86Pb/9sjRcWe6OXj69QPw7eUc5Zlauz1Z7ttJw87QHt9p+R2 +DSr6NrmuLlJxgIqvWsNvNKl4WTU2u47LAaKVOc516FDxkLP4prIn9qBeHRE9 +s52KklpbROYWDkJAf3qTghkVDUrOmWs+sANRmU/bbx9j+zt1u9xCygauPtVY +y+FKRZl9bbpdi9Ywqna33e0EFU8wvP1udlpDganV8Z1uVNxBKRWLjbYGs4vt +EYtnqej6/nnGijXWENTR0nXoChWt1D9Jyfy1hNkbb903xlJxk7DD16vrLMBm +A1Pj3h0qqhwMnpmdModXj0I5Vt+l4mxkslJUqzlElBrd/u8eFQe3ZxgY3zUH +xlh9ya2HVJyY6jF8KW8Ojvo1Kxefsu0IlXZGB6DxV9m9+moqbggyv/T9yT6w +KfqtqlTL9resfW9zzD4YO6vdHF1HxUjG8YY2333ANVHKaf+GiiWdZgP6xvuA ++FJyau4dW8+xpVqvz3shv7pYT+YTFdW5+eZLPcwgPvz5wIUpKgrXmxs7NZmA +gtHcpb5pKiabOriIpZpA0UoVEYNZKq46Yuq79pIJtF3ON+ZnUfGYk5h+opIJ +rPPIK0hfpOLBCWO341HGcNU8N7iNSx7PGczrOjrthmOST5kbJeRR4ogpX9FG +IzibFKOSJymP+5qyTmlzG8FlaV+dbdLs9Xm6n34N7YQYyq49urLyeH9+9IpM +4k52/Y2eMaXLo9H5w2d5+XeC0Ca5EjdVebS/+stm3T8DqNBL2JljIo+tJ3eq +B6/aAQ2vAvYq75HHxbzIFTfG9KENTtgUmcnjyOS215Vv9WF8u+bJiv3yeHKR +KVoUqQ9COztvvreWR7nU6eXX4vrgaibUMXlUHp3qq8FYZzuQD4Uf3XxZHiPn +HeqmNAASjU6fjr8ij5b5s+a/eADktx7w5bzKPm93i5phLwHbVohHdQbI41BO +2onHAQRYpD4p87suj+6vXnAEftCDO2MNgh9uyeM/dwu6wXldEDmzpsrjiTwe +Nm5wOsfSggc2E42fn8pj0O49I6rNWqCw/UPHjmx5LK3deG1jphaoC92d2PBM +HrcyM6vr7LXAqlBhQ1WhPPIZjASFNmjC3V+GpwWq5FEh+BCH6FMNEA0Ikszv +lMeV8uUFBrfVQHKzQJzWJ3kk1Dn4G86ogWzPff6az/IYl0g1u2amBopqBZwf +e9n5ibGTSuBVA52vA+OsQXncpnby0Z7gbeC4H4o0p+VxVmhE4FKQKqTK/t5T +tYaG9wifpcrHypDZHPxmFw8Npe+89w+4oQzZlwS3t/LSsDkhbM0ZD2Uo7GBs +G1xPw9bDzv/aNJThdZi1OBeZhuG/3ccyG7fC+GzhqBGFvf589Le8mS2wucbj +6gdNGlY3lf/6MbQR8jp//tbTpqHB4DGn2pKNoDJx1Sdbh4btqZfprTc3gho5 +2j2MoKFHTI9ZtuZG0D2Wd3CHAQ2XzWIqrGKUYDfvrMaLvTRsU4zzVjJTBOcD +njMPjtGwj3bP4OQ8HUaP/T613pWGt75/KIr9QAfXS9fGLp2gYdDNpHhWFh1O +pd3qs3GjobUkzcfchQ6eC8/fCXnSMHKlK0dwtwJcTZjPDLlCQ8m63QZezTRI +GPRyOh1Lw/F4s+KAbioYML7kdNyh4aPwT/85VFBh0t3wt+5dGmZ7L+U6J1MB +F4Vvr02g4c+mz4azx6gwwv+iLvMhDf91zTz890MOtuot0oee0vCukqDPSwk5 +qL97Zcq6moYpdvQ4ahAFTn8Z0a6soeGQ9J64wVMUEKWaXVeoo+G1S0ck680p +cDJXmvLjNQ31Buwn5qkUEKiv3H/rHQ2Hfft+jtyQAbu5FUXvumg4spSlEEeR +hhnTkEvbp2h48sPv1QoXJUDEOk79zTQNR7s+ch8ykwAdp4xZ01kaHrLe/vCL +nASEeL8+bsOioe6K6tYn78RB6sFqC4/fNNy68chJT6o4GE+HbExarYBir8qv +HP8iCmkx17/8klbAjOAtKhL+ItB4/268H0UBd4ed+KxnLwLT6Y/NueQUUJyW +fuOepghol715y09TwPrIH49/zwpD6+CaYgUlBXyo2rxse1wYllVDIy00FNDa +RXkY7clg0xkKeXsVUHWH3aKrmxD8MbqzJLFfAVllw7i0TwgelKaUXj+ggCtu +f9pZoiYEw4llqocsFbClaCLxyT9BOHP0O53voAL2F2ZMnrwjCKEzewXcjing +rV01UmoNAvCCd8MA/Qr7PPn2xOpbfGB3mfrgtp8C6qwV7tR24YOlyS0H/11V +wKKCK+U/NfhAv3VXR+c1BSR+CfzW7lsPzXcvvg0OVUDdKwFnezeth1H5vvyh +2wo4Fizkp/55LYhA+rWHTxWwOz5gf4UDD6h52+YysxXw+3uHF++38YBF1vru +ghwFNJ9qE6Ss44HbG3yUG/IUMLaN+Te0nBsEZnb2zxQrYG5RH3FYiht4U8b1 +9GsV8EPLsw1N31fDMufGxeEeBXzy+cK68RdcIKXVL+/xRQEjr++d8I7jAl2P +2H2LfQrYMfuxQMubCy71LD1eP8jWOyLusZMqF/wqeG+lPq6AU/18VcznK2HO +2aPwOoudz6lrKftLOWH09XMPxfV0vOO2w7BtggM2bTZyy+GjY9JZg6vLLRzg +dafHdasAHTfnqataFnMApzPXEXUSHbt2f1nyD+AAqRVWFvpidEyMLvrcKMYB +FjqLmnY0Ojrwp0Jf6jJR+ww4w/Xo2Fs70Har4g/Bu6F9eR2w91Nz/Rsb84fY +5+f6Jwrp2K/U1dHr8ofoM41h3dlBx75qj086/H+I318HR1N209GxwlpfyeU3 +oSIf0lRqSUfzsJEaT6lFIjn+XexXdzqqVb0s6Hu5QDgfd7h9wIOO6fELZM37 +CwRDfSqm/Awds9oeqtX6LhD5H/mjbp6jIxUWo9w1FogaPvMwZV869sjYlvMW +/SCGgz5f8Q1i288l9zBKWQTj7Ogxnvt0vJ8zkCg6NEd8h/Munol0rFc8G0h9 +M0fk8XE79yTRMWSxrto6a47QymY65STT0Wnt8H4drznCeMzt4P4MOqYYlzLG +18wRbg7ze+/l0/HZixSRdPVZIm83hxazge2//uzq7YeniZlezYy8t3R0q7Wc +Gdk0TSifOUvSbKLjh68Q3/NningeNzi5s5mOuss7ZF7ETxGFQ3WPnNvpeMLa +TFS2c5IouRK2LrmfjhuluCrMD30nqvOF+kUW6Xi3YF/l/OOvBKehyZ4Hv+l4 ++7nwRJ3fV0L/U2AZbYmOYbePyH+y/ErULbNit/2jY/n+v6K1XF+J1yZduw+s +YuAlen/yQ5dxonHkfsFNQQbGuV/+K6Y6RrSJ0a5zKTJwf9zfFad+DxPRZLuF +s0oM7C0yZv3sHibM+KNc/tvIQI+8cysLy4eJRq7FHWVbGOgFtY4lV4aJ6ul3 +HGfUGChZoOD+beUwkVfvdbEHGfhVKsumRHSIiDxb5/7cmoEmFmZ6qkcGCFO3 +xV4ZWwa2vX3wSW7XAMF7fLPpTTsGFt+6GKC1eYAIsY9XdHVg4EiQjVDP737i +ipHbmNRRBmb0mw6M3+kn3KTITmGnGRh1KCnlT/p/hPHboxaHg9n+eV07R/vQ +S2z9cSH2dQgDWw74r2hK6yWEZSPbN4Yy0Mwx5W3uxV6i/0KJxWI4Awczz93f +Qu8lfBjrLW9Fs/U5eN11XWAP8eh6sWXdfQYKprw/PWLYTfwx5LFmPGfz1wmo +/9FF9J+VvhtZwECJbou28LYu4nWSaherkIEQKcYMetZF3PrhYF39goE6F6RZ +Aie7CEb6c2u7CgaentrUFD7QSVhw2dtENDCwYONGncrPHUR2Ta7tTB8DxZd9 +7hOTHwm+glPc3v0M7Hz+1M7n/UfiTCrjxeIAA5+d2FHXn/ORUA16RF45wkAt +3n0Wph4fiTLDuA/CEwxUF/Mp8Ga1EW8brhjq/GRg+f3LLu/XtBGjzabKIfxM +XG+7fXXYvhZiVyVPP68gE0scNv+7pt5CPH32OjJKiInq42PeGZIthHs0fo8X +ZuIlnvNPWts+EKz92x5nSTBxcFjfPZPnA7GyQ0Kqlc5ENVvrVImQ9wSl5xu3 +JDKxKupdWn1xI/FPJa00ZDsTX1XWXP8X2Uj0hTucnNVn4l97l0Sv441EonZL +02tDJrZycf/hE2skxBKKIs+aMNHv18N1f/zeEkK2/uQ3VkxsOPJD/JhlA7Gq +S5ji6c7ENp+YhT2Kr4nhzR9aek8zkRG74rcpz2uiLiQ0wOgME0//x5S6Ml5P +XFP/Myh5jolimdUPPB7XE8t3+tPfXGBiT19g1h16PfHLIktJKogd76ePiplb +64hvbajRkMDE39w8xeuda4gMhomIQyITHw2ImPgZ1hBOfpY/ZpOYqFk1lSpL +ryE+MU8WSKQw8Zq/y75/36qJ1/63t3g8ZmLl5Xy/9d7VRMrmUbpIIRN/DNps +33yrirAJvyHq/J6Jt2aqj7/trSDI/Xd+/mpmYvb5aBlmVgXxQS2582YLEyd1 +pHb3+FYQOwcKY198ZCJ9uqR5m2gFoarZJ7C2m4m0d6aDOTYvCb7RrTzPR5l4 +ZdPMnMF4GdGoozO+c5zJfn+tCbhZXkYExxi+6fnKxF20eltKVBmxpGsXvGqS +id/7/ZblNMqIb7cDV9jOs/OferchMryUyPh6s3+SxcSE9C5bycOlhBPEV15b +YGLc494zM2qlxKdv2VeyF5mY6HnV/uRgCXEbX9hv/8PEoHcKu/lLSwizuGqd +ziUmhtSnTvyKKiF4vzeJn1pm4hbl7laF4yVE/fbOxX//mBi481R4PFFC/A9c +W8oQ + "]]}, "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->{5.000000000000011, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{5, 9.5}, {0., 0.9557848702249098}}, + 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.9920816631567097`*^9, 3.992081757001564*^9}, 3.9920817953133717`*^9}, + CellLabel-> + "Out[253]=",ExpressionUUID->"2f38399e-258a-c842-8d2a-fdf8a5162033"] +}, Open ]] +}, +WindowSize->{1440, 741.75}, +WindowMargins->{{-6, Automatic}, {Automatic, -6}}, +CellContext->Notebook, +Magnification:>1.1 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (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, 88, "Input",ExpressionUUID->"ffae8b70-aa14-974a-9de2-11aa9ba7fa35"], +Cell[1731, 58, 1490, 46, 106, "Output",ExpressionUUID->"24af5da4-8e1a-d94b-9dd7-dbdef062e25f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3258, 109, 720, 20, 67, "Input",ExpressionUUID->"583e80ed-08b1-3540-acb6-5c5ddc81ef63"], +Cell[3981, 131, 885, 25, 78, "Output",ExpressionUUID->"79c67680-8b75-ba45-a1b7-0a597bc79b16"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4903, 161, 1465, 41, 77, "Input",ExpressionUUID->"0d592b07-0bde-dd44-8769-c843b2d15343"], +Cell[6371, 204, 2583, 75, 161, "Output",ExpressionUUID->"5342021b-1033-7b41-8e78-c88b29b165c1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8991, 284, 1680, 48, 78, "Input",ExpressionUUID->"2ab4cb2f-3eb0-8f4d-b0e5-c0b0154d2f35"], +Cell[10674, 334, 2782, 81, 161, "Output",ExpressionUUID->"43760380-085a-3046-9f60-d6c350908cb9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13493, 420, 1843, 53, 258, "Input",ExpressionUUID->"80075296-619a-5348-a91f-42a62b35265a"], +Cell[15339, 475, 3752, 111, 236, "Output",ExpressionUUID->"29aa7138-9299-404a-8f91-97c3b5d013cb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19128, 591, 2080, 59, 258, "Input",ExpressionUUID->"7e5ea904-38c2-8f45-b173-9fdd0d01cd3b"], +Cell[21211, 652, 4821, 140, 186, "Output",ExpressionUUID->"a88d600e-3c08-1d45-a15d-6de34fb244cc"] +}, Open ]], +Cell[26047, 795, 153, 3, 31, "Input",ExpressionUUID->"76dcb41c-d560-6240-8a0d-5f5c4dea74f7"], +Cell[CellGroupData[{ +Cell[26225, 802, 350, 5, 31, "Input",ExpressionUUID->"f25944e3-b412-7146-ac6d-f008d8c60ab5"], +Cell[26578, 809, 305, 5, 35, "Output",ExpressionUUID->"edec7851-e2fe-b34c-ba8c-2c27e7cf738c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26920, 819, 329, 6, 31, "Input",ExpressionUUID->"24bf6fdb-f0a0-774b-a5d1-1f910c97a298"], +Cell[27252, 827, 305, 5, 35, "Output",ExpressionUUID->"95b97c69-6c13-8c42-848c-3b9218e2ce6d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27594, 837, 175, 3, 31, "Input",ExpressionUUID->"f86d7ec2-4b9e-cb4f-ac44-ab1d7c6b8c93"], +Cell[27772, 842, 276, 4, 35, "Output",ExpressionUUID->"22e5a903-bbd5-c04d-9efd-2a9b4d852d75"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28085, 851, 258, 7, 47, "Input",ExpressionUUID->"18b7ff08-61ef-0a43-a3b6-f39456c5d3bf"], +Cell[28346, 860, 290, 4, 35, "Output",ExpressionUUID->"bc8abb20-a9bc-e442-b277-c69265041ffc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28673, 869, 132, 2, 31, "Input",ExpressionUUID->"81606684-c7bc-8847-8110-4e7d8dadb4e3"], +Cell[28808, 873, 277, 4, 35, "Output",ExpressionUUID->"fdbbbc57-9869-a04c-8059-b93e7adc2132"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29122, 882, 277, 6, 31, "Input",ExpressionUUID->"f761fcb8-28f7-6340-a8c9-04643afe677c"], +Cell[29402, 890, 290, 4, 35, "Output",ExpressionUUID->"4d0fe716-55c3-8545-a8f2-846aef8ddab3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29729, 899, 258, 7, 31, "Input",ExpressionUUID->"eb02623b-c429-f44e-955f-4ce148f45177"], +Cell[29990, 908, 289, 4, 35, "Output",ExpressionUUID->"49cdc982-2bd5-2546-8fb4-51be0abc3bc4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[30316, 917, 376, 6, 31, "Input",ExpressionUUID->"5a7643d0-24aa-4445-a07d-8c03ae610a22"], +Cell[30695, 925, 154, 2, 35, "Output",ExpressionUUID->"272ce735-8aca-5c4b-889d-e36280a4ae81"] +}, Open ]], +Cell[CellGroupData[{ +Cell[30886, 932, 378, 6, 31, "Input",ExpressionUUID->"0d6c01d9-da94-5e40-a1b9-b6cc52ad8d72"], +Cell[31267, 940, 156, 2, 35, "Output",ExpressionUUID->"55f2cc96-07e5-9142-917b-d6a538467520"] +}, Open ]], +Cell[CellGroupData[{ +Cell[31460, 947, 129, 2, 31, "Input",ExpressionUUID->"bdbca864-d729-6d45-83af-09286972fe2c"], +Cell[31592, 951, 273, 4, 35, "Output",ExpressionUUID->"e1cf06c1-d62a-3f45-b39c-6c2b90bd80db"] +}, Open ]], +Cell[CellGroupData[{ +Cell[31902, 960, 129, 2, 31, "Input",ExpressionUUID->"ff4d19af-9e5c-ef4d-abe6-b09a5488a2e8"], +Cell[32034, 964, 272, 4, 35, "Output",ExpressionUUID->"6801dedc-9aa7-184c-8e36-cea59050084e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[32343, 973, 2014, 51, 143, "Input",ExpressionUUID->"1df47ed4-968d-ab47-9cf0-8687993d44a2"], +Cell[34360, 1026, 15405, 299, 262, "Output",ExpressionUUID->"9dc810d6-c12c-0d48-adde-9baf84f7b798"] +}, Open ]], +Cell[49780, 1328, 128, 3, 31, "Input",ExpressionUUID->"7b24a916-b850-f042-8ae8-50b3ad5aa448"], +Cell[CellGroupData[{ +Cell[49933, 1335, 2326, 60, 114, "Input",ExpressionUUID->"0fd1647e-55ba-6c45-ad3c-c7cf0756600e"], +Cell[52262, 1397, 3670, 53, 113, "Message",ExpressionUUID->"06e69d42-b883-6e44-a17a-72d455bd2904"], +Cell[55935, 1452, 360, 7, 35, "Output",ExpressionUUID->"72636b58-36cc-684a-bbbf-30e537b4e714"] +}, Open ]], +Cell[CellGroupData[{ +Cell[56332, 1464, 2226, 58, 114, "Input",ExpressionUUID->"79d865b0-6c37-3243-a4e0-d7506dcfe14a"], +Cell[58561, 1524, 839, 15, 28, "Message",ExpressionUUID->"53437993-daa8-9f43-b9e1-f8a0870ac774"], +Cell[59403, 1541, 317, 6, 35, "Output",ExpressionUUID->"30cd62e4-8ae1-6f4a-b687-a13c823273de"] +}, Open ]], +Cell[CellGroupData[{ +Cell[59757, 1552, 538, 9, 31, "Input",ExpressionUUID->"b936a356-288b-fa49-9ce3-75db208c644a"], +Cell[60298, 1563, 439, 7, 35, "Output",ExpressionUUID->"68a825c5-2d62-bd4b-ab58-0cad8e8154b8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[60774, 1575, 639, 10, 31, "Input",ExpressionUUID->"d5b02e93-37c6-e046-a015-cd95d27ec9f3"], +Cell[61416, 1587, 461, 8, 35, "Output",ExpressionUUID->"c795ebff-477c-e84b-b60d-54cb7fd8a3a6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[61914, 1600, 2525, 64, 153, "Input",ExpressionUUID->"7cc2507c-877d-4b47-80a1-806136a93537"], +Cell[64442, 1666, 105216, 2239, 261, "Output",ExpressionUUID->"bf36d94c-59b7-5248-b79e-9c5a3c231911"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169695, 3910, 165, 4, 46, "Input",ExpressionUUID->"9998eff2-8c55-9c49-a7ba-40c39d494e08"], +Cell[169863, 3916, 120169, 2494, 262, "Output",ExpressionUUID->"26985b49-ec40-5d4c-88c7-142b869bc2af"] +}, Open ]], +Cell[CellGroupData[{ +Cell[290069, 6415, 942, 27, 66, "Input",ExpressionUUID->"c35d5cd1-71e8-0d46-9aff-241fa1902366"], +Cell[291014, 6444, 22921, 423, 260, "Output",ExpressionUUID->"d1c158f1-3ce3-f749-86e0-673a21e4dd96"] +}, Open ]], +Cell[CellGroupData[{ +Cell[313972, 6872, 2422, 63, 114, "Input",ExpressionUUID->"96e79a55-1eb8-2a4c-bbe6-5fbb4df97bf2"], +Cell[316397, 6937, 6453, 92, 223, "Message",ExpressionUUID->"a4ae08cd-3440-1d4f-978e-2cd4eaa6d3c2"], +Cell[322853, 7031, 344, 8, 35, "Output",ExpressionUUID->"36797d84-b83d-6f43-b3eb-679224a52717"] +}, Open ]], +Cell[CellGroupData[{ +Cell[323234, 7044, 519, 9, 31, "Input",ExpressionUUID->"e7f8a0fc-58ca-3c43-8050-1041e5611e26"], +Cell[323756, 7055, 389, 7, 35, "Output",ExpressionUUID->"60592c05-8f3c-cf49-a983-c09cad5885af"] +}, Open ]], +Cell[CellGroupData[{ +Cell[324182, 7067, 434, 7, 31, "Input",ExpressionUUID->"8a3efd5c-480b-0b42-87de-a0381a89eb4a"], +Cell[324619, 7076, 392, 7, 35, "Output",ExpressionUUID->"7c1d395f-a80e-b248-a4f5-cd82e5cc5534"] +}, Open ]], +Cell[CellGroupData[{ +Cell[325048, 7088, 985, 27, 67, "Input",ExpressionUUID->"a14f3f77-6d27-1048-853d-e35ac0579b5a"], +Cell[326036, 7117, 88364, 1883, 264, "Output",ExpressionUUID->"16ceae37-ecda-a248-a0c2-801d6289fe89"] +}, Open ]], +Cell[CellGroupData[{ +Cell[414437, 9005, 167, 4, 46, "Input",ExpressionUUID->"7f7adb48-d16c-ff46-92de-216bf33e0dd7"], +Cell[414607, 9011, 110668, 2263, 261, "Output",ExpressionUUID->"667feb4a-081e-4949-afbe-90117f48f666"] +}, Open ]], +Cell[525290, 11277, 242, 5, 46, "Input",ExpressionUUID->"1a4d7ad0-fdd7-c149-91c3-f4bf148c2ba8"], +Cell[CellGroupData[{ +Cell[525557, 11286, 826, 24, 66, "Input",ExpressionUUID->"5f40daf9-1e74-0640-ab31-9384896fd730"], +Cell[526386, 11312, 32072, 576, 261, "Output",ExpressionUUID->"f946f0a7-e2ef-c94d-b49d-76d10025f655"] +}, Open ]], +Cell[CellGroupData[{ +Cell[558495, 11893, 2231, 59, 75, "Input",ExpressionUUID->"90f0001a-9463-4d4f-9baf-b5d8df3a0ca0"], +Cell[560729, 11954, 3805, 56, 104, "Message",ExpressionUUID->"9adc8bfb-20eb-164e-9d4a-601aa062b591"], +Cell[564537, 12012, 346, 8, 35, "Output",ExpressionUUID->"ddd7fa65-879a-b944-b517-a3c6f4bec358"] +}, Open ]], +Cell[CellGroupData[{ +Cell[564920, 12025, 334, 6, 31, "Input",ExpressionUUID->"dbdfb703-96b0-7646-a6d8-1714cb27d7e0"], +Cell[565257, 12033, 261, 5, 35, "Output",ExpressionUUID->"c47e5ed3-d6ff-4449-9cc8-6bdf0b22de8c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[565555, 12043, 302, 6, 31, "Input",ExpressionUUID->"b1797ad3-1841-6d4a-802c-01a83775cf12"], +Cell[565860, 12051, 261, 5, 35, "Output",ExpressionUUID->"84d40c20-4783-ff4e-969f-e0a500e9c7d2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[566158, 12061, 2588, 65, 177, "Input",ExpressionUUID->"44ce8c70-9506-d44d-96f8-61e476c7c15f"], +Cell[568749, 12128, 121982, 2592, 265, "Output",ExpressionUUID->"8dd75db1-4386-e741-8ba7-4520f42d767b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[690768, 14725, 169, 4, 46, "Input",ExpressionUUID->"299aaf37-7ffd-574a-9050-d17f2288bbc9"], +Cell[690940, 14731, 153841, 3124, 260, "Output",ExpressionUUID->"9f71c8bd-ca92-e04a-9a9d-ebd14b022504"] +}, Open ]], +Cell[CellGroupData[{ +Cell[844818, 17860, 922, 26, 66, "Input",ExpressionUUID->"f3943b5b-dc03-1343-88ab-8e6b6abbdcf4"], +Cell[845743, 17888, 24564, 453, 264, "Output",ExpressionUUID->"c9e615cc-2b0f-0f47-bf4d-5b873dc92ac4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[870344, 18346, 2388, 62, 96, "Input",ExpressionUUID->"821ca014-9c3d-214a-9c1a-0b2310271344"], +Cell[872735, 18410, 738, 14, 28, "Message",ExpressionUUID->"48d96df7-49e8-0c48-911b-f839db83e148"], +Cell[873476, 18426, 348, 8, 35, "Output",ExpressionUUID->"9f9705b9-7374-c140-8a65-ae3e58c720aa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[873861, 18439, 383, 7, 31, "Input",ExpressionUUID->"4524f895-5d5e-a74f-a717-0cd15a841249"], +Cell[874247, 18448, 284, 5, 35, "Output",ExpressionUUID->"8992064b-8f12-4e46-bb5c-4e8736b54369"] +}, Open ]], +Cell[CellGroupData[{ +Cell[874568, 18458, 310, 6, 31, "Input",ExpressionUUID->"17f8190f-852b-fa46-bdc8-1bb243b31de3"], +Cell[874881, 18466, 285, 5, 35, "Output",ExpressionUUID->"a378673a-d3f4-7a4a-ba38-40ab6560dd6b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[875203, 18476, 2874, 74, 154, "Input",ExpressionUUID->"86a6c2bf-ff39-cc4d-a1c0-fb8141afbdb9"], +Cell[878080, 18552, 124296, 2638, 261, "Output",ExpressionUUID->"73cd219e-eeff-c442-814e-237be31eb6e2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1002413, 21195, 208, 5, 69, "Input",ExpressionUUID->"8a3460c1-aa75-4842-9332-c34c99c08aa4"], +Cell[1002624, 21202, 148662, 3047, 282, "Output",ExpressionUUID->"2f38399e-258a-c842-8d2a-fdf8a5162033"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/l_118-122_Pu240_394-395_фитирование.nb b/templates/P240_2-51_YakuninDA/l_118-122_Pu240_394-395_фитирование.nb new file mode 100755 index 0000000..70a38ef --- /dev/null +++ b/templates/P240_2-51_YakuninDA/l_118-122_Pu240_394-395_фитирование.nb @@ -0,0 +1,21686 @@ +(* 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[ 1027011, 21678] +NotebookOptionsPosition[ 1016157, 21485] +NotebookOutlinePosition[ 1016610, 21503] +CellTagsIndexPosition[ 1016567, 21500] +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->"984d779d-441a-564f-824d-75ba0e2dc3fa"], + +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.99207740605118*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"5b406aee-4fc2-9340-b9a6-63883e6df740"] +}, 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->"67269f0f-e0b0-f549-a77a-4038f973203d"], + +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.9920774062078648`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"2f8c3cb4-876a-cc4b-a305-18fed8b0a8f0"] +}, 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->"b7ce059f-6606-3f49-a9e0-ce95b27090cb"], + +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.9920774062168636`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"068b8951-0b1b-c649-ba5e-6b596ea7740b"] +}, 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->"d28b612e-7706-ee49-b098-1ff6d19ac41f"], + +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.9920774062243156`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"16978456-3321-ed48-b869-1e49679ecafe"] +}, 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->"b07bd0bc-2475-094d-b7ea-4146a338636c"], + +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"]}]]}], ")"}]}], + "+", + RowBox[{ + FractionBox["1", + RowBox[{"32", " ", "\[Pi]"}]], + 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"]}]]}], + ")"}]}]}]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341376917*^9, 3.9919640822778645`*^9, + 3.9919650529736423`*^9, 3.9920774062328224`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"d91d5ce3-0373-6949-9097-37f56378374d"] +}, 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->"c9ecc956-1141-fa42-8147-f21123945bdc"], + +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"]}]]}], ")"}]}], + "+", + RowBox[{ + FractionBox["1", + RowBox[{"32", " ", "\[Pi]"}]], + 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"]}]]}], + ")"}]}]}]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341392933*^9, 3.9919640822888775`*^9, + 3.9919650530016823`*^9, 3.9920774062691994`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"a7b3cf3c-a865-d44a-9c20-b068c6459eeb"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{3.9917077685737076`*^9}, + CellLabel-> + "In[362]:=",ExpressionUUID->"3b033e79-cfc0-c443-bea0-5e05e70b057f"], + +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.992077413275131*^9, 3.992077413519266*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"9efe6a26-4fad-3f4e-9d6e-27e0e52fa691"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.991964088272585*^9, 3.9919650668367367`*^9, + 3.992077473412964*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"716bd997-c335-ac4e-b177-762274d0d00d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "118"}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.9919640953047657`*^9, + 3.991964095496088*^9}, 3.9919730324857025`*^9, {3.9920774175124474`*^9, + 3.99207741835557*^9}}, + CellLabel->"In[8]:=",ExpressionUUID->"df99cb2a-15b5-0b47-a4f6-27b74e082a15"], + +Cell[BoxData["118"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9919640965938797`*^9, 3.9919650679796085`*^9, + 3.992077473495037*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"9c389a5f-98b4-4447-832e-36bcd73b609a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[9]:=",ExpressionUUID->"a1fb5611-f3b5-6245-8af6-4e0165f28ad9"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9, 3.991707828219631*^9, + 3.9917123414174232`*^9, 3.9919641050847206`*^9, 3.9919650689841537`*^9, + 3.9920774735130367`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"11cdd205-8c8a-bc4d-9c8a-017bc4cc56cd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[10]:=",ExpressionUUID->"e4db6b4e-d33b-7049-818a-cfba3539b26d"], + +Cell[BoxData["0.55025`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9, 3.9917078282275677`*^9, + 3.9917123414253197`*^9, 3.991964105132374*^9, 3.99196507082041*^9, + 3.992077473518036*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"b0fb24af-34ae-7344-8ae4-0aa44115a947"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"d10625a4-1fb6-3f4d-8f5c-fd6744a2cc20"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9, 3.9917078282485256`*^9, + 3.9917123414324265`*^9, 3.991964105152542*^9, 3.9919650751473694`*^9, + 3.992077473540039*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"1284fc79-4993-7545-87b3-dcd15e09d1bc"] +}, 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[12]:=",ExpressionUUID->"ad7ee1cf-a6cf-aa41-b16f-69f575f9695b"], + +Cell[BoxData["5.6896470325678585`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9, 3.9917078282706223`*^9, + 3.9917123414384117`*^9, 3.991964105158039*^9, 3.9919650774986343`*^9, + 3.99207747355604*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"a8d0c29a-0fb9-d94d-90e9-e28f17cf7bc1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[13]:=",ExpressionUUID->"216f83ae-e48a-1b41-a7b2-acc9b400d13c"], + +Cell[BoxData["5.753223770057068`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9, 3.9917078282785244`*^9, + 3.991712341447321*^9, 3.9919641051782207`*^9, 3.99196507853343*^9, + 3.9920774735729256`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"943e50b3-9297-464d-83bc-97b9b4b4e5f2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.912"}]], "Input", + CellChangeTimes->{ + 3.9917123951294365`*^9, 3.99179305435186*^9, {3.99196410971159*^9, + 3.9919641153565598`*^9}, {3.991965091938593*^9, 3.9919650927835865`*^9}, + 3.991973034922682*^9, {3.9920774285182037`*^9, 3.992077444163128*^9}}, + CellLabel->"In[14]:=",ExpressionUUID->"b434072c-f5c4-6447-b47b-7d3a3a643eea"], + +Cell[BoxData["0.912`"], "Output", + CellChangeTimes->{3.992077473590931*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"8ff14c07-62c9-9042-9b60-5ab99da871b9"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9919730373820705`*^9, 3.991973037386053*^9}}, + CellLabel->"In[15]:=",ExpressionUUID->"1935e637-3724-824c-87cd-00d2f710210f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.619"}]], "Input", + CellChangeTimes->{ + 3.9917124038115807`*^9, 3.991793052797516*^9, {3.9919641207252083`*^9, + 3.991964121458187*^9}, {3.991965119761894*^9, 3.9919651201266823`*^9}, + 3.9919730365316715`*^9, {3.9920774357863083`*^9, 3.9920774407689705`*^9}}, + CellLabel->"In[16]:=",ExpressionUUID->"7fa441ac-4845-2444-8deb-6f46879ae66e"], + +Cell[BoxData["0.619`"], "Output", + CellChangeTimes->{3.992077473595928*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"83f54eda-83d2-0f45-82e3-5563c4d193d8"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991973038952713*^9, 3.9919730389577026`*^9}}, + CellLabel->"In[17]:=",ExpressionUUID->"14ffdd04-4daa-654b-9670-b89fb359bf05"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"d12b3ab2-45b8-e846-b98b-9d0a210376f1"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9, 3.9917078283276424`*^9, + 3.991712341478319*^9, 3.9919641257179623`*^9, 3.9919651236440945`*^9, + 3.9920774736029434`*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"2529a8fd-b1e4-6347-97a8-552f293a9fea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"cc8311a9-855a-384b-a11e-1c7a8ea58566"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9, 3.99170782834754*^9, + 3.9917123414863186`*^9, 3.9919641257640095`*^9, 3.991965124607527*^9, + 3.992077473619936*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"8cbb7ffe-de29-5448-bfc9-1df8361d29f7"] +}, 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", ",", "12.5"}], "}"}]}], "]"}]}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{{3.9919641474075165`*^9, 3.9919641522943115`*^9}, { + 3.9920774961433125`*^9, 3.992077523297741*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"f19417be-1443-8d42-84f9-76626ac0c4bd"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVknk41IsXxpUlpIUsxXTDzHzn24aIJDrH0tj3MNxiQpTKrpJQ9q1EKHUv +UiFLEUnWspVCdStS15qyT5RrV7/5/XGe87x/vJ9z3vMcOWcvq6MreXh4Orn1 +/27gELOKh4eCroPWhKoZB3SyVfZWrqCg4PA88cOEA/tGezz8eSnoaZWjd9+Y +AwrnVNuHBShY0Dr4nmrIAYkbAylv11DwgF3RXj49Dgx0acrflqGgSSA7PX0v +B87bT2ky91DQ+UhrmxiNAw9YDr4JnhQsnBvS3jIzAYJbvn844U3BGZOr1SHT +E8D+Gr7X2JeCMcbJK7p/TICYbxGP8GkK8iWFD6V+nwD/eJ7E6GAKWsZ9XzM/ +PAF7a3MKwhK4vKP80hGfJ6CB+nPwbD4F7+aUv8qtm4BOTrzd0W8U/Eekr2k+ +fAJmUufXm9puxmaXe6eU+Cdg4Rxfx8rGzTjOwfU2fuNQN+spwb/vDxR8ZmAp +XjkGQZESWyXz/8A5F/GjJlOjMJcv89hPfgv22LetXp4ZAYe1dRaZ17eg9sqK +mPyeYbDXNu89ySuLufuMdopXDoHbc09rJZDF+Ne2LMVD34BjU7hr8bQs9tcH +jFTPD8Lx8AqJoiJZNFLZbeoZ8wUaz0+r8Y/IYtTGlUcefO2HmyFm9a6ycohX +Tolo2/SBlcnHOI9Dcti/Je3BLt1uWKpQsre7JocGX7Zl/bfQBXIKuUnG7XKo +lxHxdqtgJzC8TFd9E5LHAxxJBQrve8irEB2K1pbHzx+fSxx1ewvC7fx8b4Ll +MWjJ0fTO3TZwDHtB/K6Qx79D7eJ85VpAAe6Vqk7KY9JV/Y4E9yboef4kWGwH +FY3ONEN93zMQth8umXGhYimD7XtgQy2QsV/Hnt2g4lzVFzFbgyfAiBRzUemg +YiQn0EywuwzUS64xRTupmMBsqf/ZVgZG3ZRt37k6dJ8tY6S2DDxVGVP5XVRc +RUQWTmWVQfnXfaHy3VRciOiXDDxaBkzm0Zuig1R0P7hv7NBkKbiuqnj3fYqK +G463VBxcUwq3Yg/rFa6h4eZf5+RGnEtgwL/z6V9raZi32ddcyqYEaGxLrUvr +aMhZ8aHIXL8EctQOqHmK0nB3bd9Az/YSKPyyg1SSoKHLq5jQ0/8VQ4XW0uoy +Cg1Zv5bFI+OKoX3qxruq7TSUZrUZjpx5AEv2H51fGdLwTZa757WAQngSejzo +sRENBQfEV0s5FcLpuwtXbxvTkNH03j3XoBCmJilNQaY0PPRCV21BphC+RR9h +7LCk4UzUxzm3hgJ4/Wh0LIFFQ9vp3aXWEgWQLbrsb+bOzWMj9lmx6R4YtshF +v42g4ZWbhtPFVrlAuv9ZUxRJQ9UNLlVm2rkgyJ/6MzaKu4+HyKc5xVxoRkG2 +TgwN3w/c/+WzJhd0KjjqpfE0RF4n4dkXOaCZWzWakkzDBr1H7AM6OaAQaWPG +yqKhe3iwb43WXRDTjpXoraKhkLnfiXO2t0E24/FgWzUNq1RFJiuYt0Fx8Wtp +dQ0NzW+9ecm75zaYPNKxulFHw17FC061UrcheuvSZZsGGup0rFvX3JUNS6Je +gq0vafjNSXBQip0NQwMHFyu6aKg222AdG3ALqiNk+5NnaVjbuXX4bngmjNvP +tvnMcf0bap9fOJEJmxXbKy3maXjzxrWkU9aZENIVlLJ2kYa60rEPz1MzARU6 +9eN+0VB5++/XXo0Z0NR56f5Ffjp61SQ2ZQhlQPu2xSDvDXRMWyD8X2X9Bf1v +PkiaKdJxJvdt4Yff6XC5ryGTVKLj2fmCN8rj6aAxWULy7qKje3ajW8bHdEhe +d1mjQpmOHN3IZ1kl6aBnxnSUV6OjRbH7JkvXdMh5VX53RpOO+5We5tq1XoeT +zdd2ZxrR0f6aLLUi5xrMVdlbTR7l8kX2iD0JS4X3cZr+3W50NM9yD+TzSYVi ++y1pL93pKDP3kerolArHZge77hyn452TNyU1NVOhU9n7iP0pLl9SSufWTAqU +34vyrvenY661h9YqzxTwv1Z6OSWcjpdor4tn3a7CpO+aV+q36Bi9c0XVrtAk +4Dy5LiyZTceuYO/6Up8kGOehGf3k6mR7HV50TYKhyxotRXfouCtGacMZwyTo +yXd/Lp9HR5F23b8cxZOgbeBZg8gDOg7KigyKFF6BfKvT1X3VXO0VfNe9KRFc +lHuLYj7Ssd1Qw8asMwGuqDtFne2io/i06CHZugSo3d/reOwTHaW3tTgK5CbA +RuPedQb/cue9q5VaeyYB2l16fVb10bHue2O68MYEUE/tVY0aouPOKSuJ/MPx +sGautyZ8ho55brOrpWZj4XFNX1uIOIHv9kQ7ejlFg4CmUKOjBIGjAuvEJU2j +wbZyV+V+SQLrtAYEXmlEw3R5WM4vKQJrXA0CnSSjQamYFhoiQ2CL7nvXXe1R +kJ99TClEnsDkb9vXemMUZERPJgcrEWhq5j+1TjESoix5WOdNCFyn8NCkUDkc +LIVx1M6UQNLf60U3NRwoDaHnVcwIXKjZniItEQ4Pd//OGjXn+q/Vzj+aDYMe +qV8jLGsC/0v1FPWrCQO1nsUgVQcCpSZbGb+NwmDIYzaT406gT/nXdrrnRTCI +4AyxwwnsuIolE3dDQWdJfoN5BIF7CgIsj8eHgpa/3X6tSAIlMvyWF7xDQdn1 +acqmaALLNt1XYmuGAkUvWfufOAJjVp1Zq/Q+BKZ41W7qJhMY8Kcf2bEqBG6E +B5sRtwiMvVdQXh9yHsbCRB6N1RJYnbGFdiE3EAT9RpZb6gh0jXhleuxqINBc +mpl5Twncu5NPhh0aCId0L3x0rSdQ8aKYd4hdILTzTi92NxFYHs8q9xcMhIcR +n3XetBL46SPbUevUWTgXlf+m7BOB/WdHtDjaZ0AozmA8eIbAizvml5wlAuDg +Xul2z1kCv+yXdQnkDYCs4bEHTnMEbnTYNpEx5Q/q+ol+2gsE2nwy1JBq94dj +fB0LfL8ITKLmsaqi/eFFiItQAj8DxwSFnjcv+0GMXwhxQ5yBq6cHwlKnfUHw +cBm7XJmBOSMpM3HCPvCG+XdPtgoDMxqEj1ksecN1pahDibsZGGjBvC/H8QYG +H4t1TI2B66bXJw+99QZmwaK5tAYD60dqc3+ne0PEvA6EaDNwU4VnAWuHN/Ck +vd3MtGDg8UOJxl0PPWG+nfPpwykG0pelzaxyTsCA0oXTDz25PMMm5cYrJ6A1 +WVQs0YuB3lVPO5hBJyDLdrehgQ8Dpb6s3BpicQKYPYGPK/25+9ExsXTRA1Im ++FIygxioe7qPqWDjAUoiMqbHYxnIWjscKCJ+HNwM9euW7jDQKk22/59aNwj1 +aPs5dpfrX8kfn1bgBtfjrcnPOQyM/91/yuO6G7xqc0p6ksfAfl56no6vGyhZ +nXU5XcjAk15Z/qWEG8w73Fs1WcpA/tCQp3HJRyHh5GqLL/UMPOAaP18W4Aql +ia/7WvoY+LxITVTb3Rk45C/le/0MjFG3nC9nOcO2+h2RMQMMvHLY307dyBmy +pmO36g8y8GtRv+Xhnc6QYK/n2zjEQPbxfQcUp4+AG/UJbx2HgWIyRSfGwo/A +xsfZRNkSAyenkwxjCthwvifgZMZGEudN09NEVBxB5WGVQ+AmEsMWRFRzZBxh +NHKF4UFpEjc0/TVuyecIrJ2X6MIUEqm5Vl69Hw7D7vN3egK2kKjbpQ5vAw/D +2KZ3FqYEiXpdcSJ8TYfAwUZJdUmFRGlRw3SDY3/CntbRZXtzEp2pHlIXelnw +hxM9Ut+CxKVncZJpL1nA98NJRNWSxD6+kjs1j1jwRuqD9HprEgemLFS0E1jg +4VK3p9mWxGB9h4sbNViQsXDVR9mRxPQ+Ab3F63bAv1Xrq/ApEk0MdMcVXGzh +XWRia1Ucia2bhFls4iD8e8XXJz2exKGUaL9EyYMweNNG8kwCibW92/97KXAQ +pktk2MqXSRRABp/7kDVI9uT+zEsiUf+njq7yPWtgqT2VTrtO4kbSfEpE0Rp6 +vk0e884h0Sms/FuSrhWM6lvx0+tJzD/dQR++ZAGSnJ0+lAYSb46KVLuFWoBO +ilD3hkYSHz54x/fD2wLS+56WrWwmsU285qLCQQswCFR07Wsh8RGzeVpLxgJy +8kUabr4l0TyTec7Bzhxc1jy/INZP4vMnd+wECkzhcmn2uNAAiaqV7HSBJFOo +tA9hrfhCYqbb+YzNZ0xBLEdVaXKQRKETFrcTdU2hfv+d3rZh7r1Sb3le7DYB +We+L+2MnSVRh5S7HSZiAieTh/AtTJNa9j9fnLBnD2Wp1ybM/SMSW0D/cB43h +teDkhNs0idUcYzK91BhCbjn+rTdHosTwiqwlK2PI19cQ0pwn0VcjiCm8zxg6 +JiQCVBZI9GJKfd1BNYadGm0m8kvc/xj3e1b80whYfXkVm5ZJrE+r/CT6rxFE +REXQRH9x8/Eo3Y5uNILiHewrgr9JZH+oFRQrMoJ//9m39JurT148Ml+cagT/ +A4G+AF0= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVknk41IsXxpUlpIUsxXTDzHzn24aIJDrH0tj3MNxiQpTKrpJQ9q1EKHUv +UiFLEUnWspVCdStS15qyT5RrV7/5/XGe87x/vJ9z3vMcOWcvq6MreXh4Orn1 +/27gELOKh4eCroPWhKoZB3SyVfZWrqCg4PA88cOEA/tGezz8eSnoaZWjd9+Y +AwrnVNuHBShY0Dr4nmrIAYkbAylv11DwgF3RXj49Dgx0acrflqGgSSA7PX0v +B87bT2ky91DQ+UhrmxiNAw9YDr4JnhQsnBvS3jIzAYJbvn844U3BGZOr1SHT +E8D+Gr7X2JeCMcbJK7p/TICYbxGP8GkK8iWFD6V+nwD/eJ7E6GAKWsZ9XzM/ +PAF7a3MKwhK4vKP80hGfJ6CB+nPwbD4F7+aUv8qtm4BOTrzd0W8U/Eekr2k+ +fAJmUufXm9puxmaXe6eU+Cdg4Rxfx8rGzTjOwfU2fuNQN+spwb/vDxR8ZmAp +XjkGQZESWyXz/8A5F/GjJlOjMJcv89hPfgv22LetXp4ZAYe1dRaZ17eg9sqK +mPyeYbDXNu89ySuLufuMdopXDoHbc09rJZDF+Ne2LMVD34BjU7hr8bQs9tcH +jFTPD8Lx8AqJoiJZNFLZbeoZ8wUaz0+r8Y/IYtTGlUcefO2HmyFm9a6ycohX +Tolo2/SBlcnHOI9Dcti/Je3BLt1uWKpQsre7JocGX7Zl/bfQBXIKuUnG7XKo +lxHxdqtgJzC8TFd9E5LHAxxJBQrve8irEB2K1pbHzx+fSxx1ewvC7fx8b4Ll +MWjJ0fTO3TZwDHtB/K6Qx79D7eJ85VpAAe6Vqk7KY9JV/Y4E9yboef4kWGwH +FY3ONEN93zMQth8umXGhYimD7XtgQy2QsV/Hnt2g4lzVFzFbgyfAiBRzUemg +YiQn0EywuwzUS64xRTupmMBsqf/ZVgZG3ZRt37k6dJ8tY6S2DDxVGVP5XVRc +RUQWTmWVQfnXfaHy3VRciOiXDDxaBkzm0Zuig1R0P7hv7NBkKbiuqnj3fYqK +G463VBxcUwq3Yg/rFa6h4eZf5+RGnEtgwL/z6V9raZi32ddcyqYEaGxLrUvr +aMhZ8aHIXL8EctQOqHmK0nB3bd9Az/YSKPyyg1SSoKHLq5jQ0/8VQ4XW0uoy +Cg1Zv5bFI+OKoX3qxruq7TSUZrUZjpx5AEv2H51fGdLwTZa757WAQngSejzo +sRENBQfEV0s5FcLpuwtXbxvTkNH03j3XoBCmJilNQaY0PPRCV21BphC+RR9h +7LCk4UzUxzm3hgJ4/Wh0LIFFQ9vp3aXWEgWQLbrsb+bOzWMj9lmx6R4YtshF +v42g4ZWbhtPFVrlAuv9ZUxRJQ9UNLlVm2rkgyJ/6MzaKu4+HyKc5xVxoRkG2 +TgwN3w/c/+WzJhd0KjjqpfE0RF4n4dkXOaCZWzWakkzDBr1H7AM6OaAQaWPG +yqKhe3iwb43WXRDTjpXoraKhkLnfiXO2t0E24/FgWzUNq1RFJiuYt0Fx8Wtp +dQ0NzW+9ecm75zaYPNKxulFHw17FC061UrcheuvSZZsGGup0rFvX3JUNS6Je +gq0vafjNSXBQip0NQwMHFyu6aKg222AdG3ALqiNk+5NnaVjbuXX4bngmjNvP +tvnMcf0bap9fOJEJmxXbKy3maXjzxrWkU9aZENIVlLJ2kYa60rEPz1MzARU6 +9eN+0VB5++/XXo0Z0NR56f5Ffjp61SQ2ZQhlQPu2xSDvDXRMWyD8X2X9Bf1v +PkiaKdJxJvdt4Yff6XC5ryGTVKLj2fmCN8rj6aAxWULy7qKje3ajW8bHdEhe +d1mjQpmOHN3IZ1kl6aBnxnSUV6OjRbH7JkvXdMh5VX53RpOO+5We5tq1XoeT +zdd2ZxrR0f6aLLUi5xrMVdlbTR7l8kX2iD0JS4X3cZr+3W50NM9yD+TzSYVi ++y1pL93pKDP3kerolArHZge77hyn452TNyU1NVOhU9n7iP0pLl9SSufWTAqU +34vyrvenY661h9YqzxTwv1Z6OSWcjpdor4tn3a7CpO+aV+q36Bi9c0XVrtAk +4Dy5LiyZTceuYO/6Up8kGOehGf3k6mR7HV50TYKhyxotRXfouCtGacMZwyTo +yXd/Lp9HR5F23b8cxZOgbeBZg8gDOg7KigyKFF6BfKvT1X3VXO0VfNe9KRFc +lHuLYj7Ssd1Qw8asMwGuqDtFne2io/i06CHZugSo3d/reOwTHaW3tTgK5CbA +RuPedQb/cue9q5VaeyYB2l16fVb10bHue2O68MYEUE/tVY0aouPOKSuJ/MPx +sGautyZ8ho55brOrpWZj4XFNX1uIOIHv9kQ7ejlFg4CmUKOjBIGjAuvEJU2j +wbZyV+V+SQLrtAYEXmlEw3R5WM4vKQJrXA0CnSSjQamYFhoiQ2CL7nvXXe1R +kJ99TClEnsDkb9vXemMUZERPJgcrEWhq5j+1TjESoix5WOdNCFyn8NCkUDkc +LIVx1M6UQNLf60U3NRwoDaHnVcwIXKjZniItEQ4Pd//OGjXn+q/Vzj+aDYMe +qV8jLGsC/0v1FPWrCQO1nsUgVQcCpSZbGb+NwmDIYzaT406gT/nXdrrnRTCI +4AyxwwnsuIolE3dDQWdJfoN5BIF7CgIsj8eHgpa/3X6tSAIlMvyWF7xDQdn1 +acqmaALLNt1XYmuGAkUvWfufOAJjVp1Zq/Q+BKZ41W7qJhMY8Kcf2bEqBG6E +B5sRtwiMvVdQXh9yHsbCRB6N1RJYnbGFdiE3EAT9RpZb6gh0jXhleuxqINBc +mpl5Twncu5NPhh0aCId0L3x0rSdQ8aKYd4hdILTzTi92NxFYHs8q9xcMhIcR +n3XetBL46SPbUevUWTgXlf+m7BOB/WdHtDjaZ0AozmA8eIbAizvml5wlAuDg +Xul2z1kCv+yXdQnkDYCs4bEHTnMEbnTYNpEx5Q/q+ol+2gsE2nwy1JBq94dj +fB0LfL8ITKLmsaqi/eFFiItQAj8DxwSFnjcv+0GMXwhxQ5yBq6cHwlKnfUHw +cBm7XJmBOSMpM3HCPvCG+XdPtgoDMxqEj1ksecN1pahDibsZGGjBvC/H8QYG +H4t1TI2B66bXJw+99QZmwaK5tAYD60dqc3+ne0PEvA6EaDNwU4VnAWuHN/Ck +vd3MtGDg8UOJxl0PPWG+nfPpwykG0pelzaxyTsCA0oXTDz25PMMm5cYrJ6A1 +WVQs0YuB3lVPO5hBJyDLdrehgQ8Dpb6s3BpicQKYPYGPK/25+9ExsXTRA1Im ++FIygxioe7qPqWDjAUoiMqbHYxnIWjscKCJ+HNwM9euW7jDQKk22/59aNwj1 +aPs5dpfrX8kfn1bgBtfjrcnPOQyM/91/yuO6G7xqc0p6ksfAfl56no6vGyhZ +nXU5XcjAk15Z/qWEG8w73Fs1WcpA/tCQp3HJRyHh5GqLL/UMPOAaP18W4Aql +ia/7WvoY+LxITVTb3Rk45C/le/0MjFG3nC9nOcO2+h2RMQMMvHLY307dyBmy +pmO36g8y8GtRv+Xhnc6QYK/n2zjEQPbxfQcUp4+AG/UJbx2HgWIyRSfGwo/A +xsfZRNkSAyenkwxjCthwvifgZMZGEudN09NEVBxB5WGVQ+AmEsMWRFRzZBxh +NHKF4UFpEjc0/TVuyecIrJ2X6MIUEqm5Vl69Hw7D7vN3egK2kKjbpQ5vAw/D +2KZ3FqYEiXpdcSJ8TYfAwUZJdUmFRGlRw3SDY3/CntbRZXtzEp2pHlIXelnw +hxM9Ut+CxKVncZJpL1nA98NJRNWSxD6+kjs1j1jwRuqD9HprEgemLFS0E1jg +4VK3p9mWxGB9h4sbNViQsXDVR9mRxPQ+Ab3F63bAv1Xrq/ApEk0MdMcVXGzh +XWRia1Ucia2bhFls4iD8e8XXJz2exKGUaL9EyYMweNNG8kwCibW92/97KXAQ +pktk2MqXSRRABp/7kDVI9uT+zEsiUf+njq7yPWtgqT2VTrtO4kbSfEpE0Rp6 +vk0e884h0Sms/FuSrhWM6lvx0+tJzD/dQR++ZAGSnJ0+lAYSb46KVLuFWoBO +ilD3hkYSHz54x/fD2wLS+56WrWwmsU285qLCQQswCFR07Wsh8RGzeVpLxgJy +8kUabr4l0TyTec7Bzhxc1jy/INZP4vMnd+wECkzhcmn2uNAAiaqV7HSBJFOo +tA9hrfhCYqbb+YzNZ0xBLEdVaXKQRKETFrcTdU2hfv+d3rZh7r1Sb3le7DYB +We+L+2MnSVRh5S7HSZiAieTh/AtTJNa9j9fnLBnD2Wp1ybM/SMSW0D/cB43h +teDkhNs0idUcYzK91BhCbjn+rTdHosTwiqwlK2PI19cQ0pwn0VcjiCm8zxg6 +JiQCVBZI9GJKfd1BNYadGm0m8kvc/xj3e1b80whYfXkVm5ZJrE+r/CT6rxFE +REXQRH9x8/Eo3Y5uNILiHewrgr9JZH+oFRQrMoJ//9m39JurT148Ml+cagT/ +A4G+AF0= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 12.5}, {0., 0.9470468281352962}}, + "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" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 12.5}, {0., 0.9470468281352962}}, + "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" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVknk41IsXxpUlpIUsxXTDzHzn24aIJDrH0tj3MNxiQpTKrpJQ9q1EKHUv +UiFLEUnWspVCdStS15qyT5RrV7/5/XGe87x/vJ9z3vMcOWcvq6MreXh4Orn1 +/27gELOKh4eCroPWhKoZB3SyVfZWrqCg4PA88cOEA/tGezz8eSnoaZWjd9+Y +AwrnVNuHBShY0Dr4nmrIAYkbAylv11DwgF3RXj49Dgx0acrflqGgSSA7PX0v +B87bT2ky91DQ+UhrmxiNAw9YDr4JnhQsnBvS3jIzAYJbvn844U3BGZOr1SHT +E8D+Gr7X2JeCMcbJK7p/TICYbxGP8GkK8iWFD6V+nwD/eJ7E6GAKWsZ9XzM/ +PAF7a3MKwhK4vKP80hGfJ6CB+nPwbD4F7+aUv8qtm4BOTrzd0W8U/Eekr2k+ +fAJmUufXm9puxmaXe6eU+Cdg4Rxfx8rGzTjOwfU2fuNQN+spwb/vDxR8ZmAp +XjkGQZESWyXz/8A5F/GjJlOjMJcv89hPfgv22LetXp4ZAYe1dRaZ17eg9sqK +mPyeYbDXNu89ySuLufuMdopXDoHbc09rJZDF+Ne2LMVD34BjU7hr8bQs9tcH +jFTPD8Lx8AqJoiJZNFLZbeoZ8wUaz0+r8Y/IYtTGlUcefO2HmyFm9a6ycohX +Tolo2/SBlcnHOI9Dcti/Je3BLt1uWKpQsre7JocGX7Zl/bfQBXIKuUnG7XKo +lxHxdqtgJzC8TFd9E5LHAxxJBQrve8irEB2K1pbHzx+fSxx1ewvC7fx8b4Ll +MWjJ0fTO3TZwDHtB/K6Qx79D7eJ85VpAAe6Vqk7KY9JV/Y4E9yboef4kWGwH +FY3ONEN93zMQth8umXGhYimD7XtgQy2QsV/Hnt2g4lzVFzFbgyfAiBRzUemg +YiQn0EywuwzUS64xRTupmMBsqf/ZVgZG3ZRt37k6dJ8tY6S2DDxVGVP5XVRc +RUQWTmWVQfnXfaHy3VRciOiXDDxaBkzm0Zuig1R0P7hv7NBkKbiuqnj3fYqK +G463VBxcUwq3Yg/rFa6h4eZf5+RGnEtgwL/z6V9raZi32ddcyqYEaGxLrUvr +aMhZ8aHIXL8EctQOqHmK0nB3bd9Az/YSKPyyg1SSoKHLq5jQ0/8VQ4XW0uoy +Cg1Zv5bFI+OKoX3qxruq7TSUZrUZjpx5AEv2H51fGdLwTZa757WAQngSejzo +sRENBQfEV0s5FcLpuwtXbxvTkNH03j3XoBCmJilNQaY0PPRCV21BphC+RR9h +7LCk4UzUxzm3hgJ4/Wh0LIFFQ9vp3aXWEgWQLbrsb+bOzWMj9lmx6R4YtshF +v42g4ZWbhtPFVrlAuv9ZUxRJQ9UNLlVm2rkgyJ/6MzaKu4+HyKc5xVxoRkG2 +TgwN3w/c/+WzJhd0KjjqpfE0RF4n4dkXOaCZWzWakkzDBr1H7AM6OaAQaWPG +yqKhe3iwb43WXRDTjpXoraKhkLnfiXO2t0E24/FgWzUNq1RFJiuYt0Fx8Wtp +dQ0NzW+9ecm75zaYPNKxulFHw17FC061UrcheuvSZZsGGup0rFvX3JUNS6Je +gq0vafjNSXBQip0NQwMHFyu6aKg222AdG3ALqiNk+5NnaVjbuXX4bngmjNvP +tvnMcf0bap9fOJEJmxXbKy3maXjzxrWkU9aZENIVlLJ2kYa60rEPz1MzARU6 +9eN+0VB5++/XXo0Z0NR56f5Ffjp61SQ2ZQhlQPu2xSDvDXRMWyD8X2X9Bf1v +PkiaKdJxJvdt4Yff6XC5ryGTVKLj2fmCN8rj6aAxWULy7qKje3ajW8bHdEhe +d1mjQpmOHN3IZ1kl6aBnxnSUV6OjRbH7JkvXdMh5VX53RpOO+5We5tq1XoeT +zdd2ZxrR0f6aLLUi5xrMVdlbTR7l8kX2iD0JS4X3cZr+3W50NM9yD+TzSYVi ++y1pL93pKDP3kerolArHZge77hyn452TNyU1NVOhU9n7iP0pLl9SSufWTAqU +34vyrvenY661h9YqzxTwv1Z6OSWcjpdor4tn3a7CpO+aV+q36Bi9c0XVrtAk +4Dy5LiyZTceuYO/6Up8kGOehGf3k6mR7HV50TYKhyxotRXfouCtGacMZwyTo +yXd/Lp9HR5F23b8cxZOgbeBZg8gDOg7KigyKFF6BfKvT1X3VXO0VfNe9KRFc +lHuLYj7Ssd1Qw8asMwGuqDtFne2io/i06CHZugSo3d/reOwTHaW3tTgK5CbA +RuPedQb/cue9q5VaeyYB2l16fVb10bHue2O68MYEUE/tVY0aouPOKSuJ/MPx +sGautyZ8ho55brOrpWZj4XFNX1uIOIHv9kQ7ejlFg4CmUKOjBIGjAuvEJU2j +wbZyV+V+SQLrtAYEXmlEw3R5WM4vKQJrXA0CnSSjQamYFhoiQ2CL7nvXXe1R +kJ99TClEnsDkb9vXemMUZERPJgcrEWhq5j+1TjESoix5WOdNCFyn8NCkUDkc +LIVx1M6UQNLf60U3NRwoDaHnVcwIXKjZniItEQ4Pd//OGjXn+q/Vzj+aDYMe +qV8jLGsC/0v1FPWrCQO1nsUgVQcCpSZbGb+NwmDIYzaT406gT/nXdrrnRTCI +4AyxwwnsuIolE3dDQWdJfoN5BIF7CgIsj8eHgpa/3X6tSAIlMvyWF7xDQdn1 +acqmaALLNt1XYmuGAkUvWfufOAJjVp1Zq/Q+BKZ41W7qJhMY8Kcf2bEqBG6E +B5sRtwiMvVdQXh9yHsbCRB6N1RJYnbGFdiE3EAT9RpZb6gh0jXhleuxqINBc +mpl5Twncu5NPhh0aCId0L3x0rSdQ8aKYd4hdILTzTi92NxFYHs8q9xcMhIcR +n3XetBL46SPbUevUWTgXlf+m7BOB/WdHtDjaZ0AozmA8eIbAizvml5wlAuDg +Xul2z1kCv+yXdQnkDYCs4bEHTnMEbnTYNpEx5Q/q+ol+2gsE2nwy1JBq94dj +fB0LfL8ITKLmsaqi/eFFiItQAj8DxwSFnjcv+0GMXwhxQ5yBq6cHwlKnfUHw +cBm7XJmBOSMpM3HCPvCG+XdPtgoDMxqEj1ksecN1pahDibsZGGjBvC/H8QYG +H4t1TI2B66bXJw+99QZmwaK5tAYD60dqc3+ne0PEvA6EaDNwU4VnAWuHN/Ck +vd3MtGDg8UOJxl0PPWG+nfPpwykG0pelzaxyTsCA0oXTDz25PMMm5cYrJ6A1 +WVQs0YuB3lVPO5hBJyDLdrehgQ8Dpb6s3BpicQKYPYGPK/25+9ExsXTRA1Im ++FIygxioe7qPqWDjAUoiMqbHYxnIWjscKCJ+HNwM9euW7jDQKk22/59aNwj1 +aPs5dpfrX8kfn1bgBtfjrcnPOQyM/91/yuO6G7xqc0p6ksfAfl56no6vGyhZ +nXU5XcjAk15Z/qWEG8w73Fs1WcpA/tCQp3HJRyHh5GqLL/UMPOAaP18W4Aql +ia/7WvoY+LxITVTb3Rk45C/le/0MjFG3nC9nOcO2+h2RMQMMvHLY307dyBmy +pmO36g8y8GtRv+Xhnc6QYK/n2zjEQPbxfQcUp4+AG/UJbx2HgWIyRSfGwo/A +xsfZRNkSAyenkwxjCthwvifgZMZGEudN09NEVBxB5WGVQ+AmEsMWRFRzZBxh +NHKF4UFpEjc0/TVuyecIrJ2X6MIUEqm5Vl69Hw7D7vN3egK2kKjbpQ5vAw/D +2KZ3FqYEiXpdcSJ8TYfAwUZJdUmFRGlRw3SDY3/CntbRZXtzEp2pHlIXelnw +hxM9Ut+CxKVncZJpL1nA98NJRNWSxD6+kjs1j1jwRuqD9HprEgemLFS0E1jg +4VK3p9mWxGB9h4sbNViQsXDVR9mRxPQ+Ab3F63bAv1Xrq/ApEk0MdMcVXGzh +XWRia1Ucia2bhFls4iD8e8XXJz2exKGUaL9EyYMweNNG8kwCibW92/97KXAQ +pktk2MqXSRRABp/7kDVI9uT+zEsiUf+njq7yPWtgqT2VTrtO4kbSfEpE0Rp6 +vk0e884h0Sms/FuSrhWM6lvx0+tJzD/dQR++ZAGSnJ0+lAYSb46KVLuFWoBO +ilD3hkYSHz54x/fD2wLS+56WrWwmsU285qLCQQswCFR07Wsh8RGzeVpLxgJy +8kUabr4l0TyTec7Bzhxc1jy/INZP4vMnd+wECkzhcmn2uNAAiaqV7HSBJFOo +tA9hrfhCYqbb+YzNZ0xBLEdVaXKQRKETFrcTdU2hfv+d3rZh7r1Sb3le7DYB +We+L+2MnSVRh5S7HSZiAieTh/AtTJNa9j9fnLBnD2Wp1ybM/SMSW0D/cB43h +teDkhNs0idUcYzK91BhCbjn+rTdHosTwiqwlK2PI19cQ0pwn0VcjiCm8zxg6 +JiQCVBZI9GJKfd1BNYadGm0m8kvc/xj3e1b80whYfXkVm5ZJrE+r/CT6rxFE +REXQRH9x8/Eo3Y5uNILiHewrgr9JZH+oFRQrMoJ//9m39JurT148Ml+cagT/ +A4G+AF0= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 12.5}, {0., 0.9470468281352962}}, + "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" -> {}, "GCFlag" -> 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.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, 12.5}, {0., 0.9470468281352962}}, + 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.992077487111929*^9, 3.9920775279481335`*^9}}, + CellLabel->"Out[22]=",ExpressionUUID->"03023f34-b238-6141-96c7-5d6ad5e43c03"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{ + 3.991842459440727*^9},ExpressionUUID->"62777ed7-7ccf-894f-98ca-\ +57d1179827cc"], + +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", ",", "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", ",", "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.9920775519289417`*^9, + 3.9920775569107704`*^9}}, + CellLabel->"In[23]:=",ExpressionUUID->"b1237968-c91f-db47-bafe-6a6c03ba541d"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.15045633315923296`\\\", \\\" \\\", \ +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.16547021123378178`\\\", \\\" \\\", \ +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.15045633315923296`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.16547021123378178`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.7437929645946975`\\\", \\\" \\\ +\", \\\"R1\\\"}], \\\"]\\\"}]}], RowBox[{RowBox[{\\\"168404.7432096178`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"6\\\", \\\"\[RightSkeleton]\\\"}]}], \ +\\\",\\\", RowBox[{RowBox[{\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"-\\\", FractionBox[RowBox[{\\\"0.4023668639053254`\\\", \ +\\\" \\\", SuperscriptBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"18\\\", \\\"\ +\[RightSkeleton]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}]], \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"7.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"-\\\", \ +RowBox[{\\\"1.`\\\", \\\" \\\", \\\"R1\\\"}]}], \\\")\\\"}]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\ +\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\ +\\\", \\\"4\\\", \\\"\[RightSkeleton]\\\"}]}], \\\")\\\"}]}]}], \\\")\\\"}], \ +\\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.17`\\\", RowBox[{RowBox[{\\\"1.`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.15045633315923296`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.16547021123378178`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.7437929645946975`\\\", \\\" \\\ +\", \\\"R1\\\"}], \\\"]\\\"}]}], RowBox[{RowBox[{\\\"168404.7432096178`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"6\\\", \\\"\[RightSkeleton]\\\"}]}]}], \ +\\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \\\",\\\", \\\"b0\\\"}], \\\"}\ +\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.`\\\", \\\",\\\", \ +\\\"0.65`\\\"}], \\\"}\\\"}]\\).\"", 2, 23, 12, 24488269323719620004, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9917125179761257`*^9, 3.991964171446245*^9, + 3.9919651511804237`*^9, 3.992077571108675*^9}, + CellLabel-> + "During evaluation of \ +In[23]:=",ExpressionUUID->"b46d0786-6b41-5a45-98dc-3aee9c45f768"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.8768634706036069`"}], ",", + RowBox[{"b0", "\[Rule]", "1.0975973281869416`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991712518051634*^9, 3.9919641715267353`*^9, + 3.99196515126849*^9, 3.9920775711965847`*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"1fd71df1-f503-2649-bf04-260d6dffea03"] +}, 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", ",", "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", ",", "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.9920775602460575`*^9, 3.9920775632865067`*^9}}, + CellLabel->"In[24]:=",ExpressionUUID->"fd3ea9d4-8a83-454c-af78-c4730cfea45f"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{RowBox[{\\\"-\\\", \ +\\\"0.5752742150205966`\\\"}], \\\" \\\", \\\"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.16547021123378178`\\\", \\\" \\\", \ +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[{\\\"11013.232920103323`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.5752742150205966`\\\", \\\" \\\", \\\"R1\\\", \\\" \ +\\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\ +\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"+\\\", \ +RowBox[{\\\"0.16547021123378178`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.7437929645946975`\\\", \\\" \\\ +\", \\\"R1\\\"}], \\\"]\\\"}]}], RowBox[{RowBox[{\\\"168404.7432096178`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"6\\\", \\\"\[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, 24, 13, 24488269323719620004, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9917125235776978`*^9, 3.992077571291237*^9}, + CellLabel-> + "During evaluation of \ +In[24]:=",ExpressionUUID->"a552e2cd-a567-2348-98ca-0d189880f688"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.8768801815039241`"}], ",", + RowBox[{"b0", "\[Rule]", "1.0975962201411917`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9917125237225304`*^9, 3.9920775714617615`*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"69bdad20-1aaa-154b-afff-cd6f37ef9153"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "1.196"}]], "Input", + CellChangeTimes->{{3.991712542905905*^9, 3.991712545766283*^9}, { + 3.9919641812561817`*^9, 3.9919641814730263`*^9}, {3.991965164548561*^9, + 3.9919651652528534`*^9}, 3.99207757828269*^9, 3.9920776135230103`*^9, { + 3.9920777123690605`*^9, 3.9920777683240814`*^9}, {3.992077817769581*^9, + 3.992077858747114*^9}, {3.9920778982019424`*^9, 3.992077909678976*^9}, + 3.992077950241436*^9}, + CellLabel->"In[81]:=",ExpressionUUID->"5f2338d5-2214-5b45-be4f-8f529fd780ac"], + +Cell[BoxData["1.196`"], "Output", + CellChangeTimes->{ + 3.991712577539974*^9, 3.9919641835911674`*^9, 3.991965166337839*^9, + 3.9920776312944584`*^9, {3.9920777175048714`*^9, 3.9920777722209625`*^9}, { + 3.992077809572027*^9, 3.9920778636568184`*^9}, {3.9920779019513493`*^9, + 3.9920779151595726`*^9}, 3.992077954308384*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"f028c659-4a66-534a-915a-64efa844e496"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.867"}]], "Input", + CellChangeTimes->{{3.9917125549495907`*^9, 3.9917125609834213`*^9}, { + 3.9919641902090893`*^9, 3.9919641942126675`*^9}, {3.9919651710886517`*^9, + 3.991965171325409*^9}, 3.9920776196006165`*^9, {3.992077693804096*^9, + 3.9920777086323776`*^9}, 3.992077805190651*^9, 3.9920778860421314`*^9}, + CellLabel->"In[82]:=",ExpressionUUID->"bcb210ff-bcae-1443-b4ad-e4a575fa430c"], + +Cell[BoxData["0.867`"], "Output", + CellChangeTimes->{ + 3.9917125776046295`*^9, {3.9919641919259663`*^9, 3.9919641946011486`*^9}, + 3.991965172422703*^9, 3.992077631333788*^9, {3.9920776991956215`*^9, + 3.992077772252756*^9}, {3.992077809601555*^9, 3.9920779151906395`*^9}, + 3.9920779543543015`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"0eae1f0d-6416-d545-85b8-fe3f7966b36f"] +}, 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", ",", "13"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917168703228035`*^9, {3.991964206647356*^9, 3.9919642192992706`*^9}, + 3.9920776475500584`*^9}, + CellLabel->"In[83]:=",ExpressionUUID->"4ff2523c-7d4f-5947-a370-80f5570bb8fd"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVl3k8VG8bxiUqSmYQM2MJM3YpSmS77xCiRNlbrJU1OxFJSVKJEKESEkKo +rC1k7ycl0qIkNXaipGwz73n/Op/zOc8557m373U9Ui6++49ycnBwDK7g4Pj/ +NSTiwDoODhIuDW8+XuLLhD1mR98yH5FQiT92taURE0zs7Cc4w8h4PN06c6mJ +CT/p0VxSWwTQ01Y3eB15GDzONVy+910AT/C77inaPQo8Uj/cj+YL4uL+DWcS +vkyAVaSWAeOQEDbpxW+QyJ2GJpFAf5rUBnROSjzeF/UbVhs18YcNbsDz7euU +h67NwR+13cUfrgvja6VNm997zAPPkbIsXwcR9Ag6r3uWvgRtxmaXVpMpuCKY +9BkFWeDQzBpd3UTBVSXkpHfb2SAQnZIFsVRM/pEk0RXFhqDFw3tPatNQZcIj +NeQ7C5Ye8uwfYdNwmCG1s8VtGWw5Olvq60WxSogRTjNehMNrW3ZkBIlhuv7D +C4oT/+CiVTbHfQ1x3OWx1VRbfg6cDpU2P5kURxEjg/B/F3/DoZxb/dwPJbAh +6J3T9Y5pUI64d7wqaCOeurku3iSDiJ834O8jIUl8Uso1OOs8AnnBK5iFIZJo +27tmUNb6B5jWF1lufCuJokvcqqNrv8EnK6e5NiUpvEVbfaIs7jNErFm9a/0V +KYzxyrDV9ngPQZmtAj3DUrjxklfHHrduOL03LF7dVBq74ty4K2JeQ8BuDa3/ +iqTx7WjCBfO8dnjC4Pf4xkVHioPJlL9YM1A2ftiZfIyOy2ujTgeSG+Dlv9ob +zQ10bOord/WcrYNjYkUKyqIMpCet+3n7TyUIOca7qkQwkNPbQqQ+tgIo0TFi +5b0MpF2zOma2rxRUXvhGvdaUQW6784KkwwWQMRjkfCJFBh99TokR+pwL03ti +T+2cksHNPKP5RyAb7HrjoGyfLHIntEk2SGaAMNw9e7tIFjPj/4Qk70uFoZYK +X0U+OSx8nCuQuCEJstM7UkZ95FBM++M166hLULabY4dCmxzGZWyPCw+MhbdU +mQtcivKYzzn96y7XWTBtd7VyOi+PixPqGuvtIqH4Ran9dL88dnQtJVoth4Jk +39gaMVTAjaSsES3jQBh7ixptGQoYtn7saKCfLzTv7J1nsxWwRKwAUtZ4wDfX +Qz8DHEgonKKestWMCS8tHR1nhcmYWvzPrMiLCWJ6Pv+Sesh4fc+TlRTzISg+ +cMfkx0UB/BUcGqPHNwI73r4NX7VLEC851vSrTIyByj7+XsMVQrhUkret99cU +XH5p43D7mRAGN+1jpnD9gqi2CEbeP2FcMH269977BRh5u5xc91gEE0qqFydU +lyFp1d3aC54UlDJeapN8zoLtubsb6TJUbH562tXzFBsM9OZn+waoaBmZYHXS +jA3V7x/uK7tJw9KGqcsrdFmg+MnrspWTKP7IpN39eWwJPnGbnimhiSEXba+h +u/QC/LMcVvKvlcLuC/drn1u8g7Cg7E4uqjRKyVd/nI3ogpNmdi5nwqXxTfZ9 +6rhvB4ho5Fr2vpfGZzxPz4fvaoWxO4HWtep0lOlxYoQsvYCZS+0+yil01Kfm +Olown0F6fMW3k1N09OSP2G1hUwNPdTOMSswY+DLuE+Vg9iMQ9ltd71vIwHDj +rfVfG8ogV2phb/1qGfSWWpegvOk+uO0PmL51TAbNWr43+7DvQnNa5JRtgwze +dqurrpm7A3lJF778k5DF57s7B/LoN6GKV+SbXKQscjzZYzOTngYsTuX5H32y +uFGZVtYtlAyND4AzXlcOBWq6REn3EkDef+gYT6Ycpv++FtL2IQ4aygUGhOfl +8IvOmNqcWAwk+Df5VNjKo9ila9zH9M/A4i4eW/kKeazg0HiAceEw1LlHNZZf +AdPirONco4OB+/0GyQAfBRQwmqPHufuDXfwlitsrBazw21PB5PMG5en3kTs2 +kXDAy6z4kz0TLpkPUiaZJOTRvPNscT8T1MxcA17mk/FeYz2jkHMIOrWT8jkP +C2DJ6aX8/ReGoUvx5UpbIUFU+WGoxkseA7HqsI3vugWx/Y2FqvDAJEzntnU6 +XxHCTUwPIRWLGahddnF/1iqMx93lDawYC3CSYpu+IU4EVa09D88+WAJluX85 +rboUvNX/hnXelwUm2/J6U2cpmEpy7lNyZkPR15a2Kw+pKFMXdsTcmw3XR+PM +U7xpmPlypdjX6ywQbNXyldgiirEz36ISxpaAsvIyvWpSFD8FZdP2Vi2A1qbQ +6ue5UniX75yUuW0vzK1+5OfNIY36fwM2v/F8C6c63OccXKRRZ2dTRfP0KzDE +yWaLBmks4OvuGvRpgwOuO7/uFadjiVOATgx3E8S8e/PeMZKOV5PjT/Hq1kN5 +Q6Xuxg90PFjBd9r6Zi0IbJKu9t7KQMmrxjWyjY8hdbiN/PoaA28IGZBqbpXD +EUt4rPmTgVakBpLfw2LYzTujUbVPBlfPjuuny96DLbrzct+LZLBlbrPOke85 +YPozVvnmKlmcThN8nNR8C+Km95G8j8niFu7E63d70oH3zoiufqMsKnW+7XFQ +TAEr7XlNBxk5XOj8Zhyikgg/Yj5GhsXI4Zu1Rt8i6PFQHXlxXfaAHFZLdpSu +xPNQ1hwU3ofyOLl8T6dBPBpyLlRaN2XKI2nkuKvo8Clob4vcpf1XHruKErtK +K0NAwP6MUKuNAmbYmMW2WQbAHZUhOeFHCljPayD2scIHrr8fcCq+QEIV2Sdr +/Q2ZwGP9+e6iMRlVLr1ItU1iwirV0NP2nALod/urNEfBEMR7lY81VxJ6Put9 +Ui93BO6E9c08DhZEcdVcWeG+cTBMvj5wUUEEj36Z4Q87uwh2V/KuOn8XQfu6 +FPGMgmWYY1q+NU6jYE9wi13RCjYwBH4+KLem4pt7HeyU82z4nKUkpbiehqNr +DB0eirPhU3O/RUcnDd1bjHkf9C7D+qEtPBVDCjhiWXtJ54wnWFZuaM4SJmHh +6qCxUVcmTHTkBnu8IiH9ZVaqOsHjp5ZHHgxdJSPD3uW47CAT+jdffJdkJIDc +Bz9d1jcdBvH3u0zYiwJoPGZt8L1oFK5NqBiKPxVE3qCBjBeHJiEncQVPY5AQ +Zt+j5JX+mwY7ik282QNh1DQMWcVsnQesO5eh7y+CYW6fzy95LkF4lVTacTkK +1swMmc3os6ArwnLA/DMFq8enkjjN2XCkrKRiKIuK/H6Xc5+HsuF8wO+9q6xo +aJMlyD/wjAVxujlOKymiqKG09jpTfhmqV2z6o/1eFEc0LugNshegj/acdSxd +Cq38kqjd/b3wuOvpTslZKYza0UwVHHoLS+v80cRGGiMsKib3VHdCn6EAx/pK +aaT9jlowX90Oawzl80TIdCzyLavedrUJzMN7Ls/705Gg29e5u/Wg96Xa61cH +HUWNJ+CtUR3hD4b89sgxcPGp4IyTQyVY5RbWnr7AwM91d4zNyRWgPfptZHaQ +gW1SoRfTT5eAzrGygwaGMri30HZ///N7wOSvaiq4LYMWL74UbDqSC+K3Vln5 +LsjgnxDHUqXbt8HPdUJu/UFZvPy4TPPGyRtAmjYamK6URSEL+ubftSkgvsLG +Sp8qhzYzBtsCsxPhxfoDF1XD5HDlxLfu7a/j4dH3phy3HjlcXy4Xnfv+PDT8 +7ODwU5dHLbg1Xn01GkLk+ayvJcpjLm1exeBmBNTuuv56wzjB53BhxVbbUKBm +PE7wN1PAqa7J8JmXAdByJnmz7z0FzCoq6Q5POAFPbkoU8PuTsPPExfl2wu96 +dt/kPLmZjLMGS0FdEUxI0gioCx4n42C2z7hq2BBkOhZSrbMFcEjhyJS6zQhM +ythuP3JYEDfBO0ll53EYLLnIKUIWwVNvbu1QV1kEyS1dSQkdIkiZ4NauObEM +hiGnWobPUNB4c4YM3yALShyyajx1qWgUvOrmmbNsSPQRWHvuLxVjeXpKlAk/ +226+20KvkoaH1hQa2a9lwVbNftLaTwpobbrxi46hF6xSzNjea0DC+dREveuW +TFB8I/nEj0XCo1rRH18cZsI9Q3f10qfEfBj1Z2bJDkH/9c5SOSsKNorEVP5M +Z8Hz8bmOz+uo+LnKvcDcjw1z6wf6t72kosCvqd8XDrPhnpPEPunzNMzareR0 +2YsF/uRc6u5bJBTpyXyABE8Kemm7o5zIKLXCp+ZgIXFvLd9/r4SCGuq0hJ/E +fGe278z/50PFUd4yg5IYNsh3GGp0MWjYx9jQJcrJhrHkcyvsfytgcYWr/JMG +D3C78cjdfC0JE8mSsdc9CH91mStProGEEtWn+T1MmMD5ru9VUAwZL8u++iHX +zYQhBW4fe20BfG7eZbxp0zAYlJzz7P4pgA8+VToXho1CZ+xFm4ZyQfxqeaA4 +V2wSFldJ5Ae6C2Fgx/jqe6+mIf/uPlGBXGG8G1Iuy39jHvLWZYh+PCqCWX9X +fr1ivAR3orYnaYhRcF3KhrhTSiwQlpI/qvSGgi1dvEYT+oS/otyRS06i4oVW +rb/bItiwVFmw97kxDXH1O4mMLha8+Gf98c9aUbyltjNK1ngZ1kQvH2b9J4pb +GYve9+mLUEz+fqf2mhTellkrUkR/DymV+ooLk1KowPJRfcPoBt1NwUw9C2m8 +UDojPSj+GmRbGTe9y6SxfFhW/qB1O7g8yoxd4qVjGeW9h9O7Jni4x+a4kTcd +7QevaLn01QPXeA3noVY6ajkVH6ferIMkSZO9OlIMnLgjveP0vUrYtoJ2tTea +gZMP/WOKzCpAUf0hZ/dnBl7Nb7LVGyoBdaFEn4t6Mmh3u0vlH18B4PyG5LUZ +MpgpXfbrSVYuxAa3HLeblcHZoapI6ups+JFVu9XRWhZ/8hX9ZnTcgGSRENW2 +Mllkdolcq+dKBU43LpftgnKoFn96T9anRCjv5r96JVAOH9iE9FTJXoKK64OT +Rp1yGBRquGuVTCy85Jo3qN0sjz8jJq+8bo+GgZPVVvPx8qgYP+cjsBABW2Ny +hFYy5dHJgbx7uTAUsrTe/Neyi/BbXr/6ytYEwgcFz4eidxTwQ6ne4ULWCeg8 +89Ss4SgJP0h8U35G9FPGNdaW7XQyirdmznYHMqG39ufHlQNk3LfqU/Nm1yHI +s5cpF0sVwJ3SOW2aqiMguJRip2YpiHr+9Ev8suOwRftc8hcuQv8mr85uW7kI +MdHDAjINIrgnqZ7vgcUyeOol1lcFU9AlbE6Pg+iHX6wAPWNVKrroI2cIcT4d +e8d9ZvMEFatX7afv2MkGTGbt+1tIQ5526aNXGSww+vYopapbAS16LXLsC7yA +yrfj0wVNEsoEOpdGWjPB4Wr0mMovEu7/kKyxbEvoYyvzgE4FGQvdliy3Cg0B +t+P3gr8mFBQO0pG4E8MCrsRXljUcVPTb90pOz4MNFqHdB749o2JPVZCw9VE2 +SNztNu87ScOcWFGXW9EsiJnd+XThGgnt9+SYChDz/iH1VKiuFRnTztrOD2cx +4bW47ofQHAqeOa/mp0liw4APRemdMxUv5nBszyb0/uw2zeJIKg1Fe/QdTInn +SzoO57knFVA3Y8cnc0lP0OsOkRqXIuF6WsehoiNMeMJnYHz/Iwm/J49G15oz +4fKH8IMBIxS0MRUdFrFjA5dJra5WARVZitO2AQFsKKyN4joSQcIbaabT9ruY +oCWk21OjTcZpAZlH+bFMcK9s3pawm4qb6cM18QR/Zo0WrzH2Efn7qKonR3x/ +gVR/pYKXjCPfTyRZuDEh3FjShINKRVOhnwcPh7AhK3/CI+4dFYXWY9SIFaHv +KlwhaYUknO7qQDaRDxsZLymxcCreHXLf/JTg94ex4sjieQU07/ovMcrNAyZ5 +Y7TucZPw0LL+pxRvJjwa31a3qo6EukKMWiNjJty9TvtSd5qM4QlxPP/+Y8KY +bKPmU3UBdFsUCmBJDINNes6pp6MCWC75Jf6s8yhMdFc6ChYL4q3Fvw1/lyZA +Xr941sxFCO+8IV/eXz0N5t4drn+yhHEb/axQVPQ82KjLHGI4iWDQuF9ApvoS +oaeYcFuYgikJ5iUhG1mgGZh8j/qSgkLvAqY4dNnA7KC5jF6iYqDIZ32J02zQ +tD/3KnMnDSe2iunkfWKBY++DDT+5RfHVg+tPeW2Woaz+6DXHFlE0arI6dkJ9 +EYT4ggN/XJXCCz79tgeN3gOXwnmJ4TEpjGs/5B9i2A1HdP9qaO2Vxq2VP+Kl +LV/DnjWl45kl0pjt9eW/qoh2uOr97u/UajoaHuI07vjXBEPqaT3eHsS9d84K +m7l6GPbX6kxsomMNN8ep7LY6iJAI094mwcD634L7T3RWAmPL/jDOKAZekW5n +i3tUgFRfJv+Ljwy8qN14P41WCmrjUSHF2jI4p/5jk5t6AUz67FrQSZNBj/6g +S/ue5IK2c/7MnhkZVHLIr6bTs+FWzZ2aC/tl8S7Tutli7gZY3ef79LBEFrfe +1RDlUUyFoNQ+9y0kOfSR1C1d+psI8tunkur85FDrWt7g4P5LoOrnL6j5nxw6 +9wstiu+JBXP+q0e/Ksvje7WBbOnhaNggldCjHCePWQl/YsbkI8EvV75q/hvB +s5fv4mK6Q6E//rDnjL4Cvtwb5/pZLhCcT1v/mbmpgAf2cqU4aPiC3a/L4jQn +Euqn642O7CbOi79UTDaIk7H49Nfveb5MCItQGTX9RMaWL7SmWLshKLD5HnHm +qgD2pa13Ed04ArLDDz3EzARxNn2s9O+acfiwguNzPUsYb4qrhEdNLsD2ooAD +fnUi2Mg/8MZt5zKczsl4utGPgtlVbfWKbSwQsuw/o65EReORIIfESDYIx0fV +nh+ioqvvuugAIzZEqH983Z1Lwzv5TSrftrDgtXp275U3CvjgjYXPzCcvyDm9 +pnhAjYRdar6FNwl+/ZoqX7F+goTu3S+3uRF8u3qR4XqumIzcZhax+9cOAaVx +8q6jAQWXRL6v3BTOAtlBzZR7CxTcOpGz4//8ilTam6BRQ8XjNuf2TrizwcG4 +tLMqgIZ2Gvai9pdZwHeMfPXAFRL6fynevoWYX78/9xPEzMnoqnr+xso0JgxG +G7/7mkXBQyok9XU8bOCsP+fTeJCKs31yvrUEzx6MlA91C9LQJWV/sYgI4e+T +drX2jSqg6sPFlTQLT2gzNPptIEZCuQ5Bax1nJlj5BB6J7yYhzLjVD+xhQqni +0E2nQQrK0bpdNh1gg+rS1pOJOVR8FpY5sjWYDWrK+3orQ0hY4CWCKwg/+jbQ +ZzxdnYyqpsf6s6OZEL9GNTTCgIo8p+LK754j4q1+6Ra5m9CzSsbZ1/uYcM1v +Oi+Ji4yllaOB005MyLpxKX5KgIozMxe1QgIJP+lwLK//NRWls6967rdnw8jt +buPpXBI6Wym+uELk42RorytvEBV79yl39BDfd4b052fnFPBN+Z9jv695QIxy +z2WTVhIOnbWNqSb67ZKb3KROGhXjQclpQzgbdvFPhbl7kbC82vfpQ4Jvb4pX +L9lpUPF69QV30WjC32Z6rNmsR8Jjt14InzrAhBebLbv3/SPheGCGYasDkX9d +F/7/VlGxtPhkzpA3GxbOBozfSSfh54j1BSLE/p6JlowMHaeiwVOtACOiHoxS +gS0dX0nomHHWttGCCZK7y9S4z5KwW/6GRw+x3sjN4dftfQSfz3B3bCbWe75T +avjPioQfDV68vknUw+7PI26BjVTcc7iTzBXGhndPtuXpPSD6g9ZyOZXQk23d +7P5NZ6h4yX5N8jFi/+bXG7R7lxTQzWd+rdN2D6ho9Mrt5iShsgb9q/gJJpwR +fWU0V0XCS4+NrVqI+oX8rXH7eoqMBw2HXga2McFbJkfip5oApmm9/7wsMgwD +fGoxFUMCmBjvknHZehTCw/e66RQKorv2zTatyQl45vhbVNNRCBfUEk0flUxD +zmveNcM3hLFDkIdcGjwPZe2eS7sPiyBvZmJhsvISPNvQcrlbkIIecZu/OlNZ +sFusvY3USkElbyH4vYPQ33zbKKGLVLztMHWGRfDdpsiPL16Pht18644LfWWB +SvPnh+Ocothm+vymz+FliBm4oZzYKIr/whr3G+stQhuv3qGwBCk0LFuOaLZ9 +Dzou+emHR6XQJfxT2kGrbjixS/NblZk0JtIOOg54voavBb+ubS2WxjWhC99O +JbZDvknAFvdVdOTbvuZzGm8zRBVprOVwp+OA1I3zX1c2gN3jha1KjXQMq72z +PrK/DvxvJqmViTFwK//pUda3SsgyPnEiPZKBETeubx0NrQAxFdL1HR8YmBrW +pDa0rRTKev8u6GrJYMf9a+JquwvAUP5LybtUGRxI46tS6sgFYdvr21t/yiDy +KQlpq2bDonHqkqilLL7bNO9wZm0GqAfblyoUy+LQaOrqFp1U2KRi7F2yXg4V +z2YvPF+VBG7HDyfv95VDvTlTEPS4BNOfNfPL2uXwX+T2242OsZAo5DDnrySP +tyOEdfv/RMOWPydTWmLlUYEAVgBGwvqHXmuCB+SJfp3ych0JBbZaXk3sTgUc +6lHdeV4jEPLlzYQPZylgxL+Xyx8P+ILY/aBYo8MkFONsN4o3ZQJLqrWbi0bG +sY13SXd8mGD65ZXfifdkNAB9KZMDQ6Bo/cKl4rIA/tNXYTKER6DskEEA2UQQ +S1sd3S4ujIHyUb0zFYvCOPn0xYO0wQW4qlf9O7VaBL+sU0su3bEMcT0bnxzw +oWCz3iHL4kYWyCwI5ijLU1GvNs/jPHG+UXZ78r7sOxUf91//umjChozYFv4X +2TQcpdOu/d1O6MFA6t9/nQpEvDxzjrNecFxjWohvCwlDu29crbYj5lfC9Mry +CAkfFS7+VLBigtNY41h+IRm3KEtMza0aAuk/AXnJSMH0Dwp9X4NYoHHpxONb +fyl46qFmuokrG1K44++7VBL8Ur+3nOvJhpPpmevzfWkY0Cxak5PEgrcS83+j +4km40EQx3UPMv46MIW2dGRlFet8ny6YQ/vhhR7dgBgU/D8rMO3OziRrWJNTa +UTGObF36gOBDy4uplWwSDZ8vfanzorHhpbb2iNGIAopkK+6XdPeEy8ubDvlR +Sfjj8LPyqy4Eb26uHQt7Q8K84mVHboIn9d2iz22/UvB3s+jKbAs2mPT6pdbd +pqL520PnzhB+8u+P7fA9kIQCkYnBzgQfbuVyh8apkZFePOWqFkXwuvxYeiBS +8cmzDYqiBH/1/SteFRqR8GILReQBwbcj2XFboleQcaWD0pEDjoSe6DfcZ/JT +8e1AZ9SYP+G/t+U28Lyiop3xw2eBB9lQbFdXJnaHhCZjAeUuRD7iJdedX+FP +RTXdL1MmhB/OH70yMDmrgGOhGZJ7izzA4pA3RbOJhPP+myTWEnzP0XPjdU+h +oqDof7+UTrGBt+3dYIo7CfOf5DC3Eeenb9a64hbbqFiz/e4TizNssLKy9D+o +TUL6yWNlJ4n6JjiOHoE/hN+1+iN0yJ4Jv4fStrxYScWB2w8DaV5seK7tYNWZ +SkLyFsl4ErG/102DPP1uVLx1O8rgFFGP6S9FdXWfSbia4zBnDaFvP1akZ6pG +Ef3k3TMpQPDZli9RMG0PFUsGzZBJxLM5QVDxnyUR793g/CN7meBxa0yWR4yK +3vVDjdWhRL8Gi/F5FZPQN29N6y7i/V0R6hwykVR03vj8GZXw78lYdWjnogJ+ +TP1v79G9HjBSl7VZ5BkJn/SUmrwl9Cx5x91Hky6E/z9gf2EfkZ+VBQWOeipU +5OcK0LhE8NSkREFWLpGEaRrRX8SIeGaEzfd0HKEih/TbXY+JeE4EHveJDyNh +e+Kqo4XE/8McF63PG1Hxl+aYuiSxf/rweH9jPgm/LDMnG4j3j3dm6wuGUlH8 +LX3AguiHZyvffnLWouKdtp+rewk92v4y/mxwJgn7dGLK5Ij1xQGhrT89qcg9 +oNOygvjfwcS29g8xRH7ZSb63iOfqdYyugv1U3G0i5eRJPCdx7dUWqCDm5dq2 +W1PEfngn/qN5sRQwTdOg2nejB/wPzou+4g== + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1XWUVmUQB+Bd6ZLuXLq7QenupaVX6Vi6y0Sl0wA7SAmxUEBpwUalFBEU +DDDATnzm+Mez85u5Z89+971zv01KSU0el5iQkHDBj6hT/MjPMXkhL8i9yERf +/Xq1HX/Lh9UR7JFfUweQg3cZTy3ztepNfMSP+oPqMHbIr6i3cIpsvE18mHPM +c32r2pUTpOEooznLQddfV4dwhjy8z0TOc4PrU9UCfMhb+v3qbSySX1R7kzmu +MTY+i/kGtT3/yEfUkeyVd6sDyUlt/Tr1Zq7Kz7NL7seNzNdvU7uRlkP6NEyT +C8Z9yovpx0Z9B/6N+6EOj+ibcE3eye2kZbpZId6Rl9Cfujxq1pSf4nlxB+mY +YVY4noe8lAHU4zGzZvwc58CdpGemWRHek5cxkPpkYJZ50ThjeTmDaEBGMpGZ +2a4X4wN5BYNpyONmzflFfom7yMIcs+Icl1cyhEY8YdaCX+WXuZuszDUrEc9T +XkUKm/QduS6/QWOe1Lfkt9gx7mG7Ppl0HNZnY56cFLspr47PJvchC7fqN6ud +4qXgTUaxT7tHHUSuOCsmxI6bP6W24mN+1x9Sh/Mpu/Svqv05TfZ4jqTyOQtc +36F25yTpOcYYPuNI3J+awifkjXNmUuyca/PVkvG35QPqUNbE+al9yRq7r9+i +diaR/fq96mByxz7rn1Zb80d8Xu6N/db3IEOcgz577KRcihPyAwzlOX2XePc4 +oG/CM3Ib/ozvCO4jR+yoWem4V/lBhtGUnLGP5mU4JT/EcJqRi9zkIS/5yE8B +ClKIwrFffrdsnLP8MCNoTpHYJfNynJHXMpIWFI09MS8f5yuvYxQtKcYC8wrx +LOP9ZDStKB5nZF6Rs/EuMobWlIj7Na8UzzDeO8bShiTuN6/MuXhHGEdbSrLQ +vErsRrwPpNKOUiwyr8r52HXG057SLDavxoXYRybQgTIsMa/OF/GcmUhHyrLU +vAZfxjNjEp0oxzLzmlyUn2UynSnPcvNaXJLXM4UuVGCFeW2+kjcwla5UZKV5 +Hb6WNzKNblRilXldvpE3MZ1kKrPavB7fypuZQXeqsMa8PpflLcykB1VjR80b +cCX2lFn0pFrsn3lDvpO3MpteVI/9M2/E9/I25tCbGrFb5o35Qd7OXPrEGZm1 +5S95dzxndup7kpGj+n3xHUM+jjM58f//wTVd+w8ySOct + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgEAURMEvGtiGrWhgYmQJBsKBcOBZsZWogWAJBpMsPHa6Jc/rWUWU +JiKmVI71jk/VT7X3zGM/5C3v6flTvIPjOI7jOI7jOI7jOI7jOI7jOI7jOI7j +OI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7j+O/5 +BWTQDds= + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl3k8VG8bxiUqSmYQM2MJM3YpSmS77xCiRNlbrJU1OxFJSVKJEKESEkKo +rC1k7ycl0qIkNXaipGwz73n/Op/zOc8557m373U9Ui6++49ycnBwDK7g4Pj/ +NSTiwDoODhIuDW8+XuLLhD1mR98yH5FQiT92taURE0zs7Cc4w8h4PN06c6mJ +CT/p0VxSWwTQ01Y3eB15GDzONVy+910AT/C77inaPQo8Uj/cj+YL4uL+DWcS +vkyAVaSWAeOQEDbpxW+QyJ2GJpFAf5rUBnROSjzeF/UbVhs18YcNbsDz7euU +h67NwR+13cUfrgvja6VNm997zAPPkbIsXwcR9Ag6r3uWvgRtxmaXVpMpuCKY +9BkFWeDQzBpd3UTBVSXkpHfb2SAQnZIFsVRM/pEk0RXFhqDFw3tPatNQZcIj +NeQ7C5Ye8uwfYdNwmCG1s8VtGWw5Olvq60WxSogRTjNehMNrW3ZkBIlhuv7D +C4oT/+CiVTbHfQ1x3OWx1VRbfg6cDpU2P5kURxEjg/B/F3/DoZxb/dwPJbAh +6J3T9Y5pUI64d7wqaCOeurku3iSDiJ834O8jIUl8Uso1OOs8AnnBK5iFIZJo +27tmUNb6B5jWF1lufCuJokvcqqNrv8EnK6e5NiUpvEVbfaIs7jNErFm9a/0V +KYzxyrDV9ngPQZmtAj3DUrjxklfHHrduOL03LF7dVBq74ty4K2JeQ8BuDa3/ +iqTx7WjCBfO8dnjC4Pf4xkVHioPJlL9YM1A2ftiZfIyOy2ujTgeSG+Dlv9ob +zQ10bOord/WcrYNjYkUKyqIMpCet+3n7TyUIOca7qkQwkNPbQqQ+tgIo0TFi +5b0MpF2zOma2rxRUXvhGvdaUQW6784KkwwWQMRjkfCJFBh99TokR+pwL03ti +T+2cksHNPKP5RyAb7HrjoGyfLHIntEk2SGaAMNw9e7tIFjPj/4Qk70uFoZYK +X0U+OSx8nCuQuCEJstM7UkZ95FBM++M166hLULabY4dCmxzGZWyPCw+MhbdU +mQtcivKYzzn96y7XWTBtd7VyOi+PixPqGuvtIqH4Ran9dL88dnQtJVoth4Jk +39gaMVTAjaSsES3jQBh7ixptGQoYtn7saKCfLzTv7J1nsxWwRKwAUtZ4wDfX +Qz8DHEgonKKestWMCS8tHR1nhcmYWvzPrMiLCWJ6Pv+Sesh4fc+TlRTzISg+ +cMfkx0UB/BUcGqPHNwI73r4NX7VLEC851vSrTIyByj7+XsMVQrhUkret99cU +XH5p43D7mRAGN+1jpnD9gqi2CEbeP2FcMH269977BRh5u5xc91gEE0qqFydU +lyFp1d3aC54UlDJeapN8zoLtubsb6TJUbH562tXzFBsM9OZn+waoaBmZYHXS +jA3V7x/uK7tJw9KGqcsrdFmg+MnrspWTKP7IpN39eWwJPnGbnimhiSEXba+h +u/QC/LMcVvKvlcLuC/drn1u8g7Cg7E4uqjRKyVd/nI3ogpNmdi5nwqXxTfZ9 +6rhvB4ho5Fr2vpfGZzxPz4fvaoWxO4HWtep0lOlxYoQsvYCZS+0+yil01Kfm +Olown0F6fMW3k1N09OSP2G1hUwNPdTOMSswY+DLuE+Vg9iMQ9ltd71vIwHDj +rfVfG8ogV2phb/1qGfSWWpegvOk+uO0PmL51TAbNWr43+7DvQnNa5JRtgwze +dqurrpm7A3lJF778k5DF57s7B/LoN6GKV+SbXKQscjzZYzOTngYsTuX5H32y +uFGZVtYtlAyND4AzXlcOBWq6REn3EkDef+gYT6Ycpv++FtL2IQ4aygUGhOfl +8IvOmNqcWAwk+Df5VNjKo9ila9zH9M/A4i4eW/kKeazg0HiAceEw1LlHNZZf +AdPirONco4OB+/0GyQAfBRQwmqPHufuDXfwlitsrBazw21PB5PMG5en3kTs2 +kXDAy6z4kz0TLpkPUiaZJOTRvPNscT8T1MxcA17mk/FeYz2jkHMIOrWT8jkP +C2DJ6aX8/ReGoUvx5UpbIUFU+WGoxkseA7HqsI3vugWx/Y2FqvDAJEzntnU6 +XxHCTUwPIRWLGahddnF/1iqMx93lDawYC3CSYpu+IU4EVa09D88+WAJluX85 +rboUvNX/hnXelwUm2/J6U2cpmEpy7lNyZkPR15a2Kw+pKFMXdsTcmw3XR+PM +U7xpmPlypdjX6ywQbNXyldgiirEz36ISxpaAsvIyvWpSFD8FZdP2Vi2A1qbQ +6ue5UniX75yUuW0vzK1+5OfNIY36fwM2v/F8C6c63OccXKRRZ2dTRfP0KzDE +yWaLBmks4OvuGvRpgwOuO7/uFadjiVOATgx3E8S8e/PeMZKOV5PjT/Hq1kN5 +Q6Xuxg90PFjBd9r6Zi0IbJKu9t7KQMmrxjWyjY8hdbiN/PoaA28IGZBqbpXD +EUt4rPmTgVakBpLfw2LYzTujUbVPBlfPjuuny96DLbrzct+LZLBlbrPOke85 +YPozVvnmKlmcThN8nNR8C+Km95G8j8niFu7E63d70oH3zoiufqMsKnW+7XFQ +TAEr7XlNBxk5XOj8Zhyikgg/Yj5GhsXI4Zu1Rt8i6PFQHXlxXfaAHFZLdpSu +xPNQ1hwU3ofyOLl8T6dBPBpyLlRaN2XKI2nkuKvo8Clob4vcpf1XHruKErtK +K0NAwP6MUKuNAmbYmMW2WQbAHZUhOeFHCljPayD2scIHrr8fcCq+QEIV2Sdr +/Q2ZwGP9+e6iMRlVLr1ItU1iwirV0NP2nALod/urNEfBEMR7lY81VxJ6Put9 +Ui93BO6E9c08DhZEcdVcWeG+cTBMvj5wUUEEj36Z4Q87uwh2V/KuOn8XQfu6 +FPGMgmWYY1q+NU6jYE9wi13RCjYwBH4+KLem4pt7HeyU82z4nKUkpbiehqNr +DB0eirPhU3O/RUcnDd1bjHkf9C7D+qEtPBVDCjhiWXtJ54wnWFZuaM4SJmHh +6qCxUVcmTHTkBnu8IiH9ZVaqOsHjp5ZHHgxdJSPD3uW47CAT+jdffJdkJIDc +Bz9d1jcdBvH3u0zYiwJoPGZt8L1oFK5NqBiKPxVE3qCBjBeHJiEncQVPY5AQ +Zt+j5JX+mwY7ik282QNh1DQMWcVsnQesO5eh7y+CYW6fzy95LkF4lVTacTkK +1swMmc3os6ArwnLA/DMFq8enkjjN2XCkrKRiKIuK/H6Xc5+HsuF8wO+9q6xo +aJMlyD/wjAVxujlOKymiqKG09jpTfhmqV2z6o/1eFEc0LugNshegj/acdSxd +Cq38kqjd/b3wuOvpTslZKYza0UwVHHoLS+v80cRGGiMsKib3VHdCn6EAx/pK +aaT9jlowX90Oawzl80TIdCzyLavedrUJzMN7Ls/705Gg29e5u/Wg96Xa61cH +HUWNJ+CtUR3hD4b89sgxcPGp4IyTQyVY5RbWnr7AwM91d4zNyRWgPfptZHaQ +gW1SoRfTT5eAzrGygwaGMri30HZ///N7wOSvaiq4LYMWL74UbDqSC+K3Vln5 +LsjgnxDHUqXbt8HPdUJu/UFZvPy4TPPGyRtAmjYamK6URSEL+ubftSkgvsLG +Sp8qhzYzBtsCsxPhxfoDF1XD5HDlxLfu7a/j4dH3phy3HjlcXy4Xnfv+PDT8 +7ODwU5dHLbg1Xn01GkLk+ayvJcpjLm1exeBmBNTuuv56wzjB53BhxVbbUKBm +PE7wN1PAqa7J8JmXAdByJnmz7z0FzCoq6Q5POAFPbkoU8PuTsPPExfl2wu96 +dt/kPLmZjLMGS0FdEUxI0gioCx4n42C2z7hq2BBkOhZSrbMFcEjhyJS6zQhM +ythuP3JYEDfBO0ll53EYLLnIKUIWwVNvbu1QV1kEyS1dSQkdIkiZ4NauObEM +hiGnWobPUNB4c4YM3yALShyyajx1qWgUvOrmmbNsSPQRWHvuLxVjeXpKlAk/ +226+20KvkoaH1hQa2a9lwVbNftLaTwpobbrxi46hF6xSzNjea0DC+dREveuW +TFB8I/nEj0XCo1rRH18cZsI9Q3f10qfEfBj1Z2bJDkH/9c5SOSsKNorEVP5M +Z8Hz8bmOz+uo+LnKvcDcjw1z6wf6t72kosCvqd8XDrPhnpPEPunzNMzareR0 +2YsF/uRc6u5bJBTpyXyABE8Kemm7o5zIKLXCp+ZgIXFvLd9/r4SCGuq0hJ/E +fGe278z/50PFUd4yg5IYNsh3GGp0MWjYx9jQJcrJhrHkcyvsfytgcYWr/JMG +D3C78cjdfC0JE8mSsdc9CH91mStProGEEtWn+T1MmMD5ru9VUAwZL8u++iHX +zYQhBW4fe20BfG7eZbxp0zAYlJzz7P4pgA8+VToXho1CZ+xFm4ZyQfxqeaA4 +V2wSFldJ5Ae6C2Fgx/jqe6+mIf/uPlGBXGG8G1Iuy39jHvLWZYh+PCqCWX9X +fr1ivAR3orYnaYhRcF3KhrhTSiwQlpI/qvSGgi1dvEYT+oS/otyRS06i4oVW +rb/bItiwVFmw97kxDXH1O4mMLha8+Gf98c9aUbyltjNK1ngZ1kQvH2b9J4pb +GYve9+mLUEz+fqf2mhTellkrUkR/DymV+ooLk1KowPJRfcPoBt1NwUw9C2m8 +UDojPSj+GmRbGTe9y6SxfFhW/qB1O7g8yoxd4qVjGeW9h9O7Jni4x+a4kTcd +7QevaLn01QPXeA3noVY6ajkVH6ferIMkSZO9OlIMnLgjveP0vUrYtoJ2tTea +gZMP/WOKzCpAUf0hZ/dnBl7Nb7LVGyoBdaFEn4t6Mmh3u0vlH18B4PyG5LUZ +MpgpXfbrSVYuxAa3HLeblcHZoapI6ups+JFVu9XRWhZ/8hX9ZnTcgGSRENW2 +Mllkdolcq+dKBU43LpftgnKoFn96T9anRCjv5r96JVAOH9iE9FTJXoKK64OT +Rp1yGBRquGuVTCy85Jo3qN0sjz8jJq+8bo+GgZPVVvPx8qgYP+cjsBABW2Ny +hFYy5dHJgbx7uTAUsrTe/Neyi/BbXr/6ytYEwgcFz4eidxTwQ6ne4ULWCeg8 +89Ss4SgJP0h8U35G9FPGNdaW7XQyirdmznYHMqG39ufHlQNk3LfqU/Nm1yHI +s5cpF0sVwJ3SOW2aqiMguJRip2YpiHr+9Ev8suOwRftc8hcuQv8mr85uW7kI +MdHDAjINIrgnqZ7vgcUyeOol1lcFU9AlbE6Pg+iHX6wAPWNVKrroI2cIcT4d +e8d9ZvMEFatX7afv2MkGTGbt+1tIQ5526aNXGSww+vYopapbAS16LXLsC7yA +yrfj0wVNEsoEOpdGWjPB4Wr0mMovEu7/kKyxbEvoYyvzgE4FGQvdliy3Cg0B +t+P3gr8mFBQO0pG4E8MCrsRXljUcVPTb90pOz4MNFqHdB749o2JPVZCw9VE2 +SNztNu87ScOcWFGXW9EsiJnd+XThGgnt9+SYChDz/iH1VKiuFRnTztrOD2cx +4bW47ofQHAqeOa/mp0liw4APRemdMxUv5nBszyb0/uw2zeJIKg1Fe/QdTInn +SzoO57knFVA3Y8cnc0lP0OsOkRqXIuF6WsehoiNMeMJnYHz/Iwm/J49G15oz +4fKH8IMBIxS0MRUdFrFjA5dJra5WARVZitO2AQFsKKyN4joSQcIbaabT9ruY +oCWk21OjTcZpAZlH+bFMcK9s3pawm4qb6cM18QR/Zo0WrzH2Efn7qKonR3x/ +gVR/pYKXjCPfTyRZuDEh3FjShINKRVOhnwcPh7AhK3/CI+4dFYXWY9SIFaHv +KlwhaYUknO7qQDaRDxsZLymxcCreHXLf/JTg94ex4sjieQU07/ovMcrNAyZ5 +Y7TucZPw0LL+pxRvJjwa31a3qo6EukKMWiNjJty9TvtSd5qM4QlxPP/+Y8KY +bKPmU3UBdFsUCmBJDINNes6pp6MCWC75Jf6s8yhMdFc6ChYL4q3Fvw1/lyZA +Xr941sxFCO+8IV/eXz0N5t4drn+yhHEb/axQVPQ82KjLHGI4iWDQuF9ApvoS +oaeYcFuYgikJ5iUhG1mgGZh8j/qSgkLvAqY4dNnA7KC5jF6iYqDIZ32J02zQ +tD/3KnMnDSe2iunkfWKBY++DDT+5RfHVg+tPeW2Woaz+6DXHFlE0arI6dkJ9 +EYT4ggN/XJXCCz79tgeN3gOXwnmJ4TEpjGs/5B9i2A1HdP9qaO2Vxq2VP+Kl +LV/DnjWl45kl0pjt9eW/qoh2uOr97u/UajoaHuI07vjXBEPqaT3eHsS9d84K +m7l6GPbX6kxsomMNN8ep7LY6iJAI094mwcD634L7T3RWAmPL/jDOKAZekW5n +i3tUgFRfJv+Ljwy8qN14P41WCmrjUSHF2jI4p/5jk5t6AUz67FrQSZNBj/6g +S/ue5IK2c/7MnhkZVHLIr6bTs+FWzZ2aC/tl8S7Tutli7gZY3ef79LBEFrfe +1RDlUUyFoNQ+9y0kOfSR1C1d+psI8tunkur85FDrWt7g4P5LoOrnL6j5nxw6 +9wstiu+JBXP+q0e/Ksvje7WBbOnhaNggldCjHCePWQl/YsbkI8EvV75q/hvB +s5fv4mK6Q6E//rDnjL4Cvtwb5/pZLhCcT1v/mbmpgAf2cqU4aPiC3a/L4jQn +Euqn642O7CbOi79UTDaIk7H49Nfveb5MCItQGTX9RMaWL7SmWLshKLD5HnHm +qgD2pa13Ed04ArLDDz3EzARxNn2s9O+acfiwguNzPUsYb4qrhEdNLsD2ooAD +fnUi2Mg/8MZt5zKczsl4utGPgtlVbfWKbSwQsuw/o65EReORIIfESDYIx0fV +nh+ioqvvuugAIzZEqH983Z1Lwzv5TSrftrDgtXp275U3CvjgjYXPzCcvyDm9 +pnhAjYRdar6FNwl+/ZoqX7F+goTu3S+3uRF8u3qR4XqumIzcZhax+9cOAaVx +8q6jAQWXRL6v3BTOAtlBzZR7CxTcOpGz4//8ilTam6BRQ8XjNuf2TrizwcG4 +tLMqgIZ2Gvai9pdZwHeMfPXAFRL6fynevoWYX78/9xPEzMnoqnr+xso0JgxG +G7/7mkXBQyok9XU8bOCsP+fTeJCKs31yvrUEzx6MlA91C9LQJWV/sYgI4e+T +drX2jSqg6sPFlTQLT2gzNPptIEZCuQ5Bax1nJlj5BB6J7yYhzLjVD+xhQqni +0E2nQQrK0bpdNh1gg+rS1pOJOVR8FpY5sjWYDWrK+3orQ0hY4CWCKwg/+jbQ +ZzxdnYyqpsf6s6OZEL9GNTTCgIo8p+LK754j4q1+6Ra5m9CzSsbZ1/uYcM1v +Oi+Ji4yllaOB005MyLpxKX5KgIozMxe1QgIJP+lwLK//NRWls6967rdnw8jt +buPpXBI6Wym+uELk42RorytvEBV79yl39BDfd4b052fnFPBN+Z9jv695QIxy +z2WTVhIOnbWNqSb67ZKb3KROGhXjQclpQzgbdvFPhbl7kbC82vfpQ4Jvb4pX +L9lpUPF69QV30WjC32Z6rNmsR8Jjt14InzrAhBebLbv3/SPheGCGYasDkX9d +F/7/VlGxtPhkzpA3GxbOBozfSSfh54j1BSLE/p6JlowMHaeiwVOtACOiHoxS +gS0dX0nomHHWttGCCZK7y9S4z5KwW/6GRw+x3sjN4dftfQSfz3B3bCbWe75T +avjPioQfDV68vknUw+7PI26BjVTcc7iTzBXGhndPtuXpPSD6g9ZyOZXQk23d +7P5NZ6h4yX5N8jFi/+bXG7R7lxTQzWd+rdN2D6ho9Mrt5iShsgb9q/gJJpwR +fWU0V0XCS4+NrVqI+oX8rXH7eoqMBw2HXga2McFbJkfip5oApmm9/7wsMgwD +fGoxFUMCmBjvknHZehTCw/e66RQKorv2zTatyQl45vhbVNNRCBfUEk0flUxD +zmveNcM3hLFDkIdcGjwPZe2eS7sPiyBvZmJhsvISPNvQcrlbkIIecZu/OlNZ +sFusvY3USkElbyH4vYPQ33zbKKGLVLztMHWGRfDdpsiPL16Pht18644LfWWB +SvPnh+Ocothm+vymz+FliBm4oZzYKIr/whr3G+stQhuv3qGwBCk0LFuOaLZ9 +Dzou+emHR6XQJfxT2kGrbjixS/NblZk0JtIOOg54voavBb+ubS2WxjWhC99O +JbZDvknAFvdVdOTbvuZzGm8zRBVprOVwp+OA1I3zX1c2gN3jha1KjXQMq72z +PrK/DvxvJqmViTFwK//pUda3SsgyPnEiPZKBETeubx0NrQAxFdL1HR8YmBrW +pDa0rRTKev8u6GrJYMf9a+JquwvAUP5LybtUGRxI46tS6sgFYdvr21t/yiDy +KQlpq2bDonHqkqilLL7bNO9wZm0GqAfblyoUy+LQaOrqFp1U2KRi7F2yXg4V +z2YvPF+VBG7HDyfv95VDvTlTEPS4BNOfNfPL2uXwX+T2242OsZAo5DDnrySP +tyOEdfv/RMOWPydTWmLlUYEAVgBGwvqHXmuCB+SJfp3ych0JBbZaXk3sTgUc +6lHdeV4jEPLlzYQPZylgxL+Xyx8P+ILY/aBYo8MkFONsN4o3ZQJLqrWbi0bG +sY13SXd8mGD65ZXfifdkNAB9KZMDQ6Bo/cKl4rIA/tNXYTKER6DskEEA2UQQ +S1sd3S4ujIHyUb0zFYvCOPn0xYO0wQW4qlf9O7VaBL+sU0su3bEMcT0bnxzw +oWCz3iHL4kYWyCwI5ijLU1GvNs/jPHG+UXZ78r7sOxUf91//umjChozYFv4X +2TQcpdOu/d1O6MFA6t9/nQpEvDxzjrNecFxjWohvCwlDu29crbYj5lfC9Mry +CAkfFS7+VLBigtNY41h+IRm3KEtMza0aAuk/AXnJSMH0Dwp9X4NYoHHpxONb +fyl46qFmuokrG1K44++7VBL8Ur+3nOvJhpPpmevzfWkY0Cxak5PEgrcS83+j +4km40EQx3UPMv46MIW2dGRlFet8ny6YQ/vhhR7dgBgU/D8rMO3OziRrWJNTa +UTGObF36gOBDy4uplWwSDZ8vfanzorHhpbb2iNGIAopkK+6XdPeEy8ubDvlR +Sfjj8LPyqy4Eb26uHQt7Q8K84mVHboIn9d2iz22/UvB3s+jKbAs2mPT6pdbd +pqL520PnzhB+8u+P7fA9kIQCkYnBzgQfbuVyh8apkZFePOWqFkXwuvxYeiBS +8cmzDYqiBH/1/SteFRqR8GILReQBwbcj2XFboleQcaWD0pEDjoSe6DfcZ/JT +8e1AZ9SYP+G/t+U28Lyiop3xw2eBB9lQbFdXJnaHhCZjAeUuRD7iJdedX+FP +RTXdL1MmhB/OH70yMDmrgGOhGZJ7izzA4pA3RbOJhPP+myTWEnzP0XPjdU+h +oqDof7+UTrGBt+3dYIo7CfOf5DC3Eeenb9a64hbbqFiz/e4TizNssLKy9D+o +TUL6yWNlJ4n6JjiOHoE/hN+1+iN0yJ4Jv4fStrxYScWB2w8DaV5seK7tYNWZ +SkLyFsl4ErG/102DPP1uVLx1O8rgFFGP6S9FdXWfSbia4zBnDaFvP1akZ6pG +Ef3k3TMpQPDZli9RMG0PFUsGzZBJxLM5QVDxnyUR793g/CN7meBxa0yWR4yK +3vVDjdWhRL8Gi/F5FZPQN29N6y7i/V0R6hwykVR03vj8GZXw78lYdWjnogJ+ +TP1v79G9HjBSl7VZ5BkJn/SUmrwl9Cx5x91Hky6E/z9gf2EfkZ+VBQWOeipU +5OcK0LhE8NSkREFWLpGEaRrRX8SIeGaEzfd0HKEih/TbXY+JeE4EHveJDyNh +e+Kqo4XE/8McF63PG1Hxl+aYuiSxf/rweH9jPgm/LDMnG4j3j3dm6wuGUlH8 +LX3AguiHZyvffnLWouKdtp+rewk92v4y/mxwJgn7dGLK5Ij1xQGhrT89qcg9 +oNOygvjfwcS29g8xRH7ZSb63iOfqdYyugv1U3G0i5eRJPCdx7dUWqCDm5dq2 +W1PEfngn/qN5sRQwTdOg2nejB/wPzou+4g== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1XWUVmUQB+Bd6ZLuXLq7QenupaVX6Vi6y0Sl0wA7SAmxUEBpwUalFBEU +DDDATnzm+Mez85u5Z89+971zv01KSU0el5iQkHDBj6hT/MjPMXkhL8i9yERf +/Xq1HX/Lh9UR7JFfUweQg3cZTy3ztepNfMSP+oPqMHbIr6i3cIpsvE18mHPM +c32r2pUTpOEooznLQddfV4dwhjy8z0TOc4PrU9UCfMhb+v3qbSySX1R7kzmu +MTY+i/kGtT3/yEfUkeyVd6sDyUlt/Tr1Zq7Kz7NL7seNzNdvU7uRlkP6NEyT +C8Z9yovpx0Z9B/6N+6EOj+ibcE3eye2kZbpZId6Rl9Cfujxq1pSf4nlxB+mY +YVY4noe8lAHU4zGzZvwc58CdpGemWRHek5cxkPpkYJZ50ThjeTmDaEBGMpGZ +2a4X4wN5BYNpyONmzflFfom7yMIcs+Icl1cyhEY8YdaCX+WXuZuszDUrEc9T +XkUKm/QduS6/QWOe1Lfkt9gx7mG7Ppl0HNZnY56cFLspr47PJvchC7fqN6ud +4qXgTUaxT7tHHUSuOCsmxI6bP6W24mN+1x9Sh/Mpu/Svqv05TfZ4jqTyOQtc +36F25yTpOcYYPuNI3J+awifkjXNmUuyca/PVkvG35QPqUNbE+al9yRq7r9+i +diaR/fq96mByxz7rn1Zb80d8Xu6N/db3IEOcgz577KRcihPyAwzlOX2XePc4 +oG/CM3Ib/ozvCO4jR+yoWem4V/lBhtGUnLGP5mU4JT/EcJqRi9zkIS/5yE8B +ClKIwrFffrdsnLP8MCNoTpHYJfNynJHXMpIWFI09MS8f5yuvYxQtKcYC8wrx +LOP9ZDStKB5nZF6Rs/EuMobWlIj7Na8UzzDeO8bShiTuN6/MuXhHGEdbSrLQ +vErsRrwPpNKOUiwyr8r52HXG057SLDavxoXYRybQgTIsMa/OF/GcmUhHyrLU +vAZfxjNjEp0oxzLzmlyUn2UynSnPcvNaXJLXM4UuVGCFeW2+kjcwla5UZKV5 +Hb6WNzKNblRilXldvpE3MZ1kKrPavB7fypuZQXeqsMa8PpflLcykB1VjR80b +cCX2lFn0pFrsn3lDvpO3MpteVI/9M2/E9/I25tCbGrFb5o35Qd7OXPrEGZm1 +5S95dzxndup7kpGj+n3xHUM+jjM58f//wTVd+w8ySOct + "], 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]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 13}, {0., 1.9701485006351023`}}, + "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:eJwV13k0lP8XB3CJFiUziJmxhBm7FCUi7g0hSpS9xVpZsxMRCokSIUIlJApJ +ZW0he18pWVpIUmMnlZRt5vf8/przOmfO53nu577vPTOSTt4Hj3NycHAMreDg ++P9nUNih9RwcJFwa2XKyxJsJ5Q0eeV2cJFRSp38RO8WEKZ5ozbvcJDyyrPsp +1ZMJLtcfu5quI2ESWSL2mhsTzCs2NmULkbBodcD4mDMTLi1vPuJDJeH3o88f +XnFiQqu+wW89URLKtgtY7nJkgk5XkOSEJAk30NqP3DvGBKWZ9+E7N5Nw0MOk ++JMtE06qzwjybiVhcNf1K1U2TMg9u6Z4UJWEnareRTesmUDl3fnpggYJpf0d +S8MtmWBhYe57WIuE9NMnyk5bMCEpy23NFh0Snrj5UujMISasUsjc0atHwvm0 +JJ1r5kzQ9S1/XWRAwovNFOEHZkwIr3rlEr6XhB8qGOfeHGDCrMHiVcYB4vyP +KjqypkzYkiig8M+chEZ3AguO7WeCe49i/X8WJPyo9/LNjX1M+Op85IefHQmF +UtVSt5kwQfR+QKzBURKKcrYZxBszwebXJTGaAwl1M3TGRvcyIWXnncdTTiSc +OWR74QDhjshnJvXHieeLf1V6bsQEntaeoVRXEhY8zWVuJ7yHbzrE1YOED6u8 +nz0yZMLTG+KFfL4k7Dh1cb7NgAl/v++Ab/4k5A9PCnQkrKp0oLciiISFHsK4 +gvAp/5Ne8SEkbEtadbxoDxOKaiK4joWR8Hq68Ywt4e8rMrJUIoj79uye4ics +sbdMlfscCbvkrrt16zPhcFJr24doEpLZyd43CV97P+hQfIGEyjJP1/kSfic+ +/zcinoQLjRTjfYR5T5CvHLpMQt/PxTu2EjYqkZeRTSJhunrUZ1HC0bO7ny1c +JaHtvlxjfsIvtOwsOtKI87dKxJMIL5zzm7idQcL+sA2FwoR3vIo/F5hFwr5d +0WWyhH3JedS9N0ko3J31AAkX29SWid4m+jPu99CJ8OitLsOZPBI6Wii8vEyY +PjIx0FBAws/LzKl6wseUuYLSi4j772xHNuHMQFFej2ISeuevadlD1N/zdHu+ +zgPi/WnNl9IIk7j2a/GXE/Vd3X5zmvA+k+PvmI9JqMgXu9qcuN9IkdcGc5Uk +THhiaNFM+PHE9tpVtSTUFmTUGBD9Gq3N3iL8nIRPu0uN3hEWvcSVL1tPQvGq +s3xuRH/NjnhSNBqJfPpuFl9H5CFaqfuSUQsJh89ZR1cRnmzPC3R7TeT7VXaa +GpEviRvrxkPekjC/eNmem8ifhZf/sfguEsJPl7pBwk959QzvfyTht5SxqBoi +vzOf79XW9pNwNcdRzmoi34xS/q3tX0hon3nOuoHIf4LpEGWKScK1GrefLx5k +wnNx48vLoyR8XLT4Q56Yp1/TD1dsmCSha9er7S7EvNldiRpX/kXCgx9S1JeJ +eUy0HzsGf4h6Lf4IHiHm9+UW864D/0g44Z+p32LHBIW3Ek99WCQ8rhn18eVR +4v5z4rZGrSDjSjvFY4fsmXDVZyY/mYuMpRVj/jMORP9JdZfLecg4+u1UspkL +E16Z29vPCpExrfifyT0PJrAkW7q4aGQc33SHdNuLyPsvZaONYmQsPvvlWz6x +vzKvsrbuoJNRrCVrtsufmNeuG5ynt5BxVm8poDOMCTfzuIPjVMlIL552Vo0g +8uvvNZGhRkYV4xMDOVFM0BTU7q7WIuMMv/TjglgmrLXsv7NoSEblhJdp1slM +2CWtT1tvQkbh3vcpMqlM8PlzP1HUlIzOKjHXV6Yz4UPamWBtCzKmn7OeH8lm +QmEvbW+EAxklV3hVHy4i5sHGdpIzhIwnMyyzlhqZEPS32uXLGTIe1h9+5d/K +hDvXaJ9rz5IxNDFu7b//mMDZ0/c6IJqMl2Ref5ftYsIz82MPhq+QkWHrdFJm +iKjfxNnvVQEZ7zbUMYo4h8FhvGG8oIiMW5XEp+dWDcOViwzn88Vk5DYxiz24 +bhgmW5iHdpWTschlyXyb4DDc1XdVK31GnGcwkJUtMwyiOl7/krvJeG3f05UU +02Ew/vza59R7MuqBrqTRoWEICVMeM/5ExubPtMZYm2HorfnxceUgGQ+s+tS0 +xXkYktX9agMnyDiU4zWhEjIMq1SCz9py8qPPrS9SHIXD8IMexSW5lR/drbUD +15NHwFM6V/yHKj+ma77vXxYegXGZBo1navzosijoxxIfgWF5bi9bLX58Ydpp +uHnzCAxsudiTbMCP3Ic/XdI1HoEOreQCzqP8WHJ2qeDghREoPnTb6PtFfvwV +GBytwzsKCpYvncov8eM/XWUmQ2gUCq2+hUVe4ce+9A1OIptGId9W+qFoGj/u +lspt1VAZhSz7IqplDj8Oyx+bVrMahXiPh+NNFfx4atbztE7eKLidr7909xth +Pud99/aOwSCvanT5MD8mxTtlXrIcA6uM3DPPxvjxocTn+HOOY6BXct696wc/ +PvhU4VgUMgZi7/cYsRf50XDcUu/bvTHoVHi10lpQAJW/66vykMdh57t3oav2 +CGCCffWA8uQ4lB3R8yMbCWBpi73LxYVxkBl55CZqIoCzGeOlf9dMgMBSqo2q +uQDq+NIT+GQmYEraesexowK4GXoklBwn4HZI388ngQIoppInI9Q3AWslv7se +LxDAxYMbIxM/T0Jo6H6XXUUC6Kp1o1VzahImuyrsBYoF8Obi3/q/S5PQEXvR +qv6hAH4xP1ScJzoFVyeV9cWeCSBPwGDmyyNTIFoVsqmnSwDb3pqpCA1OgfIB +vl79FYK4VJK/vffXNFiEa+oxjghio078RvG8GXhu/1tEw14QF1STjB+XzICc +bvGsiZMg3n5LvnSwagYWV4kX+LsKon/7xOq7r2cgN2nF2oYAQcy5S8kv/TcD +M3mtHY6XBXEz001Q2ewnXHplZXfruSAGNh5gpnL9gkZhf1+a5EZ0TE462Rfx +G1YbNPKFDG3EmLb1SsNX5+CP6t7iD9eE8I3i5i3v3eYh9w3PmpHrQtgusJZc +GjgPpp7tzn+yhXA7/ZxgRNQ8FNw5IMKfJ4R3gh7K8F2fBxuKVbzJAyHU0A9a +xWyZh5plJ9fnLUJ40lVOz4KxABGtYYz8f0K4YPxs/933C6B0XCeyfFEIp569 +fJA+tAAfVnD017GE8IaYcmjE1AJs1Tqf8plLGG2nrsxuX7kIQyUXOYXJwnjm +7c2dasqLoJ9ybfCivDAe//yTL+TcIqw9VpbtbSeMbgEx2ufoS1DW5r6096gw +8mQlFaUoLYGVmvQRhoMwBkz4+GWpLUH++kyRj8eFMfvvyi+XDZcAa89n6voK +Y4hLf8yS+xKcplhnbIwTRhVL96OzD5Zg9N1ySu0TYUwsqVqcVFmGKzpVv9Oq +hPHzetWU0p3LsOOe3yGfWmFs4Bt867J7GaKjRvil64VxX3Id7wOzZZDY2pmc +2C6MlElurepTy2BzOf+K4zeivtpUsczCZWg1NElYTabgikBSPwqw4PnG5ktd +AhR0i9vyxZHKgsffMPGWEAVTE01Lgjax4HbEjmR1UQquT90Yd0aRBaGVkukn +ZSlY/XPY5KcuC5Rk/+W2aFPw5sBbVow3C6T++OWnIAUzPsj3fQlgAaVh6o69 +HgWXhL+t3BzKAm77b4V/jSgoFLBL/HY0CwaudZTKWlCwQTi64kcGC5JX3am5 +4E5BScOlVokXLIjr3vT0kBcFm3SOmBc3sOBsbuazTT4UzKlsrVNoZYG7TlJd +ZSAFnULmdDg6WaAfdKZ5JJKChlsypXmHWDDHNH9nmE7B7sBmm3sr2DD5qL1L +IJOC/UPS847cbBiKMuz5kk3BI8oktfVr2fBGTPtDcC4FI2NUfTRIbCi0lBu4 +W0JBdTVa4g8xNtg1scZWN1JwVQk5uWcHG/aKtrWSWiio6CkIv3eyQcM/5S71 +FQUFe/ymObTZICQpd1zxLQWbO3kMJnXZ0BlmPmjaT8GqielkTlM21HWJvLD+ +QsHfTSIrc8zYUKowfMNhiIKytC6nzYfYcOlD6GG/UQpaGYuMCNuwwWh7fm/a +LAXTSI59io5sUE849eTmXwqeeaSRYeTMBpkhjdS7CxTcNpm70/I4G7iSXptX +c1DR58BrWR03NvweTt/6ciUVB2898qd5EPVrO/H9t4qKpcWnc4c92fBiYq69 +fz0V+ytdC019iPfRrb/P5KPiu8GOiHFfNmRfT4if5qfiz58XNYP82RBqKGHE +QaWiseCPw0eD2OB2c1xmrSgVPeuGG6qC2WDz5zE3/yYq7jvaQeYKYcOOvL0N +dGkqNj076+x+hg3SCwK5SnJU1KnJd4sJY4Og+UCkmiIVDUcD7JLC2bCysNBe +R5mKfFx+6gln2fCL5adjqEJFJ13kDIpgw1dLbTGz7VSs3nHnqVkkG94Wr16y +UafitaoLriJRbHi+8t0nR00q3m79sbqXcIlddrW7NhUNAlfdiDxH1PPwRIY/ +UvHp840KIufZEL9GJThMj4prz8Q9vEM4xH7RMsaAir80xtUkotngWtG0PXEv +FbfQR6rjCVvzJgmk76NiyZAJMgkbuNj9unWAinciudu3xLBBrZbRWXiQinuN +JB3cCTP4fzx4aEnFt3fb2amEBdyqE2tsqBhHtix9QJiz7rxXw2EqzvbJetcQ +/ilkuq/9GBU5pN7teUJ40Iui2ONIxYu5HDtyCL9pHFo74ELFm7ci9M4Qfi5S +Mjp8kop6zzT9DAgX+wW3/HCnIvfgruYVhLPadhf886LiGE+ZXgnxvvES62NW ++FJRVfvztBHh08G9zjwBVOw9oNTeTdR/siNHVyCYimLv6INmhK2kPSRFQ4n6 +hl23PCPub0+YGod0OBUdN714TiW8vYs9sDmSigm2a1JOEPfNH5WaDbFUTPme +LN5J9GupwDpC8CIVb9lNR7KIfjLbaU5jCVT0F+7XFSdcRbktm5JMxQstmn+3 +E3nI1XHhcU2looDIf78UibwkuMhO7UqnYjwoOmwMZcOxspLy4WwiHz6X8l4Q +eTPq9UmrvUVF03dHzkcSeVRZ2nY6KZeKz0OyRrcFEvNgVKOtWUhFlsKMtZ8f +G+59aW69/IiK0rUhx0yJ/Kdyx993qqCilNrd5Tx3NoQr7k9Ur6biSavz+ydd +2WAW3HXo63MqdlcGCP1/vuY2DA5sf0VF/l/Tvy8cJfqzPa9+7Wsq2hg+eu5/ +mA1tdifyB94Q5+VccT9oS+StYNItroeKghswYtSCDXo687N9g1Q0D0+0OG3C +BiWXp+/LvlHxycC1L4tGxP6Ij6iJGaais/f6KD8DNoz3cEdumaRi1aqD9J27 +2ZDkxb/u/F8qxq7tLlEi9lF/tqKkwgYajq3Rt3tE7Kvml9Mr2SQavlj6XOtB +Y8OD0YfDXQI0dEo9WCwszIZz2zWKw6k0FOnWtTMm9p1cu756J4OGfYyNnSKc +bAhYPLr/tBYNlSfd0oK+scDqng9vvA4Nu3jXnxT8wgIN2/Ovs3bTcHKb6K78 +TyxYqijc/8KQhri6RzyT2Mcxfr/3r7KgoVW2AN/gcxZcG4szTfWkYdarlaJf +rrHgdEbWhgJvGvo1iVTnJrPAzrC0o9KPhjbqtiK2l1ggfqfLtO80DXNjRZxu +RrHgroP4AakYGmbvVXS45MGCqvePDpTdoGFp/fSlFdosyIxt5nuZQ9RPp139 +u4MFYWof33Tl0fB2QaPy160swBTWgb9FNFzbJnX8CoMFbaZ7zXQqaHhkTZGB +7ToWfGoaMGvvoKFrsyHPg95lWHq09uAom4YjDMndzS7LoNzU/2iCUwRbjV/c +8Dq6DPa9Dzb+4BbB1w+uPeOxWoaX/yw//lkngjdVd0fIGC5DnHauw0qKCKor +rrvGlFsGgRZNb/GtIhj782tE4vgSKHzyuGThIILfs2h3fpxYAmuOjua6OhGs +FGSE0gwXIXrwulJSgwj+C2k4aKizCGV1x6/aN4ugQaPFiVNqi7Amavko6z8R +3MZY9LxPX4SqFZv/aL0XwVH1CzpD7AWgrLxEr5wSwU8BObT9lQvwids4soQm +ily0/fquUgtwdF3zzswAUczQfXRBYfIfXLTI4bivLoZ73LYZa8nNgcOR0qan +U2IobKAX+u/ibziSe3OA+5E41gf0OFxrnwGlsLsnKwM24Zkb6+ONMifBgsfv +72NBCXxayjU060j8vg9cwSwKkkDr3jVDMpbfwbjunvmmdxIossStMrbuK3yy +cJhrVZTEm7TVp8ri+iFszeo9Gy5LYrRHprWW23to5dE5EpIoifply2FN1u9B +kDfQ//sVSbzgNWB92OA9FJO/3a65Kom3pNcJ36O/hz7aC9aJDEm08Emmdg30 +gubm4KoXeZJ4h/e8pKl1L/wzH1H0rZHErgv3a16Y9UBAVgt/94gkbkrwaN/n +0gW7nAoyjo5JolPop/TDFl3AJR8jPjIuiXFtR3yD9LsgtUJXYWFKEuVZXipv +GV3wpPPZbolZSYzY2UQVGH4Hc6sf+3hySKHuX78tb93fQUhATgcXVQol5ao+ +zoZ1wtn9IfFqxlLYGefCXR79Bk7t0fhaaSKFSbTD9oPub+CY9l91zf1SuK3i +e7yU+RvQ3hzI1DGTwgulP6WGxN7A0npfNLKSwjCz8ql9VR1wpt11zs5JCnft +bixvmnkNp01snCJDpfBtzn3qhHc7+O1V1/zvnhS+G0u8YJrfBl8Kf13dViyF +a4IXvp5JaoN9a0onskqkMMfj83+VYW0g08K44VkmhQ9HZOQOW7ZBnz4/x4YK +KaT9jlgwXd0G+jjVZFYvhYW8XZ1DXq0grJ5n3vteCp+vfRYTuqcFnjL43L5y +0ZFiZzTtK9oEBUZ+W11X0ZF3x5r+dJ4muOLZ83d6NR31j3Aatv9rBKfHWbFL +PHQso7x3c+hphDX6cvnCZDre8y6r2n6lEQ457/6yX4yOJQ5+u6K5G2H8tr9l +jRodpbsdGEFLL4Gy6cPulBN0XF4XcdafXA8R99TXcbjScVDyesyXlfUwrJbe +7elGPM8zd4XVXB082md10sCTjrZDlzWd+urANLT70rwvHTtFSF/m7tRBdM/b +9/bhdLySEn+GR7sOfia0eSml0lGXmmdvxnwOr/7VXG+qp2Nj30Nn99lasHmy +sE2xgY4hNbc3hA/UwoivZkdSIx2ruTnO5LTWAtdENeeRFjpqOhSfpN6oBZ3P +VR6/2ukoYjgJ7wxq4WF9hfamD3Q8XM571vJGDWTEl389PU1Hd76wvWZW1XBC +9J68kggD6cnrf9z6UwG+N5JVy0QZuI3v7BjrawWEiYdobRdnYN1vgYOnOiog +WcJo/y5JBk7eltp59m4F0Y9hn32yDFx8JvDTwa4C+DdLVXluY6DEFcNqmYYn +8Ew706DEhIGv4j5RDuc8BkH7eGflMAZyepoJ18WWQ7bhqVMZ4QwMu35t21hw +OTC2HgzhjGDgZak2tphbOWxfQbvSG8XAqUe+0fdMysEir6jm7AUG9tfeNjQl +l0PaSCv5zVUGXhfUI1XffAhCPqvrvIsYGGq4re5LfRlQoqJFH/YykHbV4oTJ +gVIQVSZd2/mBgWkhjarD20tBsi+L7+VHBl7UarifTisFBbVHnF39DLxS0Git +M1wCWmNfR2eHGNgqGXwx42wJHDOHJxo/GGhBqif5PCqGPMmF/XWrpdFTcn2i +0ub7oPzSO+KNhjRy28QIkI4WQlnv3wVtTWlsv39VTHVvIahORAQVa0njnNr3 +zS5qhaAmmOR1UUcabW51Kv/jLYRdJ8oO6+lL4/4i64MDL+7CXp6f6pUHpHH1 +7IRuhsxdcDnoN3PzhDSaNH9r8mLfgcyhAMdTqdL4uD81WrA/D/TlPpf0pEnj +YDpvpWJ7Hkx57VnYlS6NbgMBCQee5gHOb0xZlymNWVJlv55m5wGTr7Kx8JY0 +mr38XLj5WB5s1Z6X/XZPGpvntuw69i0XmtLDp63rpfGWS21V9dxtmNkXe2b3 +tDRuWTtWcAxyQMj62o6WH9KIvIqCWio5oOVY8HPfT2lUtCuootNzIDaw+aTN +rDTODleGU1fngNjNVRbeC9L4J8i+VPHWLTD+Eat0Y5UMzqQLPEluugn5yRc+ +/xOXwRd7Owbz6TfApjcOyg7IIHdiq0S9RCYsGqYtiZjLYM/mebvIdZlws/p2 +9YWDMniHadlkNncdvmfXbLO3lMEfvPd+M9qvg4/zpOyGwzJ46UmZxvXT1yFu +5gDJ84QMbuVOunanOwMqeYS/yobLIMfTfVY/M9JBCO6cu3VPBrPi/wSlHEgD +tUDbUvliGRweS1vdvCsNLO7zfnpUIoPb7qiLrFVIgxThIJXWMhlkdgpfreNK +A9KMweBMhQwKmtG3/K5JBZ7bo9q6DTKo2PGu204hFVicSvPf+2RwkxKtrEsw +BYaby70VeGWx6Ekef9LGZNisbOhZskEWFc7lLLxYlQwBaX2uW0my6CWhXbr0 +Nwk4XbicdgjIomr82X3Zn5JAbIWVhS5VFq1+6m33z0kCC615DTtpWVzo+GoY +pJwEDQ+AM15bFvmriQ10NxFyMtpTx7xkUVTr41XLiARwOXk05aC3LOrMGRP/ +FRJAbsd0cq2PLGpezR8aOpgAD7v4rlz2l8UHVkHdlTIJ8HLDoYsqIbK4cvJr +14438fA9+mN4SLQsvl1n8DWMHg9yvsMn1mbJYsbvq0GtH4je7eXYKd8qi3GZ +O+JC/WNhpl+joKxNFv+F77jVYB8LKj6+Ahr/yaLjgOCi2L5YKL82NGXQIYsB +wfp7VknHwuNvjbku3bK44aFsVN77GKgKv7g+Z1AWqyTaS1diDNQ/5B8UmpfF +z7vGVedEo+EdVfoCl4IcFnDO/LrDdQ6SBO3mfBXl8FaYkPbAnygw5bty/IuS +HL5XHcyRGomCV1zzejVb5PBH2NTlN21RUP+jncNHTQ414eZE1ZUoKGsKCO1D +OZxavrurXiwKEn0bvcqt5VA04Sr3Cd1IMG5ztnCIkcPFSTX1DTbhsPXP6dTm +WDmUXxL+5ofhsFEysVspTg6zE/9Ej8uFw+DpKov5eDlUiJ/z4l8IgyA5Xsur +SXKYR5tX1rsRBrkXKiwbs+SQNHrSWWTkDCzuWWstVy6H5RzqDzAuFIpfltrO +DMhhe+dSksVyMGx45LEmcFAO7TOnPZxHg8EnT65y/qscOrzqiYvuCoZt0bmC +K5mE7ch7l4uCoWbPtTcbJ4j3DxVSaLEOhrbW8D1af+Ww815SZ2lFEAx37FOJ +5ZPH9DjLOOeoQJDoG18jivK4iZQ9qmnoD2zV/OrY3fI43K2yO0bdHwbij7r/ +1JXHV/vjnPtl/SFb8+1/zXvkkd/jV1/ZGn+gZj5J9DWRx+nOqdCfr/yA3zZS +sMVKHjOtTGJbzf2A+/1GCT8v4vsGc/Q4V18Yf4fqrZnyGLJh/Li/jzcUyJkI +Hc2Wx7B/r5Y/HvIGx7OWf37ekMdD+7lS7dS94YO8+yOR2/L4oVTnaBHrFDRH +pmzxviuP2fdKukITT8Ft5WFZocfyWMejJ/qx3Ats4hMoLq/lsdxnXzmT1xME +B9P+/uuQJ/q1ds5+1gPeqOX0Xn4rjw/emnn9/OQBBl8fp1Z2yaNZr1mubaEH +bNMYIK37JI+Wxps+79L3gA3DW9eWD8vjqHlNwq5Id3ilpTVqMCqPwjkKByVc +3SEmeU9L35g8qjxaXEkzc4elXXYx3FPyqJ2585OphDuMp5xfYftbHovLneWe +1rtBwdjlwalZeRwPzpTYf88NHCHjxbk5eXz78M+J31fd4MN4cXjxvDyadv6X +FOHiBilYeWT3ojx+TPtv//H9bmB6rV6rd0keXbzm1znscAOeyf9oHiyinxp6 +Vd6b3KBpd+88my2PJaKFkLrGDf4HRiu+4g== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 13}, {0., 1.9701485006351023`}}, + "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:eJwV13k0lP8XB3CJFiUziJmxhBm7FCUi7g0hSpS9xVpZsxMRCokSIUIlJApJ +ZW0he18pWVpIUmMnlZRt5vf8/przOmfO53nu577vPTOSTt4Hj3NycHAMreDg ++P9nUNih9RwcJFwa2XKyxJsJ5Q0eeV2cJFRSp38RO8WEKZ5ozbvcJDyyrPsp +1ZMJLtcfu5quI2ESWSL2mhsTzCs2NmULkbBodcD4mDMTLi1vPuJDJeH3o88f +XnFiQqu+wW89URLKtgtY7nJkgk5XkOSEJAk30NqP3DvGBKWZ9+E7N5Nw0MOk ++JMtE06qzwjybiVhcNf1K1U2TMg9u6Z4UJWEnareRTesmUDl3fnpggYJpf0d +S8MtmWBhYe57WIuE9NMnyk5bMCEpy23NFh0Snrj5UujMISasUsjc0atHwvm0 +JJ1r5kzQ9S1/XWRAwovNFOEHZkwIr3rlEr6XhB8qGOfeHGDCrMHiVcYB4vyP +KjqypkzYkiig8M+chEZ3AguO7WeCe49i/X8WJPyo9/LNjX1M+Op85IefHQmF +UtVSt5kwQfR+QKzBURKKcrYZxBszwebXJTGaAwl1M3TGRvcyIWXnncdTTiSc +OWR74QDhjshnJvXHieeLf1V6bsQEntaeoVRXEhY8zWVuJ7yHbzrE1YOED6u8 +nz0yZMLTG+KFfL4k7Dh1cb7NgAl/v++Ab/4k5A9PCnQkrKp0oLciiISFHsK4 +gvAp/5Ne8SEkbEtadbxoDxOKaiK4joWR8Hq68Ywt4e8rMrJUIoj79uye4ics +sbdMlfscCbvkrrt16zPhcFJr24doEpLZyd43CV97P+hQfIGEyjJP1/kSfic+ +/zcinoQLjRTjfYR5T5CvHLpMQt/PxTu2EjYqkZeRTSJhunrUZ1HC0bO7ny1c +JaHtvlxjfsIvtOwsOtKI87dKxJMIL5zzm7idQcL+sA2FwoR3vIo/F5hFwr5d +0WWyhH3JedS9N0ko3J31AAkX29SWid4m+jPu99CJ8OitLsOZPBI6Wii8vEyY +PjIx0FBAws/LzKl6wseUuYLSi4j772xHNuHMQFFej2ISeuevadlD1N/zdHu+ +zgPi/WnNl9IIk7j2a/GXE/Vd3X5zmvA+k+PvmI9JqMgXu9qcuN9IkdcGc5Uk +THhiaNFM+PHE9tpVtSTUFmTUGBD9Gq3N3iL8nIRPu0uN3hEWvcSVL1tPQvGq +s3xuRH/NjnhSNBqJfPpuFl9H5CFaqfuSUQsJh89ZR1cRnmzPC3R7TeT7VXaa +GpEviRvrxkPekjC/eNmem8ifhZf/sfguEsJPl7pBwk959QzvfyTht5SxqBoi +vzOf79XW9pNwNcdRzmoi34xS/q3tX0hon3nOuoHIf4LpEGWKScK1GrefLx5k +wnNx48vLoyR8XLT4Q56Yp1/TD1dsmCSha9er7S7EvNldiRpX/kXCgx9S1JeJ +eUy0HzsGf4h6Lf4IHiHm9+UW864D/0g44Z+p32LHBIW3Ek99WCQ8rhn18eVR +4v5z4rZGrSDjSjvFY4fsmXDVZyY/mYuMpRVj/jMORP9JdZfLecg4+u1UspkL +E16Z29vPCpExrfifyT0PJrAkW7q4aGQc33SHdNuLyPsvZaONYmQsPvvlWz6x +vzKvsrbuoJNRrCVrtsufmNeuG5ynt5BxVm8poDOMCTfzuIPjVMlIL552Vo0g +8uvvNZGhRkYV4xMDOVFM0BTU7q7WIuMMv/TjglgmrLXsv7NoSEblhJdp1slM +2CWtT1tvQkbh3vcpMqlM8PlzP1HUlIzOKjHXV6Yz4UPamWBtCzKmn7OeH8lm +QmEvbW+EAxklV3hVHy4i5sHGdpIzhIwnMyyzlhqZEPS32uXLGTIe1h9+5d/K +hDvXaJ9rz5IxNDFu7b//mMDZ0/c6IJqMl2Ref5ftYsIz82MPhq+QkWHrdFJm +iKjfxNnvVQEZ7zbUMYo4h8FhvGG8oIiMW5XEp+dWDcOViwzn88Vk5DYxiz24 +bhgmW5iHdpWTschlyXyb4DDc1XdVK31GnGcwkJUtMwyiOl7/krvJeG3f05UU +02Ew/vza59R7MuqBrqTRoWEICVMeM/5ExubPtMZYm2HorfnxceUgGQ+s+tS0 +xXkYktX9agMnyDiU4zWhEjIMq1SCz9py8qPPrS9SHIXD8IMexSW5lR/drbUD +15NHwFM6V/yHKj+ma77vXxYegXGZBo1navzosijoxxIfgWF5bi9bLX58Ydpp +uHnzCAxsudiTbMCP3Ic/XdI1HoEOreQCzqP8WHJ2qeDghREoPnTb6PtFfvwV +GBytwzsKCpYvncov8eM/XWUmQ2gUCq2+hUVe4ce+9A1OIptGId9W+qFoGj/u +lspt1VAZhSz7IqplDj8Oyx+bVrMahXiPh+NNFfx4atbztE7eKLidr7909xth +Pud99/aOwSCvanT5MD8mxTtlXrIcA6uM3DPPxvjxocTn+HOOY6BXct696wc/ +PvhU4VgUMgZi7/cYsRf50XDcUu/bvTHoVHi10lpQAJW/66vykMdh57t3oav2 +CGCCffWA8uQ4lB3R8yMbCWBpi73LxYVxkBl55CZqIoCzGeOlf9dMgMBSqo2q +uQDq+NIT+GQmYEraesexowK4GXoklBwn4HZI388ngQIoppInI9Q3AWslv7se +LxDAxYMbIxM/T0Jo6H6XXUUC6Kp1o1VzahImuyrsBYoF8Obi3/q/S5PQEXvR +qv6hAH4xP1ScJzoFVyeV9cWeCSBPwGDmyyNTIFoVsqmnSwDb3pqpCA1OgfIB +vl79FYK4VJK/vffXNFiEa+oxjghio078RvG8GXhu/1tEw14QF1STjB+XzICc +bvGsiZMg3n5LvnSwagYWV4kX+LsKon/7xOq7r2cgN2nF2oYAQcy5S8kv/TcD +M3mtHY6XBXEz001Q2ewnXHplZXfruSAGNh5gpnL9gkZhf1+a5EZ0TE462Rfx +G1YbNPKFDG3EmLb1SsNX5+CP6t7iD9eE8I3i5i3v3eYh9w3PmpHrQtgusJZc +GjgPpp7tzn+yhXA7/ZxgRNQ8FNw5IMKfJ4R3gh7K8F2fBxuKVbzJAyHU0A9a +xWyZh5plJ9fnLUJ40lVOz4KxABGtYYz8f0K4YPxs/933C6B0XCeyfFEIp569 +fJA+tAAfVnD017GE8IaYcmjE1AJs1Tqf8plLGG2nrsxuX7kIQyUXOYXJwnjm +7c2dasqLoJ9ybfCivDAe//yTL+TcIqw9VpbtbSeMbgEx2ufoS1DW5r6096gw +8mQlFaUoLYGVmvQRhoMwBkz4+GWpLUH++kyRj8eFMfvvyi+XDZcAa89n6voK +Y4hLf8yS+xKcplhnbIwTRhVL96OzD5Zg9N1ySu0TYUwsqVqcVFmGKzpVv9Oq +hPHzetWU0p3LsOOe3yGfWmFs4Bt867J7GaKjRvil64VxX3Id7wOzZZDY2pmc +2C6MlElurepTy2BzOf+K4zeivtpUsczCZWg1NElYTabgikBSPwqw4PnG5ktd +AhR0i9vyxZHKgsffMPGWEAVTE01Lgjax4HbEjmR1UQquT90Yd0aRBaGVkukn +ZSlY/XPY5KcuC5Rk/+W2aFPw5sBbVow3C6T++OWnIAUzPsj3fQlgAaVh6o69 +HgWXhL+t3BzKAm77b4V/jSgoFLBL/HY0CwaudZTKWlCwQTi64kcGC5JX3am5 +4E5BScOlVokXLIjr3vT0kBcFm3SOmBc3sOBsbuazTT4UzKlsrVNoZYG7TlJd +ZSAFnULmdDg6WaAfdKZ5JJKChlsypXmHWDDHNH9nmE7B7sBmm3sr2DD5qL1L +IJOC/UPS847cbBiKMuz5kk3BI8oktfVr2fBGTPtDcC4FI2NUfTRIbCi0lBu4 +W0JBdTVa4g8xNtg1scZWN1JwVQk5uWcHG/aKtrWSWiio6CkIv3eyQcM/5S71 +FQUFe/ymObTZICQpd1zxLQWbO3kMJnXZ0BlmPmjaT8GqielkTlM21HWJvLD+ +QsHfTSIrc8zYUKowfMNhiIKytC6nzYfYcOlD6GG/UQpaGYuMCNuwwWh7fm/a +LAXTSI59io5sUE849eTmXwqeeaSRYeTMBpkhjdS7CxTcNpm70/I4G7iSXptX +c1DR58BrWR03NvweTt/6ciUVB2898qd5EPVrO/H9t4qKpcWnc4c92fBiYq69 +fz0V+ytdC019iPfRrb/P5KPiu8GOiHFfNmRfT4if5qfiz58XNYP82RBqKGHE +QaWiseCPw0eD2OB2c1xmrSgVPeuGG6qC2WDz5zE3/yYq7jvaQeYKYcOOvL0N +dGkqNj076+x+hg3SCwK5SnJU1KnJd4sJY4Og+UCkmiIVDUcD7JLC2bCysNBe +R5mKfFx+6gln2fCL5adjqEJFJ13kDIpgw1dLbTGz7VSs3nHnqVkkG94Wr16y +UafitaoLriJRbHi+8t0nR00q3m79sbqXcIlddrW7NhUNAlfdiDxH1PPwRIY/ +UvHp840KIufZEL9GJThMj4prz8Q9vEM4xH7RMsaAir80xtUkotngWtG0PXEv +FbfQR6rjCVvzJgmk76NiyZAJMgkbuNj9unWAinciudu3xLBBrZbRWXiQinuN +JB3cCTP4fzx4aEnFt3fb2amEBdyqE2tsqBhHtix9QJiz7rxXw2EqzvbJetcQ +/ilkuq/9GBU5pN7teUJ40Iui2ONIxYu5HDtyCL9pHFo74ELFm7ci9M4Qfi5S +Mjp8kop6zzT9DAgX+wW3/HCnIvfgruYVhLPadhf886LiGE+ZXgnxvvES62NW ++FJRVfvztBHh08G9zjwBVOw9oNTeTdR/siNHVyCYimLv6INmhK2kPSRFQ4n6 +hl23PCPub0+YGod0OBUdN714TiW8vYs9sDmSigm2a1JOEPfNH5WaDbFUTPme +LN5J9GupwDpC8CIVb9lNR7KIfjLbaU5jCVT0F+7XFSdcRbktm5JMxQstmn+3 +E3nI1XHhcU2looDIf78UibwkuMhO7UqnYjwoOmwMZcOxspLy4WwiHz6X8l4Q +eTPq9UmrvUVF03dHzkcSeVRZ2nY6KZeKz0OyRrcFEvNgVKOtWUhFlsKMtZ8f +G+59aW69/IiK0rUhx0yJ/Kdyx993qqCilNrd5Tx3NoQr7k9Ur6biSavz+ydd +2WAW3HXo63MqdlcGCP1/vuY2DA5sf0VF/l/Tvy8cJfqzPa9+7Wsq2hg+eu5/ +mA1tdifyB94Q5+VccT9oS+StYNItroeKghswYtSCDXo687N9g1Q0D0+0OG3C +BiWXp+/LvlHxycC1L4tGxP6Ij6iJGaais/f6KD8DNoz3cEdumaRi1aqD9J27 +2ZDkxb/u/F8qxq7tLlEi9lF/tqKkwgYajq3Rt3tE7Kvml9Mr2SQavlj6XOtB +Y8OD0YfDXQI0dEo9WCwszIZz2zWKw6k0FOnWtTMm9p1cu756J4OGfYyNnSKc +bAhYPLr/tBYNlSfd0oK+scDqng9vvA4Nu3jXnxT8wgIN2/Ovs3bTcHKb6K78 +TyxYqijc/8KQhri6RzyT2Mcxfr/3r7KgoVW2AN/gcxZcG4szTfWkYdarlaJf +rrHgdEbWhgJvGvo1iVTnJrPAzrC0o9KPhjbqtiK2l1ggfqfLtO80DXNjRZxu +RrHgroP4AakYGmbvVXS45MGCqvePDpTdoGFp/fSlFdosyIxt5nuZQ9RPp139 +u4MFYWof33Tl0fB2QaPy160swBTWgb9FNFzbJnX8CoMFbaZ7zXQqaHhkTZGB +7ToWfGoaMGvvoKFrsyHPg95lWHq09uAom4YjDMndzS7LoNzU/2iCUwRbjV/c +8Dq6DPa9Dzb+4BbB1w+uPeOxWoaX/yw//lkngjdVd0fIGC5DnHauw0qKCKor +rrvGlFsGgRZNb/GtIhj782tE4vgSKHzyuGThIILfs2h3fpxYAmuOjua6OhGs +FGSE0gwXIXrwulJSgwj+C2k4aKizCGV1x6/aN4ugQaPFiVNqi7Amavko6z8R +3MZY9LxPX4SqFZv/aL0XwVH1CzpD7AWgrLxEr5wSwU8BObT9lQvwids4soQm +ily0/fquUgtwdF3zzswAUczQfXRBYfIfXLTI4bivLoZ73LYZa8nNgcOR0qan +U2IobKAX+u/ibziSe3OA+5E41gf0OFxrnwGlsLsnKwM24Zkb6+ONMifBgsfv +72NBCXxayjU060j8vg9cwSwKkkDr3jVDMpbfwbjunvmmdxIossStMrbuK3yy +cJhrVZTEm7TVp8ri+iFszeo9Gy5LYrRHprWW23to5dE5EpIoifply2FN1u9B +kDfQ//sVSbzgNWB92OA9FJO/3a65Kom3pNcJ36O/hz7aC9aJDEm08Emmdg30 +gubm4KoXeZJ4h/e8pKl1L/wzH1H0rZHErgv3a16Y9UBAVgt/94gkbkrwaN/n +0gW7nAoyjo5JolPop/TDFl3AJR8jPjIuiXFtR3yD9LsgtUJXYWFKEuVZXipv +GV3wpPPZbolZSYzY2UQVGH4Hc6sf+3hySKHuX78tb93fQUhATgcXVQol5ao+ +zoZ1wtn9IfFqxlLYGefCXR79Bk7t0fhaaSKFSbTD9oPub+CY9l91zf1SuK3i +e7yU+RvQ3hzI1DGTwgulP6WGxN7A0npfNLKSwjCz8ql9VR1wpt11zs5JCnft +bixvmnkNp01snCJDpfBtzn3qhHc7+O1V1/zvnhS+G0u8YJrfBl8Kf13dViyF +a4IXvp5JaoN9a0onskqkMMfj83+VYW0g08K44VkmhQ9HZOQOW7ZBnz4/x4YK +KaT9jlgwXd0G+jjVZFYvhYW8XZ1DXq0grJ5n3vteCp+vfRYTuqcFnjL43L5y +0ZFiZzTtK9oEBUZ+W11X0ZF3x5r+dJ4muOLZ83d6NR31j3Aatv9rBKfHWbFL +PHQso7x3c+hphDX6cvnCZDre8y6r2n6lEQ457/6yX4yOJQ5+u6K5G2H8tr9l +jRodpbsdGEFLL4Gy6cPulBN0XF4XcdafXA8R99TXcbjScVDyesyXlfUwrJbe +7elGPM8zd4XVXB082md10sCTjrZDlzWd+urANLT70rwvHTtFSF/m7tRBdM/b +9/bhdLySEn+GR7sOfia0eSml0lGXmmdvxnwOr/7VXG+qp2Nj30Nn99lasHmy +sE2xgY4hNbc3hA/UwoivZkdSIx2ruTnO5LTWAtdENeeRFjpqOhSfpN6oBZ3P +VR6/2ukoYjgJ7wxq4WF9hfamD3Q8XM571vJGDWTEl389PU1Hd76wvWZW1XBC +9J68kggD6cnrf9z6UwG+N5JVy0QZuI3v7BjrawWEiYdobRdnYN1vgYOnOiog +WcJo/y5JBk7eltp59m4F0Y9hn32yDFx8JvDTwa4C+DdLVXluY6DEFcNqmYYn +8Ew706DEhIGv4j5RDuc8BkH7eGflMAZyepoJ18WWQ7bhqVMZ4QwMu35t21hw +OTC2HgzhjGDgZak2tphbOWxfQbvSG8XAqUe+0fdMysEir6jm7AUG9tfeNjQl +l0PaSCv5zVUGXhfUI1XffAhCPqvrvIsYGGq4re5LfRlQoqJFH/YykHbV4oTJ +gVIQVSZd2/mBgWkhjarD20tBsi+L7+VHBl7UarifTisFBbVHnF39DLxS0Git +M1wCWmNfR2eHGNgqGXwx42wJHDOHJxo/GGhBqif5PCqGPMmF/XWrpdFTcn2i +0ub7oPzSO+KNhjRy28QIkI4WQlnv3wVtTWlsv39VTHVvIahORAQVa0njnNr3 +zS5qhaAmmOR1UUcabW51Kv/jLYRdJ8oO6+lL4/4i64MDL+7CXp6f6pUHpHH1 +7IRuhsxdcDnoN3PzhDSaNH9r8mLfgcyhAMdTqdL4uD81WrA/D/TlPpf0pEnj +YDpvpWJ7Hkx57VnYlS6NbgMBCQee5gHOb0xZlymNWVJlv55m5wGTr7Kx8JY0 +mr38XLj5WB5s1Z6X/XZPGpvntuw69i0XmtLDp63rpfGWS21V9dxtmNkXe2b3 +tDRuWTtWcAxyQMj62o6WH9KIvIqCWio5oOVY8HPfT2lUtCuootNzIDaw+aTN +rDTODleGU1fngNjNVRbeC9L4J8i+VPHWLTD+Eat0Y5UMzqQLPEluugn5yRc+ +/xOXwRd7Owbz6TfApjcOyg7IIHdiq0S9RCYsGqYtiZjLYM/mebvIdZlws/p2 +9YWDMniHadlkNncdvmfXbLO3lMEfvPd+M9qvg4/zpOyGwzJ46UmZxvXT1yFu +5gDJ84QMbuVOunanOwMqeYS/yobLIMfTfVY/M9JBCO6cu3VPBrPi/wSlHEgD +tUDbUvliGRweS1vdvCsNLO7zfnpUIoPb7qiLrFVIgxThIJXWMhlkdgpfreNK +A9KMweBMhQwKmtG3/K5JBZ7bo9q6DTKo2PGu204hFVicSvPf+2RwkxKtrEsw +BYaby70VeGWx6Ekef9LGZNisbOhZskEWFc7lLLxYlQwBaX2uW0my6CWhXbr0 +Nwk4XbicdgjIomr82X3Zn5JAbIWVhS5VFq1+6m33z0kCC615DTtpWVzo+GoY +pJwEDQ+AM15bFvmriQ10NxFyMtpTx7xkUVTr41XLiARwOXk05aC3LOrMGRP/ +FRJAbsd0cq2PLGpezR8aOpgAD7v4rlz2l8UHVkHdlTIJ8HLDoYsqIbK4cvJr +14438fA9+mN4SLQsvl1n8DWMHg9yvsMn1mbJYsbvq0GtH4je7eXYKd8qi3GZ +O+JC/WNhpl+joKxNFv+F77jVYB8LKj6+Ahr/yaLjgOCi2L5YKL82NGXQIYsB +wfp7VknHwuNvjbku3bK44aFsVN77GKgKv7g+Z1AWqyTaS1diDNQ/5B8UmpfF +z7vGVedEo+EdVfoCl4IcFnDO/LrDdQ6SBO3mfBXl8FaYkPbAnygw5bty/IuS +HL5XHcyRGomCV1zzejVb5PBH2NTlN21RUP+jncNHTQ414eZE1ZUoKGsKCO1D +OZxavrurXiwKEn0bvcqt5VA04Sr3Cd1IMG5ztnCIkcPFSTX1DTbhsPXP6dTm +WDmUXxL+5ofhsFEysVspTg6zE/9Ej8uFw+DpKov5eDlUiJ/z4l8IgyA5Xsur +SXKYR5tX1rsRBrkXKiwbs+SQNHrSWWTkDCzuWWstVy6H5RzqDzAuFIpfltrO +DMhhe+dSksVyMGx45LEmcFAO7TOnPZxHg8EnT65y/qscOrzqiYvuCoZt0bmC +K5mE7ch7l4uCoWbPtTcbJ4j3DxVSaLEOhrbW8D1af+Ww815SZ2lFEAx37FOJ +5ZPH9DjLOOeoQJDoG18jivK4iZQ9qmnoD2zV/OrY3fI43K2yO0bdHwbij7r/ +1JXHV/vjnPtl/SFb8+1/zXvkkd/jV1/ZGn+gZj5J9DWRx+nOqdCfr/yA3zZS +sMVKHjOtTGJbzf2A+/1GCT8v4vsGc/Q4V18Yf4fqrZnyGLJh/Li/jzcUyJkI +Hc2Wx7B/r5Y/HvIGx7OWf37ekMdD+7lS7dS94YO8+yOR2/L4oVTnaBHrFDRH +pmzxviuP2fdKukITT8Ft5WFZocfyWMejJ/qx3Ats4hMoLq/lsdxnXzmT1xME +B9P+/uuQJ/q1ds5+1gPeqOX0Xn4rjw/emnn9/OQBBl8fp1Z2yaNZr1mubaEH +bNMYIK37JI+Wxps+79L3gA3DW9eWD8vjqHlNwq5Id3ilpTVqMCqPwjkKByVc +3SEmeU9L35g8qjxaXEkzc4elXXYx3FPyqJ2585OphDuMp5xfYftbHovLneWe +1rtBwdjlwalZeRwPzpTYf88NHCHjxbk5eXz78M+J31fd4MN4cXjxvDyadv6X +FOHiBilYeWT3ojx+TPtv//H9bmB6rV6rd0keXbzm1znscAOeyf9oHiyinxp6 +Vd6b3KBpd+88my2PJaKFkLrGDf4HRiu+4g== + "]]}, "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:eJwVl3k8VG8bxiUqSmYQM2MJM3YpSmS77xCiRNlbrJU1OxFJSVKJEKESEkKo +rC1k7ycl0qIkNXaipGwz73n/Op/zOc8557m373U9Ui6++49ycnBwDK7g4Pj/ +NSTiwDoODhIuDW8+XuLLhD1mR98yH5FQiT92taURE0zs7Cc4w8h4PN06c6mJ +CT/p0VxSWwTQ01Y3eB15GDzONVy+910AT/C77inaPQo8Uj/cj+YL4uL+DWcS +vkyAVaSWAeOQEDbpxW+QyJ2GJpFAf5rUBnROSjzeF/UbVhs18YcNbsDz7euU +h67NwR+13cUfrgvja6VNm997zAPPkbIsXwcR9Ag6r3uWvgRtxmaXVpMpuCKY +9BkFWeDQzBpd3UTBVSXkpHfb2SAQnZIFsVRM/pEk0RXFhqDFw3tPatNQZcIj +NeQ7C5Ye8uwfYdNwmCG1s8VtGWw5Olvq60WxSogRTjNehMNrW3ZkBIlhuv7D +C4oT/+CiVTbHfQ1x3OWx1VRbfg6cDpU2P5kURxEjg/B/F3/DoZxb/dwPJbAh +6J3T9Y5pUI64d7wqaCOeurku3iSDiJ834O8jIUl8Uso1OOs8AnnBK5iFIZJo +27tmUNb6B5jWF1lufCuJokvcqqNrv8EnK6e5NiUpvEVbfaIs7jNErFm9a/0V +KYzxyrDV9ngPQZmtAj3DUrjxklfHHrduOL03LF7dVBq74ty4K2JeQ8BuDa3/ +iqTx7WjCBfO8dnjC4Pf4xkVHioPJlL9YM1A2ftiZfIyOy2ujTgeSG+Dlv9ob +zQ10bOord/WcrYNjYkUKyqIMpCet+3n7TyUIOca7qkQwkNPbQqQ+tgIo0TFi +5b0MpF2zOma2rxRUXvhGvdaUQW6784KkwwWQMRjkfCJFBh99TokR+pwL03ti +T+2cksHNPKP5RyAb7HrjoGyfLHIntEk2SGaAMNw9e7tIFjPj/4Qk70uFoZYK +X0U+OSx8nCuQuCEJstM7UkZ95FBM++M166hLULabY4dCmxzGZWyPCw+MhbdU +mQtcivKYzzn96y7XWTBtd7VyOi+PixPqGuvtIqH4Ran9dL88dnQtJVoth4Jk +39gaMVTAjaSsES3jQBh7ixptGQoYtn7saKCfLzTv7J1nsxWwRKwAUtZ4wDfX +Qz8DHEgonKKestWMCS8tHR1nhcmYWvzPrMiLCWJ6Pv+Sesh4fc+TlRTzISg+ +cMfkx0UB/BUcGqPHNwI73r4NX7VLEC851vSrTIyByj7+XsMVQrhUkret99cU +XH5p43D7mRAGN+1jpnD9gqi2CEbeP2FcMH269977BRh5u5xc91gEE0qqFydU +lyFp1d3aC54UlDJeapN8zoLtubsb6TJUbH562tXzFBsM9OZn+waoaBmZYHXS +jA3V7x/uK7tJw9KGqcsrdFmg+MnrspWTKP7IpN39eWwJPnGbnimhiSEXba+h +u/QC/LMcVvKvlcLuC/drn1u8g7Cg7E4uqjRKyVd/nI3ogpNmdi5nwqXxTfZ9 +6rhvB4ho5Fr2vpfGZzxPz4fvaoWxO4HWtep0lOlxYoQsvYCZS+0+yil01Kfm +Olown0F6fMW3k1N09OSP2G1hUwNPdTOMSswY+DLuE+Vg9iMQ9ltd71vIwHDj +rfVfG8ogV2phb/1qGfSWWpegvOk+uO0PmL51TAbNWr43+7DvQnNa5JRtgwze +dqurrpm7A3lJF778k5DF57s7B/LoN6GKV+SbXKQscjzZYzOTngYsTuX5H32y +uFGZVtYtlAyND4AzXlcOBWq6REn3EkDef+gYT6Ycpv++FtL2IQ4aygUGhOfl +8IvOmNqcWAwk+Df5VNjKo9ila9zH9M/A4i4eW/kKeazg0HiAceEw1LlHNZZf +AdPirONco4OB+/0GyQAfBRQwmqPHufuDXfwlitsrBazw21PB5PMG5en3kTs2 +kXDAy6z4kz0TLpkPUiaZJOTRvPNscT8T1MxcA17mk/FeYz2jkHMIOrWT8jkP +C2DJ6aX8/ReGoUvx5UpbIUFU+WGoxkseA7HqsI3vugWx/Y2FqvDAJEzntnU6 +XxHCTUwPIRWLGahddnF/1iqMx93lDawYC3CSYpu+IU4EVa09D88+WAJluX85 +rboUvNX/hnXelwUm2/J6U2cpmEpy7lNyZkPR15a2Kw+pKFMXdsTcmw3XR+PM +U7xpmPlypdjX6ywQbNXyldgiirEz36ISxpaAsvIyvWpSFD8FZdP2Vi2A1qbQ +6ue5UniX75yUuW0vzK1+5OfNIY36fwM2v/F8C6c63OccXKRRZ2dTRfP0KzDE +yWaLBmks4OvuGvRpgwOuO7/uFadjiVOATgx3E8S8e/PeMZKOV5PjT/Hq1kN5 +Q6Xuxg90PFjBd9r6Zi0IbJKu9t7KQMmrxjWyjY8hdbiN/PoaA28IGZBqbpXD +EUt4rPmTgVakBpLfw2LYzTujUbVPBlfPjuuny96DLbrzct+LZLBlbrPOke85 +YPozVvnmKlmcThN8nNR8C+Km95G8j8niFu7E63d70oH3zoiufqMsKnW+7XFQ +TAEr7XlNBxk5XOj8Zhyikgg/Yj5GhsXI4Zu1Rt8i6PFQHXlxXfaAHFZLdpSu +xPNQ1hwU3ofyOLl8T6dBPBpyLlRaN2XKI2nkuKvo8Clob4vcpf1XHruKErtK +K0NAwP6MUKuNAmbYmMW2WQbAHZUhOeFHCljPayD2scIHrr8fcCq+QEIV2Sdr +/Q2ZwGP9+e6iMRlVLr1ItU1iwirV0NP2nALod/urNEfBEMR7lY81VxJ6Put9 +Ui93BO6E9c08DhZEcdVcWeG+cTBMvj5wUUEEj36Z4Q87uwh2V/KuOn8XQfu6 +FPGMgmWYY1q+NU6jYE9wi13RCjYwBH4+KLem4pt7HeyU82z4nKUkpbiehqNr +DB0eirPhU3O/RUcnDd1bjHkf9C7D+qEtPBVDCjhiWXtJ54wnWFZuaM4SJmHh +6qCxUVcmTHTkBnu8IiH9ZVaqOsHjp5ZHHgxdJSPD3uW47CAT+jdffJdkJIDc +Bz9d1jcdBvH3u0zYiwJoPGZt8L1oFK5NqBiKPxVE3qCBjBeHJiEncQVPY5AQ +Zt+j5JX+mwY7ik282QNh1DQMWcVsnQesO5eh7y+CYW6fzy95LkF4lVTacTkK +1swMmc3os6ArwnLA/DMFq8enkjjN2XCkrKRiKIuK/H6Xc5+HsuF8wO+9q6xo +aJMlyD/wjAVxujlOKymiqKG09jpTfhmqV2z6o/1eFEc0LugNshegj/acdSxd +Cq38kqjd/b3wuOvpTslZKYza0UwVHHoLS+v80cRGGiMsKib3VHdCn6EAx/pK +aaT9jlowX90Oawzl80TIdCzyLavedrUJzMN7Ls/705Gg29e5u/Wg96Xa61cH +HUWNJ+CtUR3hD4b89sgxcPGp4IyTQyVY5RbWnr7AwM91d4zNyRWgPfptZHaQ +gW1SoRfTT5eAzrGygwaGMri30HZ///N7wOSvaiq4LYMWL74UbDqSC+K3Vln5 +LsjgnxDHUqXbt8HPdUJu/UFZvPy4TPPGyRtAmjYamK6URSEL+ubftSkgvsLG +Sp8qhzYzBtsCsxPhxfoDF1XD5HDlxLfu7a/j4dH3phy3HjlcXy4Xnfv+PDT8 +7ODwU5dHLbg1Xn01GkLk+ayvJcpjLm1exeBmBNTuuv56wzjB53BhxVbbUKBm +PE7wN1PAqa7J8JmXAdByJnmz7z0FzCoq6Q5POAFPbkoU8PuTsPPExfl2wu96 +dt/kPLmZjLMGS0FdEUxI0gioCx4n42C2z7hq2BBkOhZSrbMFcEjhyJS6zQhM +ythuP3JYEDfBO0ll53EYLLnIKUIWwVNvbu1QV1kEyS1dSQkdIkiZ4NauObEM +hiGnWobPUNB4c4YM3yALShyyajx1qWgUvOrmmbNsSPQRWHvuLxVjeXpKlAk/ +226+20KvkoaH1hQa2a9lwVbNftLaTwpobbrxi46hF6xSzNjea0DC+dREveuW +TFB8I/nEj0XCo1rRH18cZsI9Q3f10qfEfBj1Z2bJDkH/9c5SOSsKNorEVP5M +Z8Hz8bmOz+uo+LnKvcDcjw1z6wf6t72kosCvqd8XDrPhnpPEPunzNMzareR0 +2YsF/uRc6u5bJBTpyXyABE8Kemm7o5zIKLXCp+ZgIXFvLd9/r4SCGuq0hJ/E +fGe278z/50PFUd4yg5IYNsh3GGp0MWjYx9jQJcrJhrHkcyvsfytgcYWr/JMG +D3C78cjdfC0JE8mSsdc9CH91mStProGEEtWn+T1MmMD5ru9VUAwZL8u++iHX +zYQhBW4fe20BfG7eZbxp0zAYlJzz7P4pgA8+VToXho1CZ+xFm4ZyQfxqeaA4 +V2wSFldJ5Ae6C2Fgx/jqe6+mIf/uPlGBXGG8G1Iuy39jHvLWZYh+PCqCWX9X +fr1ivAR3orYnaYhRcF3KhrhTSiwQlpI/qvSGgi1dvEYT+oS/otyRS06i4oVW +rb/bItiwVFmw97kxDXH1O4mMLha8+Gf98c9aUbyltjNK1ngZ1kQvH2b9J4pb +GYve9+mLUEz+fqf2mhTellkrUkR/DymV+ooLk1KowPJRfcPoBt1NwUw9C2m8 +UDojPSj+GmRbGTe9y6SxfFhW/qB1O7g8yoxd4qVjGeW9h9O7Jni4x+a4kTcd +7QevaLn01QPXeA3noVY6ajkVH6ferIMkSZO9OlIMnLgjveP0vUrYtoJ2tTea +gZMP/WOKzCpAUf0hZ/dnBl7Nb7LVGyoBdaFEn4t6Mmh3u0vlH18B4PyG5LUZ +MpgpXfbrSVYuxAa3HLeblcHZoapI6ups+JFVu9XRWhZ/8hX9ZnTcgGSRENW2 +Mllkdolcq+dKBU43LpftgnKoFn96T9anRCjv5r96JVAOH9iE9FTJXoKK64OT +Rp1yGBRquGuVTCy85Jo3qN0sjz8jJq+8bo+GgZPVVvPx8qgYP+cjsBABW2Ny +hFYy5dHJgbx7uTAUsrTe/Neyi/BbXr/6ytYEwgcFz4eidxTwQ6ne4ULWCeg8 +89Ss4SgJP0h8U35G9FPGNdaW7XQyirdmznYHMqG39ufHlQNk3LfqU/Nm1yHI +s5cpF0sVwJ3SOW2aqiMguJRip2YpiHr+9Ev8suOwRftc8hcuQv8mr85uW7kI +MdHDAjINIrgnqZ7vgcUyeOol1lcFU9AlbE6Pg+iHX6wAPWNVKrroI2cIcT4d +e8d9ZvMEFatX7afv2MkGTGbt+1tIQ5526aNXGSww+vYopapbAS16LXLsC7yA +yrfj0wVNEsoEOpdGWjPB4Wr0mMovEu7/kKyxbEvoYyvzgE4FGQvdliy3Cg0B +t+P3gr8mFBQO0pG4E8MCrsRXljUcVPTb90pOz4MNFqHdB749o2JPVZCw9VE2 +SNztNu87ScOcWFGXW9EsiJnd+XThGgnt9+SYChDz/iH1VKiuFRnTztrOD2cx +4bW47ofQHAqeOa/mp0liw4APRemdMxUv5nBszyb0/uw2zeJIKg1Fe/QdTInn +SzoO57knFVA3Y8cnc0lP0OsOkRqXIuF6WsehoiNMeMJnYHz/Iwm/J49G15oz +4fKH8IMBIxS0MRUdFrFjA5dJra5WARVZitO2AQFsKKyN4joSQcIbaabT9ruY +oCWk21OjTcZpAZlH+bFMcK9s3pawm4qb6cM18QR/Zo0WrzH2Efn7qKonR3x/ +gVR/pYKXjCPfTyRZuDEh3FjShINKRVOhnwcPh7AhK3/CI+4dFYXWY9SIFaHv +KlwhaYUknO7qQDaRDxsZLymxcCreHXLf/JTg94ex4sjieQU07/ovMcrNAyZ5 +Y7TucZPw0LL+pxRvJjwa31a3qo6EukKMWiNjJty9TvtSd5qM4QlxPP/+Y8KY +bKPmU3UBdFsUCmBJDINNes6pp6MCWC75Jf6s8yhMdFc6ChYL4q3Fvw1/lyZA +Xr941sxFCO+8IV/eXz0N5t4drn+yhHEb/axQVPQ82KjLHGI4iWDQuF9ApvoS +oaeYcFuYgikJ5iUhG1mgGZh8j/qSgkLvAqY4dNnA7KC5jF6iYqDIZ32J02zQ +tD/3KnMnDSe2iunkfWKBY++DDT+5RfHVg+tPeW2Woaz+6DXHFlE0arI6dkJ9 +EYT4ggN/XJXCCz79tgeN3gOXwnmJ4TEpjGs/5B9i2A1HdP9qaO2Vxq2VP+Kl +LV/DnjWl45kl0pjt9eW/qoh2uOr97u/UajoaHuI07vjXBEPqaT3eHsS9d84K +m7l6GPbX6kxsomMNN8ep7LY6iJAI094mwcD634L7T3RWAmPL/jDOKAZekW5n +i3tUgFRfJv+Ljwy8qN14P41WCmrjUSHF2jI4p/5jk5t6AUz67FrQSZNBj/6g +S/ue5IK2c/7MnhkZVHLIr6bTs+FWzZ2aC/tl8S7Tutli7gZY3ef79LBEFrfe +1RDlUUyFoNQ+9y0kOfSR1C1d+psI8tunkur85FDrWt7g4P5LoOrnL6j5nxw6 +9wstiu+JBXP+q0e/Ksvje7WBbOnhaNggldCjHCePWQl/YsbkI8EvV75q/hvB +s5fv4mK6Q6E//rDnjL4Cvtwb5/pZLhCcT1v/mbmpgAf2cqU4aPiC3a/L4jQn +Euqn642O7CbOi79UTDaIk7H49Nfveb5MCItQGTX9RMaWL7SmWLshKLD5HnHm +qgD2pa13Ed04ArLDDz3EzARxNn2s9O+acfiwguNzPUsYb4qrhEdNLsD2ooAD +fnUi2Mg/8MZt5zKczsl4utGPgtlVbfWKbSwQsuw/o65EReORIIfESDYIx0fV +nh+ioqvvuugAIzZEqH983Z1Lwzv5TSrftrDgtXp275U3CvjgjYXPzCcvyDm9 +pnhAjYRdar6FNwl+/ZoqX7F+goTu3S+3uRF8u3qR4XqumIzcZhax+9cOAaVx +8q6jAQWXRL6v3BTOAtlBzZR7CxTcOpGz4//8ilTam6BRQ8XjNuf2TrizwcG4 +tLMqgIZ2Gvai9pdZwHeMfPXAFRL6fynevoWYX78/9xPEzMnoqnr+xso0JgxG +G7/7mkXBQyok9XU8bOCsP+fTeJCKs31yvrUEzx6MlA91C9LQJWV/sYgI4e+T +drX2jSqg6sPFlTQLT2gzNPptIEZCuQ5Bax1nJlj5BB6J7yYhzLjVD+xhQqni +0E2nQQrK0bpdNh1gg+rS1pOJOVR8FpY5sjWYDWrK+3orQ0hY4CWCKwg/+jbQ +ZzxdnYyqpsf6s6OZEL9GNTTCgIo8p+LK754j4q1+6Ra5m9CzSsbZ1/uYcM1v +Oi+Ji4yllaOB005MyLpxKX5KgIozMxe1QgIJP+lwLK//NRWls6967rdnw8jt +buPpXBI6Wym+uELk42RorytvEBV79yl39BDfd4b052fnFPBN+Z9jv695QIxy +z2WTVhIOnbWNqSb67ZKb3KROGhXjQclpQzgbdvFPhbl7kbC82vfpQ4Jvb4pX +L9lpUPF69QV30WjC32Z6rNmsR8Jjt14InzrAhBebLbv3/SPheGCGYasDkX9d +F/7/VlGxtPhkzpA3GxbOBozfSSfh54j1BSLE/p6JlowMHaeiwVOtACOiHoxS +gS0dX0nomHHWttGCCZK7y9S4z5KwW/6GRw+x3sjN4dftfQSfz3B3bCbWe75T +avjPioQfDV68vknUw+7PI26BjVTcc7iTzBXGhndPtuXpPSD6g9ZyOZXQk23d +7P5NZ6h4yX5N8jFi/+bXG7R7lxTQzWd+rdN2D6ho9Mrt5iShsgb9q/gJJpwR +fWU0V0XCS4+NrVqI+oX8rXH7eoqMBw2HXga2McFbJkfip5oApmm9/7wsMgwD +fGoxFUMCmBjvknHZehTCw/e66RQKorv2zTatyQl45vhbVNNRCBfUEk0flUxD +zmveNcM3hLFDkIdcGjwPZe2eS7sPiyBvZmJhsvISPNvQcrlbkIIecZu/OlNZ +sFusvY3USkElbyH4vYPQ33zbKKGLVLztMHWGRfDdpsiPL16Pht18644LfWWB +SvPnh+Ocothm+vymz+FliBm4oZzYKIr/whr3G+stQhuv3qGwBCk0LFuOaLZ9 +Dzou+emHR6XQJfxT2kGrbjixS/NblZk0JtIOOg54voavBb+ubS2WxjWhC99O +JbZDvknAFvdVdOTbvuZzGm8zRBVprOVwp+OA1I3zX1c2gN3jha1KjXQMq72z +PrK/DvxvJqmViTFwK//pUda3SsgyPnEiPZKBETeubx0NrQAxFdL1HR8YmBrW +pDa0rRTKev8u6GrJYMf9a+JquwvAUP5LybtUGRxI46tS6sgFYdvr21t/yiDy +KQlpq2bDonHqkqilLL7bNO9wZm0GqAfblyoUy+LQaOrqFp1U2KRi7F2yXg4V +z2YvPF+VBG7HDyfv95VDvTlTEPS4BNOfNfPL2uXwX+T2242OsZAo5DDnrySP +tyOEdfv/RMOWPydTWmLlUYEAVgBGwvqHXmuCB+SJfp3ych0JBbZaXk3sTgUc +6lHdeV4jEPLlzYQPZylgxL+Xyx8P+ILY/aBYo8MkFONsN4o3ZQJLqrWbi0bG +sY13SXd8mGD65ZXfifdkNAB9KZMDQ6Bo/cKl4rIA/tNXYTKER6DskEEA2UQQ +S1sd3S4ujIHyUb0zFYvCOPn0xYO0wQW4qlf9O7VaBL+sU0su3bEMcT0bnxzw +oWCz3iHL4kYWyCwI5ijLU1GvNs/jPHG+UXZ78r7sOxUf91//umjChozYFv4X +2TQcpdOu/d1O6MFA6t9/nQpEvDxzjrNecFxjWohvCwlDu29crbYj5lfC9Mry +CAkfFS7+VLBigtNY41h+IRm3KEtMza0aAuk/AXnJSMH0Dwp9X4NYoHHpxONb +fyl46qFmuokrG1K44++7VBL8Ur+3nOvJhpPpmevzfWkY0Cxak5PEgrcS83+j +4km40EQx3UPMv46MIW2dGRlFet8ny6YQ/vhhR7dgBgU/D8rMO3OziRrWJNTa +UTGObF36gOBDy4uplWwSDZ8vfanzorHhpbb2iNGIAopkK+6XdPeEy8ubDvlR +Sfjj8LPyqy4Eb26uHQt7Q8K84mVHboIn9d2iz22/UvB3s+jKbAs2mPT6pdbd +pqL520PnzhB+8u+P7fA9kIQCkYnBzgQfbuVyh8apkZFePOWqFkXwuvxYeiBS +8cmzDYqiBH/1/SteFRqR8GILReQBwbcj2XFboleQcaWD0pEDjoSe6DfcZ/JT +8e1AZ9SYP+G/t+U28Lyiop3xw2eBB9lQbFdXJnaHhCZjAeUuRD7iJdedX+FP +RTXdL1MmhB/OH70yMDmrgGOhGZJ7izzA4pA3RbOJhPP+myTWEnzP0XPjdU+h +oqDof7+UTrGBt+3dYIo7CfOf5DC3Eeenb9a64hbbqFiz/e4TizNssLKy9D+o +TUL6yWNlJ4n6JjiOHoE/hN+1+iN0yJ4Jv4fStrxYScWB2w8DaV5seK7tYNWZ +SkLyFsl4ErG/102DPP1uVLx1O8rgFFGP6S9FdXWfSbia4zBnDaFvP1akZ6pG +Ef3k3TMpQPDZli9RMG0PFUsGzZBJxLM5QVDxnyUR793g/CN7meBxa0yWR4yK +3vVDjdWhRL8Gi/F5FZPQN29N6y7i/V0R6hwykVR03vj8GZXw78lYdWjnogJ+ +TP1v79G9HjBSl7VZ5BkJn/SUmrwl9Cx5x91Hky6E/z9gf2EfkZ+VBQWOeipU +5OcK0LhE8NSkREFWLpGEaRrRX8SIeGaEzfd0HKEih/TbXY+JeE4EHveJDyNh +e+Kqo4XE/8McF63PG1Hxl+aYuiSxf/rweH9jPgm/LDMnG4j3j3dm6wuGUlH8 +LX3AguiHZyvffnLWouKdtp+rewk92v4y/mxwJgn7dGLK5Ij1xQGhrT89qcg9 +oNOygvjfwcS29g8xRH7ZSb63iOfqdYyugv1U3G0i5eRJPCdx7dUWqCDm5dq2 +W1PEfngn/qN5sRQwTdOg2nejB/wPzou+4g== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1XWUVmUQB+Bd6ZLuXLq7QenupaVX6Vi6y0Sl0wA7SAmxUEBpwUalFBEU +DDDATnzm+Mez85u5Z89+971zv01KSU0el5iQkHDBj6hT/MjPMXkhL8i9yERf +/Xq1HX/Lh9UR7JFfUweQg3cZTy3ztepNfMSP+oPqMHbIr6i3cIpsvE18mHPM +c32r2pUTpOEooznLQddfV4dwhjy8z0TOc4PrU9UCfMhb+v3qbSySX1R7kzmu +MTY+i/kGtT3/yEfUkeyVd6sDyUlt/Tr1Zq7Kz7NL7seNzNdvU7uRlkP6NEyT +C8Z9yovpx0Z9B/6N+6EOj+ibcE3eye2kZbpZId6Rl9Cfujxq1pSf4nlxB+mY +YVY4noe8lAHU4zGzZvwc58CdpGemWRHek5cxkPpkYJZ50ThjeTmDaEBGMpGZ +2a4X4wN5BYNpyONmzflFfom7yMIcs+Icl1cyhEY8YdaCX+WXuZuszDUrEc9T +XkUKm/QduS6/QWOe1Lfkt9gx7mG7Ppl0HNZnY56cFLspr47PJvchC7fqN6ud +4qXgTUaxT7tHHUSuOCsmxI6bP6W24mN+1x9Sh/Mpu/Svqv05TfZ4jqTyOQtc +36F25yTpOcYYPuNI3J+awifkjXNmUuyca/PVkvG35QPqUNbE+al9yRq7r9+i +diaR/fq96mByxz7rn1Zb80d8Xu6N/db3IEOcgz577KRcihPyAwzlOX2XePc4 +oG/CM3Ib/ozvCO4jR+yoWem4V/lBhtGUnLGP5mU4JT/EcJqRi9zkIS/5yE8B +ClKIwrFffrdsnLP8MCNoTpHYJfNynJHXMpIWFI09MS8f5yuvYxQtKcYC8wrx +LOP9ZDStKB5nZF6Rs/EuMobWlIj7Na8UzzDeO8bShiTuN6/MuXhHGEdbSrLQ +vErsRrwPpNKOUiwyr8r52HXG057SLDavxoXYRybQgTIsMa/OF/GcmUhHyrLU +vAZfxjNjEp0oxzLzmlyUn2UynSnPcvNaXJLXM4UuVGCFeW2+kjcwla5UZKV5 +Hb6WNzKNblRilXldvpE3MZ1kKrPavB7fypuZQXeqsMa8PpflLcykB1VjR80b +cCX2lFn0pFrsn3lDvpO3MpteVI/9M2/E9/I25tCbGrFb5o35Qd7OXPrEGZm1 +5S95dzxndup7kpGj+n3xHUM+jjM58f//wTVd+w8ySOct + "], 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]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 13}, {0., 1.9701485006351023`}}, + "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:eJwV13k0lP8XB3CJFiUziJmxhBm7FCUi7g0hSpS9xVpZsxMRCokSIUIlJApJ +ZW0he18pWVpIUmMnlZRt5vf8/przOmfO53nu577vPTOSTt4Hj3NycHAMreDg ++P9nUNih9RwcJFwa2XKyxJsJ5Q0eeV2cJFRSp38RO8WEKZ5ozbvcJDyyrPsp +1ZMJLtcfu5quI2ESWSL2mhsTzCs2NmULkbBodcD4mDMTLi1vPuJDJeH3o88f +XnFiQqu+wW89URLKtgtY7nJkgk5XkOSEJAk30NqP3DvGBKWZ9+E7N5Nw0MOk ++JMtE06qzwjybiVhcNf1K1U2TMg9u6Z4UJWEnareRTesmUDl3fnpggYJpf0d +S8MtmWBhYe57WIuE9NMnyk5bMCEpy23NFh0Snrj5UujMISasUsjc0atHwvm0 +JJ1r5kzQ9S1/XWRAwovNFOEHZkwIr3rlEr6XhB8qGOfeHGDCrMHiVcYB4vyP +KjqypkzYkiig8M+chEZ3AguO7WeCe49i/X8WJPyo9/LNjX1M+Op85IefHQmF +UtVSt5kwQfR+QKzBURKKcrYZxBszwebXJTGaAwl1M3TGRvcyIWXnncdTTiSc +OWR74QDhjshnJvXHieeLf1V6bsQEntaeoVRXEhY8zWVuJ7yHbzrE1YOED6u8 +nz0yZMLTG+KFfL4k7Dh1cb7NgAl/v++Ab/4k5A9PCnQkrKp0oLciiISFHsK4 +gvAp/5Ne8SEkbEtadbxoDxOKaiK4joWR8Hq68Ywt4e8rMrJUIoj79uye4ics +sbdMlfscCbvkrrt16zPhcFJr24doEpLZyd43CV97P+hQfIGEyjJP1/kSfic+ +/zcinoQLjRTjfYR5T5CvHLpMQt/PxTu2EjYqkZeRTSJhunrUZ1HC0bO7ny1c +JaHtvlxjfsIvtOwsOtKI87dKxJMIL5zzm7idQcL+sA2FwoR3vIo/F5hFwr5d +0WWyhH3JedS9N0ko3J31AAkX29SWid4m+jPu99CJ8OitLsOZPBI6Wii8vEyY +PjIx0FBAws/LzKl6wseUuYLSi4j772xHNuHMQFFej2ISeuevadlD1N/zdHu+ +zgPi/WnNl9IIk7j2a/GXE/Vd3X5zmvA+k+PvmI9JqMgXu9qcuN9IkdcGc5Uk +THhiaNFM+PHE9tpVtSTUFmTUGBD9Gq3N3iL8nIRPu0uN3hEWvcSVL1tPQvGq +s3xuRH/NjnhSNBqJfPpuFl9H5CFaqfuSUQsJh89ZR1cRnmzPC3R7TeT7VXaa +GpEviRvrxkPekjC/eNmem8ifhZf/sfguEsJPl7pBwk959QzvfyTht5SxqBoi +vzOf79XW9pNwNcdRzmoi34xS/q3tX0hon3nOuoHIf4LpEGWKScK1GrefLx5k +wnNx48vLoyR8XLT4Q56Yp1/TD1dsmCSha9er7S7EvNldiRpX/kXCgx9S1JeJ +eUy0HzsGf4h6Lf4IHiHm9+UW864D/0g44Z+p32LHBIW3Ek99WCQ8rhn18eVR +4v5z4rZGrSDjSjvFY4fsmXDVZyY/mYuMpRVj/jMORP9JdZfLecg4+u1UspkL +E16Z29vPCpExrfifyT0PJrAkW7q4aGQc33SHdNuLyPsvZaONYmQsPvvlWz6x +vzKvsrbuoJNRrCVrtsufmNeuG5ynt5BxVm8poDOMCTfzuIPjVMlIL552Vo0g +8uvvNZGhRkYV4xMDOVFM0BTU7q7WIuMMv/TjglgmrLXsv7NoSEblhJdp1slM +2CWtT1tvQkbh3vcpMqlM8PlzP1HUlIzOKjHXV6Yz4UPamWBtCzKmn7OeH8lm +QmEvbW+EAxklV3hVHy4i5sHGdpIzhIwnMyyzlhqZEPS32uXLGTIe1h9+5d/K +hDvXaJ9rz5IxNDFu7b//mMDZ0/c6IJqMl2Ref5ftYsIz82MPhq+QkWHrdFJm +iKjfxNnvVQEZ7zbUMYo4h8FhvGG8oIiMW5XEp+dWDcOViwzn88Vk5DYxiz24 +bhgmW5iHdpWTschlyXyb4DDc1XdVK31GnGcwkJUtMwyiOl7/krvJeG3f05UU +02Ew/vza59R7MuqBrqTRoWEICVMeM/5ExubPtMZYm2HorfnxceUgGQ+s+tS0 +xXkYktX9agMnyDiU4zWhEjIMq1SCz9py8qPPrS9SHIXD8IMexSW5lR/drbUD +15NHwFM6V/yHKj+ma77vXxYegXGZBo1navzosijoxxIfgWF5bi9bLX58Ydpp +uHnzCAxsudiTbMCP3Ic/XdI1HoEOreQCzqP8WHJ2qeDghREoPnTb6PtFfvwV +GBytwzsKCpYvncov8eM/XWUmQ2gUCq2+hUVe4ce+9A1OIptGId9W+qFoGj/u +lspt1VAZhSz7IqplDj8Oyx+bVrMahXiPh+NNFfx4atbztE7eKLidr7909xth +Pud99/aOwSCvanT5MD8mxTtlXrIcA6uM3DPPxvjxocTn+HOOY6BXct696wc/ +PvhU4VgUMgZi7/cYsRf50XDcUu/bvTHoVHi10lpQAJW/66vykMdh57t3oav2 +CGCCffWA8uQ4lB3R8yMbCWBpi73LxYVxkBl55CZqIoCzGeOlf9dMgMBSqo2q +uQDq+NIT+GQmYEraesexowK4GXoklBwn4HZI388ngQIoppInI9Q3AWslv7se +LxDAxYMbIxM/T0Jo6H6XXUUC6Kp1o1VzahImuyrsBYoF8Obi3/q/S5PQEXvR +qv6hAH4xP1ScJzoFVyeV9cWeCSBPwGDmyyNTIFoVsqmnSwDb3pqpCA1OgfIB +vl79FYK4VJK/vffXNFiEa+oxjghio078RvG8GXhu/1tEw14QF1STjB+XzICc +bvGsiZMg3n5LvnSwagYWV4kX+LsKon/7xOq7r2cgN2nF2oYAQcy5S8kv/TcD +M3mtHY6XBXEz001Q2ewnXHplZXfruSAGNh5gpnL9gkZhf1+a5EZ0TE462Rfx +G1YbNPKFDG3EmLb1SsNX5+CP6t7iD9eE8I3i5i3v3eYh9w3PmpHrQtgusJZc +GjgPpp7tzn+yhXA7/ZxgRNQ8FNw5IMKfJ4R3gh7K8F2fBxuKVbzJAyHU0A9a +xWyZh5plJ9fnLUJ40lVOz4KxABGtYYz8f0K4YPxs/933C6B0XCeyfFEIp569 +fJA+tAAfVnD017GE8IaYcmjE1AJs1Tqf8plLGG2nrsxuX7kIQyUXOYXJwnjm +7c2dasqLoJ9ybfCivDAe//yTL+TcIqw9VpbtbSeMbgEx2ufoS1DW5r6096gw +8mQlFaUoLYGVmvQRhoMwBkz4+GWpLUH++kyRj8eFMfvvyi+XDZcAa89n6voK +Y4hLf8yS+xKcplhnbIwTRhVL96OzD5Zg9N1ySu0TYUwsqVqcVFmGKzpVv9Oq +hPHzetWU0p3LsOOe3yGfWmFs4Bt867J7GaKjRvil64VxX3Id7wOzZZDY2pmc +2C6MlElurepTy2BzOf+K4zeivtpUsczCZWg1NElYTabgikBSPwqw4PnG5ktd +AhR0i9vyxZHKgsffMPGWEAVTE01Lgjax4HbEjmR1UQquT90Yd0aRBaGVkukn +ZSlY/XPY5KcuC5Rk/+W2aFPw5sBbVow3C6T++OWnIAUzPsj3fQlgAaVh6o69 +HgWXhL+t3BzKAm77b4V/jSgoFLBL/HY0CwaudZTKWlCwQTi64kcGC5JX3am5 +4E5BScOlVokXLIjr3vT0kBcFm3SOmBc3sOBsbuazTT4UzKlsrVNoZYG7TlJd +ZSAFnULmdDg6WaAfdKZ5JJKChlsypXmHWDDHNH9nmE7B7sBmm3sr2DD5qL1L +IJOC/UPS847cbBiKMuz5kk3BI8oktfVr2fBGTPtDcC4FI2NUfTRIbCi0lBu4 +W0JBdTVa4g8xNtg1scZWN1JwVQk5uWcHG/aKtrWSWiio6CkIv3eyQcM/5S71 +FQUFe/ymObTZICQpd1zxLQWbO3kMJnXZ0BlmPmjaT8GqielkTlM21HWJvLD+ +QsHfTSIrc8zYUKowfMNhiIKytC6nzYfYcOlD6GG/UQpaGYuMCNuwwWh7fm/a +LAXTSI59io5sUE849eTmXwqeeaSRYeTMBpkhjdS7CxTcNpm70/I4G7iSXptX +c1DR58BrWR03NvweTt/6ciUVB2898qd5EPVrO/H9t4qKpcWnc4c92fBiYq69 +fz0V+ytdC019iPfRrb/P5KPiu8GOiHFfNmRfT4if5qfiz58XNYP82RBqKGHE +QaWiseCPw0eD2OB2c1xmrSgVPeuGG6qC2WDz5zE3/yYq7jvaQeYKYcOOvL0N +dGkqNj076+x+hg3SCwK5SnJU1KnJd4sJY4Og+UCkmiIVDUcD7JLC2bCysNBe +R5mKfFx+6gln2fCL5adjqEJFJ13kDIpgw1dLbTGz7VSs3nHnqVkkG94Wr16y +UafitaoLriJRbHi+8t0nR00q3m79sbqXcIlddrW7NhUNAlfdiDxH1PPwRIY/ +UvHp840KIufZEL9GJThMj4prz8Q9vEM4xH7RMsaAir80xtUkotngWtG0PXEv +FbfQR6rjCVvzJgmk76NiyZAJMgkbuNj9unWAinciudu3xLBBrZbRWXiQinuN +JB3cCTP4fzx4aEnFt3fb2amEBdyqE2tsqBhHtix9QJiz7rxXw2EqzvbJetcQ +/ilkuq/9GBU5pN7teUJ40Iui2ONIxYu5HDtyCL9pHFo74ELFm7ci9M4Qfi5S +Mjp8kop6zzT9DAgX+wW3/HCnIvfgruYVhLPadhf886LiGE+ZXgnxvvES62NW ++FJRVfvztBHh08G9zjwBVOw9oNTeTdR/siNHVyCYimLv6INmhK2kPSRFQ4n6 +hl23PCPub0+YGod0OBUdN714TiW8vYs9sDmSigm2a1JOEPfNH5WaDbFUTPme +LN5J9GupwDpC8CIVb9lNR7KIfjLbaU5jCVT0F+7XFSdcRbktm5JMxQstmn+3 +E3nI1XHhcU2looDIf78UibwkuMhO7UqnYjwoOmwMZcOxspLy4WwiHz6X8l4Q +eTPq9UmrvUVF03dHzkcSeVRZ2nY6KZeKz0OyRrcFEvNgVKOtWUhFlsKMtZ8f +G+59aW69/IiK0rUhx0yJ/Kdyx993qqCilNrd5Tx3NoQr7k9Ur6biSavz+ydd +2WAW3HXo63MqdlcGCP1/vuY2DA5sf0VF/l/Tvy8cJfqzPa9+7Wsq2hg+eu5/ +mA1tdifyB94Q5+VccT9oS+StYNItroeKghswYtSCDXo687N9g1Q0D0+0OG3C +BiWXp+/LvlHxycC1L4tGxP6Ij6iJGaais/f6KD8DNoz3cEdumaRi1aqD9J27 +2ZDkxb/u/F8qxq7tLlEi9lF/tqKkwgYajq3Rt3tE7Kvml9Mr2SQavlj6XOtB +Y8OD0YfDXQI0dEo9WCwszIZz2zWKw6k0FOnWtTMm9p1cu756J4OGfYyNnSKc +bAhYPLr/tBYNlSfd0oK+scDqng9vvA4Nu3jXnxT8wgIN2/Ovs3bTcHKb6K78 +TyxYqijc/8KQhri6RzyT2Mcxfr/3r7KgoVW2AN/gcxZcG4szTfWkYdarlaJf +rrHgdEbWhgJvGvo1iVTnJrPAzrC0o9KPhjbqtiK2l1ggfqfLtO80DXNjRZxu +RrHgroP4AakYGmbvVXS45MGCqvePDpTdoGFp/fSlFdosyIxt5nuZQ9RPp139 +u4MFYWof33Tl0fB2QaPy160swBTWgb9FNFzbJnX8CoMFbaZ7zXQqaHhkTZGB +7ToWfGoaMGvvoKFrsyHPg95lWHq09uAom4YjDMndzS7LoNzU/2iCUwRbjV/c +8Dq6DPa9Dzb+4BbB1w+uPeOxWoaX/yw//lkngjdVd0fIGC5DnHauw0qKCKor +rrvGlFsGgRZNb/GtIhj782tE4vgSKHzyuGThIILfs2h3fpxYAmuOjua6OhGs +FGSE0gwXIXrwulJSgwj+C2k4aKizCGV1x6/aN4ugQaPFiVNqi7Amavko6z8R +3MZY9LxPX4SqFZv/aL0XwVH1CzpD7AWgrLxEr5wSwU8BObT9lQvwids4soQm +ily0/fquUgtwdF3zzswAUczQfXRBYfIfXLTI4bivLoZ73LYZa8nNgcOR0qan +U2IobKAX+u/ibziSe3OA+5E41gf0OFxrnwGlsLsnKwM24Zkb6+ONMifBgsfv +72NBCXxayjU060j8vg9cwSwKkkDr3jVDMpbfwbjunvmmdxIossStMrbuK3yy +cJhrVZTEm7TVp8ri+iFszeo9Gy5LYrRHprWW23to5dE5EpIoifply2FN1u9B +kDfQ//sVSbzgNWB92OA9FJO/3a65Kom3pNcJ36O/hz7aC9aJDEm08Emmdg30 +gubm4KoXeZJ4h/e8pKl1L/wzH1H0rZHErgv3a16Y9UBAVgt/94gkbkrwaN/n +0gW7nAoyjo5JolPop/TDFl3AJR8jPjIuiXFtR3yD9LsgtUJXYWFKEuVZXipv +GV3wpPPZbolZSYzY2UQVGH4Hc6sf+3hySKHuX78tb93fQUhATgcXVQol5ao+ +zoZ1wtn9IfFqxlLYGefCXR79Bk7t0fhaaSKFSbTD9oPub+CY9l91zf1SuK3i +e7yU+RvQ3hzI1DGTwgulP6WGxN7A0npfNLKSwjCz8ql9VR1wpt11zs5JCnft +bixvmnkNp01snCJDpfBtzn3qhHc7+O1V1/zvnhS+G0u8YJrfBl8Kf13dViyF +a4IXvp5JaoN9a0onskqkMMfj83+VYW0g08K44VkmhQ9HZOQOW7ZBnz4/x4YK +KaT9jlgwXd0G+jjVZFYvhYW8XZ1DXq0grJ5n3vteCp+vfRYTuqcFnjL43L5y +0ZFiZzTtK9oEBUZ+W11X0ZF3x5r+dJ4muOLZ83d6NR31j3Aatv9rBKfHWbFL +PHQso7x3c+hphDX6cvnCZDre8y6r2n6lEQ457/6yX4yOJQ5+u6K5G2H8tr9l +jRodpbsdGEFLL4Gy6cPulBN0XF4XcdafXA8R99TXcbjScVDyesyXlfUwrJbe +7elGPM8zd4XVXB082md10sCTjrZDlzWd+urANLT70rwvHTtFSF/m7tRBdM/b +9/bhdLySEn+GR7sOfia0eSml0lGXmmdvxnwOr/7VXG+qp2Nj30Nn99lasHmy +sE2xgY4hNbc3hA/UwoivZkdSIx2ruTnO5LTWAtdENeeRFjpqOhSfpN6oBZ3P +VR6/2ukoYjgJ7wxq4WF9hfamD3Q8XM571vJGDWTEl389PU1Hd76wvWZW1XBC +9J68kggD6cnrf9z6UwG+N5JVy0QZuI3v7BjrawWEiYdobRdnYN1vgYOnOiog +WcJo/y5JBk7eltp59m4F0Y9hn32yDFx8JvDTwa4C+DdLVXluY6DEFcNqmYYn +8Ew706DEhIGv4j5RDuc8BkH7eGflMAZyepoJ18WWQ7bhqVMZ4QwMu35t21hw +OTC2HgzhjGDgZak2tphbOWxfQbvSG8XAqUe+0fdMysEir6jm7AUG9tfeNjQl +l0PaSCv5zVUGXhfUI1XffAhCPqvrvIsYGGq4re5LfRlQoqJFH/YykHbV4oTJ +gVIQVSZd2/mBgWkhjarD20tBsi+L7+VHBl7UarifTisFBbVHnF39DLxS0Git +M1wCWmNfR2eHGNgqGXwx42wJHDOHJxo/GGhBqif5PCqGPMmF/XWrpdFTcn2i +0ub7oPzSO+KNhjRy28QIkI4WQlnv3wVtTWlsv39VTHVvIahORAQVa0njnNr3 +zS5qhaAmmOR1UUcabW51Kv/jLYRdJ8oO6+lL4/4i64MDL+7CXp6f6pUHpHH1 +7IRuhsxdcDnoN3PzhDSaNH9r8mLfgcyhAMdTqdL4uD81WrA/D/TlPpf0pEnj +YDpvpWJ7Hkx57VnYlS6NbgMBCQee5gHOb0xZlymNWVJlv55m5wGTr7Kx8JY0 +mr38XLj5WB5s1Z6X/XZPGpvntuw69i0XmtLDp63rpfGWS21V9dxtmNkXe2b3 +tDRuWTtWcAxyQMj62o6WH9KIvIqCWio5oOVY8HPfT2lUtCuootNzIDaw+aTN +rDTODleGU1fngNjNVRbeC9L4J8i+VPHWLTD+Eat0Y5UMzqQLPEluugn5yRc+ +/xOXwRd7Owbz6TfApjcOyg7IIHdiq0S9RCYsGqYtiZjLYM/mebvIdZlws/p2 +9YWDMniHadlkNncdvmfXbLO3lMEfvPd+M9qvg4/zpOyGwzJ46UmZxvXT1yFu +5gDJ84QMbuVOunanOwMqeYS/yobLIMfTfVY/M9JBCO6cu3VPBrPi/wSlHEgD +tUDbUvliGRweS1vdvCsNLO7zfnpUIoPb7qiLrFVIgxThIJXWMhlkdgpfreNK +A9KMweBMhQwKmtG3/K5JBZ7bo9q6DTKo2PGu204hFVicSvPf+2RwkxKtrEsw +BYaby70VeGWx6Ekef9LGZNisbOhZskEWFc7lLLxYlQwBaX2uW0my6CWhXbr0 +Nwk4XbicdgjIomr82X3Zn5JAbIWVhS5VFq1+6m33z0kCC615DTtpWVzo+GoY +pJwEDQ+AM15bFvmriQ10NxFyMtpTx7xkUVTr41XLiARwOXk05aC3LOrMGRP/ +FRJAbsd0cq2PLGpezR8aOpgAD7v4rlz2l8UHVkHdlTIJ8HLDoYsqIbK4cvJr +14438fA9+mN4SLQsvl1n8DWMHg9yvsMn1mbJYsbvq0GtH4je7eXYKd8qi3GZ +O+JC/WNhpl+joKxNFv+F77jVYB8LKj6+Ahr/yaLjgOCi2L5YKL82NGXQIYsB +wfp7VknHwuNvjbku3bK44aFsVN77GKgKv7g+Z1AWqyTaS1diDNQ/5B8UmpfF +z7vGVedEo+EdVfoCl4IcFnDO/LrDdQ6SBO3mfBXl8FaYkPbAnygw5bty/IuS +HL5XHcyRGomCV1zzejVb5PBH2NTlN21RUP+jncNHTQ414eZE1ZUoKGsKCO1D +OZxavrurXiwKEn0bvcqt5VA04Sr3Cd1IMG5ztnCIkcPFSTX1DTbhsPXP6dTm +WDmUXxL+5ofhsFEysVspTg6zE/9Ej8uFw+DpKov5eDlUiJ/z4l8IgyA5Xsur +SXKYR5tX1rsRBrkXKiwbs+SQNHrSWWTkDCzuWWstVy6H5RzqDzAuFIpfltrO +DMhhe+dSksVyMGx45LEmcFAO7TOnPZxHg8EnT65y/qscOrzqiYvuCoZt0bmC +K5mE7ch7l4uCoWbPtTcbJ4j3DxVSaLEOhrbW8D1af+Ww815SZ2lFEAx37FOJ +5ZPH9DjLOOeoQJDoG18jivK4iZQ9qmnoD2zV/OrY3fI43K2yO0bdHwbij7r/ +1JXHV/vjnPtl/SFb8+1/zXvkkd/jV1/ZGn+gZj5J9DWRx+nOqdCfr/yA3zZS +sMVKHjOtTGJbzf2A+/1GCT8v4vsGc/Q4V18Yf4fqrZnyGLJh/Li/jzcUyJkI +Hc2Wx7B/r5Y/HvIGx7OWf37ekMdD+7lS7dS94YO8+yOR2/L4oVTnaBHrFDRH +pmzxviuP2fdKukITT8Ft5WFZocfyWMejJ/qx3Ats4hMoLq/lsdxnXzmT1xME +B9P+/uuQJ/q1ds5+1gPeqOX0Xn4rjw/emnn9/OQBBl8fp1Z2yaNZr1mubaEH +bNMYIK37JI+Wxps+79L3gA3DW9eWD8vjqHlNwq5Id3ilpTVqMCqPwjkKByVc +3SEmeU9L35g8qjxaXEkzc4elXXYx3FPyqJ2585OphDuMp5xfYftbHovLneWe +1rtBwdjlwalZeRwPzpTYf88NHCHjxbk5eXz78M+J31fd4MN4cXjxvDyadv6X +FOHiBilYeWT3ojx+TPtv//H9bmB6rV6rd0keXbzm1znscAOeyf9oHiyinxp6 +Vd6b3KBpd+88my2PJaKFkLrGDf4HRiu+4g== + "]]}, "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, 13}, {0., 1.9701485006351023`}}, + 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.9920776314276695`*^9, 3.9920776521841106`*^9}, { + 3.992077699338787*^9, 3.9920777724079704`*^9}, {3.992077809739979*^9, + 3.9920779153129025`*^9}, 3.992077954480957*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"88719de2-72eb-0049-b6ba-f95aee7973d4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l1", ",", "l2"}], "]"}]], "Input", + CellLabel->"In[84]:=",ExpressionUUID->"b18f33b7-80c8-d647-9ade-73d9928cac50"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVknk41IsXxpUlpIUsxXTDzHzn24aIJDrH0tj3MNxiQpTKrpJQ9q1EKHUv +UiFLEUnWspVCdStS15qyT5RrV7/5/XGe87x/vJ9z3vMcOWcvq6MreXh4Orn1 +/27gELOKh4eCroPWhKoZB3SyVfZWrqCg4PA88cOEA/tGezz8eSnoaZWjd9+Y +AwrnVNuHBShY0Dr4nmrIAYkbAylv11DwgF3RXj49Dgx0acrflqGgSSA7PX0v +B87bT2ky91DQ+UhrmxiNAw9YDr4JnhQsnBvS3jIzAYJbvn844U3BGZOr1SHT +E8D+Gr7X2JeCMcbJK7p/TICYbxGP8GkK8iWFD6V+nwD/eJ7E6GAKWsZ9XzM/ +PAF7a3MKwhK4vKP80hGfJ6CB+nPwbD4F7+aUv8qtm4BOTrzd0W8U/Eekr2k+ +fAJmUufXm9puxmaXe6eU+Cdg4Rxfx8rGzTjOwfU2fuNQN+spwb/vDxR8ZmAp +XjkGQZESWyXz/8A5F/GjJlOjMJcv89hPfgv22LetXp4ZAYe1dRaZ17eg9sqK +mPyeYbDXNu89ySuLufuMdopXDoHbc09rJZDF+Ne2LMVD34BjU7hr8bQs9tcH +jFTPD8Lx8AqJoiJZNFLZbeoZ8wUaz0+r8Y/IYtTGlUcefO2HmyFm9a6ycohX +Tolo2/SBlcnHOI9Dcti/Je3BLt1uWKpQsre7JocGX7Zl/bfQBXIKuUnG7XKo +lxHxdqtgJzC8TFd9E5LHAxxJBQrve8irEB2K1pbHzx+fSxx1ewvC7fx8b4Ll +MWjJ0fTO3TZwDHtB/K6Qx79D7eJ85VpAAe6Vqk7KY9JV/Y4E9yboef4kWGwH +FY3ONEN93zMQth8umXGhYimD7XtgQy2QsV/Hnt2g4lzVFzFbgyfAiBRzUemg +YiQn0EywuwzUS64xRTupmMBsqf/ZVgZG3ZRt37k6dJ8tY6S2DDxVGVP5XVRc +RUQWTmWVQfnXfaHy3VRciOiXDDxaBkzm0Zuig1R0P7hv7NBkKbiuqnj3fYqK +G463VBxcUwq3Yg/rFa6h4eZf5+RGnEtgwL/z6V9raZi32ddcyqYEaGxLrUvr +aMhZ8aHIXL8EctQOqHmK0nB3bd9Az/YSKPyyg1SSoKHLq5jQ0/8VQ4XW0uoy +Cg1Zv5bFI+OKoX3qxruq7TSUZrUZjpx5AEv2H51fGdLwTZa757WAQngSejzo +sRENBQfEV0s5FcLpuwtXbxvTkNH03j3XoBCmJilNQaY0PPRCV21BphC+RR9h +7LCk4UzUxzm3hgJ4/Wh0LIFFQ9vp3aXWEgWQLbrsb+bOzWMj9lmx6R4YtshF +v42g4ZWbhtPFVrlAuv9ZUxRJQ9UNLlVm2rkgyJ/6MzaKu4+HyKc5xVxoRkG2 +TgwN3w/c/+WzJhd0KjjqpfE0RF4n4dkXOaCZWzWakkzDBr1H7AM6OaAQaWPG +yqKhe3iwb43WXRDTjpXoraKhkLnfiXO2t0E24/FgWzUNq1RFJiuYt0Fx8Wtp +dQ0NzW+9ecm75zaYPNKxulFHw17FC061UrcheuvSZZsGGup0rFvX3JUNS6Je +gq0vafjNSXBQip0NQwMHFyu6aKg222AdG3ALqiNk+5NnaVjbuXX4bngmjNvP +tvnMcf0bap9fOJEJmxXbKy3maXjzxrWkU9aZENIVlLJ2kYa60rEPz1MzARU6 +9eN+0VB5++/XXo0Z0NR56f5Ffjp61SQ2ZQhlQPu2xSDvDXRMWyD8X2X9Bf1v +PkiaKdJxJvdt4Yff6XC5ryGTVKLj2fmCN8rj6aAxWULy7qKje3ajW8bHdEhe +d1mjQpmOHN3IZ1kl6aBnxnSUV6OjRbH7JkvXdMh5VX53RpOO+5We5tq1XoeT +zdd2ZxrR0f6aLLUi5xrMVdlbTR7l8kX2iD0JS4X3cZr+3W50NM9yD+TzSYVi ++y1pL93pKDP3kerolArHZge77hyn452TNyU1NVOhU9n7iP0pLl9SSufWTAqU +34vyrvenY661h9YqzxTwv1Z6OSWcjpdor4tn3a7CpO+aV+q36Bi9c0XVrtAk +4Dy5LiyZTceuYO/6Up8kGOehGf3k6mR7HV50TYKhyxotRXfouCtGacMZwyTo +yXd/Lp9HR5F23b8cxZOgbeBZg8gDOg7KigyKFF6BfKvT1X3VXO0VfNe9KRFc +lHuLYj7Ssd1Qw8asMwGuqDtFne2io/i06CHZugSo3d/reOwTHaW3tTgK5CbA +RuPedQb/cue9q5VaeyYB2l16fVb10bHue2O68MYEUE/tVY0aouPOKSuJ/MPx +sGautyZ8ho55brOrpWZj4XFNX1uIOIHv9kQ7ejlFg4CmUKOjBIGjAuvEJU2j +wbZyV+V+SQLrtAYEXmlEw3R5WM4vKQJrXA0CnSSjQamYFhoiQ2CL7nvXXe1R +kJ99TClEnsDkb9vXemMUZERPJgcrEWhq5j+1TjESoix5WOdNCFyn8NCkUDkc +LIVx1M6UQNLf60U3NRwoDaHnVcwIXKjZniItEQ4Pd//OGjXn+q/Vzj+aDYMe +qV8jLGsC/0v1FPWrCQO1nsUgVQcCpSZbGb+NwmDIYzaT406gT/nXdrrnRTCI +4AyxwwnsuIolE3dDQWdJfoN5BIF7CgIsj8eHgpa/3X6tSAIlMvyWF7xDQdn1 +acqmaALLNt1XYmuGAkUvWfufOAJjVp1Zq/Q+BKZ41W7qJhMY8Kcf2bEqBG6E +B5sRtwiMvVdQXh9yHsbCRB6N1RJYnbGFdiE3EAT9RpZb6gh0jXhleuxqINBc +mpl5Twncu5NPhh0aCId0L3x0rSdQ8aKYd4hdILTzTi92NxFYHs8q9xcMhIcR +n3XetBL46SPbUevUWTgXlf+m7BOB/WdHtDjaZ0AozmA8eIbAizvml5wlAuDg +Xul2z1kCv+yXdQnkDYCs4bEHTnMEbnTYNpEx5Q/q+ol+2gsE2nwy1JBq94dj +fB0LfL8ITKLmsaqi/eFFiItQAj8DxwSFnjcv+0GMXwhxQ5yBq6cHwlKnfUHw +cBm7XJmBOSMpM3HCPvCG+XdPtgoDMxqEj1ksecN1pahDibsZGGjBvC/H8QYG +H4t1TI2B66bXJw+99QZmwaK5tAYD60dqc3+ne0PEvA6EaDNwU4VnAWuHN/Ck +vd3MtGDg8UOJxl0PPWG+nfPpwykG0pelzaxyTsCA0oXTDz25PMMm5cYrJ6A1 +WVQs0YuB3lVPO5hBJyDLdrehgQ8Dpb6s3BpicQKYPYGPK/25+9ExsXTRA1Im ++FIygxioe7qPqWDjAUoiMqbHYxnIWjscKCJ+HNwM9euW7jDQKk22/59aNwj1 +aPs5dpfrX8kfn1bgBtfjrcnPOQyM/91/yuO6G7xqc0p6ksfAfl56no6vGyhZ +nXU5XcjAk15Z/qWEG8w73Fs1WcpA/tCQp3HJRyHh5GqLL/UMPOAaP18W4Aql +ia/7WvoY+LxITVTb3Rk45C/le/0MjFG3nC9nOcO2+h2RMQMMvHLY307dyBmy +pmO36g8y8GtRv+Xhnc6QYK/n2zjEQPbxfQcUp4+AG/UJbx2HgWIyRSfGwo/A +xsfZRNkSAyenkwxjCthwvifgZMZGEudN09NEVBxB5WGVQ+AmEsMWRFRzZBxh +NHKF4UFpEjc0/TVuyecIrJ2X6MIUEqm5Vl69Hw7D7vN3egK2kKjbpQ5vAw/D +2KZ3FqYEiXpdcSJ8TYfAwUZJdUmFRGlRw3SDY3/CntbRZXtzEp2pHlIXelnw +hxM9Ut+CxKVncZJpL1nA98NJRNWSxD6+kjs1j1jwRuqD9HprEgemLFS0E1jg +4VK3p9mWxGB9h4sbNViQsXDVR9mRxPQ+Ab3F63bAv1Xrq/ApEk0MdMcVXGzh +XWRia1Ucia2bhFls4iD8e8XXJz2exKGUaL9EyYMweNNG8kwCibW92/97KXAQ +pktk2MqXSRRABp/7kDVI9uT+zEsiUf+njq7yPWtgqT2VTrtO4kbSfEpE0Rp6 +vk0e884h0Sms/FuSrhWM6lvx0+tJzD/dQR++ZAGSnJ0+lAYSb46KVLuFWoBO +ilD3hkYSHz54x/fD2wLS+56WrWwmsU285qLCQQswCFR07Wsh8RGzeVpLxgJy +8kUabr4l0TyTec7Bzhxc1jy/INZP4vMnd+wECkzhcmn2uNAAiaqV7HSBJFOo +tA9hrfhCYqbb+YzNZ0xBLEdVaXKQRKETFrcTdU2hfv+d3rZh7r1Sb3le7DYB +We+L+2MnSVRh5S7HSZiAieTh/AtTJNa9j9fnLBnD2Wp1ybM/SMSW0D/cB43h +teDkhNs0idUcYzK91BhCbjn+rTdHosTwiqwlK2PI19cQ0pwn0VcjiCm8zxg6 +JiQCVBZI9GJKfd1BNYadGm0m8kvc/xj3e1b80whYfXkVm5ZJrE+r/CT6rxFE +REXQRH9x8/Eo3Y5uNILiHewrgr9JZH+oFRQrMoJ//9m39JurT148Ml+cagT/ +A4G+AF0= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVknk41IsXxpUlpIUsxXTDzHzn24aIJDrH0tj3MNxiQpTKrpJQ9q1EKHUv +UiFLEUnWspVCdStS15qyT5RrV7/5/XGe87x/vJ9z3vMcOWcvq6MreXh4Orn1 +/27gELOKh4eCroPWhKoZB3SyVfZWrqCg4PA88cOEA/tGezz8eSnoaZWjd9+Y +AwrnVNuHBShY0Dr4nmrIAYkbAylv11DwgF3RXj49Dgx0acrflqGgSSA7PX0v +B87bT2ky91DQ+UhrmxiNAw9YDr4JnhQsnBvS3jIzAYJbvn844U3BGZOr1SHT +E8D+Gr7X2JeCMcbJK7p/TICYbxGP8GkK8iWFD6V+nwD/eJ7E6GAKWsZ9XzM/ +PAF7a3MKwhK4vKP80hGfJ6CB+nPwbD4F7+aUv8qtm4BOTrzd0W8U/Eekr2k+ +fAJmUufXm9puxmaXe6eU+Cdg4Rxfx8rGzTjOwfU2fuNQN+spwb/vDxR8ZmAp +XjkGQZESWyXz/8A5F/GjJlOjMJcv89hPfgv22LetXp4ZAYe1dRaZ17eg9sqK +mPyeYbDXNu89ySuLufuMdopXDoHbc09rJZDF+Ne2LMVD34BjU7hr8bQs9tcH +jFTPD8Lx8AqJoiJZNFLZbeoZ8wUaz0+r8Y/IYtTGlUcefO2HmyFm9a6ycohX +Tolo2/SBlcnHOI9Dcti/Je3BLt1uWKpQsre7JocGX7Zl/bfQBXIKuUnG7XKo +lxHxdqtgJzC8TFd9E5LHAxxJBQrve8irEB2K1pbHzx+fSxx1ewvC7fx8b4Ll +MWjJ0fTO3TZwDHtB/K6Qx79D7eJ85VpAAe6Vqk7KY9JV/Y4E9yboef4kWGwH +FY3ONEN93zMQth8umXGhYimD7XtgQy2QsV/Hnt2g4lzVFzFbgyfAiBRzUemg +YiQn0EywuwzUS64xRTupmMBsqf/ZVgZG3ZRt37k6dJ8tY6S2DDxVGVP5XVRc +RUQWTmWVQfnXfaHy3VRciOiXDDxaBkzm0Zuig1R0P7hv7NBkKbiuqnj3fYqK +G463VBxcUwq3Yg/rFa6h4eZf5+RGnEtgwL/z6V9raZi32ddcyqYEaGxLrUvr +aMhZ8aHIXL8EctQOqHmK0nB3bd9Az/YSKPyyg1SSoKHLq5jQ0/8VQ4XW0uoy +Cg1Zv5bFI+OKoX3qxruq7TSUZrUZjpx5AEv2H51fGdLwTZa757WAQngSejzo +sRENBQfEV0s5FcLpuwtXbxvTkNH03j3XoBCmJilNQaY0PPRCV21BphC+RR9h +7LCk4UzUxzm3hgJ4/Wh0LIFFQ9vp3aXWEgWQLbrsb+bOzWMj9lmx6R4YtshF +v42g4ZWbhtPFVrlAuv9ZUxRJQ9UNLlVm2rkgyJ/6MzaKu4+HyKc5xVxoRkG2 +TgwN3w/c/+WzJhd0KjjqpfE0RF4n4dkXOaCZWzWakkzDBr1H7AM6OaAQaWPG +yqKhe3iwb43WXRDTjpXoraKhkLnfiXO2t0E24/FgWzUNq1RFJiuYt0Fx8Wtp +dQ0NzW+9ecm75zaYPNKxulFHw17FC061UrcheuvSZZsGGup0rFvX3JUNS6Je +gq0vafjNSXBQip0NQwMHFyu6aKg222AdG3ALqiNk+5NnaVjbuXX4bngmjNvP +tvnMcf0bap9fOJEJmxXbKy3maXjzxrWkU9aZENIVlLJ2kYa60rEPz1MzARU6 +9eN+0VB5++/XXo0Z0NR56f5Ffjp61SQ2ZQhlQPu2xSDvDXRMWyD8X2X9Bf1v +PkiaKdJxJvdt4Yff6XC5ryGTVKLj2fmCN8rj6aAxWULy7qKje3ajW8bHdEhe +d1mjQpmOHN3IZ1kl6aBnxnSUV6OjRbH7JkvXdMh5VX53RpOO+5We5tq1XoeT +zdd2ZxrR0f6aLLUi5xrMVdlbTR7l8kX2iD0JS4X3cZr+3W50NM9yD+TzSYVi ++y1pL93pKDP3kerolArHZge77hyn452TNyU1NVOhU9n7iP0pLl9SSufWTAqU +34vyrvenY661h9YqzxTwv1Z6OSWcjpdor4tn3a7CpO+aV+q36Bi9c0XVrtAk +4Dy5LiyZTceuYO/6Up8kGOehGf3k6mR7HV50TYKhyxotRXfouCtGacMZwyTo +yXd/Lp9HR5F23b8cxZOgbeBZg8gDOg7KigyKFF6BfKvT1X3VXO0VfNe9KRFc +lHuLYj7Ssd1Qw8asMwGuqDtFne2io/i06CHZugSo3d/reOwTHaW3tTgK5CbA +RuPedQb/cue9q5VaeyYB2l16fVb10bHue2O68MYEUE/tVY0aouPOKSuJ/MPx +sGautyZ8ho55brOrpWZj4XFNX1uIOIHv9kQ7ejlFg4CmUKOjBIGjAuvEJU2j +wbZyV+V+SQLrtAYEXmlEw3R5WM4vKQJrXA0CnSSjQamYFhoiQ2CL7nvXXe1R +kJ99TClEnsDkb9vXemMUZERPJgcrEWhq5j+1TjESoix5WOdNCFyn8NCkUDkc +LIVx1M6UQNLf60U3NRwoDaHnVcwIXKjZniItEQ4Pd//OGjXn+q/Vzj+aDYMe +qV8jLGsC/0v1FPWrCQO1nsUgVQcCpSZbGb+NwmDIYzaT406gT/nXdrrnRTCI +4AyxwwnsuIolE3dDQWdJfoN5BIF7CgIsj8eHgpa/3X6tSAIlMvyWF7xDQdn1 +acqmaALLNt1XYmuGAkUvWfufOAJjVp1Zq/Q+BKZ41W7qJhMY8Kcf2bEqBG6E +B5sRtwiMvVdQXh9yHsbCRB6N1RJYnbGFdiE3EAT9RpZb6gh0jXhleuxqINBc +mpl5Twncu5NPhh0aCId0L3x0rSdQ8aKYd4hdILTzTi92NxFYHs8q9xcMhIcR +n3XetBL46SPbUevUWTgXlf+m7BOB/WdHtDjaZ0AozmA8eIbAizvml5wlAuDg +Xul2z1kCv+yXdQnkDYCs4bEHTnMEbnTYNpEx5Q/q+ol+2gsE2nwy1JBq94dj +fB0LfL8ITKLmsaqi/eFFiItQAj8DxwSFnjcv+0GMXwhxQ5yBq6cHwlKnfUHw +cBm7XJmBOSMpM3HCPvCG+XdPtgoDMxqEj1ksecN1pahDibsZGGjBvC/H8QYG +H4t1TI2B66bXJw+99QZmwaK5tAYD60dqc3+ne0PEvA6EaDNwU4VnAWuHN/Ck +vd3MtGDg8UOJxl0PPWG+nfPpwykG0pelzaxyTsCA0oXTDz25PMMm5cYrJ6A1 +WVQs0YuB3lVPO5hBJyDLdrehgQ8Dpb6s3BpicQKYPYGPK/25+9ExsXTRA1Im ++FIygxioe7qPqWDjAUoiMqbHYxnIWjscKCJ+HNwM9euW7jDQKk22/59aNwj1 +aPs5dpfrX8kfn1bgBtfjrcnPOQyM/91/yuO6G7xqc0p6ksfAfl56no6vGyhZ +nXU5XcjAk15Z/qWEG8w73Fs1WcpA/tCQp3HJRyHh5GqLL/UMPOAaP18W4Aql +ia/7WvoY+LxITVTb3Rk45C/le/0MjFG3nC9nOcO2+h2RMQMMvHLY307dyBmy +pmO36g8y8GtRv+Xhnc6QYK/n2zjEQPbxfQcUp4+AG/UJbx2HgWIyRSfGwo/A +xsfZRNkSAyenkwxjCthwvifgZMZGEudN09NEVBxB5WGVQ+AmEsMWRFRzZBxh +NHKF4UFpEjc0/TVuyecIrJ2X6MIUEqm5Vl69Hw7D7vN3egK2kKjbpQ5vAw/D +2KZ3FqYEiXpdcSJ8TYfAwUZJdUmFRGlRw3SDY3/CntbRZXtzEp2pHlIXelnw +hxM9Ut+CxKVncZJpL1nA98NJRNWSxD6+kjs1j1jwRuqD9HprEgemLFS0E1jg +4VK3p9mWxGB9h4sbNViQsXDVR9mRxPQ+Ab3F63bAv1Xrq/ApEk0MdMcVXGzh +XWRia1Ucia2bhFls4iD8e8XXJz2exKGUaL9EyYMweNNG8kwCibW92/97KXAQ +pktk2MqXSRRABp/7kDVI9uT+zEsiUf+njq7yPWtgqT2VTrtO4kbSfEpE0Rp6 +vk0e884h0Sms/FuSrhWM6lvx0+tJzD/dQR++ZAGSnJ0+lAYSb46KVLuFWoBO +ilD3hkYSHz54x/fD2wLS+56WrWwmsU285qLCQQswCFR07Wsh8RGzeVpLxgJy +8kUabr4l0TyTec7Bzhxc1jy/INZP4vMnd+wECkzhcmn2uNAAiaqV7HSBJFOo +tA9hrfhCYqbb+YzNZ0xBLEdVaXKQRKETFrcTdU2hfv+d3rZh7r1Sb3le7DYB +We+L+2MnSVRh5S7HSZiAieTh/AtTJNa9j9fnLBnD2Wp1ybM/SMSW0D/cB43h +teDkhNs0idUcYzK91BhCbjn+rTdHosTwiqwlK2PI19cQ0pwn0VcjiCm8zxg6 +JiQCVBZI9GJKfd1BNYadGm0m8kvc/xj3e1b80whYfXkVm5ZJrE+r/CT6rxFE +REXQRH9x8/Eo3Y5uNILiHewrgr9JZH+oFRQrMoJ//9m39JurT148Ml+cagT/ +A4G+AF0= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 12.5}, {0., 0.9470468281352962}}, + "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" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 12.5}, {0., 0.9470468281352962}}, + "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" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVknk41IsXxpUlpIUsxXTDzHzn24aIJDrH0tj3MNxiQpTKrpJQ9q1EKHUv +UiFLEUnWspVCdStS15qyT5RrV7/5/XGe87x/vJ9z3vMcOWcvq6MreXh4Orn1 +/27gELOKh4eCroPWhKoZB3SyVfZWrqCg4PA88cOEA/tGezz8eSnoaZWjd9+Y +AwrnVNuHBShY0Dr4nmrIAYkbAylv11DwgF3RXj49Dgx0acrflqGgSSA7PX0v +B87bT2ky91DQ+UhrmxiNAw9YDr4JnhQsnBvS3jIzAYJbvn844U3BGZOr1SHT +E8D+Gr7X2JeCMcbJK7p/TICYbxGP8GkK8iWFD6V+nwD/eJ7E6GAKWsZ9XzM/ +PAF7a3MKwhK4vKP80hGfJ6CB+nPwbD4F7+aUv8qtm4BOTrzd0W8U/Eekr2k+ +fAJmUufXm9puxmaXe6eU+Cdg4Rxfx8rGzTjOwfU2fuNQN+spwb/vDxR8ZmAp +XjkGQZESWyXz/8A5F/GjJlOjMJcv89hPfgv22LetXp4ZAYe1dRaZ17eg9sqK +mPyeYbDXNu89ySuLufuMdopXDoHbc09rJZDF+Ne2LMVD34BjU7hr8bQs9tcH +jFTPD8Lx8AqJoiJZNFLZbeoZ8wUaz0+r8Y/IYtTGlUcefO2HmyFm9a6ycohX +Tolo2/SBlcnHOI9Dcti/Je3BLt1uWKpQsre7JocGX7Zl/bfQBXIKuUnG7XKo +lxHxdqtgJzC8TFd9E5LHAxxJBQrve8irEB2K1pbHzx+fSxx1ewvC7fx8b4Ll +MWjJ0fTO3TZwDHtB/K6Qx79D7eJ85VpAAe6Vqk7KY9JV/Y4E9yboef4kWGwH +FY3ONEN93zMQth8umXGhYimD7XtgQy2QsV/Hnt2g4lzVFzFbgyfAiBRzUemg +YiQn0EywuwzUS64xRTupmMBsqf/ZVgZG3ZRt37k6dJ8tY6S2DDxVGVP5XVRc +RUQWTmWVQfnXfaHy3VRciOiXDDxaBkzm0Zuig1R0P7hv7NBkKbiuqnj3fYqK +G463VBxcUwq3Yg/rFa6h4eZf5+RGnEtgwL/z6V9raZi32ddcyqYEaGxLrUvr +aMhZ8aHIXL8EctQOqHmK0nB3bd9Az/YSKPyyg1SSoKHLq5jQ0/8VQ4XW0uoy +Cg1Zv5bFI+OKoX3qxruq7TSUZrUZjpx5AEv2H51fGdLwTZa757WAQngSejzo +sRENBQfEV0s5FcLpuwtXbxvTkNH03j3XoBCmJilNQaY0PPRCV21BphC+RR9h +7LCk4UzUxzm3hgJ4/Wh0LIFFQ9vp3aXWEgWQLbrsb+bOzWMj9lmx6R4YtshF +v42g4ZWbhtPFVrlAuv9ZUxRJQ9UNLlVm2rkgyJ/6MzaKu4+HyKc5xVxoRkG2 +TgwN3w/c/+WzJhd0KjjqpfE0RF4n4dkXOaCZWzWakkzDBr1H7AM6OaAQaWPG +yqKhe3iwb43WXRDTjpXoraKhkLnfiXO2t0E24/FgWzUNq1RFJiuYt0Fx8Wtp +dQ0NzW+9ecm75zaYPNKxulFHw17FC061UrcheuvSZZsGGup0rFvX3JUNS6Je +gq0vafjNSXBQip0NQwMHFyu6aKg222AdG3ALqiNk+5NnaVjbuXX4bngmjNvP +tvnMcf0bap9fOJEJmxXbKy3maXjzxrWkU9aZENIVlLJ2kYa60rEPz1MzARU6 +9eN+0VB5++/XXo0Z0NR56f5Ffjp61SQ2ZQhlQPu2xSDvDXRMWyD8X2X9Bf1v +PkiaKdJxJvdt4Yff6XC5ryGTVKLj2fmCN8rj6aAxWULy7qKje3ajW8bHdEhe +d1mjQpmOHN3IZ1kl6aBnxnSUV6OjRbH7JkvXdMh5VX53RpOO+5We5tq1XoeT +zdd2ZxrR0f6aLLUi5xrMVdlbTR7l8kX2iD0JS4X3cZr+3W50NM9yD+TzSYVi ++y1pL93pKDP3kerolArHZge77hyn452TNyU1NVOhU9n7iP0pLl9SSufWTAqU +34vyrvenY661h9YqzxTwv1Z6OSWcjpdor4tn3a7CpO+aV+q36Bi9c0XVrtAk +4Dy5LiyZTceuYO/6Up8kGOehGf3k6mR7HV50TYKhyxotRXfouCtGacMZwyTo +yXd/Lp9HR5F23b8cxZOgbeBZg8gDOg7KigyKFF6BfKvT1X3VXO0VfNe9KRFc +lHuLYj7Ssd1Qw8asMwGuqDtFne2io/i06CHZugSo3d/reOwTHaW3tTgK5CbA +RuPedQb/cue9q5VaeyYB2l16fVb10bHue2O68MYEUE/tVY0aouPOKSuJ/MPx +sGautyZ8ho55brOrpWZj4XFNX1uIOIHv9kQ7ejlFg4CmUKOjBIGjAuvEJU2j +wbZyV+V+SQLrtAYEXmlEw3R5WM4vKQJrXA0CnSSjQamYFhoiQ2CL7nvXXe1R +kJ99TClEnsDkb9vXemMUZERPJgcrEWhq5j+1TjESoix5WOdNCFyn8NCkUDkc +LIVx1M6UQNLf60U3NRwoDaHnVcwIXKjZniItEQ4Pd//OGjXn+q/Vzj+aDYMe +qV8jLGsC/0v1FPWrCQO1nsUgVQcCpSZbGb+NwmDIYzaT406gT/nXdrrnRTCI +4AyxwwnsuIolE3dDQWdJfoN5BIF7CgIsj8eHgpa/3X6tSAIlMvyWF7xDQdn1 +acqmaALLNt1XYmuGAkUvWfufOAJjVp1Zq/Q+BKZ41W7qJhMY8Kcf2bEqBG6E +B5sRtwiMvVdQXh9yHsbCRB6N1RJYnbGFdiE3EAT9RpZb6gh0jXhleuxqINBc +mpl5Twncu5NPhh0aCId0L3x0rSdQ8aKYd4hdILTzTi92NxFYHs8q9xcMhIcR +n3XetBL46SPbUevUWTgXlf+m7BOB/WdHtDjaZ0AozmA8eIbAizvml5wlAuDg +Xul2z1kCv+yXdQnkDYCs4bEHTnMEbnTYNpEx5Q/q+ol+2gsE2nwy1JBq94dj +fB0LfL8ITKLmsaqi/eFFiItQAj8DxwSFnjcv+0GMXwhxQ5yBq6cHwlKnfUHw +cBm7XJmBOSMpM3HCPvCG+XdPtgoDMxqEj1ksecN1pahDibsZGGjBvC/H8QYG +H4t1TI2B66bXJw+99QZmwaK5tAYD60dqc3+ne0PEvA6EaDNwU4VnAWuHN/Ck +vd3MtGDg8UOJxl0PPWG+nfPpwykG0pelzaxyTsCA0oXTDz25PMMm5cYrJ6A1 +WVQs0YuB3lVPO5hBJyDLdrehgQ8Dpb6s3BpicQKYPYGPK/25+9ExsXTRA1Im ++FIygxioe7qPqWDjAUoiMqbHYxnIWjscKCJ+HNwM9euW7jDQKk22/59aNwj1 +aPs5dpfrX8kfn1bgBtfjrcnPOQyM/91/yuO6G7xqc0p6ksfAfl56no6vGyhZ +nXU5XcjAk15Z/qWEG8w73Fs1WcpA/tCQp3HJRyHh5GqLL/UMPOAaP18W4Aql +ia/7WvoY+LxITVTb3Rk45C/le/0MjFG3nC9nOcO2+h2RMQMMvHLY307dyBmy +pmO36g8y8GtRv+Xhnc6QYK/n2zjEQPbxfQcUp4+AG/UJbx2HgWIyRSfGwo/A +xsfZRNkSAyenkwxjCthwvifgZMZGEudN09NEVBxB5WGVQ+AmEsMWRFRzZBxh +NHKF4UFpEjc0/TVuyecIrJ2X6MIUEqm5Vl69Hw7D7vN3egK2kKjbpQ5vAw/D +2KZ3FqYEiXpdcSJ8TYfAwUZJdUmFRGlRw3SDY3/CntbRZXtzEp2pHlIXelnw +hxM9Ut+CxKVncZJpL1nA98NJRNWSxD6+kjs1j1jwRuqD9HprEgemLFS0E1jg +4VK3p9mWxGB9h4sbNViQsXDVR9mRxPQ+Ab3F63bAv1Xrq/ApEk0MdMcVXGzh +XWRia1Ucia2bhFls4iD8e8XXJz2exKGUaL9EyYMweNNG8kwCibW92/97KXAQ +pktk2MqXSRRABp/7kDVI9uT+zEsiUf+njq7yPWtgqT2VTrtO4kbSfEpE0Rp6 +vk0e884h0Sms/FuSrhWM6lvx0+tJzD/dQR++ZAGSnJ0+lAYSb46KVLuFWoBO +ilD3hkYSHz54x/fD2wLS+56WrWwmsU285qLCQQswCFR07Wsh8RGzeVpLxgJy +8kUabr4l0TyTec7Bzhxc1jy/INZP4vMnd+wECkzhcmn2uNAAiaqV7HSBJFOo +tA9hrfhCYqbb+YzNZ0xBLEdVaXKQRKETFrcTdU2hfv+d3rZh7r1Sb3le7DYB +We+L+2MnSVRh5S7HSZiAieTh/AtTJNa9j9fnLBnD2Wp1ybM/SMSW0D/cB43h +teDkhNs0idUcYzK91BhCbjn+rTdHosTwiqwlK2PI19cQ0pwn0VcjiCm8zxg6 +JiQCVBZI9GJKfd1BNYadGm0m8kvc/xj3e1b80whYfXkVm5ZJrE+r/CT6rxFE +REXQRH9x8/Eo3Y5uNILiHewrgr9JZH+oFRQrMoJ//9m39JurT148Ml+cagT/ +A4G+AF0= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 12.5}, {0., 0.9470468281352962}}, + "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" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVl3k8VG8bxiUqSmYQM2MJM3YpSmS77xCiRNlbrJU1OxFJSVKJEKESEkKo +rC1k7ycl0qIkNXaipGwz73n/Op/zOc8557m373U9Ui6++49ycnBwDK7g4Pj/ +NSTiwDoODhIuDW8+XuLLhD1mR98yH5FQiT92taURE0zs7Cc4w8h4PN06c6mJ +CT/p0VxSWwTQ01Y3eB15GDzONVy+910AT/C77inaPQo8Uj/cj+YL4uL+DWcS +vkyAVaSWAeOQEDbpxW+QyJ2GJpFAf5rUBnROSjzeF/UbVhs18YcNbsDz7euU +h67NwR+13cUfrgvja6VNm997zAPPkbIsXwcR9Ag6r3uWvgRtxmaXVpMpuCKY +9BkFWeDQzBpd3UTBVSXkpHfb2SAQnZIFsVRM/pEk0RXFhqDFw3tPatNQZcIj +NeQ7C5Ye8uwfYdNwmCG1s8VtGWw5Olvq60WxSogRTjNehMNrW3ZkBIlhuv7D +C4oT/+CiVTbHfQ1x3OWx1VRbfg6cDpU2P5kURxEjg/B/F3/DoZxb/dwPJbAh +6J3T9Y5pUI64d7wqaCOeurku3iSDiJ834O8jIUl8Uso1OOs8AnnBK5iFIZJo +27tmUNb6B5jWF1lufCuJokvcqqNrv8EnK6e5NiUpvEVbfaIs7jNErFm9a/0V +KYzxyrDV9ngPQZmtAj3DUrjxklfHHrduOL03LF7dVBq74ty4K2JeQ8BuDa3/ +iqTx7WjCBfO8dnjC4Pf4xkVHioPJlL9YM1A2ftiZfIyOy2ujTgeSG+Dlv9ob +zQ10bOord/WcrYNjYkUKyqIMpCet+3n7TyUIOca7qkQwkNPbQqQ+tgIo0TFi +5b0MpF2zOma2rxRUXvhGvdaUQW6784KkwwWQMRjkfCJFBh99TokR+pwL03ti +T+2cksHNPKP5RyAb7HrjoGyfLHIntEk2SGaAMNw9e7tIFjPj/4Qk70uFoZYK +X0U+OSx8nCuQuCEJstM7UkZ95FBM++M166hLULabY4dCmxzGZWyPCw+MhbdU +mQtcivKYzzn96y7XWTBtd7VyOi+PixPqGuvtIqH4Ran9dL88dnQtJVoth4Jk +39gaMVTAjaSsES3jQBh7ixptGQoYtn7saKCfLzTv7J1nsxWwRKwAUtZ4wDfX +Qz8DHEgonKKestWMCS8tHR1nhcmYWvzPrMiLCWJ6Pv+Sesh4fc+TlRTzISg+ +cMfkx0UB/BUcGqPHNwI73r4NX7VLEC851vSrTIyByj7+XsMVQrhUkret99cU +XH5p43D7mRAGN+1jpnD9gqi2CEbeP2FcMH269977BRh5u5xc91gEE0qqFydU +lyFp1d3aC54UlDJeapN8zoLtubsb6TJUbH562tXzFBsM9OZn+waoaBmZYHXS +jA3V7x/uK7tJw9KGqcsrdFmg+MnrspWTKP7IpN39eWwJPnGbnimhiSEXba+h +u/QC/LMcVvKvlcLuC/drn1u8g7Cg7E4uqjRKyVd/nI3ogpNmdi5nwqXxTfZ9 +6rhvB4ho5Fr2vpfGZzxPz4fvaoWxO4HWtep0lOlxYoQsvYCZS+0+yil01Kfm +Olown0F6fMW3k1N09OSP2G1hUwNPdTOMSswY+DLuE+Vg9iMQ9ltd71vIwHDj +rfVfG8ogV2phb/1qGfSWWpegvOk+uO0PmL51TAbNWr43+7DvQnNa5JRtgwze +dqurrpm7A3lJF778k5DF57s7B/LoN6GKV+SbXKQscjzZYzOTngYsTuX5H32y +uFGZVtYtlAyND4AzXlcOBWq6REn3EkDef+gYT6Ycpv++FtL2IQ4aygUGhOfl +8IvOmNqcWAwk+Df5VNjKo9ila9zH9M/A4i4eW/kKeazg0HiAceEw1LlHNZZf +AdPirONco4OB+/0GyQAfBRQwmqPHufuDXfwlitsrBazw21PB5PMG5en3kTs2 +kXDAy6z4kz0TLpkPUiaZJOTRvPNscT8T1MxcA17mk/FeYz2jkHMIOrWT8jkP +C2DJ6aX8/ReGoUvx5UpbIUFU+WGoxkseA7HqsI3vugWx/Y2FqvDAJEzntnU6 +XxHCTUwPIRWLGahddnF/1iqMx93lDawYC3CSYpu+IU4EVa09D88+WAJluX85 +rboUvNX/hnXelwUm2/J6U2cpmEpy7lNyZkPR15a2Kw+pKFMXdsTcmw3XR+PM +U7xpmPlypdjX6ywQbNXyldgiirEz36ISxpaAsvIyvWpSFD8FZdP2Vi2A1qbQ +6ue5UniX75yUuW0vzK1+5OfNIY36fwM2v/F8C6c63OccXKRRZ2dTRfP0KzDE +yWaLBmks4OvuGvRpgwOuO7/uFadjiVOATgx3E8S8e/PeMZKOV5PjT/Hq1kN5 +Q6Xuxg90PFjBd9r6Zi0IbJKu9t7KQMmrxjWyjY8hdbiN/PoaA28IGZBqbpXD +EUt4rPmTgVakBpLfw2LYzTujUbVPBlfPjuuny96DLbrzct+LZLBlbrPOke85 +YPozVvnmKlmcThN8nNR8C+Km95G8j8niFu7E63d70oH3zoiufqMsKnW+7XFQ +TAEr7XlNBxk5XOj8Zhyikgg/Yj5GhsXI4Zu1Rt8i6PFQHXlxXfaAHFZLdpSu +xPNQ1hwU3ofyOLl8T6dBPBpyLlRaN2XKI2nkuKvo8Clob4vcpf1XHruKErtK +K0NAwP6MUKuNAmbYmMW2WQbAHZUhOeFHCljPayD2scIHrr8fcCq+QEIV2Sdr +/Q2ZwGP9+e6iMRlVLr1ItU1iwirV0NP2nALod/urNEfBEMR7lY81VxJ6Put9 +Ui93BO6E9c08DhZEcdVcWeG+cTBMvj5wUUEEj36Z4Q87uwh2V/KuOn8XQfu6 +FPGMgmWYY1q+NU6jYE9wi13RCjYwBH4+KLem4pt7HeyU82z4nKUkpbiehqNr +DB0eirPhU3O/RUcnDd1bjHkf9C7D+qEtPBVDCjhiWXtJ54wnWFZuaM4SJmHh +6qCxUVcmTHTkBnu8IiH9ZVaqOsHjp5ZHHgxdJSPD3uW47CAT+jdffJdkJIDc +Bz9d1jcdBvH3u0zYiwJoPGZt8L1oFK5NqBiKPxVE3qCBjBeHJiEncQVPY5AQ +Zt+j5JX+mwY7ik282QNh1DQMWcVsnQesO5eh7y+CYW6fzy95LkF4lVTacTkK +1swMmc3os6ArwnLA/DMFq8enkjjN2XCkrKRiKIuK/H6Xc5+HsuF8wO+9q6xo +aJMlyD/wjAVxujlOKymiqKG09jpTfhmqV2z6o/1eFEc0LugNshegj/acdSxd +Cq38kqjd/b3wuOvpTslZKYza0UwVHHoLS+v80cRGGiMsKib3VHdCn6EAx/pK +aaT9jlowX90Oawzl80TIdCzyLavedrUJzMN7Ls/705Gg29e5u/Wg96Xa61cH +HUWNJ+CtUR3hD4b89sgxcPGp4IyTQyVY5RbWnr7AwM91d4zNyRWgPfptZHaQ +gW1SoRfTT5eAzrGygwaGMri30HZ///N7wOSvaiq4LYMWL74UbDqSC+K3Vln5 +LsjgnxDHUqXbt8HPdUJu/UFZvPy4TPPGyRtAmjYamK6URSEL+ubftSkgvsLG +Sp8qhzYzBtsCsxPhxfoDF1XD5HDlxLfu7a/j4dH3phy3HjlcXy4Xnfv+PDT8 +7ODwU5dHLbg1Xn01GkLk+ayvJcpjLm1exeBmBNTuuv56wzjB53BhxVbbUKBm +PE7wN1PAqa7J8JmXAdByJnmz7z0FzCoq6Q5POAFPbkoU8PuTsPPExfl2wu96 +dt/kPLmZjLMGS0FdEUxI0gioCx4n42C2z7hq2BBkOhZSrbMFcEjhyJS6zQhM +ythuP3JYEDfBO0ll53EYLLnIKUIWwVNvbu1QV1kEyS1dSQkdIkiZ4NauObEM +hiGnWobPUNB4c4YM3yALShyyajx1qWgUvOrmmbNsSPQRWHvuLxVjeXpKlAk/ +226+20KvkoaH1hQa2a9lwVbNftLaTwpobbrxi46hF6xSzNjea0DC+dREveuW +TFB8I/nEj0XCo1rRH18cZsI9Q3f10qfEfBj1Z2bJDkH/9c5SOSsKNorEVP5M +Z8Hz8bmOz+uo+LnKvcDcjw1z6wf6t72kosCvqd8XDrPhnpPEPunzNMzareR0 +2YsF/uRc6u5bJBTpyXyABE8Kemm7o5zIKLXCp+ZgIXFvLd9/r4SCGuq0hJ/E +fGe278z/50PFUd4yg5IYNsh3GGp0MWjYx9jQJcrJhrHkcyvsfytgcYWr/JMG +D3C78cjdfC0JE8mSsdc9CH91mStProGEEtWn+T1MmMD5ru9VUAwZL8u++iHX +zYQhBW4fe20BfG7eZbxp0zAYlJzz7P4pgA8+VToXho1CZ+xFm4ZyQfxqeaA4 +V2wSFldJ5Ae6C2Fgx/jqe6+mIf/uPlGBXGG8G1Iuy39jHvLWZYh+PCqCWX9X +fr1ivAR3orYnaYhRcF3KhrhTSiwQlpI/qvSGgi1dvEYT+oS/otyRS06i4oVW +rb/bItiwVFmw97kxDXH1O4mMLha8+Gf98c9aUbyltjNK1ngZ1kQvH2b9J4pb +GYve9+mLUEz+fqf2mhTellkrUkR/DymV+ooLk1KowPJRfcPoBt1NwUw9C2m8 +UDojPSj+GmRbGTe9y6SxfFhW/qB1O7g8yoxd4qVjGeW9h9O7Jni4x+a4kTcd +7QevaLn01QPXeA3noVY6ajkVH6ferIMkSZO9OlIMnLgjveP0vUrYtoJ2tTea +gZMP/WOKzCpAUf0hZ/dnBl7Nb7LVGyoBdaFEn4t6Mmh3u0vlH18B4PyG5LUZ +MpgpXfbrSVYuxAa3HLeblcHZoapI6ups+JFVu9XRWhZ/8hX9ZnTcgGSRENW2 +Mllkdolcq+dKBU43LpftgnKoFn96T9anRCjv5r96JVAOH9iE9FTJXoKK64OT +Rp1yGBRquGuVTCy85Jo3qN0sjz8jJq+8bo+GgZPVVvPx8qgYP+cjsBABW2Ny +hFYy5dHJgbx7uTAUsrTe/Neyi/BbXr/6ytYEwgcFz4eidxTwQ6ne4ULWCeg8 +89Ss4SgJP0h8U35G9FPGNdaW7XQyirdmznYHMqG39ufHlQNk3LfqU/Nm1yHI +s5cpF0sVwJ3SOW2aqiMguJRip2YpiHr+9Ev8suOwRftc8hcuQv8mr85uW7kI +MdHDAjINIrgnqZ7vgcUyeOol1lcFU9AlbE6Pg+iHX6wAPWNVKrroI2cIcT4d +e8d9ZvMEFatX7afv2MkGTGbt+1tIQ5526aNXGSww+vYopapbAS16LXLsC7yA +yrfj0wVNEsoEOpdGWjPB4Wr0mMovEu7/kKyxbEvoYyvzgE4FGQvdliy3Cg0B +t+P3gr8mFBQO0pG4E8MCrsRXljUcVPTb90pOz4MNFqHdB749o2JPVZCw9VE2 +SNztNu87ScOcWFGXW9EsiJnd+XThGgnt9+SYChDz/iH1VKiuFRnTztrOD2cx +4bW47ofQHAqeOa/mp0liw4APRemdMxUv5nBszyb0/uw2zeJIKg1Fe/QdTInn +SzoO57knFVA3Y8cnc0lP0OsOkRqXIuF6WsehoiNMeMJnYHz/Iwm/J49G15oz +4fKH8IMBIxS0MRUdFrFjA5dJra5WARVZitO2AQFsKKyN4joSQcIbaabT9ruY +oCWk21OjTcZpAZlH+bFMcK9s3pawm4qb6cM18QR/Zo0WrzH2Efn7qKonR3x/ +gVR/pYKXjCPfTyRZuDEh3FjShINKRVOhnwcPh7AhK3/CI+4dFYXWY9SIFaHv +KlwhaYUknO7qQDaRDxsZLymxcCreHXLf/JTg94ex4sjieQU07/ovMcrNAyZ5 +Y7TucZPw0LL+pxRvJjwa31a3qo6EukKMWiNjJty9TvtSd5qM4QlxPP/+Y8KY +bKPmU3UBdFsUCmBJDINNes6pp6MCWC75Jf6s8yhMdFc6ChYL4q3Fvw1/lyZA +Xr941sxFCO+8IV/eXz0N5t4drn+yhHEb/axQVPQ82KjLHGI4iWDQuF9ApvoS +oaeYcFuYgikJ5iUhG1mgGZh8j/qSgkLvAqY4dNnA7KC5jF6iYqDIZ32J02zQ +tD/3KnMnDSe2iunkfWKBY++DDT+5RfHVg+tPeW2Woaz+6DXHFlE0arI6dkJ9 +EYT4ggN/XJXCCz79tgeN3gOXwnmJ4TEpjGs/5B9i2A1HdP9qaO2Vxq2VP+Kl +LV/DnjWl45kl0pjt9eW/qoh2uOr97u/UajoaHuI07vjXBEPqaT3eHsS9d84K +m7l6GPbX6kxsomMNN8ep7LY6iJAI094mwcD634L7T3RWAmPL/jDOKAZekW5n +i3tUgFRfJv+Ljwy8qN14P41WCmrjUSHF2jI4p/5jk5t6AUz67FrQSZNBj/6g +S/ue5IK2c/7MnhkZVHLIr6bTs+FWzZ2aC/tl8S7Tutli7gZY3ef79LBEFrfe +1RDlUUyFoNQ+9y0kOfSR1C1d+psI8tunkur85FDrWt7g4P5LoOrnL6j5nxw6 +9wstiu+JBXP+q0e/Ksvje7WBbOnhaNggldCjHCePWQl/YsbkI8EvV75q/hvB +s5fv4mK6Q6E//rDnjL4Cvtwb5/pZLhCcT1v/mbmpgAf2cqU4aPiC3a/L4jQn +Euqn642O7CbOi79UTDaIk7H49Nfveb5MCItQGTX9RMaWL7SmWLshKLD5HnHm +qgD2pa13Ed04ArLDDz3EzARxNn2s9O+acfiwguNzPUsYb4qrhEdNLsD2ooAD +fnUi2Mg/8MZt5zKczsl4utGPgtlVbfWKbSwQsuw/o65EReORIIfESDYIx0fV +nh+ioqvvuugAIzZEqH983Z1Lwzv5TSrftrDgtXp275U3CvjgjYXPzCcvyDm9 +pnhAjYRdar6FNwl+/ZoqX7F+goTu3S+3uRF8u3qR4XqumIzcZhax+9cOAaVx +8q6jAQWXRL6v3BTOAtlBzZR7CxTcOpGz4//8ilTam6BRQ8XjNuf2TrizwcG4 +tLMqgIZ2Gvai9pdZwHeMfPXAFRL6fynevoWYX78/9xPEzMnoqnr+xso0JgxG +G7/7mkXBQyok9XU8bOCsP+fTeJCKs31yvrUEzx6MlA91C9LQJWV/sYgI4e+T +drX2jSqg6sPFlTQLT2gzNPptIEZCuQ5Bax1nJlj5BB6J7yYhzLjVD+xhQqni +0E2nQQrK0bpdNh1gg+rS1pOJOVR8FpY5sjWYDWrK+3orQ0hY4CWCKwg/+jbQ +ZzxdnYyqpsf6s6OZEL9GNTTCgIo8p+LK754j4q1+6Ra5m9CzSsbZ1/uYcM1v +Oi+Ji4yllaOB005MyLpxKX5KgIozMxe1QgIJP+lwLK//NRWls6967rdnw8jt +buPpXBI6Wym+uELk42RorytvEBV79yl39BDfd4b052fnFPBN+Z9jv695QIxy +z2WTVhIOnbWNqSb67ZKb3KROGhXjQclpQzgbdvFPhbl7kbC82vfpQ4Jvb4pX +L9lpUPF69QV30WjC32Z6rNmsR8Jjt14InzrAhBebLbv3/SPheGCGYasDkX9d +F/7/VlGxtPhkzpA3GxbOBozfSSfh54j1BSLE/p6JlowMHaeiwVOtACOiHoxS +gS0dX0nomHHWttGCCZK7y9S4z5KwW/6GRw+x3sjN4dftfQSfz3B3bCbWe75T +avjPioQfDV68vknUw+7PI26BjVTcc7iTzBXGhndPtuXpPSD6g9ZyOZXQk23d +7P5NZ6h4yX5N8jFi/+bXG7R7lxTQzWd+rdN2D6ho9Mrt5iShsgb9q/gJJpwR +fWU0V0XCS4+NrVqI+oX8rXH7eoqMBw2HXga2McFbJkfip5oApmm9/7wsMgwD +fGoxFUMCmBjvknHZehTCw/e66RQKorv2zTatyQl45vhbVNNRCBfUEk0flUxD +zmveNcM3hLFDkIdcGjwPZe2eS7sPiyBvZmJhsvISPNvQcrlbkIIecZu/OlNZ +sFusvY3USkElbyH4vYPQ33zbKKGLVLztMHWGRfDdpsiPL16Pht18644LfWWB +SvPnh+Ocothm+vymz+FliBm4oZzYKIr/whr3G+stQhuv3qGwBCk0LFuOaLZ9 +Dzou+emHR6XQJfxT2kGrbjixS/NblZk0JtIOOg54voavBb+ubS2WxjWhC99O +JbZDvknAFvdVdOTbvuZzGm8zRBVprOVwp+OA1I3zX1c2gN3jha1KjXQMq72z +PrK/DvxvJqmViTFwK//pUda3SsgyPnEiPZKBETeubx0NrQAxFdL1HR8YmBrW +pDa0rRTKev8u6GrJYMf9a+JquwvAUP5LybtUGRxI46tS6sgFYdvr21t/yiDy +KQlpq2bDonHqkqilLL7bNO9wZm0GqAfblyoUy+LQaOrqFp1U2KRi7F2yXg4V +z2YvPF+VBG7HDyfv95VDvTlTEPS4BNOfNfPL2uXwX+T2242OsZAo5DDnrySP +tyOEdfv/RMOWPydTWmLlUYEAVgBGwvqHXmuCB+SJfp3ych0JBbZaXk3sTgUc +6lHdeV4jEPLlzYQPZylgxL+Xyx8P+ILY/aBYo8MkFONsN4o3ZQJLqrWbi0bG +sY13SXd8mGD65ZXfifdkNAB9KZMDQ6Bo/cKl4rIA/tNXYTKER6DskEEA2UQQ +S1sd3S4ujIHyUb0zFYvCOPn0xYO0wQW4qlf9O7VaBL+sU0su3bEMcT0bnxzw +oWCz3iHL4kYWyCwI5ijLU1GvNs/jPHG+UXZ78r7sOxUf91//umjChozYFv4X +2TQcpdOu/d1O6MFA6t9/nQpEvDxzjrNecFxjWohvCwlDu29crbYj5lfC9Mry +CAkfFS7+VLBigtNY41h+IRm3KEtMza0aAuk/AXnJSMH0Dwp9X4NYoHHpxONb +fyl46qFmuokrG1K44++7VBL8Ur+3nOvJhpPpmevzfWkY0Cxak5PEgrcS83+j +4km40EQx3UPMv46MIW2dGRlFet8ny6YQ/vhhR7dgBgU/D8rMO3OziRrWJNTa +UTGObF36gOBDy4uplWwSDZ8vfanzorHhpbb2iNGIAopkK+6XdPeEy8ubDvlR +Sfjj8LPyqy4Eb26uHQt7Q8K84mVHboIn9d2iz22/UvB3s+jKbAs2mPT6pdbd +pqL520PnzhB+8u+P7fA9kIQCkYnBzgQfbuVyh8apkZFePOWqFkXwuvxYeiBS +8cmzDYqiBH/1/SteFRqR8GILReQBwbcj2XFboleQcaWD0pEDjoSe6DfcZ/JT +8e1AZ9SYP+G/t+U28Lyiop3xw2eBB9lQbFdXJnaHhCZjAeUuRD7iJdedX+FP +RTXdL1MmhB/OH70yMDmrgGOhGZJ7izzA4pA3RbOJhPP+myTWEnzP0XPjdU+h +oqDof7+UTrGBt+3dYIo7CfOf5DC3Eeenb9a64hbbqFiz/e4TizNssLKy9D+o +TUL6yWNlJ4n6JjiOHoE/hN+1+iN0yJ4Jv4fStrxYScWB2w8DaV5seK7tYNWZ +SkLyFsl4ErG/102DPP1uVLx1O8rgFFGP6S9FdXWfSbia4zBnDaFvP1akZ6pG +Ef3k3TMpQPDZli9RMG0PFUsGzZBJxLM5QVDxnyUR793g/CN7meBxa0yWR4yK +3vVDjdWhRL8Gi/F5FZPQN29N6y7i/V0R6hwykVR03vj8GZXw78lYdWjnogJ+ +TP1v79G9HjBSl7VZ5BkJn/SUmrwl9Cx5x91Hky6E/z9gf2EfkZ+VBQWOeipU +5OcK0LhE8NSkREFWLpGEaRrRX8SIeGaEzfd0HKEih/TbXY+JeE4EHveJDyNh +e+Kqo4XE/8McF63PG1Hxl+aYuiSxf/rweH9jPgm/LDMnG4j3j3dm6wuGUlH8 +LX3AguiHZyvffnLWouKdtp+rewk92v4y/mxwJgn7dGLK5Ij1xQGhrT89qcg9 +oNOygvjfwcS29g8xRH7ZSb63iOfqdYyugv1U3G0i5eRJPCdx7dUWqCDm5dq2 +W1PEfngn/qN5sRQwTdOg2nejB/wPzou+4g== + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1XWUVmUQB+Bd6ZLuXLq7QenupaVX6Vi6y0Sl0wA7SAmxUEBpwUalFBEU +DDDATnzm+Mez85u5Z89+971zv01KSU0el5iQkHDBj6hT/MjPMXkhL8i9yERf +/Xq1HX/Lh9UR7JFfUweQg3cZTy3ztepNfMSP+oPqMHbIr6i3cIpsvE18mHPM +c32r2pUTpOEooznLQddfV4dwhjy8z0TOc4PrU9UCfMhb+v3qbSySX1R7kzmu +MTY+i/kGtT3/yEfUkeyVd6sDyUlt/Tr1Zq7Kz7NL7seNzNdvU7uRlkP6NEyT +C8Z9yovpx0Z9B/6N+6EOj+ibcE3eye2kZbpZId6Rl9Cfujxq1pSf4nlxB+mY +YVY4noe8lAHU4zGzZvwc58CdpGemWRHek5cxkPpkYJZ50ThjeTmDaEBGMpGZ +2a4X4wN5BYNpyONmzflFfom7yMIcs+Icl1cyhEY8YdaCX+WXuZuszDUrEc9T +XkUKm/QduS6/QWOe1Lfkt9gx7mG7Ppl0HNZnY56cFLspr47PJvchC7fqN6ud +4qXgTUaxT7tHHUSuOCsmxI6bP6W24mN+1x9Sh/Mpu/Svqv05TfZ4jqTyOQtc +36F25yTpOcYYPuNI3J+awifkjXNmUuyca/PVkvG35QPqUNbE+al9yRq7r9+i +diaR/fq96mByxz7rn1Zb80d8Xu6N/db3IEOcgz577KRcihPyAwzlOX2XePc4 +oG/CM3Ib/ozvCO4jR+yoWem4V/lBhtGUnLGP5mU4JT/EcJqRi9zkIS/5yE8B +ClKIwrFffrdsnLP8MCNoTpHYJfNynJHXMpIWFI09MS8f5yuvYxQtKcYC8wrx +LOP9ZDStKB5nZF6Rs/EuMobWlIj7Na8UzzDeO8bShiTuN6/MuXhHGEdbSrLQ +vErsRrwPpNKOUiwyr8r52HXG057SLDavxoXYRybQgTIsMa/OF/GcmUhHyrLU +vAZfxjNjEp0oxzLzmlyUn2UynSnPcvNaXJLXM4UuVGCFeW2+kjcwla5UZKV5 +Hb6WNzKNblRilXldvpE3MZ1kKrPavB7fypuZQXeqsMa8PpflLcykB1VjR80b +cCX2lFn0pFrsn3lDvpO3MpteVI/9M2/E9/I25tCbGrFb5o35Qd7OXPrEGZm1 +5S95dzxndup7kpGj+n3xHUM+jjM58f//wTVd+w8ySOct + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgEAURMEvGtiGrWhgYmQJBsKBcOBZsZWogWAJBpMsPHa6Jc/rWUWU +JiKmVI71jk/VT7X3zGM/5C3v6flTvIPjOI7jOI7jOI7jOI7jOI7jOI7jOI7j +OI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7j+O/5 +BWTQDds= + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl3k8VG8bxiUqSmYQM2MJM3YpSmS77xCiRNlbrJU1OxFJSVKJEKESEkKo +rC1k7ycl0qIkNXaipGwz73n/Op/zOc8557m373U9Ui6++49ycnBwDK7g4Pj/ +NSTiwDoODhIuDW8+XuLLhD1mR98yH5FQiT92taURE0zs7Cc4w8h4PN06c6mJ +CT/p0VxSWwTQ01Y3eB15GDzONVy+910AT/C77inaPQo8Uj/cj+YL4uL+DWcS +vkyAVaSWAeOQEDbpxW+QyJ2GJpFAf5rUBnROSjzeF/UbVhs18YcNbsDz7euU +h67NwR+13cUfrgvja6VNm997zAPPkbIsXwcR9Ag6r3uWvgRtxmaXVpMpuCKY +9BkFWeDQzBpd3UTBVSXkpHfb2SAQnZIFsVRM/pEk0RXFhqDFw3tPatNQZcIj +NeQ7C5Ye8uwfYdNwmCG1s8VtGWw5Olvq60WxSogRTjNehMNrW3ZkBIlhuv7D +C4oT/+CiVTbHfQ1x3OWx1VRbfg6cDpU2P5kURxEjg/B/F3/DoZxb/dwPJbAh +6J3T9Y5pUI64d7wqaCOeurku3iSDiJ834O8jIUl8Uso1OOs8AnnBK5iFIZJo +27tmUNb6B5jWF1lufCuJokvcqqNrv8EnK6e5NiUpvEVbfaIs7jNErFm9a/0V +KYzxyrDV9ngPQZmtAj3DUrjxklfHHrduOL03LF7dVBq74ty4K2JeQ8BuDa3/ +iqTx7WjCBfO8dnjC4Pf4xkVHioPJlL9YM1A2ftiZfIyOy2ujTgeSG+Dlv9ob +zQ10bOord/WcrYNjYkUKyqIMpCet+3n7TyUIOca7qkQwkNPbQqQ+tgIo0TFi +5b0MpF2zOma2rxRUXvhGvdaUQW6784KkwwWQMRjkfCJFBh99TokR+pwL03ti +T+2cksHNPKP5RyAb7HrjoGyfLHIntEk2SGaAMNw9e7tIFjPj/4Qk70uFoZYK +X0U+OSx8nCuQuCEJstM7UkZ95FBM++M166hLULabY4dCmxzGZWyPCw+MhbdU +mQtcivKYzzn96y7XWTBtd7VyOi+PixPqGuvtIqH4Ran9dL88dnQtJVoth4Jk +39gaMVTAjaSsES3jQBh7ixptGQoYtn7saKCfLzTv7J1nsxWwRKwAUtZ4wDfX +Qz8DHEgonKKestWMCS8tHR1nhcmYWvzPrMiLCWJ6Pv+Sesh4fc+TlRTzISg+ +cMfkx0UB/BUcGqPHNwI73r4NX7VLEC851vSrTIyByj7+XsMVQrhUkret99cU +XH5p43D7mRAGN+1jpnD9gqi2CEbeP2FcMH269977BRh5u5xc91gEE0qqFydU +lyFp1d3aC54UlDJeapN8zoLtubsb6TJUbH562tXzFBsM9OZn+waoaBmZYHXS +jA3V7x/uK7tJw9KGqcsrdFmg+MnrspWTKP7IpN39eWwJPnGbnimhiSEXba+h +u/QC/LMcVvKvlcLuC/drn1u8g7Cg7E4uqjRKyVd/nI3ogpNmdi5nwqXxTfZ9 +6rhvB4ho5Fr2vpfGZzxPz4fvaoWxO4HWtep0lOlxYoQsvYCZS+0+yil01Kfm +Olown0F6fMW3k1N09OSP2G1hUwNPdTOMSswY+DLuE+Vg9iMQ9ltd71vIwHDj +rfVfG8ogV2phb/1qGfSWWpegvOk+uO0PmL51TAbNWr43+7DvQnNa5JRtgwze +dqurrpm7A3lJF778k5DF57s7B/LoN6GKV+SbXKQscjzZYzOTngYsTuX5H32y +uFGZVtYtlAyND4AzXlcOBWq6REn3EkDef+gYT6Ycpv++FtL2IQ4aygUGhOfl +8IvOmNqcWAwk+Df5VNjKo9ila9zH9M/A4i4eW/kKeazg0HiAceEw1LlHNZZf +AdPirONco4OB+/0GyQAfBRQwmqPHufuDXfwlitsrBazw21PB5PMG5en3kTs2 +kXDAy6z4kz0TLpkPUiaZJOTRvPNscT8T1MxcA17mk/FeYz2jkHMIOrWT8jkP +C2DJ6aX8/ReGoUvx5UpbIUFU+WGoxkseA7HqsI3vugWx/Y2FqvDAJEzntnU6 +XxHCTUwPIRWLGahddnF/1iqMx93lDawYC3CSYpu+IU4EVa09D88+WAJluX85 +rboUvNX/hnXelwUm2/J6U2cpmEpy7lNyZkPR15a2Kw+pKFMXdsTcmw3XR+PM +U7xpmPlypdjX6ywQbNXyldgiirEz36ISxpaAsvIyvWpSFD8FZdP2Vi2A1qbQ +6ue5UniX75yUuW0vzK1+5OfNIY36fwM2v/F8C6c63OccXKRRZ2dTRfP0KzDE +yWaLBmks4OvuGvRpgwOuO7/uFadjiVOATgx3E8S8e/PeMZKOV5PjT/Hq1kN5 +Q6Xuxg90PFjBd9r6Zi0IbJKu9t7KQMmrxjWyjY8hdbiN/PoaA28IGZBqbpXD +EUt4rPmTgVakBpLfw2LYzTujUbVPBlfPjuuny96DLbrzct+LZLBlbrPOke85 +YPozVvnmKlmcThN8nNR8C+Km95G8j8niFu7E63d70oH3zoiufqMsKnW+7XFQ +TAEr7XlNBxk5XOj8Zhyikgg/Yj5GhsXI4Zu1Rt8i6PFQHXlxXfaAHFZLdpSu +xPNQ1hwU3ofyOLl8T6dBPBpyLlRaN2XKI2nkuKvo8Clob4vcpf1XHruKErtK +K0NAwP6MUKuNAmbYmMW2WQbAHZUhOeFHCljPayD2scIHrr8fcCq+QEIV2Sdr +/Q2ZwGP9+e6iMRlVLr1ItU1iwirV0NP2nALod/urNEfBEMR7lY81VxJ6Put9 +Ui93BO6E9c08DhZEcdVcWeG+cTBMvj5wUUEEj36Z4Q87uwh2V/KuOn8XQfu6 +FPGMgmWYY1q+NU6jYE9wi13RCjYwBH4+KLem4pt7HeyU82z4nKUkpbiehqNr +DB0eirPhU3O/RUcnDd1bjHkf9C7D+qEtPBVDCjhiWXtJ54wnWFZuaM4SJmHh +6qCxUVcmTHTkBnu8IiH9ZVaqOsHjp5ZHHgxdJSPD3uW47CAT+jdffJdkJIDc +Bz9d1jcdBvH3u0zYiwJoPGZt8L1oFK5NqBiKPxVE3qCBjBeHJiEncQVPY5AQ +Zt+j5JX+mwY7ik282QNh1DQMWcVsnQesO5eh7y+CYW6fzy95LkF4lVTacTkK +1swMmc3os6ArwnLA/DMFq8enkjjN2XCkrKRiKIuK/H6Xc5+HsuF8wO+9q6xo +aJMlyD/wjAVxujlOKymiqKG09jpTfhmqV2z6o/1eFEc0LugNshegj/acdSxd +Cq38kqjd/b3wuOvpTslZKYza0UwVHHoLS+v80cRGGiMsKib3VHdCn6EAx/pK +aaT9jlowX90Oawzl80TIdCzyLavedrUJzMN7Ls/705Gg29e5u/Wg96Xa61cH +HUWNJ+CtUR3hD4b89sgxcPGp4IyTQyVY5RbWnr7AwM91d4zNyRWgPfptZHaQ +gW1SoRfTT5eAzrGygwaGMri30HZ///N7wOSvaiq4LYMWL74UbDqSC+K3Vln5 +LsjgnxDHUqXbt8HPdUJu/UFZvPy4TPPGyRtAmjYamK6URSEL+ubftSkgvsLG +Sp8qhzYzBtsCsxPhxfoDF1XD5HDlxLfu7a/j4dH3phy3HjlcXy4Xnfv+PDT8 +7ODwU5dHLbg1Xn01GkLk+ayvJcpjLm1exeBmBNTuuv56wzjB53BhxVbbUKBm +PE7wN1PAqa7J8JmXAdByJnmz7z0FzCoq6Q5POAFPbkoU8PuTsPPExfl2wu96 +dt/kPLmZjLMGS0FdEUxI0gioCx4n42C2z7hq2BBkOhZSrbMFcEjhyJS6zQhM +ythuP3JYEDfBO0ll53EYLLnIKUIWwVNvbu1QV1kEyS1dSQkdIkiZ4NauObEM +hiGnWobPUNB4c4YM3yALShyyajx1qWgUvOrmmbNsSPQRWHvuLxVjeXpKlAk/ +226+20KvkoaH1hQa2a9lwVbNftLaTwpobbrxi46hF6xSzNjea0DC+dREveuW +TFB8I/nEj0XCo1rRH18cZsI9Q3f10qfEfBj1Z2bJDkH/9c5SOSsKNorEVP5M +Z8Hz8bmOz+uo+LnKvcDcjw1z6wf6t72kosCvqd8XDrPhnpPEPunzNMzareR0 +2YsF/uRc6u5bJBTpyXyABE8Kemm7o5zIKLXCp+ZgIXFvLd9/r4SCGuq0hJ/E +fGe278z/50PFUd4yg5IYNsh3GGp0MWjYx9jQJcrJhrHkcyvsfytgcYWr/JMG +D3C78cjdfC0JE8mSsdc9CH91mStProGEEtWn+T1MmMD5ru9VUAwZL8u++iHX +zYQhBW4fe20BfG7eZbxp0zAYlJzz7P4pgA8+VToXho1CZ+xFm4ZyQfxqeaA4 +V2wSFldJ5Ae6C2Fgx/jqe6+mIf/uPlGBXGG8G1Iuy39jHvLWZYh+PCqCWX9X +fr1ivAR3orYnaYhRcF3KhrhTSiwQlpI/qvSGgi1dvEYT+oS/otyRS06i4oVW +rb/bItiwVFmw97kxDXH1O4mMLha8+Gf98c9aUbyltjNK1ngZ1kQvH2b9J4pb +GYve9+mLUEz+fqf2mhTellkrUkR/DymV+ooLk1KowPJRfcPoBt1NwUw9C2m8 +UDojPSj+GmRbGTe9y6SxfFhW/qB1O7g8yoxd4qVjGeW9h9O7Jni4x+a4kTcd +7QevaLn01QPXeA3noVY6ajkVH6ferIMkSZO9OlIMnLgjveP0vUrYtoJ2tTea +gZMP/WOKzCpAUf0hZ/dnBl7Nb7LVGyoBdaFEn4t6Mmh3u0vlH18B4PyG5LUZ +MpgpXfbrSVYuxAa3HLeblcHZoapI6ups+JFVu9XRWhZ/8hX9ZnTcgGSRENW2 +Mllkdolcq+dKBU43LpftgnKoFn96T9anRCjv5r96JVAOH9iE9FTJXoKK64OT +Rp1yGBRquGuVTCy85Jo3qN0sjz8jJq+8bo+GgZPVVvPx8qgYP+cjsBABW2Ny +hFYy5dHJgbx7uTAUsrTe/Neyi/BbXr/6ytYEwgcFz4eidxTwQ6ne4ULWCeg8 +89Ss4SgJP0h8U35G9FPGNdaW7XQyirdmznYHMqG39ufHlQNk3LfqU/Nm1yHI +s5cpF0sVwJ3SOW2aqiMguJRip2YpiHr+9Ev8suOwRftc8hcuQv8mr85uW7kI +MdHDAjINIrgnqZ7vgcUyeOol1lcFU9AlbE6Pg+iHX6wAPWNVKrroI2cIcT4d +e8d9ZvMEFatX7afv2MkGTGbt+1tIQ5526aNXGSww+vYopapbAS16LXLsC7yA +yrfj0wVNEsoEOpdGWjPB4Wr0mMovEu7/kKyxbEvoYyvzgE4FGQvdliy3Cg0B +t+P3gr8mFBQO0pG4E8MCrsRXljUcVPTb90pOz4MNFqHdB749o2JPVZCw9VE2 +SNztNu87ScOcWFGXW9EsiJnd+XThGgnt9+SYChDz/iH1VKiuFRnTztrOD2cx +4bW47ofQHAqeOa/mp0liw4APRemdMxUv5nBszyb0/uw2zeJIKg1Fe/QdTInn +SzoO57knFVA3Y8cnc0lP0OsOkRqXIuF6WsehoiNMeMJnYHz/Iwm/J49G15oz +4fKH8IMBIxS0MRUdFrFjA5dJra5WARVZitO2AQFsKKyN4joSQcIbaabT9ruY +oCWk21OjTcZpAZlH+bFMcK9s3pawm4qb6cM18QR/Zo0WrzH2Efn7qKonR3x/ +gVR/pYKXjCPfTyRZuDEh3FjShINKRVOhnwcPh7AhK3/CI+4dFYXWY9SIFaHv +KlwhaYUknO7qQDaRDxsZLymxcCreHXLf/JTg94ex4sjieQU07/ovMcrNAyZ5 +Y7TucZPw0LL+pxRvJjwa31a3qo6EukKMWiNjJty9TvtSd5qM4QlxPP/+Y8KY +bKPmU3UBdFsUCmBJDINNes6pp6MCWC75Jf6s8yhMdFc6ChYL4q3Fvw1/lyZA +Xr941sxFCO+8IV/eXz0N5t4drn+yhHEb/axQVPQ82KjLHGI4iWDQuF9ApvoS +oaeYcFuYgikJ5iUhG1mgGZh8j/qSgkLvAqY4dNnA7KC5jF6iYqDIZ32J02zQ +tD/3KnMnDSe2iunkfWKBY++DDT+5RfHVg+tPeW2Woaz+6DXHFlE0arI6dkJ9 +EYT4ggN/XJXCCz79tgeN3gOXwnmJ4TEpjGs/5B9i2A1HdP9qaO2Vxq2VP+Kl +LV/DnjWl45kl0pjt9eW/qoh2uOr97u/UajoaHuI07vjXBEPqaT3eHsS9d84K +m7l6GPbX6kxsomMNN8ep7LY6iJAI094mwcD634L7T3RWAmPL/jDOKAZekW5n +i3tUgFRfJv+Ljwy8qN14P41WCmrjUSHF2jI4p/5jk5t6AUz67FrQSZNBj/6g +S/ue5IK2c/7MnhkZVHLIr6bTs+FWzZ2aC/tl8S7Tutli7gZY3ef79LBEFrfe +1RDlUUyFoNQ+9y0kOfSR1C1d+psI8tunkur85FDrWt7g4P5LoOrnL6j5nxw6 +9wstiu+JBXP+q0e/Ksvje7WBbOnhaNggldCjHCePWQl/YsbkI8EvV75q/hvB +s5fv4mK6Q6E//rDnjL4Cvtwb5/pZLhCcT1v/mbmpgAf2cqU4aPiC3a/L4jQn +Euqn642O7CbOi79UTDaIk7H49Nfveb5MCItQGTX9RMaWL7SmWLshKLD5HnHm +qgD2pa13Ed04ArLDDz3EzARxNn2s9O+acfiwguNzPUsYb4qrhEdNLsD2ooAD +fnUi2Mg/8MZt5zKczsl4utGPgtlVbfWKbSwQsuw/o65EReORIIfESDYIx0fV +nh+ioqvvuugAIzZEqH983Z1Lwzv5TSrftrDgtXp275U3CvjgjYXPzCcvyDm9 +pnhAjYRdar6FNwl+/ZoqX7F+goTu3S+3uRF8u3qR4XqumIzcZhax+9cOAaVx +8q6jAQWXRL6v3BTOAtlBzZR7CxTcOpGz4//8ilTam6BRQ8XjNuf2TrizwcG4 +tLMqgIZ2Gvai9pdZwHeMfPXAFRL6fynevoWYX78/9xPEzMnoqnr+xso0JgxG +G7/7mkXBQyok9XU8bOCsP+fTeJCKs31yvrUEzx6MlA91C9LQJWV/sYgI4e+T +drX2jSqg6sPFlTQLT2gzNPptIEZCuQ5Bax1nJlj5BB6J7yYhzLjVD+xhQqni +0E2nQQrK0bpdNh1gg+rS1pOJOVR8FpY5sjWYDWrK+3orQ0hY4CWCKwg/+jbQ +ZzxdnYyqpsf6s6OZEL9GNTTCgIo8p+LK754j4q1+6Ra5m9CzSsbZ1/uYcM1v +Oi+Ji4yllaOB005MyLpxKX5KgIozMxe1QgIJP+lwLK//NRWls6967rdnw8jt +buPpXBI6Wym+uELk42RorytvEBV79yl39BDfd4b052fnFPBN+Z9jv695QIxy +z2WTVhIOnbWNqSb67ZKb3KROGhXjQclpQzgbdvFPhbl7kbC82vfpQ4Jvb4pX +L9lpUPF69QV30WjC32Z6rNmsR8Jjt14InzrAhBebLbv3/SPheGCGYasDkX9d +F/7/VlGxtPhkzpA3GxbOBozfSSfh54j1BSLE/p6JlowMHaeiwVOtACOiHoxS +gS0dX0nomHHWttGCCZK7y9S4z5KwW/6GRw+x3sjN4dftfQSfz3B3bCbWe75T +avjPioQfDV68vknUw+7PI26BjVTcc7iTzBXGhndPtuXpPSD6g9ZyOZXQk23d +7P5NZ6h4yX5N8jFi/+bXG7R7lxTQzWd+rdN2D6ho9Mrt5iShsgb9q/gJJpwR +fWU0V0XCS4+NrVqI+oX8rXH7eoqMBw2HXga2McFbJkfip5oApmm9/7wsMgwD +fGoxFUMCmBjvknHZehTCw/e66RQKorv2zTatyQl45vhbVNNRCBfUEk0flUxD +zmveNcM3hLFDkIdcGjwPZe2eS7sPiyBvZmJhsvISPNvQcrlbkIIecZu/OlNZ +sFusvY3USkElbyH4vYPQ33zbKKGLVLztMHWGRfDdpsiPL16Pht18644LfWWB +SvPnh+Ocothm+vymz+FliBm4oZzYKIr/whr3G+stQhuv3qGwBCk0LFuOaLZ9 +Dzou+emHR6XQJfxT2kGrbjixS/NblZk0JtIOOg54voavBb+ubS2WxjWhC99O +JbZDvknAFvdVdOTbvuZzGm8zRBVprOVwp+OA1I3zX1c2gN3jha1KjXQMq72z +PrK/DvxvJqmViTFwK//pUda3SsgyPnEiPZKBETeubx0NrQAxFdL1HR8YmBrW +pDa0rRTKev8u6GrJYMf9a+JquwvAUP5LybtUGRxI46tS6sgFYdvr21t/yiDy +KQlpq2bDonHqkqilLL7bNO9wZm0GqAfblyoUy+LQaOrqFp1U2KRi7F2yXg4V +z2YvPF+VBG7HDyfv95VDvTlTEPS4BNOfNfPL2uXwX+T2242OsZAo5DDnrySP +tyOEdfv/RMOWPydTWmLlUYEAVgBGwvqHXmuCB+SJfp3ych0JBbZaXk3sTgUc +6lHdeV4jEPLlzYQPZylgxL+Xyx8P+ILY/aBYo8MkFONsN4o3ZQJLqrWbi0bG +sY13SXd8mGD65ZXfifdkNAB9KZMDQ6Bo/cKl4rIA/tNXYTKER6DskEEA2UQQ +S1sd3S4ujIHyUb0zFYvCOPn0xYO0wQW4qlf9O7VaBL+sU0su3bEMcT0bnxzw +oWCz3iHL4kYWyCwI5ijLU1GvNs/jPHG+UXZ78r7sOxUf91//umjChozYFv4X +2TQcpdOu/d1O6MFA6t9/nQpEvDxzjrNecFxjWohvCwlDu29crbYj5lfC9Mry +CAkfFS7+VLBigtNY41h+IRm3KEtMza0aAuk/AXnJSMH0Dwp9X4NYoHHpxONb +fyl46qFmuokrG1K44++7VBL8Ur+3nOvJhpPpmevzfWkY0Cxak5PEgrcS83+j +4km40EQx3UPMv46MIW2dGRlFet8ny6YQ/vhhR7dgBgU/D8rMO3OziRrWJNTa +UTGObF36gOBDy4uplWwSDZ8vfanzorHhpbb2iNGIAopkK+6XdPeEy8ubDvlR +Sfjj8LPyqy4Eb26uHQt7Q8K84mVHboIn9d2iz22/UvB3s+jKbAs2mPT6pdbd +pqL520PnzhB+8u+P7fA9kIQCkYnBzgQfbuVyh8apkZFePOWqFkXwuvxYeiBS +8cmzDYqiBH/1/SteFRqR8GILReQBwbcj2XFboleQcaWD0pEDjoSe6DfcZ/JT +8e1AZ9SYP+G/t+U28Lyiop3xw2eBB9lQbFdXJnaHhCZjAeUuRD7iJdedX+FP +RTXdL1MmhB/OH70yMDmrgGOhGZJ7izzA4pA3RbOJhPP+myTWEnzP0XPjdU+h +oqDof7+UTrGBt+3dYIo7CfOf5DC3Eeenb9a64hbbqFiz/e4TizNssLKy9D+o +TUL6yWNlJ4n6JjiOHoE/hN+1+iN0yJ4Jv4fStrxYScWB2w8DaV5seK7tYNWZ +SkLyFsl4ErG/102DPP1uVLx1O8rgFFGP6S9FdXWfSbia4zBnDaFvP1akZ6pG +Ef3k3TMpQPDZli9RMG0PFUsGzZBJxLM5QVDxnyUR793g/CN7meBxa0yWR4yK +3vVDjdWhRL8Gi/F5FZPQN29N6y7i/V0R6hwykVR03vj8GZXw78lYdWjnogJ+ +TP1v79G9HjBSl7VZ5BkJn/SUmrwl9Cx5x91Hky6E/z9gf2EfkZ+VBQWOeipU +5OcK0LhE8NSkREFWLpGEaRrRX8SIeGaEzfd0HKEih/TbXY+JeE4EHveJDyNh +e+Kqo4XE/8McF63PG1Hxl+aYuiSxf/rweH9jPgm/LDMnG4j3j3dm6wuGUlH8 +LX3AguiHZyvffnLWouKdtp+rewk92v4y/mxwJgn7dGLK5Ij1xQGhrT89qcg9 +oNOygvjfwcS29g8xRH7ZSb63iOfqdYyugv1U3G0i5eRJPCdx7dUWqCDm5dq2 +W1PEfngn/qN5sRQwTdOg2nejB/wPzou+4g== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1XWUVmUQB+Bd6ZLuXLq7QenupaVX6Vi6y0Sl0wA7SAmxUEBpwUalFBEU +DDDATnzm+Mez85u5Z89+971zv01KSU0el5iQkHDBj6hT/MjPMXkhL8i9yERf +/Xq1HX/Lh9UR7JFfUweQg3cZTy3ztepNfMSP+oPqMHbIr6i3cIpsvE18mHPM +c32r2pUTpOEooznLQddfV4dwhjy8z0TOc4PrU9UCfMhb+v3qbSySX1R7kzmu +MTY+i/kGtT3/yEfUkeyVd6sDyUlt/Tr1Zq7Kz7NL7seNzNdvU7uRlkP6NEyT +C8Z9yovpx0Z9B/6N+6EOj+ibcE3eye2kZbpZId6Rl9Cfujxq1pSf4nlxB+mY +YVY4noe8lAHU4zGzZvwc58CdpGemWRHek5cxkPpkYJZ50ThjeTmDaEBGMpGZ +2a4X4wN5BYNpyONmzflFfom7yMIcs+Icl1cyhEY8YdaCX+WXuZuszDUrEc9T +XkUKm/QduS6/QWOe1Lfkt9gx7mG7Ppl0HNZnY56cFLspr47PJvchC7fqN6ud +4qXgTUaxT7tHHUSuOCsmxI6bP6W24mN+1x9Sh/Mpu/Svqv05TfZ4jqTyOQtc +36F25yTpOcYYPuNI3J+awifkjXNmUuyca/PVkvG35QPqUNbE+al9yRq7r9+i +diaR/fq96mByxz7rn1Zb80d8Xu6N/db3IEOcgz577KRcihPyAwzlOX2XePc4 +oG/CM3Ib/ozvCO4jR+yoWem4V/lBhtGUnLGP5mU4JT/EcJqRi9zkIS/5yE8B +ClKIwrFffrdsnLP8MCNoTpHYJfNynJHXMpIWFI09MS8f5yuvYxQtKcYC8wrx +LOP9ZDStKB5nZF6Rs/EuMobWlIj7Na8UzzDeO8bShiTuN6/MuXhHGEdbSrLQ +vErsRrwPpNKOUiwyr8r52HXG057SLDavxoXYRybQgTIsMa/OF/GcmUhHyrLU +vAZfxjNjEp0oxzLzmlyUn2UynSnPcvNaXJLXM4UuVGCFeW2+kjcwla5UZKV5 +Hb6WNzKNblRilXldvpE3MZ1kKrPavB7fypuZQXeqsMa8PpflLcykB1VjR80b +cCX2lFn0pFrsn3lDvpO3MpteVI/9M2/E9/I25tCbGrFb5o35Qd7OXPrEGZm1 +5S95dzxndup7kpGj+n3xHUM+jjM58f//wTVd+w8ySOct + "], 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]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 13}, {0., 1.9701485006351023`}}, + "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:eJwV13k0lP8XB3CJFiUziJmxhBm7FCUi7g0hSpS9xVpZsxMRCokSIUIlJApJ +ZW0he18pWVpIUmMnlZRt5vf8/przOmfO53nu577vPTOSTt4Hj3NycHAMreDg ++P9nUNih9RwcJFwa2XKyxJsJ5Q0eeV2cJFRSp38RO8WEKZ5ozbvcJDyyrPsp +1ZMJLtcfu5quI2ESWSL2mhsTzCs2NmULkbBodcD4mDMTLi1vPuJDJeH3o88f +XnFiQqu+wW89URLKtgtY7nJkgk5XkOSEJAk30NqP3DvGBKWZ9+E7N5Nw0MOk ++JMtE06qzwjybiVhcNf1K1U2TMg9u6Z4UJWEnareRTesmUDl3fnpggYJpf0d +S8MtmWBhYe57WIuE9NMnyk5bMCEpy23NFh0Snrj5UujMISasUsjc0atHwvm0 +JJ1r5kzQ9S1/XWRAwovNFOEHZkwIr3rlEr6XhB8qGOfeHGDCrMHiVcYB4vyP +KjqypkzYkiig8M+chEZ3AguO7WeCe49i/X8WJPyo9/LNjX1M+Op85IefHQmF +UtVSt5kwQfR+QKzBURKKcrYZxBszwebXJTGaAwl1M3TGRvcyIWXnncdTTiSc +OWR74QDhjshnJvXHieeLf1V6bsQEntaeoVRXEhY8zWVuJ7yHbzrE1YOED6u8 +nz0yZMLTG+KFfL4k7Dh1cb7NgAl/v++Ab/4k5A9PCnQkrKp0oLciiISFHsK4 +gvAp/5Ne8SEkbEtadbxoDxOKaiK4joWR8Hq68Ywt4e8rMrJUIoj79uye4ics +sbdMlfscCbvkrrt16zPhcFJr24doEpLZyd43CV97P+hQfIGEyjJP1/kSfic+ +/zcinoQLjRTjfYR5T5CvHLpMQt/PxTu2EjYqkZeRTSJhunrUZ1HC0bO7ny1c +JaHtvlxjfsIvtOwsOtKI87dKxJMIL5zzm7idQcL+sA2FwoR3vIo/F5hFwr5d +0WWyhH3JedS9N0ko3J31AAkX29SWid4m+jPu99CJ8OitLsOZPBI6Wii8vEyY +PjIx0FBAws/LzKl6wseUuYLSi4j772xHNuHMQFFej2ISeuevadlD1N/zdHu+ +zgPi/WnNl9IIk7j2a/GXE/Vd3X5zmvA+k+PvmI9JqMgXu9qcuN9IkdcGc5Uk +THhiaNFM+PHE9tpVtSTUFmTUGBD9Gq3N3iL8nIRPu0uN3hEWvcSVL1tPQvGq +s3xuRH/NjnhSNBqJfPpuFl9H5CFaqfuSUQsJh89ZR1cRnmzPC3R7TeT7VXaa +GpEviRvrxkPekjC/eNmem8ifhZf/sfguEsJPl7pBwk959QzvfyTht5SxqBoi +vzOf79XW9pNwNcdRzmoi34xS/q3tX0hon3nOuoHIf4LpEGWKScK1GrefLx5k +wnNx48vLoyR8XLT4Q56Yp1/TD1dsmCSha9er7S7EvNldiRpX/kXCgx9S1JeJ +eUy0HzsGf4h6Lf4IHiHm9+UW864D/0g44Z+p32LHBIW3Ek99WCQ8rhn18eVR +4v5z4rZGrSDjSjvFY4fsmXDVZyY/mYuMpRVj/jMORP9JdZfLecg4+u1UspkL +E16Z29vPCpExrfifyT0PJrAkW7q4aGQc33SHdNuLyPsvZaONYmQsPvvlWz6x +vzKvsrbuoJNRrCVrtsufmNeuG5ynt5BxVm8poDOMCTfzuIPjVMlIL552Vo0g +8uvvNZGhRkYV4xMDOVFM0BTU7q7WIuMMv/TjglgmrLXsv7NoSEblhJdp1slM +2CWtT1tvQkbh3vcpMqlM8PlzP1HUlIzOKjHXV6Yz4UPamWBtCzKmn7OeH8lm +QmEvbW+EAxklV3hVHy4i5sHGdpIzhIwnMyyzlhqZEPS32uXLGTIe1h9+5d/K +hDvXaJ9rz5IxNDFu7b//mMDZ0/c6IJqMl2Ref5ftYsIz82MPhq+QkWHrdFJm +iKjfxNnvVQEZ7zbUMYo4h8FhvGG8oIiMW5XEp+dWDcOViwzn88Vk5DYxiz24 +bhgmW5iHdpWTschlyXyb4DDc1XdVK31GnGcwkJUtMwyiOl7/krvJeG3f05UU +02Ew/vza59R7MuqBrqTRoWEICVMeM/5ExubPtMZYm2HorfnxceUgGQ+s+tS0 +xXkYktX9agMnyDiU4zWhEjIMq1SCz9py8qPPrS9SHIXD8IMexSW5lR/drbUD +15NHwFM6V/yHKj+ma77vXxYegXGZBo1navzosijoxxIfgWF5bi9bLX58Ydpp +uHnzCAxsudiTbMCP3Ic/XdI1HoEOreQCzqP8WHJ2qeDghREoPnTb6PtFfvwV +GBytwzsKCpYvncov8eM/XWUmQ2gUCq2+hUVe4ce+9A1OIptGId9W+qFoGj/u +lspt1VAZhSz7IqplDj8Oyx+bVrMahXiPh+NNFfx4atbztE7eKLidr7909xth +Pud99/aOwSCvanT5MD8mxTtlXrIcA6uM3DPPxvjxocTn+HOOY6BXct696wc/ +PvhU4VgUMgZi7/cYsRf50XDcUu/bvTHoVHi10lpQAJW/66vykMdh57t3oav2 +CGCCffWA8uQ4lB3R8yMbCWBpi73LxYVxkBl55CZqIoCzGeOlf9dMgMBSqo2q +uQDq+NIT+GQmYEraesexowK4GXoklBwn4HZI388ngQIoppInI9Q3AWslv7se +LxDAxYMbIxM/T0Jo6H6XXUUC6Kp1o1VzahImuyrsBYoF8Obi3/q/S5PQEXvR +qv6hAH4xP1ScJzoFVyeV9cWeCSBPwGDmyyNTIFoVsqmnSwDb3pqpCA1OgfIB +vl79FYK4VJK/vffXNFiEa+oxjghio078RvG8GXhu/1tEw14QF1STjB+XzICc +bvGsiZMg3n5LvnSwagYWV4kX+LsKon/7xOq7r2cgN2nF2oYAQcy5S8kv/TcD +M3mtHY6XBXEz001Q2ewnXHplZXfruSAGNh5gpnL9gkZhf1+a5EZ0TE462Rfx +G1YbNPKFDG3EmLb1SsNX5+CP6t7iD9eE8I3i5i3v3eYh9w3PmpHrQtgusJZc +GjgPpp7tzn+yhXA7/ZxgRNQ8FNw5IMKfJ4R3gh7K8F2fBxuKVbzJAyHU0A9a +xWyZh5plJ9fnLUJ40lVOz4KxABGtYYz8f0K4YPxs/933C6B0XCeyfFEIp569 +fJA+tAAfVnD017GE8IaYcmjE1AJs1Tqf8plLGG2nrsxuX7kIQyUXOYXJwnjm +7c2dasqLoJ9ybfCivDAe//yTL+TcIqw9VpbtbSeMbgEx2ufoS1DW5r6096gw +8mQlFaUoLYGVmvQRhoMwBkz4+GWpLUH++kyRj8eFMfvvyi+XDZcAa89n6voK +Y4hLf8yS+xKcplhnbIwTRhVL96OzD5Zg9N1ySu0TYUwsqVqcVFmGKzpVv9Oq +hPHzetWU0p3LsOOe3yGfWmFs4Bt867J7GaKjRvil64VxX3Id7wOzZZDY2pmc +2C6MlElurepTy2BzOf+K4zeivtpUsczCZWg1NElYTabgikBSPwqw4PnG5ktd +AhR0i9vyxZHKgsffMPGWEAVTE01Lgjax4HbEjmR1UQquT90Yd0aRBaGVkukn +ZSlY/XPY5KcuC5Rk/+W2aFPw5sBbVow3C6T++OWnIAUzPsj3fQlgAaVh6o69 +HgWXhL+t3BzKAm77b4V/jSgoFLBL/HY0CwaudZTKWlCwQTi64kcGC5JX3am5 +4E5BScOlVokXLIjr3vT0kBcFm3SOmBc3sOBsbuazTT4UzKlsrVNoZYG7TlJd +ZSAFnULmdDg6WaAfdKZ5JJKChlsypXmHWDDHNH9nmE7B7sBmm3sr2DD5qL1L +IJOC/UPS847cbBiKMuz5kk3BI8oktfVr2fBGTPtDcC4FI2NUfTRIbCi0lBu4 +W0JBdTVa4g8xNtg1scZWN1JwVQk5uWcHG/aKtrWSWiio6CkIv3eyQcM/5S71 +FQUFe/ymObTZICQpd1zxLQWbO3kMJnXZ0BlmPmjaT8GqielkTlM21HWJvLD+ +QsHfTSIrc8zYUKowfMNhiIKytC6nzYfYcOlD6GG/UQpaGYuMCNuwwWh7fm/a +LAXTSI59io5sUE849eTmXwqeeaSRYeTMBpkhjdS7CxTcNpm70/I4G7iSXptX +c1DR58BrWR03NvweTt/6ciUVB2898qd5EPVrO/H9t4qKpcWnc4c92fBiYq69 +fz0V+ytdC019iPfRrb/P5KPiu8GOiHFfNmRfT4if5qfiz58XNYP82RBqKGHE +QaWiseCPw0eD2OB2c1xmrSgVPeuGG6qC2WDz5zE3/yYq7jvaQeYKYcOOvL0N +dGkqNj076+x+hg3SCwK5SnJU1KnJd4sJY4Og+UCkmiIVDUcD7JLC2bCysNBe +R5mKfFx+6gln2fCL5adjqEJFJ13kDIpgw1dLbTGz7VSs3nHnqVkkG94Wr16y +UafitaoLriJRbHi+8t0nR00q3m79sbqXcIlddrW7NhUNAlfdiDxH1PPwRIY/ +UvHp840KIufZEL9GJThMj4prz8Q9vEM4xH7RMsaAir80xtUkotngWtG0PXEv +FbfQR6rjCVvzJgmk76NiyZAJMgkbuNj9unWAinciudu3xLBBrZbRWXiQinuN +JB3cCTP4fzx4aEnFt3fb2amEBdyqE2tsqBhHtix9QJiz7rxXw2EqzvbJetcQ +/ilkuq/9GBU5pN7teUJ40Iui2ONIxYu5HDtyCL9pHFo74ELFm7ci9M4Qfi5S +Mjp8kop6zzT9DAgX+wW3/HCnIvfgruYVhLPadhf886LiGE+ZXgnxvvES62NW ++FJRVfvztBHh08G9zjwBVOw9oNTeTdR/siNHVyCYimLv6INmhK2kPSRFQ4n6 +hl23PCPub0+YGod0OBUdN714TiW8vYs9sDmSigm2a1JOEPfNH5WaDbFUTPme +LN5J9GupwDpC8CIVb9lNR7KIfjLbaU5jCVT0F+7XFSdcRbktm5JMxQstmn+3 +E3nI1XHhcU2looDIf78UibwkuMhO7UqnYjwoOmwMZcOxspLy4WwiHz6X8l4Q +eTPq9UmrvUVF03dHzkcSeVRZ2nY6KZeKz0OyRrcFEvNgVKOtWUhFlsKMtZ8f +G+59aW69/IiK0rUhx0yJ/Kdyx993qqCilNrd5Tx3NoQr7k9Ur6biSavz+ydd +2WAW3HXo63MqdlcGCP1/vuY2DA5sf0VF/l/Tvy8cJfqzPa9+7Wsq2hg+eu5/ +mA1tdifyB94Q5+VccT9oS+StYNItroeKghswYtSCDXo687N9g1Q0D0+0OG3C +BiWXp+/LvlHxycC1L4tGxP6Ij6iJGaais/f6KD8DNoz3cEdumaRi1aqD9J27 +2ZDkxb/u/F8qxq7tLlEi9lF/tqKkwgYajq3Rt3tE7Kvml9Mr2SQavlj6XOtB +Y8OD0YfDXQI0dEo9WCwszIZz2zWKw6k0FOnWtTMm9p1cu756J4OGfYyNnSKc +bAhYPLr/tBYNlSfd0oK+scDqng9vvA4Nu3jXnxT8wgIN2/Ovs3bTcHKb6K78 +TyxYqijc/8KQhri6RzyT2Mcxfr/3r7KgoVW2AN/gcxZcG4szTfWkYdarlaJf +rrHgdEbWhgJvGvo1iVTnJrPAzrC0o9KPhjbqtiK2l1ggfqfLtO80DXNjRZxu +RrHgroP4AakYGmbvVXS45MGCqvePDpTdoGFp/fSlFdosyIxt5nuZQ9RPp139 +u4MFYWof33Tl0fB2QaPy160swBTWgb9FNFzbJnX8CoMFbaZ7zXQqaHhkTZGB +7ToWfGoaMGvvoKFrsyHPg95lWHq09uAom4YjDMndzS7LoNzU/2iCUwRbjV/c +8Dq6DPa9Dzb+4BbB1w+uPeOxWoaX/yw//lkngjdVd0fIGC5DnHauw0qKCKor +rrvGlFsGgRZNb/GtIhj782tE4vgSKHzyuGThIILfs2h3fpxYAmuOjua6OhGs +FGSE0gwXIXrwulJSgwj+C2k4aKizCGV1x6/aN4ugQaPFiVNqi7Amavko6z8R +3MZY9LxPX4SqFZv/aL0XwVH1CzpD7AWgrLxEr5wSwU8BObT9lQvwids4soQm +ily0/fquUgtwdF3zzswAUczQfXRBYfIfXLTI4bivLoZ73LYZa8nNgcOR0qan +U2IobKAX+u/ibziSe3OA+5E41gf0OFxrnwGlsLsnKwM24Zkb6+ONMifBgsfv +72NBCXxayjU060j8vg9cwSwKkkDr3jVDMpbfwbjunvmmdxIossStMrbuK3yy +cJhrVZTEm7TVp8ri+iFszeo9Gy5LYrRHprWW23to5dE5EpIoifply2FN1u9B +kDfQ//sVSbzgNWB92OA9FJO/3a65Kom3pNcJ36O/hz7aC9aJDEm08Emmdg30 +gubm4KoXeZJ4h/e8pKl1L/wzH1H0rZHErgv3a16Y9UBAVgt/94gkbkrwaN/n +0gW7nAoyjo5JolPop/TDFl3AJR8jPjIuiXFtR3yD9LsgtUJXYWFKEuVZXipv +GV3wpPPZbolZSYzY2UQVGH4Hc6sf+3hySKHuX78tb93fQUhATgcXVQol5ao+ +zoZ1wtn9IfFqxlLYGefCXR79Bk7t0fhaaSKFSbTD9oPub+CY9l91zf1SuK3i +e7yU+RvQ3hzI1DGTwgulP6WGxN7A0npfNLKSwjCz8ql9VR1wpt11zs5JCnft +bixvmnkNp01snCJDpfBtzn3qhHc7+O1V1/zvnhS+G0u8YJrfBl8Kf13dViyF +a4IXvp5JaoN9a0onskqkMMfj83+VYW0g08K44VkmhQ9HZOQOW7ZBnz4/x4YK +KaT9jlgwXd0G+jjVZFYvhYW8XZ1DXq0grJ5n3vteCp+vfRYTuqcFnjL43L5y +0ZFiZzTtK9oEBUZ+W11X0ZF3x5r+dJ4muOLZ83d6NR31j3Aatv9rBKfHWbFL +PHQso7x3c+hphDX6cvnCZDre8y6r2n6lEQ457/6yX4yOJQ5+u6K5G2H8tr9l +jRodpbsdGEFLL4Gy6cPulBN0XF4XcdafXA8R99TXcbjScVDyesyXlfUwrJbe +7elGPM8zd4XVXB082md10sCTjrZDlzWd+urANLT70rwvHTtFSF/m7tRBdM/b +9/bhdLySEn+GR7sOfia0eSml0lGXmmdvxnwOr/7VXG+qp2Nj30Nn99lasHmy +sE2xgY4hNbc3hA/UwoivZkdSIx2ruTnO5LTWAtdENeeRFjpqOhSfpN6oBZ3P +VR6/2ukoYjgJ7wxq4WF9hfamD3Q8XM571vJGDWTEl389PU1Hd76wvWZW1XBC +9J68kggD6cnrf9z6UwG+N5JVy0QZuI3v7BjrawWEiYdobRdnYN1vgYOnOiog +WcJo/y5JBk7eltp59m4F0Y9hn32yDFx8JvDTwa4C+DdLVXluY6DEFcNqmYYn +8Ew706DEhIGv4j5RDuc8BkH7eGflMAZyepoJ18WWQ7bhqVMZ4QwMu35t21hw +OTC2HgzhjGDgZak2tphbOWxfQbvSG8XAqUe+0fdMysEir6jm7AUG9tfeNjQl +l0PaSCv5zVUGXhfUI1XffAhCPqvrvIsYGGq4re5LfRlQoqJFH/YykHbV4oTJ +gVIQVSZd2/mBgWkhjarD20tBsi+L7+VHBl7UarifTisFBbVHnF39DLxS0Git +M1wCWmNfR2eHGNgqGXwx42wJHDOHJxo/GGhBqif5PCqGPMmF/XWrpdFTcn2i +0ub7oPzSO+KNhjRy28QIkI4WQlnv3wVtTWlsv39VTHVvIahORAQVa0njnNr3 +zS5qhaAmmOR1UUcabW51Kv/jLYRdJ8oO6+lL4/4i64MDL+7CXp6f6pUHpHH1 +7IRuhsxdcDnoN3PzhDSaNH9r8mLfgcyhAMdTqdL4uD81WrA/D/TlPpf0pEnj +YDpvpWJ7Hkx57VnYlS6NbgMBCQee5gHOb0xZlymNWVJlv55m5wGTr7Kx8JY0 +mr38XLj5WB5s1Z6X/XZPGpvntuw69i0XmtLDp63rpfGWS21V9dxtmNkXe2b3 +tDRuWTtWcAxyQMj62o6WH9KIvIqCWio5oOVY8HPfT2lUtCuootNzIDaw+aTN +rDTODleGU1fngNjNVRbeC9L4J8i+VPHWLTD+Eat0Y5UMzqQLPEluugn5yRc+ +/xOXwRd7Owbz6TfApjcOyg7IIHdiq0S9RCYsGqYtiZjLYM/mebvIdZlws/p2 +9YWDMniHadlkNncdvmfXbLO3lMEfvPd+M9qvg4/zpOyGwzJ46UmZxvXT1yFu +5gDJ84QMbuVOunanOwMqeYS/yobLIMfTfVY/M9JBCO6cu3VPBrPi/wSlHEgD +tUDbUvliGRweS1vdvCsNLO7zfnpUIoPb7qiLrFVIgxThIJXWMhlkdgpfreNK +A9KMweBMhQwKmtG3/K5JBZ7bo9q6DTKo2PGu204hFVicSvPf+2RwkxKtrEsw +BYaby70VeGWx6Ekef9LGZNisbOhZskEWFc7lLLxYlQwBaX2uW0my6CWhXbr0 +Nwk4XbicdgjIomr82X3Zn5JAbIWVhS5VFq1+6m33z0kCC615DTtpWVzo+GoY +pJwEDQ+AM15bFvmriQ10NxFyMtpTx7xkUVTr41XLiARwOXk05aC3LOrMGRP/ +FRJAbsd0cq2PLGpezR8aOpgAD7v4rlz2l8UHVkHdlTIJ8HLDoYsqIbK4cvJr +14438fA9+mN4SLQsvl1n8DWMHg9yvsMn1mbJYsbvq0GtH4je7eXYKd8qi3GZ +O+JC/WNhpl+joKxNFv+F77jVYB8LKj6+Ahr/yaLjgOCi2L5YKL82NGXQIYsB +wfp7VknHwuNvjbku3bK44aFsVN77GKgKv7g+Z1AWqyTaS1diDNQ/5B8UmpfF +z7vGVedEo+EdVfoCl4IcFnDO/LrDdQ6SBO3mfBXl8FaYkPbAnygw5bty/IuS +HL5XHcyRGomCV1zzejVb5PBH2NTlN21RUP+jncNHTQ414eZE1ZUoKGsKCO1D +OZxavrurXiwKEn0bvcqt5VA04Sr3Cd1IMG5ztnCIkcPFSTX1DTbhsPXP6dTm +WDmUXxL+5ofhsFEysVspTg6zE/9Ej8uFw+DpKov5eDlUiJ/z4l8IgyA5Xsur +SXKYR5tX1rsRBrkXKiwbs+SQNHrSWWTkDCzuWWstVy6H5RzqDzAuFIpfltrO +DMhhe+dSksVyMGx45LEmcFAO7TOnPZxHg8EnT65y/qscOrzqiYvuCoZt0bmC +K5mE7ch7l4uCoWbPtTcbJ4j3DxVSaLEOhrbW8D1af+Ww815SZ2lFEAx37FOJ +5ZPH9DjLOOeoQJDoG18jivK4iZQ9qmnoD2zV/OrY3fI43K2yO0bdHwbij7r/ +1JXHV/vjnPtl/SFb8+1/zXvkkd/jV1/ZGn+gZj5J9DWRx+nOqdCfr/yA3zZS +sMVKHjOtTGJbzf2A+/1GCT8v4vsGc/Q4V18Yf4fqrZnyGLJh/Li/jzcUyJkI +Hc2Wx7B/r5Y/HvIGx7OWf37ekMdD+7lS7dS94YO8+yOR2/L4oVTnaBHrFDRH +pmzxviuP2fdKukITT8Ft5WFZocfyWMejJ/qx3Ats4hMoLq/lsdxnXzmT1xME +B9P+/uuQJ/q1ds5+1gPeqOX0Xn4rjw/emnn9/OQBBl8fp1Z2yaNZr1mubaEH +bNMYIK37JI+Wxps+79L3gA3DW9eWD8vjqHlNwq5Id3ilpTVqMCqPwjkKByVc +3SEmeU9L35g8qjxaXEkzc4elXXYx3FPyqJ2585OphDuMp5xfYftbHovLneWe +1rtBwdjlwalZeRwPzpTYf88NHCHjxbk5eXz78M+J31fd4MN4cXjxvDyadv6X +FOHiBilYeWT3ojx+TPtv//H9bmB6rV6rd0keXbzm1znscAOeyf9oHiyinxp6 +Vd6b3KBpd+88my2PJaKFkLrGDf4HRiu+4g== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 13}, {0., 1.9701485006351023`}}, + "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:eJwV13k0lP8XB3CJFiUziJmxhBm7FCUi7g0hSpS9xVpZsxMRCokSIUIlJApJ +ZW0he18pWVpIUmMnlZRt5vf8/przOmfO53nu577vPTOSTt4Hj3NycHAMreDg ++P9nUNih9RwcJFwa2XKyxJsJ5Q0eeV2cJFRSp38RO8WEKZ5ozbvcJDyyrPsp +1ZMJLtcfu5quI2ESWSL2mhsTzCs2NmULkbBodcD4mDMTLi1vPuJDJeH3o88f +XnFiQqu+wW89URLKtgtY7nJkgk5XkOSEJAk30NqP3DvGBKWZ9+E7N5Nw0MOk ++JMtE06qzwjybiVhcNf1K1U2TMg9u6Z4UJWEnareRTesmUDl3fnpggYJpf0d +S8MtmWBhYe57WIuE9NMnyk5bMCEpy23NFh0Snrj5UujMISasUsjc0atHwvm0 +JJ1r5kzQ9S1/XWRAwovNFOEHZkwIr3rlEr6XhB8qGOfeHGDCrMHiVcYB4vyP +KjqypkzYkiig8M+chEZ3AguO7WeCe49i/X8WJPyo9/LNjX1M+Op85IefHQmF +UtVSt5kwQfR+QKzBURKKcrYZxBszwebXJTGaAwl1M3TGRvcyIWXnncdTTiSc +OWR74QDhjshnJvXHieeLf1V6bsQEntaeoVRXEhY8zWVuJ7yHbzrE1YOED6u8 +nz0yZMLTG+KFfL4k7Dh1cb7NgAl/v++Ab/4k5A9PCnQkrKp0oLciiISFHsK4 +gvAp/5Ne8SEkbEtadbxoDxOKaiK4joWR8Hq68Ywt4e8rMrJUIoj79uye4ics +sbdMlfscCbvkrrt16zPhcFJr24doEpLZyd43CV97P+hQfIGEyjJP1/kSfic+ +/zcinoQLjRTjfYR5T5CvHLpMQt/PxTu2EjYqkZeRTSJhunrUZ1HC0bO7ny1c +JaHtvlxjfsIvtOwsOtKI87dKxJMIL5zzm7idQcL+sA2FwoR3vIo/F5hFwr5d +0WWyhH3JedS9N0ko3J31AAkX29SWid4m+jPu99CJ8OitLsOZPBI6Wii8vEyY +PjIx0FBAws/LzKl6wseUuYLSi4j772xHNuHMQFFej2ISeuevadlD1N/zdHu+ +zgPi/WnNl9IIk7j2a/GXE/Vd3X5zmvA+k+PvmI9JqMgXu9qcuN9IkdcGc5Uk +THhiaNFM+PHE9tpVtSTUFmTUGBD9Gq3N3iL8nIRPu0uN3hEWvcSVL1tPQvGq +s3xuRH/NjnhSNBqJfPpuFl9H5CFaqfuSUQsJh89ZR1cRnmzPC3R7TeT7VXaa +GpEviRvrxkPekjC/eNmem8ifhZf/sfguEsJPl7pBwk959QzvfyTht5SxqBoi +vzOf79XW9pNwNcdRzmoi34xS/q3tX0hon3nOuoHIf4LpEGWKScK1GrefLx5k +wnNx48vLoyR8XLT4Q56Yp1/TD1dsmCSha9er7S7EvNldiRpX/kXCgx9S1JeJ +eUy0HzsGf4h6Lf4IHiHm9+UW864D/0g44Z+p32LHBIW3Ek99WCQ8rhn18eVR +4v5z4rZGrSDjSjvFY4fsmXDVZyY/mYuMpRVj/jMORP9JdZfLecg4+u1UspkL +E16Z29vPCpExrfifyT0PJrAkW7q4aGQc33SHdNuLyPsvZaONYmQsPvvlWz6x +vzKvsrbuoJNRrCVrtsufmNeuG5ynt5BxVm8poDOMCTfzuIPjVMlIL552Vo0g +8uvvNZGhRkYV4xMDOVFM0BTU7q7WIuMMv/TjglgmrLXsv7NoSEblhJdp1slM +2CWtT1tvQkbh3vcpMqlM8PlzP1HUlIzOKjHXV6Yz4UPamWBtCzKmn7OeH8lm +QmEvbW+EAxklV3hVHy4i5sHGdpIzhIwnMyyzlhqZEPS32uXLGTIe1h9+5d/K +hDvXaJ9rz5IxNDFu7b//mMDZ0/c6IJqMl2Ref5ftYsIz82MPhq+QkWHrdFJm +iKjfxNnvVQEZ7zbUMYo4h8FhvGG8oIiMW5XEp+dWDcOViwzn88Vk5DYxiz24 +bhgmW5iHdpWTschlyXyb4DDc1XdVK31GnGcwkJUtMwyiOl7/krvJeG3f05UU +02Ew/vza59R7MuqBrqTRoWEICVMeM/5ExubPtMZYm2HorfnxceUgGQ+s+tS0 +xXkYktX9agMnyDiU4zWhEjIMq1SCz9py8qPPrS9SHIXD8IMexSW5lR/drbUD +15NHwFM6V/yHKj+ma77vXxYegXGZBo1navzosijoxxIfgWF5bi9bLX58Ydpp +uHnzCAxsudiTbMCP3Ic/XdI1HoEOreQCzqP8WHJ2qeDghREoPnTb6PtFfvwV +GBytwzsKCpYvncov8eM/XWUmQ2gUCq2+hUVe4ce+9A1OIptGId9W+qFoGj/u +lspt1VAZhSz7IqplDj8Oyx+bVrMahXiPh+NNFfx4atbztE7eKLidr7909xth +Pud99/aOwSCvanT5MD8mxTtlXrIcA6uM3DPPxvjxocTn+HOOY6BXct696wc/ +PvhU4VgUMgZi7/cYsRf50XDcUu/bvTHoVHi10lpQAJW/66vykMdh57t3oav2 +CGCCffWA8uQ4lB3R8yMbCWBpi73LxYVxkBl55CZqIoCzGeOlf9dMgMBSqo2q +uQDq+NIT+GQmYEraesexowK4GXoklBwn4HZI388ngQIoppInI9Q3AWslv7se +LxDAxYMbIxM/T0Jo6H6XXUUC6Kp1o1VzahImuyrsBYoF8Obi3/q/S5PQEXvR +qv6hAH4xP1ScJzoFVyeV9cWeCSBPwGDmyyNTIFoVsqmnSwDb3pqpCA1OgfIB +vl79FYK4VJK/vffXNFiEa+oxjghio078RvG8GXhu/1tEw14QF1STjB+XzICc +bvGsiZMg3n5LvnSwagYWV4kX+LsKon/7xOq7r2cgN2nF2oYAQcy5S8kv/TcD +M3mtHY6XBXEz001Q2ewnXHplZXfruSAGNh5gpnL9gkZhf1+a5EZ0TE462Rfx +G1YbNPKFDG3EmLb1SsNX5+CP6t7iD9eE8I3i5i3v3eYh9w3PmpHrQtgusJZc +GjgPpp7tzn+yhXA7/ZxgRNQ8FNw5IMKfJ4R3gh7K8F2fBxuKVbzJAyHU0A9a +xWyZh5plJ9fnLUJ40lVOz4KxABGtYYz8f0K4YPxs/933C6B0XCeyfFEIp569 +fJA+tAAfVnD017GE8IaYcmjE1AJs1Tqf8plLGG2nrsxuX7kIQyUXOYXJwnjm +7c2dasqLoJ9ybfCivDAe//yTL+TcIqw9VpbtbSeMbgEx2ufoS1DW5r6096gw +8mQlFaUoLYGVmvQRhoMwBkz4+GWpLUH++kyRj8eFMfvvyi+XDZcAa89n6voK +Y4hLf8yS+xKcplhnbIwTRhVL96OzD5Zg9N1ySu0TYUwsqVqcVFmGKzpVv9Oq +hPHzetWU0p3LsOOe3yGfWmFs4Bt867J7GaKjRvil64VxX3Id7wOzZZDY2pmc +2C6MlElurepTy2BzOf+K4zeivtpUsczCZWg1NElYTabgikBSPwqw4PnG5ktd +AhR0i9vyxZHKgsffMPGWEAVTE01Lgjax4HbEjmR1UQquT90Yd0aRBaGVkukn +ZSlY/XPY5KcuC5Rk/+W2aFPw5sBbVow3C6T++OWnIAUzPsj3fQlgAaVh6o69 +HgWXhL+t3BzKAm77b4V/jSgoFLBL/HY0CwaudZTKWlCwQTi64kcGC5JX3am5 +4E5BScOlVokXLIjr3vT0kBcFm3SOmBc3sOBsbuazTT4UzKlsrVNoZYG7TlJd +ZSAFnULmdDg6WaAfdKZ5JJKChlsypXmHWDDHNH9nmE7B7sBmm3sr2DD5qL1L +IJOC/UPS847cbBiKMuz5kk3BI8oktfVr2fBGTPtDcC4FI2NUfTRIbCi0lBu4 +W0JBdTVa4g8xNtg1scZWN1JwVQk5uWcHG/aKtrWSWiio6CkIv3eyQcM/5S71 +FQUFe/ymObTZICQpd1zxLQWbO3kMJnXZ0BlmPmjaT8GqielkTlM21HWJvLD+ +QsHfTSIrc8zYUKowfMNhiIKytC6nzYfYcOlD6GG/UQpaGYuMCNuwwWh7fm/a +LAXTSI59io5sUE849eTmXwqeeaSRYeTMBpkhjdS7CxTcNpm70/I4G7iSXptX +c1DR58BrWR03NvweTt/6ciUVB2898qd5EPVrO/H9t4qKpcWnc4c92fBiYq69 +fz0V+ytdC019iPfRrb/P5KPiu8GOiHFfNmRfT4if5qfiz58XNYP82RBqKGHE +QaWiseCPw0eD2OB2c1xmrSgVPeuGG6qC2WDz5zE3/yYq7jvaQeYKYcOOvL0N +dGkqNj076+x+hg3SCwK5SnJU1KnJd4sJY4Og+UCkmiIVDUcD7JLC2bCysNBe +R5mKfFx+6gln2fCL5adjqEJFJ13kDIpgw1dLbTGz7VSs3nHnqVkkG94Wr16y +UafitaoLriJRbHi+8t0nR00q3m79sbqXcIlddrW7NhUNAlfdiDxH1PPwRIY/ +UvHp840KIufZEL9GJThMj4prz8Q9vEM4xH7RMsaAir80xtUkotngWtG0PXEv +FbfQR6rjCVvzJgmk76NiyZAJMgkbuNj9unWAinciudu3xLBBrZbRWXiQinuN +JB3cCTP4fzx4aEnFt3fb2amEBdyqE2tsqBhHtix9QJiz7rxXw2EqzvbJetcQ +/ilkuq/9GBU5pN7teUJ40Iui2ONIxYu5HDtyCL9pHFo74ELFm7ci9M4Qfi5S +Mjp8kop6zzT9DAgX+wW3/HCnIvfgruYVhLPadhf886LiGE+ZXgnxvvES62NW ++FJRVfvztBHh08G9zjwBVOw9oNTeTdR/siNHVyCYimLv6INmhK2kPSRFQ4n6 +hl23PCPub0+YGod0OBUdN714TiW8vYs9sDmSigm2a1JOEPfNH5WaDbFUTPme +LN5J9GupwDpC8CIVb9lNR7KIfjLbaU5jCVT0F+7XFSdcRbktm5JMxQstmn+3 +E3nI1XHhcU2looDIf78UibwkuMhO7UqnYjwoOmwMZcOxspLy4WwiHz6X8l4Q +eTPq9UmrvUVF03dHzkcSeVRZ2nY6KZeKz0OyRrcFEvNgVKOtWUhFlsKMtZ8f +G+59aW69/IiK0rUhx0yJ/Kdyx993qqCilNrd5Tx3NoQr7k9Ur6biSavz+ydd +2WAW3HXo63MqdlcGCP1/vuY2DA5sf0VF/l/Tvy8cJfqzPa9+7Wsq2hg+eu5/ +mA1tdifyB94Q5+VccT9oS+StYNItroeKghswYtSCDXo687N9g1Q0D0+0OG3C +BiWXp+/LvlHxycC1L4tGxP6Ij6iJGaais/f6KD8DNoz3cEdumaRi1aqD9J27 +2ZDkxb/u/F8qxq7tLlEi9lF/tqKkwgYajq3Rt3tE7Kvml9Mr2SQavlj6XOtB +Y8OD0YfDXQI0dEo9WCwszIZz2zWKw6k0FOnWtTMm9p1cu756J4OGfYyNnSKc +bAhYPLr/tBYNlSfd0oK+scDqng9vvA4Nu3jXnxT8wgIN2/Ovs3bTcHKb6K78 +TyxYqijc/8KQhri6RzyT2Mcxfr/3r7KgoVW2AN/gcxZcG4szTfWkYdarlaJf +rrHgdEbWhgJvGvo1iVTnJrPAzrC0o9KPhjbqtiK2l1ggfqfLtO80DXNjRZxu +RrHgroP4AakYGmbvVXS45MGCqvePDpTdoGFp/fSlFdosyIxt5nuZQ9RPp139 +u4MFYWof33Tl0fB2QaPy160swBTWgb9FNFzbJnX8CoMFbaZ7zXQqaHhkTZGB +7ToWfGoaMGvvoKFrsyHPg95lWHq09uAom4YjDMndzS7LoNzU/2iCUwRbjV/c +8Dq6DPa9Dzb+4BbB1w+uPeOxWoaX/yw//lkngjdVd0fIGC5DnHauw0qKCKor +rrvGlFsGgRZNb/GtIhj782tE4vgSKHzyuGThIILfs2h3fpxYAmuOjua6OhGs +FGSE0gwXIXrwulJSgwj+C2k4aKizCGV1x6/aN4ugQaPFiVNqi7Amavko6z8R +3MZY9LxPX4SqFZv/aL0XwVH1CzpD7AWgrLxEr5wSwU8BObT9lQvwids4soQm +ily0/fquUgtwdF3zzswAUczQfXRBYfIfXLTI4bivLoZ73LYZa8nNgcOR0qan +U2IobKAX+u/ibziSe3OA+5E41gf0OFxrnwGlsLsnKwM24Zkb6+ONMifBgsfv +72NBCXxayjU060j8vg9cwSwKkkDr3jVDMpbfwbjunvmmdxIossStMrbuK3yy +cJhrVZTEm7TVp8ri+iFszeo9Gy5LYrRHprWW23to5dE5EpIoifply2FN1u9B +kDfQ//sVSbzgNWB92OA9FJO/3a65Kom3pNcJ36O/hz7aC9aJDEm08Emmdg30 +gubm4KoXeZJ4h/e8pKl1L/wzH1H0rZHErgv3a16Y9UBAVgt/94gkbkrwaN/n +0gW7nAoyjo5JolPop/TDFl3AJR8jPjIuiXFtR3yD9LsgtUJXYWFKEuVZXipv +GV3wpPPZbolZSYzY2UQVGH4Hc6sf+3hySKHuX78tb93fQUhATgcXVQol5ao+ +zoZ1wtn9IfFqxlLYGefCXR79Bk7t0fhaaSKFSbTD9oPub+CY9l91zf1SuK3i +e7yU+RvQ3hzI1DGTwgulP6WGxN7A0npfNLKSwjCz8ql9VR1wpt11zs5JCnft +bixvmnkNp01snCJDpfBtzn3qhHc7+O1V1/zvnhS+G0u8YJrfBl8Kf13dViyF +a4IXvp5JaoN9a0onskqkMMfj83+VYW0g08K44VkmhQ9HZOQOW7ZBnz4/x4YK +KaT9jlgwXd0G+jjVZFYvhYW8XZ1DXq0grJ5n3vteCp+vfRYTuqcFnjL43L5y +0ZFiZzTtK9oEBUZ+W11X0ZF3x5r+dJ4muOLZ83d6NR31j3Aatv9rBKfHWbFL +PHQso7x3c+hphDX6cvnCZDre8y6r2n6lEQ457/6yX4yOJQ5+u6K5G2H8tr9l +jRodpbsdGEFLL4Gy6cPulBN0XF4XcdafXA8R99TXcbjScVDyesyXlfUwrJbe +7elGPM8zd4XVXB082md10sCTjrZDlzWd+urANLT70rwvHTtFSF/m7tRBdM/b +9/bhdLySEn+GR7sOfia0eSml0lGXmmdvxnwOr/7VXG+qp2Nj30Nn99lasHmy +sE2xgY4hNbc3hA/UwoivZkdSIx2ruTnO5LTWAtdENeeRFjpqOhSfpN6oBZ3P +VR6/2ukoYjgJ7wxq4WF9hfamD3Q8XM571vJGDWTEl389PU1Hd76wvWZW1XBC +9J68kggD6cnrf9z6UwG+N5JVy0QZuI3v7BjrawWEiYdobRdnYN1vgYOnOiog +WcJo/y5JBk7eltp59m4F0Y9hn32yDFx8JvDTwa4C+DdLVXluY6DEFcNqmYYn +8Ew706DEhIGv4j5RDuc8BkH7eGflMAZyepoJ18WWQ7bhqVMZ4QwMu35t21hw +OTC2HgzhjGDgZak2tphbOWxfQbvSG8XAqUe+0fdMysEir6jm7AUG9tfeNjQl +l0PaSCv5zVUGXhfUI1XffAhCPqvrvIsYGGq4re5LfRlQoqJFH/YykHbV4oTJ +gVIQVSZd2/mBgWkhjarD20tBsi+L7+VHBl7UarifTisFBbVHnF39DLxS0Git +M1wCWmNfR2eHGNgqGXwx42wJHDOHJxo/GGhBqif5PCqGPMmF/XWrpdFTcn2i +0ub7oPzSO+KNhjRy28QIkI4WQlnv3wVtTWlsv39VTHVvIahORAQVa0njnNr3 +zS5qhaAmmOR1UUcabW51Kv/jLYRdJ8oO6+lL4/4i64MDL+7CXp6f6pUHpHH1 +7IRuhsxdcDnoN3PzhDSaNH9r8mLfgcyhAMdTqdL4uD81WrA/D/TlPpf0pEnj +YDpvpWJ7Hkx57VnYlS6NbgMBCQee5gHOb0xZlymNWVJlv55m5wGTr7Kx8JY0 +mr38XLj5WB5s1Z6X/XZPGpvntuw69i0XmtLDp63rpfGWS21V9dxtmNkXe2b3 +tDRuWTtWcAxyQMj62o6WH9KIvIqCWio5oOVY8HPfT2lUtCuootNzIDaw+aTN +rDTODleGU1fngNjNVRbeC9L4J8i+VPHWLTD+Eat0Y5UMzqQLPEluugn5yRc+ +/xOXwRd7Owbz6TfApjcOyg7IIHdiq0S9RCYsGqYtiZjLYM/mebvIdZlws/p2 +9YWDMniHadlkNncdvmfXbLO3lMEfvPd+M9qvg4/zpOyGwzJ46UmZxvXT1yFu +5gDJ84QMbuVOunanOwMqeYS/yobLIMfTfVY/M9JBCO6cu3VPBrPi/wSlHEgD +tUDbUvliGRweS1vdvCsNLO7zfnpUIoPb7qiLrFVIgxThIJXWMhlkdgpfreNK +A9KMweBMhQwKmtG3/K5JBZ7bo9q6DTKo2PGu204hFVicSvPf+2RwkxKtrEsw +BYaby70VeGWx6Ekef9LGZNisbOhZskEWFc7lLLxYlQwBaX2uW0my6CWhXbr0 +Nwk4XbicdgjIomr82X3Zn5JAbIWVhS5VFq1+6m33z0kCC615DTtpWVzo+GoY +pJwEDQ+AM15bFvmriQ10NxFyMtpTx7xkUVTr41XLiARwOXk05aC3LOrMGRP/ +FRJAbsd0cq2PLGpezR8aOpgAD7v4rlz2l8UHVkHdlTIJ8HLDoYsqIbK4cvJr +14438fA9+mN4SLQsvl1n8DWMHg9yvsMn1mbJYsbvq0GtH4je7eXYKd8qi3GZ +O+JC/WNhpl+joKxNFv+F77jVYB8LKj6+Ahr/yaLjgOCi2L5YKL82NGXQIYsB +wfp7VknHwuNvjbku3bK44aFsVN77GKgKv7g+Z1AWqyTaS1diDNQ/5B8UmpfF +z7vGVedEo+EdVfoCl4IcFnDO/LrDdQ6SBO3mfBXl8FaYkPbAnygw5bty/IuS +HL5XHcyRGomCV1zzejVb5PBH2NTlN21RUP+jncNHTQ414eZE1ZUoKGsKCO1D +OZxavrurXiwKEn0bvcqt5VA04Sr3Cd1IMG5ztnCIkcPFSTX1DTbhsPXP6dTm +WDmUXxL+5ofhsFEysVspTg6zE/9Ej8uFw+DpKov5eDlUiJ/z4l8IgyA5Xsur +SXKYR5tX1rsRBrkXKiwbs+SQNHrSWWTkDCzuWWstVy6H5RzqDzAuFIpfltrO +DMhhe+dSksVyMGx45LEmcFAO7TOnPZxHg8EnT65y/qscOrzqiYvuCoZt0bmC +K5mE7ch7l4uCoWbPtTcbJ4j3DxVSaLEOhrbW8D1af+Ww815SZ2lFEAx37FOJ +5ZPH9DjLOOeoQJDoG18jivK4iZQ9qmnoD2zV/OrY3fI43K2yO0bdHwbij7r/ +1JXHV/vjnPtl/SFb8+1/zXvkkd/jV1/ZGn+gZj5J9DWRx+nOqdCfr/yA3zZS +sMVKHjOtTGJbzf2A+/1GCT8v4vsGc/Q4V18Yf4fqrZnyGLJh/Li/jzcUyJkI +Hc2Wx7B/r5Y/HvIGx7OWf37ekMdD+7lS7dS94YO8+yOR2/L4oVTnaBHrFDRH +pmzxviuP2fdKukITT8Ft5WFZocfyWMejJ/qx3Ats4hMoLq/lsdxnXzmT1xME +B9P+/uuQJ/q1ds5+1gPeqOX0Xn4rjw/emnn9/OQBBl8fp1Z2yaNZr1mubaEH +bNMYIK37JI+Wxps+79L3gA3DW9eWD8vjqHlNwq5Id3ilpTVqMCqPwjkKByVc +3SEmeU9L35g8qjxaXEkzc4elXXYx3FPyqJ2585OphDuMp5xfYftbHovLneWe +1rtBwdjlwalZeRwPzpTYf88NHCHjxbk5eXz78M+J31fd4MN4cXjxvDyadv6X +FOHiBilYeWT3ojx+TPtv//H9bmB6rV6rd0keXbzm1znscAOeyf9oHiyinxp6 +Vd6b3KBpd+88my2PJaKFkLrGDf4HRiu+4g== + "]]}, "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:eJwVl3k8VG8bxiUqSmYQM2MJM3YpSmS77xCiRNlbrJU1OxFJSVKJEKESEkKo +rC1k7ycl0qIkNXaipGwz73n/Op/zOc8557m373U9Ui6++49ycnBwDK7g4Pj/ +NSTiwDoODhIuDW8+XuLLhD1mR98yH5FQiT92taURE0zs7Cc4w8h4PN06c6mJ +CT/p0VxSWwTQ01Y3eB15GDzONVy+910AT/C77inaPQo8Uj/cj+YL4uL+DWcS +vkyAVaSWAeOQEDbpxW+QyJ2GJpFAf5rUBnROSjzeF/UbVhs18YcNbsDz7euU +h67NwR+13cUfrgvja6VNm997zAPPkbIsXwcR9Ag6r3uWvgRtxmaXVpMpuCKY +9BkFWeDQzBpd3UTBVSXkpHfb2SAQnZIFsVRM/pEk0RXFhqDFw3tPatNQZcIj +NeQ7C5Ye8uwfYdNwmCG1s8VtGWw5Olvq60WxSogRTjNehMNrW3ZkBIlhuv7D +C4oT/+CiVTbHfQ1x3OWx1VRbfg6cDpU2P5kURxEjg/B/F3/DoZxb/dwPJbAh +6J3T9Y5pUI64d7wqaCOeurku3iSDiJ834O8jIUl8Uso1OOs8AnnBK5iFIZJo +27tmUNb6B5jWF1lufCuJokvcqqNrv8EnK6e5NiUpvEVbfaIs7jNErFm9a/0V +KYzxyrDV9ngPQZmtAj3DUrjxklfHHrduOL03LF7dVBq74ty4K2JeQ8BuDa3/ +iqTx7WjCBfO8dnjC4Pf4xkVHioPJlL9YM1A2ftiZfIyOy2ujTgeSG+Dlv9ob +zQ10bOord/WcrYNjYkUKyqIMpCet+3n7TyUIOca7qkQwkNPbQqQ+tgIo0TFi +5b0MpF2zOma2rxRUXvhGvdaUQW6784KkwwWQMRjkfCJFBh99TokR+pwL03ti +T+2cksHNPKP5RyAb7HrjoGyfLHIntEk2SGaAMNw9e7tIFjPj/4Qk70uFoZYK +X0U+OSx8nCuQuCEJstM7UkZ95FBM++M166hLULabY4dCmxzGZWyPCw+MhbdU +mQtcivKYzzn96y7XWTBtd7VyOi+PixPqGuvtIqH4Ran9dL88dnQtJVoth4Jk +39gaMVTAjaSsES3jQBh7ixptGQoYtn7saKCfLzTv7J1nsxWwRKwAUtZ4wDfX +Qz8DHEgonKKestWMCS8tHR1nhcmYWvzPrMiLCWJ6Pv+Sesh4fc+TlRTzISg+ +cMfkx0UB/BUcGqPHNwI73r4NX7VLEC851vSrTIyByj7+XsMVQrhUkret99cU +XH5p43D7mRAGN+1jpnD9gqi2CEbeP2FcMH269977BRh5u5xc91gEE0qqFydU +lyFp1d3aC54UlDJeapN8zoLtubsb6TJUbH562tXzFBsM9OZn+waoaBmZYHXS +jA3V7x/uK7tJw9KGqcsrdFmg+MnrspWTKP7IpN39eWwJPnGbnimhiSEXba+h +u/QC/LMcVvKvlcLuC/drn1u8g7Cg7E4uqjRKyVd/nI3ogpNmdi5nwqXxTfZ9 +6rhvB4ho5Fr2vpfGZzxPz4fvaoWxO4HWtep0lOlxYoQsvYCZS+0+yil01Kfm +Olown0F6fMW3k1N09OSP2G1hUwNPdTOMSswY+DLuE+Vg9iMQ9ltd71vIwHDj +rfVfG8ogV2phb/1qGfSWWpegvOk+uO0PmL51TAbNWr43+7DvQnNa5JRtgwze +dqurrpm7A3lJF778k5DF57s7B/LoN6GKV+SbXKQscjzZYzOTngYsTuX5H32y +uFGZVtYtlAyND4AzXlcOBWq6REn3EkDef+gYT6Ycpv++FtL2IQ4aygUGhOfl +8IvOmNqcWAwk+Df5VNjKo9ila9zH9M/A4i4eW/kKeazg0HiAceEw1LlHNZZf +AdPirONco4OB+/0GyQAfBRQwmqPHufuDXfwlitsrBazw21PB5PMG5en3kTs2 +kXDAy6z4kz0TLpkPUiaZJOTRvPNscT8T1MxcA17mk/FeYz2jkHMIOrWT8jkP +C2DJ6aX8/ReGoUvx5UpbIUFU+WGoxkseA7HqsI3vugWx/Y2FqvDAJEzntnU6 +XxHCTUwPIRWLGahddnF/1iqMx93lDawYC3CSYpu+IU4EVa09D88+WAJluX85 +rboUvNX/hnXelwUm2/J6U2cpmEpy7lNyZkPR15a2Kw+pKFMXdsTcmw3XR+PM +U7xpmPlypdjX6ywQbNXyldgiirEz36ISxpaAsvIyvWpSFD8FZdP2Vi2A1qbQ +6ue5UniX75yUuW0vzK1+5OfNIY36fwM2v/F8C6c63OccXKRRZ2dTRfP0KzDE +yWaLBmks4OvuGvRpgwOuO7/uFadjiVOATgx3E8S8e/PeMZKOV5PjT/Hq1kN5 +Q6Xuxg90PFjBd9r6Zi0IbJKu9t7KQMmrxjWyjY8hdbiN/PoaA28IGZBqbpXD +EUt4rPmTgVakBpLfw2LYzTujUbVPBlfPjuuny96DLbrzct+LZLBlbrPOke85 +YPozVvnmKlmcThN8nNR8C+Km95G8j8niFu7E63d70oH3zoiufqMsKnW+7XFQ +TAEr7XlNBxk5XOj8Zhyikgg/Yj5GhsXI4Zu1Rt8i6PFQHXlxXfaAHFZLdpSu +xPNQ1hwU3ofyOLl8T6dBPBpyLlRaN2XKI2nkuKvo8Clob4vcpf1XHruKErtK +K0NAwP6MUKuNAmbYmMW2WQbAHZUhOeFHCljPayD2scIHrr8fcCq+QEIV2Sdr +/Q2ZwGP9+e6iMRlVLr1ItU1iwirV0NP2nALod/urNEfBEMR7lY81VxJ6Put9 +Ui93BO6E9c08DhZEcdVcWeG+cTBMvj5wUUEEj36Z4Q87uwh2V/KuOn8XQfu6 +FPGMgmWYY1q+NU6jYE9wi13RCjYwBH4+KLem4pt7HeyU82z4nKUkpbiehqNr +DB0eirPhU3O/RUcnDd1bjHkf9C7D+qEtPBVDCjhiWXtJ54wnWFZuaM4SJmHh +6qCxUVcmTHTkBnu8IiH9ZVaqOsHjp5ZHHgxdJSPD3uW47CAT+jdffJdkJIDc +Bz9d1jcdBvH3u0zYiwJoPGZt8L1oFK5NqBiKPxVE3qCBjBeHJiEncQVPY5AQ +Zt+j5JX+mwY7ik282QNh1DQMWcVsnQesO5eh7y+CYW6fzy95LkF4lVTacTkK +1swMmc3os6ArwnLA/DMFq8enkjjN2XCkrKRiKIuK/H6Xc5+HsuF8wO+9q6xo +aJMlyD/wjAVxujlOKymiqKG09jpTfhmqV2z6o/1eFEc0LugNshegj/acdSxd +Cq38kqjd/b3wuOvpTslZKYza0UwVHHoLS+v80cRGGiMsKib3VHdCn6EAx/pK +aaT9jlowX90Oawzl80TIdCzyLavedrUJzMN7Ls/705Gg29e5u/Wg96Xa61cH +HUWNJ+CtUR3hD4b89sgxcPGp4IyTQyVY5RbWnr7AwM91d4zNyRWgPfptZHaQ +gW1SoRfTT5eAzrGygwaGMri30HZ///N7wOSvaiq4LYMWL74UbDqSC+K3Vln5 +LsjgnxDHUqXbt8HPdUJu/UFZvPy4TPPGyRtAmjYamK6URSEL+ubftSkgvsLG +Sp8qhzYzBtsCsxPhxfoDF1XD5HDlxLfu7a/j4dH3phy3HjlcXy4Xnfv+PDT8 +7ODwU5dHLbg1Xn01GkLk+ayvJcpjLm1exeBmBNTuuv56wzjB53BhxVbbUKBm +PE7wN1PAqa7J8JmXAdByJnmz7z0FzCoq6Q5POAFPbkoU8PuTsPPExfl2wu96 +dt/kPLmZjLMGS0FdEUxI0gioCx4n42C2z7hq2BBkOhZSrbMFcEjhyJS6zQhM +ythuP3JYEDfBO0ll53EYLLnIKUIWwVNvbu1QV1kEyS1dSQkdIkiZ4NauObEM +hiGnWobPUNB4c4YM3yALShyyajx1qWgUvOrmmbNsSPQRWHvuLxVjeXpKlAk/ +226+20KvkoaH1hQa2a9lwVbNftLaTwpobbrxi46hF6xSzNjea0DC+dREveuW +TFB8I/nEj0XCo1rRH18cZsI9Q3f10qfEfBj1Z2bJDkH/9c5SOSsKNorEVP5M +Z8Hz8bmOz+uo+LnKvcDcjw1z6wf6t72kosCvqd8XDrPhnpPEPunzNMzareR0 +2YsF/uRc6u5bJBTpyXyABE8Kemm7o5zIKLXCp+ZgIXFvLd9/r4SCGuq0hJ/E +fGe278z/50PFUd4yg5IYNsh3GGp0MWjYx9jQJcrJhrHkcyvsfytgcYWr/JMG +D3C78cjdfC0JE8mSsdc9CH91mStProGEEtWn+T1MmMD5ru9VUAwZL8u++iHX +zYQhBW4fe20BfG7eZbxp0zAYlJzz7P4pgA8+VToXho1CZ+xFm4ZyQfxqeaA4 +V2wSFldJ5Ae6C2Fgx/jqe6+mIf/uPlGBXGG8G1Iuy39jHvLWZYh+PCqCWX9X +fr1ivAR3orYnaYhRcF3KhrhTSiwQlpI/qvSGgi1dvEYT+oS/otyRS06i4oVW +rb/bItiwVFmw97kxDXH1O4mMLha8+Gf98c9aUbyltjNK1ngZ1kQvH2b9J4pb +GYve9+mLUEz+fqf2mhTellkrUkR/DymV+ooLk1KowPJRfcPoBt1NwUw9C2m8 +UDojPSj+GmRbGTe9y6SxfFhW/qB1O7g8yoxd4qVjGeW9h9O7Jni4x+a4kTcd +7QevaLn01QPXeA3noVY6ajkVH6ferIMkSZO9OlIMnLgjveP0vUrYtoJ2tTea +gZMP/WOKzCpAUf0hZ/dnBl7Nb7LVGyoBdaFEn4t6Mmh3u0vlH18B4PyG5LUZ +MpgpXfbrSVYuxAa3HLeblcHZoapI6ups+JFVu9XRWhZ/8hX9ZnTcgGSRENW2 +Mllkdolcq+dKBU43LpftgnKoFn96T9anRCjv5r96JVAOH9iE9FTJXoKK64OT +Rp1yGBRquGuVTCy85Jo3qN0sjz8jJq+8bo+GgZPVVvPx8qgYP+cjsBABW2Ny +hFYy5dHJgbx7uTAUsrTe/Neyi/BbXr/6ytYEwgcFz4eidxTwQ6ne4ULWCeg8 +89Ss4SgJP0h8U35G9FPGNdaW7XQyirdmznYHMqG39ufHlQNk3LfqU/Nm1yHI +s5cpF0sVwJ3SOW2aqiMguJRip2YpiHr+9Ev8suOwRftc8hcuQv8mr85uW7kI +MdHDAjINIrgnqZ7vgcUyeOol1lcFU9AlbE6Pg+iHX6wAPWNVKrroI2cIcT4d +e8d9ZvMEFatX7afv2MkGTGbt+1tIQ5526aNXGSww+vYopapbAS16LXLsC7yA +yrfj0wVNEsoEOpdGWjPB4Wr0mMovEu7/kKyxbEvoYyvzgE4FGQvdliy3Cg0B +t+P3gr8mFBQO0pG4E8MCrsRXljUcVPTb90pOz4MNFqHdB749o2JPVZCw9VE2 +SNztNu87ScOcWFGXW9EsiJnd+XThGgnt9+SYChDz/iH1VKiuFRnTztrOD2cx +4bW47ofQHAqeOa/mp0liw4APRemdMxUv5nBszyb0/uw2zeJIKg1Fe/QdTInn +SzoO57knFVA3Y8cnc0lP0OsOkRqXIuF6WsehoiNMeMJnYHz/Iwm/J49G15oz +4fKH8IMBIxS0MRUdFrFjA5dJra5WARVZitO2AQFsKKyN4joSQcIbaabT9ruY +oCWk21OjTcZpAZlH+bFMcK9s3pawm4qb6cM18QR/Zo0WrzH2Efn7qKonR3x/ +gVR/pYKXjCPfTyRZuDEh3FjShINKRVOhnwcPh7AhK3/CI+4dFYXWY9SIFaHv +KlwhaYUknO7qQDaRDxsZLymxcCreHXLf/JTg94ex4sjieQU07/ovMcrNAyZ5 +Y7TucZPw0LL+pxRvJjwa31a3qo6EukKMWiNjJty9TvtSd5qM4QlxPP/+Y8KY +bKPmU3UBdFsUCmBJDINNes6pp6MCWC75Jf6s8yhMdFc6ChYL4q3Fvw1/lyZA +Xr941sxFCO+8IV/eXz0N5t4drn+yhHEb/axQVPQ82KjLHGI4iWDQuF9ApvoS +oaeYcFuYgikJ5iUhG1mgGZh8j/qSgkLvAqY4dNnA7KC5jF6iYqDIZ32J02zQ +tD/3KnMnDSe2iunkfWKBY++DDT+5RfHVg+tPeW2Woaz+6DXHFlE0arI6dkJ9 +EYT4ggN/XJXCCz79tgeN3gOXwnmJ4TEpjGs/5B9i2A1HdP9qaO2Vxq2VP+Kl +LV/DnjWl45kl0pjt9eW/qoh2uOr97u/UajoaHuI07vjXBEPqaT3eHsS9d84K +m7l6GPbX6kxsomMNN8ep7LY6iJAI094mwcD634L7T3RWAmPL/jDOKAZekW5n +i3tUgFRfJv+Ljwy8qN14P41WCmrjUSHF2jI4p/5jk5t6AUz67FrQSZNBj/6g +S/ue5IK2c/7MnhkZVHLIr6bTs+FWzZ2aC/tl8S7Tutli7gZY3ef79LBEFrfe +1RDlUUyFoNQ+9y0kOfSR1C1d+psI8tunkur85FDrWt7g4P5LoOrnL6j5nxw6 +9wstiu+JBXP+q0e/Ksvje7WBbOnhaNggldCjHCePWQl/YsbkI8EvV75q/hvB +s5fv4mK6Q6E//rDnjL4Cvtwb5/pZLhCcT1v/mbmpgAf2cqU4aPiC3a/L4jQn +Euqn642O7CbOi79UTDaIk7H49Nfveb5MCItQGTX9RMaWL7SmWLshKLD5HnHm +qgD2pa13Ed04ArLDDz3EzARxNn2s9O+acfiwguNzPUsYb4qrhEdNLsD2ooAD +fnUi2Mg/8MZt5zKczsl4utGPgtlVbfWKbSwQsuw/o65EReORIIfESDYIx0fV +nh+ioqvvuugAIzZEqH983Z1Lwzv5TSrftrDgtXp275U3CvjgjYXPzCcvyDm9 +pnhAjYRdar6FNwl+/ZoqX7F+goTu3S+3uRF8u3qR4XqumIzcZhax+9cOAaVx +8q6jAQWXRL6v3BTOAtlBzZR7CxTcOpGz4//8ilTam6BRQ8XjNuf2TrizwcG4 +tLMqgIZ2Gvai9pdZwHeMfPXAFRL6fynevoWYX78/9xPEzMnoqnr+xso0JgxG +G7/7mkXBQyok9XU8bOCsP+fTeJCKs31yvrUEzx6MlA91C9LQJWV/sYgI4e+T +drX2jSqg6sPFlTQLT2gzNPptIEZCuQ5Bax1nJlj5BB6J7yYhzLjVD+xhQqni +0E2nQQrK0bpdNh1gg+rS1pOJOVR8FpY5sjWYDWrK+3orQ0hY4CWCKwg/+jbQ +ZzxdnYyqpsf6s6OZEL9GNTTCgIo8p+LK754j4q1+6Ra5m9CzSsbZ1/uYcM1v +Oi+Ji4yllaOB005MyLpxKX5KgIozMxe1QgIJP+lwLK//NRWls6967rdnw8jt +buPpXBI6Wym+uELk42RorytvEBV79yl39BDfd4b052fnFPBN+Z9jv695QIxy +z2WTVhIOnbWNqSb67ZKb3KROGhXjQclpQzgbdvFPhbl7kbC82vfpQ4Jvb4pX +L9lpUPF69QV30WjC32Z6rNmsR8Jjt14InzrAhBebLbv3/SPheGCGYasDkX9d +F/7/VlGxtPhkzpA3GxbOBozfSSfh54j1BSLE/p6JlowMHaeiwVOtACOiHoxS +gS0dX0nomHHWttGCCZK7y9S4z5KwW/6GRw+x3sjN4dftfQSfz3B3bCbWe75T +avjPioQfDV68vknUw+7PI26BjVTcc7iTzBXGhndPtuXpPSD6g9ZyOZXQk23d +7P5NZ6h4yX5N8jFi/+bXG7R7lxTQzWd+rdN2D6ho9Mrt5iShsgb9q/gJJpwR +fWU0V0XCS4+NrVqI+oX8rXH7eoqMBw2HXga2McFbJkfip5oApmm9/7wsMgwD +fGoxFUMCmBjvknHZehTCw/e66RQKorv2zTatyQl45vhbVNNRCBfUEk0flUxD +zmveNcM3hLFDkIdcGjwPZe2eS7sPiyBvZmJhsvISPNvQcrlbkIIecZu/OlNZ +sFusvY3USkElbyH4vYPQ33zbKKGLVLztMHWGRfDdpsiPL16Pht18644LfWWB +SvPnh+Ocothm+vymz+FliBm4oZzYKIr/whr3G+stQhuv3qGwBCk0LFuOaLZ9 +Dzou+emHR6XQJfxT2kGrbjixS/NblZk0JtIOOg54voavBb+ubS2WxjWhC99O +JbZDvknAFvdVdOTbvuZzGm8zRBVprOVwp+OA1I3zX1c2gN3jha1KjXQMq72z +PrK/DvxvJqmViTFwK//pUda3SsgyPnEiPZKBETeubx0NrQAxFdL1HR8YmBrW +pDa0rRTKev8u6GrJYMf9a+JquwvAUP5LybtUGRxI46tS6sgFYdvr21t/yiDy +KQlpq2bDonHqkqilLL7bNO9wZm0GqAfblyoUy+LQaOrqFp1U2KRi7F2yXg4V +z2YvPF+VBG7HDyfv95VDvTlTEPS4BNOfNfPL2uXwX+T2242OsZAo5DDnrySP +tyOEdfv/RMOWPydTWmLlUYEAVgBGwvqHXmuCB+SJfp3ych0JBbZaXk3sTgUc +6lHdeV4jEPLlzYQPZylgxL+Xyx8P+ILY/aBYo8MkFONsN4o3ZQJLqrWbi0bG +sY13SXd8mGD65ZXfifdkNAB9KZMDQ6Bo/cKl4rIA/tNXYTKER6DskEEA2UQQ +S1sd3S4ujIHyUb0zFYvCOPn0xYO0wQW4qlf9O7VaBL+sU0su3bEMcT0bnxzw +oWCz3iHL4kYWyCwI5ijLU1GvNs/jPHG+UXZ78r7sOxUf91//umjChozYFv4X +2TQcpdOu/d1O6MFA6t9/nQpEvDxzjrNecFxjWohvCwlDu29crbYj5lfC9Mry +CAkfFS7+VLBigtNY41h+IRm3KEtMza0aAuk/AXnJSMH0Dwp9X4NYoHHpxONb +fyl46qFmuokrG1K44++7VBL8Ur+3nOvJhpPpmevzfWkY0Cxak5PEgrcS83+j +4km40EQx3UPMv46MIW2dGRlFet8ny6YQ/vhhR7dgBgU/D8rMO3OziRrWJNTa +UTGObF36gOBDy4uplWwSDZ8vfanzorHhpbb2iNGIAopkK+6XdPeEy8ubDvlR +Sfjj8LPyqy4Eb26uHQt7Q8K84mVHboIn9d2iz22/UvB3s+jKbAs2mPT6pdbd +pqL520PnzhB+8u+P7fA9kIQCkYnBzgQfbuVyh8apkZFePOWqFkXwuvxYeiBS +8cmzDYqiBH/1/SteFRqR8GILReQBwbcj2XFboleQcaWD0pEDjoSe6DfcZ/JT +8e1AZ9SYP+G/t+U28Lyiop3xw2eBB9lQbFdXJnaHhCZjAeUuRD7iJdedX+FP +RTXdL1MmhB/OH70yMDmrgGOhGZJ7izzA4pA3RbOJhPP+myTWEnzP0XPjdU+h +oqDof7+UTrGBt+3dYIo7CfOf5DC3Eeenb9a64hbbqFiz/e4TizNssLKy9D+o +TUL6yWNlJ4n6JjiOHoE/hN+1+iN0yJ4Jv4fStrxYScWB2w8DaV5seK7tYNWZ +SkLyFsl4ErG/102DPP1uVLx1O8rgFFGP6S9FdXWfSbia4zBnDaFvP1akZ6pG +Ef3k3TMpQPDZli9RMG0PFUsGzZBJxLM5QVDxnyUR793g/CN7meBxa0yWR4yK +3vVDjdWhRL8Gi/F5FZPQN29N6y7i/V0R6hwykVR03vj8GZXw78lYdWjnogJ+ +TP1v79G9HjBSl7VZ5BkJn/SUmrwl9Cx5x91Hky6E/z9gf2EfkZ+VBQWOeipU +5OcK0LhE8NSkREFWLpGEaRrRX8SIeGaEzfd0HKEih/TbXY+JeE4EHveJDyNh +e+Kqo4XE/8McF63PG1Hxl+aYuiSxf/rweH9jPgm/LDMnG4j3j3dm6wuGUlH8 +LX3AguiHZyvffnLWouKdtp+rewk92v4y/mxwJgn7dGLK5Ij1xQGhrT89qcg9 +oNOygvjfwcS29g8xRH7ZSb63iOfqdYyugv1U3G0i5eRJPCdx7dUWqCDm5dq2 +W1PEfngn/qN5sRQwTdOg2nejB/wPzou+4g== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1XWUVmUQB+Bd6ZLuXLq7QenupaVX6Vi6y0Sl0wA7SAmxUEBpwUalFBEU +DDDATnzm+Mez85u5Z89+971zv01KSU0el5iQkHDBj6hT/MjPMXkhL8i9yERf +/Xq1HX/Lh9UR7JFfUweQg3cZTy3ztepNfMSP+oPqMHbIr6i3cIpsvE18mHPM +c32r2pUTpOEooznLQddfV4dwhjy8z0TOc4PrU9UCfMhb+v3qbSySX1R7kzmu +MTY+i/kGtT3/yEfUkeyVd6sDyUlt/Tr1Zq7Kz7NL7seNzNdvU7uRlkP6NEyT +C8Z9yovpx0Z9B/6N+6EOj+ibcE3eye2kZbpZId6Rl9Cfujxq1pSf4nlxB+mY +YVY4noe8lAHU4zGzZvwc58CdpGemWRHek5cxkPpkYJZ50ThjeTmDaEBGMpGZ +2a4X4wN5BYNpyONmzflFfom7yMIcs+Icl1cyhEY8YdaCX+WXuZuszDUrEc9T +XkUKm/QduS6/QWOe1Lfkt9gx7mG7Ppl0HNZnY56cFLspr47PJvchC7fqN6ud +4qXgTUaxT7tHHUSuOCsmxI6bP6W24mN+1x9Sh/Mpu/Svqv05TfZ4jqTyOQtc +36F25yTpOcYYPuNI3J+awifkjXNmUuyca/PVkvG35QPqUNbE+al9yRq7r9+i +diaR/fq96mByxz7rn1Zb80d8Xu6N/db3IEOcgz577KRcihPyAwzlOX2XePc4 +oG/CM3Ib/ozvCO4jR+yoWem4V/lBhtGUnLGP5mU4JT/EcJqRi9zkIS/5yE8B +ClKIwrFffrdsnLP8MCNoTpHYJfNynJHXMpIWFI09MS8f5yuvYxQtKcYC8wrx +LOP9ZDStKB5nZF6Rs/EuMobWlIj7Na8UzzDeO8bShiTuN6/MuXhHGEdbSrLQ +vErsRrwPpNKOUiwyr8r52HXG057SLDavxoXYRybQgTIsMa/OF/GcmUhHyrLU +vAZfxjNjEp0oxzLzmlyUn2UynSnPcvNaXJLXM4UuVGCFeW2+kjcwla5UZKV5 +Hb6WNzKNblRilXldvpE3MZ1kKrPavB7fypuZQXeqsMa8PpflLcykB1VjR80b +cCX2lFn0pFrsn3lDvpO3MpteVI/9M2/E9/I25tCbGrFb5o35Qd7OXPrEGZm1 +5S95dzxndup7kpGj+n3xHUM+jjM58f//wTVd+w8ySOct + "], 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]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 13}, {0., 1.9701485006351023`}}, + "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:eJwV13k0lP8XB3CJFiUziJmxhBm7FCUi7g0hSpS9xVpZsxMRCokSIUIlJApJ +ZW0he18pWVpIUmMnlZRt5vf8/przOmfO53nu577vPTOSTt4Hj3NycHAMreDg ++P9nUNih9RwcJFwa2XKyxJsJ5Q0eeV2cJFRSp38RO8WEKZ5ozbvcJDyyrPsp +1ZMJLtcfu5quI2ESWSL2mhsTzCs2NmULkbBodcD4mDMTLi1vPuJDJeH3o88f +XnFiQqu+wW89URLKtgtY7nJkgk5XkOSEJAk30NqP3DvGBKWZ9+E7N5Nw0MOk ++JMtE06qzwjybiVhcNf1K1U2TMg9u6Z4UJWEnareRTesmUDl3fnpggYJpf0d +S8MtmWBhYe57WIuE9NMnyk5bMCEpy23NFh0Snrj5UujMISasUsjc0atHwvm0 +JJ1r5kzQ9S1/XWRAwovNFOEHZkwIr3rlEr6XhB8qGOfeHGDCrMHiVcYB4vyP +KjqypkzYkiig8M+chEZ3AguO7WeCe49i/X8WJPyo9/LNjX1M+Op85IefHQmF +UtVSt5kwQfR+QKzBURKKcrYZxBszwebXJTGaAwl1M3TGRvcyIWXnncdTTiSc +OWR74QDhjshnJvXHieeLf1V6bsQEntaeoVRXEhY8zWVuJ7yHbzrE1YOED6u8 +nz0yZMLTG+KFfL4k7Dh1cb7NgAl/v++Ab/4k5A9PCnQkrKp0oLciiISFHsK4 +gvAp/5Ne8SEkbEtadbxoDxOKaiK4joWR8Hq68Ywt4e8rMrJUIoj79uye4ics +sbdMlfscCbvkrrt16zPhcFJr24doEpLZyd43CV97P+hQfIGEyjJP1/kSfic+ +/zcinoQLjRTjfYR5T5CvHLpMQt/PxTu2EjYqkZeRTSJhunrUZ1HC0bO7ny1c +JaHtvlxjfsIvtOwsOtKI87dKxJMIL5zzm7idQcL+sA2FwoR3vIo/F5hFwr5d +0WWyhH3JedS9N0ko3J31AAkX29SWid4m+jPu99CJ8OitLsOZPBI6Wii8vEyY +PjIx0FBAws/LzKl6wseUuYLSi4j772xHNuHMQFFej2ISeuevadlD1N/zdHu+ +zgPi/WnNl9IIk7j2a/GXE/Vd3X5zmvA+k+PvmI9JqMgXu9qcuN9IkdcGc5Uk +THhiaNFM+PHE9tpVtSTUFmTUGBD9Gq3N3iL8nIRPu0uN3hEWvcSVL1tPQvGq +s3xuRH/NjnhSNBqJfPpuFl9H5CFaqfuSUQsJh89ZR1cRnmzPC3R7TeT7VXaa +GpEviRvrxkPekjC/eNmem8ifhZf/sfguEsJPl7pBwk959QzvfyTht5SxqBoi +vzOf79XW9pNwNcdRzmoi34xS/q3tX0hon3nOuoHIf4LpEGWKScK1GrefLx5k +wnNx48vLoyR8XLT4Q56Yp1/TD1dsmCSha9er7S7EvNldiRpX/kXCgx9S1JeJ +eUy0HzsGf4h6Lf4IHiHm9+UW864D/0g44Z+p32LHBIW3Ek99WCQ8rhn18eVR +4v5z4rZGrSDjSjvFY4fsmXDVZyY/mYuMpRVj/jMORP9JdZfLecg4+u1UspkL +E16Z29vPCpExrfifyT0PJrAkW7q4aGQc33SHdNuLyPsvZaONYmQsPvvlWz6x +vzKvsrbuoJNRrCVrtsufmNeuG5ynt5BxVm8poDOMCTfzuIPjVMlIL552Vo0g +8uvvNZGhRkYV4xMDOVFM0BTU7q7WIuMMv/TjglgmrLXsv7NoSEblhJdp1slM +2CWtT1tvQkbh3vcpMqlM8PlzP1HUlIzOKjHXV6Yz4UPamWBtCzKmn7OeH8lm +QmEvbW+EAxklV3hVHy4i5sHGdpIzhIwnMyyzlhqZEPS32uXLGTIe1h9+5d/K +hDvXaJ9rz5IxNDFu7b//mMDZ0/c6IJqMl2Ref5ftYsIz82MPhq+QkWHrdFJm +iKjfxNnvVQEZ7zbUMYo4h8FhvGG8oIiMW5XEp+dWDcOViwzn88Vk5DYxiz24 +bhgmW5iHdpWTschlyXyb4DDc1XdVK31GnGcwkJUtMwyiOl7/krvJeG3f05UU +02Ew/vza59R7MuqBrqTRoWEICVMeM/5ExubPtMZYm2HorfnxceUgGQ+s+tS0 +xXkYktX9agMnyDiU4zWhEjIMq1SCz9py8qPPrS9SHIXD8IMexSW5lR/drbUD +15NHwFM6V/yHKj+ma77vXxYegXGZBo1navzosijoxxIfgWF5bi9bLX58Ydpp +uHnzCAxsudiTbMCP3Ic/XdI1HoEOreQCzqP8WHJ2qeDghREoPnTb6PtFfvwV +GBytwzsKCpYvncov8eM/XWUmQ2gUCq2+hUVe4ce+9A1OIptGId9W+qFoGj/u +lspt1VAZhSz7IqplDj8Oyx+bVrMahXiPh+NNFfx4atbztE7eKLidr7909xth +Pud99/aOwSCvanT5MD8mxTtlXrIcA6uM3DPPxvjxocTn+HOOY6BXct696wc/ +PvhU4VgUMgZi7/cYsRf50XDcUu/bvTHoVHi10lpQAJW/66vykMdh57t3oav2 +CGCCffWA8uQ4lB3R8yMbCWBpi73LxYVxkBl55CZqIoCzGeOlf9dMgMBSqo2q +uQDq+NIT+GQmYEraesexowK4GXoklBwn4HZI388ngQIoppInI9Q3AWslv7se +LxDAxYMbIxM/T0Jo6H6XXUUC6Kp1o1VzahImuyrsBYoF8Obi3/q/S5PQEXvR +qv6hAH4xP1ScJzoFVyeV9cWeCSBPwGDmyyNTIFoVsqmnSwDb3pqpCA1OgfIB +vl79FYK4VJK/vffXNFiEa+oxjghio078RvG8GXhu/1tEw14QF1STjB+XzICc +bvGsiZMg3n5LvnSwagYWV4kX+LsKon/7xOq7r2cgN2nF2oYAQcy5S8kv/TcD +M3mtHY6XBXEz001Q2ewnXHplZXfruSAGNh5gpnL9gkZhf1+a5EZ0TE462Rfx +G1YbNPKFDG3EmLb1SsNX5+CP6t7iD9eE8I3i5i3v3eYh9w3PmpHrQtgusJZc +GjgPpp7tzn+yhXA7/ZxgRNQ8FNw5IMKfJ4R3gh7K8F2fBxuKVbzJAyHU0A9a +xWyZh5plJ9fnLUJ40lVOz4KxABGtYYz8f0K4YPxs/933C6B0XCeyfFEIp569 +fJA+tAAfVnD017GE8IaYcmjE1AJs1Tqf8plLGG2nrsxuX7kIQyUXOYXJwnjm +7c2dasqLoJ9ybfCivDAe//yTL+TcIqw9VpbtbSeMbgEx2ufoS1DW5r6096gw +8mQlFaUoLYGVmvQRhoMwBkz4+GWpLUH++kyRj8eFMfvvyi+XDZcAa89n6voK +Y4hLf8yS+xKcplhnbIwTRhVL96OzD5Zg9N1ySu0TYUwsqVqcVFmGKzpVv9Oq +hPHzetWU0p3LsOOe3yGfWmFs4Bt867J7GaKjRvil64VxX3Id7wOzZZDY2pmc +2C6MlElurepTy2BzOf+K4zeivtpUsczCZWg1NElYTabgikBSPwqw4PnG5ktd +AhR0i9vyxZHKgsffMPGWEAVTE01Lgjax4HbEjmR1UQquT90Yd0aRBaGVkukn +ZSlY/XPY5KcuC5Rk/+W2aFPw5sBbVow3C6T++OWnIAUzPsj3fQlgAaVh6o69 +HgWXhL+t3BzKAm77b4V/jSgoFLBL/HY0CwaudZTKWlCwQTi64kcGC5JX3am5 +4E5BScOlVokXLIjr3vT0kBcFm3SOmBc3sOBsbuazTT4UzKlsrVNoZYG7TlJd +ZSAFnULmdDg6WaAfdKZ5JJKChlsypXmHWDDHNH9nmE7B7sBmm3sr2DD5qL1L +IJOC/UPS847cbBiKMuz5kk3BI8oktfVr2fBGTPtDcC4FI2NUfTRIbCi0lBu4 +W0JBdTVa4g8xNtg1scZWN1JwVQk5uWcHG/aKtrWSWiio6CkIv3eyQcM/5S71 +FQUFe/ymObTZICQpd1zxLQWbO3kMJnXZ0BlmPmjaT8GqielkTlM21HWJvLD+ +QsHfTSIrc8zYUKowfMNhiIKytC6nzYfYcOlD6GG/UQpaGYuMCNuwwWh7fm/a +LAXTSI59io5sUE849eTmXwqeeaSRYeTMBpkhjdS7CxTcNpm70/I4G7iSXptX +c1DR58BrWR03NvweTt/6ciUVB2898qd5EPVrO/H9t4qKpcWnc4c92fBiYq69 +fz0V+ytdC019iPfRrb/P5KPiu8GOiHFfNmRfT4if5qfiz58XNYP82RBqKGHE +QaWiseCPw0eD2OB2c1xmrSgVPeuGG6qC2WDz5zE3/yYq7jvaQeYKYcOOvL0N +dGkqNj076+x+hg3SCwK5SnJU1KnJd4sJY4Og+UCkmiIVDUcD7JLC2bCysNBe +R5mKfFx+6gln2fCL5adjqEJFJ13kDIpgw1dLbTGz7VSs3nHnqVkkG94Wr16y +UafitaoLriJRbHi+8t0nR00q3m79sbqXcIlddrW7NhUNAlfdiDxH1PPwRIY/ +UvHp840KIufZEL9GJThMj4prz8Q9vEM4xH7RMsaAir80xtUkotngWtG0PXEv +FbfQR6rjCVvzJgmk76NiyZAJMgkbuNj9unWAinciudu3xLBBrZbRWXiQinuN +JB3cCTP4fzx4aEnFt3fb2amEBdyqE2tsqBhHtix9QJiz7rxXw2EqzvbJetcQ +/ilkuq/9GBU5pN7teUJ40Iui2ONIxYu5HDtyCL9pHFo74ELFm7ci9M4Qfi5S +Mjp8kop6zzT9DAgX+wW3/HCnIvfgruYVhLPadhf886LiGE+ZXgnxvvES62NW ++FJRVfvztBHh08G9zjwBVOw9oNTeTdR/siNHVyCYimLv6INmhK2kPSRFQ4n6 +hl23PCPub0+YGod0OBUdN714TiW8vYs9sDmSigm2a1JOEPfNH5WaDbFUTPme +LN5J9GupwDpC8CIVb9lNR7KIfjLbaU5jCVT0F+7XFSdcRbktm5JMxQstmn+3 +E3nI1XHhcU2looDIf78UibwkuMhO7UqnYjwoOmwMZcOxspLy4WwiHz6X8l4Q +eTPq9UmrvUVF03dHzkcSeVRZ2nY6KZeKz0OyRrcFEvNgVKOtWUhFlsKMtZ8f +G+59aW69/IiK0rUhx0yJ/Kdyx993qqCilNrd5Tx3NoQr7k9Ur6biSavz+ydd +2WAW3HXo63MqdlcGCP1/vuY2DA5sf0VF/l/Tvy8cJfqzPa9+7Wsq2hg+eu5/ +mA1tdifyB94Q5+VccT9oS+StYNItroeKghswYtSCDXo687N9g1Q0D0+0OG3C +BiWXp+/LvlHxycC1L4tGxP6Ij6iJGaais/f6KD8DNoz3cEdumaRi1aqD9J27 +2ZDkxb/u/F8qxq7tLlEi9lF/tqKkwgYajq3Rt3tE7Kvml9Mr2SQavlj6XOtB +Y8OD0YfDXQI0dEo9WCwszIZz2zWKw6k0FOnWtTMm9p1cu756J4OGfYyNnSKc +bAhYPLr/tBYNlSfd0oK+scDqng9vvA4Nu3jXnxT8wgIN2/Ovs3bTcHKb6K78 +TyxYqijc/8KQhri6RzyT2Mcxfr/3r7KgoVW2AN/gcxZcG4szTfWkYdarlaJf +rrHgdEbWhgJvGvo1iVTnJrPAzrC0o9KPhjbqtiK2l1ggfqfLtO80DXNjRZxu +RrHgroP4AakYGmbvVXS45MGCqvePDpTdoGFp/fSlFdosyIxt5nuZQ9RPp139 +u4MFYWof33Tl0fB2QaPy160swBTWgb9FNFzbJnX8CoMFbaZ7zXQqaHhkTZGB +7ToWfGoaMGvvoKFrsyHPg95lWHq09uAom4YjDMndzS7LoNzU/2iCUwRbjV/c +8Dq6DPa9Dzb+4BbB1w+uPeOxWoaX/yw//lkngjdVd0fIGC5DnHauw0qKCKor +rrvGlFsGgRZNb/GtIhj782tE4vgSKHzyuGThIILfs2h3fpxYAmuOjua6OhGs +FGSE0gwXIXrwulJSgwj+C2k4aKizCGV1x6/aN4ugQaPFiVNqi7Amavko6z8R +3MZY9LxPX4SqFZv/aL0XwVH1CzpD7AWgrLxEr5wSwU8BObT9lQvwids4soQm +ily0/fquUgtwdF3zzswAUczQfXRBYfIfXLTI4bivLoZ73LYZa8nNgcOR0qan +U2IobKAX+u/ibziSe3OA+5E41gf0OFxrnwGlsLsnKwM24Zkb6+ONMifBgsfv +72NBCXxayjU060j8vg9cwSwKkkDr3jVDMpbfwbjunvmmdxIossStMrbuK3yy +cJhrVZTEm7TVp8ri+iFszeo9Gy5LYrRHprWW23to5dE5EpIoifply2FN1u9B +kDfQ//sVSbzgNWB92OA9FJO/3a65Kom3pNcJ36O/hz7aC9aJDEm08Emmdg30 +gubm4KoXeZJ4h/e8pKl1L/wzH1H0rZHErgv3a16Y9UBAVgt/94gkbkrwaN/n +0gW7nAoyjo5JolPop/TDFl3AJR8jPjIuiXFtR3yD9LsgtUJXYWFKEuVZXipv +GV3wpPPZbolZSYzY2UQVGH4Hc6sf+3hySKHuX78tb93fQUhATgcXVQol5ao+ +zoZ1wtn9IfFqxlLYGefCXR79Bk7t0fhaaSKFSbTD9oPub+CY9l91zf1SuK3i +e7yU+RvQ3hzI1DGTwgulP6WGxN7A0npfNLKSwjCz8ql9VR1wpt11zs5JCnft +bixvmnkNp01snCJDpfBtzn3qhHc7+O1V1/zvnhS+G0u8YJrfBl8Kf13dViyF +a4IXvp5JaoN9a0onskqkMMfj83+VYW0g08K44VkmhQ9HZOQOW7ZBnz4/x4YK +KaT9jlgwXd0G+jjVZFYvhYW8XZ1DXq0grJ5n3vteCp+vfRYTuqcFnjL43L5y +0ZFiZzTtK9oEBUZ+W11X0ZF3x5r+dJ4muOLZ83d6NR31j3Aatv9rBKfHWbFL +PHQso7x3c+hphDX6cvnCZDre8y6r2n6lEQ457/6yX4yOJQ5+u6K5G2H8tr9l +jRodpbsdGEFLL4Gy6cPulBN0XF4XcdafXA8R99TXcbjScVDyesyXlfUwrJbe +7elGPM8zd4XVXB082md10sCTjrZDlzWd+urANLT70rwvHTtFSF/m7tRBdM/b +9/bhdLySEn+GR7sOfia0eSml0lGXmmdvxnwOr/7VXG+qp2Nj30Nn99lasHmy +sE2xgY4hNbc3hA/UwoivZkdSIx2ruTnO5LTWAtdENeeRFjpqOhSfpN6oBZ3P +VR6/2ukoYjgJ7wxq4WF9hfamD3Q8XM571vJGDWTEl389PU1Hd76wvWZW1XBC +9J68kggD6cnrf9z6UwG+N5JVy0QZuI3v7BjrawWEiYdobRdnYN1vgYOnOiog +WcJo/y5JBk7eltp59m4F0Y9hn32yDFx8JvDTwa4C+DdLVXluY6DEFcNqmYYn +8Ew706DEhIGv4j5RDuc8BkH7eGflMAZyepoJ18WWQ7bhqVMZ4QwMu35t21hw +OTC2HgzhjGDgZak2tphbOWxfQbvSG8XAqUe+0fdMysEir6jm7AUG9tfeNjQl +l0PaSCv5zVUGXhfUI1XffAhCPqvrvIsYGGq4re5LfRlQoqJFH/YykHbV4oTJ +gVIQVSZd2/mBgWkhjarD20tBsi+L7+VHBl7UarifTisFBbVHnF39DLxS0Git +M1wCWmNfR2eHGNgqGXwx42wJHDOHJxo/GGhBqif5PCqGPMmF/XWrpdFTcn2i +0ub7oPzSO+KNhjRy28QIkI4WQlnv3wVtTWlsv39VTHVvIahORAQVa0njnNr3 +zS5qhaAmmOR1UUcabW51Kv/jLYRdJ8oO6+lL4/4i64MDL+7CXp6f6pUHpHH1 +7IRuhsxdcDnoN3PzhDSaNH9r8mLfgcyhAMdTqdL4uD81WrA/D/TlPpf0pEnj +YDpvpWJ7Hkx57VnYlS6NbgMBCQee5gHOb0xZlymNWVJlv55m5wGTr7Kx8JY0 +mr38XLj5WB5s1Z6X/XZPGpvntuw69i0XmtLDp63rpfGWS21V9dxtmNkXe2b3 +tDRuWTtWcAxyQMj62o6WH9KIvIqCWio5oOVY8HPfT2lUtCuootNzIDaw+aTN +rDTODleGU1fngNjNVRbeC9L4J8i+VPHWLTD+Eat0Y5UMzqQLPEluugn5yRc+ +/xOXwRd7Owbz6TfApjcOyg7IIHdiq0S9RCYsGqYtiZjLYM/mebvIdZlws/p2 +9YWDMniHadlkNncdvmfXbLO3lMEfvPd+M9qvg4/zpOyGwzJ46UmZxvXT1yFu +5gDJ84QMbuVOunanOwMqeYS/yobLIMfTfVY/M9JBCO6cu3VPBrPi/wSlHEgD +tUDbUvliGRweS1vdvCsNLO7zfnpUIoPb7qiLrFVIgxThIJXWMhlkdgpfreNK +A9KMweBMhQwKmtG3/K5JBZ7bo9q6DTKo2PGu204hFVicSvPf+2RwkxKtrEsw +BYaby70VeGWx6Ekef9LGZNisbOhZskEWFc7lLLxYlQwBaX2uW0my6CWhXbr0 +Nwk4XbicdgjIomr82X3Zn5JAbIWVhS5VFq1+6m33z0kCC615DTtpWVzo+GoY +pJwEDQ+AM15bFvmriQ10NxFyMtpTx7xkUVTr41XLiARwOXk05aC3LOrMGRP/ +FRJAbsd0cq2PLGpezR8aOpgAD7v4rlz2l8UHVkHdlTIJ8HLDoYsqIbK4cvJr +14438fA9+mN4SLQsvl1n8DWMHg9yvsMn1mbJYsbvq0GtH4je7eXYKd8qi3GZ +O+JC/WNhpl+joKxNFv+F77jVYB8LKj6+Ahr/yaLjgOCi2L5YKL82NGXQIYsB +wfp7VknHwuNvjbku3bK44aFsVN77GKgKv7g+Z1AWqyTaS1diDNQ/5B8UmpfF +z7vGVedEo+EdVfoCl4IcFnDO/LrDdQ6SBO3mfBXl8FaYkPbAnygw5bty/IuS +HL5XHcyRGomCV1zzejVb5PBH2NTlN21RUP+jncNHTQ414eZE1ZUoKGsKCO1D +OZxavrurXiwKEn0bvcqt5VA04Sr3Cd1IMG5ztnCIkcPFSTX1DTbhsPXP6dTm +WDmUXxL+5ofhsFEysVspTg6zE/9Ej8uFw+DpKov5eDlUiJ/z4l8IgyA5Xsur +SXKYR5tX1rsRBrkXKiwbs+SQNHrSWWTkDCzuWWstVy6H5RzqDzAuFIpfltrO +DMhhe+dSksVyMGx45LEmcFAO7TOnPZxHg8EnT65y/qscOrzqiYvuCoZt0bmC +K5mE7ch7l4uCoWbPtTcbJ4j3DxVSaLEOhrbW8D1af+Ww815SZ2lFEAx37FOJ +5ZPH9DjLOOeoQJDoG18jivK4iZQ9qmnoD2zV/OrY3fI43K2yO0bdHwbij7r/ +1JXHV/vjnPtl/SFb8+1/zXvkkd/jV1/ZGn+gZj5J9DWRx+nOqdCfr/yA3zZS +sMVKHjOtTGJbzf2A+/1GCT8v4vsGc/Q4V18Yf4fqrZnyGLJh/Li/jzcUyJkI +Hc2Wx7B/r5Y/HvIGx7OWf37ekMdD+7lS7dS94YO8+yOR2/L4oVTnaBHrFDRH +pmzxviuP2fdKukITT8Ft5WFZocfyWMejJ/qx3Ats4hMoLq/lsdxnXzmT1xME +B9P+/uuQJ/q1ds5+1gPeqOX0Xn4rjw/emnn9/OQBBl8fp1Z2yaNZr1mubaEH +bNMYIK37JI+Wxps+79L3gA3DW9eWD8vjqHlNwq5Id3ilpTVqMCqPwjkKByVc +3SEmeU9L35g8qjxaXEkzc4elXXYx3FPyqJ2585OphDuMp5xfYftbHovLneWe +1rtBwdjlwalZeRwPzpTYf88NHCHjxbk5eXz78M+J31fd4MN4cXjxvDyadv6X +FOHiBilYeWT3ojx+TPtv//H9bmB6rV6rd0keXbzm1znscAOeyf9oHiyinxp6 +Vd6b3KBpd+88my2PJaKFkLrGDf4HRiu+4g== + "]]}, "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, 12.5}, {0., 0.9470468281352962}}, + 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.992077631498291*^9, 3.9920776522489624`*^9}, { + 3.992077699447899*^9, 3.9920777725019646`*^9}, {3.9920778098316326`*^9, + 3.9920779153927155`*^9}, 3.992077954558487*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"2614b7e8-636d-de4c-9b6b-627435f372b5"] +}, 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", ",", "11"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.99196423637006*^9, 3.9919651876297417`*^9, + 3.992078155653385*^9}, + CellLabel->"In[86]:=",ExpressionUUID->"c6042d45-7676-6c49-800f-09aa679e359d"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hc4V+8bB3Athb6Zkc3nnEPoK6QUct9WUUgku0TZyZ7JlmhIdmYSKWSl +IqRBRoVCy/oaFSIpmf3O769zva5znet5P+/7OY+47RmjU6uZmJjEVzEx/f+p +6B64jolJCFexSb6yrZiAm6vmMtVXCWH3TBP7rbIJ4LnmtStitRCmV5cEfSmd +gJ9Vrg7M64SwoJu1w/nuBJQvHnu5kVUIE1cknE7lT4Dcec1L/DxC+Pqv5AaF +lAmQydq4ecdWISSur2mRCJwARlsWaW8ohBkji8mueyeglTU46kqBEAo9fVj3 +9+44zLMPK8/8EcLAssItqpvHgXvkslqtjjDed+3NPHbmG3zJ+Bmhmy2Mzm8b +JPgLvoKG4KAwx7QwjvfxmlK9X8D0bMx82n4R7BQe/3hwcAzMi72IuEwR/FDt +UP+xZxQGbo7lVk2KoM5FC6Hp1hFghGy2zdMSxfAUG459icPwVbTNtyVJFD+O +SjaIHf8PMuJfvDcbEcV7yY4Z+8WHYJ3nXngnLIbGniZ/FWsGYGXlY43APjF8 +uWqXJO/LPjAJNn3/xEMM09I4f157/xFu/DebmZEhhlOTiwZSC70gX9y9MfGZ +GJ65wOl426wbRByThCanxDC0NUowJ7kL9KNTu223iOMidJ36SnTAhyR/eWUt +cdw1kHzwH6N2sL4UuEP7jDg2bOTaw/axGRhfGvpdU8Tx1vz7xJHNz0FbcXjb +70ZxLAy+aeHn+QSK/jtIZoyL40Lzen6RmVpgDnrX6MPNQJUxjhKOoWqoX6O6 +ukyNgedqDxlX7qgAt9KhE0bAQHYvybo6ogJELC88+Um73dF2qou7As6Vd4fu +UmfgUolRoshsOaid8Phbo8nACy49nopV5VBXd2vphQ4Dt47YdBzbUw6PAzjn +Phkx8OKCChmvWwY1U6PjGxwY2Foa8r2foxTk2Dk7q2lL8VzuePezBG7Jqjyw +d2TgC9LZfai7BOJPX4l85sTA92ECFZBZAvbjSsKhrgzc/vwhM4tMCXCNxRjM +eTAwaotseduBYnDsky4bOcvA78VtLC/S7wBPu5tvYwID67YK3h4PKAQp750y +btcYGN7inH3DthDUBJf6+RMZmGVSVuB6sBCcnC7oeiQx0Fla68ke4UKoW3dT +SCyVgR3DEX33nxSAo9r7xuBMOo/MpZ8KmwqgtlSTfU8hA00ldmsPV+aDXcKW +wtLHDPz9wS/78a48YD4Y8/pQHQO3CQSXU1QeFK7583uK9oeOrtnr3Hkw4d2j +LdfAwB3qesPl0zfA1zT5v3uNdJ4H5f4X7tyAGCEe0fImBlp7ir7pIG7A3Vvs +yZUdDFQe0jydIJILvx4xRz4cYaBv6pvVX32ywGpsXt5hlIHGpf5H+o9mwTPu +yX6eMXq+SVV/fyhlQaJrl4r7FwZarXJid13IBAWRnJ8S4/T6Mh1t90IzwT1s +j13iNAOXhwdvOCdkwMR+V40ziwzsWnCM5mhJh+G3HUwUJ4E+c2fvNkWlwHsu +N/Em2kfnnw13u6XAK0NWDScuAnO9+kIWTFOguk0jopibwLcW93PPSadA7LOK +dbt4CWy6PDDu/yYZ5CqTWPcLEqjwjMVjq1gyBF8z53GiCHx6y9+b7VUi8BoN +ShbvIVB0X6ZWjU0CFPEJ8OkpE9gr3c5oM0gA+GzEPE7b/Wz11knVBHB0fDa8 +VZVAJsPTAcf5E6DmXEHuTTUCl9OfvF7TdRVs7pwWzNAkcO4kuyfqXoWitQub +4vQJ7MpIY1NUjwe1FoUVKQMC+yRZ1ivIx0PXFZfJZtpiPJvy1cTjYUngcyuz +IYGN+szpEavi4ZB8Q0y4Ed2H0YyGb9QVmLWOXh1oSiDv1CRv8ZXLoFbN9dvx +BIHtlefr+x5chNTpVy6bbQnUkZkq+5Z2EWak4gaf0J5PWnq+Oegi3MpY0y5w +ksBNxhrDzXsvAnv4bF6bPYGdtv/+zn4WBwN63YflXAl8LCF8bb4nFsKG0orn +fAk88T20MJvnAnwSPErc9CNQY4ArznI+BnaZcKUZ+hN4umVIdUdfDHxrio28 +HUD3z9FeuLMwBoyKgywtzxL4JqixP2JvDDD8rVnqw+g+mPp/bT99Hp79I34q ++iKBA0LCvYIDUXDHLFpf8hKBPSTn7tqXUZCQN76zmXZkbKC0Z0UU2Oy5z8x6 +hcCIsoQgkfNRsHzyYOGlqwQ6ZzE/890eBbtqfcYTkwm0KBpr3BwZCYXOLR55 +OQS+uMjRcVk1Aq5UbbfQyqXzSr/iq9saAb5MSRojtN+/Vyhj2hwBWsnHuSXz +CNw5YZZSPxkOg09mK4vy6b4sy4wZOeEgwC/6p6yIwAM591pcN4TDxSavcw2V +dP9ZbXI3RkNhd7TVpFsV3edaPSqvKxRGtLSthO/T+YQCTj5oCAW1Rl7lwGoC +/7tj7SV6PRR+1D78teMRgcFrfIo+G4bC0fK/rgX1BIo4xrznCg0B0cw4y8st +BIZyd3IrmAdDm6V3i2orgQW7dmxcUgoGfwHrPeO0rUdK+r/yBkNniiyfTjuB +IWMzMXLvzkJkQkfnqjcEBpUdXm1vfBa+nOc74POOwAyLm4NGR4Og3DNvt9UA +gTV6cczaPgEwobFT4C/t3u/Sg/IWAUBxNy3mDhI4tpitrwwBkFrxrW5siMAb +j/O8MlkCIGRWXttrhMDs5BXhomx/0PNtOBz7jUCuo2/CXrzxg9GAz84PZun5 +e+6MtdrnC2IHzuhZ/iLQIJA1J1bWF8wFVsmu0E6J79zWwesLbY/IH5pzBI4r +aOkXjPlAxaKL3+t5ArcE7BPyifWB0OCFiNEVAh8+TG8Of+sNAmF8mTwsJHa8 +PMDyMsALZnu19StpZ++Rf65xygva5byXjVlJtLaNONph6AWhA2+sr7GRuBg1 +cXvbVi8YhVgRrk0kBp3lGX/f4wnlK0vZ7Nwkps+yNS8re4Lu2aEbrMIkinP4 +fhph9wDGWw7jItqebNN/3y67w5IMrDkgQmLJ3oCM7nF3KPl43e6CKImpeifn +OZrdgUfFhNzAIDFrrMzIJswdBuab8tdJkqgrPeRa+f0M+PsVFzLJk3gRTv2I +HjgNfJrH+4tpx5t0bOOsOw33N3HyWirQ+SXch55cPw2z+d4RVTtIVJEz5082 +PQ3ub1WOOe8i0cJwXnddhys4yLdwv1UhUYf7356PLS5wdHz0XME+EkV//Qy0 +eO8Ev+6nVh3ZT2Lc9sGvDjVOkBh+YGKVDon3R1zWpmQ6QSd/ibmVLolblOXu +mts6gYGOjyKnHonG7DyfXScdQTt/zbfAw3Q+J/eJOyyOoHhczMTAisTXJSRH +prk92KgGrUzRvri/vtxU3R4u8ncXXLUm8cOPxTkZKXsY7opbeHuMxBaP3tXi +86cgUWcu2/IEiWmTXQeU00/BrPyrb472dH91gv7cgyehYu3Z0Ah3EhsXOWoq +Qu2gb7BbivIgkeOBqYGnix2w1st3vaAtk/bbe/9RO7ANGKNYvUjk2qEttnOb +HXB9N2qN9yFR75WEu+B7W/DskeLNCiSR9dKgJpOSLSgU9dx5EEmi9HGnC1dX +nwByseqjQxSJyNa/0fm7DWzWS2TjiybxZ3HagPkHG/gzaejic57EvAURzpBy +G6iTb5FWiCXReaPQi092NqD7sPb2nSv0fCcMirKSjoNNc25BVjp9Pm+qCbYc +tgYj/tAe/esk6s/fTP0uaw2azsfWL9O+s8k2S2WjNUhsFHSwzCSxUHLtJYMm +K5g4lCixJYdES85TG4zBCvx6ovOv5pN4PcQou3SXJVwedcmLvEfieuez7LHq +5iBaP5orV0biU01x+TnCHO6lnMj5RLv13AaMZjaHLh3TTMUKElP6111haTOD +LXc0UoarSLzmofwpx8wMbpzhj9OqIXFyZ+P6GT9TqP7zwnPtCxLD+0kB6pUJ +6HSoe9yjnc+yvu1CpQl8uF17xqqJRO5Den/ZrpvAkkW5a2UziY98xewdHU1A +43Gm/clWEufOBOUGrzWBtjBvi2dvSDx5avrmsvoRGGBlaER+JNHm2czZgA4j +WJnVriA/kbjH+I98e60RCPU7kc9pp+9LUlIqNALzijJm5j4Sm9inuvVDjKDT +Ur31/ACJIQPVH8NljeD5XZsjcSMkbhO0/T0XfxiKDLLtE6ZIjBJ0/uR5yhCa +dz/tUZgm0fxb05+TxoYwxhjT6aJt1dye56xuCOScrAzPDP39oq7xPWFDyMyu +m0qaJdE3v7ZKu+QQxE9/9k+bJ9Hh0bt26roB+CQIxeWsoTD7ZdNrmXg9MJt+ +Gm6wlkKDd4O8TG56oGrgErhEm/382tylg3qwlvWRkxkzhdxRms9Pb9CDxDBT +HQ4WCp8vzerIRByEcveEdaGbKPxgIfN4POQAfDfYEHqcn8Ltuj/cDZN0oPNu +qd8/AhQGVeUI9PjpwH1W0zM1tLUFtTNCLXQg+EX+MT4hCt06bKNVxHRgo5rm +3tciFM5jUKpe8X6Q/vfcghpJ4WXvm+YP2/eBA9ust8h2Cvex/j5SIaENvYFa +/Q20n4vJ753fpA063xJ17eQovKi94Gw+pwXSL3eKFMrTdjlAOTZrwfdovyZ5 +RQoPv/y5XOOiBd6rF/m191CYxVn1hazWhPD5VfUumhT+nJF6p2ajAT8djaQ2 +aVF4UqTBPvWgBpzsvXHtHu1FH7eRDUoaoF2t6fhLm7Ye7pPdpAEbfKI4Q3Qo +XB1YMXD+sTpcmd5wMkGfQlOuFeqEmDpkjLGzPDSlcHpvvcg/EwDFfUvqZmYU +1nS1sXc1A9S9+xo4RxuNvrvX5wP0P306sdOCQpe5qj5WGwBGjt+bcisKcxaq +ph261aDArD/l7gkK4y20a/la9kL5yxKJHBcKz8VU9Kq2qUBjw/Xj4Eqh96gA +f2SxCnRVx6T20U7NrJiZuKxC38+2rMJuFL6RXBlgGKmAUjjv9zR3Cre69dcJ +flCGWuVzVdd8KLzfFpnLmN4DTXf0tc6HUHjQe+F80o7dkMVbt0YxlMLIVb2X +zvPuBu8w2acDtE2KzEUy5pVAzJRdQzmcwnDjW3u3NSiB/+oOmIykMHhmLc+w +gRJImR9RMY6lUFNz+fYVz10Qx2ypIJpEoYN7QX9rhyLYerT+aKUtp8Kt9uyB +Iuz+pFLmn0zhvwHRbh+yFWG4TEiuM4XCr3wRD4+7KYKqdd+/UekUKgilb2vZ +qAiTFSekxrPp9Qz2ljId2gGHTjiKVRdR2HrGR++fL/JQ/jnMyOwOhbWblXZO +dckDr8X1yHnavDP3zo/Vy8Mno1dfVIoptE45uF4wVR4ctRTLGkop5BC2fB6r +Kw/hkkwaLZUUDh5LUvS/JweVkyl2n+soVE41L34tuB34nMuSztVTWO/0RL/z +jywEjrY0iTZQaOvWsLD4ThbU+5dlbJ/Q/XJ7vHoaLwuv3tjNjj6lcEoKy8U2 +yMJYxfao6WYK15xmL/22vA0EApturemi31s0N95YKwOHHcRTq2mDxTr30iFp +iDkSdMHlLYWfo4v8RhukYU52u2vXOwp9hx2edwZLw9v/kuXzeun9cm6uyJqX +gkv69rUaffT5sLa37/mzFZjE13WGfaVw6DMvqw+PJChtOv505zcKuZq/OrnO +SYDb4oPKr7Rf/NbnjPkgAZ/fuaYcnqDQJyQsQiZXAh7FvrUSn6Jwb+w5ARE5 +CfCazRtrmKVwl87U17gjFBQNLvd6/6JQL7doe8UeCoZembZs/U1hmhDbhiUR +CgxvsxXHz1HoWZPT8uMrCduOeXnaLFCob+3G5xRGgt3BdjueRQqHQdUj1YGE +9N2SJs205/Zf4/2iTwIL90cluWX6f5hcyhsTIAGZdkoN046ISVNNWUWC/+Rl +gdQVCs1fd4bZfyGg9MMXNr2/FLbfstczeU3AaJPG8l/aKmMaPnb3Cfgf+LcR +xA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hc4V+8bB3Athb6Zkc3nnEPoK6QUct9WUUgku0TZyZ7JlmhIdmYSKWSl +IqRBRoVCy/oaFSIpmf3O769zva5znet5P+/7OY+47RmjU6uZmJjEVzEx/f+p +6B64jolJCFexSb6yrZiAm6vmMtVXCWH3TBP7rbIJ4LnmtStitRCmV5cEfSmd +gJ9Vrg7M64SwoJu1w/nuBJQvHnu5kVUIE1cknE7lT4Dcec1L/DxC+Pqv5AaF +lAmQydq4ecdWISSur2mRCJwARlsWaW8ohBkji8mueyeglTU46kqBEAo9fVj3 +9+44zLMPK8/8EcLAssItqpvHgXvkslqtjjDed+3NPHbmG3zJ+Bmhmy2Mzm8b +JPgLvoKG4KAwx7QwjvfxmlK9X8D0bMx82n4R7BQe/3hwcAzMi72IuEwR/FDt +UP+xZxQGbo7lVk2KoM5FC6Hp1hFghGy2zdMSxfAUG459icPwVbTNtyVJFD+O +SjaIHf8PMuJfvDcbEcV7yY4Z+8WHYJ3nXngnLIbGniZ/FWsGYGXlY43APjF8 +uWqXJO/LPjAJNn3/xEMM09I4f157/xFu/DebmZEhhlOTiwZSC70gX9y9MfGZ +GJ65wOl426wbRByThCanxDC0NUowJ7kL9KNTu223iOMidJ36SnTAhyR/eWUt +cdw1kHzwH6N2sL4UuEP7jDg2bOTaw/axGRhfGvpdU8Tx1vz7xJHNz0FbcXjb +70ZxLAy+aeHn+QSK/jtIZoyL40Lzen6RmVpgDnrX6MPNQJUxjhKOoWqoX6O6 +ukyNgedqDxlX7qgAt9KhE0bAQHYvybo6ogJELC88+Um73dF2qou7As6Vd4fu +UmfgUolRoshsOaid8Phbo8nACy49nopV5VBXd2vphQ4Dt47YdBzbUw6PAzjn +Phkx8OKCChmvWwY1U6PjGxwY2Foa8r2foxTk2Dk7q2lL8VzuePezBG7Jqjyw +d2TgC9LZfai7BOJPX4l85sTA92ECFZBZAvbjSsKhrgzc/vwhM4tMCXCNxRjM +eTAwaotseduBYnDsky4bOcvA78VtLC/S7wBPu5tvYwID67YK3h4PKAQp750y +btcYGN7inH3DthDUBJf6+RMZmGVSVuB6sBCcnC7oeiQx0Fla68ke4UKoW3dT +SCyVgR3DEX33nxSAo9r7xuBMOo/MpZ8KmwqgtlSTfU8hA00ldmsPV+aDXcKW +wtLHDPz9wS/78a48YD4Y8/pQHQO3CQSXU1QeFK7583uK9oeOrtnr3Hkw4d2j +LdfAwB3qesPl0zfA1zT5v3uNdJ4H5f4X7tyAGCEe0fImBlp7ir7pIG7A3Vvs +yZUdDFQe0jydIJILvx4xRz4cYaBv6pvVX32ywGpsXt5hlIHGpf5H+o9mwTPu +yX6eMXq+SVV/fyhlQaJrl4r7FwZarXJid13IBAWRnJ8S4/T6Mh1t90IzwT1s +j13iNAOXhwdvOCdkwMR+V40ziwzsWnCM5mhJh+G3HUwUJ4E+c2fvNkWlwHsu +N/Em2kfnnw13u6XAK0NWDScuAnO9+kIWTFOguk0jopibwLcW93PPSadA7LOK +dbt4CWy6PDDu/yYZ5CqTWPcLEqjwjMVjq1gyBF8z53GiCHx6y9+b7VUi8BoN +ShbvIVB0X6ZWjU0CFPEJ8OkpE9gr3c5oM0gA+GzEPE7b/Wz11knVBHB0fDa8 +VZVAJsPTAcf5E6DmXEHuTTUCl9OfvF7TdRVs7pwWzNAkcO4kuyfqXoWitQub +4vQJ7MpIY1NUjwe1FoUVKQMC+yRZ1ivIx0PXFZfJZtpiPJvy1cTjYUngcyuz +IYGN+szpEavi4ZB8Q0y4Ed2H0YyGb9QVmLWOXh1oSiDv1CRv8ZXLoFbN9dvx +BIHtlefr+x5chNTpVy6bbQnUkZkq+5Z2EWak4gaf0J5PWnq+Oegi3MpY0y5w +ksBNxhrDzXsvAnv4bF6bPYGdtv/+zn4WBwN63YflXAl8LCF8bb4nFsKG0orn +fAk88T20MJvnAnwSPErc9CNQY4ArznI+BnaZcKUZ+hN4umVIdUdfDHxrio28 +HUD3z9FeuLMwBoyKgywtzxL4JqixP2JvDDD8rVnqw+g+mPp/bT99Hp79I34q ++iKBA0LCvYIDUXDHLFpf8hKBPSTn7tqXUZCQN76zmXZkbKC0Z0UU2Oy5z8x6 +hcCIsoQgkfNRsHzyYOGlqwQ6ZzE/890eBbtqfcYTkwm0KBpr3BwZCYXOLR55 +OQS+uMjRcVk1Aq5UbbfQyqXzSr/iq9saAb5MSRojtN+/Vyhj2hwBWsnHuSXz +CNw5YZZSPxkOg09mK4vy6b4sy4wZOeEgwC/6p6yIwAM591pcN4TDxSavcw2V +dP9ZbXI3RkNhd7TVpFsV3edaPSqvKxRGtLSthO/T+YQCTj5oCAW1Rl7lwGoC +/7tj7SV6PRR+1D78teMRgcFrfIo+G4bC0fK/rgX1BIo4xrznCg0B0cw4y8st +BIZyd3IrmAdDm6V3i2orgQW7dmxcUgoGfwHrPeO0rUdK+r/yBkNniiyfTjuB +IWMzMXLvzkJkQkfnqjcEBpUdXm1vfBa+nOc74POOwAyLm4NGR4Og3DNvt9UA +gTV6cczaPgEwobFT4C/t3u/Sg/IWAUBxNy3mDhI4tpitrwwBkFrxrW5siMAb +j/O8MlkCIGRWXttrhMDs5BXhomx/0PNtOBz7jUCuo2/CXrzxg9GAz84PZun5 +e+6MtdrnC2IHzuhZ/iLQIJA1J1bWF8wFVsmu0E6J79zWwesLbY/IH5pzBI4r +aOkXjPlAxaKL3+t5ArcE7BPyifWB0OCFiNEVAh8+TG8Of+sNAmF8mTwsJHa8 +PMDyMsALZnu19StpZ++Rf65xygva5byXjVlJtLaNONph6AWhA2+sr7GRuBg1 +cXvbVi8YhVgRrk0kBp3lGX/f4wnlK0vZ7Nwkps+yNS8re4Lu2aEbrMIkinP4 +fhph9wDGWw7jItqebNN/3y67w5IMrDkgQmLJ3oCM7nF3KPl43e6CKImpeifn +OZrdgUfFhNzAIDFrrMzIJswdBuab8tdJkqgrPeRa+f0M+PsVFzLJk3gRTv2I +HjgNfJrH+4tpx5t0bOOsOw33N3HyWirQ+SXch55cPw2z+d4RVTtIVJEz5082 +PQ3ub1WOOe8i0cJwXnddhys4yLdwv1UhUYf7356PLS5wdHz0XME+EkV//Qy0 +eO8Ev+6nVh3ZT2Lc9sGvDjVOkBh+YGKVDon3R1zWpmQ6QSd/ibmVLolblOXu +mts6gYGOjyKnHonG7DyfXScdQTt/zbfAw3Q+J/eJOyyOoHhczMTAisTXJSRH +prk92KgGrUzRvri/vtxU3R4u8ncXXLUm8cOPxTkZKXsY7opbeHuMxBaP3tXi +86cgUWcu2/IEiWmTXQeU00/BrPyrb472dH91gv7cgyehYu3Z0Ah3EhsXOWoq +Qu2gb7BbivIgkeOBqYGnix2w1st3vaAtk/bbe/9RO7ANGKNYvUjk2qEttnOb +HXB9N2qN9yFR75WEu+B7W/DskeLNCiSR9dKgJpOSLSgU9dx5EEmi9HGnC1dX +nwByseqjQxSJyNa/0fm7DWzWS2TjiybxZ3HagPkHG/gzaejic57EvAURzpBy +G6iTb5FWiCXReaPQi092NqD7sPb2nSv0fCcMirKSjoNNc25BVjp9Pm+qCbYc +tgYj/tAe/esk6s/fTP0uaw2azsfWL9O+s8k2S2WjNUhsFHSwzCSxUHLtJYMm +K5g4lCixJYdES85TG4zBCvx6ovOv5pN4PcQou3SXJVwedcmLvEfieuez7LHq +5iBaP5orV0biU01x+TnCHO6lnMj5RLv13AaMZjaHLh3TTMUKElP6111haTOD +LXc0UoarSLzmofwpx8wMbpzhj9OqIXFyZ+P6GT9TqP7zwnPtCxLD+0kB6pUJ +6HSoe9yjnc+yvu1CpQl8uF17xqqJRO5Den/ZrpvAkkW5a2UziY98xewdHU1A +43Gm/clWEufOBOUGrzWBtjBvi2dvSDx5avrmsvoRGGBlaER+JNHm2czZgA4j +WJnVriA/kbjH+I98e60RCPU7kc9pp+9LUlIqNALzijJm5j4Sm9inuvVDjKDT +Ur31/ACJIQPVH8NljeD5XZsjcSMkbhO0/T0XfxiKDLLtE6ZIjBJ0/uR5yhCa +dz/tUZgm0fxb05+TxoYwxhjT6aJt1dye56xuCOScrAzPDP39oq7xPWFDyMyu +m0qaJdE3v7ZKu+QQxE9/9k+bJ9Hh0bt26roB+CQIxeWsoTD7ZdNrmXg9MJt+ +Gm6wlkKDd4O8TG56oGrgErhEm/382tylg3qwlvWRkxkzhdxRms9Pb9CDxDBT +HQ4WCp8vzerIRByEcveEdaGbKPxgIfN4POQAfDfYEHqcn8Ltuj/cDZN0oPNu +qd8/AhQGVeUI9PjpwH1W0zM1tLUFtTNCLXQg+EX+MT4hCt06bKNVxHRgo5rm +3tciFM5jUKpe8X6Q/vfcghpJ4WXvm+YP2/eBA9ust8h2Cvex/j5SIaENvYFa +/Q20n4vJ753fpA063xJ17eQovKi94Gw+pwXSL3eKFMrTdjlAOTZrwfdovyZ5 +RQoPv/y5XOOiBd6rF/m191CYxVn1hazWhPD5VfUumhT+nJF6p2ajAT8djaQ2 +aVF4UqTBPvWgBpzsvXHtHu1FH7eRDUoaoF2t6fhLm7Ye7pPdpAEbfKI4Q3Qo +XB1YMXD+sTpcmd5wMkGfQlOuFeqEmDpkjLGzPDSlcHpvvcg/EwDFfUvqZmYU +1nS1sXc1A9S9+xo4RxuNvrvX5wP0P306sdOCQpe5qj5WGwBGjt+bcisKcxaq +ph261aDArD/l7gkK4y20a/la9kL5yxKJHBcKz8VU9Kq2qUBjw/Xj4Eqh96gA +f2SxCnRVx6T20U7NrJiZuKxC38+2rMJuFL6RXBlgGKmAUjjv9zR3Cre69dcJ +flCGWuVzVdd8KLzfFpnLmN4DTXf0tc6HUHjQe+F80o7dkMVbt0YxlMLIVb2X +zvPuBu8w2acDtE2KzEUy5pVAzJRdQzmcwnDjW3u3NSiB/+oOmIykMHhmLc+w +gRJImR9RMY6lUFNz+fYVz10Qx2ypIJpEoYN7QX9rhyLYerT+aKUtp8Kt9uyB +Iuz+pFLmn0zhvwHRbh+yFWG4TEiuM4XCr3wRD4+7KYKqdd+/UekUKgilb2vZ +qAiTFSekxrPp9Qz2ljId2gGHTjiKVRdR2HrGR++fL/JQ/jnMyOwOhbWblXZO +dckDr8X1yHnavDP3zo/Vy8Mno1dfVIoptE45uF4wVR4ctRTLGkop5BC2fB6r +Kw/hkkwaLZUUDh5LUvS/JweVkyl2n+soVE41L34tuB34nMuSztVTWO/0RL/z +jywEjrY0iTZQaOvWsLD4ThbU+5dlbJ/Q/XJ7vHoaLwuv3tjNjj6lcEoKy8U2 +yMJYxfao6WYK15xmL/22vA0EApturemi31s0N95YKwOHHcRTq2mDxTr30iFp +iDkSdMHlLYWfo4v8RhukYU52u2vXOwp9hx2edwZLw9v/kuXzeun9cm6uyJqX +gkv69rUaffT5sLa37/mzFZjE13WGfaVw6DMvqw+PJChtOv505zcKuZq/OrnO +SYDb4oPKr7Rf/NbnjPkgAZ/fuaYcnqDQJyQsQiZXAh7FvrUSn6Jwb+w5ARE5 +CfCazRtrmKVwl87U17gjFBQNLvd6/6JQL7doe8UeCoZembZs/U1hmhDbhiUR +CgxvsxXHz1HoWZPT8uMrCduOeXnaLFCob+3G5xRGgt3BdjueRQqHQdUj1YGE +9N2SJs205/Zf4/2iTwIL90cluWX6f5hcyhsTIAGZdkoN046ISVNNWUWC/+Rl +gdQVCs1fd4bZfyGg9MMXNr2/FLbfstczeU3AaJPG8l/aKmMaPnb3Cfgf+LcR +xA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 11}, {0., 0.8968976999679797}}, + "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" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 11}, {0., 0.8968976999679797}}, + "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" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hc4V+8bB3Athb6Zkc3nnEPoK6QUct9WUUgku0TZyZ7JlmhIdmYSKWSl +IqRBRoVCy/oaFSIpmf3O769zva5znet5P+/7OY+47RmjU6uZmJjEVzEx/f+p +6B64jolJCFexSb6yrZiAm6vmMtVXCWH3TBP7rbIJ4LnmtStitRCmV5cEfSmd +gJ9Vrg7M64SwoJu1w/nuBJQvHnu5kVUIE1cknE7lT4Dcec1L/DxC+Pqv5AaF +lAmQydq4ecdWISSur2mRCJwARlsWaW8ohBkji8mueyeglTU46kqBEAo9fVj3 +9+44zLMPK8/8EcLAssItqpvHgXvkslqtjjDed+3NPHbmG3zJ+Bmhmy2Mzm8b +JPgLvoKG4KAwx7QwjvfxmlK9X8D0bMx82n4R7BQe/3hwcAzMi72IuEwR/FDt +UP+xZxQGbo7lVk2KoM5FC6Hp1hFghGy2zdMSxfAUG459icPwVbTNtyVJFD+O +SjaIHf8PMuJfvDcbEcV7yY4Z+8WHYJ3nXngnLIbGniZ/FWsGYGXlY43APjF8 +uWqXJO/LPjAJNn3/xEMM09I4f157/xFu/DebmZEhhlOTiwZSC70gX9y9MfGZ +GJ65wOl426wbRByThCanxDC0NUowJ7kL9KNTu223iOMidJ36SnTAhyR/eWUt +cdw1kHzwH6N2sL4UuEP7jDg2bOTaw/axGRhfGvpdU8Tx1vz7xJHNz0FbcXjb +70ZxLAy+aeHn+QSK/jtIZoyL40Lzen6RmVpgDnrX6MPNQJUxjhKOoWqoX6O6 +ukyNgedqDxlX7qgAt9KhE0bAQHYvybo6ogJELC88+Um73dF2qou7As6Vd4fu +UmfgUolRoshsOaid8Phbo8nACy49nopV5VBXd2vphQ4Dt47YdBzbUw6PAzjn +Phkx8OKCChmvWwY1U6PjGxwY2Foa8r2foxTk2Dk7q2lL8VzuePezBG7Jqjyw +d2TgC9LZfai7BOJPX4l85sTA92ECFZBZAvbjSsKhrgzc/vwhM4tMCXCNxRjM +eTAwaotseduBYnDsky4bOcvA78VtLC/S7wBPu5tvYwID67YK3h4PKAQp750y +btcYGN7inH3DthDUBJf6+RMZmGVSVuB6sBCcnC7oeiQx0Fla68ke4UKoW3dT +SCyVgR3DEX33nxSAo9r7xuBMOo/MpZ8KmwqgtlSTfU8hA00ldmsPV+aDXcKW +wtLHDPz9wS/78a48YD4Y8/pQHQO3CQSXU1QeFK7583uK9oeOrtnr3Hkw4d2j +LdfAwB3qesPl0zfA1zT5v3uNdJ4H5f4X7tyAGCEe0fImBlp7ir7pIG7A3Vvs +yZUdDFQe0jydIJILvx4xRz4cYaBv6pvVX32ywGpsXt5hlIHGpf5H+o9mwTPu +yX6eMXq+SVV/fyhlQaJrl4r7FwZarXJid13IBAWRnJ8S4/T6Mh1t90IzwT1s +j13iNAOXhwdvOCdkwMR+V40ziwzsWnCM5mhJh+G3HUwUJ4E+c2fvNkWlwHsu +N/Em2kfnnw13u6XAK0NWDScuAnO9+kIWTFOguk0jopibwLcW93PPSadA7LOK +dbt4CWy6PDDu/yYZ5CqTWPcLEqjwjMVjq1gyBF8z53GiCHx6y9+b7VUi8BoN +ShbvIVB0X6ZWjU0CFPEJ8OkpE9gr3c5oM0gA+GzEPE7b/Wz11knVBHB0fDa8 +VZVAJsPTAcf5E6DmXEHuTTUCl9OfvF7TdRVs7pwWzNAkcO4kuyfqXoWitQub +4vQJ7MpIY1NUjwe1FoUVKQMC+yRZ1ivIx0PXFZfJZtpiPJvy1cTjYUngcyuz +IYGN+szpEavi4ZB8Q0y4Ed2H0YyGb9QVmLWOXh1oSiDv1CRv8ZXLoFbN9dvx +BIHtlefr+x5chNTpVy6bbQnUkZkq+5Z2EWak4gaf0J5PWnq+Oegi3MpY0y5w +ksBNxhrDzXsvAnv4bF6bPYGdtv/+zn4WBwN63YflXAl8LCF8bb4nFsKG0orn +fAk88T20MJvnAnwSPErc9CNQY4ArznI+BnaZcKUZ+hN4umVIdUdfDHxrio28 +HUD3z9FeuLMwBoyKgywtzxL4JqixP2JvDDD8rVnqw+g+mPp/bT99Hp79I34q ++iKBA0LCvYIDUXDHLFpf8hKBPSTn7tqXUZCQN76zmXZkbKC0Z0UU2Oy5z8x6 +hcCIsoQgkfNRsHzyYOGlqwQ6ZzE/890eBbtqfcYTkwm0KBpr3BwZCYXOLR55 +OQS+uMjRcVk1Aq5UbbfQyqXzSr/iq9saAb5MSRojtN+/Vyhj2hwBWsnHuSXz +CNw5YZZSPxkOg09mK4vy6b4sy4wZOeEgwC/6p6yIwAM591pcN4TDxSavcw2V +dP9ZbXI3RkNhd7TVpFsV3edaPSqvKxRGtLSthO/T+YQCTj5oCAW1Rl7lwGoC +/7tj7SV6PRR+1D78teMRgcFrfIo+G4bC0fK/rgX1BIo4xrznCg0B0cw4y8st +BIZyd3IrmAdDm6V3i2orgQW7dmxcUgoGfwHrPeO0rUdK+r/yBkNniiyfTjuB +IWMzMXLvzkJkQkfnqjcEBpUdXm1vfBa+nOc74POOwAyLm4NGR4Og3DNvt9UA +gTV6cczaPgEwobFT4C/t3u/Sg/IWAUBxNy3mDhI4tpitrwwBkFrxrW5siMAb +j/O8MlkCIGRWXttrhMDs5BXhomx/0PNtOBz7jUCuo2/CXrzxg9GAz84PZun5 +e+6MtdrnC2IHzuhZ/iLQIJA1J1bWF8wFVsmu0E6J79zWwesLbY/IH5pzBI4r +aOkXjPlAxaKL3+t5ArcE7BPyifWB0OCFiNEVAh8+TG8Of+sNAmF8mTwsJHa8 +PMDyMsALZnu19StpZ++Rf65xygva5byXjVlJtLaNONph6AWhA2+sr7GRuBg1 +cXvbVi8YhVgRrk0kBp3lGX/f4wnlK0vZ7Nwkps+yNS8re4Lu2aEbrMIkinP4 +fhph9wDGWw7jItqebNN/3y67w5IMrDkgQmLJ3oCM7nF3KPl43e6CKImpeifn +OZrdgUfFhNzAIDFrrMzIJswdBuab8tdJkqgrPeRa+f0M+PsVFzLJk3gRTv2I +HjgNfJrH+4tpx5t0bOOsOw33N3HyWirQ+SXch55cPw2z+d4RVTtIVJEz5082 +PQ3ub1WOOe8i0cJwXnddhys4yLdwv1UhUYf7356PLS5wdHz0XME+EkV//Qy0 +eO8Ev+6nVh3ZT2Lc9sGvDjVOkBh+YGKVDon3R1zWpmQ6QSd/ibmVLolblOXu +mts6gYGOjyKnHonG7DyfXScdQTt/zbfAw3Q+J/eJOyyOoHhczMTAisTXJSRH +prk92KgGrUzRvri/vtxU3R4u8ncXXLUm8cOPxTkZKXsY7opbeHuMxBaP3tXi +86cgUWcu2/IEiWmTXQeU00/BrPyrb472dH91gv7cgyehYu3Z0Ah3EhsXOWoq +Qu2gb7BbivIgkeOBqYGnix2w1st3vaAtk/bbe/9RO7ANGKNYvUjk2qEttnOb +HXB9N2qN9yFR75WEu+B7W/DskeLNCiSR9dKgJpOSLSgU9dx5EEmi9HGnC1dX +nwByseqjQxSJyNa/0fm7DWzWS2TjiybxZ3HagPkHG/gzaejic57EvAURzpBy +G6iTb5FWiCXReaPQi092NqD7sPb2nSv0fCcMirKSjoNNc25BVjp9Pm+qCbYc +tgYj/tAe/esk6s/fTP0uaw2azsfWL9O+s8k2S2WjNUhsFHSwzCSxUHLtJYMm +K5g4lCixJYdES85TG4zBCvx6ovOv5pN4PcQou3SXJVwedcmLvEfieuez7LHq +5iBaP5orV0biU01x+TnCHO6lnMj5RLv13AaMZjaHLh3TTMUKElP6111haTOD +LXc0UoarSLzmofwpx8wMbpzhj9OqIXFyZ+P6GT9TqP7zwnPtCxLD+0kB6pUJ +6HSoe9yjnc+yvu1CpQl8uF17xqqJRO5Den/ZrpvAkkW5a2UziY98xewdHU1A +43Gm/clWEufOBOUGrzWBtjBvi2dvSDx5avrmsvoRGGBlaER+JNHm2czZgA4j +WJnVriA/kbjH+I98e60RCPU7kc9pp+9LUlIqNALzijJm5j4Sm9inuvVDjKDT +Ur31/ACJIQPVH8NljeD5XZsjcSMkbhO0/T0XfxiKDLLtE6ZIjBJ0/uR5yhCa +dz/tUZgm0fxb05+TxoYwxhjT6aJt1dye56xuCOScrAzPDP39oq7xPWFDyMyu +m0qaJdE3v7ZKu+QQxE9/9k+bJ9Hh0bt26roB+CQIxeWsoTD7ZdNrmXg9MJt+ +Gm6wlkKDd4O8TG56oGrgErhEm/382tylg3qwlvWRkxkzhdxRms9Pb9CDxDBT +HQ4WCp8vzerIRByEcveEdaGbKPxgIfN4POQAfDfYEHqcn8Ltuj/cDZN0oPNu +qd8/AhQGVeUI9PjpwH1W0zM1tLUFtTNCLXQg+EX+MT4hCt06bKNVxHRgo5rm +3tciFM5jUKpe8X6Q/vfcghpJ4WXvm+YP2/eBA9ust8h2Cvex/j5SIaENvYFa +/Q20n4vJ753fpA063xJ17eQovKi94Gw+pwXSL3eKFMrTdjlAOTZrwfdovyZ5 +RQoPv/y5XOOiBd6rF/m191CYxVn1hazWhPD5VfUumhT+nJF6p2ajAT8djaQ2 +aVF4UqTBPvWgBpzsvXHtHu1FH7eRDUoaoF2t6fhLm7Ye7pPdpAEbfKI4Q3Qo +XB1YMXD+sTpcmd5wMkGfQlOuFeqEmDpkjLGzPDSlcHpvvcg/EwDFfUvqZmYU +1nS1sXc1A9S9+xo4RxuNvrvX5wP0P306sdOCQpe5qj5WGwBGjt+bcisKcxaq +ph261aDArD/l7gkK4y20a/la9kL5yxKJHBcKz8VU9Kq2qUBjw/Xj4Eqh96gA +f2SxCnRVx6T20U7NrJiZuKxC38+2rMJuFL6RXBlgGKmAUjjv9zR3Cre69dcJ +flCGWuVzVdd8KLzfFpnLmN4DTXf0tc6HUHjQe+F80o7dkMVbt0YxlMLIVb2X +zvPuBu8w2acDtE2KzEUy5pVAzJRdQzmcwnDjW3u3NSiB/+oOmIykMHhmLc+w +gRJImR9RMY6lUFNz+fYVz10Qx2ypIJpEoYN7QX9rhyLYerT+aKUtp8Kt9uyB +Iuz+pFLmn0zhvwHRbh+yFWG4TEiuM4XCr3wRD4+7KYKqdd+/UekUKgilb2vZ +qAiTFSekxrPp9Qz2ljId2gGHTjiKVRdR2HrGR++fL/JQ/jnMyOwOhbWblXZO +dckDr8X1yHnavDP3zo/Vy8Mno1dfVIoptE45uF4wVR4ctRTLGkop5BC2fB6r +Kw/hkkwaLZUUDh5LUvS/JweVkyl2n+soVE41L34tuB34nMuSztVTWO/0RL/z +jywEjrY0iTZQaOvWsLD4ThbU+5dlbJ/Q/XJ7vHoaLwuv3tjNjj6lcEoKy8U2 +yMJYxfao6WYK15xmL/22vA0EApturemi31s0N95YKwOHHcRTq2mDxTr30iFp +iDkSdMHlLYWfo4v8RhukYU52u2vXOwp9hx2edwZLw9v/kuXzeun9cm6uyJqX +gkv69rUaffT5sLa37/mzFZjE13WGfaVw6DMvqw+PJChtOv505zcKuZq/OrnO +SYDb4oPKr7Rf/NbnjPkgAZ/fuaYcnqDQJyQsQiZXAh7FvrUSn6Jwb+w5ARE5 +CfCazRtrmKVwl87U17gjFBQNLvd6/6JQL7doe8UeCoZembZs/U1hmhDbhiUR +CgxvsxXHz1HoWZPT8uMrCduOeXnaLFCob+3G5xRGgt3BdjueRQqHQdUj1YGE +9N2SJs205/Zf4/2iTwIL90cluWX6f5hcyhsTIAGZdkoN046ISVNNWUWC/+Rl +gdQVCs1fd4bZfyGg9MMXNr2/FLbfstczeU3AaJPG8l/aKmMaPnb3Cfgf+LcR +xA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 11}, {0., 0.8968976999679797}}, + "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" -> {}, "GCFlag" -> 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.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, 11}, {0., 0.8968976999679797}}, + 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.992078102297554*^9, + 3.9920781586898117`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"ccc64668-100a-5841-9412-e97c96d71d44"] +}, 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", ",", "11", ",", "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", ",", "11", ",", "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.992078168397648*^9, + 3.9920781698782787`*^9}}, + CellLabel->"In[87]:=",ExpressionUUID->"3257ca40-3a72-6e47-a18b-de875465760b"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\",\\\", \ +RowBox[{RowBox[{\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\ +\"-\\\", FractionBox[RowBox[{\\\"0.05780000000000001`\\\", \\\" \\\", \ +SuperscriptBox[\\\"2.718281828459045`\\\", RowBox[{\\\"1.`\\\", \\\" \\\", \ +RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]], \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"7.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"-\\\", \ +RowBox[{\\\"1.`\\\", \\\" \\\", \\\"R1\\\"}]}], \\\")\\\"}]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"3\\\"]]}], \\\"-\\\", RowBox[{\\\"1.2`\\\", \ +\\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{RowBox[{\\\"-\\\", \ +\\\"0.03325084962819049`\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \ +\\\", \\\"R1\\\"}], \\\"+\\\", RowBox[{\\\"0.09975254888457147`\\\", \\\" \ +\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"-\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.16547021123378178`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"5\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[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.03325084962819049`\\\", \ +\\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.16547021123378178`\\\", \\\" \\\", 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[{\\\"168404.7432096178`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"39\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ +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, 87, 14, 24488269323719620004, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991964272641367*^9, 3.991965207078659*^9, + 3.992078174058605*^9}, + CellLabel-> + "During evaluation of \ +In[87]:=",ExpressionUUID->"4c70003b-d56f-a44f-952a-01dc032ac2bf"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "\[Rule]", "1.5401500993780664`"}], ",", + RowBox[{"bb0", "\[Rule]", "1.444036948153865`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991964272691372*^9, 3.99196520714266*^9, + 3.9920781741186047`*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"8088fb25-11d5-474f-8154-1150c1e3d645"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "2.100"}]], "Input", + CellChangeTimes->{{3.991964278686388*^9, 3.9919642789396744`*^9}, + 3.991965211114523*^9, 3.9920781792274055`*^9, 3.9920782325696163`*^9, { + 3.9920782893194523`*^9, 3.9920782913434505`*^9}, 3.99207832135236*^9, + 3.992078372348366*^9, {3.9920784153861847`*^9, 3.992078420726963*^9}, + 3.9920784547363358`*^9, {3.9920786576555004`*^9, 3.992078666399088*^9}, + 3.9920786982162323`*^9}, + CellLabel-> + "In[168]:=",ExpressionUUID->"9f308f97-daac-744c-bae7-d3560fa4471f"], + +Cell[BoxData["2.1`"], "Output", + CellChangeTimes->{ + 3.991964280066925*^9, 3.991965218521267*^9, 3.9920781898065643`*^9, + 3.9920782459386597`*^9, {3.9920782955964584`*^9, 3.9920783249456387`*^9}, + 3.992078377056034*^9, 3.9920784247704086`*^9, 3.992078458336664*^9, + 3.9920785064960346`*^9, {3.9920786610130386`*^9, 3.992078670542509*^9}, + 3.9920787028912697`*^9}, + CellLabel-> + "Out[168]=",ExpressionUUID->"e93d7a9d-61b2-6944-9614-42e99bbbb076"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"bb0", "=", "1.164"}]], "Input", + CellChangeTimes->{{3.991964284161188*^9, 3.9919642845938396`*^9}, { + 3.9919652166473465`*^9, 3.991965216788891*^9}, 3.9920781838492756`*^9, { + 3.992078221427412*^9, 3.9920782305714703`*^9}, {3.992078310206625*^9, + 3.992078368593624*^9}, {3.992078435439228*^9, 3.992078465266489*^9}, { + 3.992078531635874*^9, 3.9920785926105404`*^9}, 3.9920786475372868`*^9}, + CellLabel-> + "In[169]:=",ExpressionUUID->"1523f3ed-56c9-e442-bf6a-8b0d193db26f"], + +Cell[BoxData["1.164`"], "Output", + CellChangeTimes->{ + 3.991964285066065*^9, 3.9919652203929043`*^9, 3.9920781898469105`*^9, { + 3.992078226282812*^9, 3.992078246008318*^9}, {3.992078295629511*^9, + 3.9920783770860634`*^9}, {3.9920784248034267`*^9, 3.992078458369169*^9}, { + 3.9920785065292473`*^9, 3.9920786028757687`*^9}, {3.992078651503311*^9, + 3.9920786705739326`*^9}, 3.9920787029234257`*^9}, + CellLabel-> + "Out[169]=",ExpressionUUID->"8accd57d-0c27-b44a-b094-ceb92ec9ea8a"] +}, 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[170]:=",ExpressionUUID->"cab747ed-cb84-7e4e-ba84-e0de4bae2e79"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVV3c8Vu8bNt7zpmW/57V5l5UvGS199dwhihYqK1qy0rLLLPqWhuxkRLKb +NmVTyAjZK/QmIckW8ju/v87n/jz3ue9znue67ut6aGcvG5/n4uDgsObk4Pj/ +86Ru1HoODn6oW3He8LFuBv37jVKefZ8f7HZ0cGcUzCF2a4zCbpYA3ErJt0gU +WkSz4nzf03IEgOzV8C3C9w8a5r9+8QAShD/9plN+3KvokfFYanmHIOjwZEcd +bl9Deb8OaEjYCEEm226CqskJsd2vXA+tCsEfhptNdwQXWF/e4JsTLgzt/x3r +a6zhhrunj/euSlPAzYR+I76IBD5PUsYlCylwsDjNvt4fg+4d347Q9XD4u/BL +7s0sBoI+4j6WLTjIlTuZP5ckgxCfqZWjPRUqevkdzecw8F65EWo1RwWv/PhI +5RsYvNye7SkbLAKiiR1R3jkkKJbolmcyRYEeI1ExkcQN6ta/lMhvRCEcm3xj +f5ULnCc2sEv0xcAwOMQ3fYUDRDsov8zbxcBKR+X0W741dGeT7Mv6S+LwYq/8 +x6FPy6h9UknDGZOAT0NjDKekRXRXicG3GioBclarSZur5tC6Aql4K0VJMK7a +vGeweRpNxK33SyqUBIx25dBb3Sn0WnlcQUJXCsLT1Md7lsbRrs2tty/0SkHw +0ReirXe/IyX99F0J9tKQbH6AzcX+imZG9h5p45CBAFbRc4bzIEIcW2xnDGWg +xgpX4BbrRahmYxopTAYKkh9YbvXrQM80LldwDMgAae8T5b/6rejdkY/YLyYN +eLWa4uyXG1FleeIrD0ca7DMyvHExshYpdS1tHc+jgeSOOZeTJVXIMN6g/+gK +DewtC169XFeOmnikzj3dT4eZ06+1/PyKEEb/Ich+SIfoDxyHOO7koi2hKnIV +7XRIr/zUtiXkDcpNXRQOojEgsu6EvpxyJpp2KFLSsWeA+MjhtKmlZBT+eUVy +NJcBcRxybac8EhEj/J2LHAcTdr81HOwef4zsOJxnzPSYYNtupuyaG4H4hJ8f +dAtjwmZZUfUWjRDk1N77KaCbCRfLc6/OVwShgonbBUrSLPg572MzeTcQ2Wbm +e5Y7suAFl/RsMK8/qqP0n9PLYoHshSmFWL9rqLVfY3ltjQVPtbxOtmW5oAbh +DhtzPX4ouZT4s6JwFs1+f/2iq1sYjAYaO8b1SBDo5/N1sxMFdnsHN2jKYrDl +wntJmTUKpC1H/CqtwsDdwn+k9B4OyXrHYp0FySCot+vnsAQVAkQEjkYIk6H2 +ltPC11dUeEc5WRlQjUGEqBhWuVcEdLqqDiowMcjNeH+U1S0C6dgPcyV1Enhq +sRUpjqJgVD7GF8HHDb99tHK5CmWgqtl2UdWwDalUxn314KRBi+KnLN2QZrTn +zjaLHH0aXDF5MuSkUI88DjZeVg2hgcCHm8KaGz6gYk36OqluGmTMR0TF1leg +TSYaMtfodBjfca7UNqYYOUZyv9N2osPwtbzZXV/zUbT5pvjWbDoMeuS8Zjln +oylxYamUZTqEKv0pUnV7iUx4umVGdBmw4dix5TtX0lCllGVKZDADfo5kzg5H +JSFL9b7a2z0MuGZdsV9hVzx6XxelDgwmBGq/zIjb8gjtvssrY+fEhLL1+u7K +xmGo1FUneCWPCVYCm/K6vt1HgkNZOmYrTDjheDT0FOdtFGwoHT2vy4Ko+Kch +Mwo3kcjggUvcwSx49Qm7pPnEGzUt3VF51sWC/iTRA6cc3FGE0vYCJQY/wR9Q +BjSLMrZYUT7kC8OXdcXhLTwkWHfF4QumR4G5AJ8CoWkStAXmkRJ6KXCd/eW7 +ezIG8nVqsVP2OCweUeTvw8gQdkZxm/QCDl2qm4RHxMlw6eMZxbR7VFD7zdi8 +/wsGPBsP1z8UF4F10VKT245jsHXqHTslRwTO2qPfTm4kEHs5kCGhLwrJT9Y5 +5lhwQ3RS8kvuFBn4bZF5n23djhyWbxkX/5IBL58YZxO7FrQyvqZitJ0Gi032 +187ebUBx5B0Pj/nQ4Bjpa0+Ofg1yXc8bF1hDnHe0W1FAaSVS8iz7a8NHh9E2 +v07hA6VI4hM/n7MFwcf22s/d8oWoqeSPqeVTOkjd6Eb73XNQcMdTes4oHW5h +S7GPtF6jwM7RmB3qDHgT+Gsv6UM6stDd4ODkxYCFgZMSfmXPkEeA00xBDQPU +am/ybiUnIFfljM85AkwIaDBWlrgZjYz2la8/bc6Eel7XTerXw5GtrsfPnclE +rG9Rh8cGI9T7Yf3kGBO2tbO12aZ3ED3uc5qAGgvYG8cddxoFILTPf+aMNwtO +iORlzh31RQ3rcupmq1lg5JB6auS7B0LJXLrjK4R+TETHjN0gAcfD0O+UMArE +hVTU9RP7fdOofftTOg7PgwW9bw1gUD3eqPrgFQ49/VG158WI81Pcn5KqTQWT +T97ahevIQN/rUS3TSoUvWc3PpVIwkJEf2TNrJwIU2PxRdZIEU9eFfiQnsGDn +nOuTe9xeqHncOtJoggUpQrbpvlxuyHOn7ekoAX6IwEsHuUizKLAxp+7fFGFY +xMfyM0a5Yb/9qX5OdQoMT/vynuogQXroP54DdRQwPv4rfEs4Bv4c992CTHF4 +/N2/snMVA+NfdHMtNg6pynka1wl9K3fqq+K5ToXsu3OU0TEMKrntX7nziECZ +bpxc5wUMLgkVKI8kisAOqNr8N4IE42xLh8RtorA14WGfih83TGiYKQbGykBW +S8+3Kz/bETn6T9DAiAykGtQpXuloQX2S38QS/6GBSz6GeqARvf46LjXiQoOd +q7JNPhM1qHkqYKSglAYXJJKEHP+tQsUbsMkejA7ZomrK6gplaO4CtSjIiA71 +0vv011oK0divq3kJ0QS+Dv5wtFvNQX05o0zNL3SwfvlJrp7yBkmUTZmeVmSA +W8DOriyPDCTbOfSx8yoDyCu7rS5aJKNbz3N5jpYywDIoHibnE1DD6exnP3mY +AJMKWIDGY9RHf+zbd4QJt+2aJJeFI5CmkoCkaSwTMg9YZEv4PUQnzFomdg4z +4ciU4HPHDUHIqfqlSoI8C64luWfnjAegVg/x7aEuLJAKtzn9Xt0PfeStjZJ8 +xwKNVy0ZN954IjE988Uz48LwftqwqMWGBNq3b38T8KNAiUHyUsIeDE5YH8oc +5MchwKOMltuCgSRDbpNsPA4Jn4+bcVLJYFwIddUqVBhqlNbs5CWD29ffVjfL +qRAzb7PeJg+DHhkOeu8xEfjsp6JUux6DwJevtrRFseCs0sz7+UYv9Gna5ez1 +YRYE763IFshxQxyeWqGnflLgZJXM0YxcDD6FdpebXsfhY03DwttNZGj9rCrA +uYEKZRevlE6KkEFc/nvIvngqpCUW7PJqxeCVrlXVGQ0cnm1V/KRC4OdCrqvp +bBkOHos+lU8kiPfjjty4c5wKz/9oBexcw6CFfaBWfp4Fr5c39nmauiLHPX81 +6nn4ITWtv/n9yAy6KvWF4RknDNCoNmzUxQ0ONhZ9fgoE/7C9LtK1JBCM/qH6 +t5wCW7Na2yXvYqAUVzjcfhgHoeIlTfslDNS2S19o6MHB4EWmdBmB77GSxyG7 +rlKhSb0rW28KA2mOOemxv1RgJs6ffuGOAW9Krsl/j0TA1Cd03elkYj77ix0Y +VhKF1HvGibKh3ID/zbKvjpKBwXvPr/zY1oGOjeSmXB6WAd7DA1ajvK2oId80 +RF+BBhXDPlfj4xvRTuMPI8qXaVDLH/TwMtQiX3bpPaO3NLDyGqrw965CpLa0 +bxROOkR0iX8IiC1DZ9+KBVMO0WG6JNVcTb4ILd75h703gg62e3ktdLRzUSB9 +U6pPDx14paQnHhi/QaPZrvmzLAbQErpeGLVmoPuJjV6bLzJAa5jDMiYjGd0v +MxOKK2LAvQzp/MWdiWhxKf/eXRITZpH/qeCHj1FSKFYkZsiEasYNS2mbCMSU +GdAYiSLmq+iu4vszD9FQ1AnrgX4myGsfzH9wPgiFdcXMfGOwgJP8uz9fMxBJ +CDh0yl9mQePwi4T4ND9kEGa8qppP4H2x4/Ru6jW07lGgcfywMJRYqKxbPE6C +cwE32Q/dKCCU9WQ8VA2DcgKmHDw4jGRZNvV/xOBjqck15wgcvDBX5S+Ef1Fb ++7fXRJYK03fS+IYFyPBE47ViTgEVFOYS34uUYLBD8kH4YUMRGDqXWCpNxaBJ +b6XhQhgL4k0Kxy22eaPD7n9rg/tZsD0v9YDvZnfk6Ltk4Mcm8P3+kWfOC8K/ +/0NWTr6Kg/9XzqNX1pMhW0yZEcJBhRM+Is1RxPzWvZZs5R5B4HVLmfi6bgxE +DEV9bmzBwdOQWeDHJuKjT6uhAAde0+DqNEKfs78ahlMPUkHb64dtMjcZjtq3 +KWv9ZsH43Zihgy9cUZvNKR6t0zhU1rDd/nKSwTldVv/VTxzMTl0K6iP4ceX2 +nyfdKTgI/xae7CL45XxVt2DbLipMFfeMuWwk9GP+hcnGABzs9iQ1vuMjw/T9 +bWtXhajga6Xz7SdOhlKR/WNptTgM33ibakDg3fhM2RnhZRZ8mrNhrnK7onN7 +DRLOk/iBffB3BeqaQaMfZpsp0cLQpe9sRmnmhuvDnb2lTApsu1yaP1JOgv2x +NbzBxRQwawlQ8rmFAdfYYVFvAxwKP2/fQ1nAIMlcclaoA4cizntG5UQ/X9vF ++RYnKhx74RXcPY3BYd93XYw/VDiysZS94IXBwEV1244wEZAuzuVZeE6C2qal +nQHyoiCUtNzMF8MNmcMDt20iZGBDcziHi0UH8t4cpr5zUAYkU9t8Tm1pRbrc +AobicjR4hEqHzzQ0Ip+gHIPPTjT4oSPZ0eBYi45bn7SWKqRBsqFYT3tcFUrf +ee1Mzl8aFBXk2+9pL0PRZ+I8ew3ocKl2zSrPpAj5Hr+3LBhGhw/1JkHY+VzU +1R1vK91Fh6f5Nw7vvfoGNb3I/1bKYMA75/oACkcmQrd0jqU7MoAyMEBJbElG +IXWZItoFDNiu5X6GzywRBesVrZlxMWE92tR1r+QxItXt7ijazwTjBzJOjPsR +SCymuvxlBBN0wjJBlRqCZLeLUrN6mZAQkE59HB6Eks+GHg+iseDdzdGG52cD +UUU/X/qsEwvsVO1s5If90Ia2R1uLc1hQfNVVdLvhNeSLYtY0B4Th/MIDNc/D +JHDl5GA3XaHAPpOEq5eVMJi3+w4h3MT85brjYFqDQeKmsdciITi41u5QyRYi +QxJ9t00sjQpRZzh19YhYvX9zqGEOFbZE0m50lmNgG2ty8I6eCAwnaxu9ksTA +RehZ/I4QFtQWB03EOHgj3kKdFZFeFrjKFg2g3e4o4UanHN8gBf4oJq7FpxP+ +wivOxuAiDpxLJqde/9//7FF60bmMw3Lq/L0DBF+6adzVvCFUuDtRP7+1D4ND +hxfMBeRw+M3m7bo3hMFk/I7lkWxCT1KcmfxEPn2dgcQpfSqc23/brIjwx/yZ +omdrJlnQ7d2Yu6vTFWVmz+35aolD5DeJ3bOEvgzXM5vnRnFYCury2E7gU689 +pN3vKQ7mctqe84R+Dkdog48GFeRVPyZs3UyGRR2du1m+OEz5Xk7UJfT07Bv1 +O0W8RL/zao5LRH6E7YDM4Woc3vPbif4l+Cr4jBT5ZJEFu/f2HQz5xxVVCtKG +A7/goKxiX5FG9Ju9UqLdEI3Dg0yj8CUKGbQXVGL2Y1TonykYbBQlYq6NwTHv +iHp1IilKRD2uW/KlttM4GG+2t3ci4phdNvbqmTjc3LU+L53IH/2YlcPZiEPi ++ji7QKJ+mPR15burxP3yflBBaY8LGtS+0qbGxQ+rbvM9XC0ziBHrl8aOFAbN +HXwL0/XccPNplKU1nQKPF/QUdEtIMBy3ffX4WwoIMlucZAOI/eaP0TiyH4eh +ycw59hwGFhfiCgs+4/BDNiymkOhX+1ZO8YkjMQ+/v+oTn8XgfIlUXvkCsX/+ +SV2RvhjotTpf9g0RAeb6jLV3r0lQ6fbjjYmsKOy8F93q94QbZo+5PdIIlwHx +Q76q9U4diP+p/3WJLzLgwHNnKGNXK/LPuCiPydLA+h3HdN/XRiTDyvROuUCD +E8cii4T9axGIP68hFdAgNOz9tODLKvRn7Iz0zVUaDAgnPYTpMqS+rf9i6QE6 +KHosXAh1KEKVuzVvL4cQeup3+rOXey66mTeiN9VBh/e8Hmmv/d+gigzT1Wd0 +BnCFaCcKUzNRtIdvuZsDA5QO3V0u/ZaMwppMxCn5xP0y7pblG7tE1OX0dhdw +MkG1urYive0xymd32ATpM0HMfIeydmIEEu4s+C80nAmLz6XD/rBCUN2t6y4x +PUwozqnwLskMQq/S7pMtZVjAuuhiUeUeiIR1z4X0XGBBdmpIZeSaHxpz1TS4 +kU34w0jHA5bnr6EiIVbH+j7i/KjrI3IMSOBdXnru0iUKBL8bPmuqgEGIwwkV +M04cWp+aXHrwHoN76tvqxx/gYCPtUyBM8NlC4608kqYC38Y9fFNE7KuqVU3N +okJbTebv15UY+PTky7N0RYAjW1dnUgaDD9fmb0k+ZMG+L0HZAwHeaNJshDLQ +zYLfS56NOsbuSDNAD+/sp0DMl/jU+6kYaCV995O8gMOh74LctWQy9Bx5fsVr +ifCrIV5RMQRfme5qCz0PqPB0Wai3tB+D0SO2+7uZOOjemljcMIhBd/VN/O0b +HKSPlBwqIfS2R6RukGsfFTwyGoLfEfWmDIq97v8k9LvZU7plwhVFdoNFvjnh +f1f/7hv9i0FM/7OIxyM4uBy2kbAk8Km20jtlnIBDtB9o+RJ8jUmtINHUqLCn +784bMsFntmNwSqA3Dm8PSYvfJPguVpl90GoTFdK/+PS4E3rr/0DhX1olDkr8 +cx+aCf5N66S9OrfAgmalgb5r2q7oOjMxVb6f0O9HO7fnE/2+POKxTojCYVv1 +7dxLBL//8Ly2nuCigmhjs9Q24n/+UTiRcbEIh1g7jgcTxH68jUq7uWGKOK+j +B1EaUf/W6dcB5HQcBtty5XQIfn/+vdLU9hGHzCH2oANR37lcYv+RFRb85y1/ +xuSXCxrTf6JypQuHzcNcvpXEOrfHxBehPMLfcu04aE3UV3ybstF4HAcS36je +JmI9A4VjXh9wOJntXCRLxBs4kySHhoj76dE/5eFEfKK3zLmmBAfWiO0me+J7 +DFwylipncbgu+JL0/3m0+sw2WvkTDrnrgjVjiPxs307h938JfOaZCaIPLuh/ +n2uFNA== + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1Hl8z3UcB/Bhc2yLbTarpEy6HMm2dKBDZZemHI2xpUVIbbrQIZ1069Zd +jg46HB2OohxFrqIUKpUOOZKik+L5fvTH8/d6fz7v3+/9++z7+zyWU1XTo7pW +QkJCpZfIg71slFMYwXnkUZs6JJJEXepRnwYc4nNfyOcZyfnkc6L9P+VCHuJy +kjnU/pfyBUbRI95LB/t/yUU8TDUpNLX/lXyRa+nJaXFgloun4rOcZP23XMwj +1NDFXiKr1c+RymHWm+RLXEdX6/qsVffi9HgerFA/TbE6lc/iOzhZ/Y9cQnd1 +Oo+qC2Uyn8YZZRbD1WfJJMr4KJ6PbEw/Jlp3kw3py/o4g2xCBQdZN5Nfywvk +VFkq0yjneusC2YA+fBLPU2bSn97WZ8jarIzfVGbwjLok5vN5/E2cot4r32cC +RdYprFNfwdnqunysnkRDDrf+Rk7jhjgjZ9qrwyr1szGXU633yQ94jCtpxBH2 +v5UvM5qyeC8d7f8rl/I4V5FGc/ub5SvcSJ94L+nk6H0nX2UMfelEBo3JJIsm +ZMd9j7sb9zHuWNyLeNbxN8W5aGHe9/I1bqKcznEGjtT7QU7nZvrFnYwz0FLv +RzmDW+gfdyrmcZTeFjmTW6mI3yfmcbTeT3IWt1EZzzLmcYzeVvk6t3Nh3O2Y +x7F62+QbjGVA3LmYx3F62+WbjOOi+B1jHq30dsi3uIMqzol5tNb7Wc7mTi6m +a8yjjd5OOYe7GEhBzKOt3i9yLncziMKYx/F6u+Q87uESimIe7fR+lW9zL4Mp +jnmcoPebfIf7GEJJzKO93m45n/EMpVvMI1dvj1zA/VzKuTGPPL3f5bs8wDBK +477Y/08u4wmuju8g3/4f8j0e5DK6x32wv19+yJNcE8/QXj3WqCfHd6obsUHd +W2bX+v9/bq71ARgdk2M= + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgEAURMEvGtiGrWhgYmQBBgbCgXDg2T9qIFiCwSQLj51uzfO2VBGl +iYgplXO741P1U+0989gPec9Hev4U7+A4juM4juM4juM4juM4juM4juM4juM4 +juM4juM4juM4juM4juM4juM4juM4juM4/kt+AfmhNUs= + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVV3c8Vu8bNt7zpmW/57V5l5UvGS199dwhihYqK1qy0rLLLPqWhuxkRLKb +NmVTyAjZK/QmIckW8ju/v87n/jz3ue9znue67ut6aGcvG5/n4uDgsObk4Pj/ +86Ru1HoODn6oW3He8LFuBv37jVKefZ8f7HZ0cGcUzCF2a4zCbpYA3ErJt0gU +WkSz4nzf03IEgOzV8C3C9w8a5r9+8QAShD/9plN+3KvokfFYanmHIOjwZEcd +bl9Deb8OaEjYCEEm226CqskJsd2vXA+tCsEfhptNdwQXWF/e4JsTLgzt/x3r +a6zhhrunj/euSlPAzYR+I76IBD5PUsYlCylwsDjNvt4fg+4d347Q9XD4u/BL +7s0sBoI+4j6WLTjIlTuZP5ckgxCfqZWjPRUqevkdzecw8F65EWo1RwWv/PhI +5RsYvNye7SkbLAKiiR1R3jkkKJbolmcyRYEeI1ExkcQN6ta/lMhvRCEcm3xj +f5ULnCc2sEv0xcAwOMQ3fYUDRDsov8zbxcBKR+X0W741dGeT7Mv6S+LwYq/8 +x6FPy6h9UknDGZOAT0NjDKekRXRXicG3GioBclarSZur5tC6Aql4K0VJMK7a +vGeweRpNxK33SyqUBIx25dBb3Sn0WnlcQUJXCsLT1Md7lsbRrs2tty/0SkHw +0ReirXe/IyX99F0J9tKQbH6AzcX+imZG9h5p45CBAFbRc4bzIEIcW2xnDGWg +xgpX4BbrRahmYxopTAYKkh9YbvXrQM80LldwDMgAae8T5b/6rejdkY/YLyYN +eLWa4uyXG1FleeIrD0ca7DMyvHExshYpdS1tHc+jgeSOOZeTJVXIMN6g/+gK +DewtC169XFeOmnikzj3dT4eZ06+1/PyKEEb/Ich+SIfoDxyHOO7koi2hKnIV +7XRIr/zUtiXkDcpNXRQOojEgsu6EvpxyJpp2KFLSsWeA+MjhtKmlZBT+eUVy +NJcBcRxybac8EhEj/J2LHAcTdr81HOwef4zsOJxnzPSYYNtupuyaG4H4hJ8f +dAtjwmZZUfUWjRDk1N77KaCbCRfLc6/OVwShgonbBUrSLPg572MzeTcQ2Wbm +e5Y7suAFl/RsMK8/qqP0n9PLYoHshSmFWL9rqLVfY3ltjQVPtbxOtmW5oAbh +DhtzPX4ouZT4s6JwFs1+f/2iq1sYjAYaO8b1SBDo5/N1sxMFdnsHN2jKYrDl +wntJmTUKpC1H/CqtwsDdwn+k9B4OyXrHYp0FySCot+vnsAQVAkQEjkYIk6H2 +ltPC11dUeEc5WRlQjUGEqBhWuVcEdLqqDiowMcjNeH+U1S0C6dgPcyV1Enhq +sRUpjqJgVD7GF8HHDb99tHK5CmWgqtl2UdWwDalUxn314KRBi+KnLN2QZrTn +zjaLHH0aXDF5MuSkUI88DjZeVg2hgcCHm8KaGz6gYk36OqluGmTMR0TF1leg +TSYaMtfodBjfca7UNqYYOUZyv9N2osPwtbzZXV/zUbT5pvjWbDoMeuS8Zjln +oylxYamUZTqEKv0pUnV7iUx4umVGdBmw4dix5TtX0lCllGVKZDADfo5kzg5H +JSFL9b7a2z0MuGZdsV9hVzx6XxelDgwmBGq/zIjb8gjtvssrY+fEhLL1+u7K +xmGo1FUneCWPCVYCm/K6vt1HgkNZOmYrTDjheDT0FOdtFGwoHT2vy4Ko+Kch +Mwo3kcjggUvcwSx49Qm7pPnEGzUt3VF51sWC/iTRA6cc3FGE0vYCJQY/wR9Q +BjSLMrZYUT7kC8OXdcXhLTwkWHfF4QumR4G5AJ8CoWkStAXmkRJ6KXCd/eW7 +ezIG8nVqsVP2OCweUeTvw8gQdkZxm/QCDl2qm4RHxMlw6eMZxbR7VFD7zdi8 +/wsGPBsP1z8UF4F10VKT245jsHXqHTslRwTO2qPfTm4kEHs5kCGhLwrJT9Y5 +5lhwQ3RS8kvuFBn4bZF5n23djhyWbxkX/5IBL58YZxO7FrQyvqZitJ0Gi032 +187ebUBx5B0Pj/nQ4Bjpa0+Ofg1yXc8bF1hDnHe0W1FAaSVS8iz7a8NHh9E2 +v07hA6VI4hM/n7MFwcf22s/d8oWoqeSPqeVTOkjd6Eb73XNQcMdTes4oHW5h +S7GPtF6jwM7RmB3qDHgT+Gsv6UM6stDd4ODkxYCFgZMSfmXPkEeA00xBDQPU +am/ybiUnIFfljM85AkwIaDBWlrgZjYz2la8/bc6Eel7XTerXw5GtrsfPnclE +rG9Rh8cGI9T7Yf3kGBO2tbO12aZ3ED3uc5qAGgvYG8cddxoFILTPf+aMNwtO +iORlzh31RQ3rcupmq1lg5JB6auS7B0LJXLrjK4R+TETHjN0gAcfD0O+UMArE +hVTU9RP7fdOofftTOg7PgwW9bw1gUD3eqPrgFQ49/VG158WI81Pcn5KqTQWT +T97ahevIQN/rUS3TSoUvWc3PpVIwkJEf2TNrJwIU2PxRdZIEU9eFfiQnsGDn +nOuTe9xeqHncOtJoggUpQrbpvlxuyHOn7ekoAX6IwEsHuUizKLAxp+7fFGFY +xMfyM0a5Yb/9qX5OdQoMT/vynuogQXroP54DdRQwPv4rfEs4Bv4c992CTHF4 +/N2/snMVA+NfdHMtNg6pynka1wl9K3fqq+K5ToXsu3OU0TEMKrntX7nziECZ +bpxc5wUMLgkVKI8kisAOqNr8N4IE42xLh8RtorA14WGfih83TGiYKQbGykBW +S8+3Kz/bETn6T9DAiAykGtQpXuloQX2S38QS/6GBSz6GeqARvf46LjXiQoOd +q7JNPhM1qHkqYKSglAYXJJKEHP+tQsUbsMkejA7ZomrK6gplaO4CtSjIiA71 +0vv011oK0divq3kJ0QS+Dv5wtFvNQX05o0zNL3SwfvlJrp7yBkmUTZmeVmSA +W8DOriyPDCTbOfSx8yoDyCu7rS5aJKNbz3N5jpYywDIoHibnE1DD6exnP3mY +AJMKWIDGY9RHf+zbd4QJt+2aJJeFI5CmkoCkaSwTMg9YZEv4PUQnzFomdg4z +4ciU4HPHDUHIqfqlSoI8C64luWfnjAegVg/x7aEuLJAKtzn9Xt0PfeStjZJ8 +xwKNVy0ZN954IjE988Uz48LwftqwqMWGBNq3b38T8KNAiUHyUsIeDE5YH8oc +5MchwKOMltuCgSRDbpNsPA4Jn4+bcVLJYFwIddUqVBhqlNbs5CWD29ffVjfL +qRAzb7PeJg+DHhkOeu8xEfjsp6JUux6DwJevtrRFseCs0sz7+UYv9Gna5ez1 +YRYE763IFshxQxyeWqGnflLgZJXM0YxcDD6FdpebXsfhY03DwttNZGj9rCrA +uYEKZRevlE6KkEFc/nvIvngqpCUW7PJqxeCVrlXVGQ0cnm1V/KRC4OdCrqvp +bBkOHos+lU8kiPfjjty4c5wKz/9oBexcw6CFfaBWfp4Fr5c39nmauiLHPX81 +6nn4ITWtv/n9yAy6KvWF4RknDNCoNmzUxQ0ONhZ9fgoE/7C9LtK1JBCM/qH6 +t5wCW7Na2yXvYqAUVzjcfhgHoeIlTfslDNS2S19o6MHB4EWmdBmB77GSxyG7 +rlKhSb0rW28KA2mOOemxv1RgJs6ffuGOAW9Krsl/j0TA1Cd03elkYj77ix0Y +VhKF1HvGibKh3ID/zbKvjpKBwXvPr/zY1oGOjeSmXB6WAd7DA1ajvK2oId80 +RF+BBhXDPlfj4xvRTuMPI8qXaVDLH/TwMtQiX3bpPaO3NLDyGqrw965CpLa0 +bxROOkR0iX8IiC1DZ9+KBVMO0WG6JNVcTb4ILd75h703gg62e3ktdLRzUSB9 +U6pPDx14paQnHhi/QaPZrvmzLAbQErpeGLVmoPuJjV6bLzJAa5jDMiYjGd0v +MxOKK2LAvQzp/MWdiWhxKf/eXRITZpH/qeCHj1FSKFYkZsiEasYNS2mbCMSU +GdAYiSLmq+iu4vszD9FQ1AnrgX4myGsfzH9wPgiFdcXMfGOwgJP8uz9fMxBJ +CDh0yl9mQePwi4T4ND9kEGa8qppP4H2x4/Ru6jW07lGgcfywMJRYqKxbPE6C +cwE32Q/dKCCU9WQ8VA2DcgKmHDw4jGRZNvV/xOBjqck15wgcvDBX5S+Ef1Fb ++7fXRJYK03fS+IYFyPBE47ViTgEVFOYS34uUYLBD8kH4YUMRGDqXWCpNxaBJ +b6XhQhgL4k0Kxy22eaPD7n9rg/tZsD0v9YDvZnfk6Ltk4Mcm8P3+kWfOC8K/ +/0NWTr6Kg/9XzqNX1pMhW0yZEcJBhRM+Is1RxPzWvZZs5R5B4HVLmfi6bgxE +DEV9bmzBwdOQWeDHJuKjT6uhAAde0+DqNEKfs78ahlMPUkHb64dtMjcZjtq3 +KWv9ZsH43Zihgy9cUZvNKR6t0zhU1rDd/nKSwTldVv/VTxzMTl0K6iP4ceX2 +nyfdKTgI/xae7CL45XxVt2DbLipMFfeMuWwk9GP+hcnGABzs9iQ1vuMjw/T9 +bWtXhajga6Xz7SdOhlKR/WNptTgM33ibakDg3fhM2RnhZRZ8mrNhrnK7onN7 +DRLOk/iBffB3BeqaQaMfZpsp0cLQpe9sRmnmhuvDnb2lTApsu1yaP1JOgv2x +NbzBxRQwawlQ8rmFAdfYYVFvAxwKP2/fQ1nAIMlcclaoA4cizntG5UQ/X9vF ++RYnKhx74RXcPY3BYd93XYw/VDiysZS94IXBwEV1244wEZAuzuVZeE6C2qal +nQHyoiCUtNzMF8MNmcMDt20iZGBDcziHi0UH8t4cpr5zUAYkU9t8Tm1pRbrc +AobicjR4hEqHzzQ0Ip+gHIPPTjT4oSPZ0eBYi45bn7SWKqRBsqFYT3tcFUrf +ee1Mzl8aFBXk2+9pL0PRZ+I8ew3ocKl2zSrPpAj5Hr+3LBhGhw/1JkHY+VzU +1R1vK91Fh6f5Nw7vvfoGNb3I/1bKYMA75/oACkcmQrd0jqU7MoAyMEBJbElG +IXWZItoFDNiu5X6GzywRBesVrZlxMWE92tR1r+QxItXt7ijazwTjBzJOjPsR +SCymuvxlBBN0wjJBlRqCZLeLUrN6mZAQkE59HB6Eks+GHg+iseDdzdGG52cD +UUU/X/qsEwvsVO1s5If90Ia2R1uLc1hQfNVVdLvhNeSLYtY0B4Th/MIDNc/D +JHDl5GA3XaHAPpOEq5eVMJi3+w4h3MT85brjYFqDQeKmsdciITi41u5QyRYi +QxJ9t00sjQpRZzh19YhYvX9zqGEOFbZE0m50lmNgG2ty8I6eCAwnaxu9ksTA +RehZ/I4QFtQWB03EOHgj3kKdFZFeFrjKFg2g3e4o4UanHN8gBf4oJq7FpxP+ +wivOxuAiDpxLJqde/9//7FF60bmMw3Lq/L0DBF+6adzVvCFUuDtRP7+1D4ND +hxfMBeRw+M3m7bo3hMFk/I7lkWxCT1KcmfxEPn2dgcQpfSqc23/brIjwx/yZ +omdrJlnQ7d2Yu6vTFWVmz+35aolD5DeJ3bOEvgzXM5vnRnFYCury2E7gU689 +pN3vKQ7mctqe84R+Dkdog48GFeRVPyZs3UyGRR2du1m+OEz5Xk7UJfT07Bv1 +O0W8RL/zao5LRH6E7YDM4Woc3vPbif4l+Cr4jBT5ZJEFu/f2HQz5xxVVCtKG +A7/goKxiX5FG9Ju9UqLdEI3Dg0yj8CUKGbQXVGL2Y1TonykYbBQlYq6NwTHv +iHp1IilKRD2uW/KlttM4GG+2t3ci4phdNvbqmTjc3LU+L53IH/2YlcPZiEPi ++ji7QKJ+mPR15burxP3yflBBaY8LGtS+0qbGxQ+rbvM9XC0ziBHrl8aOFAbN +HXwL0/XccPNplKU1nQKPF/QUdEtIMBy3ffX4WwoIMlucZAOI/eaP0TiyH4eh +ycw59hwGFhfiCgs+4/BDNiymkOhX+1ZO8YkjMQ+/v+oTn8XgfIlUXvkCsX/+ +SV2RvhjotTpf9g0RAeb6jLV3r0lQ6fbjjYmsKOy8F93q94QbZo+5PdIIlwHx +Q76q9U4diP+p/3WJLzLgwHNnKGNXK/LPuCiPydLA+h3HdN/XRiTDyvROuUCD +E8cii4T9axGIP68hFdAgNOz9tODLKvRn7Iz0zVUaDAgnPYTpMqS+rf9i6QE6 +KHosXAh1KEKVuzVvL4cQeup3+rOXey66mTeiN9VBh/e8Hmmv/d+gigzT1Wd0 +BnCFaCcKUzNRtIdvuZsDA5QO3V0u/ZaMwppMxCn5xP0y7pblG7tE1OX0dhdw +MkG1urYive0xymd32ATpM0HMfIeydmIEEu4s+C80nAmLz6XD/rBCUN2t6y4x +PUwozqnwLskMQq/S7pMtZVjAuuhiUeUeiIR1z4X0XGBBdmpIZeSaHxpz1TS4 +kU34w0jHA5bnr6EiIVbH+j7i/KjrI3IMSOBdXnru0iUKBL8bPmuqgEGIwwkV +M04cWp+aXHrwHoN76tvqxx/gYCPtUyBM8NlC4608kqYC38Y9fFNE7KuqVU3N +okJbTebv15UY+PTky7N0RYAjW1dnUgaDD9fmb0k+ZMG+L0HZAwHeaNJshDLQ +zYLfS56NOsbuSDNAD+/sp0DMl/jU+6kYaCV995O8gMOh74LctWQy9Bx5fsVr +ifCrIV5RMQRfme5qCz0PqPB0Wai3tB+D0SO2+7uZOOjemljcMIhBd/VN/O0b +HKSPlBwqIfS2R6RukGsfFTwyGoLfEfWmDIq97v8k9LvZU7plwhVFdoNFvjnh +f1f/7hv9i0FM/7OIxyM4uBy2kbAk8Km20jtlnIBDtB9o+RJ8jUmtINHUqLCn +784bMsFntmNwSqA3Dm8PSYvfJPguVpl90GoTFdK/+PS4E3rr/0DhX1olDkr8 +cx+aCf5N66S9OrfAgmalgb5r2q7oOjMxVb6f0O9HO7fnE/2+POKxTojCYVv1 +7dxLBL//8Ly2nuCigmhjs9Q24n/+UTiRcbEIh1g7jgcTxH68jUq7uWGKOK+j +B1EaUf/W6dcB5HQcBtty5XQIfn/+vdLU9hGHzCH2oANR37lcYv+RFRb85y1/ +xuSXCxrTf6JypQuHzcNcvpXEOrfHxBehPMLfcu04aE3UV3ybstF4HAcS36je +JmI9A4VjXh9wOJntXCRLxBs4kySHhoj76dE/5eFEfKK3zLmmBAfWiO0me+J7 +DFwylipncbgu+JL0/3m0+sw2WvkTDrnrgjVjiPxs307h938JfOaZCaIPLuh/ +n2uFNA== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1Hl8z3UcB/Bhc2yLbTarpEy6HMm2dKBDZZemHI2xpUVIbbrQIZ1069Zd +jg46HB2OohxFrqIUKpUOOZKik+L5fvTH8/d6fz7v3+/9++z7+zyWU1XTo7pW +QkJCpZfIg71slFMYwXnkUZs6JJJEXepRnwYc4nNfyOcZyfnkc6L9P+VCHuJy +kjnU/pfyBUbRI95LB/t/yUU8TDUpNLX/lXyRa+nJaXFgloun4rOcZP23XMwj +1NDFXiKr1c+RymHWm+RLXEdX6/qsVffi9HgerFA/TbE6lc/iOzhZ/Y9cQnd1 +Oo+qC2Uyn8YZZRbD1WfJJMr4KJ6PbEw/Jlp3kw3py/o4g2xCBQdZN5Nfywvk +VFkq0yjneusC2YA+fBLPU2bSn97WZ8jarIzfVGbwjLok5vN5/E2cot4r32cC +RdYprFNfwdnqunysnkRDDrf+Rk7jhjgjZ9qrwyr1szGXU633yQ94jCtpxBH2 +v5UvM5qyeC8d7f8rl/I4V5FGc/ub5SvcSJ94L+nk6H0nX2UMfelEBo3JJIsm +ZMd9j7sb9zHuWNyLeNbxN8W5aGHe9/I1bqKcznEGjtT7QU7nZvrFnYwz0FLv +RzmDW+gfdyrmcZTeFjmTW6mI3yfmcbTeT3IWt1EZzzLmcYzeVvk6t3Nh3O2Y +x7F62+QbjGVA3LmYx3F62+WbjOOi+B1jHq30dsi3uIMqzol5tNb7Wc7mTi6m +a8yjjd5OOYe7GEhBzKOt3i9yLncziMKYx/F6u+Q87uESimIe7fR+lW9zL4Mp +jnmcoPebfIf7GEJJzKO93m45n/EMpVvMI1dvj1zA/VzKuTGPPL3f5bs8wDBK +477Y/08u4wmuju8g3/4f8j0e5DK6x32wv19+yJNcE8/QXj3WqCfHd6obsUHd +W2bX+v9/bq71ARgdk2M= + "], 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]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 2.7645311207418275`}}, + "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:eJwV1nc8Vf8fB3DjnpuWfc+1ucvKl0IlffV5hyhaqKxoyUolu8yib0nJTkYk +u1LZZKciI2RvuklIkpnkd35/3cfzcc49n/d5fz6f1+fQzl42Ps/FwcFhzcnB +8f/fk7ox6zk4+KH+j8uGD/W/0LC2c7sqFz+sui/0crX+Quf2GiSdJ/ED++DP +atT9Cznu+avewMMP6RkDLW/HfiEvDdvTMQL8EIVXDHOR5lCU0o4iJQY/pJqD +MqA51CjcaWOuxw/ll5K/VxfPoX+/UKpy7/KD3c5O7qyiecRui1PYzRKAm2mF +FslCS2hOnO9rRp4AkL0bv0T5/Uaj/NcuHkCC8HvAdMafexU9MJ5Ir+oUBB2e +3JjDHWuo4McBdQkbIchm201RNTkhvifH7dCqEPxmuNv0RHGB9eUNfnmRwtDx +37H+pvfcwIj3z2BHC4PmTr7F2QZuGH8310KJFYZufRczSgs3XJEaYnglCAM0 +qY4adXNDUFNe/b9pwrCETxRmjXND1hYryrtCYRhaVxbZykOCua8vnnX3CIPR +YFPnpB4JSoRYnev7iedT10flGZDAD8WtaQ4Kw/nFe6peh0mw7kGQceKoMJRb +qKxbOk4CMT3zpTOTwvB21rCk1YYEKJVLd/IPUe9UbNzEdRLcOX28b1WaAu4m +9OuJJSS48TjG0ppOgYeLegq65SS4NtrVV8GkwPbLFYVjVSRwsLHo91egQAK2 +11W6jgT77U8NcKpRYHTWj/dUJzG+s8MQpkeB+UDfIqFZEgT5+37e7ESB3T6h +jZqyGPhUVZy7dIkCoa9Hz5oqYODGycFudqbAPpOkK5eVMDgXeIN9350CQq8e +TYarYqB969YXAX8KlBukLiftwYDjfvhXSgQxflh1/cBxDHwfpU1KFlPgYFmG +fUMABqMJO1aPl1JAkNnqJBuIwf7497yhZRQwaw1U8r2JgWDst21/qyiw9VVb +h+QdDDLD//EarKeA8fEfkVsiMWgPKiAl9VHgGnvoq0cqBpqBenjXAAXihhLT +76ZjkHS9S45vmAK/FZPXEjMxcPRbNvBnU+Dk2wdeec+I+ry0wk99J/xG5mhW +PgZbLryVlFmjQMZK1I+KNxiEOZxQMePEoe2xyaV7bzFYsPsKYdw4eHLddjB9 +j0GVzXobDh4cxl5ZNg98wOCE9aHsYX4cAj0rafmtGNww6tjxmI7D01BBn5uD +GIwfsd3fw8RB9+bU0oZhDA4dXjQXkMPhJ5u3O2QEAxFDUd/rW3DwMmQW+bMx +yNG1enNGHYcnWxU/qkxg0LPzyxG6Hg5/F3/IvZzDYJo/Tv3IfhxGprPn2fMY +cE0cFvUxwKH40449lEUMlBKKRzsO4yBUtqxpv4xBAMdd92BTHB5+DajpWsUg +ugcsCs1xSFr9u2/8LwbZufN7PlviEP1FYvfcGtFfm1M8WqdxqHnPdv/LSQb5 +etX4GXsclo4o8vdjZNBK+eoveQGHQ18FuevIZDD2TrAxuIgD57LJqRfryODz +D1k59QoOAZ85jzqvJ8PH8J4q02s4fHjfuFi6iQxsx9C0IB8cSg9Ji9/YTIYl +HZ07r/xwmPG7nKzLSwb6wjOTjYE42O1JaXrNRwYPi4CxihAcUvWOxbsIkiFE +bXvD5D0cbKR9i4SFyJC8aeKFSBgObnU7VXIJf6gwueoShYM35qY8JEyGoQc8 +1kkxOGyvvZV/iUKGOedy7cZYHO5lG0UuE5ZkyG2STST68em4GSeVDKp/+maM +k3CI9QctP8J6HWEd/o9xMJfT9log7Hzr96OeNByEfwpPd4uQ4ebpF4HkTByG +2/PldETJELfLxl4tG4cbu9YXZBKunWzadi8Hh96BmLrzYmToqb2Bl77EQfpI ++aFywtOJO1fGcon5TnNh8ouTgdtzakioAAcDrp0HrQmLHH1cC0U48JqG1mYQ +/kfhRNbFEhzi7TjuTRHW5toYGvcah7f1ImlKEmQ40Vfp8r4cB9aY7SZ7whfy +3UznKon1u+Rb84hwwD2Ff2k1OCjxz79rIRxlOyhzuJb4P7+d6F/CWSgS836H +w8lclxJZSTJUiOyfyKjDYfR6aboB4U8//zS3f8Ahe4Q97EB4/MOrPM4mHJLX +J9gFEV59Yhur/BGH/HWhmnGEBX3FfS1bcZCrcjJ/StjiQkJx0SccvslGxBUT +TjGXnBPqxKGEM8SoivCE/iMV524cNo9y+dUQVt0hfaGxl+jHs2zpSsLXmMnp +8gPE+nygsaOQcI0gbTRoCAdlFfvqDMIbOFMkR0aIfh/9XRVJ2PgH3VyLjUO6 +coH6NcJxA0+iHo7h4HrYRsKS8GgDs2V+HIfl4G7PHYQVS9M2Gk/iQOIb19tE +2CVTVj/nOw5mpy4F9xP9KY3JuLFhhsiHowdRBmGum/IVtrM4GG+2t3cibOCa +tVwzh8M1week/89HxBnF7dKLOHRv2yQ8RsxX75Gnzt7LRF6EecfEEabvUXrW +tYLDSvpCyAHCuWLKjDAOKpzwFWmJIdbHb54X1lNcVBBtapHaTlh7USVuP0aF +gV9Fw03E+mr7tE2AcwMVKi86V0wT61GsJveg1SYqZA759noQPvtS7XYJLxXO +nVd1XCbW7+zd7WtXhKjgZ6Xz5TtOzI/eru+jElQIFBE4GkXsFwv1UnkkTQW+ +jXv4Zoj9lELfbRNPo0LMGU5dPcKqa//2mchSYfZ2Bt+oANHfYqivVaHCSJO0 +Zhexf+PSq0k0VSrs6b/9kkx4NEobfNWpIL/tQ9JWYr+7XNEt2r6LCjNlvROu +G4n+KO5PS9emgslHH+1iIj96ReqHufZRwTOrMfQ1kS/0dQYSp/SJ+vffMish +8if3s2Ek9SAVtL2/2aZyE++fcOT67eNUePpbK1CDyC8hPlMrR3sqVPfxO5oT ++VhXKqf4yJG4/jWnX5zITz/bpYVWJyoce+Yd2jOLwUT5w7BdV6jQrNadqzdD +5LtT/xuea1TIvTNPGSfy99KHM4oZIVRQ/cnYvH8IA6aH6mLvPSo8XhHqqxgg +8pnGXcsbRoU7Uw0LW/sx0L2aauURRYy3pVJ8XQ8G4vJfw/YlUiEjuWiXdxtR +z02nxc85VHhNOVkTWEvUs02rlvqKCu3vs3++qMFAbWBzuGEeFbZE0653VWHw +SP2FYl4RFRTmk9+KlGPg/vmn1Y0qKsQtEAdRAQb0vZ61Mm1UGHrV8lQqjTi/ +/1wPt5qngndhYrTydQzOl0sVVC0S/Q9I6Y72w+Cw3+tuxm8qHNlYwV70xkCa +Y1564i8VmMkLp595YFDDbZ/jwSMClboJcl0XMODZeLjhvrgIrIuVmt5OnOdR +omJYzV4R0Ol+c1CBSZzvvYXyLF0R4MjV1ZmWwcA23uTgbT0RGE3VNsqRxGCn +5L3Iw4YiMHIuuUKaikGvDAe975gIfPJXUapbj4GM/NieOTsRoMDmD9umSfB8 +R66XbKgIiCZ3xvjkkUCvzeWyX5gIMNdnrb1+QYLBi2q2nREiIF2Wz7P4lAS8 +afkm/z0QAVPf8HWnU0lwSahIeSxZBHbCm81/o0iwdeY1Oy1PBM7ao59O7iTI +z3p7lNUjApnYN3MlNRKUSfTIM5miQI+TqJ5K4YYa928vTWRFQSMkts3/ETfU +NS9rBMqLglDKSgtfHDe0B4gdGFUShfQQ42TZcG6YZFs6JG8Xha1J9/tV/LlB +7PlgloS+KKQ+WueYZ8ENXlpsRYqjKBhVTfBF8XGDmvUPJfJLUYjEpl/aX+EC +l6kN7HJ9MTAMDfPL/MMBop2UH+YdYmClo3K6lG8N3d4k+7zhkjg82yv/YeTj +CuqYVlJ3wSTg48gEwyllCd1RYvCthkuAnNVqyuY382hdkVSilaIkGL/ZvGe4 +ZRZNJaz3TymWBIzmfKhUdwa9UJ5UkNCVgsgMtcne5Um0a3PbrQt9UhB69Jlo +252vSEk/c1eSvTTx/X6AzcX+jH6N7T3SziEDgaySpwyXYYQ4ttj+MpSB91a4 +ArdYH0LvN2aQImSgKPWe5Vb/TjR3zP2BeqQMiB/y29bg1ImyRwdv2UTJwIaW +SA5Xi06E/31lXxsjA8MhT52/be9EU+pmikHxMvCqtfeL8/cOFJuS+pw7TQZ+ +WmTfZVt3oJ++WvlcxTLwpsV2aZthO3qifrmaY1AGSHsfKf/Vb0P8jwOuSQzJ +gAPP7ZGsXW3IZ3OEmsawDEimt/ue2tKGjo3lp10elQHew4NW47xtiBz7O3hw +TAbSDeoVnTtbkcPKTeOyHzLg7RvnYmLXilRqEj57ctKgVfHjK92wFvT6yAfs +B5MGvFrNCfYrTSgg66I8JksD69ccs/2fm5Aut4ChuBwNHqCK0TONTaix0DRM +X4EG1aO+VxITm1C/5Bex5H9o4FqIoV5oQn8m11SMdtBgqdn+6tk7jWjP7e0W +efo0cDZ5NOKk0IBqqpJzPB1psM/I8PrF6Dokw8r2SbtAgxPHokuEA+qQb3Ce +wScnGnzTkexsdKxDGsbvxpQv06COP/j+ZahDLz5PSo250kBjVbbZd+o9SiDv +vH/MlwbHSJ978/TfI8+DTZe3hdFA4N0NYc0N75BS9/LWyQIaSO6cdz1Z/gaB ++NP3pCIahEe8nRV8/gYdtz5pLVVMg1RDsd6OhDfIj10RYlRKAyvvkeoAnzeo +ZSZwrKiCBhckUoQc/32D3NbzJgS9J94n1r0ksKIGlWnS10n10CBrISomvqEa +GSYaDBz9QwN7y6Kc5+uq0O+JM9I3VmkwKJxyH2YrUabG1TN5f2lQUlRov6ej +EpHaM75QOOkQ1S3+LjC+EpVtwKZ7MTrkiqoqqylUIiWvyr82fHQYb/fvEj5Q +gTaZqMtcpdNhcue5Ctu4MtTMI3Xu8X46/Dr9QsvfvwSpbR+4WHGADoqeixfC +HUpQ7JkErz4DOlyqW7MqMClBZ0vFQimH6DBbnm6uKl+C5i9QS4KN6NAgvU9/ +rbUYSXzk53OxoENmR92nHvli5BjN/VrbiQ6jVwvmdn0uRBj9myD7Ph1i33Ec +4ridj2p2a95aCSOe53/6k7dHPvI7HrIiGEGHdw0mwdj5fLR0+x/23ig62O7l +tdDRzkcTP64UJMXSQergN0e71TzUXP7b1PIx4es9aL9HHoo135TYlkuHYc+8 +FyyXXLQlXEWuuoOop+Zj+5awl+hGwZjeTCcd3vJ6ZrwIeIm6exJtpbvp8Ljw ++uG9V16iIPqmdN9eOvBKSU/dM36J+vPGmZpDdLB+/lGugfIShXY+pueN0+Em +thz/QOsFmhEXlkpboUO40u+Sbe7PUX76knAwjQHR9Sf05ZSzUXWW6eoTOgO4 +wrSThanZqPlZ4ZcKBgNeuzQEUjiy0XiuW+EciwG0pO5nRm1ZSKJyxvS0IgPc +AzW6X3lmoaCu8bidagx4GfRjL+ldJjLh6ZEZ02XAhmPHVm47Z6BZhxIlHXsG +iI8dzphZTkWxnn5V7g4MUDp0Z6XiSypCN3WOZToygDI4SEluTUV3k5u8N19k +gNYoh2VcViqS7Rr50HWFAeQ/u60uWqQiC90NDk7eDFgcPCnhX/kE1UhZpkWH +MuD7WPbcaEwKivz0R3I8nwEJHHLtpzyTUUSziTilkLiecNPypV0yCqvPFtEu +YsAOLY8zfGbJ6G6lmVBCCQNCsqQLlzSS0c2n+TxHKxhgGZwI0wtJyDPQ6VfR +ewao1t3g3UpOQpZq/XW3ehlw1bp6v8KuRMSIfO0qx8GE3aWGwz2TD1G3U+ku +4GTCttq66sz2hyhUr2TNjIsJ69Gm7pDyh2hpuTDkDokJcyjgVOj9h6jxdO6T +7zxMgGkFLFD9IXJTzvqUJ8CEwEZjZYkbsehtfYwaMJgQpP08K2HLA2TH4fLL +TI8Jth1mym75UaiQ3WkTrM8EMfOdytrJUYhUv7uzZD8TjO/JODHuRqGUcKxE +zJAJtYzrltI2Uaif/tCv/wgTbtk1S64IRyGjfVXrT5szoYHXbZPatUi0+w6v +jJ0TEyrX63soG0cgPuGnB90jmLBZVlStVT0MCXcV/RceyYSlp9IRv1lhSCyu +tup5FBN0IrJhGzUMMWUG1cdiiPpFd5Xd/XUfaSoJSJrGMyH7gEWuhP99ZKvr ++V0jlRhP36Iejw9FFW46oX8KmGAlsKmg+8td5NTR9zGwhwkXq/KvLFQHo/qb +11zjeplQllftU54djGR3iFJf9TEhKTCT+jAyGI3EnLAeHGCCvPbBwnvng9EJ +s9YpjVEmHJkRfOq4IRihvnfrpyeYsL2Drc02vY0ER17pmP1hwgnHo+GnOG+h +oqlbRUrSLPi+4GszfScI5WTcJVvKsIB10dXijUcQSj0bfjyYxoLXN8Ybn54N +QhHdcb++MFjASf45UKgZhJxqn6skybPgaopHbt5kIKInfMoQUGUBe+Oko4ZR +IAo1lI5d0GVBTOLjsF8KN5BtdqFXlSMLnnFJz4XyBiBh3XNhvRdYkJseVhO9 +5o+qB/gy55xYYLfNzkZ+1B9JCDh0yV9mQdPos6TEDH/U5im+I9yVBVKRNqff +qvkjtC/g1xkfFpwQKcieP+qHRIYPXOIOZUHOR+yS5iMf9O7qwk3J+yzYNxSc +Oxjog1yFniTuDGNBXVnwVJyDD2rW+9N4IYIFiSbFkxbbfVDQ85wt7TEsOKv0 +6+1CkzeauSb0LTWJBRrzbo9CuL1RPWXgnN4rFshemFGI97+KJtw0Da7nskA9 +2vGA5fmraEP7g61leSwou+ImusPwKjKIMF7dVkjUu9R5ejf1KvrAWxcj+Zq4 +P6c16/pLL9S4Lq9+rpYFRg7pp8a+eqLm5dsqT7pZMJAieuCUgweaNhujDPaw +4OeyV5OOsQfiLdb5I9LHAjfZkkG02wMd9vhbFzrAgh0F6Qf8Nnugj7OuZ6+N +siB0b3WuQJ47apm0jjaaYkGakG2mH5c7mjEo8777nbi/xUu6dcoN8WeLnn0/ +zYIen6b8XV1u6Kh9u7LWTxZM3okbOfjMDbWyD9TJL7DgxcrGfi9TNzSrk5Fz +bpEFLUqD/Ve13ZDgE1L0oyUW7N7bfzDsHzdkfKbyjPAKCz7O2zBXud2QS5XE +/iN/WPCfj/wZkx+uKEL6mvKdVaJ/d4OLKnpdUa5fl/Dbv0Q/CswE0TtX1Dag +vrK2xoLHWt4n21+5ov8BAsGFNA== + "]]}, "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., 2.7645311207418275`}}, + "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:eJwV1nc8Vf8fB3DjnpuWfc+1ucvKl0IlffV5hyhaqKxoyUolu8yib0nJTkYk +u1LZZKciI2RvuklIkpnkd35/3cfzcc49n/d5fz6f1+fQzl42Ps/FwcFhzcnB +8f/fk7ox6zk4+KH+j8uGD/W/0LC2c7sqFz+sui/0crX+Quf2GiSdJ/ED++DP +atT9Cznu+avewMMP6RkDLW/HfiEvDdvTMQL8EIVXDHOR5lCU0o4iJQY/pJqD +MqA51CjcaWOuxw/ll5K/VxfPoX+/UKpy7/KD3c5O7qyiecRui1PYzRKAm2mF +FslCS2hOnO9rRp4AkL0bv0T5/Uaj/NcuHkCC8HvAdMafexU9MJ5Ir+oUBB2e +3JjDHWuo4McBdQkbIchm201RNTkhvifH7dCqEPxmuNv0RHGB9eUNfnmRwtDx +37H+pvfcwIj3z2BHC4PmTr7F2QZuGH8310KJFYZufRczSgs3XJEaYnglCAM0 +qY4adXNDUFNe/b9pwrCETxRmjXND1hYryrtCYRhaVxbZykOCua8vnnX3CIPR +YFPnpB4JSoRYnev7iedT10flGZDAD8WtaQ4Kw/nFe6peh0mw7kGQceKoMJRb +qKxbOk4CMT3zpTOTwvB21rCk1YYEKJVLd/IPUe9UbNzEdRLcOX28b1WaAu4m +9OuJJSS48TjG0ppOgYeLegq65SS4NtrVV8GkwPbLFYVjVSRwsLHo91egQAK2 +11W6jgT77U8NcKpRYHTWj/dUJzG+s8MQpkeB+UDfIqFZEgT5+37e7ESB3T6h +jZqyGPhUVZy7dIkCoa9Hz5oqYODGycFudqbAPpOkK5eVMDgXeIN9350CQq8e +TYarYqB969YXAX8KlBukLiftwYDjfvhXSgQxflh1/cBxDHwfpU1KFlPgYFmG +fUMABqMJO1aPl1JAkNnqJBuIwf7497yhZRQwaw1U8r2JgWDst21/qyiw9VVb +h+QdDDLD//EarKeA8fEfkVsiMWgPKiAl9VHgGnvoq0cqBpqBenjXAAXihhLT +76ZjkHS9S45vmAK/FZPXEjMxcPRbNvBnU+Dk2wdeec+I+ry0wk99J/xG5mhW +PgZbLryVlFmjQMZK1I+KNxiEOZxQMePEoe2xyaV7bzFYsPsKYdw4eHLddjB9 +j0GVzXobDh4cxl5ZNg98wOCE9aHsYX4cAj0rafmtGNww6tjxmI7D01BBn5uD +GIwfsd3fw8RB9+bU0oZhDA4dXjQXkMPhJ5u3O2QEAxFDUd/rW3DwMmQW+bMx +yNG1enNGHYcnWxU/qkxg0LPzyxG6Hg5/F3/IvZzDYJo/Tv3IfhxGprPn2fMY +cE0cFvUxwKH40449lEUMlBKKRzsO4yBUtqxpv4xBAMdd92BTHB5+DajpWsUg +ugcsCs1xSFr9u2/8LwbZufN7PlviEP1FYvfcGtFfm1M8WqdxqHnPdv/LSQb5 +etX4GXsclo4o8vdjZNBK+eoveQGHQ18FuevIZDD2TrAxuIgD57LJqRfryODz +D1k59QoOAZ85jzqvJ8PH8J4q02s4fHjfuFi6iQxsx9C0IB8cSg9Ji9/YTIYl +HZ07r/xwmPG7nKzLSwb6wjOTjYE42O1JaXrNRwYPi4CxihAcUvWOxbsIkiFE +bXvD5D0cbKR9i4SFyJC8aeKFSBgObnU7VXIJf6gwueoShYM35qY8JEyGoQc8 +1kkxOGyvvZV/iUKGOedy7cZYHO5lG0UuE5ZkyG2STST68em4GSeVDKp/+maM +k3CI9QctP8J6HWEd/o9xMJfT9log7Hzr96OeNByEfwpPd4uQ4ebpF4HkTByG +2/PldETJELfLxl4tG4cbu9YXZBKunWzadi8Hh96BmLrzYmToqb2Bl77EQfpI ++aFywtOJO1fGcon5TnNh8ouTgdtzakioAAcDrp0HrQmLHH1cC0U48JqG1mYQ +/kfhRNbFEhzi7TjuTRHW5toYGvcah7f1ImlKEmQ40Vfp8r4cB9aY7SZ7whfy +3UznKon1u+Rb84hwwD2Ff2k1OCjxz79rIRxlOyhzuJb4P7+d6F/CWSgS836H +w8lclxJZSTJUiOyfyKjDYfR6aboB4U8//zS3f8Ahe4Q97EB4/MOrPM4mHJLX +J9gFEV59Yhur/BGH/HWhmnGEBX3FfS1bcZCrcjJ/StjiQkJx0SccvslGxBUT +TjGXnBPqxKGEM8SoivCE/iMV524cNo9y+dUQVt0hfaGxl+jHs2zpSsLXmMnp +8gPE+nygsaOQcI0gbTRoCAdlFfvqDMIbOFMkR0aIfh/9XRVJ2PgH3VyLjUO6 +coH6NcJxA0+iHo7h4HrYRsKS8GgDs2V+HIfl4G7PHYQVS9M2Gk/iQOIb19tE +2CVTVj/nOw5mpy4F9xP9KY3JuLFhhsiHowdRBmGum/IVtrM4GG+2t3cibOCa +tVwzh8M1week/89HxBnF7dKLOHRv2yQ8RsxX75Gnzt7LRF6EecfEEabvUXrW +tYLDSvpCyAHCuWLKjDAOKpzwFWmJIdbHb54X1lNcVBBtapHaTlh7USVuP0aF +gV9Fw03E+mr7tE2AcwMVKi86V0wT61GsJveg1SYqZA759noQPvtS7XYJLxXO +nVd1XCbW7+zd7WtXhKjgZ6Xz5TtOzI/eru+jElQIFBE4GkXsFwv1UnkkTQW+ +jXv4Zoj9lELfbRNPo0LMGU5dPcKqa//2mchSYfZ2Bt+oANHfYqivVaHCSJO0 +Zhexf+PSq0k0VSrs6b/9kkx4NEobfNWpIL/tQ9JWYr+7XNEt2r6LCjNlvROu +G4n+KO5PS9emgslHH+1iIj96ReqHufZRwTOrMfQ1kS/0dQYSp/SJ+vffMish +8if3s2Ek9SAVtL2/2aZyE++fcOT67eNUePpbK1CDyC8hPlMrR3sqVPfxO5oT ++VhXKqf4yJG4/jWnX5zITz/bpYVWJyoce+Yd2jOLwUT5w7BdV6jQrNadqzdD +5LtT/xuea1TIvTNPGSfy99KHM4oZIVRQ/cnYvH8IA6aH6mLvPSo8XhHqqxgg +8pnGXcsbRoU7Uw0LW/sx0L2aauURRYy3pVJ8XQ8G4vJfw/YlUiEjuWiXdxtR +z02nxc85VHhNOVkTWEvUs02rlvqKCu3vs3++qMFAbWBzuGEeFbZE0653VWHw +SP2FYl4RFRTmk9+KlGPg/vmn1Y0qKsQtEAdRAQb0vZ61Mm1UGHrV8lQqjTi/ +/1wPt5qngndhYrTydQzOl0sVVC0S/Q9I6Y72w+Cw3+tuxm8qHNlYwV70xkCa +Y1564i8VmMkLp595YFDDbZ/jwSMClboJcl0XMODZeLjhvrgIrIuVmt5OnOdR +omJYzV4R0Ol+c1CBSZzvvYXyLF0R4MjV1ZmWwcA23uTgbT0RGE3VNsqRxGCn +5L3Iw4YiMHIuuUKaikGvDAe975gIfPJXUapbj4GM/NieOTsRoMDmD9umSfB8 +R66XbKgIiCZ3xvjkkUCvzeWyX5gIMNdnrb1+QYLBi2q2nREiIF2Wz7P4lAS8 +afkm/z0QAVPf8HWnU0lwSahIeSxZBHbCm81/o0iwdeY1Oy1PBM7ao59O7iTI +z3p7lNUjApnYN3MlNRKUSfTIM5miQI+TqJ5K4YYa928vTWRFQSMkts3/ETfU +NS9rBMqLglDKSgtfHDe0B4gdGFUShfQQ42TZcG6YZFs6JG8Xha1J9/tV/LlB +7PlgloS+KKQ+WueYZ8ENXlpsRYqjKBhVTfBF8XGDmvUPJfJLUYjEpl/aX+EC +l6kN7HJ9MTAMDfPL/MMBop2UH+YdYmClo3K6lG8N3d4k+7zhkjg82yv/YeTj +CuqYVlJ3wSTg48gEwyllCd1RYvCthkuAnNVqyuY382hdkVSilaIkGL/ZvGe4 +ZRZNJaz3TymWBIzmfKhUdwa9UJ5UkNCVgsgMtcne5Um0a3PbrQt9UhB69Jlo +252vSEk/c1eSvTTx/X6AzcX+jH6N7T3SziEDgaySpwyXYYQ4ttj+MpSB91a4 +ArdYH0LvN2aQImSgKPWe5Vb/TjR3zP2BeqQMiB/y29bg1ImyRwdv2UTJwIaW +SA5Xi06E/31lXxsjA8MhT52/be9EU+pmikHxMvCqtfeL8/cOFJuS+pw7TQZ+ +WmTfZVt3oJ++WvlcxTLwpsV2aZthO3qifrmaY1AGSHsfKf/Vb0P8jwOuSQzJ +gAPP7ZGsXW3IZ3OEmsawDEimt/ue2tKGjo3lp10elQHew4NW47xtiBz7O3hw +TAbSDeoVnTtbkcPKTeOyHzLg7RvnYmLXilRqEj57ctKgVfHjK92wFvT6yAfs +B5MGvFrNCfYrTSgg66I8JksD69ccs/2fm5Aut4ChuBwNHqCK0TONTaix0DRM +X4EG1aO+VxITm1C/5Bex5H9o4FqIoV5oQn8m11SMdtBgqdn+6tk7jWjP7e0W +efo0cDZ5NOKk0IBqqpJzPB1psM/I8PrF6Dokw8r2SbtAgxPHokuEA+qQb3Ce +wScnGnzTkexsdKxDGsbvxpQv06COP/j+ZahDLz5PSo250kBjVbbZd+o9SiDv +vH/MlwbHSJ978/TfI8+DTZe3hdFA4N0NYc0N75BS9/LWyQIaSO6cdz1Z/gaB ++NP3pCIahEe8nRV8/gYdtz5pLVVMg1RDsd6OhDfIj10RYlRKAyvvkeoAnzeo +ZSZwrKiCBhckUoQc/32D3NbzJgS9J94n1r0ksKIGlWnS10n10CBrISomvqEa +GSYaDBz9QwN7y6Kc5+uq0O+JM9I3VmkwKJxyH2YrUabG1TN5f2lQUlRov6ej +EpHaM75QOOkQ1S3+LjC+EpVtwKZ7MTrkiqoqqylUIiWvyr82fHQYb/fvEj5Q +gTaZqMtcpdNhcue5Ctu4MtTMI3Xu8X46/Dr9QsvfvwSpbR+4WHGADoqeixfC +HUpQ7JkErz4DOlyqW7MqMClBZ0vFQimH6DBbnm6uKl+C5i9QS4KN6NAgvU9/ +rbUYSXzk53OxoENmR92nHvli5BjN/VrbiQ6jVwvmdn0uRBj9myD7Ph1i33Ec +4ridj2p2a95aCSOe53/6k7dHPvI7HrIiGEGHdw0mwdj5fLR0+x/23ig62O7l +tdDRzkcTP64UJMXSQergN0e71TzUXP7b1PIx4es9aL9HHoo135TYlkuHYc+8 +FyyXXLQlXEWuuoOop+Zj+5awl+hGwZjeTCcd3vJ6ZrwIeIm6exJtpbvp8Ljw ++uG9V16iIPqmdN9eOvBKSU/dM36J+vPGmZpDdLB+/lGugfIShXY+pueN0+Em +thz/QOsFmhEXlkpboUO40u+Sbe7PUX76knAwjQHR9Sf05ZSzUXWW6eoTOgO4 +wrSThanZqPlZ4ZcKBgNeuzQEUjiy0XiuW+EciwG0pO5nRm1ZSKJyxvS0IgPc +AzW6X3lmoaCu8bidagx4GfRjL+ldJjLh6ZEZ02XAhmPHVm47Z6BZhxIlHXsG +iI8dzphZTkWxnn5V7g4MUDp0Z6XiSypCN3WOZToygDI4SEluTUV3k5u8N19k +gNYoh2VcViqS7Rr50HWFAeQ/u60uWqQiC90NDk7eDFgcPCnhX/kE1UhZpkWH +MuD7WPbcaEwKivz0R3I8nwEJHHLtpzyTUUSziTilkLiecNPypV0yCqvPFtEu +YsAOLY8zfGbJ6G6lmVBCCQNCsqQLlzSS0c2n+TxHKxhgGZwI0wtJyDPQ6VfR +ewao1t3g3UpOQpZq/XW3ehlw1bp6v8KuRMSIfO0qx8GE3aWGwz2TD1G3U+ku +4GTCttq66sz2hyhUr2TNjIsJ69Gm7pDyh2hpuTDkDokJcyjgVOj9h6jxdO6T +7zxMgGkFLFD9IXJTzvqUJ8CEwEZjZYkbsehtfYwaMJgQpP08K2HLA2TH4fLL +TI8Jth1mym75UaiQ3WkTrM8EMfOdytrJUYhUv7uzZD8TjO/JODHuRqGUcKxE +zJAJtYzrltI2Uaif/tCv/wgTbtk1S64IRyGjfVXrT5szoYHXbZPatUi0+w6v +jJ0TEyrX63soG0cgPuGnB90jmLBZVlStVT0MCXcV/RceyYSlp9IRv1lhSCyu +tup5FBN0IrJhGzUMMWUG1cdiiPpFd5Xd/XUfaSoJSJrGMyH7gEWuhP99ZKvr ++V0jlRhP36Iejw9FFW46oX8KmGAlsKmg+8td5NTR9zGwhwkXq/KvLFQHo/qb +11zjeplQllftU54djGR3iFJf9TEhKTCT+jAyGI3EnLAeHGCCvPbBwnvng9EJ +s9YpjVEmHJkRfOq4IRihvnfrpyeYsL2Drc02vY0ER17pmP1hwgnHo+GnOG+h +oqlbRUrSLPi+4GszfScI5WTcJVvKsIB10dXijUcQSj0bfjyYxoLXN8Ybn54N +QhHdcb++MFjASf45UKgZhJxqn6skybPgaopHbt5kIKInfMoQUGUBe+Oko4ZR +IAo1lI5d0GVBTOLjsF8KN5BtdqFXlSMLnnFJz4XyBiBh3XNhvRdYkJseVhO9 +5o+qB/gy55xYYLfNzkZ+1B9JCDh0yV9mQdPos6TEDH/U5im+I9yVBVKRNqff +qvkjtC/g1xkfFpwQKcieP+qHRIYPXOIOZUHOR+yS5iMf9O7qwk3J+yzYNxSc +Oxjog1yFniTuDGNBXVnwVJyDD2rW+9N4IYIFiSbFkxbbfVDQ85wt7TEsOKv0 +6+1CkzeauSb0LTWJBRrzbo9CuL1RPWXgnN4rFshemFGI97+KJtw0Da7nskA9 +2vGA5fmraEP7g61leSwou+ImusPwKjKIMF7dVkjUu9R5ejf1KvrAWxcj+Zq4 +P6c16/pLL9S4Lq9+rpYFRg7pp8a+eqLm5dsqT7pZMJAieuCUgweaNhujDPaw +4OeyV5OOsQfiLdb5I9LHAjfZkkG02wMd9vhbFzrAgh0F6Qf8Nnugj7OuZ6+N +siB0b3WuQJ47apm0jjaaYkGakG2mH5c7mjEo8777nbi/xUu6dcoN8WeLnn0/ +zYIen6b8XV1u6Kh9u7LWTxZM3okbOfjMDbWyD9TJL7DgxcrGfi9TNzSrk5Fz +bpEFLUqD/Ve13ZDgE1L0oyUW7N7bfzDsHzdkfKbyjPAKCz7O2zBXud2QS5XE +/iN/WPCfj/wZkx+uKEL6mvKdVaJ/d4OLKnpdUa5fl/Dbv0Q/CswE0TtX1Dag +vrK2xoLHWt4n21+5ov8BAsGFNA== + "]]}, "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:eJwVV3c8Vu8bNt7zpmW/57V5l5UvGS199dwhihYqK1qy0rLLLPqWhuxkRLKb +NmVTyAjZK/QmIckW8ju/v87n/jz3ue9znue67ut6aGcvG5/n4uDgsObk4Pj/ +86Ru1HoODn6oW3He8LFuBv37jVKefZ8f7HZ0cGcUzCF2a4zCbpYA3ErJt0gU +WkSz4nzf03IEgOzV8C3C9w8a5r9+8QAShD/9plN+3KvokfFYanmHIOjwZEcd +bl9Deb8OaEjYCEEm226CqskJsd2vXA+tCsEfhptNdwQXWF/e4JsTLgzt/x3r +a6zhhrunj/euSlPAzYR+I76IBD5PUsYlCylwsDjNvt4fg+4d347Q9XD4u/BL +7s0sBoI+4j6WLTjIlTuZP5ckgxCfqZWjPRUqevkdzecw8F65EWo1RwWv/PhI +5RsYvNye7SkbLAKiiR1R3jkkKJbolmcyRYEeI1ExkcQN6ta/lMhvRCEcm3xj +f5ULnCc2sEv0xcAwOMQ3fYUDRDsov8zbxcBKR+X0W741dGeT7Mv6S+LwYq/8 +x6FPy6h9UknDGZOAT0NjDKekRXRXicG3GioBclarSZur5tC6Aql4K0VJMK7a +vGeweRpNxK33SyqUBIx25dBb3Sn0WnlcQUJXCsLT1Md7lsbRrs2tty/0SkHw +0ReirXe/IyX99F0J9tKQbH6AzcX+imZG9h5p45CBAFbRc4bzIEIcW2xnDGWg +xgpX4BbrRahmYxopTAYKkh9YbvXrQM80LldwDMgAae8T5b/6rejdkY/YLyYN +eLWa4uyXG1FleeIrD0ca7DMyvHExshYpdS1tHc+jgeSOOZeTJVXIMN6g/+gK +DewtC169XFeOmnikzj3dT4eZ06+1/PyKEEb/Ich+SIfoDxyHOO7koi2hKnIV +7XRIr/zUtiXkDcpNXRQOojEgsu6EvpxyJpp2KFLSsWeA+MjhtKmlZBT+eUVy +NJcBcRxybac8EhEj/J2LHAcTdr81HOwef4zsOJxnzPSYYNtupuyaG4H4hJ8f +dAtjwmZZUfUWjRDk1N77KaCbCRfLc6/OVwShgonbBUrSLPg572MzeTcQ2Wbm +e5Y7suAFl/RsMK8/qqP0n9PLYoHshSmFWL9rqLVfY3ltjQVPtbxOtmW5oAbh +DhtzPX4ouZT4s6JwFs1+f/2iq1sYjAYaO8b1SBDo5/N1sxMFdnsHN2jKYrDl +wntJmTUKpC1H/CqtwsDdwn+k9B4OyXrHYp0FySCot+vnsAQVAkQEjkYIk6H2 +ltPC11dUeEc5WRlQjUGEqBhWuVcEdLqqDiowMcjNeH+U1S0C6dgPcyV1Enhq +sRUpjqJgVD7GF8HHDb99tHK5CmWgqtl2UdWwDalUxn314KRBi+KnLN2QZrTn +zjaLHH0aXDF5MuSkUI88DjZeVg2hgcCHm8KaGz6gYk36OqluGmTMR0TF1leg +TSYaMtfodBjfca7UNqYYOUZyv9N2osPwtbzZXV/zUbT5pvjWbDoMeuS8Zjln +oylxYamUZTqEKv0pUnV7iUx4umVGdBmw4dix5TtX0lCllGVKZDADfo5kzg5H +JSFL9b7a2z0MuGZdsV9hVzx6XxelDgwmBGq/zIjb8gjtvssrY+fEhLL1+u7K +xmGo1FUneCWPCVYCm/K6vt1HgkNZOmYrTDjheDT0FOdtFGwoHT2vy4Ko+Kch +Mwo3kcjggUvcwSx49Qm7pPnEGzUt3VF51sWC/iTRA6cc3FGE0vYCJQY/wR9Q +BjSLMrZYUT7kC8OXdcXhLTwkWHfF4QumR4G5AJ8CoWkStAXmkRJ6KXCd/eW7 +ezIG8nVqsVP2OCweUeTvw8gQdkZxm/QCDl2qm4RHxMlw6eMZxbR7VFD7zdi8 +/wsGPBsP1z8UF4F10VKT245jsHXqHTslRwTO2qPfTm4kEHs5kCGhLwrJT9Y5 +5lhwQ3RS8kvuFBn4bZF5n23djhyWbxkX/5IBL58YZxO7FrQyvqZitJ0Gi032 +187ebUBx5B0Pj/nQ4Bjpa0+Ofg1yXc8bF1hDnHe0W1FAaSVS8iz7a8NHh9E2 +v07hA6VI4hM/n7MFwcf22s/d8oWoqeSPqeVTOkjd6Eb73XNQcMdTes4oHW5h +S7GPtF6jwM7RmB3qDHgT+Gsv6UM6stDd4ODkxYCFgZMSfmXPkEeA00xBDQPU +am/ybiUnIFfljM85AkwIaDBWlrgZjYz2la8/bc6Eel7XTerXw5GtrsfPnclE +rG9Rh8cGI9T7Yf3kGBO2tbO12aZ3ED3uc5qAGgvYG8cddxoFILTPf+aMNwtO +iORlzh31RQ3rcupmq1lg5JB6auS7B0LJXLrjK4R+TETHjN0gAcfD0O+UMArE +hVTU9RP7fdOofftTOg7PgwW9bw1gUD3eqPrgFQ49/VG158WI81Pcn5KqTQWT +T97ahevIQN/rUS3TSoUvWc3PpVIwkJEf2TNrJwIU2PxRdZIEU9eFfiQnsGDn +nOuTe9xeqHncOtJoggUpQrbpvlxuyHOn7ekoAX6IwEsHuUizKLAxp+7fFGFY +xMfyM0a5Yb/9qX5OdQoMT/vynuogQXroP54DdRQwPv4rfEs4Bv4c992CTHF4 +/N2/snMVA+NfdHMtNg6pynka1wl9K3fqq+K5ToXsu3OU0TEMKrntX7nziECZ +bpxc5wUMLgkVKI8kisAOqNr8N4IE42xLh8RtorA14WGfih83TGiYKQbGykBW +S8+3Kz/bETn6T9DAiAykGtQpXuloQX2S38QS/6GBSz6GeqARvf46LjXiQoOd +q7JNPhM1qHkqYKSglAYXJJKEHP+tQsUbsMkejA7ZomrK6gplaO4CtSjIiA71 +0vv011oK0divq3kJ0QS+Dv5wtFvNQX05o0zNL3SwfvlJrp7yBkmUTZmeVmSA +W8DOriyPDCTbOfSx8yoDyCu7rS5aJKNbz3N5jpYywDIoHibnE1DD6exnP3mY +AJMKWIDGY9RHf+zbd4QJt+2aJJeFI5CmkoCkaSwTMg9YZEv4PUQnzFomdg4z +4ciU4HPHDUHIqfqlSoI8C64luWfnjAegVg/x7aEuLJAKtzn9Xt0PfeStjZJ8 +xwKNVy0ZN954IjE988Uz48LwftqwqMWGBNq3b38T8KNAiUHyUsIeDE5YH8oc +5MchwKOMltuCgSRDbpNsPA4Jn4+bcVLJYFwIddUqVBhqlNbs5CWD29ffVjfL +qRAzb7PeJg+DHhkOeu8xEfjsp6JUux6DwJevtrRFseCs0sz7+UYv9Gna5ez1 +YRYE763IFshxQxyeWqGnflLgZJXM0YxcDD6FdpebXsfhY03DwttNZGj9rCrA +uYEKZRevlE6KkEFc/nvIvngqpCUW7PJqxeCVrlXVGQ0cnm1V/KRC4OdCrqvp +bBkOHos+lU8kiPfjjty4c5wKz/9oBexcw6CFfaBWfp4Fr5c39nmauiLHPX81 +6nn4ITWtv/n9yAy6KvWF4RknDNCoNmzUxQ0ONhZ9fgoE/7C9LtK1JBCM/qH6 +t5wCW7Na2yXvYqAUVzjcfhgHoeIlTfslDNS2S19o6MHB4EWmdBmB77GSxyG7 +rlKhSb0rW28KA2mOOemxv1RgJs6ffuGOAW9Krsl/j0TA1Cd03elkYj77ix0Y +VhKF1HvGibKh3ID/zbKvjpKBwXvPr/zY1oGOjeSmXB6WAd7DA1ajvK2oId80 +RF+BBhXDPlfj4xvRTuMPI8qXaVDLH/TwMtQiX3bpPaO3NLDyGqrw965CpLa0 +bxROOkR0iX8IiC1DZ9+KBVMO0WG6JNVcTb4ILd75h703gg62e3ktdLRzUSB9 +U6pPDx14paQnHhi/QaPZrvmzLAbQErpeGLVmoPuJjV6bLzJAa5jDMiYjGd0v +MxOKK2LAvQzp/MWdiWhxKf/eXRITZpH/qeCHj1FSKFYkZsiEasYNS2mbCMSU +GdAYiSLmq+iu4vszD9FQ1AnrgX4myGsfzH9wPgiFdcXMfGOwgJP8uz9fMxBJ +CDh0yl9mQePwi4T4ND9kEGa8qppP4H2x4/Ru6jW07lGgcfywMJRYqKxbPE6C +cwE32Q/dKCCU9WQ8VA2DcgKmHDw4jGRZNvV/xOBjqck15wgcvDBX5S+Ef1Fb ++7fXRJYK03fS+IYFyPBE47ViTgEVFOYS34uUYLBD8kH4YUMRGDqXWCpNxaBJ +b6XhQhgL4k0Kxy22eaPD7n9rg/tZsD0v9YDvZnfk6Ltk4Mcm8P3+kWfOC8K/ +/0NWTr6Kg/9XzqNX1pMhW0yZEcJBhRM+Is1RxPzWvZZs5R5B4HVLmfi6bgxE +DEV9bmzBwdOQWeDHJuKjT6uhAAde0+DqNEKfs78ahlMPUkHb64dtMjcZjtq3 +KWv9ZsH43Zihgy9cUZvNKR6t0zhU1rDd/nKSwTldVv/VTxzMTl0K6iP4ceX2 +nyfdKTgI/xae7CL45XxVt2DbLipMFfeMuWwk9GP+hcnGABzs9iQ1vuMjw/T9 +bWtXhajga6Xz7SdOhlKR/WNptTgM33ibakDg3fhM2RnhZRZ8mrNhrnK7onN7 +DRLOk/iBffB3BeqaQaMfZpsp0cLQpe9sRmnmhuvDnb2lTApsu1yaP1JOgv2x +NbzBxRQwawlQ8rmFAdfYYVFvAxwKP2/fQ1nAIMlcclaoA4cizntG5UQ/X9vF ++RYnKhx74RXcPY3BYd93XYw/VDiysZS94IXBwEV1244wEZAuzuVZeE6C2qal +nQHyoiCUtNzMF8MNmcMDt20iZGBDcziHi0UH8t4cpr5zUAYkU9t8Tm1pRbrc +AobicjR4hEqHzzQ0Ip+gHIPPTjT4oSPZ0eBYi45bn7SWKqRBsqFYT3tcFUrf +ee1Mzl8aFBXk2+9pL0PRZ+I8ew3ocKl2zSrPpAj5Hr+3LBhGhw/1JkHY+VzU +1R1vK91Fh6f5Nw7vvfoGNb3I/1bKYMA75/oACkcmQrd0jqU7MoAyMEBJbElG +IXWZItoFDNiu5X6GzywRBesVrZlxMWE92tR1r+QxItXt7ijazwTjBzJOjPsR +SCymuvxlBBN0wjJBlRqCZLeLUrN6mZAQkE59HB6Eks+GHg+iseDdzdGG52cD +UUU/X/qsEwvsVO1s5If90Ia2R1uLc1hQfNVVdLvhNeSLYtY0B4Th/MIDNc/D +JHDl5GA3XaHAPpOEq5eVMJi3+w4h3MT85brjYFqDQeKmsdciITi41u5QyRYi +QxJ9t00sjQpRZzh19YhYvX9zqGEOFbZE0m50lmNgG2ty8I6eCAwnaxu9ksTA +RehZ/I4QFtQWB03EOHgj3kKdFZFeFrjKFg2g3e4o4UanHN8gBf4oJq7FpxP+ +wivOxuAiDpxLJqde/9//7FF60bmMw3Lq/L0DBF+6adzVvCFUuDtRP7+1D4ND +hxfMBeRw+M3m7bo3hMFk/I7lkWxCT1KcmfxEPn2dgcQpfSqc23/brIjwx/yZ +omdrJlnQ7d2Yu6vTFWVmz+35aolD5DeJ3bOEvgzXM5vnRnFYCury2E7gU689 +pN3vKQ7mctqe84R+Dkdog48GFeRVPyZs3UyGRR2du1m+OEz5Xk7UJfT07Bv1 +O0W8RL/zao5LRH6E7YDM4Woc3vPbif4l+Cr4jBT5ZJEFu/f2HQz5xxVVCtKG +A7/goKxiX5FG9Ju9UqLdEI3Dg0yj8CUKGbQXVGL2Y1TonykYbBQlYq6NwTHv +iHp1IilKRD2uW/KlttM4GG+2t3ci4phdNvbqmTjc3LU+L53IH/2YlcPZiEPi ++ji7QKJ+mPR15burxP3yflBBaY8LGtS+0qbGxQ+rbvM9XC0ziBHrl8aOFAbN +HXwL0/XccPNplKU1nQKPF/QUdEtIMBy3ffX4WwoIMlucZAOI/eaP0TiyH4eh +ycw59hwGFhfiCgs+4/BDNiymkOhX+1ZO8YkjMQ+/v+oTn8XgfIlUXvkCsX/+ +SV2RvhjotTpf9g0RAeb6jLV3r0lQ6fbjjYmsKOy8F93q94QbZo+5PdIIlwHx +Q76q9U4diP+p/3WJLzLgwHNnKGNXK/LPuCiPydLA+h3HdN/XRiTDyvROuUCD +E8cii4T9axGIP68hFdAgNOz9tODLKvRn7Iz0zVUaDAgnPYTpMqS+rf9i6QE6 +KHosXAh1KEKVuzVvL4cQeup3+rOXey66mTeiN9VBh/e8Hmmv/d+gigzT1Wd0 +BnCFaCcKUzNRtIdvuZsDA5QO3V0u/ZaMwppMxCn5xP0y7pblG7tE1OX0dhdw +MkG1urYive0xymd32ATpM0HMfIeydmIEEu4s+C80nAmLz6XD/rBCUN2t6y4x +PUwozqnwLskMQq/S7pMtZVjAuuhiUeUeiIR1z4X0XGBBdmpIZeSaHxpz1TS4 +kU34w0jHA5bnr6EiIVbH+j7i/KjrI3IMSOBdXnru0iUKBL8bPmuqgEGIwwkV +M04cWp+aXHrwHoN76tvqxx/gYCPtUyBM8NlC4608kqYC38Y9fFNE7KuqVU3N +okJbTebv15UY+PTky7N0RYAjW1dnUgaDD9fmb0k+ZMG+L0HZAwHeaNJshDLQ +zYLfS56NOsbuSDNAD+/sp0DMl/jU+6kYaCV995O8gMOh74LctWQy9Bx5fsVr +ifCrIV5RMQRfme5qCz0PqPB0Wai3tB+D0SO2+7uZOOjemljcMIhBd/VN/O0b +HKSPlBwqIfS2R6RukGsfFTwyGoLfEfWmDIq97v8k9LvZU7plwhVFdoNFvjnh +f1f/7hv9i0FM/7OIxyM4uBy2kbAk8Km20jtlnIBDtB9o+RJ8jUmtINHUqLCn +784bMsFntmNwSqA3Dm8PSYvfJPguVpl90GoTFdK/+PS4E3rr/0DhX1olDkr8 +cx+aCf5N66S9OrfAgmalgb5r2q7oOjMxVb6f0O9HO7fnE/2+POKxTojCYVv1 +7dxLBL//8Ly2nuCigmhjs9Q24n/+UTiRcbEIh1g7jgcTxH68jUq7uWGKOK+j +B1EaUf/W6dcB5HQcBtty5XQIfn/+vdLU9hGHzCH2oANR37lcYv+RFRb85y1/ +xuSXCxrTf6JypQuHzcNcvpXEOrfHxBehPMLfcu04aE3UV3ybstF4HAcS36je +JmI9A4VjXh9wOJntXCRLxBs4kySHhoj76dE/5eFEfKK3zLmmBAfWiO0me+J7 +DFwylipncbgu+JL0/3m0+sw2WvkTDrnrgjVjiPxs307h938JfOaZCaIPLuh/ +n2uFNA== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1Hl8z3UcB/Bhc2yLbTarpEy6HMm2dKBDZZemHI2xpUVIbbrQIZ1069Zd +jg46HB2OohxFrqIUKpUOOZKik+L5fvTH8/d6fz7v3+/9++z7+zyWU1XTo7pW +QkJCpZfIg71slFMYwXnkUZs6JJJEXepRnwYc4nNfyOcZyfnkc6L9P+VCHuJy +kjnU/pfyBUbRI95LB/t/yUU8TDUpNLX/lXyRa+nJaXFgloun4rOcZP23XMwj +1NDFXiKr1c+RymHWm+RLXEdX6/qsVffi9HgerFA/TbE6lc/iOzhZ/Y9cQnd1 +Oo+qC2Uyn8YZZRbD1WfJJMr4KJ6PbEw/Jlp3kw3py/o4g2xCBQdZN5Nfywvk +VFkq0yjneusC2YA+fBLPU2bSn97WZ8jarIzfVGbwjLok5vN5/E2cot4r32cC +RdYprFNfwdnqunysnkRDDrf+Rk7jhjgjZ9qrwyr1szGXU633yQ94jCtpxBH2 +v5UvM5qyeC8d7f8rl/I4V5FGc/ub5SvcSJ94L+nk6H0nX2UMfelEBo3JJIsm +ZMd9j7sb9zHuWNyLeNbxN8W5aGHe9/I1bqKcznEGjtT7QU7nZvrFnYwz0FLv +RzmDW+gfdyrmcZTeFjmTW6mI3yfmcbTeT3IWt1EZzzLmcYzeVvk6t3Nh3O2Y +x7F62+QbjGVA3LmYx3F62+WbjOOi+B1jHq30dsi3uIMqzol5tNb7Wc7mTi6m +a8yjjd5OOYe7GEhBzKOt3i9yLncziMKYx/F6u+Q87uESimIe7fR+lW9zL4Mp +jnmcoPebfIf7GEJJzKO93m45n/EMpVvMI1dvj1zA/VzKuTGPPL3f5bs8wDBK +477Y/08u4wmuju8g3/4f8j0e5DK6x32wv19+yJNcE8/QXj3WqCfHd6obsUHd +W2bX+v9/bq71ARgdk2M= + "], 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]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 2.7645311207418275`}}, + "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:eJwV1nc8Vf8fB3DjnpuWfc+1ucvKl0IlffV5hyhaqKxoyUolu8yib0nJTkYk +u1LZZKciI2RvuklIkpnkd35/3cfzcc49n/d5fz6f1+fQzl42Ps/FwcFhzcnB +8f/fk7ox6zk4+KH+j8uGD/W/0LC2c7sqFz+sui/0crX+Quf2GiSdJ/ED++DP +atT9Cznu+avewMMP6RkDLW/HfiEvDdvTMQL8EIVXDHOR5lCU0o4iJQY/pJqD +MqA51CjcaWOuxw/ll5K/VxfPoX+/UKpy7/KD3c5O7qyiecRui1PYzRKAm2mF +FslCS2hOnO9rRp4AkL0bv0T5/Uaj/NcuHkCC8HvAdMafexU9MJ5Ir+oUBB2e +3JjDHWuo4McBdQkbIchm201RNTkhvifH7dCqEPxmuNv0RHGB9eUNfnmRwtDx +37H+pvfcwIj3z2BHC4PmTr7F2QZuGH8310KJFYZufRczSgs3XJEaYnglCAM0 +qY4adXNDUFNe/b9pwrCETxRmjXND1hYryrtCYRhaVxbZykOCua8vnnX3CIPR +YFPnpB4JSoRYnev7iedT10flGZDAD8WtaQ4Kw/nFe6peh0mw7kGQceKoMJRb +qKxbOk4CMT3zpTOTwvB21rCk1YYEKJVLd/IPUe9UbNzEdRLcOX28b1WaAu4m +9OuJJSS48TjG0ppOgYeLegq65SS4NtrVV8GkwPbLFYVjVSRwsLHo91egQAK2 +11W6jgT77U8NcKpRYHTWj/dUJzG+s8MQpkeB+UDfIqFZEgT5+37e7ESB3T6h +jZqyGPhUVZy7dIkCoa9Hz5oqYODGycFudqbAPpOkK5eVMDgXeIN9350CQq8e +TYarYqB969YXAX8KlBukLiftwYDjfvhXSgQxflh1/cBxDHwfpU1KFlPgYFmG +fUMABqMJO1aPl1JAkNnqJBuIwf7497yhZRQwaw1U8r2JgWDst21/qyiw9VVb +h+QdDDLD//EarKeA8fEfkVsiMWgPKiAl9VHgGnvoq0cqBpqBenjXAAXihhLT +76ZjkHS9S45vmAK/FZPXEjMxcPRbNvBnU+Dk2wdeec+I+ry0wk99J/xG5mhW +PgZbLryVlFmjQMZK1I+KNxiEOZxQMePEoe2xyaV7bzFYsPsKYdw4eHLddjB9 +j0GVzXobDh4cxl5ZNg98wOCE9aHsYX4cAj0rafmtGNww6tjxmI7D01BBn5uD +GIwfsd3fw8RB9+bU0oZhDA4dXjQXkMPhJ5u3O2QEAxFDUd/rW3DwMmQW+bMx +yNG1enNGHYcnWxU/qkxg0LPzyxG6Hg5/F3/IvZzDYJo/Tv3IfhxGprPn2fMY +cE0cFvUxwKH40449lEUMlBKKRzsO4yBUtqxpv4xBAMdd92BTHB5+DajpWsUg +ugcsCs1xSFr9u2/8LwbZufN7PlviEP1FYvfcGtFfm1M8WqdxqHnPdv/LSQb5 +etX4GXsclo4o8vdjZNBK+eoveQGHQ18FuevIZDD2TrAxuIgD57LJqRfryODz +D1k59QoOAZ85jzqvJ8PH8J4q02s4fHjfuFi6iQxsx9C0IB8cSg9Ji9/YTIYl +HZ07r/xwmPG7nKzLSwb6wjOTjYE42O1JaXrNRwYPi4CxihAcUvWOxbsIkiFE +bXvD5D0cbKR9i4SFyJC8aeKFSBgObnU7VXIJf6gwueoShYM35qY8JEyGoQc8 +1kkxOGyvvZV/iUKGOedy7cZYHO5lG0UuE5ZkyG2STST68em4GSeVDKp/+maM +k3CI9QctP8J6HWEd/o9xMJfT9log7Hzr96OeNByEfwpPd4uQ4ebpF4HkTByG +2/PldETJELfLxl4tG4cbu9YXZBKunWzadi8Hh96BmLrzYmToqb2Bl77EQfpI ++aFywtOJO1fGcon5TnNh8ouTgdtzakioAAcDrp0HrQmLHH1cC0U48JqG1mYQ +/kfhRNbFEhzi7TjuTRHW5toYGvcah7f1ImlKEmQ40Vfp8r4cB9aY7SZ7whfy +3UznKon1u+Rb84hwwD2Ff2k1OCjxz79rIRxlOyhzuJb4P7+d6F/CWSgS836H +w8lclxJZSTJUiOyfyKjDYfR6aboB4U8//zS3f8Ahe4Q97EB4/MOrPM4mHJLX +J9gFEV59Yhur/BGH/HWhmnGEBX3FfS1bcZCrcjJ/StjiQkJx0SccvslGxBUT +TjGXnBPqxKGEM8SoivCE/iMV524cNo9y+dUQVt0hfaGxl+jHs2zpSsLXmMnp +8gPE+nygsaOQcI0gbTRoCAdlFfvqDMIbOFMkR0aIfh/9XRVJ2PgH3VyLjUO6 +coH6NcJxA0+iHo7h4HrYRsKS8GgDs2V+HIfl4G7PHYQVS9M2Gk/iQOIb19tE +2CVTVj/nOw5mpy4F9xP9KY3JuLFhhsiHowdRBmGum/IVtrM4GG+2t3cibOCa +tVwzh8M1week/89HxBnF7dKLOHRv2yQ8RsxX75Gnzt7LRF6EecfEEabvUXrW +tYLDSvpCyAHCuWLKjDAOKpzwFWmJIdbHb54X1lNcVBBtapHaTlh7USVuP0aF +gV9Fw03E+mr7tE2AcwMVKi86V0wT61GsJveg1SYqZA759noQPvtS7XYJLxXO +nVd1XCbW7+zd7WtXhKjgZ6Xz5TtOzI/eru+jElQIFBE4GkXsFwv1UnkkTQW+ +jXv4Zoj9lELfbRNPo0LMGU5dPcKqa//2mchSYfZ2Bt+oANHfYqivVaHCSJO0 +Zhexf+PSq0k0VSrs6b/9kkx4NEobfNWpIL/tQ9JWYr+7XNEt2r6LCjNlvROu +G4n+KO5PS9emgslHH+1iIj96ReqHufZRwTOrMfQ1kS/0dQYSp/SJ+vffMish +8if3s2Ek9SAVtL2/2aZyE++fcOT67eNUePpbK1CDyC8hPlMrR3sqVPfxO5oT ++VhXKqf4yJG4/jWnX5zITz/bpYVWJyoce+Yd2jOLwUT5w7BdV6jQrNadqzdD +5LtT/xuea1TIvTNPGSfy99KHM4oZIVRQ/cnYvH8IA6aH6mLvPSo8XhHqqxgg +8pnGXcsbRoU7Uw0LW/sx0L2aauURRYy3pVJ8XQ8G4vJfw/YlUiEjuWiXdxtR +z02nxc85VHhNOVkTWEvUs02rlvqKCu3vs3++qMFAbWBzuGEeFbZE0653VWHw +SP2FYl4RFRTmk9+KlGPg/vmn1Y0qKsQtEAdRAQb0vZ61Mm1UGHrV8lQqjTi/ +/1wPt5qngndhYrTydQzOl0sVVC0S/Q9I6Y72w+Cw3+tuxm8qHNlYwV70xkCa +Y1564i8VmMkLp595YFDDbZ/jwSMClboJcl0XMODZeLjhvrgIrIuVmt5OnOdR +omJYzV4R0Ol+c1CBSZzvvYXyLF0R4MjV1ZmWwcA23uTgbT0RGE3VNsqRxGCn +5L3Iw4YiMHIuuUKaikGvDAe975gIfPJXUapbj4GM/NieOTsRoMDmD9umSfB8 +R66XbKgIiCZ3xvjkkUCvzeWyX5gIMNdnrb1+QYLBi2q2nREiIF2Wz7P4lAS8 +afkm/z0QAVPf8HWnU0lwSahIeSxZBHbCm81/o0iwdeY1Oy1PBM7ao59O7iTI +z3p7lNUjApnYN3MlNRKUSfTIM5miQI+TqJ5K4YYa928vTWRFQSMkts3/ETfU +NS9rBMqLglDKSgtfHDe0B4gdGFUShfQQ42TZcG6YZFs6JG8Xha1J9/tV/LlB +7PlgloS+KKQ+WueYZ8ENXlpsRYqjKBhVTfBF8XGDmvUPJfJLUYjEpl/aX+EC +l6kN7HJ9MTAMDfPL/MMBop2UH+YdYmClo3K6lG8N3d4k+7zhkjg82yv/YeTj +CuqYVlJ3wSTg48gEwyllCd1RYvCthkuAnNVqyuY382hdkVSilaIkGL/ZvGe4 +ZRZNJaz3TymWBIzmfKhUdwa9UJ5UkNCVgsgMtcne5Um0a3PbrQt9UhB69Jlo +252vSEk/c1eSvTTx/X6AzcX+jH6N7T3SziEDgaySpwyXYYQ4ttj+MpSB91a4 +ArdYH0LvN2aQImSgKPWe5Vb/TjR3zP2BeqQMiB/y29bg1ImyRwdv2UTJwIaW +SA5Xi06E/31lXxsjA8MhT52/be9EU+pmikHxMvCqtfeL8/cOFJuS+pw7TQZ+ +WmTfZVt3oJ++WvlcxTLwpsV2aZthO3qifrmaY1AGSHsfKf/Vb0P8jwOuSQzJ +gAPP7ZGsXW3IZ3OEmsawDEimt/ue2tKGjo3lp10elQHew4NW47xtiBz7O3hw +TAbSDeoVnTtbkcPKTeOyHzLg7RvnYmLXilRqEj57ctKgVfHjK92wFvT6yAfs +B5MGvFrNCfYrTSgg66I8JksD69ccs/2fm5Aut4ChuBwNHqCK0TONTaix0DRM +X4EG1aO+VxITm1C/5Bex5H9o4FqIoV5oQn8m11SMdtBgqdn+6tk7jWjP7e0W +efo0cDZ5NOKk0IBqqpJzPB1psM/I8PrF6Dokw8r2SbtAgxPHokuEA+qQb3Ce +wScnGnzTkexsdKxDGsbvxpQv06COP/j+ZahDLz5PSo250kBjVbbZd+o9SiDv +vH/MlwbHSJ978/TfI8+DTZe3hdFA4N0NYc0N75BS9/LWyQIaSO6cdz1Z/gaB ++NP3pCIahEe8nRV8/gYdtz5pLVVMg1RDsd6OhDfIj10RYlRKAyvvkeoAnzeo +ZSZwrKiCBhckUoQc/32D3NbzJgS9J94n1r0ksKIGlWnS10n10CBrISomvqEa +GSYaDBz9QwN7y6Kc5+uq0O+JM9I3VmkwKJxyH2YrUabG1TN5f2lQUlRov6ej +EpHaM75QOOkQ1S3+LjC+EpVtwKZ7MTrkiqoqqylUIiWvyr82fHQYb/fvEj5Q +gTaZqMtcpdNhcue5Ctu4MtTMI3Xu8X46/Dr9QsvfvwSpbR+4WHGADoqeixfC +HUpQ7JkErz4DOlyqW7MqMClBZ0vFQimH6DBbnm6uKl+C5i9QS4KN6NAgvU9/ +rbUYSXzk53OxoENmR92nHvli5BjN/VrbiQ6jVwvmdn0uRBj9myD7Ph1i33Ec +4ridj2p2a95aCSOe53/6k7dHPvI7HrIiGEGHdw0mwdj5fLR0+x/23ig62O7l +tdDRzkcTP64UJMXSQergN0e71TzUXP7b1PIx4es9aL9HHoo135TYlkuHYc+8 +FyyXXLQlXEWuuoOop+Zj+5awl+hGwZjeTCcd3vJ6ZrwIeIm6exJtpbvp8Ljw ++uG9V16iIPqmdN9eOvBKSU/dM36J+vPGmZpDdLB+/lGugfIShXY+pueN0+Em +thz/QOsFmhEXlkpboUO40u+Sbe7PUX76knAwjQHR9Sf05ZSzUXWW6eoTOgO4 +wrSThanZqPlZ4ZcKBgNeuzQEUjiy0XiuW+EciwG0pO5nRm1ZSKJyxvS0IgPc +AzW6X3lmoaCu8bidagx4GfRjL+ldJjLh6ZEZ02XAhmPHVm47Z6BZhxIlHXsG +iI8dzphZTkWxnn5V7g4MUDp0Z6XiSypCN3WOZToygDI4SEluTUV3k5u8N19k +gNYoh2VcViqS7Rr50HWFAeQ/u60uWqQiC90NDk7eDFgcPCnhX/kE1UhZpkWH +MuD7WPbcaEwKivz0R3I8nwEJHHLtpzyTUUSziTilkLiecNPypV0yCqvPFtEu +YsAOLY8zfGbJ6G6lmVBCCQNCsqQLlzSS0c2n+TxHKxhgGZwI0wtJyDPQ6VfR +ewao1t3g3UpOQpZq/XW3ehlw1bp6v8KuRMSIfO0qx8GE3aWGwz2TD1G3U+ku +4GTCttq66sz2hyhUr2TNjIsJ69Gm7pDyh2hpuTDkDokJcyjgVOj9h6jxdO6T +7zxMgGkFLFD9IXJTzvqUJ8CEwEZjZYkbsehtfYwaMJgQpP08K2HLA2TH4fLL +TI8Jth1mym75UaiQ3WkTrM8EMfOdytrJUYhUv7uzZD8TjO/JODHuRqGUcKxE +zJAJtYzrltI2Uaif/tCv/wgTbtk1S64IRyGjfVXrT5szoYHXbZPatUi0+w6v +jJ0TEyrX63soG0cgPuGnB90jmLBZVlStVT0MCXcV/RceyYSlp9IRv1lhSCyu +tup5FBN0IrJhGzUMMWUG1cdiiPpFd5Xd/XUfaSoJSJrGMyH7gEWuhP99ZKvr ++V0jlRhP36Iejw9FFW46oX8KmGAlsKmg+8td5NTR9zGwhwkXq/KvLFQHo/qb +11zjeplQllftU54djGR3iFJf9TEhKTCT+jAyGI3EnLAeHGCCvPbBwnvng9EJ +s9YpjVEmHJkRfOq4IRihvnfrpyeYsL2Drc02vY0ER17pmP1hwgnHo+GnOG+h +oqlbRUrSLPi+4GszfScI5WTcJVvKsIB10dXijUcQSj0bfjyYxoLXN8Ybn54N +QhHdcb++MFjASf45UKgZhJxqn6skybPgaopHbt5kIKInfMoQUGUBe+Oko4ZR +IAo1lI5d0GVBTOLjsF8KN5BtdqFXlSMLnnFJz4XyBiBh3XNhvRdYkJseVhO9 +5o+qB/gy55xYYLfNzkZ+1B9JCDh0yV9mQdPos6TEDH/U5im+I9yVBVKRNqff +qvkjtC/g1xkfFpwQKcieP+qHRIYPXOIOZUHOR+yS5iMf9O7qwk3J+yzYNxSc +Oxjog1yFniTuDGNBXVnwVJyDD2rW+9N4IYIFiSbFkxbbfVDQ85wt7TEsOKv0 +6+1CkzeauSb0LTWJBRrzbo9CuL1RPWXgnN4rFshemFGI97+KJtw0Da7nskA9 +2vGA5fmraEP7g61leSwou+ImusPwKjKIMF7dVkjUu9R5ejf1KvrAWxcj+Zq4 +P6c16/pLL9S4Lq9+rpYFRg7pp8a+eqLm5dsqT7pZMJAieuCUgweaNhujDPaw +4OeyV5OOsQfiLdb5I9LHAjfZkkG02wMd9vhbFzrAgh0F6Qf8Nnugj7OuZ6+N +siB0b3WuQJ47apm0jjaaYkGakG2mH5c7mjEo8777nbi/xUu6dcoN8WeLnn0/ +zYIen6b8XV1u6Kh9u7LWTxZM3okbOfjMDbWyD9TJL7DgxcrGfi9TNzSrk5Fz +bpEFLUqD/Ve13ZDgE1L0oyUW7N7bfzDsHzdkfKbyjPAKCz7O2zBXud2QS5XE +/iN/WPCfj/wZkx+uKEL6mvKdVaJ/d4OLKnpdUa5fl/Dbv0Q/CswE0TtX1Dag +vrK2xoLHWt4n21+5ov8BAsGFNA== + "]]}, "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., 2.7645311207418275`}}, + 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.992078189905487*^9, {3.9920782263605824`*^9, + 3.9920782460965576`*^9}, {3.9920782957005367`*^9, + 3.9920783771604385`*^9}, {3.992078424873436*^9, 3.992078458425234*^9}, { + 3.9920785065883026`*^9, 3.9920786029573746`*^9}, {3.9920786515843906`*^9, + 3.99207867064835*^9}, 3.992078702999031*^9}, + CellLabel-> + "Out[170]=",ExpressionUUID->"25317bfe-4451-9a47-81a2-5977e9482e73"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l11", ",", "l22"}], "]"}]], "Input", + CellLabel-> + "In[171]:=",ExpressionUUID->"89a5fa74-6f01-6943-b5a9-4ef6da22cf67"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hc4V+8bB3Athb6Zkc3nnEPoK6QUct9WUUgku0TZyZ7JlmhIdmYSKWSl +IqRBRoVCy/oaFSIpmf3O769zva5znet5P+/7OY+47RmjU6uZmJjEVzEx/f+p +6B64jolJCFexSb6yrZiAm6vmMtVXCWH3TBP7rbIJ4LnmtStitRCmV5cEfSmd +gJ9Vrg7M64SwoJu1w/nuBJQvHnu5kVUIE1cknE7lT4Dcec1L/DxC+Pqv5AaF +lAmQydq4ecdWISSur2mRCJwARlsWaW8ohBkji8mueyeglTU46kqBEAo9fVj3 +9+44zLMPK8/8EcLAssItqpvHgXvkslqtjjDed+3NPHbmG3zJ+Bmhmy2Mzm8b +JPgLvoKG4KAwx7QwjvfxmlK9X8D0bMx82n4R7BQe/3hwcAzMi72IuEwR/FDt +UP+xZxQGbo7lVk2KoM5FC6Hp1hFghGy2zdMSxfAUG459icPwVbTNtyVJFD+O +SjaIHf8PMuJfvDcbEcV7yY4Z+8WHYJ3nXngnLIbGniZ/FWsGYGXlY43APjF8 +uWqXJO/LPjAJNn3/xEMM09I4f157/xFu/DebmZEhhlOTiwZSC70gX9y9MfGZ +GJ65wOl426wbRByThCanxDC0NUowJ7kL9KNTu223iOMidJ36SnTAhyR/eWUt +cdw1kHzwH6N2sL4UuEP7jDg2bOTaw/axGRhfGvpdU8Tx1vz7xJHNz0FbcXjb +70ZxLAy+aeHn+QSK/jtIZoyL40Lzen6RmVpgDnrX6MPNQJUxjhKOoWqoX6O6 +ukyNgedqDxlX7qgAt9KhE0bAQHYvybo6ogJELC88+Um73dF2qou7As6Vd4fu +UmfgUolRoshsOaid8Phbo8nACy49nopV5VBXd2vphQ4Dt47YdBzbUw6PAzjn +Phkx8OKCChmvWwY1U6PjGxwY2Foa8r2foxTk2Dk7q2lL8VzuePezBG7Jqjyw +d2TgC9LZfai7BOJPX4l85sTA92ECFZBZAvbjSsKhrgzc/vwhM4tMCXCNxRjM +eTAwaotseduBYnDsky4bOcvA78VtLC/S7wBPu5tvYwID67YK3h4PKAQp750y +btcYGN7inH3DthDUBJf6+RMZmGVSVuB6sBCcnC7oeiQx0Fla68ke4UKoW3dT +SCyVgR3DEX33nxSAo9r7xuBMOo/MpZ8KmwqgtlSTfU8hA00ldmsPV+aDXcKW +wtLHDPz9wS/78a48YD4Y8/pQHQO3CQSXU1QeFK7583uK9oeOrtnr3Hkw4d2j +LdfAwB3qesPl0zfA1zT5v3uNdJ4H5f4X7tyAGCEe0fImBlp7ir7pIG7A3Vvs +yZUdDFQe0jydIJILvx4xRz4cYaBv6pvVX32ywGpsXt5hlIHGpf5H+o9mwTPu +yX6eMXq+SVV/fyhlQaJrl4r7FwZarXJid13IBAWRnJ8S4/T6Mh1t90IzwT1s +j13iNAOXhwdvOCdkwMR+V40ziwzsWnCM5mhJh+G3HUwUJ4E+c2fvNkWlwHsu +N/Em2kfnnw13u6XAK0NWDScuAnO9+kIWTFOguk0jopibwLcW93PPSadA7LOK +dbt4CWy6PDDu/yYZ5CqTWPcLEqjwjMVjq1gyBF8z53GiCHx6y9+b7VUi8BoN +ShbvIVB0X6ZWjU0CFPEJ8OkpE9gr3c5oM0gA+GzEPE7b/Wz11knVBHB0fDa8 +VZVAJsPTAcf5E6DmXEHuTTUCl9OfvF7TdRVs7pwWzNAkcO4kuyfqXoWitQub +4vQJ7MpIY1NUjwe1FoUVKQMC+yRZ1ivIx0PXFZfJZtpiPJvy1cTjYUngcyuz +IYGN+szpEavi4ZB8Q0y4Ed2H0YyGb9QVmLWOXh1oSiDv1CRv8ZXLoFbN9dvx +BIHtlefr+x5chNTpVy6bbQnUkZkq+5Z2EWak4gaf0J5PWnq+Oegi3MpY0y5w +ksBNxhrDzXsvAnv4bF6bPYGdtv/+zn4WBwN63YflXAl8LCF8bb4nFsKG0orn +fAk88T20MJvnAnwSPErc9CNQY4ArznI+BnaZcKUZ+hN4umVIdUdfDHxrio28 +HUD3z9FeuLMwBoyKgywtzxL4JqixP2JvDDD8rVnqw+g+mPp/bT99Hp79I34q ++iKBA0LCvYIDUXDHLFpf8hKBPSTn7tqXUZCQN76zmXZkbKC0Z0UU2Oy5z8x6 +hcCIsoQgkfNRsHzyYOGlqwQ6ZzE/890eBbtqfcYTkwm0KBpr3BwZCYXOLR55 +OQS+uMjRcVk1Aq5UbbfQyqXzSr/iq9saAb5MSRojtN+/Vyhj2hwBWsnHuSXz +CNw5YZZSPxkOg09mK4vy6b4sy4wZOeEgwC/6p6yIwAM591pcN4TDxSavcw2V +dP9ZbXI3RkNhd7TVpFsV3edaPSqvKxRGtLSthO/T+YQCTj5oCAW1Rl7lwGoC +/7tj7SV6PRR+1D78teMRgcFrfIo+G4bC0fK/rgX1BIo4xrznCg0B0cw4y8st +BIZyd3IrmAdDm6V3i2orgQW7dmxcUgoGfwHrPeO0rUdK+r/yBkNniiyfTjuB +IWMzMXLvzkJkQkfnqjcEBpUdXm1vfBa+nOc74POOwAyLm4NGR4Og3DNvt9UA +gTV6cczaPgEwobFT4C/t3u/Sg/IWAUBxNy3mDhI4tpitrwwBkFrxrW5siMAb +j/O8MlkCIGRWXttrhMDs5BXhomx/0PNtOBz7jUCuo2/CXrzxg9GAz84PZun5 +e+6MtdrnC2IHzuhZ/iLQIJA1J1bWF8wFVsmu0E6J79zWwesLbY/IH5pzBI4r +aOkXjPlAxaKL3+t5ArcE7BPyifWB0OCFiNEVAh8+TG8Of+sNAmF8mTwsJHa8 +PMDyMsALZnu19StpZ++Rf65xygva5byXjVlJtLaNONph6AWhA2+sr7GRuBg1 +cXvbVi8YhVgRrk0kBp3lGX/f4wnlK0vZ7Nwkps+yNS8re4Lu2aEbrMIkinP4 +fhph9wDGWw7jItqebNN/3y67w5IMrDkgQmLJ3oCM7nF3KPl43e6CKImpeifn +OZrdgUfFhNzAIDFrrMzIJswdBuab8tdJkqgrPeRa+f0M+PsVFzLJk3gRTv2I +HjgNfJrH+4tpx5t0bOOsOw33N3HyWirQ+SXch55cPw2z+d4RVTtIVJEz5082 +PQ3ub1WOOe8i0cJwXnddhys4yLdwv1UhUYf7356PLS5wdHz0XME+EkV//Qy0 +eO8Ev+6nVh3ZT2Lc9sGvDjVOkBh+YGKVDon3R1zWpmQ6QSd/ibmVLolblOXu +mts6gYGOjyKnHonG7DyfXScdQTt/zbfAw3Q+J/eJOyyOoHhczMTAisTXJSRH +prk92KgGrUzRvri/vtxU3R4u8ncXXLUm8cOPxTkZKXsY7opbeHuMxBaP3tXi +86cgUWcu2/IEiWmTXQeU00/BrPyrb472dH91gv7cgyehYu3Z0Ah3EhsXOWoq +Qu2gb7BbivIgkeOBqYGnix2w1st3vaAtk/bbe/9RO7ANGKNYvUjk2qEttnOb +HXB9N2qN9yFR75WEu+B7W/DskeLNCiSR9dKgJpOSLSgU9dx5EEmi9HGnC1dX +nwByseqjQxSJyNa/0fm7DWzWS2TjiybxZ3HagPkHG/gzaejic57EvAURzpBy +G6iTb5FWiCXReaPQi092NqD7sPb2nSv0fCcMirKSjoNNc25BVjp9Pm+qCbYc +tgYj/tAe/esk6s/fTP0uaw2azsfWL9O+s8k2S2WjNUhsFHSwzCSxUHLtJYMm +K5g4lCixJYdES85TG4zBCvx6ovOv5pN4PcQou3SXJVwedcmLvEfieuez7LHq +5iBaP5orV0biU01x+TnCHO6lnMj5RLv13AaMZjaHLh3TTMUKElP6111haTOD +LXc0UoarSLzmofwpx8wMbpzhj9OqIXFyZ+P6GT9TqP7zwnPtCxLD+0kB6pUJ +6HSoe9yjnc+yvu1CpQl8uF17xqqJRO5Den/ZrpvAkkW5a2UziY98xewdHU1A +43Gm/clWEufOBOUGrzWBtjBvi2dvSDx5avrmsvoRGGBlaER+JNHm2czZgA4j +WJnVriA/kbjH+I98e60RCPU7kc9pp+9LUlIqNALzijJm5j4Sm9inuvVDjKDT +Ur31/ACJIQPVH8NljeD5XZsjcSMkbhO0/T0XfxiKDLLtE6ZIjBJ0/uR5yhCa +dz/tUZgm0fxb05+TxoYwxhjT6aJt1dye56xuCOScrAzPDP39oq7xPWFDyMyu +m0qaJdE3v7ZKu+QQxE9/9k+bJ9Hh0bt26roB+CQIxeWsoTD7ZdNrmXg9MJt+ +Gm6wlkKDd4O8TG56oGrgErhEm/382tylg3qwlvWRkxkzhdxRms9Pb9CDxDBT +HQ4WCp8vzerIRByEcveEdaGbKPxgIfN4POQAfDfYEHqcn8Ltuj/cDZN0oPNu +qd8/AhQGVeUI9PjpwH1W0zM1tLUFtTNCLXQg+EX+MT4hCt06bKNVxHRgo5rm +3tciFM5jUKpe8X6Q/vfcghpJ4WXvm+YP2/eBA9ust8h2Cvex/j5SIaENvYFa +/Q20n4vJ753fpA063xJ17eQovKi94Gw+pwXSL3eKFMrTdjlAOTZrwfdovyZ5 +RQoPv/y5XOOiBd6rF/m191CYxVn1hazWhPD5VfUumhT+nJF6p2ajAT8djaQ2 +aVF4UqTBPvWgBpzsvXHtHu1FH7eRDUoaoF2t6fhLm7Ye7pPdpAEbfKI4Q3Qo +XB1YMXD+sTpcmd5wMkGfQlOuFeqEmDpkjLGzPDSlcHpvvcg/EwDFfUvqZmYU +1nS1sXc1A9S9+xo4RxuNvrvX5wP0P306sdOCQpe5qj5WGwBGjt+bcisKcxaq +ph261aDArD/l7gkK4y20a/la9kL5yxKJHBcKz8VU9Kq2qUBjw/Xj4Eqh96gA +f2SxCnRVx6T20U7NrJiZuKxC38+2rMJuFL6RXBlgGKmAUjjv9zR3Cre69dcJ +flCGWuVzVdd8KLzfFpnLmN4DTXf0tc6HUHjQe+F80o7dkMVbt0YxlMLIVb2X +zvPuBu8w2acDtE2KzEUy5pVAzJRdQzmcwnDjW3u3NSiB/+oOmIykMHhmLc+w +gRJImR9RMY6lUFNz+fYVz10Qx2ypIJpEoYN7QX9rhyLYerT+aKUtp8Kt9uyB +Iuz+pFLmn0zhvwHRbh+yFWG4TEiuM4XCr3wRD4+7KYKqdd+/UekUKgilb2vZ +qAiTFSekxrPp9Qz2ljId2gGHTjiKVRdR2HrGR++fL/JQ/jnMyOwOhbWblXZO +dckDr8X1yHnavDP3zo/Vy8Mno1dfVIoptE45uF4wVR4ctRTLGkop5BC2fB6r +Kw/hkkwaLZUUDh5LUvS/JweVkyl2n+soVE41L34tuB34nMuSztVTWO/0RL/z +jywEjrY0iTZQaOvWsLD4ThbU+5dlbJ/Q/XJ7vHoaLwuv3tjNjj6lcEoKy8U2 +yMJYxfao6WYK15xmL/22vA0EApturemi31s0N95YKwOHHcRTq2mDxTr30iFp +iDkSdMHlLYWfo4v8RhukYU52u2vXOwp9hx2edwZLw9v/kuXzeun9cm6uyJqX +gkv69rUaffT5sLa37/mzFZjE13WGfaVw6DMvqw+PJChtOv505zcKuZq/OrnO +SYDb4oPKr7Rf/NbnjPkgAZ/fuaYcnqDQJyQsQiZXAh7FvrUSn6Jwb+w5ARE5 +CfCazRtrmKVwl87U17gjFBQNLvd6/6JQL7doe8UeCoZembZs/U1hmhDbhiUR +CgxvsxXHz1HoWZPT8uMrCduOeXnaLFCob+3G5xRGgt3BdjueRQqHQdUj1YGE +9N2SJs205/Zf4/2iTwIL90cluWX6f5hcyhsTIAGZdkoN046ISVNNWUWC/+Rl +gdQVCs1fd4bZfyGg9MMXNr2/FLbfstczeU3AaJPG8l/aKmMaPnb3Cfgf+LcR +xA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hc4V+8bB3Athb6Zkc3nnEPoK6QUct9WUUgku0TZyZ7JlmhIdmYSKWSl +IqRBRoVCy/oaFSIpmf3O769zva5znet5P+/7OY+47RmjU6uZmJjEVzEx/f+p +6B64jolJCFexSb6yrZiAm6vmMtVXCWH3TBP7rbIJ4LnmtStitRCmV5cEfSmd +gJ9Vrg7M64SwoJu1w/nuBJQvHnu5kVUIE1cknE7lT4Dcec1L/DxC+Pqv5AaF +lAmQydq4ecdWISSur2mRCJwARlsWaW8ohBkji8mueyeglTU46kqBEAo9fVj3 +9+44zLMPK8/8EcLAssItqpvHgXvkslqtjjDed+3NPHbmG3zJ+Bmhmy2Mzm8b +JPgLvoKG4KAwx7QwjvfxmlK9X8D0bMx82n4R7BQe/3hwcAzMi72IuEwR/FDt +UP+xZxQGbo7lVk2KoM5FC6Hp1hFghGy2zdMSxfAUG459icPwVbTNtyVJFD+O +SjaIHf8PMuJfvDcbEcV7yY4Z+8WHYJ3nXngnLIbGniZ/FWsGYGXlY43APjF8 +uWqXJO/LPjAJNn3/xEMM09I4f157/xFu/DebmZEhhlOTiwZSC70gX9y9MfGZ +GJ65wOl426wbRByThCanxDC0NUowJ7kL9KNTu223iOMidJ36SnTAhyR/eWUt +cdw1kHzwH6N2sL4UuEP7jDg2bOTaw/axGRhfGvpdU8Tx1vz7xJHNz0FbcXjb +70ZxLAy+aeHn+QSK/jtIZoyL40Lzen6RmVpgDnrX6MPNQJUxjhKOoWqoX6O6 +ukyNgedqDxlX7qgAt9KhE0bAQHYvybo6ogJELC88+Um73dF2qou7As6Vd4fu +UmfgUolRoshsOaid8Phbo8nACy49nopV5VBXd2vphQ4Dt47YdBzbUw6PAzjn +Phkx8OKCChmvWwY1U6PjGxwY2Foa8r2foxTk2Dk7q2lL8VzuePezBG7Jqjyw +d2TgC9LZfai7BOJPX4l85sTA92ECFZBZAvbjSsKhrgzc/vwhM4tMCXCNxRjM +eTAwaotseduBYnDsky4bOcvA78VtLC/S7wBPu5tvYwID67YK3h4PKAQp750y +btcYGN7inH3DthDUBJf6+RMZmGVSVuB6sBCcnC7oeiQx0Fla68ke4UKoW3dT +SCyVgR3DEX33nxSAo9r7xuBMOo/MpZ8KmwqgtlSTfU8hA00ldmsPV+aDXcKW +wtLHDPz9wS/78a48YD4Y8/pQHQO3CQSXU1QeFK7583uK9oeOrtnr3Hkw4d2j +LdfAwB3qesPl0zfA1zT5v3uNdJ4H5f4X7tyAGCEe0fImBlp7ir7pIG7A3Vvs +yZUdDFQe0jydIJILvx4xRz4cYaBv6pvVX32ywGpsXt5hlIHGpf5H+o9mwTPu +yX6eMXq+SVV/fyhlQaJrl4r7FwZarXJid13IBAWRnJ8S4/T6Mh1t90IzwT1s +j13iNAOXhwdvOCdkwMR+V40ziwzsWnCM5mhJh+G3HUwUJ4E+c2fvNkWlwHsu +N/Em2kfnnw13u6XAK0NWDScuAnO9+kIWTFOguk0jopibwLcW93PPSadA7LOK +dbt4CWy6PDDu/yYZ5CqTWPcLEqjwjMVjq1gyBF8z53GiCHx6y9+b7VUi8BoN +ShbvIVB0X6ZWjU0CFPEJ8OkpE9gr3c5oM0gA+GzEPE7b/Wz11knVBHB0fDa8 +VZVAJsPTAcf5E6DmXEHuTTUCl9OfvF7TdRVs7pwWzNAkcO4kuyfqXoWitQub +4vQJ7MpIY1NUjwe1FoUVKQMC+yRZ1ivIx0PXFZfJZtpiPJvy1cTjYUngcyuz +IYGN+szpEavi4ZB8Q0y4Ed2H0YyGb9QVmLWOXh1oSiDv1CRv8ZXLoFbN9dvx +BIHtlefr+x5chNTpVy6bbQnUkZkq+5Z2EWak4gaf0J5PWnq+Oegi3MpY0y5w +ksBNxhrDzXsvAnv4bF6bPYGdtv/+zn4WBwN63YflXAl8LCF8bb4nFsKG0orn +fAk88T20MJvnAnwSPErc9CNQY4ArznI+BnaZcKUZ+hN4umVIdUdfDHxrio28 +HUD3z9FeuLMwBoyKgywtzxL4JqixP2JvDDD8rVnqw+g+mPp/bT99Hp79I34q ++iKBA0LCvYIDUXDHLFpf8hKBPSTn7tqXUZCQN76zmXZkbKC0Z0UU2Oy5z8x6 +hcCIsoQgkfNRsHzyYOGlqwQ6ZzE/890eBbtqfcYTkwm0KBpr3BwZCYXOLR55 +OQS+uMjRcVk1Aq5UbbfQyqXzSr/iq9saAb5MSRojtN+/Vyhj2hwBWsnHuSXz +CNw5YZZSPxkOg09mK4vy6b4sy4wZOeEgwC/6p6yIwAM591pcN4TDxSavcw2V +dP9ZbXI3RkNhd7TVpFsV3edaPSqvKxRGtLSthO/T+YQCTj5oCAW1Rl7lwGoC +/7tj7SV6PRR+1D78teMRgcFrfIo+G4bC0fK/rgX1BIo4xrznCg0B0cw4y8st +BIZyd3IrmAdDm6V3i2orgQW7dmxcUgoGfwHrPeO0rUdK+r/yBkNniiyfTjuB +IWMzMXLvzkJkQkfnqjcEBpUdXm1vfBa+nOc74POOwAyLm4NGR4Og3DNvt9UA +gTV6cczaPgEwobFT4C/t3u/Sg/IWAUBxNy3mDhI4tpitrwwBkFrxrW5siMAb +j/O8MlkCIGRWXttrhMDs5BXhomx/0PNtOBz7jUCuo2/CXrzxg9GAz84PZun5 +e+6MtdrnC2IHzuhZ/iLQIJA1J1bWF8wFVsmu0E6J79zWwesLbY/IH5pzBI4r +aOkXjPlAxaKL3+t5ArcE7BPyifWB0OCFiNEVAh8+TG8Of+sNAmF8mTwsJHa8 +PMDyMsALZnu19StpZ++Rf65xygva5byXjVlJtLaNONph6AWhA2+sr7GRuBg1 +cXvbVi8YhVgRrk0kBp3lGX/f4wnlK0vZ7Nwkps+yNS8re4Lu2aEbrMIkinP4 +fhph9wDGWw7jItqebNN/3y67w5IMrDkgQmLJ3oCM7nF3KPl43e6CKImpeifn +OZrdgUfFhNzAIDFrrMzIJswdBuab8tdJkqgrPeRa+f0M+PsVFzLJk3gRTv2I +HjgNfJrH+4tpx5t0bOOsOw33N3HyWirQ+SXch55cPw2z+d4RVTtIVJEz5082 +PQ3ub1WOOe8i0cJwXnddhys4yLdwv1UhUYf7356PLS5wdHz0XME+EkV//Qy0 +eO8Ev+6nVh3ZT2Lc9sGvDjVOkBh+YGKVDon3R1zWpmQ6QSd/ibmVLolblOXu +mts6gYGOjyKnHonG7DyfXScdQTt/zbfAw3Q+J/eJOyyOoHhczMTAisTXJSRH +prk92KgGrUzRvri/vtxU3R4u8ncXXLUm8cOPxTkZKXsY7opbeHuMxBaP3tXi +86cgUWcu2/IEiWmTXQeU00/BrPyrb472dH91gv7cgyehYu3Z0Ah3EhsXOWoq +Qu2gb7BbivIgkeOBqYGnix2w1st3vaAtk/bbe/9RO7ANGKNYvUjk2qEttnOb +HXB9N2qN9yFR75WEu+B7W/DskeLNCiSR9dKgJpOSLSgU9dx5EEmi9HGnC1dX +nwByseqjQxSJyNa/0fm7DWzWS2TjiybxZ3HagPkHG/gzaejic57EvAURzpBy +G6iTb5FWiCXReaPQi092NqD7sPb2nSv0fCcMirKSjoNNc25BVjp9Pm+qCbYc +tgYj/tAe/esk6s/fTP0uaw2azsfWL9O+s8k2S2WjNUhsFHSwzCSxUHLtJYMm +K5g4lCixJYdES85TG4zBCvx6ovOv5pN4PcQou3SXJVwedcmLvEfieuez7LHq +5iBaP5orV0biU01x+TnCHO6lnMj5RLv13AaMZjaHLh3TTMUKElP6111haTOD +LXc0UoarSLzmofwpx8wMbpzhj9OqIXFyZ+P6GT9TqP7zwnPtCxLD+0kB6pUJ +6HSoe9yjnc+yvu1CpQl8uF17xqqJRO5Den/ZrpvAkkW5a2UziY98xewdHU1A +43Gm/clWEufOBOUGrzWBtjBvi2dvSDx5avrmsvoRGGBlaER+JNHm2czZgA4j +WJnVriA/kbjH+I98e60RCPU7kc9pp+9LUlIqNALzijJm5j4Sm9inuvVDjKDT +Ur31/ACJIQPVH8NljeD5XZsjcSMkbhO0/T0XfxiKDLLtE6ZIjBJ0/uR5yhCa +dz/tUZgm0fxb05+TxoYwxhjT6aJt1dye56xuCOScrAzPDP39oq7xPWFDyMyu +m0qaJdE3v7ZKu+QQxE9/9k+bJ9Hh0bt26roB+CQIxeWsoTD7ZdNrmXg9MJt+ +Gm6wlkKDd4O8TG56oGrgErhEm/382tylg3qwlvWRkxkzhdxRms9Pb9CDxDBT +HQ4WCp8vzerIRByEcveEdaGbKPxgIfN4POQAfDfYEHqcn8Ltuj/cDZN0oPNu +qd8/AhQGVeUI9PjpwH1W0zM1tLUFtTNCLXQg+EX+MT4hCt06bKNVxHRgo5rm +3tciFM5jUKpe8X6Q/vfcghpJ4WXvm+YP2/eBA9ust8h2Cvex/j5SIaENvYFa +/Q20n4vJ753fpA063xJ17eQovKi94Gw+pwXSL3eKFMrTdjlAOTZrwfdovyZ5 +RQoPv/y5XOOiBd6rF/m191CYxVn1hazWhPD5VfUumhT+nJF6p2ajAT8djaQ2 +aVF4UqTBPvWgBpzsvXHtHu1FH7eRDUoaoF2t6fhLm7Ye7pPdpAEbfKI4Q3Qo +XB1YMXD+sTpcmd5wMkGfQlOuFeqEmDpkjLGzPDSlcHpvvcg/EwDFfUvqZmYU +1nS1sXc1A9S9+xo4RxuNvrvX5wP0P306sdOCQpe5qj5WGwBGjt+bcisKcxaq +ph261aDArD/l7gkK4y20a/la9kL5yxKJHBcKz8VU9Kq2qUBjw/Xj4Eqh96gA +f2SxCnRVx6T20U7NrJiZuKxC38+2rMJuFL6RXBlgGKmAUjjv9zR3Cre69dcJ +flCGWuVzVdd8KLzfFpnLmN4DTXf0tc6HUHjQe+F80o7dkMVbt0YxlMLIVb2X +zvPuBu8w2acDtE2KzEUy5pVAzJRdQzmcwnDjW3u3NSiB/+oOmIykMHhmLc+w +gRJImR9RMY6lUFNz+fYVz10Qx2ypIJpEoYN7QX9rhyLYerT+aKUtp8Kt9uyB +Iuz+pFLmn0zhvwHRbh+yFWG4TEiuM4XCr3wRD4+7KYKqdd+/UekUKgilb2vZ +qAiTFSekxrPp9Qz2ljId2gGHTjiKVRdR2HrGR++fL/JQ/jnMyOwOhbWblXZO +dckDr8X1yHnavDP3zo/Vy8Mno1dfVIoptE45uF4wVR4ctRTLGkop5BC2fB6r +Kw/hkkwaLZUUDh5LUvS/JweVkyl2n+soVE41L34tuB34nMuSztVTWO/0RL/z +jywEjrY0iTZQaOvWsLD4ThbU+5dlbJ/Q/XJ7vHoaLwuv3tjNjj6lcEoKy8U2 +yMJYxfao6WYK15xmL/22vA0EApturemi31s0N95YKwOHHcRTq2mDxTr30iFp +iDkSdMHlLYWfo4v8RhukYU52u2vXOwp9hx2edwZLw9v/kuXzeun9cm6uyJqX +gkv69rUaffT5sLa37/mzFZjE13WGfaVw6DMvqw+PJChtOv505zcKuZq/OrnO +SYDb4oPKr7Rf/NbnjPkgAZ/fuaYcnqDQJyQsQiZXAh7FvrUSn6Jwb+w5ARE5 +CfCazRtrmKVwl87U17gjFBQNLvd6/6JQL7doe8UeCoZembZs/U1hmhDbhiUR +CgxvsxXHz1HoWZPT8uMrCduOeXnaLFCob+3G5xRGgt3BdjueRQqHQdUj1YGE +9N2SJs205/Zf4/2iTwIL90cluWX6f5hcyhsTIAGZdkoN046ISVNNWUWC/+Rl +gdQVCs1fd4bZfyGg9MMXNr2/FLbfstczeU3AaJPG8l/aKmMaPnb3Cfgf+LcR +xA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 11}, {0., 0.8968976999679797}}, + "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" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 11}, {0., 0.8968976999679797}}, + "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" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hc4V+8bB3Athb6Zkc3nnEPoK6QUct9WUUgku0TZyZ7JlmhIdmYSKWSl +IqRBRoVCy/oaFSIpmf3O769zva5znet5P+/7OY+47RmjU6uZmJjEVzEx/f+p +6B64jolJCFexSb6yrZiAm6vmMtVXCWH3TBP7rbIJ4LnmtStitRCmV5cEfSmd +gJ9Vrg7M64SwoJu1w/nuBJQvHnu5kVUIE1cknE7lT4Dcec1L/DxC+Pqv5AaF +lAmQydq4ecdWISSur2mRCJwARlsWaW8ohBkji8mueyeglTU46kqBEAo9fVj3 +9+44zLMPK8/8EcLAssItqpvHgXvkslqtjjDed+3NPHbmG3zJ+Bmhmy2Mzm8b +JPgLvoKG4KAwx7QwjvfxmlK9X8D0bMx82n4R7BQe/3hwcAzMi72IuEwR/FDt +UP+xZxQGbo7lVk2KoM5FC6Hp1hFghGy2zdMSxfAUG459icPwVbTNtyVJFD+O +SjaIHf8PMuJfvDcbEcV7yY4Z+8WHYJ3nXngnLIbGniZ/FWsGYGXlY43APjF8 +uWqXJO/LPjAJNn3/xEMM09I4f157/xFu/DebmZEhhlOTiwZSC70gX9y9MfGZ +GJ65wOl426wbRByThCanxDC0NUowJ7kL9KNTu223iOMidJ36SnTAhyR/eWUt +cdw1kHzwH6N2sL4UuEP7jDg2bOTaw/axGRhfGvpdU8Tx1vz7xJHNz0FbcXjb +70ZxLAy+aeHn+QSK/jtIZoyL40Lzen6RmVpgDnrX6MPNQJUxjhKOoWqoX6O6 +ukyNgedqDxlX7qgAt9KhE0bAQHYvybo6ogJELC88+Um73dF2qou7As6Vd4fu +UmfgUolRoshsOaid8Phbo8nACy49nopV5VBXd2vphQ4Dt47YdBzbUw6PAzjn +Phkx8OKCChmvWwY1U6PjGxwY2Foa8r2foxTk2Dk7q2lL8VzuePezBG7Jqjyw +d2TgC9LZfai7BOJPX4l85sTA92ECFZBZAvbjSsKhrgzc/vwhM4tMCXCNxRjM +eTAwaotseduBYnDsky4bOcvA78VtLC/S7wBPu5tvYwID67YK3h4PKAQp750y +btcYGN7inH3DthDUBJf6+RMZmGVSVuB6sBCcnC7oeiQx0Fla68ke4UKoW3dT +SCyVgR3DEX33nxSAo9r7xuBMOo/MpZ8KmwqgtlSTfU8hA00ldmsPV+aDXcKW +wtLHDPz9wS/78a48YD4Y8/pQHQO3CQSXU1QeFK7583uK9oeOrtnr3Hkw4d2j +LdfAwB3qesPl0zfA1zT5v3uNdJ4H5f4X7tyAGCEe0fImBlp7ir7pIG7A3Vvs +yZUdDFQe0jydIJILvx4xRz4cYaBv6pvVX32ywGpsXt5hlIHGpf5H+o9mwTPu +yX6eMXq+SVV/fyhlQaJrl4r7FwZarXJid13IBAWRnJ8S4/T6Mh1t90IzwT1s +j13iNAOXhwdvOCdkwMR+V40ziwzsWnCM5mhJh+G3HUwUJ4E+c2fvNkWlwHsu +N/Em2kfnnw13u6XAK0NWDScuAnO9+kIWTFOguk0jopibwLcW93PPSadA7LOK +dbt4CWy6PDDu/yYZ5CqTWPcLEqjwjMVjq1gyBF8z53GiCHx6y9+b7VUi8BoN +ShbvIVB0X6ZWjU0CFPEJ8OkpE9gr3c5oM0gA+GzEPE7b/Wz11knVBHB0fDa8 +VZVAJsPTAcf5E6DmXEHuTTUCl9OfvF7TdRVs7pwWzNAkcO4kuyfqXoWitQub +4vQJ7MpIY1NUjwe1FoUVKQMC+yRZ1ivIx0PXFZfJZtpiPJvy1cTjYUngcyuz +IYGN+szpEavi4ZB8Q0y4Ed2H0YyGb9QVmLWOXh1oSiDv1CRv8ZXLoFbN9dvx +BIHtlefr+x5chNTpVy6bbQnUkZkq+5Z2EWak4gaf0J5PWnq+Oegi3MpY0y5w +ksBNxhrDzXsvAnv4bF6bPYGdtv/+zn4WBwN63YflXAl8LCF8bb4nFsKG0orn +fAk88T20MJvnAnwSPErc9CNQY4ArznI+BnaZcKUZ+hN4umVIdUdfDHxrio28 +HUD3z9FeuLMwBoyKgywtzxL4JqixP2JvDDD8rVnqw+g+mPp/bT99Hp79I34q ++iKBA0LCvYIDUXDHLFpf8hKBPSTn7tqXUZCQN76zmXZkbKC0Z0UU2Oy5z8x6 +hcCIsoQgkfNRsHzyYOGlqwQ6ZzE/890eBbtqfcYTkwm0KBpr3BwZCYXOLR55 +OQS+uMjRcVk1Aq5UbbfQyqXzSr/iq9saAb5MSRojtN+/Vyhj2hwBWsnHuSXz +CNw5YZZSPxkOg09mK4vy6b4sy4wZOeEgwC/6p6yIwAM591pcN4TDxSavcw2V +dP9ZbXI3RkNhd7TVpFsV3edaPSqvKxRGtLSthO/T+YQCTj5oCAW1Rl7lwGoC +/7tj7SV6PRR+1D78teMRgcFrfIo+G4bC0fK/rgX1BIo4xrznCg0B0cw4y8st +BIZyd3IrmAdDm6V3i2orgQW7dmxcUgoGfwHrPeO0rUdK+r/yBkNniiyfTjuB +IWMzMXLvzkJkQkfnqjcEBpUdXm1vfBa+nOc74POOwAyLm4NGR4Og3DNvt9UA +gTV6cczaPgEwobFT4C/t3u/Sg/IWAUBxNy3mDhI4tpitrwwBkFrxrW5siMAb +j/O8MlkCIGRWXttrhMDs5BXhomx/0PNtOBz7jUCuo2/CXrzxg9GAz84PZun5 +e+6MtdrnC2IHzuhZ/iLQIJA1J1bWF8wFVsmu0E6J79zWwesLbY/IH5pzBI4r +aOkXjPlAxaKL3+t5ArcE7BPyifWB0OCFiNEVAh8+TG8Of+sNAmF8mTwsJHa8 +PMDyMsALZnu19StpZ++Rf65xygva5byXjVlJtLaNONph6AWhA2+sr7GRuBg1 +cXvbVi8YhVgRrk0kBp3lGX/f4wnlK0vZ7Nwkps+yNS8re4Lu2aEbrMIkinP4 +fhph9wDGWw7jItqebNN/3y67w5IMrDkgQmLJ3oCM7nF3KPl43e6CKImpeifn +OZrdgUfFhNzAIDFrrMzIJswdBuab8tdJkqgrPeRa+f0M+PsVFzLJk3gRTv2I +HjgNfJrH+4tpx5t0bOOsOw33N3HyWirQ+SXch55cPw2z+d4RVTtIVJEz5082 +PQ3ub1WOOe8i0cJwXnddhys4yLdwv1UhUYf7356PLS5wdHz0XME+EkV//Qy0 +eO8Ev+6nVh3ZT2Lc9sGvDjVOkBh+YGKVDon3R1zWpmQ6QSd/ibmVLolblOXu +mts6gYGOjyKnHonG7DyfXScdQTt/zbfAw3Q+J/eJOyyOoHhczMTAisTXJSRH +prk92KgGrUzRvri/vtxU3R4u8ncXXLUm8cOPxTkZKXsY7opbeHuMxBaP3tXi +86cgUWcu2/IEiWmTXQeU00/BrPyrb472dH91gv7cgyehYu3Z0Ah3EhsXOWoq +Qu2gb7BbivIgkeOBqYGnix2w1st3vaAtk/bbe/9RO7ANGKNYvUjk2qEttnOb +HXB9N2qN9yFR75WEu+B7W/DskeLNCiSR9dKgJpOSLSgU9dx5EEmi9HGnC1dX +nwByseqjQxSJyNa/0fm7DWzWS2TjiybxZ3HagPkHG/gzaejic57EvAURzpBy +G6iTb5FWiCXReaPQi092NqD7sPb2nSv0fCcMirKSjoNNc25BVjp9Pm+qCbYc +tgYj/tAe/esk6s/fTP0uaw2azsfWL9O+s8k2S2WjNUhsFHSwzCSxUHLtJYMm +K5g4lCixJYdES85TG4zBCvx6ovOv5pN4PcQou3SXJVwedcmLvEfieuez7LHq +5iBaP5orV0biU01x+TnCHO6lnMj5RLv13AaMZjaHLh3TTMUKElP6111haTOD +LXc0UoarSLzmofwpx8wMbpzhj9OqIXFyZ+P6GT9TqP7zwnPtCxLD+0kB6pUJ +6HSoe9yjnc+yvu1CpQl8uF17xqqJRO5Den/ZrpvAkkW5a2UziY98xewdHU1A +43Gm/clWEufOBOUGrzWBtjBvi2dvSDx5avrmsvoRGGBlaER+JNHm2czZgA4j +WJnVriA/kbjH+I98e60RCPU7kc9pp+9LUlIqNALzijJm5j4Sm9inuvVDjKDT +Ur31/ACJIQPVH8NljeD5XZsjcSMkbhO0/T0XfxiKDLLtE6ZIjBJ0/uR5yhCa +dz/tUZgm0fxb05+TxoYwxhjT6aJt1dye56xuCOScrAzPDP39oq7xPWFDyMyu +m0qaJdE3v7ZKu+QQxE9/9k+bJ9Hh0bt26roB+CQIxeWsoTD7ZdNrmXg9MJt+ +Gm6wlkKDd4O8TG56oGrgErhEm/382tylg3qwlvWRkxkzhdxRms9Pb9CDxDBT +HQ4WCp8vzerIRByEcveEdaGbKPxgIfN4POQAfDfYEHqcn8Ltuj/cDZN0oPNu +qd8/AhQGVeUI9PjpwH1W0zM1tLUFtTNCLXQg+EX+MT4hCt06bKNVxHRgo5rm +3tciFM5jUKpe8X6Q/vfcghpJ4WXvm+YP2/eBA9ust8h2Cvex/j5SIaENvYFa +/Q20n4vJ753fpA063xJ17eQovKi94Gw+pwXSL3eKFMrTdjlAOTZrwfdovyZ5 +RQoPv/y5XOOiBd6rF/m191CYxVn1hazWhPD5VfUumhT+nJF6p2ajAT8djaQ2 +aVF4UqTBPvWgBpzsvXHtHu1FH7eRDUoaoF2t6fhLm7Ye7pPdpAEbfKI4Q3Qo +XB1YMXD+sTpcmd5wMkGfQlOuFeqEmDpkjLGzPDSlcHpvvcg/EwDFfUvqZmYU +1nS1sXc1A9S9+xo4RxuNvrvX5wP0P306sdOCQpe5qj5WGwBGjt+bcisKcxaq +ph261aDArD/l7gkK4y20a/la9kL5yxKJHBcKz8VU9Kq2qUBjw/Xj4Eqh96gA +f2SxCnRVx6T20U7NrJiZuKxC38+2rMJuFL6RXBlgGKmAUjjv9zR3Cre69dcJ +flCGWuVzVdd8KLzfFpnLmN4DTXf0tc6HUHjQe+F80o7dkMVbt0YxlMLIVb2X +zvPuBu8w2acDtE2KzEUy5pVAzJRdQzmcwnDjW3u3NSiB/+oOmIykMHhmLc+w +gRJImR9RMY6lUFNz+fYVz10Qx2ypIJpEoYN7QX9rhyLYerT+aKUtp8Kt9uyB +Iuz+pFLmn0zhvwHRbh+yFWG4TEiuM4XCr3wRD4+7KYKqdd+/UekUKgilb2vZ +qAiTFSekxrPp9Qz2ljId2gGHTjiKVRdR2HrGR++fL/JQ/jnMyOwOhbWblXZO +dckDr8X1yHnavDP3zo/Vy8Mno1dfVIoptE45uF4wVR4ctRTLGkop5BC2fB6r +Kw/hkkwaLZUUDh5LUvS/JweVkyl2n+soVE41L34tuB34nMuSztVTWO/0RL/z +jywEjrY0iTZQaOvWsLD4ThbU+5dlbJ/Q/XJ7vHoaLwuv3tjNjj6lcEoKy8U2 +yMJYxfao6WYK15xmL/22vA0EApturemi31s0N95YKwOHHcRTq2mDxTr30iFp +iDkSdMHlLYWfo4v8RhukYU52u2vXOwp9hx2edwZLw9v/kuXzeun9cm6uyJqX +gkv69rUaffT5sLa37/mzFZjE13WGfaVw6DMvqw+PJChtOv505zcKuZq/OrnO +SYDb4oPKr7Rf/NbnjPkgAZ/fuaYcnqDQJyQsQiZXAh7FvrUSn6Jwb+w5ARE5 +CfCazRtrmKVwl87U17gjFBQNLvd6/6JQL7doe8UeCoZembZs/U1hmhDbhiUR +CgxvsxXHz1HoWZPT8uMrCduOeXnaLFCob+3G5xRGgt3BdjueRQqHQdUj1YGE +9N2SJs205/Zf4/2iTwIL90cluWX6f5hcyhsTIAGZdkoN046ISVNNWUWC/+Rl +gdQVCs1fd4bZfyGg9MMXNr2/FLbfstczeU3AaJPG8l/aKmMaPnb3Cfgf+LcR +xA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 11}, {0., 0.8968976999679797}}, + "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" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVV3c8Vu8bNt7zpmW/57V5l5UvGS199dwhihYqK1qy0rLLLPqWhuxkRLKb +NmVTyAjZK/QmIckW8ju/v87n/jz3ue9znue67ut6aGcvG5/n4uDgsObk4Pj/ +86Ru1HoODn6oW3He8LFuBv37jVKefZ8f7HZ0cGcUzCF2a4zCbpYA3ErJt0gU +WkSz4nzf03IEgOzV8C3C9w8a5r9+8QAShD/9plN+3KvokfFYanmHIOjwZEcd +bl9Deb8OaEjYCEEm226CqskJsd2vXA+tCsEfhptNdwQXWF/e4JsTLgzt/x3r +a6zhhrunj/euSlPAzYR+I76IBD5PUsYlCylwsDjNvt4fg+4d347Q9XD4u/BL +7s0sBoI+4j6WLTjIlTuZP5ckgxCfqZWjPRUqevkdzecw8F65EWo1RwWv/PhI +5RsYvNye7SkbLAKiiR1R3jkkKJbolmcyRYEeI1ExkcQN6ta/lMhvRCEcm3xj +f5ULnCc2sEv0xcAwOMQ3fYUDRDsov8zbxcBKR+X0W741dGeT7Mv6S+LwYq/8 +x6FPy6h9UknDGZOAT0NjDKekRXRXicG3GioBclarSZur5tC6Aql4K0VJMK7a +vGeweRpNxK33SyqUBIx25dBb3Sn0WnlcQUJXCsLT1Md7lsbRrs2tty/0SkHw +0ReirXe/IyX99F0J9tKQbH6AzcX+imZG9h5p45CBAFbRc4bzIEIcW2xnDGWg +xgpX4BbrRahmYxopTAYKkh9YbvXrQM80LldwDMgAae8T5b/6rejdkY/YLyYN +eLWa4uyXG1FleeIrD0ca7DMyvHExshYpdS1tHc+jgeSOOZeTJVXIMN6g/+gK +DewtC169XFeOmnikzj3dT4eZ06+1/PyKEEb/Ich+SIfoDxyHOO7koi2hKnIV +7XRIr/zUtiXkDcpNXRQOojEgsu6EvpxyJpp2KFLSsWeA+MjhtKmlZBT+eUVy +NJcBcRxybac8EhEj/J2LHAcTdr81HOwef4zsOJxnzPSYYNtupuyaG4H4hJ8f +dAtjwmZZUfUWjRDk1N77KaCbCRfLc6/OVwShgonbBUrSLPg572MzeTcQ2Wbm +e5Y7suAFl/RsMK8/qqP0n9PLYoHshSmFWL9rqLVfY3ltjQVPtbxOtmW5oAbh +DhtzPX4ouZT4s6JwFs1+f/2iq1sYjAYaO8b1SBDo5/N1sxMFdnsHN2jKYrDl +wntJmTUKpC1H/CqtwsDdwn+k9B4OyXrHYp0FySCot+vnsAQVAkQEjkYIk6H2 +ltPC11dUeEc5WRlQjUGEqBhWuVcEdLqqDiowMcjNeH+U1S0C6dgPcyV1Enhq +sRUpjqJgVD7GF8HHDb99tHK5CmWgqtl2UdWwDalUxn314KRBi+KnLN2QZrTn +zjaLHH0aXDF5MuSkUI88DjZeVg2hgcCHm8KaGz6gYk36OqluGmTMR0TF1leg +TSYaMtfodBjfca7UNqYYOUZyv9N2osPwtbzZXV/zUbT5pvjWbDoMeuS8Zjln +oylxYamUZTqEKv0pUnV7iUx4umVGdBmw4dix5TtX0lCllGVKZDADfo5kzg5H +JSFL9b7a2z0MuGZdsV9hVzx6XxelDgwmBGq/zIjb8gjtvssrY+fEhLL1+u7K +xmGo1FUneCWPCVYCm/K6vt1HgkNZOmYrTDjheDT0FOdtFGwoHT2vy4Ko+Kch +Mwo3kcjggUvcwSx49Qm7pPnEGzUt3VF51sWC/iTRA6cc3FGE0vYCJQY/wR9Q +BjSLMrZYUT7kC8OXdcXhLTwkWHfF4QumR4G5AJ8CoWkStAXmkRJ6KXCd/eW7 +ezIG8nVqsVP2OCweUeTvw8gQdkZxm/QCDl2qm4RHxMlw6eMZxbR7VFD7zdi8 +/wsGPBsP1z8UF4F10VKT245jsHXqHTslRwTO2qPfTm4kEHs5kCGhLwrJT9Y5 +5lhwQ3RS8kvuFBn4bZF5n23djhyWbxkX/5IBL58YZxO7FrQyvqZitJ0Gi032 +187ebUBx5B0Pj/nQ4Bjpa0+Ofg1yXc8bF1hDnHe0W1FAaSVS8iz7a8NHh9E2 +v07hA6VI4hM/n7MFwcf22s/d8oWoqeSPqeVTOkjd6Eb73XNQcMdTes4oHW5h +S7GPtF6jwM7RmB3qDHgT+Gsv6UM6stDd4ODkxYCFgZMSfmXPkEeA00xBDQPU +am/ybiUnIFfljM85AkwIaDBWlrgZjYz2la8/bc6Eel7XTerXw5GtrsfPnclE +rG9Rh8cGI9T7Yf3kGBO2tbO12aZ3ED3uc5qAGgvYG8cddxoFILTPf+aMNwtO +iORlzh31RQ3rcupmq1lg5JB6auS7B0LJXLrjK4R+TETHjN0gAcfD0O+UMArE +hVTU9RP7fdOofftTOg7PgwW9bw1gUD3eqPrgFQ49/VG158WI81Pcn5KqTQWT +T97ahevIQN/rUS3TSoUvWc3PpVIwkJEf2TNrJwIU2PxRdZIEU9eFfiQnsGDn +nOuTe9xeqHncOtJoggUpQrbpvlxuyHOn7ekoAX6IwEsHuUizKLAxp+7fFGFY +xMfyM0a5Yb/9qX5OdQoMT/vynuogQXroP54DdRQwPv4rfEs4Bv4c992CTHF4 +/N2/snMVA+NfdHMtNg6pynka1wl9K3fqq+K5ToXsu3OU0TEMKrntX7nziECZ +bpxc5wUMLgkVKI8kisAOqNr8N4IE42xLh8RtorA14WGfih83TGiYKQbGykBW +S8+3Kz/bETn6T9DAiAykGtQpXuloQX2S38QS/6GBSz6GeqARvf46LjXiQoOd +q7JNPhM1qHkqYKSglAYXJJKEHP+tQsUbsMkejA7ZomrK6gplaO4CtSjIiA71 +0vv011oK0divq3kJ0QS+Dv5wtFvNQX05o0zNL3SwfvlJrp7yBkmUTZmeVmSA +W8DOriyPDCTbOfSx8yoDyCu7rS5aJKNbz3N5jpYywDIoHibnE1DD6exnP3mY +AJMKWIDGY9RHf+zbd4QJt+2aJJeFI5CmkoCkaSwTMg9YZEv4PUQnzFomdg4z +4ciU4HPHDUHIqfqlSoI8C64luWfnjAegVg/x7aEuLJAKtzn9Xt0PfeStjZJ8 +xwKNVy0ZN954IjE988Uz48LwftqwqMWGBNq3b38T8KNAiUHyUsIeDE5YH8oc +5MchwKOMltuCgSRDbpNsPA4Jn4+bcVLJYFwIddUqVBhqlNbs5CWD29ffVjfL +qRAzb7PeJg+DHhkOeu8xEfjsp6JUux6DwJevtrRFseCs0sz7+UYv9Gna5ez1 +YRYE763IFshxQxyeWqGnflLgZJXM0YxcDD6FdpebXsfhY03DwttNZGj9rCrA +uYEKZRevlE6KkEFc/nvIvngqpCUW7PJqxeCVrlXVGQ0cnm1V/KRC4OdCrqvp +bBkOHos+lU8kiPfjjty4c5wKz/9oBexcw6CFfaBWfp4Fr5c39nmauiLHPX81 +6nn4ITWtv/n9yAy6KvWF4RknDNCoNmzUxQ0ONhZ9fgoE/7C9LtK1JBCM/qH6 +t5wCW7Na2yXvYqAUVzjcfhgHoeIlTfslDNS2S19o6MHB4EWmdBmB77GSxyG7 +rlKhSb0rW28KA2mOOemxv1RgJs6ffuGOAW9Krsl/j0TA1Cd03elkYj77ix0Y +VhKF1HvGibKh3ID/zbKvjpKBwXvPr/zY1oGOjeSmXB6WAd7DA1ajvK2oId80 +RF+BBhXDPlfj4xvRTuMPI8qXaVDLH/TwMtQiX3bpPaO3NLDyGqrw965CpLa0 +bxROOkR0iX8IiC1DZ9+KBVMO0WG6JNVcTb4ILd75h703gg62e3ktdLRzUSB9 +U6pPDx14paQnHhi/QaPZrvmzLAbQErpeGLVmoPuJjV6bLzJAa5jDMiYjGd0v +MxOKK2LAvQzp/MWdiWhxKf/eXRITZpH/qeCHj1FSKFYkZsiEasYNS2mbCMSU +GdAYiSLmq+iu4vszD9FQ1AnrgX4myGsfzH9wPgiFdcXMfGOwgJP8uz9fMxBJ +CDh0yl9mQePwi4T4ND9kEGa8qppP4H2x4/Ru6jW07lGgcfywMJRYqKxbPE6C +cwE32Q/dKCCU9WQ8VA2DcgKmHDw4jGRZNvV/xOBjqck15wgcvDBX5S+Ef1Fb ++7fXRJYK03fS+IYFyPBE47ViTgEVFOYS34uUYLBD8kH4YUMRGDqXWCpNxaBJ +b6XhQhgL4k0Kxy22eaPD7n9rg/tZsD0v9YDvZnfk6Ltk4Mcm8P3+kWfOC8K/ +/0NWTr6Kg/9XzqNX1pMhW0yZEcJBhRM+Is1RxPzWvZZs5R5B4HVLmfi6bgxE +DEV9bmzBwdOQWeDHJuKjT6uhAAde0+DqNEKfs78ahlMPUkHb64dtMjcZjtq3 +KWv9ZsH43Zihgy9cUZvNKR6t0zhU1rDd/nKSwTldVv/VTxzMTl0K6iP4ceX2 +nyfdKTgI/xae7CL45XxVt2DbLipMFfeMuWwk9GP+hcnGABzs9iQ1vuMjw/T9 +bWtXhajga6Xz7SdOhlKR/WNptTgM33ibakDg3fhM2RnhZRZ8mrNhrnK7onN7 +DRLOk/iBffB3BeqaQaMfZpsp0cLQpe9sRmnmhuvDnb2lTApsu1yaP1JOgv2x +NbzBxRQwawlQ8rmFAdfYYVFvAxwKP2/fQ1nAIMlcclaoA4cizntG5UQ/X9vF ++RYnKhx74RXcPY3BYd93XYw/VDiysZS94IXBwEV1244wEZAuzuVZeE6C2qal +nQHyoiCUtNzMF8MNmcMDt20iZGBDcziHi0UH8t4cpr5zUAYkU9t8Tm1pRbrc +AobicjR4hEqHzzQ0Ip+gHIPPTjT4oSPZ0eBYi45bn7SWKqRBsqFYT3tcFUrf +ee1Mzl8aFBXk2+9pL0PRZ+I8ew3ocKl2zSrPpAj5Hr+3LBhGhw/1JkHY+VzU +1R1vK91Fh6f5Nw7vvfoGNb3I/1bKYMA75/oACkcmQrd0jqU7MoAyMEBJbElG +IXWZItoFDNiu5X6GzywRBesVrZlxMWE92tR1r+QxItXt7ijazwTjBzJOjPsR +SCymuvxlBBN0wjJBlRqCZLeLUrN6mZAQkE59HB6Eks+GHg+iseDdzdGG52cD +UUU/X/qsEwvsVO1s5If90Ia2R1uLc1hQfNVVdLvhNeSLYtY0B4Th/MIDNc/D +JHDl5GA3XaHAPpOEq5eVMJi3+w4h3MT85brjYFqDQeKmsdciITi41u5QyRYi +QxJ9t00sjQpRZzh19YhYvX9zqGEOFbZE0m50lmNgG2ty8I6eCAwnaxu9ksTA +RehZ/I4QFtQWB03EOHgj3kKdFZFeFrjKFg2g3e4o4UanHN8gBf4oJq7FpxP+ +wivOxuAiDpxLJqde/9//7FF60bmMw3Lq/L0DBF+6adzVvCFUuDtRP7+1D4ND +hxfMBeRw+M3m7bo3hMFk/I7lkWxCT1KcmfxEPn2dgcQpfSqc23/brIjwx/yZ +omdrJlnQ7d2Yu6vTFWVmz+35aolD5DeJ3bOEvgzXM5vnRnFYCury2E7gU689 +pN3vKQ7mctqe84R+Dkdog48GFeRVPyZs3UyGRR2du1m+OEz5Xk7UJfT07Bv1 +O0W8RL/zao5LRH6E7YDM4Woc3vPbif4l+Cr4jBT5ZJEFu/f2HQz5xxVVCtKG +A7/goKxiX5FG9Ju9UqLdEI3Dg0yj8CUKGbQXVGL2Y1TonykYbBQlYq6NwTHv +iHp1IilKRD2uW/KlttM4GG+2t3ci4phdNvbqmTjc3LU+L53IH/2YlcPZiEPi ++ji7QKJ+mPR15burxP3yflBBaY8LGtS+0qbGxQ+rbvM9XC0ziBHrl8aOFAbN +HXwL0/XccPNplKU1nQKPF/QUdEtIMBy3ffX4WwoIMlucZAOI/eaP0TiyH4eh +ycw59hwGFhfiCgs+4/BDNiymkOhX+1ZO8YkjMQ+/v+oTn8XgfIlUXvkCsX/+ +SV2RvhjotTpf9g0RAeb6jLV3r0lQ6fbjjYmsKOy8F93q94QbZo+5PdIIlwHx +Q76q9U4diP+p/3WJLzLgwHNnKGNXK/LPuCiPydLA+h3HdN/XRiTDyvROuUCD +E8cii4T9axGIP68hFdAgNOz9tODLKvRn7Iz0zVUaDAgnPYTpMqS+rf9i6QE6 +KHosXAh1KEKVuzVvL4cQeup3+rOXey66mTeiN9VBh/e8Hmmv/d+gigzT1Wd0 +BnCFaCcKUzNRtIdvuZsDA5QO3V0u/ZaMwppMxCn5xP0y7pblG7tE1OX0dhdw +MkG1urYive0xymd32ATpM0HMfIeydmIEEu4s+C80nAmLz6XD/rBCUN2t6y4x +PUwozqnwLskMQq/S7pMtZVjAuuhiUeUeiIR1z4X0XGBBdmpIZeSaHxpz1TS4 +kU34w0jHA5bnr6EiIVbH+j7i/KjrI3IMSOBdXnru0iUKBL8bPmuqgEGIwwkV +M04cWp+aXHrwHoN76tvqxx/gYCPtUyBM8NlC4608kqYC38Y9fFNE7KuqVU3N +okJbTebv15UY+PTky7N0RYAjW1dnUgaDD9fmb0k+ZMG+L0HZAwHeaNJshDLQ +zYLfS56NOsbuSDNAD+/sp0DMl/jU+6kYaCV995O8gMOh74LctWQy9Bx5fsVr +ifCrIV5RMQRfme5qCz0PqPB0Wai3tB+D0SO2+7uZOOjemljcMIhBd/VN/O0b +HKSPlBwqIfS2R6RukGsfFTwyGoLfEfWmDIq97v8k9LvZU7plwhVFdoNFvjnh +f1f/7hv9i0FM/7OIxyM4uBy2kbAk8Km20jtlnIBDtB9o+RJ8jUmtINHUqLCn +784bMsFntmNwSqA3Dm8PSYvfJPguVpl90GoTFdK/+PS4E3rr/0DhX1olDkr8 +cx+aCf5N66S9OrfAgmalgb5r2q7oOjMxVb6f0O9HO7fnE/2+POKxTojCYVv1 +7dxLBL//8Ly2nuCigmhjs9Q24n/+UTiRcbEIh1g7jgcTxH68jUq7uWGKOK+j +B1EaUf/W6dcB5HQcBtty5XQIfn/+vdLU9hGHzCH2oANR37lcYv+RFRb85y1/ +xuSXCxrTf6JypQuHzcNcvpXEOrfHxBehPMLfcu04aE3UV3ybstF4HAcS36je +JmI9A4VjXh9wOJntXCRLxBs4kySHhoj76dE/5eFEfKK3zLmmBAfWiO0me+J7 +DFwylipncbgu+JL0/3m0+sw2WvkTDrnrgjVjiPxs307h938JfOaZCaIPLuh/ +n2uFNA== + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1Hl8z3UcB/Bhc2yLbTarpEy6HMm2dKBDZZemHI2xpUVIbbrQIZ1069Zd +jg46HB2OohxFrqIUKpUOOZKik+L5fvTH8/d6fz7v3+/9++z7+zyWU1XTo7pW +QkJCpZfIg71slFMYwXnkUZs6JJJEXepRnwYc4nNfyOcZyfnkc6L9P+VCHuJy +kjnU/pfyBUbRI95LB/t/yUU8TDUpNLX/lXyRa+nJaXFgloun4rOcZP23XMwj +1NDFXiKr1c+RymHWm+RLXEdX6/qsVffi9HgerFA/TbE6lc/iOzhZ/Y9cQnd1 +Oo+qC2Uyn8YZZRbD1WfJJMr4KJ6PbEw/Jlp3kw3py/o4g2xCBQdZN5Nfywvk +VFkq0yjneusC2YA+fBLPU2bSn97WZ8jarIzfVGbwjLok5vN5/E2cot4r32cC +RdYprFNfwdnqunysnkRDDrf+Rk7jhjgjZ9qrwyr1szGXU633yQ94jCtpxBH2 +v5UvM5qyeC8d7f8rl/I4V5FGc/ub5SvcSJ94L+nk6H0nX2UMfelEBo3JJIsm +ZMd9j7sb9zHuWNyLeNbxN8W5aGHe9/I1bqKcznEGjtT7QU7nZvrFnYwz0FLv +RzmDW+gfdyrmcZTeFjmTW6mI3yfmcbTeT3IWt1EZzzLmcYzeVvk6t3Nh3O2Y +x7F62+QbjGVA3LmYx3F62+WbjOOi+B1jHq30dsi3uIMqzol5tNb7Wc7mTi6m +a8yjjd5OOYe7GEhBzKOt3i9yLncziMKYx/F6u+Q87uESimIe7fR+lW9zL4Mp +jnmcoPebfIf7GEJJzKO93m45n/EMpVvMI1dvj1zA/VzKuTGPPL3f5bs8wDBK +477Y/08u4wmuju8g3/4f8j0e5DK6x32wv19+yJNcE8/QXj3WqCfHd6obsUHd +W2bX+v9/bq71ARgdk2M= + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgEAURMEvGtiGrWhgYmQBBgbCgXDg2T9qIFiCwSQLj51uzfO2VBGl +iYgplXO741P1U+0989gPec9Hev4U7+A4juM4juM4juM4juM4juM4juM4juM4 +juM4juM4juM4juM4juM4juM4juM4juM4/kt+AfmhNUs= + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVV3c8Vu8bNt7zpmW/57V5l5UvGS199dwhihYqK1qy0rLLLPqWhuxkRLKb +NmVTyAjZK/QmIckW8ju/v87n/jz3ue9znue67ut6aGcvG5/n4uDgsObk4Pj/ +86Ru1HoODn6oW3He8LFuBv37jVKefZ8f7HZ0cGcUzCF2a4zCbpYA3ErJt0gU +WkSz4nzf03IEgOzV8C3C9w8a5r9+8QAShD/9plN+3KvokfFYanmHIOjwZEcd +bl9Deb8OaEjYCEEm226CqskJsd2vXA+tCsEfhptNdwQXWF/e4JsTLgzt/x3r +a6zhhrunj/euSlPAzYR+I76IBD5PUsYlCylwsDjNvt4fg+4d347Q9XD4u/BL +7s0sBoI+4j6WLTjIlTuZP5ckgxCfqZWjPRUqevkdzecw8F65EWo1RwWv/PhI +5RsYvNye7SkbLAKiiR1R3jkkKJbolmcyRYEeI1ExkcQN6ta/lMhvRCEcm3xj +f5ULnCc2sEv0xcAwOMQ3fYUDRDsov8zbxcBKR+X0W741dGeT7Mv6S+LwYq/8 +x6FPy6h9UknDGZOAT0NjDKekRXRXicG3GioBclarSZur5tC6Aql4K0VJMK7a +vGeweRpNxK33SyqUBIx25dBb3Sn0WnlcQUJXCsLT1Md7lsbRrs2tty/0SkHw +0ReirXe/IyX99F0J9tKQbH6AzcX+imZG9h5p45CBAFbRc4bzIEIcW2xnDGWg +xgpX4BbrRahmYxopTAYKkh9YbvXrQM80LldwDMgAae8T5b/6rejdkY/YLyYN +eLWa4uyXG1FleeIrD0ca7DMyvHExshYpdS1tHc+jgeSOOZeTJVXIMN6g/+gK +DewtC169XFeOmnikzj3dT4eZ06+1/PyKEEb/Ich+SIfoDxyHOO7koi2hKnIV +7XRIr/zUtiXkDcpNXRQOojEgsu6EvpxyJpp2KFLSsWeA+MjhtKmlZBT+eUVy +NJcBcRxybac8EhEj/J2LHAcTdr81HOwef4zsOJxnzPSYYNtupuyaG4H4hJ8f +dAtjwmZZUfUWjRDk1N77KaCbCRfLc6/OVwShgonbBUrSLPg572MzeTcQ2Wbm +e5Y7suAFl/RsMK8/qqP0n9PLYoHshSmFWL9rqLVfY3ltjQVPtbxOtmW5oAbh +DhtzPX4ouZT4s6JwFs1+f/2iq1sYjAYaO8b1SBDo5/N1sxMFdnsHN2jKYrDl +wntJmTUKpC1H/CqtwsDdwn+k9B4OyXrHYp0FySCot+vnsAQVAkQEjkYIk6H2 +ltPC11dUeEc5WRlQjUGEqBhWuVcEdLqqDiowMcjNeH+U1S0C6dgPcyV1Enhq +sRUpjqJgVD7GF8HHDb99tHK5CmWgqtl2UdWwDalUxn314KRBi+KnLN2QZrTn +zjaLHH0aXDF5MuSkUI88DjZeVg2hgcCHm8KaGz6gYk36OqluGmTMR0TF1leg +TSYaMtfodBjfca7UNqYYOUZyv9N2osPwtbzZXV/zUbT5pvjWbDoMeuS8Zjln +oylxYamUZTqEKv0pUnV7iUx4umVGdBmw4dix5TtX0lCllGVKZDADfo5kzg5H +JSFL9b7a2z0MuGZdsV9hVzx6XxelDgwmBGq/zIjb8gjtvssrY+fEhLL1+u7K +xmGo1FUneCWPCVYCm/K6vt1HgkNZOmYrTDjheDT0FOdtFGwoHT2vy4Ko+Kch +Mwo3kcjggUvcwSx49Qm7pPnEGzUt3VF51sWC/iTRA6cc3FGE0vYCJQY/wR9Q +BjSLMrZYUT7kC8OXdcXhLTwkWHfF4QumR4G5AJ8CoWkStAXmkRJ6KXCd/eW7 +ezIG8nVqsVP2OCweUeTvw8gQdkZxm/QCDl2qm4RHxMlw6eMZxbR7VFD7zdi8 +/wsGPBsP1z8UF4F10VKT245jsHXqHTslRwTO2qPfTm4kEHs5kCGhLwrJT9Y5 +5lhwQ3RS8kvuFBn4bZF5n23djhyWbxkX/5IBL58YZxO7FrQyvqZitJ0Gi032 +187ebUBx5B0Pj/nQ4Bjpa0+Ofg1yXc8bF1hDnHe0W1FAaSVS8iz7a8NHh9E2 +v07hA6VI4hM/n7MFwcf22s/d8oWoqeSPqeVTOkjd6Eb73XNQcMdTes4oHW5h +S7GPtF6jwM7RmB3qDHgT+Gsv6UM6stDd4ODkxYCFgZMSfmXPkEeA00xBDQPU +am/ybiUnIFfljM85AkwIaDBWlrgZjYz2la8/bc6Eel7XTerXw5GtrsfPnclE +rG9Rh8cGI9T7Yf3kGBO2tbO12aZ3ED3uc5qAGgvYG8cddxoFILTPf+aMNwtO +iORlzh31RQ3rcupmq1lg5JB6auS7B0LJXLrjK4R+TETHjN0gAcfD0O+UMArE +hVTU9RP7fdOofftTOg7PgwW9bw1gUD3eqPrgFQ49/VG158WI81Pcn5KqTQWT +T97ahevIQN/rUS3TSoUvWc3PpVIwkJEf2TNrJwIU2PxRdZIEU9eFfiQnsGDn +nOuTe9xeqHncOtJoggUpQrbpvlxuyHOn7ekoAX6IwEsHuUizKLAxp+7fFGFY +xMfyM0a5Yb/9qX5OdQoMT/vynuogQXroP54DdRQwPv4rfEs4Bv4c992CTHF4 +/N2/snMVA+NfdHMtNg6pynka1wl9K3fqq+K5ToXsu3OU0TEMKrntX7nziECZ +bpxc5wUMLgkVKI8kisAOqNr8N4IE42xLh8RtorA14WGfih83TGiYKQbGykBW +S8+3Kz/bETn6T9DAiAykGtQpXuloQX2S38QS/6GBSz6GeqARvf46LjXiQoOd +q7JNPhM1qHkqYKSglAYXJJKEHP+tQsUbsMkejA7ZomrK6gplaO4CtSjIiA71 +0vv011oK0divq3kJ0QS+Dv5wtFvNQX05o0zNL3SwfvlJrp7yBkmUTZmeVmSA +W8DOriyPDCTbOfSx8yoDyCu7rS5aJKNbz3N5jpYywDIoHibnE1DD6exnP3mY +AJMKWIDGY9RHf+zbd4QJt+2aJJeFI5CmkoCkaSwTMg9YZEv4PUQnzFomdg4z +4ciU4HPHDUHIqfqlSoI8C64luWfnjAegVg/x7aEuLJAKtzn9Xt0PfeStjZJ8 +xwKNVy0ZN954IjE988Uz48LwftqwqMWGBNq3b38T8KNAiUHyUsIeDE5YH8oc +5MchwKOMltuCgSRDbpNsPA4Jn4+bcVLJYFwIddUqVBhqlNbs5CWD29ffVjfL +qRAzb7PeJg+DHhkOeu8xEfjsp6JUux6DwJevtrRFseCs0sz7+UYv9Gna5ez1 +YRYE763IFshxQxyeWqGnflLgZJXM0YxcDD6FdpebXsfhY03DwttNZGj9rCrA +uYEKZRevlE6KkEFc/nvIvngqpCUW7PJqxeCVrlXVGQ0cnm1V/KRC4OdCrqvp +bBkOHos+lU8kiPfjjty4c5wKz/9oBexcw6CFfaBWfp4Fr5c39nmauiLHPX81 +6nn4ITWtv/n9yAy6KvWF4RknDNCoNmzUxQ0ONhZ9fgoE/7C9LtK1JBCM/qH6 +t5wCW7Na2yXvYqAUVzjcfhgHoeIlTfslDNS2S19o6MHB4EWmdBmB77GSxyG7 +rlKhSb0rW28KA2mOOemxv1RgJs6ffuGOAW9Krsl/j0TA1Cd03elkYj77ix0Y +VhKF1HvGibKh3ID/zbKvjpKBwXvPr/zY1oGOjeSmXB6WAd7DA1ajvK2oId80 +RF+BBhXDPlfj4xvRTuMPI8qXaVDLH/TwMtQiX3bpPaO3NLDyGqrw965CpLa0 +bxROOkR0iX8IiC1DZ9+KBVMO0WG6JNVcTb4ILd75h703gg62e3ktdLRzUSB9 +U6pPDx14paQnHhi/QaPZrvmzLAbQErpeGLVmoPuJjV6bLzJAa5jDMiYjGd0v +MxOKK2LAvQzp/MWdiWhxKf/eXRITZpH/qeCHj1FSKFYkZsiEasYNS2mbCMSU +GdAYiSLmq+iu4vszD9FQ1AnrgX4myGsfzH9wPgiFdcXMfGOwgJP8uz9fMxBJ +CDh0yl9mQePwi4T4ND9kEGa8qppP4H2x4/Ru6jW07lGgcfywMJRYqKxbPE6C +cwE32Q/dKCCU9WQ8VA2DcgKmHDw4jGRZNvV/xOBjqck15wgcvDBX5S+Ef1Fb ++7fXRJYK03fS+IYFyPBE47ViTgEVFOYS34uUYLBD8kH4YUMRGDqXWCpNxaBJ +b6XhQhgL4k0Kxy22eaPD7n9rg/tZsD0v9YDvZnfk6Ltk4Mcm8P3+kWfOC8K/ +/0NWTr6Kg/9XzqNX1pMhW0yZEcJBhRM+Is1RxPzWvZZs5R5B4HVLmfi6bgxE +DEV9bmzBwdOQWeDHJuKjT6uhAAde0+DqNEKfs78ahlMPUkHb64dtMjcZjtq3 +KWv9ZsH43Zihgy9cUZvNKR6t0zhU1rDd/nKSwTldVv/VTxzMTl0K6iP4ceX2 +nyfdKTgI/xae7CL45XxVt2DbLipMFfeMuWwk9GP+hcnGABzs9iQ1vuMjw/T9 +bWtXhajga6Xz7SdOhlKR/WNptTgM33ibakDg3fhM2RnhZRZ8mrNhrnK7onN7 +DRLOk/iBffB3BeqaQaMfZpsp0cLQpe9sRmnmhuvDnb2lTApsu1yaP1JOgv2x +NbzBxRQwawlQ8rmFAdfYYVFvAxwKP2/fQ1nAIMlcclaoA4cizntG5UQ/X9vF ++RYnKhx74RXcPY3BYd93XYw/VDiysZS94IXBwEV1244wEZAuzuVZeE6C2qal +nQHyoiCUtNzMF8MNmcMDt20iZGBDcziHi0UH8t4cpr5zUAYkU9t8Tm1pRbrc +AobicjR4hEqHzzQ0Ip+gHIPPTjT4oSPZ0eBYi45bn7SWKqRBsqFYT3tcFUrf +ee1Mzl8aFBXk2+9pL0PRZ+I8ew3ocKl2zSrPpAj5Hr+3LBhGhw/1JkHY+VzU +1R1vK91Fh6f5Nw7vvfoGNb3I/1bKYMA75/oACkcmQrd0jqU7MoAyMEBJbElG +IXWZItoFDNiu5X6GzywRBesVrZlxMWE92tR1r+QxItXt7ijazwTjBzJOjPsR +SCymuvxlBBN0wjJBlRqCZLeLUrN6mZAQkE59HB6Eks+GHg+iseDdzdGG52cD +UUU/X/qsEwvsVO1s5If90Ia2R1uLc1hQfNVVdLvhNeSLYtY0B4Th/MIDNc/D +JHDl5GA3XaHAPpOEq5eVMJi3+w4h3MT85brjYFqDQeKmsdciITi41u5QyRYi +QxJ9t00sjQpRZzh19YhYvX9zqGEOFbZE0m50lmNgG2ty8I6eCAwnaxu9ksTA +RehZ/I4QFtQWB03EOHgj3kKdFZFeFrjKFg2g3e4o4UanHN8gBf4oJq7FpxP+ +wivOxuAiDpxLJqde/9//7FF60bmMw3Lq/L0DBF+6adzVvCFUuDtRP7+1D4ND +hxfMBeRw+M3m7bo3hMFk/I7lkWxCT1KcmfxEPn2dgcQpfSqc23/brIjwx/yZ +omdrJlnQ7d2Yu6vTFWVmz+35aolD5DeJ3bOEvgzXM5vnRnFYCury2E7gU689 +pN3vKQ7mctqe84R+Dkdog48GFeRVPyZs3UyGRR2du1m+OEz5Xk7UJfT07Bv1 +O0W8RL/zao5LRH6E7YDM4Woc3vPbif4l+Cr4jBT5ZJEFu/f2HQz5xxVVCtKG +A7/goKxiX5FG9Ju9UqLdEI3Dg0yj8CUKGbQXVGL2Y1TonykYbBQlYq6NwTHv +iHp1IilKRD2uW/KlttM4GG+2t3ci4phdNvbqmTjc3LU+L53IH/2YlcPZiEPi ++ji7QKJ+mPR15burxP3yflBBaY8LGtS+0qbGxQ+rbvM9XC0ziBHrl8aOFAbN +HXwL0/XccPNplKU1nQKPF/QUdEtIMBy3ffX4WwoIMlucZAOI/eaP0TiyH4eh +ycw59hwGFhfiCgs+4/BDNiymkOhX+1ZO8YkjMQ+/v+oTn8XgfIlUXvkCsX/+ +SV2RvhjotTpf9g0RAeb6jLV3r0lQ6fbjjYmsKOy8F93q94QbZo+5PdIIlwHx +Q76q9U4diP+p/3WJLzLgwHNnKGNXK/LPuCiPydLA+h3HdN/XRiTDyvROuUCD +E8cii4T9axGIP68hFdAgNOz9tODLKvRn7Iz0zVUaDAgnPYTpMqS+rf9i6QE6 +KHosXAh1KEKVuzVvL4cQeup3+rOXey66mTeiN9VBh/e8Hmmv/d+gigzT1Wd0 +BnCFaCcKUzNRtIdvuZsDA5QO3V0u/ZaMwppMxCn5xP0y7pblG7tE1OX0dhdw +MkG1urYive0xymd32ATpM0HMfIeydmIEEu4s+C80nAmLz6XD/rBCUN2t6y4x +PUwozqnwLskMQq/S7pMtZVjAuuhiUeUeiIR1z4X0XGBBdmpIZeSaHxpz1TS4 +kU34w0jHA5bnr6EiIVbH+j7i/KjrI3IMSOBdXnru0iUKBL8bPmuqgEGIwwkV +M04cWp+aXHrwHoN76tvqxx/gYCPtUyBM8NlC4608kqYC38Y9fFNE7KuqVU3N +okJbTebv15UY+PTky7N0RYAjW1dnUgaDD9fmb0k+ZMG+L0HZAwHeaNJshDLQ +zYLfS56NOsbuSDNAD+/sp0DMl/jU+6kYaCV995O8gMOh74LctWQy9Bx5fsVr +ifCrIV5RMQRfme5qCz0PqPB0Wai3tB+D0SO2+7uZOOjemljcMIhBd/VN/O0b +HKSPlBwqIfS2R6RukGsfFTwyGoLfEfWmDIq97v8k9LvZU7plwhVFdoNFvjnh +f1f/7hv9i0FM/7OIxyM4uBy2kbAk8Km20jtlnIBDtB9o+RJ8jUmtINHUqLCn +784bMsFntmNwSqA3Dm8PSYvfJPguVpl90GoTFdK/+PS4E3rr/0DhX1olDkr8 +cx+aCf5N66S9OrfAgmalgb5r2q7oOjMxVb6f0O9HO7fnE/2+POKxTojCYVv1 +7dxLBL//8Ly2nuCigmhjs9Q24n/+UTiRcbEIh1g7jgcTxH68jUq7uWGKOK+j +B1EaUf/W6dcB5HQcBtty5XQIfn/+vdLU9hGHzCH2oANR37lcYv+RFRb85y1/ +xuSXCxrTf6JypQuHzcNcvpXEOrfHxBehPMLfcu04aE3UV3ybstF4HAcS36je +JmI9A4VjXh9wOJntXCRLxBs4kySHhoj76dE/5eFEfKK3zLmmBAfWiO0me+J7 +DFwylipncbgu+JL0/3m0+sw2WvkTDrnrgjVjiPxs307h938JfOaZCaIPLuh/ +n2uFNA== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1Hl8z3UcB/Bhc2yLbTarpEy6HMm2dKBDZZemHI2xpUVIbbrQIZ1069Zd +jg46HB2OohxFrqIUKpUOOZKik+L5fvTH8/d6fz7v3+/9++z7+zyWU1XTo7pW +QkJCpZfIg71slFMYwXnkUZs6JJJEXepRnwYc4nNfyOcZyfnkc6L9P+VCHuJy +kjnU/pfyBUbRI95LB/t/yUU8TDUpNLX/lXyRa+nJaXFgloun4rOcZP23XMwj +1NDFXiKr1c+RymHWm+RLXEdX6/qsVffi9HgerFA/TbE6lc/iOzhZ/Y9cQnd1 +Oo+qC2Uyn8YZZRbD1WfJJMr4KJ6PbEw/Jlp3kw3py/o4g2xCBQdZN5Nfywvk +VFkq0yjneusC2YA+fBLPU2bSn97WZ8jarIzfVGbwjLok5vN5/E2cot4r32cC +RdYprFNfwdnqunysnkRDDrf+Rk7jhjgjZ9qrwyr1szGXU633yQ94jCtpxBH2 +v5UvM5qyeC8d7f8rl/I4V5FGc/ub5SvcSJ94L+nk6H0nX2UMfelEBo3JJIsm +ZMd9j7sb9zHuWNyLeNbxN8W5aGHe9/I1bqKcznEGjtT7QU7nZvrFnYwz0FLv +RzmDW+gfdyrmcZTeFjmTW6mI3yfmcbTeT3IWt1EZzzLmcYzeVvk6t3Nh3O2Y +x7F62+QbjGVA3LmYx3F62+WbjOOi+B1jHq30dsi3uIMqzol5tNb7Wc7mTi6m +a8yjjd5OOYe7GEhBzKOt3i9yLncziMKYx/F6u+Q87uESimIe7fR+lW9zL4Mp +jnmcoPebfIf7GEJJzKO93m45n/EMpVvMI1dvj1zA/VzKuTGPPL3f5bs8wDBK +477Y/08u4wmuju8g3/4f8j0e5DK6x32wv19+yJNcE8/QXj3WqCfHd6obsUHd +W2bX+v9/bq71ARgdk2M= + "], 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]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 2.7645311207418275`}}, + "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:eJwV1nc8Vf8fB3DjnpuWfc+1ucvKl0IlffV5hyhaqKxoyUolu8yib0nJTkYk +u1LZZKciI2RvuklIkpnkd35/3cfzcc49n/d5fz6f1+fQzl42Ps/FwcFhzcnB +8f/fk7ox6zk4+KH+j8uGD/W/0LC2c7sqFz+sui/0crX+Quf2GiSdJ/ED++DP +atT9Cznu+avewMMP6RkDLW/HfiEvDdvTMQL8EIVXDHOR5lCU0o4iJQY/pJqD +MqA51CjcaWOuxw/ll5K/VxfPoX+/UKpy7/KD3c5O7qyiecRui1PYzRKAm2mF +FslCS2hOnO9rRp4AkL0bv0T5/Uaj/NcuHkCC8HvAdMafexU9MJ5Ir+oUBB2e +3JjDHWuo4McBdQkbIchm201RNTkhvifH7dCqEPxmuNv0RHGB9eUNfnmRwtDx +37H+pvfcwIj3z2BHC4PmTr7F2QZuGH8310KJFYZufRczSgs3XJEaYnglCAM0 +qY4adXNDUFNe/b9pwrCETxRmjXND1hYryrtCYRhaVxbZykOCua8vnnX3CIPR +YFPnpB4JSoRYnev7iedT10flGZDAD8WtaQ4Kw/nFe6peh0mw7kGQceKoMJRb +qKxbOk4CMT3zpTOTwvB21rCk1YYEKJVLd/IPUe9UbNzEdRLcOX28b1WaAu4m +9OuJJSS48TjG0ppOgYeLegq65SS4NtrVV8GkwPbLFYVjVSRwsLHo91egQAK2 +11W6jgT77U8NcKpRYHTWj/dUJzG+s8MQpkeB+UDfIqFZEgT5+37e7ESB3T6h +jZqyGPhUVZy7dIkCoa9Hz5oqYODGycFudqbAPpOkK5eVMDgXeIN9350CQq8e +TYarYqB969YXAX8KlBukLiftwYDjfvhXSgQxflh1/cBxDHwfpU1KFlPgYFmG +fUMABqMJO1aPl1JAkNnqJBuIwf7497yhZRQwaw1U8r2JgWDst21/qyiw9VVb +h+QdDDLD//EarKeA8fEfkVsiMWgPKiAl9VHgGnvoq0cqBpqBenjXAAXihhLT +76ZjkHS9S45vmAK/FZPXEjMxcPRbNvBnU+Dk2wdeec+I+ry0wk99J/xG5mhW +PgZbLryVlFmjQMZK1I+KNxiEOZxQMePEoe2xyaV7bzFYsPsKYdw4eHLddjB9 +j0GVzXobDh4cxl5ZNg98wOCE9aHsYX4cAj0rafmtGNww6tjxmI7D01BBn5uD +GIwfsd3fw8RB9+bU0oZhDA4dXjQXkMPhJ5u3O2QEAxFDUd/rW3DwMmQW+bMx +yNG1enNGHYcnWxU/qkxg0LPzyxG6Hg5/F3/IvZzDYJo/Tv3IfhxGprPn2fMY +cE0cFvUxwKH40449lEUMlBKKRzsO4yBUtqxpv4xBAMdd92BTHB5+DajpWsUg +ugcsCs1xSFr9u2/8LwbZufN7PlviEP1FYvfcGtFfm1M8WqdxqHnPdv/LSQb5 +etX4GXsclo4o8vdjZNBK+eoveQGHQ18FuevIZDD2TrAxuIgD57LJqRfryODz +D1k59QoOAZ85jzqvJ8PH8J4q02s4fHjfuFi6iQxsx9C0IB8cSg9Ji9/YTIYl +HZ07r/xwmPG7nKzLSwb6wjOTjYE42O1JaXrNRwYPi4CxihAcUvWOxbsIkiFE +bXvD5D0cbKR9i4SFyJC8aeKFSBgObnU7VXIJf6gwueoShYM35qY8JEyGoQc8 +1kkxOGyvvZV/iUKGOedy7cZYHO5lG0UuE5ZkyG2STST68em4GSeVDKp/+maM +k3CI9QctP8J6HWEd/o9xMJfT9log7Hzr96OeNByEfwpPd4uQ4ebpF4HkTByG +2/PldETJELfLxl4tG4cbu9YXZBKunWzadi8Hh96BmLrzYmToqb2Bl77EQfpI ++aFywtOJO1fGcon5TnNh8ouTgdtzakioAAcDrp0HrQmLHH1cC0U48JqG1mYQ +/kfhRNbFEhzi7TjuTRHW5toYGvcah7f1ImlKEmQ40Vfp8r4cB9aY7SZ7whfy +3UznKon1u+Rb84hwwD2Ff2k1OCjxz79rIRxlOyhzuJb4P7+d6F/CWSgS836H +w8lclxJZSTJUiOyfyKjDYfR6aboB4U8//zS3f8Ahe4Q97EB4/MOrPM4mHJLX +J9gFEV59Yhur/BGH/HWhmnGEBX3FfS1bcZCrcjJ/StjiQkJx0SccvslGxBUT +TjGXnBPqxKGEM8SoivCE/iMV524cNo9y+dUQVt0hfaGxl+jHs2zpSsLXmMnp +8gPE+nygsaOQcI0gbTRoCAdlFfvqDMIbOFMkR0aIfh/9XRVJ2PgH3VyLjUO6 +coH6NcJxA0+iHo7h4HrYRsKS8GgDs2V+HIfl4G7PHYQVS9M2Gk/iQOIb19tE +2CVTVj/nOw5mpy4F9xP9KY3JuLFhhsiHowdRBmGum/IVtrM4GG+2t3cibOCa +tVwzh8M1week/89HxBnF7dKLOHRv2yQ8RsxX75Gnzt7LRF6EecfEEabvUXrW +tYLDSvpCyAHCuWLKjDAOKpzwFWmJIdbHb54X1lNcVBBtapHaTlh7USVuP0aF +gV9Fw03E+mr7tE2AcwMVKi86V0wT61GsJveg1SYqZA759noQPvtS7XYJLxXO +nVd1XCbW7+zd7WtXhKjgZ6Xz5TtOzI/eru+jElQIFBE4GkXsFwv1UnkkTQW+ +jXv4Zoj9lELfbRNPo0LMGU5dPcKqa//2mchSYfZ2Bt+oANHfYqivVaHCSJO0 +Zhexf+PSq0k0VSrs6b/9kkx4NEobfNWpIL/tQ9JWYr+7XNEt2r6LCjNlvROu +G4n+KO5PS9emgslHH+1iIj96ReqHufZRwTOrMfQ1kS/0dQYSp/SJ+vffMish +8if3s2Ek9SAVtL2/2aZyE++fcOT67eNUePpbK1CDyC8hPlMrR3sqVPfxO5oT ++VhXKqf4yJG4/jWnX5zITz/bpYVWJyoce+Yd2jOLwUT5w7BdV6jQrNadqzdD +5LtT/xuea1TIvTNPGSfy99KHM4oZIVRQ/cnYvH8IA6aH6mLvPSo8XhHqqxgg +8pnGXcsbRoU7Uw0LW/sx0L2aauURRYy3pVJ8XQ8G4vJfw/YlUiEjuWiXdxtR +z02nxc85VHhNOVkTWEvUs02rlvqKCu3vs3++qMFAbWBzuGEeFbZE0653VWHw +SP2FYl4RFRTmk9+KlGPg/vmn1Y0qKsQtEAdRAQb0vZ61Mm1UGHrV8lQqjTi/ +/1wPt5qngndhYrTydQzOl0sVVC0S/Q9I6Y72w+Cw3+tuxm8qHNlYwV70xkCa +Y1564i8VmMkLp595YFDDbZ/jwSMClboJcl0XMODZeLjhvrgIrIuVmt5OnOdR +omJYzV4R0Ol+c1CBSZzvvYXyLF0R4MjV1ZmWwcA23uTgbT0RGE3VNsqRxGCn +5L3Iw4YiMHIuuUKaikGvDAe975gIfPJXUapbj4GM/NieOTsRoMDmD9umSfB8 +R66XbKgIiCZ3xvjkkUCvzeWyX5gIMNdnrb1+QYLBi2q2nREiIF2Wz7P4lAS8 +afkm/z0QAVPf8HWnU0lwSahIeSxZBHbCm81/o0iwdeY1Oy1PBM7ao59O7iTI +z3p7lNUjApnYN3MlNRKUSfTIM5miQI+TqJ5K4YYa928vTWRFQSMkts3/ETfU +NS9rBMqLglDKSgtfHDe0B4gdGFUShfQQ42TZcG6YZFs6JG8Xha1J9/tV/LlB +7PlgloS+KKQ+WueYZ8ENXlpsRYqjKBhVTfBF8XGDmvUPJfJLUYjEpl/aX+EC +l6kN7HJ9MTAMDfPL/MMBop2UH+YdYmClo3K6lG8N3d4k+7zhkjg82yv/YeTj +CuqYVlJ3wSTg48gEwyllCd1RYvCthkuAnNVqyuY382hdkVSilaIkGL/ZvGe4 +ZRZNJaz3TymWBIzmfKhUdwa9UJ5UkNCVgsgMtcne5Um0a3PbrQt9UhB69Jlo +252vSEk/c1eSvTTx/X6AzcX+jH6N7T3SziEDgaySpwyXYYQ4ttj+MpSB91a4 +ArdYH0LvN2aQImSgKPWe5Vb/TjR3zP2BeqQMiB/y29bg1ImyRwdv2UTJwIaW +SA5Xi06E/31lXxsjA8MhT52/be9EU+pmikHxMvCqtfeL8/cOFJuS+pw7TQZ+ +WmTfZVt3oJ++WvlcxTLwpsV2aZthO3qifrmaY1AGSHsfKf/Vb0P8jwOuSQzJ +gAPP7ZGsXW3IZ3OEmsawDEimt/ue2tKGjo3lp10elQHew4NW47xtiBz7O3hw +TAbSDeoVnTtbkcPKTeOyHzLg7RvnYmLXilRqEj57ctKgVfHjK92wFvT6yAfs +B5MGvFrNCfYrTSgg66I8JksD69ccs/2fm5Aut4ChuBwNHqCK0TONTaix0DRM +X4EG1aO+VxITm1C/5Bex5H9o4FqIoV5oQn8m11SMdtBgqdn+6tk7jWjP7e0W +efo0cDZ5NOKk0IBqqpJzPB1psM/I8PrF6Dokw8r2SbtAgxPHokuEA+qQb3Ce +wScnGnzTkexsdKxDGsbvxpQv06COP/j+ZahDLz5PSo250kBjVbbZd+o9SiDv +vH/MlwbHSJ978/TfI8+DTZe3hdFA4N0NYc0N75BS9/LWyQIaSO6cdz1Z/gaB ++NP3pCIahEe8nRV8/gYdtz5pLVVMg1RDsd6OhDfIj10RYlRKAyvvkeoAnzeo +ZSZwrKiCBhckUoQc/32D3NbzJgS9J94n1r0ksKIGlWnS10n10CBrISomvqEa +GSYaDBz9QwN7y6Kc5+uq0O+JM9I3VmkwKJxyH2YrUabG1TN5f2lQUlRov6ej +EpHaM75QOOkQ1S3+LjC+EpVtwKZ7MTrkiqoqqylUIiWvyr82fHQYb/fvEj5Q +gTaZqMtcpdNhcue5Ctu4MtTMI3Xu8X46/Dr9QsvfvwSpbR+4WHGADoqeixfC +HUpQ7JkErz4DOlyqW7MqMClBZ0vFQimH6DBbnm6uKl+C5i9QS4KN6NAgvU9/ +rbUYSXzk53OxoENmR92nHvli5BjN/VrbiQ6jVwvmdn0uRBj9myD7Ph1i33Ec +4ridj2p2a95aCSOe53/6k7dHPvI7HrIiGEGHdw0mwdj5fLR0+x/23ig62O7l +tdDRzkcTP64UJMXSQergN0e71TzUXP7b1PIx4es9aL9HHoo135TYlkuHYc+8 +FyyXXLQlXEWuuoOop+Zj+5awl+hGwZjeTCcd3vJ6ZrwIeIm6exJtpbvp8Ljw ++uG9V16iIPqmdN9eOvBKSU/dM36J+vPGmZpDdLB+/lGugfIShXY+pueN0+Em +thz/QOsFmhEXlkpboUO40u+Sbe7PUX76knAwjQHR9Sf05ZSzUXWW6eoTOgO4 +wrSThanZqPlZ4ZcKBgNeuzQEUjiy0XiuW+EciwG0pO5nRm1ZSKJyxvS0IgPc +AzW6X3lmoaCu8bidagx4GfRjL+ldJjLh6ZEZ02XAhmPHVm47Z6BZhxIlHXsG +iI8dzphZTkWxnn5V7g4MUDp0Z6XiSypCN3WOZToygDI4SEluTUV3k5u8N19k +gNYoh2VcViqS7Rr50HWFAeQ/u60uWqQiC90NDk7eDFgcPCnhX/kE1UhZpkWH +MuD7WPbcaEwKivz0R3I8nwEJHHLtpzyTUUSziTilkLiecNPypV0yCqvPFtEu +YsAOLY8zfGbJ6G6lmVBCCQNCsqQLlzSS0c2n+TxHKxhgGZwI0wtJyDPQ6VfR +ewao1t3g3UpOQpZq/XW3ehlw1bp6v8KuRMSIfO0qx8GE3aWGwz2TD1G3U+ku +4GTCttq66sz2hyhUr2TNjIsJ69Gm7pDyh2hpuTDkDokJcyjgVOj9h6jxdO6T +7zxMgGkFLFD9IXJTzvqUJ8CEwEZjZYkbsehtfYwaMJgQpP08K2HLA2TH4fLL +TI8Jth1mym75UaiQ3WkTrM8EMfOdytrJUYhUv7uzZD8TjO/JODHuRqGUcKxE +zJAJtYzrltI2Uaif/tCv/wgTbtk1S64IRyGjfVXrT5szoYHXbZPatUi0+w6v +jJ0TEyrX63soG0cgPuGnB90jmLBZVlStVT0MCXcV/RceyYSlp9IRv1lhSCyu +tup5FBN0IrJhGzUMMWUG1cdiiPpFd5Xd/XUfaSoJSJrGMyH7gEWuhP99ZKvr ++V0jlRhP36Iejw9FFW46oX8KmGAlsKmg+8td5NTR9zGwhwkXq/KvLFQHo/qb +11zjeplQllftU54djGR3iFJf9TEhKTCT+jAyGI3EnLAeHGCCvPbBwnvng9EJ +s9YpjVEmHJkRfOq4IRihvnfrpyeYsL2Drc02vY0ER17pmP1hwgnHo+GnOG+h +oqlbRUrSLPi+4GszfScI5WTcJVvKsIB10dXijUcQSj0bfjyYxoLXN8Ybn54N +QhHdcb++MFjASf45UKgZhJxqn6skybPgaopHbt5kIKInfMoQUGUBe+Oko4ZR +IAo1lI5d0GVBTOLjsF8KN5BtdqFXlSMLnnFJz4XyBiBh3XNhvRdYkJseVhO9 +5o+qB/gy55xYYLfNzkZ+1B9JCDh0yV9mQdPos6TEDH/U5im+I9yVBVKRNqff +qvkjtC/g1xkfFpwQKcieP+qHRIYPXOIOZUHOR+yS5iMf9O7qwk3J+yzYNxSc +Oxjog1yFniTuDGNBXVnwVJyDD2rW+9N4IYIFiSbFkxbbfVDQ85wt7TEsOKv0 +6+1CkzeauSb0LTWJBRrzbo9CuL1RPWXgnN4rFshemFGI97+KJtw0Da7nskA9 +2vGA5fmraEP7g61leSwou+ImusPwKjKIMF7dVkjUu9R5ejf1KvrAWxcj+Zq4 +P6c16/pLL9S4Lq9+rpYFRg7pp8a+eqLm5dsqT7pZMJAieuCUgweaNhujDPaw +4OeyV5OOsQfiLdb5I9LHAjfZkkG02wMd9vhbFzrAgh0F6Qf8Nnugj7OuZ6+N +siB0b3WuQJ47apm0jjaaYkGakG2mH5c7mjEo8777nbi/xUu6dcoN8WeLnn0/ +zYIen6b8XV1u6Kh9u7LWTxZM3okbOfjMDbWyD9TJL7DgxcrGfi9TNzSrk5Fz +bpEFLUqD/Ve13ZDgE1L0oyUW7N7bfzDsHzdkfKbyjPAKCz7O2zBXud2QS5XE +/iN/WPCfj/wZkx+uKEL6mvKdVaJ/d4OLKnpdUa5fl/Dbv0Q/CswE0TtX1Dag +vrK2xoLHWt4n21+5ov8BAsGFNA== + "]]}, "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., 2.7645311207418275`}}, + "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:eJwV1nc8Vf8fB3DjnpuWfc+1ucvKl0IlffV5hyhaqKxoyUolu8yib0nJTkYk +u1LZZKciI2RvuklIkpnkd35/3cfzcc49n/d5fz6f1+fQzl42Ps/FwcFhzcnB +8f/fk7ox6zk4+KH+j8uGD/W/0LC2c7sqFz+sui/0crX+Quf2GiSdJ/ED++DP +atT9Cznu+avewMMP6RkDLW/HfiEvDdvTMQL8EIVXDHOR5lCU0o4iJQY/pJqD +MqA51CjcaWOuxw/ll5K/VxfPoX+/UKpy7/KD3c5O7qyiecRui1PYzRKAm2mF +FslCS2hOnO9rRp4AkL0bv0T5/Uaj/NcuHkCC8HvAdMafexU9MJ5Ir+oUBB2e +3JjDHWuo4McBdQkbIchm201RNTkhvifH7dCqEPxmuNv0RHGB9eUNfnmRwtDx +37H+pvfcwIj3z2BHC4PmTr7F2QZuGH8310KJFYZufRczSgs3XJEaYnglCAM0 +qY4adXNDUFNe/b9pwrCETxRmjXND1hYryrtCYRhaVxbZykOCua8vnnX3CIPR +YFPnpB4JSoRYnev7iedT10flGZDAD8WtaQ4Kw/nFe6peh0mw7kGQceKoMJRb +qKxbOk4CMT3zpTOTwvB21rCk1YYEKJVLd/IPUe9UbNzEdRLcOX28b1WaAu4m +9OuJJSS48TjG0ppOgYeLegq65SS4NtrVV8GkwPbLFYVjVSRwsLHo91egQAK2 +11W6jgT77U8NcKpRYHTWj/dUJzG+s8MQpkeB+UDfIqFZEgT5+37e7ESB3T6h +jZqyGPhUVZy7dIkCoa9Hz5oqYODGycFudqbAPpOkK5eVMDgXeIN9350CQq8e +TYarYqB969YXAX8KlBukLiftwYDjfvhXSgQxflh1/cBxDHwfpU1KFlPgYFmG +fUMABqMJO1aPl1JAkNnqJBuIwf7497yhZRQwaw1U8r2JgWDst21/qyiw9VVb +h+QdDDLD//EarKeA8fEfkVsiMWgPKiAl9VHgGnvoq0cqBpqBenjXAAXihhLT +76ZjkHS9S45vmAK/FZPXEjMxcPRbNvBnU+Dk2wdeec+I+ry0wk99J/xG5mhW +PgZbLryVlFmjQMZK1I+KNxiEOZxQMePEoe2xyaV7bzFYsPsKYdw4eHLddjB9 +j0GVzXobDh4cxl5ZNg98wOCE9aHsYX4cAj0rafmtGNww6tjxmI7D01BBn5uD +GIwfsd3fw8RB9+bU0oZhDA4dXjQXkMPhJ5u3O2QEAxFDUd/rW3DwMmQW+bMx +yNG1enNGHYcnWxU/qkxg0LPzyxG6Hg5/F3/IvZzDYJo/Tv3IfhxGprPn2fMY +cE0cFvUxwKH40449lEUMlBKKRzsO4yBUtqxpv4xBAMdd92BTHB5+DajpWsUg +ugcsCs1xSFr9u2/8LwbZufN7PlviEP1FYvfcGtFfm1M8WqdxqHnPdv/LSQb5 +etX4GXsclo4o8vdjZNBK+eoveQGHQ18FuevIZDD2TrAxuIgD57LJqRfryODz +D1k59QoOAZ85jzqvJ8PH8J4q02s4fHjfuFi6iQxsx9C0IB8cSg9Ji9/YTIYl +HZ07r/xwmPG7nKzLSwb6wjOTjYE42O1JaXrNRwYPi4CxihAcUvWOxbsIkiFE +bXvD5D0cbKR9i4SFyJC8aeKFSBgObnU7VXIJf6gwueoShYM35qY8JEyGoQc8 +1kkxOGyvvZV/iUKGOedy7cZYHO5lG0UuE5ZkyG2STST68em4GSeVDKp/+maM +k3CI9QctP8J6HWEd/o9xMJfT9log7Hzr96OeNByEfwpPd4uQ4ebpF4HkTByG +2/PldETJELfLxl4tG4cbu9YXZBKunWzadi8Hh96BmLrzYmToqb2Bl77EQfpI ++aFywtOJO1fGcon5TnNh8ouTgdtzakioAAcDrp0HrQmLHH1cC0U48JqG1mYQ +/kfhRNbFEhzi7TjuTRHW5toYGvcah7f1ImlKEmQ40Vfp8r4cB9aY7SZ7whfy +3UznKon1u+Rb84hwwD2Ff2k1OCjxz79rIRxlOyhzuJb4P7+d6F/CWSgS836H +w8lclxJZSTJUiOyfyKjDYfR6aboB4U8//zS3f8Ahe4Q97EB4/MOrPM4mHJLX +J9gFEV59Yhur/BGH/HWhmnGEBX3FfS1bcZCrcjJ/StjiQkJx0SccvslGxBUT +TjGXnBPqxKGEM8SoivCE/iMV524cNo9y+dUQVt0hfaGxl+jHs2zpSsLXmMnp +8gPE+nygsaOQcI0gbTRoCAdlFfvqDMIbOFMkR0aIfh/9XRVJ2PgH3VyLjUO6 +coH6NcJxA0+iHo7h4HrYRsKS8GgDs2V+HIfl4G7PHYQVS9M2Gk/iQOIb19tE +2CVTVj/nOw5mpy4F9xP9KY3JuLFhhsiHowdRBmGum/IVtrM4GG+2t3cibOCa +tVwzh8M1week/89HxBnF7dKLOHRv2yQ8RsxX75Gnzt7LRF6EecfEEabvUXrW +tYLDSvpCyAHCuWLKjDAOKpzwFWmJIdbHb54X1lNcVBBtapHaTlh7USVuP0aF +gV9Fw03E+mr7tE2AcwMVKi86V0wT61GsJveg1SYqZA759noQPvtS7XYJLxXO +nVd1XCbW7+zd7WtXhKjgZ6Xz5TtOzI/eru+jElQIFBE4GkXsFwv1UnkkTQW+ +jXv4Zoj9lELfbRNPo0LMGU5dPcKqa//2mchSYfZ2Bt+oANHfYqivVaHCSJO0 +Zhexf+PSq0k0VSrs6b/9kkx4NEobfNWpIL/tQ9JWYr+7XNEt2r6LCjNlvROu +G4n+KO5PS9emgslHH+1iIj96ReqHufZRwTOrMfQ1kS/0dQYSp/SJ+vffMish +8if3s2Ek9SAVtL2/2aZyE++fcOT67eNUePpbK1CDyC8hPlMrR3sqVPfxO5oT ++VhXKqf4yJG4/jWnX5zITz/bpYVWJyoce+Yd2jOLwUT5w7BdV6jQrNadqzdD +5LtT/xuea1TIvTNPGSfy99KHM4oZIVRQ/cnYvH8IA6aH6mLvPSo8XhHqqxgg +8pnGXcsbRoU7Uw0LW/sx0L2aauURRYy3pVJ8XQ8G4vJfw/YlUiEjuWiXdxtR +z02nxc85VHhNOVkTWEvUs02rlvqKCu3vs3++qMFAbWBzuGEeFbZE0653VWHw +SP2FYl4RFRTmk9+KlGPg/vmn1Y0qKsQtEAdRAQb0vZ61Mm1UGHrV8lQqjTi/ +/1wPt5qngndhYrTydQzOl0sVVC0S/Q9I6Y72w+Cw3+tuxm8qHNlYwV70xkCa +Y1564i8VmMkLp595YFDDbZ/jwSMClboJcl0XMODZeLjhvrgIrIuVmt5OnOdR +omJYzV4R0Ol+c1CBSZzvvYXyLF0R4MjV1ZmWwcA23uTgbT0RGE3VNsqRxGCn +5L3Iw4YiMHIuuUKaikGvDAe975gIfPJXUapbj4GM/NieOTsRoMDmD9umSfB8 +R66XbKgIiCZ3xvjkkUCvzeWyX5gIMNdnrb1+QYLBi2q2nREiIF2Wz7P4lAS8 +afkm/z0QAVPf8HWnU0lwSahIeSxZBHbCm81/o0iwdeY1Oy1PBM7ao59O7iTI +z3p7lNUjApnYN3MlNRKUSfTIM5miQI+TqJ5K4YYa928vTWRFQSMkts3/ETfU +NS9rBMqLglDKSgtfHDe0B4gdGFUShfQQ42TZcG6YZFs6JG8Xha1J9/tV/LlB +7PlgloS+KKQ+WueYZ8ENXlpsRYqjKBhVTfBF8XGDmvUPJfJLUYjEpl/aX+EC +l6kN7HJ9MTAMDfPL/MMBop2UH+YdYmClo3K6lG8N3d4k+7zhkjg82yv/YeTj +CuqYVlJ3wSTg48gEwyllCd1RYvCthkuAnNVqyuY382hdkVSilaIkGL/ZvGe4 +ZRZNJaz3TymWBIzmfKhUdwa9UJ5UkNCVgsgMtcne5Um0a3PbrQt9UhB69Jlo +252vSEk/c1eSvTTx/X6AzcX+jH6N7T3SziEDgaySpwyXYYQ4ttj+MpSB91a4 +ArdYH0LvN2aQImSgKPWe5Vb/TjR3zP2BeqQMiB/y29bg1ImyRwdv2UTJwIaW +SA5Xi06E/31lXxsjA8MhT52/be9EU+pmikHxMvCqtfeL8/cOFJuS+pw7TQZ+ +WmTfZVt3oJ++WvlcxTLwpsV2aZthO3qifrmaY1AGSHsfKf/Vb0P8jwOuSQzJ +gAPP7ZGsXW3IZ3OEmsawDEimt/ue2tKGjo3lp10elQHew4NW47xtiBz7O3hw +TAbSDeoVnTtbkcPKTeOyHzLg7RvnYmLXilRqEj57ctKgVfHjK92wFvT6yAfs +B5MGvFrNCfYrTSgg66I8JksD69ccs/2fm5Aut4ChuBwNHqCK0TONTaix0DRM +X4EG1aO+VxITm1C/5Bex5H9o4FqIoV5oQn8m11SMdtBgqdn+6tk7jWjP7e0W +efo0cDZ5NOKk0IBqqpJzPB1psM/I8PrF6Dokw8r2SbtAgxPHokuEA+qQb3Ce +wScnGnzTkexsdKxDGsbvxpQv06COP/j+ZahDLz5PSo250kBjVbbZd+o9SiDv +vH/MlwbHSJ978/TfI8+DTZe3hdFA4N0NYc0N75BS9/LWyQIaSO6cdz1Z/gaB ++NP3pCIahEe8nRV8/gYdtz5pLVVMg1RDsd6OhDfIj10RYlRKAyvvkeoAnzeo +ZSZwrKiCBhckUoQc/32D3NbzJgS9J94n1r0ksKIGlWnS10n10CBrISomvqEa +GSYaDBz9QwN7y6Kc5+uq0O+JM9I3VmkwKJxyH2YrUabG1TN5f2lQUlRov6ej +EpHaM75QOOkQ1S3+LjC+EpVtwKZ7MTrkiqoqqylUIiWvyr82fHQYb/fvEj5Q +gTaZqMtcpdNhcue5Ctu4MtTMI3Xu8X46/Dr9QsvfvwSpbR+4WHGADoqeixfC +HUpQ7JkErz4DOlyqW7MqMClBZ0vFQimH6DBbnm6uKl+C5i9QS4KN6NAgvU9/ +rbUYSXzk53OxoENmR92nHvli5BjN/VrbiQ6jVwvmdn0uRBj9myD7Ph1i33Ec +4ridj2p2a95aCSOe53/6k7dHPvI7HrIiGEGHdw0mwdj5fLR0+x/23ig62O7l +tdDRzkcTP64UJMXSQergN0e71TzUXP7b1PIx4es9aL9HHoo135TYlkuHYc+8 +FyyXXLQlXEWuuoOop+Zj+5awl+hGwZjeTCcd3vJ6ZrwIeIm6exJtpbvp8Ljw ++uG9V16iIPqmdN9eOvBKSU/dM36J+vPGmZpDdLB+/lGugfIShXY+pueN0+Em +thz/QOsFmhEXlkpboUO40u+Sbe7PUX76knAwjQHR9Sf05ZSzUXWW6eoTOgO4 +wrSThanZqPlZ4ZcKBgNeuzQEUjiy0XiuW+EciwG0pO5nRm1ZSKJyxvS0IgPc +AzW6X3lmoaCu8bidagx4GfRjL+ldJjLh6ZEZ02XAhmPHVm47Z6BZhxIlHXsG +iI8dzphZTkWxnn5V7g4MUDp0Z6XiSypCN3WOZToygDI4SEluTUV3k5u8N19k +gNYoh2VcViqS7Rr50HWFAeQ/u60uWqQiC90NDk7eDFgcPCnhX/kE1UhZpkWH +MuD7WPbcaEwKivz0R3I8nwEJHHLtpzyTUUSziTilkLiecNPypV0yCqvPFtEu +YsAOLY8zfGbJ6G6lmVBCCQNCsqQLlzSS0c2n+TxHKxhgGZwI0wtJyDPQ6VfR +ewao1t3g3UpOQpZq/XW3ehlw1bp6v8KuRMSIfO0qx8GE3aWGwz2TD1G3U+ku +4GTCttq66sz2hyhUr2TNjIsJ69Gm7pDyh2hpuTDkDokJcyjgVOj9h6jxdO6T +7zxMgGkFLFD9IXJTzvqUJ8CEwEZjZYkbsehtfYwaMJgQpP08K2HLA2TH4fLL +TI8Jth1mym75UaiQ3WkTrM8EMfOdytrJUYhUv7uzZD8TjO/JODHuRqGUcKxE +zJAJtYzrltI2Uaif/tCv/wgTbtk1S64IRyGjfVXrT5szoYHXbZPatUi0+w6v +jJ0TEyrX63soG0cgPuGnB90jmLBZVlStVT0MCXcV/RceyYSlp9IRv1lhSCyu +tup5FBN0IrJhGzUMMWUG1cdiiPpFd5Xd/XUfaSoJSJrGMyH7gEWuhP99ZKvr ++V0jlRhP36Iejw9FFW46oX8KmGAlsKmg+8td5NTR9zGwhwkXq/KvLFQHo/qb +11zjeplQllftU54djGR3iFJf9TEhKTCT+jAyGI3EnLAeHGCCvPbBwnvng9EJ +s9YpjVEmHJkRfOq4IRihvnfrpyeYsL2Drc02vY0ER17pmP1hwgnHo+GnOG+h +oqlbRUrSLPi+4GszfScI5WTcJVvKsIB10dXijUcQSj0bfjyYxoLXN8Ybn54N +QhHdcb++MFjASf45UKgZhJxqn6skybPgaopHbt5kIKInfMoQUGUBe+Oko4ZR +IAo1lI5d0GVBTOLjsF8KN5BtdqFXlSMLnnFJz4XyBiBh3XNhvRdYkJseVhO9 +5o+qB/gy55xYYLfNzkZ+1B9JCDh0yV9mQdPos6TEDH/U5im+I9yVBVKRNqff +qvkjtC/g1xkfFpwQKcieP+qHRIYPXOIOZUHOR+yS5iMf9O7qwk3J+yzYNxSc +Oxjog1yFniTuDGNBXVnwVJyDD2rW+9N4IYIFiSbFkxbbfVDQ85wt7TEsOKv0 +6+1CkzeauSb0LTWJBRrzbo9CuL1RPWXgnN4rFshemFGI97+KJtw0Da7nskA9 +2vGA5fmraEP7g61leSwou+ImusPwKjKIMF7dVkjUu9R5ejf1KvrAWxcj+Zq4 +P6c16/pLL9S4Lq9+rpYFRg7pp8a+eqLm5dsqT7pZMJAieuCUgweaNhujDPaw +4OeyV5OOsQfiLdb5I9LHAjfZkkG02wMd9vhbFzrAgh0F6Qf8Nnugj7OuZ6+N +siB0b3WuQJ47apm0jjaaYkGakG2mH5c7mjEo8777nbi/xUu6dcoN8WeLnn0/ +zYIen6b8XV1u6Kh9u7LWTxZM3okbOfjMDbWyD9TJL7DgxcrGfi9TNzSrk5Fz +bpEFLUqD/Ve13ZDgE1L0oyUW7N7bfzDsHzdkfKbyjPAKCz7O2zBXud2QS5XE +/iN/WPCfj/wZkx+uKEL6mvKdVaJ/d4OLKnpdUa5fl/Dbv0Q/CswE0TtX1Dag +vrK2xoLHWt4n21+5ov8BAsGFNA== + "]]}, "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:eJwVV3c8Vu8bNt7zpmW/57V5l5UvGS199dwhihYqK1qy0rLLLPqWhuxkRLKb +NmVTyAjZK/QmIckW8ju/v87n/jz3ue9znue67ut6aGcvG5/n4uDgsObk4Pj/ +86Ru1HoODn6oW3He8LFuBv37jVKefZ8f7HZ0cGcUzCF2a4zCbpYA3ErJt0gU +WkSz4nzf03IEgOzV8C3C9w8a5r9+8QAShD/9plN+3KvokfFYanmHIOjwZEcd +bl9Deb8OaEjYCEEm226CqskJsd2vXA+tCsEfhptNdwQXWF/e4JsTLgzt/x3r +a6zhhrunj/euSlPAzYR+I76IBD5PUsYlCylwsDjNvt4fg+4d347Q9XD4u/BL +7s0sBoI+4j6WLTjIlTuZP5ckgxCfqZWjPRUqevkdzecw8F65EWo1RwWv/PhI +5RsYvNye7SkbLAKiiR1R3jkkKJbolmcyRYEeI1ExkcQN6ta/lMhvRCEcm3xj +f5ULnCc2sEv0xcAwOMQ3fYUDRDsov8zbxcBKR+X0W741dGeT7Mv6S+LwYq/8 +x6FPy6h9UknDGZOAT0NjDKekRXRXicG3GioBclarSZur5tC6Aql4K0VJMK7a +vGeweRpNxK33SyqUBIx25dBb3Sn0WnlcQUJXCsLT1Md7lsbRrs2tty/0SkHw +0ReirXe/IyX99F0J9tKQbH6AzcX+imZG9h5p45CBAFbRc4bzIEIcW2xnDGWg +xgpX4BbrRahmYxopTAYKkh9YbvXrQM80LldwDMgAae8T5b/6rejdkY/YLyYN +eLWa4uyXG1FleeIrD0ca7DMyvHExshYpdS1tHc+jgeSOOZeTJVXIMN6g/+gK +DewtC169XFeOmnikzj3dT4eZ06+1/PyKEEb/Ich+SIfoDxyHOO7koi2hKnIV +7XRIr/zUtiXkDcpNXRQOojEgsu6EvpxyJpp2KFLSsWeA+MjhtKmlZBT+eUVy +NJcBcRxybac8EhEj/J2LHAcTdr81HOwef4zsOJxnzPSYYNtupuyaG4H4hJ8f +dAtjwmZZUfUWjRDk1N77KaCbCRfLc6/OVwShgonbBUrSLPg572MzeTcQ2Wbm +e5Y7suAFl/RsMK8/qqP0n9PLYoHshSmFWL9rqLVfY3ltjQVPtbxOtmW5oAbh +DhtzPX4ouZT4s6JwFs1+f/2iq1sYjAYaO8b1SBDo5/N1sxMFdnsHN2jKYrDl +wntJmTUKpC1H/CqtwsDdwn+k9B4OyXrHYp0FySCot+vnsAQVAkQEjkYIk6H2 +ltPC11dUeEc5WRlQjUGEqBhWuVcEdLqqDiowMcjNeH+U1S0C6dgPcyV1Enhq +sRUpjqJgVD7GF8HHDb99tHK5CmWgqtl2UdWwDalUxn314KRBi+KnLN2QZrTn +zjaLHH0aXDF5MuSkUI88DjZeVg2hgcCHm8KaGz6gYk36OqluGmTMR0TF1leg +TSYaMtfodBjfca7UNqYYOUZyv9N2osPwtbzZXV/zUbT5pvjWbDoMeuS8Zjln +oylxYamUZTqEKv0pUnV7iUx4umVGdBmw4dix5TtX0lCllGVKZDADfo5kzg5H +JSFL9b7a2z0MuGZdsV9hVzx6XxelDgwmBGq/zIjb8gjtvssrY+fEhLL1+u7K +xmGo1FUneCWPCVYCm/K6vt1HgkNZOmYrTDjheDT0FOdtFGwoHT2vy4Ko+Kch +Mwo3kcjggUvcwSx49Qm7pPnEGzUt3VF51sWC/iTRA6cc3FGE0vYCJQY/wR9Q +BjSLMrZYUT7kC8OXdcXhLTwkWHfF4QumR4G5AJ8CoWkStAXmkRJ6KXCd/eW7 +ezIG8nVqsVP2OCweUeTvw8gQdkZxm/QCDl2qm4RHxMlw6eMZxbR7VFD7zdi8 +/wsGPBsP1z8UF4F10VKT245jsHXqHTslRwTO2qPfTm4kEHs5kCGhLwrJT9Y5 +5lhwQ3RS8kvuFBn4bZF5n23djhyWbxkX/5IBL58YZxO7FrQyvqZitJ0Gi032 +187ebUBx5B0Pj/nQ4Bjpa0+Ofg1yXc8bF1hDnHe0W1FAaSVS8iz7a8NHh9E2 +v07hA6VI4hM/n7MFwcf22s/d8oWoqeSPqeVTOkjd6Eb73XNQcMdTes4oHW5h +S7GPtF6jwM7RmB3qDHgT+Gsv6UM6stDd4ODkxYCFgZMSfmXPkEeA00xBDQPU +am/ybiUnIFfljM85AkwIaDBWlrgZjYz2la8/bc6Eel7XTerXw5GtrsfPnclE +rG9Rh8cGI9T7Yf3kGBO2tbO12aZ3ED3uc5qAGgvYG8cddxoFILTPf+aMNwtO +iORlzh31RQ3rcupmq1lg5JB6auS7B0LJXLrjK4R+TETHjN0gAcfD0O+UMArE +hVTU9RP7fdOofftTOg7PgwW9bw1gUD3eqPrgFQ49/VG158WI81Pcn5KqTQWT +T97ahevIQN/rUS3TSoUvWc3PpVIwkJEf2TNrJwIU2PxRdZIEU9eFfiQnsGDn +nOuTe9xeqHncOtJoggUpQrbpvlxuyHOn7ekoAX6IwEsHuUizKLAxp+7fFGFY +xMfyM0a5Yb/9qX5OdQoMT/vynuogQXroP54DdRQwPv4rfEs4Bv4c992CTHF4 +/N2/snMVA+NfdHMtNg6pynka1wl9K3fqq+K5ToXsu3OU0TEMKrntX7nziECZ +bpxc5wUMLgkVKI8kisAOqNr8N4IE42xLh8RtorA14WGfih83TGiYKQbGykBW +S8+3Kz/bETn6T9DAiAykGtQpXuloQX2S38QS/6GBSz6GeqARvf46LjXiQoOd +q7JNPhM1qHkqYKSglAYXJJKEHP+tQsUbsMkejA7ZomrK6gplaO4CtSjIiA71 +0vv011oK0divq3kJ0QS+Dv5wtFvNQX05o0zNL3SwfvlJrp7yBkmUTZmeVmSA +W8DOriyPDCTbOfSx8yoDyCu7rS5aJKNbz3N5jpYywDIoHibnE1DD6exnP3mY +AJMKWIDGY9RHf+zbd4QJt+2aJJeFI5CmkoCkaSwTMg9YZEv4PUQnzFomdg4z +4ciU4HPHDUHIqfqlSoI8C64luWfnjAegVg/x7aEuLJAKtzn9Xt0PfeStjZJ8 +xwKNVy0ZN954IjE988Uz48LwftqwqMWGBNq3b38T8KNAiUHyUsIeDE5YH8oc +5MchwKOMltuCgSRDbpNsPA4Jn4+bcVLJYFwIddUqVBhqlNbs5CWD29ffVjfL +qRAzb7PeJg+DHhkOeu8xEfjsp6JUux6DwJevtrRFseCs0sz7+UYv9Gna5ez1 +YRYE763IFshxQxyeWqGnflLgZJXM0YxcDD6FdpebXsfhY03DwttNZGj9rCrA +uYEKZRevlE6KkEFc/nvIvngqpCUW7PJqxeCVrlXVGQ0cnm1V/KRC4OdCrqvp +bBkOHos+lU8kiPfjjty4c5wKz/9oBexcw6CFfaBWfp4Fr5c39nmauiLHPX81 +6nn4ITWtv/n9yAy6KvWF4RknDNCoNmzUxQ0ONhZ9fgoE/7C9LtK1JBCM/qH6 +t5wCW7Na2yXvYqAUVzjcfhgHoeIlTfslDNS2S19o6MHB4EWmdBmB77GSxyG7 +rlKhSb0rW28KA2mOOemxv1RgJs6ffuGOAW9Krsl/j0TA1Cd03elkYj77ix0Y +VhKF1HvGibKh3ID/zbKvjpKBwXvPr/zY1oGOjeSmXB6WAd7DA1ajvK2oId80 +RF+BBhXDPlfj4xvRTuMPI8qXaVDLH/TwMtQiX3bpPaO3NLDyGqrw965CpLa0 +bxROOkR0iX8IiC1DZ9+KBVMO0WG6JNVcTb4ILd75h703gg62e3ktdLRzUSB9 +U6pPDx14paQnHhi/QaPZrvmzLAbQErpeGLVmoPuJjV6bLzJAa5jDMiYjGd0v +MxOKK2LAvQzp/MWdiWhxKf/eXRITZpH/qeCHj1FSKFYkZsiEasYNS2mbCMSU +GdAYiSLmq+iu4vszD9FQ1AnrgX4myGsfzH9wPgiFdcXMfGOwgJP8uz9fMxBJ +CDh0yl9mQePwi4T4ND9kEGa8qppP4H2x4/Ru6jW07lGgcfywMJRYqKxbPE6C +cwE32Q/dKCCU9WQ8VA2DcgKmHDw4jGRZNvV/xOBjqck15wgcvDBX5S+Ef1Fb ++7fXRJYK03fS+IYFyPBE47ViTgEVFOYS34uUYLBD8kH4YUMRGDqXWCpNxaBJ +b6XhQhgL4k0Kxy22eaPD7n9rg/tZsD0v9YDvZnfk6Ltk4Mcm8P3+kWfOC8K/ +/0NWTr6Kg/9XzqNX1pMhW0yZEcJBhRM+Is1RxPzWvZZs5R5B4HVLmfi6bgxE +DEV9bmzBwdOQWeDHJuKjT6uhAAde0+DqNEKfs78ahlMPUkHb64dtMjcZjtq3 +KWv9ZsH43Zihgy9cUZvNKR6t0zhU1rDd/nKSwTldVv/VTxzMTl0K6iP4ceX2 +nyfdKTgI/xae7CL45XxVt2DbLipMFfeMuWwk9GP+hcnGABzs9iQ1vuMjw/T9 +bWtXhajga6Xz7SdOhlKR/WNptTgM33ibakDg3fhM2RnhZRZ8mrNhrnK7onN7 +DRLOk/iBffB3BeqaQaMfZpsp0cLQpe9sRmnmhuvDnb2lTApsu1yaP1JOgv2x +NbzBxRQwawlQ8rmFAdfYYVFvAxwKP2/fQ1nAIMlcclaoA4cizntG5UQ/X9vF ++RYnKhx74RXcPY3BYd93XYw/VDiysZS94IXBwEV1244wEZAuzuVZeE6C2qal +nQHyoiCUtNzMF8MNmcMDt20iZGBDcziHi0UH8t4cpr5zUAYkU9t8Tm1pRbrc +AobicjR4hEqHzzQ0Ip+gHIPPTjT4oSPZ0eBYi45bn7SWKqRBsqFYT3tcFUrf +ee1Mzl8aFBXk2+9pL0PRZ+I8ew3ocKl2zSrPpAj5Hr+3LBhGhw/1JkHY+VzU +1R1vK91Fh6f5Nw7vvfoGNb3I/1bKYMA75/oACkcmQrd0jqU7MoAyMEBJbElG +IXWZItoFDNiu5X6GzywRBesVrZlxMWE92tR1r+QxItXt7ijazwTjBzJOjPsR +SCymuvxlBBN0wjJBlRqCZLeLUrN6mZAQkE59HB6Eks+GHg+iseDdzdGG52cD +UUU/X/qsEwvsVO1s5If90Ia2R1uLc1hQfNVVdLvhNeSLYtY0B4Th/MIDNc/D +JHDl5GA3XaHAPpOEq5eVMJi3+w4h3MT85brjYFqDQeKmsdciITi41u5QyRYi +QxJ9t00sjQpRZzh19YhYvX9zqGEOFbZE0m50lmNgG2ty8I6eCAwnaxu9ksTA +RehZ/I4QFtQWB03EOHgj3kKdFZFeFrjKFg2g3e4o4UanHN8gBf4oJq7FpxP+ +wivOxuAiDpxLJqde/9//7FF60bmMw3Lq/L0DBF+6adzVvCFUuDtRP7+1D4ND +hxfMBeRw+M3m7bo3hMFk/I7lkWxCT1KcmfxEPn2dgcQpfSqc23/brIjwx/yZ +omdrJlnQ7d2Yu6vTFWVmz+35aolD5DeJ3bOEvgzXM5vnRnFYCury2E7gU689 +pN3vKQ7mctqe84R+Dkdog48GFeRVPyZs3UyGRR2du1m+OEz5Xk7UJfT07Bv1 +O0W8RL/zao5LRH6E7YDM4Woc3vPbif4l+Cr4jBT5ZJEFu/f2HQz5xxVVCtKG +A7/goKxiX5FG9Ju9UqLdEI3Dg0yj8CUKGbQXVGL2Y1TonykYbBQlYq6NwTHv +iHp1IilKRD2uW/KlttM4GG+2t3ci4phdNvbqmTjc3LU+L53IH/2YlcPZiEPi ++ji7QKJ+mPR15burxP3yflBBaY8LGtS+0qbGxQ+rbvM9XC0ziBHrl8aOFAbN +HXwL0/XccPNplKU1nQKPF/QUdEtIMBy3ffX4WwoIMlucZAOI/eaP0TiyH4eh +ycw59hwGFhfiCgs+4/BDNiymkOhX+1ZO8YkjMQ+/v+oTn8XgfIlUXvkCsX/+ +SV2RvhjotTpf9g0RAeb6jLV3r0lQ6fbjjYmsKOy8F93q94QbZo+5PdIIlwHx +Q76q9U4diP+p/3WJLzLgwHNnKGNXK/LPuCiPydLA+h3HdN/XRiTDyvROuUCD +E8cii4T9axGIP68hFdAgNOz9tODLKvRn7Iz0zVUaDAgnPYTpMqS+rf9i6QE6 +KHosXAh1KEKVuzVvL4cQeup3+rOXey66mTeiN9VBh/e8Hmmv/d+gigzT1Wd0 +BnCFaCcKUzNRtIdvuZsDA5QO3V0u/ZaMwppMxCn5xP0y7pblG7tE1OX0dhdw +MkG1urYive0xymd32ATpM0HMfIeydmIEEu4s+C80nAmLz6XD/rBCUN2t6y4x +PUwozqnwLskMQq/S7pMtZVjAuuhiUeUeiIR1z4X0XGBBdmpIZeSaHxpz1TS4 +kU34w0jHA5bnr6EiIVbH+j7i/KjrI3IMSOBdXnru0iUKBL8bPmuqgEGIwwkV +M04cWp+aXHrwHoN76tvqxx/gYCPtUyBM8NlC4608kqYC38Y9fFNE7KuqVU3N +okJbTebv15UY+PTky7N0RYAjW1dnUgaDD9fmb0k+ZMG+L0HZAwHeaNJshDLQ +zYLfS56NOsbuSDNAD+/sp0DMl/jU+6kYaCV995O8gMOh74LctWQy9Bx5fsVr +ifCrIV5RMQRfme5qCz0PqPB0Wai3tB+D0SO2+7uZOOjemljcMIhBd/VN/O0b +HKSPlBwqIfS2R6RukGsfFTwyGoLfEfWmDIq97v8k9LvZU7plwhVFdoNFvjnh +f1f/7hv9i0FM/7OIxyM4uBy2kbAk8Km20jtlnIBDtB9o+RJ8jUmtINHUqLCn +784bMsFntmNwSqA3Dm8PSYvfJPguVpl90GoTFdK/+PS4E3rr/0DhX1olDkr8 +cx+aCf5N66S9OrfAgmalgb5r2q7oOjMxVb6f0O9HO7fnE/2+POKxTojCYVv1 +7dxLBL//8Ly2nuCigmhjs9Q24n/+UTiRcbEIh1g7jgcTxH68jUq7uWGKOK+j +B1EaUf/W6dcB5HQcBtty5XQIfn/+vdLU9hGHzCH2oANR37lcYv+RFRb85y1/ +xuSXCxrTf6JypQuHzcNcvpXEOrfHxBehPMLfcu04aE3UV3ybstF4HAcS36je +JmI9A4VjXh9wOJntXCRLxBs4kySHhoj76dE/5eFEfKK3zLmmBAfWiO0me+J7 +DFwylipncbgu+JL0/3m0+sw2WvkTDrnrgjVjiPxs307h938JfOaZCaIPLuh/ +n2uFNA== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1Hl8z3UcB/Bhc2yLbTarpEy6HMm2dKBDZZemHI2xpUVIbbrQIZ1069Zd +jg46HB2OohxFrqIUKpUOOZKik+L5fvTH8/d6fz7v3+/9++z7+zyWU1XTo7pW +QkJCpZfIg71slFMYwXnkUZs6JJJEXepRnwYc4nNfyOcZyfnkc6L9P+VCHuJy +kjnU/pfyBUbRI95LB/t/yUU8TDUpNLX/lXyRa+nJaXFgloun4rOcZP23XMwj +1NDFXiKr1c+RymHWm+RLXEdX6/qsVffi9HgerFA/TbE6lc/iOzhZ/Y9cQnd1 +Oo+qC2Uyn8YZZRbD1WfJJMr4KJ6PbEw/Jlp3kw3py/o4g2xCBQdZN5Nfywvk +VFkq0yjneusC2YA+fBLPU2bSn97WZ8jarIzfVGbwjLok5vN5/E2cot4r32cC +RdYprFNfwdnqunysnkRDDrf+Rk7jhjgjZ9qrwyr1szGXU633yQ94jCtpxBH2 +v5UvM5qyeC8d7f8rl/I4V5FGc/ub5SvcSJ94L+nk6H0nX2UMfelEBo3JJIsm +ZMd9j7sb9zHuWNyLeNbxN8W5aGHe9/I1bqKcznEGjtT7QU7nZvrFnYwz0FLv +RzmDW+gfdyrmcZTeFjmTW6mI3yfmcbTeT3IWt1EZzzLmcYzeVvk6t3Nh3O2Y +x7F62+QbjGVA3LmYx3F62+WbjOOi+B1jHq30dsi3uIMqzol5tNb7Wc7mTi6m +a8yjjd5OOYe7GEhBzKOt3i9yLncziMKYx/F6u+Q87uESimIe7fR+lW9zL4Mp +jnmcoPebfIf7GEJJzKO93m45n/EMpVvMI1dvj1zA/VzKuTGPPL3f5bs8wDBK +477Y/08u4wmuju8g3/4f8j0e5DK6x32wv19+yJNcE8/QXj3WqCfHd6obsUHd +W2bX+v9/bq71ARgdk2M= + "], 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]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 2.7645311207418275`}}, + "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:eJwV1nc8Vf8fB3DjnpuWfc+1ucvKl0IlffV5hyhaqKxoyUolu8yib0nJTkYk +u1LZZKciI2RvuklIkpnkd35/3cfzcc49n/d5fz6f1+fQzl42Ps/FwcFhzcnB +8f/fk7ox6zk4+KH+j8uGD/W/0LC2c7sqFz+sui/0crX+Quf2GiSdJ/ED++DP +atT9Cznu+avewMMP6RkDLW/HfiEvDdvTMQL8EIVXDHOR5lCU0o4iJQY/pJqD +MqA51CjcaWOuxw/ll5K/VxfPoX+/UKpy7/KD3c5O7qyiecRui1PYzRKAm2mF +FslCS2hOnO9rRp4AkL0bv0T5/Uaj/NcuHkCC8HvAdMafexU9MJ5Ir+oUBB2e +3JjDHWuo4McBdQkbIchm201RNTkhvifH7dCqEPxmuNv0RHGB9eUNfnmRwtDx +37H+pvfcwIj3z2BHC4PmTr7F2QZuGH8310KJFYZufRczSgs3XJEaYnglCAM0 +qY4adXNDUFNe/b9pwrCETxRmjXND1hYryrtCYRhaVxbZykOCua8vnnX3CIPR +YFPnpB4JSoRYnev7iedT10flGZDAD8WtaQ4Kw/nFe6peh0mw7kGQceKoMJRb +qKxbOk4CMT3zpTOTwvB21rCk1YYEKJVLd/IPUe9UbNzEdRLcOX28b1WaAu4m +9OuJJSS48TjG0ppOgYeLegq65SS4NtrVV8GkwPbLFYVjVSRwsLHo91egQAK2 +11W6jgT77U8NcKpRYHTWj/dUJzG+s8MQpkeB+UDfIqFZEgT5+37e7ESB3T6h +jZqyGPhUVZy7dIkCoa9Hz5oqYODGycFudqbAPpOkK5eVMDgXeIN9350CQq8e +TYarYqB969YXAX8KlBukLiftwYDjfvhXSgQxflh1/cBxDHwfpU1KFlPgYFmG +fUMABqMJO1aPl1JAkNnqJBuIwf7497yhZRQwaw1U8r2JgWDst21/qyiw9VVb +h+QdDDLD//EarKeA8fEfkVsiMWgPKiAl9VHgGnvoq0cqBpqBenjXAAXihhLT +76ZjkHS9S45vmAK/FZPXEjMxcPRbNvBnU+Dk2wdeec+I+ry0wk99J/xG5mhW +PgZbLryVlFmjQMZK1I+KNxiEOZxQMePEoe2xyaV7bzFYsPsKYdw4eHLddjB9 +j0GVzXobDh4cxl5ZNg98wOCE9aHsYX4cAj0rafmtGNww6tjxmI7D01BBn5uD +GIwfsd3fw8RB9+bU0oZhDA4dXjQXkMPhJ5u3O2QEAxFDUd/rW3DwMmQW+bMx +yNG1enNGHYcnWxU/qkxg0LPzyxG6Hg5/F3/IvZzDYJo/Tv3IfhxGprPn2fMY +cE0cFvUxwKH40449lEUMlBKKRzsO4yBUtqxpv4xBAMdd92BTHB5+DajpWsUg +ugcsCs1xSFr9u2/8LwbZufN7PlviEP1FYvfcGtFfm1M8WqdxqHnPdv/LSQb5 +etX4GXsclo4o8vdjZNBK+eoveQGHQ18FuevIZDD2TrAxuIgD57LJqRfryODz +D1k59QoOAZ85jzqvJ8PH8J4q02s4fHjfuFi6iQxsx9C0IB8cSg9Ji9/YTIYl +HZ07r/xwmPG7nKzLSwb6wjOTjYE42O1JaXrNRwYPi4CxihAcUvWOxbsIkiFE +bXvD5D0cbKR9i4SFyJC8aeKFSBgObnU7VXIJf6gwueoShYM35qY8JEyGoQc8 +1kkxOGyvvZV/iUKGOedy7cZYHO5lG0UuE5ZkyG2STST68em4GSeVDKp/+maM +k3CI9QctP8J6HWEd/o9xMJfT9log7Hzr96OeNByEfwpPd4uQ4ebpF4HkTByG +2/PldETJELfLxl4tG4cbu9YXZBKunWzadi8Hh96BmLrzYmToqb2Bl77EQfpI ++aFywtOJO1fGcon5TnNh8ouTgdtzakioAAcDrp0HrQmLHH1cC0U48JqG1mYQ +/kfhRNbFEhzi7TjuTRHW5toYGvcah7f1ImlKEmQ40Vfp8r4cB9aY7SZ7whfy +3UznKon1u+Rb84hwwD2Ff2k1OCjxz79rIRxlOyhzuJb4P7+d6F/CWSgS836H +w8lclxJZSTJUiOyfyKjDYfR6aboB4U8//zS3f8Ahe4Q97EB4/MOrPM4mHJLX +J9gFEV59Yhur/BGH/HWhmnGEBX3FfS1bcZCrcjJ/StjiQkJx0SccvslGxBUT +TjGXnBPqxKGEM8SoivCE/iMV524cNo9y+dUQVt0hfaGxl+jHs2zpSsLXmMnp +8gPE+nygsaOQcI0gbTRoCAdlFfvqDMIbOFMkR0aIfh/9XRVJ2PgH3VyLjUO6 +coH6NcJxA0+iHo7h4HrYRsKS8GgDs2V+HIfl4G7PHYQVS9M2Gk/iQOIb19tE +2CVTVj/nOw5mpy4F9xP9KY3JuLFhhsiHowdRBmGum/IVtrM4GG+2t3cibOCa +tVwzh8M1week/89HxBnF7dKLOHRv2yQ8RsxX75Gnzt7LRF6EecfEEabvUXrW +tYLDSvpCyAHCuWLKjDAOKpzwFWmJIdbHb54X1lNcVBBtapHaTlh7USVuP0aF +gV9Fw03E+mr7tE2AcwMVKi86V0wT61GsJveg1SYqZA759noQPvtS7XYJLxXO +nVd1XCbW7+zd7WtXhKjgZ6Xz5TtOzI/eru+jElQIFBE4GkXsFwv1UnkkTQW+ +jXv4Zoj9lELfbRNPo0LMGU5dPcKqa//2mchSYfZ2Bt+oANHfYqivVaHCSJO0 +Zhexf+PSq0k0VSrs6b/9kkx4NEobfNWpIL/tQ9JWYr+7XNEt2r6LCjNlvROu +G4n+KO5PS9emgslHH+1iIj96ReqHufZRwTOrMfQ1kS/0dQYSp/SJ+vffMish +8if3s2Ek9SAVtL2/2aZyE++fcOT67eNUePpbK1CDyC8hPlMrR3sqVPfxO5oT ++VhXKqf4yJG4/jWnX5zITz/bpYVWJyoce+Yd2jOLwUT5w7BdV6jQrNadqzdD +5LtT/xuea1TIvTNPGSfy99KHM4oZIVRQ/cnYvH8IA6aH6mLvPSo8XhHqqxgg +8pnGXcsbRoU7Uw0LW/sx0L2aauURRYy3pVJ8XQ8G4vJfw/YlUiEjuWiXdxtR +z02nxc85VHhNOVkTWEvUs02rlvqKCu3vs3++qMFAbWBzuGEeFbZE0653VWHw +SP2FYl4RFRTmk9+KlGPg/vmn1Y0qKsQtEAdRAQb0vZ61Mm1UGHrV8lQqjTi/ +/1wPt5qngndhYrTydQzOl0sVVC0S/Q9I6Y72w+Cw3+tuxm8qHNlYwV70xkCa +Y1564i8VmMkLp595YFDDbZ/jwSMClboJcl0XMODZeLjhvrgIrIuVmt5OnOdR +omJYzV4R0Ol+c1CBSZzvvYXyLF0R4MjV1ZmWwcA23uTgbT0RGE3VNsqRxGCn +5L3Iw4YiMHIuuUKaikGvDAe975gIfPJXUapbj4GM/NieOTsRoMDmD9umSfB8 +R66XbKgIiCZ3xvjkkUCvzeWyX5gIMNdnrb1+QYLBi2q2nREiIF2Wz7P4lAS8 +afkm/z0QAVPf8HWnU0lwSahIeSxZBHbCm81/o0iwdeY1Oy1PBM7ao59O7iTI +z3p7lNUjApnYN3MlNRKUSfTIM5miQI+TqJ5K4YYa928vTWRFQSMkts3/ETfU +NS9rBMqLglDKSgtfHDe0B4gdGFUShfQQ42TZcG6YZFs6JG8Xha1J9/tV/LlB +7PlgloS+KKQ+WueYZ8ENXlpsRYqjKBhVTfBF8XGDmvUPJfJLUYjEpl/aX+EC +l6kN7HJ9MTAMDfPL/MMBop2UH+YdYmClo3K6lG8N3d4k+7zhkjg82yv/YeTj +CuqYVlJ3wSTg48gEwyllCd1RYvCthkuAnNVqyuY382hdkVSilaIkGL/ZvGe4 +ZRZNJaz3TymWBIzmfKhUdwa9UJ5UkNCVgsgMtcne5Um0a3PbrQt9UhB69Jlo +252vSEk/c1eSvTTx/X6AzcX+jH6N7T3SziEDgaySpwyXYYQ4ttj+MpSB91a4 +ArdYH0LvN2aQImSgKPWe5Vb/TjR3zP2BeqQMiB/y29bg1ImyRwdv2UTJwIaW +SA5Xi06E/31lXxsjA8MhT52/be9EU+pmikHxMvCqtfeL8/cOFJuS+pw7TQZ+ +WmTfZVt3oJ++WvlcxTLwpsV2aZthO3qifrmaY1AGSHsfKf/Vb0P8jwOuSQzJ +gAPP7ZGsXW3IZ3OEmsawDEimt/ue2tKGjo3lp10elQHew4NW47xtiBz7O3hw +TAbSDeoVnTtbkcPKTeOyHzLg7RvnYmLXilRqEj57ctKgVfHjK92wFvT6yAfs +B5MGvFrNCfYrTSgg66I8JksD69ccs/2fm5Aut4ChuBwNHqCK0TONTaix0DRM +X4EG1aO+VxITm1C/5Bex5H9o4FqIoV5oQn8m11SMdtBgqdn+6tk7jWjP7e0W +efo0cDZ5NOKk0IBqqpJzPB1psM/I8PrF6Dokw8r2SbtAgxPHokuEA+qQb3Ce +wScnGnzTkexsdKxDGsbvxpQv06COP/j+ZahDLz5PSo250kBjVbbZd+o9SiDv +vH/MlwbHSJ978/TfI8+DTZe3hdFA4N0NYc0N75BS9/LWyQIaSO6cdz1Z/gaB ++NP3pCIahEe8nRV8/gYdtz5pLVVMg1RDsd6OhDfIj10RYlRKAyvvkeoAnzeo +ZSZwrKiCBhckUoQc/32D3NbzJgS9J94n1r0ksKIGlWnS10n10CBrISomvqEa +GSYaDBz9QwN7y6Kc5+uq0O+JM9I3VmkwKJxyH2YrUabG1TN5f2lQUlRov6ej +EpHaM75QOOkQ1S3+LjC+EpVtwKZ7MTrkiqoqqylUIiWvyr82fHQYb/fvEj5Q +gTaZqMtcpdNhcue5Ctu4MtTMI3Xu8X46/Dr9QsvfvwSpbR+4WHGADoqeixfC +HUpQ7JkErz4DOlyqW7MqMClBZ0vFQimH6DBbnm6uKl+C5i9QS4KN6NAgvU9/ +rbUYSXzk53OxoENmR92nHvli5BjN/VrbiQ6jVwvmdn0uRBj9myD7Ph1i33Ec +4ridj2p2a95aCSOe53/6k7dHPvI7HrIiGEGHdw0mwdj5fLR0+x/23ig62O7l +tdDRzkcTP64UJMXSQergN0e71TzUXP7b1PIx4es9aL9HHoo135TYlkuHYc+8 +FyyXXLQlXEWuuoOop+Zj+5awl+hGwZjeTCcd3vJ6ZrwIeIm6exJtpbvp8Ljw ++uG9V16iIPqmdN9eOvBKSU/dM36J+vPGmZpDdLB+/lGugfIShXY+pueN0+Em +thz/QOsFmhEXlkpboUO40u+Sbe7PUX76knAwjQHR9Sf05ZSzUXWW6eoTOgO4 +wrSThanZqPlZ4ZcKBgNeuzQEUjiy0XiuW+EciwG0pO5nRm1ZSKJyxvS0IgPc +AzW6X3lmoaCu8bidagx4GfRjL+ldJjLh6ZEZ02XAhmPHVm47Z6BZhxIlHXsG +iI8dzphZTkWxnn5V7g4MUDp0Z6XiSypCN3WOZToygDI4SEluTUV3k5u8N19k +gNYoh2VcViqS7Rr50HWFAeQ/u60uWqQiC90NDk7eDFgcPCnhX/kE1UhZpkWH +MuD7WPbcaEwKivz0R3I8nwEJHHLtpzyTUUSziTilkLiecNPypV0yCqvPFtEu +YsAOLY8zfGbJ6G6lmVBCCQNCsqQLlzSS0c2n+TxHKxhgGZwI0wtJyDPQ6VfR +ewao1t3g3UpOQpZq/XW3ehlw1bp6v8KuRMSIfO0qx8GE3aWGwz2TD1G3U+ku +4GTCttq66sz2hyhUr2TNjIsJ69Gm7pDyh2hpuTDkDokJcyjgVOj9h6jxdO6T +7zxMgGkFLFD9IXJTzvqUJ8CEwEZjZYkbsehtfYwaMJgQpP08K2HLA2TH4fLL +TI8Jth1mym75UaiQ3WkTrM8EMfOdytrJUYhUv7uzZD8TjO/JODHuRqGUcKxE +zJAJtYzrltI2Uaif/tCv/wgTbtk1S64IRyGjfVXrT5szoYHXbZPatUi0+w6v +jJ0TEyrX63soG0cgPuGnB90jmLBZVlStVT0MCXcV/RceyYSlp9IRv1lhSCyu +tup5FBN0IrJhGzUMMWUG1cdiiPpFd5Xd/XUfaSoJSJrGMyH7gEWuhP99ZKvr ++V0jlRhP36Iejw9FFW46oX8KmGAlsKmg+8td5NTR9zGwhwkXq/KvLFQHo/qb +11zjeplQllftU54djGR3iFJf9TEhKTCT+jAyGI3EnLAeHGCCvPbBwnvng9EJ +s9YpjVEmHJkRfOq4IRihvnfrpyeYsL2Drc02vY0ER17pmP1hwgnHo+GnOG+h +oqlbRUrSLPi+4GszfScI5WTcJVvKsIB10dXijUcQSj0bfjyYxoLXN8Ybn54N +QhHdcb++MFjASf45UKgZhJxqn6skybPgaopHbt5kIKInfMoQUGUBe+Oko4ZR +IAo1lI5d0GVBTOLjsF8KN5BtdqFXlSMLnnFJz4XyBiBh3XNhvRdYkJseVhO9 +5o+qB/gy55xYYLfNzkZ+1B9JCDh0yV9mQdPos6TEDH/U5im+I9yVBVKRNqff +qvkjtC/g1xkfFpwQKcieP+qHRIYPXOIOZUHOR+yS5iMf9O7qwk3J+yzYNxSc +Oxjog1yFniTuDGNBXVnwVJyDD2rW+9N4IYIFiSbFkxbbfVDQ85wt7TEsOKv0 +6+1CkzeauSb0LTWJBRrzbo9CuL1RPWXgnN4rFshemFGI97+KJtw0Da7nskA9 +2vGA5fmraEP7g61leSwou+ImusPwKjKIMF7dVkjUu9R5ejf1KvrAWxcj+Zq4 +P6c16/pLL9S4Lq9+rpYFRg7pp8a+eqLm5dsqT7pZMJAieuCUgweaNhujDPaw +4OeyV5OOsQfiLdb5I9LHAjfZkkG02wMd9vhbFzrAgh0F6Qf8Nnugj7OuZ6+N +siB0b3WuQJ47apm0jjaaYkGakG2mH5c7mjEo8777nbi/xUu6dcoN8WeLnn0/ +zYIen6b8XV1u6Kh9u7LWTxZM3okbOfjMDbWyD9TJL7DgxcrGfi9TNzSrk5Fz +bpEFLUqD/Ve13ZDgE1L0oyUW7N7bfzDsHzdkfKbyjPAKCz7O2zBXud2QS5XE +/iN/WPCfj/wZkx+uKEL6mvKdVaJ/d4OLKnpdUa5fl/Dbv0Q/CswE0TtX1Dag +vrK2xoLHWt4n21+5ov8BAsGFNA== + "]]}, "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, 11}, {0., 0.8968976999679797}}, + 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.992078189974333*^9, { + 3.992078226456953*^9, 3.992078246157568*^9}, {3.9920782957891445`*^9, + 3.9920783772467804`*^9}, {3.992078424947586*^9, 3.992078458485281*^9}, { + 3.9920785066484985`*^9, 3.992078603046728*^9}, {3.9920786516615753`*^9, + 3.992078670727331*^9}, 3.992078703082752*^9}, + CellLabel-> + "Out[171]=",ExpressionUUID->"679841ea-ec83-384a-a982-08ca29c2c2e1"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"b0", ",", "y", ",", "bb0", ",", "yy", ",", "r"}], "]"}]], "Input", + CellChangeTimes->{3.9918427409143257`*^9}, + CellLabel-> + "In[234]:=",ExpressionUUID->"4a5ddd52-c690-354a-8f4a-29e1547c8fab"], + +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", ",", "6.6", ",", "12"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.992078766750559*^9, 3.9920787887431946`*^9}}, + CellLabel-> + "In[175]:=",ExpressionUUID->"f9e7e8c9-0d48-844f-8932-8dc242714679"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Gk4lW3XB3BReohSUjKEva9rXxIpFYrbWqTSLSLTzpAhyZAhIlMZQpEp +U0IiyhQyZCgpwy1EMkQRUTInotDAu98P6ziP34dzrf+xPiwJK+eTZ9nZ2Nj6 +WfX/L3/RK0cbGyGsoj0PHRqcgtRsjBe0FcILflv3PB6YAsm0x1XNdkKorbPP +79qHKVCOurtO1lEI1bi1eCXfTYG1o1vOgpsQ1n1e+shsm4LSHcJfrgcI4bCr +fY/nsynQv2dvmpcihDVNzzrzE6cgLpZLc6ZDCCdm9/o3/zsF/61KMU7WEMbC +2PtWK+GTECUwut+7TBjvaHAOrDyfgPvCF/X30ERw+xoq/0DfODjkG9znuiWC +fgfMRhprx+DV8LcagdWi+MBw+FFx6ij0ZQ3wHfIWRavmi1qX1EZAwWxDhsa0 +KOb79kgXtA2DdMUiW6DxdqxTNPaytfgM7anyNz+0bUcbCd0GpZoh4Nsp89X+ +HzHUzWbf3LNvEJJzzoa3Z4uhiqhn5aXT/TB5aqng4XpxFPdWWycq1gvde1Iu +cx8WR3v/XWmzcj1w+4Tdl0U/cey+1XGtY28XBNr0OHVWimP0D7cXw17toPhG +YuDlN3GUBysJD63X0OCXMHJcSgIndY1TtOqaQDxwtGvSQgJH//jWV7M1wMlm +K1PhFAk0u2maQTnXQu46vzUK3RIYuLh0jaezGtruXoo7z0PDva+8Vv1aqoQW +r6QquaM0DPvXg2f+ymNIeHC7edMVGmolhj41+FEEuyjm73GWr/PqlCSOFUFD +1hbpGj8avlEo5hzuK4If2bERzgE0NLXaWxBbWwT6eRE6LUE0tKlpCjCMLoJN +jwK6g2/QkFtnWtNGpggiK+0+LSbS8EZmhUyU4yMIaTnwa6CEhil1X7zEuQtg +/09Tx8ZSGsYwVxKffM+HYTH/waLHNMzekPrmbF8+qLk1NASV0zBYzO/0t4f5 +sLJNL1bqKQ3zy/9patXJB89z56U9ammImRY3CpIfgj373dO87az8g+ViZf/k +gbbi6jqlaRomzJOGqY+yQaOz+o7ANxpWSX6s90zNBjUnL89vLC/qrhkwD88G +hcxpmYxZGgr27pnRs80Gcb73idw/aMh5909Fh3g2zI3mO73/TcNHi2IbiLgs +SLxlJHSJi46XuTMEB68+gM8/cy8UE3RcAmOmcEgmzB9sjkwl6digyNGS6p4J +nH7jeWEMOmLcsdldZzNBaq3kiJUkHfU302Tc1TPBZet9Y35pOsr9UnRN5MiE +ZYW7hy7upWP1Fa+rckEZIOQVKyCvRkf/5PljnpH3QOe3T2WlOR2F08Q0Pf5L +gyN1EtfSLei4WzvgKq0iDZRvvNQPtaTj+fhXC+9y02CHMP8M8wwdpZS+e1hH +pwG7Ui5j0YaOIQ5Wq3+YpMFj73ex8k509G41kZgavwtCv/Y5lfjS8W2o+US4 +aSp8XvxKy79Nx+aH8vXqXslAyO1kBifR8VLmkutL62SwcbCNMEumo4H4uWWm +TjKM939a4L1Dx50vswKzqWT4VtvT4pRGR6W3veRidxL8Dq/x2J1FR/c33vy6 +iknALxHfXFJKR7XjIg8y19yGQ8eUXZ+0sf7vLo6qbkyAlJ0D45lv6Hhow4kH +SmUJMM/rbxnVTseckI0uLzMS4EFHnY51Jx2Xs2JmuP0SgNtUU3Z9Dx2ftS05 +o3wCtDsZT1kO0DG9wL3LJCsezOM8bbi+0nHh99hWrrg48PlYaszkJnDQuVz1 +T1wMiO+dPrB3HYHSX2g/u0JioD6E2raeh8Ce5Qyo8IwBnl1JPXW8BHb6e7ul +msZAiq+fvuxGArMfJ4aNETFQte1fbU5BAifyJkbPl9+Ev3ofVUtJAs/Q9kyy +D0eDXyPXDj5VAulvmPqPSiLhf2lNFSMsb3TfWPwoJRKiL4VqPFMjcGjcZW1t +cCTcY3DZ2qsTGHQhx3YrMxLqg/6XVX+UQN41diU3/kYAt+pa0kubwA8LeQtR +mhEQV7la4pMJa16Y+5HHczcgJ3dFsNSDwK1sWjf/XAiFf3cSkymXCBzgy0lH +s1CYyNN4FuxJoEUczTJeIxSk8m9aGnkTeFaLqHQRC4XcQnrur8sEUlm+ll9b +r0Nu6VEl1WACT8W06s3JsFwdZfY6lsCW7l1F75dCIK9D7N7YIwK50idGHKuD +IKG+r6+miMCf1ja1qQVBEFh2SyC5mECZ1Z/D+lKDgJm0IVSrlECj11nPPf2C +YLXVinNxOYHOmw/WoWoQnJ4d+Me3msC/h2/cWWm4Cpv4Ut9vaGH5Sdz+v72B +4K0lslFhlJW/1GtOlh4AvmPKEbQxAnHj0NlVAgHgd9WMa/04yyYBPgOcARBU +mbrqywSBN8NH7Z9O+EMUKfE9ZprAfn4Vg5Vif8j8S3ZO/yCQFLA4mnXYH17n +y8Y/WE1iStIV8QsjV0Bi/aFtW2gkFh7XP/a31wechH7/mWU5KWeowPE/H6hi +lAy20knULinOmi70ASbQs4NJEiMTh8VpwT4Q7cKh8EOSxAbZ6U6t3T6w3FGn +3yVL4m+TLsf8UG/ou6UeHfMPiXPSxzoVNbwgXuLI2g2nSNTrVeFcnPWAxqKg +5BGWZxb3c4YOesAv1TrZamMSr4QTclSbB5y2QqajKYl+47EjYQ89QDLjYM4r +cxJ3aK4UTp/zgCpCVvO6DYl8uhe0xYbc4RMlGLXqIondjW5unz5cBNldE1vm +I0n0EAvVmV9wZd3biK/9USQGFy6OaI+5Qm3a7vqX0SR2Kv82KHvnCob8ly4k +x5AYtuNnbF6lK1xZ5GhRS2Dtp0LFcZevK7TUigbcvEOiyqOl5HAOV7A10p3c +9ZDEplLDJmvhC5DuX/HcronE3fxa3e97nUB+59zfQ80kVocKi/LXOUHzWxnl +7a9IdC24k3k6zwnmpTIqOlpY/ZUpFWlfJ9B4G1Gk9IZEhbjLgmnbnWBmx5kM +3h4Sff193AdsHAE7ea8VDZM4GXFPhbn6PAySZ7SXVkjMsw2PdXOxg3Av9rYv +bAyUl9exkzOxgwOt6Sc6VjEw57nIHPsRO4i5OKiTx8FAgYcqY++E7eBQnZme +2VoGzq89VmPYaAsPLJjMmvUMVDM2ToogbOF8spZVqCgDlVaOZAeP28ACn6LH +NiUGfgp+97ronjVcHzPLWqXMwIrtIUM1N61B8MXVd+MsL+eKdHz0t4aDzm0H +n6gwMKZqQOywuTVcabVZMVZjoOzW3L2lItbAGRZ/PeUYAxftPUOFks7AFo65 +JDEmA395DZBVqVaw70f+c9Kdgb1Sjs/4Wi2AT8WBucyyYHX+kz0vLGAqRHK2 +24OB2zjXR5mWWECmYAbtuicDmTuV7rbdtgAB5cTgCR8GLswOhUuds4CfgYGa +hYEMHHcNlc7nsIBKPqMexWgGdo2ek7G5dhpUpNm+aeYx8AQbX4hflQnIbac1 +yz9koHea6A+3+yZA8qnfl8hn4Pb7OQE+kSbAM3/NZKGAgQ8ebi6tszCB3qcb +Gu8VM3BT0WyDPKcJeGiKpS9VMrDmQ/rmJH1jKLRX0ctqZCCj55Xl5DITxHN8 +y9lHWPvj/TgTHWII5jzyv/pZNtYf+S7gbgipzt+UK0cZ+FJ10D/7jCEIy1vV +Oo8z8LBH55afaAhb6o62fphi4Aud8LVyfwyAp3/T57I5Bope5vhLdzeARb6c +9Q6rKCzhC+zJcdGHNs+3ZztFKDwrcm2eFn4SvpsLnMoVpfC1C0f1misnYctR +g+MB2ynsOragOud8EkwF3srJilOY/uM5c1rvJEwUda2E0Sn0JoI/nhE5Casn +O2+rSVHob3FU73ChLhww62gtUqCQS7Npa94HHchQbdsffZLCSO7f9OpsbRho +d3Pw0qMwY+pEumOUNghaCaZb6VNo8dqdTc5DGyIDLXn2G1IYq+UrtnRIGzzr +5j69P0WhfeVldr9BLdA+LBhNt6Twq75GkrGoFixpWE6UOVNYvm1Ta/99TTih +M5faH06hYZ+vzP1pDejSlVUuj6Dwo0GOglOfBhjrObyPjmTlKf/Ce6RRA2wM +P/OrR1PoMsk/K3FPA66Ydl7PjaWQseutQaihBhTYlrheSqJQPzmrnaf2KPAE +uB3ZmE2hLJ/95qSMI6z7NfdVvY5CE9eeuKBIdTgvKNOrUE+hpFn8mbe+6rDB +z6ZB6j8K/9wMtNnvoA6Gx9+n8r2kkP70WRdNQx2GR6pPfGimMEl7crSIXR3Y +RMKK3DooPDgzVxbvfQgUQ8Td7w1RKCZpdEfEXQ0+TJ2yjP9EYWmmsrfSWTXw +04vVuv6Z1X8kaPmcgRo0iHMynL5QWKBh/np8vxroP53sPjBOoRAaHY5aUAWX +mTLF9hkKm3TLAowuq8JmoxmifpZCI2cNB00nVSh/tmNj+XcKzctVDh83V4Xl +sJTxlHkKj5NTdy6qqkI4GZhku0jhrebz+ac5VWF3+NMQkyUKsxxWhisWEDq/ +z7tq/6KwYWjzY7FxBKEX5zT3/aHwZXXo3KYWhGpGugL1l8J2Tsvjd58hWEX0 +0oWWKazozt2kWIjAOc/Px7tC4RriiVJ/GkKOsdafFZYvrJusioxB+D/0yENl + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Gk4lW3XB3BReohSUjKEva9rXxIpFYrbWqTSLSLTzpAhyZAhIlMZQpEp +U0IiyhQyZCgpwy1EMkQRUTInotDAu98P6ziP34dzrf+xPiwJK+eTZ9nZ2Nj6 +WfX/L3/RK0cbGyGsoj0PHRqcgtRsjBe0FcILflv3PB6YAsm0x1XNdkKorbPP +79qHKVCOurtO1lEI1bi1eCXfTYG1o1vOgpsQ1n1e+shsm4LSHcJfrgcI4bCr +fY/nsynQv2dvmpcihDVNzzrzE6cgLpZLc6ZDCCdm9/o3/zsF/61KMU7WEMbC +2PtWK+GTECUwut+7TBjvaHAOrDyfgPvCF/X30ERw+xoq/0DfODjkG9znuiWC +fgfMRhprx+DV8LcagdWi+MBw+FFx6ij0ZQ3wHfIWRavmi1qX1EZAwWxDhsa0 +KOb79kgXtA2DdMUiW6DxdqxTNPaytfgM7anyNz+0bUcbCd0GpZoh4Nsp89X+ +HzHUzWbf3LNvEJJzzoa3Z4uhiqhn5aXT/TB5aqng4XpxFPdWWycq1gvde1Iu +cx8WR3v/XWmzcj1w+4Tdl0U/cey+1XGtY28XBNr0OHVWimP0D7cXw17toPhG +YuDlN3GUBysJD63X0OCXMHJcSgIndY1TtOqaQDxwtGvSQgJH//jWV7M1wMlm +K1PhFAk0u2maQTnXQu46vzUK3RIYuLh0jaezGtruXoo7z0PDva+8Vv1aqoQW +r6QquaM0DPvXg2f+ymNIeHC7edMVGmolhj41+FEEuyjm73GWr/PqlCSOFUFD +1hbpGj8avlEo5hzuK4If2bERzgE0NLXaWxBbWwT6eRE6LUE0tKlpCjCMLoJN +jwK6g2/QkFtnWtNGpggiK+0+LSbS8EZmhUyU4yMIaTnwa6CEhil1X7zEuQtg +/09Tx8ZSGsYwVxKffM+HYTH/waLHNMzekPrmbF8+qLk1NASV0zBYzO/0t4f5 +sLJNL1bqKQ3zy/9patXJB89z56U9ammImRY3CpIfgj373dO87az8g+ViZf/k +gbbi6jqlaRomzJOGqY+yQaOz+o7ANxpWSX6s90zNBjUnL89vLC/qrhkwD88G +hcxpmYxZGgr27pnRs80Gcb73idw/aMh5909Fh3g2zI3mO73/TcNHi2IbiLgs +SLxlJHSJi46XuTMEB68+gM8/cy8UE3RcAmOmcEgmzB9sjkwl6digyNGS6p4J +nH7jeWEMOmLcsdldZzNBaq3kiJUkHfU302Tc1TPBZet9Y35pOsr9UnRN5MiE +ZYW7hy7upWP1Fa+rckEZIOQVKyCvRkf/5PljnpH3QOe3T2WlOR2F08Q0Pf5L +gyN1EtfSLei4WzvgKq0iDZRvvNQPtaTj+fhXC+9y02CHMP8M8wwdpZS+e1hH +pwG7Ui5j0YaOIQ5Wq3+YpMFj73ex8k509G41kZgavwtCv/Y5lfjS8W2o+US4 +aSp8XvxKy79Nx+aH8vXqXslAyO1kBifR8VLmkutL62SwcbCNMEumo4H4uWWm +TjKM939a4L1Dx50vswKzqWT4VtvT4pRGR6W3veRidxL8Dq/x2J1FR/c33vy6 +iknALxHfXFJKR7XjIg8y19yGQ8eUXZ+0sf7vLo6qbkyAlJ0D45lv6Hhow4kH +SmUJMM/rbxnVTseckI0uLzMS4EFHnY51Jx2Xs2JmuP0SgNtUU3Z9Dx2ftS05 +o3wCtDsZT1kO0DG9wL3LJCsezOM8bbi+0nHh99hWrrg48PlYaszkJnDQuVz1 +T1wMiO+dPrB3HYHSX2g/u0JioD6E2raeh8Ce5Qyo8IwBnl1JPXW8BHb6e7ul +msZAiq+fvuxGArMfJ4aNETFQte1fbU5BAifyJkbPl9+Ev3ofVUtJAs/Q9kyy +D0eDXyPXDj5VAulvmPqPSiLhf2lNFSMsb3TfWPwoJRKiL4VqPFMjcGjcZW1t +cCTcY3DZ2qsTGHQhx3YrMxLqg/6XVX+UQN41diU3/kYAt+pa0kubwA8LeQtR +mhEQV7la4pMJa16Y+5HHczcgJ3dFsNSDwK1sWjf/XAiFf3cSkymXCBzgy0lH +s1CYyNN4FuxJoEUczTJeIxSk8m9aGnkTeFaLqHQRC4XcQnrur8sEUlm+ll9b +r0Nu6VEl1WACT8W06s3JsFwdZfY6lsCW7l1F75dCIK9D7N7YIwK50idGHKuD +IKG+r6+miMCf1ja1qQVBEFh2SyC5mECZ1Z/D+lKDgJm0IVSrlECj11nPPf2C +YLXVinNxOYHOmw/WoWoQnJ4d+Me3msC/h2/cWWm4Cpv4Ut9vaGH5Sdz+v72B +4K0lslFhlJW/1GtOlh4AvmPKEbQxAnHj0NlVAgHgd9WMa/04yyYBPgOcARBU +mbrqywSBN8NH7Z9O+EMUKfE9ZprAfn4Vg5Vif8j8S3ZO/yCQFLA4mnXYH17n +y8Y/WE1iStIV8QsjV0Bi/aFtW2gkFh7XP/a31wechH7/mWU5KWeowPE/H6hi +lAy20knULinOmi70ASbQs4NJEiMTh8VpwT4Q7cKh8EOSxAbZ6U6t3T6w3FGn +3yVL4m+TLsf8UG/ou6UeHfMPiXPSxzoVNbwgXuLI2g2nSNTrVeFcnPWAxqKg +5BGWZxb3c4YOesAv1TrZamMSr4QTclSbB5y2QqajKYl+47EjYQ89QDLjYM4r +cxJ3aK4UTp/zgCpCVvO6DYl8uhe0xYbc4RMlGLXqIondjW5unz5cBNldE1vm +I0n0EAvVmV9wZd3biK/9USQGFy6OaI+5Qm3a7vqX0SR2Kv82KHvnCob8ly4k +x5AYtuNnbF6lK1xZ5GhRS2Dtp0LFcZevK7TUigbcvEOiyqOl5HAOV7A10p3c +9ZDEplLDJmvhC5DuX/HcronE3fxa3e97nUB+59zfQ80kVocKi/LXOUHzWxnl +7a9IdC24k3k6zwnmpTIqOlpY/ZUpFWlfJ9B4G1Gk9IZEhbjLgmnbnWBmx5kM +3h4Sff193AdsHAE7ea8VDZM4GXFPhbn6PAySZ7SXVkjMsw2PdXOxg3Av9rYv +bAyUl9exkzOxgwOt6Sc6VjEw57nIHPsRO4i5OKiTx8FAgYcqY++E7eBQnZme +2VoGzq89VmPYaAsPLJjMmvUMVDM2ToogbOF8spZVqCgDlVaOZAeP28ACn6LH +NiUGfgp+97ronjVcHzPLWqXMwIrtIUM1N61B8MXVd+MsL+eKdHz0t4aDzm0H +n6gwMKZqQOywuTVcabVZMVZjoOzW3L2lItbAGRZ/PeUYAxftPUOFks7AFo65 +JDEmA395DZBVqVaw70f+c9Kdgb1Sjs/4Wi2AT8WBucyyYHX+kz0vLGAqRHK2 +24OB2zjXR5mWWECmYAbtuicDmTuV7rbdtgAB5cTgCR8GLswOhUuds4CfgYGa +hYEMHHcNlc7nsIBKPqMexWgGdo2ek7G5dhpUpNm+aeYx8AQbX4hflQnIbac1 +yz9koHea6A+3+yZA8qnfl8hn4Pb7OQE+kSbAM3/NZKGAgQ8ebi6tszCB3qcb +Gu8VM3BT0WyDPKcJeGiKpS9VMrDmQ/rmJH1jKLRX0ctqZCCj55Xl5DITxHN8 +y9lHWPvj/TgTHWII5jzyv/pZNtYf+S7gbgipzt+UK0cZ+FJ10D/7jCEIy1vV +Oo8z8LBH55afaAhb6o62fphi4Aud8LVyfwyAp3/T57I5Bope5vhLdzeARb6c +9Q6rKCzhC+zJcdGHNs+3ZztFKDwrcm2eFn4SvpsLnMoVpfC1C0f1misnYctR +g+MB2ynsOragOud8EkwF3srJilOY/uM5c1rvJEwUda2E0Sn0JoI/nhE5Casn +O2+rSVHob3FU73ChLhww62gtUqCQS7Npa94HHchQbdsffZLCSO7f9OpsbRho +d3Pw0qMwY+pEumOUNghaCaZb6VNo8dqdTc5DGyIDLXn2G1IYq+UrtnRIGzzr +5j69P0WhfeVldr9BLdA+LBhNt6Twq75GkrGoFixpWE6UOVNYvm1Ta/99TTih +M5faH06hYZ+vzP1pDejSlVUuj6Dwo0GOglOfBhjrObyPjmTlKf/Ce6RRA2wM +P/OrR1PoMsk/K3FPA66Ydl7PjaWQseutQaihBhTYlrheSqJQPzmrnaf2KPAE +uB3ZmE2hLJ/95qSMI6z7NfdVvY5CE9eeuKBIdTgvKNOrUE+hpFn8mbe+6rDB +z6ZB6j8K/9wMtNnvoA6Gx9+n8r2kkP70WRdNQx2GR6pPfGimMEl7crSIXR3Y +RMKK3DooPDgzVxbvfQgUQ8Td7w1RKCZpdEfEXQ0+TJ2yjP9EYWmmsrfSWTXw +04vVuv6Z1X8kaPmcgRo0iHMynL5QWKBh/np8vxroP53sPjBOoRAaHY5aUAWX +mTLF9hkKm3TLAowuq8JmoxmifpZCI2cNB00nVSh/tmNj+XcKzctVDh83V4Xl +sJTxlHkKj5NTdy6qqkI4GZhku0jhrebz+ac5VWF3+NMQkyUKsxxWhisWEDq/ +z7tq/6KwYWjzY7FxBKEX5zT3/aHwZXXo3KYWhGpGugL1l8J2Tsvjd58hWEX0 +0oWWKazozt2kWIjAOc/Px7tC4RriiVJ/GkKOsdafFZYvrJusioxB+D/0yENl + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6.6, 12}, {0., 0.9024512949336763}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.600000000000014, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{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.6, 12}, {0., 0.9024512949336763}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.600000000000014, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Gk4lW3XB3BReohSUjKEva9rXxIpFYrbWqTSLSLTzpAhyZAhIlMZQpEp +U0IiyhQyZCgpwy1EMkQRUTInotDAu98P6ziP34dzrf+xPiwJK+eTZ9nZ2Nj6 +WfX/L3/RK0cbGyGsoj0PHRqcgtRsjBe0FcILflv3PB6YAsm0x1XNdkKorbPP +79qHKVCOurtO1lEI1bi1eCXfTYG1o1vOgpsQ1n1e+shsm4LSHcJfrgcI4bCr +fY/nsynQv2dvmpcihDVNzzrzE6cgLpZLc6ZDCCdm9/o3/zsF/61KMU7WEMbC +2PtWK+GTECUwut+7TBjvaHAOrDyfgPvCF/X30ERw+xoq/0DfODjkG9znuiWC +fgfMRhprx+DV8LcagdWi+MBw+FFx6ij0ZQ3wHfIWRavmi1qX1EZAwWxDhsa0 +KOb79kgXtA2DdMUiW6DxdqxTNPaytfgM7anyNz+0bUcbCd0GpZoh4Nsp89X+ +HzHUzWbf3LNvEJJzzoa3Z4uhiqhn5aXT/TB5aqng4XpxFPdWWycq1gvde1Iu +cx8WR3v/XWmzcj1w+4Tdl0U/cey+1XGtY28XBNr0OHVWimP0D7cXw17toPhG +YuDlN3GUBysJD63X0OCXMHJcSgIndY1TtOqaQDxwtGvSQgJH//jWV7M1wMlm +K1PhFAk0u2maQTnXQu46vzUK3RIYuLh0jaezGtruXoo7z0PDva+8Vv1aqoQW +r6QquaM0DPvXg2f+ymNIeHC7edMVGmolhj41+FEEuyjm73GWr/PqlCSOFUFD +1hbpGj8avlEo5hzuK4If2bERzgE0NLXaWxBbWwT6eRE6LUE0tKlpCjCMLoJN +jwK6g2/QkFtnWtNGpggiK+0+LSbS8EZmhUyU4yMIaTnwa6CEhil1X7zEuQtg +/09Tx8ZSGsYwVxKffM+HYTH/waLHNMzekPrmbF8+qLk1NASV0zBYzO/0t4f5 +sLJNL1bqKQ3zy/9patXJB89z56U9ammImRY3CpIfgj373dO87az8g+ViZf/k +gbbi6jqlaRomzJOGqY+yQaOz+o7ANxpWSX6s90zNBjUnL89vLC/qrhkwD88G +hcxpmYxZGgr27pnRs80Gcb73idw/aMh5909Fh3g2zI3mO73/TcNHi2IbiLgs +SLxlJHSJi46XuTMEB68+gM8/cy8UE3RcAmOmcEgmzB9sjkwl6digyNGS6p4J +nH7jeWEMOmLcsdldZzNBaq3kiJUkHfU302Tc1TPBZet9Y35pOsr9UnRN5MiE +ZYW7hy7upWP1Fa+rckEZIOQVKyCvRkf/5PljnpH3QOe3T2WlOR2F08Q0Pf5L +gyN1EtfSLei4WzvgKq0iDZRvvNQPtaTj+fhXC+9y02CHMP8M8wwdpZS+e1hH +pwG7Ui5j0YaOIQ5Wq3+YpMFj73ex8k509G41kZgavwtCv/Y5lfjS8W2o+US4 +aSp8XvxKy79Nx+aH8vXqXslAyO1kBifR8VLmkutL62SwcbCNMEumo4H4uWWm +TjKM939a4L1Dx50vswKzqWT4VtvT4pRGR6W3veRidxL8Dq/x2J1FR/c33vy6 +iknALxHfXFJKR7XjIg8y19yGQ8eUXZ+0sf7vLo6qbkyAlJ0D45lv6Hhow4kH +SmUJMM/rbxnVTseckI0uLzMS4EFHnY51Jx2Xs2JmuP0SgNtUU3Z9Dx2ftS05 +o3wCtDsZT1kO0DG9wL3LJCsezOM8bbi+0nHh99hWrrg48PlYaszkJnDQuVz1 +T1wMiO+dPrB3HYHSX2g/u0JioD6E2raeh8Ce5Qyo8IwBnl1JPXW8BHb6e7ul +msZAiq+fvuxGArMfJ4aNETFQte1fbU5BAifyJkbPl9+Ev3ofVUtJAs/Q9kyy +D0eDXyPXDj5VAulvmPqPSiLhf2lNFSMsb3TfWPwoJRKiL4VqPFMjcGjcZW1t +cCTcY3DZ2qsTGHQhx3YrMxLqg/6XVX+UQN41diU3/kYAt+pa0kubwA8LeQtR +mhEQV7la4pMJa16Y+5HHczcgJ3dFsNSDwK1sWjf/XAiFf3cSkymXCBzgy0lH +s1CYyNN4FuxJoEUczTJeIxSk8m9aGnkTeFaLqHQRC4XcQnrur8sEUlm+ll9b +r0Nu6VEl1WACT8W06s3JsFwdZfY6lsCW7l1F75dCIK9D7N7YIwK50idGHKuD +IKG+r6+miMCf1ja1qQVBEFh2SyC5mECZ1Z/D+lKDgJm0IVSrlECj11nPPf2C +YLXVinNxOYHOmw/WoWoQnJ4d+Me3msC/h2/cWWm4Cpv4Ut9vaGH5Sdz+v72B +4K0lslFhlJW/1GtOlh4AvmPKEbQxAnHj0NlVAgHgd9WMa/04yyYBPgOcARBU +mbrqywSBN8NH7Z9O+EMUKfE9ZprAfn4Vg5Vif8j8S3ZO/yCQFLA4mnXYH17n +y8Y/WE1iStIV8QsjV0Bi/aFtW2gkFh7XP/a31wechH7/mWU5KWeowPE/H6hi +lAy20knULinOmi70ASbQs4NJEiMTh8VpwT4Q7cKh8EOSxAbZ6U6t3T6w3FGn +3yVL4m+TLsf8UG/ou6UeHfMPiXPSxzoVNbwgXuLI2g2nSNTrVeFcnPWAxqKg +5BGWZxb3c4YOesAv1TrZamMSr4QTclSbB5y2QqajKYl+47EjYQ89QDLjYM4r +cxJ3aK4UTp/zgCpCVvO6DYl8uhe0xYbc4RMlGLXqIondjW5unz5cBNldE1vm +I0n0EAvVmV9wZd3biK/9USQGFy6OaI+5Qm3a7vqX0SR2Kv82KHvnCob8ly4k +x5AYtuNnbF6lK1xZ5GhRS2Dtp0LFcZevK7TUigbcvEOiyqOl5HAOV7A10p3c +9ZDEplLDJmvhC5DuX/HcronE3fxa3e97nUB+59zfQ80kVocKi/LXOUHzWxnl +7a9IdC24k3k6zwnmpTIqOlpY/ZUpFWlfJ9B4G1Gk9IZEhbjLgmnbnWBmx5kM +3h4Sff193AdsHAE7ea8VDZM4GXFPhbn6PAySZ7SXVkjMsw2PdXOxg3Av9rYv +bAyUl9exkzOxgwOt6Sc6VjEw57nIHPsRO4i5OKiTx8FAgYcqY++E7eBQnZme +2VoGzq89VmPYaAsPLJjMmvUMVDM2ToogbOF8spZVqCgDlVaOZAeP28ACn6LH +NiUGfgp+97ronjVcHzPLWqXMwIrtIUM1N61B8MXVd+MsL+eKdHz0t4aDzm0H +n6gwMKZqQOywuTVcabVZMVZjoOzW3L2lItbAGRZ/PeUYAxftPUOFks7AFo65 +JDEmA395DZBVqVaw70f+c9Kdgb1Sjs/4Wi2AT8WBucyyYHX+kz0vLGAqRHK2 +24OB2zjXR5mWWECmYAbtuicDmTuV7rbdtgAB5cTgCR8GLswOhUuds4CfgYGa +hYEMHHcNlc7nsIBKPqMexWgGdo2ek7G5dhpUpNm+aeYx8AQbX4hflQnIbac1 +yz9koHea6A+3+yZA8qnfl8hn4Pb7OQE+kSbAM3/NZKGAgQ8ebi6tszCB3qcb +Gu8VM3BT0WyDPKcJeGiKpS9VMrDmQ/rmJH1jKLRX0ctqZCCj55Xl5DITxHN8 +y9lHWPvj/TgTHWII5jzyv/pZNtYf+S7gbgipzt+UK0cZ+FJ10D/7jCEIy1vV +Oo8z8LBH55afaAhb6o62fphi4Aud8LVyfwyAp3/T57I5Bope5vhLdzeARb6c +9Q6rKCzhC+zJcdGHNs+3ZztFKDwrcm2eFn4SvpsLnMoVpfC1C0f1misnYctR +g+MB2ynsOragOud8EkwF3srJilOY/uM5c1rvJEwUda2E0Sn0JoI/nhE5Casn +O2+rSVHob3FU73ChLhww62gtUqCQS7Npa94HHchQbdsffZLCSO7f9OpsbRho +d3Pw0qMwY+pEumOUNghaCaZb6VNo8dqdTc5DGyIDLXn2G1IYq+UrtnRIGzzr +5j69P0WhfeVldr9BLdA+LBhNt6Twq75GkrGoFixpWE6UOVNYvm1Ta/99TTih +M5faH06hYZ+vzP1pDejSlVUuj6Dwo0GOglOfBhjrObyPjmTlKf/Ce6RRA2wM +P/OrR1PoMsk/K3FPA66Ydl7PjaWQseutQaihBhTYlrheSqJQPzmrnaf2KPAE +uB3ZmE2hLJ/95qSMI6z7NfdVvY5CE9eeuKBIdTgvKNOrUE+hpFn8mbe+6rDB +z6ZB6j8K/9wMtNnvoA6Gx9+n8r2kkP70WRdNQx2GR6pPfGimMEl7crSIXR3Y +RMKK3DooPDgzVxbvfQgUQ8Td7w1RKCZpdEfEXQ0+TJ2yjP9EYWmmsrfSWTXw +04vVuv6Z1X8kaPmcgRo0iHMynL5QWKBh/np8vxroP53sPjBOoRAaHY5aUAWX +mTLF9hkKm3TLAowuq8JmoxmifpZCI2cNB00nVSh/tmNj+XcKzctVDh83V4Xl +sJTxlHkKj5NTdy6qqkI4GZhku0jhrebz+ac5VWF3+NMQkyUKsxxWhisWEDq/ +z7tq/6KwYWjzY7FxBKEX5zT3/aHwZXXo3KYWhGpGugL1l8J2Tsvjd58hWEX0 +0oWWKazozt2kWIjAOc/Px7tC4RriiVJ/GkKOsdafFZYvrJusioxB+D/0yENl + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6.6, 12}, {0., 0.9024512949336763}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.600000000000014, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> 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.600000000000014, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "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.6, 12}, {0., 0.9024512949336763}}, + 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.9920787525544453`*^9, + 3.9920787922434063`*^9}}, + CellLabel-> + "Out[175]=",ExpressionUUID->"e71f78b2-78b0-c347-a9cc-d69e10fac40b"] +}, 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", ",", "6.6", ",", "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", ",", "6.6", ",", "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.9920787999115257`*^9, 3.9920788019270935`*^9}}, + CellLabel-> + "In[176]:=",ExpressionUUID->"173389f3-1a04-8144-b644-6242c726094c"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.08297163602880672`\\\", \\\" \\\", \ +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.07622745893754213`\\\", \\\" \\\", 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.08297163602880672`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R2\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.07622745893754213`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.471537981295053`\\\", \\\" \ +\\\", \\\"R2\\\"}], \\\"]\\\"}]}], \ +RowBox[{RowBox[{\\\"80934.92795719826`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\ +\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\ +\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"49\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"5\\\", \\\"\[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, 176, 15, 24488269323719620004, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99196434662237*^9, 3.991965267764641*^9, + 3.992078807136387*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"54ce134e-2370-2448-b61c-e3493430a3ce"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.8789025302043902`"}], ",", + RowBox[{"b0", "\[Rule]", "0.8858439747845174`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9919643466702614`*^9, 3.9919652678273296`*^9, + 3.992078807224064*^9}, + CellLabel-> + "Out[176]=",ExpressionUUID->"f5d547d9-565a-2a49-af64-7ca4dcb05348"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "1.092"}]], "Input", + CellChangeTimes->{{3.9919643517017803`*^9, 3.9919643518904247`*^9}, { + 3.991965271719015*^9, 3.991965272747534*^9}, 3.992078812308214*^9, { + 3.992078889562443*^9, 3.992078937795889*^9}, {3.992078968596054*^9, + 3.992079019098961*^9}, {3.9920790673609257`*^9, 3.992079086765171*^9}}, + CellLabel-> + "In[223]:=",ExpressionUUID->"fb2f4610-f9af-7646-83db-aee0dc11e3ca"], + +Cell[BoxData["1.092`"], "Output", + CellChangeTimes->{ + 3.991964352345875*^9, 3.9919652787755985`*^9, 3.9920788247257977`*^9, { + 3.9920788822375774`*^9, 3.992078982023176*^9}, {3.9920790139781113`*^9, + 3.992079024667963*^9}, {3.9920790742602997`*^9, 3.9920790918387775`*^9}}, + CellLabel-> + "Out[223]=",ExpressionUUID->"3c9400ca-7330-c849-9e3a-090cc9e10307"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.745"}]], "Input", + CellChangeTimes->{{3.991964356946327*^9, 3.991964357098551*^9}, { + 3.9919652753355255`*^9, 3.991965275476549*^9}, 3.9920788168109436`*^9, + 3.992078875444191*^9, 3.9920789154529915`*^9, 3.9920789563948193`*^9}, + CellLabel-> + "In[224]:=",ExpressionUUID->"fc2d430a-c5ca-8f47-8093-6506a1b91783"], + +Cell[BoxData["0.745`"], "Output", + CellChangeTimes->{ + 3.9919643574642944`*^9, 3.9919652764203777`*^9, 3.99207882476519*^9, { + 3.992078882269352*^9, 3.9920789820578938`*^9}, {3.992079014018162*^9, + 3.992079024700884*^9}, {3.9920790742898865`*^9, 3.992079091871784*^9}}, + CellLabel-> + "Out[224]=",ExpressionUUID->"698ef028-0dc8-8e44-8926-fe79072049b6"] +}, 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", ",", "6", ",", "13"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{3.9917169014568214`*^9, 3.992078845126295*^9}, + CellLabel-> + "In[225]:=",ExpressionUUID->"44d47a15-a0d8-c245-95ac-48359d9c9ae4"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVV3k4VV0XN0SiJNF7rinufFMpSYZXa2UoiYxFURGRecoQkeJFpQyhFKIM +RUlkligK0ShjGmQoJImLiO98f51nP3uf9Zy1z29aCkc9zY7x8fDwHOPl4fn/ +00Y3eRkPD4Hbpoiu2Ltc+HdAsrYohkATEZE4Nd5p6H97jaPJoCD/N7poYR8X +JqVXDuUWU/A8/yP+WXMu9IkFue8GKdxQKGns7TQFV8yGc2rbpVDI9/DUJdFJ +KPm5W0XGQRpX3x794xs3Ade7Ck4Y/ZXGUvWMXpEX43DYUzi0+LIM0tafpMn+ +/QHnbff1/F0ri5k3Wusm8oYhJD17RLZcFmmvqZN1akPQtW3AmLpTDsX9a+76 +qveDeIh0iPUbOZzJPvm4PPoLrF5pecjl+FocSj3YKdbWC6fmz8QfmlqLEa7h +RaFnumC/9IF/V++Sx+r91+CQy3s4dMlNQjxBHg+W5g9MTr0B4n7AGv5OeWwM +snLQtH8J2/wFJj7SFFBwRdxudb0mEB45P33XRQFbXgd8e6TeADsEL7cfK1PA +qDsxvy5G14FTwBqpCj4qlr06ssZmySPYkRwftaBPxd/fH3HNd5fDaevYlxuT +qJhDz9U043kI3i8jwPQDFZuMDOUy8gvB7MqUhCiVhvZZveO7PubDFcHvT0vc +aZhaOyF+8EcOxNHaUo0f0vDIC7WGGMot+DG4w7iNh47KHN6HTPMboM6j6Ph7 +Dx0jNhyw39GQAurPRXKXJNCRIvXwee7JJEhT8azj+UhH+YWAccX0eCgxbhb4 +SWdgxDI//3L9i1Bdm1EQ4MJADcee5xpu0cDsnN00UsLAoYYouLMiAvTSDHpN +5hlImdRiPC0Ig0YhOftMfSaOfr9qs8wiGBYVvov3xzJx+dF11nP3/IERr8Sq +e8/EqA3sXaVffaAgZ0binAILlQd/9Pz84wGjzhXrdY6zcID9I4W/xhkuvpuX +/faQhToiXh3HVh4D2ctVviweNna5qp95bWAHdjw+v612slHPOyfE/JkNLJPI +N/RLYGPyluhLJxIswfF9z6vwLjZ+eOGkohpvDg9Go8rWr+Vg4qBy0wEjE7DN +Kw2sdeFg8GYFSkeNATyV7LXf+YCDXZxfTfs0d8LbXpW5xUUOEnd5+ZXWaEOL +RLvDgZ0Ersyyzl7SzwUxm85JbieBe0d3XJPlmwa3aYtobzcK7vuh0nzzNhdc +k3XzAmcpWLE62ar82xRUb1YWFrgghSJnbJfP109Czoyo07J4BdRfeuTUqz1P +oa3GInBlrwJmPdGFkqHH0CbY9rqHQcXGzmb/rzGV8DlQLH+NJxX7/JK38omU +woyE8NLacio6df/7fplOEfQpa+UpLVLRq1PoNv+pApjc6zn6ZRcNY5c7vjy1 +6w5IJB0u5Iun4aycr4jjjyzYLiDCje+mIcFxtFnckwmXfUu77Zl07Phs0tLt +nAoV9tcF5z3oKNaVtT0l8gqMhGg95Cun49nhgzuyfS8D50nq1wBeBoZ7Znx8 +vDIO1KK3HizexcB6Huu5IzXnwduw1XNzHAPtL0hfDVOIhFIN6lK5LgZaVm35 +7mFwFgTNVeRPUpmYIfzXwEo5FByS+Ku03Zj4o/XLe6uBQEg4sDztbRETazac +cS0vOgHD0hJy2XNMlF0I+b5C2huMhLrkB3VZ+Oc75d4pLTeolrPOTrrEQt2z +ETsK9J1g35YPjVHdLDQxkBazlbSHx03JW5DGxpKqmZ9tF47A1vOi8k5ubKRX +M2M1RQ5C+QmdS/MlbOwtZZksntwHy7880LGaZ6NIbJa4xgdTiN6z9ipXl4MO +ueMjd6OMQPzzbg/+Sxw8HPWfostRfWiejVa61clB4XpREdcVupC4XrVsPY1A +3YjX6qdecCFHPqC7rYjA8YlWjxKBaWAPTFu161NQ8q6muHgTFzZ13dGPa6fg +pyzcq6nABWOFdk3WMSksiFD9NUxMQecvQ6WeEAXcacRo1dCqh/N9vrkazQqo +F/vgaHZFLciBn5+BBBVLXPdGfK6rgrilpinCNlTsFjq8z51WBv+Wt7hM55D6 +o22bXSNTDHk8X07U/qDilq2e29O/3AeabxHPjAoNQy41uU6cz4P2VpqGzWka +ZpqKGqYPZYNTomeT13Ma6j08tCi34SbghnmJ1NV0jNd5Ohn2Pg1mN9uXBhyi +o9rllB6PG1ch4WbWPf5sOgZqOizf7ZUI9nP/mVX/pCM1+66m3ds44I4sKpmq +MtBaZdshlfkLkCy4LdYihIFX3lXcy4Mo8FgmmhrxnIFiE0JfPzHDgRn4eMFh +JRO9oy3EOx+dhjWvxFb6HGSi2yGnWl/JIGh89MfSOpOJ85VvcuLy/CC6PZNa +/I2JDkbP+ipnvSG049u1bVtYmHlN01sq0R0sdIWd3YJJ/YmbmfQLPg7e4W6/ +y56zcJ1e4lX2cgfw2HjnXfEqNtr+u1J2MNwW9ujVLrM9wMZP67tPittag61u +wA+1LDZqbcgvmD+9H9R7ni0bG2Zj1ucWz+oHZiCT+i53lTIHvzwcR9+lxqCu +F/bb7hQHX/bVdGSf2w3PlhY3TdZz0IN/g5qSrB4s+esnHulMYMmDw8p/prgQ +dEV9JWWRwJf0Q1HuXC4ULisqWx5HQdeu3o3nz5B4Mv8kYicjhaHL0k8V5U3B +y5HDSaajHOTxElA3EdGBQDVH2+RVBF45vHfzq2ou/Dq7s/XpDQJdD8U2By6Z +BkGb3XVC2yjovvGKzaN2LiQEffhHpoGCma+41fs1uUBQbluomUmhRnpJ3hec +Au8x19W6JxSwXtrCV7yyHhxP8MPrWgUMuFAhNL62DrR7Gp6fEaGiRtSLhWN2 +1fBtr3dchBkV9bWJ8tyHZfBxWYHM6nQq+le5jOtdLIZLQ8rdQgNUnGnke7LZ +qBA0BNqEwxVpWNnQ4piknA+qLoKL0f40dEmavs3vnAPzPQpbPj+iYVOjpuvX +zJuwRnitspowHWPvbFknmJAOFMquSyUWdPyV26d6f1MKDKpYrYu4Tkf+HYXS +lr8Tgefqn3MfB0k9C9QrldoWD+2yA1IZGxhoslPxU1JGDNz5OiI36MvA9n0O +96XaoqB5PHywrIaBerIZY7+uhkOpsMBYtwATGx+vyI7RC4Ofrv9UnDNl4tYq +R/f+oiDo/+ldcuMqE/1fMDVerPOH9uJvdI1PTNxyJ7hZz90H1jwet7Rdx0J0 +OMLy0fMA+Y4vzR3eLAzdZWhRJuUMp/MfCpnUsPDe7eKGjTEO8My26NYPITZ+ +l3//UXXQFtqpKaEfjNn4rW1T/bSYDaisXyVreZ2ND4grMzeWWoKJ1ZtRtT42 +8jVcl9wibw6O9feUbrA5ODoik5v40hhaAqRV431Jfao57ehHNYB60cZk2SoO +BnxM1HHJ04NvQjlVPy1JvcIfhm0/uNAwK8QnNEpg6y0J1P/LhUth/PIQSkH6 +HrvWb0lcEJpa1TMqLIXC3mxXu+YpaJnwPRrUx8Gfq4dvF5/XgUJ5QdGnKgSG +25ZIx3Vywbomd2iggcDPdNX8URJ/Bh4547cOUjBUgNe4qIIL8r/0nGWCCcys +HZb3meeC0lYXmXXiFKQWndWKJb/ndf/uRjaXg1KczuWKsdrgsn1B5YUQgXbd +B62/POTCGpWCnZrJBDY3ls0S/NPg94/PlMJGChrec1ky9oELOi/8Fu2qKXhE +zD2kYxcX/kqs+lKrL4WvG0UULS2moMYt+L9ATwWETMG2mNl6sNB6ISxdrYDb +Qzzf/zavAwvOmJfsUiq2LcR89S6qhkQf3pg6IyqeCTjgdGmhDAqK0qcyUqjY +oV6QFvSsGHh6epbf+0zFoFiLJuapQtj5sj+2kUlDaYcU9ZGofHAsD7Bb60PD +y3nch6/ycuDZ4p+hfypoOBWaePhg7004G1iIkQJ0dKb16fJOpMOd5epBFiZ0 +nJ7/9TUmKAXEFh4cr0+mY0l8QJekahLsHXyY7dlH4ts0PczSJR6elVrG7eIw +sEifdn/DZAwomz0b3OjJwImTzbuK10ZDYH/NBdNKBmq9ec2dfhsOC+9yByR5 +mXhwKF+h7WQY2FRKXZI0YmLvvqPzC3zBMBG9oX9HIhNbu1Mi+N38IZS6PCek +m4k/Y602yd/2gb6iE6WTDBaa/XlannfDAyIzWoNXuLMwaUdjULerM0Q+tlqd +WsHCPNnan0dbHWBitvTC+SVkPpvPrlYn7CA1XqBCag8bnzaVCku62oCc/EeV +wWQ2TgdqfL9paAk9yfsPf+xl40Aqso5amUNM57XfAzQO/jMWqMYrZQJrVjl3 +sD1JvB8suK3sZQC6CWZ/N5dyMEw+zev4hB50i26PoxsTuDnZyUnhOxeG87yC +T/cRWMtYcu/3IokHzfUWVn4U3J92szboBhcq9fKfKPNJYVxNtVd51xTs8V9o +vNTLQePKjcG3XujATWZ637QigZJxV0vV33IhzHOl3aFqAqd1O1rjSX+v4Lyi +PzKlYGXyk4CrdVwQn+7VMvUh0H+3JMNtlgsWg2+SMoUouP4vz/3tE6TfH2/b +qPWLg7bzb5Q6WrQhUvnlBTspApc/eeFlVc+FljcfzQ3vEPgmWK7IkqzP5RMd +qrQl8F2E1mMZ8v0M/czouCkCRW2mA6T/cEF1BXp4vCJQezD5VwPJh40j9xKH +wgkc3axcKUL2KxzBd6tImoLzE9tjj3zjgqndYzuJOQ7KNxtt2m2mDfY7DG4c +W0IghlbzNBRySfwd5Q+IJ/AZr+1bNTLvrveLjC3gUFDl+uLXD5+4kOqr/XtJ +OQWfzJ1RnTTiwniCHktAVwqrDZrqfh6agn7F8BpxdwX0NclyvURpgGaF+161 +FQq41SKMd6NHHRw2Oas3soSKH4Uuiu3pqQaXiKZltnuoOHiZuf49rRzWLP2n +z+kKFe1tzX6bfi2GcotNzNMfqXidOfvu7eVCaFF2N3Ol07DYXil6pigfQo8U +Jgx70rDcPHRm/kUO5Mc7PSkupaHp95xF67mbUK40u2sDPx2PlR056UG9Ad6C +yuO0vXRsipOjtdxIgay+j1EOiXQ87hC1o94yCfxXJGxR+0zHM4patzdGxMN2 +/lV7pFkMND20P9pC7iIEnCs2eOfGwJ5vO+Y79aLB+LDNYblyBjpu7l6tOR4O +N9VO2hUvMPD19KF41cQwSLBLDewxYKJUS5eAo2IwBO67MCeewESlmmDroRh/ +eNuV5ri2k+Sf15mMdw0+0Hi3dKCGxkJiODRSsdUD1P/TsbjtwkKLtidrXiY6 +w/mmPEK7jIUzSzbYG4w5QPTOikUrPnIeiv4W6bPZDhYaNdsr9Nl4lzXTH3vV +BiSu1dfeS2Tj6g0va7w9LUFelfLPgx42BgbqeJWdMIf0o/H7zilwUGmHqWLK +FhOo6l15e9KNzDNtNq+drhjAkrYrm6qLOTjlaClYt2YnvFt1/k+NAanHOTJq +GYNcCAmnq1X1EijVbfae4J2Ghyk41u9Fwavm20Vlskg+jAWUvv9LwWPtEwd0 +vkyBcLnOPNFD8mt1j5zbqA5c5wwbJrAIjDF88HLoJRdW6z+VTSkj8BZvRksx +iX+vqK81u40omGvM+Hy0gQsifzi3R9wJ1HPyvFU7zYWhmv/MevkpGKARt8Vx +kguieZSjz8c4OCRn+mN2RBtOb5XizkkSOMWh+GTUcuFwXoJYdBbpd4ETR2ZI +f/opcNB0nw2BL5ae6hUY54Kywj69lnEyn5knLXkyx4XGgd/r8poJzGUvO+tM +nmeNzS6cOU1g0iqlsBbSL1NtSo+MraHg55P5TktHyHnx1pKk9BkOGhxxXczw +0oYI6z/nFq+RelCU/qeT5KfV2+oanSECE1tj6QULXBhLts5SqCOwjuXsYUz2 +S5mMf1fqT+BAVcfteZLf6rPrrogVEJhvYlmRTO7fUol5oNxGoJNCyCwvWW/r +N7t1RtEEmgVsfKrEMw0Ja4M2nv/Lwbk3vYY0FW34rO3VpsxHYHtJZsS9Ai5M +zFR9kYgl9SKzrbia/F9CWXEfTrAoWPhP8vjuL2S/z9nu7SUUtPzjnDprwoXv +b44Y5O6QQmmtx27FR6cgQGRpzydXBUxt/uycwWkAQYlM2uVyBZRI49t+ILgO ++uxblN7yU/FAJH9iy89q2H/xnr6SARVL/3RcuKhaDgabza32JFNxSqBqquVX +MSTGdysf76Wi2oNje0tuFMLKYw+K/6XR8L+7639facwH4WJDxdceNNQ8fD8y ++0MOpHen3T9TQsNOf5LPwrfA7ELaCx4+Og6ffbuxTuMG7AvfmC9iRMe/vYYL +p4tSYMzC74rKZXL/WLH1/eNJIJwZFiTziY5bV7yKYMfHQ9Add7YAk4HnNE06 +QrdcBClG3qlsV3KelTY+wHcgGjSk858vKSPnlUM/n44uhMPksN3as38ZeNzv +ekJAZhhs2NrrXrObicL3ZxUKIRiqNTWi5uKY2JfaYeqa5g+nSgZ3jrcz8WLa +QaHHbT5Qdcfy7y0qC5tq+DUE+j0gISC01s+Zha/OdCba3nGGmJfm0pKlLKRP +SF59s+AAb90q1ZGXjeIzWd0y2+2gsL/d4dwuNhqFaCccv28Doh1lkfGX2Vjp +FHdzNMwSnv4X5Hutm423ktk3fp01h9u5MYLW8hysFei2PYEmIKprH9ftysF3 +K7UUiXwD6D+hYXCmiIPpWcof+Dk7wWR1oVKMPoGVHwYr9g1w4Zln6JoDPQQG +8djp3iDxEtdooJnvQUFfne7HR3O4sF378KbcOQo+TK+/yjMwBcNWg5Ifuzjo +Prr7Wf+8DhCKYmePMAjUGdmltrWVCzYqsvOqJQTeDeC5U07i2bD0h4jYHgp+ +OC37Res5F6LnjHvLXQl8tXbw+WdyHtqU/2lTMC8FadHr+t3JeWnMoDo45gcH +1eLEU9PntGFeFRWbVpN58+TWmcoaLtxOHh1j3CTw0HNqWjXJV7elYZHUgwTW +8Ew5j49x4dSK+zSXMQK9/T+sP0fmT/G3Rsv0Gwk0X32Sdp88n/VzrYpxCIFa +k94PqSS/B/XFtsdIUNB6psrceJT0O53cAvtpMl97sSs+ndaG1l0Wx9OuEhil +m7t4iuRjZs2atC/9ZF6QTpi0IP13W3jJ2cc1ZH1rt7wTZL/JU2VCEScIjKu+ +/Hwbye+zAxF+Bfnk/TZdgGByf1R+MPb1GwKD+U7xHSfrFX2POiIVSeDe5khG +JlnPp1ZG33ieg/pfdQU36WiDrbwQo+sygSE27OG7pF83WzvDXAWBW9dJduWQ +9SRr1JSHcwi0KBhftZ5cn55NMVzeSqCifv0zabJfDc+MfLs0Ar06Lb6v/3// +ebzPwp8SOCPmTaGS58eXvyn3KSQw52qBXB65LgrtkGhY4OD5lK5ZKkMb/gcR +kibX + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1He4j3UYBvAje+89TwMpI6tkJZQ9DpHsY0SESmVkVFpoR2TPooxCoexZ +WRmZFcqIimxRfJ6rPz7nvr/f51xn/J73ehOT+yb1SZGQkNDNl8hivhyVnzGU +Js7ZOKC3op6egd36bCpQ2zk12/VpNNNzcEgfSEM9M3v1NrIgc/QWMje/6O1k +EW7RE+WvsoOcF79X5iOZYc5NZXY6cdD5MVmIrrR2ri8z0pE9zo/KAnThY+ck +mYvO/OzcVhamol5HpmGH3lrmZ7reXObkJ30QjfQs7NPn0lLPw2E9Jbfqv8n5 +DI+/gQbuMvGj/gmVqOuclh/0GQwmFbe5OyYX8GJ8blTmIffp2KnP5AVSc7u7 +43IhL8Vnwr2kIS3pSE8GMpKJzGQhK9nITg5ykos7/MwT8nNejs+J+8hNcbOT +8gtGxP6oQh5KmP0uF/EK7bmfvJQ0OyUX82rsmKrk406z03IJr9GRauSnlNkf +8ktepxPVKcBdZn/Kr3iDztSgIHeb/SWXMpJkalKI0mZn5DJG0YUHKEwZs7Ny +OaPpSi2KUNbsb/k1b9KNBylKObNz8hveoju1KcY9ZuflCt7mceqQSHmzC3Il +79Ajno14jqhgdlGu4l16xnMQzwgVzS7J1bzHEzwczwOVzC7LNbxPL+rFXqls +dkWu5QN6Uz/2Gs+N2VW5jjE8SYPYa+zf7B+5nrH0oWHsNfZvdk1u4EP60ij2 +Gvs3uy43Mo5+NI69xv7N/pWbGM9TNIm9xv7N/pOb+YinaRp7jf2b3ZDfMoFn +aBZ7jf3Hy4zvxET60zz2GvuPdx3f65N4lqTYa+w/3kFs0SfzHC1ir7F/9ynZ +qk/heVrGXmP/7lOxTZ/KAB6JXbhLzy59FkPi/3bOyn790/g+PS9H9PayaIr/ +38flnW8CB8uWHw== + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztykEKQFAYhdFfDGzDVhiYGFmCol6pV579h4GyBp3Jra97uiXP21pFlCYi +plTO7Y5P1U+198xjP+Q9H+n5U7yD4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO +4ziO4ziO4ziO4ziO4ziO4ziO4ziO4zj+Z34BL9xpfg== + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVV3k4VV0XN0SiJNF7rinufFMpSYZXa2UoiYxFURGRecoQkeJFpQyhFKIM +RUlkligK0ShjGmQoJImLiO98f51nP3uf9Zy1z29aCkc9zY7x8fDwHOPl4fn/ +00Y3eRkPD4Hbpoiu2Ltc+HdAsrYohkATEZE4Nd5p6H97jaPJoCD/N7poYR8X +JqVXDuUWU/A8/yP+WXMu9IkFue8GKdxQKGns7TQFV8yGc2rbpVDI9/DUJdFJ +KPm5W0XGQRpX3x794xs3Ade7Ck4Y/ZXGUvWMXpEX43DYUzi0+LIM0tafpMn+ +/QHnbff1/F0ri5k3Wusm8oYhJD17RLZcFmmvqZN1akPQtW3AmLpTDsX9a+76 +qveDeIh0iPUbOZzJPvm4PPoLrF5pecjl+FocSj3YKdbWC6fmz8QfmlqLEa7h +RaFnumC/9IF/V++Sx+r91+CQy3s4dMlNQjxBHg+W5g9MTr0B4n7AGv5OeWwM +snLQtH8J2/wFJj7SFFBwRdxudb0mEB45P33XRQFbXgd8e6TeADsEL7cfK1PA +qDsxvy5G14FTwBqpCj4qlr06ssZmySPYkRwftaBPxd/fH3HNd5fDaevYlxuT +qJhDz9U043kI3i8jwPQDFZuMDOUy8gvB7MqUhCiVhvZZveO7PubDFcHvT0vc +aZhaOyF+8EcOxNHaUo0f0vDIC7WGGMot+DG4w7iNh47KHN6HTPMboM6j6Ph7 +Dx0jNhyw39GQAurPRXKXJNCRIvXwee7JJEhT8azj+UhH+YWAccX0eCgxbhb4 +SWdgxDI//3L9i1Bdm1EQ4MJADcee5xpu0cDsnN00UsLAoYYouLMiAvTSDHpN +5hlImdRiPC0Ig0YhOftMfSaOfr9qs8wiGBYVvov3xzJx+dF11nP3/IERr8Sq +e8/EqA3sXaVffaAgZ0binAILlQd/9Pz84wGjzhXrdY6zcID9I4W/xhkuvpuX +/faQhToiXh3HVh4D2ctVviweNna5qp95bWAHdjw+v612slHPOyfE/JkNLJPI +N/RLYGPyluhLJxIswfF9z6vwLjZ+eOGkohpvDg9Go8rWr+Vg4qBy0wEjE7DN +Kw2sdeFg8GYFSkeNATyV7LXf+YCDXZxfTfs0d8LbXpW5xUUOEnd5+ZXWaEOL +RLvDgZ0Ersyyzl7SzwUxm85JbieBe0d3XJPlmwa3aYtobzcK7vuh0nzzNhdc +k3XzAmcpWLE62ar82xRUb1YWFrgghSJnbJfP109Czoyo07J4BdRfeuTUqz1P +oa3GInBlrwJmPdGFkqHH0CbY9rqHQcXGzmb/rzGV8DlQLH+NJxX7/JK38omU +woyE8NLacio6df/7fplOEfQpa+UpLVLRq1PoNv+pApjc6zn6ZRcNY5c7vjy1 +6w5IJB0u5Iun4aycr4jjjyzYLiDCje+mIcFxtFnckwmXfUu77Zl07Phs0tLt +nAoV9tcF5z3oKNaVtT0l8gqMhGg95Cun49nhgzuyfS8D50nq1wBeBoZ7Znx8 +vDIO1KK3HizexcB6Huu5IzXnwduw1XNzHAPtL0hfDVOIhFIN6lK5LgZaVm35 +7mFwFgTNVeRPUpmYIfzXwEo5FByS+Ku03Zj4o/XLe6uBQEg4sDztbRETazac +cS0vOgHD0hJy2XNMlF0I+b5C2huMhLrkB3VZ+Oc75d4pLTeolrPOTrrEQt2z +ETsK9J1g35YPjVHdLDQxkBazlbSHx03JW5DGxpKqmZ9tF47A1vOi8k5ubKRX +M2M1RQ5C+QmdS/MlbOwtZZksntwHy7880LGaZ6NIbJa4xgdTiN6z9ipXl4MO +ueMjd6OMQPzzbg/+Sxw8HPWfostRfWiejVa61clB4XpREdcVupC4XrVsPY1A +3YjX6qdecCFHPqC7rYjA8YlWjxKBaWAPTFu161NQ8q6muHgTFzZ13dGPa6fg +pyzcq6nABWOFdk3WMSksiFD9NUxMQecvQ6WeEAXcacRo1dCqh/N9vrkazQqo +F/vgaHZFLciBn5+BBBVLXPdGfK6rgrilpinCNlTsFjq8z51WBv+Wt7hM55D6 +o22bXSNTDHk8X07U/qDilq2e29O/3AeabxHPjAoNQy41uU6cz4P2VpqGzWka +ZpqKGqYPZYNTomeT13Ma6j08tCi34SbghnmJ1NV0jNd5Ohn2Pg1mN9uXBhyi +o9rllB6PG1ch4WbWPf5sOgZqOizf7ZUI9nP/mVX/pCM1+66m3ds44I4sKpmq +MtBaZdshlfkLkCy4LdYihIFX3lXcy4Mo8FgmmhrxnIFiE0JfPzHDgRn4eMFh +JRO9oy3EOx+dhjWvxFb6HGSi2yGnWl/JIGh89MfSOpOJ85VvcuLy/CC6PZNa +/I2JDkbP+ipnvSG049u1bVtYmHlN01sq0R0sdIWd3YJJ/YmbmfQLPg7e4W6/ +y56zcJ1e4lX2cgfw2HjnXfEqNtr+u1J2MNwW9ujVLrM9wMZP67tPittag61u +wA+1LDZqbcgvmD+9H9R7ni0bG2Zj1ucWz+oHZiCT+i53lTIHvzwcR9+lxqCu +F/bb7hQHX/bVdGSf2w3PlhY3TdZz0IN/g5qSrB4s+esnHulMYMmDw8p/prgQ +dEV9JWWRwJf0Q1HuXC4ULisqWx5HQdeu3o3nz5B4Mv8kYicjhaHL0k8V5U3B +y5HDSaajHOTxElA3EdGBQDVH2+RVBF45vHfzq2ou/Dq7s/XpDQJdD8U2By6Z +BkGb3XVC2yjovvGKzaN2LiQEffhHpoGCma+41fs1uUBQbluomUmhRnpJ3hec +Au8x19W6JxSwXtrCV7yyHhxP8MPrWgUMuFAhNL62DrR7Gp6fEaGiRtSLhWN2 +1fBtr3dchBkV9bWJ8tyHZfBxWYHM6nQq+le5jOtdLIZLQ8rdQgNUnGnke7LZ +qBA0BNqEwxVpWNnQ4piknA+qLoKL0f40dEmavs3vnAPzPQpbPj+iYVOjpuvX +zJuwRnitspowHWPvbFknmJAOFMquSyUWdPyV26d6f1MKDKpYrYu4Tkf+HYXS +lr8Tgefqn3MfB0k9C9QrldoWD+2yA1IZGxhoslPxU1JGDNz5OiI36MvA9n0O +96XaoqB5PHywrIaBerIZY7+uhkOpsMBYtwATGx+vyI7RC4Ofrv9UnDNl4tYq +R/f+oiDo/+ldcuMqE/1fMDVerPOH9uJvdI1PTNxyJ7hZz90H1jwet7Rdx0J0 +OMLy0fMA+Y4vzR3eLAzdZWhRJuUMp/MfCpnUsPDe7eKGjTEO8My26NYPITZ+ +l3//UXXQFtqpKaEfjNn4rW1T/bSYDaisXyVreZ2ND4grMzeWWoKJ1ZtRtT42 +8jVcl9wibw6O9feUbrA5ODoik5v40hhaAqRV431Jfao57ehHNYB60cZk2SoO +BnxM1HHJ04NvQjlVPy1JvcIfhm0/uNAwK8QnNEpg6y0J1P/LhUth/PIQSkH6 +HrvWb0lcEJpa1TMqLIXC3mxXu+YpaJnwPRrUx8Gfq4dvF5/XgUJ5QdGnKgSG +25ZIx3Vywbomd2iggcDPdNX8URJ/Bh4547cOUjBUgNe4qIIL8r/0nGWCCcys +HZb3meeC0lYXmXXiFKQWndWKJb/ndf/uRjaXg1KczuWKsdrgsn1B5YUQgXbd +B62/POTCGpWCnZrJBDY3ls0S/NPg94/PlMJGChrec1ky9oELOi/8Fu2qKXhE +zD2kYxcX/kqs+lKrL4WvG0UULS2moMYt+L9ATwWETMG2mNl6sNB6ISxdrYDb +Qzzf/zavAwvOmJfsUiq2LcR89S6qhkQf3pg6IyqeCTjgdGmhDAqK0qcyUqjY +oV6QFvSsGHh6epbf+0zFoFiLJuapQtj5sj+2kUlDaYcU9ZGofHAsD7Bb60PD +y3nch6/ycuDZ4p+hfypoOBWaePhg7004G1iIkQJ0dKb16fJOpMOd5epBFiZ0 +nJ7/9TUmKAXEFh4cr0+mY0l8QJekahLsHXyY7dlH4ts0PczSJR6elVrG7eIw +sEifdn/DZAwomz0b3OjJwImTzbuK10ZDYH/NBdNKBmq9ec2dfhsOC+9yByR5 +mXhwKF+h7WQY2FRKXZI0YmLvvqPzC3zBMBG9oX9HIhNbu1Mi+N38IZS6PCek +m4k/Y602yd/2gb6iE6WTDBaa/XlannfDAyIzWoNXuLMwaUdjULerM0Q+tlqd +WsHCPNnan0dbHWBitvTC+SVkPpvPrlYn7CA1XqBCag8bnzaVCku62oCc/EeV +wWQ2TgdqfL9paAk9yfsPf+xl40Aqso5amUNM57XfAzQO/jMWqMYrZQJrVjl3 +sD1JvB8suK3sZQC6CWZ/N5dyMEw+zev4hB50i26PoxsTuDnZyUnhOxeG87yC +T/cRWMtYcu/3IokHzfUWVn4U3J92szboBhcq9fKfKPNJYVxNtVd51xTs8V9o +vNTLQePKjcG3XujATWZ637QigZJxV0vV33IhzHOl3aFqAqd1O1rjSX+v4Lyi +PzKlYGXyk4CrdVwQn+7VMvUh0H+3JMNtlgsWg2+SMoUouP4vz/3tE6TfH2/b +qPWLg7bzb5Q6WrQhUvnlBTspApc/eeFlVc+FljcfzQ3vEPgmWK7IkqzP5RMd +qrQl8F2E1mMZ8v0M/czouCkCRW2mA6T/cEF1BXp4vCJQezD5VwPJh40j9xKH +wgkc3axcKUL2KxzBd6tImoLzE9tjj3zjgqndYzuJOQ7KNxtt2m2mDfY7DG4c +W0IghlbzNBRySfwd5Q+IJ/AZr+1bNTLvrveLjC3gUFDl+uLXD5+4kOqr/XtJ +OQWfzJ1RnTTiwniCHktAVwqrDZrqfh6agn7F8BpxdwX0NclyvURpgGaF+161 +FQq41SKMd6NHHRw2Oas3soSKH4Uuiu3pqQaXiKZltnuoOHiZuf49rRzWLP2n +z+kKFe1tzX6bfi2GcotNzNMfqXidOfvu7eVCaFF2N3Ol07DYXil6pigfQo8U +Jgx70rDcPHRm/kUO5Mc7PSkupaHp95xF67mbUK40u2sDPx2PlR056UG9Ad6C +yuO0vXRsipOjtdxIgay+j1EOiXQ87hC1o94yCfxXJGxR+0zHM4patzdGxMN2 +/lV7pFkMND20P9pC7iIEnCs2eOfGwJ5vO+Y79aLB+LDNYblyBjpu7l6tOR4O +N9VO2hUvMPD19KF41cQwSLBLDewxYKJUS5eAo2IwBO67MCeewESlmmDroRh/ +eNuV5ri2k+Sf15mMdw0+0Hi3dKCGxkJiODRSsdUD1P/TsbjtwkKLtidrXiY6 +w/mmPEK7jIUzSzbYG4w5QPTOikUrPnIeiv4W6bPZDhYaNdsr9Nl4lzXTH3vV +BiSu1dfeS2Tj6g0va7w9LUFelfLPgx42BgbqeJWdMIf0o/H7zilwUGmHqWLK +FhOo6l15e9KNzDNtNq+drhjAkrYrm6qLOTjlaClYt2YnvFt1/k+NAanHOTJq +GYNcCAmnq1X1EijVbfae4J2Ghyk41u9Fwavm20Vlskg+jAWUvv9LwWPtEwd0 +vkyBcLnOPNFD8mt1j5zbqA5c5wwbJrAIjDF88HLoJRdW6z+VTSkj8BZvRksx +iX+vqK81u40omGvM+Hy0gQsifzi3R9wJ1HPyvFU7zYWhmv/MevkpGKARt8Vx +kguieZSjz8c4OCRn+mN2RBtOb5XizkkSOMWh+GTUcuFwXoJYdBbpd4ETR2ZI +f/opcNB0nw2BL5ae6hUY54Kywj69lnEyn5knLXkyx4XGgd/r8poJzGUvO+tM +nmeNzS6cOU1g0iqlsBbSL1NtSo+MraHg55P5TktHyHnx1pKk9BkOGhxxXczw +0oYI6z/nFq+RelCU/qeT5KfV2+oanSECE1tj6QULXBhLts5SqCOwjuXsYUz2 +S5mMf1fqT+BAVcfteZLf6rPrrogVEJhvYlmRTO7fUol5oNxGoJNCyCwvWW/r +N7t1RtEEmgVsfKrEMw0Ja4M2nv/Lwbk3vYY0FW34rO3VpsxHYHtJZsS9Ai5M +zFR9kYgl9SKzrbia/F9CWXEfTrAoWPhP8vjuL2S/z9nu7SUUtPzjnDprwoXv +b44Y5O6QQmmtx27FR6cgQGRpzydXBUxt/uycwWkAQYlM2uVyBZRI49t+ILgO ++uxblN7yU/FAJH9iy89q2H/xnr6SARVL/3RcuKhaDgabza32JFNxSqBqquVX +MSTGdysf76Wi2oNje0tuFMLKYw+K/6XR8L+7639facwH4WJDxdceNNQ8fD8y ++0MOpHen3T9TQsNOf5LPwrfA7ELaCx4+Og6ffbuxTuMG7AvfmC9iRMe/vYYL +p4tSYMzC74rKZXL/WLH1/eNJIJwZFiTziY5bV7yKYMfHQ9Add7YAk4HnNE06 +QrdcBClG3qlsV3KelTY+wHcgGjSk858vKSPnlUM/n44uhMPksN3as38ZeNzv +ekJAZhhs2NrrXrObicL3ZxUKIRiqNTWi5uKY2JfaYeqa5g+nSgZ3jrcz8WLa +QaHHbT5Qdcfy7y0qC5tq+DUE+j0gISC01s+Zha/OdCba3nGGmJfm0pKlLKRP +SF59s+AAb90q1ZGXjeIzWd0y2+2gsL/d4dwuNhqFaCccv28Doh1lkfGX2Vjp +FHdzNMwSnv4X5Hutm423ktk3fp01h9u5MYLW8hysFei2PYEmIKprH9ftysF3 +K7UUiXwD6D+hYXCmiIPpWcof+Dk7wWR1oVKMPoGVHwYr9g1w4Zln6JoDPQQG +8djp3iDxEtdooJnvQUFfne7HR3O4sF378KbcOQo+TK+/yjMwBcNWg5Ifuzjo +Prr7Wf+8DhCKYmePMAjUGdmltrWVCzYqsvOqJQTeDeC5U07i2bD0h4jYHgp+ +OC37Res5F6LnjHvLXQl8tXbw+WdyHtqU/2lTMC8FadHr+t3JeWnMoDo45gcH +1eLEU9PntGFeFRWbVpN58+TWmcoaLtxOHh1j3CTw0HNqWjXJV7elYZHUgwTW +8Ew5j49x4dSK+zSXMQK9/T+sP0fmT/G3Rsv0Gwk0X32Sdp88n/VzrYpxCIFa +k94PqSS/B/XFtsdIUNB6psrceJT0O53cAvtpMl97sSs+ndaG1l0Wx9OuEhil +m7t4iuRjZs2atC/9ZF6QTpi0IP13W3jJ2cc1ZH1rt7wTZL/JU2VCEScIjKu+ +/Hwbye+zAxF+Bfnk/TZdgGByf1R+MPb1GwKD+U7xHSfrFX2POiIVSeDe5khG +JlnPp1ZG33ieg/pfdQU36WiDrbwQo+sygSE27OG7pF83WzvDXAWBW9dJduWQ +9SRr1JSHcwi0KBhftZ5cn55NMVzeSqCifv0zabJfDc+MfLs0Ar06Lb6v/3// +ebzPwp8SOCPmTaGS58eXvyn3KSQw52qBXB65LgrtkGhY4OD5lK5ZKkMb/gcR +kibX + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1He4j3UYBvAje+89TwMpI6tkJZQ9DpHsY0SESmVkVFpoR2TPooxCoexZ +WRmZFcqIimxRfJ6rPz7nvr/f51xn/J73ehOT+yb1SZGQkNDNl8hivhyVnzGU +Js7ZOKC3op6egd36bCpQ2zk12/VpNNNzcEgfSEM9M3v1NrIgc/QWMje/6O1k +EW7RE+WvsoOcF79X5iOZYc5NZXY6cdD5MVmIrrR2ri8z0pE9zo/KAnThY+ck +mYvO/OzcVhamol5HpmGH3lrmZ7reXObkJ30QjfQs7NPn0lLPw2E9Jbfqv8n5 +DI+/gQbuMvGj/gmVqOuclh/0GQwmFbe5OyYX8GJ8blTmIffp2KnP5AVSc7u7 +43IhL8Vnwr2kIS3pSE8GMpKJzGQhK9nITg5ykos7/MwT8nNejs+J+8hNcbOT +8gtGxP6oQh5KmP0uF/EK7bmfvJQ0OyUX82rsmKrk406z03IJr9GRauSnlNkf +8ktepxPVKcBdZn/Kr3iDztSgIHeb/SWXMpJkalKI0mZn5DJG0YUHKEwZs7Ny +OaPpSi2KUNbsb/k1b9KNBylKObNz8hveoju1KcY9ZuflCt7mceqQSHmzC3Il +79Ajno14jqhgdlGu4l16xnMQzwgVzS7J1bzHEzwczwOVzC7LNbxPL+rFXqls +dkWu5QN6Uz/2Gs+N2VW5jjE8SYPYa+zf7B+5nrH0oWHsNfZvdk1u4EP60ij2 +Gvs3uy43Mo5+NI69xv7N/pWbGM9TNIm9xv7N/pOb+YinaRp7jf2b3ZDfMoFn +aBZ7jf3Hy4zvxET60zz2GvuPdx3f65N4lqTYa+w/3kFs0SfzHC1ir7F/9ynZ +qk/heVrGXmP/7lOxTZ/KAB6JXbhLzy59FkPi/3bOyn790/g+PS9H9PayaIr/ +38flnW8CB8uWHw== + "], 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]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 13}, {0., 1.4388968087800817`}}, + "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:eJwV1nk0Vl0XAHBDJEoSvfch4pmfVEqS4dXeGUoiY1FURGSeMkSkeFEpQyiF +KENREplKoihEo4xpkKEkSVxEfPf7667fWvecu/fZe591FQ95mR8W4OPjO8zP +x/f/p61eyiI+PgI3TxCdcbdI+KTj3aoiQGBbaVbk7UISHLYaXj28gEAMq+Kr +LyLBdcuc6nMRAu279tl8vkdCkLqTXcoyAi8e2LXhZRUJs2qo1LicwE/HNk3d +rybhxCYZckaawAkezTezhoQolRdn7WUIXPz4ubd1HQlJa9TK1zAI1It8pXH8 +OQmEksSpgywCdb9vV9/UQsIV3pBRIofAWKO7LwZfkHCNndE7qUSgdPylMo03 +JBQpCIs/USUwwq5UNr6DhGapNse92whcmm2Ts6CPBNPlRcqxBgTefz9Qubuf +hLfLzvypNqTiz12pnjlAQpf4lnimCYEbUpydFb+R8FUk98FPKyoe/GHU+oME +94XhUfR9BFbzTbiMjpDwU2if2W5bAp8vPN4jNEoCKSA+eN+OwLeR2o9WjpGw +4K+/ZJQLgaV3D6j8mSAhZsakp8KNwJerBp59IkkQ+8O78d2DQH1nr+s1kyRI +TvZom/kSGLBDmuU+TULKRLlI5FEC46suPNv8hwTaeMLbsgAC+x+035ilrPBL +32VlCIFZNUMKvrMkZP9cpWoSSqD2uM89+l8SOCPTcydPEJi8TDm8mfK677eT +BiMIHN6gcl9snoTib9EHZaII3NUUxcqivOmr/WrjGALNA9c9UeabhH/7pWuK +Ywk0FROLV+efhLGpB5+l4gjUyWotqaJ8c/EhwcAEAp/y271RF5gEOwURVucF +AkNtuUO3KK9QLdymlUJgU0P5NCE4CS3bLY+kXyIwWi9v/jjlSJs/p+cvU/kW +Z/zpoKzplVlgn06gd4fltzULJuHXqW0tT64S6LY/rimI8o2U4RHWNQL3P6On +V1E+kJ8oEZNNYEvQ2MEpytLV6ipDuQRaFo4uWyM0Cc2vP1gY3STwdYh8sRXl +U/2R/oUFBAY3noUQyhrTqy9KFBJYYGpVmUJ5dPHrCt8iAnMvFcrnU85VCOxq +LSZwdKzFs5SyrarcrFopgbcC+W5WUF5u8EQutZzA6/yZzSWUm2xcYKaSwE2r +pTtzKYd7LbXfX0XgpF57SwLlzRGlpx5VE2hh455/lPJIik22Yi2BtRwXTxPK +2fn8TyOeEDgl4UOjU7apzhvsr6fmh6lWMEzlJ/nGeJFBA7V++THGHcoN/b9X +5zcRmMdddMqF8onpVKPFLQQqGdQ9laWstgQ9PV9S9RpI+VVPne+wwkDcq9cE +hggcFzhC+bpq7F2VVgKdFUOn+SlL2HaMkx1UPwxvvSxH1e+pV9iKvd3UefHZ +612l6h0awVR/0EOgTJf5O4LyUL53yIleAmtYC27/pvonq3pF+uc+ah5lE8ct +KVu/qarWHSQwqSWOWThHQv20iIDIMFWv61JoQPXj8SV3GK4jBPoEvF9zmupf +FcXd+s2j1LxYJC94PENCpkFWTPwEgeK2k4GyVL8HX9RYSpsn8AVzf7QHNT/r +Cz6uD+GnISNmdZ8HNV+D1f+Z9wjSMFAzfqPTOAmWA6+Ts0RouOYv350t1Dwq +b3JduVqShvTiU9px1DwPGEhsiZWioc3UAwuTYRLSbMsOjqygUfdVgfPC7ySI +RgpcL5al4ezYlriDX0noe3OZp8WioeBXpnhRLwki2fHvj3JoWPRPyuiOzySs +8Y+KK+TRUPXK/Jf3H0nw/8d3QnEdDY1uuy4YeU+CsO2OWpHNNPRYd9H2YRsJ +3P5J6zYDGkrf0pKUbCTBqOyHmMROGr4/IfdZ+xkJ3tFfqncY0zDPhPXpUD0J +lbyXzIdmNLyf8jjwUi0Jhp65o9f30TBMiN+kuJK6nyYtY3zcabj7h2rTtRsk +xDcYahV40tBPt+vRoVwS7qXiSJ83DS9ZbBFfmU3CX601ltb+NNyTfq0m+CoJ +58MFFSCMhsyd9i1fk6n7dFFx+eJ4Grp19qw7c5KEcdmlg3klNDwj+FBw2oKE +hmdcj7ZSGlr9cUmbNqXOz0/n94IKGj6eOak2bkyC7nP/efsqGh6U8Aht305C +YvD7f1bW0zDrJVm1R4uqX+dNg/g2Gn7Mxl1aiiS4pejlB03TsHJ5inXF1wnY +onNgfd4MDe9l1F3i658AyZHAsnd/aXi4bWyv7ucJuK9f8FhFQAbjq6u8Kzon +QGRiWfewqAyK+nDd7JsmINfio5j9ShkMW5RxvDh/Anolgj12gAyuLZI28XGe +gG+vDxrmbZVBWe1H7iWHJmA0UZ8jpCeDVYaNtT/3T8BfqWWfawxk8FWDmJKV +5QQQtBuW6uYyqJlRmv8ZJ8BEsU2Lc1gGCyPVfg0RE1C1QUVU6KwMip20Wzxb +Nw4XzYdya9pkUMTvwMR58XEo/blDdaWjLC6/MfzHL34MrnQWHjX+K4tlGpk9 +Ys9H4YCXaFjJhZXIWHOMIff3B5yx2939d5UcZl1tqR3LH4LQjJzvchVyyHhF +H69VH4TOzf0m9G3yKBlQfctPow8kQ2VDbV7L41TOsUcVMZ9h+VKr/a5HVuFg +2r4OidYeOD57MmH/xCqMdIsoDjvZCXtk9/67fLsCVu25DPtd38H+8+5SkokK +uK+soH984jUQdwJXCHYoYEOwtaOWwwvYHCA09oGhiMJL4ndo6DeC6Pczk7dc +FbH5VeDXhxr1ECi2sPujmyKmNX1yyeTVQ59SRLWkhyL6mWa7nafVQ7V7yH9B +XooIWcKtsdN14DPitlzvqCLWyVr6Sd6vg45fRsrdoYq4zZjVoqldB7lT4s6L +EhTRYOHB4y93PoGtwhfaDpcrYvTN2F/nYmpBWCqLcaFCEaXSBbbsDamFJsU7 +3jWVirjJMpx/nWctWGo/F5WtUsQtoV7vflvUgtNRQXhVo4iBZytFRlfVwple +vzzNJkXUj7t7KKeyBlqrLYOW9ihi9mM9KB18BM6BK2QqBehY/vLgCtsFD6HX +oVn5jSAd90YJJjX/rIIDpqf0vy+g4weRcxI7u6vAkjfiLbeQjq1zsV98iqtA +p7v+2UkxOmpGP587bF8F8uDvbyhFx1K3XZGfah9Aq3Drq24WHRs6mgK+xN6H +rSkJ0XMGdPz97SFpsaMC9py7baBsSMeyP+1nz6lVgGtk4yK7nXQcuMBe845R +AUm+/LG1xnQ8GbjX+fxcOXzd5RMfaU5HAx2iIu9eOcQvNEsVtaVjl8iB3R6M +cvgUJFGwwouOvf4pmwTEyuCETdyLdcl0zGXmaZnz3QPDDRbWO1PoOCH0YKL5 +VwmsWPhPr/NFOjrYmf82+1IChcUZE5mpdGzXKEwPfloCHxYVrlyeQceAB66j ++udK4N+KZtfJXCp+Hbuc6pUlMCUlurCmgo7OXf++W6RbDD4vIsHsPR0bjY3k +MwuKICmhS+VIDx3V7x7eVXq1CCos17NPfKDjFfb02zcXioCvu3vx7U90DI6z +bGQfL4LzgypdIv10nGoQeLzBuAjy+T4frflBx42bvLZkfL4DvSra+crzdOr/ +QeSG4PFCML84ISVOZ6BDds/o9g8FsPTw3ZJ/GQz879aa3xcbCqBZxcPcjcnA +EgflmKniAtj2oi+ugc1AWcdUje/RBaAp1CoaocTA+/XNTskqBcDwK+abUmVg +6PlGt7Ez+TC+y2v483YGxi12enF8+024KPztSakHA9NqxiT3/cgF0RIjpVee +DNQ6cCcq530uhB0sShzyYmCFRdjU7PNccKoItF/ly8AL+eS9l/m5oOYqPB8T +wEDX5Mkbgi650NbC0LQ9wcAsM3GjjMEckEo+UCSQwMBpeT8xpx/ZEM9oTTO5 +x8CDz9XrY2nXIaMr/c7JUgZ2BBw85il6HQoSnB+XlDHQ7FvuvM3MNXg6/2fw +n0oGToQlHdjXcw1muxU3fnrIwMYGLbcvWdfAOcmr0fsZA/Xv7Z+XX3sNtgiJ +kQldDCR4TrbzO7Pgx8BWk1Y+Jqrw+O+xLa6C+dn053wCTBw69WZdreZVqFCe +3r5WkImHy6nv06/CqaAijBJiogujV49/LANWiK5SURdlYtzNjauFEzMA185K +pS1nYoLuk/Hwd+lwwa+sy4HNxPZPps1dLmmgwafk9HsnEyPX7nXYWp8KuyPW +FYgZM/Fvj9HcieJU8BFWGWXsYmJjvDyj+Woq9T+qEWxpysTJ2V9fYoNTgUbb +fr7Ukom/8nrV7qxPhekNDmWB+5mofiG12/PqJah0uCI868lEic7sLalRF0Hj +mVjegkQm0mTuPcs7lgwjlv4XVS9Q+R0usblzJBmyez9EOyYx8Yhj9NY6q2SQ +mLt7pC6FiaUJgZ3SaskwoGq9OvIKEwW3Fsla/U6CxGvZtwVzmBik5bh4h3cS +fA/VvidQwcRTQ/u25vhdgHRVr1q+D0xUmAscVcpIANGs8OCVH5m4acnLSG5C +AgQsSdyo/omJJ5W0b6yLTIBdA/dyvHqpeM0ywq1cE4Dv0p/THwYoB+mXyWxO +AIeZ/8yrfjKRnnNLy/5NPPAep30J5GdhhFfmh0dL46HUpEnoJ5OFkYv8AyoM +zkHwTQ+uEJuFp7VM28M2noMtgst2ynJYaLZ/T4yl/Dl4WmYVv53HwmIDxp21 +47HQJtcvk7mWhabblD4mZ8YC+X1e2UyNhTaqm/erzp4F9ZhN+0q2s7COz2bm +YPUZqKrJLAx0ZaGmU/czTfcYkGHlH89xY6GDrMlegb0xEHi6xPCtOwu7v26d +7dCPARXzpwPrvFg4dqxpe8mqGLj55bv8gB8L23Y73pFpjYYU4c1xlqEsvPi2 +8nY+RIOPUYvXhnhqv7Oyl8IVo4DdMb3+eykLB+uj4eaSSNCULXi2oJx6f//P +J8NzEWBywPaAfAULnTZ0LdcajYCgvuqzZvdZqP36FTn5JgKaRiMGyqtZqC+X +OfLrUgR4LhJPi3zGQokxkS8f2RFQpklfKN/JQqsHG795Gp4C/XTDHtNZFtLG +tVlPCsNhfMh+1am/LDzifyUxMCscrqkfsy+ZY+Gryf0JaknhMPc2r1+an437 +BgsUW4+FQ5mo0EiXEBsbHi3JidUPB3bQoznHpWz0ibGU7Hh4AoQtVBWO0dmY +KfrX0FolDBpE5B2yDNg4/O2S7SLLEFi7qcejegcbRe9MKxZBCCTapwV1G7JR +prlTyEkpBGzvy5yXNmZjz+5Ds3MCIfDT7Z/K02Zs3PTAyaOvOBhWvJRY6ruP +je77nWv8pIPBMVnwgY47G3+0fH5n3R8E84rfJPvi2Lj40GqbmdsBUKWlGT0T +z8betHYzt/QACNp9dkYykY3K1SE2g7EBMBaztm9rEhtbulIjBd0DoO+nT+nV +S2wMeM7WfL46ABoe/rGyyWLj7P3XufH5/pC4d3H6m2I2Vq896VZRfBRYCcqc +2ndsjF7L3V72xReOlw5sG21j47n0fSKPWn3hTWe606oOKh/vk5lv630hjL44 +N7SLjT/jrNcr3PCFtpKvTM2PbNx4M6RJ38MXYtqy6CVf2eho/LT3/rQPDMlK +yefMsFFuLvTbElkfKMydkjqtyEGVgR/dP/94woObVn+v0znYWC2oKdTnCQ23 +yvqrGRwkhsKilFo8obf4aNk4i4Pmf55U5F/1hBWPRq3sVnMQHQ9yfPU9Iaz9 +6+XNGzmYdVnLRybJA4xFOhUG9Dj45xvt9nFtdxh2qVyje4SD/dwfqYLVLpAY +GFbj78LBlyc7kuxuuoDGf7qWN1w5aNn6eMWLJBeIymwJWeLBweStDcFdbi6g +0P65qd2Hg2HbjSzLZVzAUk/UxT2Eij9+atw/5AhUydvkJJ/noN6pyK2FBs5w +7u2s3Nd7HNQV824/vPQwxL6wkJUu4yBzTPrS6zlHONOYT+iUc3BqwVoHwxFH +iHpkvTytkoP5cjU/D7U4womCeyKm1Ry8faOkfl2sI/hEuP8uf8bB1fpJl7iL +HWH3xvcN0V0cNDWUlbCTdgC5Cw/8OHxc7HTTOPnK0B7euN/XQH4uSk5ld63c +Yg8x2yrnrQW4mBLzNcp3gz2MTZedPbOAi+9nc6o0CHt4ald8/YcIF78pvPug +NmAHnutuvi1ZxkW7f5fKDUTYwaPGlI3I4GLpg6mfrWcPgj2f72/rbVzU98kN +tXhqC0V9bY6nt3PROFQn8cgdW5hr0GqrNODiLc5UX9wlW0hLEKqU2cnFJ41l +otJuttBGTw17b8LFr63r6yYlbGGnfs0iu71c/Lim65iknQ1sOiOu4OzORWYV +O05LbB8skiow8k+k4t8Yc/5oohWIt5dHJVzg4n3n+GvD4VYgdbmu5nYSF5ev +fVHt42UF8gofVAdSuDgZpPntmpEVqK5ZJmd1hYt3iYtTVxdagZ1e4A/1bC5q +ry0onD2xByqO6p6fLeViTxnHdP7YbnB61/0yopM6n+fOqmoJFvDkv2C/y11c +vJ7CvfrrlAUoqNH+udvNxaAgXe/yoxbQnbLnwIceLvanIeeQtQWYWr8eVu/l +okD9FemNChag0f100cgQF7M/NXtV3TWHxZ/v6lrPclEsLltS870Z3B2OLl+z +iodJAyqNe41N4UZerLCNAg9rhLrsjqIpZBxK2H1akYfKW82UUjeaQmzH5d/9 +DB7+MxKkzi9jCk51t5Wvcnk4/H1lXtILE1iZ9jZvmQoPP98bRb+FJhCzc9Ul +Uo+Hjnmj329FG4NdfllQjSsPQzYo0tqrDUFczyG+y42Hb5dqKxEFhvCgZ+mN +cXdqfavtK+eLhrBimUs714vaf1/hDRVvQ2gOlFVL8OOhaPUJJ3+6IWjoh/+2 +P87DF73V7Tmnd4Dkpx2egud5eCD6PyXXQwbwRLrHYdtdHnbyfjXu1toGfUc1 +DU8W8zAjW+W9IG8bLGi9uL6qhIcTTlbCtSu2gV6i+d8NZTwMV0j3PjKmD3Xi +DSlyD3gY+CFJ1zVfH54uLGkcr+Ohp+BadWU5fWiajlG+3kHFUycu5rZED4as +B6Q/dPLQY3jH075ZXRCt0J0lunlosrxb3n1YF3YGzDWc76F8f13I9ee60Dzm +dyi4l4c/lw/dKDmjCy++H0g2G+Yhn7eQhqmYLowYVoXE/uCherxkWsaMDojn +0w49G+HhoLzZj+nvOmBypHWd9i8e2s2+Vm5v1oFXfTsauCQPZXgdi5XidGBU +N6/QYZKKz5tb+fGEDkhcX5CcMcVDw4Nu85neOmBm/8heaoaHCk3G63eY64Bv +zUoDk1keGnzRE16vqwOJq4LXnfnLw5nXPUYMVR0oDmuXqp/j4ZnUzmk6Swfe +9KjOzM/zkLjFL6i8Qgf+B9fNJtc= + "]]}, "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.4388968087800817`}}, + "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:eJwV1nk0Vl0XAHBDJEoSvfch4pmfVEqS4dXeGUoiY1FURGSeMkSkeFEpQyiF +KENREplKoihEo4xpkKEkSVxEfPf7667fWvecu/fZe591FQ95mR8W4OPjO8zP +x/f/p61eyiI+PgI3TxCdcbdI+KTj3aoiQGBbaVbk7UISHLYaXj28gEAMq+Kr +LyLBdcuc6nMRAu279tl8vkdCkLqTXcoyAi8e2LXhZRUJs2qo1LicwE/HNk3d +rybhxCYZckaawAkezTezhoQolRdn7WUIXPz4ubd1HQlJa9TK1zAI1It8pXH8 +OQmEksSpgywCdb9vV9/UQsIV3pBRIofAWKO7LwZfkHCNndE7qUSgdPylMo03 +JBQpCIs/USUwwq5UNr6DhGapNse92whcmm2Ts6CPBNPlRcqxBgTefz9Qubuf +hLfLzvypNqTiz12pnjlAQpf4lnimCYEbUpydFb+R8FUk98FPKyoe/GHU+oME +94XhUfR9BFbzTbiMjpDwU2if2W5bAp8vPN4jNEoCKSA+eN+OwLeR2o9WjpGw +4K+/ZJQLgaV3D6j8mSAhZsakp8KNwJerBp59IkkQ+8O78d2DQH1nr+s1kyRI +TvZom/kSGLBDmuU+TULKRLlI5FEC46suPNv8hwTaeMLbsgAC+x+035ilrPBL +32VlCIFZNUMKvrMkZP9cpWoSSqD2uM89+l8SOCPTcydPEJi8TDm8mfK677eT +BiMIHN6gcl9snoTib9EHZaII3NUUxcqivOmr/WrjGALNA9c9UeabhH/7pWuK +Ywk0FROLV+efhLGpB5+l4gjUyWotqaJ8c/EhwcAEAp/y271RF5gEOwURVucF +AkNtuUO3KK9QLdymlUJgU0P5NCE4CS3bLY+kXyIwWi9v/jjlSJs/p+cvU/kW +Z/zpoKzplVlgn06gd4fltzULJuHXqW0tT64S6LY/rimI8o2U4RHWNQL3P6On +V1E+kJ8oEZNNYEvQ2MEpytLV6ipDuQRaFo4uWyM0Cc2vP1gY3STwdYh8sRXl +U/2R/oUFBAY3noUQyhrTqy9KFBJYYGpVmUJ5dPHrCt8iAnMvFcrnU85VCOxq +LSZwdKzFs5SyrarcrFopgbcC+W5WUF5u8EQutZzA6/yZzSWUm2xcYKaSwE2r +pTtzKYd7LbXfX0XgpF57SwLlzRGlpx5VE2hh455/lPJIik22Yi2BtRwXTxPK +2fn8TyOeEDgl4UOjU7apzhvsr6fmh6lWMEzlJ/nGeJFBA7V++THGHcoN/b9X +5zcRmMdddMqF8onpVKPFLQQqGdQ9laWstgQ9PV9S9RpI+VVPne+wwkDcq9cE +hggcFzhC+bpq7F2VVgKdFUOn+SlL2HaMkx1UPwxvvSxH1e+pV9iKvd3UefHZ +612l6h0awVR/0EOgTJf5O4LyUL53yIleAmtYC27/pvonq3pF+uc+ah5lE8ct +KVu/qarWHSQwqSWOWThHQv20iIDIMFWv61JoQPXj8SV3GK4jBPoEvF9zmupf +FcXd+s2j1LxYJC94PENCpkFWTPwEgeK2k4GyVL8HX9RYSpsn8AVzf7QHNT/r +Cz6uD+GnISNmdZ8HNV+D1f+Z9wjSMFAzfqPTOAmWA6+Ts0RouOYv350t1Dwq +b3JduVqShvTiU9px1DwPGEhsiZWioc3UAwuTYRLSbMsOjqygUfdVgfPC7ySI +RgpcL5al4ezYlriDX0noe3OZp8WioeBXpnhRLwki2fHvj3JoWPRPyuiOzySs +8Y+KK+TRUPXK/Jf3H0nw/8d3QnEdDY1uuy4YeU+CsO2OWpHNNPRYd9H2YRsJ +3P5J6zYDGkrf0pKUbCTBqOyHmMROGr4/IfdZ+xkJ3tFfqncY0zDPhPXpUD0J +lbyXzIdmNLyf8jjwUi0Jhp65o9f30TBMiN+kuJK6nyYtY3zcabj7h2rTtRsk +xDcYahV40tBPt+vRoVwS7qXiSJ83DS9ZbBFfmU3CX601ltb+NNyTfq0m+CoJ +58MFFSCMhsyd9i1fk6n7dFFx+eJ4Grp19qw7c5KEcdmlg3klNDwj+FBw2oKE +hmdcj7ZSGlr9cUmbNqXOz0/n94IKGj6eOak2bkyC7nP/efsqGh6U8Aht305C +YvD7f1bW0zDrJVm1R4uqX+dNg/g2Gn7Mxl1aiiS4pejlB03TsHJ5inXF1wnY +onNgfd4MDe9l1F3i658AyZHAsnd/aXi4bWyv7ucJuK9f8FhFQAbjq6u8Kzon +QGRiWfewqAyK+nDd7JsmINfio5j9ShkMW5RxvDh/Anolgj12gAyuLZI28XGe +gG+vDxrmbZVBWe1H7iWHJmA0UZ8jpCeDVYaNtT/3T8BfqWWfawxk8FWDmJKV +5QQQtBuW6uYyqJlRmv8ZJ8BEsU2Lc1gGCyPVfg0RE1C1QUVU6KwMip20Wzxb +Nw4XzYdya9pkUMTvwMR58XEo/blDdaWjLC6/MfzHL34MrnQWHjX+K4tlGpk9 +Ys9H4YCXaFjJhZXIWHOMIff3B5yx2939d5UcZl1tqR3LH4LQjJzvchVyyHhF +H69VH4TOzf0m9G3yKBlQfctPow8kQ2VDbV7L41TOsUcVMZ9h+VKr/a5HVuFg +2r4OidYeOD57MmH/xCqMdIsoDjvZCXtk9/67fLsCVu25DPtd38H+8+5SkokK +uK+soH984jUQdwJXCHYoYEOwtaOWwwvYHCA09oGhiMJL4ndo6DeC6Pczk7dc +FbH5VeDXhxr1ECi2sPujmyKmNX1yyeTVQ59SRLWkhyL6mWa7nafVQ7V7yH9B +XooIWcKtsdN14DPitlzvqCLWyVr6Sd6vg45fRsrdoYq4zZjVoqldB7lT4s6L +EhTRYOHB4y93PoGtwhfaDpcrYvTN2F/nYmpBWCqLcaFCEaXSBbbsDamFJsU7 +3jWVirjJMpx/nWctWGo/F5WtUsQtoV7vflvUgtNRQXhVo4iBZytFRlfVwple +vzzNJkXUj7t7KKeyBlqrLYOW9ihi9mM9KB18BM6BK2QqBehY/vLgCtsFD6HX +oVn5jSAd90YJJjX/rIIDpqf0vy+g4weRcxI7u6vAkjfiLbeQjq1zsV98iqtA +p7v+2UkxOmpGP587bF8F8uDvbyhFx1K3XZGfah9Aq3Drq24WHRs6mgK+xN6H +rSkJ0XMGdPz97SFpsaMC9py7baBsSMeyP+1nz6lVgGtk4yK7nXQcuMBe845R +AUm+/LG1xnQ8GbjX+fxcOXzd5RMfaU5HAx2iIu9eOcQvNEsVtaVjl8iB3R6M +cvgUJFGwwouOvf4pmwTEyuCETdyLdcl0zGXmaZnz3QPDDRbWO1PoOCH0YKL5 +VwmsWPhPr/NFOjrYmf82+1IChcUZE5mpdGzXKEwPfloCHxYVrlyeQceAB66j ++udK4N+KZtfJXCp+Hbuc6pUlMCUlurCmgo7OXf++W6RbDD4vIsHsPR0bjY3k +MwuKICmhS+VIDx3V7x7eVXq1CCos17NPfKDjFfb02zcXioCvu3vx7U90DI6z +bGQfL4LzgypdIv10nGoQeLzBuAjy+T4frflBx42bvLZkfL4DvSra+crzdOr/ +QeSG4PFCML84ISVOZ6BDds/o9g8FsPTw3ZJ/GQz879aa3xcbCqBZxcPcjcnA +EgflmKniAtj2oi+ugc1AWcdUje/RBaAp1CoaocTA+/XNTskqBcDwK+abUmVg +6PlGt7Ez+TC+y2v483YGxi12enF8+024KPztSakHA9NqxiT3/cgF0RIjpVee +DNQ6cCcq530uhB0sShzyYmCFRdjU7PNccKoItF/ly8AL+eS9l/m5oOYqPB8T +wEDX5Mkbgi650NbC0LQ9wcAsM3GjjMEckEo+UCSQwMBpeT8xpx/ZEM9oTTO5 +x8CDz9XrY2nXIaMr/c7JUgZ2BBw85il6HQoSnB+XlDHQ7FvuvM3MNXg6/2fw +n0oGToQlHdjXcw1muxU3fnrIwMYGLbcvWdfAOcmr0fsZA/Xv7Z+XX3sNtgiJ +kQldDCR4TrbzO7Pgx8BWk1Y+Jqrw+O+xLa6C+dn053wCTBw69WZdreZVqFCe +3r5WkImHy6nv06/CqaAijBJiogujV49/LANWiK5SURdlYtzNjauFEzMA185K +pS1nYoLuk/Hwd+lwwa+sy4HNxPZPps1dLmmgwafk9HsnEyPX7nXYWp8KuyPW +FYgZM/Fvj9HcieJU8BFWGWXsYmJjvDyj+Woq9T+qEWxpysTJ2V9fYoNTgUbb +fr7Ukom/8nrV7qxPhekNDmWB+5mofiG12/PqJah0uCI868lEic7sLalRF0Hj +mVjegkQm0mTuPcs7lgwjlv4XVS9Q+R0usblzJBmyez9EOyYx8Yhj9NY6q2SQ +mLt7pC6FiaUJgZ3SaskwoGq9OvIKEwW3Fsla/U6CxGvZtwVzmBik5bh4h3cS +fA/VvidQwcRTQ/u25vhdgHRVr1q+D0xUmAscVcpIANGs8OCVH5m4acnLSG5C +AgQsSdyo/omJJ5W0b6yLTIBdA/dyvHqpeM0ywq1cE4Dv0p/THwYoB+mXyWxO +AIeZ/8yrfjKRnnNLy/5NPPAep30J5GdhhFfmh0dL46HUpEnoJ5OFkYv8AyoM +zkHwTQ+uEJuFp7VM28M2noMtgst2ynJYaLZ/T4yl/Dl4WmYVv53HwmIDxp21 +47HQJtcvk7mWhabblD4mZ8YC+X1e2UyNhTaqm/erzp4F9ZhN+0q2s7COz2bm +YPUZqKrJLAx0ZaGmU/czTfcYkGHlH89xY6GDrMlegb0xEHi6xPCtOwu7v26d +7dCPARXzpwPrvFg4dqxpe8mqGLj55bv8gB8L23Y73pFpjYYU4c1xlqEsvPi2 +8nY+RIOPUYvXhnhqv7Oyl8IVo4DdMb3+eykLB+uj4eaSSNCULXi2oJx6f//P +J8NzEWBywPaAfAULnTZ0LdcajYCgvuqzZvdZqP36FTn5JgKaRiMGyqtZqC+X +OfLrUgR4LhJPi3zGQokxkS8f2RFQpklfKN/JQqsHG795Gp4C/XTDHtNZFtLG +tVlPCsNhfMh+1am/LDzifyUxMCscrqkfsy+ZY+Gryf0JaknhMPc2r1+an437 +BgsUW4+FQ5mo0EiXEBsbHi3JidUPB3bQoznHpWz0ibGU7Hh4AoQtVBWO0dmY +KfrX0FolDBpE5B2yDNg4/O2S7SLLEFi7qcejegcbRe9MKxZBCCTapwV1G7JR +prlTyEkpBGzvy5yXNmZjz+5Ds3MCIfDT7Z/K02Zs3PTAyaOvOBhWvJRY6ruP +je77nWv8pIPBMVnwgY47G3+0fH5n3R8E84rfJPvi2Lj40GqbmdsBUKWlGT0T +z8betHYzt/QACNp9dkYykY3K1SE2g7EBMBaztm9rEhtbulIjBd0DoO+nT+nV +S2wMeM7WfL46ABoe/rGyyWLj7P3XufH5/pC4d3H6m2I2Vq896VZRfBRYCcqc +2ndsjF7L3V72xReOlw5sG21j47n0fSKPWn3hTWe606oOKh/vk5lv630hjL44 +N7SLjT/jrNcr3PCFtpKvTM2PbNx4M6RJ38MXYtqy6CVf2eho/LT3/rQPDMlK +yefMsFFuLvTbElkfKMydkjqtyEGVgR/dP/94woObVn+v0znYWC2oKdTnCQ23 +yvqrGRwkhsKilFo8obf4aNk4i4Pmf55U5F/1hBWPRq3sVnMQHQ9yfPU9Iaz9 +6+XNGzmYdVnLRybJA4xFOhUG9Dj45xvt9nFtdxh2qVyje4SD/dwfqYLVLpAY +GFbj78LBlyc7kuxuuoDGf7qWN1w5aNn6eMWLJBeIymwJWeLBweStDcFdbi6g +0P65qd2Hg2HbjSzLZVzAUk/UxT2Eij9+atw/5AhUydvkJJ/noN6pyK2FBs5w +7u2s3Nd7HNQV824/vPQwxL6wkJUu4yBzTPrS6zlHONOYT+iUc3BqwVoHwxFH +iHpkvTytkoP5cjU/D7U4womCeyKm1Ry8faOkfl2sI/hEuP8uf8bB1fpJl7iL +HWH3xvcN0V0cNDWUlbCTdgC5Cw/8OHxc7HTTOPnK0B7euN/XQH4uSk5ld63c +Yg8x2yrnrQW4mBLzNcp3gz2MTZedPbOAi+9nc6o0CHt4ald8/YcIF78pvPug +NmAHnutuvi1ZxkW7f5fKDUTYwaPGlI3I4GLpg6mfrWcPgj2f72/rbVzU98kN +tXhqC0V9bY6nt3PROFQn8cgdW5hr0GqrNODiLc5UX9wlW0hLEKqU2cnFJ41l +otJuttBGTw17b8LFr63r6yYlbGGnfs0iu71c/Lim65iknQ1sOiOu4OzORWYV +O05LbB8skiow8k+k4t8Yc/5oohWIt5dHJVzg4n3n+GvD4VYgdbmu5nYSF5ev +fVHt42UF8gofVAdSuDgZpPntmpEVqK5ZJmd1hYt3iYtTVxdagZ1e4A/1bC5q +ry0onD2xByqO6p6fLeViTxnHdP7YbnB61/0yopM6n+fOqmoJFvDkv2C/y11c +vJ7CvfrrlAUoqNH+udvNxaAgXe/yoxbQnbLnwIceLvanIeeQtQWYWr8eVu/l +okD9FemNChag0f100cgQF7M/NXtV3TWHxZ/v6lrPclEsLltS870Z3B2OLl+z +iodJAyqNe41N4UZerLCNAg9rhLrsjqIpZBxK2H1akYfKW82UUjeaQmzH5d/9 +DB7+MxKkzi9jCk51t5Wvcnk4/H1lXtILE1iZ9jZvmQoPP98bRb+FJhCzc9Ul +Uo+Hjnmj329FG4NdfllQjSsPQzYo0tqrDUFczyG+y42Hb5dqKxEFhvCgZ+mN +cXdqfavtK+eLhrBimUs714vaf1/hDRVvQ2gOlFVL8OOhaPUJJ3+6IWjoh/+2 +P87DF73V7Tmnd4Dkpx2egud5eCD6PyXXQwbwRLrHYdtdHnbyfjXu1toGfUc1 +DU8W8zAjW+W9IG8bLGi9uL6qhIcTTlbCtSu2gV6i+d8NZTwMV0j3PjKmD3Xi +DSlyD3gY+CFJ1zVfH54uLGkcr+Ohp+BadWU5fWiajlG+3kHFUycu5rZED4as +B6Q/dPLQY3jH075ZXRCt0J0lunlosrxb3n1YF3YGzDWc76F8f13I9ee60Dzm +dyi4l4c/lw/dKDmjCy++H0g2G+Yhn7eQhqmYLowYVoXE/uCherxkWsaMDojn +0w49G+HhoLzZj+nvOmBypHWd9i8e2s2+Vm5v1oFXfTsauCQPZXgdi5XidGBU +N6/QYZKKz5tb+fGEDkhcX5CcMcVDw4Nu85neOmBm/8heaoaHCk3G63eY64Bv +zUoDk1keGnzRE16vqwOJq4LXnfnLw5nXPUYMVR0oDmuXqp/j4ZnUzmk6Swfe +9KjOzM/zkLjFL6i8Qgf+B9fNJtc= + "]]}, "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:eJwVV3k4VV0XN0SiJNF7rinufFMpSYZXa2UoiYxFURGRecoQkeJFpQyhFKIM +RUlkligK0ShjGmQoJImLiO98f51nP3uf9Zy1z29aCkc9zY7x8fDwHOPl4fn/ +00Y3eRkPD4Hbpoiu2Ltc+HdAsrYohkATEZE4Nd5p6H97jaPJoCD/N7poYR8X +JqVXDuUWU/A8/yP+WXMu9IkFue8GKdxQKGns7TQFV8yGc2rbpVDI9/DUJdFJ +KPm5W0XGQRpX3x794xs3Ade7Ck4Y/ZXGUvWMXpEX43DYUzi0+LIM0tafpMn+ +/QHnbff1/F0ri5k3Wusm8oYhJD17RLZcFmmvqZN1akPQtW3AmLpTDsX9a+76 +qveDeIh0iPUbOZzJPvm4PPoLrF5pecjl+FocSj3YKdbWC6fmz8QfmlqLEa7h +RaFnumC/9IF/V++Sx+r91+CQy3s4dMlNQjxBHg+W5g9MTr0B4n7AGv5OeWwM +snLQtH8J2/wFJj7SFFBwRdxudb0mEB45P33XRQFbXgd8e6TeADsEL7cfK1PA +qDsxvy5G14FTwBqpCj4qlr06ssZmySPYkRwftaBPxd/fH3HNd5fDaevYlxuT +qJhDz9U043kI3i8jwPQDFZuMDOUy8gvB7MqUhCiVhvZZveO7PubDFcHvT0vc +aZhaOyF+8EcOxNHaUo0f0vDIC7WGGMot+DG4w7iNh47KHN6HTPMboM6j6Ph7 +Dx0jNhyw39GQAurPRXKXJNCRIvXwee7JJEhT8azj+UhH+YWAccX0eCgxbhb4 +SWdgxDI//3L9i1Bdm1EQ4MJADcee5xpu0cDsnN00UsLAoYYouLMiAvTSDHpN +5hlImdRiPC0Ig0YhOftMfSaOfr9qs8wiGBYVvov3xzJx+dF11nP3/IERr8Sq +e8/EqA3sXaVffaAgZ0binAILlQd/9Pz84wGjzhXrdY6zcID9I4W/xhkuvpuX +/faQhToiXh3HVh4D2ctVviweNna5qp95bWAHdjw+v612slHPOyfE/JkNLJPI +N/RLYGPyluhLJxIswfF9z6vwLjZ+eOGkohpvDg9Go8rWr+Vg4qBy0wEjE7DN +Kw2sdeFg8GYFSkeNATyV7LXf+YCDXZxfTfs0d8LbXpW5xUUOEnd5+ZXWaEOL +RLvDgZ0Ersyyzl7SzwUxm85JbieBe0d3XJPlmwa3aYtobzcK7vuh0nzzNhdc +k3XzAmcpWLE62ar82xRUb1YWFrgghSJnbJfP109Czoyo07J4BdRfeuTUqz1P +oa3GInBlrwJmPdGFkqHH0CbY9rqHQcXGzmb/rzGV8DlQLH+NJxX7/JK38omU +woyE8NLacio6df/7fplOEfQpa+UpLVLRq1PoNv+pApjc6zn6ZRcNY5c7vjy1 +6w5IJB0u5Iun4aycr4jjjyzYLiDCje+mIcFxtFnckwmXfUu77Zl07Phs0tLt +nAoV9tcF5z3oKNaVtT0l8gqMhGg95Cun49nhgzuyfS8D50nq1wBeBoZ7Znx8 +vDIO1KK3HizexcB6Huu5IzXnwduw1XNzHAPtL0hfDVOIhFIN6lK5LgZaVm35 +7mFwFgTNVeRPUpmYIfzXwEo5FByS+Ku03Zj4o/XLe6uBQEg4sDztbRETazac +cS0vOgHD0hJy2XNMlF0I+b5C2huMhLrkB3VZ+Oc75d4pLTeolrPOTrrEQt2z +ETsK9J1g35YPjVHdLDQxkBazlbSHx03JW5DGxpKqmZ9tF47A1vOi8k5ubKRX +M2M1RQ5C+QmdS/MlbOwtZZksntwHy7880LGaZ6NIbJa4xgdTiN6z9ipXl4MO +ueMjd6OMQPzzbg/+Sxw8HPWfostRfWiejVa61clB4XpREdcVupC4XrVsPY1A +3YjX6qdecCFHPqC7rYjA8YlWjxKBaWAPTFu161NQ8q6muHgTFzZ13dGPa6fg +pyzcq6nABWOFdk3WMSksiFD9NUxMQecvQ6WeEAXcacRo1dCqh/N9vrkazQqo +F/vgaHZFLciBn5+BBBVLXPdGfK6rgrilpinCNlTsFjq8z51WBv+Wt7hM55D6 +o22bXSNTDHk8X07U/qDilq2e29O/3AeabxHPjAoNQy41uU6cz4P2VpqGzWka +ZpqKGqYPZYNTomeT13Ma6j08tCi34SbghnmJ1NV0jNd5Ohn2Pg1mN9uXBhyi +o9rllB6PG1ch4WbWPf5sOgZqOizf7ZUI9nP/mVX/pCM1+66m3ds44I4sKpmq +MtBaZdshlfkLkCy4LdYihIFX3lXcy4Mo8FgmmhrxnIFiE0JfPzHDgRn4eMFh +JRO9oy3EOx+dhjWvxFb6HGSi2yGnWl/JIGh89MfSOpOJ85VvcuLy/CC6PZNa +/I2JDkbP+ipnvSG049u1bVtYmHlN01sq0R0sdIWd3YJJ/YmbmfQLPg7e4W6/ +y56zcJ1e4lX2cgfw2HjnXfEqNtr+u1J2MNwW9ujVLrM9wMZP67tPittag61u +wA+1LDZqbcgvmD+9H9R7ni0bG2Zj1ucWz+oHZiCT+i53lTIHvzwcR9+lxqCu +F/bb7hQHX/bVdGSf2w3PlhY3TdZz0IN/g5qSrB4s+esnHulMYMmDw8p/prgQ +dEV9JWWRwJf0Q1HuXC4ULisqWx5HQdeu3o3nz5B4Mv8kYicjhaHL0k8V5U3B +y5HDSaajHOTxElA3EdGBQDVH2+RVBF45vHfzq2ou/Dq7s/XpDQJdD8U2By6Z +BkGb3XVC2yjovvGKzaN2LiQEffhHpoGCma+41fs1uUBQbluomUmhRnpJ3hec +Au8x19W6JxSwXtrCV7yyHhxP8MPrWgUMuFAhNL62DrR7Gp6fEaGiRtSLhWN2 +1fBtr3dchBkV9bWJ8tyHZfBxWYHM6nQq+le5jOtdLIZLQ8rdQgNUnGnke7LZ +qBA0BNqEwxVpWNnQ4piknA+qLoKL0f40dEmavs3vnAPzPQpbPj+iYVOjpuvX +zJuwRnitspowHWPvbFknmJAOFMquSyUWdPyV26d6f1MKDKpYrYu4Tkf+HYXS +lr8Tgefqn3MfB0k9C9QrldoWD+2yA1IZGxhoslPxU1JGDNz5OiI36MvA9n0O +96XaoqB5PHywrIaBerIZY7+uhkOpsMBYtwATGx+vyI7RC4Ofrv9UnDNl4tYq +R/f+oiDo/+ldcuMqE/1fMDVerPOH9uJvdI1PTNxyJ7hZz90H1jwet7Rdx0J0 +OMLy0fMA+Y4vzR3eLAzdZWhRJuUMp/MfCpnUsPDe7eKGjTEO8My26NYPITZ+ +l3//UXXQFtqpKaEfjNn4rW1T/bSYDaisXyVreZ2ND4grMzeWWoKJ1ZtRtT42 +8jVcl9wibw6O9feUbrA5ODoik5v40hhaAqRV431Jfao57ehHNYB60cZk2SoO +BnxM1HHJ04NvQjlVPy1JvcIfhm0/uNAwK8QnNEpg6y0J1P/LhUth/PIQSkH6 +HrvWb0lcEJpa1TMqLIXC3mxXu+YpaJnwPRrUx8Gfq4dvF5/XgUJ5QdGnKgSG +25ZIx3Vywbomd2iggcDPdNX8URJ/Bh4547cOUjBUgNe4qIIL8r/0nGWCCcys +HZb3meeC0lYXmXXiFKQWndWKJb/ndf/uRjaXg1KczuWKsdrgsn1B5YUQgXbd +B62/POTCGpWCnZrJBDY3ls0S/NPg94/PlMJGChrec1ky9oELOi/8Fu2qKXhE +zD2kYxcX/kqs+lKrL4WvG0UULS2moMYt+L9ATwWETMG2mNl6sNB6ISxdrYDb +Qzzf/zavAwvOmJfsUiq2LcR89S6qhkQf3pg6IyqeCTjgdGmhDAqK0qcyUqjY +oV6QFvSsGHh6epbf+0zFoFiLJuapQtj5sj+2kUlDaYcU9ZGofHAsD7Bb60PD +y3nch6/ycuDZ4p+hfypoOBWaePhg7004G1iIkQJ0dKb16fJOpMOd5epBFiZ0 +nJ7/9TUmKAXEFh4cr0+mY0l8QJekahLsHXyY7dlH4ts0PczSJR6elVrG7eIw +sEifdn/DZAwomz0b3OjJwImTzbuK10ZDYH/NBdNKBmq9ec2dfhsOC+9yByR5 +mXhwKF+h7WQY2FRKXZI0YmLvvqPzC3zBMBG9oX9HIhNbu1Mi+N38IZS6PCek +m4k/Y602yd/2gb6iE6WTDBaa/XlannfDAyIzWoNXuLMwaUdjULerM0Q+tlqd +WsHCPNnan0dbHWBitvTC+SVkPpvPrlYn7CA1XqBCag8bnzaVCku62oCc/EeV +wWQ2TgdqfL9paAk9yfsPf+xl40Aqso5amUNM57XfAzQO/jMWqMYrZQJrVjl3 +sD1JvB8suK3sZQC6CWZ/N5dyMEw+zev4hB50i26PoxsTuDnZyUnhOxeG87yC +T/cRWMtYcu/3IokHzfUWVn4U3J92szboBhcq9fKfKPNJYVxNtVd51xTs8V9o +vNTLQePKjcG3XujATWZ637QigZJxV0vV33IhzHOl3aFqAqd1O1rjSX+v4Lyi +PzKlYGXyk4CrdVwQn+7VMvUh0H+3JMNtlgsWg2+SMoUouP4vz/3tE6TfH2/b +qPWLg7bzb5Q6WrQhUvnlBTspApc/eeFlVc+FljcfzQ3vEPgmWK7IkqzP5RMd +qrQl8F2E1mMZ8v0M/czouCkCRW2mA6T/cEF1BXp4vCJQezD5VwPJh40j9xKH +wgkc3axcKUL2KxzBd6tImoLzE9tjj3zjgqndYzuJOQ7KNxtt2m2mDfY7DG4c +W0IghlbzNBRySfwd5Q+IJ/AZr+1bNTLvrveLjC3gUFDl+uLXD5+4kOqr/XtJ +OQWfzJ1RnTTiwniCHktAVwqrDZrqfh6agn7F8BpxdwX0NclyvURpgGaF+161 +FQq41SKMd6NHHRw2Oas3soSKH4Uuiu3pqQaXiKZltnuoOHiZuf49rRzWLP2n +z+kKFe1tzX6bfi2GcotNzNMfqXidOfvu7eVCaFF2N3Ol07DYXil6pigfQo8U +Jgx70rDcPHRm/kUO5Mc7PSkupaHp95xF67mbUK40u2sDPx2PlR056UG9Ad6C +yuO0vXRsipOjtdxIgay+j1EOiXQ87hC1o94yCfxXJGxR+0zHM4patzdGxMN2 +/lV7pFkMND20P9pC7iIEnCs2eOfGwJ5vO+Y79aLB+LDNYblyBjpu7l6tOR4O +N9VO2hUvMPD19KF41cQwSLBLDewxYKJUS5eAo2IwBO67MCeewESlmmDroRh/ +eNuV5ri2k+Sf15mMdw0+0Hi3dKCGxkJiODRSsdUD1P/TsbjtwkKLtidrXiY6 +w/mmPEK7jIUzSzbYG4w5QPTOikUrPnIeiv4W6bPZDhYaNdsr9Nl4lzXTH3vV +BiSu1dfeS2Tj6g0va7w9LUFelfLPgx42BgbqeJWdMIf0o/H7zilwUGmHqWLK +FhOo6l15e9KNzDNtNq+drhjAkrYrm6qLOTjlaClYt2YnvFt1/k+NAanHOTJq +GYNcCAmnq1X1EijVbfae4J2Ghyk41u9Fwavm20Vlskg+jAWUvv9LwWPtEwd0 +vkyBcLnOPNFD8mt1j5zbqA5c5wwbJrAIjDF88HLoJRdW6z+VTSkj8BZvRksx +iX+vqK81u40omGvM+Hy0gQsifzi3R9wJ1HPyvFU7zYWhmv/MevkpGKARt8Vx +kguieZSjz8c4OCRn+mN2RBtOb5XizkkSOMWh+GTUcuFwXoJYdBbpd4ETR2ZI +f/opcNB0nw2BL5ae6hUY54Kywj69lnEyn5knLXkyx4XGgd/r8poJzGUvO+tM +nmeNzS6cOU1g0iqlsBbSL1NtSo+MraHg55P5TktHyHnx1pKk9BkOGhxxXczw +0oYI6z/nFq+RelCU/qeT5KfV2+oanSECE1tj6QULXBhLts5SqCOwjuXsYUz2 +S5mMf1fqT+BAVcfteZLf6rPrrogVEJhvYlmRTO7fUol5oNxGoJNCyCwvWW/r +N7t1RtEEmgVsfKrEMw0Ja4M2nv/Lwbk3vYY0FW34rO3VpsxHYHtJZsS9Ai5M +zFR9kYgl9SKzrbia/F9CWXEfTrAoWPhP8vjuL2S/z9nu7SUUtPzjnDprwoXv +b44Y5O6QQmmtx27FR6cgQGRpzydXBUxt/uycwWkAQYlM2uVyBZRI49t+ILgO ++uxblN7yU/FAJH9iy89q2H/xnr6SARVL/3RcuKhaDgabza32JFNxSqBqquVX +MSTGdysf76Wi2oNje0tuFMLKYw+K/6XR8L+7639facwH4WJDxdceNNQ8fD8y ++0MOpHen3T9TQsNOf5LPwrfA7ELaCx4+Og6ffbuxTuMG7AvfmC9iRMe/vYYL +p4tSYMzC74rKZXL/WLH1/eNJIJwZFiTziY5bV7yKYMfHQ9Add7YAk4HnNE06 +QrdcBClG3qlsV3KelTY+wHcgGjSk858vKSPnlUM/n44uhMPksN3as38ZeNzv +ekJAZhhs2NrrXrObicL3ZxUKIRiqNTWi5uKY2JfaYeqa5g+nSgZ3jrcz8WLa +QaHHbT5Qdcfy7y0qC5tq+DUE+j0gISC01s+Zha/OdCba3nGGmJfm0pKlLKRP +SF59s+AAb90q1ZGXjeIzWd0y2+2gsL/d4dwuNhqFaCccv28Doh1lkfGX2Vjp +FHdzNMwSnv4X5Hutm423ktk3fp01h9u5MYLW8hysFei2PYEmIKprH9ftysF3 +K7UUiXwD6D+hYXCmiIPpWcof+Dk7wWR1oVKMPoGVHwYr9g1w4Zln6JoDPQQG +8djp3iDxEtdooJnvQUFfne7HR3O4sF378KbcOQo+TK+/yjMwBcNWg5Ifuzjo +Prr7Wf+8DhCKYmePMAjUGdmltrWVCzYqsvOqJQTeDeC5U07i2bD0h4jYHgp+ +OC37Res5F6LnjHvLXQl8tXbw+WdyHtqU/2lTMC8FadHr+t3JeWnMoDo45gcH +1eLEU9PntGFeFRWbVpN58+TWmcoaLtxOHh1j3CTw0HNqWjXJV7elYZHUgwTW +8Ew5j49x4dSK+zSXMQK9/T+sP0fmT/G3Rsv0Gwk0X32Sdp88n/VzrYpxCIFa +k94PqSS/B/XFtsdIUNB6psrceJT0O53cAvtpMl97sSs+ndaG1l0Wx9OuEhil +m7t4iuRjZs2atC/9ZF6QTpi0IP13W3jJ2cc1ZH1rt7wTZL/JU2VCEScIjKu+ +/Hwbye+zAxF+Bfnk/TZdgGByf1R+MPb1GwKD+U7xHSfrFX2POiIVSeDe5khG +JlnPp1ZG33ieg/pfdQU36WiDrbwQo+sygSE27OG7pF83WzvDXAWBW9dJduWQ +9SRr1JSHcwi0KBhftZ5cn55NMVzeSqCifv0zabJfDc+MfLs0Ar06Lb6v/3// +ebzPwp8SOCPmTaGS58eXvyn3KSQw52qBXB65LgrtkGhY4OD5lK5ZKkMb/gcR +kibX + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1He4j3UYBvAje+89TwMpI6tkJZQ9DpHsY0SESmVkVFpoR2TPooxCoexZ +WRmZFcqIimxRfJ6rPz7nvr/f51xn/J73ehOT+yb1SZGQkNDNl8hivhyVnzGU +Js7ZOKC3op6egd36bCpQ2zk12/VpNNNzcEgfSEM9M3v1NrIgc/QWMje/6O1k +EW7RE+WvsoOcF79X5iOZYc5NZXY6cdD5MVmIrrR2ri8z0pE9zo/KAnThY+ck +mYvO/OzcVhamol5HpmGH3lrmZ7reXObkJ30QjfQs7NPn0lLPw2E9Jbfqv8n5 +DI+/gQbuMvGj/gmVqOuclh/0GQwmFbe5OyYX8GJ8blTmIffp2KnP5AVSc7u7 +43IhL8Vnwr2kIS3pSE8GMpKJzGQhK9nITg5ykos7/MwT8nNejs+J+8hNcbOT +8gtGxP6oQh5KmP0uF/EK7bmfvJQ0OyUX82rsmKrk406z03IJr9GRauSnlNkf +8ktepxPVKcBdZn/Kr3iDztSgIHeb/SWXMpJkalKI0mZn5DJG0YUHKEwZs7Ny +OaPpSi2KUNbsb/k1b9KNBylKObNz8hveoju1KcY9ZuflCt7mceqQSHmzC3Il +79Ajno14jqhgdlGu4l16xnMQzwgVzS7J1bzHEzwczwOVzC7LNbxPL+rFXqls +dkWu5QN6Uz/2Gs+N2VW5jjE8SYPYa+zf7B+5nrH0oWHsNfZvdk1u4EP60ij2 +Gvs3uy43Mo5+NI69xv7N/pWbGM9TNIm9xv7N/pOb+YinaRp7jf2b3ZDfMoFn +aBZ7jf3Hy4zvxET60zz2GvuPdx3f65N4lqTYa+w/3kFs0SfzHC1ir7F/9ynZ +qk/heVrGXmP/7lOxTZ/KAB6JXbhLzy59FkPi/3bOyn790/g+PS9H9PayaIr/ +38flnW8CB8uWHw== + "], 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]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 13}, {0., 1.4388968087800817`}}, + "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:eJwV1nk0Vl0XAHBDJEoSvfch4pmfVEqS4dXeGUoiY1FURGSeMkSkeFEpQyiF +KENREplKoihEo4xpkKEkSVxEfPf7667fWvecu/fZe591FQ95mR8W4OPjO8zP +x/f/p61eyiI+PgI3TxCdcbdI+KTj3aoiQGBbaVbk7UISHLYaXj28gEAMq+Kr +LyLBdcuc6nMRAu279tl8vkdCkLqTXcoyAi8e2LXhZRUJs2qo1LicwE/HNk3d +rybhxCYZckaawAkezTezhoQolRdn7WUIXPz4ubd1HQlJa9TK1zAI1It8pXH8 +OQmEksSpgywCdb9vV9/UQsIV3pBRIofAWKO7LwZfkHCNndE7qUSgdPylMo03 +JBQpCIs/USUwwq5UNr6DhGapNse92whcmm2Ts6CPBNPlRcqxBgTefz9Qubuf +hLfLzvypNqTiz12pnjlAQpf4lnimCYEbUpydFb+R8FUk98FPKyoe/GHU+oME +94XhUfR9BFbzTbiMjpDwU2if2W5bAp8vPN4jNEoCKSA+eN+OwLeR2o9WjpGw +4K+/ZJQLgaV3D6j8mSAhZsakp8KNwJerBp59IkkQ+8O78d2DQH1nr+s1kyRI +TvZom/kSGLBDmuU+TULKRLlI5FEC46suPNv8hwTaeMLbsgAC+x+035ilrPBL +32VlCIFZNUMKvrMkZP9cpWoSSqD2uM89+l8SOCPTcydPEJi8TDm8mfK677eT +BiMIHN6gcl9snoTib9EHZaII3NUUxcqivOmr/WrjGALNA9c9UeabhH/7pWuK +Ywk0FROLV+efhLGpB5+l4gjUyWotqaJ8c/EhwcAEAp/y271RF5gEOwURVucF +AkNtuUO3KK9QLdymlUJgU0P5NCE4CS3bLY+kXyIwWi9v/jjlSJs/p+cvU/kW +Z/zpoKzplVlgn06gd4fltzULJuHXqW0tT64S6LY/rimI8o2U4RHWNQL3P6On +V1E+kJ8oEZNNYEvQ2MEpytLV6ipDuQRaFo4uWyM0Cc2vP1gY3STwdYh8sRXl +U/2R/oUFBAY3noUQyhrTqy9KFBJYYGpVmUJ5dPHrCt8iAnMvFcrnU85VCOxq +LSZwdKzFs5SyrarcrFopgbcC+W5WUF5u8EQutZzA6/yZzSWUm2xcYKaSwE2r +pTtzKYd7LbXfX0XgpF57SwLlzRGlpx5VE2hh455/lPJIik22Yi2BtRwXTxPK +2fn8TyOeEDgl4UOjU7apzhvsr6fmh6lWMEzlJ/nGeJFBA7V++THGHcoN/b9X +5zcRmMdddMqF8onpVKPFLQQqGdQ9laWstgQ9PV9S9RpI+VVPne+wwkDcq9cE +hggcFzhC+bpq7F2VVgKdFUOn+SlL2HaMkx1UPwxvvSxH1e+pV9iKvd3UefHZ +612l6h0awVR/0EOgTJf5O4LyUL53yIleAmtYC27/pvonq3pF+uc+ah5lE8ct +KVu/qarWHSQwqSWOWThHQv20iIDIMFWv61JoQPXj8SV3GK4jBPoEvF9zmupf +FcXd+s2j1LxYJC94PENCpkFWTPwEgeK2k4GyVL8HX9RYSpsn8AVzf7QHNT/r +Cz6uD+GnISNmdZ8HNV+D1f+Z9wjSMFAzfqPTOAmWA6+Ts0RouOYv350t1Dwq +b3JduVqShvTiU9px1DwPGEhsiZWioc3UAwuTYRLSbMsOjqygUfdVgfPC7ySI +RgpcL5al4ezYlriDX0noe3OZp8WioeBXpnhRLwki2fHvj3JoWPRPyuiOzySs +8Y+KK+TRUPXK/Jf3H0nw/8d3QnEdDY1uuy4YeU+CsO2OWpHNNPRYd9H2YRsJ +3P5J6zYDGkrf0pKUbCTBqOyHmMROGr4/IfdZ+xkJ3tFfqncY0zDPhPXpUD0J +lbyXzIdmNLyf8jjwUi0Jhp65o9f30TBMiN+kuJK6nyYtY3zcabj7h2rTtRsk +xDcYahV40tBPt+vRoVwS7qXiSJ83DS9ZbBFfmU3CX601ltb+NNyTfq0m+CoJ +58MFFSCMhsyd9i1fk6n7dFFx+eJ4Grp19qw7c5KEcdmlg3klNDwj+FBw2oKE +hmdcj7ZSGlr9cUmbNqXOz0/n94IKGj6eOak2bkyC7nP/efsqGh6U8Aht305C +YvD7f1bW0zDrJVm1R4uqX+dNg/g2Gn7Mxl1aiiS4pejlB03TsHJ5inXF1wnY +onNgfd4MDe9l1F3i658AyZHAsnd/aXi4bWyv7ucJuK9f8FhFQAbjq6u8Kzon +QGRiWfewqAyK+nDd7JsmINfio5j9ShkMW5RxvDh/Anolgj12gAyuLZI28XGe +gG+vDxrmbZVBWe1H7iWHJmA0UZ8jpCeDVYaNtT/3T8BfqWWfawxk8FWDmJKV +5QQQtBuW6uYyqJlRmv8ZJ8BEsU2Lc1gGCyPVfg0RE1C1QUVU6KwMip20Wzxb +Nw4XzYdya9pkUMTvwMR58XEo/blDdaWjLC6/MfzHL34MrnQWHjX+K4tlGpk9 +Ys9H4YCXaFjJhZXIWHOMIff3B5yx2939d5UcZl1tqR3LH4LQjJzvchVyyHhF +H69VH4TOzf0m9G3yKBlQfctPow8kQ2VDbV7L41TOsUcVMZ9h+VKr/a5HVuFg +2r4OidYeOD57MmH/xCqMdIsoDjvZCXtk9/67fLsCVu25DPtd38H+8+5SkokK +uK+soH984jUQdwJXCHYoYEOwtaOWwwvYHCA09oGhiMJL4ndo6DeC6Pczk7dc +FbH5VeDXhxr1ECi2sPujmyKmNX1yyeTVQ59SRLWkhyL6mWa7nafVQ7V7yH9B +XooIWcKtsdN14DPitlzvqCLWyVr6Sd6vg45fRsrdoYq4zZjVoqldB7lT4s6L +EhTRYOHB4y93PoGtwhfaDpcrYvTN2F/nYmpBWCqLcaFCEaXSBbbsDamFJsU7 +3jWVirjJMpx/nWctWGo/F5WtUsQtoV7vflvUgtNRQXhVo4iBZytFRlfVwple +vzzNJkXUj7t7KKeyBlqrLYOW9ihi9mM9KB18BM6BK2QqBehY/vLgCtsFD6HX +oVn5jSAd90YJJjX/rIIDpqf0vy+g4weRcxI7u6vAkjfiLbeQjq1zsV98iqtA +p7v+2UkxOmpGP587bF8F8uDvbyhFx1K3XZGfah9Aq3Drq24WHRs6mgK+xN6H +rSkJ0XMGdPz97SFpsaMC9py7baBsSMeyP+1nz6lVgGtk4yK7nXQcuMBe845R +AUm+/LG1xnQ8GbjX+fxcOXzd5RMfaU5HAx2iIu9eOcQvNEsVtaVjl8iB3R6M +cvgUJFGwwouOvf4pmwTEyuCETdyLdcl0zGXmaZnz3QPDDRbWO1PoOCH0YKL5 +VwmsWPhPr/NFOjrYmf82+1IChcUZE5mpdGzXKEwPfloCHxYVrlyeQceAB66j ++udK4N+KZtfJXCp+Hbuc6pUlMCUlurCmgo7OXf++W6RbDD4vIsHsPR0bjY3k +MwuKICmhS+VIDx3V7x7eVXq1CCos17NPfKDjFfb02zcXioCvu3vx7U90DI6z +bGQfL4LzgypdIv10nGoQeLzBuAjy+T4frflBx42bvLZkfL4DvSra+crzdOr/ +QeSG4PFCML84ISVOZ6BDds/o9g8FsPTw3ZJ/GQz879aa3xcbCqBZxcPcjcnA +EgflmKniAtj2oi+ugc1AWcdUje/RBaAp1CoaocTA+/XNTskqBcDwK+abUmVg +6PlGt7Ez+TC+y2v483YGxi12enF8+024KPztSakHA9NqxiT3/cgF0RIjpVee +DNQ6cCcq530uhB0sShzyYmCFRdjU7PNccKoItF/ly8AL+eS9l/m5oOYqPB8T +wEDX5Mkbgi650NbC0LQ9wcAsM3GjjMEckEo+UCSQwMBpeT8xpx/ZEM9oTTO5 +x8CDz9XrY2nXIaMr/c7JUgZ2BBw85il6HQoSnB+XlDHQ7FvuvM3MNXg6/2fw +n0oGToQlHdjXcw1muxU3fnrIwMYGLbcvWdfAOcmr0fsZA/Xv7Z+XX3sNtgiJ +kQldDCR4TrbzO7Pgx8BWk1Y+Jqrw+O+xLa6C+dn053wCTBw69WZdreZVqFCe +3r5WkImHy6nv06/CqaAijBJiogujV49/LANWiK5SURdlYtzNjauFEzMA185K +pS1nYoLuk/Hwd+lwwa+sy4HNxPZPps1dLmmgwafk9HsnEyPX7nXYWp8KuyPW +FYgZM/Fvj9HcieJU8BFWGWXsYmJjvDyj+Woq9T+qEWxpysTJ2V9fYoNTgUbb +fr7Ukom/8nrV7qxPhekNDmWB+5mofiG12/PqJah0uCI868lEic7sLalRF0Hj +mVjegkQm0mTuPcs7lgwjlv4XVS9Q+R0usblzJBmyez9EOyYx8Yhj9NY6q2SQ +mLt7pC6FiaUJgZ3SaskwoGq9OvIKEwW3Fsla/U6CxGvZtwVzmBik5bh4h3cS +fA/VvidQwcRTQ/u25vhdgHRVr1q+D0xUmAscVcpIANGs8OCVH5m4acnLSG5C +AgQsSdyo/omJJ5W0b6yLTIBdA/dyvHqpeM0ywq1cE4Dv0p/THwYoB+mXyWxO +AIeZ/8yrfjKRnnNLy/5NPPAep30J5GdhhFfmh0dL46HUpEnoJ5OFkYv8AyoM +zkHwTQ+uEJuFp7VM28M2noMtgst2ynJYaLZ/T4yl/Dl4WmYVv53HwmIDxp21 +47HQJtcvk7mWhabblD4mZ8YC+X1e2UyNhTaqm/erzp4F9ZhN+0q2s7COz2bm +YPUZqKrJLAx0ZaGmU/czTfcYkGHlH89xY6GDrMlegb0xEHi6xPCtOwu7v26d +7dCPARXzpwPrvFg4dqxpe8mqGLj55bv8gB8L23Y73pFpjYYU4c1xlqEsvPi2 +8nY+RIOPUYvXhnhqv7Oyl8IVo4DdMb3+eykLB+uj4eaSSNCULXi2oJx6f//P +J8NzEWBywPaAfAULnTZ0LdcajYCgvuqzZvdZqP36FTn5JgKaRiMGyqtZqC+X +OfLrUgR4LhJPi3zGQokxkS8f2RFQpklfKN/JQqsHG795Gp4C/XTDHtNZFtLG +tVlPCsNhfMh+1am/LDzifyUxMCscrqkfsy+ZY+Gryf0JaknhMPc2r1+an437 +BgsUW4+FQ5mo0EiXEBsbHi3JidUPB3bQoznHpWz0ibGU7Hh4AoQtVBWO0dmY +KfrX0FolDBpE5B2yDNg4/O2S7SLLEFi7qcejegcbRe9MKxZBCCTapwV1G7JR +prlTyEkpBGzvy5yXNmZjz+5Ds3MCIfDT7Z/K02Zs3PTAyaOvOBhWvJRY6ruP +je77nWv8pIPBMVnwgY47G3+0fH5n3R8E84rfJPvi2Lj40GqbmdsBUKWlGT0T +z8betHYzt/QACNp9dkYykY3K1SE2g7EBMBaztm9rEhtbulIjBd0DoO+nT+nV +S2wMeM7WfL46ABoe/rGyyWLj7P3XufH5/pC4d3H6m2I2Vq896VZRfBRYCcqc +2ndsjF7L3V72xReOlw5sG21j47n0fSKPWn3hTWe606oOKh/vk5lv630hjL44 +N7SLjT/jrNcr3PCFtpKvTM2PbNx4M6RJ38MXYtqy6CVf2eho/LT3/rQPDMlK +yefMsFFuLvTbElkfKMydkjqtyEGVgR/dP/94woObVn+v0znYWC2oKdTnCQ23 +yvqrGRwkhsKilFo8obf4aNk4i4Pmf55U5F/1hBWPRq3sVnMQHQ9yfPU9Iaz9 +6+XNGzmYdVnLRybJA4xFOhUG9Dj45xvt9nFtdxh2qVyje4SD/dwfqYLVLpAY +GFbj78LBlyc7kuxuuoDGf7qWN1w5aNn6eMWLJBeIymwJWeLBweStDcFdbi6g +0P65qd2Hg2HbjSzLZVzAUk/UxT2Eij9+atw/5AhUydvkJJ/noN6pyK2FBs5w +7u2s3Nd7HNQV824/vPQwxL6wkJUu4yBzTPrS6zlHONOYT+iUc3BqwVoHwxFH +iHpkvTytkoP5cjU/D7U4womCeyKm1Ry8faOkfl2sI/hEuP8uf8bB1fpJl7iL +HWH3xvcN0V0cNDWUlbCTdgC5Cw/8OHxc7HTTOPnK0B7euN/XQH4uSk5ld63c +Yg8x2yrnrQW4mBLzNcp3gz2MTZedPbOAi+9nc6o0CHt4ald8/YcIF78pvPug +NmAHnutuvi1ZxkW7f5fKDUTYwaPGlI3I4GLpg6mfrWcPgj2f72/rbVzU98kN +tXhqC0V9bY6nt3PROFQn8cgdW5hr0GqrNODiLc5UX9wlW0hLEKqU2cnFJ41l +otJuttBGTw17b8LFr63r6yYlbGGnfs0iu71c/Lim65iknQ1sOiOu4OzORWYV +O05LbB8skiow8k+k4t8Yc/5oohWIt5dHJVzg4n3n+GvD4VYgdbmu5nYSF5ev +fVHt42UF8gofVAdSuDgZpPntmpEVqK5ZJmd1hYt3iYtTVxdagZ1e4A/1bC5q +ry0onD2xByqO6p6fLeViTxnHdP7YbnB61/0yopM6n+fOqmoJFvDkv2C/y11c +vJ7CvfrrlAUoqNH+udvNxaAgXe/yoxbQnbLnwIceLvanIeeQtQWYWr8eVu/l +okD9FemNChag0f100cgQF7M/NXtV3TWHxZ/v6lrPclEsLltS870Z3B2OLl+z +iodJAyqNe41N4UZerLCNAg9rhLrsjqIpZBxK2H1akYfKW82UUjeaQmzH5d/9 +DB7+MxKkzi9jCk51t5Wvcnk4/H1lXtILE1iZ9jZvmQoPP98bRb+FJhCzc9Ul +Uo+Hjnmj329FG4NdfllQjSsPQzYo0tqrDUFczyG+y42Hb5dqKxEFhvCgZ+mN +cXdqfavtK+eLhrBimUs714vaf1/hDRVvQ2gOlFVL8OOhaPUJJ3+6IWjoh/+2 +P87DF73V7Tmnd4Dkpx2egud5eCD6PyXXQwbwRLrHYdtdHnbyfjXu1toGfUc1 +DU8W8zAjW+W9IG8bLGi9uL6qhIcTTlbCtSu2gV6i+d8NZTwMV0j3PjKmD3Xi +DSlyD3gY+CFJ1zVfH54uLGkcr+Ohp+BadWU5fWiajlG+3kHFUycu5rZED4as +B6Q/dPLQY3jH075ZXRCt0J0lunlosrxb3n1YF3YGzDWc76F8f13I9ee60Dzm +dyi4l4c/lw/dKDmjCy++H0g2G+Yhn7eQhqmYLowYVoXE/uCherxkWsaMDojn +0w49G+HhoLzZj+nvOmBypHWd9i8e2s2+Vm5v1oFXfTsauCQPZXgdi5XidGBU +N6/QYZKKz5tb+fGEDkhcX5CcMcVDw4Nu85neOmBm/8heaoaHCk3G63eY64Bv +zUoDk1keGnzRE16vqwOJq4LXnfnLw5nXPUYMVR0oDmuXqp/j4ZnUzmk6Swfe +9KjOzM/zkLjFL6i8Qgf+B9fNJtc= + "]]}, "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.4388968087800817`}}, + 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.992078824814333*^9, + 3.9920788491820545`*^9}, {3.992078882376375*^9, 3.992078982156996*^9}, { + 3.9920790141192036`*^9, 3.992079024802227*^9}, {3.992079074393759*^9, + 3.9920790919847393`*^9}}, + CellLabel-> + "Out[225]=",ExpressionUUID->"234e7618-02cb-f54f-8a4f-c7fab5258207"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l111", ",", "l222"}], "]"}]], "Input", + CellLabel-> + "In[226]:=",ExpressionUUID->"8e7fc59d-e930-4546-bd23-1735ec9df535"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Gk4lW3XB3BReohSUjKEva9rXxIpFYrbWqTSLSLTzpAhyZAhIlMZQpEp +U0IiyhQyZCgpwy1EMkQRUTInotDAu98P6ziP34dzrf+xPiwJK+eTZ9nZ2Nj6 +WfX/L3/RK0cbGyGsoj0PHRqcgtRsjBe0FcILflv3PB6YAsm0x1XNdkKorbPP +79qHKVCOurtO1lEI1bi1eCXfTYG1o1vOgpsQ1n1e+shsm4LSHcJfrgcI4bCr +fY/nsynQv2dvmpcihDVNzzrzE6cgLpZLc6ZDCCdm9/o3/zsF/61KMU7WEMbC +2PtWK+GTECUwut+7TBjvaHAOrDyfgPvCF/X30ERw+xoq/0DfODjkG9znuiWC +fgfMRhprx+DV8LcagdWi+MBw+FFx6ij0ZQ3wHfIWRavmi1qX1EZAwWxDhsa0 +KOb79kgXtA2DdMUiW6DxdqxTNPaytfgM7anyNz+0bUcbCd0GpZoh4Nsp89X+ +HzHUzWbf3LNvEJJzzoa3Z4uhiqhn5aXT/TB5aqng4XpxFPdWWycq1gvde1Iu +cx8WR3v/XWmzcj1w+4Tdl0U/cey+1XGtY28XBNr0OHVWimP0D7cXw17toPhG +YuDlN3GUBysJD63X0OCXMHJcSgIndY1TtOqaQDxwtGvSQgJH//jWV7M1wMlm +K1PhFAk0u2maQTnXQu46vzUK3RIYuLh0jaezGtruXoo7z0PDva+8Vv1aqoQW +r6QquaM0DPvXg2f+ymNIeHC7edMVGmolhj41+FEEuyjm73GWr/PqlCSOFUFD +1hbpGj8avlEo5hzuK4If2bERzgE0NLXaWxBbWwT6eRE6LUE0tKlpCjCMLoJN +jwK6g2/QkFtnWtNGpggiK+0+LSbS8EZmhUyU4yMIaTnwa6CEhil1X7zEuQtg +/09Tx8ZSGsYwVxKffM+HYTH/waLHNMzekPrmbF8+qLk1NASV0zBYzO/0t4f5 +sLJNL1bqKQ3zy/9patXJB89z56U9ammImRY3CpIfgj373dO87az8g+ViZf/k +gbbi6jqlaRomzJOGqY+yQaOz+o7ANxpWSX6s90zNBjUnL89vLC/qrhkwD88G +hcxpmYxZGgr27pnRs80Gcb73idw/aMh5909Fh3g2zI3mO73/TcNHi2IbiLgs +SLxlJHSJi46XuTMEB68+gM8/cy8UE3RcAmOmcEgmzB9sjkwl6digyNGS6p4J +nH7jeWEMOmLcsdldZzNBaq3kiJUkHfU302Tc1TPBZet9Y35pOsr9UnRN5MiE +ZYW7hy7upWP1Fa+rckEZIOQVKyCvRkf/5PljnpH3QOe3T2WlOR2F08Q0Pf5L +gyN1EtfSLei4WzvgKq0iDZRvvNQPtaTj+fhXC+9y02CHMP8M8wwdpZS+e1hH +pwG7Ui5j0YaOIQ5Wq3+YpMFj73ex8k509G41kZgavwtCv/Y5lfjS8W2o+US4 +aSp8XvxKy79Nx+aH8vXqXslAyO1kBifR8VLmkutL62SwcbCNMEumo4H4uWWm +TjKM939a4L1Dx50vswKzqWT4VtvT4pRGR6W3veRidxL8Dq/x2J1FR/c33vy6 +iknALxHfXFJKR7XjIg8y19yGQ8eUXZ+0sf7vLo6qbkyAlJ0D45lv6Hhow4kH +SmUJMM/rbxnVTseckI0uLzMS4EFHnY51Jx2Xs2JmuP0SgNtUU3Z9Dx2ftS05 +o3wCtDsZT1kO0DG9wL3LJCsezOM8bbi+0nHh99hWrrg48PlYaszkJnDQuVz1 +T1wMiO+dPrB3HYHSX2g/u0JioD6E2raeh8Ce5Qyo8IwBnl1JPXW8BHb6e7ul +msZAiq+fvuxGArMfJ4aNETFQte1fbU5BAifyJkbPl9+Ev3ofVUtJAs/Q9kyy +D0eDXyPXDj5VAulvmPqPSiLhf2lNFSMsb3TfWPwoJRKiL4VqPFMjcGjcZW1t +cCTcY3DZ2qsTGHQhx3YrMxLqg/6XVX+UQN41diU3/kYAt+pa0kubwA8LeQtR +mhEQV7la4pMJa16Y+5HHczcgJ3dFsNSDwK1sWjf/XAiFf3cSkymXCBzgy0lH +s1CYyNN4FuxJoEUczTJeIxSk8m9aGnkTeFaLqHQRC4XcQnrur8sEUlm+ll9b +r0Nu6VEl1WACT8W06s3JsFwdZfY6lsCW7l1F75dCIK9D7N7YIwK50idGHKuD +IKG+r6+miMCf1ja1qQVBEFh2SyC5mECZ1Z/D+lKDgJm0IVSrlECj11nPPf2C +YLXVinNxOYHOmw/WoWoQnJ4d+Me3msC/h2/cWWm4Cpv4Ut9vaGH5Sdz+v72B +4K0lslFhlJW/1GtOlh4AvmPKEbQxAnHj0NlVAgHgd9WMa/04yyYBPgOcARBU +mbrqywSBN8NH7Z9O+EMUKfE9ZprAfn4Vg5Vif8j8S3ZO/yCQFLA4mnXYH17n +y8Y/WE1iStIV8QsjV0Bi/aFtW2gkFh7XP/a31wechH7/mWU5KWeowPE/H6hi +lAy20knULinOmi70ASbQs4NJEiMTh8VpwT4Q7cKh8EOSxAbZ6U6t3T6w3FGn +3yVL4m+TLsf8UG/ou6UeHfMPiXPSxzoVNbwgXuLI2g2nSNTrVeFcnPWAxqKg +5BGWZxb3c4YOesAv1TrZamMSr4QTclSbB5y2QqajKYl+47EjYQ89QDLjYM4r +cxJ3aK4UTp/zgCpCVvO6DYl8uhe0xYbc4RMlGLXqIondjW5unz5cBNldE1vm +I0n0EAvVmV9wZd3biK/9USQGFy6OaI+5Qm3a7vqX0SR2Kv82KHvnCob8ly4k +x5AYtuNnbF6lK1xZ5GhRS2Dtp0LFcZevK7TUigbcvEOiyqOl5HAOV7A10p3c +9ZDEplLDJmvhC5DuX/HcronE3fxa3e97nUB+59zfQ80kVocKi/LXOUHzWxnl +7a9IdC24k3k6zwnmpTIqOlpY/ZUpFWlfJ9B4G1Gk9IZEhbjLgmnbnWBmx5kM +3h4Sff193AdsHAE7ea8VDZM4GXFPhbn6PAySZ7SXVkjMsw2PdXOxg3Av9rYv +bAyUl9exkzOxgwOt6Sc6VjEw57nIHPsRO4i5OKiTx8FAgYcqY++E7eBQnZme +2VoGzq89VmPYaAsPLJjMmvUMVDM2ToogbOF8spZVqCgDlVaOZAeP28ACn6LH +NiUGfgp+97ronjVcHzPLWqXMwIrtIUM1N61B8MXVd+MsL+eKdHz0t4aDzm0H +n6gwMKZqQOywuTVcabVZMVZjoOzW3L2lItbAGRZ/PeUYAxftPUOFks7AFo65 +JDEmA395DZBVqVaw70f+c9Kdgb1Sjs/4Wi2AT8WBucyyYHX+kz0vLGAqRHK2 +24OB2zjXR5mWWECmYAbtuicDmTuV7rbdtgAB5cTgCR8GLswOhUuds4CfgYGa +hYEMHHcNlc7nsIBKPqMexWgGdo2ek7G5dhpUpNm+aeYx8AQbX4hflQnIbac1 +yz9koHea6A+3+yZA8qnfl8hn4Pb7OQE+kSbAM3/NZKGAgQ8ebi6tszCB3qcb +Gu8VM3BT0WyDPKcJeGiKpS9VMrDmQ/rmJH1jKLRX0ctqZCCj55Xl5DITxHN8 +y9lHWPvj/TgTHWII5jzyv/pZNtYf+S7gbgipzt+UK0cZ+FJ10D/7jCEIy1vV +Oo8z8LBH55afaAhb6o62fphi4Aud8LVyfwyAp3/T57I5Bope5vhLdzeARb6c +9Q6rKCzhC+zJcdGHNs+3ZztFKDwrcm2eFn4SvpsLnMoVpfC1C0f1misnYctR +g+MB2ynsOragOud8EkwF3srJilOY/uM5c1rvJEwUda2E0Sn0JoI/nhE5Casn +O2+rSVHob3FU73ChLhww62gtUqCQS7Npa94HHchQbdsffZLCSO7f9OpsbRho +d3Pw0qMwY+pEumOUNghaCaZb6VNo8dqdTc5DGyIDLXn2G1IYq+UrtnRIGzzr +5j69P0WhfeVldr9BLdA+LBhNt6Twq75GkrGoFixpWE6UOVNYvm1Ta/99TTih +M5faH06hYZ+vzP1pDejSlVUuj6Dwo0GOglOfBhjrObyPjmTlKf/Ce6RRA2wM +P/OrR1PoMsk/K3FPA66Ydl7PjaWQseutQaihBhTYlrheSqJQPzmrnaf2KPAE +uB3ZmE2hLJ/95qSMI6z7NfdVvY5CE9eeuKBIdTgvKNOrUE+hpFn8mbe+6rDB +z6ZB6j8K/9wMtNnvoA6Gx9+n8r2kkP70WRdNQx2GR6pPfGimMEl7crSIXR3Y +RMKK3DooPDgzVxbvfQgUQ8Td7w1RKCZpdEfEXQ0+TJ2yjP9EYWmmsrfSWTXw +04vVuv6Z1X8kaPmcgRo0iHMynL5QWKBh/np8vxroP53sPjBOoRAaHY5aUAWX +mTLF9hkKm3TLAowuq8JmoxmifpZCI2cNB00nVSh/tmNj+XcKzctVDh83V4Xl +sJTxlHkKj5NTdy6qqkI4GZhku0jhrebz+ac5VWF3+NMQkyUKsxxWhisWEDq/ +z7tq/6KwYWjzY7FxBKEX5zT3/aHwZXXo3KYWhGpGugL1l8J2Tsvjd58hWEX0 +0oWWKazozt2kWIjAOc/Px7tC4RriiVJ/GkKOsdafFZYvrJusioxB+D/0yENl + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Gk4lW3XB3BReohSUjKEva9rXxIpFYrbWqTSLSLTzpAhyZAhIlMZQpEp +U0IiyhQyZCgpwy1EMkQRUTInotDAu98P6ziP34dzrf+xPiwJK+eTZ9nZ2Nj6 +WfX/L3/RK0cbGyGsoj0PHRqcgtRsjBe0FcILflv3PB6YAsm0x1XNdkKorbPP +79qHKVCOurtO1lEI1bi1eCXfTYG1o1vOgpsQ1n1e+shsm4LSHcJfrgcI4bCr +fY/nsynQv2dvmpcihDVNzzrzE6cgLpZLc6ZDCCdm9/o3/zsF/61KMU7WEMbC +2PtWK+GTECUwut+7TBjvaHAOrDyfgPvCF/X30ERw+xoq/0DfODjkG9znuiWC +fgfMRhprx+DV8LcagdWi+MBw+FFx6ij0ZQ3wHfIWRavmi1qX1EZAwWxDhsa0 +KOb79kgXtA2DdMUiW6DxdqxTNPaytfgM7anyNz+0bUcbCd0GpZoh4Nsp89X+ +HzHUzWbf3LNvEJJzzoa3Z4uhiqhn5aXT/TB5aqng4XpxFPdWWycq1gvde1Iu +cx8WR3v/XWmzcj1w+4Tdl0U/cey+1XGtY28XBNr0OHVWimP0D7cXw17toPhG +YuDlN3GUBysJD63X0OCXMHJcSgIndY1TtOqaQDxwtGvSQgJH//jWV7M1wMlm +K1PhFAk0u2maQTnXQu46vzUK3RIYuLh0jaezGtruXoo7z0PDva+8Vv1aqoQW +r6QquaM0DPvXg2f+ymNIeHC7edMVGmolhj41+FEEuyjm73GWr/PqlCSOFUFD +1hbpGj8avlEo5hzuK4If2bERzgE0NLXaWxBbWwT6eRE6LUE0tKlpCjCMLoJN +jwK6g2/QkFtnWtNGpggiK+0+LSbS8EZmhUyU4yMIaTnwa6CEhil1X7zEuQtg +/09Tx8ZSGsYwVxKffM+HYTH/waLHNMzekPrmbF8+qLk1NASV0zBYzO/0t4f5 +sLJNL1bqKQ3zy/9patXJB89z56U9ammImRY3CpIfgj373dO87az8g+ViZf/k +gbbi6jqlaRomzJOGqY+yQaOz+o7ANxpWSX6s90zNBjUnL89vLC/qrhkwD88G +hcxpmYxZGgr27pnRs80Gcb73idw/aMh5909Fh3g2zI3mO73/TcNHi2IbiLgs +SLxlJHSJi46XuTMEB68+gM8/cy8UE3RcAmOmcEgmzB9sjkwl6digyNGS6p4J +nH7jeWEMOmLcsdldZzNBaq3kiJUkHfU302Tc1TPBZet9Y35pOsr9UnRN5MiE +ZYW7hy7upWP1Fa+rckEZIOQVKyCvRkf/5PljnpH3QOe3T2WlOR2F08Q0Pf5L +gyN1EtfSLei4WzvgKq0iDZRvvNQPtaTj+fhXC+9y02CHMP8M8wwdpZS+e1hH +pwG7Ui5j0YaOIQ5Wq3+YpMFj73ex8k509G41kZgavwtCv/Y5lfjS8W2o+US4 +aSp8XvxKy79Nx+aH8vXqXslAyO1kBifR8VLmkutL62SwcbCNMEumo4H4uWWm +TjKM939a4L1Dx50vswKzqWT4VtvT4pRGR6W3veRidxL8Dq/x2J1FR/c33vy6 +iknALxHfXFJKR7XjIg8y19yGQ8eUXZ+0sf7vLo6qbkyAlJ0D45lv6Hhow4kH +SmUJMM/rbxnVTseckI0uLzMS4EFHnY51Jx2Xs2JmuP0SgNtUU3Z9Dx2ftS05 +o3wCtDsZT1kO0DG9wL3LJCsezOM8bbi+0nHh99hWrrg48PlYaszkJnDQuVz1 +T1wMiO+dPrB3HYHSX2g/u0JioD6E2raeh8Ce5Qyo8IwBnl1JPXW8BHb6e7ul +msZAiq+fvuxGArMfJ4aNETFQte1fbU5BAifyJkbPl9+Ev3ofVUtJAs/Q9kyy +D0eDXyPXDj5VAulvmPqPSiLhf2lNFSMsb3TfWPwoJRKiL4VqPFMjcGjcZW1t +cCTcY3DZ2qsTGHQhx3YrMxLqg/6XVX+UQN41diU3/kYAt+pa0kubwA8LeQtR +mhEQV7la4pMJa16Y+5HHczcgJ3dFsNSDwK1sWjf/XAiFf3cSkymXCBzgy0lH +s1CYyNN4FuxJoEUczTJeIxSk8m9aGnkTeFaLqHQRC4XcQnrur8sEUlm+ll9b +r0Nu6VEl1WACT8W06s3JsFwdZfY6lsCW7l1F75dCIK9D7N7YIwK50idGHKuD +IKG+r6+miMCf1ja1qQVBEFh2SyC5mECZ1Z/D+lKDgJm0IVSrlECj11nPPf2C +YLXVinNxOYHOmw/WoWoQnJ4d+Me3msC/h2/cWWm4Cpv4Ut9vaGH5Sdz+v72B +4K0lslFhlJW/1GtOlh4AvmPKEbQxAnHj0NlVAgHgd9WMa/04yyYBPgOcARBU +mbrqywSBN8NH7Z9O+EMUKfE9ZprAfn4Vg5Vif8j8S3ZO/yCQFLA4mnXYH17n +y8Y/WE1iStIV8QsjV0Bi/aFtW2gkFh7XP/a31wechH7/mWU5KWeowPE/H6hi +lAy20knULinOmi70ASbQs4NJEiMTh8VpwT4Q7cKh8EOSxAbZ6U6t3T6w3FGn +3yVL4m+TLsf8UG/ou6UeHfMPiXPSxzoVNbwgXuLI2g2nSNTrVeFcnPWAxqKg +5BGWZxb3c4YOesAv1TrZamMSr4QTclSbB5y2QqajKYl+47EjYQ89QDLjYM4r +cxJ3aK4UTp/zgCpCVvO6DYl8uhe0xYbc4RMlGLXqIondjW5unz5cBNldE1vm +I0n0EAvVmV9wZd3biK/9USQGFy6OaI+5Qm3a7vqX0SR2Kv82KHvnCob8ly4k +x5AYtuNnbF6lK1xZ5GhRS2Dtp0LFcZevK7TUigbcvEOiyqOl5HAOV7A10p3c +9ZDEplLDJmvhC5DuX/HcronE3fxa3e97nUB+59zfQ80kVocKi/LXOUHzWxnl +7a9IdC24k3k6zwnmpTIqOlpY/ZUpFWlfJ9B4G1Gk9IZEhbjLgmnbnWBmx5kM +3h4Sff193AdsHAE7ea8VDZM4GXFPhbn6PAySZ7SXVkjMsw2PdXOxg3Av9rYv +bAyUl9exkzOxgwOt6Sc6VjEw57nIHPsRO4i5OKiTx8FAgYcqY++E7eBQnZme +2VoGzq89VmPYaAsPLJjMmvUMVDM2ToogbOF8spZVqCgDlVaOZAeP28ACn6LH +NiUGfgp+97ronjVcHzPLWqXMwIrtIUM1N61B8MXVd+MsL+eKdHz0t4aDzm0H +n6gwMKZqQOywuTVcabVZMVZjoOzW3L2lItbAGRZ/PeUYAxftPUOFks7AFo65 +JDEmA395DZBVqVaw70f+c9Kdgb1Sjs/4Wi2AT8WBucyyYHX+kz0vLGAqRHK2 +24OB2zjXR5mWWECmYAbtuicDmTuV7rbdtgAB5cTgCR8GLswOhUuds4CfgYGa +hYEMHHcNlc7nsIBKPqMexWgGdo2ek7G5dhpUpNm+aeYx8AQbX4hflQnIbac1 +yz9koHea6A+3+yZA8qnfl8hn4Pb7OQE+kSbAM3/NZKGAgQ8ebi6tszCB3qcb +Gu8VM3BT0WyDPKcJeGiKpS9VMrDmQ/rmJH1jKLRX0ctqZCCj55Xl5DITxHN8 +y9lHWPvj/TgTHWII5jzyv/pZNtYf+S7gbgipzt+UK0cZ+FJ10D/7jCEIy1vV +Oo8z8LBH55afaAhb6o62fphi4Aud8LVyfwyAp3/T57I5Bope5vhLdzeARb6c +9Q6rKCzhC+zJcdGHNs+3ZztFKDwrcm2eFn4SvpsLnMoVpfC1C0f1misnYctR +g+MB2ynsOragOud8EkwF3srJilOY/uM5c1rvJEwUda2E0Sn0JoI/nhE5Casn +O2+rSVHob3FU73ChLhww62gtUqCQS7Npa94HHchQbdsffZLCSO7f9OpsbRho +d3Pw0qMwY+pEumOUNghaCaZb6VNo8dqdTc5DGyIDLXn2G1IYq+UrtnRIGzzr +5j69P0WhfeVldr9BLdA+LBhNt6Twq75GkrGoFixpWE6UOVNYvm1Ta/99TTih +M5faH06hYZ+vzP1pDejSlVUuj6Dwo0GOglOfBhjrObyPjmTlKf/Ce6RRA2wM +P/OrR1PoMsk/K3FPA66Ydl7PjaWQseutQaihBhTYlrheSqJQPzmrnaf2KPAE +uB3ZmE2hLJ/95qSMI6z7NfdVvY5CE9eeuKBIdTgvKNOrUE+hpFn8mbe+6rDB +z6ZB6j8K/9wMtNnvoA6Gx9+n8r2kkP70WRdNQx2GR6pPfGimMEl7crSIXR3Y +RMKK3DooPDgzVxbvfQgUQ8Td7w1RKCZpdEfEXQ0+TJ2yjP9EYWmmsrfSWTXw +04vVuv6Z1X8kaPmcgRo0iHMynL5QWKBh/np8vxroP53sPjBOoRAaHY5aUAWX +mTLF9hkKm3TLAowuq8JmoxmifpZCI2cNB00nVSh/tmNj+XcKzctVDh83V4Xl +sJTxlHkKj5NTdy6qqkI4GZhku0jhrebz+ac5VWF3+NMQkyUKsxxWhisWEDq/ +z7tq/6KwYWjzY7FxBKEX5zT3/aHwZXXo3KYWhGpGugL1l8J2Tsvjd58hWEX0 +0oWWKazozt2kWIjAOc/Px7tC4RriiVJ/GkKOsdafFZYvrJusioxB+D/0yENl + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6.6, 12}, {0., 0.9024512949336763}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.600000000000014, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{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.6, 12}, {0., 0.9024512949336763}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.600000000000014, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Gk4lW3XB3BReohSUjKEva9rXxIpFYrbWqTSLSLTzpAhyZAhIlMZQpEp +U0IiyhQyZCgpwy1EMkQRUTInotDAu98P6ziP34dzrf+xPiwJK+eTZ9nZ2Nj6 +WfX/L3/RK0cbGyGsoj0PHRqcgtRsjBe0FcILflv3PB6YAsm0x1XNdkKorbPP +79qHKVCOurtO1lEI1bi1eCXfTYG1o1vOgpsQ1n1e+shsm4LSHcJfrgcI4bCr +fY/nsynQv2dvmpcihDVNzzrzE6cgLpZLc6ZDCCdm9/o3/zsF/61KMU7WEMbC +2PtWK+GTECUwut+7TBjvaHAOrDyfgPvCF/X30ERw+xoq/0DfODjkG9znuiWC +fgfMRhprx+DV8LcagdWi+MBw+FFx6ij0ZQ3wHfIWRavmi1qX1EZAwWxDhsa0 +KOb79kgXtA2DdMUiW6DxdqxTNPaytfgM7anyNz+0bUcbCd0GpZoh4Nsp89X+ +HzHUzWbf3LNvEJJzzoa3Z4uhiqhn5aXT/TB5aqng4XpxFPdWWycq1gvde1Iu +cx8WR3v/XWmzcj1w+4Tdl0U/cey+1XGtY28XBNr0OHVWimP0D7cXw17toPhG +YuDlN3GUBysJD63X0OCXMHJcSgIndY1TtOqaQDxwtGvSQgJH//jWV7M1wMlm +K1PhFAk0u2maQTnXQu46vzUK3RIYuLh0jaezGtruXoo7z0PDva+8Vv1aqoQW +r6QquaM0DPvXg2f+ymNIeHC7edMVGmolhj41+FEEuyjm73GWr/PqlCSOFUFD +1hbpGj8avlEo5hzuK4If2bERzgE0NLXaWxBbWwT6eRE6LUE0tKlpCjCMLoJN +jwK6g2/QkFtnWtNGpggiK+0+LSbS8EZmhUyU4yMIaTnwa6CEhil1X7zEuQtg +/09Tx8ZSGsYwVxKffM+HYTH/waLHNMzekPrmbF8+qLk1NASV0zBYzO/0t4f5 +sLJNL1bqKQ3zy/9patXJB89z56U9ammImRY3CpIfgj373dO87az8g+ViZf/k +gbbi6jqlaRomzJOGqY+yQaOz+o7ANxpWSX6s90zNBjUnL89vLC/qrhkwD88G +hcxpmYxZGgr27pnRs80Gcb73idw/aMh5909Fh3g2zI3mO73/TcNHi2IbiLgs +SLxlJHSJi46XuTMEB68+gM8/cy8UE3RcAmOmcEgmzB9sjkwl6digyNGS6p4J +nH7jeWEMOmLcsdldZzNBaq3kiJUkHfU302Tc1TPBZet9Y35pOsr9UnRN5MiE +ZYW7hy7upWP1Fa+rckEZIOQVKyCvRkf/5PljnpH3QOe3T2WlOR2F08Q0Pf5L +gyN1EtfSLei4WzvgKq0iDZRvvNQPtaTj+fhXC+9y02CHMP8M8wwdpZS+e1hH +pwG7Ui5j0YaOIQ5Wq3+YpMFj73ex8k509G41kZgavwtCv/Y5lfjS8W2o+US4 +aSp8XvxKy79Nx+aH8vXqXslAyO1kBifR8VLmkutL62SwcbCNMEumo4H4uWWm +TjKM939a4L1Dx50vswKzqWT4VtvT4pRGR6W3veRidxL8Dq/x2J1FR/c33vy6 +iknALxHfXFJKR7XjIg8y19yGQ8eUXZ+0sf7vLo6qbkyAlJ0D45lv6Hhow4kH +SmUJMM/rbxnVTseckI0uLzMS4EFHnY51Jx2Xs2JmuP0SgNtUU3Z9Dx2ftS05 +o3wCtDsZT1kO0DG9wL3LJCsezOM8bbi+0nHh99hWrrg48PlYaszkJnDQuVz1 +T1wMiO+dPrB3HYHSX2g/u0JioD6E2raeh8Ce5Qyo8IwBnl1JPXW8BHb6e7ul +msZAiq+fvuxGArMfJ4aNETFQte1fbU5BAifyJkbPl9+Ev3ofVUtJAs/Q9kyy +D0eDXyPXDj5VAulvmPqPSiLhf2lNFSMsb3TfWPwoJRKiL4VqPFMjcGjcZW1t +cCTcY3DZ2qsTGHQhx3YrMxLqg/6XVX+UQN41diU3/kYAt+pa0kubwA8LeQtR +mhEQV7la4pMJa16Y+5HHczcgJ3dFsNSDwK1sWjf/XAiFf3cSkymXCBzgy0lH +s1CYyNN4FuxJoEUczTJeIxSk8m9aGnkTeFaLqHQRC4XcQnrur8sEUlm+ll9b +r0Nu6VEl1WACT8W06s3JsFwdZfY6lsCW7l1F75dCIK9D7N7YIwK50idGHKuD +IKG+r6+miMCf1ja1qQVBEFh2SyC5mECZ1Z/D+lKDgJm0IVSrlECj11nPPf2C +YLXVinNxOYHOmw/WoWoQnJ4d+Me3msC/h2/cWWm4Cpv4Ut9vaGH5Sdz+v72B +4K0lslFhlJW/1GtOlh4AvmPKEbQxAnHj0NlVAgHgd9WMa/04yyYBPgOcARBU +mbrqywSBN8NH7Z9O+EMUKfE9ZprAfn4Vg5Vif8j8S3ZO/yCQFLA4mnXYH17n +y8Y/WE1iStIV8QsjV0Bi/aFtW2gkFh7XP/a31wechH7/mWU5KWeowPE/H6hi +lAy20knULinOmi70ASbQs4NJEiMTh8VpwT4Q7cKh8EOSxAbZ6U6t3T6w3FGn +3yVL4m+TLsf8UG/ou6UeHfMPiXPSxzoVNbwgXuLI2g2nSNTrVeFcnPWAxqKg +5BGWZxb3c4YOesAv1TrZamMSr4QTclSbB5y2QqajKYl+47EjYQ89QDLjYM4r +cxJ3aK4UTp/zgCpCVvO6DYl8uhe0xYbc4RMlGLXqIondjW5unz5cBNldE1vm +I0n0EAvVmV9wZd3biK/9USQGFy6OaI+5Qm3a7vqX0SR2Kv82KHvnCob8ly4k +x5AYtuNnbF6lK1xZ5GhRS2Dtp0LFcZevK7TUigbcvEOiyqOl5HAOV7A10p3c +9ZDEplLDJmvhC5DuX/HcronE3fxa3e97nUB+59zfQ80kVocKi/LXOUHzWxnl +7a9IdC24k3k6zwnmpTIqOlpY/ZUpFWlfJ9B4G1Gk9IZEhbjLgmnbnWBmx5kM +3h4Sff193AdsHAE7ea8VDZM4GXFPhbn6PAySZ7SXVkjMsw2PdXOxg3Av9rYv +bAyUl9exkzOxgwOt6Sc6VjEw57nIHPsRO4i5OKiTx8FAgYcqY++E7eBQnZme +2VoGzq89VmPYaAsPLJjMmvUMVDM2ToogbOF8spZVqCgDlVaOZAeP28ACn6LH +NiUGfgp+97ronjVcHzPLWqXMwIrtIUM1N61B8MXVd+MsL+eKdHz0t4aDzm0H +n6gwMKZqQOywuTVcabVZMVZjoOzW3L2lItbAGRZ/PeUYAxftPUOFks7AFo65 +JDEmA395DZBVqVaw70f+c9Kdgb1Sjs/4Wi2AT8WBucyyYHX+kz0vLGAqRHK2 +24OB2zjXR5mWWECmYAbtuicDmTuV7rbdtgAB5cTgCR8GLswOhUuds4CfgYGa +hYEMHHcNlc7nsIBKPqMexWgGdo2ek7G5dhpUpNm+aeYx8AQbX4hflQnIbac1 +yz9koHea6A+3+yZA8qnfl8hn4Pb7OQE+kSbAM3/NZKGAgQ8ebi6tszCB3qcb +Gu8VM3BT0WyDPKcJeGiKpS9VMrDmQ/rmJH1jKLRX0ctqZCCj55Xl5DITxHN8 +y9lHWPvj/TgTHWII5jzyv/pZNtYf+S7gbgipzt+UK0cZ+FJ10D/7jCEIy1vV +Oo8z8LBH55afaAhb6o62fphi4Aud8LVyfwyAp3/T57I5Bope5vhLdzeARb6c +9Q6rKCzhC+zJcdGHNs+3ZztFKDwrcm2eFn4SvpsLnMoVpfC1C0f1misnYctR +g+MB2ynsOragOud8EkwF3srJilOY/uM5c1rvJEwUda2E0Sn0JoI/nhE5Casn +O2+rSVHob3FU73ChLhww62gtUqCQS7Npa94HHchQbdsffZLCSO7f9OpsbRho +d3Pw0qMwY+pEumOUNghaCaZb6VNo8dqdTc5DGyIDLXn2G1IYq+UrtnRIGzzr +5j69P0WhfeVldr9BLdA+LBhNt6Twq75GkrGoFixpWE6UOVNYvm1Ta/99TTih +M5faH06hYZ+vzP1pDejSlVUuj6Dwo0GOglOfBhjrObyPjmTlKf/Ce6RRA2wM +P/OrR1PoMsk/K3FPA66Ydl7PjaWQseutQaihBhTYlrheSqJQPzmrnaf2KPAE +uB3ZmE2hLJ/95qSMI6z7NfdVvY5CE9eeuKBIdTgvKNOrUE+hpFn8mbe+6rDB +z6ZB6j8K/9wMtNnvoA6Gx9+n8r2kkP70WRdNQx2GR6pPfGimMEl7crSIXR3Y +RMKK3DooPDgzVxbvfQgUQ8Td7w1RKCZpdEfEXQ0+TJ2yjP9EYWmmsrfSWTXw +04vVuv6Z1X8kaPmcgRo0iHMynL5QWKBh/np8vxroP53sPjBOoRAaHY5aUAWX +mTLF9hkKm3TLAowuq8JmoxmifpZCI2cNB00nVSh/tmNj+XcKzctVDh83V4Xl +sJTxlHkKj5NTdy6qqkI4GZhku0jhrebz+ac5VWF3+NMQkyUKsxxWhisWEDq/ +z7tq/6KwYWjzY7FxBKEX5zT3/aHwZXXo3KYWhGpGugL1l8J2Tsvjd58hWEX0 +0oWWKazozt2kWIjAOc/Px7tC4RriiVJ/GkKOsdafFZYvrJusioxB+D/0yENl + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6.6, 12}, {0., 0.9024512949336763}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.600000000000014, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + 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:eJwVV3k4VV0XN0SiJNF7rinufFMpSYZXa2UoiYxFURGRecoQkeJFpQyhFKIM +RUlkligK0ShjGmQoJImLiO98f51nP3uf9Zy1z29aCkc9zY7x8fDwHOPl4fn/ +00Y3eRkPD4Hbpoiu2Ltc+HdAsrYohkATEZE4Nd5p6H97jaPJoCD/N7poYR8X +JqVXDuUWU/A8/yP+WXMu9IkFue8GKdxQKGns7TQFV8yGc2rbpVDI9/DUJdFJ +KPm5W0XGQRpX3x794xs3Ade7Ck4Y/ZXGUvWMXpEX43DYUzi0+LIM0tafpMn+ +/QHnbff1/F0ri5k3Wusm8oYhJD17RLZcFmmvqZN1akPQtW3AmLpTDsX9a+76 +qveDeIh0iPUbOZzJPvm4PPoLrF5pecjl+FocSj3YKdbWC6fmz8QfmlqLEa7h +RaFnumC/9IF/V++Sx+r91+CQy3s4dMlNQjxBHg+W5g9MTr0B4n7AGv5OeWwM +snLQtH8J2/wFJj7SFFBwRdxudb0mEB45P33XRQFbXgd8e6TeADsEL7cfK1PA +qDsxvy5G14FTwBqpCj4qlr06ssZmySPYkRwftaBPxd/fH3HNd5fDaevYlxuT +qJhDz9U043kI3i8jwPQDFZuMDOUy8gvB7MqUhCiVhvZZveO7PubDFcHvT0vc +aZhaOyF+8EcOxNHaUo0f0vDIC7WGGMot+DG4w7iNh47KHN6HTPMboM6j6Ph7 +Dx0jNhyw39GQAurPRXKXJNCRIvXwee7JJEhT8azj+UhH+YWAccX0eCgxbhb4 +SWdgxDI//3L9i1Bdm1EQ4MJADcee5xpu0cDsnN00UsLAoYYouLMiAvTSDHpN +5hlImdRiPC0Ig0YhOftMfSaOfr9qs8wiGBYVvov3xzJx+dF11nP3/IERr8Sq +e8/EqA3sXaVffaAgZ0binAILlQd/9Pz84wGjzhXrdY6zcID9I4W/xhkuvpuX +/faQhToiXh3HVh4D2ctVviweNna5qp95bWAHdjw+v612slHPOyfE/JkNLJPI +N/RLYGPyluhLJxIswfF9z6vwLjZ+eOGkohpvDg9Go8rWr+Vg4qBy0wEjE7DN +Kw2sdeFg8GYFSkeNATyV7LXf+YCDXZxfTfs0d8LbXpW5xUUOEnd5+ZXWaEOL +RLvDgZ0Ersyyzl7SzwUxm85JbieBe0d3XJPlmwa3aYtobzcK7vuh0nzzNhdc +k3XzAmcpWLE62ar82xRUb1YWFrgghSJnbJfP109Czoyo07J4BdRfeuTUqz1P +oa3GInBlrwJmPdGFkqHH0CbY9rqHQcXGzmb/rzGV8DlQLH+NJxX7/JK38omU +woyE8NLacio6df/7fplOEfQpa+UpLVLRq1PoNv+pApjc6zn6ZRcNY5c7vjy1 +6w5IJB0u5Iun4aycr4jjjyzYLiDCje+mIcFxtFnckwmXfUu77Zl07Phs0tLt +nAoV9tcF5z3oKNaVtT0l8gqMhGg95Cun49nhgzuyfS8D50nq1wBeBoZ7Znx8 +vDIO1KK3HizexcB6Huu5IzXnwduw1XNzHAPtL0hfDVOIhFIN6lK5LgZaVm35 +7mFwFgTNVeRPUpmYIfzXwEo5FByS+Ku03Zj4o/XLe6uBQEg4sDztbRETazac +cS0vOgHD0hJy2XNMlF0I+b5C2huMhLrkB3VZ+Oc75d4pLTeolrPOTrrEQt2z +ETsK9J1g35YPjVHdLDQxkBazlbSHx03JW5DGxpKqmZ9tF47A1vOi8k5ubKRX +M2M1RQ5C+QmdS/MlbOwtZZksntwHy7880LGaZ6NIbJa4xgdTiN6z9ipXl4MO +ueMjd6OMQPzzbg/+Sxw8HPWfostRfWiejVa61clB4XpREdcVupC4XrVsPY1A +3YjX6qdecCFHPqC7rYjA8YlWjxKBaWAPTFu161NQ8q6muHgTFzZ13dGPa6fg +pyzcq6nABWOFdk3WMSksiFD9NUxMQecvQ6WeEAXcacRo1dCqh/N9vrkazQqo +F/vgaHZFLciBn5+BBBVLXPdGfK6rgrilpinCNlTsFjq8z51WBv+Wt7hM55D6 +o22bXSNTDHk8X07U/qDilq2e29O/3AeabxHPjAoNQy41uU6cz4P2VpqGzWka +ZpqKGqYPZYNTomeT13Ma6j08tCi34SbghnmJ1NV0jNd5Ohn2Pg1mN9uXBhyi +o9rllB6PG1ch4WbWPf5sOgZqOizf7ZUI9nP/mVX/pCM1+66m3ds44I4sKpmq +MtBaZdshlfkLkCy4LdYihIFX3lXcy4Mo8FgmmhrxnIFiE0JfPzHDgRn4eMFh +JRO9oy3EOx+dhjWvxFb6HGSi2yGnWl/JIGh89MfSOpOJ85VvcuLy/CC6PZNa +/I2JDkbP+ipnvSG049u1bVtYmHlN01sq0R0sdIWd3YJJ/YmbmfQLPg7e4W6/ +y56zcJ1e4lX2cgfw2HjnXfEqNtr+u1J2MNwW9ujVLrM9wMZP67tPittag61u +wA+1LDZqbcgvmD+9H9R7ni0bG2Zj1ucWz+oHZiCT+i53lTIHvzwcR9+lxqCu +F/bb7hQHX/bVdGSf2w3PlhY3TdZz0IN/g5qSrB4s+esnHulMYMmDw8p/prgQ +dEV9JWWRwJf0Q1HuXC4ULisqWx5HQdeu3o3nz5B4Mv8kYicjhaHL0k8V5U3B +y5HDSaajHOTxElA3EdGBQDVH2+RVBF45vHfzq2ou/Dq7s/XpDQJdD8U2By6Z +BkGb3XVC2yjovvGKzaN2LiQEffhHpoGCma+41fs1uUBQbluomUmhRnpJ3hec +Au8x19W6JxSwXtrCV7yyHhxP8MPrWgUMuFAhNL62DrR7Gp6fEaGiRtSLhWN2 +1fBtr3dchBkV9bWJ8tyHZfBxWYHM6nQq+le5jOtdLIZLQ8rdQgNUnGnke7LZ +qBA0BNqEwxVpWNnQ4piknA+qLoKL0f40dEmavs3vnAPzPQpbPj+iYVOjpuvX +zJuwRnitspowHWPvbFknmJAOFMquSyUWdPyV26d6f1MKDKpYrYu4Tkf+HYXS +lr8Tgefqn3MfB0k9C9QrldoWD+2yA1IZGxhoslPxU1JGDNz5OiI36MvA9n0O +96XaoqB5PHywrIaBerIZY7+uhkOpsMBYtwATGx+vyI7RC4Ofrv9UnDNl4tYq +R/f+oiDo/+ldcuMqE/1fMDVerPOH9uJvdI1PTNxyJ7hZz90H1jwet7Rdx0J0 +OMLy0fMA+Y4vzR3eLAzdZWhRJuUMp/MfCpnUsPDe7eKGjTEO8My26NYPITZ+ +l3//UXXQFtqpKaEfjNn4rW1T/bSYDaisXyVreZ2ND4grMzeWWoKJ1ZtRtT42 +8jVcl9wibw6O9feUbrA5ODoik5v40hhaAqRV431Jfao57ehHNYB60cZk2SoO +BnxM1HHJ04NvQjlVPy1JvcIfhm0/uNAwK8QnNEpg6y0J1P/LhUth/PIQSkH6 +HrvWb0lcEJpa1TMqLIXC3mxXu+YpaJnwPRrUx8Gfq4dvF5/XgUJ5QdGnKgSG +25ZIx3Vywbomd2iggcDPdNX8URJ/Bh4547cOUjBUgNe4qIIL8r/0nGWCCcys +HZb3meeC0lYXmXXiFKQWndWKJb/ndf/uRjaXg1KczuWKsdrgsn1B5YUQgXbd +B62/POTCGpWCnZrJBDY3ls0S/NPg94/PlMJGChrec1ky9oELOi/8Fu2qKXhE +zD2kYxcX/kqs+lKrL4WvG0UULS2moMYt+L9ATwWETMG2mNl6sNB6ISxdrYDb +Qzzf/zavAwvOmJfsUiq2LcR89S6qhkQf3pg6IyqeCTjgdGmhDAqK0qcyUqjY +oV6QFvSsGHh6epbf+0zFoFiLJuapQtj5sj+2kUlDaYcU9ZGofHAsD7Bb60PD +y3nch6/ycuDZ4p+hfypoOBWaePhg7004G1iIkQJ0dKb16fJOpMOd5epBFiZ0 +nJ7/9TUmKAXEFh4cr0+mY0l8QJekahLsHXyY7dlH4ts0PczSJR6elVrG7eIw +sEifdn/DZAwomz0b3OjJwImTzbuK10ZDYH/NBdNKBmq9ec2dfhsOC+9yByR5 +mXhwKF+h7WQY2FRKXZI0YmLvvqPzC3zBMBG9oX9HIhNbu1Mi+N38IZS6PCek +m4k/Y602yd/2gb6iE6WTDBaa/XlannfDAyIzWoNXuLMwaUdjULerM0Q+tlqd +WsHCPNnan0dbHWBitvTC+SVkPpvPrlYn7CA1XqBCag8bnzaVCku62oCc/EeV +wWQ2TgdqfL9paAk9yfsPf+xl40Aqso5amUNM57XfAzQO/jMWqMYrZQJrVjl3 +sD1JvB8suK3sZQC6CWZ/N5dyMEw+zev4hB50i26PoxsTuDnZyUnhOxeG87yC +T/cRWMtYcu/3IokHzfUWVn4U3J92szboBhcq9fKfKPNJYVxNtVd51xTs8V9o +vNTLQePKjcG3XujATWZ637QigZJxV0vV33IhzHOl3aFqAqd1O1rjSX+v4Lyi +PzKlYGXyk4CrdVwQn+7VMvUh0H+3JMNtlgsWg2+SMoUouP4vz/3tE6TfH2/b +qPWLg7bzb5Q6WrQhUvnlBTspApc/eeFlVc+FljcfzQ3vEPgmWK7IkqzP5RMd +qrQl8F2E1mMZ8v0M/czouCkCRW2mA6T/cEF1BXp4vCJQezD5VwPJh40j9xKH +wgkc3axcKUL2KxzBd6tImoLzE9tjj3zjgqndYzuJOQ7KNxtt2m2mDfY7DG4c +W0IghlbzNBRySfwd5Q+IJ/AZr+1bNTLvrveLjC3gUFDl+uLXD5+4kOqr/XtJ +OQWfzJ1RnTTiwniCHktAVwqrDZrqfh6agn7F8BpxdwX0NclyvURpgGaF+161 +FQq41SKMd6NHHRw2Oas3soSKH4Uuiu3pqQaXiKZltnuoOHiZuf49rRzWLP2n +z+kKFe1tzX6bfi2GcotNzNMfqXidOfvu7eVCaFF2N3Ol07DYXil6pigfQo8U +Jgx70rDcPHRm/kUO5Mc7PSkupaHp95xF67mbUK40u2sDPx2PlR056UG9Ad6C +yuO0vXRsipOjtdxIgay+j1EOiXQ87hC1o94yCfxXJGxR+0zHM4patzdGxMN2 +/lV7pFkMND20P9pC7iIEnCs2eOfGwJ5vO+Y79aLB+LDNYblyBjpu7l6tOR4O +N9VO2hUvMPD19KF41cQwSLBLDewxYKJUS5eAo2IwBO67MCeewESlmmDroRh/ +eNuV5ri2k+Sf15mMdw0+0Hi3dKCGxkJiODRSsdUD1P/TsbjtwkKLtidrXiY6 +w/mmPEK7jIUzSzbYG4w5QPTOikUrPnIeiv4W6bPZDhYaNdsr9Nl4lzXTH3vV +BiSu1dfeS2Tj6g0va7w9LUFelfLPgx42BgbqeJWdMIf0o/H7zilwUGmHqWLK +FhOo6l15e9KNzDNtNq+drhjAkrYrm6qLOTjlaClYt2YnvFt1/k+NAanHOTJq +GYNcCAmnq1X1EijVbfae4J2Ghyk41u9Fwavm20Vlskg+jAWUvv9LwWPtEwd0 +vkyBcLnOPNFD8mt1j5zbqA5c5wwbJrAIjDF88HLoJRdW6z+VTSkj8BZvRksx +iX+vqK81u40omGvM+Hy0gQsifzi3R9wJ1HPyvFU7zYWhmv/MevkpGKARt8Vx +kguieZSjz8c4OCRn+mN2RBtOb5XizkkSOMWh+GTUcuFwXoJYdBbpd4ETR2ZI +f/opcNB0nw2BL5ae6hUY54Kywj69lnEyn5knLXkyx4XGgd/r8poJzGUvO+tM +nmeNzS6cOU1g0iqlsBbSL1NtSo+MraHg55P5TktHyHnx1pKk9BkOGhxxXczw +0oYI6z/nFq+RelCU/qeT5KfV2+oanSECE1tj6QULXBhLts5SqCOwjuXsYUz2 +S5mMf1fqT+BAVcfteZLf6rPrrogVEJhvYlmRTO7fUol5oNxGoJNCyCwvWW/r +N7t1RtEEmgVsfKrEMw0Ja4M2nv/Lwbk3vYY0FW34rO3VpsxHYHtJZsS9Ai5M +zFR9kYgl9SKzrbia/F9CWXEfTrAoWPhP8vjuL2S/z9nu7SUUtPzjnDprwoXv +b44Y5O6QQmmtx27FR6cgQGRpzydXBUxt/uycwWkAQYlM2uVyBZRI49t+ILgO ++uxblN7yU/FAJH9iy89q2H/xnr6SARVL/3RcuKhaDgabza32JFNxSqBqquVX +MSTGdysf76Wi2oNje0tuFMLKYw+K/6XR8L+7639facwH4WJDxdceNNQ8fD8y ++0MOpHen3T9TQsNOf5LPwrfA7ELaCx4+Og6ffbuxTuMG7AvfmC9iRMe/vYYL +p4tSYMzC74rKZXL/WLH1/eNJIJwZFiTziY5bV7yKYMfHQ9Add7YAk4HnNE06 +QrdcBClG3qlsV3KelTY+wHcgGjSk858vKSPnlUM/n44uhMPksN3as38ZeNzv +ekJAZhhs2NrrXrObicL3ZxUKIRiqNTWi5uKY2JfaYeqa5g+nSgZ3jrcz8WLa +QaHHbT5Qdcfy7y0qC5tq+DUE+j0gISC01s+Zha/OdCba3nGGmJfm0pKlLKRP +SF59s+AAb90q1ZGXjeIzWd0y2+2gsL/d4dwuNhqFaCccv28Doh1lkfGX2Vjp +FHdzNMwSnv4X5Hutm423ktk3fp01h9u5MYLW8hysFei2PYEmIKprH9ftysF3 +K7UUiXwD6D+hYXCmiIPpWcof+Dk7wWR1oVKMPoGVHwYr9g1w4Zln6JoDPQQG +8djp3iDxEtdooJnvQUFfne7HR3O4sF378KbcOQo+TK+/yjMwBcNWg5Ifuzjo +Prr7Wf+8DhCKYmePMAjUGdmltrWVCzYqsvOqJQTeDeC5U07i2bD0h4jYHgp+ +OC37Res5F6LnjHvLXQl8tXbw+WdyHtqU/2lTMC8FadHr+t3JeWnMoDo45gcH +1eLEU9PntGFeFRWbVpN58+TWmcoaLtxOHh1j3CTw0HNqWjXJV7elYZHUgwTW +8Ew5j49x4dSK+zSXMQK9/T+sP0fmT/G3Rsv0Gwk0X32Sdp88n/VzrYpxCIFa +k94PqSS/B/XFtsdIUNB6psrceJT0O53cAvtpMl97sSs+ndaG1l0Wx9OuEhil +m7t4iuRjZs2atC/9ZF6QTpi0IP13W3jJ2cc1ZH1rt7wTZL/JU2VCEScIjKu+ +/Hwbye+zAxF+Bfnk/TZdgGByf1R+MPb1GwKD+U7xHSfrFX2POiIVSeDe5khG +JlnPp1ZG33ieg/pfdQU36WiDrbwQo+sygSE27OG7pF83WzvDXAWBW9dJduWQ +9SRr1JSHcwi0KBhftZ5cn55NMVzeSqCifv0zabJfDc+MfLs0Ar06Lb6v/3// +ebzPwp8SOCPmTaGS58eXvyn3KSQw52qBXB65LgrtkGhY4OD5lK5ZKkMb/gcR +kibX + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1He4j3UYBvAje+89TwMpI6tkJZQ9DpHsY0SESmVkVFpoR2TPooxCoexZ +WRmZFcqIimxRfJ6rPz7nvr/f51xn/J73ehOT+yb1SZGQkNDNl8hivhyVnzGU +Js7ZOKC3op6egd36bCpQ2zk12/VpNNNzcEgfSEM9M3v1NrIgc/QWMje/6O1k +EW7RE+WvsoOcF79X5iOZYc5NZXY6cdD5MVmIrrR2ri8z0pE9zo/KAnThY+ck +mYvO/OzcVhamol5HpmGH3lrmZ7reXObkJ30QjfQs7NPn0lLPw2E9Jbfqv8n5 +DI+/gQbuMvGj/gmVqOuclh/0GQwmFbe5OyYX8GJ8blTmIffp2KnP5AVSc7u7 +43IhL8Vnwr2kIS3pSE8GMpKJzGQhK9nITg5ykos7/MwT8nNejs+J+8hNcbOT +8gtGxP6oQh5KmP0uF/EK7bmfvJQ0OyUX82rsmKrk406z03IJr9GRauSnlNkf +8ktepxPVKcBdZn/Kr3iDztSgIHeb/SWXMpJkalKI0mZn5DJG0YUHKEwZs7Ny +OaPpSi2KUNbsb/k1b9KNBylKObNz8hveoju1KcY9ZuflCt7mceqQSHmzC3Il +79Ajno14jqhgdlGu4l16xnMQzwgVzS7J1bzHEzwczwOVzC7LNbxPL+rFXqls +dkWu5QN6Uz/2Gs+N2VW5jjE8SYPYa+zf7B+5nrH0oWHsNfZvdk1u4EP60ij2 +Gvs3uy43Mo5+NI69xv7N/pWbGM9TNIm9xv7N/pOb+YinaRp7jf2b3ZDfMoFn +aBZ7jf3Hy4zvxET60zz2GvuPdx3f65N4lqTYa+w/3kFs0SfzHC1ir7F/9ynZ +qk/heVrGXmP/7lOxTZ/KAB6JXbhLzy59FkPi/3bOyn790/g+PS9H9PayaIr/ +38flnW8CB8uWHw== + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztykEKQFAYhdFfDGzDVhiYGFmCol6pV579h4GyBp3Jra97uiXP21pFlCYi +plTO7Y5P1U+198xjP+Q9H+n5U7yD4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO +4ziO4ziO4ziO4ziO4ziO4ziO4ziO4zj+Z34BL9xpfg== + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVV3k4VV0XN0SiJNF7rinufFMpSYZXa2UoiYxFURGRecoQkeJFpQyhFKIM +RUlkligK0ShjGmQoJImLiO98f51nP3uf9Zy1z29aCkc9zY7x8fDwHOPl4fn/ +00Y3eRkPD4Hbpoiu2Ltc+HdAsrYohkATEZE4Nd5p6H97jaPJoCD/N7poYR8X +JqVXDuUWU/A8/yP+WXMu9IkFue8GKdxQKGns7TQFV8yGc2rbpVDI9/DUJdFJ +KPm5W0XGQRpX3x794xs3Ade7Ck4Y/ZXGUvWMXpEX43DYUzi0+LIM0tafpMn+ +/QHnbff1/F0ri5k3Wusm8oYhJD17RLZcFmmvqZN1akPQtW3AmLpTDsX9a+76 +qveDeIh0iPUbOZzJPvm4PPoLrF5pecjl+FocSj3YKdbWC6fmz8QfmlqLEa7h +RaFnumC/9IF/V++Sx+r91+CQy3s4dMlNQjxBHg+W5g9MTr0B4n7AGv5OeWwM +snLQtH8J2/wFJj7SFFBwRdxudb0mEB45P33XRQFbXgd8e6TeADsEL7cfK1PA +qDsxvy5G14FTwBqpCj4qlr06ssZmySPYkRwftaBPxd/fH3HNd5fDaevYlxuT +qJhDz9U043kI3i8jwPQDFZuMDOUy8gvB7MqUhCiVhvZZveO7PubDFcHvT0vc +aZhaOyF+8EcOxNHaUo0f0vDIC7WGGMot+DG4w7iNh47KHN6HTPMboM6j6Ph7 +Dx0jNhyw39GQAurPRXKXJNCRIvXwee7JJEhT8azj+UhH+YWAccX0eCgxbhb4 +SWdgxDI//3L9i1Bdm1EQ4MJADcee5xpu0cDsnN00UsLAoYYouLMiAvTSDHpN +5hlImdRiPC0Ig0YhOftMfSaOfr9qs8wiGBYVvov3xzJx+dF11nP3/IERr8Sq +e8/EqA3sXaVffaAgZ0binAILlQd/9Pz84wGjzhXrdY6zcID9I4W/xhkuvpuX +/faQhToiXh3HVh4D2ctVviweNna5qp95bWAHdjw+v612slHPOyfE/JkNLJPI +N/RLYGPyluhLJxIswfF9z6vwLjZ+eOGkohpvDg9Go8rWr+Vg4qBy0wEjE7DN +Kw2sdeFg8GYFSkeNATyV7LXf+YCDXZxfTfs0d8LbXpW5xUUOEnd5+ZXWaEOL +RLvDgZ0Ersyyzl7SzwUxm85JbieBe0d3XJPlmwa3aYtobzcK7vuh0nzzNhdc +k3XzAmcpWLE62ar82xRUb1YWFrgghSJnbJfP109Czoyo07J4BdRfeuTUqz1P +oa3GInBlrwJmPdGFkqHH0CbY9rqHQcXGzmb/rzGV8DlQLH+NJxX7/JK38omU +woyE8NLacio6df/7fplOEfQpa+UpLVLRq1PoNv+pApjc6zn6ZRcNY5c7vjy1 +6w5IJB0u5Iun4aycr4jjjyzYLiDCje+mIcFxtFnckwmXfUu77Zl07Phs0tLt +nAoV9tcF5z3oKNaVtT0l8gqMhGg95Cun49nhgzuyfS8D50nq1wBeBoZ7Znx8 +vDIO1KK3HizexcB6Huu5IzXnwduw1XNzHAPtL0hfDVOIhFIN6lK5LgZaVm35 +7mFwFgTNVeRPUpmYIfzXwEo5FByS+Ku03Zj4o/XLe6uBQEg4sDztbRETazac +cS0vOgHD0hJy2XNMlF0I+b5C2huMhLrkB3VZ+Oc75d4pLTeolrPOTrrEQt2z +ETsK9J1g35YPjVHdLDQxkBazlbSHx03JW5DGxpKqmZ9tF47A1vOi8k5ubKRX +M2M1RQ5C+QmdS/MlbOwtZZksntwHy7880LGaZ6NIbJa4xgdTiN6z9ipXl4MO +ueMjd6OMQPzzbg/+Sxw8HPWfostRfWiejVa61clB4XpREdcVupC4XrVsPY1A +3YjX6qdecCFHPqC7rYjA8YlWjxKBaWAPTFu161NQ8q6muHgTFzZ13dGPa6fg +pyzcq6nABWOFdk3WMSksiFD9NUxMQecvQ6WeEAXcacRo1dCqh/N9vrkazQqo +F/vgaHZFLciBn5+BBBVLXPdGfK6rgrilpinCNlTsFjq8z51WBv+Wt7hM55D6 +o22bXSNTDHk8X07U/qDilq2e29O/3AeabxHPjAoNQy41uU6cz4P2VpqGzWka +ZpqKGqYPZYNTomeT13Ma6j08tCi34SbghnmJ1NV0jNd5Ohn2Pg1mN9uXBhyi +o9rllB6PG1ch4WbWPf5sOgZqOizf7ZUI9nP/mVX/pCM1+66m3ds44I4sKpmq +MtBaZdshlfkLkCy4LdYihIFX3lXcy4Mo8FgmmhrxnIFiE0JfPzHDgRn4eMFh +JRO9oy3EOx+dhjWvxFb6HGSi2yGnWl/JIGh89MfSOpOJ85VvcuLy/CC6PZNa +/I2JDkbP+ipnvSG049u1bVtYmHlN01sq0R0sdIWd3YJJ/YmbmfQLPg7e4W6/ +y56zcJ1e4lX2cgfw2HjnXfEqNtr+u1J2MNwW9ujVLrM9wMZP67tPittag61u +wA+1LDZqbcgvmD+9H9R7ni0bG2Zj1ucWz+oHZiCT+i53lTIHvzwcR9+lxqCu +F/bb7hQHX/bVdGSf2w3PlhY3TdZz0IN/g5qSrB4s+esnHulMYMmDw8p/prgQ +dEV9JWWRwJf0Q1HuXC4ULisqWx5HQdeu3o3nz5B4Mv8kYicjhaHL0k8V5U3B +y5HDSaajHOTxElA3EdGBQDVH2+RVBF45vHfzq2ou/Dq7s/XpDQJdD8U2By6Z +BkGb3XVC2yjovvGKzaN2LiQEffhHpoGCma+41fs1uUBQbluomUmhRnpJ3hec +Au8x19W6JxSwXtrCV7yyHhxP8MPrWgUMuFAhNL62DrR7Gp6fEaGiRtSLhWN2 +1fBtr3dchBkV9bWJ8tyHZfBxWYHM6nQq+le5jOtdLIZLQ8rdQgNUnGnke7LZ +qBA0BNqEwxVpWNnQ4piknA+qLoKL0f40dEmavs3vnAPzPQpbPj+iYVOjpuvX +zJuwRnitspowHWPvbFknmJAOFMquSyUWdPyV26d6f1MKDKpYrYu4Tkf+HYXS +lr8Tgefqn3MfB0k9C9QrldoWD+2yA1IZGxhoslPxU1JGDNz5OiI36MvA9n0O +96XaoqB5PHywrIaBerIZY7+uhkOpsMBYtwATGx+vyI7RC4Ofrv9UnDNl4tYq +R/f+oiDo/+ldcuMqE/1fMDVerPOH9uJvdI1PTNxyJ7hZz90H1jwet7Rdx0J0 +OMLy0fMA+Y4vzR3eLAzdZWhRJuUMp/MfCpnUsPDe7eKGjTEO8My26NYPITZ+ +l3//UXXQFtqpKaEfjNn4rW1T/bSYDaisXyVreZ2ND4grMzeWWoKJ1ZtRtT42 +8jVcl9wibw6O9feUbrA5ODoik5v40hhaAqRV431Jfao57ehHNYB60cZk2SoO +BnxM1HHJ04NvQjlVPy1JvcIfhm0/uNAwK8QnNEpg6y0J1P/LhUth/PIQSkH6 +HrvWb0lcEJpa1TMqLIXC3mxXu+YpaJnwPRrUx8Gfq4dvF5/XgUJ5QdGnKgSG +25ZIx3Vywbomd2iggcDPdNX8URJ/Bh4547cOUjBUgNe4qIIL8r/0nGWCCcys +HZb3meeC0lYXmXXiFKQWndWKJb/ndf/uRjaXg1KczuWKsdrgsn1B5YUQgXbd +B62/POTCGpWCnZrJBDY3ls0S/NPg94/PlMJGChrec1ky9oELOi/8Fu2qKXhE +zD2kYxcX/kqs+lKrL4WvG0UULS2moMYt+L9ATwWETMG2mNl6sNB6ISxdrYDb +Qzzf/zavAwvOmJfsUiq2LcR89S6qhkQf3pg6IyqeCTjgdGmhDAqK0qcyUqjY +oV6QFvSsGHh6epbf+0zFoFiLJuapQtj5sj+2kUlDaYcU9ZGofHAsD7Bb60PD +y3nch6/ycuDZ4p+hfypoOBWaePhg7004G1iIkQJ0dKb16fJOpMOd5epBFiZ0 +nJ7/9TUmKAXEFh4cr0+mY0l8QJekahLsHXyY7dlH4ts0PczSJR6elVrG7eIw +sEifdn/DZAwomz0b3OjJwImTzbuK10ZDYH/NBdNKBmq9ec2dfhsOC+9yByR5 +mXhwKF+h7WQY2FRKXZI0YmLvvqPzC3zBMBG9oX9HIhNbu1Mi+N38IZS6PCek +m4k/Y602yd/2gb6iE6WTDBaa/XlannfDAyIzWoNXuLMwaUdjULerM0Q+tlqd +WsHCPNnan0dbHWBitvTC+SVkPpvPrlYn7CA1XqBCag8bnzaVCku62oCc/EeV +wWQ2TgdqfL9paAk9yfsPf+xl40Aqso5amUNM57XfAzQO/jMWqMYrZQJrVjl3 +sD1JvB8suK3sZQC6CWZ/N5dyMEw+zev4hB50i26PoxsTuDnZyUnhOxeG87yC +T/cRWMtYcu/3IokHzfUWVn4U3J92szboBhcq9fKfKPNJYVxNtVd51xTs8V9o +vNTLQePKjcG3XujATWZ637QigZJxV0vV33IhzHOl3aFqAqd1O1rjSX+v4Lyi +PzKlYGXyk4CrdVwQn+7VMvUh0H+3JMNtlgsWg2+SMoUouP4vz/3tE6TfH2/b +qPWLg7bzb5Q6WrQhUvnlBTspApc/eeFlVc+FljcfzQ3vEPgmWK7IkqzP5RMd +qrQl8F2E1mMZ8v0M/czouCkCRW2mA6T/cEF1BXp4vCJQezD5VwPJh40j9xKH +wgkc3axcKUL2KxzBd6tImoLzE9tjj3zjgqndYzuJOQ7KNxtt2m2mDfY7DG4c +W0IghlbzNBRySfwd5Q+IJ/AZr+1bNTLvrveLjC3gUFDl+uLXD5+4kOqr/XtJ +OQWfzJ1RnTTiwniCHktAVwqrDZrqfh6agn7F8BpxdwX0NclyvURpgGaF+161 +FQq41SKMd6NHHRw2Oas3soSKH4Uuiu3pqQaXiKZltnuoOHiZuf49rRzWLP2n +z+kKFe1tzX6bfi2GcotNzNMfqXidOfvu7eVCaFF2N3Ol07DYXil6pigfQo8U +Jgx70rDcPHRm/kUO5Mc7PSkupaHp95xF67mbUK40u2sDPx2PlR056UG9Ad6C +yuO0vXRsipOjtdxIgay+j1EOiXQ87hC1o94yCfxXJGxR+0zHM4patzdGxMN2 +/lV7pFkMND20P9pC7iIEnCs2eOfGwJ5vO+Y79aLB+LDNYblyBjpu7l6tOR4O +N9VO2hUvMPD19KF41cQwSLBLDewxYKJUS5eAo2IwBO67MCeewESlmmDroRh/ +eNuV5ri2k+Sf15mMdw0+0Hi3dKCGxkJiODRSsdUD1P/TsbjtwkKLtidrXiY6 +w/mmPEK7jIUzSzbYG4w5QPTOikUrPnIeiv4W6bPZDhYaNdsr9Nl4lzXTH3vV +BiSu1dfeS2Tj6g0va7w9LUFelfLPgx42BgbqeJWdMIf0o/H7zilwUGmHqWLK +FhOo6l15e9KNzDNtNq+drhjAkrYrm6qLOTjlaClYt2YnvFt1/k+NAanHOTJq +GYNcCAmnq1X1EijVbfae4J2Ghyk41u9Fwavm20Vlskg+jAWUvv9LwWPtEwd0 +vkyBcLnOPNFD8mt1j5zbqA5c5wwbJrAIjDF88HLoJRdW6z+VTSkj8BZvRksx +iX+vqK81u40omGvM+Hy0gQsifzi3R9wJ1HPyvFU7zYWhmv/MevkpGKARt8Vx +kguieZSjz8c4OCRn+mN2RBtOb5XizkkSOMWh+GTUcuFwXoJYdBbpd4ETR2ZI +f/opcNB0nw2BL5ae6hUY54Kywj69lnEyn5knLXkyx4XGgd/r8poJzGUvO+tM +nmeNzS6cOU1g0iqlsBbSL1NtSo+MraHg55P5TktHyHnx1pKk9BkOGhxxXczw +0oYI6z/nFq+RelCU/qeT5KfV2+oanSECE1tj6QULXBhLts5SqCOwjuXsYUz2 +S5mMf1fqT+BAVcfteZLf6rPrrogVEJhvYlmRTO7fUol5oNxGoJNCyCwvWW/r +N7t1RtEEmgVsfKrEMw0Ja4M2nv/Lwbk3vYY0FW34rO3VpsxHYHtJZsS9Ai5M +zFR9kYgl9SKzrbia/F9CWXEfTrAoWPhP8vjuL2S/z9nu7SUUtPzjnDprwoXv +b44Y5O6QQmmtx27FR6cgQGRpzydXBUxt/uycwWkAQYlM2uVyBZRI49t+ILgO ++uxblN7yU/FAJH9iy89q2H/xnr6SARVL/3RcuKhaDgabza32JFNxSqBqquVX +MSTGdysf76Wi2oNje0tuFMLKYw+K/6XR8L+7639facwH4WJDxdceNNQ8fD8y ++0MOpHen3T9TQsNOf5LPwrfA7ELaCx4+Og6ffbuxTuMG7AvfmC9iRMe/vYYL +p4tSYMzC74rKZXL/WLH1/eNJIJwZFiTziY5bV7yKYMfHQ9Add7YAk4HnNE06 +QrdcBClG3qlsV3KelTY+wHcgGjSk858vKSPnlUM/n44uhMPksN3as38ZeNzv +ekJAZhhs2NrrXrObicL3ZxUKIRiqNTWi5uKY2JfaYeqa5g+nSgZ3jrcz8WLa +QaHHbT5Qdcfy7y0qC5tq+DUE+j0gISC01s+Zha/OdCba3nGGmJfm0pKlLKRP +SF59s+AAb90q1ZGXjeIzWd0y2+2gsL/d4dwuNhqFaCccv28Doh1lkfGX2Vjp +FHdzNMwSnv4X5Hutm423ktk3fp01h9u5MYLW8hysFei2PYEmIKprH9ftysF3 +K7UUiXwD6D+hYXCmiIPpWcof+Dk7wWR1oVKMPoGVHwYr9g1w4Zln6JoDPQQG +8djp3iDxEtdooJnvQUFfne7HR3O4sF378KbcOQo+TK+/yjMwBcNWg5Ifuzjo +Prr7Wf+8DhCKYmePMAjUGdmltrWVCzYqsvOqJQTeDeC5U07i2bD0h4jYHgp+ +OC37Res5F6LnjHvLXQl8tXbw+WdyHtqU/2lTMC8FadHr+t3JeWnMoDo45gcH +1eLEU9PntGFeFRWbVpN58+TWmcoaLtxOHh1j3CTw0HNqWjXJV7elYZHUgwTW +8Ew5j49x4dSK+zSXMQK9/T+sP0fmT/G3Rsv0Gwk0X32Sdp88n/VzrYpxCIFa +k94PqSS/B/XFtsdIUNB6psrceJT0O53cAvtpMl97sSs+ndaG1l0Wx9OuEhil +m7t4iuRjZs2atC/9ZF6QTpi0IP13W3jJ2cc1ZH1rt7wTZL/JU2VCEScIjKu+ +/Hwbye+zAxF+Bfnk/TZdgGByf1R+MPb1GwKD+U7xHSfrFX2POiIVSeDe5khG +JlnPp1ZG33ieg/pfdQU36WiDrbwQo+sygSE27OG7pF83WzvDXAWBW9dJduWQ +9SRr1JSHcwi0KBhftZ5cn55NMVzeSqCifv0zabJfDc+MfLs0Ar06Lb6v/3// +ebzPwp8SOCPmTaGS58eXvyn3KSQw52qBXB65LgrtkGhY4OD5lK5ZKkMb/gcR +kibX + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1He4j3UYBvAje+89TwMpI6tkJZQ9DpHsY0SESmVkVFpoR2TPooxCoexZ +WRmZFcqIimxRfJ6rPz7nvr/f51xn/J73ehOT+yb1SZGQkNDNl8hivhyVnzGU +Js7ZOKC3op6egd36bCpQ2zk12/VpNNNzcEgfSEM9M3v1NrIgc/QWMje/6O1k +EW7RE+WvsoOcF79X5iOZYc5NZXY6cdD5MVmIrrR2ri8z0pE9zo/KAnThY+ck +mYvO/OzcVhamol5HpmGH3lrmZ7reXObkJ30QjfQs7NPn0lLPw2E9Jbfqv8n5 +DI+/gQbuMvGj/gmVqOuclh/0GQwmFbe5OyYX8GJ8blTmIffp2KnP5AVSc7u7 +43IhL8Vnwr2kIS3pSE8GMpKJzGQhK9nITg5ykos7/MwT8nNejs+J+8hNcbOT +8gtGxP6oQh5KmP0uF/EK7bmfvJQ0OyUX82rsmKrk406z03IJr9GRauSnlNkf +8ktepxPVKcBdZn/Kr3iDztSgIHeb/SWXMpJkalKI0mZn5DJG0YUHKEwZs7Ny +OaPpSi2KUNbsb/k1b9KNBylKObNz8hveoju1KcY9ZuflCt7mceqQSHmzC3Il +79Ajno14jqhgdlGu4l16xnMQzwgVzS7J1bzHEzwczwOVzC7LNbxPL+rFXqls +dkWu5QN6Uz/2Gs+N2VW5jjE8SYPYa+zf7B+5nrH0oWHsNfZvdk1u4EP60ij2 +Gvs3uy43Mo5+NI69xv7N/pWbGM9TNIm9xv7N/pOb+YinaRp7jf2b3ZDfMoFn +aBZ7jf3Hy4zvxET60zz2GvuPdx3f65N4lqTYa+w/3kFs0SfzHC1ir7F/9ynZ +qk/heVrGXmP/7lOxTZ/KAB6JXbhLzy59FkPi/3bOyn790/g+PS9H9PayaIr/ +38flnW8CB8uWHw== + "], 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]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 13}, {0., 1.4388968087800817`}}, + "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:eJwV1nk0Vl0XAHBDJEoSvfch4pmfVEqS4dXeGUoiY1FURGSeMkSkeFEpQyiF +KENREplKoihEo4xpkKEkSVxEfPf7667fWvecu/fZe591FQ95mR8W4OPjO8zP +x/f/p61eyiI+PgI3TxCdcbdI+KTj3aoiQGBbaVbk7UISHLYaXj28gEAMq+Kr +LyLBdcuc6nMRAu279tl8vkdCkLqTXcoyAi8e2LXhZRUJs2qo1LicwE/HNk3d +rybhxCYZckaawAkezTezhoQolRdn7WUIXPz4ubd1HQlJa9TK1zAI1It8pXH8 +OQmEksSpgywCdb9vV9/UQsIV3pBRIofAWKO7LwZfkHCNndE7qUSgdPylMo03 +JBQpCIs/USUwwq5UNr6DhGapNse92whcmm2Ts6CPBNPlRcqxBgTefz9Qubuf +hLfLzvypNqTiz12pnjlAQpf4lnimCYEbUpydFb+R8FUk98FPKyoe/GHU+oME +94XhUfR9BFbzTbiMjpDwU2if2W5bAp8vPN4jNEoCKSA+eN+OwLeR2o9WjpGw +4K+/ZJQLgaV3D6j8mSAhZsakp8KNwJerBp59IkkQ+8O78d2DQH1nr+s1kyRI +TvZom/kSGLBDmuU+TULKRLlI5FEC46suPNv8hwTaeMLbsgAC+x+035ilrPBL +32VlCIFZNUMKvrMkZP9cpWoSSqD2uM89+l8SOCPTcydPEJi8TDm8mfK677eT +BiMIHN6gcl9snoTib9EHZaII3NUUxcqivOmr/WrjGALNA9c9UeabhH/7pWuK +Ywk0FROLV+efhLGpB5+l4gjUyWotqaJ8c/EhwcAEAp/y271RF5gEOwURVucF +AkNtuUO3KK9QLdymlUJgU0P5NCE4CS3bLY+kXyIwWi9v/jjlSJs/p+cvU/kW +Z/zpoKzplVlgn06gd4fltzULJuHXqW0tT64S6LY/rimI8o2U4RHWNQL3P6On +V1E+kJ8oEZNNYEvQ2MEpytLV6ipDuQRaFo4uWyM0Cc2vP1gY3STwdYh8sRXl +U/2R/oUFBAY3noUQyhrTqy9KFBJYYGpVmUJ5dPHrCt8iAnMvFcrnU85VCOxq +LSZwdKzFs5SyrarcrFopgbcC+W5WUF5u8EQutZzA6/yZzSWUm2xcYKaSwE2r +pTtzKYd7LbXfX0XgpF57SwLlzRGlpx5VE2hh455/lPJIik22Yi2BtRwXTxPK +2fn8TyOeEDgl4UOjU7apzhvsr6fmh6lWMEzlJ/nGeJFBA7V++THGHcoN/b9X +5zcRmMdddMqF8onpVKPFLQQqGdQ9laWstgQ9PV9S9RpI+VVPne+wwkDcq9cE +hggcFzhC+bpq7F2VVgKdFUOn+SlL2HaMkx1UPwxvvSxH1e+pV9iKvd3UefHZ +612l6h0awVR/0EOgTJf5O4LyUL53yIleAmtYC27/pvonq3pF+uc+ah5lE8ct +KVu/qarWHSQwqSWOWThHQv20iIDIMFWv61JoQPXj8SV3GK4jBPoEvF9zmupf +FcXd+s2j1LxYJC94PENCpkFWTPwEgeK2k4GyVL8HX9RYSpsn8AVzf7QHNT/r +Cz6uD+GnISNmdZ8HNV+D1f+Z9wjSMFAzfqPTOAmWA6+Ts0RouOYv350t1Dwq +b3JduVqShvTiU9px1DwPGEhsiZWioc3UAwuTYRLSbMsOjqygUfdVgfPC7ySI +RgpcL5al4ezYlriDX0noe3OZp8WioeBXpnhRLwki2fHvj3JoWPRPyuiOzySs +8Y+KK+TRUPXK/Jf3H0nw/8d3QnEdDY1uuy4YeU+CsO2OWpHNNPRYd9H2YRsJ +3P5J6zYDGkrf0pKUbCTBqOyHmMROGr4/IfdZ+xkJ3tFfqncY0zDPhPXpUD0J +lbyXzIdmNLyf8jjwUi0Jhp65o9f30TBMiN+kuJK6nyYtY3zcabj7h2rTtRsk +xDcYahV40tBPt+vRoVwS7qXiSJ83DS9ZbBFfmU3CX601ltb+NNyTfq0m+CoJ +58MFFSCMhsyd9i1fk6n7dFFx+eJ4Grp19qw7c5KEcdmlg3klNDwj+FBw2oKE +hmdcj7ZSGlr9cUmbNqXOz0/n94IKGj6eOak2bkyC7nP/efsqGh6U8Aht305C +YvD7f1bW0zDrJVm1R4uqX+dNg/g2Gn7Mxl1aiiS4pejlB03TsHJ5inXF1wnY +onNgfd4MDe9l1F3i658AyZHAsnd/aXi4bWyv7ucJuK9f8FhFQAbjq6u8Kzon +QGRiWfewqAyK+nDd7JsmINfio5j9ShkMW5RxvDh/Anolgj12gAyuLZI28XGe +gG+vDxrmbZVBWe1H7iWHJmA0UZ8jpCeDVYaNtT/3T8BfqWWfawxk8FWDmJKV +5QQQtBuW6uYyqJlRmv8ZJ8BEsU2Lc1gGCyPVfg0RE1C1QUVU6KwMip20Wzxb +Nw4XzYdya9pkUMTvwMR58XEo/blDdaWjLC6/MfzHL34MrnQWHjX+K4tlGpk9 +Ys9H4YCXaFjJhZXIWHOMIff3B5yx2939d5UcZl1tqR3LH4LQjJzvchVyyHhF +H69VH4TOzf0m9G3yKBlQfctPow8kQ2VDbV7L41TOsUcVMZ9h+VKr/a5HVuFg +2r4OidYeOD57MmH/xCqMdIsoDjvZCXtk9/67fLsCVu25DPtd38H+8+5SkokK +uK+soH984jUQdwJXCHYoYEOwtaOWwwvYHCA09oGhiMJL4ndo6DeC6Pczk7dc +FbH5VeDXhxr1ECi2sPujmyKmNX1yyeTVQ59SRLWkhyL6mWa7nafVQ7V7yH9B +XooIWcKtsdN14DPitlzvqCLWyVr6Sd6vg45fRsrdoYq4zZjVoqldB7lT4s6L +EhTRYOHB4y93PoGtwhfaDpcrYvTN2F/nYmpBWCqLcaFCEaXSBbbsDamFJsU7 +3jWVirjJMpx/nWctWGo/F5WtUsQtoV7vflvUgtNRQXhVo4iBZytFRlfVwple +vzzNJkXUj7t7KKeyBlqrLYOW9ihi9mM9KB18BM6BK2QqBehY/vLgCtsFD6HX +oVn5jSAd90YJJjX/rIIDpqf0vy+g4weRcxI7u6vAkjfiLbeQjq1zsV98iqtA +p7v+2UkxOmpGP587bF8F8uDvbyhFx1K3XZGfah9Aq3Drq24WHRs6mgK+xN6H +rSkJ0XMGdPz97SFpsaMC9py7baBsSMeyP+1nz6lVgGtk4yK7nXQcuMBe845R +AUm+/LG1xnQ8GbjX+fxcOXzd5RMfaU5HAx2iIu9eOcQvNEsVtaVjl8iB3R6M +cvgUJFGwwouOvf4pmwTEyuCETdyLdcl0zGXmaZnz3QPDDRbWO1PoOCH0YKL5 +VwmsWPhPr/NFOjrYmf82+1IChcUZE5mpdGzXKEwPfloCHxYVrlyeQceAB66j ++udK4N+KZtfJXCp+Hbuc6pUlMCUlurCmgo7OXf++W6RbDD4vIsHsPR0bjY3k +MwuKICmhS+VIDx3V7x7eVXq1CCos17NPfKDjFfb02zcXioCvu3vx7U90DI6z +bGQfL4LzgypdIv10nGoQeLzBuAjy+T4frflBx42bvLZkfL4DvSra+crzdOr/ +QeSG4PFCML84ISVOZ6BDds/o9g8FsPTw3ZJ/GQz879aa3xcbCqBZxcPcjcnA +EgflmKniAtj2oi+ugc1AWcdUje/RBaAp1CoaocTA+/XNTskqBcDwK+abUmVg +6PlGt7Ez+TC+y2v483YGxi12enF8+024KPztSakHA9NqxiT3/cgF0RIjpVee +DNQ6cCcq530uhB0sShzyYmCFRdjU7PNccKoItF/ly8AL+eS9l/m5oOYqPB8T +wEDX5Mkbgi650NbC0LQ9wcAsM3GjjMEckEo+UCSQwMBpeT8xpx/ZEM9oTTO5 +x8CDz9XrY2nXIaMr/c7JUgZ2BBw85il6HQoSnB+XlDHQ7FvuvM3MNXg6/2fw +n0oGToQlHdjXcw1muxU3fnrIwMYGLbcvWdfAOcmr0fsZA/Xv7Z+XX3sNtgiJ +kQldDCR4TrbzO7Pgx8BWk1Y+Jqrw+O+xLa6C+dn053wCTBw69WZdreZVqFCe +3r5WkImHy6nv06/CqaAijBJiogujV49/LANWiK5SURdlYtzNjauFEzMA185K +pS1nYoLuk/Hwd+lwwa+sy4HNxPZPps1dLmmgwafk9HsnEyPX7nXYWp8KuyPW +FYgZM/Fvj9HcieJU8BFWGWXsYmJjvDyj+Woq9T+qEWxpysTJ2V9fYoNTgUbb +fr7Ukom/8nrV7qxPhekNDmWB+5mofiG12/PqJah0uCI868lEic7sLalRF0Hj +mVjegkQm0mTuPcs7lgwjlv4XVS9Q+R0usblzJBmyez9EOyYx8Yhj9NY6q2SQ +mLt7pC6FiaUJgZ3SaskwoGq9OvIKEwW3Fsla/U6CxGvZtwVzmBik5bh4h3cS +fA/VvidQwcRTQ/u25vhdgHRVr1q+D0xUmAscVcpIANGs8OCVH5m4acnLSG5C +AgQsSdyo/omJJ5W0b6yLTIBdA/dyvHqpeM0ywq1cE4Dv0p/THwYoB+mXyWxO +AIeZ/8yrfjKRnnNLy/5NPPAep30J5GdhhFfmh0dL46HUpEnoJ5OFkYv8AyoM +zkHwTQ+uEJuFp7VM28M2noMtgst2ynJYaLZ/T4yl/Dl4WmYVv53HwmIDxp21 +47HQJtcvk7mWhabblD4mZ8YC+X1e2UyNhTaqm/erzp4F9ZhN+0q2s7COz2bm +YPUZqKrJLAx0ZaGmU/czTfcYkGHlH89xY6GDrMlegb0xEHi6xPCtOwu7v26d +7dCPARXzpwPrvFg4dqxpe8mqGLj55bv8gB8L23Y73pFpjYYU4c1xlqEsvPi2 +8nY+RIOPUYvXhnhqv7Oyl8IVo4DdMb3+eykLB+uj4eaSSNCULXi2oJx6f//P +J8NzEWBywPaAfAULnTZ0LdcajYCgvuqzZvdZqP36FTn5JgKaRiMGyqtZqC+X +OfLrUgR4LhJPi3zGQokxkS8f2RFQpklfKN/JQqsHG795Gp4C/XTDHtNZFtLG +tVlPCsNhfMh+1am/LDzifyUxMCscrqkfsy+ZY+Gryf0JaknhMPc2r1+an437 +BgsUW4+FQ5mo0EiXEBsbHi3JidUPB3bQoznHpWz0ibGU7Hh4AoQtVBWO0dmY +KfrX0FolDBpE5B2yDNg4/O2S7SLLEFi7qcejegcbRe9MKxZBCCTapwV1G7JR +prlTyEkpBGzvy5yXNmZjz+5Ds3MCIfDT7Z/K02Zs3PTAyaOvOBhWvJRY6ruP +je77nWv8pIPBMVnwgY47G3+0fH5n3R8E84rfJPvi2Lj40GqbmdsBUKWlGT0T +z8betHYzt/QACNp9dkYykY3K1SE2g7EBMBaztm9rEhtbulIjBd0DoO+nT+nV +S2wMeM7WfL46ABoe/rGyyWLj7P3XufH5/pC4d3H6m2I2Vq896VZRfBRYCcqc +2ndsjF7L3V72xReOlw5sG21j47n0fSKPWn3hTWe606oOKh/vk5lv630hjL44 +N7SLjT/jrNcr3PCFtpKvTM2PbNx4M6RJ38MXYtqy6CVf2eho/LT3/rQPDMlK +yefMsFFuLvTbElkfKMydkjqtyEGVgR/dP/94woObVn+v0znYWC2oKdTnCQ23 +yvqrGRwkhsKilFo8obf4aNk4i4Pmf55U5F/1hBWPRq3sVnMQHQ9yfPU9Iaz9 +6+XNGzmYdVnLRybJA4xFOhUG9Dj45xvt9nFtdxh2qVyje4SD/dwfqYLVLpAY +GFbj78LBlyc7kuxuuoDGf7qWN1w5aNn6eMWLJBeIymwJWeLBweStDcFdbi6g +0P65qd2Hg2HbjSzLZVzAUk/UxT2Eij9+atw/5AhUydvkJJ/noN6pyK2FBs5w +7u2s3Nd7HNQV824/vPQwxL6wkJUu4yBzTPrS6zlHONOYT+iUc3BqwVoHwxFH +iHpkvTytkoP5cjU/D7U4womCeyKm1Ry8faOkfl2sI/hEuP8uf8bB1fpJl7iL +HWH3xvcN0V0cNDWUlbCTdgC5Cw/8OHxc7HTTOPnK0B7euN/XQH4uSk5ld63c +Yg8x2yrnrQW4mBLzNcp3gz2MTZedPbOAi+9nc6o0CHt4ald8/YcIF78pvPug +NmAHnutuvi1ZxkW7f5fKDUTYwaPGlI3I4GLpg6mfrWcPgj2f72/rbVzU98kN +tXhqC0V9bY6nt3PROFQn8cgdW5hr0GqrNODiLc5UX9wlW0hLEKqU2cnFJ41l +otJuttBGTw17b8LFr63r6yYlbGGnfs0iu71c/Lim65iknQ1sOiOu4OzORWYV +O05LbB8skiow8k+k4t8Yc/5oohWIt5dHJVzg4n3n+GvD4VYgdbmu5nYSF5ev +fVHt42UF8gofVAdSuDgZpPntmpEVqK5ZJmd1hYt3iYtTVxdagZ1e4A/1bC5q +ry0onD2xByqO6p6fLeViTxnHdP7YbnB61/0yopM6n+fOqmoJFvDkv2C/y11c +vJ7CvfrrlAUoqNH+udvNxaAgXe/yoxbQnbLnwIceLvanIeeQtQWYWr8eVu/l +okD9FemNChag0f100cgQF7M/NXtV3TWHxZ/v6lrPclEsLltS870Z3B2OLl+z +iodJAyqNe41N4UZerLCNAg9rhLrsjqIpZBxK2H1akYfKW82UUjeaQmzH5d/9 +DB7+MxKkzi9jCk51t5Wvcnk4/H1lXtILE1iZ9jZvmQoPP98bRb+FJhCzc9Ul +Uo+Hjnmj329FG4NdfllQjSsPQzYo0tqrDUFczyG+y42Hb5dqKxEFhvCgZ+mN +cXdqfavtK+eLhrBimUs714vaf1/hDRVvQ2gOlFVL8OOhaPUJJ3+6IWjoh/+2 +P87DF73V7Tmnd4Dkpx2egud5eCD6PyXXQwbwRLrHYdtdHnbyfjXu1toGfUc1 +DU8W8zAjW+W9IG8bLGi9uL6qhIcTTlbCtSu2gV6i+d8NZTwMV0j3PjKmD3Xi +DSlyD3gY+CFJ1zVfH54uLGkcr+Ohp+BadWU5fWiajlG+3kHFUycu5rZED4as +B6Q/dPLQY3jH075ZXRCt0J0lunlosrxb3n1YF3YGzDWc76F8f13I9ee60Dzm +dyi4l4c/lw/dKDmjCy++H0g2G+Yhn7eQhqmYLowYVoXE/uCherxkWsaMDojn +0w49G+HhoLzZj+nvOmBypHWd9i8e2s2+Vm5v1oFXfTsauCQPZXgdi5XidGBU +N6/QYZKKz5tb+fGEDkhcX5CcMcVDw4Nu85neOmBm/8heaoaHCk3G63eY64Bv +zUoDk1keGnzRE16vqwOJq4LXnfnLw5nXPUYMVR0oDmuXqp/j4ZnUzmk6Swfe +9KjOzM/zkLjFL6i8Qgf+B9fNJtc= + "]]}, "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.4388968087800817`}}, + "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:eJwV1nk0Vl0XAHBDJEoSvfch4pmfVEqS4dXeGUoiY1FURGSeMkSkeFEpQyiF +KENREplKoihEo4xpkKEkSVxEfPf7667fWvecu/fZe591FQ95mR8W4OPjO8zP +x/f/p61eyiI+PgI3TxCdcbdI+KTj3aoiQGBbaVbk7UISHLYaXj28gEAMq+Kr +LyLBdcuc6nMRAu279tl8vkdCkLqTXcoyAi8e2LXhZRUJs2qo1LicwE/HNk3d +rybhxCYZckaawAkezTezhoQolRdn7WUIXPz4ubd1HQlJa9TK1zAI1It8pXH8 +OQmEksSpgywCdb9vV9/UQsIV3pBRIofAWKO7LwZfkHCNndE7qUSgdPylMo03 +JBQpCIs/USUwwq5UNr6DhGapNse92whcmm2Ts6CPBNPlRcqxBgTefz9Qubuf +hLfLzvypNqTiz12pnjlAQpf4lnimCYEbUpydFb+R8FUk98FPKyoe/GHU+oME +94XhUfR9BFbzTbiMjpDwU2if2W5bAp8vPN4jNEoCKSA+eN+OwLeR2o9WjpGw +4K+/ZJQLgaV3D6j8mSAhZsakp8KNwJerBp59IkkQ+8O78d2DQH1nr+s1kyRI +TvZom/kSGLBDmuU+TULKRLlI5FEC46suPNv8hwTaeMLbsgAC+x+035ilrPBL +32VlCIFZNUMKvrMkZP9cpWoSSqD2uM89+l8SOCPTcydPEJi8TDm8mfK677eT +BiMIHN6gcl9snoTib9EHZaII3NUUxcqivOmr/WrjGALNA9c9UeabhH/7pWuK +Ywk0FROLV+efhLGpB5+l4gjUyWotqaJ8c/EhwcAEAp/y271RF5gEOwURVucF +AkNtuUO3KK9QLdymlUJgU0P5NCE4CS3bLY+kXyIwWi9v/jjlSJs/p+cvU/kW +Z/zpoKzplVlgn06gd4fltzULJuHXqW0tT64S6LY/rimI8o2U4RHWNQL3P6On +V1E+kJ8oEZNNYEvQ2MEpytLV6ipDuQRaFo4uWyM0Cc2vP1gY3STwdYh8sRXl +U/2R/oUFBAY3noUQyhrTqy9KFBJYYGpVmUJ5dPHrCt8iAnMvFcrnU85VCOxq +LSZwdKzFs5SyrarcrFopgbcC+W5WUF5u8EQutZzA6/yZzSWUm2xcYKaSwE2r +pTtzKYd7LbXfX0XgpF57SwLlzRGlpx5VE2hh455/lPJIik22Yi2BtRwXTxPK +2fn8TyOeEDgl4UOjU7apzhvsr6fmh6lWMEzlJ/nGeJFBA7V++THGHcoN/b9X +5zcRmMdddMqF8onpVKPFLQQqGdQ9laWstgQ9PV9S9RpI+VVPne+wwkDcq9cE +hggcFzhC+bpq7F2VVgKdFUOn+SlL2HaMkx1UPwxvvSxH1e+pV9iKvd3UefHZ +612l6h0awVR/0EOgTJf5O4LyUL53yIleAmtYC27/pvonq3pF+uc+ah5lE8ct +KVu/qarWHSQwqSWOWThHQv20iIDIMFWv61JoQPXj8SV3GK4jBPoEvF9zmupf +FcXd+s2j1LxYJC94PENCpkFWTPwEgeK2k4GyVL8HX9RYSpsn8AVzf7QHNT/r +Cz6uD+GnISNmdZ8HNV+D1f+Z9wjSMFAzfqPTOAmWA6+Ts0RouOYv350t1Dwq +b3JduVqShvTiU9px1DwPGEhsiZWioc3UAwuTYRLSbMsOjqygUfdVgfPC7ySI +RgpcL5al4ezYlriDX0noe3OZp8WioeBXpnhRLwki2fHvj3JoWPRPyuiOzySs +8Y+KK+TRUPXK/Jf3H0nw/8d3QnEdDY1uuy4YeU+CsO2OWpHNNPRYd9H2YRsJ +3P5J6zYDGkrf0pKUbCTBqOyHmMROGr4/IfdZ+xkJ3tFfqncY0zDPhPXpUD0J +lbyXzIdmNLyf8jjwUi0Jhp65o9f30TBMiN+kuJK6nyYtY3zcabj7h2rTtRsk +xDcYahV40tBPt+vRoVwS7qXiSJ83DS9ZbBFfmU3CX601ltb+NNyTfq0m+CoJ +58MFFSCMhsyd9i1fk6n7dFFx+eJ4Grp19qw7c5KEcdmlg3klNDwj+FBw2oKE +hmdcj7ZSGlr9cUmbNqXOz0/n94IKGj6eOak2bkyC7nP/efsqGh6U8Aht305C +YvD7f1bW0zDrJVm1R4uqX+dNg/g2Gn7Mxl1aiiS4pejlB03TsHJ5inXF1wnY +onNgfd4MDe9l1F3i658AyZHAsnd/aXi4bWyv7ucJuK9f8FhFQAbjq6u8Kzon +QGRiWfewqAyK+nDd7JsmINfio5j9ShkMW5RxvDh/Anolgj12gAyuLZI28XGe +gG+vDxrmbZVBWe1H7iWHJmA0UZ8jpCeDVYaNtT/3T8BfqWWfawxk8FWDmJKV +5QQQtBuW6uYyqJlRmv8ZJ8BEsU2Lc1gGCyPVfg0RE1C1QUVU6KwMip20Wzxb +Nw4XzYdya9pkUMTvwMR58XEo/blDdaWjLC6/MfzHL34MrnQWHjX+K4tlGpk9 +Ys9H4YCXaFjJhZXIWHOMIff3B5yx2939d5UcZl1tqR3LH4LQjJzvchVyyHhF +H69VH4TOzf0m9G3yKBlQfctPow8kQ2VDbV7L41TOsUcVMZ9h+VKr/a5HVuFg +2r4OidYeOD57MmH/xCqMdIsoDjvZCXtk9/67fLsCVu25DPtd38H+8+5SkokK +uK+soH984jUQdwJXCHYoYEOwtaOWwwvYHCA09oGhiMJL4ndo6DeC6Pczk7dc +FbH5VeDXhxr1ECi2sPujmyKmNX1yyeTVQ59SRLWkhyL6mWa7nafVQ7V7yH9B +XooIWcKtsdN14DPitlzvqCLWyVr6Sd6vg45fRsrdoYq4zZjVoqldB7lT4s6L +EhTRYOHB4y93PoGtwhfaDpcrYvTN2F/nYmpBWCqLcaFCEaXSBbbsDamFJsU7 +3jWVirjJMpx/nWctWGo/F5WtUsQtoV7vflvUgtNRQXhVo4iBZytFRlfVwple +vzzNJkXUj7t7KKeyBlqrLYOW9ihi9mM9KB18BM6BK2QqBehY/vLgCtsFD6HX +oVn5jSAd90YJJjX/rIIDpqf0vy+g4weRcxI7u6vAkjfiLbeQjq1zsV98iqtA +p7v+2UkxOmpGP587bF8F8uDvbyhFx1K3XZGfah9Aq3Drq24WHRs6mgK+xN6H +rSkJ0XMGdPz97SFpsaMC9py7baBsSMeyP+1nz6lVgGtk4yK7nXQcuMBe845R +AUm+/LG1xnQ8GbjX+fxcOXzd5RMfaU5HAx2iIu9eOcQvNEsVtaVjl8iB3R6M +cvgUJFGwwouOvf4pmwTEyuCETdyLdcl0zGXmaZnz3QPDDRbWO1PoOCH0YKL5 +VwmsWPhPr/NFOjrYmf82+1IChcUZE5mpdGzXKEwPfloCHxYVrlyeQceAB66j ++udK4N+KZtfJXCp+Hbuc6pUlMCUlurCmgo7OXf++W6RbDD4vIsHsPR0bjY3k +MwuKICmhS+VIDx3V7x7eVXq1CCos17NPfKDjFfb02zcXioCvu3vx7U90DI6z +bGQfL4LzgypdIv10nGoQeLzBuAjy+T4frflBx42bvLZkfL4DvSra+crzdOr/ +QeSG4PFCML84ISVOZ6BDds/o9g8FsPTw3ZJ/GQz879aa3xcbCqBZxcPcjcnA +EgflmKniAtj2oi+ugc1AWcdUje/RBaAp1CoaocTA+/XNTskqBcDwK+abUmVg +6PlGt7Ez+TC+y2v483YGxi12enF8+024KPztSakHA9NqxiT3/cgF0RIjpVee +DNQ6cCcq530uhB0sShzyYmCFRdjU7PNccKoItF/ly8AL+eS9l/m5oOYqPB8T +wEDX5Mkbgi650NbC0LQ9wcAsM3GjjMEckEo+UCSQwMBpeT8xpx/ZEM9oTTO5 +x8CDz9XrY2nXIaMr/c7JUgZ2BBw85il6HQoSnB+XlDHQ7FvuvM3MNXg6/2fw +n0oGToQlHdjXcw1muxU3fnrIwMYGLbcvWdfAOcmr0fsZA/Xv7Z+XX3sNtgiJ +kQldDCR4TrbzO7Pgx8BWk1Y+Jqrw+O+xLa6C+dn053wCTBw69WZdreZVqFCe +3r5WkImHy6nv06/CqaAijBJiogujV49/LANWiK5SURdlYtzNjauFEzMA185K +pS1nYoLuk/Hwd+lwwa+sy4HNxPZPps1dLmmgwafk9HsnEyPX7nXYWp8KuyPW +FYgZM/Fvj9HcieJU8BFWGWXsYmJjvDyj+Woq9T+qEWxpysTJ2V9fYoNTgUbb +fr7Ukom/8nrV7qxPhekNDmWB+5mofiG12/PqJah0uCI868lEic7sLalRF0Hj +mVjegkQm0mTuPcs7lgwjlv4XVS9Q+R0usblzJBmyez9EOyYx8Yhj9NY6q2SQ +mLt7pC6FiaUJgZ3SaskwoGq9OvIKEwW3Fsla/U6CxGvZtwVzmBik5bh4h3cS +fA/VvidQwcRTQ/u25vhdgHRVr1q+D0xUmAscVcpIANGs8OCVH5m4acnLSG5C +AgQsSdyo/omJJ5W0b6yLTIBdA/dyvHqpeM0ywq1cE4Dv0p/THwYoB+mXyWxO +AIeZ/8yrfjKRnnNLy/5NPPAep30J5GdhhFfmh0dL46HUpEnoJ5OFkYv8AyoM +zkHwTQ+uEJuFp7VM28M2noMtgst2ynJYaLZ/T4yl/Dl4WmYVv53HwmIDxp21 +47HQJtcvk7mWhabblD4mZ8YC+X1e2UyNhTaqm/erzp4F9ZhN+0q2s7COz2bm +YPUZqKrJLAx0ZaGmU/czTfcYkGHlH89xY6GDrMlegb0xEHi6xPCtOwu7v26d +7dCPARXzpwPrvFg4dqxpe8mqGLj55bv8gB8L23Y73pFpjYYU4c1xlqEsvPi2 +8nY+RIOPUYvXhnhqv7Oyl8IVo4DdMb3+eykLB+uj4eaSSNCULXi2oJx6f//P +J8NzEWBywPaAfAULnTZ0LdcajYCgvuqzZvdZqP36FTn5JgKaRiMGyqtZqC+X +OfLrUgR4LhJPi3zGQokxkS8f2RFQpklfKN/JQqsHG795Gp4C/XTDHtNZFtLG +tVlPCsNhfMh+1am/LDzifyUxMCscrqkfsy+ZY+Gryf0JaknhMPc2r1+an437 +BgsUW4+FQ5mo0EiXEBsbHi3JidUPB3bQoznHpWz0ibGU7Hh4AoQtVBWO0dmY +KfrX0FolDBpE5B2yDNg4/O2S7SLLEFi7qcejegcbRe9MKxZBCCTapwV1G7JR +prlTyEkpBGzvy5yXNmZjz+5Ds3MCIfDT7Z/K02Zs3PTAyaOvOBhWvJRY6ruP +je77nWv8pIPBMVnwgY47G3+0fH5n3R8E84rfJPvi2Lj40GqbmdsBUKWlGT0T +z8betHYzt/QACNp9dkYykY3K1SE2g7EBMBaztm9rEhtbulIjBd0DoO+nT+nV +S2wMeM7WfL46ABoe/rGyyWLj7P3XufH5/pC4d3H6m2I2Vq896VZRfBRYCcqc +2ndsjF7L3V72xReOlw5sG21j47n0fSKPWn3hTWe606oOKh/vk5lv630hjL44 +N7SLjT/jrNcr3PCFtpKvTM2PbNx4M6RJ38MXYtqy6CVf2eho/LT3/rQPDMlK +yefMsFFuLvTbElkfKMydkjqtyEGVgR/dP/94woObVn+v0znYWC2oKdTnCQ23 +yvqrGRwkhsKilFo8obf4aNk4i4Pmf55U5F/1hBWPRq3sVnMQHQ9yfPU9Iaz9 +6+XNGzmYdVnLRybJA4xFOhUG9Dj45xvt9nFtdxh2qVyje4SD/dwfqYLVLpAY +GFbj78LBlyc7kuxuuoDGf7qWN1w5aNn6eMWLJBeIymwJWeLBweStDcFdbi6g +0P65qd2Hg2HbjSzLZVzAUk/UxT2Eij9+atw/5AhUydvkJJ/noN6pyK2FBs5w +7u2s3Nd7HNQV824/vPQwxL6wkJUu4yBzTPrS6zlHONOYT+iUc3BqwVoHwxFH +iHpkvTytkoP5cjU/D7U4womCeyKm1Ry8faOkfl2sI/hEuP8uf8bB1fpJl7iL +HWH3xvcN0V0cNDWUlbCTdgC5Cw/8OHxc7HTTOPnK0B7euN/XQH4uSk5ld63c +Yg8x2yrnrQW4mBLzNcp3gz2MTZedPbOAi+9nc6o0CHt4ald8/YcIF78pvPug +NmAHnutuvi1ZxkW7f5fKDUTYwaPGlI3I4GLpg6mfrWcPgj2f72/rbVzU98kN +tXhqC0V9bY6nt3PROFQn8cgdW5hr0GqrNODiLc5UX9wlW0hLEKqU2cnFJ41l +otJuttBGTw17b8LFr63r6yYlbGGnfs0iu71c/Lim65iknQ1sOiOu4OzORWYV +O05LbB8skiow8k+k4t8Yc/5oohWIt5dHJVzg4n3n+GvD4VYgdbmu5nYSF5ev +fVHt42UF8gofVAdSuDgZpPntmpEVqK5ZJmd1hYt3iYtTVxdagZ1e4A/1bC5q +ry0onD2xByqO6p6fLeViTxnHdP7YbnB61/0yopM6n+fOqmoJFvDkv2C/y11c +vJ7CvfrrlAUoqNH+udvNxaAgXe/yoxbQnbLnwIceLvanIeeQtQWYWr8eVu/l +okD9FemNChag0f100cgQF7M/NXtV3TWHxZ/v6lrPclEsLltS870Z3B2OLl+z +iodJAyqNe41N4UZerLCNAg9rhLrsjqIpZBxK2H1akYfKW82UUjeaQmzH5d/9 +DB7+MxKkzi9jCk51t5Wvcnk4/H1lXtILE1iZ9jZvmQoPP98bRb+FJhCzc9Ul +Uo+Hjnmj329FG4NdfllQjSsPQzYo0tqrDUFczyG+y42Hb5dqKxEFhvCgZ+mN +cXdqfavtK+eLhrBimUs714vaf1/hDRVvQ2gOlFVL8OOhaPUJJ3+6IWjoh/+2 +P87DF73V7Tmnd4Dkpx2egud5eCD6PyXXQwbwRLrHYdtdHnbyfjXu1toGfUc1 +DU8W8zAjW+W9IG8bLGi9uL6qhIcTTlbCtSu2gV6i+d8NZTwMV0j3PjKmD3Xi +DSlyD3gY+CFJ1zVfH54uLGkcr+Ohp+BadWU5fWiajlG+3kHFUycu5rZED4as +B6Q/dPLQY3jH075ZXRCt0J0lunlosrxb3n1YF3YGzDWc76F8f13I9ee60Dzm +dyi4l4c/lw/dKDmjCy++H0g2G+Yhn7eQhqmYLowYVoXE/uCherxkWsaMDojn +0w49G+HhoLzZj+nvOmBypHWd9i8e2s2+Vm5v1oFXfTsauCQPZXgdi5XidGBU +N6/QYZKKz5tb+fGEDkhcX5CcMcVDw4Nu85neOmBm/8heaoaHCk3G63eY64Bv +zUoDk1keGnzRE16vqwOJq4LXnfnLw5nXPUYMVR0oDmuXqp/j4ZnUzmk6Swfe +9KjOzM/zkLjFL6i8Qgf+B9fNJtc= + "]]}, "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:eJwVV3k4VV0XN0SiJNF7rinufFMpSYZXa2UoiYxFURGRecoQkeJFpQyhFKIM +RUlkligK0ShjGmQoJImLiO98f51nP3uf9Zy1z29aCkc9zY7x8fDwHOPl4fn/ +00Y3eRkPD4Hbpoiu2Ltc+HdAsrYohkATEZE4Nd5p6H97jaPJoCD/N7poYR8X +JqVXDuUWU/A8/yP+WXMu9IkFue8GKdxQKGns7TQFV8yGc2rbpVDI9/DUJdFJ +KPm5W0XGQRpX3x794xs3Ade7Ck4Y/ZXGUvWMXpEX43DYUzi0+LIM0tafpMn+ +/QHnbff1/F0ri5k3Wusm8oYhJD17RLZcFmmvqZN1akPQtW3AmLpTDsX9a+76 +qveDeIh0iPUbOZzJPvm4PPoLrF5pecjl+FocSj3YKdbWC6fmz8QfmlqLEa7h +RaFnumC/9IF/V++Sx+r91+CQy3s4dMlNQjxBHg+W5g9MTr0B4n7AGv5OeWwM +snLQtH8J2/wFJj7SFFBwRdxudb0mEB45P33XRQFbXgd8e6TeADsEL7cfK1PA +qDsxvy5G14FTwBqpCj4qlr06ssZmySPYkRwftaBPxd/fH3HNd5fDaevYlxuT +qJhDz9U043kI3i8jwPQDFZuMDOUy8gvB7MqUhCiVhvZZveO7PubDFcHvT0vc +aZhaOyF+8EcOxNHaUo0f0vDIC7WGGMot+DG4w7iNh47KHN6HTPMboM6j6Ph7 +Dx0jNhyw39GQAurPRXKXJNCRIvXwee7JJEhT8azj+UhH+YWAccX0eCgxbhb4 +SWdgxDI//3L9i1Bdm1EQ4MJADcee5xpu0cDsnN00UsLAoYYouLMiAvTSDHpN +5hlImdRiPC0Ig0YhOftMfSaOfr9qs8wiGBYVvov3xzJx+dF11nP3/IERr8Sq +e8/EqA3sXaVffaAgZ0binAILlQd/9Pz84wGjzhXrdY6zcID9I4W/xhkuvpuX +/faQhToiXh3HVh4D2ctVviweNna5qp95bWAHdjw+v612slHPOyfE/JkNLJPI +N/RLYGPyluhLJxIswfF9z6vwLjZ+eOGkohpvDg9Go8rWr+Vg4qBy0wEjE7DN +Kw2sdeFg8GYFSkeNATyV7LXf+YCDXZxfTfs0d8LbXpW5xUUOEnd5+ZXWaEOL +RLvDgZ0Ersyyzl7SzwUxm85JbieBe0d3XJPlmwa3aYtobzcK7vuh0nzzNhdc +k3XzAmcpWLE62ar82xRUb1YWFrgghSJnbJfP109Czoyo07J4BdRfeuTUqz1P +oa3GInBlrwJmPdGFkqHH0CbY9rqHQcXGzmb/rzGV8DlQLH+NJxX7/JK38omU +woyE8NLacio6df/7fplOEfQpa+UpLVLRq1PoNv+pApjc6zn6ZRcNY5c7vjy1 +6w5IJB0u5Iun4aycr4jjjyzYLiDCje+mIcFxtFnckwmXfUu77Zl07Phs0tLt +nAoV9tcF5z3oKNaVtT0l8gqMhGg95Cun49nhgzuyfS8D50nq1wBeBoZ7Znx8 +vDIO1KK3HizexcB6Huu5IzXnwduw1XNzHAPtL0hfDVOIhFIN6lK5LgZaVm35 +7mFwFgTNVeRPUpmYIfzXwEo5FByS+Ku03Zj4o/XLe6uBQEg4sDztbRETazac +cS0vOgHD0hJy2XNMlF0I+b5C2huMhLrkB3VZ+Oc75d4pLTeolrPOTrrEQt2z +ETsK9J1g35YPjVHdLDQxkBazlbSHx03JW5DGxpKqmZ9tF47A1vOi8k5ubKRX +M2M1RQ5C+QmdS/MlbOwtZZksntwHy7880LGaZ6NIbJa4xgdTiN6z9ipXl4MO +ueMjd6OMQPzzbg/+Sxw8HPWfostRfWiejVa61clB4XpREdcVupC4XrVsPY1A +3YjX6qdecCFHPqC7rYjA8YlWjxKBaWAPTFu161NQ8q6muHgTFzZ13dGPa6fg +pyzcq6nABWOFdk3WMSksiFD9NUxMQecvQ6WeEAXcacRo1dCqh/N9vrkazQqo +F/vgaHZFLciBn5+BBBVLXPdGfK6rgrilpinCNlTsFjq8z51WBv+Wt7hM55D6 +o22bXSNTDHk8X07U/qDilq2e29O/3AeabxHPjAoNQy41uU6cz4P2VpqGzWka +ZpqKGqYPZYNTomeT13Ma6j08tCi34SbghnmJ1NV0jNd5Ohn2Pg1mN9uXBhyi +o9rllB6PG1ch4WbWPf5sOgZqOizf7ZUI9nP/mVX/pCM1+66m3ds44I4sKpmq +MtBaZdshlfkLkCy4LdYihIFX3lXcy4Mo8FgmmhrxnIFiE0JfPzHDgRn4eMFh +JRO9oy3EOx+dhjWvxFb6HGSi2yGnWl/JIGh89MfSOpOJ85VvcuLy/CC6PZNa +/I2JDkbP+ipnvSG049u1bVtYmHlN01sq0R0sdIWd3YJJ/YmbmfQLPg7e4W6/ +y56zcJ1e4lX2cgfw2HjnXfEqNtr+u1J2MNwW9ujVLrM9wMZP67tPittag61u +wA+1LDZqbcgvmD+9H9R7ni0bG2Zj1ucWz+oHZiCT+i53lTIHvzwcR9+lxqCu +F/bb7hQHX/bVdGSf2w3PlhY3TdZz0IN/g5qSrB4s+esnHulMYMmDw8p/prgQ +dEV9JWWRwJf0Q1HuXC4ULisqWx5HQdeu3o3nz5B4Mv8kYicjhaHL0k8V5U3B +y5HDSaajHOTxElA3EdGBQDVH2+RVBF45vHfzq2ou/Dq7s/XpDQJdD8U2By6Z +BkGb3XVC2yjovvGKzaN2LiQEffhHpoGCma+41fs1uUBQbluomUmhRnpJ3hec +Au8x19W6JxSwXtrCV7yyHhxP8MPrWgUMuFAhNL62DrR7Gp6fEaGiRtSLhWN2 +1fBtr3dchBkV9bWJ8tyHZfBxWYHM6nQq+le5jOtdLIZLQ8rdQgNUnGnke7LZ +qBA0BNqEwxVpWNnQ4piknA+qLoKL0f40dEmavs3vnAPzPQpbPj+iYVOjpuvX +zJuwRnitspowHWPvbFknmJAOFMquSyUWdPyV26d6f1MKDKpYrYu4Tkf+HYXS +lr8Tgefqn3MfB0k9C9QrldoWD+2yA1IZGxhoslPxU1JGDNz5OiI36MvA9n0O +96XaoqB5PHywrIaBerIZY7+uhkOpsMBYtwATGx+vyI7RC4Ofrv9UnDNl4tYq +R/f+oiDo/+ldcuMqE/1fMDVerPOH9uJvdI1PTNxyJ7hZz90H1jwet7Rdx0J0 +OMLy0fMA+Y4vzR3eLAzdZWhRJuUMp/MfCpnUsPDe7eKGjTEO8My26NYPITZ+ +l3//UXXQFtqpKaEfjNn4rW1T/bSYDaisXyVreZ2ND4grMzeWWoKJ1ZtRtT42 +8jVcl9wibw6O9feUbrA5ODoik5v40hhaAqRV431Jfao57ehHNYB60cZk2SoO +BnxM1HHJ04NvQjlVPy1JvcIfhm0/uNAwK8QnNEpg6y0J1P/LhUth/PIQSkH6 +HrvWb0lcEJpa1TMqLIXC3mxXu+YpaJnwPRrUx8Gfq4dvF5/XgUJ5QdGnKgSG +25ZIx3Vywbomd2iggcDPdNX8URJ/Bh4547cOUjBUgNe4qIIL8r/0nGWCCcys +HZb3meeC0lYXmXXiFKQWndWKJb/ndf/uRjaXg1KczuWKsdrgsn1B5YUQgXbd +B62/POTCGpWCnZrJBDY3ls0S/NPg94/PlMJGChrec1ky9oELOi/8Fu2qKXhE +zD2kYxcX/kqs+lKrL4WvG0UULS2moMYt+L9ATwWETMG2mNl6sNB6ISxdrYDb +Qzzf/zavAwvOmJfsUiq2LcR89S6qhkQf3pg6IyqeCTjgdGmhDAqK0qcyUqjY +oV6QFvSsGHh6epbf+0zFoFiLJuapQtj5sj+2kUlDaYcU9ZGofHAsD7Bb60PD +y3nch6/ycuDZ4p+hfypoOBWaePhg7004G1iIkQJ0dKb16fJOpMOd5epBFiZ0 +nJ7/9TUmKAXEFh4cr0+mY0l8QJekahLsHXyY7dlH4ts0PczSJR6elVrG7eIw +sEifdn/DZAwomz0b3OjJwImTzbuK10ZDYH/NBdNKBmq9ec2dfhsOC+9yByR5 +mXhwKF+h7WQY2FRKXZI0YmLvvqPzC3zBMBG9oX9HIhNbu1Mi+N38IZS6PCek +m4k/Y602yd/2gb6iE6WTDBaa/XlannfDAyIzWoNXuLMwaUdjULerM0Q+tlqd +WsHCPNnan0dbHWBitvTC+SVkPpvPrlYn7CA1XqBCag8bnzaVCku62oCc/EeV +wWQ2TgdqfL9paAk9yfsPf+xl40Aqso5amUNM57XfAzQO/jMWqMYrZQJrVjl3 +sD1JvB8suK3sZQC6CWZ/N5dyMEw+zev4hB50i26PoxsTuDnZyUnhOxeG87yC +T/cRWMtYcu/3IokHzfUWVn4U3J92szboBhcq9fKfKPNJYVxNtVd51xTs8V9o +vNTLQePKjcG3XujATWZ637QigZJxV0vV33IhzHOl3aFqAqd1O1rjSX+v4Lyi +PzKlYGXyk4CrdVwQn+7VMvUh0H+3JMNtlgsWg2+SMoUouP4vz/3tE6TfH2/b +qPWLg7bzb5Q6WrQhUvnlBTspApc/eeFlVc+FljcfzQ3vEPgmWK7IkqzP5RMd +qrQl8F2E1mMZ8v0M/czouCkCRW2mA6T/cEF1BXp4vCJQezD5VwPJh40j9xKH +wgkc3axcKUL2KxzBd6tImoLzE9tjj3zjgqndYzuJOQ7KNxtt2m2mDfY7DG4c +W0IghlbzNBRySfwd5Q+IJ/AZr+1bNTLvrveLjC3gUFDl+uLXD5+4kOqr/XtJ +OQWfzJ1RnTTiwniCHktAVwqrDZrqfh6agn7F8BpxdwX0NclyvURpgGaF+161 +FQq41SKMd6NHHRw2Oas3soSKH4Uuiu3pqQaXiKZltnuoOHiZuf49rRzWLP2n +z+kKFe1tzX6bfi2GcotNzNMfqXidOfvu7eVCaFF2N3Ol07DYXil6pigfQo8U +Jgx70rDcPHRm/kUO5Mc7PSkupaHp95xF67mbUK40u2sDPx2PlR056UG9Ad6C +yuO0vXRsipOjtdxIgay+j1EOiXQ87hC1o94yCfxXJGxR+0zHM4patzdGxMN2 +/lV7pFkMND20P9pC7iIEnCs2eOfGwJ5vO+Y79aLB+LDNYblyBjpu7l6tOR4O +N9VO2hUvMPD19KF41cQwSLBLDewxYKJUS5eAo2IwBO67MCeewESlmmDroRh/ +eNuV5ri2k+Sf15mMdw0+0Hi3dKCGxkJiODRSsdUD1P/TsbjtwkKLtidrXiY6 +w/mmPEK7jIUzSzbYG4w5QPTOikUrPnIeiv4W6bPZDhYaNdsr9Nl4lzXTH3vV +BiSu1dfeS2Tj6g0va7w9LUFelfLPgx42BgbqeJWdMIf0o/H7zilwUGmHqWLK +FhOo6l15e9KNzDNtNq+drhjAkrYrm6qLOTjlaClYt2YnvFt1/k+NAanHOTJq +GYNcCAmnq1X1EijVbfae4J2Ghyk41u9Fwavm20Vlskg+jAWUvv9LwWPtEwd0 +vkyBcLnOPNFD8mt1j5zbqA5c5wwbJrAIjDF88HLoJRdW6z+VTSkj8BZvRksx +iX+vqK81u40omGvM+Hy0gQsifzi3R9wJ1HPyvFU7zYWhmv/MevkpGKARt8Vx +kguieZSjz8c4OCRn+mN2RBtOb5XizkkSOMWh+GTUcuFwXoJYdBbpd4ETR2ZI +f/opcNB0nw2BL5ae6hUY54Kywj69lnEyn5knLXkyx4XGgd/r8poJzGUvO+tM +nmeNzS6cOU1g0iqlsBbSL1NtSo+MraHg55P5TktHyHnx1pKk9BkOGhxxXczw +0oYI6z/nFq+RelCU/qeT5KfV2+oanSECE1tj6QULXBhLts5SqCOwjuXsYUz2 +S5mMf1fqT+BAVcfteZLf6rPrrogVEJhvYlmRTO7fUol5oNxGoJNCyCwvWW/r +N7t1RtEEmgVsfKrEMw0Ja4M2nv/Lwbk3vYY0FW34rO3VpsxHYHtJZsS9Ai5M +zFR9kYgl9SKzrbia/F9CWXEfTrAoWPhP8vjuL2S/z9nu7SUUtPzjnDprwoXv +b44Y5O6QQmmtx27FR6cgQGRpzydXBUxt/uycwWkAQYlM2uVyBZRI49t+ILgO ++uxblN7yU/FAJH9iy89q2H/xnr6SARVL/3RcuKhaDgabza32JFNxSqBqquVX +MSTGdysf76Wi2oNje0tuFMLKYw+K/6XR8L+7639facwH4WJDxdceNNQ8fD8y ++0MOpHen3T9TQsNOf5LPwrfA7ELaCx4+Og6ffbuxTuMG7AvfmC9iRMe/vYYL +p4tSYMzC74rKZXL/WLH1/eNJIJwZFiTziY5bV7yKYMfHQ9Add7YAk4HnNE06 +QrdcBClG3qlsV3KelTY+wHcgGjSk858vKSPnlUM/n44uhMPksN3as38ZeNzv +ekJAZhhs2NrrXrObicL3ZxUKIRiqNTWi5uKY2JfaYeqa5g+nSgZ3jrcz8WLa +QaHHbT5Qdcfy7y0qC5tq+DUE+j0gISC01s+Zha/OdCba3nGGmJfm0pKlLKRP +SF59s+AAb90q1ZGXjeIzWd0y2+2gsL/d4dwuNhqFaCccv28Doh1lkfGX2Vjp +FHdzNMwSnv4X5Hutm423ktk3fp01h9u5MYLW8hysFei2PYEmIKprH9ftysF3 +K7UUiXwD6D+hYXCmiIPpWcof+Dk7wWR1oVKMPoGVHwYr9g1w4Zln6JoDPQQG +8djp3iDxEtdooJnvQUFfne7HR3O4sF378KbcOQo+TK+/yjMwBcNWg5Ifuzjo +Prr7Wf+8DhCKYmePMAjUGdmltrWVCzYqsvOqJQTeDeC5U07i2bD0h4jYHgp+ +OC37Res5F6LnjHvLXQl8tXbw+WdyHtqU/2lTMC8FadHr+t3JeWnMoDo45gcH +1eLEU9PntGFeFRWbVpN58+TWmcoaLtxOHh1j3CTw0HNqWjXJV7elYZHUgwTW +8Ew5j49x4dSK+zSXMQK9/T+sP0fmT/G3Rsv0Gwk0X32Sdp88n/VzrYpxCIFa +k94PqSS/B/XFtsdIUNB6psrceJT0O53cAvtpMl97sSs+ndaG1l0Wx9OuEhil +m7t4iuRjZs2atC/9ZF6QTpi0IP13W3jJ2cc1ZH1rt7wTZL/JU2VCEScIjKu+ +/Hwbye+zAxF+Bfnk/TZdgGByf1R+MPb1GwKD+U7xHSfrFX2POiIVSeDe5khG +JlnPp1ZG33ieg/pfdQU36WiDrbwQo+sygSE27OG7pF83WzvDXAWBW9dJduWQ +9SRr1JSHcwi0KBhftZ5cn55NMVzeSqCifv0zabJfDc+MfLs0Ar06Lb6v/3// +ebzPwp8SOCPmTaGS58eXvyn3KSQw52qBXB65LgrtkGhY4OD5lK5ZKkMb/gcR +kibX + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1He4j3UYBvAje+89TwMpI6tkJZQ9DpHsY0SESmVkVFpoR2TPooxCoexZ +WRmZFcqIimxRfJ6rPz7nvr/f51xn/J73ehOT+yb1SZGQkNDNl8hivhyVnzGU +Js7ZOKC3op6egd36bCpQ2zk12/VpNNNzcEgfSEM9M3v1NrIgc/QWMje/6O1k +EW7RE+WvsoOcF79X5iOZYc5NZXY6cdD5MVmIrrR2ri8z0pE9zo/KAnThY+ck +mYvO/OzcVhamol5HpmGH3lrmZ7reXObkJ30QjfQs7NPn0lLPw2E9Jbfqv8n5 +DI+/gQbuMvGj/gmVqOuclh/0GQwmFbe5OyYX8GJ8blTmIffp2KnP5AVSc7u7 +43IhL8Vnwr2kIS3pSE8GMpKJzGQhK9nITg5ykos7/MwT8nNejs+J+8hNcbOT +8gtGxP6oQh5KmP0uF/EK7bmfvJQ0OyUX82rsmKrk406z03IJr9GRauSnlNkf +8ktepxPVKcBdZn/Kr3iDztSgIHeb/SWXMpJkalKI0mZn5DJG0YUHKEwZs7Ny +OaPpSi2KUNbsb/k1b9KNBylKObNz8hveoju1KcY9ZuflCt7mceqQSHmzC3Il +79Ajno14jqhgdlGu4l16xnMQzwgVzS7J1bzHEzwczwOVzC7LNbxPL+rFXqls +dkWu5QN6Uz/2Gs+N2VW5jjE8SYPYa+zf7B+5nrH0oWHsNfZvdk1u4EP60ij2 +Gvs3uy43Mo5+NI69xv7N/pWbGM9TNIm9xv7N/pOb+YinaRp7jf2b3ZDfMoFn +aBZ7jf3Hy4zvxET60zz2GvuPdx3f65N4lqTYa+w/3kFs0SfzHC1ir7F/9ynZ +qk/heVrGXmP/7lOxTZ/KAB6JXbhLzy59FkPi/3bOyn790/g+PS9H9PayaIr/ +38flnW8CB8uWHw== + "], 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]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 13}, {0., 1.4388968087800817`}}, + "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:eJwV1nk0Vl0XAHBDJEoSvfch4pmfVEqS4dXeGUoiY1FURGSeMkSkeFEpQyiF +KENREplKoihEo4xpkKEkSVxEfPf7667fWvecu/fZe591FQ95mR8W4OPjO8zP +x/f/p61eyiI+PgI3TxCdcbdI+KTj3aoiQGBbaVbk7UISHLYaXj28gEAMq+Kr +LyLBdcuc6nMRAu279tl8vkdCkLqTXcoyAi8e2LXhZRUJs2qo1LicwE/HNk3d +rybhxCYZckaawAkezTezhoQolRdn7WUIXPz4ubd1HQlJa9TK1zAI1It8pXH8 +OQmEksSpgywCdb9vV9/UQsIV3pBRIofAWKO7LwZfkHCNndE7qUSgdPylMo03 +JBQpCIs/USUwwq5UNr6DhGapNse92whcmm2Ts6CPBNPlRcqxBgTefz9Qubuf +hLfLzvypNqTiz12pnjlAQpf4lnimCYEbUpydFb+R8FUk98FPKyoe/GHU+oME +94XhUfR9BFbzTbiMjpDwU2if2W5bAp8vPN4jNEoCKSA+eN+OwLeR2o9WjpGw +4K+/ZJQLgaV3D6j8mSAhZsakp8KNwJerBp59IkkQ+8O78d2DQH1nr+s1kyRI +TvZom/kSGLBDmuU+TULKRLlI5FEC46suPNv8hwTaeMLbsgAC+x+035ilrPBL +32VlCIFZNUMKvrMkZP9cpWoSSqD2uM89+l8SOCPTcydPEJi8TDm8mfK677eT +BiMIHN6gcl9snoTib9EHZaII3NUUxcqivOmr/WrjGALNA9c9UeabhH/7pWuK +Ywk0FROLV+efhLGpB5+l4gjUyWotqaJ8c/EhwcAEAp/y271RF5gEOwURVucF +AkNtuUO3KK9QLdymlUJgU0P5NCE4CS3bLY+kXyIwWi9v/jjlSJs/p+cvU/kW +Z/zpoKzplVlgn06gd4fltzULJuHXqW0tT64S6LY/rimI8o2U4RHWNQL3P6On +V1E+kJ8oEZNNYEvQ2MEpytLV6ipDuQRaFo4uWyM0Cc2vP1gY3STwdYh8sRXl +U/2R/oUFBAY3noUQyhrTqy9KFBJYYGpVmUJ5dPHrCt8iAnMvFcrnU85VCOxq +LSZwdKzFs5SyrarcrFopgbcC+W5WUF5u8EQutZzA6/yZzSWUm2xcYKaSwE2r +pTtzKYd7LbXfX0XgpF57SwLlzRGlpx5VE2hh455/lPJIik22Yi2BtRwXTxPK +2fn8TyOeEDgl4UOjU7apzhvsr6fmh6lWMEzlJ/nGeJFBA7V++THGHcoN/b9X +5zcRmMdddMqF8onpVKPFLQQqGdQ9laWstgQ9PV9S9RpI+VVPne+wwkDcq9cE +hggcFzhC+bpq7F2VVgKdFUOn+SlL2HaMkx1UPwxvvSxH1e+pV9iKvd3UefHZ +612l6h0awVR/0EOgTJf5O4LyUL53yIleAmtYC27/pvonq3pF+uc+ah5lE8ct +KVu/qarWHSQwqSWOWThHQv20iIDIMFWv61JoQPXj8SV3GK4jBPoEvF9zmupf +FcXd+s2j1LxYJC94PENCpkFWTPwEgeK2k4GyVL8HX9RYSpsn8AVzf7QHNT/r +Cz6uD+GnISNmdZ8HNV+D1f+Z9wjSMFAzfqPTOAmWA6+Ts0RouOYv350t1Dwq +b3JduVqShvTiU9px1DwPGEhsiZWioc3UAwuTYRLSbMsOjqygUfdVgfPC7ySI +RgpcL5al4ezYlriDX0noe3OZp8WioeBXpnhRLwki2fHvj3JoWPRPyuiOzySs +8Y+KK+TRUPXK/Jf3H0nw/8d3QnEdDY1uuy4YeU+CsO2OWpHNNPRYd9H2YRsJ +3P5J6zYDGkrf0pKUbCTBqOyHmMROGr4/IfdZ+xkJ3tFfqncY0zDPhPXpUD0J +lbyXzIdmNLyf8jjwUi0Jhp65o9f30TBMiN+kuJK6nyYtY3zcabj7h2rTtRsk +xDcYahV40tBPt+vRoVwS7qXiSJ83DS9ZbBFfmU3CX601ltb+NNyTfq0m+CoJ +58MFFSCMhsyd9i1fk6n7dFFx+eJ4Grp19qw7c5KEcdmlg3klNDwj+FBw2oKE +hmdcj7ZSGlr9cUmbNqXOz0/n94IKGj6eOak2bkyC7nP/efsqGh6U8Aht305C +YvD7f1bW0zDrJVm1R4uqX+dNg/g2Gn7Mxl1aiiS4pejlB03TsHJ5inXF1wnY +onNgfd4MDe9l1F3i658AyZHAsnd/aXi4bWyv7ucJuK9f8FhFQAbjq6u8Kzon +QGRiWfewqAyK+nDd7JsmINfio5j9ShkMW5RxvDh/Anolgj12gAyuLZI28XGe +gG+vDxrmbZVBWe1H7iWHJmA0UZ8jpCeDVYaNtT/3T8BfqWWfawxk8FWDmJKV +5QQQtBuW6uYyqJlRmv8ZJ8BEsU2Lc1gGCyPVfg0RE1C1QUVU6KwMip20Wzxb +Nw4XzYdya9pkUMTvwMR58XEo/blDdaWjLC6/MfzHL34MrnQWHjX+K4tlGpk9 +Ys9H4YCXaFjJhZXIWHOMIff3B5yx2939d5UcZl1tqR3LH4LQjJzvchVyyHhF +H69VH4TOzf0m9G3yKBlQfctPow8kQ2VDbV7L41TOsUcVMZ9h+VKr/a5HVuFg +2r4OidYeOD57MmH/xCqMdIsoDjvZCXtk9/67fLsCVu25DPtd38H+8+5SkokK +uK+soH984jUQdwJXCHYoYEOwtaOWwwvYHCA09oGhiMJL4ndo6DeC6Pczk7dc +FbH5VeDXhxr1ECi2sPujmyKmNX1yyeTVQ59SRLWkhyL6mWa7nafVQ7V7yH9B +XooIWcKtsdN14DPitlzvqCLWyVr6Sd6vg45fRsrdoYq4zZjVoqldB7lT4s6L +EhTRYOHB4y93PoGtwhfaDpcrYvTN2F/nYmpBWCqLcaFCEaXSBbbsDamFJsU7 +3jWVirjJMpx/nWctWGo/F5WtUsQtoV7vflvUgtNRQXhVo4iBZytFRlfVwple +vzzNJkXUj7t7KKeyBlqrLYOW9ihi9mM9KB18BM6BK2QqBehY/vLgCtsFD6HX +oVn5jSAd90YJJjX/rIIDpqf0vy+g4weRcxI7u6vAkjfiLbeQjq1zsV98iqtA +p7v+2UkxOmpGP587bF8F8uDvbyhFx1K3XZGfah9Aq3Drq24WHRs6mgK+xN6H +rSkJ0XMGdPz97SFpsaMC9py7baBsSMeyP+1nz6lVgGtk4yK7nXQcuMBe845R +AUm+/LG1xnQ8GbjX+fxcOXzd5RMfaU5HAx2iIu9eOcQvNEsVtaVjl8iB3R6M +cvgUJFGwwouOvf4pmwTEyuCETdyLdcl0zGXmaZnz3QPDDRbWO1PoOCH0YKL5 +VwmsWPhPr/NFOjrYmf82+1IChcUZE5mpdGzXKEwPfloCHxYVrlyeQceAB66j ++udK4N+KZtfJXCp+Hbuc6pUlMCUlurCmgo7OXf++W6RbDD4vIsHsPR0bjY3k +MwuKICmhS+VIDx3V7x7eVXq1CCos17NPfKDjFfb02zcXioCvu3vx7U90DI6z +bGQfL4LzgypdIv10nGoQeLzBuAjy+T4frflBx42bvLZkfL4DvSra+crzdOr/ +QeSG4PFCML84ISVOZ6BDds/o9g8FsPTw3ZJ/GQz879aa3xcbCqBZxcPcjcnA +EgflmKniAtj2oi+ugc1AWcdUje/RBaAp1CoaocTA+/XNTskqBcDwK+abUmVg +6PlGt7Ez+TC+y2v483YGxi12enF8+024KPztSakHA9NqxiT3/cgF0RIjpVee +DNQ6cCcq530uhB0sShzyYmCFRdjU7PNccKoItF/ly8AL+eS9l/m5oOYqPB8T +wEDX5Mkbgi650NbC0LQ9wcAsM3GjjMEckEo+UCSQwMBpeT8xpx/ZEM9oTTO5 +x8CDz9XrY2nXIaMr/c7JUgZ2BBw85il6HQoSnB+XlDHQ7FvuvM3MNXg6/2fw +n0oGToQlHdjXcw1muxU3fnrIwMYGLbcvWdfAOcmr0fsZA/Xv7Z+XX3sNtgiJ +kQldDCR4TrbzO7Pgx8BWk1Y+Jqrw+O+xLa6C+dn053wCTBw69WZdreZVqFCe +3r5WkImHy6nv06/CqaAijBJiogujV49/LANWiK5SURdlYtzNjauFEzMA185K +pS1nYoLuk/Hwd+lwwa+sy4HNxPZPps1dLmmgwafk9HsnEyPX7nXYWp8KuyPW +FYgZM/Fvj9HcieJU8BFWGWXsYmJjvDyj+Woq9T+qEWxpysTJ2V9fYoNTgUbb +fr7Ukom/8nrV7qxPhekNDmWB+5mofiG12/PqJah0uCI868lEic7sLalRF0Hj +mVjegkQm0mTuPcs7lgwjlv4XVS9Q+R0usblzJBmyez9EOyYx8Yhj9NY6q2SQ +mLt7pC6FiaUJgZ3SaskwoGq9OvIKEwW3Fsla/U6CxGvZtwVzmBik5bh4h3cS +fA/VvidQwcRTQ/u25vhdgHRVr1q+D0xUmAscVcpIANGs8OCVH5m4acnLSG5C +AgQsSdyo/omJJ5W0b6yLTIBdA/dyvHqpeM0ywq1cE4Dv0p/THwYoB+mXyWxO +AIeZ/8yrfjKRnnNLy/5NPPAep30J5GdhhFfmh0dL46HUpEnoJ5OFkYv8AyoM +zkHwTQ+uEJuFp7VM28M2noMtgst2ynJYaLZ/T4yl/Dl4WmYVv53HwmIDxp21 +47HQJtcvk7mWhabblD4mZ8YC+X1e2UyNhTaqm/erzp4F9ZhN+0q2s7COz2bm +YPUZqKrJLAx0ZaGmU/czTfcYkGHlH89xY6GDrMlegb0xEHi6xPCtOwu7v26d +7dCPARXzpwPrvFg4dqxpe8mqGLj55bv8gB8L23Y73pFpjYYU4c1xlqEsvPi2 +8nY+RIOPUYvXhnhqv7Oyl8IVo4DdMb3+eykLB+uj4eaSSNCULXi2oJx6f//P +J8NzEWBywPaAfAULnTZ0LdcajYCgvuqzZvdZqP36FTn5JgKaRiMGyqtZqC+X +OfLrUgR4LhJPi3zGQokxkS8f2RFQpklfKN/JQqsHG795Gp4C/XTDHtNZFtLG +tVlPCsNhfMh+1am/LDzifyUxMCscrqkfsy+ZY+Gryf0JaknhMPc2r1+an437 +BgsUW4+FQ5mo0EiXEBsbHi3JidUPB3bQoznHpWz0ibGU7Hh4AoQtVBWO0dmY +KfrX0FolDBpE5B2yDNg4/O2S7SLLEFi7qcejegcbRe9MKxZBCCTapwV1G7JR +prlTyEkpBGzvy5yXNmZjz+5Ds3MCIfDT7Z/K02Zs3PTAyaOvOBhWvJRY6ruP +je77nWv8pIPBMVnwgY47G3+0fH5n3R8E84rfJPvi2Lj40GqbmdsBUKWlGT0T +z8betHYzt/QACNp9dkYykY3K1SE2g7EBMBaztm9rEhtbulIjBd0DoO+nT+nV +S2wMeM7WfL46ABoe/rGyyWLj7P3XufH5/pC4d3H6m2I2Vq896VZRfBRYCcqc +2ndsjF7L3V72xReOlw5sG21j47n0fSKPWn3hTWe606oOKh/vk5lv630hjL44 +N7SLjT/jrNcr3PCFtpKvTM2PbNx4M6RJ38MXYtqy6CVf2eho/LT3/rQPDMlK +yefMsFFuLvTbElkfKMydkjqtyEGVgR/dP/94woObVn+v0znYWC2oKdTnCQ23 +yvqrGRwkhsKilFo8obf4aNk4i4Pmf55U5F/1hBWPRq3sVnMQHQ9yfPU9Iaz9 +6+XNGzmYdVnLRybJA4xFOhUG9Dj45xvt9nFtdxh2qVyje4SD/dwfqYLVLpAY +GFbj78LBlyc7kuxuuoDGf7qWN1w5aNn6eMWLJBeIymwJWeLBweStDcFdbi6g +0P65qd2Hg2HbjSzLZVzAUk/UxT2Eij9+atw/5AhUydvkJJ/noN6pyK2FBs5w +7u2s3Nd7HNQV824/vPQwxL6wkJUu4yBzTPrS6zlHONOYT+iUc3BqwVoHwxFH +iHpkvTytkoP5cjU/D7U4womCeyKm1Ry8faOkfl2sI/hEuP8uf8bB1fpJl7iL +HWH3xvcN0V0cNDWUlbCTdgC5Cw/8OHxc7HTTOPnK0B7euN/XQH4uSk5ld63c +Yg8x2yrnrQW4mBLzNcp3gz2MTZedPbOAi+9nc6o0CHt4ald8/YcIF78pvPug +NmAHnutuvi1ZxkW7f5fKDUTYwaPGlI3I4GLpg6mfrWcPgj2f72/rbVzU98kN +tXhqC0V9bY6nt3PROFQn8cgdW5hr0GqrNODiLc5UX9wlW0hLEKqU2cnFJ41l +otJuttBGTw17b8LFr63r6yYlbGGnfs0iu71c/Lim65iknQ1sOiOu4OzORWYV +O05LbB8skiow8k+k4t8Yc/5oohWIt5dHJVzg4n3n+GvD4VYgdbmu5nYSF5ev +fVHt42UF8gofVAdSuDgZpPntmpEVqK5ZJmd1hYt3iYtTVxdagZ1e4A/1bC5q +ry0onD2xByqO6p6fLeViTxnHdP7YbnB61/0yopM6n+fOqmoJFvDkv2C/y11c +vJ7CvfrrlAUoqNH+udvNxaAgXe/yoxbQnbLnwIceLvanIeeQtQWYWr8eVu/l +okD9FemNChag0f100cgQF7M/NXtV3TWHxZ/v6lrPclEsLltS870Z3B2OLl+z +iodJAyqNe41N4UZerLCNAg9rhLrsjqIpZBxK2H1akYfKW82UUjeaQmzH5d/9 +DB7+MxKkzi9jCk51t5Wvcnk4/H1lXtILE1iZ9jZvmQoPP98bRb+FJhCzc9Ul +Uo+Hjnmj329FG4NdfllQjSsPQzYo0tqrDUFczyG+y42Hb5dqKxEFhvCgZ+mN +cXdqfavtK+eLhrBimUs714vaf1/hDRVvQ2gOlFVL8OOhaPUJJ3+6IWjoh/+2 +P87DF73V7Tmnd4Dkpx2egud5eCD6PyXXQwbwRLrHYdtdHnbyfjXu1toGfUc1 +DU8W8zAjW+W9IG8bLGi9uL6qhIcTTlbCtSu2gV6i+d8NZTwMV0j3PjKmD3Xi +DSlyD3gY+CFJ1zVfH54uLGkcr+Ohp+BadWU5fWiajlG+3kHFUycu5rZED4as +B6Q/dPLQY3jH075ZXRCt0J0lunlosrxb3n1YF3YGzDWc76F8f13I9ee60Dzm +dyi4l4c/lw/dKDmjCy++H0g2G+Yhn7eQhqmYLowYVoXE/uCherxkWsaMDojn +0w49G+HhoLzZj+nvOmBypHWd9i8e2s2+Vm5v1oFXfTsauCQPZXgdi5XidGBU +N6/QYZKKz5tb+fGEDkhcX5CcMcVDw4Nu85neOmBm/8heaoaHCk3G63eY64Bv +zUoDk1keGnzRE16vqwOJq4LXnfnLw5nXPUYMVR0oDmuXqp/j4ZnUzmk6Swfe +9KjOzM/zkLjFL6i8Qgf+B9fNJtc= + "]]}, "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.600000000000014, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "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.6, 12}, {0., 0.9024512949336763}}, + 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.992078824857956*^9, + 3.99207884924148*^9}, {3.9920788824601307`*^9, 3.9920789822351875`*^9}, { + 3.9920790141960087`*^9, 3.992079024878128*^9}, {3.9920790744634304`*^9, + 3.992079092077688*^9}}, + CellLabel-> + "Out[226]=",ExpressionUUID->"89fea184-455f-3546-a0e8-128fb01081ce"] +}, 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.5", ",", "9.5"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.992079164618025*^9, {3.99207927277396*^9, 3.9920792767879047`*^9}, + 3.9920793690339336`*^9}, + CellLabel-> + "In[239]:=",ExpressionUUID->"06bd140e-882f-1a43-ac6e-f81b725f742b"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV0nk01VsbB3BlilARvY7xt5UKDVJxRc+DUpShbogi5yBOITKc6Lg5pkLJ +dJs0EHISGaJJCRlTZKZByFAolSKJ7u/9Y6+9PutZ3732etaXYh3Z7TZXQEAg +mj7/v5e3KggJCDBwyvvaG9dPw6BvFLTxK+0cYaMr3JFhsLzd7tE3h4GGSkVl +SR+HIfBUwotKQQb2bj63pmxgGKoNRM9HizKw+4FA9qLuYXDN/LZSZgEDc9eZ +Tp5rGIbUwDordWUGbmjnL9XIGwZ5eU7KTgMGJtgXH/f0Hob/1Spl3Aph4M3H +V7w1uz7C9HzNnOKH9H822R7mGn+ERs2R1WcmGOi68BOzLf0D5BVPEI6uAjam +bLQzHRkCv1YPOQl/BdxclxdlpDMEJo7qx+8UK6BL+k4xuQODIFRxzmHFhAL6 +5uU464QNwM0Sr7+2r1PEGrboZvbNftinEh8d7KeIlyKC5A7eeQ9flsh32eUr +op2VmJNPZR8Eju5JnzuqiOseZjalNPeCmOab7idaSmh06mzk1qoeCJ2tk1/B +VsKxTlcpzZh3IGggWH09Wwl3Rdzet2PvW+DYjI0ODyuhxdcWg7zVr6FR0Fim +W10Zw6Wf3erQ6gIdxZ7s9+7KKJua2/hZpAOO1/UbJWcoo9d0ypGPC9ugsWe9 +ud2gMraKbJ1onNMCsq26L4bUVdBk97R09qIm2Lw/zUrNRQUtXlbMBhU2gL+l +rYlvhgqeFMrR91tdD2fafDce6lVBX0PPb0rKtbBDUXX3BSlV/CryKCJ0TxW0 +z80tF1qjiqy7GmaicRXQovMp39RCFSuFk110dcqgXb6lc5G3KpqW3Sm3eVEC +zV7SpSZxqui2YI5uY+09QAlhtR059FzvMD8/oAiKDlwpe/1cFQcYDadizArg +0syHt0YjqliVmbNkwD0XgsTi7kuJUXhJ7KXb2d98cHrWWe+6kkJLeRvGqq4M +KG5rd4rfRqEuP4RhF5MG0ueCNbZ6UHhtp1Fh49Rl6E1tCmiMonBnTcDFN8sv +AF8+7J+yDAqTE5ubTdST4cDRk+7GmRSqJhTWW8klg1z9aetK2no9vAPuIskQ +yT1Pam9QyGiev+nBYBKw3uVUN/IpnNLf9nMwKwkUMjuk3uVQaK9oYeaqlQRx +a1ddmymi0MXdt6PIMBECtnU+0a+i0FffxlkrNB5svd7M3qFtIO7l8MwvHjYm +9Riuqqaw323ruI97PPzs/lCiUkMh9Q+OdljGAzdw6p5QHYU9hGJLKMdDRCYj +v+E5hR0p/86T456FZEHHVFYrhbz1fc0B8+Kg6ElvaMx7Cqs54rWXrWOBza3t +l+yn0Cx7MUtRPxaU/8rbnkD7TsiyXblqsXCqkLvwwgCFVQKfZ+dOxsD+zCWp +mUMURvJCLblXY0A41uJJ2QiFcoO8kMtfosHW9sHMxDiFxxYHs4zTTsHUaHyw +ixDB/C1Vrwq1o+DgAq+gftom/94+GaESBc3aZsfchAnqWrw1cJWMgpzAOYHu +IgRLWFMXLD5GgrPAUd/D8wgOOAyK1qRFQq3M3x5+EgRD7/pa75SNhAv6srbh +iwne7Z9c6SQSAbqnLmqnLyX4J1c76YpUGDRw/KMUltHvy1bd4guEgau71esk +2kLhnD+Pv/Eg0VQ4MkKdYEtbk4FoBw8+Cfl2uq0guP+Rk7VMKg/SedtPrNAi +qMzjjc1fz4MFxyef5+oQlLSuCLZ2CYUhLxuP+8YEy492vuaWhMDu79J9+iYE +Z5u40TbXQ+BR8Mt9j2mPZxwIM44OgcSTO6wqthCc/uMpb28XApvTjDY+NyV4 +IjBFl/OdC8mtq4R6zAmmb4rRPLSOC8abRFJF/yZomCCeWvkoGK7Mu9dh60Iw +bXvCU915x2Ddfr+sl7T1umZ4Uj84UJ23hmPuStDi3OzAeC8Hvtjy5Ta7Eczz +n/UfLuGAceZFm2XuBNfr6ZyO9OHAkBG3ZfwQnT+afvXQm0DQPm7UGH+UYDXz +ydWbpQFQ9am++hmP3nffzTmvsv1AOitE2ziM3t/nbS77UvzAyXnN5Qe0XUqp +qA+xfvCzOdGXH07wpY/w52VefqBx314xKpKgxFPKUWutH8SFDfkaRRMcki37 +x/n+UbBdIqh0P55g6YpomVVNvjCI+n6Z1whOqu7xuk58QCShYe7yVIJLNvwI +frLYB5b3shL5tKc9lst9EPEBD15swa00gnt6K9LutR+BkfI3YwXpBM0fSBVf +YB+BL8YnPEuz6LyYXltSkjf82lLp1pFHkGksazc+6QmSZpZ7xcoIbshaX5o9 +y4a9B3sNw2gHFDQ4ZH5kw/Vwf7Vp2u373gXkt7JhY+mlz6PlBB29FCYms9ng +rDMU8fIpQWd2Z435XjYUKYUWnK8haKVeJf2j2AMcvhWIqzcSvBG9SkIsxB1u +pMg+Nu6m++1dr5an6wZnJeUL62hX7jty3nOpGxw7oZhl/Y6gWIXjgk2L3MDc +RS3BqYfOm8U2i4+4wpiGtltwH8E2vRJZ/2uuoPdwp2ThIEGRV2VrmfNdoa4z +3JEaI2g/cFBk6xgLCs1P7ubT/rVH8rtoNwsuP4rZtuYLQU/2mdWvnrPAOzVB +2/Ar3X+5XzY52SyQ9rgmbD9OUOPRoKCIOwscJh/mxk8SrPpdyw/vY4IJu/T6 +kp90v/bHOm5oZoLW6/LzV2m/f2+e9KOcCbOltbycKYLirzSt09KYkB7VblM7 +TfBiUPTdDCYTTv/sMrf6TdBmkyCjbhcTAg+9hXbaL/qtLk8bMWG7Zf/K/hmC +J4noixjCBO2yIeXDswTNzu13GZJmAmPdiMw32qvTHT7sEmSCYMbneUF/CJr2 +SFk/G3eGUdlvM39oi/Pi46z7neE/rgnY2A== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0nk01VsbB3BlilARvY7xt5UKDVJxRc+DUpShbogi5yBOITKc6Lg5pkLJ +dJs0EHISGaJJCRlTZKZByFAolSKJ7u/9Y6+9PutZ3732etaXYh3Z7TZXQEAg +mj7/v5e3KggJCDBwyvvaG9dPw6BvFLTxK+0cYaMr3JFhsLzd7tE3h4GGSkVl +SR+HIfBUwotKQQb2bj63pmxgGKoNRM9HizKw+4FA9qLuYXDN/LZSZgEDc9eZ +Tp5rGIbUwDordWUGbmjnL9XIGwZ5eU7KTgMGJtgXH/f0Hob/1Spl3Aph4M3H +V7w1uz7C9HzNnOKH9H822R7mGn+ERs2R1WcmGOi68BOzLf0D5BVPEI6uAjam +bLQzHRkCv1YPOQl/BdxclxdlpDMEJo7qx+8UK6BL+k4xuQODIFRxzmHFhAL6 +5uU464QNwM0Sr7+2r1PEGrboZvbNftinEh8d7KeIlyKC5A7eeQ9flsh32eUr +op2VmJNPZR8Eju5JnzuqiOseZjalNPeCmOab7idaSmh06mzk1qoeCJ2tk1/B +VsKxTlcpzZh3IGggWH09Wwl3Rdzet2PvW+DYjI0ODyuhxdcWg7zVr6FR0Fim +W10Zw6Wf3erQ6gIdxZ7s9+7KKJua2/hZpAOO1/UbJWcoo9d0ypGPC9ugsWe9 +ud2gMraKbJ1onNMCsq26L4bUVdBk97R09qIm2Lw/zUrNRQUtXlbMBhU2gL+l +rYlvhgqeFMrR91tdD2fafDce6lVBX0PPb0rKtbBDUXX3BSlV/CryKCJ0TxW0 +z80tF1qjiqy7GmaicRXQovMp39RCFSuFk110dcqgXb6lc5G3KpqW3Sm3eVEC +zV7SpSZxqui2YI5uY+09QAlhtR059FzvMD8/oAiKDlwpe/1cFQcYDadizArg +0syHt0YjqliVmbNkwD0XgsTi7kuJUXhJ7KXb2d98cHrWWe+6kkJLeRvGqq4M +KG5rd4rfRqEuP4RhF5MG0ueCNbZ6UHhtp1Fh49Rl6E1tCmiMonBnTcDFN8sv +AF8+7J+yDAqTE5ubTdST4cDRk+7GmRSqJhTWW8klg1z9aetK2no9vAPuIskQ +yT1Pam9QyGiev+nBYBKw3uVUN/IpnNLf9nMwKwkUMjuk3uVQaK9oYeaqlQRx +a1ddmymi0MXdt6PIMBECtnU+0a+i0FffxlkrNB5svd7M3qFtIO7l8MwvHjYm +9Riuqqaw323ruI97PPzs/lCiUkMh9Q+OdljGAzdw6p5QHYU9hGJLKMdDRCYj +v+E5hR0p/86T456FZEHHVFYrhbz1fc0B8+Kg6ElvaMx7Cqs54rWXrWOBza3t +l+yn0Cx7MUtRPxaU/8rbnkD7TsiyXblqsXCqkLvwwgCFVQKfZ+dOxsD+zCWp +mUMURvJCLblXY0A41uJJ2QiFcoO8kMtfosHW9sHMxDiFxxYHs4zTTsHUaHyw +ixDB/C1Vrwq1o+DgAq+gftom/94+GaESBc3aZsfchAnqWrw1cJWMgpzAOYHu +IgRLWFMXLD5GgrPAUd/D8wgOOAyK1qRFQq3M3x5+EgRD7/pa75SNhAv6srbh +iwne7Z9c6SQSAbqnLmqnLyX4J1c76YpUGDRw/KMUltHvy1bd4guEgau71esk +2kLhnD+Pv/Eg0VQ4MkKdYEtbk4FoBw8+Cfl2uq0guP+Rk7VMKg/SedtPrNAi +qMzjjc1fz4MFxyef5+oQlLSuCLZ2CYUhLxuP+8YEy492vuaWhMDu79J9+iYE +Z5u40TbXQ+BR8Mt9j2mPZxwIM44OgcSTO6wqthCc/uMpb28XApvTjDY+NyV4 +IjBFl/OdC8mtq4R6zAmmb4rRPLSOC8abRFJF/yZomCCeWvkoGK7Mu9dh60Iw +bXvCU915x2Ddfr+sl7T1umZ4Uj84UJ23hmPuStDi3OzAeC8Hvtjy5Ta7Eczz +n/UfLuGAceZFm2XuBNfr6ZyO9OHAkBG3ZfwQnT+afvXQm0DQPm7UGH+UYDXz +ydWbpQFQ9am++hmP3nffzTmvsv1AOitE2ziM3t/nbS77UvzAyXnN5Qe0XUqp +qA+xfvCzOdGXH07wpY/w52VefqBx314xKpKgxFPKUWutH8SFDfkaRRMcki37 +x/n+UbBdIqh0P55g6YpomVVNvjCI+n6Z1whOqu7xuk58QCShYe7yVIJLNvwI +frLYB5b3shL5tKc9lst9EPEBD15swa00gnt6K9LutR+BkfI3YwXpBM0fSBVf +YB+BL8YnPEuz6LyYXltSkjf82lLp1pFHkGksazc+6QmSZpZ7xcoIbshaX5o9 +y4a9B3sNw2gHFDQ4ZH5kw/Vwf7Vp2u373gXkt7JhY+mlz6PlBB29FCYms9ng +rDMU8fIpQWd2Z435XjYUKYUWnK8haKVeJf2j2AMcvhWIqzcSvBG9SkIsxB1u +pMg+Nu6m++1dr5an6wZnJeUL62hX7jty3nOpGxw7oZhl/Y6gWIXjgk2L3MDc +RS3BqYfOm8U2i4+4wpiGtltwH8E2vRJZ/2uuoPdwp2ThIEGRV2VrmfNdoa4z +3JEaI2g/cFBk6xgLCs1P7ubT/rVH8rtoNwsuP4rZtuYLQU/2mdWvnrPAOzVB +2/Ar3X+5XzY52SyQ9rgmbD9OUOPRoKCIOwscJh/mxk8SrPpdyw/vY4IJu/T6 +kp90v/bHOm5oZoLW6/LzV2m/f2+e9KOcCbOltbycKYLirzSt09KYkB7VblM7 +TfBiUPTdDCYTTv/sMrf6TdBmkyCjbhcTAg+9hXbaL/qtLk8bMWG7Zf/K/hmC +J4noixjCBO2yIeXDswTNzu13GZJmAmPdiMw32qvTHT7sEmSCYMbneUF/CJr2 +SFk/G3eGUdlvM39oi/Pi46z7neE/rgnY2A== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6.5, 9.5}, {0., 0.8414787587202844}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.500000000000014, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{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.5, 9.5}, {0., 0.8414787587202844}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.500000000000014, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0nk01VsbB3BlilARvY7xt5UKDVJxRc+DUpShbogi5yBOITKc6Lg5pkLJ +dJs0EHISGaJJCRlTZKZByFAolSKJ7u/9Y6+9PutZ3732etaXYh3Z7TZXQEAg +mj7/v5e3KggJCDBwyvvaG9dPw6BvFLTxK+0cYaMr3JFhsLzd7tE3h4GGSkVl +SR+HIfBUwotKQQb2bj63pmxgGKoNRM9HizKw+4FA9qLuYXDN/LZSZgEDc9eZ +Tp5rGIbUwDordWUGbmjnL9XIGwZ5eU7KTgMGJtgXH/f0Hob/1Spl3Aph4M3H +V7w1uz7C9HzNnOKH9H822R7mGn+ERs2R1WcmGOi68BOzLf0D5BVPEI6uAjam +bLQzHRkCv1YPOQl/BdxclxdlpDMEJo7qx+8UK6BL+k4xuQODIFRxzmHFhAL6 +5uU464QNwM0Sr7+2r1PEGrboZvbNftinEh8d7KeIlyKC5A7eeQ9flsh32eUr +op2VmJNPZR8Eju5JnzuqiOseZjalNPeCmOab7idaSmh06mzk1qoeCJ2tk1/B +VsKxTlcpzZh3IGggWH09Wwl3Rdzet2PvW+DYjI0ODyuhxdcWg7zVr6FR0Fim +W10Zw6Wf3erQ6gIdxZ7s9+7KKJua2/hZpAOO1/UbJWcoo9d0ypGPC9ugsWe9 +ud2gMraKbJ1onNMCsq26L4bUVdBk97R09qIm2Lw/zUrNRQUtXlbMBhU2gL+l +rYlvhgqeFMrR91tdD2fafDce6lVBX0PPb0rKtbBDUXX3BSlV/CryKCJ0TxW0 +z80tF1qjiqy7GmaicRXQovMp39RCFSuFk110dcqgXb6lc5G3KpqW3Sm3eVEC +zV7SpSZxqui2YI5uY+09QAlhtR059FzvMD8/oAiKDlwpe/1cFQcYDadizArg +0syHt0YjqliVmbNkwD0XgsTi7kuJUXhJ7KXb2d98cHrWWe+6kkJLeRvGqq4M +KG5rd4rfRqEuP4RhF5MG0ueCNbZ6UHhtp1Fh49Rl6E1tCmiMonBnTcDFN8sv +AF8+7J+yDAqTE5ubTdST4cDRk+7GmRSqJhTWW8klg1z9aetK2no9vAPuIskQ +yT1Pam9QyGiev+nBYBKw3uVUN/IpnNLf9nMwKwkUMjuk3uVQaK9oYeaqlQRx +a1ddmymi0MXdt6PIMBECtnU+0a+i0FffxlkrNB5svd7M3qFtIO7l8MwvHjYm +9Riuqqaw323ruI97PPzs/lCiUkMh9Q+OdljGAzdw6p5QHYU9hGJLKMdDRCYj +v+E5hR0p/86T456FZEHHVFYrhbz1fc0B8+Kg6ElvaMx7Cqs54rWXrWOBza3t +l+yn0Cx7MUtRPxaU/8rbnkD7TsiyXblqsXCqkLvwwgCFVQKfZ+dOxsD+zCWp +mUMURvJCLblXY0A41uJJ2QiFcoO8kMtfosHW9sHMxDiFxxYHs4zTTsHUaHyw +ixDB/C1Vrwq1o+DgAq+gftom/94+GaESBc3aZsfchAnqWrw1cJWMgpzAOYHu +IgRLWFMXLD5GgrPAUd/D8wgOOAyK1qRFQq3M3x5+EgRD7/pa75SNhAv6srbh +iwne7Z9c6SQSAbqnLmqnLyX4J1c76YpUGDRw/KMUltHvy1bd4guEgau71esk +2kLhnD+Pv/Eg0VQ4MkKdYEtbk4FoBw8+Cfl2uq0guP+Rk7VMKg/SedtPrNAi +qMzjjc1fz4MFxyef5+oQlLSuCLZ2CYUhLxuP+8YEy492vuaWhMDu79J9+iYE +Z5u40TbXQ+BR8Mt9j2mPZxwIM44OgcSTO6wqthCc/uMpb28XApvTjDY+NyV4 +IjBFl/OdC8mtq4R6zAmmb4rRPLSOC8abRFJF/yZomCCeWvkoGK7Mu9dh60Iw +bXvCU915x2Ddfr+sl7T1umZ4Uj84UJ23hmPuStDi3OzAeC8Hvtjy5Ta7Eczz +n/UfLuGAceZFm2XuBNfr6ZyO9OHAkBG3ZfwQnT+afvXQm0DQPm7UGH+UYDXz +ydWbpQFQ9am++hmP3nffzTmvsv1AOitE2ziM3t/nbS77UvzAyXnN5Qe0XUqp +qA+xfvCzOdGXH07wpY/w52VefqBx314xKpKgxFPKUWutH8SFDfkaRRMcki37 +x/n+UbBdIqh0P55g6YpomVVNvjCI+n6Z1whOqu7xuk58QCShYe7yVIJLNvwI +frLYB5b3shL5tKc9lst9EPEBD15swa00gnt6K9LutR+BkfI3YwXpBM0fSBVf +YB+BL8YnPEuz6LyYXltSkjf82lLp1pFHkGksazc+6QmSZpZ7xcoIbshaX5o9 +y4a9B3sNw2gHFDQ4ZH5kw/Vwf7Vp2u373gXkt7JhY+mlz6PlBB29FCYms9ng +rDMU8fIpQWd2Z435XjYUKYUWnK8haKVeJf2j2AMcvhWIqzcSvBG9SkIsxB1u +pMg+Nu6m++1dr5an6wZnJeUL62hX7jty3nOpGxw7oZhl/Y6gWIXjgk2L3MDc +RS3BqYfOm8U2i4+4wpiGtltwH8E2vRJZ/2uuoPdwp2ThIEGRV2VrmfNdoa4z +3JEaI2g/cFBk6xgLCs1P7ubT/rVH8rtoNwsuP4rZtuYLQU/2mdWvnrPAOzVB +2/Ar3X+5XzY52SyQ9rgmbD9OUOPRoKCIOwscJh/mxk8SrPpdyw/vY4IJu/T6 +kp90v/bHOm5oZoLW6/LzV2m/f2+e9KOcCbOltbycKYLirzSt09KYkB7VblM7 +TfBiUPTdDCYTTv/sMrf6TdBmkyCjbhcTAg+9hXbaL/qtLk8bMWG7Zf/K/hmC +J4noixjCBO2yIeXDswTNzu13GZJmAmPdiMw32qvTHT7sEmSCYMbneUF/CJr2 +SFk/G3eGUdlvM39oi/Pi46z7neE/rgnY2A== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6.5, 9.5}, {0., 0.8414787587202844}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.500000000000014, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> 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.500000000000014, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "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.5, 9.5}, {0., 0.8414787587202844}}, + 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.9920791498379116`*^9, + 3.9920791713629704`*^9}, {3.992079266971115*^9, 3.992079278994734*^9}, + 3.992079371042183*^9}, + CellLabel-> + "Out[239]=",ExpressionUUID->"6e4d1a86-4cc3-8c41-a9a0-d8b51631881b"] +}, 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.5", ",", "9.5", ",", "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.5", ",", "9.5", ",", "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.9920791804577827`*^9, 3.992079182306984*^9}, {3.992079292618952*^9, + 3.9920792940878105`*^9}, {3.9920793345892296`*^9, 3.9920793513220825`*^9}}, + CellLabel-> + "In[238]:=",ExpressionUUID->"f15716e0-ba3a-184c-9e61-4429edd626d5"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.02256828499983543`\\\", \\\" \\\", \ +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.07622745893754213`\\\", \\\" \\\", 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.02256828499983543`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R2\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.07622745893754213`\\\", \\\" \\\", 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[{\\\"67485.30689350299`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"30\\\", \\\"\[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, 238, 20, 24488269323719620004, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9919643917585564`*^9, 3.991965364224392*^9, + 3.9920791898345623`*^9, 3.992079296821726*^9, 3.9920793545299816`*^9}, + CellLabel-> + "During evaluation of \ +In[238]:=",ExpressionUUID->"b9b26504-3e2a-ff49-ac49-a3af7b148b85"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "\[Rule]", "1.360386904839871`"}], ",", + RowBox[{"bb0", "\[Rule]", "1.1423741744208944`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991964391814556*^9, 3.9919653643031864`*^9, + 3.9920791899390793`*^9, 3.9920792969277706`*^9, 3.992079354578949*^9}, + CellLabel-> + "Out[238]=",ExpressionUUID->"0590e598-3be4-ee40-b8cb-69d4bcbb4e07"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "1.690"}]], "Input", + CellChangeTimes->{{3.9919643977866764`*^9, 3.991964402237297*^9}, { + 3.991965369034729*^9, 3.9919653692465267`*^9}, 3.992079215853672*^9, + 3.9920794072299767`*^9, 3.9920794803641453`*^9, 3.992079536249756*^9, + 3.9920795981056805`*^9, 3.9920796308652153`*^9, 3.9920796784878006`*^9, { + 3.992079749980589*^9, 3.9920797616154804`*^9}}, + CellLabel-> + "In[296]:=",ExpressionUUID->"acca64dd-115b-3449-a6ef-f2d70f4be4aa"], + +Cell[BoxData["1.69`"], "Output", + CellChangeTimes->{ + 3.9919644079976406`*^9, 3.9919653747711143`*^9, 3.992079233732996*^9, + 3.992079450918684*^9, 3.9920794857337093`*^9, {3.992079526082157*^9, + 3.9920795406103764`*^9}, {3.9920795838618183`*^9, 3.9920796820569*^9}, { + 3.992079741580799*^9, 3.992079765248972*^9}}, + CellLabel-> + "Out[296]=",ExpressionUUID->"41e4511e-3c57-aa43-9368-985849889e6a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"bb0", "=", "0.942"}]], "Input", + CellChangeTimes->{{3.9919644056263065`*^9, 3.991964406063389*^9}, { + 3.9919653725905457`*^9, 3.991965372909004*^9}, 3.9920792202798786`*^9, + 3.992079413096815*^9, {3.992079474676058*^9, 3.9920794765189915`*^9}, + 3.9920795149665623`*^9, {3.992079575079035*^9, 3.9920796209764957`*^9}, { + 3.992079653889679*^9, 3.992079668896042*^9}, {3.9920797346707287`*^9, + 3.992079747770651*^9}}, + CellLabel-> + "In[297]:=",ExpressionUUID->"0723e435-4e7b-764f-b2b2-d46d069a19ca"], + +Cell[BoxData["0.942`"], "Output", + CellChangeTimes->{ + 3.9919644088621464`*^9, 3.991965373888151*^9, 3.992079233775448*^9, + 3.99207945096085*^9, 3.9920794857678013`*^9, {3.9920795261137333`*^9, + 3.992079540644127*^9}, {3.992079583907501*^9, 3.9920796820894985`*^9}, { + 3.992079741615055*^9, 3.9920797652863655`*^9}}, + CellLabel-> + "Out[297]=",ExpressionUUID->"ee4aac96-68cf-2649-9781-4f03c439266a"] +}, 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", ",", "5", ",", "13"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917169296319904`*^9, {3.9919653858356647`*^9, 3.991965385973503*^9}, { + 3.9920794564677505`*^9, 3.9920794574124985`*^9}}, + CellLabel-> + "In[298]:=",ExpressionUUID->"418e109e-98c0-4048-bee3-982d843c6f5d"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVl3c4lf8bxxVFVsg5R1/r7FFElEo6992S7NUiu2gXCQ2SrSWSEEUoIZQy +izIiZSTZyWgYRTIyztHv/P55nuu+Pn987ue53tfr/X5TnE9aHlwoJCS0U/D4 +//twz4S4kJA82ujxeNdlZ2Bb7Kad75PkUe27emBB8yzEEGbFVc0IGDPFvDB7 +jAdjqjVnvo4RsOTjPmujU3xg1Cr7+kQSMWNgiGnbxoeGDT9Eb3JJuPqVLu1g +GB8Cdco3kntI6Hj4oj8riAfZ0zLj2hEKOLq+u248dxae2PzQJ25cjqm+dMUn +ZtNQurNh69HO5dgi+sv67otJ2Dy/olI//D9kiMyKe5b/gXqI/RW9UhH1tj6S ++zMxCmso1/Ke1CriVu2Z588rhkCmZpJn7a2Em/nfmTeSv8HU3MnRIwrKmPnE +pv/jsV6wnLQ7KFqtjH+oG2veLe+E0OsfvT08VNB/3DNKo70Z3jyz0TaXU0Xp +ZVWdNeRGOJ+0y+NZmSpef7jmRBe1BhIkVz+u0iQjL6y7WntTORSsHHP2DCNj +Z9KSu9tzi6H0v0nXy91k/P7qUZn1hTwwbLxU1r6Kgows3ovd/VkQeahm389g +CpZ/ntrTUZEKdtW3Dda3UjBh6bjTU8e7QJjKCB5mUtFk6Ey15I4YCBP1EXH2 +paJDnUhOTUEE+H+pa5Wtp6L8ubNUkSWhsCb+888gBg0TYx7kC4M/NNNXmzuc +p+FVE3aji7A3zJyREjv9jobUm7ZTFQ9PQfujlAWGVDqesvQBr2NuwE0tN7M5 +TceuWpmR862OEHGC8fNDOR1/Z3+fD7fZC3cUt9RKLmegM/E+SV7ZAtQifvD8 +DzOwfYzhS0gwAJ9v+u6FrxgoXsJzV9LeDDsXauhy5JiYc+iOl/ad9SA6amOx +wJmJMgfpV8qfrwb/UsxIKGQiUXNjdnANG/ysc/a4L2Eh93OL85dXFFhX16q/ +xImFzyOjNp4sVoAuwrYgsQIWWjfG/vxiLQuLGRuIm0XZSBN3E43qEYNh4sCg +nj0bX83WOPXYLoBdDapyHjlspPROPOqrn+Zm7bkTJv2Pjdu2FTSXtY5xS8sb +8cQuDu63H70UPDHA3TVx3UT0AQfN0qSf7f7Sy30fETz77x8HTz7feCvsXht3 +t97yFa7m8jiz4Ij4hpkZ+NWimDH5Vx7fzus+Tc6eg8r/nF5dSiLgQZ1tJbx/ +PJCY9DibvZmI+cH2+5IK+TB7KaB80QARVw7DaqNaPnAKm5P3RZDwU4L6u1VK +fIi9fZiUsU4BVw9XvnieOwe5HJ4S45sCgsrknPiNGUiddl1RdFIZC8sCT/17 +1w0/X8eOvFBSQdVDUm//NrTCA8rtXU7lKpjlmZCZvb8Jkla0WS48rIqm3ok7 +loy9g+Mj6uNmYmTU2VmkPSVUBSuUZMUS95Nx/fKTvahXBrq08QMX88hod1zY +mvoxH4LObFz2dDEF8z+4Tt9/mwsnlNIkXWwoSOg3SGAGpMNfkqZFVDYFJQct +zDIqk6HInvJD9h8Fx1cWVtgujod6P9kqpiUV/acmlr2vi4KgcepIURoVZTKS +Zt4vuQIdL3Y5v5uhYpzQB/FP+wIhyCFUxcOchmpMZeclNufB1URV7XAKDbs/ ++GU0R5+GwYi2oO4pGjrtuHuX/vsoSLLy2E2GAr0qzcWZfXYB1yUTysQ7dLxx +4WviUOp+IFRp247+omML7ynn0xFrOPApul9/MwMJ3xkabotNwFKXVKB0i4Gu +efoeO25ug57x4k+nBhl44PeAmLPCJkifrtxO0GXim46bbPOeNVDZUsc3vcbE +1HQlBi1ZHS4umRYS7WWisJTb1QWzdOi4sdVs01oW1rpqOX1LVobLY9e+iV1l +4Qab+rf9efLgnsito39hYafOWpMMOymYTpQRKtNio7/3lY9z1SJAHhf2aw0R +6NXE6/PyfXyu/007E2xl48rz8Z8J4pPctVL5B7grOLiJtckuofUX93KnRnWx +Lwe5CdpevirfuDJbxFOFP3IwQHLdooGMz1xH6dD/tNnyWBedrhodMgOxBVkz +ju/l0ce2aseTbXOgHvv4YKM3AQPlqv+FFPPA73Ki99vlRHTbKRZuG8cHGWaj +atkLIraKkt+XtfKBN/3ZesqVhGnGU9Zf9vBB+sctzjcJBeyIhNTtZB5oRC4O +UytWwHuBCw98oM+CyblhSbltynjJzsI206UH7tnOcfrGlHHiXc9C/SPtQNz7 +/PvheBWMzFFIjov6CHknl299tEkVN2ywOmUgVg8ZpXvVVgyoYtnEjGlk8Btw +kU+2eaJPxiy+wtrPva/Ah/WnfyaRjCWKpRmfcgqBYqCw6e4fMr5enqM/THwK ++72Wud7dRkE7+6LObwkZsA0v7IJ4CqpHKNeMr00BiZtdJMYwBXd/EK59rZIA +Hrr2jHA9KkqnaBGYPtEQ4msycy2Siif+Xf96Yec1UK+XTRzpp2JPQneemXIw +dF14GjynS8NnX89Vazf6gvIGNvdABA3nhWLZKbpnYGzh6TfsXoFe912MnL10 +AjwOrSRc16HjQDJthXnUQWja3amzPpSOrmfF9CVkHKApLivFsY2OUXcXXn1g +vBv8fYZbOOoM9CzpuCMcbAZlB/61m15k4L9hvbNP/fUh66d/ivwnBu7cGlQp +nALgw58BVSYTF72O0lqXoQPfnaNZ6d5MNKqqi8nR0gShAwmfPrxn4oFAs5XC +dUzI8jhrtUeVhetFVT0m15HB8YsWMdyLhV8Id0jWSUR4sO91OvEdCy/yHBQf +/lgKF3vpEkLKbDTOeVL38sViWLxoSvuyBxuv5qVJxg//4x55Uqqxr4KNnbL5 +LqltU9xTT9O9HshzcO7NV3mCxW8u3UwoKPowBy9V7O8Sn/zO1brz3if4BQfj +FY+4Gxv0cLdMXba5TCPgVo1bMVmyPLBJlFfUfkvA3yxKW7megI8OBudvHibi +9UCR+uI6Pnz9vOag8TISKh4u7uvI4cNu73cjLwpIOLR5983gTzygGWxadNJF +ASXT96+R0pkDnWGfyr1DKph34nDbsM4HuP4txtk2WhU3r6afd5p9C0G+Go2X +lci4j9xU33ezAn7TLj0P8yDjF2WCj3HvC+CpTHwTeUtGzLlnPk96Dj/u2w9W +/UdBrUeRtkuYOeBfrpPHOkXBTGgSJ9x4ABmj/cbfyilY/9hms+yJJHBb4Zo/ +L0fFFFQ8myUfCysrKg9UulFxvGX12MbtkRBweLrvWxEVdz5hUGwnwyA0M46V +vlSgp10XbZxLLoHalv0FAwdpeHO7f4Iq6SzkOhH/O1FAw5q8hjv7lnpArxJ3 +a7QkHcsSNv+l3joMad909YgOdMxe5fDtlqEzzJZILprIpmNs1k7O/cM2sPd3 +sZyfMAPfvWuLPv7EEgy0uL9ddjGQPsiMky02hG9LNaKHMhiY+VvI4nfDFpCf +mxCt4zPQ6Kbso4+vdaFtPMJIwpSJbq+ou07qasN9Q9HmyfsCXhp2LNNdvhLm +s63U9CaZ+Eoq8T8DYxqI5UgZ0YxY2OTfmNMmqwh5woPPwpJZmKB2xB/H5ECv +t2RMa5yFBOefRrtFJcDDhjfha8BGcrnC8S3zC0G3V7aGfoeNco8bGhLnZrkx +Z3hHWMNstNqlvongOM6ddauwbAGBfy8bjaAaDnN/uzmI90ZyMKu/4NHt4/3c +kYEdDZcGObi4fPlyNdFO7oG/L6OWy8tj1d9pZSvjGRhhnUmOyZfHikiTXDep +OehrsSr0diGg6zKJR0XRPFj/6elUyyIibjRbaLs4hA//TXvVKz4kolSQbEha +Ox9c45yzKy1JqLpRcz7cnQ810llPF06R0PPj86/PrHgwUnllU26qAoanFi0V +PjYL1BJ1P+4qZTQznZ5s+N4DPulZ1Z5dymhu/fWOLXSA6eltGidCVPDplr/G +1drNoCenW8JjqeJxkYDaaHIDRGnsMRv9qIrrJUY0pC2qwV9mMLBkIxlzE9pc +Ll59DbGP3GnrbpJx0SJNQ4/MIjj1ZLFl9AAZXWW3PAt88xSsUmrlXmygYGLA +HXGv4kw4Yn2/lXCDgqF5fE/tmRRYo66bu6qXgs1XLhXs000U9IGgXcWrqbjD +6PGDdptbEFreN+8dSkVm8hmp2+euQ0vLSV2hdiquuXJe4pdUCIRJGGxATRry +00IdulUvwnS2WrVTsCCPrvppdPY/Lzijhz9MWmioaey0cLrnJDDD3SSOqdGx +PmGl+fVzrhDGN92605eOhkH2Xc5qjqApMrgjro6OqfJ61m0me0C6NsZckcbA +xZz4DO4xc5g6e3rYzZOB9h0W21zCdoDcoMvl77UMLL6nuizJD6HnovwmuhIT +D/ZJ6N5LXAdT6d4vmo8xMSBeZOPwqCZg5AgUlDMxbDtRzq+KBbdconcdkGeh +79K7Gry/ZDDeHbzq7VEWltzH2SMPSfC6ICBm6WsWyurtDXuaJANbhHNukOXY +WN0/Y3OpRhSmpUavuxxiYxNRDQlpQuCIo0kHi9iY/NW3Obb+L1d60f2LHUs4 +uJzOeCMlM8YdCzvkfMmBg4cSzQ6dHv3BraxWd9F/wsGpWMVW+aW93FhXq4Wv +pAjIBpdTsr1zsLSr+HjHMwLauMb2+6nywTLDbjZpFxHTNb02+FTyYTSnc9kj +PhF/fT71JK+UD69I5gZXUkgolGt9au0sD7pPWl2/aqKAix23+hR7zsGJxWJS +di0qyGP2pjVWfwBSWEFHtp8qqnW9flE0VgvTz7OdjsuRsbJcuffajkqQIr/t +jnIj49Ws/qWOS0pBMfk0Y0spGaU/iO/0H3sOOpIm8yUyFCy2nTK9tTIXvEd/ +OWw/SMEW+c5onaCH0Cgs3lBSSEE/M3c7BjEZblRWmIotoWJ96tXSNrE44JGH +oyf3U9Huxtic56IoCMy+NtCQQ8XBkPUfHWbDQfPZ38oiERrWJzrvXRkSAG2N +Y0fUbWlovr8k5KTWObjS+l/K0cc0jFvjn7Om3gMO7pY4ULSAjlNyWl7LXhyB +vYu9tSasBXNUZ8ynpS6Q6+wvuyiNjv62kZGhl2wh3+Zvfv40HWt8TeOMwq2g +JXDw8C4jBp7s5Gxd02EESoyUNOEkBn5Q9jWNztoK5/62jtwdZ+Culvh3Xd83 +AnplGMhsY+Kw48GzUkvWQN6NoUPUWCZ25Wa3TO9SA25XWgxlmIkPb71+kaVC +h7F7bBNNZCGmBjB8LJXg7rmNdTUxLGxUqhS7WbcMdoPvl5WDLOzrdqs1VZOE +tRdCzt3dxMZ4/RSluc/CoD4kTpu/wUbOrM+jBXQe94qIepd2LxvHpzTc8jQn +uLHFL2zF13Kw3/bMmpvhP7kvk6sH6kI5qBCctzN081fuRcKjoi3dAj4u0fNT +s+ji+uwTXca5SsDjTsMXTbt5UAlh0yXqRLxTfihtUwYfFllz3J2biFjaRnZK +aeJD1N59c6zzJKQKW+Yd3siHB/Ynaq58JmCcVpZWgSAvdstr84J9idh3ZDLe +vpkPHRLX80fZJPSvpVq/SuSD3YvvX19NcHCIXFSk8b6d+/1oe72kuDzikzCm +kMYMLHfcd+ZJpjyu2vE3W3dsFvSmHjgZ7SPg3hULxUiXeBB9blP+5zkCBrne +zfc8zweyUy3DMIGIF1XIvQcFfI4fpHdmGpBwL8+x1MJXsB91nbfsMAlz4kjV +psd4UG9vqvAnTgEjD0cvqLo+C1c76/OtacoILaZLvTi98M00mFj6QRm9Qt3T +fmR2wJDQVatTF1RQLVuNMR7cDJdcDL2ZyqqYEdtoOZvTAIsPtfR8eKuKQt0p +teyiargufS0WdchIHxK5LP/1NaQfWV3x6RoZD+ypiMhVKwbSd9/9Ef1kPD3/ +XeY+OQ/qNzAHDddQcPGiwIEzJlngZ/9cYcEVCm5Vz/92yy4VDGYPXdDuouDm +jL+DrPeJoFZ9+5elGhVTCfrmLxtugdjBxwuOB1DReO2bnDRSBKzsVFkS/pGK +wJY6Sb0cAt1Ncjf7VtDwUPHfgOV1F+H7YPYVR38aTm/n73pzzQvWtT/w7mmk +YdE72YsUo1PgHxe82JZFx7ORtU36f1yhvzHsrYUPHY+VkZKWXXIExw2i8Wtr +6DiuTFEvatoDzR7HpORVGLiu6cvj1xXmEBmk7jlxgoFTIf0ZeTIGsN3tk29D +FQNd9lZF/2pFkH+dXMIkMbGq9BJbWXE9zBsNLj7qxkST+EajlxaroechafLR +S8FsGLzl0XY2iHcltwxJC/LqjPMHI1sKlEdm6x52ZaFco/S4q4YC1Lu6SEm+ +YCHX7mdUx4wM0OU9P+ZKsnE4fVj9r6UYeEQd1TN3YaM15ciB4H9C0BEa2n70 +maB/7V7JPWYyzbXLVgnyFOGgfe0V+7ceY9y2tIQP3jYcLKt7rJJ0aoAraW/f +9iCTg5rjtX7/zvRyy++ua+lYSMDWr7KecjVzcGROipSdQUDrtmU+IjJ8yDYb +KHpoJODxGw2LbgGPJxQ0jrb+IWLO41tBPwS8nnCTO+MRR8KByxmnwyX4UBLY +bXlniwKSaDvSl96cA/Fos9UO71WwV+O4e5lsE+xvr45pO62Ks5pGOQ6n3oGW +5YkMeykyKvAr/wtLqQQllePjJGcycnxl7rknl8IKZ+2qnkIyLv5oq7rTKR8+ +Y6VYgQQF92w7nD94Nhf+BO/UaXagYHAGkTi6IB2+SinLPMyjoK9XwPKYY8mQ +GvnnPykRKgoJjRGOhMTBN7N5tet7qKi+1uDu7UNRIGKxd7gyg4or8lUlKvwv +Q3Dhg5tb/gn60tlMte6RAFgV+6KyYRcNWxr+imZWngMfuUS3I+k03LLy+6pQ +zdPAGnefMOLRMNNe6+cJ66PwlHhLvd+MjqvjNGaDz7iAhE7xbakkOm585itR +LrsfvkcQlliN03HF0nLN5mkrSFQrY5rqM9D4j29dxQljKNCwW3UjnoE3t7V+ +SFXZBo/P7OwLHWFgDUP7pqifHngWrKuWAyaONvOjo0+vgRfa+/MKo5hI3ZS6 +NX9GDbr/1BvJf2eijZghR/sKHVwVdOrzdVn4dt0VS8NpJZDPP9B+KFKQD3qo +wZ4gDwdG7Hazv7KQvfzbqFuFJBCvGb1ctZ6NevGNEpkWIvDgRGjj0BU2HnHk +Pxx5weMuNq6S1+1i42thIRP9hAnud5cNjqkaHLSo3rapeNUvbmrp3J7KAA4m +eYgEdGZ/5dZktq9KaeOgv8Qngiivi9vkY/OCd4mAIQ7M51nveUD5JldYTiPi +5r9bKhXv80H85YWaG9VEFP3Aqo79xIfqdEX2UncSKv8dvs7fyQchv9fuDh8J +OPH2oGiYIR82Fr8suXqaiKyBFYpOH/jwxbNXSkWFhNasgdq1DwW8tCTZUEY5 +OKiuGtLm1sHt1GCva1xKRMvZjuD5CD4QImjev54Q0Sq5QmW5gLeTIh914x2I +eDViuPbYWz4M6Ye9OCdGwj3B+4JyCvhwKJ6//vk6Iq4zfJNe9kSwz/Cn5Ws+ +E/Fp6kvhL/V8CDiZrncxlIjOuF//aQsf5Jn5Jx1nOdjobqSktKady2b+OLZ4 +kTx2N4+tMiLPwKoLRl+4D+QxcvPDB8L9szAYbK6z1pqAuk8tW0jePNhSt5DY +O0XAh+bTPX/O8OE+wdOiN4aItxrNW2ba+PBMNsT93lYS3ndoW/gngA/RWRfa +Y78J/OFnsZuVDw9KM3MW3YxWwLWvDs6O3JuF10dVP35RVsbt4REi0ka9oHR/ +7KXze2WU7wxMzO7rgMLqnIPu3ir4TvbJipM5zUC/armrhKSKb/QDT1ycbgAU +ieFUVKriom9LNRt+VcMtqS/UQG0yrsyqveohUw6aRrLLGFfIuG3ybYbGiWI4 +4l/UK9lLxj9Se84ZmOaB5CJr66jVFFwUPO2yJDYLwvq5RV5hFCyUyNl3/kYq +NDn69z1vp2DNPt12eeJdSLJP3nCPQ8XrijcbiRIxYJAvF/jjIhXneiwKrdwi +YLed16m6Rioue8Tr0nsbAuE602XabBp2iT89fVXOH+xEf//64kvD36a3jA1r +vCCW1VHGqachefr9ca2zpyArWT6oiU5H1/DJHmkNN7hRnCbZcoaOMqe0DGWy +HGHailgRWEXHzTf+i9pC3Avrd7QevaHIQFMtTQfN3+bQHX65UPcYAwd/GZsv +2G0A9szrf7dWCPKUzvL1Bos2Q7bTwOxDeSa+9Ms80myzHgKUqWr5B5jYqJb2 +0idwNWhqZ5nRSpgoSlp87FUIW9BX2KRVkiw8bzJj+P4aBS5oVGCRCwuNZ2J8 +wjwVYFfpR4PLRSyc7az8S2bJwq2ElonpJWwsq97dZh8nBtnNnJtvHNlo7yvW +76m+AGIzP06OPGGj5ynjtU3XprkiwnYhrxdwkJIY7c5LHeMaPdNZMr6Hg/qU +nx90nw5wNR9NybWmczDw8/Kk/Rm93LZiQbbny6Nzgz/hUMkckK4UDN9OE+jR +55yqnBgf9t9/vDxTn4irz7LLP5bwwbuuLebELyK+k7tsm1fNB+kbpyVco0no +eztN5M8yPmRI0Z9TNyngL++S0unkOWizOb3VsVoFxzg/u4nrmmB+QaPn8ROq +OJlw/dHp3HdgTq43bRUnI9mG6CzTVAk05TJfGwcydo5u7fMfKYWnW5YRNPMF ++jv+hzkelw+anf+urVlCwUP9UU5xybmgaeGdrGhHQTvDaijenA4jUQ9ylZ5Q +UGPUxuxobDKsml5yKWIBFQmkjWuJb+LA5ofo2Q5rKk68kv47Eh8F2+6/PAbp +VFTq+2j/p/Iy5OrOz4bwqJhkeGyfDD0Q2ueSx8hWNFxzNLJhQvo8jGp0vx1M +o+Fg3YmR486nIWxzmt6tGRoGPzu553PyUfiiQs+0MaHj0E65SeYjFyhUbe2I +TKQjxS3l/l+b/eCXQddK/k3HTmFCVdBqaxBasCK4disD4/8GL9QqNgaRtcUe +LbcZKKNbO3F/7zZ4s2bhft4wA29PL3xbV6sH0nv9FkfrMfHw+o2kzEdrABfd +ahO+wcTVv3d5TRqrwyo/lwfX+pkYevFznHk5HZKaX0jPrmOhg913h0RjZWiw +Ovul8DoL18w4h+w7Kw9D2+sjH/Sy0M/KaZgqIwWhhOxur7VsQT4Kcva7KgL9 +udtZTuFsrNz67sAdcT634qTs6pftbPxFIld8a5rgXi/0dh5T4+ANNbfopwG/ +uKS6WxHgz8F9+eH/nL5/5f6ccj/88RMHO0Z7N09afub6i4lEfr9AwFmPVs2M +Ch40rmsjvVEhIrtVcV+DIG9fc2dOsMoF/N50TOKNgK99jRdKFx4joYhFf5mI +BR8eSx3V31kvyNdKg9KFWwX8lgxUvHGCiElGq/j3G/jgzLmy4bkCCT+uLDpw +P5MPtYk50RY/OehuuT1WoqCDezngV8xHcSIu3NhcTLjCh9itdfeDsoj4uft0 +n4/AH1L3xMYn2hBR9V0figr0fWxu9YCsMAnltzqnGwn0T/xVHluoRcRk77PF +ctkCP7h3cfu7ViJKHahd3tnIB83y4wkBAUSk3BYqSRT423p304wbfzl4TvFu +3LOL7dzELPLs02QiHnoFzHuC+4T4VJtUcyI2uBK7yl7zweNAMOA0Eb8a3Ev5 +IZjDxD4mzLwnovC/TUPrBP3kqtu0bbgPEVNFIhZN/r/fdJw12l1AxD23PgsM +kA++OmojCX1EXHpDVCbnPR+alfq7zl8l4qXmUpWEVj787lBeq8nn4LKRe/dd +Btu4BsIjGwMXyuMrIcb0L4UZ2HB5W3RwijzOb9+7uqdzFl6ZpJEzLAhoQKIO +SnrwIN7rW5XzBAG7kifqaKf58HXU4IdaNBH77WU+5AruL0/L11u+mYRxVWbr +nwQL9nW/d7mrj4Sk6S9hW/14oGPpeKE/UgFDfS9Je6XPQlfeDieGojKG2TPW +Ddv2QsG7h7LP3ypjX07rYa35DiBnvh4Z81TBlAsB9fqVzXAmaXflIoIqHgz9 +d+q8dCPYN03WbSxXRXp50pCBWA0oSIkdomuRsVlVqfANsxw8Ny4oeR9Oxp9r +f+WzIooh2mRP6rsvZNTmzDdvPpgHmUNDS3Q0KXjMMKk49mUWSD4IDF8dSkGb +7PoYxYxUUJC/SvBuo+D4YIm7yca7YLPigcN2NhVTguvp8+wYGLCvqkj1o2KA +J3f9mYgIOKpCTT3ZQMXLfpY14oMhYD9wZHcXk4Zngo4uLWL7g0KMzL17FwR5 +svzi9spvXlBTP+5S/56GmtOjYkdvnIJyRteW6zQ6ssRuX802cQM3jTWrYj3p +mDRmtrLwtSNs601sXVFJxx09d11N1++FI08k75j+x8DvgQGhNxdbQLBkUcfn +Iwysk8n2+ONjAMPBR9bMv2bg+z0y0jSlzcB7ciX+0DIm/nBd2jVybj1sCykt +tXVh4hGtJ2VXElZDm88U70sRE+EdR/3aQzY4TR0taBBn4XBVwaGtDylg41e3 +1cmZhTPHfZa63FYAhaErrjsLWajkxjUe2yQL9T2hixLF2Fi+tayj+4UYvJ8M +K73kwEarczFSd7YtAK+XM4G5uWw0yP4ivD17mrtX/YLoISFBnzHc+8+odIwb +VCKclrubgx7HpyUNPw5wy+u3aJ58yMFXQxdHqip7uX011MnsWXkU0kyzE3s+ +ByOWki2SKQSkfNxUKyEiyEtGN96qbSNihqUxE4r5UPjwsVrxEBEfE8eqFgny +nhI9teVLJAmrDpP7CQp8SG7Sd3XVVcAqt5aq/Y/mALjB73sqVTCJtuJ5x84m +MCM29xccVUUe22d9duM7sBedT7q5hIy3Vrnf8B6shAdKA+VzdmTMumD13JBQ +BlNawi9bn5HRdqBV9Fx+PtikJ5qPi1LQYTvra9TzXGjQkd5TZkvBuEvHNbuc +0sFj17B/aw4FA424ob7ZyeCZSXhmLkTFBz1NhYzvcSCfJ3nP34qKhue6C4yf +RcFXw1OPeQ+oaHPsGsfwx2Womnu0ijNHRfG51Tt7uIGQ/VheUIBpqO7cn3hw +zXnIKJ0/9yiVhnHaX9dHnj8NhQOlPRumaTgccrD4W81RmLo/fJhoTEe5K256 +KypcICL6IM8qgY4vHO7tar+4H2rXZekbjNJxSiS+V8HUGrSOOjwL28LAPA+/ +OO0eY8gsGIg+G8NAb26JYc+ZbWAV3R2bP8TAfMkLi/zG9MA2nfLAeiMTJ4VK +84cr18DCE6uPPrrOxO95X6xGvNShpeKxlWEfE0k7XC8Tu+nwUkso544OC8fz +f9yieitD1v3APsdrLNw7Ed4XHiMP2e4hOQd7WEiIz/r1XkcKXu1zGP1vDRsX +9q8qYmWIwMKmVEulMDZWcN31X63mc+9fWlfm18bGLtqC1KMjE9y+vpj+2ys5 +6KPmobrk8S+uebPzSr6fgM/PPy+0W/iN66dUGnK0mYOHo2R66vw+c3c37j1v +e46Av1uEHimV8YDVW1y9Q4mIQv7hNvF3+FBvNBd+uoyIQdmtNjsFfB098Dj8 +wmESEhw23/O25kPQpzLN0ncEzFBWIG1BPmzOP/hO9hgROxnXGc8EfSJF2LFB +iEjCaaYDq+qxIG9VzD0ZHOLg/rcx8/zuDm7vykb9XWJEXJDC7IgK40O78v31 +jY8E/vM+MOaWwD/mhM4bqu4V+EOH21BllaDPf1rsZydEwu4rMpqLX/LheEya +ga4mEeWff16tnsWHyrPWncRPROxpNMmvEvSp0KPmxiL+RCwYSD4vLPCr2pj4 +avYUB2XN5TI/pbVzu0MmI+bvErEu+1B3mOC+PQ8WiTNNibj2QMUG61d8yOPa +fLoyScS7x1sJJyr48Lbvodb2WiIqJS2pGxH41VeZTgkJLyIaBv7cqynwq+Zn +pr3Jz4jY52sj1iLwi1KZBUEDX4goftU7pK6ODyvfVF3lhxNxoPHNZTXB/wwQ +OmJZM8fBOYk0sVTpdq7Txnslt+KImFtwUEtHsI/xbQv7rkqBX18jdq4V5IXd +h6clN+QQcbnRPlczwXm7wpWfQsFEHN6gsUtdcL6/yeiAW6rge9xePksXnFsI +pT0XLyZiyCu6M0ewz4XTQuqz14k4uCBtXkgw2z//QIqd56D1zLXbNpVt3P8B +buGkPg== + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1nfYFWIYwOGv0tIiDe2SpD3RVGkLERVNKrT3TqShvVHJSijaKG2hbZT2 +3jRoby33c/nj7n1/73m+c51z3vN1fXladKrXMVFCQkLtxAkJse70T3vuZr5u +Rik8nLDLWQdSsUA3p3Q85sFJzh5hrx5OEnbrePLUfKNfpoDZlboJieNnYtbZ +ZPtH2adHUMTZT/plknGXsz3WTqThW13CzFr7VryiC+of7JuSJJ5bb7S2juf2 ++F16iv1jlLPfZN0f789+vf1rjNRF9c/xnFS032JNHj9n/6u1urWttbJ1u7WW +Namf22vfmSd0WmtZ6+/WGtbvPF7Suk5Xs75qfdy61VrT2sLjhayrdFVrM2sF +6x/x3uP12/9ibUMl+23xevxMUvsP7MtQ3n6z9UDci/0G+9cZpYvp1fYtSBGf +qbN91i6kY6FuSWFzP+rmJI3ndZbM2dR4PxzUo0nOft2Ve1ikW1E2HjP/YXzG +HNJjSMEB3Y17+V6/SjlScjepSE0a0pKOg2a7k57F+jXKcw+HnPXgPpbo16nA +vRx21pMMLNWtqRivw2v7KD4rDuuxpOeI7kVGluk2PB6vzfzHcRcc0eO4j6O6 +N5lYrttSKd6H+U/ie8NRPZ4MHNN9yMwK3Y7K8Z7NfxrfBY7pCWTkT92X+1mp +21MlPh/z0+I7wJ96Ipn4S/cjCz/oDjwRn6X5z+K7yl/6XTJzXL9BVlbpjlSN +z938dGdVOK7f435O6P5k40fdiWpxR+Y/j+88J/T7ZOGkfpPs/KQ7Uz3uzfwX +8R3npJ5EVk7pt8jBz7oLNeIuzX8ZvzOc0pPJxt96ADlZrbtSM+7S/Iz4HeVv +PYXs/KPfJhdrdDdqxV2anxm/o/yjPyAHp/VAcrNWd6d23KX5r+J3ltN6Kjk5 +oweRh3W6B0/GXZr/Ov6P4Iz+kFyc1YN5gPW6J3XiLs3Pclabs/ojcnNODyEv +G3Qvnoq7ND/b2ZOc0x+Th/P6HR5ko+7N03GX5uc4q8N5/QkPcEEPJR+/6D48 +E3dpfq6zp7igPyUvF/UwHuJX3Ze6cZfm5zl7mot6Gg9ySQ8nP7/pfjwbd2l+ +vrNnuKQ/Ix+X9Qge5nf9Bs/FXZpf4Kwul/V0HuKKHkkBNun+1Iu7NP+Ns2e5 +oj8nP1f1KAqyWb/J83GX5r919hxX9Rc8zDU9mkL8od/ihbjL+L/dWT2u6S8p +wHU9hsJs0QOoH3dpfqGz57muZ1CQf/VYirBVv02DuEvzi5y9wL96JoW4ocdR +lG16IA3jLs1/76w+N/RXFOamHk8xtutBvBh3aX6xswbc1F9ThFt6AsXZoQfz +Utyl+SXOGnJLz6Iot/VESrBTD6FR3KX5pc5e5LaeTTHu6HcpyS79Do3jLs0v +c/YSd/QcihN/gLznrBS75VCaxF06X+6sEfEHzFxLidg6f1+XZo8eRtO4S+cr +nDUmEfPi+Z2tsW9JSsro36ztqGK/I9H/fx+VNPsfd4MNLw== + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrsJgFAURMHrJ7ANW9FABCNLMBAeCA/U/lEDwQqMJlk47LRLntexjDjq +iJjSca5FfKt6qrlnHro+b3lPz5/iHRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzHcRzHcRzHcRz/g19Mgw0c + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl3c4lf8bxxVFVsg5R1/r7FFElEo6992S7NUiu2gXCQ2SrSWSEEUoIZQy +izIiZSTZyWgYRTIyztHv/P55nuu+Pn987ue53tfr/X5TnE9aHlwoJCS0U/D4 +//twz4S4kJA82ujxeNdlZ2Bb7Kad75PkUe27emBB8yzEEGbFVc0IGDPFvDB7 +jAdjqjVnvo4RsOTjPmujU3xg1Cr7+kQSMWNgiGnbxoeGDT9Eb3JJuPqVLu1g +GB8Cdco3kntI6Hj4oj8riAfZ0zLj2hEKOLq+u248dxae2PzQJ25cjqm+dMUn +ZtNQurNh69HO5dgi+sv67otJ2Dy/olI//D9kiMyKe5b/gXqI/RW9UhH1tj6S ++zMxCmso1/Ke1CriVu2Z588rhkCmZpJn7a2Em/nfmTeSv8HU3MnRIwrKmPnE +pv/jsV6wnLQ7KFqtjH+oG2veLe+E0OsfvT08VNB/3DNKo70Z3jyz0TaXU0Xp +ZVWdNeRGOJ+0y+NZmSpef7jmRBe1BhIkVz+u0iQjL6y7WntTORSsHHP2DCNj +Z9KSu9tzi6H0v0nXy91k/P7qUZn1hTwwbLxU1r6Kgows3ovd/VkQeahm389g +CpZ/ntrTUZEKdtW3Dda3UjBh6bjTU8e7QJjKCB5mUtFk6Ey15I4YCBP1EXH2 +paJDnUhOTUEE+H+pa5Wtp6L8ubNUkSWhsCb+888gBg0TYx7kC4M/NNNXmzuc +p+FVE3aji7A3zJyREjv9jobUm7ZTFQ9PQfujlAWGVDqesvQBr2NuwE0tN7M5 +TceuWpmR862OEHGC8fNDOR1/Z3+fD7fZC3cUt9RKLmegM/E+SV7ZAtQifvD8 +DzOwfYzhS0gwAJ9v+u6FrxgoXsJzV9LeDDsXauhy5JiYc+iOl/ad9SA6amOx +wJmJMgfpV8qfrwb/UsxIKGQiUXNjdnANG/ysc/a4L2Eh93OL85dXFFhX16q/ +xImFzyOjNp4sVoAuwrYgsQIWWjfG/vxiLQuLGRuIm0XZSBN3E43qEYNh4sCg +nj0bX83WOPXYLoBdDapyHjlspPROPOqrn+Zm7bkTJv2Pjdu2FTSXtY5xS8sb +8cQuDu63H70UPDHA3TVx3UT0AQfN0qSf7f7Sy30fETz77x8HTz7feCvsXht3 +t97yFa7m8jiz4Ij4hpkZ+NWimDH5Vx7fzus+Tc6eg8r/nF5dSiLgQZ1tJbx/ +PJCY9DibvZmI+cH2+5IK+TB7KaB80QARVw7DaqNaPnAKm5P3RZDwU4L6u1VK +fIi9fZiUsU4BVw9XvnieOwe5HJ4S45sCgsrknPiNGUiddl1RdFIZC8sCT/17 +1w0/X8eOvFBSQdVDUm//NrTCA8rtXU7lKpjlmZCZvb8Jkla0WS48rIqm3ok7 +loy9g+Mj6uNmYmTU2VmkPSVUBSuUZMUS95Nx/fKTvahXBrq08QMX88hod1zY +mvoxH4LObFz2dDEF8z+4Tt9/mwsnlNIkXWwoSOg3SGAGpMNfkqZFVDYFJQct +zDIqk6HInvJD9h8Fx1cWVtgujod6P9kqpiUV/acmlr2vi4KgcepIURoVZTKS +Zt4vuQIdL3Y5v5uhYpzQB/FP+wIhyCFUxcOchmpMZeclNufB1URV7XAKDbs/ ++GU0R5+GwYi2oO4pGjrtuHuX/vsoSLLy2E2GAr0qzcWZfXYB1yUTysQ7dLxx +4WviUOp+IFRp247+omML7ynn0xFrOPApul9/MwMJ3xkabotNwFKXVKB0i4Gu +efoeO25ug57x4k+nBhl44PeAmLPCJkifrtxO0GXim46bbPOeNVDZUsc3vcbE +1HQlBi1ZHS4umRYS7WWisJTb1QWzdOi4sdVs01oW1rpqOX1LVobLY9e+iV1l +4Qab+rf9efLgnsito39hYafOWpMMOymYTpQRKtNio7/3lY9z1SJAHhf2aw0R +6NXE6/PyfXyu/007E2xl48rz8Z8J4pPctVL5B7grOLiJtckuofUX93KnRnWx +Lwe5CdpevirfuDJbxFOFP3IwQHLdooGMz1xH6dD/tNnyWBedrhodMgOxBVkz +ju/l0ce2aseTbXOgHvv4YKM3AQPlqv+FFPPA73Ki99vlRHTbKRZuG8cHGWaj +atkLIraKkt+XtfKBN/3ZesqVhGnGU9Zf9vBB+sctzjcJBeyIhNTtZB5oRC4O +UytWwHuBCw98oM+CyblhSbltynjJzsI206UH7tnOcfrGlHHiXc9C/SPtQNz7 +/PvheBWMzFFIjov6CHknl299tEkVN2ywOmUgVg8ZpXvVVgyoYtnEjGlk8Btw +kU+2eaJPxiy+wtrPva/Ah/WnfyaRjCWKpRmfcgqBYqCw6e4fMr5enqM/THwK ++72Wud7dRkE7+6LObwkZsA0v7IJ4CqpHKNeMr00BiZtdJMYwBXd/EK59rZIA +Hrr2jHA9KkqnaBGYPtEQ4msycy2Siif+Xf96Yec1UK+XTRzpp2JPQneemXIw +dF14GjynS8NnX89Vazf6gvIGNvdABA3nhWLZKbpnYGzh6TfsXoFe912MnL10 +AjwOrSRc16HjQDJthXnUQWja3amzPpSOrmfF9CVkHKApLivFsY2OUXcXXn1g +vBv8fYZbOOoM9CzpuCMcbAZlB/61m15k4L9hvbNP/fUh66d/ivwnBu7cGlQp +nALgw58BVSYTF72O0lqXoQPfnaNZ6d5MNKqqi8nR0gShAwmfPrxn4oFAs5XC +dUzI8jhrtUeVhetFVT0m15HB8YsWMdyLhV8Id0jWSUR4sO91OvEdCy/yHBQf +/lgKF3vpEkLKbDTOeVL38sViWLxoSvuyBxuv5qVJxg//4x55Uqqxr4KNnbL5 +LqltU9xTT9O9HshzcO7NV3mCxW8u3UwoKPowBy9V7O8Sn/zO1brz3if4BQfj +FY+4Gxv0cLdMXba5TCPgVo1bMVmyPLBJlFfUfkvA3yxKW7megI8OBudvHibi +9UCR+uI6Pnz9vOag8TISKh4u7uvI4cNu73cjLwpIOLR5983gTzygGWxadNJF +ASXT96+R0pkDnWGfyr1DKph34nDbsM4HuP4txtk2WhU3r6afd5p9C0G+Go2X +lci4j9xU33ezAn7TLj0P8yDjF2WCj3HvC+CpTHwTeUtGzLlnPk96Dj/u2w9W +/UdBrUeRtkuYOeBfrpPHOkXBTGgSJ9x4ABmj/cbfyilY/9hms+yJJHBb4Zo/ +L0fFFFQ8myUfCysrKg9UulFxvGX12MbtkRBweLrvWxEVdz5hUGwnwyA0M46V +vlSgp10XbZxLLoHalv0FAwdpeHO7f4Iq6SzkOhH/O1FAw5q8hjv7lnpArxJ3 +a7QkHcsSNv+l3joMad909YgOdMxe5fDtlqEzzJZILprIpmNs1k7O/cM2sPd3 +sZyfMAPfvWuLPv7EEgy0uL9ddjGQPsiMky02hG9LNaKHMhiY+VvI4nfDFpCf +mxCt4zPQ6Kbso4+vdaFtPMJIwpSJbq+ou07qasN9Q9HmyfsCXhp2LNNdvhLm +s63U9CaZ+Eoq8T8DYxqI5UgZ0YxY2OTfmNMmqwh5woPPwpJZmKB2xB/H5ECv +t2RMa5yFBOefRrtFJcDDhjfha8BGcrnC8S3zC0G3V7aGfoeNco8bGhLnZrkx +Z3hHWMNstNqlvongOM6ddauwbAGBfy8bjaAaDnN/uzmI90ZyMKu/4NHt4/3c +kYEdDZcGObi4fPlyNdFO7oG/L6OWy8tj1d9pZSvjGRhhnUmOyZfHikiTXDep +OehrsSr0diGg6zKJR0XRPFj/6elUyyIibjRbaLs4hA//TXvVKz4kolSQbEha +Ox9c45yzKy1JqLpRcz7cnQ810llPF06R0PPj86/PrHgwUnllU26qAoanFi0V +PjYL1BJ1P+4qZTQznZ5s+N4DPulZ1Z5dymhu/fWOLXSA6eltGidCVPDplr/G +1drNoCenW8JjqeJxkYDaaHIDRGnsMRv9qIrrJUY0pC2qwV9mMLBkIxlzE9pc +Ll59DbGP3GnrbpJx0SJNQ4/MIjj1ZLFl9AAZXWW3PAt88xSsUmrlXmygYGLA +HXGv4kw4Yn2/lXCDgqF5fE/tmRRYo66bu6qXgs1XLhXs000U9IGgXcWrqbjD +6PGDdptbEFreN+8dSkVm8hmp2+euQ0vLSV2hdiquuXJe4pdUCIRJGGxATRry +00IdulUvwnS2WrVTsCCPrvppdPY/Lzijhz9MWmioaey0cLrnJDDD3SSOqdGx +PmGl+fVzrhDGN92605eOhkH2Xc5qjqApMrgjro6OqfJ61m0me0C6NsZckcbA +xZz4DO4xc5g6e3rYzZOB9h0W21zCdoDcoMvl77UMLL6nuizJD6HnovwmuhIT +D/ZJ6N5LXAdT6d4vmo8xMSBeZOPwqCZg5AgUlDMxbDtRzq+KBbdconcdkGeh +79K7Gry/ZDDeHbzq7VEWltzH2SMPSfC6ICBm6WsWyurtDXuaJANbhHNukOXY +WN0/Y3OpRhSmpUavuxxiYxNRDQlpQuCIo0kHi9iY/NW3Obb+L1d60f2LHUs4 +uJzOeCMlM8YdCzvkfMmBg4cSzQ6dHv3BraxWd9F/wsGpWMVW+aW93FhXq4Wv +pAjIBpdTsr1zsLSr+HjHMwLauMb2+6nywTLDbjZpFxHTNb02+FTyYTSnc9kj +PhF/fT71JK+UD69I5gZXUkgolGt9au0sD7pPWl2/aqKAix23+hR7zsGJxWJS +di0qyGP2pjVWfwBSWEFHtp8qqnW9flE0VgvTz7OdjsuRsbJcuffajkqQIr/t +jnIj49Ws/qWOS0pBMfk0Y0spGaU/iO/0H3sOOpIm8yUyFCy2nTK9tTIXvEd/ +OWw/SMEW+c5onaCH0Cgs3lBSSEE/M3c7BjEZblRWmIotoWJ96tXSNrE44JGH +oyf3U9Huxtic56IoCMy+NtCQQ8XBkPUfHWbDQfPZ38oiERrWJzrvXRkSAG2N +Y0fUbWlovr8k5KTWObjS+l/K0cc0jFvjn7Om3gMO7pY4ULSAjlNyWl7LXhyB +vYu9tSasBXNUZ8ynpS6Q6+wvuyiNjv62kZGhl2wh3+Zvfv40HWt8TeOMwq2g +JXDw8C4jBp7s5Gxd02EESoyUNOEkBn5Q9jWNztoK5/62jtwdZ+Culvh3Xd83 +AnplGMhsY+Kw48GzUkvWQN6NoUPUWCZ25Wa3TO9SA25XWgxlmIkPb71+kaVC +h7F7bBNNZCGmBjB8LJXg7rmNdTUxLGxUqhS7WbcMdoPvl5WDLOzrdqs1VZOE +tRdCzt3dxMZ4/RSluc/CoD4kTpu/wUbOrM+jBXQe94qIepd2LxvHpzTc8jQn +uLHFL2zF13Kw3/bMmpvhP7kvk6sH6kI5qBCctzN081fuRcKjoi3dAj4u0fNT +s+ji+uwTXca5SsDjTsMXTbt5UAlh0yXqRLxTfihtUwYfFllz3J2biFjaRnZK +aeJD1N59c6zzJKQKW+Yd3siHB/Ynaq58JmCcVpZWgSAvdstr84J9idh3ZDLe +vpkPHRLX80fZJPSvpVq/SuSD3YvvX19NcHCIXFSk8b6d+/1oe72kuDzikzCm +kMYMLHfcd+ZJpjyu2vE3W3dsFvSmHjgZ7SPg3hULxUiXeBB9blP+5zkCBrne +zfc8zweyUy3DMIGIF1XIvQcFfI4fpHdmGpBwL8+x1MJXsB91nbfsMAlz4kjV +psd4UG9vqvAnTgEjD0cvqLo+C1c76/OtacoILaZLvTi98M00mFj6QRm9Qt3T +fmR2wJDQVatTF1RQLVuNMR7cDJdcDL2ZyqqYEdtoOZvTAIsPtfR8eKuKQt0p +teyiargufS0WdchIHxK5LP/1NaQfWV3x6RoZD+ypiMhVKwbSd9/9Ef1kPD3/ +XeY+OQ/qNzAHDddQcPGiwIEzJlngZ/9cYcEVCm5Vz/92yy4VDGYPXdDuouDm +jL+DrPeJoFZ9+5elGhVTCfrmLxtugdjBxwuOB1DReO2bnDRSBKzsVFkS/pGK +wJY6Sb0cAt1Ncjf7VtDwUPHfgOV1F+H7YPYVR38aTm/n73pzzQvWtT/w7mmk +YdE72YsUo1PgHxe82JZFx7ORtU36f1yhvzHsrYUPHY+VkZKWXXIExw2i8Wtr +6DiuTFEvatoDzR7HpORVGLiu6cvj1xXmEBmk7jlxgoFTIf0ZeTIGsN3tk29D +FQNd9lZF/2pFkH+dXMIkMbGq9BJbWXE9zBsNLj7qxkST+EajlxaroechafLR +S8FsGLzl0XY2iHcltwxJC/LqjPMHI1sKlEdm6x52ZaFco/S4q4YC1Lu6SEm+ +YCHX7mdUx4wM0OU9P+ZKsnE4fVj9r6UYeEQd1TN3YaM15ciB4H9C0BEa2n70 +maB/7V7JPWYyzbXLVgnyFOGgfe0V+7ceY9y2tIQP3jYcLKt7rJJ0aoAraW/f +9iCTg5rjtX7/zvRyy++ua+lYSMDWr7KecjVzcGROipSdQUDrtmU+IjJ8yDYb +KHpoJODxGw2LbgGPJxQ0jrb+IWLO41tBPwS8nnCTO+MRR8KByxmnwyX4UBLY +bXlniwKSaDvSl96cA/Fos9UO71WwV+O4e5lsE+xvr45pO62Ks5pGOQ6n3oGW +5YkMeykyKvAr/wtLqQQllePjJGcycnxl7rknl8IKZ+2qnkIyLv5oq7rTKR8+ +Y6VYgQQF92w7nD94Nhf+BO/UaXagYHAGkTi6IB2+SinLPMyjoK9XwPKYY8mQ +GvnnPykRKgoJjRGOhMTBN7N5tet7qKi+1uDu7UNRIGKxd7gyg4or8lUlKvwv +Q3Dhg5tb/gn60tlMte6RAFgV+6KyYRcNWxr+imZWngMfuUS3I+k03LLy+6pQ +zdPAGnefMOLRMNNe6+cJ66PwlHhLvd+MjqvjNGaDz7iAhE7xbakkOm585itR +LrsfvkcQlliN03HF0nLN5mkrSFQrY5rqM9D4j29dxQljKNCwW3UjnoE3t7V+ +SFXZBo/P7OwLHWFgDUP7pqifHngWrKuWAyaONvOjo0+vgRfa+/MKo5hI3ZS6 +NX9GDbr/1BvJf2eijZghR/sKHVwVdOrzdVn4dt0VS8NpJZDPP9B+KFKQD3qo +wZ4gDwdG7Hazv7KQvfzbqFuFJBCvGb1ctZ6NevGNEpkWIvDgRGjj0BU2HnHk +Pxx5weMuNq6S1+1i42thIRP9hAnud5cNjqkaHLSo3rapeNUvbmrp3J7KAA4m +eYgEdGZ/5dZktq9KaeOgv8Qngiivi9vkY/OCd4mAIQ7M51nveUD5JldYTiPi +5r9bKhXv80H85YWaG9VEFP3Aqo79xIfqdEX2UncSKv8dvs7fyQchv9fuDh8J +OPH2oGiYIR82Fr8suXqaiKyBFYpOH/jwxbNXSkWFhNasgdq1DwW8tCTZUEY5 +OKiuGtLm1sHt1GCva1xKRMvZjuD5CD4QImjev54Q0Sq5QmW5gLeTIh914x2I +eDViuPbYWz4M6Ye9OCdGwj3B+4JyCvhwKJ6//vk6Iq4zfJNe9kSwz/Cn5Ws+ +E/Fp6kvhL/V8CDiZrncxlIjOuF//aQsf5Jn5Jx1nOdjobqSktKady2b+OLZ4 +kTx2N4+tMiLPwKoLRl+4D+QxcvPDB8L9szAYbK6z1pqAuk8tW0jePNhSt5DY +O0XAh+bTPX/O8OE+wdOiN4aItxrNW2ba+PBMNsT93lYS3ndoW/gngA/RWRfa +Y78J/OFnsZuVDw9KM3MW3YxWwLWvDs6O3JuF10dVP35RVsbt4REi0ka9oHR/ +7KXze2WU7wxMzO7rgMLqnIPu3ir4TvbJipM5zUC/armrhKSKb/QDT1ycbgAU +ieFUVKriom9LNRt+VcMtqS/UQG0yrsyqveohUw6aRrLLGFfIuG3ybYbGiWI4 +4l/UK9lLxj9Se84ZmOaB5CJr66jVFFwUPO2yJDYLwvq5RV5hFCyUyNl3/kYq +NDn69z1vp2DNPt12eeJdSLJP3nCPQ8XrijcbiRIxYJAvF/jjIhXneiwKrdwi +YLed16m6Rioue8Tr0nsbAuE602XabBp2iT89fVXOH+xEf//64kvD36a3jA1r +vCCW1VHGqachefr9ca2zpyArWT6oiU5H1/DJHmkNN7hRnCbZcoaOMqe0DGWy +HGHailgRWEXHzTf+i9pC3Avrd7QevaHIQFMtTQfN3+bQHX65UPcYAwd/GZsv +2G0A9szrf7dWCPKUzvL1Bos2Q7bTwOxDeSa+9Ms80myzHgKUqWr5B5jYqJb2 +0idwNWhqZ5nRSpgoSlp87FUIW9BX2KRVkiw8bzJj+P4aBS5oVGCRCwuNZ2J8 +wjwVYFfpR4PLRSyc7az8S2bJwq2ElonpJWwsq97dZh8nBtnNnJtvHNlo7yvW +76m+AGIzP06OPGGj5ynjtU3XprkiwnYhrxdwkJIY7c5LHeMaPdNZMr6Hg/qU +nx90nw5wNR9NybWmczDw8/Kk/Rm93LZiQbbny6Nzgz/hUMkckK4UDN9OE+jR +55yqnBgf9t9/vDxTn4irz7LLP5bwwbuuLebELyK+k7tsm1fNB+kbpyVco0no +eztN5M8yPmRI0Z9TNyngL++S0unkOWizOb3VsVoFxzg/u4nrmmB+QaPn8ROq +OJlw/dHp3HdgTq43bRUnI9mG6CzTVAk05TJfGwcydo5u7fMfKYWnW5YRNPMF ++jv+hzkelw+anf+urVlCwUP9UU5xybmgaeGdrGhHQTvDaijenA4jUQ9ylZ5Q +UGPUxuxobDKsml5yKWIBFQmkjWuJb+LA5ofo2Q5rKk68kv47Eh8F2+6/PAbp +VFTq+2j/p/Iy5OrOz4bwqJhkeGyfDD0Q2ueSx8hWNFxzNLJhQvo8jGp0vx1M +o+Fg3YmR486nIWxzmt6tGRoGPzu553PyUfiiQs+0MaHj0E65SeYjFyhUbe2I +TKQjxS3l/l+b/eCXQddK/k3HTmFCVdBqaxBasCK4disD4/8GL9QqNgaRtcUe +LbcZKKNbO3F/7zZ4s2bhft4wA29PL3xbV6sH0nv9FkfrMfHw+o2kzEdrABfd +ahO+wcTVv3d5TRqrwyo/lwfX+pkYevFznHk5HZKaX0jPrmOhg913h0RjZWiw +Ovul8DoL18w4h+w7Kw9D2+sjH/Sy0M/KaZgqIwWhhOxur7VsQT4Kcva7KgL9 +udtZTuFsrNz67sAdcT634qTs6pftbPxFIld8a5rgXi/0dh5T4+ANNbfopwG/ +uKS6WxHgz8F9+eH/nL5/5f6ccj/88RMHO0Z7N09afub6i4lEfr9AwFmPVs2M +Ch40rmsjvVEhIrtVcV+DIG9fc2dOsMoF/N50TOKNgK99jRdKFx4joYhFf5mI +BR8eSx3V31kvyNdKg9KFWwX8lgxUvHGCiElGq/j3G/jgzLmy4bkCCT+uLDpw +P5MPtYk50RY/OehuuT1WoqCDezngV8xHcSIu3NhcTLjCh9itdfeDsoj4uft0 +n4/AH1L3xMYn2hBR9V0figr0fWxu9YCsMAnltzqnGwn0T/xVHluoRcRk77PF +ctkCP7h3cfu7ViJKHahd3tnIB83y4wkBAUSk3BYqSRT423p304wbfzl4TvFu +3LOL7dzELPLs02QiHnoFzHuC+4T4VJtUcyI2uBK7yl7zweNAMOA0Eb8a3Ev5 +IZjDxD4mzLwnovC/TUPrBP3kqtu0bbgPEVNFIhZN/r/fdJw12l1AxD23PgsM +kA++OmojCX1EXHpDVCbnPR+alfq7zl8l4qXmUpWEVj787lBeq8nn4LKRe/dd +Btu4BsIjGwMXyuMrIcb0L4UZ2HB5W3RwijzOb9+7uqdzFl6ZpJEzLAhoQKIO +SnrwIN7rW5XzBAG7kifqaKf58HXU4IdaNBH77WU+5AruL0/L11u+mYRxVWbr +nwQL9nW/d7mrj4Sk6S9hW/14oGPpeKE/UgFDfS9Je6XPQlfeDieGojKG2TPW +Ddv2QsG7h7LP3ypjX07rYa35DiBnvh4Z81TBlAsB9fqVzXAmaXflIoIqHgz9 +d+q8dCPYN03WbSxXRXp50pCBWA0oSIkdomuRsVlVqfANsxw8Ny4oeR9Oxp9r +f+WzIooh2mRP6rsvZNTmzDdvPpgHmUNDS3Q0KXjMMKk49mUWSD4IDF8dSkGb +7PoYxYxUUJC/SvBuo+D4YIm7yca7YLPigcN2NhVTguvp8+wYGLCvqkj1o2KA +J3f9mYgIOKpCTT3ZQMXLfpY14oMhYD9wZHcXk4Zngo4uLWL7g0KMzL17FwR5 +svzi9spvXlBTP+5S/56GmtOjYkdvnIJyRteW6zQ6ssRuX802cQM3jTWrYj3p +mDRmtrLwtSNs601sXVFJxx09d11N1++FI08k75j+x8DvgQGhNxdbQLBkUcfn +Iwysk8n2+ONjAMPBR9bMv2bg+z0y0jSlzcB7ciX+0DIm/nBd2jVybj1sCykt +tXVh4hGtJ2VXElZDm88U70sRE+EdR/3aQzY4TR0taBBn4XBVwaGtDylg41e3 +1cmZhTPHfZa63FYAhaErrjsLWajkxjUe2yQL9T2hixLF2Fi+tayj+4UYvJ8M +K73kwEarczFSd7YtAK+XM4G5uWw0yP4ivD17mrtX/YLoISFBnzHc+8+odIwb +VCKclrubgx7HpyUNPw5wy+u3aJ58yMFXQxdHqip7uX011MnsWXkU0kyzE3s+ +ByOWki2SKQSkfNxUKyEiyEtGN96qbSNihqUxE4r5UPjwsVrxEBEfE8eqFgny +nhI9teVLJAmrDpP7CQp8SG7Sd3XVVcAqt5aq/Y/mALjB73sqVTCJtuJ5x84m +MCM29xccVUUe22d9duM7sBedT7q5hIy3Vrnf8B6shAdKA+VzdmTMumD13JBQ +BlNawi9bn5HRdqBV9Fx+PtikJ5qPi1LQYTvra9TzXGjQkd5TZkvBuEvHNbuc +0sFj17B/aw4FA424ob7ZyeCZSXhmLkTFBz1NhYzvcSCfJ3nP34qKhue6C4yf +RcFXw1OPeQ+oaHPsGsfwx2Womnu0ijNHRfG51Tt7uIGQ/VheUIBpqO7cn3hw +zXnIKJ0/9yiVhnHaX9dHnj8NhQOlPRumaTgccrD4W81RmLo/fJhoTEe5K256 +KypcICL6IM8qgY4vHO7tar+4H2rXZekbjNJxSiS+V8HUGrSOOjwL28LAPA+/ +OO0eY8gsGIg+G8NAb26JYc+ZbWAV3R2bP8TAfMkLi/zG9MA2nfLAeiMTJ4VK +84cr18DCE6uPPrrOxO95X6xGvNShpeKxlWEfE0k7XC8Tu+nwUkso544OC8fz +f9yieitD1v3APsdrLNw7Ed4XHiMP2e4hOQd7WEiIz/r1XkcKXu1zGP1vDRsX +9q8qYmWIwMKmVEulMDZWcN31X63mc+9fWlfm18bGLtqC1KMjE9y+vpj+2ys5 +6KPmobrk8S+uebPzSr6fgM/PPy+0W/iN66dUGnK0mYOHo2R66vw+c3c37j1v +e46Av1uEHimV8YDVW1y9Q4mIQv7hNvF3+FBvNBd+uoyIQdmtNjsFfB098Dj8 +wmESEhw23/O25kPQpzLN0ncEzFBWIG1BPmzOP/hO9hgROxnXGc8EfSJF2LFB +iEjCaaYDq+qxIG9VzD0ZHOLg/rcx8/zuDm7vykb9XWJEXJDC7IgK40O78v31 +jY8E/vM+MOaWwD/mhM4bqu4V+EOH21BllaDPf1rsZydEwu4rMpqLX/LheEya +ga4mEeWff16tnsWHyrPWncRPROxpNMmvEvSp0KPmxiL+RCwYSD4vLPCr2pj4 +avYUB2XN5TI/pbVzu0MmI+bvErEu+1B3mOC+PQ8WiTNNibj2QMUG61d8yOPa +fLoyScS7x1sJJyr48Lbvodb2WiIqJS2pGxH41VeZTgkJLyIaBv7cqynwq+Zn +pr3Jz4jY52sj1iLwi1KZBUEDX4goftU7pK6ODyvfVF3lhxNxoPHNZTXB/wwQ +OmJZM8fBOYk0sVTpdq7Txnslt+KImFtwUEtHsI/xbQv7rkqBX18jdq4V5IXd +h6clN+QQcbnRPlczwXm7wpWfQsFEHN6gsUtdcL6/yeiAW6rge9xePksXnFsI +pT0XLyZiyCu6M0ewz4XTQuqz14k4uCBtXkgw2z//QIqd56D1zLXbNpVt3P8B +buGkPg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1nfYFWIYwOGv0tIiDe2SpD3RVGkLERVNKrT3TqShvVHJSijaKG2hbZT2 +3jRoby33c/nj7n1/73m+c51z3vN1fXladKrXMVFCQkLtxAkJse70T3vuZr5u +Rik8nLDLWQdSsUA3p3Q85sFJzh5hrx5OEnbrePLUfKNfpoDZlboJieNnYtbZ +ZPtH2adHUMTZT/plknGXsz3WTqThW13CzFr7VryiC+of7JuSJJ5bb7S2juf2 ++F16iv1jlLPfZN0f789+vf1rjNRF9c/xnFS032JNHj9n/6u1urWttbJ1u7WW +Namf22vfmSd0WmtZ6+/WGtbvPF7Suk5Xs75qfdy61VrT2sLjhayrdFVrM2sF +6x/x3uP12/9ibUMl+23xevxMUvsP7MtQ3n6z9UDci/0G+9cZpYvp1fYtSBGf +qbN91i6kY6FuSWFzP+rmJI3ndZbM2dR4PxzUo0nOft2Ve1ikW1E2HjP/YXzG +HNJjSMEB3Y17+V6/SjlScjepSE0a0pKOg2a7k57F+jXKcw+HnPXgPpbo16nA +vRx21pMMLNWtqRivw2v7KD4rDuuxpOeI7kVGluk2PB6vzfzHcRcc0eO4j6O6 +N5lYrttSKd6H+U/ie8NRPZ4MHNN9yMwK3Y7K8Z7NfxrfBY7pCWTkT92X+1mp +21MlPh/z0+I7wJ96Ipn4S/cjCz/oDjwRn6X5z+K7yl/6XTJzXL9BVlbpjlSN +z938dGdVOK7f435O6P5k40fdiWpxR+Y/j+88J/T7ZOGkfpPs/KQ7Uz3uzfwX +8R3npJ5EVk7pt8jBz7oLNeIuzX8ZvzOc0pPJxt96ADlZrbtSM+7S/Iz4HeVv +PYXs/KPfJhdrdDdqxV2anxm/o/yjPyAHp/VAcrNWd6d23KX5r+J3ltN6Kjk5 +oweRh3W6B0/GXZr/Ov6P4Iz+kFyc1YN5gPW6J3XiLs3Pclabs/ojcnNODyEv +G3Qvnoq7ND/b2ZOc0x+Th/P6HR5ko+7N03GX5uc4q8N5/QkPcEEPJR+/6D48 +E3dpfq6zp7igPyUvF/UwHuJX3Ze6cZfm5zl7mot6Gg9ySQ8nP7/pfjwbd2l+ +vrNnuKQ/Ix+X9Qge5nf9Bs/FXZpf4Kwul/V0HuKKHkkBNun+1Iu7NP+Ns2e5 +oj8nP1f1KAqyWb/J83GX5r919hxX9Rc8zDU9mkL8od/ihbjL+L/dWT2u6S8p +wHU9hsJs0QOoH3dpfqGz57muZ1CQf/VYirBVv02DuEvzi5y9wL96JoW4ocdR +lG16IA3jLs1/76w+N/RXFOamHk8xtutBvBh3aX6xswbc1F9ThFt6AsXZoQfz +Utyl+SXOGnJLz6Iot/VESrBTD6FR3KX5pc5e5LaeTTHu6HcpyS79Do3jLs0v +c/YSd/QcihN/gLznrBS75VCaxF06X+6sEfEHzFxLidg6f1+XZo8eRtO4S+cr +nDUmEfPi+Z2tsW9JSsro36ztqGK/I9H/fx+VNPsfd4MNLw== + "], 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]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + 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" -> {{5, 13}, {0., 1.8656394062186223`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[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:eJwVlnc81f8XxxVFRiH3Xr7W3aOIKJV0zyklIQktyixCi4QGydYSSRRFISGU +7KKMSBkhOxkpo0hG1tXv/v659/F8vMfnvF/ndc77TbE7bXpssYCAwC7+z/// +nbonRAUEZNBCZ37+ptQM6AuObPZfLINvBBjTv2RngM38cWLpEhnsahpbY0ie +ge8ubbXiojKIz0OYAmozcPTv6wg5GRms+DutaGY0AzbLg//TZMtgTWSKcmTQ +DOzXkVvlYCKDM4ucRTfNzMD26C27PsbLoMp3Vf+8plnYdHV7ZOBjGVzYcXBt +d8csrLlk+JWbLIPhW58kC/bNgpzNoXPP02Rwzc6/GdpjszDCOpcQlSuDZeG7 +sxwl5iA6L33G5qMMellW7Hy+fQ5+NcunTv6VwfcL2i8SMuagt4o6mTErgwLq +SUdEcuagtZCDx3kyaFfnSzheNAelDzY0ty8mYMs3KXfpKv5+DmaL30gQkA32 +Z6R65mDb1FWLqzQC6qrdiUqXmocowqyo8h4CRk0xL82emIc3u5PIqXsJqE+i +Doq7zcNgoInWenMCar8wbSZ5zoPOVLKt4SECHly1WIR0ZR56m83yPe0J6LBS +7GlB5DyoRj87Vu9JQH/pyn9BhfOwv/7gRcsLBPzdLPBUoWQefEWEwr9fIuCs +W4t6atk8NHhZvJq/QsAga2ZO+sd58DokvJJznYAnbYcvG3fNQ/l/tm+uxBPw +mNb2ovl/8zBiKt4s/piAlMYt1WJCPCBdyxu+m0TAJ14XlKVFeOA8J0HKSCWg +eetKLyFJHqzoLDzZ/pKAFg7RfT7KPLCIk5HXfM+Ph0VpLdXhQcDnEvXiDwRM +VZQlbUMePJNw0dtVyz+fwuDyfF0eCPi8dbVuJODE+2PCIQY8SLY6VXXtCwFj +NNI18g7wYEy56ty3MQIWNR4yNzzDg3se/RV2EwTsTJiooZ3lwbaaxcSeKX58 +JtPdf87xIPLCltwvcwQMcHiQ636RBxs/v5hqXkLEzXsWWy4N4kHP6nq9fSJE +XPSY2R4RwoOrfr+iGkWJuHhzUyHhGg861Ngb6lcQ0XS2PXAhjAc+V+M838sR +0XGXSKhlDA9YPYWVOxWIKOAbanHvPg/qN7SS3ikRkd0if6gujgeUfun8UhoR +t/7dVi7/iAflEDJdpErE+6XHk7ak8uBkVJK+tjoRZXK+rFVN5wHxV2l0vgYR +EzzPF0pn8OD4Pd7GnA1E3GDwLqXkOQ/EJt3OZ2wlYm6g1aH4fB68NLz1XmU7 +EVNNjZhQyIPDj57JpekRce15dmljEQ8y9gwUPDEk4q93anu7inlwIHmJKNOY +iOuPlm0yf8PXm0e1SDQhYp0DsbPkLQ9MU4/Mxu8jYoq6xyavch7MCVw0UD5I +RMF2x6HyCh4kHoi+F2dBROUPvShcyYNJoUbte9ZEvB42XH3iPQ+irfUv3nYi +4k1/odrCGh5szT32QeoEETsYNxkva3kwJO4vf+sUEeMN1/Ae1fFgc+Hroutn +icgaWCVv+4kH3yQ7xMQ8iGjg//OgegMPrjtOW4Z6ETFRKGzJJJ+7ZDTnA72J +2Os8ec+qiQfBLiZGQr5EzBtIuCj4mQfqpSdj/fyISLkrUBTH5zbZaz8FAok4 +vEltn2ozD/xOp+hcDiaiHR7We8Hn1e8qrvNCiThQ/+6qSgsPmhT6Oi9eJ+KV +pmKlWD5fOiugOnuTiIOLkhYEWnnAqFb09grn6z0wxLTk87dR/R8qkUTss5L8 +lMXnRwT3vT1RRLxTb9I8w2fbzQ+L7sQQMSvvmIZWGw/IttUMg1giXlYi9xzj +c1fQZNjCAyLWZBzvCuFzXDp59kUCEY+/AeZDPh9uMDzqmMgfd3z9MoXP/017 +1Mo/IaJEgFRQEp/bFB9trH/K98tH/6g7fI7WrXkUkE7EL11ne734vN9pWnxT +JhHlDA857OEzIYzm+es5Ec0SypTk+Nz00rgn4SVfT28LkWZ+vBHt5w335xHx +wJ0vykF83iuQlCNaSMSgN3Q7Dp8lmfXKJa+I2CJM/ljC16fWcC70bAkRAzJa +LHbx+YYrc4JVyq+XLSfE3vH1Nbq716qznO+XG8SO9XwWfX2p6lYlEYU/sSqj ++fl53/tEY0c1ERXil9WM8PMZItIYO/OR77d/W4Y28HmJOcfVroGIxa1k28f8 +/JefN+8gfiZid/3u3Aq+X/weXt7xoYWvx9FquY56vp+HP8ut+0LEF4mvBb/y +/VYsuShg4CsRRa97BtXw/eitpTIS20vEFbeEJTM/8mD2il/pkgEirh6GtYbV +PMh/8kylcIiIz4hjFUv4fvasaY069YuIH6SvWmbz/T4hq+bS8oeImc/uBPzg +10c21+LztUkiPjjZQjhVxgO3o4GA00T8pv/w8Q9+PY1mdqx8yuPX35czz7P5 +9ZfxeanPEQESdl2TVF/6mgcn5tYOSAmSUEbXLsWQX69DeiGvLoiQ8EDgoYDM +PL6/vqw7ZrSShPJOhb3tmTx4LGhTJ0Ak4TTTmlXxjAd2nGubcmRJ2Li64Oij +NB58de+RUFIioTlroHr9Ex60i93MHWWT0Leaav6G34/qNv0Qvs0l4do32rRj +/H5XmpSrI7eVhDEVezY+D+T3E6kg14e6JHxk3br4jx+/vw7SO9L0SXhw3qZ4 +rzcPHGLsMspNSai8WX0h1JUH89NfzKccSJhkNGX+ld+fR48+C73kREKC9daH +nuY86K2/VLz4BAmF9vaVCO3lQWWKPHuFKwkV/w7f5O3i++3goTnWRRJSBU2z +nTbzgJPflHAojISfY1U/rFHggQI9sflrOAkrnMh9BFkeLL91VswhkoTed5OE +/qzk58NR+pxbDAkHrqaeDRXjwRuSif61xyQUyDI/s36Wfx96fhh5lUfCoa37 +bwd+ngd/rdLN5G4S2jhd9mUFzMN114dXO3tJSJr+GqLrMw+R6ZfaovtJmPmz +0NHMax6SqRs8pYb5HEOqNObf11XL018sniKhe2POt5dm87D8xx1Ov5gstodD +4g7yPETfdSKlbpDFtcPlr3Ky5iChQc/BQVsWKxybKw4/nYNUCXoOdYss/vIs +Kp5OmIMi/y7T+9tkkUTbmbLi9hx0nTa7eX23LC610fUqdJ8Dmv6WJaftZVE8 +5fA6Ca05yJiWHNcMk8XRjV0141mzoGVqc6kvXBaDva8s90iZheK0zCW3I2Vx +/ZtjsyMPZ6HWylj2T4wshjtFLqq4yX//lF/bkpUoi6GJBSsET8yCWvjSEJVC +WXzov/joJ/osZHHmFRj9sghKk3Oit2bgucUPPeJmOUz0pss/3zMNxbvqdF06 +5LBZ+Jf5g1eTsHVhVble6H/IEJoVdS/9A7UQ/StytTzq6D6V/jMxCusoN7Kf +V8ujruZMTk7ZEEhWTc6beyrgVt535q2EfpiaOz3qLKuIac8t+hpP9EBn9k5b +hrwihlgxNgxb9sBbF+XGr4qKuCM0TGi5YQ9c76jNNacpIjQbr/Dg9AC1SNWH +u0YR9xhPT9Z974bdF4bFpbcr4pUjey3T7LshcdphVcFpRcwv8T/z70MXmE4e +OSZcqYh/qJurPsh1QN6HJ1I57xWxN7PFSWOhHRQejb22+6iIMh3+cRm97dBv +HEgs/qSIHsGuST/S2sErJb3SvVMRTcy/3beEdnhoOcfpHVPEiQ/di/Wc2+Dn +2+iRVwpKqHxc4v3fuhYIvtno6eamhL7j7hFqbU1ATns7MuauhI8v+dXqlTdB +fmXmMVdPJfwg9XzV6cwmGBK4bnbmkhKqZKgwxgObwPjsdrVTQUr4Yttfo0rN +JiAezPnudE8JwzNlE2IiGiGZcnefbakSprvHpmUcbgDgBn7sLlfCeNqqnPZd +DdBqcVbXplIJxzg/u4gbGkA0cs9a649K2KN20rVEqgFOLRWRONKshPPMnqT6 +yk+gNexVfnBICbNPObUOa32Cdy8tNE2klXH5yoqOKnI9nIvfX76EoIzHgv+d +ubi8HujXTfcVkZTxnZ7/qcvTdXDF3sCTqaiMqdH1prOZdaAjrV00z1LGk0J+ +1ZHkOsg+Laf7dIsybtpkdkZfpBbiV7WaLnZSRmPPuJ3Lxj7AHmJTX56LMs6z +vTZm1H+AhUX17idPKeNk7M2nZ7M+wOG2yqjWs8o4q26YaX3mA5BC8tozfJRR +pfPtq4KxarjZH2VnGamMW9fSL9rOvoeL8fvcXpYo480n6051UqvAqmGyZnOp +MtJL44f0RaoAhaI4ZeXKuKR/hXrdr0pYery5+9N7ZRToelzNLqiECLUDe0Yb +lXGj2Ija8r2VkFp8UGXVgDKWTMwYhwe+g5MjquN7RMiotatAc0qgAqyEF+Jv +LyPjnTWutzwHy8GEXGvcIkpGsgXRTrKhHDRMT6VaSZBRllf+X8jjcpjOybA9 +KU3G8lLFnhs7yyHAW63+qgIZD5Ebantvl0Gs+NpnFepknA/pqtTcUgqyEiLH +6RpkbFJWyH/HLIU7El+p/ppkXJ1efd1NshRuLr8RjVpkpA8JXZX59hZ8JQf9 +izaTMSu21f7y9bdgL5Ng8VyPjOk82fVfet7AKgUpkbjDZNwod7oHdUogWWGg +dO4If/ySWY4BoQRoiiXeFtZk7BjV7fUdKQYFpZPjJDsycrwlH7omFIME+X1X +hCMZr6f3rbBZVgy/aVdyQtzI+FWR4GXU8wryVo/ZuYfw18cve7AjqxDcNy8q ++hhKxp/rf+WywgpB3VBqJeMaGbdPvk9VO1UIKc5ryz7fIOPRA2VhWSqFEP3U +lbbhNhmXLFE3cEsrAC/Wn76ZODIWyRenfs7MB23a+NHL2WQ8clLQnNqYC1Ma +gq9bXpLRcqBF+EJuLrzYtpKgnsvX5+Qf5nhMLqyy06zozifj0kZL5V22uSCf +cJaxrZiMyz+J7vIdy4F5pYl+ofdkxMyHJgukHCj+b9LhahcZv795WmJ+KRsi +dx9I/PCVjJqchaatx7LB2begR7yHjH8kDlzQN84G0nfvw2F9ZDy78F3yETkb +zjxfaho5QEYHqW0v/d+9AIq+7JYHf8j4Vi5Tb5j4AgLObV75YikFcz85TD96 +nwUWKXEm48IUtN7B+haRkwXqHf9urFtGweN9EbYxCVnwBctF8sQoeGC7U+7g ++SzQEt+9UCRJwULLKeM7q7PgxyOrwYr/KKjxNNxyGTMTDOqvlLStoSAjff7V +/r50SBsaWqalTsETBvGF0a/TQXyJuXnEWgouCZy2XxadDrWbmIMG6yi4dIn/ +wLnd6WD2uFr61SYKxvndF/UoTIPDHisdHmyn4BGrgo7+2FQ4pZAkbm9BQUKf +fizTLwXqtJYfKLGkYMyVk+qdtimgvtczQf4If75BJRRuTYE/gbu0mqwpGJhK +JI4uSgHP0V/WO45RsFmmI1Ir4An4lmpls85QMA0aRAm3kiH8eNWhn4EULP0y +daC9LBHEk/1D1wZT0CKjNko+NRFC+rgFHiEUzBfLPHTxViL4WOXILrpGQV3V +3P47RxLB2fxRC+EWBYOzee6aM49hO17aB/coqBqmWDW+/jH8JanvjcigoPjg +3j2p5Qngtm/YtyWTgv6G3GDvjAQYiUjOUnhOQbVRiz0u0QnwTUJR8kk2Bb09 +/OSiTiRAvaBoXVE+BX32uB5hEBMgdbTPqL+UgrXPLLZKnYqHI5V39Te2UDB2 +xbjtC5sHICtzneDZSsHxwSLX3ZsfQIONb29OGwWrDmm3yRAfgP7s8UuanRTc +mvp3kPUxDtapamet6aFg07UreYe040DsdieJMUzB/Z8Eq98qxUKBFeWH1D/+ +fqvzyyyX3gP3NMJLEwEqJnc35DO+x8Ca6WVXwhZRkUDavJ74LgYSw//8JyFE +RQGBMYJzUAzcKi8zFllGxdrE68WtIjHguMohd0Gaio9R/ny6TDQQplIDh5lU +3D10rlJ8ZxRYrEq23sHmjwfW0hfYURBvlbDpIYeKN+Vv1xPFokCl8u4vUxUq +JhL0TF7X3YHt0QH7CtdScafhs+Q2izvgpm3FCNWh4vLHGgSmVyTU+khVME2p +6Ds1sfJjTQTIZIs/9DWjosGFrjyjlxFg8UP4fLs5FSfeLP87ci8C+vcsqNw8 +QEXV9foP7h6PgHnycOTkYSoeuTU2574kAlaXlR8td6TiePPasc07wiFE2EvI +zpuK1jVCmVV5YTBgVVGW6ENFP3fuxnNhYaCfK+3/4zIV57r35ps5hoHIsWeL +TvpR0Wj9u8wkUhgEl/YueAZTkZlwTuLuhZsQ5L175kY4FU/9u/nt0q4bEDBO +HSlIoqJkavzMx2XX4JvBmWfzyVS0OHGDY/DjKmx/9PoEpFBRobfR6k/5VRDa +e3C4PJWKq3KVxcp8r4J/xo2BukwqDgZtbLSeDQU/p+ne/gIq7nrOoFhOhoDv +15oWqVoqylw4TxVaFgwuStTE03VUvOpjWiU6GAT7j3icqamn4sqn850674Ng +dYfSstBGKgJb4jT1ahA0N5/WFmij4rprF8V+SQSBaq1U3EgfFbtju7L3KAZC ++6t9dh9mqBgj8En08yF/qJh7uoYzR0XRubW7urn+kKW9MBs0T8V4gxOHJOn+ +EJiffHvbP/7682kqXSN+oP7yb3mBEA1r4+wOrg7yg+C0GFbKChou7LtsYVd0 +Bdbd+/IzgEHDuKjkXEHwBasB5/2dTBqeC3BZUcD2hVCt6RJNNg07RV+cvS7t +C10N0rd7V9HweOFfP7mayxAipr8J1WnISwq27lK+DJ2XXgTOadPw5bcLlZr1 +3hBgHazkZkJDFaai3TKLi5DxTCbk/V4aqtr1xR1bdxHa5hLGyGY0XOcSXjex +/CKsiX5VXrePhs11f4XTyi9Aa/2Ys6olDU0OFwWd1rgAKtsO5w0co+HtHb6x +yqTz0ERfa2J9kYbXd7Pr7QU9QTZK8uHDSzRMK728o7zfA44I//711ZuGv43v +GBlUecD3wYxrNr40nN7B2/fuhgdMZ6hU2gby16/5aXj+Pw9Q3MTmHg3j6yMQ +zX6sfQ4cdiurOD2mYdcnn9SmyLP898XChaeJNIzR/LYx/OJZGFXrej+YRMPB +mlMjJ+3Ogpd0nKNzCg23rf6+Jlj9LFxr+e+xyzP+/HW+metq3SDLlvjfqTwa +VmXX3T+0wg1mzkmInP1AQ+pty6myJ2egqnbcvvYjDdWnR0Vcbp2BaFZ7CaeW +huTpjyc1zp+BDW3Jnt31NCz4IHWZYngGzungj93N/PlGtounu0/D2OKz79g9 +NLQ9dDl89sopGAxrDeia4vPOBw/ov10gf6C4e9M0DYeDjhX2V7lAyNYknTsz +NAx8efrAlwQXYI27ThjO8/Wz0vh5ytwFju0XO1qwiI5T0hoeK185Q48CVzdS +nI4lsVv/Uu84QdvTx4sMqHQ8Y+oFHiccoZTRue0mjY4skbvXM3Y7QnqCTEAD +nY4OoZPdy9UcwTcmcKkli47nw6sb9P44ADPUUeyECh1rY1eb3LzgAG7HVxNu +atFxIIG2yiTiGIizstkNBnTsVJiL2fPFHqYeDTsRjegofc1RZ1WZPXxVoqdZ +7Kbj0C7pSeZTe3hBvKPat4eOa2PUZgPP2cPBpZ4aE+b8+CM6oj6vsIekfm0d +ojUdM9ZY998xsANuYukei7P8/aslRy622ICj2ro10e50jB/bszr/rQ3cKkwS +bz5HR8kzGgaS6TbQV8+3rxcdT5SQ4ldesYEQnrHuLm86GgRYddqp2EDD/g6t +jcH8854X0ROTtAaHZROKxPt0vHXpW9xQ4mEIizw2bxZLx1fWD/e1XT4M+cot +7eFxdKQ4Pn701+IwiGkV3pWIp+Pml95ipVKHIcvOV2pJEh19LcPDg69YwmyR ++JKJDDpGp+/iPHKygLBTjJ+fSun4O+P7QqjFQdjeE9eyqpyOO7sfOBhvPAjT +ZsQy/wo6br31X8Q24kGw2SR8b30VHccVKaoFDQdAXWhwZ0wNHRNldMxbdx+A +hpj0xzatdIx4sPh6stF+IFRoWo7+omPz/AvOZ2dzqN6Qrqc/ytdT6F6PrLE5 ++KTSNRJ+07FDkFARsNYcvocRlpmN03HVilL1pmkzyLX4m5s7Tccqb+MYw1Az +OPi7UNpHkIEfPrRGnnxuCvflt1WLyzHQjviIJKO4F5yfi983/o+B3/39gm8v +3Qsbd7a43JJnoLGGurX6bxNocjshIaPEwA0NX5+9LTOB5dVRJvI0Bi7l3Evl +njABX6/hZo4qA92L2u8LBu6Bo58j+/S2MpDwnaHmuHQ3aLhYvwzZxsBsN58Y +zW4jEFi0KrBal4H3/gYu1ig0gjiVEqaxHgON/njXlJ0ygmb/Qad9hgw83cHR +XdduCPoa3N/2+xhIH2TGSBUagErYj3lfJwa2jTG8CbH6EChe0P7FmYE1khlu +f7z0oSv0ar72CQYO/jIyWbRfH8IDVN0nTjFwKqgvNVtSH6bOnx12dGegVfve +7fYhO6Hk6L8248sM/Desc/6Frx6YapPyFO4w0CFbz23n7e2QljcQeT6KgZ7c +IoPuc9tBaH2hW/NdBkpqV088Orgd8tSOrLl1j4G3t7d8SlTaDgqMx0mC8Qz8 +pOhtHJmuC/0r1CKHUhmY9ltg7++6beDVr+ea/4aBokXzrgqaW2E40HndwlsG +fjwguZymsBWsmDf/6pYxcJ+W3Eb9JVthh+Nn77oKBtofrIj81YIgPWh/9Xs1 +AwsfKq+M90FI/+n7WOYzA3fpBpQLPgboHi/8fGaQgUd/D4jYyW4Bs8iu6Nwh +BuaKX1riM6YD79YtPjw/zMC704vf11TrwLNzu3qDRxhYxdC8LeyjAxf+tow8 +GOd/v/neh87vm0FmbkK4hsdAw9tSTxvfasOuxWraHGkmZh6/76F5fyPMP792 +7/hKJv5wWNE5cmEjZNgOzD6RYeJrnzTnJouNIPM2oYhJYmJF8RW2ovxG6L4s +s4WuwMRjvWLaD+M2gBdvBpSZTFzyNkJjQ6oWpEyX7yBoM/Fd+222Sfc6sEyh +JJtvZuKkQHHucPk6WH7QZ2mkDhOdNm4mpT1dB+55GyqlgYmjTbzIyLPrAD1S +9SW3M3HY5th5iWXroHU8zFDMmImOb6j7TmtrgvCoxd5FdkyUPEa/VpqzFrYH +FRdb2jPRWeN5ybXYteCnSFXJPcrEepWk117+a2HBcHCpiyMTd9+rN3y9dy1M +pXi+ajrBRL97QpuHR9Xhu10kK8WTiYYVNVGZGupQ3lzDM77BxMQUBQYtQRUW +n1rr8vQmE79nfzUb8VAFXHKnVfAWE9f+3ucxaaQKrzQPZ+dHMJG6JVE3d0YF +sm8NHadGM7EzK6N5ep8KPDIQbpp8xNfDoH2lttxq8C3G1Nh8JhLVN2cEVrGh +1Wtq/msBE+EDR/XGEzaoa6bvoRUxUZi09MSbIDZ0PyFNPn3Nj98gcNvTHWzA +8BHIK2ViyA6itE8FCwSOxn7+9JGJR/33rBasYcLlZdMCwj1MFJRwvL5olg7N +Zc/MDHqZSNrpcJXYRYc1PvbJN/qYGHz5S4xJKR26/tQaynxnooWIAUfzGh24 +nUlRlGEmPrnz9lW6Eh0WMsxUdCaZ+EYi7j99Ixr4mGcecF3GQu6XZruvbyhg +O+WSVyfKwuGKvOO6Tyj89zGbtEachRd3zxh8vEEB0c6E5qHlLPw6Y/fJ0JIC +d+wj9x2VYaH3igdq83/JkO523uyAMgs3Ciu7TW4gQ/st3T1b1rOw2kHDtj9B +EV5rCGTe12LheO6PO1RPRYhverV8dgMLrY98t44zUgQHWa3aXG0Wvt9wzdRg +WgHGHrJ3qyMLMdGP4WWqACKZEoY0QxY2+NZntkrJw4aaFr1ltizMCY/YfLpQ +Fix8anRt7Vg4c9Jrhf1dWbikVoYF9iw0monyCnGXhdLwDG0nBxZK1y8fd1CT +BaP9gWveu7Cw6BHOOj8hgc1XDWKoB/98hPsk83giXB270S9ynYWbLGrf92XL +QPoj/16bGyw8OBHaGxolA3Vm57/m32Thuhm7oEPnZUAm92jb8XC+Ht3UQHeQ +gQcXNtdURbGwXqFc5HbNSsgWHHwZksDCWBVnXxyThk7C9gCRPBaa10f//Gou +BbJD1xx25bNQwZFrNLZFCvYVN+pfLWDhbEf5XzJLCmod7CXEX/HzdeRnRPuM +JLzN84ta8ZaFUjoHQ17ES0LyobcpxA8svDxvLf/kxwpwjePW0L+ysENr/e7U +IxKQ4RqUeaybhYR76b8+aknA0I7a8OQeFvqY2Q5TJSXg6MiR/exvLGTL9Y86 +lonDfvD+unqQhb1djtXGKuKg01M0pjHOX2/303C/sBgsZWwibhVmI03UUTii +WwRqu4OXxImwsVS3pL3rlQjciW2emF7GxpLK/a1WMSJAl3FvzBJn43DKsOpf +UxHYJph5iyzNxsq+GYsrVcJwuYcuJqDIRqPM5zWvXy2F6ThJgRINNvp6Xmuc +qxSCN4esR/9bx8bFfWsKWKlCEEzI6PJYz+bfhwF2PteFgHjD8PWajWzUuVcv +lrZXCNZfCrrwYAsb7+k9Vpj7IghuFvMT3vpsJJfKnty2sBiGiQODOlZsfDNb +ZdttuQg+ToYUX7Fmo9mFKIn72xdBRhPn9jsbNlp5i/S5qy4CtwgXHRN7NppT +nI8G/hOAaYnRm/bH2dhAVEFCkgAsXTKledWNjdezk8TvDf/jkscFfVqC2EjZ +7fFF7hCPu7gh0VQhhI1lXFe9N2t53L6sHSzbUDaW6344el+Ux00+FVw/dI2N +zja8JyOv5rmqQ6K0hVts5Mx6PV1En+dq90hV0e+zUfpZXV3c3Cx3X52ytFsm +f/+eiae9tdNcj9cz/llZbNTP+Cq4I2OaG53WODnynI3uZ4zWN9yY5rYHB7e5 +vOTP37+ae2L3NNcGR+OPFbAx4Zt3U3TtX67z82K1Q2Vs7JDKtU9sneL63j6y +G1vYuPrivS8E0UnuoysbSnxa2dhJW5ToMjLBLTsttfZ1Gxt/kchl/Q0T3KVG +FTLanWx8KyiwWy92gntNSLVTs4eN41NqjtnqE9yoc/POrGG+vvtUtxBsxrnp +B+6HLP/Hxu3b85pKWsa4B1UvCR8X4KCVwcF/hsVjXCHBI0FvF3GQEhfpOp84 +xj2SoRTgLsQfr75m9d5tjLt8yaPL7cs4KEdnvJOQHOOeeZHikSzDwbl332QI +e39z10vkHuWu4uAW1pYjsS2/uL29UX13V3PQS8VNedmzX9yb+Z52YyocvKXi +GPnC7xf3u/0mm0Q1Du6t3L6lcM0vbnThK0vR9Rzsszy37nboT+6sY5lpM3Bw +z8rRMKrBMLe4tB5P7ePgYavRK4ETA9yAIsGkrP0cdDs5LW7QOMA1fKm1bPwA +B/UoPz9pvxjgtibFfvK04GBJzTOl+DMD3LGQ43ZXrDl4PG7P8bOjP7j0PQIB +kU4cvFJ2uFN08jv3aodaZaE3B7mxmh7eSv1ckya71TwfDl7I+bL4yOJ+Lqnm +Thj4cvBQbug/2+/fuInFcwfK/TgY7ybk15Hxjfs6oXKgJpiDsoHZu4K3fuP+ +drQW7QnnYHpf3tO7J/u4+yZu7hZO5p8nafnL/V97uKW129RPP+Hgm6HLIxXl +PVz1p1PSLSkc9P8iF384tYcrbmXVmpzGQfXxap9/53q45ZWq9nrPOTgVLd8i +s6KHq3H/o1fgKw7ek3d2NdLv5kpuE00UbOSgn/iGJQOpX7g+CsVBLk0cdIqQ +7K7x+cL9OeXq1PiZg+2jPVsnTb9wq9La1jxu5aCv2GeC8Hwn9zLhacG2Lg4u +Xabjo7K3kzsysLPuyiCfS+XkVIQ7uIfL5p4PDvH1fx+1wOtq51bHZUbu/clB +V9Md0WJ57dxkU5IFZZSDg6rKQa2O7dwjr75/ezPBwSFyQYHaxzZuddS9SvYU +B6VMpNM+J7VxN7oap976y9dX/kHMy8ttXBlm7mmbWQ7WuxoqKKxr4/oJOJtW +zfH9JZYkkri8jfu7XXG9Oo+DK0cePrIfbOVa5XwiRS9w0Hzmxl2L8lbux7DA +2X//OHg6Z/OdkIet3P8BT+ekPg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{5, 13}, {0., 1.8656394062186223`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[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:eJwVlnc81f8XxxVFRiH3Xr7W3aOIKJV0zyklIQktyixCi4QGydYSSRRFISGU +7KKMSBkhOxkpo0hG1tXv/v659/F8vMfnvF/ndc77TbE7bXpssYCAwC7+z/// +nbonRAUEZNBCZ37+ptQM6AuObPZfLINvBBjTv2RngM38cWLpEhnsahpbY0ie +ge8ubbXiojKIz0OYAmozcPTv6wg5GRms+DutaGY0AzbLg//TZMtgTWSKcmTQ +DOzXkVvlYCKDM4ucRTfNzMD26C27PsbLoMp3Vf+8plnYdHV7ZOBjGVzYcXBt +d8csrLlk+JWbLIPhW58kC/bNgpzNoXPP02Rwzc6/GdpjszDCOpcQlSuDZeG7 +sxwl5iA6L33G5qMMellW7Hy+fQ5+NcunTv6VwfcL2i8SMuagt4o6mTErgwLq +SUdEcuagtZCDx3kyaFfnSzheNAelDzY0ty8mYMs3KXfpKv5+DmaL30gQkA32 +Z6R65mDb1FWLqzQC6qrdiUqXmocowqyo8h4CRk0xL82emIc3u5PIqXsJqE+i +Doq7zcNgoInWenMCar8wbSZ5zoPOVLKt4SECHly1WIR0ZR56m83yPe0J6LBS +7GlB5DyoRj87Vu9JQH/pyn9BhfOwv/7gRcsLBPzdLPBUoWQefEWEwr9fIuCs +W4t6atk8NHhZvJq/QsAga2ZO+sd58DokvJJznYAnbYcvG3fNQ/l/tm+uxBPw +mNb2ovl/8zBiKt4s/piAlMYt1WJCPCBdyxu+m0TAJ14XlKVFeOA8J0HKSCWg +eetKLyFJHqzoLDzZ/pKAFg7RfT7KPLCIk5HXfM+Ph0VpLdXhQcDnEvXiDwRM +VZQlbUMePJNw0dtVyz+fwuDyfF0eCPi8dbVuJODE+2PCIQY8SLY6VXXtCwFj +NNI18g7wYEy56ty3MQIWNR4yNzzDg3se/RV2EwTsTJiooZ3lwbaaxcSeKX58 +JtPdf87xIPLCltwvcwQMcHiQ636RBxs/v5hqXkLEzXsWWy4N4kHP6nq9fSJE +XPSY2R4RwoOrfr+iGkWJuHhzUyHhGg861Ngb6lcQ0XS2PXAhjAc+V+M838sR +0XGXSKhlDA9YPYWVOxWIKOAbanHvPg/qN7SS3ikRkd0if6gujgeUfun8UhoR +t/7dVi7/iAflEDJdpErE+6XHk7ak8uBkVJK+tjoRZXK+rFVN5wHxV2l0vgYR +EzzPF0pn8OD4Pd7GnA1E3GDwLqXkOQ/EJt3OZ2wlYm6g1aH4fB68NLz1XmU7 +EVNNjZhQyIPDj57JpekRce15dmljEQ8y9gwUPDEk4q93anu7inlwIHmJKNOY +iOuPlm0yf8PXm0e1SDQhYp0DsbPkLQ9MU4/Mxu8jYoq6xyavch7MCVw0UD5I +RMF2x6HyCh4kHoi+F2dBROUPvShcyYNJoUbte9ZEvB42XH3iPQ+irfUv3nYi +4k1/odrCGh5szT32QeoEETsYNxkva3kwJO4vf+sUEeMN1/Ae1fFgc+Hroutn +icgaWCVv+4kH3yQ7xMQ8iGjg//OgegMPrjtOW4Z6ETFRKGzJJJ+7ZDTnA72J +2Os8ec+qiQfBLiZGQr5EzBtIuCj4mQfqpSdj/fyISLkrUBTH5zbZaz8FAok4 +vEltn2ozD/xOp+hcDiaiHR7We8Hn1e8qrvNCiThQ/+6qSgsPmhT6Oi9eJ+KV +pmKlWD5fOiugOnuTiIOLkhYEWnnAqFb09grn6z0wxLTk87dR/R8qkUTss5L8 +lMXnRwT3vT1RRLxTb9I8w2fbzQ+L7sQQMSvvmIZWGw/IttUMg1giXlYi9xzj +c1fQZNjCAyLWZBzvCuFzXDp59kUCEY+/AeZDPh9uMDzqmMgfd3z9MoXP/017 +1Mo/IaJEgFRQEp/bFB9trH/K98tH/6g7fI7WrXkUkE7EL11ne734vN9pWnxT +JhHlDA857OEzIYzm+es5Ec0SypTk+Nz00rgn4SVfT28LkWZ+vBHt5w335xHx +wJ0vykF83iuQlCNaSMSgN3Q7Dp8lmfXKJa+I2CJM/ljC16fWcC70bAkRAzJa +LHbx+YYrc4JVyq+XLSfE3vH1Nbq716qznO+XG8SO9XwWfX2p6lYlEYU/sSqj ++fl53/tEY0c1ERXil9WM8PMZItIYO/OR77d/W4Y28HmJOcfVroGIxa1k28f8 +/JefN+8gfiZid/3u3Aq+X/weXt7xoYWvx9FquY56vp+HP8ut+0LEF4mvBb/y +/VYsuShg4CsRRa97BtXw/eitpTIS20vEFbeEJTM/8mD2il/pkgEirh6GtYbV +PMh/8kylcIiIz4hjFUv4fvasaY069YuIH6SvWmbz/T4hq+bS8oeImc/uBPzg +10c21+LztUkiPjjZQjhVxgO3o4GA00T8pv/w8Q9+PY1mdqx8yuPX35czz7P5 +9ZfxeanPEQESdl2TVF/6mgcn5tYOSAmSUEbXLsWQX69DeiGvLoiQ8EDgoYDM +PL6/vqw7ZrSShPJOhb3tmTx4LGhTJ0Ak4TTTmlXxjAd2nGubcmRJ2Li64Oij +NB58de+RUFIioTlroHr9Ex60i93MHWWT0Leaav6G34/qNv0Qvs0l4do32rRj +/H5XmpSrI7eVhDEVezY+D+T3E6kg14e6JHxk3br4jx+/vw7SO9L0SXhw3qZ4 +rzcPHGLsMspNSai8WX0h1JUH89NfzKccSJhkNGX+ld+fR48+C73kREKC9daH +nuY86K2/VLz4BAmF9vaVCO3lQWWKPHuFKwkV/w7f5O3i++3goTnWRRJSBU2z +nTbzgJPflHAojISfY1U/rFHggQI9sflrOAkrnMh9BFkeLL91VswhkoTed5OE +/qzk58NR+pxbDAkHrqaeDRXjwRuSif61xyQUyDI/s36Wfx96fhh5lUfCoa37 +bwd+ngd/rdLN5G4S2jhd9mUFzMN114dXO3tJSJr+GqLrMw+R6ZfaovtJmPmz +0NHMax6SqRs8pYb5HEOqNObf11XL018sniKhe2POt5dm87D8xx1Ov5gstodD +4g7yPETfdSKlbpDFtcPlr3Ky5iChQc/BQVsWKxybKw4/nYNUCXoOdYss/vIs +Kp5OmIMi/y7T+9tkkUTbmbLi9hx0nTa7eX23LC610fUqdJ8Dmv6WJaftZVE8 +5fA6Ca05yJiWHNcMk8XRjV0141mzoGVqc6kvXBaDva8s90iZheK0zCW3I2Vx +/ZtjsyMPZ6HWylj2T4wshjtFLqq4yX//lF/bkpUoi6GJBSsET8yCWvjSEJVC +WXzov/joJ/osZHHmFRj9sghKk3Oit2bgucUPPeJmOUz0pss/3zMNxbvqdF06 +5LBZ+Jf5g1eTsHVhVble6H/IEJoVdS/9A7UQ/StytTzq6D6V/jMxCusoN7Kf +V8ujruZMTk7ZEEhWTc6beyrgVt535q2EfpiaOz3qLKuIac8t+hpP9EBn9k5b +hrwihlgxNgxb9sBbF+XGr4qKuCM0TGi5YQ9c76jNNacpIjQbr/Dg9AC1SNWH +u0YR9xhPT9Z974bdF4bFpbcr4pUjey3T7LshcdphVcFpRcwv8T/z70MXmE4e +OSZcqYh/qJurPsh1QN6HJ1I57xWxN7PFSWOhHRQejb22+6iIMh3+cRm97dBv +HEgs/qSIHsGuST/S2sErJb3SvVMRTcy/3beEdnhoOcfpHVPEiQ/di/Wc2+Dn +2+iRVwpKqHxc4v3fuhYIvtno6eamhL7j7hFqbU1ATns7MuauhI8v+dXqlTdB +fmXmMVdPJfwg9XzV6cwmGBK4bnbmkhKqZKgwxgObwPjsdrVTQUr4Yttfo0rN +JiAezPnudE8JwzNlE2IiGiGZcnefbakSprvHpmUcbgDgBn7sLlfCeNqqnPZd +DdBqcVbXplIJxzg/u4gbGkA0cs9a649K2KN20rVEqgFOLRWRONKshPPMnqT6 +yk+gNexVfnBICbNPObUOa32Cdy8tNE2klXH5yoqOKnI9nIvfX76EoIzHgv+d +ubi8HujXTfcVkZTxnZ7/qcvTdXDF3sCTqaiMqdH1prOZdaAjrV00z1LGk0J+ +1ZHkOsg+Laf7dIsybtpkdkZfpBbiV7WaLnZSRmPPuJ3Lxj7AHmJTX56LMs6z +vTZm1H+AhUX17idPKeNk7M2nZ7M+wOG2yqjWs8o4q26YaX3mA5BC8tozfJRR +pfPtq4KxarjZH2VnGamMW9fSL9rOvoeL8fvcXpYo480n6051UqvAqmGyZnOp +MtJL44f0RaoAhaI4ZeXKuKR/hXrdr0pYery5+9N7ZRToelzNLqiECLUDe0Yb +lXGj2Ija8r2VkFp8UGXVgDKWTMwYhwe+g5MjquN7RMiotatAc0qgAqyEF+Jv +LyPjnTWutzwHy8GEXGvcIkpGsgXRTrKhHDRMT6VaSZBRllf+X8jjcpjOybA9 +KU3G8lLFnhs7yyHAW63+qgIZD5Ebantvl0Gs+NpnFepknA/pqtTcUgqyEiLH +6RpkbFJWyH/HLIU7El+p/ppkXJ1efd1NshRuLr8RjVpkpA8JXZX59hZ8JQf9 +izaTMSu21f7y9bdgL5Ng8VyPjOk82fVfet7AKgUpkbjDZNwod7oHdUogWWGg +dO4If/ySWY4BoQRoiiXeFtZk7BjV7fUdKQYFpZPjJDsycrwlH7omFIME+X1X +hCMZr6f3rbBZVgy/aVdyQtzI+FWR4GXU8wryVo/ZuYfw18cve7AjqxDcNy8q ++hhKxp/rf+WywgpB3VBqJeMaGbdPvk9VO1UIKc5ryz7fIOPRA2VhWSqFEP3U +lbbhNhmXLFE3cEsrAC/Wn76ZODIWyRenfs7MB23a+NHL2WQ8clLQnNqYC1Ma +gq9bXpLRcqBF+EJuLrzYtpKgnsvX5+Qf5nhMLqyy06zozifj0kZL5V22uSCf +cJaxrZiMyz+J7vIdy4F5pYl+ofdkxMyHJgukHCj+b9LhahcZv795WmJ+KRsi +dx9I/PCVjJqchaatx7LB2begR7yHjH8kDlzQN84G0nfvw2F9ZDy78F3yETkb +zjxfaho5QEYHqW0v/d+9AIq+7JYHf8j4Vi5Tb5j4AgLObV75YikFcz85TD96 +nwUWKXEm48IUtN7B+haRkwXqHf9urFtGweN9EbYxCVnwBctF8sQoeGC7U+7g ++SzQEt+9UCRJwULLKeM7q7PgxyOrwYr/KKjxNNxyGTMTDOqvlLStoSAjff7V +/r50SBsaWqalTsETBvGF0a/TQXyJuXnEWgouCZy2XxadDrWbmIMG6yi4dIn/ +wLnd6WD2uFr61SYKxvndF/UoTIPDHisdHmyn4BGrgo7+2FQ4pZAkbm9BQUKf +fizTLwXqtJYfKLGkYMyVk+qdtimgvtczQf4If75BJRRuTYE/gbu0mqwpGJhK +JI4uSgHP0V/WO45RsFmmI1Ir4An4lmpls85QMA0aRAm3kiH8eNWhn4EULP0y +daC9LBHEk/1D1wZT0CKjNko+NRFC+rgFHiEUzBfLPHTxViL4WOXILrpGQV3V +3P47RxLB2fxRC+EWBYOzee6aM49hO17aB/coqBqmWDW+/jH8JanvjcigoPjg +3j2p5Qngtm/YtyWTgv6G3GDvjAQYiUjOUnhOQbVRiz0u0QnwTUJR8kk2Bb09 +/OSiTiRAvaBoXVE+BX32uB5hEBMgdbTPqL+UgrXPLLZKnYqHI5V39Te2UDB2 +xbjtC5sHICtzneDZSsHxwSLX3ZsfQIONb29OGwWrDmm3yRAfgP7s8UuanRTc +mvp3kPUxDtapamet6aFg07UreYe040DsdieJMUzB/Z8Eq98qxUKBFeWH1D/+ +fqvzyyyX3gP3NMJLEwEqJnc35DO+x8Ca6WVXwhZRkUDavJ74LgYSw//8JyFE +RQGBMYJzUAzcKi8zFllGxdrE68WtIjHguMohd0Gaio9R/ny6TDQQplIDh5lU +3D10rlJ8ZxRYrEq23sHmjwfW0hfYURBvlbDpIYeKN+Vv1xPFokCl8u4vUxUq +JhL0TF7X3YHt0QH7CtdScafhs+Q2izvgpm3FCNWh4vLHGgSmVyTU+khVME2p +6Ds1sfJjTQTIZIs/9DWjosGFrjyjlxFg8UP4fLs5FSfeLP87ci8C+vcsqNw8 +QEXV9foP7h6PgHnycOTkYSoeuTU2574kAlaXlR8td6TiePPasc07wiFE2EvI +zpuK1jVCmVV5YTBgVVGW6ENFP3fuxnNhYaCfK+3/4zIV57r35ps5hoHIsWeL +TvpR0Wj9u8wkUhgEl/YueAZTkZlwTuLuhZsQ5L175kY4FU/9u/nt0q4bEDBO +HSlIoqJkavzMx2XX4JvBmWfzyVS0OHGDY/DjKmx/9PoEpFBRobfR6k/5VRDa +e3C4PJWKq3KVxcp8r4J/xo2BukwqDgZtbLSeDQU/p+ne/gIq7nrOoFhOhoDv +15oWqVoqylw4TxVaFgwuStTE03VUvOpjWiU6GAT7j3icqamn4sqn850674Ng +dYfSstBGKgJb4jT1ahA0N5/WFmij4rprF8V+SQSBaq1U3EgfFbtju7L3KAZC ++6t9dh9mqBgj8En08yF/qJh7uoYzR0XRubW7urn+kKW9MBs0T8V4gxOHJOn+ +EJiffHvbP/7682kqXSN+oP7yb3mBEA1r4+wOrg7yg+C0GFbKChou7LtsYVd0 +Bdbd+/IzgEHDuKjkXEHwBasB5/2dTBqeC3BZUcD2hVCt6RJNNg07RV+cvS7t +C10N0rd7V9HweOFfP7mayxAipr8J1WnISwq27lK+DJ2XXgTOadPw5bcLlZr1 +3hBgHazkZkJDFaai3TKLi5DxTCbk/V4aqtr1xR1bdxHa5hLGyGY0XOcSXjex +/CKsiX5VXrePhs11f4XTyi9Aa/2Ys6olDU0OFwWd1rgAKtsO5w0co+HtHb6x +yqTz0ERfa2J9kYbXd7Pr7QU9QTZK8uHDSzRMK728o7zfA44I//711ZuGv43v +GBlUecD3wYxrNr40nN7B2/fuhgdMZ6hU2gby16/5aXj+Pw9Q3MTmHg3j6yMQ +zX6sfQ4cdiurOD2mYdcnn9SmyLP898XChaeJNIzR/LYx/OJZGFXrej+YRMPB +mlMjJ+3Ogpd0nKNzCg23rf6+Jlj9LFxr+e+xyzP+/HW+metq3SDLlvjfqTwa +VmXX3T+0wg1mzkmInP1AQ+pty6myJ2egqnbcvvYjDdWnR0Vcbp2BaFZ7CaeW +huTpjyc1zp+BDW3Jnt31NCz4IHWZYngGzungj93N/PlGtounu0/D2OKz79g9 +NLQ9dDl89sopGAxrDeia4vPOBw/ov10gf6C4e9M0DYeDjhX2V7lAyNYknTsz +NAx8efrAlwQXYI27ThjO8/Wz0vh5ytwFju0XO1qwiI5T0hoeK185Q48CVzdS +nI4lsVv/Uu84QdvTx4sMqHQ8Y+oFHiccoZTRue0mjY4skbvXM3Y7QnqCTEAD +nY4OoZPdy9UcwTcmcKkli47nw6sb9P44ADPUUeyECh1rY1eb3LzgAG7HVxNu +atFxIIG2yiTiGIizstkNBnTsVJiL2fPFHqYeDTsRjegofc1RZ1WZPXxVoqdZ +7Kbj0C7pSeZTe3hBvKPat4eOa2PUZgPP2cPBpZ4aE+b8+CM6oj6vsIekfm0d +ojUdM9ZY998xsANuYukei7P8/aslRy622ICj2ro10e50jB/bszr/rQ3cKkwS +bz5HR8kzGgaS6TbQV8+3rxcdT5SQ4ldesYEQnrHuLm86GgRYddqp2EDD/g6t +jcH8854X0ROTtAaHZROKxPt0vHXpW9xQ4mEIizw2bxZLx1fWD/e1XT4M+cot +7eFxdKQ4Pn701+IwiGkV3pWIp+Pml95ipVKHIcvOV2pJEh19LcPDg69YwmyR ++JKJDDpGp+/iPHKygLBTjJ+fSun4O+P7QqjFQdjeE9eyqpyOO7sfOBhvPAjT +ZsQy/wo6br31X8Q24kGw2SR8b30VHccVKaoFDQdAXWhwZ0wNHRNldMxbdx+A +hpj0xzatdIx4sPh6stF+IFRoWo7+omPz/AvOZ2dzqN6Qrqc/ytdT6F6PrLE5 ++KTSNRJ+07FDkFARsNYcvocRlpmN03HVilL1pmkzyLX4m5s7Tccqb+MYw1Az +OPi7UNpHkIEfPrRGnnxuCvflt1WLyzHQjviIJKO4F5yfi983/o+B3/39gm8v +3Qsbd7a43JJnoLGGurX6bxNocjshIaPEwA0NX5+9LTOB5dVRJvI0Bi7l3Evl +njABX6/hZo4qA92L2u8LBu6Bo58j+/S2MpDwnaHmuHQ3aLhYvwzZxsBsN58Y +zW4jEFi0KrBal4H3/gYu1ig0gjiVEqaxHgON/njXlJ0ygmb/Qad9hgw83cHR +XdduCPoa3N/2+xhIH2TGSBUagErYj3lfJwa2jTG8CbH6EChe0P7FmYE1khlu +f7z0oSv0ar72CQYO/jIyWbRfH8IDVN0nTjFwKqgvNVtSH6bOnx12dGegVfve +7fYhO6Hk6L8248sM/Desc/6Frx6YapPyFO4w0CFbz23n7e2QljcQeT6KgZ7c +IoPuc9tBaH2hW/NdBkpqV088Orgd8tSOrLl1j4G3t7d8SlTaDgqMx0mC8Qz8 +pOhtHJmuC/0r1CKHUhmY9ltg7++6beDVr+ea/4aBokXzrgqaW2E40HndwlsG +fjwguZymsBWsmDf/6pYxcJ+W3Eb9JVthh+Nn77oKBtofrIj81YIgPWh/9Xs1 +AwsfKq+M90FI/+n7WOYzA3fpBpQLPgboHi/8fGaQgUd/D4jYyW4Bs8iu6Nwh +BuaKX1riM6YD79YtPjw/zMC704vf11TrwLNzu3qDRxhYxdC8LeyjAxf+tow8 +GOd/v/neh87vm0FmbkK4hsdAw9tSTxvfasOuxWraHGkmZh6/76F5fyPMP792 +7/hKJv5wWNE5cmEjZNgOzD6RYeJrnzTnJouNIPM2oYhJYmJF8RW2ovxG6L4s +s4WuwMRjvWLaD+M2gBdvBpSZTFzyNkJjQ6oWpEyX7yBoM/Fd+222Sfc6sEyh +JJtvZuKkQHHucPk6WH7QZ2mkDhOdNm4mpT1dB+55GyqlgYmjTbzIyLPrAD1S +9SW3M3HY5th5iWXroHU8zFDMmImOb6j7TmtrgvCoxd5FdkyUPEa/VpqzFrYH +FRdb2jPRWeN5ybXYteCnSFXJPcrEepWk117+a2HBcHCpiyMTd9+rN3y9dy1M +pXi+ajrBRL97QpuHR9Xhu10kK8WTiYYVNVGZGupQ3lzDM77BxMQUBQYtQRUW +n1rr8vQmE79nfzUb8VAFXHKnVfAWE9f+3ucxaaQKrzQPZ+dHMJG6JVE3d0YF +sm8NHadGM7EzK6N5ep8KPDIQbpp8xNfDoH2lttxq8C3G1Nh8JhLVN2cEVrGh +1Wtq/msBE+EDR/XGEzaoa6bvoRUxUZi09MSbIDZ0PyFNPn3Nj98gcNvTHWzA +8BHIK2ViyA6itE8FCwSOxn7+9JGJR/33rBasYcLlZdMCwj1MFJRwvL5olg7N +Zc/MDHqZSNrpcJXYRYc1PvbJN/qYGHz5S4xJKR26/tQaynxnooWIAUfzGh24 +nUlRlGEmPrnz9lW6Eh0WMsxUdCaZ+EYi7j99Ixr4mGcecF3GQu6XZruvbyhg +O+WSVyfKwuGKvOO6Tyj89zGbtEachRd3zxh8vEEB0c6E5qHlLPw6Y/fJ0JIC +d+wj9x2VYaH3igdq83/JkO523uyAMgs3Ciu7TW4gQ/st3T1b1rOw2kHDtj9B +EV5rCGTe12LheO6PO1RPRYhverV8dgMLrY98t44zUgQHWa3aXG0Wvt9wzdRg +WgHGHrJ3qyMLMdGP4WWqACKZEoY0QxY2+NZntkrJw4aaFr1ltizMCY/YfLpQ +Fix8anRt7Vg4c9Jrhf1dWbikVoYF9iw0monyCnGXhdLwDG0nBxZK1y8fd1CT +BaP9gWveu7Cw6BHOOj8hgc1XDWKoB/98hPsk83giXB270S9ynYWbLGrf92XL +QPoj/16bGyw8OBHaGxolA3Vm57/m32Thuhm7oEPnZUAm92jb8XC+Ht3UQHeQ +gQcXNtdURbGwXqFc5HbNSsgWHHwZksDCWBVnXxyThk7C9gCRPBaa10f//Gou +BbJD1xx25bNQwZFrNLZFCvYVN+pfLWDhbEf5XzJLCmod7CXEX/HzdeRnRPuM +JLzN84ta8ZaFUjoHQ17ES0LyobcpxA8svDxvLf/kxwpwjePW0L+ysENr/e7U +IxKQ4RqUeaybhYR76b8+aknA0I7a8OQeFvqY2Q5TJSXg6MiR/exvLGTL9Y86 +lonDfvD+unqQhb1djtXGKuKg01M0pjHOX2/303C/sBgsZWwibhVmI03UUTii +WwRqu4OXxImwsVS3pL3rlQjciW2emF7GxpLK/a1WMSJAl3FvzBJn43DKsOpf +UxHYJph5iyzNxsq+GYsrVcJwuYcuJqDIRqPM5zWvXy2F6ThJgRINNvp6Xmuc +qxSCN4esR/9bx8bFfWsKWKlCEEzI6PJYz+bfhwF2PteFgHjD8PWajWzUuVcv +lrZXCNZfCrrwYAsb7+k9Vpj7IghuFvMT3vpsJJfKnty2sBiGiQODOlZsfDNb +ZdttuQg+ToYUX7Fmo9mFKIn72xdBRhPn9jsbNlp5i/S5qy4CtwgXHRN7NppT +nI8G/hOAaYnRm/bH2dhAVEFCkgAsXTKledWNjdezk8TvDf/jkscFfVqC2EjZ +7fFF7hCPu7gh0VQhhI1lXFe9N2t53L6sHSzbUDaW6344el+Ux00+FVw/dI2N +zja8JyOv5rmqQ6K0hVts5Mx6PV1En+dq90hV0e+zUfpZXV3c3Cx3X52ytFsm +f/+eiae9tdNcj9cz/llZbNTP+Cq4I2OaG53WODnynI3uZ4zWN9yY5rYHB7e5 +vOTP37+ae2L3NNcGR+OPFbAx4Zt3U3TtX67z82K1Q2Vs7JDKtU9sneL63j6y +G1vYuPrivS8E0UnuoysbSnxa2dhJW5ToMjLBLTsttfZ1Gxt/kchl/Q0T3KVG +FTLanWx8KyiwWy92gntNSLVTs4eN41NqjtnqE9yoc/POrGG+vvtUtxBsxrnp +B+6HLP/Hxu3b85pKWsa4B1UvCR8X4KCVwcF/hsVjXCHBI0FvF3GQEhfpOp84 +xj2SoRTgLsQfr75m9d5tjLt8yaPL7cs4KEdnvJOQHOOeeZHikSzDwbl332QI +e39z10vkHuWu4uAW1pYjsS2/uL29UX13V3PQS8VNedmzX9yb+Z52YyocvKXi +GPnC7xf3u/0mm0Q1Du6t3L6lcM0vbnThK0vR9Rzsszy37nboT+6sY5lpM3Bw +z8rRMKrBMLe4tB5P7ePgYavRK4ETA9yAIsGkrP0cdDs5LW7QOMA1fKm1bPwA +B/UoPz9pvxjgtibFfvK04GBJzTOl+DMD3LGQ43ZXrDl4PG7P8bOjP7j0PQIB +kU4cvFJ2uFN08jv3aodaZaE3B7mxmh7eSv1ckya71TwfDl7I+bL4yOJ+Lqnm +Thj4cvBQbug/2+/fuInFcwfK/TgY7ybk15Hxjfs6oXKgJpiDsoHZu4K3fuP+ +drQW7QnnYHpf3tO7J/u4+yZu7hZO5p8nafnL/V97uKW129RPP+Hgm6HLIxXl +PVz1p1PSLSkc9P8iF384tYcrbmXVmpzGQfXxap9/53q45ZWq9nrPOTgVLd8i +s6KHq3H/o1fgKw7ek3d2NdLv5kpuE00UbOSgn/iGJQOpX7g+CsVBLk0cdIqQ +7K7x+cL9OeXq1PiZg+2jPVsnTb9wq9La1jxu5aCv2GeC8Hwn9zLhacG2Lg4u +Xabjo7K3kzsysLPuyiCfS+XkVIQ7uIfL5p4PDvH1fx+1wOtq51bHZUbu/clB +V9Md0WJ57dxkU5IFZZSDg6rKQa2O7dwjr75/ezPBwSFyQYHaxzZuddS9SvYU +B6VMpNM+J7VxN7oap976y9dX/kHMy8ttXBlm7mmbWQ7WuxoqKKxr4/oJOJtW +zfH9JZYkkri8jfu7XXG9Oo+DK0cePrIfbOVa5XwiRS9w0Hzmxl2L8lbux7DA +2X//OHg6Z/OdkIet3P8BT+ekPg== + "]]}, "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:eJwVl3c4lf8bxxVFVsg5R1/r7FFElEo6992S7NUiu2gXCQ2SrSWSEEUoIZQy +izIiZSTZyWgYRTIyztHv/P55nuu+Pn987ue53tfr/X5TnE9aHlwoJCS0U/D4 +//twz4S4kJA82ujxeNdlZ2Bb7Kad75PkUe27emBB8yzEEGbFVc0IGDPFvDB7 +jAdjqjVnvo4RsOTjPmujU3xg1Cr7+kQSMWNgiGnbxoeGDT9Eb3JJuPqVLu1g +GB8Cdco3kntI6Hj4oj8riAfZ0zLj2hEKOLq+u248dxae2PzQJ25cjqm+dMUn +ZtNQurNh69HO5dgi+sv67otJ2Dy/olI//D9kiMyKe5b/gXqI/RW9UhH1tj6S ++zMxCmso1/Ke1CriVu2Z588rhkCmZpJn7a2Em/nfmTeSv8HU3MnRIwrKmPnE +pv/jsV6wnLQ7KFqtjH+oG2veLe+E0OsfvT08VNB/3DNKo70Z3jyz0TaXU0Xp +ZVWdNeRGOJ+0y+NZmSpef7jmRBe1BhIkVz+u0iQjL6y7WntTORSsHHP2DCNj +Z9KSu9tzi6H0v0nXy91k/P7qUZn1hTwwbLxU1r6Kgows3ovd/VkQeahm389g +CpZ/ntrTUZEKdtW3Dda3UjBh6bjTU8e7QJjKCB5mUtFk6Ey15I4YCBP1EXH2 +paJDnUhOTUEE+H+pa5Wtp6L8ubNUkSWhsCb+888gBg0TYx7kC4M/NNNXmzuc +p+FVE3aji7A3zJyREjv9jobUm7ZTFQ9PQfujlAWGVDqesvQBr2NuwE0tN7M5 +TceuWpmR862OEHGC8fNDOR1/Z3+fD7fZC3cUt9RKLmegM/E+SV7ZAtQifvD8 +DzOwfYzhS0gwAJ9v+u6FrxgoXsJzV9LeDDsXauhy5JiYc+iOl/ad9SA6amOx +wJmJMgfpV8qfrwb/UsxIKGQiUXNjdnANG/ysc/a4L2Eh93OL85dXFFhX16q/ +xImFzyOjNp4sVoAuwrYgsQIWWjfG/vxiLQuLGRuIm0XZSBN3E43qEYNh4sCg +nj0bX83WOPXYLoBdDapyHjlspPROPOqrn+Zm7bkTJv2Pjdu2FTSXtY5xS8sb +8cQuDu63H70UPDHA3TVx3UT0AQfN0qSf7f7Sy30fETz77x8HTz7feCvsXht3 +t97yFa7m8jiz4Ij4hpkZ+NWimDH5Vx7fzus+Tc6eg8r/nF5dSiLgQZ1tJbx/ +PJCY9DibvZmI+cH2+5IK+TB7KaB80QARVw7DaqNaPnAKm5P3RZDwU4L6u1VK +fIi9fZiUsU4BVw9XvnieOwe5HJ4S45sCgsrknPiNGUiddl1RdFIZC8sCT/17 +1w0/X8eOvFBSQdVDUm//NrTCA8rtXU7lKpjlmZCZvb8Jkla0WS48rIqm3ok7 +loy9g+Mj6uNmYmTU2VmkPSVUBSuUZMUS95Nx/fKTvahXBrq08QMX88hod1zY +mvoxH4LObFz2dDEF8z+4Tt9/mwsnlNIkXWwoSOg3SGAGpMNfkqZFVDYFJQct +zDIqk6HInvJD9h8Fx1cWVtgujod6P9kqpiUV/acmlr2vi4KgcepIURoVZTKS +Zt4vuQIdL3Y5v5uhYpzQB/FP+wIhyCFUxcOchmpMZeclNufB1URV7XAKDbs/ ++GU0R5+GwYi2oO4pGjrtuHuX/vsoSLLy2E2GAr0qzcWZfXYB1yUTysQ7dLxx +4WviUOp+IFRp247+omML7ynn0xFrOPApul9/MwMJ3xkabotNwFKXVKB0i4Gu +efoeO25ug57x4k+nBhl44PeAmLPCJkifrtxO0GXim46bbPOeNVDZUsc3vcbE +1HQlBi1ZHS4umRYS7WWisJTb1QWzdOi4sdVs01oW1rpqOX1LVobLY9e+iV1l +4Qab+rf9efLgnsito39hYafOWpMMOymYTpQRKtNio7/3lY9z1SJAHhf2aw0R +6NXE6/PyfXyu/007E2xl48rz8Z8J4pPctVL5B7grOLiJtckuofUX93KnRnWx +Lwe5CdpevirfuDJbxFOFP3IwQHLdooGMz1xH6dD/tNnyWBedrhodMgOxBVkz +ju/l0ce2aseTbXOgHvv4YKM3AQPlqv+FFPPA73Ki99vlRHTbKRZuG8cHGWaj +atkLIraKkt+XtfKBN/3ZesqVhGnGU9Zf9vBB+sctzjcJBeyIhNTtZB5oRC4O +UytWwHuBCw98oM+CyblhSbltynjJzsI206UH7tnOcfrGlHHiXc9C/SPtQNz7 +/PvheBWMzFFIjov6CHknl299tEkVN2ywOmUgVg8ZpXvVVgyoYtnEjGlk8Btw +kU+2eaJPxiy+wtrPva/Ah/WnfyaRjCWKpRmfcgqBYqCw6e4fMr5enqM/THwK ++72Wud7dRkE7+6LObwkZsA0v7IJ4CqpHKNeMr00BiZtdJMYwBXd/EK59rZIA +Hrr2jHA9KkqnaBGYPtEQ4msycy2Siif+Xf96Yec1UK+XTRzpp2JPQneemXIw +dF14GjynS8NnX89Vazf6gvIGNvdABA3nhWLZKbpnYGzh6TfsXoFe912MnL10 +AjwOrSRc16HjQDJthXnUQWja3amzPpSOrmfF9CVkHKApLivFsY2OUXcXXn1g +vBv8fYZbOOoM9CzpuCMcbAZlB/61m15k4L9hvbNP/fUh66d/ivwnBu7cGlQp +nALgw58BVSYTF72O0lqXoQPfnaNZ6d5MNKqqi8nR0gShAwmfPrxn4oFAs5XC +dUzI8jhrtUeVhetFVT0m15HB8YsWMdyLhV8Id0jWSUR4sO91OvEdCy/yHBQf +/lgKF3vpEkLKbDTOeVL38sViWLxoSvuyBxuv5qVJxg//4x55Uqqxr4KNnbL5 +LqltU9xTT9O9HshzcO7NV3mCxW8u3UwoKPowBy9V7O8Sn/zO1brz3if4BQfj +FY+4Gxv0cLdMXba5TCPgVo1bMVmyPLBJlFfUfkvA3yxKW7megI8OBudvHibi +9UCR+uI6Pnz9vOag8TISKh4u7uvI4cNu73cjLwpIOLR5983gTzygGWxadNJF +ASXT96+R0pkDnWGfyr1DKph34nDbsM4HuP4txtk2WhU3r6afd5p9C0G+Go2X +lci4j9xU33ezAn7TLj0P8yDjF2WCj3HvC+CpTHwTeUtGzLlnPk96Dj/u2w9W +/UdBrUeRtkuYOeBfrpPHOkXBTGgSJ9x4ABmj/cbfyilY/9hms+yJJHBb4Zo/ +L0fFFFQ8myUfCysrKg9UulFxvGX12MbtkRBweLrvWxEVdz5hUGwnwyA0M46V +vlSgp10XbZxLLoHalv0FAwdpeHO7f4Iq6SzkOhH/O1FAw5q8hjv7lnpArxJ3 +a7QkHcsSNv+l3joMad909YgOdMxe5fDtlqEzzJZILprIpmNs1k7O/cM2sPd3 +sZyfMAPfvWuLPv7EEgy0uL9ddjGQPsiMky02hG9LNaKHMhiY+VvI4nfDFpCf +mxCt4zPQ6Kbso4+vdaFtPMJIwpSJbq+ou07qasN9Q9HmyfsCXhp2LNNdvhLm +s63U9CaZ+Eoq8T8DYxqI5UgZ0YxY2OTfmNMmqwh5woPPwpJZmKB2xB/H5ECv +t2RMa5yFBOefRrtFJcDDhjfha8BGcrnC8S3zC0G3V7aGfoeNco8bGhLnZrkx +Z3hHWMNstNqlvongOM6ddauwbAGBfy8bjaAaDnN/uzmI90ZyMKu/4NHt4/3c +kYEdDZcGObi4fPlyNdFO7oG/L6OWy8tj1d9pZSvjGRhhnUmOyZfHikiTXDep +OehrsSr0diGg6zKJR0XRPFj/6elUyyIibjRbaLs4hA//TXvVKz4kolSQbEha +Ox9c45yzKy1JqLpRcz7cnQ810llPF06R0PPj86/PrHgwUnllU26qAoanFi0V +PjYL1BJ1P+4qZTQznZ5s+N4DPulZ1Z5dymhu/fWOLXSA6eltGidCVPDplr/G +1drNoCenW8JjqeJxkYDaaHIDRGnsMRv9qIrrJUY0pC2qwV9mMLBkIxlzE9pc +Ll59DbGP3GnrbpJx0SJNQ4/MIjj1ZLFl9AAZXWW3PAt88xSsUmrlXmygYGLA +HXGv4kw4Yn2/lXCDgqF5fE/tmRRYo66bu6qXgs1XLhXs000U9IGgXcWrqbjD +6PGDdptbEFreN+8dSkVm8hmp2+euQ0vLSV2hdiquuXJe4pdUCIRJGGxATRry +00IdulUvwnS2WrVTsCCPrvppdPY/Lzijhz9MWmioaey0cLrnJDDD3SSOqdGx +PmGl+fVzrhDGN92605eOhkH2Xc5qjqApMrgjro6OqfJ61m0me0C6NsZckcbA +xZz4DO4xc5g6e3rYzZOB9h0W21zCdoDcoMvl77UMLL6nuizJD6HnovwmuhIT +D/ZJ6N5LXAdT6d4vmo8xMSBeZOPwqCZg5AgUlDMxbDtRzq+KBbdconcdkGeh +79K7Gry/ZDDeHbzq7VEWltzH2SMPSfC6ICBm6WsWyurtDXuaJANbhHNukOXY +WN0/Y3OpRhSmpUavuxxiYxNRDQlpQuCIo0kHi9iY/NW3Obb+L1d60f2LHUs4 +uJzOeCMlM8YdCzvkfMmBg4cSzQ6dHv3BraxWd9F/wsGpWMVW+aW93FhXq4Wv +pAjIBpdTsr1zsLSr+HjHMwLauMb2+6nywTLDbjZpFxHTNb02+FTyYTSnc9kj +PhF/fT71JK+UD69I5gZXUkgolGt9au0sD7pPWl2/aqKAix23+hR7zsGJxWJS +di0qyGP2pjVWfwBSWEFHtp8qqnW9flE0VgvTz7OdjsuRsbJcuffajkqQIr/t +jnIj49Ws/qWOS0pBMfk0Y0spGaU/iO/0H3sOOpIm8yUyFCy2nTK9tTIXvEd/ +OWw/SMEW+c5onaCH0Cgs3lBSSEE/M3c7BjEZblRWmIotoWJ96tXSNrE44JGH +oyf3U9Huxtic56IoCMy+NtCQQ8XBkPUfHWbDQfPZ38oiERrWJzrvXRkSAG2N +Y0fUbWlovr8k5KTWObjS+l/K0cc0jFvjn7Om3gMO7pY4ULSAjlNyWl7LXhyB +vYu9tSasBXNUZ8ynpS6Q6+wvuyiNjv62kZGhl2wh3+Zvfv40HWt8TeOMwq2g +JXDw8C4jBp7s5Gxd02EESoyUNOEkBn5Q9jWNztoK5/62jtwdZ+Culvh3Xd83 +AnplGMhsY+Kw48GzUkvWQN6NoUPUWCZ25Wa3TO9SA25XWgxlmIkPb71+kaVC +h7F7bBNNZCGmBjB8LJXg7rmNdTUxLGxUqhS7WbcMdoPvl5WDLOzrdqs1VZOE +tRdCzt3dxMZ4/RSluc/CoD4kTpu/wUbOrM+jBXQe94qIepd2LxvHpzTc8jQn +uLHFL2zF13Kw3/bMmpvhP7kvk6sH6kI5qBCctzN081fuRcKjoi3dAj4u0fNT +s+ji+uwTXca5SsDjTsMXTbt5UAlh0yXqRLxTfihtUwYfFllz3J2biFjaRnZK +aeJD1N59c6zzJKQKW+Yd3siHB/Ynaq58JmCcVpZWgSAvdstr84J9idh3ZDLe +vpkPHRLX80fZJPSvpVq/SuSD3YvvX19NcHCIXFSk8b6d+/1oe72kuDzikzCm +kMYMLHfcd+ZJpjyu2vE3W3dsFvSmHjgZ7SPg3hULxUiXeBB9blP+5zkCBrne +zfc8zweyUy3DMIGIF1XIvQcFfI4fpHdmGpBwL8+x1MJXsB91nbfsMAlz4kjV +psd4UG9vqvAnTgEjD0cvqLo+C1c76/OtacoILaZLvTi98M00mFj6QRm9Qt3T +fmR2wJDQVatTF1RQLVuNMR7cDJdcDL2ZyqqYEdtoOZvTAIsPtfR8eKuKQt0p +teyiargufS0WdchIHxK5LP/1NaQfWV3x6RoZD+ypiMhVKwbSd9/9Ef1kPD3/ +XeY+OQ/qNzAHDddQcPGiwIEzJlngZ/9cYcEVCm5Vz/92yy4VDGYPXdDuouDm +jL+DrPeJoFZ9+5elGhVTCfrmLxtugdjBxwuOB1DReO2bnDRSBKzsVFkS/pGK +wJY6Sb0cAt1Ncjf7VtDwUPHfgOV1F+H7YPYVR38aTm/n73pzzQvWtT/w7mmk +YdE72YsUo1PgHxe82JZFx7ORtU36f1yhvzHsrYUPHY+VkZKWXXIExw2i8Wtr +6DiuTFEvatoDzR7HpORVGLiu6cvj1xXmEBmk7jlxgoFTIf0ZeTIGsN3tk29D +FQNd9lZF/2pFkH+dXMIkMbGq9BJbWXE9zBsNLj7qxkST+EajlxaroechafLR +S8FsGLzl0XY2iHcltwxJC/LqjPMHI1sKlEdm6x52ZaFco/S4q4YC1Lu6SEm+ +YCHX7mdUx4wM0OU9P+ZKsnE4fVj9r6UYeEQd1TN3YaM15ciB4H9C0BEa2n70 +maB/7V7JPWYyzbXLVgnyFOGgfe0V+7ceY9y2tIQP3jYcLKt7rJJ0aoAraW/f +9iCTg5rjtX7/zvRyy++ua+lYSMDWr7KecjVzcGROipSdQUDrtmU+IjJ8yDYb +KHpoJODxGw2LbgGPJxQ0jrb+IWLO41tBPwS8nnCTO+MRR8KByxmnwyX4UBLY +bXlniwKSaDvSl96cA/Fos9UO71WwV+O4e5lsE+xvr45pO62Ks5pGOQ6n3oGW +5YkMeykyKvAr/wtLqQQllePjJGcycnxl7rknl8IKZ+2qnkIyLv5oq7rTKR8+ +Y6VYgQQF92w7nD94Nhf+BO/UaXagYHAGkTi6IB2+SinLPMyjoK9XwPKYY8mQ +GvnnPykRKgoJjRGOhMTBN7N5tet7qKi+1uDu7UNRIGKxd7gyg4or8lUlKvwv +Q3Dhg5tb/gn60tlMte6RAFgV+6KyYRcNWxr+imZWngMfuUS3I+k03LLy+6pQ +zdPAGnefMOLRMNNe6+cJ66PwlHhLvd+MjqvjNGaDz7iAhE7xbakkOm585itR +LrsfvkcQlliN03HF0nLN5mkrSFQrY5rqM9D4j29dxQljKNCwW3UjnoE3t7V+ +SFXZBo/P7OwLHWFgDUP7pqifHngWrKuWAyaONvOjo0+vgRfa+/MKo5hI3ZS6 +NX9GDbr/1BvJf2eijZghR/sKHVwVdOrzdVn4dt0VS8NpJZDPP9B+KFKQD3qo +wZ4gDwdG7Hazv7KQvfzbqFuFJBCvGb1ctZ6NevGNEpkWIvDgRGjj0BU2HnHk +Pxx5weMuNq6S1+1i42thIRP9hAnud5cNjqkaHLSo3rapeNUvbmrp3J7KAA4m +eYgEdGZ/5dZktq9KaeOgv8Qngiivi9vkY/OCd4mAIQ7M51nveUD5JldYTiPi +5r9bKhXv80H85YWaG9VEFP3Aqo79xIfqdEX2UncSKv8dvs7fyQchv9fuDh8J +OPH2oGiYIR82Fr8suXqaiKyBFYpOH/jwxbNXSkWFhNasgdq1DwW8tCTZUEY5 +OKiuGtLm1sHt1GCva1xKRMvZjuD5CD4QImjev54Q0Sq5QmW5gLeTIh914x2I +eDViuPbYWz4M6Ye9OCdGwj3B+4JyCvhwKJ6//vk6Iq4zfJNe9kSwz/Cn5Ws+ +E/Fp6kvhL/V8CDiZrncxlIjOuF//aQsf5Jn5Jx1nOdjobqSktKady2b+OLZ4 +kTx2N4+tMiLPwKoLRl+4D+QxcvPDB8L9szAYbK6z1pqAuk8tW0jePNhSt5DY +O0XAh+bTPX/O8OE+wdOiN4aItxrNW2ba+PBMNsT93lYS3ndoW/gngA/RWRfa +Y78J/OFnsZuVDw9KM3MW3YxWwLWvDs6O3JuF10dVP35RVsbt4REi0ka9oHR/ +7KXze2WU7wxMzO7rgMLqnIPu3ir4TvbJipM5zUC/armrhKSKb/QDT1ycbgAU +ieFUVKriom9LNRt+VcMtqS/UQG0yrsyqveohUw6aRrLLGFfIuG3ybYbGiWI4 +4l/UK9lLxj9Se84ZmOaB5CJr66jVFFwUPO2yJDYLwvq5RV5hFCyUyNl3/kYq +NDn69z1vp2DNPt12eeJdSLJP3nCPQ8XrijcbiRIxYJAvF/jjIhXneiwKrdwi +YLed16m6Rioue8Tr0nsbAuE602XabBp2iT89fVXOH+xEf//64kvD36a3jA1r +vCCW1VHGqachefr9ca2zpyArWT6oiU5H1/DJHmkNN7hRnCbZcoaOMqe0DGWy +HGHailgRWEXHzTf+i9pC3Avrd7QevaHIQFMtTQfN3+bQHX65UPcYAwd/GZsv +2G0A9szrf7dWCPKUzvL1Bos2Q7bTwOxDeSa+9Ms80myzHgKUqWr5B5jYqJb2 +0idwNWhqZ5nRSpgoSlp87FUIW9BX2KRVkiw8bzJj+P4aBS5oVGCRCwuNZ2J8 +wjwVYFfpR4PLRSyc7az8S2bJwq2ElonpJWwsq97dZh8nBtnNnJtvHNlo7yvW +76m+AGIzP06OPGGj5ynjtU3XprkiwnYhrxdwkJIY7c5LHeMaPdNZMr6Hg/qU +nx90nw5wNR9NybWmczDw8/Kk/Rm93LZiQbbny6Nzgz/hUMkckK4UDN9OE+jR +55yqnBgf9t9/vDxTn4irz7LLP5bwwbuuLebELyK+k7tsm1fNB+kbpyVco0no +eztN5M8yPmRI0Z9TNyngL++S0unkOWizOb3VsVoFxzg/u4nrmmB+QaPn8ROq +OJlw/dHp3HdgTq43bRUnI9mG6CzTVAk05TJfGwcydo5u7fMfKYWnW5YRNPMF ++jv+hzkelw+anf+urVlCwUP9UU5xybmgaeGdrGhHQTvDaijenA4jUQ9ylZ5Q +UGPUxuxobDKsml5yKWIBFQmkjWuJb+LA5ofo2Q5rKk68kv47Eh8F2+6/PAbp +VFTq+2j/p/Iy5OrOz4bwqJhkeGyfDD0Q2ueSx8hWNFxzNLJhQvo8jGp0vx1M +o+Fg3YmR486nIWxzmt6tGRoGPzu553PyUfiiQs+0MaHj0E65SeYjFyhUbe2I +TKQjxS3l/l+b/eCXQddK/k3HTmFCVdBqaxBasCK4disD4/8GL9QqNgaRtcUe +LbcZKKNbO3F/7zZ4s2bhft4wA29PL3xbV6sH0nv9FkfrMfHw+o2kzEdrABfd +ahO+wcTVv3d5TRqrwyo/lwfX+pkYevFznHk5HZKaX0jPrmOhg913h0RjZWiw +Ovul8DoL18w4h+w7Kw9D2+sjH/Sy0M/KaZgqIwWhhOxur7VsQT4Kcva7KgL9 +udtZTuFsrNz67sAdcT634qTs6pftbPxFIld8a5rgXi/0dh5T4+ANNbfopwG/ +uKS6WxHgz8F9+eH/nL5/5f6ccj/88RMHO0Z7N09afub6i4lEfr9AwFmPVs2M +Ch40rmsjvVEhIrtVcV+DIG9fc2dOsMoF/N50TOKNgK99jRdKFx4joYhFf5mI +BR8eSx3V31kvyNdKg9KFWwX8lgxUvHGCiElGq/j3G/jgzLmy4bkCCT+uLDpw +P5MPtYk50RY/OehuuT1WoqCDezngV8xHcSIu3NhcTLjCh9itdfeDsoj4uft0 +n4/AH1L3xMYn2hBR9V0figr0fWxu9YCsMAnltzqnGwn0T/xVHluoRcRk77PF +ctkCP7h3cfu7ViJKHahd3tnIB83y4wkBAUSk3BYqSRT423p304wbfzl4TvFu +3LOL7dzELPLs02QiHnoFzHuC+4T4VJtUcyI2uBK7yl7zweNAMOA0Eb8a3Ev5 +IZjDxD4mzLwnovC/TUPrBP3kqtu0bbgPEVNFIhZN/r/fdJw12l1AxD23PgsM +kA++OmojCX1EXHpDVCbnPR+alfq7zl8l4qXmUpWEVj787lBeq8nn4LKRe/dd +Btu4BsIjGwMXyuMrIcb0L4UZ2HB5W3RwijzOb9+7uqdzFl6ZpJEzLAhoQKIO +SnrwIN7rW5XzBAG7kifqaKf58HXU4IdaNBH77WU+5AruL0/L11u+mYRxVWbr +nwQL9nW/d7mrj4Sk6S9hW/14oGPpeKE/UgFDfS9Je6XPQlfeDieGojKG2TPW +Ddv2QsG7h7LP3ypjX07rYa35DiBnvh4Z81TBlAsB9fqVzXAmaXflIoIqHgz9 +d+q8dCPYN03WbSxXRXp50pCBWA0oSIkdomuRsVlVqfANsxw8Ny4oeR9Oxp9r +f+WzIooh2mRP6rsvZNTmzDdvPpgHmUNDS3Q0KXjMMKk49mUWSD4IDF8dSkGb +7PoYxYxUUJC/SvBuo+D4YIm7yca7YLPigcN2NhVTguvp8+wYGLCvqkj1o2KA +J3f9mYgIOKpCTT3ZQMXLfpY14oMhYD9wZHcXk4Zngo4uLWL7g0KMzL17FwR5 +svzi9spvXlBTP+5S/56GmtOjYkdvnIJyRteW6zQ6ssRuX802cQM3jTWrYj3p +mDRmtrLwtSNs601sXVFJxx09d11N1++FI08k75j+x8DvgQGhNxdbQLBkUcfn +Iwysk8n2+ONjAMPBR9bMv2bg+z0y0jSlzcB7ciX+0DIm/nBd2jVybj1sCykt +tXVh4hGtJ2VXElZDm88U70sRE+EdR/3aQzY4TR0taBBn4XBVwaGtDylg41e3 +1cmZhTPHfZa63FYAhaErrjsLWajkxjUe2yQL9T2hixLF2Fi+tayj+4UYvJ8M +K73kwEarczFSd7YtAK+XM4G5uWw0yP4ivD17mrtX/YLoISFBnzHc+8+odIwb +VCKclrubgx7HpyUNPw5wy+u3aJ58yMFXQxdHqip7uX011MnsWXkU0kyzE3s+ +ByOWki2SKQSkfNxUKyEiyEtGN96qbSNihqUxE4r5UPjwsVrxEBEfE8eqFgny +nhI9teVLJAmrDpP7CQp8SG7Sd3XVVcAqt5aq/Y/mALjB73sqVTCJtuJ5x84m +MCM29xccVUUe22d9duM7sBedT7q5hIy3Vrnf8B6shAdKA+VzdmTMumD13JBQ +BlNawi9bn5HRdqBV9Fx+PtikJ5qPi1LQYTvra9TzXGjQkd5TZkvBuEvHNbuc +0sFj17B/aw4FA424ob7ZyeCZSXhmLkTFBz1NhYzvcSCfJ3nP34qKhue6C4yf +RcFXw1OPeQ+oaHPsGsfwx2Womnu0ijNHRfG51Tt7uIGQ/VheUIBpqO7cn3hw +zXnIKJ0/9yiVhnHaX9dHnj8NhQOlPRumaTgccrD4W81RmLo/fJhoTEe5K256 +KypcICL6IM8qgY4vHO7tar+4H2rXZekbjNJxSiS+V8HUGrSOOjwL28LAPA+/ +OO0eY8gsGIg+G8NAb26JYc+ZbWAV3R2bP8TAfMkLi/zG9MA2nfLAeiMTJ4VK +84cr18DCE6uPPrrOxO95X6xGvNShpeKxlWEfE0k7XC8Tu+nwUkso544OC8fz +f9yieitD1v3APsdrLNw7Ed4XHiMP2e4hOQd7WEiIz/r1XkcKXu1zGP1vDRsX +9q8qYmWIwMKmVEulMDZWcN31X63mc+9fWlfm18bGLtqC1KMjE9y+vpj+2ys5 +6KPmobrk8S+uebPzSr6fgM/PPy+0W/iN66dUGnK0mYOHo2R66vw+c3c37j1v +e46Av1uEHimV8YDVW1y9Q4mIQv7hNvF3+FBvNBd+uoyIQdmtNjsFfB098Dj8 +wmESEhw23/O25kPQpzLN0ncEzFBWIG1BPmzOP/hO9hgROxnXGc8EfSJF2LFB +iEjCaaYDq+qxIG9VzD0ZHOLg/rcx8/zuDm7vykb9XWJEXJDC7IgK40O78v31 +jY8E/vM+MOaWwD/mhM4bqu4V+EOH21BllaDPf1rsZydEwu4rMpqLX/LheEya +ga4mEeWff16tnsWHyrPWncRPROxpNMmvEvSp0KPmxiL+RCwYSD4vLPCr2pj4 +avYUB2XN5TI/pbVzu0MmI+bvErEu+1B3mOC+PQ8WiTNNibj2QMUG61d8yOPa +fLoyScS7x1sJJyr48Lbvodb2WiIqJS2pGxH41VeZTgkJLyIaBv7cqynwq+Zn +pr3Jz4jY52sj1iLwi1KZBUEDX4goftU7pK6ODyvfVF3lhxNxoPHNZTXB/wwQ +OmJZM8fBOYk0sVTpdq7Txnslt+KImFtwUEtHsI/xbQv7rkqBX18jdq4V5IXd +h6clN+QQcbnRPlczwXm7wpWfQsFEHN6gsUtdcL6/yeiAW6rge9xePksXnFsI +pT0XLyZiyCu6M0ewz4XTQuqz14k4uCBtXkgw2z//QIqd56D1zLXbNpVt3P8B +buGkPg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1nfYFWIYwOGv0tIiDe2SpD3RVGkLERVNKrT3TqShvVHJSijaKG2hbZT2 +3jRoby33c/nj7n1/73m+c51z3vN1fXladKrXMVFCQkLtxAkJse70T3vuZr5u +Rik8nLDLWQdSsUA3p3Q85sFJzh5hrx5OEnbrePLUfKNfpoDZlboJieNnYtbZ +ZPtH2adHUMTZT/plknGXsz3WTqThW13CzFr7VryiC+of7JuSJJ5bb7S2juf2 ++F16iv1jlLPfZN0f789+vf1rjNRF9c/xnFS032JNHj9n/6u1urWttbJ1u7WW +Namf22vfmSd0WmtZ6+/WGtbvPF7Suk5Xs75qfdy61VrT2sLjhayrdFVrM2sF +6x/x3uP12/9ibUMl+23xevxMUvsP7MtQ3n6z9UDci/0G+9cZpYvp1fYtSBGf +qbN91i6kY6FuSWFzP+rmJI3ndZbM2dR4PxzUo0nOft2Ve1ikW1E2HjP/YXzG +HNJjSMEB3Y17+V6/SjlScjepSE0a0pKOg2a7k57F+jXKcw+HnPXgPpbo16nA +vRx21pMMLNWtqRivw2v7KD4rDuuxpOeI7kVGluk2PB6vzfzHcRcc0eO4j6O6 +N5lYrttSKd6H+U/ie8NRPZ4MHNN9yMwK3Y7K8Z7NfxrfBY7pCWTkT92X+1mp +21MlPh/z0+I7wJ96Ipn4S/cjCz/oDjwRn6X5z+K7yl/6XTJzXL9BVlbpjlSN +z938dGdVOK7f435O6P5k40fdiWpxR+Y/j+88J/T7ZOGkfpPs/KQ7Uz3uzfwX +8R3npJ5EVk7pt8jBz7oLNeIuzX8ZvzOc0pPJxt96ADlZrbtSM+7S/Iz4HeVv +PYXs/KPfJhdrdDdqxV2anxm/o/yjPyAHp/VAcrNWd6d23KX5r+J3ltN6Kjk5 +oweRh3W6B0/GXZr/Ov6P4Iz+kFyc1YN5gPW6J3XiLs3Pclabs/ojcnNODyEv +G3Qvnoq7ND/b2ZOc0x+Th/P6HR5ko+7N03GX5uc4q8N5/QkPcEEPJR+/6D48 +E3dpfq6zp7igPyUvF/UwHuJX3Ze6cZfm5zl7mot6Gg9ySQ8nP7/pfjwbd2l+ +vrNnuKQ/Ix+X9Qge5nf9Bs/FXZpf4Kwul/V0HuKKHkkBNun+1Iu7NP+Ns2e5 +oj8nP1f1KAqyWb/J83GX5r919hxX9Rc8zDU9mkL8od/ihbjL+L/dWT2u6S8p +wHU9hsJs0QOoH3dpfqGz57muZ1CQf/VYirBVv02DuEvzi5y9wL96JoW4ocdR +lG16IA3jLs1/76w+N/RXFOamHk8xtutBvBh3aX6xswbc1F9ThFt6AsXZoQfz +Utyl+SXOGnJLz6Iot/VESrBTD6FR3KX5pc5e5LaeTTHu6HcpyS79Do3jLs0v +c/YSd/QcihN/gLznrBS75VCaxF06X+6sEfEHzFxLidg6f1+XZo8eRtO4S+cr +nDUmEfPi+Z2tsW9JSsro36ztqGK/I9H/fx+VNPsfd4MNLw== + "], 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]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + 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" -> {{5, 13}, {0., 1.8656394062186223`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[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:eJwVlnc81f8XxxVFRiH3Xr7W3aOIKJV0zyklIQktyixCi4QGydYSSRRFISGU +7KKMSBkhOxkpo0hG1tXv/v659/F8vMfnvF/ndc77TbE7bXpssYCAwC7+z/// +nbonRAUEZNBCZ37+ptQM6AuObPZfLINvBBjTv2RngM38cWLpEhnsahpbY0ie +ge8ubbXiojKIz0OYAmozcPTv6wg5GRms+DutaGY0AzbLg//TZMtgTWSKcmTQ +DOzXkVvlYCKDM4ucRTfNzMD26C27PsbLoMp3Vf+8plnYdHV7ZOBjGVzYcXBt +d8csrLlk+JWbLIPhW58kC/bNgpzNoXPP02Rwzc6/GdpjszDCOpcQlSuDZeG7 +sxwl5iA6L33G5qMMellW7Hy+fQ5+NcunTv6VwfcL2i8SMuagt4o6mTErgwLq +SUdEcuagtZCDx3kyaFfnSzheNAelDzY0ty8mYMs3KXfpKv5+DmaL30gQkA32 +Z6R65mDb1FWLqzQC6qrdiUqXmocowqyo8h4CRk0xL82emIc3u5PIqXsJqE+i +Doq7zcNgoInWenMCar8wbSZ5zoPOVLKt4SECHly1WIR0ZR56m83yPe0J6LBS +7GlB5DyoRj87Vu9JQH/pyn9BhfOwv/7gRcsLBPzdLPBUoWQefEWEwr9fIuCs +W4t6atk8NHhZvJq/QsAga2ZO+sd58DokvJJznYAnbYcvG3fNQ/l/tm+uxBPw +mNb2ovl/8zBiKt4s/piAlMYt1WJCPCBdyxu+m0TAJ14XlKVFeOA8J0HKSCWg +eetKLyFJHqzoLDzZ/pKAFg7RfT7KPLCIk5HXfM+Ph0VpLdXhQcDnEvXiDwRM +VZQlbUMePJNw0dtVyz+fwuDyfF0eCPi8dbVuJODE+2PCIQY8SLY6VXXtCwFj +NNI18g7wYEy56ty3MQIWNR4yNzzDg3se/RV2EwTsTJiooZ3lwbaaxcSeKX58 +JtPdf87xIPLCltwvcwQMcHiQ636RBxs/v5hqXkLEzXsWWy4N4kHP6nq9fSJE +XPSY2R4RwoOrfr+iGkWJuHhzUyHhGg861Ngb6lcQ0XS2PXAhjAc+V+M838sR +0XGXSKhlDA9YPYWVOxWIKOAbanHvPg/qN7SS3ikRkd0if6gujgeUfun8UhoR +t/7dVi7/iAflEDJdpErE+6XHk7ak8uBkVJK+tjoRZXK+rFVN5wHxV2l0vgYR +EzzPF0pn8OD4Pd7GnA1E3GDwLqXkOQ/EJt3OZ2wlYm6g1aH4fB68NLz1XmU7 +EVNNjZhQyIPDj57JpekRce15dmljEQ8y9gwUPDEk4q93anu7inlwIHmJKNOY +iOuPlm0yf8PXm0e1SDQhYp0DsbPkLQ9MU4/Mxu8jYoq6xyavch7MCVw0UD5I +RMF2x6HyCh4kHoi+F2dBROUPvShcyYNJoUbte9ZEvB42XH3iPQ+irfUv3nYi +4k1/odrCGh5szT32QeoEETsYNxkva3kwJO4vf+sUEeMN1/Ae1fFgc+Hroutn +icgaWCVv+4kH3yQ7xMQ8iGjg//OgegMPrjtOW4Z6ETFRKGzJJJ+7ZDTnA72J +2Os8ec+qiQfBLiZGQr5EzBtIuCj4mQfqpSdj/fyISLkrUBTH5zbZaz8FAok4 +vEltn2ozD/xOp+hcDiaiHR7We8Hn1e8qrvNCiThQ/+6qSgsPmhT6Oi9eJ+KV +pmKlWD5fOiugOnuTiIOLkhYEWnnAqFb09grn6z0wxLTk87dR/R8qkUTss5L8 +lMXnRwT3vT1RRLxTb9I8w2fbzQ+L7sQQMSvvmIZWGw/IttUMg1giXlYi9xzj +c1fQZNjCAyLWZBzvCuFzXDp59kUCEY+/AeZDPh9uMDzqmMgfd3z9MoXP/017 +1Mo/IaJEgFRQEp/bFB9trH/K98tH/6g7fI7WrXkUkE7EL11ne734vN9pWnxT +JhHlDA857OEzIYzm+es5Ec0SypTk+Nz00rgn4SVfT28LkWZ+vBHt5w335xHx +wJ0vykF83iuQlCNaSMSgN3Q7Dp8lmfXKJa+I2CJM/ljC16fWcC70bAkRAzJa +LHbx+YYrc4JVyq+XLSfE3vH1Nbq716qznO+XG8SO9XwWfX2p6lYlEYU/sSqj ++fl53/tEY0c1ERXil9WM8PMZItIYO/OR77d/W4Y28HmJOcfVroGIxa1k28f8 +/JefN+8gfiZid/3u3Aq+X/weXt7xoYWvx9FquY56vp+HP8ut+0LEF4mvBb/y +/VYsuShg4CsRRa97BtXw/eitpTIS20vEFbeEJTM/8mD2il/pkgEirh6GtYbV +PMh/8kylcIiIz4hjFUv4fvasaY069YuIH6SvWmbz/T4hq+bS8oeImc/uBPzg +10c21+LztUkiPjjZQjhVxgO3o4GA00T8pv/w8Q9+PY1mdqx8yuPX35czz7P5 +9ZfxeanPEQESdl2TVF/6mgcn5tYOSAmSUEbXLsWQX69DeiGvLoiQ8EDgoYDM +PL6/vqw7ZrSShPJOhb3tmTx4LGhTJ0Ak4TTTmlXxjAd2nGubcmRJ2Li64Oij +NB58de+RUFIioTlroHr9Ex60i93MHWWT0Leaav6G34/qNv0Qvs0l4do32rRj +/H5XmpSrI7eVhDEVezY+D+T3E6kg14e6JHxk3br4jx+/vw7SO9L0SXhw3qZ4 +rzcPHGLsMspNSai8WX0h1JUH89NfzKccSJhkNGX+ld+fR48+C73kREKC9daH +nuY86K2/VLz4BAmF9vaVCO3lQWWKPHuFKwkV/w7f5O3i++3goTnWRRJSBU2z +nTbzgJPflHAojISfY1U/rFHggQI9sflrOAkrnMh9BFkeLL91VswhkoTed5OE +/qzk58NR+pxbDAkHrqaeDRXjwRuSif61xyQUyDI/s36Wfx96fhh5lUfCoa37 +bwd+ngd/rdLN5G4S2jhd9mUFzMN114dXO3tJSJr+GqLrMw+R6ZfaovtJmPmz +0NHMax6SqRs8pYb5HEOqNObf11XL018sniKhe2POt5dm87D8xx1Ov5gstodD +4g7yPETfdSKlbpDFtcPlr3Ky5iChQc/BQVsWKxybKw4/nYNUCXoOdYss/vIs +Kp5OmIMi/y7T+9tkkUTbmbLi9hx0nTa7eX23LC610fUqdJ8Dmv6WJaftZVE8 +5fA6Ca05yJiWHNcMk8XRjV0141mzoGVqc6kvXBaDva8s90iZheK0zCW3I2Vx +/ZtjsyMPZ6HWylj2T4wshjtFLqq4yX//lF/bkpUoi6GJBSsET8yCWvjSEJVC +WXzov/joJ/osZHHmFRj9sghKk3Oit2bgucUPPeJmOUz0pss/3zMNxbvqdF06 +5LBZ+Jf5g1eTsHVhVble6H/IEJoVdS/9A7UQ/StytTzq6D6V/jMxCusoN7Kf +V8ujruZMTk7ZEEhWTc6beyrgVt535q2EfpiaOz3qLKuIac8t+hpP9EBn9k5b +hrwihlgxNgxb9sBbF+XGr4qKuCM0TGi5YQ9c76jNNacpIjQbr/Dg9AC1SNWH +u0YR9xhPT9Z974bdF4bFpbcr4pUjey3T7LshcdphVcFpRcwv8T/z70MXmE4e +OSZcqYh/qJurPsh1QN6HJ1I57xWxN7PFSWOhHRQejb22+6iIMh3+cRm97dBv +HEgs/qSIHsGuST/S2sErJb3SvVMRTcy/3beEdnhoOcfpHVPEiQ/di/Wc2+Dn +2+iRVwpKqHxc4v3fuhYIvtno6eamhL7j7hFqbU1ATns7MuauhI8v+dXqlTdB +fmXmMVdPJfwg9XzV6cwmGBK4bnbmkhKqZKgwxgObwPjsdrVTQUr4Yttfo0rN +JiAezPnudE8JwzNlE2IiGiGZcnefbakSprvHpmUcbgDgBn7sLlfCeNqqnPZd +DdBqcVbXplIJxzg/u4gbGkA0cs9a649K2KN20rVEqgFOLRWRONKshPPMnqT6 +yk+gNexVfnBICbNPObUOa32Cdy8tNE2klXH5yoqOKnI9nIvfX76EoIzHgv+d +ubi8HujXTfcVkZTxnZ7/qcvTdXDF3sCTqaiMqdH1prOZdaAjrV00z1LGk0J+ +1ZHkOsg+Laf7dIsybtpkdkZfpBbiV7WaLnZSRmPPuJ3Lxj7AHmJTX56LMs6z +vTZm1H+AhUX17idPKeNk7M2nZ7M+wOG2yqjWs8o4q26YaX3mA5BC8tozfJRR +pfPtq4KxarjZH2VnGamMW9fSL9rOvoeL8fvcXpYo480n6051UqvAqmGyZnOp +MtJL44f0RaoAhaI4ZeXKuKR/hXrdr0pYery5+9N7ZRToelzNLqiECLUDe0Yb +lXGj2Ija8r2VkFp8UGXVgDKWTMwYhwe+g5MjquN7RMiotatAc0qgAqyEF+Jv +LyPjnTWutzwHy8GEXGvcIkpGsgXRTrKhHDRMT6VaSZBRllf+X8jjcpjOybA9 +KU3G8lLFnhs7yyHAW63+qgIZD5Ebantvl0Gs+NpnFepknA/pqtTcUgqyEiLH +6RpkbFJWyH/HLIU7El+p/ppkXJ1efd1NshRuLr8RjVpkpA8JXZX59hZ8JQf9 +izaTMSu21f7y9bdgL5Ng8VyPjOk82fVfet7AKgUpkbjDZNwod7oHdUogWWGg +dO4If/ySWY4BoQRoiiXeFtZk7BjV7fUdKQYFpZPjJDsycrwlH7omFIME+X1X +hCMZr6f3rbBZVgy/aVdyQtzI+FWR4GXU8wryVo/ZuYfw18cve7AjqxDcNy8q ++hhKxp/rf+WywgpB3VBqJeMaGbdPvk9VO1UIKc5ryz7fIOPRA2VhWSqFEP3U +lbbhNhmXLFE3cEsrAC/Wn76ZODIWyRenfs7MB23a+NHL2WQ8clLQnNqYC1Ma +gq9bXpLRcqBF+EJuLrzYtpKgnsvX5+Qf5nhMLqyy06zozifj0kZL5V22uSCf +cJaxrZiMyz+J7vIdy4F5pYl+ofdkxMyHJgukHCj+b9LhahcZv795WmJ+KRsi +dx9I/PCVjJqchaatx7LB2begR7yHjH8kDlzQN84G0nfvw2F9ZDy78F3yETkb +zjxfaho5QEYHqW0v/d+9AIq+7JYHf8j4Vi5Tb5j4AgLObV75YikFcz85TD96 +nwUWKXEm48IUtN7B+haRkwXqHf9urFtGweN9EbYxCVnwBctF8sQoeGC7U+7g ++SzQEt+9UCRJwULLKeM7q7PgxyOrwYr/KKjxNNxyGTMTDOqvlLStoSAjff7V +/r50SBsaWqalTsETBvGF0a/TQXyJuXnEWgouCZy2XxadDrWbmIMG6yi4dIn/ +wLnd6WD2uFr61SYKxvndF/UoTIPDHisdHmyn4BGrgo7+2FQ4pZAkbm9BQUKf +fizTLwXqtJYfKLGkYMyVk+qdtimgvtczQf4If75BJRRuTYE/gbu0mqwpGJhK +JI4uSgHP0V/WO45RsFmmI1Ir4An4lmpls85QMA0aRAm3kiH8eNWhn4EULP0y +daC9LBHEk/1D1wZT0CKjNko+NRFC+rgFHiEUzBfLPHTxViL4WOXILrpGQV3V +3P47RxLB2fxRC+EWBYOzee6aM49hO17aB/coqBqmWDW+/jH8JanvjcigoPjg +3j2p5Qngtm/YtyWTgv6G3GDvjAQYiUjOUnhOQbVRiz0u0QnwTUJR8kk2Bb09 +/OSiTiRAvaBoXVE+BX32uB5hEBMgdbTPqL+UgrXPLLZKnYqHI5V39Te2UDB2 +xbjtC5sHICtzneDZSsHxwSLX3ZsfQIONb29OGwWrDmm3yRAfgP7s8UuanRTc +mvp3kPUxDtapamet6aFg07UreYe040DsdieJMUzB/Z8Eq98qxUKBFeWH1D/+ +fqvzyyyX3gP3NMJLEwEqJnc35DO+x8Ca6WVXwhZRkUDavJ74LgYSw//8JyFE +RQGBMYJzUAzcKi8zFllGxdrE68WtIjHguMohd0Gaio9R/ny6TDQQplIDh5lU +3D10rlJ8ZxRYrEq23sHmjwfW0hfYURBvlbDpIYeKN+Vv1xPFokCl8u4vUxUq +JhL0TF7X3YHt0QH7CtdScafhs+Q2izvgpm3FCNWh4vLHGgSmVyTU+khVME2p +6Ds1sfJjTQTIZIs/9DWjosGFrjyjlxFg8UP4fLs5FSfeLP87ci8C+vcsqNw8 +QEXV9foP7h6PgHnycOTkYSoeuTU2574kAlaXlR8td6TiePPasc07wiFE2EvI +zpuK1jVCmVV5YTBgVVGW6ENFP3fuxnNhYaCfK+3/4zIV57r35ps5hoHIsWeL +TvpR0Wj9u8wkUhgEl/YueAZTkZlwTuLuhZsQ5L175kY4FU/9u/nt0q4bEDBO +HSlIoqJkavzMx2XX4JvBmWfzyVS0OHGDY/DjKmx/9PoEpFBRobfR6k/5VRDa +e3C4PJWKq3KVxcp8r4J/xo2BukwqDgZtbLSeDQU/p+ne/gIq7nrOoFhOhoDv +15oWqVoqylw4TxVaFgwuStTE03VUvOpjWiU6GAT7j3icqamn4sqn850674Ng +dYfSstBGKgJb4jT1ahA0N5/WFmij4rprF8V+SQSBaq1U3EgfFbtju7L3KAZC ++6t9dh9mqBgj8En08yF/qJh7uoYzR0XRubW7urn+kKW9MBs0T8V4gxOHJOn+ +EJiffHvbP/7682kqXSN+oP7yb3mBEA1r4+wOrg7yg+C0GFbKChou7LtsYVd0 +Bdbd+/IzgEHDuKjkXEHwBasB5/2dTBqeC3BZUcD2hVCt6RJNNg07RV+cvS7t +C10N0rd7V9HweOFfP7mayxAipr8J1WnISwq27lK+DJ2XXgTOadPw5bcLlZr1 +3hBgHazkZkJDFaai3TKLi5DxTCbk/V4aqtr1xR1bdxHa5hLGyGY0XOcSXjex +/CKsiX5VXrePhs11f4XTyi9Aa/2Ys6olDU0OFwWd1rgAKtsO5w0co+HtHb6x +yqTz0ERfa2J9kYbXd7Pr7QU9QTZK8uHDSzRMK728o7zfA44I//711ZuGv43v +GBlUecD3wYxrNr40nN7B2/fuhgdMZ6hU2gby16/5aXj+Pw9Q3MTmHg3j6yMQ +zX6sfQ4cdiurOD2mYdcnn9SmyLP898XChaeJNIzR/LYx/OJZGFXrej+YRMPB +mlMjJ+3Ogpd0nKNzCg23rf6+Jlj9LFxr+e+xyzP+/HW+metq3SDLlvjfqTwa +VmXX3T+0wg1mzkmInP1AQ+pty6myJ2egqnbcvvYjDdWnR0Vcbp2BaFZ7CaeW +huTpjyc1zp+BDW3Jnt31NCz4IHWZYngGzungj93N/PlGtounu0/D2OKz79g9 +NLQ9dDl89sopGAxrDeia4vPOBw/ov10gf6C4e9M0DYeDjhX2V7lAyNYknTsz +NAx8efrAlwQXYI27ThjO8/Wz0vh5ytwFju0XO1qwiI5T0hoeK185Q48CVzdS +nI4lsVv/Uu84QdvTx4sMqHQ8Y+oFHiccoZTRue0mjY4skbvXM3Y7QnqCTEAD +nY4OoZPdy9UcwTcmcKkli47nw6sb9P44ADPUUeyECh1rY1eb3LzgAG7HVxNu +atFxIIG2yiTiGIizstkNBnTsVJiL2fPFHqYeDTsRjegofc1RZ1WZPXxVoqdZ +7Kbj0C7pSeZTe3hBvKPat4eOa2PUZgPP2cPBpZ4aE+b8+CM6oj6vsIekfm0d +ojUdM9ZY998xsANuYukei7P8/aslRy622ICj2ro10e50jB/bszr/rQ3cKkwS +bz5HR8kzGgaS6TbQV8+3rxcdT5SQ4ldesYEQnrHuLm86GgRYddqp2EDD/g6t +jcH8854X0ROTtAaHZROKxPt0vHXpW9xQ4mEIizw2bxZLx1fWD/e1XT4M+cot +7eFxdKQ4Pn701+IwiGkV3pWIp+Pml95ipVKHIcvOV2pJEh19LcPDg69YwmyR ++JKJDDpGp+/iPHKygLBTjJ+fSun4O+P7QqjFQdjeE9eyqpyOO7sfOBhvPAjT +ZsQy/wo6br31X8Q24kGw2SR8b30VHccVKaoFDQdAXWhwZ0wNHRNldMxbdx+A +hpj0xzatdIx4sPh6stF+IFRoWo7+omPz/AvOZ2dzqN6Qrqc/ytdT6F6PrLE5 ++KTSNRJ+07FDkFARsNYcvocRlpmN03HVilL1pmkzyLX4m5s7Tccqb+MYw1Az +OPi7UNpHkIEfPrRGnnxuCvflt1WLyzHQjviIJKO4F5yfi983/o+B3/39gm8v +3Qsbd7a43JJnoLGGurX6bxNocjshIaPEwA0NX5+9LTOB5dVRJvI0Bi7l3Evl +njABX6/hZo4qA92L2u8LBu6Bo58j+/S2MpDwnaHmuHQ3aLhYvwzZxsBsN58Y +zW4jEFi0KrBal4H3/gYu1ig0gjiVEqaxHgON/njXlJ0ygmb/Qad9hgw83cHR +XdduCPoa3N/2+xhIH2TGSBUagErYj3lfJwa2jTG8CbH6EChe0P7FmYE1khlu +f7z0oSv0ar72CQYO/jIyWbRfH8IDVN0nTjFwKqgvNVtSH6bOnx12dGegVfve +7fYhO6Hk6L8248sM/Desc/6Frx6YapPyFO4w0CFbz23n7e2QljcQeT6KgZ7c +IoPuc9tBaH2hW/NdBkpqV088Orgd8tSOrLl1j4G3t7d8SlTaDgqMx0mC8Qz8 +pOhtHJmuC/0r1CKHUhmY9ltg7++6beDVr+ea/4aBokXzrgqaW2E40HndwlsG +fjwguZymsBWsmDf/6pYxcJ+W3Eb9JVthh+Nn77oKBtofrIj81YIgPWh/9Xs1 +AwsfKq+M90FI/+n7WOYzA3fpBpQLPgboHi/8fGaQgUd/D4jYyW4Bs8iu6Nwh +BuaKX1riM6YD79YtPjw/zMC704vf11TrwLNzu3qDRxhYxdC8LeyjAxf+tow8 +GOd/v/neh87vm0FmbkK4hsdAw9tSTxvfasOuxWraHGkmZh6/76F5fyPMP792 +7/hKJv5wWNE5cmEjZNgOzD6RYeJrnzTnJouNIPM2oYhJYmJF8RW2ovxG6L4s +s4WuwMRjvWLaD+M2gBdvBpSZTFzyNkJjQ6oWpEyX7yBoM/Fd+222Sfc6sEyh +JJtvZuKkQHHucPk6WH7QZ2mkDhOdNm4mpT1dB+55GyqlgYmjTbzIyLPrAD1S +9SW3M3HY5th5iWXroHU8zFDMmImOb6j7TmtrgvCoxd5FdkyUPEa/VpqzFrYH +FRdb2jPRWeN5ybXYteCnSFXJPcrEepWk117+a2HBcHCpiyMTd9+rN3y9dy1M +pXi+ajrBRL97QpuHR9Xhu10kK8WTiYYVNVGZGupQ3lzDM77BxMQUBQYtQRUW +n1rr8vQmE79nfzUb8VAFXHKnVfAWE9f+3ucxaaQKrzQPZ+dHMJG6JVE3d0YF +sm8NHadGM7EzK6N5ep8KPDIQbpp8xNfDoH2lttxq8C3G1Nh8JhLVN2cEVrGh +1Wtq/msBE+EDR/XGEzaoa6bvoRUxUZi09MSbIDZ0PyFNPn3Nj98gcNvTHWzA +8BHIK2ViyA6itE8FCwSOxn7+9JGJR/33rBasYcLlZdMCwj1MFJRwvL5olg7N +Zc/MDHqZSNrpcJXYRYc1PvbJN/qYGHz5S4xJKR26/tQaynxnooWIAUfzGh24 +nUlRlGEmPrnz9lW6Eh0WMsxUdCaZ+EYi7j99Ixr4mGcecF3GQu6XZruvbyhg +O+WSVyfKwuGKvOO6Tyj89zGbtEachRd3zxh8vEEB0c6E5qHlLPw6Y/fJ0JIC +d+wj9x2VYaH3igdq83/JkO523uyAMgs3Ciu7TW4gQ/st3T1b1rOw2kHDtj9B +EV5rCGTe12LheO6PO1RPRYhverV8dgMLrY98t44zUgQHWa3aXG0Wvt9wzdRg +WgHGHrJ3qyMLMdGP4WWqACKZEoY0QxY2+NZntkrJw4aaFr1ltizMCY/YfLpQ +Fix8anRt7Vg4c9Jrhf1dWbikVoYF9iw0monyCnGXhdLwDG0nBxZK1y8fd1CT +BaP9gWveu7Cw6BHOOj8hgc1XDWKoB/98hPsk83giXB270S9ynYWbLGrf92XL +QPoj/16bGyw8OBHaGxolA3Vm57/m32Thuhm7oEPnZUAm92jb8XC+Ht3UQHeQ +gQcXNtdURbGwXqFc5HbNSsgWHHwZksDCWBVnXxyThk7C9gCRPBaa10f//Gou +BbJD1xx25bNQwZFrNLZFCvYVN+pfLWDhbEf5XzJLCmod7CXEX/HzdeRnRPuM +JLzN84ta8ZaFUjoHQ17ES0LyobcpxA8svDxvLf/kxwpwjePW0L+ysENr/e7U +IxKQ4RqUeaybhYR76b8+aknA0I7a8OQeFvqY2Q5TJSXg6MiR/exvLGTL9Y86 +lonDfvD+unqQhb1djtXGKuKg01M0pjHOX2/303C/sBgsZWwibhVmI03UUTii +WwRqu4OXxImwsVS3pL3rlQjciW2emF7GxpLK/a1WMSJAl3FvzBJn43DKsOpf +UxHYJph5iyzNxsq+GYsrVcJwuYcuJqDIRqPM5zWvXy2F6ThJgRINNvp6Xmuc +qxSCN4esR/9bx8bFfWsKWKlCEEzI6PJYz+bfhwF2PteFgHjD8PWajWzUuVcv +lrZXCNZfCrrwYAsb7+k9Vpj7IghuFvMT3vpsJJfKnty2sBiGiQODOlZsfDNb +ZdttuQg+ToYUX7Fmo9mFKIn72xdBRhPn9jsbNlp5i/S5qy4CtwgXHRN7NppT +nI8G/hOAaYnRm/bH2dhAVEFCkgAsXTKledWNjdezk8TvDf/jkscFfVqC2EjZ +7fFF7hCPu7gh0VQhhI1lXFe9N2t53L6sHSzbUDaW6344el+Ux00+FVw/dI2N +zja8JyOv5rmqQ6K0hVts5Mx6PV1En+dq90hV0e+zUfpZXV3c3Cx3X52ytFsm +f/+eiae9tdNcj9cz/llZbNTP+Cq4I2OaG53WODnynI3uZ4zWN9yY5rYHB7e5 +vOTP37+ae2L3NNcGR+OPFbAx4Zt3U3TtX67z82K1Q2Vs7JDKtU9sneL63j6y +G1vYuPrivS8E0UnuoysbSnxa2dhJW5ToMjLBLTsttfZ1Gxt/kchl/Q0T3KVG +FTLanWx8KyiwWy92gntNSLVTs4eN41NqjtnqE9yoc/POrGG+vvtUtxBsxrnp +B+6HLP/Hxu3b85pKWsa4B1UvCR8X4KCVwcF/hsVjXCHBI0FvF3GQEhfpOp84 +xj2SoRTgLsQfr75m9d5tjLt8yaPL7cs4KEdnvJOQHOOeeZHikSzDwbl332QI +e39z10vkHuWu4uAW1pYjsS2/uL29UX13V3PQS8VNedmzX9yb+Z52YyocvKXi +GPnC7xf3u/0mm0Q1Du6t3L6lcM0vbnThK0vR9Rzsszy37nboT+6sY5lpM3Bw +z8rRMKrBMLe4tB5P7ePgYavRK4ETA9yAIsGkrP0cdDs5LW7QOMA1fKm1bPwA +B/UoPz9pvxjgtibFfvK04GBJzTOl+DMD3LGQ43ZXrDl4PG7P8bOjP7j0PQIB +kU4cvFJ2uFN08jv3aodaZaE3B7mxmh7eSv1ckya71TwfDl7I+bL4yOJ+Lqnm +Thj4cvBQbug/2+/fuInFcwfK/TgY7ybk15Hxjfs6oXKgJpiDsoHZu4K3fuP+ +drQW7QnnYHpf3tO7J/u4+yZu7hZO5p8nafnL/V97uKW129RPP+Hgm6HLIxXl +PVz1p1PSLSkc9P8iF384tYcrbmXVmpzGQfXxap9/53q45ZWq9nrPOTgVLd8i +s6KHq3H/o1fgKw7ek3d2NdLv5kpuE00UbOSgn/iGJQOpX7g+CsVBLk0cdIqQ +7K7x+cL9OeXq1PiZg+2jPVsnTb9wq9La1jxu5aCv2GeC8Hwn9zLhacG2Lg4u +Xabjo7K3kzsysLPuyiCfS+XkVIQ7uIfL5p4PDvH1fx+1wOtq51bHZUbu/clB +V9Md0WJ57dxkU5IFZZSDg6rKQa2O7dwjr75/ezPBwSFyQYHaxzZuddS9SvYU +B6VMpNM+J7VxN7oap976y9dX/kHMy8ttXBlm7mmbWQ7WuxoqKKxr4/oJOJtW +zfH9JZYkkri8jfu7XXG9Oo+DK0cePrIfbOVa5XwiRS9w0Hzmxl2L8lbux7DA +2X//OHg6Z/OdkIet3P8BT+ekPg== + "]]}, "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->{5.000000000000011, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{5, 13}, {0., 1.8656394062186223`}}, + 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.992079238357033*^9, {3.9920794510548935`*^9, 3.99207948591498*^9}, { + 3.992079526257885*^9, 3.992079540791767*^9}, {3.992079584032593*^9, + 3.992079682223818*^9}, {3.992079741757654*^9, 3.992079765431652*^9}}, + CellLabel-> + "Out[298]=",ExpressionUUID->"dd5c5227-5dbe-6947-8308-47ff51798069"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1111", ",", "l2222"}], "]"}], "\[IndentingNewLine]"}]], "Input", + CellLabel-> + "In[299]:=",ExpressionUUID->"4793b8fe-e4a9-3144-ad63-4921c0e1d8f6"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV0nk01VsbB3BlilARvY7xt5UKDVJxRc+DUpShbogi5yBOITKc6Lg5pkLJ +dJs0EHISGaJJCRlTZKZByFAolSKJ7u/9Y6+9PutZ3732etaXYh3Z7TZXQEAg +mj7/v5e3KggJCDBwyvvaG9dPw6BvFLTxK+0cYaMr3JFhsLzd7tE3h4GGSkVl +SR+HIfBUwotKQQb2bj63pmxgGKoNRM9HizKw+4FA9qLuYXDN/LZSZgEDc9eZ +Tp5rGIbUwDordWUGbmjnL9XIGwZ5eU7KTgMGJtgXH/f0Hob/1Spl3Aph4M3H +V7w1uz7C9HzNnOKH9H822R7mGn+ERs2R1WcmGOi68BOzLf0D5BVPEI6uAjam +bLQzHRkCv1YPOQl/BdxclxdlpDMEJo7qx+8UK6BL+k4xuQODIFRxzmHFhAL6 +5uU464QNwM0Sr7+2r1PEGrboZvbNftinEh8d7KeIlyKC5A7eeQ9flsh32eUr +op2VmJNPZR8Eju5JnzuqiOseZjalNPeCmOab7idaSmh06mzk1qoeCJ2tk1/B +VsKxTlcpzZh3IGggWH09Wwl3Rdzet2PvW+DYjI0ODyuhxdcWg7zVr6FR0Fim +W10Zw6Wf3erQ6gIdxZ7s9+7KKJua2/hZpAOO1/UbJWcoo9d0ypGPC9ugsWe9 +ud2gMraKbJ1onNMCsq26L4bUVdBk97R09qIm2Lw/zUrNRQUtXlbMBhU2gL+l +rYlvhgqeFMrR91tdD2fafDce6lVBX0PPb0rKtbBDUXX3BSlV/CryKCJ0TxW0 +z80tF1qjiqy7GmaicRXQovMp39RCFSuFk110dcqgXb6lc5G3KpqW3Sm3eVEC +zV7SpSZxqui2YI5uY+09QAlhtR059FzvMD8/oAiKDlwpe/1cFQcYDadizArg +0syHt0YjqliVmbNkwD0XgsTi7kuJUXhJ7KXb2d98cHrWWe+6kkJLeRvGqq4M +KG5rd4rfRqEuP4RhF5MG0ueCNbZ6UHhtp1Fh49Rl6E1tCmiMonBnTcDFN8sv +AF8+7J+yDAqTE5ubTdST4cDRk+7GmRSqJhTWW8klg1z9aetK2no9vAPuIskQ +yT1Pam9QyGiev+nBYBKw3uVUN/IpnNLf9nMwKwkUMjuk3uVQaK9oYeaqlQRx +a1ddmymi0MXdt6PIMBECtnU+0a+i0FffxlkrNB5svd7M3qFtIO7l8MwvHjYm +9Riuqqaw323ruI97PPzs/lCiUkMh9Q+OdljGAzdw6p5QHYU9hGJLKMdDRCYj +v+E5hR0p/86T456FZEHHVFYrhbz1fc0B8+Kg6ElvaMx7Cqs54rWXrWOBza3t +l+yn0Cx7MUtRPxaU/8rbnkD7TsiyXblqsXCqkLvwwgCFVQKfZ+dOxsD+zCWp +mUMURvJCLblXY0A41uJJ2QiFcoO8kMtfosHW9sHMxDiFxxYHs4zTTsHUaHyw +ixDB/C1Vrwq1o+DgAq+gftom/94+GaESBc3aZsfchAnqWrw1cJWMgpzAOYHu +IgRLWFMXLD5GgrPAUd/D8wgOOAyK1qRFQq3M3x5+EgRD7/pa75SNhAv6srbh +iwne7Z9c6SQSAbqnLmqnLyX4J1c76YpUGDRw/KMUltHvy1bd4guEgau71esk +2kLhnD+Pv/Eg0VQ4MkKdYEtbk4FoBw8+Cfl2uq0guP+Rk7VMKg/SedtPrNAi +qMzjjc1fz4MFxyef5+oQlLSuCLZ2CYUhLxuP+8YEy492vuaWhMDu79J9+iYE +Z5u40TbXQ+BR8Mt9j2mPZxwIM44OgcSTO6wqthCc/uMpb28XApvTjDY+NyV4 +IjBFl/OdC8mtq4R6zAmmb4rRPLSOC8abRFJF/yZomCCeWvkoGK7Mu9dh60Iw +bXvCU915x2Ddfr+sl7T1umZ4Uj84UJ23hmPuStDi3OzAeC8Hvtjy5Ta7Eczz +n/UfLuGAceZFm2XuBNfr6ZyO9OHAkBG3ZfwQnT+afvXQm0DQPm7UGH+UYDXz +ydWbpQFQ9am++hmP3nffzTmvsv1AOitE2ziM3t/nbS77UvzAyXnN5Qe0XUqp +qA+xfvCzOdGXH07wpY/w52VefqBx314xKpKgxFPKUWutH8SFDfkaRRMcki37 +x/n+UbBdIqh0P55g6YpomVVNvjCI+n6Z1whOqu7xuk58QCShYe7yVIJLNvwI +frLYB5b3shL5tKc9lst9EPEBD15swa00gnt6K9LutR+BkfI3YwXpBM0fSBVf +YB+BL8YnPEuz6LyYXltSkjf82lLp1pFHkGksazc+6QmSZpZ7xcoIbshaX5o9 +y4a9B3sNw2gHFDQ4ZH5kw/Vwf7Vp2u373gXkt7JhY+mlz6PlBB29FCYms9ng +rDMU8fIpQWd2Z435XjYUKYUWnK8haKVeJf2j2AMcvhWIqzcSvBG9SkIsxB1u +pMg+Nu6m++1dr5an6wZnJeUL62hX7jty3nOpGxw7oZhl/Y6gWIXjgk2L3MDc +RS3BqYfOm8U2i4+4wpiGtltwH8E2vRJZ/2uuoPdwp2ThIEGRV2VrmfNdoa4z +3JEaI2g/cFBk6xgLCs1P7ubT/rVH8rtoNwsuP4rZtuYLQU/2mdWvnrPAOzVB +2/Ar3X+5XzY52SyQ9rgmbD9OUOPRoKCIOwscJh/mxk8SrPpdyw/vY4IJu/T6 +kp90v/bHOm5oZoLW6/LzV2m/f2+e9KOcCbOltbycKYLirzSt09KYkB7VblM7 +TfBiUPTdDCYTTv/sMrf6TdBmkyCjbhcTAg+9hXbaL/qtLk8bMWG7Zf/K/hmC +J4noixjCBO2yIeXDswTNzu13GZJmAmPdiMw32qvTHT7sEmSCYMbneUF/CJr2 +SFk/G3eGUdlvM39oi/Pi46z7neE/rgnY2A== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0nk01VsbB3BlilARvY7xt5UKDVJxRc+DUpShbogi5yBOITKc6Lg5pkLJ +dJs0EHISGaJJCRlTZKZByFAolSKJ7u/9Y6+9PutZ3732etaXYh3Z7TZXQEAg +mj7/v5e3KggJCDBwyvvaG9dPw6BvFLTxK+0cYaMr3JFhsLzd7tE3h4GGSkVl +SR+HIfBUwotKQQb2bj63pmxgGKoNRM9HizKw+4FA9qLuYXDN/LZSZgEDc9eZ +Tp5rGIbUwDordWUGbmjnL9XIGwZ5eU7KTgMGJtgXH/f0Hob/1Spl3Aph4M3H +V7w1uz7C9HzNnOKH9H822R7mGn+ERs2R1WcmGOi68BOzLf0D5BVPEI6uAjam +bLQzHRkCv1YPOQl/BdxclxdlpDMEJo7qx+8UK6BL+k4xuQODIFRxzmHFhAL6 +5uU464QNwM0Sr7+2r1PEGrboZvbNftinEh8d7KeIlyKC5A7eeQ9flsh32eUr +op2VmJNPZR8Eju5JnzuqiOseZjalNPeCmOab7idaSmh06mzk1qoeCJ2tk1/B +VsKxTlcpzZh3IGggWH09Wwl3Rdzet2PvW+DYjI0ODyuhxdcWg7zVr6FR0Fim +W10Zw6Wf3erQ6gIdxZ7s9+7KKJua2/hZpAOO1/UbJWcoo9d0ypGPC9ugsWe9 +ud2gMraKbJ1onNMCsq26L4bUVdBk97R09qIm2Lw/zUrNRQUtXlbMBhU2gL+l +rYlvhgqeFMrR91tdD2fafDce6lVBX0PPb0rKtbBDUXX3BSlV/CryKCJ0TxW0 +z80tF1qjiqy7GmaicRXQovMp39RCFSuFk110dcqgXb6lc5G3KpqW3Sm3eVEC +zV7SpSZxqui2YI5uY+09QAlhtR059FzvMD8/oAiKDlwpe/1cFQcYDadizArg +0syHt0YjqliVmbNkwD0XgsTi7kuJUXhJ7KXb2d98cHrWWe+6kkJLeRvGqq4M +KG5rd4rfRqEuP4RhF5MG0ueCNbZ6UHhtp1Fh49Rl6E1tCmiMonBnTcDFN8sv +AF8+7J+yDAqTE5ubTdST4cDRk+7GmRSqJhTWW8klg1z9aetK2no9vAPuIskQ +yT1Pam9QyGiev+nBYBKw3uVUN/IpnNLf9nMwKwkUMjuk3uVQaK9oYeaqlQRx +a1ddmymi0MXdt6PIMBECtnU+0a+i0FffxlkrNB5svd7M3qFtIO7l8MwvHjYm +9Riuqqaw323ruI97PPzs/lCiUkMh9Q+OdljGAzdw6p5QHYU9hGJLKMdDRCYj +v+E5hR0p/86T456FZEHHVFYrhbz1fc0B8+Kg6ElvaMx7Cqs54rWXrWOBza3t +l+yn0Cx7MUtRPxaU/8rbnkD7TsiyXblqsXCqkLvwwgCFVQKfZ+dOxsD+zCWp +mUMURvJCLblXY0A41uJJ2QiFcoO8kMtfosHW9sHMxDiFxxYHs4zTTsHUaHyw +ixDB/C1Vrwq1o+DgAq+gftom/94+GaESBc3aZsfchAnqWrw1cJWMgpzAOYHu +IgRLWFMXLD5GgrPAUd/D8wgOOAyK1qRFQq3M3x5+EgRD7/pa75SNhAv6srbh +iwne7Z9c6SQSAbqnLmqnLyX4J1c76YpUGDRw/KMUltHvy1bd4guEgau71esk +2kLhnD+Pv/Eg0VQ4MkKdYEtbk4FoBw8+Cfl2uq0guP+Rk7VMKg/SedtPrNAi +qMzjjc1fz4MFxyef5+oQlLSuCLZ2CYUhLxuP+8YEy492vuaWhMDu79J9+iYE +Z5u40TbXQ+BR8Mt9j2mPZxwIM44OgcSTO6wqthCc/uMpb28XApvTjDY+NyV4 +IjBFl/OdC8mtq4R6zAmmb4rRPLSOC8abRFJF/yZomCCeWvkoGK7Mu9dh60Iw +bXvCU915x2Ddfr+sl7T1umZ4Uj84UJ23hmPuStDi3OzAeC8Hvtjy5Ta7Eczz +n/UfLuGAceZFm2XuBNfr6ZyO9OHAkBG3ZfwQnT+afvXQm0DQPm7UGH+UYDXz +ydWbpQFQ9am++hmP3nffzTmvsv1AOitE2ziM3t/nbS77UvzAyXnN5Qe0XUqp +qA+xfvCzOdGXH07wpY/w52VefqBx314xKpKgxFPKUWutH8SFDfkaRRMcki37 +x/n+UbBdIqh0P55g6YpomVVNvjCI+n6Z1whOqu7xuk58QCShYe7yVIJLNvwI +frLYB5b3shL5tKc9lst9EPEBD15swa00gnt6K9LutR+BkfI3YwXpBM0fSBVf +YB+BL8YnPEuz6LyYXltSkjf82lLp1pFHkGksazc+6QmSZpZ7xcoIbshaX5o9 +y4a9B3sNw2gHFDQ4ZH5kw/Vwf7Vp2u373gXkt7JhY+mlz6PlBB29FCYms9ng +rDMU8fIpQWd2Z435XjYUKYUWnK8haKVeJf2j2AMcvhWIqzcSvBG9SkIsxB1u +pMg+Nu6m++1dr5an6wZnJeUL62hX7jty3nOpGxw7oZhl/Y6gWIXjgk2L3MDc +RS3BqYfOm8U2i4+4wpiGtltwH8E2vRJZ/2uuoPdwp2ThIEGRV2VrmfNdoa4z +3JEaI2g/cFBk6xgLCs1P7ubT/rVH8rtoNwsuP4rZtuYLQU/2mdWvnrPAOzVB +2/Ar3X+5XzY52SyQ9rgmbD9OUOPRoKCIOwscJh/mxk8SrPpdyw/vY4IJu/T6 +kp90v/bHOm5oZoLW6/LzV2m/f2+e9KOcCbOltbycKYLirzSt09KYkB7VblM7 +TfBiUPTdDCYTTv/sMrf6TdBmkyCjbhcTAg+9hXbaL/qtLk8bMWG7Zf/K/hmC +J4noixjCBO2yIeXDswTNzu13GZJmAmPdiMw32qvTHT7sEmSCYMbneUF/CJr2 +SFk/G3eGUdlvM39oi/Pi46z7neE/rgnY2A== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6.5, 9.5}, {0., 0.8414787587202844}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.500000000000014, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{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.5, 9.5}, {0., 0.8414787587202844}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.500000000000014, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0nk01VsbB3BlilARvY7xt5UKDVJxRc+DUpShbogi5yBOITKc6Lg5pkLJ +dJs0EHISGaJJCRlTZKZByFAolSKJ7u/9Y6+9PutZ3732etaXYh3Z7TZXQEAg +mj7/v5e3KggJCDBwyvvaG9dPw6BvFLTxK+0cYaMr3JFhsLzd7tE3h4GGSkVl +SR+HIfBUwotKQQb2bj63pmxgGKoNRM9HizKw+4FA9qLuYXDN/LZSZgEDc9eZ +Tp5rGIbUwDordWUGbmjnL9XIGwZ5eU7KTgMGJtgXH/f0Hob/1Spl3Aph4M3H +V7w1uz7C9HzNnOKH9H822R7mGn+ERs2R1WcmGOi68BOzLf0D5BVPEI6uAjam +bLQzHRkCv1YPOQl/BdxclxdlpDMEJo7qx+8UK6BL+k4xuQODIFRxzmHFhAL6 +5uU464QNwM0Sr7+2r1PEGrboZvbNftinEh8d7KeIlyKC5A7eeQ9flsh32eUr +op2VmJNPZR8Eju5JnzuqiOseZjalNPeCmOab7idaSmh06mzk1qoeCJ2tk1/B +VsKxTlcpzZh3IGggWH09Wwl3Rdzet2PvW+DYjI0ODyuhxdcWg7zVr6FR0Fim +W10Zw6Wf3erQ6gIdxZ7s9+7KKJua2/hZpAOO1/UbJWcoo9d0ypGPC9ugsWe9 +ud2gMraKbJ1onNMCsq26L4bUVdBk97R09qIm2Lw/zUrNRQUtXlbMBhU2gL+l +rYlvhgqeFMrR91tdD2fafDce6lVBX0PPb0rKtbBDUXX3BSlV/CryKCJ0TxW0 +z80tF1qjiqy7GmaicRXQovMp39RCFSuFk110dcqgXb6lc5G3KpqW3Sm3eVEC +zV7SpSZxqui2YI5uY+09QAlhtR059FzvMD8/oAiKDlwpe/1cFQcYDadizArg +0syHt0YjqliVmbNkwD0XgsTi7kuJUXhJ7KXb2d98cHrWWe+6kkJLeRvGqq4M +KG5rd4rfRqEuP4RhF5MG0ueCNbZ6UHhtp1Fh49Rl6E1tCmiMonBnTcDFN8sv +AF8+7J+yDAqTE5ubTdST4cDRk+7GmRSqJhTWW8klg1z9aetK2no9vAPuIskQ +yT1Pam9QyGiev+nBYBKw3uVUN/IpnNLf9nMwKwkUMjuk3uVQaK9oYeaqlQRx +a1ddmymi0MXdt6PIMBECtnU+0a+i0FffxlkrNB5svd7M3qFtIO7l8MwvHjYm +9Riuqqaw323ruI97PPzs/lCiUkMh9Q+OdljGAzdw6p5QHYU9hGJLKMdDRCYj +v+E5hR0p/86T456FZEHHVFYrhbz1fc0B8+Kg6ElvaMx7Cqs54rWXrWOBza3t +l+yn0Cx7MUtRPxaU/8rbnkD7TsiyXblqsXCqkLvwwgCFVQKfZ+dOxsD+zCWp +mUMURvJCLblXY0A41uJJ2QiFcoO8kMtfosHW9sHMxDiFxxYHs4zTTsHUaHyw +ixDB/C1Vrwq1o+DgAq+gftom/94+GaESBc3aZsfchAnqWrw1cJWMgpzAOYHu +IgRLWFMXLD5GgrPAUd/D8wgOOAyK1qRFQq3M3x5+EgRD7/pa75SNhAv6srbh +iwne7Z9c6SQSAbqnLmqnLyX4J1c76YpUGDRw/KMUltHvy1bd4guEgau71esk +2kLhnD+Pv/Eg0VQ4MkKdYEtbk4FoBw8+Cfl2uq0guP+Rk7VMKg/SedtPrNAi +qMzjjc1fz4MFxyef5+oQlLSuCLZ2CYUhLxuP+8YEy492vuaWhMDu79J9+iYE +Z5u40TbXQ+BR8Mt9j2mPZxwIM44OgcSTO6wqthCc/uMpb28XApvTjDY+NyV4 +IjBFl/OdC8mtq4R6zAmmb4rRPLSOC8abRFJF/yZomCCeWvkoGK7Mu9dh60Iw +bXvCU915x2Ddfr+sl7T1umZ4Uj84UJ23hmPuStDi3OzAeC8Hvtjy5Ta7Eczz +n/UfLuGAceZFm2XuBNfr6ZyO9OHAkBG3ZfwQnT+afvXQm0DQPm7UGH+UYDXz +ydWbpQFQ9am++hmP3nffzTmvsv1AOitE2ziM3t/nbS77UvzAyXnN5Qe0XUqp +qA+xfvCzOdGXH07wpY/w52VefqBx314xKpKgxFPKUWutH8SFDfkaRRMcki37 +x/n+UbBdIqh0P55g6YpomVVNvjCI+n6Z1whOqu7xuk58QCShYe7yVIJLNvwI +frLYB5b3shL5tKc9lst9EPEBD15swa00gnt6K9LutR+BkfI3YwXpBM0fSBVf +YB+BL8YnPEuz6LyYXltSkjf82lLp1pFHkGksazc+6QmSZpZ7xcoIbshaX5o9 +y4a9B3sNw2gHFDQ4ZH5kw/Vwf7Vp2u373gXkt7JhY+mlz6PlBB29FCYms9ng +rDMU8fIpQWd2Z435XjYUKYUWnK8haKVeJf2j2AMcvhWIqzcSvBG9SkIsxB1u +pMg+Nu6m++1dr5an6wZnJeUL62hX7jty3nOpGxw7oZhl/Y6gWIXjgk2L3MDc +RS3BqYfOm8U2i4+4wpiGtltwH8E2vRJZ/2uuoPdwp2ThIEGRV2VrmfNdoa4z +3JEaI2g/cFBk6xgLCs1P7ubT/rVH8rtoNwsuP4rZtuYLQU/2mdWvnrPAOzVB +2/Ar3X+5XzY52SyQ9rgmbD9OUOPRoKCIOwscJh/mxk8SrPpdyw/vY4IJu/T6 +kp90v/bHOm5oZoLW6/LzV2m/f2+e9KOcCbOltbycKYLirzSt09KYkB7VblM7 +TfBiUPTdDCYTTv/sMrf6TdBmkyCjbhcTAg+9hXbaL/qtLk8bMWG7Zf/K/hmC +J4noixjCBO2yIeXDswTNzu13GZJmAmPdiMw32qvTHT7sEmSCYMbneUF/CJr2 +SFk/G3eGUdlvM39oi/Pi46z7neE/rgnY2A== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6.5, 9.5}, {0., 0.8414787587202844}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.500000000000014, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + 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:eJwVl3c4lf8bxxVFVsg5R1/r7FFElEo6992S7NUiu2gXCQ2SrSWSEEUoIZQy +izIiZSTZyWgYRTIyztHv/P55nuu+Pn987ue53tfr/X5TnE9aHlwoJCS0U/D4 +//twz4S4kJA82ujxeNdlZ2Bb7Kad75PkUe27emBB8yzEEGbFVc0IGDPFvDB7 +jAdjqjVnvo4RsOTjPmujU3xg1Cr7+kQSMWNgiGnbxoeGDT9Eb3JJuPqVLu1g +GB8Cdco3kntI6Hj4oj8riAfZ0zLj2hEKOLq+u248dxae2PzQJ25cjqm+dMUn +ZtNQurNh69HO5dgi+sv67otJ2Dy/olI//D9kiMyKe5b/gXqI/RW9UhH1tj6S ++zMxCmso1/Ke1CriVu2Z588rhkCmZpJn7a2Em/nfmTeSv8HU3MnRIwrKmPnE +pv/jsV6wnLQ7KFqtjH+oG2veLe+E0OsfvT08VNB/3DNKo70Z3jyz0TaXU0Xp +ZVWdNeRGOJ+0y+NZmSpef7jmRBe1BhIkVz+u0iQjL6y7WntTORSsHHP2DCNj +Z9KSu9tzi6H0v0nXy91k/P7qUZn1hTwwbLxU1r6Kgows3ovd/VkQeahm389g +CpZ/ntrTUZEKdtW3Dda3UjBh6bjTU8e7QJjKCB5mUtFk6Ey15I4YCBP1EXH2 +paJDnUhOTUEE+H+pa5Wtp6L8ubNUkSWhsCb+888gBg0TYx7kC4M/NNNXmzuc +p+FVE3aji7A3zJyREjv9jobUm7ZTFQ9PQfujlAWGVDqesvQBr2NuwE0tN7M5 +TceuWpmR862OEHGC8fNDOR1/Z3+fD7fZC3cUt9RKLmegM/E+SV7ZAtQifvD8 +DzOwfYzhS0gwAJ9v+u6FrxgoXsJzV9LeDDsXauhy5JiYc+iOl/ad9SA6amOx +wJmJMgfpV8qfrwb/UsxIKGQiUXNjdnANG/ysc/a4L2Eh93OL85dXFFhX16q/ +xImFzyOjNp4sVoAuwrYgsQIWWjfG/vxiLQuLGRuIm0XZSBN3E43qEYNh4sCg +nj0bX83WOPXYLoBdDapyHjlspPROPOqrn+Zm7bkTJv2Pjdu2FTSXtY5xS8sb +8cQuDu63H70UPDHA3TVx3UT0AQfN0qSf7f7Sy30fETz77x8HTz7feCvsXht3 +t97yFa7m8jiz4Ij4hpkZ+NWimDH5Vx7fzus+Tc6eg8r/nF5dSiLgQZ1tJbx/ +PJCY9DibvZmI+cH2+5IK+TB7KaB80QARVw7DaqNaPnAKm5P3RZDwU4L6u1VK +fIi9fZiUsU4BVw9XvnieOwe5HJ4S45sCgsrknPiNGUiddl1RdFIZC8sCT/17 +1w0/X8eOvFBSQdVDUm//NrTCA8rtXU7lKpjlmZCZvb8Jkla0WS48rIqm3ok7 +loy9g+Mj6uNmYmTU2VmkPSVUBSuUZMUS95Nx/fKTvahXBrq08QMX88hod1zY +mvoxH4LObFz2dDEF8z+4Tt9/mwsnlNIkXWwoSOg3SGAGpMNfkqZFVDYFJQct +zDIqk6HInvJD9h8Fx1cWVtgujod6P9kqpiUV/acmlr2vi4KgcepIURoVZTKS +Zt4vuQIdL3Y5v5uhYpzQB/FP+wIhyCFUxcOchmpMZeclNufB1URV7XAKDbs/ ++GU0R5+GwYi2oO4pGjrtuHuX/vsoSLLy2E2GAr0qzcWZfXYB1yUTysQ7dLxx +4WviUOp+IFRp247+omML7ynn0xFrOPApul9/MwMJ3xkabotNwFKXVKB0i4Gu +efoeO25ug57x4k+nBhl44PeAmLPCJkifrtxO0GXim46bbPOeNVDZUsc3vcbE +1HQlBi1ZHS4umRYS7WWisJTb1QWzdOi4sdVs01oW1rpqOX1LVobLY9e+iV1l +4Qab+rf9efLgnsito39hYafOWpMMOymYTpQRKtNio7/3lY9z1SJAHhf2aw0R +6NXE6/PyfXyu/007E2xl48rz8Z8J4pPctVL5B7grOLiJtckuofUX93KnRnWx +Lwe5CdpevirfuDJbxFOFP3IwQHLdooGMz1xH6dD/tNnyWBedrhodMgOxBVkz +ju/l0ce2aseTbXOgHvv4YKM3AQPlqv+FFPPA73Ki99vlRHTbKRZuG8cHGWaj +atkLIraKkt+XtfKBN/3ZesqVhGnGU9Zf9vBB+sctzjcJBeyIhNTtZB5oRC4O +UytWwHuBCw98oM+CyblhSbltynjJzsI206UH7tnOcfrGlHHiXc9C/SPtQNz7 +/PvheBWMzFFIjov6CHknl299tEkVN2ywOmUgVg8ZpXvVVgyoYtnEjGlk8Btw +kU+2eaJPxiy+wtrPva/Ah/WnfyaRjCWKpRmfcgqBYqCw6e4fMr5enqM/THwK ++72Wud7dRkE7+6LObwkZsA0v7IJ4CqpHKNeMr00BiZtdJMYwBXd/EK59rZIA +Hrr2jHA9KkqnaBGYPtEQ4msycy2Siif+Xf96Yec1UK+XTRzpp2JPQneemXIw +dF14GjynS8NnX89Vazf6gvIGNvdABA3nhWLZKbpnYGzh6TfsXoFe912MnL10 +AjwOrSRc16HjQDJthXnUQWja3amzPpSOrmfF9CVkHKApLivFsY2OUXcXXn1g +vBv8fYZbOOoM9CzpuCMcbAZlB/61m15k4L9hvbNP/fUh66d/ivwnBu7cGlQp +nALgw58BVSYTF72O0lqXoQPfnaNZ6d5MNKqqi8nR0gShAwmfPrxn4oFAs5XC +dUzI8jhrtUeVhetFVT0m15HB8YsWMdyLhV8Id0jWSUR4sO91OvEdCy/yHBQf +/lgKF3vpEkLKbDTOeVL38sViWLxoSvuyBxuv5qVJxg//4x55Uqqxr4KNnbL5 +LqltU9xTT9O9HshzcO7NV3mCxW8u3UwoKPowBy9V7O8Sn/zO1brz3if4BQfj +FY+4Gxv0cLdMXba5TCPgVo1bMVmyPLBJlFfUfkvA3yxKW7megI8OBudvHibi +9UCR+uI6Pnz9vOag8TISKh4u7uvI4cNu73cjLwpIOLR5983gTzygGWxadNJF +ASXT96+R0pkDnWGfyr1DKph34nDbsM4HuP4txtk2WhU3r6afd5p9C0G+Go2X +lci4j9xU33ezAn7TLj0P8yDjF2WCj3HvC+CpTHwTeUtGzLlnPk96Dj/u2w9W +/UdBrUeRtkuYOeBfrpPHOkXBTGgSJ9x4ABmj/cbfyilY/9hms+yJJHBb4Zo/ +L0fFFFQ8myUfCysrKg9UulFxvGX12MbtkRBweLrvWxEVdz5hUGwnwyA0M46V +vlSgp10XbZxLLoHalv0FAwdpeHO7f4Iq6SzkOhH/O1FAw5q8hjv7lnpArxJ3 +a7QkHcsSNv+l3joMad909YgOdMxe5fDtlqEzzJZILprIpmNs1k7O/cM2sPd3 +sZyfMAPfvWuLPv7EEgy0uL9ddjGQPsiMky02hG9LNaKHMhiY+VvI4nfDFpCf +mxCt4zPQ6Kbso4+vdaFtPMJIwpSJbq+ou07qasN9Q9HmyfsCXhp2LNNdvhLm +s63U9CaZ+Eoq8T8DYxqI5UgZ0YxY2OTfmNMmqwh5woPPwpJZmKB2xB/H5ECv +t2RMa5yFBOefRrtFJcDDhjfha8BGcrnC8S3zC0G3V7aGfoeNco8bGhLnZrkx +Z3hHWMNstNqlvongOM6ddauwbAGBfy8bjaAaDnN/uzmI90ZyMKu/4NHt4/3c +kYEdDZcGObi4fPlyNdFO7oG/L6OWy8tj1d9pZSvjGRhhnUmOyZfHikiTXDep +OehrsSr0diGg6zKJR0XRPFj/6elUyyIibjRbaLs4hA//TXvVKz4kolSQbEha +Ox9c45yzKy1JqLpRcz7cnQ810llPF06R0PPj86/PrHgwUnllU26qAoanFi0V +PjYL1BJ1P+4qZTQznZ5s+N4DPulZ1Z5dymhu/fWOLXSA6eltGidCVPDplr/G +1drNoCenW8JjqeJxkYDaaHIDRGnsMRv9qIrrJUY0pC2qwV9mMLBkIxlzE9pc +Ll59DbGP3GnrbpJx0SJNQ4/MIjj1ZLFl9AAZXWW3PAt88xSsUmrlXmygYGLA +HXGv4kw4Yn2/lXCDgqF5fE/tmRRYo66bu6qXgs1XLhXs000U9IGgXcWrqbjD +6PGDdptbEFreN+8dSkVm8hmp2+euQ0vLSV2hdiquuXJe4pdUCIRJGGxATRry +00IdulUvwnS2WrVTsCCPrvppdPY/Lzijhz9MWmioaey0cLrnJDDD3SSOqdGx +PmGl+fVzrhDGN92605eOhkH2Xc5qjqApMrgjro6OqfJ61m0me0C6NsZckcbA +xZz4DO4xc5g6e3rYzZOB9h0W21zCdoDcoMvl77UMLL6nuizJD6HnovwmuhIT +D/ZJ6N5LXAdT6d4vmo8xMSBeZOPwqCZg5AgUlDMxbDtRzq+KBbdconcdkGeh +79K7Gry/ZDDeHbzq7VEWltzH2SMPSfC6ICBm6WsWyurtDXuaJANbhHNukOXY +WN0/Y3OpRhSmpUavuxxiYxNRDQlpQuCIo0kHi9iY/NW3Obb+L1d60f2LHUs4 +uJzOeCMlM8YdCzvkfMmBg4cSzQ6dHv3BraxWd9F/wsGpWMVW+aW93FhXq4Wv +pAjIBpdTsr1zsLSr+HjHMwLauMb2+6nywTLDbjZpFxHTNb02+FTyYTSnc9kj +PhF/fT71JK+UD69I5gZXUkgolGt9au0sD7pPWl2/aqKAix23+hR7zsGJxWJS +di0qyGP2pjVWfwBSWEFHtp8qqnW9flE0VgvTz7OdjsuRsbJcuffajkqQIr/t +jnIj49Ws/qWOS0pBMfk0Y0spGaU/iO/0H3sOOpIm8yUyFCy2nTK9tTIXvEd/ +OWw/SMEW+c5onaCH0Cgs3lBSSEE/M3c7BjEZblRWmIotoWJ96tXSNrE44JGH +oyf3U9Huxtic56IoCMy+NtCQQ8XBkPUfHWbDQfPZ38oiERrWJzrvXRkSAG2N +Y0fUbWlovr8k5KTWObjS+l/K0cc0jFvjn7Om3gMO7pY4ULSAjlNyWl7LXhyB +vYu9tSasBXNUZ8ynpS6Q6+wvuyiNjv62kZGhl2wh3+Zvfv40HWt8TeOMwq2g +JXDw8C4jBp7s5Gxd02EESoyUNOEkBn5Q9jWNztoK5/62jtwdZ+Culvh3Xd83 +AnplGMhsY+Kw48GzUkvWQN6NoUPUWCZ25Wa3TO9SA25XWgxlmIkPb71+kaVC +h7F7bBNNZCGmBjB8LJXg7rmNdTUxLGxUqhS7WbcMdoPvl5WDLOzrdqs1VZOE +tRdCzt3dxMZ4/RSluc/CoD4kTpu/wUbOrM+jBXQe94qIepd2LxvHpzTc8jQn +uLHFL2zF13Kw3/bMmpvhP7kvk6sH6kI5qBCctzN081fuRcKjoi3dAj4u0fNT +s+ji+uwTXca5SsDjTsMXTbt5UAlh0yXqRLxTfihtUwYfFllz3J2biFjaRnZK +aeJD1N59c6zzJKQKW+Yd3siHB/Ynaq58JmCcVpZWgSAvdstr84J9idh3ZDLe +vpkPHRLX80fZJPSvpVq/SuSD3YvvX19NcHCIXFSk8b6d+/1oe72kuDzikzCm +kMYMLHfcd+ZJpjyu2vE3W3dsFvSmHjgZ7SPg3hULxUiXeBB9blP+5zkCBrne +zfc8zweyUy3DMIGIF1XIvQcFfI4fpHdmGpBwL8+x1MJXsB91nbfsMAlz4kjV +psd4UG9vqvAnTgEjD0cvqLo+C1c76/OtacoILaZLvTi98M00mFj6QRm9Qt3T +fmR2wJDQVatTF1RQLVuNMR7cDJdcDL2ZyqqYEdtoOZvTAIsPtfR8eKuKQt0p +teyiargufS0WdchIHxK5LP/1NaQfWV3x6RoZD+ypiMhVKwbSd9/9Ef1kPD3/ +XeY+OQ/qNzAHDddQcPGiwIEzJlngZ/9cYcEVCm5Vz/92yy4VDGYPXdDuouDm +jL+DrPeJoFZ9+5elGhVTCfrmLxtugdjBxwuOB1DReO2bnDRSBKzsVFkS/pGK +wJY6Sb0cAt1Ncjf7VtDwUPHfgOV1F+H7YPYVR38aTm/n73pzzQvWtT/w7mmk +YdE72YsUo1PgHxe82JZFx7ORtU36f1yhvzHsrYUPHY+VkZKWXXIExw2i8Wtr +6DiuTFEvatoDzR7HpORVGLiu6cvj1xXmEBmk7jlxgoFTIf0ZeTIGsN3tk29D +FQNd9lZF/2pFkH+dXMIkMbGq9BJbWXE9zBsNLj7qxkST+EajlxaroechafLR +S8FsGLzl0XY2iHcltwxJC/LqjPMHI1sKlEdm6x52ZaFco/S4q4YC1Lu6SEm+ +YCHX7mdUx4wM0OU9P+ZKsnE4fVj9r6UYeEQd1TN3YaM15ciB4H9C0BEa2n70 +maB/7V7JPWYyzbXLVgnyFOGgfe0V+7ceY9y2tIQP3jYcLKt7rJJ0aoAraW/f +9iCTg5rjtX7/zvRyy++ua+lYSMDWr7KecjVzcGROipSdQUDrtmU+IjJ8yDYb +KHpoJODxGw2LbgGPJxQ0jrb+IWLO41tBPwS8nnCTO+MRR8KByxmnwyX4UBLY +bXlniwKSaDvSl96cA/Fos9UO71WwV+O4e5lsE+xvr45pO62Ks5pGOQ6n3oGW +5YkMeykyKvAr/wtLqQQllePjJGcycnxl7rknl8IKZ+2qnkIyLv5oq7rTKR8+ +Y6VYgQQF92w7nD94Nhf+BO/UaXagYHAGkTi6IB2+SinLPMyjoK9XwPKYY8mQ +GvnnPykRKgoJjRGOhMTBN7N5tet7qKi+1uDu7UNRIGKxd7gyg4or8lUlKvwv +Q3Dhg5tb/gn60tlMte6RAFgV+6KyYRcNWxr+imZWngMfuUS3I+k03LLy+6pQ +zdPAGnefMOLRMNNe6+cJ66PwlHhLvd+MjqvjNGaDz7iAhE7xbakkOm585itR +LrsfvkcQlliN03HF0nLN5mkrSFQrY5rqM9D4j29dxQljKNCwW3UjnoE3t7V+ +SFXZBo/P7OwLHWFgDUP7pqifHngWrKuWAyaONvOjo0+vgRfa+/MKo5hI3ZS6 +NX9GDbr/1BvJf2eijZghR/sKHVwVdOrzdVn4dt0VS8NpJZDPP9B+KFKQD3qo +wZ4gDwdG7Hazv7KQvfzbqFuFJBCvGb1ctZ6NevGNEpkWIvDgRGjj0BU2HnHk +Pxx5weMuNq6S1+1i42thIRP9hAnud5cNjqkaHLSo3rapeNUvbmrp3J7KAA4m +eYgEdGZ/5dZktq9KaeOgv8Qngiivi9vkY/OCd4mAIQ7M51nveUD5JldYTiPi +5r9bKhXv80H85YWaG9VEFP3Aqo79xIfqdEX2UncSKv8dvs7fyQchv9fuDh8J +OPH2oGiYIR82Fr8suXqaiKyBFYpOH/jwxbNXSkWFhNasgdq1DwW8tCTZUEY5 +OKiuGtLm1sHt1GCva1xKRMvZjuD5CD4QImjev54Q0Sq5QmW5gLeTIh914x2I +eDViuPbYWz4M6Ye9OCdGwj3B+4JyCvhwKJ6//vk6Iq4zfJNe9kSwz/Cn5Ws+ +E/Fp6kvhL/V8CDiZrncxlIjOuF//aQsf5Jn5Jx1nOdjobqSktKady2b+OLZ4 +kTx2N4+tMiLPwKoLRl+4D+QxcvPDB8L9szAYbK6z1pqAuk8tW0jePNhSt5DY +O0XAh+bTPX/O8OE+wdOiN4aItxrNW2ba+PBMNsT93lYS3ndoW/gngA/RWRfa +Y78J/OFnsZuVDw9KM3MW3YxWwLWvDs6O3JuF10dVP35RVsbt4REi0ka9oHR/ +7KXze2WU7wxMzO7rgMLqnIPu3ir4TvbJipM5zUC/armrhKSKb/QDT1ycbgAU +ieFUVKriom9LNRt+VcMtqS/UQG0yrsyqveohUw6aRrLLGFfIuG3ybYbGiWI4 +4l/UK9lLxj9Se84ZmOaB5CJr66jVFFwUPO2yJDYLwvq5RV5hFCyUyNl3/kYq +NDn69z1vp2DNPt12eeJdSLJP3nCPQ8XrijcbiRIxYJAvF/jjIhXneiwKrdwi +YLed16m6Rioue8Tr0nsbAuE602XabBp2iT89fVXOH+xEf//64kvD36a3jA1r +vCCW1VHGqachefr9ca2zpyArWT6oiU5H1/DJHmkNN7hRnCbZcoaOMqe0DGWy +HGHailgRWEXHzTf+i9pC3Avrd7QevaHIQFMtTQfN3+bQHX65UPcYAwd/GZsv +2G0A9szrf7dWCPKUzvL1Bos2Q7bTwOxDeSa+9Ms80myzHgKUqWr5B5jYqJb2 +0idwNWhqZ5nRSpgoSlp87FUIW9BX2KRVkiw8bzJj+P4aBS5oVGCRCwuNZ2J8 +wjwVYFfpR4PLRSyc7az8S2bJwq2ElonpJWwsq97dZh8nBtnNnJtvHNlo7yvW +76m+AGIzP06OPGGj5ynjtU3XprkiwnYhrxdwkJIY7c5LHeMaPdNZMr6Hg/qU +nx90nw5wNR9NybWmczDw8/Kk/Rm93LZiQbbny6Nzgz/hUMkckK4UDN9OE+jR +55yqnBgf9t9/vDxTn4irz7LLP5bwwbuuLebELyK+k7tsm1fNB+kbpyVco0no +eztN5M8yPmRI0Z9TNyngL++S0unkOWizOb3VsVoFxzg/u4nrmmB+QaPn8ROq +OJlw/dHp3HdgTq43bRUnI9mG6CzTVAk05TJfGwcydo5u7fMfKYWnW5YRNPMF ++jv+hzkelw+anf+urVlCwUP9UU5xybmgaeGdrGhHQTvDaijenA4jUQ9ylZ5Q +UGPUxuxobDKsml5yKWIBFQmkjWuJb+LA5ofo2Q5rKk68kv47Eh8F2+6/PAbp +VFTq+2j/p/Iy5OrOz4bwqJhkeGyfDD0Q2ueSx8hWNFxzNLJhQvo8jGp0vx1M +o+Fg3YmR486nIWxzmt6tGRoGPzu553PyUfiiQs+0MaHj0E65SeYjFyhUbe2I +TKQjxS3l/l+b/eCXQddK/k3HTmFCVdBqaxBasCK4disD4/8GL9QqNgaRtcUe +LbcZKKNbO3F/7zZ4s2bhft4wA29PL3xbV6sH0nv9FkfrMfHw+o2kzEdrABfd +ahO+wcTVv3d5TRqrwyo/lwfX+pkYevFznHk5HZKaX0jPrmOhg913h0RjZWiw +Ovul8DoL18w4h+w7Kw9D2+sjH/Sy0M/KaZgqIwWhhOxur7VsQT4Kcva7KgL9 +udtZTuFsrNz67sAdcT634qTs6pftbPxFIld8a5rgXi/0dh5T4+ANNbfopwG/ +uKS6WxHgz8F9+eH/nL5/5f6ccj/88RMHO0Z7N09afub6i4lEfr9AwFmPVs2M +Ch40rmsjvVEhIrtVcV+DIG9fc2dOsMoF/N50TOKNgK99jRdKFx4joYhFf5mI +BR8eSx3V31kvyNdKg9KFWwX8lgxUvHGCiElGq/j3G/jgzLmy4bkCCT+uLDpw +P5MPtYk50RY/OehuuT1WoqCDezngV8xHcSIu3NhcTLjCh9itdfeDsoj4uft0 +n4/AH1L3xMYn2hBR9V0figr0fWxu9YCsMAnltzqnGwn0T/xVHluoRcRk77PF +ctkCP7h3cfu7ViJKHahd3tnIB83y4wkBAUSk3BYqSRT423p304wbfzl4TvFu +3LOL7dzELPLs02QiHnoFzHuC+4T4VJtUcyI2uBK7yl7zweNAMOA0Eb8a3Ev5 +IZjDxD4mzLwnovC/TUPrBP3kqtu0bbgPEVNFIhZN/r/fdJw12l1AxD23PgsM +kA++OmojCX1EXHpDVCbnPR+alfq7zl8l4qXmUpWEVj787lBeq8nn4LKRe/dd +Btu4BsIjGwMXyuMrIcb0L4UZ2HB5W3RwijzOb9+7uqdzFl6ZpJEzLAhoQKIO +SnrwIN7rW5XzBAG7kifqaKf58HXU4IdaNBH77WU+5AruL0/L11u+mYRxVWbr +nwQL9nW/d7mrj4Sk6S9hW/14oGPpeKE/UgFDfS9Je6XPQlfeDieGojKG2TPW +Ddv2QsG7h7LP3ypjX07rYa35DiBnvh4Z81TBlAsB9fqVzXAmaXflIoIqHgz9 +d+q8dCPYN03WbSxXRXp50pCBWA0oSIkdomuRsVlVqfANsxw8Ny4oeR9Oxp9r +f+WzIooh2mRP6rsvZNTmzDdvPpgHmUNDS3Q0KXjMMKk49mUWSD4IDF8dSkGb +7PoYxYxUUJC/SvBuo+D4YIm7yca7YLPigcN2NhVTguvp8+wYGLCvqkj1o2KA +J3f9mYgIOKpCTT3ZQMXLfpY14oMhYD9wZHcXk4Zngo4uLWL7g0KMzL17FwR5 +svzi9spvXlBTP+5S/56GmtOjYkdvnIJyRteW6zQ6ssRuX802cQM3jTWrYj3p +mDRmtrLwtSNs601sXVFJxx09d11N1++FI08k75j+x8DvgQGhNxdbQLBkUcfn +Iwysk8n2+ONjAMPBR9bMv2bg+z0y0jSlzcB7ciX+0DIm/nBd2jVybj1sCykt +tXVh4hGtJ2VXElZDm88U70sRE+EdR/3aQzY4TR0taBBn4XBVwaGtDylg41e3 +1cmZhTPHfZa63FYAhaErrjsLWajkxjUe2yQL9T2hixLF2Fi+tayj+4UYvJ8M +K73kwEarczFSd7YtAK+XM4G5uWw0yP4ivD17mrtX/YLoISFBnzHc+8+odIwb +VCKclrubgx7HpyUNPw5wy+u3aJ58yMFXQxdHqip7uX011MnsWXkU0kyzE3s+ +ByOWki2SKQSkfNxUKyEiyEtGN96qbSNihqUxE4r5UPjwsVrxEBEfE8eqFgny +nhI9teVLJAmrDpP7CQp8SG7Sd3XVVcAqt5aq/Y/mALjB73sqVTCJtuJ5x84m +MCM29xccVUUe22d9duM7sBedT7q5hIy3Vrnf8B6shAdKA+VzdmTMumD13JBQ +BlNawi9bn5HRdqBV9Fx+PtikJ5qPi1LQYTvra9TzXGjQkd5TZkvBuEvHNbuc +0sFj17B/aw4FA424ob7ZyeCZSXhmLkTFBz1NhYzvcSCfJ3nP34qKhue6C4yf +RcFXw1OPeQ+oaHPsGsfwx2Womnu0ijNHRfG51Tt7uIGQ/VheUIBpqO7cn3hw +zXnIKJ0/9yiVhnHaX9dHnj8NhQOlPRumaTgccrD4W81RmLo/fJhoTEe5K256 +KypcICL6IM8qgY4vHO7tar+4H2rXZekbjNJxSiS+V8HUGrSOOjwL28LAPA+/ +OO0eY8gsGIg+G8NAb26JYc+ZbWAV3R2bP8TAfMkLi/zG9MA2nfLAeiMTJ4VK +84cr18DCE6uPPrrOxO95X6xGvNShpeKxlWEfE0k7XC8Tu+nwUkso544OC8fz +f9yieitD1v3APsdrLNw7Ed4XHiMP2e4hOQd7WEiIz/r1XkcKXu1zGP1vDRsX +9q8qYmWIwMKmVEulMDZWcN31X63mc+9fWlfm18bGLtqC1KMjE9y+vpj+2ys5 +6KPmobrk8S+uebPzSr6fgM/PPy+0W/iN66dUGnK0mYOHo2R66vw+c3c37j1v +e46Av1uEHimV8YDVW1y9Q4mIQv7hNvF3+FBvNBd+uoyIQdmtNjsFfB098Dj8 +wmESEhw23/O25kPQpzLN0ncEzFBWIG1BPmzOP/hO9hgROxnXGc8EfSJF2LFB +iEjCaaYDq+qxIG9VzD0ZHOLg/rcx8/zuDm7vykb9XWJEXJDC7IgK40O78v31 +jY8E/vM+MOaWwD/mhM4bqu4V+EOH21BllaDPf1rsZydEwu4rMpqLX/LheEya +ga4mEeWff16tnsWHyrPWncRPROxpNMmvEvSp0KPmxiL+RCwYSD4vLPCr2pj4 +avYUB2XN5TI/pbVzu0MmI+bvErEu+1B3mOC+PQ8WiTNNibj2QMUG61d8yOPa +fLoyScS7x1sJJyr48Lbvodb2WiIqJS2pGxH41VeZTgkJLyIaBv7cqynwq+Zn +pr3Jz4jY52sj1iLwi1KZBUEDX4goftU7pK6ODyvfVF3lhxNxoPHNZTXB/wwQ +OmJZM8fBOYk0sVTpdq7Txnslt+KImFtwUEtHsI/xbQv7rkqBX18jdq4V5IXd +h6clN+QQcbnRPlczwXm7wpWfQsFEHN6gsUtdcL6/yeiAW6rge9xePksXnFsI +pT0XLyZiyCu6M0ewz4XTQuqz14k4uCBtXkgw2z//QIqd56D1zLXbNpVt3P8B +buGkPg== + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1nfYFWIYwOGv0tIiDe2SpD3RVGkLERVNKrT3TqShvVHJSijaKG2hbZT2 +3jRoby33c/nj7n1/73m+c51z3vN1fXladKrXMVFCQkLtxAkJse70T3vuZr5u +Rik8nLDLWQdSsUA3p3Q85sFJzh5hrx5OEnbrePLUfKNfpoDZlboJieNnYtbZ +ZPtH2adHUMTZT/plknGXsz3WTqThW13CzFr7VryiC+of7JuSJJ5bb7S2juf2 ++F16iv1jlLPfZN0f789+vf1rjNRF9c/xnFS032JNHj9n/6u1urWttbJ1u7WW +Namf22vfmSd0WmtZ6+/WGtbvPF7Suk5Xs75qfdy61VrT2sLjhayrdFVrM2sF +6x/x3uP12/9ibUMl+23xevxMUvsP7MtQ3n6z9UDci/0G+9cZpYvp1fYtSBGf +qbN91i6kY6FuSWFzP+rmJI3ndZbM2dR4PxzUo0nOft2Ve1ikW1E2HjP/YXzG +HNJjSMEB3Y17+V6/SjlScjepSE0a0pKOg2a7k57F+jXKcw+HnPXgPpbo16nA +vRx21pMMLNWtqRivw2v7KD4rDuuxpOeI7kVGluk2PB6vzfzHcRcc0eO4j6O6 +N5lYrttSKd6H+U/ie8NRPZ4MHNN9yMwK3Y7K8Z7NfxrfBY7pCWTkT92X+1mp +21MlPh/z0+I7wJ96Ipn4S/cjCz/oDjwRn6X5z+K7yl/6XTJzXL9BVlbpjlSN +z938dGdVOK7f435O6P5k40fdiWpxR+Y/j+88J/T7ZOGkfpPs/KQ7Uz3uzfwX +8R3npJ5EVk7pt8jBz7oLNeIuzX8ZvzOc0pPJxt96ADlZrbtSM+7S/Iz4HeVv +PYXs/KPfJhdrdDdqxV2anxm/o/yjPyAHp/VAcrNWd6d23KX5r+J3ltN6Kjk5 +oweRh3W6B0/GXZr/Ov6P4Iz+kFyc1YN5gPW6J3XiLs3Pclabs/ojcnNODyEv +G3Qvnoq7ND/b2ZOc0x+Th/P6HR5ko+7N03GX5uc4q8N5/QkPcEEPJR+/6D48 +E3dpfq6zp7igPyUvF/UwHuJX3Ze6cZfm5zl7mot6Gg9ySQ8nP7/pfjwbd2l+ +vrNnuKQ/Ix+X9Qge5nf9Bs/FXZpf4Kwul/V0HuKKHkkBNun+1Iu7NP+Ns2e5 +oj8nP1f1KAqyWb/J83GX5r919hxX9Rc8zDU9mkL8od/ihbjL+L/dWT2u6S8p +wHU9hsJs0QOoH3dpfqGz57muZ1CQf/VYirBVv02DuEvzi5y9wL96JoW4ocdR +lG16IA3jLs1/76w+N/RXFOamHk8xtutBvBh3aX6xswbc1F9ThFt6AsXZoQfz +Utyl+SXOGnJLz6Iot/VESrBTD6FR3KX5pc5e5LaeTTHu6HcpyS79Do3jLs0v +c/YSd/QcihN/gLznrBS75VCaxF06X+6sEfEHzFxLidg6f1+XZo8eRtO4S+cr +nDUmEfPi+Z2tsW9JSsro36ztqGK/I9H/fx+VNPsfd4MNLw== + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrsJgFAURMHrJ7ANW9FABCNLMBAeCA/U/lEDwQqMJlk47LRLntexjDjq +iJjSca5FfKt6qrlnHro+b3lPz5/iHRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzHcRzHcRzHcRz/g19Mgw0c + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl3c4lf8bxxVFVsg5R1/r7FFElEo6992S7NUiu2gXCQ2SrSWSEEUoIZQy +izIiZSTZyWgYRTIyztHv/P55nuu+Pn987ue53tfr/X5TnE9aHlwoJCS0U/D4 +//twz4S4kJA82ujxeNdlZ2Bb7Kad75PkUe27emBB8yzEEGbFVc0IGDPFvDB7 +jAdjqjVnvo4RsOTjPmujU3xg1Cr7+kQSMWNgiGnbxoeGDT9Eb3JJuPqVLu1g +GB8Cdco3kntI6Hj4oj8riAfZ0zLj2hEKOLq+u248dxae2PzQJ25cjqm+dMUn +ZtNQurNh69HO5dgi+sv67otJ2Dy/olI//D9kiMyKe5b/gXqI/RW9UhH1tj6S ++zMxCmso1/Ke1CriVu2Z588rhkCmZpJn7a2Em/nfmTeSv8HU3MnRIwrKmPnE +pv/jsV6wnLQ7KFqtjH+oG2veLe+E0OsfvT08VNB/3DNKo70Z3jyz0TaXU0Xp +ZVWdNeRGOJ+0y+NZmSpef7jmRBe1BhIkVz+u0iQjL6y7WntTORSsHHP2DCNj +Z9KSu9tzi6H0v0nXy91k/P7qUZn1hTwwbLxU1r6Kgows3ovd/VkQeahm389g +CpZ/ntrTUZEKdtW3Dda3UjBh6bjTU8e7QJjKCB5mUtFk6Ey15I4YCBP1EXH2 +paJDnUhOTUEE+H+pa5Wtp6L8ubNUkSWhsCb+888gBg0TYx7kC4M/NNNXmzuc +p+FVE3aji7A3zJyREjv9jobUm7ZTFQ9PQfujlAWGVDqesvQBr2NuwE0tN7M5 +TceuWpmR862OEHGC8fNDOR1/Z3+fD7fZC3cUt9RKLmegM/E+SV7ZAtQifvD8 +DzOwfYzhS0gwAJ9v+u6FrxgoXsJzV9LeDDsXauhy5JiYc+iOl/ad9SA6amOx +wJmJMgfpV8qfrwb/UsxIKGQiUXNjdnANG/ysc/a4L2Eh93OL85dXFFhX16q/ +xImFzyOjNp4sVoAuwrYgsQIWWjfG/vxiLQuLGRuIm0XZSBN3E43qEYNh4sCg +nj0bX83WOPXYLoBdDapyHjlspPROPOqrn+Zm7bkTJv2Pjdu2FTSXtY5xS8sb +8cQuDu63H70UPDHA3TVx3UT0AQfN0qSf7f7Sy30fETz77x8HTz7feCvsXht3 +t97yFa7m8jiz4Ij4hpkZ+NWimDH5Vx7fzus+Tc6eg8r/nF5dSiLgQZ1tJbx/ +PJCY9DibvZmI+cH2+5IK+TB7KaB80QARVw7DaqNaPnAKm5P3RZDwU4L6u1VK +fIi9fZiUsU4BVw9XvnieOwe5HJ4S45sCgsrknPiNGUiddl1RdFIZC8sCT/17 +1w0/X8eOvFBSQdVDUm//NrTCA8rtXU7lKpjlmZCZvb8Jkla0WS48rIqm3ok7 +loy9g+Mj6uNmYmTU2VmkPSVUBSuUZMUS95Nx/fKTvahXBrq08QMX88hod1zY +mvoxH4LObFz2dDEF8z+4Tt9/mwsnlNIkXWwoSOg3SGAGpMNfkqZFVDYFJQct +zDIqk6HInvJD9h8Fx1cWVtgujod6P9kqpiUV/acmlr2vi4KgcepIURoVZTKS +Zt4vuQIdL3Y5v5uhYpzQB/FP+wIhyCFUxcOchmpMZeclNufB1URV7XAKDbs/ ++GU0R5+GwYi2oO4pGjrtuHuX/vsoSLLy2E2GAr0qzcWZfXYB1yUTysQ7dLxx +4WviUOp+IFRp247+omML7ynn0xFrOPApul9/MwMJ3xkabotNwFKXVKB0i4Gu +efoeO25ug57x4k+nBhl44PeAmLPCJkifrtxO0GXim46bbPOeNVDZUsc3vcbE +1HQlBi1ZHS4umRYS7WWisJTb1QWzdOi4sdVs01oW1rpqOX1LVobLY9e+iV1l +4Qab+rf9efLgnsito39hYafOWpMMOymYTpQRKtNio7/3lY9z1SJAHhf2aw0R +6NXE6/PyfXyu/007E2xl48rz8Z8J4pPctVL5B7grOLiJtckuofUX93KnRnWx +Lwe5CdpevirfuDJbxFOFP3IwQHLdooGMz1xH6dD/tNnyWBedrhodMgOxBVkz +ju/l0ce2aseTbXOgHvv4YKM3AQPlqv+FFPPA73Ki99vlRHTbKRZuG8cHGWaj +atkLIraKkt+XtfKBN/3ZesqVhGnGU9Zf9vBB+sctzjcJBeyIhNTtZB5oRC4O +UytWwHuBCw98oM+CyblhSbltynjJzsI206UH7tnOcfrGlHHiXc9C/SPtQNz7 +/PvheBWMzFFIjov6CHknl299tEkVN2ywOmUgVg8ZpXvVVgyoYtnEjGlk8Btw +kU+2eaJPxiy+wtrPva/Ah/WnfyaRjCWKpRmfcgqBYqCw6e4fMr5enqM/THwK ++72Wud7dRkE7+6LObwkZsA0v7IJ4CqpHKNeMr00BiZtdJMYwBXd/EK59rZIA +Hrr2jHA9KkqnaBGYPtEQ4msycy2Siif+Xf96Yec1UK+XTRzpp2JPQneemXIw +dF14GjynS8NnX89Vazf6gvIGNvdABA3nhWLZKbpnYGzh6TfsXoFe912MnL10 +AjwOrSRc16HjQDJthXnUQWja3amzPpSOrmfF9CVkHKApLivFsY2OUXcXXn1g +vBv8fYZbOOoM9CzpuCMcbAZlB/61m15k4L9hvbNP/fUh66d/ivwnBu7cGlQp +nALgw58BVSYTF72O0lqXoQPfnaNZ6d5MNKqqi8nR0gShAwmfPrxn4oFAs5XC +dUzI8jhrtUeVhetFVT0m15HB8YsWMdyLhV8Id0jWSUR4sO91OvEdCy/yHBQf +/lgKF3vpEkLKbDTOeVL38sViWLxoSvuyBxuv5qVJxg//4x55Uqqxr4KNnbL5 +LqltU9xTT9O9HshzcO7NV3mCxW8u3UwoKPowBy9V7O8Sn/zO1brz3if4BQfj +FY+4Gxv0cLdMXba5TCPgVo1bMVmyPLBJlFfUfkvA3yxKW7megI8OBudvHibi +9UCR+uI6Pnz9vOag8TISKh4u7uvI4cNu73cjLwpIOLR5983gTzygGWxadNJF +ASXT96+R0pkDnWGfyr1DKph34nDbsM4HuP4txtk2WhU3r6afd5p9C0G+Go2X +lci4j9xU33ezAn7TLj0P8yDjF2WCj3HvC+CpTHwTeUtGzLlnPk96Dj/u2w9W +/UdBrUeRtkuYOeBfrpPHOkXBTGgSJ9x4ABmj/cbfyilY/9hms+yJJHBb4Zo/ +L0fFFFQ8myUfCysrKg9UulFxvGX12MbtkRBweLrvWxEVdz5hUGwnwyA0M46V +vlSgp10XbZxLLoHalv0FAwdpeHO7f4Iq6SzkOhH/O1FAw5q8hjv7lnpArxJ3 +a7QkHcsSNv+l3joMad909YgOdMxe5fDtlqEzzJZILprIpmNs1k7O/cM2sPd3 +sZyfMAPfvWuLPv7EEgy0uL9ddjGQPsiMky02hG9LNaKHMhiY+VvI4nfDFpCf +mxCt4zPQ6Kbso4+vdaFtPMJIwpSJbq+ou07qasN9Q9HmyfsCXhp2LNNdvhLm +s63U9CaZ+Eoq8T8DYxqI5UgZ0YxY2OTfmNMmqwh5woPPwpJZmKB2xB/H5ECv +t2RMa5yFBOefRrtFJcDDhjfha8BGcrnC8S3zC0G3V7aGfoeNco8bGhLnZrkx +Z3hHWMNstNqlvongOM6ddauwbAGBfy8bjaAaDnN/uzmI90ZyMKu/4NHt4/3c +kYEdDZcGObi4fPlyNdFO7oG/L6OWy8tj1d9pZSvjGRhhnUmOyZfHikiTXDep +OehrsSr0diGg6zKJR0XRPFj/6elUyyIibjRbaLs4hA//TXvVKz4kolSQbEha +Ox9c45yzKy1JqLpRcz7cnQ810llPF06R0PPj86/PrHgwUnllU26qAoanFi0V +PjYL1BJ1P+4qZTQznZ5s+N4DPulZ1Z5dymhu/fWOLXSA6eltGidCVPDplr/G +1drNoCenW8JjqeJxkYDaaHIDRGnsMRv9qIrrJUY0pC2qwV9mMLBkIxlzE9pc +Ll59DbGP3GnrbpJx0SJNQ4/MIjj1ZLFl9AAZXWW3PAt88xSsUmrlXmygYGLA +HXGv4kw4Yn2/lXCDgqF5fE/tmRRYo66bu6qXgs1XLhXs000U9IGgXcWrqbjD +6PGDdptbEFreN+8dSkVm8hmp2+euQ0vLSV2hdiquuXJe4pdUCIRJGGxATRry +00IdulUvwnS2WrVTsCCPrvppdPY/Lzijhz9MWmioaey0cLrnJDDD3SSOqdGx +PmGl+fVzrhDGN92605eOhkH2Xc5qjqApMrgjro6OqfJ61m0me0C6NsZckcbA +xZz4DO4xc5g6e3rYzZOB9h0W21zCdoDcoMvl77UMLL6nuizJD6HnovwmuhIT +D/ZJ6N5LXAdT6d4vmo8xMSBeZOPwqCZg5AgUlDMxbDtRzq+KBbdconcdkGeh +79K7Gry/ZDDeHbzq7VEWltzH2SMPSfC6ICBm6WsWyurtDXuaJANbhHNukOXY +WN0/Y3OpRhSmpUavuxxiYxNRDQlpQuCIo0kHi9iY/NW3Obb+L1d60f2LHUs4 +uJzOeCMlM8YdCzvkfMmBg4cSzQ6dHv3BraxWd9F/wsGpWMVW+aW93FhXq4Wv +pAjIBpdTsr1zsLSr+HjHMwLauMb2+6nywTLDbjZpFxHTNb02+FTyYTSnc9kj +PhF/fT71JK+UD69I5gZXUkgolGt9au0sD7pPWl2/aqKAix23+hR7zsGJxWJS +di0qyGP2pjVWfwBSWEFHtp8qqnW9flE0VgvTz7OdjsuRsbJcuffajkqQIr/t +jnIj49Ws/qWOS0pBMfk0Y0spGaU/iO/0H3sOOpIm8yUyFCy2nTK9tTIXvEd/ +OWw/SMEW+c5onaCH0Cgs3lBSSEE/M3c7BjEZblRWmIotoWJ96tXSNrE44JGH +oyf3U9Huxtic56IoCMy+NtCQQ8XBkPUfHWbDQfPZ38oiERrWJzrvXRkSAG2N +Y0fUbWlovr8k5KTWObjS+l/K0cc0jFvjn7Om3gMO7pY4ULSAjlNyWl7LXhyB +vYu9tSasBXNUZ8ynpS6Q6+wvuyiNjv62kZGhl2wh3+Zvfv40HWt8TeOMwq2g +JXDw8C4jBp7s5Gxd02EESoyUNOEkBn5Q9jWNztoK5/62jtwdZ+Culvh3Xd83 +AnplGMhsY+Kw48GzUkvWQN6NoUPUWCZ25Wa3TO9SA25XWgxlmIkPb71+kaVC +h7F7bBNNZCGmBjB8LJXg7rmNdTUxLGxUqhS7WbcMdoPvl5WDLOzrdqs1VZOE +tRdCzt3dxMZ4/RSluc/CoD4kTpu/wUbOrM+jBXQe94qIepd2LxvHpzTc8jQn +uLHFL2zF13Kw3/bMmpvhP7kvk6sH6kI5qBCctzN081fuRcKjoi3dAj4u0fNT +s+ji+uwTXca5SsDjTsMXTbt5UAlh0yXqRLxTfihtUwYfFllz3J2biFjaRnZK +aeJD1N59c6zzJKQKW+Yd3siHB/Ynaq58JmCcVpZWgSAvdstr84J9idh3ZDLe +vpkPHRLX80fZJPSvpVq/SuSD3YvvX19NcHCIXFSk8b6d+/1oe72kuDzikzCm +kMYMLHfcd+ZJpjyu2vE3W3dsFvSmHjgZ7SPg3hULxUiXeBB9blP+5zkCBrne +zfc8zweyUy3DMIGIF1XIvQcFfI4fpHdmGpBwL8+x1MJXsB91nbfsMAlz4kjV +psd4UG9vqvAnTgEjD0cvqLo+C1c76/OtacoILaZLvTi98M00mFj6QRm9Qt3T +fmR2wJDQVatTF1RQLVuNMR7cDJdcDL2ZyqqYEdtoOZvTAIsPtfR8eKuKQt0p +teyiargufS0WdchIHxK5LP/1NaQfWV3x6RoZD+ypiMhVKwbSd9/9Ef1kPD3/ +XeY+OQ/qNzAHDddQcPGiwIEzJlngZ/9cYcEVCm5Vz/92yy4VDGYPXdDuouDm +jL+DrPeJoFZ9+5elGhVTCfrmLxtugdjBxwuOB1DReO2bnDRSBKzsVFkS/pGK +wJY6Sb0cAt1Ncjf7VtDwUPHfgOV1F+H7YPYVR38aTm/n73pzzQvWtT/w7mmk +YdE72YsUo1PgHxe82JZFx7ORtU36f1yhvzHsrYUPHY+VkZKWXXIExw2i8Wtr +6DiuTFEvatoDzR7HpORVGLiu6cvj1xXmEBmk7jlxgoFTIf0ZeTIGsN3tk29D +FQNd9lZF/2pFkH+dXMIkMbGq9BJbWXE9zBsNLj7qxkST+EajlxaroechafLR +S8FsGLzl0XY2iHcltwxJC/LqjPMHI1sKlEdm6x52ZaFco/S4q4YC1Lu6SEm+ +YCHX7mdUx4wM0OU9P+ZKsnE4fVj9r6UYeEQd1TN3YaM15ciB4H9C0BEa2n70 +maB/7V7JPWYyzbXLVgnyFOGgfe0V+7ceY9y2tIQP3jYcLKt7rJJ0aoAraW/f +9iCTg5rjtX7/zvRyy++ua+lYSMDWr7KecjVzcGROipSdQUDrtmU+IjJ8yDYb +KHpoJODxGw2LbgGPJxQ0jrb+IWLO41tBPwS8nnCTO+MRR8KByxmnwyX4UBLY +bXlniwKSaDvSl96cA/Fos9UO71WwV+O4e5lsE+xvr45pO62Ks5pGOQ6n3oGW +5YkMeykyKvAr/wtLqQQllePjJGcycnxl7rknl8IKZ+2qnkIyLv5oq7rTKR8+ +Y6VYgQQF92w7nD94Nhf+BO/UaXagYHAGkTi6IB2+SinLPMyjoK9XwPKYY8mQ +GvnnPykRKgoJjRGOhMTBN7N5tet7qKi+1uDu7UNRIGKxd7gyg4or8lUlKvwv +Q3Dhg5tb/gn60tlMte6RAFgV+6KyYRcNWxr+imZWngMfuUS3I+k03LLy+6pQ +zdPAGnefMOLRMNNe6+cJ66PwlHhLvd+MjqvjNGaDz7iAhE7xbakkOm585itR +LrsfvkcQlliN03HF0nLN5mkrSFQrY5rqM9D4j29dxQljKNCwW3UjnoE3t7V+ +SFXZBo/P7OwLHWFgDUP7pqifHngWrKuWAyaONvOjo0+vgRfa+/MKo5hI3ZS6 +NX9GDbr/1BvJf2eijZghR/sKHVwVdOrzdVn4dt0VS8NpJZDPP9B+KFKQD3qo +wZ4gDwdG7Hazv7KQvfzbqFuFJBCvGb1ctZ6NevGNEpkWIvDgRGjj0BU2HnHk +Pxx5weMuNq6S1+1i42thIRP9hAnud5cNjqkaHLSo3rapeNUvbmrp3J7KAA4m +eYgEdGZ/5dZktq9KaeOgv8Qngiivi9vkY/OCd4mAIQ7M51nveUD5JldYTiPi +5r9bKhXv80H85YWaG9VEFP3Aqo79xIfqdEX2UncSKv8dvs7fyQchv9fuDh8J +OPH2oGiYIR82Fr8suXqaiKyBFYpOH/jwxbNXSkWFhNasgdq1DwW8tCTZUEY5 +OKiuGtLm1sHt1GCva1xKRMvZjuD5CD4QImjev54Q0Sq5QmW5gLeTIh914x2I +eDViuPbYWz4M6Ye9OCdGwj3B+4JyCvhwKJ6//vk6Iq4zfJNe9kSwz/Cn5Ws+ +E/Fp6kvhL/V8CDiZrncxlIjOuF//aQsf5Jn5Jx1nOdjobqSktKady2b+OLZ4 +kTx2N4+tMiLPwKoLRl+4D+QxcvPDB8L9szAYbK6z1pqAuk8tW0jePNhSt5DY +O0XAh+bTPX/O8OE+wdOiN4aItxrNW2ba+PBMNsT93lYS3ndoW/gngA/RWRfa +Y78J/OFnsZuVDw9KM3MW3YxWwLWvDs6O3JuF10dVP35RVsbt4REi0ka9oHR/ +7KXze2WU7wxMzO7rgMLqnIPu3ir4TvbJipM5zUC/armrhKSKb/QDT1ycbgAU +ieFUVKriom9LNRt+VcMtqS/UQG0yrsyqveohUw6aRrLLGFfIuG3ybYbGiWI4 +4l/UK9lLxj9Se84ZmOaB5CJr66jVFFwUPO2yJDYLwvq5RV5hFCyUyNl3/kYq +NDn69z1vp2DNPt12eeJdSLJP3nCPQ8XrijcbiRIxYJAvF/jjIhXneiwKrdwi +YLed16m6Rioue8Tr0nsbAuE602XabBp2iT89fVXOH+xEf//64kvD36a3jA1r +vCCW1VHGqachefr9ca2zpyArWT6oiU5H1/DJHmkNN7hRnCbZcoaOMqe0DGWy +HGHailgRWEXHzTf+i9pC3Avrd7QevaHIQFMtTQfN3+bQHX65UPcYAwd/GZsv +2G0A9szrf7dWCPKUzvL1Bos2Q7bTwOxDeSa+9Ms80myzHgKUqWr5B5jYqJb2 +0idwNWhqZ5nRSpgoSlp87FUIW9BX2KRVkiw8bzJj+P4aBS5oVGCRCwuNZ2J8 +wjwVYFfpR4PLRSyc7az8S2bJwq2ElonpJWwsq97dZh8nBtnNnJtvHNlo7yvW +76m+AGIzP06OPGGj5ynjtU3XprkiwnYhrxdwkJIY7c5LHeMaPdNZMr6Hg/qU +nx90nw5wNR9NybWmczDw8/Kk/Rm93LZiQbbny6Nzgz/hUMkckK4UDN9OE+jR +55yqnBgf9t9/vDxTn4irz7LLP5bwwbuuLebELyK+k7tsm1fNB+kbpyVco0no +eztN5M8yPmRI0Z9TNyngL++S0unkOWizOb3VsVoFxzg/u4nrmmB+QaPn8ROq +OJlw/dHp3HdgTq43bRUnI9mG6CzTVAk05TJfGwcydo5u7fMfKYWnW5YRNPMF ++jv+hzkelw+anf+urVlCwUP9UU5xybmgaeGdrGhHQTvDaijenA4jUQ9ylZ5Q +UGPUxuxobDKsml5yKWIBFQmkjWuJb+LA5ofo2Q5rKk68kv47Eh8F2+6/PAbp +VFTq+2j/p/Iy5OrOz4bwqJhkeGyfDD0Q2ueSx8hWNFxzNLJhQvo8jGp0vx1M +o+Fg3YmR486nIWxzmt6tGRoGPzu553PyUfiiQs+0MaHj0E65SeYjFyhUbe2I +TKQjxS3l/l+b/eCXQddK/k3HTmFCVdBqaxBasCK4disD4/8GL9QqNgaRtcUe +LbcZKKNbO3F/7zZ4s2bhft4wA29PL3xbV6sH0nv9FkfrMfHw+o2kzEdrABfd +ahO+wcTVv3d5TRqrwyo/lwfX+pkYevFznHk5HZKaX0jPrmOhg913h0RjZWiw +Ovul8DoL18w4h+w7Kw9D2+sjH/Sy0M/KaZgqIwWhhOxur7VsQT4Kcva7KgL9 +udtZTuFsrNz67sAdcT634qTs6pftbPxFIld8a5rgXi/0dh5T4+ANNbfopwG/ +uKS6WxHgz8F9+eH/nL5/5f6ccj/88RMHO0Z7N09afub6i4lEfr9AwFmPVs2M +Ch40rmsjvVEhIrtVcV+DIG9fc2dOsMoF/N50TOKNgK99jRdKFx4joYhFf5mI +BR8eSx3V31kvyNdKg9KFWwX8lgxUvHGCiElGq/j3G/jgzLmy4bkCCT+uLDpw +P5MPtYk50RY/OehuuT1WoqCDezngV8xHcSIu3NhcTLjCh9itdfeDsoj4uft0 +n4/AH1L3xMYn2hBR9V0figr0fWxu9YCsMAnltzqnGwn0T/xVHluoRcRk77PF +ctkCP7h3cfu7ViJKHahd3tnIB83y4wkBAUSk3BYqSRT423p304wbfzl4TvFu +3LOL7dzELPLs02QiHnoFzHuC+4T4VJtUcyI2uBK7yl7zweNAMOA0Eb8a3Ev5 +IZjDxD4mzLwnovC/TUPrBP3kqtu0bbgPEVNFIhZN/r/fdJw12l1AxD23PgsM +kA++OmojCX1EXHpDVCbnPR+alfq7zl8l4qXmUpWEVj787lBeq8nn4LKRe/dd +Btu4BsIjGwMXyuMrIcb0L4UZ2HB5W3RwijzOb9+7uqdzFl6ZpJEzLAhoQKIO +SnrwIN7rW5XzBAG7kifqaKf58HXU4IdaNBH77WU+5AruL0/L11u+mYRxVWbr +nwQL9nW/d7mrj4Sk6S9hW/14oGPpeKE/UgFDfS9Je6XPQlfeDieGojKG2TPW +Ddv2QsG7h7LP3ypjX07rYa35DiBnvh4Z81TBlAsB9fqVzXAmaXflIoIqHgz9 +d+q8dCPYN03WbSxXRXp50pCBWA0oSIkdomuRsVlVqfANsxw8Ny4oeR9Oxp9r +f+WzIooh2mRP6rsvZNTmzDdvPpgHmUNDS3Q0KXjMMKk49mUWSD4IDF8dSkGb +7PoYxYxUUJC/SvBuo+D4YIm7yca7YLPigcN2NhVTguvp8+wYGLCvqkj1o2KA +J3f9mYgIOKpCTT3ZQMXLfpY14oMhYD9wZHcXk4Zngo4uLWL7g0KMzL17FwR5 +svzi9spvXlBTP+5S/56GmtOjYkdvnIJyRteW6zQ6ssRuX802cQM3jTWrYj3p +mDRmtrLwtSNs601sXVFJxx09d11N1++FI08k75j+x8DvgQGhNxdbQLBkUcfn +Iwysk8n2+ONjAMPBR9bMv2bg+z0y0jSlzcB7ciX+0DIm/nBd2jVybj1sCykt +tXVh4hGtJ2VXElZDm88U70sRE+EdR/3aQzY4TR0taBBn4XBVwaGtDylg41e3 +1cmZhTPHfZa63FYAhaErrjsLWajkxjUe2yQL9T2hixLF2Fi+tayj+4UYvJ8M +K73kwEarczFSd7YtAK+XM4G5uWw0yP4ivD17mrtX/YLoISFBnzHc+8+odIwb +VCKclrubgx7HpyUNPw5wy+u3aJ58yMFXQxdHqip7uX011MnsWXkU0kyzE3s+ +ByOWki2SKQSkfNxUKyEiyEtGN96qbSNihqUxE4r5UPjwsVrxEBEfE8eqFgny +nhI9teVLJAmrDpP7CQp8SG7Sd3XVVcAqt5aq/Y/mALjB73sqVTCJtuJ5x84m +MCM29xccVUUe22d9duM7sBedT7q5hIy3Vrnf8B6shAdKA+VzdmTMumD13JBQ +BlNawi9bn5HRdqBV9Fx+PtikJ5qPi1LQYTvra9TzXGjQkd5TZkvBuEvHNbuc +0sFj17B/aw4FA424ob7ZyeCZSXhmLkTFBz1NhYzvcSCfJ3nP34qKhue6C4yf +RcFXw1OPeQ+oaHPsGsfwx2Womnu0ijNHRfG51Tt7uIGQ/VheUIBpqO7cn3hw +zXnIKJ0/9yiVhnHaX9dHnj8NhQOlPRumaTgccrD4W81RmLo/fJhoTEe5K256 +KypcICL6IM8qgY4vHO7tar+4H2rXZekbjNJxSiS+V8HUGrSOOjwL28LAPA+/ +OO0eY8gsGIg+G8NAb26JYc+ZbWAV3R2bP8TAfMkLi/zG9MA2nfLAeiMTJ4VK +84cr18DCE6uPPrrOxO95X6xGvNShpeKxlWEfE0k7XC8Tu+nwUkso544OC8fz +f9yieitD1v3APsdrLNw7Ed4XHiMP2e4hOQd7WEiIz/r1XkcKXu1zGP1vDRsX +9q8qYmWIwMKmVEulMDZWcN31X63mc+9fWlfm18bGLtqC1KMjE9y+vpj+2ys5 +6KPmobrk8S+uebPzSr6fgM/PPy+0W/iN66dUGnK0mYOHo2R66vw+c3c37j1v +e46Av1uEHimV8YDVW1y9Q4mIQv7hNvF3+FBvNBd+uoyIQdmtNjsFfB098Dj8 +wmESEhw23/O25kPQpzLN0ncEzFBWIG1BPmzOP/hO9hgROxnXGc8EfSJF2LFB +iEjCaaYDq+qxIG9VzD0ZHOLg/rcx8/zuDm7vykb9XWJEXJDC7IgK40O78v31 +jY8E/vM+MOaWwD/mhM4bqu4V+EOH21BllaDPf1rsZydEwu4rMpqLX/LheEya +ga4mEeWff16tnsWHyrPWncRPROxpNMmvEvSp0KPmxiL+RCwYSD4vLPCr2pj4 +avYUB2XN5TI/pbVzu0MmI+bvErEu+1B3mOC+PQ8WiTNNibj2QMUG61d8yOPa +fLoyScS7x1sJJyr48Lbvodb2WiIqJS2pGxH41VeZTgkJLyIaBv7cqynwq+Zn +pr3Jz4jY52sj1iLwi1KZBUEDX4goftU7pK6ODyvfVF3lhxNxoPHNZTXB/wwQ +OmJZM8fBOYk0sVTpdq7Txnslt+KImFtwUEtHsI/xbQv7rkqBX18jdq4V5IXd +h6clN+QQcbnRPlczwXm7wpWfQsFEHN6gsUtdcL6/yeiAW6rge9xePksXnFsI +pT0XLyZiyCu6M0ewz4XTQuqz14k4uCBtXkgw2z//QIqd56D1zLXbNpVt3P8B +buGkPg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1nfYFWIYwOGv0tIiDe2SpD3RVGkLERVNKrT3TqShvVHJSijaKG2hbZT2 +3jRoby33c/nj7n1/73m+c51z3vN1fXladKrXMVFCQkLtxAkJse70T3vuZr5u +Rik8nLDLWQdSsUA3p3Q85sFJzh5hrx5OEnbrePLUfKNfpoDZlboJieNnYtbZ +ZPtH2adHUMTZT/plknGXsz3WTqThW13CzFr7VryiC+of7JuSJJ5bb7S2juf2 ++F16iv1jlLPfZN0f789+vf1rjNRF9c/xnFS032JNHj9n/6u1urWttbJ1u7WW +Namf22vfmSd0WmtZ6+/WGtbvPF7Suk5Xs75qfdy61VrT2sLjhayrdFVrM2sF +6x/x3uP12/9ibUMl+23xevxMUvsP7MtQ3n6z9UDci/0G+9cZpYvp1fYtSBGf +qbN91i6kY6FuSWFzP+rmJI3ndZbM2dR4PxzUo0nOft2Ve1ikW1E2HjP/YXzG +HNJjSMEB3Y17+V6/SjlScjepSE0a0pKOg2a7k57F+jXKcw+HnPXgPpbo16nA +vRx21pMMLNWtqRivw2v7KD4rDuuxpOeI7kVGluk2PB6vzfzHcRcc0eO4j6O6 +N5lYrttSKd6H+U/ie8NRPZ4MHNN9yMwK3Y7K8Z7NfxrfBY7pCWTkT92X+1mp +21MlPh/z0+I7wJ96Ipn4S/cjCz/oDjwRn6X5z+K7yl/6XTJzXL9BVlbpjlSN +z938dGdVOK7f435O6P5k40fdiWpxR+Y/j+88J/T7ZOGkfpPs/KQ7Uz3uzfwX +8R3npJ5EVk7pt8jBz7oLNeIuzX8ZvzOc0pPJxt96ADlZrbtSM+7S/Iz4HeVv +PYXs/KPfJhdrdDdqxV2anxm/o/yjPyAHp/VAcrNWd6d23KX5r+J3ltN6Kjk5 +oweRh3W6B0/GXZr/Ov6P4Iz+kFyc1YN5gPW6J3XiLs3Pclabs/ojcnNODyEv +G3Qvnoq7ND/b2ZOc0x+Th/P6HR5ko+7N03GX5uc4q8N5/QkPcEEPJR+/6D48 +E3dpfq6zp7igPyUvF/UwHuJX3Ze6cZfm5zl7mot6Gg9ySQ8nP7/pfjwbd2l+ +vrNnuKQ/Ix+X9Qge5nf9Bs/FXZpf4Kwul/V0HuKKHkkBNun+1Iu7NP+Ns2e5 +oj8nP1f1KAqyWb/J83GX5r919hxX9Rc8zDU9mkL8od/ihbjL+L/dWT2u6S8p +wHU9hsJs0QOoH3dpfqGz57muZ1CQf/VYirBVv02DuEvzi5y9wL96JoW4ocdR +lG16IA3jLs1/76w+N/RXFOamHk8xtutBvBh3aX6xswbc1F9ThFt6AsXZoQfz +Utyl+SXOGnJLz6Iot/VESrBTD6FR3KX5pc5e5LaeTTHu6HcpyS79Do3jLs0v +c/YSd/QcihN/gLznrBS75VCaxF06X+6sEfEHzFxLidg6f1+XZo8eRtO4S+cr +nDUmEfPi+Z2tsW9JSsro36ztqGK/I9H/fx+VNPsfd4MNLw== + "], 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]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + 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" -> {{5, 13}, {0., 1.8656394062186223`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[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:eJwVlnc81f8XxxVFRiH3Xr7W3aOIKJV0zyklIQktyixCi4QGydYSSRRFISGU +7KKMSBkhOxkpo0hG1tXv/v659/F8vMfnvF/ndc77TbE7bXpssYCAwC7+z/// +nbonRAUEZNBCZ37+ptQM6AuObPZfLINvBBjTv2RngM38cWLpEhnsahpbY0ie +ge8ubbXiojKIz0OYAmozcPTv6wg5GRms+DutaGY0AzbLg//TZMtgTWSKcmTQ +DOzXkVvlYCKDM4ucRTfNzMD26C27PsbLoMp3Vf+8plnYdHV7ZOBjGVzYcXBt +d8csrLlk+JWbLIPhW58kC/bNgpzNoXPP02Rwzc6/GdpjszDCOpcQlSuDZeG7 +sxwl5iA6L33G5qMMellW7Hy+fQ5+NcunTv6VwfcL2i8SMuagt4o6mTErgwLq +SUdEcuagtZCDx3kyaFfnSzheNAelDzY0ty8mYMs3KXfpKv5+DmaL30gQkA32 +Z6R65mDb1FWLqzQC6qrdiUqXmocowqyo8h4CRk0xL82emIc3u5PIqXsJqE+i +Doq7zcNgoInWenMCar8wbSZ5zoPOVLKt4SECHly1WIR0ZR56m83yPe0J6LBS +7GlB5DyoRj87Vu9JQH/pyn9BhfOwv/7gRcsLBPzdLPBUoWQefEWEwr9fIuCs +W4t6atk8NHhZvJq/QsAga2ZO+sd58DokvJJznYAnbYcvG3fNQ/l/tm+uxBPw +mNb2ovl/8zBiKt4s/piAlMYt1WJCPCBdyxu+m0TAJ14XlKVFeOA8J0HKSCWg +eetKLyFJHqzoLDzZ/pKAFg7RfT7KPLCIk5HXfM+Ph0VpLdXhQcDnEvXiDwRM +VZQlbUMePJNw0dtVyz+fwuDyfF0eCPi8dbVuJODE+2PCIQY8SLY6VXXtCwFj +NNI18g7wYEy56ty3MQIWNR4yNzzDg3se/RV2EwTsTJiooZ3lwbaaxcSeKX58 +JtPdf87xIPLCltwvcwQMcHiQ636RBxs/v5hqXkLEzXsWWy4N4kHP6nq9fSJE +XPSY2R4RwoOrfr+iGkWJuHhzUyHhGg861Ngb6lcQ0XS2PXAhjAc+V+M838sR +0XGXSKhlDA9YPYWVOxWIKOAbanHvPg/qN7SS3ikRkd0if6gujgeUfun8UhoR +t/7dVi7/iAflEDJdpErE+6XHk7ak8uBkVJK+tjoRZXK+rFVN5wHxV2l0vgYR +EzzPF0pn8OD4Pd7GnA1E3GDwLqXkOQ/EJt3OZ2wlYm6g1aH4fB68NLz1XmU7 +EVNNjZhQyIPDj57JpekRce15dmljEQ8y9gwUPDEk4q93anu7inlwIHmJKNOY +iOuPlm0yf8PXm0e1SDQhYp0DsbPkLQ9MU4/Mxu8jYoq6xyavch7MCVw0UD5I +RMF2x6HyCh4kHoi+F2dBROUPvShcyYNJoUbte9ZEvB42XH3iPQ+irfUv3nYi +4k1/odrCGh5szT32QeoEETsYNxkva3kwJO4vf+sUEeMN1/Ae1fFgc+Hroutn +icgaWCVv+4kH3yQ7xMQ8iGjg//OgegMPrjtOW4Z6ETFRKGzJJJ+7ZDTnA72J +2Os8ec+qiQfBLiZGQr5EzBtIuCj4mQfqpSdj/fyISLkrUBTH5zbZaz8FAok4 +vEltn2ozD/xOp+hcDiaiHR7We8Hn1e8qrvNCiThQ/+6qSgsPmhT6Oi9eJ+KV +pmKlWD5fOiugOnuTiIOLkhYEWnnAqFb09grn6z0wxLTk87dR/R8qkUTss5L8 +lMXnRwT3vT1RRLxTb9I8w2fbzQ+L7sQQMSvvmIZWGw/IttUMg1giXlYi9xzj +c1fQZNjCAyLWZBzvCuFzXDp59kUCEY+/AeZDPh9uMDzqmMgfd3z9MoXP/017 +1Mo/IaJEgFRQEp/bFB9trH/K98tH/6g7fI7WrXkUkE7EL11ne734vN9pWnxT +JhHlDA857OEzIYzm+es5Ec0SypTk+Nz00rgn4SVfT28LkWZ+vBHt5w335xHx +wJ0vykF83iuQlCNaSMSgN3Q7Dp8lmfXKJa+I2CJM/ljC16fWcC70bAkRAzJa +LHbx+YYrc4JVyq+XLSfE3vH1Nbq716qznO+XG8SO9XwWfX2p6lYlEYU/sSqj ++fl53/tEY0c1ERXil9WM8PMZItIYO/OR77d/W4Y28HmJOcfVroGIxa1k28f8 +/JefN+8gfiZid/3u3Aq+X/weXt7xoYWvx9FquY56vp+HP8ut+0LEF4mvBb/y +/VYsuShg4CsRRa97BtXw/eitpTIS20vEFbeEJTM/8mD2il/pkgEirh6GtYbV +PMh/8kylcIiIz4hjFUv4fvasaY069YuIH6SvWmbz/T4hq+bS8oeImc/uBPzg +10c21+LztUkiPjjZQjhVxgO3o4GA00T8pv/w8Q9+PY1mdqx8yuPX35czz7P5 +9ZfxeanPEQESdl2TVF/6mgcn5tYOSAmSUEbXLsWQX69DeiGvLoiQ8EDgoYDM +PL6/vqw7ZrSShPJOhb3tmTx4LGhTJ0Ak4TTTmlXxjAd2nGubcmRJ2Li64Oij +NB58de+RUFIioTlroHr9Ex60i93MHWWT0Leaav6G34/qNv0Qvs0l4do32rRj +/H5XmpSrI7eVhDEVezY+D+T3E6kg14e6JHxk3br4jx+/vw7SO9L0SXhw3qZ4 +rzcPHGLsMspNSai8WX0h1JUH89NfzKccSJhkNGX+ld+fR48+C73kREKC9daH +nuY86K2/VLz4BAmF9vaVCO3lQWWKPHuFKwkV/w7f5O3i++3goTnWRRJSBU2z +nTbzgJPflHAojISfY1U/rFHggQI9sflrOAkrnMh9BFkeLL91VswhkoTed5OE +/qzk58NR+pxbDAkHrqaeDRXjwRuSif61xyQUyDI/s36Wfx96fhh5lUfCoa37 +bwd+ngd/rdLN5G4S2jhd9mUFzMN114dXO3tJSJr+GqLrMw+R6ZfaovtJmPmz +0NHMax6SqRs8pYb5HEOqNObf11XL018sniKhe2POt5dm87D8xx1Ov5gstodD +4g7yPETfdSKlbpDFtcPlr3Ky5iChQc/BQVsWKxybKw4/nYNUCXoOdYss/vIs +Kp5OmIMi/y7T+9tkkUTbmbLi9hx0nTa7eX23LC610fUqdJ8Dmv6WJaftZVE8 +5fA6Ca05yJiWHNcMk8XRjV0141mzoGVqc6kvXBaDva8s90iZheK0zCW3I2Vx +/ZtjsyMPZ6HWylj2T4wshjtFLqq4yX//lF/bkpUoi6GJBSsET8yCWvjSEJVC +WXzov/joJ/osZHHmFRj9sghKk3Oit2bgucUPPeJmOUz0pss/3zMNxbvqdF06 +5LBZ+Jf5g1eTsHVhVble6H/IEJoVdS/9A7UQ/StytTzq6D6V/jMxCusoN7Kf +V8ujruZMTk7ZEEhWTc6beyrgVt535q2EfpiaOz3qLKuIac8t+hpP9EBn9k5b +hrwihlgxNgxb9sBbF+XGr4qKuCM0TGi5YQ9c76jNNacpIjQbr/Dg9AC1SNWH +u0YR9xhPT9Z974bdF4bFpbcr4pUjey3T7LshcdphVcFpRcwv8T/z70MXmE4e +OSZcqYh/qJurPsh1QN6HJ1I57xWxN7PFSWOhHRQejb22+6iIMh3+cRm97dBv +HEgs/qSIHsGuST/S2sErJb3SvVMRTcy/3beEdnhoOcfpHVPEiQ/di/Wc2+Dn +2+iRVwpKqHxc4v3fuhYIvtno6eamhL7j7hFqbU1ATns7MuauhI8v+dXqlTdB +fmXmMVdPJfwg9XzV6cwmGBK4bnbmkhKqZKgwxgObwPjsdrVTQUr4Yttfo0rN +JiAezPnudE8JwzNlE2IiGiGZcnefbakSprvHpmUcbgDgBn7sLlfCeNqqnPZd +DdBqcVbXplIJxzg/u4gbGkA0cs9a649K2KN20rVEqgFOLRWRONKshPPMnqT6 +yk+gNexVfnBICbNPObUOa32Cdy8tNE2klXH5yoqOKnI9nIvfX76EoIzHgv+d +ubi8HujXTfcVkZTxnZ7/qcvTdXDF3sCTqaiMqdH1prOZdaAjrV00z1LGk0J+ +1ZHkOsg+Laf7dIsybtpkdkZfpBbiV7WaLnZSRmPPuJ3Lxj7AHmJTX56LMs6z +vTZm1H+AhUX17idPKeNk7M2nZ7M+wOG2yqjWs8o4q26YaX3mA5BC8tozfJRR +pfPtq4KxarjZH2VnGamMW9fSL9rOvoeL8fvcXpYo480n6051UqvAqmGyZnOp +MtJL44f0RaoAhaI4ZeXKuKR/hXrdr0pYery5+9N7ZRToelzNLqiECLUDe0Yb +lXGj2Ija8r2VkFp8UGXVgDKWTMwYhwe+g5MjquN7RMiotatAc0qgAqyEF+Jv +LyPjnTWutzwHy8GEXGvcIkpGsgXRTrKhHDRMT6VaSZBRllf+X8jjcpjOybA9 +KU3G8lLFnhs7yyHAW63+qgIZD5Ebantvl0Gs+NpnFepknA/pqtTcUgqyEiLH +6RpkbFJWyH/HLIU7El+p/ppkXJ1efd1NshRuLr8RjVpkpA8JXZX59hZ8JQf9 +izaTMSu21f7y9bdgL5Ng8VyPjOk82fVfet7AKgUpkbjDZNwod7oHdUogWWGg +dO4If/ySWY4BoQRoiiXeFtZk7BjV7fUdKQYFpZPjJDsycrwlH7omFIME+X1X +hCMZr6f3rbBZVgy/aVdyQtzI+FWR4GXU8wryVo/ZuYfw18cve7AjqxDcNy8q ++hhKxp/rf+WywgpB3VBqJeMaGbdPvk9VO1UIKc5ryz7fIOPRA2VhWSqFEP3U +lbbhNhmXLFE3cEsrAC/Wn76ZODIWyRenfs7MB23a+NHL2WQ8clLQnNqYC1Ma +gq9bXpLRcqBF+EJuLrzYtpKgnsvX5+Qf5nhMLqyy06zozifj0kZL5V22uSCf +cJaxrZiMyz+J7vIdy4F5pYl+ofdkxMyHJgukHCj+b9LhahcZv795WmJ+KRsi +dx9I/PCVjJqchaatx7LB2begR7yHjH8kDlzQN84G0nfvw2F9ZDy78F3yETkb +zjxfaho5QEYHqW0v/d+9AIq+7JYHf8j4Vi5Tb5j4AgLObV75YikFcz85TD96 +nwUWKXEm48IUtN7B+haRkwXqHf9urFtGweN9EbYxCVnwBctF8sQoeGC7U+7g ++SzQEt+9UCRJwULLKeM7q7PgxyOrwYr/KKjxNNxyGTMTDOqvlLStoSAjff7V +/r50SBsaWqalTsETBvGF0a/TQXyJuXnEWgouCZy2XxadDrWbmIMG6yi4dIn/ +wLnd6WD2uFr61SYKxvndF/UoTIPDHisdHmyn4BGrgo7+2FQ4pZAkbm9BQUKf +fizTLwXqtJYfKLGkYMyVk+qdtimgvtczQf4If75BJRRuTYE/gbu0mqwpGJhK +JI4uSgHP0V/WO45RsFmmI1Ir4An4lmpls85QMA0aRAm3kiH8eNWhn4EULP0y +daC9LBHEk/1D1wZT0CKjNko+NRFC+rgFHiEUzBfLPHTxViL4WOXILrpGQV3V +3P47RxLB2fxRC+EWBYOzee6aM49hO17aB/coqBqmWDW+/jH8JanvjcigoPjg +3j2p5Qngtm/YtyWTgv6G3GDvjAQYiUjOUnhOQbVRiz0u0QnwTUJR8kk2Bb09 +/OSiTiRAvaBoXVE+BX32uB5hEBMgdbTPqL+UgrXPLLZKnYqHI5V39Te2UDB2 +xbjtC5sHICtzneDZSsHxwSLX3ZsfQIONb29OGwWrDmm3yRAfgP7s8UuanRTc +mvp3kPUxDtapamet6aFg07UreYe040DsdieJMUzB/Z8Eq98qxUKBFeWH1D/+ +fqvzyyyX3gP3NMJLEwEqJnc35DO+x8Ca6WVXwhZRkUDavJ74LgYSw//8JyFE +RQGBMYJzUAzcKi8zFllGxdrE68WtIjHguMohd0Gaio9R/ny6TDQQplIDh5lU +3D10rlJ8ZxRYrEq23sHmjwfW0hfYURBvlbDpIYeKN+Vv1xPFokCl8u4vUxUq +JhL0TF7X3YHt0QH7CtdScafhs+Q2izvgpm3FCNWh4vLHGgSmVyTU+khVME2p +6Ds1sfJjTQTIZIs/9DWjosGFrjyjlxFg8UP4fLs5FSfeLP87ci8C+vcsqNw8 +QEXV9foP7h6PgHnycOTkYSoeuTU2574kAlaXlR8td6TiePPasc07wiFE2EvI +zpuK1jVCmVV5YTBgVVGW6ENFP3fuxnNhYaCfK+3/4zIV57r35ps5hoHIsWeL +TvpR0Wj9u8wkUhgEl/YueAZTkZlwTuLuhZsQ5L175kY4FU/9u/nt0q4bEDBO +HSlIoqJkavzMx2XX4JvBmWfzyVS0OHGDY/DjKmx/9PoEpFBRobfR6k/5VRDa +e3C4PJWKq3KVxcp8r4J/xo2BukwqDgZtbLSeDQU/p+ne/gIq7nrOoFhOhoDv +15oWqVoqylw4TxVaFgwuStTE03VUvOpjWiU6GAT7j3icqamn4sqn850674Ng +dYfSstBGKgJb4jT1ahA0N5/WFmij4rprF8V+SQSBaq1U3EgfFbtju7L3KAZC ++6t9dh9mqBgj8En08yF/qJh7uoYzR0XRubW7urn+kKW9MBs0T8V4gxOHJOn+ +EJiffHvbP/7682kqXSN+oP7yb3mBEA1r4+wOrg7yg+C0GFbKChou7LtsYVd0 +Bdbd+/IzgEHDuKjkXEHwBasB5/2dTBqeC3BZUcD2hVCt6RJNNg07RV+cvS7t +C10N0rd7V9HweOFfP7mayxAipr8J1WnISwq27lK+DJ2XXgTOadPw5bcLlZr1 +3hBgHazkZkJDFaai3TKLi5DxTCbk/V4aqtr1xR1bdxHa5hLGyGY0XOcSXjex +/CKsiX5VXrePhs11f4XTyi9Aa/2Ys6olDU0OFwWd1rgAKtsO5w0co+HtHb6x +yqTz0ERfa2J9kYbXd7Pr7QU9QTZK8uHDSzRMK728o7zfA44I//711ZuGv43v +GBlUecD3wYxrNr40nN7B2/fuhgdMZ6hU2gby16/5aXj+Pw9Q3MTmHg3j6yMQ +zX6sfQ4cdiurOD2mYdcnn9SmyLP898XChaeJNIzR/LYx/OJZGFXrej+YRMPB +mlMjJ+3Ogpd0nKNzCg23rf6+Jlj9LFxr+e+xyzP+/HW+metq3SDLlvjfqTwa +VmXX3T+0wg1mzkmInP1AQ+pty6myJ2egqnbcvvYjDdWnR0Vcbp2BaFZ7CaeW +huTpjyc1zp+BDW3Jnt31NCz4IHWZYngGzungj93N/PlGtounu0/D2OKz79g9 +NLQ9dDl89sopGAxrDeia4vPOBw/ov10gf6C4e9M0DYeDjhX2V7lAyNYknTsz +NAx8efrAlwQXYI27ThjO8/Wz0vh5ytwFju0XO1qwiI5T0hoeK185Q48CVzdS +nI4lsVv/Uu84QdvTx4sMqHQ8Y+oFHiccoZTRue0mjY4skbvXM3Y7QnqCTEAD +nY4OoZPdy9UcwTcmcKkli47nw6sb9P44ADPUUeyECh1rY1eb3LzgAG7HVxNu +atFxIIG2yiTiGIizstkNBnTsVJiL2fPFHqYeDTsRjegofc1RZ1WZPXxVoqdZ +7Kbj0C7pSeZTe3hBvKPat4eOa2PUZgPP2cPBpZ4aE+b8+CM6oj6vsIekfm0d +ojUdM9ZY998xsANuYukei7P8/aslRy622ICj2ro10e50jB/bszr/rQ3cKkwS +bz5HR8kzGgaS6TbQV8+3rxcdT5SQ4ldesYEQnrHuLm86GgRYddqp2EDD/g6t +jcH8854X0ROTtAaHZROKxPt0vHXpW9xQ4mEIizw2bxZLx1fWD/e1XT4M+cot +7eFxdKQ4Pn701+IwiGkV3pWIp+Pml95ipVKHIcvOV2pJEh19LcPDg69YwmyR ++JKJDDpGp+/iPHKygLBTjJ+fSun4O+P7QqjFQdjeE9eyqpyOO7sfOBhvPAjT +ZsQy/wo6br31X8Q24kGw2SR8b30VHccVKaoFDQdAXWhwZ0wNHRNldMxbdx+A +hpj0xzatdIx4sPh6stF+IFRoWo7+omPz/AvOZ2dzqN6Qrqc/ytdT6F6PrLE5 ++KTSNRJ+07FDkFARsNYcvocRlpmN03HVilL1pmkzyLX4m5s7Tccqb+MYw1Az +OPi7UNpHkIEfPrRGnnxuCvflt1WLyzHQjviIJKO4F5yfi983/o+B3/39gm8v +3Qsbd7a43JJnoLGGurX6bxNocjshIaPEwA0NX5+9LTOB5dVRJvI0Bi7l3Evl +njABX6/hZo4qA92L2u8LBu6Bo58j+/S2MpDwnaHmuHQ3aLhYvwzZxsBsN58Y +zW4jEFi0KrBal4H3/gYu1ig0gjiVEqaxHgON/njXlJ0ygmb/Qad9hgw83cHR +XdduCPoa3N/2+xhIH2TGSBUagErYj3lfJwa2jTG8CbH6EChe0P7FmYE1khlu +f7z0oSv0ar72CQYO/jIyWbRfH8IDVN0nTjFwKqgvNVtSH6bOnx12dGegVfve +7fYhO6Hk6L8248sM/Desc/6Frx6YapPyFO4w0CFbz23n7e2QljcQeT6KgZ7c +IoPuc9tBaH2hW/NdBkpqV088Orgd8tSOrLl1j4G3t7d8SlTaDgqMx0mC8Qz8 +pOhtHJmuC/0r1CKHUhmY9ltg7++6beDVr+ea/4aBokXzrgqaW2E40HndwlsG +fjwguZymsBWsmDf/6pYxcJ+W3Eb9JVthh+Nn77oKBtofrIj81YIgPWh/9Xs1 +AwsfKq+M90FI/+n7WOYzA3fpBpQLPgboHi/8fGaQgUd/D4jYyW4Bs8iu6Nwh +BuaKX1riM6YD79YtPjw/zMC704vf11TrwLNzu3qDRxhYxdC8LeyjAxf+tow8 +GOd/v/neh87vm0FmbkK4hsdAw9tSTxvfasOuxWraHGkmZh6/76F5fyPMP792 +7/hKJv5wWNE5cmEjZNgOzD6RYeJrnzTnJouNIPM2oYhJYmJF8RW2ovxG6L4s +s4WuwMRjvWLaD+M2gBdvBpSZTFzyNkJjQ6oWpEyX7yBoM/Fd+222Sfc6sEyh +JJtvZuKkQHHucPk6WH7QZ2mkDhOdNm4mpT1dB+55GyqlgYmjTbzIyLPrAD1S +9SW3M3HY5th5iWXroHU8zFDMmImOb6j7TmtrgvCoxd5FdkyUPEa/VpqzFrYH +FRdb2jPRWeN5ybXYteCnSFXJPcrEepWk117+a2HBcHCpiyMTd9+rN3y9dy1M +pXi+ajrBRL97QpuHR9Xhu10kK8WTiYYVNVGZGupQ3lzDM77BxMQUBQYtQRUW +n1rr8vQmE79nfzUb8VAFXHKnVfAWE9f+3ucxaaQKrzQPZ+dHMJG6JVE3d0YF +sm8NHadGM7EzK6N5ep8KPDIQbpp8xNfDoH2lttxq8C3G1Nh8JhLVN2cEVrGh +1Wtq/msBE+EDR/XGEzaoa6bvoRUxUZi09MSbIDZ0PyFNPn3Nj98gcNvTHWzA +8BHIK2ViyA6itE8FCwSOxn7+9JGJR/33rBasYcLlZdMCwj1MFJRwvL5olg7N +Zc/MDHqZSNrpcJXYRYc1PvbJN/qYGHz5S4xJKR26/tQaynxnooWIAUfzGh24 +nUlRlGEmPrnz9lW6Eh0WMsxUdCaZ+EYi7j99Ixr4mGcecF3GQu6XZruvbyhg +O+WSVyfKwuGKvOO6Tyj89zGbtEachRd3zxh8vEEB0c6E5qHlLPw6Y/fJ0JIC +d+wj9x2VYaH3igdq83/JkO523uyAMgs3Ciu7TW4gQ/st3T1b1rOw2kHDtj9B +EV5rCGTe12LheO6PO1RPRYhverV8dgMLrY98t44zUgQHWa3aXG0Wvt9wzdRg +WgHGHrJ3qyMLMdGP4WWqACKZEoY0QxY2+NZntkrJw4aaFr1ltizMCY/YfLpQ +Fix8anRt7Vg4c9Jrhf1dWbikVoYF9iw0monyCnGXhdLwDG0nBxZK1y8fd1CT +BaP9gWveu7Cw6BHOOj8hgc1XDWKoB/98hPsk83giXB270S9ynYWbLGrf92XL +QPoj/16bGyw8OBHaGxolA3Vm57/m32Thuhm7oEPnZUAm92jb8XC+Ht3UQHeQ +gQcXNtdURbGwXqFc5HbNSsgWHHwZksDCWBVnXxyThk7C9gCRPBaa10f//Gou +BbJD1xx25bNQwZFrNLZFCvYVN+pfLWDhbEf5XzJLCmod7CXEX/HzdeRnRPuM +JLzN84ta8ZaFUjoHQ17ES0LyobcpxA8svDxvLf/kxwpwjePW0L+ysENr/e7U +IxKQ4RqUeaybhYR76b8+aknA0I7a8OQeFvqY2Q5TJSXg6MiR/exvLGTL9Y86 +lonDfvD+unqQhb1djtXGKuKg01M0pjHOX2/303C/sBgsZWwibhVmI03UUTii +WwRqu4OXxImwsVS3pL3rlQjciW2emF7GxpLK/a1WMSJAl3FvzBJn43DKsOpf +UxHYJph5iyzNxsq+GYsrVcJwuYcuJqDIRqPM5zWvXy2F6ThJgRINNvp6Xmuc +qxSCN4esR/9bx8bFfWsKWKlCEEzI6PJYz+bfhwF2PteFgHjD8PWajWzUuVcv +lrZXCNZfCrrwYAsb7+k9Vpj7IghuFvMT3vpsJJfKnty2sBiGiQODOlZsfDNb +ZdttuQg+ToYUX7Fmo9mFKIn72xdBRhPn9jsbNlp5i/S5qy4CtwgXHRN7NppT +nI8G/hOAaYnRm/bH2dhAVEFCkgAsXTKledWNjdezk8TvDf/jkscFfVqC2EjZ +7fFF7hCPu7gh0VQhhI1lXFe9N2t53L6sHSzbUDaW6344el+Ux00+FVw/dI2N +zja8JyOv5rmqQ6K0hVts5Mx6PV1En+dq90hV0e+zUfpZXV3c3Cx3X52ytFsm +f/+eiae9tdNcj9cz/llZbNTP+Cq4I2OaG53WODnynI3uZ4zWN9yY5rYHB7e5 +vOTP37+ae2L3NNcGR+OPFbAx4Zt3U3TtX67z82K1Q2Vs7JDKtU9sneL63j6y +G1vYuPrivS8E0UnuoysbSnxa2dhJW5ToMjLBLTsttfZ1Gxt/kchl/Q0T3KVG +FTLanWx8KyiwWy92gntNSLVTs4eN41NqjtnqE9yoc/POrGG+vvtUtxBsxrnp +B+6HLP/Hxu3b85pKWsa4B1UvCR8X4KCVwcF/hsVjXCHBI0FvF3GQEhfpOp84 +xj2SoRTgLsQfr75m9d5tjLt8yaPL7cs4KEdnvJOQHOOeeZHikSzDwbl332QI +e39z10vkHuWu4uAW1pYjsS2/uL29UX13V3PQS8VNedmzX9yb+Z52YyocvKXi +GPnC7xf3u/0mm0Q1Du6t3L6lcM0vbnThK0vR9Rzsszy37nboT+6sY5lpM3Bw +z8rRMKrBMLe4tB5P7ePgYavRK4ETA9yAIsGkrP0cdDs5LW7QOMA1fKm1bPwA +B/UoPz9pvxjgtibFfvK04GBJzTOl+DMD3LGQ43ZXrDl4PG7P8bOjP7j0PQIB +kU4cvFJ2uFN08jv3aodaZaE3B7mxmh7eSv1ckya71TwfDl7I+bL4yOJ+Lqnm +Thj4cvBQbug/2+/fuInFcwfK/TgY7ybk15Hxjfs6oXKgJpiDsoHZu4K3fuP+ +drQW7QnnYHpf3tO7J/u4+yZu7hZO5p8nafnL/V97uKW129RPP+Hgm6HLIxXl +PVz1p1PSLSkc9P8iF384tYcrbmXVmpzGQfXxap9/53q45ZWq9nrPOTgVLd8i +s6KHq3H/o1fgKw7ek3d2NdLv5kpuE00UbOSgn/iGJQOpX7g+CsVBLk0cdIqQ +7K7x+cL9OeXq1PiZg+2jPVsnTb9wq9La1jxu5aCv2GeC8Hwn9zLhacG2Lg4u +Xabjo7K3kzsysLPuyiCfS+XkVIQ7uIfL5p4PDvH1fx+1wOtq51bHZUbu/clB +V9Md0WJ57dxkU5IFZZSDg6rKQa2O7dwjr75/ezPBwSFyQYHaxzZuddS9SvYU +B6VMpNM+J7VxN7oap976y9dX/kHMy8ttXBlm7mmbWQ7WuxoqKKxr4/oJOJtW +zfH9JZYkkri8jfu7XXG9Oo+DK0cePrIfbOVa5XwiRS9w0Hzmxl2L8lbux7DA +2X//OHg6Z/OdkIet3P8BT+ekPg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{5, 13}, {0., 1.8656394062186223`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[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:eJwVlnc81f8XxxVFRiH3Xr7W3aOIKJV0zyklIQktyixCi4QGydYSSRRFISGU +7KKMSBkhOxkpo0hG1tXv/v659/F8vMfnvF/ndc77TbE7bXpssYCAwC7+z/// +nbonRAUEZNBCZ37+ptQM6AuObPZfLINvBBjTv2RngM38cWLpEhnsahpbY0ie +ge8ubbXiojKIz0OYAmozcPTv6wg5GRms+DutaGY0AzbLg//TZMtgTWSKcmTQ +DOzXkVvlYCKDM4ucRTfNzMD26C27PsbLoMp3Vf+8plnYdHV7ZOBjGVzYcXBt +d8csrLlk+JWbLIPhW58kC/bNgpzNoXPP02Rwzc6/GdpjszDCOpcQlSuDZeG7 +sxwl5iA6L33G5qMMellW7Hy+fQ5+NcunTv6VwfcL2i8SMuagt4o6mTErgwLq +SUdEcuagtZCDx3kyaFfnSzheNAelDzY0ty8mYMs3KXfpKv5+DmaL30gQkA32 +Z6R65mDb1FWLqzQC6qrdiUqXmocowqyo8h4CRk0xL82emIc3u5PIqXsJqE+i +Doq7zcNgoInWenMCar8wbSZ5zoPOVLKt4SECHly1WIR0ZR56m83yPe0J6LBS +7GlB5DyoRj87Vu9JQH/pyn9BhfOwv/7gRcsLBPzdLPBUoWQefEWEwr9fIuCs +W4t6atk8NHhZvJq/QsAga2ZO+sd58DokvJJznYAnbYcvG3fNQ/l/tm+uxBPw +mNb2ovl/8zBiKt4s/piAlMYt1WJCPCBdyxu+m0TAJ14XlKVFeOA8J0HKSCWg +eetKLyFJHqzoLDzZ/pKAFg7RfT7KPLCIk5HXfM+Ph0VpLdXhQcDnEvXiDwRM +VZQlbUMePJNw0dtVyz+fwuDyfF0eCPi8dbVuJODE+2PCIQY8SLY6VXXtCwFj +NNI18g7wYEy56ty3MQIWNR4yNzzDg3se/RV2EwTsTJiooZ3lwbaaxcSeKX58 +JtPdf87xIPLCltwvcwQMcHiQ636RBxs/v5hqXkLEzXsWWy4N4kHP6nq9fSJE +XPSY2R4RwoOrfr+iGkWJuHhzUyHhGg861Ngb6lcQ0XS2PXAhjAc+V+M838sR +0XGXSKhlDA9YPYWVOxWIKOAbanHvPg/qN7SS3ikRkd0if6gujgeUfun8UhoR +t/7dVi7/iAflEDJdpErE+6XHk7ak8uBkVJK+tjoRZXK+rFVN5wHxV2l0vgYR +EzzPF0pn8OD4Pd7GnA1E3GDwLqXkOQ/EJt3OZ2wlYm6g1aH4fB68NLz1XmU7 +EVNNjZhQyIPDj57JpekRce15dmljEQ8y9gwUPDEk4q93anu7inlwIHmJKNOY +iOuPlm0yf8PXm0e1SDQhYp0DsbPkLQ9MU4/Mxu8jYoq6xyavch7MCVw0UD5I +RMF2x6HyCh4kHoi+F2dBROUPvShcyYNJoUbte9ZEvB42XH3iPQ+irfUv3nYi +4k1/odrCGh5szT32QeoEETsYNxkva3kwJO4vf+sUEeMN1/Ae1fFgc+Hroutn +icgaWCVv+4kH3yQ7xMQ8iGjg//OgegMPrjtOW4Z6ETFRKGzJJJ+7ZDTnA72J +2Os8ec+qiQfBLiZGQr5EzBtIuCj4mQfqpSdj/fyISLkrUBTH5zbZaz8FAok4 +vEltn2ozD/xOp+hcDiaiHR7We8Hn1e8qrvNCiThQ/+6qSgsPmhT6Oi9eJ+KV +pmKlWD5fOiugOnuTiIOLkhYEWnnAqFb09grn6z0wxLTk87dR/R8qkUTss5L8 +lMXnRwT3vT1RRLxTb9I8w2fbzQ+L7sQQMSvvmIZWGw/IttUMg1giXlYi9xzj +c1fQZNjCAyLWZBzvCuFzXDp59kUCEY+/AeZDPh9uMDzqmMgfd3z9MoXP/017 +1Mo/IaJEgFRQEp/bFB9trH/K98tH/6g7fI7WrXkUkE7EL11ne734vN9pWnxT +JhHlDA857OEzIYzm+es5Ec0SypTk+Nz00rgn4SVfT28LkWZ+vBHt5w335xHx +wJ0vykF83iuQlCNaSMSgN3Q7Dp8lmfXKJa+I2CJM/ljC16fWcC70bAkRAzJa +LHbx+YYrc4JVyq+XLSfE3vH1Nbq716qznO+XG8SO9XwWfX2p6lYlEYU/sSqj ++fl53/tEY0c1ERXil9WM8PMZItIYO/OR77d/W4Y28HmJOcfVroGIxa1k28f8 +/JefN+8gfiZid/3u3Aq+X/weXt7xoYWvx9FquY56vp+HP8ut+0LEF4mvBb/y +/VYsuShg4CsRRa97BtXw/eitpTIS20vEFbeEJTM/8mD2il/pkgEirh6GtYbV +PMh/8kylcIiIz4hjFUv4fvasaY069YuIH6SvWmbz/T4hq+bS8oeImc/uBPzg +10c21+LztUkiPjjZQjhVxgO3o4GA00T8pv/w8Q9+PY1mdqx8yuPX35czz7P5 +9ZfxeanPEQESdl2TVF/6mgcn5tYOSAmSUEbXLsWQX69DeiGvLoiQ8EDgoYDM +PL6/vqw7ZrSShPJOhb3tmTx4LGhTJ0Ak4TTTmlXxjAd2nGubcmRJ2Li64Oij +NB58de+RUFIioTlroHr9Ex60i93MHWWT0Leaav6G34/qNv0Qvs0l4do32rRj +/H5XmpSrI7eVhDEVezY+D+T3E6kg14e6JHxk3br4jx+/vw7SO9L0SXhw3qZ4 +rzcPHGLsMspNSai8WX0h1JUH89NfzKccSJhkNGX+ld+fR48+C73kREKC9daH +nuY86K2/VLz4BAmF9vaVCO3lQWWKPHuFKwkV/w7f5O3i++3goTnWRRJSBU2z +nTbzgJPflHAojISfY1U/rFHggQI9sflrOAkrnMh9BFkeLL91VswhkoTed5OE +/qzk58NR+pxbDAkHrqaeDRXjwRuSif61xyQUyDI/s36Wfx96fhh5lUfCoa37 +bwd+ngd/rdLN5G4S2jhd9mUFzMN114dXO3tJSJr+GqLrMw+R6ZfaovtJmPmz +0NHMax6SqRs8pYb5HEOqNObf11XL018sniKhe2POt5dm87D8xx1Ov5gstodD +4g7yPETfdSKlbpDFtcPlr3Ky5iChQc/BQVsWKxybKw4/nYNUCXoOdYss/vIs +Kp5OmIMi/y7T+9tkkUTbmbLi9hx0nTa7eX23LC610fUqdJ8Dmv6WJaftZVE8 +5fA6Ca05yJiWHNcMk8XRjV0141mzoGVqc6kvXBaDva8s90iZheK0zCW3I2Vx +/ZtjsyMPZ6HWylj2T4wshjtFLqq4yX//lF/bkpUoi6GJBSsET8yCWvjSEJVC +WXzov/joJ/osZHHmFRj9sghKk3Oit2bgucUPPeJmOUz0pss/3zMNxbvqdF06 +5LBZ+Jf5g1eTsHVhVble6H/IEJoVdS/9A7UQ/StytTzq6D6V/jMxCusoN7Kf +V8ujruZMTk7ZEEhWTc6beyrgVt535q2EfpiaOz3qLKuIac8t+hpP9EBn9k5b +hrwihlgxNgxb9sBbF+XGr4qKuCM0TGi5YQ9c76jNNacpIjQbr/Dg9AC1SNWH +u0YR9xhPT9Z974bdF4bFpbcr4pUjey3T7LshcdphVcFpRcwv8T/z70MXmE4e +OSZcqYh/qJurPsh1QN6HJ1I57xWxN7PFSWOhHRQejb22+6iIMh3+cRm97dBv +HEgs/qSIHsGuST/S2sErJb3SvVMRTcy/3beEdnhoOcfpHVPEiQ/di/Wc2+Dn +2+iRVwpKqHxc4v3fuhYIvtno6eamhL7j7hFqbU1ATns7MuauhI8v+dXqlTdB +fmXmMVdPJfwg9XzV6cwmGBK4bnbmkhKqZKgwxgObwPjsdrVTQUr4Yttfo0rN +JiAezPnudE8JwzNlE2IiGiGZcnefbakSprvHpmUcbgDgBn7sLlfCeNqqnPZd +DdBqcVbXplIJxzg/u4gbGkA0cs9a649K2KN20rVEqgFOLRWRONKshPPMnqT6 +yk+gNexVfnBICbNPObUOa32Cdy8tNE2klXH5yoqOKnI9nIvfX76EoIzHgv+d +ubi8HujXTfcVkZTxnZ7/qcvTdXDF3sCTqaiMqdH1prOZdaAjrV00z1LGk0J+ +1ZHkOsg+Laf7dIsybtpkdkZfpBbiV7WaLnZSRmPPuJ3Lxj7AHmJTX56LMs6z +vTZm1H+AhUX17idPKeNk7M2nZ7M+wOG2yqjWs8o4q26YaX3mA5BC8tozfJRR +pfPtq4KxarjZH2VnGamMW9fSL9rOvoeL8fvcXpYo480n6051UqvAqmGyZnOp +MtJL44f0RaoAhaI4ZeXKuKR/hXrdr0pYery5+9N7ZRToelzNLqiECLUDe0Yb +lXGj2Ija8r2VkFp8UGXVgDKWTMwYhwe+g5MjquN7RMiotatAc0qgAqyEF+Jv +LyPjnTWutzwHy8GEXGvcIkpGsgXRTrKhHDRMT6VaSZBRllf+X8jjcpjOybA9 +KU3G8lLFnhs7yyHAW63+qgIZD5Ebantvl0Gs+NpnFepknA/pqtTcUgqyEiLH +6RpkbFJWyH/HLIU7El+p/ppkXJ1efd1NshRuLr8RjVpkpA8JXZX59hZ8JQf9 +izaTMSu21f7y9bdgL5Ng8VyPjOk82fVfet7AKgUpkbjDZNwod7oHdUogWWGg +dO4If/ySWY4BoQRoiiXeFtZk7BjV7fUdKQYFpZPjJDsycrwlH7omFIME+X1X +hCMZr6f3rbBZVgy/aVdyQtzI+FWR4GXU8wryVo/ZuYfw18cve7AjqxDcNy8q ++hhKxp/rf+WywgpB3VBqJeMaGbdPvk9VO1UIKc5ryz7fIOPRA2VhWSqFEP3U +lbbhNhmXLFE3cEsrAC/Wn76ZODIWyRenfs7MB23a+NHL2WQ8clLQnNqYC1Ma +gq9bXpLRcqBF+EJuLrzYtpKgnsvX5+Qf5nhMLqyy06zozifj0kZL5V22uSCf +cJaxrZiMyz+J7vIdy4F5pYl+ofdkxMyHJgukHCj+b9LhahcZv795WmJ+KRsi +dx9I/PCVjJqchaatx7LB2begR7yHjH8kDlzQN84G0nfvw2F9ZDy78F3yETkb +zjxfaho5QEYHqW0v/d+9AIq+7JYHf8j4Vi5Tb5j4AgLObV75YikFcz85TD96 +nwUWKXEm48IUtN7B+haRkwXqHf9urFtGweN9EbYxCVnwBctF8sQoeGC7U+7g ++SzQEt+9UCRJwULLKeM7q7PgxyOrwYr/KKjxNNxyGTMTDOqvlLStoSAjff7V +/r50SBsaWqalTsETBvGF0a/TQXyJuXnEWgouCZy2XxadDrWbmIMG6yi4dIn/ +wLnd6WD2uFr61SYKxvndF/UoTIPDHisdHmyn4BGrgo7+2FQ4pZAkbm9BQUKf +fizTLwXqtJYfKLGkYMyVk+qdtimgvtczQf4If75BJRRuTYE/gbu0mqwpGJhK +JI4uSgHP0V/WO45RsFmmI1Ir4An4lmpls85QMA0aRAm3kiH8eNWhn4EULP0y +daC9LBHEk/1D1wZT0CKjNko+NRFC+rgFHiEUzBfLPHTxViL4WOXILrpGQV3V +3P47RxLB2fxRC+EWBYOzee6aM49hO17aB/coqBqmWDW+/jH8JanvjcigoPjg +3j2p5Qngtm/YtyWTgv6G3GDvjAQYiUjOUnhOQbVRiz0u0QnwTUJR8kk2Bb09 +/OSiTiRAvaBoXVE+BX32uB5hEBMgdbTPqL+UgrXPLLZKnYqHI5V39Te2UDB2 +xbjtC5sHICtzneDZSsHxwSLX3ZsfQIONb29OGwWrDmm3yRAfgP7s8UuanRTc +mvp3kPUxDtapamet6aFg07UreYe040DsdieJMUzB/Z8Eq98qxUKBFeWH1D/+ +fqvzyyyX3gP3NMJLEwEqJnc35DO+x8Ca6WVXwhZRkUDavJ74LgYSw//8JyFE +RQGBMYJzUAzcKi8zFllGxdrE68WtIjHguMohd0Gaio9R/ny6TDQQplIDh5lU +3D10rlJ8ZxRYrEq23sHmjwfW0hfYURBvlbDpIYeKN+Vv1xPFokCl8u4vUxUq +JhL0TF7X3YHt0QH7CtdScafhs+Q2izvgpm3FCNWh4vLHGgSmVyTU+khVME2p +6Ds1sfJjTQTIZIs/9DWjosGFrjyjlxFg8UP4fLs5FSfeLP87ci8C+vcsqNw8 +QEXV9foP7h6PgHnycOTkYSoeuTU2574kAlaXlR8td6TiePPasc07wiFE2EvI +zpuK1jVCmVV5YTBgVVGW6ENFP3fuxnNhYaCfK+3/4zIV57r35ps5hoHIsWeL +TvpR0Wj9u8wkUhgEl/YueAZTkZlwTuLuhZsQ5L175kY4FU/9u/nt0q4bEDBO +HSlIoqJkavzMx2XX4JvBmWfzyVS0OHGDY/DjKmx/9PoEpFBRobfR6k/5VRDa +e3C4PJWKq3KVxcp8r4J/xo2BukwqDgZtbLSeDQU/p+ne/gIq7nrOoFhOhoDv +15oWqVoqylw4TxVaFgwuStTE03VUvOpjWiU6GAT7j3icqamn4sqn850674Ng +dYfSstBGKgJb4jT1ahA0N5/WFmij4rprF8V+SQSBaq1U3EgfFbtju7L3KAZC ++6t9dh9mqBgj8En08yF/qJh7uoYzR0XRubW7urn+kKW9MBs0T8V4gxOHJOn+ +EJiffHvbP/7682kqXSN+oP7yb3mBEA1r4+wOrg7yg+C0GFbKChou7LtsYVd0 +Bdbd+/IzgEHDuKjkXEHwBasB5/2dTBqeC3BZUcD2hVCt6RJNNg07RV+cvS7t +C10N0rd7V9HweOFfP7mayxAipr8J1WnISwq27lK+DJ2XXgTOadPw5bcLlZr1 +3hBgHazkZkJDFaai3TKLi5DxTCbk/V4aqtr1xR1bdxHa5hLGyGY0XOcSXjex +/CKsiX5VXrePhs11f4XTyi9Aa/2Ys6olDU0OFwWd1rgAKtsO5w0co+HtHb6x +yqTz0ERfa2J9kYbXd7Pr7QU9QTZK8uHDSzRMK728o7zfA44I//711ZuGv43v +GBlUecD3wYxrNr40nN7B2/fuhgdMZ6hU2gby16/5aXj+Pw9Q3MTmHg3j6yMQ +zX6sfQ4cdiurOD2mYdcnn9SmyLP898XChaeJNIzR/LYx/OJZGFXrej+YRMPB +mlMjJ+3Ogpd0nKNzCg23rf6+Jlj9LFxr+e+xyzP+/HW+metq3SDLlvjfqTwa +VmXX3T+0wg1mzkmInP1AQ+pty6myJ2egqnbcvvYjDdWnR0Vcbp2BaFZ7CaeW +huTpjyc1zp+BDW3Jnt31NCz4IHWZYngGzungj93N/PlGtounu0/D2OKz79g9 +NLQ9dDl89sopGAxrDeia4vPOBw/ov10gf6C4e9M0DYeDjhX2V7lAyNYknTsz +NAx8efrAlwQXYI27ThjO8/Wz0vh5ytwFju0XO1qwiI5T0hoeK185Q48CVzdS +nI4lsVv/Uu84QdvTx4sMqHQ8Y+oFHiccoZTRue0mjY4skbvXM3Y7QnqCTEAD +nY4OoZPdy9UcwTcmcKkli47nw6sb9P44ADPUUeyECh1rY1eb3LzgAG7HVxNu +atFxIIG2yiTiGIizstkNBnTsVJiL2fPFHqYeDTsRjegofc1RZ1WZPXxVoqdZ +7Kbj0C7pSeZTe3hBvKPat4eOa2PUZgPP2cPBpZ4aE+b8+CM6oj6vsIekfm0d +ojUdM9ZY998xsANuYukei7P8/aslRy622ICj2ro10e50jB/bszr/rQ3cKkwS +bz5HR8kzGgaS6TbQV8+3rxcdT5SQ4ldesYEQnrHuLm86GgRYddqp2EDD/g6t +jcH8854X0ROTtAaHZROKxPt0vHXpW9xQ4mEIizw2bxZLx1fWD/e1XT4M+cot +7eFxdKQ4Pn701+IwiGkV3pWIp+Pml95ipVKHIcvOV2pJEh19LcPDg69YwmyR ++JKJDDpGp+/iPHKygLBTjJ+fSun4O+P7QqjFQdjeE9eyqpyOO7sfOBhvPAjT +ZsQy/wo6br31X8Q24kGw2SR8b30VHccVKaoFDQdAXWhwZ0wNHRNldMxbdx+A +hpj0xzatdIx4sPh6stF+IFRoWo7+omPz/AvOZ2dzqN6Qrqc/ytdT6F6PrLE5 ++KTSNRJ+07FDkFARsNYcvocRlpmN03HVilL1pmkzyLX4m5s7Tccqb+MYw1Az +OPi7UNpHkIEfPrRGnnxuCvflt1WLyzHQjviIJKO4F5yfi983/o+B3/39gm8v +3Qsbd7a43JJnoLGGurX6bxNocjshIaPEwA0NX5+9LTOB5dVRJvI0Bi7l3Evl +njABX6/hZo4qA92L2u8LBu6Bo58j+/S2MpDwnaHmuHQ3aLhYvwzZxsBsN58Y +zW4jEFi0KrBal4H3/gYu1ig0gjiVEqaxHgON/njXlJ0ygmb/Qad9hgw83cHR +XdduCPoa3N/2+xhIH2TGSBUagErYj3lfJwa2jTG8CbH6EChe0P7FmYE1khlu +f7z0oSv0ar72CQYO/jIyWbRfH8IDVN0nTjFwKqgvNVtSH6bOnx12dGegVfve +7fYhO6Hk6L8248sM/Desc/6Frx6YapPyFO4w0CFbz23n7e2QljcQeT6KgZ7c +IoPuc9tBaH2hW/NdBkpqV088Orgd8tSOrLl1j4G3t7d8SlTaDgqMx0mC8Qz8 +pOhtHJmuC/0r1CKHUhmY9ltg7++6beDVr+ea/4aBokXzrgqaW2E40HndwlsG +fjwguZymsBWsmDf/6pYxcJ+W3Eb9JVthh+Nn77oKBtofrIj81YIgPWh/9Xs1 +AwsfKq+M90FI/+n7WOYzA3fpBpQLPgboHi/8fGaQgUd/D4jYyW4Bs8iu6Nwh +BuaKX1riM6YD79YtPjw/zMC704vf11TrwLNzu3qDRxhYxdC8LeyjAxf+tow8 +GOd/v/neh87vm0FmbkK4hsdAw9tSTxvfasOuxWraHGkmZh6/76F5fyPMP792 +7/hKJv5wWNE5cmEjZNgOzD6RYeJrnzTnJouNIPM2oYhJYmJF8RW2ovxG6L4s +s4WuwMRjvWLaD+M2gBdvBpSZTFzyNkJjQ6oWpEyX7yBoM/Fd+222Sfc6sEyh +JJtvZuKkQHHucPk6WH7QZ2mkDhOdNm4mpT1dB+55GyqlgYmjTbzIyLPrAD1S +9SW3M3HY5th5iWXroHU8zFDMmImOb6j7TmtrgvCoxd5FdkyUPEa/VpqzFrYH +FRdb2jPRWeN5ybXYteCnSFXJPcrEepWk117+a2HBcHCpiyMTd9+rN3y9dy1M +pXi+ajrBRL97QpuHR9Xhu10kK8WTiYYVNVGZGupQ3lzDM77BxMQUBQYtQRUW +n1rr8vQmE79nfzUb8VAFXHKnVfAWE9f+3ucxaaQKrzQPZ+dHMJG6JVE3d0YF +sm8NHadGM7EzK6N5ep8KPDIQbpp8xNfDoH2lttxq8C3G1Nh8JhLVN2cEVrGh +1Wtq/msBE+EDR/XGEzaoa6bvoRUxUZi09MSbIDZ0PyFNPn3Nj98gcNvTHWzA +8BHIK2ViyA6itE8FCwSOxn7+9JGJR/33rBasYcLlZdMCwj1MFJRwvL5olg7N +Zc/MDHqZSNrpcJXYRYc1PvbJN/qYGHz5S4xJKR26/tQaynxnooWIAUfzGh24 +nUlRlGEmPrnz9lW6Eh0WMsxUdCaZ+EYi7j99Ixr4mGcecF3GQu6XZruvbyhg +O+WSVyfKwuGKvOO6Tyj89zGbtEachRd3zxh8vEEB0c6E5qHlLPw6Y/fJ0JIC +d+wj9x2VYaH3igdq83/JkO523uyAMgs3Ciu7TW4gQ/st3T1b1rOw2kHDtj9B +EV5rCGTe12LheO6PO1RPRYhverV8dgMLrY98t44zUgQHWa3aXG0Wvt9wzdRg +WgHGHrJ3qyMLMdGP4WWqACKZEoY0QxY2+NZntkrJw4aaFr1ltizMCY/YfLpQ +Fix8anRt7Vg4c9Jrhf1dWbikVoYF9iw0monyCnGXhdLwDG0nBxZK1y8fd1CT +BaP9gWveu7Cw6BHOOj8hgc1XDWKoB/98hPsk83giXB270S9ynYWbLGrf92XL +QPoj/16bGyw8OBHaGxolA3Vm57/m32Thuhm7oEPnZUAm92jb8XC+Ht3UQHeQ +gQcXNtdURbGwXqFc5HbNSsgWHHwZksDCWBVnXxyThk7C9gCRPBaa10f//Gou +BbJD1xx25bNQwZFrNLZFCvYVN+pfLWDhbEf5XzJLCmod7CXEX/HzdeRnRPuM +JLzN84ta8ZaFUjoHQ17ES0LyobcpxA8svDxvLf/kxwpwjePW0L+ysENr/e7U +IxKQ4RqUeaybhYR76b8+aknA0I7a8OQeFvqY2Q5TJSXg6MiR/exvLGTL9Y86 +lonDfvD+unqQhb1djtXGKuKg01M0pjHOX2/303C/sBgsZWwibhVmI03UUTii +WwRqu4OXxImwsVS3pL3rlQjciW2emF7GxpLK/a1WMSJAl3FvzBJn43DKsOpf +UxHYJph5iyzNxsq+GYsrVcJwuYcuJqDIRqPM5zWvXy2F6ThJgRINNvp6Xmuc +qxSCN4esR/9bx8bFfWsKWKlCEEzI6PJYz+bfhwF2PteFgHjD8PWajWzUuVcv +lrZXCNZfCrrwYAsb7+k9Vpj7IghuFvMT3vpsJJfKnty2sBiGiQODOlZsfDNb +ZdttuQg+ToYUX7Fmo9mFKIn72xdBRhPn9jsbNlp5i/S5qy4CtwgXHRN7NppT +nI8G/hOAaYnRm/bH2dhAVEFCkgAsXTKledWNjdezk8TvDf/jkscFfVqC2EjZ +7fFF7hCPu7gh0VQhhI1lXFe9N2t53L6sHSzbUDaW6344el+Ux00+FVw/dI2N +zja8JyOv5rmqQ6K0hVts5Mx6PV1En+dq90hV0e+zUfpZXV3c3Cx3X52ytFsm +f/+eiae9tdNcj9cz/llZbNTP+Cq4I2OaG53WODnynI3uZ4zWN9yY5rYHB7e5 +vOTP37+ae2L3NNcGR+OPFbAx4Zt3U3TtX67z82K1Q2Vs7JDKtU9sneL63j6y +G1vYuPrivS8E0UnuoysbSnxa2dhJW5ToMjLBLTsttfZ1Gxt/kchl/Q0T3KVG +FTLanWx8KyiwWy92gntNSLVTs4eN41NqjtnqE9yoc/POrGG+vvtUtxBsxrnp +B+6HLP/Hxu3b85pKWsa4B1UvCR8X4KCVwcF/hsVjXCHBI0FvF3GQEhfpOp84 +xj2SoRTgLsQfr75m9d5tjLt8yaPL7cs4KEdnvJOQHOOeeZHikSzDwbl332QI +e39z10vkHuWu4uAW1pYjsS2/uL29UX13V3PQS8VNedmzX9yb+Z52YyocvKXi +GPnC7xf3u/0mm0Q1Du6t3L6lcM0vbnThK0vR9Rzsszy37nboT+6sY5lpM3Bw +z8rRMKrBMLe4tB5P7ePgYavRK4ETA9yAIsGkrP0cdDs5LW7QOMA1fKm1bPwA +B/UoPz9pvxjgtibFfvK04GBJzTOl+DMD3LGQ43ZXrDl4PG7P8bOjP7j0PQIB +kU4cvFJ2uFN08jv3aodaZaE3B7mxmh7eSv1ckya71TwfDl7I+bL4yOJ+Lqnm +Thj4cvBQbug/2+/fuInFcwfK/TgY7ybk15Hxjfs6oXKgJpiDsoHZu4K3fuP+ +drQW7QnnYHpf3tO7J/u4+yZu7hZO5p8nafnL/V97uKW129RPP+Hgm6HLIxXl +PVz1p1PSLSkc9P8iF384tYcrbmXVmpzGQfXxap9/53q45ZWq9nrPOTgVLd8i +s6KHq3H/o1fgKw7ek3d2NdLv5kpuE00UbOSgn/iGJQOpX7g+CsVBLk0cdIqQ +7K7x+cL9OeXq1PiZg+2jPVsnTb9wq9La1jxu5aCv2GeC8Hwn9zLhacG2Lg4u +Xabjo7K3kzsysLPuyiCfS+XkVIQ7uIfL5p4PDvH1fx+1wOtq51bHZUbu/clB +V9Md0WJ57dxkU5IFZZSDg6rKQa2O7dwjr75/ezPBwSFyQYHaxzZuddS9SvYU +B6VMpNM+J7VxN7oap976y9dX/kHMy8ttXBlm7mmbWQ7WuxoqKKxr4/oJOJtW +zfH9JZYkkri8jfu7XXG9Oo+DK0cePrIfbOVa5XwiRS9w0Hzmxl2L8lbux7DA +2X//OHg6Z/OdkIet3P8BT+ekPg== + "]]}, "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:eJwVl3c4lf8bxxVFVsg5R1/r7FFElEo6992S7NUiu2gXCQ2SrSWSEEUoIZQy +izIiZSTZyWgYRTIyztHv/P55nuu+Pn987ue53tfr/X5TnE9aHlwoJCS0U/D4 +//twz4S4kJA82ujxeNdlZ2Bb7Kad75PkUe27emBB8yzEEGbFVc0IGDPFvDB7 +jAdjqjVnvo4RsOTjPmujU3xg1Cr7+kQSMWNgiGnbxoeGDT9Eb3JJuPqVLu1g +GB8Cdco3kntI6Hj4oj8riAfZ0zLj2hEKOLq+u248dxae2PzQJ25cjqm+dMUn +ZtNQurNh69HO5dgi+sv67otJ2Dy/olI//D9kiMyKe5b/gXqI/RW9UhH1tj6S ++zMxCmso1/Ke1CriVu2Z588rhkCmZpJn7a2Em/nfmTeSv8HU3MnRIwrKmPnE +pv/jsV6wnLQ7KFqtjH+oG2veLe+E0OsfvT08VNB/3DNKo70Z3jyz0TaXU0Xp +ZVWdNeRGOJ+0y+NZmSpef7jmRBe1BhIkVz+u0iQjL6y7WntTORSsHHP2DCNj +Z9KSu9tzi6H0v0nXy91k/P7qUZn1hTwwbLxU1r6Kgows3ovd/VkQeahm389g +CpZ/ntrTUZEKdtW3Dda3UjBh6bjTU8e7QJjKCB5mUtFk6Ey15I4YCBP1EXH2 +paJDnUhOTUEE+H+pa5Wtp6L8ubNUkSWhsCb+888gBg0TYx7kC4M/NNNXmzuc +p+FVE3aji7A3zJyREjv9jobUm7ZTFQ9PQfujlAWGVDqesvQBr2NuwE0tN7M5 +TceuWpmR862OEHGC8fNDOR1/Z3+fD7fZC3cUt9RKLmegM/E+SV7ZAtQifvD8 +DzOwfYzhS0gwAJ9v+u6FrxgoXsJzV9LeDDsXauhy5JiYc+iOl/ad9SA6amOx +wJmJMgfpV8qfrwb/UsxIKGQiUXNjdnANG/ysc/a4L2Eh93OL85dXFFhX16q/ +xImFzyOjNp4sVoAuwrYgsQIWWjfG/vxiLQuLGRuIm0XZSBN3E43qEYNh4sCg +nj0bX83WOPXYLoBdDapyHjlspPROPOqrn+Zm7bkTJv2Pjdu2FTSXtY5xS8sb +8cQuDu63H70UPDHA3TVx3UT0AQfN0qSf7f7Sy30fETz77x8HTz7feCvsXht3 +t97yFa7m8jiz4Ij4hpkZ+NWimDH5Vx7fzus+Tc6eg8r/nF5dSiLgQZ1tJbx/ +PJCY9DibvZmI+cH2+5IK+TB7KaB80QARVw7DaqNaPnAKm5P3RZDwU4L6u1VK +fIi9fZiUsU4BVw9XvnieOwe5HJ4S45sCgsrknPiNGUiddl1RdFIZC8sCT/17 +1w0/X8eOvFBSQdVDUm//NrTCA8rtXU7lKpjlmZCZvb8Jkla0WS48rIqm3ok7 +loy9g+Mj6uNmYmTU2VmkPSVUBSuUZMUS95Nx/fKTvahXBrq08QMX88hod1zY +mvoxH4LObFz2dDEF8z+4Tt9/mwsnlNIkXWwoSOg3SGAGpMNfkqZFVDYFJQct +zDIqk6HInvJD9h8Fx1cWVtgujod6P9kqpiUV/acmlr2vi4KgcepIURoVZTKS +Zt4vuQIdL3Y5v5uhYpzQB/FP+wIhyCFUxcOchmpMZeclNufB1URV7XAKDbs/ ++GU0R5+GwYi2oO4pGjrtuHuX/vsoSLLy2E2GAr0qzcWZfXYB1yUTysQ7dLxx +4WviUOp+IFRp247+omML7ynn0xFrOPApul9/MwMJ3xkabotNwFKXVKB0i4Gu +efoeO25ug57x4k+nBhl44PeAmLPCJkifrtxO0GXim46bbPOeNVDZUsc3vcbE +1HQlBi1ZHS4umRYS7WWisJTb1QWzdOi4sdVs01oW1rpqOX1LVobLY9e+iV1l +4Qab+rf9efLgnsito39hYafOWpMMOymYTpQRKtNio7/3lY9z1SJAHhf2aw0R +6NXE6/PyfXyu/007E2xl48rz8Z8J4pPctVL5B7grOLiJtckuofUX93KnRnWx +Lwe5CdpevirfuDJbxFOFP3IwQHLdooGMz1xH6dD/tNnyWBedrhodMgOxBVkz +ju/l0ce2aseTbXOgHvv4YKM3AQPlqv+FFPPA73Ki99vlRHTbKRZuG8cHGWaj +atkLIraKkt+XtfKBN/3ZesqVhGnGU9Zf9vBB+sctzjcJBeyIhNTtZB5oRC4O +UytWwHuBCw98oM+CyblhSbltynjJzsI206UH7tnOcfrGlHHiXc9C/SPtQNz7 +/PvheBWMzFFIjov6CHknl299tEkVN2ywOmUgVg8ZpXvVVgyoYtnEjGlk8Btw +kU+2eaJPxiy+wtrPva/Ah/WnfyaRjCWKpRmfcgqBYqCw6e4fMr5enqM/THwK ++72Wud7dRkE7+6LObwkZsA0v7IJ4CqpHKNeMr00BiZtdJMYwBXd/EK59rZIA +Hrr2jHA9KkqnaBGYPtEQ4msycy2Siif+Xf96Yec1UK+XTRzpp2JPQneemXIw +dF14GjynS8NnX89Vazf6gvIGNvdABA3nhWLZKbpnYGzh6TfsXoFe912MnL10 +AjwOrSRc16HjQDJthXnUQWja3amzPpSOrmfF9CVkHKApLivFsY2OUXcXXn1g +vBv8fYZbOOoM9CzpuCMcbAZlB/61m15k4L9hvbNP/fUh66d/ivwnBu7cGlQp +nALgw58BVSYTF72O0lqXoQPfnaNZ6d5MNKqqi8nR0gShAwmfPrxn4oFAs5XC +dUzI8jhrtUeVhetFVT0m15HB8YsWMdyLhV8Id0jWSUR4sO91OvEdCy/yHBQf +/lgKF3vpEkLKbDTOeVL38sViWLxoSvuyBxuv5qVJxg//4x55Uqqxr4KNnbL5 +LqltU9xTT9O9HshzcO7NV3mCxW8u3UwoKPowBy9V7O8Sn/zO1brz3if4BQfj +FY+4Gxv0cLdMXba5TCPgVo1bMVmyPLBJlFfUfkvA3yxKW7megI8OBudvHibi +9UCR+uI6Pnz9vOag8TISKh4u7uvI4cNu73cjLwpIOLR5983gTzygGWxadNJF +ASXT96+R0pkDnWGfyr1DKph34nDbsM4HuP4txtk2WhU3r6afd5p9C0G+Go2X +lci4j9xU33ezAn7TLj0P8yDjF2WCj3HvC+CpTHwTeUtGzLlnPk96Dj/u2w9W +/UdBrUeRtkuYOeBfrpPHOkXBTGgSJ9x4ABmj/cbfyilY/9hms+yJJHBb4Zo/ +L0fFFFQ8myUfCysrKg9UulFxvGX12MbtkRBweLrvWxEVdz5hUGwnwyA0M46V +vlSgp10XbZxLLoHalv0FAwdpeHO7f4Iq6SzkOhH/O1FAw5q8hjv7lnpArxJ3 +a7QkHcsSNv+l3joMad909YgOdMxe5fDtlqEzzJZILprIpmNs1k7O/cM2sPd3 +sZyfMAPfvWuLPv7EEgy0uL9ddjGQPsiMky02hG9LNaKHMhiY+VvI4nfDFpCf +mxCt4zPQ6Kbso4+vdaFtPMJIwpSJbq+ou07qasN9Q9HmyfsCXhp2LNNdvhLm +s63U9CaZ+Eoq8T8DYxqI5UgZ0YxY2OTfmNMmqwh5woPPwpJZmKB2xB/H5ECv +t2RMa5yFBOefRrtFJcDDhjfha8BGcrnC8S3zC0G3V7aGfoeNco8bGhLnZrkx +Z3hHWMNstNqlvongOM6ddauwbAGBfy8bjaAaDnN/uzmI90ZyMKu/4NHt4/3c +kYEdDZcGObi4fPlyNdFO7oG/L6OWy8tj1d9pZSvjGRhhnUmOyZfHikiTXDep +OehrsSr0diGg6zKJR0XRPFj/6elUyyIibjRbaLs4hA//TXvVKz4kolSQbEha +Ox9c45yzKy1JqLpRcz7cnQ810llPF06R0PPj86/PrHgwUnllU26qAoanFi0V +PjYL1BJ1P+4qZTQznZ5s+N4DPulZ1Z5dymhu/fWOLXSA6eltGidCVPDplr/G +1drNoCenW8JjqeJxkYDaaHIDRGnsMRv9qIrrJUY0pC2qwV9mMLBkIxlzE9pc +Ll59DbGP3GnrbpJx0SJNQ4/MIjj1ZLFl9AAZXWW3PAt88xSsUmrlXmygYGLA +HXGv4kw4Yn2/lXCDgqF5fE/tmRRYo66bu6qXgs1XLhXs000U9IGgXcWrqbjD +6PGDdptbEFreN+8dSkVm8hmp2+euQ0vLSV2hdiquuXJe4pdUCIRJGGxATRry +00IdulUvwnS2WrVTsCCPrvppdPY/Lzijhz9MWmioaey0cLrnJDDD3SSOqdGx +PmGl+fVzrhDGN92605eOhkH2Xc5qjqApMrgjro6OqfJ61m0me0C6NsZckcbA +xZz4DO4xc5g6e3rYzZOB9h0W21zCdoDcoMvl77UMLL6nuizJD6HnovwmuhIT +D/ZJ6N5LXAdT6d4vmo8xMSBeZOPwqCZg5AgUlDMxbDtRzq+KBbdconcdkGeh +79K7Gry/ZDDeHbzq7VEWltzH2SMPSfC6ICBm6WsWyurtDXuaJANbhHNukOXY +WN0/Y3OpRhSmpUavuxxiYxNRDQlpQuCIo0kHi9iY/NW3Obb+L1d60f2LHUs4 +uJzOeCMlM8YdCzvkfMmBg4cSzQ6dHv3BraxWd9F/wsGpWMVW+aW93FhXq4Wv +pAjIBpdTsr1zsLSr+HjHMwLauMb2+6nywTLDbjZpFxHTNb02+FTyYTSnc9kj +PhF/fT71JK+UD69I5gZXUkgolGt9au0sD7pPWl2/aqKAix23+hR7zsGJxWJS +di0qyGP2pjVWfwBSWEFHtp8qqnW9flE0VgvTz7OdjsuRsbJcuffajkqQIr/t +jnIj49Ws/qWOS0pBMfk0Y0spGaU/iO/0H3sOOpIm8yUyFCy2nTK9tTIXvEd/ +OWw/SMEW+c5onaCH0Cgs3lBSSEE/M3c7BjEZblRWmIotoWJ96tXSNrE44JGH +oyf3U9Huxtic56IoCMy+NtCQQ8XBkPUfHWbDQfPZ38oiERrWJzrvXRkSAG2N +Y0fUbWlovr8k5KTWObjS+l/K0cc0jFvjn7Om3gMO7pY4ULSAjlNyWl7LXhyB +vYu9tSasBXNUZ8ynpS6Q6+wvuyiNjv62kZGhl2wh3+Zvfv40HWt8TeOMwq2g +JXDw8C4jBp7s5Gxd02EESoyUNOEkBn5Q9jWNztoK5/62jtwdZ+Culvh3Xd83 +AnplGMhsY+Kw48GzUkvWQN6NoUPUWCZ25Wa3TO9SA25XWgxlmIkPb71+kaVC +h7F7bBNNZCGmBjB8LJXg7rmNdTUxLGxUqhS7WbcMdoPvl5WDLOzrdqs1VZOE +tRdCzt3dxMZ4/RSluc/CoD4kTpu/wUbOrM+jBXQe94qIepd2LxvHpzTc8jQn +uLHFL2zF13Kw3/bMmpvhP7kvk6sH6kI5qBCctzN081fuRcKjoi3dAj4u0fNT +s+ji+uwTXca5SsDjTsMXTbt5UAlh0yXqRLxTfihtUwYfFllz3J2biFjaRnZK +aeJD1N59c6zzJKQKW+Yd3siHB/Ynaq58JmCcVpZWgSAvdstr84J9idh3ZDLe +vpkPHRLX80fZJPSvpVq/SuSD3YvvX19NcHCIXFSk8b6d+/1oe72kuDzikzCm +kMYMLHfcd+ZJpjyu2vE3W3dsFvSmHjgZ7SPg3hULxUiXeBB9blP+5zkCBrne +zfc8zweyUy3DMIGIF1XIvQcFfI4fpHdmGpBwL8+x1MJXsB91nbfsMAlz4kjV +psd4UG9vqvAnTgEjD0cvqLo+C1c76/OtacoILaZLvTi98M00mFj6QRm9Qt3T +fmR2wJDQVatTF1RQLVuNMR7cDJdcDL2ZyqqYEdtoOZvTAIsPtfR8eKuKQt0p +teyiargufS0WdchIHxK5LP/1NaQfWV3x6RoZD+ypiMhVKwbSd9/9Ef1kPD3/ +XeY+OQ/qNzAHDddQcPGiwIEzJlngZ/9cYcEVCm5Vz/92yy4VDGYPXdDuouDm +jL+DrPeJoFZ9+5elGhVTCfrmLxtugdjBxwuOB1DReO2bnDRSBKzsVFkS/pGK +wJY6Sb0cAt1Ncjf7VtDwUPHfgOV1F+H7YPYVR38aTm/n73pzzQvWtT/w7mmk +YdE72YsUo1PgHxe82JZFx7ORtU36f1yhvzHsrYUPHY+VkZKWXXIExw2i8Wtr +6DiuTFEvatoDzR7HpORVGLiu6cvj1xXmEBmk7jlxgoFTIf0ZeTIGsN3tk29D +FQNd9lZF/2pFkH+dXMIkMbGq9BJbWXE9zBsNLj7qxkST+EajlxaroechafLR +S8FsGLzl0XY2iHcltwxJC/LqjPMHI1sKlEdm6x52ZaFco/S4q4YC1Lu6SEm+ +YCHX7mdUx4wM0OU9P+ZKsnE4fVj9r6UYeEQd1TN3YaM15ciB4H9C0BEa2n70 +maB/7V7JPWYyzbXLVgnyFOGgfe0V+7ceY9y2tIQP3jYcLKt7rJJ0aoAraW/f +9iCTg5rjtX7/zvRyy++ua+lYSMDWr7KecjVzcGROipSdQUDrtmU+IjJ8yDYb +KHpoJODxGw2LbgGPJxQ0jrb+IWLO41tBPwS8nnCTO+MRR8KByxmnwyX4UBLY +bXlniwKSaDvSl96cA/Fos9UO71WwV+O4e5lsE+xvr45pO62Ks5pGOQ6n3oGW +5YkMeykyKvAr/wtLqQQllePjJGcycnxl7rknl8IKZ+2qnkIyLv5oq7rTKR8+ +Y6VYgQQF92w7nD94Nhf+BO/UaXagYHAGkTi6IB2+SinLPMyjoK9XwPKYY8mQ +GvnnPykRKgoJjRGOhMTBN7N5tet7qKi+1uDu7UNRIGKxd7gyg4or8lUlKvwv +Q3Dhg5tb/gn60tlMte6RAFgV+6KyYRcNWxr+imZWngMfuUS3I+k03LLy+6pQ +zdPAGnefMOLRMNNe6+cJ66PwlHhLvd+MjqvjNGaDz7iAhE7xbakkOm585itR +LrsfvkcQlliN03HF0nLN5mkrSFQrY5rqM9D4j29dxQljKNCwW3UjnoE3t7V+ +SFXZBo/P7OwLHWFgDUP7pqifHngWrKuWAyaONvOjo0+vgRfa+/MKo5hI3ZS6 +NX9GDbr/1BvJf2eijZghR/sKHVwVdOrzdVn4dt0VS8NpJZDPP9B+KFKQD3qo +wZ4gDwdG7Hazv7KQvfzbqFuFJBCvGb1ctZ6NevGNEpkWIvDgRGjj0BU2HnHk +Pxx5weMuNq6S1+1i42thIRP9hAnud5cNjqkaHLSo3rapeNUvbmrp3J7KAA4m +eYgEdGZ/5dZktq9KaeOgv8Qngiivi9vkY/OCd4mAIQ7M51nveUD5JldYTiPi +5r9bKhXv80H85YWaG9VEFP3Aqo79xIfqdEX2UncSKv8dvs7fyQchv9fuDh8J +OPH2oGiYIR82Fr8suXqaiKyBFYpOH/jwxbNXSkWFhNasgdq1DwW8tCTZUEY5 +OKiuGtLm1sHt1GCva1xKRMvZjuD5CD4QImjev54Q0Sq5QmW5gLeTIh914x2I +eDViuPbYWz4M6Ye9OCdGwj3B+4JyCvhwKJ6//vk6Iq4zfJNe9kSwz/Cn5Ws+ +E/Fp6kvhL/V8CDiZrncxlIjOuF//aQsf5Jn5Jx1nOdjobqSktKady2b+OLZ4 +kTx2N4+tMiLPwKoLRl+4D+QxcvPDB8L9szAYbK6z1pqAuk8tW0jePNhSt5DY +O0XAh+bTPX/O8OE+wdOiN4aItxrNW2ba+PBMNsT93lYS3ndoW/gngA/RWRfa +Y78J/OFnsZuVDw9KM3MW3YxWwLWvDs6O3JuF10dVP35RVsbt4REi0ka9oHR/ +7KXze2WU7wxMzO7rgMLqnIPu3ir4TvbJipM5zUC/armrhKSKb/QDT1ycbgAU +ieFUVKriom9LNRt+VcMtqS/UQG0yrsyqveohUw6aRrLLGFfIuG3ybYbGiWI4 +4l/UK9lLxj9Se84ZmOaB5CJr66jVFFwUPO2yJDYLwvq5RV5hFCyUyNl3/kYq +NDn69z1vp2DNPt12eeJdSLJP3nCPQ8XrijcbiRIxYJAvF/jjIhXneiwKrdwi +YLed16m6Rioue8Tr0nsbAuE602XabBp2iT89fVXOH+xEf//64kvD36a3jA1r +vCCW1VHGqachefr9ca2zpyArWT6oiU5H1/DJHmkNN7hRnCbZcoaOMqe0DGWy +HGHailgRWEXHzTf+i9pC3Avrd7QevaHIQFMtTQfN3+bQHX65UPcYAwd/GZsv +2G0A9szrf7dWCPKUzvL1Bos2Q7bTwOxDeSa+9Ms80myzHgKUqWr5B5jYqJb2 +0idwNWhqZ5nRSpgoSlp87FUIW9BX2KRVkiw8bzJj+P4aBS5oVGCRCwuNZ2J8 +wjwVYFfpR4PLRSyc7az8S2bJwq2ElonpJWwsq97dZh8nBtnNnJtvHNlo7yvW +76m+AGIzP06OPGGj5ynjtU3XprkiwnYhrxdwkJIY7c5LHeMaPdNZMr6Hg/qU +nx90nw5wNR9NybWmczDw8/Kk/Rm93LZiQbbny6Nzgz/hUMkckK4UDN9OE+jR +55yqnBgf9t9/vDxTn4irz7LLP5bwwbuuLebELyK+k7tsm1fNB+kbpyVco0no +eztN5M8yPmRI0Z9TNyngL++S0unkOWizOb3VsVoFxzg/u4nrmmB+QaPn8ROq +OJlw/dHp3HdgTq43bRUnI9mG6CzTVAk05TJfGwcydo5u7fMfKYWnW5YRNPMF ++jv+hzkelw+anf+urVlCwUP9UU5xybmgaeGdrGhHQTvDaijenA4jUQ9ylZ5Q +UGPUxuxobDKsml5yKWIBFQmkjWuJb+LA5ofo2Q5rKk68kv47Eh8F2+6/PAbp +VFTq+2j/p/Iy5OrOz4bwqJhkeGyfDD0Q2ueSx8hWNFxzNLJhQvo8jGp0vx1M +o+Fg3YmR486nIWxzmt6tGRoGPzu553PyUfiiQs+0MaHj0E65SeYjFyhUbe2I +TKQjxS3l/l+b/eCXQddK/k3HTmFCVdBqaxBasCK4disD4/8GL9QqNgaRtcUe +LbcZKKNbO3F/7zZ4s2bhft4wA29PL3xbV6sH0nv9FkfrMfHw+o2kzEdrABfd +ahO+wcTVv3d5TRqrwyo/lwfX+pkYevFznHk5HZKaX0jPrmOhg913h0RjZWiw +Ovul8DoL18w4h+w7Kw9D2+sjH/Sy0M/KaZgqIwWhhOxur7VsQT4Kcva7KgL9 +udtZTuFsrNz67sAdcT634qTs6pftbPxFIld8a5rgXi/0dh5T4+ANNbfopwG/ +uKS6WxHgz8F9+eH/nL5/5f6ccj/88RMHO0Z7N09afub6i4lEfr9AwFmPVs2M +Ch40rmsjvVEhIrtVcV+DIG9fc2dOsMoF/N50TOKNgK99jRdKFx4joYhFf5mI +BR8eSx3V31kvyNdKg9KFWwX8lgxUvHGCiElGq/j3G/jgzLmy4bkCCT+uLDpw +P5MPtYk50RY/OehuuT1WoqCDezngV8xHcSIu3NhcTLjCh9itdfeDsoj4uft0 +n4/AH1L3xMYn2hBR9V0figr0fWxu9YCsMAnltzqnGwn0T/xVHluoRcRk77PF +ctkCP7h3cfu7ViJKHahd3tnIB83y4wkBAUSk3BYqSRT423p304wbfzl4TvFu +3LOL7dzELPLs02QiHnoFzHuC+4T4VJtUcyI2uBK7yl7zweNAMOA0Eb8a3Ev5 +IZjDxD4mzLwnovC/TUPrBP3kqtu0bbgPEVNFIhZN/r/fdJw12l1AxD23PgsM +kA++OmojCX1EXHpDVCbnPR+alfq7zl8l4qXmUpWEVj787lBeq8nn4LKRe/dd +Btu4BsIjGwMXyuMrIcb0L4UZ2HB5W3RwijzOb9+7uqdzFl6ZpJEzLAhoQKIO +SnrwIN7rW5XzBAG7kifqaKf58HXU4IdaNBH77WU+5AruL0/L11u+mYRxVWbr +nwQL9nW/d7mrj4Sk6S9hW/14oGPpeKE/UgFDfS9Je6XPQlfeDieGojKG2TPW +Ddv2QsG7h7LP3ypjX07rYa35DiBnvh4Z81TBlAsB9fqVzXAmaXflIoIqHgz9 +d+q8dCPYN03WbSxXRXp50pCBWA0oSIkdomuRsVlVqfANsxw8Ny4oeR9Oxp9r +f+WzIooh2mRP6rsvZNTmzDdvPpgHmUNDS3Q0KXjMMKk49mUWSD4IDF8dSkGb +7PoYxYxUUJC/SvBuo+D4YIm7yca7YLPigcN2NhVTguvp8+wYGLCvqkj1o2KA +J3f9mYgIOKpCTT3ZQMXLfpY14oMhYD9wZHcXk4Zngo4uLWL7g0KMzL17FwR5 +svzi9spvXlBTP+5S/56GmtOjYkdvnIJyRteW6zQ6ssRuX802cQM3jTWrYj3p +mDRmtrLwtSNs601sXVFJxx09d11N1++FI08k75j+x8DvgQGhNxdbQLBkUcfn +Iwysk8n2+ONjAMPBR9bMv2bg+z0y0jSlzcB7ciX+0DIm/nBd2jVybj1sCykt +tXVh4hGtJ2VXElZDm88U70sRE+EdR/3aQzY4TR0taBBn4XBVwaGtDylg41e3 +1cmZhTPHfZa63FYAhaErrjsLWajkxjUe2yQL9T2hixLF2Fi+tayj+4UYvJ8M +K73kwEarczFSd7YtAK+XM4G5uWw0yP4ivD17mrtX/YLoISFBnzHc+8+odIwb +VCKclrubgx7HpyUNPw5wy+u3aJ58yMFXQxdHqip7uX011MnsWXkU0kyzE3s+ +ByOWki2SKQSkfNxUKyEiyEtGN96qbSNihqUxE4r5UPjwsVrxEBEfE8eqFgny +nhI9teVLJAmrDpP7CQp8SG7Sd3XVVcAqt5aq/Y/mALjB73sqVTCJtuJ5x84m +MCM29xccVUUe22d9duM7sBedT7q5hIy3Vrnf8B6shAdKA+VzdmTMumD13JBQ +BlNawi9bn5HRdqBV9Fx+PtikJ5qPi1LQYTvra9TzXGjQkd5TZkvBuEvHNbuc +0sFj17B/aw4FA424ob7ZyeCZSXhmLkTFBz1NhYzvcSCfJ3nP34qKhue6C4yf +RcFXw1OPeQ+oaHPsGsfwx2Womnu0ijNHRfG51Tt7uIGQ/VheUIBpqO7cn3hw +zXnIKJ0/9yiVhnHaX9dHnj8NhQOlPRumaTgccrD4W81RmLo/fJhoTEe5K256 +KypcICL6IM8qgY4vHO7tar+4H2rXZekbjNJxSiS+V8HUGrSOOjwL28LAPA+/ +OO0eY8gsGIg+G8NAb26JYc+ZbWAV3R2bP8TAfMkLi/zG9MA2nfLAeiMTJ4VK +84cr18DCE6uPPrrOxO95X6xGvNShpeKxlWEfE0k7XC8Tu+nwUkso544OC8fz +f9yieitD1v3APsdrLNw7Ed4XHiMP2e4hOQd7WEiIz/r1XkcKXu1zGP1vDRsX +9q8qYmWIwMKmVEulMDZWcN31X63mc+9fWlfm18bGLtqC1KMjE9y+vpj+2ys5 +6KPmobrk8S+uebPzSr6fgM/PPy+0W/iN66dUGnK0mYOHo2R66vw+c3c37j1v +e46Av1uEHimV8YDVW1y9Q4mIQv7hNvF3+FBvNBd+uoyIQdmtNjsFfB098Dj8 +wmESEhw23/O25kPQpzLN0ncEzFBWIG1BPmzOP/hO9hgROxnXGc8EfSJF2LFB +iEjCaaYDq+qxIG9VzD0ZHOLg/rcx8/zuDm7vykb9XWJEXJDC7IgK40O78v31 +jY8E/vM+MOaWwD/mhM4bqu4V+EOH21BllaDPf1rsZydEwu4rMpqLX/LheEya +ga4mEeWff16tnsWHyrPWncRPROxpNMmvEvSp0KPmxiL+RCwYSD4vLPCr2pj4 +avYUB2XN5TI/pbVzu0MmI+bvErEu+1B3mOC+PQ8WiTNNibj2QMUG61d8yOPa +fLoyScS7x1sJJyr48Lbvodb2WiIqJS2pGxH41VeZTgkJLyIaBv7cqynwq+Zn +pr3Jz4jY52sj1iLwi1KZBUEDX4goftU7pK6ODyvfVF3lhxNxoPHNZTXB/wwQ +OmJZM8fBOYk0sVTpdq7Txnslt+KImFtwUEtHsI/xbQv7rkqBX18jdq4V5IXd +h6clN+QQcbnRPlczwXm7wpWfQsFEHN6gsUtdcL6/yeiAW6rge9xePksXnFsI +pT0XLyZiyCu6M0ewz4XTQuqz14k4uCBtXkgw2z//QIqd56D1zLXbNpVt3P8B +buGkPg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1nfYFWIYwOGv0tIiDe2SpD3RVGkLERVNKrT3TqShvVHJSijaKG2hbZT2 +3jRoby33c/nj7n1/73m+c51z3vN1fXladKrXMVFCQkLtxAkJse70T3vuZr5u +Rik8nLDLWQdSsUA3p3Q85sFJzh5hrx5OEnbrePLUfKNfpoDZlboJieNnYtbZ +ZPtH2adHUMTZT/plknGXsz3WTqThW13CzFr7VryiC+of7JuSJJ5bb7S2juf2 ++F16iv1jlLPfZN0f789+vf1rjNRF9c/xnFS032JNHj9n/6u1urWttbJ1u7WW +Namf22vfmSd0WmtZ6+/WGtbvPF7Suk5Xs75qfdy61VrT2sLjhayrdFVrM2sF +6x/x3uP12/9ibUMl+23xevxMUvsP7MtQ3n6z9UDci/0G+9cZpYvp1fYtSBGf +qbN91i6kY6FuSWFzP+rmJI3ndZbM2dR4PxzUo0nOft2Ve1ikW1E2HjP/YXzG +HNJjSMEB3Y17+V6/SjlScjepSE0a0pKOg2a7k57F+jXKcw+HnPXgPpbo16nA +vRx21pMMLNWtqRivw2v7KD4rDuuxpOeI7kVGluk2PB6vzfzHcRcc0eO4j6O6 +N5lYrttSKd6H+U/ie8NRPZ4MHNN9yMwK3Y7K8Z7NfxrfBY7pCWTkT92X+1mp +21MlPh/z0+I7wJ96Ipn4S/cjCz/oDjwRn6X5z+K7yl/6XTJzXL9BVlbpjlSN +z938dGdVOK7f435O6P5k40fdiWpxR+Y/j+88J/T7ZOGkfpPs/KQ7Uz3uzfwX +8R3npJ5EVk7pt8jBz7oLNeIuzX8ZvzOc0pPJxt96ADlZrbtSM+7S/Iz4HeVv +PYXs/KPfJhdrdDdqxV2anxm/o/yjPyAHp/VAcrNWd6d23KX5r+J3ltN6Kjk5 +oweRh3W6B0/GXZr/Ov6P4Iz+kFyc1YN5gPW6J3XiLs3Pclabs/ojcnNODyEv +G3Qvnoq7ND/b2ZOc0x+Th/P6HR5ko+7N03GX5uc4q8N5/QkPcEEPJR+/6D48 +E3dpfq6zp7igPyUvF/UwHuJX3Ze6cZfm5zl7mot6Gg9ySQ8nP7/pfjwbd2l+ +vrNnuKQ/Ix+X9Qge5nf9Bs/FXZpf4Kwul/V0HuKKHkkBNun+1Iu7NP+Ns2e5 +oj8nP1f1KAqyWb/J83GX5r919hxX9Rc8zDU9mkL8od/ihbjL+L/dWT2u6S8p +wHU9hsJs0QOoH3dpfqGz57muZ1CQf/VYirBVv02DuEvzi5y9wL96JoW4ocdR +lG16IA3jLs1/76w+N/RXFOamHk8xtutBvBh3aX6xswbc1F9ThFt6AsXZoQfz +Utyl+SXOGnJLz6Iot/VESrBTD6FR3KX5pc5e5LaeTTHu6HcpyS79Do3jLs0v +c/YSd/QcihN/gLznrBS75VCaxF06X+6sEfEHzFxLidg6f1+XZo8eRtO4S+cr +nDUmEfPi+Z2tsW9JSsro36ztqGK/I9H/fx+VNPsfd4MNLw== + "], 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]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + 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" -> {{5, 13}, {0., 1.8656394062186223`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {5.000000000000011, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[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:eJwVlnc81f8XxxVFRiH3Xr7W3aOIKJV0zyklIQktyixCi4QGydYSSRRFISGU +7KKMSBkhOxkpo0hG1tXv/v659/F8vMfnvF/ndc77TbE7bXpssYCAwC7+z/// +nbonRAUEZNBCZ37+ptQM6AuObPZfLINvBBjTv2RngM38cWLpEhnsahpbY0ie +ge8ubbXiojKIz0OYAmozcPTv6wg5GRms+DutaGY0AzbLg//TZMtgTWSKcmTQ +DOzXkVvlYCKDM4ucRTfNzMD26C27PsbLoMp3Vf+8plnYdHV7ZOBjGVzYcXBt +d8csrLlk+JWbLIPhW58kC/bNgpzNoXPP02Rwzc6/GdpjszDCOpcQlSuDZeG7 +sxwl5iA6L33G5qMMellW7Hy+fQ5+NcunTv6VwfcL2i8SMuagt4o6mTErgwLq +SUdEcuagtZCDx3kyaFfnSzheNAelDzY0ty8mYMs3KXfpKv5+DmaL30gQkA32 +Z6R65mDb1FWLqzQC6qrdiUqXmocowqyo8h4CRk0xL82emIc3u5PIqXsJqE+i +Doq7zcNgoInWenMCar8wbSZ5zoPOVLKt4SECHly1WIR0ZR56m83yPe0J6LBS +7GlB5DyoRj87Vu9JQH/pyn9BhfOwv/7gRcsLBPzdLPBUoWQefEWEwr9fIuCs +W4t6atk8NHhZvJq/QsAga2ZO+sd58DokvJJznYAnbYcvG3fNQ/l/tm+uxBPw +mNb2ovl/8zBiKt4s/piAlMYt1WJCPCBdyxu+m0TAJ14XlKVFeOA8J0HKSCWg +eetKLyFJHqzoLDzZ/pKAFg7RfT7KPLCIk5HXfM+Ph0VpLdXhQcDnEvXiDwRM +VZQlbUMePJNw0dtVyz+fwuDyfF0eCPi8dbVuJODE+2PCIQY8SLY6VXXtCwFj +NNI18g7wYEy56ty3MQIWNR4yNzzDg3se/RV2EwTsTJiooZ3lwbaaxcSeKX58 +JtPdf87xIPLCltwvcwQMcHiQ636RBxs/v5hqXkLEzXsWWy4N4kHP6nq9fSJE +XPSY2R4RwoOrfr+iGkWJuHhzUyHhGg861Ngb6lcQ0XS2PXAhjAc+V+M838sR +0XGXSKhlDA9YPYWVOxWIKOAbanHvPg/qN7SS3ikRkd0if6gujgeUfun8UhoR +t/7dVi7/iAflEDJdpErE+6XHk7ak8uBkVJK+tjoRZXK+rFVN5wHxV2l0vgYR +EzzPF0pn8OD4Pd7GnA1E3GDwLqXkOQ/EJt3OZ2wlYm6g1aH4fB68NLz1XmU7 +EVNNjZhQyIPDj57JpekRce15dmljEQ8y9gwUPDEk4q93anu7inlwIHmJKNOY +iOuPlm0yf8PXm0e1SDQhYp0DsbPkLQ9MU4/Mxu8jYoq6xyavch7MCVw0UD5I +RMF2x6HyCh4kHoi+F2dBROUPvShcyYNJoUbte9ZEvB42XH3iPQ+irfUv3nYi +4k1/odrCGh5szT32QeoEETsYNxkva3kwJO4vf+sUEeMN1/Ae1fFgc+Hroutn +icgaWCVv+4kH3yQ7xMQ8iGjg//OgegMPrjtOW4Z6ETFRKGzJJJ+7ZDTnA72J +2Os8ec+qiQfBLiZGQr5EzBtIuCj4mQfqpSdj/fyISLkrUBTH5zbZaz8FAok4 +vEltn2ozD/xOp+hcDiaiHR7We8Hn1e8qrvNCiThQ/+6qSgsPmhT6Oi9eJ+KV +pmKlWD5fOiugOnuTiIOLkhYEWnnAqFb09grn6z0wxLTk87dR/R8qkUTss5L8 +lMXnRwT3vT1RRLxTb9I8w2fbzQ+L7sQQMSvvmIZWGw/IttUMg1giXlYi9xzj +c1fQZNjCAyLWZBzvCuFzXDp59kUCEY+/AeZDPh9uMDzqmMgfd3z9MoXP/017 +1Mo/IaJEgFRQEp/bFB9trH/K98tH/6g7fI7WrXkUkE7EL11ne734vN9pWnxT +JhHlDA857OEzIYzm+es5Ec0SypTk+Nz00rgn4SVfT28LkWZ+vBHt5w335xHx +wJ0vykF83iuQlCNaSMSgN3Q7Dp8lmfXKJa+I2CJM/ljC16fWcC70bAkRAzJa +LHbx+YYrc4JVyq+XLSfE3vH1Nbq716qznO+XG8SO9XwWfX2p6lYlEYU/sSqj ++fl53/tEY0c1ERXil9WM8PMZItIYO/OR77d/W4Y28HmJOcfVroGIxa1k28f8 +/JefN+8gfiZid/3u3Aq+X/weXt7xoYWvx9FquY56vp+HP8ut+0LEF4mvBb/y +/VYsuShg4CsRRa97BtXw/eitpTIS20vEFbeEJTM/8mD2il/pkgEirh6GtYbV +PMh/8kylcIiIz4hjFUv4fvasaY069YuIH6SvWmbz/T4hq+bS8oeImc/uBPzg +10c21+LztUkiPjjZQjhVxgO3o4GA00T8pv/w8Q9+PY1mdqx8yuPX35czz7P5 +9ZfxeanPEQESdl2TVF/6mgcn5tYOSAmSUEbXLsWQX69DeiGvLoiQ8EDgoYDM +PL6/vqw7ZrSShPJOhb3tmTx4LGhTJ0Ak4TTTmlXxjAd2nGubcmRJ2Li64Oij +NB58de+RUFIioTlroHr9Ex60i93MHWWT0Leaav6G34/qNv0Qvs0l4do32rRj +/H5XmpSrI7eVhDEVezY+D+T3E6kg14e6JHxk3br4jx+/vw7SO9L0SXhw3qZ4 +rzcPHGLsMspNSai8WX0h1JUH89NfzKccSJhkNGX+ld+fR48+C73kREKC9daH +nuY86K2/VLz4BAmF9vaVCO3lQWWKPHuFKwkV/w7f5O3i++3goTnWRRJSBU2z +nTbzgJPflHAojISfY1U/rFHggQI9sflrOAkrnMh9BFkeLL91VswhkoTed5OE +/qzk58NR+pxbDAkHrqaeDRXjwRuSif61xyQUyDI/s36Wfx96fhh5lUfCoa37 +bwd+ngd/rdLN5G4S2jhd9mUFzMN114dXO3tJSJr+GqLrMw+R6ZfaovtJmPmz +0NHMax6SqRs8pYb5HEOqNObf11XL018sniKhe2POt5dm87D8xx1Ov5gstodD +4g7yPETfdSKlbpDFtcPlr3Ky5iChQc/BQVsWKxybKw4/nYNUCXoOdYss/vIs +Kp5OmIMi/y7T+9tkkUTbmbLi9hx0nTa7eX23LC610fUqdJ8Dmv6WJaftZVE8 +5fA6Ca05yJiWHNcMk8XRjV0141mzoGVqc6kvXBaDva8s90iZheK0zCW3I2Vx +/ZtjsyMPZ6HWylj2T4wshjtFLqq4yX//lF/bkpUoi6GJBSsET8yCWvjSEJVC +WXzov/joJ/osZHHmFRj9sghKk3Oit2bgucUPPeJmOUz0pss/3zMNxbvqdF06 +5LBZ+Jf5g1eTsHVhVble6H/IEJoVdS/9A7UQ/StytTzq6D6V/jMxCusoN7Kf +V8ujruZMTk7ZEEhWTc6beyrgVt535q2EfpiaOz3qLKuIac8t+hpP9EBn9k5b +hrwihlgxNgxb9sBbF+XGr4qKuCM0TGi5YQ9c76jNNacpIjQbr/Dg9AC1SNWH +u0YR9xhPT9Z974bdF4bFpbcr4pUjey3T7LshcdphVcFpRcwv8T/z70MXmE4e +OSZcqYh/qJurPsh1QN6HJ1I57xWxN7PFSWOhHRQejb22+6iIMh3+cRm97dBv +HEgs/qSIHsGuST/S2sErJb3SvVMRTcy/3beEdnhoOcfpHVPEiQ/di/Wc2+Dn +2+iRVwpKqHxc4v3fuhYIvtno6eamhL7j7hFqbU1ATns7MuauhI8v+dXqlTdB +fmXmMVdPJfwg9XzV6cwmGBK4bnbmkhKqZKgwxgObwPjsdrVTQUr4Yttfo0rN +JiAezPnudE8JwzNlE2IiGiGZcnefbakSprvHpmUcbgDgBn7sLlfCeNqqnPZd +DdBqcVbXplIJxzg/u4gbGkA0cs9a649K2KN20rVEqgFOLRWRONKshPPMnqT6 +yk+gNexVfnBICbNPObUOa32Cdy8tNE2klXH5yoqOKnI9nIvfX76EoIzHgv+d +ubi8HujXTfcVkZTxnZ7/qcvTdXDF3sCTqaiMqdH1prOZdaAjrV00z1LGk0J+ +1ZHkOsg+Laf7dIsybtpkdkZfpBbiV7WaLnZSRmPPuJ3Lxj7AHmJTX56LMs6z +vTZm1H+AhUX17idPKeNk7M2nZ7M+wOG2yqjWs8o4q26YaX3mA5BC8tozfJRR +pfPtq4KxarjZH2VnGamMW9fSL9rOvoeL8fvcXpYo480n6051UqvAqmGyZnOp +MtJL44f0RaoAhaI4ZeXKuKR/hXrdr0pYery5+9N7ZRToelzNLqiECLUDe0Yb +lXGj2Ija8r2VkFp8UGXVgDKWTMwYhwe+g5MjquN7RMiotatAc0qgAqyEF+Jv +LyPjnTWutzwHy8GEXGvcIkpGsgXRTrKhHDRMT6VaSZBRllf+X8jjcpjOybA9 +KU3G8lLFnhs7yyHAW63+qgIZD5Ebantvl0Gs+NpnFepknA/pqtTcUgqyEiLH +6RpkbFJWyH/HLIU7El+p/ppkXJ1efd1NshRuLr8RjVpkpA8JXZX59hZ8JQf9 +izaTMSu21f7y9bdgL5Ng8VyPjOk82fVfet7AKgUpkbjDZNwod7oHdUogWWGg +dO4If/ySWY4BoQRoiiXeFtZk7BjV7fUdKQYFpZPjJDsycrwlH7omFIME+X1X +hCMZr6f3rbBZVgy/aVdyQtzI+FWR4GXU8wryVo/ZuYfw18cve7AjqxDcNy8q ++hhKxp/rf+WywgpB3VBqJeMaGbdPvk9VO1UIKc5ryz7fIOPRA2VhWSqFEP3U +lbbhNhmXLFE3cEsrAC/Wn76ZODIWyRenfs7MB23a+NHL2WQ8clLQnNqYC1Ma +gq9bXpLRcqBF+EJuLrzYtpKgnsvX5+Qf5nhMLqyy06zozifj0kZL5V22uSCf +cJaxrZiMyz+J7vIdy4F5pYl+ofdkxMyHJgukHCj+b9LhahcZv795WmJ+KRsi +dx9I/PCVjJqchaatx7LB2begR7yHjH8kDlzQN84G0nfvw2F9ZDy78F3yETkb +zjxfaho5QEYHqW0v/d+9AIq+7JYHf8j4Vi5Tb5j4AgLObV75YikFcz85TD96 +nwUWKXEm48IUtN7B+haRkwXqHf9urFtGweN9EbYxCVnwBctF8sQoeGC7U+7g ++SzQEt+9UCRJwULLKeM7q7PgxyOrwYr/KKjxNNxyGTMTDOqvlLStoSAjff7V +/r50SBsaWqalTsETBvGF0a/TQXyJuXnEWgouCZy2XxadDrWbmIMG6yi4dIn/ +wLnd6WD2uFr61SYKxvndF/UoTIPDHisdHmyn4BGrgo7+2FQ4pZAkbm9BQUKf +fizTLwXqtJYfKLGkYMyVk+qdtimgvtczQf4If75BJRRuTYE/gbu0mqwpGJhK +JI4uSgHP0V/WO45RsFmmI1Ir4An4lmpls85QMA0aRAm3kiH8eNWhn4EULP0y +daC9LBHEk/1D1wZT0CKjNko+NRFC+rgFHiEUzBfLPHTxViL4WOXILrpGQV3V +3P47RxLB2fxRC+EWBYOzee6aM49hO17aB/coqBqmWDW+/jH8JanvjcigoPjg +3j2p5Qngtm/YtyWTgv6G3GDvjAQYiUjOUnhOQbVRiz0u0QnwTUJR8kk2Bb09 +/OSiTiRAvaBoXVE+BX32uB5hEBMgdbTPqL+UgrXPLLZKnYqHI5V39Te2UDB2 +xbjtC5sHICtzneDZSsHxwSLX3ZsfQIONb29OGwWrDmm3yRAfgP7s8UuanRTc +mvp3kPUxDtapamet6aFg07UreYe040DsdieJMUzB/Z8Eq98qxUKBFeWH1D/+ +fqvzyyyX3gP3NMJLEwEqJnc35DO+x8Ca6WVXwhZRkUDavJ74LgYSw//8JyFE +RQGBMYJzUAzcKi8zFllGxdrE68WtIjHguMohd0Gaio9R/ny6TDQQplIDh5lU +3D10rlJ8ZxRYrEq23sHmjwfW0hfYURBvlbDpIYeKN+Vv1xPFokCl8u4vUxUq +JhL0TF7X3YHt0QH7CtdScafhs+Q2izvgpm3FCNWh4vLHGgSmVyTU+khVME2p +6Ds1sfJjTQTIZIs/9DWjosGFrjyjlxFg8UP4fLs5FSfeLP87ci8C+vcsqNw8 +QEXV9foP7h6PgHnycOTkYSoeuTU2574kAlaXlR8td6TiePPasc07wiFE2EvI +zpuK1jVCmVV5YTBgVVGW6ENFP3fuxnNhYaCfK+3/4zIV57r35ps5hoHIsWeL +TvpR0Wj9u8wkUhgEl/YueAZTkZlwTuLuhZsQ5L175kY4FU/9u/nt0q4bEDBO +HSlIoqJkavzMx2XX4JvBmWfzyVS0OHGDY/DjKmx/9PoEpFBRobfR6k/5VRDa +e3C4PJWKq3KVxcp8r4J/xo2BukwqDgZtbLSeDQU/p+ne/gIq7nrOoFhOhoDv +15oWqVoqylw4TxVaFgwuStTE03VUvOpjWiU6GAT7j3icqamn4sqn850674Ng +dYfSstBGKgJb4jT1ahA0N5/WFmij4rprF8V+SQSBaq1U3EgfFbtju7L3KAZC ++6t9dh9mqBgj8En08yF/qJh7uoYzR0XRubW7urn+kKW9MBs0T8V4gxOHJOn+ +EJiffHvbP/7682kqXSN+oP7yb3mBEA1r4+wOrg7yg+C0GFbKChou7LtsYVd0 +Bdbd+/IzgEHDuKjkXEHwBasB5/2dTBqeC3BZUcD2hVCt6RJNNg07RV+cvS7t +C10N0rd7V9HweOFfP7mayxAipr8J1WnISwq27lK+DJ2XXgTOadPw5bcLlZr1 +3hBgHazkZkJDFaai3TKLi5DxTCbk/V4aqtr1xR1bdxHa5hLGyGY0XOcSXjex +/CKsiX5VXrePhs11f4XTyi9Aa/2Ys6olDU0OFwWd1rgAKtsO5w0co+HtHb6x +yqTz0ERfa2J9kYbXd7Pr7QU9QTZK8uHDSzRMK728o7zfA44I//711ZuGv43v +GBlUecD3wYxrNr40nN7B2/fuhgdMZ6hU2gby16/5aXj+Pw9Q3MTmHg3j6yMQ +zX6sfQ4cdiurOD2mYdcnn9SmyLP898XChaeJNIzR/LYx/OJZGFXrej+YRMPB +mlMjJ+3Ogpd0nKNzCg23rf6+Jlj9LFxr+e+xyzP+/HW+metq3SDLlvjfqTwa +VmXX3T+0wg1mzkmInP1AQ+pty6myJ2egqnbcvvYjDdWnR0Vcbp2BaFZ7CaeW +huTpjyc1zp+BDW3Jnt31NCz4IHWZYngGzungj93N/PlGtounu0/D2OKz79g9 +NLQ9dDl89sopGAxrDeia4vPOBw/ov10gf6C4e9M0DYeDjhX2V7lAyNYknTsz +NAx8efrAlwQXYI27ThjO8/Wz0vh5ytwFju0XO1qwiI5T0hoeK185Q48CVzdS +nI4lsVv/Uu84QdvTx4sMqHQ8Y+oFHiccoZTRue0mjY4skbvXM3Y7QnqCTEAD +nY4OoZPdy9UcwTcmcKkli47nw6sb9P44ADPUUeyECh1rY1eb3LzgAG7HVxNu +atFxIIG2yiTiGIizstkNBnTsVJiL2fPFHqYeDTsRjegofc1RZ1WZPXxVoqdZ +7Kbj0C7pSeZTe3hBvKPat4eOa2PUZgPP2cPBpZ4aE+b8+CM6oj6vsIekfm0d +ojUdM9ZY998xsANuYukei7P8/aslRy622ICj2ro10e50jB/bszr/rQ3cKkwS +bz5HR8kzGgaS6TbQV8+3rxcdT5SQ4ldesYEQnrHuLm86GgRYddqp2EDD/g6t +jcH8854X0ROTtAaHZROKxPt0vHXpW9xQ4mEIizw2bxZLx1fWD/e1XT4M+cot +7eFxdKQ4Pn701+IwiGkV3pWIp+Pml95ipVKHIcvOV2pJEh19LcPDg69YwmyR ++JKJDDpGp+/iPHKygLBTjJ+fSun4O+P7QqjFQdjeE9eyqpyOO7sfOBhvPAjT +ZsQy/wo6br31X8Q24kGw2SR8b30VHccVKaoFDQdAXWhwZ0wNHRNldMxbdx+A +hpj0xzatdIx4sPh6stF+IFRoWo7+omPz/AvOZ2dzqN6Qrqc/ytdT6F6PrLE5 ++KTSNRJ+07FDkFARsNYcvocRlpmN03HVilL1pmkzyLX4m5s7Tccqb+MYw1Az +OPi7UNpHkIEfPrRGnnxuCvflt1WLyzHQjviIJKO4F5yfi983/o+B3/39gm8v +3Qsbd7a43JJnoLGGurX6bxNocjshIaPEwA0NX5+9LTOB5dVRJvI0Bi7l3Evl +njABX6/hZo4qA92L2u8LBu6Bo58j+/S2MpDwnaHmuHQ3aLhYvwzZxsBsN58Y +zW4jEFi0KrBal4H3/gYu1ig0gjiVEqaxHgON/njXlJ0ygmb/Qad9hgw83cHR +XdduCPoa3N/2+xhIH2TGSBUagErYj3lfJwa2jTG8CbH6EChe0P7FmYE1khlu +f7z0oSv0ar72CQYO/jIyWbRfH8IDVN0nTjFwKqgvNVtSH6bOnx12dGegVfve +7fYhO6Hk6L8248sM/Desc/6Frx6YapPyFO4w0CFbz23n7e2QljcQeT6KgZ7c +IoPuc9tBaH2hW/NdBkpqV088Orgd8tSOrLl1j4G3t7d8SlTaDgqMx0mC8Qz8 +pOhtHJmuC/0r1CKHUhmY9ltg7++6beDVr+ea/4aBokXzrgqaW2E40HndwlsG +fjwguZymsBWsmDf/6pYxcJ+W3Eb9JVthh+Nn77oKBtofrIj81YIgPWh/9Xs1 +AwsfKq+M90FI/+n7WOYzA3fpBpQLPgboHi/8fGaQgUd/D4jYyW4Bs8iu6Nwh +BuaKX1riM6YD79YtPjw/zMC704vf11TrwLNzu3qDRxhYxdC8LeyjAxf+tow8 +GOd/v/neh87vm0FmbkK4hsdAw9tSTxvfasOuxWraHGkmZh6/76F5fyPMP792 +7/hKJv5wWNE5cmEjZNgOzD6RYeJrnzTnJouNIPM2oYhJYmJF8RW2ovxG6L4s +s4WuwMRjvWLaD+M2gBdvBpSZTFzyNkJjQ6oWpEyX7yBoM/Fd+222Sfc6sEyh +JJtvZuKkQHHucPk6WH7QZ2mkDhOdNm4mpT1dB+55GyqlgYmjTbzIyLPrAD1S +9SW3M3HY5th5iWXroHU8zFDMmImOb6j7TmtrgvCoxd5FdkyUPEa/VpqzFrYH +FRdb2jPRWeN5ybXYteCnSFXJPcrEepWk117+a2HBcHCpiyMTd9+rN3y9dy1M +pXi+ajrBRL97QpuHR9Xhu10kK8WTiYYVNVGZGupQ3lzDM77BxMQUBQYtQRUW +n1rr8vQmE79nfzUb8VAFXHKnVfAWE9f+3ucxaaQKrzQPZ+dHMJG6JVE3d0YF +sm8NHadGM7EzK6N5ep8KPDIQbpp8xNfDoH2lttxq8C3G1Nh8JhLVN2cEVrGh +1Wtq/msBE+EDR/XGEzaoa6bvoRUxUZi09MSbIDZ0PyFNPn3Nj98gcNvTHWzA +8BHIK2ViyA6itE8FCwSOxn7+9JGJR/33rBasYcLlZdMCwj1MFJRwvL5olg7N +Zc/MDHqZSNrpcJXYRYc1PvbJN/qYGHz5S4xJKR26/tQaynxnooWIAUfzGh24 +nUlRlGEmPrnz9lW6Eh0WMsxUdCaZ+EYi7j99Ixr4mGcecF3GQu6XZruvbyhg +O+WSVyfKwuGKvOO6Tyj89zGbtEachRd3zxh8vEEB0c6E5qHlLPw6Y/fJ0JIC +d+wj9x2VYaH3igdq83/JkO523uyAMgs3Ciu7TW4gQ/st3T1b1rOw2kHDtj9B +EV5rCGTe12LheO6PO1RPRYhverV8dgMLrY98t44zUgQHWa3aXG0Wvt9wzdRg +WgHGHrJ3qyMLMdGP4WWqACKZEoY0QxY2+NZntkrJw4aaFr1ltizMCY/YfLpQ +Fix8anRt7Vg4c9Jrhf1dWbikVoYF9iw0monyCnGXhdLwDG0nBxZK1y8fd1CT +BaP9gWveu7Cw6BHOOj8hgc1XDWKoB/98hPsk83giXB270S9ynYWbLGrf92XL +QPoj/16bGyw8OBHaGxolA3Vm57/m32Thuhm7oEPnZUAm92jb8XC+Ht3UQHeQ +gQcXNtdURbGwXqFc5HbNSsgWHHwZksDCWBVnXxyThk7C9gCRPBaa10f//Gou +BbJD1xx25bNQwZFrNLZFCvYVN+pfLWDhbEf5XzJLCmod7CXEX/HzdeRnRPuM +JLzN84ta8ZaFUjoHQ17ES0LyobcpxA8svDxvLf/kxwpwjePW0L+ysENr/e7U +IxKQ4RqUeaybhYR76b8+aknA0I7a8OQeFvqY2Q5TJSXg6MiR/exvLGTL9Y86 +lonDfvD+unqQhb1djtXGKuKg01M0pjHOX2/303C/sBgsZWwibhVmI03UUTii +WwRqu4OXxImwsVS3pL3rlQjciW2emF7GxpLK/a1WMSJAl3FvzBJn43DKsOpf +UxHYJph5iyzNxsq+GYsrVcJwuYcuJqDIRqPM5zWvXy2F6ThJgRINNvp6Xmuc +qxSCN4esR/9bx8bFfWsKWKlCEEzI6PJYz+bfhwF2PteFgHjD8PWajWzUuVcv +lrZXCNZfCrrwYAsb7+k9Vpj7IghuFvMT3vpsJJfKnty2sBiGiQODOlZsfDNb +ZdttuQg+ToYUX7Fmo9mFKIn72xdBRhPn9jsbNlp5i/S5qy4CtwgXHRN7NppT +nI8G/hOAaYnRm/bH2dhAVEFCkgAsXTKledWNjdezk8TvDf/jkscFfVqC2EjZ +7fFF7hCPu7gh0VQhhI1lXFe9N2t53L6sHSzbUDaW6344el+Ux00+FVw/dI2N +zja8JyOv5rmqQ6K0hVts5Mx6PV1En+dq90hV0e+zUfpZXV3c3Cx3X52ytFsm +f/+eiae9tdNcj9cz/llZbNTP+Cq4I2OaG53WODnynI3uZ4zWN9yY5rYHB7e5 +vOTP37+ae2L3NNcGR+OPFbAx4Zt3U3TtX67z82K1Q2Vs7JDKtU9sneL63j6y +G1vYuPrivS8E0UnuoysbSnxa2dhJW5ToMjLBLTsttfZ1Gxt/kchl/Q0T3KVG +FTLanWx8KyiwWy92gntNSLVTs4eN41NqjtnqE9yoc/POrGG+vvtUtxBsxrnp +B+6HLP/Hxu3b85pKWsa4B1UvCR8X4KCVwcF/hsVjXCHBI0FvF3GQEhfpOp84 +xj2SoRTgLsQfr75m9d5tjLt8yaPL7cs4KEdnvJOQHOOeeZHikSzDwbl332QI +e39z10vkHuWu4uAW1pYjsS2/uL29UX13V3PQS8VNedmzX9yb+Z52YyocvKXi +GPnC7xf3u/0mm0Q1Du6t3L6lcM0vbnThK0vR9Rzsszy37nboT+6sY5lpM3Bw +z8rRMKrBMLe4tB5P7ePgYavRK4ETA9yAIsGkrP0cdDs5LW7QOMA1fKm1bPwA +B/UoPz9pvxjgtibFfvK04GBJzTOl+DMD3LGQ43ZXrDl4PG7P8bOjP7j0PQIB +kU4cvFJ2uFN08jv3aodaZaE3B7mxmh7eSv1ckya71TwfDl7I+bL4yOJ+Lqnm +Thj4cvBQbug/2+/fuInFcwfK/TgY7ybk15Hxjfs6oXKgJpiDsoHZu4K3fuP+ +drQW7QnnYHpf3tO7J/u4+yZu7hZO5p8nafnL/V97uKW129RPP+Hgm6HLIxXl +PVz1p1PSLSkc9P8iF384tYcrbmXVmpzGQfXxap9/53q45ZWq9nrPOTgVLd8i +s6KHq3H/o1fgKw7ek3d2NdLv5kpuE00UbOSgn/iGJQOpX7g+CsVBLk0cdIqQ +7K7x+cL9OeXq1PiZg+2jPVsnTb9wq9La1jxu5aCv2GeC8Hwn9zLhacG2Lg4u +Xabjo7K3kzsysLPuyiCfS+XkVIQ7uIfL5p4PDvH1fx+1wOtq51bHZUbu/clB +V9Md0WJ57dxkU5IFZZSDg6rKQa2O7dwjr75/ezPBwSFyQYHaxzZuddS9SvYU +B6VMpNM+J7VxN7oap976y9dX/kHMy8ttXBlm7mmbWQ7WuxoqKKxr4/oJOJtW +zfH9JZYkkri8jfu7XXG9Oo+DK0cePrIfbOVa5XwiRS9w0Hzmxl2L8lbux7DA +2X//OHg6Z/OdkIet3P8BT+ekPg== + "]]}, "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.500000000000014, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "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.5, 9.5}, {0., 0.8414787587202844}}, + 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.992079241084484*^9, {3.992079451135378*^9, 3.992079486004778*^9}, { + 3.992079526353161*^9, 3.99207954087969*^9}, {3.992079584117285*^9, + 3.992079682318926*^9}, {3.9920797418505077`*^9, 3.992079765523945*^9}}, + CellLabel-> + "Out[299]=",ExpressionUUID->"f89dcaf2-f901-2c48-b583-e2e056034963"] +}, Open ]] +}, +WindowSize->{1197, 735}, +WindowMargins->{{-5.25, Automatic}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>1. Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"565e0c81-999b-a345-8efd-c9b240910ac7" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 1152, 34, 80, "Input",ExpressionUUID->"984d779d-441a-564f-824d-75ba0e2dc3fa"], +Cell[1731, 58, 1489, 46, 97, "Output",ExpressionUUID->"5b406aee-4fc2-9340-b9a6-63883e6df740"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3257, 109, 720, 20, 61, "Input",ExpressionUUID->"67269f0f-e0b0-f549-a77a-4038f973203d"], +Cell[3980, 131, 887, 25, 90, "Output",ExpressionUUID->"2f8c3cb4-876a-cc4b-a305-18fed8b0a8f0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4904, 161, 1465, 41, 93, "Input",ExpressionUUID->"b7ce059f-6606-3f49-a9e0-ce95b27090cb"], +Cell[6372, 204, 2583, 75, 146, "Output",ExpressionUUID->"068b8951-0b1b-c649-ba5e-6b596ea7740b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8992, 284, 1680, 48, 93, "Input",ExpressionUUID->"d28b612e-7706-ee49-b098-1ff6d19ac41f"], +Cell[10675, 334, 2782, 81, 146, "Output",ExpressionUUID->"16978456-3321-ed48-b869-1e49679ecafe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13494, 420, 1843, 53, 167, "Input",ExpressionUUID->"b07bd0bc-2475-094d-b7ea-4146a338636c"], +Cell[15340, 475, 3752, 111, 121, "Output",ExpressionUUID->"d91d5ce3-0373-6949-9097-37f56378374d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19129, 591, 2080, 59, 167, "Input",ExpressionUUID->"c9ecc956-1141-fa42-8147-f21123945bdc"], +Cell[21212, 652, 4821, 140, 121, "Output",ExpressionUUID->"a7b3cf3c-a865-d44a-9c20-b068c6459eeb"] +}, Open ]], +Cell[26048, 795, 153, 3, 28, "Input",ExpressionUUID->"3b033e79-cfc0-c443-bea0-5e05e70b057f"], +Cell[CellGroupData[{ +Cell[26226, 802, 346, 5, 28, "Input",ExpressionUUID->"9efe6a26-4fad-3f4e-9d6e-27e0e52fa691"], +Cell[26575, 809, 303, 5, 32, "Output",ExpressionUUID->"716bd997-c335-ac4e-b177-762274d0d00d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26915, 819, 328, 6, 28, "Input",ExpressionUUID->"df99cb2a-15b5-0b47-a4f6-27b74e082a15"], +Cell[27246, 827, 303, 5, 32, "Output",ExpressionUUID->"9c389a5f-98b4-4447-832e-36bcd73b609a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27586, 837, 175, 3, 28, "Input",ExpressionUUID->"a1fb5611-f3b5-6245-8af6-4e0165f28ad9"], +Cell[27764, 842, 276, 4, 32, "Output",ExpressionUUID->"11cdd205-8c8a-bc4d-9c8a-017bc4cc56cd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28077, 851, 258, 7, 43, "Input",ExpressionUUID->"e4db6b4e-d33b-7049-818a-cfba3539b26d"], +Cell[28338, 860, 277, 4, 32, "Output",ExpressionUUID->"b0fb24af-34ae-7344-8ae4-0aa44115a947"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28652, 869, 132, 2, 28, "Input",ExpressionUUID->"d10625a4-1fb6-3f4d-8f5c-fd6744a2cc20"], +Cell[28787, 873, 277, 4, 32, "Output",ExpressionUUID->"1284fc79-4993-7545-87b3-dcd15e09d1bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29101, 882, 277, 6, 28, "Input",ExpressionUUID->"ad7ee1cf-a6cf-aa41-b16f-69f575f9695b"], +Cell[29381, 890, 290, 4, 32, "Output",ExpressionUUID->"a8d0c29a-0fb9-d94d-90e9-e28f17cf7bc1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29708, 899, 258, 7, 28, "Input",ExpressionUUID->"216f83ae-e48a-1b41-a7b2-acc9b400d13c"], +Cell[29969, 908, 289, 4, 32, "Output",ExpressionUUID->"943e50b3-9297-464d-83bc-97b9b4b4e5f2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[30295, 917, 374, 6, 28, "Input",ExpressionUUID->"b434072c-f5c4-6447-b47b-7d3a3a643eea"], +Cell[30672, 925, 154, 2, 32, "Output",ExpressionUUID->"8ff14c07-62c9-9042-9b60-5ab99da871b9"] +}, Open ]], +Cell[30841, 930, 173, 2, 28, "Input",ExpressionUUID->"1935e637-3724-824c-87cd-00d2f710210f"], +Cell[CellGroupData[{ +Cell[31039, 936, 380, 6, 28, "Input",ExpressionUUID->"7fa441ac-4845-2444-8deb-6f46879ae66e"], +Cell[31422, 944, 154, 2, 32, "Output",ExpressionUUID->"83f54eda-83d2-0f45-82e3-5563c4d193d8"] +}, Open ]], +Cell[31591, 949, 173, 2, 28, "Input",ExpressionUUID->"14ffdd04-4daa-654b-9670-b89fb359bf05"], +Cell[CellGroupData[{ +Cell[31789, 955, 129, 2, 28, "Input",ExpressionUUID->"d12b3ab2-45b8-e846-b98b-9d0a210376f1"], +Cell[31921, 959, 275, 4, 32, "Output",ExpressionUUID->"2529a8fd-b1e4-6347-97a8-552f293a9fea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[32233, 968, 129, 2, 28, "Input",ExpressionUUID->"cc8311a9-855a-384b-a11e-1c7a8ea58566"], +Cell[32365, 972, 270, 4, 32, "Output",ExpressionUUID->"8cbb7ffe-de29-5448-bfc9-1df8361d29f7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[32672, 981, 2018, 51, 133, "Input",ExpressionUUID->"f19417be-1443-8d42-84f9-76626ac0c4bd"], +Cell[34693, 1034, 19878, 374, 237, "Output",ExpressionUUID->"03023f34-b238-6141-96c7-5d6ad5e43c03"] +}, Open ]], +Cell[54586, 1411, 128, 3, 28, "Input",ExpressionUUID->"62777ed7-7ccf-894f-98ca-57d1179827cc"], +Cell[CellGroupData[{ +Cell[54739, 1418, 2335, 60, 103, "Input",ExpressionUUID->"b1237968-c91f-db47-bafe-6a6c03ba541d"], +Cell[57077, 1480, 6390, 92, 150, "Message",ExpressionUUID->"b46d0786-6b41-5a45-98dc-3aee9c45f768"], +Cell[63470, 1574, 363, 7, 32, "Output",ExpressionUUID->"1fd71df1-f503-2649-bf04-260d6dffea03"] +}, Open ]], +Cell[CellGroupData[{ +Cell[63870, 1586, 2234, 58, 103, "Input",ExpressionUUID->"fd3ea9d4-8a83-454c-af78-c4730cfea45f"], +Cell[66107, 1646, 4477, 64, 109, "Message",ExpressionUUID->"a552e2cd-a567-2348-98ca-0d189880f688"], +Cell[70587, 1712, 317, 6, 32, "Output",ExpressionUUID->"69bdad20-1aaa-154b-afff-cd6f37ef9153"] +}, Open ]], +Cell[CellGroupData[{ +Cell[70941, 1723, 527, 8, 28, "Input",ExpressionUUID->"5f2338d5-2214-5b45-be4f-8f529fd780ac"], +Cell[71471, 1733, 409, 6, 32, "Output",ExpressionUUID->"f028c659-4a66-534a-915a-64efa844e496"] +}, Open ]], +Cell[CellGroupData[{ +Cell[71917, 1744, 431, 6, 28, "Input",ExpressionUUID->"bcb210ff-bcae-1443-b4ad-e4a575fa430c"], +Cell[72351, 1752, 385, 6, 32, "Output",ExpressionUUID->"0eae1f0d-6416-d545-85b8-fe3f7966b36f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[72773, 1763, 2549, 64, 183, "Input",ExpressionUUID->"4ff2523c-7d4f-5947-a370-80f5570bb8fd"], +Cell[75325, 1829, 103327, 2196, 237, "Output",ExpressionUUID->"88719de2-72eb-0049-b6ba-f95aee7973d4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[178689, 4030, 161, 3, 42, "Input",ExpressionUUID->"b18f33b7-80c8-d647-9ade-73d9928cac50"], +Cell[178853, 4035, 122735, 2526, 237, "Output",ExpressionUUID->"2614b7e8-636d-de4c-9b6b-627435f372b5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[301625, 6566, 936, 26, 60, "Input",ExpressionUUID->"c6042d45-7676-6c49-800f-09aa679e359d"], +Cell[302564, 6594, 24249, 446, 237, "Output",ExpressionUUID->"ccc64668-100a-5841-9412-e97c96d71d44"] +}, Open ]], +Cell[CellGroupData[{ +Cell[326850, 7045, 2416, 62, 103, "Input",ExpressionUUID->"3257ca40-3a72-6e47-a18b-de875465760b"], +Cell[329269, 7109, 4740, 68, 131, "Message",ExpressionUUID->"4c70003b-d56f-a44f-952a-01dc032ac2bf"], +Cell[334012, 7179, 340, 7, 32, "Output",ExpressionUUID->"8088fb25-11d5-474f-8154-1150c1e3d645"] +}, Open ]], +Cell[CellGroupData[{ +Cell[334389, 7191, 532, 9, 28, "Input",ExpressionUUID->"9f308f97-daac-744c-bae7-d3560fa4471f"], +Cell[334924, 7202, 459, 8, 32, "Output",ExpressionUUID->"e93d7a9d-61b2-6944-9614-42e99bbbb076"] +}, Open ]], +Cell[CellGroupData[{ +Cell[335420, 7215, 506, 8, 28, "Input",ExpressionUUID->"1523f3ed-56c9-e442-bf6a-8b0d193db26f"], +Cell[335929, 7225, 489, 8, 32, "Output",ExpressionUUID->"8accd57d-0c27-b44a-b094-ceb92ec9ea8a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[336455, 7238, 985, 27, 61, "Input",ExpressionUUID->"cab747ed-cb84-7e4e-ba84-e0de4bae2e79"], +Cell[337443, 7267, 77316, 1651, 237, "Output",ExpressionUUID->"25317bfe-4451-9a47-81a2-5977e9482e73"] +}, Open ]], +Cell[CellGroupData[{ +Cell[414796, 8923, 167, 4, 42, "Input",ExpressionUUID->"89a5fa74-6f01-6943-b5a9-4ef6da22cf67"], +Cell[414966, 8929, 100823, 2054, 237, "Output",ExpressionUUID->"679841ea-ec83-384a-a982-08ca29c2c2e1"] +}, Open ]], +Cell[515804, 10986, 242, 5, 42, "Input",ExpressionUUID->"4a5ddd52-c690-354a-8f4a-29e1547c8fab"], +Cell[CellGroupData[{ +Cell[516071, 10995, 847, 24, 60, "Input",ExpressionUUID->"f9e7e8c9-0d48-844f-8932-8dc242714679"], +Cell[516921, 11021, 20180, 381, 237, "Output",ExpressionUUID->"e71f78b2-78b0-c347-a9cc-d69e10fac40b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[537138, 11407, 2236, 59, 103, "Input",ExpressionUUID->"173389f3-1a04-8144-b644-6242c726094c"], +Cell[539377, 11468, 3801, 56, 106, "Message",ExpressionUUID->"54ce134e-2370-2448-b61c-e3493430a3ce"], +Cell[543181, 11526, 346, 8, 32, "Output",ExpressionUUID->"f5d547d9-565a-2a49-af64-7ca4dcb05348"] +}, Open ]], +Cell[CellGroupData[{ +Cell[543564, 11539, 426, 7, 28, "Input",ExpressionUUID->"fb2f4610-f9af-7646-83db-aee0dc11e3ca"], +Cell[543993, 11548, 363, 6, 32, "Output",ExpressionUUID->"3c9400ca-7330-c849-9e3a-090cc9e10307"] +}, Open ]], +Cell[CellGroupData[{ +Cell[544393, 11559, 353, 6, 28, "Input",ExpressionUUID->"fc2d430a-c5ca-8f47-8093-6506a1b91783"], +Cell[544749, 11567, 358, 6, 32, "Output",ExpressionUUID->"698ef028-0dc8-8e44-8926-fe79072049b6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[545144, 11578, 2586, 65, 205, "Input",ExpressionUUID->"44d47a15-a0d8-c245-95ac-48359d9c9ae4"], +Cell[547733, 11645, 78722, 1682, 237, "Output",ExpressionUUID->"234e7618-02cb-f54f-8a4f-c7fab5258207"] +}, Open ]], +Cell[CellGroupData[{ +Cell[626492, 13332, 169, 4, 42, "Input",ExpressionUUID->"8e7fc59d-e930-4546-bd23-1735ec9df535"], +Cell[626664, 13338, 98245, 2019, 237, "Output",ExpressionUUID->"89fea184-455f-3546-a0e8-128fb01081ce"] +}, Open ]], +Cell[CellGroupData[{ +Cell[724946, 15362, 978, 28, 60, "Input",ExpressionUUID->"06bd140e-882f-1a43-ac6e-f81b725f742b"], +Cell[725927, 15392, 15055, 295, 256, "Output",ExpressionUUID->"6e4d1a86-4cc3-8c41-a9a0-d8b51631881b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[741019, 15692, 2497, 63, 103, "Input",ExpressionUUID->"f15716e0-ba3a-184c-9e61-4429edd626d5"], +Cell[743519, 15757, 4030, 59, 110, "Message",ExpressionUUID->"b9b26504-3e2a-ff49-ac49-a3af7b148b85"], +Cell[747552, 15818, 393, 8, 32, "Output",ExpressionUUID->"0590e598-3be4-ee40-b8cb-69d4bcbb4e07"] +}, Open ]], +Cell[CellGroupData[{ +Cell[747982, 15831, 481, 8, 28, "Input",ExpressionUUID->"acca64dd-115b-3449-a6ef-f2d70f4be4aa"], +Cell[748466, 15841, 406, 7, 32, "Output",ExpressionUUID->"41e4511e-3c57-aa43-9368-985849889e6a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[748909, 15853, 534, 9, 28, "Input",ExpressionUUID->"0723e435-4e7b-764f-b2b2-d46d069a19ca"], +Cell[749446, 15864, 408, 7, 32, "Output",ExpressionUUID->"ee4aac96-68cf-2649-9781-4f03c439266a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[749891, 15876, 2902, 74, 183, "Input",ExpressionUUID->"418e109e-98c0-4048-bee3-982d843c6f5d"], +Cell[752796, 15952, 124157, 2634, 237, "Output",ExpressionUUID->"dd5c5227-5dbe-6947-8308-47ff51798069"] +}, Open ]], +Cell[CellGroupData[{ +Cell[876990, 18591, 208, 5, 63, "Input",ExpressionUUID->"4793b8fe-e4a9-3144-ad63-4921c0e1d8f6"], +Cell[877201, 18598, 138940, 2884, 237, "Output",ExpressionUUID->"f89dcaf2-f901-2c48-b583-e2e056034963"] +}, Open ]] +} +] +*) + diff --git a/templates/P240_2-51_YakuninDA/коэффициенты_Pu240_2-51.txt b/templates/P240_2-51_YakuninDA/коэффициенты_Pu240_2-51.txt new file mode 100755 index 0000000..e947e04 --- /dev/null +++ b/templates/P240_2-51_YakuninDA/коэффициенты_Pu240_2-51.txt @@ -0,0 +1,35 @@ +Pu240 +----------------------------- +58-182 2-3 +d = 0.1 +v1 =0.889 +n1 =0.634 +vv1 =1.069 +nn1 =0.744 +v2 =1.991 +n2 =0.921 +vv2 =2.422 +nn2 =1.520 +----------------------------- +118-122 394-395 +d= 1.487 +v1 =1.196 +n1 =0.867 +vv1 =2.100 +nn1 =1.164 +v2 =1.092 +n2 =0.745 +vv2 =1.690 +nn2 =0.942 +----------------------------- +146-94 702-703 +d= 3.0056 +v1 =1.362 +n1 = 0.795 +vv1 =2.204 +nn1 =1.070 +v2 =0.938 +n2 =0.739 +vv2 =1.318 +nn2 =0.948 +----------------------------- \ No newline at end of file diff --git a/templates/P240_2-51_YakuninDA/результаты_Pu240_2-51(СДЕЛАН НА НЕВЕРНЫХ РЕЗУЛЬТАТАХ ВОЛЬФРАМА).xlsx b/templates/P240_2-51_YakuninDA/результаты_Pu240_2-51(СДЕЛАН НА НЕВЕРНЫХ РЕЗУЛЬТАТАХ ВОЛЬФРАМА).xlsx new file mode 100755 index 0000000..a5255e2 Binary files /dev/null and b/templates/P240_2-51_YakuninDA/результаты_Pu240_2-51(СДЕЛАН НА НЕВЕРНЫХ РЕЗУЛЬТАТАХ ВОЛЬФРАМА).xlsx differ diff --git a/templates/P240_2-51_YakuninDA/результаты_Pu240_2-51.xlsx b/templates/P240_2-51_YakuninDA/результаты_Pu240_2-51.xlsx new file mode 100755 index 0000000..e888347 Binary files /dev/null and b/templates/P240_2-51_YakuninDA/результаты_Pu240_2-51.xlsx differ diff --git a/templates/heavy_case/h____gid_Qw1.nb b/templates/heavy_case/h____gid_Qw1.nb new file mode 100755 index 0000000..78f75b1 --- /dev/null +++ b/templates/heavy_case/h____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/templates/heavy_case/h____gid_Qw2.nb b/templates/heavy_case/h____gid_Qw2.nb new file mode 100755 index 0000000..1f902d9 --- /dev/null +++ b/templates/heavy_case/h____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/templates/heavy_case/h____osc_Qw1.nb b/templates/heavy_case/h____osc_Qw1.nb new file mode 100755 index 0000000..0b16837 --- /dev/null +++ b/templates/heavy_case/h____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/templates/heavy_case/h____osc_Qw2.nb b/templates/heavy_case/h____osc_Qw2.nb new file mode 100755 index 0000000..a320d64 --- /dev/null +++ b/templates/heavy_case/h____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/templates/heavy_case/h____pr_Qw1.nb b/templates/heavy_case/h____pr_Qw1.nb new file mode 100755 index 0000000..14330be --- /dev/null +++ b/templates/heavy_case/h____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/templates/heavy_case/h____pr_Qw2.nb b/templates/heavy_case/h____pr_Qw2.nb new file mode 100755 index 0000000..1226680 --- /dev/null +++ b/templates/heavy_case/h____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/templates/heavy_case/h____фитирование.nb b/templates/heavy_case/h____фитирование.nb new file mode 100755 index 0000000..ea258a0 --- /dev/null +++ b/templates/heavy_case/h____фитирование.nb @@ -0,0 +1,19504 @@ +(* 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[ 949085, 19496] +NotebookOptionsPosition[ 938717, 19312] +NotebookOutlinePosition[ 939139, 19329] +CellTagsIndexPosition[ 939096, 19326] +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[2]:=",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}, + CellLabel->"Out[2]=",ExpressionUUID->"f00538f3-424d-5a45-91bd-3eee5cf83449"] +}, 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[3]:=",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}, + CellLabel->"Out[3]=",ExpressionUUID->"2a18313e-1f31-6d47-a71a-80e32b33c3f8"] +}, 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[4]:=",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}, + CellLabel->"Out[4]=",ExpressionUUID->"f9210340-71d9-8548-b6dd-6e1f2ea59c91"] +}, 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[5]:=",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}, + CellLabel->"Out[5]=",ExpressionUUID->"7bb7a125-449f-3a49-97d2-1464bf24ed55"] +}, 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[6]:=",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"]}]]}], ")"}]}], + "+", + RowBox[{ + FractionBox["1", + RowBox[{"32", " ", "\[Pi]"}]], + 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"]}]]}], + ")"}]}]}]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341376917*^9, 3.9919640822778645`*^9, + 3.9919650529736423`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"d32a7453-1a51-6e48-86af-b1d1c28a8672"] +}, 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[7]:=",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"]}]]}], ")"}]}], + "+", + RowBox[{ + FractionBox["1", + RowBox[{"32", " ", "\[Pi]"}]], + 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"]}]]}], + ")"}]}]}]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341392933*^9, 3.9919640822888775`*^9, + 3.9919650530016823`*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"a6e1e3e7-c00b-3944-a263-f0f98e41f146"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{3.9917077685737076`*^9}, + CellLabel-> + "In[362]:=",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}},ExpressionUUID->"f25944e3-b412-7146-ac6d-\ +f008d8c60ab5"], + +Cell[BoxData["236"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.991964088272585*^9, 3.9919650668367367`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"6a9ddfcd-6773-d042-b72b-ee308eec2141"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "="}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.9919640953047657`*^9, + 3.991964095496088*^9}, + 3.9919730324857025`*^9},ExpressionUUID->"24bf6fdb-f0a0-774b-a5d1-\ +1f910c97a298"], + +Cell[BoxData["58"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9919640965938797`*^9, 3.9919650679796085`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"52096119-62e6-0d42-9c3a-ed392c0f435b"] +}, 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}, + CellLabel->"Out[10]=",ExpressionUUID->"ff7e327a-caed-ff48-83df-0fe2efc4709b"] +}, 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.5576271186440679`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9, 3.9917078282275677`*^9, + 3.9917123414253197`*^9, 3.991964105132374*^9, 3.99196507082041*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"93d6f676-720a-5849-a331-8426b6262c0a"] +}, 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}, + CellLabel->"Out[12]=",ExpressionUUID->"f741aa01-a99b-b44b-b60c-e076bb3abbca"] +}, 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["4.4902169031282435`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9, 3.9917078282706223`*^9, + 3.9917123414384117`*^9, 3.991964105158039*^9, 3.9919650774986343`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"71a44cb5-a1c6-d444-bdc5-4d11fddcaa5f"] +}, 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["6.525262540876552`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9, 3.9917078282785244`*^9, + 3.991712341447321*^9, 3.9919641051782207`*^9, 3.99196507853343*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"47939d39-036e-054e-9de8-a4bd25512646"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"b1", "="}]], "Input", + CellChangeTimes->{ + 3.9917123951294365`*^9, 3.99179305435186*^9, {3.99196410971159*^9, + 3.9919641153565598`*^9}, {3.991965091938593*^9, 3.9919650927835865`*^9}, + 3.991973034922682*^9},ExpressionUUID->"5a7643d0-24aa-4445-a07d-\ +8c03ae610a22"], + +Cell[BoxData[ + RowBox[{"b2", "="}]], "Input", + CellChangeTimes->{ + 3.9917124038115807`*^9, 3.991793052797516*^9, {3.9919641207252083`*^9, + 3.991964121458187*^9}, {3.991965119761894*^9, 3.9919651201266823`*^9}, + 3.9919730365316715`*^9},ExpressionUUID->"0d6c01d9-da94-5e40-a1b9-\ +b6cc52ad8d72"], + +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}, + CellLabel->"Out[17]=",ExpressionUUID->"5d184a3a-6729-2542-bddb-91c459c84dd2"] +}, 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}, + CellLabel->"Out[18]=",ExpressionUUID->"a2015830-d30b-264b-9c26-848d4c35743d"] +}, 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", ",", "3", ",", "10"}], "}"}]}], "]"}]}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{{3.9919641474075165`*^9, 3.9919641522943115`*^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: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"]], + 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.9917124540376835`*^9, {3.991964135503311*^9, 3.9919641527564583`*^9}, + 3.991965132478647*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"b99c4f95-df55-1444-95e1-a039c9afcece"] +}, 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[{"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", ",", "3", ",", "11"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.99196423637006*^9, 3.9919651876297417`*^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: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"]], + 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.9919642330912876`*^9, 3.991964236757889*^9}, { + 3.991965183952503*^9, 3.991965188526533*^9}}, + CellLabel->"Out[26]=",ExpressionUUID->"ac71e15b-ed5e-df47-9b29-0c4867b635da"] +}, 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[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", ",", "13"}], "}"}]}], "]"}]}]], "Input", + CellLabel->"In[33]:=",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: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"]], + 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.9919643389546776`*^9, 3.9919652326803303`*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"ab4a8ae4-7b26-1044-b8e9-90a3af291166"] +}, 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[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[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[ + RowBox[{"Show", "[", + RowBox[{"l111", ",", "l222"}], "]"}]], "Input", + CellLabel->"In[38]:=",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: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"] +}, 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", ",", "13"}], "}"}]}], "]"}]}]], "Input", + CellLabel->"In[39]:=",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: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"]], + 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.991964380582947*^9, 3.9919653530989933`*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"06c0f498-eac1-0847-9c8e-eda5d2c44b2b"] +}, 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 ]] +}, +WindowSize->{1428, 741.75}, +WindowMargins->{{0, Automatic}, {Automatic, 0}}, +CellContext->Notebook, +FrontEndVersion->"14.3 for Microsoft Windows (64-bit) (July 8, 2025)", +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, 80, "Input",ExpressionUUID->"ffae8b70-aa14-974a-9de2-11aa9ba7fa35"], +Cell[1731, 58, 1468, 46, 97, "Output",ExpressionUUID->"f00538f3-424d-5a45-91bd-3eee5cf83449"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3236, 109, 720, 20, 61, "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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +Cell[25907, 795, 153, 3, 28, "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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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[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"] +}, 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"] +}, 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"] +}, Open ]], +Cell[65070, 1575, 128, 3, 28, "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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, Open ]] +} +] +*) + diff --git a/templates/heavy_case/rename.bat b/templates/heavy_case/rename.bat new file mode 100755 index 0000000..19235ed --- /dev/null +++ b/templates/heavy_case/rename.bat @@ -0,0 +1,47 @@ +@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 new file mode 100755 index 0000000..19235ed --- /dev/null +++ b/templates/heavy_case/rename.zsh @@ -0,0 +1,47 @@ +@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/light_case/l___gid_Qw1.nb b/templates/light_case/l___gid_Qw1.nb new file mode 100755 index 0000000..4e19267 --- /dev/null +++ b/templates/light_case/l___gid_Qw1.nb @@ -0,0 +1,10951 @@ +(* 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[ 479918, 10943] +NotebookOptionsPosition[ 454530, 10559] +NotebookOutlinePosition[ 454954, 10576] +CellTagsIndexPosition[ 454911, 10573] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ +Cell[BoxData[ + RowBox[{"f1", "="}]], "Input", + CellChangeTimes->{ + 3.9918455833864365`*^9},ExpressionUUID->"e6c462cd-8982-3c4a-8614-\ +a4032c2a753f"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991845586273697*^9, + 3.9918455862781773`*^9}},ExpressionUUID->"abfd70d0-05dc-ae40-8117-\ +a301872389cf"], + +Cell[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.9918455848875866`*^9},ExpressionUUID->"ab6f3c19-7b16-eb44-924b-\ +0479fa42666f"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991845587327196*^9, + 3.991845587331728*^9}},ExpressionUUID->"6e63ff1c-fb16-304a-8e59-\ +6a9d82a9fa7a"], + +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->"764f2b72-583f-404a-86dd-302e46704fa0"], + +Cell[BoxData["2.3793916761039797`*^-53"], "Output", + CellChangeTimes->{3.9913335367025833`*^9}, + CellLabel-> + "Out[233]=",ExpressionUUID->"a1ad1275-791c-2c4f-89d0-0191b45c7ed9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + 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"]}]], "*", "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, {3.9915581188955975`*^9, + 3.9915581216343517`*^9}},ExpressionUUID->"296c29c6-b9f9-1d4a-99c7-\ +5d23057d1dfa"], + +Cell[BoxData["5.020725113795862`*^-55"], "Output", + CellChangeTimes->{3.991333536726557*^9}, + CellLabel-> + "Out[234]=",ExpressionUUID->"3e2faead-b69d-5c48-9979-35e754d12d58"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + 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"]}]], "*", + 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}, + 3.9915581158968887`*^9},ExpressionUUID->"da02f8be-1800-4945-83f1-\ +7acaa76423f4"], + +Cell[BoxData["1.871372642785671`*^-54"], "Output", + CellChangeTimes->{3.9913335367515736`*^9}, + CellLabel-> + "Out[235]=",ExpressionUUID->"4f5ae42d-c740-c045-be91-9f9e31eab3b6"] +}, 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->"c6346807-3d42-e948-8c5a-115ea1f6a2c2"], + +Cell[BoxData["25.178011816139865`"], "Output", + CellChangeTimes->{3.9913335367605553`*^9}, + CellLabel-> + "Out[236]=",ExpressionUUID->"2bcde3f6-d18f-c142-963c-217812e9dc72"] +}, 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->"474c5dd1-c344-a04c-8714-ada3650bf998"], + +Cell[BoxData["31.32034821453639`"], "Output", + CellChangeTimes->{3.991333536783556*^9}, + CellLabel-> + "Out[237]=",ExpressionUUID->"482feae7-b6d8-8143-b572-b9146e6d2e0c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[238]:=",ExpressionUUID->"2305be88-628a-524a-b468-85b3cc42efc7"], + +Cell[BoxData["0.7475613664925793`"], "Output", + CellChangeTimes->{3.9913335367915726`*^9}, + CellLabel-> + "Out[238]=",ExpressionUUID->"1c1deb9e-a6ca-0143-8db8-21cdffc73907"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[239]:=",ExpressionUUID->"426f7e1e-7abd-a446-8679-e422e283f98f"], + +Cell[BoxData["3.5403946764909393`"], "Output", + CellChangeTimes->{3.99133353681583*^9}, + CellLabel-> + "Out[239]=",ExpressionUUID->"ae59e030-d7e1-1a4a-8ffb-9ecfb821ce05"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[240]:=",ExpressionUUID->"933badd0-5ce1-e645-bb03-d046b1312945"], + +Cell[BoxData["110.88639408458714`"], "Output", + CellChangeTimes->{3.991333536826782*^9}, + CellLabel-> + "Out[240]=",ExpressionUUID->"c953f025-a342-2549-9fa6-f90bea449e4f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[241]:=",ExpressionUUID->"2d8a17a7-6a4c-d94e-b0e2-4da7c60ebbeb"], + +Cell[BoxData["18.822108918839827`"], "Output", + CellChangeTimes->{3.9913335368508377`*^9}, + CellLabel-> + "Out[241]=",ExpressionUUID->"6e8c23f5-f692-db4e-8373-e6c78b3e7fda"] +}, 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->"042e7197-09fd-dc46-b3fd-dc1740a81970"], + +Cell[BoxData["0.042044960793272385`"], "Output", + CellChangeTimes->{3.9913335368758316`*^9}, + CellLabel-> + "Out[242]=",ExpressionUUID->"d074617c-8fe0-114b-b207-70158bd6cc83"] +}, 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->"bccf6e25-da00-4449-8f0f-f2b61c58f67f"], + +Cell[BoxData["4.322031867849089`"], "Output", + CellChangeTimes->{3.991333536973074*^9}, + CellLabel-> + "Out[243]=",ExpressionUUID->"cdd7cedd-6455-ac4a-8fce-733ce51f863b"] +}, 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->"9f9260b3-ca67-3f4a-a0c4-5bf2cb98e110"], + +Cell[BoxData["0.011395075201487413`"], "Output", + CellChangeTimes->{3.9913335369870644`*^9}, + CellLabel-> + "Out[244]=",ExpressionUUID->"aa72f32c-329c-9c4a-b6f4-833dbea197c6"] +}, 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->"52f82243-9920-3742-90e6-48395671d171"], + +Cell[BoxData["8.302069082299768`"], "Output", + CellChangeTimes->{3.9913335370800858`*^9}, + CellLabel-> + "Out[245]=",ExpressionUUID->"e26071fd-e2c1-5f40-9a42-81481b4dd96b"] +}, 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->"a147c908-551b-8647-9cf0-48614f0cb274"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913335370930634`*^9}, + CellLabel-> + "Out[246]=",ExpressionUUID->"88673969-cab9-0b40-80f0-7c0bcdf60439"] +}, 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->"4c078cff-433d-8245-900f-0a3b49ecb9e6"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991333537118065*^9}, + CellLabel-> + "Out[247]=",ExpressionUUID->"bfe4c50a-d3a5-244b-8f56-30e5a15018a1"] +}, 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->"f07c74eb-272f-1743-a996-1dc503a54262"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.9913335371420746`*^9}, + CellLabel-> + "Out[248]=",ExpressionUUID->"857149a1-8aab-954b-86f3-2a3228e46ae1"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"c5ebf9ff-e333-\ +7b4d-b8d5-46482917dc06"], + +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.991845612037445*^9},ExpressionUUID->"e7569d02-bed5-3743-8058-\ +837bf8cfd65c"], + +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->"3a1412e4-c6f1-e745-8a72-cd3619617eb0"], + +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->"413e4690-bb6f-134e-9c1c-5e19bdbe37ff"], + +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->"557c737f-44e5-b047-9b96-8c222633e876"], + +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->"0989ac4b-acdb-9949-b4d2-70d1b9f65dbd"], + +Cell[BoxData["4.322031867849086`"], "Output", + CellChangeTimes->{3.9913335399194164`*^9}, + CellLabel-> + "Out[249]=",ExpressionUUID->"0cfc830e-08fa-4f4b-aef5-0a6c70777af2"] +}, 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.9918456299851303`*^9},ExpressionUUID->"71739d4a-f3fc-9d4f-b803-\ +99b4407cdc6f"], + +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->"726ccd2e-9850-144f-ac6f-a8db23e40300"], + +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->"d5c6080a-ef9c-5541-93e6-fcef34fc5c6b"], + +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->"a5735bd1-5fc2-3c47-a19f-be9d8c805502"], + +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->"1dd8474a-97c2-3246-8ead-1536370ac767"], + +Cell[BoxData["8.302069082299772`"], "Output", + CellChangeTimes->{3.991333542631773*^9}, + CellLabel-> + "Out[250]=",ExpressionUUID->"96c807db-2e4e-1f4a-822d-d2a69cd27982"] +}, 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.991845637746252*^9},ExpressionUUID->"762274ee-d7cb-9644-9b5c-\ +516685cd7481"], + +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->"925ecd2b-bb46-b241-b0ae-91df536967b1"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918456416071854`*^9, + 3.991845656553877*^9}},ExpressionUUID->"c4af1473-2d54-b047-b3e2-\ +18c19d38cfdd"], + +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->"9c0b88be-018b-9b49-8992-9f69ff2c8721"], + +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->"0dc889c7-e5c7-5d48-8218-94f8d4104b1d"], + +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->"e3ce988d-52a1-6c46-93b1-24547de7012f"], + +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->"1ec64821-f1c6-944d-83dd-2975f7431573"], + +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->"b1f00f3e-b26c-bf4d-a0fd-9968a9b2c4e7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991714709387436*^9, 3.991714738003292*^9}, { + 3.991714834117689*^9, 3.991714842328617*^9}, 3.991793311407936*^9, + 3.9917953263701286`*^9},ExpressionUUID->"7383cf4d-77c8-1d41-ab20-\ +d4ea9a390940"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.011000000000000001`], AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, + 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.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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, 52.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9917148467316074`*^9}, + CellLabel-> + "Out[529]=",ExpressionUUID->"d1a933a5-9ae5-3c4e-953d-5f1d02c204a8"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, + 3.99179533223897*^9}},ExpressionUUID->"e431227d-0e31-a446-ad0d-\ +76902a9a3bd8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.991846110594208*^9},ExpressionUUID->"4e5b3330-e10a-4342-8f3d-\ +b24f9b16b9de"], + +Cell[BoxData["9.33220071900516`"], "Output", + CellChangeTimes->{3.991334803166374*^9}, + CellLabel-> + "Out[254]=",ExpressionUUID->"1560efbb-94f0-5144-9b19-9d176fc4dd8d"] +}, 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.991846112020672*^9},ExpressionUUID->"bb5f3a72-8528-7a48-a67a-\ +a23038fc5b71"], + +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->"aec1bc78-c42d-654b-9d44-6cd3626266ac"], + +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->"f1a8642b-581b-a442-a1d9-50687b910475"], + +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->"5a841663-4049-3b42-9c28-d33b4ccb324b"], + +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->"002a296e-87c0-e748-91ba-edf75724ad49"], + +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->"c4fa73a0-9f42-fb44-a044-6efcf5132509"] +}, 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->"0da19810-21b5-1440-b6da-efec04765d71"], + +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->"7bcbb4da-a8de-1b45-8b24-dc27272fdaa1"], + +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->"15898f02-540e-cf4f-a0a1-f3ae96bbddb6"], + +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->"99a44b10-ed73-684f-a35a-9a86c980f3d9"], + +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->"5e0acd55-8564-1749-9f1a-5e9cd04ef83a"], + +Cell[BoxData["9.332200719005158`"], "Output", + CellChangeTimes->{3.991335263670042*^9}, + CellLabel-> + "Out[256]=",ExpressionUUID->"a97106d2-ef63-9147-8535-daa57b06eb20"] +}, 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.991845708089321*^9, + 3.9918457122231236`*^9}},ExpressionUUID->"d3b2932a-2d3f-fa41-a705-\ +f816ef30ba1b"], + +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->"4287df48-5412-ba4f-8ac5-009fa9b4a304"], + +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->"59c4f004-977d-f648-9c23-b4080e1c8591"], + +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->"60f490e4-4b4a-6845-a3d9-028c70afb6db"], + +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->"9ab542c7-4ae7-1e4b-b6a8-ee19008898f7"], + +Cell[BoxData["0.00046079539931050297`"], "Output", + CellChangeTimes->{3.991335268779545*^9}, + CellLabel-> + "Out[257]=",ExpressionUUID->"0d1e7940-37bf-bf4f-bfa4-a5ba2d7cb1dd"] +}, 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.9918457167596684`*^9, + 3.991845720288498*^9}},ExpressionUUID->"3a5379d3-3adc-3844-bbe2-\ +4530809b7b8c"], + +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->"79bb4b1f-3177-c842-aa67-d93f3ad3365e"], + +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->"517afb64-9d7b-6748-abe1-5fa348ccbc29"], + +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->"d19413a7-2cf4-0549-a8b8-37f98f04b017"], + +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->"e2ebea89-90c0-5d4f-8c43-eea596c7d6fb"], + +Cell[BoxData["5.104103620353258`"], "Output", + CellChangeTimes->{3.991335272704685*^9}, + CellLabel-> + "Out[258]=",ExpressionUUID->"7c4d0729-640a-ed41-ad1f-5a5a75f62d87"] +}, 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.991845728758301*^9, + 3.9918461210058537`*^9},ExpressionUUID->"208e04c0-4af7-a344-9e86-\ +ceb616bf22d8"], + +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->"c1d8bb29-16c6-3f4b-8a9b-ba7e90da9672"], + +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->"1756ecee-a1fe-bb40-bfd8-48d4df8ef76d"], + +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->"d0cb69f1-ced4-d843-98c1-600cac395a38"], + +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->"ab747287-9372-314d-a7c4-14fc011f850b"], + +Cell[BoxData["18.832858301324727`"], "Output", + CellChangeTimes->{3.991335275154251*^9}, + CellLabel-> + "Out[259]=",ExpressionUUID->"e6bb3b57-900e-ed41-845d-3c49874fc850"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991846126007372*^9, + 3.9918461306014214`*^9}},ExpressionUUID->"53a3c067-888b-bc49-a5e6-\ +f228162e6070"], + +Cell[BoxData["0.00004699917922538678`"], "Output", + CellChangeTimes->{3.991335275186266*^9}, + CellLabel-> + "Out[260]=",ExpressionUUID->"88a5aaa2-9216-404d-a8aa-70ecb36db857"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991846134278736*^9, 3.9918461363904533`*^9}, + 3.9919238355720615`*^9},ExpressionUUID->"0c2ac2c8-096e-e64a-aaeb-\ +bb84e7548fdc"], + +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->"5c8cab9c-f39b-364c-ae6b-c415e4dbcf46"], + +Cell[BoxData["5.744985073726737`"], "Output", + CellChangeTimes->{3.9913352752142563`*^9}, + CellLabel-> + "Out[262]=",ExpressionUUID->"2dde55a6-2323-454c-b60b-61a76b5d44f2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[264]:=",ExpressionUUID->"106a4571-94f1-5343-b4a9-78f21d5e84b3"], + +Cell[BoxData["1.564995573098557`"], "Output", + CellChangeTimes->{3.9913352752482567`*^9}, + CellLabel-> + "Out[264]=",ExpressionUUID->"344bf722-e54f-374f-b65c-1dfe2f693b7e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[267]:=",ExpressionUUID->"b7c1808d-73a9-d645-bf95-223de85093e2"], + +Cell[BoxData["8.990876207899632`"], "Output", + CellChangeTimes->{3.9913352753089123`*^9}, + CellLabel-> + "Out[267]=",ExpressionUUID->"37f05469-042d-5c49-acdf-eb29d6a15290"] +}, 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->"e9c41729-285f-7d42-bb43-ee09dea88444"], + +Cell[BoxData["0.07167004636648908`"], "Output", + CellChangeTimes->{3.9913352753341656`*^9}, + CellLabel-> + "Out[268]=",ExpressionUUID->"a9f66528-7902-3848-84e1-d06cd8efb93c"] +}, 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->"efa9c5ac-4baa-3e4e-9760-1e46cf5c01c0"], + +Cell[BoxData["3.3103666491187544`"], "Output", + CellChangeTimes->{3.9913352754296722`*^9}, + CellLabel-> + "Out[269]=",ExpressionUUID->"c5f93787-bd57-b143-93de-29b700483396"] +}, 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->"7dcb74da-1357-7e4e-a03d-852f8e740128"], + +Cell[BoxData["0.012832691268660865`"], "Output", + CellChangeTimes->{3.9913352754426765`*^9}, + CellLabel-> + "Out[270]=",ExpressionUUID->"7b0024b2-1e68-904c-b216-49c58abdde0a"] +}, 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->"4c537c9f-ce6a-8f4c-9e68-01e12e3017b7"], + +Cell[BoxData["7.823229443917166`"], "Output", + CellChangeTimes->{3.991335275540678*^9}, + CellLabel-> + "Out[271]=",ExpressionUUID->"725e176a-1300-6f41-9ba3-e070b7b00753"] +}, 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->"1e3d1dc2-d9ac-9045-a648-58006d1d6cf6"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913352755566807`*^9}, + CellLabel-> + "Out[272]=",ExpressionUUID->"56e25769-5fae-9845-ac42-be0bc3e98c92"] +}, 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->"2371743b-ee83-9146-bf98-330cb0fb7e0a"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991335275581682*^9}, + CellLabel-> + "Out[273]=",ExpressionUUID->"0574b2f8-313d-764f-97a0-b69ae3bd044d"] +}, 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->"8b6de8d6-9524-3347-a11b-48bba48b07d0"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.9913352756087036`*^9}, + CellLabel-> + "Out[274]=",ExpressionUUID->"95ff35fe-9928-0447-aa14-c396ca299126"] +}, 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.991846151022602*^9},ExpressionUUID->"a41abb59-b808-8547-b1d9-\ +a574acad5c53"], + +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->"87b7fc82-cf0a-ec4d-83b9-1f172c2a1277"], + +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->"e0980964-44fb-0a4c-8205-9ce871cb8c93"], + +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->"769d7438-8b0f-d04b-94dc-ec99bab472ff"], + +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->"c243bb4e-27de-574b-aeb4-b19a9e2e805b"], + +Cell[BoxData["3.3103666491187513`"], "Output", + CellChangeTimes->{3.991335279487499*^9}, + CellLabel-> + "Out[275]=",ExpressionUUID->"678e1d2b-842e-e545-b4df-7b6cad732095"] +}, 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.9918461538845863`*^9},ExpressionUUID->"779c8db8-6bae-9046-915d-\ +05cf0a3cee42"], + +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->"513e0bd5-dbba-a448-aa49-b2f50bf64a60"], + +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->"af5e90bc-196b-e043-94e8-4bb9c49c6b5c"], + +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->"8f26edac-d5c1-324e-91b6-0e386d5a872d"], + +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->"6833928c-ef21-0d4b-aeed-ecf995491543"], + +Cell[BoxData["7.82322944391716`"], "Output", + CellChangeTimes->{3.991335283631424*^9}, + CellLabel-> + "Out[276]=",ExpressionUUID->"74d46ae4-1766-0c42-9255-78e61714806e"] +}, 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.991846157029255*^9},ExpressionUUID->"2fa4bc1d-3549-0e49-9fa0-\ +9e5dc16aa40f"], + +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->"1101a597-b433-8944-aac8-4b6263f307b3"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918461617737026`*^9, + 3.9918461709620533`*^9}},ExpressionUUID->"6e23e6bb-e46c-1c43-a88f-\ +db092cf7ac8d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.219251816068453`*^-266\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 278, + 261, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913355428514004`*^9}, + CellLabel-> + "During evaluation of \ +In[278]:=",ExpressionUUID->"698a0ec2-6362-4a4c-9512-68ac03e6ab94"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8936448232315485`*^-277\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 278, 262, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335542864294*^9}, + CellLabel-> + "During evaluation of \ +In[278]:=",ExpressionUUID->"c7464263-6d3c-ad4b-944d-708e3b53f8de"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6158106487006413`*^-288\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 278, 263, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991335542873293*^9}, + CellLabel-> + "During evaluation of \ +In[278]:=",ExpressionUUID->"3b2b96d7-8ae3-e140-a8cb-bb0d54486d84"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 278, 264, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913355428812923`*^9}, + CellLabel-> + "During evaluation of \ +In[278]:=",ExpressionUUID->"52f611be-ecf7-624a-b8a8-553d5cafe96b"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVl3k4VV8Xx81DRco8zxd3+DUoGeqsRcoYySxKStGAQpIGhFQyZCZCSJMM +lTGEynAviRBChlIRQkh47/vPOc/n2c8+e63vXut79pZ38TzgysbCwqLBfPz/ +/ae/sV7pVhwhYhs/VB95guhIF/PX7T4HhvW5HQJ39wAKt7qIdQdDN8VyT2+q +NZzf/6iLvfsOGLkVTT5MdYUNv0TvLHZlAbdNCP+OVF8YqDTznO0qgvmjlV1x +yaGwV+nH5+muWjAMi2mRj42Hxa4d8VNdH+C+kRHJ2z8H6nY/yG7LGoa+cyWz +gz9egNRA2VcX6gRUXE5W+hZSDSwzZ5MaLSbg2rUit/N51TDCRTbe7DcBBNvE +h5nmanj6X8rT5dcTcOVFuZsjbw0QVy76JNn+gj1qKjXPzWvgsLQOW0vwJPyn +fFHocU8NtNH6I++OT0GHz0XKue+vQej04Ufcu2eA5Efzzx2rAzL3/bf7bWeA +r+rpjZ2LdYBZX4eST83AzOaQ2je89XC6+4wkNW4GSq703iwk10O9/qWI/aMz +IDTSEj5xqh58pJM9kq/PQi0o/Jv8WQ/tLR+2Uuhz0PFJsvjblzcw5i5i7jM4 +B9q9wurtU29ghcPh1KvZOSBfsx0uWH0DZJ0v982l/8C5DvcyPem3EPxgUsjH +4w984Vm+Wm37FrYGrpuvFJiHwDNCDaJNb+HOlr0VZtYLsDvuCF0s+x1s6rU3 +2OW2AD2Dh/gPFbwDesiZdkrAAlTr7bqfUPkOuLrjfvJkLkB/2+EXXzreQcCV +Ycm68QVoi2JfN8DRAMeaAy/tCFmEHz2TNG+XBtBwrdglV/wXZDZfnBgTbIR2 +/tZG/rd/4e+e5OAYmUbwKh2yXu7+C1IPVFeoao3waO0aj56Vv3CSZSVtJ9EI +skV26XHGS7DRtFaz6kQj8KzOrfAMLcHxhozXhqWN8Clpc820wDI4lOrnnjZv +gpT2x+vPKy8Dd2iZ1H/2TeDAr3L4rxZzfHR5dMClCfquSa+wHV0GjzcZJ4XO +N8Ggx5qdQi+WofWCreDr1CYY0x8p0bBfgS0fPtFVRprg4dXD3BVnVqCmbL5t +YrwJTpb32EDwCjhvCBDNnmuC8U1tcwaPV8BIg3zkC1czTElUqdsvr8Bx/qrB +dNVmWJhKfBaQuQoZ766bKbs3QxlFcHX1xSrk7ZCjTXo1w8XjkWYhTauQ+uad +4cMLzfCvN2QiYmYVPnP4af663gyBw6XCrQos6D47zVGR0wwhLTmWgz4sOBxm +MODc3wy3sq+2somz4hDfy8WR3XQw3ua+UViRFQ+fGxFMM6IDT/0BaxUaK8b9 +bZbba06HkGHlXhNdVmw4WSBxyoEOlxToX+PcWfHeTs5GFi86eGSIrZDKWfGT +19W1Tkl0oG5m09WqZ8WOm2R75TQ6/Kj+ec2khRXnYlaq+jPpcGKgitdriMn6 +Gv1Kj+ngLOMqXLaGDdUHKBUrlXSwuFtINTnIhrxWZck/P9NBgJrq6eTKhisu +A61vv9ChpSKkyNOTDaeW1++PHWXG32urGXeNDcUlCnayTNBBT2Jl9+fHbGhE +PkQlL9GB5dG3sMkXbPidMi8avUKHKq22RtYaNrysvu7UN1YG6Nhnm5M62HB/ +lK7tSR4GbEsyPuj5jw1l3a+VvBZiwG+VbelBXOxo8MnKrFiUAQUl0l9iBdhx +dNu/0wkSDKB1TR0vVWLH9bc/HNgixwCSSOI51n3sTL12aZeTGTCSE/hC0JYd +tyP/DU0aA7K2n1xQPsKO0Y4jwXmbGCBjveuKsS87Cuisvem0jQGiccM3YtPY +MelynLvULgaIUV6ELOSyo+m7v02cwACJ2rCrTgXsKKpT3jGEzPlTar4qdeyY +W2s67afPALnrS54RdHZsF9Jct3kvAxRkGCenP7LjztUnA70GDFA29XKuGGNH +pd2VNfwmzHiHdQ/K/WbHB+35nfGmDFC9KGgTusSOgQd7XwiYMYCa99LEnJ8D +FzO/D37ZzwB1jmWNYXUOVIB6l9/WTL1SW7YY7uLABGdNHTFbBmhszaA+3cuB +f+9Ur26xY4C2824FP3sO3K7KdVjXgQE754Wk+1w48MqabrYdBxlARH4V1T3N +geSJL9lyjgzQrbzBt/YqBw4+EP7T6sQAPcuDPF7hHChOi8yPP8QA/R9U9o8x +HOi53OtnfpgBe4NWlrVSOdB5tdRmmcmGYu8X0rM5cM2Fr+b3nBlg/Cxzhj2f +A3ez09y2H2GA6V7vX24lHFh2yzG7mslmn/W/M2o4cEnPlJdwYYC5j8jI1iYO +TEvuSS1g8v61Y/2J7cx8d0w4ix5lwIGssk//+jhQ4LeX0zkmW2nd6jjylanP +O/uE10y2ee/Y+naSA498zBLgPMYAuxP/NVEWOfDlPrO2nUx2WFmtj2bjRCNv +189uTHaMb6ueW8uJ6lELWjeY7ES9X+4gzIm7vsuMpzH5UJ3Pi2oZTqyr/rOQ +y2Rnh70FSqqcGAg5rtlMdpkWfXxjCydGBNjsSGDysfDvOb+0OZHTdZf3JSYf +l63IsNTnxIXaWBlbJru9jEgt3ceJKuQUgsTkk/sOJUjbcmLDbGL3d2b8p0Y2 +xQQ7c6K5du90JpNPB7BGfHPnROq70igzJntsbA8z9eZEX6GIkkmmPl4Ps4MK +L3HiKyjxCGXyOTx/SSSMExPY7pevZ7JPl4FfQBQnnnpUlRHJ1Pu8h/i5wSRO +5BUIJLEx2f9u5YlHjzlxduUn6R1z/y6qR7qsf8GJtQ+ynogx+VLTYSefKk5M +2yk6doi5/4ELbJZEGyd2diQlNDLrJTiqY9/9Hk58wD4q9ItZTyGkXEOeEU68 +cuzMYW4mX7cyIj784UTWtX88xeyZ/fO8RYKNlQuz2uZ8F5n1mi9oNb9lLRcu +mZ0+xbBhQOeHQwUxslxITtqjZ2bF1GfrSMRrNS4MPBO0dekAA5Zj3N2n1blw +9PfoplQLBihZ+ChYGHJhPKHh9ZzZL6UFiyuBB7hwWmBXLW0fs94ErvYWOHJh +cUwWpDD7zbv1RpzAWS6MvSvWa2rIgNp997jeJ3Nh0ojNaXFdZv08VRpevc+F +6cE1U1Rmv/9Y96h6Uz4X2o9796sz/WAD/fmFqFoupK+gsJQWsx6Mm36Y/eRC +adfuFpvNzPj2zrUwdnJjn/6By5ekGBCde/Hx8l5udA6stG0SZ8bLxRJOs+DG +2bZvUuuYfmb6Zo3ubVdutP7ZGX5qAwNSdssVm0Zyo6brcFsKJwM00SSxeYAb +JbfFx9X+pAP93nvvpe/cmOtZIGA5xvTvVev9lFlu/Gf5cbVrhA7Xq5x5b/Hw +YHGwqkM10787d54PMN7Cg4tPns9ytNLBWyvzcGMwD1ZxKAV7P2P6dwb/rEkE +D2o4NkgmMP8HCtyXwlviefBeX7vsswd0eN9hU9iex4Pemnkh9ffo8J/XOvb+ +Fh70PdwRfTmKDmO5frm/JXjx1Z/POpvO0MFRyGxCspgX10ssdL+Rp4N6QEVQ +eiUvDhw3taiXosOaIVUR+be8aHB/mlQuSoeyZ+xA+sSLEmsceSP46CBiUha9 +eZUXLWSCQhsXmuF9kNK2PSZrkGvLqFYRoxn0J/9e9Bheg34fTNnPnW0Gf8M4 +8uvxNfgofbD7xqlmyM+k9Qj+WYMC9wqsU1ybQczKWauMZy3mSx87mmPfDOOl +b+bZ/1uLnOKr94/pNkNscLRP8oW1uCnL0zVyfTMMCZM86vnW4fuDE5frc5sg +aKfFEQlNPnzQfWfZvbYRDA+l/96hx4eD+1676Jc3An/gz2vWpnyYFlbnKlbU +CHfrQnOjnfmw/Wr66aeZjVBqXP6T6wYfNn5li4kIbIQpO8XzM5/40KR1J11l +VyMc8p27SQ/gR+GTYpEiRQ2gnZ/8/Er1ehwIapqYiXgHpxemAxv4NuCkprvj +Db03sEgR6KdZb0TuxrpKhYe1sPPxk4yEBEFUUPoUsCRZA9MbjZ1taoWQ39zZ +ui+zAkYinG3OcYsg6Zzeq45/L8Fo0s9oVEMUT8ZKHFflK4bxozzez6+K4aq1 +8+beyHzm+V2U7XqtOLIuGeyK2ZwH310M8nTeieO/FtEnVRJ5EJHpZzbVLI6n +CwS0/3LkQbtMd4r9R3Fs3TD8MPXTA3AWT1anjolje9nv2OvXHoA/v6RrG58E +igVf2sfakwtPFmQaJO0lkLeu8KZbTA5sZJAiCyYl0Mu8d5252n1Ymdyc0zQr +gTvOby9wFr4PPzbqVI4sSuAKY3U6iPU+1NqZ/xDjkESTjGs6M5+ywHvEb2+Q +mCQ+Ehkxi76VBR1LDSsWupLM/izIejadCYnkU54zdyTxCtD6HBozQCr82X4N +DSlkkIPnxY3T4FH+07pFbSn01cwS+UhJA82PjzVegRTeVpWszeNLAyuFPCl9 +IyncNeUVk9x2FyIqM8YsHKVQUbek657DXViaigk8EyyFOq96ZLafTYUee5+C +7BYpdAop2be1IBmSKFoCgiek0clpB+/ouQSwNmFEV52SRqNK08EhhwTYeOrI +hpNe0iiz83rAnF4C3Hp0Y+Nrf2nUbrN7byeYAFfUeoQ8I6QxwuNygciLeDim +EiDeXCiNwt6naa7/4mCL4iuFa/+kcWiH6tBSciz80rO4/x+rDEa7EC0BIbHw +yGVUsYdTBreZbVy73jMWlLL4lLesl8FZSwNDT/1YEJM/pDIgL4NjUdI3hafu +wIrMKkXHQAaVv4fO/jK+A00SuttnYmRQ9L1UwTX+GHgv84zEkSiDq3+L3UoW +o6FTQVpM+K4M/pQ3U2IZjYYv5MW/GrkyyMev7P6+IhoWtAtrLpbLIJgO3jh5 +MhpIB+VN2YZlsPFZ05GphCgITmU9umGbLD62fRuhqHUbwu95WiloyWKo3fD5 +O0K3IfL+5z3qhCxi7UqJylQEJD8uU7U2lEWF9ntN9Q8ioKDi7K8kR1nkUPrN +9lYsAvp7v/jLhcpiEyPWuZn1FmhL1UZv6pTFL6JBJmKT4TCkqNT/vUcWlQI9 +aDvbwuEGJYySPSCLVu8krK4Uh0O3tvFbse+y2P2PQ8jpQjj42X9YYv0niw8e +Tn0OYg8HB5Oz6j8E5NBuT/QzK9nrkBDOtDcNOSQ2y/oEnQ6FkxFb34hryeGd +HQt8egdCgYge/nleRw7dPglLy2iGwmjiHq0tKIef+bV2q3KEwrYHvB05RnJ4 +m5ZnFJwWAh/exPBGOcphfjp5k/bHa8DPnuVzJFgOX2wezlawCwauxWrL6RA5 +dN3ky7MTgmHl1+etQdflkD3ZPuQcKRgme8SnMyKY88kDDhpzQfC+KObMYIIc +SoTIpIvEBcEdl6Djhx/LIaP7VbBCVyCI1DrbOXXIoX79rLPr8BXgL72yY6JT +Dh++2mjiX3oFuPLvilz+JIddAzZzNbevwHxyd8fdfjnUNb1U90PzCnSf3W/R +N8Zcb01aX1bMZUiRR+ODy3Lo+YNN8KLpJZAJkt1pT5JHvaNf2by/+kO+N4/C +Z1V5nLgZesa01h+I49PcRyjyaNVYNG2R7g9OJnXtbpvlcS+rZdKgjT/cFT5x +6oK2PLZumrvH3XQBxB/lpySayeN41dyyTakfCLXvWvx4Xh7N4znb24t9IfsN +acDeXx7/ma2y9cf5gnrp+jefA+SRkHHhX3/eFw6kfYkeDZTHkulJkVFNX4g5 +Eao6d1MeRYModxxrfID/H91W6J48Rjvo59h0egOvsuPLA+/k8eqJsEw36XNw +UhyMHzfKY7NW69YGjnPQxKfQz06XR80k/uN7xs9CxJ9vnC/ey6PCQLxOUsVZ +4G/wthbtkUf37W4n7h48y+z3W7O94/KYnHeUypnpBVKF5VtdNyqg5NFASbkg +D7iUk/b2lZAC6o2vLe6y8YDPyYEOIqIK+Ll7wauO6gHpwXuD30kqoJvd1usa +n86AnNWHNjVlBfS93qoZuu0MKM9/9/q1QwFFvpgJJ8yegv92iT/zc1LANR9e +EuLJ7lCs6L7E5qyArJfyJ4fPuoPmmjKDSBcF7Osutxoxdge9LrvB7BMKOL1U +gKHLbmBzNmnDh7MKKHjpSju6usHVHFEfapgCOqeIbXMnTsB7PhGtL/kKKGFY +ea1P2BWsZ11DTxcq4Na3mhfGZo9BT8+LtvliBWwp93yh0HEMRh5Yn+QvU8Cr +xelk+dhjsKAbn6pTp4AeyR6TIHgM5M8LrcR3KWCk6U+ej5JH4Vz/xjpjFkV0 +khra/t30CDS8dXz1iE0Rj/SeUiWrHwGZZ7klazgV8QVPQtFt8SPQdFX7SROv +It7ekzte8dUZFORd4o0FFVHpzsfEgmBnaDtaeMKYpIjLbyNuFAQdhs3fzdcZ +mypi4bXiKNVHjhDWlsz1yEwR2U4ceVJ2xRH6yoZZ1lgoolXvprNhlo4QftNv +rtFaEU305jralg/CIOVev9FhRTSyeYWq1gch2uNXgdE5RYS56RMJ/A4wORNh +bZSkiMmWRW2pj2yhrzvTJi1FEXMFT/S1h9lC06uXttN3FTFONllu11FbyL4+ +aJ+cqYgcS8YnsqRswUFy26HvjxRxcP9Tv8IYG3ij13v8xitFrEngLM4PsYbU +GLULjUOK+HNdbF9yhCWEnyf8pUcVsaIykeOmhyWcP2h58ew3Rez71+iSvd8S +9itfviQ+ztQvc3HSRtgSuMreB7rPMfMJ2JL2NOMAnB30u8HLo4Sumsles1UW +YLDpbYoRTQn1R120IsT2gx2XodX7TUpYPD356vJfczj5uZHPdqsSak5/GtlR +bw6RtxiBx3YoIS01YyrPzhw6v3Ucv6qrhL0eNYZnQ83gWMbw1hfWSqiVxLKs +8csUgjewNstdUcISqewHMYtGEDcWHPIgkLmeucR8Kd0Icqs5iP+uKaHGo9M+ +KhlG0HSGp1AnXAmTJK2OdRsYwYam9Yk2d5TwKaNQ+WqKIWQEyxyNyFXCRa2z +sjdNDaBqRmdpvkUJ51eLipYH9SGTXuJi2aaEfBEanbVV+hCSo96U366EO250 +l1Xc1QcjW0qya7cSWlsuPzCw14eOcokd7V+UUOGdz9Wajt3wI2jxXP6sEkpw +3lX826EHIgIlP45JKOOWMJlPrxYQFse2HqiRUkYX0p3kC30Ifa/zyyRllfHD +GPH1UA1Cpndu+AdFZeTI6dzyNByB2hVPQpoyil3mZjWWRNBL93GRRGXkNNrU +lBlNgAd1a0+bqzL6H1DsXxOoA77zEn8PuynjqmrI5rR9OnCpll3i10llbJaN +1A2V1IFbdh/t13gpo9nzsEirUm3IC7nwSe+iMnp8u3Dty5wWDPVVdRdHKuNQ +T2qCfqAm2Nw26YovUcZ4id3e71u2g5PdtnnFcmU8Z31cSSV3OxxTlBYtqlTG +h+seHai/vB28y37ZtLxWRmI/4f6eth2iR2M6uejM9S3UvRVjtkHTru6PfoPK +SL11Ic7mmDrs+nWsw56XhO/Zv1lJaW8BkQqDrMq1JIx8Y/4hTXIL/LpO9pLl +J2Ebq2yGxfJmSJefWju6kYQhy1uWzV5vhhWrgN1eUiRcp64emmSyGaorYorC +NpGQI5LyxPTDf6B7oyq62JqEi15R8RcjKCBhk3lIxI6Eh9u7WP86UOC3QgjV +34GEjyajr9PVKJBVadRAHCahJA91wK2BDGxTHauNbiQ0sfMY8eIlQ53NT4/B +ABKWlK19YpGiCnuUxPbxZZEwLN57SnBWGZ5PvJE/lk1C+tmv1u10ZVAq8f5T +nkvCG5qGXh05ysBh3HrP7TEJBTeW/pdipwy1nmG/656TsFV8/WfV10pAVMwm +XnxHwpacEYnlNEXQONA29G2chMopqX4T1+QhV/JqCTFJQv0hYSO1Y/IgPEqN +iJ8mYQHXTVKqvjzM+oVv3/2HhI5bnhbKcslDURqEp6+SMFzowKesW3Kw6ftT +5vVABedmzCfuoCyoBt68ULtDBfWeG9wa6JWESp0cTlNtFSTSlY6YZ0vC/vnq +Ox93qmCUFsNZ5YwkXPCYezKmq4I368hr+FgkocHR+Qu/qQruz/wdkEqWADct +DeODzip4XGFZhXpHDP7N7u8acVHBb2+LJenOYhBdcOqYh6sK2nyWO9m4SQxK +VTKvBJ1UwWqGQ/inFlHgEVlX/MBHBQfr/0oSG0Th4e8vkrPhKviQ5bVvZK4w +EPn/8i7fUsFFlSseZReF4YO7qAZ3pAqOtUb+3WEuDH8HTfdLxKrgzHjxJdqi +EBi3loRgmgo+aw+g/dgvBD8e356IKGTGN0G40tYLAtlVq1q5RwVbBM1LFeoE +IErB7O+1PhXMG43b/S9LAGYHXLYP9augSfPQ8vprAlDlEPE4fVgFpd44+Y3s +FoAD+wcSRSdUMFA4qelM9Hrw1wn14mVRRf19ahlOL/mgYUOb/ISyKh4vne8e +Ml8DtNZRRxNVVdTQC9WvkFoDdyL+Jj4kq6Lc0nz+9HdecORW4j++SRVzWwqX +fEN5YfLf+b/9mqpYsm2Ot7mGB0TGpNrfm6hizRfHLhlDbnCtcgt5flYVd13Y +F+IUzwG/zvzw2+Ojik5bX9l4uHPABenTpzrPq+L0garJrl0ccPOS54GFAFXs +TN3TWfSNHQq0z8vtDFPFZfofB19gh38vr1XWpaiioZaTRMYKK4Qd5yywSlPF +ri/5rNNdrLBe5Pr90XuquNDC+Ty6kBUUfG/e5M5Rxf3XEuTKXVnBQD3GzuSZ +Kuav7R7KbmOBO8/SZz/UMfPx57Iu8VglpA7LjR19q4rE7fvtD8mrRA5/Vu9s +gypOhNbxqH5bIUrP5NSKtKjiAeKbS92RFeIz5Um0Q7cqCsy//WjntEyo5pVR +h8ZVkWH8O1/qzBJRndFxbFpYDa+HRFlYjc0Tg6byh8+LqWFO08FTTc/nCZbF +M/ZLEmpYne+x5lHQPKFnwW3GKaeG8RH+T7Kk5om3rNo7xMlqqHeuPPWo7R+C +7nKPV5dQQ+40j0j/gVlign+c/S2q4cGV5RJK0SzBX6G5YrxbDaW38dvqhM4S ++wU//LYyVEMOwaNyXtRZor2Oo8/tgBqmhcsekLo6Q/QoncyPPq6G3zK7+r5u ++00svX+ZJ+yuhr7P/Bak+X4TUpfZ76ecUkOWqw/rH4xOE04f7yZme6mhRXrs +t4LEaWIwtDWw9KIa7v8eOXp9dYr49nWb5WCkGpbJ8L0LqpgkZvNW5zeVqOEp +22arwoyfxFebvRk3ytTw3TNty5QTP4lujtuGwxVqGMASnz/z30+iwlkiOaFG +DXnXZmrNVv0ggsW2ay83qmGvuqysyMh3QiD85KWmPjVca2mVQdMbI9g0CpWU +BtRwd2JjyKv1Y8Ts8Dz98hc1TDUjORZ+/kZ0Qaj0lq9qyL774fzri9+I9Pl7 +VYmTauggVfbiXNlXgnriI4srGxn5gjW5fA1HCRlhqYdVHGQ8JBa/blJylBCo +c7EQ4yZjyq4LX19PjhAzMlOZzWvJWGm30c8zaYQo71yze6swGQ2xZalrYpgw +3IuhqypkvDiW2WCRN0QcVX7Mm7KPjL8/q3JV2A4SF98cOknaT8YoNW8bza2D +RLTrxuaiA2QUvnqxj5tvkKjM8Y9otiUj583E6u3XBwghkuH65SNkTDtjQv/n +1k+8JY0KOZ8n43hShp29UR/R9zbJd/wCGdc/WSfDwtNH/D5u2nkhgIy+UyTF +He96CdkHxYkxgWQcVdbRsDDoJS6oBEvU3STjnEQ/p7BZD0FWlZUj3SPjD5mo +wX6fbgIbPgQWZZIx3N5skWVnN2HjFvaFyCYjz4TX5Uz2buJa3kSW7UMy83zh +nm4f10X0qVYq3ygm46UsrrgbFZ1EpJo9ZfwdGdssD5/mlftITJNjNYqmyLj3 +60jGH+0PRDcd9wjOkLH/DIOrf+MHosbjl6XPHBmlp592iv9sIyKLjM5q/CXj +HbuADRF32wiyNsuTcnYK7pJMqTdkbyNcjM7I14lQcGrqshGlupUw+imxWUmc +gjebvdR/XWglNt9uIEIlKXj+oN7vPeqtxMp7RUcDOQq6fBLHZw9biFS7noRm +NQpyqg22G6YxiI4TBus6dlIwL72y6G56M1HBOyexHSi4TjBwWelIM5H1OEst +QZeCUfjVabNSM+E1ubzXbi8FvZLjNOmPmwg+v+dBfeYUHCo2KF6qaST2hsnP +j7hQkL9zO89BtgaiNHvpy1w4BTnk+n+G9dQTGrt95o1vUdCJzqZ85Uk98eLL ++LqM2xSUaYju7rxSTxTJ9O8wvkNBNfupuw+V6oknSTW301Mp2H4x36Pap47I +iAjVMsinYOxQQAg3qZaQoayY3S2g4MJAtu6r5ddEWuP5Y9NFFDRQ2tzZ8PE1 +kcLlFpVaQkH7j7H0/rDXRFyg8ehkDQX3GWSozYzXEDd81scktVNQIV/dzja6 +muARDM+d+EjBTdyXygeMqomwQpZKvW4K2tjuoKyyVxMhv6a/jvcxv8d11XXF +v4q44taxU/crBU8yppb7Tr8izjkmj31foOD9DbraYmcqCAd9RdSRoaIgZPGM +tpYQyx08/HVyVBSKOH0/Mb6EyHD91WusSMW3JwPPth8sIb6Glfk5qFIx5bJB +15fvL4lzjebP/LdScSmuOVdz3UviptklmdK9VHTqdPRkuD0naANHxsGIircD +BnjCNZ4T7z0Nyt+ZUPHm9+DnZRzPCZGYjTZd+6m4z0ue70pWMZHVnnf7jwMV +eYKjWs4MFxHldh//bfOkYnH8Rmnei4WE0/fypsqzVDRUNN1WYVZIsFzMSNL3 +oaLI6p+wDsVCYm/qqW1W/lTMfgdbtVoLiA+fWU97X6Pii9ppu0JyAfHD5b/e +wkQqPlkWZdn67SkheeZ62X81VNQpcuPgj3pIRK4e336rloqX+TtP77J8SLDd +2Vv4rZ6Knje0s2ZEHxI/XnI+zGik4na+qO+TWXlEOUtI0sZ2Kg4CezZP9QPC +IS7Q788oFQP1VTkb+HOJFpLzzIExKpa6i1cP9uQQemXg+ewHFbkEHRU8H+QQ +5P6V426TzPzzq76N6eYQiyqXbXoWqKi1231u26VsIqnCf3vVWhrSt5PG7Tnv +E+vM7Asl+GkY+Cqm2r47iwgc1KT5CdDQreLCpprHWYQb54LSZmEa/vKNPPbK +MovYYX5eKEuGhrGRR3mO5GUSnUPnZkK30HCTqjvlztEMQnjN6cJ9tjTUXNQ7 +oal5l8jeffnilD0Nfzwd3DsxnkpsvRy5O9aRhkdcwqeOZqUSZlMFH7uP0JDD +hosctT6VCOucWzx6moZqUeHDD38nEwtZV/UuBtHQl3T909GeRCKsL3qtdAgN +j9bJ0w6lJBJCIlkd1WE0rLuUabPikEhsvlF/nDOChq4uTRVq/QmEuyfvregE +Gvr7ySWyjMcTPTqx7bmPaWhJ05m3U4oj3Hyz7xrl0xDTRffNT8QSf/JfuI4X +0HBHVICrYmkssVGhe37LSxqa36ZbyprFEiY80lKvamjoKTArFhh4h6jsyD3W +/pGGB+2LnKqXowlj/lLa+W4aXqdWOKW0RhPdBo1/xHppaJS17uQv5gVptvxn ++KFBGo64Hx35ZxBN0DI3P/3+g4YuAiWWyupRRGWP7vmICeb4mu3XyP2RhLGQ +JWyaouH4gUqL9TcjiePXfdt85mh4N5VnwWPkNjFbE5YiukDDU1d1vEfv3CaC +/yYeLf9Lw/T32h1b9W4TAtseUp2Wafhn2/Ci1e8IIv1M+dzqKg3jGnY1GN2P +IP4Hz0wYnA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3k4VV8Xx81DRco8zxd3+DUoGeqsRcoYySxKStGAQpIGhFQyZCZCSJMM +lTGEynAviRBChlIRQkh47/vPOc/n2c8+e63vXut79pZ38TzgysbCwqLBfPz/ +/ae/sV7pVhwhYhs/VB95guhIF/PX7T4HhvW5HQJ39wAKt7qIdQdDN8VyT2+q +NZzf/6iLvfsOGLkVTT5MdYUNv0TvLHZlAbdNCP+OVF8YqDTznO0qgvmjlV1x +yaGwV+nH5+muWjAMi2mRj42Hxa4d8VNdH+C+kRHJ2z8H6nY/yG7LGoa+cyWz +gz9egNRA2VcX6gRUXE5W+hZSDSwzZ5MaLSbg2rUit/N51TDCRTbe7DcBBNvE +h5nmanj6X8rT5dcTcOVFuZsjbw0QVy76JNn+gj1qKjXPzWvgsLQOW0vwJPyn +fFHocU8NtNH6I++OT0GHz0XKue+vQej04Ufcu2eA5Efzzx2rAzL3/bf7bWeA +r+rpjZ2LdYBZX4eST83AzOaQ2je89XC6+4wkNW4GSq703iwk10O9/qWI/aMz +IDTSEj5xqh58pJM9kq/PQi0o/Jv8WQ/tLR+2Uuhz0PFJsvjblzcw5i5i7jM4 +B9q9wurtU29ghcPh1KvZOSBfsx0uWH0DZJ0v982l/8C5DvcyPem3EPxgUsjH +4w984Vm+Wm37FrYGrpuvFJiHwDNCDaJNb+HOlr0VZtYLsDvuCF0s+x1s6rU3 +2OW2AD2Dh/gPFbwDesiZdkrAAlTr7bqfUPkOuLrjfvJkLkB/2+EXXzreQcCV +Ycm68QVoi2JfN8DRAMeaAy/tCFmEHz2TNG+XBtBwrdglV/wXZDZfnBgTbIR2 +/tZG/rd/4e+e5OAYmUbwKh2yXu7+C1IPVFeoao3waO0aj56Vv3CSZSVtJ9EI +skV26XHGS7DRtFaz6kQj8KzOrfAMLcHxhozXhqWN8Clpc820wDI4lOrnnjZv +gpT2x+vPKy8Dd2iZ1H/2TeDAr3L4rxZzfHR5dMClCfquSa+wHV0GjzcZJ4XO +N8Ggx5qdQi+WofWCreDr1CYY0x8p0bBfgS0fPtFVRprg4dXD3BVnVqCmbL5t +YrwJTpb32EDwCjhvCBDNnmuC8U1tcwaPV8BIg3zkC1czTElUqdsvr8Bx/qrB +dNVmWJhKfBaQuQoZ766bKbs3QxlFcHX1xSrk7ZCjTXo1w8XjkWYhTauQ+uad +4cMLzfCvN2QiYmYVPnP4af663gyBw6XCrQos6D47zVGR0wwhLTmWgz4sOBxm +MODc3wy3sq+2somz4hDfy8WR3XQw3ua+UViRFQ+fGxFMM6IDT/0BaxUaK8b9 +bZbba06HkGHlXhNdVmw4WSBxyoEOlxToX+PcWfHeTs5GFi86eGSIrZDKWfGT +19W1Tkl0oG5m09WqZ8WOm2R75TQ6/Kj+ec2khRXnYlaq+jPpcGKgitdriMn6 +Gv1Kj+ngLOMqXLaGDdUHKBUrlXSwuFtINTnIhrxWZck/P9NBgJrq6eTKhisu +A61vv9ChpSKkyNOTDaeW1++PHWXG32urGXeNDcUlCnayTNBBT2Jl9+fHbGhE +PkQlL9GB5dG3sMkXbPidMi8avUKHKq22RtYaNrysvu7UN1YG6Nhnm5M62HB/ +lK7tSR4GbEsyPuj5jw1l3a+VvBZiwG+VbelBXOxo8MnKrFiUAQUl0l9iBdhx +dNu/0wkSDKB1TR0vVWLH9bc/HNgixwCSSOI51n3sTL12aZeTGTCSE/hC0JYd +tyP/DU0aA7K2n1xQPsKO0Y4jwXmbGCBjveuKsS87Cuisvem0jQGiccM3YtPY +MelynLvULgaIUV6ELOSyo+m7v02cwACJ2rCrTgXsKKpT3jGEzPlTar4qdeyY +W2s67afPALnrS54RdHZsF9Jct3kvAxRkGCenP7LjztUnA70GDFA29XKuGGNH +pd2VNfwmzHiHdQ/K/WbHB+35nfGmDFC9KGgTusSOgQd7XwiYMYCa99LEnJ8D +FzO/D37ZzwB1jmWNYXUOVIB6l9/WTL1SW7YY7uLABGdNHTFbBmhszaA+3cuB +f+9Ur26xY4C2824FP3sO3K7KdVjXgQE754Wk+1w48MqabrYdBxlARH4V1T3N +geSJL9lyjgzQrbzBt/YqBw4+EP7T6sQAPcuDPF7hHChOi8yPP8QA/R9U9o8x +HOi53OtnfpgBe4NWlrVSOdB5tdRmmcmGYu8X0rM5cM2Fr+b3nBlg/Cxzhj2f +A3ez09y2H2GA6V7vX24lHFh2yzG7mslmn/W/M2o4cEnPlJdwYYC5j8jI1iYO +TEvuSS1g8v61Y/2J7cx8d0w4ix5lwIGssk//+jhQ4LeX0zkmW2nd6jjylanP +O/uE10y2ee/Y+naSA498zBLgPMYAuxP/NVEWOfDlPrO2nUx2WFmtj2bjRCNv +189uTHaMb6ueW8uJ6lELWjeY7ES9X+4gzIm7vsuMpzH5UJ3Pi2oZTqyr/rOQ +y2Rnh70FSqqcGAg5rtlMdpkWfXxjCydGBNjsSGDysfDvOb+0OZHTdZf3JSYf +l63IsNTnxIXaWBlbJru9jEgt3ceJKuQUgsTkk/sOJUjbcmLDbGL3d2b8p0Y2 +xQQ7c6K5du90JpNPB7BGfHPnROq70igzJntsbA8z9eZEX6GIkkmmPl4Ps4MK +L3HiKyjxCGXyOTx/SSSMExPY7pevZ7JPl4FfQBQnnnpUlRHJ1Pu8h/i5wSRO +5BUIJLEx2f9u5YlHjzlxduUn6R1z/y6qR7qsf8GJtQ+ynogx+VLTYSefKk5M +2yk6doi5/4ELbJZEGyd2diQlNDLrJTiqY9/9Hk58wD4q9ItZTyGkXEOeEU68 +cuzMYW4mX7cyIj784UTWtX88xeyZ/fO8RYKNlQuz2uZ8F5n1mi9oNb9lLRcu +mZ0+xbBhQOeHQwUxslxITtqjZ2bF1GfrSMRrNS4MPBO0dekAA5Zj3N2n1blw +9PfoplQLBihZ+ChYGHJhPKHh9ZzZL6UFiyuBB7hwWmBXLW0fs94ErvYWOHJh +cUwWpDD7zbv1RpzAWS6MvSvWa2rIgNp997jeJ3Nh0ojNaXFdZv08VRpevc+F +6cE1U1Rmv/9Y96h6Uz4X2o9796sz/WAD/fmFqFoupK+gsJQWsx6Mm36Y/eRC +adfuFpvNzPj2zrUwdnJjn/6By5ekGBCde/Hx8l5udA6stG0SZ8bLxRJOs+DG +2bZvUuuYfmb6Zo3ubVdutP7ZGX5qAwNSdssVm0Zyo6brcFsKJwM00SSxeYAb +JbfFx9X+pAP93nvvpe/cmOtZIGA5xvTvVev9lFlu/Gf5cbVrhA7Xq5x5b/Hw +YHGwqkM10787d54PMN7Cg4tPns9ytNLBWyvzcGMwD1ZxKAV7P2P6dwb/rEkE +D2o4NkgmMP8HCtyXwlviefBeX7vsswd0eN9hU9iex4Pemnkh9ffo8J/XOvb+ +Fh70PdwRfTmKDmO5frm/JXjx1Z/POpvO0MFRyGxCspgX10ssdL+Rp4N6QEVQ +eiUvDhw3taiXosOaIVUR+be8aHB/mlQuSoeyZ+xA+sSLEmsceSP46CBiUha9 +eZUXLWSCQhsXmuF9kNK2PSZrkGvLqFYRoxn0J/9e9Bheg34fTNnPnW0Gf8M4 +8uvxNfgofbD7xqlmyM+k9Qj+WYMC9wqsU1ybQczKWauMZy3mSx87mmPfDOOl +b+bZ/1uLnOKr94/pNkNscLRP8oW1uCnL0zVyfTMMCZM86vnW4fuDE5frc5sg +aKfFEQlNPnzQfWfZvbYRDA+l/96hx4eD+1676Jc3An/gz2vWpnyYFlbnKlbU +CHfrQnOjnfmw/Wr66aeZjVBqXP6T6wYfNn5li4kIbIQpO8XzM5/40KR1J11l +VyMc8p27SQ/gR+GTYpEiRQ2gnZ/8/Er1ehwIapqYiXgHpxemAxv4NuCkprvj +Db03sEgR6KdZb0TuxrpKhYe1sPPxk4yEBEFUUPoUsCRZA9MbjZ1taoWQ39zZ +ui+zAkYinG3OcYsg6Zzeq45/L8Fo0s9oVEMUT8ZKHFflK4bxozzez6+K4aq1 +8+beyHzm+V2U7XqtOLIuGeyK2ZwH310M8nTeieO/FtEnVRJ5EJHpZzbVLI6n +CwS0/3LkQbtMd4r9R3Fs3TD8MPXTA3AWT1anjolje9nv2OvXHoA/v6RrG58E +igVf2sfakwtPFmQaJO0lkLeu8KZbTA5sZJAiCyYl0Mu8d5252n1Ymdyc0zQr +gTvOby9wFr4PPzbqVI4sSuAKY3U6iPU+1NqZ/xDjkESTjGs6M5+ywHvEb2+Q +mCQ+Ehkxi76VBR1LDSsWupLM/izIejadCYnkU54zdyTxCtD6HBozQCr82X4N +DSlkkIPnxY3T4FH+07pFbSn01cwS+UhJA82PjzVegRTeVpWszeNLAyuFPCl9 +IyncNeUVk9x2FyIqM8YsHKVQUbek657DXViaigk8EyyFOq96ZLafTYUee5+C +7BYpdAop2be1IBmSKFoCgiek0clpB+/ouQSwNmFEV52SRqNK08EhhwTYeOrI +hpNe0iiz83rAnF4C3Hp0Y+Nrf2nUbrN7byeYAFfUeoQ8I6QxwuNygciLeDim +EiDeXCiNwt6naa7/4mCL4iuFa/+kcWiH6tBSciz80rO4/x+rDEa7EC0BIbHw +yGVUsYdTBreZbVy73jMWlLL4lLesl8FZSwNDT/1YEJM/pDIgL4NjUdI3hafu +wIrMKkXHQAaVv4fO/jK+A00SuttnYmRQ9L1UwTX+GHgv84zEkSiDq3+L3UoW +o6FTQVpM+K4M/pQ3U2IZjYYv5MW/GrkyyMev7P6+IhoWtAtrLpbLIJgO3jh5 +MhpIB+VN2YZlsPFZ05GphCgITmU9umGbLD62fRuhqHUbwu95WiloyWKo3fD5 +O0K3IfL+5z3qhCxi7UqJylQEJD8uU7U2lEWF9ntN9Q8ioKDi7K8kR1nkUPrN +9lYsAvp7v/jLhcpiEyPWuZn1FmhL1UZv6pTFL6JBJmKT4TCkqNT/vUcWlQI9 +aDvbwuEGJYySPSCLVu8krK4Uh0O3tvFbse+y2P2PQ8jpQjj42X9YYv0niw8e +Tn0OYg8HB5Oz6j8E5NBuT/QzK9nrkBDOtDcNOSQ2y/oEnQ6FkxFb34hryeGd +HQt8egdCgYge/nleRw7dPglLy2iGwmjiHq0tKIef+bV2q3KEwrYHvB05RnJ4 +m5ZnFJwWAh/exPBGOcphfjp5k/bHa8DPnuVzJFgOX2wezlawCwauxWrL6RA5 +dN3ky7MTgmHl1+etQdflkD3ZPuQcKRgme8SnMyKY88kDDhpzQfC+KObMYIIc +SoTIpIvEBcEdl6Djhx/LIaP7VbBCVyCI1DrbOXXIoX79rLPr8BXgL72yY6JT +Dh++2mjiX3oFuPLvilz+JIddAzZzNbevwHxyd8fdfjnUNb1U90PzCnSf3W/R +N8Zcb01aX1bMZUiRR+ODy3Lo+YNN8KLpJZAJkt1pT5JHvaNf2by/+kO+N4/C +Z1V5nLgZesa01h+I49PcRyjyaNVYNG2R7g9OJnXtbpvlcS+rZdKgjT/cFT5x +6oK2PLZumrvH3XQBxB/lpySayeN41dyyTakfCLXvWvx4Xh7N4znb24t9IfsN +acDeXx7/ma2y9cf5gnrp+jefA+SRkHHhX3/eFw6kfYkeDZTHkulJkVFNX4g5 +Eao6d1MeRYModxxrfID/H91W6J48Rjvo59h0egOvsuPLA+/k8eqJsEw36XNw +UhyMHzfKY7NW69YGjnPQxKfQz06XR80k/uN7xs9CxJ9vnC/ey6PCQLxOUsVZ +4G/wthbtkUf37W4n7h48y+z3W7O94/KYnHeUypnpBVKF5VtdNyqg5NFASbkg +D7iUk/b2lZAC6o2vLe6y8YDPyYEOIqIK+Ll7wauO6gHpwXuD30kqoJvd1usa +n86AnNWHNjVlBfS93qoZuu0MKM9/9/q1QwFFvpgJJ8yegv92iT/zc1LANR9e +EuLJ7lCs6L7E5qyArJfyJ4fPuoPmmjKDSBcF7Osutxoxdge9LrvB7BMKOL1U +gKHLbmBzNmnDh7MKKHjpSju6usHVHFEfapgCOqeIbXMnTsB7PhGtL/kKKGFY +ea1P2BWsZ11DTxcq4Na3mhfGZo9BT8+LtvliBWwp93yh0HEMRh5Yn+QvU8Cr +xelk+dhjsKAbn6pTp4AeyR6TIHgM5M8LrcR3KWCk6U+ej5JH4Vz/xjpjFkV0 +khra/t30CDS8dXz1iE0Rj/SeUiWrHwGZZ7klazgV8QVPQtFt8SPQdFX7SROv +It7ekzte8dUZFORd4o0FFVHpzsfEgmBnaDtaeMKYpIjLbyNuFAQdhs3fzdcZ +mypi4bXiKNVHjhDWlsz1yEwR2U4ceVJ2xRH6yoZZ1lgoolXvprNhlo4QftNv +rtFaEU305jralg/CIOVev9FhRTSyeYWq1gch2uNXgdE5RYS56RMJ/A4wORNh +bZSkiMmWRW2pj2yhrzvTJi1FEXMFT/S1h9lC06uXttN3FTFONllu11FbyL4+ +aJ+cqYgcS8YnsqRswUFy26HvjxRxcP9Tv8IYG3ij13v8xitFrEngLM4PsYbU +GLULjUOK+HNdbF9yhCWEnyf8pUcVsaIykeOmhyWcP2h58ew3Rez71+iSvd8S +9itfviQ+ztQvc3HSRtgSuMreB7rPMfMJ2JL2NOMAnB30u8HLo4Sumsles1UW +YLDpbYoRTQn1R120IsT2gx2XodX7TUpYPD356vJfczj5uZHPdqsSak5/GtlR +bw6RtxiBx3YoIS01YyrPzhw6v3Ucv6qrhL0eNYZnQ83gWMbw1hfWSqiVxLKs +8csUgjewNstdUcISqewHMYtGEDcWHPIgkLmeucR8Kd0Icqs5iP+uKaHGo9M+ +KhlG0HSGp1AnXAmTJK2OdRsYwYam9Yk2d5TwKaNQ+WqKIWQEyxyNyFXCRa2z +sjdNDaBqRmdpvkUJ51eLipYH9SGTXuJi2aaEfBEanbVV+hCSo96U366EO250 +l1Xc1QcjW0qya7cSWlsuPzCw14eOcokd7V+UUOGdz9Wajt3wI2jxXP6sEkpw +3lX826EHIgIlP45JKOOWMJlPrxYQFse2HqiRUkYX0p3kC30Ifa/zyyRllfHD +GPH1UA1Cpndu+AdFZeTI6dzyNByB2hVPQpoyil3mZjWWRNBL93GRRGXkNNrU +lBlNgAd1a0+bqzL6H1DsXxOoA77zEn8PuynjqmrI5rR9OnCpll3i10llbJaN +1A2V1IFbdh/t13gpo9nzsEirUm3IC7nwSe+iMnp8u3Dty5wWDPVVdRdHKuNQ +T2qCfqAm2Nw26YovUcZ4id3e71u2g5PdtnnFcmU8Z31cSSV3OxxTlBYtqlTG +h+seHai/vB28y37ZtLxWRmI/4f6eth2iR2M6uejM9S3UvRVjtkHTru6PfoPK +SL11Ic7mmDrs+nWsw56XhO/Zv1lJaW8BkQqDrMq1JIx8Y/4hTXIL/LpO9pLl +J2Ebq2yGxfJmSJefWju6kYQhy1uWzV5vhhWrgN1eUiRcp64emmSyGaorYorC +NpGQI5LyxPTDf6B7oyq62JqEi15R8RcjKCBhk3lIxI6Eh9u7WP86UOC3QgjV +34GEjyajr9PVKJBVadRAHCahJA91wK2BDGxTHauNbiQ0sfMY8eIlQ53NT4/B +ABKWlK19YpGiCnuUxPbxZZEwLN57SnBWGZ5PvJE/lk1C+tmv1u10ZVAq8f5T +nkvCG5qGXh05ysBh3HrP7TEJBTeW/pdipwy1nmG/656TsFV8/WfV10pAVMwm +XnxHwpacEYnlNEXQONA29G2chMopqX4T1+QhV/JqCTFJQv0hYSO1Y/IgPEqN +iJ8mYQHXTVKqvjzM+oVv3/2HhI5bnhbKcslDURqEp6+SMFzowKesW3Kw6ftT +5vVABedmzCfuoCyoBt68ULtDBfWeG9wa6JWESp0cTlNtFSTSlY6YZ0vC/vnq +Ox93qmCUFsNZ5YwkXPCYezKmq4I368hr+FgkocHR+Qu/qQruz/wdkEqWADct +DeODzip4XGFZhXpHDP7N7u8acVHBb2+LJenOYhBdcOqYh6sK2nyWO9m4SQxK +VTKvBJ1UwWqGQ/inFlHgEVlX/MBHBQfr/0oSG0Th4e8vkrPhKviQ5bVvZK4w +EPn/8i7fUsFFlSseZReF4YO7qAZ3pAqOtUb+3WEuDH8HTfdLxKrgzHjxJdqi +EBi3loRgmgo+aw+g/dgvBD8e356IKGTGN0G40tYLAtlVq1q5RwVbBM1LFeoE +IErB7O+1PhXMG43b/S9LAGYHXLYP9augSfPQ8vprAlDlEPE4fVgFpd44+Y3s +FoAD+wcSRSdUMFA4qelM9Hrw1wn14mVRRf19ahlOL/mgYUOb/ISyKh4vne8e +Ml8DtNZRRxNVVdTQC9WvkFoDdyL+Jj4kq6Lc0nz+9HdecORW4j++SRVzWwqX +fEN5YfLf+b/9mqpYsm2Ot7mGB0TGpNrfm6hizRfHLhlDbnCtcgt5flYVd13Y +F+IUzwG/zvzw2+Ojik5bX9l4uHPABenTpzrPq+L0garJrl0ccPOS54GFAFXs +TN3TWfSNHQq0z8vtDFPFZfofB19gh38vr1XWpaiioZaTRMYKK4Qd5yywSlPF +ri/5rNNdrLBe5Pr90XuquNDC+Ty6kBUUfG/e5M5Rxf3XEuTKXVnBQD3GzuSZ +Kuav7R7KbmOBO8/SZz/UMfPx57Iu8VglpA7LjR19q4rE7fvtD8mrRA5/Vu9s +gypOhNbxqH5bIUrP5NSKtKjiAeKbS92RFeIz5Um0Q7cqCsy//WjntEyo5pVR +h8ZVkWH8O1/qzBJRndFxbFpYDa+HRFlYjc0Tg6byh8+LqWFO08FTTc/nCZbF +M/ZLEmpYne+x5lHQPKFnwW3GKaeG8RH+T7Kk5om3rNo7xMlqqHeuPPWo7R+C +7nKPV5dQQ+40j0j/gVlign+c/S2q4cGV5RJK0SzBX6G5YrxbDaW38dvqhM4S ++wU//LYyVEMOwaNyXtRZor2Oo8/tgBqmhcsekLo6Q/QoncyPPq6G3zK7+r5u ++00svX+ZJ+yuhr7P/Bak+X4TUpfZ76ecUkOWqw/rH4xOE04f7yZme6mhRXrs +t4LEaWIwtDWw9KIa7v8eOXp9dYr49nWb5WCkGpbJ8L0LqpgkZvNW5zeVqOEp +22arwoyfxFebvRk3ytTw3TNty5QTP4lujtuGwxVqGMASnz/z30+iwlkiOaFG +DXnXZmrNVv0ggsW2ay83qmGvuqysyMh3QiD85KWmPjVca2mVQdMbI9g0CpWU +BtRwd2JjyKv1Y8Ts8Dz98hc1TDUjORZ+/kZ0Qaj0lq9qyL774fzri9+I9Pl7 +VYmTauggVfbiXNlXgnriI4srGxn5gjW5fA1HCRlhqYdVHGQ8JBa/blJylBCo +c7EQ4yZjyq4LX19PjhAzMlOZzWvJWGm30c8zaYQo71yze6swGQ2xZalrYpgw +3IuhqypkvDiW2WCRN0QcVX7Mm7KPjL8/q3JV2A4SF98cOknaT8YoNW8bza2D +RLTrxuaiA2QUvnqxj5tvkKjM8Y9otiUj583E6u3XBwghkuH65SNkTDtjQv/n +1k+8JY0KOZ8n43hShp29UR/R9zbJd/wCGdc/WSfDwtNH/D5u2nkhgIy+UyTF +He96CdkHxYkxgWQcVdbRsDDoJS6oBEvU3STjnEQ/p7BZD0FWlZUj3SPjD5mo +wX6fbgIbPgQWZZIx3N5skWVnN2HjFvaFyCYjz4TX5Uz2buJa3kSW7UMy83zh +nm4f10X0qVYq3ygm46UsrrgbFZ1EpJo9ZfwdGdssD5/mlftITJNjNYqmyLj3 +60jGH+0PRDcd9wjOkLH/DIOrf+MHosbjl6XPHBmlp592iv9sIyKLjM5q/CXj +HbuADRF32wiyNsuTcnYK7pJMqTdkbyNcjM7I14lQcGrqshGlupUw+imxWUmc +gjebvdR/XWglNt9uIEIlKXj+oN7vPeqtxMp7RUcDOQq6fBLHZw9biFS7noRm +NQpyqg22G6YxiI4TBus6dlIwL72y6G56M1HBOyexHSi4TjBwWelIM5H1OEst +QZeCUfjVabNSM+E1ubzXbi8FvZLjNOmPmwg+v+dBfeYUHCo2KF6qaST2hsnP +j7hQkL9zO89BtgaiNHvpy1w4BTnk+n+G9dQTGrt95o1vUdCJzqZ85Uk98eLL ++LqM2xSUaYju7rxSTxTJ9O8wvkNBNfupuw+V6oknSTW301Mp2H4x36Pap47I +iAjVMsinYOxQQAg3qZaQoayY3S2g4MJAtu6r5ddEWuP5Y9NFFDRQ2tzZ8PE1 +kcLlFpVaQkH7j7H0/rDXRFyg8ehkDQX3GWSozYzXEDd81scktVNQIV/dzja6 +muARDM+d+EjBTdyXygeMqomwQpZKvW4K2tjuoKyyVxMhv6a/jvcxv8d11XXF +v4q44taxU/crBU8yppb7Tr8izjkmj31foOD9DbraYmcqCAd9RdSRoaIgZPGM +tpYQyx08/HVyVBSKOH0/Mb6EyHD91WusSMW3JwPPth8sIb6Glfk5qFIx5bJB +15fvL4lzjebP/LdScSmuOVdz3UviptklmdK9VHTqdPRkuD0naANHxsGIircD +BnjCNZ4T7z0Nyt+ZUPHm9+DnZRzPCZGYjTZd+6m4z0ue70pWMZHVnnf7jwMV +eYKjWs4MFxHldh//bfOkYnH8Rmnei4WE0/fypsqzVDRUNN1WYVZIsFzMSNL3 +oaLI6p+wDsVCYm/qqW1W/lTMfgdbtVoLiA+fWU97X6Pii9ppu0JyAfHD5b/e +wkQqPlkWZdn67SkheeZ62X81VNQpcuPgj3pIRK4e336rloqX+TtP77J8SLDd +2Vv4rZ6Knje0s2ZEHxI/XnI+zGik4na+qO+TWXlEOUtI0sZ2Kg4CezZP9QPC +IS7Q788oFQP1VTkb+HOJFpLzzIExKpa6i1cP9uQQemXg+ewHFbkEHRU8H+QQ +5P6V426TzPzzq76N6eYQiyqXbXoWqKi1231u26VsIqnCf3vVWhrSt5PG7Tnv +E+vM7Asl+GkY+Cqm2r47iwgc1KT5CdDQreLCpprHWYQb54LSZmEa/vKNPPbK +MovYYX5eKEuGhrGRR3mO5GUSnUPnZkK30HCTqjvlztEMQnjN6cJ9tjTUXNQ7 +oal5l8jeffnilD0Nfzwd3DsxnkpsvRy5O9aRhkdcwqeOZqUSZlMFH7uP0JDD +hosctT6VCOucWzx6moZqUeHDD38nEwtZV/UuBtHQl3T909GeRCKsL3qtdAgN +j9bJ0w6lJBJCIlkd1WE0rLuUabPikEhsvlF/nDOChq4uTRVq/QmEuyfvregE +Gvr7ySWyjMcTPTqx7bmPaWhJ05m3U4oj3Hyz7xrl0xDTRffNT8QSf/JfuI4X +0HBHVICrYmkssVGhe37LSxqa36ZbyprFEiY80lKvamjoKTArFhh4h6jsyD3W +/pGGB+2LnKqXowlj/lLa+W4aXqdWOKW0RhPdBo1/xHppaJS17uQv5gVptvxn ++KFBGo64Hx35ZxBN0DI3P/3+g4YuAiWWyupRRGWP7vmICeb4mu3XyP2RhLGQ +JWyaouH4gUqL9TcjiePXfdt85mh4N5VnwWPkNjFbE5YiukDDU1d1vEfv3CaC +/yYeLf9Lw/T32h1b9W4TAtseUp2Wafhn2/Ci1e8IIv1M+dzqKg3jGnY1GN2P +IP4Hz0wYnA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22963416248739862`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, 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.22963416248739862`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3k4VV8Xx81DRco8zxd3+DUoGeqsRcoYySxKStGAQpIGhFQyZCZCSJMM +lTGEynAviRBChlIRQkh47/vPOc/n2c8+e63vXut79pZ38TzgysbCwqLBfPz/ +/ae/sV7pVhwhYhs/VB95guhIF/PX7T4HhvW5HQJ39wAKt7qIdQdDN8VyT2+q +NZzf/6iLvfsOGLkVTT5MdYUNv0TvLHZlAbdNCP+OVF8YqDTznO0qgvmjlV1x +yaGwV+nH5+muWjAMi2mRj42Hxa4d8VNdH+C+kRHJ2z8H6nY/yG7LGoa+cyWz +gz9egNRA2VcX6gRUXE5W+hZSDSwzZ5MaLSbg2rUit/N51TDCRTbe7DcBBNvE +h5nmanj6X8rT5dcTcOVFuZsjbw0QVy76JNn+gj1qKjXPzWvgsLQOW0vwJPyn +fFHocU8NtNH6I++OT0GHz0XKue+vQej04Ufcu2eA5Efzzx2rAzL3/bf7bWeA +r+rpjZ2LdYBZX4eST83AzOaQ2je89XC6+4wkNW4GSq703iwk10O9/qWI/aMz +IDTSEj5xqh58pJM9kq/PQi0o/Jv8WQ/tLR+2Uuhz0PFJsvjblzcw5i5i7jM4 +B9q9wurtU29ghcPh1KvZOSBfsx0uWH0DZJ0v982l/8C5DvcyPem3EPxgUsjH +4w984Vm+Wm37FrYGrpuvFJiHwDNCDaJNb+HOlr0VZtYLsDvuCF0s+x1s6rU3 +2OW2AD2Dh/gPFbwDesiZdkrAAlTr7bqfUPkOuLrjfvJkLkB/2+EXXzreQcCV +Ycm68QVoi2JfN8DRAMeaAy/tCFmEHz2TNG+XBtBwrdglV/wXZDZfnBgTbIR2 +/tZG/rd/4e+e5OAYmUbwKh2yXu7+C1IPVFeoao3waO0aj56Vv3CSZSVtJ9EI +skV26XHGS7DRtFaz6kQj8KzOrfAMLcHxhozXhqWN8Clpc820wDI4lOrnnjZv +gpT2x+vPKy8Dd2iZ1H/2TeDAr3L4rxZzfHR5dMClCfquSa+wHV0GjzcZJ4XO +N8Ggx5qdQi+WofWCreDr1CYY0x8p0bBfgS0fPtFVRprg4dXD3BVnVqCmbL5t +YrwJTpb32EDwCjhvCBDNnmuC8U1tcwaPV8BIg3zkC1czTElUqdsvr8Bx/qrB +dNVmWJhKfBaQuQoZ766bKbs3QxlFcHX1xSrk7ZCjTXo1w8XjkWYhTauQ+uad +4cMLzfCvN2QiYmYVPnP4af663gyBw6XCrQos6D47zVGR0wwhLTmWgz4sOBxm +MODc3wy3sq+2somz4hDfy8WR3XQw3ua+UViRFQ+fGxFMM6IDT/0BaxUaK8b9 +bZbba06HkGHlXhNdVmw4WSBxyoEOlxToX+PcWfHeTs5GFi86eGSIrZDKWfGT +19W1Tkl0oG5m09WqZ8WOm2R75TQ6/Kj+ec2khRXnYlaq+jPpcGKgitdriMn6 +Gv1Kj+ngLOMqXLaGDdUHKBUrlXSwuFtINTnIhrxWZck/P9NBgJrq6eTKhisu +A61vv9ChpSKkyNOTDaeW1++PHWXG32urGXeNDcUlCnayTNBBT2Jl9+fHbGhE +PkQlL9GB5dG3sMkXbPidMi8avUKHKq22RtYaNrysvu7UN1YG6Nhnm5M62HB/ +lK7tSR4GbEsyPuj5jw1l3a+VvBZiwG+VbelBXOxo8MnKrFiUAQUl0l9iBdhx +dNu/0wkSDKB1TR0vVWLH9bc/HNgixwCSSOI51n3sTL12aZeTGTCSE/hC0JYd +tyP/DU0aA7K2n1xQPsKO0Y4jwXmbGCBjveuKsS87Cuisvem0jQGiccM3YtPY +MelynLvULgaIUV6ELOSyo+m7v02cwACJ2rCrTgXsKKpT3jGEzPlTar4qdeyY +W2s67afPALnrS54RdHZsF9Jct3kvAxRkGCenP7LjztUnA70GDFA29XKuGGNH +pd2VNfwmzHiHdQ/K/WbHB+35nfGmDFC9KGgTusSOgQd7XwiYMYCa99LEnJ8D +FzO/D37ZzwB1jmWNYXUOVIB6l9/WTL1SW7YY7uLABGdNHTFbBmhszaA+3cuB +f+9Ur26xY4C2824FP3sO3K7KdVjXgQE754Wk+1w48MqabrYdBxlARH4V1T3N +geSJL9lyjgzQrbzBt/YqBw4+EP7T6sQAPcuDPF7hHChOi8yPP8QA/R9U9o8x +HOi53OtnfpgBe4NWlrVSOdB5tdRmmcmGYu8X0rM5cM2Fr+b3nBlg/Cxzhj2f +A3ez09y2H2GA6V7vX24lHFh2yzG7mslmn/W/M2o4cEnPlJdwYYC5j8jI1iYO +TEvuSS1g8v61Y/2J7cx8d0w4ix5lwIGssk//+jhQ4LeX0zkmW2nd6jjylanP +O/uE10y2ee/Y+naSA498zBLgPMYAuxP/NVEWOfDlPrO2nUx2WFmtj2bjRCNv +189uTHaMb6ueW8uJ6lELWjeY7ES9X+4gzIm7vsuMpzH5UJ3Pi2oZTqyr/rOQ +y2Rnh70FSqqcGAg5rtlMdpkWfXxjCydGBNjsSGDysfDvOb+0OZHTdZf3JSYf +l63IsNTnxIXaWBlbJru9jEgt3ceJKuQUgsTkk/sOJUjbcmLDbGL3d2b8p0Y2 +xQQ7c6K5du90JpNPB7BGfHPnROq70igzJntsbA8z9eZEX6GIkkmmPl4Ps4MK +L3HiKyjxCGXyOTx/SSSMExPY7pevZ7JPl4FfQBQnnnpUlRHJ1Pu8h/i5wSRO +5BUIJLEx2f9u5YlHjzlxduUn6R1z/y6qR7qsf8GJtQ+ynogx+VLTYSefKk5M +2yk6doi5/4ELbJZEGyd2diQlNDLrJTiqY9/9Hk58wD4q9ItZTyGkXEOeEU68 +cuzMYW4mX7cyIj784UTWtX88xeyZ/fO8RYKNlQuz2uZ8F5n1mi9oNb9lLRcu +mZ0+xbBhQOeHQwUxslxITtqjZ2bF1GfrSMRrNS4MPBO0dekAA5Zj3N2n1blw +9PfoplQLBihZ+ChYGHJhPKHh9ZzZL6UFiyuBB7hwWmBXLW0fs94ErvYWOHJh +cUwWpDD7zbv1RpzAWS6MvSvWa2rIgNp997jeJ3Nh0ojNaXFdZv08VRpevc+F +6cE1U1Rmv/9Y96h6Uz4X2o9796sz/WAD/fmFqFoupK+gsJQWsx6Mm36Y/eRC +adfuFpvNzPj2zrUwdnJjn/6By5ekGBCde/Hx8l5udA6stG0SZ8bLxRJOs+DG +2bZvUuuYfmb6Zo3ubVdutP7ZGX5qAwNSdssVm0Zyo6brcFsKJwM00SSxeYAb +JbfFx9X+pAP93nvvpe/cmOtZIGA5xvTvVev9lFlu/Gf5cbVrhA7Xq5x5b/Hw +YHGwqkM10787d54PMN7Cg4tPns9ytNLBWyvzcGMwD1ZxKAV7P2P6dwb/rEkE +D2o4NkgmMP8HCtyXwlviefBeX7vsswd0eN9hU9iex4Pemnkh9ffo8J/XOvb+ +Fh70PdwRfTmKDmO5frm/JXjx1Z/POpvO0MFRyGxCspgX10ssdL+Rp4N6QEVQ +eiUvDhw3taiXosOaIVUR+be8aHB/mlQuSoeyZ+xA+sSLEmsceSP46CBiUha9 +eZUXLWSCQhsXmuF9kNK2PSZrkGvLqFYRoxn0J/9e9Bheg34fTNnPnW0Gf8M4 +8uvxNfgofbD7xqlmyM+k9Qj+WYMC9wqsU1ybQczKWauMZy3mSx87mmPfDOOl +b+bZ/1uLnOKr94/pNkNscLRP8oW1uCnL0zVyfTMMCZM86vnW4fuDE5frc5sg +aKfFEQlNPnzQfWfZvbYRDA+l/96hx4eD+1676Jc3An/gz2vWpnyYFlbnKlbU +CHfrQnOjnfmw/Wr66aeZjVBqXP6T6wYfNn5li4kIbIQpO8XzM5/40KR1J11l +VyMc8p27SQ/gR+GTYpEiRQ2gnZ/8/Er1ehwIapqYiXgHpxemAxv4NuCkprvj +Db03sEgR6KdZb0TuxrpKhYe1sPPxk4yEBEFUUPoUsCRZA9MbjZ1taoWQ39zZ +ui+zAkYinG3OcYsg6Zzeq45/L8Fo0s9oVEMUT8ZKHFflK4bxozzez6+K4aq1 +8+beyHzm+V2U7XqtOLIuGeyK2ZwH310M8nTeieO/FtEnVRJ5EJHpZzbVLI6n +CwS0/3LkQbtMd4r9R3Fs3TD8MPXTA3AWT1anjolje9nv2OvXHoA/v6RrG58E +igVf2sfakwtPFmQaJO0lkLeu8KZbTA5sZJAiCyYl0Mu8d5252n1Ymdyc0zQr +gTvOby9wFr4PPzbqVI4sSuAKY3U6iPU+1NqZ/xDjkESTjGs6M5+ywHvEb2+Q +mCQ+Ehkxi76VBR1LDSsWupLM/izIejadCYnkU54zdyTxCtD6HBozQCr82X4N +DSlkkIPnxY3T4FH+07pFbSn01cwS+UhJA82PjzVegRTeVpWszeNLAyuFPCl9 +IyncNeUVk9x2FyIqM8YsHKVQUbek657DXViaigk8EyyFOq96ZLafTYUee5+C +7BYpdAop2be1IBmSKFoCgiek0clpB+/ouQSwNmFEV52SRqNK08EhhwTYeOrI +hpNe0iiz83rAnF4C3Hp0Y+Nrf2nUbrN7byeYAFfUeoQ8I6QxwuNygciLeDim +EiDeXCiNwt6naa7/4mCL4iuFa/+kcWiH6tBSciz80rO4/x+rDEa7EC0BIbHw +yGVUsYdTBreZbVy73jMWlLL4lLesl8FZSwNDT/1YEJM/pDIgL4NjUdI3hafu +wIrMKkXHQAaVv4fO/jK+A00SuttnYmRQ9L1UwTX+GHgv84zEkSiDq3+L3UoW +o6FTQVpM+K4M/pQ3U2IZjYYv5MW/GrkyyMev7P6+IhoWtAtrLpbLIJgO3jh5 +MhpIB+VN2YZlsPFZ05GphCgITmU9umGbLD62fRuhqHUbwu95WiloyWKo3fD5 +O0K3IfL+5z3qhCxi7UqJylQEJD8uU7U2lEWF9ntN9Q8ioKDi7K8kR1nkUPrN +9lYsAvp7v/jLhcpiEyPWuZn1FmhL1UZv6pTFL6JBJmKT4TCkqNT/vUcWlQI9 +aDvbwuEGJYySPSCLVu8krK4Uh0O3tvFbse+y2P2PQ8jpQjj42X9YYv0niw8e +Tn0OYg8HB5Oz6j8E5NBuT/QzK9nrkBDOtDcNOSQ2y/oEnQ6FkxFb34hryeGd +HQt8egdCgYge/nleRw7dPglLy2iGwmjiHq0tKIef+bV2q3KEwrYHvB05RnJ4 +m5ZnFJwWAh/exPBGOcphfjp5k/bHa8DPnuVzJFgOX2wezlawCwauxWrL6RA5 +dN3ky7MTgmHl1+etQdflkD3ZPuQcKRgme8SnMyKY88kDDhpzQfC+KObMYIIc +SoTIpIvEBcEdl6Djhx/LIaP7VbBCVyCI1DrbOXXIoX79rLPr8BXgL72yY6JT +Dh++2mjiX3oFuPLvilz+JIddAzZzNbevwHxyd8fdfjnUNb1U90PzCnSf3W/R +N8Zcb01aX1bMZUiRR+ODy3Lo+YNN8KLpJZAJkt1pT5JHvaNf2by/+kO+N4/C +Z1V5nLgZesa01h+I49PcRyjyaNVYNG2R7g9OJnXtbpvlcS+rZdKgjT/cFT5x +6oK2PLZumrvH3XQBxB/lpySayeN41dyyTakfCLXvWvx4Xh7N4znb24t9IfsN +acDeXx7/ma2y9cf5gnrp+jefA+SRkHHhX3/eFw6kfYkeDZTHkulJkVFNX4g5 +Eao6d1MeRYModxxrfID/H91W6J48Rjvo59h0egOvsuPLA+/k8eqJsEw36XNw +UhyMHzfKY7NW69YGjnPQxKfQz06XR80k/uN7xs9CxJ9vnC/ey6PCQLxOUsVZ +4G/wthbtkUf37W4n7h48y+z3W7O94/KYnHeUypnpBVKF5VtdNyqg5NFASbkg +D7iUk/b2lZAC6o2vLe6y8YDPyYEOIqIK+Ll7wauO6gHpwXuD30kqoJvd1usa +n86AnNWHNjVlBfS93qoZuu0MKM9/9/q1QwFFvpgJJ8yegv92iT/zc1LANR9e +EuLJ7lCs6L7E5qyArJfyJ4fPuoPmmjKDSBcF7Osutxoxdge9LrvB7BMKOL1U +gKHLbmBzNmnDh7MKKHjpSju6usHVHFEfapgCOqeIbXMnTsB7PhGtL/kKKGFY +ea1P2BWsZ11DTxcq4Na3mhfGZo9BT8+LtvliBWwp93yh0HEMRh5Yn+QvU8Cr +xelk+dhjsKAbn6pTp4AeyR6TIHgM5M8LrcR3KWCk6U+ej5JH4Vz/xjpjFkV0 +khra/t30CDS8dXz1iE0Rj/SeUiWrHwGZZ7klazgV8QVPQtFt8SPQdFX7SROv +It7ekzte8dUZFORd4o0FFVHpzsfEgmBnaDtaeMKYpIjLbyNuFAQdhs3fzdcZ +mypi4bXiKNVHjhDWlsz1yEwR2U4ceVJ2xRH6yoZZ1lgoolXvprNhlo4QftNv +rtFaEU305jralg/CIOVev9FhRTSyeYWq1gch2uNXgdE5RYS56RMJ/A4wORNh +bZSkiMmWRW2pj2yhrzvTJi1FEXMFT/S1h9lC06uXttN3FTFONllu11FbyL4+ +aJ+cqYgcS8YnsqRswUFy26HvjxRxcP9Tv8IYG3ij13v8xitFrEngLM4PsYbU +GLULjUOK+HNdbF9yhCWEnyf8pUcVsaIykeOmhyWcP2h58ew3Rez71+iSvd8S +9itfviQ+ztQvc3HSRtgSuMreB7rPMfMJ2JL2NOMAnB30u8HLo4Sumsles1UW +YLDpbYoRTQn1R120IsT2gx2XodX7TUpYPD356vJfczj5uZHPdqsSak5/GtlR +bw6RtxiBx3YoIS01YyrPzhw6v3Ucv6qrhL0eNYZnQ83gWMbw1hfWSqiVxLKs +8csUgjewNstdUcISqewHMYtGEDcWHPIgkLmeucR8Kd0Icqs5iP+uKaHGo9M+ +KhlG0HSGp1AnXAmTJK2OdRsYwYam9Yk2d5TwKaNQ+WqKIWQEyxyNyFXCRa2z +sjdNDaBqRmdpvkUJ51eLipYH9SGTXuJi2aaEfBEanbVV+hCSo96U366EO250 +l1Xc1QcjW0qya7cSWlsuPzCw14eOcokd7V+UUOGdz9Wajt3wI2jxXP6sEkpw +3lX826EHIgIlP45JKOOWMJlPrxYQFse2HqiRUkYX0p3kC30Ifa/zyyRllfHD +GPH1UA1Cpndu+AdFZeTI6dzyNByB2hVPQpoyil3mZjWWRNBL93GRRGXkNNrU +lBlNgAd1a0+bqzL6H1DsXxOoA77zEn8PuynjqmrI5rR9OnCpll3i10llbJaN +1A2V1IFbdh/t13gpo9nzsEirUm3IC7nwSe+iMnp8u3Dty5wWDPVVdRdHKuNQ +T2qCfqAm2Nw26YovUcZ4id3e71u2g5PdtnnFcmU8Z31cSSV3OxxTlBYtqlTG +h+seHai/vB28y37ZtLxWRmI/4f6eth2iR2M6uejM9S3UvRVjtkHTru6PfoPK +SL11Ic7mmDrs+nWsw56XhO/Zv1lJaW8BkQqDrMq1JIx8Y/4hTXIL/LpO9pLl +J2Ebq2yGxfJmSJefWju6kYQhy1uWzV5vhhWrgN1eUiRcp64emmSyGaorYorC +NpGQI5LyxPTDf6B7oyq62JqEi15R8RcjKCBhk3lIxI6Eh9u7WP86UOC3QgjV +34GEjyajr9PVKJBVadRAHCahJA91wK2BDGxTHauNbiQ0sfMY8eIlQ53NT4/B +ABKWlK19YpGiCnuUxPbxZZEwLN57SnBWGZ5PvJE/lk1C+tmv1u10ZVAq8f5T +nkvCG5qGXh05ysBh3HrP7TEJBTeW/pdipwy1nmG/656TsFV8/WfV10pAVMwm +XnxHwpacEYnlNEXQONA29G2chMopqX4T1+QhV/JqCTFJQv0hYSO1Y/IgPEqN +iJ8mYQHXTVKqvjzM+oVv3/2HhI5bnhbKcslDURqEp6+SMFzowKesW3Kw6ftT +5vVABedmzCfuoCyoBt68ULtDBfWeG9wa6JWESp0cTlNtFSTSlY6YZ0vC/vnq +Ox93qmCUFsNZ5YwkXPCYezKmq4I368hr+FgkocHR+Qu/qQruz/wdkEqWADct +DeODzip4XGFZhXpHDP7N7u8acVHBb2+LJenOYhBdcOqYh6sK2nyWO9m4SQxK +VTKvBJ1UwWqGQ/inFlHgEVlX/MBHBQfr/0oSG0Th4e8vkrPhKviQ5bVvZK4w +EPn/8i7fUsFFlSseZReF4YO7qAZ3pAqOtUb+3WEuDH8HTfdLxKrgzHjxJdqi +EBi3loRgmgo+aw+g/dgvBD8e356IKGTGN0G40tYLAtlVq1q5RwVbBM1LFeoE +IErB7O+1PhXMG43b/S9LAGYHXLYP9augSfPQ8vprAlDlEPE4fVgFpd44+Y3s +FoAD+wcSRSdUMFA4qelM9Hrw1wn14mVRRf19ahlOL/mgYUOb/ISyKh4vne8e +Ml8DtNZRRxNVVdTQC9WvkFoDdyL+Jj4kq6Lc0nz+9HdecORW4j++SRVzWwqX +fEN5YfLf+b/9mqpYsm2Ot7mGB0TGpNrfm6hizRfHLhlDbnCtcgt5flYVd13Y +F+IUzwG/zvzw2+Ojik5bX9l4uHPABenTpzrPq+L0garJrl0ccPOS54GFAFXs +TN3TWfSNHQq0z8vtDFPFZfofB19gh38vr1XWpaiioZaTRMYKK4Qd5yywSlPF +ri/5rNNdrLBe5Pr90XuquNDC+Ty6kBUUfG/e5M5Rxf3XEuTKXVnBQD3GzuSZ +Kuav7R7KbmOBO8/SZz/UMfPx57Iu8VglpA7LjR19q4rE7fvtD8mrRA5/Vu9s +gypOhNbxqH5bIUrP5NSKtKjiAeKbS92RFeIz5Um0Q7cqCsy//WjntEyo5pVR +h8ZVkWH8O1/qzBJRndFxbFpYDa+HRFlYjc0Tg6byh8+LqWFO08FTTc/nCZbF +M/ZLEmpYne+x5lHQPKFnwW3GKaeG8RH+T7Kk5om3rNo7xMlqqHeuPPWo7R+C +7nKPV5dQQ+40j0j/gVlign+c/S2q4cGV5RJK0SzBX6G5YrxbDaW38dvqhM4S ++wU//LYyVEMOwaNyXtRZor2Oo8/tgBqmhcsekLo6Q/QoncyPPq6G3zK7+r5u ++00svX+ZJ+yuhr7P/Bak+X4TUpfZ76ecUkOWqw/rH4xOE04f7yZme6mhRXrs +t4LEaWIwtDWw9KIa7v8eOXp9dYr49nWb5WCkGpbJ8L0LqpgkZvNW5zeVqOEp +22arwoyfxFebvRk3ytTw3TNty5QTP4lujtuGwxVqGMASnz/z30+iwlkiOaFG +DXnXZmrNVv0ggsW2ay83qmGvuqysyMh3QiD85KWmPjVca2mVQdMbI9g0CpWU +BtRwd2JjyKv1Y8Ts8Dz98hc1TDUjORZ+/kZ0Qaj0lq9qyL774fzri9+I9Pl7 +VYmTauggVfbiXNlXgnriI4srGxn5gjW5fA1HCRlhqYdVHGQ8JBa/blJylBCo +c7EQ4yZjyq4LX19PjhAzMlOZzWvJWGm30c8zaYQo71yze6swGQ2xZalrYpgw +3IuhqypkvDiW2WCRN0QcVX7Mm7KPjL8/q3JV2A4SF98cOknaT8YoNW8bza2D +RLTrxuaiA2QUvnqxj5tvkKjM8Y9otiUj583E6u3XBwghkuH65SNkTDtjQv/n +1k+8JY0KOZ8n43hShp29UR/R9zbJd/wCGdc/WSfDwtNH/D5u2nkhgIy+UyTF +He96CdkHxYkxgWQcVdbRsDDoJS6oBEvU3STjnEQ/p7BZD0FWlZUj3SPjD5mo +wX6fbgIbPgQWZZIx3N5skWVnN2HjFvaFyCYjz4TX5Uz2buJa3kSW7UMy83zh +nm4f10X0qVYq3ygm46UsrrgbFZ1EpJo9ZfwdGdssD5/mlftITJNjNYqmyLj3 +60jGH+0PRDcd9wjOkLH/DIOrf+MHosbjl6XPHBmlp592iv9sIyKLjM5q/CXj +HbuADRF32wiyNsuTcnYK7pJMqTdkbyNcjM7I14lQcGrqshGlupUw+imxWUmc +gjebvdR/XWglNt9uIEIlKXj+oN7vPeqtxMp7RUcDOQq6fBLHZw9biFS7noRm +NQpyqg22G6YxiI4TBus6dlIwL72y6G56M1HBOyexHSi4TjBwWelIM5H1OEst +QZeCUfjVabNSM+E1ubzXbi8FvZLjNOmPmwg+v+dBfeYUHCo2KF6qaST2hsnP +j7hQkL9zO89BtgaiNHvpy1w4BTnk+n+G9dQTGrt95o1vUdCJzqZ85Uk98eLL ++LqM2xSUaYju7rxSTxTJ9O8wvkNBNfupuw+V6oknSTW301Mp2H4x36Pap47I +iAjVMsinYOxQQAg3qZaQoayY3S2g4MJAtu6r5ddEWuP5Y9NFFDRQ2tzZ8PE1 +kcLlFpVaQkH7j7H0/rDXRFyg8ehkDQX3GWSozYzXEDd81scktVNQIV/dzja6 +muARDM+d+EjBTdyXygeMqomwQpZKvW4K2tjuoKyyVxMhv6a/jvcxv8d11XXF +v4q44taxU/crBU8yppb7Tr8izjkmj31foOD9DbraYmcqCAd9RdSRoaIgZPGM +tpYQyx08/HVyVBSKOH0/Mb6EyHD91WusSMW3JwPPth8sIb6Glfk5qFIx5bJB +15fvL4lzjebP/LdScSmuOVdz3UviptklmdK9VHTqdPRkuD0naANHxsGIircD +BnjCNZ4T7z0Nyt+ZUPHm9+DnZRzPCZGYjTZd+6m4z0ue70pWMZHVnnf7jwMV +eYKjWs4MFxHldh//bfOkYnH8Rmnei4WE0/fypsqzVDRUNN1WYVZIsFzMSNL3 +oaLI6p+wDsVCYm/qqW1W/lTMfgdbtVoLiA+fWU97X6Pii9ppu0JyAfHD5b/e +wkQqPlkWZdn67SkheeZ62X81VNQpcuPgj3pIRK4e336rloqX+TtP77J8SLDd +2Vv4rZ6Knje0s2ZEHxI/XnI+zGik4na+qO+TWXlEOUtI0sZ2Kg4CezZP9QPC +IS7Q788oFQP1VTkb+HOJFpLzzIExKpa6i1cP9uQQemXg+ewHFbkEHRU8H+QQ +5P6V426TzPzzq76N6eYQiyqXbXoWqKi1231u26VsIqnCf3vVWhrSt5PG7Tnv +E+vM7Asl+GkY+Cqm2r47iwgc1KT5CdDQreLCpprHWYQb54LSZmEa/vKNPPbK +MovYYX5eKEuGhrGRR3mO5GUSnUPnZkK30HCTqjvlztEMQnjN6cJ9tjTUXNQ7 +oal5l8jeffnilD0Nfzwd3DsxnkpsvRy5O9aRhkdcwqeOZqUSZlMFH7uP0JDD +hosctT6VCOucWzx6moZqUeHDD38nEwtZV/UuBtHQl3T909GeRCKsL3qtdAgN +j9bJ0w6lJBJCIlkd1WE0rLuUabPikEhsvlF/nDOChq4uTRVq/QmEuyfvregE +Gvr7ySWyjMcTPTqx7bmPaWhJ05m3U4oj3Hyz7xrl0xDTRffNT8QSf/JfuI4X +0HBHVICrYmkssVGhe37LSxqa36ZbyprFEiY80lKvamjoKTArFhh4h6jsyD3W +/pGGB+2LnKqXowlj/lLa+W4aXqdWOKW0RhPdBo1/xHppaJS17uQv5gVptvxn ++KFBGo64Hx35ZxBN0DI3P/3+g4YuAiWWyupRRGWP7vmICeb4mu3XyP2RhLGQ +JWyaouH4gUqL9TcjiePXfdt85mh4N5VnwWPkNjFbE5YiukDDU1d1vEfv3CaC +/yYeLf9Lw/T32h1b9W4TAtseUp2Wafhn2/Ci1e8IIv1M+dzqKg3jGnY1GN2P +IP4Hz0wYnA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22963416248739862`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "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.22963416248739862`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991336179267145*^9}, + CellLabel-> + "Out[278]=",ExpressionUUID->"63518a14-6f7d-6f44-bb1f-32ae8d6f657f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, + 3.99179533223897*^9}},ExpressionUUID->"028f7072-05bf-cf40-ac60-\ +9f298ef86e88"], + +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"x130\\\", \\\",\\\", \ +GraphicsBox[List[List[], List[List[TagBox[List[Skeleton[2]], \ +Function[Annotation[Slot[1], \\\"Charting`Private`Tag#1\\\"]]]]], \ +List[List[], List[]]], List[Rule[DisplayFunction, Identity], \ +Rule[DisplayFunction, Identity], Rule[DisplayFunction, Identity], \ +Rule[AspectRatio, NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], \ +Rule[Axes, List[True, True]], Rule[AxesLabel, List[None, None]], \ +Rule[AxesOrigin, List[0, 0]], RuleDelayed[DisplayFunction, Identity], \ +Rule[Frame, List[List[False, False], List[False, False]]], Rule[FrameLabel, \ +List[List[None, None], List[None, None]]], Rule[FrameTicks, \ +List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ +Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"AxisPadding\\\", Scaled[0.02`]], \ +Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ +AbsolutePointSize[6]], Rule[\\\"DefaultPlotStyle\\\", \ +List[Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]]]], \ +Rule[\\\"DomainPadding\\\", Scaled[0.02`]], Rule[\\\"PointSizeFunction\\\", \ +\\\"SmallPointSize\\\"], Rule[\\\"RangePadding\\\", Scaled[0.05`]], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"IncludeHighlighting\\\", \\\ +\"CurrentPoint\\\"], Rule[\\\"HighlightStyle\\\", Automatic], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"CoordinatesToolOptions\\\", \ +List[Rule[Skeleton[2]], Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[0, \ +52.`], List[0, 0.120683`]]], Rule[PlotRangeClipping, True], \ +Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ +List[Scaled[0.02`], Scaled[0.05`]]]], Rule[Ticks, List[Automatic, \ +Automatic]]]]}], \\\"]\\\"}]\\).\"", 2, 532, 171, 24485846962764810879, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{{3.9917148948888054`*^9, 3.991714918948065*^9}}, + CellLabel-> + "During evaluation of \ +In[532]:=",ExpressionUUID->"b564c677-bd9d-0e4f-82de-383dbfb5076a"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x130", ",", + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.011000000000000001`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, + 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.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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, 52.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]}], "]"}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}}, + CellLabel-> + "Out[532]=",ExpressionUUID->"5679b5e8-e1a4-b440-bec7-c61c864a5d89"] +}, 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[282]:=",ExpressionUUID->"e94e1ddb-0658-3b45-ad00-7392c646ee51"], + +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->"5789d8fb-150e-9a49-8a2f-15984a4083a0"], + +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->"10eb161e-8740-e441-b61b-b27d08d291d7"], + +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->"f2d20661-5fdd-a74c-8183-e6888fe98835"], + +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->"775942df-185d-1b4c-9fb6-75af36168c8b"], + +Cell[BoxData["9.332200719005147`"], "Output", + CellChangeTimes->{3.9913372766841774`*^9}, + CellLabel-> + "Out[282]=",ExpressionUUID->"03db46c0-47c3-f348-bb46-ea4092806a8c"] +}, 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.991846210534153*^9, + 3.991846213941681*^9}},ExpressionUUID->"23c7e6b2-69d5-1a4e-bd5f-\ +947421a54e26"], + +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->"fed85baf-99d5-3544-911c-9e3778d04d17"], + +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->"74041ff4-8835-8a41-a4dd-eea6e1a39915"], + +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->"9e09393a-eefe-ba45-99ee-c640606d2ee1"], + +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->"70437e48-0dcf-4e4f-a146-b3bdae4f632b"], + +Cell[BoxData["0.5406905105605413`"], "Output", + CellChangeTimes->{3.991337284091696*^9}, + CellLabel-> + "Out[283]=",ExpressionUUID->"86f3d22e-a660-0b41-baff-cdb033e864e0"] +}, 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.991846217504902*^9, + 3.991846220659443*^9}},ExpressionUUID->"38ca1203-b2e6-3044-aa85-\ +97017d76bb30"], + +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->"f4fc5672-9e6d-3748-ab75-56a8f1b8c47a"], + +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->"4aa61d0b-cbfc-004d-8be6-ff84c5742fd0"], + +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->"bcdde3fc-988d-814c-a83c-ce90996db47a"], + +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->"f371b728-3599-4340-a62e-fdf04344dabe"], + +Cell[BoxData["2.9943030245183917`"], "Output", + CellChangeTimes->{3.9913372907074146`*^9}, + CellLabel-> + "Out[284]=",ExpressionUUID->"077bbedf-862f-cc4e-b648-9dad11154cf8"] +}, 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.9918462258948135`*^9, + 3.9918462291469593`*^9}},ExpressionUUID->"087e4064-7024-cb41-8231-\ +fe78ad70afda"], + +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->"d528e032-b6a6-a543-9b8d-23228fe63677"], + +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->"e6016862-564d-8a4b-ba73-420e4cefde7e"], + +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->"52da723a-eab2-1040-978c-52ac672efc66"], + +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->"d1a6585d-5cf1-364e-9714-b29a76c14a20"], + +Cell[BoxData["16.72305770548981`"], "Output", + CellChangeTimes->{3.991337294569908*^9}, + CellLabel-> + "Out[285]=",ExpressionUUID->"5c7deb9d-a1b0-ad49-bd81-bf4a15d59971"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918462331551914`*^9, + 3.991846236994051*^9}},ExpressionUUID->"cd9a77e7-d597-394b-a710-\ +f971fc40d827"], + +Cell[BoxData["0.07640873836855284`"], "Output", + CellChangeTimes->{3.9913372946009064`*^9}, + CellLabel-> + "Out[286]=",ExpressionUUID->"5a5422b6-c991-1740-997c-c4f205d8ff82"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991846241790388*^9, 3.9918462437859745`*^9}, + 3.9919238532202225`*^9},ExpressionUUID->"13a90bf7-f7dc-7e48-845e-\ +80048a92ff15"], + +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->"ce764b10-5670-7a4e-86ae-3f77893f67b3"], + +Cell[BoxData["7.13574266196526`"], "Output", + CellChangeTimes->{3.991337294629921*^9}, + CellLabel-> + "Out[288]=",ExpressionUUID->"e25dfa18-ea25-df40-8f5d-0ff169fa5ae7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[290]:=",ExpressionUUID->"717d3ead-30a8-ec47-9afe-f9884217d594"], + +Cell[BoxData["1.4042291233212119`"], "Output", + CellChangeTimes->{3.9913372946629753`*^9}, + CellLabel-> + "Out[290]=",ExpressionUUID->"96aab3a1-95e4-7349-96b6-43128457940c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[293]:=",ExpressionUUID->"c43d0cec-6a64-9643-a5bb-27ab984c3bb2"], + +Cell[BoxData["10.020217662457247`"], "Output", + CellChangeTimes->{3.9913372947367725`*^9}, + CellLabel-> + "Out[293]=",ExpressionUUID->"98fcf8be-ba43-ae41-a6cd-62aef0ebb50c"] +}, 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->"e15da858-b31b-c344-a560-00b30705c2c2"], + +Cell[BoxData["0.06674599726273667`"], "Output", + CellChangeTimes->{3.9913372947513313`*^9}, + CellLabel-> + "Out[294]=",ExpressionUUID->"4ae926cc-90a9-5a4e-8bc7-efdead49917a"] +}, 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->"f53a321d-2180-024b-b925-7b08c74c1c33"], + +Cell[BoxData["3.430301770911147`"], "Output", + CellChangeTimes->{3.9913372948636913`*^9}, + CellLabel-> + "Out[295]=",ExpressionUUID->"f2f17f7a-79ff-794b-914c-ee087932d3fc"] +}, 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->"6fc2e120-104b-274c-a69b-ff643539124b"], + +Cell[BoxData["0.01266539131451536`"], "Output", + CellChangeTimes->{3.991337294877693*^9}, + CellLabel-> + "Out[296]=",ExpressionUUID->"a5f469a0-4ca3-e047-b336-e38d98804459"] +}, 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->"1ebbe4bd-69b2-ba4a-b880-612b325b749b"], + +Cell[BoxData["7.874729317258519`"], "Output", + CellChangeTimes->{3.991337294976324*^9}, + CellLabel-> + "Out[297]=",ExpressionUUID->"dfd045e6-0547-5948-8a30-f6f21ca1851b"] +}, 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->"1efe60b3-9182-2c4c-bd13-9e4d244d7e70"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913372950022793`*^9}, + CellLabel-> + "Out[298]=",ExpressionUUID->"235fc321-e687-b140-a2ed-ea3ad35e3bb8"] +}, 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->"66f987a0-c978-3745-b4d7-87ccf5fea6cf"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991337295013279*^9}, + CellLabel-> + "Out[299]=",ExpressionUUID->"1e144329-9e43-bf4f-9d10-823c44cb18a4"] +}, 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->"696f9a62-0454-0540-abef-a5c123c32f5f"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.991337295041279*^9}, + CellLabel-> + "Out[300]=",ExpressionUUID->"c1758059-ccb3-1040-a83d-304abcce69c4"] +}, 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.991846260820032*^9},ExpressionUUID->"efacefcd-90be-574d-92a2-\ +eec47ae06964"], + +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->"7a1e7ba8-a6bf-2f4a-bf31-4a2ed3016295"], + +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->"9c2e507b-ef90-ac45-8745-64f07a4cab70"], + +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->"79a512ec-e31d-8844-bf00-025e94c5ef0a"], + +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->"52a2b255-a51b-1c41-afb5-2c6906cc81b7"], + +Cell[BoxData["3.430301770911144`"], "Output", + CellChangeTimes->{3.991337298790371*^9}, + CellLabel-> + "Out[301]=",ExpressionUUID->"8f590d85-cd49-4b4a-b80f-ef4df8529f15"] +}, 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.991846268674473*^9},ExpressionUUID->"113e0d2a-28bc-cb46-97f5-\ +cf1d438fc6f4"], + +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->"9c88a8d0-79f6-c641-aaf7-46f5907e3958"], + +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->"5bdaba15-f4c0-7a4a-905b-a46ed4994f1b"], + +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->"921e00ea-3ed1-4d4f-a4c6-636b2e493926"], + +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->"94646a19-438b-8144-9028-59ac2200b652"], + +Cell[BoxData["7.87472931725852`"], "Output", + CellChangeTimes->{3.991337302457178*^9}, + CellLabel-> + "Out[302]=",ExpressionUUID->"85256f71-2c5b-a942-af45-97021273c9d1"] +}, 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.9918462728234997`*^9},ExpressionUUID->"1fd4421d-3fcd-2d4f-bd05-\ +28d15302273b"], + +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->"000d3cc5-e7e7-7f42-9c78-51dba6db4bf3"] +}, 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", ",", "15"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991846277689621*^9},ExpressionUUID->"0a8036ea-ac95-654b-96a9-\ +78af964912a2"], + +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->"fe707fb7-e6dc-184a-a72e-2be6d5c085cf"], + +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->"a7e21b46-c6c9-1c4d-875a-309332ed6699"], + +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->"50e13f26-4720-f342-8c8a-f93078defe94"], + +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->"68974fe2-070e-264b-8432-db9f06367365"], + +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->"ba3a3065-c61d-5943-9ee3-286e0d374549"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, + 3.99179533223897*^9}},ExpressionUUID->"936846c9-ebd9-0340-9945-\ +b210a517ddeb"], + +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"x130\\\", \\\",\\\", \ +GraphicsBox[List[List[], List[List[TagBox[List[Skeleton[2]], \ +Function[Annotation[Slot[1], \\\"Charting`Private`Tag#1\\\"]]]]], \ +List[List[], List[]]], List[Rule[DisplayFunction, Identity], \ +Rule[DisplayFunction, Identity], Rule[DisplayFunction, Identity], \ +Rule[AspectRatio, NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], \ +Rule[Axes, List[True, True]], Rule[AxesLabel, List[None, None]], \ +Rule[AxesOrigin, List[0, 0]], RuleDelayed[DisplayFunction, Identity], \ +Rule[Frame, List[List[False, False], List[False, False]]], Rule[FrameLabel, \ +List[List[None, None], List[None, None]]], Rule[FrameTicks, \ +List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ +Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"AxisPadding\\\", Scaled[0.02`]], \ +Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ +AbsolutePointSize[6]], Rule[\\\"DefaultPlotStyle\\\", \ +List[Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]]]], \ +Rule[\\\"DomainPadding\\\", Scaled[0.02`]], Rule[\\\"PointSizeFunction\\\", \ +\\\"SmallPointSize\\\"], Rule[\\\"RangePadding\\\", Scaled[0.05`]], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"IncludeHighlighting\\\", \\\ +\"CurrentPoint\\\"], Rule[\\\"HighlightStyle\\\", Automatic], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"CoordinatesToolOptions\\\", \ +List[Rule[Skeleton[2]], Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[0, \ +52.`], List[0, 0.120683`]]], Rule[PlotRangeClipping, True], \ +Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ +List[Scaled[0.02`], Scaled[0.05`]]]], Rule[Ticks, List[Automatic, \ +Automatic]]]]}], \\\"]\\\"}]\\).\"", 2, 532, 171, 24485846962764810879, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{{3.9917148948888054`*^9, 3.991714918948065*^9}}, + CellLabel-> + "During evaluation of \ +In[532]:=",ExpressionUUID->"2b65c8b7-2b0d-7840-9c22-f596c7681ee5"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x130", ",", + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.011000000000000001`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, + 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.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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, 52.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]}], "]"}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}}, + CellLabel-> + "Out[532]=",ExpressionUUID->"e2584817-ac95-084f-bbb3-4911b5281f79"] +}, 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[308]:=",ExpressionUUID->"2b7767f9-449f-c646-ae0c-43037957b685"], + +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->"b8ddd204-96bd-c44c-a461-fca25ce38083"], + +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->"4d331042-6820-214d-a3a7-faad1e0acd9a"], + +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->"2b7f80c1-4d86-8c41-ad69-d2816819dae8"], + +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->"39d74612-fbdc-ff40-a7d1-fc3dfa4019c6"], + +Cell[BoxData["9.33220071900515`"], "Output", + CellChangeTimes->{3.9913392124888554`*^9}, + CellLabel-> + "Out[308]=",ExpressionUUID->"5f3f7d29-276c-ce44-8205-70c169040bde"] +}, 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.99184628914184*^9, + 3.9918462932986107`*^9}},ExpressionUUID->"8304a1af-5a77-304f-9cc7-\ +82724e2b3df7"], + +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->"4fd30c53-5c63-3547-b8da-55deec45ffe9"], + +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->"94d8d63e-6d20-a549-87b6-9bb940b1a184"], + +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->"94cf357c-30eb-ce43-bfa6-645e621ccaab"], + +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->"6c01af9f-f680-4741-8cf0-c5de4c3f5776"], + +Cell[BoxData["0.41157157699018565`"], "Output", + CellChangeTimes->{3.9913392196090164`*^9}, + CellLabel-> + "Out[309]=",ExpressionUUID->"c62861b9-4f65-8643-97a2-f7acbf90accd"] +}, 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.9918462963096733`*^9, + 3.991846299126808*^9}},ExpressionUUID->"3ed977a3-b24a-0644-a438-\ +d2ebbf0c1dea"], + +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->"2222d8d9-5ab2-9842-a5d2-c83e0de9e07d"], + +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->"f866d339-6477-0c45-9660-98eca56f0e20"], + +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->"ac7b6c07-69b3-8847-9707-6d5a111d812d"], + +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->"11ccb074-812f-ce43-be93-ac274425113d"], + +Cell[BoxData["3.215201591157595`"], "Output", + CellChangeTimes->{3.9913392268711624`*^9}, + CellLabel-> + "Out[310]=",ExpressionUUID->"e407b037-0c43-434a-ae6e-d9d9cac64d0c"] +}, 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.991846303469427*^9, + 3.991846306205721*^9}},ExpressionUUID->"0a258b12-85fc-2a47-9b1a-\ +8264aa20d65c"], + +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->"51fd61ee-1a5d-9048-806e-e5a8ccbc9ee8"], + +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->"b60547f8-8180-8e42-a50a-2f95a9bbb448"], + +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->"e6102528-f151-984e-9d65-5e941faf5653"], + +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->"5973ee85-238a-1f47-b298-fa05fe19e0b7"], + +Cell[BoxData["16.94395627212904`"], "Output", + CellChangeTimes->{3.9913392304284153`*^9}, + CellLabel-> + "Out[311]=",ExpressionUUID->"1b8a1f16-b0cf-1c4c-bae9-5db73555a85f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991846309734665*^9, + 3.991846313322897*^9}},ExpressionUUID->"1cb0d12f-90a8-b449-9dd4-\ +8435ee411a7c"], + +Cell[BoxData["0.05576142449710889`"], "Output", + CellChangeTimes->{3.9913392304624157`*^9}, + CellLabel-> + "Out[312]=",ExpressionUUID->"afcb3269-c8ab-6a44-9d7c-8a434189e156"] +}, 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->"1d8c20c2-003a-2a4c-a42e-33895f032914" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[554, 20, 149, 4, 28, "Input",ExpressionUUID->"e6c462cd-8982-3c4a-8614-a4032c2a753f"], +Cell[706, 26, 154, 3, 28, "Input",ExpressionUUID->"abfd70d0-05dc-ae40-8117-a301872389cf"], +Cell[863, 31, 149, 4, 28, "Input",ExpressionUUID->"ab6f3c19-7b16-eb44-924b-0479fa42666f"], +Cell[1015, 37, 152, 3, 28, "Input",ExpressionUUID->"6e63ff1c-fb16-304a-8e59-6a9d82a9fa7a"], +Cell[CellGroupData[{ +Cell[1192, 44, 1301, 43, 113, "Input",ExpressionUUID->"764f2b72-583f-404a-86dd-302e46704fa0"], +Cell[2496, 89, 178, 3, 32, "Output",ExpressionUUID->"a1ad1275-791c-2c4f-89d0-0191b45c7ed9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2711, 97, 913, 30, 56, "Input",ExpressionUUID->"296c29c6-b9f9-1d4a-99c7-5d23057d1dfa"], +Cell[3627, 129, 175, 3, 32, "Output",ExpressionUUID->"3e2faead-b69d-5c48-9979-35e754d12d58"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3839, 137, 961, 32, 56, "Input",ExpressionUUID->"da02f8be-1800-4945-83f1-7acaa76423f4"], +Cell[4803, 171, 177, 3, 32, "Output",ExpressionUUID->"4f5ae42d-c740-c045-be91-9f9e31eab3b6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5017, 179, 558, 19, 52, "Input",ExpressionUUID->"c6346807-3d42-e948-8c5a-115ea1f6a2c2"], +Cell[5578, 200, 173, 3, 32, "Output",ExpressionUUID->"2bcde3f6-d18f-c142-963c-217812e9dc72"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5788, 208, 623, 21, 52, "Input",ExpressionUUID->"474c5dd1-c344-a04c-8714-ada3650bf998"], +Cell[6414, 231, 170, 3, 32, "Output",ExpressionUUID->"482feae7-b6d8-8143-b572-b9146e6d2e0c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6621, 239, 170, 5, 56, "Input",ExpressionUUID->"2305be88-628a-524a-b468-85b3cc42efc7"], +Cell[6794, 246, 173, 3, 32, "Output",ExpressionUUID->"1c1deb9e-a6ca-0143-8db8-21cdffc73907"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7004, 254, 170, 5, 55, "Input",ExpressionUUID->"426f7e1e-7abd-a446-8679-e422e283f98f"], +Cell[7177, 261, 170, 3, 32, "Output",ExpressionUUID->"ae59e030-d7e1-1a4a-8ffb-9ecfb821ce05"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7384, 269, 181, 5, 43, "Input",ExpressionUUID->"933badd0-5ce1-e645-bb03-d046b1312945"], +Cell[7568, 276, 171, 3, 32, "Output",ExpressionUUID->"c953f025-a342-2549-9fa6-f90bea449e4f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7776, 284, 181, 5, 43, "Input",ExpressionUUID->"2d8a17a7-6a4c-d94e-b0e2-4da7c60ebbeb"], +Cell[7960, 291, 173, 3, 32, "Output",ExpressionUUID->"6e8c23f5-f692-db4e-8373-e6c78b3e7fda"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8170, 299, 6055, 185, 498, "Input",ExpressionUUID->"042e7197-09fd-dc46-b3fd-dc1740a81970"], +Cell[14228, 486, 175, 3, 32, "Output",ExpressionUUID->"d074617c-8fe0-114b-b207-70158bd6cc83"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14440, 494, 368, 9, 42, "Input",ExpressionUUID->"bccf6e25-da00-4449-8f0f-f2b61c58f67f"], +Cell[14811, 505, 170, 3, 32, "Output",ExpressionUUID->"cdd7cedd-6455-ac4a-8fce-733ce51f863b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15018, 513, 6122, 187, 500, "Input",ExpressionUUID->"9f9260b3-ca67-3f4a-a0c4-5bf2cb98e110"], +Cell[21143, 702, 175, 3, 32, "Output",ExpressionUUID->"aa72f32c-329c-9c4a-b6f4-833dbea197c6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21355, 710, 368, 9, 42, "Input",ExpressionUUID->"52f82243-9920-3742-90e6-48395671d171"], +Cell[21726, 721, 172, 3, 32, "Output",ExpressionUUID->"e26071fd-e2c1-5f40-9a42-81481b4dd96b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21935, 729, 2663, 88, 187, "Input",ExpressionUUID->"a147c908-551b-8647-9cf0-48614f0cb274"], +Cell[24601, 819, 173, 3, 32, "Output",ExpressionUUID->"88673969-cab9-0b40-80f0-7c0bcdf60439"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24811, 827, 2603, 85, 165, "Input",ExpressionUUID->"4c078cff-433d-8245-900f-0a3b49ecb9e6"], +Cell[27417, 914, 172, 3, 32, "Output",ExpressionUUID->"bfe4c50a-d3a5-244b-8f56-30e5a15018a1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27626, 922, 3712, 118, 348, "Input",ExpressionUUID->"f07c74eb-272f-1743-a996-1dc503a54262"], +Cell[31341, 1042, 174, 3, 32, "Output",ExpressionUUID->"857149a1-8aab-954b-86f3-2a3228e46ae1"] +}, Open ]], +Cell[31530, 1048, 138, 3, 42, "Input",ExpressionUUID->"c5ebf9ff-e333-7b4d-b8d5-46482917dc06"], +Cell[CellGroupData[{ +Cell[31693, 1055, 2052, 59, 228, "Input",ExpressionUUID->"e7569d02-bed5-3743-8058-837bf8cfd65c"], +Cell[33748, 1116, 524, 11, 60, "Message",ExpressionUUID->"3a1412e4-c6f1-e745-8a72-cd3619617eb0"], +Cell[34275, 1129, 526, 11, 60, "Message",ExpressionUUID->"413e4690-bb6f-134e-9c1c-5e19bdbe37ff"], +Cell[34804, 1142, 530, 11, 60, "Message",ExpressionUUID->"557c737f-44e5-b047-9b96-8c222633e876"], +Cell[35337, 1155, 455, 10, 26, "Message",ExpressionUUID->"0989ac4b-acdb-9949-b4d2-70d1b9f65dbd"], +Cell[35795, 1167, 172, 3, 32, "Output",ExpressionUUID->"0cfc830e-08fa-4f4b-aef5-0a6c70777af2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[36004, 1175, 2054, 59, 228, "Input",ExpressionUUID->"71739d4a-f3fc-9d4f-b803-99b4407cdc6f"], +Cell[38061, 1236, 524, 11, 60, "Message",ExpressionUUID->"726ccd2e-9850-144f-ac6f-a8db23e40300"], +Cell[38588, 1249, 526, 11, 60, "Message",ExpressionUUID->"d5c6080a-ef9c-5541-93e6-fcef34fc5c6b"], +Cell[39117, 1262, 528, 11, 60, "Message",ExpressionUUID->"a5735bd1-5fc2-3c47-a19f-be9d8c805502"], +Cell[39648, 1275, 456, 10, 26, "Message",ExpressionUUID->"1dd8474a-97c2-3246-8ead-1536370ac767"], +Cell[40107, 1287, 170, 3, 32, "Output",ExpressionUUID->"96c807db-2e4e-1f4a-822d-d2a69cd27982"] +}, Open ]], +Cell[CellGroupData[{ +Cell[40314, 1295, 1936, 53, 115, "Input",ExpressionUUID->"762274ee-d7cb-9644-9b5c-516685cd7481"], +Cell[42253, 1350, 19981, 375, 230, "Output",ExpressionUUID->"925ecd2b-bb46-b241-b0ae-91df536967b1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[62271, 1730, 2118, 60, 211, "Input",ExpressionUUID->"c4af1473-2d54-b047-b3e2-18c19d38cfdd"], +Cell[64392, 1792, 490, 11, 60, "Message",ExpressionUUID->"9c0b88be-018b-9b49-8992-9f69ff2c8721"], +Cell[64885, 1805, 493, 11, 60, "Message",ExpressionUUID->"0dc889c7-e5c7-5d48-8218-94f8d4104b1d"], +Cell[65381, 1818, 508, 11, 27, "Message",ExpressionUUID->"e3ce988d-52a1-6c46-93b1-24547de7012f"], +Cell[65892, 1831, 456, 10, 26, "Message",ExpressionUUID->"1ec64821-f1c6-944d-83dd-2975f7431573"], +Cell[66351, 1843, 61603, 1057, 233, "Output",ExpressionUUID->"b1f00f3e-b26c-bf4d-a0fd-9968a9b2c4e7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[127991, 2905, 327, 7, 42, "Input",ExpressionUUID->"7383cf4d-77c8-1d41-ab20-d4ea9a390940"], +Cell[128321, 2914, 9707, 222, 240, "Output",ExpressionUUID->"d1a933a5-9ae5-3c4e-953d-5f1d02c204a8"] +}, Open ]], +Cell[138043, 3139, 257, 6, 42, "Input",ExpressionUUID->"e431227d-0e31-a446-ad0d-76902a9a3bd8"], +Cell[CellGroupData[{ +Cell[138325, 3149, 215, 7, 48, "Input",ExpressionUUID->"4e5b3330-e10a-4342-8f3d-b24f9b16b9de"], +Cell[138543, 3158, 169, 3, 32, "Output",ExpressionUUID->"1560efbb-94f0-5144-9b19-9d176fc4dd8d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[138749, 3166, 1814, 53, 183, "Input",ExpressionUUID->"bb5f3a72-8528-7a48-a67a-a23038fc5b71"], +Cell[140566, 3221, 502, 11, 60, "Message",ExpressionUUID->"aec1bc78-c42d-654b-9d44-6cd3626266ac"], +Cell[141071, 3234, 506, 11, 60, "Message",ExpressionUUID->"f1a8642b-581b-a442-a1d9-50687b910475"], +Cell[141580, 3247, 509, 11, 60, "Message",ExpressionUUID->"5a841663-4049-3b42-9c28-d33b4ccb324b"], +Cell[142092, 3260, 456, 10, 26, "Message",ExpressionUUID->"002a296e-87c0-e748-91ba-edf75724ad49"], +Cell[142551, 3272, 28560, 514, 233, "Output",ExpressionUUID->"c4fa73a0-9f42-fb44-a044-6efcf5132509"] +}, Open ]], +Cell[CellGroupData[{ +Cell[171148, 3791, 1616, 48, 70, "Input",ExpressionUUID->"0da19810-21b5-1440-b6da-efec04765d71"], +Cell[172767, 3841, 576, 12, 70, "Message",ExpressionUUID->"7bcbb4da-a8de-1b45-8b24-dc27272fdaa1"], +Cell[173346, 3855, 582, 12, 70, "Message",ExpressionUUID->"15898f02-540e-cf4f-a0a1-f3ae96bbddb6"], +Cell[173931, 3869, 584, 12, 70, "Message",ExpressionUUID->"99a44b10-ed73-684f-a35a-9a86c980f3d9"], +Cell[174518, 3883, 458, 10, 70, "Message",ExpressionUUID->"5e0acd55-8564-1749-9f1a-5e9cd04ef83a"], +Cell[174979, 3895, 170, 3, 70, "Output",ExpressionUUID->"a97106d2-ef63-9147-8535-daa57b06eb20"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175186, 3903, 2249, 64, 70, "Input",ExpressionUUID->"d3b2932a-2d3f-fa41-a705-f816ef30ba1b"], +Cell[177438, 3969, 522, 11, 70, "Message",ExpressionUUID->"4287df48-5412-ba4f-8ac5-009fa9b4a304"], +Cell[177963, 3982, 526, 11, 70, "Message",ExpressionUUID->"59c4f004-977d-f648-9c23-b4080e1c8591"], +Cell[178492, 3995, 528, 11, 70, "Message",ExpressionUUID->"60f490e4-4b4a-6845-a3d9-028c70afb6db"], +Cell[179023, 4008, 458, 10, 70, "Message",ExpressionUUID->"9ab542c7-4ae7-1e4b-b6a8-ee19008898f7"], +Cell[179484, 4020, 175, 3, 70, "Output",ExpressionUUID->"0d1e7940-37bf-bf4f-bfa4-a5ba2d7cb1dd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[179696, 4028, 2221, 64, 70, "Input",ExpressionUUID->"3a5379d3-3adc-3844-bbe2-4530809b7b8c"], +Cell[181920, 4094, 522, 11, 70, "Message",ExpressionUUID->"79bb4b1f-3177-c842-aa67-d93f3ad3365e"], +Cell[182445, 4107, 524, 11, 70, "Message",ExpressionUUID->"517afb64-9d7b-6748-abe1-5fa348ccbc29"], +Cell[182972, 4120, 528, 11, 70, "Message",ExpressionUUID->"d19413a7-2cf4-0549-a8b8-37f98f04b017"], +Cell[183503, 4133, 458, 10, 70, "Message",ExpressionUUID->"e2ebea89-90c0-5d4f-8c43-eea596c7d6fb"], +Cell[183964, 4145, 170, 3, 70, "Output",ExpressionUUID->"7c4d0729-640a-ed41-ad1f-5a5a75f62d87"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184171, 4153, 2219, 64, 70, "Input",ExpressionUUID->"208e04c0-4af7-a344-9e86-ceb616bf22d8"], +Cell[186393, 4219, 524, 11, 70, "Message",ExpressionUUID->"c1d8bb29-16c6-3f4b-8a9b-ba7e90da9672"], +Cell[186920, 4232, 526, 11, 70, "Message",ExpressionUUID->"1756ecee-a1fe-bb40-bfd8-48d4df8ef76d"], +Cell[187449, 4245, 530, 11, 70, "Message",ExpressionUUID->"d0cb69f1-ced4-d843-98c1-600cac395a38"], +Cell[187982, 4258, 458, 10, 70, "Message",ExpressionUUID->"ab747287-9372-314d-a7c4-14fc011f850b"], +Cell[188443, 4270, 171, 3, 70, "Output",ExpressionUUID->"e6bb3b57-900e-ed41-845d-3c49874fc850"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188651, 4278, 213, 6, 70, "Input",ExpressionUUID->"53a3c067-888b-bc49-a5e6-f228162e6070"], +Cell[188867, 4286, 175, 3, 70, "Output",ExpressionUUID->"88a5aaa2-9216-404d-a8aa-70ecb36db857"] +}, Open ]], +Cell[189057, 4292, 247, 5, 70, "Input",ExpressionUUID->"0c2ac2c8-096e-e64a-aaeb-bb84e7548fdc"], +Cell[CellGroupData[{ +Cell[189329, 4301, 558, 19, 70, "Input",ExpressionUUID->"5c8cab9c-f39b-364c-ae6b-c415e4dbcf46"], +Cell[189890, 4322, 172, 3, 70, "Output",ExpressionUUID->"2dde55a6-2323-454c-b60b-61a76b5d44f2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[190099, 4330, 170, 5, 70, "Input",ExpressionUUID->"106a4571-94f1-5343-b4a9-78f21d5e84b3"], +Cell[190272, 4337, 172, 3, 70, "Output",ExpressionUUID->"344bf722-e54f-374f-b65c-1dfe2f693b7e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[190481, 4345, 181, 5, 70, "Input",ExpressionUUID->"b7c1808d-73a9-d645-bf95-223de85093e2"], +Cell[190665, 4352, 172, 3, 70, "Output",ExpressionUUID->"37f05469-042d-5c49-acdf-eb29d6a15290"] +}, Open ]], +Cell[CellGroupData[{ +Cell[190874, 4360, 6055, 185, 70, "Input",ExpressionUUID->"e9c41729-285f-7d42-bb43-ee09dea88444"], +Cell[196932, 4547, 174, 3, 70, "Output",ExpressionUUID->"a9f66528-7902-3848-84e1-d06cd8efb93c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197143, 4555, 368, 9, 70, "Input",ExpressionUUID->"efa9c5ac-4baa-3e4e-9760-1e46cf5c01c0"], +Cell[197514, 4566, 173, 3, 70, "Output",ExpressionUUID->"c5f93787-bd57-b143-93de-29b700483396"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197724, 4574, 6122, 187, 70, "Input",ExpressionUUID->"7dcb74da-1357-7e4e-a03d-852f8e740128"], +Cell[203849, 4763, 175, 3, 70, "Output",ExpressionUUID->"7b0024b2-1e68-904c-b216-49c58abdde0a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204061, 4771, 368, 9, 70, "Input",ExpressionUUID->"4c537c9f-ce6a-8f4c-9e68-01e12e3017b7"], +Cell[204432, 4782, 170, 3, 70, "Output",ExpressionUUID->"725e176a-1300-6f41-9ba3-e070b7b00753"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204639, 4790, 2663, 88, 70, "Input",ExpressionUUID->"1e3d1dc2-d9ac-9045-a648-58006d1d6cf6"], +Cell[207305, 4880, 173, 3, 70, "Output",ExpressionUUID->"56e25769-5fae-9845-ac42-be0bc3e98c92"] +}, Open ]], +Cell[CellGroupData[{ +Cell[207515, 4888, 2603, 85, 70, "Input",ExpressionUUID->"2371743b-ee83-9146-bf98-330cb0fb7e0a"], +Cell[210121, 4975, 172, 3, 70, "Output",ExpressionUUID->"0574b2f8-313d-764f-97a0-b69ae3bd044d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210330, 4983, 3712, 118, 70, "Input",ExpressionUUID->"8b6de8d6-9524-3347-a11b-48bba48b07d0"], +Cell[214045, 5103, 174, 3, 70, "Output",ExpressionUUID->"95ff35fe-9928-0447-aa14-c396ca299126"] +}, Open ]], +Cell[CellGroupData[{ +Cell[214256, 5111, 2052, 59, 70, "Input",ExpressionUUID->"a41abb59-b808-8547-b1d9-a574acad5c53"], +Cell[216311, 5172, 574, 12, 70, "Message",ExpressionUUID->"87b7fc82-cf0a-ec4d-83b9-1f172c2a1277"], +Cell[216888, 5186, 580, 12, 70, "Message",ExpressionUUID->"e0980964-44fb-0a4c-8205-9ce871cb8c93"], +Cell[217471, 5200, 582, 12, 70, "Message",ExpressionUUID->"769d7438-8b0f-d04b-94dc-ec99bab472ff"], +Cell[218056, 5214, 456, 10, 70, "Message",ExpressionUUID->"c243bb4e-27de-574b-aeb4-b19a9e2e805b"], +Cell[218515, 5226, 171, 3, 70, "Output",ExpressionUUID->"678e1d2b-842e-e545-b4df-7b6cad732095"] +}, Open ]], +Cell[CellGroupData[{ +Cell[218723, 5234, 2054, 59, 70, "Input",ExpressionUUID->"779c8db8-6bae-9046-915d-05cf0a3cee42"], +Cell[220780, 5295, 574, 12, 70, "Message",ExpressionUUID->"513e0bd5-dbba-a448-aa49-b2f50bf64a60"], +Cell[221357, 5309, 578, 12, 70, "Message",ExpressionUUID->"af5e90bc-196b-e043-94e8-4bb9c49c6b5c"], +Cell[221938, 5323, 582, 12, 70, "Message",ExpressionUUID->"8f26edac-d5c1-324e-91b6-0e386d5a872d"], +Cell[222523, 5337, 458, 10, 70, "Message",ExpressionUUID->"6833928c-ef21-0d4b-aeed-ecf995491543"], +Cell[222984, 5349, 169, 3, 70, "Output",ExpressionUUID->"74d46ae4-1766-0c42-9255-78e61714806e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[223190, 5357, 2028, 55, 70, "Input",ExpressionUUID->"2fa4bc1d-3549-0e49-9fa0-9e5dc16aa40f"], +Cell[225221, 5414, 20326, 381, 70, "Output",ExpressionUUID->"1101a597-b433-8944-aac8-4b6263f307b3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[245584, 5800, 2120, 60, 70, "Input",ExpressionUUID->"6e23e6bb-e46c-1c43-a88f-db092cf7ac8d"], +Cell[247707, 5862, 502, 11, 70, "Message",ExpressionUUID->"698a0ec2-6362-4a4c-9512-68ac03e6ab94"], +Cell[248212, 5875, 504, 11, 70, "Message",ExpressionUUID->"c7464263-6d3c-ad4b-944d-708e3b53f8de"], +Cell[248719, 5888, 507, 11, 70, "Message",ExpressionUUID->"3b2b96d7-8ae3-e140-a8cb-bb0d54486d84"], +Cell[249229, 5901, 458, 10, 70, "Message",ExpressionUUID->"52f611be-ecf7-624a-b8a8-553d5cafe96b"], +Cell[249690, 5913, 41632, 730, 70, "Output",ExpressionUUID->"63518a14-6f7d-6f44-bb1f-32ae8d6f657f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[291359, 6648, 257, 6, 70, "Input",ExpressionUUID->"028f7072-05bf-cf40-ac60-9f298ef86e88"], +Cell[291619, 6656, 2580, 42, 70, "Message",ExpressionUUID->"b564c677-bd9d-0e4f-82de-383dbfb5076a"], +Cell[294202, 6700, 10201, 227, 70, "Output",ExpressionUUID->"5679b5e8-e1a4-b440-bec7-c61c864a5d89"] +}, Open ]], +Cell[CellGroupData[{ +Cell[304440, 6932, 1616, 48, 70, "Input",ExpressionUUID->"e94e1ddb-0658-3b45-ad00-7392c646ee51"], +Cell[306059, 6982, 592, 12, 70, "Message",ExpressionUUID->"5789d8fb-150e-9a49-8a2f-15984a4083a0"], +Cell[306654, 6996, 597, 12, 70, "Message",ExpressionUUID->"10eb161e-8740-e441-b61b-b27d08d291d7"], +Cell[307254, 7010, 599, 12, 70, "Message",ExpressionUUID->"f2d20661-5fdd-a74c-8183-e6888fe98835"], +Cell[307856, 7024, 458, 10, 70, "Message",ExpressionUUID->"775942df-185d-1b4c-9fb6-75af36168c8b"], +Cell[308317, 7036, 172, 3, 70, "Output",ExpressionUUID->"03db46c0-47c3-f348-bb46-ea4092806a8c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[308526, 7044, 2247, 64, 70, "Input",ExpressionUUID->"23c7e6b2-69d5-1a4e-bd5f-947421a54e26"], +Cell[310776, 7110, 576, 12, 70, "Message",ExpressionUUID->"fed85baf-99d5-3544-911c-9e3778d04d17"], +Cell[311355, 7124, 580, 12, 70, "Message",ExpressionUUID->"74041ff4-8835-8a41-a4dd-eea6e1a39915"], +Cell[311938, 7138, 582, 12, 70, "Message",ExpressionUUID->"9e09393a-eefe-ba45-99ee-c640606d2ee1"], +Cell[312523, 7152, 456, 10, 70, "Message",ExpressionUUID->"70437e48-0dcf-4e4f-a146-b3bdae4f632b"], +Cell[312982, 7164, 171, 3, 70, "Output",ExpressionUUID->"86f3d22e-a660-0b41-baff-cdb033e864e0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[313190, 7172, 2219, 64, 70, "Input",ExpressionUUID->"38ca1203-b2e6-3044-aa85-97017d76bb30"], +Cell[315412, 7238, 574, 12, 70, "Message",ExpressionUUID->"f4fc5672-9e6d-3748-ab75-56a8f1b8c47a"], +Cell[315989, 7252, 578, 12, 70, "Message",ExpressionUUID->"4aa61d0b-cbfc-004d-8be6-ff84c5742fd0"], +Cell[316570, 7266, 580, 12, 70, "Message",ExpressionUUID->"bcdde3fc-988d-814c-a83c-ce90996db47a"], +Cell[317153, 7280, 458, 10, 70, "Message",ExpressionUUID->"f371b728-3599-4340-a62e-fdf04344dabe"], +Cell[317614, 7292, 173, 3, 70, "Output",ExpressionUUID->"077bbedf-862f-cc4e-b648-9dad11154cf8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[317824, 7300, 2223, 64, 70, "Input",ExpressionUUID->"087e4064-7024-cb41-8231-fe78ad70afda"], +Cell[320050, 7366, 574, 12, 70, "Message",ExpressionUUID->"d528e032-b6a6-a543-9b8d-23228fe63677"], +Cell[320627, 7380, 578, 12, 70, "Message",ExpressionUUID->"e6016862-564d-8a4b-ba73-420e4cefde7e"], +Cell[321208, 7394, 582, 12, 70, "Message",ExpressionUUID->"52da723a-eab2-1040-978c-52ac672efc66"], +Cell[321793, 7408, 455, 10, 70, "Message",ExpressionUUID->"d1a6585d-5cf1-364e-9714-b29a76c14a20"], +Cell[322251, 7420, 170, 3, 70, "Output",ExpressionUUID->"5c7deb9d-a1b0-ad49-bd81-bf4a15d59971"] +}, Open ]], +Cell[CellGroupData[{ +Cell[322458, 7428, 213, 6, 70, "Input",ExpressionUUID->"cd9a77e7-d597-394b-a710-f971fc40d827"], +Cell[322674, 7436, 174, 3, 70, "Output",ExpressionUUID->"5a5422b6-c991-1740-997c-c4f205d8ff82"] +}, Open ]], +Cell[322863, 7442, 247, 5, 70, "Input",ExpressionUUID->"13a90bf7-f7dc-7e48-845e-80048a92ff15"], +Cell[CellGroupData[{ +Cell[323135, 7451, 558, 19, 70, "Input",ExpressionUUID->"ce764b10-5670-7a4e-86ae-3f77893f67b3"], +Cell[323696, 7472, 169, 3, 70, "Output",ExpressionUUID->"e25dfa18-ea25-df40-8f5d-0ff169fa5ae7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[323902, 7480, 170, 5, 70, "Input",ExpressionUUID->"717d3ead-30a8-ec47-9afe-f9884217d594"], +Cell[324075, 7487, 173, 3, 70, "Output",ExpressionUUID->"96aab3a1-95e4-7349-96b6-43128457940c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[324285, 7495, 181, 5, 70, "Input",ExpressionUUID->"c43d0cec-6a64-9643-a5bb-27ab984c3bb2"], +Cell[324469, 7502, 173, 3, 70, "Output",ExpressionUUID->"98fcf8be-ba43-ae41-a6cd-62aef0ebb50c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[324679, 7510, 6055, 185, 70, "Input",ExpressionUUID->"e15da858-b31b-c344-a560-00b30705c2c2"], +Cell[330737, 7697, 174, 3, 70, "Output",ExpressionUUID->"4ae926cc-90a9-5a4e-8bc7-efdead49917a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[330948, 7705, 368, 9, 70, "Input",ExpressionUUID->"f53a321d-2180-024b-b925-7b08c74c1c33"], +Cell[331319, 7716, 172, 3, 70, "Output",ExpressionUUID->"f2f17f7a-79ff-794b-914c-ee087932d3fc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[331528, 7724, 6122, 187, 70, "Input",ExpressionUUID->"6fc2e120-104b-274c-a69b-ff643539124b"], +Cell[337653, 7913, 172, 3, 70, "Output",ExpressionUUID->"a5f469a0-4ca3-e047-b336-e38d98804459"] +}, Open ]], +Cell[CellGroupData[{ +Cell[337862, 7921, 368, 9, 70, "Input",ExpressionUUID->"1ebbe4bd-69b2-ba4a-b880-612b325b749b"], +Cell[338233, 7932, 170, 3, 70, "Output",ExpressionUUID->"dfd045e6-0547-5948-8a30-f6f21ca1851b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[338440, 7940, 2663, 88, 70, "Input",ExpressionUUID->"1efe60b3-9182-2c4c-bd13-9e4d244d7e70"], +Cell[341106, 8030, 173, 3, 70, "Output",ExpressionUUID->"235fc321-e687-b140-a2ed-ea3ad35e3bb8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[341316, 8038, 2603, 85, 70, "Input",ExpressionUUID->"66f987a0-c978-3745-b4d7-87ccf5fea6cf"], +Cell[343922, 8125, 172, 3, 70, "Output",ExpressionUUID->"1e144329-9e43-bf4f-9d10-823c44cb18a4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[344131, 8133, 3712, 118, 70, "Input",ExpressionUUID->"696f9a62-0454-0540-abef-a5c123c32f5f"], +Cell[347846, 8253, 172, 3, 70, "Output",ExpressionUUID->"c1758059-ccb3-1040-a83d-304abcce69c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[348055, 8261, 2052, 59, 70, "Input",ExpressionUUID->"efacefcd-90be-574d-92a2-eec47ae06964"], +Cell[350110, 8322, 573, 12, 70, "Message",ExpressionUUID->"7a1e7ba8-a6bf-2f4a-bf31-4a2ed3016295"], +Cell[350686, 8336, 573, 12, 70, "Message",ExpressionUUID->"9c2e507b-ef90-ac45-8745-64f07a4cab70"], +Cell[351262, 8350, 579, 12, 70, "Message",ExpressionUUID->"79a512ec-e31d-8844-bf00-025e94c5ef0a"], +Cell[351844, 8364, 458, 10, 70, "Message",ExpressionUUID->"52a2b255-a51b-1c41-afb5-2c6906cc81b7"], +Cell[352305, 8376, 170, 3, 70, "Output",ExpressionUUID->"8f590d85-cd49-4b4a-b80f-ef4df8529f15"] +}, Open ]], +Cell[CellGroupData[{ +Cell[352512, 8384, 2052, 59, 70, "Input",ExpressionUUID->"113e0d2a-28bc-cb46-97f5-cf1d438fc6f4"], +Cell[354567, 8445, 573, 12, 70, "Message",ExpressionUUID->"9c88a8d0-79f6-c641-aaf7-46f5907e3958"], +Cell[355143, 8459, 575, 12, 70, "Message",ExpressionUUID->"5bdaba15-f4c0-7a4a-905b-a46ed4994f1b"], +Cell[355721, 8473, 579, 12, 70, "Message",ExpressionUUID->"921e00ea-3ed1-4d4f-a4c6-636b2e493926"], +Cell[356303, 8487, 458, 10, 70, "Message",ExpressionUUID->"94646a19-438b-8144-9028-59ac2200b652"], +Cell[356764, 8499, 169, 3, 70, "Output",ExpressionUUID->"85256f71-2c5b-a942-af45-97021273c9d1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[356970, 8507, 2030, 55, 70, "Input",ExpressionUUID->"1fd4421d-3fcd-2d4f-bd05-28d15302273b"], +Cell[359003, 8564, 20296, 381, 70, "Output",ExpressionUUID->"000d3cc5-e7e7-7f42-9c78-51dba6db4bf3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[379336, 8950, 2092, 60, 70, "Input",ExpressionUUID->"0a8036ea-ac95-654b-96a9-78af964912a2"], +Cell[381431, 9012, 500, 11, 70, "Message",ExpressionUUID->"fe707fb7-e6dc-184a-a72e-2be6d5c085cf"], +Cell[381934, 9025, 505, 11, 70, "Message",ExpressionUUID->"a7e21b46-c6c9-1c4d-875a-309332ed6699"], +Cell[382442, 9038, 509, 11, 70, "Message",ExpressionUUID->"50e13f26-4720-f342-8c8a-f93078defe94"], +Cell[382954, 9051, 458, 10, 70, "Message",ExpressionUUID->"68974fe2-070e-264b-8432-db9f06367365"], +Cell[383415, 9063, 39609, 697, 70, "Output",ExpressionUUID->"ba3a3065-c61d-5943-9ee3-286e0d374549"] +}, Open ]], +Cell[CellGroupData[{ +Cell[423061, 9765, 257, 6, 70, "Input",ExpressionUUID->"936846c9-ebd9-0340-9945-b210a517ddeb"], +Cell[423321, 9773, 2580, 42, 70, "Message",ExpressionUUID->"2b65c8b7-2b0d-7840-9c22-f596c7681ee5"], +Cell[425904, 9817, 10201, 227, 70, "Output",ExpressionUUID->"e2584817-ac95-084f-bbb3-4911b5281f79"] +}, Open ]], +Cell[CellGroupData[{ +Cell[436142, 10049, 1616, 48, 70, "Input",ExpressionUUID->"2b7767f9-449f-c646-ae0c-43037957b685"], +Cell[437761, 10099, 589, 12, 70, "Message",ExpressionUUID->"b8ddd204-96bd-c44c-a461-fca25ce38083"], +Cell[438353, 10113, 595, 12, 70, "Message",ExpressionUUID->"4d331042-6820-214d-a3a7-faad1e0acd9a"], +Cell[438951, 10127, 596, 12, 70, "Message",ExpressionUUID->"2b7f80c1-4d86-8c41-ad69-d2816819dae8"], +Cell[439550, 10141, 458, 10, 70, "Message",ExpressionUUID->"39d74612-fbdc-ff40-a7d1-fc3dfa4019c6"], +Cell[440011, 10153, 171, 3, 70, "Output",ExpressionUUID->"5f3f7d29-276c-ce44-8205-70c169040bde"] +}, Open ]], +Cell[CellGroupData[{ +Cell[440219, 10161, 2248, 64, 70, "Input",ExpressionUUID->"8304a1af-5a77-304f-9cc7-82724e2b3df7"], +Cell[442470, 10227, 573, 12, 70, "Message",ExpressionUUID->"4fd30c53-5c63-3547-b8da-55deec45ffe9"], +Cell[443046, 10241, 573, 12, 70, "Message",ExpressionUUID->"94d8d63e-6d20-a549-87b6-9bb940b1a184"], +Cell[443622, 10255, 579, 12, 70, "Message",ExpressionUUID->"94cf357c-30eb-ce43-bfa6-645e621ccaab"], +Cell[444204, 10269, 458, 10, 70, "Message",ExpressionUUID->"6c01af9f-f680-4741-8cf0-c5de4c3f5776"], +Cell[444665, 10281, 174, 3, 70, "Output",ExpressionUUID->"c62861b9-4f65-8643-97a2-f7acbf90accd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[444876, 10289, 2221, 64, 70, "Input",ExpressionUUID->"3ed977a3-b24a-0644-a438-d2ebbf0c1dea"], +Cell[447100, 10355, 573, 12, 70, "Message",ExpressionUUID->"2222d8d9-5ab2-9842-a5d2-c83e0de9e07d"], +Cell[447676, 10369, 575, 12, 70, "Message",ExpressionUUID->"f866d339-6477-0c45-9660-98eca56f0e20"], +Cell[448254, 10383, 577, 12, 70, "Message",ExpressionUUID->"ac7b6c07-69b3-8847-9707-6d5a111d812d"], +Cell[448834, 10397, 456, 10, 70, "Message",ExpressionUUID->"11ccb074-812f-ce43-be93-ac274425113d"], +Cell[449293, 10409, 172, 3, 70, "Output",ExpressionUUID->"e407b037-0c43-434a-ae6e-d9d9cac64d0c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[449502, 10417, 2219, 64, 70, "Input",ExpressionUUID->"0a258b12-85fc-2a47-9b1a-8264aa20d65c"], +Cell[451724, 10483, 571, 12, 70, "Message",ExpressionUUID->"51fd61ee-1a5d-9048-806e-e5a8ccbc9ee8"], +Cell[452298, 10497, 573, 12, 70, "Message",ExpressionUUID->"b60547f8-8180-8e42-a50a-2f95a9bbb448"], +Cell[452874, 10511, 579, 12, 70, "Message",ExpressionUUID->"e6102528-f151-984e-9d65-5e941faf5653"], +Cell[453456, 10525, 458, 10, 70, "Message",ExpressionUUID->"5973ee85-238a-1f47-b298-fa05fe19e0b7"], +Cell[453917, 10537, 172, 3, 70, "Output",ExpressionUUID->"1b8a1f16-b0cf-1c4c-bae9-5db73555a85f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[454126, 10545, 211, 6, 70, "Input",ExpressionUUID->"1cb0d12f-90a8-b449-9dd4-8435ee411a7c"], +Cell[454340, 10553, 174, 3, 70, "Output",ExpressionUUID->"afcb3269-c8ab-6a44-9d7c-8a434189e156"] +}, Open ]] +} +] +*) + diff --git a/templates/light_case/l___gid_Qw2.nb b/templates/light_case/l___gid_Qw2.nb new file mode 100755 index 0000000..426a05d --- /dev/null +++ b/templates/light_case/l___gid_Qw2.nb @@ -0,0 +1,9002 @@ +(* 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[ 293237, 8992] +NotebookOptionsPosition[ 268807, 8617] +NotebookOutlinePosition[ 269261, 8635] +CellTagsIndexPosition[ 269218, 8632] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ +Cell[BoxData[ + RowBox[{"f1", "="}]], "Input", + CellChangeTimes->{ + 3.991847456288412*^9},ExpressionUUID->"02c50ee4-f89d-e84b-babb-\ +c4951c25ae7a"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991847457119114*^9, + 3.991847457122698*^9}},ExpressionUUID->"a3744ee1-3657-ed40-afd1-\ +ad7c272f2bae"], + +Cell[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.9918474584496803`*^9},ExpressionUUID->"fea443da-bb80-5942-940a-\ +8bd97c50a7b3"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918474591039295`*^9, + 3.9918474591064377`*^9}},ExpressionUUID->"4a8ede4b-c349-9d4b-b8be-\ +a33659ac7670"], + +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->"c66d12ee-7a7e-014a-a59f-f5290f75e383"], + +Cell[BoxData["2.3793916761039806`*^-53"], "Output",ExpressionUUID->"d2a98016-4c83-3943-8fb1-133b89183d61"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + 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"]}]], "*", "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, {3.9915584375659084`*^9, + 3.9915584522049637`*^9}},ExpressionUUID->"f4d1663f-2f7d-a640-9003-\ +22515624ffcb"], + +Cell[BoxData["5.0207251137958644`*^-55"], "Output",ExpressionUUID->"25b3586e-dddb-8148-8247-2a53a0816ad5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + 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"]}]], "*", + 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}, + 3.9915584476498585`*^9},ExpressionUUID->"85637b45-1c33-1f4e-90c3-\ +07deba1b9b3a"], + +Cell[BoxData["1.8713726427856714`*^-54"], "Output",ExpressionUUID->"c7915de2-f678-2240-8907-4f119bfb9ca2"] +}, 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->"8f97c456-7671-\ +cb44-95b8-323a276088fe"], + +Cell[BoxData["25.178011816139865`"], "Output",ExpressionUUID->"c28337c4-580d-004c-bc3c-26abc607c115"] +}, 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->"e2507f75-9610-1346-854c-33db9330e900"], + +Cell[BoxData["37.88040277230648`"], "Output",ExpressionUUID->"eca6de54-61a8-eb4b-9203-3f4b34d3dfbd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input",ExpressionUUID->"148e44ba-fb40-0e42-\ +959d-44858270229f"], + +Cell[BoxData["0.7475613664924765`"], "Output",ExpressionUUID->"0fa81d47-3764-044a-bf93-ee5d1211e37a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input",ExpressionUUID->"0c021142-f067-b94a-\ +bf73-69c3aa281aca"], + +Cell[BoxData["3.219272026986442`"], "Output",ExpressionUUID->"f8ee43a7-a683-0f4c-8e84-b8ddc45a142b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input",ExpressionUUID->"827e3da4-\ +16db-854c-89ad-c94762d57459"], + +Cell[BoxData["121.94732101586592`"], "Output",ExpressionUUID->"3013ddc9-2d77-3941-8182-c74c4e917958"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"9149adf7-\ +16ac-794c-81f7-04a88d48bdc9"], + +Cell[BoxData["18.822108918837237`"], "Output",ExpressionUUID->"69944b55-6116-8240-914e-d57996010b53"] +}, 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->"14dc1278-8ac3-2246-\ +90ef-ba23d2bdffaa"], + +Cell[BoxData["0.04118782656518991`"], "Output",ExpressionUUID->"10e3cc8a-ad3e-4e41-ba26-c1acab07fa26"] +}, 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->"6c632312-\ +3007-0b42-93b3-6c1b961afeb6"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"606843ec-0d7b-f541-9ba3-5b67b435945d"], + +Cell[BoxData["4.366771860185336`"], "Output",ExpressionUUID->"859b213d-5319-f746-82ea-75944d21baab"] +}, 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->"60d1b3b3-12f2-2644-\ +8ed8-788b5437fdfb"], + +Cell[BoxData["0.010567083454288358`"], "Output",ExpressionUUID->"b3e0a85b-a4aa-ef42-9511-fc38e8dcde9a"] +}, 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->"8bbc8f7a-\ +f751-794c-9337-a97f1bdae578"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"390798a4-00bb-054f-8ee2-e80440f44497"], + +Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"ae91cf0f-72ea-5348-859e-dc6121354f77"] +}, 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->"9338c89c-67a3-6e41-be9a-\ +1cf34020b040"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"d0d3835d-fdd0-8c42-8864-83afb328c4cf"] +}, 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->"ae8d22a0-13a2-9d41-b648-\ +0faf6caf2253"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"751398e6-9533-bb47-8958-7a1def21254b"] +}, 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->"7d419d4a-7a13-\ +e94d-beb1-cf3b1cd962e0"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"1aeb1149-722c-dc42-812b-49cc813a09fb"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"5ded2365-6100-\ +7b43-ad8b-c1b09dc62d32"], + +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.991847477953953*^9},ExpressionUUID->"4fe3e3d4-6e7a-b544-8531-\ +81ac5c3a022e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2ce305f1-c638-b640-9e67-d7f6ae2bda61"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"b0af1054-fb47-e740-95af-24928a790ba1"], + +Cell[BoxData["4.366771860185332`"], "Output",ExpressionUUID->"66158712-c3f0-e64f-90ca-4bc93914d109"] +}, 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.991847481589756*^9},ExpressionUUID->"2e2efe37-106e-8a4d-98e1-\ +c6d073c59256"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"ddbb5dc1-4246-b141-8007-17d96bea04a9"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"1cbe63d8-1cf3-164a-9de9-78e410d01cd1"], + +Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"4bc5c73f-64dd-7843-be37-b49a7d1b54f0"] +}, 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.991847486086582*^9},ExpressionUUID->"5ef8c446-ea46-eb49-90ca-\ +5a9d2703a626"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"ce9fdda1-e376-7b48-b042-8c3b4f405fcb"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"66a78cc9-892b-204f-b904-4d54d4d3ebd0"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"77cccd91-6a05-1146-b314-0aa4f406152c"], + +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->"72ad5b3e-6607-7741-ad4a-54927ade8695"], + +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., 206.88000000000005}, \ +{127.62000000000003, 0.}} -> {-19.394, 0.892147, 0.709611, \ +0.0012616}},ExpressionUUID->"f8427134-7951-8548-ae28-485a485148a2"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"5446bdee-36aa-604e-a81f-\ +f7b281aa780e"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991847500514847*^9, {3.991847890840927*^9, + 3.991847891020767*^9}},ExpressionUUID->"b7386bff-07bb-694b-b11c-\ +7d3ff3a35bae"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"1b40a6b1-b8e0-af43-829a-2ca3d7ae070e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2360947f-22ea-fb4f-90b8-fd6f79665669"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"281ea8ed-b5ba-8045-83d3-97b36671a021"], + +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->"a4dfac90-0844-364a-8cdf-0596249bd283"], + +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., 206.88000000000005}, \ +{127.62000000000003, 0.}} -> {-3.23234, -0.00806918, 0.118269, \ +0.000558628}},ExpressionUUID->"42a070d0-1a40-f841-bc5a-496bce3f6168"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"c9fc5a7b-2d38-ba43-857f-\ +9aa96e6b3d16"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991714709387436*^9, 3.991714738003292*^9}, { + 3.991714834117689*^9, 3.991714842328617*^9}, 3.991793311407936*^9, + 3.9917953263701286`*^9},ExpressionUUID->"08cc1ff9-b63b-d741-9dab-\ +b5604b3208c2"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.011000000000000001`], AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, + 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.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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->{{94.07049642219837, + 205.01757834806736`}, {-15.23616859338814, 2.101331406611859}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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, 52.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9917148467316074`*^9}, + CellLabel-> + "Out[529]=",ExpressionUUID->"d769d980-5c09-fe4c-baf0-fe9ddf32668b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, + 3.99179533223897*^9}},ExpressionUUID->"c833855b-86a8-7349-9ccf-\ +32b52052d827"], + +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"x130\\\", \\\",\\\", \ +GraphicsBox[List[List[], List[List[TagBox[List[Skeleton[2]], \ +Function[Annotation[Slot[1], \\\"Charting`Private`Tag#1\\\"]]]]], \ +List[List[], List[]]], List[Rule[DisplayFunction, Identity], \ +Rule[DisplayFunction, Identity], Rule[DisplayFunction, Identity], \ +Rule[AspectRatio, NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], \ +Rule[Axes, List[True, True]], Rule[AxesLabel, List[None, None]], \ +Rule[AxesOrigin, List[0, 0]], RuleDelayed[DisplayFunction, Identity], \ +Rule[Frame, List[List[False, False], List[False, False]]], Rule[FrameLabel, \ +List[List[None, None], List[None, None]]], Rule[FrameTicks, \ +List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ +Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"AxisPadding\\\", Scaled[0.02`]], \ +Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ +AbsolutePointSize[6]], Rule[\\\"DefaultPlotStyle\\\", \ +List[Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]]]], \ +Rule[\\\"DomainPadding\\\", Scaled[0.02`]], Rule[\\\"PointSizeFunction\\\", \ +\\\"SmallPointSize\\\"], Rule[\\\"RangePadding\\\", Scaled[0.05`]], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"IncludeHighlighting\\\", \\\ +\"CurrentPoint\\\"], Rule[\\\"HighlightStyle\\\", Automatic], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"CoordinatesToolOptions\\\", \ +List[Rule[Skeleton[2]], Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[0, \ +52.`], List[0, 0.120683`]]], Rule[PlotRangeClipping, True], \ +Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ +List[Scaled[0.02`], Scaled[0.05`]]]], Rule[Ticks, List[Automatic, \ +Automatic]]]]}], \\\"]\\\"}]\\).\"", 2, 532, 171, 24485846962764810879, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{{3.9917148948888054`*^9, 3.991714918948065*^9}}, + CellLabel-> + "During evaluation of \ +In[532]:=",ExpressionUUID->"876d039d-4206-f648-bcad-3d1cc1c9375e"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x130", ",", + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.011000000000000001`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, + 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.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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->{{29.72195338368416, + 78.6184367454052}, {-18.964692186399834`, 2.2071828136001663`}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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, 52.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]}], "]"}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}}, + CellLabel-> + "Out[532]=",ExpressionUUID->"d3e123dc-41cb-7141-a991-a4f7fbe6f12f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918480149621506`*^9},ExpressionUUID->"c6de3c8b-ad61-c04a-b1df-\ +f10741068cd1"], + +Cell[BoxData["9.786582751762749`"], "Output",ExpressionUUID->"38637efc-803d-8640-9e6e-276437831f52"] +}, 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.9918480132941303`*^9},ExpressionUUID->"e95bae90-91f9-c74f-b890-\ +1d51c0908f7e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"c023352e-b521-e84e-9cb3-97c71ad6a25e"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"7309d20d-7fd9-4f4d-a7f3-0872cdf1105f"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"43ff04d1-726c-9a4f-a3ef-930184afcb3e"], + +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->"3fd3a11a-bede-e144-8b42-539dbe9249ba"], + +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., 206.88000000000005}, \ +{127.62000000000003, 0.}} -> {-3.23234, -0.00443741, 0.118269, \ +0.000307202}},ExpressionUUID->"960bbf59-2015-8349-bffe-e4d767d8aeeb"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"a75c82b0-dce2-dd4f-b864-\ +2a6b5c402da4"] +}, 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->"b292bf25-9f2c-1b44-bd26-31940b3b367d"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"bd49935b-c0f9-f44f-af7a-e4ad6a7bc2ad"], + +Cell[BoxData["15.784298544249623`"], "Output",ExpressionUUID->"43a947d2-2d74-d447-89ff-92c212e98dc4"] +}, 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.9918475382015915`*^9, + 3.9918475423636837`*^9}},ExpressionUUID->"101ef0da-c6f5-1c49-9804-\ +85fb5ed316b5"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"131678ec-17c0-f049-b9b0-aed329dc5583"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"a6fc1549-2fa3-f649-b6cc-c7168f9393cf"], + +Cell[BoxData["0.009432406283458074`"], "Output",ExpressionUUID->"0f29d6b0-abda-0849-9008-4443dea42d94"] +}, 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.991847547003359*^9, + 3.9918475498243904`*^9}},ExpressionUUID->"087f1adc-ca17-4a4e-8be3-\ +617724431d54"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"ffb3115b-8086-8941-bf0d-81ed4818f26f"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"6eb50ae6-c8bd-6941-a71f-82927d1c1d5c"], + +Cell[BoxData["5.210321944589433`"], "Output",ExpressionUUID->"e9e8685d-f821-c64d-930c-bdbceafb1970"] +}, 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.9918475561652145`*^9, + 3.991847558757557*^9}},ExpressionUUID->"562762dd-8337-c248-84ed-\ +48f09efe77cb"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"88848fa9-89c0-7441-a937-117af52a31e7"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"3e81b6c4-2244-bf42-b8b5-0fa000d4a037"], + +Cell[BoxData["20.308521034293705`"], "Output",ExpressionUUID->"75996429-631f-a540-8db3-d3eecf498491"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991847567835865*^9, + 3.9918475715285187`*^9}},ExpressionUUID->"b22d48b0-99f1-fc43-8d66-\ +dfdcb64caaf4"], + +Cell[BoxData["0.0009169614351270098`"], "Output",ExpressionUUID->"8631572e-009c-e547-9adf-d000b75a3b80"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991847581296728*^9, 3.991847583342928*^9}, + 3.9919236579457912`*^9},ExpressionUUID->"324c5332-372a-9346-847e-\ +b48a2f85529f"], + +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->"3aa52613-e091-\ +4440-b97b-cbff40fea673"], + +Cell[BoxData["5.744985073726742`"], "Output",ExpressionUUID->"0bfccaf4-b419-7b47-a5b9-ad617225ded2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input",ExpressionUUID->"00409e7b-892c-b145-\ +91f2-fd5d9616a547"], + +Cell[BoxData["1.564995573098341`"], "Output",ExpressionUUID->"0910edf9-27aa-f943-bd90-76d5bfb56389"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"eb9f1869-\ +8c47-4c47-ad8f-589aa7e556b3"], + +Cell[BoxData["8.990876207898397`"], "Output",ExpressionUUID->"50a3d579-8928-2343-996d-237ad0eb297d"] +}, 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->"a68db5dc-89e4-f247-\ +a519-53dcbe6905b1"], + +Cell[BoxData["0.06921475857237179`"], "Output",ExpressionUUID->"6b11f8d3-6b54-614d-a4c0-669be8c0ee7f"] +}, 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->"d3d0889a-\ +1b29-9a4d-af3d-093ef0359f4b"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"465a75ef-6b20-9848-9eff-c4e675672ad8"], + +Cell[BoxData["3.36857007702114`"], "Output",ExpressionUUID->"8931c974-5816-9e48-9ac0-0532e1ef18b1"] +}, 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->"9fe1a567-82b8-a345-\ +b4b0-80b2c100f9f3"], + +Cell[BoxData["0.01179213875658184`"], "Output",ExpressionUUID->"13c9a29c-6a6d-ff49-88af-96394780a9e2"] +}, 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->"3372ffe6-\ +5d5a-b247-8795-4c6a022053d0"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"5f5967c2-a14c-de46-b55b-52a0b7afbab3"], + +Cell[BoxData["8.161099076568318`"], "Output",ExpressionUUID->"bd025469-aef5-2448-a097-d2409dcee75d"] +}, 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->"367b34da-973d-2d45-8020-\ +5f24b7ad9501"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"98cac926-ef59-1342-b091-1b565c5978b3"] +}, 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->"112859ae-f114-4041-84e8-\ +1ba64a91ebc1"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"36a7aeca-f2a3-e949-b0ca-f804c0163692"] +}, 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->"695320bc-fa3e-\ +3547-be92-70a745b298b2"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"0abac473-9a99-bd43-b50e-e41bacfd95b6"] +}, 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.9918476180917797`*^9},ExpressionUUID->"b1722e07-c26a-4d47-97af-\ +4f4eb5664e3b"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"7ab7ec2a-fa78-4845-8b94-ac80bbb482ff"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"1e16a028-2ecd-3143-835f-f92cd0016663"], + +Cell[BoxData["3.3685700770211437`"], "Output",ExpressionUUID->"eadd70e7-26a1-4b46-8240-f3dce9859a07"] +}, 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.9918476209740715`*^9},ExpressionUUID->"e785cfe1-8cd5-4a44-8f18-\ +a3bdb03abf99"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"62adfe6c-817a-8644-a989-225720cd7059"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"cbaa115f-bf0d-1e4f-b5c7-1d35bae46521"], + +Cell[BoxData["8.161099076568323`"], "Output",ExpressionUUID->"e9a05a92-f41b-934a-a923-0dffa18fc100"] +}, 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.9918476243275547`*^9},ExpressionUUID->"39feef99-fcf4-8440-bed1-\ +25beef5a0630"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"56c86859-71bc-bf4d-8ea6-a152a4a828d3"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"47fbb3e0-458c-4d48-bc65-cfbd454ebd8b"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"a25aaf8c-9a35-1543-b0b4-c881fe78844a"], + +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->"d9cbee06-5ef4-e14d-b8da-4a8591142866"], + +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., 206.88000000000005}, \ +{127.62000000000003, 0.}} -> {-14.8518, 0.65382, 0.693802, \ +0.00448812}},ExpressionUUID->"2f0c6d62-d79c-fe40-ae18-5a4696a4ccbb"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"1b36cfb9-6a09-4c41-9a4d-\ +068e88bb9e2c"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918476306797314`*^9, {3.9918479463234234`*^9, + 3.9918479465064144`*^9}},ExpressionUUID->"e605439d-19dd-2645-8993-\ +c76100de5ed2"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"c359dea9-9ece-cf49-b7df-ef6b53440b08"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"df87c0d2-a345-c048-8631-aeba4b69c5c2"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"991abcb1-81ce-9b40-bdbb-a15d386b1b78"], + +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->"9aaae4b6-fac0-394d-b0b6-90b588c1351a"], + +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., 206.88000000000005}, \ +{127.62000000000003, 0.}} -> {-1.61617, -0.0100934, 0.0591342, \ +0.000698765}},ExpressionUUID->"9a870480-d3d4-8843-9f49-e5fc868c350b"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"954422c5-4061-764e-bf48-\ +99c016a64c85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, + 3.99179533223897*^9}},ExpressionUUID->"3e01852b-fa23-2642-abab-\ +f1f489e06059"], + +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"x130\\\", \\\",\\\", \ +GraphicsBox[List[List[], List[List[TagBox[List[Skeleton[2]], \ +Function[Annotation[Slot[1], \\\"Charting`Private`Tag#1\\\"]]]]], \ +List[List[], List[]]], List[Rule[DisplayFunction, Identity], \ +Rule[DisplayFunction, Identity], Rule[DisplayFunction, Identity], \ +Rule[AspectRatio, NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], \ +Rule[Axes, List[True, True]], Rule[AxesLabel, List[None, None]], \ +Rule[AxesOrigin, List[0, 0]], RuleDelayed[DisplayFunction, Identity], \ +Rule[Frame, List[List[False, False], List[False, False]]], Rule[FrameLabel, \ +List[List[None, None], List[None, None]]], Rule[FrameTicks, \ +List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ +Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"AxisPadding\\\", Scaled[0.02`]], \ +Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ +AbsolutePointSize[6]], Rule[\\\"DefaultPlotStyle\\\", \ +List[Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]]]], \ +Rule[\\\"DomainPadding\\\", Scaled[0.02`]], Rule[\\\"PointSizeFunction\\\", \ +\\\"SmallPointSize\\\"], Rule[\\\"RangePadding\\\", Scaled[0.05`]], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"IncludeHighlighting\\\", \\\ +\"CurrentPoint\\\"], Rule[\\\"HighlightStyle\\\", Automatic], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"CoordinatesToolOptions\\\", \ +List[Rule[Skeleton[2]], Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[0, \ +52.`], List[0, 0.120683`]]], Rule[PlotRangeClipping, True], \ +Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ +List[Scaled[0.02`], Scaled[0.05`]]]], Rule[Ticks, List[Automatic, \ +Automatic]]]]}], \\\"]\\\"}]\\).\"", 2, 532, 171, 24485846962764810879, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{{3.9917148948888054`*^9, 3.991714918948065*^9}}, + CellLabel-> + "During evaluation of \ +In[532]:=",ExpressionUUID->"745689c4-10fa-1143-9aff-0dfee3349f79"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x130", ",", + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.011000000000000001`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, + 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.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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, 52.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]}], "]"}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}}, + CellLabel-> + "Out[532]=",ExpressionUUID->"ec18a0ba-e266-a343-9325-0845f1736c56"] +}, Closed]], + +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->"cec9d659-40a4-9344-876a-cec895b68137"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"c8a425da-4684-ff4d-913f-cc5851265bc3"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"62616100-cef9-c34a-90ec-7024e73a21ef"] +}, 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.991847653697838*^9, + 3.991847658442892*^9}},ExpressionUUID->"dcfb8a1f-77bf-c54a-8dd4-\ +08e72b48e971"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"3bf07443-b608-4243-b971-51f82147ad62"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"e747471f-596a-2242-a829-0d8e6535227a"], + +Cell[BoxData["0.7273353591556563`"], "Output",ExpressionUUID->"89855e7d-6748-6649-99fc-db6c764ac3a4"] +}, 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.991847661764683*^9, + 3.991847664668476*^9}},ExpressionUUID->"b256ae65-c9c8-994b-815e-\ +de484a821375"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"ce81120b-8f1e-dd40-9437-7d92ce72052d"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"8dc8593d-acd4-c74f-aea6-e734c994e283"], + +Cell[BoxData["3.1005213487548544`"], "Output",ExpressionUUID->"6dc23113-bc95-494e-93a5-cd6a253efc0a"] +}, 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.9918476677400265`*^9, + 3.9918476736757298`*^9}},ExpressionUUID->"8fd338d4-a1be-6841-b853-\ +e94a67cb9612"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"6d8f0be9-093a-3b41-85dc-708af7e242e1"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2079ef2d-a37e-f54c-92b8-a37a53f349ad"], + +Cell[BoxData["18.198720438459198`"], "Output",ExpressionUUID->"554a4ded-bde6-2a46-af18-bac29cb48d9d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918476765269012`*^9, + 3.9918476808687553`*^9}},ExpressionUUID->"9231c462-6016-ac42-bd11-\ +cb0c7e92fda2"], + +Cell[BoxData["0.09682709699983048`"], "Output",ExpressionUUID->"682bcc08-531d-5f43-acd9-aafef153314e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918476877717896`*^9, 3.9918476906207848`*^9}, + 3.9919236729399815`*^9},ExpressionUUID->"7b4f4188-e9b4-a249-91fe-\ +f977b92c20b2"], + +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->"e639aabf-9918-\ +b148-b52f-1037c590e22d"], + +Cell[BoxData["7.1357426619652635`"], "Output",ExpressionUUID->"e8a065a4-9b1c-1e46-9347-2538ec1d0d92"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input",ExpressionUUID->"9f21bdcd-6887-bf47-\ +af20-cb6fe2ae22d1"], + +Cell[BoxData["1.4042291233210182`"], "Output",ExpressionUUID->"50446e68-3d8c-8d45-9164-a3f05e953b7b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"807c9644-\ +b813-4545-bd97-a39923ad2c85"], + +Cell[BoxData["10.02021766245587`"], "Output",ExpressionUUID->"c53e1eb9-111c-1c4f-83a4-760a21ed4b09"] +}, 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->"c029bbe7-1e0d-6c47-\ +9817-6aab8cca4349"], + +Cell[BoxData["0.06461147402889976`"], "Output",ExpressionUUID->"23daa51b-d813-3040-bd45-0d347c7122da"] +}, 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->"02414061-\ +9268-3a40-809c-791f7b1bc727"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"c6830ba9-9f74-4c4c-9b97-dded42b0d0cf"], + +Cell[BoxData["3.486503585502317`"], "Output",ExpressionUUID->"7cdd740f-da8e-1847-901d-4e38334c4602"] +}, 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->"0cf6ee00-990f-aa48-\ +80f8-a2822701e626"], + +Cell[BoxData["0.01165072070943232`"], "Output",ExpressionUUID->"bb8b113c-f7cc-4f4e-b883-2112fdc5e77e"] +}, 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->"0e7a310e-\ +8267-084b-8d71-ceb0b816dd18"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"23da22f8-8350-eb48-95d4-6a0bc4f515a3"], + +Cell[BoxData["8.21047995098231`"], "Output",ExpressionUUID->"0dd898e7-1224-8c4b-9b4a-44bf5a45b446"] +}, 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->"16870642-9452-a14f-a1b7-\ +576792706e56"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"09f95964-259e-d442-8b4d-9152a060f55e"] +}, 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->"207b673b-eb18-904e-8dba-\ +9c1c1dd6034c"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"cd37bbf1-e49a-6647-92bf-66da4b35a93e"] +}, 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->"fcc33f59-ac5d-\ +dc44-a6a0-01cb1397795c"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"a8990ed0-d980-fe49-b54f-af15cdaca5a8"] +}, 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.9918477038948536`*^9},ExpressionUUID->"c2bffed8-3648-ee47-bc6e-\ +be191758bd92"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"9353aa27-5dd8-6249-9acf-27d71a8dfe31"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"7a16941e-3686-3c49-a9bf-a8f0d031eb03"], + +Cell[BoxData["3.486503585502321`"], "Output",ExpressionUUID->"abe399c8-88d7-1f45-b974-4e13120badf7"] +}, 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.9918477072468624`*^9},ExpressionUUID->"162c1d78-b731-9743-923d-\ +e14e238c88c0"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"3884f153-af14-6b4b-904c-75f8499cadb1"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"decb9285-274f-5646-8622-e985a1ccc581"], + +Cell[BoxData["8.210479950982325`"], "Output",ExpressionUUID->"26b8d6b5-120d-b94f-8e05-d4bbf530818b"] +}, 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.991847711887806*^9},ExpressionUUID->"e062485f-eb72-5b44-8f24-\ +f29169102337"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"b65eca92-46bf-1d45-b9d4-7717f8601dca"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"43097017-8d6b-ed44-885b-d7dcc2918c11"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2c60786a-2040-fe49-981b-8347dab8e699"], + +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->"b9098ed1-26b0-e14f-83e6-f3cf126236c4"], + +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., 206.88000000000005}, \ +{127.62000000000003, 0.}} -> {-14.8518, 0.65382, 0.693802, \ +0.00448812}},ExpressionUUID->"d219667d-634a-2440-aa6f-10d194554a17"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"33e2e3bc-779e-de42-82b8-\ +f8c295872460"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918477165865707`*^9, {3.991847931067129*^9, + 3.9918479312310715`*^9}},ExpressionUUID->"d8f392d3-6c9e-3f4d-9982-\ +5d019384c724"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"77187be0-9434-894a-bf72-82e8f3e36aa6"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"dae11eea-bf2c-ea41-8cfc-910dacad7d02"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"3a91b588-c1b9-514a-8b35-49bc5a04ab45"], + +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->"90d10efd-2d21-7342-aab1-c6fb4c5c2e48"], + +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., 206.88000000000005}, \ +{127.62000000000003, 0.}} -> {-1.61617, -0.0100934, 0.0591342, \ +0.000698765}},ExpressionUUID->"b4689af7-5bf9-8d45-aba9-b2818f315461"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"ee661a5c-41cb-6a4f-9f2e-\ +fbc4cfed7c63"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, + 3.99179533223897*^9}},ExpressionUUID->"b7cf0d21-5483-ac4b-a7be-\ +b13fedb5cf43"], + +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"x130\\\", \\\",\\\", \ +GraphicsBox[List[List[], List[List[TagBox[List[Skeleton[2]], \ +Function[Annotation[Slot[1], \\\"Charting`Private`Tag#1\\\"]]]]], \ +List[List[], List[]]], List[Rule[DisplayFunction, Identity], \ +Rule[DisplayFunction, Identity], Rule[DisplayFunction, Identity], \ +Rule[AspectRatio, NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], \ +Rule[Axes, List[True, True]], Rule[AxesLabel, List[None, None]], \ +Rule[AxesOrigin, List[0, 0]], RuleDelayed[DisplayFunction, Identity], \ +Rule[Frame, List[List[False, False], List[False, False]]], Rule[FrameLabel, \ +List[List[None, None], List[None, None]]], Rule[FrameTicks, \ +List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ +Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"AxisPadding\\\", Scaled[0.02`]], \ +Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ +AbsolutePointSize[6]], Rule[\\\"DefaultPlotStyle\\\", \ +List[Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]]]], \ +Rule[\\\"DomainPadding\\\", Scaled[0.02`]], Rule[\\\"PointSizeFunction\\\", \ +\\\"SmallPointSize\\\"], Rule[\\\"RangePadding\\\", Scaled[0.05`]], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"IncludeHighlighting\\\", \\\ +\"CurrentPoint\\\"], Rule[\\\"HighlightStyle\\\", Automatic], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"CoordinatesToolOptions\\\", \ +List[Rule[Skeleton[2]], Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[0, \ +52.`], List[0, 0.120683`]]], Rule[PlotRangeClipping, True], \ +Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ +List[Scaled[0.02`], Scaled[0.05`]]]], Rule[Ticks, List[Automatic, \ +Automatic]]]]}], \\\"]\\\"}]\\).\"", 2, 532, 171, 24485846962764810879, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{{3.9917148948888054`*^9, 3.991714918948065*^9}}, + CellLabel-> + "During evaluation of \ +In[532]:=",ExpressionUUID->"aeed560b-6305-9b4b-9f36-1a15d67dc4b8"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x130", ",", + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.011000000000000001`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, + 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.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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, 52.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]}], "]"}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}}, + CellLabel-> + "Out[532]=",ExpressionUUID->"a8995578-961d-6b40-b936-9720a58b42d1"] +}, Closed]], + +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->"f102c80c-cb19-a64b-98f1-a3bbc351ff15"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"c6924563-b651-4446-bbba-bad311e0a4eb"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"41fd5ce1-50b0-1948-bce9-3bc136a88f8f"] +}, 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.991847745338249*^9, + 3.9918477508965435`*^9}},ExpressionUUID->"ad23855f-c99b-a44c-9a12-\ +deb534d421e5"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"2f629e0d-1c2c-9343-bec2-dbe5570a25a9"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"60a5b48a-ad17-af47-8d95-10c332a921c3"], + +Cell[BoxData["0.576602516746911`"], "Output",ExpressionUUID->"780ecdd0-ef7b-2043-b88a-49c80ff7e9ca"] +}, 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.9918477556924458`*^9, + 3.991847758600897*^9}},ExpressionUUID->"04adbbfb-46b7-244b-ac81-\ +2150361c4bc9"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"62097c16-216f-f945-9c34-ad16941760e6"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"79915e14-0d67-a548-bfdc-6ae38b0a0207"], + +Cell[BoxData["3.32141991539404`"], "Output",ExpressionUUID->"ccc68cfe-df29-974a-9d22-9001e3d52ce6"] +}, 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.991847762058655*^9, + 3.9918477649417477`*^9}},ExpressionUUID->"a64b278e-5de9-3f4d-8a34-\ +31c8693c1f49"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"e9cd5f2e-f4c7-8e4d-9d92-9849542cfa72"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"7d087d1e-2fe7-8744-a225-ab71c2e4e591"], + +Cell[BoxData["18.419619005098298`"], "Output",ExpressionUUID->"f6f65fa9-4786-a04a-8ffc-0bc012202e10"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918477668459435`*^9, + 3.99184777089764*^9}},ExpressionUUID->"4be81bbf-81c0-3047-be62-\ +a85883f3e3bb"], + +Cell[BoxData["0.07371813161570438`"], "Output",ExpressionUUID->"c3918187-e898-c949-b542-e24802c9ee53"] +}, 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->"1e6d0353-69f5-de4f-ae7f-57aae5493e4a" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[554, 20, 147, 4, 22, "Input",ExpressionUUID->"02c50ee4-f89d-e84b-babb-c4951c25ae7a"], +Cell[704, 26, 152, 3, 22, "Input",ExpressionUUID->"a3744ee1-3657-ed40-afd1-ad7c272f2bae"], +Cell[859, 31, 149, 4, 22, "Input",ExpressionUUID->"fea443da-bb80-5942-940a-8bd97c50a7b3"], +Cell[1011, 37, 156, 3, 22, "Input",ExpressionUUID->"4a8ede4b-c349-9d4b-b8be-a33659ac7670"], +Cell[CellGroupData[{ +Cell[1192, 44, 1273, 41, 39, "Input",ExpressionUUID->"c66d12ee-7a7e-014a-a59f-f5290f75e383"], +Cell[2468, 87, 106, 0, 25, "Output",ExpressionUUID->"d2a98016-4c83-3943-8fb1-133b89183d61"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2611, 92, 913, 30, 46, "Input",ExpressionUUID->"f4d1663f-2f7d-a640-9003-22515624ffcb"], +Cell[3527, 124, 106, 0, 25, "Output",ExpressionUUID->"25b3586e-dddb-8148-8247-2a53a0816ad5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3670, 129, 961, 32, 46, "Input",ExpressionUUID->"85637b45-1c33-1f4e-90c3-07deba1b9b3a"], +Cell[4634, 163, 106, 0, 25, "Output",ExpressionUUID->"c7915de2-f678-2240-8907-4f119bfb9ca2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4777, 168, 532, 18, 42, "Input",ExpressionUUID->"8f97c456-7671-cb44-95b8-323a276088fe"], +Cell[5312, 188, 101, 0, 25, "Output",ExpressionUUID->"c28337c4-580d-004c-bc3c-26abc607c115"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5450, 193, 625, 21, 42, "Input",ExpressionUUID->"e2507f75-9610-1346-854c-33db9330e900"], +Cell[6078, 216, 100, 0, 25, "Output",ExpressionUUID->"eca6de54-61a8-eb4b-9203-3f4b34d3dfbd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6215, 221, 144, 4, 46, "Input",ExpressionUUID->"148e44ba-fb40-0e42-959d-44858270229f"], +Cell[6362, 227, 101, 0, 25, "Output",ExpressionUUID->"0fa81d47-3764-044a-bf93-ee5d1211e37a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6500, 232, 144, 4, 45, "Input",ExpressionUUID->"0c021142-f067-b94a-bf73-69c3aa281aca"], +Cell[6647, 238, 100, 0, 25, "Output",ExpressionUUID->"f8ee43a7-a683-0f4c-8e84-b8ddc45a142b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6784, 243, 155, 4, 35, "Input",ExpressionUUID->"827e3da4-16db-854c-89ad-c94762d57459"], +Cell[6942, 249, 101, 0, 25, "Output",ExpressionUUID->"3013ddc9-2d77-3941-8182-c74c4e917958"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7080, 254, 155, 4, 35, "Input",ExpressionUUID->"9149adf7-16ac-794c-81f7-04a88d48bdc9"], +Cell[7238, 260, 101, 0, 25, "Output",ExpressionUUID->"69944b55-6116-8240-914e-d57996010b53"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7376, 265, 6029, 184, 310, "Input",ExpressionUUID->"14dc1278-8ac3-2246-90ef-ba23d2bdffaa"], +Cell[13408, 451, 102, 0, 25, "Output",ExpressionUUID->"10e3cc8a-ad3e-4e41-ba26-c1acab07fa26"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13547, 456, 342, 8, 33, "Input",ExpressionUUID->"6c632312-3007-0b42-93b3-6c1b961afeb6"], +Cell[13892, 466, 342, 6, 18, "Message",ExpressionUUID->"606843ec-0d7b-f541-9ba3-5b67b435945d"], +Cell[14237, 474, 100, 0, 25, "Output",ExpressionUUID->"859b213d-5319-f746-82ea-75944d21baab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14374, 479, 6096, 186, 353, "Input",ExpressionUUID->"60d1b3b3-12f2-2644-8ed8-788b5437fdfb"], +Cell[20473, 667, 103, 0, 25, "Output",ExpressionUUID->"b3e0a85b-a4aa-ef42-9511-fc38e8dcde9a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[20613, 672, 342, 8, 33, "Input",ExpressionUUID->"8bbc8f7a-f751-794c-9337-a97f1bdae578"], +Cell[20958, 682, 342, 6, 18, "Message",ExpressionUUID->"390798a4-00bb-054f-8ee2-e80440f44497"], +Cell[21303, 690, 100, 0, 25, "Output",ExpressionUUID->"ae91cf0f-72ea-5348-859e-dc6121354f77"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21440, 695, 2637, 87, 135, "Input",ExpressionUUID->"9338c89c-67a3-6e41-be9a-1cf34020b040"], +Cell[24080, 784, 101, 0, 25, "Output",ExpressionUUID->"d0d3835d-fdd0-8c42-8864-83afb328c4cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24218, 789, 2577, 84, 135, "Input",ExpressionUUID->"ae8d22a0-13a2-9d41-b648-0faf6caf2253"], +Cell[26798, 875, 102, 0, 25, "Output",ExpressionUUID->"751398e6-9533-bb47-8958-7a1def21254b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26937, 880, 3686, 117, 197, "Input",ExpressionUUID->"7d419d4a-7a13-e94d-beb1-cf3b1cd962e0"], +Cell[30626, 999, 102, 0, 25, "Output",ExpressionUUID->"1aeb1149-722c-dc42-812b-49cc813a09fb"] +}, Open ]], +Cell[30743, 1002, 138, 3, 34, "Input",ExpressionUUID->"5ded2365-6100-7b43-ad8b-c1b09dc62d32"], +Cell[CellGroupData[{ +Cell[30906, 1009, 2052, 59, 92, "Input",ExpressionUUID->"4fe3e3d4-6e7a-b544-8531-81ac5c3a022e"], +Cell[32961, 1070, 342, 6, 18, "Message",ExpressionUUID->"2ce305f1-c638-b640-9e67-d7f6ae2bda61"], +Cell[33306, 1078, 342, 6, 18, "Message",ExpressionUUID->"b0af1054-fb47-e740-95af-24928a790ba1"], +Cell[33651, 1086, 100, 0, 25, "Output",ExpressionUUID->"66158712-c3f0-e64f-90ca-4bc93914d109"] +}, Open ]], +Cell[CellGroupData[{ +Cell[33788, 1091, 2052, 59, 92, "Input",ExpressionUUID->"2e2efe37-106e-8a4d-98e1-c6d073c59256"], +Cell[35843, 1152, 342, 6, 18, "Message",ExpressionUUID->"ddbb5dc1-4246-b141-8007-17d96bea04a9"], +Cell[36188, 1160, 342, 6, 18, "Message",ExpressionUUID->"1cbe63d8-1cf3-164a-9de9-78e410d01cd1"], +Cell[36533, 1168, 100, 0, 25, "Output",ExpressionUUID->"4bc5c73f-64dd-7843-be37-b49a7d1b54f0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[36670, 1173, 1936, 53, 69, "Input",ExpressionUUID->"5ef8c446-ea46-eb49-90ca-5a9d2703a626"], +Cell[38609, 1228, 342, 6, 18, "Message",ExpressionUUID->"ce9fdda1-e376-7b48-b042-8c3b4f405fcb"], +Cell[38954, 1236, 342, 6, 18, "Message",ExpressionUUID->"66a78cc9-892b-204f-b904-4d54d4d3ebd0"], +Cell[39299, 1244, 342, 6, 18, "Message",ExpressionUUID->"77cccd91-6a05-1146-b314-0aa4f406152c"], +Cell[39644, 1252, 407, 7, 18, "Message",ExpressionUUID->"72ad5b3e-6607-7741-ad4a-54927ade8695"], +Cell[40054, 1261, 8042, 364, 148, 4231, 300, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"f8427134-7951-8548-ae28-485a485148a2"], +Cell[48099, 1627, 191, 5, 25, "Output",ExpressionUUID->"5446bdee-36aa-604e-a81f-f7b281aa780e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[48327, 1637, 2142, 61, 92, "Input",ExpressionUUID->"b7386bff-07bb-694b-b11c-7d3ff3a35bae"], +Cell[50472, 1700, 342, 6, 18, "Message",ExpressionUUID->"1b40a6b1-b8e0-af43-829a-2ca3d7ae070e"], +Cell[50817, 1708, 342, 6, 18, "Message",ExpressionUUID->"2360947f-22ea-fb4f-90b8-fd6f79665669"], +Cell[51162, 1716, 342, 6, 18, "Message",ExpressionUUID->"281ea8ed-b5ba-8045-83d3-97b36671a021"], +Cell[51507, 1724, 407, 7, 18, "Message",ExpressionUUID->"a4dfac90-0844-364a-8cdf-0596249bd283"], +Cell[51917, 1733, 8048, 353, 148, 4113, 287, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"42a070d0-1a40-f841-bc5a-496bce3f6168"], +Cell[59968, 2088, 191, 5, 25, "Output",ExpressionUUID->"c9fc5a7b-2d38-ba43-857f-9aa96e6b3d16"] +}, Open ]], +Cell[CellGroupData[{ +Cell[60196, 2098, 327, 7, 34, "Input",ExpressionUUID->"08cc1ff9-b63b-d741-9dab-b5604b3208c2"], +Cell[60526, 2107, 9692, 222, 192, "Output",ExpressionUUID->"d769d980-5c09-fe4c-baf0-fe9ddf32668b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[70255, 2334, 257, 6, 34, "Input",ExpressionUUID->"c833855b-86a8-7349-9ccf-32b52052d827"], +Cell[70515, 2342, 2580, 42, 53, "Message",ExpressionUUID->"876d039d-4206-f648-bcad-3d1cc1c9375e"], +Cell[73098, 2386, 10187, 227, 60, "Output",ExpressionUUID->"d3e123dc-41cb-7141-a991-a4f7fbe6f12f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[83322, 2618, 217, 7, 39, "Input",ExpressionUUID->"c6de3c8b-ad61-c04a-b1df-f10741068cd1"], +Cell[83542, 2627, 100, 0, 25, "Output",ExpressionUUID->"38637efc-803d-8640-9e6e-276437831f52"] +}, Open ]], +Cell[CellGroupData[{ +Cell[83679, 2632, 1816, 53, 92, "Input",ExpressionUUID->"e95bae90-91f9-c74f-b890-1d51c0908f7e"], +Cell[85498, 2687, 342, 6, 18, "Message",ExpressionUUID->"c023352e-b521-e84e-9cb3-97c71ad6a25e"], +Cell[85843, 2695, 342, 6, 18, "Message",ExpressionUUID->"7309d20d-7fd9-4f4d-a7f3-0872cdf1105f"], +Cell[86188, 2703, 342, 6, 18, "Message",ExpressionUUID->"43ff04d1-726c-9a4f-a3ef-930184afcb3e"], +Cell[86533, 2711, 407, 7, 18, "Message",ExpressionUUID->"3fd3a11a-bede-e144-8b42-539dbe9249ba"], +Cell[86943, 2720, 8211, 365, 148, 4186, 297, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"960bbf59-2015-8349-bffe-e4d767d8aeeb"], +Cell[95157, 3087, 191, 5, 25, "Output",ExpressionUUID->"a75c82b0-dce2-dd4f-b864-2a6b5c402da4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[95385, 3097, 1590, 47, 69, "Input",ExpressionUUID->"b292bf25-9f2c-1b44-bd26-31940b3b367d"], +Cell[96978, 3146, 342, 6, 18, "Message",ExpressionUUID->"bd49935b-c0f9-f44f-af7a-e4ad6a7bc2ad"], +Cell[97323, 3154, 101, 0, 25, "Output",ExpressionUUID->"43a947d2-2d74-d447-89ff-92c212e98dc4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[97461, 3159, 2251, 64, 131, "Input",ExpressionUUID->"101ef0da-c6f5-1c49-9804-85fb5ed316b5"], +Cell[99715, 3225, 342, 6, 18, "Message",ExpressionUUID->"131678ec-17c0-f049-b9b0-aed329dc5583"], +Cell[100060, 3233, 342, 6, 18, "Message",ExpressionUUID->"a6fc1549-2fa3-f649-b6cc-c7168f9393cf"], +Cell[100405, 3241, 103, 0, 25, "Output",ExpressionUUID->"0f29d6b0-abda-0849-9008-4443dea42d94"] +}, Open ]], +Cell[CellGroupData[{ +Cell[100545, 3246, 2221, 64, 131, "Input",ExpressionUUID->"087f1adc-ca17-4a4e-8be3-617724431d54"], +Cell[102769, 3312, 342, 6, 18, "Message",ExpressionUUID->"ffb3115b-8086-8941-bf0d-81ed4818f26f"], +Cell[103114, 3320, 342, 6, 18, "Message",ExpressionUUID->"6eb50ae6-c8bd-6941-a71f-82927d1c1d5c"], +Cell[103459, 3328, 100, 0, 25, "Output",ExpressionUUID->"e9e8685d-f821-c64d-930c-bdbceafb1970"] +}, Open ]], +Cell[CellGroupData[{ +Cell[103596, 3333, 2221, 64, 131, "Input",ExpressionUUID->"562762dd-8337-c248-84ed-48f09efe77cb"], +Cell[105820, 3399, 342, 6, 18, "Message",ExpressionUUID->"88848fa9-89c0-7441-a937-117af52a31e7"], +Cell[106165, 3407, 342, 6, 18, "Message",ExpressionUUID->"3e81b6c4-2244-bf42-b8b5-0fa000d4a037"], +Cell[106510, 3415, 101, 0, 25, "Output",ExpressionUUID->"75996429-631f-a540-8db3-d3eecf498491"] +}, Open ]], +Cell[CellGroupData[{ +Cell[106648, 3420, 213, 6, 38, "Input",ExpressionUUID->"b22d48b0-99f1-fc43-8d66-dfdcb64caaf4"], +Cell[106864, 3428, 104, 0, 25, "Output",ExpressionUUID->"8631572e-009c-e547-9adf-d000b75a3b80"] +}, Open ]], +Cell[106983, 3431, 245, 5, 34, "Input",ExpressionUUID->"324c5332-372a-9346-847e-b48a2f85529f"], +Cell[CellGroupData[{ +Cell[107253, 3440, 532, 18, 42, "Input",ExpressionUUID->"3aa52613-e091-4440-b97b-cbff40fea673"], +Cell[107788, 3460, 100, 0, 25, "Output",ExpressionUUID->"0bfccaf4-b419-7b47-a5b9-ad617225ded2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[107925, 3465, 144, 4, 46, "Input",ExpressionUUID->"00409e7b-892c-b145-91f2-fd5d9616a547"], +Cell[108072, 3471, 100, 0, 25, "Output",ExpressionUUID->"0910edf9-27aa-f943-bd90-76d5bfb56389"] +}, Open ]], +Cell[CellGroupData[{ +Cell[108209, 3476, 155, 4, 35, "Input",ExpressionUUID->"eb9f1869-8c47-4c47-ad8f-589aa7e556b3"], +Cell[108367, 3482, 100, 0, 25, "Output",ExpressionUUID->"50a3d579-8928-2343-996d-237ad0eb297d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[108504, 3487, 6029, 184, 310, "Input",ExpressionUUID->"a68db5dc-89e4-f247-a519-53dcbe6905b1"], +Cell[114536, 3673, 102, 0, 25, "Output",ExpressionUUID->"6b11f8d3-6b54-614d-a4c0-669be8c0ee7f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[114675, 3678, 342, 8, 33, "Input",ExpressionUUID->"d3d0889a-1b29-9a4d-af3d-093ef0359f4b"], +Cell[115020, 3688, 342, 6, 18, "Message",ExpressionUUID->"465a75ef-6b20-9848-9eff-c4e675672ad8"], +Cell[115365, 3696, 99, 0, 25, "Output",ExpressionUUID->"8931c974-5816-9e48-9ac0-0532e1ef18b1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[115501, 3701, 6096, 186, 353, "Input",ExpressionUUID->"9fe1a567-82b8-a345-b4b0-80b2c100f9f3"], +Cell[121600, 3889, 102, 0, 25, "Output",ExpressionUUID->"13c9a29c-6a6d-ff49-88af-96394780a9e2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[121739, 3894, 342, 8, 33, "Input",ExpressionUUID->"3372ffe6-5d5a-b247-8795-4c6a022053d0"], +Cell[122084, 3904, 342, 6, 18, "Message",ExpressionUUID->"5f5967c2-a14c-de46-b55b-52a0b7afbab3"], +Cell[122429, 3912, 100, 0, 25, "Output",ExpressionUUID->"bd025469-aef5-2448-a097-d2409dcee75d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[122566, 3917, 2637, 87, 135, "Input",ExpressionUUID->"367b34da-973d-2d45-8020-5f24b7ad9501"], +Cell[125206, 4006, 101, 0, 25, "Output",ExpressionUUID->"98cac926-ef59-1342-b091-1b565c5978b3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[125344, 4011, 2577, 84, 135, "Input",ExpressionUUID->"112859ae-f114-4041-84e8-1ba64a91ebc1"], +Cell[127924, 4097, 102, 0, 25, "Output",ExpressionUUID->"36a7aeca-f2a3-e949-b0ca-f804c0163692"] +}, Open ]], +Cell[CellGroupData[{ +Cell[128063, 4102, 3686, 117, 197, "Input",ExpressionUUID->"695320bc-fa3e-3547-be92-70a745b298b2"], +Cell[131752, 4221, 102, 0, 25, "Output",ExpressionUUID->"0abac473-9a99-bd43-b50e-e41bacfd95b6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[131891, 4226, 2054, 59, 92, "Input",ExpressionUUID->"b1722e07-c26a-4d47-97af-4f4eb5664e3b"], +Cell[133948, 4287, 342, 6, 18, "Message",ExpressionUUID->"7ab7ec2a-fa78-4845-8b94-ac80bbb482ff"], +Cell[134293, 4295, 342, 6, 18, "Message",ExpressionUUID->"1e16a028-2ecd-3143-835f-f92cd0016663"], +Cell[134638, 4303, 101, 0, 25, "Output",ExpressionUUID->"eadd70e7-26a1-4b46-8240-f3dce9859a07"] +}, Open ]], +Cell[CellGroupData[{ +Cell[134776, 4308, 2054, 59, 92, "Input",ExpressionUUID->"e785cfe1-8cd5-4a44-8f18-a3bdb03abf99"], +Cell[136833, 4369, 342, 6, 18, "Message",ExpressionUUID->"62adfe6c-817a-8644-a989-225720cd7059"], +Cell[137178, 4377, 342, 6, 18, "Message",ExpressionUUID->"cbaa115f-bf0d-1e4f-b5c7-1d35bae46521"], +Cell[137523, 4385, 100, 0, 25, "Output",ExpressionUUID->"e9a05a92-f41b-934a-a923-0dffa18fc100"] +}, Open ]], +Cell[CellGroupData[{ +Cell[137660, 4390, 2030, 55, 54, "Input",ExpressionUUID->"39feef99-fcf4-8440-bed1-25beef5a0630"], +Cell[139693, 4447, 342, 6, 18, "Message",ExpressionUUID->"56c86859-71bc-bf4d-8ea6-a152a4a828d3"], +Cell[140038, 4455, 342, 6, 18, "Message",ExpressionUUID->"47fbb3e0-458c-4d48-bc65-cfbd454ebd8b"], +Cell[140383, 4463, 342, 6, 18, "Message",ExpressionUUID->"a25aaf8c-9a35-1543-b0b4-c881fe78844a"], +Cell[140728, 4471, 407, 7, 18, "Message",ExpressionUUID->"d9cbee06-5ef4-e14d-b8da-4a8591142866"], +Cell[141138, 4480, 9456, 438, 148, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"2f0c6d62-d79c-fe40-ae18-5a4696a4ccbb"], +Cell[150597, 4920, 191, 5, 25, "Output",ExpressionUUID->"1b36cfb9-6a09-4c41-9a4d-068e88bb9e2c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[150825, 4930, 2148, 61, 92, "Input",ExpressionUUID->"e605439d-19dd-2645-8993-c76100de5ed2"], +Cell[152976, 4993, 342, 6, 18, "Message",ExpressionUUID->"c359dea9-9ece-cf49-b7df-ef6b53440b08"], +Cell[153321, 5001, 342, 6, 18, "Message",ExpressionUUID->"df87c0d2-a345-c048-8631-aeba4b69c5c2"], +Cell[153666, 5009, 342, 6, 18, "Message",ExpressionUUID->"991abcb1-81ce-9b40-bdbb-a15d386b1b78"], +Cell[154011, 5017, 407, 7, 18, "Message",ExpressionUUID->"9aaae4b6-fac0-394d-b0b6-90b588c1351a"], +Cell[154421, 5026, 8570, 368, 148, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"9a870480-d3d4-8843-9f49-e5fc868c350b"], +Cell[162994, 5396, 191, 5, 25, "Output",ExpressionUUID->"954422c5-4061-764e-bf48-99c016a64c85"] +}, Open ]], +Cell[CellGroupData[{ +Cell[163222, 5406, 257, 6, 34, "Input",ExpressionUUID->"3e01852b-fa23-2642-abab-f1f489e06059"], +Cell[163482, 5414, 2580, 42, 56, "Message",ExpressionUUID->"745689c4-10fa-1143-9aff-0dfee3349f79"], +Cell[166065, 5458, 10201, 227, 56, "Output",ExpressionUUID->"ec18a0ba-e266-a343-9325-0845f1736c56"] +}, Closed]], +Cell[CellGroupData[{ +Cell[176303, 5690, 1590, 47, 67, "Input",ExpressionUUID->"cec9d659-40a4-9344-876a-cec895b68137"], +Cell[177896, 5739, 342, 6, 18, "Message",ExpressionUUID->"c8a425da-4684-ff4d-913f-cc5851265bc3"], +Cell[178241, 5747, 101, 0, 25, "Output",ExpressionUUID->"62616100-cef9-c34a-90ec-7024e73a21ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[178379, 5752, 2247, 64, 131, "Input",ExpressionUUID->"dcfb8a1f-77bf-c54a-8dd4-08e72b48e971"], +Cell[180629, 5818, 342, 6, 18, "Message",ExpressionUUID->"3bf07443-b608-4243-b971-51f82147ad62"], +Cell[180974, 5826, 342, 6, 18, "Message",ExpressionUUID->"e747471f-596a-2242-a829-0d8e6535227a"], +Cell[181319, 5834, 101, 0, 25, "Output",ExpressionUUID->"89855e7d-6748-6649-99fc-db6c764ac3a4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181457, 5839, 2219, 64, 131, "Input",ExpressionUUID->"b256ae65-c9c8-994b-815e-de484a821375"], +Cell[183679, 5905, 342, 6, 18, "Message",ExpressionUUID->"ce81120b-8f1e-dd40-9437-7d92ce72052d"], +Cell[184024, 5913, 342, 6, 18, "Message",ExpressionUUID->"8dc8593d-acd4-c74f-aea6-e734c994e283"], +Cell[184369, 5921, 101, 0, 25, "Output",ExpressionUUID->"6dc23113-bc95-494e-93a5-cd6a253efc0a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184507, 5926, 2223, 64, 131, "Input",ExpressionUUID->"8fd338d4-a1be-6841-b853-e94a67cb9612"], +Cell[186733, 5992, 342, 6, 56, "Message",ExpressionUUID->"6d8f0be9-093a-3b41-85dc-708af7e242e1"], +Cell[187078, 6000, 342, 6, 56, "Message",ExpressionUUID->"2079ef2d-a37e-f54c-92b8-a37a53f349ad"], +Cell[187423, 6008, 101, 0, 56, "Output",ExpressionUUID->"554a4ded-bde6-2a46-af18-bac29cb48d9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187561, 6013, 215, 6, 56, "Input",ExpressionUUID->"9231c462-6016-ac42-bd11-cb0c7e92fda2"], +Cell[187779, 6021, 102, 0, 56, "Output",ExpressionUUID->"682bcc08-531d-5f43-acd9-aafef153314e"] +}, Open ]], +Cell[187896, 6024, 249, 5, 56, "Input",ExpressionUUID->"7b4f4188-e9b4-a249-91fe-f977b92c20b2"], +Cell[CellGroupData[{ +Cell[188170, 6033, 532, 18, 56, "Input",ExpressionUUID->"e639aabf-9918-b148-b52f-1037c590e22d"], +Cell[188705, 6053, 101, 0, 56, "Output",ExpressionUUID->"e8a065a4-9b1c-1e46-9347-2538ec1d0d92"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188843, 6058, 144, 4, 56, "Input",ExpressionUUID->"9f21bdcd-6887-bf47-af20-cb6fe2ae22d1"], +Cell[188990, 6064, 101, 0, 56, "Output",ExpressionUUID->"50446e68-3d8c-8d45-9164-a3f05e953b7b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189128, 6069, 155, 4, 56, "Input",ExpressionUUID->"807c9644-b813-4545-bd97-a39923ad2c85"], +Cell[189286, 6075, 100, 0, 56, "Output",ExpressionUUID->"c53e1eb9-111c-1c4f-83a4-760a21ed4b09"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189423, 6080, 6029, 184, 56, "Input",ExpressionUUID->"c029bbe7-1e0d-6c47-9817-6aab8cca4349"], +Cell[195455, 6266, 102, 0, 56, "Output",ExpressionUUID->"23daa51b-d813-3040-bd45-0d347c7122da"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195594, 6271, 342, 8, 56, "Input",ExpressionUUID->"02414061-9268-3a40-809c-791f7b1bc727"], +Cell[195939, 6281, 342, 6, 56, "Message",ExpressionUUID->"c6830ba9-9f74-4c4c-9b97-dded42b0d0cf"], +Cell[196284, 6289, 100, 0, 56, "Output",ExpressionUUID->"7cdd740f-da8e-1847-901d-4e38334c4602"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196421, 6294, 6096, 186, 56, "Input",ExpressionUUID->"0cf6ee00-990f-aa48-80f8-a2822701e626"], +Cell[202520, 6482, 102, 0, 56, "Output",ExpressionUUID->"bb8b113c-f7cc-4f4e-b883-2112fdc5e77e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202659, 6487, 342, 8, 56, "Input",ExpressionUUID->"0e7a310e-8267-084b-8d71-ceb0b816dd18"], +Cell[203004, 6497, 342, 6, 56, "Message",ExpressionUUID->"23da22f8-8350-eb48-95d4-6a0bc4f515a3"], +Cell[203349, 6505, 99, 0, 56, "Output",ExpressionUUID->"0dd898e7-1224-8c4b-9b4a-44bf5a45b446"] +}, Open ]], +Cell[CellGroupData[{ +Cell[203485, 6510, 2637, 87, 56, "Input",ExpressionUUID->"16870642-9452-a14f-a1b7-576792706e56"], +Cell[206125, 6599, 101, 0, 56, "Output",ExpressionUUID->"09f95964-259e-d442-8b4d-9152a060f55e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[206263, 6604, 2577, 84, 56, "Input",ExpressionUUID->"207b673b-eb18-904e-8dba-9c1c1dd6034c"], +Cell[208843, 6690, 102, 0, 56, "Output",ExpressionUUID->"cd37bbf1-e49a-6647-92bf-66da4b35a93e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208982, 6695, 3686, 117, 56, "Input",ExpressionUUID->"fcc33f59-ac5d-dc44-a6a0-01cb1397795c"], +Cell[212671, 6814, 102, 0, 56, "Output",ExpressionUUID->"a8990ed0-d980-fe49-b54f-af15cdaca5a8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[212810, 6819, 2054, 59, 56, "Input",ExpressionUUID->"c2bffed8-3648-ee47-bc6e-be191758bd92"], +Cell[214867, 6880, 342, 6, 56, "Message",ExpressionUUID->"9353aa27-5dd8-6249-9acf-27d71a8dfe31"], +Cell[215212, 6888, 342, 6, 56, "Message",ExpressionUUID->"7a16941e-3686-3c49-a9bf-a8f0d031eb03"], +Cell[215557, 6896, 100, 0, 56, "Output",ExpressionUUID->"abe399c8-88d7-1f45-b974-4e13120badf7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[215694, 6901, 2054, 59, 56, "Input",ExpressionUUID->"162c1d78-b731-9743-923d-e14e238c88c0"], +Cell[217751, 6962, 342, 6, 56, "Message",ExpressionUUID->"3884f153-af14-6b4b-904c-75f8499cadb1"], +Cell[218096, 6970, 342, 6, 56, "Message",ExpressionUUID->"decb9285-274f-5646-8622-e985a1ccc581"], +Cell[218441, 6978, 100, 0, 56, "Output",ExpressionUUID->"26b8d6b5-120d-b94f-8e05-d4bbf530818b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[218578, 6983, 2028, 55, 56, "Input",ExpressionUUID->"e062485f-eb72-5b44-8f24-f29169102337"], +Cell[220609, 7040, 342, 6, 56, "Message",ExpressionUUID->"b65eca92-46bf-1d45-b9d4-7717f8601dca"], +Cell[220954, 7048, 342, 6, 56, "Message",ExpressionUUID->"43097017-8d6b-ed44-885b-d7dcc2918c11"], +Cell[221299, 7056, 342, 6, 56, "Message",ExpressionUUID->"2c60786a-2040-fe49-981b-8347dab8e699"], +Cell[221644, 7064, 407, 7, 56, "Message",ExpressionUUID->"b9098ed1-26b0-e14f-83e6-f3cf126236c4"], +Cell[222054, 7073, 9456, 438, 56, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"d219667d-634a-2440-aa6f-10d194554a17"], +Cell[231513, 7513, 191, 5, 56, "Output",ExpressionUUID->"33e2e3bc-779e-de42-82b8-f8c295872460"] +}, Open ]], +Cell[CellGroupData[{ +Cell[231741, 7523, 2146, 61, 56, "Input",ExpressionUUID->"d8f392d3-6c9e-3f4d-9982-5d019384c724"], +Cell[233890, 7586, 342, 6, 56, "Message",ExpressionUUID->"77187be0-9434-894a-bf72-82e8f3e36aa6"], +Cell[234235, 7594, 342, 6, 56, "Message",ExpressionUUID->"dae11eea-bf2c-ea41-8cfc-910dacad7d02"], +Cell[234580, 7602, 342, 6, 56, "Message",ExpressionUUID->"3a91b588-c1b9-514a-8b35-49bc5a04ab45"], +Cell[234925, 7610, 407, 7, 56, "Message",ExpressionUUID->"90d10efd-2d21-7342-aab1-c6fb4c5c2e48"], +Cell[235335, 7619, 8570, 368, 56, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"b4689af7-5bf9-8d45-aba9-b2818f315461"], +Cell[243908, 7989, 191, 5, 56, "Output",ExpressionUUID->"ee661a5c-41cb-6a4f-9f2e-fbc4cfed7c63"] +}, Open ]], +Cell[CellGroupData[{ +Cell[244136, 7999, 257, 6, 56, "Input",ExpressionUUID->"b7cf0d21-5483-ac4b-a7be-b13fedb5cf43"], +Cell[244396, 8007, 2580, 42, 56, "Message",ExpressionUUID->"aeed560b-6305-9b4b-9f36-1a15d67dc4b8"], +Cell[246979, 8051, 10201, 227, 56, "Output",ExpressionUUID->"a8995578-961d-6b40-b936-9720a58b42d1"] +}, Closed]], +Cell[CellGroupData[{ +Cell[257217, 8283, 1590, 47, 56, "Input",ExpressionUUID->"f102c80c-cb19-a64b-98f1-a3bbc351ff15"], +Cell[258810, 8332, 342, 6, 56, "Message",ExpressionUUID->"c6924563-b651-4446-bbba-bad311e0a4eb"], +Cell[259155, 8340, 101, 0, 56, "Output",ExpressionUUID->"41fd5ce1-50b0-1948-bce9-3bc136a88f8f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[259293, 8345, 2249, 64, 56, "Input",ExpressionUUID->"ad23855f-c99b-a44c-9a12-deb534d421e5"], +Cell[261545, 8411, 342, 6, 56, "Message",ExpressionUUID->"2f629e0d-1c2c-9343-bec2-dbe5570a25a9"], +Cell[261890, 8419, 342, 6, 56, "Message",ExpressionUUID->"60a5b48a-ad17-af47-8d95-10c332a921c3"], +Cell[262235, 8427, 100, 0, 56, "Output",ExpressionUUID->"780ecdd0-ef7b-2043-b88a-49c80ff7e9ca"] +}, Open ]], +Cell[CellGroupData[{ +Cell[262372, 8432, 2221, 64, 56, "Input",ExpressionUUID->"04adbbfb-46b7-244b-ac81-2150361c4bc9"], +Cell[264596, 8498, 342, 6, 56, "Message",ExpressionUUID->"62097c16-216f-f945-9c34-ad16941760e6"], +Cell[264941, 8506, 342, 6, 56, "Message",ExpressionUUID->"79915e14-0d67-a548-bfdc-6ae38b0a0207"], +Cell[265286, 8514, 99, 0, 56, "Output",ExpressionUUID->"ccc68cfe-df29-974a-9d22-9001e3d52ce6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[265422, 8519, 2221, 64, 56, "Input",ExpressionUUID->"a64b278e-5de9-3f4d-8a34-31c8693c1f49"], +Cell[267646, 8585, 342, 6, 56, "Message",ExpressionUUID->"e9cd5f2e-f4c7-8e4d-9d92-9849542cfa72"], +Cell[267991, 8593, 342, 6, 56, "Message",ExpressionUUID->"7d087d1e-2fe7-8744-a225-ab71c2e4e591"], +Cell[268336, 8601, 101, 0, 56, "Output",ExpressionUUID->"f6f65fa9-4786-a04a-8ffc-0bc012202e10"] +}, Open ]], +Cell[CellGroupData[{ +Cell[268474, 8606, 212, 6, 56, "Input",ExpressionUUID->"4be81bbf-81c0-3047-be62-a85883f3e3bb"], +Cell[268689, 8614, 102, 0, 56, "Output",ExpressionUUID->"c3918187-e898-c949-b542-e24802c9ee53"] +}, Open ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/templates/light_case/l___osc_Qw1.nb b/templates/light_case/l___osc_Qw1.nb new file mode 100644 index 0000000..b6630a6 --- /dev/null +++ b/templates/light_case/l___osc_Qw1.nb @@ -0,0 +1,14290 @@ +(* 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[ 569020, 14282] +NotebookOptionsPosition[ 528338, 13640] +NotebookOutlinePosition[ 528792, 13658] +CellTagsIndexPosition[ 528749, 13655] +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->"05f0731c-d41f-bc4e-b3a5-\ +fe37ee9edd84"], + +Cell[BoxData["3"], "Output", + CellChangeTimes->{3.991320420900818*^9}, + CellLabel->"Out[46]=",ExpressionUUID->"59710435-e1fd-814a-bd23-6a3a082f9166"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "236"}]], "Input", + CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { + 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, + 3.99179303935478*^9}},ExpressionUUID->"12aae3bb-3c18-fc49-a0b1-\ +b91fdc1bbe34"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}}, + CellLabel-> + "Out[374]=",ExpressionUUID->"127d1f92-fab0-c143-b7a7-1a3639c70287"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "="}]], "Input", + CellChangeTimes->{3.9917123636954575`*^9, + 3.9917930477498703`*^9},ExpressionUUID->"93a900cf-d755-b944-921b-\ +a609f0a955d2"], + +Cell[BoxData["58"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}}, + CellLabel-> + "Out[375]=",ExpressionUUID->"04807396-80ba-9d48-9880-d5034affbebb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[365]:=",ExpressionUUID->"ad2e1847-77bb-2547-a825-69fabcda8ddf"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9, 3.991707828219631*^9, + 3.9917123414174232`*^9}, + CellLabel-> + "Out[365]=",ExpressionUUID->"c9b1aca0-8c57-7841-9f47-4065e42d1be9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[366]:=",ExpressionUUID->"4cc840b0-88d4-374e-a12e-54b8464f3172"], + +Cell[BoxData["0.5484745762711865`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9, 3.9917078282275677`*^9, + 3.9917123414253197`*^9}, + CellLabel-> + "Out[366]=",ExpressionUUID->"d140ea6a-5556-4549-9162-53cd65902074"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[367]:=",ExpressionUUID->"7e4318c8-0990-ce41-a87a-43c5428155f4"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9, 3.9917078282485256`*^9, + 3.9917123414324265`*^9}, + CellLabel-> + "Out[367]=",ExpressionUUID->"1945b47e-8242-f141-8f24-145573b8d035"] +}, 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[368]:=",ExpressionUUID->"c991c4ea-4c61-ff4f-8dd1-a921864ebed7"], + +Cell[BoxData["5.876324542157027`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9, 3.9917078282706223`*^9, + 3.9917123414384117`*^9}, + CellLabel-> + "Out[368]=",ExpressionUUID->"7a1a8da1-0bcf-b54b-9fee-cefa315cdb2f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[369]:=",ExpressionUUID->"c0ebd7fd-cfec-df46-a449-f750a93384d0"], + +Cell[BoxData["5.489843249749507`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9, 3.9917078282785244`*^9, + 3.991712341447321*^9}, + CellLabel-> + "Out[369]=",ExpressionUUID->"20ba6663-ffc2-0e44-9f42-439485fbc707"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "="}]], "Input", + CellChangeTimes->{3.9917123951294365`*^9, + 3.99179305435186*^9},ExpressionUUID->"4df260b6-0d11-1441-9e2e-22f951821193"], + +Cell[BoxData["0.420231827681518`"], "Output", + CellChangeTimes->{3.991319649862606*^9, 3.991707828301527*^9, + 3.9917123414573193`*^9, 3.991712407248003*^9}, + CellLabel-> + "Out[376]=",ExpressionUUID->"c1cb754b-dcac-584d-b97e-790bbfb09804"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "="}]], "Input", + CellChangeTimes->{3.9917124038115807`*^9, + 3.991793052797516*^9},ExpressionUUID->"2d27be30-fef3-4449-b748-\ +886004fbb723"], + +Cell[BoxData["0.787931405657569`"], "Output", + CellChangeTimes->{3.9913196498716316`*^9, 3.991707828308525*^9, + 3.99171234146842*^9, 3.9917124073213234`*^9}, + CellLabel-> + "Out[377]=",ExpressionUUID->"8ccd1fe7-b42d-e94a-8f21-428102053d08"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[372]:=",ExpressionUUID->"58f05ac2-9a5b-b743-b028-7f6094b06d91"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9, 3.9917078283276424`*^9, + 3.991712341478319*^9}, + CellLabel-> + "Out[372]=",ExpressionUUID->"9028d520-a386-4d42-869d-0525c235b913"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[373]:=",ExpressionUUID->"b018faa3-5a51-4f49-9b0d-7936087c5070"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9, 3.99170782834754*^9, + 3.9917123414863186`*^9}, + CellLabel-> + "Out[373]=",ExpressionUUID->"d0265467-59e4-be49-a64b-8c82690d7968"] +}, 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[231]:=",ExpressionUUID->"44764fb1-9da1-4d4e-a570-89126d15f894"], + +Cell[BoxData["1.4975864418719793`"], "Output", + CellChangeTimes->{3.9913197863028755`*^9, 3.991707968406042*^9}, + CellLabel-> + "Out[231]=",ExpressionUUID->"eaa05129-f525-ae46-856a-3848d0f71fe6"] +}, 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[232]:=",ExpressionUUID->"3281618b-d4a7-c942-98be-b78c0b986321"], + +Cell[BoxData["2.555495302485258`"], "Output", + CellChangeTimes->{3.9913197864610195`*^9, 3.9917079684291363`*^9}, + CellLabel-> + "Out[232]=",ExpressionUUID->"38460700-3d9d-1443-a45f-7e5ee1ac1e65"] +}, 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[234]:=",ExpressionUUID->"fed40061-6b4e-1748-b42c-03e683b18808"], + +Cell[BoxData["0.686923100169971`"], "Output", + CellChangeTimes->{3.991319786533783*^9, 3.991707968457081*^9}, + CellLabel-> + "Out[234]=",ExpressionUUID->"6fb0963d-5264-7b48-8d3a-ac1aa2bee48f"] +}, 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[235]:=",ExpressionUUID->"f615b39c-9820-5147-95ce-618baa4e4991"], + +Cell[BoxData[ + RowBox[{"-", "0.4218526400906269`"}]], "Output", + CellChangeTimes->{3.991319786540777*^9, 3.9917079684650364`*^9}, + CellLabel-> + "Out[235]=",ExpressionUUID->"22af3164-9ad3-3a45-a446-4f30ebbff819"] +}, 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[236]:=",ExpressionUUID->"7b2f9469-8c15-d349-a2c9-fcf9fcf6e8df"], + +Cell[BoxData[ + RowBox[{"-", "0.08278118592697929`"}]], "Output", + CellChangeTimes->{3.9913197865777817`*^9, 3.9917079684860363`*^9}, + CellLabel-> + "Out[236]=",ExpressionUUID->"cf644e36-3735-454b-b2f7-d6dcd3b19eee"] +}, 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[237]:=",ExpressionUUID->"e673379f-2460-4e49-90d0-35742055e8f6"], + +Cell[BoxData["0.2980016292909601`"], "Output", + CellChangeTimes->{3.9913197866129*^9, 3.9917079684940376`*^9}, + CellLabel-> + "Out[237]=",ExpressionUUID->"1e5d103c-a3a6-3140-b337-734998937fb4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[238]:=",ExpressionUUID->"f65ba40e-adc9-4340-8c19-3a5692a89c19"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786620775*^9, 3.9917079685140343`*^9}, + CellLabel-> + "Out[238]=",ExpressionUUID->"26bf3ba6-95f3-0440-9e98-89c65d588c67"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellChangeTimes->{3.9918430951178913`*^9}, + CellLabel-> + "In[239]:=",ExpressionUUID->"da90429f-71c9-fb44-900f-54f9ecb15c0c"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{3.991319786657793*^9, 3.991707968535036*^9}, + CellLabel-> + "Out[239]=",ExpressionUUID->"22e230e6-b8cd-524e-8e84-86b886e1db44"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel-> + "In[240]:=",ExpressionUUID->"ba9e3c3f-c755-9949-abdf-5c8716be163d"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{3.9913197866657925`*^9, 3.9917079685410557`*^9}, + CellLabel-> + "Out[240]=",ExpressionUUID->"6d784a11-3113-334a-bc65-848d44a8e331"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[241]:=",ExpressionUUID->"1df1d99a-14d1-664a-9952-fc0ffe17d214"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{3.9913197866996*^9, 3.991707968561041*^9}, + CellLabel-> + "Out[241]=",ExpressionUUID->"f304ab94-42d1-9641-9e04-2b925b4673f0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[242]:=",ExpressionUUID->"934f8f71-5ebb-8a42-88af-b686f4e3e457"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{3.9913197867406044`*^9, 3.9917079685810375`*^9}, + CellLabel-> + "Out[242]=",ExpressionUUID->"2be55f72-e139-c147-8f9f-866d807a59c6"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Z1", "="}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, + 3.9917930777342243`*^9},ExpressionUUID->"6e10280b-ebb3-f646-bb1d-\ +00a00fc0ed1c"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431115646553`*^9, + 3.991843111569187*^9}},ExpressionUUID->"b89c6b57-db32-1742-8cc6-\ +85b9a16d9dd6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"92", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, { + 3.991644237125025*^9, 3.991644237304865*^9}}, + CellLabel-> + "In[244]:=",ExpressionUUID->"f0485430-2764-5f40-9255-6cf8c0e180ff"], + +Cell[BoxData["42"], "Output", + CellChangeTimes->{3.9913197867928696`*^9, 3.991707968608036*^9}, + CellLabel-> + "Out[244]=",ExpressionUUID->"e6c6682a-cb21-c743-b88d-fc73cf3db099"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[245]:=",ExpressionUUID->"a5017589-44b9-f144-b351-bb9b15123fd4"], + +Cell[BoxData["106"], "Output", + CellChangeTimes->{3.991319786827894*^9, 3.9917079686284103`*^9}, + CellLabel-> + "Out[245]=",ExpressionUUID->"3e510172-ed35-5148-a7f8-03fff81b2ea8"] +}, 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[246]:=",ExpressionUUID->"7ab41717-55b0-584a-809f-945d0d693a80"], + +Cell[BoxData["0.11011611030478954`"], "Output", + CellChangeTimes->{3.9913197868648605`*^9, 3.9917079686354065`*^9}, + CellLabel-> + "Out[246]=",ExpressionUUID->"759e5be1-9cfd-ce46-9dc4-752b81633c5e"] +}, 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[247]:=",ExpressionUUID->"fde3e1f9-4cc1-8049-ba69-a2294a6452b9"], + +Cell[BoxData[ + RowBox[{"-", "2.5641364296081277`"}]], "Output", + CellChangeTimes->{3.9913197868718567`*^9, 3.991707968658518*^9}, + CellLabel-> + "Out[247]=",ExpressionUUID->"b5bf1cf3-0246-5048-8e42-9650cc3d9e60"] +}, 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.991972093618887*^9, + 3.9919720982596817`*^9}},ExpressionUUID->"622e209c-a48d-e442-88d4-\ +31c1022a52c8"], + +Cell[BoxData["18.93801245170691`"], "Output", + CellChangeTimes->{3.9913197869068584`*^9, 3.991707968678421*^9}, + CellLabel-> + "Out[248]=",ExpressionUUID->"580d9f26-e956-3547-8bc2-58d4d8b3ac06"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[249]:=",ExpressionUUID->"10ba819b-2025-9a47-9ea5-95a5611cda6a"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786940857*^9, 3.9917079686854057`*^9}, + CellLabel-> + "Out[249]=",ExpressionUUID->"46c953a3-0a25-be49-9ded-c3190caa374e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"v1", "="}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, + 3.991793106556059*^9},ExpressionUUID->"8e0c7ad3-3b58-ea40-9983-\ +94e32bbe2818"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431193859673`*^9, + 3.9918431193894367`*^9}},ExpressionUUID->"eb8d52d1-9df0-c54e-85b2-\ +4b5b928d8058"], + +Cell[BoxData[ + RowBox[{"n1", "="}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917169698218613`*^9, 3.991717907758713*^9, + 3.991793107839529*^9},ExpressionUUID->"59432052-36a9-0e4a-b136-\ +b5ef6e1cf7dc"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843120757866*^9, + 3.9918431207603054`*^9}},ExpressionUUID->"7620191d-049f-d749-807c-\ +ff7994d2bf64"], + +Cell[BoxData[ + RowBox[{"vv1", "="}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.991717916696951*^9, + 3.991793108990593*^9},ExpressionUUID->"2838c52a-e621-824e-8a28-\ +6ddd911b4320"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431220200443`*^9, + 3.9918431220220585`*^9}},ExpressionUUID->"42e257a2-6901-9d4f-a831-\ +1954f32e9186"], + +Cell[BoxData[ + RowBox[{"nn1", "="}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.991716995355715*^9, + 3.9917931103354855`*^9},ExpressionUUID->"26236e3a-fdac-eb4e-a22f-\ +56d02cebcf41"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431237966404`*^9, + 3.9918431238010616`*^9}},ExpressionUUID->"dd3588b2-9ab9-a34a-afe1-\ +cdd040915619"], + +Cell[BoxData[ + RowBox[{"v2", "="}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991717006317978*^9, + 3.9917931115739956`*^9},ExpressionUUID->"02fa1476-84ef-ac4d-a088-\ +22546d6249ff"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431249171696`*^9, + 3.991843124921198*^9}},ExpressionUUID->"5841a374-f07b-3948-b1fb-\ +c9f1f2e2508c"], + +Cell[BoxData[ + RowBox[{"n2", "="}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917170151233826`*^9, + 3.9917931128910503`*^9},ExpressionUUID->"2fad32fe-2323-a247-8df8-\ +53787ce8fe84"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843126102844*^9, + 3.991843126104536*^9}},ExpressionUUID->"1b7179f5-adc5-4a42-8f8b-\ +65c9268fc5eb"], + +Cell[BoxData[ + RowBox[{"vv2", "="}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, { + 3.9917170243815575`*^9, 3.991717046491377*^9}, + 3.991793114539028*^9},ExpressionUUID->"00d82cf5-fe39-a24b-bb7b-\ +1d0e115472c2"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918431274420605`*^9, + 3.9918431274461517`*^9}},ExpressionUUID->"dfb148c5-f80e-3f46-b88b-\ +570a723a95bc"], + +Cell[BoxData[ + RowBox[{"nn2", "="}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.991793116134735*^9},ExpressionUUID->"db5cb55e-0710-c147-81f4-\ +1d5b600a6284"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991843129570627*^9, + 3.991843129574024*^9}},ExpressionUUID->"bc012921-2f5f-014d-9378-\ +a2fad1ed7321"], + +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[258]:=",ExpressionUUID->"c0e79410-fc92-1e45-af3b-c110ed8e3abb"], + +Cell[BoxData["2.125171289585548`"], "Output", + CellChangeTimes->{3.991319787430073*^9, 3.991707979950527*^9}, + CellLabel-> + "Out[258]=",ExpressionUUID->"61f08cc0-39fa-db4e-9b24-7599ef30de22"] +}, 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[259]:=",ExpressionUUID->"5dd2eacd-c52a-fd43-adfd-9865b6491968"], + +Cell[BoxData["0.17070935194563583`"], "Output", + CellChangeTimes->{3.991319787574972*^9, 3.9917079908393784`*^9}, + CellLabel-> + "Out[259]=",ExpressionUUID->"5871324b-d5fe-804e-99ed-0d282d51f6f8"] +}, 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[260]:=",ExpressionUUID->"4ed88227-1e87-3c47-8347-5fd8655168bd"], + +Cell[BoxData[ + RowBox[{"-", "34.511403639297946`"}]], "Output", + CellChangeTimes->{3.991319787641424*^9, 3.991707995240637*^9}, + CellLabel-> + "Out[260]=",ExpressionUUID->"69e00e78-0c26-1440-9a3a-e94f8a3d4436"] +}, 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[261]:=",ExpressionUUID->"69c9ca34-ec1f-344d-935e-d99be87c6a30"], + +Cell[BoxData[ + RowBox[{"-", "83.07900804214765`"}]], "Output", + CellChangeTimes->{3.991319787711939*^9, 3.991707999380541*^9}, + CellLabel-> + "Out[261]=",ExpressionUUID->"dd600f43-aeda-474e-adc2-ff73bb8ee0d1"] +}, 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[262]:=",ExpressionUUID->"8f86ffe3-4c00-0445-be01-9f9c3bf740a4"], + +Cell[BoxData[ + RowBox[{"-", "41.56826179685921`"}]], "Output", + CellChangeTimes->{3.9913197877723045`*^9, 3.991708001954468*^9}, + CellLabel-> + "Out[262]=",ExpressionUUID->"55f1a542-9da5-9645-bb46-2c5c04b109ce"] +}, 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[263]:=",ExpressionUUID->"5220f60f-abac-c041-83b6-4ff9b963c510"], + +Cell[BoxData[ + RowBox[{"-", "203.43164082674423`"}]], "Output", + CellChangeTimes->{3.991319787833355*^9, 3.9917080040838356`*^9}, + CellLabel-> + "Out[263]=",ExpressionUUID->"3fbd24dd-e646-2c48-80cb-2c0e68ae3396"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[265]:=",ExpressionUUID->"50a59971-b8b3-904a-9a20-2d0c4a200469"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210013676`*^9, 3.991708067458639*^9}, + CellLabel-> + "Out[265]=",ExpressionUUID->"eddf556b-7952-114f-ad19-61212135319f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[266]:=",ExpressionUUID->"99b95585-fb4d-4c4e-a0a1-a7cadcf4974c"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210355663`*^9, 3.9917080674805565`*^9}, + CellLabel-> + "Out[266]=",ExpressionUUID->"925a31aa-9bd4-ec4b-918d-44895a7ffa06"] +}, 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[267]:=",ExpressionUUID->"15d5ff38-e0ad-194f-988e-5bba229258a0"], + +Cell[BoxData["172.12502478909397`"], "Output", + CellChangeTimes->{3.991320421068556*^9, 3.9917080675026455`*^9}, + CellLabel-> + "Out[267]=",ExpressionUUID->"ef896caa-532b-1c47-88e1-148365496222"] +}, 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[268]:=",ExpressionUUID->"f50ed71d-f500-b142-b06c-d815a3ba2272"], + +Cell[BoxData[ + RowBox[{"-", "113.59821940674647`"}]], "Output", + CellChangeTimes->{3.991320421098543*^9, 3.991708067510544*^9}, + CellLabel-> + "Out[268]=",ExpressionUUID->"0b7394b6-aa08-c14b-b2d8-582ab7ec833b"] +}, 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[269]:=",ExpressionUUID->"1492aaaf-0df6-6745-bf76-b9050e5655e5"], + +Cell[BoxData["98.17642406365678`"], "Output", + CellChangeTimes->{3.9913204211275444`*^9, 3.9917080675337753`*^9}, + CellLabel-> + "Out[269]=",ExpressionUUID->"5fcaa46c-385d-4040-80a1-54f36d41ad5a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[270]:=",ExpressionUUID->"226872db-ad1d-a848-a1b9-669b9495ae40"], + +Cell[BoxData["0.686923100169971`"], "Output", + CellChangeTimes->{3.9913204211385536`*^9, 3.991708067540825*^9}, + CellLabel-> + "Out[270]=",ExpressionUUID->"6afc707f-6b3a-f54b-88b4-614c0ceb18fc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[271]:=",ExpressionUUID->"3724e999-16ab-c946-a14b-a24ab296bb76"], + +Cell[BoxData[ + RowBox[{"-", "0.4218526400906269`"}]], "Output", + CellChangeTimes->{3.9913204211683464`*^9, 3.991708067561775*^9}, + CellLabel-> + "Out[271]=",ExpressionUUID->"99e4c659-a451-4146-a9de-ef890867f12e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[272]:=",ExpressionUUID->"7429d55c-fb1b-6c4a-a07c-c882ac4f265b"], + +Cell[BoxData[ + RowBox[{"-", "0.08278118592697929`"}]], "Output", + CellChangeTimes->{3.991320421199068*^9, 3.9917080675837746`*^9}, + CellLabel-> + "Out[272]=",ExpressionUUID->"25a55a1d-e64a-4748-a151-0527c259a866"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[273]:=",ExpressionUUID->"53189e64-dda1-f24f-bb2a-e33cc334a386"], + +Cell[BoxData["0.2980016292909601`"], "Output", + CellChangeTimes->{3.991320421228037*^9, 3.9917080675917854`*^9}, + CellLabel-> + "Out[273]=",ExpressionUUID->"871d7b0c-b914-3d4a-95d8-f4a3e193bd06"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[274]:=",ExpressionUUID->"2dcc97af-d52c-a140-9d24-7e2362d14431"], + +Cell[BoxData["1.4975864418719793`"], "Output", + CellChangeTimes->{3.9913204212585373`*^9, 3.991708067612774*^9}, + CellLabel-> + "Out[274]=",ExpressionUUID->"0c5e1508-483e-e945-9c69-fc92813d991f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[275]:=",ExpressionUUID->"047bb9cd-1320-254a-81b6-dbbd5bc6927e"], + +Cell[BoxData["2.555495302485258`"], "Output", + CellChangeTimes->{3.9913204212884274`*^9, 3.991708067619776*^9}, + CellLabel-> + "Out[275]=",ExpressionUUID->"e1360dcb-c05f-6341-afea-fa85f3ff2ec0"] +}, 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[276]:=",ExpressionUUID->"5f91a530-4680-9547-ba69-eda72b5cd542"], + +Cell[BoxData[ + RowBox[{"-", "10.231164697136627`"}]], "Output", + CellChangeTimes->{3.9913204213185234`*^9, 3.991708067640772*^9}, + CellLabel-> + "Out[276]=",ExpressionUUID->"e6a85d91-dd27-b74d-9965-4b613c74d080"] +}, 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[277]:=",ExpressionUUID->"79bd53a9-815b-6b44-a1c8-9e184a9e2d7f"], + +Cell[BoxData[ + RowBox[{"-", "26.106849154646998`"}]], "Output", + CellChangeTimes->{3.991320421349531*^9, 3.991708067662775*^9}, + CellLabel-> + "Out[277]=",ExpressionUUID->"79fd6291-2776-3c4c-884e-ac4ed87b9bb3"] +}, 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[278]:=",ExpressionUUID->"4d60ea42-135b-0945-9bc8-ff7080f68cbd"], + +Cell[BoxData["161.89386009195735`"], "Output", + CellChangeTimes->{3.9913204213784294`*^9, 3.991708067669775*^9}, + CellLabel-> + "Out[278]=",ExpressionUUID->"9c6da0f7-fcb9-3249-8504-9107c35ce968"] +}, 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[279]:=",ExpressionUUID->"86e3af8c-1e9e-fe48-be10-5811d3ed2f2c"], + +Cell[BoxData[ + RowBox[{"-", "113.59821940674647`"}]], "Output", + CellChangeTimes->{3.9913204213904285`*^9, 3.991708067690773*^9}, + CellLabel-> + "Out[279]=",ExpressionUUID->"e1b55829-8366-1647-927f-356a51dbcc7d"] +}, 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[280]:=",ExpressionUUID->"5e5f8981-ef44-174f-9ab1-8170c09512bd"], + +Cell[BoxData["72.06957490900979`"], "Output", + CellChangeTimes->{3.991320421419428*^9, 3.991708067697775*^9}, + CellLabel-> + "Out[280]=",ExpressionUUID->"c67e7b02-609b-c14e-9940-0d393db14863"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel-> + "In[281]:=",ExpressionUUID->"92a8600d-0ef6-b048-81ca-4cef74274975"], + +Cell[BoxData["18.449895895311947`"], "Output", + CellChangeTimes->{3.9913204214494324`*^9, 3.9917080677197742`*^9}, + CellLabel-> + "Out[281]=",ExpressionUUID->"39d5b2d2-060f-c047-9ad5-a617d92b3bfe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b1"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b1", "*", "b1"}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"5", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}]}], "*", "b2"}], "-", + RowBox[{ + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "b2", "*", "b2"}]}], + ")"}]}], ")"}]}], ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel-> + "In[282]:=",ExpressionUUID->"7e943660-5e34-9e41-8f70-f1ec78ba3955"], + +Cell[BoxData["415.25946300708097`"], "Output", + CellChangeTimes->{3.991320421481529*^9, 3.991708067726776*^9}, + CellLabel-> + "Out[282]=",ExpressionUUID->"f76a0198-0356-d543-bd9e-8d5e983db4d0"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "="}]], "Input", + CellChangeTimes->{3.991708306458519*^9, + 3.991793259431082*^9},ExpressionUUID->"3ae683e0-3adf-504a-90dd-\ +615dd0a61fd8"], + +Cell[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{{3.991708314438408*^9, 3.9917083191838818`*^9}, + 3.9917932613989296`*^9},ExpressionUUID->"4fc0783d-23dd-314f-a326-\ +64b7548d9620"], + +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[285]:=",ExpressionUUID->"dbbed097-5dfd-0340-bc2d-0bce9785fa70"], + +Cell[BoxData["2.1312101525350907`*^-53"], "Output", + CellChangeTimes->{3.99132042156752*^9, 3.991708376806082*^9}, + CellLabel-> + "Out[285]=",ExpressionUUID->"456d9a39-7fba-f04d-ad3f-598301b07b7b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + 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"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[286]:=",ExpressionUUID->"b04428b7-7b5e-9b48-87ae-3e90ee72682c"], + +Cell[BoxData["1.4858228808851638`*^-54"], "Output", + CellChangeTimes->{3.99132042159643*^9, 3.9917083768301735`*^9}, + CellLabel-> + "Out[286]=",ExpressionUUID->"c5999e66-1e94-f648-b31f-23089615bdad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + 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"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellLabel-> + "In[287]:=",ExpressionUUID->"46474706-75cc-0e49-8a10-fd571fd984c5"], + +Cell[BoxData["2.6038386215415245`*^-54"], "Output", + CellChangeTimes->{3.9913204216085243`*^9, 3.99170837683708*^9}, + CellLabel-> + "Out[287]=",ExpressionUUID->"9eb71c6d-5365-6346-92d2-98d5e0de79b8"] +}, 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->"8aa9d08b-8eaf-d24c-8d70-f4347a6f878e"], + +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->"5de7561a-c835-3849-9551-bb5f09fb8931"] +}, 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->"1ca7586b-91ab-db43-8f6b-ae28116e89ea"], + +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->"beba7504-d2e1-a34b-a313-c333191940c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[672]:=",ExpressionUUID->"bf24e662-fae9-a44f-8e27-55a893ce4fbf"], + +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->"3254ddb1-51d7-0c4b-935d-057c3f1d76a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw2"]]}]], "Input", + CellChangeTimes->{{3.992086303949501*^9, 3.992086304210249*^9}}, + CellLabel-> + "In[673]:=",ExpressionUUID->"d937b18c-e29d-2f43-8938-d6d6f836399a"], + +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->"d7d09352-2c05-664e-adfe-6b091391fe65"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw2", "*", "hw"}], "1"]}]], "Input", + CellChangeTimes->{3.992086167409481*^9}, + CellLabel-> + "In[674]:=",ExpressionUUID->"9c8cf087-9405-ba4c-848c-2560561a15d9"], + +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->"b02669f8-f1a8-2943-9a89-7343edcc9853"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[675]:=",ExpressionUUID->"39cadd0c-531d-8643-b58f-32602fc9b322"], + +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->"11285b94-1266-8642-a7e7-e61a093e4602"] +}, 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->"63e87b25-79d4-3346-a596-4a114e4195fc"], + +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->"f1652c1d-aa3a-2e42-9d4c-3e1f3c9ac5f6"] +}, 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->"e28c4c0a-4368-b445-b1ea-6ff4edd41335"], + +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->"e77bd64f-d028-c642-9f71-6c1fd3581451"] +}, 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->"7c3953e4-2c3b-6941-a7e4-314ec1ea37f2"], + +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[288]:=",ExpressionUUID->"8968449c-8b0e-4c43-b89b-9661a6b4b7b4"], + +Cell[BoxData["33.673965872471406`"], "Output", + CellChangeTimes->{3.991320421637537*^9, 3.991708376860197*^9}, + CellLabel-> + "Out[288]=",ExpressionUUID->"e8f70513-a98e-5149-b026-a7013fc48e0c"] +}, 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[289]:=",ExpressionUUID->"4070e408-f242-2749-a9a3-2554c0750a47"], + +Cell[BoxData["49.795622284896666`"], "Output", + CellChangeTimes->{3.9913204216685333`*^9, 3.9917083768681793`*^9}, + CellLabel-> + "Out[289]=",ExpressionUUID->"2a9bace2-5f5b-7543-922b-1957e9dc2125"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[290]:=",ExpressionUUID->"ea836fa5-3993-364c-859c-f1e1426f90c2"], + +Cell[BoxData["0.7402012706407647`"], "Output", + CellChangeTimes->{3.991320421698473*^9, 3.9917083768895397`*^9}, + CellLabel-> + "Out[290]=",ExpressionUUID->"0d20a6b5-4f71-d74e-954e-f8bfcf13bd0b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[291]:=",ExpressionUUID->"c1eb9e5a-df42-e143-87eb-a7c14cd6489c"], + +Cell[BoxData["2.8877805501281797`"], "Output", + CellChangeTimes->{3.991320421726494*^9, 3.9917083769120636`*^9}, + CellLabel-> + "Out[291]=",ExpressionUUID->"01e40b86-a95b-f949-a695-ad5f540daad8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[292]:=",ExpressionUUID->"fc11a4dc-800e-1040-b016-a172a6dca5d1"], + +Cell[BoxData["143.79882951585392`"], "Output", + CellChangeTimes->{3.9913204217554817`*^9, 3.9917083769190636`*^9}, + CellLabel-> + "Out[292]=",ExpressionUUID->"2e2424d7-7799-2b4b-95bc-ae946b4fd8fb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[293]:=",ExpressionUUID->"f158f63a-620a-8b45-93fe-de96c59131c3"], + +Cell[BoxData["24.92551232631708`"], "Output", + CellChangeTimes->{3.9913204217855225`*^9, 3.9917083769420624`*^9}, + CellLabel-> + "Out[293]=",ExpressionUUID->"9ddda7ea-20b5-c94f-837f-207ee8178e7d"] +}, 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->"290356b5-801a-1742-8269-ff0ab0e7a72f"], + +Cell[BoxData["0.022775763954669258`"], "Output", + CellChangeTimes->{3.9913204218154297`*^9, 3.991708376966078*^9}, + CellLabel-> + "Out[294]=",ExpressionUUID->"0e578c05-2e2b-ad42-9d2d-9ecb09bd5cc3"] +}, 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->"637830a9-4b17-0d47-8e69-3e6d73475803"], + +Cell[BoxData["5.872303105605972`"], "Output", + CellChangeTimes->{3.991320422776104*^9, 3.9917083773418655`*^9}, + CellLabel-> + "Out[295]=",ExpressionUUID->"299177f1-f9a1-af41-9869-28085ee90f1a"] +}, 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->"245e55e0-c025-d748-aa5b-d3f5a26f897a"], + +Cell[BoxData["0.012016705373490482`"], "Output", + CellChangeTimes->{3.9913204229248886`*^9, 3.9917083773678513`*^9}, + CellLabel-> + "Out[296]=",ExpressionUUID->"b5e1d2db-7bc1-604a-ba8a-cce145044a0c"] +}, 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->"87d3f053-a210-4945-9497-51f3b35fe58a"], + +Cell[BoxData["8.084482663469702`"], "Output", + CellChangeTimes->{3.9913204230053368`*^9, 3.9917083774558525`*^9}, + CellLabel-> + "Out[297]=",ExpressionUUID->"b3f6384f-9a37-5a49-8ec0-84b634cd8349"] +}, 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->"407f3978-d419-be4a-9b05-517d07c044f1"], + +Cell[BoxData["0.6366880535214177`"], "Output", + CellChangeTimes->{3.9913204230393543`*^9, 3.9917083774798565`*^9}, + CellLabel-> + "Out[298]=",ExpressionUUID->"c9e066e9-48dc-834a-bf61-59f21edf20c9"] +}, 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->"98c81204-47e0-fd47-9c8b-67e8ab12c7de"], + +Cell[BoxData["0.36331194647858245`"], "Output", + CellChangeTimes->{3.9913204230728855`*^9, 3.9917083775008526`*^9}, + CellLabel-> + "Out[299]=",ExpressionUUID->"949c6939-8996-5843-bd4e-a0723aa0e87c"] +}, 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->"f8815c5a-68ac-6143-b710-ab82cbe388c2"], + +Cell[BoxData["0.23131637602452607`"], "Output", + CellChangeTimes->{3.9913204231038837`*^9, 3.9917083775258636`*^9}, + CellLabel-> + "Out[300]=",ExpressionUUID->"05eb4440-df71-e44f-97f3-da78599dccf8"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellChangeTimes->{{3.991972340255615*^9, 3.9919723414591656`*^9}, { + 3.99197238607337*^9, + 3.991972394033249*^9}},ExpressionUUID->"c3247e8e-1dc6-bd47-b085-\ +4abc2b2cf1d2"], + +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.991795120812044*^9},ExpressionUUID->"9522bfa2-96cd-564e-b4a1-\ +30bc1fcf4125"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1594055013876604`*^-216\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 301, 87, 24485846962764810879, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204231548862`*^9, 3.9917083775522175`*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"f4680526-8058-9849-befb-e4865d4a563d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.273492597284871`*^-222\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 301, 88, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204231548862`*^9, 3.9917083775622177`*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"7b3f9a5b-c904-9f45-ae40-f6aa2ea578f0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3945594807927957`*^-227\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 301, 89, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204231548862`*^9, 3.991708377570215*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"9bd14fe4-b3cf-b14f-aa97-5dbc5cb6202b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 301, 90, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204231548862`*^9, 3.9917083775782185`*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"0ca94a44-b20e-a647-bf17-c07f630a5f3a"], + +Cell[BoxData["5.872303105605971`"], "Output", + CellChangeTimes->{3.9913204260017204`*^9, 3.9917083806494102`*^9}, + CellLabel-> + "Out[301]=",ExpressionUUID->"65e8c927-2c63-a142-8aad-58bf978b2bc7"] +}, 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.991795125308359*^9},ExpressionUUID->"61b1cdf2-7f57-2647-9828-\ +9108456d2e21"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1594055013876604`*^-216\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 302, 91, 24485846962764810879, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204262354183`*^9, 3.991708380747463*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"b3d3c42c-aed0-694c-a56a-81f4b82612ba"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.273492597284871`*^-222\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 302, 92, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204262354183`*^9, 3.991708380758997*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"2f7fcf78-2597-fc4e-9012-4d1e9a86bcce"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3945594807927957`*^-227\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 302, 93, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204262354183`*^9, 3.9917083807669945`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"3c4bf69d-6c7d-de4b-8920-9ad57cb702e9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 302, 94, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913204262354183`*^9, 3.991708380774996*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"04907cc7-b066-4045-b082-0e8636e44a75"], + +Cell[BoxData["8.084482663469705`"], "Output", + CellChangeTimes->{3.991320428882721*^9, 3.991708383647377*^9}, + CellLabel-> + "Out[302]=",ExpressionUUID->"4dba64ce-42d0-7643-94bc-f9c2e73c58e7"] +}, 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.9917951318268585`*^9},ExpressionUUID->"0ab9b507-fb4e-e24c-9d9d-\ +abe222e3c5e2"], + +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->"53a037b2-adfa-594a-9d2f-46330d412a4e"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.9917947276636543`*^9, + 3.991795135217745*^9},ExpressionUUID->"859f11c8-3e2a-dc42-8ed3-\ +71283b73bfa7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[RowBox[{\\\"8.853605365191904`*^-261\\\", \ +\\\"+\\\", RowBox[{\\\"1.2742895118713662`*^-259\\\", \\\" \\\", \\\"\ +\[ImaginaryI]\\\"}]}], \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 533, 172, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9, 3.991714940248539*^9}, + CellLabel-> + "During evaluation of \ +In[533]:=",ExpressionUUID->"158b1701-392e-9148-a6e6-d78d21579b25"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"1.150081977526622`*^-269\\\", \\\"-\\\", \ +RowBox[{\\\"8.13735877285888`*^-270\\\", \\\" \\\", \ +\\\"\[ImaginaryI]\\\"}]}], \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]}]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 533, 173, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9, 3.991714940260538*^9}, + CellLabel-> + "During evaluation of \ +In[533]:=",ExpressionUUID->"b196af72-2471-f945-b15f-a1f22b679776"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"1.4259413851482453`*^-279\\\", \\\"+\\\", \ +RowBox[{\\\"6.174183281740049`*^-280\\\", \\\" \\\", \ +\\\"\[ImaginaryI]\\\"}]}], \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]}]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 533, 174, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9, 3.991714940269535*^9}, + CellLabel-> + "During evaluation of \ +In[533]:=",ExpressionUUID->"89243bac-60d4-3b49-89bd-2c48c2d7c0d6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 533, 175, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9, 3.9917149402775383`*^9}, + CellLabel-> + "During evaluation of \ +In[533]:=",ExpressionUUID->"c3addd05-515c-5541-aadb-feb07a5771c1"], + +Cell[BoxData["$Aborted"], "Output", + CellChangeTimes->{3.9913218813523655`*^9, 3.991716043222481*^9}, + CellLabel-> + "Out[533]=",ExpressionUUID->"7bfc15da-d63d-7f47-833d-9017b6cff41e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991714709387436*^9, 3.991714738003292*^9}, { + 3.991714834117689*^9, 3.991714842328617*^9}, 3.991793311407936*^9, + 3.9917953263701286`*^9},ExpressionUUID->"60c27e2c-7c95-1e4a-ab78-\ +642e76a08b0b"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.011000000000000001`], AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, + 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.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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, 52.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9917148467316074`*^9}, + CellLabel-> + "Out[529]=",ExpressionUUID->"cc3ebc6e-15ee-8a47-b0d6-52da3e7b0833"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, + 3.99179533223897*^9}},ExpressionUUID->"7b17964f-3903-af4c-a72d-\ +552615ef4a37"], + +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"x130\\\", \\\",\\\", \ +GraphicsBox[List[List[], List[List[TagBox[List[Skeleton[2]], \ +Function[Annotation[Slot[1], \\\"Charting`Private`Tag#1\\\"]]]]], \ +List[List[], List[]]], List[Rule[DisplayFunction, Identity], \ +Rule[DisplayFunction, Identity], Rule[DisplayFunction, Identity], \ +Rule[AspectRatio, NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], \ +Rule[Axes, List[True, True]], Rule[AxesLabel, List[None, None]], \ +Rule[AxesOrigin, List[0, 0]], RuleDelayed[DisplayFunction, Identity], \ +Rule[Frame, List[List[False, False], List[False, False]]], Rule[FrameLabel, \ +List[List[None, None], List[None, None]]], Rule[FrameTicks, \ +List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ +Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"AxisPadding\\\", Scaled[0.02`]], \ +Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ +AbsolutePointSize[6]], Rule[\\\"DefaultPlotStyle\\\", \ +List[Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]]]], \ +Rule[\\\"DomainPadding\\\", Scaled[0.02`]], Rule[\\\"PointSizeFunction\\\", \ +\\\"SmallPointSize\\\"], Rule[\\\"RangePadding\\\", Scaled[0.05`]], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"IncludeHighlighting\\\", \\\ +\"CurrentPoint\\\"], Rule[\\\"HighlightStyle\\\", Automatic], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"CoordinatesToolOptions\\\", \ +List[Rule[Skeleton[2]], Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[0, \ +52.`], List[0, 0.120683`]]], Rule[PlotRangeClipping, True], \ +Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ +List[Scaled[0.02`], Scaled[0.05`]]]], Rule[Ticks, List[Automatic, \ +Automatic]]]]}], \\\"]\\\"}]\\).\"", 2, 532, 171, 24485846962764810879, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{{3.9917148948888054`*^9, 3.991714918948065*^9}}, + CellLabel-> + "During evaluation of \ +In[532]:=",ExpressionUUID->"63142347-0535-0246-bb25-8a2a2b48d7ca"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x130", ",", + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.011000000000000001`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, + 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.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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, 52.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]}], "]"}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}}, + CellLabel-> + "Out[532]=",ExpressionUUID->"2ddcecd6-64a5-6e48-8c61-882e10c0065a"] +}, Closed]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{ + FractionBox["1", "2"], + RowBox[{"(", + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"Cw", "*", "\[Pi]"}], ")"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9917953353381157`*^9},ExpressionUUID->"982133ce-0d36-4d45-a387-\ +ff35350b5cb9"], + +Cell[BoxData["10.627292063383525`"], "Output", + CellChangeTimes->{3.9913229040054893`*^9, 3.9917087761038074`*^9}, + CellLabel-> + "Out[303]=",ExpressionUUID->"bf4aa3c8-c644-2f48-80dc-1b5d3e2169d4"] +}, 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.991795437556492*^9},ExpressionUUID->"90b7f5f1-808a-1b4d-aa45-\ +edfd6d6a25f8"], + +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->"b35d0e82-bb6d-3542-ab8b-ccb436f9a8d8"], + +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->"5ff9501d-78d7-7141-a437-5dd9f758c909"], + +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->"0c4bed13-3785-d84a-8693-17cc81ace1e2"], + +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->"371084ac-a371-9848-9c63-34bb732ea61a"], + +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->"498a6190-c65d-fd44-a483-d79a44a15949"] +}, 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[305]:=",ExpressionUUID->"eea9d904-4069-4649-bea7-08e03245dd6c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.309715528933026`*^-184\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 305, 99, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323664732767*^9, 3.99170890340884*^9}, + CellLabel-> + "During evaluation of \ +In[305]:=",ExpressionUUID->"f6942d2b-1935-ce45-9eba-1218d93c5fe3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.907153735473414`*^-188\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 305, 100, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323664732767*^9, 3.991708903419855*^9}, + CellLabel-> + "During evaluation of \ +In[305]:=",ExpressionUUID->"167a8bf3-70f7-1c4e-96cc-24c67ead632a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0425594616274893`*^-191\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 305, 101, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323664732767*^9, 3.99170890342688*^9}, + CellLabel-> + "During evaluation of \ +In[305]:=",ExpressionUUID->"038f97d9-5635-d243-bc57-4be91e08fd14"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 305, 102, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323664732767*^9, 3.991708903434841*^9}, + CellLabel-> + "During evaluation of \ +In[305]:=",ExpressionUUID->"f7ddd7d6-d715-2149-9192-e6e54f994bf9"], + +Cell[BoxData["10.627292063383527`"], "Output", + CellChangeTimes->{3.9913236764669056`*^9, 3.991708909801548*^9}, + CellLabel-> + "Out[305]=",ExpressionUUID->"4fea8a21-ea7c-524f-ad6d-9d8516601f03"] +}, 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.9917953473881397`*^9, 3.9917953498651447`*^9}, + 3.991795392697935*^9},ExpressionUUID->"3915107a-86d9-0f46-b139-\ +986db5ca6b3b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1594055013876604`*^-216\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 306, 103, 24485846962764810879, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236765399036`*^9, 3.991708909851534*^9}, + CellLabel-> + "During evaluation of \ +In[306]:=",ExpressionUUID->"dae61f02-18ea-a447-aa9a-3c4085f2c9f9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.273492597284871`*^-222\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 306, 104, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236765399036`*^9, 3.9917089098605328`*^9}, + CellLabel-> + "During evaluation of \ +In[306]:=",ExpressionUUID->"bd9df418-5c98-8c4b-942b-69cfdd942ea2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3945594807927957`*^-227\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 306, 105, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236765399036`*^9, 3.9917089098695354`*^9}, + CellLabel-> + "During evaluation of \ +In[306]:=",ExpressionUUID->"b05bbe77-656b-3542-8f6f-f51eeb980d5e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 306, 106, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913236765399036`*^9, 3.991708909877537*^9}, + CellLabel-> + "During evaluation of \ +In[306]:=",ExpressionUUID->"aef425fc-a2ce-1843-8bef-20a06a28cc20"], + +Cell[BoxData["0.2260739757151122`"], "Output", + CellChangeTimes->{3.9913236883162384`*^9, 3.991708915455509*^9}, + CellLabel-> + "Out[306]=",ExpressionUUID->"8a69f3e4-efcf-6249-8505-a6b5d11b9f54"] +}, 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.991795355482418*^9, + 3.991795359037939*^9}},ExpressionUUID->"f3705611-962a-7d49-8494-\ +287e0d1eefa8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1594055013876604`*^-216\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 307, 107, 24485846962764810879, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132368839011*^9, 3.9917089154944935`*^9}, + CellLabel-> + "During evaluation of \ +In[307]:=",ExpressionUUID->"5e178919-9cf0-ac45-87b2-eaf189f9416b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.273492597284871`*^-222\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 307, 108, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132368839011*^9, 3.9917089155044937`*^9}, + CellLabel-> + "During evaluation of \ +In[307]:=",ExpressionUUID->"c8c43206-f2bb-ab48-9546-3aed8ebd1dcd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3945594807927957`*^-227\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 307, 109, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132368839011*^9, 3.991708915514496*^9}, + CellLabel-> + "During evaluation of \ +In[307]:=",ExpressionUUID->"c958a03d-0c1b-c74b-a9f2-bb628b87f1a7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 307, 110, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99132368839011*^9, 3.991708915523493*^9}, + CellLabel-> + "During evaluation of \ +In[307]:=",ExpressionUUID->"6f03fbd5-dcac-9c41-9119-2c9486f681e2"], + +Cell[BoxData["9.422377094778273`"], "Output", + CellChangeTimes->{3.9913236988049507`*^9, 3.9917089191072826`*^9}, + CellLabel-> + "Out[307]=",ExpressionUUID->"507fbc8b-c1fa-0f44-8dbb-3f1ee1226052"] +}, 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.991795365232689*^9, + 3.991795367348419*^9}},ExpressionUUID->"1c2bb25c-a24b-4143-a03c-\ +8699409c5ef4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1594055013876604`*^-216\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 308, 111, 24485846962764810879, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698915848*^9, 3.991708919139282*^9}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"f14e1821-d6f6-9748-a381-88bb6ed09b0f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.273492597284871`*^-222\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 308, 112, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698915848*^9, 3.9917089191482677`*^9}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"831dbe9b-2d94-8949-9905-b6299cd5cfbb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3945594807927957`*^-227\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 308, 113, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698915848*^9, 3.9917089191572685`*^9}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"b74c2d50-6b92-524d-9a2f-0df31e0a5942"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 308, 114, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991323698915848*^9, 3.9917089191662655`*^9}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"d2b87ee4-3849-3848-8231-476288e5e8a5"], + +Cell[BoxData["17.858625133306074`"], "Output", + CellChangeTimes->{3.991323706795576*^9, 3.991708921519884*^9}, + CellLabel-> + "Out[308]=",ExpressionUUID->"1f9599fe-acbe-c146-bf37-8492663797c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991795377777033*^9, + 3.9917953861610203`*^9}},ExpressionUUID->"df5a49d1-7ffc-9d41-9de9-\ +b2cb4ed5c458"], + +Cell[BoxData["0.017427950615406845`"], "Output", + CellChangeTimes->{3.991323706858589*^9, 3.9917089215598965`*^9}, + CellLabel-> + "Out[309]=",ExpressionUUID->"5b12bbb1-2534-c04f-9206-3fa4c528fbbc"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991795400313652*^9, 3.991795402535782*^9}, + 3.9919235486175213`*^9},ExpressionUUID->"f1e753e6-7de9-0b47-aa25-\ +47e49d9ceac1"], + +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[312]:=",ExpressionUUID->"24c8f2e4-3fba-8b49-a53c-9297f14cb47a"], + +Cell[BoxData["13.728880586425175`"], "Output", + CellChangeTimes->{3.991323706886154*^9, 3.9917089973478775`*^9}, + CellLabel-> + "Out[312]=",ExpressionUUID->"98ae9ddb-8318-674e-80c9-7e140dcac1b0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[314]:=",ExpressionUUID->"56d70fe5-9e2b-c64e-bfc2-fde134e22b5d"], + +Cell[BoxData["1.159256117025567`"], "Output", + CellChangeTimes->{3.9913237069236546`*^9, 3.9917089973924427`*^9}, + CellLabel-> + "Out[314]=",ExpressionUUID->"73a9f922-95ea-2b43-bf67-74680f371172"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[317]:=",ExpressionUUID->"4acc66ff-efd9-9749-a32c-ab2aed359d56"], + +Cell[BoxData["15.91528879972694`"], "Output", + CellChangeTimes->{3.9913237069753113`*^9, 3.99170899744343*^9}, + CellLabel-> + "Out[317]=",ExpressionUUID->"981c6b4f-3ed8-234c-af7f-12febe378c99"] +}, 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[318]:=",ExpressionUUID->"b77d1393-1706-0344-94ba-b60790e869c9"], + +Cell[BoxData["0.02865649962164857`"], "Output", + CellChangeTimes->{3.991323707000412*^9, 3.991708997465433*^9}, + CellLabel-> + "Out[318]=",ExpressionUUID->"a7e2294b-e75d-4747-b07f-caeec25593bb"] +}, 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[319]:=",ExpressionUUID->"d3dc886c-76ef-e140-8bf7-ae2b35b15037"], + +Cell[BoxData["5.235201118822964`"], "Output", + CellChangeTimes->{3.991323707203314*^9, 3.991708997556095*^9}, + CellLabel-> + "Out[319]=",ExpressionUUID->"39075a12-e1b0-dd45-bb8f-a5cf418898ce"] +}, 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[320]:=",ExpressionUUID->"a2a617e0-a59a-4147-bc6f-17a0446bc938"], + +Cell[BoxData["0.013475770149867995`"], "Output", + CellChangeTimes->{3.9913237072224197`*^9, 3.9917089975825768`*^9}, + CellLabel-> + "Out[320]=",ExpressionUUID->"080dedf4-608b-784c-8095-92f61780909f"] +}, 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[321]:=",ExpressionUUID->"764ea9ee-2dee-8949-964f-92b7fcc0b4f1"], + +Cell[BoxData["7.634281035327282`"], "Output", + CellChangeTimes->{3.991323707432623*^9, 3.991708997674572*^9}, + CellLabel-> + "Out[321]=",ExpressionUUID->"a5e88e9c-1ebc-a943-922b-32e11652b414"] +}, 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[322]:=",ExpressionUUID->"8de6527c-f379-114f-be34-ffaf646fc19c"], + +Cell[BoxData["0.6366880535214177`"], "Output", + CellChangeTimes->{3.9913237074497375`*^9, 3.9917089977023544`*^9}, + CellLabel-> + "Out[322]=",ExpressionUUID->"89a45800-1a51-ff40-8231-4f1dbc8bf045"] +}, 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[323]:=",ExpressionUUID->"bcbbe365-5317-404f-8cca-b17046887210"], + +Cell[BoxData["0.36331194647858245`"], "Output", + CellChangeTimes->{3.991323707467621*^9, 3.991708997725395*^9}, + CellLabel-> + "Out[323]=",ExpressionUUID->"8227fe2a-0032-8f43-8d97-0ae8dad9a493"] +}, 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[324]:=",ExpressionUUID->"c57327ef-c920-754d-8029-af14560ebe8f"], + +Cell[BoxData["0.23131637602452607`"], "Output", + CellChangeTimes->{3.991323707488617*^9, 3.9917089977477455`*^9}, + CellLabel-> + "Out[324]=",ExpressionUUID->"dcd656ae-1e68-194a-83cc-3a21431e11fa"] +}, 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.99179485681155*^9},ExpressionUUID->"670d91c8-ce08-f444-b144-138ebae0f868"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.509576717382357`*^-196\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 325, 115, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237075117207`*^9, 3.991708997774729*^9}, + CellLabel-> + "During evaluation of \ +In[325]:=",ExpressionUUID->"35f9fd51-3342-bd4a-a255-ef6f0342c244"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.889379903707528`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 325, + 116, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237075117207`*^9, 3.991708997783745*^9}, + CellLabel-> + "During evaluation of \ +In[325]:=",ExpressionUUID->"37eadcc8-b14a-e743-8e0a-c2ed5bf94bef"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.8093096327513717`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 325, + 117, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237075117207`*^9, 3.9917089977927303`*^9}, + CellLabel-> + "During evaluation of \ +In[325]:=",ExpressionUUID->"81d41f16-030a-e24b-b732-f8816d863b10"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 325, 118, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237075117207`*^9, 3.991708997801733*^9}, + CellLabel-> + "During evaluation of \ +In[325]:=",ExpressionUUID->"81c06ac5-a0a8-7344-a9ed-db535505b5ba"], + +Cell[BoxData["5.235201118822954`"], "Output", + CellChangeTimes->{3.9913237161181736`*^9, 3.991709001238739*^9}, + CellLabel-> + "Out[325]=",ExpressionUUID->"bec50fae-ff8e-b342-8dc1-e0f019aca06c"] +}, 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.99179697882374*^9},ExpressionUUID->"862c274e-f293-6a41-8f4f-719ed57da8ce"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.509576717382357`*^-196\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 326, 119, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237161871567`*^9, 3.991709001285738*^9}, + CellLabel-> + "During evaluation of \ +In[326]:=",ExpressionUUID->"b24ec752-691b-9e46-9e12-41426d5a1496"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.889379903707528`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 326, + 120, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237161871567`*^9, 3.991709001294739*^9}, + CellLabel-> + "During evaluation of \ +In[326]:=",ExpressionUUID->"976838b0-e209-5643-abb9-346ac4cbdf93"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.8093096327513717`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 326, + 121, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237161871567`*^9, 3.991709001302742*^9}, + CellLabel-> + "During evaluation of \ +In[326]:=",ExpressionUUID->"358b771e-09d7-964c-8b93-703e5579bb7f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 326, 122, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913237161871567`*^9, 3.991709001311737*^9}, + CellLabel-> + "During evaluation of \ +In[326]:=",ExpressionUUID->"dc495a5d-d258-0641-8f11-30570c0a20cf"], + +Cell[BoxData["7.634281035327276`"], "Output", + CellChangeTimes->{3.991323724852854*^9, 3.9917090047631493`*^9}, + CellLabel-> + "Out[326]=",ExpressionUUID->"f421afac-42a5-c84a-9348-c5e090b0f190"] +}, 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.9918466101881027`*^9},ExpressionUUID->"00de6621-4f9e-8a45-8ea8-\ +edabb8e777e0"], + +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->"982443ca-3c49-3842-942f-56dbbe6e860e"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.99179699111117*^9, + 3.991797003874716*^9}},ExpressionUUID->"f5360edc-957d-9f48-b8b4-\ +746fa181d4a5"], + +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->"16f95f8d-163b-784d-a7d4-d9be610470a4"], + +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->"668c7d88-6569-8648-b105-a03fa8ae5c99"], + +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->"ebfa0449-48eb-8345-a082-4900c9d8a835"], + +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->"54d7d346-3c8b-ea45-a47e-efd92955cab4"], + +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->"ec297bd0-74ba-874e-beda-39d943d34a34"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991797019894987*^9, + 3.99179702451466*^9}},ExpressionUUID->"b422dcab-ec5f-5543-9fba-\ +aafac96e937c"], + +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[328]:=",ExpressionUUID->"143d6afa-76a8-b440-a2a9-2759769b081f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.938169890743013`*^-175\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 328, 123, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9, 3.9917091704635696`*^9}, + CellLabel-> + "During evaluation of \ +In[328]:=",ExpressionUUID->"4237e138-f145-b443-83e0-43390364f340"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.17889047361004`*^-178\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 328, 124, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9, 3.991709170478571*^9}, + CellLabel-> + "During evaluation of \ +In[328]:=",ExpressionUUID->"f1817fe7-de7f-424a-8c32-fd6eb18ad55d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6987772228196017`*^-181\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 328, 125, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9, 3.9917091704865704`*^9}, + CellLabel-> + "During evaluation of \ +In[328]:=",ExpressionUUID->"d01422f2-ac30-d647-9174-416a2de0acdd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 328, 126, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9, 3.9917091704955845`*^9}, + CellLabel-> + "During evaluation of \ +In[328]:=",ExpressionUUID->"1cc939d5-2041-e346-853b-0da1f5d3fdb3"], + +Cell[BoxData["10.62729206338334`"], "Output", + CellChangeTimes->{3.991326513010317*^9, 3.991709175908993*^9}, + CellLabel-> + "Out[328]=",ExpressionUUID->"be53344f-c49c-d340-8fe2-187c78764ee3"] +}, 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.9917970149184284`*^9, + 3.991797037687023*^9}},ExpressionUUID->"2e239e43-8455-8947-be70-\ +b8e43bbe859a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.509576717382357`*^-196\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 329, 127, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265130447063`*^9, 3.991709175963011*^9}, + CellLabel-> + "During evaluation of \ +In[329]:=",ExpressionUUID->"376bc77a-50fd-0d47-9681-2bc434722c43"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.889379903707528`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 329, + 128, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265130447063`*^9, 3.991709175973011*^9}, + CellLabel-> + "During evaluation of \ +In[329]:=",ExpressionUUID->"2efa0725-97f0-1746-a14f-4d0ef984c116"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.8093096327513717`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 329, + 129, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265130447063`*^9, 3.991709175983019*^9}, + CellLabel-> + "During evaluation of \ +In[329]:=",ExpressionUUID->"3247c80e-edc6-e745-8fee-5b551559a9ce"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 329, 130, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265130447063`*^9, 3.9917091759920235`*^9}, + CellLabel-> + "During evaluation of \ +In[329]:=",ExpressionUUID->"5e6cbab7-7762-ef49-bbd5-8d0e64879c32"], + +Cell[BoxData["1.1698825507998156`"], "Output", + CellChangeTimes->{3.9913265201819115`*^9, 3.9917091805041294`*^9}, + CellLabel-> + "Out[329]=",ExpressionUUID->"14e4c193-7d63-6f44-b586-9c58b6278944"] +}, 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.9917970412382812`*^9, + 3.991797045066601*^9}},ExpressionUUID->"99e346c1-cf6d-8f4a-b6fb-\ +39037ee79c0a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.509576717382357`*^-196\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 330, 131, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326520216116*^9, 3.991709180543247*^9}, + CellLabel-> + "During evaluation of \ +In[330]:=",ExpressionUUID->"b53712a8-b3d6-1f4e-8898-5e6ce60da8c7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.889379903707528`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 330, + 132, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326520216116*^9, 3.9917091805532475`*^9}, + CellLabel-> + "During evaluation of \ +In[330]:=",ExpressionUUID->"5dee7001-7024-b140-89a6-01103fff2a2b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.8093096327513717`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 330, + 133, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326520216116*^9, 3.9917091805632515`*^9}, + CellLabel-> + "During evaluation of \ +In[330]:=",ExpressionUUID->"f711f4eb-2b29-5047-8426-bced102f0fee"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 330, 134, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326520216116*^9, 3.9917091805722485`*^9}, + CellLabel-> + "During evaluation of \ +In[330]:=",ExpressionUUID->"b2bdb7ab-4d79-044f-8a69-305a4f35a1be"], + +Cell[BoxData["7.488766577772476`"], "Output", + CellChangeTimes->{3.9913265264075394`*^9, 3.9917091848753357`*^9}, + CellLabel-> + "Out[330]=",ExpressionUUID->"635433e0-898b-ef4f-97c3-27cb9c864fdc"] +}, 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.9917970522453213`*^9, + 3.991797055966772*^9}},ExpressionUUID->"867b2dc8-7ef3-234b-80bd-\ +e701484a92f5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.509576717382357`*^-196\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 331, 135, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265264435444`*^9, 3.9917091849153366`*^9}, + CellLabel-> + "During evaluation of \ +In[331]:=",ExpressionUUID->"5521676c-b5e4-1145-b679-3dc06940bc52"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.889379903707528`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 331, + 136, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265264435444`*^9, 3.9917091849253387`*^9}, + CellLabel-> + "During evaluation of \ +In[331]:=",ExpressionUUID->"88c4b1ae-962d-3b4a-a9c8-1101d0b0bcfc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.8093096327513717`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 331, + 137, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265264435444`*^9, 3.9917091849343395`*^9}, + CellLabel-> + "During evaluation of \ +In[331]:=",ExpressionUUID->"56a57c6b-07a8-f146-b18a-9a7e9cc34f3a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 331, 138, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265264435444`*^9, 3.99170918494335*^9}, + CellLabel-> + "During evaluation of \ +In[331]:=",ExpressionUUID->"ec38de78-337d-2648-bf83-eb09a46b18b3"], + +Cell[BoxData["15.925014616300276`"], "Output", + CellChangeTimes->{3.9913265299431496`*^9, 3.9917091876094093`*^9}, + CellLabel-> + "Out[331]=",ExpressionUUID->"b1693ef0-2cab-0142-884b-588173786ea2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991797060470949*^9, + 3.9917970642464314`*^9}},ExpressionUUID->"b1cee125-11a3-8a43-b076-\ +a72829d187d3"], + +Cell[BoxData["0.10712656920120021`"], "Output", + CellChangeTimes->{3.991326529975149*^9, 3.991709187637409*^9}, + CellLabel-> + "Out[332]=",ExpressionUUID->"0df6ed8f-8670-fa47-923c-919d6c136038"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.99179708384041*^9, 3.991797089031517*^9}, + 3.991923586725128*^9},ExpressionUUID->"e87cb7b6-2d4f-2b46-b7dc-\ +f61f4036bef1"], + +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[334]:=",ExpressionUUID->"dafb41d5-8379-5e45-a5a7-0828c3048eab"], + +Cell[BoxData["20.157626483814337`"], "Output", + CellChangeTimes->{3.9913265300040226`*^9, 3.9917092389246387`*^9}, + CellLabel-> + "Out[334]=",ExpressionUUID->"c881c11d-abad-0d49-99e0-f303d09aef0a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[336]:=",ExpressionUUID->"3d6ec365-065c-9046-b32d-db356c9d51fa"], + +Cell[BoxData["0.9567032806265168`"], "Output", + CellChangeTimes->{3.991326530052025*^9, 3.991709238967621*^9}, + CellLabel-> + "Out[336]=",ExpressionUUID->"9caa35c4-53d8-fa45-a312-698f5ed5b1e5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[339]:=",ExpressionUUID->"c7dc55d1-f163-224f-bef1-731f35b2237f"], + +Cell[BoxData["19.284867386709134`"], "Output", + CellChangeTimes->{3.9913265300922585`*^9, 3.9917092390388947`*^9}, + CellLabel-> + "Out[339]=",ExpressionUUID->"833d0ac6-4c09-d440-8bc3-d5df9ca76865"] +}, 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[340]:=",ExpressionUUID->"ae1da06e-d004-c94e-a60b-5d6c8a81d4a0"], + +Cell[BoxData["0.02613308078261745`"], "Output", + CellChangeTimes->{3.9913265301172295`*^9, 3.991709239061901*^9}, + CellLabel-> + "Out[340]=",ExpressionUUID->"0382a191-ad63-844a-8759-086853e23ce5"] +}, 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[341]:=",ExpressionUUID->"711641aa-bfb1-b442-a8a1-7f2d92e52258"], + +Cell[BoxData["5.482133853543194`"], "Output", + CellChangeTimes->{3.991326530210228*^9, 3.991709239151787*^9}, + CellLabel-> + "Out[341]=",ExpressionUUID->"219c4b04-20e8-3f41-8e84-a455d4da6bdc"] +}, 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[342]:=",ExpressionUUID->"03560694-f256-804d-bdf2-150141b736fd"], + +Cell[BoxData["0.012890445116466177`"], "Output", + CellChangeTimes->{3.9913265302252293`*^9, 3.991709239183817*^9}, + CellLabel-> + "Out[342]=",ExpressionUUID->"b204ec83-ad19-5349-8b02-7defd6db0df8"] +}, 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[343]:=",ExpressionUUID->"41fd6fe5-afbf-ed41-96d1-404a404fc933"], + +Cell[BoxData["7.805684323619363`"], "Output", + CellChangeTimes->{3.9913265303172264`*^9, 3.9917092392730465`*^9}, + CellLabel-> + "Out[343]=",ExpressionUUID->"c15b8bac-d390-9f42-a7c0-c761ed162cd9"] +}, 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[344]:=",ExpressionUUID->"1ffc2e4a-e112-f841-8653-59d1c97f1323"], + +Cell[BoxData["0.6366880535214177`"], "Output", + CellChangeTimes->{3.9913265303292294`*^9, 3.9917092392950573`*^9}, + CellLabel-> + "Out[344]=",ExpressionUUID->"c7904c57-9026-5d42-a13c-7cf9c291f02e"] +}, 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[345]:=",ExpressionUUID->"c98e90b4-3450-674d-a534-9abe2866d10f"], + +Cell[BoxData["0.36331194647858245`"], "Output", + CellChangeTimes->{3.991326530340416*^9, 3.9917092393180447`*^9}, + CellLabel-> + "Out[345]=",ExpressionUUID->"07fee721-d71d-e947-a10f-a3d491f5375c"] +}, 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[346]:=",ExpressionUUID->"3a1b0a64-3226-5845-846d-8f00794d5760"], + +Cell[BoxData["0.23131637602452607`"], "Output", + CellChangeTimes->{3.991326530367384*^9, 3.9917092393410416`*^9}, + CellLabel-> + "Out[346]=",ExpressionUUID->"61d2bf74-dc83-444c-9d85-173366eb4115"] +}, 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.9917970976395664`*^9},ExpressionUUID->"157a27fc-8a7f-ef4c-bd2d-\ +9f444415254b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.577411676886291`*^-203\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 347, 139, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265303923836`*^9, 3.9917092393670444`*^9}, + CellLabel-> + "During evaluation of \ +In[347]:=",ExpressionUUID->"0c8f7a0d-d84f-5048-ba48-794ef1d00127"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.671132252200372`*^-207\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 347, 140, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265303923836`*^9, 3.991709239377041*^9}, + CellLabel-> + "During evaluation of \ +In[347]:=",ExpressionUUID->"e0f5c7bd-1699-2c49-bf84-66232a770396"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2458692591161135`*^-212\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 347, 141, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265303923836`*^9, 3.9917092393860435`*^9}, + CellLabel-> + "During evaluation of \ +In[347]:=",ExpressionUUID->"650d4e60-de9d-c448-9e55-c9a2ff3adfbd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 347, 142, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265303923836`*^9, 3.9917092393950424`*^9}, + CellLabel-> + "During evaluation of \ +In[347]:=",ExpressionUUID->"02aaa7f6-e3fa-f246-ae96-c2637dc36a8a"], + +Cell[BoxData["5.482133853543194`"], "Output", + CellChangeTimes->{3.9913265339749985`*^9, 3.991709242710472*^9}, + CellLabel-> + "Out[347]=",ExpressionUUID->"e85ac070-0188-1a40-a36b-aa73ff8bf583"] +}, 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.991797103207548*^9},ExpressionUUID->"11801718-69ec-bf4e-86d8-\ +e9949dfbcff4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.577411676886291`*^-203\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 348, 143, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340092525`*^9, 3.9917092427514687`*^9}, + CellLabel-> + "During evaluation of \ +In[348]:=",ExpressionUUID->"92fdcdbe-704c-8643-ac44-6336f3afd685"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.671132252200372`*^-207\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 348, 144, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340092525`*^9, 3.9917092427604694`*^9}, + CellLabel-> + "During evaluation of \ +In[348]:=",ExpressionUUID->"22fb307d-fe2e-4e40-aecb-68b60c56d53f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2458692591161135`*^-212\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 348, 145, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340092525`*^9, 3.9917092427704697`*^9}, + CellLabel-> + "During evaluation of \ +In[348]:=",ExpressionUUID->"fe4891cd-9e5e-304f-b8fa-b9a722a2b0ed"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 348, 146, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265340092525`*^9, 3.9917092427794952`*^9}, + CellLabel-> + "During evaluation of \ +In[348]:=",ExpressionUUID->"3700feb7-ec5c-144b-8683-e9364219ca8f"], + +Cell[BoxData["7.805684323619356`"], "Output", + CellChangeTimes->{3.9913265375649567`*^9, 3.991709245963009*^9}, + CellLabel-> + "Out[348]=",ExpressionUUID->"8b9d1dc2-78af-9e49-aad9-8e9bc3b553be"] +}, 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.9918466101881027`*^9},ExpressionUUID->"8fb4818f-77bf-6445-8230-\ +c17265c2e6e9"], + +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->"e447a546-4e4c-eb42-b69e-2528d5182b13"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9917971087080173`*^9, + 3.9917971122297535`*^9}},ExpressionUUID->"4d882d59-3e42-1040-97a9-\ +33dddc2b9855"], + +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->"20149181-1e2c-4b41-b02e-304cc98619fd"], + +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->"44ce87a6-827a-304b-86da-3cdac8e926dc"], + +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->"b6629f6a-df4e-5a42-a25e-15825d979765"], + +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->"5b7f13bb-27ba-5041-8f22-5700d1dce8b8"], + +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->"ed04804c-1f60-394e-87d4-29e6f5f16859"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917971206132183`*^9, + 3.9917971229936733`*^9}},ExpressionUUID->"715f943f-d061-fa48-bb45-\ +20a62a80a7df"], + +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[350]:=",ExpressionUUID->"804e6c9f-1b36-2141-acb9-3b729fb7abb0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1387495820703128`*^-176\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 350, 147, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9, 3.9917093711796627`*^9}, + CellLabel-> + "During evaluation of \ +In[350]:=",ExpressionUUID->"47145e38-56d2-404b-b2c9-a4c6bd4713fc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.041608798521609`*^-180\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 350, 148, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9, 3.9917093711906605`*^9}, + CellLabel-> + "During evaluation of \ +In[350]:=",ExpressionUUID->"c894df32-367b-2344-a42a-d2aaa61a6442"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4344331657703033`*^-183\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 350, 149, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9, 3.99170937119866*^9}, + CellLabel-> + "During evaluation of \ +In[350]:=",ExpressionUUID->"dd94c528-2deb-d443-8dc9-050571e0f325"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 350, 150, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9, 3.991709371206663*^9}, + CellLabel-> + "During evaluation of \ +In[350]:=",ExpressionUUID->"23602150-0799-1542-bae7-7ae74cb1ca39"], + +Cell[BoxData["10.627292063383521`"], "Output", + CellChangeTimes->{3.9913279159698696`*^9, 3.9917093778765774`*^9}, + CellLabel-> + "Out[350]=",ExpressionUUID->"283063f8-35c9-364f-a699-de6e0a543cf7"] +}, 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.9917971275265427`*^9, + 3.991797131794855*^9}},ExpressionUUID->"9b45c184-4df7-db4d-adb2-\ +01f19f0f15b0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.577411676886291`*^-203\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 351, 151, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327916008396*^9, 3.991709377917576*^9}, + CellLabel-> + "During evaluation of \ +In[351]:=",ExpressionUUID->"a788a2f4-d4f1-2443-8afb-75cfb56de955"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.671132252200372`*^-207\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 351, 152, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327916008396*^9, 3.991709377927576*^9}, + CellLabel-> + "During evaluation of \ +In[351]:=",ExpressionUUID->"be132617-3a6c-7243-9ffe-8f7551dfb0f4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2458692591161135`*^-212\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 351, 153, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327916008396*^9, 3.9917093779375763`*^9}, + CellLabel-> + "During evaluation of \ +In[351]:=",ExpressionUUID->"0d46806c-287f-8f45-adf8-aa98d149c28b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 351, 154, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327916008396*^9, 3.9917093779455757`*^9}, + CellLabel-> + "During evaluation of \ +In[351]:=",ExpressionUUID->"7c6c4499-aad8-2745-a278-f3d39e8c21d9"], + +Cell[BoxData["0.7070855058258385`"], "Output", + CellChangeTimes->{3.991327922931429*^9, 3.99170938241395*^9}, + CellLabel-> + "Out[351]=",ExpressionUUID->"9d6b69a4-8782-c54e-b077-f0b89827acb9"] +}, 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.9917971357813015`*^9, + 3.991797138809105*^9}},ExpressionUUID->"00ca455f-f3f6-2c4f-8927-\ +9e8c2d28dafd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.577411676886291`*^-203\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 352, 155, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279229664307`*^9, 3.9917093824549503`*^9}, + CellLabel-> + "During evaluation of \ +In[352]:=",ExpressionUUID->"58cce6cc-55d6-8447-b0af-98545f6e8b94"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.671132252200372`*^-207\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 352, 156, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279229664307`*^9, 3.9917093824649506`*^9}, + CellLabel-> + "During evaluation of \ +In[352]:=",ExpressionUUID->"a8dc6fa7-2ffc-a94c-acac-c04ec7ca9ce4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2458692591161135`*^-212\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 352, 157, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279229664307`*^9, 3.9917093824741554`*^9}, + CellLabel-> + "During evaluation of \ +In[352]:=",ExpressionUUID->"9072d850-7d12-7542-9452-001fb3ad3caa"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 352, 158, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279229664307`*^9, 3.991709382483162*^9}, + CellLabel-> + "During evaluation of \ +In[352]:=",ExpressionUUID->"5b507f90-a99e-494e-8b83-58443f9760dd"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"8.211884331115483`", " "}]], "Input", + CellChangeTimes->{{3.9917094784975224`*^9, + 3.991709478503729*^9}},ExpressionUUID->"8cac9b30-e121-024d-91d3-\ +cf92fd4a988a"], + +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.9917971437506504`*^9, + 3.991797147210884*^9}},ExpressionUUID->"b454660a-890c-f24b-923b-\ +563bff174231"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.577411676886291`*^-203\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 353, 159, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928854006*^9, 3.99170938660993*^9}, + CellLabel-> + "During evaluation of \ +In[353]:=",ExpressionUUID->"8119867f-f85f-364e-8254-1ef6052311fc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.671132252200372`*^-207\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 353, 160, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928854006*^9, 3.991709386619932*^9}, + CellLabel-> + "During evaluation of \ +In[353]:=",ExpressionUUID->"c0c54d2a-f8dc-8e40-838e-476f912b22f3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2458692591161135`*^-212\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 353, 161, + 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928854006*^9, 3.9917093866289444`*^9}, + CellLabel-> + "During evaluation of \ +In[353]:=",ExpressionUUID->"02b3b0aa-3c27-2340-a0f3-fddaabda96cb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 353, 162, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327928854006*^9, 3.9917093866369305`*^9}, + CellLabel-> + "During evaluation of \ +In[353]:=",ExpressionUUID->"34c92b2b-5689-2d44-aa86-39776cc9979f"], + +Cell[BoxData["16.648132369643353`"], "Output", + CellChangeTimes->{3.9913279320131683`*^9, 3.9917093893412666`*^9}, + CellLabel-> + "Out[353]=",ExpressionUUID->"2b7d55d3-b0f9-2446-a1be-cbacdaca9c16"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9917971542239857`*^9, + 3.9917971576817684`*^9}},ExpressionUUID->"673f44c9-71c5-b64a-9ddb-\ +ff434e6a2570"], + +Cell[BoxData["0.06047387015151299`"], "Output", + CellChangeTimes->{3.9913279320452003`*^9, 3.9917093893762684`*^9}, + CellLabel-> + "Out[354]=",ExpressionUUID->"16796d12-1b0d-d745-b4a7-59e302a2c068"] +}, 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->"3e00b719-7d57-4247-80f9-54af9e03f9d1" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 229, 5, 22, "Input",ExpressionUUID->"05f0731c-d41f-bc4e-b3a5-fe37ee9edd84"], +Cell[808, 29, 149, 2, 25, "Output",ExpressionUUID->"59710435-e1fd-814a-bd23-6a3a082f9166"] +}, Open ]], +Cell[CellGroupData[{ +Cell[994, 36, 279, 5, 22, "Input",ExpressionUUID->"12aae3bb-3c18-fc49-a0b1-b91fdc1bbe34"], +Cell[1276, 43, 236, 5, 25, "Output",ExpressionUUID->"127d1f92-fab0-c143-b7a7-1a3639c70287"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1549, 53, 173, 4, 22, "Input",ExpressionUUID->"93a900cf-d755-b944-921b-a609f0a955d2"], +Cell[1725, 59, 233, 5, 25, "Output",ExpressionUUID->"04807396-80ba-9d48-9880-d5034affbebb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1995, 69, 180, 4, 22, "Input",ExpressionUUID->"ad2e1847-77bb-2547-a825-69fabcda8ddf"], +Cell[2178, 75, 206, 4, 25, "Output",ExpressionUUID->"c9b1aca0-8c57-7841-9f47-4065e42d1be9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2421, 84, 262, 8, 35, "Input",ExpressionUUID->"4cc840b0-88d4-374e-a12e-54b8464f3172"], +Cell[2686, 94, 224, 4, 25, "Output",ExpressionUUID->"d140ea6a-5556-4549-9162-53cd65902074"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2947, 103, 136, 3, 22, "Input",ExpressionUUID->"7e4318c8-0990-ce41-a87a-43c5428155f4"], +Cell[3086, 108, 210, 4, 25, "Output",ExpressionUUID->"1945b47e-8242-f141-8f24-145573b8d035"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3333, 117, 281, 7, 22, "Input",ExpressionUUID->"c991c4ea-4c61-ff4f-8dd1-a921864ebed7"], +Cell[3617, 126, 223, 4, 25, "Output",ExpressionUUID->"7a1a8da1-0bcf-b54b-9fee-cefa315cdb2f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3877, 135, 262, 8, 22, "Input",ExpressionUUID->"c0ebd7fd-cfec-df46-a449-f750a93384d0"], +Cell[4142, 145, 221, 4, 25, "Output",ExpressionUUID->"20ba6663-ffc2-0e44-9f42-439485fbc707"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4400, 154, 168, 3, 22, "Input",ExpressionUUID->"4df260b6-0d11-1441-9e2e-22f951821193"], +Cell[4571, 159, 241, 4, 25, "Output",ExpressionUUID->"c1cb754b-dcac-584d-b97e-790bbfb09804"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4849, 168, 171, 4, 22, "Input",ExpressionUUID->"2d27be30-fef3-4449-b748-886004fbb723"], +Cell[5023, 174, 242, 4, 25, "Output",ExpressionUUID->"8ccd1fe7-b42d-e94a-8f21-428102053d08"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5302, 183, 133, 3, 22, "Input",ExpressionUUID->"58f05ac2-9a5b-b743-b028-7f6094b06d91"], +Cell[5438, 188, 204, 4, 25, "Output",ExpressionUUID->"9028d520-a386-4d42-869d-0525c235b913"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5679, 197, 133, 3, 22, "Input",ExpressionUUID->"b018faa3-5a51-4f49-9b0d-7936087c5070"], +Cell[5815, 202, 203, 4, 25, "Output",ExpressionUUID->"d0265467-59e4-be49-a64b-8c82690d7968"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6055, 211, 561, 20, 65, "Input",ExpressionUUID->"44764fb1-9da1-4d4e-a570-89126d15f894"], +Cell[6619, 233, 195, 3, 25, "Output",ExpressionUUID->"eaa05129-f525-ae46-856a-3848d0f71fe6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6851, 241, 561, 20, 65, "Input",ExpressionUUID->"3281618b-d4a7-c942-98be-b78c0b986321"], +Cell[7415, 263, 196, 3, 25, "Output",ExpressionUUID->"38460700-3d9d-1443-a45f-7e5ee1ac1e65"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7648, 271, 1496, 49, 65, "Input",ExpressionUUID->"fed40061-6b4e-1748-b42c-03e683b18808"], +Cell[9147, 322, 192, 3, 25, "Output",ExpressionUUID->"6fb0963d-5264-7b48-8d3a-ac1aa2bee48f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9376, 330, 1335, 45, 65, "Input",ExpressionUUID->"f615b39c-9820-5147-95ce-618baa4e4991"], +Cell[10714, 377, 212, 4, 25, "Output",ExpressionUUID->"22af3164-9ad3-3a45-a446-4f30ebbff819"] +}, Open ]], +Cell[CellGroupData[{ +Cell[10963, 386, 1335, 45, 65, "Input",ExpressionUUID->"7b2f9469-8c15-d349-a2c9-fcf9fcf6e8df"], +Cell[12301, 433, 215, 4, 25, "Output",ExpressionUUID->"cf644e36-3735-454b-b2f7-d6dcd3b19eee"] +}, Open ]], +Cell[CellGroupData[{ +Cell[12553, 442, 1496, 49, 65, "Input",ExpressionUUID->"e673379f-2460-4e49-90d0-35742055e8f6"], +Cell[14052, 493, 193, 3, 25, "Output",ExpressionUUID->"1e5d103c-a3a6-3140-b337-734998937fb4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14282, 501, 135, 3, 22, "Input",ExpressionUUID->"f65ba40e-adc9-4340-8c19-3a5692a89c19"], +Cell[14420, 506, 179, 3, 25, "Output",ExpressionUUID->"26bf3ba6-95f3-0440-9e98-89c65d588c67"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14636, 514, 181, 4, 22, "Input",ExpressionUUID->"da90429f-71c9-fb44-900f-54f9ecb15c0c"], +Cell[14820, 520, 179, 3, 25, "Output",ExpressionUUID->"22e230e6-b8cd-524e-8e84-86b886e1db44"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15036, 528, 138, 3, 22, "Input",ExpressionUUID->"ba9e3c3f-c755-9949-abdf-5c8716be163d"], +Cell[15177, 533, 183, 3, 25, "Output",ExpressionUUID->"6d784a11-3113-334a-bc65-848d44a8e331"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15397, 541, 223, 5, 22, "Input",ExpressionUUID->"1df1d99a-14d1-664a-9952-fc0ffe17d214"], +Cell[15623, 548, 194, 4, 25, "Output",ExpressionUUID->"f304ab94-42d1-9641-9e04-2b925b4673f0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15854, 557, 138, 3, 22, "Input",ExpressionUUID->"934f8f71-5ebb-8a42-88af-b686f4e3e457"], +Cell[15995, 562, 183, 3, 25, "Output",ExpressionUUID->"2be55f72-e139-c147-8f9f-866d807a59c6"] +}, Open ]], +Cell[16193, 568, 250, 5, 22, "Input",ExpressionUUID->"6e10280b-ebb3-f646-bb1d-00a00fc0ed1c"], +Cell[16446, 575, 154, 3, 22, "Input",ExpressionUUID->"b89c6b57-db32-1742-8cc6-85b9a16d9dd6"], +Cell[CellGroupData[{ +Cell[16625, 582, 275, 6, 22, "Input",ExpressionUUID->"f0485430-2764-5f40-9255-6cf8c0e180ff"], +Cell[16903, 590, 178, 3, 25, "Output",ExpressionUUID->"e6c6682a-cb21-c743-b88d-fc73cf3db099"] +}, Open ]], +Cell[CellGroupData[{ +Cell[17118, 598, 223, 5, 22, "Input",ExpressionUUID->"a5017589-44b9-f144-b351-bb9b15123fd4"], +Cell[17344, 605, 179, 3, 25, "Output",ExpressionUUID->"3e510172-ed35-5148-a7f8-03fff81b2ea8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[17560, 613, 354, 11, 35, "Input",ExpressionUUID->"7ab41717-55b0-584a-809f-945d0d693a80"], +Cell[17917, 626, 198, 3, 25, "Output",ExpressionUUID->"759e5be1-9cfd-ce46-9dc4-752b81633c5e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18152, 634, 354, 11, 35, "Input",ExpressionUUID->"fde3e1f9-4cc1-8049-ba69-a2294a6452b9"], +Cell[18509, 647, 212, 4, 25, "Output",ExpressionUUID->"b5bf1cf3-0246-5048-8e42-9650cc3d9e60"] +}, Open ]], +Cell[CellGroupData[{ +Cell[18758, 656, 973, 27, 92, "Input",ExpressionUUID->"622e209c-a48d-e442-88d4-31c1022a52c8"], +Cell[19734, 685, 194, 3, 25, "Output",ExpressionUUID->"580d9f26-e956-3547-8bc2-58d4d8b3ac06"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19965, 693, 203, 4, 22, "Input",ExpressionUUID->"10ba819b-2025-9a47-9ea5-95a5611cda6a"], +Cell[20171, 699, 179, 3, 25, "Output",ExpressionUUID->"46c953a3-0a25-be49-9ded-c3190caa374e"] +}, Open ]], +Cell[20365, 705, 224, 5, 22, "Input",ExpressionUUID->"8e0c7ad3-3b58-ea40-9983-94e32bbe2818"], +Cell[20592, 712, 156, 3, 22, "Input",ExpressionUUID->"eb8d52d1-9df0-c54e-85b2-4b5b928d8058"], +Cell[20751, 717, 270, 5, 22, "Input",ExpressionUUID->"59432052-36a9-0e4a-b136-b5ef6e1cf7dc"], +Cell[21024, 724, 154, 3, 22, "Input",ExpressionUUID->"7620191d-049f-d749-807c-ff7994d2bf64"], +Cell[21181, 729, 271, 5, 22, "Input",ExpressionUUID->"2838c52a-e621-824e-8a28-6ddd911b4320"], +Cell[21455, 736, 156, 3, 22, "Input",ExpressionUUID->"42e257a2-6901-9d4f-a831-1954f32e9186"], +Cell[21614, 741, 275, 5, 22, "Input",ExpressionUUID->"26236e3a-fdac-eb4e-a22f-56d02cebcf41"], +Cell[21892, 748, 156, 3, 22, "Input",ExpressionUUID->"dd3588b2-9ab9-a34a-afe1-cdd040915619"], +Cell[22051, 753, 224, 5, 22, "Input",ExpressionUUID->"02fa1476-84ef-ac4d-a088-22546d6249ff"], +Cell[22278, 760, 154, 3, 22, "Input",ExpressionUUID->"5841a374-f07b-3948-b1fb-c9f1f2e2508c"], +Cell[22435, 765, 226, 5, 22, "Input",ExpressionUUID->"2fad32fe-2323-a247-8df8-53787ce8fe84"], +Cell[22664, 772, 152, 3, 22, "Input",ExpressionUUID->"1b7179f5-adc5-4a42-8f8b-65c9268fc5eb"], +Cell[22819, 777, 251, 5, 22, "Input",ExpressionUUID->"00d82cf5-fe39-a24b-bb7b-1d0e115472c2"], +Cell[23073, 784, 156, 3, 22, "Input",ExpressionUUID->"dfb148c5-f80e-3f46-b88b-570a723a95bc"], +Cell[23232, 789, 196, 4, 22, "Input",ExpressionUUID->"db5cb55e-0710-c147-81f4-1d5b600a6284"], +Cell[23431, 795, 152, 3, 22, "Input",ExpressionUUID->"bc012921-2f5f-014d-9378-a2fad1ed7321"], +Cell[CellGroupData[{ +Cell[23608, 802, 19813, 486, 1553, "Input",ExpressionUUID->"c0e79410-fc92-1e45-af3b-c110ed8e3abb"], +Cell[43424, 1290, 192, 3, 25, "Output",ExpressionUUID->"61f08cc0-39fa-db4e-9b24-7599ef30de22"] +}, Open ]], +Cell[CellGroupData[{ +Cell[43653, 1298, 19752, 490, 1579, "Input",ExpressionUUID->"5dd2eacd-c52a-fd43-adfd-9865b6491968"], +Cell[63408, 1790, 196, 3, 25, "Output",ExpressionUUID->"5871324b-d5fe-804e-99ed-0d282d51f6f8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[63641, 1798, 19752, 484, 1572, "Input",ExpressionUUID->"4ed88227-1e87-3c47-8347-5fd8655168bd"], +Cell[83396, 2284, 210, 4, 25, "Output",ExpressionUUID->"69e00e78-0c26-1440-9a3a-e94f8a3d4436"] +}, Open ]], +Cell[CellGroupData[{ +Cell[83643, 2293, 22538, 554, 1766, "Input",ExpressionUUID->"69c9ca34-ec1f-344d-935e-d99be87c6a30"], +Cell[106184, 2849, 209, 4, 25, "Output",ExpressionUUID->"dd600f43-aeda-474e-adc2-ff73bb8ee0d1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[106430, 2858, 22539, 554, 1773, "Input",ExpressionUUID->"8f86ffe3-4c00-0445-be01-9f9c3bf740a4"], +Cell[128972, 3414, 211, 4, 25, "Output",ExpressionUUID->"55f1a542-9da5-9645-bb46-2c5c04b109ce"] +}, Open ]], +Cell[CellGroupData[{ +Cell[129220, 3423, 25495, 627, 1984, "Input",ExpressionUUID->"5220f60f-abac-c041-83b6-4ff9b963c510"], +Cell[154718, 4052, 212, 4, 25, "Output",ExpressionUUID->"3fbd24dd-e646-2c48-80cb-2c0e68ae3396"] +}, Open ]], +Cell[CellGroupData[{ +Cell[154967, 4061, 134, 3, 22, "Input",ExpressionUUID->"50a59971-b8b3-904a-9a20-2d0c4a200469"], +Cell[155104, 4066, 177, 3, 25, "Output",ExpressionUUID->"eddf556b-7952-114f-ad19-61212135319f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[155318, 4074, 134, 3, 22, "Input",ExpressionUUID->"99b95585-fb4d-4c4e-a0a1-a7cadcf4974c"], +Cell[155455, 4079, 179, 3, 25, "Output",ExpressionUUID->"925a31aa-9bd4-ec4b-918d-44895a7ffa06"] +}, Open ]], +Cell[CellGroupData[{ +Cell[155671, 4087, 1148, 40, 46, "Input",ExpressionUUID->"15d5ff38-e0ad-194f-988e-5bba229258a0"], +Cell[156822, 4129, 195, 3, 25, "Output",ExpressionUUID->"ef896caa-532b-1c47-88e1-148365496222"] +}, Open ]], +Cell[CellGroupData[{ +Cell[157054, 4137, 1045, 36, 46, "Input",ExpressionUUID->"f50ed71d-f500-b142-b06c-d815a3ba2272"], +Cell[158102, 4175, 210, 4, 25, "Output",ExpressionUUID->"0b7394b6-aa08-c14b-b2d8-582ab7ec833b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[158349, 4184, 1148, 40, 46, "Input",ExpressionUUID->"1492aaaf-0df6-6745-bf76-b9050e5655e5"], +Cell[159500, 4226, 196, 3, 25, "Output",ExpressionUUID->"5fcaa46c-385d-4040-80a1-54f36d41ad5a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[159733, 4234, 112, 2, 22, "Input",ExpressionUUID->"226872db-ad1d-a848-a1b9-669b9495ae40"], +Cell[159848, 4238, 194, 3, 25, "Output",ExpressionUUID->"6afc707f-6b3a-f54b-88b4-614c0ceb18fc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[160079, 4246, 112, 2, 22, "Input",ExpressionUUID->"3724e999-16ab-c946-a14b-a24ab296bb76"], +Cell[160194, 4250, 212, 4, 25, "Output",ExpressionUUID->"99e4c659-a451-4146-a9de-ef890867f12e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[160443, 4259, 112, 2, 22, "Input",ExpressionUUID->"7429d55c-fb1b-6c4a-a07c-c882ac4f265b"], +Cell[160558, 4263, 213, 4, 25, "Output",ExpressionUUID->"25a55a1d-e64a-4748-a151-0527c259a866"] +}, Open ]], +Cell[CellGroupData[{ +Cell[160808, 4272, 112, 2, 22, "Input",ExpressionUUID->"53189e64-dda1-f24f-bb2a-e33cc334a386"], +Cell[160923, 4276, 195, 3, 25, "Output",ExpressionUUID->"871d7b0c-b914-3d4a-95d8-f4a3e193bd06"] +}, Open ]], +Cell[CellGroupData[{ +Cell[161155, 4284, 111, 2, 22, "Input",ExpressionUUID->"2dcc97af-d52c-a140-9d24-7e2362d14431"], +Cell[161269, 4288, 195, 3, 25, "Output",ExpressionUUID->"0c5e1508-483e-e945-9c69-fc92813d991f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[161501, 4296, 111, 2, 22, "Input",ExpressionUUID->"047bb9cd-1320-254a-81b6-dbbd5bc6927e"], +Cell[161615, 4300, 194, 3, 25, "Output",ExpressionUUID->"e1360dcb-c05f-6341-afea-fa85f3ff2ec0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[161846, 4308, 501, 17, 46, "Input",ExpressionUUID->"5f91a530-4680-9547-ba69-eda72b5cd542"], +Cell[162350, 4327, 212, 4, 25, "Output",ExpressionUUID->"e6a85d91-dd27-b74d-9965-4b613c74d080"] +}, Open ]], +Cell[CellGroupData[{ +Cell[162599, 4336, 501, 17, 46, "Input",ExpressionUUID->"79bd53a9-815b-6b44-a1c8-9e184a9e2d7f"], +Cell[163103, 4355, 210, 4, 25, "Output",ExpressionUUID->"79fd6291-2776-3c4c-884e-ac4ed87b9bb3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[163350, 4364, 1792, 61, 109, "Input",ExpressionUUID->"4d60ea42-135b-0945-9bc8-ff7080f68cbd"], +Cell[165145, 4427, 195, 3, 25, "Output",ExpressionUUID->"9c6da0f7-fcb9-3249-8504-9107c35ce968"] +}, Open ]], +Cell[CellGroupData[{ +Cell[165377, 4435, 1105, 37, 64, "Input",ExpressionUUID->"86e3af8c-1e9e-fe48-be10-5811d3ed2f2c"], +Cell[166485, 4474, 212, 4, 25, "Output",ExpressionUUID->"e1b55829-8366-1647-927f-356a51dbcc7d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166734, 4483, 1822, 62, 90, "Input",ExpressionUUID->"5e5f8981-ef44-174f-9ab1-8170c09512bd"], +Cell[168559, 4547, 192, 3, 25, "Output",ExpressionUUID->"c67e7b02-609b-c14e-9940-0d393db14863"] +}, Open ]], +Cell[CellGroupData[{ +Cell[168788, 4555, 2503, 78, 72, "Input",ExpressionUUID->"92a8600d-0ef6-b048-81ca-4cef74274975"], +Cell[171294, 4635, 197, 3, 25, "Output",ExpressionUUID->"39d5b2d2-060f-c047-9ad5-a617d92b3bfe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[171528, 4643, 2503, 78, 72, "Input",ExpressionUUID->"7e943660-5e34-9e41-8f70-f1ec78ba3955"], +Cell[174034, 4723, 193, 3, 25, "Output",ExpressionUUID->"f76a0198-0356-d543-bd9e-8d5e983db4d0"] +}, Open ]], +Cell[174242, 4729, 169, 4, 22, "Input",ExpressionUUID->"3ae683e0-3adf-504a-90dd-615dd0a61fd8"], +Cell[174414, 4735, 198, 4, 22, "Input",ExpressionUUID->"4fc0783d-23dd-314f-a326-64b7548d9620"], +Cell[CellGroupData[{ +Cell[174637, 4743, 1301, 43, 39, "Input",ExpressionUUID->"dbbed097-5dfd-0340-bc2d-0bce9785fa70"], +Cell[175941, 4788, 197, 3, 25, "Output",ExpressionUUID->"456d9a39-7fba-f04d-ad3f-598301b07b7b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176175, 4796, 838, 28, 46, "Input",ExpressionUUID->"b04428b7-7b5e-9b48-87ae-3e90ee72682c"], +Cell[177016, 4826, 199, 3, 25, "Output",ExpressionUUID->"c5999e66-1e94-f648-b31f-23089615bdad"] +}, Open ]], +Cell[CellGroupData[{ +Cell[177252, 4834, 893, 31, 46, "Input",ExpressionUUID->"46474706-75cc-0e49-8a10-fd571fd984c5"], +Cell[178148, 4867, 199, 3, 25, "Output",ExpressionUUID->"9eb71c6d-5365-6346-92d2-98d5e0de79b8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[178384, 4875, 558, 19, 42, "Input",ExpressionUUID->"8aa9d08b-8eaf-d24c-8d70-f4347a6f878e"], +Cell[178945, 4896, 567, 9, 25, "Output",ExpressionUUID->"5de7561a-c835-3849-9551-bb5f09fb8931"] +}, Open ]], +Cell[CellGroupData[{ +Cell[179549, 4910, 665, 22, 42, "Input",ExpressionUUID->"1ca7586b-91ab-db43-8f6b-ae28116e89ea"], +Cell[180217, 4934, 554, 9, 25, "Output",ExpressionUUID->"beba7504-d2e1-a34b-a313-c333191940c0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[180808, 4948, 170, 5, 46, "Input",ExpressionUUID->"bf24e662-fae9-a44f-8e27-55a893ce4fbf"], +Cell[180981, 4955, 577, 9, 25, "Output",ExpressionUUID->"3254ddb1-51d7-0c4b-935d-057c3f1d76a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181595, 4969, 236, 6, 45, "Input",ExpressionUUID->"d937b18c-e29d-2f43-8938-d6d6f836399a"], +Cell[181834, 4977, 514, 8, 25, "Output",ExpressionUUID->"d7d09352-2c05-664e-adfe-6b091391fe65"] +}, Open ]], +Cell[CellGroupData[{ +Cell[182385, 4990, 223, 6, 35, "Input",ExpressionUUID->"9c8cf087-9405-ba4c-848c-2560561a15d9"], +Cell[182611, 4998, 549, 9, 25, "Output",ExpressionUUID->"b02669f8-f1a8-2943-9a89-7343edcc9853"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183197, 5012, 181, 5, 35, "Input",ExpressionUUID->"39cadd0c-531d-8643-b58f-32602fc9b322"], +Cell[183381, 5019, 567, 9, 25, "Output",ExpressionUUID->"11285b94-1266-8642-a7e7-e61a093e4602"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183985, 5033, 6055, 185, 310, "Input",ExpressionUUID->"63e87b25-79d4-3346-a596-4a114e4195fc"], +Cell[190043, 5220, 548, 9, 25, "Output",ExpressionUUID->"f1652c1d-aa3a-2e42-9d4c-3e1f3c9ac5f6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[190628, 5234, 368, 9, 33, "Input",ExpressionUUID->"e28c4c0a-4368-b445-b1ea-6ff4edd41335"], +Cell[190999, 5245, 521, 8, 25, "Output",ExpressionUUID->"e77bd64f-d028-c642-9f71-6c1fd3581451"] +}, Open ]], +Cell[191535, 5256, 492, 10, 34, "Input",ExpressionUUID->"7c3953e4-2c3b-6941-a7e4-314ec1ea37f2"], +Cell[CellGroupData[{ +Cell[192052, 5270, 558, 19, 42, "Input",ExpressionUUID->"8968449c-8b0e-4c43-b89b-9661a6b4b7b4"], +Cell[192613, 5291, 193, 3, 25, "Output",ExpressionUUID->"e8f70513-a98e-5149-b026-a7013fc48e0c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192843, 5299, 623, 21, 42, "Input",ExpressionUUID->"4070e408-f242-2749-a9a3-2554c0750a47"], +Cell[193469, 5322, 197, 3, 25, "Output",ExpressionUUID->"2a9bace2-5f5b-7543-922b-1957e9dc2125"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193703, 5330, 170, 5, 46, "Input",ExpressionUUID->"ea836fa5-3993-364c-859c-f1e1426f90c2"], +Cell[193876, 5337, 195, 3, 25, "Output",ExpressionUUID->"0d20a6b5-4f71-d74e-954e-f8bfcf13bd0b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194108, 5345, 170, 5, 45, "Input",ExpressionUUID->"c1eb9e5a-df42-e143-87eb-a7c14cd6489c"], +Cell[194281, 5352, 195, 3, 25, "Output",ExpressionUUID->"01e40b86-a95b-f949-a695-ad5f540daad8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194513, 5360, 181, 5, 35, "Input",ExpressionUUID->"fc11a4dc-800e-1040-b016-a172a6dca5d1"], +Cell[194697, 5367, 197, 3, 25, "Output",ExpressionUUID->"2e2424d7-7799-2b4b-95bc-ae946b4fd8fb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194931, 5375, 181, 5, 35, "Input",ExpressionUUID->"f158f63a-620a-8b45-93fe-de96c59131c3"], +Cell[195115, 5382, 196, 3, 25, "Output",ExpressionUUID->"9ddda7ea-20b5-c94f-837f-207ee8178e7d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195348, 5390, 6055, 185, 310, "Input",ExpressionUUID->"290356b5-801a-1742-8269-ff0ab0e7a72f"], +Cell[201406, 5577, 197, 3, 25, "Output",ExpressionUUID->"0e578c05-2e2b-ad42-9d2d-9ecb09bd5cc3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201640, 5585, 368, 9, 33, "Input",ExpressionUUID->"637830a9-4b17-0d47-8e69-3e6d73475803"], +Cell[202011, 5596, 194, 3, 25, "Output",ExpressionUUID->"299177f1-f9a1-af41-9869-28085ee90f1a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202242, 5604, 6122, 187, 353, "Input",ExpressionUUID->"245e55e0-c025-d748-aa5b-d3f5a26f897a"], +Cell[208367, 5793, 199, 3, 25, "Output",ExpressionUUID->"b5e1d2db-7bc1-604a-ba8a-cce145044a0c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208603, 5801, 368, 9, 33, "Input",ExpressionUUID->"87d3f053-a210-4945-9497-51f3b35fe58a"], +Cell[208974, 5812, 196, 3, 25, "Output",ExpressionUUID->"b3f6384f-9a37-5a49-8ec0-84b634cd8349"] +}, Open ]], +Cell[CellGroupData[{ +Cell[209207, 5820, 2663, 88, 135, "Input",ExpressionUUID->"407f3978-d419-be4a-9b05-517d07c044f1"], +Cell[211873, 5910, 197, 3, 25, "Output",ExpressionUUID->"c9e066e9-48dc-834a-bf61-59f21edf20c9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[212107, 5918, 2603, 85, 135, "Input",ExpressionUUID->"98c81204-47e0-fd47-9c8b-67e8ab12c7de"], +Cell[214713, 6005, 198, 3, 25, "Output",ExpressionUUID->"949c6939-8996-5843-bd4e-a0723aa0e87c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[214948, 6013, 3712, 118, 197, "Input",ExpressionUUID->"f8815c5a-68ac-6143-b710-ab82cbe388c2"], +Cell[218663, 6133, 198, 3, 25, "Output",ExpressionUUID->"05eb4440-df71-e44f-97f3-da78599dccf8"] +}, Open ]], +Cell[218876, 6139, 257, 6, 34, "Input",ExpressionUUID->"c3247e8e-1dc6-bd47-b085-4abc2b2cf1d2"], +Cell[CellGroupData[{ +Cell[219158, 6149, 2052, 59, 92, "Input",ExpressionUUID->"9522bfa2-96cd-564e-b4a1-30bc1fcf4125"], +Cell[221213, 6210, 580, 12, 50, "Message",ExpressionUUID->"f4680526-8058-9849-befb-e4865d4a563d"], +Cell[221796, 6224, 582, 12, 50, "Message",ExpressionUUID->"7b3f9a5b-c904-9f45-ae40-f6aa2ea578f0"], +Cell[222381, 6238, 584, 12, 50, "Message",ExpressionUUID->"9bd14fe4-b3cf-b14f-aa97-5dbc5cb6202b"], +Cell[222968, 6252, 481, 10, 20, "Message",ExpressionUUID->"0ca94a44-b20e-a647-bf17-c07f630a5f3a"], +Cell[223452, 6264, 196, 3, 25, "Output",ExpressionUUID->"65e8c927-2c63-a142-8aad-58bf978b2bc7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[223685, 6272, 2052, 59, 92, "Input",ExpressionUUID->"61b1cdf2-7f57-2647-9828-9108456d2e21"], +Cell[225740, 6333, 578, 12, 50, "Message",ExpressionUUID->"b3d3c42c-aed0-694c-a56a-81f4b82612ba"], +Cell[226321, 6347, 580, 12, 50, "Message",ExpressionUUID->"2f7fcf78-2597-fc4e-9012-4d1e9a86bcce"], +Cell[226904, 6361, 586, 12, 50, "Message",ExpressionUUID->"3c4bf69d-6c7d-de4b-8920-9ad57cb702e9"], +Cell[227493, 6375, 479, 10, 20, "Message",ExpressionUUID->"04907cc7-b066-4045-b082-0e8636e44a75"], +Cell[227975, 6387, 192, 3, 25, "Output",ExpressionUUID->"4dba64ce-42d0-7643-94bc-f9c2e73c58e7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[228204, 6395, 1938, 53, 69, "Input",ExpressionUUID->"0ab9b507-fb4e-e24c-9d9d-abe222e3c5e2"], +Cell[230145, 6450, 20226, 378, 191, "Output",ExpressionUUID->"53a037b2-adfa-594a-9d2f-46330d412a4e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[250408, 6833, 2116, 60, 92, "Input",ExpressionUUID->"859f11c8-3e2a-dc42-8ed3-71283b73bfa7"], +Cell[252527, 6895, 632, 13, 50, "Message",ExpressionUUID->"158b1701-392e-9148-a6e6-d78d21579b25"], +Cell[253162, 6910, 654, 14, 50, "Message",ExpressionUUID->"b196af72-2471-f945-b15f-a1f22b679776"], +Cell[253819, 6926, 658, 14, 50, "Message",ExpressionUUID->"89243bac-60d4-3b49-89bd-2c48c2d7c0d6"], +Cell[254480, 6942, 480, 10, 20, "Message",ExpressionUUID->"c3addd05-515c-5541-aadb-feb07a5771c1"], +Cell[254963, 6954, 184, 3, 25, "Output",ExpressionUUID->"7bfc15da-d63d-7f47-833d-9017b6cff41e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[255184, 6962, 327, 7, 34, "Input",ExpressionUUID->"60c27e2c-7c95-1e4a-ab78-642e76a08b0b"], +Cell[255514, 6971, 9707, 222, 192, "Output",ExpressionUUID->"cc3ebc6e-15ee-8a47-b0d6-52da3e7b0833"] +}, Open ]], +Cell[CellGroupData[{ +Cell[265258, 7198, 257, 6, 34, "Input",ExpressionUUID->"7b17964f-3903-af4c-a72d-552615ef4a37"], +Cell[265518, 7206, 2580, 42, 70, "Message",ExpressionUUID->"63142347-0535-0246-bb25-8a2a2b48d7ca"], +Cell[268101, 7250, 10201, 227, 70, "Output",ExpressionUUID->"2ddcecd6-64a5-6e48-8c61-882e10c0065a"] +}, Closed]], +Cell[CellGroupData[{ +Cell[278339, 7482, 301, 10, 32, "Input",ExpressionUUID->"982133ce-0d36-4d45-a387-ff35350b5cb9"], +Cell[278643, 7494, 197, 3, 25, "Output",ExpressionUUID->"bf4aa3c8-c644-2f48-80dc-1b5d3e2169d4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[278877, 7502, 1814, 53, 92, "Input",ExpressionUUID->"90b7f5f1-808a-1b4d-aa45-edfd6d6a25f8"], +Cell[280694, 7557, 506, 11, 50, "Message",ExpressionUUID->"b35d0e82-bb6d-3542-ab8b-ccb436f9a8d8"], +Cell[281203, 7570, 512, 11, 50, "Message",ExpressionUUID->"5ff9501d-78d7-7141-a437-5dd9f758c909"], +Cell[281718, 7583, 509, 11, 50, "Message",ExpressionUUID->"0c4bed13-3785-d84a-8693-17cc81ace1e2"], +Cell[282230, 7596, 456, 10, 20, "Message",ExpressionUUID->"371084ac-a371-9848-9c63-34bb732ea61a"], +Cell[282689, 7608, 22336, 412, 187, "Output",ExpressionUUID->"498a6190-c65d-fd44-a483-d79a44a15949"] +}, Open ]], +Cell[CellGroupData[{ +Cell[305062, 8025, 1616, 48, 69, "Input",ExpressionUUID->"eea9d904-4069-4649-bea7-08e03245dd6c"], +Cell[306681, 8075, 603, 12, 53, "Message",ExpressionUUID->"f6942d2b-1935-ce45-9eba-1218d93c5fe3"], +Cell[307287, 8089, 609, 12, 53, "Message",ExpressionUUID->"167a8bf3-70f7-1c4e-96cc-24c67ead632a"], +Cell[307899, 8103, 612, 12, 53, "Message",ExpressionUUID->"038f97d9-5635-d243-bc57-4be91e08fd14"], +Cell[308514, 8117, 478, 10, 20, "Message",ExpressionUUID->"f7ddd7d6-d715-2149-9192-e6e54f994bf9"], +Cell[308995, 8129, 195, 3, 25, "Output",ExpressionUUID->"4fea8a21-ea7c-524f-ad6d-9d8516601f03"] +}, Open ]], +Cell[CellGroupData[{ +Cell[309227, 8137, 2274, 64, 131, "Input",ExpressionUUID->"3915107a-86d9-0f46-b139-986db5ca6b3b"], +Cell[311504, 8203, 579, 12, 50, "Message",ExpressionUUID->"dae61f02-18ea-a447-aa9a-3c4085f2c9f9"], +Cell[312086, 8217, 583, 12, 50, "Message",ExpressionUUID->"bd9df418-5c98-8c4b-942b-69cfdd942ea2"], +Cell[312672, 8231, 587, 12, 50, "Message",ExpressionUUID->"b05bbe77-656b-3542-8f6f-f51eeb980d5e"], +Cell[313262, 8245, 480, 10, 20, "Message",ExpressionUUID->"aef425fc-a2ce-1843-8bef-20a06a28cc20"], +Cell[313745, 8257, 195, 3, 25, "Output",ExpressionUUID->"8a69f3e4-efcf-6249-8505-a6b5d11b9f54"] +}, Open ]], +Cell[CellGroupData[{ +Cell[313977, 8265, 2219, 64, 131, "Input",ExpressionUUID->"f3705611-962a-7d49-8494-287e0d1eefa8"], +Cell[316199, 8331, 578, 12, 50, "Message",ExpressionUUID->"5e178919-9cf0-ac45-87b2-eaf189f9416b"], +Cell[316780, 8345, 580, 12, 50, "Message",ExpressionUUID->"c8c43206-f2bb-ab48-9546-3aed8ebd1dcd"], +Cell[317363, 8359, 582, 12, 50, "Message",ExpressionUUID->"c958a03d-0c1b-c74b-a9f2-bb628b87f1a7"], +Cell[317948, 8373, 477, 10, 20, "Message",ExpressionUUID->"6f03fbd5-dcac-9c41-9119-2c9486f681e2"], +Cell[318428, 8385, 196, 3, 25, "Output",ExpressionUUID->"507fbc8b-c1fa-0f44-8dbb-3f1ee1226052"] +}, Open ]], +Cell[CellGroupData[{ +Cell[318661, 8393, 2219, 64, 131, "Input",ExpressionUUID->"1c2bb25c-a24b-4143-a03c-8699409c5ef4"], +Cell[320883, 8459, 577, 12, 50, "Message",ExpressionUUID->"f14e1821-d6f6-9748-a381-88bb6ed09b0f"], +Cell[321463, 8473, 581, 12, 50, "Message",ExpressionUUID->"831dbe9b-2d94-8949-9905-b6299cd5cfbb"], +Cell[322047, 8487, 585, 12, 50, "Message",ExpressionUUID->"b74c2d50-6b92-524d-9a2f-0df31e0a5942"], +Cell[322635, 8501, 480, 10, 20, "Message",ExpressionUUID->"d2b87ee4-3849-3848-8231-476288e5e8a5"], +Cell[323118, 8513, 193, 3, 25, "Output",ExpressionUUID->"1f9599fe-acbe-c146-bf37-8492663797c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[323348, 8521, 213, 6, 38, "Input",ExpressionUUID->"df5a49d1-7ffc-9d41-9de9-b2cb4ed5c458"], +Cell[323564, 8529, 197, 3, 25, "Output",ExpressionUUID->"5b12bbb1-2534-c04f-9206-3fa4c528fbbc"] +}, Open ]], +Cell[323776, 8535, 245, 5, 34, "Input",ExpressionUUID->"f1e753e6-7de9-0b47-aa25-47e49d9ceac1"], +Cell[CellGroupData[{ +Cell[324046, 8544, 558, 19, 42, "Input",ExpressionUUID->"24c8f2e4-3fba-8b49-a53c-9297f14cb47a"], +Cell[324607, 8565, 195, 3, 25, "Output",ExpressionUUID->"98ae9ddb-8318-674e-80c9-7e140dcac1b0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[324839, 8573, 170, 5, 46, "Input",ExpressionUUID->"56d70fe5-9e2b-c64e-bfc2-fde134e22b5d"], +Cell[325012, 8580, 196, 3, 25, "Output",ExpressionUUID->"73a9f922-95ea-2b43-bf67-74680f371172"] +}, Open ]], +Cell[CellGroupData[{ +Cell[325245, 8588, 181, 5, 35, "Input",ExpressionUUID->"4acc66ff-efd9-9749-a32c-ab2aed359d56"], +Cell[325429, 8595, 193, 3, 25, "Output",ExpressionUUID->"981c6b4f-3ed8-234c-af7f-12febe378c99"] +}, Open ]], +Cell[CellGroupData[{ +Cell[325659, 8603, 6055, 185, 310, "Input",ExpressionUUID->"b77d1393-1706-0344-94ba-b60790e869c9"], +Cell[331717, 8790, 194, 3, 25, "Output",ExpressionUUID->"a7e2294b-e75d-4747-b07f-caeec25593bb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[331948, 8798, 368, 9, 33, "Input",ExpressionUUID->"d3dc886c-76ef-e140-8bf7-ae2b35b15037"], +Cell[332319, 8809, 192, 3, 25, "Output",ExpressionUUID->"39075a12-e1b0-dd45-bb8f-a5cf418898ce"] +}, Open ]], +Cell[CellGroupData[{ +Cell[332548, 8817, 6122, 187, 353, "Input",ExpressionUUID->"a2a617e0-a59a-4147-bc6f-17a0446bc938"], +Cell[338673, 9006, 199, 3, 25, "Output",ExpressionUUID->"080dedf4-608b-784c-8095-92f61780909f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[338909, 9014, 368, 9, 33, "Input",ExpressionUUID->"764ea9ee-2dee-8949-964f-92b7fcc0b4f1"], +Cell[339280, 9025, 192, 3, 25, "Output",ExpressionUUID->"a5e88e9c-1ebc-a943-922b-32e11652b414"] +}, Open ]], +Cell[CellGroupData[{ +Cell[339509, 9033, 2663, 88, 135, "Input",ExpressionUUID->"8de6527c-f379-114f-be34-ffaf646fc19c"], +Cell[342175, 9123, 197, 3, 25, "Output",ExpressionUUID->"89a45800-1a51-ff40-8231-4f1dbc8bf045"] +}, Open ]], +Cell[CellGroupData[{ +Cell[342409, 9131, 2603, 85, 135, "Input",ExpressionUUID->"bcbbe365-5317-404f-8cca-b17046887210"], +Cell[345015, 9218, 194, 3, 25, "Output",ExpressionUUID->"8227fe2a-0032-8f43-8d97-0ae8dad9a493"] +}, Open ]], +Cell[CellGroupData[{ +Cell[345246, 9226, 3712, 118, 197, "Input",ExpressionUUID->"c57327ef-c920-754d-8029-af14560ebe8f"], +Cell[348961, 9346, 196, 3, 25, "Output",ExpressionUUID->"dcd656ae-1e68-194a-83cc-3a21431e11fa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[349194, 9354, 2049, 58, 92, "Input",ExpressionUUID->"670d91c8-ce08-f444-b144-138ebae0f868"], +Cell[351246, 9414, 594, 12, 50, "Message",ExpressionUUID->"35f9fd51-3342-bd4a-a255-ef6f0342c244"], +Cell[351843, 9428, 597, 12, 50, "Message",ExpressionUUID->"37eadcc8-b14a-e743-8e0a-c2ed5bf94bef"], +Cell[352443, 9442, 604, 12, 69, "Message",ExpressionUUID->"81d41f16-030a-e24b-b732-f8816d863b10"], +Cell[353050, 9456, 480, 10, 20, "Message",ExpressionUUID->"81c06ac5-a0a8-7344-a9ed-db535505b5ba"], +Cell[353533, 9468, 194, 3, 25, "Output",ExpressionUUID->"bec50fae-ff8e-b342-8dc1-e0f019aca06c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[353764, 9476, 2049, 58, 92, "Input",ExpressionUUID->"862c274e-f293-6a41-8f4f-719ed57da8ce"], +Cell[355816, 9536, 594, 12, 50, "Message",ExpressionUUID->"b24ec752-691b-9e46-9e12-41426d5a1496"], +Cell[356413, 9550, 597, 12, 50, "Message",ExpressionUUID->"976838b0-e209-5643-abb9-346ac4cbdf93"], +Cell[357013, 9564, 602, 12, 69, "Message",ExpressionUUID->"358b771e-09d7-964c-8b93-703e5579bb7f"], +Cell[357618, 9578, 480, 10, 20, "Message",ExpressionUUID->"dc495a5d-d258-0641-8f11-30570c0a20cf"], +Cell[358101, 9590, 194, 3, 25, "Output",ExpressionUUID->"f421afac-42a5-c84a-9348-c5e090b0f190"] +}, Open ]], +Cell[CellGroupData[{ +Cell[358332, 9598, 2030, 55, 54, "Input",ExpressionUUID->"00de6621-4f9e-8a45-8ea8-edabb8e777e0"], +Cell[360365, 9655, 20422, 382, 189, "Output",ExpressionUUID->"982443ca-3c49-3842-942f-56dbbe6e860e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[380824, 10042, 2115, 60, 92, "Input",ExpressionUUID->"f5360edc-957d-9f48-b8b4-746fa181d4a5"], +Cell[382942, 10104, 499, 11, 33, "Message",ExpressionUUID->"16f95f8d-163b-784d-a7d4-d9be610470a4"], +Cell[383444, 10117, 504, 11, 33, "Message",ExpressionUUID->"668c7d88-6569-8648-b105-a03fa8ae5c99"], +Cell[383951, 10130, 507, 11, 50, "Message",ExpressionUUID->"ebfa0449-48eb-8345-a082-4900c9d8a835"], +Cell[384461, 10143, 455, 10, 20, "Message",ExpressionUUID->"54d7d346-3c8b-ea45-a47e-efd92955cab4"], +Cell[384919, 10155, 22381, 415, 188, "Output",ExpressionUUID->"ec297bd0-74ba-874e-beda-39d943d34a34"] +}, Open ]], +Cell[407315, 10573, 206, 5, 34, "Input",ExpressionUUID->"b422dcab-ec5f-5543-9fba-aafac96e937c"], +Cell[CellGroupData[{ +Cell[407546, 10582, 1616, 48, 69, "Input",ExpressionUUID->"143d6afa-76a8-b440-a2a9-2759769b081f"], +Cell[409165, 10632, 618, 12, 53, "Message",ExpressionUUID->"4237e138-f145-b443-83e0-43390364f340"], +Cell[409786, 10646, 618, 12, 53, "Message",ExpressionUUID->"f1817fe7-de7f-424a-8c32-fd6eb18ad55d"], +Cell[410407, 10660, 626, 12, 53, "Message",ExpressionUUID->"d01422f2-ac30-d647-9174-416a2de0acdd"], +Cell[411036, 10674, 482, 10, 20, "Message",ExpressionUUID->"1cc939d5-2041-e346-853b-0da1f5d3fdb3"], +Cell[411521, 10686, 192, 3, 25, "Output",ExpressionUUID->"be53344f-c49c-d340-8fe2-187c78764ee3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[411750, 10694, 2249, 64, 131, "Input",ExpressionUUID->"2e239e43-8455-8947-be70-b8e43bbe859a"], +Cell[414002, 10760, 594, 12, 50, "Message",ExpressionUUID->"376bc77a-50fd-0d47-9681-2bc434722c43"], +Cell[414599, 10774, 597, 12, 50, "Message",ExpressionUUID->"2efa0725-97f0-1746-a14f-4d0ef984c116"], +Cell[415199, 10788, 602, 12, 69, "Message",ExpressionUUID->"3247c80e-edc6-e745-8fee-5b551559a9ce"], +Cell[415804, 10802, 482, 10, 20, "Message",ExpressionUUID->"5e6cbab7-7762-ef49-bbd5-8d0e64879c32"], +Cell[416289, 10814, 197, 3, 25, "Output",ExpressionUUID->"14e4c193-7d63-6f44-b586-9c58b6278944"] +}, Open ]], +Cell[CellGroupData[{ +Cell[416523, 10822, 2221, 64, 131, "Input",ExpressionUUID->"99e346c1-cf6d-8f4a-b6fb-39037ee79c0a"], +Cell[418747, 10888, 592, 12, 50, "Message",ExpressionUUID->"b53712a8-b3d6-1f4e-8898-5e6ce60da8c7"], +Cell[419342, 10902, 597, 12, 50, "Message",ExpressionUUID->"5dee7001-7024-b140-89a6-01103fff2a2b"], +Cell[419942, 10916, 602, 12, 69, "Message",ExpressionUUID->"f711f4eb-2b29-5047-8426-bced102f0fee"], +Cell[420547, 10930, 480, 10, 20, "Message",ExpressionUUID->"b2bdb7ab-4d79-044f-8a69-305a4f35a1be"], +Cell[421030, 10942, 196, 3, 25, "Output",ExpressionUUID->"635433e0-898b-ef4f-97c3-27cb9c864fdc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[421263, 10950, 2221, 64, 131, "Input",ExpressionUUID->"867b2dc8-7ef3-234b-80bd-e701484a92f5"], +Cell[423487, 11016, 596, 12, 50, "Message",ExpressionUUID->"5521676c-b5e4-1145-b679-3dc06940bc52"], +Cell[424086, 11030, 599, 12, 50, "Message",ExpressionUUID->"88c4b1ae-962d-3b4a-a9c8-1101d0b0bcfc"], +Cell[424688, 11044, 604, 12, 69, "Message",ExpressionUUID->"56a57c6b-07a8-f146-b18a-9a7e9cc34f3a"], +Cell[425295, 11058, 479, 10, 20, "Message",ExpressionUUID->"ec38de78-337d-2648-bf83-eb09a46b18b3"], +Cell[425777, 11070, 197, 3, 25, "Output",ExpressionUUID->"b1693ef0-2cab-0142-884b-588173786ea2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[426011, 11078, 213, 6, 38, "Input",ExpressionUUID->"b1cee125-11a3-8a43-b076-a72829d187d3"], +Cell[426227, 11086, 194, 3, 25, "Output",ExpressionUUID->"0df6ed8f-8670-fa47-923c-919d6c136038"] +}, Open ]], +Cell[426436, 11092, 242, 5, 34, "Input",ExpressionUUID->"e87cb7b6-2d4f-2b46-b7dc-f61f4036bef1"], +Cell[CellGroupData[{ +Cell[426703, 11101, 558, 19, 42, "Input",ExpressionUUID->"dafb41d5-8379-5e45-a5a7-0828c3048eab"], +Cell[427264, 11122, 197, 3, 25, "Output",ExpressionUUID->"c881c11d-abad-0d49-99e0-f303d09aef0a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[427498, 11130, 170, 5, 46, "Input",ExpressionUUID->"3d6ec365-065c-9046-b32d-db356c9d51fa"], +Cell[427671, 11137, 193, 3, 25, "Output",ExpressionUUID->"9caa35c4-53d8-fa45-a312-698f5ed5b1e5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[427901, 11145, 181, 5, 35, "Input",ExpressionUUID->"c7dc55d1-f163-224f-bef1-731f35b2237f"], +Cell[428085, 11152, 197, 3, 25, "Output",ExpressionUUID->"833d0ac6-4c09-d440-8bc3-d5df9ca76865"] +}, Open ]], +Cell[CellGroupData[{ +Cell[428319, 11160, 6055, 185, 310, "Input",ExpressionUUID->"ae1da06e-d004-c94e-a60b-5d6c8a81d4a0"], +Cell[434377, 11347, 196, 3, 25, "Output",ExpressionUUID->"0382a191-ad63-844a-8759-086853e23ce5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[434610, 11355, 368, 9, 33, "Input",ExpressionUUID->"711641aa-bfb1-b442-a8a1-7f2d92e52258"], +Cell[434981, 11366, 192, 3, 25, "Output",ExpressionUUID->"219c4b04-20e8-3f41-8e84-a455d4da6bdc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[435210, 11374, 6122, 187, 353, "Input",ExpressionUUID->"03560694-f256-804d-bdf2-150141b736fd"], +Cell[441335, 11563, 197, 3, 25, "Output",ExpressionUUID->"b204ec83-ad19-5349-8b02-7defd6db0df8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[441569, 11571, 368, 9, 33, "Input",ExpressionUUID->"41fd6fe5-afbf-ed41-96d1-404a404fc933"], +Cell[441940, 11582, 196, 3, 25, "Output",ExpressionUUID->"c15b8bac-d390-9f42-a7c0-c761ed162cd9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[442173, 11590, 2663, 88, 135, "Input",ExpressionUUID->"1ffc2e4a-e112-f841-8653-59d1c97f1323"], +Cell[444839, 11680, 197, 3, 25, "Output",ExpressionUUID->"c7904c57-9026-5d42-a13c-7cf9c291f02e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[445073, 11688, 2603, 85, 135, "Input",ExpressionUUID->"c98e90b4-3450-674d-a534-9abe2866d10f"], +Cell[447679, 11775, 196, 3, 25, "Output",ExpressionUUID->"07fee721-d71d-e947-a10f-a3d491f5375c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[447912, 11783, 3712, 118, 197, "Input",ExpressionUUID->"3a1b0a64-3226-5845-846d-8f00794d5760"], +Cell[451627, 11903, 196, 3, 25, "Output",ExpressionUUID->"61d2bf74-dc83-444c-9d85-173366eb4115"] +}, Open ]], +Cell[CellGroupData[{ +Cell[451860, 11911, 2054, 59, 92, "Input",ExpressionUUID->"157a27fc-8a7f-ef4c-bd2d-9f444415254b"], +Cell[453917, 11972, 589, 12, 50, "Message",ExpressionUUID->"0c8f7a0d-d84f-5048-ba48-794ef1d00127"], +Cell[454509, 11986, 591, 12, 50, "Message",ExpressionUUID->"e0f5c7bd-1699-2c49-bf84-66232a770396"], +Cell[455103, 12000, 597, 12, 50, "Message",ExpressionUUID->"650d4e60-de9d-c448-9e55-c9a2ff3adfbd"], +Cell[455703, 12014, 482, 10, 20, "Message",ExpressionUUID->"02aaa7f6-e3fa-f246-ae96-c2637dc36a8a"], +Cell[456188, 12026, 194, 3, 25, "Output",ExpressionUUID->"e85ac070-0188-1a40-a36b-aa73ff8bf583"] +}, Open ]], +Cell[CellGroupData[{ +Cell[456419, 12034, 2052, 59, 92, "Input",ExpressionUUID->"11801718-69ec-bf4e-86d8-e9949dfbcff4"], +Cell[458474, 12095, 589, 12, 50, "Message",ExpressionUUID->"92fdcdbe-704c-8643-ac44-6336f3afd685"], +Cell[459066, 12109, 593, 12, 50, "Message",ExpressionUUID->"22fb307d-fe2e-4e40-aecb-68b60c56d53f"], +Cell[459662, 12123, 597, 12, 50, "Message",ExpressionUUID->"fe4891cd-9e5e-304f-b8fa-b9a722a2b0ed"], +Cell[460262, 12137, 482, 10, 20, "Message",ExpressionUUID->"3700feb7-ec5c-144b-8683-e9364219ca8f"], +Cell[460747, 12149, 194, 3, 25, "Output",ExpressionUUID->"8b9d1dc2-78af-9e49-aad9-8e9bc3b553be"] +}, Open ]], +Cell[CellGroupData[{ +Cell[460978, 12157, 2030, 55, 54, "Input",ExpressionUUID->"8fb4818f-77bf-6445-8230-c17265c2e6e9"], +Cell[463011, 12214, 20422, 382, 189, "Output",ExpressionUUID->"e447a546-4e4c-eb42-b69e-2528d5182b13"] +}, Open ]], +Cell[CellGroupData[{ +Cell[483470, 12601, 2120, 60, 92, "Input",ExpressionUUID->"4d882d59-3e42-1040-97a9-33dddc2b9855"], +Cell[485593, 12663, 496, 11, 33, "Message",ExpressionUUID->"20149181-1e2c-4b41-b02e-304cc98619fd"], +Cell[486092, 12676, 501, 11, 33, "Message",ExpressionUUID->"44ce87a6-827a-304b-86da-3cdac8e926dc"], +Cell[486596, 12689, 505, 11, 33, "Message",ExpressionUUID->"b6629f6a-df4e-5a42-a25e-15825d979765"], +Cell[487104, 12702, 455, 10, 20, "Message",ExpressionUUID->"5b7f13bb-27ba-5041-8f22-5700d1dce8b8"], +Cell[487562, 12714, 21721, 403, 187, "Output",ExpressionUUID->"ed04804c-1f60-394e-87d4-29e6f5f16859"] +}, Open ]], +Cell[509298, 13120, 211, 5, 34, "Input",ExpressionUUID->"715f943f-d061-fa48-bb45-20a62a80a7df"], +Cell[CellGroupData[{ +Cell[509534, 13129, 1616, 48, 69, "Input",ExpressionUUID->"804e6c9f-1b36-2141-acb9-3b729fb7abb0"], +Cell[511153, 13179, 614, 12, 53, "Message",ExpressionUUID->"47145e38-56d2-404b-b2c9-a4c6bd4713fc"], +Cell[511770, 13193, 616, 12, 53, "Message",ExpressionUUID->"c894df32-367b-2344-a42a-d2aaa61a6442"], +Cell[512389, 13207, 616, 12, 53, "Message",ExpressionUUID->"dd94c528-2deb-d443-8dc9-050571e0f325"], +Cell[513008, 13221, 480, 10, 20, "Message",ExpressionUUID->"23602150-0799-1542-bae7-7ae74cb1ca39"], +Cell[513491, 13233, 197, 3, 25, "Output",ExpressionUUID->"283063f8-35c9-364f-a699-de6e0a543cf7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[513725, 13241, 2249, 64, 131, "Input",ExpressionUUID->"9b45c184-4df7-db4d-adb2-01f19f0f15b0"], +Cell[515977, 13307, 585, 12, 70, "Message",ExpressionUUID->"a788a2f4-d4f1-2443-8afb-75cfb56de955"], +Cell[516565, 13321, 589, 12, 70, "Message",ExpressionUUID->"be132617-3a6c-7243-9ffe-8f7551dfb0f4"], +Cell[517157, 13335, 595, 12, 70, "Message",ExpressionUUID->"0d46806c-287f-8f45-adf8-aa98d149c28b"], +Cell[517755, 13349, 480, 10, 70, "Message",ExpressionUUID->"7c6c4499-aad8-2745-a278-f3d39e8c21d9"], +Cell[518238, 13361, 192, 3, 70, "Output",ExpressionUUID->"9d6b69a4-8782-c54e-b077-f0b89827acb9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[518467, 13369, 2221, 64, 70, "Input",ExpressionUUID->"00ca455f-f3f6-2c4f-8927-9e8c2d28dafd"], +Cell[520691, 13435, 589, 12, 70, "Message",ExpressionUUID->"58cce6cc-55d6-8447-b0af-98545f6e8b94"], +Cell[521283, 13449, 593, 12, 70, "Message",ExpressionUUID->"a8dc6fa7-2ffc-a94c-acac-c04ec7ca9ce4"], +Cell[521879, 13463, 597, 12, 70, "Message",ExpressionUUID->"9072d850-7d12-7542-9452-001fb3ad3caa"], +Cell[522479, 13477, 480, 10, 70, "Message",ExpressionUUID->"5b507f90-a99e-494e-8b83-58443f9760dd"] +}, Open ]], +Cell[522974, 13490, 189, 4, 70, "Input",ExpressionUUID->"8cac9b30-e121-024d-91d3-cf92fd4a988a"], +Cell[CellGroupData[{ +Cell[523188, 13498, 2221, 64, 70, "Input",ExpressionUUID->"b454660a-890c-f24b-923b-563bff174231"], +Cell[525412, 13564, 584, 12, 70, "Message",ExpressionUUID->"8119867f-f85f-364e-8254-1ef6052311fc"], +Cell[525999, 13578, 589, 12, 70, "Message",ExpressionUUID->"c0c54d2a-f8dc-8e40-838e-476f912b22f3"], +Cell[526591, 13592, 595, 12, 70, "Message",ExpressionUUID->"02b3b0aa-3c27-2340-a0f3-fddaabda96cb"], +Cell[527189, 13606, 480, 10, 70, "Message",ExpressionUUID->"34c92b2b-5689-2d44-aa86-39776cc9979f"], +Cell[527672, 13618, 197, 3, 70, "Output",ExpressionUUID->"2b7d55d3-b0f9-2446-a1be-cbacdaca9c16"] +}, Open ]], +Cell[CellGroupData[{ +Cell[527906, 13626, 215, 6, 70, "Input",ExpressionUUID->"673f44c9-71c5-b64a-9ddb-ff434e6a2570"], +Cell[528124, 13634, 198, 3, 70, "Output",ExpressionUUID->"16796d12-1b0d-d745-b4a7-59e302a2c068"] +}, Open ]] +} +] +*) + diff --git a/templates/light_case/l___osc_Qw2.nb b/templates/light_case/l___osc_Qw2.nb new file mode 100755 index 0000000..fed1076 --- /dev/null +++ b/templates/light_case/l___osc_Qw2.nb @@ -0,0 +1,10224 @@ +(* 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[ 430808, 10214] +NotebookOptionsPosition[ 405158, 9822] +NotebookOutlinePosition[ 405582, 9839] +CellTagsIndexPosition[ 405539, 9836] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"f1", "="}]], "Input", + CellChangeTimes->{ + 3.991846457174755*^9},ExpressionUUID->"58382c59-dd64-b449-aa77-\ +b500c631729a"], + +Cell[BoxData["0.62`"], "Output", + CellChangeTimes->{3.991339230490425*^9}, + CellLabel-> + "Out[314]=",ExpressionUUID->"8bc528b5-d7e5-b04f-8824-04a5ba44f02f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.9918464585717087`*^9},ExpressionUUID->"1e2a9573-08d6-094d-b2f8-\ +1c2ad58521b5"], + +Cell[BoxData["0.84`"], "Output", + CellChangeTimes->{3.991339230517523*^9}, + CellLabel-> + "Out[315]=",ExpressionUUID->"c1c87292-1cd0-7148-ae35-05da8f9df00b"] +}, Open ]], + +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->"ee9e3f9b-cd15-314a-959e-23f6767d8629"], + +Cell[BoxData["2.3793916761039797`*^-53"], "Output", + CellChangeTimes->{3.991339230528511*^9}, + CellLabel-> + "Out[316]=",ExpressionUUID->"f9bebeff-7b36-a841-ae60-79aab85878cb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + 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"]}]], "*", "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, {3.9915581887684402`*^9, + 3.991558193612196*^9}},ExpressionUUID->"edc47846-771c-164b-bedc-\ +99ac8c0783df"], + +Cell[BoxData["2.192147584896785`*^-54"], "Output", + CellChangeTimes->{3.991339230554512*^9}, + CellLabel-> + "Out[317]=",ExpressionUUID->"dd9bd6be-98ec-9547-9e2c-ebed31965dd0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + 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"]}]], "*", + 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}, + 3.9915581864980736`*^9},ExpressionUUID->"a1f930ec-56b4-2f43-abd0-\ +dd8b8a4708b1"], + +Cell[BoxData["3.508823705223133`*^-54"], "Output", + CellChangeTimes->{3.9913392305796223`*^9}, + CellLabel-> + "Out[318]=",ExpressionUUID->"2d6d3a17-c283-8646-b256-a9dbc673c9bc"] +}, 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->"41ba9715-7e52-a24a-aa04-cf2166cf0dfa"], + +Cell[BoxData["44.37747929594205`"], "Output", + CellChangeTimes->{3.9913392305906105`*^9}, + CellLabel-> + "Out[319]=",ExpressionUUID->"98b38576-def0-1e40-8080-5c3f5765197b"] +}, 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->"163fb4a0-76e7-4649-86cb-bfaf41944c98"], + +Cell[BoxData["102.55835649176893`"], "Output", + CellChangeTimes->{3.99133923061561*^9}, + CellLabel-> + "Out[320]=",ExpressionUUID->"ea23bd61-3699-734f-8a76-9cad8281ef61"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[321]:=",ExpressionUUID->"5f0f180a-aa4c-dd4b-bdd8-1378a8fe1b95"], + +Cell[BoxData["0.5630879721742558`"], "Output", + CellChangeTimes->{3.9913392306426105`*^9}, + CellLabel-> + "Out[321]=",ExpressionUUID->"6002c9fb-3c6f-5a46-96f3-d95ebe5fcb07"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[322]:=",ExpressionUUID->"1922f255-2223-ac46-b784-0bce07b8e6a9"], + +Cell[BoxData["1.956498159343112`"], "Output", + CellChangeTimes->{3.99133923065361*^9}, + CellLabel-> + "Out[322]=",ExpressionUUID->"54e7ec9c-75a9-1d4e-a041-1032d97b3c9c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[323]:=",ExpressionUUID->"ef536efb-880a-d543-b7af-57dde3479623"], + +Cell[BoxData["200.65523570140064`"], "Output", + CellChangeTimes->{3.9913392306776104`*^9}, + CellLabel-> + "Out[323]=",ExpressionUUID->"aa339681-2ea5-f647-b66a-0492fa8f2ab6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[324]:=",ExpressionUUID->"23ab10a2-3c20-0544-ade1-f1d12ec5aec2"], + +Cell[BoxData["24.98842482695703`"], "Output", + CellChangeTimes->{3.991339230703802*^9}, + CellLabel-> + "Out[324]=",ExpressionUUID->"2418bfa6-2d55-cb40-b519-958a954750e7"] +}, 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->"aca75c7d-c5bb-8b47-872f-20148e5c7111"], + +Cell[BoxData["0.01829601703069907`"], "Output", + CellChangeTimes->{3.9913392307297993`*^9}, + CellLabel-> + "Out[325]=",ExpressionUUID->"f503c6c4-4e73-ad4e-8d38-70a1b8888f41"] +}, 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->"cd1abe66-0480-c04d-bbfd-f65271be3b80"], + +Cell[BoxData["6.551890985609901`"], "Output", + CellChangeTimes->{3.991339230837267*^9}, + CellLabel-> + "Out[326]=",ExpressionUUID->"d5c10871-8190-e34b-bafd-c8f1bf959b75"] +}, 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->"c96cc89e-a2d4-f442-8558-837587935139"], + +Cell[BoxData["0.00990105610750653`"], "Output", + CellChangeTimes->{3.9913392308522797`*^9}, + CellLabel-> + "Out[327]=",ExpressionUUID->"21257e6b-3192-d14d-ae2c-f6bb441a55d5"] +}, 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->"1997c8c5-b99e-0343-82de-11d88a9a1347"], + +Cell[BoxData["8.906440683949702`"], "Output", + CellChangeTimes->{3.991339230966341*^9}, + CellLabel-> + "Out[328]=",ExpressionUUID->"6e224ad7-7bb4-3d4b-9ad8-ee907ebc0667"] +}, 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->"b151d79d-271f-514b-8b93-936c1a72f6cb"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991339230988348*^9}, + CellLabel-> + "Out[329]=",ExpressionUUID->"8f4a029e-ffe6-ac48-ac2f-26d4c6f8ae6c"] +}, 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->"ca085857-4c01-0248-853e-e9dc47d19120"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991339231030445*^9}, + CellLabel-> + "Out[330]=",ExpressionUUID->"a0d0e412-b0a8-da49-99d6-5e8fa7d61f8f"] +}, 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->"953e3c2f-fb9c-3f46-89c8-95be764d13e2"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991339231060343*^9}, + CellLabel-> + "Out[331]=",ExpressionUUID->"113275b9-f155-0c40-9fb5-4237227d5946"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"ea9dfb1b-57ad-\ +0148-b647-106c07557f97"], + +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.9918464744109974`*^9},ExpressionUUID->"b8b3f009-678c-e54b-8a0c-\ +4de3179a9fb0"], + +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->"c2771e87-d21b-5a4e-975c-e841dd59c44a"], + +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->"ff170e27-3c46-a544-b2dd-c8eb8ed350ea"], + +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->"1becfb7e-341c-2c43-a01b-4766385a028d"], + +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->"17ed9ce9-43ce-c04b-9baf-441313120d44"], + +Cell[BoxData["6.551890985609901`"], "Output", + CellChangeTimes->{3.9913392346332226`*^9}, + CellLabel-> + "Out[332]=",ExpressionUUID->"125cfb6f-a2d2-194d-9427-f352c26ad1ae"] +}, 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.9918464780941105`*^9},ExpressionUUID->"d9fdb976-d745-4c44-9c66-\ +2929c00590fc"], + +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->"53bbc450-5242-e641-942d-bc7e5add9ee6"], + +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->"2da21055-0b71-ca4c-a4e7-b80153da78d0"], + +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->"a669604f-6176-dd48-8e79-07fc64e4d41b"], + +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->"b2fab6ca-4706-de4f-990c-effa48d983de"], + +Cell[BoxData["8.906440683949707`"], "Output", + CellChangeTimes->{3.99133923819088*^9}, + CellLabel-> + "Out[333]=",ExpressionUUID->"eb68ee17-dac2-1e46-84d5-909c4cb50318"] +}, 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.9918464867236023`*^9},ExpressionUUID->"a3abef6a-80f9-8c44-ac94-\ +1eacd8c5b802"], + +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->"419e66ef-e794-0e41-8cfb-f36151a9a031"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918464901028175`*^9, + 3.9918465034759026`*^9}},ExpressionUUID->"5b0c09f8-5e46-a545-8946-\ +a08264de1b62"], + +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->"a4931f15-eaa0-1242-81c3-10e27a7c5ad4"], + +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->"ab5949a3-42fa-c340-946f-728a0b7f660d"], + +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->"e6df8db5-d6c5-4b4a-ae1b-671c3aaa30b3"], + +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->"0387496f-9be6-1343-8ff5-34662019e71b"], + +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->"9d88b545-fa49-1040-a93c-61d85d3a7a24"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991714709387436*^9, 3.991714738003292*^9}, { + 3.991714834117689*^9, 3.991714842328617*^9}, 3.991793311407936*^9, + 3.9917953263701286`*^9},ExpressionUUID->"a890eeb1-6bca-424f-a8f9-\ +1a35c4cca33c"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.011000000000000001`], AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, + 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.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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, 52.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9917148467316074`*^9}, + CellLabel-> + "Out[529]=",ExpressionUUID->"cc6e68e6-6d62-0046-bbd0-fe05510d86ec"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, + 3.99179533223897*^9}},ExpressionUUID->"b1f266e4-128a-e44e-90be-\ +31846216bd9c"], + +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"x130\\\", \\\",\\\", \ +GraphicsBox[List[List[], List[List[TagBox[List[Skeleton[2]], \ +Function[Annotation[Slot[1], \\\"Charting`Private`Tag#1\\\"]]]]], \ +List[List[], List[]]], List[Rule[DisplayFunction, Identity], \ +Rule[DisplayFunction, Identity], Rule[DisplayFunction, Identity], \ +Rule[AspectRatio, NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], \ +Rule[Axes, List[True, True]], Rule[AxesLabel, List[None, None]], \ +Rule[AxesOrigin, List[0, 0]], RuleDelayed[DisplayFunction, Identity], \ +Rule[Frame, List[List[False, False], List[False, False]]], Rule[FrameLabel, \ +List[List[None, None], List[None, None]]], Rule[FrameTicks, \ +List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ +Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"AxisPadding\\\", Scaled[0.02`]], \ +Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ +AbsolutePointSize[6]], Rule[\\\"DefaultPlotStyle\\\", \ +List[Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]]]], \ +Rule[\\\"DomainPadding\\\", Scaled[0.02`]], Rule[\\\"PointSizeFunction\\\", \ +\\\"SmallPointSize\\\"], Rule[\\\"RangePadding\\\", Scaled[0.05`]], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"IncludeHighlighting\\\", \\\ +\"CurrentPoint\\\"], Rule[\\\"HighlightStyle\\\", Automatic], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"CoordinatesToolOptions\\\", \ +List[Rule[Skeleton[2]], Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[0, \ +52.`], List[0, 0.120683`]]], Rule[PlotRangeClipping, True], \ +Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ +List[Scaled[0.02`], Scaled[0.05`]]]], Rule[Ticks, List[Automatic, \ +Automatic]]]]}], \\\"]\\\"}]\\).\"", 2, 532, 171, 24485846962764810879, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{{3.9917148948888054`*^9, 3.991714918948065*^9}}, + CellLabel-> + "During evaluation of \ +In[532]:=",ExpressionUUID->"e5cadd69-92fe-044c-9cd3-27a3efb8f2cf"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x130", ",", + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.011000000000000001`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, + 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.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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, 52.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]}], "]"}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}}, + CellLabel-> + "Out[532]=",ExpressionUUID->"8c16d688-6604-f441-a079-29d116d7f98b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.991923767707161*^9},ExpressionUUID->"15c72253-d078-7f43-9f29-\ +7ac094706013"], + +Cell[BoxData["12.55365498952246`"], "Output", + CellChangeTimes->{3.991340544411957*^9}, + CellLabel-> + "Out[337]=",ExpressionUUID->"6748be9e-23e0-b742-b32d-b4d0b2af2d47"] +}, 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.9919237699816914`*^9},ExpressionUUID->"8ab23ce3-6dd3-7740-bde2-\ +eb9eba4ac874"], + +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->"68caf80c-08a0-5a4f-86e7-94369a91094e"], + +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->"99e2d7e0-6b3a-4241-b934-9876555b06af"], + +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->"35c8608a-cdb9-7b49-a349-ff93419909b7"], + +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->"be12d8f1-8442-ce44-8064-691aa975f7de"], + +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->"331394c4-497c-0346-8d4a-8dd138d0b1ec"] +}, 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->"6f4b7e44-0b17-c840-a01f-706fcd68fd89"], + +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->"c81c58e6-5421-304d-872c-00439d312fe4"], + +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->"55f72141-2a48-cb49-9d96-f54968f261ca"], + +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->"02912ea6-4ba4-644f-aec0-867d70fcdcf0"], + +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->"b4acd794-c7cb-6242-90b6-7a7453ebdeb1"], + +Cell[BoxData["12.553654989521348`"], "Output", + CellChangeTimes->{3.9913408882266617`*^9}, + CellLabel-> + "Out[339]=",ExpressionUUID->"320f82af-6278-6a41-a4de-a355ccf7664a"] +}, 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.9918465455039177`*^9, + 3.9918465541706066`*^9}},ExpressionUUID->"55574de4-5bf4-6a47-8b7c-\ +0502360e0741"], + +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->"ad528e52-1db8-df47-9908-86690dda4ace"], + +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->"a92c32b5-c23e-7943-9656-aea4b5c428d7"], + +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->"278bf77a-d73c-c84a-8914-85a2a0d1559c"], + +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->"341ce956-49ff-8f46-84bb-bcaaba1e8ea9"], + +Cell[BoxData["1.3456729512531673`"], "Output", + CellChangeTimes->{3.991340895263792*^9}, + CellLabel-> + "Out[340]=",ExpressionUUID->"94404803-8b83-8a42-8385-1167ffd078a8"] +}, 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.991846558454563*^9, + 3.991846561166006*^9}},ExpressionUUID->"a62e28a7-2963-b449-b2d2-\ +4774e534a560"], + +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->"c97b7826-1134-834a-8813-439f81fdc13f"], + +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->"5648dba3-b48a-c549-a33c-f599b4e5b995"], + +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->"7563d59f-361e-3948-b073-d7842f12334e"], + +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->"726f2b8e-ea46-7c48-8586-2eb207eadde6"], + +Cell[BoxData["11.729429210875175`"], "Output", + CellChangeTimes->{3.9913409010488796`*^9}, + CellLabel-> + "Out[341]=",ExpressionUUID->"db379c33-b649-2d43-ac47-d39edb6bd127"] +}, 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.991846565092888*^9, + 3.991846568588709*^9}},ExpressionUUID->"9dbddde0-a221-414e-bf4d-\ +6be0dfb61fa1"], + +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->"230d0e01-4d30-3142-81a2-ed4c42905a05"], + +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->"77058178-333e-354d-80c4-e12104a807ce"], + +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->"b5bc528a-d748-0f4f-94e7-12c75a1d74a6"], + +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->"2107b1d1-4ebe-2440-81fa-60e90e5253f9"], + +Cell[BoxData["21.67464099510054`"], "Output", + CellChangeTimes->{3.991340904517517*^9}, + CellLabel-> + "Out[342]=",ExpressionUUID->"7bdb3303-182d-9d45-b807-70346e03e157"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991846571659788*^9, + 3.991846575865097*^9}},ExpressionUUID->"a4f97f96-646f-ae45-96cc-\ +9c4165440b9d"], + +Cell[BoxData["0.0843966342510027`"], "Output", + CellChangeTimes->{3.991340904549515*^9}, + CellLabel-> + "Out[343]=",ExpressionUUID->"37b2a818-74be-9440-ae6a-a43cc0ec40a8"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918465789006596`*^9, 3.9918465811046677`*^9}, + 3.991923777228119*^9},ExpressionUUID->"35c63783-19fc-b040-b8f7-\ +ef972ba7b6ed"], + +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->"82776c92-7c10-2f45-a63e-50057ffca54a"], + +Cell[BoxData["19.580504093356314`"], "Output", + CellChangeTimes->{3.9913409045775146`*^9}, + CellLabel-> + "Out[345]=",ExpressionUUID->"37bd912e-575b-eb4f-8032-971d1e707228"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[347]:=",ExpressionUUID->"a56d8b01-6731-b840-bb77-f7f462892539"], + +Cell[BoxData["0.8477067309358528`"], "Output", + CellChangeTimes->{3.991340904625164*^9}, + CellLabel-> + "Out[347]=",ExpressionUUID->"3a344811-90b2-ec44-89d0-1c709ea9d046"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[350]:=",ExpressionUUID->"d4bf0543-67ce-024d-a419-60bff835c466"], + +Cell[BoxData["16.598525115055164`"], "Output", + CellChangeTimes->{3.9913409046880226`*^9}, + CellLabel-> + "Out[350]=",ExpressionUUID->"665369d7-97a6-fa48-bef2-b3decb044e25"] +}, 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->"276e96f1-558d-9846-adb4-2350594341f3"], + +Cell[BoxData["0.021613768236132463`"], "Output", + CellChangeTimes->{3.9913409047132187`*^9}, + CellLabel-> + "Out[351]=",ExpressionUUID->"ffc1a009-137c-b34d-9076-1696d057b6db"] +}, 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->"fff85ae9-ba42-8247-a314-19fd83d5dbdb"], + +Cell[BoxData["6.028089553291302`"], "Output", + CellChangeTimes->{3.9913409048112164`*^9}, + CellLabel-> + "Out[352]=",ExpressionUUID->"895d1a28-2153-a84d-81e3-1cdf5d6d48ed"] +}, 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->"37b23358-bc27-224f-b5f7-62b1fc97e785"], + +Cell[BoxData["0.010798036798660033`"], "Output", + CellChangeTimes->{3.991340904825058*^9}, + CellLabel-> + "Out[353]=",ExpressionUUID->"d4750c6a-3354-8a41-a70f-517b49b84087"] +}, 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->"eeb5992b-a45f-a14b-8a22-14af99af15e2"], + +Cell[BoxData["8.5284977476633`"], "Output", + CellChangeTimes->{3.9913409049303207`*^9}, + CellLabel-> + "Out[354]=",ExpressionUUID->"5a3e32eb-a9a4-414a-82df-9b56efed1b93"] +}, 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->"6ddb4033-5394-f34c-95af-22d1f1297351"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991340904948307*^9}, + CellLabel-> + "Out[355]=",ExpressionUUID->"69873497-f6d3-324c-852f-4bb50568f85a"] +}, 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->"22b71737-ea19-a348-af70-a874963373f8"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991340904981308*^9}, + CellLabel-> + "Out[356]=",ExpressionUUID->"13526c56-3d85-3c46-83ee-6fb4edbe82d4"] +}, 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->"08fab4d8-dc36-3f43-8a7e-9a5fa838c25d"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.99134090500931*^9}, + CellLabel-> + "Out[357]=",ExpressionUUID->"b4a365f6-f572-034d-a2e6-640ba90b8a4e"] +}, 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.9918465999055576`*^9},ExpressionUUID->"d3f05697-a372-2a42-8c9c-\ +ccc9289a44b2"], + +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->"dedd9f21-b30a-8e42-82f2-2e7179121ba4"], + +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->"93a73c80-9680-654d-99e9-e1bbed8734bd"], + +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->"424f437d-38a4-9145-b6b6-1508229b7d8c"], + +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->"e793f45c-63f6-1a4c-a8b0-a632d0f13f9c"], + +Cell[BoxData["6.028089553291301`"], "Output", + CellChangeTimes->{3.991340908920454*^9}, + CellLabel-> + "Out[358]=",ExpressionUUID->"ce1fa0ad-8b26-074b-acfe-1ea0d6a21afc"] +}, 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.991846603740141*^9},ExpressionUUID->"7ddfee1b-0897-3d44-810e-\ +ee309c4e8981"], + +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->"36d155d3-589e-794d-9cf1-db14439adeb2"], + +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->"96775aa8-3123-8641-a422-091bbfbfb205"], + +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->"bc2025f1-37fb-ab47-8425-81a033e22370"], + +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->"be10e44a-c9da-4b44-b4a3-1024a86046c1"], + +Cell[BoxData["8.528497747663296`"], "Output", + CellChangeTimes->{3.991340912767397*^9}, + CellLabel-> + "Out[359]=",ExpressionUUID->"d3ed87ff-6c98-ec45-a1b5-3155c267d9aa"] +}, 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.9918466101881027`*^9},ExpressionUUID->"edc0f744-d665-ee48-9e1d-\ +32ecc25a02c4"], + +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->"f43b713e-4442-024e-aa3a-d7907c7b2d57"] +}, 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", ",", "15"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918466141799603`*^9},ExpressionUUID->"556a1eda-5f63-f94a-8981-\ +af3901893679"], + +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->"346e0290-ff74-c04a-98f4-4b3b3d9364c5"], + +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->"ce3310df-8528-a243-9163-01df1bba8789"], + +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->"ac270026-fa69-2b44-8823-7a4a31d727b7"], + +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->"bb15b9e5-873c-b443-b9aa-a9ce94c451b4"], + +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->"787ac492-4e0a-fd43-b6f7-df921f726ea4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, + 3.99179533223897*^9}},ExpressionUUID->"adc3c3bb-baff-7c45-bc8f-\ +885e51cde7ff"], + +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"x130\\\", \\\",\\\", \ +GraphicsBox[List[List[], List[List[TagBox[List[Skeleton[2]], \ +Function[Annotation[Slot[1], \\\"Charting`Private`Tag#1\\\"]]]]], \ +List[List[], List[]]], List[Rule[DisplayFunction, Identity], \ +Rule[DisplayFunction, Identity], Rule[DisplayFunction, Identity], \ +Rule[AspectRatio, NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], \ +Rule[Axes, List[True, True]], Rule[AxesLabel, List[None, None]], \ +Rule[AxesOrigin, List[0, 0]], RuleDelayed[DisplayFunction, Identity], \ +Rule[Frame, List[List[False, False], List[False, False]]], Rule[FrameLabel, \ +List[List[None, None], List[None, None]]], Rule[FrameTicks, \ +List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ +Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"AxisPadding\\\", Scaled[0.02`]], \ +Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ +AbsolutePointSize[6]], Rule[\\\"DefaultPlotStyle\\\", \ +List[Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]]]], \ +Rule[\\\"DomainPadding\\\", Scaled[0.02`]], Rule[\\\"PointSizeFunction\\\", \ +\\\"SmallPointSize\\\"], Rule[\\\"RangePadding\\\", Scaled[0.05`]], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"IncludeHighlighting\\\", \\\ +\"CurrentPoint\\\"], Rule[\\\"HighlightStyle\\\", Automatic], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"CoordinatesToolOptions\\\", \ +List[Rule[Skeleton[2]], Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[0, \ +52.`], List[0, 0.120683`]]], Rule[PlotRangeClipping, True], \ +Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ +List[Scaled[0.02`], Scaled[0.05`]]]], Rule[Ticks, List[Automatic, \ +Automatic]]]]}], \\\"]\\\"}]\\).\"", 2, 532, 171, 24485846962764810879, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{{3.9917148948888054`*^9, 3.991714918948065*^9}}, + CellLabel-> + "During evaluation of \ +In[532]:=",ExpressionUUID->"db9cfc30-6083-5745-956a-039ca4224774"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x130", ",", + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.011000000000000001`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, + 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.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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, 52.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]}], "]"}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}}, + CellLabel-> + "Out[532]=",ExpressionUUID->"31a2c0a3-c39f-8a4d-bdef-7b36360aabf7"] +}, 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[365]:=",ExpressionUUID->"1ecbbb3f-ee46-da42-8494-bab66d31929d"], + +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->"ff5f87ad-0547-2e4d-89ac-2a19dabd294e"], + +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->"4f2b71d6-333a-cf47-9307-2421af7d6535"], + +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->"d1d04bbb-5842-0645-bad0-4769b073ee9a"], + +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->"6eb43be6-bae6-ed4a-aaaf-c88bf605b97b"], + +Cell[BoxData["12.5536549879565`"], "Output", + CellChangeTimes->{3.9913423425170345`*^9}, + CellLabel-> + "Out[365]=",ExpressionUUID->"edccccc4-7997-b54a-b45b-3f22383f2466"] +}, 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.9918466382952557`*^9, + 3.9918466432862854`*^9}},ExpressionUUID->"fc5d2c23-4a6f-a449-ab65-\ +d4efe503e761"], + +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->"6b4a6697-4d78-6348-aa33-09faf2e911d5"], + +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->"ff3f230d-c2f3-0a4b-92bb-4d06b5d3791d"], + +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->"ef73945b-c6bc-b44c-a3fe-a5985e6926fb"], + +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->"0dbccea2-a398-8e4f-96d9-c32a7f87f538"], + +Cell[BoxData["2.904399821349581`"], "Output", + CellChangeTimes->{3.9913423499055786`*^9}, + CellLabel-> + "Out[366]=",ExpressionUUID->"288e2dce-c937-8742-9640-a3e8f057e389"] +}, 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.9918466470672035`*^9, + 3.991846650208416*^9}},ExpressionUUID->"43c7013a-a6e2-1a44-9690-\ +1cefd2c28187"], + +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->"f13edf30-029d-f44b-80aa-7454fa8a48eb"], + +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->"9d4bffff-d8ba-5a4b-ba27-25e0bcf141ed"], + +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->"03541b7d-a305-9542-b64e-53c12d61a33e"], + +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->"1c28a402-6927-1f4a-8631-2d356954a732"], + +Cell[BoxData["9.928941323789857`"], "Output", + CellChangeTimes->{3.991342356382967*^9}, + CellLabel-> + "Out[367]=",ExpressionUUID->"f80ab114-db4a-5644-a33e-f2edc512069c"] +}, 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.99184665401457*^9, + 3.991846657234188*^9}},ExpressionUUID->"41fb449c-01a0-ed48-856e-\ +cc313bd0a6c7"], + +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->"00b8f68b-770c-674c-8948-37aa9dbeba3b"], + +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->"8193dcf9-288a-d04f-81d0-67db9580cad4"], + +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->"f07c17e3-2923-c44f-8e3c-8f3ec985f07f"], + +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->"6165087b-71c6-5242-84a4-b7f2ddeda33f"], + +Cell[BoxData["19.874153108015193`"], "Output", + CellChangeTimes->{3.9913423600715523`*^9}, + CellLabel-> + "Out[368]=",ExpressionUUID->"f6c86172-b23f-f047-b574-633c44f7d8cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991846664151518*^9, + 3.991846668968689*^9}},ExpressionUUID->"63e2fa1e-7c56-c749-a270-\ +c9c703386fca"], + +Cell[BoxData["0.2067571864462191`"], "Output", + CellChangeTimes->{3.9913423601046352`*^9}, + CellLabel-> + "Out[369]=",ExpressionUUID->"61a3e242-6b8f-6c43-96c1-0f461f3aa111"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991846671829691*^9, 3.991846673735302*^9}, + 3.9919237989916477`*^9},ExpressionUUID->"8b2e971d-5760-5e43-92fb-\ +a0baf224e1e6"], + +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->"ed5b29da-ad52-224c-9e8e-5cfb6cba7ae5"], + +Cell[BoxData["29.129739599983825`"], "Output", + CellChangeTimes->{3.9913423601345863`*^9}, + CellLabel-> + "Out[371]=",ExpressionUUID->"73bada1a-f8bf-544a-9ef4-a0ed1cad3a20"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[373]:=",ExpressionUUID->"52bec50b-93fb-4b4d-b447-2d6401f3d9c3"], + +Cell[BoxData["0.6950071373045505`"], "Output", + CellChangeTimes->{3.9913423601709976`*^9}, + CellLabel-> + "Out[373]=",ExpressionUUID->"a055216b-2938-334b-91b2-e1767bdc02c1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[376]:=",ExpressionUUID->"1256eede-590d-b745-a810-815fbd90d864"], + +Cell[BoxData["20.245376929811762`"], "Output", + CellChangeTimes->{3.9913423602320137`*^9}, + CellLabel-> + "Out[376]=",ExpressionUUID->"1cb3b090-b3a4-5041-90d2-cd331e939555"] +}, 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->"26b3e9a1-c12d-c340-b102-39e3418b2423"], + +Cell[BoxData["0.02003459702393596`"], "Output", + CellChangeTimes->{3.991342360260002*^9}, + CellLabel-> + "Out[377]=",ExpressionUUID->"d87c8c95-b548-7743-a9ae-ba00333bd7d5"] +}, 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->"f1c368f7-48c1-ae41-985d-84d539f430bf"], + +Cell[BoxData["6.261157591052328`"], "Output", + CellChangeTimes->{3.9913423603598785`*^9}, + CellLabel-> + "Out[378]=",ExpressionUUID->"5c166658-06fc-9646-bfdb-835a116404d0"] +}, 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->"8303e334-ad11-5445-af0f-63c02c371294"], + +Cell[BoxData["0.010388932679900494`"], "Output", + CellChangeTimes->{3.991342360375868*^9}, + CellLabel-> + "Out[379]=",ExpressionUUID->"f5459de9-bc9d-bb43-82ac-bbb255c0bb6b"] +}, 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->"9a6f9d0e-1f18-634f-a091-d3e4beab45d1"], + +Cell[BoxData["8.694797556550151`"], "Output", + CellChangeTimes->{3.991342360471882*^9}, + CellLabel-> + "Out[380]=",ExpressionUUID->"7547cec8-bbb9-474e-a326-2aa5b5d0ea0e"] +}, 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->"d36c329f-0f97-3149-b3e7-38d2ece236d0"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991342360486868*^9}, + CellLabel-> + "Out[381]=",ExpressionUUID->"67a86a49-0510-5043-b0e4-0c9fbd007328"] +}, 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->"9d78a1b5-e3d2-144d-9443-73ce54c6aaab"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.9913423605138645`*^9}, + CellLabel-> + "Out[382]=",ExpressionUUID->"4375608b-4469-c645-b9da-2341df1da6f3"] +}, 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->"66c99cb8-7b1e-c84b-9bf9-362f26e0fb97"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.9913423605448647`*^9}, + CellLabel-> + "Out[383]=",ExpressionUUID->"d85e146c-555e-ff43-a64b-dc61481e05ba"] +}, 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.9918466934711*^9},ExpressionUUID->"f0de9d8e-43d1-8b49-87d3-7f90d7e4f5e3"], + +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->"0b50a344-9b6a-6f43-a31a-1906b6b83303"], + +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->"a61f676b-80fb-564e-91e4-f0d82f0e9781"], + +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->"6e5727c3-e53a-0d47-882d-51da7563867b"], + +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->"d4019ad4-a9c4-064b-945e-f11a073e5bac"], + +Cell[BoxData["6.261157591052324`"], "Output", + CellChangeTimes->{3.9913423642473736`*^9}, + CellLabel-> + "Out[384]=",ExpressionUUID->"c8ba2a53-8163-c84b-820e-bd4c6c80df97"] +}, 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.9918466985968094`*^9},ExpressionUUID->"61250ade-2a8a-1a4d-bb58-\ +5bb7aa60c04a"], + +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->"337843af-226f-af40-a4c7-0e7c7d9ce578"], + +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->"5caa0d49-db8e-7047-81dc-724c9a57223e"], + +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->"89243390-869b-ab4b-bd60-81c23885cae2"], + +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->"7212133e-ab68-b54b-b1d5-ecb5b003feb9"], + +Cell[BoxData["8.694797556550144`"], "Output", + CellChangeTimes->{3.9913423679416714`*^9}, + CellLabel-> + "Out[385]=",ExpressionUUID->"68a706fc-6e54-074e-91f9-e60e01512997"] +}, 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.991846701939392*^9},ExpressionUUID->"020bdd6e-add3-0a46-9b39-\ +04b7ffae8470"], + +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->"24c99615-29ec-434a-9120-6a0e664bd2c0"] +}, 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", ",", "15"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918467058861084`*^9},ExpressionUUID->"5cbca01a-701c-5744-b740-\ +3bf6288a42b7"], + +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->"012afcdf-095f-f547-ae49-5e5eab6ac53d"], + +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->"efe4240f-cfb2-1544-b97a-0d31a46a5acc"], + +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->"f00a9c55-0183-344a-88dd-02375b09fbdb"], + +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->"948ef9a9-e05b-a247-a398-dab2b9b01e6c"], + +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->"3cb194f4-3fee-2848-822d-18b4cc4f12ed"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, + 3.99179533223897*^9}},ExpressionUUID->"dfd70d8f-49d3-a04f-a31c-\ +55e81ecceef1"], + +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"x130\\\", \\\",\\\", \ +GraphicsBox[List[List[], List[List[TagBox[List[Skeleton[2]], \ +Function[Annotation[Slot[1], \\\"Charting`Private`Tag#1\\\"]]]]], \ +List[List[], List[]]], List[Rule[DisplayFunction, Identity], \ +Rule[DisplayFunction, Identity], Rule[DisplayFunction, Identity], \ +Rule[AspectRatio, NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], \ +Rule[Axes, List[True, True]], Rule[AxesLabel, List[None, None]], \ +Rule[AxesOrigin, List[0, 0]], RuleDelayed[DisplayFunction, Identity], \ +Rule[Frame, List[List[False, False], List[False, False]]], Rule[FrameLabel, \ +List[List[None, None], List[None, None]]], Rule[FrameTicks, \ +List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ +Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"AxisPadding\\\", Scaled[0.02`]], \ +Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ +AbsolutePointSize[6]], Rule[\\\"DefaultPlotStyle\\\", \ +List[Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]]]], \ +Rule[\\\"DomainPadding\\\", Scaled[0.02`]], Rule[\\\"PointSizeFunction\\\", \ +\\\"SmallPointSize\\\"], Rule[\\\"RangePadding\\\", Scaled[0.05`]], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"IncludeHighlighting\\\", \\\ +\"CurrentPoint\\\"], Rule[\\\"HighlightStyle\\\", Automatic], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"CoordinatesToolOptions\\\", \ +List[Rule[Skeleton[2]], Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[0, \ +52.`], List[0, 0.120683`]]], Rule[PlotRangeClipping, True], \ +Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ +List[Scaled[0.02`], Scaled[0.05`]]]], Rule[Ticks, List[Automatic, \ +Automatic]]]]}], \\\"]\\\"}]\\).\"", 2, 532, 171, 24485846962764810879, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{{3.9917148948888054`*^9, 3.991714918948065*^9}}, + CellLabel-> + "During evaluation of \ +In[532]:=",ExpressionUUID->"1aca1256-d868-9b45-945c-81093b7e2535"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x130", ",", + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.011000000000000001`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, + 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.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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, 52.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]}], "]"}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}}, + CellLabel-> + "Out[532]=",ExpressionUUID->"5b219220-e727-7947-b93a-690cc8839c38"] +}, 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[391]:=",ExpressionUUID->"bd700bac-9ff0-794b-a1df-85afecca9797"], + +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->"16053233-c82a-df40-9f76-57858a5ce653"], + +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->"c17aef07-6675-4240-9659-a4faf651ba84"], + +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->"7e2cd7a6-7004-5545-8ead-85e58be0261f"], + +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->"133cf53d-6aa7-f54b-97b8-85e2d528574d"], + +Cell[BoxData["12.55365498945131`"], "Output", + CellChangeTimes->{3.991343769962549*^9}, + CellLabel-> + "Out[391]=",ExpressionUUID->"4a14d2c1-d4aa-bb44-a445-b9d5e6a8ec44"] +}, 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.991846744062315*^9, + 3.9918467481290073`*^9}},ExpressionUUID->"aa4ca102-401f-6c45-84ea-\ +b21fa4222eb4"], + +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->"67370f99-93a3-2a4c-abfb-9ec2739f82e3"], + +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->"c65b7f06-a5d9-2b42-b82a-61a8418de1aa"], + +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->"c5205368-7549-5d4a-91b5-fc0c385cffcd"], + +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->"75f147e7-0111-f945-9d68-054bd31d6468"], + +Cell[BoxData["2.1234790234082306`"], "Output", + CellChangeTimes->{3.9913437771602173`*^9}, + CellLabel-> + "Out[392]=",ExpressionUUID->"5463c495-050f-3a48-ad8b-56249455c6df"] +}, 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.9918467529108715`*^9, + 3.9918467555119896`*^9}},ExpressionUUID->"6ecebc3a-297f-ad45-be0e-\ +687cb63b6c02"], + +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->"f1435cf6-8920-cf4a-89bd-205dc850fb13"], + +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->"153c989b-3e07-ba44-9502-ce5eeeaef20b"], + +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->"f96787a5-8527-9249-955c-61c282829a8e"], + +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->"74b767aa-86c3-b342-aaa5-b3aa8db05a0c"], + +Cell[BoxData["10.711562421053975`"], "Output", + CellChangeTimes->{3.991343783589731*^9}, + CellLabel-> + "Out[393]=",ExpressionUUID->"428a5219-3885-624b-b9ef-667a709b85a0"] +}, 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.9918467593835926`*^9, + 3.991846761720169*^9}},ExpressionUUID->"f4d4d2f3-a6fe-7445-a71e-\ +f1844b022d84"], + +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->"003d8265-71b4-9b48-956a-875004c8f691"], + +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->"58af30c7-a170-574d-a307-1d28d4712f2c"], + +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->"503404b6-a33b-f146-8dab-1a0f0a48a6bb"], + +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->"ec987c19-b918-e54c-a15c-61c6a7a0cb83"], + +Cell[BoxData["20.656774205279326`"], "Output", + CellChangeTimes->{3.9913437870822353`*^9}, + CellLabel-> + "Out[394]=",ExpressionUUID->"fd0d79df-b556-504a-b816-cff0691012a5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918467646351814`*^9, + 3.99184676823822*^9}},ExpressionUUID->"84cd8b8a-60e5-9e4d-8a98-\ +fd76363577db"], + +Cell[BoxData["0.14275466609450368`"], "Output", + CellChangeTimes->{3.991343787117275*^9}, + CellLabel-> + "Out[395]=",ExpressionUUID->"e1ed9356-8f68-774e-9d61-631f2714eaaf"] +}, 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->"feb57727-78bd-5c41-b356-12adf3ce0cb1" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 147, 4, 28, "Input",ExpressionUUID->"58382c59-dd64-b449-aa77-b500c631729a"], +Cell[726, 28, 157, 3, 32, "Output",ExpressionUUID->"8bc528b5-d7e5-b04f-8824-04a5ba44f02f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[920, 36, 149, 4, 28, "Input",ExpressionUUID->"1e2a9573-08d6-094d-b2f8-1c2ad58521b5"], +Cell[1072, 42, 157, 3, 32, "Output",ExpressionUUID->"c1c87292-1cd0-7148-ae35-05da8f9df00b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1266, 50, 1301, 43, 113, "Input",ExpressionUUID->"ee9e3f9b-cd15-314a-959e-23f6767d8629"], +Cell[2570, 95, 176, 3, 32, "Output",ExpressionUUID->"f9bebeff-7b36-a841-ae60-79aab85878cb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2783, 103, 909, 30, 56, "Input",ExpressionUUID->"edc47846-771c-164b-bedc-99ac8c0783df"], +Cell[3695, 135, 175, 3, 32, "Output",ExpressionUUID->"dd9bd6be-98ec-9547-9e2c-ebed31965dd0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3907, 143, 963, 32, 56, "Input",ExpressionUUID->"a1f930ec-56b4-2f43-abd0-dd8b8a4708b1"], +Cell[4873, 177, 177, 3, 32, "Output",ExpressionUUID->"2d6d3a17-c283-8646-b256-a9dbc673c9bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5087, 185, 558, 19, 52, "Input",ExpressionUUID->"41ba9715-7e52-a24a-aa04-cf2166cf0dfa"], +Cell[5648, 206, 172, 3, 32, "Output",ExpressionUUID->"98b38576-def0-1e40-8080-5c3f5765197b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5857, 214, 651, 22, 52, "Input",ExpressionUUID->"163fb4a0-76e7-4649-86cb-bfaf41944c98"], +Cell[6511, 238, 170, 3, 32, "Output",ExpressionUUID->"ea23bd61-3699-734f-8a76-9cad8281ef61"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6718, 246, 170, 5, 56, "Input",ExpressionUUID->"5f0f180a-aa4c-dd4b-bdd8-1378a8fe1b95"], +Cell[6891, 253, 173, 3, 32, "Output",ExpressionUUID->"6002c9fb-3c6f-5a46-96f3-d95ebe5fcb07"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7101, 261, 170, 5, 55, "Input",ExpressionUUID->"1922f255-2223-ac46-b784-0bce07b8e6a9"], +Cell[7274, 268, 169, 3, 70, "Output",ExpressionUUID->"54e7ec9c-75a9-1d4e-a041-1032d97b3c9c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7480, 276, 181, 5, 70, "Input",ExpressionUUID->"ef536efb-880a-d543-b7af-57dde3479623"], +Cell[7664, 283, 173, 3, 70, "Output",ExpressionUUID->"aa339681-2ea5-f647-b66a-0492fa8f2ab6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7874, 291, 181, 5, 70, "Input",ExpressionUUID->"23ab10a2-3c20-0544-ade1-f1d12ec5aec2"], +Cell[8058, 298, 170, 3, 70, "Output",ExpressionUUID->"2418bfa6-2d55-cb40-b519-958a954750e7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8265, 306, 6055, 185, 70, "Input",ExpressionUUID->"aca75c7d-c5bb-8b47-872f-20148e5c7111"], +Cell[14323, 493, 174, 3, 70, "Output",ExpressionUUID->"f503c6c4-4e73-ad4e-8d38-70a1b8888f41"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14534, 501, 368, 9, 70, "Input",ExpressionUUID->"cd1abe66-0480-c04d-bbfd-f65271be3b80"], +Cell[14905, 512, 170, 3, 70, "Output",ExpressionUUID->"d5c10871-8190-e34b-bafd-c8f1bf959b75"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15112, 520, 6122, 187, 70, "Input",ExpressionUUID->"c96cc89e-a2d4-f442-8558-837587935139"], +Cell[21237, 709, 174, 3, 70, "Output",ExpressionUUID->"21257e6b-3192-d14d-ae2c-f6bb441a55d5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21448, 717, 368, 9, 70, "Input",ExpressionUUID->"1997c8c5-b99e-0343-82de-11d88a9a1347"], +Cell[21819, 728, 170, 3, 70, "Output",ExpressionUUID->"6e224ad7-7bb4-3d4b-9ad8-ee907ebc0667"] +}, Open ]], +Cell[CellGroupData[{ +Cell[22026, 736, 2663, 88, 70, "Input",ExpressionUUID->"b151d79d-271f-514b-8b93-936c1a72f6cb"], +Cell[24692, 826, 171, 3, 70, "Output",ExpressionUUID->"8f4a029e-ffe6-ac48-ac2f-26d4c6f8ae6c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24900, 834, 2603, 85, 70, "Input",ExpressionUUID->"ca085857-4c01-0248-853e-e9dc47d19120"], +Cell[27506, 921, 171, 3, 70, "Output",ExpressionUUID->"a0d0e412-b0a8-da49-99d6-5e8fa7d61f8f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27714, 929, 3712, 118, 70, "Input",ExpressionUUID->"953e3c2f-fb9c-3f46-89c8-95be764d13e2"], +Cell[31429, 1049, 171, 3, 70, "Output",ExpressionUUID->"113275b9-f155-0c40-9fb5-4237227d5946"] +}, Open ]], +Cell[31615, 1055, 138, 3, 70, "Input",ExpressionUUID->"ea9dfb1b-57ad-0148-b647-106c07557f97"], +Cell[CellGroupData[{ +Cell[31778, 1062, 2054, 59, 70, "Input",ExpressionUUID->"b8b3f009-678c-e54b-8a0c-4de3179a9fb0"], +Cell[33835, 1123, 566, 12, 70, "Message",ExpressionUUID->"c2771e87-d21b-5a4e-975c-e841dd59c44a"], +Cell[34404, 1137, 569, 12, 70, "Message",ExpressionUUID->"ff170e27-3c46-a544-b2dd-c8eb8ed350ea"], +Cell[34976, 1151, 570, 12, 70, "Message",ExpressionUUID->"1becfb7e-341c-2c43-a01b-4766385a028d"], +Cell[35549, 1165, 458, 10, 70, "Message",ExpressionUUID->"17ed9ce9-43ce-c04b-9baf-441313120d44"], +Cell[36010, 1177, 172, 3, 70, "Output",ExpressionUUID->"125cfb6f-a2d2-194d-9427-f352c26ad1ae"] +}, Open ]], +Cell[CellGroupData[{ +Cell[36219, 1185, 2054, 59, 70, "Input",ExpressionUUID->"d9fdb976-d745-4c44-9c66-2929c00590fc"], +Cell[38276, 1246, 564, 12, 70, "Message",ExpressionUUID->"53bbc450-5242-e641-942d-bc7e5add9ee6"], +Cell[38843, 1260, 567, 12, 70, "Message",ExpressionUUID->"2da21055-0b71-ca4c-a4e7-b80153da78d0"], +Cell[39413, 1274, 570, 12, 70, "Message",ExpressionUUID->"a669604f-6176-dd48-8e79-07fc64e4d41b"], +Cell[39986, 1288, 455, 10, 70, "Message",ExpressionUUID->"b2fab6ca-4706-de4f-990c-effa48d983de"], +Cell[40444, 1300, 169, 3, 70, "Output",ExpressionUUID->"eb68ee17-dac2-1e46-84d5-909c4cb50318"] +}, Open ]], +Cell[CellGroupData[{ +Cell[40650, 1308, 1938, 53, 70, "Input",ExpressionUUID->"a3abef6a-80f9-8c44-ac94-1eacd8c5b802"], +Cell[42591, 1363, 19983, 375, 70, "Output",ExpressionUUID->"419e66ef-e794-0e41-8cfb-f36151a9a031"] +}, Open ]], +Cell[CellGroupData[{ +Cell[62611, 1743, 2120, 60, 70, "Input",ExpressionUUID->"5b0c09f8-5e46-a545-8946-a08264de1b62"], +Cell[64734, 1805, 501, 11, 70, "Message",ExpressionUUID->"a4931f15-eaa0-1242-81c3-10e27a7c5ad4"], +Cell[65238, 1818, 503, 11, 70, "Message",ExpressionUUID->"ab5949a3-42fa-c340-946f-728a0b7f660d"], +Cell[65744, 1831, 506, 11, 70, "Message",ExpressionUUID->"e6df8db5-d6c5-4b4a-ae1b-671c3aaa30b3"], +Cell[66253, 1844, 456, 10, 70, "Message",ExpressionUUID->"0387496f-9be6-1343-8ff5-34662019e71b"], +Cell[66712, 1856, 41581, 727, 70, "Output",ExpressionUUID->"9d88b545-fa49-1040-a93c-61d85d3a7a24"] +}, Open ]], +Cell[CellGroupData[{ +Cell[108330, 2588, 327, 7, 70, "Input",ExpressionUUID->"a890eeb1-6bca-424f-a8f9-1a35c4cca33c"], +Cell[108660, 2597, 9707, 222, 70, "Output",ExpressionUUID->"cc6e68e6-6d62-0046-bbd0-fe05510d86ec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[118404, 2824, 257, 6, 70, "Input",ExpressionUUID->"b1f266e4-128a-e44e-90be-31846216bd9c"], +Cell[118664, 2832, 2580, 42, 70, "Message",ExpressionUUID->"e5cadd69-92fe-044c-9cd3-27a3efb8f2cf"], +Cell[121247, 2876, 10201, 227, 70, "Output",ExpressionUUID->"8c16d688-6604-f441-a079-29d116d7f98b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[131485, 3108, 215, 7, 70, "Input",ExpressionUUID->"15c72253-d078-7f43-9f29-7ac094706013"], +Cell[131703, 3117, 170, 3, 70, "Output",ExpressionUUID->"6748be9e-23e0-b742-b32d-b4d0b2af2d47"] +}, Open ]], +Cell[CellGroupData[{ +Cell[131910, 3125, 1816, 53, 70, "Input",ExpressionUUID->"8ab23ce3-6dd3-7740-bde2-eb9eba4ac874"], +Cell[133729, 3180, 506, 11, 70, "Message",ExpressionUUID->"68caf80c-08a0-5a4f-86e7-94369a91094e"], +Cell[134238, 3193, 512, 11, 70, "Message",ExpressionUUID->"99e2d7e0-6b3a-4241-b934-9876555b06af"], +Cell[134753, 3206, 509, 11, 70, "Message",ExpressionUUID->"35c8608a-cdb9-7b49-a349-ff93419909b7"], +Cell[135265, 3219, 456, 10, 70, "Message",ExpressionUUID->"be12d8f1-8442-ce44-8064-691aa975f7de"], +Cell[135724, 3231, 22336, 412, 70, "Output",ExpressionUUID->"331394c4-497c-0346-8d4a-8dd138d0b1ec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[158097, 3648, 1616, 48, 70, "Input",ExpressionUUID->"6f4b7e44-0b17-c840-a01f-706fcd68fd89"], +Cell[159716, 3698, 584, 12, 70, "Message",ExpressionUUID->"c81c58e6-5421-304d-872c-00439d312fe4"], +Cell[160303, 3712, 588, 12, 70, "Message",ExpressionUUID->"55f72141-2a48-cb49-9d96-f54968f261ca"], +Cell[160894, 3726, 591, 12, 70, "Message",ExpressionUUID->"02912ea6-4ba4-644f-aec0-867d70fcdcf0"], +Cell[161488, 3740, 456, 10, 70, "Message",ExpressionUUID->"b4acd794-c7cb-6242-90b6-7a7453ebdeb1"], +Cell[161947, 3752, 173, 3, 70, "Output",ExpressionUUID->"320f82af-6278-6a41-a4de-a355ccf7664a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[162157, 3760, 2251, 64, 70, "Input",ExpressionUUID->"55574de4-5bf4-6a47-8b7c-0502360e0741"], +Cell[164411, 3826, 566, 12, 70, "Message",ExpressionUUID->"ad528e52-1db8-df47-9908-86690dda4ace"], +Cell[164980, 3840, 569, 12, 70, "Message",ExpressionUUID->"a92c32b5-c23e-7943-9656-aea4b5c428d7"], +Cell[165552, 3854, 572, 12, 70, "Message",ExpressionUUID->"278bf77a-d73c-c84a-8914-85a2a0d1559c"], +Cell[166127, 3868, 458, 10, 70, "Message",ExpressionUUID->"341ce956-49ff-8f46-84bb-bcaaba1e8ea9"], +Cell[166588, 3880, 171, 3, 70, "Output",ExpressionUUID->"94404803-8b83-8a42-8385-1167ffd078a8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[166796, 3888, 2219, 64, 70, "Input",ExpressionUUID->"a62e28a7-2963-b449-b2d2-4774e534a560"], +Cell[169018, 3954, 564, 12, 70, "Message",ExpressionUUID->"c97b7826-1134-834a-8813-439f81fdc13f"], +Cell[169585, 3968, 567, 12, 70, "Message",ExpressionUUID->"5648dba3-b48a-c549-a33c-f599b4e5b995"], +Cell[170155, 3982, 570, 12, 70, "Message",ExpressionUUID->"7563d59f-361e-3948-b073-d7842f12334e"], +Cell[170728, 3996, 456, 10, 70, "Message",ExpressionUUID->"726f2b8e-ea46-7c48-8586-2eb207eadde6"], +Cell[171187, 4008, 173, 3, 70, "Output",ExpressionUUID->"db379c33-b649-2d43-ac47-d39edb6bd127"] +}, Open ]], +Cell[CellGroupData[{ +Cell[171397, 4016, 2219, 64, 70, "Input",ExpressionUUID->"9dbddde0-a221-414e-bf4d-6be0dfb61fa1"], +Cell[173619, 4082, 566, 12, 70, "Message",ExpressionUUID->"230d0e01-4d30-3142-81a2-ed4c42905a05"], +Cell[174188, 4096, 569, 12, 70, "Message",ExpressionUUID->"77058178-333e-354d-80c4-e12104a807ce"], +Cell[174760, 4110, 570, 12, 70, "Message",ExpressionUUID->"b5bc528a-d748-0f4f-94e7-12c75a1d74a6"], +Cell[175333, 4124, 458, 10, 70, "Message",ExpressionUUID->"2107b1d1-4ebe-2440-81fa-60e90e5253f9"], +Cell[175794, 4136, 170, 3, 70, "Output",ExpressionUUID->"7bdb3303-182d-9d45-b807-70346e03e157"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176001, 4144, 211, 6, 70, "Input",ExpressionUUID->"a4f97f96-646f-ae45-96cc-9c4165440b9d"], +Cell[176215, 4152, 171, 3, 70, "Output",ExpressionUUID->"37b2a818-74be-9440-ae6a-a43cc0ec40a8"] +}, Open ]], +Cell[176401, 4158, 247, 5, 70, "Input",ExpressionUUID->"35c63783-19fc-b040-b8f7-ef972ba7b6ed"], +Cell[CellGroupData[{ +Cell[176673, 4167, 558, 19, 70, "Input",ExpressionUUID->"82776c92-7c10-2f45-a63e-50057ffca54a"], +Cell[177234, 4188, 173, 3, 70, "Output",ExpressionUUID->"37bd912e-575b-eb4f-8032-971d1e707228"] +}, Open ]], +Cell[CellGroupData[{ +Cell[177444, 4196, 170, 5, 70, "Input",ExpressionUUID->"a56d8b01-6731-b840-bb77-f7f462892539"], +Cell[177617, 4203, 171, 3, 70, "Output",ExpressionUUID->"3a344811-90b2-ec44-89d0-1c709ea9d046"] +}, Open ]], +Cell[CellGroupData[{ +Cell[177825, 4211, 181, 5, 70, "Input",ExpressionUUID->"d4bf0543-67ce-024d-a419-60bff835c466"], +Cell[178009, 4218, 173, 3, 70, "Output",ExpressionUUID->"665369d7-97a6-fa48-bef2-b3decb044e25"] +}, Open ]], +Cell[CellGroupData[{ +Cell[178219, 4226, 6055, 185, 70, "Input",ExpressionUUID->"276e96f1-558d-9846-adb4-2350594341f3"], +Cell[184277, 4413, 175, 3, 70, "Output",ExpressionUUID->"ffc1a009-137c-b34d-9076-1696d057b6db"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184489, 4421, 368, 9, 70, "Input",ExpressionUUID->"fff85ae9-ba42-8247-a314-19fd83d5dbdb"], +Cell[184860, 4432, 172, 3, 70, "Output",ExpressionUUID->"895d1a28-2153-a84d-81e3-1cdf5d6d48ed"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185069, 4440, 6122, 187, 70, "Input",ExpressionUUID->"37b23358-bc27-224f-b5f7-62b1fc97e785"], +Cell[191194, 4629, 173, 3, 70, "Output",ExpressionUUID->"d4750c6a-3354-8a41-a70f-517b49b84087"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191404, 4637, 368, 9, 70, "Input",ExpressionUUID->"eeb5992b-a45f-a14b-8a22-14af99af15e2"], +Cell[191775, 4648, 170, 3, 70, "Output",ExpressionUUID->"5a3e32eb-a9a4-414a-82df-9b56efed1b93"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191982, 4656, 2663, 88, 70, "Input",ExpressionUUID->"6ddb4033-5394-f34c-95af-22d1f1297351"], +Cell[194648, 4746, 171, 3, 70, "Output",ExpressionUUID->"69873497-f6d3-324c-852f-4bb50568f85a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194856, 4754, 2603, 85, 70, "Input",ExpressionUUID->"22b71737-ea19-a348-af70-a874963373f8"], +Cell[197462, 4841, 171, 3, 70, "Output",ExpressionUUID->"13526c56-3d85-3c46-83ee-6fb4edbe82d4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197670, 4849, 3712, 118, 70, "Input",ExpressionUUID->"08fab4d8-dc36-3f43-8a7e-9a5fa838c25d"], +Cell[201385, 4969, 170, 3, 70, "Output",ExpressionUUID->"b4a365f6-f572-034d-a2e6-640ba90b8a4e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201592, 4977, 2054, 59, 70, "Input",ExpressionUUID->"d3f05697-a372-2a42-8c9c-ccc9289a44b2"], +Cell[203649, 5038, 573, 12, 70, "Message",ExpressionUUID->"dedd9f21-b30a-8e42-82f2-2e7179121ba4"], +Cell[204225, 5052, 577, 12, 70, "Message",ExpressionUUID->"93a73c80-9680-654d-99e9-e1bbed8734bd"], +Cell[204805, 5066, 580, 12, 70, "Message",ExpressionUUID->"424f437d-38a4-9145-b6b6-1508229b7d8c"], +Cell[205388, 5080, 456, 10, 70, "Message",ExpressionUUID->"e793f45c-63f6-1a4c-a8b0-a632d0f13f9c"], +Cell[205847, 5092, 170, 3, 70, "Output",ExpressionUUID->"ce1fa0ad-8b26-074b-acfe-1ea0d6a21afc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[206054, 5100, 2052, 59, 70, "Input",ExpressionUUID->"7ddfee1b-0897-3d44-810e-ee309c4e8981"], +Cell[208109, 5161, 573, 12, 70, "Message",ExpressionUUID->"36d155d3-589e-794d-9cf1-db14439adeb2"], +Cell[208685, 5175, 577, 12, 70, "Message",ExpressionUUID->"96775aa8-3123-8641-a422-091bbfbfb205"], +Cell[209265, 5189, 582, 12, 70, "Message",ExpressionUUID->"bc2025f1-37fb-ab47-8425-81a033e22370"], +Cell[209850, 5203, 456, 10, 70, "Message",ExpressionUUID->"be10e44a-c9da-4b44-b4a3-1024a86046c1"], +Cell[210309, 5215, 170, 3, 70, "Output",ExpressionUUID->"d3ed87ff-6c98-ec45-a1b5-3155c267d9aa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210516, 5223, 2030, 55, 70, "Input",ExpressionUUID->"edc0f744-d665-ee48-9e1d-32ecc25a02c4"], +Cell[212549, 5280, 20422, 382, 70, "Output",ExpressionUUID->"f43b713e-4442-024e-aa3a-d7907c7b2d57"] +}, Open ]], +Cell[CellGroupData[{ +Cell[233008, 5667, 2094, 60, 70, "Input",ExpressionUUID->"556a1eda-5f63-f94a-8981-af3901893679"], +Cell[235105, 5729, 502, 11, 70, "Message",ExpressionUUID->"346e0290-ff74-c04a-98f4-4b3b3d9364c5"], +Cell[235610, 5742, 506, 11, 70, "Message",ExpressionUUID->"ce3310df-8528-a243-9163-01df1bba8789"], +Cell[236119, 5755, 505, 11, 70, "Message",ExpressionUUID->"ac270026-fa69-2b44-8823-7a4a31d727b7"], +Cell[236627, 5768, 458, 10, 70, "Message",ExpressionUUID->"bb15b9e5-873c-b443-b9aa-a9ce94c451b4"], +Cell[237088, 5780, 22288, 412, 70, "Output",ExpressionUUID->"787ac492-4e0a-fd43-b6f7-df921f726ea4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[259413, 6197, 257, 6, 70, "Input",ExpressionUUID->"adc3c3bb-baff-7c45-bc8f-885e51cde7ff"], +Cell[259673, 6205, 2580, 42, 70, "Message",ExpressionUUID->"db9cfc30-6083-5745-956a-039ca4224774"], +Cell[262256, 6249, 10201, 227, 70, "Output",ExpressionUUID->"31a2c0a3-c39f-8a4d-bdef-7b36360aabf7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[272494, 6481, 1616, 48, 70, "Input",ExpressionUUID->"1ecbbb3f-ee46-da42-8494-bab66d31929d"], +Cell[274113, 6531, 595, 12, 70, "Message",ExpressionUUID->"ff5f87ad-0547-2e4d-89ac-2a19dabd294e"], +Cell[274711, 6545, 595, 12, 70, "Message",ExpressionUUID->"4f2b71d6-333a-cf47-9307-2421af7d6535"], +Cell[275309, 6559, 599, 12, 70, "Message",ExpressionUUID->"d1d04bbb-5842-0645-bad0-4769b073ee9a"], +Cell[275911, 6573, 456, 10, 70, "Message",ExpressionUUID->"6eb43be6-bae6-ed4a-aaaf-c88bf605b97b"], +Cell[276370, 6585, 171, 3, 70, "Output",ExpressionUUID->"edccccc4-7997-b54a-b45b-3f22383f2466"] +}, Open ]], +Cell[CellGroupData[{ +Cell[276578, 6593, 2251, 64, 70, "Input",ExpressionUUID->"fc5d2c23-4a6f-a449-ab65-d4efe503e761"], +Cell[278832, 6659, 575, 12, 70, "Message",ExpressionUUID->"6b4a6697-4d78-6348-aa33-09faf2e911d5"], +Cell[279410, 6673, 577, 12, 70, "Message",ExpressionUUID->"ff3f230d-c2f3-0a4b-92bb-4d06b5d3791d"], +Cell[279990, 6687, 582, 12, 70, "Message",ExpressionUUID->"ef73945b-c6bc-b44c-a3fe-a5985e6926fb"], +Cell[280575, 6701, 458, 10, 70, "Message",ExpressionUUID->"0dbccea2-a398-8e4f-96d9-c32a7f87f538"], +Cell[281036, 6713, 172, 3, 70, "Output",ExpressionUUID->"288e2dce-c937-8742-9640-a3e8f057e389"] +}, Open ]], +Cell[CellGroupData[{ +Cell[281245, 6721, 2221, 64, 70, "Input",ExpressionUUID->"43c7013a-a6e2-1a44-9690-1cefd2c28187"], +Cell[283469, 6787, 575, 12, 70, "Message",ExpressionUUID->"f13edf30-029d-f44b-80aa-7454fa8a48eb"], +Cell[284047, 6801, 577, 12, 70, "Message",ExpressionUUID->"9d4bffff-d8ba-5a4b-ba27-25e0bcf141ed"], +Cell[284627, 6815, 582, 12, 70, "Message",ExpressionUUID->"03541b7d-a305-9542-b64e-53c12d61a33e"], +Cell[285212, 6829, 458, 10, 70, "Message",ExpressionUUID->"1c28a402-6927-1f4a-8631-2d356954a732"], +Cell[285673, 6841, 170, 3, 70, "Output",ExpressionUUID->"f80ab114-db4a-5644-a33e-f2edc512069c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[285880, 6849, 2218, 64, 70, "Input",ExpressionUUID->"41fb449c-01a0-ed48-856e-cc313bd0a6c7"], +Cell[288101, 6915, 573, 12, 70, "Message",ExpressionUUID->"00b8f68b-770c-674c-8948-37aa9dbeba3b"], +Cell[288677, 6929, 577, 12, 70, "Message",ExpressionUUID->"8193dcf9-288a-d04f-81d0-67db9580cad4"], +Cell[289257, 6943, 580, 12, 70, "Message",ExpressionUUID->"f07c17e3-2923-c44f-8e3c-8f3ec985f07f"], +Cell[289840, 6957, 456, 10, 70, "Message",ExpressionUUID->"6165087b-71c6-5242-84a4-b7f2ddeda33f"], +Cell[290299, 6969, 173, 3, 70, "Output",ExpressionUUID->"f6c86172-b23f-f047-b574-633c44f7d8cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[290509, 6977, 211, 6, 70, "Input",ExpressionUUID->"63e2fa1e-7c56-c749-a270-c9c703386fca"], +Cell[290723, 6985, 173, 3, 70, "Output",ExpressionUUID->"61a3e242-6b8f-6c43-96c1-0f461f3aa111"] +}, Open ]], +Cell[290911, 6991, 245, 5, 70, "Input",ExpressionUUID->"8b2e971d-5760-5e43-92fb-a0baf224e1e6"], +Cell[CellGroupData[{ +Cell[291181, 7000, 558, 19, 70, "Input",ExpressionUUID->"ed5b29da-ad52-224c-9e8e-5cfb6cba7ae5"], +Cell[291742, 7021, 173, 3, 70, "Output",ExpressionUUID->"73bada1a-f8bf-544a-9ef4-a0ed1cad3a20"] +}, Open ]], +Cell[CellGroupData[{ +Cell[291952, 7029, 170, 5, 70, "Input",ExpressionUUID->"52bec50b-93fb-4b4d-b447-2d6401f3d9c3"], +Cell[292125, 7036, 173, 3, 70, "Output",ExpressionUUID->"a055216b-2938-334b-91b2-e1767bdc02c1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[292335, 7044, 181, 5, 70, "Input",ExpressionUUID->"1256eede-590d-b745-a810-815fbd90d864"], +Cell[292519, 7051, 173, 3, 70, "Output",ExpressionUUID->"1cb3b090-b3a4-5041-90d2-cd331e939555"] +}, Open ]], +Cell[CellGroupData[{ +Cell[292729, 7059, 6055, 185, 70, "Input",ExpressionUUID->"26b3e9a1-c12d-c340-b102-39e3418b2423"], +Cell[298787, 7246, 172, 3, 70, "Output",ExpressionUUID->"d87c8c95-b548-7743-a9ae-ba00333bd7d5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[298996, 7254, 368, 9, 70, "Input",ExpressionUUID->"f1c368f7-48c1-ae41-985d-84d539f430bf"], +Cell[299367, 7265, 172, 3, 70, "Output",ExpressionUUID->"5c166658-06fc-9646-bfdb-835a116404d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[299576, 7273, 6122, 187, 70, "Input",ExpressionUUID->"8303e334-ad11-5445-af0f-63c02c371294"], +Cell[305701, 7462, 173, 3, 70, "Output",ExpressionUUID->"f5459de9-bc9d-bb43-82ac-bbb255c0bb6b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[305911, 7470, 368, 9, 70, "Input",ExpressionUUID->"9a6f9d0e-1f18-634f-a091-d3e4beab45d1"], +Cell[306282, 7481, 170, 3, 70, "Output",ExpressionUUID->"7547cec8-bbb9-474e-a326-2aa5b5d0ea0e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[306489, 7489, 2663, 88, 70, "Input",ExpressionUUID->"d36c329f-0f97-3149-b3e7-38d2ece236d0"], +Cell[309155, 7579, 171, 3, 70, "Output",ExpressionUUID->"67a86a49-0510-5043-b0e4-0c9fbd007328"] +}, Open ]], +Cell[CellGroupData[{ +Cell[309363, 7587, 2603, 85, 70, "Input",ExpressionUUID->"9d78a1b5-e3d2-144d-9443-73ce54c6aaab"], +Cell[311969, 7674, 173, 3, 70, "Output",ExpressionUUID->"4375608b-4469-c645-b9da-2341df1da6f3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[312179, 7682, 3712, 118, 70, "Input",ExpressionUUID->"66c99cb8-7b1e-c84b-9bf9-362f26e0fb97"], +Cell[315894, 7802, 173, 3, 70, "Output",ExpressionUUID->"d85e146c-555e-ff43-a64b-dc61481e05ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[316104, 7810, 2048, 58, 70, "Input",ExpressionUUID->"f0de9d8e-43d1-8b49-87d3-7f90d7e4f5e3"], +Cell[318155, 7870, 568, 12, 70, "Message",ExpressionUUID->"0b50a344-9b6a-6f43-a31a-1906b6b83303"], +Cell[318726, 7884, 573, 12, 70, "Message",ExpressionUUID->"a61f676b-80fb-564e-91e4-f0d82f0e9781"], +Cell[319302, 7898, 576, 12, 70, "Message",ExpressionUUID->"6e5727c3-e53a-0d47-882d-51da7563867b"], +Cell[319881, 7912, 458, 10, 70, "Message",ExpressionUUID->"d4019ad4-a9c4-064b-945e-f11a073e5bac"], +Cell[320342, 7924, 172, 3, 70, "Output",ExpressionUUID->"c8ba2a53-8163-c84b-820e-bd4c6c80df97"] +}, Open ]], +Cell[CellGroupData[{ +Cell[320551, 7932, 2054, 59, 70, "Input",ExpressionUUID->"61250ade-2a8a-1a4d-bb58-5bb7aa60c04a"], +Cell[322608, 7993, 568, 12, 70, "Message",ExpressionUUID->"337843af-226f-af40-a4c7-0e7c7d9ce578"], +Cell[323179, 8007, 573, 12, 70, "Message",ExpressionUUID->"5caa0d49-db8e-7047-81dc-724c9a57223e"], +Cell[323755, 8021, 574, 12, 70, "Message",ExpressionUUID->"89243390-869b-ab4b-bd60-81c23885cae2"], +Cell[324332, 8035, 458, 10, 70, "Message",ExpressionUUID->"7212133e-ab68-b54b-b1d5-ecb5b003feb9"], +Cell[324793, 8047, 172, 3, 70, "Output",ExpressionUUID->"68a706fc-6e54-074e-91f9-e60e01512997"] +}, Open ]], +Cell[CellGroupData[{ +Cell[325002, 8055, 2028, 55, 70, "Input",ExpressionUUID->"020bdd6e-add3-0a46-9b39-04b7ffae8470"], +Cell[327033, 8112, 20375, 384, 70, "Output",ExpressionUUID->"24c99615-29ec-434a-9120-6a0e664bd2c0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[347445, 8501, 2094, 60, 70, "Input",ExpressionUUID->"5cbca01a-701c-5744-b740-3bf6288a42b7"], +Cell[349542, 8563, 501, 11, 70, "Message",ExpressionUUID->"012afcdf-095f-f547-ae49-5e5eab6ac53d"], +Cell[350046, 8576, 503, 11, 70, "Message",ExpressionUUID->"efe4240f-cfb2-1544-b97a-0d31a46a5acc"], +Cell[350552, 8589, 506, 11, 70, "Message",ExpressionUUID->"f00a9c55-0183-344a-88dd-02375b09fbdb"], +Cell[351061, 8602, 458, 10, 70, "Message",ExpressionUUID->"948ef9a9-e05b-a247-a398-dab2b9b01e6c"], +Cell[351522, 8614, 22161, 409, 70, "Output",ExpressionUUID->"3cb194f4-3fee-2848-822d-18b4cc4f12ed"] +}, Open ]], +Cell[CellGroupData[{ +Cell[373720, 9028, 257, 6, 70, "Input",ExpressionUUID->"dfd70d8f-49d3-a04f-a31c-55e81ecceef1"], +Cell[373980, 9036, 2580, 42, 70, "Message",ExpressionUUID->"1aca1256-d868-9b45-945c-81093b7e2535"], +Cell[376563, 9080, 10201, 227, 70, "Output",ExpressionUUID->"5b219220-e727-7947-b93a-690cc8839c38"] +}, Open ]], +Cell[CellGroupData[{ +Cell[386801, 9312, 1616, 48, 70, "Input",ExpressionUUID->"bd700bac-9ff0-794b-a1df-85afecca9797"], +Cell[388420, 9362, 590, 12, 70, "Message",ExpressionUUID->"16053233-c82a-df40-9f76-57858a5ce653"], +Cell[389013, 9376, 589, 12, 70, "Message",ExpressionUUID->"c17aef07-6675-4240-9659-a4faf651ba84"], +Cell[389605, 9390, 593, 12, 70, "Message",ExpressionUUID->"7e2cd7a6-7004-5545-8ead-85e58be0261f"], +Cell[390201, 9404, 456, 10, 70, "Message",ExpressionUUID->"133cf53d-6aa7-f54b-97b8-85e2d528574d"], +Cell[390660, 9416, 170, 3, 70, "Output",ExpressionUUID->"4a14d2c1-d4aa-bb44-a445-b9d5e6a8ec44"] +}, Open ]], +Cell[CellGroupData[{ +Cell[390867, 9424, 2249, 64, 70, "Input",ExpressionUUID->"aa4ca102-401f-6c45-84ea-b21fa4222eb4"], +Cell[393119, 9490, 568, 12, 70, "Message",ExpressionUUID->"67370f99-93a3-2a4c-abfb-9ec2739f82e3"], +Cell[393690, 9504, 573, 12, 70, "Message",ExpressionUUID->"c65b7f06-a5d9-2b42-b82a-61a8418de1aa"], +Cell[394266, 9518, 574, 12, 70, "Message",ExpressionUUID->"c5205368-7549-5d4a-91b5-fc0c385cffcd"], +Cell[394843, 9532, 458, 10, 70, "Message",ExpressionUUID->"75f147e7-0111-f945-9d68-054bd31d6468"], +Cell[395304, 9544, 173, 3, 70, "Output",ExpressionUUID->"5463c495-050f-3a48-ad8b-56249455c6df"] +}, Open ]], +Cell[CellGroupData[{ +Cell[395514, 9552, 2223, 64, 70, "Input",ExpressionUUID->"6ecebc3a-297f-ad45-be0e-687cb63b6c02"], +Cell[397740, 9618, 570, 12, 70, "Message",ExpressionUUID->"f1435cf6-8920-cf4a-89bd-205dc850fb13"], +Cell[398313, 9632, 573, 12, 70, "Message",ExpressionUUID->"153c989b-3e07-ba44-9502-ce5eeeaef20b"], +Cell[398889, 9646, 573, 12, 70, "Message",ExpressionUUID->"f96787a5-8527-9249-955c-61c282829a8e"], +Cell[399465, 9660, 458, 10, 70, "Message",ExpressionUUID->"74b767aa-86c3-b342-aaa5-b3aa8db05a0c"], +Cell[399926, 9672, 171, 3, 70, "Output",ExpressionUUID->"428a5219-3885-624b-b9ef-667a709b85a0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[400134, 9680, 2221, 64, 70, "Input",ExpressionUUID->"f4d4d2f3-a6fe-7445-a71e-f1844b022d84"], +Cell[402358, 9746, 570, 12, 70, "Message",ExpressionUUID->"003d8265-71b4-9b48-956a-875004c8f691"], +Cell[402931, 9760, 573, 12, 70, "Message",ExpressionUUID->"58af30c7-a170-574d-a307-1d28d4712f2c"], +Cell[403507, 9774, 574, 12, 70, "Message",ExpressionUUID->"503404b6-a33b-f146-8dab-1a0f0a48a6bb"], +Cell[404084, 9788, 458, 10, 70, "Message",ExpressionUUID->"ec987c19-b918-e54c-a15c-61c6a7a0cb83"], +Cell[404545, 9800, 173, 3, 70, "Output",ExpressionUUID->"fd0d79df-b556-504a-b816-cff0691012a5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[404755, 9808, 212, 6, 70, "Input",ExpressionUUID->"84cd8b8a-60e5-9e4d-8a98-fd76363577db"], +Cell[404970, 9816, 172, 3, 70, "Output",ExpressionUUID->"e1ed9356-8f68-774e-9d61-631f2714eaaf"] +}, Open ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/templates/light_case/l___pr_Qw1.nb b/templates/light_case/l___pr_Qw1.nb new file mode 100755 index 0000000..54edab4 --- /dev/null +++ b/templates/light_case/l___pr_Qw1.nb @@ -0,0 +1,10004 @@ +(* 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[ 429723, 9994] +NotebookOptionsPosition[ 404801, 9618] +NotebookOutlinePosition[ 405225, 9635] +CellTagsIndexPosition[ 405182, 9632] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ +Cell[BoxData[ + RowBox[{"f1", "="}]], "Input", + CellChangeTimes->{ + 3.991844487293215*^9},ExpressionUUID->"8b10a187-c7b7-0f44-8f32-\ +75ec5ae33e70"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991844505909937*^9, + 3.991844505914568*^9}},ExpressionUUID->"d7190627-18d6-a94b-880e-\ +e3f073ed75cd"], + +Cell[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.991844489013321*^9},ExpressionUUID->"ff3a0633-5725-474e-a1df-\ +0fae08da0391"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991844506884182*^9, + 3.9918445068872185`*^9}},ExpressionUUID->"c4cb48f6-8bef-5140-97cb-\ +74fc477176c0"], + +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->"1479e503-99dc-8043-a7ed-41f4ebd401a5"], + +Cell[BoxData["2.3793916761039797`*^-53"], "Output", + CellChangeTimes->{3.9913279321052856`*^9}, + CellLabel-> + "Out[150]=",ExpressionUUID->"56570731-d969-eb41-878a-b8b4e7feda04"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + 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"]}]], "*", "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, {3.9915580161429977`*^9, + 3.991558019706772*^9}},ExpressionUUID->"ee451e0a-03c5-5d4b-809d-\ +1baa2036c180"], + +Cell[BoxData["8.839304777809617`*^-55"], "Output", + CellChangeTimes->{3.991327932129387*^9}, + CellLabel-> + "Out[151]=",ExpressionUUID->"6c597397-08ed-6045-9d69-fd291ab08bb7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + 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"]}]], "*", + 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}, + 3.991558013605444*^9},ExpressionUUID->"1b7f9814-f540-ee4f-a97a-\ +82e0c001ccbc"], + +Cell[BoxData["2.0384594858915346`*^-54"], "Output", + CellChangeTimes->{3.991327932138338*^9}, + CellLabel-> + "Out[152]=",ExpressionUUID->"df7fd0ae-abcd-f746-a5e5-204909cac9a1"] +}, 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->"add7dc78-05f0-9740-a4f6-53e576919ef8"], + +Cell[BoxData["27.24865368249903`"], "Output", + CellChangeTimes->{3.9913279321616154`*^9}, + CellLabel-> + "Out[153]=",ExpressionUUID->"3a877309-deb0-5f44-9dfa-c0ac87131362"] +}, 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->"9b673079-5994-e34c-a858-9ada9b775642"], + +Cell[BoxData["37.77192070584817`"], "Output", + CellChangeTimes->{3.9913279321696014`*^9}, + CellLabel-> + "Out[154]=",ExpressionUUID->"22ab525d-794a-7c4d-8f53-b4d75969da27"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[155]:=",ExpressionUUID->"2e19814e-d8e4-0440-a349-54cc93ccdf53"], + +Cell[BoxData["0.718596406513947`"], "Output", + CellChangeTimes->{3.9913279321926613`*^9}, + CellLabel-> + "Out[155]=",ExpressionUUID->"1896ee18-ae10-e644-828f-5f5df642d0f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[156]:=",ExpressionUUID->"538f6b3e-6e49-7749-a73e-74beaffe6942"], + +Cell[BoxData["3.2238916343938024`"], "Output", + CellChangeTimes->{3.991327932200657*^9}, + CellLabel-> + "Out[156]=",ExpressionUUID->"b400a1d2-95af-fb40-b3ff-41d1750a93a6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[157]:=",ExpressionUUID->"0943a4c5-ab88-024e-b598-6ab09308c529"], + +Cell[BoxData["121.77257917856996`"], "Output", + CellChangeTimes->{3.99132793222501*^9}, + CellLabel-> + "Out[157]=",ExpressionUUID->"8ca2cab9-f56c-6b47-8a70-792841a4fe85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[158]:=",ExpressionUUID->"5313d107-d67a-0a42-97ea-bdd5afbb176c"], + +Cell[BoxData["19.58078461858683`"], "Output", + CellChangeTimes->{3.9913279322642612`*^9}, + CellLabel-> + "Out[158]=",ExpressionUUID->"a5943015-372b-c144-b0e4-4a01bb107ed7"] +}, 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->"05311468-f950-6f43-ae68-9cc6502c4986"], + +Cell[BoxData["0.032550594324745`"], "Output", + CellChangeTimes->{3.9913279322906475`*^9}, + CellLabel-> + "Out[159]=",ExpressionUUID->"d0296c8c-1490-7c4a-92bd-55e7f4162d6c"] +}, 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->"55ab7556-231d-f846-b625-6b6079424223"], + +Cell[BoxData["4.91208054446651`"], "Output", + CellChangeTimes->{3.9913279323826447`*^9}, + CellLabel-> + "Out[160]=",ExpressionUUID->"9dd7cddc-5c45-9245-9b72-df722da611af"] +}, 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->"de97f1d4-a997-5d44-ad21-9d29636b6b11"], + +Cell[BoxData["0.012685641417856707`"], "Output", + CellChangeTimes->{3.991327932394655*^9}, + CellLabel-> + "Out[161]=",ExpressionUUID->"495d1ed0-b317-7449-85b9-baf4df7f0d01"] +}, 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->"69bf2733-1c68-0d45-9dcf-32eb09d0774e"], + +Cell[BoxData["7.868441587445692`"], "Output", + CellChangeTimes->{3.991327932491659*^9}, + CellLabel-> + "Out[162]=",ExpressionUUID->"04beffaf-62f7-0b45-9712-c72de536f25b"] +}, 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->"790285fd-a791-004a-beb8-81432d5fe6ed"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991327932509678*^9}, + CellLabel-> + "Out[163]=",ExpressionUUID->"29664369-b402-8f4f-96f8-4e73d4b4ac49"] +}, 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->"8d9d59ff-5258-ed44-b54a-00649424f6ab"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913279325457134`*^9}, + CellLabel-> + "Out[164]=",ExpressionUUID->"983f75a1-f997-be4a-81f5-6dbcd2c0b96b"] +}, 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->"082cc170-e78d-1f4c-ac49-a1fc473fe786"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913279325697117`*^9}, + CellLabel-> + "Out[165]=",ExpressionUUID->"d4d9342c-f66d-924d-84fc-6729720d8960"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"b80089e4-e129-\ +a84d-a279-8559e98c6042"], + +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.991844522599167*^9},ExpressionUUID->"d15c8f9d-5cd8-0448-9115-\ +8fd811f7859e"], + +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->"4061b475-d37f-3641-8b49-887dcca71780"], + +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->"405af2e3-b633-ec4f-a8af-038ad86e22fe"], + +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->"af7f9224-4f54-674b-94d8-a07a9f6c53fd"], + +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->"3d0f87c1-75a2-eb40-96ff-130376937dee"], + +Cell[BoxData["4.912080544466506`"], "Output", + CellChangeTimes->{3.9913279359974174`*^9}, + CellLabel-> + "Out[166]=",ExpressionUUID->"7ce936d7-d120-de47-ab26-d4794a00a858"] +}, 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.991844527271263*^9},ExpressionUUID->"a596efda-1871-9b45-afb4-\ +f85dfdafd26c"], + +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->"7fbc6b76-65ea-934a-b19a-39f44c5b4b90"], + +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->"35ea7ca0-84c8-d147-ab12-3deebbaaa154"], + +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->"b6cc553e-783f-0e4d-92d5-4078be1419c9"], + +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->"f4f151bb-1037-1e45-96b1-aa03e2ec2e08"], + +Cell[BoxData["7.868441587445692`"], "Output", + CellChangeTimes->{3.9913279393385086`*^9}, + CellLabel-> + "Out[167]=",ExpressionUUID->"531f82ba-09ac-9c40-a730-44e0b959edc3"] +}, 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.991844532798546*^9},ExpressionUUID->"98a8fe78-0965-1043-b897-\ +797c175d7e63"], + +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->{{115.12306105754327`, + 253.30690491292427`}, {-15.794312999313163`, 5.3775620006868365`}}], + 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->"711c25c1-ed76-2e4b-84a6-d57a020489df"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.991844539101469*^9, + 3.991844648037607*^9},ExpressionUUID->"9a11a03e-c4c1-5741-ac7d-\ +23e1536f3e79"], + +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->"a638aba8-20a5-a64e-a190-4d33ebd1b8cb"], + +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->"ae7b53dc-f8ec-854b-9226-f16bb757a2e5"], + +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->"eac3fa47-f68a-0843-85a5-2531dd3a1acc"], + +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->"cf422af8-1404-4a4c-bb03-11722827e096"], + +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->"da078250-620d-dc47-9190-f4147c2a22d7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991714709387436*^9, 3.991714738003292*^9}, { + 3.991714834117689*^9, 3.991714842328617*^9}, 3.991793311407936*^9, + 3.9917953263701286`*^9},ExpressionUUID->"d0e220f6-a6cd-c048-ab1a-\ +de311ff0fdbc"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.011000000000000001`], AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, + 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.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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, 52.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9917148467316074`*^9}, + CellLabel-> + "Out[529]=",ExpressionUUID->"54c42de2-e686-7c45-9694-49248a966b4d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, + 3.99179533223897*^9}},ExpressionUUID->"b9d1e9a3-d136-bb41-ba98-\ +cea12bff5352"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.991844724526314*^9},ExpressionUUID->"f431849e-0899-864c-b9d1-\ +1df0491628db"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.9913294794877434`*^9}, + CellLabel-> + "Out[171]=",ExpressionUUID->"d513da22-514d-5e4b-95c1-28c30db4448a"] +}, 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.9918447267207756`*^9},ExpressionUUID->"650ee12b-eb50-044b-94e9-\ +ce88ff255deb"], + +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->"d1868775-7452-3b40-942a-63d8a590148d"], + +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->"63636793-87e5-c34e-8b32-996c1b2c9165"], + +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->"16e0b7d9-d776-8f46-ad6d-707495a25e9c"], + +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->"2573cc1f-e89e-934a-aa43-79a47df211bd"], + +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->"2c03bcb6-3be4-1844-9ca2-48c18a26626a"] +}, 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->"5c6d0b57-910e-664a-8fd6-40771b36868b"], + +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->"85dcf820-db3d-024c-98b1-83dd2ba7d04c"], + +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->"1f9f96e1-4a57-6049-b6cc-4e4928609a9a"], + +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->"41c8c94b-43e8-be40-bbc3-83ecc5178dd9"], + +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->"12ccc187-b899-d54e-92ad-c3128a04ec4d"], + +Cell[BoxData["9.77956849963325`"], "Output", + CellChangeTimes->{3.991329904262455*^9}, + CellLabel-> + "Out[173]=",ExpressionUUID->"00bb2d18-fd7c-c946-b7e2-ea5f28955604"] +}, 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.991844712341957*^9, + 3.991844718198534*^9}},ExpressionUUID->"b04a104f-3249-a34a-8102-\ +7d9b3c7b796d"], + +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->"5de31c03-28cf-dc48-81c5-7c7746c54276"], + +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->"87ee2218-308b-1c43-8925-324a31500f9d"], + +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->"31bf6478-b1c1-9542-9dec-15ccf89a4566"], + +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->"413f0426-4563-cc47-9e61-5f6f0ab61394"], + +Cell[BoxData["0.1491428555515254`"], "Output", + CellChangeTimes->{3.9913299110465336`*^9}, + CellLabel-> + "Out[174]=",ExpressionUUID->"f8144886-988a-7544-861d-6c87500bf6c5"] +}, 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.9918447603776054`*^9, + 3.991844763418377*^9}},ExpressionUUID->"6b8170ef-e8e1-8b4d-b589-\ +528a0f547fe8"], + +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->"da8f8f97-234b-bc42-936f-0785b24ee446"], + +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->"2e3a9bc1-9d8c-5142-9abf-1720c1836f03"], + +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->"5831990e-e4f4-2b4f-a9c3-44a115dcf032"], + +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->"e1b6cf3c-14e6-964f-8a14-d24948c74c5a"], + +Cell[BoxData["6.5928699937564845`"], "Output", + CellChangeTimes->{3.9913299163114815`*^9}, + CellLabel-> + "Out[175]=",ExpressionUUID->"eefb0037-cb99-2a44-8be0-7ef1ec5adb6b"] +}, 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.991844769790985*^9, + 3.991844773139332*^9}},ExpressionUUID->"984387ef-9fd9-3c47-bc3d-\ +b6f0e8b03e2c"], + +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->"bf747c94-a1b1-5e42-af32-1d43d2dce0cc"], + +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->"e6de31d8-cd61-c14b-9dd6-e01a31d33bd5"], + +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->"330f1117-2847-c64f-987e-1999701c026c"], + +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->"ca8f5a06-fe5d-5246-9421-637b037f4be3"], + +Cell[BoxData["16.916908616104454`"], "Output", + CellChangeTimes->{3.9913299193276234`*^9}, + CellLabel-> + "Out[176]=",ExpressionUUID->"dcde32d3-c138-4f4b-9743-87921cc6c9e7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991844780323551*^9, + 3.9918447845314407`*^9}},ExpressionUUID->"a1d4e2a6-d632-ee42-bf72-\ +0ec0037a6c16"], + +Cell[BoxData["0.01412227604937243`"], "Output", + CellChangeTimes->{3.99132991935894*^9}, + CellLabel-> + "Out[177]=",ExpressionUUID->"d851969f-aae6-ff40-b54a-f81b9a16b06d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991844802080488*^9, 3.991844804321781*^9}, + 3.9919238865933857`*^9},ExpressionUUID->"ab8417e8-4709-e943-87cd-\ +c5b8a0910541"], + +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->"befa51f5-5940-8743-b07a-eb3a8aba653f"], + +Cell[BoxData["8.947947137013426`"], "Output", + CellChangeTimes->{3.9913299193849545`*^9}, + CellLabel-> + "Out[179]=",ExpressionUUID->"d3696bfe-4fa2-f04a-96eb-2ffcb275e098"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[181]:=",ExpressionUUID->"8c248539-c23a-4a42-8e54-3b513c751017"], + +Cell[BoxData["1.2539951617800844`"], "Output", + CellChangeTimes->{3.9913299194207077`*^9}, + CellLabel-> + "Out[181]=",ExpressionUUID->"19996e75-8d0f-2049-b0ab-f705e12070ee"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[184]:=",ExpressionUUID->"293f8673-c8b0-6746-85db-59c8f599b57c"], + +Cell[BoxData["11.220682417678793`"], "Output", + CellChangeTimes->{3.9913299194738407`*^9}, + CellLabel-> + "Out[184]=",ExpressionUUID->"6b23bccd-f31e-9d46-9023-034bd51ad3bb"] +}, 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->"8fe440ff-6433-ee43-8ab0-44131de05652"], + +Cell[BoxData["0.04472011299838893`"], "Output", + CellChangeTimes->{3.991329919501911*^9}, + CellLabel-> + "Out[185]=",ExpressionUUID->"62171c19-5f83-2049-9194-385f2231542c"] +}, 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->"ec04ad19-eb6d-ba4f-929a-62702cc30a12"], + +Cell[BoxData["4.190766798679958`"], "Output", + CellChangeTimes->{3.991329919596855*^9}, + CellLabel-> + "Out[186]=",ExpressionUUID->"deee1bab-ce6f-c047-9ddf-87c9b2a4acea"] +}, 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->"301beffb-a956-b44c-beb2-37fe9711e64e"], + +Cell[BoxData["0.014190600885170185`"], "Output", + CellChangeTimes->{3.9913299196126003`*^9}, + CellLabel-> + "Out[187]=",ExpressionUUID->"73bc7c9d-800c-a442-97e6-20db932568ad"] +}, 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->"603274e8-9f12-ce48-b425-66b0e2e5dd2e"], + +Cell[BoxData["7.439513700547701`"], "Output", + CellChangeTimes->{3.9913299197036095`*^9}, + CellLabel-> + "Out[188]=",ExpressionUUID->"bbde9dcf-faa4-2d4f-b406-f2d0c7495b65"] +}, 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->"26d67789-9b33-7843-a368-14c85da65ff3"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913299197165985`*^9}, + CellLabel-> + "Out[189]=",ExpressionUUID->"2f8aa250-eefc-864d-99db-2d5482d1949c"] +}, 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->"a37295b9-9f23-ed46-af76-8081da173c8b"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991329919739599*^9}, + CellLabel-> + "Out[190]=",ExpressionUUID->"0b037e26-4d38-4e42-a978-3ca735d36a45"] +}, 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->"8cb2872a-60dc-2845-b059-08954f0afeb4"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913299197646008`*^9}, + CellLabel-> + "Out[191]=",ExpressionUUID->"706324b4-7c0c-914f-bb1a-cf2595e95f52"] +}, 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.991844883530533*^9},ExpressionUUID->"003a047b-90eb-3149-b4f8-\ +a296c2b2cdcd"], + +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->"b352bd85-52e4-bc41-b324-534f96ccf0e6"], + +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->"86af3939-d1d7-d647-b19c-39e3436e5502"], + +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->"d19a6c38-6670-b646-b496-e1d520cf6398"], + +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->"0a65d080-4626-264a-957d-e0dedd3bbc33"], + +Cell[BoxData["4.190766798679958`"], "Output", + CellChangeTimes->{3.991329923627493*^9}, + CellLabel-> + "Out[192]=",ExpressionUUID->"24ab5ee4-c131-f84c-b2e4-0200f87c8b2d"] +}, 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.991844898486679*^9},ExpressionUUID->"17f0d32c-a57d-2a45-81f1-\ +ef75e11de8a0"], + +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->"bd7deec6-2c8e-3746-920e-2051f2f357c4"], + +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->"38bcde0f-fd6a-1240-9c86-1d4b53e7d01b"], + +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->"abf7d101-d355-3b49-ab40-00c114c9b9da"], + +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->"9dcaae4f-6c03-c04b-a023-85d91df5e7c7"], + +Cell[BoxData["7.439513700547696`"], "Output", + CellChangeTimes->{3.9913299274564743`*^9}, + CellLabel-> + "Out[193]=",ExpressionUUID->"ccb5155b-66b6-0547-a5f2-a08c72158762"] +}, 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.9918449035840626`*^9},ExpressionUUID->"fcd15b99-cf8b-0648-a673-\ +70cdac1f227f"], + +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->"637e3f8e-a1de-d24b-8d0a-9daaf526b8f9"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991844910383686*^9, {3.9918455278812733`*^9, + 3.9918455284898663`*^9}},ExpressionUUID->"76321b6a-1af8-9c49-b2f7-\ +d5c92a8c63b6"], + +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->"795a4e03-9348-bc44-bc59-9c81576134fb"], + +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->"7ea7e400-7b44-4743-aaa2-4d6d1b08b804"], + +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->"8c3efc69-51e4-0349-9387-81018769ac2c"], + +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->"d01f1fa2-329b-d248-8b6a-32256534f54c"], + +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->"490311aa-bd00-914a-9f58-947467dd9297"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917971206132183`*^9, + 3.9917971229936733`*^9}},ExpressionUUID->"17d8d20d-a69d-c241-a4b7-\ +c5ab6913db6c"], + +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->"37173e44-18b6-f345-bdbf-3935ac3d85ba"], + +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->"535ab9af-e2f0-944f-9023-d0d7fa4c31e5"], + +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->"763653e6-d2c5-2c4b-b148-2d601b18999e"], + +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->"6712547a-cfd4-1747-b710-24dcd8b85594"], + +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->"44853999-274b-4a4d-befb-0519af052f8e"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.991331759108553*^9}, + CellLabel-> + "Out[199]=",ExpressionUUID->"d265ec31-c37b-b34b-9f4e-2a798572ba0d"] +}, 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.991844980123823*^9, + 3.991844984423441*^9}},ExpressionUUID->"c4a8a8b0-0b31-ac4c-a7ce-\ +152da20b42d7"], + +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->"0a0b8acc-d88c-f541-9f43-3ad7f8ff671a"], + +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->"dbdc2977-d53e-404d-b6e6-a598c19760d4"], + +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->"c66123d8-b0b6-0144-99d0-8ca0ecfb4093"], + +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->"36aff51b-c5d2-5d4f-878f-fb1430bbf46d"], + +Cell[BoxData["1.044718879268698`"], "Output", + CellChangeTimes->{3.991331766558941*^9}, + CellLabel-> + "Out[200]=",ExpressionUUID->"330b8bea-4179-8348-95aa-c6fba51d26c2"] +}, 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.9918449914836025`*^9, + 3.991844997178608*^9}},ExpressionUUID->"3975f6bc-b8e0-0049-badb-\ +74a4e7126d8f"], + +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->"fa38804d-d1cb-1447-8203-2445dfa4fcda"], + +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->"21e377cd-5f17-ee4d-9c79-89037091bc25"], + +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->"73743e57-e60a-4847-8af4-f6d159a2fc37"], + +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->"b407e7dc-c0ec-4843-b3e5-381bd4c692b7"], + +Cell[BoxData["4.7987767072565894`"], "Output", + CellChangeTimes->{3.991331773590704*^9}, + CellLabel-> + "Out[201]=",ExpressionUUID->"070c193e-9eba-f642-847f-cac8b588492e"] +}, 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.991845005870302*^9, + 3.991845010049778*^9}},ExpressionUUID->"f4f95d15-5683-9549-85ce-\ +3970c364fc34"], + +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->"eb423938-ff5a-344a-969c-b7d904599c4b"], + +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->"b4b8c5b2-00a6-ec4c-8b4f-a4d9bd1e8c35"], + +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->"72ea416d-dd3f-7941-b395-c37fefc1b337"], + +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->"e78b7c76-2ded-8940-b41a-b392437045c0"], + +Cell[BoxData["15.12281532960454`"], "Output", + CellChangeTimes->{3.991331777337887*^9}, + CellLabel-> + "Out[202]=",ExpressionUUID->"a780e023-1794-804c-8339-bc10a750b9f0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918450170370293`*^9, + 3.9918450213597164`*^9}},ExpressionUUID->"16838e8f-dc9a-d74c-8675-\ +3a4476217af6"], + +Cell[BoxData["0.12263596348954131`"], "Output", + CellChangeTimes->{3.9913317773679104`*^9}, + CellLabel-> + "Out[203]=",ExpressionUUID->"15b51804-0720-9c4e-b20b-e353de084a0e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918450249714966`*^9, 3.9918450285250053`*^9}, + 3.991923905136156*^9},ExpressionUUID->"5671b6c5-96eb-9840-bb09-\ +6698022336a6"], + +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->"4d014000-6f17-9a45-b3a6-a3a0cf36c628"], + +Cell[BoxData["12.368532070745184`"], "Output", + CellChangeTimes->{3.9913317774008274`*^9}, + CellLabel-> + "Out[205]=",ExpressionUUID->"934b3a30-897a-9e41-85e9-504d7ee2ff62"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[207]:=",ExpressionUUID->"fe5bd3c5-5fb8-684b-9227-f90b633f4a5d"], + +Cell[BoxData["1.0665924029125342`"], "Output", + CellChangeTimes->{3.9913317774358253`*^9}, + CellLabel-> + "Out[207]=",ExpressionUUID->"2fbbe691-91db-6640-99ed-fb726285d981"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[210]:=",ExpressionUUID->"fcb96232-efe5-6c4a-80fc-3e0409b7c756"], + +Cell[BoxData["13.192182341836848`"], "Output", + CellChangeTimes->{3.991331777510603*^9}, + CellLabel-> + "Out[210]=",ExpressionUUID->"12ec0e81-c346-2f44-a188-d2441d58a6ee"] +}, 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->"826a4822-fe82-2545-859e-1dcc0d2c7665"], + +Cell[BoxData["0.041096786108657246`"], "Output", + CellChangeTimes->{3.991331777537592*^9}, + CellLabel-> + "Out[211]=",ExpressionUUID->"8ec31e5d-c440-8b41-a98c-226b6d9ffc36"] +}, 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->"8e8ef1c8-b957-7e47-8bd7-349d078e5615"], + +Cell[BoxData["4.371605972693579`"], "Output", + CellChangeTimes->{3.9913317776362495`*^9}, + CellLabel-> + "Out[212]=",ExpressionUUID->"bcb4b779-10f1-9041-9a4c-3cdec2a68741"] +}, 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->"ef7ab6c6-a465-144e-9b2e-d87983d89cc3"], + +Cell[BoxData["0.013804398425195999`"], "Output", + CellChangeTimes->{3.9913317776511555`*^9}, + CellLabel-> + "Out[213]=",ExpressionUUID->"1bb933d6-f02a-2d47-939d-352095da19e4"] +}, 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->"005cbf5d-7cfe-0a47-85df-3f41c0cd74cc"], + +Cell[BoxData["7.5428626210616345`"], "Output", + CellChangeTimes->{3.991331777742655*^9}, + CellLabel-> + "Out[214]=",ExpressionUUID->"417f7831-47f1-634e-b3b3-4519fff106b6"] +}, 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->"11446a18-6985-d84f-b09e-6be9463bee70"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913317777546787`*^9}, + CellLabel-> + "Out[215]=",ExpressionUUID->"2a38d751-aa08-544a-bed2-19499b9d4e28"] +}, 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->"cf191722-8995-064e-a60c-6ab12800222b"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991331777779663*^9}, + CellLabel-> + "Out[216]=",ExpressionUUID->"46c519d5-59d4-f441-bd4f-aa5b2f67d025"] +}, 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->"146e47d3-0f15-fc4b-b22a-e41827d0b353"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913317778036633`*^9}, + CellLabel-> + "Out[217]=",ExpressionUUID->"92f70f88-e69c-1542-bc35-e0a4a79c0778"] +}, 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.991845055619808*^9},ExpressionUUID->"b1b29f9b-c1d5-3048-84ff-\ +9fde8e93d227"], + +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->"f7ec4848-a774-4241-8252-c4a345b7b537"], + +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->"b1cc9ffb-8539-884b-83ac-f80545b77446"], + +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->"0d692fe8-00d8-2648-b9dc-a50ab2117d15"], + +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->"f1156f88-ad59-a64f-9387-30a62e4910c3"], + +Cell[BoxData["4.37160597269358`"], "Output", + CellChangeTimes->{3.991331781456501*^9}, + CellLabel-> + "Out[218]=",ExpressionUUID->"b12401fc-f91d-dc4c-aefa-dbdb0f0fee52"] +}, 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.991845062111332*^9},ExpressionUUID->"7833995d-3f7b-3a4e-944a-\ +db222bb16395"], + +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->"7db9f46f-8a38-cb4a-a687-c722730b8b16"], + +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->"6430db22-9f1b-7245-9227-60a3d496b498"], + +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->"6f0f625d-6657-4c45-9368-10b8293fb84f"], + +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->"7da75495-a67b-ae4b-9f38-dff9e5fd170b"], + +Cell[BoxData["7.54286262106163`"], "Output", + CellChangeTimes->{3.9913317851500416`*^9}, + CellLabel-> + "Out[219]=",ExpressionUUID->"9c2483c6-51ba-7e4c-a701-0fa72c2d8ca1"] +}, 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.991845068201048*^9},ExpressionUUID->"cfa7b206-7d8f-ba43-acf6-\ +c3e910046666"], + +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->"f9c851f7-b559-7d4a-b035-4845c67e3a3f"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918450725877113`*^9, {3.991845494880064*^9, + 3.9918454954591675`*^9}},ExpressionUUID->"485e4bed-973b-f94f-bcff-\ +d7674e9a7110"], + +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->"f059ab7e-e874-8240-9bfe-d7e368a299f7"], + +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->"dbe978bc-9547-1a48-b457-4a5508183e55"], + +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->"16d105d4-645d-f34c-ab78-1cc2dd85030b"], + +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->"b2ac087e-12b1-2c45-a87d-09319151e16f"], + +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->"84d25c2a-3d95-8a4f-b44b-f3bad52460c9"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917971206132183`*^9, + 3.9917971229936733`*^9}},ExpressionUUID->"25060c9f-5d93-6841-93a1-\ +f53bbd9b851a"], + +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->"9cb62145-2ada-bc41-956f-2b9918d80413"], + +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->"16aadf7c-39a3-2342-980f-bebe21018618"], + +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->"4a6270d2-2cff-8a43-a054-69c4140f594b"], + +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->"e3a9765f-2bfe-b14b-8d69-4a2bea7b9156"], + +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->"8da14ef6-3ff7-6944-bb4c-973d9ac0bba0"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.9913335200445786`*^9}, + CellLabel-> + "Out[225]=",ExpressionUUID->"57bdb082-bd1f-6545-af52-ae718626e470"] +}, 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.991845086901308*^9, + 3.991845092064165*^9}},ExpressionUUID->"3b8ec59c-bf90-a74e-8e19-\ +98c05b1b569e"], + +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->"b257d5c2-9dc7-f54b-9734-676d18632a27"], + +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->"0d2bee34-8477-ff4a-a5f9-f9e477d2d683"], + +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->"ba8b5fcf-743f-8242-99fd-e814e715c59e"], + +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->"a4214718-9750-e246-9ae7-4b24f55652c1"], + +Cell[BoxData["0.7348275136088338`"], "Output", + CellChangeTimes->{3.9913335271231823`*^9}, + CellLabel-> + "Out[226]=",ExpressionUUID->"0b0263fd-52eb-7a4b-97ef-be9fc1b0ecc8"] +}, 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.991845095514675*^9, + 3.991845099002287*^9}},ExpressionUUID->"ca9a5900-6241-e942-8e6f-\ +ccee4f3ad231"], + +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->"fc86abcb-555b-294f-9929-a479af0ae8f6"], + +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->"186009b3-7587-f94a-abe7-c098dc60f14f"], + +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->"90efeff9-ba63-084d-8f62-cd826b88eb74"], + +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->"971bb95b-6c51-1147-a610-18d7656c3629"], + +Cell[BoxData["5.221864211842707`"], "Output", + CellChangeTimes->{3.9913335331581306`*^9}, + CellLabel-> + "Out[227]=",ExpressionUUID->"ae353e01-df4e-154e-bbd2-0444671a0f3e"] +}, 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.991845103890877*^9, + 3.9918451079172287`*^9}},ExpressionUUID->"4b76f315-df8b-2e44-9766-\ +11e105bf7f03"], + +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->"ed610062-32b2-4747-9cf7-cdf5861e3759"], + +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->"48806774-48ab-a543-9a1c-8bd0048d2f4a"], + +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->"39ea2316-8e1d-fb46-b839-5fdc5c4b72de"], + +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->"9b3c6b11-fc56-8c45-8c8c-7dc51bc571a1"], + +Cell[BoxData["15.545902834190647`"], "Output", + CellChangeTimes->{3.9913335366055527`*^9}, + CellLabel-> + "Out[228]=",ExpressionUUID->"50f5cefa-b666-c54b-92c2-5f98a1396137"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918451116798954`*^9, + 3.991845116011841*^9}},ExpressionUUID->"c61261a4-9291-8d4e-84ee-\ +07cf74de18fa"], + +Cell[BoxData["0.08155763943441016`"], "Output", + CellChangeTimes->{3.9913335366395893`*^9}, + CellLabel-> + "Out[229]=",ExpressionUUID->"449de59f-e30f-3641-b8d5-c2f2f70e6df1"] +}, 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->"477cbae2-68b6-a84d-b5e5-8fac157f8e8b" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[554, 20, 147, 4, 28, "Input",ExpressionUUID->"8b10a187-c7b7-0f44-8f32-75ec5ae33e70"], +Cell[704, 26, 152, 3, 28, "Input",ExpressionUUID->"d7190627-18d6-a94b-880e-e3f073ed75cd"], +Cell[859, 31, 147, 4, 28, "Input",ExpressionUUID->"ff3a0633-5725-474e-a1df-0fae08da0391"], +Cell[1009, 37, 154, 3, 28, "Input",ExpressionUUID->"c4cb48f6-8bef-5140-97cb-74fc477176c0"], +Cell[CellGroupData[{ +Cell[1188, 44, 1301, 43, 113, "Input",ExpressionUUID->"1479e503-99dc-8043-a7ed-41f4ebd401a5"], +Cell[2492, 89, 178, 3, 32, "Output",ExpressionUUID->"56570731-d969-eb41-878a-b8b4e7feda04"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2707, 97, 911, 30, 56, "Input",ExpressionUUID->"ee451e0a-03c5-5d4b-809d-1baa2036c180"], +Cell[3621, 129, 175, 3, 32, "Output",ExpressionUUID->"6c597397-08ed-6045-9d69-fd291ab08bb7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3833, 137, 961, 32, 56, "Input",ExpressionUUID->"1b7f9814-f540-ee4f-a97a-82e0c001ccbc"], +Cell[4797, 171, 176, 3, 32, "Output",ExpressionUUID->"df7fd0ae-abcd-f746-a5e5-204909cac9a1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5010, 179, 558, 19, 52, "Input",ExpressionUUID->"add7dc78-05f0-9740-a4f6-53e576919ef8"], +Cell[5571, 200, 172, 3, 32, "Output",ExpressionUUID->"3a877309-deb0-5f44-9dfa-c0ac87131362"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5780, 208, 623, 21, 52, "Input",ExpressionUUID->"9b673079-5994-e34c-a858-9ada9b775642"], +Cell[6406, 231, 172, 3, 32, "Output",ExpressionUUID->"22ab525d-794a-7c4d-8f53-b4d75969da27"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6615, 239, 170, 5, 56, "Input",ExpressionUUID->"2e19814e-d8e4-0440-a349-54cc93ccdf53"], +Cell[6788, 246, 172, 3, 32, "Output",ExpressionUUID->"1896ee18-ae10-e644-828f-5f5df642d0f1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6997, 254, 170, 5, 55, "Input",ExpressionUUID->"538f6b3e-6e49-7749-a73e-74beaffe6942"], +Cell[7170, 261, 171, 3, 32, "Output",ExpressionUUID->"b400a1d2-95af-fb40-b3ff-41d1750a93a6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7378, 269, 181, 5, 43, "Input",ExpressionUUID->"0943a4c5-ab88-024e-b598-6ab09308c529"], +Cell[7562, 276, 170, 3, 32, "Output",ExpressionUUID->"8ca2cab9-f56c-6b47-8a70-792841a4fe85"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7769, 284, 181, 5, 43, "Input",ExpressionUUID->"5313d107-d67a-0a42-97ea-bdd5afbb176c"], +Cell[7953, 291, 172, 3, 32, "Output",ExpressionUUID->"a5943015-372b-c144-b0e4-4a01bb107ed7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8162, 299, 6055, 185, 498, "Input",ExpressionUUID->"05311468-f950-6f43-ae68-9cc6502c4986"], +Cell[14220, 486, 172, 3, 32, "Output",ExpressionUUID->"d0296c8c-1490-7c4a-92bd-55e7f4162d6c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14429, 494, 368, 9, 42, "Input",ExpressionUUID->"55ab7556-231d-f846-b625-6b6079424223"], +Cell[14800, 505, 171, 3, 32, "Output",ExpressionUUID->"9dd7cddc-5c45-9245-9b72-df722da611af"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15008, 513, 6122, 187, 500, "Input",ExpressionUUID->"de97f1d4-a997-5d44-ad21-9d29636b6b11"], +Cell[21133, 702, 173, 3, 32, "Output",ExpressionUUID->"495d1ed0-b317-7449-85b9-baf4df7f0d01"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21343, 710, 368, 9, 42, "Input",ExpressionUUID->"69bf2733-1c68-0d45-9dcf-32eb09d0774e"], +Cell[21714, 721, 170, 3, 32, "Output",ExpressionUUID->"04beffaf-62f7-0b45-9712-c72de536f25b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21921, 729, 2663, 88, 187, "Input",ExpressionUUID->"790285fd-a791-004a-beb8-81432d5fe6ed"], +Cell[24587, 819, 171, 3, 32, "Output",ExpressionUUID->"29664369-b402-8f4f-96f8-4e73d4b4ac49"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24795, 827, 2603, 85, 165, "Input",ExpressionUUID->"8d9d59ff-5258-ed44-b54a-00649424f6ab"], +Cell[27401, 914, 173, 3, 32, "Output",ExpressionUUID->"983f75a1-f997-be4a-81f5-6dbcd2c0b96b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27611, 922, 3712, 118, 348, "Input",ExpressionUUID->"082cc170-e78d-1f4c-ac49-a1fc473fe786"], +Cell[31326, 1042, 174, 3, 32, "Output",ExpressionUUID->"d4d9342c-f66d-924d-84fc-6729720d8960"] +}, Open ]], +Cell[31515, 1048, 138, 3, 42, "Input",ExpressionUUID->"b80089e4-e129-a84d-a279-8559e98c6042"], +Cell[CellGroupData[{ +Cell[31678, 1055, 2052, 59, 228, "Input",ExpressionUUID->"d15c8f9d-5cd8-0448-9115-8fd811f7859e"], +Cell[33733, 1116, 557, 12, 66, "Message",ExpressionUUID->"4061b475-d37f-3641-8b49-887dcca71780"], +Cell[34293, 1130, 559, 12, 66, "Message",ExpressionUUID->"405af2e3-b633-ec4f-a8af-038ad86e22fe"], +Cell[34855, 1144, 561, 12, 85, "Message",ExpressionUUID->"af7f9224-4f54-674b-94d8-a07a9f6c53fd"], +Cell[35419, 1158, 458, 10, 26, "Message",ExpressionUUID->"3d0f87c1-75a2-eb40-96ff-130376937dee"], +Cell[35880, 1170, 172, 3, 32, "Output",ExpressionUUID->"7ce936d7-d120-de47-ab26-d4794a00a858"] +}, Open ]], +Cell[CellGroupData[{ +Cell[36089, 1178, 2052, 59, 228, "Input",ExpressionUUID->"a596efda-1871-9b45-afb4-f85dfdafd26c"], +Cell[38144, 1239, 555, 12, 66, "Message",ExpressionUUID->"7fbc6b76-65ea-934a-b19a-39f44c5b4b90"], +Cell[38702, 1253, 559, 12, 66, "Message",ExpressionUUID->"35ea7ca0-84c8-d147-ab12-3deebbaaa154"], +Cell[39264, 1267, 561, 12, 85, "Message",ExpressionUUID->"b6cc553e-783f-0e4d-92d5-4078be1419c9"], +Cell[39828, 1281, 458, 10, 26, "Message",ExpressionUUID->"f4f151bb-1037-1e45-96b1-aa03e2ec2e08"], +Cell[40289, 1293, 172, 3, 32, "Output",ExpressionUUID->"531f82ba-09ac-9c40-a730-44e0b959edc3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[40498, 1301, 1936, 53, 115, "Input",ExpressionUUID->"98a8fe78-0965-1043-b897-797c175d7e63"], +Cell[42437, 1356, 20449, 382, 238, "Output",ExpressionUUID->"711c25c1-ed76-2e4b-84a6-d57a020489df"] +}, Open ]], +Cell[CellGroupData[{ +Cell[62923, 1743, 2114, 60, 211, "Input",ExpressionUUID->"9a11a03e-c4c1-5741-ac7d-23e1536f3e79"], +Cell[65040, 1805, 500, 11, 60, "Message",ExpressionUUID->"a638aba8-20a5-a64e-a190-4d33ebd1b8cb"], +Cell[65543, 1818, 503, 11, 60, "Message",ExpressionUUID->"ae7b53dc-f8ec-854b-9226-f16bb757a2e5"], +Cell[66049, 1831, 506, 11, 60, "Message",ExpressionUUID->"eac3fa47-f68a-0843-85a5-2531dd3a1acc"], +Cell[66558, 1844, 455, 10, 26, "Message",ExpressionUUID->"cf422af8-1404-4a4c-bb03-11722827e096"], +Cell[67016, 1856, 57321, 985, 233, "Output",ExpressionUUID->"da078250-620d-dc47-9190-f4147c2a22d7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[124374, 2846, 327, 7, 42, "Input",ExpressionUUID->"d0e220f6-a6cd-c048-ab1a-de311ff0fdbc"], +Cell[124704, 2855, 9707, 222, 240, "Output",ExpressionUUID->"54c42de2-e686-7c45-9694-49248a966b4d"] +}, Open ]], +Cell[134426, 3080, 257, 6, 42, "Input",ExpressionUUID->"b9d1e9a3-d136-bb41-ba98-cea12bff5352"], +Cell[CellGroupData[{ +Cell[134708, 3090, 215, 7, 48, "Input",ExpressionUUID->"f431849e-0899-864c-b9d1-1df0491628db"], +Cell[134926, 3099, 172, 3, 32, "Output",ExpressionUUID->"d513da22-514d-5e4b-95c1-28c30db4448a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[135135, 3107, 1816, 53, 183, "Input",ExpressionUUID->"650ee12b-eb50-044b-94e9-ce88ff255deb"], +Cell[136954, 3162, 508, 11, 60, "Message",ExpressionUUID->"d1868775-7452-3b40-942a-63d8a590148d"], +Cell[137465, 3175, 508, 11, 60, "Message",ExpressionUUID->"63636793-87e5-c34e-8b32-996c1b2c9165"], +Cell[137976, 3188, 511, 11, 60, "Message",ExpressionUUID->"16e0b7d9-d776-8f46-ad6d-707495a25e9c"], +Cell[138490, 3201, 456, 10, 26, "Message",ExpressionUUID->"2573cc1f-e89e-934a-aa43-79a47df211bd"], +Cell[138949, 3213, 26000, 472, 234, "Output",ExpressionUUID->"2c03bcb6-3be4-1844-9ca2-48c18a26626a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[164986, 3690, 1616, 48, 113, "Input",ExpressionUUID->"5c6d0b57-910e-664a-8fd6-40771b36868b"], +Cell[166605, 3740, 584, 12, 85, "Message",ExpressionUUID->"85dcf820-db3d-024c-98b1-83dd2ba7d04c"], +Cell[167192, 3754, 588, 12, 85, "Message",ExpressionUUID->"1f9f96e1-4a57-6049-b6cc-4e4928609a9a"], +Cell[167783, 3768, 592, 12, 85, "Message",ExpressionUUID->"41c8c94b-43e8-be40-bbc3-83ecc5178dd9"], +Cell[168378, 3782, 456, 10, 26, "Message",ExpressionUUID->"12ccc187-b899-d54e-92ad-c3128a04ec4d"], +Cell[168837, 3794, 169, 3, 32, "Output",ExpressionUUID->"00bb2d18-fd7c-c946-b7e2-ea5f28955604"] +}, Open ]], +Cell[CellGroupData[{ +Cell[169043, 3802, 2247, 64, 223, "Input",ExpressionUUID->"b04a104f-3249-a34a-8102-7d9b3c7b796d"], +Cell[171293, 3868, 555, 12, 66, "Message",ExpressionUUID->"5de31c03-28cf-dc48-81c5-7c7746c54276"], +Cell[171851, 3882, 557, 12, 66, "Message",ExpressionUUID->"87ee2218-308b-1c43-8925-324a31500f9d"], +Cell[172411, 3896, 563, 12, 85, "Message",ExpressionUUID->"31bf6478-b1c1-9542-9dec-15ccf89a4566"], +Cell[172977, 3910, 458, 10, 26, "Message",ExpressionUUID->"413f0426-4563-cc47-9e61-5f6f0ab61394"], +Cell[173438, 3922, 173, 3, 32, "Output",ExpressionUUID->"f8144886-988a-7544-861d-6c87500bf6c5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[173648, 3930, 2221, 64, 162, "Input",ExpressionUUID->"6b8170ef-e8e1-8b4d-b589-528a0f547fe8"], +Cell[175872, 3996, 555, 12, 66, "Message",ExpressionUUID->"da8f8f97-234b-bc42-936f-0785b24ee446"], +Cell[176430, 4010, 557, 12, 66, "Message",ExpressionUUID->"2e3a9bc1-9d8c-5142-9abf-1720c1836f03"], +Cell[176990, 4024, 561, 12, 85, "Message",ExpressionUUID->"5831990e-e4f4-2b4f-a9c3-44a115dcf032"], +Cell[177554, 4038, 458, 10, 26, "Message",ExpressionUUID->"e1b6cf3c-14e6-964f-8a14-d24948c74c5a"], +Cell[178015, 4050, 173, 3, 32, "Output",ExpressionUUID->"eefb0037-cb99-2a44-8be0-7ef1ec5adb6b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[178225, 4058, 2219, 64, 162, "Input",ExpressionUUID->"984387ef-9fd9-3c47-bc3d-b6f0e8b03e2c"], +Cell[180447, 4124, 557, 12, 66, "Message",ExpressionUUID->"bf747c94-a1b1-5e42-af32-1d43d2dce0cc"], +Cell[181007, 4138, 557, 12, 66, "Message",ExpressionUUID->"e6de31d8-cd61-c14b-9dd6-e01a31d33bd5"], +Cell[181567, 4152, 563, 12, 85, "Message",ExpressionUUID->"330f1117-2847-c64f-987e-1999701c026c"], +Cell[182133, 4166, 456, 10, 26, "Message",ExpressionUUID->"ca8f5a06-fe5d-5246-9421-637b037f4be3"], +Cell[182592, 4178, 173, 3, 32, "Output",ExpressionUUID->"dcde32d3-c138-4f4b-9743-87921cc6c9e7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[182802, 4186, 213, 6, 47, "Input",ExpressionUUID->"a1d4e2a6-d632-ee42-bf72-0ec0037a6c16"], +Cell[183018, 4194, 171, 3, 32, "Output",ExpressionUUID->"d851969f-aae6-ff40-b54a-f81b9a16b06d"] +}, Open ]], +Cell[183204, 4200, 245, 5, 42, "Input",ExpressionUUID->"ab8417e8-4709-e943-87cd-c5b8a0910541"], +Cell[CellGroupData[{ +Cell[183474, 4209, 558, 19, 52, "Input",ExpressionUUID->"befa51f5-5940-8743-b07a-eb3a8aba653f"], +Cell[184035, 4230, 172, 3, 32, "Output",ExpressionUUID->"d3696bfe-4fa2-f04a-96eb-2ffcb275e098"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184244, 4238, 170, 5, 56, "Input",ExpressionUUID->"8c248539-c23a-4a42-8e54-3b513c751017"], +Cell[184417, 4245, 173, 3, 32, "Output",ExpressionUUID->"19996e75-8d0f-2049-b0ab-f705e12070ee"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184627, 4253, 181, 5, 43, "Input",ExpressionUUID->"293f8673-c8b0-6746-85db-59c8f599b57c"], +Cell[184811, 4260, 173, 3, 32, "Output",ExpressionUUID->"6b23bccd-f31e-9d46-9023-034bd51ad3bb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[185021, 4268, 6055, 185, 498, "Input",ExpressionUUID->"8fe440ff-6433-ee43-8ab0-44131de05652"], +Cell[191079, 4455, 172, 3, 32, "Output",ExpressionUUID->"62171c19-5f83-2049-9194-385f2231542c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191288, 4463, 368, 9, 42, "Input",ExpressionUUID->"ec04ad19-eb6d-ba4f-929a-62702cc30a12"], +Cell[191659, 4474, 170, 3, 32, "Output",ExpressionUUID->"deee1bab-ce6f-c047-9ddf-87c9b2a4acea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191866, 4482, 6122, 187, 500, "Input",ExpressionUUID->"301beffb-a956-b44c-beb2-37fe9711e64e"], +Cell[197991, 4671, 175, 3, 32, "Output",ExpressionUUID->"73bc7c9d-800c-a442-97e6-20db932568ad"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198203, 4679, 368, 9, 42, "Input",ExpressionUUID->"603274e8-9f12-ce48-b425-66b0e2e5dd2e"], +Cell[198574, 4690, 172, 3, 32, "Output",ExpressionUUID->"bbde9dcf-faa4-2d4f-b406-f2d0c7495b65"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198783, 4698, 2663, 88, 187, "Input",ExpressionUUID->"26d67789-9b33-7843-a368-14c85da65ff3"], +Cell[201449, 4788, 173, 3, 32, "Output",ExpressionUUID->"2f8aa250-eefc-864d-99db-2d5482d1949c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201659, 4796, 2603, 85, 165, "Input",ExpressionUUID->"a37295b9-9f23-ed46-af76-8081da173c8b"], +Cell[204265, 4883, 171, 3, 32, "Output",ExpressionUUID->"0b037e26-4d38-4e42-a978-3ca735d36a45"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204473, 4891, 3712, 118, 348, "Input",ExpressionUUID->"8cb2872a-60dc-2845-b059-08954f0afeb4"], +Cell[208188, 5011, 174, 3, 32, "Output",ExpressionUUID->"706324b4-7c0c-914f-bb1a-cf2595e95f52"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208399, 5019, 2052, 59, 228, "Input",ExpressionUUID->"003a047b-90eb-3149-b4f8-a296c2b2cdcd"], +Cell[210454, 5080, 578, 12, 85, "Message",ExpressionUUID->"b352bd85-52e4-bc41-b324-534f96ccf0e6"], +Cell[211035, 5094, 583, 12, 85, "Message",ExpressionUUID->"86af3939-d1d7-d647-b19c-39e3436e5502"], +Cell[211621, 5108, 586, 12, 85, "Message",ExpressionUUID->"d19a6c38-6670-b646-b496-e1d520cf6398"], +Cell[212210, 5122, 456, 10, 26, "Message",ExpressionUUID->"0a65d080-4626-264a-957d-e0dedd3bbc33"], +Cell[212669, 5134, 170, 3, 32, "Output",ExpressionUUID->"24ab5ee4-c131-f84c-b2e4-0200f87c8b2d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[212876, 5142, 2052, 59, 228, "Input",ExpressionUUID->"17f0d32c-a57d-2a45-81f1-ef75e11de8a0"], +Cell[214931, 5203, 576, 12, 85, "Message",ExpressionUUID->"bd7deec6-2c8e-3746-920e-2051f2f357c4"], +Cell[215510, 5217, 581, 12, 85, "Message",ExpressionUUID->"38bcde0f-fd6a-1240-9c86-1d4b53e7d01b"], +Cell[216094, 5231, 586, 12, 85, "Message",ExpressionUUID->"abf7d101-d355-3b49-ab40-00c114c9b9da"], +Cell[216683, 5245, 458, 10, 26, "Message",ExpressionUUID->"9dcaae4f-6c03-c04b-a023-85d91df5e7c7"], +Cell[217144, 5257, 172, 3, 32, "Output",ExpressionUUID->"ccb5155b-66b6-0547-a5f2-a08c72158762"] +}, Open ]], +Cell[CellGroupData[{ +Cell[217353, 5265, 2030, 55, 160, "Input",ExpressionUUID->"fcd15b99-cf8b-0648-a673-70cdac1f227f"], +Cell[219386, 5322, 20011, 378, 237, "Output",ExpressionUUID->"637e3f8e-a1de-d24b-8d0a-9daaf526b8f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[239434, 5705, 2146, 61, 211, "Input",ExpressionUUID->"76321b6a-1af8-9c49-b2f7-d5c92a8c63b6"], +Cell[241583, 5768, 501, 11, 60, "Message",ExpressionUUID->"795a4e03-9348-bc44-bc59-9c81576134fb"], +Cell[242087, 5781, 503, 11, 60, "Message",ExpressionUUID->"7ea7e400-7b44-4743-aaa2-4d6d1b08b804"], +Cell[242593, 5794, 505, 11, 60, "Message",ExpressionUUID->"8c3efc69-51e4-0349-9387-81018769ac2c"], +Cell[243101, 5807, 456, 10, 26, "Message",ExpressionUUID->"d01f1fa2-329b-d248-8b6a-32256534f54c"], +Cell[243560, 5819, 32548, 580, 233, "Output",ExpressionUUID->"490311aa-bd00-914a-9f58-947467dd9297"] +}, Open ]], +Cell[276123, 6402, 211, 5, 42, "Input",ExpressionUUID->"17d8d20d-a69d-c241-a4b7-c5ab6913db6c"], +Cell[CellGroupData[{ +Cell[276359, 6411, 1616, 48, 113, "Input",ExpressionUUID->"37173e44-18b6-f345-bdbf-3935ac3d85ba"], +Cell[277978, 6461, 596, 12, 85, "Message",ExpressionUUID->"535ab9af-e2f0-944f-9023-d0d7fa4c31e5"], +Cell[278577, 6475, 599, 12, 85, "Message",ExpressionUUID->"763653e6-d2c5-2c4b-b148-2d601b18999e"], +Cell[279179, 6489, 605, 12, 85, "Message",ExpressionUUID->"6712547a-cfd4-1747-b710-24dcd8b85594"], +Cell[279787, 6503, 456, 10, 26, "Message",ExpressionUUID->"44853999-274b-4a4d-befb-0519af052f8e"], +Cell[280246, 6515, 170, 3, 32, "Output",ExpressionUUID->"d265ec31-c37b-b34b-9f4e-2a798572ba0d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[280453, 6523, 2247, 64, 223, "Input",ExpressionUUID->"c4a8a8b0-0b31-ac4c-a7ce-152da20b42d7"], +Cell[282703, 6589, 580, 12, 85, "Message",ExpressionUUID->"0a0b8acc-d88c-f541-9f43-3ad7f8ff671a"], +Cell[283286, 6603, 583, 12, 85, "Message",ExpressionUUID->"dbdc2977-d53e-404d-b6e6-a598c19760d4"], +Cell[283872, 6617, 584, 12, 85, "Message",ExpressionUUID->"c66123d8-b0b6-0144-99d0-8ca0ecfb4093"], +Cell[284459, 6631, 458, 10, 26, "Message",ExpressionUUID->"36aff51b-c5d2-5d4f-878f-fb1430bbf46d"], +Cell[284920, 6643, 170, 3, 32, "Output",ExpressionUUID->"330b8bea-4179-8348-95aa-c6fba51d26c2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[285127, 6651, 2221, 64, 162, "Input",ExpressionUUID->"3975f6bc-b8e0-0049-badb-74a4e7126d8f"], +Cell[287351, 6717, 580, 12, 85, "Message",ExpressionUUID->"fa38804d-d1cb-1447-8203-2445dfa4fcda"], +Cell[287934, 6731, 583, 12, 85, "Message",ExpressionUUID->"21e377cd-5f17-ee4d-9c79-89037091bc25"], +Cell[288520, 6745, 586, 12, 85, "Message",ExpressionUUID->"73743e57-e60a-4847-8af4-f6d159a2fc37"], +Cell[289109, 6759, 458, 10, 26, "Message",ExpressionUUID->"b407e7dc-c0ec-4843-b3e5-381bd4c692b7"], +Cell[289570, 6771, 171, 3, 32, "Output",ExpressionUUID->"070c193e-9eba-f642-847f-cac8b588492e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[289778, 6779, 2219, 64, 162, "Input",ExpressionUUID->"f4f95d15-5683-9549-85ce-3970c364fc34"], +Cell[292000, 6845, 580, 12, 85, "Message",ExpressionUUID->"eb423938-ff5a-344a-969c-b7d904599c4b"], +Cell[292583, 6859, 583, 12, 85, "Message",ExpressionUUID->"b4b8c5b2-00a6-ec4c-8b4f-a4d9bd1e8c35"], +Cell[293169, 6873, 584, 12, 85, "Message",ExpressionUUID->"72ea416d-dd3f-7941-b395-c37fefc1b337"], +Cell[293756, 6887, 456, 10, 26, "Message",ExpressionUUID->"e78b7c76-2ded-8940-b41a-b392437045c0"], +Cell[294215, 6899, 170, 3, 32, "Output",ExpressionUUID->"a780e023-1794-804c-8339-bc10a750b9f0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[294422, 6907, 215, 6, 47, "Input",ExpressionUUID->"16838e8f-dc9a-d74c-8675-3a4476217af6"], +Cell[294640, 6915, 174, 3, 32, "Output",ExpressionUUID->"15b51804-0720-9c4e-b20b-e353de084a0e"] +}, Open ]], +Cell[294829, 6921, 247, 5, 42, "Input",ExpressionUUID->"5671b6c5-96eb-9840-bb09-6698022336a6"], +Cell[CellGroupData[{ +Cell[295101, 6930, 558, 19, 52, "Input",ExpressionUUID->"4d014000-6f17-9a45-b3a6-a3a0cf36c628"], +Cell[295662, 6951, 173, 3, 32, "Output",ExpressionUUID->"934b3a30-897a-9e41-85e9-504d7ee2ff62"] +}, Open ]], +Cell[CellGroupData[{ +Cell[295872, 6959, 170, 5, 56, "Input",ExpressionUUID->"fe5bd3c5-5fb8-684b-9227-f90b633f4a5d"], +Cell[296045, 6966, 173, 3, 32, "Output",ExpressionUUID->"2fbbe691-91db-6640-99ed-fb726285d981"] +}, Open ]], +Cell[CellGroupData[{ +Cell[296255, 6974, 181, 5, 43, "Input",ExpressionUUID->"fcb96232-efe5-6c4a-80fc-3e0409b7c756"], +Cell[296439, 6981, 171, 3, 32, "Output",ExpressionUUID->"12ec0e81-c346-2f44-a188-d2441d58a6ee"] +}, Open ]], +Cell[CellGroupData[{ +Cell[296647, 6989, 6055, 185, 498, "Input",ExpressionUUID->"826a4822-fe82-2545-859e-1dcc0d2c7665"], +Cell[302705, 7176, 173, 3, 32, "Output",ExpressionUUID->"8ec31e5d-c440-8b41-a98c-226b6d9ffc36"] +}, Open ]], +Cell[CellGroupData[{ +Cell[302915, 7184, 368, 9, 42, "Input",ExpressionUUID->"8e8ef1c8-b957-7e47-8bd7-349d078e5615"], +Cell[303286, 7195, 172, 3, 32, "Output",ExpressionUUID->"bcb4b779-10f1-9041-9a4c-3cdec2a68741"] +}, Open ]], +Cell[CellGroupData[{ +Cell[303495, 7203, 6122, 187, 500, "Input",ExpressionUUID->"ef7ab6c6-a465-144e-9b2e-d87983d89cc3"], +Cell[309620, 7392, 175, 3, 32, "Output",ExpressionUUID->"1bb933d6-f02a-2d47-939d-352095da19e4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[309832, 7400, 368, 9, 42, "Input",ExpressionUUID->"005cbf5d-7cfe-0a47-85df-3f41c0cd74cc"], +Cell[310203, 7411, 171, 3, 32, "Output",ExpressionUUID->"417f7831-47f1-634e-b3b3-4519fff106b6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[310411, 7419, 2663, 88, 187, "Input",ExpressionUUID->"11446a18-6985-d84f-b09e-6be9463bee70"], +Cell[313077, 7509, 173, 3, 32, "Output",ExpressionUUID->"2a38d751-aa08-544a-bed2-19499b9d4e28"] +}, Open ]], +Cell[CellGroupData[{ +Cell[313287, 7517, 2603, 85, 165, "Input",ExpressionUUID->"cf191722-8995-064e-a60c-6ab12800222b"], +Cell[315893, 7604, 171, 3, 32, "Output",ExpressionUUID->"46c519d5-59d4-f441-bd4f-aa5b2f67d025"] +}, Open ]], +Cell[CellGroupData[{ +Cell[316101, 7612, 3712, 118, 348, "Input",ExpressionUUID->"146e47d3-0f15-fc4b-b22a-e41827d0b353"], +Cell[319816, 7732, 174, 3, 32, "Output",ExpressionUUID->"92f70f88-e69c-1542-bc35-e0a4a79c0778"] +}, Open ]], +Cell[CellGroupData[{ +Cell[320027, 7740, 2052, 59, 228, "Input",ExpressionUUID->"b1b29f9b-c1d5-3048-84ff-9fde8e93d227"], +Cell[322082, 7801, 572, 12, 85, "Message",ExpressionUUID->"f7ec4848-a774-4241-8252-c4a345b7b537"], +Cell[322657, 7815, 573, 12, 85, "Message",ExpressionUUID->"b1cc9ffb-8539-884b-83ac-f80545b77446"], +Cell[323233, 7829, 579, 12, 85, "Message",ExpressionUUID->"0d692fe8-00d8-2648-b9dc-a50ab2117d15"], +Cell[323815, 7843, 456, 10, 26, "Message",ExpressionUUID->"f1156f88-ad59-a64f-9387-30a62e4910c3"], +Cell[324274, 7855, 169, 3, 32, "Output",ExpressionUUID->"b12401fc-f91d-dc4c-aefa-dbdb0f0fee52"] +}, Open ]], +Cell[CellGroupData[{ +Cell[324480, 7863, 2052, 59, 228, "Input",ExpressionUUID->"7833995d-3f7b-3a4e-944a-db222bb16395"], +Cell[326535, 7924, 570, 12, 85, "Message",ExpressionUUID->"7db9f46f-8a38-cb4a-a687-c722730b8b16"], +Cell[327108, 7938, 575, 12, 85, "Message",ExpressionUUID->"6430db22-9f1b-7245-9227-60a3d496b498"], +Cell[327686, 7952, 579, 12, 85, "Message",ExpressionUUID->"6f0f625d-6657-4c45-9368-10b8293fb84f"], +Cell[328268, 7966, 458, 10, 26, "Message",ExpressionUUID->"7da75495-a67b-ae4b-9f38-dff9e5fd170b"], +Cell[328729, 7978, 171, 3, 32, "Output",ExpressionUUID->"9c2483c6-51ba-7e4c-a701-0fa72c2d8ca1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[328937, 7986, 2028, 55, 160, "Input",ExpressionUUID->"cfa7b206-7d8f-ba43-acf6-c3e910046666"], +Cell[330968, 8043, 20011, 378, 237, "Output",ExpressionUUID->"f9c851f7-b559-7d4a-b035-4845c67e3a3f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[351016, 8426, 2146, 61, 211, "Input",ExpressionUUID->"485e4bed-973b-f94f-bcff-d7674e9a7110"], +Cell[353165, 8489, 501, 11, 70, "Message",ExpressionUUID->"f059ab7e-e874-8240-9bfe-d7e368a299f7"], +Cell[353669, 8502, 505, 11, 70, "Message",ExpressionUUID->"dbe978bc-9547-1a48-b457-4a5508183e55"], +Cell[354177, 8515, 506, 11, 70, "Message",ExpressionUUID->"16d105d4-645d-f34c-ab78-1cc2dd85030b"], +Cell[354686, 8528, 456, 10, 70, "Message",ExpressionUUID->"b2ac087e-12b1-2c45-a87d-09319151e16f"], +Cell[355145, 8540, 31008, 556, 70, "Output",ExpressionUUID->"84d25c2a-3d95-8a4f-b44b-f3bad52460c9"] +}, Open ]], +Cell[386168, 9099, 211, 5, 70, "Input",ExpressionUUID->"25060c9f-5d93-6841-93a1-f53bbd9b851a"], +Cell[CellGroupData[{ +Cell[386404, 9108, 1616, 48, 70, "Input",ExpressionUUID->"9cb62145-2ada-bc41-956f-2b9918d80413"], +Cell[388023, 9158, 593, 12, 70, "Message",ExpressionUUID->"16aadf7c-39a3-2342-980f-bebe21018618"], +Cell[388619, 9172, 595, 12, 70, "Message",ExpressionUUID->"4a6270d2-2cff-8a43-a054-69c4140f594b"], +Cell[389217, 9186, 602, 12, 70, "Message",ExpressionUUID->"e3a9765f-2bfe-b14b-8d69-4a2bea7b9156"], +Cell[389822, 9200, 456, 10, 70, "Message",ExpressionUUID->"8da14ef6-3ff7-6944-bb4c-973d9ac0bba0"], +Cell[390281, 9212, 172, 3, 70, "Output",ExpressionUUID->"57bdb082-bd1f-6545-af52-ae718626e470"] +}, Open ]], +Cell[CellGroupData[{ +Cell[390490, 9220, 2247, 64, 70, "Input",ExpressionUUID->"3b8ec59c-bf90-a74e-8e19-98c05b1b569e"], +Cell[392740, 9286, 572, 12, 70, "Message",ExpressionUUID->"b257d5c2-9dc7-f54b-9734-676d18632a27"], +Cell[393315, 9300, 575, 12, 70, "Message",ExpressionUUID->"0d2bee34-8477-ff4a-a5f9-f9e477d2d683"], +Cell[393893, 9314, 579, 12, 70, "Message",ExpressionUUID->"ba8b5fcf-743f-8242-99fd-e814e715c59e"], +Cell[394475, 9328, 458, 10, 70, "Message",ExpressionUUID->"a4214718-9750-e246-9ae7-4b24f55652c1"], +Cell[394936, 9340, 173, 3, 70, "Output",ExpressionUUID->"0b0263fd-52eb-7a4b-97ef-be9fc1b0ecc8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[395146, 9348, 2219, 64, 70, "Input",ExpressionUUID->"ca9a5900-6241-e942-8e6f-ccee4f3ad231"], +Cell[397368, 9414, 572, 12, 70, "Message",ExpressionUUID->"fc86abcb-555b-294f-9929-a479af0ae8f6"], +Cell[397943, 9428, 575, 12, 70, "Message",ExpressionUUID->"186009b3-7587-f94a-abe7-c098dc60f14f"], +Cell[398521, 9442, 577, 12, 70, "Message",ExpressionUUID->"90efeff9-ba63-084d-8f62-cd826b88eb74"], +Cell[399101, 9456, 456, 10, 70, "Message",ExpressionUUID->"971bb95b-6c51-1147-a610-18d7656c3629"], +Cell[399560, 9468, 172, 3, 70, "Output",ExpressionUUID->"ae353e01-df4e-154e-bbd2-0444671a0f3e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[399769, 9476, 2221, 64, 70, "Input",ExpressionUUID->"4b76f315-df8b-2e44-9766-11e105bf7f03"], +Cell[401993, 9542, 572, 12, 70, "Message",ExpressionUUID->"ed610062-32b2-4747-9cf7-cdf5861e3759"], +Cell[402568, 9556, 573, 12, 70, "Message",ExpressionUUID->"48806774-48ab-a543-9a1c-8bd0048d2f4a"], +Cell[403144, 9570, 579, 12, 70, "Message",ExpressionUUID->"39ea2316-8e1d-fb46-b839-5fdc5c4b72de"], +Cell[403726, 9584, 456, 10, 70, "Message",ExpressionUUID->"9b3c6b11-fc56-8c45-8c8c-7dc51bc571a1"], +Cell[404185, 9596, 173, 3, 70, "Output",ExpressionUUID->"50f5cefa-b666-c54b-92c2-5f98a1396137"] +}, Open ]], +Cell[CellGroupData[{ +Cell[404395, 9604, 213, 6, 70, "Input",ExpressionUUID->"c61261a4-9291-8d4e-84ee-07cf74de18fa"], +Cell[404611, 9612, 174, 3, 70, "Output",ExpressionUUID->"449de59f-e30f-3641-b8d5-c2f2f70e6df1"] +}, Open ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/templates/light_case/l___pr_Qw2.nb b/templates/light_case/l___pr_Qw2.nb new file mode 100755 index 0000000..ecaf494 --- /dev/null +++ b/templates/light_case/l___pr_Qw2.nb @@ -0,0 +1,10302 @@ +(* 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[ 443558, 10292] +NotebookOptionsPosition[ 419104, 9917] +NotebookOutlinePosition[ 419528, 9934] +CellTagsIndexPosition[ 419485, 9931] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ +Cell[BoxData[ + RowBox[{"f1", "="}]], "Input", + CellChangeTimes->{ + 3.9918469322950954`*^9},ExpressionUUID->"7c3e9316-835f-9e4b-9a49-\ +3b4d17d5ac6f"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991846933466057*^9, + 3.991846933469059*^9}},ExpressionUUID->"583d3f2a-de58-8142-9cfe-\ +a0e52258d17f"], + +Cell[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.9918469351421127`*^9},ExpressionUUID->"20139eb5-401a-4b4a-9fa1-\ +5ac66a5ce03b"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918469363719063`*^9, + 3.991846936376911*^9}},ExpressionUUID->"8f81c5bb-6006-6b49-93bb-\ +3460180e6492"], + +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->"d0f946fc-504f-c546-bd13-fc6956e18c7f"], + +Cell[BoxData["2.3793916761039797`*^-53"], "Output", + CellChangeTimes->{3.9913437871842365`*^9}, + CellLabel-> + "Out[399]=",ExpressionUUID->"eee3e6f5-bf54-104d-aacb-1c5d9bb3da72"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + 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"]}]], "*", "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, {3.991558360387518*^9, + 3.991558363336605*^9}},ExpressionUUID->"c6441294-7eb2-2949-9da6-\ +67254244512f"], + +Cell[BoxData["8.839304777809617`*^-55"], "Output", + CellChangeTimes->{3.9913437872132397`*^9}, + CellLabel-> + "Out[400]=",ExpressionUUID->"586d096a-2b7f-5a48-8ed7-66293c7d553c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + 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"]}]], "*", + 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}, + 3.991558357640812*^9},ExpressionUUID->"0e9cd1c8-cad4-dc4a-89c9-\ +68faf6ac59e1"], + +Cell[BoxData["2.0384594858915346`*^-54"], "Output", + CellChangeTimes->{3.9913437872412376`*^9}, + CellLabel-> + "Out[401]=",ExpressionUUID->"1ae1e3cd-cafb-3f45-96d4-d224b94de140"] +}, 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->"9284744b-e118-014c-8926-3a51fd91c939"], + +Cell[BoxData["27.24865368249903`"], "Output", + CellChangeTimes->{3.9913437872672386`*^9}, + CellLabel-> + "Out[402]=",ExpressionUUID->"b31939a9-5d35-324a-8d19-2eccc9ab2e0c"] +}, 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->"1aab4741-497a-9845-8d77-820f63cb5555"], + +Cell[BoxData["47.62007062351`"], "Output", + CellChangeTimes->{3.991343787279253*^9}, + CellLabel-> + "Out[403]=",ExpressionUUID->"ea6f6b0c-3057-e14d-9c39-2b31eb0f9621"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[404]:=",ExpressionUUID->"03d57d66-9155-cf4b-b103-8d5f98199ed8"], + +Cell[BoxData["0.718596406513947`"], "Output", + CellChangeTimes->{3.9913437873062572`*^9}, + CellLabel-> + "Out[404]=",ExpressionUUID->"bbbfe046-4dd1-6242-9bee-c0b76bc74cb2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[405]:=",ExpressionUUID->"dd583ad4-ba05-e74f-9c30-907aa111db1e"], + +Cell[BoxData["2.8712430196956706`"], "Output", + CellChangeTimes->{3.9913437873353844`*^9}, + CellLabel-> + "Out[405]=",ExpressionUUID->"fcfc958d-7982-7143-ba12-796e90324801"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[406]:=",ExpressionUUID->"a1b92a44-c90e-d942-9f90-47bfabccaf08"], + +Cell[BoxData["136.72879537516795`"], "Output", + CellChangeTimes->{3.991343787361582*^9}, + CellLabel-> + "Out[406]=",ExpressionUUID->"a7a34d03-2368-c24b-95db-201f96c75648"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[407]:=",ExpressionUUID->"51b3d1b0-fc32-2443-90dc-d335ab6c08c0"], + +Cell[BoxData["19.58078461858683`"], "Output", + CellChangeTimes->{3.9913437873734856`*^9}, + CellLabel-> + "Out[407]=",ExpressionUUID->"97bb7b25-6ae9-8d4d-86be-4c22b9038464"] +}, 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->"bb0f3cd0-3c69-9040-aa0d-76f7af168d91"], + +Cell[BoxData["0.03116264120310575`"], "Output", + CellChangeTimes->{3.9913437874002857`*^9}, + CellLabel-> + "Out[408]=",ExpressionUUID->"5427a866-023c-174b-9e6d-fbf8b8e707a5"] +}, 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->"c7e96eeb-d934-e843-a9c0-226435d03e38"], + +Cell[BoxData["5.020278507983894`"], "Output", + CellChangeTimes->{3.9913437875033875`*^9}, + CellLabel-> + "Out[409]=",ExpressionUUID->"0d169b1a-2d1c-7b44-8942-0f9754dbfde4"] +}, 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->"c90e2c4d-483b-8948-ad73-554cb9bb1353"], + +Cell[BoxData["0.011613560908040731`"], "Output", + CellChangeTimes->{3.9913437875342865`*^9}, + CellLabel-> + "Out[410]=",ExpressionUUID->"234d4d05-30cf-8546-8a4c-8e92b174dd54"] +}, 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->"344c5706-3a8a-754a-b4da-5866eb210a38"], + +Cell[BoxData["8.223604958038852`"], "Output", + CellChangeTimes->{3.9913437876352882`*^9}, + CellLabel-> + "Out[411]=",ExpressionUUID->"04e9f189-3e04-ae43-be68-86210fdb22c2"] +}, 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->"39da6bde-a34a-f944-af17-b87c664ce50c"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991343787650694*^9}, + CellLabel-> + "Out[412]=",ExpressionUUID->"0cadffd6-f139-f648-ad7f-793752291569"] +}, 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->"3c3f03ba-5eee-ac4e-84c3-b29e4adbaa6e"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913437876776943`*^9}, + CellLabel-> + "Out[413]=",ExpressionUUID->"4e20a900-1f64-424e-9fdb-3d89088a0768"] +}, 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->"ddf61768-a227-c447-bfc3-df30c7b64565"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913437877049465`*^9}, + CellLabel-> + "Out[414]=",ExpressionUUID->"068ebb27-1be5-6c40-8bf8-2f0268f5216d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"0a12571c-0d3c-\ +324d-9fb1-59d5c707bb07"], + +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.991846957646223*^9},ExpressionUUID->"61186e9c-fdd7-7943-9937-\ +691e3ab971c8"], + +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->"3bfa23d6-b5a3-e944-a9bb-ca6e68d969fe"], + +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->"b8fe04c8-adbe-0e49-b84c-7c9b51bb8636"], + +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->"427779f4-4b28-5543-9a01-503bd7cdf693"], + +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->"f6221017-7213-3b49-a432-06b611d306e1"], + +Cell[BoxData["5.020278507983898`"], "Output", + CellChangeTimes->{3.991343791131052*^9}, + CellLabel-> + "Out[415]=",ExpressionUUID->"8ac7cd76-8447-3745-aaee-2af284a32577"] +}, 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.9918469611416626`*^9},ExpressionUUID->"9256a2f6-45c2-e140-bcdd-\ +85d8e1970f4a"], + +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->"2a7e3aab-a746-1146-b27a-e663e8cd1152"], + +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->"7b5059be-83df-794a-9d63-d309a35a2ce1"], + +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->"53abd70a-2c4f-7046-be11-447ced8cdefb"], + +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->"64cbc54f-20f2-ce4f-b6f2-0ea91eeb179c"], + +Cell[BoxData["8.223604958038848`"], "Output", + CellChangeTimes->{3.991343794599764*^9}, + CellLabel-> + "Out[416]=",ExpressionUUID->"bd8591b1-ba8a-6b40-b518-84bec35d20f2"] +}, 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.991846968477251*^9},ExpressionUUID->"2543960d-965e-7a4e-aecb-\ +694d21d63061"], + +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->"609377ee-fc16-7c4a-9e56-8f28efda1b3b"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991846972527668*^9, + 3.9918469897830563`*^9}},ExpressionUUID->"e19ad739-7d82-2c45-9f2a-\ +a1d24bf6372a"], + +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->"108a1881-cb0d-bd45-a774-02403dfdab8d"], + +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->"fb491355-d244-9746-9ef1-167761fef655"], + +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->"a75a12d7-3727-3447-b8ef-6f1b5b957750"], + +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->"5a45253c-33f9-ee48-80d9-da0679c1ba8a"], + +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->"3fb98a86-5ada-4149-bdd3-377ee3650435"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991714709387436*^9, 3.991714738003292*^9}, { + 3.991714834117689*^9, 3.991714842328617*^9}, 3.991793311407936*^9, + 3.9917953263701286`*^9},ExpressionUUID->"0442afd4-ab7e-8942-9b0e-\ +e14520d1eea3"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.011000000000000001`], AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, + 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.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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, 52.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9917148467316074`*^9}, + CellLabel-> + "Out[529]=",ExpressionUUID->"997db581-4738-a842-88e4-b1aa3e4c74be"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, + 3.99179533223897*^9}},ExpressionUUID->"9478c59b-a5b4-1043-afe6-\ +75ae56a5fd89"], + +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"x130\\\", \\\",\\\", \ +GraphicsBox[List[List[], List[List[TagBox[List[Skeleton[2]], \ +Function[Annotation[Slot[1], \\\"Charting`Private`Tag#1\\\"]]]]], \ +List[List[], List[]]], List[Rule[DisplayFunction, Identity], \ +Rule[DisplayFunction, Identity], Rule[DisplayFunction, Identity], \ +Rule[AspectRatio, NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], \ +Rule[Axes, List[True, True]], Rule[AxesLabel, List[None, None]], \ +Rule[AxesOrigin, List[0, 0]], RuleDelayed[DisplayFunction, Identity], \ +Rule[Frame, List[List[False, False], List[False, False]]], Rule[FrameLabel, \ +List[List[None, None], List[None, None]]], Rule[FrameTicks, \ +List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ +Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"AxisPadding\\\", Scaled[0.02`]], \ +Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ +AbsolutePointSize[6]], Rule[\\\"DefaultPlotStyle\\\", \ +List[Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]]]], \ +Rule[\\\"DomainPadding\\\", Scaled[0.02`]], Rule[\\\"PointSizeFunction\\\", \ +\\\"SmallPointSize\\\"], Rule[\\\"RangePadding\\\", Scaled[0.05`]], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"IncludeHighlighting\\\", \\\ +\"CurrentPoint\\\"], Rule[\\\"HighlightStyle\\\", Automatic], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"CoordinatesToolOptions\\\", \ +List[Rule[Skeleton[2]], Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[0, \ +52.`], List[0, 0.120683`]]], Rule[PlotRangeClipping, True], \ +Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ +List[Scaled[0.02`], Scaled[0.05`]]]], Rule[Ticks, List[Automatic, \ +Automatic]]]]}], \\\"]\\\"}]\\).\"", 2, 532, 171, 24485846962764810879, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{{3.9917148948888054`*^9, 3.991714918948065*^9}}, + CellLabel-> + "During evaluation of \ +In[532]:=",ExpressionUUID->"353dc940-eaf1-f54e-96b3-c89d28ca1091"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x130", ",", + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.011000000000000001`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, + 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.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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, 52.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]}], "]"}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}}, + CellLabel-> + "Out[532]=",ExpressionUUID->"5849f411-23c3-1f49-9ddc-70ae5bfac752"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L130", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellLabel-> + "In[420]:=",ExpressionUUID->"2efb0a57-1e82-4941-9ddf-43034c8e204d"], + +Cell[BoxData["10.362747935330784`"], "Output", + CellChangeTimes->{3.9913453868532257`*^9}, + CellLabel-> + "Out[420]=",ExpressionUUID->"856c94f8-a219-f048-b225-011837a6e00a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L130", "=", + 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", + CellLabel-> + "In[421]:=",ExpressionUUID->"b7e3ddd8-e22a-794d-b607-7a48a064fd4a"], + +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->"814ee749-2cde-7245-9b7e-69b30787da15"], + +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->"af05aa14-ccc3-9040-b043-2aa272509b41"], + +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->"c8d85ed0-fe8f-c945-af5e-55ea809c674a"], + +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->"320c3ecd-1b7b-6744-991f-5112ad4520bf"], + +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->"03e3bbb2-7d95-6f47-8763-c6796c705c92"] +}, 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->"3d764097-ec6b-e749-9f31-cab8832af315"], + +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->"a4ce5518-811f-8349-a17b-d2bf1297144e"], + +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->"f5111cd7-2c56-5e45-8f8e-8a05bf9b95a2"], + +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->"38176049-5d0a-d741-93c1-c658e0a1af06"], + +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->"d16a134c-2a3f-da45-9fb2-6550e1a86488"], + +Cell[BoxData["10.362747935330768`"], "Output", + CellChangeTimes->{3.991345792196575*^9}, + CellLabel-> + "Out[422]=",ExpressionUUID->"2f22685f-8c37-684f-9766-884eff532552"] +}, 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.991847002744938*^9, + 3.9918470078833466`*^9}},ExpressionUUID->"94c81ca6-5acf-1648-b9d8-\ +a303cc71dab7"], + +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->"4ed16eac-aa41-bc43-949b-97ab0e84980a"], + +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->"90cf97c3-411e-6d4b-bad4-f62835c46e4c"], + +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->"f57ff7ba-dfca-eb44-912d-da23358d49ca"], + +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->"b9781b1e-c411-054b-ac86-e24155108e57"], + +Cell[BoxData["0.32136877427435395`"], "Output", + CellChangeTimes->{3.991345799137081*^9}, + CellLabel-> + "Out[423]=",ExpressionUUID->"597cf6d6-a43f-8b49-bc71-101a9cb09e95"] +}, 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.9918470141153297`*^9, + 3.991847018285223*^9}},ExpressionUUID->"d789fb78-c161-1741-b7b8-\ +90fa3d585b38"], + +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->"42c57f6e-4641-0f42-b0dd-b86a5ad2dfe9"], + +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->"d128fb64-8fa5-1e4d-a5ed-889242afc70f"], + +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->"b905e7eb-c247-1242-a8bc-aaa9779d376e"], + +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->"fc538907-32f5-a34f-9b6b-76d90e786319"], + +Cell[BoxData["6.886509882261309`"], "Output", + CellChangeTimes->{3.991345804559931*^9}, + CellLabel-> + "Out[424]=",ExpressionUUID->"de957708-f977-9848-9f79-7201648cd385"] +}, 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.9918470289577656`*^9, + 3.99184703187117*^9}},ExpressionUUID->"98f8448c-bc27-4646-9fd2-\ +f2c22cf9b4d2"], + +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->"cc7d691e-f34a-f24f-9ae8-91d0fac0de8f"], + +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->"e2a59359-7911-7442-a0f3-73fa99ebe8ee"], + +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->"191c175a-4a14-3f4a-aca6-3833ea4390d8"], + +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->"e149580c-1c12-0145-b9d5-38404db9a3ce"], + +Cell[BoxData["18.478556086442907`"], "Output", + CellChangeTimes->{3.991345807954506*^9}, + CellLabel-> + "Out[425]=",ExpressionUUID->"497174af-5058-2544-9743-796d2255db6b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991847036891796*^9, + 3.9918470411375484`*^9}},ExpressionUUID->"c0718b2f-c4a4-934b-afa0-\ +c67e8ff1bd9c"], + +Cell[BoxData["0.028488532115740543`"], "Output", + CellChangeTimes->{3.991345807987507*^9}, + CellLabel-> + "Out[426]=",ExpressionUUID->"e7135af2-919e-634d-88c2-bc305d038b62"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.991847043896475*^9, 3.991847046265915*^9}, + 3.991923721144022*^9},ExpressionUUID->"73fa861d-79d1-6043-8b49-\ +ac6d11636734"], + +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->"6c38f559-2389-4242-bc4d-38979252b0b4"], + +Cell[BoxData["8.947947137013426`"], "Output", + CellChangeTimes->{3.991345808020666*^9}, + CellLabel-> + "Out[428]=",ExpressionUUID->"fea30492-36d2-7045-88cc-aae9158fb839"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[430]:=",ExpressionUUID->"e3e9365e-1e6c-9843-9e29-11080a5f4701"], + +Cell[BoxData["1.2539951617800844`"], "Output", + CellChangeTimes->{3.9913458080616665`*^9}, + CellLabel-> + "Out[430]=",ExpressionUUID->"e81ecb9b-5a01-e843-870e-5e384d1e28cc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[433]:=",ExpressionUUID->"123e61eb-c41d-2242-a32d-5c1fffa2cf57"], + +Cell[BoxData["11.220682417678793`"], "Output", + CellChangeTimes->{3.991345808188246*^9}, + CellLabel-> + "Out[433]=",ExpressionUUID->"43bb0088-17d8-d048-a253-fc8b6be59a68"] +}, 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->"79eeca66-2446-f741-8700-944472de348f"], + +Cell[BoxData["0.04214145338799881`"], "Output", + CellChangeTimes->{3.991345808220566*^9}, + CellLabel-> + "Out[434]=",ExpressionUUID->"338ae54a-64ed-994b-af22-96a296166408"] +}, 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->"9790a07a-bad8-674c-aada-41e3d20aeff5"], + +Cell[BoxData["4.317080886816563`"], "Output", + CellChangeTimes->{3.9913458083195686`*^9}, + CellLabel-> + "Out[435]=",ExpressionUUID->"e206cd3a-25d4-eb48-899a-45dd7defc5fe"] +}, 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->"cd927d7c-f3cd-534f-b509-5ac03fad6276"], + +Cell[BoxData["0.012862376162526763`"], "Output", + CellChangeTimes->{3.991345808334568*^9}, + CellLabel-> + "Out[436]=",ExpressionUUID->"a5cbfc1b-c447-724b-a144-ad8475ce711a"] +}, 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->"6d1a5282-01c9-b240-a0b0-7e2aa562e7f8"], + +Cell[BoxData["7.814196669618258`"], "Output", + CellChangeTimes->{3.991345808432392*^9}, + CellLabel-> + "Out[437]=",ExpressionUUID->"6f6d3be7-a8ef-df41-96c9-fca809317a9d"] +}, 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->"b3f5d88a-186d-e74b-84a0-eac59afb71e7"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991345808448488*^9}, + CellLabel-> + "Out[438]=",ExpressionUUID->"e1c5a778-dccd-8443-98b9-732ae795c2ac"] +}, 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->"712c99dc-f88a-984c-9ea1-ddb538fa1846"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913458084773808`*^9}, + CellLabel-> + "Out[439]=",ExpressionUUID->"4063f10b-c9dc-f24d-8ad2-77cf2302aa5c"] +}, 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->"46415a4e-0839-a640-a9be-83fc8d482c42"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913458085134735`*^9}, + CellLabel-> + "Out[440]=",ExpressionUUID->"fa8f93a6-4eb6-b44c-a934-4b4d3f7a051e"] +}, 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.991847118583315*^9},ExpressionUUID->"33a64b79-213d-c445-8c32-\ +436b16263096"], + +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->"88717102-665c-9946-ac95-81e91596f1a3"], + +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->"fef05ccf-1889-484a-ad95-0ed0a53f85b4"], + +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->"c1de584c-2f89-774b-b751-1278ba9a8d1f"], + +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->"24f5f743-5338-9641-885e-a4948c5c9d6e"], + +Cell[BoxData["4.317080886816564`"], "Output", + CellChangeTimes->{3.9913458125059433`*^9}, + CellLabel-> + "Out[441]=",ExpressionUUID->"e0668815-ad18-f946-aefd-da0b1916d420"] +}, 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.9918471223197117`*^9},ExpressionUUID->"a558e928-6d30-db4d-81da-\ +8e12b46e0cf1"], + +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->"52373f6a-60b2-bf48-9785-d2499fa543af"], + +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->"1ff9836d-6279-2340-8080-e305c05b649e"], + +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->"983d828c-78d1-1441-bba2-2e64fa6b8f6f"], + +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->"dd795d07-bc4f-2b40-8351-e980cc967c15"], + +Cell[BoxData["7.8141966696182585`"], "Output", + CellChangeTimes->{3.991345816415531*^9}, + CellLabel-> + "Out[442]=",ExpressionUUID->"17c8f52c-8091-bf41-b7c9-160a5315608c"] +}, 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.9918471264328136`*^9},ExpressionUUID->"c2f625be-331c-a24f-ad5b-\ +6daaa9131a45"], + +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->"7a9be15e-f600-1b49-a731-c78d88a43ea5"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918471776293755`*^9, {3.9918474259081*^9, + 3.991847426207552*^9}},ExpressionUUID->"e083cd39-87a5-ca4f-ab3f-\ +88bfd4c0e0d2"], + +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->"fcd06738-edc8-474f-b579-5c8fba66d5d8"], + +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->"9de7c9a4-4b93-0b4f-9a25-4f1d7917ab21"], + +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->"03ef6a33-8701-ef42-bc6a-4a21f0a09522"], + +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->"038a3a74-0bc1-c44d-9c90-bf60eda4a7bc"], + +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->"1c17de43-a886-0b4f-ac6b-9644b9c88ec7"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"b4bea72a-7a20-\ +da43-afca-38c9d924f08e"], + +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->"94a1b9ea-c98a-ee4e-bb2c-43256dd887e6"], + +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->"f479187b-9eda-204a-88bb-4f36ab0a2712"], + +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->"f832b030-dfa8-5847-8a8e-714d29039227"], + +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->"c86ba442-eaba-9f46-8c0c-52b951d5bfb0"], + +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->"dc6d10bb-5f0b-8545-9e40-4768fde2dbc1"], + +Cell[BoxData["10.362747935330763`"], "Output", + CellChangeTimes->{3.991347578228073*^9}, + CellLabel-> + "Out[448]=",ExpressionUUID->"7d6c1b18-ad7f-3448-8021-ab5886691637"] +}, 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.9918472030801735`*^9, + 3.9918472073134327`*^9}},ExpressionUUID->"ad8fe405-3f1b-4e4d-b1dd-\ +9e266c1ec152"], + +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->"01da16e0-14b6-bf48-a829-a262126159db"], + +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->"4bf24ca6-4e30-e94a-be43-cf8e5608fc87"], + +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->"006741fa-e30f-4b44-972c-035fe0e9a3bf"], + +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->"cf218763-64fa-3446-a7cd-1c601e3a0059"], + +Cell[BoxData["1.4359199941844076`"], "Output", + CellChangeTimes->{3.9913475858902473`*^9}, + CellLabel-> + "Out[449]=",ExpressionUUID->"65c43bde-9dc5-1442-ba50-c6fa98b8835b"] +}, 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.9918472136550217`*^9, + 3.9918472163537464`*^9}},ExpressionUUID->"6531fc5f-fdb5-a54c-abb2-\ +46a9d151a60a"], + +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->"592083af-558d-0641-832e-e27a751915bd"], + +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->"66370498-e112-fa4b-a8af-1fcc4f9e1213"], + +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->"84900485-cd47-2c49-9717-bd11f4470d4b"], + +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->"07a10e89-58d6-6b49-8cb3-9461aae3594b"], + +Cell[BoxData["5.09241659576143`"], "Output", + CellChangeTimes->{3.9913475931276417`*^9}, + CellLabel-> + "Out[450]=",ExpressionUUID->"82e8998a-3c72-6247-9df9-94b065408465"] +}, 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.9918472906473484`*^9, + 3.9918472935952396`*^9}},ExpressionUUID->"36639f46-66ce-b34a-8a89-\ +e422f177de00"], + +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->"fda4f669-ecf2-4d4e-b48b-3afcc84ca1c4"], + +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->"36a981e6-ab0a-6c43-9d36-e415d38164fb"], + +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->"4b3aecb3-626b-d84a-940e-7ff8608fd52c"], + +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->"8319d34b-55d1-094b-9206-d0c33b2abbd6"], + +Cell[BoxData["16.684462799943017`"], "Output", + CellChangeTimes->{3.9913475973006153`*^9}, + CellLabel-> + "Out[451]=",ExpressionUUID->"c60c830d-34c5-f541-b310-49552ac2034c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991847296668375*^9, + 3.991847300654911*^9}},ExpressionUUID->"f76b8e94-11bd-a34a-a9ba-\ +20d331e64105"], + +Cell[BoxData["0.15578016747845222`"], "Output", + CellChangeTimes->{3.991347597341627*^9}, + CellLabel-> + "Out[452]=",ExpressionUUID->"278ae42a-5de9-444e-9245-d09cf8d28509"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.99184730319516*^9, 3.991847305889347*^9}, + 3.991923738541313*^9},ExpressionUUID->"bb206cb0-d23b-e24e-876b-\ +f9f1b2cbe57a"], + +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->"4fd11557-be32-b042-a20e-65ee1f3d31f0"], + +Cell[BoxData["12.368532070745184`"], "Output", + CellChangeTimes->{3.991347597372614*^9}, + CellLabel-> + "Out[454]=",ExpressionUUID->"8f491dd5-7bfd-b341-b43c-c3a9d183ce9d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[456]:=",ExpressionUUID->"d73f0f23-b2e1-e243-aa8d-70b95de7c666"], + +Cell[BoxData["1.0665924029125342`"], "Output", + CellChangeTimes->{3.991347597428034*^9}, + CellLabel-> + "Out[456]=",ExpressionUUID->"b9d3b5de-b2b7-e44d-bc5c-44767d89cf65"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[459]:=",ExpressionUUID->"8870b029-14dd-d441-82f4-8690b0fb603d"], + +Cell[BoxData["13.192182341836848`"], "Output", + CellChangeTimes->{3.9913475974971066`*^9}, + CellLabel-> + "Out[459]=",ExpressionUUID->"6b8a7f35-f691-844e-aeda-7cce2cf01b4d"] +}, 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->"78b2a753-17fc-484f-a953-d278346207ad"], + +Cell[BoxData["0.038908834568544604`"], "Output", + CellChangeTimes->{3.991347597528105*^9}, + CellLabel-> + "Out[460]=",ExpressionUUID->"4011df14-d624-cf4c-ba4a-7e4d30ff836f"] +}, 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->"19eddd1c-d1b6-4344-85e0-95e5a6b87d4b"], + +Cell[BoxData["4.492838724335521`"], "Output", + CellChangeTimes->{3.9913475976441536`*^9}, + CellLabel-> + "Out[461]=",ExpressionUUID->"d4677fbf-c75c-ca43-b340-204087aa8c86"] +}, 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->"75baa02d-f77e-e542-9519-8afd2f729182"], + +Cell[BoxData["0.012544276227890849`"], "Output", + CellChangeTimes->{3.991347597671173*^9}, + CellLabel-> + "Out[462]=",ExpressionUUID->"57c3e5a5-34bb-e842-b4a4-6bfbe7fe997b"] +}, 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->"78cdb0f4-4e26-2f44-b234-6fa78a24207f"], + +Cell[BoxData["7.912653285153153`"], "Output", + CellChangeTimes->{3.9913475977705975`*^9}, + CellLabel-> + "Out[463]=",ExpressionUUID->"dc513bc7-ae9a-0043-ae49-195b0da7d4ae"] +}, 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->"1d69257c-6504-2041-93e1-2a57c1dfc14b"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913475977856007`*^9}, + CellLabel-> + "Out[464]=",ExpressionUUID->"8d685ee2-dc72-774b-bbc8-778682e632d2"] +}, 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->"482f62c1-da9c-ae43-adda-68c26afa85d0"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991347597813669*^9}, + CellLabel-> + "Out[465]=",ExpressionUUID->"c69ac66b-aa24-cb4d-9510-bfa972119e6b"] +}, 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->"b28b6b1b-1ce5-eb47-bd61-38bdc082dbc8"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913475978426323`*^9}, + CellLabel-> + "Out[466]=",ExpressionUUID->"1c470c55-d28c-4543-be1f-6a28be0ba400"] +}, 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.991847320104244*^9},ExpressionUUID->"61630af4-ce16-4645-bd89-\ +fd67d7ba48d8"], + +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->"43a2687a-b1fe-f34f-89ff-c066d808b1f9"], + +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->"4af47df9-8236-7241-95f9-152813b1879a"], + +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->"6b7cc034-1771-4d40-a1be-6400e7b80609"], + +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->"3f4e0008-1259-8f45-ad63-fd8d4329e9ae"], + +Cell[BoxData["4.492838724335523`"], "Output", + CellChangeTimes->{3.9913476018505497`*^9}, + CellLabel-> + "Out[467]=",ExpressionUUID->"e57330fd-c13c-984d-8ddc-a0b641a07ec3"] +}, 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.991847326557415*^9},ExpressionUUID->"b8324bb7-c44f-6342-bd59-\ +920c679e8136"], + +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->"29405dbd-598a-ef40-a6b1-6fd2363b1575"], + +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->"ad96af95-7997-6e4b-bb29-aba6a927545b"], + +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->"bbc2b8eb-1cbf-044c-9f8a-9437e2069bad"], + +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->"153f64f2-c43c-3945-815f-e938e8bf1d5a"], + +Cell[BoxData["7.912653285153152`"], "Output", + CellChangeTimes->{3.9913476058912296`*^9}, + CellLabel-> + "Out[468]=",ExpressionUUID->"cd0f4614-a592-5544-b5ef-4fad0c35ca7c"] +}, 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.9918473312384872`*^9},ExpressionUUID->"a8eb6c66-2550-3146-b69f-\ +2cd48e2cafc8"], + +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->"fde4983c-8a31-cc4e-87c4-d107fc324654"] +}, 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", ",", "20"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918473358384743`*^9, {3.9918474091630096`*^9, + 3.9918474093563137`*^9}},ExpressionUUID->"29fc72a2-353e-bf42-8947-\ +0608fa83191a"], + +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->"02febf10-3e5e-7c4e-a0cc-5555abda60b9"], + +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->"6d9e5c2e-5d6c-ee42-9183-8e53cad47804"], + +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->"b36a228f-868c-ba41-aa49-f11f9ef30d38"], + +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->"9512baf9-a3b8-4d40-ba0e-e787bd767c9e"], + +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->"1d2e0852-2fc7-f64d-be49-84b2bbb91a03"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991714856368782*^9, 3.9917149167980614`*^9}, { + 3.991795329890896*^9, + 3.99179533223897*^9}},ExpressionUUID->"dbee741a-c3af-b241-a21b-\ +4f79ecc0fe0c"], + +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"x130\\\", \\\",\\\", \ +GraphicsBox[List[List[], List[List[TagBox[List[Skeleton[2]], \ +Function[Annotation[Slot[1], \\\"Charting`Private`Tag#1\\\"]]]]], \ +List[List[], List[]]], List[Rule[DisplayFunction, Identity], \ +Rule[DisplayFunction, Identity], Rule[DisplayFunction, Identity], \ +Rule[AspectRatio, NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], \ +Rule[Axes, List[True, True]], Rule[AxesLabel, List[None, None]], \ +Rule[AxesOrigin, List[0, 0]], RuleDelayed[DisplayFunction, Identity], \ +Rule[Frame, List[List[False, False], List[False, False]]], Rule[FrameLabel, \ +List[List[None, None], List[None, None]]], Rule[FrameTicks, \ +List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ +Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"AxisPadding\\\", Scaled[0.02`]], \ +Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ +AbsolutePointSize[6]], Rule[\\\"DefaultPlotStyle\\\", \ +List[Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \ +Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]]]], \ +Rule[\\\"DomainPadding\\\", Scaled[0.02`]], Rule[\\\"PointSizeFunction\\\", \ +\\\"SmallPointSize\\\"], Rule[\\\"RangePadding\\\", Scaled[0.05`]], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"IncludeHighlighting\\\", \\\ +\"CurrentPoint\\\"], Rule[\\\"HighlightStyle\\\", Automatic], \ +Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"CoordinatesToolOptions\\\", \ +List[Rule[Skeleton[2]], Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[0, \ +52.`], List[0, 0.120683`]]], Rule[PlotRangeClipping, True], \ +Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ +List[Scaled[0.02`], Scaled[0.05`]]]], Rule[Ticks, List[Automatic, \ +Automatic]]]]}], \\\"]\\\"}]\\).\"", 2, 532, 171, 24485846962764810879, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{{3.9917148948888054`*^9, 3.991714918948065*^9}}, + CellLabel-> + "During evaluation of \ +In[532]:=",ExpressionUUID->"c1403781-7b8e-e44e-8424-5627a40af393"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x130", ",", + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.011000000000000001`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, + 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.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGAwBWIQDQNKeX6qzA5T7SG8D/amib9PSsivg/IZHJZPW/vV +1Wk7lM/hwHVn1+zlVnugfAEHySd6h0Se7oPyRRy2/nq1ykEXxpdwsL2qaH6Y +F6ZexiG6yuTq5J8w8xQcwpLmTd3yaDOUr+Rg0TqVS2sVzH4Vh/kKG+/aOiyH +8tUcEv+YvDubvwDK13B48SOj8JjBdChfy2ERx8rbN8P7oHwdB80ta34fd2qB +8vUcdkyNm907tQLKN3Dwn9LicutYPpRv6HAtb/eFmOWJUL6Rw9aCyNazDOFQ +vrHDpJcXXlaau0H5Jg6ZsqG+AqX2UL6pA/+1/5ZnpqtD+WYOZuVf9sd0q0H5 +5g66zjKvH5n9soPwLRxkVFx+NokJQeUtHRhQgJXDrzm7Y/V9GaHy1mjyNg4f +Mx53bP3xBWqeLZq8nQPrIvXUIOfXUHl7NHkHh5AnAoXFWjch8g0OaPKOUPmT +UHlHNHknh963Wxd8P7YBKu+EJu+MJu+MJu+CJu+CJu+Kym9A4zO4ocmj8Rnc +0eTR+AweaPJofAZPNHk0PoMXnA8AFc+iCQ== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 52.}, {0, 0.120683}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.011000000000000001`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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, 52.}, {0, 0.120683}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]}], "]"}]], "Output", + CellChangeTimes->{{3.9917148949168243`*^9, 3.991714918978077*^9}}, + CellLabel-> + "Out[532]=",ExpressionUUID->"bb69f29d-f206-9444-bd72-890d9136c90d"] +}, 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->"0a506e45-082d-6641-9693-c99384fc0ac2"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"a616c950-333c-c34e-b37c-e912edc150ff"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"5e38a489-6451-064f-b86a-c8e93d83815c"] +}, 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.9918473569283657`*^9, + 3.991847361118864*^9}},ExpressionUUID->"1d3ec6f9-6ce8-8a4d-95c2-\ +733ef0de97b0"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"e36a792d-6d34-e344-80e0-65db5822f94f"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"0dfefdcd-d1b3-8f47-b86d-c0f72147cb73"], + +Cell[BoxData["1.0713232818739324`"], "Output",ExpressionUUID->"8272fc8d-2aef-284d-85ad-5d09a4d55c26"] +}, 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.991847365260393*^9, + 3.991847368101671*^9}},ExpressionUUID->"b5bf5915-d0df-a045-96bd-\ +1dffa35c1421"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"69e9eac8-2173-184e-8807-5fd844762da7"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"baaf252e-485c-b643-a22f-956a9ee4c418"], + +Cell[BoxData["5.515504100347031`"], "Output",ExpressionUUID->"8828a790-0478-5f4d-95d9-3a6a0e7217e5"] +}, 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.99184737148876*^9, + 3.9918473756828785`*^9}},ExpressionUUID->"0f4fb648-c81c-bf44-8487-\ +747d613813fd"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"51550cf4-6c37-c443-851d-569d8808cf04"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", + " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ +\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ +ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ +"d7f343d4-811d-2f43-8fb6-ccefbdc3518f"], + +Cell[BoxData["17.107550304528036`"], "Output",ExpressionUUID->"7a1f905d-9581-5744-a98c-76e2b1fb25bb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918473798697987`*^9, + 3.991847383988016*^9}},ExpressionUUID->"2d256a7e-c4c8-f746-8004-\ +9b6b43692a68"], + +Cell[BoxData["0.11028946354837708`"], "Output",ExpressionUUID->"59ec06ef-9d4f-1d47-8ac6-5acc72d626ee"] +}, 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->"0a22498a-17e0-084c-99f4-08fa56dfe4d0" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[554, 20, 149, 4, 28, "Input",ExpressionUUID->"7c3e9316-835f-9e4b-9a49-3b4d17d5ac6f"], +Cell[706, 26, 152, 3, 28, "Input",ExpressionUUID->"583d3f2a-de58-8142-9cfe-a0e52258d17f"], +Cell[861, 31, 149, 4, 28, "Input",ExpressionUUID->"20139eb5-401a-4b4a-9fa1-5ac66a5ce03b"], +Cell[1013, 37, 154, 3, 28, "Input",ExpressionUUID->"8f81c5bb-6006-6b49-93bb-3460180e6492"], +Cell[CellGroupData[{ +Cell[1192, 44, 1301, 43, 113, "Input",ExpressionUUID->"d0f946fc-504f-c546-bd13-fc6956e18c7f"], +Cell[2496, 89, 178, 3, 32, "Output",ExpressionUUID->"eee3e6f5-bf54-104d-aacb-1c5d9bb3da72"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2711, 97, 907, 30, 56, "Input",ExpressionUUID->"c6441294-7eb2-2949-9da6-67254244512f"], +Cell[3621, 129, 177, 3, 32, "Output",ExpressionUUID->"586d096a-2b7f-5a48-8ed7-66293c7d553c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3835, 137, 963, 32, 56, "Input",ExpressionUUID->"0e9cd1c8-cad4-dc4a-89c9-68faf6ac59e1"], +Cell[4801, 171, 178, 3, 32, "Output",ExpressionUUID->"1ae1e3cd-cafb-3f45-96d4-d224b94de140"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5016, 179, 558, 19, 52, "Input",ExpressionUUID->"9284744b-e118-014c-8926-3a51fd91c939"], +Cell[5577, 200, 172, 3, 32, "Output",ExpressionUUID->"b31939a9-5d35-324a-8d19-2eccc9ab2e0c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5786, 208, 651, 22, 52, "Input",ExpressionUUID->"1aab4741-497a-9845-8d77-820f63cb5555"], +Cell[6440, 232, 167, 3, 32, "Output",ExpressionUUID->"ea6f6b0c-3057-e14d-9c39-2b31eb0f9621"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6644, 240, 170, 5, 56, "Input",ExpressionUUID->"03d57d66-9155-cf4b-b103-8d5f98199ed8"], +Cell[6817, 247, 172, 3, 32, "Output",ExpressionUUID->"bbbfe046-4dd1-6242-9bee-c0b76bc74cb2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7026, 255, 170, 5, 55, "Input",ExpressionUUID->"dd583ad4-ba05-e74f-9c30-907aa111db1e"], +Cell[7199, 262, 173, 3, 32, "Output",ExpressionUUID->"fcfc958d-7982-7143-ba12-796e90324801"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7409, 270, 181, 5, 43, "Input",ExpressionUUID->"a1b92a44-c90e-d942-9f90-47bfabccaf08"], +Cell[7593, 277, 171, 3, 32, "Output",ExpressionUUID->"a7a34d03-2368-c24b-95db-201f96c75648"] +}, Open ]], +Cell[CellGroupData[{ +Cell[7801, 285, 181, 5, 43, "Input",ExpressionUUID->"51b3d1b0-fc32-2443-90dc-d335ab6c08c0"], +Cell[7985, 292, 172, 3, 32, "Output",ExpressionUUID->"97bb7b25-6ae9-8d4d-86be-4c22b9038464"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8194, 300, 6055, 185, 498, "Input",ExpressionUUID->"bb0f3cd0-3c69-9040-aa0d-76f7af168d91"], +Cell[14252, 487, 174, 3, 32, "Output",ExpressionUUID->"5427a866-023c-174b-9e6d-fbf8b8e707a5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[14463, 495, 368, 9, 42, "Input",ExpressionUUID->"c7e96eeb-d934-e843-a9c0-226435d03e38"], +Cell[14834, 506, 172, 3, 32, "Output",ExpressionUUID->"0d169b1a-2d1c-7b44-8942-0f9754dbfde4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[15043, 514, 6122, 187, 500, "Input",ExpressionUUID->"c90e2c4d-483b-8948-ad73-554cb9bb1353"], +Cell[21168, 703, 175, 3, 32, "Output",ExpressionUUID->"234d4d05-30cf-8546-8a4c-8e92b174dd54"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21380, 711, 368, 9, 42, "Input",ExpressionUUID->"344c5706-3a8a-754a-b4da-5866eb210a38"], +Cell[21751, 722, 172, 3, 32, "Output",ExpressionUUID->"04e9f189-3e04-ae43-be68-86210fdb22c2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[21960, 730, 2663, 88, 187, "Input",ExpressionUUID->"39da6bde-a34a-f944-af17-b87c664ce50c"], +Cell[24626, 820, 171, 3, 32, "Output",ExpressionUUID->"0cadffd6-f139-f648-ad7f-793752291569"] +}, Open ]], +Cell[CellGroupData[{ +Cell[24834, 828, 2603, 85, 165, "Input",ExpressionUUID->"3c3f03ba-5eee-ac4e-84c3-b29e4adbaa6e"], +Cell[27440, 915, 173, 3, 32, "Output",ExpressionUUID->"4e20a900-1f64-424e-9fdb-3d89088a0768"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27650, 923, 3712, 118, 348, "Input",ExpressionUUID->"ddf61768-a227-c447-bfc3-df30c7b64565"], +Cell[31365, 1043, 174, 3, 70, "Output",ExpressionUUID->"068ebb27-1be5-6c40-8bf8-2f0268f5216d"] +}, Open ]], +Cell[31554, 1049, 138, 3, 70, "Input",ExpressionUUID->"0a12571c-0d3c-324d-9fb1-59d5c707bb07"], +Cell[CellGroupData[{ +Cell[31717, 1056, 2052, 59, 70, "Input",ExpressionUUID->"61186e9c-fdd7-7943-9937-691e3ab971c8"], +Cell[33772, 1117, 559, 12, 70, "Message",ExpressionUUID->"3bfa23d6-b5a3-e944-a9bb-ca6e68d969fe"], +Cell[34334, 1131, 560, 12, 70, "Message",ExpressionUUID->"b8fe04c8-adbe-0e49-b84c-7c9b51bb8636"], +Cell[34897, 1145, 565, 12, 70, "Message",ExpressionUUID->"427779f4-4b28-5543-9a01-503bd7cdf693"], +Cell[35465, 1159, 456, 10, 70, "Message",ExpressionUUID->"f6221017-7213-3b49-a432-06b611d306e1"], +Cell[35924, 1171, 170, 3, 70, "Output",ExpressionUUID->"8ac7cd76-8447-3745-aaee-2af284a32577"] +}, Open ]], +Cell[CellGroupData[{ +Cell[36131, 1179, 2054, 59, 70, "Input",ExpressionUUID->"9256a2f6-45c2-e140-bcdd-85d8e1970f4a"], +Cell[38188, 1240, 559, 12, 70, "Message",ExpressionUUID->"2a7e3aab-a746-1146-b27a-e663e8cd1152"], +Cell[38750, 1254, 559, 12, 70, "Message",ExpressionUUID->"7b5059be-83df-794a-9d63-d309a35a2ce1"], +Cell[39312, 1268, 565, 12, 70, "Message",ExpressionUUID->"53abd70a-2c4f-7046-be11-447ced8cdefb"], +Cell[39880, 1282, 458, 10, 70, "Message",ExpressionUUID->"64cbc54f-20f2-ce4f-b6f2-0ea91eeb179c"], +Cell[40341, 1294, 170, 3, 70, "Output",ExpressionUUID->"bd8591b1-ba8a-6b40-b518-84bec35d20f2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[40548, 1302, 1936, 53, 70, "Input",ExpressionUUID->"2543960d-965e-7a4e-aecb-694d21d63061"], +Cell[42487, 1357, 20196, 379, 70, "Output",ExpressionUUID->"609377ee-fc16-7c4a-9e56-8f28efda1b3b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[62720, 1741, 2118, 60, 70, "Input",ExpressionUUID->"e19ad739-7d82-2c45-9f2a-a1d24bf6372a"], +Cell[64841, 1803, 503, 11, 70, "Message",ExpressionUUID->"108a1881-cb0d-bd45-a774-02403dfdab8d"], +Cell[65347, 1816, 505, 11, 70, "Message",ExpressionUUID->"fb491355-d244-9746-9ef1-167761fef655"], +Cell[65855, 1829, 506, 11, 70, "Message",ExpressionUUID->"a75a12d7-3727-3447-b8ef-6f1b5b957750"], +Cell[66364, 1842, 455, 10, 70, "Message",ExpressionUUID->"5a45253c-33f9-ee48-80d9-da0679c1ba8a"], +Cell[66822, 1854, 55770, 961, 70, "Output",ExpressionUUID->"3fb98a86-5ada-4149-bdd3-377ee3650435"] +}, Open ]], +Cell[CellGroupData[{ +Cell[122629, 2820, 327, 7, 70, "Input",ExpressionUUID->"0442afd4-ab7e-8942-9b0e-e14520d1eea3"], +Cell[122959, 2829, 9707, 222, 70, "Output",ExpressionUUID->"997db581-4738-a842-88e4-b1aa3e4c74be"] +}, Open ]], +Cell[CellGroupData[{ +Cell[132703, 3056, 257, 6, 70, "Input",ExpressionUUID->"9478c59b-a5b4-1043-afe6-75ae56a5fd89"], +Cell[132963, 3064, 2580, 42, 70, "Message",ExpressionUUID->"353dc940-eaf1-f54e-96b3-c89d28ca1091"], +Cell[135546, 3108, 10201, 227, 70, "Output",ExpressionUUID->"5849f411-23c3-1f49-9ddc-70ae5bfac752"] +}, Open ]], +Cell[CellGroupData[{ +Cell[145784, 3340, 199, 6, 70, "Input",ExpressionUUID->"2efb0a57-1e82-4941-9ddf-43034c8e204d"], +Cell[145986, 3348, 173, 3, 70, "Output",ExpressionUUID->"856c94f8-a219-f048-b225-011837a6e00a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[146196, 3356, 1798, 52, 70, "Input",ExpressionUUID->"b7e3ddd8-e22a-794d-b607-7a48a064fd4a"], +Cell[147997, 3410, 506, 11, 70, "Message",ExpressionUUID->"814ee749-2cde-7245-9b7e-69b30787da15"], +Cell[148506, 3423, 508, 11, 70, "Message",ExpressionUUID->"af05aa14-ccc3-9040-b043-2aa272509b41"], +Cell[149017, 3436, 509, 11, 70, "Message",ExpressionUUID->"c8d85ed0-fe8f-c945-af5e-55ea809c674a"], +Cell[149529, 3449, 458, 10, 70, "Message",ExpressionUUID->"320c3ecd-1b7b-6744-991f-5112ad4520bf"], +Cell[149990, 3461, 24818, 454, 70, "Output",ExpressionUUID->"03e3bbb2-7d95-6f47-8763-c6796c705c92"] +}, Open ]], +Cell[CellGroupData[{ +Cell[174845, 3920, 1616, 48, 70, "Input",ExpressionUUID->"3d764097-ec6b-e749-9f31-cab8832af315"], +Cell[176464, 3970, 582, 12, 70, "Message",ExpressionUUID->"a4ce5518-811f-8349-a17b-d2bf1297144e"], +Cell[177049, 3984, 588, 12, 70, "Message",ExpressionUUID->"f5111cd7-2c56-5e45-8f8e-8a05bf9b95a2"], +Cell[177640, 3998, 590, 12, 70, "Message",ExpressionUUID->"38176049-5d0a-d741-93c1-c658e0a1af06"], +Cell[178233, 4012, 458, 10, 70, "Message",ExpressionUUID->"d16a134c-2a3f-da45-9fb2-6550e1a86488"], +Cell[178694, 4024, 171, 3, 70, "Output",ExpressionUUID->"2f22685f-8c37-684f-9766-884eff532552"] +}, Open ]], +Cell[CellGroupData[{ +Cell[178902, 4032, 2249, 64, 70, "Input",ExpressionUUID->"94c81ca6-5acf-1648-b9d8-a303cc71dab7"], +Cell[181154, 4098, 557, 12, 70, "Message",ExpressionUUID->"4ed16eac-aa41-bc43-949b-97ab0e84980a"], +Cell[181714, 4112, 560, 12, 70, "Message",ExpressionUUID->"90cf97c3-411e-6d4b-bad4-f62835c46e4c"], +Cell[182277, 4126, 565, 12, 70, "Message",ExpressionUUID->"f57ff7ba-dfca-eb44-912d-da23358d49ca"], +Cell[182845, 4140, 458, 10, 70, "Message",ExpressionUUID->"b9781b1e-c411-054b-ac86-e24155108e57"], +Cell[183306, 4152, 172, 3, 70, "Output",ExpressionUUID->"597cf6d6-a43f-8b49-bc71-101a9cb09e95"] +}, Open ]], +Cell[CellGroupData[{ +Cell[183515, 4160, 2221, 64, 70, "Input",ExpressionUUID->"d789fb78-c161-1741-b7b8-90fa3d585b38"], +Cell[185739, 4226, 559, 12, 70, "Message",ExpressionUUID->"42c57f6e-4641-0f42-b0dd-b86a5ad2dfe9"], +Cell[186301, 4240, 562, 12, 70, "Message",ExpressionUUID->"d128fb64-8fa5-1e4d-a5ed-889242afc70f"], +Cell[186866, 4254, 563, 12, 70, "Message",ExpressionUUID->"b905e7eb-c247-1242-a8bc-aaa9779d376e"], +Cell[187432, 4268, 458, 10, 70, "Message",ExpressionUUID->"fc538907-32f5-a34f-9b6b-76d90e786319"], +Cell[187893, 4280, 170, 3, 70, "Output",ExpressionUUID->"de957708-f977-9848-9f79-7201648cd385"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188100, 4288, 2220, 64, 70, "Input",ExpressionUUID->"98f8448c-bc27-4646-9fd2-f2c22cf9b4d2"], +Cell[190323, 4354, 559, 12, 70, "Message",ExpressionUUID->"cc7d691e-f34a-f24f-9ae8-91d0fac0de8f"], +Cell[190885, 4368, 562, 12, 70, "Message",ExpressionUUID->"e2a59359-7911-7442-a0f3-73fa99ebe8ee"], +Cell[191450, 4382, 563, 12, 70, "Message",ExpressionUUID->"191c175a-4a14-3f4a-aca6-3833ea4390d8"], +Cell[192016, 4396, 458, 10, 70, "Message",ExpressionUUID->"e149580c-1c12-0145-b9d5-38404db9a3ce"], +Cell[192477, 4408, 171, 3, 70, "Output",ExpressionUUID->"497174af-5058-2544-9743-796d2255db6b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[192685, 4416, 213, 6, 70, "Input",ExpressionUUID->"c0718b2f-c4a4-934b-afa0-c67e8ff1bd9c"], +Cell[192901, 4424, 173, 3, 70, "Output",ExpressionUUID->"e7135af2-919e-634d-88c2-bc305d038b62"] +}, Open ]], +Cell[193089, 4430, 243, 5, 70, "Input",ExpressionUUID->"73fa861d-79d1-6043-8b49-ac6d11636734"], +Cell[CellGroupData[{ +Cell[193357, 4439, 558, 19, 70, "Input",ExpressionUUID->"6c38f559-2389-4242-bc4d-38979252b0b4"], +Cell[193918, 4460, 170, 3, 70, "Output",ExpressionUUID->"fea30492-36d2-7045-88cc-aae9158fb839"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194125, 4468, 170, 5, 70, "Input",ExpressionUUID->"e3e9365e-1e6c-9843-9e29-11080a5f4701"], +Cell[194298, 4475, 173, 3, 70, "Output",ExpressionUUID->"e81ecb9b-5a01-e843-870e-5e384d1e28cc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194508, 4483, 181, 5, 70, "Input",ExpressionUUID->"123e61eb-c41d-2242-a32d-5c1fffa2cf57"], +Cell[194692, 4490, 171, 3, 70, "Output",ExpressionUUID->"43bb0088-17d8-d048-a253-fc8b6be59a68"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194900, 4498, 6055, 185, 70, "Input",ExpressionUUID->"79eeca66-2446-f741-8700-944472de348f"], +Cell[200958, 4685, 172, 3, 70, "Output",ExpressionUUID->"338ae54a-64ed-994b-af22-96a296166408"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201167, 4693, 368, 9, 70, "Input",ExpressionUUID->"9790a07a-bad8-674c-aada-41e3d20aeff5"], +Cell[201538, 4704, 172, 3, 70, "Output",ExpressionUUID->"e206cd3a-25d4-eb48-899a-45dd7defc5fe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201747, 4712, 6122, 187, 70, "Input",ExpressionUUID->"cd927d7c-f3cd-534f-b509-5ac03fad6276"], +Cell[207872, 4901, 173, 3, 70, "Output",ExpressionUUID->"a5cbfc1b-c447-724b-a144-ad8475ce711a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208082, 4909, 368, 9, 70, "Input",ExpressionUUID->"6d1a5282-01c9-b240-a0b0-7e2aa562e7f8"], +Cell[208453, 4920, 170, 3, 70, "Output",ExpressionUUID->"6f6d3be7-a8ef-df41-96c9-fca809317a9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208660, 4928, 2663, 88, 70, "Input",ExpressionUUID->"b3f5d88a-186d-e74b-84a0-eac59afb71e7"], +Cell[211326, 5018, 171, 3, 70, "Output",ExpressionUUID->"e1c5a778-dccd-8443-98b9-732ae795c2ac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[211534, 5026, 2603, 85, 70, "Input",ExpressionUUID->"712c99dc-f88a-984c-9ea1-ddb538fa1846"], +Cell[214140, 5113, 173, 3, 70, "Output",ExpressionUUID->"4063f10b-c9dc-f24d-8ad2-77cf2302aa5c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[214350, 5121, 3712, 118, 70, "Input",ExpressionUUID->"46415a4e-0839-a640-a9be-83fc8d482c42"], +Cell[218065, 5241, 174, 3, 70, "Output",ExpressionUUID->"fa8f93a6-4eb6-b44c-a934-4b4d3f7a051e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[218276, 5249, 2052, 59, 70, "Input",ExpressionUUID->"33a64b79-213d-c445-8c32-436b16263096"], +Cell[220331, 5310, 579, 12, 70, "Message",ExpressionUUID->"88717102-665c-9946-ac95-81e91596f1a3"], +Cell[220913, 5324, 582, 12, 70, "Message",ExpressionUUID->"fef05ccf-1889-484a-ad95-0ed0a53f85b4"], +Cell[221498, 5338, 584, 12, 70, "Message",ExpressionUUID->"c1de584c-2f89-774b-b751-1278ba9a8d1f"], +Cell[222085, 5352, 458, 10, 70, "Message",ExpressionUUID->"24f5f743-5338-9641-885e-a4948c5c9d6e"], +Cell[222546, 5364, 172, 3, 70, "Output",ExpressionUUID->"e0668815-ad18-f946-aefd-da0b1916d420"] +}, Open ]], +Cell[CellGroupData[{ +Cell[222755, 5372, 2054, 59, 70, "Input",ExpressionUUID->"a558e928-6d30-db4d-81da-8e12b46e0cf1"], +Cell[224812, 5433, 577, 12, 70, "Message",ExpressionUUID->"52373f6a-60b2-bf48-9785-d2499fa543af"], +Cell[225392, 5447, 580, 12, 70, "Message",ExpressionUUID->"1ff9836d-6279-2340-8080-e305c05b649e"], +Cell[225975, 5461, 583, 12, 70, "Message",ExpressionUUID->"983d828c-78d1-1441-bba2-2e64fa6b8f6f"], +Cell[226561, 5475, 456, 10, 70, "Message",ExpressionUUID->"dd795d07-bc4f-2b40-8351-e980cc967c15"], +Cell[227020, 5487, 171, 3, 70, "Output",ExpressionUUID->"17c8f52c-8091-bf41-b7c9-160a5315608c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[227228, 5495, 2030, 55, 70, "Input",ExpressionUUID->"c2f625be-331c-a24f-ad5b-6daaa9131a45"], +Cell[229261, 5552, 20493, 384, 70, "Output",ExpressionUUID->"7a9be15e-f600-1b49-a731-c78d88a43ea5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[249791, 5941, 2142, 61, 70, "Input",ExpressionUUID->"e083cd39-87a5-ca4f-ab3f-88bfd4c0e0d2"], +Cell[251936, 6004, 501, 11, 70, "Message",ExpressionUUID->"fcd06738-edc8-474f-b579-5c8fba66d5d8"], +Cell[252440, 6017, 504, 11, 70, "Message",ExpressionUUID->"9de7c9a4-4b93-0b4f-9a25-4f1d7917ab21"], +Cell[252947, 6030, 508, 11, 70, "Message",ExpressionUUID->"03ef6a33-8701-ef42-bc6a-4a21f0a09522"], +Cell[253458, 6043, 456, 10, 70, "Message",ExpressionUUID->"038a3a74-0bc1-c44d-9c90-bf60eda4a7bc"], +Cell[253917, 6055, 31462, 562, 70, "Output",ExpressionUUID->"1c17de43-a886-0b4f-ac6b-9644b9c88ec7"] +}, Open ]], +Cell[285394, 6620, 138, 3, 70, "Input",ExpressionUUID->"b4bea72a-7a20-da43-afca-38c9d924f08e"], +Cell[CellGroupData[{ +Cell[285557, 6627, 1616, 48, 70, "Input",ExpressionUUID->"94a1b9ea-c98a-ee4e-bb2c-43256dd887e6"], +Cell[287176, 6677, 596, 12, 70, "Message",ExpressionUUID->"f479187b-9eda-204a-88bb-4f36ab0a2712"], +Cell[287775, 6691, 602, 12, 70, "Message",ExpressionUUID->"f832b030-dfa8-5847-8a8e-714d29039227"], +Cell[288380, 6705, 605, 12, 70, "Message",ExpressionUUID->"c86ba442-eaba-9f46-8c0c-52b951d5bfb0"], +Cell[288988, 6719, 458, 10, 70, "Message",ExpressionUUID->"dc6d10bb-5f0b-8545-9e40-4768fde2dbc1"], +Cell[289449, 6731, 171, 3, 70, "Output",ExpressionUUID->"7d6c1b18-ad7f-3448-8021-ab5886691637"] +}, Open ]], +Cell[CellGroupData[{ +Cell[289657, 6739, 2251, 64, 70, "Input",ExpressionUUID->"ad8fe405-3f1b-4e4d-b1dd-9e266c1ec152"], +Cell[291911, 6805, 577, 12, 70, "Message",ExpressionUUID->"01da16e0-14b6-bf48-a829-a262126159db"], +Cell[292491, 6819, 580, 12, 70, "Message",ExpressionUUID->"4bf24ca6-4e30-e94a-be43-cf8e5608fc87"], +Cell[293074, 6833, 586, 12, 70, "Message",ExpressionUUID->"006741fa-e30f-4b44-972c-035fe0e9a3bf"], +Cell[293663, 6847, 458, 10, 70, "Message",ExpressionUUID->"cf218763-64fa-3446-a7cd-1c601e3a0059"], +Cell[294124, 6859, 173, 3, 70, "Output",ExpressionUUID->"65c43bde-9dc5-1442-ba50-c6fa98b8835b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[294334, 6867, 2223, 64, 70, "Input",ExpressionUUID->"6531fc5f-fdb5-a54c-abb2-46a9d151a60a"], +Cell[296560, 6933, 579, 12, 70, "Message",ExpressionUUID->"592083af-558d-0641-832e-e27a751915bd"], +Cell[297142, 6947, 580, 12, 70, "Message",ExpressionUUID->"66370498-e112-fa4b-a8af-1fcc4f9e1213"], +Cell[297725, 6961, 586, 12, 70, "Message",ExpressionUUID->"84900485-cd47-2c49-9717-bd11f4470d4b"], +Cell[298314, 6975, 458, 10, 70, "Message",ExpressionUUID->"07a10e89-58d6-6b49-8cb3-9461aae3594b"], +Cell[298775, 6987, 171, 3, 70, "Output",ExpressionUUID->"82e8998a-3c72-6247-9df9-94b065408465"] +}, Open ]], +Cell[CellGroupData[{ +Cell[298983, 6995, 2223, 64, 70, "Input",ExpressionUUID->"36639f46-66ce-b34a-8a89-e422f177de00"], +Cell[301209, 7061, 576, 12, 70, "Message",ExpressionUUID->"fda4f669-ecf2-4d4e-b48b-3afcc84ca1c4"], +Cell[301788, 7075, 580, 12, 70, "Message",ExpressionUUID->"36a981e6-ab0a-6c43-9d36-e415d38164fb"], +Cell[302371, 7089, 584, 12, 70, "Message",ExpressionUUID->"4b3aecb3-626b-d84a-940e-7ff8608fd52c"], +Cell[302958, 7103, 458, 10, 70, "Message",ExpressionUUID->"8319d34b-55d1-094b-9206-d0c33b2abbd6"], +Cell[303419, 7115, 173, 3, 70, "Output",ExpressionUUID->"c60c830d-34c5-f541-b310-49552ac2034c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[303629, 7123, 211, 6, 70, "Input",ExpressionUUID->"f76b8e94-11bd-a34a-a9ba-20d331e64105"], +Cell[303843, 7131, 172, 3, 70, "Output",ExpressionUUID->"278ae42a-5de9-444e-9245-d09cf8d28509"] +}, Open ]], +Cell[304030, 7137, 242, 5, 70, "Input",ExpressionUUID->"bb206cb0-d23b-e24e-876b-f9f1b2cbe57a"], +Cell[CellGroupData[{ +Cell[304297, 7146, 558, 19, 70, "Input",ExpressionUUID->"4fd11557-be32-b042-a20e-65ee1f3d31f0"], +Cell[304858, 7167, 171, 3, 70, "Output",ExpressionUUID->"8f491dd5-7bfd-b341-b43c-c3a9d183ce9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[305066, 7175, 170, 5, 70, "Input",ExpressionUUID->"d73f0f23-b2e1-e243-aa8d-70b95de7c666"], +Cell[305239, 7182, 171, 3, 70, "Output",ExpressionUUID->"b9d3b5de-b2b7-e44d-bc5c-44767d89cf65"] +}, Open ]], +Cell[CellGroupData[{ +Cell[305447, 7190, 181, 5, 70, "Input",ExpressionUUID->"8870b029-14dd-d441-82f4-8690b0fb603d"], +Cell[305631, 7197, 173, 3, 70, "Output",ExpressionUUID->"6b8a7f35-f691-844e-aeda-7cce2cf01b4d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[305841, 7205, 6055, 185, 70, "Input",ExpressionUUID->"78b2a753-17fc-484f-a953-d278346207ad"], +Cell[311899, 7392, 173, 3, 70, "Output",ExpressionUUID->"4011df14-d624-cf4c-ba4a-7e4d30ff836f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[312109, 7400, 368, 9, 70, "Input",ExpressionUUID->"19eddd1c-d1b6-4344-85e0-95e5a6b87d4b"], +Cell[312480, 7411, 172, 3, 70, "Output",ExpressionUUID->"d4677fbf-c75c-ca43-b340-204087aa8c86"] +}, Open ]], +Cell[CellGroupData[{ +Cell[312689, 7419, 6122, 187, 70, "Input",ExpressionUUID->"75baa02d-f77e-e542-9519-8afd2f729182"], +Cell[318814, 7608, 173, 3, 70, "Output",ExpressionUUID->"57c3e5a5-34bb-e842-b4a4-6bfbe7fe997b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[319024, 7616, 368, 9, 70, "Input",ExpressionUUID->"78cdb0f4-4e26-2f44-b234-6fa78a24207f"], +Cell[319395, 7627, 172, 3, 70, "Output",ExpressionUUID->"dc513bc7-ae9a-0043-ae49-195b0da7d4ae"] +}, Open ]], +Cell[CellGroupData[{ +Cell[319604, 7635, 2663, 88, 70, "Input",ExpressionUUID->"1d69257c-6504-2041-93e1-2a57c1dfc14b"], +Cell[322270, 7725, 173, 3, 70, "Output",ExpressionUUID->"8d685ee2-dc72-774b-bbc8-778682e632d2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[322480, 7733, 2603, 85, 70, "Input",ExpressionUUID->"482f62c1-da9c-ae43-adda-68c26afa85d0"], +Cell[325086, 7820, 171, 3, 70, "Output",ExpressionUUID->"c69ac66b-aa24-cb4d-9510-bfa972119e6b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[325294, 7828, 3712, 118, 70, "Input",ExpressionUUID->"b28b6b1b-1ce5-eb47-bd61-38bdc082dbc8"], +Cell[329009, 7948, 174, 3, 70, "Output",ExpressionUUID->"1c470c55-d28c-4543-be1f-6a28be0ba400"] +}, Open ]], +Cell[CellGroupData[{ +Cell[329220, 7956, 2052, 59, 70, "Input",ExpressionUUID->"61630af4-ce16-4645-bd89-fd67d7ba48d8"], +Cell[331275, 8017, 574, 12, 70, "Message",ExpressionUUID->"43a2687a-b1fe-f34f-89ff-c066d808b1f9"], +Cell[331852, 8031, 580, 12, 70, "Message",ExpressionUUID->"4af47df9-8236-7241-95f9-152813b1879a"], +Cell[332435, 8045, 580, 12, 70, "Message",ExpressionUUID->"6b7cc034-1771-4d40-a1be-6400e7b80609"], +Cell[333018, 8059, 456, 10, 70, "Message",ExpressionUUID->"3f4e0008-1259-8f45-ad63-fd8d4329e9ae"], +Cell[333477, 8071, 172, 3, 70, "Output",ExpressionUUID->"e57330fd-c13c-984d-8ddc-a0b641a07ec3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[333686, 8079, 2052, 59, 70, "Input",ExpressionUUID->"b8324bb7-c44f-6342-bd59-920c679e8136"], +Cell[335741, 8140, 576, 12, 70, "Message",ExpressionUUID->"29405dbd-598a-ef40-a6b1-6fd2363b1575"], +Cell[336320, 8154, 577, 12, 70, "Message",ExpressionUUID->"ad96af95-7997-6e4b-bb29-aba6a927545b"], +Cell[336900, 8168, 582, 12, 70, "Message",ExpressionUUID->"bbc2b8eb-1cbf-044c-9f8a-9437e2069bad"], +Cell[337485, 8182, 458, 10, 70, "Message",ExpressionUUID->"153f64f2-c43c-3945-815f-e938e8bf1d5a"], +Cell[337946, 8194, 172, 3, 70, "Output",ExpressionUUID->"cd0f4614-a592-5544-b5ef-4fad0c35ca7c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[338155, 8202, 2030, 55, 70, "Input",ExpressionUUID->"a8eb6c66-2550-3146-b69f-2cd48e2cafc8"], +Cell[340188, 8259, 20021, 378, 70, "Output",ExpressionUUID->"fde4983c-8a31-cc4e-87c4-d107fc324654"] +}, Open ]], +Cell[CellGroupData[{ +Cell[360246, 8642, 2148, 61, 70, "Input",ExpressionUUID->"29fc72a2-353e-bf42-8947-0608fa83191a"], +Cell[362397, 8705, 502, 11, 70, "Message",ExpressionUUID->"02febf10-3e5e-7c4e-a0cc-5555abda60b9"], +Cell[362902, 8718, 506, 11, 70, "Message",ExpressionUUID->"6d9e5c2e-5d6c-ee42-9183-8e53cad47804"], +Cell[363411, 8731, 508, 11, 70, "Message",ExpressionUUID->"b36a228f-868c-ba41-aa49-f11f9ef30d38"], +Cell[363922, 8744, 456, 10, 70, "Message",ExpressionUUID->"9512baf9-a3b8-4d40-ba0e-e787bd767c9e"], +Cell[364381, 8756, 30015, 538, 70, "Output",ExpressionUUID->"1d2e0852-2fc7-f64d-be49-84b2bbb91a03"] +}, Open ]], +Cell[CellGroupData[{ +Cell[394433, 9299, 257, 6, 70, "Input",ExpressionUUID->"dbee741a-c3af-b241-a21b-4f79ecc0fe0c"], +Cell[394693, 9307, 2580, 42, 70, "Message",ExpressionUUID->"c1403781-7b8e-e44e-8424-5627a40af393"], +Cell[397276, 9351, 10201, 227, 70, "Output",ExpressionUUID->"bb69f29d-f206-9444-bd72-890d9136c90d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[407514, 9583, 1590, 47, 70, "Input",ExpressionUUID->"0a506e45-082d-6641-9693-c99384fc0ac2"], +Cell[409107, 9632, 342, 6, 70, "Message",ExpressionUUID->"a616c950-333c-c34e-b37c-e912edc150ff"], +Cell[409452, 9640, 101, 0, 70, "Output",ExpressionUUID->"5e38a489-6451-064f-b86a-c8e93d83815c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[409590, 9645, 2249, 64, 70, "Input",ExpressionUUID->"1d3ec6f9-6ce8-8a4d-95c2-733ef0de97b0"], +Cell[411842, 9711, 342, 6, 70, "Message",ExpressionUUID->"e36a792d-6d34-e344-80e0-65db5822f94f"], +Cell[412187, 9719, 342, 6, 70, "Message",ExpressionUUID->"0dfefdcd-d1b3-8f47-b86d-c0f72147cb73"], +Cell[412532, 9727, 101, 0, 70, "Output",ExpressionUUID->"8272fc8d-2aef-284d-85ad-5d09a4d55c26"] +}, Open ]], +Cell[CellGroupData[{ +Cell[412670, 9732, 2219, 64, 70, "Input",ExpressionUUID->"b5bf5915-d0df-a045-96bd-1dffa35c1421"], +Cell[414892, 9798, 342, 6, 70, "Message",ExpressionUUID->"69e9eac8-2173-184e-8807-5fd844762da7"], +Cell[415237, 9806, 342, 6, 70, "Message",ExpressionUUID->"baaf252e-485c-b643-a22f-956a9ee4c418"], +Cell[415582, 9814, 100, 0, 70, "Output",ExpressionUUID->"8828a790-0478-5f4d-95d9-3a6a0e7217e5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[415719, 9819, 2220, 64, 70, "Input",ExpressionUUID->"0f4fb648-c81c-bf44-8487-747d613813fd"], +Cell[417942, 9885, 342, 6, 70, "Message",ExpressionUUID->"51550cf4-6c37-c443-851d-569d8808cf04"], +Cell[418287, 9893, 342, 6, 70, "Message",ExpressionUUID->"d7f343d4-811d-2f43-8fb6-ccefbdc3518f"], +Cell[418632, 9901, 101, 0, 70, "Output",ExpressionUUID->"7a1f905d-9581-5744-a98c-76e2b1fb25bb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[418770, 9906, 213, 6, 70, "Input",ExpressionUUID->"2d256a7e-c4c8-f746-8004-9b6b43692a68"], +Cell[418986, 9914, 102, 0, 70, "Output",ExpressionUUID->"59ec06ef-9d4f-1d47-8ac6-5acc72d626ee"] +}, Open ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/templates/light_case/l___фитирование.nb b/templates/light_case/l___фитирование.nb new file mode 100755 index 0000000..363059e --- /dev/null +++ b/templates/light_case/l___фитирование.nb @@ -0,0 +1,19515 @@ +(* 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[ 949577, 19507] +NotebookOptionsPosition[ 939001, 19321] +NotebookOutlinePosition[ 939430, 19338] +CellTagsIndexPosition[ 939387, 19335] +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[2]:=",ExpressionUUID->"984d779d-441a-564f-824d-75ba0e2dc3fa"], + +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}, + CellLabel->"Out[2]=",ExpressionUUID->"f2a90593-115c-de44-8f24-6de33df6648b"] +}, 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[3]:=",ExpressionUUID->"67269f0f-e0b0-f549-a77a-4038f973203d"], + +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}, + CellLabel->"Out[3]=",ExpressionUUID->"8b3f93db-b3c7-424c-9986-dc1259368d6c"] +}, 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[4]:=",ExpressionUUID->"b7ce059f-6606-3f49-a9e0-ce95b27090cb"], + +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}, + CellLabel->"Out[4]=",ExpressionUUID->"102aabbc-1533-474c-951d-59388b43ad5b"] +}, 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[5]:=",ExpressionUUID->"d28b612e-7706-ee49-b098-1ff6d19ac41f"], + +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}, + CellLabel->"Out[5]=",ExpressionUUID->"a609f3b3-2e7b-c84a-8d9f-cb941f860dd2"] +}, 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[6]:=",ExpressionUUID->"b07bd0bc-2475-094d-b7ea-4146a338636c"], + +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"]}]]}], ")"}]}], + "+", + RowBox[{ + FractionBox["1", + RowBox[{"32", " ", "\[Pi]"}]], + 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"]}]]}], + ")"}]}]}]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341376917*^9, 3.9919640822778645`*^9, + 3.9919650529736423`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"6a630b0c-42f4-984c-884e-404c558d5b15"] +}, 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[7]:=",ExpressionUUID->"c9ecc956-1141-fa42-8147-f21123945bdc"], + +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"]}]]}], ")"}]}], + "+", + RowBox[{ + FractionBox["1", + RowBox[{"32", " ", "\[Pi]"}]], + 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"]}]]}], + ")"}]}]}]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341392933*^9, 3.9919640822888775`*^9, + 3.9919650530016823`*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"be7cd485-6549-2e4c-9334-a6ea35992cb7"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{3.9917077685737076`*^9}, + CellLabel-> + "In[362]:=",ExpressionUUID->"3b033e79-cfc0-c443-bea0-5e05e70b057f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "236"}]], "Input", + CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { + 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, + 3.99179303935478*^9}}, + CellLabel->"In[8]:=",ExpressionUUID->"9efe6a26-4fad-3f4e-9d6e-27e0e52fa691"], + +Cell[BoxData["236"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.991964088272585*^9, 3.9919650668367367`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"e3b25e5e-6736-a648-891b-4696491c8d9d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "="}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.9919640953047657`*^9, + 3.991964095496088*^9}, + 3.9919730324857025`*^9},ExpressionUUID->"df99cb2a-15b5-0b47-a4f6-\ +27b74e082a15"], + +Cell[BoxData["58"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9919640965938797`*^9, 3.9919650679796085`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"d911d281-5ae1-4d49-b5b0-c6546cdfc5be"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[10]:=",ExpressionUUID->"a1fb5611-f3b5-6245-8af6-4e0165f28ad9"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9, 3.991707828219631*^9, + 3.9917123414174232`*^9, 3.9919641050847206`*^9, 3.9919650689841537`*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"bcf151b6-5173-c247-aba5-eb7fd8f6a86f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"e4db6b4e-d33b-7049-818a-cfba3539b26d"], + +Cell[BoxData["0.5576271186440679`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9, 3.9917078282275677`*^9, + 3.9917123414253197`*^9, 3.991964105132374*^9, 3.99196507082041*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"350b5d4a-86e1-c849-ba14-ee9245de64e5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"d10625a4-1fb6-3f4d-8f5c-fd6744a2cc20"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9, 3.9917078282485256`*^9, + 3.9917123414324265`*^9, 3.991964105152542*^9, 3.9919650751473694`*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"6cca14fb-0b20-5c4b-8c36-bbb7924cbaae"] +}, 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->"ad7ee1cf-a6cf-aa41-b16f-69f575f9695b"], + +Cell[BoxData["4.4902169031282435`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9, 3.9917078282706223`*^9, + 3.9917123414384117`*^9, 3.991964105158039*^9, 3.9919650774986343`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"e02386c8-e0d3-da40-aa79-384e341f88dc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"216f83ae-e48a-1b41-a7b2-acc9b400d13c"], + +Cell[BoxData["6.525262540876552`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9, 3.9917078282785244`*^9, + 3.991712341447321*^9, 3.9919641051782207`*^9, 3.99196507853343*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"7d44928b-5597-4c41-a044-ed2430117c2f"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"b1", "="}]], "Input", + CellChangeTimes->{ + 3.9917123951294365`*^9, 3.99179305435186*^9, {3.99196410971159*^9, + 3.9919641153565598`*^9}, {3.991965091938593*^9, 3.9919650927835865`*^9}, + 3.991973034922682*^9},ExpressionUUID->"b434072c-f5c4-6447-b47b-\ +7d3a3a643eea"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9919730373820705`*^9, + 3.991973037386053*^9}},ExpressionUUID->"1935e637-3724-824c-87cd-\ +00d2f710210f"], + +Cell[BoxData[ + RowBox[{"b2", "="}]], "Input", + CellChangeTimes->{ + 3.9917124038115807`*^9, 3.991793052797516*^9, {3.9919641207252083`*^9, + 3.991964121458187*^9}, {3.991965119761894*^9, 3.9919651201266823`*^9}, + 3.9919730365316715`*^9},ExpressionUUID->"7fa441ac-4845-2444-8deb-\ +6f46879ae66e"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991973038952713*^9, + 3.9919730389577026`*^9}},ExpressionUUID->"14ffdd04-4daa-654b-9670-\ +b89fb359bf05"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"d12b3ab2-45b8-e846-b98b-9d0a210376f1"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9, 3.9917078283276424`*^9, + 3.991712341478319*^9, 3.9919641257179623`*^9, 3.9919651236440945`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"78b1ad6b-d494-5646-b4b7-b29e7e90830c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"cc8311a9-855a-384b-a11e-1c7a8ea58566"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9, 3.99170782834754*^9, + 3.9917123414863186`*^9, 3.9919641257640095`*^9, 3.991965124607527*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"8b62cd71-8cae-934b-abf4-1f9850737b8c"] +}, 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", ",", "3", ",", "10"}], "}"}]}], "]"}]}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{{3.9919641474075165`*^9, 3.9919641522943115`*^9}}, + CellLabel->"In[19]:=",ExpressionUUID->"f19417be-1443-8d42-84f9-76626ac0c4bd"], + +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"]], + 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.9917124540376835`*^9, {3.991964135503311*^9, 3.9919641527564583`*^9}, + 3.991965132478647*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"5a5c92c3-41e2-064d-b5d2-46e09854e847"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{ + 3.991842459440727*^9},ExpressionUUID->"62777ed7-7ccf-894f-98ca-\ +57d1179827cc"], + +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->"b1237968-c91f-db47-bafe-6a6c03ba541d"], + +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->"f57ff81d-6ce2-364f-ac54-19a36740af5f"], + +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->"5273f557-7b7b-1643-a2ef-aed4e837e804"] +}, 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->"fd3ea9d4-8a83-454c-af78-c4730cfea45f"], + +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->"2bc8c06e-f76e-aa44-8574-c8d86155e9c7"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.8843341005280374`"}], ",", + RowBox[{"b0", "\[Rule]", "0.7578746971183462`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9917125237225304`*^9}, + CellLabel-> + "Out[380]=",ExpressionUUID->"02a25572-d787-1f4f-a51d-88b9a7b63990"] +}, 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->"5f2338d5-2214-5b45-be4f-8f529fd780ac"], + +Cell[BoxData["0.905`"], "Output", + CellChangeTimes->{3.991712577539974*^9, 3.9919641835911674`*^9, + 3.991965166337839*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"51561161-e79b-0a4d-a2e0-24f5080dd421"] +}, 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->"bcb210ff-bcae-1443-b4ad-e4a575fa430c"], + +Cell[BoxData["0.605`"], "Output", + CellChangeTimes->{ + 3.9917125776046295`*^9, {3.9919641919259663`*^9, 3.9919641946011486`*^9}, + 3.991965172422703*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"bb3f1b4a-feec-e74a-ac02-560e86fef7a6"] +}, 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->"4ff2523c-7d4f-5947-a370-80f5570bb8fd"], + +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->"875773db-bcfc-1448-b266-a824cadcd26d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l1", ",", "l2"}], "]"}]], "Input", + CellLabel->"In[24]:=",ExpressionUUID->"b18f33b7-80c8-d647-9ade-73d9928cac50"], + +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->"1487f4e5-3a4c-5142-bedc-93d10f72fd42"] +}, 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", ",", "3", ",", "11"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.99196423637006*^9, 3.9919651876297417`*^9}, + CellLabel->"In[26]:=",ExpressionUUID->"c6042d45-7676-6c49-800f-09aa679e359d"], + +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"]], + 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.9919642330912876`*^9, 3.991964236757889*^9}, { + 3.991965183952503*^9, 3.991965188526533*^9}}, + CellLabel->"Out[26]=",ExpressionUUID->"d4d5b049-5a60-9e47-bedb-22d6496d63a9"] +}, 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->"3257ca40-3a72-6e47-a18b-de875465760b"], + +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->"060018be-9f59-004a-bc1d-6354aea179dd"], + +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->"6cf44e77-7f0a-294f-a9b3-653c811fc1b5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "1.03"}]], "Input", + CellChangeTimes->{{3.991964278686388*^9, 3.9919642789396744`*^9}, + 3.991965211114523*^9}, + CellLabel->"In[28]:=",ExpressionUUID->"9f308f97-daac-744c-bae7-d3560fa4471f"], + +Cell[BoxData["1.03`"], "Output", + CellChangeTimes->{3.991964280066925*^9, 3.991965218521267*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"88019e92-bf16-8a45-a573-5f6813f5148f"] +}, 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->"1523f3ed-56c9-e442-bf6a-8b0d193db26f"], + +Cell[BoxData["0.68`"], "Output", + CellChangeTimes->{3.991964285066065*^9, 3.9919652203929043`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"8c4c8ddd-1d64-5140-8a2a-94f43856c639"] +}, 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->"cab747ed-cb84-7e4e-ba84-e0de4bae2e79"], + +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->"9bca3267-03f7-a141-a4ec-87d73dc54051"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l11", ",", "l22"}], "]"}]], "Input", + CellLabel->"In[31]:=",ExpressionUUID->"89a5fa74-6f01-6943-b5a9-4ef6da22cf67"], + +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->"720ff5be-57e1-6f4a-aa23-c266601c741f"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"b0", ",", "y", ",", "bb0", ",", "yy", ",", "r"}], "]"}]], "Input", + CellChangeTimes->{3.9918427409143257`*^9}, + CellLabel->"In[32]:=",ExpressionUUID->"4a5ddd52-c690-354a-8f4a-29e1547c8fab"], + +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[33]:=",ExpressionUUID->"f9e7e8c9-0d48-844f-8932-8dc242714679"], + +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"]], + 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.9919643389546776`*^9, 3.9919652326803303`*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"aba9a02b-2505-4945-a17e-371421067ae1"] +}, 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->"173389f3-1a04-8144-b644-6242c726094c"], + +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->"8bd43971-5c9d-f149-ad34-37666d95187d"], + +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->"43aa812a-89e9-5947-904d-2615bf9ae477"] +}, 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->"fb2f4610-f9af-7646-83db-aee0dc11e3ca"], + +Cell[BoxData["1.21`"], "Output", + CellChangeTimes->{3.991964352345875*^9, 3.9919652787755985`*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"578091c0-706c-0447-9f27-d650cd07679a"] +}, 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->"fc2d430a-c5ca-8f47-8093-6506a1b91783"], + +Cell[BoxData["0.74`"], "Output", + CellChangeTimes->{3.9919643574642944`*^9, 3.9919652764203777`*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"22e5d09f-3856-2342-9ec4-a0a4e99d8f81"] +}, 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[37]:=",ExpressionUUID->"44d47a15-a0d8-c245-95ac-48359d9c9ae4"], + +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->"b505676b-c402-c146-bfcf-a5681355af6a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l111", ",", "l222"}], "]"}]], "Input", + CellLabel->"In[38]:=",ExpressionUUID->"8e7fc59d-e930-4546-bd23-1735ec9df535"], + +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->"15fc73ff-4b7c-f44a-82a3-ff74d75cafb1"] +}, 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", ",", "13"}], "}"}]}], "]"}]}]], "Input", + CellLabel->"In[39]:=",ExpressionUUID->"06bd140e-882f-1a43-ac6e-f81b725f742b"], + +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"]], + 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.991964380582947*^9, 3.9919653530989933`*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"df194134-7ead-2c4f-9c2d-231ed351fc78"] +}, 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->"f15716e0-ba3a-184c-9e61-4429edd626d5"], + +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->"54d66a50-0e46-b544-bf38-fca60fb0db69"], + +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->"21ffc138-d7e5-a242-93d6-e6d84ceeed52"] +}, 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->"acca64dd-115b-3449-a6ef-f2d70f4be4aa"], + +Cell[BoxData["1.35`"], "Output", + CellChangeTimes->{3.9919644079976406`*^9, 3.9919653747711143`*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"184d1816-0e1f-0a4e-9713-21fa217a12d3"] +}, 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->"0723e435-4e7b-764f-b2b2-d46d069a19ca"], + +Cell[BoxData["1.25`"], "Output", + CellChangeTimes->{3.9919644088621464`*^9, 3.991965373888151*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"9160ea6a-6e14-4f45-8dac-9f0d210cb102"] +}, 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->"418e109e-98c0-4048-bee3-982d843c6f5d"], + +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->"60c79d8a-ab18-2345-a320-f5f0be289d63"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1111", ",", "l2222"}], "]"}], "\[IndentingNewLine]"}]], "Input", + CellLabel->"In[46]:=",ExpressionUUID->"4793b8fe-e4a9-3144-ad63-4921c0e1d8f6"], + +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->"9c7d505e-3287-7646-a881-56734fa29a1e"] +}, Open ]] +}, +WindowSize->{693.75, 729.75}, +WindowMargins->{{Automatic, -6.75}, {Automatic, 6}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"009e3209-82c3-8a40-a760-7e4ecd835b03" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 1152, 34, 80, "Input",ExpressionUUID->"984d779d-441a-564f-824d-75ba0e2dc3fa"], +Cell[1731, 58, 1468, 46, 97, "Output",ExpressionUUID->"f2a90593-115c-de44-8f24-6de33df6648b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3236, 109, 720, 20, 61, "Input",ExpressionUUID->"67269f0f-e0b0-f549-a77a-4038f973203d"], +Cell[3959, 131, 863, 25, 71, "Output",ExpressionUUID->"8b3f93db-b3c7-424c-9986-dc1259368d6c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4859, 161, 1465, 41, 197, "Input",ExpressionUUID->"b7ce059f-6606-3f49-a9e0-ce95b27090cb"], +Cell[6327, 204, 2559, 75, 305, "Output",ExpressionUUID->"102aabbc-1533-474c-951d-59388b43ad5b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8923, 284, 1680, 48, 204, "Input",ExpressionUUID->"d28b612e-7706-ee49-b098-1ff6d19ac41f"], +Cell[10606, 334, 2758, 81, 305, "Output",ExpressionUUID->"a609f3b3-2e7b-c84a-8d9f-cb941f860dd2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13401, 420, 1843, 53, 234, "Input",ExpressionUUID->"b07bd0bc-2475-094d-b7ea-4146a338636c"], +Cell[15247, 475, 3728, 111, 236, "Output",ExpressionUUID->"6a630b0c-42f4-984c-884e-404c558d5b15"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19012, 591, 2080, 59, 296, "Input",ExpressionUUID->"c9ecc956-1141-fa42-8147-f21123945bdc"], +Cell[21095, 652, 4797, 140, 294, "Output",ExpressionUUID->"be7cd485-6549-2e4c-9334-a6ea35992cb7"] +}, Open ]], +Cell[25907, 795, 153, 3, 28, "Input",ExpressionUUID->"3b033e79-cfc0-c443-bea0-5e05e70b057f"], +Cell[CellGroupData[{ +Cell[26085, 802, 300, 5, 28, "Input",ExpressionUUID->"9efe6a26-4fad-3f4e-9d6e-27e0e52fa691"], +Cell[26388, 809, 277, 4, 32, "Output",ExpressionUUID->"e3b25e5e-6736-a648-891b-4696491c8d9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26702, 818, 253, 6, 28, "Input",ExpressionUUID->"df99cb2a-15b5-0b47-a4f6-27b74e082a15"], +Cell[26958, 826, 276, 4, 32, "Output",ExpressionUUID->"d911d281-5ae1-4d49-b5b0-c6546cdfc5be"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27271, 835, 176, 3, 28, "Input",ExpressionUUID->"a1fb5611-f3b5-6245-8af6-4e0165f28ad9"], +Cell[27450, 840, 250, 3, 32, "Output",ExpressionUUID->"bcf151b6-5173-c247-aba5-eb7fd8f6a86f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27737, 848, 258, 7, 43, "Input",ExpressionUUID->"e4db6b4e-d33b-7049-818a-cfba3539b26d"], +Cell[27998, 857, 263, 3, 32, "Output",ExpressionUUID->"350b5d4a-86e1-c849-ba14-ee9245de64e5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28298, 865, 132, 2, 28, "Input",ExpressionUUID->"d10625a4-1fb6-3f4d-8f5c-fd6744a2cc20"], +Cell[28433, 869, 252, 3, 32, "Output",ExpressionUUID->"6cca14fb-0b20-5c4b-8c36-bbb7924cbaae"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28722, 877, 277, 6, 28, "Input",ExpressionUUID->"ad7ee1cf-a6cf-aa41-b16f-69f575f9695b"], +Cell[29002, 885, 266, 3, 32, "Output",ExpressionUUID->"e02386c8-e0d3-da40-aa79-384e341f88dc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29305, 893, 258, 7, 28, "Input",ExpressionUUID->"216f83ae-e48a-1b41-a7b2-acc9b400d13c"], +Cell[29566, 902, 262, 3, 32, "Output",ExpressionUUID->"7d44928b-5597-4c41-a044-ed2430117c2f"] +}, Open ]], +Cell[29843, 908, 295, 6, 28, "Input",ExpressionUUID->"b434072c-f5c4-6447-b47b-7d3a3a643eea"], +Cell[30141, 916, 154, 3, 28, "Input",ExpressionUUID->"1935e637-3724-824c-87cd-00d2f710210f"], +Cell[30298, 921, 299, 6, 28, "Input",ExpressionUUID->"7fa441ac-4845-2444-8deb-6f46879ae66e"], +Cell[30600, 929, 154, 3, 28, "Input",ExpressionUUID->"14ffdd04-4daa-654b-9670-b89fb359bf05"], +Cell[CellGroupData[{ +Cell[30779, 936, 129, 2, 28, "Input",ExpressionUUID->"d12b3ab2-45b8-e846-b98b-9d0a210376f1"], +Cell[30911, 940, 248, 3, 32, "Output",ExpressionUUID->"78b1ad6b-d494-5646-b4b7-b29e7e90830c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[31196, 948, 129, 2, 28, "Input",ExpressionUUID->"cc8311a9-855a-384b-a11e-1c7a8ea58566"], +Cell[31328, 952, 245, 3, 32, "Output",ExpressionUUID->"8b62cd71-8cae-934b-abf4-1f9850737b8c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[31610, 960, 1965, 50, 215, "Input",ExpressionUUID->"f19417be-1443-8d42-84f9-76626ac0c4bd"], +Cell[33578, 1012, 31761, 569, 237, "Output",ExpressionUUID->"5a5c92c3-41e2-064d-b5d2-46e09854e847"] +}, Open ]], +Cell[65354, 1584, 128, 3, 28, "Input",ExpressionUUID->"62777ed7-7ccf-894f-98ca-57d1179827cc"], +Cell[CellGroupData[{ +Cell[65507, 1591, 2276, 59, 147, "Input",ExpressionUUID->"b1237968-c91f-db47-bafe-6a6c03ba541d"], +Cell[67786, 1652, 5393, 79, 208, "Message",ExpressionUUID->"f57ff81d-6ce2-364f-ac54-19a36740af5f"], +Cell[73182, 1733, 339, 7, 32, "Output",ExpressionUUID->"5273f557-7b7b-1643-a2ef-aed4e837e804"] +}, Open ]], +Cell[CellGroupData[{ +Cell[73558, 1745, 2168, 58, 147, "Input",ExpressionUUID->"fd3ea9d4-8a83-454c-af78-c4730cfea45f"], +Cell[75729, 1805, 4376, 63, 166, "Message",ExpressionUUID->"2bc8c06e-f76e-aa44-8574-c8d86155e9c7"], +Cell[80108, 1870, 297, 7, 32, "Output",ExpressionUUID->"02a25572-d787-1f4f-a51d-88b9a7b63990"] +}, Open ]], +Cell[CellGroupData[{ +Cell[80442, 1882, 302, 5, 28, "Input",ExpressionUUID->"5f2338d5-2214-5b45-be4f-8f529fd780ac"], +Cell[80747, 1889, 203, 3, 32, "Output",ExpressionUUID->"51561161-e79b-0a4d-a2e0-24f5080dd421"] +}, Open ]], +Cell[CellGroupData[{ +Cell[80987, 1897, 307, 5, 28, "Input",ExpressionUUID->"bcb210ff-bcae-1443-b4ad-e4a575fa430c"], +Cell[81297, 1904, 235, 4, 32, "Output",ExpressionUUID->"bb3f1b4a-feec-e74a-ac02-560e86fef7a6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[81569, 1913, 2521, 63, 283, "Input",ExpressionUUID->"4ff2523c-7d4f-5947-a370-80f5570bb8fd"], +Cell[84093, 1978, 107321, 2284, 237, "Output",ExpressionUUID->"875773db-bcfc-1448-b266-a824cadcd26d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191451, 4267, 161, 3, 42, "Input",ExpressionUUID->"b18f33b7-80c8-d647-9ade-73d9928cac50"], +Cell[191615, 4272, 138703, 2809, 237, "Output",ExpressionUUID->"1487f4e5-3a4c-5142-bedc-93d10f72fd42"] +}, Open ]], +Cell[CellGroupData[{ +Cell[330355, 7086, 911, 25, 112, "Input",ExpressionUUID->"c6042d45-7676-6c49-800f-09aa679e359d"], +Cell[331269, 7113, 45788, 799, 237, "Output",ExpressionUUID->"d4d5b049-5a60-9e47-bedb-22d6496d63a9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[377094, 7917, 2363, 61, 147, "Input",ExpressionUUID->"3257ca40-3a72-6e47-a18b-de875465760b"], +Cell[379460, 7980, 5452, 79, 216, "Message",ExpressionUUID->"060018be-9f59-004a-bc1d-6354aea179dd"], +Cell[384915, 8061, 314, 6, 32, "Output",ExpressionUUID->"6cf44e77-7f0a-294f-a9b3-653c811fc1b5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[385266, 8072, 226, 4, 28, "Input",ExpressionUUID->"9f308f97-daac-744c-bae7-d3560fa4471f"], +Cell[385495, 8078, 175, 2, 32, "Output",ExpressionUUID->"88019e92-bf16-8a45-a573-5f6813f5148f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[385707, 8085, 252, 4, 28, "Input",ExpressionUUID->"1523f3ed-56c9-e442-bf6a-8b0d193db26f"], +Cell[385962, 8091, 177, 2, 32, "Output",ExpressionUUID->"8c4c8ddd-1d64-5140-8a2a-94f43856c639"] +}, Open ]], +Cell[CellGroupData[{ +Cell[386176, 8098, 981, 26, 106, "Input",ExpressionUUID->"cab747ed-cb84-7e4e-ba84-e0de4bae2e79"], +Cell[387160, 8126, 111871, 2376, 237, "Output",ExpressionUUID->"9bca3267-03f7-a141-a4ec-87d73dc54051"] +}, Open ]], +Cell[CellGroupData[{ +Cell[499068, 10507, 163, 3, 42, "Input",ExpressionUUID->"89a5fa74-6f01-6943-b5a9-4ef6da22cf67"], +Cell[499234, 10512, 157319, 3132, 237, "Output",ExpressionUUID->"720ff5be-57e1-6f4a-aa23-c266601c741f"] +}, Open ]], +Cell[656568, 13647, 238, 4, 42, "Input",ExpressionUUID->"4a5ddd52-c690-354a-8f4a-29e1547c8fab"], +Cell[CellGroupData[{ +Cell[656831, 13655, 773, 22, 91, "Input",ExpressionUUID->"f9e7e8c9-0d48-844f-8932-8dc242714679"], +Cell[657607, 13679, 18986, 357, 238, "Output",ExpressionUUID->"aba9a02b-2505-4945-a17e-371421067ae1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[676630, 14041, 2162, 57, 147, "Input",ExpressionUUID->"173389f3-1a04-8144-b644-6242c726094c"], +Cell[678795, 14100, 834, 15, 26, "Message",ExpressionUUID->"8bd43971-5c9d-f149-ad34-37666d95187d"], +Cell[679632, 14117, 317, 6, 32, "Output",ExpressionUUID->"43aa812a-89e9-5947-904d-2615bf9ae477"] +}, Open ]], +Cell[CellGroupData[{ +Cell[679986, 14128, 250, 4, 28, "Input",ExpressionUUID->"fb2f4610-f9af-7646-83db-aee0dc11e3ca"], +Cell[680239, 14134, 177, 2, 32, "Output",ExpressionUUID->"578091c0-706c-0447-9f27-d650cd07679a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[680453, 14141, 249, 4, 28, "Input",ExpressionUUID->"fc2d430a-c5ca-8f47-8093-6506a1b91783"], +Cell[680705, 14147, 179, 2, 32, "Output",ExpressionUUID->"22e5d09f-3856-2342-9ec4-a0a4e99d8f81"] +}, Open ]], +Cell[CellGroupData[{ +Cell[680921, 14154, 2560, 64, 305, "Input",ExpressionUUID->"44d47a15-a0d8-c245-95ac-48359d9c9ae4"], +Cell[683484, 14220, 23768, 514, 237, "Output",ExpressionUUID->"b505676b-c402-c146-bfcf-a5681355af6a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[707289, 14739, 165, 3, 42, "Input",ExpressionUUID->"8e7fc59d-e930-4546-bd23-1735ec9df535"], +Cell[707457, 14744, 41611, 830, 238, "Output",ExpressionUUID->"15fc73ff-4b7c-f44a-82a3-ff74d75cafb1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[749105, 15579, 851, 24, 112, "Input",ExpressionUUID->"06bd140e-882f-1a43-ac6e-f81b725f742b"], +Cell[749959, 15605, 39726, 699, 237, "Output",ExpressionUUID->"df194134-7ead-2c4f-9c2d-231ed351fc78"] +}, Open ]], +Cell[CellGroupData[{ +Cell[789722, 16309, 2333, 60, 166, "Input",ExpressionUUID->"f15716e0-ba3a-184c-9e61-4429edd626d5"], +Cell[792058, 16371, 4044, 60, 173, "Message",ExpressionUUID->"54d66a50-0e46-b544-bf38-fca60fb0db69"], +Cell[796105, 16433, 317, 6, 32, "Output",ExpressionUUID->"21ffc138-d7e5-a242-93d6-e6d84ceeed52"] +}, Open ]], +Cell[CellGroupData[{ +Cell[796459, 16444, 251, 4, 28, "Input",ExpressionUUID->"acca64dd-115b-3449-a6ef-f2d70f4be4aa"], +Cell[796713, 16450, 179, 2, 32, "Output",ExpressionUUID->"184d1816-0e1f-0a4e-9713-21fa217a12d3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[796929, 16457, 252, 4, 28, "Input",ExpressionUUID->"0723e435-4e7b-764f-b2b2-d46d069a19ca"], +Cell[797184, 16463, 177, 2, 32, "Output",ExpressionUUID->"9160ea6a-6e14-4f45-8dac-9f0d210cb102"] +}, Open ]], +Cell[CellGroupData[{ +Cell[797398, 16470, 2844, 72, 387, "Input",ExpressionUUID->"418e109e-98c0-4048-bee3-982d843c6f5d"], +Cell[800245, 16544, 49805, 1052, 237, "Output",ExpressionUUID->"60c79d8a-ab18-2345-a320-f5f0be289d63"] +}, Open ]], +Cell[CellGroupData[{ +Cell[850087, 17601, 204, 4, 63, "Input",ExpressionUUID->"4793b8fe-e4a9-3144-ad63-4921c0e1d8f6"], +Cell[850294, 17607, 88691, 1711, 237, "Output",ExpressionUUID->"9c7d505e-3287-7646-a881-56734fa29a1e"] +}, Open ]] +} +] +*) + diff --git a/templates/light_case/rename.bat b/templates/light_case/rename.bat new file mode 100755 index 0000000..19235ed --- /dev/null +++ b/templates/light_case/rename.bat @@ -0,0 +1,47 @@ +@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 + ) +)